fcrs.c File Reference

#include <stdio.h>
#include <stddef.h>
#include <stdlib.h>
#include <string.h>
#include "c99.h"
#include "name.h"
#include "fail.h"
#include "types.h"
#include "mem.h"
#include "comm.h"
#include "crs.h"

Include dependency graph for fcrs.c:

Go to the source code of this file.

Macros
#define	ccrs_setup   PREFIXED_NAME(crs_setup)
#define	ccrs_solve   PREFIXED_NAME(crs_solve)
#define	ccrs_stats   PREFIXED_NAME(crs_stats)
#define	ccrs_free   PREFIXED_NAME(crs_free )
#define	fcrs_setup   FORTRAN_NAME(crs_setup,CRS_SETUP)
#define	fcrs_solve   FORTRAN_NAME(crs_solve,CRS_SOLVE)
#define	fcrs_stats   FORTRAN_NAME(crs_stats,CRS_STATS)
#define	fcrs_free   FORTRAN_NAME(crs_free ,CRS_FREE)
#define	CHECK_HANDLE(func)

Functions
void	fcrs_setup (sint *handle, const MPI_Fint *comm, const sint *np, const sint *n, const slong id[], const sint *nz, const sint Ai[], const sint Aj[], const double A[], const sint *null_space)
void	fcrs_solve (const sint *handle, double x[], double b[])
void	fcrs_stats (const sint *handle)
void	fcrs_free (sint *handle)

Variables
static struct crs_data **	handle_array = 0
static int	handle_max = 0
static int	handle_n = 0

Macro Definition Documentation

#define ccrs_free   PREFIXED_NAME(crs_free )

Definition at line 24 of file fcrs.c.

Referenced by fcrs_free().

#define ccrs_setup   PREFIXED_NAME(crs_setup)

Definition at line 21 of file fcrs.c.

Referenced by fcrs_setup().

#define ccrs_solve   PREFIXED_NAME(crs_solve)

Definition at line 22 of file fcrs.c.

Referenced by fcrs_solve().

#define ccrs_stats   PREFIXED_NAME(crs_stats)

Definition at line 23 of file fcrs.c.

Referenced by fcrs_stats().

#define CHECK_HANDLE

(

func

)

Value:

do \
  if(*handle<0 || *handle>=handle_n || !handle_array[*handle]) \
    fail(1,__FILE__,__LINE__,func ": invalid handle"); \
while(0)

Definition at line 52 of file fcrs.c.

Referenced by fcrs_free(), fcrs_solve(), and fcrs_stats().

#define fcrs_free   FORTRAN_NAME(crs_free ,CRS_FREE)

Definition at line 29 of file fcrs.c.

#define fcrs_setup   FORTRAN_NAME(crs_setup,CRS_SETUP)

Definition at line 26 of file fcrs.c.

#define fcrs_solve   FORTRAN_NAME(crs_solve,CRS_SOLVE)

Definition at line 27 of file fcrs.c.

#define fcrs_stats   FORTRAN_NAME(crs_stats,CRS_STATS)

Definition at line 28 of file fcrs.c.

Function Documentation

void fcrs_free

(

sint *

handle

)

Definition at line 69 of file fcrs.c.

References ccrs_free, CHECK_HANDLE, and handle_array.

void fcrs_setup	(	sint *	handle,
		const MPI_Fint *	comm,
		const sint *	np,
		const sint *	n,
		const slong	id[],
		const sint *	nz,
		const sint	Ai[],
		const sint	Aj[],
		const double	A[],
		const sint *	null_space
	)

Definition at line 35 of file fcrs.c.

References ccrs_setup, comm_free(), comm_init_check, handle_array, handle_max, handle_n, trealloc, uint, and ulong.

Here is the call graph for this function:

void fcrs_solve	(	const sint *	handle,
		double	x[],
		double	b[]
	)

Definition at line 57 of file fcrs.c.

References ccrs_solve, CHECK_HANDLE, and handle_array.

void fcrs_stats

(

const sint *

handle

)

Definition at line 63 of file fcrs.c.

References ccrs_stats, CHECK_HANDLE, and handle_array.

Variable Documentation

struct crs_data** handle_array = 0

static

Definition at line 31 of file fcrs.c.

Referenced by fcrs_free(), fcrs_setup(), fcrs_solve(), and fcrs_stats().

int handle_max = 0

static

Definition at line 32 of file fcrs.c.

Referenced by fcrs_setup().

int handle_n = 0

static

Definition at line 33 of file fcrs.c.

Referenced by fcrs_setup().