FORTRAN SELECT TYPE

select type(a)
type is(thing)

class is(stuff)

end select
Clear Caterpillar