2 calls to
CALCCORR
SUTG_COR
SUTG