famf.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 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 

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