WRITE (1,55)
55 FORMAT (1H0)
C
WRITE (1,55)
55 FORMAT (1H0)
C
CALL CALC2
C
WRITE(1, 60)
CALL CALC2
C
WRITE(1, 60)
SUBROUTINE PLOTI
INTEGER PEN,PENX
COMMON /PENSTA/PEN,PENX
SUBROUTINE PLOTI
INTEGER PEN,PENX
COMMON /PENSTA/PEN,PENX
+ CALL PL$INI
+ CALL PL$SCL(3.0)
+ CALL PL$PU
CALL PL$R
IF (PEN.EQ.0) CALL PL$PD
PEN=1
CALL PL$R
IF (PEN.EQ.0) CALL PL$PD
PEN=1
PENX=PENX-1
GO TO 8000
8100 CONTINUE
PENX=PENX-1
GO TO 8000
8100 CONTINUE
- CALL PL$DN
- CALL PL$DN