Permalink
Browse files

Use timer_on/timer_off in ccresponse

  • Loading branch information...
robertodr committed Sep 27, 2018
1 parent 5cf1c54 commit 90d5a303bab180ed3eaa6df07dcf5c9642f37adf
@@ -67,7 +67,6 @@ void x_xi1_rohf() {
R_irr = params.R_irr;
G_irr = params.G_irr;
#ifdef DEBUG_XI
x_xi_check("begin xi1");
#endif
@@ -47,8 +47,8 @@ namespace cchbar {
/* function to compute matrix element <Phi_ij^ab|Hbar|0> which equals zero as long as the
T amplitudes were determined by ccenergy with the same H */
void DT2(), FaetT2(void), FmitT2(void), WmnijT2(void), WmbejT2(void);
void BT2(), ZT2(void), FT2(void), ET2(void), CT2(void), dijabT2(void);
void DT2(), FaetT2(), FmitT2(), WmnijT2(), WmbejT2();
void BT2(), ZT2(), FT2(), ET2(), CT2(), dijabT2();
void BT2_AO();
void Z_build();
void status(const char *, std::string);
@@ -92,8 +92,6 @@ PsiReturnType ccresponse(std::shared_ptr<Wavefunction> ref_wfn, Options &options
get_moinfo(ref_wfn);
get_params(ref_wfn, options);
timer_on("ccresponse");
cachefiles = init_int_array(PSIO_MAXUNIT);
if (params.ref == 2) { /*** UHF references ***/
@@ -149,8 +147,6 @@ PsiReturnType ccresponse(std::shared_ptr<Wavefunction> ref_wfn, Options &options
cleanup();
timer_off("ccresponse");
exit_io();
return PsiReturnType::Success;
@@ -159,7 +155,7 @@ PsiReturnType ccresponse(std::shared_ptr<Wavefunction> ref_wfn, Options &options
void init_io() {
int i;
tstart();
timer_on("CCResponse");
for (i = PSIF_CC_MIN; i <= PSIF_CC_MAX; i++) psio_open(i, 1);
@@ -187,7 +183,7 @@ void exit_io() {
for (i = PSIF_CC_TMP; i <= PSIF_CC_TMP11; i++) psio_close(i, 0); /* get rid of TMP files */
for (i = PSIF_CC_TMP11 + 1; i <= PSIF_CC_MAX; i++) psio_close(i, 1);
tstop();
timer_off("CCResponse");
}
void init_ioff() {

0 comments on commit 90d5a30

Please sign in to comment.