Displaying 1 result from an estimated 1 matches for "readmm5".
Did you mean:
readmm
2005 Apr 21
1
.Fortran() again
...to read the rest of the file, I cannot get the result as
expected. The next bit of data is an 50 by 20 integer array, which I
cannot read proporly. Here is the command I tried.
>readBin( mm5file,integer(),n=1)
Another way I have tried uses .Fortran (). The fortran code were.
1.f
subroutine readmm5(mm5file,IFLAG,MIF)
integer iflag,MIF(50,20),MRF(20,20)
CHARACTER*80 mm5file,MIFC(50,20),MRFC(20,20)
OPEN (11,FILE=mm5file,FORM='UNFORMATTED')
READ(11) IFLAG
IF ( IFLAG .EQ. 0 ) THEN
READ(mm5file) MIF,RMRF,MIFC,MRFC
endif
end
$R CMD SHL...