search for: out3d

Displaying 1 result from an estimated 1 matches for "out3d".

Did you mean: out3
2005 Apr 23
0
reading fortran binary file
...ubroutine is as the following. subroutine freadmm5(filenamet,out2d) integer iflag,var1,miy,mjx,mkz,mt,z,t character*4 crdt,corder character*24 chrdate character*9 cname,var character*25 cunit,uunit,vunit,wunit character*80 filename real out2d(157,109),out3d(157,109,24) OPEN (11,FILE=filename,FORM='UNFORMATTED') 10 READ(11) IFLAG IF ( IFLAG .EQ. 0 ) THEN READ(11) goto 10 elseif (iflag.eq.1) then read(11) & IDIM ! dimension of the field & ,IB,JB,KB,LB ! starti...