Previous: prsini Up: ../plot79_p.html Next: prskey

PRSINS

       SUBROUTINE  PRSINS (AFTER,STRING,LOC,LENGTH)
 C$    (Parse Internal - Insert)
 C$    Insert LENGTH  characters  of  a  packed  Hollerith  string
 C$    beginning at position  LOC  in STRING(*),  into  the  input
 C$    buffer following  position AFTER  to simulate  user  typein
 C$    when noise strings  or default strings  are supplied.   Any
 C$    overflow from the insertion  is discarded without  warning,
 C$    but can be detected  by checking if  ENDIBF .GE. MAXIBF  on
 C$    return.   If  AFTER  .LT.   BEGIBF,  insertion  is  at  the
 C$    beginning of the buffer,and if AFTER .GT. ENDIBF, insertion
 C$    is at the end.
 C$    (21-OCT-82)