anchor.diff:  *
         I2ADDR_GN = ibloff-1+ijkl
         if( ntest .ge. 100 ) then
  -	write(6,*) 'i j k l ', i,j,k,l
  -	write(6,*) ' ibloff ijkl ',ibloff,ijkl
  +      write(6,*) 'i j k l ', i,j,k,l
  +      write(6,*) ' ibloff ijkl ',ibloff,ijkl
           write(6,*) ' I2ADDR_GN  = ', I2ADDR_GN
         end if
   *
  
positive.code: *
  c      IMPLICIT REAL*8(A-H,O-Z)
  c      INCLUDE 'mxpdim.inc'
        INCLUDE 'wrkspc.inc'
        INCLUDE 'glbbas.inc'
        INCLUDE 'lucinp.inc'
  
negative.code: *
  c      IMPLICIT REAL*8(A-H,O-Z)
  c      INCLUDE 'mxpdim.inc'
  #include "errquit.fh"
  #include "mafdecls.fh"
  #include "global.fh"
        INCLUDE 'wrkspc.inc'
        INCLUDE 'glbbas.inc'
        INCLUDE 'lucinp.inc'
  