SPLINEALL Subroutine

public subroutine SPLINEALL(C, H, F, FX, FXX)

Arguments

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

Called by

proc~~splineall~~CalledByGraph proc~splineall SPLINEALL proc~ccubic cCubic proc~ccubic->proc~splineall proc~evaluatessp EvaluateSSP proc~evaluatessp->proc~ccubic proc~evaluatessp3d EvaluateSSP3D proc~evaluatessp3d->proc~ccubic proc~bellhopcore BellhopCore proc~bellhopcore->proc~evaluatessp3d proc~influencecervenycart InfluenceCervenyCart proc~bellhopcore->proc~influencecervenycart proc~traceray3d TraceRay3D proc~bellhopcore->proc~traceray3d proc~traceray2d TraceRay2D proc~bellhopcore->proc~traceray2d proc~bellhopcore~2 BellhopCore proc~bellhopcore~2->proc~evaluatessp proc~bellhopcore~2->proc~influencecervenycart proc~traceray2d~2 TraceRay2D proc~bellhopcore~2->proc~traceray2d~2 proc~evaluatessp2d EvaluateSSP2D proc~evaluatessp2d->proc~evaluatessp3d proc~influencecervenycart->proc~evaluatessp proc~readenvironment ReadEnvironment proc~readenvironment->proc~evaluatessp proc~reflect2d~2 Reflect2D proc~reflect2d~2->proc~evaluatessp proc~reflect3d Reflect3D proc~reflect3d->proc~evaluatessp3d proc~step2d Step2D proc~step2d->proc~evaluatessp proc~step3d Step3D proc~step3d->proc~evaluatessp3d proc~traceray2d~2->proc~evaluatessp proc~traceray2d~2->proc~reflect2d~2 proc~traceray2d~2->proc~step2d proc~reflect2d Reflect2D proc~reflect2d->proc~evaluatessp2d proc~step2d~2 Step2D proc~step2d~2->proc~evaluatessp2d proc~traceray3d->proc~reflect3d proc~traceray3d->proc~step3d program~bellhop BELLHOP program~bellhop->proc~bellhopcore~2 program~bellhop->proc~readenvironment program~bellhop3d BELLHOP3D program~bellhop3d->proc~bellhopcore program~bellhop3d->proc~readenvironment proc~traceray2d->proc~reflect2d proc~traceray2d->proc~step2d~2

Source Code

      SUBROUTINE SPLINEALL ( C, H, F, FX, FXX )

!     THIS ROUTINE EVALUATES THE
!        SPLINE,
!        SPLINE DERIVATIVE, AND
!        SPLINE 2ND DERIVATIVE AT THE POINT H

      COMPLEX (KIND=8), INTENT(IN) :: C(4)
      REAL (KIND=8), INTENT(IN) :: H
      COMPLEX (KIND=8), INTENT(OUT) :: F, FX, FXX

      REAL (KIND=8), PARAMETER :: HALF = 0.5, SIXTH = 1.0 / 6.0

      F   = C(1) + H * ( C(2) + H * ( HALF * C(3) + SIXTH * H * C(4) ) )
      FX  = C(2) + H * ( C(3) + H * HALF * C(4) )
      FXX = C(3) + H * C(4)

      RETURN
      END SUBROUTINE SPLINEALL