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
46
47
|
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
|
