10
#include <libpsio/psio.h>
11
#include <libciomr/libciomr.h>
14
** chkpt_rd_cartrep(): Reads the point group representation in the basis of
15
** cartesian unit vectors.
17
** takes no arguments.
19
** returns: double **cartrep a vector of block matrices of doubles. Each
20
** row corresponds to a particular symmetry operation, each column is
21
** a 3x3 block matrix.
25
double **chkpt_rd_cartrep(void)
31
nirrep = chkpt_rd_nirreps();
34
cartrep = block_matrix(nirrep,9);
36
psio_read_entry(PSIF_CHKPT, "::Cart. Repr. Matrices", (char *) cartrep[0],
37
9*nirrep*sizeof(double));
44
** chkpt_wt_cartrep(): Writes the point group representation in the basis of
45
** cartesian unit vectors.
47
** \param cartrep = a vector of block matrices of doubles. Each row
48
** corresponds to a particular symmetry operation, each
49
** column is a 3x3 block matrix.
55
void chkpt_wt_cartrep(double **cartrep)
60
nirrep = chkpt_rd_nirreps();
63
for(i=0; i < nirrep; i++)
64
psio_write(PSIF_CHKPT, "::Cart. Repr. Matrices", (char *) cartrep[i],
65
9*sizeof(double), ptr, &ptr);