plug-ins/abinit/xmpi_bcast.finc

19 subroutine xmpi_bcast_intv(xval,master,spaceComm,ier)
30  integer,intent(inout) :: xval
39    call MPI_BCAST(xval,1,MPI_INTEGER,master,spaceComm,ier)
62 !!  xval= buffer array
70 subroutine xmpi_bcast_int1d(xval,master,spaceComm,ier)
82  integer, DEV_CONTARRD intent(inout) :: xval(:)
94    n=size(xval)
95    call MPI_BCAST(xval,n,MPI_INTEGER,master,spaceComm,ier)
117 !!  xval= buffer array
125 subroutine xmpi_bcast_int2d(xval,master,spaceComm,ier)
137  integer, DEV_CONTARRD intent(inout) :: xval(:,:)
151    n1=size(xval,dim=1)
152    n2=size(xval,dim=2)
153    call MPI_BCAST(xval,n1*n2,MPI_INTEGER,master,spaceComm,ier)
176 !!  xval= buffer array
184 subroutine xmpi_bcast_int3d(xval,master,spaceComm,ier)
197  integer, DEV_CONTARRD intent(inout) :: xval(:,:,:)
211    n1=size(xval,dim=1)
212    n2=size(xval,dim=2)
213    n3=size(xval,dim=3)
214    call MPI_BCAST(xval,n1*n2*n3,MPI_INTEGER,master,spaceComm,ier)
236 !!  xval= buffer array
245 subroutine xmpi_bcast_dpv(xval,master,spaceComm,ier)
258  real(dp),intent(inout) :: xval
268    call MPI_BCAST(xval,1,MPI_DOUBLE_PRECISION,master,spaceComm,ier)
291 !!  xval= buffer array
299 subroutine xmpi_bcast_dp1d(xval,master,spaceComm,ier)
312  real(dp), DEV_CONTARRD intent(inout) :: xval(:)
326    n=size(xval,dim=1)
327    call MPI_BCAST(xval,n,MPI_DOUBLE_PRECISION,master,spaceComm,ier)
350 !!  xval= buffer array
354 subroutine xmpi_bcast_dp2d(xval,master,spaceComm,ier)
365  real(dp), DEV_CONTARRD intent(inout) :: xval(:,:)
379    n1=size(xval,dim=1)
380    n2=size(xval,dim=2)
381    call MPI_BCAST(xval,n1*n2,MPI_DOUBLE_PRECISION,master,spaceComm,ier)
404 !!  xval= buffer array
408 subroutine xmpi_bcast_dp3d(xval,master,spaceComm,ier)
421  real(dp), DEV_CONTARRD intent(inout) :: xval(:,:,:)
435    n1=size(xval,dim=1)
436    n2=size(xval,dim=2)
437    n3=size(xval,dim=3)
438    call MPI_BCAST(xval,n1*n2*n3,MPI_DOUBLE_PRECISION,master,spaceComm,ier)
461 !!  xval= buffer array
465 subroutine xmpi_bcast_dp4d(xval,master,spaceComm,ier)
476  real(dp), DEV_CONTARRD intent(inout) :: xval(:,:,:,:)
490    n1=size(xval,dim=1)
491    n2=size(xval,dim=2)
492    n3=size(xval,dim=3)
493    n4=size(xval,dim=4)
494    call MPI_BCAST(xval,n1*n2*n3*n4,MPI_DOUBLE_PRECISION,master,spaceComm,ier)
517 !!  xval= buffer array
521 subroutine xmpi_bcast_spv(xval,master,spaceComm,ier)
534  real(sp),intent(inout) :: xval
543    call MPI_BCAST(xval,1,MPI_REAL,master,spaceComm,ier)
566 !!  xval= buffer array
570 subroutine xmpi_bcast_sp1d(xval,master,spaceComm,ier)
582  real(sp), DEV_CONTARRD intent(inout) :: xval(:)
596    n=size(xval,dim=1)
597    call MPI_BCAST(xval,n,MPI_REAL,master,spaceComm,ier)
620 !!  xval= buffer array
624 subroutine xmpi_bcast_sp2d(xval,master,spaceComm,ier)
637  real(sp), DEV_CONTARRD intent(inout) :: xval(:,:)
651    n1=size(xval,dim=1)
652    n2=size(xval,dim=2)
653    call MPI_BCAST(xval,n1*n2,MPI_REAL,master,spaceComm,ier)
676 !!  xval= buffer array
680 subroutine xmpi_bcast_sp3d(xval,master,spaceComm,ier)
693  real(sp), DEV_CONTARRD intent(inout) :: xval(:,:,:)
707    n1=size(xval,dim=1)
708    n2=size(xval,dim=2)
709    n3=size(xval,dim=3)
710    call MPI_BCAST(xval,n1*n2*n3,MPI_REAL,master,spaceComm,ier)
733 !!  xval= buffer array
737 subroutine xmpi_bcast_sp4d(xval,master,spaceComm,ier)
750  real(sp), DEV_CONTARRD intent(inout) :: xval(:,:,:,:)
764    n1=size(xval,dim=1)
765    n2=size(xval,dim=2)
766    n3=size(xval,dim=3)
767    n4=size(xval,dim=4)
768    call MPI_BCAST(xval,n1*n2*n3*n4,MPI_REAL,master,spaceComm,ier)
791 !!  xval= buffer array
799 subroutine xmpi_bcast_cplxv(xval,master,spaceComm,ier)
812  complex(spc),intent(inout) :: xval
823    call MPI_BCAST(xval,1,MPI_COMPLEX,master,spaceComm,ier)
846 !!  xval= buffer array
854 subroutine xmpi_bcast_cplx1d(xval,master,spaceComm,ier)
867  complex(spc), DEV_CONTARRD intent(inout) :: xval(:)
881    n=size(xval(:))
882    call MPI_BCAST(xval,n,MPI_COMPLEX,master,spaceComm,ier)
905 !!  xval= buffer array
909 subroutine xmpi_bcast_cplx2d(xval,master,spaceComm,ier)
920  complex(spc), DEV_CONTARRD intent(inout) :: xval(:,:)
934    n1=size(xval,dim=1)
935    n2=size(xval,dim=2)
936    call MPI_BCAST(xval,n1*n2,MPI_COMPLEX,master,spaceComm,ier)
959 !!  xval= buffer array
963 subroutine xmpi_bcast_cplx3d(xval,master,spaceComm,ier)
976  complex(spc), DEV_CONTARRD intent(inout) :: xval(:,:,:)
990    n1=size(xval,dim=1)
991    n2=size(xval,dim=2)
992    n3=size(xval,dim=3)
993    call MPI_BCAST(xval,n1*n2*n3,MPI_COMPLEX,master,spaceComm,ier)
1016 !!  xval= buffer array
1019 subroutine xmpi_bcast_cplx4d(xval,master,spaceComm,ier)
1030  complex(spc), DEV_CONTARRD intent(inout) :: xval(:,:,:,:)
1044    n1=size(xval,dim=1)
1045    n2=size(xval,dim=2)
1046    n3=size(xval,dim=3)
1047    n4=size(xval,dim=4)
1048    call MPI_BCAST(xval,n1*n2*n3*n4,MPI_COMPLEX,master,spaceComm,ier)
1071 !!  xval= buffer array
1075 subroutine xmpi_bcast_dcv(xval,master,spaceComm,ier)
1088  complex(dpc),intent(inout):: xval
1097    call MPI_BCAST(xval,1,MPI_DOUBLE_COMPLEX,master,spaceComm,ier)
1120 !!  xval= buffer array
1124 subroutine xmpi_bcast_dc1d(xval,master,spaceComm,ier)
1136  complex(dpc), DEV_CONTARRD intent(inout):: xval(:)
1150    n=size(xval(:))
1151    call MPI_BCAST(xval,n,MPI_DOUBLE_COMPLEX,master,spaceComm,ier)
1174 !!  xval= buffer array
1179 subroutine xmpi_bcast_dc2d(xval,master,spaceComm,ier)
1190  complex(dpc), DEV_CONTARRD intent(inout):: xval(:,:)
1204    n1=size(xval,dim=1)
1205    n2=size(xval,dim=2)
1206    call MPI_BCAST(xval,n1*n2,MPI_DOUBLE_COMPLEX,master,spaceComm,ier)
1229 !!  xval= buffer array
1233 subroutine xmpi_bcast_dc3d(xval,master,spaceComm,ier)
1245  complex(dpc), DEV_CONTARRD intent(inout):: xval(:,:,:)
1259    n1=size(xval,dim=1)
1260    n2=size(xval,dim=2)
1261    n3=size(xval,dim=3)
1262    call MPI_BCAST(xval,n1*n2*n3,MPI_DOUBLE_COMPLEX,master,spaceComm,ier)
1285 !!  xval= buffer array
1289 subroutine xmpi_bcast_dc4d(xval,master,spaceComm,ier)
1300  complex(dpc), DEV_CONTARRD intent(inout) :: xval(:,:,:,:)
1314    n1=size(xval,dim=1)
1315    n2=size(xval,dim=2)
1316    n3=size(xval,dim=3)
1317    n4=size(xval,dim=4)
1318    call MPI_BCAST(xval,n1*n2*n3*n4,MPI_DOUBLE_COMPLEX,master,spaceComm,ier)
1341 !!  xval= buffer array
1345 subroutine xmpi_bcast_ch0d(xval,master,spaceComm,ier)
1356  character(len=*),intent(inout) :: xval
1371    if (rank==master) nch=len_trim(xval)
1373    call MPI_BCAST(xval,nch,MPI_CHARACTER,master,spaceComm,ier)
1374    if (rank/=master) xval(nch+1:)=''
1397 !!  xval= buffer array
1400 subroutine xmpi_bcast_ch1d(xval,master,spaceComm,ier)
1411  Character(len=*), DEV_CONTARRD intent(inout) :: xval(:)
1426    do ii=1,size(xval)
1427      nch=nch+len(xval(ii))
1429    call MPI_BCAST(xval,nch,MPI_CHARACTER,master,spaceComm,ier)
1454 subroutine xmpi_bcast_log0d(xval,master,spaceComm,ier)
1467  logical,intent(inout) :: xval
1476    call MPI_BCAST(xval,1,MPI_LOGICAL,master,spaceComm,ier)
1499 !!  xval= buffer array
1503 subroutine xmpi_bcast_coeffi2_1d(xval,master,spaceComm,ier)
1514  type(coeffi2_type), intent(inout) :: xval(:)
1531 !  Broadcast xval%value sizes
1532    n0=size(xval)
1537        siz(1,ii)=size(xval(ii)%value,1)
1538        siz(2,ii)=size(xval(ii)%value,2)
1555          mpibuf(jj+1:jj+n1)=xval(ii)%value(1:n1,kk)
1568      if (.not.allocated(xval(ii)%value)) then
1569        ABI_STAT_ALLOCATE(xval(ii)%value,(n1,n2), ier)
1570        if (ier/= 0) call xmpi_abort(msg='error allocating xval%value in xmpi_bcast')
1573        xval(ii)%value(1:n1,kk)=mpibuf(jj+1:jj+n1)
1602 !!  xval= buffer array
1606 subroutine xmpi_bcast_coeff2_1d(xval,master,spaceComm,ier)
1617  type(coeff2_type), intent(inout) :: xval(:)
1635 !  Broadcast xval%value sizes
1636    n0=size(xval)
1641        siz(1,ii)=size(xval(ii)%value,1)
1642        siz(2,ii)=size(xval(ii)%value,2)
1659          mpibuf(jj+1:jj+n1)=xval(ii)%value(1:n1,kk)
1672      if (.not.allocated(xval(ii)%value)) then
1673        ABI_STAT_ALLOCATE(xval(ii)%value,(n1,n2), ier)
1674        if (ier/= 0) call xmpi_abort(msg='error allocating xval%value in xmpi_bcast')
1677        xval(ii)%value(1:n1,kk)=mpibuf(jj+1:jj+n1)