Symbol Description Uses
irecord 229



File Line number Procedure Code
./pkg/exf/exf_interp.F 105 EXF_INTERP
     I   irecord, nx_in, ny_in, mythid)
./pkg/exf/exf_interp.F 39 EXF_INTERP
     I   irecord, xG_in, yG,
./pkg/exf/exf_interp.F 66 EXF_INTERP
      integer       filePrec, irecord, nx_in, ny_in
./pkg/exf/exf_interp_read.F 36 EXF_INTERP_READ
      integer       filePrec, irecord, nx_in, ny_in
./pkg/exf/exf_interp_read.F 6 EXF_INTERP_READ
     I   irecord, nx_in, ny_in, mythid)
./pkg/exf/exf_interp_read.F 83 EXF_INTERP_READ
         read(interp_unit,rec=irecord)
./pkg/exf/exf_interp_read.F 98 EXF_INTERP_READ
        read(interp_unit,rec=irecord) global
./pkg/flt/flt_traj.F 159 FLT_TRAJ
            irecord=npart_read+ip+1
./pkg/flt/flt_traj.F 161 FLT_TRAJ
     &                        irecord,myCurrentIter,mythid)
./pkg/flt/flt_traj.F 50 FLT_TRAJ
      integer irecord
./pkg/flt/flt_up.F 199 FLT_UP
            irecord=npart_read+ip+1
./pkg/flt/flt_up.F 201 FLT_UP
     &                        irecord,myCurrentIter,mythid)
./pkg/flt/flt_up.F 51 FLT_UP
      integer irecord
./pkg/flt/flt_mdsreadvector.F 181 MDSREADVECTOR_FLT
          irec = irecord
./pkg/flt/flt_mdsreadvector.F 24 MDSREADVECTOR_FLT
     I   irecord,
./pkg/flt/flt_mdsreadvector.F 60 MDSREADVECTOR_FLT
      integer irecord
./pkg/flt/flt_mdsreadvector.F 82 MDSREADVECTOR_FLT
      if (irecord .LT. 1) then
./pkg/flt/flt_mdsreadvector.F 84 MDSREADVECTOR_FLT
     &   ' MDSREADVECTOR: argument irecord = ',irecord
./pkg/sbo/sbo_writevector.F 102 SBO_WRITEVECTOR
         if (irecord .EQ. 1) then
./pkg/sbo/sbo_writevector.F 118 SBO_WRITEVECTOR
     &             ' SBO_WRITEVECTOR: irec = ',irecord,narr
./pkg/sbo/sbo_writevector.F 122 SBO_WRITEVECTOR
            write(dUnit,rec=irecord) arr
./pkg/sbo/sbo_writevector.F 149 SBO_WRITEVECTOR
     &        filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/sbo/sbo_writevector.F 24 SBO_WRITEVECTOR
     I   irecord,
./pkg/sbo/sbo_writevector.F 54 SBO_WRITEVECTOR
      integer irecord
./pkg/sbo/sbo_writevector.F 82 SBO_WRITEVECTOR
         if (irecord .LT. 1) then
./pkg/sbo/sbo_writevector.F 84 SBO_WRITEVECTOR
     &           ' SBO_WRITEVECTOR: argument irecord = ',irecord
./pkg/sbo/sbo_diags.F 42 SBO_DIAGS
      integer irecord, k
./pkg/sbo/sbo_diags.F 66 SBO_DIAGS
      irecord      = myCurrentTime/deltaTClock
./pkg/sbo/sbo_diags.F 72 SBO_DIAGS
     I   irecord,
./pkg/mdsio/mdsio_writevector.F 136 MDSWRITEVECTOR
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_writevector.F 15 MDSWRITEVECTOR
     I   irecord,
./pkg/mdsio/mdsio_writevector.F 162 MDSWRITEVECTOR
          irec=irecord
./pkg/mdsio/mdsio_writevector.F 214 MDSWRITEVECTOR
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_writevector.F 227 MDSWRITEVECTOR
       if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_writevector.F 249 MDSWRITEVECTOR
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_writevector.F 266 MDSWRITEVECTOR
     &             (irecord-1)*nSx*nPx*nSy*nPy
./pkg/mdsio/mdsio_writevector.F 270 MDSWRITEVECTOR
            irec = irecord
./pkg/mdsio/mdsio_writevector.F 310 MDSWRITEVECTOR
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_writevector.F 336 MDSWRITEVECTOR
     &   filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_writevector.F 54 MDSWRITEVECTOR
      integer irecord
./pkg/mdsio/mdsio_writevector.F 97 MDSWRITEVECTOR
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_writevector.F 99 MDSWRITEVECTOR
     &   ' MDSWRITEVECTOR: argument irecord = ',irecord
./pkg/mdsio/mdsio_slice.F 13 MDSREADFIELDXZ
     I   irecord,
./pkg/mdsio/mdsio_slice.F 178 MDSREADFIELDXZ
     &           + nSx*nPx*nNz*(irecord-1)
./pkg/mdsio/mdsio_slice.F 182 MDSREADFIELDXZ
            irec=k + nNz*(irecord-1)
./pkg/mdsio/mdsio_slice.F 251 MDSREADFIELDYZ
     I   irecord,
./pkg/mdsio/mdsio_slice.F 290 MDSREADFIELDYZ
      integer irecord
./pkg/mdsio/mdsio_slice.F 310 MDSREADFIELDYZ
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_slice.F 312 MDSREADFIELDYZ
     &   ' MDSREADFIELDYZ: argument irecord = ',irecord
./pkg/mdsio/mdsio_slice.F 416 MDSREADFIELDYZ
     &           + nSy*nPy*nNz*(irecord-1)
./pkg/mdsio/mdsio_slice.F 420 MDSREADFIELDYZ
            irec=k + nNz*(irecord-1)
./pkg/mdsio/mdsio_slice.F 490 MDSWRITEFIELDXZ
     I   irecord,
./pkg/mdsio/mdsio_slice.F 52 MDSREADFIELDXZ
      integer irecord
./pkg/mdsio/mdsio_slice.F 533 MDSWRITEFIELDXZ
      integer irecord
./pkg/mdsio/mdsio_slice.F 553 MDSWRITEFIELDXZ
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_slice.F 555 MDSWRITEFIELDXZ
     &   ' MDSWRITEFIELDXZ: argument irecord = ',irecord
./pkg/mdsio/mdsio_slice.F 583 MDSWRITEFIELDXZ
       if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_slice.F 605 MDSWRITEFIELDXZ
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_slice.F 623 MDSWRITEFIELDXZ
     &           + nSx*nPx*nNz*(irecord-1)
./pkg/mdsio/mdsio_slice.F 627 MDSWRITEFIELDXZ
            irec=k + nNz*(irecord-1)
./pkg/mdsio/mdsio_slice.F 707 MDSWRITEFIELDYZ
     I   irecord,
./pkg/mdsio/mdsio_slice.F 72 MDSREADFIELDXZ
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_slice.F 74 MDSREADFIELDXZ
     &   ' MDSREADFIELDXZ: argument irecord = ',irecord
./pkg/mdsio/mdsio_slice.F 751 MDSWRITEFIELDYZ
      integer irecord
./pkg/mdsio/mdsio_slice.F 771 MDSWRITEFIELDYZ
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_slice.F 773 MDSWRITEFIELDYZ
     &   ' MDSWRITEFIELDYZ: argument irecord = ',irecord
./pkg/mdsio/mdsio_slice.F 801 MDSWRITEFIELDYZ
       if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_slice.F 823 MDSWRITEFIELDYZ
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_slice.F 841 MDSWRITEFIELDYZ
     &           + nSy*nPy*nNz*(irecord-1)
./pkg/mdsio/mdsio_slice.F 845 MDSWRITEFIELDYZ
            irec=k + nNz*(irecord-1)
./pkg/mdsio/mdsio_readfield_loc.F 12 MDSREADFIELD_LOC
     I   irecord,
./pkg/mdsio/mdsio_readfield_loc.F 175 MDSREADFIELD_LOC
     &             + nSx*nPx*Ny*nNz*(irecord-1)
./pkg/mdsio/mdsio_readfield_loc.F 179 MDSREADFIELD_LOC
            irec=j + sNy*(k-1) + sNy*nNz*(irecord-1)
./pkg/mdsio/mdsio_readfield_loc.F 54 MDSREADFIELD_LOC
      integer irecord
./pkg/mdsio/mdsio_readfield_loc.F 74 MDSREADFIELD_LOC
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_readfield_loc.F 76 MDSREADFIELD_LOC
     &   ' MDSREADFIELD: argument irecord = ',irecord
./pkg/mdsio/mdsio_writetile.F 111 MDS_WRITETILE
       if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_writetile.F 133 MDS_WRITETILE
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_writetile.F 14 MDS_WRITETILE
     I   irecord,
./pkg/mdsio/mdsio_writetile.F 152 MDS_WRITETILE
     &           +nSx*nPx*Ny*nNz*(irecord-1)
./pkg/mdsio/mdsio_writetile.F 156 MDS_WRITETILE
            irec=j + sNy*(k-1) + sNy*nNz*(irecord-1)
./pkg/mdsio/mdsio_writetile.F 227 MDS_WRITETILE
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_writetile.F 279 MDS_WRITETILE
     &   filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_writetile.F 69 MDS_WRITETILE
      integer irecord
./pkg/mdsio/mdsio_writetile.F 90 MDS_WRITETILE
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_writetile.F 92 MDS_WRITETILE
     &   ' MDS_WRITETILE: argument irecord = ',irecord
./pkg/mdsio/mdsio_readtile.F 13 MDS_READTILE
     I   irecord,
./pkg/mdsio/mdsio_readtile.F 169 MDS_READTILE
     &             + nSx*nPx*Ny*nNz*(irecord-1)
./pkg/mdsio/mdsio_readtile.F 173 MDS_READTILE
            irec=j + sNy*(k-1) + sNy*nNz*(irecord-1)
./pkg/mdsio/mdsio_readtile.F 56 MDS_READTILE
      integer irecord
./pkg/mdsio/mdsio_readtile.F 76 MDS_READTILE
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_readtile.F 78 MDS_READTILE
     &   ' MDS_READTILE: argument irecord = ',irecord
./pkg/mdsio/mdsio_slice_loc.F 12 MDSREADFIELDXZ_LOC
     I   irecord,
./pkg/mdsio/mdsio_slice_loc.F 168 MDSREADFIELDXZ_LOC
     &           + nSx*nPx*nNz*(irecord-1)
./pkg/mdsio/mdsio_slice_loc.F 172 MDSREADFIELDXZ_LOC
            irec=k + nNz*(irecord-1)
./pkg/mdsio/mdsio_slice_loc.F 241 MDSREADFIELDYZ_LOC
     I   irecord,
./pkg/mdsio/mdsio_slice_loc.F 280 MDSREADFIELDYZ_LOC
      integer irecord
./pkg/mdsio/mdsio_slice_loc.F 300 MDSREADFIELDYZ_LOC
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_slice_loc.F 302 MDSREADFIELDYZ_LOC
     &   ' MDSREADFIELDYZ: argument irecord = ',irecord
./pkg/mdsio/mdsio_slice_loc.F 397 MDSREADFIELDYZ_LOC
     &           + nSy*nPy*nNz*(irecord-1)
./pkg/mdsio/mdsio_slice_loc.F 401 MDSREADFIELDYZ_LOC
            irec=k + nNz*(irecord-1)
./pkg/mdsio/mdsio_slice_loc.F 471 MDSWRITEFIELDXZ_LOC
     I   irecord,
./pkg/mdsio/mdsio_slice_loc.F 514 MDSWRITEFIELDXZ_LOC
      integer irecord
./pkg/mdsio/mdsio_slice_loc.F 51 MDSREADFIELDXZ_LOC
      integer irecord
./pkg/mdsio/mdsio_slice_loc.F 534 MDSWRITEFIELDXZ_LOC
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_slice_loc.F 536 MDSWRITEFIELDXZ_LOC
     &   ' MDSWRITEFIELDXZ: argument irecord = ',irecord
./pkg/mdsio/mdsio_slice_loc.F 555 MDSWRITEFIELDXZ_LOC
       if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_slice_loc.F 577 MDSWRITEFIELDXZ_LOC
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_slice_loc.F 595 MDSWRITEFIELDXZ_LOC
     &           + nSx*nPx*nNz*(irecord-1)
./pkg/mdsio/mdsio_slice_loc.F 599 MDSWRITEFIELDXZ_LOC
            irec=k + nNz*(irecord-1)
./pkg/mdsio/mdsio_slice_loc.F 679 MDSWRITEFIELDYZ_LOC
     I   irecord,
./pkg/mdsio/mdsio_slice_loc.F 71 MDSREADFIELDXZ_LOC
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_slice_loc.F 723 MDSWRITEFIELDYZ_LOC
      integer irecord
./pkg/mdsio/mdsio_slice_loc.F 73 MDSREADFIELDXZ_LOC
     &   ' MDSREADFIELDXZ: argument irecord = ',irecord
./pkg/mdsio/mdsio_slice_loc.F 743 MDSWRITEFIELDYZ_LOC
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_slice_loc.F 745 MDSWRITEFIELDYZ_LOC
     &   ' MDSWRITEFIELDYZ: argument irecord = ',irecord
./pkg/mdsio/mdsio_slice_loc.F 764 MDSWRITEFIELDYZ_LOC
       if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_slice_loc.F 786 MDSWRITEFIELDYZ_LOC
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_slice_loc.F 804 MDSWRITEFIELDYZ_LOC
     &           + nSy*nPy*nNz*(irecord-1)
./pkg/mdsio/mdsio_slice_loc.F 808 MDSWRITEFIELDYZ_LOC
            irec=k + nNz*(irecord-1)
./pkg/mdsio/mdsio_readfield.F 102 MDSREADFIELD
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_readfield.F 104 MDSREADFIELD
     &   ' MDSREADFIELD: argument irecord = ',irecord
./pkg/mdsio/mdsio_readfield.F 12 MDSREADFIELD
     I   irecord,
./pkg/mdsio/mdsio_readfield.F 196 MDSREADFIELD
     &             domainLength*domainHeight*tny*nNz*(irecord-1) 
./pkg/mdsio/mdsio_readfield.F 300 MDSREADFIELD
     &             + nSx*nPx*Ny*nNz*(irecord-1)
./pkg/mdsio/mdsio_readfield.F 304 MDSREADFIELD
            irec=j + sNy*(k-1) + sNy*nNz*(irecord-1)
./pkg/mdsio/mdsio_readfield.F 444 MDSREADFIELD
          irec = k+nNz*(irecord-1)
./pkg/mdsio/mdsio_readfield.F 60 MDSREADFIELD
      integer irecord
./pkg/mdsio/mdsio_readvector.F 14 MDSREADVECTOR
     I   irecord,
./pkg/mdsio/mdsio_readvector.F 193 MDSREADVECTOR
     &             (irecord-1)*nSx*nPx*nSy*nPy
./pkg/mdsio/mdsio_readvector.F 197 MDSREADVECTOR
            irec = irecord
./pkg/mdsio/mdsio_readvector.F 286 MDSREADVECTOR
          irec = irecord
./pkg/mdsio/mdsio_readvector.F 48 MDSREADVECTOR
      integer irecord
./pkg/mdsio/mdsio_readvector.F 85 MDSREADVECTOR
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_readvector.F 87 MDSREADVECTOR
     &   ' MDSREADVECTOR: argument irecord = ',irecord
./pkg/mdsio/mdsio_gl.F 1060 MDSREADFIELD_2D_GL
          irec = k+nNz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 1126 MDSWRITEFIELD_2D_GL
     I   irecord,
./pkg/mdsio/mdsio_gl.F 113 MDSREADFIELD_3D_GL
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_gl.F 115 MDSREADFIELD_3D_GL
     &   ' MDSREADFIELD_GL: argument irecord = ',irecord
./pkg/mdsio/mdsio_gl.F 1183 MDSWRITEFIELD_2D_GL
      integer irecord
./pkg/mdsio/mdsio_gl.F 1218 MDSWRITEFIELD_2D_GL
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_gl.F 1220 MDSWRITEFIELD_2D_GL
     &   ' MDSWRITEFIELD_GL: argument irecord = ',irecord
./pkg/mdsio/mdsio_gl.F 1249 MDSWRITEFIELD_2D_GL
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_gl.F 1279 MDSWRITEFIELD_2D_GL
          irec=k+nLocz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 1327 MDSWRITEFIELD_2D_GL
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_gl.F 1349 MDSWRITEFIELD_2D_GL
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_gl.F 1368 MDSWRITEFIELD_2D_GL
            irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 1437 MDSWRITEFIELD_2D_GL
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_gl.F 265 MDSREADFIELD_3D_GL
     &             + nSx*nPx*Ny*nNz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 269 MDSREADFIELD_3D_GL
            irec=j + sNy*(k-1) + sNy*Nr*(irecord-1)
./pkg/mdsio/mdsio_gl.F 346 MDSREADFIELD_3D_GL
          irec = k+nNz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 37 MDSREADFIELD_3D_GL
     I   irecord,
./pkg/mdsio/mdsio_gl.F 412 MDSWRITEFIELD_3D_GL
     I   irecord,
./pkg/mdsio/mdsio_gl.F 468 MDSWRITEFIELD_3D_GL
      integer irecord
