Return to tstpak.f CVS log

Up to [Research Unix] / researchv10no / cmd / pfort

Annotation of researchv10no/cmd/pfort/tstpak.f, revision 1.1

1.1     ! root        1: c      test local vs automatic b array
        !             2:        integer a(80)
        !             3:        integer c(20)
        !             4:        integer d(80)
        !             5:        read(5,100) (a(i), i=1,80)
        !             6:        write(6,200) (a(i), i=1,10)
        !             7: 100    format( 80 a1)
        !             8: 200    format( 3a4)
        !             9:        call s5pack(a,c,15)
        !            10:        write(6,250)
        !            11: 250    format("packed output")
        !            12:        write(6,300) (c(i), i=1,4)
        !            13: 300    format(4a4)
        !            14:        call s5pack(a,c,13)
        !            15:        write(6,300) (c(i), i=1,4)
        !            16:        call s5unpk(c,d,10)
        !            17:        write(6,325)
        !            18: 325    format("unpacked output")
        !            19:        write(6,350) (d(i), i=1,80)
        !            20: 350    format(20a4)
        !            21:        stop
        !            22:        end

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