fortran: if