anchor.diff:        PARAMETER (NCHAPW=4)
         PARAMETER (IALL11 = -1)
         IAND (IZV,IZW) = AND (IZV, IZW)
  -      IOR (IZV,IZW) = OR (IZV, IZW)
  -      IEOR (IZV,IZW) = XOR (IZV, IZW)
  -      ISHFTL (IZW,NZB) = LSHIFT (IZW,NZB)
  +
  +
  +
         JTH = JTHP(1)
         NINT = NINTP(1)
         IF (NINT.LE.0) RETURN
  
positive.code:       PARAMETER (IALL11 = -1)
        IAND (IZV,IZW) = AND (IZV, IZW)
        IOR (IZV,IZW) = OR (IZV, IZW)
        IEOR (IZV,IZW) = XOR (IZV, IZW)
        ISHFTL (IZW,NZB) = LSHIFT (IZW,NZB)
        MSK = ISHFTR (IALL11, NBITPW-NZB)
        IZW = IOR ( IAND (IZW, NOT(ISHFTL(MSK,IZP-1)))
  
negative.code: 
        SUBROUTINE SBIT0 (IZW,IZP)
        IAND (IZV,IZW) = AND (IZV, IZW)
  *      IOR (IZV,IZW) = OR (IZV, IZW)
  *      IEOR (IZV,IZW) = XOR (IZV, IZW)
        ISHFTL (IZW,NZB) = LSHIFT (IZW,NZB)
        IZW = IAND (IZW, NOT(ISHFTL(1,IZP-1)) )
        END
  