[cig-commits] r18662 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D
dkomati1 at geodynamics.org
dkomati1 at geodynamics.org
Fri Jun 24 07:25:25 PDT 2011
Author: dkomati1
Date: 2011-06-24 07:25:25 -0700 (Fri, 24 Jun 2011)
New Revision: 18662
Modified:
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector.f90
Log:
changed MPI_ISSEND to MPI_ISEND according to a suggestion by Jesus Labarta
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube.f90 2011-06-24 13:42:09 UTC (rev 18661)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube.f90 2011-06-24 14:25:25 UTC (rev 18662)
@@ -111,7 +111,7 @@
enddo
! send buffer to central cube
receiver = receiver_cube_from_slices
- call MPI_ISSEND(buffer_slices,ndim_assemble*npoin2D_cube_from_slices, &
+ call MPI_ISEND(buffer_slices,ndim_assemble*npoin2D_cube_from_slices, &
MPI_DOUBLE_PRECISION,receiver,itag,MPI_COMM_WORLD,request_send,ier)
endif ! end sending info to central cube
@@ -158,7 +158,7 @@
!! DK DK this merged with previous statement
! buffer_all_cube_from_slices(:,:,nb_msgs_theor_in_cube) = buffer_slices2(:,:)
- call MPI_ISSEND(buffer_slices,ndim_assemble*npoin2D_cube_from_slices,MPI_DOUBLE_PRECISION,receiver_cube_from_slices, &
+ call MPI_ISEND(buffer_slices,ndim_assemble*npoin2D_cube_from_slices,MPI_DOUBLE_PRECISION,receiver_cube_from_slices, &
itag,MPI_COMM_WORLD,request_send,ier)
endif
@@ -273,7 +273,7 @@
do imsg = 1,nb_msgs_theor_in_cube-1
! send buffers to slices
receiver = sender_from_slices_to_cube(imsg)
- call MPI_ISSEND(buffer_all_cube_from_slices(:,:,imsg),ndim_assemble*npoin2D_cube_from_slices, &
+ call MPI_ISEND(buffer_all_cube_from_slices(:,:,imsg),ndim_assemble*npoin2D_cube_from_slices, &
MPI_DOUBLE_PRECISION,receiver,itag,MPI_COMM_WORLD,request_send_array(imsg),ier)
enddo
endif
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar.f90 2011-06-24 13:42:09 UTC (rev 18661)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar.f90 2011-06-24 14:25:25 UTC (rev 18662)
@@ -144,7 +144,7 @@
call MPI_IRECV(buffer_received_faces_scalar,npoin2D_xi(1),CUSTOM_MPI_TYPE,sender, &
itag,MPI_COMM_WORLD,request_receive,ier)
- call MPI_ISSEND(buffer_send_faces_scalar,npoin2D_xi(2),CUSTOM_MPI_TYPE,receiver, &
+ call MPI_ISEND(buffer_send_faces_scalar,npoin2D_xi(2),CUSTOM_MPI_TYPE,receiver, &
itag2,MPI_COMM_WORLD,request_send,ier)
iphase = iphase + 1
@@ -190,7 +190,7 @@
call MPI_IRECV(buffer_received_faces_scalar,npoin2D_xi(2),CUSTOM_MPI_TYPE,sender, &
itag,MPI_COMM_WORLD,request_receive,ier)
- call MPI_ISSEND(buffer_send_faces_scalar,npoin2D_xi(1),CUSTOM_MPI_TYPE,receiver, &
+ call MPI_ISEND(buffer_send_faces_scalar,npoin2D_xi(1),CUSTOM_MPI_TYPE,receiver, &
itag2,MPI_COMM_WORLD,request_send,ier)
iphase = iphase + 1
@@ -237,7 +237,7 @@
call MPI_IRECV(buffer_received_faces_scalar,npoin2D_eta(1),CUSTOM_MPI_TYPE,sender, &
itag,MPI_COMM_WORLD,request_receive,ier)
- call MPI_ISSEND(buffer_send_faces_scalar,npoin2D_eta(2),CUSTOM_MPI_TYPE,receiver, &
+ call MPI_ISEND(buffer_send_faces_scalar,npoin2D_eta(2),CUSTOM_MPI_TYPE,receiver, &
itag2,MPI_COMM_WORLD,request_send,ier)
iphase = iphase + 1
@@ -283,7 +283,7 @@
call MPI_IRECV(buffer_received_faces_scalar,npoin2D_eta(2),CUSTOM_MPI_TYPE,sender, &
itag,MPI_COMM_WORLD,request_receive,ier)
- call MPI_ISSEND(buffer_send_faces_scalar,npoin2D_eta(1),CUSTOM_MPI_TYPE,receiver, &
+ call MPI_ISEND(buffer_send_faces_scalar,npoin2D_eta(1),CUSTOM_MPI_TYPE,receiver, &
itag2,MPI_COMM_WORLD,request_send,ier)
iphase = iphase + 1
@@ -352,7 +352,7 @@
do ipoin2D=1,npoin2D_chunks
buffer_send_faces_scalar(ipoin2D,icount_faces) = array_val(iboolfaces(ipoin2D,icount_faces))
enddo
- call MPI_ISSEND(buffer_send_faces_scalar(:,icount_faces),npoin2D_chunks, &
+ call MPI_ISEND(buffer_send_faces_scalar(:,icount_faces),npoin2D_chunks, &
CUSTOM_MPI_TYPE,receiver,itag,MPI_COMM_WORLD,request_send_array(icount_faces),ier)
endif
enddo
@@ -426,7 +426,7 @@
do ipoin2D=1,npoin2D_chunks
buffer_send_faces_scalar(ipoin2D,icount_faces) = array_val(iboolfaces(ipoin2D,icount_faces))
enddo
- call MPI_ISSEND(buffer_send_faces_scalar(:,icount_faces),npoin2D_chunks, &
+ call MPI_ISEND(buffer_send_faces_scalar(:,icount_faces),npoin2D_chunks, &
CUSTOM_MPI_TYPE,receiver,itag,MPI_COMM_WORLD,request_send_array(icount_faces),ier)
endif
enddo
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector.f90 2011-06-24 13:42:09 UTC (rev 18661)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector.f90 2011-06-24 14:25:25 UTC (rev 18662)
@@ -183,7 +183,7 @@
call MPI_IRECV(buffer_received_faces_vector,NDIM*npoin2D_xi_all(1),CUSTOM_MPI_TYPE,sender, &
itag,MPI_COMM_WORLD,request_receive,ier)
- call MPI_ISSEND(buffer_send_faces_vector,NDIM*npoin2D_xi_all(2),CUSTOM_MPI_TYPE,receiver, &
+ call MPI_ISEND(buffer_send_faces_vector,NDIM*npoin2D_xi_all(2),CUSTOM_MPI_TYPE,receiver, &
itag2,MPI_COMM_WORLD,request_send,ier)
iphase = iphase + 1
@@ -258,7 +258,7 @@
call MPI_IRECV(buffer_received_faces_vector,NDIM*npoin2D_xi_all(2),CUSTOM_MPI_TYPE,sender, &
itag,MPI_COMM_WORLD,request_receive,ier)
- call MPI_ISSEND(buffer_send_faces_vector,NDIM*npoin2D_xi_all(1),CUSTOM_MPI_TYPE,receiver, &
+ call MPI_ISEND(buffer_send_faces_vector,NDIM*npoin2D_xi_all(1),CUSTOM_MPI_TYPE,receiver, &
itag2,MPI_COMM_WORLD,request_send,ier)
iphase = iphase + 1
@@ -329,7 +329,7 @@
call MPI_IRECV(buffer_received_faces_vector,NDIM*npoin2D_eta_all(1),CUSTOM_MPI_TYPE,sender, &
itag,MPI_COMM_WORLD,request_receive,ier)
- call MPI_ISSEND(buffer_send_faces_vector,NDIM*npoin2D_eta_all(2),CUSTOM_MPI_TYPE,receiver, &
+ call MPI_ISEND(buffer_send_faces_vector,NDIM*npoin2D_eta_all(2),CUSTOM_MPI_TYPE,receiver, &
itag2,MPI_COMM_WORLD,request_send,ier)
iphase = iphase + 1
@@ -404,7 +404,7 @@
call MPI_IRECV(buffer_received_faces_vector,NDIM*npoin2D_eta_all(2),CUSTOM_MPI_TYPE,sender, &
itag,MPI_COMM_WORLD,request_receive,ier)
- call MPI_ISSEND(buffer_send_faces_vector,NDIM*npoin2D_eta_all(1),CUSTOM_MPI_TYPE,receiver, &
+ call MPI_ISEND(buffer_send_faces_vector,NDIM*npoin2D_eta_all(1),CUSTOM_MPI_TYPE,receiver, &
itag2,MPI_COMM_WORLD,request_send,ier)
iphase = iphase + 1
@@ -524,7 +524,7 @@
buffer_send_faces_vector(3,ioffset + ipoin2D,icount_faces) = accel_inner_core(3,iboolfaces_inner_core(ipoin2D,icount_faces))
enddo
- call MPI_ISSEND(buffer_send_faces_vector(:,:,icount_faces),NDIM*npoin2D_chunks_all,CUSTOM_MPI_TYPE,receiver,itag, &
+ call MPI_ISEND(buffer_send_faces_vector(:,:,icount_faces),NDIM*npoin2D_chunks_all,CUSTOM_MPI_TYPE,receiver,itag, &
MPI_COMM_WORLD,request_send_array(icount_faces),ier)
endif
enddo
@@ -652,7 +652,7 @@
buffer_send_faces_vector(3,ioffset + ipoin2D,icount_faces) = accel_inner_core(3,iboolfaces_inner_core(ipoin2D,icount_faces))
enddo
- call MPI_ISSEND(buffer_send_faces_vector(:,:,icount_faces),NDIM*npoin2D_chunks_all,CUSTOM_MPI_TYPE,receiver,itag, &
+ call MPI_ISEND(buffer_send_faces_vector(:,:,icount_faces),NDIM*npoin2D_chunks_all,CUSTOM_MPI_TYPE,receiver,itag, &
MPI_COMM_WORLD,request_send_array(icount_faces),ier)
endif
enddo
More information about the CIG-COMMITS
mailing list