get_phead
get_phead(nhead, &cur_dtype->dtype_options);
d->dtype_phead = get_phead(d->dtype_nhead, &d->dtype_options);
int get_phead(int n_heads, ulong_t *option);