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
|
PROGRAM UNPACK
C----------------------------------------------------------------------
C
C February 1994 Output file name changed for Acorn Archimedes
C environment.
C D.J. Crennell (Fortran Friends)
C
C Convert packed (binary) representation of GRFONT into unpacked
C (ASCII) representation suitable for editing. The input file is
C read from PLT$FONT as in PGPLOT; the output file is GRFONT.TXT.
C
C This program uses the PGPLOT internal routines GRSY00 and
C GRSYXD and must therefore be linked with the non-shareable library.
C
C T. J. Pearson 1987 May 6
C----------------------------------------------------------------------
INTEGER XYGRID(300)
LOGICAL UNUSED
INTEGER I, N, LENGTH
C-----------------------------------------------------------------------
OPEN (UNIT=1, FILE='<PGPLOT_DIR>.GRFont/txt', STATUS='NEW',
1 FORM = 'FORMATTED')
CALL GRSY00
DO 30 N=1,4000
CALL GRSYXD(N,XYGRID,UNUSED)
IF (.NOT.UNUSED) THEN
c DO 10 I=1,300
DO 10 I=2,300,2
IF(XYGRID(I).EQ.-64) THEN
IF (XYGRID(I+1).EQ.-64) THEN
LENGTH = I+1
GOTO 20
END IF
END IF
10 CONTINUE
STOP 'Unfortunate error'
20 WRITE (1,'(7(2X,2I4))') N, LENGTH, (XYGRID(I), I=1,5)
WRITE (1,'(7(2X,2I4))') (XYGRID(I),I=6,LENGTH)
PRINT *,'entry',N
END IF
30 CONTINUE
CLOSE(1)
CALL OSCLI('SetType '//'<PGPLOT_DIR>.fonts.grfont/txt FFF')
C-----------------------------------------------------------------------
END
|
