*
      real*8 xpn,ypn,xpun,ypvn,xpw,ypw,xpuw,ypvw
      real zta
      pointer (paxpn ,  xpn(*)),(paypn ,  ypn(*)),(paxpun, xpun(*)),
     $        (paypvn, ypvn(*)),(paxpw ,  xpw(*)),(paypw ,  ypw(*)),
     $        (paxpuw, xpuw(*)),(paypvw, ypvw(*)),(pazta, zta(*))
*
      common /bcshdg/ paxpn,paypn,paxpun,paypvn,
     $                paxpw,paypw,paxpuw,paypvw,pazta
*