abl
fcrs.c File Reference
#include <stdio.h>
#include <stddef.h>
#include <stdlib.h>
#include <string.h>
#include "gslib.h"
#include "crs.h"
+ Include dependency graph for fcrs.c:

Macros

#define ccrs_xxt_setup   PREFIXED_NAME(crs_xxt_setup)
 
#define ccrs_xxt_solve   PREFIXED_NAME(crs_xxt_solve)
 
#define ccrs_xxt_stats   PREFIXED_NAME(crs_xxt_stats)
 
#define ccrs_xxt_free   PREFIXED_NAME(crs_xxt_free )
 
#define ccrs_amg_setup   PREFIXED_NAME(crs_amg_setup)
 
#define ccrs_amg_solve   PREFIXED_NAME(crs_amg_solve)
 
#define ccrs_amg_stats   PREFIXED_NAME(crs_amg_stats)
 
#define ccrs_amg_free   PREFIXED_NAME(crs_amg_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 sint *sid, 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, const double *param, const char *datafname, uint *ierr)
 
void fcrs_solve (const sint *handle, double x[], double b[])
 
void fcrs_free (sint *handle)
 

Macro Definition Documentation

◆ ccrs_amg_free

#define ccrs_amg_free   PREFIXED_NAME(crs_amg_free )

◆ ccrs_amg_setup

#define ccrs_amg_setup   PREFIXED_NAME(crs_amg_setup)

◆ ccrs_amg_solve

#define ccrs_amg_solve   PREFIXED_NAME(crs_amg_solve)

◆ ccrs_amg_stats

#define ccrs_amg_stats   PREFIXED_NAME(crs_amg_stats)

◆ ccrs_xxt_free

#define ccrs_xxt_free   PREFIXED_NAME(crs_xxt_free )

◆ ccrs_xxt_setup

#define ccrs_xxt_setup   PREFIXED_NAME(crs_xxt_setup)

◆ ccrs_xxt_solve

#define ccrs_xxt_solve   PREFIXED_NAME(crs_xxt_solve)

◆ ccrs_xxt_stats

#define ccrs_xxt_stats   PREFIXED_NAME(crs_xxt_stats)

◆ CHECK_HANDLE

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

◆ fcrs_free

#define fcrs_free   FORTRAN_NAME(crs_free ,CRS_FREE)

◆ fcrs_setup

#define fcrs_setup   FORTRAN_NAME(crs_setup,CRS_SETUP)

◆ fcrs_solve

#define fcrs_solve   FORTRAN_NAME(crs_solve,CRS_SOLVE)

◆ fcrs_stats

#define fcrs_stats   FORTRAN_NAME(crs_stats,CRS_STATS)

Function Documentation

◆ fcrs_free()

void fcrs_free ( sint *  handle)

◆ fcrs_setup()

void fcrs_setup ( sint *  handle,
const sint *  sid,
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,
const double *  param,
const char *  datafname,
uint *  ierr 
)

◆ fcrs_solve()

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