function [dof,z] = c_7_p_8_fn(x)
%
x = x(:)'; % x is a row vector 
[junk,n] = size(x);
dof = 2;
z = zeros(dof,n);
z(1,:) = ones(1,n);
z(2,:) = log( x );