Lines Matching refs:lakon
19 subroutine jouleheating(ipkon,lakon,kon,co,elcon,nelcon, argument
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
65 elseif(lakon(nelem)(4:5).eq.'10') then
67 elseif(lakon(nelem)(4:4).eq.'4') then
69 elseif(lakon(nelem)(4:5).eq.'15') 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.
88 & (lakon(nelem)(4:6).eq.'20R')) then
90 elseif(lakon(nelem)(4:4).eq.'2') then
92 elseif(lakon(nelem)(4:5).eq.'10') then
94 elseif(lakon(nelem)(4:4).eq.'4') then
96 elseif(lakon(nelem)(4:5).eq.'15') then
98 elseif(lakon(nelem)(4:5).eq.'6') then
105 if(lakon(nelem)(4:5).eq.'8R') then
110 elseif((lakon(nelem)(4:4).eq.'8').or.
111 & (lakon(nelem)(4:6).eq.'20R'))
117 elseif(lakon(nelem)(4:4).eq.'2') then
122 elseif(lakon(nelem)(4:5).eq.'10') then
127 elseif(lakon(nelem)(4:4).eq.'4') then
132 elseif(lakon(nelem)(4:5).eq.'15') then
162 if(lakon(nelem)(4:5).eq.'8 ') then
166 elseif(lakon(nelem)(4:6).eq.'20 ')then
168 elseif(lakon(nelem)(4:6).eq.'10T') then
176 if(lakon(nelem)(4:5).eq.'8 ') then
180 elseif(lakon(nelem)(4:6).eq.'20 ')then
182 elseif(lakon(nelem)(4:6).eq.'10T') then