fortran if循环