| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | determineextern.f | 65 iexternedg(indexe)=indexe
70 indexe=iedg(3,indexe)
77 iexternedg(indexe)=indexe
82 indexe=iedg(3,indexe)
94 iexternedg(indexe)=indexe
99 indexe=iedg(3,indexe)
106 iexternedg(indexe)=indexe
111 indexe=iedg(3,indexe)
123 iexternedg(indexe)=indexe
128 indexe=iedg(3,indexe)
[all …]
|
| H A D | smoothingvertexnodes.f | 51 indexe=ipoeln(i)
60 indexe=ieln(2,indexe)
64 indexe=ieln(2,indexe)
110 indexe=ipoeln(i)
115 indexe=ieln(2,indexe)
141 indexe=ieln(2,indexe)
150 indexe=ipoeln(i)
159 indexe=ieln(2,indexe)
163 indexe=ieln(2,indexe)
214 indexe=ieln(2,indexe)
[all …]
|
| H A D | map3dto1d2d_v.f | 64 indexe=ipkon(i)
74 indexe2d=indexe+15
77 indexe2d=indexe+6
89 indexe2d=indexe+11
92 indexe2d=indexe+8
95 indexe2d=indexe+20
107 indexe2d=indexe+11
110 indexe2d=indexe+8
127 do j=1,indexe2d-indexe
145 indexe=ipkon(i)
[all …]
|
| H A D | gen3dtemp.f | 32 & indexe,indexk,k,node,istep,ithermal(*),mi(*),nam,iamt1(*) local
48 indexe=ipkon(ielem)
49 if(indexe.lt.0) then
53 indexk=iponor(2,indexe+j)
65 & -t0g(1,i)*thicke(1,indexe+j)*(0.5d0+offset(1,ielem))
72 & +t0g(1,i)*thicke(1,indexe+j)*(0.5d0-offset(1,ielem))
77 & -t0g(2,i)*thicke(1,indexe+j)*(0.5d0+offset(1,ielem))
78 & +t0g(1,i)*thicke(2,indexe+j)*(0.5d0+offset(2,ielem))
129 indexe=ipkon(ielem)
130 if(indexe.lt.0) then
[all …]
|
| H A D | errorestimator.f | 65 indexe=ipkon(i)
197 yn(2,kon(indexe+j))=max(yn(2,kon(indexe+j)),reldiff)
211 indexe=ipkon(i)
239 node=kon(indexe+j)
249 node=kon(indexe+j)
263 node=kon(indexe+j)
279 node=kon(indexe+j)
293 node=kon(indexe+j)
351 indexe=ipkon(i)
536 indexe=ipkon(i)
[all …]
|
| H A D | networkextrapolate.f | 46 indexe=ipkon(i)
48 node1=kon(indexe+1)
52 node3=kon(indexe+3)
64 indexe=ipkon(i)
65 node2=kon(indexe+2)
67 node1=kon(indexe+1)
74 node3=kon(indexe+3)
91 indexe=ipkon(i)
95 node1=kon(indexe+1)
99 node3=kon(indexe+3)
[all …]
|
| H A D | map3dto1d2d.f | 72 indexe=ipkon(i)
76 indexe2d=indexe+15
79 indexe2d=indexe+6
91 indexe2d=indexe+11
94 indexe2d=indexe+8
112 indexe2d=indexe+8
132 do j=1,indexe2d-indexe
150 indexe=ipkon(i)
165 indexe2d=indexe+6
591 indexe=ipkon(i)
[all …]
|
| H A D | midexternalfaces.f | 110 indexe=ipoed(n1)
112 if(iedg(2,indexe).eq.n2) then
113 iedge=iexternedg(indexe)
123 indexe=iedg(3,indexe)
137 indexe=ipoed(n1)
139 if(iedg(2,indexe).eq.n2) then
140 iedge=iexternedg(indexe)
150 indexe=iedg(3,indexe)
164 indexe=ipoed(n1)
167 iedge=iexternedg(indexe)
[all …]
|
| H A D | gen3dfrom1d.f | 35 indexe=ipkon(i)
56 nodel(j)=kon(indexe+j)
58 indexx=iponor(1,indexe+j)
59 indexk=iponor(2,indexe+j)
80 kon(indexe+1)=nodeb(1,1)
98 kon(indexe+4)=nodeb(2,1)
104 kon(indexe+5)=nodeb(4,1)
122 kon(indexe+8)=nodeb(3,1)
243 kon(indexe+1)=nodeb(1,1)
249 kon(indexe+2)=nodeb(1,3)
[all …]
|
| H A D | frditeration.f | 167 indexe=ipkon(i)
175 & (kon(indexe+j),j=17,19),kon(indexe+20),
176 & (kon(indexe+j),j=13,16)
180 write(27,'(a3,3i10)') m2,kon(indexe+21),kon(indexe+23),
181 & kon(indexe+22)
190 write(27,'(a3,8i10)') m2,(kon(indexe+j),j=1,8)
204 & kon(indexe+13)
206 & (kon(indexe+j),j=10,12)
217 if((kon(indexe+1).eq.0).or.(kon(indexe+3).eq.0)) cycle
220 write(27,'(a3,3i10)') m2,kon(indexe+1),kon(indexe+3),
[all …]
|
| H A D | gennactdofinv.f | 59 indexe=ipkon(i)
66 indexe2d=indexe+15
69 indexe2d=indexe+6
74 node3d=kon(indexe+node6(1,j))
84 indexe2d=indexe+11
87 indexe2d=indexe+8
90 indexe2d=indexe+20
125 indexe2d=indexe+11
129 indexe2d=indexe+8
132 indexe2d=indexe+20
[all …]
|
| H A D | smalldist.f | 55 indexe=ipkon(i)
66 j1=kon(indexe+neigh8(1,j))
67 j2=kon(indexe+neigh8(2,j))
76 j1=kon(indexe+neigh2(1,j))
77 j2=kon(indexe+neigh2(2,j))
93 j1=kon(indexe+neigh8(1,j))
94 j2=kon(indexe+neigh8(2,j))
103 j1=kon(indexe+neigh4(1,j))
104 j2=kon(indexe+neigh4(2,j))
113 j1=kon(indexe+neigh4(1,j))
[all …]
|
| H A D | flowresult.f | 72 indexe=ipkon(i)
73 if(kon(indexe+1).ne.0) then
74 node1=kon(indexe+1)
77 if(kon(indexe+3).ne.0) then
78 node3=kon(indexe+3)
90 indexe=ipkon(i)
91 node2=kon(indexe+2)
92 if(kon(indexe+1).ne.0) then
93 node1=kon(indexe+1)
99 if(kon(indexe+3).ne.0) then
[all …]
|
| H A D | checkvol.f | 31 integer node,ipoeln(*),ieln(2,*),kontet(4,*),i,ielem,indexe,jflag, local
51 indexe=ipoeln(node)
53 if(indexe.eq.0) exit loop
54 ielem=ieln(1,indexe)
60 indexe=ieln(2,indexe)
79 indexe=ipoeln(node)
81 if(indexe.eq.0) exit
82 ielem=ieln(1,indexe)
100 indexe=ieln(2,indexe)
|
| H A D | solidsections.f | 279 indexe=ipkon(ialset(j))
291 indexe=ipkon(ielem)
292 node1=kon(indexe+1)
294 node2=kon(indexe+2)
296 node2=kon(indexe+3)
347 indexe=ipkon(k)
358 indexe=ipkon(k)
359 node1=kon(indexe+1)
425 indexe=ipkon(ialset(j))
449 indexe=ipkon(k)
[all …]
|
| H A D | createinum.f | 33 integer ipkon(*),inum(*),kon(*),ne,indexe,nope,nfield,mi(*), local
49 indexe=ipkon(i)
86 inum(kon(indexe+1))=inum(kon(indexe+1))+1
87 inum(kon(indexe+2))=inum(kon(indexe+2))+1
92 inum(kon(indexe+nope))=-1
104 inum(kon(indexe+j))=inum(kon(indexe+j))+1
108 inum(kon(indexe+nopeexp+j))=inum(kon(indexe+nopeexp+j))+1
|
| H A D | smoothingmidnodes.f | 28 & ipoeled(*),ieled(2,*),iter,iponn(*),inn(2,*),indexe,ielemold,
64 indexe=ipoeled(iedge)
67 if(indexe.eq.0) exit
68 ielem=ieled(1,indexe)
71 indexe=ieled(2,indexe)
117 indexe=ipoeled(iedge)
119 if(indexe.eq.0) exit
120 ielem=ieled(1,indexe)
149 indexe=ieled(2,indexe)
|
| H A D | checkjac.f | 32 integer node,kontet(4,*),i,ielem,indexe,iflag,jflag,iwrite, local
61 indexe=ipoeled(iedge)
66 if(indexe.eq.0) exit loop1
67 ielem=ieled(1,indexe)
95 indexe=ieled(2,indexe)
121 indexe=ipoeled(iedge)
123 if(indexe.eq.0) exit
127 ielem=ieled(1,indexe)
148 indexe=ieled(2,indexe)
|
| H A D | cataloguenodes.f | 61 indexe=ipkon(iel)
66 node=konf(indexe+ifaceq(k,j))
80 node=konf(indexe+ifacew(k,j))
94 node=konf(indexe+ifacet(k,j))
126 indexe=ipkon(iel)
189 indexe=ipkon(iel)
252 indexe=ipkon(iel)
312 indexe=ipkon(iel)
317 node=konf(indexe+ifaceq(k,j))
331 node=konf(indexe+ifacew(k,j))
[all …]
|
| H A D | storecontactprop.f | 49 & indexe,j,nope,ielmat(mi(3),*),imat,mortar,nopem, local
65 indexe=ipkon(nelem)
86 if(nactdof(j,kon(indexe+indexn)).gt.0)then
88 & adb(nactdof(j,kon(indexe+indexn))))
103 areaslav=springarea(1,kon(indexe+nope+1))
125 do indexn=1,kon(indexe)
129 if(nactdof(j,kon(indexe+indexn)).gt.0)then
131 & adb(nactdof(j,kon(indexe+indexn))))
144 springms=springms/(kon(indexe)-nopem)
147 areaslav=springarea(1,kon(1+indexe+kon(indexe)))
|
| H A D | frdfluid.f | 164 indexe=ipkonf(i)
172 & (konf(indexe+j),j=17,19),konf(indexe+20),
173 & (konf(indexe+j),j=13,16)
177 write(13,'(a3,3i10)') m2,konf(indexe+21),konf(indexe+23),
178 & konf(indexe+22)
187 write(13,'(a3,8i10)') m2,(konf(indexe+j),j=1,8)
201 & konf(indexe+13)
203 & (konf(indexe+j),j=10,12)
214 if((konf(indexe+1).eq.0).or.(konf(indexe+3).eq.0)) cycle
217 write(13,'(a3,3i10)') m2,konf(indexe+1),konf(indexe+3),
[all …]
|
| H A D | preinitialnet.f | 128 indexe=ipkon(nelem)
130 nodem=kon(indexe+2)
184 indexe=ipkon(nelem)
186 node1=kon(indexe+1)
188 nodem=kon(indexe+2)
189 node2=kon(indexe+3)
535 indexe=ipkon(nelem)
536 nodem=kon(indexe+2)
710 indexe=ipkon(nelem)
815 indexe=ipkon(nelem)
[all …]
|
| H A D | genmodes.f | 31 & nk,nk_,j,indexe,k local
33 indexe=ipkon(i)
37 if(indexe.lt.-1) then
38 indexe=-2-indexe
57 coords(k)=coords(k)+co(k,kon(indexe+j))
68 kon(indexe+nope+j)=nk
|
| H A D | networkinum.f | 29 integer ipkon(*),inum(*),kon(*),ne,indexe,i,node1,node2,node3, local
49 indexe=ipkon(i)
50 if(kon(indexe+1).ne.0) then
51 node1=kon(indexe+1)
54 node2=kon(indexe+2)
56 if(kon(indexe+3).ne.0) then
57 node3=kon(indexe+3)
|
| H A D | getdesiinfo3d_robust.f | 49 & indexe,jface,konl2d(26),expandhex(20),expandwed(15),
113 indexe=ipoface(j)
117 nelem=nodface(3,indexe)
118 jface=nodface(4,indexe)
128 indexe=nodface(5,indexe)
129 if(indexe.eq.0) then
141 indexe=nodface(5,indexe)
142 if(indexe.eq.0) then
275 indexe=nodface(5,indexe)
276 if(indexe.eq.0) exit
|