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 

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