Symbol Description Uses
sn 31



File Line number Procedure Code
./pkg/mdsio/mdsio_slice.F 1015 MDS_SEG8TORL_2D
      integer sn,ol,nNz,bi,bj,k
./pkg/mdsio/mdsio_slice.F 1017 MDS_SEG8TORL_2D
      Real*8 seg(sn)
./pkg/mdsio/mdsio_slice.F 1018 MDS_SEG8TORL_2D
      _RL arr(1-ol:sn+ol,nNz,nSx,nSy)
./pkg/mdsio/mdsio_slice.F 1024 MDS_SEG8TORL_2D
       do ii=1,sn
./pkg/mdsio/mdsio_slice.F 1028 MDS_SEG8TORL_2D
       do ii=1,sn
./pkg/mdsio/mdsio_slice.F 1038 MDS_SEG8TORS_2D
      subroutine MDS_SEG8TORS_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr)
./pkg/mdsio/mdsio_slice.F 1055 MDS_SEG8TORS_2D
      integer sn,ol,nNz,bi,bj,k
./pkg/mdsio/mdsio_slice.F 1057 MDS_SEG8TORS_2D
      Real*8 seg(sn)
./pkg/mdsio/mdsio_slice.F 1058 MDS_SEG8TORS_2D
      _RS arr(1-ol:sn+ol,nNz,nSx,nSy)
./pkg/mdsio/mdsio_slice.F 1064 MDS_SEG8TORS_2D
       do ii=1,sn
./pkg/mdsio/mdsio_slice.F 1068 MDS_SEG8TORS_2D
       do ii=1,sn
./pkg/mdsio/mdsio_slice.F 918 MDS_SEG4TORL_2D
      subroutine MDS_SEG4TORL_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr)
./pkg/mdsio/mdsio_slice.F 935 MDS_SEG4TORL_2D
      integer sn,ol,nNz,bi,bj,k
./pkg/mdsio/mdsio_slice.F 937 MDS_SEG4TORL_2D
      Real*4 seg(sn)
./pkg/mdsio/mdsio_slice.F 938 MDS_SEG4TORL_2D
      _RL arr(1-ol:sn+ol,nNz,nSx,nSy)
./pkg/mdsio/mdsio_slice.F 944 MDS_SEG4TORL_2D
       do ii=1,sn
./pkg/mdsio/mdsio_slice.F 948 MDS_SEG4TORL_2D
       do ii=1,sn
./pkg/mdsio/mdsio_slice.F 958 MDS_SEG4TORS_2D
      subroutine MDS_SEG4TORS_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr)
./pkg/mdsio/mdsio_slice.F 975 MDS_SEG4TORS_2D
      integer sn,ol,nNz,bi,bj,k
./pkg/mdsio/mdsio_slice.F 977 MDS_SEG4TORS_2D
      Real*4 seg(sn)
./pkg/mdsio/mdsio_slice.F 978 MDS_SEG4TORS_2D
      _RS arr(1-ol:sn+ol,nNz,nSx,nSy)
./pkg/mdsio/mdsio_slice.F 984 MDS_SEG4TORS_2D
       do ii=1,sn
./pkg/mdsio/mdsio_slice.F 988 MDS_SEG4TORS_2D
       do ii=1,sn
./pkg/mdsio/mdsio_slice.F 998 MDS_SEG8TORL_2D
      subroutine MDS_SEG8TORL_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr)
./pkg/diagnostics/diagnostics_write_pickup.F 163 DIAGNOSTICS_WRITE_PICKUP
          sn = ILNBLNK(suff)
./pkg/diagnostics/diagnostics_write_pickup.F 169 DIAGNOSTICS_WRITE_PICKUP
          write(fn,'(a,a)') 'pickup_qdiag.', suff(1:sn)
./pkg/diagnostics/diagnostics_write_pickup.F 179 DIAGNOSTICS_WRITE_PICKUP
          WRITE(fn,'(a,a)') 'pickup_ndiag.', suff(1:sn)
./pkg/diagnostics/diagnostics_write_pickup.F 46 DIAGNOSTICS_WRITE_PICKUP
      INTEGER prec, lChar, i, sn
./pkg/diagnostics/diagnostics_read_pickup.F 36 DIAGNOSTICS_READ_PICKUP
      INTEGER prec, lChar, i, sn
./pkg/exf/exf_getffieldrec.F 281 EXF_GETFFIELDREC
        call CAL_CONVDATE( nextperiod,yn,mn,dn,sn,ln,wn,mythid )
./pkg/exf/exf_getffieldrec.F 95 EXF_GETFFIELDREC
      integer si,sf,sp,sn