c
c  _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
c  _/                                                                _/
c  _/        Test program  heh2bmp_test.f  to check the              _/
c  _/        He-H2 surface evaluation routines (BMP surface)         _/
c  _/        (from the fit called "fit5991.far3.nf12")               _/
c  _/        ---Version of 12 June 2002: Arnold I. Boothroyd         _/
c  _/                                                                _/
c  _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
c
c
c  Any QUESTIONS/PROBLEMS/COMMENTS concerning this programme can be
c  addressed to: boothroy@cita.utoronto.ca or pgmartin@cita.utoronto.ca
c
c
c**********************************************************************
c
c  This test program calls the BMP He-H2 surface routines in the file
c  heh2bmp.f and compares calculated surface energies and derivatives
c  against stored values that are known to be accurate.  It outputs a
c  message to the standard output (Fortran unit 6) giving the largest
c  of the differences, and stating whether these lie in the acceptable
c  range.
c
c  To compile and run this test program use, e.g., the commands
c
c         f77 -o heh2bmp_test heh2bmp_test.f heh2bmp.f
c         ./heh2bmp_test
c
c**********************************************************************
c
c  ALL REAL VARIABLES ARE DOUBLE PRECISION (real*8)
c
c**********************************************************************
c
      program heh2bmp_test
c     --------------------
c
      implicit double precision (a-h,o-z)
c
c***** Set  n_full_out  below to the number of test cases (up to 210)
c      for which you wish to produce full individual test output (with
c      90 output lines per test case).  (NOTE that ALL the differences
c      are CHECKED for ALL of the test conformations, and the final
c      summary is output, regardless of the value of n_full_out):
c
      parameter ( n_full_out = 0 )
c
      parameter ( ntest = 30, ntestp1 = ntest + 1 )
c
      dimension cc3(3,ntest), f_red(ntest), f_rot(3,ntest)
c
      dimension Vsto(23,7,ntest), diflim(7), derlim(7), ok_lim(7)
c
      dimension fdif(7), fder(7), iouse(7)
c
      dimension ccall(15:23), ccdall(15:25), cc(3,3), ccd(3,3)
      equivalence (ccall(15),cc(1,1)), (ccdall(15),ccd(1,1))
c
      dimension Vtest(23), Valt1(8), Valt2(8), Valt3(8), Valt4(23)
c
      character*26 ctype(7)
c
      character*27 cvout(14)
c
      character*2 cx(15:23)
c
      data ( ( cc3(i,j), i = 1, 3 ), j = 1, 15 ) /
     $     0.39120683740058d0, 4.09255997931803d0, 0.26410866351247d0,
     $     3.67117150586801d0, 0.93108202509781d0, 0.35213034143254d0,
     $     1.17654026387689d0, 1.62735777701570d0, 0.42857815630791d0,
     $     1.14172574542612d0, 0.79649208972633d0, 1.08525195759300d0,
     $     2.18727200697020d0, 1.18839088617081d0, 0.00000000000000d0,
     $     0.31644842754182d0, 6.14040454396632d0, 2.39694756808611d0,
     $     1.55600770916950d0, 0.06028049268404d0, 8.13043950169211d0,
     $     0.83956610099945d0, 1.87985460521488d0, 0.00000000000000d0,
     $     2.45537165990674d0, 5.25678768903792d0, 0.00000000000000d0,
     $     0.86575458446940d0, 6.00149804964239d0, 0.27933508285567d0,
     $     0.92572226544198d0, 0.00000000000000d0, 0.00000000000000d0,
     $     0.33421862880828d0, 8.90988444625086d0, 0.00000000000000d0,
     $     0.92280463929674d0, 1.51372915925757d0, 0.10283932716572d0,
     $     0.83303015398229d0, 0.48028504134278d0, 0.10951817172988d0,
     $     0.82383269985521d0, 1.81008105556402d0, 1.53967235209318d0 /
c
      data ( ( cc3(i,j), i = 1, 3 ), j = 16, ntest ) /
     $     2.03534575098647d0, 0.00000000000000d0, 0.87110629276780d0,
     $     0.96104171870678d0, 4.29000669729801d0, 0.92693085366683d0,
     $     0.78075311358646d0, 0.69605405574184d0, 0.00000000000000d0,
     $     1.56562402976059d0, 1.28284913447589d0, 0.62114966718489d0,
     $     1.86004013880421d0, 1.04310183332910d0, 0.03402826324353d0,
     $     3.99996141975309d0, 0.00000000000000d0, 0.00000000000000d0,
     $     0.62463765597922d0, 0.80663460378245d0, 0.76206455726036d0,
     $     0.98941593016675d0, 0.66248897102406d0, 6.24125381057117d0,
     $     1.50949003952226d0, 0.00000000000000d0, 3.53339404826924d0,
     $     1.37520898074763d0, 4.12748644134533d0, 0.00000000000000d0,
     $     3.25447557325272d0, 1.22097106146308d0, 3.63151621164203d0,
     $     0.36277218619988d0, 3.23337937560331d0, 0.00000000000000d0,
     $     0.56870666434515d0, 0.41404045792478d0, 0.00389277548950d0,
     $     3.64711481672001d0, 1.05747644435130d0, 3.48896480537928d0,
     $     2.33954740801425d0, 0.41677261416366d0, 1.10405761802612d0 /
c
      data f_red /
     $     0.5059573177951289d0, 0.1462089941536324d0,
     $     0.3135128110410501d0, 0.8520725701119144d0,
     $     0.2095709454878744d0, 0.5795696038976351d0,
     $     0.0909359665146624d0, 0.3037028018909911d0,
     $     0.0749504253253205d0, 0.1690391786483026d0,
     $     0.5728980621583355d0, 0.4555116835632744d0,
     $     0.3085646909553530d0, 0.7286950312647542d0,
     $     0.2528110392136538d0, 0.4337998294720919d0,
     $     0.1507116752290654d0, 0.6196845861989345d0,
     $     0.3765825967059907d0, 0.3472674318194568d0,
     $     0.1729780258104075d0, 0.8548699693245555d0,
     $     0.1611312682272207d0, 0.3533037747977283d0,
     $     0.1903128526063815d0, 0.5270733553295448d0,
     $     0.4117259660215989d0, 0.8196804620456437d0,
     $     0.6746919185949392d0, 0.3760727429854739d0 /
c
      data ( ( f_rot(i,j), i = 1, 3 ), j = 1, 15 ) /
     $     0.29576803269319d0, 5.56648366187404d0, 1.66920796711206d0,
     $     1.18047754830734d0, 5.37656383363817d0, 4.11124177589798d0,
     $     3.27731531228302d0, 5.91047545259022d0, 6.01154090247083d0,
     $     5.84926745690020d0, 3.81720104807025d0, 5.65506060115328d0,
     $     0.38041456036512d0, 5.20810561990889d0, 5.12714233623770d0,
     $     6.10242604129621d0, 5.37243734546732d0, 2.66028558379482d0,
     $     0.86221951260817d0, 3.85021258827415d0, 1.02595676895460d0,
     $     4.65055416370303d0, 2.36280560424393d0, 2.53343443051534d0,
     $     5.90207826339142d0, 4.48810260334637d0, 0.79283630438280d0,
     $     3.67492198216735d0, 4.65623135023455d0, 0.22573825339972d0,
     $     5.14535718217074d0, 0.47185665718302d0, 1.03526033463734d0,
     $     5.87097633427323d0, 5.10814083430710d0, 2.93009569912276d0,
     $     5.38313042452031d0, 3.80693492374977d0, 4.42769574844621d0,
     $     3.80607116018053d0, 0.16475797642636d0, 5.03976871962269d0,
     $     5.58693341546851d0, 5.11698795703568d0, 0.36244888778811d0 /
c
      data ( ( f_rot(i,j), i = 1, 3 ), j = 16, ntest ) /
     $     4.69156838494301d0, 1.96792793379227d0, 0.19715993814459d0,
     $     1.43716194918627d0, 1.17153190041322d0, 3.41345383706752d0,
     $     2.04607826762519d0, 1.53855483369744d0, 0.73177882987011d0,
     $     3.04957429423022d0, 2.67477234478992d0, 3.26989410277905d0,
     $     6.04790759051804d0, 4.29972865226338d0, 1.14147466510864d0,
     $     0.61245659854528d0, 0.43601342740775d0, 1.20841279064844d0,
     $     4.69729546647699d0, 4.84455271786991d0, 1.70614988187776d0,
     $     4.11428049691781d0, 5.51850643109960d0, 3.62104886407899d0,
     $     5.05818267985063d0, 1.38459183263053d0, 3.10510696624837d0,
     $     0.64273333904893d0, 0.24451712772443d0, 3.97837373410219d0,
     $     1.20660153537740d0, 4.93520998979661d0, 4.28697666874122d0,
     $     4.59433339260614d0, 1.03092462933327d0, 4.89898662022219d0,
     $     3.01484716083253d0, 3.24858445951667d0, 4.26791827020779d0,
     $     2.58801469965622d0, 1.41662476820099d0, 1.51616582732138d0,
     $     0.72873082101306d0, 1.95360170155295d0, 3.91846059522600d0 /
c
      data ( Vsto(i,1,01), i = 1, 23 ) /
     $        -0.0042762898273285d0,    -0.8438716045997350d0,
     $        -0.0016911466853696d0,    -0.0016279435333529d0,
     $        -0.0056469279148673d0,    -0.8454852592636380d0,
     $         0.0013706380875389d0,     0.0016136546639031d0,
     $        -1.6880530973505323d0,    -0.0032977983250250d0,
     $        -0.0002048985703840d0,    -0.8440265486752662d0,
     $        -0.0033041481101315d0,    -0.0000324174191828d0,
     $         0.5541562283889147d0,    -0.6338313255420034d0,
     $        -0.0610333879607930d0,    -0.5547463709507943d0,
     $         0.6327392610084159d0,     0.0640955087990065d0,
     $         0.0005901425618796d0,     0.0010920645335875d0,
     $        -0.0030621208382135d0 /
c
      data ( Vsto(i,2,01), i = 1, 23 ) /
     $        -0.0042942463788107d0,    -0.8438010746553737d0,
     $        -0.0016927404543915d0,    -0.0016172714877578d0,
     $        -0.0056469279148673d0,    -0.8454852592636380d0,
     $         0.0013526815360566d0,     0.0016841846082644d0,
     $        -1.6879103995819640d0,    -0.0032888535178812d0,
     $        -0.0002031617463469d0,    -0.8439551997909820d0,
     $        -0.0032951100195851d0,    -0.0000371630746682d0,
     $         0.5541111045898116d0,    -0.6337741405292910d0,
     $        -0.0610378713034599d0,    -0.5547004223180609d0,
     $         0.6326859242521307d0,     0.0640917740698480d0,
     $         0.0005893177282493d0,     0.0010882162771603d0,
     $        -0.0030539027663881d0 /
c
      data ( Vsto(i,3,01), i = 1, 23 ) /
     $        -0.0044328169531224d0,    -0.8430309044350971d0,
     $        -0.0017792715510803d0,    -0.0015149308452423d0,
     $        -0.0056469279148673d0,    -0.8454852592636380d0,
     $         0.0012141109617449d0,     0.0024543548285410d0,
     $        -1.6863565641191367d0,    -0.0032742895572387d0,
     $        -0.0001842947101394d0,    -0.8431782820595684d0,
     $        -0.0032793612561248d0,    -0.0001105310837984d0,
     $         0.5536167573719225d0,    -0.6331553661259759d0,
     $        -0.0610739148186627d0,    -0.5542152682329681d0,
     $         0.6320854502088181d0,     0.0641156250816974d0,
     $         0.0005985108610455d0,     0.0010699159171578d0,
     $        -0.0030417102630347d0 /
c
      data ( Vsto(i,4,01), i = 1, 23 ) /
     $         1.0041222266173182d0,    -5.3478602595860014d0,
     $        -0.1119308166840004d0,    -0.1198286923963774d0,
     $         0.9018660606221098d0,    -5.4170287033849531d0,
     $         0.1022561659952083d0,     0.0691684437989517d0,
     $       -10.7181410137430380d0,    -0.2301983158419383d0,
     $        -0.0154716180422868d0,    -5.3590705068715190d0,
     $        -0.2307168343610336d0,     0.0012755969608469d0,
     $         3.4994594964107928d0,    -4.0605331727930265d0,
     $        -0.2871647269511818d0,    -3.5398857067140335d0,
     $         3.9834259985570459d0,     0.5008253007198848d0,
     $         0.0404262103032410d0,     0.0771071742359810d0,
     $        -0.2136605737687030d0 /
c
      data ( Vsto(i,5,01), i = 1, 23 ) /
     $         1.0041222266173182d0,    -5.3478602595860014d0,
     $        -0.1119308166840004d0,    -0.1198286923963774d0,
     $         0.9018660606221098d0,    -5.4170287033849531d0,
     $         0.1022561659952083d0,     0.0691684437989517d0,
     $       -10.7181410137430380d0,    -0.2301983158419383d0,
     $        -0.0154716180422868d0,    -5.3590705068715190d0,
     $        -0.2307168343610336d0,     0.0012755969608469d0,
     $         3.4994594964107928d0,    -4.0605331727930265d0,
     $        -0.2871647269511818d0,    -3.5398857067140335d0,
     $         3.9834259985570459d0,     0.5008253007198848d0,
     $         0.0404262103032410d0,     0.0771071742359810d0,
     $        -0.2136605737687030d0 /
c
      data ( Vsto(i,6,01), i = 1, 23 ) /
     $         1.0041222266173182d0,    -5.3478602595860014d0,
     $        -0.1119308166840004d0,    -0.1198286923963774d0,
     $         0.9018660606221098d0,    -5.4170287033849531d0,
     $         0.1022561659952083d0,     0.0691684437989517d0,
     $       -10.7181410137430380d0,    -0.2301983158419383d0,
     $        -0.0154716180422868d0,    -5.3590705068715190d0,
     $        -0.2307168343610336d0,     0.0012755969608469d0,
     $         3.4994594964107928d0,    -4.0605331727930265d0,
     $        -0.2871647269511818d0,    -3.5398857067140335d0,
     $         3.9834259985570459d0,     0.5008253007198848d0,
     $         0.0404262103032410d0,     0.0771071742359810d0,
     $        -0.2136605737687030d0 /
c
      data ( Vsto(i,7,01), i = 1, 23 ) /
     $         0.9926263284013517d0,    -5.1275527306557205d0,
     $        -0.1005900373693843d0,    -0.1023867176095519d0,
     $         0.9018660606221098d0,    -5.4170287033849531d0,
     $         0.0907602677792419d0,     0.2894759727292329d0,
     $       -10.2744161852265172d0,    -0.2016404191464791d0,
     $        -0.0130659043880697d0,    -5.1372080926132586d0,
     $        -0.2020632912356656d0,     0.0001103066799634d0,
     $         3.3567125358826324d0,    -3.8882606215540738d0,
     $        -0.2867110126649111d0,    -3.3924430360532400d0,
     $         3.8210841075147712d0,     0.4739013537889433d0,
     $         0.0357305001706074d0,     0.0671765140393025d0,
     $        -0.1871903411240322d0 /
c
      data ( Vsto(i,1,02), i = 1, 23 ) /
     $         0.0020227410745541d0,    -0.0010963802896558d0,
     $        -0.0044073567435764d0,    -0.0022807679826481d0,
     $        -0.0001252659803197d0,     0.0001636164596292d0,
     $         0.0021480070548738d0,    -0.0012599967492850d0,
     $        -0.0086583467663004d0,    -0.0017046606854560d0,
     $         0.0020215025162764d0,    -0.0043291733831502d0,
     $        -0.0008793525474025d0,    -0.0024824474057912d0,
     $         0.0023198748748313d0,     0.0018850581472999d0,
     $        -0.0015300635342343d0,    -0.0048833964378503d0,
     $        -0.0022558025652815d0,     0.0009978546952214d0,
     $         0.0025635215630189d0,     0.0003707444179816d0,
     $         0.0005322088390128d0 /
c
      data ( Vsto(i,2,02), i = 1, 23 ) /
     $         0.0040637154298365d0,    -0.0006121822293438d0,
     $        -0.0048404054693227d0,    -0.0026428937427367d0,
     $        -0.0001252659803197d0,     0.0001636164596292d0,
     $         0.0041889814101562d0,    -0.0007757986889729d0,
     $        -0.0084597054381481d0,    -0.0019032736655238d0,
     $         0.0020856541130712d0,    -0.0042298527190740d0,
     $        -0.0010424307215098d0,    -0.0026121154609324d0,
     $         0.0021698676770126d0,     0.0018497250570203d0,
     $        -0.0015435001397139d0,    -0.0048971228046335d0,
     $        -0.0021765467909836d0,     0.0008895347367133d0,
     $         0.0027272551276209d0,     0.0003268217339633d0,
     $         0.0006539654030006d0 /
c
      data ( Vsto(i,3,02), i = 1, 23 ) /
     $         0.0072245418220584d0,     0.0004412212735154d0,
     $        -0.0105077155353046d0,    -0.0043492586653123d0,
     $        -0.0001252659803197d0,     0.0001636164596292d0,
     $         0.0073498078023781d0,     0.0002776048138863d0,
     $        -0.0134719949713078d0,    -0.0038187417454061d0,
     $         0.0058798931713168d0,    -0.0067359974856539d0,
     $        -0.0014918693968400d0,    -0.0068193576759610d0,
     $         0.0024301190707628d0,     0.0023075699391178d0,
     $        -0.0020349988154138d0,    -0.0092369643934863d0,
     $        -0.0038250653078829d0,     0.0013138907912601d0,
     $         0.0068068453227235d0,     0.0015174953687652d0,
     $         0.0007211080241538d0 /
c
      data ( Vsto(i,4,02), i = 1, 23 ) /
     $         3.5759112700272766d0,    -2.4933439009642218d0,
     $       -43.4318680060421869d0,    -7.5415172345950339d0,
     $        -0.1444549949841207d0,    -0.2250446786492456d0,
     $         3.7203662650113971d0,    -2.2682992223149760d0,
     $       -54.1516177003850387d0,   -13.4313192618200059d0,
     $        34.4702595726537453d0,   -27.0758088501925194d0,
     $        -0.3693181383288580d0,    -5.3840313078761950d0,
     $         6.7795291767066868d0,     5.6576725359636422d0,
     $        -4.6646369912004282d0,   -41.5787946931315133d0,
     $       -18.0048169892372520d0,     6.9358207104147764d0,
     $        34.7992655164248319d0,    12.3471444532736108d0,
     $        -2.2711837192143483d0 /
c
      data ( Vsto(i,5,02), i = 1, 23 ) /
     $         2.6978137070902370d0,    -0.0384561657970551d0,
     $        -3.9681523478928509d0,    -3.0133166099992117d0,
     $        -0.1444549949841207d0,    -0.2250446786492456d0,
     $         2.8422687020743576d0,     0.1865885128521906d0,
     $        -6.8333051131528189d0,    -1.7511942893381118d0,
     $         0.8849357797658837d0,    -3.4166525565764094d0,
     $        -1.3249286577121022d0,    -0.2106281566089867d0,
     $         1.9546625754855755d0,     1.7737108878732917d0,
     $        -1.5298998316726533d0,    -3.6497486933981667d0,
     $        -1.5487557551936602d0,     0.5676779162802755d0,
     $         1.6950861179125913d0,    -0.2249551326796314d0,
     $         0.9622219153923778d0 /
c
      data ( Vsto(i,6,02), i = 1, 23 ) /
     $         2.7198658776965545d0,    -0.0899275062831521d0,
     $        -8.1547058463561175d0,    -3.9306070056520004d0,
     $        -0.1444549949841207d0,    -0.2250446786492456d0,
     $         2.8643208726806750d0,     0.1351171723660935d0,
     $       -11.8608673306563066d0,    -3.0888012712254609d0,
     $         4.0222120619040442d0,    -5.9304336653281533d0,
     $        -1.4662641776352798d0,    -0.7065798195168171d0,
     $         2.5809975829367309d0,     2.3338644062836504d0,
     $        -2.0094834180414320d0,    -7.5089559195181197d0,
     $        -3.1882929563708400d0,     1.1703996023446379d0,
     $         4.9279583365813888d0,     0.8544285500871894d0,
     $         0.8390838156967941d0 /
c
      data ( Vsto(i,7,02), i = 1, 23 ) /
     $         2.7198658776965545d0,    -0.0899275062831521d0,
     $        -8.1547058463561175d0,    -3.9306070056520004d0,
     $        -0.1444549949841207d0,    -0.2250446786492456d0,
     $         2.8643208726806750d0,     0.1351171723660935d0,
     $       -11.8608673306563066d0,    -3.0888012712254609d0,
     $         4.0222120619040442d0,    -5.9304336653281533d0,
     $        -1.4662641776352798d0,    -0.7065798195168171d0,
     $         2.5809975829367309d0,     2.3338644062836504d0,
     $        -2.0094834180414320d0,    -7.5089559195181197d0,
     $        -3.1882929563708400d0,     1.1703996023446379d0,
     $         4.9279583365813888d0,     0.8544285500871894d0,
     $         0.8390838156967941d0 /
c
      data ( Vsto(i,1,03), i = 1, 23 ) /
     $         0.0614658321412946d0,     0.0854047939694136d0,
     $        -0.1729731174242691d0,    -0.1234907730459902d0,
     $        -0.1065802825244311d0,     0.0875541999741322d0,
     $         0.1680461146657257d0,    -0.0021494060047185d0,
     $         0.0118544303228713d0,    -0.2450870918476098d0,
     $        -0.0144815288574927d0,     0.0059272151614357d0,
     $        -0.2406938693478599d0,    -0.0814723453495979d0,
     $         0.0115576916791729d0,    -0.0847510929423451d0,
     $         0.0203788467185642d0,     0.0246007031475770d0,
     $        -0.1487988897650665d0,     0.0461371162474014d0,
     $        -0.0361583948267499d0,     0.2335499827074116d0,
     $        -0.0665159629659656d0 /
c
      data ( Vsto(i,2,03), i = 1, 23 ) /
     $         0.0614794137516484d0,     0.0855582084796520d0,
     $        -0.1729597518081713d0,    -0.1235044664045187d0,
     $        -0.1065802825244311d0,     0.0875541999741322d0,
     $         0.1680596962760795d0,    -0.0019959914944802d0,
     $         0.0121572252524383d0,    -0.2450846966024243d0,
     $        -0.0144967264117602d0,     0.0060786126262192d0,
     $        -0.2406954235114764d0,    -0.0814465869417036d0,
     $         0.0115065572867594d0,    -0.0847964615109731d0,
     $         0.0202519606535819d0,     0.0246570697450537d0,
     $        -0.1487474055528415d0,     0.0462771143598509d0,
     $        -0.0361636270318131d0,     0.2335438670638146d0,
     $        -0.0665290750134328d0 /
c
      data ( Vsto(i,3,03), i = 1, 23 ) /
     $         0.0984132588812485d0,     0.1058399447293308d0,
     $        -0.1671701057684463d0,    -0.1591030298191753d0,
     $        -0.1065802825244311d0,     0.0875541999741322d0,
     $         0.2049935414056795d0,     0.0182857447551986d0,
     $         0.0301403510813259d0,    -0.2651686631654213d0,
     $        -0.0419128023853824d0,     0.0150701755406630d0,
     $        -0.2670993341982734d0,    -0.0454383718516953d0,
     $         0.0164178577582684d0,    -0.1081435786908692d0,
     $         0.0300184099602991d0,     0.0322599913868193d0,
     $        -0.1379842595315537d0,     0.0654941922621184d0,
     $        -0.0486778491450876d0,     0.2461278382224229d0,
     $        -0.0955126022224175d0 /
c
      data ( Vsto(i,4,03), i = 1, 23 ) /
     $         2.3163499181371181d0,    -1.0441556419566471d0,
     $        -8.5214989249545905d0,    -2.4690573247499019d0,
     $         0.0360410487170163d0,    -1.0260725044570513d0,
     $         2.2803088694201019d0,    -0.0180831374995957d0,
     $        -7.3808833622584249d0,    -9.5006816976887425d0,
     $         1.8249031136513716d0,    -3.6904416811292124d0,
     $        -8.7226577380175385d0,    -2.2076176770579981d0,
     $         1.2330983980601615d0,    -1.0068603146515207d0,
     $         2.8762809040382491d0,    -0.7003744840173950d0,
     $        -8.6429071272170290d0,    -2.4387678822060375d0,
     $        -0.5327239140427664d0,     9.6497674418685513d0,
     $        -0.4375130218322115d0 /
c
      data ( Vsto(i,5,03), i = 1, 23 ) /
     $         2.3106123994550374d0,    -0.7600757644927875d0,
     $        -3.1885030719565575d0,    -2.1506367159178805d0,
     $         0.0360410487170163d0,    -1.0260725044570513d0,
     $         2.2745713507380212d0,     0.2659967399642639d0,
     $        -4.3619616261552796d0,    -4.4283013373316935d0,
     $        -0.1786528622614844d0,    -2.1809808130776398d0,
     $        -4.3277845255269547d0,    -0.5038593233554362d0,
     $         1.0196623260278892d0,    -0.9143505857571899d0,
     $         2.3712835958273804d0,    -0.3965673586334926d0,
     $        -3.3262371605593737d0,    -1.2439248211662326d0,
     $        -0.6230949673943966d0,     4.2405877463165638d0,
     $        -1.1273587746611475d0 /
c
      data ( Vsto(i,6,03), i = 1, 23 ) /
     $         2.3474627800687218d0,    -1.0826835050520454d0,
     $        -6.5927354868956387d0,    -2.2086657262877183d0,
     $         0.0360410487170163d0,    -1.0260725044570513d0,
     $         2.3114217313517056d0,    -0.0566110005949941d0,
     $        -6.4695977782281915d0,    -7.5627770604330804d0,
     $         1.2022689320591904d0,    -3.2347988891140957d0,
     $        -7.0072210319441970d0,    -1.6295652095536366d0,
     $         1.1571816780443558d0,    -0.8635289210001221d0,
     $         2.7063072889812800d0,    -0.6419398710546971d0,
     $        -6.7553507667659289d0,    -2.1333800383785806d0,
     $        -0.5152418069896587d0,     7.6188796877660510d0,
     $        -0.5729272506026998d0 /
c
      data ( Vsto(i,7,03), i = 1, 23 ) /
     $         2.3474627800687218d0,    -1.0826835050520454d0,
     $        -6.5927354868956387d0,    -2.2086657262877183d0,
     $         0.0360410487170163d0,    -1.0260725044570513d0,
     $         2.3114217313517056d0,    -0.0566110005949941d0,
     $        -6.4695977782281915d0,    -7.5627770604330804d0,
     $         1.2022689320591904d0,    -3.2347988891140957d0,
     $        -7.0072210319441970d0,    -1.6295652095536366d0,
     $         1.1571816780443558d0,    -0.8635289210001221d0,
     $         2.7063072889812800d0,    -0.6419398710546971d0,
     $        -6.7553507667659289d0,    -2.1333800383785806d0,
     $        -0.5152418069896587d0,     7.6188796877660510d0,
     $        -0.5729272506026998d0 /
c
      data ( Vsto(i,1,04), i = 1, 23 ) /
     $         0.4874409550163510d0,     0.0702341793109243d0,
     $        -1.1447210122349298d0,    -0.2216197953057355d0,
     $        -0.1127297031747269d0,     0.0890064551717262d0,
     $         0.6001706581910780d0,    -0.0187722758608018d0,
     $        -0.1491674082544060d0,    -1.2164881891495689d0,
     $        -0.1277136467692089d0,    -0.0745837041272030d0,
     $        -0.8227232666941307d0,    -1.2184732792615558d0,
     $         0.0620916192678287d0,    -0.0202198480917405d0,
     $        -0.1430795884163653d0,    -0.3813184964040733d0,
     $         0.6667869242791257d0,    -0.8449485016781546d0,
     $         0.3192268771362445d0,    -0.6465670761873852d0,
     $         0.9880280900945199d0 /
c
      data ( Vsto(i,2,04), i = 1, 23 ) /
     $         0.4874118793712163d0,     0.0703998321577217d0,
     $        -1.1446746625650110d0,    -0.2216659551471693d0,
     $        -0.1127297031747269d0,     0.0890064551717262d0,
     $         0.6001415825459433d0,    -0.0186066230140045d0,
     $        -0.1488762880409807d0,    -1.2164575005638516d0,
     $        -0.1277603884641585d0,    -0.0744381440204904d0,
     $        -0.8227427912090075d0,    -1.2184027450235426d0,
     $         0.0620101056236166d0,    -0.0201548086074315d0,
     $        -0.1430140349734440d0,    -0.3811976837454791d0,
     $         0.6666826633279317d0,    -0.8450206762496858d0,
     $         0.3191875781218625d0,    -0.6465278547205002d0,
     $         0.9880347112231298d0 /
c
      data ( Vsto(i,3,04), i = 1, 23 ) /
     $         0.4117733426220186d0,     0.0270373252685777d0,
     $        -1.1845202221448767d0,    -0.1397400785990194d0,
     $        -0.1127297031747269d0,     0.0890064551717262d0,
     $         0.5245030457967456d0,    -0.0619691299031485d0,
     $        -0.1612789182368511d0,    -1.2286135170957104d0,
     $        -0.0478018040825374d0,    -0.0806394591184256d0,
     $        -0.7654743286880114d0,    -1.2952814657269516d0,
     $         0.0499377207363654d0,    -0.0206584029822247d0,
     $        -0.1011075840198131d0,    -0.4231172189030963d0,
     $         0.7108967886514805d0,    -0.8455096670170371d0,
     $         0.3731794981667309d0,    -0.6902383856692559d0,
     $         0.9466172510368502d0 /
c
      data ( Vsto(i,4,04), i = 1, 23 ) /
     $         0.6569438089581228d0,    -0.0221553336969714d0,
     $        -2.0312010554813464d0,    -0.2111574368115139d0,
     $        -0.1429829450682224d0,     0.0870717432170942d0,
     $         0.7999267540263452d0,    -0.1092270769140656d0,
     $        -0.3867920123489083d0,    -2.0972249629615320d0,
     $        -0.0551655905030769d0,    -0.1933960061744543d0,
     $        -1.2853448767911957d0,    -1.9018928983598775d0,
     $         0.1148646729357937d0,    -0.0601094116388575d0,
     $        -0.1925650228480432d0,    -0.7684059622062938d0,
     $         1.2504559482109001d0,    -1.4066081052822597d0,
     $         0.6535412892705000d0,    -1.1903465365720427d0,
     $         1.5991731281303028d0 /
c
      data ( Vsto(i,5,04), i = 1, 23 ) /
     $         0.6597812495630454d0,    -0.0187219656858124d0,
     $        -2.4213255659499633d0,    -0.2163762916907258d0,
     $        -0.1429829450682224d0,     0.0870717432170942d0,
     $         0.8027641946312678d0,    -0.1057937089029065d0,
     $        -0.4124310745228812d0,    -2.4881300550451688d0,
     $        -0.0324878224280803d0,    -0.2062155372614408d0,
     $        -1.4983505864736535d0,    -2.2787587843900394d0,
     $         0.1152140333052463d0,    -0.0597696118315218d0,
     $        -0.1948108414832751d0,    -0.9111822949688354d0,
     $         1.4871003560899421d0,    -1.6816241033906458d0,
     $         0.7959682616635891d0,    -1.4273307442584204d0,
     $         1.8764349448739208d0 /
c
      data ( Vsto(i,6,04), i = 1, 23 ) /
     $         0.6569438089581228d0,    -0.0221553336969714d0,
     $        -2.0312010554813464d0,    -0.2111574368115139d0,
     $        -0.1429829450682224d0,     0.0870717432170942d0,
     $         0.7999267540263452d0,    -0.1092270769140656d0,
     $        -0.3867920123489083d0,    -2.0972249629615320d0,
     $        -0.0551655905030769d0,    -0.1933960061744543d0,
     $        -1.2853448767911957d0,    -1.9018928983598775d0,
     $         0.1148646729357937d0,    -0.0601094116388575d0,
     $        -0.1925650228480432d0,    -0.7684059622062938d0,
     $         1.2504559482109001d0,    -1.4066081052822597d0,
     $         0.6535412892705000d0,    -1.1903465365720427d0,
     $         1.5991731281303028d0 /
c
      data ( Vsto(i,7,04), i = 1, 23 ) /
     $         0.6569438089581228d0,    -0.0221553336969714d0,
     $        -2.0312010554813464d0,    -0.2111574368115139d0,
     $        -0.1429829450682224d0,     0.0870717432170942d0,
     $         0.7999267540263452d0,    -0.1092270769140656d0,
     $        -0.3867920123489083d0,    -2.0972249629615320d0,
     $        -0.0551655905030769d0,    -0.1933960061744543d0,
     $        -1.2853448767911957d0,    -1.9018928983598775d0,
     $         0.1148646729357937d0,    -0.0601094116388575d0,
     $        -0.1925650228480432d0,    -0.7684059622062938d0,
     $         1.2504559482109001d0,    -1.4066081052822597d0,
     $         0.6535412892705000d0,    -1.1903465365720427d0,
     $         1.5991731281303028d0 /
c
      data ( Vsto(i,1,05), i = 1, 23 ) /
     $         0.0508476990496962d0,     0.0032040124616116d0,
     $        -0.0504502278331700d0,    -0.0504502278331700d0,
     $        -0.0096150570952664d0,     0.0140110285527846d0,
     $         0.0604627561449626d0,    -0.0108070160911731d0,
     $        -0.0822514362865416d0,    -0.0481705500453261d0,
     $         0.0000000000000000d0,    -0.0411257181432708d0,
     $        -0.0481705500453261d0,     0.0000000000000000d0,
     $         0.0319214921538305d0,     0.0341146189287696d0,
     $        -0.0094146842610275d0,    -0.0404291789689670d0,
     $        -0.0016921854636094d0,    -0.0251802136998290d0,
     $         0.0085076868151365d0,    -0.0324224334651603d0,
     $         0.0345948979608565d0 /
c
      data ( Vsto(i,2,05), i = 1, 23 ) /
     $         0.0516113668948433d0,     0.0037534643702753d0,
     $        -0.0504743611011443d0,    -0.0504743611011443d0,
     $        -0.0096150570952664d0,     0.0140110285527846d0,
     $         0.0612264239901097d0,    -0.0102575641825093d0,
     $        -0.0811949434280489d0,    -0.0481935928112886d0,
     $         0.0000000000000000d0,    -0.0405974717140245d0,
     $        -0.0481935928112886d0,     0.0000000000000000d0,
     $         0.0314547969135735d0,     0.0338924103344026d0,
     $        -0.0095242101738892d0,    -0.0399665534484035d0,
     $        -0.0014544673401717d0,    -0.0250872365317181d0,
     $         0.0085117565348299d0,    -0.0324379429942309d0,
     $         0.0346114467056073d0 /
c
      data ( Vsto(i,3,05), i = 1, 23 ) /
     $         0.0539509258852990d0,    -0.0235910515416834d0,
     $        -0.0184023978898392d0,    -0.0184023978898392d0,
     $        -0.0096150570952664d0,     0.0140110285527846d0,
     $         0.0635659829805654d0,    -0.0376020800944680d0,
     $        -0.0795218318012647d0,    -0.0175708548123479d0,
     $         0.0000000000000000d0,    -0.0397609159006324d0,
     $        -0.0175708548123479d0,     0.0000000000000000d0,
     $         0.0334231707257098d0,     0.0232225170164399d0,
     $         0.0013116897603965d0,    -0.0365264637061102d0,
     $        -0.0113959991431066d0,    -0.0139306432235857d0,
     $         0.0031032929804005d0,    -0.0118265178733332d0,
     $         0.0126189534631893d0 /
c
      data ( Vsto(i,4,05), i = 1, 23 ) /
     $         4.7740125152967954d0,    -3.7788263734190863d0,
     $       -44.5908868739830879d0,   -44.5908868739830879d0,
     $        -0.0917786967966098d0,    -0.4712648622388976d0,
     $         4.8657912120934048d0,    -3.3075615111801886d0,
     $       -85.9201136297923540d0,   -42.5759731914715260d0,
     $         0.0000000000000000d0,   -42.9600568148961841d0,
     $       -42.5759731914715260d0,     0.0000000000000000d0,
     $        34.0290736318469484d0,    33.0303807156533082d0,
     $        -7.0541443405046316d0,   -41.5486690157869916d0,
     $        -4.3735217693462420d0,   -23.5228668573576130d0,
     $         7.5195953839400405d0,   -28.6568589463070644d0,
     $        30.5770111978622445d0 /
c
      data ( Vsto(i,5,05), i = 1, 23 ) /
     $         2.9189528944437440d0,    -0.1748386478210335d0,
     $        -3.7045287951207189d0,    -3.7045287951207189d0,
     $        -0.0917786967966098d0,    -0.4712648622388976d0,
     $         3.0107315912403538d0,     0.2964262144178641d0,
     $        -6.8598862900902189d0,    -3.5371334755873476d0,
     $         0.0000000000000000d0,    -3.4299431450451099d0,
     $        -3.5371334755873476d0,     0.0000000000000000d0,
     $         2.7047171549019637d0,     2.6835486459063627d0,
     $        -0.6127071578700887d0,    -3.3294312967441577d0,
     $        -0.3027895584200984d0,    -1.9275746439098966d0,
     $         0.6247141418421940d0,    -2.3807590874862643d0,
     $         2.5402818017799853d0 /
c
      data ( Vsto(i,6,05), i = 1, 23 ) /
     $         3.0005822812529397d0,    -0.8338571376455808d0,
     $        -6.1307793946562708d0,    -6.1307793946562708d0,
     $        -0.0917786967966098d0,    -0.4712648622388976d0,
     $         3.0923609780495496d0,    -0.3625922754066832d0,
     $       -12.4417309898158557d0,    -5.8537498903617440d0,
     $         0.0000000000000000d0,    -6.2208654949079278d0,
     $        -5.8537498903617440d0,     0.0000000000000000d0,
     $         4.9551150710163023d0,     4.6781598688032950d0,
     $        -0.9096259260647050d0,    -5.9889805908095415d0,
     $        -0.7381422405354485d0,    -3.2943925033467907d0,
     $         1.0338655197932392d0,    -3.9400176282678467d0,
     $         4.2040184294114953d0 /
c
      data ( Vsto(i,7,05), i = 1, 23 ) /
     $         3.0005822812529397d0,    -0.8338571376455808d0,
     $        -6.1307793946562708d0,    -6.1307793946562708d0,
     $        -0.0917786967966098d0,    -0.4712648622388976d0,
     $         3.0923609780495496d0,    -0.3625922754066832d0,
     $       -12.4417309898158557d0,    -5.8537498903617440d0,
     $         0.0000000000000000d0,    -6.2208654949079278d0,
     $        -5.8537498903617440d0,     0.0000000000000000d0,
     $         4.9551150710163023d0,     4.6781598688032950d0,
     $        -0.9096259260647050d0,    -5.9889805908095415d0,
     $        -0.7381422405354485d0,    -3.2943925033467907d0,
     $         1.0338655197932392d0,    -3.9400176282678467d0,
     $         4.2040184294114953d0 /
c
      data ( Vsto(i,1,06), i = 1, 23 ) /
     $         0.1726638074727138d0,    -1.6323094739869322d0,
     $         0.0000144726278586d0,     0.0000039483995470d0,
     $         0.1726937923260211d0,    -1.6322898216100976d0,
     $        -0.0000299848533073d0,    -0.0000196523768345d0,
     $        -3.2646219963699874d0,     0.0000173187124754d0,
     $         0.0000062401877484d0,    -1.6323109981849937d0,
     $         0.0000184022509843d0,     0.0000031947685448d0,
     $         1.2894617399407668d0,    -0.4633323573922360d0,
     $        -0.8871530627313753d0,    -1.2894685785125346d0,
     $         0.4633480911042610d0,     0.8871463872548354d0,
     $         0.0000068385717677d0,    -0.0000157337120249d0,
     $         0.0000066754765398d0 /
c
      data ( Vsto(i,2,06), i = 1, 23 ) /
     $         0.1726601387093990d0,    -1.6322930905859541d0,
     $         0.0000104847120973d0,     0.0000113692470723d0,
     $         0.1726937923260211d0,    -1.6322898216100976d0,
     $        -0.0000336536166221d0,    -0.0000032689758564d0,
     $        -3.2645849504210926d0,     0.0000203293782300d0,
     $         0.0000079598762122d0,    -1.6322924752105463d0,
     $         0.0000218321492675d0,    -0.0000001484063536d0,
     $         1.2894456800284517d0,    -0.4633213832758439d0,
     $        -0.8871464737923679d0,    -1.2894542089580954d0,
     $         0.4633400323374157d0,     0.8871389829239165d0,
     $         0.0000085289296436d0,    -0.0000186490615718d0,
     $         0.0000074908684514d0 /
c
      data ( Vsto(i,3,06), i = 1, 23 ) /
     $         0.1726565246019634d0,    -1.6322911580470911d0,
     $        -0.0000076482699624d0,     0.0000366672912481d0,
     $         0.1726937923260211d0,    -1.6322898216100976d0,
     $        -0.0000372677240576d0,    -0.0000013364369935d0,
     $        -3.2645650412707816d0,     0.0000262949164597d0,
     $         0.0000123661366225d0,    -1.6322825206353908d0,
     $         0.0000289915633773d0,    -0.0000129055454470d0,
     $         1.2894335252073634d0,    -0.4632992771072078d0,
     $        -0.8871533166310616d0,    -1.2894461925043841d0,
     $         0.4633239863397505d0,     0.8871447529064090d0,
     $         0.0000126672970207d0,    -0.0000247092325428d0,
     $         0.0000085637246525d0 /
c
      data ( Vsto(i,4,06), i = 1, 23 ) /
     $         1.0751358466697540d0,    -6.4497993296638754d0,
     $        -0.0077907801190287d0,     0.0036660146128412d0,
     $         1.0737315551025364d0,    -6.4503134475804629d0,
     $         0.0014042915672177d0,     0.0005141179165874d0,
     $       -12.8956168249726968d0,    -0.0040255297966604d0,
     $        -0.0010183159470832d0,    -6.4478084124863484d0,
     $        -0.0041202441985551d0,    -0.0019682832795034d0,
     $         5.0935599382052903d0,    -1.8276700458351391d0,
     $        -3.5065766914501726d0,    -5.0923117690105286d0,
     $         1.8241355953445246d0,     3.5083631938718129d0,
     $        -0.0012481691947615d0,     0.0035344504906146d0,
     $        -0.0017865024216406d0 /
c
      data ( Vsto(i,5,06), i = 1, 23 ) /
     $         1.0751358466697540d0,    -6.4497993296638754d0,
     $        -0.0077907801190287d0,     0.0036660146128412d0,
     $         1.0737315551025364d0,    -6.4503134475804629d0,
     $         0.0014042915672177d0,     0.0005141179165874d0,
     $       -12.8956168249726968d0,    -0.0040255297966604d0,
     $        -0.0010183159470832d0,    -6.4478084124863484d0,
     $        -0.0041202441985551d0,    -0.0019682832795034d0,
     $         5.0935599382052903d0,    -1.8276700458351391d0,
     $        -3.5065766914501726d0,    -5.0923117690105286d0,
     $         1.8241355953445246d0,     3.5083631938718129d0,
     $        -0.0012481691947615d0,     0.0035344504906146d0,
     $        -0.0017865024216406d0 /
c
      data ( Vsto(i,6,06), i = 1, 23 ) /
     $         1.0751358466697540d0,    -6.4497993296638754d0,
     $        -0.0077907801190287d0,     0.0036660146128412d0,
     $         1.0737315551025364d0,    -6.4503134475804629d0,
     $         0.0014042915672177d0,     0.0005141179165874d0,
     $       -12.8956168249726968d0,    -0.0040255297966604d0,
     $        -0.0010183159470832d0,    -6.4478084124863484d0,
     $        -0.0041202441985551d0,    -0.0019682832795034d0,
     $         5.0935599382052903d0,    -1.8276700458351391d0,
     $        -3.5065766914501726d0,    -5.0923117690105286d0,
     $         1.8241355953445246d0,     3.5083631938718129d0,
     $        -0.0012481691947615d0,     0.0035344504906146d0,
     $        -0.0017865024216406d0 /
c
      data ( Vsto(i,7,06), i = 1, 23 ) /
     $         1.0751555423004722d0,    -6.4477065734018373d0,
     $        -0.0032195762845830d0,    -0.0005834908286648d0,
     $         1.0737315551025364d0,    -6.4503134475804629d0,
     $         0.0014239871979358d0,     0.0026068741786254d0,
     $       -12.8946158190718698d0,    -0.0035830058949197d0,
     $        -0.0012690077424556d0,    -6.4473079095359349d0,
     $        -0.0037991745362282d0,    -0.0004613700681810d0,
     $         5.0936920368312242d0,    -1.8306972074817571d0,
     $        -3.5041134142457055d0,    -5.0922946103002564d0,
     $         1.8274483619865816d0,     3.5055064375522109d0,
     $        -0.0013974265309677d0,     0.0032488454951756d0,
     $        -0.0013930233065052d0 /
c
      data ( Vsto(i,1,07), i = 1, 23 ) /
     $        -0.0507285901492584d0,     0.0571203062734769d0,
     $         0.0000097490508456d0,     0.0000043517919147d0,
     $        -0.0506974233531997d0,     0.0571242519294308d0,
     $        -0.0000311667960587d0,    -0.0000039456559539d0,
     $         0.1142352156135292d0,     0.0000001164660442d0,
     $         0.0000141003487229d0,     0.0571176078067646d0,
     $         0.0000141008246668d0,     0.0000000969441581d0,
     $        -0.0371759753680755d0,    -0.0370926211680365d0,
     $         0.0224791205294633d0,     0.0371667319081515d0,
     $         0.0370834753572874d0,    -0.0224736665407557d0,
     $         0.0000092434599240d0,     0.0000091458107491d0,
     $        -0.0000054539887077d0 /
c
      data ( Vsto(i,2,07), i = 1, 23 ) /
     $        -0.0507239505910735d0,     0.0571321066300443d0,
     $         0.0000075409858798d0,     0.0000027600239927d0,
     $        -0.0506974233531997d0,     0.0571242519294308d0,
     $        -0.0000265272378738d0,     0.0000078547006136d0,
     $         0.1142594325617206d0,     0.0000000863156416d0,
     $         0.0000103006394665d0,     0.0571297162808603d0,
     $         0.0000103009963068d0,     0.0000000808564800d0,
     $        -0.0371826132898411d0,    -0.0370992507526729d0,
     $         0.0224831457762553d0,     0.0371758600112911d0,
     $         0.0370925696261277d0,    -0.0224791625111724d0,
     $         0.0000067532785500d0,     0.0000066811265453d0,
     $        -0.0000039832650829d0 /
c
      data ( Vsto(i,3,07), i = 1, 23 ) /
     $        -0.0507213977164367d0,     0.0571311043964691d0,
     $        -0.0000047047969208d0,     0.0000078816332115d0,
     $        -0.0506974233531997d0,     0.0571242519294308d0,
     $        -0.0000239743632370d0,     0.0000068524670383d0,
     $         0.1142747948727032d0,     0.0000000059117310d0,
     $         0.0000031768814273d0,     0.0571373974363516d0,
     $         0.0000031768379437d0,    -0.0000001434390061d0,
     $        -0.0371853124338039d0,    -0.0371019227938394d0,
     $         0.0224847408537932d0,     0.0371832415539609d0,
     $         0.0370998604610560d0,    -0.0224834955222237d0,
     $         0.0000020708798430d0,     0.0000020623327834d0,
     $        -0.0000012453315695d0 /
c
      data ( Vsto(i,4,07), i = 1, 23 ) /
     $         3.6414395808670932d0,   -12.4464827077952105d0,
     $        -5.2304168720995641d0,    -0.5674648924091032d0,
     $         1.7949298137355805d0,   -11.3882914392503505d0,
     $         1.8465097671315125d0,    -1.0581912685448593d0,
     $       -20.2302222925746875d0,    -0.0514866678086761d0,
     $        -5.7976509317179712d0,   -10.1151111462873811d0,
     $        -5.7978733105424096d0,    -0.0062858562205545d0,
     $         8.4713308885856549d0,     8.4500084049365487d0,
     $        -5.1182486797841724d0,    -4.6686156037034898d0,
     $        -4.6898256308881647d0,     2.8786529191868566d0,
     $        -3.8027152848821655d0,    -3.7601827740483840d0,
     $         2.2395957605973154d0 /
c
      data ( Vsto(i,5,07), i = 1, 23 ) /
     $         3.6821847695919052d0,   -12.3262821737637669d0,
     $        -5.1301263747142469d0,    -0.2892685993985859d0,
     $         1.7949298137355805d0,   -11.3882914392503505d0,
     $         1.8872549558563245d0,    -0.9379907345134169d0,
     $       -19.8119166003094378d0,    -0.0488359183528999d0,
     $        -5.4191737435596243d0,    -9.9059583001547207d0,
     $        -5.4193868718187268d0,    -0.0064007113732958d0,
     $         8.2110650410914161d0,     8.1914695044350765d0,
     $        -4.9628843906023619d0,    -4.6561857763479226d0,
     $        -4.6768163054960237d0,     2.8700692257844800d0,
     $        -3.5548792647434930d0,    -3.5146531989390524d0,
     $         2.0928151648178814d0 /
c
      data ( Vsto(i,6,07), i = 1, 23 ) /
     $         3.6575343790158916d0,   -12.1932711602036754d0,
     $        -5.6858558236089616d0,    -0.7701709698663215d0,
     $         1.7949298137355805d0,   -11.3882914392503505d0,
     $         1.8626045652803112d0,    -0.8049797209533256d0,
     $       -19.4710815412546303d0,    -0.0569238310398720d0,
     $        -6.4557728926057534d0,    -9.7355407706273063d0,
     $        -6.4560174946680737d0,    -0.0066982154240134d0,
     $         8.4391872775384869d0,     8.4171036327522728d0,
     $        -5.0973476151720130d0,    -4.2050405499698673d0,
     $        -4.2300479090400183d0,     2.6031924837913794d0,
     $        -4.2341467275686204d0,    -4.1870557237122554d0,
     $         2.4941551313806336d0 /
c
      data ( Vsto(i,7,07), i = 1, 23 ) /
     $         3.6824003564414376d0,   -12.3243444407520464d0,
     $        -5.1306760462350054d0,    -0.2889865549658316d0,
     $         1.7949298137355805d0,   -11.3882914392503505d0,
     $         1.8874705427058571d0,    -0.9360530015016955d0,
     $       -19.8072094468976054d0,    -0.0488392028607984d0,
     $        -5.4194413530051939d0,    -9.9036047234488027d0,
     $        -5.4196544982606012d0,    -0.0064016728268603d0,
     $         8.2096194314573356d0,     8.1900282947166296d0,
     $        -4.9620123137301375d0,    -4.6545641165701319d0,
     $        -4.6752016097699212d0,     2.8690945109300201d0,
     $        -3.5550553148872037d0,    -3.5148266849467085d0,
     $         2.0929178028001174d0 /
c
      data ( Vsto(i,1,08), i = 1, 23 ) /
     $        -0.0132846722523018d0,     0.0857056719106973d0,
     $        -0.1393327582638500d0,    -0.1393327582638500d0,
     $        -0.1639086635611330d0,     0.0656018446630803d0,
     $         0.1506239913088312d0,     0.0201038272476170d0,
     $         0.0577741433048463d0,    -0.2544426394306027d0,
     $         0.0000000000000000d0,     0.0288870716524231d0,
     $        -0.2544426394306027d0,     0.0000000000000000d0,
     $        -0.0700879993087231d0,    -0.0562556925738282d0,
     $        -0.0945658315920423d0,    -0.1106695165602812d0,
     $        -0.0327605410590456d0,    -0.0608172027685210d0,
     $         0.1807575158690043d0,     0.0890162336328738d0,
     $         0.1553830343605632d0 /
