Lines Matching refs:DCt
471 & DCt, giju, argument
507 & giju(npro,6), DCt(npro,ngauss),
521 DCt = zero
591 DCt(:,intp)=max(zero,(fact*sqrt(raLSt*gnormt))-(rtLSt*gnormt))
613 DCt(:,intp) = two * rtLSt * gnormt
639 DCt(:,intp) = min( max(zero,fact * sqrt(raLSt * gnormt)-
659 rti ( :,1) = rti ( :,1) + DCt(:,intp) * gAgyit( :,1)
660 rmti( :,1) = rmti( :,1) + DCt(:,intp) * gAgyit( :,1)
661 rti ( :,2) = rti ( :,2) + DCt(:,intp) * gAgyit( :,2)
662 rmti( :,2) = rmti( :,2) + DCt(:,intp) * gAgyit( :,2)
663 rti ( :,3) = rti ( :,3) + DCt(:,intp) * gAgyit( :,3)
664 rmti( :,3) = rmti( :,3) + DCt(:,intp) * gAgyit( :,3)
675 rmti( :,1) = rmti( :,1) + DCt(:,intp) * gAgyit( :,1)
676 rmti( :,2) = rmti( :,2) + DCt(:,intp) * gAgyit( :,2)
677 rmti( :,3) = rmti( :,3) + DCt(:,intp) * gAgyit( :,3)
690 dtmp(:)=A0t(:)*DCt(:,intp)