File: Cpsscal1.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 (15 lines) | stat: -rw-r--r-- 226 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#include "tools.h"
void Cpsscal1(N, alpha, X, IX, JX, descX, incX)
int N;
float alpha;
float *X;
int IX;
int JX;
int *descX;
int  incX;
{
   void psscal_();

   IX++; JX++;
   psscal_(&N, &alpha, X, &IX, &JX, descX, &incX);
}