fortran中function用法
时间: 2023-10-02 07:08:23 浏览: 62
在Fortran中,function是一种子程序类型,用于执行特定任务并返回值。函数的一般形式如下:
```fortran
function function_name(arg1, arg2, ..., argn)
! Local variable declarations
! Statements
function_name = result_value
end function
```
其中,`function_name` 为函数名,`arg1, arg2, ..., argn` 为函数的输入参数。函数可以有任意数量和类型的输入参数。`result_value` 为函数的返回值。
函数的执行过程类似于子程序,但它们必须返回一个值。函数可以包含任意数量和类型的语句,包括其他函数调用、循环和条件语句。
函数的返回值通过 `function_name = result_value` 语句指定。`result_value` 可以是任何类型的变量或表达式,取决于函数的返回类型。
函数可以在程序的任何地方调用,类似于其他子程序。调用函数时,必须提供所需的输入参数,并将返回值存储在变量中。
下面是一个简单的Fortran函数示例,用于计算两个整数的和:
```fortran
function add(a, b)
integer :: a, b, sum
sum = a + b
add = sum
end function
program main
integer :: x, y, z
x = 2
y = 3
z = add(x, y)
print *, z
end program
```
在上面的示例中,函数 `add` 接受两个整数参数 `a` 和 `b`,并返回它们的和。主程序 `main` 调用 `add` 并将返回值存储在变量 `z` 中。最后,程序打印变量 `z` 的值,即 `5`。