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

Added a routine for broadcast of rank 5 real arrays. C.S. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3674 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
sbraccia 2007-01-15 19:07:39 +00:00
parent 50bf9ef64d
commit a537bc9d0e
1 changed files with 32 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
Modules/mp.f90
View File

@ -32,14 +32,14 @@
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_ct, mp_bcast_c4d, &
mp_bcast_lm, mp_bcast_r4d, mp_bcast_r5d, mp_bcast_ct, mp_bcast_c4d, &
mp_bcast_i4b
#else
MODULE PROCEDURE mp_bcast_i1, mp_bcast_r1, mp_bcast_c1, &
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_ct, mp_bcast_c4d
mp_bcast_lm, mp_bcast_r4d, mp_bcast_r5d, mp_bcast_ct, mp_bcast_c4d
#endif
END INTERFACE
@ -525,6 +525,36 @@
#endif
END SUBROUTINE mp_bcast_r4d
!
!------------------------------------------------------------------------------!
!
! Carlo Cavazzoni
!
SUBROUTINE mp_bcast_r5d(msg, source, gid)
IMPLICIT NONE
REAL (DP) :: msg(:,:,:,:,:)
INTEGER :: source
INTEGER, OPTIONAL, INTENT(IN) :: gid
INTEGER :: group
INTEGER :: msglen, ierr
#if defined(__MPI)
ierr = 0
msglen = size(msg)
IF( msglen*8 > mp_msgsiz_max ) CALL mp_stop( 8034 )
group = mpi_comm_world
IF( PRESENT( gid ) ) group = gid
#if defined __XD1
CALL bcast_real( msg, msglen, source, group, ierr )
#else
CALL mpi_bcast(msg, msglen, mpi_double_precision, source, group, ierr)
#endif
IF (ierr/=0) CALL mp_stop( 8035 )
mp_high_watermark = MAX( mp_high_watermark, 8 * msglen )
mp_call_count( 9 ) = mp_call_count( 9 ) + 1
mp_call_sizex( 9 ) = MAX( mp_call_sizex( 9 ), msglen )
#endif
END SUBROUTINE mp_bcast_r5d
!------------------------------------------------------------------------------!
!
SUBROUTINE mp_bcast_c1(msg,source,gid)