/[MITgcm]/MITgcm/eesupp/src/utils.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/utils.F

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

revision 1.5 by cnh, Wed Oct 28 03:11:35 1998 UTC revision 1.6 by adcroft, Tue May 18 17:39:22 1999 UTC
# Line 20  C     /================================= Line 20  C     /=================================
20  C     | SUBROUTINE DATE                                          |  C     | SUBROUTINE DATE                                          |
21  C     | o Return current date                                    |  C     | o Return current date                                    |
22  C     \==========================================================/  C     \==========================================================/
23          IMPLICIT NONE
24  #include "SIZE.h"  #include "SIZE.h"
25  #include "EEPARAMS.h"  #include "EEPARAMS.h"
26  C  C
# Line 71  C     /================================= Line 72  C     /=================================
72  C     | FUNCTION IFNBLNK                                         |  C     | FUNCTION IFNBLNK                                         |
73  C     | o Find first non-blank in character string.              |  C     | o Find first non-blank in character string.              |
74  C     \==========================================================/  C     \==========================================================/
75          IMPLICIT NONE
76  C  C
77        CHARACTER*(*) string        CHARACTER*(*) string
78  CEndOfInterface  CEndOfInterface
# Line 95  C     /================================= Line 97  C     /=================================
97  C     | FUNCTION ILNBLNK                                         |  C     | FUNCTION ILNBLNK                                         |
98  C     | o Find last non-blank in character string.               |  C     | o Find last non-blank in character string.               |
99  C     \==========================================================/  C     \==========================================================/
100          IMPLICIT NONE
101        CHARACTER*(*) string        CHARACTER*(*) string
102  CEndOfInterface  CEndOfInterface
103        INTEGER L, LS        INTEGER L, LS
# Line 117  C     /================================= Line 120  C     /=================================
120  C     | FUNCTION IO_ERRCOUNT                                     |  C     | FUNCTION IO_ERRCOUNT                                     |
121  C     | o Reads IO error counter.                                |  C     | o Reads IO error counter.                                |
122  C     \==========================================================/  C     \==========================================================/
123          IMPLICIT NONE
124  C     == Global variables ==  C     == Global variables ==
125  #include "SIZE.h"  #include "SIZE.h"
126  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 138  C     /================================= Line 141  C     /=================================
141  C     | SUBROUTINE LCASE                                         |  C     | SUBROUTINE LCASE                                         |
142  C     | o Convert character string to all lower case.            |  C     | o Convert character string to all lower case.            |
143  C     \==========================================================/  C     \==========================================================/
144          IMPLICIT NONE
145        CHARACTER*(*) string        CHARACTER*(*) string
146  CEndOfInterface  CEndOfInterface
147        CHARACTER*26  LOWER        CHARACTER*26  LOWER
# Line 163  C     /================================= Line 167  C     /=================================
167  C     | SUBROUTINE MACHINE                                       |  C     | SUBROUTINE MACHINE                                       |
168  C     | o Return computer identifier in string.                  |  C     | o Return computer identifier in string.                  |
169  C     \==========================================================/  C     \==========================================================/
170          IMPLICIT NONE
171  #include "SIZE.h"  #include "SIZE.h"
172  #include "EEPARAMS.h"  #include "EEPARAMS.h"
173        CHARACTER*(*) string        CHARACTER*(*) string
# Line 219  C Line 224  C
224        END        END
225  C***********************************************************************  C***********************************************************************
226        SUBROUTINE UCASE ( string )        SUBROUTINE UCASE ( string )
227          IMPLICIT NONE
228  C     Translate string to upper case.  C     Translate string to upper case.
229        CHARACTER*(*) string        CHARACTER*(*) string
230        CHARACTER*26  LOWER        CHARACTER*26  LOWER
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22