CompactSchemeCleanup.c

Go to the documentation of this file.

#include <stdlib.h>
#include <interpolation.h>
#include <mpivars.h>
#include <hypar.h>

int CompactSchemeCleanup(void *s  )
{
  CompactScheme *compact   = (CompactScheme*) s;

  if (compact->A) free(compact->A);
  if (compact->B) free(compact->B);
  if (compact->C) free(compact->C);
  if (compact->R) free(compact->R);

  if (compact->sendbuf) free(compact->sendbuf);
  if (compact->recvbuf) free(compact->recvbuf);

  return(0);
}