9
#include <libpsio/psio.hpp>
11
#include <libchkpt/chkpt.h>
13
#include <libchkpt/chkpt.hpp>
17
double **Chkpt::rd_fgeom(void)
22
keyword = build_keyword("Full cartesian geometry");
24
nallatom = rd_nallatom();
25
fgeom = matrix<double>(nallatom,3);
27
psio->read_entry(PSIF_CHKPT, keyword, (char *) fgeom[0],
28
(int) 3*nallatom*sizeof(double));
34
void Chkpt::wt_fgeom(double **fgeom)
38
keyword = build_keyword("Full cartesian geometry");
40
nallatom = rd_nallatom();
42
psio->write_entry(PSIF_CHKPT, keyword, (char *) fgeom[0],
43
(int) 3*nallatom*sizeof(double));
50
** chkpt_rd_fgeom(): Reads in full cartesian geometry including dummy atoms
52
** takes no arguments.
53
** returns: double **full_geom;
56
double **chkpt_rd_fgeom(void)
58
return _default_chkpt_lib_->rd_fgeom();
62
** chkpt_wt_fgeom(): Writes out full cartesian geometry including dummy atoms
65
** \param full_geom = Matrix for cartesian coordinates
70
void chkpt_wt_fgeom(double **fgeom)
72
_default_chkpt_lib_->wt_fgeom(fgeom);