Previous: karuc Up: ../karrtn.html Next: karvfy

KARUPK

       SUBROUTINE KARUPK (TARGET,SOURCE,LOCSRC,LENGTH)

          Unpack LENGTH  characters  from SOURCE(*)  into  A1
 FORMAT in TARGET(*),  beginning at character position LOCSRC
 in SOURCE(*).  If either  LOCSRC or LENGTH is less than one,
 then no characters are unpacked.