SPLINEXX Function

public function SPLINEXX(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 SPLINEXX ( C, H )

!     THIS FUNCTION EVALUATES THE SPLINE 2ND DERIVATIVE AT THE POINT H

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

      SPLINEXX = C(3) + H * C(4)
      RETURN
      END FUNCTION SPLINEXX