[SPTK-CVS] SPTK/src/bin/gmm _gmm.c,1.24,1.25

[Shikano M. <sh...@us...>]

Update of /cvsroot/sp-tk/SPTK/src/bin/gmm
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv28430

Modified Files:
	_gmm.c 
Log Message:
Change the function name and output

Index: _gmm.c
===================================================================
RCS file: /cvsroot/sp-tk/SPTK/src/bin/gmm/_gmm.c,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** _gmm.c	14 Dec 2015 01:14:15 -0000	1.24
--- _gmm.c	16 Dec 2015 07:24:03 -0000	1.25
***************
*** 63,67 ****
  int choleski(double **cov, double **S, const int L);
  
! double cal_det(double **var, const int D)
  {
     int i, j, l;
--- 63,67 ----
  int choleski(double **cov, double **S, const int L);
  
! double cal_ldet(double **var, const int D)
  {
     int i, j, l;
***************
*** 92,96 ****
        free(tri);
  
!       return 0;
     }
  }
--- 92,96 ----
        free(tri);
  
!       return LZERO;
     }
  }
***************
*** 112,119 ****
     double gconst, tmp;
  
!    tmp = cal_det(var, D);
!    if (tmp == 0) {
        fprintf(stderr, "WARNING : det is 0!\n");
!       return 0;
     }
     gconst = D * log(M_2PI);
--- 112,119 ----
     double gconst, tmp;
  
!    tmp = cal_ldet(var, D);
!    if (tmp == LZERO) {
        fprintf(stderr, "WARNING : det is 0!\n");
!       return LZERO;
     }
     gconst = D * log(M_2PI);
***************
*** 451,455 ****
           gmm->gauss[m].gconst = cal_gconstf(gmm->gauss[m].cov, gmm->dim);
        }
!       if (gmm->gauss[m].gconst == 0) {
           return -1;
        }
--- 451,455 ----
           gmm->gauss[m].gconst = cal_gconstf(gmm->gauss[m].cov, gmm->dim);
        }
!       if (gmm->gauss[m].gconst == LZERO) {
           return -1;
        }