zplrnt.c File Reference

#include "common.h"

Include dependency graph for zplrnt.c:

Go to the source code of this file.

Functions
int	MAGMA_zplrnt (int M, int N, PLASMA_Complex64_t *A, int LDA, unsigned long long int seed)
int	MAGMA_zplrnt_Tile (magma_desc_t *A, unsigned long long int seed)
int	MAGMA_zplrnt_Tile_Async (magma_desc_t *A, unsigned long long int seed, magma_sequence_t *sequence, magma_request_t *request)

---

Detailed Description

MAGMA compute MAGMA is a software package provided by Univ. of Tennessee, Univ. of California Berkeley and Univ. of Colorado Denver, and INRIA Bordeaux Sud-Ouest

Version:

2.3.1

Author:

Mathieu Faverge

Date:

2011-06-01 normal z -> c d s

Definition in file zplrnt.c.

---

Function Documentation

int MAGMA_zplrnt	(	int	M,
		int	N,
		PLASMA_Complex64_t *	A,
		int	LDA,
		unsigned long long int	seed
	)

MAGMA_zplrnt - Generate a random matrix by tiles.

Parameters:

[in]	M	The number of rows of A.
[in]	N	The order of the matrix A. N >= 0.
[out]	A	On exit, The random matrix A generated.
[in]	LDA	The leading dimension of the array A. LDA >= max(1,M).
[in]	seed	The seed used in the random generation.

Returns:

Return values:

MAGMA_SUCCESS	successful exit
<0	if -i, the i-th argument had an illegal value

See also:

MAGMA_zplrnt_Tile

MAGMA_zplrnt_Tile_Async

MAGMA_cplrnt

MAGMA_dplrnt

MAGMA_splrnt

MAGMA_zplghe

MAGMA_zplgsy

Definition at line 58 of file zplrnt.c.

References magma_context_self(), magma_desc_mat_free(), MAGMA_ERR_NOT_INITIALIZED, magma_error, magma_fatal_error, MAGMA_NB, MAGMA_REQUEST_INITIALIZER, magma_sequence_create(), magma_sequence_destroy(), MAGMA_SUCCESS, magma_zdesc_alloc, magma_zooptile2lap, MAGMA_zplrnt_Tile_Async(), max, min, morse_barrier(), and magma_sequence_s::status.

{
    int NB;
    int status;
    magma_context_t *magma;
    magma_sequence_t *sequence = NULL;
    magma_request_t request = MAGMA_REQUEST_INITIALIZER;
    magma_desc_t descA;

    magma = magma_context_self();
    if (magma == NULL) {
        magma_fatal_error("MAGMA_zplrnt", "MAGMA not initialized");
        return MAGMA_ERR_NOT_INITIALIZED;
    }
    /* Check input arguments */
    if (M < 0) {
        magma_error("MAGMA_zplrnt", "illegal value of M");
        return -1;
    }
    if (N < 0) {
        magma_error("MAGMA_zplrnt", "illegal value of N");
        return -2;
    }
    if (LDA < max(1, M)) {
        magma_error("MAGMA_zplrnt", "illegal value of LDA");
        return -4;
    }
    /* Quick return */
    if (min(M, N) == 0)
        return MAGMA_SUCCESS;

    /* Tune NB depending on M, N && NRHS; Set NBNB */
    /* status = magma_tune(MAGMA_FUNC_ZGEMM, M, N, 0); */
    /* if (status != MAGMA_SUCCESS) { */
    /*     magma_error("MAGMA_zplrnt", "magma_tune() failed"); */
    /*     return status; */
    /* } */
    
    /* Set NT */
    NB = MAGMA_NB;
    magma_sequence_create(magma, &sequence);

    magma_zdesc_alloc( descA, NB, NB, LDA, N, 0, 0, N, N, magma_desc_mat_free(&(descA)) );

    /* Call the tile interface */
    MAGMA_zplrnt_Tile_Async( &descA, seed, sequence, &request );

    morse_barrier( magma );
    
    magma_zooptile2lap( descA, A, NB, NB, LDA, N );
    morse_barrier( magma );

    status = sequence->status;
    magma_sequence_destroy(magma, sequence);

    return status;
}

Here is the call graph for this function:

int MAGMA_zplrnt_Tile	(	magma_desc_t *	A,
		unsigned long long int	seed
	)

MAGMA_zplrnt_Tile - Generate a random matrix by tiles. Tile equivalent of MAGMA_zplrnt(). Operates on matrices stored by tiles. All matrices are passed through descriptors. All dimensions are taken from the descriptors.

Parameters:

