9
#include <libciomr/libciomr.h>
10
#include <libpsio/psio.h>
13
** chkpt_rd_orbspi(): Reads in the number of molecular orbitals in each irrep.
15
** takes no arguments.
18
** int *orbspi an array which has an element for each irrep of the
19
** point group of the molecule (n.b. not just the ones
20
** with a non-zero number of basis functions). each
21
** element contains the number of molecular orbitals for
22
** that irrep. Also, see chkpt_rd_sopi().
25
int *chkpt_rd_orbspi(void)
30
keyword = chkpt_build_keyword("MO's per irrep");
32
nirreps = chkpt_rd_nirreps();
33
orbspi = init_int_array(nirreps);
35
psio_read_entry(PSIF_CHKPT, keyword, (char *) orbspi, nirreps*sizeof(int));
43
** chkpt_wt_orbspi(): Writes the number of molecular orbitals in each irrep.
45
** \param orbspi = an array which has an element for each irrep of the
46
** point group of the molecule (n.b. not just the ones
47
** with a non-zero number of basis functions). each
48
** element contains the number of molecular orbitals for
49
** that irrep. Also, see chkpt_rd_sopi().
54
void chkpt_wt_orbspi(int *orbspi)
58
keyword = chkpt_build_keyword("MO's per irrep");
60
nirreps = chkpt_rd_nirreps();
62
psio_write_entry(PSIF_CHKPT, keyword, (char *) orbspi, nirreps*sizeof(int));