Searched defs:CPQR79 (Results 1 – 2 of 2) sorted by relevance
| /dports/math/cmlib/cmlib-3.0_8/src/cpqr79/ |
| H A D | cpqr79.f | 1 SUBROUTINE CPQR79(NDEG,COEFF,ROOT,IERR,WORK) subroutine
73 1 WORK(K)=0.0E0
83 2 CONTINUE
86 1),IERR)
90 3 ROOT(K)=CMPLX(WORK(KWR+KM1),WORK(KWI+KM1))
93 4 IERR = 1
96 5 IERR = 2
99 6 IERR=3
102 7 ROOT(1)= -COEFF(2)/COEFF(1)
|
| /dports/math/slatec/src/ |
| H A D | cpqr79.f | 2 SUBROUTINE CPQR79 (NDEG, COEFF, ROOT, IERR, WORK) subroutine
100 CALL XERMSG ('SLATEC', 'CPQR79', argument
108 30 CONTINUE
|