1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: SEEK_COMMENT (LINE_MAXCOL) C 4 ! Purpose: determine if (and where) a comment character appears C 5 ! in a data input line C 6 ! C 7 ! Author: P.Nicoletti Date: 25-NOV-91 C 8 ! Reviewer: M.SYAMLAL, W.ROGERS, P.NICOLETTI Date: 24-JAN-92 C 9 ! C 10 ! Revision Number: C 11 ! Purpose: C 12 ! Author: Date: dd-mmm-yy C 13 ! Reviewer: Date: dd-mmm-yy C 14 ! C 15 ! Literature/Document References: C 16 ! C 17 ! Variables referenced: None C 18 ! Variables modified: SEEK_COMMENT C 19 ! C 20 ! Local variables: DIM_COMMENT, COMMENT_CHAR, L, COMMENT, L2 C 21 ! C 22 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 23 ! 24 INTEGER FUNCTION SEEK_COMMENT (LINE, MAXCOL) 25 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 26 !...Switches: -xf 27 IMPLICIT NONE 28 !----------------------------------------------- 29 ! D u m m y A r g u m e n t s 30 !----------------------------------------------- 31 ! 32 ! input data line 33 CHARACTER(len=*) LINE 34 ! 35 ! maximum column of input data line to search 36 INTEGER MAXCOL 37 ! 38 !----------------------------------------------- 39 ! L o c a l P a r a m e t e r s 40 !----------------------------------------------- 41 ! 42 ! the number of designated comment characters 43 INTEGER, PARAMETER :: DIM_COMMENT = 2 44 !----------------------------------------------- 45 ! L o c a l V a r i a b l e s 46 !----------------------------------------------- 47 ! 48 ! loop indicies 49 INTEGER :: L, L2 50 ! 51 ! the comment characters 52 CHARACTER, DIMENSION(DIM_COMMENT) :: COMMENT_CHAR 53 !----------------------------------------------- 54 ! 55 ! The function SEEK_COMMENT returns the index to where a comment 56 ! character was found in the input data line. Equals MAXCOL + 1 57 ! if no-comment characters in the line 58 ! 59 ! 60 DATA COMMENT_CHAR/'#', '!'/ 61 ! 62 DO L = 1, MAXCOL 63 DO L2 = 1, DIM_COMMENT 64 IF (LINE(L:L) == COMMENT_CHAR(L2)) THEN 65 SEEK_COMMENT = L 66 RETURN 67 ENDIF 68 END DO 69 END DO 70 SEEK_COMMENT = MAXCOL + 1 71 ! 72 RETURN 73 END FUNCTION SEEK_COMMENT 74