Pro batch_rnperpixel,dirlist, skipline=skipline

	; NAME:
	;      pro batch_rnperpixel.pro
	;
	; PURPOSE:
	;	This program is a batch procedure for rnperpixel.pro
    ;
	; CALLING SEQUENCE:
	;	batch_darkcurrent,dirlist [,skipline]
	;
	; INPUTS:
	;	dirlist			file name for file containing list of input directories
	;
	; KEYWORD PARAMETERS:
	;	   skipline		number of lines to skip when reading input directory list, defaults to 0
	;
	;
	; EXAMPLE
	;      Run batch_rnperpixel to reduce results from several dark current/read noise experiments. Make PostScript output
	;      batch_rnperpixel, filelist
	;
	; REFERENCE:
	;
	;
	; MODIFICATION HISTORY:
	;       Written by:  E. Morse, IDTL, May 16, 2003
    ;
	;-

	; Set directory string according to handle UNIX and Windows

	if (!version.os_family eq 'unix') then begin
		slashstring='/'
	endif else begin
        slashstring='\'
    endelse

    ; Set default file list
	if (not (keyword_set(dirlist))) then dirlist='batch_darkcurrent_dirlist.txt'

    ; Set defaults
    if (not keyword_set(outps)) then outps = 0  			; Default does not write PostScript
    if (not keyword_set(skipline)) then skipline=0

	; read in list of directories
	  readcol, dirlist, filenames, testdirs, plotdirs, x1,x2,y1,y2, saref, maref, rt, format='(A,A,A,I,I,I,I,I,I,D)', $
	           skipline=skipline

	; process data in each directory
	for i=0,n_elements(testdirs)-1 do begin
		; add a slash to the directory names if the last character is not one.
		if (strlen(testdirs(i)) ne strpos(testdirs(i),slashstring,/reverse_search)+1) then testdirs(i)=testdirs(i)+slashstring

		print,'Processing data in directory '+testdirs(i)

		;call rnperpixel--the directory list also contains the input parameters to use
		rnperpixel, testdirs[i], infile=filenames[i], outfile='stdfiles.txt', region=[x1[i],x2[i],y1[i],y2[i]]

	endfor

End