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