Home
last modified time | relevance | path

Searched refs:nprjc (Results 1 – 5 of 5) sorted by relevance

/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Dsap_kind_types.F290 maxsgf, na, nb, ncoa, ncoc, nkind, nlist, nneighbor, nnl, np, nppnl, nprjc, nseta, nsgfa, & local
465 nprjc = spotential(kkind)%sgp_potential%nppnl
466 IF (nprjc == 0) CYCLE
514 nprjc = nprj_ppnl(l)*nco(l)
515 IF (nprjc == 0) CYCLE
545 nb = nprjc
552 prjc = prjc + nprjc
586 sab(1:na, first_col:first_col + nprjc - 1) = ai_work(1:na, 1:nprjc, i)
596 … work(1:np, 1:nb) = MATMUL(sab(1:np, first_col:first_col + nprjc - 1), cprj(1:nprjc, 1:nb))
H A Dcore_ppnl.F106 ncoa, ncoc, nkind, nlist, nneighbor, nnl, np, nppnl, nprjc, nseta, nsgfa, prjc, sgfa, slot local
312 nprjc = spotential(kkind)%sgp_potential%nppnl
313 IF (nprjc == 0) CYCLE
350 nprjc = nprj_ppnl(l)*nco(l)
351 IF (nprjc == 0) CYCLE
364 nb = nprjc
373 prjc = prjc + nprjc
404 … work(1:np, 1:nb) = MATMUL(sab(1:np, first_col:first_col + nprjc - 1), cprj(1:nprjc, 1:nb))
H A Dcommutator_rpnl.F85 nlist, nneighbor, nnode, np, nppnl, nprjc, nseta, nsgfa, nthread, prjc, sgfa local
258 nprjc = nprj_ppnl(l)*nco(l)
259 IF (nprjc == 0) CYCLE
273 CALL dgemm("N", "N", ncoa, nprjc, ncoc, 1.0_dp, sab(1, 1, i), ldsab, &
276 prjc = prjc + nprjc
/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Dcore_ppnl.F109 nprjc, nseta, nsgfa, nthread, prjc, sgfa local
271 nprjc = spotential(kkind)%sgp_potential%nppnl
272 IF (nprjc == 0) CYCLE
330 nprjc = nprj_ppnl(l)*nco(l)
331 IF (nprjc == 0) CYCLE
345 … CALL dgemm("N", "N", ncoa, nprjc, ncoc, 1.0_dp, sab(1, first_col + 1), SIZE(sab, 1), &
348 prjc = prjc + nprjc
367 CALL dgemm("N", "N", ncoa, nppnl, nprjc, 1.0_dp, sab(1, first_col), ldsab, &
H A Dcommutator_rpnl.F78 nlist, nneighbor, nnode, np, nppnl, nprjc, nseta, nsgfa, nthread, prjc, sgfa local
251 nprjc = nprj_ppnl(l)*nco(l)
252 IF (nprjc == 0) CYCLE
266 CALL dgemm("N", "N", ncoa, nprjc, ncoc, 1.0_dp, sab(1, 1, i), ldsab, &
269 prjc = prjc + nprjc