.SD;.FLAGS CAPITALIZE;
.TITLE <MATHER- <MATHER
.PAGE
.INDENT 50
<MATHER
.SKIP 1
.CENTER
<MATHER- <MATHER
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: <MATHER\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^A NAMED COMMON TO CONTROL THE ERROR PRINTING OPTION IN THE
ARITHMETIC  PACKAGE. ^THE FLAGS IN THIS COMMON DETERMINE WHAT IS DONE WITH
DIVISION BY ZERO, LOG OF NON POSITIVE NUMBER, OR THE SQUARE ROOT OF A 
NEGATIVE NUMBER.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM <FORTRAN-- DECLARE THE NAMED COMMON TO GAIN ACCESS TO THESE VALUES AND FLAGS.
.SKIP 1
.INDENT -10
^^PARAMETERS:\\
.SKIP;.INDENT -9
^^MATHER---T\\HE NAMED COMMON BLOCK CONTAINING 4 <INTEGER*2 VARIABLES.
.SKIP;.INDENT -9
^^WORD 0---T\\HIS WORD IF EQUAL TO ONE TURNS OFF THE JOB LOG ERROR MESSAGES.
^IF EQUAL TO 0 THEN ERROR MESSAGES ARE PRINTED.  (SEE <BATDEF FOR DISCRIPTION
OF <JOBLOG)
.SKIP;.INDENT -9
^^WORD 1---A\\N ACCUMULATOR NUMBER OF DIVIDE BY ZERO ERRORS.
.SKIP;.INDENT -9
^^WORD 2---A\\CCUMULATOR FOR NUMBER OF LOG OF NON-POSITIVE NUMBERS.
.SKIP;.INDENT -9
^^WORD 3---A\\CCUMULATOR FOR NUMBER OF SQUARE ROOT BY NEGITIVE NUMBERS.
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ ^USES <JOBLOG <LUN DEFINED IN <BATDEF.
.SKIP 1
.INDENT -10
^^EXAMPLE:\\ <COMMON/MATHER/PRIN,DIVID,NLOG,NSQRT
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^AUGUST 1978
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ <FORTRAN
.SKIP 1
.INDENT -10
^^LIBRARY:\\ <DP:[60,60]CETUS.OLB
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ NONE
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^LINDA ^MUNDY OR ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10