2
#include<libipv1/ip_lib.h>
4
#include<libciomr/libciomr.h>
5
#include<libint/libint.h>
12
#include"compute_scf_opdm.h"
13
#include"read_gen_opdm.h"
14
#include"enuc_deriv1.h"
16
#include"te_deriv1_scf.h"
17
#include"te_deriv1_corr.h"
18
#include"symmetrize_deriv1.h"
22
pthread_mutex_t deriv1_mutex;
27
/*--- Gradient in the canonical frame ---*/
28
Grad = block_matrix(Molecule.num_atoms,3);
30
if (Molecule.num_atoms != 0) {
31
if (!strcmp(UserOptions.wfn,"SCF")) {
39
if (!strcmp(UserOptions.wfn,"SCF"))
45
if (!strcmp(UserOptions.wfn,"SCF"))
50
chkpt_wt_grad(Grad[0]);