function [] = plotELCOMinputDir(infilesDir,datelim,bcsetlist,pltTheme)

% function [data,data_type,bcset_no,n_data] = plotELCOMinputDir(filename)
%
% funcion to plot ELCOM all .dat files in input dir
%
% Inputs:
%		infilesDir : dir to be plotted
%		datelim	   : (optional) array of min and max dates to plot in CWR format
%		bcsetlist  : (optional) structure giving bcset_no and bc_name
%						eg:  bcsetlist.bcset_no = [1 2]
%						eg:  bcsetlist.bc_name = [{'River A'},{'Dam Wall Outflow'} ]
%       pltTheme   : (optional) string for input to setPlotTheme
%
% Outputs
%		ierr       : error flag
%
% Uses:
%		plotELCOMinputFile.m
%
% Written by C. Dallimore 27 July 04

ierr = 0;
close all

oldDir = pwd;
cd(infilesDir)

if nargin == 4
elseif nargin == 3
	pltTheme = [];
elseif (nargin == 2)
	bcsetlist = [];
	pltTheme = [];
elseif (nargin == 1 | isempty(datelim))
	datelim = [-9.9e17 9.9e17];
	bcsetlist = [];
else
	disp('Incorrect number of arguments to plotELCOMicFile')
	ierr =1;
	return
end

% get all *.dat files
d = dir ('*');

pltTheme

for i =  1:length(d)
	fname = d(i).name;
	plotELCOMinputFile(fname,datelim,bcsetlist,pltTheme);
end

cd(oldDir)