803
803
double precision qxyz(3),Pnucl
804
804
double precision rxyz(3),dist,dist2,ac_prod
805
805
double precision zetanuc_slc
806
real gammap,gammaq,rtemp,a_coeff
808
809
c ---------- Defining values at hand to check --------- START
810
811
c xyz_NMRcoords(1)= 0.07090063d0