!-----------------------------------------------------------------------
    COMMON /MAPOT/ &
    LSL,IXM,IYM &
    ,ISHDE(9999) &
    ,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(9999) &
    ,ERLAM0,CPHI0,SPHI0
!-----------------------------------------------------------------------
