Searched refs:splitsum (Results 1 – 4 of 4) sorted by relevance
| /dports/math/dbcsr/dbcsr-2.1.0/src/tensors/ |
| H A D | dbcsr_tensor_split.F | 82 INTEGER :: idim, i, isplit_sum, blk, nsplit, handle, splitsum, bcount
125 splitsum = 0 ! summing split block sizes for current normal block
126 DO WHILE (splitsum < blk_size_d(i))
130 IF (idim == ${idim}$) inblock_offset_${idim}$ (isplit_sum) = splitsum
133 splitsum = splitsum + blk_size_split_d(isplit_sum)
135 DBCSR_ASSERT(splitsum == blk_size_d(i))
395 splitsum = 0
397 DO WHILE (splitsum < blk_size_d(iblk))
401 inblock_offset_${idim}$ (isplit_sum) = splitsum
405 splitsum = splitsum + blk_size_split_d(isplit_sum)
[all …]
|
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/exts/dbcsr/src/tensors/ |
| H A D | dbcsr_tensor_split.F | 81 INTEGER :: idim, i, isplit_sum, blk, nsplit, handle, splitsum, bcount
125 splitsum = 0 ! summing split block sizes for current normal block
126 DO WHILE (splitsum < blk_size_d(i))
130 IF (idim == ${idim}$) inblock_offset_${idim}$ (isplit_sum) = splitsum
133 splitsum = splitsum + blk_size_split_d(isplit_sum)
135 DBCSR_ASSERT(splitsum == blk_size_d(i))
399 splitsum = 0
401 DO WHILE (splitsum < blk_size_d(iblk))
405 inblock_offset_${idim}$ (isplit_sum) = splitsum
409 splitsum = splitsum + blk_size_split_d(isplit_sum)
[all …]
|
| /dports/emulators/libretro-vice/vice-libretro-5725415/vice/src/arch/sdl/ |
| H A D | make-bindist_scosol.sh | 122 splitsum() function
130 splitsum $pmsum
133 splitsum $pmsum
|
| /dports/math/maxima/maxima-5.43.2/src/ |
| H A D | compar.lisp | 2427 ((eq (caaar exp) 'mplus) (setq exp (splitsum exp)))
2465 (defun splitsum (exp) function
|