Screamer Project
V3.3.1
Screamer Structure
Main Page
Files
File List
File Members
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
ifsteps
integer function ifsteps(maxpts, dt, tstart, tstop)
Definition:
findskip.f:1
release_3.3.1_beta
src
findskip.f
Generated on Mon May 5 2014 15:41:48 for Screamer Project by
1.8.7