Fortran中的常用语句（全篇由ChatGPT生成）

这是之前自己整理的一篇：Fortran常用语句。本篇内容由ChatGPT生成。

Fortran是一种编程语言，用于科学计算和工程应用。下面列举一些Fortran中常用的语句：

1. 变量定义：使用关键字"REAL"或"INTEGER"来定义实数或整数类型的变量，例如：

REAL :: x, y, z  ! 定义三个实数型变量x、y、z
INTEGER :: i, j, k  ! 定义三个整型变量i、j、k

2. 输入输出语句：使用"WRITE"语句输出文本信息，使用"READ"语句读取用户输入的数据，例如：

WRITE(*,*) "Enter a number:"  ! 输出提示信息
READ(*,*) x  ! 从标准输入读取一个实数赋值给变量x

3. 条件语句：使用"IF"语句进行条件判断，例如：

IF (x > 0) THEN  ! 如果x大于0
  WRITE(*,*) "x is positive"  ! 输出提示信息
ELSEIF (x == 0) THEN  ! 如果x等于0
  WRITE(*,*) "x is zero"  ! 输出提示信息
ELSE  ! 如果x小于0
  WRITE(*,*) "x is negative"  ! 输出提示信息
ENDIF  ! 结束if语句块

4. 循环语句：使用"DO"语句进行循环操作，例如：

DO i = 1, 10  ! 从1循环到10
  WRITE(*,*) i  ! 输出循环变量i的值
END DO  ! 结束do循环块

5. 数组操作：Fortran中支持数组类型，可以使用数组来处理多个相关的变量，例如：

REAL :: x(10)  ! 定义一个长度为10的实数型数组x
DO i = 1, 10
  x(i) = i**2  ! 将i的平方赋值给数组x的第i个元素
END DO

6. 子程序（函数）定义：在Fortran中，使用"subroutine"关键字定义子程序，使用"function"关键字定义函数，例如：

subroutine print_hello()
    write(*,*) "Hello, World!"
end subroutine

integer function add(a, b)
    integer, intent(in) :: a, b ! 定义输入参数
    add = a + b ! 返回计算结果
end function

7. 模块定义：使用"module"关键字定义模块，将相关的变量、子程序和函数打包在一起，方便管理和调用，例如：

module my_module
    integer :: x, y ! 定义模块中的变量

    contains  ! 子程序和函数定义在此处
    subroutine print_sum()
        write(*,*) "The sum of x and y is ", x + y
    end subroutine

    integer function square(a)
        integer, intent(in) :: a
        square = a * a
    end function
end module

8. 访问文件：Fortran可以读取和写入文件，使用"open"函数打开文件，使用"read"和"write"函数读取和写入文件内容，例如：

integer :: i
integer, dimension(10) :: data

! 打开文件，读取文件内容
open(unit=10, file="data.txt")
do i = 1, 10
    read(10,*) data(i)
end do
close(10)

! 打开文件，写入文件内容
open(unit=20, file="output.txt")
do i = 1, 10
    write(20,*) data(i)
end do
close(20)

以上是Fortran中常用的语句，还有其他更高级的语句和技巧可以在深入学习Fortran时掌握。

【说明：本站主要是个人的一些笔记和代码分享，内容可能会不定期修改。为了使全网显示的始终是最新版本，这里的文章未经同意请勿转载。引用请注明出处：https://www.guanjihuan.com】