Symbol Description Uses
g10code 11


File Line number Procedure Code
./pkg/diagnostics/diagnostics_set_levels.F 100 DIAGNOSTICS_SET_LEVELS 
        ELSEIF ( g10code .EQ. 'G' ) THEN
./pkg/diagnostics/diagnostics_set_levels.F 102 DIAGNOSTICS_SET_LEVELS 
        ELSEIF ( g10code .EQ. 'g' ) THEN
./pkg/diagnostics/diagnostics_set_levels.F 104 DIAGNOSTICS_SET_LEVELS 
        ELSEIF ( g10code .EQ. 'X' ) THEN
./pkg/diagnostics/diagnostics_set_levels.F 115 DIAGNOSTICS_SET_LEVELS 
     &     'invalid gdiag(10)="', g10code, '" code for diag."',
./pkg/diagnostics/diagnostics_set_levels.F 69 DIAGNOSTICS_SET_LEVELS 
      CHARACTER*1  g10code
./pkg/diagnostics/diagnostics_set_levels.F 89 DIAGNOSTICS_SET_LEVELS 
        g10code = gdiag(n)(10:10)
./pkg/diagnostics/diagnostics_set_levels.F 90 DIAGNOSTICS_SET_LEVELS 
        IF     ( g10code .EQ. '0' ) THEN
./pkg/diagnostics/diagnostics_set_levels.F 92 DIAGNOSTICS_SET_LEVELS 
        ELSEIF ( g10code .EQ. '1' ) THEN
./pkg/diagnostics/diagnostics_set_levels.F 94 DIAGNOSTICS_SET_LEVELS 
        ELSEIF ( g10code .EQ. 'R' ) THEN
./pkg/diagnostics/diagnostics_set_levels.F 96 DIAGNOSTICS_SET_LEVELS 
        ELSEIF ( g10code .EQ. 'L' ) THEN
./pkg/diagnostics/diagnostics_set_levels.F 98 DIAGNOSTICS_SET_LEVELS 
        ELSEIF ( g10code .EQ. 'M' ) THEN