[cig-commits] [commit] devel: Fix intent of get_global arguments. (c90b60c)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu Sep 18 16:18:27 PDT 2014
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
More information about the CIG-COMMITS
mailing list