*** empty log message ***

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

diff --git a/programs/mandelbrot/src/apfel.f b/programs/mandelbrot/src/apfel.f
index 2ecffd304d0c218ce7c4de9d5ebf88442205d857..d6c4fb6be4b428288c6f672ce95a89b4899349ec 100644 (file)
--- a/programs/mandelbrot/src/apfel.f
+++ b/programs/mandelbrot/src/apfel.f
@@ -45,9 +45,8 @@ C
 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
 C                        EINGABEN ANNEHMEN
 C
-       N=1
-       CALL SSWTCH(N,I)
-       IF(I.EQ.1) GO TO 150
+       CALL SSWTCH(1,I)
+       IF(I.NE.1) GO TO 150
 C
        WRITE(1,11)
        READ (1,16) XIN1
@@ -100,8 +99,7 @@ C
 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
 C                        STARTWERTE AUSGEBEN
 C
-       N=2
-       CALL SSWTCH(N,I)
+       CALL SSWTCH(2,I)
        IF(I.EQ.1) GO TO 299
        WRITE  (1,20)
    20  FORMAT (9HSETTINGS:)