Return to main.f CVS log

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

Annotation of researchv10no/cmd/view2d/num/main.f, revision 1.1.1.1

1.1       root        1:       real u(3), d(3,3), xyz(3,5), work(25)
                      2:       data u / .5, .7, 0 /
                      3:       data d / 0., 0., 0.,
                      4:      $         1., 0., 1.,
                      5:      $         0., 1., 10. /
                      6:       data xyz / 0., 0., 0.,
                      7:      $           1., 0., 0.,
                      8:      $           0., 1., 10.,
                      9:      $           0., 2., 20.5,
                     10:      $           0., 3., 29.4 /
                     11:       call interp(u,d(1,1), d(1,2),d(1,3))
                     12:       write(6,1001)u(3)
                     13:  1001 format(' interp:',f8.3)
                     14: c      call l2fit(5,xyz,u,work)
                     15: c      write(6,1002)u
                     16:  1002 format(' l2fit:',3f8.3)
                     17:       end

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