File: cblas_l1.pyf.src

package info (click to toggle)
python-scipy 0.18.1-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 75,464 kB
  • ctags: 79,406
  • sloc: python: 143,495; cpp: 89,357; fortran: 81,650; ansic: 79,778; makefile: 364; sh: 265
file content (33 lines) | stat: -rw-r--r-- 1,002 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
!%f90 -*- f90 -*-
! Signatures for f2py-wrappers of ATLAS LEVEL 1 BLAS functions.
!
! Author: Pearu Peterson
! Created: Jan-Feb 2002
! $Revision$ $Date$
!
!   axpy
!
! Level 1 BLAS

subroutine <prefix>axpy(n,a,x,incx,y,incy)

  ! z = axpy(a,x,y,n=len(x)/abs(incx),incx=1,incy=incx,overwrite_y=0)
  ! Calculate z = a*x+y, where a is scalar.

  fortranname cblas_<prefix>axpy
  
  callstatement (*f2py_func)(n,<,,&,&>a,x,incx,y,incy);
  callprotoargument const int,const <ctype><,,*,*>,const <ctype>*,const int,<ctype>*,const int

  intent(c)
  intent(c) <prefix>axpy

  integer optional,intent(in),depend(x,incx) :: n = len(x)/abs(incx)
  <ftype> optional, intent(in):: a=<1.0,\0,(1.0\,0.0),\2>
  <ftype> dimension(n),intent(in) :: x
  integer optional, intent(in),check(incx>0||incx<0) :: incx = 1
  <ftype> dimension(n),depend(x),check(len(x)==len(y)) :: y
  intent(in,out,copy,out=z) :: y
  integer optional, intent(in),depend(incx) ,check(incy>0||incy<0) :: incy = incx

end subroutine <prefix>axpy