29
29
dpd_buf4_init(&L2, CC_LAMBDA, L_irr, 0, 5, 0, 5, 0, "New LIjAb Increment");
30
30
dpd_buf4_axpy(&L2, &newLIjAb, 1);
34
dpd_buf4_sort_axpy(&newLIjAb, CC_TMP0, pqsr, 0, 5, "LIjAb-LIjBa", -1);
35
33
dpd_buf4_close(&newLIjAb);
37
dpd_buf4_init(&L2, CC_TMP0, L_irr, 2, 7, 0, 5, 0, "LIjAb-LIjBa");
35
dpd_buf4_init(&L2, CC_LAMBDA, L_irr, 2, 7, 0, 5, 1, "New LIjAb");
38
36
dpd_buf4_copy(&L2, CC_LAMBDA, "New LIJAB");
39
37
dpd_buf4_copy(&L2, CC_LAMBDA, "New Lijab");