3 calls to
WRITESND

INIBASE
INITGRDVAR
INITGRDVAR