Home
last modified time | relevance | path

Searched refs:nblock_sum (Results 1 – 6 of 6) sorted by relevance

/dports/math/dbcsr/dbcsr-2.1.0/src/tensors/
H A Ddbcsr_tensor_io.F120 INTEGER(KIND=int_8) :: nblock_sum, nelement_sum, nblock_tot local
136 nblock_sum = dbcsr_t_get_num_blocks_total(tensor)
147 … IF (nblock_tot .NE. 0) occupation = 100.0_real_8*REAL(nblock_sum, real_8)/REAL(nblock_tot, real_8)
152 WRITE (unit_nr_prv, "(T15,A,T68,I13)") "Number of non-zero blocks:", nblock_sum
154 …WRITE (unit_nr_prv, "(T15,A,T68,I13)") "Average number of blocks per CPU:", (nblock_sum + nproc - …
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/exts/dbcsr/src/tensors/
H A Ddbcsr_tensor_io.F120 INTEGER(KIND=int_8) :: nblock_sum, nelement_sum, nblock_tot local
136 nblock_sum = dbcsr_t_get_num_blocks_total(tensor)
147 … IF (nblock_tot .NE. 0) occupation = 100.0_real_8*REAL(nblock_sum, real_8)/REAL(nblock_tot, real_8)
152 WRITE (unit_nr_prv, "(T15,A,T68,I13)") "Number of non-zero blocks:", nblock_sum
154 …WRITE (unit_nr_prv, "(T15,A,T68,I13)") "Average number of blocks per CPU:", (nblock_sum + nproc - …
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Dcp_dbcsr_output.F622 INTEGER(KIND=int_8) :: nblock_sum, nblock_tot, nelement_sum local
659 nblock_sum = SUM(INT(nblock, KIND=int_8))
662 nblock_sum = nblock(mype)
666 CALL mp_sum(nblock_sum, group)
681 IF (nblock_tot .NE. 0) occupation = 100.0_dp*REAL(nblock_sum, dp)/REAL(nblock_tot, dp)
691 "Sum", nblock_sum, nelement_sum
695 … WRITE (UNIT=output_unit, FMT="(T15,A,T68,I13)") "Number of non-zero blocks:", nblock_sum
698 (nblock_sum + npe - 1)/npe
H A Dqs_neighbor_lists.F1622 INTEGER(int_8) :: nblock_max, nblock_sum, nelement_max, & local
1664 nblock_sum = SUM(INT(nblock, KIND=int_8))
1667 nblock_sum = nblock(mype)
1671 tmp = (/nblock_sum, nelement_sum/)
1673 nblock_sum = tmp(1); nelement_sum = tmp(2)
1690 … WRITE (UNIT=output_unit, FMT="(T15,A,T68,I13)") "Total number of particle pairs:", nblock_sum
1692 …output_unit, FMT="(T15,A,T68,I13)") "Average number of particle pairs:", (nblock_sum + npe - 1)/npe
/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Dcp_dbcsr_output.F622 INTEGER(KIND=int_8) :: nblock_sum, nblock_tot, nelement_sum local
659 nblock_sum = SUM(INT(nblock, KIND=int_8))
662 nblock_sum = nblock(mype)
666 CALL mp_sum(nblock_sum, group)
681 IF (nblock_tot .NE. 0) occupation = 100.0_dp*REAL(nblock_sum, dp)/REAL(nblock_tot, dp)
691 "Sum", nblock_sum, nelement_sum
695 … WRITE (UNIT=output_unit, FMT="(T15,A,T68,I13)") "Number of non-zero blocks:", nblock_sum
698 (nblock_sum + npe - 1)/npe
H A Dqs_neighbor_lists.F1588 INTEGER(int_8) :: nblock_max, nblock_sum, nelement_max, & local
1630 nblock_sum = SUM(INT(nblock, KIND=int_8))
1633 nblock_sum = nblock(mype)
1637 tmp = (/nblock_sum, nelement_sum/)
1639 nblock_sum = tmp(1); nelement_sum = tmp(2)
1656 … WRITE (UNIT=output_unit, FMT="(T15,A,T68,I13)") "Total number of particle pairs:", nblock_sum
1658 …output_unit, FMT="(T15,A,T68,I13)") "Average number of particle pairs:", (nblock_sum + npe - 1)/npe