utils.c

Go to the documentation of this file.

#include "utils.h"

/* Prototype of the calloc function :        */
/*  void *calloc(size_t nmemb, size_t size); */
void *Calloc(size_t nmemb,size_t size){
  void *ptr;
  PRINT_VERBOSE("->");
  ptr=calloc(nmemb,size);
  assert(ptr != NULL);
  PRINT_DEBUG("Calloc",ptr);
  PRINT_VERBOSE("<-");
  return ptr;
}

/* Prototype of the calloc function :  */
/*  void void *malloc(size_t size);    */
void *Malloc(size_t size){
  void *ptr;
  PRINT_VERBOSE("->");
  ptr=malloc(size);
  assert(ptr != NULL);
  PRINT_DEBUG("Malloc",ptr);
  PRINT_VERBOSE("<-");
  return  ptr;
}

/* Prototype of the free function :  */
/*  void free(void *ptr);            */
void Free(void *ptr){
  PRINT_VERBOSE("->");
  PRINT_DEBUG("Free",ptr);
  free(ptr);
  PRINT_VERBOSE("<-");
}

void FREE(void **ptr){
  PRINT_VERBOSE("->");
  PRINT_DEBUG("FREE",*ptr);
  free(*ptr);
  *ptr==NULL;
  PRINT_VERBOSE("<-");
}

void printDoubleDynArray(double *X,int N,char *Name,char *format,int perline){
  int i;
  PRINT_VERBOSE("->");
  printf("%s =",Name);
  for (i=0;i<N;i++){
    if (i%perline == 0)
      if (i==N-1)
        printf("\n value %d\n",i);
      else
        printf("\n values %d through %d\n",i,MIN(i+perline,N-1));
    printf("  ");
    printf(format,X[i]);
  }
  printf("\n");
  PRINT_VERBOSE("<-");
}

void saveDoubleDynArray(double *X,int N,char *FileName,char *format){
  int i;
  FILE *fid;
  PRINT_VERBOSE("->");
  fid = fopen(FileName,"w");
  assert( fid != NULL);
  for (i=0;i<N;i++){
    fprintf(fid,format,X[i]);
    fprintf(fid,"\n");
  }
  fclose(fid);
  PRINT_VERBOSE("<-");
}

void saveTwoDoubleDynArray(double *X,double *Y,int N,char *FileName,char *format){
  int i;
  FILE *fid;
  PRINT_VERBOSE("->");
  fid = fopen(FileName,"w");
  assert( fid != NULL);
  for (i=0;i<N;i++){
    fprintf(fid,format,X[i],Y[i]);
    fprintf(fid,"\n");
  }
  fclose(fid);
#ifdef VERBOSE
  printf("%sverbose : %s [%s line %d]\n  -> Data save in file %s%s\n",VERBOSECOLOR,__FUNCTION__,__FILE__,__LINE__,FileName,TEXTCOLOR_END);
#endif
  PRINT_VERBOSE("<-");
}