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
OCTAVE_EXPORT octave_value_list etc The functions then dimension(columns)