Commit 5ce92d32 authored by Matthias Steffen's avatar Matthias Steffen
Browse files

Warning messages adjusted, just cosmetics

parent e7fd5391
......@@ -71,32 +71,32 @@ z_grid = [0.0D0, -0.5D0, -1.0D0, -2.0D0, -3.0D0]
;
; --- check input parameters
if (t lt 4900.0 or t gt 6600.0) then begin
print, '% FF123: Teff out of range: ' + string(t,format='(F8.2)') + ' K'
print, '% FF123: must be in the range 5000 .. 6500 K'
print, '% FF1: Teff out of range: ' + string(t,format='(F8.2)') + ' K'
print, '% FF1: must be in the range 5000 .. 6500 K'
ff1_out = [-99.9,-99.9]
return, ff1_out
endif
if (glog lt 3.4 or glog gt 4.6) then begin
print, '% FF123: log g out of range: ' + string(glog,format='(F5.2)')
print, '% FF123: must be in the range 3.5 .. 4.5'
print, '% FF1: log g out of range: ' + string(glog,format='(F5.2)')
print, '% FF1: must be in the range 3.5 .. 4.5'
ff1_out = [-99.9,-99.9]
return, ff1_out
endif
if (z lt -3.2 or z gt 0.2) then begin
print, '% FF123: [Fe/H] out of range: ' + string(z,format='(F5.2)')
print, '% FF123: must be in the range -3.0 .. 0.0'
print, '% FF1: [Fe/H] out of range: ' + string(z,format='(F5.2)')
print, '% FF1: must be in the range -3.0 .. 0.0'
ff1_out = [-99.9,-99.9]
return, ff1_out
endif
if (ALi lt 0.9 or ALi gt 3.1) then begin
print, '% FF123: A(Li) out of range: ' + string(Ali,format='(F5.2)')
print, '% FF123: must be in the range 1.0 .. 3.0'
print, '% FF1: A(Li) out of range: ' + string(Ali,format='(F5.2)')
print, '% FF1: must be in the range 1.0 .. 3.0'
ff1_out = [-99.9,-99.9]
return, ff1_out
endif
if (qiso lt 0.0 or qiso gt 0.1) then begin
print, '% FF123: 6Li/7Li out of range: ' + string(qiso,format='(F5.2)')
print, '% FF123: must be in the range 0.0 .. 0.082'
print, '% FF1: 6Li/7Li out of range: ' + string(qiso,format='(F5.2)')
print, '% FF1: must be in the range 0.0 .. 0.082'
ff1_out = [-99.9,-99.9]
return, ff1_out
endif
......
......@@ -71,32 +71,32 @@ z_grid = [0.0D0, -0.5D0, -1.0D0, -2.0D0, -3.0D0]
;
; --- check input parameters
if (t lt 4900.0 or t gt 6600.0) then begin
print, '% FF123: Teff out of range: ' + string(t,format='(F8.2)') + ' K'
print, '% FF123: must be in the range 5000 .. 6500 K'
print, '% FF2: Teff out of range: ' + string(t,format='(F8.2)') + ' K'
print, '% FF2: must be in the range 5000 .. 6500 K'
ff2_out = [-99.9,-99.9]
return, ff2_out
endif
if (glog lt 3.4 or glog gt 4.6) then begin
print, '% FF123: log g out of range: ' + string(glog,format='(F5.2)')
print, '% FF123: must be in the range 3.5 .. 4.5'
print, '% FF2: log g out of range: ' + string(glog,format='(F5.2)')
print, '% FF2: must be in the range 3.5 .. 4.5'
ff2_out = [-99.9,-99.9]
return, ff2_out
endif
if (z lt -3.2 or z gt 0.2) then begin
print, '% FF123: [Fe/H] out of range: ' + string(z,format='(F5.2)')
print, '% FF123: must be in the range -3.0 .. 0.0'
print, '% FF2: [Fe/H] out of range: ' + string(z,format='(F5.2)')
print, '% FF2: must be in the range -3.0 .. 0.0'
ff2_out = [-99.9,-99.9]
return, ff2_out
endif
if (ALi lt 0.9 or ALi gt 3.1) then begin
print, '% FF123: A(Li) out of range: ' + string(Ali,format='(F5.2)')
print, '% FF123: must be in the range 1.0 .. 3.0'
print, '% FF2: A(Li) out of range: ' + string(Ali,format='(F5.2)')
print, '% FF2: must be in the range 1.0 .. 3.0'
ff2_out = [-99.9,-99.9]
return, ff2_out
endif
if (qiso lt 0.0 or qiso gt 0.1) then begin
print, '% FF123: 6Li/7Li out of range: ' + string(qiso,format='(F5.2)')
print, '% FF123: must be in the range 0.0 .. 0.082'
print, '% FF2: 6Li/7Li out of range: ' + string(qiso,format='(F5.2)')
print, '% FF2: must be in the range 0.0 .. 0.082'
ff2_out = [-99.9,-99.9]
return, ff2_out
endif
......
function ff3, t, glog, z, EW, qiso, ff3_out
function ff3, t, glog, z, EW, qiso
;
; Coefficients based on original 1D NLTE equivalent widths by A. Mott
; Cijk mm00 mm05 mm10 mm20 mm30
......@@ -103,26 +103,26 @@ z_grid = [0.0D0, -0.5D0, -1.0D0, -2.0D0, -3.0D0]
;
; --- check input parameters
if (t lt 4900.0 or t gt 6600.0) then begin
print, '% FF123: Teff out of range: ' + string(t,format='(F8.2)') + ' K'
print, '% FF123: must be in the range 5000 .. 6500 K'
print, '% FF3: Teff out of range: ' + string(t,format='(F8.2)') + ' K'
print, '% FF3: must be in the range 5000 .. 6500 K'
ff3_out = [-99.9,-99.9]
return, ff3_out
endif
if (glog lt 3.4 or glog gt 4.6) then begin
print, '% FF123: log g out of range: ' + string(glog,format='(F5.2)')
print, '% FF123: must be in the range 3.5 .. 4.5'
print, '% FF3: log g out of range: ' + string(glog,format='(F5.2)')
print, '% FF3: must be in the range 3.5 .. 4.5'
ff3_out = [-99.9,-99.9]
return, ff3_out
endif
if (z lt -3.2 or z gt 0.2) then begin
print, '% FF123: [Fe/H] out of range: ' + string(z,format='(F5.2)')
print, '% FF123: must be in the range -3.0 .. 0.0'
print, '% FF3: [Fe/H] out of range: ' + string(z,format='(F5.2)')
print, '% FF3: must be in the range -3.0 .. 0.0'
ff3_out = [-99.9,-99.9]
return, ff3_out
endif
if (qiso lt 0.0 or qiso gt 0.1) then begin
print, '% FF123: 6Li/7Li out of range: ' + string(qiso,format='(F5.2)')
print, '% FF123: must be in the range 0.0 .. 0.082'
print, '% FF3: 6Li/7Li out of range: ' + string(qiso,format='(F5.2)')
print, '% FF3: must be in the range 0.0 .. 0.082'
ff3_out = [-99.9,-99.9]
return, ff3_out
endif
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment