Searched refs:ikold (Results 1 – 10 of 10) sorted by relevance
41 integer, save :: ikold=0 local137 if (ik .ne. ikold .and. ik .ne. ikold2) then147 if (ik .ne. ikold .and. ik .ne. ikold2) then163 elseif (ik .eq. ikold) then171 if (ik .ne. ikold .and. ik .ne. ikold2) then182 else if (ik .eq. ikold) then294 if (ik .ne. ikold .and. ik .ne. ikold2) then310 else if (ik .eq. ikold) then326 else if (ik .eq. ikold) then365 ikold2=ikold[all …]
148 if (ik_ /= work_wfn%ikold) then158 if (work_wfn%ikold /= 0) then218 if (ik_ /= work_wfn%ikold) then264 work_wfn%ikold = ik_290 if (ik_ /= work_wfn%ikold) then355 dist_ikold(peinf%inode+1) = work_wfn%ikold398 if (ik_ /= work_wfn%ikold) then
193 if(work%ikold.ne.0) then199 if(workq%ikold.ne.0) then
290 if(work%ikold /= 0) then296 if(workq%ikold /= 0) then
633 if (work%ikold .ne. 0) then639 if (workq%ikold .ne. 0) then645 if (workco%ikold .ne. 0) then651 if (workcoq%ikold .ne. 0) then1477 if (work%ikold .ne. 0) then1483 if (workq%ikold .ne. 0) then
326 if(work%ikold.ne.0) then332 if(workq%ikold.ne.0) then
68 if(ik.ne.work%ikold) then97 if(work%ikold.ne.0) then120 if(ik.ne.work%ikold) then174 work%ikold=ik
888 integer :: ikold = 0 component
201 if(work%ikold.ne.0) then207 if(workq%ikold.ne.0) then
358 if(work%ikold.ne.0) then364 if(workq%ikold.ne.0) then