ADAS Subroutine c2econ

C
      SUBROUTINE C2ECON( INTYP, OUTTYP, AMD,AMR,IEVAL, EIN, EOUT )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: C2ECON *********************
C
C  PURPOSE: TO CONVERT AN ARRAY OF COLLISION  ENERGIES INTO A  SPECIFIED
C           FORM.
C
C  CALLING PROGRAM: GENERAL USE
C
C  SUBROUTINE:
C
C  INPUT :    (I*4)  INTYP   = 1 => 'EIN(ARRAY)' UNITS: DONOR   EV
C                            = 2 => 'EIN(ARRAY)' UNITS: RECVR   EV
C                            = 3 => 'EIN(ARRAY)' UNITS: ENERGY  EV/AMU
C  INPUT :    (I*4)  OUTTYP  = 1 => 'EOUT(ARRAY)' UNITS: DONOR  EV
C                            = 2 => 'EOUT(ARRAY)' UNITS: RECVR  EV
C                            = 3 => 'EOUT(ARRAY)' UNITS: ENERGY EV/AMU
C  INPUT :    (R*8)  AMD     = DONOR MASS NUMBER
C  INPUT :    (R*8)  AMR     = RECEIVER MASS NUMBER
C  INPUT :    (I*4)  IEVAL   = NO. OF ENERGIES IN EIN(ARRAY)
C  INPUT :    (R*8)  EIN()   = INPUT  ENERGIES (STATED UNITS)
C  OUTPUT:    (R*8)  EOUT()  = OUTPUT ENERGIES (STATED UNITS)
C
C
C             (I*4)  I       = GENERAL USE
C
C             (R*8)  ECONV() = ENERGY/VELOCITY CONVERSION PARAMETERS
C
C ROUTINES:  NONE
C
C
C AUTHOR:  H. P. SUMMERS, UNIVERSITY OF STRATHCLYDE
C          JA8.08
C          TEL.  0141-553-4196
C
C DATE:    17/11/95
C
C UNIX-IDL PORT: H.P.SUMMERS
C
C VERSION: 1.1				DATE: 19-11-96
C MODIFIED: WILLIAM OSBORN (TESSELLA SUPPORT SERVICES PLC)
C	    - PUT UNDER S.C.C.S. CONTROL
C
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      INTEGER             IEVAL,       INTYP,       OUTTYP
      REAL*8              AMD,         AMR,         EIN(IEVAL)
      REAL*8              EOUT(IEVAL)