c
      data ( Vsto(i,2,08), i = 1, 23 ) /
     $        -0.0133152286342099d0,     0.0857057402063335d0,
     $        -0.1393323834136078d0,    -0.1393323834136078d0,
     $        -0.1639086635611330d0,     0.0656018446630803d0,
     $         0.1505934349269231d0,     0.0201038955432533d0,
     $         0.0577745856169892d0,    -0.2544419548975021d0,
     $         0.0000000000000000d0,     0.0288872928084946d0,
     $        -0.2544419548975021d0,     0.0000000000000000d0,
     $        -0.0700876008168998d0,    -0.0562556627706582d0,
     $        -0.0945657517644957d0,    -0.1106694287558490d0,
     $        -0.0327603313797195d0,    -0.0608168645653848d0,
     $         0.1807570295727488d0,     0.0890159941503777d0,
     $         0.1553826163298805d0 /
c
      data ( Vsto(i,3,08), i = 1, 23 ) /
     $         0.0070186926381385d0,     0.1152871098732900d0,
     $        -0.1558627590396492d0,    -0.1558627590396492d0,
     $        -0.1639086635611330d0,     0.0656018446630803d0,
     $         0.1709273561992715d0,     0.0496852652102097d0,
     $         0.1034554587118578d0,    -0.2846289149310101d0,
     $         0.0000000000000000d0,     0.0517277293559289d0,
     $        -0.2846289149310101d0,     0.0000000000000000d0,
     $        -0.0647665941536359d0,    -0.0708246616225874d0,
     $        -0.1171252251899884d0,    -0.1374354256122053d0,
     $        -0.0287521783554483d0,    -0.0566919642862174d0,
     $         0.2022020197658412d0,     0.0995768399780357d0,
     $         0.1738171894762058d0 /
c
      data ( Vsto(i,4,08), i = 1, 23 ) /
     $         2.6080465390500116d0,    -2.8089215840372788d0,
     $        -2.9073664149099483d0,    -2.9073664149099483d0,
     $         0.4439479832005839d0,    -2.9275635427580720d0,
     $         2.1640985558494275d0,     0.1186419587207933d0,
     $        -7.9890370235823935d0,    -5.3092897436274082d0,
     $         0.0000000000000000d0,    -3.9945185117911968d0,
     $        -5.3092897436274074d0,     0.0000000000000000d0,
     $        -4.6916911074153811d0,     0.6957385244505347d0,
     $         0.7122499523932470d0,     0.9199411081444370d0,
     $        -2.5531826120491452d0,    -3.9545270821635854d0,
     $         3.7717499992709436d0,     1.8574440875986105d0,
     $         3.2422771297703386d0 /
c
      data ( Vsto(i,5,08), i = 1, 23 ) /
     $         2.6709989956016633d0,    -2.5365451873098919d0,
     $        -2.7274949414009275d0,    -2.7274949414009275d0,
     $         0.4439479832005839d0,    -2.9275635427580720d0,
     $         2.2270510124010792d0,     0.3910183554481802d0,
     $        -7.2975844090873663d0,    -4.9808172935863375d0,
     $         0.0000000000000000d0,    -3.6487922045436831d0,
     $        -4.9808172935863375d0,     0.0000000000000000d0,
     $        -4.3321728507295232d0,     0.6125988706185288d0,
     $         0.6105905297987146d0,     0.7937715709723273d0,
     $        -2.3551275477330673d0,    -3.6522760995009516d0,
     $         3.5384012797571955d0,     1.7425286771145387d0,
     $         3.0416855697022371d0 /
c
      data ( Vsto(i,6,08), i = 1, 23 ) /
     $         2.6165714090621517d0,    -2.8058490319614013d0,
     $        -3.2016963043487547d0,    -3.2016963043487547d0,
     $         0.4439479832005839d0,    -2.9275635427580720d0,
     $         2.1726234258615675d0,     0.1217145107966705d0,
     $        -8.2229418910305245d0,    -5.8467805309002072d0,
     $         0.0000000000000000d0,    -4.1114709455152623d0,
     $        -5.8467805309002063d0,     0.0000000000000000d0,
     $        -4.9647587129563657d0,     0.6492798326561866d0,
     $         0.6164499987625895d0,     0.8111721640908915d0,
     $        -2.6947639657537050d0,    -4.1869620095033175d0,
     $         4.1535865488654746d0,     2.0454841330975184d0,
     $         3.5705120107407278d0 /
c
      data ( Vsto(i,7,08), i = 1, 23 ) /
     $         2.6165714090621517d0,    -2.8058490319614013d0,
     $        -3.2016963043487547d0,    -3.2016963043487547d0,
     $         0.4439479832005839d0,    -2.9275635427580720d0,
     $         2.1726234258615675d0,     0.1217145107966705d0,
     $        -8.2229418910305245d0,    -5.8467805309002072d0,
     $         0.0000000000000000d0,    -4.1114709455152623d0,
     $        -5.8467805309002063d0,     0.0000000000000000d0,
     $        -4.9647587129563657d0,     0.6492798326561866d0,
     $         0.6164499987625895d0,     0.8111721640908915d0,
     $        -2.6947639657537050d0,    -4.1869620095033175d0,
     $         4.1535865488654746d0,     2.0454841330975184d0,
     $         3.5705120107407278d0 /
c
      data ( Vsto(i,1,09), i = 1, 23 ) /
     $        -0.0044025936767897d0,     0.0064016842495370d0,
     $        -0.0000598506819356d0,    -0.0000598506819356d0,
     $        -0.0043346645759298d0,     0.0065305485060570d0,
     $        -0.0000679291008599d0,    -0.0001288642565201d0,
     $         0.0127527111944070d0,    -0.0001084539256851d0,
     $         0.0000000000000000d0,     0.0063763555972035d0,
     $        -0.0001084539256851d0,     0.0000000000000000d0,
     $        -0.0062211334222729d0,    -0.0009608930676955d0,
     $         0.0010173665614553d0,     0.0062121615415795d0,
     $         0.0010595637784598d0,    -0.0009732547694875d0,
     $         0.0000089718806934d0,    -0.0000986707107643d0,
     $        -0.0000441117919678d0 /
c
      data ( Vsto(i,2,09), i = 1, 23 ) /
     $        -0.0042113662388049d0,     0.0065089143024548d0,
     $        -0.0001518935200357d0,    -0.0001518935200357d0,
     $        -0.0043346645759298d0,     0.0065305485060570d0,
     $         0.0001232983371249d0,    -0.0000216342036022d0,
     $         0.0128892667226965d0,    -0.0002752424534064d0,
     $         0.0000000000000000d0,     0.0064446333613483d0,
     $        -0.0002752424534064d0,     0.0000000000000000d0,
     $        -0.0062945998515292d0,    -0.0008958389683507d0,
     $         0.0010619435089981d0,     0.0062718303442189d0,
     $         0.0011462528499926d0,    -0.0009499933166130d0,
     $         0.0000227695073103d0,    -0.0002504138816419d0,
     $        -0.0001119501923850d0 /
c
      data ( Vsto(i,3,09), i = 1, 23 ) /
     $        -0.0043682037718990d0,     0.0065280020053789d0,
     $        -0.0000775314297331d0,    -0.0000775314297331d0,
     $        -0.0043346645759298d0,     0.0065305485060570d0,
     $        -0.0000335391959692d0,    -0.0000025465006781d0,
     $         0.0129903818134789d0,    -0.0001404927671097d0,
     $         0.0000000000000000d0,     0.0064951909067395d0,
     $        -0.0001404927671097d0,     0.0000000000000000d0,
     $        -0.0063383174834104d0,    -0.0009651461934809d0,
     $         0.0010424316640651d0,     0.0063266951807890d0,
     $         0.0010929656440023d0,    -0.0009852886175910d0,
     $         0.0000116223026214d0,    -0.0001278194505214d0,
     $        -0.0000571430464741d0 /
c
      data ( Vsto(i,4,09), i = 1, 23 ) /
     $        57.4872875882487691d0,    77.0859455773993858d0,
     $      -918.5314644901329757d0,  -918.5314644901329757d0,
     $         1.0656707146981812d0,    -6.4006374280332592d0,
     $        56.4216168735505903d0,    83.4865830054326494d0,
     $      -623.2683440773205348d0, -1664.4479221879491888d0,
     $         0.0000000000000000d0,  -311.6341720386598695d0,
     $     -1664.4479221879471424d0,    -0.0000000000002340d0,
     $       234.9827385604177721d0,   806.5255091421720408d0,
     $       289.8487438005718104d0,  -372.6746485942340428d0,
     $       707.7789152937253903d0,   387.1371746060620467d0,
     $       137.6919100338162991d0, -1514.3044244358975448d0,
     $      -676.9859184066339139d0 /
c
      data ( Vsto(i,5,09), i = 1, 23 ) /
     $         4.6628498666439731d0,    -6.5779279042922854d0,
     $        -5.1546821338377740d0,    -5.1546821338377740d0,
     $         1.0656707146981812d0,    -6.4006374280332592d0,
     $         3.5971791519457921d0,    -0.1772904762590258d0,
     $       -17.5187518503681119d0,    -9.3406707324589338d0,
     $         0.0000000000000000d0,    -8.7593759251840559d0,
     $        -9.3406707324589320d0,    -0.0000000000000006d0,
     $         8.1536257011543505d0,     5.6368209359077994d0,
     $         0.5322938039602505d0,    -8.9263352446638820d0,
     $         2.8612635212905420d0,     3.2668653466819166d0,
     $         0.7727095435095318d0,    -8.4980844571983418d0,
     $        -3.7991591506421671d0 /
c
      data ( Vsto(i,6,09), i = 1, 23 ) /
     $         5.7654148506668372d0,    -6.0195891393210070d0,
     $       -10.9286067178931052d0,   -10.9286067178931052d0,
     $         1.0656707146981812d0,    -6.4006374280332592d0,
     $         4.6997441359686558d0,     0.3810482887122524d0,
     $       -21.2890939385637594d0,   -19.8034552404838635d0,
     $         0.0000000000000000d0,   -10.6445469692818797d0,
     $       -19.8034552404838919d0,    -0.0000000000000178d0,
     $         9.5588106467061333d0,    10.6949835234859449d0,
     $         2.3658099034984721d0,   -11.1970569030065512d0,
     $         7.3220775632692465d0,     5.6889091146732378d0,
     $         1.6382462563004181d0,   -18.0170610867551915d0,
     $        -8.0547190181717099d0 /
c
      data ( Vsto(i,7,09), i = 1, 23 ) /
     $         4.8921838892146106d0,     1.9082071456671192d0,
     $        -6.3539615249795638d0,    -6.3539615249795638d0,
     $         1.0656707146981812d0,    -6.4006374280332592d0,
     $         3.8265131745164296d0,     8.3088445737003784d0,
     $        -1.5615455648128689d0,   -11.5138549595412538d0,
     $         0.0000000000000000d0,    -0.7807727824063965d0,
     $       -11.5138549595412574d0,    -0.0000000000000042d0,
     $         0.2849734214419570d0,     5.3613175880270889d0,
     $         2.2196585355562948d0,    -1.2374602250828750d0,
     $         5.1139164370947521d0,     2.4634063836149331d0,
     $         0.9524868036409179d0,   -10.4752340251218410d0,
     $        -4.6830649191712279d0 /
c
      data ( Vsto(i,1,10), i = 1, 23 ) /
     $        -0.1603225676646233d0,     0.0720803894521876d0,
     $        -0.0000326101327411d0,    -0.0000323034448132d0,
     $        -0.1602980608143516d0,     0.0720425888731455d0,
     $        -0.0000245068502717d0,     0.0000378005790421d0,
     $         0.1441515533002747d0,    -0.0000641865890759d0,
     $        -0.0000028829959430d0,     0.0720757766501374d0,
     $        -0.0000642512177485d0,    -0.0000006272716488d0,
     $        -0.0719616208103482d0,    -0.0009284906132488d0,
     $         0.0039209475912713d0,     0.0719626676516278d0,
     $         0.0008819493558406d0,    -0.0039652312831342d0,
     $        -0.0000010468412796d0,     0.0000465412574082d0,
     $         0.0000442836918629d0 /
c
      data ( Vsto(i,2,10), i = 1, 23 ) /
     $        -0.1603268412169528d0,     0.0720815007152292d0,
     $        -0.0000303074122096d0,    -0.0000305917187859d0,
     $        -0.1602980608143516d0,     0.0720425888731455d0,
     $        -0.0000287804026012d0,     0.0000389118420837d0,
     $         0.1441543205747943d0,    -0.0000602133891209d0,
     $        -0.0000027861222252d0,     0.0720771602873972d0,
     $        -0.0000602778104780d0,    -0.0000000988049383d0,
     $        -0.0719630026471349d0,    -0.0009272884881193d0,
     $         0.0039221818298198d0,     0.0719640661454892d0,
     $         0.0008836291958243d0,    -0.0039637287896849d0,
     $        -0.0000010634983543d0,     0.0000436592922949d0,
     $         0.0000415469598651d0 /
c
      data ( Vsto(i,3,10), i = 1, 23 ) /
     $        -0.1603316992242659d0,     0.0720476023489513d0,
     $        -0.0000314226172357d0,    -0.0000280540358937d0,
     $        -0.1602980608143516d0,     0.0720425888731455d0,
     $        -0.0000336384099143d0,     0.0000050134758058d0,
     $         0.1440868910012372d0,    -0.0000588305931668d0,
     $        -0.0000022020579919d0,     0.0720434455006186d0,
     $        -0.0000588693544956d0,    -0.0000032178018731d0,
     $        -0.0719295614495608d0,    -0.0009250597432269d0,
     $         0.0039220671203996d0,     0.0719300812634785d0,
     $         0.0008823965495546d0,    -0.0039626315068848d0,
     $        -0.0000005198139177d0,     0.0000426631936724d0,
     $         0.0000405643864852d0 /
c
      data ( Vsto(i,4,10), i = 1, 23 ) /
     $         2.5861719702090342d0,   -10.7435579182127885d0,
     $        -0.7674327275092008d0,    -0.9017653573021919d0,
     $         1.6883832961896463d0,   -10.5961058513330375d0,
     $         0.8977886740193880d0,    -0.1474520668797501d0,
     $       -21.7307564711630583d0,    -1.6495811768468722d0,
     $        -0.0943764438661382d0,   -10.8653782355815292d0,
     $        -1.6521852054962534d0,     0.0178529290146530d0,
     $        10.8700870788863710d0,    -0.5056834227430378d0,
     $        -1.2059082619903412d0,   -10.8229313810761170d0,
     $        -0.6901617960737980d0,     0.0667175295134341d0,
     $        -0.0471556978102549d0,     1.1958452188168358d0,
     $         1.1391907324769071d0 /
c
      data ( Vsto(i,5,10), i = 1, 23 ) /
     $         2.5861719702090342d0,   -10.7435579182127885d0,
     $        -0.7674327275092008d0,    -0.9017653573021919d0,
     $         1.6883832961896463d0,   -10.5961058513330375d0,
     $         0.8977886740193880d0,    -0.1474520668797501d0,
     $       -21.7307564711630583d0,    -1.6495811768468722d0,
     $        -0.0943764438661382d0,   -10.8653782355815292d0,
     $        -1.6521852054962534d0,     0.0178529290146530d0,
     $        10.8700870788863710d0,    -0.5056834227430378d0,
     $        -1.2059082619903412d0,   -10.8229313810761170d0,
     $        -0.6901617960737980d0,     0.0667175295134341d0,
     $        -0.0471556978102549d0,     1.1958452188168358d0,
     $         1.1391907324769071d0 /
c
      data ( Vsto(i,6,10), i = 1, 23 ) /
     $         2.5861719702090342d0,   -10.7435579182127885d0,
     $        -0.7674327275092008d0,    -0.9017653573021919d0,
     $         1.6883832961896463d0,   -10.5961058513330375d0,
     $         0.8977886740193880d0,    -0.1474520668797501d0,
     $       -21.7307564711630583d0,    -1.6495811768468722d0,
     $        -0.0943764438661382d0,   -10.8653782355815292d0,
     $        -1.6521852054962534d0,     0.0178529290146530d0,
     $        10.8700870788863710d0,    -0.5056834227430378d0,
     $        -1.2059082619903412d0,   -10.8229313810761170d0,
     $        -0.6901617960737980d0,     0.0667175295134341d0,
     $        -0.0471556978102549d0,     1.1958452188168358d0,
     $         1.1391907324769071d0 /
c
      data ( Vsto(i,7,10), i = 1, 23 ) /
     $         2.4936080559939380d0,   -10.1114696227797261d0,
     $        -0.9689430495567630d0,    -0.9214523531890413d0,
     $         1.6883832961896463d0,   -10.5961058513330375d0,
     $         0.8052247598042918d0,     0.4846362285533108d0,
     $       -20.4898662952105290d0,    -1.8694744969539565d0,
     $        -0.0784694883454619d0,   -10.2449331476052645d0,
     $        -1.8711011510330617d0,    -0.0086675400470169d0,
     $        10.2421273090099003d0,    -0.5276108154212855d0,
     $        -1.1848265640355069d0,   -10.2171283024130233d0,
     $        -0.8280014663602161d0,    -0.1046627715213124d0,
     $        -0.0249990065968775d0,     1.3556122817815015d0,
     $         1.2894893355568191d0 /
c
      data ( Vsto(i,1,11), i = 1, 23 ) /
     $         1.1080558366358864d0,     0.0069771228901983d0,
     $        -1.2509151729375725d0,    -1.2509151729375725d0,
     $        -0.1509842680614324d0,     0.0823481091572389d0,
     $         1.2590401046973188d0,    -0.0753709862670406d0,
     $        -2.4878761000947485d0,     0.0000000000000000d0,
     $         0.0000000000000000d0,    -1.2439380500473742d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $        -0.5654206468051082d0,    -0.9528814591658132d0,
     $         0.5654186849584890d0,     0.5654206468051082d0,
     $         0.9528814591658132d0,    -0.5654186849584890d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $         0.0000000000000000d0 /
c
      data ( Vsto(i,2,11), i = 1, 23 ) /
     $         1.1080277444662125d0,     0.0070097726541287d0,
     $        -1.2509151667125307d0,    -1.2509151667125307d0,
     $        -0.1509842680614324d0,     0.0823481091572389d0,
     $         1.2590120125276449d0,    -0.0753383365031102d0,
     $        -2.4878107881168039d0,     0.0000000000000000d0,
     $         0.0000000000000000d0,    -1.2439053940584019d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $        -0.5654058033244332d0,    -0.9528564440242464d0,
     $         0.5654038415293167d0,     0.5654058033244332d0,
     $         0.9528564440242464d0,    -0.5654038415293167d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $         0.0000000000000000d0 /
c
      data ( Vsto(i,3,11), i = 1, 23 ) /
     $         0.7294420481126085d0,    -0.0149166520401544d0,
     $        -1.0897087966948631d0,    -1.0897087966948631d0,
     $        -0.1509842680614324d0,     0.0823481091572389d0,
     $         0.8804263161740409d0,    -0.0972647611973933d0,
     $        -2.2092508974700351d0,     0.0000000000000000d0,
     $         0.0000000000000000d0,    -1.1046254487350176d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $        -0.5020973799116041d0,    -0.8461652164930789d0,
     $         0.5020956377784633d0,     0.5020973799116041d0,
     $         0.8461652164930789d0,    -0.5020956377784633d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $         0.0000000000000000d0 /
c
      data ( Vsto(i,4,11), i = 1, 23 ) /
     $         3.7229069871403095d0,    -2.2193540582132854d0,
     $       -26.7607190184598700d0,   -26.7607190184598700d0,
     $        -0.1414715529559034d0,    -0.2402331244663382d0,
     $         3.8643785400962130d0,    -1.9791209337469471d0,
     $       -57.9601461533463080d0,     0.0000000000000000d0,
     $         0.0000000000000000d0,   -28.9800730766731540d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $       -13.1726267741772141d0,   -22.1993163718888944d0,
     $        13.1725810689603122d0,    13.1726267741772141d0,
     $        22.1993163718888944d0,   -13.1725810689603122d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $         0.0000000000000000d0 /
c
      data ( Vsto(i,5,11), i = 1, 23 ) /
     $         2.8420875391773843d0,    -0.0262356883415823d0,
     $        -3.6884055414749572d0,    -3.6884055414749572d0,
     $        -0.1414715529559034d0,    -0.2402331244663382d0,
     $         2.9835590921332877d0,     0.2139974361247559d0,
     $        -7.4292824596330789d0,     0.0000000000000000d0,
     $         0.0000000000000000d0,    -3.7146412298165394d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $        -1.6884561467766028d0,    -2.8454895765993111d0,
     $         1.6884502883205985d0,     1.6884561467766028d0,
     $         2.8454895765993111d0,    -1.6884502883205985d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $         0.0000000000000000d0 /
c
      data ( Vsto(i,6,11), i = 1, 23 ) /
     $         2.8599868365713910d0,     0.5871324261621723d0,
     $        -7.0437903838874929d0,    -7.0437903838874929d0,
     $        -0.1414715529559034d0,    -0.2402331244663382d0,
     $         3.0014583895272944d0,     0.8273655506285105d0,
     $       -12.9133159154506405d0,     0.0000000000000000d0,
     $         0.0000000000000000d0,    -6.4566579577253203d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $        -2.9348147349599647d0,    -4.9459293056093543d0,
     $         2.9348045519990165d0,     2.9348147349599647d0,
     $         4.9459293056093543d0,    -2.9348045519990165d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $         0.0000000000000000d0 /
c
      data ( Vsto(i,7,11), i = 1, 23 ) /
     $         2.8599868365713910d0,     0.5871324261621723d0,
     $        -7.0437903838874929d0,    -7.0437903838874929d0,
     $        -0.1414715529559034d0,    -0.2402331244663382d0,
     $         3.0014583895272944d0,     0.8273655506285105d0,
     $       -12.9133159154506405d0,     0.0000000000000000d0,
     $         0.0000000000000000d0,    -6.4566579577253203d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $        -2.9348147349599647d0,    -4.9459293056093543d0,
     $         2.9348045519990165d0,     2.9348147349599647d0,
     $         4.9459293056093543d0,    -2.9348045519990165d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $         0.0000000000000000d0 /
c
      data ( Vsto(i,1,12), i = 1, 23 ) /
     $         0.1190857165614208d0,    -1.3913074401648977d0,
     $         0.0000019825435720d0,     0.0000019825435720d0,
     $         0.1190913254027894d0,    -1.3913023741960318d0,
     $        -0.0000056088413686d0,    -0.0000050659688660d0,
     $        -2.7826147316999621d0,     0.0000039623004975d0,
     $         0.0000000000000000d0,    -1.3913073658499810d0,
     $         0.0000039623004975d0,     0.0000000000000000d0,
     $         1.2837687173344470d0,    -0.1125913567155166d0,
     $        -0.5244018049728337d0,    -1.2837693292932140d0,
     $         0.1125945987496047d0,     0.5243996107653066d0,
     $         0.0000006119587669d0,    -0.0000032420340881d0,
     $         0.0000021942075271d0 /
c
      data ( Vsto(i,2,12), i = 1, 23 ) /
     $         0.1190851741003549d0,    -1.3913051514184687d0,
     $         0.0000021786044870d0,     0.0000021786044870d0,
     $         0.1190913254027894d0,    -1.3913023741960318d0,
     $        -0.0000061513024345d0,    -0.0000027772224370d0,
     $        -2.7826101395085616d0,     0.0000043541467459d0,
     $         0.0000000000000000d0,    -1.3913050697542808d0,
     $         0.0000043541467459d0,     0.0000000000000000d0,
     $         1.2837665684514989d0,    -0.1125910105933664d0,
     $        -0.5244010480429373d0,    -1.2837672409290850d0,
     $         0.1125945732439487d0,     0.5243986368422801d0,
     $         0.0000006724775860d0,    -0.0000035626505823d0,
     $         0.0000024112006572d0 /
c
      data ( Vsto(i,3,12), i = 1, 23 ) /
     $         0.1190853053405394d0,    -1.3913040085944992d0,
     $         0.0000022056941165d0,     0.0000022056941165d0,
     $         0.1190913254027894d0,    -1.3913023741960318d0,
     $        -0.0000060200622500d0,    -0.0000016343984674d0,
     $        -2.7826078518297330d0,     0.0000044082879280d0,
     $         0.0000000000000000d0,    -1.3913039259148665d0,
     $         0.0000044082879280d0,     0.0000000000000000d0,
     $         1.2837655088419568d0,    -0.1125908958772839d0,
     $        -0.5244006319068284d0,    -1.2837661896813950d0,
     $         0.1125945028272721d0,     0.5243981907243489d0,
     $         0.0000006808394382d0,    -0.0000036069499881d0,
     $         0.0000024411824795d0 /
c
      data ( Vsto(i,4,12), i = 1, 23 ) /
     $         1.5688946944827453d0,    -9.7303524234442182d0,
     $        -0.0007945346290508d0,    -0.0007945346290508d0,
     $         1.5686656654887874d0,    -9.7323748653250650d0,
     $         0.0002290289939580d0,     0.0020224418808473d0,
     $       -19.4607644125651085d0,    -0.0015879524669229d0,
     $         0.0000000000000000d0,    -9.7303822062825542d0,
     $        -0.0015879524669229d0,     0.0000000000000000d0,
     $         8.9784142443135817d0,    -0.7880908224425556d0,
     $        -3.6670599973039972d0,    -8.9781689924872268d0,
     $         0.7867915277446238d0,     3.6679393594971814d0,
     $        -0.0002452518263559d0,     0.0012992946979318d0,
     $        -0.0008793621931843d0 /
