| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | gen3delem.f | 40 character*8 lakon(*) local
119 if((lakon(i)(1:2).ne.'C3').and.(lakon(i)(1:1).ne.'D').and.
120 & (lakon(i)(1:1).ne.'G').and.(lakon(i)(1:1).ne.'E').and.
298 lakon(i)(1:7)='C3D6 E'
301 lakon(i)(1:7)='C3D8R E'
304 lakon(i)(1:7)='C3D8 E'
307 lakon(i)(1:7)='C3D15 E'
310 lakon(i)(1:7)='C3D20RE'
313 lakon(i)(1:7)='C3D20 E'
316 lakon(i)(1:7)='C3D6 S'
[all …]
|
| H A D | checkinputvaluesnet.f | 35 character*8 lakon(*) local
48 if(lakon(nelem)(2:8).eq.'REBRJI2') then
59 elseif((lakon(nelem)(2:3).eq.'OR').and.
60 & (lakon(nelem)(2:5).ne.'ORC1').and.
61 & (lakon(nelem)(2:5).ne.'ORB1').and.
62 & (lakon(nelem)(2:5).ne.'ORB2').and.
63 & (lakon(nelem)(2:5).ne.'ORBT').and.
64 & (lakon(nelem)(2:5).ne.'ORPN').and.
65 & (lakon(nelem)(2:5).ne.'ORFL'))then
79 if((lakon(nelem)(2:5).ne.'ORC1').and.
[all …]
|
| H A D | changekon.f | 40 character*8 lakon(*) local
55 if(lakon(i)(1:1).ne.'S') cycle
56 if(lakon(i)(8:8).ne.'C') cycle
81 if(lakon(i)(1:5).eq.'C3D8I') then
86 & (lakon(i)(1:4).eq.'CPE8').or.(lakon(i)(1:4).eq.'CPS8').or.
87 & (lakon(i)(1:4).eq.'CAX8').or.(lakon(i)(1:2).eq.'S8')) then
90 & (lakon(i)(1:4).eq.'CPE6').or.(lakon(i)(1:4).eq.'CPS6').or.
91 & (lakon(i)(1:4).eq.'CAX6').or.(lakon(i)(1:2).eq.'S6')) then
93 elseif(lakon(i)(1:1).eq.'B') then
121 if(lakon(i)(8:8).eq.'C') then
[all …]
|
| H A D | getdesiinfo2d.f | 29 character*8 lakon(*)
216 if((lakon(ielem)(7:7).eq.'A').or.
217 & (lakon(ielem)(7:7).eq.'E').or.
218 & (lakon(ielem)(7:7).eq.'L').or.
219 & (lakon(ielem)(7:7).eq.'S')) then
220 if(lakon(ielem)(4:5).eq.'20') then
235 elseif(lakon(ielem)(4:4).eq.'6') then
328 if((lakon(ielem)(7:7).eq.'A').or.
329 & (lakon(ielem)(7:7).eq.'E').or.
330 & (lakon(ielem)(7:7).eq.'L').or.
[all …]
|
| H A D | velinireltoabs.f | 27 character*8 lakon(*) local
71 if(lakon(l)(4:5).eq.'20') then
73 elseif(lakon(l)(4:4).eq.'8') then
75 elseif(lakon(l)(4:5).eq.'10') then
77 elseif(lakon(l)(4:4).eq.'4') then
79 elseif(lakon(l)(4:5).eq.'15') then
81 elseif(lakon(l)(4:4).eq.'6') then
83 elseif(lakon(l)(1:2).eq.'ES') then
87 if(lakon(l)(7:7).ne.'C') then
88 nope=ichar(lakon(l)(8:8))-47
[all …]
|
| H A D | flux.f | 35 character*8 lakon(*) local
46 if((lakon(nelem)(2:4).eq.'ATR')
76 elseif(lakon(nelem)(2:5).eq.'AVLV') then
92 elseif(lakon(nelem)(2:5).eq.'CHAR') then
101 elseif(lakon(nelem)(2:5).eq.'CROS') then
150 elseif(lakon(nelem)(2:4).eq.'LAB') then
159 elseif(lakon(nelem)(2:5).eq.'LIPI') then
177 elseif(lakon(nelem)(2:3).eq.'LP') then
213 elseif(lakon(nelem)(2:3).eq.'OR') then
240 elseif(((lakon(nelem)(2:3).eq.'RE').or.
[all …]
|
| H A D | smalldist.f | 23 character*8 lakon(*) local
54 if(lakon(i)(1:1).eq.'F') cycle
56 if(lakon(i)(4:4).eq.'2') then
57 if((lakon(i)(7:7).eq.'A').or.
58 & (lakon(i)(7:7).eq.'L').or.
59 & (lakon(i)(7:7).eq.'S').or.
83 elseif(lakon(i)(4:4).eq.'8') then
84 if((lakon(i)(7:7).eq.'A').or.
100 elseif(lakon(i)(4:4).eq.'4') then
121 if((lakon(i)(7:7).eq.'A').or.
[all …]
|
| H A D | calcmass.f | 19 subroutine calcmass(ipkon,lakon,kon,co, argument
27 character*8 lakon(*) local
49 if(lakon(nelem)(1:5).eq.'C3D8I') then
51 elseif(lakon(nelem)(4:4).eq.'2') then
53 elseif(lakon(nelem)(4:4).eq.'8') then
57 elseif(lakon(nelem)(4:4).eq.'4') then
61 elseif(lakon(nelem)(4:5).eq.'6') then
69 if(lakon(nelem)(7:8).ne.'LC') then
82 if(lakon(nelem)(4:4).eq.'2') then
153 if(lakon(nelem)(4:5).eq.'8R') then
[all …]
|
| H A D | cattet.f | 28 character*8 lakon(*) local
76 if((lakon(j)(1:4).eq.'C3D4').or.
78 lakon(j)(1:1)='A'
88 lakon(k)(1:1)='C'
94 lakon(k)(1:1)='C'
104 if(lakon(i)(1:5).eq.'C3D8I') then
119 if(lakon(i)(7:7).eq.'C') then
122 nope=ichar(lakon(i)(8:8))-47
156 if(lakon(i)(1:1).eq.char(0)) exit
230 if((lakon(i)(1:4).ne.'C3D4').and.
[all …]
|
| H A D | printoutintfluidfem.f | 33 character*8 lakon(*)
66 if(lakon(nelef)(7:8).ne.'LC') then
72 elseif(lakon(nelef)(4:5).eq.'20') then
189 if(lakon(nelef)(4:5).eq.'8R') then
192 if((lakon(nelef)(8:8).eq.'R').or.
199 elseif((lakon(nelef)(4:4).eq.'8').or.
201 if(lakon(nelef)(7:8).eq.'LC') then
206 elseif(lakon(nelef)(4:4).eq.'2') then
210 elseif(lakon(nelef)(4:4).eq.'4') then
221 mint3d=ichar(lakon(nelef)(6:6))
[all …]
|
| H A D | resultstherm.f | 36 character*8 lakon(*),lakonl local
102 if(lakon(i)(4:5).eq.'20') then
104 elseif(lakon(i)(4:4).eq.'8') then
108 elseif(lakon(i)(4:4).eq.'4') then
112 elseif(lakon(i)(4:4).eq.'6') then
114 elseif((lakon(i)(1:2).eq.'ES').and.(lakon(i)(7:7).ne.'A')) then
119 if(lakon(i)(7:7).eq.'C') then
157 if(lakon(i)(4:5).eq.'8R') then
160 if((lakon(i)(8:8).eq.'R').or.(lakon(i)(8:8).eq.'C')) then
209 lakonl=lakon(i)
[all …]
|
| H A D | jouleheating.f | 28 character*8 lakon(*)
59 if(lakon(nelem)(1:5).eq.'C3D8I') then
61 elseif(lakon(nelem)(4:4).eq.'2') then
63 elseif(lakon(nelem)(4:4).eq.'8') then
67 elseif(lakon(nelem)(4:4).eq.'4') then
71 elseif(lakon(nelem)(4:5).eq.'6') then
85 if(lakon(nelem)(4:5).eq.'8R') then
87 elseif((lakon(nelem)(4:4).eq.'8').or.
90 elseif(lakon(nelem)(4:4).eq.'2') then
94 elseif(lakon(nelem)(4:4).eq.'4') then
[all …]
|
| H A D | zienzhu.f | 19 subroutine zienzhu(co,nk,kon,ipkon,lakon,ne,stn, argument
28 character*8 lakon(*)
74 if(lakon(i)(1:4).eq.'C3D4') then
76 elseif(lakon(i)(1:4).eq.'C3D6') then
78 elseif(lakon(i)(1:4).eq.'C3D8') then
80 elseif(lakon(i)(1:5).eq.'C3D10') then
82 elseif(lakon(i)(1:5).eq.'C3D15') then
84 elseif(lakon(i)(1:5).eq.'C3D20') then
118 if(lakon(ielem)(1:5).eq.'C3D20') then
120 elseif(lakon(ielem)(1:5).eq.'C3D10') then
[all …]
|
| H A D | printoutint.f | 33 character*8 lakon(*)
62 if(lakon(nelel)(7:8).ne.'LC') then
68 elseif(lakon(nelel)(4:5).eq.'20') then
187 if(lakon(nelel)(4:5).eq.'8R') then
190 if((lakon(nelel)(8:8).eq.'R').or.
197 elseif((lakon(nelel)(4:4).eq.'8').or.
199 if(lakon(nelel)(7:8).eq.'LC') then
204 elseif(lakon(nelel)(4:4).eq.'2') then
208 elseif(lakon(nelel)(4:4).eq.'4') then
219 mint3d=ichar(lakon(nelel)(6:6))
[all …]
|
| H A D | genislavelinv.f | 26 & lakon,ipkon,kon,ne,nasym) argument
32 character*8 lakon(*) local
41 if(lakon(i)(1:5).eq.'C3D8I') then
43 elseif(lakon(i)(4:5).eq.'20') then
46 elseif(lakon(i)(4:4).eq.'8') then
48 elseif(lakon(i)(4:5).eq.'10') then
50 elseif(lakon(i)(4:4).eq.'4') then
52 elseif(lakon(i)(4:5).eq.'15') then
54 elseif(lakon(i)(4:4).eq.'6') then
56 elseif((lakon(i)(1:2).eq.'ES').and.(lakon(i)(7:7).ne.'F')) then
[all …]
|
| H A D | printoutelem.f | 31 character*8 lakon(*)
155 if(lakon(nelem)(1:5).eq.'C3D8I') then
157 elseif(lakon(nelem)(4:4).eq.'2') then
159 elseif(lakon(nelem)(4:4).eq.'8') then
163 elseif(lakon(nelem)(4:4).eq.'4') then
167 elseif(lakon(nelem)(4:5).eq.'6') then
175 if(lakon(nelem)(7:8).ne.'LC') then
188 if(lakon(nelem)(4:4).eq.'2') then
269 if(lakon(nelem)(4:5).eq.'8R') then
272 if((lakon(nelem)(8:8).eq.'R').or.
[all …]
|
| H A D | elementpernode.f | 23 character*8 lakon(*) local
36 if(lakon(i)(1:1).eq.'F') cycle
37 if(lakon(i)(4:4).eq.'2') then
39 elseif(lakon(i)(4:4).eq.'8') then
41 elseif(lakon(i)(4:4).eq.'4') then
43 elseif(lakon(i)(4:5).eq.'10') then
45 elseif(lakon(i)(4:4).eq.'6') then
47 elseif(lakon(i)(4:5).eq.'15') then
49 elseif((lakon(i)(1:2).eq.'ES').or.
50 & (lakon(i)(1:2).eq.'ED')) then
[all …]
|
| H A D | orifice.f | 31 character*8 lakon(*) local
73 if(lakon(nelem)(2:5).eq.'ORFL') then
158 if((lakon(nelem)(4:5).ne.'BT').and.
159 & (lakon(nelem)(4:5).ne.'PN').and.
160 & (lakon(nelem)(4:5).ne.'C1').and.
161 & (lakon(nelem)(4:5).ne.'FL') ) then
217 if((lakon(nelem)(2:5).eq.'ORBG')) then
488 if((lakon(nelem)(4:5).ne.'BT').and.
489 & (lakon(nelem)(4:5).ne.'PN').and.
490 & (lakon(nelem)(4:5).ne.'C1')) then
[all …]
|
| H A D | objective_shapeener_tot.f | 25 character*8 lakon(*)
50 if(lakon(ielem)(4:4).eq.'8') then
52 elseif(lakon(ielem)(4:5).eq.'20') then
54 elseif(lakon(ielem)(4:5).eq.'10') then
56 elseif(lakon(ielem)(4:4).eq.'4') then
58 elseif(lakon(ielem)(4:4).eq.'6') then
60 elseif(lakon(ielem)(4:5).eq.'15') then
77 if((lakon(ielem)(7:7).eq.'A').or.
79 & (lakon(ielem)(7:7).eq.'E')) then
93 if((lakon(ielem)(7:7).eq.'A').or.
[all …]
|
| H A D | createmdelem.f | 37 character*8 lakon(*) local
105 if(lakon(i)(1:5).eq.'C3D8I') then
107 elseif(lakon(i)(4:4).eq.'2') then
110 elseif(lakon(i)(4:4).eq.'8') then
112 elseif(lakon(i)(4:5).eq.'10') then
114 elseif(lakon(i)(4:4).eq.'4') then
116 elseif(lakon(i)(4:5).eq.'15') then
118 elseif(lakon(i)(4:4).eq.'6') then
120 elseif(lakon(i)(1:1).eq.'E') then
121 nope=ichar(lakon(i)(8:8))-47
[all …]
|
| H A D | mastruct.c | 75 if(strcmp1(&lakon[8*i],"U")==0){ in mastruct()
81 ndof=lakon[8*i+6]; in mastruct()
82 nope=lakon[8*i+7];} in mastruct()
93 else if (strcmp1(&lakon[8*i],"E")==0){ in mastruct()
104 lakonl[0]=lakon[8*i+7]; in mastruct()
140 else if (strcmp1(&lakon[8*i],"E")==0){ in mastruct()
144 lakonl[0]=lakon[8*i+7]; in mastruct()
318 lakonl[0]=lakon[8*i+7]; in mastruct()
328 ndof=lakon[8*i+6]; in mastruct()
329 nope=lakon[8*i+7]; in mastruct()
[all …]
|
| H A D | totalcontact.f | 26 character*8 lakon(*) local
83 if(lakon(nelems)(4:5).eq.'8R') then
86 elseif(lakon(nelems)(4:4).eq.'8') then
92 elseif(lakon(nelems)(4:5).eq.'20') then
95 elseif(lakon(nelems)(4:5).eq.'10') then
98 elseif(lakon(nelems)(4:4).eq.'4') then
104 elseif(lakon(nelems)(4:4).eq.'6') then
111 elseif(lakon(nelems)(4:5).eq.'15') then
161 if(lakon(nelemm)(4:5).eq.'20') then
224 lakon(nel)(1:7)='ESPRNGC'
[all …]
|
| H A D | resultnet.f | 35 character*8 lakonl,lakon(*)
178 if(lakon(ieg(i))(6:7).eq.'GV') then
219 if((lakon(ieg(i))(6:7).eq.'SG').or.
343 if ((lakon(nelem)(4:5).eq.'ATR').or.
355 if(lakon(nelem)(4:5).ne.'BR') then
522 if(lakon(nelem)(2:3).eq.'RE') then
647 if((lakon(nelem)(2:3).ne.'LP').and.
844 if((lakon(nelem)(2:3).eq.'LI').or.
882 lakonl=lakon(nelem)
1097 if(lakon(nelem)(2:3).eq.'VO') then
[all …]
|
| H A D | solidsections.f | 32 character*8 lakon(*)
163 if((lakon(k)(1:1).eq.'B').or.
164 & (lakon(k)(1:1).eq.'S')) then
196 if((lakon(k)(1:1).eq.'B').or.
197 & (lakon(k)(1:1).eq.'S')) then
290 lakon(ielem)(8:8)='R'
345 if((lakon(k)(1:2).eq.'CP').or.
357 lakon(k)(8:8)='R'
360 if(lakon(k)(4:4).eq.'2') then
445 if(lakon(k)(1:2).eq.'CA') then
[all …]
|
| H A D | normalsonsurface_se.f | 40 character*8 lakon(*) local
144 if((lakon(nelem)(7:7).eq.'A').or.
146 & (lakon(nelem)(7:7).eq.'E')) then
159 elseif(lakon(nelem)(7:7).eq.'L') then
177 if(lakon(nelem)(4:4).eq.'8') then
182 elseif(lakon(nelem)(4:5).eq.'20') then
191 elseif(lakon(nelem)(4:4).eq.'4') then
198 elseif(lakon(nelem)(4:4).eq.'6') then
223 if((lakon(nelem)(7:7).eq.'A').or.
225 & (lakon(nelem)(7:7).eq.'E')) then
[all …]
|