ADAS Subroutine r8expe

      REAL*8 FUNCTION R8EXPE( VALUE , EXPON , CODE )
C-----------------------------------------------------------------------
C
C  **************** FORTRAN77 REAL*8 FUNCTION: R8EXPE ******************
C
C  PURPOSE: TO PRODUCE A NUMBER FROM VALUE AND EXPONENT PARTS PROTECTED
C           AGAINST UNDERFLOW AND OVERFLOW. (NUMBER=VALUE*EXP(EXPON))
C 
C  INPUT : (R*8)  VALUE   = VALUE PART OF COMPOSITE NUMBER
C  INPUT : (R*8)  EXPON   = EXPONENT OF COMPOSITE NUMBER
C  INPUT : (C*(*))CODE    = 'ZERO' => ZERO VALUE DELIVERED IF UNDERFLOW
C                           'MIN'  => MINIMUM VALUE DELIVERED
C  OUTPUT: (R*8)  R8EXPE  = EVALUATED NUMBER
C        
C  ROUTINES:
C           NONE
C
C  AUTHOR:   H. P. SUMMERS, UNIVERSITY OF STRATHCLYDE
C            TEL. 0141-548-4196
C            JET EXT. 5057
C
C  DATE:     16/09/99
C
C  UPDATE:
C
C VERSION:	1.1
C
C-----------------------------------------------------------------------
      CHARACTER*(*)       CODE
      REAL*8              EXPON,       VALUE