3
\brief Enter brief description of file here
6
#include <libciomr/libciomr.h>
11
int dpd_buf4_mat_irrep_row_close(dpdbuf4 *Buf, int irrep)
14
all_buf_irrep = Buf->file.my_irrep;
16
if(Buf->params->coltot[irrep^all_buf_irrep])
17
dpd_free_block(Buf->matrix[irrep], 1, Buf->params->coltot[irrep^all_buf_irrep]);