[cig-commits] [commit] pluggable: Added "intent" attribute to subroutine arguments, so that I can safely reuse compute_coord_main_mesh() to get domain bound of current processor before the mesh is created. (494f617)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/specfem3d_globe

On branch  : pluggable
Link       : https://github.com/geodynamics/specfem3d_globe/compare/64e1b38f0c5ebb4056cce0b15d41c0b9f94ab6e5...099a4d330d5b173b21e51ad441f9f429e5d37842

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

commit 494f617058b2d4519478e7b77889957139a623f3
Author: Eh Tan <tan2 at earth.sinica.edu.tw>
Date:   Wed Feb 25 18:23:50 2009 +0000

    Added "intent" attribute to subroutine arguments, so that I can safely reuse compute_coord_main_mesh() to get domain bound of current processor before the mesh is created.


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

494f617058b2d4519478e7b77889957139a623f3
 compute_coordinates_grid.f90 | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/compute_coordinates_grid.f90 b/compute_coordinates_grid.f90
index 695a075..c9f95cd 100644
--- a/compute_coordinates_grid.f90
+++ b/compute_coordinates_grid.f90
@@ -35,18 +35,19 @@
 
   include "constants.h"
 
-  double precision, dimension(NGNOD) :: xelm,yelm,zelm,offset_x,offset_y,offset_z
+  double precision, intent(in), dimension(NGNOD) :: offset_x,offset_y,offset_z
+  double precision, intent(out), dimension(NGNOD) :: xelm,yelm,zelm
 
 ! rotation matrix from Euler angles
-  double precision, dimension(NDIM,NDIM) :: rotation_matrix
+  double precision, intent(in), dimension(NDIM,NDIM) :: rotation_matrix
 
   integer, intent(in) :: iproc_xi,iproc_eta,NPROC_XI,NPROC_ETA, &
                    NEX_PER_PROC_XI,NEX_PER_PROC_ETA,ner,ilayer,ichunk,NCHUNKS
 
-  double precision :: ANGULAR_WIDTH_XI_RAD,ANGULAR_WIDTH_ETA_RAD,r_top,r_bottom
+  double precision, intent(in) :: ANGULAR_WIDTH_XI_RAD,ANGULAR_WIDTH_ETA_RAD,r_top,r_bottom
 
-  logical :: INCLUDE_CENTRAL_CUBE
-  integer :: NUMBER_OF_MESH_LAYERS
+  logical, intent(in) :: INCLUDE_CENTRAL_CUBE
+  integer, intent(in) :: NUMBER_OF_MESH_LAYERS
 
 ! local variables
   integer :: i,j,ignod