From fa5047b7352e687162b627da7f48be9d4d16e5ed Mon Sep 17 00:00:00 2001 From: Alex Selimov Date: Fri, 4 Dec 2020 12:17:09 -0500 Subject: [PATCH] Fix to error checking in writing .xyz files --- src/io.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/io.f90 b/src/io.f90 index 29ac73e..f168a4f 100644 --- a/src/io.f90 +++ b/src/io.f90 @@ -150,7 +150,7 @@ module io outn = outn + 1 end do - if((outn-atom_num) /= atom_num) then + if((outn-node_num) /= atom_num) then print *, "outn", (outn-node_num), " doesn't equal atom_num ", atom_num end if