So I made the changes but I am still having outputs of zero.
Anymore help?
This is what I have now...
Program test
IMPLICIT NONE
REAL :: Simpson13
INTEGER, DIMENSION(7) :: V
INTEGER :: h,n,simp13
V = (/1.000,1.167,1.333,1.500,1.667,1.833,2.000/)
h = 0.1667
n = 6.0
Simp13=Simpson13(V,h,n)...