Skip to content
Snippets Groups Projects
Select Git revision
1 result Searching

dgemv.c

Blame
  • dgemv.c 9.57 KiB
    /* dgemv.f -- translated by f2c (version 20190311).
       You must link the resulting object file with libf2c:
    	on Microsoft Windows system, link with libf2c.lib;
    	on Linux or Unix systems, link with .../path/to/libf2c.a -lm
    	or, if you install libf2c.a in a standard place, with -lf2c -lm
    	-- in that order, at the end of the command line, as in
    		cc *.o -lf2c -lm
    	Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
    
    		http://www.netlib.org/f2c/libf2c.zip
    */
    
    #include "f2c.h"
    
    /* > \brief \b DGEMV */
    
    /*  =========== DOCUMENTATION =========== */
    
    /* Online html documentation available at */
    /*            http://www.netlib.org/lapack/explore-html/ */
    
    /*  Definition: */
    /*  =========== */
    
    /*       SUBROUTINE DGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) */
    
    /*       .. Scalar Arguments .. */
    /*       DOUBLE PRECISION ALPHA,BETA */
    /*       INTEGER INCX,INCY,LDA,M,N */
    /*       CHARACTER TRANS */
    /*       .. */
    /*       .. Array Arguments .. */
    /*       DOUBLE PRECISION A(LDA,*),X(*),Y(*) */
    /*       .. */
    
    
    /* > \par Purpose: */
    /*  ============= */
    /* > */
    /* > \verbatim */
    /* > */
    /* > DGEMV  performs one of the matrix-vector operations */
    /* > */
    /* >    y := alpha*A*x + beta*y,   or   y := alpha*A**T*x + beta*y, */
    /* > */
    /* > where alpha and beta are scalars, x and y are vectors and A is an */
    /* > m by n matrix. */
    /* > \endverbatim */
    
    /*  Arguments: */
    /*  ========== */
    
    /* > \param[in] TRANS */
    /* > \verbatim */
    /* >          TRANS is CHARACTER*1 */
    /* >           On entry, TRANS specifies the operation to be performed as */
    /* >           follows: */
    /* > */
    /* >              TRANS = 'N' or 'n'   y := alpha*A*x + beta*y. */
    /* > */
    /* >              TRANS = 'T' or 't'   y := alpha*A**T*x + beta*y. */
    /* > */
    /* >              TRANS = 'C' or 'c'   y := alpha*A**T*x + beta*y. */
    /* > \endverbatim */
    /* > */
    /* > \param[in] M */
    /* > \verbatim */
    /* >          M is INTEGER */
    /* >           On entry, M specifies the number of rows of the matrix A. */
    /* >           M must be at least zero. */