ADAS Subroutine e2titl

      SUBROUTINE E2TITL( IBSEL  , DSNAME ,
     &                   CICODE , CFCODE ,
     &                   CIION  , CFION  ,
     &                   TITLX
     &                 )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: E2TITL *********************
C
C  PURPOSE:  TO CREATE THE DESCRIPTIVE TITLE FOR SELECTED DATA-BLOCK.
C
C  CALLING PROGRAM: ADAS502/SSZD
C
C  SUBROUTINE:
C
C  INPUT : (I*4)  IBSEL    = SELECTED DATA-BLOCK: INDEX
C  INPUT : (C*80) DSNAME   = DATA FILE NAME UNDER UNIX INCLUDING PATH
C
C  INPUT : (C*2)  CICODE   = SELECTED DATA-BLOCK: INITIAL STATE
C                                                 METASTABLE INDEX.
C  INPUT : (C*2)  CFCODE   = SELECTED DATA-BLOCK: FINAL   STATE
C                                                 METASTABLE INDEX.
C
C  INPUT : (C*5)  CIION    = SELECTED DATA-BLOCK: INITIAL ION
C  INPUT : (C*5)  CFION    = SELECTED DATA-BLOCK: FINAL   ION
C
C  OUTPUT: (C*80) TITLX    = SELECTED DATA-BLOCK: DESCRIPTIVE TITLE
C
C  GENERAL :
C          (C*2)  C2       = GENERAL USE 2 BYTE  CHARACTER  STRING
C
C	   (I*4)  START    = POSITION OF FIRST NON_BLANK CHARACTER IN
C			      DSNAME
C	   (I*4)  END      = POSITION OF LAST  NON_BLANK CHARACTER IN
C			      DSNAME
C
C ROUTINES: 
CA	   XXSLEN          = UTILITY ROUTINE WHICH FINDS FIRST AND LAST
CA			     NON-BLANK CHARACTERS IN A STRING.
C
C AUTHOR:  PAUL E. BRIDEN (TESSELLA SUPPORT SERVICES PLC)
C          K1/0/37
C          JET EXT. 2620
C
C DATE:    07/06/91
C
C UPDATE : L. JALOTA  10/11/94 - MODIFIED TO RUN UNDER UNIX.
C
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
      CHARACTER*2         CFCODE
      CHARACTER*5         CFION
      CHARACTER*2         CICODE
      CHARACTER*5         CIION
      CHARACTER*(*)       DSNAME
      CHARACTER*120       TITLX
      INTEGER             IBSEL