/dports/science/quantum-espresso/q-e-qe-6.7.0/KS_Solvers/Davidson/ |
H A D | cegterg.f90 | 240 CALL mp_bcast( e, root_bgrp_id, inter_bgrp_comm ) 247 IF( my_bgrp_id == root_bgrp_id ) THEN 251 CALL mp_bcast( vc, root_bgrp_id, inter_bgrp_comm ) 252 CALL mp_bcast( ew, root_bgrp_id, inter_bgrp_comm ) 445 IF( my_bgrp_id == root_bgrp_id ) THEN 449 CALL mp_bcast( vc, root_bgrp_id, inter_bgrp_comm ) 450 CALL mp_bcast( ew, root_bgrp_id, inter_bgrp_comm ) 825 CALL mp_bcast( vl, root_bgrp_id, inter_bgrp_comm ) 826 CALL mp_bcast( ew, root_bgrp_id, inter_bgrp_comm ) 968 CALL mp_bcast( vl, root_bgrp_id, inter_bgrp_comm ) [all …]
|
H A D | regterg.f90 | 211 IF( my_bgrp_id == root_bgrp_id ) THEN 215 CALL mp_bcast( vr, root_bgrp_id, inter_bgrp_comm ) 216 CALL mp_bcast( ew, root_bgrp_id, inter_bgrp_comm ) 372 IF( my_bgrp_id == root_bgrp_id ) THEN 376 CALL mp_bcast( vr, root_bgrp_id, inter_bgrp_comm ) 377 CALL mp_bcast( ew, root_bgrp_id, inter_bgrp_comm ) 393 IF ( nbgrp > 1 ) CALL mp_bcast(conv,root_bgrp_id,inter_bgrp_comm) 744 CALL mp_bcast( vl, root_bgrp_id, inter_bgrp_comm ) 745 CALL mp_bcast( ew, root_bgrp_id, inter_bgrp_comm ) 872 CALL mp_bcast( vl, root_bgrp_id, inter_bgrp_comm ) [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
H A D | update_pot.f90 | 396 USE mp_bands, ONLY : my_bgrp_id, root_bgrp_id, root_bgrp, & 479 IF ( my_pool_id == 0 .AND. my_bgrp_id == root_bgrp_id ) & 494 IF ( my_pool_id == 0 .AND. my_bgrp_id == root_bgrp_id ) & 497 IF( nbgrp > 1 ) CALL mp_bcast( work, root_bgrp_id, inter_bgrp_comm ) 503 IF ( my_pool_id == 0 .AND. my_bgrp_id == root_bgrp_id ) & 507 IF ( my_pool_id == 0 .AND. my_bgrp_id == root_bgrp_id ) & 528 IF ( my_pool_id == 0 .AND. my_bgrp_id == root_bgrp_id ) & 531 IF( nbgrp > 1 ) CALL mp_bcast( work1,root_bgrp_id, inter_bgrp_comm ) 532 IF ( my_pool_id == 0 .AND. my_bgrp_id == root_bgrp_id ) & 540 IF ( my_pool_id == 0 .AND. my_bgrp_id == root_bgrp_id ) & [all …]
|
H A D | remove_atomic_rho.f90 | 20 USE mp_bands, ONLY: my_bgrp_id, root_bgrp_id, & 38 IF ( my_pool_id == 0 .AND. my_bgrp_id == root_bgrp_id ) &
|
H A D | io_rho_xml.f90 | 40 USE mp_bands, ONLY : my_bgrp_id, root_bgrp_id, & 63 IF ( my_pool_id == 0 .AND. my_bgrp_id == root_bgrp_id ) & 71 IF ( my_pool_id == 0 .AND. my_bgrp_id == root_bgrp_id ) &
|
H A D | wfcinit.f90 | 215 nbgrp, root_bgrp_id 316 IF( nbgrp > 1 ) CALL mp_bcast( wfcatom, root_bgrp_id, inter_bgrp_comm )
|
H A D | pw_restart_new.f90 | 742 root_bgrp_id, my_bgrp_id 763 IF ( my_bgrp_id == root_bgrp_id .AND. me_bgrp == root_bgrp ) THEN 842 IF ( my_bgrp_id == root_bgrp_id ) CALL write_wfc( iunpun, &
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/KS_Solvers/Davidson_RCI/ |
H A D | david_rci.f90 | 16 USE mp_bands_util, ONLY : intra_bgrp_comm, inter_bgrp_comm, root_bgrp_id, nbgrp, my_bgrp_id, & 255 IF( my_bgrp_id == root_bgrp_id ) THEN 259 CALL mp_bcast( vc, root_bgrp_id, inter_bgrp_comm ) 260 CALL mp_bcast( work%ew, root_bgrp_id, inter_bgrp_comm ) 428 IF( my_bgrp_id == root_bgrp_id ) THEN 432 CALL mp_bcast( vc, root_bgrp_id, inter_bgrp_comm ) 433 CALL mp_bcast( work%ew, root_bgrp_id, inter_bgrp_comm ) 448 IF ( nbgrp > 1 ) CALL mp_bcast(conv,root_bgrp_id,inter_bgrp_comm)
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/KS_Solvers/DENSE/ |
H A D | rotate_wfc_gamma.f90 | 19 USE mp_bands_util, ONLY : intra_bgrp_comm, inter_bgrp_comm, root_bgrp_id, nbgrp, my_bgrp_id, & 162 USE mp_bands_util, ONLY : intra_bgrp_comm, inter_bgrp_comm, root_bgrp_id, nbgrp, my_bgrp_id 260 IF( my_bgrp_id == root_bgrp_id ) CALL pdiaghg( nstart, hr, sr, nx, en, vr, idesc ) 262 CALL mp_bcast( vr, root_bgrp_id, inter_bgrp_comm ) 263 CALL mp_bcast( en, root_bgrp_id, inter_bgrp_comm )
|
H A D | rotate_wfc_k.f90 | 17 USE mp_bands_util, ONLY : intra_bgrp_comm, inter_bgrp_comm, root_bgrp_id, nbgrp, my_bgrp_id, & 155 USE mp_bands_util, ONLY : intra_bgrp_comm, inter_bgrp_comm, root_bgrp_id, nbgrp, my_bgrp_id 256 IF( my_bgrp_id == root_bgrp_id ) CALL pdiaghg( nstart, hc, sc, nx, en, vc, idesc ) 258 CALL mp_bcast( vc, root_bgrp_id, inter_bgrp_comm ) 259 CALL mp_bcast( en, root_bgrp_id, inter_bgrp_comm )
|
H A D | rotate_HSpsi_gamma.f90 | 19 USE mp_bands_util, ONLY : intra_bgrp_comm, inter_bgrp_comm, root_bgrp_id, nbgrp, my_bgrp_id, & 194 USE mp_bands_util, ONLY : intra_bgrp_comm, inter_bgrp_comm, root_bgrp_id, nbgrp, my_bgrp_id 288 IF( my_bgrp_id == root_bgrp_id ) CALL pdiaghg( nstart, hh, ss, nx, en, vv, idesc ) 290 CALL mp_bcast( vv, root_bgrp_id, inter_bgrp_comm ) 291 CALL mp_bcast( en, root_bgrp_id, inter_bgrp_comm )
|
H A D | rotate_HSpsi_k.f90 | 17 USE mp_bands_util, ONLY : intra_bgrp_comm, inter_bgrp_comm, root_bgrp_id, nbgrp, my_bgrp_id, & 199 USE mp_bands_util, ONLY : intra_bgrp_comm, inter_bgrp_comm, root_bgrp_id, nbgrp, my_bgrp_id 296 IF( my_bgrp_id == root_bgrp_id ) CALL pdiaghg( nstart, hh, ss, nx, en, vv, idesc ) 298 CALL mp_bcast( vv, root_bgrp_id, inter_bgrp_comm ) 299 CALL mp_bcast( en, root_bgrp_id, inter_bgrp_comm )
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/CPV/src/ |
H A D | ksstates.f90 | 146 root_bgrp_id, root_bgrp 179 IF ( my_bgrp_id == root_bgrp_id ) CALL write_rhog &
|
H A D | cp_restart_new.f90 | 59 root_bgrp, root_bgrp_id 453 IF ( my_bgrp_id == root_bgrp_id ) THEN 508 IF ( my_bgrp_id == root_bgrp_id ) THEN
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/UtilXlib/ |
H A D | mp_bands_util.f90 | 26 INTEGER :: root_bgrp_id = 0 ! index of root band group variable
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/Modules/ |
H A D | mp_bands.f90 | 26 INTEGER :: root_bgrp_id = 0 ! index of root band group variable
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/UtilXlib/tests/ |
H A D | test_mp_allgatherv_type_gpu.tmpl | 64 !CALL mp_gather( hc, column_section_type, recv_counts, displs, root_bgrp_id, inter_bgrp_comm )
|
H A D | test_mp_gatherv_type_gpu.tmpl | 64 !CALL mp_gather( hc, column_section_type, recv_counts, displs, root_bgrp_id, inter_bgrp_comm )
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/KS_Solvers/PPCG/ |
H A D | ppcg_k.f90 | 13 USE mp_bands_util, ONLY : intra_bgrp_comm, inter_bgrp_comm, root_bgrp_id, nbgrp, my_bgrp_id 413 if (my_bgrp_id == root_bgrp_id) then 1241 IF( my_bgrp_id == root_bgrp_id) CALL pdiaghg( nbnd, Hl, Sl, nx, e, vl, idesc ) 1243 CALL mp_bcast( vl, root_bgrp_id, inter_bgrp_comm ) 1244 CALL mp_bcast( e, root_bgrp_id, inter_bgrp_comm ) 1585 IF (bgrp_root_only .AND. ( my_bgrp_id /= root_bgrp_id ) ) THEN
|
H A D | ppcg_gamma.f90 | 13 …USE mp_bands_util, ONLY : intra_bgrp_comm, inter_bgrp_comm, root_bgrp_id, nbgrp, my_bgrp_id, & 434 if (my_bgrp_id == root_bgrp_id) then 1280 IF( my_bgrp_id == root_bgrp_id) CALL pdiaghg( nbnd, Hl, Sl, nx, e, vl, idesc ) 1282 CALL mp_bcast( vl, root_bgrp_id, inter_bgrp_comm ) 1283 CALL mp_bcast( e, root_bgrp_id, inter_bgrp_comm ) 1633 IF (bgrp_root_only .AND. ( my_bgrp_id /= root_bgrp_id ) ) THEN
|