Fortran Define Array