block data
c     this is the piub ished wave function, with cores i.e.
      Implicit  Real*8   (a-h,o-z)
      Common/mmm/a1(4,10),a2(4,8)
      data a1/
     a   0.,            2.,            0.526184e-01,  0.0,
     b   0.294322e-01,  0.191074e01,   0.505840e-01,  -0.256572e-03,
     c   0.208823,      0.127537e01,   0.341021e-01,  -0.182162e-02,
     d   0.274661,      0.894039,      0.236391e-01,  -0.232969e-02,
     e   0.291498,      0.647425,      0.166030e-01,  -0.237360e-02,
     f   0.285677,      0.480273,0.116959e-01,        -0.221288e-02,
     g   0.269357,      0.363230,      0.818813e-02,  -0.196895e-02,
     h   0.248563,      0.279278,      0.563686e-02,  -0.170076e-02,
     i   0.226397,      0.217938,      0.375893e-02,  -0.143704e-02,
     j   0.204474,      0.172452,      0.236579e-02,  -0.119130e-02/
      data a2/
     k   0.183614,      0.138314,      0.132789e-02,  -0.969153e-03,
     l   0.164207,      0.112430,      0.553974e-03,  -0.772119e-03,
     m   0.146402,      0.926325e-01,  -0.215559e-04, -0.599600e-03,
     n   0.130215,      0.773725e-01,  -0.446686e-03, -0.449967e-03,
     o   0.115587,      0.655261e-01,  -0.757024e-03, -0.321150e-03,
     p   0.102426,      0.562674e-01,  -0.979299e-03, -0.210971e-03,
     q   0.906173e-01,  0.489832e-01,  -0.113380e-02, -0.117277e-03,
     r   0.800462e-01,  0.432135e-01,  -0.123603e-02, -0.380834e-04/
       End