Symbol Description Uses
arrType select which array & fraction (RL/RS) to process: 235



File Line number Procedure Code
./pkg/mdsio/mdsio_gl.F 1035 MDSREADFIELD_2D_GL
            if (arrType .eq. 'RS') then
./pkg/mdsio/mdsio_gl.F 1037 MDSREADFIELD_2D_GL
            elseif (arrType .eq. 'RL') then
./pkg/mdsio/mdsio_gl.F 1050 MDSREADFIELD_2D_GL
            if (arrType .eq. 'RS') then
./pkg/mdsio/mdsio_gl.F 1052 MDSREADFIELD_2D_GL
            elseif (arrType .eq. 'RL') then
./pkg/mdsio/mdsio_gl.F 1171 MDSWRITEFIELD_2D_GL
     I   arrType,
./pkg/mdsio/mdsio_gl.F 1223 MDSWRITEFIELD_2D_GL
      character*(2) arrType
./pkg/mdsio/mdsio_gl.F 1441 MDSWRITEFIELD_2D_GL
            if (arrType .eq. 'RS') then
./pkg/mdsio/mdsio_gl.F 1443 MDSWRITEFIELD_2D_GL
            elseif (arrType .eq. 'RL') then
./pkg/mdsio/mdsio_gl.F 1456 MDSWRITEFIELD_2D_GL
            if (arrType .eq. 'RS') then
./pkg/mdsio/mdsio_gl.F 1458 MDSWRITEFIELD_2D_GL
            elseif (arrType .eq. 'RL') then
./pkg/mdsio/mdsio_gl.F 18 MDSREADFIELD_3D_GL
     I   arrType,
./pkg/mdsio/mdsio_gl.F 274 MDSREADFIELD_3D_GL
            if (arrType .eq. 'RS') then
./pkg/mdsio/mdsio_gl.F 276 MDSREADFIELD_3D_GL
            elseif (arrType .eq. 'RL') then
./pkg/mdsio/mdsio_gl.F 289 MDSREADFIELD_3D_GL
            if (arrType .eq. 'RS') then
./pkg/mdsio/mdsio_gl.F 291 MDSREADFIELD_3D_GL
            elseif (arrType .eq. 'RL') then
./pkg/mdsio/mdsio_gl.F 410 MDSWRITEFIELD_3D_GL
     I   arrType,
./pkg/mdsio/mdsio_gl.F 462 MDSWRITEFIELD_3D_GL
      character*(2) arrType
./pkg/mdsio/mdsio_gl.F 60 MDSREADFIELD_3D_GL
      character*(2) arrType
./pkg/mdsio/mdsio_gl.F 678 MDSWRITEFIELD_3D_GL
            if (arrType .eq. 'RS') then
./pkg/mdsio/mdsio_gl.F 680 MDSWRITEFIELD_3D_GL
            elseif (arrType .eq. 'RL') then
./pkg/mdsio/mdsio_gl.F 693 MDSWRITEFIELD_3D_GL
            if (arrType .eq. 'RS') then
./pkg/mdsio/mdsio_gl.F 695 MDSWRITEFIELD_3D_GL
            elseif (arrType .eq. 'RL') then
./pkg/mdsio/mdsio_gl.F 778 MDSREADFIELD_2D_GL
     I   arrType,
./pkg/mdsio/mdsio_gl.F 820 MDSREADFIELD_2D_GL
      character*(2) arrType
./pkg/mdsio/mdsio_gl_slice.F 177 MDSREADFIELD_XZ_GL
            if (arrType .eq. 'RS') then
./pkg/mdsio/mdsio_gl_slice.F 179 MDSREADFIELD_XZ_GL
            elseif (arrType .eq. 'RL') then
./pkg/mdsio/mdsio_gl_slice.F 18 MDSREADFIELD_XZ_GL
     I   arrType,
./pkg/mdsio/mdsio_gl_slice.F 192 MDSREADFIELD_XZ_GL
            if (arrType .eq. 'RS') then
./pkg/mdsio/mdsio_gl_slice.F 194 MDSREADFIELD_XZ_GL
            elseif (arrType .eq. 'RL') then
./pkg/mdsio/mdsio_gl_slice.F 246 MDSREADFIELD_YZ_GL
     I   arrType,
./pkg/mdsio/mdsio_gl_slice.F 288 MDSREADFIELD_YZ_GL
      character*(2) arrType
