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关键字来定义具有返回值的子程序。