Use Index To Return An Array From A Subroutine Fortran Do Loop