[in]	A	On exit, The random matrix A generated.
[in]	seed	The seed used in the random generation.

Returns:

Return values:

MAGMA_SUCCESS

successful exit

See also:

MAGMA_zplrnt

MAGMA_zplrnt_Tile_Async

MAGMA_cplrnt_Tile

MAGMA_dplrnt_Tile

MAGMA_splrnt_Tile

MAGMA_zplghe_Tile

MAGMA_zplgsy_Tile

Definition at line 152 of file zplrnt.c.

References magma_context_self(), MAGMA_ERR_NOT_INITIALIZED, magma_fatal_error, MAGMA_REQUEST_INITIALIZER, magma_sequence_create(), magma_sequence_destroy(), MAGMA_zplrnt_Tile_Async(), morse_barrier(), morse_desc_getoncpu, and magma_sequence_s::status.

{
    magma_context_t *magma;
    magma_sequence_t *sequence = NULL;
    magma_request_t request = MAGMA_REQUEST_INITIALIZER;
    int status;

    magma = magma_context_self();
    if (magma == NULL) {
        magma_fatal_error("MAGMA_zplrnt_Tile", "MAGMA not initialized");
        return MAGMA_ERR_NOT_INITIALIZED;
    }
    magma_sequence_create(magma, &sequence);
    MAGMA_zplrnt_Tile_Async( A, seed, sequence, &request );
    morse_barrier( magma );
    morse_desc_getoncpu( A );
    status = sequence->status;
    magma_sequence_destroy(magma, sequence);
    return status;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int MAGMA_zplrnt_Tile_Async	(	magma_desc_t *	A,
		unsigned long long int	seed,
		magma_sequence_t *	sequence,
		magma_request_t *	request
	)

MAGMA_zplrnt_Tile_Async - Generate a random matrix by tiles. Non-blocking equivalent of MAGMA_zplrnt_Tile(). May return before the computation is finished. Allows for pipelining of operations ar runtime.

Parameters:

[in]	sequence	Identifies the sequence of function calls that this call belongs to (for completion checks and exception handling purposes).
[out]	request	Identifies this function call (for exception handling purposes).

See also:

MAGMA_zplrnt

MAGMA_zplrnt_Tile

MAGMA_cplrnt_Tile_Async

MAGMA_dplrnt_Tile_Async

MAGMA_splrnt_Tile_Async

MAGMA_zplghe_Tile_Async

MAGMA_zplgsy_Tile_Async

Definition at line 203 of file zplrnt.c.

References magma_desc_s::desc, magma_context_self(), magma_desc_check(), MAGMA_ERR_ILLEGAL_VALUE, MAGMA_ERR_NOT_INITIALIZED, MAGMA_ERR_SEQUENCE_FLUSHED, MAGMA_ERR_UNALLOCATED, magma_error, magma_fatal_error, magma_pzplrnt(), magma_request_fail(), MAGMA_SUCCESS, min, magma_request_s::status, and magma_sequence_s::status.

{
    PLASMA_desc descA = A->desc;
    magma_context_t *magma;

    magma = magma_context_self();
    if (magma == NULL) {
        magma_fatal_error("MAGMA_zplrnt_Tile", "MAGMA not initialized");
        return MAGMA_ERR_NOT_INITIALIZED;
    }
    if (sequence == NULL) {
        magma_fatal_error("MAGMA_zplrnt_Tile", "NULL sequence");
        return MAGMA_ERR_UNALLOCATED;
    }
    if (request == NULL) {
        magma_fatal_error("MAGMA_zplrnt_Tile", "NULL request");
        return MAGMA_ERR_UNALLOCATED;
    }
    /* Check sequence status */
    if (sequence->status == MAGMA_SUCCESS)
        request->status = MAGMA_SUCCESS;
    else
        return magma_request_fail(sequence, request, MAGMA_ERR_SEQUENCE_FLUSHED);

    /* Check descriptors for correctness */
    if (magma_desc_check( A ) != MAGMA_SUCCESS) {
        magma_error("MAGMA_zplrnt_Tile", "invalid descriptor");
        return magma_request_fail(sequence, request, MAGMA_ERR_ILLEGAL_VALUE);
    }
    /* Check input arguments */
    if (descA.nb != descA.mb) {
        magma_error("MAGMA_zplrnt_Tile", "only square tiles supported");
        return magma_request_fail(sequence, request, MAGMA_ERR_ILLEGAL_VALUE);
    }

    /* Quick return */
    if (min( descA.m, descA.n ) == 0)
        return MAGMA_SUCCESS;

    magma_pzplrnt( A, seed, sequence, request);

    return PLASMA_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function: