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 |