./pkg/mdsio/mdsio_gl_slice.F 404 MDSREADFIELD_YZ_GL
            if (arrType .eq. 'RS') then
./pkg/mdsio/mdsio_gl_slice.F 406 MDSREADFIELD_YZ_GL
            elseif (arrType .eq. 'RL') then
./pkg/mdsio/mdsio_gl_slice.F 419 MDSREADFIELD_YZ_GL
            if (arrType .eq. 'RS') then
./pkg/mdsio/mdsio_gl_slice.F 421 MDSREADFIELD_YZ_GL
            elseif (arrType .eq. 'RL') then
./pkg/mdsio/mdsio_gl_slice.F 473 MDSWRITEFIELD_XZ_GL
     I   arrType,
./pkg/mdsio/mdsio_gl_slice.F 525 MDSWRITEFIELD_XZ_GL
      character*(2) arrType
./pkg/mdsio/mdsio_gl_slice.F 60 MDSREADFIELD_XZ_GL
      character*(2) arrType
./pkg/mdsio/mdsio_gl_slice.F 610 MDSWRITEFIELD_XZ_GL
            if (arrType .eq. 'RS') then
./pkg/mdsio/mdsio_gl_slice.F 612 MDSWRITEFIELD_XZ_GL
            elseif (arrType .eq. 'RL') then
./pkg/mdsio/mdsio_gl_slice.F 625 MDSWRITEFIELD_XZ_GL
            if (arrType .eq. 'RS') then
./pkg/mdsio/mdsio_gl_slice.F 627 MDSWRITEFIELD_XZ_GL
            elseif (arrType .eq. 'RL') then
./pkg/mdsio/mdsio_gl_slice.F 701 MDSWRITEFIELD_YZ_GL
     I   arrType,
./pkg/mdsio/mdsio_gl_slice.F 753 MDSWRITEFIELD_YZ_GL
      character*(2) arrType
./pkg/mdsio/mdsio_gl_slice.F 838 MDSWRITEFIELD_YZ_GL
            if (arrType .eq. 'RS') then
./pkg/mdsio/mdsio_gl_slice.F 840 MDSWRITEFIELD_YZ_GL
            elseif (arrType .eq. 'RL') then
./pkg/mdsio/mdsio_gl_slice.F 853 MDSWRITEFIELD_YZ_GL
            if (arrType .eq. 'RS') then
./pkg/mdsio/mdsio_gl_slice.F 855 MDSWRITEFIELD_YZ_GL
            elseif (arrType .eq. 'RL') then
./pkg/mdsio/mdsio_read_field.F 13 MDS_READ_FIELD
     I   arrType,
./pkg/mdsio/mdsio_read_field.F 307 MDS_READ_FIELD
          IF ( arrType.EQ.'RS' ) THEN
./pkg/mdsio/mdsio_read_field.F 310 MDS_READ_FIELD
          ELSEIF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_read_field.F 328 MDS_READ_FIELD
          IF ( arrType.EQ.'RS' ) THEN
./pkg/mdsio/mdsio_read_field.F 331 MDS_READ_FIELD
          ELSEIF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_read_field.F 515 MDS_READ_FIELD
          IF ( arrType.EQ.'RS' ) THEN
./pkg/mdsio/mdsio_read_field.F 518 MDS_READ_FIELD
          ELSEIF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_read_field.F 529 MDS_READ_FIELD
          IF ( arrType.EQ.'RS' ) THEN
./pkg/mdsio/mdsio_read_field.F 532 MDS_READ_FIELD
          ELSEIF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_read_field.F 85 MDS_READ_FIELD
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_read_section.F 20 MDS_READ_SEC_XZ
     I   arrType,
./pkg/mdsio/mdsio_read_section.F 230 MDS_READ_SEC_XZ
            IF (arrType .EQ. 'RS') THEN
./pkg/mdsio/mdsio_read_section.F 233 MDS_READ_SEC_XZ
            ELSEIF (arrType .EQ. 'RL') THEN
./pkg/mdsio/mdsio_read_section.F 247 MDS_READ_SEC_XZ
            IF (arrType .EQ. 'RS') THEN
./pkg/mdsio/mdsio_read_section.F 250 MDS_READ_SEC_XZ
            ELSEIF (arrType .EQ. 'RL') THEN
./pkg/mdsio/mdsio_read_section.F 297 MDS_READ_SEC_YZ
     I   arrType,
