1 subroutine gather (inarray, intarget, maxin, outarray, numout)
25 integer maxin, inarray(maxin), intarget
29 integer outarray(maxin),
numout
35 if (inarray(i) .eq. intarget)
then
c *****************************************************************************c Common blocks for SCREAMER output and tabling c & numout
subroutine gather(inarray, intarget, maxin, outarray, numout)