3
\brief Enter brief description of file here
9
int dpd_file2_mat_init(dpdfile2 *File)
13
my_irrep = File->my_irrep;
15
if(File->incore) return 0; /* We've already got the memory */
17
for(h=0; h < File->params->nirreps; h++)
18
File->matrix[h] = dpd_block_matrix(File->params->rowtot[h],
19
File->params->coltot[h^my_irrep]);