Searched refs:thrwrk (Results 1 – 1 of 1) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | MeshUtils.F90 | 21923 INTEGER :: i, j, k, wrk, gwrk, thrwrk, allocstat local
21948 thrwrk = CEILING(REAL(gwrk,dp) / nthr)
21959 IF (wrk >= thrwrk) EXIT
21979 INTEGER :: i, rem, thrwrk, allocstat local
21999 thrwrk = gn / nthr
22000 rem = gn-nthr*thrwrk
22004 blkleads(i+1)=blkleads(i)+thrwrk+1
22006 blkleads(i+1)=blkleads(i)+thrwrk
|