*** empty log message ***

[h316.git] / programs / mandelbrot / src / apfel3.f

diff --git a/programs/mandelbrot/src/apfel3.f b/programs/mandelbrot/src/apfel3.f
index 168a92602648e2c069278be2f2fbec0c1956d2ca..eb86d582b2ae063a5e5025bc943390707c5b7573 100644 (file)
--- a/programs/mandelbrot/src/apfel3.f
+++ b/programs/mandelbrot/src/apfel3.f
@@ -94,10 +94,13 @@ C
 C
 CCCCCC PUNKT FERTIG
   410  NOUT=32
+C       IF (COUNT.GE.8) NOUT=46
+C       IF (COUNT.GE.23) NOUT=43
+C       IF (COUNT.EQ.MAXI) NOUT=64
        IF (COUNT.GE.8) NOUT=46
        IF (COUNT.GE.23) NOUT=43
        IF (COUNT.EQ.MAXI) NOUT=64
-C       NOUT=46
+
   411  CALL PCHAR(NOUT)
        GO TO 500
 C
@@ -129,13 +132,13 @@ C
 C
        CR      = 13 
        LF      = 10
-       WIDTH   = 70
+       WIDTH   = 68
        MAXI    = 60
        MAXVAL  = 2.0
-       LOWX    =-1.45
-       HIGHX   = 0.45
-       LOWY    =-1.00
-       HIGHY   = 1.00
+       LOWX    =-1.48
+       HIGHX   = 0.5
+       LOWY    =-1.2
+       HIGHY   = 1.2
        INIT    =  1
 C  
 CCCCCC SCHRITTWEITEN AUSRECHNEN