| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_writefield_loc.F |
100 |
MDSWRITEFIELD_LOC |
Real*4 r4seg(sNx) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
326 |
MDSWRITEFIELD_LOC |
call MDS_SEG4TORS( j,bi,bj,k,nNz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
328 |
MDSWRITEFIELD_LOC |
call MDS_SEG4TORL( j,bi,bj,k,nNz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
336 |
MDSWRITEFIELD_LOC |
call MDS_BYTESWAPR4( sNx, r4seg ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
338 |
MDSWRITEFIELD_LOC |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_writefield_loc.F |
411 |
MDSWRITEFIELD_LOC |
call MDS_SEG4TORS( j,bi,bj,k,nNz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
413 |
MDSWRITEFIELD_LOC |
call MDS_SEG4TORL( j,bi,bj,k,nNz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
421 |
MDSWRITEFIELD_LOC |
call MDS_BYTESWAPR4( sNx, r4seg ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
423 |
MDSWRITEFIELD_LOC |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_slice.F |
185 |
MDSREADFIELDXZ |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_slice.F |
187 |
MDSREADFIELDXZ |
call MDS_BYTESWAPR4(sNx,r4seg) |
|
./pkg/mdsio/mdsio_slice.F |
190 |
MDSREADFIELDXZ |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
192 |
MDSREADFIELDXZ |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
299 |
MDSREADFIELDYZ |
Real*4 r4seg(sNy) |
|
./pkg/mdsio/mdsio_slice.F |
423 |
MDSREADFIELDYZ |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_slice.F |
425 |
MDSREADFIELDYZ |
call MDS_BYTESWAPR4(sNy,r4seg) |
|
./pkg/mdsio/mdsio_slice.F |
428 |
MDSREADFIELDYZ |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
430 |
MDSREADFIELDYZ |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
542 |
MDSWRITEFIELDXZ |
Real*4 r4seg(sNx) |
|
./pkg/mdsio/mdsio_slice.F |
61 |
MDSREADFIELDXZ |
Real*4 r4seg(sNx) |
|
./pkg/mdsio/mdsio_slice.F |
631 |
MDSWRITEFIELDXZ |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
633 |
MDSWRITEFIELDXZ |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
641 |
MDSWRITEFIELDXZ |
call MDS_BYTESWAPR4(sNx,r4seg) |
|
./pkg/mdsio/mdsio_slice.F |
643 |
MDSWRITEFIELDXZ |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_slice.F |
760 |
MDSWRITEFIELDYZ |
Real*4 r4seg(sNy) |
|
./pkg/mdsio/mdsio_slice.F |
849 |
MDSWRITEFIELDYZ |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
851 |
MDSWRITEFIELDYZ |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
859 |
MDSWRITEFIELDYZ |
call MDS_BYTESWAPR4(sNy,r4seg) |
|
./pkg/mdsio/mdsio_slice.F |
861 |
MDSWRITEFIELDYZ |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_slice_loc.F |
175 |
MDSREADFIELDXZ_LOC |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_slice_loc.F |
177 |
MDSREADFIELDXZ_LOC |
call MDS_BYTESWAPR4(sNx,r4seg) |
|
./pkg/mdsio/mdsio_slice_loc.F |
180 |
MDSREADFIELDXZ_LOC |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
182 |
MDSREADFIELDXZ_LOC |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
289 |
MDSREADFIELDYZ_LOC |
Real*4 r4seg(sNy) |
|
./pkg/mdsio/mdsio_slice_loc.F |
404 |
MDSREADFIELDYZ_LOC |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_slice_loc.F |
406 |
MDSREADFIELDYZ_LOC |
call MDS_BYTESWAPR4(sNy,r4seg) |
|
./pkg/mdsio/mdsio_slice_loc.F |
409 |
MDSREADFIELDYZ_LOC |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
411 |
MDSREADFIELDYZ_LOC |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
523 |
MDSWRITEFIELDXZ_LOC |
Real*4 r4seg(sNx) |
|
./pkg/mdsio/mdsio_slice_loc.F |
603 |
MDSWRITEFIELDXZ_LOC |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
605 |
MDSWRITEFIELDXZ_LOC |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
60 |
MDSREADFIELDXZ_LOC |
Real*4 r4seg(sNx) |
|
./pkg/mdsio/mdsio_slice_loc.F |
613 |
MDSWRITEFIELDXZ_LOC |
call MDS_BYTESWAPR4(sNx,r4seg) |
|
./pkg/mdsio/mdsio_slice_loc.F |
615 |
MDSWRITEFIELDXZ_LOC |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_slice_loc.F |
732 |
MDSWRITEFIELDYZ_LOC |
Real*4 r4seg(sNy) |
|
./pkg/mdsio/mdsio_slice_loc.F |
812 |
MDSWRITEFIELDYZ_LOC |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
814 |
MDSWRITEFIELDYZ_LOC |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
822 |
MDSWRITEFIELDYZ_LOC |
call MDS_BYTESWAPR4(sNy,r4seg) |
|
./pkg/mdsio/mdsio_slice_loc.F |
824 |
MDSWRITEFIELDYZ_LOC |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_readtile.F |
176 |
MDSIO_READTILE |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_readtile.F |
178 |
MDSIO_READTILE |
call MDS_BYTESWAPR4( sNx, r4seg ) |
|
./pkg/mdsio/mdsio_readtile.F |
181 |
MDSIO_READTILE |
call MDS_SEG4TORS( j,bi,bj,k,nNz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readtile.F |
183 |
MDSIO_READTILE |
call MDS_SEG4TORL( j,bi,bj,k,nNz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readtile.F |
65 |
MDSIO_READTILE |
Real*4 r4seg(sNx) |
|
./pkg/mdsio/mdsio_gl.F |
1184 |
MDSWRITEFIELD_2D_GL |
Real*4 r4seg(sNx) |
|
./pkg/mdsio/mdsio_gl.F |
1360 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1362 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1370 |
MDSWRITEFIELD_2D_GL |
call MDS_BYTESWAPR4( sNx, r4seg ) |
|
./pkg/mdsio/mdsio_gl.F |
1372 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
269 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
271 |
MDSREADFIELD_3D_GL |
call MDS_BYTESWAPR4( sNx, r4seg ) |
|
./pkg/mdsio/mdsio_gl.F |
274 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
276 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
474 |
MDSWRITEFIELD_3D_GL |
Real*4 r4seg(sNx) |
|
./pkg/mdsio/mdsio_gl.F |
649 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
651 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
659 |
MDSWRITEFIELD_3D_GL |
call MDS_BYTESWAPR4( sNx, r4seg ) |
|
./pkg/mdsio/mdsio_gl.F |
661 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
798 |
MDSREADFIELD_2D_GL |
Real*4 r4seg(sNx) |
|
./pkg/mdsio/mdsio_gl.F |
89 |
MDSREADFIELD_3D_GL |
Real*4 r4seg(sNx) |
|
./pkg/mdsio/mdsio_gl.F |
978 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
980 |
MDSREADFIELD_2D_GL |
call MDS_BYTESWAPR4( sNx, r4seg ) |
|
./pkg/mdsio/mdsio_gl.F |
983 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
985 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_writetile.F |
160 |
MDS_WRITETILE |
call MDS_SEG4TORS( j,bi,bj,k,nNz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writetile.F |
162 |
MDS_WRITETILE |
call MDS_SEG4TORL( j,bi,bj,k,nNz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writetile.F |
170 |
MDS_WRITETILE |
call MDS_BYTESWAPR4( sNx, r4seg ) |
|
./pkg/mdsio/mdsio_writetile.F |
172 |
MDS_WRITETILE |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_writetile.F |
78 |
MDS_WRITETILE |
Real*4 r4seg(sNx) |
|
./pkg/mdsio/mdsio_gl_slice.F |
187 |
MDSREADFIELD_XZ_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
189 |
MDSREADFIELD_XZ_GL |
call MDS_BYTESWAPR4( sNx, r4seg ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
192 |
MDSREADFIELD_XZ_GL |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
194 |
MDSREADFIELD_XZ_GL |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
312 |
MDSREADFIELD_YZ_GL |
Real*4 r4seg(sNy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
409 |
MDSREADFIELD_YZ_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
411 |
MDSREADFIELD_YZ_GL |
call MDS_BYTESWAPR4( sNy, r4seg ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
414 |
MDSREADFIELD_YZ_GL |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
416 |
MDSREADFIELD_YZ_GL |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
546 |
MDSWRITEFIELD_XZ_GL |
Real*4 r4seg(sNx) |
|
./pkg/mdsio/mdsio_gl_slice.F |
610 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
612 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
620 |
MDSWRITEFIELD_XZ_GL |
call MDS_BYTESWAPR4( sNx, r4seg ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
622 |
MDSWRITEFIELD_XZ_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
761 |
MDSWRITEFIELD_YZ_GL |
Real*4 r4seg(sNy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
825 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
827 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
835 |
MDSWRITEFIELD_YZ_GL |
call MDS_BYTESWAPR4( sNy, r4seg ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
837 |
MDSWRITEFIELD_YZ_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
89 |
MDSREADFIELD_XZ_GL |
Real*4 r4seg(sNx) |
|
./pkg/mdsio/mdsio_writelocal.F |
175 |
MDS_WRITELOCAL |
call MDS_SEG4TORS( j,1,1,k,nNz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writelocal.F |
177 |
MDS_WRITELOCAL |
call MDS_SEG4TORL( j,1,1,k,nNz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writelocal.F |
185 |
MDS_WRITELOCAL |
call MDS_BYTESWAPR4( sNx, r4seg ) |
|
./pkg/mdsio/mdsio_writelocal.F |
187 |
MDS_WRITELOCAL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_writelocal.F |
82 |
MDS_WRITELOCAL |
Real*4 r4seg(sNx) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
182 |
MDSREADFIELD_LOC |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_readfield_loc.F |
184 |
MDSREADFIELD_LOC |
call MDS_BYTESWAPR4( sNx, r4seg ) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
187 |
MDSREADFIELD_LOC |
call MDS_SEG4TORS( j,bi,bj,k,nNz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
189 |
MDSREADFIELD_LOC |
call MDS_SEG4TORL( j,bi,bj,k,nNz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
63 |
MDSREADFIELD_LOC |
Real*4 r4seg(sNx) |
|
./pkg/mdsio/mdsio_readfield.F |
203 |
MDSREADFIELD |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_readfield.F |
205 |
MDSREADFIELD |
call MDS_BYTESWAPR4( sNx, r4seg ) |
|
./pkg/mdsio/mdsio_readfield.F |
208 |
MDSREADFIELD |
call MDS_SEG4TORS( j,bi,bj,k,nNz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield.F |
210 |
MDSREADFIELD |
call MDS_SEG4TORL( j,bi,bj,k,nNz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield.F |
308 |
MDSREADFIELD |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_readfield.F |
310 |
MDSREADFIELD |
call MDS_BYTESWAPR4( sNx, r4seg ) |
|
./pkg/mdsio/mdsio_readfield.F |
313 |
MDSREADFIELD |
call MDS_SEG4TORS( j,bi,bj,k,nNz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield.F |
315 |
MDSREADFIELD |
call MDS_SEG4TORL( j,bi,bj,k,nNz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield.F |
79 |
MDSREADFIELD |
Real*4 r4seg(sNx) |
|
./pkg/mdsio/mdswritefield_new.F |
101 |
MDSWRITEFIELD_NEW |
Real*4 r4seg(sNx) |
|
./pkg/mdsio/mdswritefield_new.F |
327 |
MDSWRITEFIELD_NEW |
call MDS_SEG4TORS( j,bi,bj,k,nNzdim, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdswritefield_new.F |
329 |
MDSWRITEFIELD_NEW |
call MDS_SEG4TORL( j,bi,bj,k,nNzdim, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdswritefield_new.F |
337 |
MDSWRITEFIELD_NEW |
call MDS_BYTESWAPR4( sNx, r4seg ) |
|
./pkg/mdsio/mdswritefield_new.F |
339 |
MDSWRITEFIELD_NEW |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdswritefield_new.F |
412 |
MDSWRITEFIELD_NEW |
call MDS_SEG4TORS( j,bi,bj,k,nNzdim, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdswritefield_new.F |
414 |
MDSWRITEFIELD_NEW |
call MDS_SEG4TORL( j,bi,bj,k,nNzdim, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdswritefield_new.F |
422 |
MDSWRITEFIELD_NEW |
call MDS_BYTESWAPR4( sNx, r4seg ) |
|
./pkg/mdsio/mdswritefield_new.F |
424 |
MDSWRITEFIELD_NEW |
write(dUnit,rec=irec) r4seg |
|
./pkg/matrix/matrix_write_grid.F |
21 |
MATRIX_WRITE_GRID |
_RS r4seg(Nr) |
|
./pkg/matrix/matrix_write_grid.F |
30 |
MATRIX_WRITE_GRID |
r4seg(k)=rC(k) |
|
./pkg/matrix/matrix_write_grid.F |
36 |
MATRIX_WRITE_GRID |
call MDS_BYTESWAPR4( Nr, r4seg ) |
|
./pkg/matrix/matrix_write_grid.F |
42 |
MATRIX_WRITE_GRID |
call MDS_BYTESWAPR8( Nr, r4seg ) |
|
./pkg/matrix/matrix_write_grid.F |
45 |
MATRIX_WRITE_GRID |
write(dUnit,rec=1) r4seg |
|
./pkg/matrix/matrix_write_grid.F |
50 |
MATRIX_WRITE_GRID |
r4seg(k)=drF(k) |
|
./pkg/matrix/matrix_write_grid.F |
56 |
MATRIX_WRITE_GRID |
call MDS_BYTESWAPR4( Nr, r4seg ) |
|
./pkg/matrix/matrix_write_grid.F |
62 |
MATRIX_WRITE_GRID |
call MDS_BYTESWAPR8( Nr, r4seg ) |
|
./pkg/matrix/matrix_write_grid.F |
65 |
MATRIX_WRITE_GRID |
write(dUnit,rec=1) r4seg |