ADAS Subroutine ddtitl

      SUBROUTINE DDTITL( IOPT     , 
     &           	 IP_RES   , IL_RES , 
     & 			 DSFULL   ,
     &                   TITLX 
     &                 )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: DDTITL *********************
C
C  PURPOSE:  TO CREATE THE DESCRIPTIVE TITLE FOR SELECTED DATA-BLOCK.
C
C  CALLING PROGRAM: ADAS413
C
C  SUBROUTINE:
C
C  INPUT : (I*4)  IOPT       = Type of plot
C  INPUT : (I*4)  IL_RES     = resolved DR parent
C  INPUT : (I*4)  IL_RES     = resolved DR level
C  I
C  INPUT : (C*80) DSFULL   = FULL INPUT DATA SET NAME
C
C
C  INPUT : (C*9)  CDONOR   = SELECTED DATA-BLOCK: DONOR IDENTITY
C
C  INPUT : (C*9)  CRECVR   = SELECTED DATA-BLOCK: RECEIVER IDENTITY
C
C  INPUT : (C*10) CFSTAT  = SELECTED DATA-BLOCK: FINAL STATE SPEC.
C
C  OUTPUT: (C*120) TITLX    = SELECTED DATA-BLOCK: DESCRIPTIVE TITLE
C
C          (C*2)  C2       = GENERAL USE 2 BYTE  CHARACTER  STRING
C
C
C AUTHOR   : H. P. Summers, University of Strathclyde
C            JA8.08
C            Tel. 0141-553-4196
C
C DATE     : 30/01/98
C
C UPDATE: 
C
C VERSION:	1.1						DATE: 11-06-98
C MODIFIED: RICHARD MARTIN
C		- PUT UNDER SCCS CONTROL.
C
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
      CHARACTER*120       DSFULL,      TITLX
      INTEGER             IL_RES,      IOPT,        IP_RES