./pkg/mdsio/mdsio_gl.F 503 MDSWRITEFIELD_3D_GL
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_gl.F 505 MDSWRITEFIELD_3D_GL
     &   ' MDSWRITEFIELD_GL: argument irecord = ',irecord
./pkg/mdsio/mdsio_gl.F 533 MDSWRITEFIELD_3D_GL
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_gl.F 563 MDSWRITEFIELD_3D_GL
          irec=k+nNz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 611 MDSWRITEFIELD_3D_GL
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_gl.F 633 MDSWRITEFIELD_3D_GL
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_gl.F 652 MDSWRITEFIELD_3D_GL
            irec=j + sNy*(k-1) + sNy*Nr*(irecord-1)
./pkg/mdsio/mdsio_gl.F 721 MDSWRITEFIELD_3D_GL
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_gl.F 750 MDSREADFIELD_2D_GL
     I   irecord,
./pkg/mdsio/mdsio_gl.F 794 MDSREADFIELD_2D_GL
      integer irecord
./pkg/mdsio/mdsio_gl.F 80 MDSREADFIELD_3D_GL
      integer irecord
./pkg/mdsio/mdsio_gl.F 827 MDSREADFIELD_2D_GL
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_gl.F 829 MDSREADFIELD_2D_GL
     &   ' MDSREADFIELD_GL: argument irecord = ',irecord
./pkg/mdsio/mdsio_gl.F 979 MDSREADFIELD_2D_GL
     &             + nSx*nPx*Ny*nLocz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 983 MDSREADFIELD_2D_GL
            irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1)
./pkg/mdsio/mdsio_writelocal.F 105 MDS_WRITELOCAL
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_writelocal.F 107 MDS_WRITELOCAL
     &   ' MDS_WRITELOCAL: argument irecord = ',irecord
./pkg/mdsio/mdsio_writelocal.F 126 MDS_WRITELOCAL
       if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_writelocal.F 148 MDS_WRITELOCAL
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_writelocal.F 14 MDS_WRITELOCAL
     I   irecord,
./pkg/mdsio/mdsio_writelocal.F 167 MDS_WRITELOCAL
     &           +nSx*nPx*Ny*nNz*(irecord-1)
./pkg/mdsio/mdsio_writelocal.F 171 MDS_WRITELOCAL
            irec=j + sNy*(k-1) + sNy*nNz*(irecord-1)
./pkg/mdsio/mdsio_writelocal.F 254 MDS_WRITELOCAL
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_writelocal.F 306 MDS_WRITELOCAL
     &   filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_writelocal.F 73 MDS_WRITELOCAL
      integer irecord
./pkg/mdsio/mdsio_gl_slice.F 100 MDSREADFIELD_XZ_GL
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_gl_slice.F 102 MDSREADFIELD_XZ_GL
     &   ' MDSREADFIELD_GL: argument irecord = ',irecord
./pkg/mdsio/mdsio_gl_slice.F 185 MDSREADFIELD_XZ_GL
            irec=k + Nr*(irecord-1)
./pkg/mdsio/mdsio_gl_slice.F 260 MDSREADFIELD_YZ_GL
     I   irecord,
./pkg/mdsio/mdsio_gl_slice.F 302 MDSREADFIELD_YZ_GL
      integer irecord
./pkg/mdsio/mdsio_gl_slice.F 323 MDSREADFIELD_YZ_GL
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_gl_slice.F 325 MDSREADFIELD_YZ_GL
     &   ' MDSREADFIELD_YZ_GL: argument irecord = ',irecord
./pkg/mdsio/mdsio_gl_slice.F 37 MDSREADFIELD_XZ_GL
     I   irecord,
./pkg/mdsio/mdsio_gl_slice.F 407 MDSREADFIELD_YZ_GL
            irec=k + Nr*(irecord-1)
./pkg/mdsio/mdsio_gl_slice.F 482 MDSWRITEFIELD_XZ_GL
     I   irecord,
./pkg/mdsio/mdsio_gl_slice.F 537 MDSWRITEFIELD_XZ_GL
      integer irecord
./pkg/mdsio/mdsio_gl_slice.F 559 MDSWRITEFIELD_XZ_GL
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_gl_slice.F 561 MDSWRITEFIELD_XZ_GL
     &   ' MDSWRITEFIELD_XZ_GL: argument irecord = ',irecord
./pkg/mdsio/mdsio_gl_slice.F 589 MDSWRITEFIELD_XZ_GL
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_gl_slice.F 607 MDSWRITEFIELD_XZ_GL
            irec=k + Nr*(irecord-1)
