[cig-commits] [commit] Hiro_latest: Replace MPI_INTEGER and MPI_DOUBLE_PRECISION to wrapper (63f3cf8)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Mon Nov 18 16:20:43 PST 2013
Repository : ssh://geoshell/calypso
On branch : Hiro_latest
Link : https://github.com/geodynamics/calypso/compare/93e9f8f974c7a247c8f02e54ec18de063f86c8fb...3c548304673360ddedd7d68c8095b3fb74a2b9ce
>---------------------------------------------------------------
commit 63f3cf842f6aa5a375008addcc6109be31ce00f7
Author: Hiroaki Matsui <h_kemono at mac.com>
Date: Sat Sep 28 20:16:44 2013 -0700
Replace MPI_INTEGER and MPI_DOUBLE_PRECISION to wrapper
>---------------------------------------------------------------
63f3cf842f6aa5a375008addcc6109be31ce00f7
src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR.f90 | 8 ++++----
src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_3.f90 | 8 ++++----
src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_6.f90 | 4 ++--
src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_N.f90 | 8 ++++----
src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_int.f90 | 4 ++--
src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR.f90 | 4 ++--
src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_2.f90 | 4 ++--
src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_3.f90 | 4 ++--
src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_6.f90 | 4 ++--
src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_N.f90 | 4 ++--
src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_int.f90 | 4 ++--
src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev.f90 | 4 ++--
.../PARALLEL_src/COMM_src/spherical_SR_rev_2.f90 | 4 ++--
.../PARALLEL_src/COMM_src/spherical_SR_rev_3.f90 | 4 ++--
.../PARALLEL_src/COMM_src/spherical_SR_rev_6.f90 | 4 ++--
.../PARALLEL_src/COMM_src/spherical_SR_rev_N.f90 | 4 ++--
.../PARALLEL_src/COMM_src/spherical_SR_rev_int.f90 | 4 ++--
.../PARALLEL_src/SPH_SHELL_src/spherical_SRs.f90 | 4 ++--
.../PARALLEL_src/SPH_SHELL_src/spherical_SRs_2.f90 | 4 ++--
.../PARALLEL_src/SPH_SHELL_src/spherical_SRs_3.f90 | 4 ++--
.../PARALLEL_src/SPH_SHELL_src/spherical_SRs_6.f90 | 4 ++--
.../PARALLEL_src/SPH_SHELL_src/spherical_SRs_N.f90 | 4 ++--
.../PARALLEL_src/SPH_SHELL_src/spherical_SRs_int.f90 | 4 ++--
23 files changed, 52 insertions(+), 52 deletions(-)
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR.f90
index 3fe0f69..478f2b4 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR.f90
@@ -94,7 +94,7 @@
enddo
istart= STACK_EXPORT(neib-1) + 1
inum = STACK_EXPORT(neib ) - STACK_EXPORT(neib-1)
- call MPI_ISEND (WS(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_ISEND (WS(istart), inum, CALYPSO_REAL, &
& NEIBPE(neib), 0, CALYPSO_COMM, &
& req1(neib), ierr)
enddo
@@ -105,7 +105,7 @@
do neib= 1, NEIBPETOT
istart= STACK_IMPORT(neib-1) + 1
inum = STACK_IMPORT(neib ) - STACK_IMPORT(neib-1)
- call MPI_IRECV (WR(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_IRECV (WR(istart), inum, CALYPSO_REAL, &
& NEIBPE(neib), 0, CALYPSO_COMM, &
& req2(neib), ierr)
enddo
@@ -166,7 +166,7 @@
enddo
istart= 3 * STACK_EXPORT(neib-1) + 1
inum = 3 * ( STACK_EXPORT(neib ) - STACK_EXPORT(neib-1) )
- call MPI_ISEND (WS(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_ISEND (WS(istart), inum, CALYPSO_REAL, &
& NEIBPE(neib), 0, CALYPSO_COMM, &
& req1(neib), ierr)
enddo
@@ -177,7 +177,7 @@
do neib= 1, NEIBPETOT
istart= 3 * STACK_IMPORT(neib-1) + 1
inum = 3 * ( STACK_IMPORT(neib ) - STACK_IMPORT(neib-1) )
- call MPI_IRECV (WR(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_IRECV (WR(istart), inum, CALYPSO_REAL, &
& NEIBPE(neib), 0, CALYPSO_COMM, &
& req2(neib), ierr)
enddo
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_3.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_3.f90
index 48aedca..59e51cf 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_3.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_3.f90
@@ -99,7 +99,7 @@
enddo
istart= 3 * STACK_EXPORT(neib-1) + 1
inum = 3 * ( STACK_EXPORT(neib ) - STACK_EXPORT(neib-1) )
- call MPI_ISEND(WS(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_ISEND(WS(istart), inum, CALYPSO_REAL, &
& NEIBPE(neib), 0, CALYPSO_COMM, req1(neib), ierr)
enddo
@@ -108,7 +108,7 @@
do neib= 1, NEIBPETOT
istart= 3 * STACK_IMPORT(neib-1) + 1
inum = 3 * ( STACK_IMPORT(neib ) - STACK_IMPORT(neib-1) )
- call MPI_IRECV(WR(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_IRECV(WR(istart), inum, CALYPSO_REAL, &
& NEIBPE(neib), 0, CALYPSO_COMM, req2(neib), ierr)
enddo
@@ -178,7 +178,7 @@
enddo
istart= 9 * STACK_EXPORT(neib-1) + 1
inum = 9 * (STACK_EXPORT(neib ) - STACK_EXPORT(neib-1))
- call MPI_ISEND(WS(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_ISEND(WS(istart), inum, CALYPSO_REAL, &
& NEIBPE(neib), 0, CALYPSO_COMM, req1(neib), ierr)
enddo
@@ -187,7 +187,7 @@
do neib= 1, NEIBPETOT
istart= 9 * STACK_IMPORT(neib-1) + 1
inum = 9 * ( STACK_IMPORT(neib ) - STACK_IMPORT(neib-1) )
- call MPI_IRECV(WR(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_IRECV(WR(istart), inum, CALYPSO_REAL, &
& NEIBPE(neib), 0, CALYPSO_COMM, req2(neib), ierr)
enddo
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_6.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_6.f90
index bc9cea1..212c907 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_6.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_6.f90
@@ -89,7 +89,7 @@
WS(6*k-1)= X(ii-1)
WS(6*k )= X(ii )
enddo
- call MPI_ISEND(WS(6*istart+1), 6*inum,MPI_DOUBLE_PRECISION, &
+ call MPI_ISEND(WS(6*istart+1), 6*inum,CALYPSO_REAL, &
& NEIBPE(neib), 0, CALYPSO_COMM, req1(neib), ierr)
enddo
@@ -98,7 +98,7 @@
do neib= 1, NEIBPETOT
istart= STACK_IMPORT(neib-1)
inum = STACK_IMPORT(neib ) - istart
- call MPI_IRECV(WR(6*istart+1), 6*inum, MPI_DOUBLE_PRECISION, &
+ call MPI_IRECV(WR(6*istart+1), 6*inum, CALYPSO_REAL, &
& NEIBPE(neib), 0, CALYPSO_COMM, req2(neib), ierr)
enddo
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_N.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_N.f90
index 744675c..67880a2 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_N.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_N.f90
@@ -99,7 +99,7 @@
!
istart= NB * STACK_EXPORT(neib-1) + 1
inum = NB * (STACK_EXPORT(neib ) - STACK_EXPORT(neib-1) )
- call MPI_ISEND(WS(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_ISEND(WS(istart), inum, CALYPSO_REAL, &
& NEIBPE(neib), 0, CALYPSO_COMM, req1(neib), ierr)
end do
@@ -108,7 +108,7 @@
do neib= 1, NEIBPETOT
istart= NB * STACK_IMPORT(neib-1) + 1
inum = NB * (STACK_IMPORT(neib ) - STACK_IMPORT(neib-1) )
- call MPI_IRECV(WR(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_IRECV(WR(istart), inum, CALYPSO_REAL, &
& NEIBPE(neib), 0, CALYPSO_COMM, req2(neib), ierr)
enddo
@@ -183,7 +183,7 @@
!
istart= 3*NB * STACK_EXPORT(neib-1) + 1
inum = 3*NB * (STACK_EXPORT(neib ) - STACK_EXPORT(neib-1) )
- call MPI_ISEND(WS(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_ISEND(WS(istart), inum, CALYPSO_REAL, &
& NEIBPE(neib), 0, CALYPSO_COMM, req1(neib), ierr)
end do
@@ -192,7 +192,7 @@
do neib= 1, NEIBPETOT
istart= 3*NB * STACK_IMPORT(neib-1) + 1
inum = 3*NB * (STACK_IMPORT(neib ) - STACK_IMPORT(neib-1) )
- call MPI_IRECV(WR(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_IRECV(WR(istart), inum, CALYPSO_REAL, &
& NEIBPE(neib), 0, CALYPSO_COMM, req2(neib), ierr)
enddo
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_int.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_int.f90
index 732f045..47b28f9 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_int.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/solver_SR_int.f90
@@ -83,7 +83,7 @@
do k= istart+1, istart+inum
iWS(k)= iX(NOD_EXPORT(k))
enddo
- call MPI_ISEND (iWS(istart+1), inum, MPI_INTEGER, &
+ call MPI_ISEND (iWS(istart+1), inum, CALYPSO_INTEGER, &
& NEIBPE(neib), 0, CALYPSO_COMM, &
& req1(neib), ierr)
enddo
@@ -94,7 +94,7 @@
do neib= 1, NEIBPETOT
istart= STACK_IMPORT(neib-1)
inum = STACK_IMPORT(neib ) - istart
- call MPI_IRECV (iWR(istart+1), inum, MPI_INTEGER, &
+ call MPI_IRECV (iWR(istart+1), inum, CALYPSO_INTEGER, &
& NEIBPE(neib), 0, CALYPSO_COMM, &
& req2(neib), ierr)
enddo
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR.f90
index c288c60..117e373 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR.f90
@@ -113,7 +113,7 @@
do neib = 1, ncomm_send
istart= istack_send(neib-1) + 1
inum = (istack_send(neib ) - istack_send(neib-1))
- call MPI_ISEND(WS(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_ISEND(WS(istart), inum, CALYPSO_REAL, &
& id_pe_send(neib), 0, CALYPSO_COMM, req1(neib), ierr)
end do
!C
@@ -122,7 +122,7 @@
do neib= 1, ncomm_recv
istart= istack_recv(neib-1) + 1
inum = (istack_recv(neib ) - istack_recv(neib-1))
- call MPI_IRECV(WR(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_IRECV(WR(istart), inum, CALYPSO_REAL, &
& id_pe_recv(neib), 0, CALYPSO_COMM, req2(neib), ierr)
end do
!
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_2.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_2.f90
index 8df28a4..24d2a1b 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_2.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_2.f90
@@ -113,7 +113,7 @@
do neib = 1, ncomm_send
istart= itwo * istack_send(neib-1) + 1
inum = itwo * (istack_send(neib ) - istack_send(neib-1))
- call MPI_ISEND(WS(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_ISEND(WS(istart), inum, CALYPSO_REAL, &
& id_pe_send(neib), 0, CALYPSO_COMM, req1(neib), ierr)
end do
!C
@@ -122,7 +122,7 @@
do neib= 1, ncomm_recv
istart= itwo * istack_recv(neib-1) + 1
inum = itwo * (istack_recv(neib ) - istack_recv(neib-1))
- call MPI_IRECV(WR(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_IRECV(WR(istart), inum, CALYPSO_REAL, &
& id_pe_recv(neib), 0, CALYPSO_COMM, req2(neib), ierr)
end do
!
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_3.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_3.f90
index 91b60fc..d5cf0ba 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_3.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_3.f90
@@ -115,7 +115,7 @@
do neib = 1, ncomm_send
istart= ithree * istack_send(neib-1) + 1
inum = ithree * (istack_send(neib ) - istack_send(neib-1))
- call MPI_ISEND(WS(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_ISEND(WS(istart), inum, CALYPSO_REAL, &
& id_pe_send(neib), 0, CALYPSO_COMM, req1(neib), ierr)
end do
!C
@@ -124,7 +124,7 @@
do neib= 1, ncomm_recv
istart= ithree * istack_recv(neib-1) + 1
inum = ithree * (istack_recv(neib ) - istack_recv(neib-1))
- call MPI_IRECV(WR(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_IRECV(WR(istart), inum, CALYPSO_REAL, &
& id_pe_recv(neib), 0, CALYPSO_COMM, req2(neib), ierr)
end do
!
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_6.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_6.f90
index de94e76..a21409f 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_6.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_6.f90
@@ -117,7 +117,7 @@
do neib = 1, ncomm_send
istart= isix * istack_send(neib-1) + 1
inum = isix * (istack_send(neib ) - istack_send(neib-1))
- call MPI_ISEND(WS(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_ISEND(WS(istart), inum, CALYPSO_REAL, &
& id_pe_send(neib), 0, CALYPSO_COMM, req1(neib), ierr)
end do
!C
@@ -126,7 +126,7 @@
do neib= 1, ncomm_recv
istart= isix * istack_recv(neib-1) + 1
inum = isix * (istack_recv(neib ) - istack_recv(neib-1))
- call MPI_IRECV(WR(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_IRECV(WR(istart), inum, CALYPSO_REAL, &
& id_pe_recv(neib), 0, CALYPSO_COMM, req2(neib), ierr)
end do
!
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_N.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_N.f90
index 1390dcc..42f40f4 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_N.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_N.f90
@@ -125,7 +125,7 @@
do neib = 1, ncomm_send
istart= NB * istack_send(neib-1) + 1
inum = NB * (istack_send(neib ) - istack_send(neib-1))
- call MPI_ISEND(WS(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_ISEND(WS(istart), inum, CALYPSO_REAL, &
& id_pe_send(neib), 0, CALYPSO_COMM, req1(neib), ierr)
end do
!C
@@ -134,7 +134,7 @@
do neib= 1, ncomm_recv
istart= NB * istack_recv(neib-1) + 1
inum = NB * (istack_recv(neib ) - istack_recv(neib-1))
- call MPI_IRECV(WR(istart), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_IRECV(WR(istart), inum, CALYPSO_REAL, &
& id_pe_recv(neib), 0, CALYPSO_COMM, req2(neib), ierr)
end do
!
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_int.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_int.f90
index 34b89f4..add7ef9 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_int.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_int.f90
@@ -111,7 +111,7 @@
do neib = 1, ncomm_send
istart= istack_send(neib-1) + 1
inum = istack_send(neib ) - istack_send(neib-1)
- call MPI_ISEND(iWS(istart), inum, MPI_INTEGER, &
+ call MPI_ISEND(iWS(istart), inum, CALYPSO_INTEGER, &
& id_pe_send(neib), 0, CALYPSO_COMM, req1(neib), ierr)
end do
!C
@@ -120,7 +120,7 @@
do neib= 1, ncomm_recv
istart= istack_recv(neib-1) + 1
inum = istack_recv(neib ) - istack_recv(neib-1)
- call MPI_IRECV(iWR(istart), inum, MPI_INTEGER, &
+ call MPI_IRECV(iWR(istart), inum, CALYPSO_INTEGER, &
& id_pe_recv(neib), 0, CALYPSO_COMM, req2(neib), ierr)
end do
!
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev.f90
index 68e860f..985298f 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev.f90
@@ -107,7 +107,7 @@
do neib = 1, ncomm_send
ist= istack_send(neib-1) + 1
inum = (istack_send(neib ) - istack_send(neib-1))
- call MPI_ISEND(WS(ist), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_ISEND(WS(ist), inum, CALYPSO_REAL, &
& id_pe_send(neib), 0, CALYPSO_COMM, req1(neib), ierr)
end do
!C
@@ -116,7 +116,7 @@
do neib= 1, ncomm_recv
ist= istack_recv(neib-1) + 1
inum = (istack_recv(neib ) - istack_recv(neib-1))
- call MPI_IRECV(WR(ist), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_IRECV(WR(ist), inum, CALYPSO_REAL, &
& id_pe_recv(neib), 0, CALYPSO_COMM, req2(neib), ierr)
end do
!
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_2.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_2.f90
index 972d411..e1e736c 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_2.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_2.f90
@@ -107,7 +107,7 @@
do neib = 1, ncomm_send
ist = itwo * istack_send(neib-1) + 1
inum = itwo * (istack_send(neib ) - istack_send(neib-1))
- call MPI_ISEND(WS(ist), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_ISEND(WS(ist), inum, CALYPSO_REAL, &
& id_pe_send(neib), 0, CALYPSO_COMM, req1(neib), ierr)
end do
!C
@@ -116,7 +116,7 @@
do neib= 1, ncomm_recv
ist= itwo * istack_recv(neib-1) + 1
inum = itwo * (istack_recv(neib ) - istack_recv(neib-1))
- call MPI_IRECV(WR(ist), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_IRECV(WR(ist), inum, CALYPSO_REAL, &
& id_pe_recv(neib), 0, CALYPSO_COMM, req2(neib), ierr)
end do
!
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_3.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_3.f90
index 4d8849c..512b413 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_3.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_3.f90
@@ -109,7 +109,7 @@
do neib = 1, ncomm_send
ist= ithree * istack_send(neib-1) + 1
inum = ithree * (istack_send(neib ) - istack_send(neib-1))
- call MPI_ISEND(WS(ist), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_ISEND(WS(ist), inum, CALYPSO_REAL, &
& id_pe_send(neib), 0, CALYPSO_COMM, req1(neib), ierr)
end do
!C
@@ -118,7 +118,7 @@
do neib= 1, ncomm_recv
ist= ithree * istack_recv(neib-1) + 1
inum = ithree * (istack_recv(neib ) - istack_recv(neib-1))
- call MPI_IRECV(WR(ist), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_IRECV(WR(ist), inum, CALYPSO_REAL, &
& id_pe_recv(neib), 0, CALYPSO_COMM, req2(neib), ierr)
end do
!
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_6.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_6.f90
index 12b9fab..c215450 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_6.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_6.f90
@@ -111,7 +111,7 @@
do neib = 1, ncomm_send
ist= isix * istack_send(neib-1) + 1
inum = isix * (istack_send(neib ) - istack_send(neib-1))
- call MPI_ISEND(WS(ist), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_ISEND(WS(ist), inum, CALYPSO_REAL, &
& id_pe_send(neib), 0, CALYPSO_COMM, req1(neib), ierr)
end do
!C
@@ -120,7 +120,7 @@
do neib= 1, ncomm_recv
ist= isix * istack_recv(neib-1) + 1
inum = isix * (istack_recv(neib ) - istack_recv(neib-1))
- call MPI_IRECV(WR(ist), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_IRECV(WR(ist), inum, CALYPSO_REAL, &
& id_pe_recv(neib), 0, CALYPSO_COMM, req2(neib), ierr)
end do
!
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_N.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_N.f90
index 9ebfd05..adeb22d 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_N.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_N.f90
@@ -117,7 +117,7 @@
do neib = 1, ncomm_send
ist= NB * istack_send(neib-1) + 1
inum = NB * (istack_send(neib ) - istack_send(neib-1))
- call MPI_ISEND(WS(ist), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_ISEND(WS(ist), inum, CALYPSO_REAL, &
& id_pe_send(neib), 0, CALYPSO_COMM, req1(neib), ierr)
end do
!C
@@ -126,7 +126,7 @@
do neib = 1, ncomm_recv
ist= NB * istack_recv(neib-1) + 1
inum = NB * (istack_recv(neib ) - istack_recv(neib-1))
- call MPI_IRECV(WR(ist), inum, MPI_DOUBLE_PRECISION, &
+ call MPI_IRECV(WR(ist), inum, CALYPSO_REAL, &
& id_pe_recv(neib), 0, CALYPSO_COMM, req2(neib), ierr)
end do
!
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_int.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_int.f90
index 755e124..5495f42 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_int.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_int.f90
@@ -105,7 +105,7 @@
do neib = 1, ncomm_send
ist= istack_send(neib-1) + 1
inum = istack_send(neib ) - istack_send(neib-1)
- call MPI_ISEND(iWS(ist), inum, MPI_INTEGER, &
+ call MPI_ISEND(iWS(ist), inum, CALYPSO_INTEGER, &
& id_pe_send(neib), 0, CALYPSO_COMM, req1(neib), ierr)
end do
!C
@@ -114,7 +114,7 @@
do neib= 1, ncomm_recv
ist= istack_recv(neib-1) + 1
inum = istack_recv(neib ) - istack_recv(neib-1)
- call MPI_IRECV(iWR(ist), inum, MPI_INTEGER, &
+ call MPI_IRECV(iWR(ist), inum, CALYPSO_INTEGER, &
& id_pe_recv(neib), 0, CALYPSO_COMM, req2(neib), ierr)
end do
!
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs.f90
index 20d2090..fcc49cf 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs.f90
@@ -96,7 +96,7 @@
!
etime = MPI_WTIME() - stime
call MPI_allREDUCE (etime, etime_item_import, ione, &
- & MPI_DOUBLE_PRECISION, MPI_SUM, CALYPSO_COMM, ierr)
+ & CALYPSO_REAL, MPI_SUM, CALYPSO_COMM, ierr)
!
iflag_sph_SR = iflag_import_rev
stime = MPI_WTIME()
@@ -107,7 +107,7 @@
!
etime = MPI_WTIME() - stime
call MPI_allREDUCE (etime, etime_irev_import, ione, &
- & MPI_DOUBLE_PRECISION, MPI_SUM, CALYPSO_COMM, ierr)
+ & CALYPSO_REAL, MPI_SUM, CALYPSO_COMM, ierr)
!
if(etime_irev_import .le. etime_item_import) then
iflag_sph_SR = iflag_import_rev
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_2.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_2.f90
index 5ab35c0..144ac6e 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_2.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_2.f90
@@ -100,7 +100,7 @@
!
etime = MPI_WTIME() - stime
call MPI_allREDUCE (etime, etime_item_import, ione, &
- & MPI_DOUBLE_PRECISION, MPI_SUM, CALYPSO_COMM, ierr)
+ & CALYPSO_REAL, MPI_SUM, CALYPSO_COMM, ierr)
!
iflag_sph_SR2 = iflag_import_rev
stime = MPI_WTIME()
@@ -111,7 +111,7 @@
!
etime = MPI_WTIME() - stime
call MPI_allREDUCE (etime, etime_irev_import, ione, &
- & MPI_DOUBLE_PRECISION, MPI_SUM, CALYPSO_COMM, ierr)
+ & CALYPSO_REAL, MPI_SUM, CALYPSO_COMM, ierr)
!
if(etime_irev_import .le. etime_item_import) then
iflag_sph_SR2 = iflag_import_rev
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_3.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_3.f90
index d7f6074..d42d194 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_3.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_3.f90
@@ -99,7 +99,7 @@
!
etime = MPI_WTIME() - stime
call MPI_allREDUCE (etime, etime_item_import, ione, &
- & MPI_DOUBLE_PRECISION, MPI_SUM, CALYPSO_COMM, ierr)
+ & CALYPSO_REAL, MPI_SUM, CALYPSO_COMM, ierr)
!
iflag_sph_SR3 = iflag_import_rev
stime = MPI_WTIME()
@@ -110,7 +110,7 @@
!
etime = MPI_WTIME() - stime
call MPI_allREDUCE (etime, etime_irev_import, ione, &
- & MPI_DOUBLE_PRECISION, MPI_SUM, CALYPSO_COMM, ierr)
+ & CALYPSO_REAL, MPI_SUM, CALYPSO_COMM, ierr)
!
if(etime_irev_import .le. etime_item_import) then
iflag_sph_SR3 = iflag_import_rev
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_6.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_6.f90
index 948d865..a7e19ae 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_6.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_6.f90
@@ -98,7 +98,7 @@
!
etime = MPI_WTIME() - stime
call MPI_allREDUCE (etime, etime_item_import, ione, &
- & MPI_DOUBLE_PRECISION, MPI_SUM, CALYPSO_COMM, ierr)
+ & CALYPSO_REAL, MPI_SUM, CALYPSO_COMM, ierr)
!
iflag_sph_SR6 = iflag_import_rev
stime = MPI_WTIME()
@@ -109,7 +109,7 @@
!
etime = MPI_WTIME() - stime
call MPI_allREDUCE (etime, etime_irev_import, ione, &
- & MPI_DOUBLE_PRECISION, MPI_SUM, CALYPSO_COMM, ierr)
+ & CALYPSO_REAL, MPI_SUM, CALYPSO_COMM, ierr)
!
if(etime_irev_import .le. etime_item_import) then
iflag_sph_SR6 = iflag_import_rev
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_N.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_N.f90
index a9a715b..80a82b7 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_N.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_N.f90
@@ -103,7 +103,7 @@
!
etime = MPI_WTIME() - stime
call MPI_allREDUCE (etime, etime_item_import, ione, &
- & MPI_DOUBLE_PRECISION, MPI_SUM, CALYPSO_COMM, ierr)
+ & CALYPSO_REAL, MPI_SUM, CALYPSO_COMM, ierr)
!
iflag_sph_SRN = iflag_import_rev
stime = MPI_WTIME()
@@ -114,7 +114,7 @@
!
etime = MPI_WTIME() - stime
call MPI_allREDUCE (etime, etime_irev_import, ione, &
- & MPI_DOUBLE_PRECISION, MPI_SUM, CALYPSO_COMM, ierr)
+ & CALYPSO_REAL, MPI_SUM, CALYPSO_COMM, ierr)
!
if(etime_irev_import .le. etime_item_import) then
iflag_sph_SRN = iflag_import_rev
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_int.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_int.f90
index a9686a6..497fedd 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_int.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_int.f90
@@ -94,7 +94,7 @@
!
etime = MPI_WTIME() - stime
call MPI_allREDUCE (etime, etime_item_import, ione, &
- & MPI_DOUBLE_PRECISION, MPI_SUM, CALYPSO_COMM, ierr)
+ & CALYPSO_REAL, MPI_SUM, CALYPSO_COMM, ierr)
!
iflag_sph_SR_int = iflag_import_rev
stime = MPI_WTIME()
@@ -105,7 +105,7 @@
!
etime = MPI_WTIME() - stime
call MPI_allREDUCE (etime, etime_irev_import, ione, &
- & MPI_DOUBLE_PRECISION, MPI_SUM, CALYPSO_COMM, ierr)
+ & CALYPSO_REAL, MPI_SUM, CALYPSO_COMM, ierr)
!
if(etime_irev_import .le. etime_item_import) then
iflag_sph_SR_int = iflag_import_rev
More information about the CIG-COMMITS
mailing list