!
! $Header$
!
      character (len=120) :: descript
      common /titre/descript