1 SUBROUTINE ckscl(ZR, FNU, N, Y, NZ, RZ, ASCLE, TOL, ELIM)
11 COMPLEX CK, CS, CY, CZERO, RZ, S1, S2, Y, ZR, ZD, CELM
12 REAL AA, ASCLE, ACS, AS, CSI, CSR, ELIM, FN, FNU, TOL, XX, ZRI,
14 INTEGER I, IC, K, KK, N, NN, NW, NZ
16 DATA czero / (0.0e0,0.0e0) /
29 IF (acs.LT.(-elim)) go
to 10
35 CALL
cuchk(cs, nw, ascle, tol)
49 ck =
cmplx(fn,0.0e0)*rz
54 celm =
cmplx(elm,0.0e0)
72 IF (acs.LT.(-elim)) go
to 25
78 CALL
cuchk(cs, nw, ascle, tol)
82 IF (ic.EQ.(kk-1)) go
to 40
86 IF(alas.LT.helim) go
to 30
subroutine cuchk(Y, NZ, ASCLE, TOL)
octave_value sin(void) const
may be zero for pure relative error test tem the relative tolerance must be greater than or equal to
OCTAVE_EXPORT octave_value_list etc The functions then dimension(columns)
octave_value cos(void) const
subroutine ckscl(ZR, FNU, N, Y, NZ, RZ, ASCLE, TOL, ELIM)