Search Site | Contact Details | FAQ

ADAS Subroutine d2tdin

      SUBROUTINE D2TDIN( DSFULL
     &                 , ITDIMD , ITMAXD , IDMAXD
     &                 , TEMP   , DENS   , LRESO
     &                 )
C
C-----------------------------------------------------------------------
C
C PURPOSE : TO EXTRACT TEMPERATURE AND DENSITY FROM ADF11 FILE FOR
C           DISPLAY ON ADAS402 PROCESSING SCREEN
C
C INPUT  : (C*80) DSFULL    = INPUT DATASET NAME
C          (I*4)  ITDIMD    = MAXIMUM NUMBER OF DATA TEMP & DENS
C          (L*4)  LRESO     = .TRUE. => RESOLVED DATASET
C                             .FALSE.=> UNRESOLVED DATASET
C
C OUTPUT : (I*4)  ITMAXD    = NUMBER OF DATA TEMPS
C          (I*4)  IDMAXD    = NUMBER OF DATA DENS
C          (R*8)  TEMP()    = DATA ELECTRON TEMPERATURES (EV)
C          (R*8)  DENS()    = DATA ELECTRON DENSITIES (CM-3)
C
C PROGRAM: 
C
C-----------------------------------------------------------------------
C
C UNIX-IDL PORT:
C
C VERSION: 1.1				DATE: 29-10-96
C MODIFIED: WILLIAM OSBORN (TESSELLA SUPPORT SERVICES PLC)
C		- FIRST WRITTEN
C
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
C
      LOGICAL LRESO
C
      CHARACTER*80        DSFULL
      INTEGER             IDMAXD,      ITDIMD,      ITMAXD
      LOGICAL             LRESO
      REAL*8              DENS(ITDIMD),             TEMP(ITDIMD)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk