medfile.f

Aller à la documentation de ce fichier.
00001 C*  This file is part of MED.
00002 C*
00003 C*  COPYRIGHT (C) 1999 - 2012  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 mficlo(fid, cret)
00042 c     DEC$ ATTRIBUTES DLLEXPORT :: mficlo
00043 c
00044       implicit none
00045       save
00046 c
00047       integer fid,cret
00048       integer mfifclo
00049 c
00050       cret = mfifclo(fid)
00051 c      
00052       return
00053       end
00054 
00055 
00056 
00057       subroutine mficow(fid,cmt,cret)
00058 c     DEC$ ATTRIBUTES DLLEXPORT :: mficow
00059 c
00060       implicit none
00061       save
00062 c
00063       integer fid,cret
00064       character*(*) cmt
00065       integer mfifcow
00066 c
00067       cret = mfifcow(fid,cmt,len(cmt),cret)
00068 c      
00069       return
00070       end
00071 
00072 
00073       subroutine mficor(fid,cmt,cret)
00074 c     DEC$ ATTRIBUTES DLLEXPORT :: mficor 
00075 c
00076       implicit none
00077       save
00078 c
00079       integer fid,cret
00080       character*(*) cmt
00081       integer mfifcor
00082 c
00083       cret = mfifcor(fid,cmt,len(cmt),cret)
00084 c      
00085       return
00086       end
00087 
00088 
00089 
00090       subroutine  mfinvr(fid,major,minor,rel,cret)
00091 c     DEC$ ATTRIBUTES DLLEXPORT :: mfinvr
00092 c
00093       implicit none
00094       save
00095 c
00096       integer fid,major, minor,rel
00097       integer cret
00098       integer mfifnvr
00099 c
00100       cret = mfifnvr(fid,major,minor,rel)
00101 c      
00102       return
00103       end
00104 
00105 
00106       subroutine mfisvr(fid,version,cret)
00107 c     DEC$ ATTRIBUTES DLLEXPORT :: mfisvr
00108 c
00109       implicit none
00110       save
00111 c
00112       character*(*) version
00113       integer cret,fid
00114       integer mfifsvr
00115 c
00116       cret =  mfifsvr(fid,version,len(version))
00117 c      
00118       return
00119       end
00120 
00121 c
00122 c
00123 c
00124       subroutine mficom(fname,hdfok,medok,cret)
00125 c     DEC$ ATTRIBUTES DLLEXPORT :: mficom
00126 c
00127       implicit none
00128       save
00129 c
00130       integer cret
00131       character *(*) fname
00132       integer hdfok,medok
00133       integer mfifcom
00134 c     
00135       cret =  mfifcom(fname,len(fname),hdfok,medok)
00136 c
00137       return
00138       end
00139 
00140 
00141       subroutine mfiomn(fid, fname, class, mid, cret)
00142 c     DEC$ ATTRIBUTES DLLEXPORT :: mfiomn
00143 c
00144       implicit none
00145       save
00146 c
00147       character *(*) fname
00148       integer class, fid, mid , cret
00149       integer mfifomn
00150 c
00151       mid =  mfifomn(fid, fname, len(fname), class)
00152       if (mid .eq.-1) then
00153          cret=-1
00154       else
00155          cret=0
00156       endif
00157 c      
00158       return
00159       end
00160 
00161 c
00162 c
00163 c
00164       subroutine mfioun(fid, mid, class, cret)
00165 c     DEC$ ATTRIBUTES DLLEXPORT :: mfioun
00166 c
00167       implicit none
00168       save
00169 c
00170       integer mid, fid, class, cret
00171       integer mfifoun
00172 c
00173       cret = mfifoun(fid, mid, class)
00174 c      
00175       return
00176       end

Généré le Mon Nov 19 15:43:34 2012 pour MED fichier par  doxygen 1.6.1