在Fortran中计算π（pi）有多种方法，以下是几种常见的方法：
方法一：使用数学函数
Fortran中有一些内置的数学函数可以用来计算π，例如：
```fortran
program calculate_pi
implicit none
real（kind=8） :: pi
pi = 4 * atan（1.0D0）
print *, "The value of pi is:", pi
end program calculate_pi
```
在这个例子中，我们使用了`atan`函数来计算π/4，然后将其乘以4得到π的值。
方法二：使用常量
你也可以在程序中直接定义一个常量来表示π：
```fortran
program define_pi
implicit none
real（kind=8） :: pi
pi = 3.141592653589793D0
print *, "The value of pi is:", pi
end program define_pi
```
在这个例子中，我们将π的值定义为一个双精度浮点数。
方法三：使用外部库
有些Fortran库中可能已经包含了计算π的函数，例如LAPACK和BLAS库。你可以通过链接这些库来使用它们提供的π值：
```fortran
program use_external_pi
implicit none
external :: dacos
real（kind=8） :: pi
pi = dacos（-1.0D0）
print *, "The value of pi is:", pi
end program use_external_pi
```
在这个例子中，我们使用了LAPACK库中的`dacos`函数来计算π。
方法四：使用F2PY
如果你想在Python中调用Fortran程序来计算π，可以使用F2PY工具。首先，编写一个Fortran函数来计算π，然后使用F2PY将其编译成动态链接库，最后在Python中导入并使用该库：
```python
myflib.f90
subroutine foo（a, b）
implicit none
real（kind=8）, intent（in） :: a（:,:）
complex（kind=8） :: b（size（a,1）,size（a,2））
b = exp（（0,1）*a）
end subroutine foo
```
总结
以上是在Fortran中计算π的几种方法。你可以根据自己的需求和编程环境选择合适的方法。对于大多数情况，使用内置的数学函数或定义一个常量就足够了。如果你需要更高的精度或者与其他语言互操作，可以考虑使用外部库或F2PY。