7 |
C-- U DATE - Returns date and time. |
C-- U DATE - Returns date and time. |
8 |
C-- IFNBLNK - Returns index of first non-blank string character. |
C-- IFNBLNK - Returns index of first non-blank string character. |
9 |
C-- ILNBLNK - Returns index of last non-blank string character. |
C-- ILNBLNK - Returns index of last non-blank string character. |
10 |
|
C-- IO_ERRCOUNT - Reads IO error counter. |
11 |
C-- LCASE - Translates to lower case. |
C-- LCASE - Translates to lower case. |
12 |
C--UM MACHINE - Returns character string identifying computer. |
C--UM MACHINE - Returns character string identifying computer. |
13 |
C-- TIMER_INDEX - Returns index associated with timer name. |
C-- TIMER_INDEX - Returns index associated with timer name. |
111 |
RETURN |
RETURN |
112 |
END |
END |
113 |
|
|
114 |
|
CStartofinterface |
115 |
|
INTEGER FUNCTION IO_ERRCOUNT(myThid) |
116 |
|
C /==========================================================\ |
117 |
|
C | FUNCTION IO_ERRCOUNT | |
118 |
|
C | o Reads IO error counter. | |
119 |
|
C \==========================================================/ |
120 |
|
|
121 |
|
C == Global variables == |
122 |
|
#include "SIZE.h" |
123 |
|
#include "EEPARAMS.h" |
124 |
|
#include "DFILE.h" |
125 |
|
|
126 |
|
C == Routine arguments == |
127 |
|
INTEGER myThid |
128 |
|
CEndofinterface |
129 |
|
|
130 |
|
IO_ERRCOUNT = ioErrorCount(myThid) |
131 |
|
|
132 |
|
RETURN |
133 |
|
END |
134 |
|
|
135 |
CStartOfInterface |
CStartOfInterface |
136 |
SUBROUTINE LCASE ( string ) |
SUBROUTINE LCASE ( string ) |
137 |
C /==========================================================\ |
C /==========================================================\ |