double *p,a; *p