INTEGER*4 FUNCTION GET_RECORD IMPLICIT NONE C C Module: GETRECORD C C Original: George H. Walrod III C C Purpose: To Read next Record C C Corrected Modification: C None C Notes: C None C * PARAMETER + FORMFEED = char(12), ! Keyword + COMMENT = '!', ! Keyword + NORMAL = 1, ! NORMAL Symbol + EOF = 0 ! EOF Symbol LOGICAL*1 + CHECK_EOLN ! Check Eoln Function * INCLUDE 'WATCHREC.INC' INCLUDE 'WATCHWORD.INC' * 100 FORMAT(Q,A) D101 FORMAT(1X,A) 200 FORMAT(' ERROR During File I/O') GET_RECORD = EOF C C Reset Record Pointer, and Echo Read Line of Code C 10 CONTINUE WORD_READY = .false. WORD_LEN = 0 RECORD_PTR = 1 RECORD = ' ' READ (1,100,err=970,end=90) INPUT_LEN, RECORD LINE = LINE + 1 C C Skip Form Feeds and Commented Lines C IF ((RECORD(1:1) .eq. FORMFEED) .or. + (RECORD(1:1) .eq. COMMENT)) GOTO 10 D WRITE(6,101,err=970) RECORD(1:INPUT_LEN) GET_RECORD = NORMAL 90 CONTINUE RETURN C C Error While Trying to READ/WRITE A FILE C 970 CONTINUE WRITE (6,200) CLOSE(UNIT=1,err=999) 999 STOP ' ' END