[cig-commits] [commit] devel: Fix intent of get_global arguments. (c90b60c)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d_globe

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d_globe/compare/c6e8e9a46f1a4bfcf8b3725426d1dd528b7dabea...44c2c95f23a37e3e2af17b5f784a8521c8197b8b

>---------------------------------------------------------------

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