5
void idx_error(char *message, int p, int q, int r, int s, int pq, int rs,
6
int pq_sym, int rs_sym, FILE *outfile)
9
fprintf(outfile, "\n\tDPD Parameter Error in %s\n", message);
11
"\t-------------------------------------------------\n");
13
"\t p q r s [ pq] [ rs] pq_symm rs_symm\n");
14
fprintf(outfile,"\t%5d %5d %5d %5d [%5d] [%5d] %1d %1d\n", p,q,r,s,
16
exit(PSI_RETURN_FAILURE);