9
#include <libpsio/psio.hpp>
11
#include <libchkpt/chkpt.h>
13
#include <libchkpt/chkpt.hpp>
17
double **Chkpt::rd_cdsalc2cd(void)
19
const int num_cd = 3*rd_natom();
20
double **cdsalc2cd = matrix<double>(num_cd,num_cd);
21
psio_address ptr = PSIO_ZERO;
22
char *keyword = build_keyword("cartdisp->SALC matrix");
24
psio->read(PSIF_CHKPT, keyword, (char *) cdsalc2cd[0],
25
num_cd*num_cd*sizeof(double), ptr, &ptr);
31
void Chkpt::wt_cdsalc2cd(const double **cdsalc2cd)
33
const int num_cd = 3*rd_natom();
34
psio_address ptr = PSIO_ZERO;
35
char *keyword = build_keyword("cartdisp->SALC matrix");
37
psio->write(PSIF_CHKPT, keyword, (char *) cdsalc2cd[0],
38
num_cd*num_cd*sizeof(double), ptr, &ptr);
45
** chkpt_rd_cdsalc2cd(): Read in (normalized) SALCs of cartesian displacements
49
** Returns: cdsalc2cd = A natom*3 by natom*3 blocked matrix of doubles.
50
** Columns correpond to symmetry-blocked SALCs
54
double **chkpt_rd_cdsalc2cd(void)
57
cdsalc2cd = _default_chkpt_lib_->rd_cdsalc2cd();
63
** chkpt_wt_cdsalc2cd(): Writes (normalized) SALCs of cartesian displacements
65
** \param cdsalc2cd = A natom*3 by natom*3 blocked matrix of doubles.
66
** Columns correpond to symmetry-blocked SALCs
72
void chkpt_wt_cdsalc2cd(const double **cdsalc2cd)
74
_default_chkpt_lib_->wt_cdsalc2cd(cdsalc2cd);