[cig-commits] r22408 - seismo/3D/SPECFEM3D/trunk/src/shared

[elliott.sales.de.andrade at geodynamics.org]

Author: elliott.sales.de.andrade
Date: 2013-06-24 13:06:39 -0700 (Mon, 24 Jun 2013)
New Revision: 22408

Modified:
   seismo/3D/SPECFEM3D/trunk/src/shared/serial.f90
Log:
Fix serial compile.

The sum_all_all_cr subroutine was missing from serial.f90.

Modified: seismo/3D/SPECFEM3D/trunk/src/shared/serial.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/serial.f90	2013-06-24 18:45:20 UTC (rev 22407)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/serial.f90	2013-06-24 20:06:39 UTC (rev 22408)
@@ -433,6 +433,22 @@
 !----
 !
 
+  subroutine sum_all_all_cr(sendbuf, recvbuf)
+
+  implicit none
+
+  include "constants.h"
+
+  real(kind=CUSTOM_REAL) sendbuf, recvbuf
+
+  recvbuf = sendbuf
+
+  end subroutine sum_all_all_cr
+
+!
+!----
+!
+
   subroutine sum_all_i(sendbuf, recvbuf)
 
   implicit none