# interf.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 efnent(fid,maa,typent,typcon,cret)
    00019         !DEC$ ATTRIBUTES DLLEXPORT :: efnent
    00020 c
    00021         implicit none
    00022         save
    00023 c
    00024         integer fid, typent, typcon, cret
    00025         character*(*) maa
    00026         integer edfnent
    00027 c
    00028         cret = edfnent(fid,maa,len(maa),typent,typcon)
    00029 c
    00030         end
    00031 c
    00032 c
    00033 c
    00034         subroutine efnoel(fid,maa,mdim,coo,modcoo,rep,nomcoo,
    00035      &                  unicoo,nom,inom,num,inum,fam,nnoe,cret)
    00036 c     DEC$ ATTRIBUTES DLLEXPORT :: efnoel
    00037 c
    00038         implicit none
    00039         save
    00040 c
    00041         integer fid,mdim,rep,nnoe,cret,modcoo
    00042         integer num(*),fam(*)
    00043         integer edfnoel
    00044         logical inom,inum
    00045         real*8 coo(*)
    00046         character*(*) maa,nomcoo,unicoo,nom
    00047         integer pnom,pnum
    00048 c
    00049         cret = edfnoel(fid,maa,len(maa),mdim,coo,modcoo,
    00050      &                 rep,nomcoo,
    00051      &                 unicoo,nom,pnom,num,pnum,fam,nnoe)
    00052 c
    00053         if (pnom .eq. 1) then
    00054           inom = .TRUE.
    00055         else
    00056           inom = .FALSE.
    00057         endif
    00058 c
    00059         if (pnum .eq. 1) then
    00060           inum = .TRUE.
    00061         else
    00062           inum = .FALSE.
    00063         endif
    00064 c
    00065         end
    00066 c
    00067 c
    00068         subroutine efnoee(fid,maa,mdim,coo,modcoo,rep,nomcoo,unicoo,
    00069      &                  nom,inom,num,inum,fam,nnoe,cret)
    00070 c     DEC$ ATTRIBUTES DLLEXPORT :: efnoee
    00071 c
    00072         implicit none
    00073         save
    00074 c
    00075         integer fid,mdim,rep,nnoe,cret,modcoo
    00076         integer num(*),fam(*)
    00077         integer edfnoee
    00078         logical inom,inum
    00079         real*8 coo(*)
    00080         character*(*) maa,nomcoo,unicoo,nom
    00081         integer pnom,pnum
    00082 c
    00083         if (inom) then
    00084           pnom = 1
    00085         else
    00086           pnom = 0
    00087         endif
    00088 c
    00089         if (inum) then
    00090           pnum = 1
    00091         else
    00092           pnum = 0
    00093         endif
    00094         cret = edfnoee(fid,maa,len(maa),mdim,coo,modcoo,
    00095      &               rep,nomcoo,
    00096      &               8*mdim,unicoo,
    00097      &               8*mdim,nom,8*nnoe,
    00098      &               pnom,num,pnum,fam,nnoe)
    00099 c
    00100         end
    00101 c
    00102 c
    00103         subroutine efelee (fid,maa,mdim,conn,switch,nom,inom,
    00104      &                     num,inum,fam,nele,typent,typgeo,
    00105      &                     typcon,cret)
    00106 c     DEC$ ATTRIBUTES DLLEXPORT :: efelee
    00107         implicit none
    00108         save
    00109 c
    00110         integer fid,mdim,nele,cret
    00111         integer conn(*)
    00112         integer fam(*)
    00113         integer num(*)
    00114         integer typgeo,typent,typcon,mode,edfelee,switch
    00115         character*(*) nom
    00116         character*(*) maa
    00117         logical inom,inum
    00118         integer pnum,pnom
    00119 c
    00120         if (inom) then
    00121           pnom = 1
    00122         else
    00123           pnom = 0
    00124         endif
    00125 c
    00126         if (inum) then
    00127           pnum = 1
    00128         else
    00129           pnum = 0
    00130         endif
    00131 c
    00132         cret = edfelee(fid,maa,len(maa),mdim,conn,switch,
    00133      &               nom,8*nele,pnom,
    00134      &               num,pnum,fam,nele,typent,typgeo,
    00135      &               typcon,mode)
    00136 c
    00137         end
    00138 c
    00139 c
    00140         subroutine efelel (fid,maa,mdim,conn,switch,nom,inom,
    00141      &                   num,inum,fam,nele,typent,typgeo,
    00142      &                   typcon,cret)
    00143 c     DEC$ ATTRIBUTES DLLEXPORT :: efelel
    00144         implicit none
    00145         save
    00146 c
    00147         integer fid,mdim,pnum,pnom,nele,cret,switch
    00148         integer typgeo,typent,typcon,edfelel
    00149         integer conn(*),fam(*),num(*)
    00150         character*(*) nom,maa
    00151         logical inom,inum
    00152 c
    00153         cret = edfelel(fid,maa,len(maa),mdim,conn,switch,
    00154      &               nom,pnom,
    00155      &               num,pnum,fam,nele,typent,typgeo,
    00156      &               typcon)
    00157 c
    00158         if (pnom .eq. 1) then
    00159           inom = .TRUE.
    00160         else
    00161           inom = .FALSE.
    00162         endif
    00163 c
    00164         if (pnum .eq. 1) then
    00165           inum = .TRUE.
    00166         else
    00167           inum = .FALSE.
    00168         endif
    00169 c
    00170         end
    00171 c
    00172 c
    00173 c
    00174       subroutine efg2fc(fid,maa,nomgro,ind,ngro,ent,nent,
    00175      &                  typent,typgeo,indgeo,ngeo,cret)
    00176 c     DEC$ ATTRIBUTES DLLEXPORT :: efg2fc
    00177         implicit none
    00178         save
    00179 c
    00180         integer          fid,cret,ngro,nent,typent,ngeo
    00181         character*32     maa
    00182         character *80    nomgro(*)
    00183         integer          ind(*),indgeo(*),ent(*),typgeo(*)
    00184         integer          edfg2fc
    00185 c
    00186         cret = edfg2fc(fid,maa,len(maa),nomgro,80*ngro,ind,ngro,
    00187      &                 ent,nent,typent,typgeo,indgeo,ngeo)
    00188 c
    00189         end
    00190
    00191
    00192
    00193
    00194
    00195
    00196
    00197
    00198