| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_writevec_loc.F |
116 |
MDSWRITEVEC_LOC_RS |
length_of_rec=MDS_RECLEN( filePrec, nArr, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
135 |
MDSWRITEVEC_LOC_RS |
DO k=1,nArr |
|
./pkg/mdsio/mdsio_writevec_loc.F |
139 |
MDSWRITEVEC_LOC_RS |
CALL MDS_BYTESWAPR4( nArr, r4seg ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
141 |
MDSWRITEVEC_LOC_RS |
WRITE(dUnit,rec=irec) (r4seg(k),k=1,nArr) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
143 |
MDSWRITEVEC_LOC_RS |
DO k=1,nArr |
|
./pkg/mdsio/mdsio_writevec_loc.F |
147 |
MDSWRITEVEC_LOC_RS |
CALL MDS_BYTESWAPR8( nArr, r8seg ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
149 |
MDSWRITEVEC_LOC_RS |
WRITE(dUnit,rec=irec) (r8seg(k),k=1,nArr) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
192 |
MDSWRITEVEC_LOC_RS |
dimList(1,3)=nArr |
|
./pkg/mdsio/mdsio_writevec_loc.F |
194 |
MDSWRITEVEC_LOC_RS |
dimList(3,3)=nArr |
|
./pkg/mdsio/mdsio_writevec_loc.F |
196 |
MDSWRITEVEC_LOC_RS |
IF (nArr .EQ. 1) ndims=2 |
|
./pkg/mdsio/mdsio_writevec_loc.F |
45 |
MDSWRITEVEC_LOC_RS |
INTEGER nArr |
|
./pkg/mdsio/mdsio_writevec_loc.F |
9 |
MDSWRITEVEC_LOC_RS |
I nArr, |