From eb4ac9124814e3124ff5bd08614026a45e217806 Mon Sep 17 00:00:00 2001
From: Samuel Bignardi <sedysen@gmail.com>
Date: Sat, 6 Apr 2019 16:17:28 -0400
Subject: [PATCH] 190406 minor change

---
 src/gui_3D.m | 36 +++++++++++++++++++++++++++++-------
 1 file changed, 29 insertions(+), 7 deletions(-)

diff --git a/src/gui_3D.m b/src/gui_3D.m
index 31ce562..aa72f23 100644
--- a/src/gui_3D.m
+++ b/src/gui_3D.m
@@ -4289,10 +4289,9 @@ function define_Profile(~,~,~)
         %
         prompt = {'Select the ID of the farthest station','Custom name'};
         def = {'0','none'};
-        % inputdlg(prompt,title,dims,definput)
         answer = inputdlg(prompt,'info request',[1 35],def);
         if(isempty(answer)); return; end
-        %r_distance_from_profile = str2double(answer{1});
+        %
         id_farhest = str2double(answer{1});
         profile_name = answer{2};
         if (0<id_farhest) && (id_farhest<=Np)
@@ -5074,30 +5073,53 @@ function export_current_profile_as_standalone_elaboration(~,~,~)
 %% TAB 5 ====================== 3D Views
     function CB_TAB_create_reference_scales(~,~,~)
         if ~isempty(SURVEYS)
-            %% Generate a reference Frequence scale
+            %% Generate a reference Frequence scale (range that exixt for all HVSRs)
             %fprintf('call to: CB_TAB_create_reference_scales\n')
             %fprintf('            will prepare common reference scales for 3D-view\n')
             % each dataset may have a different frequency sampling and band
             Ndat = size(SURVEYS,1);
             %
-            tempfmin = 1e30;
+            tempfmin = 0;
+            for s=1:Ndat% search first valid f-min
+                temp=DTB__section__Min_Freq(s,1);
+                if ~isempty(temp)
+                    tempfmin = temp;
+                    break;
+                end
+            end
             for s=1:Ndat%investigate all surveys
                 temp=DTB__section__Min_Freq(s,1);
                 if ~isempty(temp)
-                    if temp<tempfmin
+                    if temp>tempfmin
                         tempfmin = temp;
                     end
                 end
             end
-            tempfmax = -1e30;
+            tempfmax = 0;
+            for s=1:Ndat% search first valid f-max
+                temp=DTB__section__Max_Freq(s,1);
+                if ~isempty(temp)
+                    tempfmax = temp;
+                    break;
+                end
+            end
             for s=1:Ndat%investigate all surveys
                 temp=DTB__section__Max_Freq(s,1);
                 if ~isempty(temp)
-                    if temp>tempfmax
+                    if temp<tempfmax
                         tempfmax = temp;
                     end
                 end
             end
+            if tempfmin>=tempfmax
+                fprintf('ERROR: no common frequency range faund for the measurements\n')
+                fprintf('       disabling figures based on interpolation\n')
+                fprintf('       pause. (hit any key to continue)\n')
+                pause
+                FLAG__enable_interpolated_figures = 0;
+            else
+                FLAG__enable_interpolated_figures = 1;
+            end
             %
             %
             %