1 SUBROUTINE cbunk(Z, FNU, KODE, MR, N, Y, NZ, TOL, ELIM, ALIM)
12 REAL ALIM, AX, AY, ELIM, FNU, TOL, XX, YY
13 INTEGER KODE, MR, N, NZ
20 IF (ay.GT.ax)
GO TO 10
25 CALL cunk1(z, fnu, kode, mr, n, y, nz, tol, elim, alim)
33 CALL cunk2(z, fnu, kode, mr, n, y, nz, tol, elim, alim)
OCTAVE_EXPORT octave_value_list etc The functions then dimension(columns)