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