3
\brief Enter brief description of file here
6
#include <libciomr/libciomr.h>
11
int dpd_file4_mat_irrep_row_zero(dpdfile4 *File, int irrep, int row)
15
if(File->incore) return 0; /* Don't do this if the file is in core */
17
my_irrep = File->my_irrep;
19
coltot = File->params->coltot[irrep^my_irrep];
22
zero_arr(File->matrix[irrep][0], coltot);