-#if 0
- static FILE *fp = NULL;
- char buf[STRLEN];
- int n, i;
-
- if (fp == NULL)
- {
- if (PAR(cr))
- {
- sprintf(buf, "nlist_n%d.txt", cr->nodeid);
- }
- else
- {
- sprintf(buf, "nlist.txt");
- }
- fp = gmx_fio_fopen(buf, "w");
- }
- fprintf(fp, "%s\n", header);
-
- for (n = 0; (n < fr->nnblists); n++)
- {
- for (i = 0; (i < eNL_NR); i++)
- {
- write_nblist(fp, cr->dd, &fr->nblists[n].nlist_sr[i], nDNL);
- }
- }
-#endif
- char buf[STRLEN];