Fix to error checking in writing .xyz files
This commit is contained in:
parent
1c7c028dd8
commit
fa5047b735
@ -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…
x
Reference in New Issue
Block a user