Symbol Description Uses
nArr dimension off array arr 40



File Line number Procedure Code
./pkg/mdsio/mdsio_rd_rec_rl.F 14 MDS_RD_REC_RL
     I                          fPrec, dUnit, iRec, nArr, myThid )
./pkg/mdsio/mdsio_rd_rec_rl.F 38 MDS_RD_REC_RL
      INTEGER nArr
./pkg/mdsio/mdsio_rd_rec_rl.F 40 MDS_RD_REC_RL
      _RL    arr(nArr)
./pkg/mdsio/mdsio_rd_rec_rl.F 41 MDS_RD_REC_RL
      Real*4 r4Buf(nArr)
./pkg/mdsio/mdsio_rd_rec_rl.F 42 MDS_RD_REC_RL
      Real*8 r8Buf(nArr)
./pkg/mdsio/mdsio_rd_rec_rl.F 52 MDS_RD_REC_RL
     &      ' MDS_RD_REC_RL: iRec,Dim = ', iRec, nArr
./pkg/mdsio/mdsio_rd_rec_rl.F 60 MDS_RD_REC_RL
        CALL MDS_BYTESWAPR4( nArr, r4Buf )
./pkg/mdsio/mdsio_rd_rec_rl.F 62 MDS_RD_REC_RL
        DO k=1,nArr
./pkg/mdsio/mdsio_rd_rec_rl.F 68 MDS_RD_REC_RL
        CALL MDS_BYTESWAPR8( nArr, r8Buf )
./pkg/mdsio/mdsio_rd_rec_rl.F 70 MDS_RD_REC_RL
        DO k=1,nArr
./pkg/mdsio/mdsio_rd_rec_rs.F 14 MDS_RD_REC_RS
     I                          fPrec, dUnit, iRec, nArr, myThid )
./pkg/mdsio/mdsio_rd_rec_rs.F 38 MDS_RD_REC_RS
      INTEGER nArr
./pkg/mdsio/mdsio_rd_rec_rs.F 40 MDS_RD_REC_RS
      _RS    arr(nArr)
./pkg/mdsio/mdsio_rd_rec_rs.F 41 MDS_RD_REC_RS
      Real*4 r4Buf(nArr)
./pkg/mdsio/mdsio_rd_rec_rs.F 42 MDS_RD_REC_RS
      Real*8 r8Buf(nArr)
./pkg/mdsio/mdsio_rd_rec_rs.F 52 MDS_RD_REC_RS
     &      ' MDS_RD_REC_RS: iRec,Dim = ', iRec, nArr
./pkg/mdsio/mdsio_rd_rec_rs.F 60 MDS_RD_REC_RS
        CALL MDS_BYTESWAPR4( nArr, r4Buf )
./pkg/mdsio/mdsio_rd_rec_rs.F 62 MDS_RD_REC_RS
        DO k=1,nArr
./pkg/mdsio/mdsio_rd_rec_rs.F 68 MDS_RD_REC_RS
        CALL MDS_BYTESWAPR8( nArr, r8Buf )
./pkg/mdsio/mdsio_rd_rec_rs.F 70 MDS_RD_REC_RS
        DO k=1,nArr
./pkg/mdsio/mdsio_wr_rec_rl.F 14 MDS_WR_REC_RL
     I                          fPrec, dUnit, iRec, nArr, myThid )
./pkg/mdsio/mdsio_wr_rec_rl.F 38 MDS_WR_REC_RL
      INTEGER nArr
./pkg/mdsio/mdsio_wr_rec_rl.F 40 MDS_WR_REC_RL
      _RL    arr(nArr)
./pkg/mdsio/mdsio_wr_rec_rl.F 41 MDS_WR_REC_RL
      Real*4 r4Buf(nArr)
./pkg/mdsio/mdsio_wr_rec_rl.F 42 MDS_WR_REC_RL
      Real*8 r8Buf(nArr)
./pkg/mdsio/mdsio_wr_rec_rl.F 52 MDS_WR_REC_RL
     &      ' MDS_WR_REC_RL: iRec,Dim = ', iRec, nArr
./pkg/mdsio/mdsio_wr_rec_rl.F 58 MDS_WR_REC_RL
        DO k=1,nArr
./pkg/mdsio/mdsio_wr_rec_rl.F 62 MDS_WR_REC_RL
        CALL MDS_BYTESWAPR4( nArr, r4Buf )
./pkg/mdsio/mdsio_wr_rec_rl.F 66 MDS_WR_REC_RL
        DO k=1,nArr
./pkg/mdsio/mdsio_wr_rec_rl.F 70 MDS_WR_REC_RL
        CALL MDS_BYTESWAPR8( nArr, r8Buf )
./pkg/mdsio/mdsio_wr_rec_rs.F 14 MDS_WR_REC_RS
     I                          fPrec, dUnit, iRec, nArr, myThid )
./pkg/mdsio/mdsio_wr_rec_rs.F 38 MDS_WR_REC_RS
      INTEGER nArr
./pkg/mdsio/mdsio_wr_rec_rs.F 40 MDS_WR_REC_RS
      _RS    arr(nArr)
./pkg/mdsio/mdsio_wr_rec_rs.F 41 MDS_WR_REC_RS
      Real*4 r4Buf(nArr)
./pkg/mdsio/mdsio_wr_rec_rs.F 42 MDS_WR_REC_RS
      Real*8 r8Buf(nArr)
./pkg/mdsio/mdsio_wr_rec_rs.F 52 MDS_WR_REC_RS
     &      ' MDS_WR_REC_RS: iRec,Dim = ', iRec, nArr
./pkg/mdsio/mdsio_wr_rec_rs.F 58 MDS_WR_REC_RS
        DO k=1,nArr
./pkg/mdsio/mdsio_wr_rec_rs.F 62 MDS_WR_REC_RS
        CALL MDS_BYTESWAPR4( nArr, r4Buf )
./pkg/mdsio/mdsio_wr_rec_rs.F 66 MDS_WR_REC_RS
        DO k=1,nArr
./pkg/mdsio/mdsio_wr_rec_rs.F 70 MDS_WR_REC_RS
        CALL MDS_BYTESWAPR8( nArr, r8Buf )