equatorial_to_mean_ecliptic_rotmat Function

public pure function equatorial_to_mean_ecliptic_rotmat(obliquity_func) result(rot)

Rotation matrix from J2000 to Mean Ecliptic.

Arguments

Type IntentOptional Attributes Name
procedure(mean_obliquity_func), optional :: obliquity_func

optional function to compute the mean obliquity. If not present, then mean_obliquity_of_ecliptic_iau1980 is used.

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

rotation matrix


Calls

proc~~equatorial_to_mean_ecliptic_rotmat~~CallsGraph proc~equatorial_to_mean_ecliptic_rotmat obliquity_module::equatorial_to_mean_ecliptic_rotmat proc~mean_ecliptic_to_equatorial_rotmat obliquity_module::mean_ecliptic_to_equatorial_rotmat proc~equatorial_to_mean_ecliptic_rotmat->proc~mean_ecliptic_to_equatorial_rotmat proc~mean_obliquity_of_ecliptic_iau1980 obliquity_module::mean_obliquity_of_ecliptic_iau1980 proc~mean_ecliptic_to_equatorial_rotmat->proc~mean_obliquity_of_ecliptic_iau1980

Called by

proc~~equatorial_to_mean_ecliptic_rotmat~~CalledByGraph proc~equatorial_to_mean_ecliptic_rotmat obliquity_module::equatorial_to_mean_ecliptic_rotmat proc~get_c_cdot_ecliptic transformation_module::ecliptic_frame%get_c_cdot_ecliptic proc~get_c_cdot_ecliptic->proc~equatorial_to_mean_ecliptic_rotmat proc~transformation_module_test transformation_module::transformation_module_test proc~transformation_module_test->proc~get_c_cdot_ecliptic

Source Code

    pure function equatorial_to_mean_ecliptic_rotmat(obliquity_func) result(rot)

    implicit none

    real(wp),dimension(3,3) :: rot  !! rotation matrix
    procedure(mean_obliquity_func),optional :: obliquity_func !! optional function to compute
                                                              !! the mean obliquity. If not
                                                              !! present, then
                                                              !! [[mean_obliquity_of_ecliptic_iau1980]]
                                                              !! is used.

    rot = transpose(mean_ecliptic_to_equatorial_rotmat(obliquity_func))

    end function equatorial_to_mean_ecliptic_rotmat