Search Site | Contact Details | FAQ

ADAS Subroutine r8econ

      FUNCTION R8ECON( INTYP, OUTTYP, EIN )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: R8ECON *********************
C
C  PURPOSE: TO CONVERT A VELOCITY/ENERGY INTO A SPECIFIED FORM
C
C           (DOUBLE PRECISION FUNCTION VERSION OF 'XXECON')
C
C  CALLING PROGRAM: GENERAL USE
C
C  FUNCTION:
C
C             (R*8)  R8ECON  = FUNCTION NAME -
C                              OUTPUT VELOCITY/ENERGY (STATED UNITS)
C             (I*4)  INTYP   = 1 => 'EIN' UNITS: AT. UNITS (VEL.)
C                            = 2 => 'EIN' UNITS: CM/SEC    (VEL.)
C                            = 3 => 'EIN' UNITS: EV/AMU  (ENERGY)
C             (I*4)  OUTTYP  = 1 => 'R8ECON' UNITS: AT.UNITS (VEL.)
C                            = 2 => 'R8ECON' UNITS: CM/SEC   (VEL.)
C                            = 3 => 'R8ECON' UNITS: EV/AMU (ENERGY)
C             (R*8)  EIN     = INPUT  VELOCITY/ENERGY (STATED UNITS)
C
C             (R*8)  AMU2KG  = PARAMETER: AMU TO KG CONVERSION FACTOR
C             (R*8)  EV2J    = PARAMETER: EV TO JOULES CONVERSION FACTOR
C             (R*8)  M2CM    = PARAMETER: METRES TO CM CONVERSION FACTOR
C             (R*8)  VELE0H  = PARAMETER: ORBITAL VELOCITY  (CM/SEC)  OF
C                              AN ELECTRON IN THE SMALLEST  ORBIT  OF  A
C                              HYDROGEN ATOM (BOHR) = 2.1877D+8 CM/SEC
C             (R*8)  AT2VEL  = AT.UNITS (VEL) TO CM/SEC (VEL) CONVERSION
C             (R*8)  VEL2AT  = CM/SEC (VEL) TO AT.UNITS (VEL) CONVERSION
C             (R*8)  VEL2EN  = CM/SEC (VEL) TO EV/AMU (ENGY.) CONVERSION
C             (R*8)  EN2VEL  = EV/AMU (ENGY.) TO CM/SEC (VEL) CONVERSION
C             (R*8)  AT2EN   = AT.UNITS (VEL) TO EV/AMU (ENG) CONVERSION
C             (R*8)  EN2AT   = EV/AMU (ENG) TO AT.UNITS (VEL) CONVERSION
C
C             (R*8)  ECONV() = ENERGY/VELOCITY CONVERSION PARAMETERS
C
C ROUTINES:  NONE
C
C NOTE:
C            ENERGY/VELOCITY CONVERSION PARAMETERS:
C
C            INTYP = 1 ; ECONV(1) =>  VELOCITY: AT.UNITS -> OUTPUT FORM
C            INTYP = 2 ; ECONV(2) =>  VELOCITY: CM/SEC   -> OUTPUT FORM
C            INTYP = 3 ; ECONV(3) =>  ENERGY  : EV/AMU   -> OUTPUT FORM
C
C AUTHOR:  PAUL E. BRIDEN (TESSELLA SUPPORT SERVICES PLC)
C          K1/0/81
C          JET EXT. 4569
C
C DATE:    05/02/91
C
C VERSION: 1.2				DATE: 01-05-96
C MODIFIED: WILLIIAM OSBORN (TESSELLA SUPPORT SERVICES PLC)
C	    - CORRECTED AT2EN. WAS AT2VEL*VEL2EN
C
C VERSION: 1.2                          DATE: 10-04-2007
C MODIFIED : Allan Whiteford
C               - Modified documentation as part of automated
C		  subroutine documentation preparation.
C
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      INTEGER             INTYP,       OUTTYP
      REAL*8              EIN
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk