double *p1,*p2
int i;
double a1,a2,a3,result;
double *p1, *p2;
p1=&a1;
for (i=0; i<100; i++){
p2=&result;
*p1 = *p1+*p2;
*p2=*p1;
p2 = p2+2;
p1=&a2;
}