loncom/homework/convertjme.pl - diff

Return to convertjme.pl CVS log

Up to [LON-CAPA] / loncom / homework

version 1.5, 2003/10/18 06:51:08	version 1.6, 2003/10/18 07:16:48
Line 542 sub determine_size {	Line 542 sub determine_size {

sub parse_struct {	sub parse_struct {
my ($struct,$name,$x,$y,$atomA,$atomB,$bondType)=@_;	my ($struct,$name,$x,$y,$atomA,$atomB,$bondType)=@_;
my @JMEstring = split(/ /,$struct);	$struct=~s/^\s*//;
	$struct=~s/\s*$//;
	my @JMEstring = split(/ +/,$struct);
# parse JME string	# parse JME string
my $natoms= shift @JMEstring;	my $natoms= shift @JMEstring;
my $nbonds= shift @JMEstring;	my $nbonds= shift @JMEstring;