Use modern equality operators

1 files changed, 4 insertions, 4 deletions

diff --git a/Cdcalc.f b/Cdcalc.f
index 825785c..452d8c0 100755
--- a/Cdcalc.f
+++ b/Cdcalc.f
@@ -10,11 +10,11 @@ c******************************************************************************
       include 'Linex.com'
 
 c*****continuum "contribution curve" calculation                           
-      if (number .eq. 1) then
+      if (number == 1) then
          do i=1,ntau                                                    
             scont(i) = ((1.19089d+25/wave**2)*1.0d+10)/(wave**3*
      .                 (dexp(1.43879d+08/(wave*t(i)))-1.0d+00))
-            if (fluxintopt .eq. 1) then
+            if (fluxintopt == 1) then
                cd(i) = kaplam(i)*tauref(i)*scont(i)*
      .                 dexp(-taulam(i))/(0.4343*kapref(i))
             else
@@ -27,8 +27,8 @@ c*****line plus continuum "contribution curve" calculation
       else
          do i=1,ntau                                                    
             sline(i) = scont(i)   
-            if (fluxintopt .eq. 1) then
-               if (taulam(i)+taunu(i) .le. 50.) then
+            if (fluxintopt == 1) then
+               if (taulam(i)+taunu(i) <= 50.) then
                   exptau = dexp(-taulam(i)-taunu(i))                
                else
                   exptau = 0.