anchor.diff:              end select
               found = .true.
               exit outerLoop
  -          else
  +          elseIf(NTot.gt.0) then
  +            write(*,*)' Hrant - Calling Rd_Skip with NTot = ',NTot
               Call Rd_Skip(fileinfo%UnitNumber,NTot,LenBuf)
             endIf
             Call Rd_Labl(fileinfo%UnitNumber,IVers,cBuffer,NI,NR,NTot,LenBuf,  &
               N1,N2,N3,N4,N5,ASym,NRI,EOF)
             LR = LenArr(N1,N2,N3,N4,N5)
  +          EOF = EOF.or.cBuffer.eq.'END'
             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
           endDo
  +        write(*,*)
  +        write(*,*)' Hrant - EOF reached...i=',i
           if(i==1) then
  +          write(*,*)' Inside re-open block.'
             my_filename = TRIM(fileinfo%filename)
  +          write(*,*)' my_filename = ',TRIM(my_filename)
             call fileinfo%CLOSEFILE()
  +          write(*,*)' Just closed the file.'
             call MQC_Gaussian_Unformatted_Matrix_Read_Header(fileinfo,  &
               my_filename)
  +          write(*,*)' Just re-opened the file.'
           endIf
         endDo outerLoop
         if(.not.found) then
  +        write(*,*)
  +        write(*,*)' Hrant - HIT .not.found ERROR Trap'
  +        write(*,*)
           errorMsg = 'Could NOT find requested matrix file label "'//TRIM(label)//'".'
           call MQC_Error_L(errorMsg, 6, &
                'found', found )
  
positive.code:           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
          do while(.not.EOF)
            call String_Change_Case(cBuffer,'u')
            if(TRIM(tmpLabel) == TRIM(cBuffer)) then
  !
  
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 )
  