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     ! 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.