blob: 907becf487080b41e9ab825d1f460520dbc788c6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
*DECK PSCUTP
SUBROUTINE PSCUTP(ISPSP)
C
C--------------------------- PSCUTP ---------------------------------
C
C 1- PROGRAMME STATISTICS:
C NAME : PSCUTP
C USE : CUT POSTSCRIPT PAGE
C
C 2- ROUTINE PARAMETERS:
C INPUT/OUTPUT
C ISPSP : PSP FILE UNIT I
C
C--------------------------- PSCUTP --------------------------------
C
IMPLICIT NONE
INTEGER ISPSP
C----
C LOCAL VARIABLES
C----
CHARACTER NAMSBR*6
PARAMETER (NAMSBR='PSCUTP')
CHARACTER CMDSTR*132
CMDSTR='stroke showpage'
CALL PSCPUT(ISPSP,CMDSTR)
RETURN
END
|
