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

goto,g3
g3dc:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\calib\',	$
	caldir	='d:\pmidata\'+date+'\calib\',	$
	outdir	='d:\data\'+date+'\calib\',	$
	ext	='dat',			$
	fname	='g3dc'+['1','2','3']+'.pmi',	$
	dark	='g3dcdrk'+['1','2','3']+'.pmi',		$
	flat	='g3flt'+['1','2','3']+'.pmi',		$
	fdark	='g3fdrk'+['1','2','3']+'.pmi' , $
	result=sp
stop
g1dc:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\calib\',	$
	caldir	='d:\pmidata\'+date+'\calib\',	$
	outdir	='d:\data\'+date+'\calib\',	$
	ext	='dat',			$
	fname	='g1dcdif'+['1','2','3']+'.pmi',	$
	dark	='dcdrk'+['1','2','3']+'.pmi',		$
	flat	='g2flt'+['1','2','3']+'.pmi',		$
	fdark	='g2fdrk'+['1','2','3']+'.pmi' , $
	result=sp
stop
g3:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\g3\',	$
	caldir	='d:\pmidata\'+date+'\calib\',	$
	outdir	='d:\data\'+date+'\g3\',	$
	ext	='dat',			$
	fname	='g3_*.pmi',	$
	dark	='g3drk'+['1','2','3']+'.pmi',		$
	flat	='g3flt'+['1','2','3']+'.pmi',		$
	fdark	='g3fdrk'+['1','2','3']+'.pmi' 
stop
g2:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\g2\',	$
	caldir	='d:\pmidata\'+date+'\calib\',	$
	outdir	='d:\data\'+date+'\g2\',	$
	ext	='dat',			$
	fname	='g2_*.pmi',	$
	dark	='g1drk'+['1','2','3']+'.pmi',		$
	flat	='g2flt'+['1','2','3']+'.pmi',		$
	fdark	='g2fdrk'+['1','2','3']+'.pmi' 
stop
g1:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\g1\',	$
	caldir	='d:\pmidata\'+date+'\calib\',	$
	outdir	='d:\data\'+date+'\g1\',	$
	ext	='dat',			$
	fname	='g1_*.pmi',	$
	dark	='g1drk'+['1','2','3']+'.pmi',		$
	flat	='g2flt'+['1','2','3']+'.pmi',		$
	fdark	='g2fdrk'+['1','2','3']+'.pmi' 
stop

end