Может эти ссылки чем помогут.
Спасибо, действительно, первая ссылка очень полезная, хоть я там не нашёл пока самих исходников функций преобразования, как это сделано, например, в SOFA, либе Международного астрономического союза (МАС, International Astronomical Union), в проекте APC
https://gitflic.ru/project/geoblock/apclib -
(* Astronomy/GalacticCoordinates *)
procedure iauG2icrs(dl: double; db: double; dr: PDouble; dd: PDouble); cdecl; external LIB_SOFA name _PU + 'iauG2icrs';
procedure iauIcrs2g(dr: double; dd: double; dl: PDouble; db: PDouble); cdecl; external LIB_SOFA name _PU + 'iauIcrs2g';
Там сама рекомендуемая астрономам библиотека SOFA переведена с фортрана на си, но SuperGalacticCoordinates нет.