[C]post/wait指示文を関数に変更

[mnakao]

• Fortran2008のevent postとevent wait statementsに対応したXMP/Cにおける関数を作成する
• XMP/Cのpost/wait指示文は廃止
• 参考として、Fortran2008のevent postとevent wait statementsの例は下記の通り（N2007より）

USE, INTRINSIC :: iso_fortran_env
TYPE(event_type) :: submit[*]
   :
EVENT POST (submit[i], STAT=status)
  :
EVENT WAIT (submit, UNTIL_COUNT=10)

• XMP仕様書v1.2.1のXMP/Cのpost/wait指示文の例は下記の通り

#include <xmp.h>
#pragma xmp nodes p(*)
  :
if(xmp_node_num()==1){
  [S1]
  #pragma xmp post (p(2), tag)
}
else{
  #pragma xmp wait (p(1), tag)
  [S2]
}

• 変更案は下記の通り

#include <xmp.h>
xmp_event_t submit:[*];
#pragma xmp nodes p(*)
  :
if(xmp_node_num()==1){
  [S1]
  xmp_event_post(submit:[2]);
}
else{
  xmp_event_wait(submit);
  [S2]
}

• 43 と同様に、XMP/CにおいてFortran2008のSTAT=とERRMSG=にどう対応するか。

• Fortran2008のevent wait statementにはUNTIL_COUNT=というものもある．UNTIL_COUNT=とstatとの組合せはできない
• メモ：stat指定子を使わなければプログラムは異常終了するので、errmsgのみの使用は意味はない
  • postの例
  • xmp_event_post(xmp_event_t submit)
  • xmp_event_post_s(xmp_event_t submit, int *stat)
  • xmp_event_post_se(xmp_event_t submit, int stat, char errmsg)
  • waitの例
  • xmp_event_wait(xmp_event_t submit)
  • xmp_event_wait_u(xmp_event_t submit, int until_count)
  • xmp_event_wait_s(xmp_event_t submit, int *stat)
  • xmp_event_wait_se(xmp_event_t submit, int stat, char errmsg)