Google
 

Trailing-Edge - PDP-10 Archives - FORTRAN-10_Alpha_31-jul-86 - mthmsg.mac
There are 9 other files named mthmsg.mac in the archive. Click here to see a list.
	SEARCH	MTHPRM
	TV	MTHMSG - MATH LIBRARY ERROR MESSAGES, 2(4011)

;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1981, 1986
;ALL RIGHTS RESERVED.
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE  SOFTWARE  IS  HEREBY
;TRANSFERRED.

;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT  NOTICE
;AND  SHOULD  NOT  BE  CONSTRUED  AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.

;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY  OF  ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

COMMENT	\

***** Begin Revision History *****

3200	JLC
	Created message file from FORLIB.

3204	JLC	2-Jun-82
	Change ERR to CODE.

3205	JLC	3-Jun-82
	Moved error character to the 1st arg.

***** Begin Version 2 *****

4011	JLC	4-May-84
	Add code for MOD, AMOD, DMOD, and GMOD for 2nd arg=0.

***** End Revision History *****

\

	SEGMENT	CODE

	RADIX	10

	$LERR (%,ROV,8,1,<$N: Result overflow>)
	$LERR (%,RUN,8,2,<$N: Result underflow>)
	$LERR (%,IPU,8,3,<$N: Imaginary part underflow>)
	$LERR (%,RPU,8,4,<$N: Real part underflow>)
	$LERR (%,IPO,8,5,<$N: Imaginary part overflow>)
	$LERR (%,RPO,8,6,<$N: Real part overflow>)
	$LERR (%,BPO,8,7,<$N: Both parts overflow>)
	$LERR (%,BPU,8,8,<$N: Both parts underflow>)
	$LERR (%,ATZ,8,9,<$N: ABS(arg) too large; result=zero>)
	$LERR (%,ATI,8,10,<$N: ABS(arg) too large; result=infinity>)
	$LERR (%,RTI,8,11,<$N: REAL(arg) too large; IMAG(result)=+infinity>)
	$LERR (%,RTR,8,12,<$N: REAL(arg) too large; REAL(result)=+infinity>)
	$LERR (%,AIZ,8,13,<$N: ABS(IMAG(arg)) too large; result=zero>)
	$LERR (%,ARZ,8,14,<$N: ABS(REAL(arg)) too large; result=zero>)
	$LERR (%,AIR,8,15,<$N: ABS(IMAG(arg)) too large; REAL(result)=infinity>)
	$LERR (%,AII,8,16,<$N: ABS(IMAG(arg)) too large; IMAG(result)=infinity>)
	$LERR (%,AZM,8,17,$N: Arg is zero; result=-infinity)
	$LERR (%,ZZZ,8,18,<$N: Zero ** zero is indeterminate, result=zero>)
	$LERR (%,ZCI,8,19,<$N: Zero ** (negative,any) is indeterminate, result=(infinity,infinity)>)
	$LERR (%,BPI,8,20,<$N: Both parts indeterminate>)
	$LERR (%,NAA,8,21,$N: Negative arg; result=$N(ABS(arg)))
	$LERR (%,ZIZ,8,22,<$N: Arg is zero; result=(-infinity,zero)>)
	$LERR (%,AOI,8,23,$N: ABS(arg) greater than 1.0; result=+infinity)
	$LERR (%,BAZ,8,24,<$N: Both arguments are zero; result=zero>)
	$LERR (%,NNA,8,25,<$N: Negative base ** non-integer;  ABS(base) used>)
	$LERR (%,ZNI,8,26,<$N: Zero ** negative exponent; result=infinity>)
	$LERR (%,MZZ,8,27,<$N: Second argument is zero; result=zero>)
	$LERR (%,999,8,999,<CMATH: Complex overflow>)
	$LERR (%,888,8,888,<CMATH: Complex underflow>)
	$LERR (%,NOR,-1,0,<ERRSET: Error number out of range - ignored>)
	$LERR (?,MFX,-1,0,MTHOP: function code exceeds range)

	PURGE	$SEG$
	END