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

set='r5'
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\'+set+'\',	$
	caldir	='d:\pmidata\'+date+'\calib\',	$
	outdir	='d:\data\'+date+'\'+set+'\',	$
	ext	='dat',			$
	fname	=set+'_*.pmi',	$
	dark	='rdrk'+['1','2','3','4','5']+'.pmi',		$
	flat	='rflt'+['1','2','3','4','5','6']+'.pmi',		$
	fdark	='dcdrk'+['1','2','3']+'.pmi' 
stop
rdc:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\calib\',	$
	caldir	='d:\pmidata\'+date+'\calib\',	$
	outdir	='d:\data\'+date+'\calib\',	$
	ext	='dat',			$
	fname	='r4dc'+['1','2','3']+'.pmi',	$
	dark	='dcdrk'+['1','2','3']+'.pmi',		$
	flat	='rflt'+['1','2','3','4','5','6']+'.pmi',		$
	fdark	='dcdrk'+['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