scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Added the mp_bcast of a complex array of rank 5. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@7138 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2010-10-12 16:18:43 +00:00
parent 19346fd032
commit 10c271d1a5
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
Modules/mp.f90
View File

@ -30,7 +30,8 @@
mp_bcast_z, mp_bcast_zv, &
mp_bcast_iv, mp_bcast_rv, mp_bcast_cv, mp_bcast_l, mp_bcast_rm, &
mp_bcast_cm, mp_bcast_im, mp_bcast_it, mp_bcast_rt, mp_bcast_lv, &
mp_bcast_lm, mp_bcast_r4d, mp_bcast_r5d, mp_bcast_ct, mp_bcast_c4d
mp_bcast_lm, mp_bcast_r4d, mp_bcast_r5d, mp_bcast_ct, mp_bcast_c4d,&
mp_bcast_c5d
END INTERFACE
INTERFACE mp_sum
@ -602,6 +603,23 @@
#endif
END SUBROUTINE mp_bcast_c4d
SUBROUTINE mp_bcast_c5d(msg,source,gid)
IMPLICIT NONE
COMPLEX (DP) :: msg(:,:,:,:,:)
INTEGER :: source
INTEGER, OPTIONAL, INTENT(IN) :: gid
INTEGER :: group
INTEGER :: msglen
#if defined(__MPI)
msglen = size(msg)
group = mpi_comm_world
IF( PRESENT( gid ) ) group = gid
CALL bcast_real( msg, 2 * msglen, source, group )
mp_call_count( 15 ) = mp_call_count( 15 ) + 1
mp_call_sizex( 15 ) = MAX( mp_call_sizex( 15 ), msglen )
#endif
END SUBROUTINE mp_bcast_c5d
!
!------------------------------------------------------------------------------!