version 1.17, 2016/02/13 06:47:50 |
version 1.18, 2016/02/15 07:42:07 |
|
|
/* $OpenXM: OpenXM/src/hgm/mh/src/mh.c,v 1.16 2016/02/13 05:55:09 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/hgm/mh/src/mh.c,v 1.17 2016/02/13 06:47:50 takayama Exp $ */ |
#include <stdio.h> |
#include <stdio.h> |
#include <string.h> |
#include <string.h> |
#include "sfile.h" |
#include "sfile.h" |
Line 100 struct cWishart *mh_cwishart_gen(int m,int n,double be |
|
Line 100 struct cWishart *mh_cwishart_gen(int m,int n,double be |
|
mh_outstr((char *)(cw->aux),(sfp->len)+1,sfp); |
mh_outstr((char *)(cw->aux),(sfp->len)+1,sfp); |
/* todo, the following line seems to cause seg fault. */ |
/* todo, the following line seems to cause seg fault. */ |
/* deallocate the memory */ |
/* deallocate the memory */ |
for (i=0; i<rp->size; i++) mh_fclose((rp->sfpp)[i]); |
//for (i=0; i<rp->size; i++) mh_fclose((rp->sfpp)[i]); |
/* todo, mh_free_??(rp); free Iv's */ |
/* todo, mh_free_??(rp); free Iv's */ |
if (!modep[1]) return(cw); |
if (!modep[1]) return(cw); |
|
|
Line 250 struct cWishart *mh_pFq_gen(int m, |
|
Line 250 struct cWishart *mh_pFq_gen(int m, |
|
mh_outstr((char *)(cw->aux),(sfp->len)+1,sfp); |
mh_outstr((char *)(cw->aux),(sfp->len)+1,sfp); |
/* todo, the following line seems to cause seg fault. */ |
/* todo, the following line seems to cause seg fault. */ |
/* deallocate the memory */ |
/* deallocate the memory */ |
for (i=0; i<rp->size; i++) mh_fclose((rp->sfpp)[i]); |
//for (i=0; i<rp->size; i++) mh_fclose((rp->sfpp)[i]); |
/* todo, mh_free_??(rp); free Iv's */ |
/* todo, mh_free_??(rp); free Iv's */ |
if (!modep[1]) return(cw); |
if (!modep[1]) return(cw); |
|
|