Previous: karcmp Up: ../karrtn.html Next: karid2


KARGET

      SUBROUTINE KARGET (CHAR, TEXT, LOC)
 
          Extract  a  single  Hollerith  character  from  the
 packed Hollerith string stored in the INTEGER array TEXT(*),
 taking  it from  position LOC (numbered  1,2,3,...  from the
 left), and  return it  in the  INTEGER variable  CHAR in  A1
 format.   If LOC  < 1,  return the  value +0  in CHAR.  This
 value  is not  equal  to  any  A1 format  character  on  any
 existing computer.