Fortran中如何定義和調(diào)用子程序

小億
250
2024-04-12 20:20:07

在Fortran中，可以使用SUBROUTINE關(guān)鍵字來(lái)定義子程序，然后在主程序中調(diào)用這個(gè)子程序。下面是一個(gè)簡(jiǎn)單的示例：

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

  ! 調(diào)用子程序
  CALL MySubroutine()
  
END PROGRAM MainProgram

在上面的示例中，我們定義了一個(gè)名為MySubroutine的子程序，在主程序中調(diào)用了這個(gè)子程序。當(dāng)程序運(yùn)行時(shí)，會(huì)輸出Hello from subroutine!。

值得注意的是，在子程序中也可以定義參數(shù)，以便在調(diào)用子程序時(shí)傳遞參數(shù)。另外，子程序也可以返回值給主程序。Fortran中還提供了FUNCTION關(guān)鍵字來(lái)定義具有返回值的子程序。

0 踩