X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Fmandelbrot%2Fsrc%2Fapfel.f;h=d6c4fb6be4b428288c6f672ce95a89b4899349ec;hb=ea78fc91fca804d41e7caf94025a4616e4f2daad;hp=2ecffd304d0c218ce7c4de9d5ebf88442205d857;hpb=c08e22bbb226696a64764be9b466a02a3ab0d93f;p=h316.git

diff --git a/programs/mandelbrot/src/apfel.f b/programs/mandelbrot/src/apfel.f
index 2ecffd3..d6c4fb6 100644
--- 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:)