9
#include <libpsio/psio.hpp>
11
#include <libchkpt/chkpt.h>
13
#include <libchkpt/chkpt.hpp>
17
double **Chkpt::rd_usotao(void)
20
int num_ao, num_so, i;
23
keyword = build_keyword("SO->AO transmat");
28
usotao = matrix<double>(num_so,num_ao);
32
psio->read(PSIF_CHKPT, keyword, (char *) usotao[i], (int) num_ao*sizeof(double), ptr, &ptr);
38
void Chkpt::wt_usotao(double **usotao)
40
int num_ao, num_so, i;
43
keyword = build_keyword("SO->AO transmat");
50
psio->write(PSIF_CHKPT, keyword, (char *) usotao[i], (int) num_ao*sizeof(double), ptr, &ptr);
57
** chkpt_rd_usotao(): Read in the SO to AO transformation matrix
59
** takes no arguments.
61
** returns: usotao = A num_so by num_ao matrix of doubles
65
double **chkpt_rd_usotao(void)
67
return _default_chkpt_lib_->rd_usotao();
71
** chkpt_wt_usotao(): Writes out the SO to AO transformation matrix
73
** \param usotao = A num_so by num_ao matrix of doubles
79
void chkpt_wt_usotao(double **usotao)
81
_default_chkpt_lib_->wt_usotao(usotao);