function orca_name_update(cback_fig)
%
%
% 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
%
% Update ORC boxes with available files in directory and current choice:
%
adi_dir=ORC.adi_dir; arr_dir=ORC.arr_dir;
ORC.gui_files=gui_pop_update(cback_fig,'*_orca.mat',9,'Load _orca root',ORC.gui_root);
ORC.svp_files=gui_pop_update(cback_fig,'*.svp',4,'SVP File',ORC.svp_root,adi_dir);
ORC.svp_files=gui_pop_update(cback_fig,'*.svp',4,'Import SVP',ORC.svp_import,adi_dir);
ORC.hdf_files=gui_pop_update(cback_fig,'*.hdf',4,'HDF File',ORC.hdf_root);
ORC.hdf_files=gui_pop_update(cback_fig,'*.hdf',4,'Beta HDF File',ORC.hdf_root);
ORC.mtraj_files=gui_pop_update(cback_fig,'*_mtraj',6,'Mode Trajectory File',ORC.mtraj_root);
ORC.mtl_files=gui_pop_update(cback_fig,{'*.mat','*.hdf'},[4 4],'Meas TL File',ORC.mtl_root);
ORC.SSP_files=gui_pop_update(cback_fig,'*_SSP.mat',4,'SSP from _SSP.mat',ORC.SSP_root,adi_dir);
nav_dir=adi_dir_find('NAV',0); ORC.nav_dir=nav_dir;
sufs={'*_array','_geom'}; lsufs=[0 0];
ORC.geom_files=gui_pop_update(cback_fig,sufs,lsufs,'Rec Array',ORC.geom_root,arr_dir);
% Load appropriate file based on which program user is running:
%
switch ORC.iiprog,
case {1,2,3,4},
	orca_act('SVP File');
case {6},
	orca_act('No. Bot Layers');
    orca_act('SSP from _SSP.mat');
case {7},
	orca_act('HDF File'); orca_act('Mode Trajectory File');
case {10},
    orca_act('Beta HDF File');
end
%
if any(ORC.iiprog==[1,2,3,4]), orca_act('Vary Parms'); end
ORC.iiprog,
if any(ORC.iiprog==[1,2,8,9,10]), 
    orca_act('Make Array File ...'); 
    orca_act('Spec Receiver Array');
end    
%
if any(ORC.iiprog==[1]),
    orca_act('Compute TL');
    orca_act('CW Mode Functions');
    orca_act('k-Plane [Real Axis]');
end
if any(ORC.iiprog==[2]),
    orca_act('Create FFT File ');
    orca_act('BB Mode Functions');
    orca_act('k-Plane [Real Axis]');
end
