C-----------------------------------------------------------------------
                             C O M M O N /MAPOT/
     & LSL,IXM,IYM
     &,ISHDE(61)
     &,R1,PT1,TSPH
     &,WBD,SBD,TLM0D,TPH0D,DLMD,DPHD,CMLD,DP30,X1P,Y1P
     &,DISLP,Z0SLP,SPL(LSM),ALSL(LSM)
     &,DETA1(LM),AETA1(LM),ETA1(LP1),TSHDE(61)
     &,ERLAM0,CPHI0,SPHI0
     &,KUNIT,LUNIT,MUNIT,IUNIT,NUNIT
C-----------------------------------------------------------------------
                             save /MAPOT/