Destroy a shellig_type.
shellig_type
subroutine destroy_shellig_type(me) class(shellig_type), intent(out) :: me end subroutine destroy_shellig_type