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 20 integers PROGRAM test USE const IMPLICIT NONE INTEGER :: i1,i2,i3,i4,i5,i6,i7,i8,i9,i10 INTEGER :: i11,i12,i13,i14,i15,i16,i7,i8,i9,i20 INTEGER :: total WRITE(*,*) 'Input integers 1 through 5' READ(*,*) i1,i2,i3,i4,i5 WRITE(*,*) 'Input integers 6 through 10' READ(*,*) i6,i7,i8,i9,i10 WRITE(*,*) 'Input integers 11 through 15' READ(*,*) i11,i12,i13,i14,i15 WRITE(*,*) 'Input integers 16 through 20' READ(*,*) i16,i17,i18,i19,i20 ! Note use of ampersand symbol to continue calcualtion on following ! line total = i1 + i2 + i3 + i4 + i5 + i6 + i7 + i8 + i9 + i10 & + i11 + i12 + i13 + i14 + i15 + i16 + i17 + i18 & + i19 + i20 WRITE(*,*) 'Total of integers = ',total END PROGRAM test