SUBROUTINE INSTR ( GUF )

Argument Definitions (+ indicates altered content)
CHARACTER*8       +GUF
Description
                                                                        * 
  Copyright (C) 1996 Leif Laaksonen, Dage Sundholm                      * 
  Copyright (C) 1996-2010 Jacek Kobus               * 
                                                                        * 
  This program is free software; you can redistribute it and/or modify  * 
  it under the terms of the GNU General Public License version 2 as     * 
  published by the Free Software Foundation.                            * 
                                                                        * 
 
### inStr ### 
 
   Examines the contents of IA and extracts a character string of up 
   to 8 characters. This string is stored in IBUF.  The remaining 
   non-blank characters (if any) are ignored.
Source file:inStr.f
Parameter Variables Used
INTEGER            I40                (I40 = 40)
INTEGER            I80                (I80 = 80)
Local Variables (+ indicates altered content)
CHARACTER         +IALL(60),  +IBLNK,     +IBUF(8)
CHARACTER*8       +IBUFR
INTEGER           +I,         +N,         +NSTRT
Referenced Equivalenced Variables (+ indicates altered content)

EQUIV              CHARACTER         +IBUF()     Local Var
                   CHARACTER*8       +IBUFR      Local Var
Referenced Common Block Variables (+ indicates altered content)
WORK               CHARACTER          IA(I80)
WORK               INTEGER            INUMB(I40)
WORK               INTEGER            ISTRT(I40)
WORK               INTEGER           +JREC,      JUMP