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,EOF
  +          N1,N2,N3,N4,N5,ASym,LR
           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:         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 )
  
negative.code:             found = .true.
              exit outerLoop
            elseIf(NTot.gt.0) then
              Call Rd_Skip(fileinfo%UnitNumber,NTot,LenBuf)
            endIf
            Call Rd_Labl(fileinfo%UnitNumber,IVers,cBuffer,NI,NR,NTot,LenBuf,  &
  