Fix to error checking in writing .xyz files
This commit is contained in:
parent
1c7c028dd8
commit
fa5047b735
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue