[lsl666]

if(mod(m,1000).eq.0)then
write(FILENAME,'(3Htem,I3,4H.dat)') m/200
write(*,*) FILENAME
open(30,file=FILENAME)
do i=1,Smax
write(30,100) (TT(i,j),j=1,Rmax)
end do
close(30)
end if
100 format(1000f18.3)
这段文件输出的fortran代码转换成matlab代码怎么搞，对fortran不是很懂，还请各位大神帮忙，多谢多谢。