3
\brief Enter brief description of file here
8
#include <libciomr/libciomr.h>
13
namespace psi { namespace transqt {
15
void destruct_evects(int nirreps, double ***evects);
22
/* Free moinfo Arrays */
31
free(moinfo.order_alpha);
32
free(moinfo.order_beta);
33
free(moinfo.corr2pitz);
34
free(moinfo.corr2pitz_a);
35
free(moinfo.corr2pitz_b);
38
free(moinfo.rstrdocc);
39
free(moinfo.rstruocc);
44
free(moinfo.corr2pitz_nofzv);
45
free(moinfo.corr2pitz_nofzv_a);
46
free(moinfo.corr2pitz_nofzv_b);
48
free(moinfo.first_so);
54
for(i=0; i < moinfo.nirreps; i++)
55
free(moinfo.labels[i]);
57
if(!strcmp(params.ref,"UHF")) {
58
destruct_evects(params.backtr ? moinfo.backtr_nirreps : moinfo.nirreps,
60
destruct_evects(params.backtr ? moinfo.backtr_nirreps : moinfo.nirreps,
64
destruct_evects(params.backtr ? moinfo.backtr_nirreps : moinfo.nirreps,
68
if(!strcmp(params.ref,"UHF")) {
69
free_block(moinfo.scf_vector_alpha);
70
free_block(moinfo.scf_vector_beta);
72
else free_block(moinfo.scf_vector);
73
/* free(moinfo.evals); */
75
if(!strcmp(params.ref,"UHF")) {
76
free(moinfo.fzc_operator_alpha);
77
free(moinfo.fzc_operator_beta);
79
else free(moinfo.fzc_operator);
81
if (params.reorder) free(params.moorder);
82
free(moinfo.backtr_mo_first);
83
free(moinfo.backtr_mo_last);
84
free(moinfo.backtr_mo_fstact);
85
free(moinfo.backtr_mo_lstact);
86
free(moinfo.backtr_mo_orbspi);
87
free(moinfo.backtr_mo_active);
88
free(moinfo.backtr_ao_first);
89
free(moinfo.backtr_ao_last);
90
free(moinfo.backtr_ao_orbspi);
91
free(moinfo.backtr_ao_orbsym);
96
/* Free params Arrays */
100
}} // end namespace psi::transqt