redhat man page for zrotg

Query: zrotg

OS: redhat

Section: l

Format: Original Unix Latex Style Formatted with HTML and a Horizontal Scroll Bar

subroutine zrotg(ca,cb,c,s)
    double complex ca,cb,s
    double precision c
    double precision norm,scale
    double complex alpha
    if (cdabs(ca) .ne. 0.0d0) go to 10
    c = 0.0d0
    s = (1.0d0,0.0d0)
    ca = cb
    go to 20
    10 continue
    scale = cdabs(ca) + cdabs(cb)
    norm = scale*dsqrt((cdabs(ca/dcmplx(scale,0.0d0)))**2 +
    * (cdabs(cb/dcmplx(scale,0.0d0)))**2)
    alpha = ca /cdabs(ca)
    c = cdabs(ca) / norm
    s = alpha * dconjg(cb) / norm
    ca = alpha * norm
    20 continue
    return
    end
Related Man Pages
zgecon(3) - debian
dgecon.f(3) - debian
zgecon.f(3) - debian
ztpcon.f(3) - debian
dgecon(3) - centos
Similar Topics in the Unix Linux Community
Make all words begin with capital letter?
Retrieving previous command in a script
Docker learning Phase-I
About TODO
Issue with events occuring in DST window