File |
Line number |
Procedure |
Code |
./pkg/mdsio/mdsio_read_tape.F |
174 |
MDS_READ_TAPE |
CALL SCATTER_VEC_R8( gl_buffer_r8, local_r8, nSize, myThid ) |
./pkg/mdsio/mdsio_read_tape.F |
245 |
MDS_READ_TAPE |
READ(dUnit,rec=jRec) local_r8 |
./pkg/mdsio/mdsio_read_tape.F |
247 |
MDS_READ_TAPE |
CALL MDS_BYTESWAPR8( nSize, local_r8 ) |
./pkg/mdsio/mdsio_read_tape.F |
275 |
MDS_READ_TAPE |
fldR4(j) = local_r8(j) |
./pkg/mdsio/mdsio_read_tape.F |
285 |
MDS_READ_TAPE |
fldR8(j) = local_r8(j) |
./pkg/mdsio/mdsio_read_tape.F |
77 |
MDS_READ_TAPE |
_R8 local_r8 (nSize) |
./pkg/mdsio/mdsio_write_tape.F |
103 |
MDS_WRITE_TAPE |
local_r8(j) = fldR4(j) |
./pkg/mdsio/mdsio_write_tape.F |
113 |
MDS_WRITE_TAPE |
local_r8(j) = fldR8(j) |
./pkg/mdsio/mdsio_write_tape.F |
169 |
MDS_WRITE_TAPE |
CALL GATHER_VEC_R8( gl_buffer_r8, local_r8, nSize, myThid ) |
./pkg/mdsio/mdsio_write_tape.F |
276 |
MDS_WRITE_TAPE |
CALL MDS_BYTESWAPR8( nSize, local_r8 ) |
./pkg/mdsio/mdsio_write_tape.F |
278 |
MDS_WRITE_TAPE |
WRITE(dUnit,rec=jRec) local_r8 |
./pkg/mdsio/mdsio_write_tape.F |
83 |
MDS_WRITE_TAPE |
_R8 local_r8 (nSize) |