anchor.diff:        iline = ADJUSTL(iline)                                             ! Adjust to left
         comm = INDEX(iline, ' ')                                           ! Get space position
         fname = TRIM(ADJUSTL(iline(comm+1:200)))                           ! Get card file name
  -      farr(FINDLOC(uarr, bunit)) = fname                                 ! Change default file name for error notification
  +      farr(GETLOC(uarr, bunit)) = fname                                 ! Change default file name for error notification
         CALL openFile(xunit, fname, card, 'CARD File Open Failed--status') ! Open card file
         CALL inp_comments(xunit, cunit, '!')                               ! Remove comments in card file
         ! Begin read card in a separated file
  
positive.code: END IF
  
  END SUBROUTINE er_message
  
  !******************************************************************************!
  
  
negative.code:   IF (PRESENT(xtab)) THEN
      WRITE(funit, 1005) ln, xtab
    ELSE
      WRITE(funit, 1006) carr(GETLOC(uarr,buf))
      WRITE(funit, 1004) ln, farr(GETLOC(uarr,buf))
    END IF
    WRITE(funit,*) mess
    IF (PRESENT(xtab)) THEN
      WRITE(*, 1005) ln, xtab
    ELSE
      WRITE(*, 1006) carr(GETLOC(uarr,buf))
      WRITE(*, 1004) ln, farr(GETLOC(uarr,buf))
    END IF
    WRITE(*,*) mess
    1006 FORMAT(2X, 'ERROR: THERE IS AN ERROR IN CARD %', A4)
  