[cig-commits] [commit] devel, master: minor cosmetic change to be able to later fix the s362ani bug (2f1f00c)

[cig_noreply at geodynamics.org]

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

On branches: devel,master
Link       : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f

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

commit 2f1f00c9cc95fe6e33696c2d88b769acd7291373
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date:   Sun Apr 13 19:45:43 2014 +0200

    minor cosmetic change to be able to later fix the s362ani bug


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

2f1f00c9cc95fe6e33696c2d88b769acd7291373
 src/meshfem3D/model_s362ani.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/meshfem3D/model_s362ani.f90 b/src/meshfem3D/model_s362ani.f90
index c65d050..20a0527 100644
--- a/src/meshfem3D/model_s362ani.f90
+++ b/src/meshfem3D/model_s362ani.f90
@@ -1745,9 +1745,9 @@
 !     WK1,WK2,WK3 SHOULD BE DIMENSIONED AT LEAST (LMAX+1)*4
 !
 ! real(kind=4) WK1(1),WK2(1),WK3(1),Y(1),XLAT,XLON
-  real(kind=4),dimension(LMAX+1) :: WK1,WK2,WK3
+  real(kind=4), dimension(LMAX+1) :: WK1,WK2,WK3
   real(kind=4) :: XLAT,XLON
-  real(kind=4),dimension((LMAX+1)**2) :: Y !! Y should go at least from 1 to fac(LMAX)
+  real(kind=4), dimension((LMAX+1)**2) :: Y !! Y should go at least from 1 to fac(LMAX)
 
   real(kind=4), parameter :: RADIAN = 57.2957795
 
@@ -1797,7 +1797,7 @@
 
   implicit none
 
-  !real(kind=4) :: X(2),XP(2),XCOSEC(2) !! X, XP, XCOSEC should go from 1 to M+1
+! real(kind=4) :: X(2),XP(2),XCOSEC(2) !! X, XP, XCOSEC should go from 1 to M+1
   real(kind=4) :: X(M+1),XP(M+1),XCOSEC(M+1) !! X, XP, XCOSEC should go from 1 to M+1
 
   double precision :: SMALL,sumval,COMPAR,CT,ST,FCT,COT,X1,X2,X3,F1,F2,XM,TH