Attachment #541828 for bug #597768




      implicit none
      save
      character *(*) name
      integer*8 fid
      integer access,cret
      integer major, minor, rel
      integer*8 mfifvop
c
      fid = mfifvop(name, access, major, minor, rel, len(name))
      if (fid.lt.0) then

      implicit none
      save
      character *(*) name
      integer*8 fid
      integer access,cret
      integer*8 mfifope
c
      fid = mfifope(name, access, len(name))
      if (fid.lt.0) then

      implicit none
      save
c
      integer*8 fid
      integer cret
      integer mfifclo
c
      cret = mfifclo(fid)

      implicit none
      save
c
      integer*8 fid
      integer cret
      character*(*) cmt
      integer mfifcow
c

      implicit none
      save
c
      integer*8 fid
      integer cret
      character*(*) cmt
      integer mfifcor
c

      implicit none
      save
c
      integer*8 fid
      integer major, minor,rel
      integer cret
      integer mfifnvr
c

      save
c
      character*(*) version
      integer*8 fid
      integer cret
      integer mfifsvr
c
      cret =  mfifsvr(fid,version,len(version))

      save
c
      character *(*) fname
      integer*8 fid, mid
      integer class, cret
      integer*8 mfifomn
c
      mid =  mfifomn(fid, fname, len(fname), class)
      if (mid .eq.-1) then

      implicit none
      save
c
      integer*8 mid, fid
      integer class, cret
      integer mfifoun
c
      cret = mfifoun(fid, mid, class)




      save
c
      character *(*) maa
      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, 

c
      character *(*) maa
      integer mdim
      integer*8 fid
      integer conn(*),typent,typgeo,typcon,cret
      integer pfltab(*), psize
      integer edfconl,switch
c

c
      character *(*) maa
      real*8 coo(*)
      integer*8 fid
      integer typrep,mdim
      integer edfcooe,n,cret,modcoo
      character *(*) nom, unit
c

      character *(*) maa
      real*8 coo(*)
      integer mdim
      integer*8 fid
      integer typrep,cret,modcoo
      integer pfltab(*),psize, numco
      integer edfcool
      character *(*) nom, unit

c
      character *(*) maa
      character*(*) nom
      integer*8 fid
      integer typent, typgeo,cret
      integer edfnome,n
