[cig-commits] [commit] devel, master: Fix intent of get_global arguments. (c90b60c)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu Nov 6 08:31:02 PST 2014
Repository : https://github.com/geodynamics/specfem3d_globe
On branches: devel,master
Link : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f
>---------------------------------------------------------------
commit c90b60c69a49e94a3e47b4e688f1a43a6b58df71
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date: Sat Sep 13 21:23:51 2014 -0400
Fix intent of get_global arguments.
The [xyz]p arrays are sorted by this subroutine, so they should not be
just intent(in).
>---------------------------------------------------------------
c90b60c69a49e94a3e47b4e688f1a43a6b58df71
src/shared/get_global.f90 | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/src/shared/get_global.f90 b/src/shared/get_global.f90
index b50b60a..0d71adc 100644
--- a/src/shared/get_global.f90
+++ b/src/shared/get_global.f90
@@ -32,8 +32,6 @@
! non-structured global numbering software provided by Paul F. Fischer
-! leave sorting subroutines in same source file to allow for inlining
-
use constants
implicit none
@@ -41,7 +39,7 @@
! input parameters
integer, intent(in) :: npointot
- double precision, dimension(npointot), intent(in) :: xp,yp,zp
+ double precision, dimension(npointot), intent(inout) :: xp,yp,zp
integer, dimension(npointot), intent(out) :: iglob,locval
logical, dimension(npointot), intent(out) :: ifseg
More information about the CIG-COMMITS
mailing list