initialize_body_eph_interface Subroutine

private subroutine initialize_body_eph_interface(me, eph)

Type Bound

body_eph_interface

Arguments

Type IntentOptional Attributes Name
class(body_eph_interface), intent(inout) :: me
type(body_eph), target :: eph

Source Code

    subroutine initialize_body_eph_interface(me,eph)
        class(body_eph_interface),intent(inout) :: me
        type(body_eph),target :: eph
        allocate(me%w0(3*kx))
        me%inbvx = 0
        me%eph => eph   ! point to the global ephemeris
    end subroutine initialize_body_eph_interface