Fortran中如何定义和调用子程序

在Fortran中，可使用SUBROUTINE关键字来定义子程序，然后在主程序中调用这个子程序。下面是一个简单的示例：

PROGRAM MainProgram
  IMPLICIT NONE
  
  ! 声明子程序
  SUBROUTINE MySubroutine()
    PRINT *, 'Hello from subroutine!'
  END SUBROUTINE MySubroutine

  ! 调用子程序
  CALL MySubroutine()
  
END PROGRAM MainProgram

在上面的示例中，我们定义了一个名为MySubroutine的子程序，在主程序中调用了这个子程序。当程序运行时，会输出Hello from subroutine!。

值得注意的是，在子程序中也能够定义参数，以便在调用子程序时传递参数。另外，子程序也能够返回值给主程序。Fortran中还提供了FUNCTION关键字来定义具有返回值的子程序。