cosmo type hdr

function s = cosmo_type(fn)