1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: SEEK_END (LINE, MAXCOL) C 4 ! Purpose: determine where trailing blanks begin in a line C 5 ! C 6 ! Author: P.Nicoletti, M. Syamlal Date: 7-AUG-92 C 7 ! Reviewer: M. Syamlal Date: 11-DEC-92 C 8 ! C 9 ! Literature/Document References: C 10 ! C 11 ! Variables referenced: None C 12 ! Variables modified: SEEK_END C 13 ! C 14 ! Local variables: L C 15 ! C 16 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 17 ! 18 INTEGER FUNCTION SEEK_END (LINE, MAXCOL) 19 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 20 !...Switches: -xf 21 IMPLICIT NONE 22 !----------------------------------------------- 23 ! D u m m y A r g u m e n t s 24 !----------------------------------------------- 25 ! 26 ! maximum column of input data line to search 27 INTEGER MAXCOL 28 ! 29 ! input data line 30 CHARACTER LINE*(*) 31 !----------------------------------------------- 32 ! L o c a l V a r i a b l e s 33 !----------------------------------------------- 34 INTEGER :: L 35 !----------------------------------------------- 36 ! 37 ! The function SEEK_END returns the index to where the last 38 ! character was found in the input data line. Equals MAXCOL 39 ! if no trailing blank characters in the line 40 ! 41 ! 42 SEEK_END = 0 43 DO L = 1, MAXCOL 44 IF (LINE(L:L) /= ' ') SEEK_END = L 45 END DO 46 RETURN 47 END FUNCTION SEEK_END 48