[BACK]Return to wmain.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / hgm / mh / src

Diff for /OpenXM/src/hgm/mh/src/wmain.c between version 1.30 and 1.31

version 1.30, 2016/02/13 05:55:09 version 1.31, 2016/02/13 22:56:50
Line 1 
Line 1 
 /*  /*
   $OpenXM: OpenXM/src/hgm/mh/src/wmain.c,v 1.29 2016/02/13 02:34:20 takayama Exp $    $OpenXM: OpenXM/src/hgm/mh/src/wmain.c,v 1.30 2016/02/13 05:55:09 takayama Exp $
   License: LGPL    License: LGPL
 */  */
 #include <stdio.h>  #include <stdio.h>
Line 179  struct MH_RESULT *mh_main(int argc,char *argv[]) {
Line 179  struct MH_RESULT *mh_main(int argc,char *argv[]) {
   if (MH_strategy) {    if (MH_strategy) {
     if (MH_abserr > SIGDIGIT_DEFAULT*myabs(y0[0])) {      if (MH_abserr > SIGDIGIT_DEFAULT*myabs(y0[0])) {
       MH_success = 0;        MH_success = 0;
       oxprintfe("%%%%Warning, abserr seems not to be small enough, abserr=%lg, y[0]=%lg\n",MH_abserr,y0[0]);        oxprintfe("%%%%Warning, abserr seems not to be small enough, abserr=%lg, y[0]=%lg. Increasing the starting point (q0 or X0g(standalone case)) may help.\n",MH_abserr,y0[0]);
     }else{      }else{
       MH_success = 1;        MH_success = 1;
     }      }
Line 245  static int setParamDefault() {
Line 245  static int setParamDefault() {
   MH_Dp = 1;    MH_Dp = 1;
   Xng = 10.0; return(0);    Xng = 10.0; return(0);
 }  }
   #ifdef STANDALONE
   /* may remove */
 static int next_old1(struct SFILE *sfp,char *s,char *msg) {  static int next_old1(struct SFILE *sfp,char *s,char *msg) {
   s[0] = '%';    s[0] = '%';
   while (s[0] == '%') {    while (s[0] == '%') {
Line 256  static int next_old1(struct SFILE *sfp,char *s,char *m
Line 257  static int next_old1(struct SFILE *sfp,char *s,char *m
     if (s[0] != '%') return(0);      if (s[0] != '%') return(0);
   } return(0);    } return(0);
 }  }
   #endif
 static int next(struct SFILE *sfp,char *s,char *msg) {  static int next(struct SFILE *sfp,char *s,char *msg) {
   static int check=1;    static int check=1;
   char *ng="%%Ng=";    char *ng="%%Ng=";
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>