| version 1.14, 2015/03/24 05:59:43 |
version 1.15, 2015/04/02 01:11:13 |
|
|
| /* $OpenXM: OpenXM/src/hgm/mh/src/mh.c,v 1.13 2014/03/16 03:11:07 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/hgm/mh/src/mh.c,v 1.14 2015/03/24 05:59:43 takayama Exp $ */ |
| #include <stdio.h> |
#include <stdio.h> |
| |
#include <string.h> |
| #include "sfile.h" |
#include "sfile.h" |
| #include "mh.h" |
#include "mh.h" |
| #define WSIZE 1024 |
#define WSIZE 1024 |
| Line 158 struct cWishart *mh_cwishart_hgm(int m,int n,double be |
|
| Line 159 struct cWishart *mh_cwishart_hgm(int m,int n,double be |
|
| } |
} |
| |
|
| #ifdef STANDALONE |
#ifdef STANDALONE |
| main(int argc,char *argv[]) { |
int main(int argc,char *argv[]) { |
| double beta[5]={1.0,2.0,3.0,4.0,5.0}; |
double beta[5]={1.0,2.0,3.0,4.0,5.0}; |
| struct cWishart *cw; |
struct cWishart *cw; |
| struct SFILE *sfp; |
struct SFILE *sfp; |
| Line 204 main(int argc,char *argv[]) { |
|
| Line 205 main(int argc,char *argv[]) { |
|
| mh_fclose(sfp); |
mh_fclose(sfp); |
| } |
} |
| } |
} |
| |
return(0); |
| } |
} |
| main1() { |
int main1() { |
| double beta[5]={1.0,2.0,3.0,4.0,5.0}; |
double beta[5]={1.0,2.0,3.0,4.0,5.0}; |
| struct cWishart *cw; |
struct cWishart *cw; |
| int verbose=1; |
int verbose=1; |
|
|
| if (cw != NULL) { |
if (cw != NULL) { |
| oxprintf("%s",(char *)cw->aux); |
oxprintf("%s",(char *)cw->aux); |
| } |
} |
| |
return(0); |
| } |
} |
| #endif |
#endif |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to mh.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / hgm / mh / src