c
      data ( Vsto(i,5,12), i = 1, 23 ) /
     $         1.5688946944827453d0,    -9.7303524234442182d0,
     $        -0.0007945346290508d0,    -0.0007945346290508d0,
     $         1.5686656654887874d0,    -9.7323748653250650d0,
     $         0.0002290289939580d0,     0.0020224418808473d0,
     $       -19.4607644125651085d0,    -0.0015879524669229d0,
     $         0.0000000000000000d0,    -9.7303822062825542d0,
     $        -0.0015879524669229d0,     0.0000000000000000d0,
     $         8.9784142443135817d0,    -0.7880908224425556d0,
     $        -3.6670599973039972d0,    -8.9781689924872268d0,
     $         0.7867915277446238d0,     3.6679393594971814d0,
     $        -0.0002452518263559d0,     0.0012992946979318d0,
     $        -0.0008793621931843d0 /
c
      data ( Vsto(i,6,12), i = 1, 23 ) /
     $         1.5688946944827453d0,    -9.7303524234442182d0,
     $        -0.0007945346290508d0,    -0.0007945346290508d0,
     $         1.5686656654887874d0,    -9.7323748653250650d0,
     $         0.0002290289939580d0,     0.0020224418808473d0,
     $       -19.4607644125651085d0,    -0.0015879524669229d0,
     $         0.0000000000000000d0,    -9.7303822062825542d0,
     $        -0.0015879524669229d0,     0.0000000000000000d0,
     $         8.9784142443135817d0,    -0.7880908224425556d0,
     $        -3.6670599973039972d0,    -8.9781689924872268d0,
     $         0.7867915277446238d0,     3.6679393594971814d0,
     $        -0.0002452518263559d0,     0.0012992946979318d0,
     $        -0.0008793621931843d0 /
c
      data ( Vsto(i,7,12), i = 1, 23 ) /
     $         1.5692673564017143d0,    -9.7301598366365081d0,
     $        -0.0009385687623955d0,    -0.0009385687623955d0,
     $         1.5686656654887874d0,    -9.7323748653250650d0,
     $         0.0006016909129270d0,     0.0022150286885570d0,
     $       -19.4603900370827105d0,    -0.0018758182804483d0,
     $         0.0000000000000000d0,    -9.7301950185413553d0,
     $        -0.0018758182804483d0,     0.0000000000000000d0,
     $         8.9782637546412598d0,    -0.7881934428861790d0,
     $        -3.6669097380773956d0,    -8.9779740432873147d0,
     $         0.7866586105805289d0,     3.6679485120403887d0,
     $        -0.0002897113539445d0,     0.0015348323056501d0,
     $        -0.0010387739629931d0 /
c
      data ( Vsto(i,1,13), i = 1, 23 ) /
     $         0.1064432266261593d0,     0.0938914951418326d0,
     $        -0.2443386871754489d0,    -0.2265352788710433d0,
     $        -0.1514636877154616d0,     0.0819684375551548d0,
     $         0.2579069143416209d0,     0.0119230575866778d0,
     $        -0.0556646658427511d0,    -0.4023837884692765d0,
     $        -0.0106925624295293d0,    -0.0278323329213755d0,
     $        -0.4021831401378207d0,    -0.0251952345318133d0,
     $        -0.0950942860678471d0,    -0.1448333531813377d0,
     $        -0.0790734905057104d0,    -0.1462837414325968d0,
     $        -0.1202427364090679d0,    -0.1039520778765543d0,
     $         0.2413780275004439d0,     0.2650760895904055d0,
     $         0.1830255683822647d0 /
c
      data ( Vsto(i,2,13), i = 1, 23 ) /
     $         0.1064148634797776d0,     0.0939226865930339d0,
     $        -0.2443351736899463d0,    -0.2265384617933744d0,
     $        -0.1514636877154616d0,     0.0819684375551548d0,
     $         0.2578785511952392d0,     0.0119542490378791d0,
     $        -0.0556023948732105d0,    -0.4023833341416838d0,
     $        -0.0106960212807892d0,    -0.0278011974366053d0,
     $        -0.4021829213011835d0,    -0.0251899520450598d0,
     $        -0.0951140631644262d0,    -0.1448128334549440d0,
     $        -0.0790812019882881d0,    -0.1462615490982935d0,
     $        -0.1202655775235715d0,    -0.1039433928183102d0,
     $         0.2413756122627198d0,     0.2650784109785155d0,
     $         0.1830245948065983d0 /
c
      data ( Vsto(i,3,13), i = 1, 23 ) /
     $         0.1434460062018009d0,     0.1340250033016544d0,
     $        -0.2478429438649181d0,    -0.2513616341114366d0,
     $        -0.1514636877154616d0,     0.0819684375551548d0,
     $         0.2949096939172625d0,     0.0520565657464996d0,
     $         0.0090074750644345d0,    -0.4260178796341294d0,
     $        -0.0229493107384817d0,     0.0045037375322173d0,
     $        -0.4265936580410218d0,    -0.0090723512524379d0,
     $        -0.1239392391849274d0,    -0.1381726408255394d0,
     $        -0.0943334582132754d0,    -0.1244374357421338d0,
     $        -0.1512528806558715d0,    -0.0968727119244095d0,
     $         0.2483766749270612d0,     0.2894255214814109d0,
     $         0.1912061701376849d0 /
c
      data ( Vsto(i,4,13), i = 1, 23 ) /
     $         3.9498358822300510d0,    -1.7313102067484123d0,
     $       -34.0077417755887197d0,   -17.2476864264503469d0,
     $         0.2928793411525519d0,    -2.1900713469606590d0,
     $         3.6569565410774993d0,     0.4587611402122466d0,
     $       -29.3350928599378520d0,   -44.1812390624139297d0,
     $         6.5230323952172737d0,   -14.6675464299689118d0,
     $       -43.6374897727081787d0,    -4.4487848881971859d0,
     $        -1.7583573061545887d0,   -17.7318391264061646d0,
     $        -4.0583329005690469d0,   -29.4962651390256276d0,
     $        -5.5616035489393942d0,   -17.7383627402581219d0,
     $        31.2546224451802139d0,    23.2934426753455597d0,
     $        21.7966956408271706d0 /
c
      data ( Vsto(i,5,13), i = 1, 23 ) /
     $         3.0078824245663824d0,    -1.8380887749583588d0,
     $        -3.5430253414732653d0,    -3.1215608883495056d0,
     $         0.2928793411525519d0,    -2.1900713469606590d0,
     $         2.7150030834138308d0,     0.3519825720023003d0,
     $        -7.1146791316186775d0,    -5.6995575223063861d0,
     $        -0.0634437680659865d0,    -3.5573395658093387d0,
     $        -5.6907499377829422d0,    -0.1512281656995942d0,
     $         0.6230356583397096d0,    -4.3604296522804349d0,
     $        -0.3975914714604159d0,    -4.0963617276091986d0,
     $         0.6722160249600538d0,    -2.2143172783941627d0,
     $         3.4733260692694889d0,     3.6882136273203812d0,
     $         2.6119087498545785d0 /
c
      data ( Vsto(i,6,13), i = 1, 23 ) /
     $         3.2461367897408513d0,    -2.1128262474803035d0,
     $        -8.6502248403973425d0,    -3.5490160097799377d0,
     $         0.2928793411525519d0,    -2.1900713469606590d0,
     $         2.9532574485882992d0,     0.0772450994803556d0,
     $       -10.3364647145809414d0,   -10.5441161699602990d0,
     $         2.1293232926904904d0,    -5.1682323572904680d0,
     $       -10.3755380062375213d0,    -1.3291635646043183d0,
     $         0.7225728586331202d0,    -4.9749242493688550d0,
     $        -0.4469461663265267d0,    -8.5351341301839518d0,
     $        -0.1518875997942784d0,    -4.8814766896372044d0,
     $         7.8125612715508321d0,     5.1268118491631327d0,
     $         5.3284228559637308d0 /
c
      data ( Vsto(i,7,13), i = 1, 23 ) /
     $         3.2461367897408513d0,    -2.1128262474803035d0,
     $        -8.6502248403973425d0,    -3.5490160097799377d0,
     $         0.2928793411525519d0,    -2.1900713469606590d0,
     $         2.9532574485882992d0,     0.0772450994803556d0,
     $       -10.3364647145809414d0,   -10.5441161699602990d0,
     $         2.1293232926904904d0,    -5.1682323572904680d0,
     $       -10.3755380062375213d0,    -1.3291635646043183d0,
     $         0.7225728586331202d0,    -4.9749242493688550d0,
     $        -0.4469461663265267d0,    -8.5351341301839518d0,
     $        -0.1518875997942784d0,    -4.8814766896372044d0,
     $         7.8125612715508321d0,     5.1268118491631327d0,
     $         5.3284228559637308d0 /
c
      data ( Vsto(i,1,14), i = 1, 23 ) /
     $         1.0276233732556064d0,     0.0288417031765156d0,
     $        -1.3346968921601476d0,    -1.0498220770511273d0,
     $        -0.1647543656708718d0,     0.0637751329783299d0,
     $         1.1923777389264782d0,    -0.0349334298018143d0,
     $        -1.9896932126668296d0,    -1.2148022403683802d0,
     $         0.1766062193148215d0,    -0.9948466063334148d0,
     $        -1.1451368694977004d0,    -0.2178642457235185d0,
     $         0.1412506960683367d0,     0.7717583211970557d0,
     $         0.6583611222191608d0,     0.6266769815598239d0,
     $        -1.1279053055087502d0,     0.2306724246186485d0,
     $        -0.7679276776281605d0,     0.3561469843116944d0,
     $        -0.8890335468378092d0 /
c
      data ( Vsto(i,2,14), i = 1, 23 ) /
     $         1.0275921462561914d0,     0.0288385262206687d0,
     $        -1.3346923572891907d0,    -1.0498265950041314d0,
     $        -0.1647543656708718d0,     0.0637751329783299d0,
     $         1.1923465119270633d0,    -0.0349366067576612d0,
     $        -1.9896998138583080d0,    -1.2148017835319516d0,
     $         0.1765984156563256d0,    -0.9948499069291538d0,
     $        -1.1451381590093594d0,    -0.2178604477111848d0,
     $         0.1412507625250458d0,     0.7717647259135069d0,
     $         0.6583650026333046d0,     0.6266753573043545d0,
     $        -1.1279043492003433d0,     0.2306706641954260d0,
     $        -0.7679261198294003d0,     0.3561396232868362d0,
     $        -0.8890356668287305d0 /
c
      data ( Vsto(i,3,14), i = 1, 23 ) /
     $         0.7451188434855273d0,    -0.4285187379843213d0,
     $        -0.7969558760808877d0,    -0.4354908515020188d0,
     $        -0.1647543656708718d0,     0.0637751329783299d0,
     $         0.9098732091563990d0,    -0.4922938709626513d0,
     $        -1.9090342663062663d0,    -0.6384836754005060d0,
     $         0.2759572955112609d0,    -0.9545171331531360d0,
     $        -0.5611536880888781d0,    -0.2024637258927033d0,
     $        -0.0136510845953377d0,     0.7315834005843925d0,
     $         0.4128285738334622d0,     0.4473002183842070d0,
     $        -1.0898299545249130d0,    -0.0036566441354828d0,
     $        -0.4336491337888693d0,     0.3582465539405204d0,
     $        -0.4091719296979793d0 /
c
      data ( Vsto(i,4,14), i = 1, 23 ) /
     $         1.5625821717510684d0,    -0.5200998132336327d0,
     $        -2.4072677649952636d0,    -1.5106106631973313d0,
     $        -0.1663564217610594d0,    -0.0971970696048589d0,
     $         1.7289385935121278d0,    -0.4229027436287738d0,
     $        -4.3917394680945980d0,    -2.0172030519301303d0,
     $         0.6596496861769851d0,    -2.1958697340472990d0,
     $        -1.8200658850734357d0,    -0.3918486607122022d0,
     $         0.1111383904982207d0,     1.6350708483363730d0,
     $         1.1254739169187333d0,     1.2241138447410012d0,
     $        -2.5686936616403826d0,     0.2345612929036707d0,
     $        -1.3352522352392220d0,     0.9336228133040094d0,
     $        -1.3600352098224040d0 /
c
      data ( Vsto(i,5,14), i = 1, 23 ) /
     $         1.8092057485082012d0,    -0.1480091299942845d0,
     $        -6.9790797027644027d0,    -1.8916472129667117d0,
     $        -0.1663564217610594d0,    -0.0971970696048589d0,
     $         1.9755621702692605d0,    -0.0508120603894256d0,
     $        -7.7960258127478577d0,    -4.7186849249377065d0,
     $         4.1291148176369790d0,    -3.8980129063739288d0,
     $        -3.6826053039136588d0,    -1.8216893581136433d0,
     $         0.2217168209010191d0,     1.5774041121900897d0,
     $         1.2497186483730038d0,     3.3258810529749279d0,
     $        -6.1768929673385493d0,     1.1113887601742287d0,
     $        -3.5475978738759473d0,     4.5994888551484596d0,
     $        -2.3611074085472326d0 /
c
      data ( Vsto(i,6,14), i = 1, 23 ) /
     $         1.5652508524626469d0,    -0.5253918907959972d0,
     $        -2.7145218047571698d0,    -1.5099827904622476d0,
     $        -0.1663564217610594d0,    -0.0971970696048589d0,
     $         1.7316072742237063d0,    -0.4281948211911383d0,
     $        -4.6577502950701684d0,    -2.1868478566626965d0,
     $         0.9161952197409227d0,    -2.3288751475350842d0,
     $        -1.9284296962510665d0,    -0.4951733686199859d0,
     $         0.1101887684514013d0,     1.6395363135218888d0,
     $         1.1267533874245759d0,     1.3703350278848889d0,
     $        -2.8394881039150235d0,     0.2838784632299614d0,
     $        -1.4805237963362901d0,     1.1999517903931347d0,
     $        -1.4106318506545372d0 /
c
      data ( Vsto(i,7,14), i = 1, 23 ) /
     $         1.5652508524626469d0,    -0.5253918907959972d0,
     $        -2.7145218047571698d0,    -1.5099827904622476d0,
     $        -0.1663564217610594d0,    -0.0971970696048589d0,
     $         1.7316072742237063d0,    -0.4281948211911383d0,
     $        -4.6577502950701684d0,    -2.1868478566626965d0,
     $         0.9161952197409227d0,    -2.3288751475350842d0,
     $        -1.9284296962510665d0,    -0.4951733686199859d0,
     $         0.1101887684514013d0,     1.6395363135218888d0,
     $         1.1267533874245759d0,     1.3703350278848889d0,
     $        -2.8394881039150235d0,     0.2838784632299614d0,
     $        -1.4805237963362901d0,     1.1999517903931347d0,
     $        -1.4106318506545372d0 /
c
      data ( Vsto(i,1,15), i = 1, 23 ) /
     $        -0.0829123065538718d0,     0.0762373088554137d0,
     $        -0.1033263818131334d0,    -0.0526660111616987d0,
     $        -0.1659026744446959d0,     0.0610435035866667d0,
     $         0.0829903678908240d0,     0.0151938052687470d0,
     $         0.1486612219064449d0,    -0.1281074187555144d0,
     $        -0.0798118907752238d0,     0.0743306109532225d0,
     $        -0.1492922756496945d0,    -0.0527774592549115d0,
     $        -0.0235607469783698d0,     0.0344714129358505d0,
     $        -0.0216120819019199d0,     0.1292714362518735d0,
     $         0.0730731016602015d0,     0.0152186318992023d0,
     $        -0.1057106892735037d0,    -0.1075445145960520d0,
     $         0.0063934500027176d0 /
c
      data ( Vsto(i,2,15), i = 1, 23 ) /
     $        -0.0829540795583922d0,     0.0761988891795397d0,
     $        -0.1033022732494669d0,    -0.0526876362648995d0,
     $        -0.1659026744446959d0,     0.0610435035866667d0,
     $         0.0829485948863036d0,     0.0151553855928730d0,
     $         0.1485583477840698d0,    -0.1280981482164316d0,
     $        -0.0798201932443571d0,     0.0742791738920349d0,
     $        -0.1492905935050457d0,    -0.0527481575201041d0,
     $        -0.0235063273071081d0,     0.0344758355768667d0,
     $        -0.0215952925650980d0,     0.1292223082140590d0,
     $         0.0730589315789573d0,     0.0152074870209953d0,
     $        -0.1057159809069509d0,    -0.1075347671558240d0,
     $         0.0063878055441027d0 /
c
      data ( Vsto(i,3,15), i = 1, 23 ) /
     $        -0.0775216760957080d0,     0.0883196081576178d0,
     $        -0.0867667035213205d0,    -0.0671910227185240d0,
     $        -0.1659026744446959d0,     0.0610435035866667d0,
     $         0.0883809983489879d0,     0.0272761045709511d0,
     $         0.1552041340396250d0,    -0.1215397406878491d0,
     $        -0.0852536227634320d0,     0.0776020670198125d0,
     $        -0.1478154046362490d0,    -0.0328154109353660d0,
     $        -0.0218372244045658d0,     0.0427301562192419d0,
     $        -0.0242806811059379d0,     0.1308921657952479d0,
     $         0.0579702511681845d0,     0.0217240287947290d0,
     $        -0.1090549413906822d0,    -0.1007004073874264d0,
     $         0.0025566523112089d0 /
c
      data ( Vsto(i,4,15), i = 1, 23 ) /
     $         3.4029987130148411d0,     0.0956231206923910d0,
     $       -12.8659071084232455d0,    -7.3129962841939111d0,
     $         0.7962873536766882d0,    -4.8090929070402701d0,
     $         2.6067113593381528d0,     4.9047160277326611d0,
     $        -0.8831356455358180d0,   -16.4107333366561186d0,
     $       -10.5374982713029990d0,    -0.4415678227679090d0,
     $       -19.3276561552887856d0,    -1.5657665650079586d0,
     $         6.3718475003760657d0,     3.3223734124178050d0,
     $         0.8602839975380678d0,     7.4580109730486646d0,
     $        10.4104692721702108d0,    -1.5639066733735743d0,
     $       -13.8298584734247303d0,   -13.7328426845880163d0,
     $         0.7036226758355064d0 /
c
      data ( Vsto(i,5,15), i = 1, 23 ) /
     $         3.2568758972780039d0,    -5.2596577284600592d0,
     $        -5.7407011547214335d0,    -1.1151137879977480d0,
     $         0.7962873536766882d0,    -4.8090929070402701d0,
     $         2.4605885436013155d0,    -0.4505648214197890d0,
     $        -9.2934307472744067d0,    -6.0164112074721139d0,
     $        -2.9965088376791478d0,    -4.6467153736372033d0,
     $        -6.5242532380730118d0,    -0.9706371712012571d0,
     $         5.8200022408283481d0,    -0.2295414680541437d0,
     $         2.0724960050957337d0,    -1.5464904875569292d0,
     $         5.3851672716249182d0,    -2.6494612552551740d0,
     $        -4.2735117532714195d0,    -5.1556258035707749d0,
     $         0.5769652501594402d0 /
c
      data ( Vsto(i,6,15), i = 1, 23 ) /
     $         3.5570048399702525d0,    -4.9784740389848645d0,
     $        -9.4226064939995169d0,    -2.0086258477809240d0,
     $         0.7962873536766882d0,    -4.8090929070402701d0,
     $         2.7607174862935642d0,    -0.1693811319445946d0,
     $        -8.0863859306785670d0,    -9.9835664559781669d0,
     $        -5.0599419474086575d0,    -4.0431929653392835d0,
     $       -10.8830109371648156d0,    -1.5705926731892264d0,
     $         6.3507824754438680d0,     0.2140061364005939d0,
     $         2.0784103088046768d0,     0.8211338097919443d0,
     $         8.3289602095812789d0,    -3.0035884003463487d0,
     $        -7.1719162852358123d0,    -8.5429663459818723d0,
     $         0.9251780915416719d0 /
c
      data ( Vsto(i,7,15), i = 1, 23 ) /
     $         3.4555527860633934d0,    -2.2958846297728575d0,
     $        -8.1755802833115805d0,    -1.7057575882194778d0,
     $         0.7962873536766882d0,    -4.8090929070402701d0,
     $         2.6592654323867051d0,     2.5132082772674127d0,
     $        -2.9393592949155627d0,    -8.6397803135860993d0,
     $        -4.3608829247758392d0,    -1.4696796474577813d0,
     $        -9.4065025281624077d0,    -1.3674243991699384d0,
     $         3.6172534332413506d0,     0.4513838885163426d0,
     $         1.0539292230700095d0,     2.5727851379591429d0,
     $         6.9442120136742167d0,    -1.8612008559072553d0,
     $        -6.1900385712004935d0,    -7.3955959021905588d0,
     $         0.8072716328372458d0 /
c
      data ( Vsto(i,1,16), i = 1, 23 ) /
     $         0.2184435193086074d0,    -0.0018935980849475d0,
     $        -0.3768540352331927d0,    -0.0746639613866127d0,
     $        -0.0148619162572367d0,     0.0208965383181911d0,
     $         0.2333054355658441d0,    -0.0227901364031386d0,
     $        -0.4553051927897003d0,     0.0000000000000000d0,
     $         0.3021900738465800d0,    -0.2276525963948502d0,
     $         0.3021900738465800d0,     0.0000000000000000d0,
     $        -0.0705994067893319d0,     0.0058002617610551d0,
     $        -0.0290368840742106d0,     0.3492712988722861d0,
     $        -0.0286952122009769d0,     0.1436520599396313d0,
     $        -0.2786718920829542d0,     0.0228949504399218d0,
     $        -0.1146151758654207d0 /
c
      data ( Vsto(i,2,16), i = 1, 23 ) /
     $         0.2191207486271749d0,    -0.0013335683107215d0,
     $        -0.3769343464894318d0,    -0.0745994741757034d0,
     $        -0.0148619162572367d0,     0.0208965383181911d0,
     $         0.2339826648844116d0,    -0.0222301066289126d0,
     $        -0.4542009572865782d0,     0.0000000000000000d0,
     $         0.3023348723137284d0,    -0.2271004786432891d0,
     $         0.3023348723137284d0,     0.0000000000000000d0,
     $        -0.0700234933330417d0,     0.0057529462247055d0,
     $        -0.0288000161878135d0,     0.3488289148277907d0,
     $        -0.0286588670902503d0,     0.1434701114672507d0,
     $        -0.2788054214947490d0,     0.0229059208655447d0,
     $        -0.1146700952794372d0 /
c
      data ( Vsto(i,3,16), i = 1, 23 ) /
     $         0.1702513319907971d0,    -0.0689891002762943d0,
     $        -0.1855091668248536d0,     0.0840975819421068d0,
     $        -0.0148619162572367d0,     0.0208965383181911d0,
     $         0.1851132482480338d0,    -0.0898856385944855d0,
     $        -0.2393897854353355d0,     0.0000000000000000d0,
     $         0.2696067487669603d0,    -0.1196948927176678d0,
     $         0.2696067487669603d0,     0.0000000000000000d0,
     $         0.0139326521176540d0,    -0.0011446700897822d0,
     $         0.0057303711572794d0,     0.2346917379586611d0,
     $        -0.0192816565354326d0,     0.0965265446013690d0,
     $        -0.2486243900763151d0,     0.0204263266252147d0,
     $        -0.1022569157586484d0 /
c
      data ( Vsto(i,4,16), i = 1, 23 ) /
     $         1.7947283937097629d0,     0.2732966784358442d0,
     $       -17.4700123237213987d0,    -0.7753667297890121d0,
     $        -0.1577608215438913d0,     0.0755743512997327d0,
     $         1.9524892152536542d0,     0.1977223271361115d0,
     $       -17.6987856966387227d0,     0.0000000000000000d0,
     $        16.6946455939323855d0,    -8.8493928483193613d0,
     $        16.6946455939323855d0,     0.0000000000000000d0,
     $        -0.4629960520801447d0,     0.0380385391114325d0,
     $        -0.1904260007620884d0,    15.8583676342633915d0,
     $        -1.3028818167870333d0,     6.5224001665676905d0,
     $       -15.3953715821832482d0,     1.2648432776756009d0,
     $        -6.3319741658056019d0 /
c
      data ( Vsto(i,5,16), i = 1, 23 ) /
     $         1.6080426532890375d0,     0.0259197151242539d0,
     $        -4.0390287486034548d0,    -0.8847707977241959d0,
     $        -0.1577608215438913d0,     0.0755743512997327d0,
     $         1.7658034748329288d0,    -0.0496546361754788d0,
     $        -4.8719601160791433d0,     0.0000000000000000d0,
     $         3.1542579508792592d0,    -2.4359800580395716d0,
     $         3.1542579508792592d0,     0.0000000000000000d0,
     $        -0.7920103170798707d0,     0.0650694866350301d0,
     $        -0.3257465297300774d0,     3.7007856454696761d0,
     $        -0.3040468247747788d0,     1.5220989617046372d0,
     $        -2.9087753283898055d0,     0.2389773381397487d0,
     $        -1.1963524319745598d0 /
c
      data ( Vsto(i,6,16), i = 1, 23 ) /
     $         1.4942709871464572d0,     0.1220182849634764d0,
     $        -5.2443948777158882d0,    -0.9026635431838300d0,
     $        -0.1577608215438913d0,     0.0755743512997327d0,
     $         1.6520318086903485d0,     0.0464439336637438d0,
     $        -5.9030218509727650d0,     0.0000000000000000d0,
     $         4.3417313345320583d0,    -2.9515109254863825d0,
     $         4.3417313345320583d0,     0.0000000000000000d0,
     $        -0.7198909229040326d0,     0.0591443467040841d0,
     $        -0.2960844888798625d0,     4.7237235786522378d0,
     $        -0.3880887175838286d0,     1.9428238874758677d0,
     $        -4.0038326557482051d0,     0.3289443708797445d0,
     $        -1.6467393985960053d0 /
