Searched refs:valueq0 (Results 1 – 3 of 3) sorted by relevance
87 pol%valueq0=0182 if (pol%valueq0/=0 .and. itestq/=pol%valueq0) &184 pol%valueq0=itestq658 pol%need_WFNq = (pol%nq0>0.and.pol%valueq0==1.and.pol%iqexactlyzero==0)&
267 if(pol%nq > 1 .or. pol%valueq0 /= 2) then
465 integer :: valueq0 !< 1=semiconductor (read from WFNq); 2=metal (read from WFN) component