| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | extendmesh.f | 91 kon(nkon+1)=node1
92 kon(nkon+2)=node1e
93 kon(nkon+3)=node2e
94 kon(nkon+4)=node1
95 kon(nkon+5)=node1e
96 kon(nkon+6)=node2e
97 kon(nkon+7)=node1
98 kon(nkon+8)=node1e
151 kon(nkon+1)=node1
154 kon(nkon+4)=node1
[all …]
|
| H A D | errorestimator.f | 197 yn(2,kon(indexe+j))=max(yn(2,kon(indexe+j)),reldiff)
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)
301 node=kon(indexe+j)
314 node=kon(indexe+j)
328 node=kon(indexe+j)
336 node=kon(indexe+j)
[all …]
|
| H A D | frditeration.f | 19 subroutine frditeration(co,nk,kon,ipkon,lakon,ne,v, argument
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 | networkextrapolate.f | 47 if(kon(indexe+1).ne.0) then
48 node1=kon(indexe+1)
51 if(kon(indexe+3).ne.0) then
52 node3=kon(indexe+3)
65 node2=kon(indexe+2)
67 node1=kon(indexe+1)
73 if(kon(indexe+3).ne.0) then
74 node3=kon(indexe+3)
95 node1=kon(indexe+1)
99 node3=kon(indexe+3)
[all …]
|
| H A D | gen3dfrom1d.f | 56 nodel(j)=kon(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)
255 kon(indexe+3)=nodeb(2,3)
261 kon(indexe+4)=nodeb(2,1)
267 kon(indexe+5)=nodeb(4,1)
[all …]
|
| H A D | preinitialnet.f | 130 nodem=kon(indexe+2)
186 node1=kon(indexe+1)
188 nodem=kon(indexe+2)
189 node2=kon(indexe+3)
536 nodem=kon(indexe+2)
546 node1=kon(indexe+1)
626 node2=kon(indexe+3)
711 node1=kon(indexe+1)
713 node2=kon(indexe+3)
773 nodem=kon(indexe+2)
[all …]
|
| H A D | totalcontact.f | 19 subroutine totalcontact(tieset,ntie,ne,ipkon,kon, argument
29 integer ntie,ifree,ipkon(*),kon(*),ne,nel,i,k,jj,ne0, local
125 nodefs(m)=kon(ipkon(nelems)+ifaceq(m,jfaces))
197 nodefm(k)=kon(indexe+ifacet(k,jfacem))
211 nodefm(k)=kon(indexe+ifaceq(k,jfacem))
227 kon(id)=nopes+nopem
230 kon(id+k)=nodefm(k)
234 kon(id+k)=nodefs(k)
237 kon(id+1)=igauss
238 kon(id+2)=jj
[all …]
|
| H A D | smalldist.f | 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))
114 j2=kon(indexe+neigh4(2,j))
[all …]
|
| H A D | createinum.f | 19 subroutine createinum(ipkon,inum,kon,lakon,nk,ne,cflag,nelemload, argument
33 integer ipkon(*),inum(*),kon(*),ne,indexe,nope,nfield,mi(*), local
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
127 call map3dto1d2d(yn,ipkon,inum,kon,lakon,nfield,nk,ne,cflag,co,
|
| H A D | flowresult.f | 20 & nelemload,xloadact,nactdog,network,mi,ne,ipkon,lakon,kon) argument
27 integer i,j,nload,node,ntg,itg(*),nelemload(2,*),kon(*), local
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)
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 | zienzhu.f | 19 subroutine zienzhu(co,nk,kon,ipkon,lakon,ne,stn, argument
36 integer kon(*),nk,ne,i,j,ipkon(*),indexe,nodebase,
90 node=kon(indexe+j)
165 call angsum(lakon,kon,ipkon,neigh,ipneigh,
226 if(kon(indexe+m).eq.nodebase) exit
238 node=kon(ipkon(ielem)+k)
324 node=kon(ipkon(ielem)+k)
389 call angsum(lakon,kon,ipkon,neigh,ipneigh,
592 node=kon(ipkon(ielem)+j)
693 inodes(j)=kon(ipkon(ielem)+j)
[all …]
|
| H A D | map3dto1d2d_v.f | 81 node2d=kon(indexe2d+j)
99 node2d=kon(indexe2d+j)
117 node2d=kon(indexe2d+j)
128 inum(kon(indexe+j))=0
164 node2d=kon(indexe2d+j)
174 node3d=kon(indexe+node6(l,j))
185 node3d=kon(indexe+node6(l,j))
208 node2d=kon(indexe2d+j)
215 node3d=kon(indexe+node3(l,j))
237 node2d=kon(indexe2d+j)
[all …]
|
| H A D | map3dto1d2d.f | 83 node2d=kon(indexe2d+j)
101 node2d=kon(indexe2d+j)
119 node2d=kon(indexe2d+j)
133 inum(kon(indexe+j))=0
169 node2d=kon(indexe2d+j)
512 node2d=kon(indexe2d+j)
602 node2d=kon(indexe2d+j)
658 inum(kon(indexe+j))=0
684 nodea=kon(indexe2d+1)
685 nodeb=kon(indexe2d+2)
[all …]
|
| H A D | storecontactprop.f | 19 subroutine storecontactprop(ne,ne0,lakon,kon,ipkon,mi, argument
48 integer mi(*),ne,ne0,kon(*),ipkon(*),nactdof(0:mi(2),*), local
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 | gennactdofinv.f | 20 & ipkon,lakon,kon,ne) argument
34 & node3(8,3),node6(3,6),node8(3,8),kon(*),mt,jmax local
73 node2d=kon(indexe2d+j)
74 node3d=kon(indexe+node6(1,j))
98 node2d=kon(indexe2d+j)
101 node3d=kon(indexe+node2(l,j))
111 node2d=kon(indexe2d+j)
114 node3d=kon(indexe+node3(l,j))
136 node2d=kon(indexe2d+j)
137 node3d=kon(indexe+node8(1,j))
|
| H A D | flux.f | 19 subroutine flux(node1,node2,nodem,nelem,lakon,kon,ipkon, argument
39 & ielprop(*),nodef(8),idirf(8),kflag,ipkon(*),kon(*), local
69 call acctube(node1,node2,nodem,nelem,lakon,kon,ipkon,
78 call air_valve(node1,node2,nodem,nelem,lakon,kon,ipkon,
155 & kon,ipkon,mi,ttime,time,iaxial,iplausi)
172 & rho,g,co,dvi,numf,mi,ipkon,kon,iplausi)
224 call rcavi(node1,node2,nodem,nelem,lakon,kon,ipkon,
233 call rcavi2(node1,node2,nodem,nelem,lakon,kon,ipkon,
274 call tee(node1,node2,nodem,nelem,lakon,kon,ipkon,
292 call vortex(node1,node2,nodem,nelem,lakon,kon,ipkon,
[all …]
|
| H A D | networkinum.f | 19 subroutine networkinum(ipkon,inum,kon,lakon, argument
29 integer ipkon(*),inum(*),kon(*),ne,indexe,i,node1,node2,node3, local
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 | initialchannel.f | 115 node1=kon(index+1)
116 node2=kon(index+3)
190 node1=kon(index+1)
191 node2=kon(index+3)
238 nodem=kon(index+2)
258 nodem=kon(index+2)
270 node1=kon(index+1)
271 node2=kon(index+3)
273 nodem=kon(index+2)
350 node1=kon(index+1)
[all …]
|
| H A D | extrapolatecontact.f | 115 nopespring=kon(indexc)
130 nopespringj=kon(indexcj)
153 inum(kon(indexe+1))=inum(kon(indexe+1))+1
154 inum(kon(indexe+2))=inum(kon(indexe+2))+1
195 nopespringj=kon(indexcj)
325 nopespringj=kon(indexcj)
494 yn(k,kon(indexe+j))=yn(k,kon(indexe+j))+
500 yn(nfield-1,kon(indexe+j))=yn(nfield-1,kon(indexe+j))+
502 yn(nfield,kon(indexe+j))=yn(nfield,kon(indexe+j))+
504 inum(kon(indexe+j))=inum(kon(indexe+j))+1
[all …]
|
| H A D | resultsprint.f | 19 subroutine resultsprint(co,nk,kon,ipkon,lakon,ne,v,stn,inum, argument
51 integer kon(*),inum(*),iperm(20),mi(*),ielorien(mi(3),*), local
89 call map3dto1d2d_v(v,ipkon,inum,kon,lakon,nfield,nk,
112 & mi(1),nstate_,ithermal,co,kon,qfx,ttime,trab,inotr,ntrans,
149 & prset,ttime,nprint,prlab,mi,ipkon,kon,springarea,
163 call map3dto1d2d(v,ipkon,inum,kon,lakon,nfield,nk,
172 call map3dto1d2d(t1,ipkon,inum,kon,lakon,nfield,nk,
208 call map3dtolayer(v,ipkon,kon,lakon,nfield,
213 call map3dtolayer(t1,ipkon,kon,lakon,nfield,
256 call extrapolate(stx,stn,ipkon,inum,kon,lakon,nfield,nk,
[all …]
|
| H A D | calcstabletimeinccont.f | 19 subroutine calcstabletimeinccont(ne,lakon,kon,ipkon,mi, argument
37 integer j,ne,nope,kon(*),ipkon(*),indexe,nelem, local
93 if(nactdof(j,kon(indexe+indexn)).gt.0)then
95 & adb(nactdof(j,kon(indexe+indexn))))
110 areaslav=springarea(1,kon(indexe+nope+1))
130 do indexn=1,kon(indexe)
134 if(nactdof(j,kon(indexe+indexn)).gt.0)then
136 & adb(nactdof(j,kon(indexe+indexn))))
148 springms=springms/(kon(indexe)-nopem)
151 areaslav=springarea(1,kon(1+indexe+kon(indexe)))
|
| H A D | genadvecelem.f | 19 subroutine genadvecelem(inodesd,ipkon,ne,lakon,kon,nload, argument
30 integer inodesd(*),nnodesd,ipkon(*),ne,i,j,indexe,node,id,kon(*),
80 node=kon(indexe+j)
152 nodef(k)=kon(indexe+ifacet(k,jface))
157 nodef(k)=kon(indexe+ifacew1(k,jface))
161 nodef(k)=kon(indexe+ifacew2(k,jface))
166 nodef(k)=kon(indexe+ifaceq(k,jface))
171 kon(nkon+k)=nodef(k)
174 kon(nkon)=node
|
| H A D | getuncrackedresults.c | 166 NNEW(kon,ITG,20*ne); in getuncrackedresults()
193 RENEW(kon,ITG,nkon); in getuncrackedresults()
219 nodes[0]=kon[indexe+i1[4*j]]; in getuncrackedresults()
235 nodes[0]=kon[indexe+i2[4*j]]; in getuncrackedresults()
250 nodes[0]=kon[indexe+1]; in getuncrackedresults()
251 nodes[1]=kon[indexe+2]; in getuncrackedresults()
252 nodes[2]=kon[indexe+3]; in getuncrackedresults()
253 nodes[3]=kon[indexe+4]; in getuncrackedresults()
265 nodes[0]=kon[indexe+i4[4*j]]; in getuncrackedresults()
281 nodes[0]=kon[indexe+i5[4*j]]; in getuncrackedresults()
[all …]
|
| H A D | initialnet.f | 143 node1=kon(index+1)
144 node2=kon(index+3)
291 node1=kon(index+1)
292 node2=kon(index+3)
352 node1=kon(index+1)
353 nodem=kon(index+2)
354 node2=kon(index+3)
467 node11=kon(index1+1)
468 node21=kon(index1+3)
472 node12=kon(index2+1)
[all …]
|
| /dports/emulators/quasi88/quasi88-0.6.4/src/CLASSIC/ |
| H A D | event.c | 427 case 0x12: if (kon[0]) { kon[0] = 0; quasi88_key_released(KEY88_F1); } break; /* Cmd + 1 */ in event_update()
428 case 0x13: if (kon[1]) { kon[1] = 0; quasi88_key_released(KEY88_F2); } break; /* Cmd + 2 */ in event_update()
429 case 0x14: if (kon[2]) { kon[2] = 0; quasi88_key_released(KEY88_F3); } break; /* Cmd + 3 */ in event_update()
430 case 0x15: if (kon[3]) { kon[3] = 0; quasi88_key_released(KEY88_F4); } break; /* Cmd + 4 */ in event_update()
431 case 0x17: if (kon[4]) { kon[4] = 0; quasi88_key_released(KEY88_F5); } break; /* Cmd + 5 */ in event_update()
432 case 0x08: if (kon[5]) { kon[5] = 0; quasi88_key_released(KEY88_COPY); } break; /* Cmd + C */ in event_update()
433 case 0x01: if (kon[6]) { kon[6] = 0; quasi88_key_released(KEY88_STOP); } break; /* Cmd + S */ in event_update()
434 case 0x04: if (kon[7]) { kon[7] = 0; quasi88_key_released(KEY88_HELP); } break; /* Cmd + H */ in event_update()
436 case 0x3e: if (kon[8]) { kon[8] = 0; quasi88_key_released(KEY88_ROLLUP); } break; /* Cmd +�� */ in event_update()
438 case 0x3d: if (kon[9]) { kon[9] = 0; quasi88_key_released(KEY88_ROLLDOWN); } break; /* Cmd +�� */ in event_update()
[all …]
|