Initial commit from Polytechnique Montreal

1 files changed, 27 insertions, 0 deletions

diff --git a/Utilib/src/PSCUTP.f b/Utilib/src/PSCUTP.f
new file mode 100644
index 0000000..907becf
--- /dev/null
+++ b/Utilib/src/PSCUTP.f
@@ -0,0 +1,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