real (kind=kind_phys), parameter module_radiation_astronomy::pid12 = (2.0*asin(1.0))/f12

private