在Fortran中，子程序（Subroutine）是一种可重用的代码块，它可以在主程序（Main Program）中被调用。子程序通常用于执行特定的任务，比如数学计算、数据处理或复杂的算法。以下是一个简单的Fortran子程序示例，它演示了如何定义和调用子程序：
```fortran
! 主程序
PROGRAM MainProgram
IMPLICIT NONE
! 调用子程序
CALL MySubroutine（）
END PROGRAM MainProgram
! 子程序
SUBROUTINE MySubroutine（）
PRINT *, 'Hello from subroutine!'
END SUBROUTINE MySubroutine
```
在这个例子中，我们定义了一个名为`MySubroutine`的子程序，它包含一条简单的打印语句。在主程序中，我们使用`CALL`语句来调用这个子程序，执行其中的代码。
子程序的定义通常以`SUBROUTINE`关键字开始，后跟子程序的名称和括号内的参数列表（如果有的话）。子程序体包含在子程序定义的开始和结束大括号`{}`之间。子程序可以返回值，这通常通过在子程序末尾使用`RETURN`语句来实现。如果不使用`RETURN`，子程序将执行到末尾并隐式地返回调用它的位置。
子程序之间可以相互调用，也可以被主程序或其他子程序调用。它们还可以实现递归调用，即子程序调用自身。
在编写子程序时，建议遵循以下最佳实践：
模块化：
将相关的代码封装在子程序中，以提高代码的可读性和可维护性。
明确参数和返回值：
在子程序定义中明确指定参数和返回值类型，以便调用者知道如何正确使用子程序。
使用`IMPLICIT NONE`：
在子程序中使用`IMPLICIT NONE`声明，以明确变量的作用域和类型，避免潜在的命名冲突。
适当的注释：
在子程序中添加注释，解释代码的功能和逻辑，便于他人理解和维护。
通过遵循这些指导原则，你可以编写出清晰、高效且易于维护的Fortran子程序。