--- /home/jharris/SFH-1.1-p1/sfhcode/amoeba.f	2004-05-16 14:28:13.000000000 -0700
+++ amoeba.f	2004-10-29 11:55:42.000000000 -0700
@@ -84,7 +84,9 @@
       ytry = amotry(p,y,psum,ihi,-1.0)
 
       if (ytry.le.y(ilo)) then
-         if ( iverb.ge.3 ) write(*,*) '  current fitstat: ', ytry
+         if ( iverb.ge.3 ) 
+     x        call dblemessage( "  current fitstat: ", ytry )
+
          ytry = amotry(p,y,psum,ihi,2.0)
 
       else if (ytry.ge.y(inhi)) then