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.