function at_eqpac
% AT_EQPAC - Shell script for running eqpac processing functions

% Brian Schlining
% 31 Dec 1998

java on
PaperPosition = [.25 2.5 4.5 3.25];
%================
% Create epX.ftp
%================
e = ep_cmpl;
ep_write(e);

%==============================
% Create quality control plots
%==============================
at_ep1_plot(30);
a = readeqpac('\\tsunami.shore.mbari.org\oasis\eqpac\ep1\argos');
n = now;
start1 = floor(n - nanmin(a(:,1))) - 5;
at_ep1_plot(start1,'_');
ep1ctdprc            % Calc salinities for gernot
at_frat_plot(e,1,'d:\www\bog\images\epfrat1_.gif')
at_morelchl_plot(e,1,'d:\www\bog\images\epmchl1_.gif')
ep_qcplot(e, 1, 'd:\www\bog\images\ep1qc.gif')

% ep2
at_ep2_plot(30);
a = readeqpac('\\tsunami.shore.mbari.org\oasis\eqpac\ep2\argos');
start2 = floor(n - nanmin(a(:,1))) - 5;
at_ep2_plot(start2,'_');
at_frat_plot(e,2,'d:\www\bog\images\epfrat2_.gif')
at_morelchl_plot(e,2,'d:\www\bog\images\epmchl2_.gif')
ep_qcplot(e, 2, 'd:\www\bog\images\ep2qc.gif')

ep2ctdprc            % Calc salinities for gernot

ep_chl_plot(30)
ep_chl_plot(max([start1 start2]),'_')

% Process the stordat info to *.ftp files and create quality control plots
at_stordat