| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/DIAGNOSTICS.h |
113 |
NO PROCEDURE |
& nlists, idiag, mdiag, jdiag |
|
./pkg/diagnostics/DIAGNOSTICS.h |
96 |
NO PROCEDURE |
INTEGER mdiag(numperlist,numlists) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
110 |
DIAGNOSTICS_FRACT_FILL |
IF ( mdiag(m,n).EQ.0 ) mate = 0 |
|
./pkg/diagnostics/diagnostics_out.F |
333 |
DIAGNOSTICS_OUT |
im = mdiag(md,listId) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
133 |
DIAGNOSTICS_SET_POINTERS |
IF (mdiag(md,ld).EQ.0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
140 |
DIAGNOSTICS_SET_POINTERS |
IF ( mdiag(md,ld).EQ.0 .AND. jdiag(i,j).EQ.mate ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
141 |
DIAGNOSTICS_SET_POINTERS |
mdiag(md,ld) = ABS(idiag(i,j)) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
146 |
DIAGNOSTICS_SET_POINTERS |
IF ( mdiag(md,ld).NE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
50 |
DIAGNOSTICS_SET_POINTERS |
mdiag(md,ld) = 0 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
87 |
DIAGNOSTICS_SET_POINTERS |
idiag(mm,ld) = mdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
128 |
DIAGNOSTICS_SETDIAG |
mdiag(mId,listId) = ABS(idiag(k,l)) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
136 |
DIAGNOSTICS_SETDIAG |
mdiag(mId,listId) = ndiagmx + 1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
78 |
DIAGNOSTICS_SETDIAG |
mdiag(mId,listId) = mdiag(k,l) |
|
./pkg/diagnostics/diagnostics_summary.F |
115 |
DIAGNOSTICS_SUMMARY |
& mdiag(md,ld),' |', kdiag(jdiag(md,ld)),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
148 |
DIAGNOSTICS_SUMMARY |
im = mdiag(md,ld) |