View | Details | Raw Unified
Collapse All | Expand All

(-) plotlib/ps_subs.f.orig (-3 / +3 lines)
 Lines 559-565    Link Here  
c                   in the iout array (3,1,3,1,3,1,3,1)
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     Note: the bit mask is shifted to always start counting on a '1' bit.
c
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     which are present in most fortran libraries as extensions to f77.
c
c
      dimension iout(*)
      dimension iout(*)
 Lines 570-576    Link Here  
        ibitold = and(1,imask)
        ibitold = and(1,imask)
        if(ibitold.NE.0) go to 5
        if(ibitold.NE.0) go to 5
          nshft = n
          nshft = n
          imask = rshift(imask,1)
 
          imask = ishft(imask,-1)
 
      end do
      end do
c
c
 5    nout  = 0
 5    nout  = 0
 Lines 594-600    Link Here  
c
c
        ibitold = ibit
        ibitold = ibit
        nbits = nbits + 1
        nbits = nbits + 1
        imask = rshift(imask,1)
 
        imask = ishft(imask,-1)
 
      end do
      end do
c--- Add final bit(s) to end of 16 bits checked
c--- Add final bit(s) to end of 16 bits checked
c--- Now append any zero bits shifted out originally
c--- Now append any zero bits shifted out originally