fix topology parsing

This commit is contained in:
Diego Ugarte 2018-11-20 06:22:32 +09:00
parent 0d72c3769d
commit 9b401b6ed0
1 changed files with 4 additions and 2 deletions

View File

@ -794,9 +794,11 @@
$ids{$tmp[1]} = $tmp[2];
$masses{$tmp[1]} = $tmp[3];
$max_id = $tmp[1] if ($max_id<$tmp[1]);
} elsif ($read&&($tmp[0] eq "ATOM")) {
# $names{$tmp[1]} = $tmp[4] if ($read&&($tmp[0] eq "MASS"));
#last if ($read&&!scalar(@tmp)); # quit reading
last;
}
# $names{$tmp[1]} = $tmp[4] if ($read&&($tmp[0] eq "MASS"));
last if ($read&&!scalar(@tmp)); # quit reading
}
AddMass(HT, 1.00800);
AddMass(OT, 15.99940);