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

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