diff --git a/med/PKGBUILD b/med/PKGBUILD
index 72c0ef737..15dcb69fd 100644
--- a/med/PKGBUILD
+++ b/med/PKGBUILD
@@ -1,10 +1,10 @@
 # Contributor: Oliver Goethel <deezy>
 
 pkgname=med
-pkgver=3.2.1
+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="http://www.code-aster.org/outils/med/"
+url="https://www.salome-platform.org/downloads"
 license=('LGPL')
 depends=('hdf5' 'openmpi' 'swig')
 makedepends=('gcc-fortran' 'coreutils' 'python2')
@@ -15,16 +15,16 @@ replaces=('med_fichier')
 backup=()
 arch=('x86_64')
 source=("http://files.salome-platform.org/Salome/other/${pkgname}-${pkgver}.tar.gz"
-        "patch-include_2.3.6_med.h.in"
-        "patch-include_med.h.in"
-        "patch-src_2.3.6_ci_MEDequivInfo.c"
-        "patch-int2long")
-md5sums=('4965899bb578229ba27c9bc5293c651e'
-         'b83949326d7ae0ca77a06822b754a329'
-         '14a151cea108388d7a3b4c62887169f6'
-         '8f0cbf6f08783a6ba68ff5ab240dd62e'
-         'be65d145b85ed5b19a709d9dee84b6d2')
- 
+        "hdf5-1.10-support.patch")
+md5sums=('4981a02fa50b1a487a022804512631ff'
+         '8fe2bc9bc5e6756351e1ff80e613dba3')
+
+prepare() {
+  cd "$pkgname-$pkgver"_SRC 
+  patch -p1 -i ../hdf5-1.10-support.patch
+  autoreconf -i
+}
+
 build() {
   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}"
@@ -34,30 +34,16 @@ build() {
   
   export PYTHON="$(which python2)"
 
-  cd ${srcdir}/${pkgname}-${pkgver} || return 1
- 
-  # patch H5public_extract.h.in
-  sed -i -e '/^#typedef/ s/#/\/\//' ./include/H5public_extract.h.in
-  
-  #patch for hdf5-1.10
-  patch -p0 < ${srcdir}/patch-include_2.3.6_med.h.in
-  patch -p0 < ${srcdir}/patch-include_med.h.in
-  patch -p0 < ${srcdir}/patch-src_2.3.6_ci_MEDequivInfo.c
-  patch -p0 < ${srcdir}/patch-int2long
- 
-  ./configure --with-f90=mpif90 --prefix=/usr --datadir=/usr/share/med --with-swig=yes || return 1
-  make || return 1
+  cd "${pkgname}-${pkgver}"_SRC 
+
+  ./configure --with-f90=mpif90 --prefix=/usr --datadir=/usr/share/med --with-swig=yes
+  make
 }
  
 package() {
-  cd ${srcdir}/${pkgname}-${pkgver} || return 1
+  cd "${pkgname}-${pkgver}"_SRC 
  
-  make DESTDIR=${pkgdir} install || return 1
-  # now move the testprograms to share, we don't want all the stuff in the bindir
-  cp -dpr --no-preserve=ownership ${pkgdir}/usr/bin/testc ${pkgdir}/usr/share/med/testc
-  cp -dpr --no-preserve=ownership ${pkgdir}/usr/bin/testf ${pkgdir}/usr/share/med/
-  cp -dpr --no-preserve=ownership ${pkgdir}/usr/bin/unittests ${pkgdir}/usr/share/med/
-  cp -dpr --no-preserve=ownership ${pkgdir}/usr/bin/usescases ${pkgdir}/usr/share/med/
-  rm -r ${pkgdir}/usr/bin/{usescases,unittests,testf,testc}
+  make DESTDIR=${pkgdir} install
+
 }
 
diff --git a/med/hdf5-1.10-support.patch b/med/hdf5-1.10-support.patch
new file mode 100644
index 000000000..355cf55c5
--- /dev/null
+++ b/med/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) ;\
diff --git a/med/patch-include_2.3.6_med.h.in b/med/patch-include_2.3.6_med.h.in
deleted file mode 100644
index 2602df9f7..000000000
--- a/med/patch-include_2.3.6_med.h.in
+++ /dev/null
@@ -1,14 +0,0 @@
---- include/2.3.6/med.h.in.orig	2014-10-09 08:12:57 UTC
-+++ include/2.3.6/med.h.in
-@@ -25,11 +25,7 @@ extern "C" {
- #endif
- 
- #define HDF5_VERSION (H5_VERS_MAJOR * 10000 + H5_VERS_MINOR * 100  + H5_VERS_RELEASE )
--#if HDF5_VERSION < 10607
--#define HDF5_SELECT_BUG (const hsize_t **)
--#else
- #define HDF5_SELECT_BUG
--#endif
- 
- 
- #define MED_NUM_MAJEUR 2 
diff --git a/med/patch-include_med.h.in b/med/patch-include_med.h.in
deleted file mode 100644
index c47a57c26..000000000
--- a/med/patch-include_med.h.in
+++ /dev/null
@@ -1,15 +0,0 @@
---- include/med.h.in.orig	2014-10-09 08:12:57 UTC
-+++ include/med.h.in
-@@ -27,12 +27,7 @@ extern "C" {
- 
- #define HDF5_VERSION (H5_VERS_MAJOR * 10000 + H5_VERS_MINOR * 100  + H5_VERS_RELEASE )
- 
--#if HDF5_VERSION < 10607
--/*TODO : A enlever après MAJ complète api hdf5-1.8 */
--#define HDF5_SELECT_BUG (const hsize_t **)
--#else
- #define HDF5_SELECT_BUG
--#endif
- 
- /*Le symbole H5F_LIBVER_18 n'existe pas dans hdf5-1.8.4 (uniquement à partir de la version 1.8.6)
-   Pour rester dans le modèle interne hdf introduit en 1.8 quelque soit les futurs modèles internes hdf
diff --git a/med/patch-int2long b/med/patch-int2long
deleted file mode 100644
index c7f9dccb0..000000000
--- a/med/patch-int2long
+++ /dev/null
@@ -1,108 +0,0 @@
-diff -Nur src.orig/2.3.6/hdfi/MEDattrNumEcrire.c src/2.3.6/hdfi/MEDattrNumEcrire.c
---- src.orig/2.3.6/hdfi/MEDattrNumEcrire.c	2015-09-07 18:55:34.000000000 +0200
-+++ src/2.3.6/hdfi/MEDattrNumEcrire.c	2016-05-24 02:15:27.450098778 +0200
-@@ -36,7 +36,7 @@
- {
-   med_idt aid,attr;
-   med_err ret;
--  int type_hdf;
-+  long   type_hdf;
-   med_mode_acces MED_MODE_ACCES;
- 
-   if ( (MED_MODE_ACCES = _MEDmodeAcces(pere) ) == MED_UNDEF_MODE_ACCES ) {
-diff -Nur src.orig/hdfi/_MEDattributeNumRdByName.c src/hdfi/_MEDattributeNumRdByName.c
---- src.orig/hdfi/_MEDattributeNumRdByName.c	2015-09-07 18:55:16.000000000 +0200
-+++ src/hdfi/_MEDattributeNumRdByName.c	2016-05-24 02:15:27.443432111 +0200
-@@ -27,7 +27,7 @@
- {
-   med_idt _attid=0;
-   med_err _ret=-1;
--  int type_hdf;
-+  long   type_hdf;
- 
-   switch(type)
-     {
-diff -Nur src.orig/hdfi/_MEDattributeNumWrByName.c src/hdfi/_MEDattributeNumWrByName.c
---- src.orig/hdfi/_MEDattributeNumWrByName.c	2015-09-07 18:55:17.000000000 +0200
-+++ src/hdfi/_MEDattributeNumWrByName.c	2016-05-24 02:15:27.443432111 +0200
-@@ -32,7 +32,7 @@
- {
-   med_idt _attid=0,aid=0;
-   med_err _ret=-1;
--  int     type_hdf;
-+  long   type_hdf;
-   med_access_mode MED_ACCESS_MODE;
-   H5O_info_t      _oinfo;
- 
-diff -Nur src.orig/hdfi/_MEDattributeNumWr.c src/hdfi/_MEDattributeNumWr.c
---- src.orig/hdfi/_MEDattributeNumWr.c	2015-09-07 18:55:16.000000000 +0200
-+++ src/hdfi/_MEDattributeNumWr.c	2016-05-24 02:15:27.443432111 +0200
-@@ -32,7 +32,7 @@
- {
-   med_idt _attid=0,aid=0;
-   med_err _ret=-1;
--  int     type_hdf;
-+  long     type_hdf;
-   med_access_mode MED_ACCESS_MODE;
-   H5O_info_t      _oinfo;
- 
-diff -Nur src.orig/hdfi/_MEDattributeStringRdByName.c src/hdfi/_MEDattributeStringRdByName.c
---- src.orig/hdfi/_MEDattributeStringRdByName.c	2015-09-07 18:55:15.000000000 +0200
-+++ src/hdfi/_MEDattributeStringRdByName.c	2016-05-24 02:15:27.443432111 +0200
-@@ -29,7 +29,7 @@
- {
-   med_err _ret=-1;
-   med_idt _attid=0;
--  int     type_hdf=0;
-+  long   type_hdf=0;
- 
-   if ( (type_hdf = H5Tcopy(H5T_C_S1)) < 0) {
-     MED_ERR_(_ret,MED_ERR_CREATE,MED_ERR_HDFTYPE, MED_ERR_NAME_MSG );
-diff -Nur src.orig/hdfi/_MEDattributeStringWrByName.c src/hdfi/_MEDattributeStringWrByName.c
---- src.orig/hdfi/_MEDattributeStringWrByName.c	2015-09-07 18:55:16.000000000 +0200
-+++ src/hdfi/_MEDattributeStringWrByName.c	2016-05-24 02:15:27.443432111 +0200
-@@ -31,7 +31,7 @@
-   med_access_mode MED_ACCESS_MODE;
-   med_idt _attid=0,aid=0;
-   med_err _ret=-1;
--  int     type_hdf=0;
-+  long   type_hdf=0;
-   med_bool        _attmustbecreated= MED_FALSE;
-   hsize_t         _attsize=0;
-   med_size        _valsize=0;
-diff -Nur src.orig/hdfi/_MEDattributeStringWr.c src/hdfi/_MEDattributeStringWr.c
---- src.orig/hdfi/_MEDattributeStringWr.c	2015-09-07 18:55:17.000000000 +0200
-+++ src/hdfi/_MEDattributeStringWr.c	2016-05-24 02:15:27.443432111 +0200
-@@ -30,7 +30,7 @@
-   med_access_mode MED_ACCESS_MODE;
-   med_idt _attid=0,aid=0;
-   med_err _ret=-1;
--  int     type_hdf=0;
-+  long    type_hdf=0;
-   med_bool        _attmustbecreated= MED_FALSE;
-   hsize_t         _attsize=0;
-   med_size        _valsize=0;
-diff -Nur src.orig/hdfi/_MEDdatasetRd.c src/hdfi/_MEDdatasetRd.c
---- src.orig/hdfi/_MEDdatasetRd.c	2015-09-07 18:55:15.000000000 +0200
-+++ src/hdfi/_MEDdatasetRd.c	2016-05-24 02:15:27.443432111 +0200
-@@ -32,7 +32,7 @@
-   med_idt         _dataset=0, _dataspace=0;
-   med_size        _datasetsize[1]={0};
-   med_err         _ret=-1;
--  int             _hdftype=0;
-+  long            _hdftype=0;
-   int             _datasetsizeEqualTosizespace = 0;
-   med_access_mode _MED_ACCESS_MODE;
-   med_int         _nvaluesperentity=0,_nconstituentpervalue=0;
-diff -Nur src.orig/hdfi/_MEDdatasetWr.c src/hdfi/_MEDdatasetWr.c
---- src.orig/hdfi/_MEDdatasetWr.c	2015-09-07 18:55:15.000000000 +0200
-+++ src/hdfi/_MEDdatasetWr.c	2016-05-24 02:15:27.443432111 +0200
-@@ -30,7 +30,7 @@
-   med_idt         _dataset=0, _dataspace=0,_datadiskspace=0;
-   med_size        _datasetsize[1]={0};
-   med_err         _ret=-1;
--  int             _hdftype=0;
-+  long            _hdftype=0;
-   int             _datasetsizeEqualTosizespace = 0;
-   med_access_mode _MED_ACCESS_MODE;
-   med_int         _nvaluesperentity=0,_nconstituentpervalue=0;
\ No newline at end of file
diff --git a/med/patch-src_2.3.6_ci_MEDequivInfo.c b/med/patch-src_2.3.6_ci_MEDequivInfo.c
deleted file mode 100644
index 12006a1f3..000000000
--- a/med/patch-src_2.3.6_ci_MEDequivInfo.c
+++ /dev/null
@@ -1,11 +0,0 @@
---- src/2.3.6/ci/MEDequivInfo.c.orig	2014-10-09 08:12:59 UTC
-+++ src/2.3.6/ci/MEDequivInfo.c
-@@ -24,7 +24,7 @@
- #include <stdlib.h>
- 
- int
--MEDequivInfo(int fid, char *maa, int ind, char *eq, char *des)
-+MEDequivInfo(med_idt fid, char *maa, int ind, char *eq, char *des)
- {
-   med_idt eqid;
-   med_err ret;