real (kind=kind_phys), public module_radsw_cldprtb::a1r