3
\brief Enter brief description of file here
6
#include <libciomr/libciomr.h>
13
int dpd_trans4_mat_irrep_init(dpdtrans4 *Trans, int irrep)
15
int rowtot, coltot, all_buf_irrep;
18
all_buf_irrep = Trans->buf.file.my_irrep;
20
rowtot = Trans->buf.params->coltot[irrep^all_buf_irrep];
21
coltot = Trans->buf.params->rowtot[irrep];
22
size = ((long) rowtot) * ((long) coltot);
24
if(size) Trans->matrix[irrep] = dpd_block_matrix(rowtot,coltot);