| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | gen3dmpc.f | 41 do i=1,nmpc
128 nmpc=nmpc+1
136 do j=nmpc,id+2,-1
141 ilmpc(id+1)=nmpc
183 nmpc=nmpc+1
228 nmpc=nmpc+1
236 do j=nmpc,id+2,-1
241 ilmpc(id+1)=nmpc
286 nmpc=nmpc+1
334 nmpc=nmpc+1
[all …]
|
| H A D | distributingcouplings.f | 147 nmpc=nmpc+1
160 do j=nmpc,id+2,-1
165 ilmpc(id+1)=nmpc
239 nmpc=nmpc+1
302 indexm=ipompc(nmpc)
317 nmpc=nmpc+1
318 if(nmpc.gt.nmpc_) then
324 ipompc(nmpc)=mpcfree
326 ipompc(nmpc)=mpcfree
330 do j=nmpc,id+2,-1
[all …]
|
| H A D | usermpc.f | 68 nmpc=nmpc+1
74 ipompc(nmpc)=mpcfree
75 labmpc(nmpc)=label
82 do l=nmpc,id+2,-1
87 ilmpc(id+1)=nmpc
186 index=ipompc(nmpc)
206 index=ipompc(nmpc)
221 index=ipompc(nmpc)
412 ipompc(nmpc)=0
431 nmpc=nmpc-1
[all …]
|
| H A D | gen3dsurf.f | 89 nmpc=nmpc+1
96 ipompc(nmpc)=mpcfree
97 do j=nmpc,id+2,-1
102 ilmpc(id+1)=nmpc
143 nmpc=nmpc+1
150 ipompc(nmpc)=mpcfree
151 do j=nmpc,id+2,-1
156 ilmpc(id+1)=nmpc
218 nmpc=nmpc+1
226 do j=nmpc,id+2,-1
[all …]
|
| H A D | gen3dconnect.f | 113 nmpc=nmpc+1
120 ipompc(nmpc)=mpcfree
121 do j=nmpc,id+2,-1
126 ilmpc(id+1)=nmpc
168 nmpc=nmpc+1
175 ipompc(nmpc)=mpcfree
176 do j=nmpc,id+2,-1
181 ilmpc(id+1)=nmpc
227 nmpc=nmpc+1
235 do j=nmpc,id+2,-1
[all …]
|
| H A D | mpcadd.f | 58 nmpc=nmpc+1
59 if(nmpc.gt.nmpc_) then
63 labmpc(nmpc)=label
64 ipompc(nmpc)=mpcfree
65 do j=nmpc,id+2,-1
70 ilmpc(id+1)=nmpc
120 nmpc=nmpc+1
125 labmpc(nmpc)=label
126 ipompc(nmpc)=mpcfree
127 do j=nmpc,id+2,-1
[all …]
|
| H A D | mpcrem.f | 19 subroutine mpcrem(i,mpcfree,nodempc,nmpc,ikmpc,ilmpc,labmpc, argument
28 integer nodempc(3,*),node,nmpc,i,j,index,mpcfree,mpcfreeold, local
39 call nident(ikmpc,idof,nmpc,id)
59 nmpc=nmpc-1
63 do j=id,nmpc
67 ikmpc(nmpc+1)=0
68 ilmpc(nmpc+1)=0
72 do j=i,nmpc
76 ipompc(nmpc+1)=0
80 do j=1,nmpc
|
| H A D | gen3dboun.f | 519 nmpc=nmpc+1
970 nmpc=nmpc+1
1033 nmpc=nmpc+1
1046 ilmpc(id+1)=nmpc
1084 nmpc=nmpc+1
1097 ilmpc(id+1)=nmpc
1130 nmpc=nmpc+1
1178 nmpc=nmpc+1
1191 ilmpc(id+1)=nmpc
1236 nmpc=nmpc+1
[all …]
|
| H A D | selectcyclicsymmetrymodess.f | 242 nmpc=nmpc+1
243 ipompc(nmpc)=mpcfree
248 do j=nmpc,id+2,-1
253 ilmpc(id+1)=nmpc
323 nmpc=nmpc+1
324 ipompc(nmpc)=mpcfree
329 do j=nmpc,id+2,-1
334 ilmpc(id+1)=nmpc
386 nmpc=nmpc+1
392 do j=nmpc,id+2,-1
[all …]
|
| H A D | generatecycmpcs.f | 247 nmpc=nmpc+1
258 ipompc(nmpc)=mpcfree
262 do j=nmpc,id+2,-1
267 ilmpc(id+1)=nmpc
315 nmpc=nmpc+1
326 ipompc(nmpc)=mpcfree
339 do j=nmpc,id+2,-1
344 ilmpc(id+1)=nmpc
385 nmpc=nmpc+1
417 do j=nmpc,id+2,-1
[all …]
|
| H A D | gen3dmembrane.f | 19 subroutine gen3dmembrane(ipompc,nodempc,coefmpc,nmpc,nmpc_, argument
29 integer ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree, local
54 call nident(ikmpc,idof,nmpc,id)
56 nmpc=nmpc+1
57 if(nmpc.gt.nmpc_) then
62 labmpc(nmpc)=' '
63 ipompc(nmpc)=mpcfree
64 do j=nmpc,id+2,-1
69 ilmpc(id+1)=nmpc
|
| H A D | equations.f | 56 do j=1,nmpc
71 nmpc=0
85 do i=1,nmpc
261 nmpc=nmpc+1
262 if(nmpc.gt.nmpc_) then
269 ipompc(nmpc)=mpcfree
277 & nmpc
358 do j=nmpc,id+2,-1
363 ilmpc(id+1)=nmpc
413 do j=nmpc,id+2,-1
[all …]
|
| H A D | couplings.f | 337 nmpc=nmpc+1
347 ipompc(nmpc)=mpcfree
351 do l=nmpc,id+2,-1
356 ilmpc(id+1)=nmpc
716 nmpc=nmpc+1
791 nmpc=nmpc+1
802 do j=nmpc,id+2,-1
807 ilmpc(id+1)=nmpc
915 nmpc=nmpc+1
994 nmpc=nmpc+1
[all …]
|
| H A D | interpolcycsymcfd.c | 76 (*nmpc)++; in interpolcycsymcfd()
84 ilmpc[id]=*nmpc; in interpolcycsymcfd()
144 (*nmpc)++; in interpolcycsymcfd()
145 ipompc[*nmpc-1]=*mpcfree; in interpolcycsymcfd()
147 for(k=*nmpc-1;k>id;k--){ in interpolcycsymcfd()
152 ilmpc[id]=*nmpc; in interpolcycsymcfd()
239 (*nmpc)++; in interpolcycsymcfd()
247 ilmpc[id]=*nmpc; in interpolcycsymcfd()
307 (*nmpc)++; in interpolcycsymcfd()
310 for(k=*nmpc-1;k>id;k--){ in interpolcycsymcfd()
[all …]
|
| H A D | networkmpcs.f | 20 & nmpc,nmpc_,mpcfree,nk,ikmpc,ilmpc, argument
32 integer ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree,istep,istat, local
72 nmpc=nmpc+1
73 if(nmpc.gt.nmpc_) then
79 labmpc(nmpc)(1:7)='NETWORK'
80 labmpc(nmpc)(8:20)=type(1:13)
81 ipompc(nmpc)=mpcfree
89 & '*ERROR reading *NETWORK MPC: mpc definition ',nmpc
144 call nident(ikmpc,idof,nmpc-1,id)
153 do j=nmpc,id+2,-1
[all …]
|
| H A D | gen3dforc.f | 527 nmpc=nmpc+1
542 ilmpc(id+1)=nmpc
737 nmpc=nmpc+1
745 do k=nmpc,id+2,-1
750 ilmpc(id+1)=nmpc
834 nmpc=nmpc+1
842 do k=nmpc,id+2,-1
847 ilmpc(id+1)=nmpc
898 nmpc=nmpc+1
906 do j=nmpc,id+2,-1
[all …]
|
| H A D | gen3dtruss.f | 67 call nident(ikmpc,idof,nmpc,id)
69 nmpc=nmpc+1
70 if(nmpc.gt.nmpc_) then
75 labmpc(nmpc)=' '
76 ipompc(nmpc)=mpcfree
77 do j=nmpc,id+2,-1
82 ilmpc(id+1)=nmpc
140 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,
155 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,
164 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,
[all …]
|
| H A D | pretensionsections.f | 316 nmpc=nmpc+1
328 do j=nmpc,id+2,-1
333 ilmpc(id+1)=nmpc
664 nmpc=nmpc+1
676 do j=nmpc,id+2,-1
681 ilmpc(id+1)=nmpc
754 nmpc=nmpc+1
841 nmpc=nmpc+1
850 mpcpret=nmpc
879 nmpc=nmpc+1
[all …]
|
| H A D | createinterfacempcs.f | 20 & ikmpc,ilmpc,nmpc,ipompc,nodempc,coefmpc,labmpc,mpcfree,ikboun, argument
25 integer imastnode(*),nmastnode,ikmpc(*),ilmpc(*),nmpc, local
48 call nident(ikmpc,idof,nmpc,id)
60 nmpc=nmpc+1
61 labmpc(nmpc)=' '
62 ipompc(nmpc)=mpcfree
66 do m=nmpc,id+2,-1
71 ilmpc(id+1)=nmpc
|
| H A D | genmpc.f | 20 & ipompc,nodempc,coefmpc,nmpc,nmpc_,labmpc,mpcfree,ikmpc,
35 & node,i,j,k,m,ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree, local
89 call nident(ikmpc,idof,nmpc,id)
101 nmpc=nmpc+1
103 if(nmpc.gt.nmpc_) then
110 labmpc(nmpc)='RM '
111 ipompc(nmpc)=mpcfree
115 do m=nmpc,id+2,-1
120 ilmpc(id+1)=nmpc
|
| H A D | beammpc.f | 20 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,nk,nk_,nodeboun,ndirboun, argument
34 integer ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree,nk,nk_,ikmpc(*), local
71 call nident(ikmpc,idof,nmpc,id)
81 nmpc=nmpc+1
82 if(nmpc.gt.nmpc_) then
87 ipompc(nmpc)=mpcfree
88 labmpc(nmpc)='BEAM '
90 do m=nmpc,id+2,-1
95 ilmpc(id+1)=nmpc
|
| H A D | straightmpc.f | 20 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,nk,nk_,nodeboun,ndirboun, argument
34 integer ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree,nk,nk_, local
67 call nident(ikmpc,idof,nmpc,id)
77 nmpc=nmpc+1
78 if(nmpc.gt.nmpc_) then
83 ipompc(nmpc)=mpcfree
84 labmpc(nmpc)='STRAIGHT '
86 do l=nmpc,id+2,-1
91 ilmpc(id+1)=nmpc
|
| H A D | equationfs.f | 20 & nmpc,nmpc_,mpcfree,co,trab,ntrans,ikmpc,ilmpc,
81 nmpc=nmpc+1
82 if(nmpc.gt.nmpc_) then
88 labmpc(nmpc)='FLUID '
89 ipompc(nmpc)=mpcfree
97 & nmpc
193 call nident(ikmpc,idof,nmpc-1,id)
202 do j=nmpc,id+2,-1
207 ilmpc(id+1)=nmpc
314 do j=nmpc,id+2,-1
[all …]
|
| H A D | changedepterm.f | 19 subroutine changedepterm(ikmpc,ilmpc,nmpc,mpc,idofrem,idofins) argument
25 integer ikmpc(*),ilmpc(*),nmpc,idofrem,idofins,id,k,mpc local
29 call nident(ikmpc,idofrem,nmpc,id)
32 do k=id+1,nmpc
49 call nident(ikmpc,idofins,nmpc-1,id)
57 do k=nmpc,id+2,-1
|
| H A D | rigidmpc.f | 20 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,nk,nk_,nodeboun,ndirboun,
31 integer ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree,nk,nk_,
51 call nident(ikmpc,idof,nmpc,id)
57 nmpc=nmpc+1
58 if(nmpc.gt.nmpc_) then
63 ipompc(nmpc)=mpcfree
64 labmpc(nmpc)='RIGID '
66 do l=nmpc,id+2,-1
71 ilmpc(id+1)=nmpc
|