Changeset 24537 for issm/trunk-jpl/src/m/classes/qmu/response_function.m

Timestamp:

01/31/20 11:51:49 (5 years ago)

Author:

Mathieu Morlighem

Message:

CHG: minor estetics

File:

• issm/trunk-jpl/src/m/classes/qmu/response_function.m (modified) (2 diffs)

issm/trunk-jpl/src/m/classes/qmu/response_function.m

@@ -43 +43 @@
             switch nargin
 
-%  create a default object
-
+                                        %  create a default object
                 case 0
 
-%  copy the object or create the object from the input
-
+                                                 %  copy the object or create the object from the input
                 otherwise
                     if  (nargin == 1) && isa(varargin{1},'response_function')
@@ -170 +168 @@
         function [rdesc]=dakota_write(fidi,dresp,rdesc)
 
-%  collect only the responses of the appropriate class
-
+                          %  collect only the responses of the appropriate class
             rf=struc_class(dresp,'response_function');
 
-%  write responses
+                                %  write responses
+                                [rdesc]=rlist_write(fidi,'response_functions','response_function',rf,rdesc);
+                        end
 
-            [rdesc]=rlist_write(fidi,'response_functions','response_function',rf,rdesc);
-        end
+                        function []=dakota_rlev_write(fidi,dresp,params)
 
-        function []=dakota_rlev_write(fidi,dresp,params)
+                                %  collect only the responses of the appropriate class
+                                rf=struc_class(dresp,'response_function');
 
-%  collect only the responses of the appropriate class
-
-            rf=struc_class(dresp,'response_function');
-
-%  write response levels
-
-            rlev_write(fidi,rf,params);
+                                %  write response levels
+                                rlev_write(fidi,rf,params);
         end
     end