! 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 :: num WRITE(*,*) 'Input nonzero number' READ(*,*) num IF(num > 0) THEN WRITE(*,*) 'positive' ELSE WRITE(*,*) 'negative' ENDIF IF(num < 0) THEN WRITE(*,*) 'negative' ELSE WRITE(*,*) 'positive' ENDIF END PROGRAM prog