plug-ins/abinit/xmpi_sum_master.finc

37 !!  xval= buffer array
41 subroutine xmpi_sum_master_int(xval,master,spaceComm,ier)
53  integer,intent(inout) :: xval
71 !    Accumulate xval on all proc. in spaceComm
72      call MPI_REDUCE(xval,xsum,1,MPI_INTEGER,MPI_SUM,master,spaceComm,ier)
73      xval = xsum
96 !!  xval= buffer array
100 subroutine xmpi_sum_master_int2d(xval,master,spaceComm,ier)
112  integer, DEV_CONTARRD intent(inout) :: xval(:,:)
130      n1 = size(xval,dim=1)
131      n2 = size(xval,dim=2)
132 !    Accumulate xval on all proc. in spaceComm
135      call MPI_reduce(xval,xsum,n1*n2,MPI_INTEGER,MPI_SUM,master,spaceComm,ier)
136      xval = xsum
161 !!  xval= buffer array
165 subroutine xmpi_sum_master_dp1d(xval,master,spaceComm,ier)
177  real(dp), DEV_CONTARRD intent(inout) :: xval(:)
196      n1 = size(xval,dim=1)
197 !    Accumulate xval on all proc. in spaceComm
200      call MPI_REDUCE(xval,xsum,n1,MPI_DOUBLE_PRECISION,MPI_SUM,master,spaceComm,ier)
201      xval (:) = xsum(:)
225 !!  xval= buffer array
229 subroutine xmpi_sum_master_dp2d(xval,master,spaceComm,ier)
241  real(dp), DEV_CONTARRD intent(inout) :: xval(:,:)
260      n1 = size(xval,dim=1)
261      n2 = size(xval,dim=2)
262 !    Accumulate xval on all proc. in spaceComm
265      call MPI_REDUCE(xval,xsum,n1*n2,MPI_DOUBLE_PRECISION,MPI_SUM,master,spaceComm,ier)
266      xval (:,:) = xsum(:,:)
290 !!  xval= buffer array
293 subroutine xmpi_sum_master_dp3d(xval,master,spaceComm,ier)
305  real(dp), DEV_CONTARRD intent(inout) :: xval(:,:,:)
324      n1 = size(xval,dim=1)
325      n2 = size(xval,dim=2)
326      n3 = size(xval,dim=3)
327 !    Accumulate xval on all proc. in spaceComm
330      call MPI_REDUCE(xval,xsum,n1*n2*n3,MPI_DOUBLE_PRECISION,MPI_SUM,master,spaceComm,ier)
331      xval (:,:,:) = xsum(:,:,:)
356 !!  xval= buffer array
359 subroutine xmpi_sum_master_dp4d(xval,master,spaceComm,ier)
371  real(dp), DEV_CONTARRD intent(inout) :: xval(:,:,:,:)
390      n1 = size(xval,dim=1)
391      n2 = size(xval,dim=2)
392      n3 = size(xval,dim=3)
393      n4 = size(xval,dim=4)
394 !    Accumulate xval on all proc. in spaceComm
397      call MPI_REDUCE(xval,xsum,n1*n2*n3*n4,MPI_DOUBLE_PRECISION,MPI_SUM,master,spaceComm,ier)
398      xval (:,:,:,:) = xsum(:,:,:,:)
423 !!  xval= buffer array
426 subroutine xmpi_sum_master_dp5d(xval,master,spaceComm,ier)
438  real(dp), DEV_CONTARRD intent(inout) :: xval(:,:,:,:,:)
457      n1 = size(xval,dim=1)
458      n2 = size(xval,dim=2)
459      n3 = size(xval,dim=3)
460      n4 = size(xval,dim=4)
461      n5 = size(xval,dim=5)
462 !    Accumulate xval on all proc. in spaceComm
465      call MPI_reduce(xval,xsum,n1*n2*n3*n4*n5,MPI_DOUBLE_PRECISION,MPI_SUM,master,spaceComm,ier)
466      xval (:,:,:,:,:) = xsum(:,:,:,:,:)
491 !!  xval= buffer array
494 subroutine xmpi_sum_master_dp6d(xval,master,spaceComm,ier)
506  real(dp), DEV_CONTARRD intent(inout) :: xval(:,:,:,:,:,:)
525      n1 = size(xval,dim=1)
526      n2 = size(xval,dim=2)
527      n3 = size(xval,dim=3)
528      n4 = size(xval,dim=4)
529      n5 = size(xval,dim=5)
530      n6 = size(xval,dim=6)
531 !    Accumulate xval on all proc. in spaceComm
534      call MPI_reduce(xval,xsum,n1*n2*n3*n4*n5*n6,MPI_DOUBLE_PRECISION,MPI_SUM,master,spaceComm,ier)
535      xval (:,:,:,:,:,:) = xsum(:,:,:,:,:,:)
560 !!  xval= buffer array
563 subroutine xmpi_sum_master_dp7d(xval,master,spaceComm,ier)
575  real(dp), DEV_CONTARRD intent(inout) :: xval(:,:,:,:,:,:,:)
594      n1 = size(xval,dim=1)
595      n2 = size(xval,dim=2)
596      n3 = size(xval,dim=3)
597      n4 = size(xval,dim=4)
598      n5 = size(xval,dim=5)
599      n6 = size(xval,dim=6)
600      n7 = size(xval,dim=7)
601 !    Accumulate xval on all proc. in spaceComm
604 …  call MPI_reduce(xval,xsum,n1*n2*n3*n4*n5*n6*n7,MPI_DOUBLE_PRECISION,MPI_SUM,master,spaceComm,ier)
605      xval (:,:,:,:,:,:,:) = xsum(:,:,:,:,:,:,:)
630 !!  xval= buffer array
634 subroutine xmpi_sum_master_int4d(xval,master,spaceComm,ier)
646  integer, DEV_CONTARRD intent(inout) :: xval(:,:,:,:)
665      n1 = size(xval,dim=1)
666      n2 = size(xval,dim=2)
667      n3 = size(xval,dim=3)
668      n4 = size(xval,dim=4)
669 !    Accumulate xval on all proc. in spaceComm
672      call MPI_reduce(xval,xsum,n1*n2*n3*n4,MPI_INTEGER,MPI_SUM,master,spaceComm,ier)
673      xval (:,:,:,:) = xsum(:,:,:,:)
698 !!  xval= buffer array
702 subroutine xmpi_sum_master_c1cplx(xval,master,spaceComm,ier)
714  complex(spc), DEV_CONTARRD intent(inout) :: xval(:)
732      n1 = size(xval,dim=1)
733 !    Collect xval from processors on master in spaceComm
736      call MPI_REDUCE(xval,xsum,n1,MPI_COMPLEX,MPI_SUM,master,spaceComm,ier)
737      xval = xsum
762 !!  xval= buffer array
766 subroutine xmpi_sum_master_c2cplx(xval,master,spaceComm,ier)
778  complex(spc), DEV_CONTARRD intent(inout) :: xval(:,:)
797      n1 = size(xval,dim=1)
798      n2 = size(xval,dim=2)
799 !    Collect xval from processors on master in spaceComm
802      call MPI_REDUCE(xval,xsum,n1*n2,MPI_COMPLEX,MPI_SUM,master,spaceComm,ier)
803      xval (:,:) = xsum(:,:)
828 !!  xval= buffer array
832 subroutine xmpi_sum_master_c3cplx(xval,master,spaceComm,ier)
844  complex(spc), DEV_CONTARRD intent(inout) :: xval(:,:,:)
863      n1 = size(xval,dim=1)
864      n2 = size(xval,dim=2)
865      n3 = size(xval,dim=3)
866 !    Collect xval from processors on master in spaceComm
869      call MPI_REDUCE(xval,xsum,n1*n2*n3,MPI_COMPLEX,MPI_SUM,master,spaceComm,ier)
870      xval (:,:,:) = xsum(:,:,:)
895 !!  xval= buffer array
898 subroutine xmpi_sum_master_c4cplx(xval,master,spaceComm,ier)
910  complex(spc), DEV_CONTARRD intent(inout) :: xval(:,:,:,:)
929      n1 = size(xval,dim=1)
930      n2 = size(xval,dim=2)
931      n3 = size(xval,dim=3)
932      n4 = size(xval,dim=4)
933 !    Collect xval from processors on master in spaceComm
936      call MPI_REDUCE(xval,xsum,n1*n2*n3*n4,MPI_COMPLEX,MPI_SUM,master,spaceComm,ier)
937      xval (:,:,:,:) = xsum(:,:,:,:)
963 !!  xval= buffer array
967 subroutine xmpi_sum_master_c5cplx(xval,master,spaceComm,ier)
978  complex(spc), DEV_CONTARRD intent(inout) :: xval(:,:,:,:,:)
997      n1 = size(xval,dim=1)
998      n2 = size(xval,dim=2)
999      n3 = size(xval,dim=3)
1000      n4 = size(xval,dim=4)
1001      n5 = size(xval,dim=5)
1002 !    Collect xval from processors on master in spaceComm
1005      call MPI_REDUCE(xval,xsum,n1*n2*n3*n4*n5,MPI_COMPLEX,MPI_SUM,master,spaceComm,ier)
1006      xval = xsum
1030 !!  xval= buffer array
1034 subroutine xmpi_sum_master_c1dpc(xval,master,spaceComm,ier)
1046  complex(dpc), DEV_CONTARRD intent(inout) :: xval(:)
1065      n1 = size(xval,dim=1)
1066 !    Collect xval from processors on master in spaceComm
1069      call MPI_REDUCE(xval,xsum,n1,MPI_DOUBLE_COMPLEX,MPI_SUM,master,spaceComm,ier)
1070      xval (:) = xsum(:)
1095 !!  xval= buffer array
1098 subroutine xmpi_sum_master_c2dpc(xval,master,spaceComm,ier)
1110  complex(dpc), DEV_CONTARRD intent(inout) :: xval(:,:)
1129      n1 = size(xval,dim=1)
1130      n2 = size(xval,dim=2)
1131 !    Collect xval from processors on master in spaceComm
1134      call MPI_REDUCE(xval,xsum,n1*n2,MPI_DOUBLE_COMPLEX,MPI_SUM,master,spaceComm,ier)
1135      xval (:,:) = xsum(:,:)
1160 !!  xval= buffer array
1163 subroutine xmpi_sum_master_c3dpc(xval,master,spaceComm,ier)
1175  complex(dpc), DEV_CONTARRD intent(inout) :: xval(:,:,:)
1194      n1 = size(xval,dim=1)
1195      n2 = size(xval,dim=2)
1196      n3 = size(xval,dim=3)
1197 !    Collect xval from processors on master in spaceComm
1200      call MPI_REDUCE(xval,xsum,n1*n2*n3,MPI_DOUBLE_COMPLEX,MPI_SUM,master,spaceComm,ier)
1201      xval (:,:,:) = xsum(:,:,:)
1225 !!  xval= buffer array
1228 subroutine xmpi_sum_master_c4dpc(xval,master,spaceComm,ier)
1240  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      n4 = size(xval,dim=4)
1263 !    Collect xval from processors on master in spaceComm
1266      call MPI_REDUCE(xval,xsum,n1*n2*n3*n4,MPI_DOUBLE_COMPLEX,MPI_SUM,master,spaceComm,ier)
1267      xval (:,:,:,:) = xsum(:,:,:,:)
1291 !!  xval= buffer array
1294 subroutine xmpi_sum_master_c5dpc(xval,master,spaceComm,ier)
1306  complex(dpc), DEV_CONTARRD intent(inout) :: xval(:,:,:,:,:)
1325      n1 = size(xval,dim=1)
1326      n2 = size(xval,dim=2)
1327      n3 = size(xval,dim=3)
1328      n4 = size(xval,dim=4)
1329      n5 = size(xval,dim=5)
1330 !    Collect xval from processors on master in spaceComm
1333      call MPI_REDUCE(xval,xsum,n1*n2*n3*n4*n5,MPI_DOUBLE_COMPLEX,MPI_SUM,master,spaceComm,ier)
1334      xval (:,:,:,:,:) = xsum(:,:,:,:,:)