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)