projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed dependencies in Makefile
[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
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
C
WRITE(1,11)
READ (1,16) XIN1
@@
-100,8
+99,7
@@
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C STARTWERTE AUSGEBEN
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:)
IF(I.EQ.1) GO TO 299
WRITE (1,20)
20 FORMAT (9HSETTINGS:)