1 ! 2 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 3 ! C 4 ! Module name: LINE_TOO_BIG (LINE,LINE_LEN,MAXCOL) C 5 ! Purpose: return an error condition if input data is located past C 6 ! column MAXCOL in the data input file C 7 ! C 8 ! Author: P.Nicoletti Date: 25-NOV-91 C 9 ! Reviewer: M.SYAMLAL, W.ROGERS, P.NICOLETTI Date: 24-JAN-92 C 10 ! C 11 ! Revision Number: C 12 ! Purpose: C 13 ! Author: Date: dd-mmm-yy C 14 ! Reviewer: Date: dd-mmm-yy C 15 ! C 16 ! Literature/Document References: C 17 ! C 18 ! Variables referenced: None C 19 ! Variables modified: LINE_TOO_BIG C 20 ! C 21 ! Local variables: L C 22 ! C 23 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 24 ! 25 INTEGER FUNCTION LINE_TOO_BIG (LINE, LINE_LEN, MAXCOL) 26 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 27 !...Switches: -xf 28 IMPLICIT NONE 29 !----------------------------------------------- 30 ! D u m m y A r g u m e n t s 31 !----------------------------------------------- 32 ! 33 ! input data line 34 CHARACTER(LEN=*) :: LINE 35 ! 36 ! length of input data line 37 INTEGER LINE_LEN 38 ! 39 ! maximum column that non-blank charcaters are 40 ! are in the input data line 41 INTEGER MAXCOL 42 !----------------------------------------------- 43 ! L o c a l V a r i a b l e s 44 !----------------------------------------------- 45 ! 46 ! loop index 47 INTEGER :: L 48 !----------------------------------------------- 49 ! 50 ! The function LINE_TOO_BIG returns a value greater than 0 to 51 ! indicate an error condition (data passed column MAXCOL in LINE) 52 ! 53 ! 54 DO L = MAXCOL + 1, LINE_LEN 55 IF (LINE(L:L) /= ' ') THEN 56 LINE_TOO_BIG = L 57 RETURN 58 ENDIF 59 END DO 60 LINE_TOO_BIG = 0 61 RETURN 62 END FUNCTION LINE_TOO_BIG 63