icrf_frame_constructor Function

private pure function icrf_frame_constructor(b) result(f)

Constructor for a icrf_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(icrf_frame)


Called by

proc~~icrf_frame_constructor~~CalledByGraph proc~icrf_frame_constructor transformation_module::icrf_frame_constructor interface~icrf_frame transformation_module::icrf_frame interface~icrf_frame->proc~icrf_frame_constructor

Source Code

    pure function icrf_frame_constructor(b) result(f)

    implicit none

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

    f%primary_body = b

    end function icrf_frame_constructor