hey guys,
I have been racking my brain about this, so hopefully you can help me out a bit. This is my function for Simpson's 3/8 rule.
REAL FUNCTION Simpson38(v,h,n)
IMPLICIT NONE
REAL :: s1, s2, s3
REAL, INTENT(in) :: v,h
INTEGER, INTENT(in) :: n
INTEGER ...