2
c ====================================================================
3
c Call unix: scihelp -k symbol
4
c ====================================================================
9
data name/1/,eol/99/,quote/53/,dot/51/
10
if (char1 .eq. eol) then
15
if (sym .eq. name) then
17
call cvstr(nstr,lin(lpt(3)-1),h,1)
19
C argument is a string
20
if (sym.eq.0) sym = dot
23
if (sym.eq.quote) then
27
ilog= getsmat("helpmg",top,top,ms,ns,1,1,lr,nstr)
29
call cvstr(min(nstr,80),istk(lr),h,1)
33
h(nstr+1:nstr+1)= char(0)
34
call isciap(buf,h(1:nstr+1),ierr)