Eigenvalue SoLvers for Petaflop-Applications (ELPA)
2020.11.001
|
#include "config-f90.h"
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <complex.h>
#include "../helpers/scalapack_interfaces.h"
#include <mpi.h>
#include "../general/precision_macros.h"
#include "cannon_forw_template.c"
#include "cannon_back_template.c"
Macros | |
#define | C_INT_TYPE_PTR int* |
#define | C_INT_TYPE int |
#define | BLAS_KIND c_int |
#define | C_INT_MPI_TYPE_PTR int* |
#define | C_INT_MPI_TYPE int |
#define | MPI_KIND c_int |
#define | numroc_ numroc_ |
#define | dlacpy_ dlacpy_ |
#define | slacpy_ slacpy_ |
#define | zlacpy_ zlacpy_ |
#define | clacpy_ clacpy_ |
#define | pdtran_ pdtran_ |
#define | pstran_ pstran_ |
#define | pztranc_ pztranc_ |
#define | pctranc_ pctranc_ |
#define | pdlacpy_ pdlacpy_ |
#define | pslacpy_ pslacpy_ |
#define | pzlacpy_ pzlacpy_ |
#define | pclacpy_ pclacpy_ |
#define | REALCASE 1 |
#define | DOUBLE_PRECISION 1 |
#define | REALCASE 1 |
#define | SINGLE_PRECISION 1 |
#define | COMPLEXCASE 1 |
#define | DOUBLE_PRECISION 1 |
#define | COMPLEXCASE 1 |
#define | SINGLE_PRECISION 1 |
Functions | |
void | cannons_reduction_c_d (double *A, double *U, int local_rowsCast, int local_colsCast, int *a_desc, double *Res, int ToStore, int row_comm, int col_comm) |
void | cannons_triang_rectangular_c_d (double *U, double *B, int local_rowsCast, int local_colsCast, int *u_desc, int *b_desc, double *Res, int row_comm, int col_comm) |
void | cannons_reduction_c_f (float *A, float *U, int local_rowsCast, int local_colsCast, int *a_desc, float *Res, int ToStore, int row_comm, int col_comm) |
void | cannons_triang_rectangular_c_f (float *U, float *B, int local_rowsCast, int local_colsCast, int *u_desc, int *b_desc, float *Res, int row_comm, int col_comm) |
void | cannons_reduction_c_dc (double complex *A, double complex *U, int local_rowsCast, int local_colsCasr, int *a_desc, double complex *Res, int ToStore, int row_comm, int col_comm) |
void | cannons_triang_rectangular_c_dc (double complex *U, double complex *B, int local_rowsCast, int local_colsCast, int *u_desc, int *b_desc, double complex *Res, int row_comm, int col_comm) |
void | cannons_reduction_c_fc (float complex *A, float complex *U, int local_rowsCast, int local_colsCast, int *a_desc, float complex *Res, int ToStore, int row_comm, int col_comm) |
void | cannons_triang_rectangular_c_fc (float complex *U, float complex *B, int local_rowsCast, int local_colsCast, int *u_desc, int *b_desc, float complex *Res, int row_comm, int col_comm) |
#define BLAS_KIND c_int |
#define C_INT_MPI_TYPE int |
#define C_INT_MPI_TYPE_PTR int* |
#define C_INT_TYPE int |
#define C_INT_TYPE_PTR int* |
#define clacpy_ clacpy_ |
#define COMPLEXCASE 1 |
#define COMPLEXCASE 1 |
#define dlacpy_ dlacpy_ |
#define DOUBLE_PRECISION 1 |
#define DOUBLE_PRECISION 1 |
#define MPI_KIND c_int |
#define numroc_ numroc_ |
#define pclacpy_ pclacpy_ |
#define pctranc_ pctranc_ |
#define pdlacpy_ pdlacpy_ |
#define pdtran_ pdtran_ |
#define pslacpy_ pslacpy_ |
#define pstran_ pstran_ |
#define pzlacpy_ pzlacpy_ |
#define pztranc_ pztranc_ |
#define REALCASE 1 |
#define REALCASE 1 |
#define SINGLE_PRECISION 1 |
#define SINGLE_PRECISION 1 |
#define slacpy_ slacpy_ |
#define zlacpy_ zlacpy_ |
void cannons_reduction_c_d | ( | double * | A, |
double * | U, | ||
int | local_rowsCast, | ||
int | local_colsCast, | ||
int * | a_desc, | ||
double * | Res, | ||
int | ToStore, | ||
int | row_comm, | ||
int | col_comm | ||
) |
void cannons_reduction_c_dc | ( | double complex * | A, |
double complex * | U, | ||
int | local_rowsCast, | ||
int | local_colsCasr, | ||
int * | a_desc, | ||
double complex * | Res, | ||
int | ToStore, | ||
int | row_comm, | ||
int | col_comm | ||
) |
void cannons_reduction_c_f | ( | float * | A, |
float * | U, | ||
int | local_rowsCast, | ||
int | local_colsCast, | ||
int * | a_desc, | ||
float * | Res, | ||
int | ToStore, | ||
int | row_comm, | ||
int | col_comm | ||
) |
void cannons_reduction_c_fc | ( | float complex * | A, |
float complex * | U, | ||
int | local_rowsCast, | ||
int | local_colsCast, | ||
int * | a_desc, | ||
float complex * | Res, | ||
int | ToStore, | ||
int | row_comm, | ||
int | col_comm | ||
) |
void cannons_triang_rectangular_c_d | ( | double * | U, |
double * | B, | ||
int | local_rowsCast, | ||
int | local_colsCast, | ||
int * | u_desc, | ||
int * | b_desc, | ||
double * | Res, | ||
int | row_comm, | ||
int | col_comm | ||
) |
void cannons_triang_rectangular_c_dc | ( | double complex * | U, |
double complex * | B, | ||
int | local_rowsCast, | ||
int | local_colsCast, | ||
int * | u_desc, | ||
int * | b_desc, | ||
double complex * | Res, | ||
int | row_comm, | ||
int | col_comm | ||
) |
void cannons_triang_rectangular_c_f | ( | float * | U, |
float * | B, | ||
int | local_rowsCast, | ||
int | local_colsCast, | ||
int * | u_desc, | ||
int * | b_desc, | ||
float * | Res, | ||
int | row_comm, | ||
int | col_comm | ||
) |
void cannons_triang_rectangular_c_fc | ( | float complex * | U, |
float complex * | B, | ||
int | local_rowsCast, | ||
int | local_colsCast, | ||
int * | u_desc, | ||
int * | b_desc, | ||
float complex * | Res, | ||
int | row_comm, | ||
int | col_comm | ||
) |