medfile.f

Aller à la documentation de ce fichier.

C*  This file is part of MED.
C*
C*  COPYRIGHT (C) 1999 - 2025  EDF R&D, CEA/DEN
C*  MED is free software: you can redistribute it and/or modify
C*  it under the terms of the GNU Lesser General Public License as published by
C*  the Free Software Foundation, either version 3 of the License, or
C*  (at your option) any later version.
C*
C*  MED is distributed in the hope that it will be useful,
C*  but WITHOUT ANY WARRANTY; without even the implied warranty of
C*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
C*  GNU Lesser General Public License for more details.
C*
C*  You should have received a copy of the GNU Lesser General Public License
C*  along with MED.  If not, see <http://www.gnu.org/licenses/>.
C*
 
 
      subroutine mfivop(fid, name, access, major, minor, rel, cret)
cDEC$ ATTRIBUTES DLLEXPORT :: mfivop
c
      implicit none
      save
      character *(*) name
      integer*8 fid
      integer   cret
      integer access
      integer major, minor, rel
      integer*8 mfifvop
c
      fid = mfifvop(name, access, major, minor, rel, len(name))
      if (fid.lt.0) then
         cret = fid
      else
         cret = 0
      endif
c      
      return
      end
 
      subroutine mfiope(fid, name, access, cret)
cDEC$ ATTRIBUTES DLLEXPORT :: mfiope
c
      implicit none
      save
      character *(*) name
      integer*8 fid
      integer   cret
      integer access
      integer*8 mfifope
c
      fid = mfifope(name, access, len(name))
      if (fid.lt.0) then
         cret = fid
      else
         cret = 0
      endif
c      
      return
      end
 
 
 
      subroutine mfinam(fid, name, cret)
cDEC$ ATTRIBUTES DLLEXPORT :: mfinam
c
      implicit none
      save
      character *(*) name
      integer*8 fid
      integer namesize,cret
      integer mfifnam
c
      cret = mfifnam(fid, name, len(name))
c      
      return
      end
 
 
 
      subroutine mficlo(fid, cret)
cDEC$ ATTRIBUTES DLLEXPORT :: mficlo
c
      implicit none
      save
c
      integer*8 fid
      integer cret
      integer mfifclo
c
      cret = mfifclo(fid)
c      
      return
      end
 
 
 
      subroutine mficow(fid,cmt,cret)
cDEC$ ATTRIBUTES DLLEXPORT :: mficow
c
      implicit none
      save
c
      integer*8 fid
      integer cret
      character*(*) cmt
      integer mfifcow
c
      cret = mfifcow(fid,cmt,len(cmt),cret)
c      
      return
      end
 
 
      subroutine mficor(fid,cmt,cret)
cDEC$ ATTRIBUTES DLLEXPORT :: mficor 
c
      implicit none
      save
c
      integer*8 fid
      integer cret
      character*(*) cmt
      integer mfifcor
c
      cret = mfifcor(fid,cmt,len(cmt),cret)
c      
      return
      end
 
 
 
      subroutine  mfinvr(fid,major,minor,rel,cret)
cDEC$ ATTRIBUTES DLLEXPORT :: mfinvr
c
      implicit none
      save
c
      integer*8 fid
      integer major, minor,rel
      integer cret
      integer mfifnvr
c
      cret = mfifnvr(fid,major,minor,rel)
c      
      return
      end
 
 
      subroutine mfisvr(fid,version,cret)
cDEC$ ATTRIBUTES DLLEXPORT :: mfisvr
c
      implicit none
      save
c
      character*(*) version
      integer*8 fid
      integer cret
      integer mfifsvr
c
      cret =  mfifsvr(fid,version,len(version))
c      
      return
      end
 
c
c
c
      subroutine mficom(fname,hdfok,medok,cret)
cDEC$ ATTRIBUTES DLLEXPORT :: mficom
c
      implicit none
      save
c
      integer cret
      character *(*) fname
      integer hdfok,medok
      integer mfifcom
c     
      cret =  mfifcom(fname,len(fname),hdfok,medok)
c
      return
      end
 
 
      subroutine mfiomn(fid, fname, class, mid, cret)
cDEC$ ATTRIBUTES DLLEXPORT :: mfiomn
c
      implicit none
      save
c
      character *(*) fname
      integer*8 fid, mid
      integer class, cret
      integer*8 mfifomn
c
      mid =  mfifomn(fid, fname, len(fname), class)
      if (mid.lt.0) then
         cret=mid
      else
         cret=0
      endif
c      
      return
      end
 
c
c
c
      subroutine mfioun(fid, mid, class, cret)
cDEC$ ATTRIBUTES DLLEXPORT :: mfioun
c
      implicit none
      save
c
      integer*8 mid, fid
      integer class, cret
      integer mfifoun
c
      cret = mfifoun(fid, mid, class)
c      
      return
      end
 
      
      subroutine mfioex(fid, class, oname, oexist, cret)
cDEC$ ATTRIBUTES DLLEXPORT :: mfioex
c
      implicit none
      save
c
      character *(*) oname
      integer*8 fid
      integer  class, oexist, cret
      integer mfifoex
c
      cret = mfifoex(fid, class, oname, len(oname), oexist)
c      
      return
      end
 
      subroutine mfiodx(fid, class, oname, dexist, cret)
cDEC$ ATTRIBUTES DLLEXPORT :: mfiodx
c
      implicit none
      save
c
      character *(*) oname
      integer*8 fid
      integer  class, dexist, cret
      integer mfifodx
c
      cret = mfifodx(fid, class, oname, len(oname), dexist)
c      
      return
      end
 
      subroutine mfiodw(fid, class, oname, desc, cret)
cDEC$ ATTRIBUTES DLLEXPORT :: mfiodw
c
      implicit none
      save
c
      integer*8 fid
      integer  class, cret
      character*(*) oname
      character*(*) desc
      integer mfifodw
c
      cret = mfifodw(fid, class, oname, len(oname), desc, len(desc))
c      
      return
      end
 
      subroutine mfiodr(fid, class, oname, desc, cret)
cDEC$ ATTRIBUTES DLLEXPORT :: mfiodr
c
      implicit none
      save
c
      integer*8 fid
      integer  class, cret
      character*(*) oname
      character*(*) desc
      integer mfifodr
c
      cret = mfifodr(fid, class, oname, len(oname), desc)
c      
      return
      end
 
 
      subroutine mfiexi(fname, access, fexist, accok, cret)
cDEC$ ATTRIBUTES DLLEXPORT :: mfiexi
c
      implicit none
      save
c
      character *(*) fname
      integer access, fexist, accok, cret
      integer mfifexi
c
      cret = mfifexi(fname, len(fname), access, fexist, accok)
c      
      return
      end