Fortran的subroutine可变数组作为形参

Fortran的subroutine可变数组作为形参需要显示接口，例如可以把subroutine放到module里面产生接口，下面的做法是正确的：

module array_over2
contains
subroutine over2(abc)
	real,intent(inout)	:: abc(:)
	abc = abc/2.
end subroutine over2
end module array_over2


program main 

	use array_over2

implicit none 

real	:: abc(3) = (/ 1.2 , 3.4 , 5.6/)

call over2(abc)

write(*,*) abc

end program

如果没有显示接口，会编译错误，例如：

subroutine over2(abc)
	real,intent(inout)	:: abc(:)
	abc = abc/2.
end subroutine over2


program main 

implicit none 

real	:: abc(3) = (/ 1.2 , 3.4 , 5.6/)

call over2(abc)

write(*,*) abc

end program

产生编译错误

$ gfortran 1.f90
1.f90:17:10:

 call over2(abc)
          1
Error: Explicit interface required for ‘over2’ at (1): assumed-shape argument