| 534 |
|
dv[2]*ps->sdir[2][j] ; |
| 535 |
|
} |
| 536 |
|
/* send to our process */ |
| 537 |
< |
writebuf(ps->wd, (char *)samp, sizeof(float)*6*ns); |
| 537 |
> |
writebuf(ps->wd, samp, sizeof(float)*6*ns); |
| 538 |
|
free(samp); /* that's it! */ |
| 539 |
|
return(1); |
| 540 |
|
} |
| 605 |
|
else /* comp. for subsurface area */ |
| 606 |
|
adj_factor /= adj_factor - zp->area_redu[n]; |
| 607 |
|
/* read results */ |
| 608 |
< |
if (readbuf(pd->r, (char *)uvfa, sizeof(float)*3*zp->ntotal) != |
| 608 |
> |
if (readbuf(pd->r, uvfa, sizeof(float)*3*zp->ntotal) != |
| 609 |
|
sizeof(float)*3*zp->ntotal) { |
| 610 |
|
fputs(progname, stderr); |
| 611 |
|
fputs(": read error from rcontrib process\n", stderr); |
| 655 |
|
for (zptr = zone_list; zptr != NULL; zptr = zptr->next) { |
| 656 |
|
SUBPROC rcproc; |
| 657 |
|
/* start rcontrib process */ |
| 658 |
+ |
rcproc = sp_inactive; |
| 659 |
|
if (!start_rcontrib(&rcproc, zptr)) |
| 660 |
|
return(0); |
| 661 |
|
/* compute+add view factors */ |