ADAS Subroutine r8bcon

      FUNCTION R8BCON( INTYP , OUTTYP , EIN )
C-----------------------------------------------------------------------
C
C  **************** FORTRAN77 REAL*8 FUNCTION: R8ECON ******************
C
C  PURPOSE: TO CONVERT A BEAM ENERGY INTO SPECIFIED UNITS
C           (DOUBLE PRECISION FUNCTION VERSION OF 'XXBCON')
C
C  CALLING PROGRAM: GENERAL USE
C
C  FUNCTION:
C
C             (R*8)  R8BCON  = FUNCTION NAME -
C                              OUTPUT BEAM ENERGY (STATED UNITS)
C             (I*4)  INTYP   = 1 => 'EIN' UNITS: EV/AMU
C                            = 2 => 'EIN' UNITS: AT. UNITS
C                            = 3 => 'EIN' UNITS: CM S-1.
C             (I*4)  OUTTYP  = 1 => 'R8BCON' UNITS: EV/AMU
C                            = 2 => 'R8BCON' UNITS: AT. UNITS
C                            = 3 => 'R8BCON' UNITS: CM S-1.
C             (R*8)  EIN     = INPUT BEAM ENERGY (STATED UNITS)
C
C             (R*8)  EVUATU  = EV/AMU  TO AT. UNITS.
C             (R*8)  EVUCMS  = EV/AMU TO CM S-1.
C
C             (R*8)  BCONV() = BEAM ENERGY CONVERSION PARAMETERS
C
C ROUTINES:  NONE
C
C NOTE:
C            BEAM ENERGY CONVERSION PARAMETERS:
C
C            INTYP = 1 ; BCONV(1) =>             EV/AMU  -> OUTPUT UNITS
C            INTYP = 2 ; BCONV(2) =>          AT. UNITS  -> OUTPUT UNITS
C            INTYP = 3 ; BCONV(3) =>             CM S-1  -> OUTPUT UNITS
C
C AUTHOR:  H. P. SUMMERS, UNIVERSITY OF STRATHCLYDE
C          JA8.08
C          TEL. 0141-553-4196
C
C DATE:    21/04/95
C
C UPDATE:  15/05/95	Tim Hammond	UNIX PORT
C			Put under SCCS control
C
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      INTEGER             INTYP,       OUTTYP
      REAL*8              EIN