ADAS Subroutine datitl

      SUBROUTINE DATITL( IOPT     , 
     &           	 IP_RES   , IL_RES , 
     & 			 DSFULL   ,
     &                   TITLX 
     &                 )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: DATITL *********************
C
C  PURPOSE:  TO CREATE THE DESCRIPTIVE TITLE FOR SELECTED DATA-BLOCK.
C
C  CALLING PROGRAM: ADAS410
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   : Martin O'Mullane
C            K1/1/43
C            JET EXT. 5313
C
C DATE     : 25/9/97
C
C VERSION  : 
C MODIFIED : 
C
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
      CHARACTER*120       DSFULL,      TITLX
      INTEGER             IL_RES,      IOPT,        IP_RES