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