med_int nmsefiar(med_int *fid, char *mname, med_int *mnamelen, char *aname, med_int *anamelen, med_int *val) #endif { med_int _ret; char *_fn1, *_fn2; _fn1 = _MED2cstring((char *) mname, (int) *mnamelen); if (!_fn1) return(-1); _fn2 = _MED2cstring((char *) aname, (int) *anamelen); if (!_fn2) return(-1); _ret = (med_int) MEDstructElementConstAttRd((const med_idt) *fid, _fn1, _fn2, (void *) val); _MEDcstringFree(_fn1); _MEDcstringFree(_fn2); return _ret; }
med_int nmfdfinw(med_int *fid, char *fname, med_int *fnamelen, char *iname, med_int *inamelen) #endif { med_err _ret=0; char *_fn1,*_fn2; _fn1 = _MED2cstring((char *) fname, (int) *fnamelen); if (!_fn1) return(-1); _fn2 = _MED2cstring((char *) iname, (int) *inamelen); if (!_fn2) return(-1); _ret = (med_int) MEDfieldInterpWr((med_idt) *fid, _fn1, _fn2); _MEDcstringFree(_fn1); _MEDcstringFree(_fn2); return (_ret); }
med_int nmsefcre(med_int *fid, char *mname, med_int *mnamelen, med_int * mdim, char *smname, med_int *smnamelen, med_int *setype, med_int *sgtype) #endif { med_int _ret; char *_fn1, *_fn2; med_entity_type _setype = (med_entity_type) *setype; med_geometry_type _sgtype = (med_geometry_type) *sgtype; _fn1 = _MED2cstring((char *) mname, (int) *mnamelen); if (!_fn1) return(-1); _fn2 = _MED2cstring((char *) smname, (int) *smnamelen); if (!_fn2) return(-1); _ret = (med_int) MEDstructElementCr((const med_idt) *fid, _fn1, (const med_int) *mdim, _fn2, _setype, _sgtype); _MEDcstringFree(_fn1); _MEDcstringFree(_fn2); return _ret; }
med_int nmsefiaw(med_int *fid, char *mname, med_int *mnamelen, char *aname, med_int *anamelen, med_int *atype, med_int *anc, med_int *setype, med_int *val) #endif { med_int _ret; char *_fn1, *_fn2; med_attribute_type _atype = (med_attribute_type) *atype; med_entity_type _setype = (med_entity_type) *setype; _fn1 = _MED2cstring((char *) mname, (int) *mnamelen); if (!_fn1) return(-1); _fn2 = _MED2cstring((char *) aname, (int) *anamelen); if (!_fn2) return(-1); _ret = (med_int) MEDstructElementConstAttWr((const med_idt) *fid, _fn1, _fn2, _atype, (med_int) *anc, _setype, (void *) val); _MEDcstringFree(_fn1); _MEDcstringFree(_fn2); return _ret; }
med_int nmsefvni(med_int *fid, char *mname, med_int *mnamelen, char *aname, med_int *anamelen, med_int *atype, med_int *anc) #endif { med_int _ret; char *_fn1, *_fn2; med_attribute_type _atype; _fn1 = _MED2cstring((char *) mname, (int) *mnamelen); if (!_fn1) return(-1); _fn2 = _MED2cstring((char *) aname, (int) *anamelen); if (!_fn2) return(-1); _ret = (med_int) MEDstructElementVarAttInfoByName((const med_idt) *fid, _fn1, _fn2, &_atype, (med_int *) anc); *atype = (med_int) _atype; _MEDcstringFree(_fn1); _MEDcstringFree(_fn2); return _ret; }
med_int nedfscee(med_idt *fid, char *scalaire, med_int *lon1, med_int *val, med_int *numdt, char *dt_unit, med_int *lon2, med_float *dt, med_int *numo) #endif { med_int ret; char *fn1, *fn2; fn1 = _MED2cstring(scalaire, (int) * lon1); fn2 = _MED2cstring(dt_unit, (int) * lon2); if (!fn1 || !fn2) return(-1); ret = (int) MEDscalaireEntierEcr( *fid,(char *)fn1,(med_int) *val, (med_int) *numdt, (char *) fn2, (med_float) *dt, (med_int) *numo ); _MEDcstringFree(fn1); _MEDcstringFree(fn2); return(ret); }
med_int nmfdfipw(med_int *fid, char *fname, med_int *fnamelen, med_int *numdt, med_int *numit, med_float *dt, med_int *etype, med_int *gtype, med_int *stm, char *pname, med_int *pnamelen, char *lname, med_int *lnamelen, med_int *swm,med_int *cs, med_int *n, med_int *val) #endif { med_err _ret=0; char *_fn1,*_fn2,*_fn3; med_switch_mode _swm = (med_switch_mode) *swm; med_geometry_type _gtype = (med_geometry_type) *gtype; med_entity_type _etype = (med_entity_type) *etype; med_storage_mode _stm = (med_storage_mode) *stm; _fn1 = _MED2cstring((char *) fname, (int) *fnamelen); if (!_fn1) return(-1); _fn2 = _MED2cstring((char *) pname, (int) *pnamelen); if (!_fn2) return(-1); _fn3 = _MED2cstring((char *) lname, (int) *lnamelen); if (!_fn3) return(-1); _ret = (med_int) MEDfieldValueWithProfileWr((const med_idt) *fid, _fn1, (med_int) *numdt, (med_int) *numit, (med_float) *dt, _etype, _gtype, _stm, _fn2, _fn3, _swm, (med_int) *cs, (med_int) *n, (unsigned char *) val); _MEDcstringFree(_fn1); _MEDcstringFree(_fn2); _MEDcstringFree(_fn3); return (_ret); }
med_int nmsefvai(med_int *fid, char *mname, med_int *mnamelen, med_int *it, char *aname, med_int *atype, med_int *anc) #endif { med_int _ret; char *_fn1; char _fs1[MED_NAME_SIZE+1]=""; med_attribute_type _atype; _fn1 = _MED2cstring((char *) mname, (int) *mnamelen); if (!_fn1) return(-1); _ret = (med_int) MEDstructElementVarAttInfo((const med_idt) *fid, _fn1, (med_int) *it, _fs1, &_atype, (med_int *) anc); *atype = (med_int) _atype; _MEDc2fString(_fs1,aname,MED_NAME_SIZE); _MEDcstringFree(_fn1); return _ret; }
med_int nmfdfiar(med_int *fid, char *fname, med_int *fnamelen, med_int *numdt, med_int *numit, med_int *etype, med_int *gtype, unsigned char **flt, med_int *val) #endif { med_err _ret=0; char *_fn1; med_geometry_type _gtype = (med_geometry_type) *gtype; med_entity_type _etype = (med_entity_type) *etype; med_filter *_filter = (med_filter*) *flt; _fn1 = _MED2cstring((char *) fname, (int) *fnamelen); if (!_fn1) return(-1); _ret = (med_int) MEDfieldValueAdvancedRd((const med_idt) *fid, _fn1, (med_int) *numdt, (med_int) *numit, _etype, _gtype, _filter, (unsigned char *) val); _MEDcstringFree(_fn1); return (_ret); }
med_int nmipfbfw(med_int *fid, char *name, med_int *lon1, med_int *it, med_int *nc, med_int *pw, med_float *co) #endif { med_int _ret; char *_fn1; _fn1 = _MED2cstring(name, (int) * lon1); if (!_fn1 ) return(-1); _ret = (med_int) MEDinterpBaseFunctionWr((med_idt) *fid, _fn1, (med_int) *it, (med_int) *nc, (med_int *) pw, (med_float *) co ); _MEDcstringFree(_fn1); return(_ret); }
med_int nmfdfnpf(med_int *fid, char*fname, med_int *fnamelen, med_int *numdt, med_int *numit, med_int *etype, med_int *gtype, char *dpname, char *dlname) #endif { med_int _ret; char *_fn1; char _fs2[MED_NAME_SIZE+1]=""; char _fs3[MED_NAME_SIZE+1]=""; med_geometry_type _gtype = (med_geometry_type) *gtype; med_entity_type _etype = (med_entity_type) *etype; _fn1 = _MED2cstring((char *) fname, (int) *fnamelen); if (!_fn1) return(-1); _ret = (med_int) MEDfieldnProfile((const med_idt) *fid, _fn1, (med_int) *numdt, (med_int) *numit, _etype, _gtype, _fs2, _fs3); _MEDc2fString(_fs2,dpname,MED_NAME_SIZE); _MEDc2fString(_fs3,dlname,MED_NAME_SIZE); _MEDcstringFree(_fn1); return(_ret); }
med_int nmfdfivr(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, med_int *numdt, med_int *numit, med_int *etype, med_int *gtype, med_int *swm, med_int *cs, med_int *val) #endif { med_err _ret=0; char *_fn1; med_switch_mode _swm = (med_switch_mode) *swm; med_geometry_type _gtype = (med_geometry_type) *gtype; med_entity_type _etype = (med_entity_type) *etype; _fn1 = _MED2cstring((char *) fname, (int) *fnamelen); if (!_fn1) return(-1); _ret = (med_int) MEDfieldValueRd((const med_idt) *fid, _fn1, (med_int) *numdt, (med_int) *numit, _etype, _gtype, _swm, (med_int) *cs, (unsigned char *) val); _MEDcstringFree(_fn1); return (_ret); }
med_int nmfdfcmi(med_int *fid, char* fname, med_int *fnamelen, med_int *it, med_int *numdt, med_int *numit, med_float *dt, med_int *meshnumdt, med_int *meshnumit) #endif { med_int _ret; char *_fn1; _fn1 = _MED2cstring((char *) fname, (int) *fnamelen); if (!_fn1) return(-1); _ret = (med_int) MEDfieldComputingStepMeshInfo((med_idt)*fid, _fn1, (med_int) *it, (med_int *) numdt, (med_int *) numit, (med_float *) dt, (med_int *) meshnumdt, (med_int *) meshnumit); _MEDcstringFree(_fn1); return _ret; }
med_idt nmfifvop (const char const *name, const int const *access, const med_int* const major, const med_int* const minor, const med_int* const release, const med_int* const len ) #endif { char *_fn; med_idt _ret; med_access_mode _access; /* Cette méthode a pour unique but de forcer la construction de l'objet MedVersionedApi3F et donc la mise à jour de MedVersionedApi3 avec les APis fortran. Certains compilateurs suppriment le symbole MedVersionedApi3F croyant qu'il nest pas utilisé et la mise à jour de MedVersionedApi n'est alors pas effectuée.*/ f77Api3IsSet(MedVersionedApi3F); _fn = _MED2cstring((char *) name, (int) *len); if (!_fn) return(-1); _access = (med_access_mode) *access; _ret = (med_idt) MEDfileVersionOpen(_fn, _access,*major,*minor,*release); /* ISCRUTE_long(_ret); */ _MEDcstringFree(_fn); return(_ret); }
med_int nmfdfoci(med_int *fid, char* fname,med_int *fnamelen, med_int *it, med_int *numdt, med_int *numit, med_float *dt, med_int *nmesh, char *mname, med_int *lmesh, med_int *mnumdt, med_int *mnumit) #endif { med_int _ret; char *_fn1; char _fs1[MED_NAME_SIZE+1]=""; med_bool _lmesh; _fn1 = _MED2cstring((char *) fname, (int) *fnamelen); if (!_fn1) return(-1); _ret = (med_int) MEDfield23ComputingStepMeshInfo((med_idt)*fid, _fn1, (med_int) *it, (med_int *) numdt, (med_int *) numit, (med_float *) dt, (med_int *) nmesh, _fs1, &_lmesh, (med_int *) mnumdt, (med_int *) mnumit); *lmesh = (med_int) _lmesh; _MEDc2fString(_fs1,mname,MED_NAME_SIZE); _MEDcstringFree(_fn1); return _ret; }
med_int nmipfiin(med_int *fid, char *name, med_int *lon1, med_int *gtype, med_int *cnode, med_int *nbf, med_int *nvar, med_int *mdeg, med_int *nmaxc) #endif { med_int _ret; char *_fn1; med_geometry_type _gtype; med_bool _cnode; _fn1 = _MED2cstring(name, (int) * lon1); if (!_fn1 ) return(-1); _ret = (med_int) MEDinterpInfoByName((med_idt) *fid, _fn1, &_gtype, &_cnode, (med_int*) nbf, (med_int*) nvar, (med_int*) mdeg, (med_int*) nmaxc ); *gtype = (med_int) _gtype; *cnode = (med_int) _cnode; _MEDcstringFree(_fn1); return(_ret); }
med_int nmipfcre(med_int *fid, char *name, med_int *lon1, med_int *gtype, med_int *cnode, med_int *nvar, med_int *mdeg, med_int *nmaxc) #endif { med_int _ret; char *_fn1; med_geometry_type _gtype = (med_geometry_type) *gtype; med_bool _cnode = (med_bool) *cnode; _fn1 = _MED2cstring(name, (int) * lon1); if (!_fn1 ) return(-1); _ret = (med_int) MEDinterpCr((med_idt) *fid, _fn1, _gtype, _cnode, (med_int) *nvar, (med_int) *mdeg, (med_int) *nmaxc ); _MEDcstringFree(_fn1); return(_ret); }
med_int nedfspdi(med_idt *fid,char *scalaire, med_int *lon1,med_int *indice, med_int *numdt,char *dt_unit, med_float *dt, med_int *numo) #endif { med_int ret; char *fn1; char fs1[MED_TAILLE_PNOM+1]; fn1 = _MED2cstring(scalaire, (int) *lon1); if (!fn1) return(-1); ret = (med_int) MEDscalairePasdetempsInfo( *fid,(char *) fn1,(int) *indice, (med_int *) numdt, (char *) fs1, (med_float *) dt, (med_int *) numo); strncpy(dt_unit,fs1,MED_TAILLE_PNOM); _MEDfstring(dt_unit,MED_TAILLE_PNOM); _MEDcstringFree(fn1); return (ret); }
med_int nmfdfnva(med_int *fid, char *fname, med_int *fnamelen, med_int *numdt, med_int *numit, med_int *etype, med_int *gtype) #endif { med_int _ret; char *_fn1; med_geometry_type _gtype = (med_geometry_type) *gtype; med_entity_type _etype = (med_entity_type) *etype; _fn1 = _MED2cstring((char *) fname, (int) *fnamelen); if (!_fn1) return(-1); _ret = (med_int) MEDfieldnValue((med_idt) *fid, _fn1, (med_int) *numdt, (med_int) *numit, _etype, _gtype); _MEDcstringFree(_fn1); return(_ret); }
med_int nmlcflni(med_int *fid, char *lname, med_int *lnamelen, med_int *gtype, med_int *sdim, med_int *nip,char * giname, char * isname, med_int *nsmc, med_int *sgtype) #endif { med_int _ret; char *_fn1; char _fs2[MED_NAME_SIZE+1]=""; char _fs3[MED_NAME_SIZE+1]=""; med_geometry_type _gtype,_sgtype; _fn1 = _MED2cstring((char *) lname, (int) *lnamelen); if (!_fn1) return(-1); _ret = (med_int) MEDlocalizationInfoByName((med_idt) *fid, _fn1, &_gtype, (med_int *) sdim, (med_int *) nip, _fs2, _fs3, (med_int *) nsmc, &_sgtype); _MEDcstringFree(_fn1); _MEDc2fString(_fs2,giname,MED_NAME_SIZE); _MEDc2fString(_fs3,isname,MED_NAME_SIZE); *gtype = (med_int) _gtype; *sgtype = (med_int) _sgtype; return _ret; }
med_int nmfdfonv(med_int *fid, char*fname, med_int *fnamelen, med_int *numdt, med_int *numit, med_int *etype, med_int *gtype, char* mname, med_int *mnamelen, med_int *pit, med_int *stm, char *pname, med_int *psize, char *lname, med_int *nip) #endif { med_int _ret; char *_fn1, *_fn2; char _fs2[MED_NAME_SIZE+1]=""; char _fs3[MED_NAME_SIZE+1]=""; med_geometry_type _gtype = (med_geometry_type) *gtype; med_entity_type _etype = (med_entity_type) *etype; med_storage_mode _stm = (med_storage_mode) *stm; _fn1 = _MED2cstring((char *) fname, (int) *fnamelen); if (!_fn1) return(-1); _fn2= _MED2cstring((char *) mname, (int) *mnamelen); if (!_fn2) return(-1); _ret = (med_int) MEDfield23nValueWithProfile((med_idt) *fid, _fn1, (med_int) *numdt, (med_int) *numit, _etype, _gtype, _fn2, (med_int) *pit, _stm, _fs2, (med_int *) psize, _fs3, (med_int *) nip); _MEDc2fString(_fs2,pname,MED_NAME_SIZE); _MEDc2fString(_fs3,lname,MED_NAME_SIZE); _MEDcstringFree(_fn1); _MEDcstringFree(_fn2); return(_ret); }
med_int nmfdfcre(med_int *fid, char *fname, med_int *fnamelen, med_int *ftype, med_int *ncomp, char *cname, med_int *cnamelen, char *cuname, med_int *cunamelen, char *dtunit, med_int *dtunitlen, char* mname, med_int *mnamelen) #endif { med_err _ret=0; char *_fn1,*_fn2,*_fn3,*_fn4,*_fn5; med_field_type _ftype = (med_field_type) *ftype; _fn1 = _MED2cstring((char *) fname, (int) *fnamelen); if (!_fn1) return(-1); _fn2 = _MED1cstring((char *) cname, (int) *cnamelen, (int) *ncomp*MED_SNAME_SIZE); if (!_fn2) return(-1); _fn3 = _MED1cstring((char *) cuname, (int) *cunamelen, (int) *ncomp*MED_SNAME_SIZE); if (!_fn3) return(-1); _fn4 = _MED2cstring((char *) dtunit, (int) *dtunitlen); if (!_fn4) return(-1); _fn5 = _MED2cstring((char *) mname, (int) *mnamelen); if (!_fn1) return(-1); _ret = (med_int) MEDfieldCr((const med_idt) *fid, _fn1, _ftype, (med_int) *ncomp, _fn2, _fn3, _fn4, _fn5); _MEDcstringFree(_fn1); _MEDcstringFree(_fn2); _MEDcstringFree(_fn3); _MEDcstringFree(_fn4); _MEDcstringFree(_fn5); return (_ret); }
med_int nmfdffin(med_int *fid, char *fname, med_int *fnamelen, char*mname, med_int *localmesh, med_int *type, char *cname, char *cunit, char *dtunit, med_int *nc) #endif { med_int _ret; char *_fn1; char _fs2[MED_NAME_SIZE+1]=""; char _fs3[MED_SNAME_SIZE+1]=""; char *_fs4, *_fs5; med_field_type _type; med_int _nc; med_bool _lmesh; _fn1 = _MED2cstring((char *) fname, (int) *fnamelen); if (!_fn1) return(-1); _nc = MEDfieldnComponentByName((const med_idt)*fid, _fn1); if (_nc < 0) return (-1); _fs4 = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*(_nc)+1);*_fs4='\0'; _fs5 = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*(_nc)+1);*_fs5='\0'; if (!(_fs4&&_fs5)) return (-1); _ret = (med_int) MEDfieldInfoByName((const med_idt)*fid, _fn1, _fs2, &_lmesh, &_type, _fs4, _fs5, _fs3, (med_int *) nc); *type = (med_int) _type; *localmesh = (med_int) _lmesh; _MEDc2fString(_fs2,mname,MED_NAME_SIZE); _MEDc2fString(_fs3,dtunit,MED_SNAME_SIZE); _MEDc2fString(_fs4,cname,MED_SNAME_SIZE*_nc); _MEDc2fString(_fs5,cunit,MED_SNAME_SIZE*_nc); free(_fs4); free(_fs5); _MEDcstringFree(_fn1); return _ret; }
med_int nedffami(med_int *fid, char *maa,med_int *lon1,med_int *ind, char *fam,med_int *num,med_int *attr_ident,med_int *attr_val, char *attr_desc,med_int *n_attr, char *groupe ,med_int *n_groupe) #endif { med_int ret; char * fn1,* fs1, * fs2; char fs3[MED_TAILLE_NOM+1]; int natt,ngro,j; char str[MED_TAILLE_LNOM+1]; fn1 = _MED2cstring(maa, (int) * lon1); if (!fn1) return(-1); if ((ngro = MEDnGroupe ((med_idt) *fid,fn1,*ind)) < 0) return -1; if ((natt = MEDnAttribut((med_idt) *fid,fn1,*ind)) < 0) return -1; fs1 = (char *) malloc(MED_TAILLE_DESC*natt+1); fs2 = (char *) malloc(MED_TAILLE_LNOM*ngro+1); ret = (med_int) MEDfamInfo((med_idt) *fid,fn1,(int) *ind, (char *)fs3 , (med_int *)num, (med_int *) attr_ident,(med_int *) attr_val, (char *) fs1, (med_int *) n_attr, (char *)fs2 ,(med_int *) n_groupe); strncpy(fam,fs3,MED_TAILLE_NOM); _MEDfstring(fam,MED_TAILLE_NOM); strncpy(attr_desc,fs1,MED_TAILLE_DESC*natt); _MEDfstring(attr_desc,MED_TAILLE_DESC*natt); for (j=0;j<ngro;j++) { strncpy(str,fs2+j*MED_TAILLE_LNOM,MED_TAILLE_LNOM); _MEDfstring(str,MED_TAILLE_LNOM); str[MED_TAILLE_LNOM] = '\0'; if (j == 0) strcpy(groupe,str); else strcat(groupe,str); } _MEDfstring(groupe,MED_TAILLE_LNOM*ngro); free(fs1); free(fs2); _MEDcstringFree(fn1); return(ret); }
med_int nmsefcni(med_int *fid, char *mname, med_int *mnamelen, char *aname, med_int *anamelen, med_int *atype, med_int *anc, med_int *setype, char *pname, med_int *psize) #endif { med_int _ret; char *_fn1, *_fn2; med_attribute_type _atype; med_entity_type _setype; char _fs1[MED_NAME_SIZE+1]=""; _fn1 = _MED2cstring((char *) mname, (int) *mnamelen); if (!_fn1) return(-1); _fn2 = _MED2cstring((char *) aname, (int) *anamelen); if (!_fn2) return(-1); _ret = (med_int) MEDstructElementConstAttInfoByName((const med_idt) *fid, _fn1, _fn2, &_atype, (med_int *) anc, &_setype, _fs1, (med_int *) psize); *atype = (med_int) _atype; *setype = (med_int) _setype; _MEDc2fString(_fs1,pname,MED_NAME_SIZE); _MEDcstringFree(_fn1); _MEDcstringFree(_fn2); return _ret; }
med_int nmlcflow(med_idt *fid, char *lname,med_int *lnamelen, med_int *gtype, med_int *sdim, med_float *ecoo, med_int *swm, med_int *nip, med_float *icoo, med_float *wght,char * giname, med_int *ginamelen, char * isname, med_int *isnamelen) #endif { med_err _ret=0; char *_fn1,*_fn2,*_fn3; med_switch_mode _swm = (med_switch_mode) *swm; med_geometry_type _gtype = (med_geometry_type) *gtype; _fn1 = _MED2cstring((char *) lname, (int) *lnamelen); if (!_fn1) return(-1); _fn2 = _MED2cstring((char *) giname, (int) *ginamelen); if (!_fn2) return(-1); _fn3 = _MED2cstring((char *) isname, (int) *isnamelen); if (!_fn3) return(-1); _ret = (med_int) MEDlocalizationWr((const med_idt) *fid, _fn1, _gtype, (med_int) *sdim, (med_float *) ecoo, _swm, (med_int) *nip, (med_float *) icoo, (med_float *) wght, _fn2, _fn3); _MEDcstringFree(_fn1); _MEDcstringFree(_fn2); _MEDcstringFree(_fn3); return (_ret); }
med_int nedfscac(med_idt *fid,char *scalaire,med_int *lon1,med_int *data_type, char *desc,med_int *lon2) #endif { med_int ret; med_type_champ typechamp; char *fn1, *fn2; fn1 = _MED2cstring(scalaire, (int) * lon1); fn2 = _MED1cstring(desc, (int) * lon2,MED_TAILLE_DESC); if (!fn1 || !fn2) return(-1); typechamp = (med_type_champ) *data_type; ret = (med_int) MEDscalaireCr( *fid, fn1, typechamp, (char *)fn2); _MEDcstringFree(fn1); _MEDcstringFree(fn2); return (ret); }
med_int nedfnatt(med_int *fid,char *maa,med_int *lon1,med_int *indice) #endif { med_int ret; char * fn1; fn1 = _MED2cstring(maa, (int) * lon1); if (!fn1) return(-1); ret = (med_int) MEDnAttribut((med_idt)*fid,fn1,(int)*indice); _MEDcstringFree(fn1); return(ret); }
med_int nedfnfam(med_int *fid,char *maa,med_int *lon1) #endif { med_int ret; char * fn1; fn1 = _MED2cstring(maa, (int) * lon1); if (!fn1) return(-1); ret = (med_int) MEDnFam((med_idt)*fid,fn1); _MEDcstringFree(fn1); return(ret); }
med_int nmfdfnin(med_int *fid,char *fname, med_int *fnamelen) #endif { med_int _ret; char *_fn1; _fn1 = _MED2cstring((char *) fname, (int) *fnamelen); if (!_fn1) return(-1); _ret = (med_int) MEDfieldnInterp((const med_idt) *fid,_fn1); _MEDcstringFree(_fn1); return(_ret); }