- refactored

common/util/print_parameters.m

@@ -0,0 +1,24 @@
+function print_parameters(params, units)
+align = 32;
+names = fieldnames(params);
+for n=1:length(names),
+	if isempty(params.(names{n}))
+		continue;
+	end
+	fprintf('%s', names{n});
+	remain = align - length(names{n});
+	if remain < 0
+		error('Invalid variable length!');
+	else
+		for j=1:remain
+			fprintf(' ');
+		end
+		typeName = typeinfo(params.(names{n}));
+		if typeName == "scalar"
+			fprintf('= %g %s\n', params.(names{n}), units.(names{n}));
+		else
+			fprintf('= %s\n', typeName);
+		end
+	end
+end
+endfunction