2 calls to
RADFAC3
CCCMARAD
NEWRAD4