c
      data ( Vsto(i,7,16), i = 1, 23 ) /
     $         1.4942709871464572d0,     0.1220182849634764d0,
     $        -5.2443948777158882d0,    -0.9026635431838300d0,
     $        -0.1577608215438913d0,     0.0755743512997327d0,
     $         1.6520318086903485d0,     0.0464439336637438d0,
     $        -5.9030218509727650d0,     0.0000000000000000d0,
     $         4.3417313345320583d0,    -2.9515109254863825d0,
     $         4.3417313345320583d0,     0.0000000000000000d0,
     $        -0.7198909229040326d0,     0.0591443467040841d0,
     $        -0.2960844888798625d0,     4.7237235786522378d0,
     $        -0.3880887175838286d0,     1.9428238874758677d0,
     $        -4.0038326557482051d0,     0.3289443708797445d0,
     $        -1.6467393985960053d0 /
c
      data ( Vsto(i,1,17), i = 1, 23 ) /
     $        -0.1435095780867530d0,     0.0869079699990470d0,
     $        -0.0018043814697534d0,    -0.0015131024205294d0,
     $        -0.1450254216194835d0,     0.0861208599600648d0,
     $         0.0015158435327305d0,     0.0007871100389823d0,
     $         0.1731921086441180d0,    -0.0031892458346168d0,
     $        -0.0005951381273223d0,     0.0865960543220590d0,
     $        -0.0032429993421878d0,    -0.0004030638120048d0,
     $         0.0789772916395209d0,    -0.0095257233783893d0,
     $         0.0334842435271301d0,    -0.0807543565222816d0,
     $         0.0083965296584018d0,    -0.0310159566051106d0,
     $         0.0017770648827607d0,     0.0011291937199876d0,
     $        -0.0024682869220195d0 /
c
      data ( Vsto(i,2,17), i = 1, 23 ) /
     $        -0.1435242977981840d0,     0.0869323807717155d0,
     $        -0.0017928618373945d0,    -0.0015152656255957d0,
     $        -0.1450254216194835d0,     0.0861208599600648d0,
     $         0.0015011238212995d0,     0.0008115208116508d0,
     $         0.1732401504327696d0,    -0.0031797065176133d0,
     $        -0.0005961010688983d0,     0.0866200752163848d0,
     $        -0.0032338785595837d0,    -0.0003900904989409d0,
     $         0.0789982167959612d0,    -0.0095289201718503d0,
     $         0.0334947288982182d0,    -0.0807724936238170d0,
     $         0.0084033903080198d0,    -0.0310348520138489d0,
     $         0.0017742768278558d0,     0.0011255298638305d0,
     $        -0.0024598768843692d0 /
c
      data ( Vsto(i,3,17), i = 1, 23 ) /
     $        -0.1433285164819963d0,     0.0869352630180619d0,
     $        -0.0023000295424340d0,    -0.0015566855854123d0,
     $        -0.1450254216194835d0,     0.0861208599600648d0,
     $         0.0016969051374872d0,     0.0008144030579971d0,
     $         0.1732251982879337d0,    -0.0037247692989455d0,
     $        -0.0006087527389264d0,     0.0866125991439668d0,
     $        -0.0037693189633766d0,    -0.0008410502589908d0,
     $         0.0789708942530208d0,    -0.0095416408399952d0,
     $         0.0335215506800733d0,    -0.0809668266138729d0,
     $         0.0082138276550689d0,    -0.0306064773732153d0,
     $         0.0019959323608522d0,     0.0013278131849263d0,
     $        -0.0029150733068580d0 /
c
      data ( Vsto(i,4,17), i = 1, 23 ) /
     $         3.6541954434752490d0,   -11.2129523251945145d0,
     $        -2.7621864161954832d0,    -2.0801256278953182d0,
     $         1.7206598731479366d0,   -10.8337367615310818d0,
     $         1.9335355703273127d0,    -0.3792155636634325d0,
     $       -23.2857511021152490d0,    -4.6660088855830670d0,
     $        -0.8159222360165687d0,   -11.6428755510576245d0,
     $        -4.7330810588908392d0,    -0.1243003196137606d0,
     $       -11.8365329642435064d0,     0.5467538767830228d0,
     $        -2.9060427497243086d0,     9.2870896787099664d0,
     $        -2.2045341282031248d0,     6.5377739605128848d0,
     $         2.5494432855335405d0,     1.6577802514201021d0,
     $        -3.6317312107885762d0 /
c
      data ( Vsto(i,5,17), i = 1, 23 ) /
     $         3.6288900744311654d0,   -10.7663068246772795d0,
     $        -1.9583917980349095d0,    -1.9985545071617223d0,
     $         1.7206598731479366d0,   -10.8337367615310818d0,
     $         1.9082302012832288d0,     0.0674299368538017d0,
     $       -22.3532119112284633d0,    -3.7875787735459379d0,
     $        -0.7894559670322056d0,   -11.1766059556142316d0,
     $        -3.8688751359614582d0,    -0.0186961209218809d0,
     $       -11.3659795074454841d0,     0.5245892678465102d0,
     $        -2.7894867861940051d0,     9.1793578274670917d0,
     $        -1.8570014687760110d0,     5.6898931448205303d0,
     $         2.1866216799783929d0,     1.3324122009295007d0,
     $        -2.9004063586265252d0 /
c
      data ( Vsto(i,6,17), i = 1, 23 ) /
     $         3.6543247423611223d0,   -11.2128251227488587d0,
     $        -2.8381239847677939d0,    -2.0804780656290998d0,
     $         1.7206598731479366d0,   -10.8337367615310818d0,
     $         1.9336648692131857d0,    -0.3790883612177777d0,
     $       -23.2862424394021801d0,    -4.7422666351088436d0,
     $        -0.8154604209774997d0,   -11.6431212197010900d0,
     $        -4.8075212205481996d0,    -0.1352520623827931d0,
     $       -11.8366708468119821d0,     0.5466349198929003d0,
     $        -2.9057760771770038d0,     9.2582728643090171d0,
     $        -2.2329488708711254d0,     6.6020279137282154d0,
     $         2.5783979825029650d0,     1.6863139509782248d0,
     $        -3.6962518365512111d0 /
c
      data ( Vsto(i,7,17), i = 1, 23 ) /
     $         3.6098460945460511d0,   -10.4248200046237329d0,
     $        -2.8941316022906971d0,    -1.9364685463897378d0,
     $         1.7206598731479366d0,   -10.8337367615310818d0,
     $         1.8891862213981148d0,     0.4089167569073489d0,
     $       -21.6526698102547144d0,    -4.6664625912751179d0,
     $        -0.7570073964201492d0,   -10.8263349051273572d0,
     $        -4.7210820770824471d0,    -0.1624553328439205d0,
     $       -11.0064162765590883d0,     0.5075591681011994d0,
     $        -2.7001988781624671d0,     8.5110792116074077d0,
     $        -2.1716588115891717d0,     6.3543743833655810d0,
     $         2.4953370649516806d0,     1.6640996434879725d0,
     $        -3.6541755052031140d0 /
c
      data ( Vsto(i,1,18), i = 1, 23 ) /
     $         0.8333315272823050d0,     0.0402136127144674d0,
     $        -0.9817656312908869d0,    -0.9817656312908869d0,
     $        -0.1705247419687312d0,     0.0454222214818871d0,
     $         1.0038562692510362d0,    -0.0052086087674197d0,
     $        -1.3852206767470205d0,    -1.3066488610117089d0,
     $         0.0000000000000000d0,    -0.6926103383735102d0,
     $        -1.3066488610117086d0,    -0.0000000000000003d0,
     $        -0.7109766187956825d0,     0.1506237823095624d0,
     $        -0.6151151242217077d0,     0.6735241422599091d0,
     $         0.1804612192514677d0,    -0.6483370037696399d0,
     $         0.0374524765357735d0,    -0.3310850015610302d0,
     $         1.2634521279913475d0 /
c
      data ( Vsto(i,2,18), i = 1, 23 ) /
     $         0.8333017818855331d0,     0.0401962257200552d0,
     $        -0.9817656190982038d0,    -0.9817656190982038d0,
     $        -0.1705247419687312d0,     0.0454222214818871d0,
     $         1.0038265238542643d0,    -0.0052259957618319d0,
     $        -1.3852554325337612d0,    -1.3066488447842561d0,
     $         0.0000000000000000d0,    -0.6926277162668805d0,
     $        -1.3066488447842557d0,    -0.0000000000000003d0,
     $        -0.7109939874249909d0,     0.1506234059365593d0,
     $        -0.6151146996005410d0,     0.6735415113543448d0,
     $         0.1804615915126805d0,    -0.6483374126998199d0,
     $         0.0374524760706460d0,    -0.3310849974492397d0,
     $         1.2634521123003610d0 /
c
      data ( Vsto(i,3,18), i = 1, 23 ) /
     $         0.6869335593705082d0,    -0.3222806574268928d0,
     $        -0.5015883992729344d0,    -0.5015883992729344d0,
     $        -0.1705247419687312d0,     0.0454222214818871d0,
     $         0.8574583013392394d0,    -0.3677028789087800d0,
     $        -1.3933673045109587d0,    -0.6675726769380848d0,
     $         0.0000000000000000d0,    -0.6966836522554781d0,
     $        -0.6675726769380823d0,    -0.0000000000000008d0,
     $        -0.7058888953389550d0,     0.0695699381358853d0,
     $        -0.3060430071305626d0,     0.6867542595810449d0,
     $         0.0995828521669473d0,    -0.3394602680288012d0,
     $         0.0191346357579102d0,    -0.1691527903028326d0,
     $         0.6455032751593639d0 /
c
      data ( Vsto(i,4,18), i = 1, 23 ) /
     $         1.9007680657017541d0,    -0.7534272701162678d0,
     $        -2.0848725980363310d0,    -2.0848725980363310d0,
     $        -0.1132167218451748d0,    -0.3748642683118518d0,
     $         2.0139847875469288d0,    -0.3785630018044160d0,
     $        -4.6192971153492373d0,    -2.7747930043107640d0,
     $         0.0000000000000000d0,    -2.3096485576745889d0,
     $        -2.7747930043107538d0,     0.0000000000000062d0,
     $        -2.3482151519866163d0,     0.3017957599525246d0,
     $        -1.2861377972117085d0,     2.2686812596101196d0,
     $         0.4012946980703310d0,    -1.3969228403014675d0,
     $         0.0795338923764968d0,    -0.7030904580228556d0,
     $         2.6830606375131762d0 /
c
      data ( Vsto(i,5,18), i = 1, 23 ) /
     $         2.0817484223253890d0,    -0.3190759440778147d0,
     $        -4.5774379130196685d0,    -4.5774379130196685d0,
     $        -0.1132167218451748d0,    -0.3748642683118518d0,
     $         2.1949651441705638d0,     0.0557883242340370d0,
     $        -7.4716690339296790d0,    -6.0921912977689319d0,
     $         0.0000000000000000d0,    -3.7358345169647071d0,
     $        -6.0921912977687054d0,    -0.0000000000000020d0,
     $        -3.8212031993779045d0,     0.6913651411349638d0,
     $        -2.8557973651830220d0,     3.6465827191254907d0,
     $         0.8523037247072167d0,    -3.0349911159218150d0,
     $         0.1746204802524142d0,    -1.5436688658421804d0,
     $         5.8907884811048374d0 /
c
      data ( Vsto(i,6,18), i = 1, 23 ) /
     $         1.9008175063278925d0,    -0.7534836314787547d0,
     $        -2.1119300262221916d0,    -2.1119300262221916d0,
     $        -0.1132167218451748d0,    -0.3748642683118518d0,
     $         2.0140342281730672d0,    -0.3786193631669030d0,
     $        -4.6598030455719517d0,    -2.8108042035156848d0,
     $         0.0000000000000000d0,    -2.3299015227860020d0,
     $        -2.8108042035157448d0,    -0.0000000000000396d0,
     $        -2.3689736858952894d0,     0.3059218600709535d0,
     $        -1.3030624177575625d0,     2.2884076045095720d0,
     $         0.4062932895968666d0,    -1.4148189184334123d0,
     $         0.0805660813857178d0,    -0.7122151496678201d0,
     $         2.7178813361909748d0 /
c
      data ( Vsto(i,7,18), i = 1, 23 ) /
     $         1.9008175063278925d0,    -0.7534836314787547d0,
     $        -2.1119300262221916d0,    -2.1119300262221916d0,
     $        -0.1132167218451748d0,    -0.3748642683118518d0,
     $         2.0140342281730672d0,    -0.3786193631669030d0,
     $        -4.6598030455719517d0,    -2.8108042035156848d0,
     $         0.0000000000000000d0,    -2.3299015227860020d0,
     $        -2.8108042035157448d0,    -0.0000000000000396d0,
     $        -2.3689736858952894d0,     0.3059218600709535d0,
     $        -1.3030624177575625d0,     2.2884076045095720d0,
     $         0.4062932895968666d0,    -1.4148189184334123d0,
     $         0.0805660813857178d0,    -0.7122151496678201d0,
     $         2.7178813361909748d0 /
c
      data ( Vsto(i,1,19), i = 1, 23 ) /
     $         0.1194921864139529d0,     0.0402393033089717d0,
     $        -0.1969610313512728d0,    -0.0974833186875573d0,
     $        -0.0496072434542183d0,     0.0562437314676420d0,
     $         0.1690994298681711d0,    -0.0160044281586703d0,
     $        -0.1203785084830913d0,    -0.2079371632881943d0,
     $         0.0326915845265535d0,    -0.0601892542415456d0,
     $        -0.1729058359002129d0,    -0.1710984706863665d0,
     $        -0.0156841484984896d0,     0.0434433857432549d0,
     $         0.0471382528661240d0,     0.0474596309175457d0,
     $         0.1645472541873961d0,    -0.0410706344311458d0,
     $        -0.0317754824190561d0,    -0.2079906399306510d0,
     $        -0.0060676184349782d0 /
c
      data ( Vsto(i,2,19), i = 1, 23 ) /
     $         0.1197023146744662d0,     0.0405966403681748d0,
     $        -0.1969692852018060d0,    -0.0974803388827065d0,
     $        -0.0496072434542183d0,     0.0562437314676420d0,
     $         0.1693095581286845d0,    -0.0156470910994672d0,
     $        -0.1196661577258075d0,    -0.2079423022613859d0,
     $         0.0326990482590798d0,    -0.0598330788629037d0,
     $        -0.1729072085297479d0,    -0.1711112376006655d0,
     $        -0.0155222962939942d0,     0.0434830275262433d0,
     $         0.0468192420649605d0,     0.0473015594469262d0,
     $         0.1645135131872137d0,    -0.0407573684678672d0,
     $        -0.0317792631529320d0,    -0.2079965407134570d0,
     $        -0.0060618735970933d0 /
c
      data ( Vsto(i,3,19), i = 1, 23 ) /
     $         0.1421782235942132d0,     0.0017159370630171d0,
     $        -0.1361841344032848d0,    -0.0584259676533244d0,
     $        -0.0496072434542183d0,     0.0562437314676420d0,
     $         0.1917854670484314d0,    -0.0545277944046249d0,
     $        -0.1277034767769800d0,    -0.1392311829181875d0,
     $         0.0303464776677942d0,    -0.0638517383884899d0,
     $        -0.1120893722285533d0,    -0.1254133555419118d0,
     $        -0.0194818356954505d0,     0.0234779451648137d0,
     $         0.0480919425879322d0,     0.0445641099151552d0,
     $         0.1167553096538003d0,    -0.0515190064310527d0,
     $        -0.0250822742197047d0,    -0.1402332548186141d0,
     $         0.0034270638431205d0 /
c
      data ( Vsto(i,4,19), i = 1, 23 ) /
     $         1.4621041733876066d0,    -0.5110910825344125d0,
     $        -2.9036089566609276d0,    -0.8675138006431925d0,
     $        -0.1625208239840641d0,    -0.1232848303006993d0,
     $         1.6246249973716707d0,    -0.3878062522337131d0,
     $        -3.4919361583304580d0,    -2.7772084921726390d0,
     $         0.9732321213152689d0,    -1.7459680791652319d0,
     $        -2.0754797091575248d0,    -1.1197955085929294d0,
     $        -0.5307505729398122d0,     0.2872943374623048d0,
     $         1.1892935152889061d0,     1.1966417292617857d0,
     $         2.5519404763478160d0,    -1.5835046401147248d0,
     $        -0.6658911563219734d0,    -2.8392348138101204d0,
     $         0.3942111248258188d0 /
c
      data ( Vsto(i,5,19), i = 1, 23 ) /
     $         1.6466353556194564d0,    -0.0691496533749875d0,
     $        -2.7252299967467346d0,    -1.4317173114468629d0,
     $        -0.1625208239840641d0,    -0.1232848303006993d0,
     $         1.8091561796035205d0,     0.0541351769257118d0,
     $        -2.9889411206565146d0,    -2.9190472166250636d0,
     $         0.3808294957210420d0,    -1.4944705603282573d0,
     $        -2.4613085061087774d0,    -0.8667846803502229d0,
     $        -0.5274434310677488d0,     0.5626171341292161d0,
     $         1.2769683580927229d0,     0.9383631616802849d0,
     $         2.3482572391520704d0,    -1.1226209717680000d0,
     $        -0.4109197306125360d0,    -2.9108743732812865d0,
     $        -0.1543473863247228d0 /
c
      data ( Vsto(i,6,19), i = 1, 23 ) /
     $         1.4853283424124413d0,    -0.5415377078662679d0,
     $        -3.7240165424419147d0,    -0.8679637375898879d0,
     $        -0.1625208239840641d0,    -0.1232848303006993d0,
     $         1.6478491663965054d0,    -0.4182528775655685d0,
     $        -4.0396211344257500d0,    -3.4381025702049528d0,
     $         1.4592476741012654d0,    -2.0198105672128754d0,
     $        -2.4585095629639859d0,    -1.5091814495797677d0,
     $        -0.5446090251935178d0,     0.2839948113006036d0,
     $         1.2166410508877008d0,     1.4834619116508567d0,
     $         3.2599638678966736d0,    -1.9299889291020205d0,
     $        -0.9388528864573390d0,    -3.5439586791972770d0,
     $         0.7133478782143198d0 /
c
      data ( Vsto(i,7,19), i = 1, 23 ) /
     $         1.4853283424124413d0,    -0.5415377078662679d0,
     $        -3.7240165424419147d0,    -0.8679637375898879d0,
     $        -0.1625208239840641d0,    -0.1232848303006993d0,
     $         1.6478491663965054d0,    -0.4182528775655685d0,
     $        -4.0396211344257500d0,    -3.4381025702049528d0,
     $         1.4592476741012654d0,    -2.0198105672128754d0,
     $        -2.4585095629639859d0,    -1.5091814495797677d0,
     $        -0.5446090251935178d0,     0.2839948113006036d0,
     $         1.2166410508877008d0,     1.4834619116508567d0,
     $         3.2599638678966736d0,    -1.9299889291020205d0,
     $        -0.9388528864573390d0,    -3.5439586791972770d0,
     $         0.7133478782143198d0 /
c
      data ( Vsto(i,1,20), i = 1, 23 ) /
     $         0.0979501807188899d0,     0.0137888643078822d0,
     $        -0.1041601814412675d0,    -0.0995575251411137d0,
     $        -0.0239994598867687d0,     0.0317608895953400d0,
     $         0.1219496406056586d0,    -0.0179720252874577d0,
     $        -0.1500731008292729d0,    -0.0996923226102834d0,
     $         0.0032361275943343d0,    -0.0750365504146364d0,
     $        -0.0995338048427275d0,    -0.0067679672236786d0,
     $         0.0627655242265049d0,     0.0555379543323308d0,
     $         0.0259398830212775d0,    -0.0750501844218635d0,
     $         0.0029928511169722d0,     0.0538865765430803d0,
     $         0.0122846601953586d0,    -0.0585308054493029d0,
     $        -0.0798264595643578d0 /
c
      data ( Vsto(i,2,20), i = 1, 23 ) /
     $         0.0983920629737786d0,     0.0142456595125455d0,
     $        -0.1041684962723609d0,    -0.0995622515524412d0,
     $        -0.0239994598867687d0,     0.0317608895953400d0,
     $         0.1223915228605473d0,    -0.0175152300827945d0,
     $        -0.1491708703800176d0,    -0.0996987269628795d0,
     $         0.0032392073604038d0,    -0.0745854351900088d0,
     $        -0.0995401053749743d0,    -0.0067713976623079d0,
     $         0.0623506531206821d0,     0.0553742583729314d0,
     $         0.0260172615937855d0,    -0.0746387332972885d0,
     $         0.0031592599300908d0,     0.0538148055408287d0,
     $         0.0122880801766065d0,    -0.0585335183030222d0,
     $        -0.0798320671346142d0 /
c
      data ( Vsto(i,3,20), i = 1, 23 ) /
     $         0.0908428053948398d0,    -0.0575938583324097d0,
     $        -0.0162823884325814d0,    -0.0093966739489437d0,
     $        -0.0239994598867687d0,     0.0317608895953400d0,
     $         0.1148422652816085d0,    -0.0893547479277496d0,
     $        -0.1375569116057589d0,    -0.0126093643742700d0,
     $         0.0059071737841232d0,    -0.0687784558028794d0,
     $        -0.0124100577655980d0,    -0.0065908585742736d0,
     $         0.0598755553273541d0,     0.0267182077411878d0,
     $        -0.0073835332075456d0,    -0.0664657068811442d0,
     $        -0.0213198728054069d0,     0.0183980079775085d0,
     $         0.0065901515537901d0,    -0.0053983349357809d0,
     $        -0.0110144747699628d0 /
c
      data ( Vsto(i,4,20), i = 1, 23 ) /
     $         1.3593065314215731d0,    -0.5262095408291272d0,
     $        -1.6658524460919975d0,    -1.5594892605072803d0,
     $        -0.1719683002103807d0,    -0.0491853744085913d0,
     $         1.5312748316319538d0,    -0.4770241664205358d0,
     $        -3.8649314674696313d0,    -1.5785974763428965d0,
     $         0.0804451309733458d0,    -1.9324657337348157d0,
     $        -1.5751352680277007d0,    -0.0477942062254688d0,
     $         1.6630705269311774d0,     1.1406028953023788d0,
     $         0.2824261812588521d0,    -1.8843451051937383d0,
     $        -0.2244340518467344d0,     0.9864763456159993d0,
     $         0.2212745782625610d0,    -0.9161688434556443d0,
     $        -1.2689025268748515d0 /
c
      data ( Vsto(i,5,20), i = 1, 23 ) /
     $         1.3593065314215731d0,    -0.5262095408291272d0,
     $        -1.6658524460919975d0,    -1.5594892605072803d0,
     $        -0.1719683002103807d0,    -0.0491853744085913d0,
     $         1.5312748316319538d0,    -0.4770241664205358d0,
     $        -3.8649314674696313d0,    -1.5785974763428965d0,
     $         0.0804451309733458d0,    -1.9324657337348157d0,
     $        -1.5751352680277007d0,    -0.0477942062254688d0,
     $         1.6630705269311774d0,     1.1406028953023788d0,
     $         0.2824261812588521d0,    -1.8843451051937383d0,
     $        -0.2244340518467344d0,     0.9864763456159993d0,
     $         0.2212745782625610d0,    -0.9161688434556443d0,
     $        -1.2689025268748515d0 /
c
      data ( Vsto(i,6,20), i = 1, 23 ) /
     $         1.3593065314215731d0,    -0.5262095408291272d0,
     $        -1.6658524460919975d0,    -1.5594892605072803d0,
     $        -0.1719683002103807d0,    -0.0491853744085913d0,
     $         1.5312748316319538d0,    -0.4770241664205358d0,
     $        -3.8649314674696313d0,    -1.5785974763428965d0,
     $         0.0804451309733458d0,    -1.9324657337348157d0,
     $        -1.5751352680277007d0,    -0.0477942062254688d0,
     $         1.6630705269311774d0,     1.1406028953023788d0,
     $         0.2824261812588521d0,    -1.8843451051937383d0,
     $        -0.2244340518467344d0,     0.9864763456159993d0,
     $         0.2212745782625610d0,    -0.9161688434556443d0,
     $        -1.2689025268748515d0 /
c
      data ( Vsto(i,7,20), i = 1, 23 ) /
     $         1.3593065314215731d0,    -0.5262095408291272d0,
     $        -1.6658524460919975d0,    -1.5594892605072803d0,
     $        -0.1719683002103807d0,    -0.0491853744085913d0,
     $         1.5312748316319538d0,    -0.4770241664205358d0,
     $        -3.8649314674696313d0,    -1.5785974763428965d0,
     $         0.0804451309733458d0,    -1.9324657337348157d0,
     $        -1.5751352680277007d0,    -0.0477942062254688d0,
     $         1.6630705269311774d0,     1.1406028953023788d0,
     $         0.2824261812588521d0,    -1.8843451051937383d0,
     $        -0.2244340518467344d0,     0.9864763456159993d0,
     $         0.2212745782625610d0,    -0.9161688434556443d0,
     $        -1.2689025268748515d0 /
c
      data ( Vsto(i,1,21), i = 1, 23 ) /
     $         0.0001029341152815d0,    -0.0008064589568248d0,
     $        -0.0015910045673224d0,    -0.0015910045673224d0,
     $        -0.0000556211982992d0,     0.0000644108776547d0,
     $         0.0001585553135807d0,    -0.0008708698344795d0,
     $        -0.0047949270482943d0,     0.0000000000000000d0,
     $         0.0000000000000000d0,    -0.0023974635241472d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $        -0.0010125189283349d0,    -0.0020320257178929d0,
     $         0.0007703948670658d0,     0.0010125189283349d0,
     $         0.0020320257178929d0,    -0.0007703948670658d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $         0.0000000000000000d0 /
c
      data ( Vsto(i,2,21), i = 1, 23 ) /
     $         0.0022412407279279d0,    -0.0003818268503661d0,
     $        -0.0020908686458605d0,    -0.0020908686458605d0,
     $        -0.0000556211982992d0,     0.0000644108776547d0,
     $         0.0022968619262271d0,    -0.0004462377280208d0,
     $        -0.0049453909924532d0,     0.0000000000000000d0,
     $         0.0000000000000000d0,    -0.0024726954962266d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $        -0.0010442915893073d0,    -0.0020957903176599d0,
     $         0.0007945697187562d0,     0.0010442915893073d0,
     $         0.0020957903176599d0,    -0.0007945697187562d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $         0.0000000000000000d0 /
