Function close_nhfile

src/files.c:517–531

}

void
close_nhfile(NHFILE *nhfp)
{
    if (nhfp->structlevel && nhfp->fd != -1)
        (void) nhclose(nhfp->fd), nhfp->fd = -1;
    else if (nhfp->fpdef)
        (void) fclose(nhfp->fpdef), nhfp->fpdef = (FILE *) 0;
    if (nhfp->fplog)
        (void) fprintf(nhfp->fplog, "# closing\n");
    if (nhfp->fplog)
        (void) fclose(nhfp->fplog);
    if (nhfp->fpdebug)
        (void) fclose(nhfp->fpdebug);
    free_nhfile(nhfp);
}

void
rewind_nhfile(NHFILE *nhfp)