make readsts calls consistent and more robust ... handling index argument in consistent manner

Author: hrajagers

src/tools_lgpl/matlab/quickplot/progsrc/private/analytical_solution.m

@@ -94,7 +94,7 @@
         [varargout{1:2}]=gettimezone(FI,idom,Props);
         return
     case 'stations'
-        varargout={readsts(FI,Props,0)};
+        varargout={readsts(FI,Props,varargin{:})};
         return
     case 'subfields'
         varargout={getsubfields(FI,Props,varargin{:})};

src/tools_lgpl/matlab/quickplot/progsrc/private/arcgridfil.m

@@ -89,7 +89,7 @@
         [varargout{1:2}]=gettimezone(FI,domain,Props);
         return
     case 'stations'
-        varargout={readsts(FI,Props,0)};
+        varargout={readsts(FI,Props,varargin{:})};
         return
     case 'subfields'
         varargout={getsubfields(FI,Props,varargin{:})};
@@ -503,14 +503,6 @@
 end
 % -----------------------------------------------------------------------------
 
-
-% -----------------------------------------------------------------------------
-function S=readsts(FI,Props,t)
-
-%======================== SPECIFIC CODE =======================================
-S={};
-% -----------------------------------------------------------------------------
-
 % -----------------------------------------------------------------------------
 function [NewFI,cmdargs]=options(FI,mfig,cmd,varargin)
 Inactive=get(0,'defaultuicontrolbackground');

src/tools_lgpl/matlab/quickplot/progsrc/private/asciiwindfil.m

@@ -89,7 +89,7 @@
         [varargout{1:2}]=gettimezone(FI,domain,Props);
         return
     case 'stations'
-        varargout={readsts(FI,Props,0)};
+        varargout={readsts(FI,Props,varargin{:})};
         return
     case 'subfields'
         varargout={getsubfields(FI,Props,varargin{:})};

src/tools_lgpl/matlab/quickplot/progsrc/private/cfxfil.m

@@ -78,7 +78,7 @@
         [varargout{1:2}]=gettimezone(FI,domain,Props);
         return
     case 'stations'
-        varargout={{}};
+        varargout={readsts(FI,Props,varargin{:})};
         return
     case 'subfields'
         varargout={{}};
@@ -323,11 +323,3 @@
     T=T(t);
 end
 % -----------------------------------------------------------------------------
-
-
-% -----------------------------------------------------------------------------
-function S=readsts(FI,Props,t)
-
-%======================== SPECIFIC CODE =======================================
-S={};
-% -----------------------------------------------------------------------------

src/tools_lgpl/matlab/quickplot/progsrc/private/d3d_bothfil.m

@@ -88,7 +88,7 @@
         [varargout{1:2}]=gettimezone(FI,domain,Props);
         return
     case 'stations'
-        varargout={readsts(FI,Props,0)};
+        varargout={readsts(FI,Props,varargin{:})};
         return
     case 'subfields'
         varargout={{}};
@@ -356,4 +356,7 @@
 %======================== SPECIFIC CODE =======================================
 [S,Chk]=vs_get(FI,'HISBOT','NAMSTD','quiet');
 S=cellstr(S);
+if nargin>2 && ~isequal(t,0)
+   S=S(t);
+end
 % -----------------------------------------------------------------------------

src/tools_lgpl/matlab/quickplot/progsrc/private/d3d_simfil.m

@@ -101,7 +101,7 @@
         [varargout{1:2}]=gettimezone(FI,idom,Props);
         return
     case 'stations'
-        varargout={readsts(FI,Props,0)};
+        varargout={readsts(FI,Props,varargin{:})};
         return
     case 'subfields'
         varargout={getsubfields(FI,Props,varargin{:})};

src/tools_lgpl/matlab/quickplot/progsrc/private/d3d_trahfil.m

@@ -88,7 +88,7 @@
         [varargout{1:2}]=gettimezone(FI,domain,Props);
         return
     case 'stations'
-        varargout={readsts(FI,Props,0)};
+        varargout={readsts(FI,Props,varargin{:})};
         return
     case 'subfields'
         varargout={getsubfields(FI,Props,varargin{:})};
@@ -518,4 +518,7 @@
     S=multiline(S(1:end-1));
     S=cellstr(S);
 end
+if nargin>2 && ~isequal(t,0)
+    S=S(t);
+end
 % -----------------------------------------------------------------------------

src/tools_lgpl/matlab/quickplot/progsrc/private/d3d_tridfil.m

@@ -88,7 +88,7 @@
         [varargout{1:2}]=gettimezone(FI,domain,Props);
         return
     case 'stations'
-        varargout={readsts(FI,Props,0)};
+        varargout={readsts(FI,Props,varargin{:})};
         return
     case 'subfields'
         varargout={getsubfields(FI,Props,varargin{:})};
@@ -343,11 +343,10 @@
     otherwise
         [S,Chk]=vs_get(FI,'dro-const','NAMDRO','quiet');
 end
-if t~=0
-    S=S(t,:);
-end
 S=cellstr(S);
-% -----------------------------------------------------------------------------
+if nargin>2 && ~isequal(t,0)
+    S=S(t);
+end% -----------------------------------------------------------------------------
 
 function Subf = getsubfields(FI,Props,f)
 if isempty(Props.SubFld)

src/tools_lgpl/matlab/quickplot/progsrc/private/d3d_trihfil.m

@@ -1300,6 +1300,9 @@
 if ~iscell(S)
     S=cellstr(S);
 end
+if nargin>2 && ~isequal(t,0)
+    S=S(t);
+end
 % -----------------------------------------------------------------------------
 
 % -----------------------------------------------------------------------------

src/tools_lgpl/matlab/quickplot/progsrc/private/d3d_waqfil.m

@@ -88,7 +88,7 @@
         [varargout{1:2}]=gettimezone(FI,domain,Props);
         return
     case 'stations'
-        varargout={readsts(FI,Props,0)};
+        varargout={readsts(FI,Props,varargin{:})};
         return
     case 'subfields'
         varargout={getsubfields(FI,Props,varargin{:})};
@@ -2154,7 +2154,7 @@
         S=cellstr(S);
     end
 end
-if ~isequal(t,0)
+if nargin>2 && ~isequal(t,0)
     S=S(t);
 end
 % -----------------------------------------------------------------------------