c
      data ( Vsto(i,3,21), i = 1, 23 ) /
     $         0.0037916967649417d0,    -0.0010600736694418d0,
     $        -0.0038868696887689d0,    -0.0038868696887689d0,
     $        -0.0000556211982992d0,     0.0000644108776547d0,
     $         0.0038473179632410d0,    -0.0011244845470966d0,
     $        -0.0098938867164214d0,     0.0000000000000000d0,
     $         0.0000000000000000d0,    -0.0049469433582107d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $        -0.0020892387880524d0,    -0.0041928963788593d0,
     $         0.0015896382707999d0,     0.0020892387880524d0,
     $         0.0041928963788593d0,    -0.0015896382707999d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $         0.0000000000000000d0 /
c
      data ( Vsto(i,4,21), i = 1, 23 ) /
     $         1.5380137980722952d0,     0.2197325564899534d0,
     $        -2.7582172710030410d0,    -2.7582172710030410d0,
     $        -0.1744369173677928d0,    -0.0067326966095209d0,
     $         1.7124507154400879d0,     0.2264652530994744d0,
     $        -5.0769694290261755d0,     0.0000000000000000d0,
     $         0.0000000000000000d0,    -2.5384847145130878d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $        -1.0720762993245767d0,    -2.1515514928234838d0,
     $         0.8157102598178780d0,     1.0720762993245767d0,
     $         2.1515514928234838d0,    -0.8157102598178780d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $         0.0000000000000000d0 /
c
      data ( Vsto(i,5,21), i = 1, 23 ) /
     $         1.5406915966074912d0,     0.2176227148396780d0,
     $        -3.2354177180151158d0,    -3.2354177180151158d0,
     $        -0.1744369173677928d0,    -0.0067326966095209d0,
     $         1.7151285139752841d0,     0.2243554114491989d0,
     $        -6.0355900063508754d0,     0.0000000000000000d0,
     $         0.0000000000000000d0,    -3.0177950031754377d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $        -1.2745030453118540d0,    -2.5578020253562128d0,
     $         0.9697306160811389d0,     1.2745030453118540d0,
     $         2.5578020253562128d0,    -0.9697306160811389d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $         0.0000000000000000d0 /
c
      data ( Vsto(i,6,21), i = 1, 23 ) /
     $         1.5380137980722952d0,     0.2197325564899534d0,
     $        -2.7582172710030410d0,    -2.7582172710030410d0,
     $        -0.1744369173677928d0,    -0.0067326966095209d0,
     $         1.7124507154400879d0,     0.2264652530994744d0,
     $        -5.0769694290261755d0,     0.0000000000000000d0,
     $         0.0000000000000000d0,    -2.5384847145130878d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $        -1.0720762993245767d0,    -2.1515514928234838d0,
     $         0.8157102598178780d0,     1.0720762993245767d0,
     $         2.1515514928234838d0,    -0.8157102598178780d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $         0.0000000000000000d0 /
c
      data ( Vsto(i,7,21), i = 1, 23 ) /
     $         1.5380137980722952d0,     0.2197325564899534d0,
     $        -2.7582172710030410d0,    -2.7582172710030410d0,
     $        -0.1744369173677928d0,    -0.0067326966095209d0,
     $         1.7124507154400879d0,     0.2264652530994744d0,
     $        -5.0769694290261755d0,     0.0000000000000000d0,
     $         0.0000000000000000d0,    -2.5384847145130878d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $        -1.0720762993245767d0,    -2.1515514928234838d0,
     $         0.8157102598178780d0,     1.0720762993245767d0,
     $         2.1515514928234838d0,    -0.8157102598178780d0,
     $         0.0000000000000000d0,     0.0000000000000000d0,
     $         0.0000000000000000d0 /
c
      data ( Vsto(i,1,22), i = 1, 23 ) /
     $         0.6674274204740520d0,    -0.0223381617958819d0,
     $        -1.2786270141893119d0,    -0.5223764681671966d0,
     $        -0.1693609348467353d0,    -0.0738638497089299d0,
     $         0.8367883553207873d0,     0.0515256879130480d0,
     $        -0.2814699345202781d0,    -1.5231220854967542d0,
     $        -0.6662860924292929d0,    -0.1407349672601390d0,
     $        -1.5647281067342831d0,    -0.6232679395651007d0,
     $         0.5043542375734255d0,     0.1966148368884274d0,
     $         0.0227753694262649d0,     0.3568143519709855d0,
     $         1.2153467640433231d0,     0.1463137850722303d0,
     $        -0.8611685895444110d0,    -1.4119616009317506d0,
     $        -0.1690891544984952d0 /
c
      data ( Vsto(i,2,22), i = 1, 23 ) /
     $         0.6674149043721694d0,    -0.0224302920355737d0,
     $        -1.2786473296731700d0,    -0.5223561313192893d0,
     $        -0.1693609348467353d0,    -0.0738638497089299d0,
     $         0.8367758392189047d0,     0.0514335576733562d0,
     $        -0.2816332039217365d0,    -1.5231318867847234d0,
     $        -0.6662719253488887d0,    -0.1408166019608681d0,
     $        -1.5647255022378044d0,    -0.6232868364365662d0,
     $         0.5044267912070579d0,     0.1965950390269060d0,
     $         0.0227728289892230d0,     0.3567290462668594d0,
     $         1.2153780575705828d0,     0.1463177417650364d0,
     $        -0.8611558374739172d0,    -1.4119730965974888d0,
     $        -0.1690905707542594d0 /
c
      data ( Vsto(i,3,22), i = 1, 23 ) /
     $         0.5994421869152146d0,    -0.0834892281602357d0,
     $        -1.2413413871530243d0,    -0.4765945649091250d0,
     $        -0.1693609348467353d0,    -0.0738638497089299d0,
     $         0.7688031217619499d0,    -0.0096253784513058d0,
     $        -0.3704605429283306d0,    -1.4633463695517137d0,
     $        -0.6204502773636303d0,    -0.1852302714641652d0,
     $        -1.4897996557136519d0,    -0.6146877395830588d0,
     $         0.5227102825178946d0,     0.1711428281125299d0,
     $         0.0196570745441997d0,     0.2851459167276851d0,
     $         1.1879762278837749d0,     0.1431461715197091d0,
     $        -0.8078561992455797d0,    -1.3591190559963049d0,
     $        -0.1628032460639088d0 /
c
      data ( Vsto(i,4,22), i = 1, 23 ) /
     $         0.9500677774242356d0,    -0.2476538851673701d0,
     $        -2.0440618086971525d0,    -0.6430260027811135d0,
     $        -0.1431883778436483d0,    -0.2315276663847782d0,
     $         1.0932561552678839d0,    -0.0161262187825918d0,
     $        -0.7078350193685701d0,    -2.3383482898463406d0,
     $        -0.8991302761995985d0,    -0.3539175096842837d0,
     $        -2.3172224054183808d0,    -0.9033434561385436d0,
     $         0.8390777790923324d0,     0.2132788395561634d0,
     $         0.0241207259801051d0,     0.3603220940989270d0,
     $         1.9705738749053847d0,     0.2376716420022136d0,
     $        -1.1993998731912594d0,    -2.1838527144615481d0,
     $        -0.2617923679823187d0 /
c
      data ( Vsto(i,5,22), i = 1, 23 ) /
     $         0.9500678314091320d0,    -0.2476538285923872d0,
     $        -2.0443875842466648d0,    -0.6430260687545211d0,
     $        -0.1431883778436483d0,    -0.2315276663847782d0,
     $         1.0932562092527802d0,    -0.0161261622076090d0,
     $        -0.7077802490297591d0,    -2.3386694710580320d0,
     $        -0.8991850474426726d0,    -0.3538901245148783d0,
     $        -2.3174934868365700d0,    -0.9035149263313658d0,
     $         0.8390777839114405d0,     0.2132788721431834d0,
     $         0.0241207299127205d0,     0.3604187030869047d0,
     $         1.9708827770271364d0,     0.2377088184112863d0,
     $        -1.1994964869983453d0,    -2.1841616491703197d0,
     $        -0.2618295483240067d0 /
c
      data ( Vsto(i,6,22), i = 1, 23 ) /
     $         0.9500677774242356d0,    -0.2476538851673701d0,
     $        -2.0440618086971525d0,    -0.6430260027811135d0,
     $        -0.1431883778436483d0,    -0.2315276663847782d0,
     $         1.0932561552678839d0,    -0.0161262187825918d0,
     $        -0.7078350193685701d0,    -2.3383482898463406d0,
     $        -0.8991302761995985d0,    -0.3539175096842837d0,
     $        -2.3172224054183808d0,    -0.9033434561385436d0,
     $         0.8390777790923324d0,     0.2132788395561634d0,
     $         0.0241207259801051d0,     0.3603220940989270d0,
     $         1.9705738749053847d0,     0.2376716420022136d0,
     $        -1.1993998731912594d0,    -2.1838527144615481d0,
     $        -0.2617923679823187d0 /
c
      data ( Vsto(i,7,22), i = 1, 23 ) /
     $         0.9500677774242356d0,    -0.2476538851673701d0,
     $        -2.0440618086971525d0,    -0.6430260027811135d0,
     $        -0.1431883778436483d0,    -0.2315276663847782d0,
     $         1.0932561552678839d0,    -0.0161262187825918d0,
     $        -0.7078350193685701d0,    -2.3383482898463406d0,
     $        -0.8991302761995985d0,    -0.3539175096842837d0,
     $        -2.3172224054183808d0,    -0.9033434561385436d0,
     $         0.8390777790923324d0,     0.2132788395561634d0,
     $         0.0241207259801051d0,     0.3603220940989270d0,
     $         1.9705738749053847d0,     0.2376716420022136d0,
     $        -1.1993998731912594d0,    -2.1838527144615481d0,
     $        -0.2617923679823187d0 /
c
      data ( Vsto(i,1,23), i = 1, 23 ) /
     $        -0.1400963380628697d0,     0.0882119494566957d0,
     $        -0.0000594064403498d0,    -0.0000258144915125d0,
     $        -0.1400761204423469d0,     0.0881768678927327d0,
     $        -0.0000202176205228d0,     0.0000350815639630d0,
     $         0.1764571314545357d0,    -0.0000097901712068d0,
     $        -0.0000846461765895d0,     0.0882285657272679d0,
     $        -0.0000852066984253d0,    -0.0000050257849209d0,
     $        -0.0610503994674324d0,    -0.0293543453047158d0,
     $         0.0564622398858367d0,     0.0611148386935081d0,
     $         0.0293848290826092d0,    -0.0565089212321282d0,
     $        -0.0000644392260757d0,    -0.0000304837778934d0,
     $         0.0000466813462915d0 /
c
      data ( Vsto(i,2,23), i = 1, 23 ) /
     $        -0.1401061156638716d0,     0.0882174899148100d0,
     $        -0.0000474946472516d0,    -0.0000284749890688d0,
     $        -0.1400761204423469d0,     0.0881768678927327d0,
     $        -0.0000299952215247d0,     0.0000406220220773d0,
     $         0.1764537448333459d0,    -0.0000085421251579d0,
     $        -0.0000754774400945d0,     0.0882268724166729d0,
     $        -0.0000759574462155d0,    -0.0000033105995685d0,
     $        -0.0610522562053400d0,    -0.0293552504544527d0,
     $         0.0564642771308116d0,     0.0611096036120457d0,
     $         0.0293823880690648d0,    -0.0565060459790448d0,
     $        -0.0000573474067058d0,    -0.0000271376146121d0,
     $         0.0000417688482332d0 /
c
      data ( Vsto(i,3,23), i = 1, 23 ) /
     $        -0.1400988330867058d0,     0.0882013323571351d0,
     $        -0.0001123344206379d0,     0.0000149038959230d0,
     $        -0.1400761204423469d0,     0.0881768678927327d0,
     $        -0.0000227126443588d0,     0.0000244644644024d0,
     $         0.1765289576395346d0,    -0.0000126990933258d0,
     $        -0.0000966094635031d0,     0.0882644788197673d0,
     $        -0.0000974102013363d0,    -0.0000152555605431d0,
     $        -0.0610733366404435d0,    -0.0293651842600152d0,
     $         0.0564785523677321d0,     0.0611477928076719d0,
     $         0.0294003358568003d0,    -0.0565306609065215d0,
     $        -0.0000744561672284d0,    -0.0000351515967851d0,
     $         0.0000521085387894d0 /
c
      data ( Vsto(i,4,23), i = 1, 23 ) /
     $         2.3447395237642388d0,    -9.0217601473815634d0,
     $        -1.8251226403140173d0,    -0.2047602183434971d0,
     $         1.4356212151470518d0,    -8.8047976746265775d0,
     $         0.9091183086171871d0,    -0.2169624727549858d0,
     $       -16.4366537815955915d0,    -0.2471008026128709d0,
     $        -2.0146788155906084d0,    -8.2183268907977958d0,
     $        -2.0295064297364633d0,    -0.0334373694981405d0,
     $         6.3981186895956359d0,     3.0753866205498515d0,
     $        -5.8923121140602044d0,    -4.8559908187027876d0,
     $        -2.3465177432314692d0,     4.7920479066383539d0,
     $        -1.5421278708928483d0,    -0.7288688773183821d0,
     $         1.1002642074218507d0 /
c
      data ( Vsto(i,5,23), i = 1, 23 ) /
     $         2.3447395237642388d0,    -9.0217601473815634d0,
     $        -1.8251226403140173d0,    -0.2047602183434971d0,
     $         1.4356212151470518d0,    -8.8047976746265775d0,
     $         0.9091183086171871d0,    -0.2169624727549858d0,
     $       -16.4366537815955915d0,    -0.2471008026128709d0,
     $        -2.0146788155906084d0,    -8.2183268907977958d0,
     $        -2.0295064297364633d0,    -0.0334373694981405d0,
     $         6.3981186895956359d0,     3.0753866205498515d0,
     $        -5.8923121140602044d0,    -4.8559908187027876d0,
     $        -2.3465177432314692d0,     4.7920479066383539d0,
     $        -1.5421278708928483d0,    -0.7288688773183821d0,
     $         1.1002642074218507d0 /
c
      data ( Vsto(i,6,23), i = 1, 23 ) /
     $         2.3447395237642388d0,    -9.0217601473815634d0,
     $        -1.8251226403140173d0,    -0.2047602183434971d0,
     $         1.4356212151470518d0,    -8.8047976746265775d0,
     $         0.9091183086171871d0,    -0.2169624727549858d0,
     $       -16.4366537815955915d0,    -0.2471008026128709d0,
     $        -2.0146788155906084d0,    -8.2183268907977958d0,
     $        -2.0295064297364633d0,    -0.0334373694981405d0,
     $         6.3981186895956359d0,     3.0753866205498515d0,
     $        -5.8923121140602044d0,    -4.8559908187027876d0,
     $        -2.3465177432314692d0,     4.7920479066383539d0,
     $        -1.5421278708928483d0,    -0.7288688773183821d0,
     $         1.1002642074218507d0 /
c
      data ( Vsto(i,7,23), i = 1, 23 ) /
     $         2.3762055219989691d0,    -8.7907404364070540d0,
     $        -1.8565204874323846d0,    -0.4884628472900351d0,
     $         1.4356212151470518d0,    -8.8047976746265775d0,
     $         0.9405843068519171d0,     0.0140572382195242d0,
     $       -16.2259826655196306d0,    -0.2769153225072570d0,
     $        -2.3283490863031489d0,    -8.1129913327598153d0,
     $        -2.3445714467478385d0,    -0.0299370973977101d0,
     $         6.4492082721234087d0,     3.0986298678043718d0,
     $        -5.9054211144749083d0,    -4.6721453447974257d0,
     $        -2.2583218779497862d0,     4.6272108821429327d0,
     $        -1.7770629273259833d0,    -0.8403079898545857d0,
     $         1.2782102323319757d0 /
c
      data ( Vsto(i,1,24), i = 1, 23 ) /
     $        -0.0221272254734281d0,     0.0611287189274834d0,
     $        -0.0565287193725717d0,    -0.0084948267499372d0,
     $        -0.0562107576522410d0,     0.0613995806532557d0,
     $         0.0340835321788129d0,    -0.0002708617257723d0,
     $         0.1702913304776013d0,     0.0000000000000000d0,
     $        -0.0650235461225088d0,     0.0851456652388007d0,
     $        -0.0650235461225088d0,     0.0000000000000000d0,
     $         0.0517240614085025d0,     0.0003554424216355d0,
     $         0.0097376453956758d0,    -0.1156236088957778d0,
     $        -0.0007945535293444d0,    -0.0217674651242741d0,
     $         0.0638995474872753d0,     0.0004391111077089d0,
     $         0.0120298197285983d0 /
c
      data ( Vsto(i,2,24), i = 1, 23 ) /
     $        -0.0219826312882999d0,     0.0615617786197545d0,
     $        -0.0565524837881653d0,    -0.0085146027798258d0,
     $        -0.0562107576522410d0,     0.0613995806532557d0,
     $         0.0342281263639411d0,     0.0001621979664988d0,
     $         0.1711614382478485d0,     0.0000000000000000d0,
     $        -0.0650670865679910d0,     0.0855807191239242d0,
     $        -0.0650670865679910d0,     0.0000000000000000d0,
     $         0.0521302010392198d0,     0.0003582333713393d0,
     $         0.0098141058204252d0,    -0.1160725363307539d0,
     $        -0.0007976385124312d0,    -0.0218519808419333d0,
     $         0.0639423352915341d0,     0.0004394051410920d0,
     $         0.0120378750215082d0 /
c
      data ( Vsto(i,3,24), i = 1, 23 ) /
     $        -0.0113854150107900d0,     0.0691229848805820d0,
     $        -0.0615946312070057d0,    -0.0048960653850305d0,
     $        -0.0562107576522410d0,     0.0613995806532557d0,
     $         0.0448253426414510d0,     0.0077234042273263d0,
     $         0.1949445355831392d0,     0.0000000000000000d0,
     $        -0.0664906965920362d0,     0.0974722677915696d0,
     $        -0.0664906965920362d0,     0.0000000000000000d0,
     $         0.0631166913680015d0,     0.0004337314011033d0,
     $         0.0118824381217071d0,    -0.1284580281253038d0,
     $        -0.0008827503361497d0,    -0.0241836911497119d0,
     $         0.0653413367573023d0,     0.0004490189350463d0,
     $         0.0123012530280048d0 /
c
      data ( Vsto(i,4,24), i = 1, 23 ) /
     $         0.7108611521378945d0,    -0.0932105338423220d0,
     $        -1.7412638684838717d0,    -0.5218803339701592d0,
     $        -0.1428745308709019d0,    -0.2331259156298304d0,
     $         0.8537356830087963d0,     0.1399153817875085d0,
     $         1.0329624668290687d0,     0.0000000000000000d0,
     $        -2.2631442024540309d0,     0.5164812334145343d0,
     $        -2.2631442024540309d0,     0.0000000000000000d0,
     $        -0.6044583917758282d0,    -0.0041537757998909d0,
     $        -0.1137961968815145d0,    -1.6195650437163078d0,
     $        -0.0111294841406272d0,    -0.3049016195071868d0,
     $         2.2240234354921360d0,     0.0152832599405181d0,
     $         0.4186978163887013d0 /
c
      data ( Vsto(i,5,24), i = 1, 23 ) /
     $         0.7108611521378945d0,    -0.0932105338423220d0,
     $        -1.7412638684838717d0,    -0.5218803339701592d0,
     $        -0.1428745308709019d0,    -0.2331259156298304d0,
     $         0.8537356830087963d0,     0.1399153817875085d0,
     $         1.0329624668290687d0,     0.0000000000000000d0,
     $        -2.2631442024540309d0,     0.5164812334145343d0,
     $        -2.2631442024540309d0,     0.0000000000000000d0,
     $        -0.6044583917758282d0,    -0.0041537757998909d0,
     $        -0.1137961968815145d0,    -1.6195650437163078d0,
     $        -0.0111294841406272d0,    -0.3049016195071868d0,
     $         2.2240234354921360d0,     0.0152832599405181d0,
     $         0.4186978163887013d0 /
c
      data ( Vsto(i,6,24), i = 1, 23 ) /
     $         0.7108611521378945d0,    -0.0932105338423220d0,
     $        -1.7412638684838717d0,    -0.5218803339701592d0,
     $        -0.1428745308709019d0,    -0.2331259156298304d0,
     $         0.8537356830087963d0,     0.1399153817875085d0,
     $         1.0329624668290687d0,     0.0000000000000000d0,
     $        -2.2631442024540309d0,     0.5164812334145343d0,
     $        -2.2631442024540309d0,     0.0000000000000000d0,
     $        -0.6044583917758282d0,    -0.0041537757998909d0,
     $        -0.1137961968815145d0,    -1.6195650437163078d0,
     $        -0.0111294841406272d0,    -0.3049016195071868d0,
     $         2.2240234354921360d0,     0.0152832599405181d0,
     $         0.4186978163887013d0 /
c
      data ( Vsto(i,7,24), i = 1, 23 ) /
     $         0.7108611521378945d0,    -0.0932105338423220d0,
     $        -1.7412638684838717d0,    -0.5218803339701592d0,
     $        -0.1428745308709019d0,    -0.2331259156298304d0,
     $         0.8537356830087963d0,     0.1399153817875085d0,
     $         1.0329624668290687d0,     0.0000000000000000d0,
     $        -2.2631442024540309d0,     0.5164812334145343d0,
     $        -2.2631442024540309d0,     0.0000000000000000d0,
     $        -0.6044583917758282d0,    -0.0041537757998909d0,
     $        -0.1137961968815145d0,    -1.6195650437163078d0,
     $        -0.0111294841406272d0,    -0.3049016195071868d0,
     $         2.2240234354921360d0,     0.0152832599405181d0,
     $         0.4186978163887013d0 /
c
      data ( Vsto(i,1,25), i = 1, 23 ) /
     $        -0.0717783570732006d0,     0.0738072849105604d0,
     $        -0.0025369627922533d0,    -0.0025369627922533d0,
     $        -0.0743402713239893d0,     0.0734814583397387d0,
     $         0.0025619142507886d0,     0.0003258265708217d0,
     $         0.1460107042868838d0,    -0.0048137652814816d0,
     $         0.0000000000000000d0,     0.0730053521434419d0,
     $        -0.0048137652814816d0,     0.0000000000000000d0,
     $         0.0162739701023241d0,    -0.0541432799799898d0,
     $         0.0462518935369283d0,    -0.0190734465156386d0,
     $         0.0510435433248359d0,    -0.0486449879072339d0,
     $         0.0027994764133144d0,     0.0030997366551540d0,
     $         0.0023930943703056d0 /
c
      data ( Vsto(i,2,25), i = 1, 23 ) /
     $        -0.0717232846279413d0,     0.0739498889428390d0,
     $        -0.0025534542586517d0,    -0.0025534542586517d0,
     $        -0.0743402713239893d0,     0.0734814583397387d0,
     $         0.0026169866960480d0,     0.0004684306031003d0,
     $         0.1462854864616147d0,    -0.0048450570484053d0,
     $         0.0000000000000000d0,     0.0731427432308074d0,
     $        -0.0048450570484053d0,     0.0000000000000000d0,
     $         0.0162981318494848d0,    -0.0542523320715023d0,
     $         0.0463334101356531d0,    -0.0191158061927587d0,
     $         0.0511324456518155d0,    -0.0487420607590960d0,
     $         0.0028176743432739d0,     0.0031198864196868d0,
     $         0.0024086506234429d0 /
c
      data ( Vsto(i,3,25), i = 1, 23 ) /
     $        -0.0716598383547659d0,     0.0737065004092039d0,
     $        -0.0029248603582710d0,    -0.0029248603582710d0,
     $        -0.0743402713239893d0,     0.0734814583397387d0,
     $         0.0026804329692234d0,     0.0002250420694652d0,
     $         0.1455639068011791d0,    -0.0055497823179825d0,
     $         0.0000000000000000d0,     0.0727819534005896d0,
     $        -0.0055497823179825d0,     0.0000000000000000d0,
     $         0.0160058702422259d0,    -0.0542193148325506d0,
     $         0.0459237496141988d0,    -0.0192333821356682d0,
     $         0.0506456333850246d0,    -0.0486827442981893d0,
     $         0.0032275118934423d0,     0.0035736814475260d0,
     $         0.0027589946839905d0 /
c
      data ( Vsto(i,4,25), i = 1, 23 ) /
     $         1.7321948387227875d0,    -2.5837787779151626d0,
     $        -1.5420768390530601d0,    -1.5420768390530601d0,
     $         0.4057762890735949d0,    -2.7373162105626392d0,
     $         1.3264185496491927d0,     0.1535374326474766d0,
     $        -6.1424571092864078d0,    -2.9260168780864269d0,
     $         0.0000000000000000d0,    -3.0712285546432039d0,
     $        -2.9260168780864269d0,     0.0000000000000000d0,
     $        -1.5943291438684499d0,     1.2704503340187920d0,
     $        -2.7234002749083142d0,    -0.1073149447360817d0,
     $        -3.1546057176423448d0,     1.2687729491213013d0,
     $         1.7016440886045316d0,     1.8841553836235527d0,
     $         1.4546273257870128d0 /
c
      data ( Vsto(i,5,25), i = 1, 23 ) /
     $         1.7321948387227875d0,    -2.5837787779151626d0,
     $        -1.5420768390530601d0,    -1.5420768390530601d0,
     $         0.4057762890735949d0,    -2.7373162105626392d0,
     $         1.3264185496491927d0,     0.1535374326474766d0,
     $        -6.1424571092864078d0,    -2.9260168780864269d0,
     $         0.0000000000000000d0,    -3.0712285546432039d0,
     $        -2.9260168780864269d0,     0.0000000000000000d0,
     $        -1.5943291438684499d0,     1.2704503340187920d0,
     $        -2.7234002749083142d0,    -0.1073149447360817d0,
     $        -3.1546057176423448d0,     1.2687729491213013d0,
     $         1.7016440886045316d0,     1.8841553836235527d0,
     $         1.4546273257870128d0 /
