Return to helper.f CVS log

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

Annotation of researchv10dc/cmd/matlab/pyxis/helper.f, revision 1.1

1.1     ! root        1:       subroutine helper(h)
        !             2:       character*4 h(4)
        !             3: c
        !             4: c     Handle HELP file
        !             5: c     h = key word, format 4a1
        !             6: c
        !             7: c     Two direct access files are required.  Their locations are:
        !             8: c
        !             9:       character*(*) idfile,dafile
        !            10:       parameter(idfile='/v/lib/mathelp.idx')
        !            11:       parameter(dafile='/v/lib/mathelp.dac')
        !            12: c
        !            13:       parameter(lrecl=66)
        !            14:       character*66 line
        !            15:       character*4 keys(128),key
        !            16:       integer locs(128)
        !            17:       INTEGER DDT,ERR,FMT,LCT(4),LIN(1024),LPT(6),RIO,WIO,RTE,WTE,HIO
        !            18:       COMMON /IOP/ DDT,ERR,FMT,LCT,LIN,LPT,RIO,WIO,RTE,WTE,HIO
        !            19: c
        !            20: c     Initialization indicated by h(1) = 0
        !            21: c
        !            22:       if (h(1)(1:1) .eq. char(0)) then
        !            23:          open(unit=HIO,file=idfile,access='DIRECT',recl=8)
        !            24:          n = 0
        !            25:    10    n = n + 1
        !            26:          read(HIO,rec=n,err=15) keys(n),locs(n)
        !            27:          if (keys(n) .ne. 'EOF ') go to 10
        !            28:    15    close(unit=HIO)
        !            29:          nkeys = n-1
        !            30:          key = 'HELP'
        !            31:          open(unit=HIO,file=dafile,access='DIRECT',recl=lrecl)
        !            32:       endif
        !            33: c
        !            34: c     Convert h to conventional string
        !            35: c
        !            36:       if (h(1)(1:1) .ne. char(0)) then
        !            37:          do 20 i = 1, 4
        !            38:             key(i:i) = h(i)
        !            39:    20    continue
        !            40:       endif
        !            41: c
        !            42: c     Special case, HELP followed by blank.  Give general help.
        !            43: c
        !            44:       if (key .eq. '    ') then
        !            45:          write(WTE,30)
        !            46:          if (WIO .ne. 0) write(WIO,30)
        !            47:    30    format(0X,'Type HELP followed by'
        !            48:      >      /0X,'INTRO   (To get started)'
        !            49:      >      /0X,'NEWS    (recent revisions)')
        !            50:          write(WTE,31) (keys(n), n = 19, nkeys)
        !            51:          if (WIO .ne. 0) write(WIO,31) (keys(n), n = 19, nkeys)
        !            52:    31    format(0X,a4,10a6)
        !            53:          write(WTE,32) (keys(n), n = 4, 18)
        !            54:          if (WIO .ne. 0) write(WIO,32) (keys(n), n = 4, 18)
        !            55:    32    format(0X,15(a1,1x))
        !            56:          return
        !            57:       endif
        !            58: c
        !            59: c     Find key word in keys table
        !            60: c
        !            61:       do 40 k = 1, nkeys
        !            62:          if (key .eq. keys(k)) go to 50
        !            63:    40 continue
        !            64:       write(WTE,45) key
        !            65:       if (WIO .ne. 0) write(WIO,45) key
        !            66:    45 format(0X,'SORRY, NO HELP ON ',a4)
        !            67:       return
        !            68: c
        !            69: c     Read and echo lines from direct access help file
        !            70: c
        !            71:    50 write(WTE,75)
        !            72:       if (WIO .ne. 0) write(WIO,75)
        !            73:       k0 = locs(k)
        !            74:       k1 = locs(k+1) - 2
        !            75:       do 80 k = k0, k1
        !            76:    60    read(HIO,rec=k) line
        !            77:          do 65 j = lrecl, 1, -1
        !            78:             if (line(j:j) .ne. ' ') go to 70
        !            79:    65    continue
        !            80:    70    write(WTE,75) line(1:j)
        !            81:          if (WIO .ne. 0) write(WIO,75) line(1:j)
        !            82:    75    format(0X,a)
        !            83:    80 continue
        !            84:       return
        !            85:       end

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