Home Man
Search
Today's Posts
Register

Linux & Unix Commands - Search Man Pages

RedHat 9 (Linux i386) - man page for cscal (redhat section l)

subroutine cscal(n,ca,cx,incx)
    c scales a vector by a constant.
    c jack dongarra, linpack, 3/11/78.
    c  modified  to  correct  problem  with  negative  increment,
8/21/90.
    complex ca,cx(1)
    integer i,incx,ix,n
    if(n.le.0)return
    if(incx.eq.1)go to 20
    c code for increment not equal to 1
    ix = 1
    if(incx.lt.0)ix = (-n+1)*incx + 1
    do 10 i = 1,n
    cx(ix) = ca*cx(ix)
    ix = ix + incx
    10 continue
    return
    c code for increment equal to 1
    20 do 30 i = 1,n
    cx(i) = ca*cx(i)
    30 continue
    return
    end


All times are GMT -4. The time now is 04:02 AM.

Unix & Linux Forums Content Copyrightę1993-2018. All Rights Reserved.
UNIX.COM Login
Username:
Password:  
Show Password