eigenIO.c File Reference

#include "eigenIO.h"

Include dependency graph for eigenIO.c:

Go to the source code of this file.

Functions
int	comp (const void *p, const void *q)
int	OutputRealEigenValue (int xNsize, double *ene, char *filename)
int	OutputCmpEigenValue (int xNsize, complex double *ene, char *filename)
int	OutputRealEigenVec (int xNsize, const int nene, double **vec, const int nproc, char *filename)
int	OutputCmpEigenVec (int xNsize, const int nene, complex double **vec, const int nproc, char *filename)
int	InputRealEigenValue (int xNsize, double *ene, char *filename)
int	InputCmpEigenValue (int xNsize, complex double *ene, char *filename)
int	InputRealEigenVec (int xNsize, const int nene, double **vec, const int nproc, char *filename)
int	InputCmpEigenVec (int xNsize, const int nene, complex double **vec, const int nproc, char *filename)

Function Documentation

comp()

int comp	(	const void *	p,
		const void *	q
	)

Definition at line 19 of file eigenIO.c.

Referenced by OutputCmpEigenValue(), and OutputRealEigenValue().

                                       {
  if(*(double *)p > *(double *)q) return 1;
  if(*(double *)p < *(double *)q) return -1;
  return 0;
}

Here is the caller graph for this function:

InputCmpEigenValue()

int InputCmpEigenValue	(	int	xNsize,
		complex double *	ene,
		char *	filename
	)

Definition at line 118 of file eigenIO.c.

                                                                        {
  FILE *fp = NULL;
  int i = 0;

  fp = fopen(filename, "rb+");
  if(fp == NULL) {
    return -1;
  }

  fread(ene, sizeof(complex double), xNsize, fp);

  fclose(fp);

  return 0;
}

InputCmpEigenVec()

int InputCmpEigenVec	(	int	xNsize,
		const int	nene,
		complex double **	vec,
		const int	nproc,
		char *	filename
	)

Definition at line 149 of file eigenIO.c.

                                                                                                        {
  FILE *fp = NULL;

  fp = fopen(filename, "rb+");
  if(fp == NULL) {
    return -1;
  }

  fread(vec[nene], sizeof(complex double), xNsize, fp);

  fclose(fp);

  return 0;
}

InputRealEigenValue()

int InputRealEigenValue	(	int	xNsize,
		double *	ene,
		char *	filename
	)

Definition at line 103 of file eigenIO.c.

                                                                 {
  FILE *fp = NULL;

  fp = fopen(filename, "rb+");
  if(fp == NULL) {
    return -1;
  }

  fread(ene, sizeof(double), xNsize, fp);

  fclose(fp);

  return 0;
}

InputRealEigenVec()

int InputRealEigenVec	(	int	xNsize,
		const int	nene,
		double **	vec,
		const int	nproc,
		char *	filename
	)

Definition at line 134 of file eigenIO.c.

                                                                                                 {
  FILE *fp = NULL;

  fp = fopen(filename, "rb+");
  if(fp == NULL) {
    return -1;
  }

  fread(vec[nene], sizeof(double), xNsize, fp);

  fclose(fp);

  return 0;
}

OutputCmpEigenValue()

int OutputCmpEigenValue	(	int	xNsize,
		complex double *	ene,
		char *	filename
	)

Definition at line 49 of file eigenIO.c.

References comp().

                                                                         {
  FILE *fp = NULL;
  int i;
  double *buffene = (double *) malloc(xNsize * sizeof(double));

  for(i = 0; i < xNsize; i++)
    buffene[i] = creal(ene[i]);

  qsort(buffene, xNsize, sizeof(double), comp);

  fp = fopen(filename, "wb+");
  if(fp == NULL) {
    free(buffene);
    return -1;
  }

  fwrite(buffene, sizeof(double), xNsize, fp);

  fclose(fp);
  free(buffene);

  return 0;
}

Here is the call graph for this function:

OutputCmpEigenVec()

int OutputCmpEigenVec	(	int	xNsize,
		const int	nene,
		complex double **	vec,
		const int	nproc,
		char *	filename
	)

Definition at line 88 of file eigenIO.c.

                                                                                                         {
  FILE *fp = NULL;

  fp = fopen(filename, "wb+");
  if(fp == NULL) {
    return -1;
  }

  fwrite(vec[nene], sizeof(complex double), xNsize, fp);

  fclose(fp);

  return 0;
}

OutputRealEigenValue()

int OutputRealEigenValue	(	int	xNsize,
		double *	ene,
		char *	filename
	)

Definition at line 25 of file eigenIO.c.

References comp().

                                                                  {
  FILE *fp = NULL;
  int i;
  double *buffene = (double *) malloc(xNsize * sizeof(double));

  for(i = 0; i < xNsize; i++)
    buffene[i] = ene[i];

  qsort(buffene, xNsize, sizeof(double), comp);

  fp = fopen(filename, "wb+");
  if(fp == NULL) {
    free(buffene);
    return -1;
  }

  fwrite(buffene, sizeof(double), xNsize, fp);

  fclose(fp);
  free(buffene);

  return 0;
}

Here is the call graph for this function:

OutputRealEigenVec()

int OutputRealEigenVec	(	int	xNsize,
		const int	nene,
		double **	vec,
		const int	nproc,
		char *	filename
	)

Definition at line 73 of file eigenIO.c.

                                                                                                  {
  FILE *fp = NULL;

  fp = fopen(filename, "wb+");
  if(fp == NULL) {
    return -1;
  }

  fwrite(vec[nene], sizeof(double), xNsize, fp);

  fclose(fp);

  return 0;
}