Return to unpack.f CVS log

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

Annotation of researchv10no/cmd/pfort/unpack.f, revision 1.1.1.1

1.1       root        1:        subroutine s5unpk(a,b,n)
                      2: c      a(1), a(2), ... contain characters in a4 format
                      3: c      s5unpk unpacks the first n characters
                      4: c      and places them into b(1), b(2), ... b(n)
                      5: c      in a1 format.(Caller thinks a and b are integer arrays)
                      6: c      Each element of b must be padded with trailing blanks.
                      7: c      Unused elements of b are unaffected.
                      8:        integer i,n
                      9:        character *120 a
                     10:        character *480 b
                     11:        blank = 32
                     12: c      write(6,3000)
                     13: c3000  format("entering unpakc")
                     14:        do 1 i=0,n-1
                     15:        b(4*i+1:4*i+1) = a(i+1:i+1)
                     16:        b(4*i+2:4*i+2) = ' '
                     17:        b(4*i+3:4*i+3) = ' '
                     18:        b(4*i+4:4*i+4) = ' '
                     19: 1      continue
                     20: 400    format( a4)
                     21: c      write(6,4000)
                     22: c4000  format("leaving unpk")
                     23:        return
                     24:        end

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