Searched refs:kprim (Results 1 – 9 of 9) sorted by relevance
3 & kxyz,kprim,kcoef,k_prim,k_gen,lk, argument22 double precision kxyz(3),kprim(k_prim),kcoef(k_prim,k_gen) local148 ai=kprim(ia)
3 & kxyz,kprim,kcoef,k_prim,k_gen,lk,22 double precision kxyz(3),kprim(k_prim),kcoef(k_prim,k_gen)148 ai=kprim(ia)
36 integer kprim ! sum of primitives per shell460 kprim = 0481 kprim = kprim + int_mb(k_nprim+icont-1)491 if (.not. ma_push_get(mt_dbl,kprim,'exponents', l_exp, k_exp))492 $ call errquit('waimfile : ma failed exp', kprim, MA_ERR)493 if (.not. ma_push_get(mt_dbl,kprim,'coeffts', l_coef, k_coef))494 $ call errquit('waimfile : ma failed exp', kprim, MA_ERR)496 kprim = 0499 $ dbl_mb(k_exp + kprim)))503 if (.not.bas_get_coeff(basis, icont, dbl_mb(k_coef + kprim)))[all …]
751 (letk kprim ($kargs ('prim) (prim)753 (build-term ($continue kprim src ($prim name)))))))))))805 (letk kprim ($kargs ('prim) (prim)808 ($continue kprim src ($prim 'values))))
460 (letk kprim ($kargs ('prim) (prim)462 (build-term ($continue kprim src ($prim 'values)))))))
803 (letk kprim ($kargs ('prim) (prim)806 ($continue kprim src ($prim 'struct-ref))))))814 (letk kprim ($kargs ('prim) (prim)817 ($continue kprim src ($prim 'struct-set!))))))2100 (letk kprim ($kargs ('prim) (prim)2102 (build-term ($continue kprim src ($prim name))))))))))2110 (letk kprim ($kargs ('prim) (prim)2112 (build-term ($continue kprim src ($prim name)))))))))2157 (letk kprim ($kargs ('prim) (prim)2160 ($continue kprim src ($prim 'values))))
5358 int csh, kprim; in check_3c_overlap() local5361 kprim = ecpbas[csh*BAS_SLOTS+NPRIM_OF]; in check_3c_overlap()5367 aijk = aij + ak[kprim-1]; in check_3c_overlap()5368 aiak = ai * ak[kprim-1] * rrca; in check_3c_overlap()5369 ajak = aj * ak[kprim-1] * rrcb; in check_3c_overlap()
878 allocate(alpha(kprim, kblock, ksets))879 allocate(cprim(kprim, kprim, kblock, ksets))880 allocate(cprimu(kprim, kprim, kblock, ksets))