ecliptic_frame_constructor Function

private pure function ecliptic_frame_constructor(b) result(f)

Constructor for a ecliptic_frame

Note

the et doesn't matter for inertial frames

Arguments

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

the central body

Return Value type(ecliptic_frame)


Called by

proc~~ecliptic_frame_constructor~~CalledByGraph proc~ecliptic_frame_constructor transformation_module::ecliptic_frame_constructor interface~ecliptic_frame transformation_module::ecliptic_frame interface~ecliptic_frame->proc~ecliptic_frame_constructor

Source Code

    pure function ecliptic_frame_constructor(b) result(f)

    implicit none

    type(ecliptic_frame)  :: f
    type(celestial_body),intent(in) :: b   !! the central body

    f%primary_body = b

    end function ecliptic_frame_constructor