9
#include <libpsio/psio.h>
12
** chkpt_rd_atom_dummy()
14
** Reads the array of flags which indicate whether the atom in full_geom is dummy
16
** takes no arguments.
18
** returns: atom_dummy = array of integers nallatom long.
22
int* chkpt_rd_atom_dummy(void)
27
keyword = chkpt_build_keyword("Dummy atom flags");
29
num_allatoms = chkpt_rd_nallatom();
30
atom_dummy = (int *) malloc(sizeof(int)*num_allatoms);
32
psio_read_entry(PSIF_CHKPT, keyword, (char *) atom_dummy,
33
num_allatoms*sizeof(int));
41
** chkpt_wt_atom_dummy()
43
** Writes the array of flags which indicate whether the atom in full_geom is dummy
45
** \param atom_dummy = array of integers nallatom long.
51
void chkpt_wt_atom_dummy(int* atom_dummy)
53
int num_allatoms = chkpt_rd_nallatom();
55
keyword = chkpt_build_keyword("Dummy atom flags");
57
psio_write_entry(PSIF_CHKPT, keyword, (char *) atom_dummy,
58
num_allatoms*sizeof(int));