real BuildM(401,401)
write(*,*)'START INPUT BUILDING MATRIX'
open(9999,file='SimpleBuilding_v1.txt')
DO J=1,401,1
READ(9999,*) (BuildM(I,J),I=1,401)
end DO
CLOSE(9999)
open(9991,file='BuildMoutput.txt')
DO J=1,401,1
write(9991,*) (BuildM(I,J),I=1,401)
end DO
CLOSE(9991)
write(*,*)'END INPUT BUILDING MATRIX'
end
风平老涡 发表于 2021-10-9 20:15
因为write(9991,"(F7.2)")指定每一行只写一个数。可改成write(9991,"(401F7.2)").
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |