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
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
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
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
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
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_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
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
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
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
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
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
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_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
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
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
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);
}
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
nmsefsin(med_int *fid,
char *mname, med_int *mnamelen,
med_int *mgtype, med_int * mdim,
char *smname,
med_int *setype, med_int *snnode, med_int *sncell,
med_int *sgtype, med_int *ncatt, med_int *ap,
med_int *nvatt)
#endif
{
med_int _ret;
char *_fn1;
char _fs2[MED_NAME_SIZE+1]="";
med_entity_type _setype;
med_geometry_type _mgeotype;
med_geometry_type _sgtype;
med_bool _ap;
_fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
if (!_fn1)
return(-1);
_ret = (med_int) MEDstructElementInfoByName((const med_idt) *fid,
_fn1,
&_mgeotype,
(med_int *) mdim,
_fs2,
&_setype,
(med_int *) snnode,
(med_int *) sncell,
&_sgtype,
(med_int *) ncatt,
&_ap,
(med_int *) nvatt);
_MEDc2fString(_fs2,smname,MED_NAME_SIZE);
*mgtype = (med_int) _mgeotype;
*setype = (med_int) _setype;
*sgtype = (med_int) _sgtype;
*ap = (med_int) _ap;
_MEDcstringFree(_fn1);
return _ret;
}
