[patch] xfoil-6.96-gfortran.patch

xfoil-6.96-gfortran.patch (text/plain), 993 bytes, created by Sébastien Fabbro (RETIRED) on 2007-05-06 17:36:50 UTC

--- plotlib/ps_subs.f.orig	2004-08-21 19:02:44.000000000 +0100
+++ plotlib/ps_subs.f	2007-05-03 19:14:28.901490750 +0100
@@ -559,7 +559,7 @@
 c                   in the iout array (3,1,3,1,3,1,3,1)
 c     Note: the bit mask is shifted to always start counting on a '1' bit.
 c
-c---  Uses the library routines and() and rshift() for bit manipulation 
+c---  Uses the library routines and() and ishft() for bit manipulation 
 c     which are present in most fortran libraries as extensions to f77.
 c
       dimension iout(*)
@@ -570,7 +570,7 @@
         ibitold = and(1,imask)
         if(ibitold.NE.0) go to 5
           nshft = n
-          imask = rshift(imask,1)
+          imask = ishft(imask,-1)
       end do
 c
  5    nout  = 0
@@ -594,7 +594,7 @@
 c
         ibitold = ibit
         nbits = nbits + 1
-        imask = rshift(imask,1)
+        imask = ishft(imask,-1)
       end do
 c--- Add final bit(s) to end of 16 bits checked
 c--- Now append any zero bits shifted out originally