c FORTRAN 77 c This program accepts two numbers from the keyboard and divides the first c number by the second. If the second number is a 0, it prints an error c message. PROGRAM divide c Declare variables 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 so, display message and end program. IF (divisor .eq. 0.0) THEN PRINT *, 'The division is undefined (the divisor is zero).' STOP END IF c Do division quotient=dividend/divisor c Print quotinet. PRINT *, 'The quotient of the two numbers is ', quotient STOP END