blockdata
        implicit double precision (a-h,o-z)
        double precision nby2
        logical tru

        common /vgt/ xn(15),h,yn(15),xx(3),hh(3),nby2(19),c(21)
     &   ,b(22),ri(15),d0(25),d1(25),d2(25),d3(25),d4(25),hn(25)
     &   ,co,tru

        data tru/.false./
        data b(1)/0./, b(2)/0.7093602e-7/
        data xn/10.,9.,2*8.,7.,6.,5.,4.,7*3./, h/0.201/
        data yn/3*0.6,0.5,2*0.4,4*0.3,1.,0.9,0.8,2*.7/
        data xx/0.5246476,1.65068,0.7071068/
        data hh/0.2562121,0.2588268e-1,0.2820948/
        data nby2/9.5,9.,8.5,8.,7.5,7.,6.5,6.,5.5,5.
     &   ,4.5,4.,3.5,3.,2.5,2.,1.5,1.,0.5/
        data c/0.7093602e-7,-0.2518434e-6,0.8566874e-6
     &   ,-0.2787638e-5,0.866074e-5,-0.2565551e-4,0.7228775e-4
     &   ,-0.1933631e-3,0.4899520e-3,-0.1173267e-2,0.2648762e-2
     &   ,-0.5623190e-2,0.1119601e-1,-0.2084976e-1,0.3621573e-1
     &   ,-0.5851412e-1,0.8770816e-1,-0.121664,0.15584,-0.184
     &   ,0.2/

        end