Index: xfoil/orrs/src/io.f
===================================================================
--- xfoil.orig/orrs/src/io.f 2010-01-12 21:10:17.845623158 +0100
+++ xfoil/orrs/src/io.f 2010-01-12 21:10:35.632296157 +0100
@@ -62,7 +62,7 @@
CALL READOS1(FNAME,IFORM,
& N(IH),NMAX,ETA(1,IH),U(1,IH),S(1,IH),
& NRP(IH),NWP(IH),
- & RTL(1,IH),WSL(1,IH),HH, AR(1,1,IH),AI(1,1,IH),
+ & RTL(1,IH),WSL(1,IH),HH(IH), AR(1,1,IH),AI(1,1,IH),
& NRX,NWX)
C
1000 CONTINUE
@@ -139,7 +139,7 @@
CALL WRITOS1(FNAME,IFORM,
& N(IH),NMAX,ETA(1,IH),U(1,IH),S(1,IH),
& NRP(IH),NWP(IH),
- & RTL(1,IH),WSL(1,IH),HH, AR(1,1,IH),AI(1,1,IH),
+ & RTL(1,IH),WSL(1,IH),HH(IH), AR(1,1,IH),AI(1,1,IH),
& NRX,NWX)
C
1000 CONTINUE