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

; 1. title
;  object: 	polarimeter test
;  wavelength:	5303
;  comments.

nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\r1',	$
	outdir	='d:\data\'+date+'\r1',	$
	fname	='r1_010.pmi',		$
	dark	='r1drk10.pmi',		$
	flat	='',			$
	fdark	='' ,			$
	result	= sp

stop

nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\r2',	$
	outdir	='d:\data\'+date+'\r2',	$
	fname	='r2sky1.pmi',		$
	dark	='r2drk1b.pmi',		$
	flat	='r2sflt5.pmi',		$
	fdark	='r2drk01.pmi' ,		$
	result	= sp

stop
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\r2',	$
	outdir	='d:\data\'+date+'\r2',	$
	fname	='r2_*.pmi',		$
	dark	='r2drk5.pmi',		$
	flat	=['r2flt5.pmi','r2flt8.pmi'],		$
;	flat	='r2flt8.pmi',		$
	fdark	='r2drk1.pmi' ,		$
	result	= sp

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