c FORTRAN 77 code
 
c This program does division using an IF-THEN-ELSE structure.
 
        PROGRAM divide
        REAL dividend, divisor, quotient
 
c Prompt for and enter dividend and divisor.
        PRINT *, 'Enter two numbers.'
        PRINT *, 'The first number is the dividend, the second the divisor.'
        READ *, dividend, divisor
 
c Check to see if divisor is 0.
        IF (divisor .eq. 0.0) THEN
           PRINT *, 'The division is undefined (the divisor is zero).'
        STOP
 
c If divisor is not 0 do division.
        ELSE 
        quotient=dividend/divisor
 
c Print results.
        PRINT *, 'The quotient of the two numbers is ', quotient
        ENDIF
 
        END