;;;;;;;;;;;;;;;   syori1.pro   ;;;;;;;;;;;;;;;;
; This is a sample program
date='970920'	; <== 日付をここで指定します


;goto,g3

irdc:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\ccd2',	$
	outdir	='d:\data\'+date,	$
	ext	='fts',			$
	fname	='ir3dc1.pmi',	$
	dark	='irdrk05.pmi',		$
	flat	='ir4flt1.pmi',		$
	fdark	='irdrk3.pmi' 
stop

ir:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\ccd2',	$
	outdir	='d:\data\'+date+'\ir4',	$
	ext	='fts',			$
	fname	='ir4_*.pmi',	$
	dark	='irdrk40c.pmi',		$
	flat	='ir4flt1.pmi',		$
	fdark	='irdrk3.pmi' 
stop


r2dc:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\ccd1',	$
	outdir	='d:\data\'+date,	$
	ext	='fts',			$
	fname	='r2dc2.pmi',	$
	dark	='r2drk05.pmi',		$
	flat	='r2flt1.pmi',		$
	fdark	='r2drk05.pmi' 
stop

g2dc:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\ccd2',	$
	outdir	='d:\data\'+date,	$
	ext	='fts',			$
	fname	='g2dc2.pmi',	$
	dark	='g2drk1.pmi',		$
	flat	='g2flt3.pmi',		$
	fdark	='g2drk1.pmi' 
stop

r2:
nkrsyori,	 $
	dir	='g:\pmidata\'+date+'\ccd1',	$
	outdir	='g:\data\'+date+'\r2',	$
	ext	='fts',			$
	fname	='r2_*.pmi',	$
	dark	='r2drk15.pmi',		$
	flat	='r2flt1.pmi',		$
	fdark	='r2drk05.pmi' 
stop

g2:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\ccd2',	$
	outdir	='d:\data\'+date+'\g2',	$
	ext	='fts',			$
	fname	='g2_*.pmi',	$
	dark	='g2drk15.pmi',		$
	flat	='g2flt3.pmi',		$
	fdark	='g2drk1.pmi' 
stop

r1:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\ccd1',	$
	outdir	='d:\data\'+date+'\r1',	$
	ext	='fts',			$
	fname	='r1_*.pmi',	$
	dark	='r2drk15.pmi',		$
	flat	='r2flt1.pmi',		$
	fdark	='r2drk05.pmi' 
stop

g1:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\ccd2',	$
	outdir	='d:\data\'+date+'\g1',	$
	ext	='fts',			$
	fname	='g1_*.pmi',	$
	dark	='g2drk15.pmi',		$
	flat	='g2flt3.pmi',		$
	fdark	='g2drk1.pmi' 
stop


end


;;;;;;;;;;;;;;   end of program   ;;;;;;;;;;;;;;