git-svn-id: svn://svn.icms.temple.edu/lammps-ro/trunk@14448 f3b2605a-c512-4ea7-a41b-209d697bcdaa

This commit is contained in:
sjplimp 2016-01-15 15:39:44 +00:00
parent ef6beaad54
commit bfa988207e
2 changed files with 22 additions and 7 deletions

View File

@ -13,6 +13,11 @@ style_kspace.h
style_minimize.h
style_pair.h
style_region.h
# deleted on 15 Jan 2016
pair_line_lj.cpp
pair_line_lj.h
pair_tri_lj.cpp
pair_tri_lj.h
# deleted on 13 May 14
commgrid.cpp
commgrid.h

View File

@ -28,6 +28,8 @@
# 20050630 Fixed symbol issues arising from salt addition
# 20060818 Changed reading of pdb format to read exact columns
# 20070109 Changed AddMass() to use $max_id correctly
# 20160114 Added compatibility for parameter files that use IMPROPERS instead of IMPROPER
# Print warning when not all parameters are detected. Set correct number of atom types.
#
# General Many thanks to Paul S. Crozier for checking script validity
# against his projects.
@ -69,8 +71,8 @@
my $notes;
$program = "charmm2lammps";
$version = "1.8.1";
$year = "2007";
$version = "1.8.2";
$year = "2016";
$add = 0;
$water_dens = 0;
$ions = 0;
@ -508,11 +510,14 @@
sub Markers
{
my %markers;
my $n = 0;
foreach ("NONBONDED", "BONDS", "ANGLES", "DIHEDRALS", "IMPROPER") {
$markers{$_} = $n++; }
my %markers = (
NONBONDED => '0',
BONDS => '1',
ANGLES => '2',
DIHEDRALS => '3',
IMPROPERS => '4',
IMPROPER => '4'
);
return %markers;
}
@ -1380,6 +1385,11 @@
CreateCorrectedPairCoefficients();
for (my $i=0; $i<scalar(@types); ++$i) { $types[$i] = $ids{$types[$i]}; }
$natom_types = WriteParameters(-1); # pairs
if ($#types != $natom_types) {
print "Warning: $#types atom types present, but only $natom_types pair coeffs found\n";
# reset to what is found while determining the number of atom types.
$natom_types = $#types;
}
$natoms = WriteAtoms();
$nbond_types = WriteParameters(0); # bonds
$nbonds = WriteBonded(0);