3
int dpd_file4_mat_irrep_wrt(dpdfile4 *File, int irrep)
5
int rowtot, coltot, my_irrep;
6
psio_address irrep_ptr, next_address;
10
dpd_file4_cache_dirty(File); /* Flag this cache entry for writing */
11
return 0; /* We're keeping this data in core */
14
my_irrep = File->my_irrep;
15
irrep_ptr = File->lfiles[irrep];
16
rowtot = File->params->rowtot[irrep];
17
coltot = File->params->coltot[irrep^my_irrep];
18
size = ((long) rowtot) * ((long) coltot);
21
psio_write(File->filenum, File->label, (char *) File->matrix[irrep][0],
22
size*((long) sizeof(double)), irrep_ptr, &next_address);