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
|
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
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue