| File |
Line number |
Procedure |
Code |
|
./pkg/debug/write_fullarray_rl.F |
37 |
WRITE_FULLARRAY_RL |
INTEGER s1Lo,s1Hi, dUnit |
|
./pkg/debug/write_fullarray_rl.F |
48 |
WRITE_FULLARRAY_RL |
CALL MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/debug/write_fullarray_rl.F |
63 |
WRITE_FULLARRAY_RL |
OPEN(dUnit, file=fullName, status='unknown', |
|
./pkg/debug/write_fullarray_rl.F |
66 |
WRITE_FULLARRAY_RL |
WRITE(dUnit) ((( fld(i,j,k,bi,bj), |
|
./pkg/debug/write_fullarray_rl.F |
70 |
WRITE_FULLARRAY_RL |
CLOSE(dUnit) |
|
./pkg/debug/write_fullarray_rl.F |
84 |
WRITE_FULLARRAY_RL |
OPEN(dUnit, file=fullName, status='unknown', |
|
./pkg/debug/write_fullarray_rl.F |
87 |
WRITE_FULLARRAY_RL |
WRITE(dUnit) ((( fld(i,j,k,1,1), |
|
./pkg/debug/write_fullarray_rl.F |
91 |
WRITE_FULLARRAY_RL |
CLOSE(dUnit) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
147 |
MDSWRITEFIELD_LOC |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
161 |
MDSWRITEFIELD_LOC |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writefield_loc.F |
164 |
MDSWRITEFIELD_LOC |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writefield_loc.F |
216 |
MDSWRITEFIELD_LOC |
write(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_writefield_loc.F |
248 |
MDSWRITEFIELD_LOC |
write(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_writefield_loc.F |
262 |
MDSWRITEFIELD_LOC |
close( dUnit ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
291 |
MDSWRITEFIELD_LOC |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writefield_loc.F |
296 |
MDSWRITEFIELD_LOC |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writefield_loc.F |
338 |
MDSWRITEFIELD_LOC |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_writefield_loc.F |
353 |
MDSWRITEFIELD_LOC |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_writefield_loc.F |
386 |
MDSWRITEFIELD_LOC |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writefield_loc.F |
391 |
MDSWRITEFIELD_LOC |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writefield_loc.F |
423 |
MDSWRITEFIELD_LOC |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_writefield_loc.F |
438 |
MDSWRITEFIELD_LOC |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_writefield_loc.F |
457 |
MDSWRITEFIELD_LOC |
close( dUnit ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
503 |
MDSWRITEFIELD_LOC |
close( dUnit ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
90 |
MDSWRITEFIELD_LOC |
integer iG,jG,irec,bi,bj,i,j,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_slice.F |
131 |
MDSREADFIELDXZ |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_slice.F |
156 |
MDSREADFIELDXZ |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_slice.F |
185 |
MDSREADFIELDXZ |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_slice.F |
200 |
MDSREADFIELDXZ |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_slice.F |
223 |
MDSREADFIELDXZ |
close( dUnit ) |
|
./pkg/mdsio/mdsio_slice.F |
233 |
MDSREADFIELDXZ |
close( dUnit ) |
|
./pkg/mdsio/mdsio_slice.F |
297 |
MDSREADFIELDYZ |
integer iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_slice.F |
336 |
MDSREADFIELDYZ |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_slice.F |
369 |
MDSREADFIELDYZ |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_slice.F |
394 |
MDSREADFIELDYZ |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_slice.F |
423 |
MDSREADFIELDYZ |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_slice.F |
438 |
MDSREADFIELDYZ |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_slice.F |
461 |
MDSREADFIELDYZ |
close( dUnit ) |
|
./pkg/mdsio/mdsio_slice.F |
471 |
MDSREADFIELDYZ |
close( dUnit ) |
|
./pkg/mdsio/mdsio_slice.F |
541 |
MDSWRITEFIELDXZ |
integer iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_slice.F |
578 |
MDSWRITEFIELDXZ |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_slice.F |
585 |
MDSWRITEFIELDXZ |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_slice.F |
590 |
MDSWRITEFIELDXZ |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_slice.F |
59 |
MDSREADFIELDXZ |
integer iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_slice.F |
607 |
MDSWRITEFIELDXZ |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_slice.F |
612 |
MDSWRITEFIELDXZ |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_slice.F |
643 |
MDSWRITEFIELDXZ |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_slice.F |
658 |
MDSWRITEFIELDXZ |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_slice.F |
675 |
MDSWRITEFIELDXZ |
close( dUnit ) |
|
./pkg/mdsio/mdsio_slice.F |
684 |
MDSWRITEFIELDXZ |
close( dUnit ) |
|
./pkg/mdsio/mdsio_slice.F |
759 |
MDSWRITEFIELDYZ |
integer iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_slice.F |
796 |
MDSWRITEFIELDYZ |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_slice.F |
803 |
MDSWRITEFIELDYZ |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_slice.F |
808 |
MDSWRITEFIELDYZ |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_slice.F |
825 |
MDSWRITEFIELDYZ |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_slice.F |
830 |
MDSWRITEFIELDYZ |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_slice.F |
861 |
MDSWRITEFIELDYZ |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_slice.F |
876 |
MDSWRITEFIELDYZ |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_slice.F |
893 |
MDSWRITEFIELDYZ |
close( dUnit ) |
|
./pkg/mdsio/mdsio_slice.F |
902 |
MDSWRITEFIELDYZ |
close( dUnit ) |
|
./pkg/mdsio/mdsio_slice.F |
98 |
MDSREADFIELDXZ |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_read_rl_vec.F |
24 |
MDS_READ_RL_VEC |
integer dUnit |
|
./pkg/mdsio/mdsio_read_rl_vec.F |
39 |
MDS_READ_RL_VEC |
read(dUnit,rec=irec) arr |
|
./pkg/mdsio/mdsio_read_rl_vec.F |
6 |
MDS_READ_RL_VEC |
subroutine MDS_READ_RL_VEC( dUnit, irec, narr, arr, mythid ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
121 |
MDSREADFIELDXZ_LOC |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_slice_loc.F |
146 |
MDSREADFIELDXZ_LOC |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_slice_loc.F |
175 |
MDSREADFIELDXZ_LOC |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_slice_loc.F |
190 |
MDSREADFIELDXZ_LOC |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_slice_loc.F |
213 |
MDSREADFIELDXZ_LOC |
close( dUnit ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
223 |
MDSREADFIELDXZ_LOC |
close( dUnit ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
287 |
MDSREADFIELDYZ_LOC |
integer iG,jG,irec,bi,bj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_slice_loc.F |
317 |
MDSREADFIELDYZ_LOC |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
350 |
MDSREADFIELDYZ_LOC |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_slice_loc.F |
375 |
MDSREADFIELDYZ_LOC |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_slice_loc.F |
404 |
MDSREADFIELDYZ_LOC |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_slice_loc.F |
419 |
MDSREADFIELDYZ_LOC |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_slice_loc.F |
442 |
MDSREADFIELDYZ_LOC |
close( dUnit ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
452 |
MDSREADFIELDYZ_LOC |
close( dUnit ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
522 |
MDSWRITEFIELDXZ_LOC |
integer iG,jG,irec,bi,bj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_slice_loc.F |
550 |
MDSWRITEFIELDXZ_LOC |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
557 |
MDSWRITEFIELDXZ_LOC |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_slice_loc.F |
562 |
MDSWRITEFIELDXZ_LOC |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_slice_loc.F |
579 |
MDSWRITEFIELDXZ_LOC |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_slice_loc.F |
584 |
MDSWRITEFIELDXZ_LOC |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_slice_loc.F |
58 |
MDSREADFIELDXZ_LOC |
integer iG,jG,irec,bi,bj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_slice_loc.F |
615 |
MDSWRITEFIELDXZ_LOC |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_slice_loc.F |
630 |
MDSWRITEFIELDXZ_LOC |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_slice_loc.F |
647 |
MDSWRITEFIELDXZ_LOC |
close( dUnit ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
656 |
MDSWRITEFIELDXZ_LOC |
close( dUnit ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
731 |
MDSWRITEFIELDYZ_LOC |
integer iG,jG,irec,bi,bj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_slice_loc.F |
759 |
MDSWRITEFIELDYZ_LOC |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
766 |
MDSWRITEFIELDYZ_LOC |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_slice_loc.F |
771 |
MDSWRITEFIELDYZ_LOC |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_slice_loc.F |
788 |
MDSWRITEFIELDYZ_LOC |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_slice_loc.F |
793 |
MDSWRITEFIELDYZ_LOC |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_slice_loc.F |
824 |
MDSWRITEFIELDYZ_LOC |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_slice_loc.F |
839 |
MDSWRITEFIELDYZ_LOC |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_slice_loc.F |
856 |
MDSWRITEFIELDYZ_LOC |
close( dUnit ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
865 |
MDSWRITEFIELDYZ_LOC |
close( dUnit ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
88 |
MDSREADFIELDXZ_LOC |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_readtile.F |
122 |
MDSIO_READTILE |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_readtile.F |
146 |
MDSIO_READTILE |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_readtile.F |
176 |
MDSIO_READTILE |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_readtile.F |
191 |
MDSIO_READTILE |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_readtile.F |
216 |
MDSIO_READTILE |
close( dUnit ) |
|
./pkg/mdsio/mdsio_readtile.F |
227 |
MDSIO_READTILE |
close( dUnit ) |
|
./pkg/mdsio/mdsio_readtile.F |
63 |
MDSIO_READTILE |
integer iG,jG,irec,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_readtile.F |
93 |
MDSIO_READTILE |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_readvector.F |
129 |
MDSREADVECTOR |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_readvector.F |
154 |
MDSREADVECTOR |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_readvector.F |
181 |
MDSREADVECTOR |
call MDS_READ_RS_VEC( dUnit, irec, narr, arr, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
183 |
MDSREADVECTOR |
call MDS_READ_RL_VEC( dUnit, irec, narr, arr, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
191 |
MDSREADVECTOR |
close( dUnit ) |
|
./pkg/mdsio/mdsio_readvector.F |
201 |
MDSREADVECTOR |
close( dUnit ) |
|
./pkg/mdsio/mdsio_readvector.F |
58 |
MDSREADVECTOR |
integer iG,jG,irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_readvector.F |
96 |
MDSREADVECTOR |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
1022 |
MDSREADFIELD_2D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
1035 |
MDSREADFIELD_2D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
1054 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
1064 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
1099 |
MDSREADFIELD_2D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
1183 |
MDSWRITEFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
1223 |
MDSWRITEFIELD_2D_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
1239 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1242 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1278 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
1288 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
128 |
MDSREADFIELD_3D_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
1302 |
MDSWRITEFIELD_2D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
1340 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1345 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1372 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
1387 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
1406 |
MDSWRITEFIELD_2D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
154 |
MDSREADFIELD_3D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
208 |
MDSREADFIELD_3D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
236 |
MDSREADFIELD_3D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
269 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
284 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
313 |
MDSREADFIELD_3D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
326 |
MDSREADFIELD_3D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
345 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
355 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
390 |
MDSREADFIELD_3D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
473 |
MDSWRITEFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
513 |
MDSWRITEFIELD_3D_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
528 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
531 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
567 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
577 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
591 |
MDSWRITEFIELD_3D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
629 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
634 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
661 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
676 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
695 |
MDSWRITEFIELD_3D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
795 |
MDSREADFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
837 |
MDSREADFIELD_2D_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
864 |
MDSREADFIELD_2D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
86 |
MDSREADFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
917 |
MDSREADFIELD_2D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
945 |
MDSREADFIELD_2D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
978 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
993 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_writetile.F |
106 |
MDS_WRITETILE |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_writetile.F |
113 |
MDS_WRITETILE |
open( dUnit, file=dataFName, status='unknown', |
|
./pkg/mdsio/mdsio_writetile.F |
118 |
MDS_WRITETILE |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writetile.F |
135 |
MDS_WRITETILE |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writetile.F |
140 |
MDS_WRITETILE |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writetile.F |
172 |
MDS_WRITETILE |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_writetile.F |
187 |
MDS_WRITETILE |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_writetile.F |
206 |
MDS_WRITETILE |
close( dUnit ) |
|
./pkg/mdsio/mdsio_writetile.F |
235 |
MDS_WRITETILE |
close( dUnit ) |
|
./pkg/mdsio/mdsio_writetile.F |
77 |
MDS_WRITETILE |
integer iG,jG,irec,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_writevector.F |
102 |
MDSWRITEVECTOR |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_writevector.F |
109 |
MDSWRITEVECTOR |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writevector.F |
114 |
MDSWRITEVECTOR |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writevector.F |
131 |
MDSWRITEVECTOR |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writevector.F |
136 |
MDSWRITEVECTOR |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writevector.F |
153 |
MDSWRITEVECTOR |
call MDS_WRITE_RS_VEC( dUnit, irec, narr, arr, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
155 |
MDSWRITEVECTOR |
call MDS_WRITE_RL_VEC( dUnit, irec, narr, arr, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
170 |
MDSWRITEVECTOR |
close( dUnit ) |
|
./pkg/mdsio/mdsio_writevector.F |
198 |
MDSWRITEVECTOR |
close( dUnit ) |
|
./pkg/mdsio/mdsio_writevector.F |
65 |
MDSWRITEVECTOR |
integer iG,jG,irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_rs_vec.F |
23 |
MDS_WRITE_RS_VEC |
integer dUnit |
|
./pkg/mdsio/mdsio_write_rs_vec.F |
38 |
MDS_WRITE_RS_VEC |
write(dUnit,rec=irec) arr |
|
./pkg/mdsio/mdsio_write_rs_vec.F |
6 |
MDS_WRITE_RS_VEC |
subroutine MDS_WRITE_RS_VEC( dUnit, irec, narr, arr, mythid ) |
|
./pkg/mdsio/mdsio_read_rs_vec.F |
24 |
MDS_READ_RS_VEC |
integer dUnit |
|
./pkg/mdsio/mdsio_read_rs_vec.F |
39 |
MDS_READ_RS_VEC |
read(dUnit,rec=irec) arr |
|
./pkg/mdsio/mdsio_read_rs_vec.F |
6 |
MDS_READ_RS_VEC |
subroutine MDS_READ_RS_VEC( dUnit, irec, narr, arr, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
117 |
MDSREADFIELD_XZ_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
165 |
MDSREADFIELD_XZ_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl_slice.F |
187 |
MDSREADFIELD_XZ_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
202 |
MDSREADFIELD_XZ_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
229 |
MDSREADFIELD_XZ_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
242 |
MDSREADFIELD_XZ_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
309 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
340 |
MDSREADFIELD_YZ_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
387 |
MDSREADFIELD_YZ_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl_slice.F |
409 |
MDSREADFIELD_YZ_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
424 |
MDSREADFIELD_YZ_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
451 |
MDSREADFIELD_YZ_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
464 |
MDSREADFIELD_YZ_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
545 |
MDSWRITEFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
575 |
MDSWRITEFIELD_XZ_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
591 |
MDSWRITEFIELD_XZ_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
596 |
MDSWRITEFIELD_XZ_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
622 |
MDSWRITEFIELD_XZ_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
637 |
MDSWRITEFIELD_XZ_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
654 |
MDSWRITEFIELD_XZ_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
760 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
790 |
MDSWRITEFIELD_YZ_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
806 |
MDSWRITEFIELD_YZ_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
811 |
MDSWRITEFIELD_YZ_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
837 |
MDSWRITEFIELD_YZ_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
852 |
MDSWRITEFIELD_YZ_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
869 |
MDSWRITEFIELD_YZ_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
86 |
MDSREADFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_writelocal.F |
121 |
MDS_WRITELOCAL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
128 |
MDS_WRITELOCAL |
open( dUnit, file=dataFName, status='unknown', |
|
./pkg/mdsio/mdsio_writelocal.F |
133 |
MDS_WRITELOCAL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
150 |
MDS_WRITELOCAL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
155 |
MDS_WRITELOCAL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
187 |
MDS_WRITELOCAL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_writelocal.F |
202 |
MDS_WRITELOCAL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_writelocal.F |
221 |
MDS_WRITELOCAL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_writelocal.F |
262 |
MDS_WRITELOCAL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_writelocal.F |
81 |
MDS_WRITELOCAL |
integer iG,jG,irec,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_readfield_loc.F |
124 |
MDSREADFIELD_LOC |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_readfield_loc.F |
149 |
MDSREADFIELD_LOC |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_readfield_loc.F |
182 |
MDSREADFIELD_LOC |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_readfield_loc.F |
197 |
MDSREADFIELD_LOC |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_readfield_loc.F |
222 |
MDSREADFIELD_LOC |
close( dUnit ) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
232 |
MDSREADFIELD_LOC |
close( dUnit ) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
61 |
MDSREADFIELD_LOC |
integer iG,jG,irec,bi,bj,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_readfield_loc.F |
91 |
MDSREADFIELD_LOC |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_write_rl_vec.F |
23 |
MDS_WRITE_RL_VEC |
integer dUnit |
|
./pkg/mdsio/mdsio_write_rl_vec.F |
42 |
MDS_WRITE_RL_VEC |
write(dUnit,rec=irec) arr |
|
./pkg/mdsio/mdsio_write_rl_vec.F |
6 |
MDS_WRITE_RL_VEC |
subroutine MDS_WRITE_RL_VEC( dUnit, irec, narr, arr, mythid ) |
|
./pkg/mdsio/mdsio_readfield.F |
123 |
MDSREADFIELD |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_readfield.F |
158 |
MDSREADFIELD |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_readfield.F |
203 |
MDSREADFIELD |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_readfield.F |
218 |
MDSREADFIELD |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_readfield.F |
243 |
MDSREADFIELD |
close( dUnit ) |
|
./pkg/mdsio/mdsio_readfield.F |
275 |
MDSREADFIELD |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_readfield.F |
308 |
MDSREADFIELD |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_readfield.F |
323 |
MDSREADFIELD |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_readfield.F |
348 |
MDSREADFIELD |
close( dUnit ) |
|
./pkg/mdsio/mdsio_readfield.F |
363 |
MDSREADFIELD |
close( dUnit ) |
|
./pkg/mdsio/mdsio_readfield.F |
398 |
MDSREADFIELD |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_readfield.F |
426 |
MDSREADFIELD |
read(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_readfield.F |
453 |
MDSREADFIELD |
read(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_readfield.F |
503 |
MDSREADFIELD |
close( dUnit ) |
|
./pkg/mdsio/mdsio_readfield.F |
69 |
MDSREADFIELD |
integer iG,jG,irec,bi,bj,i,j,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdswritefield_new.F |
148 |
MDSWRITEFIELD_NEW |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdswritefield_new.F |
162 |
MDSWRITEFIELD_NEW |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdswritefield_new.F |
165 |
MDSWRITEFIELD_NEW |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdswritefield_new.F |
217 |
MDSWRITEFIELD_NEW |
write(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdswritefield_new.F |
249 |
MDSWRITEFIELD_NEW |
write(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdswritefield_new.F |
263 |
MDSWRITEFIELD_NEW |
close( dUnit ) |
|
./pkg/mdsio/mdswritefield_new.F |
292 |
MDSWRITEFIELD_NEW |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdswritefield_new.F |
297 |
MDSWRITEFIELD_NEW |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdswritefield_new.F |
339 |
MDSWRITEFIELD_NEW |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdswritefield_new.F |
354 |
MDSWRITEFIELD_NEW |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdswritefield_new.F |
387 |
MDSWRITEFIELD_NEW |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdswritefield_new.F |
392 |
MDSWRITEFIELD_NEW |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdswritefield_new.F |
424 |
MDSWRITEFIELD_NEW |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdswritefield_new.F |
439 |
MDSWRITEFIELD_NEW |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdswritefield_new.F |
458 |
MDSWRITEFIELD_NEW |
close( dUnit ) |
|
./pkg/mdsio/mdswritefield_new.F |
504 |
MDSWRITEFIELD_NEW |
close( dUnit ) |
|
./pkg/mdsio/mdswritefield_new.F |
91 |
MDSWRITEFIELD_NEW |
integer iG,jG,irec,bi,bj,i,j,k,dUnit,IL,pIL |
|
./model/src/ini_curvilinear_grid.F |
546 |
READSYMTILE_RS |
INTEGER I,J,dUnit, iLen |
|
./model/src/ini_curvilinear_grid.F |
564 |
READSYMTILE_RS |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
566 |
READSYMTILE_RS |
OPEN( dUnit, file=fName(1:iLen), status='old', |
|
./model/src/ini_curvilinear_grid.F |
571 |
READSYMTILE_RS |
READ(dUnit,rec=I+iBase)(buf(ii),ii=1,dNx+1) |
|
./model/src/ini_curvilinear_grid.F |
584 |
READSYMTILE_RS |
CLOSE( dUnit ) |
|
./model/src/ini_curvilinear_grid.F |
588 |
READSYMTILE_RS |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
590 |
READSYMTILE_RS |
OPEN( dUnit, file=fName(1:iLen), status='old', |
|
./model/src/ini_curvilinear_grid.F |
592 |
READSYMTILE_RS |
READ(dUnit,rec=irec) buf |
|
./model/src/ini_curvilinear_grid.F |
593 |
READSYMTILE_RS |
CLOSE( dUnit ) |
|
./pkg/flt/flt_mdsreadvector.F |
146 |
MDSREADVECTOR_FLT |
open( dUnit, file=dataFName, status='old', |
|
./pkg/flt/flt_mdsreadvector.F |
169 |
MDSREADVECTOR_FLT |
open( dUnit, file=dataFName, status='old', |
|
./pkg/flt/flt_mdsreadvector.F |
183 |
MDSREADVECTOR_FLT |
call MDS_READ_RS_VEC( dUnit, irec, narr, arr, myThid ) |
|
./pkg/flt/flt_mdsreadvector.F |
185 |
MDSREADVECTOR_FLT |
call MDS_READ_RL_VEC( dUnit, irec, narr, arr, myThid ) |
|
./pkg/flt/flt_mdsreadvector.F |
193 |
MDSREADVECTOR_FLT |
close( dUnit ) |
|
./pkg/flt/flt_mdsreadvector.F |
203 |
MDSREADVECTOR_FLT |
close( dUnit ) |
|
./pkg/flt/flt_mdsreadvector.F |
71 |
MDSREADVECTOR_FLT |
integer iG,jG,irec,dUnit,IL |
|
./pkg/flt/flt_mdsreadvector.F |
99 |
MDSREADVECTOR_FLT |
call MDSFINDUNIT( dUnit, mythid ) |
|
./eesupp/src/dfile.F |
188 |
DFILE_OPEN |
INTEGER dUnit |
|
./eesupp/src/dfile.F |
204 |
DFILE_OPEN |
dUnit = 0 |
|
./eesupp/src/dfile.F |
207 |
DFILE_OPEN |
dUnit = dUnitNumber(I,myThid) |
|
./eesupp/src/dfile.F |
219 |
DFILE_OPEN |
IF ( dUnit .EQ. 0 ) GOTO 999 |
|
./eesupp/src/dfile.F |
237 |
DFILE_OPEN |
OPEN(UNIT=dUnit,FILE=fNam(i1Lo:i1Hi),STATUS='UNKNOWN', ERR=799, |
|
./eesupp/src/dfile.F |
80 |
DFILE_CLOSE |
INTEGER dUnit |
|
./eesupp/src/dfile.F |
90 |
DFILE_CLOSE |
dUnit = dUnitNumber(I,myThid) |
|
./eesupp/src/dfile.F |
93 |
DFILE_CLOSE |
CLOSE(dUnit,ERR=999) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
123 |
DIAGNOSTICS_SET_LEVELS |
CALL MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
124 |
DIAGNOSTICS_SET_LEVELS |
OPEN(dUnit, file='available_diagnostics.log', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
126 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A,I4)') |
|
./pkg/diagnostics/diagnostics_set_levels.F |
128 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
129 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccHead |
|
./pkg/diagnostics/diagnostics_set_levels.F |
130 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
133 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
134 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccHead |
|
./pkg/diagnostics/diagnostics_set_levels.F |
135 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
139 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I4,3A,I3,6A)') n,' |',cdiag(n),'|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
142 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I4,3A,I3,6A)') n,' |',cdiag(n),'|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
146 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
147 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccHead |
|
./pkg/diagnostics/diagnostics_set_levels.F |
148 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
149 |
DIAGNOSTICS_SET_LEVELS |
CLOSE(dUnit) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
63 |
DIAGNOSTICS_SET_LEVELS |
INTEGER dUnit, stdUnit |
|
./pkg/diagnostics/diagnostics_summary.F |
100 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccFlds |
|
./pkg/diagnostics/diagnostics_summary.F |
118 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
121 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_summary.F |
128 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,I6)') |
|
./pkg/diagnostics/diagnostics_summary.F |
131 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_summary.F |
140 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,I4,2A)') 'listId=', ld, |
|
./pkg/diagnostics/diagnostics_summary.F |
142 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccList |
|
./pkg/diagnostics/diagnostics_summary.F |
143 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(I4,A,I4,A,2F17.6,A,I4)') |
|
./pkg/diagnostics/diagnostics_summary.F |
156 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
158 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccFlds |
|
./pkg/diagnostics/diagnostics_summary.F |
178 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
181 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_summary.F |
186 |
DIAGNOSTICS_SUMMARY |
IF ( dUnit.NE.standardMessageUnit ) CLOSE(dUnit) |
|
./pkg/diagnostics/diagnostics_summary.F |
35 |
DIAGNOSTICS_SUMMARY |
INTEGER dUnit, stdUnit, iLen |
|
./pkg/diagnostics/diagnostics_summary.F |
51 |
DIAGNOSTICS_SUMMARY |
dUnit = standardMessageUnit |
|
./pkg/diagnostics/diagnostics_summary.F |
53 |
DIAGNOSTICS_SUMMARY |
& ' write diagnostics summary to file ioUnit: ',dUnit |
|
./pkg/diagnostics/diagnostics_summary.F |
60 |
DIAGNOSTICS_SUMMARY |
CALL MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/diagnostics/diagnostics_summary.F |
61 |
DIAGNOSTICS_SUMMARY |
OPEN(dUnit,file=fn(1:iLen),status='unknown',form='formatted') |
|
./pkg/diagnostics/diagnostics_summary.F |
81 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,I10,A,1PE21.13)') |
|
./pkg/diagnostics/diagnostics_summary.F |
83 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_summary.F |
84 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,I6)') |
|
./pkg/diagnostics/diagnostics_summary.F |
86 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_summary.F |
90 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,I4,2A)') 'listId=', ld, |
|
./pkg/diagnostics/diagnostics_summary.F |
92 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccList |
|
./pkg/diagnostics/diagnostics_summary.F |
93 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(I4,A,I4,A,2F17.6,A,I4)') |
|
./pkg/diagnostics/diagnostics_summary.F |
98 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,50I4)')' levels:',(nint(levs(k,ld)),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
180 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
181 |
DIAGNOSTICS_WRITE_PICKUP |
OPEN( dUnit, file=fn ) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
184 |
DIAGNOSTICS_WRITE_PICKUP |
WRITE(dUnit,'(I10)') ndiag(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
187 |
DIAGNOSTICS_WRITE_PICKUP |
CLOSE( dUnit ) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
54 |
DIAGNOSTICS_WRITE_PICKUP |
INTEGER dUnit, n, m |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
154 |
DIAGNOSTICS_READ_PICKUP |
CALL MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
155 |
DIAGNOSTICS_READ_PICKUP |
OPEN( dUnit, file=fn ) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
158 |
DIAGNOSTICS_READ_PICKUP |
READ(dUnit,'(I10)') ndiag(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
161 |
DIAGNOSTICS_READ_PICKUP |
CLOSE( dUnit ) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
43 |
DIAGNOSTICS_READ_PICKUP |
INTEGER dUnit, n, m |
|
./pkg/sbo/sbo_writevector.F |
104 |
SBO_WRITEVECTOR |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/sbo/sbo_writevector.F |
109 |
SBO_WRITEVECTOR |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/sbo/sbo_writevector.F |
120 |
SBO_WRITEVECTOR |
write(dUnit,rec=irecord) arr |
|
./pkg/sbo/sbo_writevector.F |
130 |
SBO_WRITEVECTOR |
close( dUnit ) |
|
./pkg/sbo/sbo_writevector.F |
69 |
SBO_WRITEVECTOR |
integer dUnit,IL |
|
./pkg/sbo/sbo_writevector.F |
98 |
SBO_WRITEVECTOR |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/matrix/matrix_write_grid.F |
22 |
MATRIX_WRITE_GRID |
INTEGER dUnit, k |
|
./pkg/matrix/matrix_write_grid.F |
28 |
MATRIX_WRITE_GRID |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/matrix/matrix_write_grid.F |
33 |
MATRIX_WRITE_GRID |
open(dUnit, file='RC', status='unknown', |
|
./pkg/matrix/matrix_write_grid.F |
39 |
MATRIX_WRITE_GRID |
open( dUnit, file='RC', status='unknown', |
|
./pkg/matrix/matrix_write_grid.F |
45 |
MATRIX_WRITE_GRID |
write(dUnit,rec=1) r4seg |
|
./pkg/matrix/matrix_write_grid.F |
46 |
MATRIX_WRITE_GRID |
close(dUnit) |
|
./pkg/matrix/matrix_write_grid.F |
48 |
MATRIX_WRITE_GRID |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/matrix/matrix_write_grid.F |
53 |
MATRIX_WRITE_GRID |
open( dUnit, file='DRF', status='unknown', |
|
./pkg/matrix/matrix_write_grid.F |
59 |
MATRIX_WRITE_GRID |
open( dUnit, file='DRF', status='unknown', |
|
./pkg/matrix/matrix_write_grid.F |
65 |
MATRIX_WRITE_GRID |
write(dUnit,rec=1) r4seg |
|
./pkg/matrix/matrix_write_grid.F |
66 |
MATRIX_WRITE_GRID |
close(dUnit) |