aboutsummaryrefslogtreecommitdiff
path: root/Fakeline.f
diff options
context:
space:
mode:
Diffstat (limited to 'Fakeline.f')
-rwxr-xr-xFakeline.f6
1 files changed, 3 insertions, 3 deletions
diff --git a/Fakeline.f b/Fakeline.f
index 076bf18..c52e731 100755
--- a/Fakeline.f
+++ b/Fakeline.f
@@ -30,11 +30,11 @@ c*****here we use a real Fe I line because it has Barklem damping data
alphabk(1) = 0.238
gambark(1) = 10.**gammabk(1)
alpbark(1) = (1.-alphabk(1))/2.
- if (dampingopt .eq. 0) then
+ if (dampingopt == 0) then
damptype(1) = 'UNSLDc6'
- elseif (dampingopt .eq. 1) then
+ elseif (dampingopt == 1) then
damptype(1) = 'BKgamma'
- elseif (dampingopt .eq. 2) then
+ elseif (dampingopt == 2) then
damptype(1) = 'BLKWLc6'
else
damptype(1) = 'NEXTGEN'