./pkg/mdsio/mdsio_gl_slice.F 674 MDSWRITEFIELD_XZ_GL
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_gl_slice.F 697 MDSWRITEFIELD_YZ_GL
     I   irecord,
./pkg/mdsio/mdsio_gl_slice.F 752 MDSWRITEFIELD_YZ_GL
      integer irecord
./pkg/mdsio/mdsio_gl_slice.F 774 MDSWRITEFIELD_YZ_GL
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_gl_slice.F 776 MDSWRITEFIELD_YZ_GL
     &   ' MDSWRITEFIELD_YZ_GL: argument irecord = ',irecord
./pkg/mdsio/mdsio_gl_slice.F 79 MDSREADFIELD_XZ_GL
      integer irecord
./pkg/mdsio/mdsio_gl_slice.F 804 MDSWRITEFIELD_YZ_GL
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_gl_slice.F 822 MDSWRITEFIELD_YZ_GL
            irec=k + Nr*(irecord-1)
./pkg/mdsio/mdsio_gl_slice.F 889 MDSWRITEFIELD_YZ_GL
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_writevec_loc.F 117 MDSWRITEVEC_LOC_RS
        IF (irecord .EQ. 1) THEN
./pkg/mdsio/mdsio_writevec_loc.F 12 MDSWRITEVEC_LOC_RS
     I   irecord,
./pkg/mdsio/mdsio_writevec_loc.F 48 MDSWRITEVEC_LOC_RS
      INTEGER irecord
./pkg/mdsio/mdsio_writevec_loc.F 76 MDSWRITEVEC_LOC_RS
        IF (irecord .LT. 1) THEN
./pkg/mdsio/mdsio_writevec_loc.F 78 MDSWRITEVEC_LOC_RS
     &      ' MDSWRITEVEC_LOC: argument irecord = ',irecord
./pkg/mdsio/mdsio_writevec_loc.F 89 MDSWRITEVEC_LOC_RS
        irec = irecord
./pkg/mdsio/mdsio_writefield.F 13 MDSWRITEFIELD
     I   irecord,
./pkg/mdsio/mdsio_writefield.F 48 MDSWRITEFIELD
      integer irecord
./pkg/mdsio/mdsio_writefield.F 54 MDSWRITEFIELD
     I                        arrType,nNz,nNz,arr,irecord,
./pkg/mdsio/mdsio_writefield_loc.F 13 MDSWRITEFIELD_LOC
     I   irecord,
./pkg/mdsio/mdsio_writefield_loc.F 48 MDSWRITEFIELD_LOC
      integer irecord
./pkg/mdsio/mdsio_writefield_loc.F 54 MDSWRITEFIELD_LOC
     I                        arrType,nNz,nNz,arr,irecord,
./pkg/mdsio/mdsio_writefield_new.F 135 MDSWRITEFIELD_NEW
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_writefield_new.F 137 MDSWRITEFIELD_NEW
     &   ' MDSWRITEFIELD: argument irecord = ',irecord
./pkg/mdsio/mdsio_writefield_new.F 14 MDSWRITEFIELD_NEW
     I   irecord,
./pkg/mdsio/mdsio_writefield_new.F 167 MDSWRITEFIELD_NEW
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_writefield_new.F 192 MDSWRITEFIELD_NEW
          irec=k+nNz*(irecord-1)
./pkg/mdsio/mdsio_writefield_new.F 292 MDSWRITEFIELD_NEW
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_writefield_new.F 303 MDSWRITEFIELD_NEW
       if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_writefield_new.F 335 MDSWRITEFIELD_NEW
     &            domainLength*domainHeight*tny*nNz*(irecord-1) 
./pkg/mdsio/mdsio_writefield_new.F 398 MDSWRITEFIELD_NEW
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_writefield_new.F 417 MDSWRITEFIELD_NEW
     &           +nSx*nPx*Ny*nNz*(irecord-1)
./pkg/mdsio/mdsio_writefield_new.F 421 MDSWRITEFIELD_NEW
            irec=j + sNy*(k-1) + sNy*nNz*(irecord-1)
./pkg/mdsio/mdsio_writefield_new.F 504 MDSWRITEFIELD_NEW
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_writefield_new.F 560 MDSWRITEFIELD_NEW
     &   filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_writefield_new.F 85 MDSWRITEFIELD_NEW
      integer irecord