assumed shape
...
INTERFACE ! noetig bei assumed shape arrays
SUBROUTINE juhu(a, b)
REAL, INTENT(IN), DIMENSION(:) :: a
REAL, INTENT(INOUT), DIMENSION(:,:) :: b ! niemals INTENT(OUT)
END SUBROUTINE juhu
END INTERFACE
REAL, DIMENSION(23) :: x
REAL, DIMENSION(0:5, 3:8) :: y
CALL juhu(x,y)
...
SUBROUTINE juhu(a, b)
IMPLICIT NONE
REAL, INTENT(IN), DIMENSION(:) :: a ! -> a(23)
REAL, INTENT(INOUT), DIMENSION(:,:) :: b ! -> b(6,6), b(1,1) = y(0,3)
automatische Arrays
SUBROUTINE juhu(a) IMPLICIT NONE REAL, DIMENSION(:) :: a REAL, DIMENSION(2*SIZE(a)) :: w ! workspace
dynamische Arrays
INTEGER :: n ! array dimension REAL, DIMENSION(:), ALLOCATABLE :: x REAL, DIMENSION(:,:), ALLOCATABLE :: y READ*, n ... ALLOCATE(x(n)) ALLOCATE(y(n, 0:2*n-1)) ... DEALLOCATE(x, y) ! automatisch fuer local arrays in Fortran 95
