2 SUBROUTINE xsetua (IUNITA, N)
45 IF (n.LT.1 .OR. n.GT.5)
THEN 46 WRITE (xern1,
'(I8)') n
47 CALL xermsg (
'SLATEC',
'XSETUA',
48 *
'INVALID NUMBER OF UNITS, N = ' // xern1, 1, 2)
55 junk = j4save(index,iunita(i),.true.)
57 junk = j4save(5,n,.true.)
OCTAVE_EXPORT octave_value_list etc The functions then dimension(columns)