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 |
171 |
DIAGNOSTICS_OUT |
gcode = gdiag(ndId)(1:10) |
./pkg/diagnostics/diagnostics_out.F |
176 |
DIAGNOSTICS_OUT |
IF ( gcode(5:5).EQ.'C' ) THEN |
./pkg/diagnostics/diagnostics_out.F |
179 |
DIAGNOSTICS_OUT |
ELSEIF ( gcode(5:5).EQ.'P' ) THEN |
./pkg/diagnostics/diagnostics_out.F |
189 |
DIAGNOSTICS_OUT |
ELSEIF ( gcode(1:1).EQ.'U' .OR. gcode(1:1).EQ.'V' ) THEN |
./pkg/diagnostics/diagnostics_out.F |
193 |
DIAGNOSTICS_OUT |
IF ( idiag(md,listId).NE.0 .AND. gcode(5:5).NE.'D' ) THEN |
./pkg/diagnostics/diagnostics_out.F |
70 |
DIAGNOSTICS_OUT |
CHARACTER*10 gcode |
./pkg/diagnostics/diagnostics_set_levels.F |
131 |
DIAGNOSTICS_SET_LEVELS |
gcode = gdiag(n)(1:10) |
./pkg/diagnostics/diagnostics_set_levels.F |
132 |
DIAGNOSTICS_SET_LEVELS |
IF ( ( gcode(3:3).EQ.'r' .OR. gcode(3:3).EQ.'R' ) |
./pkg/diagnostics/diagnostics_set_levels.F |
133 |
DIAGNOSTICS_SET_LEVELS |
& .AND. gcode(10:10).NE.'R' ) THEN |
./pkg/diagnostics/diagnostics_set_levels.F |
135 |
DIAGNOSTICS_SET_LEVELS |
& 'inconsistent gdiag(3&10)="',gcode,'" for diag."',cdiag(n),'"' |
./pkg/diagnostics/diagnostics_set_levels.F |
156 |
DIAGNOSTICS_SET_LEVELS |
gcode = gdiag(n)(1:10) |
./pkg/diagnostics/diagnostics_set_levels.F |
157 |
DIAGNOSTICS_SET_LEVELS |
IF ( ( gcode(5:5).EQ.'C' .OR. gcode(5:5).EQ.'P' ) |
./pkg/diagnostics/diagnostics_set_levels.F |
161 |
DIAGNOSTICS_SET_LEVELS |
& '" (gdiag(5)=',gcode(5:5),')' |
./pkg/diagnostics/diagnostics_set_levels.F |
215 |
DIAGNOSTICS_SET_LEVELS |
gcode = gdiag(n)(1:10) |
./pkg/diagnostics/diagnostics_set_levels.F |
218 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' |', hdiag(n), ' |', gcode, '|', |
./pkg/diagnostics/diagnostics_set_levels.F |
222 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' |', hdiag(n), ' |', gcode, '|', |
./pkg/diagnostics/diagnostics_set_levels.F |
226 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' | |', gcode, '|', |
./pkg/diagnostics/diagnostics_set_levels.F |
230 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' | |', gcode, '|', |
./pkg/diagnostics/diagnostics_set_levels.F |
68 |
DIAGNOSTICS_SET_LEVELS |
CHARACTER*10 gcode |
./pkg/diagnostics/diagnostics_setdiag.F |
116 |
DIAGNOSTICS_SETDIAG |
gcode = gdiag(nn)(1:10) |
./pkg/diagnostics/diagnostics_setdiag.F |
158 |
DIAGNOSTICS_SETDIAG |
IF ( diagIsPP .AND. gcode(5:5).NE.'P' .AND. |
./pkg/diagnostics/diagnostics_setdiag.F |
159 |
DIAGNOSTICS_SETDIAG |
& (gcode(1:1).EQ.'U' .OR. gcode(1:1).EQ.'V') ) mate = hdiag(nn) |
./pkg/diagnostics/diagnostics_setdiag.F |
161 |
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 |
69 |
DIAGNOSTICS_SETDIAG |
gcode = gdiag(ndId)(1:10) |
./pkg/diagnostics/diagnostics_setdiag.F |
70 |
DIAGNOSTICS_SETDIAG |
use_hFac = ( gcode(2:2).EQ.'U' .OR. gcode(2:2).EQ.'V' |
./pkg/diagnostics/diagnostics_setdiag.F |
71 |
DIAGNOSTICS_SETDIAG |
& .OR. gcode(2:2).EQ.'M' ) |
./pkg/diagnostics/diagnostics_setdiag.F |
72 |
DIAGNOSTICS_SETDIAG |
use_hFac = use_hFac .AND. gcode(9:10).EQ.'MR' |
./pkg/diagnostics/diagnostics_setdiag.F |
73 |
DIAGNOSTICS_SETDIAG |
& .AND. gcode(3:3).EQ.'R' |
./pkg/diagnostics/diagnostics_setdiag.F |
74 |
DIAGNOSTICS_SETDIAG |
& .AND. gcode(5:5).EQ.' ' |
./pkg/diagnostics/diagnostics_sum_levels.F |
100 |
DIAGNOSTICS_SUM_LEVELS |
ELSEIF ( gcode(3:3).EQ.'r' .OR. |
./pkg/diagnostics/diagnostics_sum_levels.F |
101 |
DIAGNOSTICS_SUM_LEVELS |
& (gcode(3:3).EQ.'R' .AND. wFac) ) THEN |
./pkg/diagnostics/diagnostics_sum_levels.F |
106 |
DIAGNOSTICS_SUM_LEVELS |
IF ( gcode(9:9).EQ.'L' ) THEN |
./pkg/diagnostics/diagnostics_sum_levels.F |
124 |
DIAGNOSTICS_SUM_LEVELS |
ELSEIF ( gcode(3:3).EQ.'R' ) THEN |
./pkg/diagnostics/diagnostics_sum_levels.F |
127 |
DIAGNOSTICS_SUM_LEVELS |
IF ( gcode(2:2).EQ.'M' ) THEN |
./pkg/diagnostics/diagnostics_sum_levels.F |
130 |
DIAGNOSTICS_SUM_LEVELS |
IF ( gcode(9:9).EQ.'L' ) THEN |
./pkg/diagnostics/diagnostics_sum_levels.F |
143 |
DIAGNOSTICS_SUM_LEVELS |
ELSEIF ( gcode(2:2).EQ.'U' ) THEN |
./pkg/diagnostics/diagnostics_sum_levels.F |
146 |
DIAGNOSTICS_SUM_LEVELS |
IF ( gcode(9:9).EQ.'L' ) THEN |
./pkg/diagnostics/diagnostics_sum_levels.F |
159 |
DIAGNOSTICS_SUM_LEVELS |
ELSEIF ( gcode(2:2).EQ.'V' ) THEN |
./pkg/diagnostics/diagnostics_sum_levels.F |
162 |
DIAGNOSTICS_SUM_LEVELS |
IF ( gcode(9:9).EQ.'L' ) THEN |
./pkg/diagnostics/diagnostics_sum_levels.F |
175 |
DIAGNOSTICS_SUM_LEVELS |
ELSEIF ( gcode(2:2).EQ.'Z' ) THEN |
./pkg/diagnostics/diagnostics_sum_levels.F |
178 |
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 |
70 |
DIAGNOSTICS_SUM_LEVELS |
gcode = gdiag(ndId)(1:10) |
./pkg/diagnostics/diagnostics_sum_levels.F |
83 |
DIAGNOSTICS_SUM_LEVELS |
IF ( gcode(3:3).EQ.' ' ) THEN |
./pkg/diagnostics/diagstats_output.F |
49 |
DIAGSTATS_OUTPUT |
CHARACTER*10 gcode |
./pkg/diagnostics/diagstats_output.F |
68 |
DIAGSTATS_OUTPUT |
gcode = gdiag(ndId)(1:10) |
./pkg/diagnostics/diagstats_output.F |
69 |
DIAGSTATS_OUTPUT |
IF ( iSdiag(m,listId).NE.0 .AND. gcode(5:5).NE.'D' ) THEN |
./pkg/diagnostics/diagstats_output.F |
72 |
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) |