Search Site | Contact Details | FAQ

ADAS Subroutine d4tlog

      SUBROUTINE D4TLOG( INTYP, ITVAL, TEMP )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: D4TLOG *********************
C
C  PURPOSE:      TO CONVERT AN ARRAY OF LOG10(TEMPERATURES) FROM:
C           (KELVIN TO ELECTRON VOLTS) OR (ELECTRON VOLTS TO KELVIN)
C
C  CALLING PROGRAM:  D4OUTF
C
C  SUBROUTINE:
C
C  INPUT :    (I*4)  INTYP   = 1 => INPUT 'TEMP(array)' UNITS: KELVIN
C                            = 2 => INPUT 'TEMP(array)' UNITS: eV
C  INPUT :    (I*4)  ITVAL   = NUMBER OF TEMPERATURES IN 'TIN(array)'
C  I/O   :    (R*8)  TEMP()  = LOG10(INPUT TEMPERATURES (STATED UNITS))
C
C             (R*8)  EV2KEL  = LOG10( ELEC.VOLTS TO KELVIN CONVERSION)
C             (R*8)  TCONV   = TEMPERATURE CONVERSION PARAMETER
C
C ROUTINES:  NONE
C
C NOTE:
C            TEMPERATURE CONVERSION PARAMETERS:
C
C            INTYP = 1 ; TCONV =>             KELVIN  -> eV
C            INTYP = 2 ; TCONV =>                 eV  -> KELVIN
C
C AUTHOR:  PAUL E. BRIDEN (TESSELLA SUPPORT SERVICES PLC)
C          K1/0/81
C          JET EXT. 4569
C
C DATE:    08/10/90
C
C UNIX-IDL PORT:
C
C VERSION: 1.1				DATE: 11-11-96
C MODIFIED: WILLIAM OSBORN (TESSELLA SUPPORT SERVICES PLC)
C		- FIRST CONVERTED
C
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      INTEGER             INTYP,       ITVAL
      REAL*8              TEMP(ITVAL)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk