spline_body_eph Subroutine

private subroutine spline_body_eph(me, et_vec, i)

Type Bound

body_eph

Arguments

Type IntentOptional Attributes Name
class(body_eph), intent(inout) :: me
real(kind=wp), intent(in), dimension(:) :: et_vec

ephemeris time vector [sec]
integer, intent(in) :: i

state element index (1-6)

Calls

proc~~spline_body_eph~~CallsGraph proc~spline_body_eph body_eph%spline_body_eph db1ink db1ink proc~spline_body_eph->db1ink

Called by

proc~~spline_body_eph~~CalledByGraph proc~spline_body_eph body_eph%spline_body_eph proc~initialize_globals jpl_ephemeris_splined%initialize_globals proc~initialize_globals->proc~spline_body_eph proc~initialize_splinded_ephemeris jpl_ephemeris_splined%initialize_splinded_ephemeris proc~initialize_splinded_ephemeris->proc~initialize_globals

Source Code

    subroutine spline_body_eph(me,et_vec,i)
        class(body_eph),intent(inout) :: me
        real(wp),dimension(:),intent(in) :: et_vec !! ephemeris time vector [sec]
        integer,intent(in) :: i !! state element index (1-6)
        integer :: iflag
        call db1ink(et_vec, me%nx, me%f(:,i), kx, iknot, me%tx(:,i), me%bcoef(:,i), iflag)
        if (iflag/=0) then
            write(*,*) 'db1ink iflag = ', iflag
            error stop 'db1ink error'
        end if
    end subroutine spline_body_eph