2 calls to
QGAUSN

SETDIS
SURFAC