./pkg/mdsio/mdsio_read_section.F 346 MDS_READ_SEC_YZ
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_read_section.F 508 MDS_READ_SEC_YZ
            IF (arrType .EQ. 'RS') THEN
./pkg/mdsio/mdsio_read_section.F 511 MDS_READ_SEC_YZ
            ELSEIF (arrType .EQ. 'RL') THEN
./pkg/mdsio/mdsio_read_section.F 525 MDS_READ_SEC_YZ
            IF (arrType .EQ. 'RS') THEN
./pkg/mdsio/mdsio_read_section.F 528 MDS_READ_SEC_YZ
            ELSEIF (arrType .EQ. 'RL') THEN
./pkg/mdsio/mdsio_read_section.F 69 MDS_READ_SEC_XZ
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_readvec_loc.F 13 MDS_READVEC_LOC
     I   arrType,
./pkg/mdsio/mdsio_readvec_loc.F 199 MDS_READVEC_LOC
         IF ( arrType.EQ.'RS' ) THEN
./pkg/mdsio/mdsio_readvec_loc.F 202 MDS_READVEC_LOC
         ELSEIF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_readvec_loc.F 63 MDS_READVEC_LOC
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_readvector.F 195 MDSREADVECTOR
          IF ( arrType.EQ.'RS' ) THEN
./pkg/mdsio/mdsio_readvector.F 198 MDSREADVECTOR
          ELSEIF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_readvector.F 319 MDSREADVECTOR
        IF ( arrType.EQ.'RS' ) THEN
./pkg/mdsio/mdsio_readvector.F 321 MDSREADVECTOR
        ELSEIF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_readvector.F 45 MDSREADVECTOR
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_readvector.F 9 MDSREADVECTOR
     I   arrType,
./pkg/mdsio/mdsio_rw_field.F 117 MDSREADFIELD_LOC
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_rw_field.F 128 MDSREADFIELD_LOC
      IF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_rw_field.F 130 MDSREADFIELD_LOC
     I                fName, filePrec, .TRUE., arrType, nNz, 1, nNz,
./pkg/mdsio/mdsio_rw_field.F 135 MDSREADFIELD_LOC
     I                fName, filePrec, .TRUE., arrType, nNz, 1, nNz,
./pkg/mdsio/mdsio_rw_field.F 153 MDSWRITEFIELD
     I   arrType,
./pkg/mdsio/mdsio_rw_field.F 188 MDSWRITEFIELD
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_rw_field.F 200 MDSWRITEFIELD
      IF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_rw_field.F 203 MDSWRITEFIELD
     I                 arrType, nNz, 1, nNz, arr, dummyRS,
./pkg/mdsio/mdsio_rw_field.F 208 MDSWRITEFIELD
     I                 arrType, nNz, 1, nNz, dummyRL, arr,
./pkg/mdsio/mdsio_rw_field.F 20 MDSREADFIELD
     I   arrType,
./pkg/mdsio/mdsio_rw_field.F 225 MDSWRITEFIELD_LOC
     I   arrType,
./pkg/mdsio/mdsio_rw_field.F 260 MDSWRITEFIELD_LOC
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_rw_field.F 272 MDSWRITEFIELD_LOC
      IF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_rw_field.F 275 MDSWRITEFIELD_LOC
     I                 arrType, nNz, 1, nNz, arr, dummyRS,
./pkg/mdsio/mdsio_rw_field.F 280 MDSWRITEFIELD_LOC
     I                 arrType, nNz, 1, nNz, dummyRL, arr,
./pkg/mdsio/mdsio_rw_field.F 51 MDSREADFIELD
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_rw_field.F 62 MDSREADFIELD
      IF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_rw_field.F 64 MDSREADFIELD
     I                fName, filePrec, .FALSE., arrType, nNz, 1, nNz,
./pkg/mdsio/mdsio_rw_field.F 69 MDSREADFIELD
     I                fName, filePrec, .FALSE., arrType, nNz, 1, nNz,
./pkg/mdsio/mdsio_rw_field.F 86 MDSREADFIELD_LOC
     I   arrType,
./pkg/mdsio/mdsio_rw_slice.F 119 MDSREADFIELDYZ
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_rw_slice.F 130 MDSREADFIELDYZ
      IF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_rw_slice.F 132 MDSREADFIELDYZ
     I                fName, filePrec, .FALSE., arrType, nNz,
