write/out
write/out
write/out
write/out
write/out
write/out
write/out "=============* * * * * * *============="
write/out " FEROS 2.2 m MPG/ESO La Silla          "
write/out " this script converts and sorts spectra"
write/out " of an observing night                 "
write/out "================* * * *================"
write/out
write/out
write/out "                         Created: 2009 August 16th"
write/out "                         Version: nightconvert.prg ver 2.1"
write/out
write/out
write/out

define/par p1 ?  C "Enter the data of obs. night in YYYY-MM-DD  e.g. 2010-10-21          : "
define/par p2 ?  N "Enter the START frame number, e.g., 5300                             : "
define/par p3 ?  N "Enter the END   frame number, e.g., 5400                             : "
write/out
write/out
write/out The data products will be saved in
write/out /data/reduced/Visitor/setiawan/{p1}

$ mkdir /data/reduced/Visitor/setiawan/{p1}
$ mkdir /data/reduced/Visitor/setiawan/{p1}/calib

write/out Copying the wavelength solution results of the night {p1}
$ cp /data/reduced/FEROS/{p1}/ThAr*.mt /data/reduced/Visitor/setiawan/{p1}/calib
$ cp /data/reduced/FEROS/{p1}/FF*.mt /data/reduced/Visitor/setiawan/{p1}/calib

define/local i/i/1/1        1
define/local first/i/1/1    {p2}
define/local last/i/1/1     {p3}

do i = {first} {last}

$ mkdir /data/reduced/Visitor/setiawan/{p1}/fero{i}
$ mkdir /data/reduced/Visitor/setiawan/{p1}/fero{i}/fibre1
$ mkdir /data/reduced/Visitor/setiawan/{p1}/fero{i}/fibre2

write/out Copying the files from the directory /data/reduced/FEROS/{p1}/
write/out to /data/reduced/Visitor/setiawan/{p1}/fero{i}

$ cp /data/reduced/FEROS/{p1}/fero{i}.mt /data/reduced/Visitor/setiawan/{p1}/fero{i}
$ cp /data/reduced/FEROS/{p1}/f{i}*.bdf /data/reduced/Visitor/setiawan/{p1}/fero{i}

change/dir /data/reduced/Visitor/setiawan/{p1}/fero{i}


write/out Converting f{i}*.bdf f{i}*.mt

crea/icat tobefits.cat null
add/icat  tobefits.cat f{i}*.bdf
outdisk/fits  tobefits.cat NAME=INPUT ? .mt

$ rm f{i}*.bdf
write/out Sorting f{i}100*.mt to fibre1 
$ mv f{i}*100* fibre1

write/out Sorting f{i}200*.mt to fibre2 
$ mv f{i}*200* fibre2

$ rm tobefits.cat
$ rm dirfile.ascii

enddo

change/dir /data/reduced/Visitor/setiawan

write/out "======================================="
write/out " Thank you for observing with FEROS    "
write/out " Have fun with the spectra!            "
write/out "======================================="

write/out
exit: