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     ! 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.