10
#include <libciomr/libciomr.h>
11
#include <libpsio/psio.h>
14
** chkpt_rd_clsdpi(): Reads in the number of closed-shell orbitals in each
17
** takes no arguments.
20
** int *clsdpi an array which has an element for each irrep of the
21
** point group of the molecule (n.b. not just the ones
22
** with a non-zero number of basis functions). each
23
** element contains the number of closed-shell orbitals for
28
int *chkpt_rd_clsdpi(void)
33
keyword = chkpt_build_keyword("Closed shells per irrep");
35
nirreps = chkpt_rd_nirreps();
36
clsdpi = init_int_array(nirreps);
38
psio_read_entry(PSIF_CHKPT, keyword, (char *) clsdpi,
47
** chkpt_wt_clsdpi(): Writes the number of closed-shell orbitals in each irrep.
49
** \param clsdpi = an array which has an element for each irrep of the
50
** point group of the molecule (n.b. not just the ones
51
** with a non-zero number of basis functions). each
52
** element contains the number of closed-shell orbitals for
59
void chkpt_wt_clsdpi(int *clsdpi)
63
keyword = chkpt_build_keyword("Closed shells per irrep");
65
nirreps = chkpt_rd_nirreps();
67
psio_write_entry(PSIF_CHKPT, keyword, (char *) clsdpi,