4
void FDD(int i, int C_irr);
5
void WabefDD(int i, int C_irr);
6
void WmnijDD(int i, int C_irr);
7
void WmbejDD(int i, int C_irr);
8
void WmnefDD(int i, int C_irr);
10
/* This function computes the H-bar doubles-doubles block contribution
11
to a Sigma vector stored at Sigma plus 'i' */
13
void sigmaDD(int i, int C_irr) {
16
timer_on("FDD"); FDD(i, C_irr); timer_off("FDD");
17
timer_on("WmnijDD"); WmnijDD(i, C_irr); timer_off("WmnijDD");
18
timer_on("WabefDD"); WabefDD(i, C_irr); timer_off("WabefDD");
19
timer_on("WmbejDD"); WmbejDD(i, C_irr); timer_off("WmbejDD");
20
timer_on("WmnefDD"); WmnefDD(i, C_irr); timer_off("WmnefDD");