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

[liuqy at geodynamics.org]

Author: liuqy
Date: 2011-10-28 07:24:18 -0700 (Fri, 28 Oct 2011)
New Revision: 19122

Modified:
   seismo/3D/SPECFEM3D/trunk/src/shared/serial.f90
Log:
To compile the serial version of the ocde, add send_dp() and recv_dp() subroutines for serial.o used in locate_receivers.f90.



Modified: seismo/3D/SPECFEM3D/trunk/src/shared/serial.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/serial.f90	2011-10-28 11:32:18 UTC (rev 19121)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/serial.f90	2011-10-28 14:24:18 UTC (rev 19122)
@@ -658,8 +658,39 @@
 !
 !
 !----
+!  the following two subroutines are needed by locate_receivers.f90
+  subroutine send_dp(sendbuf, sendcount, dest, sendtag)
+
+  implicit none
+  include "constants.h"
+
+  integer dest,sendtag
+  integer sendcount
+  real(kind=CUSTOM_REAL),dimension(sendcount):: sendbuf
+  
+  stop 'send_dp not implemented for serial code'
+
+  end subroutine send_dp
 !
+!----
+!
+  subroutine recv_dp(recvbuf, recvcount, dest, recvtag)
 
+  implicit none
+  include "constants.h"
+
+  integer dest,recvtag
+  integer recvcount
+  real(kind=CUSTOM_REAL),dimension(recvcount):: recvbuf
+
+  stop 'recv_dp not implemented for parallel code'
+
+  end subroutine recv_dp
+
+!
+!----
+!
+
   subroutine sendv_cr(sendbuf, sendcount, dest, sendtag)
 
   implicit none