Symbol Description Uses
irecord 230


File Line number Procedure Code
./pkg/mdsio/mdsio_writefield_loc.F 122 MDSWRITEFIELD_LOC 
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_writefield_loc.F 124 MDSWRITEFIELD_LOC 
     &   ' MDSWRITEFIELD: argument irecord = ',irecord
./pkg/mdsio/mdsio_writefield_loc.F 13 MDSWRITEFIELD_LOC 
     I   irecord,
./pkg/mdsio/mdsio_writefield_loc.F 160 MDSWRITEFIELD_LOC 
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_writefield_loc.F 184 MDSWRITEFIELD_LOC 
          irec=k+nNz*(irecord-1)
./pkg/mdsio/mdsio_writefield_loc.F 276 MDSWRITEFIELD_LOC 
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_writefield_loc.F 289 MDSWRITEFIELD_LOC 
       if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_writefield_loc.F 321 MDSWRITEFIELD_LOC 
     &            domainLength*domainHeight*tny*nNz*(irecord-1)
./pkg/mdsio/mdsio_writefield_loc.F 384 MDSWRITEFIELD_LOC 
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_writefield_loc.F 403 MDSWRITEFIELD_LOC 
     &           +nSx*nPx*Ny*nNz*(irecord-1)
./pkg/mdsio/mdsio_writefield_loc.F 407 MDSWRITEFIELD_LOC 
            irec=j + sNy*(k-1) + sNy*nNz*(irecord-1)
./pkg/mdsio/mdsio_writefield_loc.F 490 MDSWRITEFIELD_LOC 
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_writefield_loc.F 547 MDSWRITEFIELD_LOC 
     &   filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_writefield_loc.F 80 MDSWRITEFIELD_LOC 
      integer 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_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_readtile.F 13 MDSIO_READTILE 
     I   irecord,
./pkg/mdsio/mdsio_readtile.F 169 MDSIO_READTILE 
     &             + nSx*nPx*Ny*nNz*(irecord-1)
./pkg/mdsio/mdsio_readtile.F 173 MDSIO_READTILE 
            irec=j + sNy*(k-1) + sNy*nNz*(irecord-1)
./pkg/mdsio/mdsio_readtile.F 56 MDSIO_READTILE 
      integer irecord
./pkg/mdsio/mdsio_readtile.F 76 MDSIO_READTILE 
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_readtile.F 78 MDSIO_READTILE 
     &   ' MDSIO_READTILE: argument irecord = ',irecord
./pkg/mdsio/mdsio_readvector.F 14 MDSREADVECTOR 
     I   irecord,
./pkg/mdsio/mdsio_readvector.F 174 MDSREADVECTOR 
     &             (irecord-1)*nSx*nPx*nSy*nPy
./pkg/mdsio/mdsio_readvector.F 178 MDSREADVECTOR 
            irec = irecord
./pkg/mdsio/mdsio_readvector.F 47 MDSREADVECTOR 
      integer irecord
./pkg/mdsio/mdsio_readvector.F 69 MDSREADVECTOR 
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_readvector.F 71 MDSREADVECTOR 
     &   ' MDSREADVECTOR: argument irecord = ',irecord
./pkg/mdsio/mdsio_gl.F 1052 MDSREADFIELD_2D_GL 
          irec = k+nNz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 1118 MDSWRITEFIELD_2D_GL 
     I   irecord,
./pkg/mdsio/mdsio_gl.F 111 MDSREADFIELD_3D_GL 
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_gl.F 113 MDSREADFIELD_3D_GL 
     &   ' MDSREADFIELD_GL: argument irecord = ',irecord
./pkg/mdsio/mdsio_gl.F 1175 MDSWRITEFIELD_2D_GL 
      integer irecord
./pkg/mdsio/mdsio_gl.F 1207 MDSWRITEFIELD_2D_GL 
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_gl.F 1209 MDSWRITEFIELD_2D_GL 
     &   ' MDSWRITEFIELD_GL: argument irecord = ',irecord
