Lines Matching refs:pdbfile
103 my $pdbfile = "$pdbdir/$file-Sheet$i.pdb";
107 if (-f "$pdbfile.old")
109 print "Removing $pdbfile.old\n";
110 `/bin/rm -f $pdbfile.old`;
113 print "Moving $pdbfile file to $pdbfile.old\n";
114 `mv "$pdbfile" "$pdbfile.old"`;
178 my $pdbfile = $_[2];
187 my @args = split(/ /,$pdbfile);
193 print "\nERROR, file $pdbfile does not exist\n";
223 &start_rd($convert_from, $extension, $pdbfile,
239 &start_rd($convert_from, $extension, $pdbfile, "");