@@ -, +, @@ 
 'long long int' instead of 'int'. This patch fixes MED where need be.
 Many thanks to upstream author Éric Fayolle who provided valuable
 help.
--- med-3.3.1_SRC/src/fi/medfile.f	
+++ med-3.3.1_SRC/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)
--- med-3.3.1_SRC/src/2.3.6/fi/entmaaf.f	
+++ med-3.3.1_SRC/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)
--- med-3.3.1_SRC/src/2.3.6/fi/equf.f	
+++ med-3.3.1_SRC/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)
--- med-3.3.1_SRC/src/2.3.6/fi/fichf.f	
+++ med-3.3.1_SRC/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)
--- med-3.3.1_SRC/src/2.3.6/fi/gauss.f	
+++ med-3.3.1_SRC/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 
--- med-3.3.1_SRC/src/2.3.6/fi/jntf.f	
+++ med-3.3.1_SRC/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     
--- med-3.3.1_SRC/src/2.3.6/fi/maaf.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/src/2.3.6/fi/prof.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/src/2.3.6/fi/resf_i.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/src/2.3.6/fi/scalaire.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/src/fi/medequivalence.f	
+++ med-3.3.1_SRC/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),
--- med-3.3.1_SRC/src/fi/medfamily.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/src/fi/medfield.f	
+++ med-3.3.1_SRC/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,
--- med-3.3.1_SRC/src/fi/medinterp.f	
+++ med-3.3.1_SRC/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)
--- med-3.3.1_SRC/src/fi/medjoint.f	
+++ med-3.3.1_SRC/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),
--- med-3.3.1_SRC/src/fi/medlink.f	
+++ med-3.3.1_SRC/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))
--- med-3.3.1_SRC/src/fi/medlocalization.f	
+++ med-3.3.1_SRC/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)
--- med-3.3.1_SRC/src/fi/medmesh.f	
+++ med-3.3.1_SRC/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(*)
--- med-3.3.1_SRC/src/fi/medparameter.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/src/fi/medprofile.f	
+++ med-3.3.1_SRC/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)
--- med-3.3.1_SRC/src/fi/medsupport.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/src/fi/medparfile.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.1v3.0/test2.f	
+++ med-3.3.1_SRC/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)
--- med-3.3.1_SRC/tests/f/2.3.2v3.0/test2.f	
+++ med-3.3.1_SRC/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)
--- med-3.3.1_SRC/tests/f/2.3.6/test1.f	
+++ med-3.3.1_SRC/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")  
--- med-3.3.1_SRC/tests/f/2.3.6/test19.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.6/test2.f	
+++ med-3.3.1_SRC/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 **
--- med-3.3.1_SRC/tests/f/2.3v3.0/test2.f	
+++ med-3.3.1_SRC/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)
--- med-3.3.1_SRC/tests/f/test1.f	
+++ med-3.3.1_SRC/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"
--- med-3.3.1_SRC/tests/f/test2.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDfile_1.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDfilter_1.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDfilter_2.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDinterp_1.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDinterp_2.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDinterp_3.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlink_1.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlink_2.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlink_3.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlocalization_1.f	
+++ med-3.3.1_SRC/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")
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlocalization_2.f	
+++ med-3.3.1_SRC/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")  
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlocalization_3.f	
+++ med-3.3.1_SRC/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")  
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDparameter_1.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDparameter_2.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDparameter_3.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDprofile_1.f	
+++ med-3.3.1_SRC/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")
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDprofile_2.f	
+++ med-3.3.1_SRC/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")
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_1.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_10.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_11.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_2.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_3.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_4.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_5.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_6.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_7.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_8.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_9.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDsupportMesh_1.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDsupportMesh_2.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/unittests/f/Unittest_MEDsupportMesh_3.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDfield_1.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDfield_4.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDmesh_1.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDmesh_10.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDmesh_4.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/src/2.3.6/fi/famf.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/src/2.3.6/fi/resf_r.f	
+++ med-3.3.1_SRC/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(*)
--- med-3.3.1_SRC/src/fi/medfilter.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/src/fi/medstructelement.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.6/test22.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/test22.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/src/cfi/meshcf.c	
+++ med-3.3.1_SRC/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,
--- med-3.3.1_SRC/tests/f/2.3.6/test14.f	
+++ med-3.3.1_SRC/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 ** 
--- med-3.3.1_SRC/tests/f/2.3.6/test20.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.6/test21.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.6/test3.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/test14.f	
+++ med-3.3.1_SRC/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 ** 
--- med-3.3.1_SRC/tests/f/test20.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/test21.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/test3.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/test10f.f	
+++ med-3.3.1_SRC/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
 
