Lines Matching refs:lcsyst
197 if(lcsyst.eq.1) then ! set to curl into element all others out
200 elseif(lcsyst.eq.2) then
203 elseif(lcsyst.eq.3) then
206 elseif(lcsyst.eq.4) then
209 elseif(lcsyst.eq.5) then
212 elseif(lcsyst.eq.6) then
233 if (lcsyst .eq. 1) then
234 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
235 elseif (lcsyst .eq. 2) then
236 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
237 elseif (lcsyst .eq. 3) then
238 WdetJb = Qwtb(lcsyst,intp) / (two*temp)
239 elseif (lcsyst .eq. 4) then
240 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
241 elseif (lcsyst .eq. 5) then
242 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
243 elseif (lcsyst .eq. 6) then
244 WdetJb = Qwtb(lcsyst,intp) / (two*temp)
846 if (lcsyst .eq. 4) then
854 elseif (lcsyst .eq. 1) then
870 if (lcsyst .eq. 3) then
871 WdetJb = (1 - Qwtb(lcsyst,intp)) / (four*temp)
872 elseif (lcsyst .eq. 4) then
873 WdetJb = Qwtb(lcsyst,intp) / temp
875 WdetJb = Qwtb(lcsyst,intp) / (four*temp)