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