| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/DIAGSTATS_REGIONS.h |
33 |
NO PROCEDURE |
INTEGER diagSt_kRegMsk(0:nRegions) |
|
./pkg/diagnostics/DIAGSTATS_REGIONS.h |
39 |
NO PROCEDURE |
& diagSt_kRegMsk, nSetRegMask, |
|
./pkg/diagnostics/diagnostics_readparms.F |
388 |
DIAGNOSTICS_READPARMS |
diagSt_kRegMsk(j) = 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
392 |
DIAGNOSTICS_READPARMS |
diagSt_kRegMsk(0) = 1 |
|
./pkg/diagnostics/diagnostics_readparms.F |
421 |
DIAGNOSTICS_READPARMS |
diagSt_kRegMsk(j) = set_regMask(k) |
|
./pkg/diagnostics/diagstats_local.F |
112 |
DIAGSTATS_LOCAL |
kRegMsk = diagSt_kRegMsk(n) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
154 |
DIAGSTATS_SET_POINTERS |
IF ( diagSt_kRegMsk(j).LT.1 .OR. |
|
./pkg/diagnostics/diagstats_set_pointers.F |
155 |
DIAGSTATS_SET_POINTERS |
& diagSt_kRegMsk(j).GT.nSetRegMask ) THEN |
|
./pkg/diagnostics/diagstats_set_pointers.F |
157 |
DIAGSTATS_SET_POINTERS |
& ' region', j, ' undefined (k=', diagSt_kRegMsk(j), |
|
./pkg/diagnostics/diagstats_set_regions.F |
133 |
DIAGSTATS_SET_REGIONS |
IF ( diagSt_kRegMsk(j).LT.0 .OR. |
|
./pkg/diagnostics/diagstats_set_regions.F |
134 |
DIAGSTATS_SET_REGIONS |
& diagSt_kRegMsk(j).GT.sizRegMsk ) THEN |
|
./pkg/diagnostics/diagstats_set_regions.F |
136 |
DIAGSTATS_SET_REGIONS |
& '(region',j,') invalid region-mask index :',diagSt_kRegMsk(j) |
|
./pkg/diagnostics/diagstats_set_regions.F |
140 |
DIAGSTATS_SET_REGIONS |
ELSEIF ( diagSt_kRegMsk(j).GT.nSetRegMask ) THEN |
|
./pkg/diagnostics/diagstats_set_regions.F |
142 |
DIAGSTATS_SET_REGIONS |
& 'region',j,' , kRegMsk=', diagSt_kRegMsk(j), |
|
./pkg/diagnostics/diagstats_set_regions.F |
146 |
DIAGSTATS_SET_REGIONS |
ELSEIF ( diagSt_kRegMsk(j).NE.0 ) THEN |
|
./pkg/diagnostics/diagstats_set_regions.F |
173 |
DIAGSTATS_SET_REGIONS |
IF ( diagSt_kRegMsk(j).NE.0 ) THEN |
|
./pkg/diagnostics/diagstats_set_regions.F |
208 |
DIAGSTATS_SET_REGIONS |
flag = flag .OR. diagSt_kRegMsk(j).NE.0 |