Return to g.f CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst

Annotation of cci/usr/src/usr.bin/f77/f77pass1/tst/g.f, revision 1.1.1.1

1.1       root        1:        parameter(pi=3.14159265)
                      2:        external xsin
                      3:        call graf(xsin,0.,2*pi,0.02,-1.,+1.)
                      4:        end
                      5: 
                      6:        subroutine graf(f,xmin,xmax,dx,ymin,ymax)
                      7:        parameter(nline=75)
                      8:        external f
                      9:        x = xmin
                     10: 1      y = f(x)
                     11:        if(y.lt.ymin.or.y.gt.ymax)then
                     12:        print 10, ' '
                     13:        else
                     14:        j = (y-ymin)/(ymax-ymin)*(nline-1)
                     15:        print 10,(' ',i=1,j),'*'
                     16:        endif
                     17:        x = x+dx
                     18:        if(x.le.xmax)goto 1
                     19:        return
                     20: 10     format(80a1)
                     21:        end
                     22: 
                     23:        function xsin(x)
                     24:        xsin = sin(x*12)*sin(x)
                     25:        return
                     26:        end

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