c
      cret = edfnome (fid, maa ,len(maa),nom, 16*n, n,

c
      character *(*) maa
      character*(*) nom
      integer*8 fid
      integer typent, typgeo,cret
      integer edfnoml,n
c
      cret = edfnoml (fid, maa ,len(maa),nom,n,

c
      character *(*) maa
      integer num(*)
      integer*8 fid
      integer typent, typgeo,cret
      integer edfnume, n
c
      cret = edfnume (fid, maa ,len(maa),num, n,

c
      character *(*) maa
      integer num(*)
      integer*8 fid
      integer typent, typgeo,cret
      integer edfnuml,n
c
      cret = edfnuml (fid, maa ,len(maa),num, n,

      save
c
      character *(*) maa
      integer*8 fid
      integer typent, typgeo,cret,typcon,n,quoi
      integer edfnema
c
      n = edfnema(fid, maa ,len(maa),quoi, 

      save
c
      character *32 maa
      integer*8 fid
      integer conn(*),typent,typcon,cret,index(*)
      integer edfpgce,ni
c
      cret = edfpgce(fid,maa,len(maa),index,ni,conn,typent,typcon)

      save
c
      character*32 maa
      integer*8 fid
      integer conn(*),typent,typcon,cret,index(*)
      integer edfpgcl,ni
c
      cret = edfpgcl(fid,maa,len(maa),index,ni,conn,typent,typcon)

      save
c
      character*32  maa
      integer*8 fid
      integer typent,typcon,cret
      integer edfpygi,consiz
c
      cret = edfpygi(fid,maa,len(maa),typent,typcon,consiz)

      save
c
      character *32 maa
      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)

      save
c
      character*32 maa
      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)

      save
c
      character*32 maa
      integer*8 fid
      integer typcon,cret
      integer edfpyei,consiz,nf
c
      cret = edfpyei(fid,maa,len(maa),typcon,nf,consiz)

c
      character*32 maa
      real*8 indices(*)
      integer*8 fid
      integer mdim,axe
      integer edficoe,n,cret
      character*(*) comp, unit
c

c
      character*32 maa
      real*8 indices(*)
      integer*8 fid
      integer mdim,axe
      integer edficol,n,cret
      character*16 comp, unit
c

c
      character*32  maa
      integer struct(*)
      integer*8 fid
      integer cret,mdim
      integer edfscoe
c
      cret = edfscoe (fid, maa ,len(maa),mdim,struct)

c
      character*32  maa
      integer struct(*)
      integer*8 fid
      integer cret,mdim
      integer edfscol
c
      cret = edfscol (fid, maa ,len(maa),mdim,struct)




      save
c     
      character *(*) maa, des, eq
      integer*8 fid
      integer cret
      integer edfequc
c
      cret = edfequc(fid, maa, len(maa), eq, len(eq), des, len(des))

      save
c
      character *(*) maa, eq
      integer*8 fid
      integer cret, corr(*), n, typent, typgeo
      integer edfeque
c
      cret = edfeque(fid, maa, len(maa), eq, len(eq), corr, 

      save
c
      character *(*) maa, eq
      integer*8 fid
      integer cret, corr(*), n,typent, typgeo
      integer edfequl
c
      cret = edfequl(fid, maa, len(maa), eq, len(eq), corr, 

      save
c
      character *(*) maa, eq
      integer*8 fid
      integer cret, n,typent, typgeo
      integer edfncor
c
      n = edfncor(fid, maa, len(maa), eq, len(eq), typent,typgeo)

      save
c
      character *(*) maa
      integer*8 fid
      integer cret, n
      integer edfnequ
c
      n = edfnequ(fid, maa, len(maa))

      save
c
      character *(*) maa,eq,des
      integer*8 fid
      integer cret,ind
      integer edfequi
c
      cret = edfequi(fid, maa, len(maa),ind,eq,des)




      save
c
      character *(*) nom
      integer*8 fid
      integer acces, cret
      integer*8 edfouvr
c
      fid = edfouvr(nom, acces, len(nom))
      if (fid.eq.-1) then

      implicit none
      save
c
      integer*8 fid
      integer cret
      integer edfferm
c
      cret = edfferm(fid)

      implicit none
      save
c
      integer*8 fid
      integer cret,lon
      integer edflfde
c
      lon = edflfde(fid)

      implicit none
      save
c
      integer*8 fid
      integer quoi,cret
      integer edffien
      character*(*) str
c

c
      implicit none
      save
      integer*8 fid
      integer cret
      character*(*) des
      integer edffide
c

      implicit none
      save
C
      integer*8 fid
      integer maj, min, rel
      integer cret
      integer edfveli
c

      save
c
      character *(*) acces
      integer*8 mid, fid
      integer type, cret
      integer*8 edfmont
c
      mid = edfmont(fid, acces, len(acces), type)
      if (mid .eq.-1) then

      implicit none
      save
c
      integer*8 mid, fid
      integer type, cret
      integer edfdemo
c
      cret = edfdemo(fid, mid, type)




      implicit none
      save
c
      integer*8 fid
      integer n, cret
      integer edfngau
c
      n = edfngau(fid)

      implicit none
      save
c
      integer*8 fid
      integer indice,typgeo,ngauss,cret
      character *(*) locname
      integer edfgaui
c

      implicit none
      save
c      
      integer*8 fid
      integer typgeo,mode_coo,ngauss,cret
      real*8 refcoo(*),gscoo(*),wg(*)
      character *(*) locname
      integer edfgaue

      implicit none
      save
c      
      integer*8 fid
      integer mode_coo,cret
      real*8 refcoo(*),gscoo(*),wg(*)
      character *(*) locname
      integer edfgaul 




      save
c     
      character *(*) maalcl, jn, des, maadst
      integer*8 fid
      integer dom, cret
      integer edfjntc
c     
      cret = edfjntc(fid, maalcl, len(maalcl), jn, len(jn),

      save
c     
      character *(*) maalcl
      integer*8 fid
      integer n, cret
      integer edfnjnt
c     
      cret = edfnjnt(fid, maalcl, len(maalcl), n)

      save
c     
      character *(*) maalcl, jn, des, maadst
      integer*8 fid
      integer ind, dom, cret
      integer edfjnti
c     
      cret = edfjnti(fid, maalcl, len(maalcl), ind,

      save
c     
      character *(*) maalcl, jn
      integer*8 fid
      integer n, cret, corrtab(*)
      integer entlcl, entdst, geolcl, geodst
      integer edfjnte
c     

      save
c     
      character *(*) maalcl, jn
      integer*8 fid
      integer n, cret, corrtab(*)
      integer entlcl, entdst, geolcl, geodst
      integer edfjntl
c     

      save
c     
      character *(*) maalcl, jn
      integer*8 fid
      integer entlcl, entdst, geolcl, geodst, nent, cret
      integer edfjnco
c     
      nent = edfjnco(fid,

      save
c     
      character *(*) maalcl, jn 
      integer*8 fid
      integer entlcl, entdst, geolcl, geodst, nent, cret, ind
      integer edfjtco
c     
      nent = edfjtco(fid,

      save
c     
      character *(*) maa
      integer*8 fid
      integer n, cret, numtab(*)
      integer ent, geo
      integer edfgnme
c     

      save
c     
      character *(*) maa
      integer*8 fid
      integer n, cret, numtab(*)
      integer ent, geo
      integer edfgnml
c     




c
      character *(*) nom
      character *(*) desc
      integer*8 fid
      integer dim, type, cret
      integer edfmaac
c
      cret = edfmaac (fid, nom , len(nom), dim, type, desc, len(desc))

      implicit none
      save
c
      integer*8 fid
      integer n, cret
      integer edfnmaa
c
      n = edfnmaa(fid)

      implicit none
      save
c
      integer*8 fid
      integer dim,cret,indice,type
      character *(*) maa
      character *(*) desc
      integer edfmaai

      implicit none
      save
c
      integer*8 fid
      integer dim,cret
      character *(*) maa
      integer edfdiml
c

      implicit none
      save
c
      integer*8 fid
      integer n,cret
      character*(*) maa
      integer edfnnsl
c

      implicit none
      save
c
      integer*8 fid
      integer n,cret
      character*(*) maa
      integer edfnnse
c

      implicit none
      save
c
      integer*8 fid
      integer n,cret
      character*(*) maa
      integer edfnnil
c

      implicit none
      save
c
      integer*8 fid
      integer n,cret
      character*(*) maa
      integer edfnnie
c

      implicit none
      save
c
      integer*8 fid
      integer n,cret
      character*(*) maa
      integer edfnnml
c

      implicit none
      save
c
      integer*8 fid
      integer n,cret
      character*(*) maa
      integer edfnnme
c

      save
c
      character *(*) nom
      integer*8 fid
      integer cret
      integer edfunvc
c
      cret = edfunvc (fid, nom , len(nom))

      implicit none
      save
c
      integer*8 fid
      integer cret
      character *(*) nom,nomu
      integer edfunvl
c  

      save
c
      character *(*) nom
      integer*8 fid
      integer dim, cret
      integer edfespc
c
      cret = edfespc (fid, nom , len(nom), dim)

      implicit none
      save
c
      integer*8 fid
      integer dim,cret
      character *(*) maa
      integer edfespl
c

      implicit none
      save
c
      integer*8 fid
      integer typ,cret
      character*(*) maa
      integer edfnage
c

      implicit none
      save
c
      integer*8 fid
      integer typ,cret
      character*(*) maa
      integer edfnagl
c




      implicit none
      save
c
      integer*8 fid
      integer n, cret
      integer edfnpro
c
      n = edfnpro(fid)

      implicit none
      save
c
      integer*8 fid
      integer n,cret,indice
      character *(*) pro
      integer edfproi
c

      implicit none
      save
c      
      integer*8 fid
      integer n,cret
      integer pflval(*)
      character *(*) nom
      integer edfpfle

      implicit none
      save
c      
      integer*8 fid
      integer cret,n
      character *(*) nom
      integer edfnpfl
c

      implicit none
      save
c      
      integer*8 fid
      integer cret
      integer pflval(*)
      character *(*) nom
      integer edfpfll




      save
c      
      character *(*) cha,comp,unit
      integer*8 fid
      integer ncomp, cret, type
      integer edfchac
c
      cret = edfchac (fid, cha,len(cha),type, comp,16*ncomp,

c      
      character *(*) cha,maa,profil,locname
      character*(*) dtunit
      integer*8 fid
      integer val(*)
      integer n,pflmod,typent,typgeo,cret
      integer interlace,numco,numdt,numo
      real*8 dt

c      
      character *(*) cha,maa,profil,locname
      character*(*) dtunit
      integer*8 fid
      integer val(*),n,pflmod,typent,typgeo,cret
      integer interlace,numco,numdt,numo
      real*8 dt
      integer edfchae

      save
c      
      character *(*) cha,maa,locname,profil
      integer*8 fid
      integer val(*),pflmod,typent,typgeo,cret
      integer interlace,numco,numdt,numo
      integer edfchal
c

      save
c      
      character *(*) cha,maa,locname,profil
      integer*8 fid
      integer val(*),typent,typgeo,cret,pflmod
      integer interlace,numco,numdt,numo
      integer edfchal
c

      save
c      
      character *(*) cha,comp,unit
      integer*8 fid
      integer ind,type,ncomp,cret
      integer edfchai
c
      cret = edfchai(fid,ind,cha,type,

      implicit none
      save
c      
      integer*8 fid
      integer ind,cret,n
      integer edfncha
c
      n = edfncha(fid,ind)

      implicit none
      save
c      
      integer*8 fid
      integer typent,typgeo,n,cret
      integer numdt, numo, pflmod
      character *(*) cha, maa
      integer edfnval

      implicit none
      save
c      
      integer*8 fid
      integer type,geo,n,cret
      character*32 cha
      integer edfnpdt
c

      implicit none
      save
c      
      integer*8 fid
      integer typent,typgeo,ind,ngauss,numdt,numo,nmaa,cret
      character*32 cha,maa
      character*16 dtunit
      real*8 dt

      implicit none
      save
c
      integer*8 fid
      integer typent,typgeo,n,cret
      integer numdt, numo
      character *(*) cha
      integer edfnref

      implicit none
      save
c
      integer*8 fid
      integer typent,typgeo,indice,n,cret
      integer numdt, numo, ngauss
      character *(*) cha, maa
      logical local


      subroutine efliee(fid,lienval,maa,cret)
c     DEC$ ATTRIBUTES DLLEXPORT :: efliee
      integer*8 fid
      integer cret
      character *(*) lienval, maa
      integer   edfliee


      implicit none
      save
c      
      integer*8 fid
      integer cret,n
      integer edfnlie
c
      n = edfnlie(fid)

      implicit none
      save
c
      integer*8 fid
      integer n,cret,indice
      character *(*) maa
      integer edfliei
c

      implicit none
      save
c      
      integer*8 fid
      integer cret,n
      character *(*) maa
      integer edfnvli
c

      implicit none
      save
c      
      integer*8 fid
      integer n,cret
      character *(*) maa,lienval
      integer edfliel
c




      save
c      
      character *(*) sca,desc
      integer*8 fid
      integer cret, type
      integer edfscac
c
      cret = edfscac (fid,sca,len(sca),type,desc,len(desc))

c      
      character *32 sca
      character*(*) dtunit
      integer*8 fid
      integer val,cret
      integer numdt,numo
      real*8 dt
      integer edfscee

c      
      character *(*) sca
      character*(*) dtunit
      integer*8 fid
      integer cret
      integer numdt,numo
      real*8 dt
      real*8 val

      save
c      
      character *(*) sca
      integer*8 fid
      integer val,cret
      integer numdt,numo
      integer edfscel
c

      save
c      
      character *(*) sca
      integer*8 fid
      integer cret
      integer numdt,numo
      integer edfscfl
      real*8 val(*)

      save
c      
      character *(*) sca,desc
      integer*8 fid
      integer ind,type,cret
      integer edfscai
c
      cret = edfscai(fid,ind,sca,type,desc)

      implicit none
      save
c      
      integer*8 fid
      integer cret,n
      integer edfnsca
c
      n = edfnsca(fid)

      implicit none
      save
c      
      integer*8 fid
      integer n,cret
      character*32 sca
      integer edfnspd
c

      implicit none
      save
c      
      integer*8 fid
      integer indice,numdt,numo,cret
      character*32 sca
      character*16 dtunit
      real*8 dt




      save
c     
      character *(*) maa, des, eq
      integer*8 fid
      integer cret
      integer meqfcre
c
      cret = meqfcre(fid, maa, len(maa), eq, len(eq), des, len(des))

c
      character *(*) maa, eq
      integer numit, numdt
      integer*8 fid
      integer cret, n, typent, typgeo
      integer corr(*)
      integer meqfcow
c

      save
c
      character *(*) maa
      integer*8 fid
      integer cret, n
      integer meqfneq
c
      n = meqfneq(fid, maa, len(maa))

      save
c
      character *(*) maa,eq,des
      integer*8 fid
      integer cret,ind,nstep,nctcor
      integer meqfeqi
c
      cret = meqfeqi(fid,maa,len(maa),ind,eq,des,

      save
c
      character *(*) maa, eq
      integer*8 fid
      integer cret,n,typent,typgeo,numit,numdt
      integer meqfcsz
c
      n = meqfcsz(fid,maa,len(maa),eq,len(eq),

      save
c
      character *(*) maa, eq
      integer*8 fid
      integer cret,n,typent,typgeo,numit,numdt
      integer corit
      integer meqfszi
c

      save
c
      character *(*) maa, eq
      integer*8 fid
      integer cret, corr(*), typent, typgeo,numdt,mumit
      integer meqfcor
c
      cret = meqfcor(fid, maa, len(maa), eq, len(eq), 

      save
c
      character *(*) maa,eq
      integer*8 fid
      integer cret,ind,numdt,numit,ncor
      integer meqfcsi
c
      cret = meqfcsi(fid,maa,len(maa),eq,len(eq),




      save
c
      character *(*) name, fname, gname
      integer*8 fid
      integer fnum, ngro, cret
      integer mfafcre
c
      cret = mfafcre(fid, name, len(name), fname, len(name),

      implicit none
      save
c
      integer*8 fid
      integer n,cret
      character *(*) maa
      integer mfafnfa
c

      implicit none
      save
c
      integer*8 fid
      integer n,cret,it
      character *(*) maa
      integer mfafnfg
c

      implicit none
      save
c 
      integer*8 fid
      integer num,cret,ind
      character *(*) maa,fam,gro
      integer mfaffai
c

      implicit none
      save
c
      integer*8 fid
      integer it,n,cret
      character *(*) maa
      integer mfafona
c

      implicit none
      save
c 
      integer*8 fid
      integer num,cret,it
      integer attnum(*),attval(*)
      character *(*) maa,fam,gro,attdes
      integer mfafofi




      implicit none
      save
      character*(*) fname,cname,cunit,dtunit,mname
      integer*8 fid
      integer ncomp,cret,ftype
      integer mfdfcre
c
      cret = mfdfcre(fid,fname,len(fname),ftype,

      character*(*) fname
      integer numdt,numit
      real*8 dt,val(*)
      integer*8 fid
      integer cret,etype,gtype,swm,cs,n
      integer mfdfrvw
c
      cret = mfdfrvw(fid,fname,len(fname),numdt,numit,dt,

      integer numdt,numit
      real*8 dt
      integer val(*)
      integer*8 fid
      integer cret,etype,gtype,swm,cs,n
      integer mfdfivw
c
      cret = mfdfivw(fid,fname,len(fname),numdt,numit,dt,

      character*(*) fname,pname,lname
      integer numdt,numit
      real*8 dt,val(*)
      integer*8 fid
      integer cret,etype,gtype,swm,cs,n,stm
      integer mfdfrpw
c
      cret = mfdfrpw(fid,fname,len(fname),numdt,numit,dt,

      integer numdt,numit
      real*8 dt
      integer val(*)
      integer*8 fid
      integer cret,etype,gtype,swm,cs,n,stm
      integer mfdfipw
c
      cret = mfdfipw(fid,fname,len(fname),numdt,numit,dt,

      integer numdt,numit
      real*8 dt,val(*)
      integer*8 flt(*)
      integer*8 fid
      integer cret,etype,gtype
      integer mfdfraw
c
      cret = mfdfraw(fid,fname,len(fname),numdt,numit,dt,

      real*8 dt
      integer val(*)
      integer*8 flt(*)
      integer*8 fid
      integer cret,etype,gtype
      integer mfdfiaw
c
      cret = mfdfiaw(fid,fname,len(fname),numdt,numit,dt,

c
      implicit none
      save
      integer*8 fid
      integer n,cret
      integer mfdfnfd
c
      n = mfdfnfd(fid)

c
      implicit none
      save
      integer*8 fid
      integer n,cret,ind
      integer mfdfnfc
c
      n = mfdfnfc(fid,ind)

c
      implicit none
      save
      integer*8 fid
      integer n,cret
      character *(*) fname
      integer mfdfncn
c

c
      character *(*) fname, mname, dtunit, cname, cunit
      integer lmesh, cret
      integer*8 fid
      integer type, it, nc
      integer mfdffdi 
c
      cret = mfdffdi(fid, it, fname, mname, lmesh, type,

c
      character *(*) fname, mname, dtunit, cname, cunit
      integer lmesh, cret
      integer*8 fid
      integer type, nc
      integer mfdffin 
c
      cret = mfdffin(fid, fname, len(fname), mname, lmesh, type,

c
      character*(*) fname
      integer cret
      integer*8 fid
      integer it, numdt, numit
      real*8  dt
      integer mfdfcsi
c

c
      character*(*) fname
      integer cret
      integer*8 fid
      integer it, numdt, numit, mnumdt, mnumit
      real*8  dt
      integer mfdfcmi
c

c
      character*(*) fname
      integer cret
      integer*8 fid
      integer numdt, numit, mnumdt, mnumit
      integer mfdfcmw
c
      cret = mfdfcmw(fid,fname,len(fname),numdt,numit,

c
      implicit none
      save
      integer*8 fid
      integer n,cret
      integer numdt,numit,etype,gtype
      character*(*) fname,dpname,dlname
      

      implicit none
      save
      character*(*) fname
      integer*8 fid
      integer n,cret,numdt,numit,etype,gtype
      integer mfdfnva
c
      n = mfdfnva(fid,fname,len(fname),numdt,numit,

      save
      character*(*) fname, pname, lname
      integer pit,stm,psize
      integer*8 fid
      integer n,cret,numdt,numit,etype,gtype,nip
      integer mfdfnvp
c
      n = mfdfnvp(fid,fname,len(fname),numdt,numit,

      save
      character*(*) fname, pname, lname
      integer stm,psize
      integer*8 fid
      integer n,cret,numdt,numit,etype,gtype,nip
      integer mfdfnpn
c
      n = mfdfnpn(fid,fname,len(fname),numdt,numit,

      character*(*) fname
      integer numdt,numit
      real*8 val(*)
      integer*8 fid
      integer cret,etype,gtype,swm,cs
      integer mfdfrvr
c
      cret = mfdfrvr(fid,fname,len(fname),numdt,numit,

      character*(*) fname
      integer numdt,numit
      integer val(*)
      integer*8 fid
      integer cret,etype,gtype,swm,cs
      integer mfdfivr
c
      cret = mfdfivr(fid,fname,len(fname),numdt,numit,

      character*(*) fname,pname
      integer numdt,numit
      real*8 val(*)
      integer*8 fid
      integer cret,etype,gtype,swm,cs,stm
      integer mfdfrpr
c
      cret = mfdfrpr(fid,fname,len(fname),numdt,numit,

      character*(*) fname,pname
      integer numdt,numit
      integer val(*)
      integer*8 fid
      integer cret,etype,gtype,swm,cs,n,stm
      integer mfdfipr
c
      cret = mfdfipr(fid,fname,len(fname),numdt,numit,

      integer numdt,numit
      real*8 val(*)
      integer*8 flt(*)
      integer*8 fid
      integer cret,etype,gtype
      integer mfdfrar
c
      cret = mfdfrar(fid,fname,len(fname),numdt,numit,

      integer numdt,numit
      integer val(*)
      integer*8 flt(*)
      integer*8 fid
      integer cret,etype,gtype
      integer mfdfiar
c
      cret = mfdfiar(fid,fname,len(fname),numdt,numit,

      implicit none
      save
      character*(*) fname,iname
      integer*8 fid
      integer cret
      integer mfdfinw
c
      cret = mfdfinw(fid,fname,len(fname),iname,len(iname),cret)

c
      implicit none
      save
      integer*8 fid
      integer n,cret
      character*(*) fname
      integer mfdfnin
c

      implicit none
      save
      character*(*) fname,iname
      integer*8 fid
      integer cret,it
      integer mfdfini
c
      cret = mfdfini(fid,fname,len(fname),it,iname,cret)

c
      character*(*) fname,mname
      integer cret
      integer*8 fid
      integer it,numdt,numit,nmesh,lmesh
      integer mnumdt,mnumit
      real*8  dt
      integer mfdfoci

c
      implicit none
      save
      integer*8 fid
      integer n,cret
      integer numdt,numit,etype,gtype,it
      character*(*) fname,dpname,dlname,mname
      

      save
      character*(*) fname, pname, lname, mname
      integer pit,stm,psize
      integer*8 fid
      integer n,cret,numdt,numit,etype,gtype,nip
      integer mfdfonv
c
      n = mfdfonv(fid,fname,len(fname),numdt,numit,

      character*(*) fname,pname,mname
      integer numdt,numit
      real*8 val(*)
      integer*8 fid
      integer cret,etype,gtype,swm,cs,stm
      integer mfdforr
c
      cret = mfdforr(fid,fname,len(fname),numdt,numit,

      character*(*) fname,pname,mname
      integer numdt,numit
      integer val(*)
      integer*8 fid
      integer cret,etype,gtype,swm,cs,n,stm
      integer mfdfoir
c
      cret = mfdfoir(fid,fname,len(fname),numdt,numit,




      save
c     
      character*(*) name
      integer*8 fid
      integer gtype,cnode,nvar,maxd,nmaxc,cret
      integer mipfcre
c     
      cret = mipfcre(fid,name,len(name),gtype,cnode,

      save
c     
      character*(*) name
      integer*8 fid
      integer it,nc,cret
      integer pw(*)
      real*8 co(*)
      integer mipfbfw

      save
c     
      character*(*) name
      integer*8 fid
      integer it,nc,cret
      integer pw(*)
      real*8 co(*)
      integer mipfbfr

      implicit none
      save
c     
      integer*8 fid
      integer n, cret
      integer mipfnip
c     
      n = mipfnip(fid)

      save
c     
      character*(*) name
      integer*8 fid
      integer gtype,cnode,nvar,maxd,nmaxc,cret,nbf
      integer mipfiin
c     
      cret = mipfiin(fid,name,len(name),gtype,cnode,nbf,

      save
c     
      character*(*) name
      integer*8 fid
      integer gtype,cnode,nvar,maxd,nmaxc,cret,nbf
      integer it
      integer mipfipi
c     

      save
c     
      character*(*) name
      integer*8 fid
      integer n, it, cret
      integer mipfcsz
c     
      n = mipfcsz(fid,name,len(name),it)




      character*(*) lmname
      character*(*) des
      character*(*) rmname
      integer*8 fid
      integer dom, cret
      integer msdfjcr
c     
      print *,lmname

      save
c     
      character *(*) lmname, jname
      integer*8 fid
      integer n, cret, corrtab(*)
      integer entlcl, entdst, geolcl, geodst, numdt,numit
      integer msdfcrw
c     

      save
c     
      character *(*) maa
      integer*8 fid
      integer n, cret
      integer msdfnjn
c     
      n = msdfnjn(fid,maa,len(maa))

      save
c     
      character *(*) lmname,jname,des,rmname
      integer*8 fid
      integer ind,dom,cret,nstep,ncor
      integer msdfjni
c     
      cret = msdfjni(fid,lmname,len(lmname),ind,

      save
c     
      character*(*) mname,jname
      integer*8 fid
      integer cret,numdt,numit
      integer it,letype,lgtype,retype,rgtype,ncor
      integer msdfszi
c     

      save
c     
      character*(*) mname,jname
      integer*8 fid
      integer cret,numdt,numit
      integer letype,lgtype,retype,rgtype,ncor
      integer msdfcsz
c     

      save
c     
      character *(*) lmname, jname
      integer*8 fid
      integer cret, corrtab(*)
      integer entlcl, entdst, geolcl, geodst, numdt,numit
      integer msdfcrr
c     

      save
c     
      character *(*) mname,jname
      integer*8 fid
      integer ind,ncor,numdt,numit,cret
      integer msdfcsi
c     
      cret = msdfcsi(fid,mname,len(mname),




      implicit none
      save
      character*(*) mname,lname
      integer*8 fid
      integer cret
      integer mlnfliw
c
      cret = mlnfliw(fid,mname,len(mname),lname,len(lname))

c
      implicit none
      save
      integer*8 fid
      integer n,cret
      integer mlnfnln
c
      n = mlnfnln(fid)

      save
c
      character *(*) mname
      integer*8 fid
      integer lsize, it, cret
      integer mlnflni
c
      cret = mlnflni(fid, it, mname, lsize)

      save
c
      character *(*) mname
      integer*8 fid
      integer lsize, cret,n
      integer mlnflai
c
      n = mlnflai(fid, mname, len(mname), lsize)

      implicit none
      save
      character*(*) mname,lname
      integer*8 fid
      integer cret
      integer mlnflir
c
      cret = mlnflir(fid,mname,len(mname),lname,len(lname))




      save
      character*(*) lname,giname, isname
      real*8 ecoo(*), ipcoo(*), wght(*)
      integer*8 fid
      integer cret,gtype,sdim,swm,nip
      integer mlcflow
c
      cret = mlcflow(fid,lname,len(lname),gtype,sdim,ecoo,swm,nip,

c
      implicit none
      save
      integer*8 fid
      integer n,cret
      integer mlcfnlc
c
      n = mlcfnlc(fid)

      save
c
      character*(*) lname,giname, isname
      integer*8 fid
      integer gtype, it, cret, sdim, nip
      integer nsmc, sgtype
      integer mlcflci
c

      save
c
      character*(*) lname,giname, isname
      integer*8 fid
      integer gtype, cret, sdim, nip
      integer nsmc, sgtype
      integer mlcflni
c

      save
      character*(*) lname
      real*8 ecoo(*), ipcoo(*), wght(*)
      integer*8 fid
      integer cret,swm
      integer mlcflor
c
      cret = mlcflor(fid,lname,len(lname),swm,ecoo,ipcoo,wght)




      save
c
      character *(*) name, desc, dtunit, aname, aunit
      integer*8 fid
      integer sdim, mdim, mtype, stype, atype, cret
      integer mmhfcre
c
      cret = mmhfcre(fid, name, len(name), sdim, mdim, mtype, 

      implicit none
      save
c
      integer*8 fid
      integer n, cret
      integer mmhfnmh 
c
      n = mmhfnmh(fid)

      implicit none
      save
c
      integer*8 fid
      integer it,naxis,cret
      integer mmhfnax
c
      naxis =  mmhfnax(fid,it)

      implicit none
      save
c
      integer*8 fid
      integer naxis,cret
      character *(*) name
      integer mmhfnan
c

      save
c
      character *(*) name, desc, dtunit, aname, aunit
      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,

      save
c
      character *(*) name, desc, dtunit, aname, aunit
      integer*8 fid
      integer sdim, mdim, mtype, stype, atype, cret, nstep
      integer mmhfmin 
c
      cret = mmhfmin(fid, name, len(name), sdim, mdim, mtype, desc,

      implicit none
      save
c
      integer*8 fid
      integer cret
      character *(*) name
      integer mmhfunw
c

      implicit none
      save
c
      integer*8 fid
      integer cret
      character *(*) uname
      character *(*) mname
      integer mmhfunr

      implicit none
      save
c
      integer*8 fid
      integer cret,nin,nvn,nnc
      character *(*) name
      integer mmhfatw
c

      implicit none
      save
c
      integer*8 fid
      integer cret,nin,nvn,nnc
      character *(*) name
      integer mmhfatr
c

      implicit none
      save
c
      integer*8 fid
      integer cret,gtype
      character *(*) name
      integer mmhfgtw
c

      implicit none
      save
c
      integer*8 fid
      integer cret,gtype
      character *(*) name
      integer mmhfgtr
c

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt, numit
      character *(*) name
      real*8 dt
      integer st( * )

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt, numit
      character *(*) name
      integer st(*)
      integer mmhfgsr

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,n,swm
      real*8 dt
      character *(*) name
      real*8 coo(*)

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,swm
      character *(*) name
      real*8 coo(*)
      integer mmhfcor

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,n,swm,stm,dim
      real*8 dt
      character *(*) name, pname
      real*8 coo(*)

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,swm,stm,dim
      character *(*) name, pname
      real*8 coo(*)
      integer mmhfcpr

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,axis,size
      real*8 dt
      character *(*) name
      real*8 index(*)

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,axis
      character *(*) name
      real*8 index(*)
      integer mmhfgcr

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt, numit,n,entype,geotype
      character *(*) name
      integer num(*)
      integer mmhfenw

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt, numit,entype,geotype
      character *(*) name
      integer num(*)
      integer mmhfenr

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt, numit,n,entype,geotype
      character *(*) name
      integer num(*)
      integer mmhffnw

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt, numit,entype,geotype
      character *(*) name
      integer num(*)
      integer mmhffnr

c
      character *(*) mname
      character*(*) ename
      integer*8 fid
      integer numdt, numit, entype, geotype, n, cret
      integer mmhfeaw
c
      cret = mmhfeaw(fid,mname,len(mname),numdt,numit,entype,

c
      character *(*) mname
      character*(*) ename
      integer*8 fid
      integer numdt, numit, entype, geotype, cret
      integer mmhfear

      cret = mmhfear(fid,mname,len(mname),numdt,numit,entype,

      save
c
      character *(*) name
      integer*8 fid
      integer numdt,numit,entype,geotype,datype,cret
      integer cmode,chgt,tsf,n
      integer mmhfnme
c

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,n,entype,geotype,swm,cmode
      character *(*) name
      integer con(*)
      real*8 dt

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,entype,geotype,swm,cmode
      character *(*) name
      integer con(*)
      integer mmhfcyr

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,n,entype,geotype,swm
      integer cmode,stmode,dim
      character *(*) name
      character *(*) pname

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,entype,geotype,swm
      integer cmode,n,stmode,dim
      character *(*) name
      character *(*) pname

c
      character *(*) name
      character *(*) pname
      integer*8 fid
      integer numdt,numit,entype,geotype,datype,cret
      integer cmode,chgt,tsf,n,stmode,psize
      integer mmhfnep
c

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,swm
      character *(*) name
      character *(*) nname
      real*8 coo(*)

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,swm,n
      character *(*) name
      character *(*) nname
      real*8 coo(*), dt

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,n,entype,geotype,swm,cmode
      character *(*) name
      character *(*) nname
      integer con(*)

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,entype,geotype,swm,cmode
      character *(*) name
      character *(*) nname
      integer con(*)

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit
      real*8 dt
      character *(*) name
      real*8 coo(*)

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit
      character *(*) name
      real*8 coo(*)
      integer*8 flt(*)

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,entype,geotype,cmode
      character *(*) name
      integer con(*)
      integer*8 flt(*)

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,entype,geotype,cmode
      character *(*) name
      integer con(*)
      integer*8 flt(*)

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,isize,entype,cmode
      character *(*) name
      integer con(*), index(*)
      real*8 dt

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,entype,cmode
      character *(*) name
      integer con(*), index(*)
      integer mmhfpgr

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,fisize,nisize,entype,cmode
      character *(*) name
      integer con(*), findex(*), nindex(*) 
      real*8 dt

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,entype,cmode
      character *(*) name
      integer con(*), findex(*), nindex(*) 
      integer mmhfphr

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt, numit,n,entype,geotype
      character *(*) name
      integer num(*)
      integer mmhfgnw

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt, numit,entype,geotype
      character *(*) name
      integer num(*)
      integer mmhfgnr

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt1,numit1,numdt2,numit2
      character *(*) name
      real*8 dt2
      integer mmhfcsc

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,csit
      character *(*) name
      real*8 dt
      integer mmhfcsi

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit
      character *(*) name
      real*8 dt
      integer mmhfcsr

      implicit none
      save
c
      integer*8 fid
      integer cret,stype
      character *(*) name
      integer mmhfstr
c

      save
c
      character *(*) name,aname
      integer*8 fid
      integer numdt,numit,geotype,cret
      integer n
      real*8 val(*)
      integer mmhfraw

      save
c
      character *(*) name,aname
      integer*8 fid
      integer numdt,numit,geotype,cret
      integer n
      integer val(*)
      integer mmhfiaw

      save
c
      character *(*) name,aname
      integer*8 fid
      integer numdt,numit,geotype,cret
      integer n
      character *(*) val
      integer mmhfsaw

      save
c
      character *(*) name,aname
      integer*8 fid
      integer numdt,numit,geotype,cret
      real*8 val(*)
      integer mmhfrar
c

      save
c
      character *(*) name,aname
      integer*8 fid
      integer numdt,numit,geotype,cret
      integer val(*)
      integer mmhfiar
c

      save
c
      character *(*) name,aname
      integer*8 fid
      integer numdt,numit,geotype,cret
      integer n
      character *(*) val
      integer mmhfsar

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit,entype,geotype,it
      character *(*) name, geoname
      integer mmhfeni
c

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit
      real*8 dt
      character *(*) name
      real*8 tsf(*)

      implicit none
      save
c
      integer*8 fid
      integer cret,numdt,numit
      character *(*) name
      real*8 tsf(*)
      integer mmhftfr

c
      character *(*) mname
      integer  val(*)
      integer*8 fid
      integer numdt,numit,entype,geotype
      integer dtype,n,cret
      integer mmhfaaw
      integer*8 flt(*)

c
      character *(*) mname
      integer  val(*)
      integer*8 fid
      integer numdt,numit,entype,geotype
      integer dtype,n,cret
      integer mmhfaar
      integer*8 flt(*)

c
      character *(*) mname
      character *(*) val
      integer*8 fid
      integer numdt,numit,entype,geotype
      integer dtype,n,cret
      integer mmhfasw
      integer*8 flt(*)

c
      character *(*) mname
      character *(*) val
      integer*8 fid
      integer numdt,numit,entype,geotype
      integer dtype,n,cret
      integer mmhfasr
      integer*8 flt(*)




      save
c     
      character *(*) name, des, dtunit
      integer*8 fid
      integer cret,  type
      integer mprfcre
c
      cret = mprfcre(fid,name,len(name),type,des,len(des),

      implicit none
      save
      character*(*) name
      integer*8 fid
      integer numdt,numit,cret
      real*8 dt,val
      integer mprfrvw
c

      implicit none
      save
      character*(*) name
      integer*8 fid
      integer numdt,numit,cret
      real*8 dt
      integer val
      integer mprfivw

      implicit none
      save
      character*(*) name
      integer*8 fid
      integer numdt,numit,cret
      real*8 val
      integer mprfrvr
c

      implicit none
      save
      character*(*) name
      integer*8 fid
      integer numdt,numit,cret
      integer val
      integer mprfivr
c

c
      implicit none
      save
      integer*8 fid
      integer n,cret
      integer mprfnpr
c
      n = mprfnpr(fid)

      save
c
      character *(*) name, dtunit, desc
      integer*8 fid
      integer it, cret,  type, nstep
      integer mprfpri 
c
      cret = mprfpri(fid, it, name, type,

      save
c
      character *(*) name, dtunit, desc
      integer*8 fid
      integer cret,  type, nstep
      integer mprfpin 
c
      cret = mprfpin(fid, name, len(name), type,

      save
c
      character *(*) name
      integer*8 fid
      integer it, cret, numdt, numit
      real*8 dt
      integer mprfcsi 
c




      save
      character*(*) pname
      integer profil(*)
      integer*8 fid
      integer cret,psize
      integer mpffprw
c
      cret = mpffprw(fid,pname,len(pname),psize,profil)

c
      implicit none
      save
      integer*8 fid
      integer n,cret
      integer mpffnpf
c
      n = mpffnpf(fid)

      save
c
      character *(*) pname
      integer*8 fid
      integer psize, it, cret
      integer mpffpfi
c
      cret = mpffpfi(fid, it, pname, psize)

      save
c
      character *(*) pname
      integer*8 fid
      integer psize, cret
      integer mpffpsn
c
      cret = mpffpsn(fid, pname, len(pname), psize)

      save
      character*(*) pname
      integer profil(*)
      integer*8 fid
      integer cret
      integer mpffprr
c
      cret = mpffprr(fid,pname,len(pname),profil)




      save
c     
      character *(*) maa, des, aname, aunit
      integer*8 fid
      integer cret, atype, sdim, mdim
      integer msmfcre
c
      cret = msmfcre(fid, maa, len(maa), sdim, mdim,

      implicit none
      save
c
      integer*8 fid
      integer n, cret
      integer msmfnsm 
c
      n = msmfnsm(fid)

      save
c
      character *(*) name, desc, aname, aunit
      integer*8 fid
      integer sdim, mdim, atype, cret
      integer msmfsni 
c
      cret = msmfsni(fid, name, len(name), sdim, mdim, desc,

      save
c
      character *(*) name, desc, aname, aunit
      integer*8 fid
      integer sdim, mdim, atype, it, cret
      integer msmfsmi 
c
      cret = msmfsmi(fid, it, name, sdim, mdim, desc,

      implicit none
      save
c
      integer*8 fid
      integer it,naxis,cret
      integer msmfnax
c
      naxis =  msmfnax(fid,it)

      implicit none
      save
c
      integer*8 fid
      integer naxis,cret
      character *(*) name
      integer msmfnan
c

Lines 21-30 c Link Here

(-)med-3.3.1_SRC/src/fi/medparfile.f (-2 / +2 lines)
21	implicit none	21	implicit none
22	save	22	save
23	character () name	23	character () name
24	integer fid	24	integer*8 fid
25	integer access	25	integer access
26	integer com,info,cret	26	integer com,info,cret
27	integer mpffope	27	integer*8 mpffope
28	c	28	c
29	fid = mpffope(name, access, len(name), com, info)	29	fid = mpffope(name, access, len(name), com, info)
30	if (fid.lt.0) then	30	if (fid.lt.0) then

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.1v3.0/test2.f (-1 / +1 lines)
28	C	28	C
29	C	29	C
30	integer cret,ret	30	integer cret,ret
31	integer fid	31	integer*8 fid
32	character*200 des	32	character*200 des
33	integer hdfok, medok	33	integer hdfok, medok
34	character*16 nomcoo(2)	34	character*16 nomcoo(2)

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.2v3.0/test2.f (-1 / +1 lines)
28	C	28	C
29	C	29	C
30	integer cret,ret	30	integer cret,ret
31	integer fid	31	integer*8 fid
32	character*200 des	32	character*200 des
33	integer hdfok, medok	33	integer hdfok, medok
34	character*16 nomcoo(2)	34	character*16 nomcoo(2)

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test1.f (-1 / +1 lines)
28	C	28	C
29	C	29	C
30	integer cret	30	integer cret
31	integer fid	31	integer*8 fid
32	character*200 des	32	character*200 des
33	parameter (des = "Ceci est un courte description"	33	parameter (des = "Ceci est un courte description"
34	1 // " du fichier test1.med")	34	1 // " du fichier test1.med")

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test19.f (-1 / +1 lines)
28	C	28	C
29	C	29	C
30	integer cret	30	integer cret
31	integer fid	31	integer*8 fid
32	character *32 maa	32	character *32 maa
33	parameter (maa = "maillage_test19")	33	parameter (maa = "maillage_test19")
34	character*200 des	34	character*200 des

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test2.f (-1 / +1 lines)
28	C	28	C
29	C	29	C
30	integer cret,ret	30	integer cret,ret
31	integer fid	31	integer*8 fid
32	character*200 des	32	character*200 des
33		33
34	C verifie que le fichier test1.med est au bon format	34	C verifie que le fichier test1.med est au bon format

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3v3.0/test2.f (-1 / +1 lines)
28	C	28	C
29	C	29	C
30	integer cret,ret	30	integer cret,ret
31	integer fid	31	integer*8 fid
32	character*200 des	32	character*200 des
33	integer hdfok, medok	33	integer hdfok, medok
34	character*16 nomcoo(2)	34	character*16 nomcoo(2)

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/f/test1.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*255 fname	30	character*255 fname
31	character*200 des	31	character*200 des
32	parameter (des = "Ceci est un courte description"	32	parameter (des = "Ceci est un courte description"

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/test2.f (-1 / +1 lines)
28	C	28	C
29	C	29	C
30	integer cret,ret	30	integer cret,ret
31	integer fid	31	integer*8 fid
32	character*200 des	32	character*200 des
33	integer hdfok, medok	33	integer hdfok, medok
34	integer fexist, accok	34	integer fexist, accok

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDfile_1.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDfile_1.med")	31	parameter (fname = "Unittest_MEDfile_1.med")
32	character*200 cmt1	32	character*200 cmt1

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDfilter_1.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDfilter_1.med")	31	parameter (fname = "Unittest_MEDfilter_1.med")
32	integer nflt	32	integer nflt

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDfilter_2.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDfilter_2.med")	31	parameter (fname = "Unittest_MEDfilter_2.med")
32	integer nflt	32	integer nflt

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDinterp_1.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDinterp_1.med")	31	parameter (fname = "Unittest_MEDinterp_1.med")
32	character *64 name1	32	character *64 name1

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDinterp_2.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDinterp_1.med")	31	parameter (fname = "Unittest_MEDinterp_1.med")
32	character *64 name1	32	character *64 name1

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDinterp_3.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDinterp_1.med")	31	parameter (fname = "Unittest_MEDinterp_1.med")
32	integer n,ni	32	integer n,ni

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlink_1.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDlink_1.med")	31	parameter (fname = "Unittest_MEDlink_1.med")
32	character*64 mname1, mname2,lname1,lname2	32	character*64 mname1, mname2,lname1,lname2

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlink_2.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDlink_1.med")	31	parameter (fname = "Unittest_MEDlink_1.med")
32	character*64 mname1, mname2,lname1,lname2	32	character*64 mname1, mname2,lname1,lname2

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlink_3.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDlink_1.med")	31	parameter (fname = "Unittest_MEDlink_1.med")
32	character*64 mname1, mname2,lname1,lname2,mname	32	character*64 mname1, mname2,lname1,lname2,mname

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlocalization_1.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname,lname,giname,isname	30	character*64 fname,lname,giname,isname
31	parameter (fname = "Unittest_MEDlocalization_1.med")	31	parameter (fname = "Unittest_MEDlocalization_1.med")
32	parameter (lname = "Localization name")	32	parameter (lname = "Localization name")

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlocalization_2.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname,lname1,giname1,isname1	30	character*64 fname,lname1,giname1,isname1
31	character*64 giname,isname	31	character*64 giname,isname
32	parameter (fname="Unittest_MEDlocalization_1.med")	32	parameter (fname="Unittest_MEDlocalization_1.med")

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlocalization_3.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname,lname1,giname1,isname1	30	character*64 fname,lname1,giname1,isname1
31	character*64 giname,isname	31	character*64 giname,isname
32	parameter (fname="Unittest_MEDlocalization_1.med")	32	parameter (fname="Unittest_MEDlocalization_1.med")

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDparameter_1.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDparameter_1.med")	31	parameter (fname = "Unittest_MEDparameter_1.med")
32	character*64 pname1,pname2	32	character*64 pname1,pname2

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDparameter_2.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDparameter_1.med")	31	parameter (fname = "Unittest_MEDparameter_1.med")
32	character*64 pname1,pname2,pname	32	character*64 pname1,pname2,pname

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDparameter_3.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDparameter_1.med")	31	parameter (fname = "Unittest_MEDparameter_1.med")
32	character*64 pname1,pname2,pname	32	character*64 pname1,pname2,pname

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDprofile_1.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname, pname1, pname2	30	character*64 fname, pname1, pname2
31	parameter (fname="Unittest_MEDprofile_1.med")	31	parameter (fname="Unittest_MEDprofile_1.med")
32	parameter (pname1="Profile name1")	32	parameter (pname1="Profile name1")

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDprofile_2.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname, pname1, pname2	30	character*64 fname, pname1, pname2
31	parameter (fname="Unittest_MEDprofile_1.med")	31	parameter (fname="Unittest_MEDprofile_1.med")
32	parameter (pname1="Profile name1")	32	parameter (pname1="Profile name1")

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_1.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDstructElement_1.med")	31	parameter (fname = "Unittest_MEDstructElement_1.med")
32	character*64 mname1, mname2, mname3	32	character*64 mname1, mname2, mname3

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_10.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDstructElement_9.med")	31	parameter (fname = "Unittest_MEDstructElement_9.med")
32	character*64 mname2	32	character*64 mname2

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_11.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDstructElement_9.med")	31	parameter (fname = "Unittest_MEDstructElement_9.med")
32	character*64 mname2	32	character*64 mname2

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_2.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDstructElement_1.med")	31	parameter (fname = "Unittest_MEDstructElement_1.med")
32	character*64 mname1, mname2, mname3	32	character*64 mname1, mname2, mname3

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_3.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDstructElement_1.med")	31	parameter (fname = "Unittest_MEDstructElement_1.med")
32	character*64 mname1, mname2, mname3	32	character*64 mname1, mname2, mname3

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_4.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDstructElement_4.med")	31	parameter (fname = "Unittest_MEDstructElement_4.med")
32	character*64 mname2	32	character*64 mname2

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_5.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDstructElement_4.med")	31	parameter (fname = "Unittest_MEDstructElement_4.med")
32	character*64 mname2	32	character*64 mname2

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_6.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDstructElement_4.med")	31	parameter (fname = "Unittest_MEDstructElement_4.med")
32	character*64 mname2	32	character*64 mname2

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_7.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDstructElement_7.med")	31	parameter (fname = "Unittest_MEDstructElement_7.med")
32	character*64 mname2	32	character*64 mname2

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_8.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDstructElement_7.med")	31	parameter (fname = "Unittest_MEDstructElement_7.med")
32	character*64 mname2	32	character*64 mname2

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_9.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDstructElement_9.med")	31	parameter (fname = "Unittest_MEDstructElement_9.med")
32	character*64 mname2	32	character*64 mname2

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDsupportMesh_1.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDsupportMesh_1.med")	31	parameter (fname = "Unittest_MEDsupportMesh_1.med")
32	character*64 smname1	32	character*64 smname1

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDsupportMesh_2.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDsupportMesh_1.med")	31	parameter (fname = "Unittest_MEDsupportMesh_1.med")
32	character*64 smname1	32	character*64 smname1

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDsupportMesh_3.f (-1 / +1 lines)
26	C	26	C
27	C	27	C
28	integer cret	28	integer cret
29	integer fid	29	integer*8 fid
30	character*64 fname	30	character*64 fname
31	parameter (fname = "Unittest_MEDsupportMesh_1.med")	31	parameter (fname = "Unittest_MEDsupportMesh_1.med")
32	character*64 smname1	32	character*64 smname1

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDfield_1.f (-1 / +1 lines)
28	C	28	C
29	C	29	C
30	integer cret	30	integer cret
31	integer fid	31	integer*8 fid
32	C component number, node number	32	C component number, node number
33	integer ncompo, nnodes	33	integer ncompo, nnodes
34	C triangular elements number, quadrangular elements number	34	C triangular elements number, quadrangular elements number

Lines 27-33 C Link Here

(-)med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDfield_4.f (-1 / +1 lines)
27	C	27	C
28	C	28	C
29	integer cret	29	integer cret
30	integer fid	30	integer*8 fid
31	C component number, node number	31	C component number, node number
32	integer ncompo	32	integer ncompo
33	C triangular elements number, quadrangular elements number	33	C triangular elements number, quadrangular elements number

Lines 29-35 C Link Here

(-)med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDmesh_1.f (-1 / +1 lines)
29	C	29	C
30	C	30	C
31	integer cret	31	integer cret
32	integer fid	32	integer*8 fid
33	integer sdim, mdim, stype, mtype, atype, nnode	33	integer sdim, mdim, stype, mtype, atype, nnode
34	integer ntria, nquad	34	integer ntria, nquad
35	integer fnum, ngro	35	integer fnum, ngro

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDmesh_10.f (-1 / +1 lines)
28	C	28	C
29	C	29	C
30	integer cret	30	integer cret
31	integer fid	31	integer*8 fid
32	C space dim, mesh dim	32	C space dim, mesh dim
33	integer sdim, mdim	33	integer sdim, mdim
34	C axis name, unit name	34	C axis name, unit name

Lines 27-33 C Link Here

(-)med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDmesh_4.f (-1 / +1 lines)
27	C	27	C
28	C	28	C
29	integer cret	29	integer cret
30	integer fid	30	integer*8 fid
31	integer sdim, mdim, stype, mtype, atype	31	integer sdim, mdim, stype, mtype, atype
32	integer axis, isize, entype, nquad4	32	integer axis, isize, entype, nquad4
33	character*200 mdesc	33	character*200 mdesc




      implicit none
      save
c 
      integer*8 fid
      integer num,attid(*),attval(*),natt,ngro,cret
      character *(*) maa,fam,attdes
      character *80 gro(*)
      integer edffamc

      implicit none
      save
c
      integer*8 fid
      integer fam(*),n,typent,typgeo,cret
      character *(*) maa
      integer edffame
c      

      implicit none
      save
c
      integer*8 fid
      integer fam(*),n,typent,typgeo,cret
      character *(*) maa
      integer edffaml
c      

      implicit none
      save
c 
      integer*8 fid
      integer num,attid(*),attval(*),natt,ngro,cret,ind
      character *(*) maa,fam,attdes,gro
      integer edffami
c

      implicit none
      save
c
      integer*8 fid
      integer n,cret
      character *(*) maa
      integer edfnfam
c

      implicit none
      save
c
      integer*8 fid
      integer ind,n,cret
      character *(*) maa
      integer edfngro
c

      implicit none
      save
c
      integer*8 fid
      integer ind,n,cret
      character *(*) maa
      integer edfnatt
c




c      
      character *(*) cha,maa,profil,locname
      character*(*) dtunit
      integer*8 fid
      integer n,pflmod,typent,typgeo,cret
      integer interlace,numco,numdt,numo
      real*8 dt
      real*8 val(*)

      save
c      
      character *(*) cha,maa,locname,profil
      integer*8 fid
      integer typent,typgeo,cret
      integer interlace,numco,numdt,numo,pflmod
      integer edfchal
      real*8 val(*)




      save
      character*(*) pname 
      integer flta(*)
      integer*8 fid
      integer nent,nvent,ncent
      integer stm,fltas
      integer*8 flt
      integer cret,cs,swm

      implicit none
      save
      character*(*) pname 
      integer*8 fid
      integer nent,nvent,ncent
      integer start,stride,count,bsize,lbsize
      integer stm
      integer*8 flt




      implicit none
      save
      character*(*) mname,smname
      integer*8 fid
      integer cret,mdim,setype,sgtype,etype
      integer msefcre
c
      etype = msefcre(fid,mname,len(mname),mdim,

c
      implicit none
      save
      integer*8 fid
      integer n,cret
      integer msefnse
c
      n = msefnse(fid)

      implicit none
      save
      character*(*) mname,smname
      integer*8 fid
      integer cret,mdim,setype,sgtype,it
      integer snnode,sncell,ncatt,ap,nvatt,mgtype
      integer msefsei
c

      implicit none
      save
      character*(*) mname,smname
      integer*8 fid
      integer cret,mdim,setype,sgtype
      integer snnode,sncell,ncatt,ap,nvatt,mgtype
      integer msefsin
c

      implicit none
      save
      character*(*) mname
      integer*8 fid
      integer cret,mgtype
      integer msefsen
c
      cret = msefsen(fid,mgtype,mname)

      implicit none
      save
      character*(*) mname
      integer*8 fid
      integer gtype,cret
      integer msefsgt
c
      gtype = msefsgt(fid,mname,len(mname))

      implicit none
      save
      character*(*) mname,aname
      integer*8 fid
      integer cret,atype,anc
      integer msefvac
c
      cret = msefvac(fid,mname,len(mname),

      implicit none
      save
      character*(*) mname,aname
      integer*8 fid
      integer cret,atype,anc
      integer msefvni
c
      cret = msefvni(fid,mname,len(mname),

      implicit none
      save
      character*(*) mname,aname
      integer*8 fid
      integer cret,atype,anc,it
      integer msefvai
c
      cret = msefvai(fid,mname,len(mname),it,

      implicit none
      save
      character*(*) mname,aname
      integer*8 fid
      integer cret,atype,anc,setype
      real*8 val(*)
      integer msefraw
c

      implicit none
      save
      character*(*) mname,aname
      integer*8 fid
      integer cret,atype,anc,setype
      integer val(*)
      integer msefiaw
c

      implicit none
      save
      character*(*) mname,aname
      integer*8 fid
      integer cret,atype,anc,setype
      character *(*) val
      integer msefsaw
c

      implicit none
      save
      character*(*) mname,aname,pname
      integer*8 fid
      integer cret,atype,anc,setype
      real*8 val(*)
      integer msefrpw
c

      implicit none
      save
      character*(*) mname,aname,pname
      integer*8 fid
      integer cret,atype,anc,setype
      integer val(*)
      integer msefipw
c

      implicit none
      save
      character*(*) mname,aname,pname
      integer*8 fid
      integer cret,atype,anc,setype
      character *(*) val
      integer msefspw
c

      implicit none
      save
      character*(*) mname,aname,pname
      integer*8 fid
      integer cret,atype,anc,setype,psize
      integer msefcni
c
      cret = msefcni(fid,mname,len(mname),

      implicit none
      save
      character*(*) mname,aname,pname
      integer*8 fid
      integer cret,atype,anc,setype,psize,it
      integer msefcai
c
      cret = msefcai(fid,mname,len(mname),it,

      implicit none
      save
      character*(*) mname,aname
      integer*8 fid
      integer cret
      real*8 val(*)
      integer msefrar
c

      implicit none
      save
      character*(*) mname,aname
      integer*8 fid
      integer cret
      integer val(*)
      integer msefiar
c

      implicit none
      save
      character*(*) mname,aname
      integer*8 fid
      integer cret
      character *(*) val
      integer msefsar
c

Lines 25-31 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test22.f (-1 / +2 lines)
25	implicit none	25	implicit none
26	include 'med.hf'	26	include 'med.hf'
27	C	27	C
28	integer fid,cret	28	integer*8 fid
		29	integer cret
29	character*16 dtunit	30	character*16 dtunit
30	character*32 nom	31	character*32 nom
31	character*200 desc	32	character*200 desc

Lines 25-31 C Link Here

(-)med-3.3.1_SRC/tests/f/test22.f (-1 / +2 lines)
25	implicit none	25	implicit none
26	include 'med.hf'	26	include 'med.hf'
27	C	27	C
28	integer fid,cret	28	integer*8 fid
		29	integer cret
29	character*16 dtunit	30	character*16 dtunit
30	character*64 nom	31	character*64 nom
31	character*200 desc	32	character*200 desc





#ifdef PPRO_NT
med_int 
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,

		  med_int *anamelen, char *aunit, unsigned int bidon5, med_int* aunitlen)
#else
med_int 
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,


#ifdef PPRO_NT
med_int
MMHFNMH(med_idt *fid)
#else
med_int
nmmhfnmh(med_idt *fid)
#endif
{
  med_int _ret;


#ifdef PPRO_NT
med_int
MMHFNAN(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen)
#else
med_int
nmmhfnan(med_idt *fid, char *mname, med_int *mnamelen)
#endif
{
  med_int _ret;


#ifdef PPRO_NT
med_int 
MMHFNAX(med_idt *fid, med_int *it)
#else
med_int 
nmmhfnax(med_idt *fid, med_int *it)
#endif
{
  med_int _ret; 


#ifdef PPRO_NT
med_int 
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, 

		  char *aunit, unsigned int bidon5)
#else
med_int 
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)


#ifdef PPRO_NT
med_int
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,

		char *aunit, unsigned int bidon5)
#else
med_int
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)


#ifdef PPRO_NT
med_int
MMHFUNW(med_idt *fid, char *uname, unsigned int bidon, med_int *unamelen)
#else
med_int
nmmhfunw(med_idt *fid, char *uname, med_int *unamelen)
#endif
{
  med_int _ret;


#ifdef PPRO_NT
med_int
MMHFUNR(med_idt *fid, char*mname, unsigned int bidon, med_int *mnamelen,
		  char *uname, unsigned int bidon1)
#else
med_int
nmmhfunr(med_idt *fid, char*mname, med_int *mnamelen,
	 char *uname)
#endif
{

  if (!_fn1)
    return(-1);

  _ret = (med_int) MEDmeshUniversalNameRd(*fid, (char*) _fn1,
					  (char*) _fs2);

  _MEDc2fString(_fs2,uname,MED_LNAME_SIZE);


#ifdef PPRO_NT
med_int
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *nin, med_int *nvn, med_int *nnc)
#endif
{


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *nin, med_int *nvn, med_int *nnc)
#endif
{


#ifdef PPRO_NT
med_int 
MMHFGTW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
		  med_int *gtype)
#else
med_int 
nmmhfgtw(med_idt *fid, char *mname, med_int *mnamelen,
	 med_int *gtype)
#endif
{


#ifdef PPRO_NT
med_int 
MMHFGTR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
		  med_int *gtype)
#else
med_int 
nmmhfgtr(med_idt *fid, char *mname, med_int *mnamelen,
	 med_int *gtype)
#endif
{


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit, med_float *dt, med_int *gstruct)
#endif
{


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit, med_int *gstruct)
#endif
{

  if (!_fn1)
    return(-1);
  
  _ret = (med_int) MEDmeshGridStructRd(*fid, (char*) _fn1, (med_int) *numdt,
				       (med_int) *numit, (med_int *) gstruct); 

  _MEDcstringFree(_fn1);


#ifdef PPRO_NT
med_int 
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_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

  if (!_fn1)
    return(-1);
  
  _ret = (med_int) MEDmeshNodeCoordinateWr(*fid, (char*) _fn1, (med_int) *numdt,
					   (med_int) *numit, (med_float) *dt, _swm, (med_int) *n,
					   (med_float *) coo); 



#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit,
	 med_int *swm, med_float *coo)
#endif

  if (!_fn1)
    return(-1);
  
  _ret = (med_int) MEDmeshNodeCoordinateRd(*fid, (char*) _fn1, (med_int) *numdt,
					   (med_int) *numit, _swm, (med_float *) coo); 

  _MEDcstringFree(_fn1);


#ifdef PPRO_NT
med_int 
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_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)

  if (!_fn2)
    return(-1);
  
  _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); 


#ifdef PPRO_NT
med_int 
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_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)

  if (!_fn2)
    return(-1);
  
  _ret = (med_int) MEDmeshNodeCoordinateWithProfileRd(*fid, (char*) _fn1, (med_int) *numdt, (med_int) *numit,
						      _smode, _fn2,
						      _swm, (med_int) *dim, (med_float *) coo); 



#ifdef PPRO_NT
med_int 
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_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

  if (!_fn1)
    return(-1);
  
  _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);



#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit,
	 med_int *axis, med_float *index)
#endif

  if (!_fn1)
    return(-1);
  
  _ret = (med_int) MEDmeshGridIndexCoordinateRd(*fid, (char*) _fn1, (med_int) *numdt,
						(med_int) *numit,
						(med_int) *axis, (med_float *) index);



#ifdef PPRO_NT
med_int 
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_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

  if (!_fn1)
    return(-1);

  _ret = (med_int)  MEDmeshEntityNumberWr(*fid, 
					  (char*) _fn1, 
					  (med_int) *numdt,
					  (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit, med_int *entype, 
	 med_int *geotype, med_int *num)
#endif

  if (!_fn1)
    return(-1);

  _ret = (med_int)  MEDmeshEntityNumberRd(*fid, 
					  (char*) _fn1, 
					  (med_int) *numdt,
					  (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_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

  if (!_fn1)
    return(-1);

  _ret = (med_int) MEDmeshEntityFamilyNumberWr(*fid, (char*) _fn1, (med_int) *numdt,
					       (med_int) *numit, _etype, _gtype, (med_int) *n,
					       (med_int *) num);



#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit, med_int *entype, 
	 med_int *geotype, med_int *num)
#endif

  if (!_fn1)
    return(-1);

  _ret = (med_int) MEDmeshEntityFamilyNumberRd(*fid, (char*) _fn1, (med_int) *numdt,
					       (med_int) *numit, _etype, _gtype,
					       (med_int *) num);



#ifdef PPRO_NT
med_int 
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_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

  /* if (!_fn2) */
  /*   return(-1); */

  _ret = (med_int) MEDmeshEntityNameWr(*fid, (char*) _fn1, (med_int) *numdt,
				       (med_int) *numit, _etype, _gtype, (med_int) *n,
				       ename);
				       /* _fn2); */


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
	 char *ename)
#endif

      (_gtype == MED_POLYHEDRON))
    _cmode = MED_NODAL;

  _n = MEDmeshnEntity(*fid,_fn1,(med_int) *numdt,(med_int) *numit,
		     _etype, _gtype,MED_NAME,_cmode,&_changement,
		     &_transformation);


  _fs2 = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*_n+1);*_fs2='\0';
  if (!_fs2)  return (-1);

  _ret = (med_int) MEDmeshEntityNameRd(*fid, (char*) _fn1, (med_int) *numdt,
				       (med_int) *numit, _etype, _gtype,
				       _fs2);



#ifdef PPRO_NT
med_int 
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_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

  if (!_fn1 )
    return(-1);

  ret = (med_int) MEDmeshnEntity(*fid, (char*) _fn1, (med_int) *numdt,
				 (med_int) *numit, _etype, _gtype, _datatype,_cmode,
				 &_changement,&_transformation);



#ifdef PPRO_NT
med_int 
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_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)

  if (!_fn1)
    return(-1);

  _ret = (med_int) MEDmeshElementConnectivityWr(*fid, 
						(char*) _fn1, 
						(med_int) *numdt,
						(med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_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)

  if (!_fn1)
    return(-1);

  _ret = (med_int) MEDmeshElementConnectivityRd(*fid, 
						(char*) _fn1, 
						(med_int) *numdt,
						(med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_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,

  if (!_fn2)
    return(-1);

  _ret = (med_int) MEDmeshElementConnectivityWithProfileWr(*fid, 
							   (char*) _fn1, 
							   (med_int) *numdt,
							   (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_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,

  if (!_fn2)
    return(-1);

  _ret = (med_int) MEDmeshElementConnectivityWithProfileRd(*fid, 
							   (char*) _fn1, 
							   (med_int) *numdt,
							   (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_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,

  _fn1 = _MED2cstring((char *) mname, (int) * mnamelen);
  if (!_fn1 ) return(-1);

  ret = (med_int) MEDmeshnEntityWithProfile(*fid, 
					    (char*) _fn1, 
					    (med_int) *numdt,
					    (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_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,

  if (!_fn2)
    return(-1);
  
  _ret = (med_int) MEDmeshNodeWr(*fid, 
				 (char*) _fn1, 
				 (med_int) *numdt,
				 (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_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)

  if (!_fn1)
    return(-1);

  _n = MEDmeshnEntity(*fid,_fn1,(med_int) *numdt,(med_int) *numit, 
		     MED_NODE,MED_NONE,MED_NAME,MED_NO_CMODE,&_changement,
		     &_transformation);
  if (_n < 0)

  if (!_fs2)
    return (-1);
  
  _ret = (med_int) MEDmeshNodeRd(*fid, 
				 (char*) _fn1, 
				 (med_int) *numdt,
				 (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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,

		  med_int *inum, med_int *num, med_int *ifam, med_int *fam)
#else
med_int 
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,

  if (!_fn2)
    return(-1);
  
  _ret = (med_int) MEDmeshElementWr(*fid, 
				    (char*) _fn1, 
				    (med_int) *numdt,
				    (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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,

		  med_int *inum, med_int *num, med_int *ifam, med_int *fam)
#else
med_int 
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, 

  if (!_fn1)
    return(-1);

  _n = MEDmeshnEntity(*fid,_fn1,(med_int) *numdt,(med_int) *numit, 
		      _etype,_gtype,MED_NAME,_cmode,&_changement,
		      &_transformation);
  if (_n < 0)

  if (!_fs2)
    return (-1);

  _ret = (med_int) MEDmeshElementRd(*fid, 
				    _fn1, 
				    (med_int) *numdt,
				    (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit, med_float *dt,  
	 unsigned char **flt,med_float *coo)
#endif

  if (!_fn1)
    return(-1);
  
  _ret = (med_int) MEDmeshNodeCoordinateAdvancedWr(*fid, 
						   _fn1, 
						   (med_int) *numdt,
						   (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit, unsigned char **flt,
	 med_float *coo)
#endif

  if (!_fn1)
    return(-1);
  
  _ret = (med_int) MEDmeshNodeCoordinateAdvancedRd(*fid, 
						   _fn1, 
						   (med_int) *numdt,
						   (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_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)

  if (!_fn1)
    return(-1);

  _ret = (med_int) MEDmeshElementConnectivityAdvancedWr(*fid, 
							 _fn1, 
							(med_int) *numdt,
							(med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_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)

  if (!_fn1)
    return(-1);

  _ret = (med_int) MEDmeshElementConnectivityAdvancedRd(*fid, 
							(char*) _fn1, 
							(med_int) *numdt,
							(med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_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)

  if (!_fn1)
    return(-1);

  _ret = (med_int) MEDmeshPolygonWr(*fid, 
				    (char*)   _fn1, 
				    (med_int) *numdt,
				    (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit, 
	 med_int *entype, med_int *cmode, 
	 med_int *index,

  if (!_fn1)
    return(-1);

  _ret = (med_int) MEDmeshPolygonRd(*fid, 
				    (char*) _fn1, 
				    (med_int) *numdt,
				    (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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,

		  med_int *connectivity)
#else
med_int 
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,

  if (!_fn1)
    return(-1);

  _ret = (med_int) MEDmeshPolyhedronWr(*fid, 
				       (char*)   _fn1, 
				       (med_int) *numdt,
				       (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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,

		  med_int *connectivity)
#else
med_int 
nmmhfphr(med_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit,
	 med_int *entype, med_int *cmode, 
	 med_int *findex,

  if (!_fn1)
    return(-1);

  _ret = (med_int) MEDmeshPolyhedronRd(*fid, 
				       (char*)   _fn1, 
				       (med_int) *numdt,
				       (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_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

  if (!_fn1)
    return(-1);

  _ret = (med_int)  MEDmeshGlobalNumberWr(*fid, 
					  (char*) _fn1, 
					  (med_int) *numdt,
					  (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit, med_int *entype, 
	 med_int *geotype, med_int *num)
#endif

  if (!_fn1)
    return(-1);

  _ret = (med_int)  MEDmeshGlobalNumberRd(*fid, 
					  (char*) _fn1, 
					  (med_int) *numdt,
					  (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt1, med_int *numit1, 
	 med_int *numdt2, med_int *numit2, med_float *dt2)
#endif


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *csit, med_int *numdt, med_int *numit, 
	 med_float *dt)
#endif


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit, 
	 med_float *dt)
#endif


#ifdef PPRO_NT
med_int 
MMHFSTR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
		  med_int *stype)
#else
med_int 
nmmhfstr(med_idt *fid, char *mname, med_int *mnamelen,med_int *stype)
#endif
{
  med_int _ret;


#ifdef PPRO_NT
med_int 
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_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)

  if (!_fn2)
    return(-1);

  _ret = (med_int) MEDmeshStructElementVarAttWr(*fid, 
						_fn1, 
						(med_int) *numdt,
						(med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_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)

  if (!_fn2)
    return(-1);

  _ret = (med_int) MEDmeshStructElementVarAttWr(*fid, 
						_fn1, 
						(med_int) *numdt,
						(med_int) *numit, 


#ifdef PPRO_NT
med_int
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_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)

    return(-1);

  /* nom de l'element de structure */
  _ret = MEDstructElementName(*fid,
			      _gtype,
			      _modelname);
  if (_ret < 0)
    return (-1);

  /* nombre de composante de l'attribut */
  _ret = MEDstructElementVarAttInfoByName(*fid,
					  _modelname,
					  _fn2,
					  &_type,

  if (!_fn3)
    return(-1);

  _ret = (med_int) MEDmeshStructElementVarAttWr(*fid,
						_fn1,
						(med_int) *numdt,
						(med_int) *numit,


#ifdef PPRO_NT
med_int
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit, med_int *geotype, 
	 char *aname, med_int *anamelen,
	 med_float *val)

  if (!_fn2)
    return(-1);

  _ret = (med_int) MEDmeshStructElementVarAttRd(*fid, 
						_fn1, 
						(med_int) *numdt,
						(med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit, med_int *geotype, 
	 char *aname, med_int *anamelen,
	 med_int *val)

  if (!_fn2)
    return(-1);

  _ret = (med_int) MEDmeshStructElementVarAttRd(*fid, 
						_fn1, 
						(med_int) *numdt,
						(med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit, med_int *geotype, 
	 char *aname, med_int *anamelen,
	 char *val)

    return(-1);

  /* on recupere le nom du modèle de structure */
  _ret = MEDstructElementName(*fid, 
			      _gtype, 
			      _modelname);   
  if (_ret < 0)

    au type de modele de structure dans le maillage
    de calcul 
  */
  _n =  MEDmeshnEntity(*fid, 
		       _fn1, 
		       (med_int) *numdt,
		       (med_int) *numit, 

  if (!_fs3)
    return(-1);

  _ret = (med_int) MEDmeshStructElementVarAttRd(*fid, 
						_fn1, 
						(med_int) *numdt,
						(med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_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

  if (!_fn1)
    return(-1);

  _ret = (med_int)  MEDmeshEntityInfo(*fid, 
				      (char*) _fn1, 
				      (med_int) *numdt,
				      (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit, med_float *dt, med_float *tsf)
#endif
{

  if (!_fn1)
    return(-1);
  
  _ret = (med_int) MEDmeshNodeCoordinateTrsfWr(*fid, 
					       (char*) _fn1, 
					       (med_int) *numdt,
					       (med_int) *numit, 


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen,
	 med_int *numdt, med_int *numit, med_float *tsf)
#endif
{

  if (!_fn1)
    return(-1);
  
  _ret = (med_int) MEDmeshNodeCoordinateTrsfRd(*fid, 
					       (char*) _fn1, 
					       (med_int) *numdt,
					       (med_int) *numit, 


#ifdef PPRO_NT
med_int 
MMHFAAW(med_idt *fid, 
		  char *mname, unsigned int bidon, med_int *mnamelen,
		  med_int *datatype, 
		  med_int *numdt, 

		  med_int *val)
#else
med_int 
nmmhfaaw(med_idt *fid, 
	 char *mname, med_int *mnamelen,
	 med_int *datatype,
	 med_int *numdt, 

  if (!_fn1)
    return(-1);

  _ret = (med_int) MEDmeshEntityAttributeAdvancedWr(*fid, 
						    _fn1,
						    _datatype,
						    (med_int) *numdt,


#ifdef PPRO_NT
med_int 
MMHFAAR(med_idt *fid, 
		  char *mname, unsigned int bidon, med_int *mnamelen,
		  med_int *datatype, 
		  med_int *numdt, 

		  med_int *val)
#else
med_int 
nmmhfaar(med_idt *fid, 
	 char *mname, med_int *mnamelen,
	 med_int *datatype,
	 med_int *numdt, 

  if (!_fn1)
    return(-1);

  _ret = (med_int) MEDmeshEntityAttributeAdvancedRd(*fid, 
						    _fn1,
						    _datatype,
						    (med_int) *numdt,


#ifdef PPRO_NT
med_int 
MMHFASW(med_idt *fid, 
		  char *mname, unsigned int bidon, med_int *mnamelen,
		  med_int *datatype, 
		  med_int *numdt, 

		  char *val)
#else
med_int 
nmmhfasw(med_idt *fid, 
	 char *mname, med_int *mnamelen,
	 med_int *datatype,
	 med_int *numdt, 

  if (!_fn1)
    return(-1);

  _ret = (med_int) MEDmeshEntityAttributeAdvancedWr(*fid, 
						    _fn1,
						    _datatype,
						    (med_int) *numdt,


#ifdef PPRO_NT
med_int 
MMHFASR(med_idt *fid, 
		  char *mname, unsigned int bidon, med_int *mnamelen,
		  med_int *datatype, 
		  med_int *numdt, 

		  char *val)
#else
med_int 
nmmhfasr(med_idt *fid, 
	 char *mname, med_int *mnamelen,
	 med_int *datatype,
	 med_int *numdt, 

  if (!_fn1)
    return(-1);

  _ret = (med_int) MEDmeshEntityAttributeAdvancedRd(*fid, 
						    _fn1,
						    _datatype,
						    (med_int) *numdt,

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test14.f (-1 / +2 lines)
28	implicit none	28	implicit none
29	include 'med.hf'	29	include 'med.hf'
30	C	30	C
31	integer cret, fid	31	integer*8 fid
		32	integer cret
32	C la dimension du maillage	33	C la dimension du maillage
33	integer mdim	34	integer mdim
34	C nom du maillage de longueur maxi MED_TAILLE_NOM	35	C nom du maillage de longueur maxi MED_TAILLE_NOM

Lines 27-33 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test20.f (-1 / +2 lines)
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	C	29	C
30	integer cret, fid, ncha, nmaa, mid, mid2	30	integer*8 fid,mid,mid2
		31	integer cret, ncha, nmaa
31	integer i, ncomp, type	32	integer i, ncomp, type
32	character*16 comp(3), unit(3)	33	character*16 comp(3), unit(3)
33	character*32 nom	34	character*32 nom

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test21.f (-1 / +2 lines)
26	implicit none	26	implicit none
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	integer cret, fid	29	integer*8 fid
		30	integer cret
30	character*16 edtuni,dtunit1	31	character*16 edtuni,dtunit1
31	character*32 nom1, nom2	32	character*32 nom1, nom2
32	character*200 desc1, desc2	33	character*200 desc1, desc2

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test3.f (-1 / +2 lines)
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	C	30	C
31	integer cret,fid,cres,type,cnu	31	integer*8 fid
		32	integer cret,cres,type,cnu
32	character*32 maa	33	character*32 maa
33	character*80 nomu	34	character*80 nomu
34	character*200 desc	35	character*200 desc

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/test14.f (-1 / +2 lines)
28	implicit none	28	implicit none
29	include 'med.hf'	29	include 'med.hf'
30	C	30	C
31	integer cret, fid	31	integer*8 fid
		32	integer cret
32	C la dimension du maillage	33	C la dimension du maillage
33	integer mdim,sdim	34	integer mdim,sdim
34	C nom du maillage de longueur maxi MED_TAILLE_NOM	35	C nom du maillage de longueur maxi MED_TAILLE_NOM

Lines 27-33 C Link Here

(-)med-3.3.1_SRC/tests/f/test20.f (-1 / +2 lines)
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	C	29	C
30	integer cret, fid, ncha, nmaa, mid, mid2	30	integer*8 fid, mid, mid2
		31	integer cret, ncha, nmaa
31	integer i, ncomp, type	32	integer i, ncomp, type
32	character*16 comp(3), unit(3), dtunit	33	character*16 comp(3), unit(3), dtunit
33	character*64 nomcha,nommaa	34	character*64 nomcha,nommaa

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/f/test21.f (-1 / +2 lines)
26	implicit none	26	implicit none
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	integer cret, fid	29	integer*8 fid
		30	integer cret
30	character*16 edtuni,dtunit1	31	character*16 edtuni,dtunit1
31	character*64 nom1, nom2	32	character*64 nom1, nom2
32	character*200 desc1, desc2	33	character*200 desc1, desc2

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/test3.f (-1 / +2 lines)
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	C	30	C
31	integer cret,fid,cres,type,cnu	31	integer*8 fid
		32	integer cret,cres,type,cnu
32	character*64 maa	33	character*64 maa
33	character*80 nomu	34	character*80 nomu
34	character*200 desc	35	character*200 desc

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/f/test10f.f (-1 / +2 lines)
26	implicit none	26	implicit none
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	integer ret,fid,USER_INTERLACE,USER_MODE	29	integer*8 fid
		30	integer ret,USER_INTERLACE,USER_MODE
30	integer FTYPECHA	31	integer FTYPECHA
31	real*8 a,b,p1,p2,dt	32	real*8 a,b,p1,p2,dt
32		33





#ifdef PPRO_NT
med_int 
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_idt *fid, char *maa, med_int *lon1, char *eq, med_int *lon2, 
	  char *desc, med_int *lon3)
#endif
{


#ifdef PPRO_NT
med_int
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_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,


#ifdef PPRO_NT
med_int
MEQFNEQ(med_idt *fid, char *maa, unsigned int bidon, med_int *lon1)
#else
med_int
nmeqfneq(med_idt *fid, char *maa,med_int *lon1)
#endif
{
  med_int _ret;


#ifdef PPRO_NT
med_int 
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_idt *fid, char *maa,med_int *lon1,med_int *ind, char *eq,
	 char *des, med_int *nstep, med_int *ncstcor)
#endif
{


#ifdef PPRO_NT
med_int
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_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)


#ifdef PPRO_NT
med_int
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_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)


#ifdef PPRO_NT
med_int
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_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,


#ifdef PPRO_NT
med_int 
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_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)





#ifdef PPRO_NT
med_int
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_idt *fid, char *mname, med_int *mnamelen,
	 char *fname, med_int *fnamelen,
	 med_int *fnum, med_int *ng, char* gname,
	 med_int *gnamelen)


#ifdef PPRO_NT
int
MFAFNFA(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen)
#else
med_int
nmfafnfa(med_idt *fid, char *mname, med_int *mnamelen)
#endif
{
  med_int _ret;


#ifdef PPRO_NT
int
MFAFNFG(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, med_int *it)
#else
med_int
nmfafnfg(med_idt *fid, char *mname, med_int *mnamelen, med_int *it)
#endif
{
  med_int _ret;


#ifdef  PPRO_NT
int
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_idt *fid, char *mname,med_int *mnamelen,
	 med_int *it, char *fname,
	 med_int *fnum, char *gname)
#endif


#ifdef PPRO_NT
int
MFAFONA(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen, med_int *it)
#else
med_int
nmfafona(med_idt *fid, char *mname, med_int *mnamelen, med_int *it)
#endif
{
  med_int _ret;


#ifdef  PPRO_NT
int
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_idt *fid, char *mname,med_int *mnamelen,
	 med_int *it, char *fname,
	 med_int *attr_ident, med_int *attr_val,
	 char *attr_desc,





#ifdef PPRO_NT
med_int
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_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)


#ifdef PPRO_NT
med_int
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_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)


#ifdef PPRO_NT
med_int
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_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)


#ifdef PPRO_NT
med_int
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,  

		  med_int *swm,med_int *cs, med_int *n, med_float *val)
#else
med_int
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,


#ifdef PPRO_NT
med_int
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,  

		  med_int *swm,med_int *cs, med_int *n, med_int *val)
#else
med_int
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,  


#ifdef PPRO_NT
med_int
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_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, 


#ifdef PPRO_NT
med_int
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_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, 


#ifdef PPRO_NT
med_int 
MFDFNFD(med_idt *fid)
#else
med_int 
nmfdfnfd(med_idt *fid)
#endif
{
  med_int _ret; 


#ifdef PPRO_NT
med_int 
MFDFNFC(med_idt *fid, med_int *ind)
#else
med_int 
nmfdfnfc(med_idt *fid, med_int *ind)
#endif
{
  med_int _ret; 


#ifdef PPRO_NT
med_int 
MFDFNCN(med_idt *fid,  
		  char* fname, unsigned int bidon1, med_int *fnamelen)
#else
med_int 
nmfdfncn(med_idt *fid, 
	 char* fname, med_int *fnamelen)
#endif
{


#ifdef PPRO_NT
med_int 
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, 

		  med_int *nc)
#else
med_int 
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


#ifdef PPRO_NT
med_int 
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, 

		  med_int *nc)
#else
med_int 
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)


#ifdef PPRO_NT
med_int
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_idt *fid, char* fname, med_int *fnamelen,
	 med_int *it, med_int *numdt, med_int *numit, med_float *dt)
#endif
{


#ifdef PPRO_NT
med_int
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_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


#ifdef PPRO_NT
med_int
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_idt *fid, char* fname, med_int *fnamelen,
	 med_int *numdt, med_int *numit,
	 med_int *meshnumdt, med_int *meshnumit)
#endif


#ifdef PPRO_NT
med_int 
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_idt *fid, char*fname, med_int *fnamelen,
	 med_int *numdt, med_int *numit, med_int *etype, med_int *gtype,
	 char *dpname, char *dlname)
#endif


#ifdef PPRO_NT
med_int
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_idt *fid, char *fname, med_int *fnamelen,
	 med_int *numdt, med_int *numit, med_int *etype, med_int *gtype)
#endif
{


#ifdef PPRO_NT
med_int 
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_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)


#ifdef PPRO_NT
med_int 
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_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)


#ifdef PPRO_NT
med_int
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_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)


#ifdef PPRO_NT
med_int
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_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)


#ifdef PPRO_NT
med_int
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_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,   


#ifdef PPRO_NT
med_int
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_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,  


#ifdef PPRO_NT
med_int
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_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)


#ifdef PPRO_NT
med_int
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_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)


#ifdef PPRO_NT
med_int
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_idt *fid, char *fname, med_int *fnamelen,
	 char *iname, med_int *inamelen)
#endif
{


#ifdef PPRO_NT
med_int 
MFDFNIN(med_idt *fid, 
		  char *fname, unsigned int bidon1, med_int *fnamelen)
#else
med_int 
nmfdfnin(med_idt *fid,char *fname, med_int *fnamelen)
#endif
{
  med_int _ret; 


#ifdef PPRO_NT
med_int
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_idt *fid, char *fname, med_int *fnamelen, med_int *it, char *iname)
#endif
{
  med_err _ret=0;


#ifdef PPRO_NT
med_int
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_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)


#ifdef PPRO_NT
med_int 
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_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)


#ifdef PPRO_NT
med_int 
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_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, 


#ifdef PPRO_NT
med_int
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,

		  med_int *swm,med_int *cs, med_float *val)
#else
med_int
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,


#ifdef PPRO_NT
med_int
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,

		  med_int *swm, med_int *cs, med_int *val)
#else
med_int
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, 





#ifdef PPRO_NT
med_int
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_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


#ifdef PPRO_NT
med_int
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_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)





#ifdef PPRO_NT
med_int 
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_idt *fid,
	 char *name, med_int *lon1,
	 med_int *gtype, med_int *cnode, med_int *nvar,
	 med_int *mdeg, med_int *nmaxc)


#ifdef PPRO_NT
med_int 
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_idt *fid,
	 char *name, med_int *lon1,
	 med_int *it, med_int *nc, med_int *pw, med_float *co)
#endif


#ifdef PPRO_NT
med_int 
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_idt *fid,
	 char *name, med_int *lon1,
	 med_int *it, med_int *nc, med_int *pw, med_float *co)
#endif


#ifdef PPRO_NT
med_int 
MIPFNIP(med_idt *fid)
#else
med_int 
nmipfnip(med_idt *fid)
#endif
{
  med_int _ret; 


#ifdef PPRO_NT
med_int 
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_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)


#ifdef PPRO_NT
med_int 
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_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


#ifdef PPRO_NT
med_int 
MIPFCSZ(med_idt *fid, 
                  char *name,  unsigned int bidon1, med_int *lon1,
		  med_int *it)
#else
med_int 
nmipfcsz(med_idt *fid, 
	 char *name, med_int *lon1,
	 med_int *it)
#endif





#ifdef PPRO_NT
med_int 
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,

		   )
#else
med_int 
nmsdfjcr(med_idt *fid, 
	 char *lmname,  med_int *lon1,
	 char *jname, med_int *lon2, 
	 char *desc, med_int *lon3,


#ifdef PPRO_NT
med_int 
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,

		  med_int *n, med_int *corrtab)
#else
med_int 
nmsdfcrw (med_idt *fid, 
	  char *maa_local,med_int *lon1,
	  char *jn,med_int *lon2, 
	  med_int *numdt, med_int *numit,


#ifdef PPRO_NT
med_int 
MSDFNJN(med_idt *fid,
                  char *maa,  unsigned int bidon1, med_int *lon1)
#else
med_int  
nmsdfnjn(med_idt *fid, 
	 char *maa, med_int *lon1)
#endif
{


#ifdef PPRO_NT
med_int 
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,

		  med_int *nstep, med_int *ncor)
#else
med_int
nmsdfjni(med_idt *fid,
	 char *maa, med_int *lon1,
	 med_int *ind, char *jname,
	 char *desc, med_int *dom,char *rname,


#ifdef PPRO_NT
med_int 
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,

		  med_int *ncor)
#else
med_int 
nmsdfszi(med_idt *fid,
	 char *maa, med_int *lon1,
	 char *jname, med_int *lon2,
	 med_int *numdt, med_int *numit, med_int *it,


#ifdef PPRO_NT
med_int 
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, 

		  med_int *ncor)
#else
med_int 
nmsdfcsz(med_idt *fid,
	 char *maa, med_int *lon1,
	 char *jname, med_int *lon2,
	 med_int *numdt, med_int *numit,


#ifdef PPRO_NT
med_int 
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,

		  med_int *corrtab)
#else
med_int 
nmsdfcrr (med_idt *fid, 
	  char *maa_local,med_int *lon1,
	  char *jn,med_int *lon2, 
	  med_int *numdt, med_int *numit,


#ifdef PPRO_NT
med_int 
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_idt *fid,
	 char *maa, med_int *lon1,
	 char *jname, med_int *lon2,
	 med_int *ind, med_int *numdt, med_int *numit,





#ifdef PPRO_NT
med_int 
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_idt *fid, char *pname, med_int *lon1,
	 med_int *type, char *desc, med_int *lon2,
	 char *dtunit, med_int *lon3)
#endif


#ifdef PPRO_NT
med_int 
MPRFNPR(med_idt *fid)
#else
med_int 
nmprfnpr(med_idt *fid)
#endif
{
  med_int _ret; 


#ifdef PPRO_NT
med_int 
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_idt *fid, med_int *it, char *name,  
	 med_int *type, char *desc,
	 char *dtunit, med_int *nstep)
#endif


#ifdef PPRO_NT
med_int 
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_idt *fid, char *name, med_int *namelen,
	 med_int *type, char *desc,
	 char *dtunit, med_int *nstep)
#endif


#ifdef PPRO_NT
med_int
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_idt *fid, char *name, med_int *namelen,
	 med_int *it, med_int *numdt, med_int *numit, med_float *dt)
#endif
{





#ifdef PPRO_NT
med_int 
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_idt *fid, 
         char *mname, med_int *mnamelen, 
         med_int * mdim,
	 char *smname, med_int *smnamelen,


#ifdef PPRO_NT
med_int 
MSEFNSE(med_idt *fid)
#else
med_int 
nmsefnse (med_idt *fid)
#endif
{
  med_int _ret; 


#ifdef PPRO_NT
med_int 
MSEFSEI(med_idt *fid, med_int *it, 
		  char *mname, unsigned int bidon1,
		  med_int *mgtype, med_int * mdim,
		  char *smname, unsigned int bidon2,

		  med_int *nvatt)
#else
med_int 
nmsefsei(med_idt *fid, med_int *it, 
	 char *mname, 
	 med_int *mgtype, med_int * mdim,
	 char *smname, 


#ifdef PPRO_NT
med_int 
MSEFSIN(med_idt *fid, 
		  char *mname, unsigned int bidon1, med_int *mnamelen,
		  med_int *mgtype, med_int * mdim,
		  char *smname, unsigned int bidon2,

		  med_int *nvatt)
#else
med_int 
nmsefsin(med_idt *fid, 
	 char *mname, med_int *mnamelen,
	 med_int *mgtype, med_int * mdim,
	 char *smname, 


#ifdef PPRO_NT
med_int 
MSEFSEN(med_idt *fid, med_int *mgtype, char *mname, unsigned int bidon)
#else
med_int 
nmsefsen(med_idt *fid, med_int *mgtype, char *mname)
#endif
{
  med_int _ret;


#ifdef PPRO_NT
med_int 
MSEFSGT(med_idt *fid, char *mname, unsigned int bidon,med_int *mnamelen)
#else
med_int 
nmsefsgt(med_idt *fid, char *mname, med_int *mnamelen)
#endif
{
  med_int _ret; 


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen, 
	 char *aname, med_int *anamelen,
	 med_int *atype, med_int *anc)
#endif


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen, 
	 char *aname, med_int *anamelen,
	 med_int *atype, med_int *anc)
#endif


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen, med_int *it,
	 char *aname, med_int *atype, med_int *anc)
#endif
{


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen, 
	 char *aname, med_int *anamelen,
	 med_int *atype, med_int *anc,
	 med_int *setype, med_float *val)


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen, 
	 char *aname, med_int *anamelen,
	 med_int *atype, med_int *anc,
	 med_int *setype, med_int *val)


#ifdef PPRO_NT
med_int 
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_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)


#ifdef PPRO_NT
med_int 
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, 

		  med_float *val)
#else
med_int 
nmsefrpw(med_idt *fid, char *mname, med_int *mnamelen, 
	 char *aname, med_int *anamelen,
	 med_int *atype, med_int *anc,
	 med_int *setype, 


#ifdef PPRO_NT
med_int 
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, 

		  med_int *val)
#else
med_int 
nmsefipw(med_idt *fid, char *mname, med_int *mnamelen, 
	 char *aname, med_int *anamelen,
	 med_int *atype, med_int *anc,
	 med_int *setype, 


#ifdef PPRO_NT
med_int 
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_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,


#ifdef PPRO_NT
med_int 
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_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)


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen, 
	 med_int *it,
	 char *aname, 
	 med_int *atype, med_int *anc,


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen, 
	 char *aname, med_int *anamelen,
	 med_float *val)
#endif


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen, 
	 char *aname, med_int *anamelen,
	 med_int *val)
#endif


#ifdef PPRO_NT
med_int 
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_idt *fid, char *mname, med_int *mnamelen, 
	 char *aname, med_int *anamelen,
	 char *val)
#endif





#ifdef PPRO_NT
med_int 
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_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, 


#ifdef PPRO_NT
med_int
MSMFNSM(med_idt *fid)
#else
med_int
nmsmfnsm(med_idt *fid)
#endif
{
  med_int _ret;


#ifdef PPRO_NT
med_int
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,

		  char *aunit, unsigned int bidon5)
#else
med_int
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


#ifdef PPRO_NT
med_int
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,

		  char *aunit, unsigned int bidon5)
#else
med_int
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


#ifdef PPRO_NT
med_int
MSMFNAN(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen)
#else
med_int
nmsmfnan(med_idt *fid, char *mname, med_int *mnamelen)
#endif
{
  med_int _ret;


#ifdef PPRO_NT
med_int 
MSMFNAX(med_idt *fid, med_int *it)
#else
med_int 
nmsmfnax(med_idt *fid, med_int *it)
#endif
{
  med_int _ret; 

Lines 27-33 C Link Here

(-)med-3.3.1_SRC/tests/f/test4.f (-1 / +2 lines)
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	C	29	C
30	integer cret, fid	30	integer*8 fid
		31	integer cret
31		32
32	C la dimension du maillage	33	C la dimension du maillage
33	integer mdim, sdim	34	integer mdim, sdim

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.1/test10.f (-1 / +2 lines)
26	implicit none	26	implicit none
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	integer ret,fid,USER_INTERLACE,USER_MODE	29	integer*8 fid
		30	integer ret,USER_INTERLACE,USER_MODE
30	real*8 a,b,p1,p2,dt	31	real*8 a,b,p1,p2,dt
31		32
32	character*32 maa1,maa2,maa3	33	character*32 maa1,maa2,maa3

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.2/test10.f (-1 / +2 lines)
26	implicit none	26	implicit none
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	integer ret,fid,USER_INTERLACE,USER_MODE	29	integer*8 fid
		30	integer ret,USER_INTERLACE,USER_MODE
30	real*8 a,b,p1,p2,dt	31	real*8 a,b,p1,p2,dt
31		32
32	character*32 maa1,maa2,maa3	33	character*32 maa1,maa2,maa3

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test10.f (-1 / +2 lines)
26	implicit none	26	implicit none
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	integer ret,fid,USER_INTERLACE,USER_MODE	29	integer*8 fid
		30	integer ret,USER_INTERLACE,USER_MODE
30	real*8 a,b,p1,p2,dt	31	real*8 a,b,p1,p2,dt
31		32
32	character*32 maa1,maa2,maa3	33	character*32 maa1,maa2,maa3

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test12.f (-1 / +2 lines)
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	C	30	C
31	integer cret,fid	31	integer*8 fid
		32	integer cret
32	character*32 maa , equ	33	character*32 maa , equ
33	character*200 des	34	character*200 des
34	integer mdim ,ncor	35	integer mdim ,ncor

Lines 30-36 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test16.f (-1 / +2 lines)
30	include 'med.hf'	30	include 'med.hf'
31	C	31	C
32	C	32	C
33	integer cret, fid, mdim, nse2, ntr3	33	integer*8 fid
		34	integer cret, mdim, nse2, ntr3
34	character*32 maa	35	character*32 maa
35	parameter (mdim = 2,nse2 = 5,maa = "maa1", ntr3 = 2)	36	parameter (mdim = 2,nse2 = 5,maa = "maa1", ntr3 = 2)
36	integer se2 (2*nse2)	37	integer se2 (2*nse2)

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test18.f (-1 / +1 lines)
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	C	30	C
31	integer fid	31	integer*8 fid
32	integer cret	32	integer cret
33	integer maj,min,rel	33	integer maj,min,rel
34		34

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test23.f (-1 / +2 lines)
26	implicit none	26	implicit none
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	integer cret, fid,mdim	29	integer*8 fid
		30	integer cret, mdim
30	parameter (mdim = 3)	31	parameter (mdim = 3)
31	character*32 maa	32	character*32 maa
32	integer ni, n	33	integer ni, n

Lines 27-33 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test24.f (-1 / +2 lines)
27	implicit none	27	implicit none
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	integer cret, fid,mdim,nmaa,npoly,i,j,k,taille	30	integer*8 fid
		31	integer cret,mdim,nmaa,npoly,i,j,k,taille
31	character*32 maa	32	character*32 maa
32	character*200 desc	33	character*200 desc
33	integer ni, n	34	integer ni, n

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test25.f (-1 / +2 lines)
26	implicit none	26	implicit none
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	integer cret, fid,mdim	29	integer*8 fid
		30	integer cret,mdim
30	parameter (mdim = 3)	31	parameter (mdim = 3)
31	character*32 maa	32	character*32 maa
32	integer n	33	integer n

Lines 27-33 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test26.f (-1 / +2 lines)
27	implicit none	27	implicit none
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	integer cret,fid,mdim,nmaa,npoly,i,j,k,l	30	integer*8 fid
		31	integer cret,mdim,nmaa,npoly,i,j,k,l
31	integer nfaces, nnoeuds	32	integer nfaces, nnoeuds
32	integer ind1, ind2	33	integer ind1, ind2
33	character*32 maa	34	character*32 maa

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test27.f (-1 / +2 lines)
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	C	30	C
31	integer cret, fid	31	integer*8 fid
		32	integer cret
32	C la dimension du maillage	33	C la dimension du maillage
33	integer mdim	34	integer mdim
34	C nom du maillage de longueur maxi MED_TAILLE_NOM	35	C nom du maillage de longueur maxi MED_TAILLE_NOM

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test28.f (-1 / +2 lines)
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	C	30	C
31	integer cret, fid,i,j	31	integer*8 fid
		32	integer cret,i,j
32	C la dimension du maillage	33	C la dimension du maillage
33	integer mdim,nind,nmaa,type,quoi,rep,typmaa	34	integer mdim,nind,nmaa,type,quoi,rep,typmaa
34	C nom du maillage de longueur maxi MED_TAILLE_NOM	35	C nom du maillage de longueur maxi MED_TAILLE_NOM

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test29.f (-1 / +2 lines)
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	C	30	C
31	integer cret,fid, domdst	31	integer*8 fid
		32	integer cret, domdst
32	character*32 maa , jnt, maadst	33	character*32 maa , jnt, maadst
33	character*200 des	34	character*200 des
34	integer mdim ,ncor	35	integer mdim ,ncor

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test31.f (-1 / +2 lines)
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	C	30	C
31	integer cret,fid	31	integer*8 fid
		32	integer cret
32	character*32 maa	33	character*32 maa
33	character*200 des	34	character*200 des
34	integer nmaa, mdim , nnoe, type, ind	35	integer nmaa, mdim , nnoe, type, ind

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test32.f (-1 / +2 lines)
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	C	30	C
31	integer cret,fid	31	integer*8 fid
		32	integer cret
32	character*32 maa	33	character*32 maa
33	character*200 des	34	character*200 des
34	integer nmaa, mdim , nnoe,type	35	integer nmaa, mdim , nnoe,type

Lines 29-35 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test33.f (-1 / +2 lines)
29	include 'med.hf'	29	include 'med.hf'
30	C	30	C
31	C	31	C
32	integer cret,fid	32	integer*8 fid
		33	integer cret
33	character*32 maa	34	character*32 maa
34	character*200 desc	35	character*200 desc
35	integer nmaa,mdim,type,narr	36	integer nmaa,mdim,type,narr

Lines 27-33 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test4.f (-1 / +2 lines)
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	C	29	C
30	integer cret, fid	30	integer*8 fid
		31	integer cret
31		32
32	C la dimension du maillage	33	C la dimension du maillage
33	integer mdim	34	integer mdim

Lines 27-33 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test6.f (-1 / +2 lines)
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	C	29	C
30	integer cret, fid	30	integer*8 fid
		31	integer cret
31		32
32	integer mdim,nse2,ntr3	33	integer mdim,nse2,ntr3
33	parameter (nse2 = 5, ntr3 = 2, mdim = 2)	34	parameter (nse2 = 5, ntr3 = 2, mdim = 2)

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/f/2.3.6/test8.f (-1 / +2 lines)
26	implicit none	26	implicit none
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	integer cret, fid	29	integer*8 fid
		30	integer cret
30		31
31	character*32 maa	32	character*32 maa
32	integer mdim	33	integer mdim

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/test12.f (-1 / +2 lines)
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	C	30	C
31	integer cret,fid	31	integer*8 fid
		32	integer cret
32	character*64 maa , equ	33	character*64 maa , equ
33	character*200 des	34	character*200 des
34	integer mdim ,ncor, sdim	35	integer mdim ,ncor, sdim

Lines 30-36 C Link Here

(-)med-3.3.1_SRC/tests/f/test16.f (-1 / +2 lines)
30	include 'med.hf'	30	include 'med.hf'
31	C	31	C
32	C	32	C
33	integer cret, fid, mdim, nse2, ntr3, sdim	33	integer*8 fid
		34	integer cret, mdim, nse2, ntr3, sdim
34	character*64 maa	35	character*64 maa
35	parameter (mdim = 2,nse2 = 5,maa = "maa1", ntr3 = 2, sdim=2)	36	parameter (mdim = 2,nse2 = 5,maa = "maa1", ntr3 = 2, sdim=2)
36	integer se2 (2*nse2)	37	integer se2 (2*nse2)

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/test18.f (-1 / +1 lines)
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	C	30	C
31	integer fid	31	integer*8 fid
32	integer cret	32	integer cret
33	integer maj,min,rel	33	integer maj,min,rel
34	integer hdfok, medok	34	integer hdfok, medok

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/f/test23.f (-1 / +2 lines)
26	implicit none	26	implicit none
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	integer cret, fid,mdim,sdim	29	integer*8 fid
		30	integer cret,mdim,sdim
30	parameter (mdim = 2, sdim = 2)	31	parameter (mdim = 2, sdim = 2)
31	character*64 maa	32	character*64 maa
32	integer ni, n	33	integer ni, n

Lines 27-33 C Link Here

(-)med-3.3.1_SRC/tests/f/test24.f (-1 / +2 lines)
27	implicit none	27	implicit none
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	integer cret, fid,mdim,nmaa,npoly,i,j,k,taille	30	integer*8 fid
		31	integer cret,mdim,nmaa,npoly,i,j,k,taille
31	integer edim,nstep,stype,atype, chgt, tsf	32	integer edim,nstep,stype,atype, chgt, tsf
32	character*64 maa	33	character*64 maa
33	character*200 desc	34	character*200 desc

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/f/test25.f (-1 / +2 lines)
26	implicit none	26	implicit none
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	integer cret, fid,mdim, sdim	29	integer*8 fid
		30	integer cret,mdim, sdim
30	parameter (mdim = 3, sdim = 3)	31	parameter (mdim = 3, sdim = 3)
31	character*64 maa	32	character*64 maa
32	integer n	33	integer n

Lines 27-33 C Link Here

(-)med-3.3.1_SRC/tests/f/test26.f (-1 / +2 lines)
27	implicit none	27	implicit none
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	integer cret,fid,mdim,nmaa,npoly,i,j,k,l,nfindex	30	integer*8 fid
		31	integer cret,mdim,nmaa,npoly,i,j,k,l,nfindex
31	integer edim,nstep,stype,atype, chgt, tsf	32	integer edim,nstep,stype,atype, chgt, tsf
32	integer nfaces, nnoeuds	33	integer nfaces, nnoeuds
33	integer ind1, ind2	34	integer ind1, ind2

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/test27.f (-1 / +2 lines)
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	C	30	C
31	integer cret, fid	31	integer*8 fid
		32	integer cret
32	C la dimension du maillage	33	C la dimension du maillage
33	integer mdim,sdim	34	integer mdim,sdim
34	C nom du maillage de longueur maxi MED_TAILLE_NOM	35	C nom du maillage de longueur maxi MED_TAILLE_NOM

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/test28.f (-1 / +2 lines)
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	C	30	C
31	integer cret, fid,i,j	31	integer*8 fid
		32	integer cret,i,j
32	C la dimension du maillage	33	C la dimension du maillage
33	integer mdim,nind,nmaa,type,quoi,rep,typmaa	34	integer mdim,nind,nmaa,type,quoi,rep,typmaa
34	integer edim,nstep,stype,atype, chgt, tsf	35	integer edim,nstep,stype,atype, chgt, tsf

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/test29.f (-1 / +2 lines)
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	C	30	C
31	integer cret,fid, domdst	31	integer*8 fid
		32	integer cret,domdst
32	character*64 maa , jnt, maadst	33	character*64 maa , jnt, maadst
33	character*200 des	34	character*200 des
34	integer mdim ,ncor	35	integer mdim ,ncor

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/test31.f (-1 / +2 lines)
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	C	30	C
31	integer cret,fid	31	integer*8 fid
		32	integer cret
32	character*64 maa	33	character*64 maa
33	character*200 des	34	character*200 des
34	integer nmaa, mdim , nnoe, type, ind,sdim	35	integer nmaa, mdim , nnoe, type, ind,sdim

Lines 28-34 C Link Here

(-)med-3.3.1_SRC/tests/f/test32.f (-1 / +2 lines)
28	include 'med.hf'	28	include 'med.hf'
29	C	29	C
30	C	30	C
31	integer cret,fid	31	integer*8 fid
		32	integer cret
32	character*64 maa	33	character*64 maa
33	character*200 des	34	character*200 des
34	integer nmaa, mdim ,nnoe,type,sdim	35	integer nmaa, mdim ,nnoe,type,sdim

Lines 29-35 C Link Here

(-)med-3.3.1_SRC/tests/f/test33.f (-1 / +2 lines)
29	include 'med.hf'	29	include 'med.hf'
30	C	30	C
31	C	31	C
32	integer cret,fid	32	integer*8 fid
		33	integer cret
33	character*64 maa	34	character*64 maa
34	character*200 desc	35	character*200 desc
35	integer nmaa,mdim,type,narr,chgt,tsf	36	integer nmaa,mdim,type,narr,chgt,tsf

Lines 27-33 C Link Here

(-)med-3.3.1_SRC/tests/f/test6.f (-1 / +2 lines)
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	C	29	C
30	integer cret, fid	30	integer*8 fid
		31	integer cret
31		32
32	integer mdim,nse2,ntr3,sdim	33	integer mdim,nse2,ntr3,sdim
33	parameter (nse2=5, ntr3=2, mdim=2, sdim=2)	34	parameter (nse2=5, ntr3=2, mdim=2, sdim=2)

Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/f/test8.f (-1 / +2 lines)
26	implicit none	26	implicit none
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	integer cret, fid	29	integer*8 fid
		30	integer cret
30		31
31	character*64 maa	32	character*64 maa
32	integer mdim, sdim	33	integer mdim, sdim





#ifdef PPRO_NT
med_int 
MLNFNLN(med_idt *fid)
#else
med_int 
nmlnfnln(med_idt *fid)
#endif
{
  med_int _ret; 


#ifdef PPRO_NT
med_int 
MLNFLNI(med_idt *fid, med_int *it, char*mname, unsigned int bidon1, 
		  med_int *lsize)
#else
med_int
nmlnflni(med_idt *fid, med_int *it, char*mname, med_int *lsize)
#endif
{
  med_int _ret;


#ifdef PPRO_NT
med_int 
MLNFLAI(med_idt *fid, char*mname, unsigned int bidon1, med_int *mnamelen, med_int *lsize)
#else
med_int
nmlnflai(med_idt *fid, char*mname, med_int *mnamelen, med_int *lsize)
#endif
{
  med_int _ret;





#ifdef PPRO_NT
med_int 
MPFFNPF(med_idt *fid)
#else
med_int 
nmpffnpf(med_idt *fid)
#endif
{
  med_int _ret; 


#ifdef PPRO_NT
med_int 
MPFFPFI(med_idt *fid, med_int *it, char*pname, unsigned int bidon1, 
		  med_int *psize)
#else
med_int 
nmpffpfi(med_idt *fid, med_int *it, char*pname, med_int *psize)
#endif
{
  med_int _ret;


#ifdef PPRO_NT
med_int 
MPFFPSN(med_idt *fid, char*pname, unsigned int bidon1, med_int *pnamelen, 
		  med_int *psize)
#else
med_int 
nmpffpsn(med_idt *fid, char*pname, med_int *pnamelen, med_int *psize)
#endif
{
  med_int _ret=0;





#ifdef PPRO_NT
med_int 
MLCFNLC(med_idt *fid)
#else
med_int 
nmlcfnlc(med_idt *fid)
#endif
{
  med_int _ret; 


#ifdef PPRO_NT
med_int 
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_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)



#ifdef PPRO_NT
med_int
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_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

Lines 71-77 void getContinuousBlocksOfEntities(const Link Here

(-)med-3.3.1_SRC/tests/parallel/getBlocksOfEntitiesPartition.c (-1 / +1 lines)
71	}	71	}
72	++(*start);	72	++(*start);
73	*lastusedrank=_lastusedrank;	73	*lastusedrank=_lastusedrank;
74	printf("My rank %d , start %l , stride %l , blocksize %l , count %l , lastblocksize %l\n",	74	printf("My rank %d , start %lld , stride %lld , blocksize %lld , count %lld , lastblocksize %lld\n",
75	myrank,start,stride,blocksize,count,*lastblocksize);	75	myrank,start,stride,blocksize,count,*lastblocksize);
76	return;	76	return;
77	}	77	}

Lines 87-93 typedef struct { Link Here

(-)med-3.3.1_SRC/tests/parallel/filterBlockOfentities.c (-2 / +2 lines)
87		87
88		88
89		89
90	med_err generateFieldFile( const med_size nentities, const med_size nvaluesperentity, const med_size nconstituentpervalue,	90	med_err generateFieldFile( const med_int nentities, const med_size nvaluesperentity, const med_size nconstituentpervalue,
91	const med_switch_mode constituentmode,GetBlocksOfEntitiesType getBlockOfEntities, const med_int nbblocksperproc,	91	const med_switch_mode constituentmode,GetBlocksOfEntitiesType getBlockOfEntities, const med_int nbblocksperproc,
92	GenerateDataType generateDatas,	92	GenerateDataType generateDatas,
93	const med_storage_mode storagemode, const med_size profilearraysize, const char * const fieldnameprefix, COM_info * const cominfo ) {	93	const med_storage_mode storagemode, const med_size profilearraysize, const char * const fieldnameprefix, COM_info * const cominfo ) {
Lines 410-416 int main (int argc, char **argv) Link Here
410	MPI_Comm_rank(MPI_COMM_WORLD, &(_cominfo.mpi_rank));	410	MPI_Comm_rank(MPI_COMM_WORLD, &(_cominfo.mpi_rank));
411		411
412	med_size _nbblocksperproc = 0;	412	med_size _nbblocksperproc = 0;
413	int _nentities = 0;	413	med_int _nentities = 0;
414	int _nvaluesperentity = 0;	414	int _nvaluesperentity = 0;
415	int _nconstituentpervalue = 0;	415	int _nconstituentpervalue = 0;
416		416

Lines 27-33 Link Here

(-)med-3.3.1_SRC/tests/parallel/generateFilterArray.c (-1 / +1 lines)
27		27
28	static int cmp(const med_int p1, const med_int p2) { return p1-p2; }	28	static int cmp(const med_int p1, const med_int p2) { return p1-p2; }
29		29
30	med_err generateFilterArray( const med_size nentities, const med_size nvaluesperentity, const med_size nconstituentpervalue,	30	med_err generateFilterArray( const med_int nentities, const med_size nvaluesperentity, const med_size nconstituentpervalue,
31	const med_size profilearraysize, const med_int * const profilearray,	31	const med_size profilearraysize, const med_int * const profilearray,
32	med_int * const nentitiesfiltered, med_int **filterarray ) {	32	med_int * const nentitiesfiltered, med_int **filterarray ) {
33		33

Lines 22-28 Link Here

(-)med-3.3.1_SRC/tests/parallel/generateFilterArray.h (-1 / +1 lines)
22	#include <med.h>	22	#include <med.h>
23	#define MESGERR 1	23	#define MESGERR 1
24		24
25	med_err generateFilterArray( const med_size nentities, const med_size nvaluesperentity, const med_size nconstituentpervalue,	25	med_err generateFilterArray( const med_int nentities, const med_size nvaluesperentity, const med_size nconstituentpervalue,
26	const med_size profilearraysize, const med_int * const profilearray,	26	const med_size profilearraysize, const med_int * const profilearray,
27	med_int * const nentitiesfiltered, med_int **filterarray );	27	med_int * const nentitiesfiltered, med_int **filterarray );
28		28




         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 !
#      ])
     else
## In case user explicitly ask to not use hdf5 !
      AC_MSG_WARN([Can't compile MED without hdf5])

Lines 435-441 med_idt _MEDmemFileOpen(const char * con Link Here

(-)med-3.3.1_SRC/src/hdfi/_MEDmemFileOpen.c (-1 / +1 lines)
435	}	435	}
436		436
437	#if H5_VERS_MINOR > 8	437	#if H5_VERS_MINOR > 8
438	#error "Don't forget to change the compatibility version of the library !"	438	#warning "Don't forget to change the compatibility version of the library !"
439	#endif	439	#endif
440	if ( H5Pset_libver_bounds( _fapl, H5F_LIBVER_18, H5F_LIBVER_18) ) {	440	if ( H5Pset_libver_bounds( _fapl, H5F_LIBVER_18, H5F_LIBVER_18) ) {
441	MED_ERR_(_fid,MED_ERR_INIT,MED_ERR_PROPERTY,MED_ERR_FILEVERSION_MSG);	441	MED_ERR_(_fid,MED_ERR_INIT,MED_ERR_PROPERTY,MED_ERR_FILEVERSION_MSG);






#ifdef PPRO_NT
med_idt
MFIFOMN (med_idt *fid,
		   char *fname,
		   unsigned int bidon,
		   med_int *len,
		   med_int *class)
#else
med_idt
nmfifomn(med_idt *fid,
	 char *fname,
	 med_int  *len,

#endif
{
  char *_fn;
  med_idt _ret;
  med_class _class = (med_class) *class;

  _fn = _MED2cstring((char *) fname, (int) *len);
  if (!_fn)
    return(-1);

  _ret = MEDfileObjectsMount(*fid, _fn, _class );

  _MEDcstringFree(_fn);


Lines 26-32 C Link Here

(-)med-3.3.1_SRC/tests/f/3.2.1/test10.f (-1 / +2 lines)
26	implicit none	26	implicit none
27	include 'med.hf'	27	include 'med.hf'
28	C	28	C
29	integer ret,fid,USER_INTERLACE,USER_MODE	29	integer*8 fid
		30	integer ret,USER_INTERLACE,USER_MODE
30	real*8 a,b,p1,p2,dt	31	real*8 a,b,p1,p2,dt
31		32
32	character*64 maa1,maa2,maa3	33	character*64 maa1,maa2,maa3

Lines 25-32 AC_SUBST(MED_NUM_RELEASE) Link Here

(-)med-3.3.1_SRC/configure.ac (-2 / +2 lines)
25	#med_check_hdf5.m4	25	#med_check_hdf5.m4
26	HDF_VERSION_REF=5-1.8.11	26	HDF_VERSION_REF=5-1.8.11
27	HDF_VERSION_MAJOR_REF=1	27	HDF_VERSION_MAJOR_REF=1
28	HDF_VERSION_MINOR_REF=8	28	HDF_VERSION_MINOR_REF=10
29	HDF_VERSION_RELEASE_REF=11	29	HDF_VERSION_RELEASE_REF=0
30	AC_SUBST(HDF_VERSION_REF)	30	AC_SUBST(HDF_VERSION_REF)
31	AC_SUBST(HDF_VERSION_MAJOR_REF)	31	AC_SUBST(HDF_VERSION_MAJOR_REF)
32	AC_SUBST(HDF_VERSION_MINOR_REF)	32	AC_SUBST(HDF_VERSION_MINOR_REF)

Lines 52-58 MEDfileObjectsMount(const med_idt Link Here

(-)med-3.3.1_SRC/src/ci/MEDfileObjectsMount.c (-1 / +1 lines)
52	if ( func != (MedFuncType) NULL )	52	if ( func != (MedFuncType) NULL )
53	func (dummy,	53	func (dummy,
54	fid,	54	fid,
55	0,	55	(med_idt) 0,
56	mountfilename,	56	mountfilename,
57	medclass,	57	medclass,
58	&fret);	58	&fret);

Lines 355-363 Link Here

(-)a/config/cmake_files/medMacros.cmake (-3 / +3 lines)
355	##	355	##
356	## Requires 1.8.x version	356	## Requires 1.8.x version
357	##	357	##
358	IF (NOT HDF_VERSION_MAJOR_REF EQUAL 1 OR NOT HDF_VERSION_MINOR_REF EQUAL 8)	358	#IF (NOT HDF_VERSION_MAJOR_REF EQUAL 1 OR NOT HDF_VERSION_MINOR_REF EQUAL 8)
359	MESSAGE(FATAL_ERROR "HDF5 version is ${HDF_VERSION_REF}. Only 1.8.x versions are supported.")	359	# MESSAGE(FATAL_ERROR "HDF5 version is ${HDF_VERSION_REF}. Only 1.8.x versions are supported.")
360	ENDIF()	360	#ENDIF()
361	##	361	##
362	##	362	##
363		363

Return to bug 597768

Lines 23-29 c Link Here

(-)med-3.3.1_SRC/src/2.3.6/fi/entmaaf.f (-19 / +38 lines)
23	save	23	save
24	c	24	c
25	character () maa	25	character () maa
26	integer fid, conn(*),typent,typgeo,typcon,cret	26	integer*8 fid
		27	integer conn(*),typent,typgeo,typcon,cret
27	integer edfcone,n,mdim, switch	28	integer edfcone,n,mdim, switch
28	c	29	c
29	cret = edfcone (fid, maa ,len(maa),mdim,conn,switch,n,	30	cret = edfcone (fid, maa ,len(maa),mdim,conn,switch,n,
Lines 43-49 c Link Here
43	c	44	c
44	character () maa	45	character () maa
45	integer mdim	46	integer mdim
46	integer fid, conn(*),typent,typgeo,typcon,cret	47	integer*8 fid
		48	integer conn(*),typent,typgeo,typcon,cret
47	integer pfltab(*), psize	49	integer pfltab(*), psize
48	integer edfconl,switch	50	integer edfconl,switch
49	c	51	c
Lines 64-70 c Link Here
64	c	66	c
65	character () maa	67	character () maa
66	real8 coo()	68	real8 coo()
67	integer fid,typrep,mdim	69	integer*8 fid
		70	integer typrep,mdim
68	integer edfcooe,n,cret,modcoo	71	integer edfcooe,n,cret,modcoo
69	character () nom, unit	72	character () nom, unit
70	c	73	c
Lines 86-92 c Link Here
86	character () maa	89	character () maa
87	real8 coo()	90	real8 coo()
88	integer mdim	91	integer mdim
89	integer fid,typrep,cret,modcoo	92	integer*8 fid
		93	integer typrep,cret,modcoo
90	integer pfltab(*),psize, numco	94	integer pfltab(*),psize, numco
91	integer edfcool	95	integer edfcool
92	character () nom, unit	96	character () nom, unit
Lines 107-113 c Link Here
107	c	111	c
108	character () maa	112	character () maa
109	character() nom	113	character() nom
110	integer fid,typent, typgeo,cret	114	integer*8 fid
		115	integer typent, typgeo,cret
111	integer edfnome,n	116	integer edfnome,n
112	c	117	c
113	cret = edfnome (fid, maa ,len(maa),nom, 16*n, n,	118	cret = edfnome (fid, maa ,len(maa),nom, 16*n, n,
Lines 125-131 c Link Here
125	c	130	c
126	character () maa	131	character () maa
127	character() nom	132	character() nom
128	integer fid,typent, typgeo,cret	133	integer*8 fid
		134	integer typent, typgeo,cret
129	integer edfnoml,n	135	integer edfnoml,n
130	c	136	c
131	cret = edfnoml (fid, maa ,len(maa),nom,n,	137	cret = edfnoml (fid, maa ,len(maa),nom,n,
Lines 143-149 c Link Here
143	c	149	c
144	character () maa	150	character () maa
145	integer num(*)	151	integer num(*)
146	integer fid,typent, typgeo,cret	152	integer*8 fid
		153	integer typent, typgeo,cret
147	integer edfnume, n	154	integer edfnume, n
148	c	155	c
149	cret = edfnume (fid, maa ,len(maa),num, n,	156	cret = edfnume (fid, maa ,len(maa),num, n,
Lines 162-168 c Link Here
162	c	169	c
163	character () maa	170	character () maa
164	integer num(*)	171	integer num(*)
165	integer fid,typent, typgeo,cret	172	integer*8 fid
		173	integer typent, typgeo,cret
166	integer edfnuml,n	174	integer edfnuml,n
167	c	175	c
168	cret = edfnuml (fid, maa ,len(maa),num, n,	176	cret = edfnuml (fid, maa ,len(maa),num, n,
Lines 179-185 c Link Here
179	save	187	save
180	c	188	c
181	character () maa	189	character () maa
182	integer fid,typent, typgeo,cret,typcon,n,quoi	190	integer*8 fid
		191	integer typent, typgeo,cret,typcon,n,quoi
183	integer edfnema	192	integer edfnema
184	c	193	c
185	n = edfnema(fid, maa ,len(maa),quoi,	194	n = edfnema(fid, maa ,len(maa),quoi,
Lines 203-209 c Link Here
203	save	212	save
204	c	213	c
205	character *32 maa	214	character *32 maa
206	integer fid, conn(),typent,typcon,cret,index()	215	integer*8 fid
		216	integer conn(),typent,typcon,cret,index()
207	integer edfpgce,ni	217	integer edfpgce,ni
208	c	218	c
209	cret = edfpgce(fid,maa,len(maa),index,ni,conn,typent,typcon)	219	cret = edfpgce(fid,maa,len(maa),index,ni,conn,typent,typcon)
Lines 220-226 c Link Here
220	save	230	save
221	c	231	c
222	character*32 maa	232	character*32 maa
223	integer fid, conn(),typent,typcon,cret,index()	233	integer*8 fid
		234	integer conn(),typent,typcon,cret,index()
224	integer edfpgcl,ni	235	integer edfpgcl,ni
225	c	236	c
226	cret = edfpgcl(fid,maa,len(maa),index,ni,conn,typent,typcon)	237	cret = edfpgcl(fid,maa,len(maa),index,ni,conn,typent,typcon)
Lines 235-241 c Link Here
235	save	246	save
236	c	247	c
237	character*32 maa	248	character*32 maa
238	integer fid,typent,typcon,cret	249	integer*8 fid
		250	integer typent,typcon,cret
239	integer edfpygi,consiz	251	integer edfpygi,consiz
240	c	252	c
241	cret = edfpygi(fid,maa,len(maa),typent,typcon,consiz)	253	cret = edfpygi(fid,maa,len(maa),typent,typcon,consiz)
Lines 252-258 c Link Here
252	save	264	save
253	c	265	c
254	character *32 maa	266	character *32 maa
255	integer fid, conn(),typcon,cret,indexp(),indexf(*)	267	integer*8 fid
		268	integer conn(),typcon,cret,indexp(),indexf(*)
256	integer edfpece,np,nf	269	integer edfpece,np,nf
257	c	270	c
258	cret = edfpece(fid,maa,len(maa),indexp,np,indexf,nf,conn,typcon)	271	cret = edfpece(fid,maa,len(maa),indexp,np,indexf,nf,conn,typcon)
Lines 269-275 c Link Here
269	save	282	save
270	c	283	c
271	character*32 maa	284	character*32 maa
272	integer fid, conn(),typcon,cret,indexp(),indexf(*)	285	integer*8 fid
		286	integer conn(),typcon,cret,indexp(),indexf(*)
273	integer edfpecl,np,nf	287	integer edfpecl,np,nf
274	c	288	c
275	cret = edfpecl(fid,maa,len(maa),indexp,np,indexf,nf,conn,typcon)	289	cret = edfpecl(fid,maa,len(maa),indexp,np,indexf,nf,conn,typcon)
Lines 284-290 c Link Here
284	save	298	save
285	c	299	c
286	character*32 maa	300	character*32 maa
287	integer fid,typcon,cret	301	integer*8 fid
		302	integer typcon,cret
288	integer edfpyei,consiz,nf	303	integer edfpyei,consiz,nf
289	c	304	c
290	cret = edfpyei(fid,maa,len(maa),typcon,nf,consiz)	305	cret = edfpyei(fid,maa,len(maa),typcon,nf,consiz)
Lines 303-309 c Link Here
303	c	318	c
304	character*32 maa	319	character*32 maa
305	real8 indices()	320	real8 indices()
306	integer fid,mdim,axe	321	integer*8 fid
		322	integer mdim,axe
307	integer edficoe,n,cret	323	integer edficoe,n,cret
308	character() comp, unit	324	character() comp, unit
309	c	325	c
Lines 324-330 c Link Here
324	c	340	c
325	character*32 maa	341	character*32 maa
326	real8 indices()	342	real8 indices()
327	integer fid,mdim,axe	343	integer*8 fid
		344	integer mdim,axe
328	integer edficol,n,cret	345	integer edficol,n,cret
329	character*16 comp, unit	346	character*16 comp, unit
330	c	347	c
Lines 344-350 c Link Here
344	c	361	c
345	character*32 maa	362	character*32 maa
346	integer struct(*)	363	integer struct(*)
347	integer fid,cret,mdim	364	integer*8 fid
		365	integer cret,mdim
348	integer edfscoe	366	integer edfscoe
349	c	367	c
350	cret = edfscoe (fid, maa ,len(maa),mdim,struct)	368	cret = edfscoe (fid, maa ,len(maa),mdim,struct)
Lines 361-367 c Link Here
361	c	379	c
362	character*32 maa	380	character*32 maa
363	integer struct(*)	381	integer struct(*)
364	integer fid,cret,mdim	382	integer*8 fid
		383	integer cret,mdim
365	integer edfscol	384	integer edfscol
366	c	385	c
367	cret = edfscol (fid, maa ,len(maa),mdim,struct)	386	cret = edfscol (fid, maa ,len(maa),mdim,struct)

Lines 25-31 c Link Here

(-)med-3.3.1_SRC/src/2.3.6/fi/jntf.f (-9 / +18 lines)
25	save	25	save
26	c	26	c
27	character () maalcl, jn, des, maadst	27	character () maalcl, jn, des, maadst
28	integer fid, dom, cret	28	integer*8 fid
		29	integer dom, cret
29	integer edfjntc	30	integer edfjntc
30	c	31	c
31	cret = edfjntc(fid, maalcl, len(maalcl), jn, len(jn),	32	cret = edfjntc(fid, maalcl, len(maalcl), jn, len(jn),
Lines 45-51 c Link Here
45	save	46	save
46	c	47	c
47	character () maalcl	48	character () maalcl
48	integer n, fid, cret	49	integer*8 fid
		50	integer n, cret
49	integer edfnjnt	51	integer edfnjnt
50	c	52	c
51	cret = edfnjnt(fid, maalcl, len(maalcl), n)	53	cret = edfnjnt(fid, maalcl, len(maalcl), n)
Lines 74-80 c Link Here
74	save	76	save
75	c	77	c
76	character () maalcl, jn, des, maadst	78	character () maalcl, jn, des, maadst
77	integer fid, ind, dom, cret	79	integer*8 fid
		80	integer ind, dom, cret
78	integer edfjnti	81	integer edfjnti
79	c	82	c
80	cret = edfjnti(fid, maalcl, len(maalcl), ind,	83	cret = edfjnti(fid, maalcl, len(maalcl), ind,
Lines 99-105 c Link Here
99	save	102	save
100	c	103	c
101	character () maalcl, jn	104	character () maalcl, jn
102	integer n, fid, cret, corrtab(*)	105	integer*8 fid
		106	integer n, cret, corrtab(*)
103	integer entlcl, entdst, geolcl, geodst	107	integer entlcl, entdst, geolcl, geodst
104	integer edfjnte	108	integer edfjnte
105	c	109	c
Lines 122-128 c Link Here
122	save	126	save
123	c	127	c
124	character () maalcl, jn	128	character () maalcl, jn
125	integer n, fid, cret, corrtab(*)	129	integer*8 fid
		130	integer n, cret, corrtab(*)
126	integer entlcl, entdst, geolcl, geodst	131	integer entlcl, entdst, geolcl, geodst
127	integer edfjntl	132	integer edfjntl
128	c	133	c
Lines 146-152 c Link Here
146	save	151	save
147	c	152	c
148	character () maalcl, jn	153	character () maalcl, jn
149	integer fid, entlcl, entdst, geolcl, geodst, nent, cret	154	integer*8 fid
		155	integer entlcl, entdst, geolcl, geodst, nent, cret
150	integer edfjnco	156	integer edfjnco
151	c	157	c
152	nent = edfjnco(fid,	158	nent = edfjnco(fid,
Lines 177-183 c Link Here
177	save	183	save
178	c	184	c
179	character () maalcl, jn	185	character () maalcl, jn
180	integer fid, entlcl, entdst, geolcl, geodst, nent, cret, ind	186	integer*8 fid
		187	integer entlcl, entdst, geolcl, geodst, nent, cret, ind
181	integer edfjtco	188	integer edfjtco
182	c	189	c
183	nent = edfjtco(fid,	190	nent = edfjtco(fid,
Lines 210-216 c Link Here
210	save	217	save
211	c	218	c
212	character () maa	219	character () maa
213	integer n, fid, cret, numtab(*)	220	integer*8 fid
		221	integer n, cret, numtab(*)
214	integer ent, geo	222	integer ent, geo
215	integer edfgnme	223	integer edfgnme
216	c	224	c
Lines 232-238 c Link Here
232	save	240	save
233	c	241	c
234	character () maa	242	character () maa
235	integer n, fid, cret, numtab(*)	243	integer*8 fid
		244	integer n, cret, numtab(*)
236	integer ent, geo	245	integer ent, geo
237	integer edfgnml	246	integer edfgnml
238	c	247	c

Lines 23-29 c Link Here

(-)med-3.3.1_SRC/src/2.3.6/fi/maaf.f (-16 / +32 lines)
23	c	23	c
24	character () nom	24	character () nom
25	character () desc	25	character () desc
26	integer fid, dim, type, cret	26	integer*8 fid
		27	integer dim, type, cret
27	integer edfmaac	28	integer edfmaac
28	c	29	c
29	cret = edfmaac (fid, nom , len(nom), dim, type, desc, len(desc))	30	cret = edfmaac (fid, nom , len(nom), dim, type, desc, len(desc))
Lines 38-44 c Link Here
38	implicit none	39	implicit none
39	save	40	save
40	c	41	c
41	integer fid, n, cret	42	integer*8 fid
		43	integer n, cret
42	integer edfnmaa	44	integer edfnmaa
43	c	45	c
44	n = edfnmaa(fid)	46	n = edfnmaa(fid)
Lines 60-66 c Link Here
60	implicit none	62	implicit none
61	save	63	save
62	c	64	c
63	integer fid,dim,cret,indice,type	65	integer*8 fid
		66	integer dim,cret,indice,type
64	character () maa	67	character () maa
65	character () desc	68	character () desc
66	integer edfmaai	69	integer edfmaai
Lines 78-84 c Link Here
78	implicit none	81	implicit none
79	save	82	save
80	c	83	c
81	integer fid,dim,cret	84	integer*8 fid
		85	integer dim,cret
82	character () maa	86	character () maa
83	integer edfdiml	87	integer edfdiml
84	c	88	c
Lines 99-105 c Link Here
99	implicit none	103	implicit none
100	save	104	save
101	c	105	c
102	integer fid,n,cret	106	integer*8 fid
		107	integer n,cret
103	character() maa	108	character() maa
104	integer edfnnsl	109	integer edfnnsl
105	c	110	c
Lines 120-126 c Link Here
120	implicit none	125	implicit none
121	save	126	save
122	c	127	c
123	integer fid,n,cret	128	integer*8 fid
		129	integer n,cret
124	character() maa	130	character() maa
125	integer edfnnse	131	integer edfnnse
126	c	132	c
Lines 135-141 c Link Here
135	implicit none	141	implicit none
136	save	142	save
137	c	143	c
138	integer fid,n,cret	144	integer*8 fid
		145	integer n,cret
139	character() maa	146	character() maa
140	integer edfnnil	147	integer edfnnil
141	c	148	c
Lines 156-162 c Link Here
156	implicit none	163	implicit none
157	save	164	save
158	c	165	c
159	integer fid,n,cret	166	integer*8 fid
		167	integer n,cret
160	character() maa	168	character() maa
161	integer edfnnie	169	integer edfnnie
162	c	170	c
Lines 171-177 c Link Here
171	implicit none	179	implicit none
172	save	180	save
173	c	181	c
174	integer fid,n,cret	182	integer*8 fid
		183	integer n,cret
175	character() maa	184	character() maa
176	integer edfnnml	185	integer edfnnml
177	c	186	c
Lines 192-198 c Link Here
192	implicit none	201	implicit none
193	save	202	save
194	c	203	c
195	integer fid,n,cret	204	integer*8 fid
		205	integer n,cret
196	character() maa	206	character() maa
197	integer edfnnme	207	integer edfnnme
198	c	208	c
Lines 208-214 c Link Here
208	save	218	save
209	c	219	c
210	character () nom	220	character () nom
211	integer fid, cret	221	integer*8 fid
		222	integer cret
212	integer edfunvc	223	integer edfunvc
213	c	224	c
214	cret = edfunvc (fid, nom , len(nom))	225	cret = edfunvc (fid, nom , len(nom))
Lines 222-228 c Link Here
222	implicit none	233	implicit none
223	save	234	save
224	c	235	c
225	integer fid,cret	236	integer*8 fid
		237	integer cret
226	character () nom,nomu	238	character () nom,nomu
227	integer edfunvl	239	integer edfunvl
228	c	240	c
Lines 239-245 c Link Here
239	save	251	save
240	c	252	c
241	character () nom	253	character () nom
242	integer fid, dim, cret	254	integer*8 fid
		255	integer dim, cret
243	integer edfespc	256	integer edfespc
244	c	257	c
245	cret = edfespc (fid, nom , len(nom), dim)	258	cret = edfespc (fid, nom , len(nom), dim)
Lines 254-260 c Link Here
254	implicit none	267	implicit none
255	save	268	save
256	c	269	c
257	integer fid,dim,cret	270	integer*8 fid
		271	integer dim,cret
258	character () maa	272	character () maa
259	integer edfespl	273	integer edfespl
260	c	274	c
Lines 276-282 c Link Here
276	implicit none	290	implicit none
277	save	291	save
278	c	292	c
279	integer fid,typ,cret	293	integer*8 fid
		294	integer typ,cret
280	character() maa	295	character() maa
281	integer edfnage	296	integer edfnage
282	c	297	c
Lines 292-298 c Link Here
292	implicit none	307	implicit none
293	save	308	save
294	c	309	c
295	integer fid,typ,cret	310	integer*8 fid
		311	integer typ,cret
296	character() maa	312	character() maa
297	integer edfnagl	313	integer edfnagl
298	c	314	c

Lines 22-28 c Link Here

(-)med-3.3.1_SRC/src/2.3.6/fi/resf_i.f (-17 / +34 lines)
22	save	22	save
23	c	23	c
24	character () cha,comp,unit	24	character () cha,comp,unit
25	integer fid, ncomp, cret, type	25	integer*8 fid
		26	integer ncomp, cret, type
26	integer edfchac	27	integer edfchac
27	c	28	c
28	cret = edfchac (fid, cha,len(cha),type, comp,16*ncomp,	29	cret = edfchac (fid, cha,len(cha),type, comp,16*ncomp,
Lines 42-48 c Link Here
42	c	43	c
43	character () cha,maa,profil,locname	44	character () cha,maa,profil,locname
44	character() dtunit	45	character() dtunit
45	integer fid,val(*)	46	integer*8 fid
		47	integer val(*)
46	integer n,pflmod,typent,typgeo,cret	48	integer n,pflmod,typent,typgeo,cret
47	integer interlace,numco,numdt,numo	49	integer interlace,numco,numdt,numo
48	real*8 dt	50	real*8 dt
Lines 69-75 c Link Here
69	c	71	c
70	character () cha,maa,profil,locname	72	character () cha,maa,profil,locname
71	character() dtunit	73	character() dtunit
72	integer fid,val(*),n,pflmod,typent,typgeo,cret	74	integer*8 fid
		75	integer val(*),n,pflmod,typent,typgeo,cret
73	integer interlace,numco,numdt,numo	76	integer interlace,numco,numdt,numo
74	real*8 dt	77	real*8 dt
75	integer edfchae	78	integer edfchae
Lines 97-103 c Link Here
97	save	100	save
98	c	101	c
99	character () cha,maa,locname,profil	102	character () cha,maa,locname,profil
100	integer fid,val(*),pflmod,typent,typgeo,cret	103	integer*8 fid
		104	integer val(*),pflmod,typent,typgeo,cret
101	integer interlace,numco,numdt,numo	105	integer interlace,numco,numdt,numo
102	integer edfchal	106	integer edfchal
103	c	107	c
Lines 122-128 c Link Here
122	save	126	save
123	c	127	c
124	character () cha,maa,locname,profil	128	character () cha,maa,locname,profil
125	integer fid,val(*),typent,typgeo,cret,pflmod	129	integer*8 fid
		130	integer val(*),typent,typgeo,cret,pflmod
126	integer interlace,numco,numdt,numo	131	integer interlace,numco,numdt,numo
127	integer edfchal	132	integer edfchal
128	c	133	c
Lines 142-148 c Link Here
142	save	147	save
143	c	148	c
144	character () cha,comp,unit	149	character () cha,comp,unit
145	integer fid,ind,type,ncomp,cret	150	integer*8 fid
		151	integer ind,type,ncomp,cret
146	integer edfchai	152	integer edfchai
147	c	153	c
148	cret = edfchai(fid,ind,cha,type,	154	cret = edfchai(fid,ind,cha,type,
Lines 157-163 c Link Here
157	implicit none	163	implicit none
158	save	164	save
159	c	165	c
160	integer fid,ind,cret,n	166	integer*8 fid
		167	integer ind,cret,n
161	integer edfncha	168	integer edfncha
162	c	169	c
163	n = edfncha(fid,ind)	170	n = edfncha(fid,ind)
Lines 178-184 c Link Here
178	implicit none	185	implicit none
179	save	186	save
180	c	187	c
181	integer fid,typent,typgeo,n,cret	188	integer*8 fid
		189	integer typent,typgeo,n,cret
182	integer numdt, numo, pflmod	190	integer numdt, numo, pflmod
183	character () cha, maa	191	character () cha, maa
184	integer edfnval	192	integer edfnval
Lines 204-210 c Link Here
204	implicit none	212	implicit none
205	save	213	save
206	c	214	c
207	integer fid,type,geo,n,cret	215	integer*8 fid
		216	integer type,geo,n,cret
208	character*32 cha	217	character*32 cha
209	integer edfnpdt	218	integer edfnpdt
210	c	219	c
Lines 227-233 c Link Here
227	implicit none	236	implicit none
228	save	237	save
229	c	238	c
230	integer fid,typent,typgeo,ind,ngauss,numdt,numo,nmaa,cret	239	integer*8 fid
		240	integer typent,typgeo,ind,ngauss,numdt,numo,nmaa,cret
231	character*32 cha,maa	241	character*32 cha,maa
232	character*16 dtunit	242	character*16 dtunit
233	real*8 dt	243	real*8 dt
Lines 248-254 c Link Here
248	implicit none	258	implicit none
249	save	259	save
250	c	260	c
251	integer fid,typent,typgeo,n,cret	261	integer*8 fid
		262	integer typent,typgeo,n,cret
252	integer numdt, numo	263	integer numdt, numo
253	character () cha	264	character () cha
254	integer edfnref	265	integer edfnref
Lines 273-279 c Link Here
273	implicit none	284	implicit none
274	save	285	save
275	c	286	c
276	integer fid,typent,typgeo,indice,n,cret	287	integer*8 fid
		288	integer typent,typgeo,indice,n,cret
277	integer numdt, numo, ngauss	289	integer numdt, numo, ngauss
278	character () cha, maa	290	character () cha, maa
279	logical local	291	logical local
Lines 294-300 c Link Here
294		306
295	subroutine efliee(fid,lienval,maa,cret)	307	subroutine efliee(fid,lienval,maa,cret)
296	c DEC$ ATTRIBUTES DLLEXPORT :: efliee	308	c DEC$ ATTRIBUTES DLLEXPORT :: efliee
297	integer fid,cret	309	integer*8 fid
		310	integer cret
298	character () lienval, maa	311	character () lienval, maa
299	integer edfliee	312	integer edfliee
300		313
Lines 312-318 c Link Here
312	implicit none	325	implicit none
313	save	326	save
314	c	327	c
315	integer fid,cret,n	328	integer*8 fid
		329	integer cret,n
316	integer edfnlie	330	integer edfnlie
317	c	331	c
318	n = edfnlie(fid)	332	n = edfnlie(fid)
Lines 332-338 c Link Here
332	implicit none	346	implicit none
333	save	347	save
334	c	348	c
335	integer fid,n,cret,indice	349	integer*8 fid
		350	integer n,cret,indice
336	character () maa	351	character () maa
337	integer edfliei	352	integer edfliei
338	c	353	c
Lines 349-355 c Link Here
349	implicit none	364	implicit none
350	save	365	save
351	c	366	c
352	integer fid,cret,n	367	integer*8 fid
		368	integer cret,n
353	character () maa	369	character () maa
354	integer edfnvli	370	integer edfnvli
355	c	371	c
Lines 371-377 c Link Here
371	implicit none	387	implicit none
372	save	388	save
373	c	389	c
374	integer fid,n,cret	390	integer*8 fid
		391	integer n,cret
375	character () maa,lienval	392	character () maa,lienval
376	integer edfliel	393	integer edfliel
377	c	394	c

Lines 22-31 c Link Here

(-)med-3.3.1_SRC/src/fi/medfile.f (-12 / +19 lines)
22	implicit none	22	implicit none
23	save	23	save
24	character () name	24	character () name
25	integer fid	25	integer*8 fid
26	integer access,cret	26	integer access,cret
27	integer major, minor, rel	27	integer major, minor, rel
28	integer mfifvop	28	integer*8 mfifvop
29	c	29	c
30	fid = mfifvop(name, access, major, minor, rel, len(name))	30	fid = mfifvop(name, access, major, minor, rel, len(name))
31	if (fid.lt.0) then	31	if (fid.lt.0) then
Lines 43-51 c Link Here
43	implicit none	43	implicit none
44	save	44	save
45	character () name	45	character () name
46	integer fid	46	integer*8 fid
47	integer access,cret	47	integer access,cret
48	integer mfifope	48	integer*8 mfifope
49	c	49	c
50	fid = mfifope(name, access, len(name))	50	fid = mfifope(name, access, len(name))
51	if (fid.lt.0) then	51	if (fid.lt.0) then
Lines 82-88 c Link Here
82	implicit none	82	implicit none
83	save	83	save
84	c	84	c
85	integer fid,cret	85	integer*8 fid
		86	integer cret
86	integer mfifclo	87	integer mfifclo
87	c	88	c
88	cret = mfifclo(fid)	89	cret = mfifclo(fid)
Lines 98-104 c Link Here
98	implicit none	99	implicit none
99	save	100	save
100	c	101	c
101	integer fid,cret	102	integer*8 fid
		103	integer cret
102	character() cmt	104	character() cmt
103	integer mfifcow	105	integer mfifcow
104	c	106	c
Lines 114-120 c Link Here
114	implicit none	116	implicit none
115	save	117	save
116	c	118	c
117	integer fid,cret	119	integer*8 fid
		120	integer cret
118	character() cmt	121	character() cmt
119	integer mfifcor	122	integer mfifcor
120	c	123	c
Lines 131-137 c Link Here
131	implicit none	134	implicit none
132	save	135	save
133	c	136	c
134	integer fid,major, minor,rel	137	integer*8 fid
		138	integer major, minor,rel
135	integer cret	139	integer cret
136	integer mfifnvr	140	integer mfifnvr
137	c	141	c
Lines 148-154 c Link Here
148	save	152	save
149	c	153	c
150	character() version	154	character() version
151	integer cret,fid	155	integer*8 fid
		156	integer cret
152	integer mfifsvr	157	integer mfifsvr
153	c	158	c
154	cret = mfifsvr(fid,version,len(version))	159	cret = mfifsvr(fid,version,len(version))
Lines 183-190 c Link Here
183	save	188	save
184	c	189	c
185	character () fname	190	character () fname
186	integer class, fid, mid , cret	191	integer*8 fid, mid
187	integer mfifomn	192	integer class, cret
		193	integer*8 mfifomn
188	c	194	c
189	mid = mfifomn(fid, fname, len(fname), class)	195	mid = mfifomn(fid, fname, len(fname), class)
190	if (mid .eq.-1) then	196	if (mid .eq.-1) then
Lines 205-211 c Link Here
205	implicit none	211	implicit none
206	save	212	save
207	c	213	c
208	integer mid, fid, class, cret	214	integer*8 mid, fid
		215	integer class, cret
209	integer mfifoun	216	integer mfifoun
210	c	217	c
211	cret = mfifoun(fid, mid, class)	218	cret = mfifoun(fid, mid, class)

Lines 22-28 c Link Here

(-)med-3.3.1_SRC/src/2.3.6/fi/equf.f (-6 / +12 lines)
22	save	22	save
23	c	23	c
24	character () maa, des, eq	24	character () maa, des, eq
25	integer fid, cret	25	integer*8 fid
		26	integer cret
26	integer edfequc	27	integer edfequc
27	c	28	c
28	cret = edfequc(fid, maa, len(maa), eq, len(eq), des, len(des))	29	cret = edfequc(fid, maa, len(maa), eq, len(eq), des, len(des))
Lines 37-43 c Link Here
37	save	38	save
38	c	39	c
39	character () maa, eq	40	character () maa, eq
40	integer fid, cret, corr(*), n, typent, typgeo	41	integer*8 fid
		42	integer cret, corr(*), n, typent, typgeo
41	integer edfeque	43	integer edfeque
42	c	44	c
43	cret = edfeque(fid, maa, len(maa), eq, len(eq), corr,	45	cret = edfeque(fid, maa, len(maa), eq, len(eq), corr,
Lines 53-59 c Link Here
53	save	55	save
54	c	56	c
55	character () maa, eq	57	character () maa, eq
56	integer fid, cret, corr(*), n,typent, typgeo	58	integer*8 fid
		59	integer cret, corr(*), n,typent, typgeo
57	integer edfequl	60	integer edfequl
58	c	61	c
59	cret = edfequl(fid, maa, len(maa), eq, len(eq), corr,	62	cret = edfequl(fid, maa, len(maa), eq, len(eq), corr,
Lines 69-75 c Link Here
69	save	72	save
70	c	73	c
71	character () maa, eq	74	character () maa, eq
72	integer fid, cret, n,typent, typgeo	75	integer*8 fid
		76	integer cret, n,typent, typgeo
73	integer edfncor	77	integer edfncor
74	c	78	c
75	n = edfncor(fid, maa, len(maa), eq, len(eq), typent,typgeo)	79	n = edfncor(fid, maa, len(maa), eq, len(eq), typent,typgeo)
Lines 89-95 c Link Here
89	save	93	save
90	c	94	c
91	character () maa	95	character () maa
92	integer fid, cret, n	96	integer*8 fid
		97	integer cret, n
93	integer edfnequ	98	integer edfnequ
94	c	99	c
95	n = edfnequ(fid, maa, len(maa))	100	n = edfnequ(fid, maa, len(maa))
Lines 109-115 c Link Here
109	save	114	save
110	c	115	c
111	character () maa,eq,des	116	character () maa,eq,des
112	integer fid, cret,ind	117	integer*8 fid
		118	integer cret,ind
113	integer edfequi	119	integer edfequi
114	c	120	c
115	cret = edfequi(fid, maa, len(maa),ind,eq,des)	121	cret = edfequi(fid, maa, len(maa),ind,eq,des)

Lines 31-38 c Link Here

(-)med-3.3.1_SRC/src/2.3.6/fi/fichf.f (-10 / +18 lines)
31	save	31	save
32	c	32	c
33	character () nom	33	character () nom
34	integer acces, fid, cret	34	integer*8 fid
35	integer edfouvr	35	integer acces, cret
		36	integer*8 edfouvr
36	c	37	c
37	fid = edfouvr(nom, acces, len(nom))	38	fid = edfouvr(nom, acces, len(nom))
38	if (fid.eq.-1) then	39	if (fid.eq.-1) then
Lines 50-56 c Link Here
50	implicit none	51	implicit none
51	save	52	save
52	c	53	c
53	integer fid,cret	54	integer*8 fid
		55	integer cret
54	integer edfferm	56	integer edfferm
55	c	57	c
56	cret = edfferm(fid)	58	cret = edfferm(fid)
Lines 65-71 c Link Here
65	implicit none	67	implicit none
66	save	68	save
67	c	69	c
68	integer fid,cret,lon	70	integer*8 fid
		71	integer cret,lon
69	integer edflfde	72	integer edflfde
70	c	73	c
71	lon = edflfde(fid)	74	lon = edflfde(fid)
Lines 85-91 c Link Here
85	implicit none	88	implicit none
86	save	89	save
87	c	90	c
88	integer fid,quoi,cret	91	integer*8 fid
		92	integer quoi,cret
89	integer edffien	93	integer edffien
90	character() str	94	character() str
91	c	95	c
Lines 100-106 c DEC$ ATTRIBUTES DLLEXPORT :: effid Link Here
100	c	104	c
101	implicit none	105	implicit none
102	save	106	save
103	integer fid,cret	107	integer*8 fid
		108	integer cret
104	character() des	109	character() des
105	integer edffide	110	integer edffide
106	c	111	c
Lines 147-153 c Link Here
147	implicit none	152	implicit none
148	save	153	save
149	C	154	C
150	integer fid, maj, min, rel	155	integer*8 fid
		156	integer maj, min, rel
151	integer cret	157	integer cret
152	integer edfveli	158	integer edfveli
153	c	159	c
Lines 182-189 c Link Here
182	save	188	save
183	c	189	c
184	character () acces	190	character () acces
185	integer mid, fid, type, cret	191	integer*8 mid, fid
186	integer edfmont	192	integer type, cret
		193	integer*8 edfmont
187	c	194	c
188	mid = edfmont(fid, acces, len(acces), type)	195	mid = edfmont(fid, acces, len(acces), type)
189	if (mid .eq.-1) then	196	if (mid .eq.-1) then
Lines 203-209 c Link Here
203	implicit none	210	implicit none
204	save	211	save
205	c	212	c
206	integer mid, fid, type, cret	213	integer*8 mid, fid
		214	integer type, cret
207	integer edfdemo	215	integer edfdemo
208	c	216	c
209	cret = edfdemo(fid, mid, type)	217	cret = edfdemo(fid, mid, type)

Lines 21-27 c Link Here

(-)med-3.3.1_SRC/src/2.3.6/fi/gauss.f (-4 / +8 lines)
21	implicit none	21	implicit none
22	save	22	save
23	c	23	c
24	integer fid, n, cret	24	integer*8 fid
		25	integer n, cret
25	integer edfngau	26	integer edfngau
26	c	27	c
27	n = edfngau(fid)	28	n = edfngau(fid)
Lines 43-49 c Link Here
43	implicit none	44	implicit none
44	save	45	save
45	c	46	c
46	integer fid,indice,typgeo,ngauss,cret	47	integer*8 fid
		48	integer indice,typgeo,ngauss,cret
47	character () locname	49	character () locname
48	integer edfgaui	50	integer edfgaui
49	c	51	c
Lines 63-69 c Link Here
63	implicit none	65	implicit none
64	save	66	save
65	c	67	c
66	integer fid,typgeo,mode_coo,ngauss,cret	68	integer*8 fid
		69	integer typgeo,mode_coo,ngauss,cret
67	real8 refcoo(),gscoo(),wg()	70	real8 refcoo(),gscoo(),wg()
68	character () locname	71	character () locname
69	integer edfgaue	72	integer edfgaue
Lines 83-89 c Link Here
83	implicit none	86	implicit none
84	save	87	save
85	c	88	c
86	integer fid,mode_coo,cret	89	integer*8 fid
		90	integer mode_coo,cret
87	real8 refcoo(),gscoo(),wg()	91	real8 refcoo(),gscoo(),wg()
88	character () locname	92	character () locname
89	integer edfgaul	93	integer edfgaul

Lines 21-27 c Link Here

(-)med-3.3.1_SRC/src/2.3.6/fi/prof.f (-5 / +10 lines)
21	implicit none	21	implicit none
22	save	22	save
23	c	23	c
24	integer fid, n, cret	24	integer*8 fid
		25	integer n, cret
25	integer edfnpro	26	integer edfnpro
26	c	27	c
27	n = edfnpro(fid)	28	n = edfnpro(fid)
Lines 43-49 c Link Here
43	implicit none	44	implicit none
44	save	45	save
45	c	46	c
46	integer fid,n,cret,indice	47	integer*8 fid
		48	integer n,cret,indice
47	character () pro	49	character () pro
48	integer edfproi	50	integer edfproi
49	c	51	c
Lines 61-67 c Link Here
61	implicit none	63	implicit none
62	save	64	save
63	c	65	c
64	integer fid,n,cret	66	integer*8 fid
		67	integer n,cret
65	integer pflval(*)	68	integer pflval(*)
66	character () nom	69	character () nom
67	integer edfpfle	70	integer edfpfle
Lines 79-85 c Link Here
79	implicit none	82	implicit none
80	save	83	save
81	c	84	c
82	integer fid,cret,n	85	integer*8 fid
		86	integer cret,n
83	character () nom	87	character () nom
84	integer edfnpfl	88	integer edfnpfl
85	c	89	c
Lines 101-107 c Link Here
101	implicit none	105	implicit none
102	save	106	save
103	c	107	c
104	integer fid,cret	108	integer*8 fid
		109	integer cret
105	integer pflval(*)	110	integer pflval(*)
106	character () nom	111	character () nom
107	integer edfpfll	112	integer edfpfll

Lines 22-28 c Link Here

(-)med-3.3.1_SRC/src/2.3.6/fi/scalaire.f (-9 / +18 lines)
22	save	22	save
23	c	23	c
24	character () sca,desc	24	character () sca,desc
25	integer fid, cret, type	25	integer*8 fid
		26	integer cret, type
26	integer edfscac	27	integer edfscac
27	c	28	c
28	cret = edfscac (fid,sca,len(sca),type,desc,len(desc))	29	cret = edfscac (fid,sca,len(sca),type,desc,len(desc))
Lines 40-46 c Link Here
40	c	41	c
41	character *32 sca	42	character *32 sca
42	character() dtunit	43	character() dtunit
43	integer fid,val,cret	44	integer*8 fid
		45	integer val,cret
44	integer numdt,numo	46	integer numdt,numo
45	real*8 dt	47	real*8 dt
46	integer edfscee	48	integer edfscee
Lines 62-68 c Link Here
62	c	64	c
63	character () sca	65	character () sca
64	character() dtunit	66	character() dtunit
65	integer fid,cret	67	integer*8 fid
		68	integer cret
66	integer numdt,numo	69	integer numdt,numo
67	real*8 dt	70	real*8 dt
68	real*8 val	71	real*8 val
Lines 85-91 c Link Here
85	save	88	save
86	c	89	c
87	character () sca	90	character () sca
88	integer fid,val,cret	91	integer*8 fid
		92	integer val,cret
89	integer numdt,numo	93	integer numdt,numo
90	integer edfscel	94	integer edfscel
91	c	95	c
Lines 103-109 c DEC$ ATTRIBUTES DLLEXPORT :: efscf Link Here
103	save	107	save
104	c	108	c
105	character () sca	109	character () sca
106	integer fid,cret	110	integer*8 fid
		111	integer cret
107	integer numdt,numo	112	integer numdt,numo
108	integer edfscfl	113	integer edfscfl
109	real8 val()	114	real8 val()
Lines 122-128 c Link Here
122	save	127	save
123	c	128	c
124	character () sca,desc	129	character () sca,desc
125	integer fid,ind,type,cret	130	integer*8 fid
		131	integer ind,type,cret
126	integer edfscai	132	integer edfscai
127	c	133	c
128	cret = edfscai(fid,ind,sca,type,desc)	134	cret = edfscai(fid,ind,sca,type,desc)
Lines 136-142 c Link Here
136	implicit none	142	implicit none
137	save	143	save
138	c	144	c
139	integer fid,cret,n	145	integer*8 fid
		146	integer cret,n
140	integer edfnsca	147	integer edfnsca
141	c	148	c
142	n = edfnsca(fid)	149	n = edfnsca(fid)
Lines 155-161 c Link Here
155	implicit none	162	implicit none
156	save	163	save
157	c	164	c
158	integer fid,n,cret	165	integer*8 fid
		166	integer n,cret
159	character*32 sca	167	character*32 sca
160	integer edfnspd	168	integer edfnspd
161	c	169	c
Lines 178-184 c Link Here
178	implicit none	186	implicit none
179	save	187	save
180	c	188	c
181	integer fid,indice,numdt,numo,cret	189	integer*8 fid
		190	integer indice,numdt,numo,cret
182	character*32 sca	191	character*32 sca
183	character*16 dtunit	192	character*16 dtunit
184	real*8 dt	193	real*8 dt

Lines 22-28 c Link Here

(-)med-3.3.1_SRC/src/fi/medequivalence.f (-8 / +16 lines)
22	save	22	save
23	c	23	c
24	character () maa, des, eq	24	character () maa, des, eq
25	integer fid, cret	25	integer*8 fid
		26	integer cret
26	integer meqfcre	27	integer meqfcre
27	c	28	c
28	cret = meqfcre(fid, maa, len(maa), eq, len(eq), des, len(des))	29	cret = meqfcre(fid, maa, len(maa), eq, len(eq), des, len(des))
Lines 41-47 c Link Here
41	c	42	c
42	character () maa, eq	43	character () maa, eq
43	integer numit, numdt	44	integer numit, numdt
44	integer fid, cret, n, typent, typgeo	45	integer*8 fid
		46	integer cret, n, typent, typgeo
45	integer corr(*)	47	integer corr(*)
46	integer meqfcow	48	integer meqfcow
47	c	49	c
Lines 61-67 c Link Here
61	save	63	save
62	c	64	c
63	character () maa	65	character () maa
64	integer fid, cret, n	66	integer*8 fid
		67	integer cret, n
65	integer meqfneq	68	integer meqfneq
66	c	69	c
67	n = meqfneq(fid, maa, len(maa))	70	n = meqfneq(fid, maa, len(maa))
Lines 83-89 c Link Here
83	save	86	save
84	c	87	c
85	character () maa,eq,des	88	character () maa,eq,des
86	integer fid, cret,ind,nstep,nctcor	89	integer*8 fid
		90	integer cret,ind,nstep,nctcor
87	integer meqfeqi	91	integer meqfeqi
88	c	92	c
89	cret = meqfeqi(fid,maa,len(maa),ind,eq,des,	93	cret = meqfeqi(fid,maa,len(maa),ind,eq,des,
Lines 102-108 c Link Here
102	save	106	save
103	c	107	c
104	character () maa, eq	108	character () maa, eq
105	integer fid,cret,n,typent,typgeo,numit,numdt	109	integer*8 fid
		110	integer cret,n,typent,typgeo,numit,numdt
106	integer meqfcsz	111	integer meqfcsz
107	c	112	c
108	n = meqfcsz(fid,maa,len(maa),eq,len(eq),	113	n = meqfcsz(fid,maa,len(maa),eq,len(eq),
Lines 127-133 c Link Here
127	save	132	save
128	c	133	c
129	character () maa, eq	134	character () maa, eq
130	integer fid,cret,n,typent,typgeo,numit,numdt	135	integer*8 fid
		136	integer cret,n,typent,typgeo,numit,numdt
131	integer corit	137	integer corit
132	integer meqfszi	138	integer meqfszi
133	c	139	c
Lines 147-153 c Link Here
147	save	153	save
148	c	154	c
149	character () maa, eq	155	character () maa, eq
150	integer fid, cret, corr(*), typent, typgeo,numdt,mumit	156	integer*8 fid
		157	integer cret, corr(*), typent, typgeo,numdt,mumit
151	integer meqfcor	158	integer meqfcor
152	c	159	c
153	cret = meqfcor(fid, maa, len(maa), eq, len(eq),	160	cret = meqfcor(fid, maa, len(maa), eq, len(eq),
Lines 165-171 c Link Here
165	save	172	save
166	c	173	c
167	character () maa,eq	174	character () maa,eq
168	integer fid,cret,ind,numdt,numit,ncor	175	integer*8 fid
		176	integer cret,ind,numdt,numit,ncor
169	integer meqfcsi	177	integer meqfcsi
170	c	178	c
171	cret = meqfcsi(fid,maa,len(maa),eq,len(eq),	179	cret = meqfcsi(fid,maa,len(maa),eq,len(eq),

Lines 22-28 c Link Here

(-)med-3.3.1_SRC/src/fi/medfamily.f (-6 / +12 lines)
22	save	22	save
23	c	23	c
24	character () name, fname, gname	24	character () name, fname, gname
25	integer fid, fnum, ngro, cret	25	integer*8 fid
		26	integer fnum, ngro, cret
26	integer mfafcre	27	integer mfafcre
27	c	28	c
28	cret = mfafcre(fid, name, len(name), fname, len(name),	29	cret = mfafcre(fid, name, len(name), fname, len(name),
Lines 39-45 c Link Here
39	implicit none	40	implicit none
40	save	41	save
41	c	42	c
42	integer fid,n,cret	43	integer*8 fid
		44	integer n,cret
43	character () maa	45	character () maa
44	integer mfafnfa	46	integer mfafnfa
45	c	47	c
Lines 61-67 c Link Here
61	implicit none	63	implicit none
62	save	64	save
63	c	65	c
64	integer fid,n,cret,it	66	integer*8 fid
		67	integer n,cret,it
65	character () maa	68	character () maa
66	integer mfafnfg	69	integer mfafnfg
67	c	70	c
Lines 83-89 c Link Here
83	implicit none	86	implicit none
84	save	87	save
85	c	88	c
86	integer fid,num,cret,ind	89	integer*8 fid
		90	integer num,cret,ind
87	character () maa,fam,gro	91	character () maa,fam,gro
88	integer mfaffai	92	integer mfaffai
89	c	93	c
Lines 100-106 c Link Here
100	implicit none	104	implicit none
101	save	105	save
102	c	106	c
103	integer fid,it,n,cret	107	integer*8 fid
		108	integer it,n,cret
104	character () maa	109	character () maa
105	integer mfafona	110	integer mfafona
106	c	111	c
Lines 123-129 c Link Here
123	implicit none	128	implicit none
124	save	129	save
125	c	130	c
126	integer fid,num,cret,it	131	integer*8 fid
		132	integer num,cret,it
127	integer attnum(),attval()	133	integer attnum(),attval()
128	character () maa,fam,gro,attdes	134	character () maa,fam,gro,attdes
129	integer mfafofi	135	integer mfafofi

Lines 24-30 c Link Here

(-)med-3.3.1_SRC/src/fi/medfield.f (-33 / +66 lines)
24	implicit none	24	implicit none
25	save	25	save
26	character() fname,cname,cunit,dtunit,mname	26	character() fname,cname,cunit,dtunit,mname
27	integer fid,ncomp,cret,ftype	27	integer*8 fid
		28	integer ncomp,cret,ftype
28	integer mfdfcre	29	integer mfdfcre
29	c	30	c
30	cret = mfdfcre(fid,fname,len(fname),ftype,	31	cret = mfdfcre(fid,fname,len(fname),ftype,
Lines 45-51 c Link Here
45	character() fname	46	character() fname
46	integer numdt,numit	47	integer numdt,numit
47	real8 dt,val()	48	real8 dt,val()
48	integer fid,cret,etype,gtype,swm,cs,n	49	integer*8 fid
		50	integer cret,etype,gtype,swm,cs,n
49	integer mfdfrvw	51	integer mfdfrvw
50	c	52	c
51	cret = mfdfrvw(fid,fname,len(fname),numdt,numit,dt,	53	cret = mfdfrvw(fid,fname,len(fname),numdt,numit,dt,
Lines 66-72 c Link Here
66	integer numdt,numit	68	integer numdt,numit
67	real*8 dt	69	real*8 dt
68	integer val(*)	70	integer val(*)
69	integer fid,cret,etype,gtype,swm,cs,n	71	integer*8 fid
		72	integer cret,etype,gtype,swm,cs,n
70	integer mfdfivw	73	integer mfdfivw
71	c	74	c
72	cret = mfdfivw(fid,fname,len(fname),numdt,numit,dt,	75	cret = mfdfivw(fid,fname,len(fname),numdt,numit,dt,
Lines 88-94 c Link Here
88	character() fname,pname,lname	91	character() fname,pname,lname
89	integer numdt,numit	92	integer numdt,numit
90	real8 dt,val()	93	real8 dt,val()
91	integer fid,cret,etype,gtype,swm,cs,n,stm	94	integer*8 fid
		95	integer cret,etype,gtype,swm,cs,n,stm
92	integer mfdfrpw	96	integer mfdfrpw
93	c	97	c
94	cret = mfdfrpw(fid,fname,len(fname),numdt,numit,dt,	98	cret = mfdfrpw(fid,fname,len(fname),numdt,numit,dt,
Lines 112-118 c Link Here
112	integer numdt,numit	116	integer numdt,numit
113	real*8 dt	117	real*8 dt
114	integer val(*)	118	integer val(*)
115	integer fid,cret,etype,gtype,swm,cs,n,stm	119	integer*8 fid
		120	integer cret,etype,gtype,swm,cs,n,stm
116	integer mfdfipw	121	integer mfdfipw
117	c	122	c
118	cret = mfdfipw(fid,fname,len(fname),numdt,numit,dt,	123	cret = mfdfipw(fid,fname,len(fname),numdt,numit,dt,
Lines 135-141 c Link Here
135	integer numdt,numit	140	integer numdt,numit
136	real8 dt,val()	141	real8 dt,val()
137	integer8 flt()	142	integer8 flt()
138	integer fid,cret,etype,gtype	143	integer*8 fid
		144	integer cret,etype,gtype
139	integer mfdfraw	145	integer mfdfraw
140	c	146	c
141	cret = mfdfraw(fid,fname,len(fname),numdt,numit,dt,	147	cret = mfdfraw(fid,fname,len(fname),numdt,numit,dt,
Lines 158-164 c Link Here
158	real*8 dt	164	real*8 dt
159	integer val(*)	165	integer val(*)
160	integer8 flt()	166	integer8 flt()
161	integer fid,cret,etype,gtype	167	integer*8 fid
		168	integer cret,etype,gtype
162	integer mfdfiaw	169	integer mfdfiaw
163	c	170	c
164	cret = mfdfiaw(fid,fname,len(fname),numdt,numit,dt,	171	cret = mfdfiaw(fid,fname,len(fname),numdt,numit,dt,
Lines 174-180 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnf Link Here
174	c	181	c
175	implicit none	182	implicit none
176	save	183	save
177	integer fid,n,cret	184	integer*8 fid
		185	integer n,cret
178	integer mfdfnfd	186	integer mfdfnfd
179	c	187	c
180	n = mfdfnfd(fid)	188	n = mfdfnfd(fid)
Lines 195-201 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnf Link Here
195	c	203	c
196	implicit none	204	implicit none
197	save	205	save
198	integer fid,n,cret,ind	206	integer*8 fid
		207	integer n,cret,ind
199	integer mfdfnfc	208	integer mfdfnfc
200	c	209	c
201	n = mfdfnfc(fid,ind)	210	n = mfdfnfc(fid,ind)
Lines 216-222 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnc Link Here
216	c	225	c
217	implicit none	226	implicit none
218	save	227	save
219	integer fid,n,cret	228	integer*8 fid
		229	integer n,cret
220	character () fname	230	character () fname
221	integer mfdfncn	231	integer mfdfncn
222	c	232	c
Lines 242-248 c Link Here
242	c	252	c
243	character () fname, mname, dtunit, cname, cunit	253	character () fname, mname, dtunit, cname, cunit
244	integer lmesh, cret	254	integer lmesh, cret
245	integer fid, type, it, nc	255	integer*8 fid
		256	integer type, it, nc
246	integer mfdffdi	257	integer mfdffdi
247	c	258	c
248	cret = mfdffdi(fid, it, fname, mname, lmesh, type,	259	cret = mfdffdi(fid, it, fname, mname, lmesh, type,
Lines 263-269 c Link Here
263	c	274	c
264	character () fname, mname, dtunit, cname, cunit	275	character () fname, mname, dtunit, cname, cunit
265	integer lmesh, cret	276	integer lmesh, cret
266	integer fid, type, nc	277	integer*8 fid
		278	integer type, nc
267	integer mfdffin	279	integer mfdffin
268	c	280	c
269	cret = mfdffin(fid, fname, len(fname), mname, lmesh, type,	281	cret = mfdffin(fid, fname, len(fname), mname, lmesh, type,
Lines 282-288 c Link Here
282	c	294	c
283	character() fname	295	character() fname
284	integer cret	296	integer cret
285	integer fid, it, numdt, numit	297	integer*8 fid
		298	integer it, numdt, numit
286	real*8 dt	299	real*8 dt
287	integer mfdfcsi	300	integer mfdfcsi
288	c	301	c
Lines 302-308 c Link Here
302	c	315	c
303	character() fname	316	character() fname
304	integer cret	317	integer cret
305	integer fid, it, numdt, numit, mnumdt, mnumit	318	integer*8 fid
		319	integer it, numdt, numit, mnumdt, mnumit
306	real*8 dt	320	real*8 dt
307	integer mfdfcmi	321	integer mfdfcmi
308	c	322	c
Lines 323-329 c Link Here
323	c	337	c
324	character() fname	338	character() fname
325	integer cret	339	integer cret
326	integer fid, numdt, numit, mnumdt, mnumit	340	integer*8 fid
		341	integer numdt, numit, mnumdt, mnumit
327	integer mfdfcmw	342	integer mfdfcmw
328	c	343	c
329	cret = mfdfcmw(fid,fname,len(fname),numdt,numit,	344	cret = mfdfcmw(fid,fname,len(fname),numdt,numit,
Lines 340-346 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnp Link Here
340	c	355	c
341	implicit none	356	implicit none
342	save	357	save
343	integer fid,n,cret	358	integer*8 fid
		359	integer n,cret
344	integer numdt,numit,etype,gtype	360	integer numdt,numit,etype,gtype
345	character() fname,dpname,dlname	361	character() fname,dpname,dlname
346		362
Lines 366-372 c Link Here
366	implicit none	382	implicit none
367	save	383	save
368	character() fname	384	character() fname
369	integer fid,n,cret,numdt,numit,etype,gtype	385	integer*8 fid
		386	integer n,cret,numdt,numit,etype,gtype
370	integer mfdfnva	387	integer mfdfnva
371	c	388	c
372	n = mfdfnva(fid,fname,len(fname),numdt,numit,	389	n = mfdfnva(fid,fname,len(fname),numdt,numit,
Lines 392-398 c Link Here
392	save	409	save
393	character() fname, pname, lname	410	character() fname, pname, lname
394	integer pit,stm,psize	411	integer pit,stm,psize
395	integer fid,n,cret,numdt,numit,etype,gtype,nip	412	integer*8 fid
		413	integer n,cret,numdt,numit,etype,gtype,nip
396	integer mfdfnvp	414	integer mfdfnvp
397	c	415	c
398	n = mfdfnvp(fid,fname,len(fname),numdt,numit,	416	n = mfdfnvp(fid,fname,len(fname),numdt,numit,
Lines 419-425 c Link Here
419	save	437	save
420	character() fname, pname, lname	438	character() fname, pname, lname
421	integer stm,psize	439	integer stm,psize
422	integer fid,n,cret,numdt,numit,etype,gtype,nip	440	integer*8 fid
		441	integer n,cret,numdt,numit,etype,gtype,nip
423	integer mfdfnpn	442	integer mfdfnpn
424	c	443	c
425	n = mfdfnpn(fid,fname,len(fname),numdt,numit,	444	n = mfdfnpn(fid,fname,len(fname),numdt,numit,
Lines 446-452 c Link Here
446	character() fname	465	character() fname
447	integer numdt,numit	466	integer numdt,numit
448	real8 val()	467	real8 val()
449	integer fid,cret,etype,gtype,swm,cs	468	integer*8 fid
		469	integer cret,etype,gtype,swm,cs
450	integer mfdfrvr	470	integer mfdfrvr
451	c	471	c
452	cret = mfdfrvr(fid,fname,len(fname),numdt,numit,	472	cret = mfdfrvr(fid,fname,len(fname),numdt,numit,
Lines 466-472 c Link Here
466	character() fname	486	character() fname
467	integer numdt,numit	487	integer numdt,numit
468	integer val(*)	488	integer val(*)
469	integer fid,cret,etype,gtype,swm,cs	489	integer*8 fid
		490	integer cret,etype,gtype,swm,cs
470	integer mfdfivr	491	integer mfdfivr
471	c	492	c
472	cret = mfdfivr(fid,fname,len(fname),numdt,numit,	493	cret = mfdfivr(fid,fname,len(fname),numdt,numit,
Lines 488-494 c Link Here
488	character() fname,pname	509	character() fname,pname
489	integer numdt,numit	510	integer numdt,numit
490	real8 val()	511	real8 val()
491	integer fid,cret,etype,gtype,swm,cs,stm	512	integer*8 fid
		513	integer cret,etype,gtype,swm,cs,stm
492	integer mfdfrpr	514	integer mfdfrpr
493	c	515	c
494	cret = mfdfrpr(fid,fname,len(fname),numdt,numit,	516	cret = mfdfrpr(fid,fname,len(fname),numdt,numit,
Lines 510-516 c Link Here
510	character() fname,pname	532	character() fname,pname
511	integer numdt,numit	533	integer numdt,numit
512	integer val(*)	534	integer val(*)
513	integer fid,cret,etype,gtype,swm,cs,n,stm	535	integer*8 fid
		536	integer cret,etype,gtype,swm,cs,n,stm
514	integer mfdfipr	537	integer mfdfipr
515	c	538	c
516	cret = mfdfipr(fid,fname,len(fname),numdt,numit,	539	cret = mfdfipr(fid,fname,len(fname),numdt,numit,
Lines 532-538 c Link Here
532	integer numdt,numit	555	integer numdt,numit
533	real8 val()	556	real8 val()
534	integer8 flt()	557	integer8 flt()
535	integer fid,cret,etype,gtype	558	integer*8 fid
		559	integer cret,etype,gtype
536	integer mfdfrar	560	integer mfdfrar
537	c	561	c
538	cret = mfdfrar(fid,fname,len(fname),numdt,numit,	562	cret = mfdfrar(fid,fname,len(fname),numdt,numit,
Lines 554-560 c Link Here
554	integer numdt,numit	578	integer numdt,numit
555	integer val(*)	579	integer val(*)
556	integer8 flt()	580	integer8 flt()
557	integer fid,cret,etype,gtype	581	integer*8 fid
		582	integer cret,etype,gtype
558	integer mfdfiar	583	integer mfdfiar
559	c	584	c
560	cret = mfdfiar(fid,fname,len(fname),numdt,numit,	585	cret = mfdfiar(fid,fname,len(fname),numdt,numit,
Lines 571-577 c Link Here
571	implicit none	596	implicit none
572	save	597	save
573	character() fname,iname	598	character() fname,iname
574	integer fid,cret	599	integer*8 fid
		600	integer cret
575	integer mfdfinw	601	integer mfdfinw
576	c	602	c
577	cret = mfdfinw(fid,fname,len(fname),iname,len(iname),cret)	603	cret = mfdfinw(fid,fname,len(fname),iname,len(iname),cret)
Lines 586-592 c DEC$ ATTRIBUTES DLLEXPORT :: mfdni Link Here
586	c	612	c
587	implicit none	613	implicit none
588	save	614	save
589	integer fid,n,cret	615	integer*8 fid
		616	integer n,cret
590	character() fname	617	character() fname
591	integer mfdfnin	618	integer mfdfnin
592	c	619	c
Lines 609-615 c Link Here
609	implicit none	636	implicit none
610	save	637	save
611	character() fname,iname	638	character() fname,iname
612	integer fid,cret,it	639	integer*8 fid
		640	integer cret,it
613	integer mfdfini	641	integer mfdfini
614	c	642	c
615	cret = mfdfini(fid,fname,len(fname),it,iname,cret)	643	cret = mfdfini(fid,fname,len(fname),it,iname,cret)
Lines 629-635 c Link Here
629	c	657	c
630	character() fname,mname	658	character() fname,mname
631	integer cret	659	integer cret
632	integer fid,it,numdt,numit,nmesh,lmesh	660	integer*8 fid
		661	integer it,numdt,numit,nmesh,lmesh
633	integer mnumdt,mnumit	662	integer mnumdt,mnumit
634	real*8 dt	663	real*8 dt
635	integer mfdfoci	664	integer mfdfoci
Lines 650-656 c DEC$ ATTRIBUTES DLLEXPORT :: mfdon Link Here
650	c	679	c
651	implicit none	680	implicit none
652	save	681	save
653	integer fid,n,cret	682	integer*8 fid
		683	integer n,cret
654	integer numdt,numit,etype,gtype,it	684	integer numdt,numit,etype,gtype,it
655	character() fname,dpname,dlname,mname	685	character() fname,dpname,dlname,mname
656		686
Lines 679-685 c Link Here
679	save	709	save
680	character() fname, pname, lname, mname	710	character() fname, pname, lname, mname
681	integer pit,stm,psize	711	integer pit,stm,psize
682	integer fid,n,cret,numdt,numit,etype,gtype,nip	712	integer*8 fid
		713	integer n,cret,numdt,numit,etype,gtype,nip
683	integer mfdfonv	714	integer mfdfonv
684	c	715	c
685	n = mfdfonv(fid,fname,len(fname),numdt,numit,	716	n = mfdfonv(fid,fname,len(fname),numdt,numit,
Lines 711-717 c Link Here
711	character() fname,pname,mname	742	character() fname,pname,mname
712	integer numdt,numit	743	integer numdt,numit
713	real8 val()	744	real8 val()
714	integer fid,cret,etype,gtype,swm,cs,stm	745	integer*8 fid
		746	integer cret,etype,gtype,swm,cs,stm
715	integer mfdforr	747	integer mfdforr
716	c	748	c
717	cret = mfdforr(fid,fname,len(fname),numdt,numit,	749	cret = mfdforr(fid,fname,len(fname),numdt,numit,
Lines 735-741 c Link Here
735	character() fname,pname,mname	767	character() fname,pname,mname
736	integer numdt,numit	768	integer numdt,numit
737	integer val(*)	769	integer val(*)
738	integer fid,cret,etype,gtype,swm,cs,n,stm	770	integer*8 fid
		771	integer cret,etype,gtype,swm,cs,n,stm
739	integer mfdfoir	772	integer mfdfoir
740	c	773	c
741	cret = mfdfoir(fid,fname,len(fname),numdt,numit,	774	cret = mfdfoir(fid,fname,len(fname),numdt,numit,

Lines 22-28 c Link Here

(-)med-3.3.1_SRC/src/fi/medinterp.f (-7 / +14 lines)
22	save	22	save
23	c	23	c
24	character() name	24	character() name
25	integer fid, gtype,cnode,nvar,maxd,nmaxc,cret	25	integer*8 fid
		26	integer gtype,cnode,nvar,maxd,nmaxc,cret
26	integer mipfcre	27	integer mipfcre
27	c	28	c
28	cret = mipfcre(fid,name,len(name),gtype,cnode,	29	cret = mipfcre(fid,name,len(name),gtype,cnode,
Lines 40-46 c Link Here
40	save	41	save
41	c	42	c
42	character() name	43	character() name
43	integer fid,it,nc,cret	44	integer*8 fid
		45	integer it,nc,cret
44	integer pw(*)	46	integer pw(*)
45	real8 co()	47	real8 co()
46	integer mipfbfw	48	integer mipfbfw
Lines 59-65 c Link Here
59	save	61	save
60	c	62	c
61	character() name	63	character() name
62	integer fid,it,nc,cret	64	integer*8 fid
		65	integer it,nc,cret
63	integer pw(*)	66	integer pw(*)
64	real8 co()	67	real8 co()
65	integer mipfbfr	68	integer mipfbfr
Lines 78-84 c Link Here
78	implicit none	81	implicit none
79	save	82	save
80	c	83	c
81	integer n, fid, cret	84	integer*8 fid
		85	integer n, cret
82	integer mipfnip	86	integer mipfnip
83	c	87	c
84	n = mipfnip(fid)	88	n = mipfnip(fid)
Lines 102-108 c Link Here
102	save	106	save
103	c	107	c
104	character() name	108	character() name
105	integer fid, gtype,cnode,nvar,maxd,nmaxc,cret,nbf	109	integer*8 fid
		110	integer gtype,cnode,nvar,maxd,nmaxc,cret,nbf
106	integer mipfiin	111	integer mipfiin
107	c	112	c
108	cret = mipfiin(fid,name,len(name),gtype,cnode,nbf,	113	cret = mipfiin(fid,name,len(name),gtype,cnode,nbf,
Lines 121-127 c Link Here
121	save	126	save
122	c	127	c
123	character() name	128	character() name
124	integer fid, gtype,cnode,nvar,maxd,nmaxc,cret,nbf	129	integer*8 fid
		130	integer gtype,cnode,nvar,maxd,nmaxc,cret,nbf
125	integer it	131	integer it
126	integer mipfipi	132	integer mipfipi
127	c	133	c
Lines 140-146 c Link Here
140	save	146	save
141	c	147	c
142	character() name	148	character() name
143	integer n, fid, it, cret	149	integer*8 fid
		150	integer n, it, cret
144	integer mipfcsz	151	integer mipfcsz
145	c	152	c
146	n = mipfcsz(fid,name,len(name),it)	153	n = mipfcsz(fid,name,len(name),it)

Lines 26-32 c Link Here

(-)med-3.3.1_SRC/src/fi/medjoint.f (-8 / +16 lines)
26	character() lmname	26	character() lmname
27	character() des	27	character() des
28	character() rmname	28	character() rmname
29	integer fid, dom, cret	29	integer*8 fid
		30	integer dom, cret
30	integer msdfjcr	31	integer msdfjcr
31	c	32	c
32	print *,lmname	33	print *,lmname
Lines 53-59 c Link Here
53	save	54	save
54	c	55	c
55	character () lmname, jname	56	character () lmname, jname
56	integer n, fid, cret, corrtab(*)	57	integer*8 fid
		58	integer n, cret, corrtab(*)
57	integer entlcl, entdst, geolcl, geodst, numdt,numit	59	integer entlcl, entdst, geolcl, geodst, numdt,numit
58	integer msdfcrw	60	integer msdfcrw
59	c	61	c
Lines 73-79 c Link Here
73	save	75	save
74	c	76	c
75	character () maa	77	character () maa
76	integer n, fid, cret	78	integer*8 fid
		79	integer n, cret
77	integer msdfnjn	80	integer msdfnjn
78	c	81	c
79	n = msdfnjn(fid,maa,len(maa))	82	n = msdfnjn(fid,maa,len(maa))
Lines 97-103 c Link Here
97	save	100	save
98	c	101	c
99	character () lmname,jname,des,rmname	102	character () lmname,jname,des,rmname
100	integer fid, ind,dom,cret,nstep,ncor	103	integer*8 fid
		104	integer ind,dom,cret,nstep,ncor
101	integer msdfjni	105	integer msdfjni
102	c	106	c
103	cret = msdfjni(fid,lmname,len(lmname),ind,	107	cret = msdfjni(fid,lmname,len(lmname),ind,
Lines 119-125 c Link Here
119	save	123	save
120	c	124	c
121	character() mname,jname	125	character() mname,jname
122	integer fid,cret,numdt,numit	126	integer*8 fid
		127	integer cret,numdt,numit
123	integer it,letype,lgtype,retype,rgtype,ncor	128	integer it,letype,lgtype,retype,rgtype,ncor
124	integer msdfszi	129	integer msdfszi
125	c	130	c
Lines 145-151 c Link Here
145	save	150	save
146	c	151	c
147	character() mname,jname	152	character() mname,jname
148	integer fid,cret,numdt,numit	153	integer*8 fid
		154	integer cret,numdt,numit
149	integer letype,lgtype,retype,rgtype,ncor	155	integer letype,lgtype,retype,rgtype,ncor
150	integer msdfcsz	156	integer msdfcsz
151	c	157	c
Lines 170-176 c Link Here
170	save	176	save
171	c	177	c
172	character () lmname, jname	178	character () lmname, jname
173	integer fid, cret, corrtab(*)	179	integer*8 fid
		180	integer cret, corrtab(*)
174	integer entlcl, entdst, geolcl, geodst, numdt,numit	181	integer entlcl, entdst, geolcl, geodst, numdt,numit
175	integer msdfcrr	182	integer msdfcrr
176	c	183	c
Lines 191-197 c Link Here
191	save	198	save
192	c	199	c
193	character () mname,jname	200	character () mname,jname
194	integer fid, ind,ncor,numdt,numit,cret	201	integer*8 fid
		202	integer ind,ncor,numdt,numit,cret
195	integer msdfcsi	203	integer msdfcsi
196	c	204	c
197	cret = msdfcsi(fid,mname,len(mname),	205	cret = msdfcsi(fid,mname,len(mname),

Lines 23-29 c Link Here

(-)med-3.3.1_SRC/src/fi/medlink.f (-5 / +10 lines)
23	implicit none	23	implicit none
24	save	24	save
25	character() mname,lname	25	character() mname,lname
26	integer fid,cret	26	integer*8 fid
		27	integer cret
27	integer mlnfliw	28	integer mlnfliw
28	c	29	c
29	cret = mlnfliw(fid,mname,len(mname),lname,len(lname))	30	cret = mlnfliw(fid,mname,len(mname),lname,len(lname))
Lines 38-44 c DEC$ ATTRIBUTES DLLEXPORT :: mlnnl Link Here
38	c	39	c
39	implicit none	40	implicit none
40	save	41	save
41	integer fid,n,cret	42	integer*8 fid
		43	integer n,cret
42	integer mlnfnln	44	integer mlnfnln
43	c	45	c
44	n = mlnfnln(fid)	46	n = mlnfnln(fid)
Lines 61-67 c Link Here
61	save	63	save
62	c	64	c
63	character () mname	65	character () mname
64	integer fid, lsize, it, cret	66	integer*8 fid
		67	integer lsize, it, cret
65	integer mlnflni	68	integer mlnflni
66	c	69	c
67	cret = mlnflni(fid, it, mname, lsize)	70	cret = mlnflni(fid, it, mname, lsize)
Lines 78-84 c Link Here
78	save	81	save
79	c	82	c
80	character () mname	83	character () mname
81	integer fid, lsize, cret,n	84	integer*8 fid
		85	integer lsize, cret,n
82	integer mlnflai	86	integer mlnflai
83	c	87	c
84	n = mlnflai(fid, mname, len(mname), lsize)	88	n = mlnflai(fid, mname, len(mname), lsize)
Lines 100-106 c Link Here
100	implicit none	104	implicit none
101	save	105	save
102	character() mname,lname	106	character() mname,lname
103	integer fid,cret	107	integer*8 fid
		108	integer cret
104	integer mlnflir	109	integer mlnflir
105	c	110	c
106	cret = mlnflir(fid,mname,len(mname),lname,len(lname))	111	cret = mlnflir(fid,mname,len(mname),lname,len(lname))

Lines 25-31 c Link Here

(-)med-3.3.1_SRC/src/fi/medlocalization.f (-5 / +10 lines)
25	save	25	save
26	character() lname,giname, isname	26	character() lname,giname, isname
27	real8 ecoo(), ipcoo(), wght()	27	real8 ecoo(), ipcoo(), wght()
28	integer fid,cret,gtype,sdim,swm,nip	28	integer*8 fid
		29	integer cret,gtype,sdim,swm,nip
29	integer mlcflow	30	integer mlcflow
30	c	31	c
31	cret = mlcflow(fid,lname,len(lname),gtype,sdim,ecoo,swm,nip,	32	cret = mlcflow(fid,lname,len(lname),gtype,sdim,ecoo,swm,nip,
Lines 41-47 c DEC$ ATTRIBUTES DLLEXPORT :: mlcnl Link Here
41	c	42	c
42	implicit none	43	implicit none
43	save	44	save
44	integer fid,n,cret	45	integer*8 fid
		46	integer n,cret
45	integer mlcfnlc	47	integer mlcfnlc
46	c	48	c
47	n = mlcfnlc(fid)	49	n = mlcfnlc(fid)
Lines 65-71 c Link Here
65	save	67	save
66	c	68	c
67	character() lname,giname, isname	69	character() lname,giname, isname
68	integer fid, gtype, it, cret, sdim, nip	70	integer*8 fid
		71	integer gtype, it, cret, sdim, nip
69	integer nsmc, sgtype	72	integer nsmc, sgtype
70	integer mlcflci	73	integer mlcflci
71	c	74	c
Lines 85-91 c Link Here
85	save	88	save
86	c	89	c
87	character() lname,giname, isname	90	character() lname,giname, isname
88	integer fid, gtype, cret, sdim, nip	91	integer*8 fid
		92	integer gtype, cret, sdim, nip
89	integer nsmc, sgtype	93	integer nsmc, sgtype
90	integer mlcflni	94	integer mlcflni
91	c	95	c
Lines 105-111 c Link Here
105	save	109	save
106	character() lname	110	character() lname
107	real8 ecoo(), ipcoo(), wght()	111	real8 ecoo(), ipcoo(), wght()
108	integer fid,cret,swm	112	integer*8 fid
		113	integer cret,swm
109	integer mlcflor	114	integer mlcflor
110	c	115	c
111	cret = mlcflor(fid,lname,len(lname),swm,ecoo,ipcoo,wght)	116	cret = mlcflor(fid,lname,len(lname),swm,ecoo,ipcoo,wght)

Lines 23-29 c Link Here

(-)med-3.3.1_SRC/src/fi/medmesh.f (-63 / +126 lines)
23	save	23	save
24	c	24	c
25	character () name, desc, dtunit, aname, aunit	25	character () name, desc, dtunit, aname, aunit
26	integer fid, sdim, mdim, mtype, stype, atype, cret	26	integer*8 fid
		27	integer sdim, mdim, mtype, stype, atype, cret
27	integer mmhfcre	28	integer mmhfcre
28	c	29	c
29	cret = mmhfcre(fid, name, len(name), sdim, mdim, mtype,	30	cret = mmhfcre(fid, name, len(name), sdim, mdim, mtype,
Lines 42-48 c Link Here
42	implicit none	43	implicit none
43	save	44	save
44	c	45	c
45	integer fid, n, cret	46	integer*8 fid
		47	integer n, cret
46	integer mmhfnmh	48	integer mmhfnmh
47	c	49	c
48	n = mmhfnmh(fid)	50	n = mmhfnmh(fid)
Lines 64-70 c Link Here
64	implicit none	66	implicit none
65	save	67	save
66	c	68	c
67	integer fid,it,naxis,cret	69	integer*8 fid
		70	integer it,naxis,cret
68	integer mmhfnax	71	integer mmhfnax
69	c	72	c
70	naxis = mmhfnax(fid,it)	73	naxis = mmhfnax(fid,it)
Lines 85-91 c Link Here
85	implicit none	88	implicit none
86	save	89	save
87	c	90	c
88	integer fid,naxis,cret	91	integer*8 fid
		92	integer naxis,cret
89	character () name	93	character () name
90	integer mmhfnan	94	integer mmhfnan
91	c	95	c
Lines 109-115 c Link Here
109	save	113	save
110	c	114	c
111	character () name, desc, dtunit, aname, aunit	115	character () name, desc, dtunit, aname, aunit
112	integer fid, sdim, mdim, mtype, stype, atype, cret, nstep, it	116	integer*8 fid
		117	integer sdim, mdim, mtype, stype, atype, cret, nstep, it
113	integer mmhfmhi	118	integer mmhfmhi
114	c	119	c
115	cret = mmhfmhi(fid, it, name, sdim, mdim, mtype, desc, dtunit,	120	cret = mmhfmhi(fid, it, name, sdim, mdim, mtype, desc, dtunit,
Lines 128-134 c Link Here
128	save	133	save
129	c	134	c
130	character () name, desc, dtunit, aname, aunit	135	character () name, desc, dtunit, aname, aunit
131	integer fid, sdim, mdim, mtype, stype, atype, cret, nstep	136	integer*8 fid
		137	integer sdim, mdim, mtype, stype, atype, cret, nstep
132	integer mmhfmin	138	integer mmhfmin
133	c	139	c
134	cret = mmhfmin(fid, name, len(name), sdim, mdim, mtype, desc,	140	cret = mmhfmin(fid, name, len(name), sdim, mdim, mtype, desc,
Lines 146-152 c Link Here
146	implicit none	152	implicit none
147	save	153	save
148	c	154	c
149	integer fid,cret	155	integer*8 fid
		156	integer cret
150	character () name	157	character () name
151	integer mmhfunw	158	integer mmhfunw
152	c	159	c
Lines 163-169 c Link Here
163	implicit none	170	implicit none
164	save	171	save
165	c	172	c
166	integer fid,cret	173	integer*8 fid
		174	integer cret
167	character () uname	175	character () uname
168	character () mname	176	character () mname
169	integer mmhfunr	177	integer mmhfunr
Lines 181-187 c Link Here
181	implicit none	189	implicit none
182	save	190	save
183	c	191	c
184	integer fid,cret,nin,nvn,nnc	192	integer*8 fid
		193	integer cret,nin,nvn,nnc
185	character () name	194	character () name
186	integer mmhfatw	195	integer mmhfatw
187	c	196	c
Lines 198-204 c Link Here
198	implicit none	207	implicit none
199	save	208	save
200	c	209	c
201	integer fid,cret,nin,nvn,nnc	210	integer*8 fid
		211	integer cret,nin,nvn,nnc
202	character () name	212	character () name
203	integer mmhfatr	213	integer mmhfatr
204	c	214	c
Lines 215-221 c Link Here
215	implicit none	225	implicit none
216	save	226	save
217	c	227	c
218	integer fid,cret,gtype	228	integer*8 fid
		229	integer cret,gtype
219	character () name	230	character () name
220	integer mmhfgtw	231	integer mmhfgtw
221	c	232	c
Lines 232-238 c Link Here
232	implicit none	243	implicit none
233	save	244	save
234	c	245	c
235	integer fid,cret,gtype	246	integer*8 fid
		247	integer cret,gtype
236	character () name	248	character () name
237	integer mmhfgtr	249	integer mmhfgtr
238	c	250	c
Lines 249-255 c Link Here
249	implicit none	261	implicit none
250	save	262	save
251	c	263	c
252	integer fid,cret,numdt, numit	264	integer*8 fid
		265	integer cret,numdt, numit
253	character () name	266	character () name
254	real*8 dt	267	real*8 dt
255	integer st( * )	268	integer st( * )
Lines 268-274 c Link Here
268	implicit none	281	implicit none
269	save	282	save
270	c	283	c
271	integer fid,cret,numdt, numit	284	integer*8 fid
		285	integer cret,numdt, numit
272	character () name	286	character () name
273	integer st(*)	287	integer st(*)
274	integer mmhfgsr	288	integer mmhfgsr
Lines 287-293 c Link Here
287	implicit none	301	implicit none
288	save	302	save
289	c	303	c
290	integer fid,cret,numdt,numit,n,swm	304	integer*8 fid
		305	integer cret,numdt,numit,n,swm
291	real*8 dt	306	real*8 dt
292	character () name	307	character () name
293	real8 coo()	308	real8 coo()
Lines 307-313 c Link Here
307	implicit none	322	implicit none
308	save	323	save
309	c	324	c
310	integer fid,cret,numdt,numit,swm	325	integer*8 fid
		326	integer cret,numdt,numit,swm
311	character () name	327	character () name
312	real8 coo()	328	real8 coo()
313	integer mmhfcor	329	integer mmhfcor
Lines 326-332 c Link Here
326	implicit none	342	implicit none
327	save	343	save
328	c	344	c
329	integer fid,cret,numdt,numit,n,swm,stm,dim	345	integer*8 fid
		346	integer cret,numdt,numit,n,swm,stm,dim
330	real*8 dt	347	real*8 dt
331	character () name, pname	348	character () name, pname
332	real8 coo()	349	real8 coo()
Lines 347-353 c Link Here
347	implicit none	364	implicit none
348	save	365	save
349	c	366	c
350	integer fid,cret,numdt,numit,swm,stm,dim	367	integer*8 fid
		368	integer cret,numdt,numit,swm,stm,dim
351	character () name, pname	369	character () name, pname
352	real8 coo()	370	real8 coo()
353	integer mmhfcpr	371	integer mmhfcpr
Lines 367-373 c Link Here
367	implicit none	385	implicit none
368	save	386	save
369	c	387	c
370	integer fid,cret,numdt,numit,axis,size	388	integer*8 fid
		389	integer cret,numdt,numit,axis,size
371	real*8 dt	390	real*8 dt
372	character () name	391	character () name
373	real8 index()	392	real8 index()
Lines 387-393 c Link Here
387	implicit none	406	implicit none
388	save	407	save
389	c	408	c
390	integer fid,cret,numdt,numit,axis	409	integer*8 fid
		410	integer cret,numdt,numit,axis
391	character () name	411	character () name
392	real8 index()	412	real8 index()
393	integer mmhfgcr	413	integer mmhfgcr
Lines 406-412 c Link Here
406	implicit none	426	implicit none
407	save	427	save
408	c	428	c
409	integer fid,cret,numdt, numit,n,entype,geotype	429	integer*8 fid
		430	integer cret,numdt, numit,n,entype,geotype
410	character () name	431	character () name
411	integer num(*)	432	integer num(*)
412	integer mmhfenw	433	integer mmhfenw
Lines 426-432 c Link Here
426	implicit none	447	implicit none
427	save	448	save
428	c	449	c
429	integer fid,cret,numdt, numit,entype,geotype	450	integer*8 fid
		451	integer cret,numdt, numit,entype,geotype
430	character () name	452	character () name
431	integer num(*)	453	integer num(*)
432	integer mmhfenr	454	integer mmhfenr
Lines 446-452 c Link Here
446	implicit none	468	implicit none
447	save	469	save
448	c	470	c
449	integer fid,cret,numdt, numit,n,entype,geotype	471	integer*8 fid
		472	integer cret,numdt, numit,n,entype,geotype
450	character () name	473	character () name
451	integer num(*)	474	integer num(*)
452	integer mmhffnw	475	integer mmhffnw
Lines 466-472 c Link Here
466	implicit none	489	implicit none
467	save	490	save
468	c	491	c
469	integer fid,cret,numdt, numit,entype,geotype	492	integer*8 fid
		493	integer cret,numdt, numit,entype,geotype
470	character () name	494	character () name
471	integer num(*)	495	integer num(*)
472	integer mmhffnr	496	integer mmhffnr
Lines 488-494 c Link Here
488	c	512	c
489	character () mname	513	character () mname
490	character() ename	514	character() ename
491	integer fid, numdt, numit, entype, geotype, n, cret	515	integer*8 fid
		516	integer numdt, numit, entype, geotype, n, cret
492	integer mmhfeaw	517	integer mmhfeaw
493	c	518	c
494	cret = mmhfeaw(fid,mname,len(mname),numdt,numit,entype,	519	cret = mmhfeaw(fid,mname,len(mname),numdt,numit,entype,
Lines 508-514 c Link Here
508	c	533	c
509	character () mname	534	character () mname
510	character() ename	535	character() ename
511	integer fid, numdt, numit, entype, geotype, cret	536	integer*8 fid
		537	integer numdt, numit, entype, geotype, cret
512	integer mmhfear	538	integer mmhfear
513		539
514	cret = mmhfear(fid,mname,len(mname),numdt,numit,entype,	540	cret = mmhfear(fid,mname,len(mname),numdt,numit,entype,
Lines 528-534 c Link Here
528	save	554	save
529	c	555	c
530	character () name	556	character () name
531	integer fid,numdt,numit,entype,geotype,datype,cret	557	integer*8 fid
		558	integer numdt,numit,entype,geotype,datype,cret
532	integer cmode,chgt,tsf,n	559	integer cmode,chgt,tsf,n
533	integer mmhfnme	560	integer mmhfnme
534	c	561	c
Lines 553-559 c Link Here
553	implicit none	580	implicit none
554	save	581	save
555	c	582	c
556	integer fid,cret,numdt,numit,n,entype,geotype,swm,cmode	583	integer*8 fid
		584	integer cret,numdt,numit,n,entype,geotype,swm,cmode
557	character () name	585	character () name
558	integer con(*)	586	integer con(*)
559	real*8 dt	587	real*8 dt
Lines 574-580 c Link Here
574	implicit none	602	implicit none
575	save	603	save
576	c	604	c
577	integer fid,cret,numdt,numit,entype,geotype,swm,cmode	605	integer*8 fid
		606	integer cret,numdt,numit,entype,geotype,swm,cmode
578	character () name	607	character () name
579	integer con(*)	608	integer con(*)
580	integer mmhfcyr	609	integer mmhfcyr
Lines 594-600 c Link Here
594	implicit none	623	implicit none
595	save	624	save
596	c	625	c
597	integer fid,cret,numdt,numit,n,entype,geotype,swm	626	integer*8 fid
		627	integer cret,numdt,numit,n,entype,geotype,swm
598	integer cmode,stmode,dim	628	integer cmode,stmode,dim
599	character () name	629	character () name
600	character () pname	630	character () pname
Lines 617-623 c Link Here
617	implicit none	647	implicit none
618	save	648	save
619	c	649	c
620	integer fid,cret,numdt,numit,entype,geotype,swm	650	integer*8 fid
		651	integer cret,numdt,numit,entype,geotype,swm
621	integer cmode,n,stmode,dim	652	integer cmode,n,stmode,dim
622	character () name	653	character () name
623	character () pname	654	character () pname
Lines 643-649 c Link Here
643	c	674	c
644	character () name	675	character () name
645	character () pname	676	character () pname
646	integer fid,numdt,numit,entype,geotype,datype,cret	677	integer*8 fid
		678	integer numdt,numit,entype,geotype,datype,cret
647	integer cmode,chgt,tsf,n,stmode,psize	679	integer cmode,chgt,tsf,n,stmode,psize
648	integer mmhfnep	680	integer mmhfnep
649	c	681	c
Lines 670-676 c DEC$ ATTRIBUTES DLLEXPORT :: mmhno Link Here
670	implicit none	702	implicit none
671	save	703	save
672	c	704	c
673	integer fid,cret,numdt,numit,swm	705	integer*8 fid
		706	integer cret,numdt,numit,swm
674	character () name	707	character () name
675	character () nname	708	character () nname
676	real8 coo()	709	real8 coo()
Lines 695-701 c Link Here
695	implicit none	728	implicit none
696	save	729	save
697	c	730	c
698	integer fid,cret,numdt,numit,swm,n	731	integer*8 fid
		732	integer cret,numdt,numit,swm,n
699	character () name	733	character () name
700	character () nname	734	character () nname
701	real8 coo(), dt	735	real8 coo(), dt
Lines 719-725 c Link Here
719	implicit none	753	implicit none
720	save	754	save
721	c	755	c
722	integer fid,cret,numdt,numit,n,entype,geotype,swm,cmode	756	integer*8 fid
		757	integer cret,numdt,numit,n,entype,geotype,swm,cmode
723	character () name	758	character () name
724	character () nname	759	character () nname
725	integer con(*)	760	integer con(*)
Lines 745-751 c Link Here
745	implicit none	780	implicit none
746	save	781	save
747	c	782	c
748	integer fid,cret,numdt,numit,entype,geotype,swm,cmode	783	integer*8 fid
		784	integer cret,numdt,numit,entype,geotype,swm,cmode
749	character () name	785	character () name
750	character () nname	786	character () nname
751	integer con(*)	787	integer con(*)
Lines 768-774 c Link Here
768	implicit none	804	implicit none
769	save	805	save
770	c	806	c
771	integer fid,cret,numdt,numit	807	integer*8 fid
		808	integer cret,numdt,numit
772	real*8 dt	809	real*8 dt
773	character () name	810	character () name
774	real8 coo()	811	real8 coo()
Lines 789-795 c Link Here
789	implicit none	826	implicit none
790	save	827	save
791	c	828	c
792	integer fid,cret,numdt,numit	829	integer*8 fid
		830	integer cret,numdt,numit
793	character () name	831	character () name
794	real8 coo()	832	real8 coo()
795	integer8 flt()	833	integer8 flt()
Lines 809-815 c Link Here
809	implicit none	847	implicit none
810	save	848	save
811	c	849	c
812	integer fid,cret,numdt,numit,entype,geotype,cmode	850	integer*8 fid
		851	integer cret,numdt,numit,entype,geotype,cmode
813	character () name	852	character () name
814	integer con(*)	853	integer con(*)
815	integer8 flt()	854	integer8 flt()
Lines 831-837 c Link Here
831	implicit none	870	implicit none
832	save	871	save
833	c	872	c
834	integer fid,cret,numdt,numit,entype,geotype,cmode	873	integer*8 fid
		874	integer cret,numdt,numit,entype,geotype,cmode
835	character () name	875	character () name
836	integer con(*)	876	integer con(*)
837	integer8 flt()	877	integer8 flt()
Lines 852-858 c Link Here
852	implicit none	892	implicit none
853	save	893	save
854	c	894	c
855	integer fid,cret,numdt,numit,isize,entype,cmode	895	integer*8 fid
		896	integer cret,numdt,numit,isize,entype,cmode
856	character () name	897	character () name
857	integer con(), index()	898	integer con(), index()
858	real*8 dt	899	real*8 dt
Lines 873-879 c Link Here
873	implicit none	914	implicit none
874	save	915	save
875	c	916	c
876	integer fid,cret,numdt,numit,entype,cmode	917	integer*8 fid
		918	integer cret,numdt,numit,entype,cmode
877	character () name	919	character () name
878	integer con(), index()	920	integer con(), index()
879	integer mmhfpgr	921	integer mmhfpgr
Lines 893-899 c Link Here
893	implicit none	935	implicit none
894	save	936	save
895	c	937	c
896	integer fid,cret,numdt,numit,fisize,nisize,entype,cmode	938	integer*8 fid
		939	integer cret,numdt,numit,fisize,nisize,entype,cmode
897	character () name	940	character () name
898	integer con(), findex(), nindex(*)	941	integer con(), findex(), nindex(*)
899	real*8 dt	942	real*8 dt
Lines 914-920 c Link Here
914	implicit none	957	implicit none
915	save	958	save
916	c	959	c
917	integer fid,cret,numdt,numit,entype,cmode	960	integer*8 fid
		961	integer cret,numdt,numit,entype,cmode
918	character () name	962	character () name
919	integer con(), findex(), nindex(*)	963	integer con(), findex(), nindex(*)
920	integer mmhfphr	964	integer mmhfphr
Lines 934-940 c Link Here
934	implicit none	978	implicit none
935	save	979	save
936	c	980	c
937	integer fid,cret,numdt, numit,n,entype,geotype	981	integer*8 fid
		982	integer cret,numdt, numit,n,entype,geotype
938	character () name	983	character () name
939	integer num(*)	984	integer num(*)
940	integer mmhfgnw	985	integer mmhfgnw
Lines 954-960 c Link Here
954	implicit none	999	implicit none
955	save	1000	save
956	c	1001	c
957	integer fid,cret,numdt, numit,entype,geotype	1002	integer*8 fid
		1003	integer cret,numdt, numit,entype,geotype
958	character () name	1004	character () name
959	integer num(*)	1005	integer num(*)
960	integer mmhfgnr	1006	integer mmhfgnr
Lines 974-980 c Link Here
974	implicit none	1020	implicit none
975	save	1021	save
976	c	1022	c
977	integer fid,cret,numdt1,numit1,numdt2,numit2	1023	integer*8 fid
		1024	integer cret,numdt1,numit1,numdt2,numit2
978	character () name	1025	character () name
979	real*8 dt2	1026	real*8 dt2
980	integer mmhfcsc	1027	integer mmhfcsc
Lines 993-999 c Link Here
993	implicit none	1040	implicit none
994	save	1041	save
995	c	1042	c
996	integer fid,cret,numdt,numit,csit	1043	integer*8 fid
		1044	integer cret,numdt,numit,csit
997	character () name	1045	character () name
998	real*8 dt	1046	real*8 dt
999	integer mmhfcsi	1047	integer mmhfcsi
Lines 1011-1017 c Link Here
1011	implicit none	1059	implicit none
1012	save	1060	save
1013	c	1061	c
1014	integer fid,cret,numdt,numit	1062	integer*8 fid
		1063	integer cret,numdt,numit
1015	character () name	1064	character () name
1016	real*8 dt	1065	real*8 dt
1017	integer mmhfcsr	1066	integer mmhfcsr
Lines 1029-1035 c Link Here
1029	implicit none	1078	implicit none
1030	save	1079	save
1031	c	1080	c
1032	integer fid,cret,stype	1081	integer*8 fid
		1082	integer cret,stype
1033	character () name	1083	character () name
1034	integer mmhfstr	1084	integer mmhfstr
1035	c	1085	c
Lines 1049-1055 c Link Here
1049	save	1099	save
1050	c	1100	c
1051	character () name,aname	1101	character () name,aname
1052	integer fid,numdt,numit,geotype,cret	1102	integer*8 fid
		1103	integer numdt,numit,geotype,cret
1053	integer n	1104	integer n
1054	real8 val()	1105	real8 val()
1055	integer mmhfraw	1106	integer mmhfraw
Lines 1071-1077 c Link Here
1071	save	1122	save
1072	c	1123	c
1073	character () name,aname	1124	character () name,aname
1074	integer fid,numdt,numit,geotype,cret	1125	integer*8 fid
		1126	integer numdt,numit,geotype,cret
1075	integer n	1127	integer n
1076	integer val(*)	1128	integer val(*)
1077	integer mmhfiaw	1129	integer mmhfiaw
Lines 1093-1099 c Link Here
1093	save	1145	save
1094	c	1146	c
1095	character () name,aname	1147	character () name,aname
1096	integer fid,numdt,numit,geotype,cret	1148	integer*8 fid
		1149	integer numdt,numit,geotype,cret
1097	integer n	1150	integer n
1098	character () val	1151	character () val
1099	integer mmhfsaw	1152	integer mmhfsaw
Lines 1115-1121 c Link Here
1115	save	1168	save
1116	c	1169	c
1117	character () name,aname	1170	character () name,aname
1118	integer fid,numdt,numit,geotype,cret	1171	integer*8 fid
		1172	integer numdt,numit,geotype,cret
1119	real8 val()	1173	real8 val()
1120	integer mmhfrar	1174	integer mmhfrar
1121	c	1175	c
Lines 1135-1141 c Link Here
1135	save	1189	save
1136	c	1190	c
1137	character () name,aname	1191	character () name,aname
1138	integer fid,numdt,numit,geotype,cret	1192	integer*8 fid
		1193	integer numdt,numit,geotype,cret
1139	integer val(*)	1194	integer val(*)
1140	integer mmhfiar	1195	integer mmhfiar
1141	c	1196	c
Lines 1155-1161 c Link Here
1155	save	1210	save
1156	c	1211	c
1157	character () name,aname	1212	character () name,aname
1158	integer fid,numdt,numit,geotype,cret	1213	integer*8 fid
		1214	integer numdt,numit,geotype,cret
1159	integer n	1215	integer n
1160	character () val	1216	character () val
1161	integer mmhfsar	1217	integer mmhfsar
Lines 1175-1181 c Link Here
1175	implicit none	1231	implicit none
1176	save	1232	save
1177	c	1233	c
1178	integer fid,cret,numdt,numit,entype,geotype,it	1234	integer*8 fid
		1235	integer cret,numdt,numit,entype,geotype,it
1179	character () name, geoname	1236	character () name, geoname
1180	integer mmhfeni	1237	integer mmhfeni
1181	c	1238	c
Lines 1194-1200 c Link Here
1194	implicit none	1251	implicit none
1195	save	1252	save
1196	c	1253	c
1197	integer fid,cret,numdt,numit	1254	integer*8 fid
		1255	integer cret,numdt,numit
1198	real*8 dt	1256	real*8 dt
1199	character () name	1257	character () name
1200	real8 tsf()	1258	real8 tsf()
Lines 1214-1220 c Link Here
1214	implicit none	1272	implicit none
1215	save	1273	save
1216	c	1274	c
1217	integer fid,cret,numdt,numit	1275	integer*8 fid
		1276	integer cret,numdt,numit
1218	character () name	1277	character () name
1219	real8 tsf()	1278	real8 tsf()
1220	integer mmhftfr	1279	integer mmhftfr
Lines 1235-1241 c Link Here
1235	c	1294	c
1236	character () mname	1295	character () mname
1237	integer val(*)	1296	integer val(*)
1238	integer fid,numdt,numit,entype,geotype	1297	integer*8 fid
		1298	integer numdt,numit,entype,geotype
1239	integer dtype,n,cret	1299	integer dtype,n,cret
1240	integer mmhfaaw	1300	integer mmhfaaw
1241	integer8 flt()	1301	integer8 flt()
Lines 1257-1263 c Link Here
1257	c	1317	c
1258	character () mname	1318	character () mname
1259	integer val(*)	1319	integer val(*)
1260	integer fid,numdt,numit,entype,geotype	1320	integer*8 fid
		1321	integer numdt,numit,entype,geotype
1261	integer dtype,n,cret	1322	integer dtype,n,cret
1262	integer mmhfaar	1323	integer mmhfaar
1263	integer8 flt()	1324	integer8 flt()
Lines 1279-1285 c Link Here
1279	c	1340	c
1280	character () mname	1341	character () mname
1281	character () val	1342	character () val
1282	integer fid,numdt,numit,entype,geotype	1343	integer*8 fid
		1344	integer numdt,numit,entype,geotype
1283	integer dtype,n,cret	1345	integer dtype,n,cret
1284	integer mmhfasw	1346	integer mmhfasw
1285	integer8 flt()	1347	integer8 flt()
Lines 1301-1307 c Link Here
1301	c	1363	c
1302	character () mname	1364	character () mname
1303	character () val	1365	character () val
1304	integer fid,numdt,numit,entype,geotype	1366	integer*8 fid
		1367	integer numdt,numit,entype,geotype
1305	integer dtype,n,cret	1368	integer dtype,n,cret
1306	integer mmhfasr	1369	integer mmhfasr
1307	integer8 flt()	1370	integer8 flt()

Lines 22-28 c Link Here

(-)med-3.3.1_SRC/src/fi/medparameter.f (-9 / +18 lines)
22	save	22	save
23	c	23	c
24	character () name, des, dtunit	24	character () name, des, dtunit
25	integer fid, cret, type	25	integer*8 fid
		26	integer cret, type
26	integer mprfcre	27	integer mprfcre
27	c	28	c
28	cret = mprfcre(fid,name,len(name),type,des,len(des),	29	cret = mprfcre(fid,name,len(name),type,des,len(des),
Lines 39-45 c Link Here
39	implicit none	40	implicit none
40	save	41	save
41	character() name	42	character() name
42	integer fid,numdt,numit,cret	43	integer*8 fid
		44	integer numdt,numit,cret
43	real*8 dt,val	45	real*8 dt,val
44	integer mprfrvw	46	integer mprfrvw
45	c	47	c
Lines 56-62 c Link Here
56	implicit none	58	implicit none
57	save	59	save
58	character() name	60	character() name
59	integer fid,numdt,numit,cret	61	integer*8 fid
		62	integer numdt,numit,cret
60	real*8 dt	63	real*8 dt
61	integer val	64	integer val
62	integer mprfivw	65	integer mprfivw
Lines 74-80 c Link Here
74	implicit none	77	implicit none
75	save	78	save
76	character() name	79	character() name
77	integer fid,numdt,numit,cret	80	integer*8 fid
		81	integer numdt,numit,cret
78	real*8 val	82	real*8 val
79	integer mprfrvr	83	integer mprfrvr
80	c	84	c
Lines 91-97 c Link Here
91	implicit none	95	implicit none
92	save	96	save
93	character() name	97	character() name
94	integer fid,numdt,numit,cret	98	integer*8 fid
		99	integer numdt,numit,cret
95	integer val	100	integer val
96	integer mprfivr	101	integer mprfivr
97	c	102	c
Lines 107-113 c DEC$ ATTRIBUTES DLLEXPORT :: mprnp Link Here
107	c	112	c
108	implicit none	113	implicit none
109	save	114	save
110	integer fid,n,cret	115	integer*8 fid
		116	integer n,cret
111	integer mprfnpr	117	integer mprfnpr
112	c	118	c
113	n = mprfnpr(fid)	119	n = mprfnpr(fid)
Lines 131-137 c Link Here
131	save	137	save
132	c	138	c
133	character () name, dtunit, desc	139	character () name, dtunit, desc
134	integer fid, it, cret, type, nstep	140	integer*8 fid
		141	integer it, cret, type, nstep
135	integer mprfpri	142	integer mprfpri
136	c	143	c
137	cret = mprfpri(fid, it, name, type,	144	cret = mprfpri(fid, it, name, type,
Lines 150-156 c Link Here
150	save	157	save
151	c	158	c
152	character () name, dtunit, desc	159	character () name, dtunit, desc
153	integer fid, cret, type, nstep	160	integer*8 fid
		161	integer cret, type, nstep
154	integer mprfpin	162	integer mprfpin
155	c	163	c
156	cret = mprfpin(fid, name, len(name), type,	164	cret = mprfpin(fid, name, len(name), type,
Lines 169-175 c Link Here
169	save	177	save
170	c	178	c
171	character () name	179	character () name
172	integer fid, it, cret, numdt, numit	180	integer*8 fid
		181	integer it, cret, numdt, numit
173	real*8 dt	182	real*8 dt
174	integer mprfcsi	183	integer mprfcsi
175	c	184	c

Lines 24-30 c Link Here

(-)med-3.3.1_SRC/src/fi/medprofile.f (-5 / +10 lines)
24	save	24	save
25	character() pname	25	character() pname
26	integer profil(*)	26	integer profil(*)
27	integer fid,cret,psize	27	integer*8 fid
		28	integer cret,psize
28	integer mpffprw	29	integer mpffprw
29	c	30	c
30	cret = mpffprw(fid,pname,len(pname),psize,profil)	31	cret = mpffprw(fid,pname,len(pname),psize,profil)
Lines 39-45 c DEC$ ATTRIBUTES DLLEXPORT :: mpfnp Link Here
39	c	40	c
40	implicit none	41	implicit none
41	save	42	save
42	integer fid,n,cret	43	integer*8 fid
		44	integer n,cret
43	integer mpffnpf	45	integer mpffnpf
44	c	46	c
45	n = mpffnpf(fid)	47	n = mpffnpf(fid)
Lines 62-68 c Link Here
62	save	64	save
63	c	65	c
64	character () pname	66	character () pname
65	integer fid, psize, it, cret	67	integer*8 fid
		68	integer psize, it, cret
66	integer mpffpfi	69	integer mpffpfi
67	c	70	c
68	cret = mpffpfi(fid, it, pname, psize)	71	cret = mpffpfi(fid, it, pname, psize)
Lines 79-85 c Link Here
79	save	82	save
80	c	83	c
81	character () pname	84	character () pname
82	integer fid, psize, cret	85	integer*8 fid
		86	integer psize, cret
83	integer mpffpsn	87	integer mpffpsn
84	c	88	c
85	cret = mpffpsn(fid, pname, len(pname), psize)	89	cret = mpffpsn(fid, pname, len(pname), psize)
Lines 96-102 c Link Here
96	save	100	save
97	character() pname	101	character() pname
98	integer profil(*)	102	integer profil(*)
99	integer fid,cret	103	integer*8 fid
		104	integer cret
100	integer mpffprr	105	integer mpffprr
101	c	106	c
102	cret = mpffprr(fid,pname,len(pname),profil)	107	cret = mpffprr(fid,pname,len(pname),profil)

Lines 23-29 c Link Here

(-)med-3.3.1_SRC/src/fi/medsupport.f (-6 / +12 lines)
23	save	23	save
24	c	24	c
25	character () maa, des, aname, aunit	25	character () maa, des, aname, aunit
26	integer fid, cret, atype, sdim, mdim	26	integer*8 fid
		27	integer cret, atype, sdim, mdim
27	integer msmfcre	28	integer msmfcre
28	c	29	c
29	cret = msmfcre(fid, maa, len(maa), sdim, mdim,	30	cret = msmfcre(fid, maa, len(maa), sdim, mdim,
Lines 41-47 c Link Here
41	implicit none	42	implicit none
42	save	43	save
43	c	44	c
44	integer fid, n, cret	45	integer*8 fid
		46	integer n, cret
45	integer msmfnsm	47	integer msmfnsm
46	c	48	c
47	n = msmfnsm(fid)	49	n = msmfnsm(fid)
Lines 65-71 c Link Here
65	save	67	save
66	c	68	c
67	character () name, desc, aname, aunit	69	character () name, desc, aname, aunit
68	integer fid, sdim, mdim, atype, cret	70	integer*8 fid
		71	integer sdim, mdim, atype, cret
69	integer msmfsni	72	integer msmfsni
70	c	73	c
71	cret = msmfsni(fid, name, len(name), sdim, mdim, desc,	74	cret = msmfsni(fid, name, len(name), sdim, mdim, desc,
Lines 84-90 c Link Here
84	save	87	save
85	c	88	c
86	character () name, desc, aname, aunit	89	character () name, desc, aname, aunit
87	integer fid, sdim, mdim, atype, it, cret	90	integer*8 fid
		91	integer sdim, mdim, atype, it, cret
88	integer msmfsmi	92	integer msmfsmi
89	c	93	c
90	cret = msmfsmi(fid, it, name, sdim, mdim, desc,	94	cret = msmfsmi(fid, it, name, sdim, mdim, desc,
Lines 101-107 c Link Here
101	implicit none	105	implicit none
102	save	106	save
103	c	107	c
104	integer fid,it,naxis,cret	108	integer*8 fid
		109	integer it,naxis,cret
105	integer msmfnax	110	integer msmfnax
106	c	111	c
107	naxis = msmfnax(fid,it)	112	naxis = msmfnax(fid,it)
Lines 122-128 c Link Here
122	implicit none	127	implicit none
123	save	128	save
124	c	129	c
125	integer fid,naxis,cret	130	integer*8 fid
		131	integer naxis,cret
126	character () name	132	character () name
127	integer msmfnan	133	integer msmfnan
128	c	134	c

Lines 22-28 c Link Here

(-)med-3.3.1_SRC/src/2.3.6/fi/famf.f (-7 / +14 lines)
22	implicit none	22	implicit none
23	save	23	save
24	c	24	c
25	integer fid,num,attid(),attval(),natt,ngro,cret	25	integer*8 fid
		26	integer num,attid(),attval(),natt,ngro,cret
26	character () maa,fam,attdes	27	character () maa,fam,attdes
27	character 80 gro()	28	character 80 gro()
28	integer edffamc	29	integer edffamc
Lines 40-46 c Link Here
40	implicit none	41	implicit none
41	save	42	save
42	c	43	c
43	integer fid,fam(*),n,typent,typgeo,cret	44	integer*8 fid
		45	integer fam(*),n,typent,typgeo,cret
44	character () maa	46	character () maa
45	integer edffame	47	integer edffame
46	c	48	c
Lines 55-61 c Link Here
55	implicit none	57	implicit none
56	save	58	save
57	c	59	c
58	integer fid,fam(*),n,typent,typgeo,cret	60	integer*8 fid
		61	integer fam(*),n,typent,typgeo,cret
59	character () maa	62	character () maa
60	integer edffaml	63	integer edffaml
61	c	64	c
Lines 71-77 c Link Here
71	implicit none	74	implicit none
72	save	75	save
73	c	76	c
74	integer fid,num,attid(),attval(),natt,ngro,cret,ind	77	integer*8 fid
		78	integer num,attid(),attval(),natt,ngro,cret,ind
75	character () maa,fam,attdes,gro	79	character () maa,fam,attdes,gro
76	integer edffami	80	integer edffami
77	c	81	c
Lines 88-94 c Link Here
88	implicit none	92	implicit none
89	save	93	save
90	c	94	c
91	integer fid,n,cret	95	integer*8 fid
		96	integer n,cret
92	character () maa	97	character () maa
93	integer edfnfam	98	integer edfnfam
94	c	99	c
Lines 109-115 c Link Here
109	implicit none	114	implicit none
110	save	115	save
111	c	116	c
112	integer fid,ind,n,cret	117	integer*8 fid
		118	integer ind,n,cret
113	character () maa	119	character () maa
114	integer edfngro	120	integer edfngro
115	c	121	c
Lines 130-136 c Link Here
130	implicit none	136	implicit none
131	save	137	save
132	c	138	c
133	integer fid,ind,n,cret	139	integer*8 fid
		140	integer ind,n,cret
134	character () maa	141	character () maa
135	integer edfnatt	142	integer edfnatt
136	c	143	c

Lines 29-35 c Link Here

(-)med-3.3.1_SRC/src/2.3.6/fi/resf_r.f (-2 / +4 lines)
29	c	29	c
30	character () cha,maa,profil,locname	30	character () cha,maa,profil,locname
31	character() dtunit	31	character() dtunit
32	integer fid,n,pflmod,typent,typgeo,cret	32	integer*8 fid
		33	integer n,pflmod,typent,typgeo,cret
33	integer interlace,numco,numdt,numo	34	integer interlace,numco,numdt,numo
34	real*8 dt	35	real*8 dt
35	real8 val()	36	real8 val()
Lines 57-63 c Link Here
57	save	58	save
58	c	59	c
59	character () cha,maa,locname,profil	60	character () cha,maa,locname,profil
60	integer fid,typent,typgeo,cret	61	integer*8 fid
		62	integer typent,typgeo,cret
61	integer interlace,numco,numdt,numo,pflmod	63	integer interlace,numco,numdt,numo,pflmod
62	integer edfchal	64	integer edfchal
63	real8 val()	65	real8 val()

Lines 25-31 c Link Here

(-)med-3.3.1_SRC/src/fi/medfilter.f (-2 / +4 lines)
25	save	25	save
26	character() pname	26	character() pname
27	integer flta(*)	27	integer flta(*)
28	integer fid,nent,nvent,ncent	28	integer*8 fid
		29	integer nent,nvent,ncent
29	integer stm,fltas	30	integer stm,fltas
30	integer*8 flt	31	integer*8 flt
31	integer cret,cs,swm	32	integer cret,cs,swm
Lines 79-85 c Link Here
79	implicit none	80	implicit none
80	save	81	save
81	character() pname	82	character() pname
82	integer fid,nent,nvent,ncent	83	integer*8 fid
		84	integer nent,nvent,ncent
83	integer start,stride,count,bsize,lbsize	85	integer start,stride,count,bsize,lbsize
84	integer stm	86	integer stm
85	integer*8 flt	87	integer*8 flt

Lines 22-28 c Link Here

(-)med-3.3.1_SRC/src/fi/medstructelement.f (-20 / +40 lines)
22	implicit none	22	implicit none
23	save	23	save
24	character() mname,smname	24	character() mname,smname
25	integer fid,cret,mdim,setype,sgtype,etype	25	integer*8 fid
		26	integer cret,mdim,setype,sgtype,etype
26	integer msefcre	27	integer msefcre
27	c	28	c
28	etype = msefcre(fid,mname,len(mname),mdim,	29	etype = msefcre(fid,mname,len(mname),mdim,
Lines 44-50 c DEC$ ATTRIBUTES DLLEXPORT :: msens Link Here
44	c	45	c
45	implicit none	46	implicit none
46	save	47	save
47	integer fid,n,cret	48	integer*8 fid
		49	integer n,cret
48	integer msefnse	50	integer msefnse
49	c	51	c
50	n = msefnse(fid)	52	n = msefnse(fid)
Lines 68-74 c Link Here
68	implicit none	70	implicit none
69	save	71	save
70	character() mname,smname	72	character() mname,smname
71	integer fid,cret,mdim,setype,sgtype,it	73	integer*8 fid
		74	integer cret,mdim,setype,sgtype,it
72	integer snnode,sncell,ncatt,ap,nvatt,mgtype	75	integer snnode,sncell,ncatt,ap,nvatt,mgtype
73	integer msefsei	76	integer msefsei
74	c	77	c
Lines 89-95 c Link Here
89	implicit none	92	implicit none
90	save	93	save
91	character() mname,smname	94	character() mname,smname
92	integer fid,cret,mdim,setype,sgtype	95	integer*8 fid
		96	integer cret,mdim,setype,sgtype
93	integer snnode,sncell,ncatt,ap,nvatt,mgtype	97	integer snnode,sncell,ncatt,ap,nvatt,mgtype
94	integer msefsin	98	integer msefsin
95	c	99	c
Lines 108-114 c Link Here
108	implicit none	112	implicit none
109	save	113	save
110	character() mname	114	character() mname
111	integer fid,cret,mgtype	115	integer*8 fid
		116	integer cret,mgtype
112	integer msefsen	117	integer msefsen
113	c	118	c
114	cret = msefsen(fid,mgtype,mname)	119	cret = msefsen(fid,mgtype,mname)
Lines 124-130 c Link Here
124	implicit none	129	implicit none
125	save	130	save
126	character() mname	131	character() mname
127	integer fid,gtype,cret	132	integer*8 fid
		133	integer gtype,cret
128	integer msefsgt	134	integer msefsgt
129	c	135	c
130	gtype = msefsgt(fid,mname,len(mname))	136	gtype = msefsgt(fid,mname,len(mname))
Lines 146-152 c Link Here
146	implicit none	152	implicit none
147	save	153	save
148	character() mname,aname	154	character() mname,aname
149	integer fid,cret,atype,anc	155	integer*8 fid
		156	integer cret,atype,anc
150	integer msefvac	157	integer msefvac
151	c	158	c
152	cret = msefvac(fid,mname,len(mname),	159	cret = msefvac(fid,mname,len(mname),
Lines 164-170 c Link Here
164	implicit none	171	implicit none
165	save	172	save
166	character() mname,aname	173	character() mname,aname
167	integer fid,cret,atype,anc	174	integer*8 fid
		175	integer cret,atype,anc
168	integer msefvni	176	integer msefvni
169	c	177	c
170	cret = msefvni(fid,mname,len(mname),	178	cret = msefvni(fid,mname,len(mname),
Lines 182-188 c Link Here
182	implicit none	190	implicit none
183	save	191	save
184	character() mname,aname	192	character() mname,aname
185	integer fid,cret,atype,anc,it	193	integer*8 fid
		194	integer cret,atype,anc,it
186	integer msefvai	195	integer msefvai
187	c	196	c
188	cret = msefvai(fid,mname,len(mname),it,	197	cret = msefvai(fid,mname,len(mname),it,
Lines 221-227 c Link Here
221	implicit none	230	implicit none
222	save	231	save
223	character() mname,aname	232	character() mname,aname
224	integer fid,cret,atype,anc,setype	233	integer*8 fid
		234	integer cret,atype,anc,setype
225	real8 val()	235	real8 val()
226	integer msefraw	236	integer msefraw
227	c	237	c
Lines 241-247 c Link Here
241	implicit none	251	implicit none
242	save	252	save
243	character() mname,aname	253	character() mname,aname
244	integer fid,cret,atype,anc,setype	254	integer*8 fid
		255	integer cret,atype,anc,setype
245	integer val(*)	256	integer val(*)
246	integer msefiaw	257	integer msefiaw
247	c	258	c
Lines 261-267 c Link Here
261	implicit none	272	implicit none
262	save	273	save
263	character() mname,aname	274	character() mname,aname
264	integer fid,cret,atype,anc,setype	275	integer*8 fid
		276	integer cret,atype,anc,setype
265	character () val	277	character () val
266	integer msefsaw	278	integer msefsaw
267	c	279	c
Lines 281-287 c Link Here
281	implicit none	293	implicit none
282	save	294	save
283	character() mname,aname,pname	295	character() mname,aname,pname
284	integer fid,cret,atype,anc,setype	296	integer*8 fid
		297	integer cret,atype,anc,setype
285	real8 val()	298	real8 val()
286	integer msefrpw	299	integer msefrpw
287	c	300	c
Lines 302-308 c Link Here
302	implicit none	315	implicit none
303	save	316	save
304	character() mname,aname,pname	317	character() mname,aname,pname
305	integer fid,cret,atype,anc,setype	318	integer*8 fid
		319	integer cret,atype,anc,setype
306	integer val(*)	320	integer val(*)
307	integer msefipw	321	integer msefipw
308	c	322	c
Lines 323-329 c Link Here
323	implicit none	337	implicit none
324	save	338	save
325	character() mname,aname,pname	339	character() mname,aname,pname
326	integer fid,cret,atype,anc,setype	340	integer*8 fid
		341	integer cret,atype,anc,setype
327	character () val	342	character () val
328	integer msefspw	343	integer msefspw
329	c	344	c
Lines 344-350 c Link Here
344	implicit none	359	implicit none
345	save	360	save
346	character() mname,aname,pname	361	character() mname,aname,pname
347	integer fid,cret,atype,anc,setype,psize	362	integer*8 fid
		363	integer cret,atype,anc,setype,psize
348	integer msefcni	364	integer msefcni
349	c	365	c
350	cret = msefcni(fid,mname,len(mname),	366	cret = msefcni(fid,mname,len(mname),
Lines 363-369 c Link Here
363	implicit none	379	implicit none
364	save	380	save
365	character() mname,aname,pname	381	character() mname,aname,pname
366	integer fid,cret,atype,anc,setype,psize,it	382	integer*8 fid
		383	integer cret,atype,anc,setype,psize,it
367	integer msefcai	384	integer msefcai
368	c	385	c
369	cret = msefcai(fid,mname,len(mname),it,	386	cret = msefcai(fid,mname,len(mname),it,
Lines 381-387 c Link Here
381	implicit none	398	implicit none
382	save	399	save
383	character() mname,aname	400	character() mname,aname
384	integer fid,cret	401	integer*8 fid
		402	integer cret
385	real8 val()	403	real8 val()
386	integer msefrar	404	integer msefrar
387	c	405	c
Lines 399-405 c Link Here
399	implicit none	417	implicit none
400	save	418	save
401	character() mname,aname	419	character() mname,aname
402	integer fid,cret	420	integer*8 fid
		421	integer cret
403	integer val(*)	422	integer val(*)
404	integer msefiar	423	integer msefiar
405	c	424	c
Lines 417-423 c Link Here
417	implicit none	436	implicit none
418	save	437	save
419	character() mname,aname	438	character() mname,aname
420	integer fid,cret	439	integer*8 fid
		440	integer cret
421	character () val	441	character () val
422	integer msefsar	442	integer msefsar
423	c	443	c

Lines 48-59 From Fortran call of following C functio Link Here

(-)med-3.3.1_SRC/src/cfi/medequivalencecf.c (-16 / +16 lines)
48		48
49	#ifdef PPRO_NT	49	#ifdef PPRO_NT
50	med_int	50	med_int
51	MEQFCRE(med_int fid, char maa, unsigned int bidon1, med_int *lon1,	51	MEQFCRE(med_idt fid, char maa, unsigned int bidon1, med_int *lon1,
52	char eq, unsigned int bidon2, med_int lon2, char *desc,	52	char eq, unsigned int bidon2, med_int lon2, char *desc,
53	unsigned int bidon3, med_int *lon3)	53	unsigned int bidon3, med_int *lon3)
54	#else	54	#else
55	med_int	55	med_int
56	nmeqfcre(med_int fid, char maa, med_int lon1, char eq, med_int *lon2,	56	nmeqfcre(med_idt fid, char maa, med_int lon1, char eq, med_int *lon2,
57	char desc, med_int lon3)	57	char desc, med_int lon3)
58	#endif	58	#endif
59	{	59	{
Lines 81-93 med_int Link Here
81		81
82	#ifdef PPRO_NT	82	#ifdef PPRO_NT
83	med_int	83	med_int
84	MEQFCOW(med_int fid, char maa, unsigned int bidon1, med_int *lon1,	84	MEQFCOW(med_idt fid, char maa, unsigned int bidon1, med_int *lon1,
85	char eq, unsigned int bidon2, med_int lon2,	85	char eq, unsigned int bidon2, med_int lon2,
86	med_int numdt, med_int numit,med_int typ_ent,med_int typ_geo,	86	med_int numdt, med_int numit,med_int typ_ent,med_int typ_geo,
87	med_int n, med_int corr)	87	med_int n, med_int corr)
88	#else	88	#else
89	med_int	89	med_int
90	nmeqfcow(med_int fid, char maa, med_int *lon1,	90	nmeqfcow(med_idt fid, char maa, med_int *lon1,
91	char eq, med_int lon2,	91	char eq, med_int lon2,
92	med_int numdt, med_int numit,	92	med_int numdt, med_int numit,
93	med_int typ_ent,med_int typ_geo,	93	med_int typ_ent,med_int typ_geo,
Lines 125-134 nmeqfcow(med_int fid, char maa, med_in Link Here
125		125
126	#ifdef PPRO_NT	126	#ifdef PPRO_NT
127	med_int	127	med_int
128	MEQFNEQ(med_int fid, char maa, unsigned int bidon, med_int *lon1)	128	MEQFNEQ(med_idt fid, char maa, unsigned int bidon, med_int *lon1)
129	#else	129	#else
130	med_int	130	med_int
131	nmeqfneq(med_int fid, char maa,med_int *lon1)	131	nmeqfneq(med_idt fid, char maa,med_int *lon1)
132	#endif	132	#endif
133	{	133	{
134	med_int _ret;	134	med_int _ret;
Lines 152-163 nmeqfneq(med_int fid, char maa,med_int Link Here
152		152
153	#ifdef PPRO_NT	153	#ifdef PPRO_NT
154	med_int	154	med_int
155	MEQFEQI(med_int fid, char maa, unsigned int bidon1, med_int *lon1,	155	MEQFEQI(med_idt fid, char maa, unsigned int bidon1, med_int *lon1,
156	med_int ind, char eq, unsigned int bidon2,	156	med_int ind, char eq, unsigned int bidon2,
157	char des,unsigned int bidon3, med_int nstep, med_int *ncstcor)	157	char des,unsigned int bidon3, med_int nstep, med_int *ncstcor)
158	#else	158	#else
159	med_int	159	med_int
160	nmeqfeqi(med_int fid, char maa,med_int lon1,med_int ind, char *eq,	160	nmeqfeqi(med_idt fid, char maa,med_int lon1,med_int ind, char *eq,
161	char des, med_int nstep, med_int *ncstcor)	161	char des, med_int nstep, med_int *ncstcor)
162	#endif	162	#endif
163	{	163	{
Lines 190-202 nmeqfeqi(med_int fid, char maa,med_int Link Here
190		190
191	#ifdef PPRO_NT	191	#ifdef PPRO_NT
192	med_int	192	med_int
193	MEQFCSZ(med_int fid, char maa, unsigned int bidon1, med_int *lon1,	193	MEQFCSZ(med_idt fid, char maa, unsigned int bidon1, med_int *lon1,
194	char eq, unsigned int bidon2, med_int lon2,	194	char eq, unsigned int bidon2, med_int lon2,
195	med_int numdt, med_int numit,	195	med_int numdt, med_int numit,
196	med_int typ_ent, med_int typ_geo)	196	med_int typ_ent, med_int typ_geo)
197	#else	197	#else
198	med_int	198	med_int
199	nmeqfcsz(med_int fid, char maa, med_int *lon1,	199	nmeqfcsz(med_idt fid, char maa, med_int *lon1,
200	char eq, med_int lon2,	200	char eq, med_int lon2,
201	med_int numdt, med_int numit,	201	med_int numdt, med_int numit,
202	med_int typ_ent, med_int typ_geo)	202	med_int typ_ent, med_int typ_geo)
Lines 237-249 nmeqfcsz(med_int fid, char maa, med_in Link Here
237		237
238	#ifdef PPRO_NT	238	#ifdef PPRO_NT
239	med_int	239	med_int
240	MEQFSZI(med_int fid, char maa, unsigned int bidon1, med_int *lon1,	240	MEQFSZI(med_idt fid, char maa, unsigned int bidon1, med_int *lon1,
241	char eq, unsigned int bidon2, med_int lon2,	241	char eq, unsigned int bidon2, med_int lon2,
242	med_int numdt, med_int numit, med_int *it,	242	med_int numdt, med_int numit, med_int *it,
243	med_int typ_ent, med_int typ_geo, med_int *n)	243	med_int typ_ent, med_int typ_geo, med_int *n)
244	#else	244	#else
245	med_int	245	med_int
246	nmeqfszi(med_int fid, char maa, med_int *lon1,	246	nmeqfszi(med_idt fid, char maa, med_int *lon1,
247	char eq, med_int lon2,	247	char eq, med_int lon2,
248	med_int numdt, med_int numit,med_int *it,	248	med_int numdt, med_int numit,med_int *it,
249	med_int typ_ent, med_int typ_geo, med_int *n)	249	med_int typ_ent, med_int typ_geo, med_int *n)
Lines 283-295 nmeqfszi(med_int fid, char maa, med_in Link Here
283		283
284	#ifdef PPRO_NT	284	#ifdef PPRO_NT
285	med_int	285	med_int
286	MEQFCOR(med_int fid, char maa, unsigned int bidon1, med_int *lon1,	286	MEQFCOR(med_idt fid, char maa, unsigned int bidon1, med_int *lon1,
287	char eq, unsigned int bidon2, med_int lon2,	287	char eq, unsigned int bidon2, med_int lon2,
288	med_int numdt, med_int numit,med_int typ_ent,med_int typ_geo,	288	med_int numdt, med_int numit,med_int typ_ent,med_int typ_geo,
289	med_int *corr)	289	med_int *corr)
290	#else	290	#else
291	med_int	291	med_int
292	nmeqfcor(med_int fid, char maa, med_int *lon1,	292	nmeqfcor(med_idt fid, char maa, med_int *lon1,
293	char eq, med_int lon2,	293	char eq, med_int lon2,
294	med_int numdt, med_int numit,	294	med_int numdt, med_int numit,
295	med_int typ_ent,med_int typ_geo,	295	med_int typ_ent,med_int typ_geo,
Lines 325-336 nmeqfcor(med_int fid, char maa, med_in Link Here
325		325
326	#ifdef PPRO_NT	326	#ifdef PPRO_NT
327	med_int	327	med_int
328	MEQFCSI(med_int fid, char maa, unsigned int bidon1, med_int *lon1,	328	MEQFCSI(med_idt fid, char maa, unsigned int bidon1, med_int *lon1,
329	med_int ind, char eq, unsigned int bidon2, med_int *lon2,	329	med_int ind, char eq, unsigned int bidon2, med_int *lon2,
330	med_int csit, med_int numdt, med_int numit, med_int ncor)	330	med_int csit, med_int numdt, med_int numit, med_int ncor)
331	#else	331	#else
332	med_int	332	med_int
333	nmeqfcsi(med_int fid, char maa, med_int *lon1,	333	nmeqfcsi(med_idt fid, char maa, med_int *lon1,
334	med_int ind, char eq, med_int *lon2,	334	med_int ind, char eq, med_int *lon2,
335	med_int csit, med_int numdt, med_int *numit,	335	med_int csit, med_int numdt, med_int *numit,
336	med_int *ncor)	336	med_int *ncor)

Lines 44-56 From Fortran call of following C functio Link Here

(-)med-3.3.1_SRC/src/cfi/medfamilycf.c (-12 / +12 lines)
44		44
45	#ifdef PPRO_NT	45	#ifdef PPRO_NT
46	med_int	46	med_int
47	MFAFCRE(med_int fid, char mname, unsigned int bidon1, med_int *mnamelen,	47	MFAFCRE(med_idt fid, char mname, unsigned int bidon1, med_int *mnamelen,
48	char fname, unsigned int bidon2, med_int fnamelen,	48	char fname, unsigned int bidon2, med_int fnamelen,
49	med_int fnum, med_int ng, char* gname, unsigned int bidon3,	49	med_int fnum, med_int ng, char* gname, unsigned int bidon3,
50	med_int *gnamelen)	50	med_int *gnamelen)
51	#else	51	#else
52	med_int	52	med_int
53	nmfafcre(med_int fid, char mname, med_int *mnamelen,	53	nmfafcre(med_idt fid, char mname, med_int *mnamelen,
54	char fname, med_int fnamelen,	54	char fname, med_int fnamelen,
55	med_int fnum, med_int ng, char* gname,	55	med_int fnum, med_int ng, char* gname,
56	med_int *gnamelen)	56	med_int *gnamelen)
Lines 88-97 nmfafcre(med_int fid, char mname, med_ Link Here
88		88
89	#ifdef PPRO_NT	89	#ifdef PPRO_NT
90	int	90	int
91	MFAFNFA(med_int fid, char mname, unsigned int bidon, med_int *mnamelen)	91	MFAFNFA(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen)
92	#else	92	#else
93	med_int	93	med_int
94	nmfafnfa(med_int fid, char mname, med_int *mnamelen)	94	nmfafnfa(med_idt fid, char mname, med_int *mnamelen)
95	#endif	95	#endif
96	{	96	{
97	med_int _ret;	97	med_int _ret;
Lines 114-123 nmfafnfa(med_int fid, char mname, med_ Link Here
114		114
115	#ifdef PPRO_NT	115	#ifdef PPRO_NT
116	int	116	int
117	MFAFNFG(med_int fid, char mname, unsigned int bidon, med_int mnamelen, med_int it)	117	MFAFNFG(med_idt fid, char mname, unsigned int bidon, med_int mnamelen, med_int it)
118	#else	118	#else
119	med_int	119	med_int
120	nmfafnfg(med_int fid, char mname, med_int mnamelen, med_int it)	120	nmfafnfg(med_idt fid, char mname, med_int mnamelen, med_int it)
121	#endif	121	#endif
122	{	122	{
123	med_int _ret;	123	med_int _ret;
Lines 140-151 nmfafnfg(med_int fid, char mname, med_ Link Here
140		140
141	#ifdef PPRO_NT	141	#ifdef PPRO_NT
142	int	142	int
143	MFAFFAI(med_int fid, char mname, unsigned int bidon1, med_int *mnamelen,	143	MFAFFAI(med_idt fid, char mname, unsigned int bidon1, med_int *mnamelen,
144	med_int it, char fname, unsigned int bidon2,	144	med_int it, char fname, unsigned int bidon2,
145	med_int fnum, char gname , int unsigned bidon4)	145	med_int fnum, char gname , int unsigned bidon4)
146	#else	146	#else
147	med_int	147	med_int
148	nmfaffai(med_int fid, char mname,med_int *mnamelen,	148	nmfaffai(med_idt fid, char mname,med_int *mnamelen,
149	med_int it, char fname,	149	med_int it, char fname,
150	med_int fnum, char gname)	150	med_int fnum, char gname)
151	#endif	151	#endif
Lines 191-200 nmfaffai(med_int fid, char mname,med_i Link Here
191		191
192	#ifdef PPRO_NT	192	#ifdef PPRO_NT
193	int	193	int
194	MFAFONA(med_int fid, char mname, unsigned int bidon, med_int mnamelen, med_int it)	194	MFAFONA(med_idt fid, char mname, unsigned int bidon, med_int mnamelen, med_int it)
195	#else	195	#else
196	med_int	196	med_int
197	nmfafona(med_int fid, char mname, med_int mnamelen, med_int it)	197	nmfafona(med_idt fid, char mname, med_int mnamelen, med_int it)
198	#endif	198	#endif
199	{	199	{
200	med_int _ret;	200	med_int _ret;
Lines 217-230 nmfafona(med_int fid, char mname, med_ Link Here
217		217
218	#ifdef PPRO_NT	218	#ifdef PPRO_NT
219	int	219	int
220	MFAFOFI(med_int fid, char mname, unsigned int bidon1, med_int *mnamelen,	220	MFAFOFI(med_idt fid, char mname, unsigned int bidon1, med_int *mnamelen,
221	med_int it, char fname, unsigned int bidon2,	221	med_int it, char fname, unsigned int bidon2,
222	med_int attr_ident, med_int attr_val,	222	med_int attr_ident, med_int attr_val,
223	char *attr_desc, unsigned int bidon3,	223	char *attr_desc, unsigned int bidon3,
224	med_int fnum, char gname , int unsigned bidon4)	224	med_int fnum, char gname , int unsigned bidon4)
225	#else	225	#else
226	med_int	226	med_int
227	nmfafofi(med_int fid, char mname,med_int *mnamelen,	227	nmfafofi(med_idt fid, char mname,med_int *mnamelen,
228	med_int it, char fname,	228	med_int it, char fname,
229	med_int attr_ident, med_int attr_val,	229	med_int attr_ident, med_int attr_val,
230	char *attr_desc,	230	char *attr_desc,

Lines 87-98 nmfrfdea(med_int* nflt,unsigned char** f Link Here

(-)med-3.3.1_SRC/src/cfi/medfiltercf.c (-4 / +4 lines)
87		87
88	#ifdef PPRO_NT	88	#ifdef PPRO_NT
89	med_int	89	med_int
90	MFRFCRE(med_int fid, med_int nent, med_int nvent, med_int ncent,	90	MFRFCRE(med_idt fid, med_int nent, med_int nvent, med_int ncent,
91	med_int cs, med_int swm, med_int stm, char pname, unsigned int bidon, med_int *pnamelen,	91	med_int cs, med_int swm, med_int stm, char pname, unsigned int bidon, med_int *pnamelen,
92	med_int fltas, med_int flta, unsigned char **flt)	92	med_int fltas, med_int flta, unsigned char **flt)
93	#else	93	#else
94	med_int	94	med_int
95	nmfrfcre(med_int fid, med_int nent, med_int nvent, med_int ncent,	95	nmfrfcre(med_idt fid, med_int nent, med_int nvent, med_int ncent,
96	med_int cs, med_int swm,med_int stm,char pname, med_int *pnamelen,	96	med_int cs, med_int swm,med_int stm,char pname, med_int *pnamelen,
97	med_int fltas,med_int flta, unsigned char **flt)	97	med_int fltas,med_int flta, unsigned char **flt)
98	#endif	98	#endif
Lines 135-147 nmfrfcre(med_int fid, med_int nent, me Link Here
135		135
136	#ifdef PPRO_NT	136	#ifdef PPRO_NT
137	med_int	137	med_int
138	MFRFBLC(med_int fid, med_int nent, med_int nvent, med_int ncent,	138	MFRFBLC(med_idt fid, med_int nent, med_int nvent, med_int ncent,
139	med_int cs, med_int swm, med_int stm, char pname, unsigned int bidon, med_int *pnamelen,	139	med_int cs, med_int swm, med_int stm, char pname, unsigned int bidon, med_int *pnamelen,
140	med_int start, med_int stride, med_int count, med_int bsize, med_int *lbsize,	140	med_int start, med_int stride, med_int count, med_int bsize, med_int *lbsize,
141	unsigned char **flt)	141	unsigned char **flt)
142	#else	142	#else
143	med_int	143	med_int
144	nmfrfblc(med_int fid, med_int nent, med_int nvent, med_int ncent,	144	nmfrfblc(med_idt fid, med_int nent, med_int nvent, med_int ncent,
145	med_int cs, med_int swm,med_int stm,char pname, med_int *pnamelen,	145	med_int cs, med_int swm,med_int stm,char pname, med_int *pnamelen,
146	med_int start, med_int stride, med_int count, med_int bsize, med_int *lbsize,	146	med_int start, med_int stride, med_int count, med_int bsize, med_int *lbsize,
147	unsigned char **flt)	147	unsigned char **flt)

Lines 44-56 From Fortran call of following C functio Link Here

(-)med-3.3.1_SRC/src/cfi/medinterpcf.c (-14 / +14 lines)
44		44
45	#ifdef PPRO_NT	45	#ifdef PPRO_NT
46	med_int	46	med_int
47	MIPFCRE(med_int *fid,	47	MIPFCRE(med_idt *fid,
48	char name, unsigned int bidon1, med_int lon1,	48	char name, unsigned int bidon1, med_int lon1,
49	med_int gtype, med_int cnode, med_int *nvar,	49	med_int gtype, med_int cnode, med_int *nvar,
50	med_int mdeg, med_int nmaxc)	50	med_int mdeg, med_int nmaxc)
51	#else	51	#else
52	med_int	52	med_int
53	nmipfcre(med_int *fid,	53	nmipfcre(med_idt *fid,
54	char name, med_int lon1,	54	char name, med_int lon1,
55	med_int gtype, med_int cnode, med_int *nvar,	55	med_int gtype, med_int cnode, med_int *nvar,
56	med_int mdeg, med_int nmaxc)	56	med_int mdeg, med_int nmaxc)
Lines 82-93 nmipfcre(med_int *fid, Link Here
82		82
83	#ifdef PPRO_NT	83	#ifdef PPRO_NT
84	med_int	84	med_int
85	MIPFBFW(med_int *fid,	85	MIPFBFW(med_idt *fid,
86	char name, unsigned int bidon1, med_int lon1,	86	char name, unsigned int bidon1, med_int lon1,
87	med_int it, med_int nc, med_int pw, med_float co)	87	med_int it, med_int nc, med_int pw, med_float co)
88	#else	88	#else
89	med_int	89	med_int
90	nmipfbfw(med_int *fid,	90	nmipfbfw(med_idt *fid,
91	char name, med_int lon1,	91	char name, med_int lon1,
92	med_int it, med_int nc, med_int pw, med_float co)	92	med_int it, med_int nc, med_int pw, med_float co)
93	#endif	93	#endif
Lines 115-126 nmipfbfw(med_int *fid, Link Here
115		115
116	#ifdef PPRO_NT	116	#ifdef PPRO_NT
117	med_int	117	med_int
118	MIPFBFR(med_int *fid,	118	MIPFBFR(med_idt *fid,
119	char name, unsigned int bidon1, med_int lon1,	119	char name, unsigned int bidon1, med_int lon1,
120	med_int it, med_int nc, med_int pw, med_float co)	120	med_int it, med_int nc, med_int pw, med_float co)
121	#else	121	#else
122	med_int	122	med_int
123	nmipfbfr(med_int *fid,	123	nmipfbfr(med_idt *fid,
124	char name, med_int lon1,	124	char name, med_int lon1,
125	med_int it, med_int nc, med_int pw, med_float co)	125	med_int it, med_int nc, med_int pw, med_float co)
126	#endif	126	#endif
Lines 149-158 nmipfbfr(med_int *fid, Link Here
149		149
150	#ifdef PPRO_NT	150	#ifdef PPRO_NT
151	med_int	151	med_int
152	MIPFNIP(med_int *fid)	152	MIPFNIP(med_idt *fid)
153	#else	153	#else
154	med_int	154	med_int
155	nmipfnip(med_int *fid)	155	nmipfnip(med_idt *fid)
156	#endif	156	#endif
157	{	157	{
158	med_int _ret;	158	med_int _ret;
Lines 166-178 nmipfnip(med_int *fid) Link Here
166		166
167	#ifdef PPRO_NT	167	#ifdef PPRO_NT
168	med_int	168	med_int
169	MIPFIIN(med_int *fid,	169	MIPFIIN(med_idt *fid,
170	char name, unsigned int bidon1, med_int lon1,	170	char name, unsigned int bidon1, med_int lon1,
171	med_int gtype, med_int cnode, med_int nbf, med_int nvar,	171	med_int gtype, med_int cnode, med_int nbf, med_int nvar,
172	med_int mdeg, med_int nmaxc)	172	med_int mdeg, med_int nmaxc)
173	#else	173	#else
174	med_int	174	med_int
175	nmipfiin(med_int *fid,	175	nmipfiin(med_idt *fid,
176	char name, med_int lon1,	176	char name, med_int lon1,
177	med_int gtype, med_int cnode, med_int nbf, med_int nvar,	177	med_int gtype, med_int cnode, med_int nbf, med_int nvar,
178	med_int mdeg, med_int nmaxc)	178	med_int mdeg, med_int nmaxc)
Lines 209-221 nmipfiin(med_int *fid, Link Here
209		209
210	#ifdef PPRO_NT	210	#ifdef PPRO_NT
211	med_int	211	med_int
212	MIPFIPI(med_int fid, med_int it,	212	MIPFIPI(med_idt fid, med_int it,
213	char *name, unsigned int bidon1,	213	char *name, unsigned int bidon1,
214	med_int gtype, med_int cnode, med_int nbf, med_int nvar,	214	med_int gtype, med_int cnode, med_int nbf, med_int nvar,
215	med_int mdeg, med_int nmaxc)	215	med_int mdeg, med_int nmaxc)
216	#else	216	#else
217	med_int	217	med_int
218	nmipfipi(med_int fid, med_int it, char *name,	218	nmipfipi(med_idt fid, med_int it, char *name,
219	med_int gtype, med_int cnode, med_int nbf, med_int nvar,	219	med_int gtype, med_int cnode, med_int nbf, med_int nvar,
220	med_int mdeg, med_int nmaxc)	220	med_int mdeg, med_int nmaxc)
221	#endif	221	#endif
Lines 246-257 nmipfipi(med_int fid, med_int it, char Link Here
246		246
247	#ifdef PPRO_NT	247	#ifdef PPRO_NT
248	med_int	248	med_int
249	MIPFCSZ(med_int *fid,	249	MIPFCSZ(med_idt *fid,
250	char name, unsigned int bidon1, med_int lon1,	250	char name, unsigned int bidon1, med_int lon1,
251	med_int *it)	251	med_int *it)
252	#else	252	#else
253	med_int	253	med_int
254	nmipfcsz(med_int *fid,	254	nmipfcsz(med_idt *fid,
255	char name, med_int lon1,	255	char name, med_int lon1,
256	med_int *it)	256	med_int *it)
257	#endif	257	#endif

Lines 47-53 From Fortran call of following C functio Link Here

(-)med-3.3.1_SRC/src/cfi/medjointcf.c (-16 / +16 lines)
47		47
48	#ifdef PPRO_NT	48	#ifdef PPRO_NT
49	med_int	49	med_int
50	MSDFJCR(med_int *fid,	50	MSDFJCR(med_idt *fid,
51	char lmname, unsigned int bidon1, med_int lon1,	51	char lmname, unsigned int bidon1, med_int lon1,
52	char jname, unsigned int bidon2, med_int lon2,	52	char jname, unsigned int bidon2, med_int lon2,
53	char desc, unsigned int bidon3, med_int lon3,	53	char desc, unsigned int bidon3, med_int lon3,
Lines 56-62 MSDFJCR(med_int *fid, Link Here
56	)	56	)
57	#else	57	#else
58	med_int	58	med_int
59	nmsdfjcr(med_int *fid,	59	nmsdfjcr(med_idt *fid,
60	char lmname, med_int lon1,	60	char lmname, med_int lon1,
61	char jname, med_int lon2,	61	char jname, med_int lon2,
62	char desc, med_int lon3,	62	char desc, med_int lon3,
Lines 93-99 nmsdfjcr(med_int *fid, Link Here
93		93
94	#ifdef PPRO_NT	94	#ifdef PPRO_NT
95	med_int	95	med_int
96	MSDFCRW(med_int *fid,	96	MSDFCRW(med_idt *fid,
97	char maa_local,unsigned int bidon1, med_int lon1,	97	char maa_local,unsigned int bidon1, med_int lon1,
98	char jn,unsigned int bidon2, med_int lon2,	98	char jn,unsigned int bidon2, med_int lon2,
99	med_int numdt, med_int numit,	99	med_int numdt, med_int numit,
Lines 102-108 MSDFCRW(med_int *fid, Link Here
102	med_int n, med_int corrtab)	102	med_int n, med_int corrtab)
103	#else	103	#else
104	med_int	104	med_int
105	nmsdfcrw (med_int *fid,	105	nmsdfcrw (med_idt *fid,
106	char maa_local,med_int lon1,	106	char maa_local,med_int lon1,
107	char jn,med_int lon2,	107	char jn,med_int lon2,
108	med_int numdt, med_int numit,	108	med_int numdt, med_int numit,
Lines 146-156 nmsdfcrw (med_int *fid, Link Here
146		146
147	#ifdef PPRO_NT	147	#ifdef PPRO_NT
148	med_int	148	med_int
149	MSDFNJN(med_int *fid,	149	MSDFNJN(med_idt *fid,
150	char maa, unsigned int bidon1, med_int lon1)	150	char maa, unsigned int bidon1, med_int lon1)
151	#else	151	#else
152	med_int	152	med_int
153	nmsdfnjn(med_int *fid,	153	nmsdfnjn(med_idt *fid,
154	char maa, med_int lon1)	154	char maa, med_int lon1)
155	#endif	155	#endif
156	{	156	{
Lines 177-183 nmsdfnjn(med_int *fid, Link Here
177		177
178	#ifdef PPRO_NT	178	#ifdef PPRO_NT
179	med_int	179	med_int
180	MSDFJNI(med_int *fid,	180	MSDFJNI(med_idt *fid,
181	char maa, unsigned int bidon1, med_int lon1,	181	char maa, unsigned int bidon1, med_int lon1,
182	med_int ind, char jname, unsigned int bidon2,	182	med_int ind, char jname, unsigned int bidon2,
183	char *desc,unsigned int bidon3,	183	char *desc,unsigned int bidon3,
Lines 185-191 MSDFJNI(med_int *fid, Link Here
185	med_int nstep, med_int ncor)	185	med_int nstep, med_int ncor)
186	#else	186	#else
187	med_int	187	med_int
188	nmsdfjni(med_int *fid,	188	nmsdfjni(med_idt *fid,
189	char maa, med_int lon1,	189	char maa, med_int lon1,
190	med_int ind, char jname,	190	med_int ind, char jname,
191	char desc, med_int dom,char *rname,	191	char desc, med_int dom,char *rname,
Lines 228-234 nmsdfjni(med_int *fid, Link Here
228		228
229	#ifdef PPRO_NT	229	#ifdef PPRO_NT
230	med_int	230	med_int
231	MSDFSZI(med_int *fid,	231	MSDFSZI(med_idt *fid,
232	char maa, unsigned int bidon1, med_int lon1,	232	char maa, unsigned int bidon1, med_int lon1,
233	char jname, unsigned int bidon2, med_int lon2,	233	char jname, unsigned int bidon2, med_int lon2,
234	med_int numdt, med_int numit, med_int *it,	234	med_int numdt, med_int numit, med_int *it,
Lines 237-243 MSDFSZI(med_int *fid, Link Here
237	med_int *ncor)	237	med_int *ncor)
238	#else	238	#else
239	med_int	239	med_int
240	nmsdfszi(med_int *fid,	240	nmsdfszi(med_idt *fid,
241	char maa, med_int lon1,	241	char maa, med_int lon1,
242	char jname, med_int lon2,	242	char jname, med_int lon2,
243	med_int numdt, med_int numit, med_int *it,	243	med_int numdt, med_int numit, med_int *it,
Lines 287-293 nmsdfszi(med_int *fid, Link Here
287		287
288	#ifdef PPRO_NT	288	#ifdef PPRO_NT
289	med_int	289	med_int
290	MSDFCSZ(med_int *fid,	290	MSDFCSZ(med_idt *fid,
291	char maa, unsigned int bidon1, med_int lon1,	291	char maa, unsigned int bidon1, med_int lon1,
292	char jname, unsigned int bidon2, med_int lon2,	292	char jname, unsigned int bidon2, med_int lon2,
293	med_int numdt, med_int numit,	293	med_int numdt, med_int numit,
Lines 296-302 MSDFCSZ(med_int *fid, Link Here
296	med_int *ncor)	296	med_int *ncor)
297	#else	297	#else
298	med_int	298	med_int
299	nmsdfcsz(med_int *fid,	299	nmsdfcsz(med_idt *fid,
300	char maa, med_int lon1,	300	char maa, med_int lon1,
301	char jname, med_int lon2,	301	char jname, med_int lon2,
302	med_int numdt, med_int numit,	302	med_int numdt, med_int numit,
Lines 341-347 nmsdfcsz(med_int *fid, Link Here
341		341
342	#ifdef PPRO_NT	342	#ifdef PPRO_NT
343	med_int	343	med_int
344	MSDFCRR(med_int *fid,	344	MSDFCRR(med_idt *fid,
345	char maa_local,unsigned int bidon1, med_int lon1,	345	char maa_local,unsigned int bidon1, med_int lon1,
346	char jn,unsigned int bidon2, med_int lon2,	346	char jn,unsigned int bidon2, med_int lon2,
347	med_int numdt, med_int numit,	347	med_int numdt, med_int numit,
Lines 350-356 MSDFCRR(med_int *fid, Link Here
350	med_int *corrtab)	350	med_int *corrtab)
351	#else	351	#else
352	med_int	352	med_int
353	nmsdfcrr (med_int *fid,	353	nmsdfcrr (med_idt *fid,
354	char maa_local,med_int lon1,	354	char maa_local,med_int lon1,
355	char jn,med_int lon2,	355	char jn,med_int lon2,
356	med_int numdt, med_int numit,	356	med_int numdt, med_int numit,
Lines 393-406 nmsdfcrr (med_int *fid, Link Here
393		393
394	#ifdef PPRO_NT	394	#ifdef PPRO_NT
395	med_int	395	med_int
396	MSDFCSI(med_int *fid,	396	MSDFCSI(med_idt *fid,
397	char maa, unsigned int bidon1, med_int lon1,	397	char maa, unsigned int bidon1, med_int lon1,
398	char jname, unsigned int bidon2, med_int lon2,	398	char jname, unsigned int bidon2, med_int lon2,
399	med_int ind, med_int numdt, med_int *numit,	399	med_int ind, med_int numdt, med_int *numit,
400	med_int *ncor)	400	med_int *ncor)
401	#else	401	#else
402	med_int	402	med_int
403	nmsdfcsi(med_int *fid,	403	nmsdfcsi(med_idt *fid,
404	char maa, med_int lon1,	404	char maa, med_int lon1,
405	char jname, med_int lon2,	405	char jname, med_int lon2,
406	med_int ind, med_int numdt, med_int *numit,	406	med_int ind, med_int numdt, med_int *numit,

Lines 45-56 From Fortran call of following C functio Link Here

(-)med-3.3.1_SRC/src/cfi/medparametercf.c (-10 / +10 lines)
45		45
46	#ifdef PPRO_NT	46	#ifdef PPRO_NT
47	med_int	47	med_int
48	MPRFCRE(med_int fid, char pname, unsigned int bidon1, med_int *lon1,	48	MPRFCRE(med_idt fid, char pname, unsigned int bidon1, med_int *lon1,
49	med_int type, char desc, unsigned int bidon2, med_int *lon2,	49	med_int type, char desc, unsigned int bidon2, med_int *lon2,
50	char dtunit, unsigned int bidon3, med_int lon3)	50	char dtunit, unsigned int bidon3, med_int lon3)
51	#else	51	#else
52	med_int	52	med_int
53	nmprfcre(med_int fid, char pname, med_int *lon1,	53	nmprfcre(med_idt fid, char pname, med_int *lon1,
54	med_int type, char desc, med_int *lon2,	54	med_int type, char desc, med_int *lon2,
55	char dtunit, med_int lon3)	55	char dtunit, med_int lon3)
56	#endif	56	#endif
Lines 209-218 nmprfivr(med_idt fid, char name, med_i Link Here
209		209
210	#ifdef PPRO_NT	210	#ifdef PPRO_NT
211	med_int	211	med_int
212	MPRFNPR(med_int *fid)	212	MPRFNPR(med_idt *fid)
213	#else	213	#else
214	med_int	214	med_int
215	nmprfnpr(med_int *fid)	215	nmprfnpr(med_idt *fid)
216	#endif	216	#endif
217	{	217	{
218	med_int _ret;	218	med_int _ret;
Lines 226-237 nmprfnpr(med_int *fid) Link Here
226		226
227	#ifdef PPRO_NT	227	#ifdef PPRO_NT
228	med_int	228	med_int
229	MPRFPRI(med_int fid, med_int it, char *name, unsigned int bidon1,	229	MPRFPRI(med_idt fid, med_int it, char *name, unsigned int bidon1,
230	med_int type, char desc, unsigned int bidon2,	230	med_int type, char desc, unsigned int bidon2,
231	char dtunit, unsigned int bidon3, med_int nstep)	231	char dtunit, unsigned int bidon3, med_int nstep)
232	#else	232	#else
233	med_int	233	med_int
234	nmprfpri(med_int fid, med_int it, char *name,	234	nmprfpri(med_idt fid, med_int it, char *name,
235	med_int type, char desc,	235	med_int type, char desc,
236	char dtunit, med_int nstep)	236	char dtunit, med_int nstep)
237	#endif	237	#endif
Lines 263-275 nmprfpri(med_int fid, med_int it, char Link Here
263		263
264	#ifdef PPRO_NT	264	#ifdef PPRO_NT
265	med_int	265	med_int
266	MPRFPIN(med_int fid, char name, unsigned int bidon1, med_int *namelen,	266	MPRFPIN(med_idt fid, char name, unsigned int bidon1, med_int *namelen,
267	med_int type, char desc, unsigned int bidon2,	267	med_int type, char desc, unsigned int bidon2,
268	char *dtunit, unsigned int bidon3,	268	char *dtunit, unsigned int bidon3,
269	med_int *nstep)	269	med_int *nstep)
270	#else	270	#else
271	med_int	271	med_int
272	nmprfpin(med_int fid, char name, med_int *namelen,	272	nmprfpin(med_idt fid, char name, med_int *namelen,
273	med_int type, char desc,	273	med_int type, char desc,
274	char dtunit, med_int nstep)	274	char dtunit, med_int nstep)
275	#endif	275	#endif
Lines 306-316 nmprfpin(med_int fid, char name, med_i Link Here
306		306
307	#ifdef PPRO_NT	307	#ifdef PPRO_NT
308	med_int	308	med_int
309	MPRFCSI(med_int fid, char name, unsigned int bidon1, med_int *namelen,	309	MPRFCSI(med_idt fid, char name, unsigned int bidon1, med_int *namelen,
310	med_int it, med_int numdt, med_int numit, med_float dt)	310	med_int it, med_int numdt, med_int numit, med_float dt)
311	#else	311	#else
312	med_int	312	med_int
313	nmprfcsi(med_int fid, char name, med_int *namelen,	313	nmprfcsi(med_idt fid, char name, med_int *namelen,
314	med_int it, med_int numdt, med_int numit, med_float dt)	314	med_int it, med_int numdt, med_int numit, med_float dt)
315	#endif	315	#endif
316	{	316	{

Lines 67-79 From Fortran call of following C functio Link Here

(-)med-3.3.1_SRC/src/cfi/medstructelementcf.c (-40 / +40 lines)
67		67
68	#ifdef PPRO_NT	68	#ifdef PPRO_NT
69	med_int	69	med_int
70	MSEFCRE(med_int fid, char mname, unsigned int bidon, med_int *mnamelen,	70	MSEFCRE(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen,
71	med_int * mdim,	71	med_int * mdim,
72	char smname, unsigned int bidon2, med_int smnamelen,	72	char smname, unsigned int bidon2, med_int smnamelen,
73	med_int setype, med_int sgtype)	73	med_int setype, med_int sgtype)
74	#else	74	#else
75	med_int	75	med_int
76	nmsefcre(med_int *fid,	76	nmsefcre(med_idt *fid,
77	char mname, med_int mnamelen,	77	char mname, med_int mnamelen,
78	med_int * mdim,	78	med_int * mdim,
79	char smname, med_int smnamelen,	79	char smname, med_int smnamelen,
Lines 111-120 nmsefcre(med_int *fid, Link Here
111		111
112	#ifdef PPRO_NT	112	#ifdef PPRO_NT
113	med_int	113	med_int
114	MSEFNSE(med_int *fid)	114	MSEFNSE(med_idt *fid)
115	#else	115	#else
116	med_int	116	med_int
117	nmsefnse (med_int *fid)	117	nmsefnse (med_idt *fid)
118	#endif	118	#endif
119	{	119	{
120	med_int _ret;	120	med_int _ret;
Lines 127-133 nmsefnse (med_int *fid) Link Here
127		127
128	#ifdef PPRO_NT	128	#ifdef PPRO_NT
129	med_int	129	med_int
130	MSEFSEI(med_int fid, med_int it,	130	MSEFSEI(med_idt fid, med_int it,
131	char *mname, unsigned int bidon1,	131	char *mname, unsigned int bidon1,
132	med_int mgtype, med_int mdim,	132	med_int mgtype, med_int mdim,
133	char *smname, unsigned int bidon2,	133	char *smname, unsigned int bidon2,
Lines 136-142 MSEFSEI(med_int fid, med_int it, Link Here
136	med_int *nvatt)	136	med_int *nvatt)
137	#else	137	#else
138	med_int	138	med_int
139	nmsefsei(med_int fid, med_int it,	139	nmsefsei(med_idt fid, med_int it,
140	char *mname,	140	char *mname,
141	med_int mgtype, med_int mdim,	141	med_int mgtype, med_int mdim,
142	char *smname,	142	char *smname,
Lines 181-187 nmsefsei(med_int fid, med_int it, Link Here
181		181
182	#ifdef PPRO_NT	182	#ifdef PPRO_NT
183	med_int	183	med_int
184	MSEFSIN(med_int *fid,	184	MSEFSIN(med_idt *fid,
185	char mname, unsigned int bidon1, med_int mnamelen,	185	char mname, unsigned int bidon1, med_int mnamelen,
186	med_int mgtype, med_int mdim,	186	med_int mgtype, med_int mdim,
187	char *smname, unsigned int bidon2,	187	char *smname, unsigned int bidon2,
Lines 190-196 MSEFSIN(med_int *fid, Link Here
190	med_int *nvatt)	190	med_int *nvatt)
191	#else	191	#else
192	med_int	192	med_int
193	nmsefsin(med_int *fid,	193	nmsefsin(med_idt *fid,
194	char mname, med_int mnamelen,	194	char mname, med_int mnamelen,
195	med_int mgtype, med_int mdim,	195	med_int mgtype, med_int mdim,
196	char *smname,	196	char *smname,
Lines 239-248 nmsefsin(med_int *fid, Link Here
239		239
240	#ifdef PPRO_NT	240	#ifdef PPRO_NT
241	med_int	241	med_int
242	MSEFSEN(med_int fid, med_int mgtype, char *mname, unsigned int bidon)	242	MSEFSEN(med_idt fid, med_int mgtype, char *mname, unsigned int bidon)
243	#else	243	#else
244	med_int	244	med_int
245	nmsefsen(med_int fid, med_int mgtype, char *mname)	245	nmsefsen(med_idt fid, med_int mgtype, char *mname)
246	#endif	246	#endif
247	{	247	{
248	med_int _ret;	248	med_int _ret;
Lines 263-272 nmsefsen(med_int fid, med_int mgtype, Link Here
263		263
264	#ifdef PPRO_NT	264	#ifdef PPRO_NT
265	med_int	265	med_int
266	MSEFSGT(med_int fid, char mname, unsigned int bidon,med_int *mnamelen)	266	MSEFSGT(med_idt fid, char mname, unsigned int bidon,med_int *mnamelen)
267	#else	267	#else
268	med_int	268	med_int
269	nmsefsgt(med_int fid, char mname, med_int *mnamelen)	269	nmsefsgt(med_idt fid, char mname, med_int *mnamelen)
270	#endif	270	#endif
271	{	271	{
272	med_int _ret;	272	med_int _ret;
Lines 288-299 nmsefsgt(med_int fid, char mname, med_ Link Here
288		288
289	#ifdef PPRO_NT	289	#ifdef PPRO_NT
290	med_int	290	med_int
291	MSEFVAC(med_int fid, char mname, unsigned int bidon, med_int *mnamelen,	291	MSEFVAC(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen,
292	char aname, unsigned int bidon2, med_int anamelen,	292	char aname, unsigned int bidon2, med_int anamelen,
293	med_int atype, med_int anc)	293	med_int atype, med_int anc)
294	#else	294	#else
295	med_int	295	med_int
296	nmsefvac(med_int fid, char mname, med_int *mnamelen,	296	nmsefvac(med_idt fid, char mname, med_int *mnamelen,
297	char aname, med_int anamelen,	297	char aname, med_int anamelen,
298	med_int atype, med_int anc)	298	med_int atype, med_int anc)
299	#endif	299	#endif
Lines 325-336 nmsefvac(med_int fid, char mname, med_ Link Here
325		325
326	#ifdef PPRO_NT	326	#ifdef PPRO_NT
327	med_int	327	med_int
328	MSEFVNI(med_int fid, char mname, unsigned int bidon, med_int *mnamelen,	328	MSEFVNI(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen,
329	char aname, unsigned int bidon2, med_int anamelen,	329	char aname, unsigned int bidon2, med_int anamelen,
330	med_int atype, med_int anc)	330	med_int atype, med_int anc)
331	#else	331	#else
332	med_int	332	med_int
333	nmsefvni(med_int fid, char mname, med_int *mnamelen,	333	nmsefvni(med_idt fid, char mname, med_int *mnamelen,
334	char aname, med_int anamelen,	334	char aname, med_int anamelen,
335	med_int atype, med_int anc)	335	med_int atype, med_int anc)
336	#endif	336	#endif
Lines 364-375 nmsefvni(med_int fid, char mname, med_ Link Here
364		364
365	#ifdef PPRO_NT	365	#ifdef PPRO_NT
366	med_int	366	med_int
367	MSEFVAI(med_int fid, char mname, unsigned int bidon, med_int *mnamelen,	367	MSEFVAI(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen,
368	med_int it, char aname, unsigned int bidon2,	368	med_int it, char aname, unsigned int bidon2,
369	med_int atype, med_int anc)	369	med_int atype, med_int anc)
370	#else	370	#else
371	med_int	371	med_int
372	nmsefvai(med_int fid, char mname, med_int mnamelen, med_int it,	372	nmsefvai(med_idt fid, char mname, med_int mnamelen, med_int it,
373	char aname, med_int atype, med_int *anc)	373	char aname, med_int atype, med_int *anc)
374	#endif	374	#endif
375	{	375	{
Lines 417-429 nmsefasz(med_int *atype) Link Here
417		417
418	#ifdef PPRO_NT	418	#ifdef PPRO_NT
419	med_int	419	med_int
420	MSEFRAW(med_int fid, char mname, unsigned int bidon, med_int *mnamelen,	420	MSEFRAW(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen,
421	char aname, unsigned int bidon2, med_int anamelen,	421	char aname, unsigned int bidon2, med_int anamelen,
422	med_int atype, med_int anc,	422	med_int atype, med_int anc,
423	med_int setype, med_float val)	423	med_int setype, med_float val)
424	#else	424	#else
425	med_int	425	med_int
426	nmsefraw(med_int fid, char mname, med_int *mnamelen,	426	nmsefraw(med_idt fid, char mname, med_int *mnamelen,
427	char aname, med_int anamelen,	427	char aname, med_int anamelen,
428	med_int atype, med_int anc,	428	med_int atype, med_int anc,
429	med_int setype, med_float val)	429	med_int setype, med_float val)
Lines 459-471 nmsefraw(med_int fid, char mname, med_ Link Here
459		459
460	#ifdef PPRO_NT	460	#ifdef PPRO_NT
461	med_int	461	med_int
462	MSEFIAW(med_int fid, char mname, unsigned int bidon, med_int *mnamelen,	462	MSEFIAW(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen,
463	char aname, unsigned int bidon2, med_int anamelen,	463	char aname, unsigned int bidon2, med_int anamelen,
464	med_int atype, med_int anc,	464	med_int atype, med_int anc,
465	med_int setype, med_int val)	465	med_int setype, med_int val)
466	#else	466	#else
467	med_int	467	med_int
468	nmsefiaw(med_int fid, char mname, med_int *mnamelen,	468	nmsefiaw(med_idt fid, char mname, med_int *mnamelen,
469	char aname, med_int anamelen,	469	char aname, med_int anamelen,
470	med_int atype, med_int anc,	470	med_int atype, med_int anc,
471	med_int setype, med_int val)	471	med_int setype, med_int val)
Lines 502-514 nmsefiaw(med_int fid, char mname, med_ Link Here
502		502
503	#ifdef PPRO_NT	503	#ifdef PPRO_NT
504	med_int	504	med_int
505	MSEFSAW(med_int fid, char mname, unsigned int bidon, med_int *mnamelen,	505	MSEFSAW(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen,
506	char aname, unsigned int bidon2, med_int anamelen,	506	char aname, unsigned int bidon2, med_int anamelen,
507	med_int atype, med_int anc, med_int *setype,	507	med_int atype, med_int anc, med_int *setype,
508	char val, unsigned int bidon3, med_int vallen)	508	char val, unsigned int bidon3, med_int vallen)
509	#else	509	#else
510	med_int	510	med_int
511	nmsefsaw(med_int fid, char mname, med_int *mnamelen,	511	nmsefsaw(med_idt fid, char mname, med_int *mnamelen,
512	char aname, med_int anamelen,	512	char aname, med_int anamelen,
513	med_int atype, med_int anc, med_int *setype,	513	med_int atype, med_int anc, med_int *setype,
514	char val, med_int vallen)	514	char val, med_int vallen)
Lines 594-600 nmsefsaw(med_int fid, char mname, med_ Link Here
594		594
595	#ifdef PPRO_NT	595	#ifdef PPRO_NT
596	med_int	596	med_int
597	MSEFRPW(med_int fid, char mname, unsigned int bidon, med_int *mnamelen,	597	MSEFRPW(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen,
598	char aname, unsigned int bidon2, med_int anamelen,	598	char aname, unsigned int bidon2, med_int anamelen,
599	med_int atype, med_int anc,	599	med_int atype, med_int anc,
600	med_int *setype,	600	med_int *setype,
Lines 602-608 MSEFRPW(med_int fid, char mname, unsig Link Here
602	med_float *val)	602	med_float *val)
603	#else	603	#else
604	med_int	604	med_int
605	nmsefrpw(med_int fid, char mname, med_int *mnamelen,	605	nmsefrpw(med_idt fid, char mname, med_int *mnamelen,
606	char aname, med_int anamelen,	606	char aname, med_int anamelen,
607	med_int atype, med_int anc,	607	med_int atype, med_int anc,
608	med_int *setype,	608	med_int *setype,
Lines 648-654 nmsefrpw(med_int fid, char mname, med_ Link Here
648		648
649	#ifdef PPRO_NT	649	#ifdef PPRO_NT
650	med_int	650	med_int
651	MSEFIPW(med_int fid, char mname, unsigned int bidon, med_int *mnamelen,	651	MSEFIPW(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen,
652	char aname, unsigned int bidon2, med_int anamelen,	652	char aname, unsigned int bidon2, med_int anamelen,
653	med_int atype, med_int anc,	653	med_int atype, med_int anc,
654	med_int *setype,	654	med_int *setype,
Lines 656-662 MSEFIPW(med_int fid, char mname, unsig Link Here
656	med_int *val)	656	med_int *val)
657	#else	657	#else
658	med_int	658	med_int
659	nmsefipw(med_int fid, char mname, med_int *mnamelen,	659	nmsefipw(med_idt fid, char mname, med_int *mnamelen,
660	char aname, med_int anamelen,	660	char aname, med_int anamelen,
661	med_int atype, med_int anc,	661	med_int atype, med_int anc,
662	med_int *setype,	662	med_int *setype,
Lines 701-714 nmsefipw(med_int fid, char mname, med_ Link Here
701		701
702	#ifdef PPRO_NT	702	#ifdef PPRO_NT
703	med_int	703	med_int
704	MSEFSPW(med_int fid, char mname, unsigned int bidon, med_int *mnamelen,	704	MSEFSPW(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen,
705	char aname, unsigned int bidon2, med_int anamelen,	705	char aname, unsigned int bidon2, med_int anamelen,
706	med_int atype, med_int anc, med_int *setype,	706	med_int atype, med_int anc, med_int *setype,
707	char pname, unsigned int bidon3, med_int pnamelen,	707	char pname, unsigned int bidon3, med_int pnamelen,
708	char val, unsigned int bidon4, med_int vallen)	708	char val, unsigned int bidon4, med_int vallen)
709	#else	709	#else
710	med_int	710	med_int
711	nmsefspw(med_int fid, char mname, med_int *mnamelen,	711	nmsefspw(med_idt fid, char mname, med_int *mnamelen,
712	char aname, med_int anamelen,	712	char aname, med_int anamelen,
713	med_int atype, med_int anc, med_int *setype,	713	med_int atype, med_int anc, med_int *setype,
714	char pname, med_int pnamelen,	714	char pname, med_int pnamelen,
Lines 813-825 nmsefspw(med_int fid, char mname, med_ Link Here
813		813
814	#ifdef PPRO_NT	814	#ifdef PPRO_NT
815	med_int	815	med_int
816	MSEFCNI(med_int fid, char mname, unsigned int bidon, med_int *mnamelen,	816	MSEFCNI(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen,
817	char aname, unsigned int bidon2, med_int anamelen,	817	char aname, unsigned int bidon2, med_int anamelen,
818	med_int atype, med_int anc,	818	med_int atype, med_int anc,
819	med_int setype, char pname, unsigned int bidon3, med_int *psize)	819	med_int setype, char pname, unsigned int bidon3, med_int *psize)
820	#else	820	#else
821	med_int	821	med_int
822	nmsefcni(med_int fid, char mname, med_int *mnamelen,	822	nmsefcni(med_idt fid, char mname, med_int *mnamelen,
823	char aname, med_int anamelen,	823	char aname, med_int anamelen,
824	med_int atype, med_int anc,	824	med_int atype, med_int anc,
825	med_int setype, char pname, med_int *psize)	825	med_int setype, char pname, med_int *psize)
Lines 861-874 nmsefcni(med_int fid, char mname, med_ Link Here
861		861
862	#ifdef PPRO_NT	862	#ifdef PPRO_NT
863	med_int	863	med_int
864	MSEFCAI(med_int fid, char mname, unsigned int bidon, med_int *mnamelen,	864	MSEFCAI(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen,
865	med_int *it,	865	med_int *it,
866	char *aname, unsigned int bidon2,	866	char *aname, unsigned int bidon2,
867	med_int atype, med_int anc,	867	med_int atype, med_int anc,
868	med_int setype, char pname, unsigned int bidon3 ,med_int *psize)	868	med_int setype, char pname, unsigned int bidon3 ,med_int *psize)
869	#else	869	#else
870	med_int	870	med_int
871	nmsefcai(med_int fid, char mname, med_int *mnamelen,	871	nmsefcai(med_idt fid, char mname, med_int *mnamelen,
872	med_int *it,	872	med_int *it,
873	char *aname,	873	char *aname,
874	med_int atype, med_int anc,	874	med_int atype, med_int anc,
Lines 910-921 nmsefcai(med_int fid, char mname, med_ Link Here
910		910
911	#ifdef PPRO_NT	911	#ifdef PPRO_NT
912	med_int	912	med_int
913	MSEFRAR(med_int fid, char mname, unsigned int bidon, med_int *mnamelen,	913	MSEFRAR(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen,
914	char aname, unsigned int bidon2, med_int anamelen,	914	char aname, unsigned int bidon2, med_int anamelen,
915	med_float *val)	915	med_float *val)
916	#else	916	#else
917	med_int	917	med_int
918	nmsefrar(med_int fid, char mname, med_int *mnamelen,	918	nmsefrar(med_idt fid, char mname, med_int *mnamelen,
919	char aname, med_int anamelen,	919	char aname, med_int anamelen,
920	med_float *val)	920	med_float *val)
921	#endif	921	#endif
Lines 945-956 nmsefrar(med_int fid, char mname, med_ Link Here
945		945
946	#ifdef PPRO_NT	946	#ifdef PPRO_NT
947	med_int	947	med_int
948	MSEFIAR(med_int fid, char mname, unsigned int bidon, med_int *mnamelen,	948	MSEFIAR(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen,
949	char aname, unsigned int bidon2, med_int anamelen,	949	char aname, unsigned int bidon2, med_int anamelen,
950	med_int *val)	950	med_int *val)
951	#else	951	#else
952	med_int	952	med_int
953	nmsefiar(med_int fid, char mname, med_int *mnamelen,	953	nmsefiar(med_idt fid, char mname, med_int *mnamelen,
954	char aname, med_int anamelen,	954	char aname, med_int anamelen,
955	med_int *val)	955	med_int *val)
956	#endif	956	#endif
Lines 981-992 nmsefiar(med_int fid, char mname, med_ Link Here
981		981
982	#ifdef PPRO_NT	982	#ifdef PPRO_NT
983	med_int	983	med_int
984	MSEFSAR(med_int fid, char mname, unsigned int bidon, med_int *mnamelen,	984	MSEFSAR(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen,
985	char aname, unsigned int bidon2, med_int anamelen,	985	char aname, unsigned int bidon2, med_int anamelen,
986	char *val, unsigned int bidon3)	986	char *val, unsigned int bidon3)
987	#else	987	#else
988	med_int	988	med_int
989	nmsefsar(med_int fid, char mname, med_int *mnamelen,	989	nmsefsar(med_idt fid, char mname, med_int *mnamelen,
990	char aname, med_int anamelen,	990	char aname, med_int anamelen,
991	char *val)	991	char *val)
992	#endif	992	#endif

Lines 41-54 From Fortran call of following C functio Link Here

(-)med-3.3.1_SRC/src/cfi/medsupportcf.c (-12 / +12 lines)
41		41
42	#ifdef PPRO_NT	42	#ifdef PPRO_NT
43	med_int	43	med_int
44	MSMFCRE(med_int fid, char mname, unsigned int bidon, med_int *mnamelen,	44	MSMFCRE(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen,
45	med_int * sdim, med_int * mdim,	45	med_int * sdim, med_int * mdim,
46	char desc, unsigned int bidon2, med_int desclen,	46	char desc, unsigned int bidon2, med_int desclen,
47	med_int atype, char aname, unsigned int bidon3, med_int *anamelen,	47	med_int atype, char aname, unsigned int bidon3, med_int *anamelen,
48	char aunit, unsigned int bidon4, med_int aunitlen)	48	char aunit, unsigned int bidon4, med_int aunitlen)
49	#else	49	#else
50	med_int	50	med_int
51	nmsmfcre(med_int fid, char mname, med_int *mnamelen,	51	nmsmfcre(med_idt fid, char mname, med_int *mnamelen,
52	med_int * sdim, med_int * mdim,	52	med_int * sdim, med_int * mdim,
53	char desc, med_int desclen,	53	char desc, med_int desclen,
54	med_int atype, char aname, med_int *anamelen,	54	med_int atype, char aname, med_int *anamelen,
Lines 92-101 nmsmfcre(med_int fid, char mname, med_ Link Here
92		92
93	#ifdef PPRO_NT	93	#ifdef PPRO_NT
94	med_int	94	med_int
95	MSMFNSM(med_int *fid)	95	MSMFNSM(med_idt *fid)
96	#else	96	#else
97	med_int	97	med_int
98	nmsmfnsm(med_int *fid)	98	nmsmfnsm(med_idt *fid)
99	#endif	99	#endif
100	{	100	{
101	med_int _ret;	101	med_int _ret;
Lines 109-115 nmsmfnsm(med_int *fid) Link Here
109		109
110	#ifdef PPRO_NT	110	#ifdef PPRO_NT
111	med_int	111	med_int
112	MSMFSNI(med_int fid, charmname, unsigned int bidon, med_int *mnamelen,	112	MSMFSNI(med_idt fid, charmname, unsigned int bidon, med_int *mnamelen,
113	med_int * sdim, med_int * mdim,	113	med_int * sdim, med_int * mdim,
114	char *desc, unsigned int bidon2,	114	char *desc, unsigned int bidon2,
115	med_int *atype,	115	med_int *atype,
Lines 117-123 MSMFSNI(med_int fid, charmname, unsign Link Here
117	char *aunit, unsigned int bidon5)	117	char *aunit, unsigned int bidon5)
118	#else	118	#else
119	med_int	119	med_int
120	nmsmfsni(med_int fid, char mname, med_int *mnamelen,	120	nmsmfsni(med_idt fid, char mname, med_int *mnamelen,
121	med_int * sdim, med_int * mdim,	121	med_int * sdim, med_int * mdim,
122	char desc,med_int atype, char aname, char aunit)	122	char desc,med_int atype, char aname, char aunit)
123	#endif	123	#endif
Lines 169-175 nmsmfsni(med_int fid, char mname, med_ Link Here
169		169
170	#ifdef PPRO_NT	170	#ifdef PPRO_NT
171	med_int	171	med_int
172	MSMFSMI(med_int fid, med_int it, char*mname, unsigned int bidon,	172	MSMFSMI(med_idt fid, med_int it, char*mname, unsigned int bidon,
173	med_int * sdim, med_int * mdim,	173	med_int * sdim, med_int * mdim,
174	char *desc, unsigned int bidon2,	174	char *desc, unsigned int bidon2,
175	med_int *atype,	175	med_int *atype,
Lines 177-183 MSMFSMI(med_int fid, med_int it, char* Link Here
177	char *aunit, unsigned int bidon5)	177	char *aunit, unsigned int bidon5)
178	#else	178	#else
179	med_int	179	med_int
180	nmsmfsmi(med_int fid, med_int it, char* mname,	180	nmsmfsmi(med_idt fid, med_int it, char* mname,
181	med_int * sdim, med_int * mdim,	181	med_int * sdim, med_int * mdim,
182	char desc,med_int atype, char aname, char aunit)	182	char desc,med_int atype, char aname, char aunit)
183	#endif	183	#endif
Lines 227-236 nmsmfsmi(med_int fid, med_int it, char Link Here
227		227
228	#ifdef PPRO_NT	228	#ifdef PPRO_NT
229	med_int	229	med_int
230	MSMFNAN(med_int fid, char mname, unsigned int bidon, med_int *mnamelen)	230	MSMFNAN(med_idt fid, char mname, unsigned int bidon, med_int *mnamelen)
231	#else	231	#else
232	med_int	232	med_int
233	nmsmfnan(med_int fid, char mname, med_int *mnamelen)	233	nmsmfnan(med_idt fid, char mname, med_int *mnamelen)
234	#endif	234	#endif
235	{	235	{
236	med_int _ret;	236	med_int _ret;
Lines 251-260 nmsmfnan(med_int fid, char mname, med_ Link Here
251		251
252	#ifdef PPRO_NT	252	#ifdef PPRO_NT
253	med_int	253	med_int
254	MSMFNAX(med_int fid, med_int it)	254	MSMFNAX(med_idt fid, med_int it)
255	#else	255	#else
256	med_int	256	med_int
257	nmsmfnax(med_int fid, med_int it)	257	nmsmfnax(med_idt fid, med_int it)
258	#endif	258	#endif
259	{	259	{
260	med_int _ret;	260	med_int _ret;

Lines 72-81 nmlnfliw(med_idt fid, char mname, med_ Link Here

(-)med-3.3.1_SRC/src/cfi/medlinkcf.c (-6 / +6 lines)
72		72
73	#ifdef PPRO_NT	73	#ifdef PPRO_NT
74	med_int	74	med_int
75	MLNFNLN(med_int *fid)	75	MLNFNLN(med_idt *fid)
76	#else	76	#else
77	med_int	77	med_int
78	nmlnfnln(med_int *fid)	78	nmlnfnln(med_idt *fid)
79	#endif	79	#endif
80	{	80	{
81	med_int _ret;	81	med_int _ret;
Lines 89-99 nmlnfnln(med_int *fid) Link Here
89		89
90	#ifdef PPRO_NT	90	#ifdef PPRO_NT
91	med_int	91	med_int
92	MLNFLNI(med_int fid, med_int it, char*mname, unsigned int bidon1,	92	MLNFLNI(med_idt fid, med_int it, char*mname, unsigned int bidon1,
93	med_int *lsize)	93	med_int *lsize)
94	#else	94	#else
95	med_int	95	med_int
96	nmlnflni(med_int fid, med_int it, charmname, med_int lsize)	96	nmlnflni(med_idt fid, med_int it, charmname, med_int lsize)
97	#endif	97	#endif
98	{	98	{
99	med_int _ret;	99	med_int _ret;
Lines 111-120 nmlnflni(med_int fid, med_int it, char Link Here
111		111
112	#ifdef PPRO_NT	112	#ifdef PPRO_NT
113	med_int	113	med_int
114	MLNFLAI(med_int fid, charmname, unsigned int bidon1, med_int mnamelen, med_int lsize)	114	MLNFLAI(med_idt fid, charmname, unsigned int bidon1, med_int mnamelen, med_int lsize)
115	#else	115	#else
116	med_int	116	med_int
117	nmlnflai(med_int fid, charmname, med_int mnamelen, med_int lsize)	117	nmlnflai(med_idt fid, charmname, med_int mnamelen, med_int lsize)
118	#endif	118	#endif
119	{	119	{
120	med_int _ret;	120	med_int _ret;