Search Site | Contact Details | FAQ

ADAS Subroutine e1titl

      SUBROUTINE E1TITL( IBSEL  , DSNAME ,
     &                   ESYM   , IZ     ,
     &                   CWAVEL , CINDM  ,
     &                   TITLX
     &                 )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: E1TITL *********************
C
C  PURPOSE:  TO CREATE THE DESCRIPTIVE TITLE FOR SELECTED DATA-BLOCK.
C
C  CALLING PROGRAM: ADAS501/SSXB
C
C  SUBROUTINE:
C
C  INPUT : (I*4)  IBSEL    = SELECTED DATA-BLOCK: INDEX
C  INPUT : (C*(*)) DSNAME   = FULL INPUT DATA SET NAME
C
C  INPUT : (C*2)  ESYM     = INPUT DATA SET: EMITTING ION ELEMENT SYMBOL
C  INPUT : (I*4)  IZ       = INPUT DATA SET: EMITTING ION CHARGE-STATE
C
C  INPUT : (C*10) CWAVEL   = SELECTED DATA-BLOCK: WAVELENGTH (ANGS.)
C  INPUT : (C*2)  CINDM    = SELECTED DATA-BLOCK: METASTABLE INDEX
C
C  OUTPUT: (C*120) TITLX   = SELECTED DATA-BLOCK: DESCRIPTIVE TITLE
C
C          (C*2)  C2       = GENERAL USE 2 BYTE  CHARACTER  STRING
C	   (I*4)  POS_NOW  = CURRENT POSITION IN TITLE STRING
C	   (I*4)  LEN_NAME = LENGTH OF FILENAME
C	   (I*4)  IFIRST   = POSITION OF FIRST CHARACTER IN FILENAME
C	   (I*4)  ILAST    = POSITION OF LAST CHARACTER IN FILENAME
C
C ROUTINES: 
C	   XXFCHR = FINDS THE FIRST & LAST OCCURRENCE OF ONE STRING IN
C			ANOTHER.
C
C AUTHOR:  PAUL E. BRIDEN (TESSELLA SUPPORT SERVICES PLC)
C          K1/0/37
C          JET EXT. 2620
C
C
C UNIX-IDL PORT:
C
C VERSION: 1.1                          DATE: 02-03-95
C MODIFIED: L. JALOTA (TESSELLA SUPPORT SERVICES PLC)
C               - MODIFY FOR RUNNING UNDER UNIX ENVIRONMENT WITH IDL
C
C VERSION: 1.2                          DATE: 02-03-95
C MODIFIED: L. JALOTA (TESSELLA SUPPORT SERVICES PLC)
C               - 
C
C VERSION: 1.3                          DATE: 03-03-95
C MODIFIED: L. JALOTA (TESSELLA SUPPORT SERVICES PLC)
C               -
C
C VERSION: 1.4                          DATE: 06-03-95
C MODIFIED: L. JALOTA (TESSELLA SUPPORT SERVICES PLC)
C               -
C
C VERSION: 1.5                          DATE: 13-03-95
C MODIFIED: L. JALOTA (TESSELLA SUPPORT SERVICES PLC)
C               -
C
C VERSION: 1.6                          DATE: 13-03-95
C MODIFIED: L. JALOTA (TESSELLA SUPPORT SERVICES PLC)
C               -
C
C VERSION: 1.7                          DATE: 25-05-95
C MODIFIED: TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC)
C               - COMMENTED OUT LINE DEFINING XXSLEN AND XXFCHR
C                 AS INTEGERS.
C
C VERSION: 1.8                          DATE: 06-02-96
C MODIFIED: TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC)
C               - TIDIED UP COMMENTS AND REMOVED SUPERFLUOUS VARIABLES
C
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
      CHARACTER*2         CINDM
      CHARACTER*10        CWAVEL
      CHARACTER*(*)       DSNAME
      CHARACTER*2         ESYM
      CHARACTER*120       TITLX
      INTEGER             IBSEL,       IZ
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk