C-----------------------------------------------------------------------
                             COMMON /MAPOT/
     & LSL,IXM,IYM
     &,ISHDE(99)
     &,R,PT,TSPH
     &,WBD,SBD,TLM0D,TPH0D,DLMD,DPHD,CMLD,DP30,X1P,Y1P
     &,DISLP,Z0SLP,SPL(LSM),ALSL(LSM)
     &,DETA(LM),AETA(LM),ETA(LP1),TSHDE(99)
     &,ERLAM0,CPHI0,SPHI0
                             save /MAPOT/
C-----------------------------------------------------------------------