How to pass allocatable arrays to subroutines in Fortran How to pass allocatable arrays to subroutines in Fortran arrays arrays