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

g4dc:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\calib\',	$
	caldir	='d:\pmidata\'+date+'\calib\',	$
	outdir	='d:\data\'+date+'\calib\',	$
	ext	='dat',			$
	fname	='g5dcdif2.pmi',	$
	dark	='dcdrk'+['4','5','6']+'.pmi',		$
	flat	='gflt'+['1','2','3','4','5']+'.pmi',		$
	fdark	='gfdrk'+['1','2','3']+'.pmi' 
stop
g1dc:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\calib\',	$
	caldir	='d:\pmidata\'+date+'\calib\',	$
	outdir	='d:\data\'+date+'\calib\',	$
	ext	='dat',			$
	fname	='g3dc3.pmi',	$
	dark	='dcdrk'+['1','2','3']+'.pmi',		$
	flat	='gflt'+['1','2','3','4','5']+'.pmi',		$
	fdark	='gfdrk'+['1','2','3']+'.pmi' 
stop
g5:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\g5\',	$
	caldir	='d:\pmidata\'+date+'\calib\',	$
	outdir	='d:\data\'+date+'\g5\',	$
	ext	='dat',			$
	fname	='g5_*.pmi',	$
	dark	='g5drk'+['1','2','3']+'.pmi',		$
	flat	='gflt'+['1','2','3','4','5']+'.pmi',		$
	fdark	='gfdrk'+['1','2','3']+'.pmi' 
stop
g4:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\g4\',	$
	caldir	='d:\pmidata\'+date+'\calib\',	$
	outdir	='d:\data\'+date+'\g4\',	$
	ext	='dat',			$
	fname	='g4_*.pmi',	$
	dark	='g4drk'+['1','2','3']+'.pmi',		$
	flat	='gflt'+['1','2','3','4','5']+'.pmi',		$
	fdark	='gfdrk'+['1','2','3']+'.pmi' 
stop
g3:
nkrsyori,	 $
	dir	='d:\pmidata\'+date+'\g3\',	$
	caldir	='d:\pmidata\'+date+'\calib\',	$
	outdir	='d:\data\'+date+'\g3\',	$
	ext	='dat',			$
	fname	='g3_*.pmi',	$
	dark	='g1drk'+['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	='g1drk'+['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	='g1drk'+['1','2','3']+'.pmi',		$
	flat	='gflt'+['1','2','3','4','5']+'.pmi',		$
	fdark	='gfdrk'+['1','2','3']+'.pmi' 
stop

end