anchor.diff:            N1,N2,N3,N4,N5,ASym,NRI,EOF)
           LR = LenArr(N1,N2,N3,N4,N5)
           if(DEBUG) write(IOut,1010) TRIM(cBuffer),NI,NR,NRI,NTot,LenBuf,  &
  -          N1,N2,N3,N4,N5,ASym,LR
  +          N1,N2,N3,N4,N5,ASym,LR,EOF
           do while(.not.EOF)
  +          write(*,*)' Hrant - EOF  = ',EOF
  +          write(*,*)'         NTot = ',NTot
  +          write(*,*)
             call String_Change_Case(cBuffer,'u')
             if(TRIM(tmpLabel) == TRIM(cBuffer)) then
   !
  
positive.code: !     header scalar flags.
  !
        if(.not.fileinfo%header_read) then
  
          fileinfo%readWriteMode = 'R'
          allocate(fileinfo%natoms,fileinfo%nbasis,fileinfo%nbasisUse,fileinfo%icharge, &
            fileinfo%multiplicity,fileinfo%nelectrons,fileinfo%icgu,fileinfo%NFC, &
  
negative.code: !     Format statements.
  !
   1010 format(' Label ',A48,' NI=',I2,' NR=',I2,' NRI=',I1,' NTot=',  &
          I8,' LenBuf=',I8,' N=',5I6,' ASym=',L1,' LR=',I5,' EOF=',L1)
   1020 Format( " " )!
   1040 Format( A, I15 )
   1050 Format( 2A )
  