Lines Matching refs:lcsyst
157 if (lcsyst .eq. 4) then
165 elseif (lcsyst .eq. 1) then
181 if (lcsyst .eq. 3) then
182 WdetJb = (1 - Qwtb(lcsyst,intp)) / (four*temp)
183 elseif (lcsyst .eq. 4) then
190 WdetJb = Qwtb(lcsyst,intp) / temp
192 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
514 if (lcsyst .eq. 4) then
522 elseif (lcsyst .eq. 1) then
538 if (lcsyst .eq. 3) then
539 WdetJb = (1 - Qwtb(lcsyst,intp)) / (four*temp)
540 elseif (lcsyst .eq. 4) then
541 WdetJb = Qwtb(lcsyst,intp)/ temp
543 WdetJb =Qwtb(lcsyst,intp) / (four*temp)