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