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