*** empty log message ***

[h316.git] / programs / plotter / src / plotapfel2.f

diff --git a/programs/plotter/src/plotapfel2.f b/programs/plotter/src/plotapfel2.f
index 95aae1ecc5969197a4b7318fdeef9177657eef6e..4f25c4cc5499fe5987c5cd96b9330d6ae951c056 100644 (file)
--- a/programs/plotter/src/plotapfel2.f
+++ b/programs/plotter/src/plotapfel2.f
@@ -41,6 +41,7 @@ C
        WRITE  (1,55)
  55    FORMAT (1H0)
 C
+       CALL PLOTI
        CALL CALC2
 C
        WRITE(1, 60)
@@ -108,7 +109,9 @@ CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
       SUBROUTINE PLOTI
       INTEGER PEN,PENX
       COMMON /PENSTA/PEN,PENX
-      CALL PL$UP
+      CALL PL$INI
+      CALL PL$SCL(3.0)
+      CALL PL$PU
       PEN=0
       PENX=0
       RETURN
@@ -120,9 +123,9 @@ C
       CALL PL$R
       IF (PEN.EQ.0) CALL PL$PD
       PEN=1
-      CALL PL$UP
+      CALL PL$U
       CALL PL$R
-      CALL PL$DN
+      CALL PL$D
       PENX=PENX+2
       RETURN
       END
@@ -147,8 +150,8 @@ C
       PENX=PENX-1
       GO TO 8000
  8100 CONTINUE
-      CALL PL$DN
-      CALL PL$DN
+      CALL PL$D
+      CALL PL$D
       RETURN
       END
 C