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