Fortran If And Or