TYPE(MONGREL)
       INTEGER TYPEIS
       INTEGER VI
       REAL VF
       CHARACTER*(enuff) VC
       ...etc...
      END TYPE MONGREL
      TYPE (MONGREL) DOG