home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ARM Club 3
/
TheARMClub_PDCD3.iso
/
hensa
/
maths
/
pgplot_1
/
SYS_ARC
/
f77
/
CreateHelp
< prev
next >
Wrap
Text File
|
1996-04-23
|
1KB
|
48 lines
PROGRAM MHELP
C to make an !SrcEdit type help file
CHARACTER LINE*80, TEST*80
LOGICAL NOGR
10 PRINT 101
101 FORMAT(' Exclude GRxxxx routines? (Y/N) ',$)
READ(*,102,ERR=10)TEST
102 FORMAT(A)
IF(TEST.EQ.'Y'.OR.TEST.EQ.'y') THEN
NOGR=.TRUE.
ELSEIF(TEST.EQ.'N'.OR.TEST.EQ.'n') THEN
NOGR=.FALSE.
ELSE
GO TO 10
ENDIF
OPEN(10,FILE='<PGPlot_Dir>.f77.PGPlot',STATUS='OLD',ERR=90)
OPEN(11,FILE='<PGPlot_Dir>.HelpPGPLOT',STATUS='UNKNOWN')
20 READ(10,102,END=80)LINE
IF(LINE(1:2).NE.'C*') GO TO 20
30 IF(LINE(3:4).EQ.'GR'.AND.NOGR) GO TO 20
40 READ(10,102,END=80)TEST
IF(TEST(1:2).EQ.'C*') THEN
LINE=TEST
GO TO 30
ENDIF
IF(TEST(1:2).NE.'C+') GO TO 40
L=LNBLNK(LINE)
I=INDEX(LINE,' ')
WRITE(11,102)'%'//LINE(3:I-1)
PRINT 102,LINE(3:I-1)
I=INDEX(LINE(I+1:),' ')+I
WRITE(11,102)LINE(I:L)
50 READ(10,102,END=80)LINE
IF(LINE(1:3).EQ.'C--') THEN
WRITE(11,*)
GO TO 20
ELSE
L=MAX(2,LNBLNK(LINE))
WRITE(11,102)LINE(2:L)
ENDIF
GO TO 50
80 CLOSE(10)
CLOSE(11)
CALL OSCLI('SetType <PGPlot_Dir>.HelpPGPLOT FFF')
STOP
90 STOP 'Can not find PGPLOT source in f77 directory'
END