Symbol Description Uses
gcode 62



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)