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