iau_moon_rotating_frame_constructor Function

private pure function iau_moon_rotating_frame_constructor(b, et) result(f)

Constructor for a iau_moon_rotating_frame

Arguments

Type IntentOptional Attributes Name
type(celestial_body), intent(in) :: b

the central body
real(kind=wp), intent(in) :: et

epoch at which the frame is defined [sec]

Return Value type(iau_earth_rotating_frame)


Called by

proc~~iau_moon_rotating_frame_constructor~~CalledByGraph proc~iau_moon_rotating_frame_constructor transformation_module::iau_moon_rotating_frame_constructor interface~iau_moon_rotating_frame transformation_module::iau_moon_rotating_frame interface~iau_moon_rotating_frame->proc~iau_moon_rotating_frame_constructor

Source Code

    pure function iau_moon_rotating_frame_constructor(b,et) result(f)

    implicit none

    type(iau_earth_rotating_frame)  :: f
    type(celestial_body),intent(in) :: b   !! the central body
    real(wp),intent(in)             :: et  !! epoch at which the
                                           !! frame is defined [sec]

    f%primary_body   = b
    f%et             = et

    end function iau_moon_rotating_frame_constructor