mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-05 05:33:56 +01:00
49 lines
815 B
Promela
49 lines
815 B
Promela
active proctype fortran() {
|
|
req_message msg;
|
|
rep_message reply;
|
|
byte state;
|
|
byte count, wait;
|
|
|
|
|
|
/* New parallel job */
|
|
state=1;
|
|
send_req( NEWJOB, state );
|
|
assert (reply.m == OK);
|
|
|
|
send_req( PUTPSI, state );
|
|
assert (reply.m == PUTPSI_REPLY);
|
|
|
|
/* Add tasks */
|
|
count = 0;
|
|
do
|
|
:: (count == NTASKS) -> break;
|
|
:: else ->
|
|
count++;
|
|
send_req( ADDTASK, count );
|
|
assert (reply.m == OK);
|
|
od
|
|
|
|
wait = _nr_pr;
|
|
/* Run collector */
|
|
run collector(state);
|
|
|
|
/* Run slaves */
|
|
count = 0;
|
|
do
|
|
:: (count == NPROC) -> break;
|
|
:: else -> count++; run slave();
|
|
od
|
|
|
|
/* Wait for collector and slaves to finish */
|
|
(_nr_pr == wait);
|
|
|
|
send_req( ENDJOB, state );
|
|
assert (reply.m == OK);
|
|
state = reply.value;
|
|
|
|
send_req( TERMINATE, 0);
|
|
assert (reply.m == OK);
|
|
|
|
}
|
|
|