1 INTEGER*4 FUNCTION ignuin(low,high)
37 parameter(maxnum=2147483561)
38 CHARACTER*(*) err1,err2
39 parameter(err1=
'LOW > HIGH in IGNUIN',
40 + err2=
' ( HIGH - LOW ) > 2,147,483,561 in IGNUIN')
46 INTEGER*4 err,ign,maxnow,
range,ranp1
56 IF (.NOT. (low.GT.high))
GO TO 10
62 IF (.NOT. (
range.GT.maxnum))
GO TO 20
67 20
IF (.NOT. (low.EQ.high))
GO TO 30
76 maxnow = (maxnum/ranp1)*ranp1
78 IF (.NOT. (ign.LE.maxnow))
GO TO 40
82 80
IF (.NOT. (err.EQ.1))
GO TO 90
88 100
WRITE (*,*)
' LOW: ',low,
' HIGH: ',high
89 WRITE (*,*)
' Abort on Fatal ERROR' 90 IF (.NOT. (err.EQ.1))
GO TO 110
91 CALL xstopx (
'LOW > HIGH in IGNUIN')
93 110
CALL xstopx (
' ( HIGH - LOW ) > 2,147,483,561 in IGNUIN')
octave_int< T > mod(const octave_int< T > &x, const octave_int< T > &y)
integer *4 function ignlgi()
integer *4 function ignuin(low, high)
OCTAVE_EXPORT octave_value_list or cell arrays Arguments are concatenated vertically The returned values are padded with blanks as needed to make each row of the string array have the same length Empty input strings are significant and will concatenated in the output For numerical each element is converted to the corresponding ASCII character A range error results if an input is outside the ASCII range(0-255). For cell arrays