TYPE MIXED
       LOGICAL*1 LIVE(100)
       REAL*8    VALUE(100)
      END TYPE MIXED
      TYPE(MIXED) STUFF