/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 …]
|