39 if ((datatype = H5Tcopy(H5T_C_S1)) < 0)
41 if ((ret = H5Tset_size(datatype,longueur+1)) < 0)
43 if ((attid = H5Aopen_name(pere,nom)) < 0)
45 if ((ret = H5Aread(attid,datatype,val)) < 0)
47 if ((ret = H5Tclose(datatype)) < 0)
49 if ((ret = H5Aclose(attid)) < 0)
med_err _MEDattrStringLire(med_idt pere, char *nom, int longueur, char *val)