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

nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\calib\',	$
	outdir	='d:\data\'+date,	$
	caldir	='d:\pmidata\'+date+'\calib\',	$
	fname	='r2dc3.pmi',		$
	dark	='r2drk1.pmi',		$
	flat	='r2flt1.pmi',	$
	fdark	='r2drk10.pmi' ,			$
	result	= sp
stop

nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\r2',	$
	outdir	='d:\data\'+date+'\r2',	$
	caldir	='d:\pmidata\'+date+'\calib\',	$
	fname	='r2_*.pmi',		$
	dark	='r2drk10.pmi',		$
	flat	='r2flt1.pmi',	$
	fdark	='r2drk10.pmi' ,			$
	result	= sp
stop

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