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 implicit none
00021 save
00022
00023 integer fid, typent, typcon, cret
00024 character*(*) maa
00025 integer edfnent
00026
00027 cret = edfnent(fid,maa,len(maa),typent,typcon)
00028
00029 end
00030
00031
00032
00033 subroutine efnoel(fid,maa,mdim,coo,modcoo,rep,nomcoo,
00034 & unicoo,nom,inom,num,inum,fam,nnoe,cret)
00035
00036 implicit none
00037 save
00038
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
00047 cret = edfnoel(fid,maa,len(maa),mdim,coo,modcoo,
00048 & rep,nomcoo,
00049 & unicoo,nom,pnom,num,pnum,fam,nnoe)
00050
00051 if (pnom .eq. 1) then
00052 inom = .TRUE.
00053 else
00054 inom = .FALSE.
00055 endif
00056
00057 if (pnum .eq. 1) then
00058 inum = .TRUE.
00059 else
00060 inum = .FALSE.
00061 endif
00062
00063 end
00064
00065
00066 subroutine efnoee(fid,maa,mdim,coo,modcoo,rep,nomcoo,unicoo,
00067 & nom,inom,num,inum,fam,nnoe,cret)
00068
00069 implicit none
00070 save
00071
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
00080 if (inom) then
00081 pnom = 1
00082 else
00083 pnom = 0
00084 endif
00085
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
00097 end
00098
00099
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
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
00116 if (inom) then
00117 pnom = 1
00118 else
00119 pnom = 0
00120 endif
00121
00122 if (inum) then
00123 pnum = 1
00124 else
00125 pnum = 0
00126 endif
00127
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
00133 end
00134
00135
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
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
00148 cret = edfelel(fid,maa,len(maa),mdim,conn,switch,
00149 & nom,pnom,
00150 & num,pnum,fam,nele,typent,typgeo,
00151 & typcon)
00152
00153 if (pnom .eq. 1) then
00154 inom = .TRUE.
00155 else
00156 inom = .FALSE.
00157 endif
00158
00159 if (pnum .eq. 1) then
00160 inum = .TRUE.
00161 else
00162 inum = .FALSE.
00163 endif
00164
00165 end
00166
00167
00168
00169 subroutine efg2fc(fid,maa,nomgro,ind,ngro,ent,nent,
00170 & typent,typgeo,indgeo,ngeo,cret)
00171 implicit none
00172 save
00173
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
00180 cret = edfg2fc(fid,maa,len(maa),nomgro,80*ngro,ind,ngro,
00181 & ent,nent,typent,typgeo,indgeo,ngeo)
00182
00183 end
00184
00185
00186
00187
00188
00189
00190
00191
00192