source: PSPA/parmelaPSPA/trunk/setwall.f @ 315

      subroutine setwall
c---set up spline functions needed for computing
c---effects of image charge on wall.
c-----------------------------------------------------------------------
c
      include 'ucom.h'
c
      common/splwall/rr(10),s(8),sig(8,10),sx(8,10),
     *sy(8,10),sxy(8,10)
      dimension ibd(6),t1(10),t2(10),t3(10)
c-----------------------------------------------------------------------
c*
      do 20 i=1,8
         do 10 j=1,10
         sx(i,j)=0.
         sy(i,j)=0.
         sxy(i,j)=0.
   10    continue
   20 continue
      ibd(1)=3
      ibd(2)=1
      ibd(3)=3
      ibd(4)=1
      ibd(5)=1
      ibd(6)=1
      call spl2d1 (10,rr,8,s,sig,sx,sy,sxy,8,ibd,t1,t2,t3)
      return
      end
c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*