| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
116 |
DIAGNOSTICS_FRACT_FILL |
gcode = gdiag(ndId)(1:10) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
117 |
DIAGNOSTICS_FRACT_FILL |
IF ( gcode(5:5).EQ.'C' ) mate = hdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
154 |
DIAGNOSTICS_FRACT_FILL |
gcode = gdiag(ndId)(1:10) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
156 |
DIAGNOSTICS_FRACT_FILL |
IF ( gcode(5:5).EQ.'C' ) mate = hdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
83 |
DIAGNOSTICS_FRACT_FILL |
CHARACTER*10 gcode |
|
./pkg/diagnostics/diagnostics_out.F |
164 |
DIAGNOSTICS_OUT |
gcode = gdiag(ndId)(1:10) |
|
./pkg/diagnostics/diagnostics_out.F |
169 |
DIAGNOSTICS_OUT |
IF ( gcode(5:5).EQ.'C' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
172 |
DIAGNOSTICS_OUT |
ELSEIF ( gcode(5:5).EQ.'P' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
182 |
DIAGNOSTICS_OUT |
ELSEIF ( gcode(1:1).EQ.'U' .OR. gcode(1:1).EQ.'V' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
186 |
DIAGNOSTICS_OUT |
IF ( idiag(md,listId).NE.0 .AND. gcode(5:5).NE.'D' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
73 |
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 |
155 |
DIAGNOSTICS_SET_LEVELS |
gcode = gdiag(n)(1:10) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
156 |
DIAGNOSTICS_SET_LEVELS |
IF ( ( gcode(5:5).EQ.'C' .OR. gcode(5:5).EQ.'P' ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
160 |
DIAGNOSTICS_SET_LEVELS |
& '" (gdiag(5)=',gcode(5:5),')' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
214 |
DIAGNOSTICS_SET_LEVELS |
gcode = gdiag(n)(1:10) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
217 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' |', hdiag(n), ' |', gcode, '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
221 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' |', hdiag(n), ' |', gcode, '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
225 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' | |', gcode, '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
229 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' | |', gcode, '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
68 |
DIAGNOSTICS_SET_LEVELS |
CHARACTER*10 gcode |
|
./pkg/diagnostics/diagnostics_setdiag.F |
103 |
DIAGNOSTICS_SETDIAG |
gcode = gdiag(nn)(1:10) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
145 |
DIAGNOSTICS_SETDIAG |
IF ( diagIsPP .AND. gcode(5:5).NE.'P' .AND. |
|
./pkg/diagnostics/diagnostics_setdiag.F |
146 |
DIAGNOSTICS_SETDIAG |
& (gcode(1:1).EQ.'U' .OR. gcode(1:1).EQ.'V') ) mate = hdiag(nn) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
148 |
DIAGNOSTICS_SETDIAG |
IF ( gcode(5:5).EQ.'C') THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
52 |
DIAGNOSTICS_SETDIAG |
CHARACTER*10 gcode |
|
./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 |
106 |
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) |