3 calls to
R1MACH

DISORT
RATIO
RATIO