home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ARM Club 3
/
TheARMClub_PDCD3.iso
/
hensa
/
maths
/
pgplot_1
/
SYS_ARC
/
f77
/
PGUnpack
< prev
next >
Wrap
Text File
|
1996-01-02
|
2KB
|
46 lines
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