148 |
INTEGER nDup |
INTEGER nDup |
149 |
INTEGER xNew, xOld |
INTEGER xNew, xOld |
150 |
CHARACTER punc |
CHARACTER punc |
151 |
CHARACTER(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
152 |
CHARACTER*2 commOpen,commClose |
CHARACTER*2 commOpen,commClose |
153 |
CHARACTER*3 index_lab |
CHARACTER*3 index_lab |
154 |
INTEGER K |
INTEGER K |
251 |
INTEGER nDup |
INTEGER nDup |
252 |
LOGICAL xNew, xOld |
LOGICAL xNew, xOld |
253 |
CHARACTER punc |
CHARACTER punc |
254 |
CHARACTER(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
255 |
CHARACTER*2 commOpen,commClose |
CHARACTER*2 commOpen,commClose |
256 |
CHARACTER*3 index_lab |
CHARACTER*3 index_lab |
257 |
INTEGER K |
INTEGER K |
354 |
INTEGER nDup |
INTEGER nDup |
355 |
Real*8 xNew, xOld |
Real*8 xNew, xOld |
356 |
CHARACTER punc |
CHARACTER punc |
357 |
CHARACTER(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
358 |
CHARACTER*2 commOpen,commClose |
CHARACTER*2 commOpen,commClose |
359 |
CHARACTER*3 index_lab |
CHARACTER*3 index_lab |
360 |
INTEGER K |
INTEGER K |
414 |
END |
END |
415 |
|
|
416 |
CStartOfInterface |
CStartOfInterface |
417 |
SUBROUTINE PRINT_MAPR4 ( fld, fldTitle, plotMode, |
SUBROUTINE PRINT_MAPRS ( fld, fldTitle, plotMode, |
418 |
I iLo, iHi, jLo, jHi, kLo, kHi, nBx, nBy, |
I iLo, iHi, jLo, jHi, kLo, kHi, nBx, nBy, |
419 |
I iMin, iMax, iStr, |
I iMin, iMax, iStr, |
420 |
I jMin, jMax, jStr, |
I jMin, jMax, jStr, |
469 |
INTEGER jLo, jHi |
INTEGER jLo, jHi |
470 |
INTEGER kLo, kHi |
INTEGER kLo, kHi |
471 |
INTEGER nBx, nBy |
INTEGER nBx, nBy |
472 |
Real*4 fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy) |
_RS fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy) |
473 |
INTEGER iMin, iMax, iStr |
INTEGER iMin, iMax, iStr |
474 |
INTEGER jMin, jMax, jStr |
INTEGER jMin, jMax, jStr |
475 |
INTEGER kMin, kMax, kStr |
INTEGER kMin, kMax, kStr |
808 |
END |
END |
809 |
|
|
810 |
CStartOfInterface |
CStartOfInterface |
811 |
SUBROUTINE PRINT_MAPR8 ( fld, fldTitle, plotMode, |
SUBROUTINE PRINT_MAPRL ( fld, fldTitle, plotMode, |
812 |
I iLo, iHi, jLo, jHi, kLo, kHi, nBx, nBy, |
I iLo, iHi, jLo, jHi, kLo, kHi, nBx, nBy, |
813 |
I iMin, iMax, iStr, |
I iMin, iMax, iStr, |
814 |
I jMin, jMax, jStr, |
I jMin, jMax, jStr, |
816 |
I bxMin, bxMax, bxStr, |
I bxMin, bxMax, bxStr, |
817 |
I byMin, byMax, byStr ) |
I byMin, byMax, byStr ) |
818 |
C /==========================================================\ |
C /==========================================================\ |
819 |
C | SUBROUTINE PRINT_MAPR8 | |
C | SUBROUTINE PRINT_MAPRL | |
820 |
C | o Does textual mapping printing of a field. | |
C | o Does textual mapping printing of a field. | |
821 |
C |==========================================================| |
C |==========================================================| |
822 |
C | This routine does the actual formatting of the data | |
C | This routine does the actual formatting of the data | |
863 |
INTEGER jLo, jHi |
INTEGER jLo, jHi |
864 |
INTEGER kLo, kHi |
INTEGER kLo, kHi |
865 |
INTEGER nBx, nBy |
INTEGER nBx, nBy |
866 |
Real*8 fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy) |
_RL fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy) |
867 |
INTEGER iMin, iMax, iStr |
INTEGER iMin, iMax, iStr |
868 |
INTEGER jMin, jMax, jStr |
INTEGER jMin, jMax, jStr |
869 |
INTEGER kMin, kMax, kStr |
INTEGER kMin, kMax, kStr |