correct if else in fortran