function [val, dvaldpi]=constant(t, valIn)
    dvaldpi=zeros(1,0);
    val    = ones(size(t)).*valIn;
    
% This work is licensed under the Creative Commons Attribution-Noncommercial-No Derivative 
% Works 3.0 United States License. To view a copy of this license, visit 
% http://creativecommons.org/licenses/by-nc-nd/3.0/us/ or send a letter to Creative Commons,
% 171 Second Street, Suite 300, San Francisco, California, 94105, USA.