| File |
Line number |
Procedure |
Code |
|
./eesupp/src/write_utils.F |
112 |
WRITE_1D_L |
INTEGER lFld |
|
./eesupp/src/write_utils.F |
113 |
WRITE_1D_L |
LOGICAL fld(lFld) |
|
./eesupp/src/write_utils.F |
126 |
WRITE_1D_L |
CALL PRINT_LIST_L( fld, 1, lFld, index_type, .FALSE., |
|
./eesupp/src/write_utils.F |
140 |
WRITE_1D_RL |
SUBROUTINE WRITE_1D_RL( fld, lFld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
170 |
WRITE_1D_RL |
INTEGER lFld |
|
./eesupp/src/write_utils.F |
171 |
WRITE_1D_RL |
_RL fld(lFld) |
|
./eesupp/src/write_utils.F |
189 |
WRITE_1D_RL |
& .AND. lFld.GT.maxLengthPrt1D ) THEN |
|
./eesupp/src/write_utils.F |
193 |
WRITE_1D_RL |
DO i= 2,lFld |
|
./eesupp/src/write_utils.F |
206 |
WRITE_1D_RL |
CALL PRINT_LIST_RL( fld, 1, lFld, index_type, .FALSE., |
|
./eesupp/src/write_utils.F |
213 |
WRITE_1D_RL |
ic = (lFld-1)*(j-1)/4 |
|
./eesupp/src/write_utils.F |
216 |
WRITE_1D_RL |
IF ( ic*4 .LT. (lFld-1)*(j-1) ) i2=i2+1 |
|
./eesupp/src/write_utils.F |
218 |
WRITE_1D_RL |
i2 = MIN(i2,lFld) |
|
./eesupp/src/write_utils.F |
225 |
WRITE_1D_RL |
i1 = MAX(lFld-2,1) |
|
./eesupp/src/write_utils.F |
226 |
WRITE_1D_RL |
i2 = lFld |
|
./eesupp/src/write_utils.F |
28 |
WRITE_1D_I |
SUBROUTINE WRITE_1D_I( fld, lFld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
56 |
WRITE_1D_I |
INTEGER lFld |
|
./eesupp/src/write_utils.F |
57 |
WRITE_1D_I |
INTEGER fld(lFld) |
|
./eesupp/src/write_utils.F |
581 |
WRITE_0D_C |
SUBROUTINE WRITE_0D_C( fld, lFld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
611 |
WRITE_0D_C |
INTEGER lFld |
|
./eesupp/src/write_utils.F |
630 |
WRITE_0D_C |
IF ( lFld .GT. 0 ) THEN |
|
./eesupp/src/write_utils.F |
631 |
WRITE_0D_C |
iL = MIN( lFld, iL ) |
|
./eesupp/src/write_utils.F |
632 |
WRITE_0D_C |
ELSEIF ( lFld .LT. 0 ) THEN |
|
./eesupp/src/write_utils.F |
635 |
WRITE_0D_C |
IF ( lFld .EQ. -2 ) iS = IFNBLNK(fld) |
|
./eesupp/src/write_utils.F |
663 |
WRITE_COPY1D_R4 |
I fld, lFld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
692 |
WRITE_COPY1D_R4 |
INTEGER lFld |
|
./eesupp/src/write_utils.F |
693 |
WRITE_COPY1D_R4 |
_RL tmpBufRL(lFld) |
|
./eesupp/src/write_utils.F |
694 |
WRITE_COPY1D_R4 |
Real*4 fld(lFld) |
|
./eesupp/src/write_utils.F |
704 |
WRITE_COPY1D_R4 |
DO i=1,lFld |
|
./eesupp/src/write_utils.F |
707 |
WRITE_COPY1D_R4 |
CALL WRITE_1D_RL( tmpBufRL, lFld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
70 |
WRITE_1D_I |
CALL PRINT_LIST_I( fld, 1, lFld, index_type, .FALSE., |
|
./eesupp/src/write_utils.F |
719 |
WRITE_COPY1D_R8 |
I fld, lFld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
748 |
WRITE_COPY1D_R8 |
INTEGER lFld |
|
./eesupp/src/write_utils.F |
749 |
WRITE_COPY1D_R8 |
_RL tmpBufRL(lFld) |
|
./eesupp/src/write_utils.F |
750 |
WRITE_COPY1D_R8 |
Real*8 fld(lFld) |
|
./eesupp/src/write_utils.F |
760 |
WRITE_COPY1D_R8 |
DO i=1,lFld |
|
./eesupp/src/write_utils.F |
763 |
WRITE_COPY1D_R8 |
CALL WRITE_1D_RL( tmpBufRL, lFld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
775 |
WRITE_COPY1D_RS |
I fld, lFld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
804 |
WRITE_COPY1D_RS |
INTEGER lFld |
|
./eesupp/src/write_utils.F |
805 |
WRITE_COPY1D_RS |
_RL tmpBufRL(lFld) |
|
./eesupp/src/write_utils.F |
806 |
WRITE_COPY1D_RS |
_RS fld(lFld) |
|
./eesupp/src/write_utils.F |
816 |
WRITE_COPY1D_RS |
DO i=1,lFld |
|
./eesupp/src/write_utils.F |
819 |
WRITE_COPY1D_RS |
CALL WRITE_1D_RL( tmpBufRL, lFld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
84 |
WRITE_1D_L |
SUBROUTINE WRITE_1D_L( fld, lFld, index_type, head, comment ) |