3
\brief Enter brief description of file here
7
#include <libipv1/ip_lib.h>
8
#include <libciomr/libciomr.h>
10
#include "globaldefs.h"
13
namespace psi { namespace detcas {
18
** This function frees any allocated global variables
27
free(CalcInfo.frozen_docc);
28
free(CalcInfo.frozen_uocc);
29
free(CalcInfo.rstr_docc);
30
free(CalcInfo.rstr_uocc);
31
free(CalcInfo.orbsym);
32
free(CalcInfo.pitz2ci);
33
free(CalcInfo.ci2pitz);
34
free(CalcInfo.ci2relpitz);
37
free(CalcInfo.fstact);
38
free(CalcInfo.lstact);
39
free(CalcInfo.active);
40
free_int_matrix(CalcInfo.ras_opi);
41
free_int_matrix(CalcInfo.fzc_orbs);
42
free_int_matrix(CalcInfo.fzv_orbs);
43
for (i=0; i<MAX_RAS_SPACES; i++)
44
free_int_matrix(CalcInfo.ras_orbs[i]);
45
free(CalcInfo.ras_orbs);
46
for (i=0; i<CalcInfo.nirreps; i++)
47
free(CalcInfo.labels[i]);
49
for (i=0; i<CalcInfo.nirreps; i++) {
50
if (CalcInfo.orbs_per_irr[i])
51
free_block(CalcInfo.mo_coeffs[i]);
53
free(CalcInfo.mo_coeffs);
55
free(CalcInfo.onel_ints);
56
free(CalcInfo.twoel_ints);
57
free_block(CalcInfo.opdm);
59
free_block(CalcInfo.lag);
61
free(CalcInfo.mo_grad);
62
if (CalcInfo.mo_hess_diag != NULL) free(CalcInfo.mo_hess_diag);
63
if (CalcInfo.mo_hess != NULL) free_block(CalcInfo.mo_hess);
64
free(CalcInfo.theta_cur);
65
free(CalcInfo.theta_step);
66
free(CalcInfo.orbs_per_irr);
69
}} // end namespace psi::detcas