home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / maths / pgplot_1 / SYS_ARC_f77_CreateHelp < prev    next >
Encoding:
Text File  |  1996-04-23  |  1.3 KB  |  48 lines
  1.       PROGRAM MHELP
  2. C          to make an !SrcEdit type help file
  3.       CHARACTER LINE*80, TEST*80
  4.       LOGICAL NOGR
  5.    10 PRINT 101
  6.   101 FORMAT(' Exclude GRxxxx routines? (Y/N) ',$)
  7.       READ(*,102,ERR=10)TEST
  8.   102 FORMAT(A)
  9.       IF(TEST.EQ.'Y'.OR.TEST.EQ.'y') THEN
  10.         NOGR=.TRUE.
  11.       ELSEIF(TEST.EQ.'N'.OR.TEST.EQ.'n') THEN
  12.         NOGR=.FALSE.
  13.       ELSE
  14.         GO TO 10
  15.       ENDIF
  16.       OPEN(10,FILE='<PGPlot_Dir>.f77.PGPlot',STATUS='OLD',ERR=90)
  17.       OPEN(11,FILE='<PGPlot_Dir>.HelpPGPLOT',STATUS='UNKNOWN')
  18.    20 READ(10,102,END=80)LINE
  19.       IF(LINE(1:2).NE.'C*') GO TO 20
  20.    30 IF(LINE(3:4).EQ.'GR'.AND.NOGR) GO TO 20
  21.    40 READ(10,102,END=80)TEST
  22.       IF(TEST(1:2).EQ.'C*') THEN
  23.         LINE=TEST
  24.         GO TO 30
  25.       ENDIF
  26.       IF(TEST(1:2).NE.'C+') GO TO 40
  27.       L=LNBLNK(LINE)
  28.       I=INDEX(LINE,' ')
  29.       WRITE(11,102)'%'//LINE(3:I-1)
  30.       PRINT 102,LINE(3:I-1)
  31.       I=INDEX(LINE(I+1:),' ')+I
  32.       WRITE(11,102)LINE(I:L)
  33.    50 READ(10,102,END=80)LINE
  34.       IF(LINE(1:3).EQ.'C--') THEN
  35.         WRITE(11,*)
  36.         GO TO 20
  37.       ELSE
  38.         L=MAX(2,LNBLNK(LINE))
  39.         WRITE(11,102)LINE(2:L)
  40.       ENDIF
  41.       GO TO 50
  42.    80 CLOSE(10)
  43.       CLOSE(11)
  44.       CALL OSCLI('SetType <PGPlot_Dir>.HelpPGPLOT FFF')
  45.       STOP
  46.    90 STOP 'Can not find PGPLOT source in f77 directory'
  47.       END
  48.