Fortran Max Of Array