medfile.f

Aller à la documentation de ce fichier.
00001 C*  This file is part of MED.
00002 C*
00003 C*  COPYRIGHT (C) 1999 - 2015  EDF R&D, CEA/DEN
00004 C*  MED is free software: you can redistribute it and/or modify
00005 C*  it under the terms of the GNU Lesser General Public License as published by
00006 C*  the Free Software Foundation, either version 3 of the License, or
00007 C*  (at your option) any later version.
00008 C*
00009 C*  MED is distributed in the hope that it will be useful,
00010 C*  but WITHOUT ANY WARRANTY; without even the implied warranty of
00011 C*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00012 C*  GNU Lesser General Public License for more details.
00013 C*
00014 C*  You should have received a copy of the GNU Lesser General Public License
00015 C*  along with MED.  If not, see <http://www.gnu.org/licenses/>.
00016 C*
00017 
00018 
00019       subroutine mfiope(fid, name, access, cret)
00020 c     DEC$ ATTRIBUTES DLLEXPORT :: mfiope
00021 c
00022       implicit none
00023       save
00024       character *(*) name
00025       integer fid
00026       integer access,cret
00027       integer mfifope
00028 c
00029       fid = mfifope(name, access, len(name))
00030       if (fid.lt.0) then
00031          cret=-1
00032       else
00033          cret=0
00034       endif
00035 c      
00036       return
00037       end
00038 
00039 
00040 
00041       subroutine mfinam(fid, name, cret)
00042 c     DEC$ ATTRIBUTES DLLEXPORT :: mfinam
00043 c
00044       implicit none
00045       save
00046       character *(*) name
00047       integer fid
00048       integer namesize,cret
00049       integer mfifnam
00050 c
00051       cret = mfifnam(fid, name, len(name))
00052 c      
00053       return
00054       end
00055 
00056 
00057 
00058       subroutine mficlo(fid, cret)
00059 c     DEC$ ATTRIBUTES DLLEXPORT :: mficlo
00060 c
00061       implicit none
00062       save
00063 c
00064       integer fid,cret
00065       integer mfifclo
00066 c
00067       cret = mfifclo(fid)
00068 c      
00069       return
00070       end
00071 
00072 
00073 
00074       subroutine mficow(fid,cmt,cret)
00075 c     DEC$ ATTRIBUTES DLLEXPORT :: mficow
00076 c
00077       implicit none
00078       save
00079 c
00080       integer fid,cret
00081       character*(*) cmt
00082       integer mfifcow
00083 c
00084       cret = mfifcow(fid,cmt,len(cmt),cret)
00085 c      
00086       return
00087       end
00088 
00089 
00090       subroutine mficor(fid,cmt,cret)
00091 c     DEC$ ATTRIBUTES DLLEXPORT :: mficor 
00092 c
00093       implicit none
00094       save
00095 c
00096       integer fid,cret
00097       character*(*) cmt
00098       integer mfifcor
00099 c
00100       cret = mfifcor(fid,cmt,len(cmt),cret)
00101 c      
00102       return
00103       end
00104 
00105 
00106 
00107       subroutine  mfinvr(fid,major,minor,rel,cret)
00108 c     DEC$ ATTRIBUTES DLLEXPORT :: mfinvr
00109 c
00110       implicit none
00111       save
00112 c
00113       integer fid,major, minor,rel
00114       integer cret
00115       integer mfifnvr
00116 c
00117       cret = mfifnvr(fid,major,minor,rel)
00118 c      
00119       return
00120       end
00121 
00122 
00123       subroutine mfisvr(fid,version,cret)
00124 c     DEC$ ATTRIBUTES DLLEXPORT :: mfisvr
00125 c
00126       implicit none
00127       save
00128 c
00129       character*(*) version
00130       integer cret,fid
00131       integer mfifsvr
00132 c
00133       cret =  mfifsvr(fid,version,len(version))
00134 c      
00135       return
00136       end
00137 
00138 c
00139 c
00140 c
00141       subroutine mficom(fname,hdfok,medok,cret)
00142 c     DEC$ ATTRIBUTES DLLEXPORT :: mficom
00143 c
00144       implicit none
00145       save
00146 c
00147       integer cret
00148       character *(*) fname
00149       integer hdfok,medok
00150       integer mfifcom
00151 c     
00152       cret =  mfifcom(fname,len(fname),hdfok,medok)
00153 c
00154       return
00155       end
00156 
00157 
00158       subroutine mfiomn(fid, fname, class, mid, cret)
00159 c     DEC$ ATTRIBUTES DLLEXPORT :: mfiomn
00160 c
00161       implicit none
00162       save
00163 c
00164       character *(*) fname
00165       integer class, fid, mid , cret
00166       integer mfifomn
00167 c
00168       mid =  mfifomn(fid, fname, len(fname), class)
00169       if (mid .eq.-1) then
00170          cret=-1
00171       else
00172          cret=0
00173       endif
00174 c      
00175       return
00176       end
00177 
00178 c
00179 c
00180 c
00181       subroutine mfioun(fid, mid, class, cret)
00182 c     DEC$ ATTRIBUTES DLLEXPORT :: mfioun
00183 c
00184       implicit none
00185       save
00186 c
00187       integer mid, fid, class, cret
00188       integer mfifoun
00189 c
00190       cret = mfifoun(fid, mid, class)
00191 c      
00192       return
00193       end

Généré le Thu Oct 8 14:26:16 2015 pour MED fichier par  doxygen 1.6.1