Initial commit

1 files changed, 116 insertions, 0 deletions

diff --git a/sys/gio/ncarutil/tests/pwrztt.f b/sys/gio/ncarutil/tests/pwrztt.f
new file mode 100644
index 00000000..dcf43638
--- /dev/null
+++ b/sys/gio/ncarutil/tests/pwrztt.f
@@ -0,0 +1,116 @@
+      SUBROUTINE TPWRZT	(IERROR)
+C
+C LATEST REVISION	 JULY, 1984
+C
+C PURPOSE		 TO PROVIDE A SIMPLE DEMONSTRATION OF
+C			 PWRZT IN CONJUNCTION WITH THREED.
+C
+C USAGE			 CALL TPWRZT (IERROR)
+C
+C ARGUMENTS
+C
+C ON OUTPUT		 IERROR
+C			   AN INTEGER VARIABLE
+C			   = 0,	IF THE TEST IS SUCCESSFUL,
+C			   = 1,	OTHERWISE
+C
+C I/O			 IF THE	TEST IS	SUCCESSFUL, THE	MESSAGE
+C
+C			   PWRZT TEST SUCCESSFUL  . . .	 SEE PLOT
+C			   TO VERIFY PERFORMANCE
+C
+C			 IS PRINTED ON UNIT 6.
+C
+C			 IN ADDITION, ONE FRAME	CONTAINING THE
+C			 CHARACTER PLOT	IS PRODUCED ON THE
+C			 MACHINE GRAPHICS DEVICE.  TO DETERMINE
+C			 IF THE	TEST IS	SUCCESSFUL, IT IS NECESSARY
+C			 TO EXAMINE THIS PLOT.
+C
+C PRECISION		 SINGLE
+C
+C REQUIRED LIBRARY	 PWRZT,	THREED
+C FILES
+C
+C
+C LANGUAGE		 FORTRAN
+C
+C ALGORITHM		 TPWRZT	CALLS SUBROUTINES SET3 AND LINE3 FROM
+C			 THE ULIB THREED PACKAGE TO ESTABLISH THE
+C			 THREE SPACE-TO-TWO SPACE TRANSFORMATION
+C			 AND TO	DRAW AXIS LINES.  TPWRZT NEXT CALLS
+C			 SUBROUTINE PWRZT FROM THE ULIB	THREED
+C			 PACKAGE TO LABEL THE AXES FOR A THREE SPACE
+C			 PLOT.
+C
+C PORTABILITY		 ANSI FORTRAN 77
+C
+C
+C EYE CONTAINS THE (U,V,Z) COORDINATE OF THE EYE POSITION
+C
+      REAL	      EYE(3)
+      DATA EYE(1), EYE(2), EYE(3) /3.5,	3.0, 5.0/
+C
+C INITIALIZE ERROR PARAMETER
+C
+      IERROR = 1
+C
+C SELECT NORMALIZATION TRANS NUMBER 0
+C
+      CALL GSELNT (0)
+C
+C SUBROUTINE SET3 ESTABLISHES THE MAPPING OF THREE SPACE COORDINATES
+C ONTO THE GRAPHICS DEVICE COORDINATE SYSTEM.
+C
+      CALL SET3	(.1,.9,.1,.9,0.,1.,0.,1.,0.,1.,EYE)
+C
+C THE FOLLOWING	THREE CALLS TO LINE3 DRAW THE THREE SPACE AXES
+C
+      CALL LINE3 (0.,0.,0.,0.,0.,1.)
+      CALL LINE3 (0.,0.,0.,0.,1.,0.)
+      CALL LINE3 (0.,0.,0.,1.,0.,0.)
+C
+C SUBROUTINE PWRZ IS USED TO LABEL EACH	OF THE AXES AND	THE PLOT
+C ON INPUT TO PWRZ,
+C THE FIRST THREE PARAMETERS AND ICNT DETERMINE	THE POSITION OF	THE
+C CHARACTER STRING.
+C ISIZE	DETERMINES THE CHARACTER SIZE.
+C LINE AND ITOP	DETERMINE THE DIRECTION	AND PLANE OF THE CHARACTERS.
+C
+C
+      ICNT = 0
+      ISIZE = 30
+      LINE = 2
+      ITOP = 3
+      CALL PWRZT (0.,.5,.1,'V-AXIS',6,ISIZE,LINE,ITOP,ICNT)
+C
+      LINE = -1
+      ITOP = 3
+      CALL PWRZT (.5,0.,.1,'U-AXIS',6,ISIZE,LINE,ITOP,ICNT)
+C
+      LINE = 3
+      ITOP = -2
+      CALL PWRZT (0.,.1,.5,'Z-AXIS',6,ISIZE,LINE,ITOP,ICNT)
+C
+      LINE = 2
+      ITOP = -1
+      ISIZE = 30
+      ICNT = -1
+      CALL PWRZT (.5,.2,0.,'DEMONSTRATION OF PWRZT WITH	THREED',
+     1		  34,ISIZE,LINE,ITOP,ICNT)
+C
+C A CALL TO NEWFM INDICATES THAT THE PICTURE IS	COMPLETE
+C
+      CALL NEWFM
+C
+      IERROR = 0
+c     WRITE (6,1001)
+C
+      RETURN
+C
+C
+C
+c1001 FORMAT ('	     PWRZT TEST	SUCCESSFUL',24X,
+c    1	      'SEE PLOT	TO VERIFY PERFORMANCE')
+C
+      END