source: PSPA/parmelaPSPA/trunk/blockdata.f @ 418

      block data
c----------------------------------------------------------------------
c
      include 'ucom.h'
      include 'upawcom.h'
c
      common/splwall/rr,s,sig,sx,sy,sxy
c     units of input/output
      data nbz,nfld,nin,nsav,nschef /11,12,13,14,15/
      data nav,ndes1,ndes2,ndiag,ndpout,nemit /16,17,18,19,20,21/
      data nfield,nhist,nnout,nout1,nout2 /22,23,24,25,26/
      data nsemit,nstat,ntrw /27,28,29/
      data nuch/30/ ! for ip=3
      data ninput/31/
      data lun1,lun2,lun3,lun4 /31,32,33,34/
      data nsnap,nback,nback1/35,36,37/
      data nimp,npois/38,39/ ! nimp for ip=999
      data lolun1,lolun2,lolun3,lolun4 /0,0,0,0/
c---set up spline functions needed for computing
c---effects of image charge on wall.
      real rr(10),s(8),sig(8,10),sx(8,10),
     1 sy(8,10),sxy(8,10)
      data rr(1),(sig(i,1),i=1,8)
     1 / 0.0, .6619, .6566, .6154, .4989, .2477,
     2   .0668, .0062, 0./
      data rr(2),(sig(i,2),i=1,8)
     1 /  .1, .6684, .6624, .6200, .4998, .2458,
     2   .0660, .0061, 0./
      data rr(3),(sig(i,3),i=1,8)
     1 /  .2, .6888, .6804, .6341, .5022, .2402,
     2   .0633, .0059, 0./
      data rr(4),(sig(i,4),i=1,8)
     1 /  .3, .7257, .7132, .65845, .5052, .2302,
     2   .0590, .0054, 0./
      data rr(5),(sig(i,5),i=1,8)
     1 /  .4, .7840, .7657, .6945, .5069, .2151,
     2   .0530, .0048, 0./
      data rr(6),(sig(i,6),i=1,8)
     1 /  .5, .8735, .84745, .7433, .5033, .1940,
     2   .0457, .0041, 0./
      data rr(7),(sig(i,7),i=1,8)
     1 /  .6,1.0147, .9765, .8039, .4871, .1658,
     2   .0373, .0034, 0./
      data rr(8),(sig(i,8),i=1,8)
     1 /  .7,1.2604, 1.1867, .8662, .4447, .1301,
     2   .0282, .0025, 0./
      data rr(9),(sig(i,9),i=1,8)
     1 /  .8,1.78570, 1.5332, .8865, .3533, .0885,
     2   .0187, .0016, 0./
      data rr(10),(sig(i,10),i=1,8)
     1 /  .9,3.3579, 2.0374, .6850, .1953, .0443,
     2   .0091, .0008, 0./
      data (s(i),i=1,8)/0.,.08,.2,.4,.8,1.4,2.4,4./
      end
c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*