! This is a basic starting shell for your programs MODULE const INTEGER, PARAMETER :: dp = KIND(1.0d0), sp = KIND(1.0e0) REAL(KIND=dp), PARAMETER :: dpi = 3.141592653589793d0 END MODULE const ! PROGRAM prog USE const IMPLICIT NONE ! Variable declarations go here INTEGER :: age WRITE(*,*) 'Input your age' READ(*,*) age IF(age >= 65) THEN WRITE(*,*) 'You are eligible for social security' ELSE WRITE(*,*) 'You are not eligible for social security' ENDIF IF (age < 65) THEN WRITE(*,*) 'Not eligible' ELSE WRITE(*,*) 'eligible' ENDIF IF (age <= 64) THEN WRITE(*,*) 'Not eligible' ELSE WRITE(*,*) 'eligible' ENDIF END PROGRAM prog