xfoil (6.97.dfsg-3) osgen-fix.diff

Summary

 orrs/src/io.f |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

    
download this patch

Patch contents

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