3
C***BEGIN PROLOGUE MPUNFL
5
C***PURPOSE Subsidiary to DQDOTA and DQDOTI
7
C***TYPE ALL (MPUNFL-A)
11
C Called on multiple-precision underflow, i.e. when the
12
C exponent of 'mp' number X would be less than -M.
14
C***SEE ALSO DQDOTA, DQDOTI
15
C***ROUTINES CALLED MPCHK
16
C***REVISION HISTORY (YYMMDD)
18
C 890831 Modified array declarations. (WRB)
19
C 891214 Prologue converted to Version 4.0 format. (BAB)
20
C 900402 Added TYPE section. (WRB)
21
C***END PROLOGUE MPUNFL
23
C***FIRST EXECUTABLE STATEMENT MPUNFL
25
C THE UNDERFLOWING NUMBER IS SET TO ZERO
26
C AN ALTERNATIVE WOULD BE TO CALL MPMINR (X) AND RETURN,
27
C POSSIBLY UPDATING A COUNTER AND TERMINATING EXECUTION
28
C AFTER A PRESET NUMBER OF UNDERFLOWS. ACTION COULD EASILY
29
C BE DETERMINED BY A FLAG IN LABELLED COMMON.