/[MITgcm]/MITgcm/pkg/mnc/mnc_test_utils.T
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_test_utils.T

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by edhill, Mon Jan 5 21:38:27 2004 UTC revision 1.2 by edhill, Sun Jan 25 00:22:57 2004 UTC
# Line 6  C     MNC utilities duplicating things i Line 6  C     MNC utilities duplicating things i
6  C====================================================================  C====================================================================
7  C     Copied from: eesupp/src/utils.F  C     Copied from: eesupp/src/utils.F
8    
9          INTEGER FUNCTION IFNBLNK( string )
10          IMPLICIT NONE
11    
12    C     !DESCRIPTION:
13    C     *==========================================================*
14    C     | FUNCTION IFNBLNK                                         |
15    C     | o Find first non-blank in character string.              |
16    C     *==========================================================*
17    C
18    C     !INPUT PARAMETERS:
19    C     string :: String to find first non-blank in.
20          CHARACTER*(*) string
21    
22    C     !LOCAL VARIABLES:
23    C     L, LS :: Temps for string locations
24          INTEGER L, LS
25    CEOP
26    C
27          LS     = LEN(string)
28          IFNBLNK = 0
29          DO 10 L = 1, LS
30           IF ( string(L:L) .EQ. ' ' ) GOTO 10
31            IFNBLNK = L
32            GOTO 11
33       10 CONTINUE
34       11 CONTINUE
35    C
36          RETURN
37          END
38    
39    C====================================================================
40    C     Copied from: eesupp/src/utils.F
41    
42        INTEGER FUNCTION ILNBLNK( string )        INTEGER FUNCTION ILNBLNK( string )
43        IMPLICIT NONE        IMPLICIT NONE
44    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22