~ubuntu-branches/ubuntu/trusty/atlas/trusty

« back to all changes in this revision

Viewing changes to src/blas/gemm/ATL_NCmmIJK_c.c

  • Committer: Package Import Robot
  • Author(s): Sébastien Villemot
  • Date: 2013-07-27 14:26:05 UTC
  • mfrom: (18.1.8 sid)
  • Revision ID: package-import@ubuntu.com-20130727142605-5rh3p972h1whdo99
Tags: 3.10.1-2
* Allow the generic package to build on machines with CPU throttling
  enabled. Otherwise the package FTBFS on some buildds (e.g. biber).
  Implementation is done by reactivating the "-Si cputhrchk 0" flag
  (cpu-throtthling-check.diff), and using it in debian/rules.
* Add architectural defaults for armel and mips.
* armhf.diff: do not enforce 32-registers FPU for Fortran

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
1
/*
2
 
 *             Automatically Tuned Linear Algebra Software v3.8.4
 
2
 *             Automatically Tuned Linear Algebra Software v3.10.1
3
3
 *                    (C) Copyright 1999 R. Clint Whaley
4
4
 *
5
5
 * Redistribution and use in source and binary forms, with or without
123
123
int Mjoin(PATL,NCmmIJK_c)
124
124
   (const enum ATLAS_TRANS TA, const enum ATLAS_TRANS TB,
125
125
    const int M, const int N, const int K, const SCALAR alpha,
126
 
    const TYPE *A, const int lda, const TYPE *B, const int ldb,
127
 
    const SCALAR beta, TYPE *C, const int ldc)
 
126
    const TYPE *A, const int lda0, const TYPE *B, const int ldb0,
 
127
    const SCALAR beta, TYPE *C, const int ldc0)
128
128
/*
129
129
 * IJK loop-ordered matmul with no matrix copy
130
130
 */
131
131
{
 
132
   size_t incAk, incAm, incAn, incBk, incBm, incBn;
 
133
   const size_t lda=lda0, ldb=ldb0, ldc=ldc0;
132
134
   const int Mb = M / MB, Nb = N / NB, Kb = K / KB;
133
135
   const int mr = M - Mb*MB, nr = N - Nb*NB, kr = K - Kb*KB;
134
 
   int incAk, incAm, incAn, incBk, incBm, incBn;
135
 
   const int incCn = ldc*NB, incCm = MB - Nb * incCn;
 
136
   const size_t incCn = ldc*NB, incCm = MB - Nb * incCn;
136
137
   int i, j, k;
137
138
   const TYPE *a=A, *b=B;
138
139
   TYPE *c=C;