def.h

Go to the documentation of this file.

#ifndef DEF_H
#define DEF_H

#include <stdlib.h>
#include <assert.h>
#include <math.h>

#ifndef M_PI
#define M_PI 3.14159265358979323846
#endif
#define PI M_PI 
//3.14159265358979323846
#define orthTol 1e-14

#define CHKERR(ierr) assert(!(ierr))
//#define CHKREQ(ierr) { if (ierr) { return (ierr); } }

#define Malloc(base, nmem, type) { \
  size_t nbytes = (nmem) * sizeof(type); \
  (base) = (type*) malloc(nbytes); \
  if ((base) == NULL) { \
    fprintf(stdout, "EVSL Error: out of memory [%zu bytes asked]\n", nbytes); \
    fprintf(stdout, "Malloc at FILE %s, LINE %d, nmem %zu\n", __FILE__, __LINE__, (size_t) nmem); \
    exit(-1); \
  } \
}

#define Calloc(base, nmem, type) { \
  size_t nbytes = (nmem) * sizeof(type); \
  (base) = (type*) calloc((nmem), sizeof(type)); \
  if ((base) == NULL) { \
    fprintf(stdout, "EVSL Error: out of memory [%zu bytes asked]\n", nbytes); \
    fprintf(stdout, "Calloc at FILE %s, LINE %d, nmem %zu\n", __FILE__, __LINE__, (size_t) nmem); \
    exit(-1); \
  } \
}

#define Realloc(base, nmem, type) {\
  size_t nbytes = (nmem) * sizeof(type); \
  (base) = (type*) realloc((base), nbytes); \
  if ((base) == NULL && nbytes > 0) { \
    fprintf(stdout, "EVSL Error: out of memory [%zu bytes asked]\n", nbytes); \
    fprintf(stdout, "Realloc at FILE %s, LINE %d, nmem %zu\n", __FILE__, __LINE__, (size_t) nmem); \
    exit(-1); \
  } \
}

#define max(a, b) ((a) > (b) ? (a) : (b))

#define min(a, b) ((a) < (b) ? (a) : (b))

#define EVSLFORT(name) name ## _f90_

#define NGS_MAX 2

#define EVSL_Int      int
#define EVSL_Unsigned unsigned

#endif