function d=cclin(t,y)
% cclin(t,y) evaluates the right side of the constant coefficient linear 
% system y'=A*y, using A=parameter (global). 

global parameter 
d=parameter*y(:);
% M. Day, June 5, 2005
