00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018         subroutine efnent(fid,maa,typent,typcon,cret)
00019         
00020 
00021         implicit none
00022         save
00023 
00024         integer fid, typent, typcon, cret
00025         character*(*) maa
00026         integer edfnent
00027 
00028         cret = edfnent(fid,maa,len(maa),typent,typcon)
00029 
00030         end
00031 
00032 
00033 
00034         subroutine efnoel(fid,maa,mdim,coo,modcoo,rep,nomcoo,
00035      &                  unicoo,nom,inom,num,inum,fam,nnoe,cret)
00036 
00037 
00038         implicit none
00039         save
00040 
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 
00049         cret = edfnoel(fid,maa,len(maa),mdim,coo,modcoo,
00050      &                 rep,nomcoo,
00051      &                 unicoo,nom,pnom,num,pnum,fam,nnoe)
00052 
00053         if (pnom .eq. 1) then
00054           inom = .TRUE.
00055         else
00056           inom = .FALSE.
00057         endif
00058 
00059         if (pnum .eq. 1) then
00060           inum = .TRUE.
00061         else
00062           inum = .FALSE.
00063         endif
00064 
00065         end
00066 
00067 
00068         subroutine efnoee(fid,maa,mdim,coo,modcoo,rep,nomcoo,unicoo,
00069      &                  nom,inom,num,inum,fam,nnoe,cret)
00070 
00071 
00072         implicit none
00073         save
00074 
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 
00083         if (inom) then
00084           pnom = 1
00085         else
00086           pnom = 0
00087         endif
00088 
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 
00100         end
00101 
00102 
00103         subroutine efelee (fid,maa,mdim,conn,switch,nom,inom,
00104      &                     num,inum,fam,nele,typent,typgeo,
00105      &                     typcon,cret)
00106 
00107         implicit none
00108         save
00109 
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 
00120         if (inom) then
00121           pnom = 1
00122         else
00123           pnom = 0
00124         endif
00125 
00126         if (inum) then
00127           pnum = 1
00128         else
00129           pnum = 0
00130         endif
00131 
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 
00137         end
00138 
00139 
00140         subroutine efelel (fid,maa,mdim,conn,switch,nom,inom,
00141      &                   num,inum,fam,nele,typent,typgeo,
00142      &                   typcon,cret)
00143 
00144         implicit none
00145         save
00146 
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 
00153         cret = edfelel(fid,maa,len(maa),mdim,conn,switch,
00154      &               nom,pnom,
00155      &               num,pnum,fam,nele,typent,typgeo,
00156      &               typcon)
00157 
00158         if (pnom .eq. 1) then
00159           inom = .TRUE.
00160         else
00161           inom = .FALSE.
00162         endif
00163 
00164         if (pnum .eq. 1) then
00165           inum = .TRUE.
00166         else
00167           inum = .FALSE.
00168         endif
00169 
00170         end
00171 
00172 
00173 
00174       subroutine efg2fc(fid,maa,nomgro,ind,ngro,ent,nent,
00175      &                  typent,typgeo,indgeo,ngeo,cret)
00176 
00177         implicit none
00178         save
00179 
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 
00186         cret = edfg2fc(fid,maa,len(maa),nomgro,80*ngro,ind,ngro,
00187      &                 ent,nent,typent,typgeo,indgeo,ngeo)
00188 
00189         end
00190 
00191 
00192 
00193 
00194 
00195 
00196 
00197 
00198