program main
implicit none
open(1,file='test.txt',status='old',access='append')
write(1,*),1.0
close(unit=1)
end
program main
implicit none
open(1,file='test.txt',status='new')
write(1,*),1.0
close(1)
end
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |