Fortran Use Ifport