anchor.diff:  *
   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'
  
positive.code: *
        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,*) ' I2ADDR_GN  = ', I2ADDR_GN
        end if
  *
  
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'
  