File: Cpdaxpy1.c

package info (click to toggle)
scalapack 1.6-13
  • links: PTS
  • area: main
  • in suites: potato
  • size: 30,476 kB
  • ctags: 25,789
  • sloc: fortran: 296,718; ansic: 51,265; makefile: 1,541; sh: 4
file content (20 lines) | stat: -rw-r--r-- 340 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#include "tools.h"
void Cpdaxpy1(N, alpha, X, IX, JX, descX, incX, Y, IY, JY, descY, incY)
int N;
double alpha;
double *X;
int IX;
int JX;
int *descX;
int incX;
double *Y;
int IY;
int JY;
int *descY;
int  incY;
{
   void pdaxpy_();

   IX++; JX++; IY++; JY++;
   pdaxpy_(&N, &alpha, X, &IX, &JX, descX, &incX, Y, &IY, &JY, descY, &incY);
}