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