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

goto,g3
gdc:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\calib\',	$
	caldir	='d:\pmidata\'+date+'\calib\',	$
	outdir	='d:\data\'+date+'\calib\',	$
	ext	='dat',			$
	fname	='gdcdif'+['1','2','3']+'.pmi',	$
	dark	='gdcdrk'+['1','2','3']+'.pmi',		$
	flat	='gflt'+['1','2','3','4','5']+'.pmi',		$
	fdark	='gfdrk'+['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	='gdrk'+['1','2','3']+'.pmi',		$
	flat	='gflt'+['1','2','3','4','5']+'.pmi',		$
	fdark	='gfdrk'+['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	='gdrk'+['1','2','3']+'.pmi',		$
	flat	='gflt'+['1','2','3','4','5']+'.pmi',		$
	fdark	='gfdrk'+['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	='gdrk'+['1','2','3']+'.pmi',		$
	flat	='gflt'+['1','2','3','4','5']+'.pmi',		$
	fdark	='gfdrk'+['1','2','3']+'.pmi' 
stop

end