Return to movie.f CVS log

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

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

1.1     ! root        1: define(N,50)  # size of sample grid in rho-sigma space.
        !             2: define(M,11)  # number of samples in theta
        !             3: define(RMAX,3.) # rho search limit
        !             4: define(SMAX,3.) # sigma search limit
        !             5: 
        !             6: procedure
        !             7:   integer i, j, k
        !             8:   real theta, sigma, rho, fmin, fmax, outsid, f(N,N)
        !             9:   real fun
        !            10: 
        !            11:   do k=1,M{
        !            12:     theta = (k-1)*50./max(1,M-1)
        !            13:     do j=1,N{
        !            14:       sigma = j*SMAX/N
        !            15:       do i=1,N{
        !            16:         rho = i*RMAX/N
        !            17:         f(i,j) = fun(rho,sigma,theta)
        !            18:       }
        !            19:     }
        !            20:     fmin = 0
        !            21:     fmax = 0
        !            22:     outsid = -1.e20
        !            23:     mvefil(30,theta,N,N,fmin,fmax,outsid,f)
        !            24:   } 
        !            25: 
        !            26: end
        !            27: 
        !            28: real procedure fun ( rho, sigma, theta )
        !            29:   real rho, sigma, theta
        !            30:   real t, f, deg
        !            31:   deg = 4 * atan(1.) / 180
        !            32:   f = sin(rho*10*deg) * cos(sigma*10*deg)
        !            33:   return( f )
        !            34: end

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