Searched refs:jobtypeeval (Results 1 – 7 of 7) sorted by relevance
172 if(nfq<1 .and. peinf%jobtypeeval==1) call die("Illegal value for nfq in vcoul_generator")200 peinf%jobtypeeval==1 .and. itruncflag/=TRUNC_NONE) then211 if (peinf%jobtypeeval==1 .and. ifirst==1 .and. &357 if (peinf%inode==0 .and. qlen**2<avgcut .and. peinf%jobtypeeval==1) then385 if (ekinx<avgcut .and. peinf%jobtypeeval==1) then516 if ( ekinx.lt.TOL_ZERO .and. peinf%jobtypeeval .eq. 1 ) then569 if ( ekinx .lt. avgcut .and. peinf%jobtypeeval .eq. 1) then 643 if (ekinx<avgcut .and. peinf%jobtypeeval==1) then
62 integer :: jobtypeeval !< Coulomb potential generator component
63 peinf%jobtypeeval = 1
82 peinf%jobtypeeval = 0
41 peinf%jobtypeeval = 0
125 peinf%jobtypeeval = 0
208 peinf%jobtypeeval = 1