call df_primcalc(niprim,nzjpr,njprim,
     $gexpi,
     $gexpj,
     $dfgexp,
     $nckl,it3,
     $ax,ay,az,sb2,nzkpr,nkprim,it2,nc12,
     $cx,cy,cz,dcore,itol,
     $gc,
     $gcoefj,
     $dfgcoef,
     $gcnj,
     $dfgcn,
     $nzl,
     $nprimmax,cf,nmboys,
     $boysval,it4,
     $nmax1,nmax,nclkj,
     $nzipr,nzip,
     $abcdl,iang,kang,bx,by,bz,norm1,
     $it1,
     $nkcontr,nc12,njcontr,
     $rys,nmcrt,iacrt,kacrt,kacrt1,omega,boys)