在Fortran中,循环控制主要通过do循环来实现。以下是一个简单的例子,展示了如何在CentOS下的Fortran程序中使用do循环:
program loop_example
implicit none
integer :: i
! 使用do循环从1到10
do i = 1, 10
print *, 'i =', i
end do
! 使用嵌套do循环
do i = 1, 5
do j = 1, 5
print *, 'i =', i, 'j =', j
end do
end do
end program loop_example
在这个例子中,我们首先定义了一个整数变量i,然后使用do循环从1到10,每次循环都会打印出i的值。接下来,我们使用嵌套的do循环,外层循环变量i从1到5,内层循环变量j也从1到5。每次内层循环都会打印出i和j的值。
要将这个程序保存为一个文件(例如loop_example.f90),然后在CentOS下使用Fortran编译器(如gfortran)进行编译和运行:
gfortran -o loop_example loop_example.f90
./loop_example
这将输出以下内容:
i = 1
i = 2
...
i = 10
i = 1 j = 1
i = 1 j = 2
...
i = 5 j = 5
这就是在CentOS下使用Fortran进行循环控制的基本方法。你可以根据自己的需求修改循环条件和循环体。