[cig-commits] r22537 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-07-07 17:29:40 -0700 (Sun, 07 Jul 2013)
New Revision: 22537

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_kernels.f90
Log:
added intent(in) and intent(out) for sensitivity kernel rotation routine


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_kernels.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_kernels.f90	2013-07-08 00:23:29 UTC (rev 22536)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_kernels.f90	2013-07-08 00:29:40 UTC (rev 22537)
@@ -465,9 +465,11 @@
   implicit none
   include  "constants.h"
 
-  real(kind=CUSTOM_REAL) :: theta_in,phi_in
-  real(kind=CUSTOM_REAL),dimension(21) :: cij_kll,cij_kl
+  real(kind=CUSTOM_REAL), intent(in) :: theta_in,phi_in
 
+  real(kind=CUSTOM_REAL), dimension(21), intent(in) :: cij_kl
+  real(kind=CUSTOM_REAL), dimension(21), intent(out) :: cij_kll
+
   double precision :: theta,phi
   double precision :: costheta,sintheta,cosphi,sinphi
   double precision :: costhetasq,sinthetasq,cosphisq,sinphisq
@@ -477,7 +479,6 @@
   double precision :: sintwophisq,sintwothetasq
   double precision :: costhreetheta,sinthreetheta,costhreephi,sinthreephi
 
-
    if (CUSTOM_REAL == SIZE_REAL) then
       theta = dble(theta_in)
       phi = dble(phi_in)