cscal man page on YellowDog

Man page or keyword search:  
man Server   18644 pages
apropos Keyword Search (all sections)
Output format
YellowDog logo
[printable version]


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

[top]

List of man pages available for YellowDog

Copyright (c) for man pages and the logo by the respective OS vendor.

For those who want to learn more, the polarhome community provides shell access and support.

[legal] [privacy] [GNU] [policy] [cookies] [netiquette] [sponsors] [FAQ]
Tweet
Polarhome, production since 1999.
Member of Polarhome portal.
Based on Fawad Halim's script.
....................................................................
Vote for polarhome
Free Shell Accounts :: the biggest list on the net