anchor.diff:    IF (PRESENT(xtab)) THEN
       WRITE(funit, 1014) ln, xtab
     ELSE
  -    WRITE(funit, 1006) carr(FINDLOC(uarr,buf))
  -    WRITE(funit, 1013) ln, farr(FINDLOC(uarr,buf))
  +    WRITE(funit, 1006) carr(GETLOC(uarr,buf))
  +    WRITE(funit, 1013) ln, farr(GETLOC(uarr,buf))
     END IF
     WRITE(funit,*) mess
     IF (PRESENT(xtab)) THEN
       WRITE(*, 1014) ln, xtab
     ELSE
  -    WRITE(*, 1006) carr(FINDLOC(uarr,buf))
  -    WRITE(*, 1013) ln, farr(FINDLOC(uarr,buf))
  +    WRITE(*, 1006) carr(GETLOC(uarr,buf))
  +    WRITE(*, 1013) ln, farr(GETLOC(uarr,buf))
     END IF
     WRITE(*,*) mess
     1013 FORMAT(2x, 'THIS LINE NEEDS MORE INPUT DATA. LINE', I4, &
  
positive.code:   IF (PRESENT(xtab)) THEN
      WRITE(funit, 1005) ln, xtab
    ELSE
      WRITE(funit, 1006) carr(FINDLOC(uarr,buf))
      WRITE(funit, 1004) ln, farr(FINDLOC(uarr,buf))
    END IF
    WRITE(funit,*) mess
    IF (PRESENT(xtab)) THEN
      WRITE(*, 1005) ln, xtab
    ELSE
      WRITE(*, 1006) carr(FINDLOC(uarr,buf))
      WRITE(*, 1004) ln, farr(FINDLOC(uarr,buf))
    END IF
    WRITE(*,*) mess
    1006 FORMAT(2X, 'ERROR: THERE IS AN ERROR IN CARD %', A4)
  
negative.code:       iline = ADJUSTL(iline)                                             ! Adjust to left
        comm = INDEX(iline, ' ')                                           ! Get space position
        fname = TRIM(ADJUSTL(iline(comm+1:200)))                           ! Get card file name
        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
  