Fortran的subroutine可變數組作為形參需要顯示接口，例如可以把subroutine放到module里面產生接口，下面的做法是正確的：

module array_over2 contains subroutine over2(abc)real,intent(inout) :: abc(:)abc = abc/2. end subroutine over2 end module array_over2program main use array_over2implicit none real :: abc(3) = (/ 1.2 , 3.4 , 5.6/)call over2(abc)write(*,*) abcend program

如果沒有顯示接口，會編譯錯誤，例如：

subroutine over2(abc)real,intent(inout) :: abc(:)abc = abc/2. end subroutine over2program main implicit none real :: abc(3) = (/ 1.2 , 3.4 , 5.6/)call over2(abc)write(*,*) abcend program

產生編譯錯誤

$ gfortran 1.f90 1.f90:17:10:call over2(abc)1 Error: Explicit interface required for ‘over2’ at (1): assumed-shape argument

總結

以上是生活随笔為你收集整理的Fortran的subroutine可变数组作为形参的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。