~ubuntu-branches/ubuntu/vivid/atlas/vivid

« back to all changes in this revision

Viewing changes to tune/blas/ger/CASES/ATL_dger1_1x1_1.c

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2002-04-13 10:07:52 UTC
  • Revision ID: james.westby@ubuntu.com-20020413100752-va9zm0rd4gpurdkq
Tags: upstream-3.2.1ln
ImportĀ upstreamĀ versionĀ 3.2.1ln

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
void ATL_dger1_a1_x1_yX(const int M, const int N, const double alpha,
 
2
                        const double *X, const int incX, const double *Y,
 
3
                        const int incY, double *A, const int lda)
 
4
{
 
5
   int i, j;
 
6
   register double y0;
 
7
 
 
8
   for (j=0; j < N; j++)
 
9
   {
 
10
      y0 = Y[j*incY];
 
11
      for (i=0; i < M; i++) A[i+j*lda] += X[i] * y0;
 
12
   }
 
13
}