      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
