3
#include <libciomr/libciomr.h>
8
int dpd_trans4_mat_irrep_close(dpdtrans4 *Trans, int irrep)
10
int h, nirreps, rowtot, coltot, all_buf_irrep;
13
all_buf_irrep = Trans->buf.file.my_irrep;
14
nirreps = Trans->buf.params->nirreps;
15
rowtot = Trans->buf.params->coltot[irrep^all_buf_irrep];
16
coltot = Trans->buf.params->rowtot[irrep];
17
size = ((long) rowtot) * ((long) coltot);
19
/* Free the shift structure for this irrep if used */
20
if(Trans->shift.shift_type) {
21
for(h=0; h < nirreps; h++)
22
if(Trans->shift.rowtot[irrep][h])
23
free(Trans->shift.matrix[irrep][h]);
24
free(Trans->shift.matrix[irrep]);
25
Trans->shift.shift_type = 0;
29
dpd_free_block(Trans->matrix[irrep], rowtot, coltot);