Assumed-Shape Dummy Arrays

Assume-Shape Dummy Arrays

Assume-Shape arrays only work if a procedure has an explicit interface

PROGRAM Main

USE test_module

IMPLICIT NONE

...

END PROGRAM Main

MODULE test_module

CONTAINS

FUNCTION Mean(X)

IMPLICIT NONE

REAL :: Mean
REAL, DIMENSION(:), INTENT(IN) :: X ! explicit shape

Mean = SUM(X) / REAL(SIZE(X))
END FUNCTION Mean

END MODULE test_module