home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / graphs / progs / pgplot / SYS_ARC_f77_PGUnpack < prev    next >
Encoding:
Text File  |  1994-02-27  |  1.7 KB  |  46 lines
  1.       PROGRAM UNPACK
  2. C----------------------------------------------------------------------
  3. C
  4. C February 1994 Output file name changed for Acorn Archimedes
  5. C               environment.
  6. C                            D.J. Crennell (Fortran Friends)
  7. C
  8. C Convert packed (binary) representation of GRFONT into unpacked
  9. C (ASCII) representation suitable for editing. The input file is
  10. C read from PLT$FONT as in PGPLOT; the output file is GRFONT.TXT.
  11. C 
  12. C This program uses the PGPLOT internal routines GRSY00 and
  13. C GRSYXD and must therefore be linked with the non-shareable library.
  14. C
  15. C T. J. Pearson  1987 May 6
  16. C----------------------------------------------------------------------
  17.       INTEGER        XYGRID(300)
  18.       LOGICAL        UNUSED
  19.       INTEGER        I, N, LENGTH
  20. C-----------------------------------------------------------------------
  21.       OPEN (UNIT=1, FILE='<PGPLOT_DIR>.GRFont/txt', STATUS='NEW',
  22.      1      FORM = 'FORMATTED')
  23.       CALL GRSY00
  24.       DO 30 N=1,4000
  25.           CALL GRSYXD(N,XYGRID,UNUSED)
  26.           IF (.NOT.UNUSED) THEN
  27. c             DO 10 I=1,300
  28.               DO 10 I=2,300,2
  29.                   IF(XYGRID(I).EQ.-64) THEN
  30.                       IF (XYGRID(I+1).EQ.-64) THEN
  31.                           LENGTH = I+1
  32.                           GOTO 20
  33.                       END IF
  34.                   END IF
  35.    10         CONTINUE
  36.               STOP 'Unfortunate error'
  37.    20         WRITE (1,'(7(2X,2I4))') N, LENGTH, (XYGRID(I), I=1,5)
  38.               WRITE (1,'(7(2X,2I4))') (XYGRID(I),I=6,LENGTH)
  39.               PRINT *,'entry',N
  40.           END IF
  41.    30 CONTINUE
  42.       CLOSE(1)
  43.       CALL OSCLI('SetType '//'<PGPLOT_DIR>.fonts.grfont/txt FFF')
  44. C-----------------------------------------------------------------------
  45.       END
  46.