xfoil/xfoil-6.96-gfortran.patch

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