c
      data ( Vsto(i,6,25), i = 1, 23 ) /
     $         1.7321948387227875d0,    -2.5837787779151626d0,
     $        -1.5420768390530601d0,    -1.5420768390530601d0,
     $         0.4057762890735949d0,    -2.7373162105626392d0,
     $         1.3264185496491927d0,     0.1535374326474766d0,
     $        -6.1424571092864078d0,    -2.9260168780864269d0,
     $         0.0000000000000000d0,    -3.0712285546432039d0,
     $        -2.9260168780864269d0,     0.0000000000000000d0,
     $        -1.5943291438684499d0,     1.2704503340187920d0,
     $        -2.7234002749083142d0,    -0.1073149447360817d0,
     $        -3.1546057176423448d0,     1.2687729491213013d0,
     $         1.7016440886045316d0,     1.8841553836235527d0,
     $         1.4546273257870128d0 /
c
      data ( Vsto(i,7,25), i = 1, 23 ) /
     $         1.7321948387227875d0,    -2.5837787779151626d0,
     $        -1.5420768390530601d0,    -1.5420768390530601d0,
     $         0.4057762890735949d0,    -2.7373162105626392d0,
     $         1.3264185496491927d0,     0.1535374326474766d0,
     $        -6.1424571092864078d0,    -2.9260168780864269d0,
     $         0.0000000000000000d0,    -3.0712285546432039d0,
     $        -2.9260168780864269d0,     0.0000000000000000d0,
     $        -1.5943291438684499d0,     1.2704503340187920d0,
     $        -2.7234002749083142d0,    -0.1073149447360817d0,
     $        -3.1546057176423448d0,     1.2687729491213013d0,
     $         1.7016440886045316d0,     1.8841553836235527d0,
     $         1.4546273257870128d0 /
c
      data ( Vsto(i,1,26), i = 1, 23 ) /
     $         0.1090765586546087d0,    -0.0004311136411820d0,
     $        -0.2340567937149962d0,    -0.0011810467277338d0,
     $        -0.0003956321281201d0,     0.0005709912965228d0,
     $         0.1094721907827289d0,    -0.0010021049377048d0,
     $         0.0670347155511020d0,    -0.2238427774544957d0,
     $        -0.0702227578200827d0,     0.0335173577755510d0,
     $        -0.1378967621579540d0,    -0.7271487200305289d0,
     $         0.0015120363226648d0,     0.0004617032943188d0,
     $        -0.0002898225996318d0,     0.0207538750071176d0,
     $         0.1665762564921872d0,    -0.1629259055561337d0,
     $        -0.0222659113297824d0,    -0.1670379597865061d0,
     $         0.1632157281557655d0 /
c
      data ( Vsto(i,2,26), i = 1, 23 ) /
     $         0.1111834619760279d0,     0.0000094640138906d0,
     $        -0.2348524615321974d0,    -0.0014702602523608d0,
     $        -0.0003956321281201d0,     0.0005709912965228d0,
     $         0.1115790941041481d0,    -0.0005615272826322d0,
     $         0.0678658657800251d0,    -0.2246535156309088d0,
     $        -0.0707422959534636d0,     0.0339329328900126d0,
     $        -0.1386475821356563d0,    -0.7294585878353858d0,
     $         0.0013496558294728d0,     0.0004648330640681d0,
     $        -0.0003109862239962d0,     0.0212555420649635d0,
     $         0.1672315034310636d0,    -0.1635200800496485d0,
     $        -0.0226051978944363d0,    -0.1676963364951317d0,
     $         0.1638310662736448d0 /
c
      data ( Vsto(i,3,26), i = 1, 23 ) /
     $         0.1825421827783861d0,     0.0095621143026494d0,
     $        -0.2720289362342880d0,    -0.0034631673136332d0,
     $        -0.0003956321281201d0,     0.0005709912965228d0,
     $         0.1829378149065063d0,     0.0089911230061266d0,
     $         0.0959780077483695d0,    -0.2605228325042510d0,
     $        -0.0836737349077887d0,     0.0479890038741847d0,
     $        -0.1623358035176913d0,    -0.8439296808151456d0,
     $        -0.0061248918408946d0,    -0.0008253219734367d0,
     $         0.0001374947104749d0,     0.0339352617363968d0,
     $         0.1956262805056906d0,    -0.1902758918075561d0,
     $        -0.0278103698955021d0,    -0.1948009585322539d0,
     $         0.1901383970970812d0 /
c
      data ( Vsto(i,4,26), i = 1, 23 ) /
     $         0.5854058651862230d0,     0.0434697568367726d0,
     $        -2.1765035100390455d0,    -0.0217732849471265d0,
     $        -0.0347740575118680d0,     0.0430167059717793d0,
     $         0.6201799226980910d0,     0.0004530508649933d0,
     $         0.7076909534601636d0,    -2.0834068983612632d0,
     $        -0.6636291949581464d0,     0.3538454767300818d0,
     $        -1.2929788785909546d0,    -3.5607251602219003d0,
     $        -0.0222711683112915d0,    -0.0018378385497386d0,
     $        -0.0006538481009903d0,     0.2392960444541067d0,
     $         1.5585560559319609d0,    -1.5193845090944982d0,
     $        -0.2170248761428152d0,    -1.5567182173822223d0,
     $         1.5200383571954885d0 /
c
      data ( Vsto(i,5,26), i = 1, 23 ) /
     $         0.5855949543649036d0,     0.0450849847922253d0,
     $        -2.1729817393869260d0,    -0.0238111386969040d0,
     $        -0.0347740575118680d0,     0.0430167059717793d0,
     $         0.6203690118767716d0,     0.0020682788204459d0,
     $         0.7078757348233865d0,    -2.0803977039379218d0,
     $        -0.6645966307137795d0,     0.3539378674116933d0,
     $        -1.2929368871880822d0,    -3.5543427502207239d0,
     $        -0.0219629811753024d0,    -0.0015160381981408d0,
     $        -0.0009387805951884d0,     0.2405527379041063d0,
     $         1.5563734573500920d0,    -1.5170797345973952d0,
     $        -0.2185897567288039d0,    -1.5548574191519513d0,
     $         1.5180185151925836d0 /
c
      data ( Vsto(i,6,26), i = 1, 23 ) /
     $         0.5854058651862230d0,     0.0434697568367726d0,
     $        -2.1765035100390455d0,    -0.0217732849471265d0,
     $        -0.0347740575118680d0,     0.0430167059717793d0,
     $         0.6201799226980910d0,     0.0004530508649933d0,
     $         0.7076909534601636d0,    -2.0834068983612632d0,
     $        -0.6636291949581464d0,     0.3538454767300818d0,
     $        -1.2929788785909546d0,    -3.5607251602219003d0,
     $        -0.0222711683112915d0,    -0.0018378385497386d0,
     $        -0.0006538481009903d0,     0.2392960444541067d0,
     $         1.5585560559319609d0,    -1.5193845090944982d0,
     $        -0.2170248761428152d0,    -1.5567182173822223d0,
     $         1.5200383571954885d0 /
c
      data ( Vsto(i,7,26), i = 1, 23 ) /
     $         0.5854058651862230d0,     0.0434697568367726d0,
     $        -2.1765035100390455d0,    -0.0217732849471265d0,
     $        -0.0347740575118680d0,     0.0430167059717793d0,
     $         0.6201799226980910d0,     0.0004530508649933d0,
     $         0.7076909534601636d0,    -2.0834068983612632d0,
     $        -0.6636291949581464d0,     0.3538454767300818d0,
     $        -1.2929788785909546d0,    -3.5607251602219003d0,
     $        -0.0222711683112915d0,    -0.0018378385497386d0,
     $        -0.0006538481009903d0,     0.2392960444541067d0,
     $         1.5585560559319609d0,    -1.5193845090944982d0,
     $        -0.2170248761428152d0,    -1.5567182173822223d0,
     $         1.5200383571954885d0 /
c
      data ( Vsto(i,1,27), i = 1, 23 ) /
     $         0.0579381018312777d0,    -1.0733260395229163d0,
     $        -0.0097335301257440d0,    -0.0097335301257440d0,
     $         0.0488720516967432d0,    -1.0819489146925105d0,
     $         0.0090660501345345d0,     0.0086228751695942d0,
     $        -2.1488225866732962d0,    -0.0193456799175988d0,
     $         0.0000000000000000d0,    -1.0744112933366481d0,
     $        -0.0193456799175988d0,     0.0000000000000000d0,
     $        -0.9166652769850308d0,     0.5505733768082386d0,
     $         0.1051043186654460d0,     0.9265402421256010d0,
     $        -0.5348034109033698d0,    -0.0998082285693485d0,
     $        -0.0098749651405703d0,    -0.0157699659048688d0,
     $        -0.0052960900960975d0 /
c
      data ( Vsto(i,2,27), i = 1, 23 ) /
     $         0.0579070525084530d0,    -1.0731947542016789d0,
     $        -0.0097301919743617d0,    -0.0097301919743617d0,
     $         0.0488720516967432d0,    -1.0819489146925105d0,
     $         0.0090350008117098d0,     0.0087541604908317d0,
     $        -2.1485592716469295d0,    -0.0193390452426839d0,
     $         0.0000000000000000d0,    -1.0742796358234648d0,
     $        -0.0193390452426839d0,     0.0000000000000000d0,
     $        -0.9165540378376851d0,     0.5505041720150677d0,
     $         0.1050908555972421d0,     0.9264256163211939d0,
     $        -0.5347396144803179d0,    -0.0997965818154979d0,
     $        -0.0098715784835088d0,    -0.0157645575347498d0,
     $        -0.0052942737817442d0 /
c
      data ( Vsto(i,3,27), i = 1, 23 ) /
     $         0.0582747032712362d0,    -1.0710161996148064d0,
     $        -0.0108794566256160d0,    -0.0108794566256160d0,
     $         0.0488720516967432d0,    -1.0819489146925105d0,
     $         0.0094026515744930d0,     0.0109327150777042d0,
     $        -2.1444584402736635d0,    -0.0216232428355976d0,
     $         0.0000000000000000d0,    -1.0722292201368318d0,
     $        -0.0216232428355976d0,     0.0000000000000000d0,
     $        -0.9142122611256864d0,     0.5503995024565979d0,
     $         0.1052079891258708d0,     0.9252498038813364d0,
     $        -0.5327729417090551d0,    -0.0992883914319722d0,
     $        -0.0110375427556499d0,    -0.0176265607475427d0,
     $        -0.0059195976938987d0 /
c
      data ( Vsto(i,4,27), i = 1, 23 ) /
     $         2.1181245604813648d0,   -10.0771473247578633d0,
     $        -0.4967155030724381d0,    -0.4967155030724381d0,
     $         1.6258467240688026d0,   -10.1414615102736008d0,
     $         0.4922778364125623d0,     0.0643141855157371d0,
     $       -20.2650586553974819d0,    -0.9872367998464441d0,
     $         0.0000000000000000d0,   -10.1325293276987409d0,
     $        -0.9872367998464441d0,     0.0000000000000000d0,
     $        -8.4394601250895018d0,     5.5203527939947836d0,
     $         1.1013752894795967d0,     8.9433932525627444d0,
     $        -4.7155896251672393d0,    -0.8311084877729602d0,
     $        -0.5039331274732427d0,    -0.8047631688275441d0,
     $        -0.2702668017066365d0 /
c
      data ( Vsto(i,5,27), i = 1, 23 ) /
     $         2.1181245604813648d0,   -10.0771473247578633d0,
     $        -0.4967155030724381d0,    -0.4967155030724381d0,
     $         1.6258467240688026d0,   -10.1414615102736008d0,
     $         0.4922778364125623d0,     0.0643141855157371d0,
     $       -20.2650586553974819d0,    -0.9872367998464441d0,
     $         0.0000000000000000d0,   -10.1325293276987409d0,
     $        -0.9872367998464441d0,     0.0000000000000000d0,
     $        -8.4394601250895018d0,     5.5203527939947836d0,
     $         1.1013752894795967d0,     8.9433932525627444d0,
     $        -4.7155896251672393d0,    -0.8311084877729602d0,
     $        -0.5039331274732427d0,    -0.8047631688275441d0,
     $        -0.2702668017066365d0 /
c
      data ( Vsto(i,6,27), i = 1, 23 ) /
     $         2.1181245604813648d0,   -10.0771473247578633d0,
     $        -0.4967155030724381d0,    -0.4967155030724381d0,
     $         1.6258467240688026d0,   -10.1414615102736008d0,
     $         0.4922778364125623d0,     0.0643141855157371d0,
     $       -20.2650586553974819d0,    -0.9872367998464441d0,
     $         0.0000000000000000d0,   -10.1325293276987409d0,
     $        -0.9872367998464441d0,     0.0000000000000000d0,
     $        -8.4394601250895018d0,     5.5203527939947836d0,
     $         1.1013752894795967d0,     8.9433932525627444d0,
     $        -4.7155896251672393d0,    -0.8311084877729602d0,
     $        -0.5039331274732427d0,    -0.8047631688275441d0,
     $        -0.2702668017066365d0 /
c
      data ( Vsto(i,7,27), i = 1, 23 ) /
     $         2.0171434147637792d0,    -9.8170021939360943d0,
     $        -0.4480905455779007d0,    -0.4480905455779007d0,
     $         1.6258467240688026d0,   -10.1414615102736008d0,
     $         0.3912966906949765d0,     0.3244593163375065d0,
     $       -19.7339253758803110d0,    -0.8905932541293381d0,
     $         0.0000000000000000d0,    -9.8669626879401555d0,
     $        -0.8905932541293381d0,     0.0000000000000000d0,
     $        -8.2363295525756826d0,     5.3468239513266580d0,
     $         1.0628221423015860d0,     8.6909311678414198d0,
     $        -4.6208414419215798d0,    -0.8190125614062219d0,
     $        -0.4546016152657362d0,    -0.7259825094050781d0,
     $        -0.2438095808953641d0 /
c
      data ( Vsto(i,1,28), i = 1, 23 ) /
     $         1.8604344512642523d0,    -0.0513047335635065d0,
     $        -2.2286071274990342d0,    -2.2033003508114604d0,
     $        -0.1566446540614804d0,    -0.1590139782357681d0,
     $         2.0170791053257329d0,     0.1077092446722617d0,
     $        -3.6854415363170592d0,    -2.6086222216082606d0,
     $         0.0119623903562400d0,    -1.8427207681585296d0,
     $        -2.6083944687499439d0,    -0.0151076942266143d0,
     $         0.3584024984631655d0,    -1.0823990169813491d0,
     $         1.9339925403598823d0,    -0.0318188944451097d0,
     $         2.2375871987794804d0,     0.3820248188306653d0,
     $        -0.3265836040180559d0,    -1.1551881817981311d0,
     $        -2.3160173591905475d0 /
c
      data ( Vsto(i,2,28), i = 1, 23 ) /
     $         1.8604170722419981d0,    -0.0513263113462234d0,
     $        -2.2286074439045778d0,    -2.2033000324568244d0,
     $        -0.1566446540614804d0,    -0.1590139782357681d0,
     $         2.0170617263034787d0,     0.1076876668895447d0,
     $        -3.6854846890899031d0,    -2.6086222221324618d0,
     $         0.0119629035182350d0,    -1.8427423445449516d0,
     $        -2.6083944644496273d0,    -0.0151079066984823d0,
     $         0.3584047517131004d0,    -1.0824182370934070d0,
     $         1.9340014890501749d0,    -0.0318212024285994d0,
     $         2.2376068797746176d0,     0.3820156512190786d0,
     $        -0.3265835492845011d0,    -1.1551886426812106d0,
     $        -2.3160171402692535d0 /
c
      data ( Vsto(i,3,28), i = 1, 23 ) /
     $         1.5747594768487869d0,    -0.6487134921795600d0,
     $        -1.7585521420080508d0,    -1.7273222453602082d0,
     $        -0.1566446540614804d0,    -0.1590139782357681d0,
     $         1.7314041309102675d0,    -0.4896995139437919d0,
     $        -4.1154475282469845d0,    -2.0518166488757084d0,
     $         0.0185644328495996d0,    -2.0577237641234922d0,
     $        -2.0515514349735806d0,    -0.0156736878378535d0,
     $         0.3459564782482755d0,    -1.3947974150906093d0,
     $         1.7763362773590117d0,    -0.0900592226972312d0,
     $         2.3116313972849167d0,     0.0414173479890270d0,
     $        -0.2558972555510443d0,    -0.9168339821943073d0,
     $        -1.8177536253480386d0 /
c
      data ( Vsto(i,4,28), i = 1, 23 ) /
     $         2.4646404137860989d0,    -0.9671444323149095d0,
     $        -8.1502900947507246d0,    -7.3205289434291787d0,
     $        -0.0988540721875122d0,    -0.4397654222335868d0,
     $         2.5634944859736111d0,    -0.5273790100813227d0,
     $       -14.4397501140201499d0,    -9.1080815119297807d0,
     $         0.6411437824189734d0,    -7.2198750570100749d0,
     $        -9.1016512626333164d0,    -0.2466542952005895d0,
     $         1.2758786539137115d0,    -4.3114649678506796d0,
     $         6.7663449836247347d0,    -0.1996084786688841d0,
     $         8.8828846096121250d0,     1.0638516388418890d0,
     $        -1.0762701752448272d0,    -4.5714196417614463d0,
     $        -7.8301966224666240d0 /
c
      data ( Vsto(i,5,28), i = 1, 23 ) /
     $         2.5423422820629540d0,    -0.2047126074800910d0,
     $        -3.1427282159249410d0,    -3.1017959653986953d0,
     $        -0.0988540721875122d0,    -0.4397654222335868d0,
     $         2.6411963542504662d0,     0.2350528147534958d0,
     $        -5.4575984413610961d0,    -3.6755429085499687d0,
     $         0.0211195345644930d0,    -2.7287992206805476d0,
     $        -3.6751819120611731d0,    -0.0188956060695736d0,
     $         0.5187052594743105d0,    -1.6427258055111653d0,
     $         2.7793063007744498d0,    -0.0590050899816150d0,
     $         3.2742115706265373d0,     0.4821338197438593d0,
     $        -0.4597001694926955d0,    -1.6314857651153718d0,
     $        -3.2614401205183090d0 /
c
      data ( Vsto(i,6,28), i = 1, 23 ) /
     $         2.4066190653485044d0,    -0.8683326481182436d0,
     $        -4.9415665599351648d0,    -4.0986917892111920d0,
     $        -0.0988540721875122d0,    -0.4397654222335868d0,
     $         2.5054731375360166d0,    -0.4285672258846567d0,
     $        -9.0434524826664493d0,    -5.3231825599990819d0,
     $         0.6640731199664289d0,    -4.5217262413332246d0,
     $        -5.3167040145026956d0,    -0.2423590970768897d0,
     $         0.7492541597680311d0,    -2.7073412139534665d0,
     $         3.9281399188495238d0,    -0.1511322975868224d0,
     $         5.6388402193481442d0,     0.5244806011466756d0,
     $        -0.5981218621812088d0,    -2.9314990053946772d0,
     $        -4.4526205199961995d0 /
c
      data ( Vsto(i,7,28), i = 1, 23 ) /
     $         2.4066190653485044d0,    -0.8683326481182436d0,
     $        -4.9415665599351648d0,    -4.0986917892111920d0,
     $        -0.0988540721875122d0,    -0.4397654222335868d0,
     $         2.5054731375360166d0,    -0.4285672258846567d0,
     $        -9.0434524826664493d0,    -5.3231825599990819d0,
     $         0.6640731199664289d0,    -4.5217262413332246d0,
     $        -5.3167040145026956d0,    -0.2423590970768897d0,
     $         0.7492541597680311d0,    -2.7073412139534665d0,
     $         3.9281399188495238d0,    -0.1511322975868224d0,
     $         5.6388402193481442d0,     0.5244806011466756d0,
     $        -0.5981218621812088d0,    -2.9314990053946772d0,
     $        -4.4526205199961995d0 /
c
      data ( Vsto(i,1,29), i = 1, 23 ) /
     $         0.1725121204879585d0,    -0.0006872724244006d0,
     $        -0.3996573834342037d0,    -0.0007329589192157d0,
     $        -0.0001334215426462d0,     0.0001755452386128d0,
     $         0.1726455420306047d0,    -0.0008628176630134d0,
     $        -0.0612125958989621d0,    -0.3953689708239812d0,
     $         0.0583879682823024d0,    -0.0306062979494811d0,
     $        -0.0588034616215682d0,    -1.4411723254359634d0,
     $        -0.0014042365374028d0,    -0.0001658113659805d0,
     $        -0.0000824645377212d0,     0.0271805261237506d0,
     $         0.1958415381339265d0,    -0.3474407300544472d0,
     $        -0.0257762895863478d0,    -0.1956757267679460d0,
     $         0.3475231945921684d0 /
c
      data ( Vsto(i,2,29), i = 1, 23 ) /
     $         0.1750576640715180d0,    -0.0002795253672596d0,
     $        -0.4005880762722410d0,    -0.0011196530299515d0,
     $        -0.0001334215426462d0,     0.0001755452386128d0,
     $         0.1751910856141642d0,    -0.0004550706058724d0,
     $        -0.0609172768126396d0,    -0.3963461110805283d0,
     $         0.0581431093476348d0,    -0.0304586384063198d0,
     $        -0.0593212241284474d0,    -1.4443226008453756d0,
     $        -0.0013838819701436d0,    -0.0001351722530275d0,
     $        -0.0001324303996666d0,     0.0268393298506609d0,
     $         0.1962348333057668d0,    -0.3482463922079548d0,
     $        -0.0254554478805173d0,    -0.1960996610527393d0,
     $         0.3483788226076214d0 /
c
      data ( Vsto(i,3,29), i = 1, 23 ) /
     $         0.2616574537416351d0,     0.0057265343198093d0,
     $        -0.4635938820724456d0,    -0.0015491939463747d0,
     $        -0.0001334215426462d0,     0.0001755452386128d0,
     $         0.2617908752842812d0,     0.0055509890811965d0,
     $        -0.0586491976346526d0,    -0.4587218773283411d0,
     $         0.0670373476453899d0,    -0.0293245988173263d0,
     $        -0.0689021591223695d0,    -1.6713549014828823d0,
     $         0.0041259958080923d0,     0.0007503372203429d0,
     $        -0.0002344954820446d0,     0.0250824420932198d0,
     $         0.2261716261543699d0,    -0.4029689970778503d0,
     $        -0.0292084379013120d0,    -0.2269219633747128d0,
     $         0.4032034925598949d0 /
c
      data ( Vsto(i,4,29), i = 1, 23 ) /
     $         0.5349644917169233d0,     0.0259680446588742d0,
     $        -1.7145854437128425d0,     0.0010686285940049d0,
     $        -0.0042658855094049d0,     0.0064291945370666d0,
     $         0.5392303772263282d0,     0.0195388501218076d0,
     $        -0.2006098118091166d0,    -1.6955699732222536d0,
     $         0.2546600713331103d0,    -0.1003049059045590d0,
     $        -0.2481074049162823d0,    -4.1730241587165064d0,
     $         0.0267172335166489d0,     0.0040698488444173d0,
     $        -0.0000891089776380d0,     0.0880346540323618d0,
     $         0.8357534381467338d0,    -1.4903263153103745d0,
     $        -0.1147518875490107d0,    -0.8398232869911512d0,
     $         1.4904154242880125d0 /
c
      data ( Vsto(i,5,29), i = 1, 23 ) /
     $         0.5349644917169233d0,     0.0259680446588742d0,
     $        -1.7145854437128425d0,     0.0010686285940049d0,
     $        -0.0042658855094049d0,     0.0064291945370666d0,
     $         0.5392303772263282d0,     0.0195388501218076d0,
     $        -0.2006098118091166d0,    -1.6955699732222536d0,
     $         0.2546600713331103d0,    -0.1003049059045590d0,
     $        -0.2481074049162823d0,    -4.1730241587165064d0,
     $         0.0267172335166489d0,     0.0040698488444173d0,
     $        -0.0000891089776380d0,     0.0880346540323618d0,
     $         0.8357534381467338d0,    -1.4903263153103745d0,
     $        -0.1147518875490107d0,    -0.8398232869911512d0,
     $         1.4904154242880125d0 /
c
      data ( Vsto(i,6,29), i = 1, 23 ) /
     $         0.5349644917169233d0,     0.0259680446588742d0,
     $        -1.7145854437128425d0,     0.0010686285940049d0,
     $        -0.0042658855094049d0,     0.0064291945370666d0,
     $         0.5392303772263282d0,     0.0195388501218076d0,
     $        -0.2006098118091166d0,    -1.6955699732222536d0,
     $         0.2546600713331103d0,    -0.1003049059045590d0,
     $        -0.2481074049162823d0,    -4.1730241587165064d0,
     $         0.0267172335166489d0,     0.0040698488444173d0,
     $        -0.0000891089776380d0,     0.0880346540323618d0,
     $         0.8357534381467338d0,    -1.4903263153103745d0,
     $        -0.1147518875490107d0,    -0.8398232869911512d0,
     $         1.4904154242880125d0 /
c
      data ( Vsto(i,7,29), i = 1, 23 ) /
     $         0.5349644917169233d0,     0.0259680446588742d0,
     $        -1.7145854437128425d0,     0.0010686285940049d0,
     $        -0.0042658855094049d0,     0.0064291945370666d0,
     $         0.5392303772263282d0,     0.0195388501218076d0,
     $        -0.2006098118091166d0,    -1.6955699732222536d0,
     $         0.2546600713331103d0,    -0.1003049059045590d0,
     $        -0.2481074049162823d0,    -4.1730241587165064d0,
     $         0.0267172335166489d0,     0.0040698488444173d0,
     $        -0.0000891089776380d0,     0.0880346540323618d0,
     $         0.8357534381467338d0,    -1.4903263153103745d0,
     $        -0.1147518875490107d0,    -0.8398232869911512d0,
     $         1.4904154242880125d0 /
