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

nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\a\',	$
	outdir	='e:\data\'+date+'\g1\',	$
	ext	='dat',			$
	fname	='g1*.pmi',		$
	dark	='gdrk10.pmi',		$
	flat	='gflt1.pmi',		$
	fdark	='gdrk1.pmi' 
stop

nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\a\',	$
	outdir	='e:\data\'+date+'\r2\',	$
	ext	='dat',			$
	fname	='r2*.pmi',	$
	dark	='rdrk10.pmi',		$
	flat	='rflt1.pmi',		$
	fdark	='rdrk051.pmi' 

nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\b\',	$
	outdir	='e:\data\'+date+'\g2\',	$
	ext	='dat',			$
	fname	='g2*.pmi',	$
	dark	='gdark10.pmi',		$
	flat	='gflt1.pmi',		$
	fdark	='gdark1.pmi' 

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