diff options
Diffstat (limited to 'Cdcalc.f')
| -rwxr-xr-x | Cdcalc.f | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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. |