# famf.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       subroutine effamc(fid,maa,fam,num,attid,attval,attdes,
    00019      1     natt, gro,ngro,cret)
    00020 c     DEC$ ATTRIBUTES DLLEXPORT :: effamc
    00021 c
    00022       implicit none
    00023       save
    00024 c
    00025       integer fid,num,attid(*),attval(*),natt,ngro,cret
    00026       character *(*) maa,fam,attdes
    00027       character *80 gro(*)
    00028       integer edffamc
    00029 c
    00030       cret = edffamc (fid,maa,len(maa),fam,len(fam),
    00031      1     num,attid,attval,attdes, 200 * natt ,natt,
    00032      2     gro, 80 * ngro ,ngro)
    00033 c
    00034       return
    00035       end
    00036 c
    00037       subroutine effame(fid,maa,fam,n,typent,typgeo,cret)
    00038 c     DEC$ ATTRIBUTES DLLEXPORT :: effame
    00039 c
    00040       implicit none
    00041       save
    00042 c
    00043       integer fid,fam(*),n,typent,typgeo,cret
    00044       character *(*) maa
    00045       integer edffame
    00046 c
    00047       cret = edffame(fid,maa,len(maa),fam,n,typent,typgeo)
    00048 c
    00049       return
    00050       end
    00051 c
    00052       subroutine effaml(fid,maa,fam,n,typent,typgeo,cret)
    00053 c     DEC$ ATTRIBUTES DLLEXPORT :: effaml
    00054 c
    00055       implicit none
    00056       save
    00057 c
    00058       integer fid,fam(*),n,typent,typgeo,cret
    00059       character *(*) maa
    00060       integer edffaml
    00061 c
    00062       cret = edffaml(fid,maa,len(maa),fam,n,typent,typgeo)
    00063 c
    00064       return
    00065       end
    00066 c
    00067       subroutine effami(fid,maa,ind,fam,num,attid,attval,attdes,
    00068      1     natt,gro,ngro,cret)
    00069 c     DEC$ ATTRIBUTES DLLEXPORT :: effami
    00070 c
    00071       implicit none
    00072       save
    00073 c
    00074       integer fid,num,attid(*),attval(*),natt,ngro,cret,ind
    00075       character *(*) maa,fam,attdes,gro
    00076       integer edffami
    00077 c
    00078       cret = edffami (fid,maa,len(maa),ind,fam,
    00079      1     num,attid,attval,attdes,natt,
    00080      2     gro, ngro)
    00081 c
    00082       return
    00083       end
    00084 c
    00085       subroutine efnfam(fid,maa,n,cret)
    00086 c     DEC$ ATTRIBUTES DLLEXPORT :: efnfam
    00087 c
    00088       implicit none
    00089       save
    00090 c
    00091       integer fid,n,cret
    00092       character *(*) maa
    00093       integer edfnfam
    00094 c
    00095       n = edfnfam(fid,maa,len(maa))
    00096       if (n.lt.0) then
    00097          cret = -1
    00098       else
    00099          cret = 0
    00100       endif
    00101 c
    00102       return
    00103       end
    00104 c
    00105
    00106       subroutine efngro(fid,maa,ind,n,cret)
    00107 c     DEC$ ATTRIBUTES DLLEXPORT :: efngro
    00108 c
    00109       implicit none
    00110       save
    00111 c
    00112       integer fid,ind,n,cret
    00113       character *(*) maa
    00114       integer edfngro
    00115 c
    00116       n = edfngro(fid,maa,len(maa),ind)
    00117       if (n.lt.0) then
    00118          cret = -1
    00119       else
    00120          cret = 0
    00121       endif
    00122 c
    00123       return
    00124       end
    00125 c
    00126
    00127       subroutine efnatt(fid,maa,ind,n,cret)
    00128 c     DEC$ ATTRIBUTES DLLEXPORT :: efnatt
    00129 c
    00130       implicit none
    00131       save
    00132 c
    00133       integer fid,ind,n,cret
    00134       character *(*) maa
    00135       integer edfnatt
    00136 c
    00137       n = edfnatt(fid,maa,len(maa),ind)
    00138       if (n.lt.0) then
    00139          cret = -1
    00140       else
    00141          cret = 0
    00142       endif
    00143 c
    00144       return
    00145       end
    00146 c
    00147
    00148