===================================================================
RCS file: /home/cvs/OpenXM/src/hgm/mh/src/mh-r.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM/src/hgm/mh/src/mh-r.c	2013/02/23 07:00:21	1.1
+++ OpenXM/src/hgm/mh/src/mh-r.c	2013/03/01 05:26:25	1.2
@@ -1,4 +1,4 @@
-/* $OpenXM$
+/* $OpenXM: OpenXM/src/hgm/mh/src/mh-r.c,v 1.1 2013/02/23 07:00:21 takayama Exp $
  R interface module
 */
 
@@ -7,7 +7,7 @@
 #include "mh.h"
 #define WSIZE 1024
 
-Rmh_cwishart_gen(int *mp,int *np,double *beta,double *x0p,
+int Rmh_cwishart_gen(int *mp,int *np,double *beta,double *x0p,
 		int *approxDegp,double *hp, int *dpp, double *xp,
 		 int *modep,int *rankp,double *xy) {
   struct cWishart *cw;