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

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.