anchor.diff:          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,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
  !
  
negative.code:           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
          endDo
          if(i==1) then
            write(*,*)' Inside re-open block.'
            my_filename = TRIM(fileinfo%filename)
  