[cig-commits] [commit] devel: Re-factor band_instrument_code to be clearer. (c53c771)

[cig_noreply at geodynamics.org]

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

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d_globe/compare/c6e8e9a46f1a4bfcf8b3725426d1dd528b7dabea...44c2c95f23a37e3e2af17b5f784a8521c8197b8b

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

commit c53c771cfcfa181d90c13272dc8dae6fdf2778fe
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date:   Thu Sep 11 17:32:37 2014 -0400

    Re-factor band_instrument_code to be clearer.


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

c53c771cfcfa181d90c13272dc8dae6fdf2778fe
 src/specfem3D/write_seismograms.f90 | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/specfem3D/write_seismograms.f90 b/src/specfem3D/write_seismograms.f90
index bb42779..68e1bbf 100644
--- a/src/specfem3D/write_seismograms.f90
+++ b/src/specfem3D/write_seismograms.f90
@@ -625,11 +625,11 @@ contains
   double precision :: DT
   character(len=2) :: bic
 
-  if (DT >= 1.0d0)  bic = 'LX'
-  if (DT < 1.0d0 .and. DT > 0.1d0) bic = 'MX'
-  if (DT <= 0.1d0 .and. DT > 0.0125d0) bic = 'BX'
-  if (DT <= 0.0125d0 .and. DT > 0.004d0) bic = 'HX'
-  if (DT <= 0.004d0 .and. DT > 0.001d0) bic = 'CX'
+  if (1.0d0 <= DT)  bic = 'LX'
+  if (0.1d0 < DT .and. DT < 1.0d0) bic = 'MX'
+  if (0.0125d0 < DT .and. DT <= 0.1d0) bic = 'BX'
+  if (0.004d0 < DT .and. DT <= 0.0125d0) bic = 'HX'
+  if (0.001d0 < DT .and. DT <= 0.004d0) bic = 'CX'
   if (DT <= 0.001d0) bic = 'FX'
 
  end subroutine band_instrument_code