Displaying 1 result from an estimated 1 matches for "mifc".
Did you mean:
mic
2005 Apr 21
1
.Fortran() again
...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 SHLIB 1.f
$R
>library(foreign)
>dyn.load("1.so")
>.Fortran("readmm5"...