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