SPLINEX Function

public function SPLINEX(C, H)

Arguments

Type IntentOptional Attributes Name
complex(kind=8), intent(in) :: C(4)
real(kind=8), intent(in) :: H

Return Value complex(kind=8)


Source Code

      FUNCTION SPLINEX ( C, H )

!     THIS FUNCTION EVALUATES THE SPLINE DERIVATIVE AT THE POINT H

      COMPLEX (KIND=8), INTENT(IN) :: C(4)
      REAL (KIND=8), INTENT(IN) :: H
      COMPLEX (KIND=8) :: SPLINEX

      SPLINEX = C(2) + H * ( C(3) + H * C(4) / 2.0 )
      RETURN
      END FUNCTION SPLINEX