31 IF (a .LE. 0.0) CALL
xermsg(
'SLATEC',
'GAMI',
32 +
'A MUST BE GT ZERO', 1, 2)
33 IF (x .LT. 0.0) CALL
xermsg(
'SLATEC',
'GAMI',
34 +
'X MUST BE GE ZERO', 2, 2)
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)
real function gamit(A, X)