numeric-linalg

Educational material on the SciPy implementation of numerical linear algebra algorithms

NameSizeMode
..
lapack/CBLAS/src/scabs1sub.f 219B -rw-r--r-- 
01
02
03
04
05
06
07
08
09
10
11
12
13

c     scabs1.f
c
c     The program is a fortran wrapper for scabs1.
c
      subroutine scabs1sub(z, cabs1)
c
      external scabs1
      complex z
      real scabs1, cabs1
c
      cabs1=scabs1(z)
      return
      end