File |
Line number |
Procedure |
Code |
./pkg/mdsio/mdsio_rd_rec_rl.F |
13 |
MDS_RD_REC_RL |
O r4Buf, r8Buf, |
./pkg/mdsio/mdsio_rd_rec_rl.F |
41 |
MDS_RD_REC_RL |
Real*4 r4Buf(nArr) |
./pkg/mdsio/mdsio_rd_rec_rl.F |
58 |
MDS_RD_REC_RL |
READ( dUnit, rec=iRec ) r4Buf |
./pkg/mdsio/mdsio_rd_rec_rl.F |
60 |
MDS_RD_REC_RL |
CALL MDS_BYTESWAPR4( nArr, r4Buf ) |
./pkg/mdsio/mdsio_rd_rec_rl.F |
63 |
MDS_RD_REC_RL |
arr(k) = r4Buf(k) |
./pkg/mdsio/mdsio_rd_rec_rs.F |
13 |
MDS_RD_REC_RS |
O r4Buf, r8Buf, |
./pkg/mdsio/mdsio_rd_rec_rs.F |
41 |
MDS_RD_REC_RS |
Real*4 r4Buf(nArr) |
./pkg/mdsio/mdsio_rd_rec_rs.F |
58 |
MDS_RD_REC_RS |
READ( dUnit, rec=iRec ) r4Buf |
./pkg/mdsio/mdsio_rd_rec_rs.F |
60 |
MDS_RD_REC_RS |
CALL MDS_BYTESWAPR4( nArr, r4Buf ) |
./pkg/mdsio/mdsio_rd_rec_rs.F |
63 |
MDS_RD_REC_RS |
arr(k) = r4Buf(k) |
./pkg/mdsio/mdsio_wr_rec_rl.F |
13 |
MDS_WR_REC_RL |
O r4Buf, r8Buf, |
./pkg/mdsio/mdsio_wr_rec_rl.F |
41 |
MDS_WR_REC_RL |
Real*4 r4Buf(nArr) |
./pkg/mdsio/mdsio_wr_rec_rl.F |
59 |
MDS_WR_REC_RL |
r4Buf(k) = arr(k) |
./pkg/mdsio/mdsio_wr_rec_rl.F |
62 |
MDS_WR_REC_RL |
CALL MDS_BYTESWAPR4( nArr, r4Buf ) |
./pkg/mdsio/mdsio_wr_rec_rl.F |
64 |
MDS_WR_REC_RL |
WRITE( dUnit, rec=iRec ) r4Buf |
./pkg/mdsio/mdsio_wr_rec_rs.F |
13 |
MDS_WR_REC_RS |
O r4Buf, r8Buf, |
./pkg/mdsio/mdsio_wr_rec_rs.F |
41 |
MDS_WR_REC_RS |
Real*4 r4Buf(nArr) |
./pkg/mdsio/mdsio_wr_rec_rs.F |
59 |
MDS_WR_REC_RS |
r4Buf(k) = arr(k) |
./pkg/mdsio/mdsio_wr_rec_rs.F |
62 |
MDS_WR_REC_RS |
CALL MDS_BYTESWAPR4( nArr, r4Buf ) |
./pkg/mdsio/mdsio_wr_rec_rs.F |
64 |
MDS_WR_REC_RS |
WRITE( dUnit, rec=iRec ) r4Buf |