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

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.