diff options
Diffstat (limited to 'OpacHelium.f')
| -rwxr-xr-x | OpacHelium.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/OpacHelium.f b/OpacHelium.f index b02fc91..294d8fa 100755 --- a/OpacHelium.f +++ b/OpacHelium.f @@ -19,7 +19,7 @@ c****************************************************************************** save data freq1 /0./ - if (freq .ne. freq1) then + if (freq /= freq1) then freq1 = freq a1 = 3.397d-46 + (-5.216d-31+7.039d-15/freq)/freq b1 = -4.116d-42 + ( 1.067d-26+8.135d-11/freq)/freq |