3
\brief Enter brief description of file here
10
#include <libciomr/libciomr.h>
11
#include <libpsio/psio.h>
12
#include <libchkpt/chkpt.h>
18
namespace psi { namespace input {
20
void write_scf_calc();
22
/*-----------------------------------------------------------------------------------------------------------------
24
-----------------------------------------------------------------------------------------------------------------*/
26
void write_scf_to_chkpt()
31
chkpt_init(PSIO_OPEN_OLD);
36
chkpt_wt_nsymhf(num_so_typs);
37
chkpt_wt_iopen(iopen);
41
/* write the data out */
55
zero_array = init_array(num_mo*(num_mo+1)/2);
59
chkpt_wt_scf(scf_evect_so);
62
chkpt_wt_evals(zero_array);
65
/* SCF eigenvectors */
66
chkpt_wt_alpha_scf(scf_evect_so_alpha);
67
chkpt_wt_beta_scf(scf_evect_so_beta);
70
chkpt_wt_alpha_evals(zero_array);
71
chkpt_wt_beta_evals(zero_array);
75
if(scf_evect_local != NULL) chkpt_wt_local_scf(scf_evect_local);
77
/* irrep labels for non-empty blocks */
78
chkpt_wt_irr_labs(irr_labels);
81
chkpt_wt_orbspi(orbspi);
83
/* doubly-occupied MOs per block */
84
chkpt_wt_clsdpi(clsdpi);
86
/* singly-occupied MOs per block */
87
chkpt_wt_openpi(openpi);
92
}} // namespace psi::input