File: Cpdcopy1.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 (19 lines) | stat: -rw-r--r-- 311 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#include "tools.h"
void Cpdcopy1(N, X, IX, JX, descX, incX, Y, IY, JY, descY, incY)
int N;
double *X;
int IX;
int JX;
int *descX;
int incX;
double *Y;
int IY;
int JY;
int *descY;
int  incY;
{
   void pdcopy_();

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