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

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