Searched refs:lspatialok (Results 1 – 2 of 2) sorted by relevance
8 subroutine setspatial(na,xa,vecs,rcut,lspatialok) argument60 logical, intent(out) :: lspatialok146 lspatialok = .true.147 if (rcut.lt.1.0d-10) lspatialok = .false.151 if (.not.lspatialok) return
64 logical :: lspatialok240 call setspatial(na_u,xa,ucell,rcmax,lspatialok)241 if (.not.lspatialok) then