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


goto,g3

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

g3:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\ccd2',	$
	outdir	='d:\data\'+date+'\g3',	$
	ext	='fts',			$
	fname	='g3_*.pmi',	$
	dark	='g3drk15.pmi',		$
	flat	='g3flt4.pmi',		$
	fdark	='g3drk4.pmi' 
stop

g3dc:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\ccd2',	$
	outdir	='d:\data\'+date,	$
	ext	='fts',			$
	fname	='g3dc2.pmi',	$
	dark	='g3drk2.pmi',		$
	flat	='g3flt4.pmi',		$
	fdark	='g3drk4.pmi' 
stop

r2:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\ccd1',	$
	outdir	='d:\data\'+date+'\r2',	$
	ext	='fts',			$
	fname	='r2_*.pmi',	$
	dark	='r3drk15.pmi',		$
	flat	='r3flt05.pmi',		$
	fdark	='r3drk05.pmi' 
stop

r3:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\ccd1',	$
	outdir	='d:\data\'+date+'\r3',	$
	ext	='fts',			$
	fname	='r3_*.pmi',	$
	dark	='r3drk15.pmi',		$
	flat	='r3flt05.pmi',		$
	fdark	='r3drk05.pmi' 
stop

r3dc:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\ccd1',	$
	outdir	='d:\data\'+date,	$
	ext	='fts',			$
	fname	='r3dc2.pmi',	$
	dark	='r3drk2.pmi',		$
	flat	='r3flt05.pmi',		$
	fdark	='r3drk05.pmi' 
stop






end


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