./pkg/mdsio/mdsio_rw_slice.F 137 MDSREADFIELDYZ
     I                fName, filePrec, .FALSE., arrType, nNz,
./pkg/mdsio/mdsio_rw_slice.F 154 MDSREADFIELDXZ_LOC
     I   arrType,
./pkg/mdsio/mdsio_rw_slice.F 184 MDSREADFIELDXZ_LOC
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_rw_slice.F 195 MDSREADFIELDXZ_LOC
      IF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_rw_slice.F 197 MDSREADFIELDXZ_LOC
     I                fName, filePrec, .TRUE., arrType, nNz,
./pkg/mdsio/mdsio_rw_slice.F 202 MDSREADFIELDXZ_LOC
     I                fName, filePrec, .TRUE., arrType, nNz,
./pkg/mdsio/mdsio_rw_slice.F 219 MDSREADFIELDYZ_LOC
     I   arrType,
./pkg/mdsio/mdsio_rw_slice.F 249 MDSREADFIELDYZ_LOC
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_rw_slice.F 24 MDSREADFIELDXZ
     I   arrType,
./pkg/mdsio/mdsio_rw_slice.F 260 MDSREADFIELDYZ_LOC
      IF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_rw_slice.F 262 MDSREADFIELDYZ_LOC
     I                fName, filePrec, .TRUE., arrType, nNz,
./pkg/mdsio/mdsio_rw_slice.F 267 MDSREADFIELDYZ_LOC
     I                fName, filePrec, .TRUE., arrType, nNz,
./pkg/mdsio/mdsio_rw_slice.F 285 MDSWRITEFIELDXZ
     I   arrType,
./pkg/mdsio/mdsio_rw_slice.F 319 MDSWRITEFIELDXZ
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_rw_slice.F 331 MDSWRITEFIELDXZ
      IF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_rw_slice.F 334 MDSWRITEFIELDXZ
     I                 arrType, nNz, arr, dummyRS,
./pkg/mdsio/mdsio_rw_slice.F 339 MDSWRITEFIELDXZ
     I                 arrType, nNz, dummyRL, arr,
./pkg/mdsio/mdsio_rw_slice.F 356 MDSWRITEFIELDYZ
     I   arrType,
./pkg/mdsio/mdsio_rw_slice.F 390 MDSWRITEFIELDYZ
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_rw_slice.F 402 MDSWRITEFIELDYZ
      IF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_rw_slice.F 405 MDSWRITEFIELDYZ
     I                 arrType, nNz, arr, dummyRS,
./pkg/mdsio/mdsio_rw_slice.F 410 MDSWRITEFIELDYZ
     I                 arrType, nNz, dummyRL, arr,
./pkg/mdsio/mdsio_rw_slice.F 427 MDSWRITEFIELDXZ_LOC
     I   arrType,
./pkg/mdsio/mdsio_rw_slice.F 461 MDSWRITEFIELDXZ_LOC
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_rw_slice.F 473 MDSWRITEFIELDXZ_LOC
      IF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_rw_slice.F 476 MDSWRITEFIELDXZ_LOC
     I                 arrType, nNz, arr, dummyRS,
./pkg/mdsio/mdsio_rw_slice.F 481 MDSWRITEFIELDXZ_LOC
     I                 arrType, nNz, dummyRL, arr,
./pkg/mdsio/mdsio_rw_slice.F 498 MDSWRITEFIELDYZ_LOC
     I   arrType,
./pkg/mdsio/mdsio_rw_slice.F 532 MDSWRITEFIELDYZ_LOC
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_rw_slice.F 544 MDSWRITEFIELDYZ_LOC
      IF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_rw_slice.F 547 MDSWRITEFIELDYZ_LOC
     I                 arrType, nNz, arr, dummyRS,
./pkg/mdsio/mdsio_rw_slice.F 54 MDSREADFIELDXZ
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_rw_slice.F 552 MDSWRITEFIELDYZ_LOC
     I                 arrType, nNz, dummyRL, arr,
./pkg/mdsio/mdsio_rw_slice.F 65 MDSREADFIELDXZ
      IF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_rw_slice.F 67 MDSREADFIELDXZ
     I                fName, filePrec, .FALSE., arrType, nNz,
./pkg/mdsio/mdsio_rw_slice.F 72 MDSREADFIELDXZ
     I                fName, filePrec, .FALSE., arrType, nNz,
./pkg/mdsio/mdsio_rw_slice.F 89 MDSREADFIELDYZ
     I   arrType,
./pkg/mdsio/mdsio_write_field.F 14 MDS_WRITE_FIELD
     I   arrType,
./pkg/mdsio/mdsio_write_field.F 266 MDS_WRITE_FIELD
          IF ( arrType.EQ.'RS' ) THEN
./pkg/mdsio/mdsio_write_field.F 269 MDS_WRITE_FIELD
          ELSEIF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_write_field.F 274 MDS_WRITE_FIELD
     &      ' MDS_WRITE_FIELD: illegal value for arrType=', arrType
./pkg/mdsio/mdsio_write_field.F 287 MDS_WRITE_FIELD
          IF ( arrType.EQ.'RS' ) THEN
./pkg/mdsio/mdsio_write_field.F 290 MDS_WRITE_FIELD
          ELSEIF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_write_field.F 295 MDS_WRITE_FIELD
     &      ' MDS_WRITE_FIELD: illegal value for arrType=', arrType
./pkg/mdsio/mdsio_write_field.F 351 MDS_WRITE_FIELD
          IF ( arrType.EQ.'RS' ) THEN
./pkg/mdsio/mdsio_write_field.F 354 MDS_WRITE_FIELD
          ELSEIF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_write_field.F 359 MDS_WRITE_FIELD
     &      ' MDS_WRITE_FIELD: illegal value for arrType=', arrType
./pkg/mdsio/mdsio_write_field.F 365 MDS_WRITE_FIELD
          IF ( arrType.EQ.'RS' ) THEN
./pkg/mdsio/mdsio_write_field.F 368 MDS_WRITE_FIELD
          ELSEIF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_write_field.F 373 MDS_WRITE_FIELD
     &      ' MDS_WRITE_FIELD: illegal value for arrType=', arrType
./pkg/mdsio/mdsio_write_field.F 99 MDS_WRITE_FIELD
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_write_section.F 197 MDS_WRITE_SEC_XZ
            IF (arrType .EQ. 'RS') THEN
./pkg/mdsio/mdsio_write_section.F 200 MDS_WRITE_SEC_XZ
            ELSEIF (arrType .EQ. 'RL') THEN
./pkg/mdsio/mdsio_write_section.F 214 MDS_WRITE_SEC_XZ
            IF (arrType .EQ. 'RS') THEN
./pkg/mdsio/mdsio_write_section.F 217 MDS_WRITE_SEC_XZ
            ELSEIF (arrType .EQ. 'RL') THEN
./pkg/mdsio/mdsio_write_section.F 21 MDS_WRITE_SEC_XZ
     I   arrType,
./pkg/mdsio/mdsio_write_section.F 275 MDS_WRITE_SEC_YZ
     I   arrType,
./pkg/mdsio/mdsio_write_section.F 329 MDS_WRITE_SEC_YZ
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_write_section.F 450 MDS_WRITE_SEC_YZ
            IF (arrType .EQ. 'RS') THEN
./pkg/mdsio/mdsio_write_section.F 453 MDS_WRITE_SEC_YZ
            ELSEIF (arrType .EQ. 'RL') THEN
./pkg/mdsio/mdsio_write_section.F 467 MDS_WRITE_SEC_YZ
            IF (arrType .EQ. 'RS') THEN
./pkg/mdsio/mdsio_write_section.F 470 MDS_WRITE_SEC_YZ
            ELSEIF (arrType .EQ. 'RL') THEN
./pkg/mdsio/mdsio_write_section.F 75 MDS_WRITE_SEC_XZ
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_writelocal.F 13 MDS_WRITELOCAL
     I   arrType,
./pkg/mdsio/mdsio_writelocal.F 222 MDS_WRITELOCAL
          IF ( arrType.EQ.'RS' ) THEN
./pkg/mdsio/mdsio_writelocal.F 225 MDS_WRITELOCAL
          ELSEIF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_writelocal.F 235 MDS_WRITELOCAL
          IF ( arrType.EQ.'RS' ) THEN
./pkg/mdsio/mdsio_writelocal.F 238 MDS_WRITELOCAL
          ELSEIF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_writelocal.F 91 MDS_WRITELOCAL
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_writevec_loc.F 13 MDS_WRITEVEC_LOC
     I   arrType,
./pkg/mdsio/mdsio_writevec_loc.F 188 MDS_WRITEVEC_LOC
          IF ( arrType.EQ.'RS' ) THEN
./pkg/mdsio/mdsio_writevec_loc.F 191 MDS_WRITEVEC_LOC
          ELSEIF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_writevec_loc.F 64 MDS_WRITEVEC_LOC
      CHARACTER*(2) arrType
./pkg/mdsio/mdsio_writevector.F 10 MDSWRITEVECTOR
     I   arrType,
./pkg/mdsio/mdsio_writevector.F 154 MDSWRITEVECTOR
        IF ( arrType.EQ.'RS' ) THEN
./pkg/mdsio/mdsio_writevector.F 156 MDSWRITEVECTOR
        ELSEIF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_writevector.F 287 MDSWRITEVECTOR
          IF ( arrType.EQ.'RS' ) THEN
./pkg/mdsio/mdsio_writevector.F 290 MDSWRITEVECTOR
          ELSEIF ( arrType.EQ.'RL' ) THEN
./pkg/mdsio/mdsio_writevector.F 52 MDSWRITEVECTOR
      CHARACTER*(2) arrType
./pkg/diagnostics/diagnostics_fill.F 137 DIAGNOSTICS_FILL
     I              scaleFact, 1, arrType, 0,
./pkg/diagnostics/diagnostics_fill.F 68 DIAGNOSTICS_FILL
      INTEGER arrType
./pkg/diagnostics/diagnostics_fill.F 74 DIAGNOSTICS_FILL
      arrType = 0
./pkg/diagnostics/diagnostics_fill.F 96 DIAGNOSTICS_FILL
     I              scaleFact, 1, arrType, 0,
./pkg/diagnostics/diagnostics_fill_field.F 17 DIAGNOSTICS_FILL_FIELD
     I               scaleFact, power, arrType, nLevFrac,
./pkg/diagnostics/diagnostics_fill_field.F 224 DIAGNOSTICS_FILL_FIELD
     I                  scaleFact, power, arrType, useFract, sizF,
./pkg/diagnostics/diagnostics_fill_field.F 239 DIAGNOSTICS_FILL_FIELD
     I                  scaleFact, power, arrType, useFract, sizF,
./pkg/diagnostics/diagnostics_fill_field.F 265 DIAGNOSTICS_CUMULATE
     I                  scaleFact, power, arrType, useFract, sizF,
./pkg/diagnostics/diagnostics_fill_field.F 310 DIAGNOSTICS_CUMULATE
      INTEGER arrType
./pkg/diagnostics/diagnostics_fill_field.F 329 DIAGNOSTICS_CUMULATE
       IF ( arrType.EQ.0 ) THEN
./pkg/diagnostics/diagnostics_fill_field.F 338 DIAGNOSTICS_CUMULATE
       ELSEIF ( arrType.EQ.1 ) THEN
./pkg/diagnostics/diagnostics_fill_field.F 347 DIAGNOSTICS_CUMULATE
       ELSEIF ( arrType.EQ.2 ) THEN
./pkg/diagnostics/diagnostics_fill_field.F 356 DIAGNOSTICS_CUMULATE
       ELSEIF ( arrType.EQ.3 ) THEN
./pkg/diagnostics/diagnostics_fill_field.F 372 DIAGNOSTICS_CUMULATE
       IF ( arrType.EQ.0 ) THEN
./pkg/diagnostics/diagnostics_fill_field.F 380 DIAGNOSTICS_CUMULATE
       ELSEIF ( arrType.EQ.1 ) THEN
./pkg/diagnostics/diagnostics_fill_field.F 388 DIAGNOSTICS_CUMULATE
       ELSEIF ( arrType.EQ.2 ) THEN
./pkg/diagnostics/diagnostics_fill_field.F 396 DIAGNOSTICS_CUMULATE
       ELSEIF ( arrType.EQ.3 ) THEN
./pkg/diagnostics/diagnostics_fill_field.F 410 DIAGNOSTICS_CUMULATE
       IF ( arrType.EQ.0 .OR. arrType.EQ.1 ) THEN
./pkg/diagnostics/diagnostics_fill_field.F 418 DIAGNOSTICS_CUMULATE
       ELSEIF ( arrType.EQ.2 .OR. arrType.EQ.3 ) THEN
