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 ) |