638 |
ENDDO |
ENDDO |
639 |
ENDDO |
ENDDO |
640 |
fRange = fMax-fMin |
fRange = fMax-fMin |
641 |
IF ( fRange .GT. small ) THEN |
IF ( fRange .GT. small .AND. |
642 |
validRange = .TRUE. |
& (MAX_LEN_PLOTBUF-35) .GT. sNx*nSx .AND. |
643 |
ENDIF |
& (MAX_LEN_PLOTBUF-35) .GT. sNy*nSy ) validRange = .TRUE. |
644 |
|
|
645 |
C-- Write field title and statistics |
C-- Write field title and statistics |
646 |
msgBuf = |
msgBuf = |
799 |
pltStep = sNy |
pltStep = sNy |
800 |
pltLab = 'J =' |
pltLab = 'J =' |
801 |
ENDIF |
ENDIF |
802 |
C IF ( validRange ) THEN |
IF ( validRange ) THEN |
803 |
C Header |
C Header |
804 |
C Data |
C Data |
805 |
DO bk=pltBlo, pltBhi, pltBstr |
DO bk=pltBlo, pltBhi, pltBstr |
883 |
ENDDO |
ENDDO |
884 |
ENDDO |
ENDDO |
885 |
ENDDO |
ENDDO |
886 |
C ENDIF |
ENDIF |
887 |
C-- Write delimiter |
C-- Write delimiter |
888 |
msgBuf = |
msgBuf = |
889 |
& '// =======================================================' |
& '// =======================================================' |
1055 |
ENDDO |
ENDDO |
1056 |
ENDDO |
ENDDO |
1057 |
fRange = fMax-fMin |
fRange = fMax-fMin |
1058 |
IF ( fRange .GT. small ) THEN |
IF ( fRange .GT. small .AND. |
1059 |
validRange = .TRUE. |
& (MAX_LEN_PLOTBUF-35) .GT. sNx*nSx .AND. |
1060 |
ENDIF |
& (MAX_LEN_PLOTBUF-35) .GT. sNy*nSy ) validRange = .TRUE. |
1061 |
|
|
1062 |
C-- Write field title and statistics |
C-- Write field title and statistics |
1063 |
msgBuf = |
msgBuf = |
1216 |
pltStep = sNy |
pltStep = sNy |
1217 |
pltLab = 'J =' |
pltLab = 'J =' |
1218 |
ENDIF |
ENDIF |
1219 |
C IF ( validRange ) THEN |
IF ( validRange ) THEN |
1220 |
C Header |
C Header |
1221 |
C Data |
C Data |
1222 |
DO bk=pltBlo, pltBhi, pltBstr |
DO bk=pltBlo, pltBhi, pltBstr |
1297 |
ENDDO |
ENDDO |
1298 |
ENDDO |
ENDDO |
1299 |
ENDDO |
ENDDO |
1300 |
C ENDIF |
ENDIF |
1301 |
C-- Write delimiter |
C-- Write delimiter |
1302 |
msgBuf = |
msgBuf = |
1303 |
& '// =======================================================' |
& '// =======================================================' |