4
/* dpd_file2_print(): Prints out data for all irreps of a two-index dpdfile.
7
** struct dpdfile2 *File: A pointer to the dpdfile to be printed.
8
** FILE *outfile: The formatted output file stream.
11
int dpd_file2_print(dpdfile2 *File, FILE *outfile)
16
my_irrep = File->my_irrep;
17
Params = File->params;
19
fprintf(outfile, "\n\tDPD File2: %s\n", File->label);
20
fprintf(outfile, "\tDPD Parameters:\n");
21
fprintf(outfile, "\t------------------\n");
22
fprintf(outfile, "\tpnum = %d qnum = %d irrep = %d \n",
23
Params->pnum, Params->qnum, File->my_irrep);
24
fprintf(outfile, "\tIrreps = %1d\n\n", Params->nirreps);
25
fprintf(outfile, "\t Row and column dimensions for DPD Block:\n");
26
fprintf(outfile, "\t ----------------------------------------\n");
27
for(i=0; i < Params->nirreps; i++)
28
fprintf(outfile, "\t Irrep: %1d row = %5d\tcol = %5d\n", i,
29
Params->rowtot[i], Params->coltot[i^my_irrep]);
32
dpd_file2_mat_init(File);
33
dpd_file2_mat_rd(File);
34
dpd_file2_mat_print(File, outfile);
35
dpd_file2_mat_close(File);