Mercurial > forge

changeset 258:d01f19ebcdcf octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
remove spurious sayif() calls
author etienne
date Sun, 07 Apr 2002 16:34:26 +0000
parents 1754d54a6be4
children 193e9d3a8764
files main/optim/cdiff.m
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/main/optim/cdiff.m	Sun Apr 07 16:03:03 2002 +0000
+++ b/main/optim/cdiff.m	Sun Apr 07 16:34:26 2002 +0000
@@ -51,7 +51,7 @@
 if nargin<5, stack = "" ; end
 if nargin<6, dx = 10*sqrt(eps)  ; end
 
-verbose = 0 ;
+## verbose = 0 ;
 ## build argstr = "var1,..,dvar,...var_nargs"
 if isfinite (nargs)
   argstr = sprintf("var%i,",1:nargs);
@@ -89,7 +89,7 @@
 			  "  scramble = reshape (1:pr,sr(2),sr(1))';\n",\
 			  "  df = reshape (df',pr,ps)(scramble(:),:);\n"),\
 		   calstr) ;
-  sayif(verbose,"cdiff : calstr='%s'\n",calstr) ;
+  ## sayif(verbose,"cdiff : calstr='%s'\n",calstr) ;
 else				# No stacking ########################
   calstr = sprintf("%s (%s)",func,argstr) ;
   ## "func(var1,dvar%sdv(:,%d:%d),...,varN),"
@@ -120,7 +120,7 @@
   ## "func(var1,reshape(dvar(1:NV,1),SZ1,SZ2),...,varN)," , 
   ## "func(var1,reshape(dvar(1:NV,2),SZ1,SZ2),...,varN)," , ...
   ## "func(var1,reshape(dvar(1:NV,NP),SZ1,SZ2),...,varN)"
-  sayif(verbose,"cdiff : calstr='%s'\n",calstr) ;
+  ## sayif(verbose,"cdiff : calstr='%s'\n",calstr) ;
 end
 
 calstr = strrep (calstr, "...", "all_va_args");