2
#include <libciomr/libciomr.h>
5
int dpd_file4_mat_irrep_row_close(dpdfile4 *File, int irrep)
9
if(File->incore) return 0; /* We're keeping the data in core */
11
my_irrep = File->my_irrep;
13
if(File->params->coltot[irrep])
14
dpd_free_block(File->matrix[irrep],1,File->params->coltot[irrep^my_irrep]);