./pkg/diagnostics/diagnostics_fill_field.F 432 DIAGNOSTICS_CUMULATE
       IF ( arrType.EQ.0 .OR. arrType.EQ.1 ) THEN
./pkg/diagnostics/diagnostics_fill_field.F 443 DIAGNOSTICS_CUMULATE
       ELSEIF ( arrType.EQ.2 .OR. arrType.EQ.3 ) THEN
./pkg/diagnostics/diagnostics_fill_field.F 82 DIAGNOSTICS_FILL_FIELD
      INTEGER arrType
./pkg/diagnostics/diagnostics_fill_rs.F 139 DIAGNOSTICS_FILL_RS
     I              scaleFact, 1, arrType, 0,
./pkg/diagnostics/diagnostics_fill_rs.F 68 DIAGNOSTICS_FILL_RS
      INTEGER arrType
./pkg/diagnostics/diagnostics_fill_rs.F 74 DIAGNOSTICS_FILL_RS
      arrType = 2
./pkg/diagnostics/diagnostics_fill_rs.F 96 DIAGNOSTICS_FILL_RS
     I              scaleFact, 1, arrType, 0,
./pkg/diagnostics/diagnostics_fract_fill.F 125 DIAGNOSTICS_FRACT_FILL
     I              scaleFact, power, arrType, nLevFract,
./pkg/diagnostics/diagnostics_fract_fill.F 183 DIAGNOSTICS_FRACT_FILL
     I              scaleFact, power, arrType, nLevFract,
./pkg/diagnostics/diagnostics_fract_fill.F 84 DIAGNOSTICS_FRACT_FILL
      INTEGER arrType
./pkg/diagnostics/diagnostics_fract_fill.F 88 DIAGNOSTICS_FRACT_FILL
      arrType = 0
./pkg/diagnostics/diagnostics_scale_fill.F 139 DIAGNOSTICS_SCALE_FILL
     I              scaleFact, power, arrType, 0,
./pkg/diagnostics/diagnostics_scale_fill.F 72 DIAGNOSTICS_SCALE_FILL
      INTEGER arrType
./pkg/diagnostics/diagnostics_scale_fill.F 77 DIAGNOSTICS_SCALE_FILL
      arrType = 0
./pkg/diagnostics/diagnostics_scale_fill.F 98 DIAGNOSTICS_SCALE_FILL
     I              scaleFact, power, arrType, 0,
./pkg/diagnostics/diagnostics_scale_fill_rs.F 141 DIAGNOSTICS_SCALE_FILL_RS
     I              scaleFact, power, arrType, 0,
./pkg/diagnostics/diagnostics_scale_fill_rs.F 72 DIAGNOSTICS_SCALE_FILL_RS
      INTEGER arrType
./pkg/diagnostics/diagnostics_scale_fill_rs.F 77 DIAGNOSTICS_SCALE_FILL_RS
      arrType = 2
./pkg/diagnostics/diagnostics_scale_fill_rs.F 98 DIAGNOSTICS_SCALE_FILL_RS
     I              scaleFact, power, arrType, 0,
./pkg/diagnostics/diagstats_fill.F 217 DIAGSTATS_FILL
      IF ( arrType.EQ.0 .OR. ( arrType.EQ.1 .AND. .NOT.useFract ) ) THEN
./pkg/diagnostics/diagstats_fill.F 21 DIAGSTATS_FILL
     I               scaleFact, power, arrType, nLevFract,
./pkg/diagnostics/diagstats_fill.F 264 DIAGSTATS_FILL
     I                  arrType, useFract, sizF,
./pkg/diagnostics/diagstats_fill.F 287 DIAGSTATS_FILL
     I                  arrType, useFract, sizF,
./pkg/diagnostics/diagstats_fill.F 320 DIAGSTATS_TO_RL
     I                  arrType, useFract, sizF,
./pkg/diagnostics/diagstats_fill.F 363 DIAGSTATS_TO_RL
      INTEGER arrType
./pkg/diagnostics/diagstats_fill.F 372 DIAGSTATS_TO_RL
      IF ( arrType.LE.1 ) THEN
./pkg/diagnostics/diagstats_fill.F 388 DIAGSTATS_TO_RL
       IF ( arrType.EQ.0 .OR. arrType.EQ.2 ) THEN
./pkg/diagnostics/diagstats_fill.F 91 DIAGSTATS_FILL
      INTEGER arrType