--- med-3.3.1_SRC/src/cfi/medequivalencecf.c	
+++ med-3.3.1_SRC/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)
--- med-3.3.1_SRC/src/cfi/medfamilycf.c	
+++ med-3.3.1_SRC/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,
--- med-3.3.1_SRC/src/cfi/medfieldcf.c	
+++ med-3.3.1_SRC/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, 
--- med-3.3.1_SRC/src/cfi/medfiltercf.c	
+++ med-3.3.1_SRC/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)
--- med-3.3.1_SRC/src/cfi/medinterpcf.c	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/src/cfi/medjointcf.c	
+++ med-3.3.1_SRC/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,
--- med-3.3.1_SRC/src/cfi/medparametercf.c	
+++ med-3.3.1_SRC/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
 {
--- med-3.3.1_SRC/src/cfi/medstructelementcf.c	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/src/cfi/medsupportcf.c	
+++ med-3.3.1_SRC/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; 
--- med-3.3.1_SRC/tests/f/test4.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.1/test10.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.2/test10.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.6/test10.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.6/test12.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.6/test16.f	
+++ med-3.3.1_SRC/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)
--- med-3.3.1_SRC/tests/f/2.3.6/test18.f	
+++ med-3.3.1_SRC/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
       
--- med-3.3.1_SRC/tests/f/2.3.6/test23.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.6/test24.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.6/test25.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.6/test26.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.6/test27.f	
+++ med-3.3.1_SRC/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  **
--- med-3.3.1_SRC/tests/f/2.3.6/test28.f	
+++ med-3.3.1_SRC/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  **
--- med-3.3.1_SRC/tests/f/2.3.6/test29.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.6/test31.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.6/test32.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.6/test33.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.6/test4.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/2.3.6/test6.f	
+++ med-3.3.1_SRC/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)
--- med-3.3.1_SRC/tests/f/2.3.6/test8.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/test12.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/test16.f	
+++ med-3.3.1_SRC/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)
--- med-3.3.1_SRC/tests/f/test18.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/test23.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/test24.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/test25.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/test26.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/test27.f	
+++ med-3.3.1_SRC/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  **
--- med-3.3.1_SRC/tests/f/test28.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/test29.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/test31.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/test32.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/test33.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/f/test6.f	
+++ med-3.3.1_SRC/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)
--- med-3.3.1_SRC/tests/f/test8.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/src/cfi/medlinkcf.c	
+++ med-3.3.1_SRC/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;
--- med-3.3.1_SRC/src/cfi/medprofilecf.c	
+++ med-3.3.1_SRC/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;
--- med-3.3.1_SRC/src/cfi/medlocalizationcf.c	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/tests/parallel/getBlocksOfEntitiesPartition.c	
+++ med-3.3.1_SRC/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;
 }
--- med-3.3.1_SRC/tests/parallel/filterBlockOfentities.c	
+++ med-3.3.1_SRC/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;
 
--- med-3.3.1_SRC/tests/parallel/generateFilterArray.c	
+++ med-3.3.1_SRC/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 ) {
 
--- med-3.3.1_SRC/tests/parallel/generateFilterArray.h	
+++ med-3.3.1_SRC/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 );
 
--- med-3.3.1_SRC/config/med_check_hdf5.m4	
+++ med-3.3.1_SRC/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])
--- med-3.3.1_SRC/src/hdfi/_MEDmemFileOpen.c	
+++ med-3.3.1_SRC/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);
--- med-3.3.1_SRC/src/cfi/filecf.c	
+++ med-3.3.1_SRC/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);
 
--- med-3.3.1_SRC/tests/f/3.2.1/test10.f	
+++ med-3.3.1_SRC/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
--- med-3.3.1_SRC/configure.ac	
+++ med-3.3.1_SRC/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)
--- med-3.3.1_SRC/src/ci/MEDfileObjectsMount.c	
+++ med-3.3.1_SRC/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);
--- a/config/cmake_files/medMacros.cmake	2018-07-06 12:05:53.178148554 +0200
+++ a/config/cmake_files/medMacros.cmake	2018-07-06 12:07:40.663148144 +0200
@@ -355,9 +355,9 @@ 
     ##
     ## Requires 1.8.x version
     ##
-    IF (NOT HDF_VERSION_MAJOR_REF EQUAL 1 OR NOT HDF_VERSION_MINOR_REF EQUAL 8)
-        MESSAGE(FATAL_ERROR "HDF5 version is ${HDF_VERSION_REF}. Only 1.8.x versions are supported.")
-    ENDIF()
+	#IF (NOT HDF_VERSION_MAJOR_REF EQUAL 1 OR NOT HDF_VERSION_MINOR_REF EQUAL 8)
+	#    MESSAGE(FATAL_ERROR "HDF5 version is ${HDF_VERSION_REF}. Only 1.8.x versions are supported.")
+	#ENDIF()
     ##
     ##