Return to pack.f CVS log

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

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

1.1     ! root        1:        subroutine s5pack(a,b,n)
        !             2: c      integers a(1), a(2), ...a(n) contain characters in a1 format.
        !             3: c      the first byte of each integer contains the character
        !             4: c      the three remaining bytes are blank. note that the calling program
        !             5: c      expects a and b to be integer arrays, but we treat a and b
        !             6: c      internally as character arrays with the correspondence
        !             7: c      character a(4*i+1;4*i+1)=first byte of integer a(i+1)
        !             8: c      s5pack(a,b,n) packs these characters into
        !             9: c      elements of the integer array b in a4 format using only as many
        !            10: c      elements of b as necessary.
        !            11: c      The last element of b used must be padded
        !            12: c      with trailing blanks. Unused elements of b are not affected.
        !            13:        character *480 a
        !            14:        character b
        !            15:        integer n,i,k
        !            16: c      write(6,1000)
        !            17: c1000  format("entered s5pack")
        !            18:        do 1 i=0,n-1
        !            19:        b(i+1:i+1) = a(4*i+1:4*i+1)
        !            20: 1      continue
        !            21:        k = mod(n,4)
        !            22:        if(k.gt.0) then
        !            23:        do 2 i=n+1,n+4-k
        !            24:        b(i:i) = ' '
        !            25: 2      continue
        !            26:        end if
        !            27: c      write(6,2000)
        !            28: c2000  format("leaving s5pak")
        !            29:        return
        !            30:        end

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