medfamily.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       subroutine mfacre(fid, name, fname, fnum, ngro, gname, cret)
00019 c     DEC$ ATTRIBUTES DLLEXPORT :: mfacre
00020 c
00021       implicit none
00022       save
00023 c
00024       character *(*) name, fname, gname
00025       integer fid, fnum, ngro, cret
00026       integer mfafcre
00027 c
00028       cret = mfafcre(fid, name, len(name), fname, len(name),
00029      &               fnum, ngro, gname, 80 * ngro)
00030 c      
00031       return
00032       end
00033 c
00034 c
00035 c
00036       subroutine mfanfa(fid,maa,n,cret)
00037 c     DEC$ ATTRIBUTES DLLEXPORT :: mfanfa
00038 c
00039       implicit none
00040       save
00041 c
00042       integer fid,n,cret
00043       character *(*) maa
00044       integer mfafnfa
00045 c
00046       n = mfafnfa(fid,maa,len(maa))
00047       if (n.lt.0) then
00048          cret = -1
00049       else
00050          cret = 0
00051       endif
00052 c
00053       return
00054       end
00055 c
00056 c
00057 c
00058       subroutine mfanfg(fid,maa,it,n,cret)
00059 c     DEC$ ATTRIBUTES DLLEXPORT :: mfanfg
00060 c
00061       implicit none
00062       save
00063 c
00064       integer fid,n,cret,it
00065       character *(*) maa
00066       integer mfafnfg
00067 c
00068       n = mfafnfg(fid,maa,len(maa),it)
00069       if (n.lt.0) then
00070          cret = -1
00071       else
00072          cret = 0
00073       endif
00074 c
00075       return
00076       end
00077 c
00078 c
00079 c
00080       subroutine mfafai(fid,maa,ind,fam,num,gro,cret)
00081 c     DEC$ ATTRIBUTES DLLEXPORT :: mfafai
00082 c
00083       implicit none
00084       save
00085 c 
00086       integer fid,num,cret,ind
00087       character *(*) maa,fam,gro
00088       integer mfaffai
00089 c
00090       cret = mfaffai(fid,maa,len(maa),ind,fam,num,gro)
00091 c      
00092       return
00093       end
00094 c
00095 c
00096 c
00097       subroutine mfaona(fid,maa,it,n,cret)
00098 c     DEC$ ATTRIBUTES DLLEXPORT :: mfaona
00099 c
00100       implicit none
00101       save
00102 c
00103       integer fid,it,n,cret
00104       character *(*) maa
00105       integer mfafona
00106 c
00107       n =  mfafona(fid,maa,len(maa),it)
00108       if (n.lt.0) then
00109          cret = -1
00110       else
00111          cret = 0
00112       endif
00113 c
00114       return
00115       end      
00116 c
00117 c
00118 c
00119       subroutine mfaofi(fid,maa,it,fam,attnum,attval,attdes,
00120      &                  num,gro,cret)
00121 c     DEC$ ATTRIBUTES DLLEXPORT :: mfaofi
00122 c
00123       implicit none
00124       save
00125 c 
00126       integer fid,num,cret,it
00127       integer attnum(*),attval(*)
00128       character *(*) maa,fam,gro,attdes
00129       integer mfafofi
00130 c
00131       cret = mfafofi(fid,maa,len(maa),it,fam,attnum,attval,attdes,
00132      &               num,gro)
00133 c      
00134       return
00135       end

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