Commit 6817666b authored by Uliana Alekseeva's avatar Uliana Alekseeva

inpgen updated for >999 atoms

parent e1819a62
......@@ -134,8 +134,8 @@
DO n = 1, natin
DO i = n+1, natin
IF ( all( abs( pos(:,n) - pos(:,i) ) < eps7 ) ) then
WRITE(6,'(/," Error in atomic positions: atoms",i3,
& " and",i3," (at least) are the same")') n,i
WRITE(6,'(/," Error in atomic positions: atoms",i5,
& " and",i5," (at least) are the same")') n,i
CALL juDFT_error("atom positions",calledby="spg_gen")
ENDIF
ENDDO
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment