function orca_init
%
%
% COPYRIGHT (c) 2008
% 
% Applied Research Laboratories, The University of Texas at Austin
% (ARL:UT)
% All rights reserved.
% 
% This material may be reproduced by or for the U.S. Government
% only. This notice must appear in all copies of this file and its
% derivatives. Further distribution outside the U.S. Government is
% prohibited without the explicit written authorization from the
% Director of the Environmental Sciences Laboratory, ARL:UT.
% 
% THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND,
% EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO THE
% IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
% PURPOSE, OR NONINFRINGEMENT.
% 
% IN NO EVENT WILL ARL:UT BE LIABLE FOR ANY DAMAGES WHATSOEVER ARISING
% OUT OF THE USE OR INABILITY TO USE THIS SOFTWARE, EVEN IF ARL:UT HAS
% BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
orca_global
%
if isempty(Odef), orca_global_set; end
%
ORC=[]; OBOX=[];
%
Obox.figno=0;
Obox.axes=[];
% To add programs to ORCA, add program name on *end* of Obox.progs and modify
% Obox.prog_order to specify which order programs are listed on menu:
Obox.progs={'ORCA CW';'ORCA Broadband';'ORCA k-Plane Image'; ...
	'ORCA Bottom Loss';'';'Create SVP File'; ...
	'View Output';'Run RAM PE';'ORCA NB Approx';'ORCA Beta'};
if exist('BETA_Toolbox'),
    Obox.prog_order=[6,1,2,9,10,3,4,7,8];
else
    Obox.prog_order=[6,1,2,9,3,4,7];
end%
Obox.nprog=length(Obox.progs);
Obox.nboxtot=0;
Obox.nbox_prog=zeros(1,Obox.nprog);
Obox.prog=NaN*ones(Obox.nprog,50);
Obox.handle=zeros(2,150);
%
ORC.iiprog=1; 
%%[ORC.adi_dir,iif]=adi_dir_find('ADI',0);
%
ORC.adi_dir=[]; ORC.arr_dir=[];
ORC.gui_files=[]; 
ORC.svp_files=[]; 
ORC.svp_root=[]; ORC.svp_info=[0,0,0,0,0,0,0,0,0,0]; ORC.svp_import=[];
ORC.hdf_files=[]; ORC.hdf_root=[];
ORC.mtl_files=[]; ORC.mtl_root=[];
ORC.hdf_nset=0; ORC.hdf_sets=[]; 
ORC.hdf_jset=1; ORC.hdf_rank=1; ORC.hdf_dims=[20,20]; ORC.hdf_dim_names=[];
ORC.hdf_dim_lims={[],[],[],[],[]};
%
ORC.mtraj_files=[]; ORC.mtraj_root=[];
ORC.SSP_files=[]; ORC.SSP_root=[];
%
ORC.out_root=[]; ORC.gui_root=[];
% Directory symbol:
if isunix,
	ORC.dx='/';
elseif isppc,
	ORC.dx=':';
elseif strcmp(computer,'PCWIN'),
	ORC.dx='\';
else
	disp('Unknown computer: check code in orca_init.'); ORC.dx='/';
end
%
ORC.cw_freqs=100;
ORC.zs_lims=[50,50,1]; ORC.zr_lims=[0,200,-2]; ORC.rng_lims=[.1,20,-.05];
ORC.zmf_lims=[0,200,-2]; ORC.bbf=[300,-1,10,50];
ORC.tau_lims=[-.1,1,201,30];
ORC.iiarr=0; ORC.make_arr=0; ORC.geom_files=[]; ORC.geom_root=[];
ORC.rec_xyz=[]; ORC.ii_make=0;
ORC.arr_xyz=[0 0 10; 0 0 20; 0 0 30]; ORC.cavg=1500;
%
ORC.ssp=[0 1500; 100 1500];
ORC.nlay=1; ORC.jlay=1;
ORC.auto=1; ORC.iidata=1;
%
ORC.type_opts=[1 0 0 0 0];	% [iicw,iikpl,iirc,iiparm,n_env];
ORC.gen_opts=[1 0 0 0 500 4 40 -1 -1 0 0 0];
% [iikpl,cphmin,cphmax,rmin rmax,phfac,db_cut,Aih_l,Aih_u,kkblm,iigbs,iidiag];
ORC.cw_opts=[1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]; 
% [iitl,iimf,iisig,iimt,iidc,iikn,iieig,iikrak,iioas,iifepe,iimlab]
ORC.bb_parms=[200,-1,10,50];		% [fs,+nfft/-Tw,fmin,fmax];
ORC.bb_opts=[1,0,0,0,0,0];			% [iifft,iiout,iift,iimt,iidc,iimf];
ORC.kpl_parms=[50,1,3,.5,1,201,0,30,151,0,1,1,1];
% [freq,iivar,iikf,kr1,kr2,nkr,ki1,ki2,nki,nduct,iiph,iishp,iishs];
ORC.var_parm1=[10,1];				% [nrun,nparm];
ORC.var_parm2=[1,1,-1,1,1500,1800];	% [obt,nlay,ktb,pc,val1,val2] (nparm rows);
ORC.rc_parms={[10,100,61],[0,90,181]};
% [freq1,freq2,nfreq,iilog,theta1,theta2,ntheta];
ORC.psize=[5,2]; ORC.clim=[-90,-50];
ORC.v_opts=[0 0 1 0 0 0 0 0 0 0];       % [xx,xx,instr,...] (instr=1 for view5 instructions);
%
ORC.nba_opts=[1 0 0 0 0 0 0 0 0 0];
%
ORC.SSP_parms=zeros(1,20);
