frame_to_j2000 Function

private function frame_to_j2000(me, et) result(rot)

rotation matrix from the frame to j2000

Type Bound

moon_frame_interpolater

Arguments

Type IntentOptional Attributes Name
class(moon_frame_interpolater), intent(inout) :: me
real(kind=wp), intent(in) :: et

Return Value real(kind=wp), (3,3)


Calls

proc~~frame_to_j2000~~CallsGraph proc~frame_to_j2000 moon_frame_interpolater%frame_to_j2000 proc~j2000_to_frame moon_frame_interpolater%j2000_to_frame proc~frame_to_j2000->proc~j2000_to_frame evaluate evaluate proc~j2000_to_frame->evaluate proc~rpy_to_rot rpy_to_rot proc~j2000_to_frame->proc~rpy_to_rot

Source Code

    function frame_to_j2000(me, et) result(rot)
        !! rotation matrix from the frame to j2000
        class(moon_frame_interpolater), intent(inout) :: me
        real(wp), intent(in) :: et
        real(wp) :: rot(3, 3)
        rot = transpose(me%j2000_to_frame(et))
    end function frame_to_j2000