Ticket #30342: patch-ARB-lsadt.c.diff
File patch-ARB-lsadt.c.diff, 969 bytes (added by matt.cottrell@…, 13 years ago) |
---|
-
GDE/SUPPORT/lsadt.c
old new 522 522 for(i=2; i<=n; i++) 523 523 for(j=1; j<i; j++) 524 524 d[i][j] = runif(); 525 return ;525 return 0; 526 526 } 527 527 if(nempty == 0 && start == 2) 528 528 { … … 530 530 for(i=2; i<=n; i++) 531 531 for(j=1; j<i; j++) 532 532 d[i][j] = delta[i][j] + rnorm()*estd; 533 return ;533 return 0; 534 534 } 535 535 for(i=2; i<=n; i++) 536 536 for(j=1; j<i; j++) 537 537 d[i][j] = delta[i][j]; 538 if(start==3 && nempty==0) return ;538 if(start==3 && nempty==0) return 0; 539 539 emp=nempty; 540 540 nemp=0; 541 541 while(nemp<emp) … … 576 576 for(j=1; j<i; j++) 577 577 d[i][j]+= rnorm()*estd; 578 578 } 579 return ;579 return 0; 580 580 } 581 581 582 582 static int nm0, nm1, nm2, nm3; … … 735 735 { 736 736 prc = 0; 737 737 print_iter(maxfnc, f); 738 return ;738 return 0; 739 739 } 740 740 if(itcrs>m) 741 741 { … … 813 813 { 814 814 prc = 0; 815 815 print_iter(maxfnc, f); 816 return ;816 return 0; 817 817 } 818 818 } 819 819 if(maxfnc==maxfn)