[cig-commits] [commit] devel: double precision literals in correct format, use myrank from specfem3d_par module added. (7082777)

[cig_noreply at geodynamics.org]

Repository : ssh://shell.geodynamics.org/specfem3d_globe

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d_globe/compare/64c52e09783050f2c75a91385d3e4013b32859f8...21e5885fed013572cab3c2deedee05b62dc382e6

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

commit 70827774648dc8953bc774d9ac8ccbedc8551c7a
Author: Matthieu Lefebvre <ml15 at princeton.edu>
Date:   Mon Apr 7 13:14:46 2014 -0400

    double precision literals in correct format, use myrank from specfem3d_par module added.


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

70827774648dc8953bc774d9ac8ccbedc8551c7a
 EXAMPLES                            | 2 +-
 src/specfem3D/write_output_ASDF.F90 | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/EXAMPLES b/EXAMPLES
index 76f64d8..0d904cd 160000
--- a/EXAMPLES
+++ b/EXAMPLES
@@ -1 +1 @@
-Subproject commit 76f64d82951c78d0d06f7fd39d65768cef8cebc5
+Subproject commit 0d904cdd8e66a988d11b0bc806ef1359a955fe12
diff --git a/src/specfem3D/write_output_ASDF.F90 b/src/specfem3D/write_output_ASDF.F90
index 6fb58bf..f0b9aa7 100644
--- a/src/specfem3D/write_output_ASDF.F90
+++ b/src/specfem3D/write_output_ASDF.F90
@@ -115,6 +115,7 @@ subroutine store_asdf_data(asdf_container, seismogram_tmp, irec_local, &
           event_name=>event_name_SAC,cmt_lat=>cmt_lat_SAC,cmt_lon=>cmt_lon_SAC,&
           cmt_depth=>cmt_depth_SAC,cmt_hdur=>cmt_hdur_SAC
 
+  use specfem_par, only: myrank
   implicit none
   include "constants.h"
 
@@ -158,10 +159,10 @@ subroutine store_asdf_data(asdf_container, seismogram_tmp, irec_local, &
     asdf_container%cmp_azimuth(i)  = 0.00
     asdf_container%cmp_incident_ang(i) = 0.00
   else if(iorientation == 4) then !R
-    asdf_container%cmp_azimuth(i) = sngl(modulo(phi,360.0))
+    asdf_container%cmp_azimuth(i) = sngl(modulo(phi,360.0d+0))
     asdf_container%cmp_incident_ang(i) =90.00
   else if(iorientation == 5) then !T
-    asdf_container%cmp_azimuth(i) = sngl(modulo(phi+90.0,360.0))
+    asdf_container%cmp_azimuth(i) = sngl(modulo(phi+90.0,360.0d+0))
     asdf_container%cmp_incident_ang(i) =90.00
   endif
   asdf_container%sample_rate(i) = DT