FILEHR determines the inputfiletype for loadhr inputtype = filethr(gfilen) if strcmp(er,'.dat') inputtype = 2; elseif strcmp(er,'.mat') inputtype = 1; elseif strcmp(er,'.m') inputtype = 0; elseif strcmp(er,'.txt') inputtype = 4; elseif strcmp(er,'.xls') inputtype = 5; else error([er ' is not a valid file type for loadhr']),return end