MITgcm_contrib/cg2d_bench/utils.F

C       $Id$    
C--   File utils.F: General purpose support routines
C--    Contents
C--   IFNBLNK         - Returns index of first non-blank string character.
C--   ILNBLNK         - Returns index of last non-blank string character.


CStartOfInterface
      INTEGER FUNCTION IFNBLNK( string )
C     /==========================================================\
C     | FUNCTION IFNBLNK                                         |
C     | o Find first non-blank in character string.              |
C     \==========================================================/
C
      CHARACTER*(*) string
CEndOfInterface
C
      INTEGER L, LS
C
      LS     = LEN(string)
      IFNBLNK = 0
      DO 10 L = 1, LS
       IF ( string(L:L) .EQ. ' ' ) GOTO 10
        IFNBLNK = L
        GOTO 11
   10 CONTINUE
   11 CONTINUE
C
      RETURN
      END

CStartOfInterface
      INTEGER FUNCTION ILNBLNK( string )
C     /==========================================================\
C     | FUNCTION ILNBLNK                                         |
C     | o Find last non-blank in character string.               |
C     \==========================================================/
      CHARACTER*(*) string
CEndOfInterface
      INTEGER L, LS
C
      LS      = LEN(string)
      ILNBLNK = LS
      DO 10 L = LS, 1, -1
        IF ( string(L:L) .EQ. ' ' ) GOTO 10
         ILNBLNK = L
         GOTO 11
   10 CONTINUE
   11 CONTINUE
C
      RETURN
      END
1	ce107	1.2	C $Id$
2	ce107	1.1	C-- File utils.F: General purpose support routines
3			C-- Contents
4			C-- IFNBLNK - Returns index of first non-blank string character.
5			C-- ILNBLNK - Returns index of last non-blank string character.
6
7
8			CStartOfInterface
9			INTEGER FUNCTION IFNBLNK( string )
10			C /==========================================================\
11			C \| FUNCTION IFNBLNK \|
12			C \| o Find first non-blank in character string. \|
13			C \==========================================================/
14			C
15			CHARACTER() string
16			CEndOfInterface
17			C
18			INTEGER L, LS
19			C
20			LS = LEN(string)
21			IFNBLNK = 0
22			DO 10 L = 1, LS
23			IF ( string(L:L) .EQ. ' ' ) GOTO 10
24			IFNBLNK = L
25			GOTO 11
26			10 CONTINUE
27			11 CONTINUE
28			C
29			RETURN
30			END
31
32			CStartOfInterface
33			INTEGER FUNCTION ILNBLNK( string )
34			C /==========================================================\
35			C \| FUNCTION ILNBLNK \|
36			C \| o Find last non-blank in character string. \|
37			C \==========================================================/
38			CHARACTER() string
39			CEndOfInterface
40			INTEGER L, LS
41			C
42			LS = LEN(string)
43			ILNBLNK = LS
44			DO 10 L = LS, 1, -1
45			IF ( string(L:L) .EQ. ' ' ) GOTO 10
46			ILNBLNK = L
47			GOTO 11
48			10 CONTINUE
49			11 CONTINUE
50			C
51			RETURN
52			END