4 calls to
GAUSSJ
LONG_RAD
SHORT_RAD
LONG_RAD
SHORT_RAD