| |
| | [No title] (Site not responding. Last check: 2007-10-21) |
 | | * c ***----------------------------------------------------------*** integer j, minblk, remblk, kpart, base, top c ***----------------------------------------------------------*** c * Use non-partitioned coupling if requested number * c * of partitions would result in fewer than 2 blocks * c * per partition. |
 | | (This could be done concurrently.) * c ***----------------------------------------------------------*** do 10 kpart = 1, nparts c ***----------------------------------------------------------*** c * temp_kpart <-- b(nrwtop+base*nrwblk-nrwbot+1.. |
 | | * c ***----------------------------------------------------------*** C$DOACROSS SHARE (nrwtop, nrwblk, nrwbot, b, C$& minblk, remblk, nparts, work), C$& LOCAL (j, kpart, base, top) do 30 kpart = 1, nparts call partx(minblk,remblk,kpart,base,top) c ***----------------------------------------------------------*** c * b(nrwtop+(top-1)*nrwblk+1..nrwtop+base*nrwblk-nrwbot), * c * contained entirely within this partition, is shifted * c * down nrwbot positions. |
| www.cs.toronto.edu /~pancer/PMIRKDC_package/cplrhs.f (418 words) |
|