PT_DOUBLE
p->type = PT_DOUBLE;
p->type = PT_DOUBLE;
p->type = PT_DOUBLE;
p->type = PT_DOUBLE;
p->type = PT_DOUBLE;
assert(p->type == PT_DOUBLE);
p->type = PT_DOUBLE;
p->type = PT_DOUBLE;
p->type = PT_DOUBLE;
p->type = PT_DOUBLE;
p->type = PT_DOUBLE;