./pkg/mdsio/mdsio_gl.F 1238 MDSWRITEFIELD_2D_GL 
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_gl.F 1268 MDSWRITEFIELD_2D_GL 
          irec=k+nLocz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 1316 MDSWRITEFIELD_2D_GL 
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_gl.F 1338 MDSWRITEFIELD_2D_GL 
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_gl.F 1357 MDSWRITEFIELD_2D_GL 
            irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 1426 MDSWRITEFIELD_2D_GL 
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_gl.F 262 MDSREADFIELD_3D_GL 
     &             + nSx*nPx*Ny*nNz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 266 MDSREADFIELD_3D_GL 
            irec=j + sNy*(k-1) + sNy*Nr*(irecord-1)
./pkg/mdsio/mdsio_gl.F 343 MDSREADFIELD_3D_GL 
          irec = k+nNz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 36 MDSREADFIELD_3D_GL 
     I   irecord,
./pkg/mdsio/mdsio_gl.F 409 MDSWRITEFIELD_3D_GL 
     I   irecord,
./pkg/mdsio/mdsio_gl.F 465 MDSWRITEFIELD_3D_GL 
      integer irecord
./pkg/mdsio/mdsio_gl.F 497 MDSWRITEFIELD_3D_GL 
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_gl.F 499 MDSWRITEFIELD_3D_GL 
     &   ' MDSWRITEFIELD_GL: argument irecord = ',irecord
./pkg/mdsio/mdsio_gl.F 527 MDSWRITEFIELD_3D_GL 
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_gl.F 557 MDSWRITEFIELD_3D_GL 
          irec=k+nNz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 605 MDSWRITEFIELD_3D_GL 
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_gl.F 627 MDSWRITEFIELD_3D_GL 
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_gl.F 646 MDSWRITEFIELD_3D_GL 
            irec=j + sNy*(k-1) + sNy*Nr*(irecord-1)
./pkg/mdsio/mdsio_gl.F 715 MDSWRITEFIELD_3D_GL 
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_gl.F 744 MDSREADFIELD_2D_GL 
     I   irecord,
./pkg/mdsio/mdsio_gl.F 788 MDSREADFIELD_2D_GL 
      integer irecord
./pkg/mdsio/mdsio_gl.F 79 MDSREADFIELD_3D_GL 
      integer irecord
./pkg/mdsio/mdsio_gl.F 820 MDSREADFIELD_2D_GL 
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_gl.F 822 MDSREADFIELD_2D_GL 
     &   ' MDSREADFIELD_GL: argument irecord = ',irecord
./pkg/mdsio/mdsio_gl.F 971 MDSREADFIELD_2D_GL 
     &             + nSx*nPx*Ny*nLocz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 975 MDSREADFIELD_2D_GL 
            irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1)
./pkg/mdsio/mdsio_writefield.F 13 MDSWRITEFIELD 
     I   irecord,
./pkg/mdsio/mdsio_writefield.F 48 MDSWRITEFIELD 
      integer irecord
./pkg/mdsio/mdsio_writefield.F 53 MDSWRITEFIELD 
     .   nNz,nNz,arr,irecord,myIter,myThid )
./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_writevector.F 107 MDSWRITEVECTOR 
       if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_writevector.F 129 MDSWRITEVECTOR 
         if (irecord .EQ. 1) then
./pkg/mdsio/mdsio_writevector.F 146 MDSWRITEVECTOR 
     &             (irecord-1)*nSx*nPx*nSy*nPy
./pkg/mdsio/mdsio_writevector.F 150 MDSWRITEVECTOR 
            irec = irecord
./pkg/mdsio/mdsio_writevector.F 15 MDSWRITEVECTOR 
     I   irecord,
./pkg/mdsio/mdsio_writevector.F 190 MDSWRITEVECTOR 
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_writevector.F 216 MDSWRITEVECTOR 
     &   filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdsio_writevector.F 53 MDSWRITEVECTOR 
      integer irecord
./pkg/mdsio/mdsio_writevector.F 76 MDSWRITEVECTOR 
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_writevector.F 78 MDSWRITEVECTOR 
     &   ' MDSWRITEVECTOR: argument irecord = ',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_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_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_readfield.F 12 MDSREADFIELD 
     I   irecord,
./pkg/mdsio/mdsio_readfield.F 197 MDSREADFIELD 
     &             domainLength*domainHeight*tny*nNz*(irecord-1)
./pkg/mdsio/mdsio_readfield.F 301 MDSREADFIELD 
     &             + nSx*nPx*Ny*nNz*(irecord-1)
./pkg/mdsio/mdsio_readfield.F 305 MDSREADFIELD 
            irec=j + sNy*(k-1) + sNy*nNz*(irecord-1)
./pkg/mdsio/mdsio_readfield.F 424 MDSREADFIELD 
          irec = k+nNz*(irecord-1)
./pkg/mdsio/mdsio_readfield.F 59 MDSREADFIELD 
      integer irecord
./pkg/mdsio/mdsio_readfield.F 97 MDSREADFIELD 
      if (irecord .LT. 1) then
./pkg/mdsio/mdsio_readfield.F 99 MDSREADFIELD 
     &   ' MDSREADFIELD: argument irecord = ',irecord
./pkg/mdsio/mdswritefield_new.F 123 MDSWRITEFIELD_NEW 
      if (irecord .LT. 1) then
./pkg/mdsio/mdswritefield_new.F 125 MDSWRITEFIELD_NEW 
     &   ' MDSWRITEFIELD: argument irecord = ',irecord
./pkg/mdsio/mdswritefield_new.F 13 MDSWRITEFIELD_NEW 
     I   irecord,
./pkg/mdsio/mdswritefield_new.F 161 MDSWRITEFIELD_NEW 
         if (irecord .EQ. 1) then
./pkg/mdsio/mdswritefield_new.F 185 MDSWRITEFIELD_NEW 
          irec=k+nNz*(irecord-1)
./pkg/mdsio/mdswritefield_new.F 277 MDSWRITEFIELD_NEW 
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdswritefield_new.F 290 MDSWRITEFIELD_NEW 
       if (irecord .EQ. 1) then
./pkg/mdsio/mdswritefield_new.F 322 MDSWRITEFIELD_NEW 
     &            domainLength*domainHeight*tny*nNz*(irecord-1)
./pkg/mdsio/mdswritefield_new.F 385 MDSWRITEFIELD_NEW 
         if (irecord .EQ. 1) then
./pkg/mdsio/mdswritefield_new.F 404 MDSWRITEFIELD_NEW 
     &           +nSx*nPx*Ny*nNz*(irecord-1)
./pkg/mdsio/mdswritefield_new.F 408 MDSWRITEFIELD_NEW 
            irec=j + sNy*(k-1) + sNy*nNz*(irecord-1)
./pkg/mdsio/mdswritefield_new.F 491 MDSWRITEFIELD_NEW 
     &     filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdswritefield_new.F 548 MDSWRITEFIELD_NEW 
     &   filePrec, ndims, dimList, irecord, myIter, mythid )
./pkg/mdsio/mdswritefield_new.F 81 MDSWRITEFIELD_NEW 
      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/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_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/sbo/sbo_diags.F 42 SBO_DIAGS 
      integer irecord, k
./pkg/sbo/sbo_diags.F 62 SBO_DIAGS 
      irecord      = myCurrentTime/deltaTClock
./pkg/sbo/sbo_diags.F 68 SBO_DIAGS 
     I   irecord,
./pkg/sbo/sbo_writevector.F 102 SBO_WRITEVECTOR 
         if (irecord .EQ. 1) then
./pkg/sbo/sbo_writevector.F 117 SBO_WRITEVECTOR 
     &           ' SBO_WRITEVECTOR: irec = ',irecord,narr
./pkg/sbo/sbo_writevector.F 120 SBO_WRITEVECTOR 
            write(dUnit,rec=irecord) arr
./pkg/sbo/sbo_writevector.F 147 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/exf/exf_interp.F 39 EXF_INTERP 
     I   irecord, xG, yG,
./pkg/exf/exf_interp.F 65 EXF_INTERP 
      integer       filePrec, irecord, nx_in, ny_in
./pkg/exf/exf_interp.F 88 EXF_INTERP 
     I   irecord, xG, yG,
./pkg/exf/exf_interp_read.F 104 EXF_INTERP_READ 
        read(interp_unit,rec=irecord)
./pkg/exf/exf_interp_read.F 16 EXF_INTERP_READ 
     I   irecord, xG, yG,
./pkg/exf/exf_interp_read.F 45 EXF_INTERP_READ 
      integer       filePrec, irecord, nx_in, ny_in
./pkg/exf/exf_interp_read.F 83 EXF_INTERP_READ 
         read(interp_unit,rec=irecord)