Fix to error checking in writing .xyz files

This commit is contained in:
Alex Selimov 2020-12-04 12:17:09 -05:00
parent 1c7c028dd8
commit fa5047b735

View File

@ -150,7 +150,7 @@ module io
outn = outn + 1 outn = outn + 1
end do 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 print *, "outn", (outn-node_num), " doesn't equal atom_num ", atom_num
end if end if