27 DATA aln2 / 0.6931471805 5994530942e0/
30 IF (xmax.EQ.0.) xmax = 1.0/
sqrt(r1mach(3))
32 IF (x .LT. 1.0) CALL
xermsg(
'SLATEC',
'ACOSH',
'X LESS THAN 1',
OCTAVE_EXPORT octave_value_list or N dimensional array whose elements are all equal to the base of natural logarithms The constant ex $e satisfies the equation log(e)
subroutine xermsg(LIBRAR, SUBROU, MESSG, NERR, LEVEL)
octave_value sqrt(void) const