necrohan 发表于 2019-11-26 12:16 多谢指点,已经完成了 |
本帖最后由 necrohan 于 2019-11-26 12:17 编辑 [Fortran] 纯文本查看 复制代码 program main implicit none real,dimension(721,604)::a integer i,j open(unit=10,file="C:\Users\Lenovo\Desktop\1.csv") open(unit=20,file="C:\Users\Lenovo\Desktop\BMap.txt") do j=2,604 do i=1,721 read(10,*,end=1)a(i,j) if(i==1)then write(20,*)a(i,j) else if(i/=1)then write(20,100)a(i,j) 100 format(10f9.2) end if end do end do 1 close(10) close(20) end |
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-5-9 20:39