1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
--- aces3-3.0.6.orig/worker/vtdemo_init.F
+++ aces3-3.0.6/worker/vtdemo_init.F
@@ -811,7 +811,11 @@ c---------------------------------------
next_worker = next_worker + 1
else
next_server = next_server + 1
- iproc_company_rank = mod(next_server-1,niocompany)
+ if (niocompany .ne. 0) then
+ iproc_company_rank = mod(next_server-1,niocompany)
+ else
+ iproc_company_rank = 1
+ endif
block_map_table(c_processor,next) =
* ioproc(iproc_company_rank+1)
endif
|
