fortran: ifthenelse