anchor.diff:  *
         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,*) 'i j k l ', i,j,k,l
  +      write(6,*) ' ibloff ijkl ',ibloff,ijkl
           write(6,*) ' i2addr2  = ', i2addr2
         end if
   *
  
positive.code: *
        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,*) ' i2addr  = ', i2addr
        end if
  *
  
negative.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
  *
  