示例代码:
program main
implicit none
integer(kind=4),parameter :: N=100
integer(kind=4) :: i,j
real(kind=8),dimension(N,N) :: x,y
open(unit=99,file="文件.txt")
read(99,100) ((x(i,j),y(i,j),i=1,N,1),j=1,N,1) 或者
do j=1,N,1
do i=1,N,1
read(99,100) x(i,j),y(i,j)
end do
end do
100 format(F10.7,X3,F10.7)
stop ' calculation is over '
end program main
本文介绍了一段Fortran代码示例,演示了如何使用Fortran读取和写入二维数组到文件中。通过使用参数化的数组大小和显式接口,此代码展示了Fortran在科学计算中处理文件I/O的基本技巧。
4866

被折叠的 条评论
为什么被折叠?



