/usr/share/ncarg/tests/tpltch.f is in libncarg-data 6.1.2-7.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 | PROGRAM TPLTCH
C
C Define the error file, the Fortran unit number, the workstation type,
C and the workstation ID to be used in calls to GKS routines.
C
C PARAMETER (IERRF=6, LUNIT=2, IWTYPE=1, IWKID=1) ! NCGM
C PARAMETER (IERRF=6, LUNIT=2, IWTYPE=8, IWKID=1) ! X Windows
C PARAMETER (IERRF=6, LUNIT=2, IWTYPE=11, IWKID=1) ! PDF
C PARAMETER (IERRF=6, LUNIT=2, IWTYPE=20, IWKID=1) ! PostScript
C
PARAMETER (IERRF=6, LUNIT=2, IWTYPE=1, IWKID=1)
C
C OPEN GKS, OPEN WORKSTATION OF TYPE 1, ACTIVATE WORKSTATION
C
CALL GOPKS (IERRF, ISZDM)
CALL GOPWK (IWKID, LUNIT, IWTYPE)
CALL GACWK (IWKID)
C
C INVOKE DEMO DRIVER
C
CALL PLTCH(IERR)
C
C DEACTIVATE AND CLOSE WORKSTATION, CLOSE GKS.
C
CALL GDAWK (IWKID)
CALL GCLWK (IWKID)
CALL GCLKS
C
STOP
END
C
SUBROUTINE PLTCH (IERR)
C
C LATEST REVISION November, 1992.
C
C PURPOSE To provide a minimal demo and test of routines
C in the package PLOTCHAR.
C
C USAGE CALL PLTCH (IERR)
C
C ARGUMENTS
C
C ON OUTPUT IERR
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 PLOTCHAR TEST EXECUTED--SEE PLOTS TO CERTIFY
C
C is written on unit 6.
C
C In addition, one frame is produced. To
C determine if the test is successful, it is
C necessary to examine that frame.
C
C PRECISION Single
C
C REQUIRED PACKAGES PLOTCHAR, SPPS
C
C REQUIRED GKS LEVEL 0A
C
C LANGUAGE FORTRAN
C
C ALGORITHM TPLTCH just writes a simple message on a
C single frame. For a more complex example
C of the use of PLOTCHAR, see the example
C named "epltch".
C
CHARACTER*53 MSG(5)
C
DATA MSG /'This is the graphical output from the example named' ,
+ '"tpltch". It demonstrates minimal functioning of the',
+ 'package PLOTCHAR. For a more complete demonstration' ,
+ 'of the capabilities of PLOTCHAR, run the example' ,
+ 'named "epltch".' /
C
C Do a call to SET which allows the use of fractional coordinates.
C
CALL SET (0.,1.,0.,1.,0.,1.,0.,1.,1)
C
C Write a single frame, using calls to PLCHHQ, PLCHMQ, and PLCHLQ.
C
CALL PLCHMQ (.5,.95,'PLOTCHAR DEMONSTRATION',16.,0.,0.)
C
CALL PLCHHQ (.5,.77,'DEMONSTRATING THE USE OF CALLS TO PLCHHQ',
+ 16.,0.,0.)
C
DO 101 I=1,5
CALL PLCHHQ (.1025,.75-.03*REAL(I),MSG(I),.015,0.,-1.)
101 CONTINUE
C
CALL PLCHMQ (.5,.52,'DEMONSTRATING THE USE OF CALLS TO PLCHMQ',
+ 16.,0.,0.)
C
DO 102 I=1,5
CALL PLCHMQ (.1025,.50-.03*REAL(I),MSG(I),.015,0.,-1.)
102 CONTINUE
C
CALL PLCHLQ (.5,.27,'DEMONSTRATING THE USE OF CALLS TO PLCHLQ',
+ 16.,0.,0.)
C
DO 103 I=1,5
CALL PLCHLQ (.1025,.25-.03*REAL(I),MSG(I),.015,0.,-1.)
103 CONTINUE
C
C Advance the frame.
C
CALL FRAME
C
C Zero the error flag.
C
IERR=0
C
C Write the log message.
C
WRITE (6,1001)
C
C Quit.
C
RETURN
C
C Format.
C
1001 FORMAT (' PLOTCHAR TEST EXECUTED--SEE PLOTS TO CERTIFY')
C
END
|