function d=crpath
% d=crpath ... full path to the directory .../cas_rady
% MODIFY if necessary:
% d='d:/vesely/matlab/vyuka/cas_rady';
d=fileparts(which('crpath'));
