diff options
| -rw-r--r-- | .SRCINFO | 21 | ||||
| -rw-r--r-- | PKGBUILD | 39 | ||||
| -rw-r--r-- | hdf5-1.10-support.patch | 7565 |
3 files changed, 7625 insertions, 0 deletions
diff --git a/.SRCINFO b/.SRCINFO new file mode 100644 index 000000000000..3389eebafe95 --- /dev/null +++ b/.SRCINFO @@ -0,0 +1,21 @@ +pkgbase = med3 + pkgdesc = MED stands for Modelisation et Echanges de Donnees, i.e. Data Modelization and Exchanges - MED is code-aster exchange module linked to hdf5 + pkgver = 3.3.1 + pkgrel = 1 + url = https://www.salome-platform.org/downloads + arch = x86_64 + license = LGPL + makedepends = gcc-fortran + makedepends = python2 + depends = hdf5 + depends = openmpi + depends = swig + optdepends = tk + provides = med=3.3.1 + source = http://files.salome-platform.org/Salome/other/med-3.3.1.tar.gz + source = hdf5-1.10-support.patch + sha256sums = dd631ef813838bc7413ff0dd6461d7a0d725bcfababdf772ece67610a8d22588 + sha256sums = 55cf95f1a3b7abf529bb2ded6c9a491459623c830dc16518058ff53ab203291c + +pkgname = med3 + diff --git a/PKGBUILD b/PKGBUILD new file mode 100644 index 000000000000..ce706b3b6513 --- /dev/null +++ b/PKGBUILD @@ -0,0 +1,39 @@ +pkgname=med3 +pkgver=3.3.1 +pkgrel=1 +pkgdesc="MED stands for Modelisation et Echanges de Donnees, i.e. Data Modelization and Exchanges - MED is code-aster exchange module linked to hdf5" +url="https://www.salome-platform.org/downloads" +license=('LGPL') +depends=('hdf5' 'openmpi' 'swig') +makedepends=('gcc-fortran' 'python2') +optdepends=('tk') +provides=("med=${pkgver}") +arch=('x86_64') +source=("http://files.salome-platform.org/Salome/other/med-${pkgver}.tar.gz" + "hdf5-1.10-support.patch") +sha256sums=('dd631ef813838bc7413ff0dd6461d7a0d725bcfababdf772ece67610a8d22588' + '55cf95f1a3b7abf529bb2ded6c9a491459623c830dc16518058ff53ab203291c') + +prepare () { + cd ${srcdir}/med-${pkgver}_SRC + # https://salsa.debian.org/science-team/med-fichier/tree/master/debian/patches + patch -p1 -i "${srcdir}"/hdf5-1.10-support.patch + autoreconf -i +} + +build() { + cd ${srcdir}/med-${pkgver}_SRC + export FFLAGS="-fopenmp -fPIC -fdefault-double-8 -fdefault-integer-8 -fdefault-real-8 -ffixed-line-length-0 ${CFLAGS}" + export FCFLAGS="-fopenmp -fPIC -fdefault-double-8 -fdefault-integer-8 -fdefault-real-8 -ffixed-line-length-0 ${CFLAGS}" + export CPPFLAGS="-DHAVE_F77INT64 ${CPPFLAGS}" + export F77=mpif90 + export FC=mpif90 + export PYTHON=/usr/bin/python2 + ./configure --with-f90=mpif90 --prefix=/usr --datadir=/usr/share/med --with-swig=yes --disable-dependency-tracking + make +} + +package() { + cd ${srcdir}/med-${pkgver}_SRC + make DESTDIR=${pkgdir} install +} diff --git a/hdf5-1.10-support.patch b/hdf5-1.10-support.patch new file mode 100644 index 000000000000..355cf55c56f2 --- /dev/null +++ b/hdf5-1.10-support.patch @@ -0,0 +1,7565 @@ +Description: HDF5 1.10 introduces a major change: the hid_t type is now + 'long long int' instead of 'int'. This patch fixes MED where need be. + Many thanks to upstream author Éric Fayolle who provided valuable + help. +Author: Gilles Filippini <pini@debian.org> +Index: med-fichier/src/fi/medfile.f +=================================================================== +--- med-fichier.orig/src/fi/medfile.f ++++ med-fichier/src/fi/medfile.f +@@ -22,10 +22,10 @@ c + implicit none + save + character *(*) name +- integer fid ++ integer*8 fid + integer access,cret + integer major, minor, rel +- integer mfifvop ++ integer*8 mfifvop + c + fid = mfifvop(name, access, major, minor, rel, len(name)) + if (fid.lt.0) then +@@ -43,9 +43,9 @@ c + implicit none + save + character *(*) name +- integer fid ++ integer*8 fid + integer access,cret +- integer mfifope ++ integer*8 mfifope + c + fid = mfifope(name, access, len(name)) + if (fid.lt.0) then +@@ -82,7 +82,8 @@ c + implicit none + save + c +- integer fid,cret ++ integer*8 fid ++ integer cret + integer mfifclo + c + cret = mfifclo(fid) +@@ -98,7 +99,8 @@ c + implicit none + save + c +- integer fid,cret ++ integer*8 fid ++ integer cret + character*(*) cmt + integer mfifcow + c +@@ -114,7 +116,8 @@ c + implicit none + save + c +- integer fid,cret ++ integer*8 fid ++ integer cret + character*(*) cmt + integer mfifcor + c +@@ -131,7 +134,8 @@ c + implicit none + save + c +- integer fid,major, minor,rel ++ integer*8 fid ++ integer major, minor,rel + integer cret + integer mfifnvr + c +@@ -148,7 +152,8 @@ c + save + c + character*(*) version +- integer cret,fid ++ integer*8 fid ++ integer cret + integer mfifsvr + c + cret = mfifsvr(fid,version,len(version)) +@@ -183,8 +188,9 @@ c + save + c + character *(*) fname +- integer class, fid, mid , cret +- integer mfifomn ++ integer*8 fid, mid ++ integer class, cret ++ integer*8 mfifomn + c + mid = mfifomn(fid, fname, len(fname), class) + if (mid .eq.-1) then +@@ -205,7 +211,8 @@ c + implicit none + save + c +- integer mid, fid, class, cret ++ integer*8 mid, fid ++ integer class, cret + integer mfifoun + c + cret = mfifoun(fid, mid, class) +Index: med-fichier/src/2.3.6/fi/entmaaf.f +=================================================================== +--- med-fichier.orig/src/2.3.6/fi/entmaaf.f ++++ med-fichier/src/2.3.6/fi/entmaaf.f +@@ -23,7 +23,8 @@ c + save + c + character *(*) maa +- integer fid, conn(*),typent,typgeo,typcon,cret ++ integer*8 fid ++ integer conn(*),typent,typgeo,typcon,cret + integer edfcone,n,mdim, switch + c + cret = edfcone (fid, maa ,len(maa),mdim,conn,switch,n, +@@ -43,7 +44,8 @@ c + c + character *(*) maa + integer mdim +- integer fid, conn(*),typent,typgeo,typcon,cret ++ integer*8 fid ++ integer conn(*),typent,typgeo,typcon,cret + integer pfltab(*), psize + integer edfconl,switch + c +@@ -64,7 +66,8 @@ c + c + character *(*) maa + real*8 coo(*) +- integer fid,typrep,mdim ++ integer*8 fid ++ integer typrep,mdim + integer edfcooe,n,cret,modcoo + character *(*) nom, unit + c +@@ -86,7 +89,8 @@ c + character *(*) maa + real*8 coo(*) + integer mdim +- integer fid,typrep,cret,modcoo ++ integer*8 fid ++ integer typrep,cret,modcoo + integer pfltab(*),psize, numco + integer edfcool + character *(*) nom, unit +@@ -107,7 +111,8 @@ c + c + character *(*) maa + character*(*) nom +- integer fid,typent, typgeo,cret ++ integer*8 fid ++ integer typent, typgeo,cret + integer edfnome,n + c + cret = edfnome (fid, maa ,len(maa),nom, 16*n, n, +@@ -125,7 +130,8 @@ c + c + character *(*) maa + character*(*) nom +- integer fid,typent, typgeo,cret ++ integer*8 fid ++ integer typent, typgeo,cret + integer edfnoml,n + c + cret = edfnoml (fid, maa ,len(maa),nom,n, +@@ -143,7 +149,8 @@ c + c + character *(*) maa + integer num(*) +- integer fid,typent, typgeo,cret ++ integer*8 fid ++ integer typent, typgeo,cret + integer edfnume, n + c + cret = edfnume (fid, maa ,len(maa),num, n, +@@ -162,7 +169,8 @@ c + c + character *(*) maa + integer num(*) +- integer fid,typent, typgeo,cret ++ integer*8 fid ++ integer typent, typgeo,cret + integer edfnuml,n + c + cret = edfnuml (fid, maa ,len(maa),num, n, +@@ -179,7 +187,8 @@ c + save + c + character *(*) maa +- integer fid,typent, typgeo,cret,typcon,n,quoi ++ integer*8 fid ++ integer typent, typgeo,cret,typcon,n,quoi + integer edfnema + c + n = edfnema(fid, maa ,len(maa),quoi, +@@ -203,7 +212,8 @@ c + save + c + character *32 maa +- integer fid, conn(*),typent,typcon,cret,index(*) ++ integer*8 fid ++ integer conn(*),typent,typcon,cret,index(*) + integer edfpgce,ni + c + cret = edfpgce(fid,maa,len(maa),index,ni,conn,typent,typcon) +@@ -220,7 +230,8 @@ c + save + c + character*32 maa +- integer fid, conn(*),typent,typcon,cret,index(*) ++ integer*8 fid ++ integer conn(*),typent,typcon,cret,index(*) + integer edfpgcl,ni + c + cret = edfpgcl(fid,maa,len(maa),index,ni,conn,typent,typcon) +@@ -235,7 +246,8 @@ c + save + c + character*32 maa +- integer fid,typent,typcon,cret ++ integer*8 fid ++ integer typent,typcon,cret + integer edfpygi,consiz + c + cret = edfpygi(fid,maa,len(maa),typent,typcon,consiz) +@@ -252,7 +264,8 @@ c + save + c + character *32 maa +- integer fid, conn(*),typcon,cret,indexp(*),indexf(*) ++ integer*8 fid ++ integer conn(*),typcon,cret,indexp(*),indexf(*) + integer edfpece,np,nf + c + cret = edfpece(fid,maa,len(maa),indexp,np,indexf,nf,conn,typcon) +@@ -269,7 +282,8 @@ c + save + c + character*32 maa +- integer fid, conn(*),typcon,cret,indexp(*),indexf(*) ++ integer*8 fid ++ integer conn(*),typcon,cret,indexp(*),indexf(*) + integer edfpecl,np,nf + c + cret = edfpecl(fid,maa,len(maa),indexp,np,indexf,nf,conn,typcon) +@@ -284,7 +298,8 @@ c + save + c + character*32 maa +- integer fid,typcon,cret ++ integer*8 fid ++ integer typcon,cret + integer edfpyei,consiz,nf + c + cret = edfpyei(fid,maa,len(maa),typcon,nf,consiz) +@@ -303,7 +318,8 @@ c + c + character*32 maa + real*8 indices(*) +- integer fid,mdim,axe ++ integer*8 fid ++ integer mdim,axe + integer edficoe,n,cret + character*(*) comp, unit + c +@@ -324,7 +340,8 @@ c + c + character*32 maa + real*8 indices(*) +- integer fid,mdim,axe ++ integer*8 fid ++ integer mdim,axe + integer edficol,n,cret + character*16 comp, unit + c +@@ -344,7 +361,8 @@ c + c + character*32 maa + integer struct(*) +- integer fid,cret,mdim ++ integer*8 fid ++ integer cret,mdim + integer edfscoe + c + cret = edfscoe (fid, maa ,len(maa),mdim,struct) +@@ -361,7 +379,8 @@ c + c + character*32 maa + integer struct(*) +- integer fid,cret,mdim ++ integer*8 fid ++ integer cret,mdim + integer edfscol + c + cret = edfscol (fid, maa ,len(maa),mdim,struct) +Index: med-fichier/src/2.3.6/fi/equf.f +=================================================================== +--- med-fichier.orig/src/2.3.6/fi/equf.f ++++ med-fichier/src/2.3.6/fi/equf.f +@@ -22,7 +22,8 @@ c + save + c + character *(*) maa, des, eq +- integer fid, cret ++ integer*8 fid ++ integer cret + integer edfequc + c + cret = edfequc(fid, maa, len(maa), eq, len(eq), des, len(des)) +@@ -37,7 +38,8 @@ c + save + c + character *(*) maa, eq +- integer fid, cret, corr(*), n, typent, typgeo ++ integer*8 fid ++ integer cret, corr(*), n, typent, typgeo + integer edfeque + c + cret = edfeque(fid, maa, len(maa), eq, len(eq), corr, +@@ -53,7 +55,8 @@ c + save + c + character *(*) maa, eq +- integer fid, cret, corr(*), n,typent, typgeo ++ integer*8 fid ++ integer cret, corr(*), n,typent, typgeo + integer edfequl + c + cret = edfequl(fid, maa, len(maa), eq, len(eq), corr, +@@ -69,7 +72,8 @@ c + save + c + character *(*) maa, eq +- integer fid, cret, n,typent, typgeo ++ integer*8 fid ++ integer cret, n,typent, typgeo + integer edfncor + c + n = edfncor(fid, maa, len(maa), eq, len(eq), typent,typgeo) +@@ -89,7 +93,8 @@ c + save + c + character *(*) maa +- integer fid, cret, n ++ integer*8 fid ++ integer cret, n + integer edfnequ + c + n = edfnequ(fid, maa, len(maa)) +@@ -109,7 +114,8 @@ c + save + c + character *(*) maa,eq,des +- integer fid, cret,ind ++ integer*8 fid ++ integer cret,ind + integer edfequi + c + cret = edfequi(fid, maa, len(maa),ind,eq,des) +Index: med-fichier/src/2.3.6/fi/fichf.f +=================================================================== +--- med-fichier.orig/src/2.3.6/fi/fichf.f ++++ med-fichier/src/2.3.6/fi/fichf.f +@@ -31,8 +31,9 @@ c + save + c + character *(*) nom +- integer acces, fid, cret +- integer edfouvr ++ integer*8 fid ++ integer acces, cret ++ integer*8 edfouvr + c + fid = edfouvr(nom, acces, len(nom)) + if (fid.eq.-1) then +@@ -50,7 +51,8 @@ c + implicit none + save + c +- integer fid,cret ++ integer*8 fid ++ integer cret + integer edfferm + c + cret = edfferm(fid) +@@ -65,7 +67,8 @@ c + implicit none + save + c +- integer fid,cret,lon ++ integer*8 fid ++ integer cret,lon + integer edflfde + c + lon = edflfde(fid) +@@ -85,7 +88,8 @@ c + implicit none + save + c +- integer fid,quoi,cret ++ integer*8 fid ++ integer quoi,cret + integer edffien + character*(*) str + c +@@ -100,7 +104,8 @@ c DEC$ ATTRIBUTES DLLEXPORT :: effid + c + implicit none + save +- integer fid,cret ++ integer*8 fid ++ integer cret + character*(*) des + integer edffide + c +@@ -147,7 +152,8 @@ c + implicit none + save + C +- integer fid, maj, min, rel ++ integer*8 fid ++ integer maj, min, rel + integer cret + integer edfveli + c +@@ -182,8 +188,9 @@ c + save + c + character *(*) acces +- integer mid, fid, type, cret +- integer edfmont ++ integer*8 mid, fid ++ integer type, cret ++ integer*8 edfmont + c + mid = edfmont(fid, acces, len(acces), type) + if (mid .eq.-1) then +@@ -203,7 +210,8 @@ c + implicit none + save + c +- integer mid, fid, type, cret ++ integer*8 mid, fid ++ integer type, cret + integer edfdemo + c + cret = edfdemo(fid, mid, type) +Index: med-fichier/src/2.3.6/fi/gauss.f +=================================================================== +--- med-fichier.orig/src/2.3.6/fi/gauss.f ++++ med-fichier/src/2.3.6/fi/gauss.f +@@ -21,7 +21,8 @@ c + implicit none + save + c +- integer fid, n, cret ++ integer*8 fid ++ integer n, cret + integer edfngau + c + n = edfngau(fid) +@@ -43,7 +44,8 @@ c + implicit none + save + c +- integer fid,indice,typgeo,ngauss,cret ++ integer*8 fid ++ integer indice,typgeo,ngauss,cret + character *(*) locname + integer edfgaui + c +@@ -63,7 +65,8 @@ c + implicit none + save + c +- integer fid,typgeo,mode_coo,ngauss,cret ++ integer*8 fid ++ integer typgeo,mode_coo,ngauss,cret + real*8 refcoo(*),gscoo(*),wg(*) + character *(*) locname + integer edfgaue +@@ -83,7 +86,8 @@ c + implicit none + save + c +- integer fid,mode_coo,cret ++ integer*8 fid ++ integer mode_coo,cret + real*8 refcoo(*),gscoo(*),wg(*) + character *(*) locname + integer edfgaul +Index: med-fichier/src/2.3.6/fi/jntf.f +=================================================================== +--- med-fichier.orig/src/2.3.6/fi/jntf.f ++++ med-fichier/src/2.3.6/fi/jntf.f +@@ -25,7 +25,8 @@ c + save + c + character *(*) maalcl, jn, des, maadst +- integer fid, dom, cret ++ integer*8 fid ++ integer dom, cret + integer edfjntc + c + cret = edfjntc(fid, maalcl, len(maalcl), jn, len(jn), +@@ -45,7 +46,8 @@ c + save + c + character *(*) maalcl +- integer n, fid, cret ++ integer*8 fid ++ integer n, cret + integer edfnjnt + c + cret = edfnjnt(fid, maalcl, len(maalcl), n) +@@ -74,7 +76,8 @@ c + save + c + character *(*) maalcl, jn, des, maadst +- integer fid, ind, dom, cret ++ integer*8 fid ++ integer ind, dom, cret + integer edfjnti + c + cret = edfjnti(fid, maalcl, len(maalcl), ind, +@@ -99,7 +102,8 @@ c + save + c + character *(*) maalcl, jn +- integer n, fid, cret, corrtab(*) ++ integer*8 fid ++ integer n, cret, corrtab(*) + integer entlcl, entdst, geolcl, geodst + integer edfjnte + c +@@ -122,7 +126,8 @@ c + save + c + character *(*) maalcl, jn +- integer n, fid, cret, corrtab(*) ++ integer*8 fid ++ integer n, cret, corrtab(*) + integer entlcl, entdst, geolcl, geodst + integer edfjntl + c +@@ -146,7 +151,8 @@ c + save + c + character *(*) maalcl, jn +- integer fid, entlcl, entdst, geolcl, geodst, nent, cret ++ integer*8 fid ++ integer entlcl, entdst, geolcl, geodst, nent, cret + integer edfjnco + c + nent = edfjnco(fid, +@@ -177,7 +183,8 @@ c + save + c + character *(*) maalcl, jn +- integer fid, entlcl, entdst, geolcl, geodst, nent, cret, ind ++ integer*8 fid ++ integer entlcl, entdst, geolcl, geodst, nent, cret, ind + integer edfjtco + c + nent = edfjtco(fid, +@@ -210,7 +217,8 @@ c + save + c + character *(*) maa +- integer n, fid, cret, numtab(*) ++ integer*8 fid ++ integer n, cret, numtab(*) + integer ent, geo + integer edfgnme + c +@@ -232,7 +240,8 @@ c + save + c + character *(*) maa +- integer n, fid, cret, numtab(*) ++ integer*8 fid ++ integer n, cret, numtab(*) + integer ent, geo + integer edfgnml + c +Index: med-fichier/src/2.3.6/fi/maaf.f +=================================================================== +--- med-fichier.orig/src/2.3.6/fi/maaf.f ++++ med-fichier/src/2.3.6/fi/maaf.f +@@ -23,7 +23,8 @@ c + c + character *(*) nom + character *(*) desc +- integer fid, dim, type, cret ++ integer*8 fid ++ integer dim, type, cret + integer edfmaac + c + cret = edfmaac (fid, nom , len(nom), dim, type, desc, len(desc)) +@@ -38,7 +39,8 @@ c + implicit none + save + c +- integer fid, n, cret ++ integer*8 fid ++ integer n, cret + integer edfnmaa + c + n = edfnmaa(fid) +@@ -60,7 +62,8 @@ c + implicit none + save + c +- integer fid,dim,cret,indice,type ++ integer*8 fid ++ integer dim,cret,indice,type + character *(*) maa + character *(*) desc + integer edfmaai +@@ -78,7 +81,8 @@ c + implicit none + save + c +- integer fid,dim,cret ++ integer*8 fid ++ integer dim,cret + character *(*) maa + integer edfdiml + c +@@ -99,7 +103,8 @@ c + implicit none + save + c +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + character*(*) maa + integer edfnnsl + c +@@ -120,7 +125,8 @@ c + implicit none + save + c +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + character*(*) maa + integer edfnnse + c +@@ -135,7 +141,8 @@ c + implicit none + save + c +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + character*(*) maa + integer edfnnil + c +@@ -156,7 +163,8 @@ c + implicit none + save + c +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + character*(*) maa + integer edfnnie + c +@@ -171,7 +179,8 @@ c + implicit none + save + c +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + character*(*) maa + integer edfnnml + c +@@ -192,7 +201,8 @@ c + implicit none + save + c +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + character*(*) maa + integer edfnnme + c +@@ -208,7 +218,8 @@ c + save + c + character *(*) nom +- integer fid, cret ++ integer*8 fid ++ integer cret + integer edfunvc + c + cret = edfunvc (fid, nom , len(nom)) +@@ -222,7 +233,8 @@ c + implicit none + save + c +- integer fid,cret ++ integer*8 fid ++ integer cret + character *(*) nom,nomu + integer edfunvl + c +@@ -239,7 +251,8 @@ c + save + c + character *(*) nom +- integer fid, dim, cret ++ integer*8 fid ++ integer dim, cret + integer edfespc + c + cret = edfespc (fid, nom , len(nom), dim) +@@ -254,7 +267,8 @@ c + implicit none + save + c +- integer fid,dim,cret ++ integer*8 fid ++ integer dim,cret + character *(*) maa + integer edfespl + c +@@ -276,7 +290,8 @@ c + implicit none + save + c +- integer fid,typ,cret ++ integer*8 fid ++ integer typ,cret + character*(*) maa + integer edfnage + c +@@ -292,7 +307,8 @@ c + implicit none + save + c +- integer fid,typ,cret ++ integer*8 fid ++ integer typ,cret + character*(*) maa + integer edfnagl + c +Index: med-fichier/src/2.3.6/fi/prof.f +=================================================================== +--- med-fichier.orig/src/2.3.6/fi/prof.f ++++ med-fichier/src/2.3.6/fi/prof.f +@@ -21,7 +21,8 @@ c + implicit none + save + c +- integer fid, n, cret ++ integer*8 fid ++ integer n, cret + integer edfnpro + c + n = edfnpro(fid) +@@ -43,7 +44,8 @@ c + implicit none + save + c +- integer fid,n,cret,indice ++ integer*8 fid ++ integer n,cret,indice + character *(*) pro + integer edfproi + c +@@ -61,7 +63,8 @@ c + implicit none + save + c +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + integer pflval(*) + character *(*) nom + integer edfpfle +@@ -79,7 +82,8 @@ c + implicit none + save + c +- integer fid,cret,n ++ integer*8 fid ++ integer cret,n + character *(*) nom + integer edfnpfl + c +@@ -101,7 +105,8 @@ c + implicit none + save + c +- integer fid,cret ++ integer*8 fid ++ integer cret + integer pflval(*) + character *(*) nom + integer edfpfll +Index: med-fichier/src/2.3.6/fi/resf_i.f +=================================================================== +--- med-fichier.orig/src/2.3.6/fi/resf_i.f ++++ med-fichier/src/2.3.6/fi/resf_i.f +@@ -22,7 +22,8 @@ c + save + c + character *(*) cha,comp,unit +- integer fid, ncomp, cret, type ++ integer*8 fid ++ integer ncomp, cret, type + integer edfchac + c + cret = edfchac (fid, cha,len(cha),type, comp,16*ncomp, +@@ -42,7 +43,8 @@ c + c + character *(*) cha,maa,profil,locname + character*(*) dtunit +- integer fid,val(*) ++ integer*8 fid ++ integer val(*) + integer n,pflmod,typent,typgeo,cret + integer interlace,numco,numdt,numo + real*8 dt +@@ -69,7 +71,8 @@ c + c + character *(*) cha,maa,profil,locname + character*(*) dtunit +- integer fid,val(*),n,pflmod,typent,typgeo,cret ++ integer*8 fid ++ integer val(*),n,pflmod,typent,typgeo,cret + integer interlace,numco,numdt,numo + real*8 dt + integer edfchae +@@ -97,7 +100,8 @@ c + save + c + character *(*) cha,maa,locname,profil +- integer fid,val(*),pflmod,typent,typgeo,cret ++ integer*8 fid ++ integer val(*),pflmod,typent,typgeo,cret + integer interlace,numco,numdt,numo + integer edfchal + c +@@ -122,7 +126,8 @@ c + save + c + character *(*) cha,maa,locname,profil +- integer fid,val(*),typent,typgeo,cret,pflmod ++ integer*8 fid ++ integer val(*),typent,typgeo,cret,pflmod + integer interlace,numco,numdt,numo + integer edfchal + c +@@ -142,7 +147,8 @@ c + save + c + character *(*) cha,comp,unit +- integer fid,ind,type,ncomp,cret ++ integer*8 fid ++ integer ind,type,ncomp,cret + integer edfchai + c + cret = edfchai(fid,ind,cha,type, +@@ -157,7 +163,8 @@ c + implicit none + save + c +- integer fid,ind,cret,n ++ integer*8 fid ++ integer ind,cret,n + integer edfncha + c + n = edfncha(fid,ind) +@@ -178,7 +185,8 @@ c + implicit none + save + c +- integer fid,typent,typgeo,n,cret ++ integer*8 fid ++ integer typent,typgeo,n,cret + integer numdt, numo, pflmod + character *(*) cha, maa + integer edfnval +@@ -204,7 +212,8 @@ c + implicit none + save + c +- integer fid,type,geo,n,cret ++ integer*8 fid ++ integer type,geo,n,cret + character*32 cha + integer edfnpdt + c +@@ -227,7 +236,8 @@ c + implicit none + save + c +- integer fid,typent,typgeo,ind,ngauss,numdt,numo,nmaa,cret ++ integer*8 fid ++ integer typent,typgeo,ind,ngauss,numdt,numo,nmaa,cret + character*32 cha,maa + character*16 dtunit + real*8 dt +@@ -248,7 +258,8 @@ c + implicit none + save + c +- integer fid,typent,typgeo,n,cret ++ integer*8 fid ++ integer typent,typgeo,n,cret + integer numdt, numo + character *(*) cha + integer edfnref +@@ -273,7 +284,8 @@ c + implicit none + save + c +- integer fid,typent,typgeo,indice,n,cret ++ integer*8 fid ++ integer typent,typgeo,indice,n,cret + integer numdt, numo, ngauss + character *(*) cha, maa + logical local +@@ -294,7 +306,8 @@ c + + subroutine efliee(fid,lienval,maa,cret) + c DEC$ ATTRIBUTES DLLEXPORT :: efliee +- integer fid,cret ++ integer*8 fid ++ integer cret + character *(*) lienval, maa + integer edfliee + +@@ -312,7 +325,8 @@ c + implicit none + save + c +- integer fid,cret,n ++ integer*8 fid ++ integer cret,n + integer edfnlie + c + n = edfnlie(fid) +@@ -332,7 +346,8 @@ c + implicit none + save + c +- integer fid,n,cret,indice ++ integer*8 fid ++ integer n,cret,indice + character *(*) maa + integer edfliei + c +@@ -349,7 +364,8 @@ c + implicit none + save + c +- integer fid,cret,n ++ integer*8 fid ++ integer cret,n + character *(*) maa + integer edfnvli + c +@@ -371,7 +387,8 @@ c + implicit none + save + c +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + character *(*) maa,lienval + integer edfliel + c +Index: med-fichier/src/2.3.6/fi/scalaire.f +=================================================================== +--- med-fichier.orig/src/2.3.6/fi/scalaire.f ++++ med-fichier/src/2.3.6/fi/scalaire.f +@@ -22,7 +22,8 @@ c + save + c + character *(*) sca,desc +- integer fid, cret, type ++ integer*8 fid ++ integer cret, type + integer edfscac + c + cret = edfscac (fid,sca,len(sca),type,desc,len(desc)) +@@ -40,7 +41,8 @@ c + c + character *32 sca + character*(*) dtunit +- integer fid,val,cret ++ integer*8 fid ++ integer val,cret + integer numdt,numo + real*8 dt + integer edfscee +@@ -62,7 +64,8 @@ c + c + character *(*) sca + character*(*) dtunit +- integer fid,cret ++ integer*8 fid ++ integer cret + integer numdt,numo + real*8 dt + real*8 val +@@ -85,7 +88,8 @@ c + save + c + character *(*) sca +- integer fid,val,cret ++ integer*8 fid ++ integer val,cret + integer numdt,numo + integer edfscel + c +@@ -103,7 +107,8 @@ c DEC$ ATTRIBUTES DLLEXPORT :: efscf + save + c + character *(*) sca +- integer fid,cret ++ integer*8 fid ++ integer cret + integer numdt,numo + integer edfscfl + real*8 val(*) +@@ -122,7 +127,8 @@ c + save + c + character *(*) sca,desc +- integer fid,ind,type,cret ++ integer*8 fid ++ integer ind,type,cret + integer edfscai + c + cret = edfscai(fid,ind,sca,type,desc) +@@ -136,7 +142,8 @@ c + implicit none + save + c +- integer fid,cret,n ++ integer*8 fid ++ integer cret,n + integer edfnsca + c + n = edfnsca(fid) +@@ -155,7 +162,8 @@ c + implicit none + save + c +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + character*32 sca + integer edfnspd + c +@@ -178,7 +186,8 @@ c + implicit none + save + c +- integer fid,indice,numdt,numo,cret ++ integer*8 fid ++ integer indice,numdt,numo,cret + character*32 sca + character*16 dtunit + real*8 dt +Index: med-fichier/src/fi/medequivalence.f +=================================================================== +--- med-fichier.orig/src/fi/medequivalence.f ++++ med-fichier/src/fi/medequivalence.f +@@ -22,7 +22,8 @@ c + save + c + character *(*) maa, des, eq +- integer fid, cret ++ integer*8 fid ++ integer cret + integer meqfcre + c + cret = meqfcre(fid, maa, len(maa), eq, len(eq), des, len(des)) +@@ -41,7 +42,8 @@ c + c + character *(*) maa, eq + integer numit, numdt +- integer fid, cret, n, typent, typgeo ++ integer*8 fid ++ integer cret, n, typent, typgeo + integer corr(*) + integer meqfcow + c +@@ -61,7 +63,8 @@ c + save + c + character *(*) maa +- integer fid, cret, n ++ integer*8 fid ++ integer cret, n + integer meqfneq + c + n = meqfneq(fid, maa, len(maa)) +@@ -83,7 +86,8 @@ c + save + c + character *(*) maa,eq,des +- integer fid, cret,ind,nstep,nctcor ++ integer*8 fid ++ integer cret,ind,nstep,nctcor + integer meqfeqi + c + cret = meqfeqi(fid,maa,len(maa),ind,eq,des, +@@ -102,7 +106,8 @@ c + save + c + character *(*) maa, eq +- integer fid,cret,n,typent,typgeo,numit,numdt ++ integer*8 fid ++ integer cret,n,typent,typgeo,numit,numdt + integer meqfcsz + c + n = meqfcsz(fid,maa,len(maa),eq,len(eq), +@@ -127,7 +132,8 @@ c + save + c + character *(*) maa, eq +- integer fid,cret,n,typent,typgeo,numit,numdt ++ integer*8 fid ++ integer cret,n,typent,typgeo,numit,numdt + integer corit + integer meqfszi + c +@@ -147,7 +153,8 @@ c + save + c + character *(*) maa, eq +- integer fid, cret, corr(*), typent, typgeo,numdt,mumit ++ integer*8 fid ++ integer cret, corr(*), typent, typgeo,numdt,mumit + integer meqfcor + c + cret = meqfcor(fid, maa, len(maa), eq, len(eq), +@@ -165,7 +172,8 @@ c + save + c + character *(*) maa,eq +- integer fid,cret,ind,numdt,numit,ncor ++ integer*8 fid ++ integer cret,ind,numdt,numit,ncor + integer meqfcsi + c + cret = meqfcsi(fid,maa,len(maa),eq,len(eq), +Index: med-fichier/src/fi/medfamily.f +=================================================================== +--- med-fichier.orig/src/fi/medfamily.f ++++ med-fichier/src/fi/medfamily.f +@@ -22,7 +22,8 @@ c + save + c + character *(*) name, fname, gname +- integer fid, fnum, ngro, cret ++ integer*8 fid ++ integer fnum, ngro, cret + integer mfafcre + c + cret = mfafcre(fid, name, len(name), fname, len(name), +@@ -39,7 +40,8 @@ c + implicit none + save + c +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + character *(*) maa + integer mfafnfa + c +@@ -61,7 +63,8 @@ c + implicit none + save + c +- integer fid,n,cret,it ++ integer*8 fid ++ integer n,cret,it + character *(*) maa + integer mfafnfg + c +@@ -83,7 +86,8 @@ c + implicit none + save + c +- integer fid,num,cret,ind ++ integer*8 fid ++ integer num,cret,ind + character *(*) maa,fam,gro + integer mfaffai + c +@@ -100,7 +104,8 @@ c + implicit none + save + c +- integer fid,it,n,cret ++ integer*8 fid ++ integer it,n,cret + character *(*) maa + integer mfafona + c +@@ -123,7 +128,8 @@ c + implicit none + save + c +- integer fid,num,cret,it ++ integer*8 fid ++ integer num,cret,it + integer attnum(*),attval(*) + character *(*) maa,fam,gro,attdes + integer mfafofi +Index: med-fichier/src/fi/medfield.f +=================================================================== +--- med-fichier.orig/src/fi/medfield.f ++++ med-fichier/src/fi/medfield.f +@@ -24,7 +24,8 @@ c + implicit none + save + character*(*) fname,cname,cunit,dtunit,mname +- integer fid,ncomp,cret,ftype ++ integer*8 fid ++ integer ncomp,cret,ftype + integer mfdfcre + c + cret = mfdfcre(fid,fname,len(fname),ftype, +@@ -45,7 +46,8 @@ c + character*(*) fname + integer numdt,numit + real*8 dt,val(*) +- integer fid,cret,etype,gtype,swm,cs,n ++ integer*8 fid ++ integer cret,etype,gtype,swm,cs,n + integer mfdfrvw + c + cret = mfdfrvw(fid,fname,len(fname),numdt,numit,dt, +@@ -66,7 +68,8 @@ c + integer numdt,numit + real*8 dt + integer val(*) +- integer fid,cret,etype,gtype,swm,cs,n ++ integer*8 fid ++ integer cret,etype,gtype,swm,cs,n + integer mfdfivw + c + cret = mfdfivw(fid,fname,len(fname),numdt,numit,dt, +@@ -88,7 +91,8 @@ c + character*(*) fname,pname,lname + integer numdt,numit + real*8 dt,val(*) +- integer fid,cret,etype,gtype,swm,cs,n,stm ++ integer*8 fid ++ integer cret,etype,gtype,swm,cs,n,stm + integer mfdfrpw + c + cret = mfdfrpw(fid,fname,len(fname),numdt,numit,dt, +@@ -112,7 +116,8 @@ c + integer numdt,numit + real*8 dt + integer val(*) +- integer fid,cret,etype,gtype,swm,cs,n,stm ++ integer*8 fid ++ integer cret,etype,gtype,swm,cs,n,stm + integer mfdfipw + c + cret = mfdfipw(fid,fname,len(fname),numdt,numit,dt, +@@ -135,7 +140,8 @@ c + integer numdt,numit + real*8 dt,val(*) + integer*8 flt(*) +- integer fid,cret,etype,gtype ++ integer*8 fid ++ integer cret,etype,gtype + integer mfdfraw + c + cret = mfdfraw(fid,fname,len(fname),numdt,numit,dt, +@@ -158,7 +164,8 @@ c + real*8 dt + integer val(*) + integer*8 flt(*) +- integer fid,cret,etype,gtype ++ integer*8 fid ++ integer cret,etype,gtype + integer mfdfiaw + c + cret = mfdfiaw(fid,fname,len(fname),numdt,numit,dt, +@@ -174,7 +181,8 @@ c DEC$ ATTRIBUTES DLLEXPORT :: mfdnf + c + implicit none + save +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + integer mfdfnfd + c + n = mfdfnfd(fid) +@@ -195,7 +203,8 @@ c DEC$ ATTRIBUTES DLLEXPORT :: mfdnf + c + implicit none + save +- integer fid,n,cret,ind ++ integer*8 fid ++ integer n,cret,ind + integer mfdfnfc + c + n = mfdfnfc(fid,ind) +@@ -216,7 +225,8 @@ c DEC$ ATTRIBUTES DLLEXPORT :: mfdnc + c + implicit none + save +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + character *(*) fname + integer mfdfncn + c +@@ -242,7 +252,8 @@ c + c + character *(*) fname, mname, dtunit, cname, cunit + integer lmesh, cret +- integer fid, type, it, nc ++ integer*8 fid ++ integer type, it, nc + integer mfdffdi + c + cret = mfdffdi(fid, it, fname, mname, lmesh, type, +@@ -263,7 +274,8 @@ c + c + character *(*) fname, mname, dtunit, cname, cunit + integer lmesh, cret +- integer fid, type, nc ++ integer*8 fid ++ integer type, nc + integer mfdffin + c + cret = mfdffin(fid, fname, len(fname), mname, lmesh, type, +@@ -282,7 +294,8 @@ c + c + character*(*) fname + integer cret +- integer fid, it, numdt, numit ++ integer*8 fid ++ integer it, numdt, numit + real*8 dt + integer mfdfcsi + c +@@ -302,7 +315,8 @@ c + c + character*(*) fname + integer cret +- integer fid, it, numdt, numit, mnumdt, mnumit ++ integer*8 fid ++ integer it, numdt, numit, mnumdt, mnumit + real*8 dt + integer mfdfcmi + c +@@ -323,7 +337,8 @@ c + c + character*(*) fname + integer cret +- integer fid, numdt, numit, mnumdt, mnumit ++ integer*8 fid ++ integer numdt, numit, mnumdt, mnumit + integer mfdfcmw + c + cret = mfdfcmw(fid,fname,len(fname),numdt,numit, +@@ -340,7 +355,8 @@ c DEC$ ATTRIBUTES DLLEXPORT :: mfdnp + c + implicit none + save +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + integer numdt,numit,etype,gtype + character*(*) fname,dpname,dlname + +@@ -366,7 +382,8 @@ c + implicit none + save + character*(*) fname +- integer fid,n,cret,numdt,numit,etype,gtype ++ integer*8 fid ++ integer n,cret,numdt,numit,etype,gtype + integer mfdfnva + c + n = mfdfnva(fid,fname,len(fname),numdt,numit, +@@ -392,7 +409,8 @@ c + save + character*(*) fname, pname, lname + integer pit,stm,psize +- integer fid,n,cret,numdt,numit,etype,gtype,nip ++ integer*8 fid ++ integer n,cret,numdt,numit,etype,gtype,nip + integer mfdfnvp + c + n = mfdfnvp(fid,fname,len(fname),numdt,numit, +@@ -419,7 +437,8 @@ c + save + character*(*) fname, pname, lname + integer stm,psize +- integer fid,n,cret,numdt,numit,etype,gtype,nip ++ integer*8 fid ++ integer n,cret,numdt,numit,etype,gtype,nip + integer mfdfnpn + c + n = mfdfnpn(fid,fname,len(fname),numdt,numit, +@@ -446,7 +465,8 @@ c + character*(*) fname + integer numdt,numit + real*8 val(*) +- integer fid,cret,etype,gtype,swm,cs ++ integer*8 fid ++ integer cret,etype,gtype,swm,cs + integer mfdfrvr + c + cret = mfdfrvr(fid,fname,len(fname),numdt,numit, +@@ -466,7 +486,8 @@ c + character*(*) fname + integer numdt,numit + integer val(*) +- integer fid,cret,etype,gtype,swm,cs ++ integer*8 fid ++ integer cret,etype,gtype,swm,cs + integer mfdfivr + c + cret = mfdfivr(fid,fname,len(fname),numdt,numit, +@@ -488,7 +509,8 @@ c + character*(*) fname,pname + integer numdt,numit + real*8 val(*) +- integer fid,cret,etype,gtype,swm,cs,stm ++ integer*8 fid ++ integer cret,etype,gtype,swm,cs,stm + integer mfdfrpr + c + cret = mfdfrpr(fid,fname,len(fname),numdt,numit, +@@ -510,7 +532,8 @@ c + character*(*) fname,pname + integer numdt,numit + integer val(*) +- integer fid,cret,etype,gtype,swm,cs,n,stm ++ integer*8 fid ++ integer cret,etype,gtype,swm,cs,n,stm + integer mfdfipr + c + cret = mfdfipr(fid,fname,len(fname),numdt,numit, +@@ -532,7 +555,8 @@ c + integer numdt,numit + real*8 val(*) + integer*8 flt(*) +- integer fid,cret,etype,gtype ++ integer*8 fid ++ integer cret,etype,gtype + integer mfdfrar + c + cret = mfdfrar(fid,fname,len(fname),numdt,numit, +@@ -554,7 +578,8 @@ c + integer numdt,numit + integer val(*) + integer*8 flt(*) +- integer fid,cret,etype,gtype ++ integer*8 fid ++ integer cret,etype,gtype + integer mfdfiar + c + cret = mfdfiar(fid,fname,len(fname),numdt,numit, +@@ -571,7 +596,8 @@ c + implicit none + save + character*(*) fname,iname +- integer fid,cret ++ integer*8 fid ++ integer cret + integer mfdfinw + c + cret = mfdfinw(fid,fname,len(fname),iname,len(iname),cret) +@@ -586,7 +612,8 @@ c DEC$ ATTRIBUTES DLLEXPORT :: mfdni + c + implicit none + save +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + character*(*) fname + integer mfdfnin + c +@@ -609,7 +636,8 @@ c + implicit none + save + character*(*) fname,iname +- integer fid,cret,it ++ integer*8 fid ++ integer cret,it + integer mfdfini + c + cret = mfdfini(fid,fname,len(fname),it,iname,cret) +@@ -629,7 +657,8 @@ c + c + character*(*) fname,mname + integer cret +- integer fid,it,numdt,numit,nmesh,lmesh ++ integer*8 fid ++ integer it,numdt,numit,nmesh,lmesh + integer mnumdt,mnumit + real*8 dt + integer mfdfoci +@@ -650,7 +679,8 @@ c DEC$ ATTRIBUTES DLLEXPORT :: mfdon + c + implicit none + save +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + integer numdt,numit,etype,gtype,it + character*(*) fname,dpname,dlname,mname + +@@ -679,7 +709,8 @@ c + save + character*(*) fname, pname, lname, mname + integer pit,stm,psize +- integer fid,n,cret,numdt,numit,etype,gtype,nip ++ integer*8 fid ++ integer n,cret,numdt,numit,etype,gtype,nip + integer mfdfonv + c + n = mfdfonv(fid,fname,len(fname),numdt,numit, +@@ -711,7 +742,8 @@ c + character*(*) fname,pname,mname + integer numdt,numit + real*8 val(*) +- integer fid,cret,etype,gtype,swm,cs,stm ++ integer*8 fid ++ integer cret,etype,gtype,swm,cs,stm + integer mfdforr + c + cret = mfdforr(fid,fname,len(fname),numdt,numit, +@@ -735,7 +767,8 @@ c + character*(*) fname,pname,mname + integer numdt,numit + integer val(*) +- integer fid,cret,etype,gtype,swm,cs,n,stm ++ integer*8 fid ++ integer cret,etype,gtype,swm,cs,n,stm + integer mfdfoir + c + cret = mfdfoir(fid,fname,len(fname),numdt,numit, +Index: med-fichier/src/fi/medinterp.f +=================================================================== +--- med-fichier.orig/src/fi/medinterp.f ++++ med-fichier/src/fi/medinterp.f +@@ -22,7 +22,8 @@ c + save + c + character*(*) name +- integer fid, gtype,cnode,nvar,maxd,nmaxc,cret ++ integer*8 fid ++ integer gtype,cnode,nvar,maxd,nmaxc,cret + integer mipfcre + c + cret = mipfcre(fid,name,len(name),gtype,cnode, +@@ -40,7 +41,8 @@ c + save + c + character*(*) name +- integer fid,it,nc,cret ++ integer*8 fid ++ integer it,nc,cret + integer pw(*) + real*8 co(*) + integer mipfbfw +@@ -59,7 +61,8 @@ c + save + c + character*(*) name +- integer fid,it,nc,cret ++ integer*8 fid ++ integer it,nc,cret + integer pw(*) + real*8 co(*) + integer mipfbfr +@@ -78,7 +81,8 @@ c + implicit none + save + c +- integer n, fid, cret ++ integer*8 fid ++ integer n, cret + integer mipfnip + c + n = mipfnip(fid) +@@ -102,7 +106,8 @@ c + save + c + character*(*) name +- integer fid, gtype,cnode,nvar,maxd,nmaxc,cret,nbf ++ integer*8 fid ++ integer gtype,cnode,nvar,maxd,nmaxc,cret,nbf + integer mipfiin + c + cret = mipfiin(fid,name,len(name),gtype,cnode,nbf, +@@ -121,7 +126,8 @@ c + save + c + character*(*) name +- integer fid, gtype,cnode,nvar,maxd,nmaxc,cret,nbf ++ integer*8 fid ++ integer gtype,cnode,nvar,maxd,nmaxc,cret,nbf + integer it + integer mipfipi + c +@@ -140,7 +146,8 @@ c + save + c + character*(*) name +- integer n, fid, it, cret ++ integer*8 fid ++ integer n, it, cret + integer mipfcsz + c + n = mipfcsz(fid,name,len(name),it) +Index: med-fichier/src/fi/medjoint.f +=================================================================== +--- med-fichier.orig/src/fi/medjoint.f ++++ med-fichier/src/fi/medjoint.f +@@ -26,7 +26,8 @@ c + character*(*) lmname + character*(*) des + character*(*) rmname +- integer fid, dom, cret ++ integer*8 fid ++ integer dom, cret + integer msdfjcr + c + print *,lmname +@@ -53,7 +54,8 @@ c + save + c + character *(*) lmname, jname +- integer n, fid, cret, corrtab(*) ++ integer*8 fid ++ integer n, cret, corrtab(*) + integer entlcl, entdst, geolcl, geodst, numdt,numit + integer msdfcrw + c +@@ -73,7 +75,8 @@ c + save + c + character *(*) maa +- integer n, fid, cret ++ integer*8 fid ++ integer n, cret + integer msdfnjn + c + n = msdfnjn(fid,maa,len(maa)) +@@ -97,7 +100,8 @@ c + save + c + character *(*) lmname,jname,des,rmname +- integer fid, ind,dom,cret,nstep,ncor ++ integer*8 fid ++ integer ind,dom,cret,nstep,ncor + integer msdfjni + c + cret = msdfjni(fid,lmname,len(lmname),ind, +@@ -119,7 +123,8 @@ c + save + c + character*(*) mname,jname +- integer fid,cret,numdt,numit ++ integer*8 fid ++ integer cret,numdt,numit + integer it,letype,lgtype,retype,rgtype,ncor + integer msdfszi + c +@@ -145,7 +150,8 @@ c + save + c + character*(*) mname,jname +- integer fid,cret,numdt,numit ++ integer*8 fid ++ integer cret,numdt,numit + integer letype,lgtype,retype,rgtype,ncor + integer msdfcsz + c +@@ -170,7 +176,8 @@ c + save + c + character *(*) lmname, jname +- integer fid, cret, corrtab(*) ++ integer*8 fid ++ integer cret, corrtab(*) + integer entlcl, entdst, geolcl, geodst, numdt,numit + integer msdfcrr + c +@@ -191,7 +198,8 @@ c + save + c + character *(*) mname,jname +- integer fid, ind,ncor,numdt,numit,cret ++ integer*8 fid ++ integer ind,ncor,numdt,numit,cret + integer msdfcsi + c + cret = msdfcsi(fid,mname,len(mname), +Index: med-fichier/src/fi/medlink.f +=================================================================== +--- med-fichier.orig/src/fi/medlink.f ++++ med-fichier/src/fi/medlink.f +@@ -23,7 +23,8 @@ c + implicit none + save + character*(*) mname,lname +- integer fid,cret ++ integer*8 fid ++ integer cret + integer mlnfliw + c + cret = mlnfliw(fid,mname,len(mname),lname,len(lname)) +@@ -38,7 +39,8 @@ c DEC$ ATTRIBUTES DLLEXPORT :: mlnnl + c + implicit none + save +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + integer mlnfnln + c + n = mlnfnln(fid) +@@ -61,7 +63,8 @@ c + save + c + character *(*) mname +- integer fid, lsize, it, cret ++ integer*8 fid ++ integer lsize, it, cret + integer mlnflni + c + cret = mlnflni(fid, it, mname, lsize) +@@ -78,7 +81,8 @@ c + save + c + character *(*) mname +- integer fid, lsize, cret,n ++ integer*8 fid ++ integer lsize, cret,n + integer mlnflai + c + n = mlnflai(fid, mname, len(mname), lsize) +@@ -100,7 +104,8 @@ c + implicit none + save + character*(*) mname,lname +- integer fid,cret ++ integer*8 fid ++ integer cret + integer mlnflir + c + cret = mlnflir(fid,mname,len(mname),lname,len(lname)) +Index: med-fichier/src/fi/medlocalization.f +=================================================================== +--- med-fichier.orig/src/fi/medlocalization.f ++++ med-fichier/src/fi/medlocalization.f +@@ -25,7 +25,8 @@ c + save + character*(*) lname,giname, isname + real*8 ecoo(*), ipcoo(*), wght(*) +- integer fid,cret,gtype,sdim,swm,nip ++ integer*8 fid ++ integer cret,gtype,sdim,swm,nip + integer mlcflow + c + cret = mlcflow(fid,lname,len(lname),gtype,sdim,ecoo,swm,nip, +@@ -41,7 +42,8 @@ c DEC$ ATTRIBUTES DLLEXPORT :: mlcnl + c + implicit none + save +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + integer mlcfnlc + c + n = mlcfnlc(fid) +@@ -65,7 +67,8 @@ c + save + c + character*(*) lname,giname, isname +- integer fid, gtype, it, cret, sdim, nip ++ integer*8 fid ++ integer gtype, it, cret, sdim, nip + integer nsmc, sgtype + integer mlcflci + c +@@ -85,7 +88,8 @@ c + save + c + character*(*) lname,giname, isname +- integer fid, gtype, cret, sdim, nip ++ integer*8 fid ++ integer gtype, cret, sdim, nip + integer nsmc, sgtype + integer mlcflni + c +@@ -105,7 +109,8 @@ c + save + character*(*) lname + real*8 ecoo(*), ipcoo(*), wght(*) +- integer fid,cret,swm ++ integer*8 fid ++ integer cret,swm + integer mlcflor + c + cret = mlcflor(fid,lname,len(lname),swm,ecoo,ipcoo,wght) +Index: med-fichier/src/fi/medmesh.f +=================================================================== +--- med-fichier.orig/src/fi/medmesh.f ++++ med-fichier/src/fi/medmesh.f +@@ -23,7 +23,8 @@ c + save + c + character *(*) name, desc, dtunit, aname, aunit +- integer fid, sdim, mdim, mtype, stype, atype, cret ++ integer*8 fid ++ integer sdim, mdim, mtype, stype, atype, cret + integer mmhfcre + c + cret = mmhfcre(fid, name, len(name), sdim, mdim, mtype, +@@ -42,7 +43,8 @@ c + implicit none + save + c +- integer fid, n, cret ++ integer*8 fid ++ integer n, cret + integer mmhfnmh + c + n = mmhfnmh(fid) +@@ -64,7 +66,8 @@ c + implicit none + save + c +- integer fid,it,naxis,cret ++ integer*8 fid ++ integer it,naxis,cret + integer mmhfnax + c + naxis = mmhfnax(fid,it) +@@ -85,7 +88,8 @@ c + implicit none + save + c +- integer fid,naxis,cret ++ integer*8 fid ++ integer naxis,cret + character *(*) name + integer mmhfnan + c +@@ -109,7 +113,8 @@ c + save + c + character *(*) name, desc, dtunit, aname, aunit +- integer fid, sdim, mdim, mtype, stype, atype, cret, nstep, it ++ integer*8 fid ++ integer sdim, mdim, mtype, stype, atype, cret, nstep, it + integer mmhfmhi + c + cret = mmhfmhi(fid, it, name, sdim, mdim, mtype, desc, dtunit, +@@ -128,7 +133,8 @@ c + save + c + character *(*) name, desc, dtunit, aname, aunit +- integer fid, sdim, mdim, mtype, stype, atype, cret, nstep ++ integer*8 fid ++ integer sdim, mdim, mtype, stype, atype, cret, nstep + integer mmhfmin + c + cret = mmhfmin(fid, name, len(name), sdim, mdim, mtype, desc, +@@ -146,7 +152,8 @@ c + implicit none + save + c +- integer fid,cret ++ integer*8 fid ++ integer cret + character *(*) name + integer mmhfunw + c +@@ -163,7 +170,8 @@ c + implicit none + save + c +- integer fid,cret ++ integer*8 fid ++ integer cret + character *(*) uname + character *(*) mname + integer mmhfunr +@@ -181,7 +189,8 @@ c + implicit none + save + c +- integer fid,cret,nin,nvn,nnc ++ integer*8 fid ++ integer cret,nin,nvn,nnc + character *(*) name + integer mmhfatw + c +@@ -198,7 +207,8 @@ c + implicit none + save + c +- integer fid,cret,nin,nvn,nnc ++ integer*8 fid ++ integer cret,nin,nvn,nnc + character *(*) name + integer mmhfatr + c +@@ -215,7 +225,8 @@ c + implicit none + save + c +- integer fid,cret,gtype ++ integer*8 fid ++ integer cret,gtype + character *(*) name + integer mmhfgtw + c +@@ -232,7 +243,8 @@ c + implicit none + save + c +- integer fid,cret,gtype ++ integer*8 fid ++ integer cret,gtype + character *(*) name + integer mmhfgtr + c +@@ -249,7 +261,8 @@ c + implicit none + save + c +- integer fid,cret,numdt, numit ++ integer*8 fid ++ integer cret,numdt, numit + character *(*) name + real*8 dt + integer st( * ) +@@ -268,7 +281,8 @@ c + implicit none + save + c +- integer fid,cret,numdt, numit ++ integer*8 fid ++ integer cret,numdt, numit + character *(*) name + integer st(*) + integer mmhfgsr +@@ -287,7 +301,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,n,swm ++ integer*8 fid ++ integer cret,numdt,numit,n,swm + real*8 dt + character *(*) name + real*8 coo(*) +@@ -307,7 +322,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,swm ++ integer*8 fid ++ integer cret,numdt,numit,swm + character *(*) name + real*8 coo(*) + integer mmhfcor +@@ -326,7 +342,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,n,swm,stm,dim ++ integer*8 fid ++ integer cret,numdt,numit,n,swm,stm,dim + real*8 dt + character *(*) name, pname + real*8 coo(*) +@@ -347,7 +364,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,swm,stm,dim ++ integer*8 fid ++ integer cret,numdt,numit,swm,stm,dim + character *(*) name, pname + real*8 coo(*) + integer mmhfcpr +@@ -367,7 +385,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,axis,size ++ integer*8 fid ++ integer cret,numdt,numit,axis,size + real*8 dt + character *(*) name + real*8 index(*) +@@ -387,7 +406,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,axis ++ integer*8 fid ++ integer cret,numdt,numit,axis + character *(*) name + real*8 index(*) + integer mmhfgcr +@@ -406,7 +426,8 @@ c + implicit none + save + c +- integer fid,cret,numdt, numit,n,entype,geotype ++ integer*8 fid ++ integer cret,numdt, numit,n,entype,geotype + character *(*) name + integer num(*) + integer mmhfenw +@@ -426,7 +447,8 @@ c + implicit none + save + c +- integer fid,cret,numdt, numit,entype,geotype ++ integer*8 fid ++ integer cret,numdt, numit,entype,geotype + character *(*) name + integer num(*) + integer mmhfenr +@@ -446,7 +468,8 @@ c + implicit none + save + c +- integer fid,cret,numdt, numit,n,entype,geotype ++ integer*8 fid ++ integer cret,numdt, numit,n,entype,geotype + character *(*) name + integer num(*) + integer mmhffnw +@@ -466,7 +489,8 @@ c + implicit none + save + c +- integer fid,cret,numdt, numit,entype,geotype ++ integer*8 fid ++ integer cret,numdt, numit,entype,geotype + character *(*) name + integer num(*) + integer mmhffnr +@@ -488,7 +512,8 @@ c + c + character *(*) mname + character*(*) ename +- integer fid, numdt, numit, entype, geotype, n, cret ++ integer*8 fid ++ integer numdt, numit, entype, geotype, n, cret + integer mmhfeaw + c + cret = mmhfeaw(fid,mname,len(mname),numdt,numit,entype, +@@ -508,7 +533,8 @@ c + c + character *(*) mname + character*(*) ename +- integer fid, numdt, numit, entype, geotype, cret ++ integer*8 fid ++ integer numdt, numit, entype, geotype, cret + integer mmhfear + + cret = mmhfear(fid,mname,len(mname),numdt,numit,entype, +@@ -528,7 +554,8 @@ c + save + c + character *(*) name +- integer fid,numdt,numit,entype,geotype,datype,cret ++ integer*8 fid ++ integer numdt,numit,entype,geotype,datype,cret + integer cmode,chgt,tsf,n + integer mmhfnme + c +@@ -553,7 +580,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,n,entype,geotype,swm,cmode ++ integer*8 fid ++ integer cret,numdt,numit,n,entype,geotype,swm,cmode + character *(*) name + integer con(*) + real*8 dt +@@ -574,7 +602,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,entype,geotype,swm,cmode ++ integer*8 fid ++ integer cret,numdt,numit,entype,geotype,swm,cmode + character *(*) name + integer con(*) + integer mmhfcyr +@@ -594,7 +623,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,n,entype,geotype,swm ++ integer*8 fid ++ integer cret,numdt,numit,n,entype,geotype,swm + integer cmode,stmode,dim + character *(*) name + character *(*) pname +@@ -617,7 +647,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,entype,geotype,swm ++ integer*8 fid ++ integer cret,numdt,numit,entype,geotype,swm + integer cmode,n,stmode,dim + character *(*) name + character *(*) pname +@@ -643,7 +674,8 @@ c + c + character *(*) name + character *(*) pname +- integer fid,numdt,numit,entype,geotype,datype,cret ++ integer*8 fid ++ integer numdt,numit,entype,geotype,datype,cret + integer cmode,chgt,tsf,n,stmode,psize + integer mmhfnep + c +@@ -670,7 +702,8 @@ c DEC$ ATTRIBUTES DLLEXPORT :: mmhno + implicit none + save + c +- integer fid,cret,numdt,numit,swm ++ integer*8 fid ++ integer cret,numdt,numit,swm + character *(*) name + character *(*) nname + real*8 coo(*) +@@ -695,7 +728,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,swm,n ++ integer*8 fid ++ integer cret,numdt,numit,swm,n + character *(*) name + character *(*) nname + real*8 coo(*), dt +@@ -719,7 +753,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,n,entype,geotype,swm,cmode ++ integer*8 fid ++ integer cret,numdt,numit,n,entype,geotype,swm,cmode + character *(*) name + character *(*) nname + integer con(*) +@@ -745,7 +780,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,entype,geotype,swm,cmode ++ integer*8 fid ++ integer cret,numdt,numit,entype,geotype,swm,cmode + character *(*) name + character *(*) nname + integer con(*) +@@ -768,7 +804,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit ++ integer*8 fid ++ integer cret,numdt,numit + real*8 dt + character *(*) name + real*8 coo(*) +@@ -789,7 +826,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit ++ integer*8 fid ++ integer cret,numdt,numit + character *(*) name + real*8 coo(*) + integer*8 flt(*) +@@ -809,7 +847,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,entype,geotype,cmode ++ integer*8 fid ++ integer cret,numdt,numit,entype,geotype,cmode + character *(*) name + integer con(*) + integer*8 flt(*) +@@ -831,7 +870,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,entype,geotype,cmode ++ integer*8 fid ++ integer cret,numdt,numit,entype,geotype,cmode + character *(*) name + integer con(*) + integer*8 flt(*) +@@ -852,7 +892,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,isize,entype,cmode ++ integer*8 fid ++ integer cret,numdt,numit,isize,entype,cmode + character *(*) name + integer con(*), index(*) + real*8 dt +@@ -873,7 +914,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,entype,cmode ++ integer*8 fid ++ integer cret,numdt,numit,entype,cmode + character *(*) name + integer con(*), index(*) + integer mmhfpgr +@@ -893,7 +935,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,fisize,nisize,entype,cmode ++ integer*8 fid ++ integer cret,numdt,numit,fisize,nisize,entype,cmode + character *(*) name + integer con(*), findex(*), nindex(*) + real*8 dt +@@ -914,7 +957,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,entype,cmode ++ integer*8 fid ++ integer cret,numdt,numit,entype,cmode + character *(*) name + integer con(*), findex(*), nindex(*) + integer mmhfphr +@@ -934,7 +978,8 @@ c + implicit none + save + c +- integer fid,cret,numdt, numit,n,entype,geotype ++ integer*8 fid ++ integer cret,numdt, numit,n,entype,geotype + character *(*) name + integer num(*) + integer mmhfgnw +@@ -954,7 +999,8 @@ c + implicit none + save + c +- integer fid,cret,numdt, numit,entype,geotype ++ integer*8 fid ++ integer cret,numdt, numit,entype,geotype + character *(*) name + integer num(*) + integer mmhfgnr +@@ -974,7 +1020,8 @@ c + implicit none + save + c +- integer fid,cret,numdt1,numit1,numdt2,numit2 ++ integer*8 fid ++ integer cret,numdt1,numit1,numdt2,numit2 + character *(*) name + real*8 dt2 + integer mmhfcsc +@@ -993,7 +1040,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,csit ++ integer*8 fid ++ integer cret,numdt,numit,csit + character *(*) name + real*8 dt + integer mmhfcsi +@@ -1011,7 +1059,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit ++ integer*8 fid ++ integer cret,numdt,numit + character *(*) name + real*8 dt + integer mmhfcsr +@@ -1029,7 +1078,8 @@ c + implicit none + save + c +- integer fid,cret,stype ++ integer*8 fid ++ integer cret,stype + character *(*) name + integer mmhfstr + c +@@ -1049,7 +1099,8 @@ c + save + c + character *(*) name,aname +- integer fid,numdt,numit,geotype,cret ++ integer*8 fid ++ integer numdt,numit,geotype,cret + integer n + real*8 val(*) + integer mmhfraw +@@ -1071,7 +1122,8 @@ c + save + c + character *(*) name,aname +- integer fid,numdt,numit,geotype,cret ++ integer*8 fid ++ integer numdt,numit,geotype,cret + integer n + integer val(*) + integer mmhfiaw +@@ -1093,7 +1145,8 @@ c + save + c + character *(*) name,aname +- integer fid,numdt,numit,geotype,cret ++ integer*8 fid ++ integer numdt,numit,geotype,cret + integer n + character *(*) val + integer mmhfsaw +@@ -1115,7 +1168,8 @@ c + save + c + character *(*) name,aname +- integer fid,numdt,numit,geotype,cret ++ integer*8 fid ++ integer numdt,numit,geotype,cret + real*8 val(*) + integer mmhfrar + c +@@ -1135,7 +1189,8 @@ c + save + c + character *(*) name,aname +- integer fid,numdt,numit,geotype,cret ++ integer*8 fid ++ integer numdt,numit,geotype,cret + integer val(*) + integer mmhfiar + c +@@ -1155,7 +1210,8 @@ c + save + c + character *(*) name,aname +- integer fid,numdt,numit,geotype,cret ++ integer*8 fid ++ integer numdt,numit,geotype,cret + integer n + character *(*) val + integer mmhfsar +@@ -1175,7 +1231,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit,entype,geotype,it ++ integer*8 fid ++ integer cret,numdt,numit,entype,geotype,it + character *(*) name, geoname + integer mmhfeni + c +@@ -1194,7 +1251,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit ++ integer*8 fid ++ integer cret,numdt,numit + real*8 dt + character *(*) name + real*8 tsf(*) +@@ -1214,7 +1272,8 @@ c + implicit none + save + c +- integer fid,cret,numdt,numit ++ integer*8 fid ++ integer cret,numdt,numit + character *(*) name + real*8 tsf(*) + integer mmhftfr +@@ -1235,7 +1294,8 @@ c + c + character *(*) mname + integer val(*) +- integer fid,numdt,numit,entype,geotype ++ integer*8 fid ++ integer numdt,numit,entype,geotype + integer dtype,n,cret + integer mmhfaaw + integer*8 flt(*) +@@ -1257,7 +1317,8 @@ c + c + character *(*) mname + integer val(*) +- integer fid,numdt,numit,entype,geotype ++ integer*8 fid ++ integer numdt,numit,entype,geotype + integer dtype,n,cret + integer mmhfaar + integer*8 flt(*) +@@ -1279,7 +1340,8 @@ c + c + character *(*) mname + character *(*) val +- integer fid,numdt,numit,entype,geotype ++ integer*8 fid ++ integer numdt,numit,entype,geotype + integer dtype,n,cret + integer mmhfasw + integer*8 flt(*) +@@ -1301,7 +1363,8 @@ c + c + character *(*) mname + character *(*) val +- integer fid,numdt,numit,entype,geotype ++ integer*8 fid ++ integer numdt,numit,entype,geotype + integer dtype,n,cret + integer mmhfasr + integer*8 flt(*) +Index: med-fichier/src/fi/medparameter.f +=================================================================== +--- med-fichier.orig/src/fi/medparameter.f ++++ med-fichier/src/fi/medparameter.f +@@ -22,7 +22,8 @@ c + save + c + character *(*) name, des, dtunit +- integer fid, cret, type ++ integer*8 fid ++ integer cret, type + integer mprfcre + c + cret = mprfcre(fid,name,len(name),type,des,len(des), +@@ -39,7 +40,8 @@ c + implicit none + save + character*(*) name +- integer fid,numdt,numit,cret ++ integer*8 fid ++ integer numdt,numit,cret + real*8 dt,val + integer mprfrvw + c +@@ -56,7 +58,8 @@ c + implicit none + save + character*(*) name +- integer fid,numdt,numit,cret ++ integer*8 fid ++ integer numdt,numit,cret + real*8 dt + integer val + integer mprfivw +@@ -74,7 +77,8 @@ c + implicit none + save + character*(*) name +- integer fid,numdt,numit,cret ++ integer*8 fid ++ integer numdt,numit,cret + real*8 val + integer mprfrvr + c +@@ -91,7 +95,8 @@ c + implicit none + save + character*(*) name +- integer fid,numdt,numit,cret ++ integer*8 fid ++ integer numdt,numit,cret + integer val + integer mprfivr + c +@@ -107,7 +112,8 @@ c DEC$ ATTRIBUTES DLLEXPORT :: mprnp + c + implicit none + save +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + integer mprfnpr + c + n = mprfnpr(fid) +@@ -131,7 +137,8 @@ c + save + c + character *(*) name, dtunit, desc +- integer fid, it, cret, type, nstep ++ integer*8 fid ++ integer it, cret, type, nstep + integer mprfpri + c + cret = mprfpri(fid, it, name, type, +@@ -150,7 +157,8 @@ c + save + c + character *(*) name, dtunit, desc +- integer fid, cret, type, nstep ++ integer*8 fid ++ integer cret, type, nstep + integer mprfpin + c + cret = mprfpin(fid, name, len(name), type, +@@ -169,7 +177,8 @@ c + save + c + character *(*) name +- integer fid, it, cret, numdt, numit ++ integer*8 fid ++ integer it, cret, numdt, numit + real*8 dt + integer mprfcsi + c +Index: med-fichier/src/fi/medprofile.f +=================================================================== +--- med-fichier.orig/src/fi/medprofile.f ++++ med-fichier/src/fi/medprofile.f +@@ -24,7 +24,8 @@ c + save + character*(*) pname + integer profil(*) +- integer fid,cret,psize ++ integer*8 fid ++ integer cret,psize + integer mpffprw + c + cret = mpffprw(fid,pname,len(pname),psize,profil) +@@ -39,7 +40,8 @@ c DEC$ ATTRIBUTES DLLEXPORT :: mpfnp + c + implicit none + save +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + integer mpffnpf + c + n = mpffnpf(fid) +@@ -62,7 +64,8 @@ c + save + c + character *(*) pname +- integer fid, psize, it, cret ++ integer*8 fid ++ integer psize, it, cret + integer mpffpfi + c + cret = mpffpfi(fid, it, pname, psize) +@@ -79,7 +82,8 @@ c + save + c + character *(*) pname +- integer fid, psize, cret ++ integer*8 fid ++ integer psize, cret + integer mpffpsn + c + cret = mpffpsn(fid, pname, len(pname), psize) +@@ -96,7 +100,8 @@ c + save + character*(*) pname + integer profil(*) +- integer fid,cret ++ integer*8 fid ++ integer cret + integer mpffprr + c + cret = mpffprr(fid,pname,len(pname),profil) +Index: med-fichier/src/fi/medsupport.f +=================================================================== +--- med-fichier.orig/src/fi/medsupport.f ++++ med-fichier/src/fi/medsupport.f +@@ -23,7 +23,8 @@ c + save + c + character *(*) maa, des, aname, aunit +- integer fid, cret, atype, sdim, mdim ++ integer*8 fid ++ integer cret, atype, sdim, mdim + integer msmfcre + c + cret = msmfcre(fid, maa, len(maa), sdim, mdim, +@@ -41,7 +42,8 @@ c + implicit none + save + c +- integer fid, n, cret ++ integer*8 fid ++ integer n, cret + integer msmfnsm + c + n = msmfnsm(fid) +@@ -65,7 +67,8 @@ c + save + c + character *(*) name, desc, aname, aunit +- integer fid, sdim, mdim, atype, cret ++ integer*8 fid ++ integer sdim, mdim, atype, cret + integer msmfsni + c + cret = msmfsni(fid, name, len(name), sdim, mdim, desc, +@@ -84,7 +87,8 @@ c + save + c + character *(*) name, desc, aname, aunit +- integer fid, sdim, mdim, atype, it, cret ++ integer*8 fid ++ integer sdim, mdim, atype, it, cret + integer msmfsmi + c + cret = msmfsmi(fid, it, name, sdim, mdim, desc, +@@ -101,7 +105,8 @@ c + implicit none + save + c +- integer fid,it,naxis,cret ++ integer*8 fid ++ integer it,naxis,cret + integer msmfnax + c + naxis = msmfnax(fid,it) +@@ -122,7 +127,8 @@ c + implicit none + save + c +- integer fid,naxis,cret ++ integer*8 fid ++ integer naxis,cret + character *(*) name + integer msmfnan + c +Index: med-fichier/src/fi/medparfile.f +=================================================================== +--- med-fichier.orig/src/fi/medparfile.f ++++ med-fichier/src/fi/medparfile.f +@@ -21,10 +21,10 @@ c + implicit none + save + character *(*) name +- integer fid ++ integer*8 fid + integer access + integer com,info,cret +- integer mpffope ++ integer*8 mpffope + c + fid = mpffope(name, access, len(name), com, info) + if (fid.lt.0) then +Index: med-fichier/tests/f/2.3.1v3.0/test2.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.1v3.0/test2.f ++++ med-fichier/tests/f/2.3.1v3.0/test2.f +@@ -28,7 +28,7 @@ C + C + C + integer cret,ret +- integer fid ++ integer*8 fid + character*200 des + integer hdfok, medok + character*16 nomcoo(2) +Index: med-fichier/tests/f/2.3.2v3.0/test2.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.2v3.0/test2.f ++++ med-fichier/tests/f/2.3.2v3.0/test2.f +@@ -28,7 +28,7 @@ C + C + C + integer cret,ret +- integer fid ++ integer*8 fid + character*200 des + integer hdfok, medok + character*16 nomcoo(2) +Index: med-fichier/tests/f/2.3.6/test1.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test1.f ++++ med-fichier/tests/f/2.3.6/test1.f +@@ -28,7 +28,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*200 des + parameter (des = "Ceci est un courte description" + 1 // " du fichier test1.med") +Index: med-fichier/tests/f/2.3.6/test19.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test19.f ++++ med-fichier/tests/f/2.3.6/test19.f +@@ -28,7 +28,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character *32 maa + parameter (maa = "maillage_test19") + character*200 des +Index: med-fichier/tests/f/2.3.6/test2.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test2.f ++++ med-fichier/tests/f/2.3.6/test2.f +@@ -28,7 +28,7 @@ C + C + C + integer cret,ret +- integer fid ++ integer*8 fid + character*200 des + + C ** verifie que le fichier test1.med est au bon format ** +Index: med-fichier/tests/f/2.3v3.0/test2.f +=================================================================== +--- med-fichier.orig/tests/f/2.3v3.0/test2.f ++++ med-fichier/tests/f/2.3v3.0/test2.f +@@ -28,7 +28,7 @@ C + C + C + integer cret,ret +- integer fid ++ integer*8 fid + character*200 des + integer hdfok, medok + character*16 nomcoo(2) +Index: med-fichier/tests/f/test1.f +=================================================================== +--- med-fichier.orig/tests/f/test1.f ++++ med-fichier/tests/f/test1.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*255 fname + character*200 des + parameter (des = "Ceci est un courte description" +Index: med-fichier/tests/f/test2.f +=================================================================== +--- med-fichier.orig/tests/f/test2.f ++++ med-fichier/tests/f/test2.f +@@ -28,7 +28,7 @@ C + C + C + integer cret,ret +- integer fid ++ integer*8 fid + character*200 des + integer hdfok, medok + integer fexist, accok +Index: med-fichier/tests/unittests/f/Unittest_MEDfile_1.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDfile_1.f ++++ med-fichier/tests/unittests/f/Unittest_MEDfile_1.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDfile_1.med") + character*200 cmt1 +Index: med-fichier/tests/unittests/f/Unittest_MEDfilter_1.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDfilter_1.f ++++ med-fichier/tests/unittests/f/Unittest_MEDfilter_1.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDfilter_1.med") + integer nflt +Index: med-fichier/tests/unittests/f/Unittest_MEDfilter_2.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDfilter_2.f ++++ med-fichier/tests/unittests/f/Unittest_MEDfilter_2.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDfilter_2.med") + integer nflt +Index: med-fichier/tests/unittests/f/Unittest_MEDinterp_1.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDinterp_1.f ++++ med-fichier/tests/unittests/f/Unittest_MEDinterp_1.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDinterp_1.med") + character *64 name1 +Index: med-fichier/tests/unittests/f/Unittest_MEDinterp_2.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDinterp_2.f ++++ med-fichier/tests/unittests/f/Unittest_MEDinterp_2.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDinterp_1.med") + character *64 name1 +Index: med-fichier/tests/unittests/f/Unittest_MEDinterp_3.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDinterp_3.f ++++ med-fichier/tests/unittests/f/Unittest_MEDinterp_3.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDinterp_1.med") + integer n,ni +Index: med-fichier/tests/unittests/f/Unittest_MEDlink_1.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDlink_1.f ++++ med-fichier/tests/unittests/f/Unittest_MEDlink_1.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDlink_1.med") + character*64 mname1, mname2,lname1,lname2 +Index: med-fichier/tests/unittests/f/Unittest_MEDlink_2.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDlink_2.f ++++ med-fichier/tests/unittests/f/Unittest_MEDlink_2.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDlink_1.med") + character*64 mname1, mname2,lname1,lname2 +Index: med-fichier/tests/unittests/f/Unittest_MEDlink_3.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDlink_3.f ++++ med-fichier/tests/unittests/f/Unittest_MEDlink_3.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDlink_1.med") + character*64 mname1, mname2,lname1,lname2,mname +Index: med-fichier/tests/unittests/f/Unittest_MEDlocalization_1.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDlocalization_1.f ++++ med-fichier/tests/unittests/f/Unittest_MEDlocalization_1.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname,lname,giname,isname + parameter (fname = "Unittest_MEDlocalization_1.med") + parameter (lname = "Localization name") +Index: med-fichier/tests/unittests/f/Unittest_MEDlocalization_2.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDlocalization_2.f ++++ med-fichier/tests/unittests/f/Unittest_MEDlocalization_2.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname,lname1,giname1,isname1 + character*64 giname,isname + parameter (fname="Unittest_MEDlocalization_1.med") +Index: med-fichier/tests/unittests/f/Unittest_MEDlocalization_3.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDlocalization_3.f ++++ med-fichier/tests/unittests/f/Unittest_MEDlocalization_3.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname,lname1,giname1,isname1 + character*64 giname,isname + parameter (fname="Unittest_MEDlocalization_1.med") +Index: med-fichier/tests/unittests/f/Unittest_MEDparameter_1.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDparameter_1.f ++++ med-fichier/tests/unittests/f/Unittest_MEDparameter_1.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDparameter_1.med") + character*64 pname1,pname2 +Index: med-fichier/tests/unittests/f/Unittest_MEDparameter_2.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDparameter_2.f ++++ med-fichier/tests/unittests/f/Unittest_MEDparameter_2.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDparameter_1.med") + character*64 pname1,pname2,pname +Index: med-fichier/tests/unittests/f/Unittest_MEDparameter_3.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDparameter_3.f ++++ med-fichier/tests/unittests/f/Unittest_MEDparameter_3.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDparameter_1.med") + character*64 pname1,pname2,pname +Index: med-fichier/tests/unittests/f/Unittest_MEDprofile_1.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDprofile_1.f ++++ med-fichier/tests/unittests/f/Unittest_MEDprofile_1.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname, pname1, pname2 + parameter (fname="Unittest_MEDprofile_1.med") + parameter (pname1="Profile name1") +Index: med-fichier/tests/unittests/f/Unittest_MEDprofile_2.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDprofile_2.f ++++ med-fichier/tests/unittests/f/Unittest_MEDprofile_2.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname, pname1, pname2 + parameter (fname="Unittest_MEDprofile_1.med") + parameter (pname1="Profile name1") +Index: med-fichier/tests/unittests/f/Unittest_MEDstructElement_1.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDstructElement_1.f ++++ med-fichier/tests/unittests/f/Unittest_MEDstructElement_1.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDstructElement_1.med") + character*64 mname1, mname2, mname3 +Index: med-fichier/tests/unittests/f/Unittest_MEDstructElement_10.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDstructElement_10.f ++++ med-fichier/tests/unittests/f/Unittest_MEDstructElement_10.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDstructElement_9.med") + character*64 mname2 +Index: med-fichier/tests/unittests/f/Unittest_MEDstructElement_11.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDstructElement_11.f ++++ med-fichier/tests/unittests/f/Unittest_MEDstructElement_11.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDstructElement_9.med") + character*64 mname2 +Index: med-fichier/tests/unittests/f/Unittest_MEDstructElement_2.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDstructElement_2.f ++++ med-fichier/tests/unittests/f/Unittest_MEDstructElement_2.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDstructElement_1.med") + character*64 mname1, mname2, mname3 +Index: med-fichier/tests/unittests/f/Unittest_MEDstructElement_3.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDstructElement_3.f ++++ med-fichier/tests/unittests/f/Unittest_MEDstructElement_3.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDstructElement_1.med") + character*64 mname1, mname2, mname3 +Index: med-fichier/tests/unittests/f/Unittest_MEDstructElement_4.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDstructElement_4.f ++++ med-fichier/tests/unittests/f/Unittest_MEDstructElement_4.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDstructElement_4.med") + character*64 mname2 +Index: med-fichier/tests/unittests/f/Unittest_MEDstructElement_5.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDstructElement_5.f ++++ med-fichier/tests/unittests/f/Unittest_MEDstructElement_5.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDstructElement_4.med") + character*64 mname2 +Index: med-fichier/tests/unittests/f/Unittest_MEDstructElement_6.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDstructElement_6.f ++++ med-fichier/tests/unittests/f/Unittest_MEDstructElement_6.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDstructElement_4.med") + character*64 mname2 +Index: med-fichier/tests/unittests/f/Unittest_MEDstructElement_7.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDstructElement_7.f ++++ med-fichier/tests/unittests/f/Unittest_MEDstructElement_7.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDstructElement_7.med") + character*64 mname2 +Index: med-fichier/tests/unittests/f/Unittest_MEDstructElement_8.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDstructElement_8.f ++++ med-fichier/tests/unittests/f/Unittest_MEDstructElement_8.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDstructElement_7.med") + character*64 mname2 +Index: med-fichier/tests/unittests/f/Unittest_MEDstructElement_9.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDstructElement_9.f ++++ med-fichier/tests/unittests/f/Unittest_MEDstructElement_9.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDstructElement_9.med") + character*64 mname2 +Index: med-fichier/tests/unittests/f/Unittest_MEDsupportMesh_1.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDsupportMesh_1.f ++++ med-fichier/tests/unittests/f/Unittest_MEDsupportMesh_1.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDsupportMesh_1.med") + character*64 smname1 +Index: med-fichier/tests/unittests/f/Unittest_MEDsupportMesh_2.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDsupportMesh_2.f ++++ med-fichier/tests/unittests/f/Unittest_MEDsupportMesh_2.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDsupportMesh_1.med") + character*64 smname1 +Index: med-fichier/tests/unittests/f/Unittest_MEDsupportMesh_3.f +=================================================================== +--- med-fichier.orig/tests/unittests/f/Unittest_MEDsupportMesh_3.f ++++ med-fichier/tests/unittests/f/Unittest_MEDsupportMesh_3.f +@@ -26,7 +26,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + character*64 fname + parameter (fname = "Unittest_MEDsupportMesh_1.med") + character*64 smname1 +Index: med-fichier/tests/usecases/f/UsesCase_MEDfield_1.f +=================================================================== +--- med-fichier.orig/tests/usecases/f/UsesCase_MEDfield_1.f ++++ med-fichier/tests/usecases/f/UsesCase_MEDfield_1.f +@@ -28,7 +28,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + C component number, node number + integer ncompo, nnodes + C triangular elements number, quadrangular elements number +Index: med-fichier/tests/usecases/f/UsesCase_MEDfield_4.f +=================================================================== +--- med-fichier.orig/tests/usecases/f/UsesCase_MEDfield_4.f ++++ med-fichier/tests/usecases/f/UsesCase_MEDfield_4.f +@@ -27,7 +27,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + C component number, node number + integer ncompo + C triangular elements number, quadrangular elements number +Index: med-fichier/tests/usecases/f/UsesCase_MEDmesh_1.f +=================================================================== +--- med-fichier.orig/tests/usecases/f/UsesCase_MEDmesh_1.f ++++ med-fichier/tests/usecases/f/UsesCase_MEDmesh_1.f +@@ -29,7 +29,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + integer sdim, mdim, stype, mtype, atype, nnode + integer ntria, nquad + integer fnum, ngro +Index: med-fichier/tests/usecases/f/UsesCase_MEDmesh_10.f +=================================================================== +--- med-fichier.orig/tests/usecases/f/UsesCase_MEDmesh_10.f ++++ med-fichier/tests/usecases/f/UsesCase_MEDmesh_10.f +@@ -28,7 +28,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + C space dim, mesh dim + integer sdim, mdim + C axis name, unit name +Index: med-fichier/tests/usecases/f/UsesCase_MEDmesh_4.f +=================================================================== +--- med-fichier.orig/tests/usecases/f/UsesCase_MEDmesh_4.f ++++ med-fichier/tests/usecases/f/UsesCase_MEDmesh_4.f +@@ -27,7 +27,7 @@ C + C + C + integer cret +- integer fid ++ integer*8 fid + integer sdim, mdim, stype, mtype, atype + integer axis, isize, entype, nquad4 + character*200 mdesc +Index: med-fichier/src/2.3.6/fi/famf.f +=================================================================== +--- med-fichier.orig/src/2.3.6/fi/famf.f ++++ med-fichier/src/2.3.6/fi/famf.f +@@ -22,7 +22,8 @@ c + implicit none + save + c +- integer fid,num,attid(*),attval(*),natt,ngro,cret ++ integer*8 fid ++ integer num,attid(*),attval(*),natt,ngro,cret + character *(*) maa,fam,attdes + character *80 gro(*) + integer edffamc +@@ -40,7 +41,8 @@ c + implicit none + save + c +- integer fid,fam(*),n,typent,typgeo,cret ++ integer*8 fid ++ integer fam(*),n,typent,typgeo,cret + character *(*) maa + integer edffame + c +@@ -55,7 +57,8 @@ c + implicit none + save + c +- integer fid,fam(*),n,typent,typgeo,cret ++ integer*8 fid ++ integer fam(*),n,typent,typgeo,cret + character *(*) maa + integer edffaml + c +@@ -71,7 +74,8 @@ c + implicit none + save + c +- integer fid,num,attid(*),attval(*),natt,ngro,cret,ind ++ integer*8 fid ++ integer num,attid(*),attval(*),natt,ngro,cret,ind + character *(*) maa,fam,attdes,gro + integer edffami + c +@@ -88,7 +92,8 @@ c + implicit none + save + c +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + character *(*) maa + integer edfnfam + c +@@ -109,7 +114,8 @@ c + implicit none + save + c +- integer fid,ind,n,cret ++ integer*8 fid ++ integer ind,n,cret + character *(*) maa + integer edfngro + c +@@ -130,7 +136,8 @@ c + implicit none + save + c +- integer fid,ind,n,cret ++ integer*8 fid ++ integer ind,n,cret + character *(*) maa + integer edfnatt + c +Index: med-fichier/src/2.3.6/fi/resf_r.f +=================================================================== +--- med-fichier.orig/src/2.3.6/fi/resf_r.f ++++ med-fichier/src/2.3.6/fi/resf_r.f +@@ -29,7 +29,8 @@ c + c + character *(*) cha,maa,profil,locname + character*(*) dtunit +- integer fid,n,pflmod,typent,typgeo,cret ++ integer*8 fid ++ integer n,pflmod,typent,typgeo,cret + integer interlace,numco,numdt,numo + real*8 dt + real*8 val(*) +@@ -57,7 +58,8 @@ c + save + c + character *(*) cha,maa,locname,profil +- integer fid,typent,typgeo,cret ++ integer*8 fid ++ integer typent,typgeo,cret + integer interlace,numco,numdt,numo,pflmod + integer edfchal + real*8 val(*) +Index: med-fichier/src/fi/medfilter.f +=================================================================== +--- med-fichier.orig/src/fi/medfilter.f ++++ med-fichier/src/fi/medfilter.f +@@ -25,7 +25,8 @@ c + save + character*(*) pname + integer flta(*) +- integer fid,nent,nvent,ncent ++ integer*8 fid ++ integer nent,nvent,ncent + integer stm,fltas + integer*8 flt + integer cret,cs,swm +@@ -79,7 +80,8 @@ c + implicit none + save + character*(*) pname +- integer fid,nent,nvent,ncent ++ integer*8 fid ++ integer nent,nvent,ncent + integer start,stride,count,bsize,lbsize + integer stm + integer*8 flt +Index: med-fichier/src/fi/medstructelement.f +=================================================================== +--- med-fichier.orig/src/fi/medstructelement.f ++++ med-fichier/src/fi/medstructelement.f +@@ -22,7 +22,8 @@ c + implicit none + save + character*(*) mname,smname +- integer fid,cret,mdim,setype,sgtype,etype ++ integer*8 fid ++ integer cret,mdim,setype,sgtype,etype + integer msefcre + c + etype = msefcre(fid,mname,len(mname),mdim, +@@ -44,7 +45,8 @@ c DEC$ ATTRIBUTES DLLEXPORT :: msens + c + implicit none + save +- integer fid,n,cret ++ integer*8 fid ++ integer n,cret + integer msefnse + c + n = msefnse(fid) +@@ -68,7 +70,8 @@ c + implicit none + save + character*(*) mname,smname +- integer fid,cret,mdim,setype,sgtype,it ++ integer*8 fid ++ integer cret,mdim,setype,sgtype,it + integer snnode,sncell,ncatt,ap,nvatt,mgtype + integer msefsei + c +@@ -89,7 +92,8 @@ c + implicit none + save + character*(*) mname,smname +- integer fid,cret,mdim,setype,sgtype ++ integer*8 fid ++ integer cret,mdim,setype,sgtype + integer snnode,sncell,ncatt,ap,nvatt,mgtype + integer msefsin + c +@@ -108,7 +112,8 @@ c + implicit none + save + character*(*) mname +- integer fid,cret,mgtype ++ integer*8 fid ++ integer cret,mgtype + integer msefsen + c + cret = msefsen(fid,mgtype,mname) +@@ -124,7 +129,8 @@ c + implicit none + save + character*(*) mname +- integer fid,gtype,cret ++ integer*8 fid ++ integer gtype,cret + integer msefsgt + c + gtype = msefsgt(fid,mname,len(mname)) +@@ -146,7 +152,8 @@ c + implicit none + save + character*(*) mname,aname +- integer fid,cret,atype,anc ++ integer*8 fid ++ integer cret,atype,anc + integer msefvac + c + cret = msefvac(fid,mname,len(mname), +@@ -164,7 +171,8 @@ c + implicit none + save + character*(*) mname,aname +- integer fid,cret,atype,anc ++ integer*8 fid ++ integer cret,atype,anc + integer msefvni + c + cret = msefvni(fid,mname,len(mname), +@@ -182,7 +190,8 @@ c + implicit none + save + character*(*) mname,aname +- integer fid,cret,atype,anc,it ++ integer*8 fid ++ integer cret,atype,anc,it + integer msefvai + c + cret = msefvai(fid,mname,len(mname),it, +@@ -221,7 +230,8 @@ c + implicit none + save + character*(*) mname,aname +- integer fid,cret,atype,anc,setype ++ integer*8 fid ++ integer cret,atype,anc,setype + real*8 val(*) + integer msefraw + c +@@ -241,7 +251,8 @@ c + implicit none + save + character*(*) mname,aname +- integer fid,cret,atype,anc,setype ++ integer*8 fid ++ integer cret,atype,anc,setype + integer val(*) + integer msefiaw + c +@@ -261,7 +272,8 @@ c + implicit none + save + character*(*) mname,aname +- integer fid,cret,atype,anc,setype ++ integer*8 fid ++ integer cret,atype,anc,setype + character *(*) val + integer msefsaw + c +@@ -281,7 +293,8 @@ c + implicit none + save + character*(*) mname,aname,pname +- integer fid,cret,atype,anc,setype ++ integer*8 fid ++ integer cret,atype,anc,setype + real*8 val(*) + integer msefrpw + c +@@ -302,7 +315,8 @@ c + implicit none + save + character*(*) mname,aname,pname +- integer fid,cret,atype,anc,setype ++ integer*8 fid ++ integer cret,atype,anc,setype + integer val(*) + integer msefipw + c +@@ -323,7 +337,8 @@ c + implicit none + save + character*(*) mname,aname,pname +- integer fid,cret,atype,anc,setype ++ integer*8 fid ++ integer cret,atype,anc,setype + character *(*) val + integer msefspw + c +@@ -344,7 +359,8 @@ c + implicit none + save + character*(*) mname,aname,pname +- integer fid,cret,atype,anc,setype,psize ++ integer*8 fid ++ integer cret,atype,anc,setype,psize + integer msefcni + c + cret = msefcni(fid,mname,len(mname), +@@ -363,7 +379,8 @@ c + implicit none + save + character*(*) mname,aname,pname +- integer fid,cret,atype,anc,setype,psize,it ++ integer*8 fid ++ integer cret,atype,anc,setype,psize,it + integer msefcai + c + cret = msefcai(fid,mname,len(mname),it, +@@ -381,7 +398,8 @@ c + implicit none + save + character*(*) mname,aname +- integer fid,cret ++ integer*8 fid ++ integer cret + real*8 val(*) + integer msefrar + c +@@ -399,7 +417,8 @@ c + implicit none + save + character*(*) mname,aname +- integer fid,cret ++ integer*8 fid ++ integer cret + integer val(*) + integer msefiar + c +@@ -417,7 +436,8 @@ c + implicit none + save + character*(*) mname,aname +- integer fid,cret ++ integer*8 fid ++ integer cret + character *(*) val + integer msefsar + c +Index: med-fichier/tests/f/2.3.6/test22.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test22.f ++++ med-fichier/tests/f/2.3.6/test22.f +@@ -25,7 +25,8 @@ C + implicit none + include 'med.hf' + C +- integer fid,cret ++ integer*8 fid ++ integer cret + character*16 dtunit + character*32 nom + character*200 desc +Index: med-fichier/tests/f/test22.f +=================================================================== +--- med-fichier.orig/tests/f/test22.f ++++ med-fichier/tests/f/test22.f +@@ -25,7 +25,8 @@ C + implicit none + include 'med.hf' + C +- integer fid,cret ++ integer*8 fid ++ integer cret + character*16 dtunit + character*64 nom + character*200 desc +Index: med-fichier/src/cfi/meshcf.c +=================================================================== +--- med-fichier.orig/src/cfi/meshcf.c ++++ med-fichier/src/cfi/meshcf.c +@@ -151,7 +151,7 @@ From Fortran call of following C functio + + #ifdef PPRO_NT + med_int +-MMHFCRE(med_int *fid, char *mname, unsigned int bidon, ++MMHFCRE(med_idt *fid, char *mname, unsigned int bidon, + med_int *mnamelen, med_int * sdim, med_int * mdim, med_int *mtype, + char *desc, unsigned int bidon2, med_int *desclen, + char *dtunit, unsigned int bidon3, med_int *dtunitlen, +@@ -159,7 +159,7 @@ MMHFCRE(med_int *fid, char *mname, unsig + med_int *anamelen, char *aunit, unsigned int bidon5, med_int* aunitlen) + #else + med_int +-nmmhfcre(med_int *fid, char *mname, med_int *mnamelen, med_int * sdim, ++nmmhfcre(med_idt *fid, char *mname, med_int *mnamelen, med_int * sdim, + med_int *mdim, med_int *mtype, char *desc, med_int *desclen, + char *dtunit, med_int *dtunitlen, + med_int *stype, med_int *atype, char *aname, +@@ -206,10 +206,10 @@ nmmhfcre(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFNMH(med_int *fid) ++MMHFNMH(med_idt *fid) + #else + med_int +-nmmhfnmh(med_int *fid) ++nmmhfnmh(med_idt *fid) + #endif + { + med_int _ret; +@@ -222,10 +222,10 @@ nmmhfnmh(med_int *fid) + + #ifdef PPRO_NT + med_int +-MMHFNAN(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen) ++MMHFNAN(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen) + #else + med_int +-nmmhfnan(med_int *fid, char *mname, med_int *mnamelen) ++nmmhfnan(med_idt *fid, char *mname, med_int *mnamelen) + #endif + { + med_int _ret; +@@ -245,10 +245,10 @@ nmmhfnan(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFNAX(med_int *fid, med_int *it) ++MMHFNAX(med_idt *fid, med_int *it) + #else + med_int +-nmmhfnax(med_int *fid, med_int *it) ++nmmhfnax(med_idt *fid, med_int *it) + #endif + { + med_int _ret; +@@ -261,7 +261,7 @@ nmmhfnax(med_int *fid, med_int *it) + + #ifdef PPRO_NT + med_int +-MMHFMHI(med_int *fid, med_int *it, char*mname, unsigned int bidon, ++MMHFMHI(med_idt *fid, med_int *it, char*mname, unsigned int bidon, + med_int * sdim, med_int * mdim, med_int *mtype, + char *desc, unsigned int bidon2, + char *dtunit, unsigned int bidon3, +@@ -270,7 +270,7 @@ MMHFMHI(med_int *fid, med_int *it, char* + char *aunit, unsigned int bidon5) + #else + med_int +-nmmhfmhi(med_int *fid, med_int *it, char *mname, med_int * sdim, ++nmmhfmhi(med_idt *fid, med_int *it, char *mname, med_int * sdim, + med_int *mdim, med_int *mtype, char *desc, + char *dtunit, med_int *stype, med_int *nstep, + med_int *atype, char *aname, char *aunit) +@@ -321,7 +321,7 @@ nmmhfmhi(med_int *fid, med_int *it, char + + #ifdef PPRO_NT + med_int +-MMHFMIN(med_int *fid, char*mname, unsigned int bidon, med_int *mnamelen, ++MMHFMIN(med_idt *fid, char*mname, unsigned int bidon, med_int *mnamelen, + med_int * sdim, med_int * mdim, med_int *mtype, + char *desc, unsigned int bidon2, + char *dtunit, unsigned int bidon3, +@@ -330,7 +330,7 @@ MMHFMIN(med_int *fid, char*mname, unsign + char *aunit, unsigned int bidon5) + #else + med_int +-nmmhfmin(med_int *fid, char *mname, med_int *mnamelen, med_int * sdim, ++nmmhfmin(med_idt *fid, char *mname, med_int *mnamelen, med_int * sdim, + med_int *mdim, med_int *mtype, char *desc, + char *dtunit, med_int *stype, med_int *nstep, + med_int *atype, char *aname, char *aunit) +@@ -386,10 +386,10 @@ nmmhfmin(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFUNW(med_int *fid, char *uname, unsigned int bidon, med_int *unamelen) ++MMHFUNW(med_idt *fid, char *uname, unsigned int bidon, med_int *unamelen) + #else + med_int +-nmmhfunw(med_int *fid, char *uname, med_int *unamelen) ++nmmhfunw(med_idt *fid, char *uname, med_int *unamelen) + #endif + { + med_int _ret; +@@ -410,11 +410,11 @@ nmmhfunw(med_int *fid, char *uname, med_ + + #ifdef PPRO_NT + med_int +-MMHFUNR(med_int *fid, char*mname, unsigned int bidon, med_int *mnamelen, ++MMHFUNR(med_idt *fid, char*mname, unsigned int bidon, med_int *mnamelen, + char *uname, unsigned int bidon1) + #else + med_int +-nmmhfunr(med_int *fid, char*mname, med_int *mnamelen, ++nmmhfunr(med_idt *fid, char*mname, med_int *mnamelen, + char *uname) + #endif + { +@@ -426,7 +426,7 @@ nmmhfunr(med_int *fid, char*mname, med_i + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshUniversalNameRd((med_idt) *fid, (char*) _fn1, ++ _ret = (med_int) MEDmeshUniversalNameRd(*fid, (char*) _fn1, + (char*) _fs2); + + _MEDc2fString(_fs2,uname,MED_LNAME_SIZE); +@@ -439,11 +439,11 @@ nmmhfunr(med_int *fid, char*mname, med_i + + #ifdef PPRO_NT + med_int +-MMHFATW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFATW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *nin, med_int *nvn, med_int *nnc) + #else + med_int +-nmmhfatw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfatw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *nin, med_int *nvn, med_int *nnc) + #endif + { +@@ -467,11 +467,11 @@ nmmhfatw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFATR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFATR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *nin, med_int *nvn, med_int *nnc) + #else + med_int +-nmmhfatr(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfatr(med_idt *fid, char *mname, med_int *mnamelen, + med_int *nin, med_int *nvn, med_int *nnc) + #endif + { +@@ -495,11 +495,11 @@ nmmhfatr(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFGTW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFGTW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *gtype) + #else + med_int +-nmmhfgtw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfgtw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *gtype) + #endif + { +@@ -524,11 +524,11 @@ nmmhfgtw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFGTR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFGTR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *gtype) + #else + med_int +-nmmhfgtr(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfgtr(med_idt *fid, char *mname, med_int *mnamelen, + med_int *gtype) + #endif + { +@@ -552,11 +552,11 @@ nmmhfgtr(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFGSW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFGSW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *dt, med_int *gstruct) + #else + med_int +-nmmhfgsw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfgsw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *dt, med_int *gstruct) + #endif + { +@@ -580,11 +580,11 @@ nmmhfgsw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFGSR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFGSR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *gstruct) + #else + med_int +-nmmhfgsr(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfgsr(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *gstruct) + #endif + { +@@ -595,7 +595,7 @@ nmmhfgsr(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshGridStructRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt, ++ _ret = (med_int) MEDmeshGridStructRd(*fid, (char*) _fn1, (med_int) *numdt, + (med_int) *numit, (med_int *) gstruct); + + _MEDcstringFree(_fn1); +@@ -607,12 +607,12 @@ nmmhfgsr(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFCOW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFCOW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *dt, med_int *swm, + med_int *n, med_float *coo) + #else + med_int +-nmmhfcow(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfcow(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *dt, + med_int *swm, med_int *n, med_float *coo) + #endif +@@ -625,7 +625,7 @@ nmmhfcow(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshNodeCoordinateWr((med_idt) *fid, (char*) _fn1, (med_int) *numdt, ++ _ret = (med_int) MEDmeshNodeCoordinateWr(*fid, (char*) _fn1, (med_int) *numdt, + (med_int) *numit, (med_float) *dt, _swm, (med_int) *n, + (med_float *) coo); + +@@ -637,12 +637,12 @@ nmmhfcow(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFCOR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFCOR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *swm, + med_float *coo) + #else + med_int +-nmmhfcor(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfcor(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, + med_int *swm, med_float *coo) + #endif +@@ -655,7 +655,7 @@ nmmhfcor(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshNodeCoordinateRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt, ++ _ret = (med_int) MEDmeshNodeCoordinateRd(*fid, (char*) _fn1, (med_int) *numdt, + (med_int) *numit, _swm, (med_float *) coo); + + _MEDcstringFree(_fn1); +@@ -666,13 +666,13 @@ nmmhfcor(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFCPW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MMHFCPW(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *dt, + med_int *smode, char *pname, unsigned int bidon2, med_int *pnamelen, + med_int *swm, med_int *dim, med_int *n, med_float *coo) + #else + med_int +-nmmhfcpw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfcpw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *dt, + med_int *smode, char *pname, med_int *pnamelen, + med_int *swm, med_int *dim, med_int *n, med_float *coo) +@@ -690,7 +690,7 @@ nmmhfcpw(med_int *fid, char *mname, med_ + if (!_fn2) + return(-1); + +- _ret = (med_int) MEDmeshNodeCoordinateWithProfileWr((med_idt) *fid, (char*) _fn1, (med_int) *numdt, ++ _ret = (med_int) MEDmeshNodeCoordinateWithProfileWr(*fid, (char*) _fn1, (med_int) *numdt, + (med_int) *numit, (med_float) *dt, + _smode, _fn2, + _swm, (med_int) *dim, (med_int) *n, (med_float *) coo); +@@ -704,13 +704,13 @@ nmmhfcpw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFCPR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MMHFCPR(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *numdt, med_int *numit, + med_int *smode, char *pname, unsigned int bidon2, med_int *pnamelen, + med_int *swm, med_int *dim, med_float *coo) + #else + med_int +-nmmhfcpr(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfcpr(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, + med_int *smode, char *pname, med_int *pnamelen, + med_int *swm, med_int *dim, med_float *coo) +@@ -728,7 +728,7 @@ nmmhfcpr(med_int *fid, char *mname, med_ + if (!_fn2) + return(-1); + +- _ret = (med_int) MEDmeshNodeCoordinateWithProfileRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt, (med_int) *numit, ++ _ret = (med_int) MEDmeshNodeCoordinateWithProfileRd(*fid, (char*) _fn1, (med_int) *numdt, (med_int) *numit, + _smode, _fn2, + _swm, (med_int) *dim, (med_float *) coo); + +@@ -741,12 +741,12 @@ nmmhfcpr(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFGCW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFGCW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *dt, + med_int *axis, med_int *size, med_float *index) + #else + med_int +-nmmhfgcw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfgcw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *dt, + med_int *axis, med_int *size, med_float *index) + #endif +@@ -758,7 +758,7 @@ nmmhfgcw(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshGridIndexCoordinateWr((med_idt) *fid, (char*) _fn1, (med_int) *numdt, ++ _ret = (med_int) MEDmeshGridIndexCoordinateWr(*fid, (char*) _fn1, (med_int) *numdt, + (med_int) *numit, (med_float) *dt, + (med_int) *axis, (med_int) *size,(med_float *) index); + +@@ -770,12 +770,12 @@ nmmhfgcw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFGCR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFGCR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, + med_int *axis, med_float *index) + #else + med_int +-nmmhfgcr(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfgcr(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, + med_int *axis, med_float *index) + #endif +@@ -787,7 +787,7 @@ nmmhfgcr(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshGridIndexCoordinateRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt, ++ _ret = (med_int) MEDmeshGridIndexCoordinateRd(*fid, (char*) _fn1, (med_int) *numdt, + (med_int) *numit, + (med_int) *axis, (med_float *) index); + +@@ -799,12 +799,12 @@ nmmhfgcr(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFENW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFENW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *geotype, + med_int *n, med_int *num) + #else + med_int +-nmmhfenw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfenw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, + med_int *geotype, med_int *n, med_int *num) + #endif +@@ -818,7 +818,7 @@ nmmhfenw(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshEntityNumberWr((med_idt) *fid, ++ _ret = (med_int) MEDmeshEntityNumberWr(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -835,12 +835,12 @@ nmmhfenw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFENR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFENR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *geotype, + med_int *num) + #else + med_int +-nmmhfenr(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfenr(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, + med_int *geotype, med_int *num) + #endif +@@ -854,7 +854,7 @@ nmmhfenr(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshEntityNumberRd((med_idt) *fid, ++ _ret = (med_int) MEDmeshEntityNumberRd(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -871,12 +871,12 @@ nmmhfenr(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFFNW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFFNW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *geotype, + med_int *n, med_int *num) + #else + med_int +-nmmhffnw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhffnw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, + med_int *geotype, med_int *n, med_int *num) + #endif +@@ -890,7 +890,7 @@ nmmhffnw(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshEntityFamilyNumberWr((med_idt) *fid, (char*) _fn1, (med_int) *numdt, ++ _ret = (med_int) MEDmeshEntityFamilyNumberWr(*fid, (char*) _fn1, (med_int) *numdt, + (med_int) *numit, _etype, _gtype, (med_int) *n, + (med_int *) num); + +@@ -903,12 +903,12 @@ nmmhffnw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFFNR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFFNR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *geotype, + med_int *num) + #else + med_int +-nmmhffnr(med_int *fid, char *mname, med_int *mnamelen, ++nmmhffnr(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, + med_int *geotype, med_int *num) + #endif +@@ -922,7 +922,7 @@ nmmhffnr(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshEntityFamilyNumberRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt, ++ _ret = (med_int) MEDmeshEntityFamilyNumberRd(*fid, (char*) _fn1, (med_int) *numdt, + (med_int) *numit, _etype, _gtype, + (med_int *) num); + +@@ -935,12 +935,12 @@ nmmhffnr(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFEAW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MMHFEAW(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *geotype, + med_int *n, char *ename, unsigned int bidon2, med_int *enamelen) + #else + med_int +-nmmhfeaw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfeaw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *geotype, + med_int *n, char *ename, med_int *enamelen) + #endif +@@ -960,7 +960,7 @@ nmmhfeaw(med_int *fid, char *mname, med_ + /* if (!_fn2) */ + /* return(-1); */ + +- _ret = (med_int) MEDmeshEntityNameWr((med_idt) *fid, (char*) _fn1, (med_int) *numdt, ++ _ret = (med_int) MEDmeshEntityNameWr(*fid, (char*) _fn1, (med_int) *numdt, + (med_int) *numit, _etype, _gtype, (med_int) *n, + ename); + /* _fn2); */ +@@ -973,12 +973,12 @@ nmmhfeaw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFEAR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MMHFEAR(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *geotype, + char *ename, unsigned int bidon2) + #else + med_int +-nmmhfear(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfear(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *geotype, + char *ename) + #endif +@@ -1000,7 +1000,7 @@ nmmhfear(med_int *fid, char *mname, med_ + (_gtype == MED_POLYHEDRON)) + _cmode = MED_NODAL; + +- _n = MEDmeshnEntity((med_idt) *fid,_fn1,(med_int) *numdt,(med_int) *numit, ++ _n = MEDmeshnEntity(*fid,_fn1,(med_int) *numdt,(med_int) *numit, + _etype, _gtype,MED_NAME,_cmode,&_changement, + &_transformation); + +@@ -1009,7 +1009,7 @@ nmmhfear(med_int *fid, char *mname, med_ + _fs2 = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*_n+1);*_fs2='\0'; + if (!_fs2) return (-1); + +- _ret = (med_int) MEDmeshEntityNameRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt, ++ _ret = (med_int) MEDmeshEntityNameRd(*fid, (char*) _fn1, (med_int) *numdt, + (med_int) *numit, _etype, _gtype, + _fs2); + +@@ -1024,12 +1024,12 @@ nmmhfear(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFNME(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFNME(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *geotype, + med_int *datatype, med_int *cmode, med_int *chgt, med_int *tsf) + #else + med_int +-nmmhfnme(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfnme(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *geotype, + med_int *datatype, med_int *cmode, med_int *chgt, med_int *tsf) + #endif +@@ -1048,7 +1048,7 @@ nmmhfnme(med_int *fid, char *mname, med_ + if (!_fn1 ) + return(-1); + +- ret = (med_int) MEDmeshnEntity((med_idt) *fid, (char*) _fn1, (med_int) *numdt, ++ ret = (med_int) MEDmeshnEntity(*fid, (char*) _fn1, (med_int) *numdt, + (med_int) *numit, _etype, _gtype, _datatype,_cmode, + &_changement,&_transformation); + +@@ -1064,13 +1064,13 @@ nmmhfnme(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFCYW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFCYW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float* dt, + med_int *entype, med_int *geotype, med_int *cmode, + med_int *swm, med_int *n, med_int *connectivity) + #else + med_int +-nmmhfcyw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfcyw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float* dt, + med_int *entype, med_int *geotype, med_int *cmode, + med_int *swm, med_int *n, med_int *connectivity) +@@ -1087,7 +1087,7 @@ nmmhfcyw(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshElementConnectivityWr((med_idt) *fid, ++ _ret = (med_int) MEDmeshElementConnectivityWr(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1107,13 +1107,13 @@ nmmhfcyw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFCYR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFCYR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, + med_int *entype, med_int *geotype, med_int *cmode, + med_int *swm, med_int *connectivity) + #else + med_int +-nmmhfcyr(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfcyr(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, + med_int *entype, med_int *geotype, med_int *cmode, + med_int *swm, med_int *connectivity) +@@ -1130,7 +1130,7 @@ nmmhfcyr(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshElementConnectivityRd((med_idt) *fid, ++ _ret = (med_int) MEDmeshElementConnectivityRd(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1147,14 +1147,14 @@ nmmhfcyr(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFYPW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MMHFYPW(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float* dt, + med_int *entype, med_int *geotype, med_int *cmode, + med_int *stmode, char *pname, unsigned int bidon2,med_int *pnamelen, + med_int *swm, med_int *dim, med_int *n, med_int *connectivity) + #else + med_int +-nmmhfypw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfypw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float* dt, + med_int *entype, med_int *geotype, med_int *cmode, + med_int *stmode,char *pname, med_int *pnamelen, +@@ -1177,7 +1177,7 @@ nmmhfypw(med_int *fid, char *mname, med_ + if (!_fn2) + return(-1); + +- _ret = (med_int) MEDmeshElementConnectivityWithProfileWr((med_idt) *fid, ++ _ret = (med_int) MEDmeshElementConnectivityWithProfileWr(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1201,14 +1201,14 @@ nmmhfypw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFYPR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MMHFYPR(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *numdt, med_int *numit, + med_int *entype, med_int *geotype, med_int *cmode, + med_int *stmode, char* pname, unsigned int bidon2, med_int *pnamelen, + med_int *swm, med_int*dim, med_int *n, med_int *connectivity) + #else + med_int +-nmmhfypr(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfypr(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, + med_int *entype, med_int *geotype, med_int *cmode, + med_int *stmode, char* pname, med_int *pnamelen, +@@ -1231,7 +1231,7 @@ nmmhfypr(med_int *fid, char *mname, med_ + if (!_fn2) + return(-1); + +- _ret = (med_int) MEDmeshElementConnectivityWithProfileRd((med_idt) *fid, ++ _ret = (med_int) MEDmeshElementConnectivityWithProfileRd(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1255,14 +1255,14 @@ nmmhfypr(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFNEP(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFNEP(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *geotype, + med_int *datatype, med_int *cmode, + med_int *stmode, char* pname, unsigned int bidon1, med_int *psize, + med_int *chgt, med_int *tsf) + #else + med_int +-nmmhfnep(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfnep(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *geotype, + med_int *datatype, med_int *cmode, + med_int *stmode, char* pname, med_int *psize, +@@ -1283,7 +1283,7 @@ nmmhfnep(med_int *fid, char *mname, med_ + _fn1 = _MED2cstring((char *) mname, (int) * mnamelen); + if (!_fn1 ) return(-1); + +- ret = (med_int) MEDmeshnEntityWithProfile((med_idt) *fid, ++ ret = (med_int) MEDmeshnEntityWithProfile(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1311,14 +1311,14 @@ nmmhfnep(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFNOW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MMHFNOW(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *dt, med_int *swm, + med_int *n, med_float *coo, + med_int *iname, char*nname, unsigned int bidon2, med_int *nnamelen, + med_int *inum, med_int *num, med_int *ifam, med_int *fam) + #else + med_int +-nmmhfnow(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfnow(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *dt, med_int *swm, + med_int *n, med_float *coo, + med_int *iname, char*nname, med_int *nnamelen, +@@ -1341,7 +1341,7 @@ nmmhfnow(med_int *fid, char *mname, med_ + if (!_fn2) + return(-1); + +- _ret = (med_int) MEDmeshNodeWr((med_idt) *fid, ++ _ret = (med_int) MEDmeshNodeWr(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1365,13 +1365,13 @@ nmmhfnow(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFNOR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MMHFNOR(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *swm,med_float *coo, + med_int *iname, char*nname, unsigned int bidon, + med_int *inum, med_int *num, med_int *ifam, med_int *fam) + #else + med_int +-nmmhfnor(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfnor(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *swm, med_float *coo, + med_int *iname, char*nname, med_int *inum, med_int *num, + med_int *ifam, med_int *fam) +@@ -1386,7 +1386,7 @@ nmmhfnor(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _n = MEDmeshnEntity((med_idt) *fid,_fn1,(med_int) *numdt,(med_int) *numit, ++ _n = MEDmeshnEntity(*fid,_fn1,(med_int) *numdt,(med_int) *numit, + MED_NODE,MED_NONE,MED_NAME,MED_NO_CMODE,&_changement, + &_transformation); + if (_n < 0) +@@ -1396,7 +1396,7 @@ nmmhfnor(med_int *fid, char *mname, med_ + if (!_fs2) + return (-1); + +- _ret = (med_int) MEDmeshNodeRd((med_idt) *fid, ++ _ret = (med_int) MEDmeshNodeRd(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1425,7 +1425,7 @@ nmmhfnor(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFELW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MMHFELW(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *dt, med_int *entype, med_int *geotype, + med_int *cmode, med_int *swm, + med_int *n, med_int *connectivity, +@@ -1433,7 +1433,7 @@ MMHFELW(med_int *fid, char *mname, unsig + med_int *inum, med_int *num, med_int *ifam, med_int *fam) + #else + med_int +-nmmhfelw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfelw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *dt, med_int *entype, med_int *geotype, + med_int *cmode, med_int *swm, + med_int *n, med_int *connectivity, +@@ -1460,7 +1460,7 @@ nmmhfelw(med_int *fid, char *mname, med_ + if (!_fn2) + return(-1); + +- _ret = (med_int) MEDmeshElementWr((med_idt) *fid, ++ _ret = (med_int) MEDmeshElementWr(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1488,7 +1488,7 @@ nmmhfelw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFELR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MMHFELR(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *geotype, + med_int *cmode, med_int *swm, + med_int *connectivity, +@@ -1496,7 +1496,7 @@ MMHFELR(med_int *fid, char *mname, unsig + med_int *inum, med_int *num, med_int *ifam, med_int *fam) + #else + med_int +-nmmhfelr(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfelr(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *geotype, + med_int *cmode, med_int *swm, med_int *connectivity, + med_int *iname, char*nname, +@@ -1515,7 +1515,7 @@ nmmhfelr(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _n = MEDmeshnEntity((med_idt) *fid,_fn1,(med_int) *numdt,(med_int) *numit, ++ _n = MEDmeshnEntity(*fid,_fn1,(med_int) *numdt,(med_int) *numit, + _etype,_gtype,MED_NAME,_cmode,&_changement, + &_transformation); + if (_n < 0) +@@ -1525,7 +1525,7 @@ nmmhfelr(med_int *fid, char *mname, med_ + if (!_fs2) + return (-1); + +- _ret = (med_int) MEDmeshElementRd((med_idt) *fid, ++ _ret = (med_int) MEDmeshElementRd(*fid, + _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1558,12 +1558,12 @@ nmmhfelr(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFCAW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFCAW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *dt, + unsigned char **flt, med_float *coo) + #else + med_int +-nmmhfcaw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfcaw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *dt, + unsigned char **flt,med_float *coo) + #endif +@@ -1576,7 +1576,7 @@ nmmhfcaw(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshNodeCoordinateAdvancedWr((med_idt) *fid, ++ _ret = (med_int) MEDmeshNodeCoordinateAdvancedWr(*fid, + _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1592,12 +1592,12 @@ nmmhfcaw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFCAR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFCAR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, unsigned char **flt, + med_float *coo) + #else + med_int +-nmmhfcar(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfcar(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, unsigned char **flt, + med_float *coo) + #endif +@@ -1610,7 +1610,7 @@ nmmhfcar(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshNodeCoordinateAdvancedRd((med_idt) *fid, ++ _ret = (med_int) MEDmeshNodeCoordinateAdvancedRd(*fid, + _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1626,13 +1626,13 @@ nmmhfcar(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFYAW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFYAW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float* dt, + med_int *entype, med_int *geotype, med_int *cmode, unsigned char **flt, + med_int *connectivity) + #else + med_int +-nmmhfyaw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfyaw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float* dt, + med_int *entype, med_int *geotype, med_int *cmode, + unsigned char **flt, med_int *connectivity) +@@ -1649,7 +1649,7 @@ nmmhfyaw(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshElementConnectivityAdvancedWr((med_idt) *fid, ++ _ret = (med_int) MEDmeshElementConnectivityAdvancedWr(*fid, + _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1668,13 +1668,13 @@ nmmhfyaw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFYAR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFYAR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, + med_int *entype, med_int *geotype, med_int *cmode, + unsigned char **flt, med_int *connectivity) + #else + med_int +-nmmhfyar(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfyar(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, + med_int *entype, med_int *geotype, med_int *cmode, + unsigned char **flt, med_int *connectivity) +@@ -1691,7 +1691,7 @@ nmmhfyar(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshElementConnectivityAdvancedRd((med_idt) *fid, ++ _ret = (med_int) MEDmeshElementConnectivityAdvancedRd(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1710,13 +1710,13 @@ nmmhfyar(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFPGW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFPGW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float* dt, + med_int *entype, med_int *cmode, + med_int *indexsize, med_int *index, med_int *connectivity) + #else + med_int +-nmmhfpgw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfpgw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float* dt, + med_int *entype, med_int *cmode, + med_int *indexsize, med_int *index, med_int *connectivity) +@@ -1731,7 +1731,7 @@ nmmhfpgw(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshPolygonWr((med_idt) *fid, ++ _ret = (med_int) MEDmeshPolygonWr(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1750,14 +1750,14 @@ nmmhfpgw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFPGR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFPGR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, + med_int *entype, med_int *cmode, + med_int *index, + med_int *connectivity) + #else + med_int +-nmmhfpgr(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfpgr(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, + med_int *entype, med_int *cmode, + med_int *index, +@@ -1773,7 +1773,7 @@ nmmhfpgr(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshPolygonRd((med_idt) *fid, ++ _ret = (med_int) MEDmeshPolygonRd(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1790,7 +1790,7 @@ nmmhfpgr(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFPHW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFPHW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float* dt, + med_int *entype, med_int *cmode, + med_int *findexsize, med_int *findex, +@@ -1798,7 +1798,7 @@ MMHFPHW(med_int *fid, char *mname, unsig + med_int *connectivity) + #else + med_int +-nmmhfphw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfphw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float* dt, + med_int *entype, med_int *cmode, + med_int *findexsize, med_int *findex, +@@ -1815,7 +1815,7 @@ nmmhfphw(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshPolyhedronWr((med_idt) *fid, ++ _ret = (med_int) MEDmeshPolyhedronWr(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1837,7 +1837,7 @@ nmmhfphw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFPHR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFPHR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, + med_int *entype, med_int *cmode, + med_int *findex, +@@ -1845,7 +1845,7 @@ MMHFPHR(med_int *fid, char *mname, unsig + med_int *connectivity) + #else + med_int +-nmmhfphr(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfphr(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, + med_int *entype, med_int *cmode, + med_int *findex, +@@ -1862,7 +1862,7 @@ nmmhfphr(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshPolyhedronRd((med_idt) *fid, ++ _ret = (med_int) MEDmeshPolyhedronRd(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1879,12 +1879,12 @@ nmmhfphr(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFGNW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFGNW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *geotype, + med_int *n, med_int *num) + #else + med_int +-nmmhfgnw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfgnw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, + med_int *geotype, med_int *n, med_int *num) + #endif +@@ -1898,7 +1898,7 @@ nmmhfgnw(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshGlobalNumberWr((med_idt) *fid, ++ _ret = (med_int) MEDmeshGlobalNumberWr(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1915,12 +1915,12 @@ nmmhfgnw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFGNR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFGNR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *geotype, + med_int *num) + #else + med_int +-nmmhfgnr(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfgnr(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, + med_int *geotype, med_int *num) + #endif +@@ -1934,7 +1934,7 @@ nmmhfgnr(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshGlobalNumberRd((med_idt) *fid, ++ _ret = (med_int) MEDmeshGlobalNumberRd(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -1949,12 +1949,12 @@ nmmhfgnr(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFCSC(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFCSC(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt1, med_int *numit1, + med_int *numdt2, med_int *numit2, med_float *dt2) + #else + med_int +-nmmhfcsc(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfcsc(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt1, med_int *numit1, + med_int *numdt2, med_int *numit2, med_float *dt2) + #endif +@@ -1982,11 +1982,11 @@ nmmhfcsc(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFCSI(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFCSI(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *csit, med_int *numdt, med_int *numit, med_float *dt) + #else + med_int +-nmmhfcsi(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfcsi(med_idt *fid, char *mname, med_int *mnamelen, + med_int *csit, med_int *numdt, med_int *numit, + med_float *dt) + #endif +@@ -2014,11 +2014,11 @@ nmmhfcsi(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFCSR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFCSR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *dt) + #else + med_int +-nmmhfcsr(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfcsr(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, + med_float *dt) + #endif +@@ -2044,11 +2044,11 @@ nmmhfcsr(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFSTR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFSTR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *stype) + #else + med_int +-nmmhfstr(med_int *fid, char *mname, med_int *mnamelen,med_int *stype) ++nmmhfstr(med_idt *fid, char *mname, med_int *mnamelen,med_int *stype) + #endif + { + med_int _ret; +@@ -2073,13 +2073,13 @@ nmmhfstr(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFRAW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MMHFRAW(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *geotype, + char *aname, unsigned int bidon2, med_int *anamelen, + med_int *n, med_float *val) + #else + med_int +-nmmhfraw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfraw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *geotype, + char *aname, med_int *anamelen, + med_int *n, med_float *val) +@@ -2097,7 +2097,7 @@ nmmhfraw(med_int *fid, char *mname, med_ + if (!_fn2) + return(-1); + +- _ret = (med_int) MEDmeshStructElementVarAttWr((med_idt) *fid, ++ _ret = (med_int) MEDmeshStructElementVarAttWr(*fid, + _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -2115,13 +2115,13 @@ nmmhfraw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFIAW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MMHFIAW(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *geotype, + char *aname, unsigned int bidon2, med_int *anamelen, + med_int *n, med_int *val) + #else + med_int +-nmmhfiaw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfiaw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *geotype, + char *aname, med_int *anamelen, + med_int *n, med_int *val) +@@ -2139,7 +2139,7 @@ nmmhfiaw(med_int *fid, char *mname, med_ + if (!_fn2) + return(-1); + +- _ret = (med_int) MEDmeshStructElementVarAttWr((med_idt) *fid, ++ _ret = (med_int) MEDmeshStructElementVarAttWr(*fid, + _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -2157,13 +2157,13 @@ nmmhfiaw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFSAW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MMHFSAW(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *geotype, + char *aname, unsigned int bidon2, med_int *anamelen, + med_int *n, char *val, unsigned int bidon3, med_int *vallen) + #else + med_int +-nmmhfsaw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfsaw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *geotype, + char *aname, med_int *anamelen, + med_int *n, char *val, med_int *vallen) +@@ -2185,14 +2185,14 @@ nmmhfsaw(med_int *fid, char *mname, med_ + return(-1); + + /* nom de l'element de structure */ +- _ret = MEDstructElementName((med_idt) *fid, ++ _ret = MEDstructElementName(*fid, + _gtype, + _modelname); + if (_ret < 0) + return (-1); + + /* nombre de composante de l'attribut */ +- _ret = MEDstructElementVarAttInfoByName((med_idt) *fid, ++ _ret = MEDstructElementVarAttInfoByName(*fid, + _modelname, + _fn2, + &_type, +@@ -2207,7 +2207,7 @@ nmmhfsaw(med_int *fid, char *mname, med_ + if (!_fn3) + return(-1); + +- _ret = (med_int) MEDmeshStructElementVarAttWr((med_idt) *fid, ++ _ret = (med_int) MEDmeshStructElementVarAttWr(*fid, + _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -2227,13 +2227,13 @@ nmmhfsaw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFRAR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MMHFRAR(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *geotype, + char *aname, unsigned int bidon2, med_int *anamelen, + med_float *val) + #else + med_int +-nmmhfrar(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfrar(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *geotype, + char *aname, med_int *anamelen, + med_float *val) +@@ -2251,7 +2251,7 @@ nmmhfrar(med_int *fid, char *mname, med_ + if (!_fn2) + return(-1); + +- _ret = (med_int) MEDmeshStructElementVarAttRd((med_idt) *fid, ++ _ret = (med_int) MEDmeshStructElementVarAttRd(*fid, + _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -2268,13 +2268,13 @@ nmmhfrar(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFIAR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MMHFIAR(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *geotype, + char *aname, unsigned int bidon2, med_int *anamelen, + med_int *val) + #else + med_int +-nmmhfiar(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfiar(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *geotype, + char *aname, med_int *anamelen, + med_int *val) +@@ -2292,7 +2292,7 @@ nmmhfiar(med_int *fid, char *mname, med_ + if (!_fn2) + return(-1); + +- _ret = (med_int) MEDmeshStructElementVarAttRd((med_idt) *fid, ++ _ret = (med_int) MEDmeshStructElementVarAttRd(*fid, + _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -2310,13 +2310,13 @@ nmmhfiar(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFSAR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MMHFSAR(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *geotype, + char *aname, unsigned int bidon2, med_int *anamelen, + char *val, unsigned int bidon3) + #else + med_int +-nmmhfsar(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfsar(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *geotype, + char *aname, med_int *anamelen, + char *val) +@@ -2343,7 +2343,7 @@ nmmhfsar(med_int *fid, char *mname, med_ + return(-1); + + /* on recupere le nom du modčle de structure */ +- _ret = MEDstructElementName((med_idt) *fid, ++ _ret = MEDstructElementName(*fid, + _gtype, + _modelname); + if (_ret < 0) +@@ -2361,7 +2361,7 @@ nmmhfsar(med_int *fid, char *mname, med_ + au type de modele de structure dans le maillage + de calcul + */ +- _n = MEDmeshnEntity((med_idt) *fid, ++ _n = MEDmeshnEntity(*fid, + _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -2381,7 +2381,7 @@ nmmhfsar(med_int *fid, char *mname, med_ + if (!_fs3) + return(-1); + +- _ret = (med_int) MEDmeshStructElementVarAttRd((med_idt) *fid, ++ _ret = (med_int) MEDmeshStructElementVarAttRd(*fid, + _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -2402,12 +2402,12 @@ nmmhfsar(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFENI(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFENI(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *it, + char *geoname, unsigned int bidon1, med_int *geotype) + #else + med_int +-nmmhfeni(med_int *fid, char *mname, med_int *mnamelen, ++nmmhfeni(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_int *entype, med_int *it, + char *geoname, med_int *geotype) + #endif +@@ -2422,7 +2422,7 @@ nmmhfeni(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshEntityInfo((med_idt) *fid, ++ _ret = (med_int) MEDmeshEntityInfo(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -2442,11 +2442,11 @@ nmmhfeni(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFTFW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFTFW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *dt, med_float *tsf) + #else + med_int +-nmmhftfw(med_int *fid, char *mname, med_int *mnamelen, ++nmmhftfw(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *dt, med_float *tsf) + #endif + { +@@ -2457,7 +2457,7 @@ nmmhftfw(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshNodeCoordinateTrsfWr((med_idt) *fid, ++ _ret = (med_int) MEDmeshNodeCoordinateTrsfWr(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -2472,11 +2472,11 @@ nmmhftfw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFTFR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MMHFTFR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *tsf) + #else + med_int +-nmmhftfr(med_int *fid, char *mname, med_int *mnamelen, ++nmmhftfr(med_idt *fid, char *mname, med_int *mnamelen, + med_int *numdt, med_int *numit, med_float *tsf) + #endif + { +@@ -2487,7 +2487,7 @@ nmmhftfr(med_int *fid, char *mname, med_ + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshNodeCoordinateTrsfRd((med_idt) *fid, ++ _ret = (med_int) MEDmeshNodeCoordinateTrsfRd(*fid, + (char*) _fn1, + (med_int) *numdt, + (med_int) *numit, +@@ -2503,7 +2503,7 @@ nmmhftfr(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MMHFAAW(med_int *fid, ++MMHFAAW(med_idt *fid, + char *mname, unsigned int bidon, med_int *mnamelen, + med_int *datatype, + med_int *numdt, +@@ -2514,7 +2514,7 @@ MMHFAAW(med_int *fid, + med_int *val) + #else + med_int +-nmmhfaaw(med_int *fid, ++nmmhfaaw(med_idt *fid, + char *mname, med_int *mnamelen, + med_int *datatype, + med_int *numdt, +@@ -2536,7 +2536,7 @@ nmmhfaaw(med_int *fid, + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshEntityAttributeAdvancedWr((med_idt) *fid, ++ _ret = (med_int) MEDmeshEntityAttributeAdvancedWr(*fid, + _fn1, + _datatype, + (med_int) *numdt, +@@ -2555,7 +2555,7 @@ nmmhfaaw(med_int *fid, + + #ifdef PPRO_NT + med_int +-MMHFAAR(med_int *fid, ++MMHFAAR(med_idt *fid, + char *mname, unsigned int bidon, med_int *mnamelen, + med_int *datatype, + med_int *numdt, +@@ -2566,7 +2566,7 @@ MMHFAAR(med_int *fid, + med_int *val) + #else + med_int +-nmmhfaar(med_int *fid, ++nmmhfaar(med_idt *fid, + char *mname, med_int *mnamelen, + med_int *datatype, + med_int *numdt, +@@ -2588,7 +2588,7 @@ nmmhfaar(med_int *fid, + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshEntityAttributeAdvancedRd((med_idt) *fid, ++ _ret = (med_int) MEDmeshEntityAttributeAdvancedRd(*fid, + _fn1, + _datatype, + (med_int) *numdt, +@@ -2609,7 +2609,7 @@ nmmhfaar(med_int *fid, + + #ifdef PPRO_NT + med_int +-MMHFASW(med_int *fid, ++MMHFASW(med_idt *fid, + char *mname, unsigned int bidon, med_int *mnamelen, + med_int *datatype, + med_int *numdt, +@@ -2620,7 +2620,7 @@ MMHFASW(med_int *fid, + char *val) + #else + med_int +-nmmhfasw(med_int *fid, ++nmmhfasw(med_idt *fid, + char *mname, med_int *mnamelen, + med_int *datatype, + med_int *numdt, +@@ -2642,7 +2642,7 @@ nmmhfasw(med_int *fid, + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshEntityAttributeAdvancedWr((med_idt) *fid, ++ _ret = (med_int) MEDmeshEntityAttributeAdvancedWr(*fid, + _fn1, + _datatype, + (med_int) *numdt, +@@ -2662,7 +2662,7 @@ nmmhfasw(med_int *fid, + + #ifdef PPRO_NT + med_int +-MMHFASR(med_int *fid, ++MMHFASR(med_idt *fid, + char *mname, unsigned int bidon, med_int *mnamelen, + med_int *datatype, + med_int *numdt, +@@ -2673,7 +2673,7 @@ MMHFASR(med_int *fid, + char *val) + #else + med_int +-nmmhfasr(med_int *fid, ++nmmhfasr(med_idt *fid, + char *mname, med_int *mnamelen, + med_int *datatype, + med_int *numdt, +@@ -2695,7 +2695,7 @@ nmmhfasr(med_int *fid, + if (!_fn1) + return(-1); + +- _ret = (med_int) MEDmeshEntityAttributeAdvancedRd((med_idt) *fid, ++ _ret = (med_int) MEDmeshEntityAttributeAdvancedRd(*fid, + _fn1, + _datatype, + (med_int) *numdt, +Index: med-fichier/tests/f/2.3.6/test14.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test14.f ++++ med-fichier/tests/f/2.3.6/test14.f +@@ -28,7 +28,8 @@ C + implicit none + include 'med.hf' + C +- integer cret, fid ++ integer*8 fid ++ integer cret + C ** la dimension du maillage ** + integer mdim + C ** nom du maillage de longueur maxi MED_TAILLE_NOM ** +Index: med-fichier/tests/f/2.3.6/test20.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test20.f ++++ med-fichier/tests/f/2.3.6/test20.f +@@ -27,7 +27,8 @@ C + include 'med.hf' + C + C +- integer cret, fid, ncha, nmaa, mid, mid2 ++ integer*8 fid,mid,mid2 ++ integer cret, ncha, nmaa + integer i, ncomp, type + character*16 comp(3), unit(3) + character*32 nom +Index: med-fichier/tests/f/2.3.6/test21.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test21.f ++++ med-fichier/tests/f/2.3.6/test21.f +@@ -26,7 +26,8 @@ C + implicit none + include 'med.hf' + C +- integer cret, fid ++ integer*8 fid ++ integer cret + character*16 edtuni,dtunit1 + character*32 nom1, nom2 + character*200 desc1, desc2 +Index: med-fichier/tests/f/2.3.6/test3.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test3.f ++++ med-fichier/tests/f/2.3.6/test3.f +@@ -28,7 +28,8 @@ C + include 'med.hf' + C + C +- integer cret,fid,cres,type,cnu ++ integer*8 fid ++ integer cret,cres,type,cnu + character*32 maa + character*80 nomu + character*200 desc +Index: med-fichier/tests/f/test14.f +=================================================================== +--- med-fichier.orig/tests/f/test14.f ++++ med-fichier/tests/f/test14.f +@@ -28,7 +28,8 @@ C + implicit none + include 'med.hf' + C +- integer cret, fid ++ integer*8 fid ++ integer cret + C ** la dimension du maillage ** + integer mdim,sdim + C ** nom du maillage de longueur maxi MED_TAILLE_NOM ** +Index: med-fichier/tests/f/test20.f +=================================================================== +--- med-fichier.orig/tests/f/test20.f ++++ med-fichier/tests/f/test20.f +@@ -27,7 +27,8 @@ C + include 'med.hf' + C + C +- integer cret, fid, ncha, nmaa, mid, mid2 ++ integer*8 fid, mid, mid2 ++ integer cret, ncha, nmaa + integer i, ncomp, type + character*16 comp(3), unit(3), dtunit + character*64 nomcha,nommaa +Index: med-fichier/tests/f/test21.f +=================================================================== +--- med-fichier.orig/tests/f/test21.f ++++ med-fichier/tests/f/test21.f +@@ -26,7 +26,8 @@ C + implicit none + include 'med.hf' + C +- integer cret, fid ++ integer*8 fid ++ integer cret + character*16 edtuni,dtunit1 + character*64 nom1, nom2 + character*200 desc1, desc2 +Index: med-fichier/tests/f/test3.f +=================================================================== +--- med-fichier.orig/tests/f/test3.f ++++ med-fichier/tests/f/test3.f +@@ -28,7 +28,8 @@ C + include 'med.hf' + C + C +- integer cret,fid,cres,type,cnu ++ integer*8 fid ++ integer cret,cres,type,cnu + character*64 maa + character*80 nomu + character*200 desc +Index: med-fichier/tests/f/test10f.f +=================================================================== +--- med-fichier.orig/tests/f/test10f.f ++++ med-fichier/tests/f/test10f.f +@@ -26,7 +26,8 @@ C + implicit none + include 'med.hf' + C +- integer ret,fid,USER_INTERLACE,USER_MODE ++ integer*8 fid ++ integer ret,USER_INTERLACE,USER_MODE + integer FTYPECHA + real*8 a,b,p1,p2,dt + +Index: med-fichier/src/cfi/medequivalencecf.c +=================================================================== +--- med-fichier.orig/src/cfi/medequivalencecf.c ++++ med-fichier/src/cfi/medequivalencecf.c +@@ -48,12 +48,12 @@ From Fortran call of following C functio + + #ifdef PPRO_NT + med_int +-MEQFCRE(med_int *fid, char *maa, unsigned int bidon1, med_int *lon1, ++MEQFCRE(med_idt *fid, char *maa, unsigned int bidon1, med_int *lon1, + char *eq, unsigned int bidon2, med_int *lon2, char *desc, + unsigned int bidon3, med_int *lon3) + #else + med_int +- nmeqfcre(med_int *fid, char *maa, med_int *lon1, char *eq, med_int *lon2, ++ nmeqfcre(med_idt *fid, char *maa, med_int *lon1, char *eq, med_int *lon2, + char *desc, med_int *lon3) + #endif + { +@@ -81,13 +81,13 @@ med_int + + #ifdef PPRO_NT + med_int +-MEQFCOW(med_int *fid, char *maa, unsigned int bidon1, med_int *lon1, ++MEQFCOW(med_idt *fid, char *maa, unsigned int bidon1, med_int *lon1, + char *eq, unsigned int bidon2, med_int *lon2, + med_int *numdt, med_int *numit,med_int *typ_ent,med_int *typ_geo, + med_int *n, med_int *corr) + #else + med_int +-nmeqfcow(med_int *fid, char *maa, med_int *lon1, ++nmeqfcow(med_idt *fid, char *maa, med_int *lon1, + char *eq, med_int *lon2, + med_int *numdt, med_int *numit, + med_int *typ_ent,med_int *typ_geo, +@@ -125,10 +125,10 @@ nmeqfcow(med_int *fid, char *maa, med_in + + #ifdef PPRO_NT + med_int +-MEQFNEQ(med_int *fid, char *maa, unsigned int bidon, med_int *lon1) ++MEQFNEQ(med_idt *fid, char *maa, unsigned int bidon, med_int *lon1) + #else + med_int +-nmeqfneq(med_int *fid, char *maa,med_int *lon1) ++nmeqfneq(med_idt *fid, char *maa,med_int *lon1) + #endif + { + med_int _ret; +@@ -152,12 +152,12 @@ nmeqfneq(med_int *fid, char *maa,med_int + + #ifdef PPRO_NT + med_int +-MEQFEQI(med_int *fid, char *maa, unsigned int bidon1, med_int *lon1, ++MEQFEQI(med_idt *fid, char *maa, unsigned int bidon1, med_int *lon1, + med_int *ind, char *eq, unsigned int bidon2, + char *des,unsigned int bidon3, med_int *nstep, med_int *ncstcor) + #else + med_int +-nmeqfeqi(med_int *fid, char *maa,med_int *lon1,med_int *ind, char *eq, ++nmeqfeqi(med_idt *fid, char *maa,med_int *lon1,med_int *ind, char *eq, + char *des, med_int *nstep, med_int *ncstcor) + #endif + { +@@ -190,13 +190,13 @@ nmeqfeqi(med_int *fid, char *maa,med_int + + #ifdef PPRO_NT + med_int +-MEQFCSZ(med_int *fid, char *maa, unsigned int bidon1, med_int *lon1, ++MEQFCSZ(med_idt *fid, char *maa, unsigned int bidon1, med_int *lon1, + char *eq, unsigned int bidon2, med_int *lon2, + med_int *numdt, med_int *numit, + med_int *typ_ent, med_int *typ_geo) + #else + med_int +-nmeqfcsz(med_int *fid, char *maa, med_int *lon1, ++nmeqfcsz(med_idt *fid, char *maa, med_int *lon1, + char *eq, med_int *lon2, + med_int *numdt, med_int *numit, + med_int *typ_ent, med_int *typ_geo) +@@ -237,13 +237,13 @@ nmeqfcsz(med_int *fid, char *maa, med_in + + #ifdef PPRO_NT + med_int +-MEQFSZI(med_int *fid, char *maa, unsigned int bidon1, med_int *lon1, ++MEQFSZI(med_idt *fid, char *maa, unsigned int bidon1, med_int *lon1, + char *eq, unsigned int bidon2, med_int *lon2, + med_int *numdt, med_int *numit, med_int *it, + med_int *typ_ent, med_int *typ_geo, med_int *n) + #else + med_int +-nmeqfszi(med_int *fid, char *maa, med_int *lon1, ++nmeqfszi(med_idt *fid, char *maa, med_int *lon1, + char *eq, med_int *lon2, + med_int *numdt, med_int *numit,med_int *it, + med_int *typ_ent, med_int *typ_geo, med_int *n) +@@ -283,13 +283,13 @@ nmeqfszi(med_int *fid, char *maa, med_in + + #ifdef PPRO_NT + med_int +-MEQFCOR(med_int *fid, char *maa, unsigned int bidon1, med_int *lon1, ++MEQFCOR(med_idt *fid, char *maa, unsigned int bidon1, med_int *lon1, + char *eq, unsigned int bidon2, med_int *lon2, + med_int *numdt, med_int *numit,med_int *typ_ent,med_int *typ_geo, + med_int *corr) + #else + med_int +-nmeqfcor(med_int *fid, char *maa, med_int *lon1, ++nmeqfcor(med_idt *fid, char *maa, med_int *lon1, + char *eq, med_int *lon2, + med_int *numdt, med_int *numit, + med_int *typ_ent,med_int *typ_geo, +@@ -325,12 +325,12 @@ nmeqfcor(med_int *fid, char *maa, med_in + + #ifdef PPRO_NT + med_int +-MEQFCSI(med_int *fid, char *maa, unsigned int bidon1, med_int *lon1, ++MEQFCSI(med_idt *fid, char *maa, unsigned int bidon1, med_int *lon1, + med_int *ind, char *eq, unsigned int bidon2, med_int *lon2, + med_int *csit, med_int *numdt, med_int *numit, med_int *ncor) + #else + med_int +-nmeqfcsi(med_int *fid, char *maa, med_int *lon1, ++nmeqfcsi(med_idt *fid, char *maa, med_int *lon1, + med_int *ind, char *eq, med_int *lon2, + med_int *csit, med_int *numdt, med_int *numit, + med_int *ncor) +Index: med-fichier/src/cfi/medfamilycf.c +=================================================================== +--- med-fichier.orig/src/cfi/medfamilycf.c ++++ med-fichier/src/cfi/medfamilycf.c +@@ -44,13 +44,13 @@ From Fortran call of following C functio + + #ifdef PPRO_NT + med_int +-MFAFCRE(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MFAFCRE(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + char *fname, unsigned int bidon2, med_int *fnamelen, + med_int *fnum, med_int *ng, char* gname, unsigned int bidon3, + med_int *gnamelen) + #else + med_int +-nmfafcre(med_int *fid, char *mname, med_int *mnamelen, ++nmfafcre(med_idt *fid, char *mname, med_int *mnamelen, + char *fname, med_int *fnamelen, + med_int *fnum, med_int *ng, char* gname, + med_int *gnamelen) +@@ -88,10 +88,10 @@ nmfafcre(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + int +-MFAFNFA(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen) ++MFAFNFA(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen) + #else + med_int +-nmfafnfa(med_int *fid, char *mname, med_int *mnamelen) ++nmfafnfa(med_idt *fid, char *mname, med_int *mnamelen) + #endif + { + med_int _ret; +@@ -114,10 +114,10 @@ nmfafnfa(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + int +-MFAFNFG(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, med_int *it) ++MFAFNFG(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, med_int *it) + #else + med_int +-nmfafnfg(med_int *fid, char *mname, med_int *mnamelen, med_int *it) ++nmfafnfg(med_idt *fid, char *mname, med_int *mnamelen, med_int *it) + #endif + { + med_int _ret; +@@ -140,12 +140,12 @@ nmfafnfg(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + int +-MFAFFAI(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MFAFFAI(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *it, char *fname, unsigned int bidon2, + med_int *fnum, char *gname , int unsigned bidon4) + #else + med_int +-nmfaffai(med_int *fid, char *mname,med_int *mnamelen, ++nmfaffai(med_idt *fid, char *mname,med_int *mnamelen, + med_int *it, char *fname, + med_int *fnum, char *gname) + #endif +@@ -191,10 +191,10 @@ nmfaffai(med_int *fid, char *mname,med_i + + #ifdef PPRO_NT + int +-MFAFONA(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, med_int *it) ++MFAFONA(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, med_int *it) + #else + med_int +-nmfafona(med_int *fid, char *mname, med_int *mnamelen, med_int *it) ++nmfafona(med_idt *fid, char *mname, med_int *mnamelen, med_int *it) + #endif + { + med_int _ret; +@@ -217,14 +217,14 @@ nmfafona(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + int +-MFAFOFI(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen, ++MFAFOFI(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *it, char *fname, unsigned int bidon2, + med_int *attr_ident, med_int *attr_val, + char *attr_desc, unsigned int bidon3, + med_int *fnum, char *gname , int unsigned bidon4) + #else + med_int +-nmfafofi(med_int *fid, char *mname,med_int *mnamelen, ++nmfafofi(med_idt *fid, char *mname,med_int *mnamelen, + med_int *it, char *fname, + med_int *attr_ident, med_int *attr_val, + char *attr_desc, +Index: med-fichier/src/cfi/medfieldcf.c +=================================================================== +--- med-fichier.orig/src/cfi/medfieldcf.c ++++ med-fichier/src/cfi/medfieldcf.c +@@ -87,14 +87,14 @@ From Fortran call of following C functio + + #ifdef PPRO_NT + med_int +-MFDFCRE(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFCRE(med_idt *fid, char *fname, unsigned int bidon1, med_int *fnamelen, + med_int *ftype, med_int *ncomp, char *cname, unsigned int bidon2, med_int *cnamelen, + char *cuname, unsigned int bidon3, med_int *cunamelen, + char *dtunit, unsigned int bidon4, med_int *dtunitlen, + char* mname, unsigned int bidon5, med_int *mnamelen) + #else + med_int +-nmfdfcre(med_int *fid, char *fname, med_int *fnamelen, ++nmfdfcre(med_idt *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) +@@ -143,13 +143,13 @@ nmfdfcre(med_int *fid, char *fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFRVW(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFRVW(med_idt *fid, char *fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, med_float *dt, + med_int *etype, med_int *gtype, med_int *swm, + med_int *cs, med_int *n, med_float *val) + #else + med_int +-nmfdfrvw(med_int *fid, char *fname, med_int *fnamelen, ++nmfdfrvw(med_idt *fid, char *fname, med_int *fnamelen, + med_int *numdt, med_int *numit, med_float *dt, + med_int *etype, med_int *gtype, med_int *swm, + med_int *cs, med_int *n, med_float *val) +@@ -188,13 +188,13 @@ nmfdfrvw(med_int *fid, char *fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFIVW(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFIVW(med_idt *fid, char *fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, med_float *dt, + med_int *etype, med_int *gtype, med_int *swm, + med_int *cs, med_int *n, med_int *val) + #else + med_int +-nmfdfivw(med_int *fid, char *fname, med_int *fnamelen, ++nmfdfivw(med_idt *fid, char *fname, med_int *fnamelen, + med_int *numdt, med_int *numit, med_float *dt, + med_int *etype, med_int *gtype, med_int *swm, + med_int *cs, med_int *n, med_int *val) +@@ -232,7 +232,7 @@ nmfdfivw(med_int *fid, char *fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFRPW(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFRPW(med_idt *fid, char *fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, med_float *dt, + med_int *etype, med_int *gtype, + med_int *stm, char *pname, unsigned int bidon2, med_int *pnamelen, +@@ -240,7 +240,7 @@ MFDFRPW(med_int *fid, char *fname, unsig + med_int *swm,med_int *cs, med_int *n, med_float *val) + #else + med_int +-nmfdfrpw(med_int *fid, char *fname, med_int *fnamelen, ++nmfdfrpw(med_idt *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, +@@ -293,7 +293,7 @@ nmfdfrpw(med_int *fid, char *fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFIPW(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFIPW(med_idt *fid, char *fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, med_float *dt, + med_int *etype, med_int *gtype, + med_int *stm, char *pname, unsigned int bidon2, med_int *pnamelen, +@@ -301,7 +301,7 @@ MFDFIPW(med_int *fid, char *fname, unsig + med_int *swm,med_int *cs, med_int *n, med_int *val) + #else + med_int +-nmfdfipw(med_int *fid, char *fname, med_int *fnamelen, ++nmfdfipw(med_idt *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, +@@ -354,14 +354,14 @@ nmfdfipw(med_int *fid, char *fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFRAW(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFRAW(med_idt *fid, char *fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, med_float *dt, + med_int *etype, med_int *gtype, + char *lname, unsigned int bidon2, med_int *lnamelen, + unsigned char **flt, med_float *val) + #else + med_int +-nmfdfraw(med_int *fid, char *fname, med_int *fnamelen, ++nmfdfraw(med_idt *fid, char *fname, med_int *fnamelen, + med_int *numdt, med_int *numit, med_float *dt, + med_int *etype, med_int *gtype, + char *lname, med_int *lnamelen, +@@ -405,14 +405,14 @@ nmfdfraw(med_int *fid, char *fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFIAW(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFIAW(med_idt *fid, char *fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, med_float *dt, + med_int *etype, med_int *gtype, + char *lname, unsigned int bidon2, med_int *lnamelen, + unsigned char **flt, med_int *val) + #else + med_int +-nmfdfiaw(med_int *fid, char *fname, med_int *fnamelen, ++nmfdfiaw(med_idt *fid, char *fname, med_int *fnamelen, + med_int *numdt, med_int *numit, med_float *dt, + med_int *etype, med_int *gtype, + char *lname, med_int *lnamelen, +@@ -456,10 +456,10 @@ nmfdfiaw(med_int *fid, char *fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFNFD(med_int *fid) ++MFDFNFD(med_idt *fid) + #else + med_int +-nmfdfnfd(med_int *fid) ++nmfdfnfd(med_idt *fid) + #endif + { + med_int _ret; +@@ -472,10 +472,10 @@ nmfdfnfd(med_int *fid) + + #ifdef PPRO_NT + med_int +-MFDFNFC(med_int *fid, med_int *ind) ++MFDFNFC(med_idt *fid, med_int *ind) + #else + med_int +-nmfdfnfc(med_int *fid, med_int *ind) ++nmfdfnfc(med_idt *fid, med_int *ind) + #endif + { + med_int _ret; +@@ -489,11 +489,11 @@ nmfdfnfc(med_int *fid, med_int *ind) + + #ifdef PPRO_NT + med_int +-MFDFNCN(med_int *fid, ++MFDFNCN(med_idt *fid, + char* fname, unsigned int bidon1, med_int *fnamelen) + #else + med_int +-nmfdfncn(med_int *fid, ++nmfdfncn(med_idt *fid, + char* fname, med_int *fnamelen) + #endif + { +@@ -516,7 +516,7 @@ nmfdfncn(med_int *fid, + + #ifdef PPRO_NT + med_int +-MFDFFDI(med_int *fid, med_int *it, char *fname, unsigned int bidon1, ++MFDFFDI(med_idt *fid, med_int *it, char *fname, unsigned int bidon1, + char*mname, unsigned int bidon2, + med_int *localmesh, med_int *type, + char *cname, unsigned int bidon3, +@@ -525,7 +525,7 @@ MFDFFDI(med_int *fid, med_int *it, char + med_int *nc) + #else + med_int +-nmfdffdi(med_int *fid, med_int *it, char *fname,char *mname, ++nmfdffdi(med_idt *fid, med_int *it, char *fname,char *mname, + med_int *localmesh, med_int *type, + char *cname,char *cunit, char *dtunit, med_int *nc) + #endif +@@ -579,7 +579,7 @@ nmfdffdi(med_int *fid, med_int *it, char + + #ifdef PPRO_NT + med_int +-MFDFFIN(med_int *fid, char *fname, unsigned int bidon1,med_int *fnamelen, ++MFDFFIN(med_idt *fid, char *fname, unsigned int bidon1,med_int *fnamelen, + char*mname, unsigned int bidon2, + med_int *localmesh, med_int *type, + char *cname, unsigned int bidon3, +@@ -588,7 +588,7 @@ MFDFFIN(med_int *fid, char *fname, unsig + med_int *nc) + #else + med_int +-nmfdffin(med_int *fid, char *fname, med_int *fnamelen, ++nmfdffin(med_idt *fid, char *fname, med_int *fnamelen, + char*mname, med_int *localmesh, med_int *type, + char *cname, char *cunit, char *dtunit, + med_int *nc) +@@ -648,11 +648,11 @@ nmfdffin(med_int *fid, char *fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFCSI(med_int *fid, char* fname, unsigned int bidon1, med_int *fnamelen, ++MFDFCSI(med_idt *fid, char* fname, unsigned int bidon1, med_int *fnamelen, + med_int *it, med_int *numdt, med_int *numit, med_float *dt) + #else + med_int +-nmfdfcsi(med_int *fid, char* fname, med_int *fnamelen, ++nmfdfcsi(med_idt *fid, char* fname, med_int *fnamelen, + med_int *it, med_int *numdt, med_int *numit, med_float *dt) + #endif + { +@@ -678,11 +678,11 @@ nmfdfcsi(med_int *fid, char* fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFCMI(med_int *fid, char* fname, unsigned int bidon1, med_int *fnamelen, ++MFDFCMI(med_idt *fid, char* fname, unsigned int bidon1, med_int *fnamelen, + med_int *it, med_int *numdt, med_int *numit, med_float *dt, med_int *meshnumdt, med_int *meshnumit) + #else + med_int +-nmfdfcmi(med_int *fid, char* fname, med_int *fnamelen, ++nmfdfcmi(med_idt *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 +@@ -710,11 +710,11 @@ nmfdfcmi(med_int *fid, char* fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFCMW(med_int *fid, char* fname, unsigned int bidon1, med_int *fnamelen, ++MFDFCMW(med_idt *fid, char* fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, med_int *meshnumdt, med_int *meshnumit) + #else + med_int +-nmfdfcmw(med_int *fid, char* fname, med_int *fnamelen, ++nmfdfcmw(med_idt *fid, char* fname, med_int *fnamelen, + med_int *numdt, med_int *numit, + med_int *meshnumdt, med_int *meshnumit) + #endif +@@ -742,12 +742,12 @@ nmfdfcmw(med_int *fid, char* fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFNPF(med_int *fid, char*fname, unsigned int bidon1, med_int *fnamelen, ++MFDFNPF(med_idt *fid, char*fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, med_int *etype, med_int *gtype, + char *dpname, unsigned int bidon2, char *dlname, unsigned int bidon3) + #else + med_int +-nmfdfnpf(med_int *fid, char*fname, med_int *fnamelen, ++nmfdfnpf(med_idt *fid, char*fname, med_int *fnamelen, + med_int *numdt, med_int *numit, med_int *etype, med_int *gtype, + char *dpname, char *dlname) + #endif +@@ -783,11 +783,11 @@ nmfdfnpf(med_int *fid, char*fname, med_i + + #ifdef PPRO_NT + med_int +-MFDFNVA(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFNVA(med_idt *fid, char *fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, med_int *etype, med_int *gtype) + #else + med_int +-nmfdfnva(med_int *fid, char *fname, med_int *fnamelen, ++nmfdfnva(med_idt *fid, char *fname, med_int *fnamelen, + med_int *numdt, med_int *numit, med_int *etype, med_int *gtype) + #endif + { +@@ -815,13 +815,13 @@ nmfdfnva(med_int *fid, char *fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFNVP(med_int *fid, char*fname, unsigned int bidon1, med_int *fnamelen, ++MFDFNVP(med_idt *fid, char*fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, med_int *etype, med_int *gtype, + med_int *pit, med_int *stm, char *pname, unsigned int bidon2, + med_int *psize, char *lname, unsigned int bidon3, med_int *nip) + #else + med_int +-nmfdfnvp(med_int *fid, char*fname, med_int *fnamelen, ++nmfdfnvp(med_idt *fid, char*fname, med_int *fnamelen, + med_int *numdt, med_int *numit, med_int *etype, med_int *gtype, + med_int *pit, med_int *stm, char *pname, + med_int *psize, char *lname, med_int *nip) +@@ -863,13 +863,13 @@ nmfdfnvp(med_int *fid, char*fname, med_i + + #ifdef PPRO_NT + med_int +-MFDFNPN(med_int *fid, char* fname, unsigned int bidon1, med_int *fnamelen, ++MFDFNPN(med_idt *fid, char* fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, med_int *etype, med_int *gtype, + char *pname, unsigned int bidon2, med_int *pnamelen, med_int *stm, + med_int *psize, char *lname, unsigned int bidon3, med_int *nip) + #else + med_int +-nmfdfnpn(med_int *fid, char* fname, med_int *fnamelen, ++nmfdfnpn(med_idt *fid, char* fname, med_int *fnamelen, + med_int *numdt, med_int *numit, med_int *etype, med_int *gtype, + char *pname, med_int *pnamelen, med_int *stm, + med_int *psize, char *lname, med_int *nip) +@@ -914,13 +914,13 @@ nmfdfnpn(med_int *fid, char* fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFRVR(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFRVR(med_idt *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_float *val) + #else + med_int +-nmfdfrvr(med_int *fid, char *fname, med_int *fnamelen, ++nmfdfrvr(med_idt *fid, char *fname, med_int *fnamelen, + med_int *numdt, med_int *numit, + med_int *etype, med_int *gtype, med_int *swm, + med_int *cs, med_float *val) +@@ -957,13 +957,13 @@ nmfdfrvr(med_int *fid, char *fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFIVR(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFIVR(med_idt *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) + #else + med_int +-nmfdfivr(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++nmfdfivr(med_idt *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) +@@ -999,14 +999,14 @@ nmfdfivr(med_int *fid, char *fname, unsi + + #ifdef PPRO_NT + med_int +-MFDFRPR(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFRPR(med_idt *fid, char *fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, + med_int *etype, med_int *gtype, + med_int *stm, char *pname, unsigned int bidon2, med_int *pnamelen, + med_int *swm,med_int *cs, med_float *val) + #else + med_int +-nmfdfrpr(med_int *fid, char *fname, med_int *fnamelen, ++nmfdfrpr(med_idt *fid, char *fname, med_int *fnamelen, + med_int *numdt, med_int *numit, + med_int *etype, med_int *gtype, + med_int *stm, char *pname, med_int *pnamelen, +@@ -1050,14 +1050,14 @@ nmfdfrpr(med_int *fid, char *fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFIPR(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFIPR(med_idt *fid, char *fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, + med_int *etype, med_int *gtype, + med_int *stm, char *pname, unsigned int bidon2, med_int *pnamelen, + med_int *swm, med_int *cs, med_int *val) + #else + med_int +-nmfdfipr(med_int *fid, char *fname, med_int *fnamelen, ++nmfdfipr(med_idt *fid, char *fname, med_int *fnamelen, + med_int *numdt, med_int *numit, + med_int *etype, med_int *gtype, + med_int *stm, char *pname, med_int *pnamelen, +@@ -1101,13 +1101,13 @@ nmfdfipr(med_int *fid, char *fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFRAR(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFRAR(med_idt *fid, char *fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, + med_int *etype, med_int *gtype, + unsigned char **flt, med_float *val) + #else + med_int +-nmfdfrar(med_int *fid, char *fname, med_int *fnamelen, ++nmfdfrar(med_idt *fid, char *fname, med_int *fnamelen, + med_int *numdt, med_int *numit, + med_int *etype, med_int *gtype, + unsigned char **flt, med_float *val) +@@ -1141,13 +1141,13 @@ nmfdfrar(med_int *fid, char *fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFIAR(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFIAR(med_idt *fid, char *fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, + med_int *etype, med_int *gtype, + unsigned char **flt, med_int *val) + #else + med_int +-nmfdfiar(med_int *fid, char *fname, med_int *fnamelen, ++nmfdfiar(med_idt *fid, char *fname, med_int *fnamelen, + med_int *numdt, med_int *numit, + med_int *etype, med_int *gtype, + unsigned char **flt, med_int *val) +@@ -1182,11 +1182,11 @@ nmfdfiar(med_int *fid, char *fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFINW(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFINW(med_idt *fid, char *fname, unsigned int bidon1, med_int *fnamelen, + char *iname, unsigned int bidon2, med_int *inamelen) + #else + med_int +-nmfdfinw(med_int *fid, char *fname, med_int *fnamelen, ++nmfdfinw(med_idt *fid, char *fname, med_int *fnamelen, + char *iname, med_int *inamelen) + #endif + { +@@ -1216,11 +1216,11 @@ nmfdfinw(med_int *fid, char *fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFNIN(med_int *fid, ++MFDFNIN(med_idt *fid, + char *fname, unsigned int bidon1, med_int *fnamelen) + #else + med_int +-nmfdfnin(med_int *fid,char *fname, med_int *fnamelen) ++nmfdfnin(med_idt *fid,char *fname, med_int *fnamelen) + #endif + { + med_int _ret; +@@ -1241,11 +1241,11 @@ nmfdfnin(med_int *fid,char *fname, med_i + + #ifdef PPRO_NT + med_int +-MFDFINI(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFINI(med_idt *fid, char *fname, unsigned int bidon1, med_int *fnamelen, + med_int *it, char *iname, unsigned int bidon2) + #else + med_int +-nmfdfini(med_int *fid, char *fname, med_int *fnamelen, med_int *it, char *iname) ++nmfdfini(med_idt *fid, char *fname, med_int *fnamelen, med_int *it, char *iname) + #endif + { + med_err _ret=0; +@@ -1271,13 +1271,13 @@ nmfdfini(med_int *fid, char *fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFOCI(med_int *fid, char* fname, unsigned int bidon1, med_int *fnamelen, ++MFDFOCI(med_idt *fid, char* fname, unsigned int bidon1, med_int *fnamelen, + med_int *it, med_int *numdt, med_int *numit, med_float *dt, + med_int *nmesh, char *mname, unsigned int bidon2, med_int *lmesh, + med_int *mnumdt, med_int *mnumit) + #else + med_int +-nmfdfoci(med_int *fid, char* fname,med_int *fnamelen, ++nmfdfoci(med_idt *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) +@@ -1315,13 +1315,13 @@ nmfdfoci(med_int *fid, char* fname,med_i + + #ifdef PPRO_NT + med_int +-MFDFONP(med_int *fid, char* fname, unsigned int bidon1, med_int *fnamelen, ++MFDFONP(med_idt *fid, char* fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, med_int *etype, med_int *gtype, + med_int *it, char *mname, unsigned int bidon2, + char *dpname, unsigned int bidon3, char *dlname, unsigned int bidon4) + #else + med_int +-nmfdfonp(med_int *fid, char*fname, med_int *fnamelen, ++nmfdfonp(med_idt *fid, char*fname, med_int *fnamelen, + med_int *numdt, med_int *numit, med_int *etype, med_int *gtype, + med_int *it, char *mname, + char *dpname, char *dlname) +@@ -1363,14 +1363,14 @@ nmfdfonp(med_int *fid, char*fname, med_i + + #ifdef PPRO_NT + med_int +-MFDFONV(med_int *fid, char*fname, unsigned int bidon1, med_int *fnamelen, ++MFDFONV(med_idt *fid, char*fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, med_int *etype, med_int *gtype, + char* mname, unsigned int bidon2, med_int *mnamelen, + med_int *pit, med_int *stm, char *pname, unsigned int bidon3, + med_int *psize, char *lname, unsigned int bidon4, med_int *nip) + #else + med_int +-nmfdfonv(med_int *fid, char*fname, med_int *fnamelen, ++nmfdfonv(med_idt *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, +@@ -1420,7 +1420,7 @@ nmfdfonv(med_int *fid, char*fname, med_i + + #ifdef PPRO_NT + med_int +-MFDFORR(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFORR(med_idt *fid, char *fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, + med_int *etype, med_int *gtype, + char *mname, unsigned int bidon2, med_int *mnamelen, +@@ -1428,7 +1428,7 @@ MFDFORR(med_int *fid, char *fname, unsig + med_int *swm,med_int *cs, med_float *val) + #else + med_int +-nmfdforr(med_int *fid, char *fname, med_int *fnamelen, ++nmfdforr(med_idt *fid, char *fname, med_int *fnamelen, + med_int *numdt, med_int *numit, + med_int *etype, med_int *gtype, + char *mname, med_int *mnamelen, +@@ -1479,7 +1479,7 @@ nmfdforr(med_int *fid, char *fname, med_ + + #ifdef PPRO_NT + med_int +-MFDFOIR(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen, ++MFDFOIR(med_idt *fid, char *fname, unsigned int bidon1, med_int *fnamelen, + med_int *numdt, med_int *numit, + med_int *etype, med_int *gtype, + char *mname, unsigned int bidon2, med_int *mnamelen, +@@ -1487,7 +1487,7 @@ MFDFOIR(med_int *fid, char *fname, unsig + med_int *swm, med_int *cs, med_int *val) + #else + med_int +-nmfdfoir(med_int *fid, char *fname, med_int *fnamelen, ++nmfdfoir(med_idt *fid, char *fname, med_int *fnamelen, + med_int *numdt, med_int *numit, + med_int *etype, med_int *gtype, + char *mname, med_int *mnamelen, +Index: med-fichier/src/cfi/medfiltercf.c +=================================================================== +--- med-fichier.orig/src/cfi/medfiltercf.c ++++ med-fichier/src/cfi/medfiltercf.c +@@ -87,12 +87,12 @@ nmfrfdea(med_int* nflt,unsigned char** f + + #ifdef PPRO_NT + med_int +-MFRFCRE(med_int *fid, med_int* nent, med_int *nvent, med_int *ncent, ++MFRFCRE(med_idt *fid, med_int* nent, med_int *nvent, med_int *ncent, + med_int *cs, med_int *swm, med_int *stm, char *pname, unsigned int bidon, med_int *pnamelen, + med_int *fltas, med_int *flta, unsigned char **flt) + #else + med_int +-nmfrfcre(med_int *fid, med_int* nent, med_int *nvent, med_int *ncent, ++nmfrfcre(med_idt *fid, med_int* nent, med_int *nvent, med_int *ncent, + med_int *cs, med_int *swm,med_int *stm,char *pname, med_int *pnamelen, + med_int *fltas,med_int *flta, unsigned char **flt) + #endif +@@ -135,13 +135,13 @@ nmfrfcre(med_int *fid, med_int* nent, me + + #ifdef PPRO_NT + med_int +-MFRFBLC(med_int *fid, med_int* nent, med_int *nvent, med_int *ncent, ++MFRFBLC(med_idt *fid, med_int* nent, med_int *nvent, med_int *ncent, + med_int *cs, med_int *swm, med_int *stm, char *pname, unsigned int bidon, med_int *pnamelen, + med_int *start, med_int *stride, med_int *count, med_int *bsize, med_int *lbsize, + unsigned char **flt) + #else + med_int +-nmfrfblc(med_int *fid, med_int* nent, med_int *nvent, med_int *ncent, ++nmfrfblc(med_idt *fid, med_int* nent, med_int *nvent, med_int *ncent, + med_int *cs, med_int *swm,med_int *stm,char *pname, med_int *pnamelen, + med_int *start, med_int *stride, med_int *count, med_int *bsize, med_int *lbsize, + unsigned char **flt) +Index: med-fichier/src/cfi/medinterpcf.c +=================================================================== +--- med-fichier.orig/src/cfi/medinterpcf.c ++++ med-fichier/src/cfi/medinterpcf.c +@@ -44,13 +44,13 @@ From Fortran call of following C functio + + #ifdef PPRO_NT + med_int +-MIPFCRE(med_int *fid, ++MIPFCRE(med_idt *fid, + char *name, unsigned int bidon1, med_int *lon1, + med_int *gtype, med_int *cnode, med_int *nvar, + med_int *mdeg, med_int *nmaxc) + #else + med_int +-nmipfcre(med_int *fid, ++nmipfcre(med_idt *fid, + char *name, med_int *lon1, + med_int *gtype, med_int *cnode, med_int *nvar, + med_int *mdeg, med_int *nmaxc) +@@ -82,12 +82,12 @@ nmipfcre(med_int *fid, + + #ifdef PPRO_NT + med_int +-MIPFBFW(med_int *fid, ++MIPFBFW(med_idt *fid, + char *name, unsigned int bidon1, med_int *lon1, + med_int *it, med_int *nc, med_int *pw, med_float *co) + #else + med_int +-nmipfbfw(med_int *fid, ++nmipfbfw(med_idt *fid, + char *name, med_int *lon1, + med_int *it, med_int *nc, med_int *pw, med_float *co) + #endif +@@ -115,12 +115,12 @@ nmipfbfw(med_int *fid, + + #ifdef PPRO_NT + med_int +-MIPFBFR(med_int *fid, ++MIPFBFR(med_idt *fid, + char *name, unsigned int bidon1, med_int *lon1, + med_int *it, med_int *nc, med_int *pw, med_float *co) + #else + med_int +-nmipfbfr(med_int *fid, ++nmipfbfr(med_idt *fid, + char *name, med_int *lon1, + med_int *it, med_int *nc, med_int *pw, med_float *co) + #endif +@@ -149,10 +149,10 @@ nmipfbfr(med_int *fid, + + #ifdef PPRO_NT + med_int +-MIPFNIP(med_int *fid) ++MIPFNIP(med_idt *fid) + #else + med_int +-nmipfnip(med_int *fid) ++nmipfnip(med_idt *fid) + #endif + { + med_int _ret; +@@ -166,13 +166,13 @@ nmipfnip(med_int *fid) + + #ifdef PPRO_NT + med_int +-MIPFIIN(med_int *fid, ++MIPFIIN(med_idt *fid, + char *name, unsigned int bidon1, med_int *lon1, + med_int *gtype, med_int *cnode, med_int *nbf, med_int *nvar, + med_int *mdeg, med_int *nmaxc) + #else + med_int +-nmipfiin(med_int *fid, ++nmipfiin(med_idt *fid, + char *name, med_int *lon1, + med_int *gtype, med_int *cnode, med_int *nbf, med_int *nvar, + med_int *mdeg, med_int *nmaxc) +@@ -209,13 +209,13 @@ nmipfiin(med_int *fid, + + #ifdef PPRO_NT + med_int +-MIPFIPI(med_int *fid, med_int *it, ++MIPFIPI(med_idt *fid, med_int *it, + char *name, unsigned int bidon1, + med_int *gtype, med_int *cnode, med_int *nbf, med_int *nvar, + med_int *mdeg, med_int *nmaxc) + #else + med_int +-nmipfipi(med_int *fid, med_int *it, char *name, ++nmipfipi(med_idt *fid, med_int *it, char *name, + med_int *gtype, med_int *cnode, med_int *nbf, med_int *nvar, + med_int *mdeg, med_int *nmaxc) + #endif +@@ -246,12 +246,12 @@ nmipfipi(med_int *fid, med_int *it, char + + #ifdef PPRO_NT + med_int +-MIPFCSZ(med_int *fid, ++MIPFCSZ(med_idt *fid, + char *name, unsigned int bidon1, med_int *lon1, + med_int *it) + #else + med_int +-nmipfcsz(med_int *fid, ++nmipfcsz(med_idt *fid, + char *name, med_int *lon1, + med_int *it) + #endif +Index: med-fichier/src/cfi/medjointcf.c +=================================================================== +--- med-fichier.orig/src/cfi/medjointcf.c ++++ med-fichier/src/cfi/medjointcf.c +@@ -47,7 +47,7 @@ From Fortran call of following C functio + + #ifdef PPRO_NT + med_int +-MSDFJCR(med_int *fid, ++MSDFJCR(med_idt *fid, + char *lmname, unsigned int bidon1, med_int *lon1, + char *jname, unsigned int bidon2, med_int *lon2, + char *desc, unsigned int bidon3, med_int *lon3, +@@ -56,7 +56,7 @@ MSDFJCR(med_int *fid, + ) + #else + med_int +-nmsdfjcr(med_int *fid, ++nmsdfjcr(med_idt *fid, + char *lmname, med_int *lon1, + char *jname, med_int *lon2, + char *desc, med_int *lon3, +@@ -93,7 +93,7 @@ nmsdfjcr(med_int *fid, + + #ifdef PPRO_NT + med_int +-MSDFCRW(med_int *fid, ++MSDFCRW(med_idt *fid, + char *maa_local,unsigned int bidon1, med_int *lon1, + char *jn,unsigned int bidon2, med_int *lon2, + med_int *numdt, med_int *numit, +@@ -102,7 +102,7 @@ MSDFCRW(med_int *fid, + med_int *n, med_int *corrtab) + #else + med_int +-nmsdfcrw (med_int *fid, ++nmsdfcrw (med_idt *fid, + char *maa_local,med_int *lon1, + char *jn,med_int *lon2, + med_int *numdt, med_int *numit, +@@ -146,11 +146,11 @@ nmsdfcrw (med_int *fid, + + #ifdef PPRO_NT + med_int +-MSDFNJN(med_int *fid, ++MSDFNJN(med_idt *fid, + char *maa, unsigned int bidon1, med_int *lon1) + #else + med_int +-nmsdfnjn(med_int *fid, ++nmsdfnjn(med_idt *fid, + char *maa, med_int *lon1) + #endif + { +@@ -177,7 +177,7 @@ nmsdfnjn(med_int *fid, + + #ifdef PPRO_NT + med_int +-MSDFJNI(med_int *fid, ++MSDFJNI(med_idt *fid, + char *maa, unsigned int bidon1, med_int *lon1, + med_int *ind, char *jname, unsigned int bidon2, + char *desc,unsigned int bidon3, +@@ -185,7 +185,7 @@ MSDFJNI(med_int *fid, + med_int *nstep, med_int *ncor) + #else + med_int +-nmsdfjni(med_int *fid, ++nmsdfjni(med_idt *fid, + char *maa, med_int *lon1, + med_int *ind, char *jname, + char *desc, med_int *dom,char *rname, +@@ -228,7 +228,7 @@ nmsdfjni(med_int *fid, + + #ifdef PPRO_NT + med_int +-MSDFSZI(med_int *fid, ++MSDFSZI(med_idt *fid, + char *maa, unsigned int bidon1, med_int *lon1, + char *jname, unsigned int bidon2, med_int *lon2, + med_int *numdt, med_int *numit, med_int *it, +@@ -237,7 +237,7 @@ MSDFSZI(med_int *fid, + med_int *ncor) + #else + med_int +-nmsdfszi(med_int *fid, ++nmsdfszi(med_idt *fid, + char *maa, med_int *lon1, + char *jname, med_int *lon2, + med_int *numdt, med_int *numit, med_int *it, +@@ -287,7 +287,7 @@ nmsdfszi(med_int *fid, + + #ifdef PPRO_NT + med_int +-MSDFCSZ(med_int *fid, ++MSDFCSZ(med_idt *fid, + char *maa, unsigned int bidon1, med_int *lon1, + char *jname, unsigned int bidon2, med_int *lon2, + med_int *numdt, med_int *numit, +@@ -296,7 +296,7 @@ MSDFCSZ(med_int *fid, + med_int *ncor) + #else + med_int +-nmsdfcsz(med_int *fid, ++nmsdfcsz(med_idt *fid, + char *maa, med_int *lon1, + char *jname, med_int *lon2, + med_int *numdt, med_int *numit, +@@ -341,7 +341,7 @@ nmsdfcsz(med_int *fid, + + #ifdef PPRO_NT + med_int +-MSDFCRR(med_int *fid, ++MSDFCRR(med_idt *fid, + char *maa_local,unsigned int bidon1, med_int *lon1, + char *jn,unsigned int bidon2, med_int *lon2, + med_int *numdt, med_int *numit, +@@ -350,7 +350,7 @@ MSDFCRR(med_int *fid, + med_int *corrtab) + #else + med_int +-nmsdfcrr (med_int *fid, ++nmsdfcrr (med_idt *fid, + char *maa_local,med_int *lon1, + char *jn,med_int *lon2, + med_int *numdt, med_int *numit, +@@ -393,14 +393,14 @@ nmsdfcrr (med_int *fid, + + #ifdef PPRO_NT + med_int +-MSDFCSI(med_int *fid, ++MSDFCSI(med_idt *fid, + char *maa, unsigned int bidon1, med_int *lon1, + char *jname, unsigned int bidon2, med_int *lon2, + med_int *ind, med_int *numdt, med_int *numit, + med_int *ncor) + #else + med_int +-nmsdfcsi(med_int *fid, ++nmsdfcsi(med_idt *fid, + char *maa, med_int *lon1, + char *jname, med_int *lon2, + med_int *ind, med_int *numdt, med_int *numit, +Index: med-fichier/src/cfi/medparametercf.c +=================================================================== +--- med-fichier.orig/src/cfi/medparametercf.c ++++ med-fichier/src/cfi/medparametercf.c +@@ -45,12 +45,12 @@ From Fortran call of following C functio + + #ifdef PPRO_NT + med_int +-MPRFCRE(med_int *fid, char *pname, unsigned int bidon1, med_int *lon1, ++MPRFCRE(med_idt *fid, char *pname, unsigned int bidon1, med_int *lon1, + med_int *type, char *desc, unsigned int bidon2, med_int *lon2, + char *dtunit, unsigned int bidon3, med_int *lon3) + #else + med_int +-nmprfcre(med_int *fid, char *pname, med_int *lon1, ++nmprfcre(med_idt *fid, char *pname, med_int *lon1, + med_int *type, char *desc, med_int *lon2, + char *dtunit, med_int *lon3) + #endif +@@ -209,10 +209,10 @@ nmprfivr(med_idt *fid, char *name, med_i + + #ifdef PPRO_NT + med_int +-MPRFNPR(med_int *fid) ++MPRFNPR(med_idt *fid) + #else + med_int +-nmprfnpr(med_int *fid) ++nmprfnpr(med_idt *fid) + #endif + { + med_int _ret; +@@ -226,12 +226,12 @@ nmprfnpr(med_int *fid) + + #ifdef PPRO_NT + med_int +-MPRFPRI(med_int *fid, med_int *it, char *name, unsigned int bidon1, ++MPRFPRI(med_idt *fid, med_int *it, char *name, unsigned int bidon1, + med_int *type, char *desc, unsigned int bidon2, + char *dtunit, unsigned int bidon3, med_int *nstep) + #else + med_int +-nmprfpri(med_int *fid, med_int *it, char *name, ++nmprfpri(med_idt *fid, med_int *it, char *name, + med_int *type, char *desc, + char *dtunit, med_int *nstep) + #endif +@@ -263,13 +263,13 @@ nmprfpri(med_int *fid, med_int *it, char + + #ifdef PPRO_NT + med_int +-MPRFPIN(med_int *fid, char *name, unsigned int bidon1, med_int *namelen, ++MPRFPIN(med_idt *fid, char *name, unsigned int bidon1, med_int *namelen, + med_int *type, char *desc, unsigned int bidon2, + char *dtunit, unsigned int bidon3, + med_int *nstep) + #else + med_int +-nmprfpin(med_int *fid, char *name, med_int *namelen, ++nmprfpin(med_idt *fid, char *name, med_int *namelen, + med_int *type, char *desc, + char *dtunit, med_int *nstep) + #endif +@@ -306,11 +306,11 @@ nmprfpin(med_int *fid, char *name, med_i + + #ifdef PPRO_NT + med_int +-MPRFCSI(med_int *fid, char* name, unsigned int bidon1, med_int *namelen, ++MPRFCSI(med_idt *fid, char* name, unsigned int bidon1, med_int *namelen, + med_int *it, med_int *numdt, med_int *numit, med_float *dt) + #else + med_int +-nmprfcsi(med_int *fid, char *name, med_int *namelen, ++nmprfcsi(med_idt *fid, char *name, med_int *namelen, + med_int *it, med_int *numdt, med_int *numit, med_float *dt) + #endif + { +Index: med-fichier/src/cfi/medstructelementcf.c +=================================================================== +--- med-fichier.orig/src/cfi/medstructelementcf.c ++++ med-fichier/src/cfi/medstructelementcf.c +@@ -67,13 +67,13 @@ From Fortran call of following C functio + + #ifdef PPRO_NT + med_int +-MSEFCRE(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MSEFCRE(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int * mdim, + char *smname, unsigned int bidon2, med_int *smnamelen, + med_int *setype, med_int *sgtype) + #else + med_int +-nmsefcre(med_int *fid, ++nmsefcre(med_idt *fid, + char *mname, med_int *mnamelen, + med_int * mdim, + char *smname, med_int *smnamelen, +@@ -111,10 +111,10 @@ nmsefcre(med_int *fid, + + #ifdef PPRO_NT + med_int +-MSEFNSE(med_int *fid) ++MSEFNSE(med_idt *fid) + #else + med_int +-nmsefnse (med_int *fid) ++nmsefnse (med_idt *fid) + #endif + { + med_int _ret; +@@ -127,7 +127,7 @@ nmsefnse (med_int *fid) + + #ifdef PPRO_NT + med_int +-MSEFSEI(med_int *fid, med_int *it, ++MSEFSEI(med_idt *fid, med_int *it, + char *mname, unsigned int bidon1, + med_int *mgtype, med_int * mdim, + char *smname, unsigned int bidon2, +@@ -136,7 +136,7 @@ MSEFSEI(med_int *fid, med_int *it, + med_int *nvatt) + #else + med_int +-nmsefsei(med_int *fid, med_int *it, ++nmsefsei(med_idt *fid, med_int *it, + char *mname, + med_int *mgtype, med_int * mdim, + char *smname, +@@ -181,7 +181,7 @@ nmsefsei(med_int *fid, med_int *it, + + #ifdef PPRO_NT + med_int +-MSEFSIN(med_int *fid, ++MSEFSIN(med_idt *fid, + char *mname, unsigned int bidon1, med_int *mnamelen, + med_int *mgtype, med_int * mdim, + char *smname, unsigned int bidon2, +@@ -190,7 +190,7 @@ MSEFSIN(med_int *fid, + med_int *nvatt) + #else + med_int +-nmsefsin(med_int *fid, ++nmsefsin(med_idt *fid, + char *mname, med_int *mnamelen, + med_int *mgtype, med_int * mdim, + char *smname, +@@ -239,10 +239,10 @@ nmsefsin(med_int *fid, + + #ifdef PPRO_NT + med_int +-MSEFSEN(med_int *fid, med_int *mgtype, char *mname, unsigned int bidon) ++MSEFSEN(med_idt *fid, med_int *mgtype, char *mname, unsigned int bidon) + #else + med_int +-nmsefsen(med_int *fid, med_int *mgtype, char *mname) ++nmsefsen(med_idt *fid, med_int *mgtype, char *mname) + #endif + { + med_int _ret; +@@ -263,10 +263,10 @@ nmsefsen(med_int *fid, med_int *mgtype, + + #ifdef PPRO_NT + med_int +-MSEFSGT(med_int *fid, char *mname, unsigned int bidon,med_int *mnamelen) ++MSEFSGT(med_idt *fid, char *mname, unsigned int bidon,med_int *mnamelen) + #else + med_int +-nmsefsgt(med_int *fid, char *mname, med_int *mnamelen) ++nmsefsgt(med_idt *fid, char *mname, med_int *mnamelen) + #endif + { + med_int _ret; +@@ -288,12 +288,12 @@ nmsefsgt(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MSEFVAC(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MSEFVAC(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + char *aname, unsigned int bidon2, med_int *anamelen, + med_int *atype, med_int *anc) + #else + med_int +-nmsefvac(med_int *fid, char *mname, med_int *mnamelen, ++nmsefvac(med_idt *fid, char *mname, med_int *mnamelen, + char *aname, med_int *anamelen, + med_int *atype, med_int *anc) + #endif +@@ -325,12 +325,12 @@ nmsefvac(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MSEFVNI(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MSEFVNI(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + char *aname, unsigned int bidon2, med_int *anamelen, + med_int *atype, med_int *anc) + #else + med_int +-nmsefvni(med_int *fid, char *mname, med_int *mnamelen, ++nmsefvni(med_idt *fid, char *mname, med_int *mnamelen, + char *aname, med_int *anamelen, + med_int *atype, med_int *anc) + #endif +@@ -364,12 +364,12 @@ nmsefvni(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MSEFVAI(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MSEFVAI(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *it, char *aname, unsigned int bidon2, + med_int *atype, med_int *anc) + #else + med_int +-nmsefvai(med_int *fid, char *mname, med_int *mnamelen, med_int *it, ++nmsefvai(med_idt *fid, char *mname, med_int *mnamelen, med_int *it, + char *aname, med_int *atype, med_int *anc) + #endif + { +@@ -417,13 +417,13 @@ nmsefasz(med_int *atype) + + #ifdef PPRO_NT + med_int +-MSEFRAW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MSEFRAW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + char *aname, unsigned int bidon2, med_int *anamelen, + med_int *atype, med_int *anc, + med_int *setype, med_float *val) + #else + med_int +-nmsefraw(med_int *fid, char *mname, med_int *mnamelen, ++nmsefraw(med_idt *fid, char *mname, med_int *mnamelen, + char *aname, med_int *anamelen, + med_int *atype, med_int *anc, + med_int *setype, med_float *val) +@@ -459,13 +459,13 @@ nmsefraw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MSEFIAW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MSEFIAW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + char *aname, unsigned int bidon2, med_int *anamelen, + med_int *atype, med_int *anc, + med_int *setype, med_int *val) + #else + med_int +-nmsefiaw(med_int *fid, char *mname, med_int *mnamelen, ++nmsefiaw(med_idt *fid, char *mname, med_int *mnamelen, + char *aname, med_int *anamelen, + med_int *atype, med_int *anc, + med_int *setype, med_int *val) +@@ -502,13 +502,13 @@ nmsefiaw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MSEFSAW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MSEFSAW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + char *aname, unsigned int bidon2, med_int *anamelen, + med_int *atype, med_int *anc, med_int *setype, + char *val, unsigned int bidon3, med_int *vallen) + #else + med_int +-nmsefsaw(med_int *fid, char *mname, med_int *mnamelen, ++nmsefsaw(med_idt *fid, char *mname, med_int *mnamelen, + char *aname, med_int *anamelen, + med_int *atype, med_int *anc, med_int *setype, + char *val, med_int *vallen) +@@ -594,7 +594,7 @@ nmsefsaw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MSEFRPW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MSEFRPW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + char *aname, unsigned int bidon2, med_int *anamelen, + med_int *atype, med_int *anc, + med_int *setype, +@@ -602,7 +602,7 @@ MSEFRPW(med_int *fid, char *mname, unsig + med_float *val) + #else + med_int +-nmsefrpw(med_int *fid, char *mname, med_int *mnamelen, ++nmsefrpw(med_idt *fid, char *mname, med_int *mnamelen, + char *aname, med_int *anamelen, + med_int *atype, med_int *anc, + med_int *setype, +@@ -648,7 +648,7 @@ nmsefrpw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MSEFIPW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MSEFIPW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + char *aname, unsigned int bidon2, med_int *anamelen, + med_int *atype, med_int *anc, + med_int *setype, +@@ -656,7 +656,7 @@ MSEFIPW(med_int *fid, char *mname, unsig + med_int *val) + #else + med_int +-nmsefipw(med_int *fid, char *mname, med_int *mnamelen, ++nmsefipw(med_idt *fid, char *mname, med_int *mnamelen, + char *aname, med_int *anamelen, + med_int *atype, med_int *anc, + med_int *setype, +@@ -701,14 +701,14 @@ nmsefipw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MSEFSPW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MSEFSPW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + char *aname, unsigned int bidon2, med_int *anamelen, + med_int *atype, med_int *anc, med_int *setype, + char *pname, unsigned int bidon3, med_int *pnamelen, + char *val, unsigned int bidon4, med_int *vallen) + #else + med_int +-nmsefspw(med_int *fid, char *mname, med_int *mnamelen, ++nmsefspw(med_idt *fid, char *mname, med_int *mnamelen, + char *aname, med_int *anamelen, + med_int *atype, med_int *anc, med_int *setype, + char *pname, med_int *pnamelen, +@@ -813,13 +813,13 @@ nmsefspw(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MSEFCNI(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MSEFCNI(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + char *aname, unsigned int bidon2, med_int *anamelen, + med_int *atype, med_int *anc, + med_int *setype, char *pname, unsigned int bidon3, med_int *psize) + #else + med_int +-nmsefcni(med_int *fid, char *mname, med_int *mnamelen, ++nmsefcni(med_idt *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) +@@ -861,14 +861,14 @@ nmsefcni(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MSEFCAI(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MSEFCAI(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int *it, + char *aname, unsigned int bidon2, + med_int *atype, med_int *anc, + med_int *setype, char *pname, unsigned int bidon3 ,med_int *psize) + #else + med_int +-nmsefcai(med_int *fid, char *mname, med_int *mnamelen, ++nmsefcai(med_idt *fid, char *mname, med_int *mnamelen, + med_int *it, + char *aname, + med_int *atype, med_int *anc, +@@ -910,12 +910,12 @@ nmsefcai(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MSEFRAR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MSEFRAR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + char *aname, unsigned int bidon2, med_int *anamelen, + med_float *val) + #else + med_int +-nmsefrar(med_int *fid, char *mname, med_int *mnamelen, ++nmsefrar(med_idt *fid, char *mname, med_int *mnamelen, + char *aname, med_int *anamelen, + med_float *val) + #endif +@@ -945,12 +945,12 @@ nmsefrar(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MSEFIAR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MSEFIAR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + char *aname, unsigned int bidon2, med_int *anamelen, + med_int *val) + #else + med_int +-nmsefiar(med_int *fid, char *mname, med_int *mnamelen, ++nmsefiar(med_idt *fid, char *mname, med_int *mnamelen, + char *aname, med_int *anamelen, + med_int *val) + #endif +@@ -981,12 +981,12 @@ nmsefiar(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MSEFSAR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MSEFSAR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + char *aname, unsigned int bidon2, med_int *anamelen, + char *val, unsigned int bidon3) + #else + med_int +-nmsefsar(med_int *fid, char *mname, med_int *mnamelen, ++nmsefsar(med_idt *fid, char *mname, med_int *mnamelen, + char *aname, med_int *anamelen, + char *val) + #endif +Index: med-fichier/src/cfi/medsupportcf.c +=================================================================== +--- med-fichier.orig/src/cfi/medsupportcf.c ++++ med-fichier/src/cfi/medsupportcf.c +@@ -41,14 +41,14 @@ From Fortran call of following C functio + + #ifdef PPRO_NT + med_int +-MSMFCRE(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen, ++MSMFCRE(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, + med_int * sdim, med_int * mdim, + char *desc, unsigned int bidon2, med_int *desclen, + med_int *atype, char *aname, unsigned int bidon3, med_int *anamelen, + char *aunit, unsigned int bidon4, med_int* aunitlen) + #else + med_int +-nmsmfcre(med_int *fid, char *mname, med_int *mnamelen, ++nmsmfcre(med_idt *fid, char *mname, med_int *mnamelen, + med_int * sdim, med_int * mdim, + char *desc, med_int *desclen, + med_int *atype, char *aname, med_int *anamelen, +@@ -92,10 +92,10 @@ nmsmfcre(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MSMFNSM(med_int *fid) ++MSMFNSM(med_idt *fid) + #else + med_int +-nmsmfnsm(med_int *fid) ++nmsmfnsm(med_idt *fid) + #endif + { + med_int _ret; +@@ -109,7 +109,7 @@ nmsmfnsm(med_int *fid) + + #ifdef PPRO_NT + med_int +-MSMFSNI(med_int *fid, char*mname, unsigned int bidon, med_int *mnamelen, ++MSMFSNI(med_idt *fid, char*mname, unsigned int bidon, med_int *mnamelen, + med_int * sdim, med_int * mdim, + char *desc, unsigned int bidon2, + med_int *atype, +@@ -117,7 +117,7 @@ MSMFSNI(med_int *fid, char*mname, unsign + char *aunit, unsigned int bidon5) + #else + med_int +-nmsmfsni(med_int *fid, char* mname, med_int *mnamelen, ++nmsmfsni(med_idt *fid, char* mname, med_int *mnamelen, + med_int * sdim, med_int * mdim, + char *desc,med_int *atype, char *aname, char *aunit) + #endif +@@ -169,7 +169,7 @@ nmsmfsni(med_int *fid, char* mname, med_ + + #ifdef PPRO_NT + med_int +-MSMFSMI(med_int *fid, med_int *it, char*mname, unsigned int bidon, ++MSMFSMI(med_idt *fid, med_int *it, char*mname, unsigned int bidon, + med_int * sdim, med_int * mdim, + char *desc, unsigned int bidon2, + med_int *atype, +@@ -177,7 +177,7 @@ MSMFSMI(med_int *fid, med_int *it, char* + char *aunit, unsigned int bidon5) + #else + med_int +-nmsmfsmi(med_int *fid, med_int *it, char* mname, ++nmsmfsmi(med_idt *fid, med_int *it, char* mname, + med_int * sdim, med_int * mdim, + char *desc,med_int *atype, char *aname, char *aunit) + #endif +@@ -227,10 +227,10 @@ nmsmfsmi(med_int *fid, med_int *it, char + + #ifdef PPRO_NT + med_int +-MSMFNAN(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen) ++MSMFNAN(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen) + #else + med_int +-nmsmfnan(med_int *fid, char *mname, med_int *mnamelen) ++nmsmfnan(med_idt *fid, char *mname, med_int *mnamelen) + #endif + { + med_int _ret; +@@ -251,10 +251,10 @@ nmsmfnan(med_int *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MSMFNAX(med_int *fid, med_int *it) ++MSMFNAX(med_idt *fid, med_int *it) + #else + med_int +-nmsmfnax(med_int *fid, med_int *it) ++nmsmfnax(med_idt *fid, med_int *it) + #endif + { + med_int _ret; +Index: med-fichier/tests/f/test4.f +=================================================================== +--- med-fichier.orig/tests/f/test4.f ++++ med-fichier/tests/f/test4.f +@@ -27,7 +27,8 @@ C + include 'med.hf' + C + C +- integer cret, fid ++ integer*8 fid ++ integer cret + + C ** la dimension du maillage ** + integer mdim, sdim +Index: med-fichier/tests/f/2.3.1/test10.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.1/test10.f ++++ med-fichier/tests/f/2.3.1/test10.f +@@ -26,7 +26,8 @@ C + implicit none + include 'med.hf' + C +- integer ret,fid,USER_INTERLACE,USER_MODE ++ integer*8 fid ++ integer ret,USER_INTERLACE,USER_MODE + real*8 a,b,p1,p2,dt + + character*32 maa1,maa2,maa3 +Index: med-fichier/tests/f/2.3.2/test10.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.2/test10.f ++++ med-fichier/tests/f/2.3.2/test10.f +@@ -26,7 +26,8 @@ C + implicit none + include 'med.hf' + C +- integer ret,fid,USER_INTERLACE,USER_MODE ++ integer*8 fid ++ integer ret,USER_INTERLACE,USER_MODE + real*8 a,b,p1,p2,dt + + character*32 maa1,maa2,maa3 +Index: med-fichier/tests/f/2.3.6/test10.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test10.f ++++ med-fichier/tests/f/2.3.6/test10.f +@@ -26,7 +26,8 @@ C + implicit none + include 'med.hf' + C +- integer ret,fid,USER_INTERLACE,USER_MODE ++ integer*8 fid ++ integer ret,USER_INTERLACE,USER_MODE + real*8 a,b,p1,p2,dt + + character*32 maa1,maa2,maa3 +Index: med-fichier/tests/f/2.3.6/test12.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test12.f ++++ med-fichier/tests/f/2.3.6/test12.f +@@ -28,7 +28,8 @@ C + include 'med.hf' + C + C +- integer cret,fid ++ integer*8 fid ++ integer cret + character*32 maa , equ + character*200 des + integer mdim ,ncor +Index: med-fichier/tests/f/2.3.6/test16.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test16.f ++++ med-fichier/tests/f/2.3.6/test16.f +@@ -30,7 +30,8 @@ C + include 'med.hf' + C + C +- integer cret, fid, mdim, nse2, ntr3 ++ integer*8 fid ++ integer cret, mdim, nse2, ntr3 + character*32 maa + parameter (mdim = 2,nse2 = 5,maa = "maa1", ntr3 = 2) + integer se2 (2*nse2) +Index: med-fichier/tests/f/2.3.6/test18.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test18.f ++++ med-fichier/tests/f/2.3.6/test18.f +@@ -28,7 +28,7 @@ C + include 'med.hf' + C + C +- integer fid ++ integer*8 fid + integer cret + integer maj,min,rel + +Index: med-fichier/tests/f/2.3.6/test23.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test23.f ++++ med-fichier/tests/f/2.3.6/test23.f +@@ -26,7 +26,8 @@ C + implicit none + include 'med.hf' + C +- integer cret, fid,mdim ++ integer*8 fid ++ integer cret, mdim + parameter (mdim = 3) + character*32 maa + integer ni, n +Index: med-fichier/tests/f/2.3.6/test24.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test24.f ++++ med-fichier/tests/f/2.3.6/test24.f +@@ -27,7 +27,8 @@ C + implicit none + include 'med.hf' + C +- integer cret, fid,mdim,nmaa,npoly,i,j,k,taille ++ integer*8 fid ++ integer cret,mdim,nmaa,npoly,i,j,k,taille + character*32 maa + character*200 desc + integer ni, n +Index: med-fichier/tests/f/2.3.6/test25.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test25.f ++++ med-fichier/tests/f/2.3.6/test25.f +@@ -26,7 +26,8 @@ C + implicit none + include 'med.hf' + C +- integer cret, fid,mdim ++ integer*8 fid ++ integer cret,mdim + parameter (mdim = 3) + character*32 maa + integer n +Index: med-fichier/tests/f/2.3.6/test26.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test26.f ++++ med-fichier/tests/f/2.3.6/test26.f +@@ -27,7 +27,8 @@ C + implicit none + include 'med.hf' + C +- integer cret,fid,mdim,nmaa,npoly,i,j,k,l ++ integer*8 fid ++ integer cret,mdim,nmaa,npoly,i,j,k,l + integer nfaces, nnoeuds + integer ind1, ind2 + character*32 maa +Index: med-fichier/tests/f/2.3.6/test27.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test27.f ++++ med-fichier/tests/f/2.3.6/test27.f +@@ -28,7 +28,8 @@ C + include 'med.hf' + C + C +- integer cret, fid ++ integer*8 fid ++ integer cret + C ** la dimension du maillage ** + integer mdim + C ** nom du maillage de longueur maxi MED_TAILLE_NOM ** +Index: med-fichier/tests/f/2.3.6/test28.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test28.f ++++ med-fichier/tests/f/2.3.6/test28.f +@@ -28,7 +28,8 @@ C + include 'med.hf' + C + C +- integer cret, fid,i,j ++ integer*8 fid ++ integer cret,i,j + C ** la dimension du maillage ** + integer mdim,nind,nmaa,type,quoi,rep,typmaa + C ** nom du maillage de longueur maxi MED_TAILLE_NOM ** +Index: med-fichier/tests/f/2.3.6/test29.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test29.f ++++ med-fichier/tests/f/2.3.6/test29.f +@@ -28,7 +28,8 @@ C + include 'med.hf' + C + C +- integer cret,fid, domdst ++ integer*8 fid ++ integer cret, domdst + character*32 maa , jnt, maadst + character*200 des + integer mdim ,ncor +Index: med-fichier/tests/f/2.3.6/test31.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test31.f ++++ med-fichier/tests/f/2.3.6/test31.f +@@ -28,7 +28,8 @@ C + include 'med.hf' + C + C +- integer cret,fid ++ integer*8 fid ++ integer cret + character*32 maa + character*200 des + integer nmaa, mdim , nnoe, type, ind +Index: med-fichier/tests/f/2.3.6/test32.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test32.f ++++ med-fichier/tests/f/2.3.6/test32.f +@@ -28,7 +28,8 @@ C + include 'med.hf' + C + C +- integer cret,fid ++ integer*8 fid ++ integer cret + character*32 maa + character*200 des + integer nmaa, mdim , nnoe,type +Index: med-fichier/tests/f/2.3.6/test33.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test33.f ++++ med-fichier/tests/f/2.3.6/test33.f +@@ -29,7 +29,8 @@ C + include 'med.hf' + C + C +- integer cret,fid ++ integer*8 fid ++ integer cret + character*32 maa + character*200 desc + integer nmaa,mdim,type,narr +Index: med-fichier/tests/f/2.3.6/test4.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test4.f ++++ med-fichier/tests/f/2.3.6/test4.f +@@ -27,7 +27,8 @@ C + include 'med.hf' + C + C +- integer cret, fid ++ integer*8 fid ++ integer cret + + C ** la dimension du maillage ** + integer mdim +Index: med-fichier/tests/f/2.3.6/test6.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test6.f ++++ med-fichier/tests/f/2.3.6/test6.f +@@ -27,7 +27,8 @@ C + include 'med.hf' + C + C +- integer cret, fid ++ integer*8 fid ++ integer cret + + integer mdim,nse2,ntr3 + parameter (nse2 = 5, ntr3 = 2, mdim = 2) +Index: med-fichier/tests/f/2.3.6/test8.f +=================================================================== +--- med-fichier.orig/tests/f/2.3.6/test8.f ++++ med-fichier/tests/f/2.3.6/test8.f +@@ -26,7 +26,8 @@ C + implicit none + include 'med.hf' + C +- integer cret, fid ++ integer*8 fid ++ integer cret + + character*32 maa + integer mdim +Index: med-fichier/tests/f/test12.f +=================================================================== +--- med-fichier.orig/tests/f/test12.f ++++ med-fichier/tests/f/test12.f +@@ -28,7 +28,8 @@ C + include 'med.hf' + C + C +- integer cret,fid ++ integer*8 fid ++ integer cret + character*64 maa , equ + character*200 des + integer mdim ,ncor, sdim +Index: med-fichier/tests/f/test16.f +=================================================================== +--- med-fichier.orig/tests/f/test16.f ++++ med-fichier/tests/f/test16.f +@@ -30,7 +30,8 @@ C + include 'med.hf' + C + C +- integer cret, fid, mdim, nse2, ntr3, sdim ++ integer*8 fid ++ integer cret, mdim, nse2, ntr3, sdim + character*64 maa + parameter (mdim = 2,nse2 = 5,maa = "maa1", ntr3 = 2, sdim=2) + integer se2 (2*nse2) +Index: med-fichier/tests/f/test18.f +=================================================================== +--- med-fichier.orig/tests/f/test18.f ++++ med-fichier/tests/f/test18.f +@@ -28,7 +28,7 @@ C + include 'med.hf' + C + C +- integer fid ++ integer*8 fid + integer cret + integer maj,min,rel + integer hdfok, medok +Index: med-fichier/tests/f/test23.f +=================================================================== +--- med-fichier.orig/tests/f/test23.f ++++ med-fichier/tests/f/test23.f +@@ -26,7 +26,8 @@ C + implicit none + include 'med.hf' + C +- integer cret, fid,mdim,sdim ++ integer*8 fid ++ integer cret,mdim,sdim + parameter (mdim = 2, sdim = 2) + character*64 maa + integer ni, n +Index: med-fichier/tests/f/test24.f +=================================================================== +--- med-fichier.orig/tests/f/test24.f ++++ med-fichier/tests/f/test24.f +@@ -27,7 +27,8 @@ C + implicit none + include 'med.hf' + C +- integer cret, fid,mdim,nmaa,npoly,i,j,k,taille ++ integer*8 fid ++ integer cret,mdim,nmaa,npoly,i,j,k,taille + integer edim,nstep,stype,atype, chgt, tsf + character*64 maa + character*200 desc +Index: med-fichier/tests/f/test25.f +=================================================================== +--- med-fichier.orig/tests/f/test25.f ++++ med-fichier/tests/f/test25.f +@@ -26,7 +26,8 @@ C + implicit none + include 'med.hf' + C +- integer cret, fid,mdim, sdim ++ integer*8 fid ++ integer cret,mdim, sdim + parameter (mdim = 3, sdim = 3) + character*64 maa + integer n +Index: med-fichier/tests/f/test26.f +=================================================================== +--- med-fichier.orig/tests/f/test26.f ++++ med-fichier/tests/f/test26.f +@@ -27,7 +27,8 @@ C + implicit none + include 'med.hf' + C +- integer cret,fid,mdim,nmaa,npoly,i,j,k,l,nfindex ++ integer*8 fid ++ integer cret,mdim,nmaa,npoly,i,j,k,l,nfindex + integer edim,nstep,stype,atype, chgt, tsf + integer nfaces, nnoeuds + integer ind1, ind2 +Index: med-fichier/tests/f/test27.f +=================================================================== +--- med-fichier.orig/tests/f/test27.f ++++ med-fichier/tests/f/test27.f +@@ -28,7 +28,8 @@ C + include 'med.hf' + C + C +- integer cret, fid ++ integer*8 fid ++ integer cret + C ** la dimension du maillage ** + integer mdim,sdim + C ** nom du maillage de longueur maxi MED_TAILLE_NOM ** +Index: med-fichier/tests/f/test28.f +=================================================================== +--- med-fichier.orig/tests/f/test28.f ++++ med-fichier/tests/f/test28.f +@@ -28,7 +28,8 @@ C + include 'med.hf' + C + C +- integer cret, fid,i,j ++ integer*8 fid ++ integer cret,i,j + C ** la dimension du maillage ** + integer mdim,nind,nmaa,type,quoi,rep,typmaa + integer edim,nstep,stype,atype, chgt, tsf +Index: med-fichier/tests/f/test29.f +=================================================================== +--- med-fichier.orig/tests/f/test29.f ++++ med-fichier/tests/f/test29.f +@@ -28,7 +28,8 @@ C + include 'med.hf' + C + C +- integer cret,fid, domdst ++ integer*8 fid ++ integer cret,domdst + character*64 maa , jnt, maadst + character*200 des + integer mdim ,ncor +Index: med-fichier/tests/f/test31.f +=================================================================== +--- med-fichier.orig/tests/f/test31.f ++++ med-fichier/tests/f/test31.f +@@ -28,7 +28,8 @@ C + include 'med.hf' + C + C +- integer cret,fid ++ integer*8 fid ++ integer cret + character*64 maa + character*200 des + integer nmaa, mdim , nnoe, type, ind,sdim +Index: med-fichier/tests/f/test32.f +=================================================================== +--- med-fichier.orig/tests/f/test32.f ++++ med-fichier/tests/f/test32.f +@@ -28,7 +28,8 @@ C + include 'med.hf' + C + C +- integer cret,fid ++ integer*8 fid ++ integer cret + character*64 maa + character*200 des + integer nmaa, mdim ,nnoe,type,sdim +Index: med-fichier/tests/f/test33.f +=================================================================== +--- med-fichier.orig/tests/f/test33.f ++++ med-fichier/tests/f/test33.f +@@ -29,7 +29,8 @@ C + include 'med.hf' + C + C +- integer cret,fid ++ integer*8 fid ++ integer cret + character*64 maa + character*200 desc + integer nmaa,mdim,type,narr,chgt,tsf +Index: med-fichier/tests/f/test6.f +=================================================================== +--- med-fichier.orig/tests/f/test6.f ++++ med-fichier/tests/f/test6.f +@@ -27,7 +27,8 @@ C + include 'med.hf' + C + C +- integer cret, fid ++ integer*8 fid ++ integer cret + + integer mdim,nse2,ntr3,sdim + parameter (nse2=5, ntr3=2, mdim=2, sdim=2) +Index: med-fichier/tests/f/test8.f +=================================================================== +--- med-fichier.orig/tests/f/test8.f ++++ med-fichier/tests/f/test8.f +@@ -26,7 +26,8 @@ C + implicit none + include 'med.hf' + C +- integer cret, fid ++ integer*8 fid ++ integer cret + + character*64 maa + integer mdim, sdim +Index: med-fichier/src/cfi/medlinkcf.c +=================================================================== +--- med-fichier.orig/src/cfi/medlinkcf.c ++++ med-fichier/src/cfi/medlinkcf.c +@@ -72,10 +72,10 @@ nmlnfliw(med_idt *fid, char *mname, med_ + + #ifdef PPRO_NT + med_int +-MLNFNLN(med_int *fid) ++MLNFNLN(med_idt *fid) + #else + med_int +-nmlnfnln(med_int *fid) ++nmlnfnln(med_idt *fid) + #endif + { + med_int _ret; +@@ -89,11 +89,11 @@ nmlnfnln(med_int *fid) + + #ifdef PPRO_NT + med_int +-MLNFLNI(med_int *fid, med_int *it, char*mname, unsigned int bidon1, ++MLNFLNI(med_idt *fid, med_int *it, char*mname, unsigned int bidon1, + med_int *lsize) + #else + med_int +-nmlnflni(med_int *fid, med_int *it, char*mname, med_int *lsize) ++nmlnflni(med_idt *fid, med_int *it, char*mname, med_int *lsize) + #endif + { + med_int _ret; +@@ -111,10 +111,10 @@ nmlnflni(med_int *fid, med_int *it, char + + #ifdef PPRO_NT + med_int +-MLNFLAI(med_int *fid, char*mname, unsigned int bidon1, med_int *mnamelen, med_int *lsize) ++MLNFLAI(med_idt *fid, char*mname, unsigned int bidon1, med_int *mnamelen, med_int *lsize) + #else + med_int +-nmlnflai(med_int *fid, char*mname, med_int *mnamelen, med_int *lsize) ++nmlnflai(med_idt *fid, char*mname, med_int *mnamelen, med_int *lsize) + #endif + { + med_int _ret; +Index: med-fichier/src/cfi/medprofilecf.c +=================================================================== +--- med-fichier.orig/src/cfi/medprofilecf.c ++++ med-fichier/src/cfi/medprofilecf.c +@@ -67,10 +67,10 @@ nmpffprw(med_idt *fid, char *pname, med_ + + #ifdef PPRO_NT + med_int +-MPFFNPF(med_int *fid) ++MPFFNPF(med_idt *fid) + #else + med_int +-nmpffnpf(med_int *fid) ++nmpffnpf(med_idt *fid) + #endif + { + med_int _ret; +@@ -84,11 +84,11 @@ nmpffnpf(med_int *fid) + + #ifdef PPRO_NT + med_int +-MPFFPFI(med_int *fid, med_int *it, char*pname, unsigned int bidon1, ++MPFFPFI(med_idt *fid, med_int *it, char*pname, unsigned int bidon1, + med_int *psize) + #else + med_int +-nmpffpfi(med_int *fid, med_int *it, char*pname, med_int *psize) ++nmpffpfi(med_idt *fid, med_int *it, char*pname, med_int *psize) + #endif + { + med_int _ret; +@@ -107,11 +107,11 @@ nmpffpfi(med_int *fid, med_int *it, char + + #ifdef PPRO_NT + med_int +-MPFFPSN(med_int *fid, char*pname, unsigned int bidon1, med_int *pnamelen, ++MPFFPSN(med_idt *fid, char*pname, unsigned int bidon1, med_int *pnamelen, + med_int *psize) + #else + med_int +-nmpffpsn(med_int *fid, char*pname, med_int *pnamelen, med_int *psize) ++nmpffpsn(med_idt *fid, char*pname, med_int *pnamelen, med_int *psize) + #endif + { + med_int _ret=0; +Index: med-fichier/src/cfi/medlocalizationcf.c +=================================================================== +--- med-fichier.orig/src/cfi/medlocalizationcf.c ++++ med-fichier/src/cfi/medlocalizationcf.c +@@ -88,10 +88,10 @@ nmlcflow(med_idt *fid, char *lname,med_i + + #ifdef PPRO_NT + med_int +-MLCFNLC(med_int *fid) ++MLCFNLC(med_idt *fid) + #else + med_int +-nmlcfnlc(med_int *fid) ++nmlcfnlc(med_idt *fid) + #endif + { + med_int _ret; +@@ -105,14 +105,14 @@ nmlcfnlc(med_int *fid) + + #ifdef PPRO_NT + med_int +-MLCFLCI(med_int *fid, med_int *it, char*lname, unsigned int bidon1, ++MLCFLCI(med_idt *fid, med_int *it, char*lname, unsigned int bidon1, + med_int *gtype, med_int *sdim, med_int nip, + char * giname, unsigned int bidon2, + char * isname, unsigned int bidon3, + med_int *nsmc, med_int *sgtype) + #else + med_int +-nmlcflci(med_int *fid, med_int *it, char *lname, med_int *gtype, med_int *sdim, ++nmlcflci(med_idt *fid, med_int *it, char *lname, med_int *gtype, med_int *sdim, + med_int *nip,char * giname, char * isname, + med_int *nsmc, med_int *sgtype) + +@@ -147,14 +147,14 @@ nmlcflci(med_int *fid, med_int *it, char + + #ifdef PPRO_NT + med_int +-MLCFLNI(med_int *fid, char*lname, unsigned int bidon1, med_int *lnamelen, ++MLCFLNI(med_idt *fid, char*lname, unsigned int bidon1, med_int *lnamelen, + med_int *gtype, med_int *sdim, med_int nip, + char * giname, unsigned int bidon2, + char * isname, unsigned int bidon3, + med_int *nsmc, med_int *sgtype) + #else + med_int +-nmlcflni(med_int *fid, char *lname, med_int *lnamelen, med_int *gtype, med_int *sdim, ++nmlcflni(med_idt *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 +Index: med-fichier/tests/parallel/getBlocksOfEntitiesPartition.c +=================================================================== +--- med-fichier.orig/tests/parallel/getBlocksOfEntitiesPartition.c ++++ med-fichier/tests/parallel/getBlocksOfEntitiesPartition.c +@@ -71,7 +71,7 @@ void getContinuousBlocksOfEntities(const + } + ++(*start); + *lastusedrank=_lastusedrank; +- printf("My rank %d , start %l , stride %l , blocksize %l , count %l , lastblocksize %l\n", ++ printf("My rank %d , start %lld , stride %lld , blocksize %lld , count %lld , lastblocksize %lld\n", + myrank,*start,*stride,*blocksize,*count,*lastblocksize); + return; + } +Index: med-fichier/tests/parallel/filterBlockOfentities.c +=================================================================== +--- med-fichier.orig/tests/parallel/filterBlockOfentities.c ++++ med-fichier/tests/parallel/filterBlockOfentities.c +@@ -87,7 +87,7 @@ typedef struct { + + + +-med_err generateFieldFile( const med_size nentities, const med_size nvaluesperentity, const med_size nconstituentpervalue, ++med_err generateFieldFile( const med_int nentities, const med_size nvaluesperentity, const med_size nconstituentpervalue, + const med_switch_mode constituentmode,GetBlocksOfEntitiesType getBlockOfEntities, const med_int nbblocksperproc, + GenerateDataType generateDatas, + const med_storage_mode storagemode, const med_size profilearraysize, const char * const fieldnameprefix, COM_info * const cominfo ) { +@@ -410,7 +410,7 @@ int main (int argc, char **argv) + MPI_Comm_rank(MPI_COMM_WORLD, &(_cominfo.mpi_rank)); + + med_size _nbblocksperproc = 0; +- int _nentities = 0; ++ med_int _nentities = 0; + int _nvaluesperentity = 0; + int _nconstituentpervalue = 0; + +Index: med-fichier/tests/parallel/generateFilterArray.c +=================================================================== +--- med-fichier.orig/tests/parallel/generateFilterArray.c ++++ med-fichier/tests/parallel/generateFilterArray.c +@@ -27,7 +27,7 @@ + + static int cmp(const med_int *p1, const med_int *p2) { return *p1-*p2; } + +-med_err generateFilterArray( const med_size nentities, const med_size nvaluesperentity, const med_size nconstituentpervalue, ++med_err generateFilterArray( const med_int nentities, const med_size nvaluesperentity, const med_size nconstituentpervalue, + const med_size profilearraysize, const med_int * const profilearray, + med_int * const nentitiesfiltered, med_int **filterarray ) { + +Index: med-fichier/tests/parallel/generateFilterArray.h +=================================================================== +--- med-fichier.orig/tests/parallel/generateFilterArray.h ++++ med-fichier/tests/parallel/generateFilterArray.h +@@ -22,7 +22,7 @@ + #include <med.h> + #define MESGERR 1 + +-med_err generateFilterArray( const med_size nentities, const med_size nvaluesperentity, const med_size nconstituentpervalue, ++med_err generateFilterArray( const med_int nentities, const med_size nvaluesperentity, const med_size nconstituentpervalue, + const med_size profilearraysize, const med_int * const profilearray, + med_int * const nentitiesfiltered, med_int **filterarray ); + +Index: med-fichier/config/med_check_hdf5.m4 +=================================================================== +--- med-fichier.orig/config/med_check_hdf5.m4 ++++ med-fichier/config/med_check_hdf5.m4 +@@ -134,12 +134,12 @@ AC_REQUIRE([AC_PROG_GREP]) + H5_VER_MINOR=` grep '#define *H5_VERS_MINOR' $HDF5_ABS_PATH | sed 's/^.*H5_VERS_MINOR[[ \t]]*\([0-9]*\)[[ \t]]*.*$/\1/g' ` + H5_VER_RELEASE=`grep '#define *H5_VERS_RELEASE' $HDF5_ABS_PATH | sed 's/^.*H5_VERS_RELEASE[[ \t]]*\([0-9]*\)[[ \t]]*.*$/\1/g' ` + HDF5_VERSION=` expr 10000 \* ${H5_VER_MAJOR} + 100 \* ${H5_VER_MINOR} + ${H5_VER_RELEASE} ` +- test "0${HDF5_VERSION}" -gt "10899" || test "0${HDF5_VERSION}" -lt "10811" && AC_MSG_ERROR([ +-This HDF5 version ${H5_VER_MAJOR}.${H5_VER_MINOR}.${H5_VER_RELEASE} must not be used with med-fichier${MED_NUM_MAJEUR}.${MED_NUM_MINEUR}.${MED_NUM_RELEASE}. +-The HDF5 library version used by med-fichier${MED_NUM_MAJEUR}.y.z MUST NOT be > 1.8 and have to be at least ${HDF_VERSION_REF}. +-DO NOT TRY TO COMPILE med-fichier${MED_NUM_MAJEUR}.${MED_NUM_MINEUR}.${MED_NUM_RELEASE} version with an HDF5 library which would generate an hdf5 file not compliant with HDF5-1.8.z library. +-This would BREAK med-fichier compatibility between files with the same revision number ! +- ]) ++# test "0${HDF5_VERSION}" -gt "10899" || test "0${HDF5_VERSION}" -lt "10811" && AC_MSG_ERROR([ ++#This HDF5 version ${H5_VER_MAJOR}.${H5_VER_MINOR}.${H5_VER_RELEASE} must not be used with med-fichier${MED_NUM_MAJEUR}.${MED_NUM_MINEUR}.${MED_NUM_RELEASE}. ++#The HDF5 library version used by med-fichier${MED_NUM_MAJEUR}.y.z MUST NOT be > 1.8 and have to be at least ${HDF_VERSION_REF}. ++#DO NOT TRY TO COMPILE med-fichier${MED_NUM_MAJEUR}.${MED_NUM_MINEUR}.${MED_NUM_RELEASE} version with an HDF5 library which would generate an hdf5 file not compliant with HDF5-1.8.z library. ++#This would BREAK med-fichier compatibility between files with the same revision number ! ++# ]) + else + ## In case user explicitly ask to not use hdf5 ! + AC_MSG_WARN([Can't compile MED without hdf5]) +Index: med-fichier/src/hdfi/_MEDmemFileOpen.c +=================================================================== +--- med-fichier.orig/src/hdfi/_MEDmemFileOpen.c ++++ med-fichier/src/hdfi/_MEDmemFileOpen.c +@@ -435,7 +435,7 @@ med_idt _MEDmemFileOpen(const char * con + } + + #if H5_VERS_MINOR > 8 +-#error "Don't forget to change the compatibility version of the library !" ++#warning "Don't forget to change the compatibility version of the library !" + #endif + if ( H5Pset_libver_bounds( _fapl, H5F_LIBVER_18, H5F_LIBVER_18) ) { + MED_ERR_(_fid,MED_ERR_INIT,MED_ERR_PROPERTY,MED_ERR_FILEVERSION_MSG); +Index: med-fichier/src/cfi/filecf.c +=================================================================== +--- med-fichier.orig/src/cfi/filecf.c ++++ med-fichier/src/cfi/filecf.c +@@ -331,14 +331,14 @@ nmfifcom(const char const *name, + + + #ifdef PPRO_NT +-med_int ++med_idt + MFIFOMN (med_idt *fid, + char *fname, + unsigned int bidon, + med_int *len, + med_int *class) + #else +-med_int ++med_idt + nmfifomn(med_idt *fid, + char *fname, + med_int *len, +@@ -346,14 +346,14 @@ nmfifomn(med_idt *fid, + #endif + { + char *_fn; +- med_int _ret; ++ med_idt _ret; + med_class _class = (med_class) *class; + + _fn = _MED2cstring((char *) fname, (int) *len); + if (!_fn) + return(-1); + +- _ret = (med_int) MEDfileObjectsMount(*fid, _fn, _class ); ++ _ret = MEDfileObjectsMount(*fid, _fn, _class ); + + _MEDcstringFree(_fn); + +Index: med-fichier/tests/f/3.2.1/test10.f +=================================================================== +--- med-fichier.orig/tests/f/3.2.1/test10.f ++++ med-fichier/tests/f/3.2.1/test10.f +@@ -26,7 +26,8 @@ C + implicit none + include 'med.hf' + C +- integer ret,fid,USER_INTERLACE,USER_MODE ++ integer*8 fid ++ integer ret,USER_INTERLACE,USER_MODE + real*8 a,b,p1,p2,dt + + character*64 maa1,maa2,maa3 +Index: med-fichier/configure.ac +=================================================================== +--- med-fichier.orig/configure.ac ++++ med-fichier/configure.ac +@@ -25,8 +25,8 @@ AC_SUBST(MED_NUM_RELEASE) + #med_check_hdf5.m4 + HDF_VERSION_REF=5-1.8.11 + HDF_VERSION_MAJOR_REF=1 +-HDF_VERSION_MINOR_REF=8 +-HDF_VERSION_RELEASE_REF=11 ++HDF_VERSION_MINOR_REF=10 ++HDF_VERSION_RELEASE_REF=0 + AC_SUBST(HDF_VERSION_REF) + AC_SUBST(HDF_VERSION_MAJOR_REF) + AC_SUBST(HDF_VERSION_MINOR_REF) +Index: med-fichier/src/ci/MEDfileObjectsMount.c +=================================================================== +--- med-fichier.orig/src/ci/MEDfileObjectsMount.c ++++ med-fichier/src/ci/MEDfileObjectsMount.c +@@ -52,7 +52,7 @@ MEDfileObjectsMount(const med_idt + if ( func != (MedFuncType) NULL ) + func (dummy, + fid, +- 0, ++ (med_idt) 0, + mountfilename, + medclass, + &fret); +Index: med-fichier/include/2.3.6/med_utils.h.in +=================================================================== +--- med-fichier.orig/include/2.3.6/med_utils.h.in ++++ med-fichier/include/2.3.6/med_utils.h.in +@@ -234,7 +234,7 @@ + fprintf(stderr,"%s = %llu\n",#entier,entier) ;\ + fflush(stderr) ;\ + } +-# define ISCRUTE_id(entier) ISCRUTE_int(entier) ++# define ISCRUTE_id(entier) ISCRUTE_llong(entier) + # define RSCRUTE(reel) {\ + ICI ;\ + fprintf(stderr,"%s = %f\n",#reel,reel) ;\ +Index: med-fichier/include/med_utils.h.in +=================================================================== +--- med-fichier.orig/include/med_utils.h.in ++++ med-fichier/include/med_utils.h.in +@@ -251,7 +251,7 @@ + fprintf(stderr,"%s = %llu\n",#entier,entier) ;\ + fflush(stderr) ;\ + } +-# define ISCRUTE_id(entier) ISCRUTE_int(entier) ++# define ISCRUTE_id(entier) ISCRUTE_llong(entier) + # define RSCRUTE(reel) {\ + ICI ;\ + fprintf(stderr,"%s = %f\n",#reel,reel) ;\ |