[cig-commits] r13005 - seismo/3D/SPECFEM3D/branches/update_temporary

[nlegoff at geodynamics.org]

Author: nlegoff
Date: 2008-10-08 15:50:28 -0700 (Wed, 08 Oct 2008)
New Revision: 13005

Modified:
   seismo/3D/SPECFEM3D/branches/update_temporary/parallel.f90
Log:
added gatherv for movie surface ans shakemap.

Modified: seismo/3D/SPECFEM3D/branches/update_temporary/parallel.f90
===================================================================
--- seismo/3D/SPECFEM3D/branches/update_temporary/parallel.f90	2008-10-08 21:44:16 UTC (rev 13004)
+++ seismo/3D/SPECFEM3D/branches/update_temporary/parallel.f90	2008-10-08 22:50:28 UTC (rev 13005)
@@ -191,6 +191,33 @@
 !----
 !
 
+  subroutine gatherv_all_cr(sendbuf, sendcnt, recvbuf, recvcount, recvoffset,recvcounttot, NPROC)
+
+  implicit none
+
+! standard include of the MPI library
+  include 'mpif.h'
+
+  include "constants.h"
+  include "precision.h"
+
+  integer sendcnt,recvcounttot,NPROC
+  integer, dimension(NPROC) :: recvcount,recvoffset
+  real(kind=CUSTOM_REAL), dimension(sendcnt) :: sendbuf
+  real(kind=CUSTOM_REAL), dimension(recvcounttot) :: recvbuf
+
+  integer ier
+
+  call MPI_GATHERV(sendbuf,sendcnt,CUSTOM_MPI_TYPE, &
+                  recvbuf,recvcount,recvoffset,CUSTOM_MPI_TYPE, &
+                  0,MPI_COMM_WORLD,ier)
+
+  end subroutine gatherv_all_cr
+
+!
+!----
+!
+
   subroutine init()
 
   implicit none