2 calls to
GAUSSJ
LONG_RAD
SHORT_RAD