Return to main.f CVS log

Up to [Research Unix] / researchv10no / cmd / f2c / doc

Annotation of researchv10no/cmd/f2c/doc/main.f, revision 1.1.1.1

1.1       root        1:       common /cmname/ c
                      2:       complex c(10)
                      3:       double precision d(10)
                      4:       real r(10)
                      5:       integer i(10)
                      6:       logical l(10)
                      7:       equivalence (c(1),d(1),r(1),i(1),l(1))
                      8:       data c(1)/(1.,0.)/
                      9:       data d(2)/2d0/, r(5)/3e0/, i(6)/4/, l(7)/.true./
                     10:       call sam(c,d(1),r(2),i(3),l(4),'some hollerith',14)
                     11:       end

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