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

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

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

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