[cig-commits] r22537 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D
dkomati1 at geodynamics.org
dkomati1 at geodynamics.org
Sun Jul 7 17:29:40 PDT 2013
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)
More information about the CIG-COMMITS
mailing list