34 |
C | o In a non-parallel form these routines can still be used. | |
C | o In a non-parallel form these routines can still be used. | |
35 |
C | to produce pretty printed output! | |
C | to produce pretty printed output! | |
36 |
C \============================================================/ |
C \============================================================/ |
37 |
|
IMPLICIT NONE |
38 |
C == Global data == |
C == Global data == |
39 |
#include "SIZE.h" |
#include "SIZE.h" |
40 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
117 |
C | n @ value | |
C | n @ value | |
118 |
C | record. | |
C | record. | |
119 |
C \==========================================================/ |
C \==========================================================/ |
120 |
|
IMPLICIT NONE |
121 |
|
|
122 |
C == Global data == |
C == Global data == |
123 |
#include "SIZE.h" |
#include "SIZE.h" |
188 |
& WRITE(msgBuf(45:),'(A,1X,A,I3,1X,A)') |
& WRITE(msgBuf(45:),'(A,1X,A,I3,1X,A)') |
189 |
& commOpen,index_lab,iLo,commClose |
& commOpen,index_lab,iLo,commClose |
190 |
ELSE |
ELSE |
191 |
WRITE(msgBuf,'(I,'' '',A,I9,A)') nDup,'@',xOld,punc |
WRITE(msgBuf,'(I5,'' '',A,I9,A)') nDup,'@',xOld,punc |
192 |
IF ( index_type .NE. INDEX_NONE ) |
IF ( index_type .NE. INDEX_NONE ) |
193 |
& WRITE(msgBuf(45:),'(A,1X,A,I3,A,I3,1X,A)') |
& WRITE(msgBuf(45:),'(A,1X,A,I3,A,I3,1X,A)') |
194 |
& commOpen,index_lab,iLo,':',iHi,commClose |
& commOpen,index_lab,iLo,':',iHi,commClose |
210 |
& WRITE(msgBuf(45:),'(A,1X,A,I3,1X,A)') |
& WRITE(msgBuf(45:),'(A,1X,A,I3,1X,A)') |
211 |
& commOpen,index_lab,iLo,commClose |
& commOpen,index_lab,iLo,commClose |
212 |
ELSEIF( nDup .GT. 1 ) THEN |
ELSEIF( nDup .GT. 1 ) THEN |
213 |
WRITE(msgBuf,'(I,'' '',A,I9,A)') nDup,'@',xOld,punc |
WRITE(msgBuf,'(I5,'' '',A,I9,A)') nDup,'@',xOld,punc |
214 |
IF ( index_type .NE. INDEX_NONE ) |
IF ( index_type .NE. INDEX_NONE ) |
215 |
& WRITE(msgBuf(45:),'(A,1X,A,I3,A,I3,1X,A)') |
& WRITE(msgBuf(45:),'(A,1X,A,I3,A,I3,1X,A)') |
216 |
& commOpen,index_lab,iLo,':',iHi,commClose |
& commOpen,index_lab,iLo,':',iHi,commClose |
231 |
C | n @ value | |
C | n @ value | |
232 |
C | record. | |
C | record. | |
233 |
C \==========================================================/ |
C \==========================================================/ |
234 |
|
IMPLICIT NONE |
235 |
|
|
236 |
C == Global data == |
C == Global data == |
237 |
#include "SIZE.h" |
#include "SIZE.h" |
302 |
& WRITE(msgBuf(45:),'(A,1X,A,I3,1X,A)') |
& WRITE(msgBuf(45:),'(A,1X,A,I3,1X,A)') |
303 |
& commOpen,index_lab,iLo,commClose |
& commOpen,index_lab,iLo,commClose |
304 |
ELSE |
ELSE |
305 |
WRITE(msgBuf,'(I,'' '',A,L5,A)') nDup,'@',xOld,punc |
WRITE(msgBuf,'(I5,'' '',A,L5,A)') nDup,'@',xOld,punc |
306 |
IF ( index_type .NE. INDEX_NONE ) |
IF ( index_type .NE. INDEX_NONE ) |
307 |
& WRITE(msgBuf(45:),'(A,1X,A,L3,A,I3,1X,A)') |
& WRITE(msgBuf(45:),'(A,1X,A,L3,A,I3,1X,A)') |
308 |
& commOpen,index_lab,iLo,':',iHi,commClose |
& commOpen,index_lab,iLo,':',iHi,commClose |
324 |
& WRITE(msgBuf(45:),'(A,1X,A,I3,1X,A)') |
& WRITE(msgBuf(45:),'(A,1X,A,I3,1X,A)') |
325 |
& commOpen,index_lab,iLo,commClose |
& commOpen,index_lab,iLo,commClose |
326 |
ELSEIF( nDup .GT. 1 ) THEN |
ELSEIF( nDup .GT. 1 ) THEN |
327 |
WRITE(msgBuf,'(I,'' '',A,L5,A)') nDup,'@',xOld,punc |
WRITE(msgBuf,'(I5,'' '',A,L5,A)') nDup,'@',xOld,punc |
328 |
IF ( index_type .NE. INDEX_NONE ) |
IF ( index_type .NE. INDEX_NONE ) |
329 |
& WRITE(msgBuf(45:),'(A,1X,A,I3,A,I3,1X,A)') |
& WRITE(msgBuf(45:),'(A,1X,A,I3,A,I3,1X,A)') |
330 |
& commOpen,index_lab,iLo,':',iHi,commClose |
& commOpen,index_lab,iLo,':',iHi,commClose |
345 |
C | n @ value | |
C | n @ value | |
346 |
C | record. | |
C | record. | |
347 |
C \==========================================================/ |
C \==========================================================/ |
348 |
|
IMPLICIT NONE |
349 |
|
|
350 |
C == Global data == |
C == Global data == |
351 |
#include "SIZE.h" |
#include "SIZE.h" |
479 |
C | Each plot would have extents iMin:iMax step iStr | |
C | Each plot would have extents iMin:iMax step iStr | |
480 |
C | and jMin:jMax step jStr. | |
C | and jMin:jMax step jStr. | |
481 |
C \==========================================================/ |
C \==========================================================/ |
482 |
|
IMPLICIT NONE |
483 |
|
|
484 |
C == Global variables == |
C == Global variables == |
485 |
#include "SIZE.h" |
#include "SIZE.h" |
549 |
INTEGER lChList |
INTEGER lChList |
550 |
PARAMETER ( lChList = 28 ) |
PARAMETER ( lChList = 28 ) |
551 |
CHARACTER*(lChList) chList |
CHARACTER*(lChList) chList |
552 |
REAL fMin |
_RL fMin |
553 |
REAL fMax |
_RL fMax |
554 |
REAL fRange |
_RL fRange |
555 |
REAL val |
_RL val |
556 |
REAL small |
_RL small |
557 |
CHARACTER*2 accLab |
CHARACTER*2 accLab |
558 |
CHARACTER*7 dwnLab |
CHARACTER*7 dwnLab |
559 |
CHARACTER*3 pltLab |
CHARACTER*3 pltLab |
570 |
LOGICAL validRange |
LOGICAL validRange |
571 |
|
|
572 |
chList = '-abcdefghijklmnopqrstuvwxyz+' |
chList = '-abcdefghijklmnopqrstuvwxyz+' |
573 |
small = 1. _d -15 |
small = 1. _d -15 |
574 |
fMin = 1. _d 32 |
fMin = 1. _d 32 |
575 |
fMax = -1. _d 32 |
fMax = -1. _d 32 |
576 |
validRange = .FALSE. |
validRange = .FALSE. |
577 |
|
|
578 |
C-- Calculate field range |
C-- Calculate field range |
816 |
ELSEIF ( plotMode .EQ. PRINT_MAP_YZ ) THEN |
ELSEIF ( plotMode .EQ. PRINT_MAP_YZ ) THEN |
817 |
val = fld(K,I,J,bk,bi) |
val = fld(K,I,J,bk,bi) |
818 |
ENDIF |
ENDIF |
819 |
IF ( validRange ) THEN |
IF ( validRange .AND. val .NE. 0. ) THEN |
820 |
IDX = NINT( |
IDX = NINT( |
821 |
& FLOAT( lChList-1 )*( val-fMin ) / (fRange) |
& FLOAT( lChList-1 )*( val-fMin ) / (fRange) |
822 |
& )+1 |
& )+1 |
888 |
C | Each plot would have extents iMin:iMax step iStr | |
C | Each plot would have extents iMin:iMax step iStr | |
889 |
C | and jMin:jMax step jStr. | |
C | and jMin:jMax step jStr. | |
890 |
C \==========================================================/ |
C \==========================================================/ |
891 |
|
IMPLICIT NONE |
892 |
|
|
893 |
C == Global variables == |
C == Global variables == |
894 |
#include "SIZE.h" |
#include "SIZE.h" |
958 |
INTEGER lChList |
INTEGER lChList |
959 |
PARAMETER ( lChList = 28 ) |
PARAMETER ( lChList = 28 ) |
960 |
CHARACTER*(lChList) chList |
CHARACTER*(lChList) chList |
961 |
REAL fMin |
_RL fMin |
962 |
REAL fMax |
_RL fMax |
963 |
REAL fRange |
_RL fRange |
964 |
REAL val |
_RL val |
965 |
REAL small |
_RL small |
966 |
CHARACTER*2 accLab |
CHARACTER*2 accLab |
967 |
CHARACTER*7 dwnLab |
CHARACTER*7 dwnLab |
968 |
CHARACTER*3 pltLab |
CHARACTER*3 pltLab |
1224 |
ELSEIF ( plotMode .EQ. PRINT_MAP_YZ ) THEN |
ELSEIF ( plotMode .EQ. PRINT_MAP_YZ ) THEN |
1225 |
val = fld(K,I,J,bk,bi) |
val = fld(K,I,J,bk,bi) |
1226 |
ENDIF |
ENDIF |
1227 |
IF ( validRange ) THEN |
IF ( validRange .AND. val .NE. 0. ) THEN |
1228 |
IDX = NINT( |
IDX = NINT( |
1229 |
& FLOAT( lChList-1 )*( val-fMin ) / (fRange) |
& FLOAT( lChList-1 )*( val-fMin ) / (fRange) |
1230 |
& )+1 |
& )+1 |
1282 |
C | o In a non-parallel form these routines can still be used. | |
C | o In a non-parallel form these routines can still be used. | |
1283 |
C | to produce pretty printed output! | |
C | to produce pretty printed output! | |
1284 |
C \============================================================/ |
C \============================================================/ |
1285 |
|
IMPLICIT NONE |
1286 |
C == Global data == |
C == Global data == |
1287 |
#include "SIZE.h" |
#include "SIZE.h" |
1288 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |