alloc_subscriber
if (alloc_subscriber(shp, j, 1) != 0) {
if (alloc_subscriber(shp, sub_id, 0) != 0) {