8
#include <libpsio/psio.hpp>
10
#include <libchkpt/chkpt.h>
12
#include <libchkpt/chkpt.hpp>
16
int *Chkpt::rd_ua2a(void)
21
keyword = build_keyword("Unique atom -> full atom map");
23
num_unique_atoms = rd_num_unique_atom();
24
ua2a = array<int>(num_unique_atoms);
26
psio->read_entry(PSIF_CHKPT, keyword, (char *) ua2a, num_unique_atoms*sizeof(int));
32
void Chkpt::wt_ua2a(int *ua2a)
36
keyword = build_keyword("Unique atom -> full atom map");
38
num_unique_atoms = rd_num_unique_atom();
40
psio->write_entry(PSIF_CHKPT, keyword, (char *) ua2a, num_unique_atoms*sizeof(int));
47
** int *chkpt_rd_ua2a()
48
** Reads in a mapping array from the symmetry-unique atom
49
** list to the full atom list
51
** returns: ua2a = Read in an array num_unique_atom long
55
int *chkpt_rd_ua2a(void)
57
return _default_chkpt_lib_->rd_ua2a();
61
** void chkpt_wt_ua2a(int *)
62
** Writes out a mapping array from the symmetry-unique atom
63
** list to the full atom list
65
** \param ua2a = An array num_unique_atom long
69
void chkpt_wt_ua2a(int *ua2a)
71
_default_chkpt_lib_->wt_ua2a(ua2a);