Return to eig.f CVS log

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

Annotation of researchv10no/cmd/view2d/cray/eig.f, revision 1.1.1.1

1.1       root        1:       integer unit, nx, ny
                      2:       parameter (nx=20,ny=20)
                      3:       real f(nx,ny), fmin, fmax, outsid
                      4:       real pi, z
                      5:       real time
                      6:       unit=30
                      7:       time=0
                      8:       outsid = -99999
                      9:       pi=4*atan(1.)
                     10:       z=2*pi/(nx-1)
                     11:       do 200 k=1,1
                     12:       do 100 i=1,nx
                     13:         do 100 j=1,ny
                     14:           f(i,j) = sqrt(k+5.)*sin((i+2*j+0.2*k-2)*z)
                     15:      $               *cos((2*i-j+0.5*k-1.5)*z)
                     16:      $            + .2
                     17:   100 continue
                     18:       fmin=0
                     19:       fmax=0
                     20:       call mvefil(unit,time,nx,ny,fmin,fmax,outsid,f)
                     21:       time = time + .1
                     22:   200 continue
                     23:       end

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