Changeset 6b937bd for molecuilder/src/config.cpp
- Timestamp:
- Oct 19, 2009, 1:09:29 PM (16 years ago)
- Children:
- 3b0ba2
- Parents:
- 99bed3
- File:
-
- 1 edited
-
molecuilder/src/config.cpp (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
molecuilder/src/config.cpp
r99bed3 r6b937bd 9 9 #include "element.hpp" 10 10 #include "helpers.hpp" 11 #include "molecule.hpp" 11 12 #include "memoryallocator.hpp" 12 13 #include "molecule.hpp" … … 1444 1445 bool config::SaveMPQC(const char *filename, molecule *mol) const 1445 1446 { 1446 int ElementNo = 0;1447 1447 int AtomNo; 1448 atom *Walker = NULL;1449 element *runner = NULL;1450 1448 Vector *center = NULL; 1451 1449 ofstream *output = NULL; … … 1475 1473 center = mol->DetermineCenterOfAll(output); 1476 1474 // output of atoms 1477 runner = mol->elemente->start; 1478 while (runner->next != mol->elemente->end) { // go through every element 1479 runner = runner->next; 1480 if (mol->ElementsInMolecule[runner->Z]) { // if this element got atoms 1481 ElementNo++; 1482 AtomNo = 0; 1483 Walker = mol->start; 1484 while (Walker->next != mol->end) { // go through every atom of this element 1485 Walker = Walker->next; 1486 if (Walker->type == runner) { // if this atom fits to element 1487 AtomNo++; 1488 *output << "\t\t" << Walker->type->symbol << " [ " << Walker->x.x[0]-center->x[0] << "\t" << Walker->x.x[1]-center->x[1] << "\t" << Walker->x.x[2]-center->x[2] << " ]" << endl; 1489 } 1490 } 1491 } 1492 } 1475 AtomNo = 0; 1476 mol->ActOnAllAtoms( &atom::OutputMPQCLine, output, center, &AtomNo ); 1493 1477 delete(center); 1494 1478 *output << "\t}" << endl; … … 1524 1508 center = mol->DetermineCenterOfAll(output); 1525 1509 // output of atoms 1526 runner = mol->elemente->start; 1527 while (runner->next != mol->elemente->end) { // go through every element 1528 runner = runner->next; 1529 if (mol->ElementsInMolecule[runner->Z]) { // if this element got atoms 1530 ElementNo++; 1531 AtomNo = 0; 1532 Walker = mol->start; 1533 while (Walker->next != mol->end) { // go through every atom of this element 1534 Walker = Walker->next; 1535 if (Walker->type == runner) { // if this atom fits to element 1536 AtomNo++; 1537 *output << "\t\t" << Walker->type->symbol << " [ " << Walker->x.x[0]-center->x[0] << "\t" << Walker->x.x[1]-center->x[1] << "\t" << Walker->x.x[2]-center->x[2] << " ]" << endl; 1538 } 1539 } 1540 } 1541 } 1510 AtomNo = 0; 1511 mol->ActOnAllAtoms( &atom::OutputMPQCLine, output, center, &AtomNo ); 1542 1512 delete(center); 1543 1513 *output << "\t}" << endl;
Note:
See TracChangeset
for help on using the changeset viewer.
