1 COMMON /esg/ EXCITA(8,MAXLBL,2), 2 & ESGTIM_XVECS, ESGTIM_KVECS, ESGTIM_MOMAT, 3 & ESG, IPRESG, IESG, LUESG, LUESG2, ISYME 4 LOGICAL ESG 5