Made the IF statement Fortran66 compliant