Return to fmovie.f CVS log

Up to [Research Unix] / researchv10no / cmd / view2d / cray / Old

Annotation of researchv10no/cmd/view2d/cray/Old/fmovie.f, revision 1.1

1.1     ! root        1:        real f(15,10)
        !             2:        integer i, j
        !             3:        do 100 i=1,15
        !             4:          do 100 j=1,10
        !             5:            f(i,j) = i*i + 3*j*j
        !             6: 100    continue
        !             7:        call fmovie(15,10,23.,-1e6,f)
        !             8:        end

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