dglprecdelete.c

a software code for computing selected eigenvalues of large sparse symmetric matrices

#include <string.h>
#include <ilupack.h>
#include <ilupackmacros.h>

#define MAX(A,B)   (((A)>=(B))?(A):(B))
#define MIN(A,B)   (((A)<=(B))?(A):(B))

void  dglprecdelete(size_t    *IPdiag) {

  FLOAT *diag;

  memcpy(&diag, IPdiag, sizeof(size_t));

  free(diag);
}