MODULE const INTEGER, PARAMETER :: dp = KIND(1.0d0), sp = KIND(1.0e0) REAL(KIND=dp), PARAMETER :: dpi = 3.141592653589793d0 END MODULE const !!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! Program to add 5 integers PROGRAM test USE const IMPLICIT NONE INTEGER :: i1,i2,i3,i4,i5,total WRITE(*,*) 'Input integers 1 through 5' READ(*,*) i1,i2,i3,i4,i5 total = i1 + i2 + i3 + i4 + i5 WRITE(*,*) 'Total of integers = ',total END PROGRAM test