Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
findskip.f
Go to the documentation of this file.
1  integer function ifsteps (maxpts, dt, tstart, tstop)
2 c
3 c Define passed variables
4 c
5  integer maxpts
6  real dt, tstart, tstop
7 c
8 c ----------------------------------------------------------------------
9 c Modifications:
10 c 08/18/95, MLK, changed intrinsic from jmax0 to generic max for
11 c improved portability
12 c 2014-02-06 RBS: Chaged real*4 to real
13 c ----------------------------------------------------------------------
14 c
15 c Finds the number of steps to skip for each plot-print-file-table-UFO
16 c request so that we don't store more than maxpts points for any
17 c output request.
18 c
19 c Set the number of time steps in the plotting window.
20 c Set the max points allowed for storage to one less than the actual
21 c maximum (to be safe).
22 c
23  ntimstp = ifix((tstop - tstart) / dt) + 1
24  maxpts1 = maxpts - 1
25 c
26 c Divide the steps in the window by the max allowed to get the steps to skip,
27 c then add one to this if there was a remainder after the integer divide.
28 c (skip one means take every point, skip two means take every other point, etc)
29 c
30  ifsteps = max(ntimstp/maxpts1, 1)
31  if (ifsteps*maxpts1 .lt. ntimstp) then
32  ifsteps = ifsteps + 1
33  end if
34 c
35  return
36  end
integer function ifsteps(maxpts, dt, tstart, tstop)
Definition: findskip.f:1