& deepFacF, deepFac2F, recip_deepFacF, recip_deepFac2F,
_RL recip_deepFac2F(Nr+1)
& *recip_deepFac2F(k)*recip_rhoFacF(k)
& *recip_deepFac2F(k)
& *recip_deepFac2F(1)
& *recip_deepFac2F(ks)
recip_deepFac2F(k)= 1. _d 0
recip_deepFac2F(k)= 1. _d 0/deepFac2F(k)