medfile.f

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

Généré le Mon May 16 17:10:23 2011 pour MED fichier par  doxygen 1.6.1