c
      data ( Vsto(i,1,30), i = 1, 23 ) /
     $         0.1434180599278931d0,    -0.0038821419051458d0,
     $        -0.2532353350118367d0,    -0.0361999094971677d0,
     $        -0.0061348516655343d0,     0.0091468310211735d0,
     $         0.1495529115934273d0,    -0.0130289729263194d0,
     $        -0.2836525431125200d0,    -0.0852929386313302d0,
     $         0.2040129334526751d0,    -0.1418262715562600d0,
     $         0.1607438531414218d0,    -0.1791953222580226d0,
     $        -0.0358557846756937d0,    -0.0146246282637872d0,
     $         0.0102478115340649d0,     0.2463179854288677d0,
     $        -0.0142648461644042d0,    -0.0716255169141700d0,
     $        -0.2104622007531740d0,     0.0288894744281914d0,
     $         0.0613777053801051d0 /
c
      data ( Vsto(i,2,30), i = 1, 23 ) /
     $         0.1444877424155442d0,    -0.0032557023821985d0,
     $        -0.2533808339795277d0,    -0.0361093804248630d0,
     $        -0.0061348516655343d0,     0.0091468310211735d0,
     $         0.1506225940810784d0,    -0.0124025334033720d0,
     $        -0.2824476569074018d0,    -0.0853285683594971d0,
     $         0.2042406727806982d0,    -0.1412238284537009d0,
     $         0.1609443338483661d0,    -0.1793295750459215d0,
     $        -0.0351940239055917d0,    -0.0144265583244425d0,
     $         0.0100579082037965d0,     0.2458763427938802d0,
     $        -0.0144376650502082d0,    -0.0714992144482544d0,
     $        -0.2106823188882885d0,     0.0288642233746508d0,
     $         0.0614413062444579d0 /
c
      data ( Vsto(i,3,30), i = 1, 23 ) /
     $         0.1545429770418516d0,    -0.0461145165338257d0,
     $        -0.1613529453439737d0,     0.0636349397487147d0,
     $        -0.0061348516655343d0,     0.0091468310211735d0,
     $         0.1606778287073859d0,    -0.0552613475549993d0,
     $        -0.1819434517588668d0,    -0.0439286146698645d0,
     $         0.2160623044563278d0,    -0.0909717258794334d0,
     $         0.1866252569395949d0,    -0.1385485731260863d0,
     $         0.0139228632041835d0,     0.0118457697505413d0,
     $        -0.0039133290248313d0,     0.1974276792601193d0,
     $         0.0023386973004998d0,    -0.0572617613986036d0,
     $        -0.2113505424643028d0,    -0.0141844670510412d0,
     $         0.0611750904234349d0 /
c
      data ( Vsto(i,4,30), i = 1, 23 ) /
     $         2.0711430393644066d0,     0.2423275274283194d0,
     $       -25.4886077784986824d0,    -0.7675313841488568d0,
     $        -0.1582264259112993d0,     0.0749759433313025d0,
     $         2.2293694652757061d0,     0.1673515840970168d0,
     $       -24.4287901360591313d0,    -8.2393312716432661d0,
     $        23.3895030291329071d0,   -12.2143950680295656d0,
     $        18.9724414087381206d0,    -7.0870159201008702d0,
     $        -0.4590933421631228d0,    -0.2250702043179111d0,
     $         0.1308075934499286d0,    24.2051128483158884d0,
     $        -1.6015589655873199d0,    -7.0406133246380271d0,
     $       -23.7460195061527664d0,     1.8266291699052311d0,
     $         6.9098057311880980d0 /
c
      data ( Vsto(i,5,30), i = 1, 23 ) /
     $         1.6317230842212835d0,     0.0355358775333011d0,
     $        -4.3268849278073684d0,    -0.8337584310104238d0,
     $        -0.1582264259112993d0,     0.0749759433313025d0,
     $         1.7899495101325829d0,    -0.0394400657980014d0,
     $        -4.8565429206235402d0,    -1.4832111920659772d0,
     $         3.2721779704305582d0,    -2.4282714603117701d0,
     $         2.5375002850168307d0,    -1.1287089220853550d0,
     $        -0.7099267316283605d0,    -0.3041161239745774d0,
     $         0.2027460054081029d0,     4.1141975663999064d0,
     $        -0.2704101207748102d0,    -1.1966895591669842d0,
     $        -3.4042708347715460d0,     0.5745262447493876d0,
     $         0.9939435537588814d0 /
c
      data ( Vsto(i,6,30), i = 1, 23 ) /
     $         1.5352141015396992d0,    -0.0087778428842308d0,
     $        -5.2868737569400208d0,    -0.7529912594123944d0,
     $        -0.1582264259112993d0,     0.0749759433313025d0,
     $         1.6934405274509985d0,    -0.0837537862155334d0,
     $        -5.7746160654701608d0,    -1.7803552180044924d0,
     $         4.2619877984742303d0,    -2.8873080327350804d0,
     $         3.3585860265022740d0,    -1.4072245426928252d0,
     $        -0.6790683526578432d0,    -0.2853585529493495d0,
     $         0.1939924435974676d0,     5.0754181532370435d0,
     $        -0.3167364505093733d0,    -1.4760980298797786d0,
     $        -4.3963498005792001d0,     0.6020950034587227d0,
     $         1.2821055862823110d0 /
c
      data ( Vsto(i,7,30), i = 1, 23 ) /
     $         1.5352141015396992d0,    -0.0087778428842308d0,
     $        -5.2868737569400208d0,    -0.7529912594123944d0,
     $        -0.1582264259112993d0,     0.0749759433313025d0,
     $         1.6934405274509985d0,    -0.0837537862155334d0,
     $        -5.7746160654701608d0,    -1.7803552180044924d0,
     $         4.2619877984742303d0,    -2.8873080327350804d0,
     $         3.3585860265022740d0,    -1.4072245426928252d0,
     $        -0.6790683526578432d0,    -0.2853585529493495d0,
     $         0.1939924435974676d0,     5.0754181532370435d0,
     $        -0.3167364505093733d0,    -1.4760980298797786d0,
     $        -4.3963498005792001d0,     0.6020950034587227d0,
     $         1.2821055862823110d0 /
c
      data diflim / 1.0d-12, 1.0d-12,
     $     1.0d-12, 1.0d-10, 1.0d-11, 1.0d-11, 1.0d-11 /
c
      data derlim / 1.0d-11, 1.0d-11,
     $     1.0d-11, 1.0d-09, 1.0d-10, 1.0d-10, 1.0d-10 /
c
      data ok_lim / 1.0d-09, 1.0d-09,
     $     1.0d-09, 1.0d-07, 1.0d-08, 1.0d-08, 1.0d-08 /
c
      data fdif / 7 * 0.d0 /, fder / 7 * 0.d0 /
c
      data iouse / 3, 4, 1, 5, 7, 2, 6 /
c
      data ctype /
     $     'original Muchnick & Russek',
     $     '"modMR" surface (from BMP)',
     $     'fitted "BMP" He-H2 surface',
     $     'BMP: ifixclose=0 (compact)',
     $     'BMP: ifixclose=1 (compact)',
     $     'BMP: ifixclose=2 (compact)',
     $     'BMP: ifixclose=3 (compact)' /
c
      data cvout /
     $     '       V: (total potential)',
     $     '    dVdr:  [r= 0.000000000]',
     $     '   dVdRa: [Ra= 0.000000000]',
     $     '   dVdRb: [Rb= 0.000000000]',
     $     '     Vhh: (Schwenke H - H) ',
     $     '  dVhhdr:  [r= 0.000000000]',
     $     '    Vint: (Vint = V - Vhh) ',
     $     ' dVintdr: (= dVdr - dVhhdr)',
     $     '   dVda2: [a2= 0.000000000]',
     $     '   dVdy3: [y3= 0.000000000]',
     $     '   dVdz3: [z3= 0.000000000]',
     $     '  dVdrRg:  [r= 0.000000000]',
     $     '   dVdRR: [RR= 0.000000000]',
     $     '    dVdg:  [g= 0.000000000]' /
c
      data cx / 'x1', 'y1', 'z1', 'x2', 'y2', 'z2', 'x3', 'y3', 'z3' /
c
c__For how many cases should full output be performed?:
c
      noutmax = min( n_full_out , ntest * 7 )
      numout = 0
c
c__Derivatives should be computed, so they can be checked:
c
      ideriv = 1
c
c__Check all the geometries:
c
      do k = 1, ntest
c
c__Get rotation and shift for cartesian coordinates:
c
         ang1 = f_rot(1,k)
         ang2 = f_rot(2,k)
         ang3 = f_rot(3,k)
         cos1 = cos(ang1)
         sin1 = sin(ang1)
         cos2 = cos(ang2)
         sin2 = sin(ang2)
         cos3 = cos(ang3)
         sin3 = sin(ang3)
         dcc1 = f_rot(1,ntestp1-k) - 3.d0
         dcc2 = f_rot(2,ntestp1-k) - 3.d0
         dcc3 = f_rot(3,ntestp1-k) - 3.d0
c
c__Geometry size is not reduced for the first 3 surface variants:
c
         f = 1.d0
c
c__Check all surface variants for each geometry:
c
         do n = 1, 7
c
c__Geometry size is reduced for 4th thru 7th surface variants:
c
            if ( n .eq. 4 ) f = f_red(k)
c
c__Get the minimal cartesian coordinates of this geometry:
c
            a2 = f * cc3(1,k)
            y3 = f * cc3(2,k)
            z3 = f * cc3(3,k)
c
c__Get the angular coordinates of this geometry:
c
            rhh = 2.d0 * a2
            rh2he = sqrt( z3**2 + y3**2 )
            if ( max( y3 , z3 ) .gt. 0.d0 ) then
               gammarad = atan2( y3, z3 )
            else
               gammarad = 0.d0
            endif
c
c__Get the full (rotated and shifted) cartesian coordinates of this geometry:
c
            do i = 1, 3
               cc(1,i) = 0.d0
               cc(2,i) = 0.d0
               cc(3,i) = 0.d0
            enddo
            cc(3,1) = -a2
            cc(3,2) = a2
            cc(2,3) = y3
            cc(3,3) = z3
            do i = 1, 3
               tmp = cc(1,i)
               cc(1,i) = cos1 * cc(1,i) - sin1 * cc(2,i)
               cc(2,i) = cos1 * cc(2,i) + sin1 * tmp
               tmp = cc(1,i)
               cc(1,i) = cos2 * cc(1,i) - sin2 * cc(3,i)
               cc(3,i) = cos2 * cc(3,i) + sin2 * tmp
               tmp = cc(2,i)
               cc(2,i) = cos3 * cc(2,i) - sin3 * cc(3,i)
               cc(3,i) = cos3 * cc(3,i) + sin3 * tmp
               ccd(1,i) = cc(1,i) + dcc1
               ccd(2,i) = cc(2,i) + dcc2
               ccd(3,i) = cc(3,i) + dcc3
            enddo
c
c__The first 2 surface variants test the Muchnick and Russek routines:
c
            if ( n .le. 2 ) then
c
               nD = 2 * ( n - 1 )
c
               call heh2MR_cc3( a2,y3,z3,ideriv,nD, Vtest(1),
     $              Vtest(2),Vtest(3),Vtest(4), Vtest(5),Vtest(6),
     $              Vtest(7),Vtest(8), r,Ra,Rb,
     $              Vtest(9),Vtest(10),Vtest(11) )
c
               call heh2MR_nD( r,Ra,Rb,ideriv,nD, Valt1(1),
     $              Valt1(2),Valt1(3),Valt1(4), Valt1(5),Valt1(6),
     $              Valt1(7),Valt1(8) )
c
               call heh2MR_ang( rhh,rh2he,gammarad,ideriv,nD, Valt2(1),
     $              Valt2(2),Valt2(3),Valt2(4), Valt2(5),Valt2(6),
     $              Valt2(7),Valt2(8), Ra,Rb,
     $              Vtest(12),Vtest(13),Vtest(14) )
c
               call heh2MR_cc( cc(1,1),cc(1,2),cc(1,3),ideriv,nD,
     $              Valt3(1), Valt3(2),Valt3(3),Valt3(4),
     $              Valt3(5),Valt3(6), Valt3(7),Valt3(8), r,Ra,Rb,
     $              Vtest(15),Vtest(18),Vtest(21) )
c
               call heh2MR_cc( ccd(1,1),ccd(1,2),ccd(1,3),ideriv,nD,
     $              Valt4(1), Valt4(2),Valt4(3),Valt4(4),
     $              Valt4(5),Valt4(6), Valt4(7),Valt4(8), r,Ra,Rb,
     $              Valt4(15),Valt4(18),Valt4(21) )
c
c__The other 5 surface variants test the BMP surface:
c
            else
c
               ifixclose = max( 0 , n - 4 )
               call heh2bmp_fix_close( ifixclose )
c
               call heh2bmp_cc3( a2,y3,z3,ideriv, Vtest(1),
     $              Vtest(2),Vtest(3),Vtest(4), Vtest(5),Vtest(6),
     $              Vtest(7),Vtest(8), r,Ra,Rb,
     $              Vtest(9),Vtest(10),Vtest(11) )
c
               call heh2bmp( r,Ra,Rb,ideriv, Valt1(1),
     $              Valt1(2),Valt1(3),Valt1(4), Valt1(5),Valt1(6),
     $              Valt1(7),Valt1(8) )
c
               call heh2bmp_ang( rhh,rh2he,gammarad,ideriv, Valt2(1),
     $              Valt2(2),Valt2(3),Valt2(4), Valt2(5),Valt2(6),
     $              Valt2(7),Valt2(8) ,Ra,Rb,
     $              Vtest(12),Vtest(13),Vtest(14) )
c
               call heh2bmp_cc( cc(1,1),cc(1,2),cc(1,3),ideriv,
     $              Valt3(1), Valt3(2),Valt3(3),Valt3(4),
     $              Valt3(5),Valt3(6), Valt3(7),Valt3(8), r,Ra,Rb,
     $              Vtest(15),Vtest(18),Vtest(21) )
c
               call heh2bmp_cc( ccd(1,1),ccd(1,2),ccd(1,3),ideriv,
     $              Valt4(1), Valt4(2),Valt4(3),Valt4(4),
     $              Valt4(5),Valt4(6), Valt4(7),Valt4(8), r,Ra,Rb,
     $              Valt4(15),Valt4(18),Valt4(21) )
c
            endif
c
c__Check the returned energy values against the stored values:
c
            fdif(n) = max( fdif(n) , abs( Vtest(1) - Vsto(1,n,k) ) ,
     $           abs( Vtest(5) - Vsto(5,n,k) ) ,
     $           abs( Vtest(7) - Vsto(7,n,k) ) ,
     $           abs( Valt1(1) - Vsto(1,n,k) ) ,
     $           abs( Valt1(5) - Vsto(5,n,k) ) ,
     $           abs( Valt1(7) - Vsto(7,n,k) ) ,
     $           abs( Valt2(1) - Vsto(1,n,k) ) ,
     $           abs( Valt2(5) - Vsto(5,n,k) ) ,
     $           abs( Valt2(7) - Vsto(7,n,k) ) ,
     $           abs( Valt3(1) - Vsto(1,n,k) ) ,
     $           abs( Valt3(5) - Vsto(5,n,k) ) ,
     $           abs( Valt3(7) - Vsto(7,n,k) ) ,
     $           abs( Valt4(1) - Vsto(1,n,k) ) ,
     $           abs( Valt4(5) - Vsto(5,n,k) ) ,
     $           abs( Valt4(7) - Vsto(7,n,k) ) )
c
c__Check the returned derivative values against the stored values:
c
            fder(n) = max( fder(n) , abs( Vtest(6) - Vsto(6,n,k) ) ,
     $           abs( Valt1(6) - Vsto(6,n,k) ) ,
     $           abs( Valt1(8) - Vsto(8,n,k) ) ,
     $           abs( Valt2(6) - Vsto(6,n,k) ) ,
     $           abs( Valt2(8) - Vsto(8,n,k) ) ,
     $           abs( Valt3(6) - Vsto(6,n,k) ) ,
     $           abs( Valt3(8) - Vsto(8,n,k) ) ,
     $           abs( Valt4(6) - Vsto(6,n,k) ) ,
     $           abs( Valt4(8) - Vsto(8,n,k) ) )
            do i = 2, 4
               fder(n) = max( fder(n) , abs( Vtest(i) - Vsto(i,n,k) ) ,
     $              abs( Valt1(i) - Vsto(i,n,k) ) ,
     $              abs( Valt2(i) - Vsto(i,n,k) ) ,
     $              abs( Valt3(i) - Vsto(i,n,k) ) ,
     $              abs( Valt4(i) - Vsto(i,n,k) ) )
            enddo
            do i = 8, 14
               fder(n) = max( fder(n) , abs( Vtest(i) - Vsto(i,n,k) ) )
            enddo
            do i = 15, 23
               fder(n) = max( fder(n) , abs( Vtest(i) - Vsto(i,n,k) ) ,
     $              abs( Valt4(i) - Vsto(i,n,k) ) )
            enddo
c
c__Give full output for the current case, if this is wished for:
c
            if ( numout .lt. noutmax .and. iouse(n) .le. noutmax ) then
c
c----------  Test geometry 12 type 3:  fitted "BMP" He-H2 surface  -----------
c       V: (total potential) --- stored, computed, difference:
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c    dVdr:  [r=12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c   dVdRa: [Ra=12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c   dVdRb: [Rb=12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c     Vhh: (Schwenke H - H)  :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c  dVhhdr:  [r=12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c    Vint: (Vint = V - Vhh)  :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c dVintdr: (= dVdr - dVhhdr) :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c   dVda2: [a2=12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c   dVdy3: [y3=12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c   dVdz3: [z3=12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c  dVdrRg:  [r=12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c   dVdRR: [RR=12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c    dVdg:  [g=12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c   dVdx1: [x1=12.123456789,-12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c   dVdy1: [y1=12.123456789,-12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c   dVdz1: [z1=12.123456789,-12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c   dVdx2: [x2=12.123456789,-12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c   dVdy2: [y2=12.123456789,-12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c   dVdz2: [z2=12.123456789,-12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c   dVdx3: [x3=12.123456789,-12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c   dVdy3: [y3=12.123456789,-12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c   dVdz3: [z3=12.123456789,-12.123456789] :
c    -1234.123456789012345     -1234.123456789012345     -1234.123456789012345
c                              -1234.123456789012345     -1234.123456789012345
c
               numout = numout + 1
c
               write(6,300) k, n, ctype(n), cvout(1), Vsto(1,n,k),
     $              Vtest(1), Vtest(1) - Vsto(1,n,k),
     $              Valt1(1), Valt1(1) - Vsto(1,n,k),
     $              Valt2(1), Valt2(1) - Vsto(1,n,k),
     $              Valt3(1), Valt3(1) - Vsto(1,n,k),
     $              Valt4(1), Valt4(1) - Vsto(1,n,k)
 300           format(' '/' ----------  Test geometry',i3,
     $              ' type',i2,':  ',a26,'  -----------'/
     $              ' ',a27,' --- stored, computed, difference:'/
     $              3f26.15,4(/26x,2f26.15))
c
               write( cvout(2)(15:26), '(f12.9)' ) r
               write( cvout(3)(15:26), '(f12.9)' ) Ra
               write( cvout(4)(15:26), '(f12.9)' ) Rb
               write( cvout(6)(15:26), '(f12.9)' ) r
               write( cvout(9)(15:26), '(f12.9)' ) a2
               write( cvout(10)(15:26), '(f12.9)' ) y3
               write( cvout(11)(15:26), '(f12.9)' ) z3
               write( cvout(12)(15:26), '(f12.9)' ) rhh
               write( cvout(13)(15:26), '(f12.9)' ) rh2he
               write( cvout(14)(15:26), '(f12.9)' ) gammarad
c
               do i = 2, 8
                  write(6,310) cvout(i), Vsto(i,n,k),
     $                 Vtest(i), Vtest(i) - Vsto(i,n,k),
     $                 Valt1(i), Valt1(i) - Vsto(i,n,k),
     $                 Valt2(i), Valt2(i) - Vsto(i,n,k),
     $                 Valt3(i), Valt3(i) - Vsto(i,n,k),
     $                 Valt4(i), Valt4(i) - Vsto(i,n,k)
 310              format(' ',a27,' :'/3f26.15,4(/26x,2f26.15))
               enddo

               do i = 9, 14
                  write(6,320) cvout(i), Vsto(i,n,k),
     $                 Vtest(i), Vtest(i) - Vsto(i,n,k)
 320              format(' ',a27,' :'/3f26.15)
               enddo
c
               do i = 15, 23
                  write(6,330) cx(i), cx(i), ccall(i), ccdall(i),
     $                 Vsto(i,n,k),
     $                 Vtest(i), Vtest(i) - Vsto(i,n,k),
     $                 Valt4(i), Valt4(i) - Vsto(i,n,k)
 330              format('    dVd',a2,': [',a2,'=',f12.9,', shifted=',
     $                 f13.9,'] :'/3f26.15/26x,2f26.15)
               enddo
c
               write(6,340)
 340           format(' ',77('-'))
c
            endif
c
         enddo
c
      enddo
c
c__Compare the largest differences over all geometries against allowed limits:
c
      nvgood = 0
      nvok = 0
c
      do n = 1, 7
         if ( fdif(n) .le. diflim(n) .and. fder(n) .le. derlim(n) )
     $        nvgood = nvgood + 1
         if ( fdif(n) .le. ok_lim(n) .and. fder(n) .le. ok_lim(n) )
     $        nvok = nvok + 1
      enddo
c
c__Output a message telling whether the surface routines are working, e.g.:
c
cThe He-H2 surface values and derivatives from the Fortran program are compared
cbelow with correct stored values for 30 geometries.  For each geometry, seven
csurface versions are tested: the original Muchnick & Russek surface, the modMR
c(modified Muchnick & Russek) surface, and the accurate BMP (Boothroyd, Martin,
c& Peterson) surface are tested with normal-sized geometries, and four types of
cextrapolation to short distances (i.e., with ifixclose = 0, 1, 2, and 3) are
ctested for the BMP surface using reduced-size (compacted) geometries.  Below,
cthe maximum difference of the potential (Diff:V) and its derivatives (D:deriv)
care given for each surface version, along with the limiting values for each to
cbe considered "good" or "O.K." --- column (3) is the most important:
c
c            (1)       (2)       (3)       (4)       (5)       (6)       (7)
c         Muchnick |  heh2:  | heh2:BMP <--------compacted geometries--------->
c         & Russek |  modMR  | ifix = 0  ifix = 0  ifix = 1  ifix = 2  ifix = 3
c         ---------|---------|--------- --------- --------- --------- ---------
c Diff:V= 1.071E-14 1.071E-14 1.103E-14 4.263E-13 4.707E-14 6.972E-14 6.972E-14
c
c GOODlimit 1.0E-12   1.0E-12   1.0E-12   1.0E-10   1.0E-11   1.0E-11   1.0E-11
c
cD:deriv= 5.107E-14 5.101E-14 9.504E-14 1.364E-11 3.857E-13 3.837E-13 5.276E-13
c
c GOODlimit 1.0E-11   1.0E-11   1.0E-11   1.0E-09   1.0E-10   1.0E-10   1.0E-10
c
c O.K.limit 1.0E-09   1.0E-09   1.0E-09   1.0E-07   1.0E-08   1.0E-08   1.0E-08
c
c***** All values and derivatives are CORRECT *****
c
      write(6,200) ntest
 200  format(' '/' The He-H2 surface values and derivatives',
     $     ' from the Fortran program are compared'/
     $     ' below with correct stored values for',i3,
     $     ' geometries.  For each geometry, seven'/
     $     ' surface versions are tested: the original',
     $     ' Muchnick & Russek surface, the modMR'/
     $     ' (modified Muchnick & Russek) surface, and',
     $     ' the accurate BMP (Boothroyd, Martin,'/
     $     ' & Peterson) surface are tested with',
     $     ' normal-sized geometries, and four types of'/
     $     ' extrapolation to short distances (i.e., with',
     $     ' ifixclose = 0, 1, 2, and 3) are'/
     $     ' tested for the BMP surface using reduced-size',
     $     ' (compacted) geometries.  Below,'/
     $     ' the maximum difference of the potential',
     $     ' (Diff:V) and its derivatives (D:deriv)'/
     $     ' are given for each surface version, along',
     $     ' with the limiting values for each to'/
     $     ' be considered "good" or "O.K." --- column',
     $     ' (3) is the most important:')
      write(6,210) ( fdif(n), n = 1, 7 ),
     $     ( diflim(n), n = 1, 7 ), ( fder(n), n = 1, 7 ),
     $     ( derlim(n), n = 1, 7 ), ( ok_lim(n), n = 1, 7 )
 210  format(' '/
     $     '             (1)       (2)       (3)   ',
     $     '    (4)       (5)       (6)       (7)'/
     $     '          Muchnick |  heh2:  | heh2:BMP',
     $     ' <--------compacted geometries--------->'/
     $     '          & Russek |  modMR  | ifix = 0',
     $     '  ifix = 0  ifix = 1  ifix = 2  ifix = 3'/
     $     '          ---------|---------|---------',
     $     ' --------- --------- --------- ---------'/
     $     ' Diff:V =',1p,7e10.3/' '/
     $     ' GOODlimit',e9.1,6e10.1/' '/
     $     ' D:deriv=',7e10.3/' '/
     $     ' GOODlimit',e9.1,6e10.1/' '/
     $     ' O.K.limit',e9.1,6e10.1/' ')
c
      if ( nvgood .eq. 7 ) then
         write(6,230)
 230     format(' ***** All values and derivatives are CORRECT *****'/
     $        ' ')
      else if ( nvok .eq. 7 ) then
         write(6,240)
 240     format(' ===== The values do not seem to be as',
     $        ' accurate as they should be,'/
     $        '       but they are not too bad: it is probably O.K.'/
     $        ' ')
      else
         write(6,250)
 250     format(' ----- Errors are too large:',
     $        ' there seems to be a problem.'/' ')
      endif
c
      stop
      end
