Lines Matching refs:lcsyst
56 if(lcsyst.eq.1) then ! set to curl into element all others out
59 elseif(lcsyst.eq.2) then
62 elseif(lcsyst.eq.3) then
65 elseif(lcsyst.eq.4) then
68 elseif(lcsyst.eq.5) then
71 elseif(lcsyst.eq.6) then
91 if (lcsyst .eq. 1) then
93 elseif (lcsyst .eq. 2) then
95 elseif (lcsyst .eq. 3) then
97 elseif (lcsyst .eq. 4) then
99 elseif (lcsyst .eq. 5) then
101 elseif (lcsyst .eq. 6) then
111 ngaussb = nintb(lcsyst)
123 WdetJb(:) = Qwtb(lcsyst,intp) * Wfactor(:)
214 if(lcsyst.eq.1) then ! set to curl into element all others out
217 elseif(lcsyst.eq.2) then
220 elseif(lcsyst.eq.3) then
223 elseif(lcsyst.eq.4) then
226 elseif(lcsyst.eq.5) then
229 elseif(lcsyst.eq.6) then
247 if (lcsyst .eq. 1) then
249 elseif (lcsyst .eq. 2) then
251 elseif (lcsyst .eq. 3) then
253 elseif (lcsyst .eq. 4) then
255 elseif (lcsyst .eq. 5) then
257 elseif (lcsyst .eq. 6) then
267 ngaussb = nintb(lcsyst)
273 WdetJb(:) = Qwtb(lcsyst,intp) * Wfactor(:)