Open mnakao opened 8 years ago
XMP/Cでは指示文にする。次回までに要検討。例えば、下記のような感じ?
int locked[*] = true;
int p, q, val;
:
if(xmp_node_num() == p){
xmp_sync_memory();
#pragma xmp atomic
locked:[q] = false; // call atomic_define()に相当
}
else if(xmp_node_num() == q){
val = true;
while(val){
#pragma xmp atomic
val = locked; // call atomic_ref()に相当
}
xmp_sync_memory();
}
Fortran 2008における下記の2つのサブルーチンをXMP/Cに適用させる。 このサブルーチンを使ったサンプルは下記の通り。