Home
last modified time | relevance | path

Searched refs:root_bgrp_id (Results 1 – 20 of 20) sorted by relevance

/dports/science/quantum-espresso/q-e-qe-6.7.0/KS_Solvers/Davidson/
H A Dcegterg.f90240 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 Dregterg.f90211 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 Dupdate_pot.f90396 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 Dremove_atomic_rho.f9020 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 Dio_rho_xml.f9040 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 Dwfcinit.f90215 nbgrp, root_bgrp_id
316 IF( nbgrp > 1 ) CALL mp_bcast( wfcatom, root_bgrp_id, inter_bgrp_comm )
H A Dpw_restart_new.f90742 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 Ddavid_rci.f9016 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 Drotate_wfc_gamma.f9019 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 Drotate_wfc_k.f9017 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 Drotate_HSpsi_gamma.f9019 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 Drotate_HSpsi_k.f9017 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 Dksstates.f90146 root_bgrp_id, root_bgrp
179 IF ( my_bgrp_id == root_bgrp_id ) CALL write_rhog &
H A Dcp_restart_new.f9059 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 Dmp_bands_util.f9026 INTEGER :: root_bgrp_id = 0 ! index of root band group variable
/dports/science/quantum-espresso/q-e-qe-6.7.0/Modules/
H A Dmp_bands.f9026 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 Dtest_mp_allgatherv_type_gpu.tmpl64 !CALL mp_gather( hc, column_section_type, recv_counts, displs, root_bgrp_id, inter_bgrp_comm )
H A Dtest_mp_gatherv_type_gpu.tmpl64 !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 Dppcg_k.f9013 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 Dppcg_gamma.f9013 …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