Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
gather.f
Go to the documentation of this file.
1  subroutine gather (inarray, intarget, maxin, outarray, numout)
2 c
3 c-------Description-----------------------------------------------------
4 c
5 c Source File : ud5:[klfugel.screamer.scrref]gather.for
6 c
7 c Author/Date : Kelley Fugelso, 1265 (SEA) 01/90
8 c
9 c Purpose : This subroutine "gathers" all elements from INARRAY
10 c which match the value of INTARGET. The indices of
11 c the matched elements are stored in array OUTARRAY.
12 c
13 c Called by : Subroutine FILVALS, Subroutine IDRVALS,
14 c Subroutine PLTVALS, Subroutine PRTVALS,
15 c Subroutine TABVLAS, Subroutine UFOVALS
16 c
17 c Calls : None
18 c
19 c-------Include Files---------------------------------------------------
20 c
21 c NONE
22 c
23 c-------Input Parameters------------------------------------------------
24 c
25  integer maxin, inarray(maxin), intarget
26 c
27 c-------Output Parameters-----------------------------------------------
28 c
29  integer outarray(maxin), numout
30 c
31 c-------Subroutine Body-------------------------------------------------
32 c
33  numout = 0
34  do i = 1, maxin
35  if (inarray(i) .eq. intarget) then
36  numout = numout + 1
37  outarray(numout) = i
38  endif
39  enddo
40 c
41 c-------End of Subroutine-----------------------------------------------
42 c
43  return
44  end
c *****************************************************************************c Common blocks for SCREAMER output and tabling c & numout
Definition: zdemout.h:47
subroutine gather(inarray, intarget, maxin, outarray, numout)
Definition: gather.f:1