fid=fopen('xepic.key');
line=1;
while ~(line==-1),
	line=fgets(fid);
	if isstr(line),
		[t,s]=strtok(line,':');
		code=str2num(t);
		[epic(code).name,s]=strtok(s,':');
		[epic(code).long_name,s]=strtok(s,':');
		[epic(code).generic_name,s]=strtok(s,':');
		[epic(code).units,s]=strtok(s,':');
		[epic(code).Fortran_format,s]=strtok(s,':');
		[epic(code).other,s]=strtok(s,':');
	end;
end;
fclose(fid);
