2
#include <libciomr/libciomr.h>
7
/* dpd_buf4_mat_irrep_init_block(): Allocates and initializes memory
8
** for a subblock of a matrix for a single irrep of a dpd four-index
12
** dpdbuf4 *Buf: A pointer to the input dpdbuf.
13
** int irrep: The irrep number to be prepared.
14
** int num_pq: The number of rows needed.
18
int dpd_buf4_mat_irrep_init_block(dpdbuf4 *Buf, int irrep, int num_pq)
21
all_buf_irrep = Buf->file.my_irrep;
23
Buf->matrix[irrep] = dpd_block_matrix(num_pq,Buf->params->coltot[irrep^all_buf_irrep]);