/******************************************
 *  J(Vega=0) A,F Type Star Atlas
 *
 *         20030710 M.Akiyama
 ******************************************
 */

0. Vega Atlas

Available from ftp://ftp.stsci.edu/cdbs/cdbs2/grid/k93models/standards/
k93_vega.fits
k93_vega_c95.fits
k93_vega_k93.fits
k93_vega_reference.fits

Vega AB magnitude calculated with k93_vega_reference.fits
B=-0.119 V=0.008 R=0.218 i=0.394 z=0.559 J=0.938 H=1.386 Kp=1.828

1. Model Atmosphere Tables

Model atmosphere from Atlas12 code made by Kurucz 1993.
Available from http://kurucz.harvard.edu/grids.html

 ap00k0nover.dat (p00 = Solar Metalicity, Terbulant = 0km/s, No Overshoot)
 ap00k2nover.dat (p00 = Solar Metalicity, Terbulant = 0km/s, No Overshoot)
 ap00k4nover.dat (p00 = Solar Metalicity, Terbulant = 0km/s, No Overshoot)

Extract required data 
 B8V: TEFF=12000 GRAVITY=4.0
 A0V: TEFF=9500 GRAVITY=4.0
 A2V: TEFF=8750 GRAVITY=4.0
 A5V: TEFF=8250 GRAVITY=4.5
 F0V: TEFF=7250 GRAVITY=4.5
 F5V: TEFF=6500 GRAVITY=4.5

awk -f extract.awk ap00k2nover.dat > B8V.dat
add header 12000 4.0 0.0 Lines
awk -f extract.awk ap00k2nover.dat > A0V.dat
add header 9500 4.0 0.0 Lines
awk -f extract.awk ap00k2nover.dat > A2V.dat
add header 8750 4.0 0.0 Lines
awk -f extract.awk ap00k2nover.dat > A5V.dat
add header 8250 4.5 0.0 Lines
awk -f extract.awk ap00k2nover.dat > F0V.dat
add header 7250 4.5 0.0 Lines
awk -f extract.awk ap00k2nover.dat > F5V.dat
add header 6500 4.5 0.0 Lines

2. Spectroscopic Systhesis Code

SPECTRUM code made by Gray from
 http://www1.appstate.edu/dept/physics/spectrum/spectrum.html

3. Calculate Spectrum

Calculate spectrum with 0.02A interval at first
in 8000 - 19000A range, and 
rebin with bflxsm2 code in to 1A interval.

../install/spectrum/spectrum /b/f/r/n < B8V.rsp
chmod a+rw B8V.spc
../install/spectrum/bflxsm2 B8V.spc

../install/spectrum/spectrum /b/f/r/n < A0V.rsp
chmod a+rw A0V.spc
../install/spectrum/bflxsm2 A0V.spc

../install/spectrum/spectrum /b/f/r/n < A2V.rsp
chmod a+rw A2V.spc
../install/spectrum/bflxsm2 A2V.spc

../install/spectrum/spectrum /b/f/r/n < A5V.rsp
chmod a+rw A5V.spc
../install/spectrum/bflxsm2 

../install/spectrum/spectrum /b/f/r/n < F0V.rsp
chmod a+rw F0V.spc
../install/spectrum/bflxsm2 

../install/spectrum/spectrum /b/f/r/n < F5V.rsp
chmod a+rw F5V.spc
../install/spectrum/bflxsm2 

4. Vega Magnitude of Each Model

AB magnitude of Vega Model in J(MK) = 1.385

AB magnitude of Raw Models
./spec2mag /home/akiyama/star_model/B8V.txt filter/IRCS_J.txt filter/Hawaii_det.txt 1 1
-38.666 15.842
./spec2mag /home/akiyama/star_model/A0V.txt filter/IRCS_J.txt filter/Hawaii_det.txt 1 1
-38.347 15.714
./spec2mag /home/akiyama/star_model/A2V.txt filter/IRCS_J.txt filter/Hawaii_det.txt 1 1
-38.237 15.670
./spec2mag /home/akiyama/star_model/A5V.txt filter/IRCS_J.txt filter/Hawaii_det.txt 1 1
-38.159 15.639
./spec2mag /home/akiyama/star_model/F0V.txt filter/IRCS_J.txt filter/Hawaii_det.txt 1 1
-37.932 15.548
./spec2mag /home/akiyama/star_model/F5V.txt filter/IRCS_J.txt filter/Hawaii_det.txt 1 1
-37.716 15.462

Normalize all spectra to J(Vega) = 0
awk '{print $1, $2/(10**15.842)}' B8V.txt > B8V_J0.txt
awk '{print $1, $2/(10**15.714)}' A0V.txt > A0V_J0.txt
awk '{print $1, $2/(10**15.670)}' A2V.txt > A2V_J0.txt
awk '{print $1, $2/(10**15.639)}' A5V.txt > A5V_J0.txt
awk '{print $1, $2/(10**15.548)}' F0V.txt > F0V_J0.txt
awk '{print $1, $2/(10**15.462)}' F5V.txt > F5V_J0.txt

5. Make Fits Image File

rspectext B8V_J0.txt B8V_J0.fits flux+ dtype=linear crval1=8000 cdelt1=1
rspectext A0V_J0.txt A0V_J0.fits flux+ dtype=linear crval1=8000 cdelt1=1
rspectext A2V_J0.txt A2V_J0.fits flux+ dtype=linear crval1=8000 cdelt1=1
rspectext A5V_J0.txt A5V_J0.fits flux+ dtype=linear crval1=8000 cdelt1=1
rspectext F0V_J0.txt F0V_J0.fits flux+ dtype=linear crval1=8000 cdelt1=1
rspectext F5V_J0.txt F5V_J0.fits flux+ dtype=linear crval1=8000 cdelt1=1