2 calls to
INIVEG
CLIMPHS2
INISURF