## Data Section Descriptor

      ! Data Section Descriptor.
      ! (Old OTF data format, kept for backward compatibility).
      integer(kind=4), parameter :: class_sec_desc_id=-30
      integer(kind=4), parameter :: class_sec_desc_len=4
      type descriptor
         sequence
         integer(kind=4) :: ndump   ! Number of records
         integer(kind=4) :: ldpar   ! Length of data header (longwords)
         integer(kind=4) :: ldatl   ! length of line data      (")
         integer(kind=4) :: ldump   ! length of record         (")
         integer(kind=4) :: rec     ! Current Record Number
      end type descriptor