Fortran If And Statement