3
\brief Enter brief description of file here
11
/* dpd_file4_close(): Closes a four-index dpd file.
14
** dpdfile4 *File: A pointer to the file to be closed.
17
int dpd_file4_close(dpdfile4 *File)
19
dpd_file4_cache_unlock(File);
23
if(!File->incore) free(File->matrix);
24
else File->matrix = NULL;