program define crlad
	version 4.0
	local b "`1'"
	local f "`2'"
	tempvar sad prdn

	matrix score `prdn' = `b'
	qui replace `prdn' = max(`prdn',$S_trunc)
	qui gen `sad' = sum(sqrt(($S_mldepn - `prdn')^2))
	scalar `f' = -`sad'[_N]

end