Fortran 數(shù)組變量的順序?qū)?yīng)

要想在這種情況下還能正常編譯，我們就必須擴(kuò)充數(shù)組 a 的長(zhǎng)度至少為 12。這樣一來(lái)，子程序中要賦值的數(shù)都能正確存入數(shù)組 x 并返回給主程序的數(shù)組變量 a，如示例 5 的變種二所示。!!! 示例 5 的變種一

program stest5
    implicit none
    real a(10)
    call sub(a(3))
    print *, a(3)
end program stest5

subroutine sub(x)
    implicit none
    real x(10)
    integer i
    do i = 1, 10
        x(i) = i
    enddo
end subroutine sub 

!!! 執(zhí)行結(jié)果
>>> Error: Actual argument contains too few elements for dummy argument 'x' (8/10) at (1)

!!! 示例 5 的變種二
program stest5
    implicit none
    real a(12)
    call sub(a(3))
    print *, a(3)
end program stest5

subroutine sub(x)
    implicit none
    real x(10)
    integer i
    do i = 1, 10
        x(i) = i
    enddo
end subroutine sub 

!!! 執(zhí)行結(jié)果
>>>   1.00000000

其實(shí)，在子程序中也可以不定義數(shù)組的長(zhǎng)度，將長(zhǎng)度設(shè)置為 ?*?。

如下示例 6 所示，子程序的功能是將數(shù)組 a 中的前 n 個(gè)元素復(fù)制給數(shù)組 b。

!!! 示例 6
subroutine copy(a, b, n)
    implicit none
    real a(*), b(*)
    integer n, i
    do i = i, n
        b(i) = a(i)
    enddo
end subroutine copy