Go to:
Gentoo Home
Documentation
Forums
Lists
Bugs
Planet
Store
Wiki
Get Gentoo!
Gentoo's Bugzilla – Attachment 541828 Details for
Bug 597768
new package: sci-libs/libmed (3.3.1)
Home
|
New
–
[Ex]
|
Browse
|
Search
|
Privacy Policy
|
[?]
|
Reports
|
Requests
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
libmed-3.3.1-hdf5-1.10-support.patch
libmed-3.3.1-hdf5-1.10-support.patch (text/plain), 228.75 KB, created by
Fabio Rossi
on 2018-07-30 23:07:55 UTC
(
hide
)
Description:
libmed-3.3.1-hdf5-1.10-support.patch
Filename:
MIME Type:
Creator:
Fabio Rossi
Created:
2018-07-30 23:07:55 UTC
Size:
228.75 KB
patch
obsolete
>Description: HDF5 1.10 introduces a major change: the hid_t type is now > 'long long int' instead of 'int'. This patch fixes MED where need be. > Many thanks to upstream author Éric Fayolle who provided valuable > help. >Author: Gilles Filippini <pini@debian.org> >Index: med-3.3.1_SRC/src/fi/medfile.f >=================================================================== >--- med-3.3.1_SRC.orig/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) >Index: med-3.3.1_SRC/src/2.3.6/fi/entmaaf.f >=================================================================== >--- med-3.3.1_SRC.orig/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) >Index: med-3.3.1_SRC/src/2.3.6/fi/equf.f >=================================================================== >--- med-3.3.1_SRC.orig/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) >Index: med-3.3.1_SRC/src/2.3.6/fi/fichf.f >=================================================================== >--- med-3.3.1_SRC.orig/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) >Index: med-3.3.1_SRC/src/2.3.6/fi/gauss.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/src/2.3.6/fi/jntf.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/src/2.3.6/fi/maaf.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/src/2.3.6/fi/prof.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/src/2.3.6/fi/resf_i.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/src/2.3.6/fi/scalaire.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/src/fi/medequivalence.f >=================================================================== >--- med-3.3.1_SRC.orig/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), >Index: med-3.3.1_SRC/src/fi/medfamily.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/src/fi/medfield.f >=================================================================== >--- med-3.3.1_SRC.orig/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, >Index: med-3.3.1_SRC/src/fi/medinterp.f >=================================================================== >--- med-3.3.1_SRC.orig/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) >Index: med-3.3.1_SRC/src/fi/medjoint.f >=================================================================== >--- med-3.3.1_SRC.orig/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), >Index: med-3.3.1_SRC/src/fi/medlink.f >=================================================================== >--- med-3.3.1_SRC.orig/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)) >Index: med-3.3.1_SRC/src/fi/medlocalization.f >=================================================================== >--- med-3.3.1_SRC.orig/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) >Index: med-3.3.1_SRC/src/fi/medmesh.f >=================================================================== >--- med-3.3.1_SRC.orig/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(*) >Index: med-3.3.1_SRC/src/fi/medparameter.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/src/fi/medprofile.f >=================================================================== >--- med-3.3.1_SRC.orig/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) >Index: med-3.3.1_SRC/src/fi/medsupport.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/src/fi/medparfile.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.1v3.0/test2.f >=================================================================== >--- med-3.3.1_SRC.orig/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) >Index: med-3.3.1_SRC/tests/f/2.3.2v3.0/test2.f >=================================================================== >--- med-3.3.1_SRC.orig/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) >Index: med-3.3.1_SRC/tests/f/2.3.6/test1.f >=================================================================== >--- med-3.3.1_SRC.orig/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") >Index: med-3.3.1_SRC/tests/f/2.3.6/test19.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.6/test2.f >=================================================================== >--- med-3.3.1_SRC.orig/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 ** >Index: med-3.3.1_SRC/tests/f/2.3v3.0/test2.f >=================================================================== >--- med-3.3.1_SRC.orig/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) >Index: med-3.3.1_SRC/tests/f/test1.f >=================================================================== >--- med-3.3.1_SRC.orig/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" >Index: med-3.3.1_SRC/tests/f/test2.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDfile_1.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDfilter_1.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDfilter_2.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDinterp_1.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDinterp_2.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDinterp_3.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlink_1.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlink_2.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlink_3.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlocalization_1.f >=================================================================== >--- med-3.3.1_SRC.orig/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") >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlocalization_2.f >=================================================================== >--- med-3.3.1_SRC.orig/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") >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlocalization_3.f >=================================================================== >--- med-3.3.1_SRC.orig/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") >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDparameter_1.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDparameter_2.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDparameter_3.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDprofile_1.f >=================================================================== >--- med-3.3.1_SRC.orig/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") >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDprofile_2.f >=================================================================== >--- med-3.3.1_SRC.orig/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") >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_1.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_10.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_11.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_2.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_3.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_4.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_5.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_6.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_7.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_8.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_9.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDsupportMesh_1.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDsupportMesh_2.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/unittests/f/Unittest_MEDsupportMesh_3.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDfield_1.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDfield_4.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDmesh_1.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDmesh_10.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDmesh_4.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/src/2.3.6/fi/famf.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/src/2.3.6/fi/resf_r.f >=================================================================== >--- med-3.3.1_SRC.orig/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(*) >Index: med-3.3.1_SRC/src/fi/medfilter.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/src/fi/medstructelement.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.6/test22.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/test22.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/src/cfi/meshcf.c >=================================================================== >--- med-3.3.1_SRC.orig/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, >Index: med-3.3.1_SRC/tests/f/2.3.6/test14.f >=================================================================== >--- med-3.3.1_SRC.orig/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 ** >Index: med-3.3.1_SRC/tests/f/2.3.6/test20.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.6/test21.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.6/test3.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/test14.f >=================================================================== >--- med-3.3.1_SRC.orig/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 ** >Index: med-3.3.1_SRC/tests/f/test20.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/test21.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/test3.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/test10f.f >=================================================================== >--- med-3.3.1_SRC.orig/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 > >Index: med-3.3.1_SRC/src/cfi/medequivalencecf.c >=================================================================== >--- med-3.3.1_SRC.orig/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) >Index: med-3.3.1_SRC/src/cfi/medfamilycf.c >=================================================================== >--- med-3.3.1_SRC.orig/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, >Index: med-3.3.1_SRC/src/cfi/medfieldcf.c >=================================================================== >--- med-3.3.1_SRC.orig/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, >Index: med-3.3.1_SRC/src/cfi/medfiltercf.c >=================================================================== >--- med-3.3.1_SRC.orig/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) >Index: med-3.3.1_SRC/src/cfi/medinterpcf.c >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/src/cfi/medjointcf.c >=================================================================== >--- med-3.3.1_SRC.orig/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, >Index: med-3.3.1_SRC/src/cfi/medparametercf.c >=================================================================== >--- med-3.3.1_SRC.orig/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 > { >Index: med-3.3.1_SRC/src/cfi/medstructelementcf.c >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/src/cfi/medsupportcf.c >=================================================================== >--- med-3.3.1_SRC.orig/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; >Index: med-3.3.1_SRC/tests/f/test4.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.1/test10.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.2/test10.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.6/test10.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.6/test12.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.6/test16.f >=================================================================== >--- med-3.3.1_SRC.orig/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) >Index: med-3.3.1_SRC/tests/f/2.3.6/test18.f >=================================================================== >--- med-3.3.1_SRC.orig/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 > >Index: med-3.3.1_SRC/tests/f/2.3.6/test23.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.6/test24.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.6/test25.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.6/test26.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.6/test27.f >=================================================================== >--- med-3.3.1_SRC.orig/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 ** >Index: med-3.3.1_SRC/tests/f/2.3.6/test28.f >=================================================================== >--- med-3.3.1_SRC.orig/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 ** >Index: med-3.3.1_SRC/tests/f/2.3.6/test29.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.6/test31.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.6/test32.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.6/test33.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.6/test4.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/2.3.6/test6.f >=================================================================== >--- med-3.3.1_SRC.orig/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) >Index: med-3.3.1_SRC/tests/f/2.3.6/test8.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/test12.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/test16.f >=================================================================== >--- med-3.3.1_SRC.orig/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) >Index: med-3.3.1_SRC/tests/f/test18.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/test23.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/test24.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/test25.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/test26.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/test27.f >=================================================================== >--- med-3.3.1_SRC.orig/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 ** >Index: med-3.3.1_SRC/tests/f/test28.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/test29.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/test31.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/test32.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/test33.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/f/test6.f >=================================================================== >--- med-3.3.1_SRC.orig/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) >Index: med-3.3.1_SRC/tests/f/test8.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/src/cfi/medlinkcf.c >=================================================================== >--- med-3.3.1_SRC.orig/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; >Index: med-3.3.1_SRC/src/cfi/medprofilecf.c >=================================================================== >--- med-3.3.1_SRC.orig/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; >Index: med-3.3.1_SRC/src/cfi/medlocalizationcf.c >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/tests/parallel/getBlocksOfEntitiesPartition.c >=================================================================== >--- med-3.3.1_SRC.orig/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; > } >Index: med-3.3.1_SRC/tests/parallel/filterBlockOfentities.c >=================================================================== >--- med-3.3.1_SRC.orig/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; > >Index: med-3.3.1_SRC/tests/parallel/generateFilterArray.c >=================================================================== >--- med-3.3.1_SRC.orig/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 ) { > >Index: med-3.3.1_SRC/tests/parallel/generateFilterArray.h >=================================================================== >--- med-3.3.1_SRC.orig/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 ); > >Index: med-3.3.1_SRC/config/med_check_hdf5.m4 >=================================================================== >--- med-3.3.1_SRC.orig/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]) >Index: med-3.3.1_SRC/src/hdfi/_MEDmemFileOpen.c >=================================================================== >--- med-3.3.1_SRC.orig/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); >Index: med-3.3.1_SRC/src/cfi/filecf.c >=================================================================== >--- med-3.3.1_SRC.orig/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); > >Index: med-3.3.1_SRC/tests/f/3.2.1/test10.f >=================================================================== >--- med-3.3.1_SRC.orig/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 >Index: med-3.3.1_SRC/configure.ac >=================================================================== >--- med-3.3.1_SRC.orig/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) >Index: med-3.3.1_SRC/src/ci/MEDfileObjectsMount.c >=================================================================== >--- med-3.3.1_SRC.orig/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.new 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() > ## > ## >
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
Attachments on
bug 597768
:
450984
|
450986
|
450988
|
450990
|
496624
|
496626
|
496628
|
516340
|
516342
|
516344
|
530768
|
530770
|
530772
|
541820
|
541822
|
541824
|
541826
|
541828
|
541830
|
541832
|
541834
|
541952
|
542064
|
562970
|
562972
|
562974
|
562976