エラーコードを出力する。
call cg_iric_write_errorcode_f(code, ier)
ier = cg_iRIC_Write_ErrorCode(code);
cg_iRIC_Write_ErrorCode(code)