Lines Matching refs:lcsyst
60 if (lcsyst .eq. 1) then
84 if (lcsyst .eq. 1) then
85 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
86 elseif (lcsyst .eq. 2) then
87 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
88 elseif (lcsyst .eq. 3) then
89 WdetJb = Qwtb(lcsyst,intp) / (two*temp)
90 elseif (lcsyst .eq. 4) then
91 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
92 elseif (lcsyst .eq. 5) then
93 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
94 elseif (lcsyst .eq. 6) then
95 WdetJb = Qwtb(lcsyst,intp) / (two*temp)