[Fortran] 纯文本查看 复制代码 Program www_fcode_cn
Implicit None
character(len=3000) :: c !// 3000 要足够长
real :: r(30) = 3.141592654 !// 这个数组用来测试输出
integer :: i
Open( 15 , File = "t.txt" ) !// 打开一个文件
write( c , * ) r !// 先写到字符串里
do i = 1 , len_trim(c)
if( c(i:i) == char(13) .or. c(i:i) == char(11) ) c(i:i) = " " !// 把字符串的回车替换成空格
end do
write( 15 , '(a)' ) trim(c) !// 再写入文件
End Program www_fcode_cn |