Return to helpset.f CVS log

Up to [Research Unix] / researchv10dc / cmd / matlab

Annotation of researchv10dc/cmd/matlab/helpset.f, revision 1.1.1.1

1.1       root        1:       program hlpset
                      2: c
                      3: c     Two direct access files are required.  Their locations are:
                      4: c
                      5:       character*(*) idfile,dafile
                      6:       parameter(idfile='/usr/local/lib/mathelp.idx')
                      7:       parameter(dafile='/usr/local/lib/mathelp.dac')
                      8: c
                      9:       character*66 line
                     10:       open(unit=9,file='help',access='SEQUENTIAL',status='OLD')
                     11:       open(unit=1,file=dafile,access='DIRECT',recl=66,status='NEW')
                     12:       open(unit=2,file=idfile,access='DIRECT',recl=8,status='NEW')
                     13:       rewind 9
                     14:       n = 0
                     15:       k = 0
                     16:    10 read(9,12,end=20) line
                     17:    12 format(a66)
                     18:       n = n + 1
                     19:       write(1,rec=n) line
                     20:       if (line(1:4) .ne. '    ') then
                     21:          k = k + 1
                     22:          write(2,rec=k) line(1:4),n
                     23:       endif
                     24:       if (line(1:4) .ne. 'EOF ') go to 10
                     25:    20 close(1)
                     26:       close(2)
                     27:       end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.