1 LOGICAL*4 PREM 2 COMMON / SAVETRACE / PREM,INUMER0,IVIT0,IVALMAR0,ISO0,ICENTRISO0 3 & , IX00,IX10,IY00,IY10 4