| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
108 |
DIAGNOSTICS_FRACT_FILL |
gcode = gdiag(ndId)(1:10) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
109 |
DIAGNOSTICS_FRACT_FILL |
IF ( gcode(5:5).EQ.'C' ) mate = hdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
147 |
DIAGNOSTICS_FRACT_FILL |
gcode = gdiag(ndId)(1:10) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
149 |
DIAGNOSTICS_FRACT_FILL |
IF ( gcode(5:5).EQ.'C' ) mate = hdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
82 |
DIAGNOSTICS_FRACT_FILL |
CHARACTER*10 gcode |
|
./pkg/diagnostics/diagnostics_out.F |
313 |
DIAGNOSTICS_OUT |
gcode = gdiag(ndId)(1:10) |
|
./pkg/diagnostics/diagnostics_out.F |
316 |
DIAGNOSTICS_OUT |
IF ( gcode(5:5).EQ.'C' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
319 |
DIAGNOSTICS_OUT |
ELSEIF ( gcode(1:1).EQ.'U' .OR. gcode(1:1).EQ.'V' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
323 |
DIAGNOSTICS_OUT |
IF ( idiag(md,listId).NE.0 .AND. gcode(5:5).NE.'D' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
71 |
DIAGNOSTICS_OUT |
CHARACTER*10 gcode |
|
./pkg/diagnostics/diagnostics_set_levels.F |
130 |
DIAGNOSTICS_SET_LEVELS |
gcode = gdiag(n)(1:10) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
131 |
DIAGNOSTICS_SET_LEVELS |
IF ( ( gcode(3:3).EQ.'r' .OR. gcode(3:3).EQ.'R' ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
132 |
DIAGNOSTICS_SET_LEVELS |
& .AND. gcode(10:10).NE.'R' ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
134 |
DIAGNOSTICS_SET_LEVELS |
& 'inconsistent gdiag(3&10)="',gcode,'" for diag."',cdiag(n),'"' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
205 |
DIAGNOSTICS_SET_LEVELS |
gcode = gdiag(n)(1:10) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
208 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' |', hdiag(n), ' |', gcode, '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
212 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' |', hdiag(n), ' |', gcode, '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
216 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' | |', gcode, '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
220 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' | |', gcode, '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
69 |
DIAGNOSTICS_SET_LEVELS |
CHARACTER*10 gcode |
|
./pkg/diagnostics/diagnostics_setdiag.F |
112 |
DIAGNOSTICS_SETDIAG |
IF ( gcode(5:5).EQ.'C') THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
52 |
DIAGNOSTICS_SETDIAG |
CHARACTER*10 gcode |
|
./pkg/diagnostics/diagnostics_setdiag.F |
60 |
DIAGNOSTICS_SETDIAG |
gcode = gdiag(ndId)(1:10) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
103 |
DIAGNOSTICS_SUM_LEVELS |
IF ( gcode(9:9).EQ.'L' ) THEN |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
121 |
DIAGNOSTICS_SUM_LEVELS |
ELSEIF ( gcode(3:3).EQ.'R' ) THEN |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
124 |
DIAGNOSTICS_SUM_LEVELS |
IF ( gcode(2:2).EQ.'M' ) THEN |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
127 |
DIAGNOSTICS_SUM_LEVELS |
IF ( gcode(9:9).EQ.'L' ) THEN |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
140 |
DIAGNOSTICS_SUM_LEVELS |
ELSEIF ( gcode(2:2).EQ.'U' ) THEN |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
143 |
DIAGNOSTICS_SUM_LEVELS |
IF ( gcode(9:9).EQ.'L' ) THEN |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
156 |
DIAGNOSTICS_SUM_LEVELS |
ELSEIF ( gcode(2:2).EQ.'V' ) THEN |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
159 |
DIAGNOSTICS_SUM_LEVELS |
IF ( gcode(9:9).EQ.'L' ) THEN |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
172 |
DIAGNOSTICS_SUM_LEVELS |
ELSEIF ( gcode(2:2).EQ.'Z' ) THEN |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
175 |
DIAGNOSTICS_SUM_LEVELS |
IF ( gcode(9:9).EQ.'L' ) THEN |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
63 |
DIAGNOSTICS_SUM_LEVELS |
CHARACTER*(10) gcode |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
69 |
DIAGNOSTICS_SUM_LEVELS |
gcode = gdiag(ndId)(1:10) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
81 |
DIAGNOSTICS_SUM_LEVELS |
IF ( gcode(3:3).EQ.' ' ) THEN |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
98 |
DIAGNOSTICS_SUM_LEVELS |
ELSEIF ( gcode(3:3).EQ.'r' ) THEN |
|
./pkg/diagnostics/diagstats_output.F |
54 |
DIAGSTATS_OUTPUT |
CHARACTER*10 gcode |
|
./pkg/diagnostics/diagstats_output.F |
73 |
DIAGSTATS_OUTPUT |
gcode = gdiag(ndId)(1:10) |
|
./pkg/diagnostics/diagstats_output.F |
74 |
DIAGSTATS_OUTPUT |
IF ( iSdiag(m,listId).NE.0 .AND. gcode(5:5).NE.'D' ) THEN |
|
./pkg/diagnostics/diagstats_output.F |
77 |
DIAGSTATS_OUTPUT |
IF ( gcode(5:5).EQ.'C' ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
108 |
DIAGSTATS_SETDIAG |
IF ( gcode(5:5).EQ.'C') THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
52 |
DIAGSTATS_SETDIAG |
CHARACTER*10 gcode |
|
./pkg/diagnostics/diagstats_setdiag.F |
60 |
DIAGSTATS_SETDIAG |
gcode = gdiag(ndId)(1:8) |