ADAS Subroutine e3titl

      SUBROUTINE E3TITL( IBSEL  , DSNAME ,
     &                   ESYM   , IZ     ,
     &                   CWAVEL , CINDM  ,
     &                   TITLX
     &                 )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: E3TITL *********************
C
C  PURPOSE:  TO CREATE THE DESCRIPTIVE TITLE FOR SELECTED DATA-BLOCK.
C
C  CALLING PROGRAM: ADAS503/SPEC
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          (C*3)  C3       = GENERAL USE 3 BYTE  CHARACTER  STRING
C	   (C*9)  PATH     = UNIX ENVIRONMENT OF CURRENT PATH=$ADASCENT
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 OF DSNAME
C          (I*4)  ILAST    = POSITION OF LAST CHARACTER OF DSNAME
C
C ROUTINES: 
C
C AUTHOR:  PAUL E. BRIDEN (TESSELLA SUPPORT SERVICES PLC)
C          K1/0/37
C          JET EXT. 2520
C
C DATE:    01/05/91
C
C UPDATE:  L. JALOTA  13/3/95   MODIFIED FOR USE UNDER UNIX 
C
C VERSION 1.7	TIM HAMMOND	13/10/95
C		ADDED VARIABLE C3 TO ALLOW 3 DIGIT DATA BLOCKS
C               TO BE READ FROM THE VARIABLE IBSEL
C
C VERSION 1.8	TIM HAMMOND	08/11/95
C		 - REMOVED SUPERFLUOUS VARIABLE TEMP_NAME
C               
C VERSION 1.9	TIM HAMMOND	08/11/95
C		 - REMOVED SUPERFLUOUS VARIABLE I4UNIT
C               
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
      CHARACTER*2         CINDM
      CHARACTER*10        CWAVEL
      CHARACTER*(*)       DSNAME
      CHARACTER*2         ESYM
      CHARACTER*120       TITLX
      INTEGER             IBSEL,       IZ