summarylogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuilhem Saurel2018-12-31 22:10:29 +0100
committerGuilhem Saurel2018-12-31 22:10:31 +0100
commit0427a8ba400fb3d23af7c3a07fcaae7b282db88d (patch)
tree8418c01fe8eff202978c9763bc790ca6edd7c9ea
parent874f32e48e960ebb0b291db24b711cf6d4f2d2b0 (diff)
downloadaur-0427a8ba400fb3d23af7c3a07fcaae7b282db88d.tar.gz
update to v4.0.0
- patch for hdf5-1.10 is no longer required, as its now supported upstream. - use cmake.
Diffstat
-rw-r--r--.SRCINFO16
-rw-r--r--PKGBUILD33
-rw-r--r--hdf5-1.10-support.patch7565
3 files changed, 16 insertions, 7598 deletions
diff --git a/.SRCINFO b/.SRCINFO
index a898bac454e2..099cae9b49b8 100644
--- a/.SRCINFO
+++ b/.SRCINFO
@@ -1,20 +1,18 @@
pkgbase = med
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 = 2
+ pkgver = 4.0.0
+ pkgrel = 1
url = https://www.salome-platform.org/downloads
arch = x86_64
license = LGPL
makedepends = gcc-fortran
- makedepends = python2
+ makedepends = python
+ makedepends = swig
+ makedepends = openmpi
depends = hdf5
- depends = openmpi
- depends = swig
optdepends = tk
- source = http://files.salome-platform.org/Salome/other/med-3.3.1.tar.gz
- source = hdf5-1.10-support.patch
- sha256sums = dd631ef813838bc7413ff0dd6461d7a0d725bcfababdf772ece67610a8d22588
- sha256sums = 55cf95f1a3b7abf529bb2ded6c9a491459623c830dc16518058ff53ab203291c
+ source = http://files.salome-platform.org/Salome/other/med-4.0.0.tar.gz
+ sha256sums = a474e90b5882ce69c5e9f66f6359c53b8b73eb448c5f631fa96e8cd2c14df004
pkgname = med
diff --git a/PKGBUILD b/PKGBUILD
index 713cc2fd4a1d..92b588ce91af 100644
--- a/PKGBUILD
+++ b/PKGBUILD
@@ -1,38 +1,23 @@
pkgname=med
-pkgver=3.3.1
-pkgrel=2
+pkgver=4.0.0
+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')
+depends=('hdf5')
+makedepends=('gcc-fortran' 'python' 'swig' 'openmpi')
optdepends=('tk')
arch=('x86_64')
-source=("http://files.salome-platform.org/Salome/other/${pkgname}-${pkgver}.tar.gz"
- "hdf5-1.10-support.patch")
-sha256sums=('dd631ef813838bc7413ff0dd6461d7a0d725bcfababdf772ece67610a8d22588'
- '55cf95f1a3b7abf529bb2ded6c9a491459623c830dc16518058ff53ab203291c')
-
-prepare () {
- cd ${srcdir}/${pkgname}-${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
-}
+source=("http://files.salome-platform.org/Salome/other/${pkgname}-${pkgver}.tar.gz")
+sha256sums=('a474e90b5882ce69c5e9f66f6359c53b8b73eb448c5f631fa96e8cd2c14df004')
build() {
- cd ${srcdir}/${pkgname}-${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
+ cd ${pkgname}-${pkgver}
+ cmake -DCMAKE_BUILD_TYPE=Release -DCMAKE_INSTALL_PREFIX=/usr -DCMAKE_INSTALL_LIBDIR=lib .
make
}
package() {
- cd ${srcdir}/${pkgname}-${pkgver}_SRC
+ cd ${pkgname}-${pkgver}
make DESTDIR=${pkgdir} install
}
diff --git a/hdf5-1.10-support.patch b/hdf5-1.10-support.patch
deleted file mode 100644
index 355cf55c56f2..000000000000
--- a/hdf5-1.10-support.patch
+++ /dev/null
@@ -1,7565 +0,0 @@
-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) ;\