anchor.diff:  *
         i2addr = 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  = ', i2addr
         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: *
        i2addr2 = 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,*) ' i2addr2  = ', i2addr2
        end if
  *
  