Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
crrntout.f
Go to the documentation of this file.
1  function fiout (inod, ibrn, time_flag)
2 c
3 c Define passed variables
4 c
5  integer inod, ibrn
6 c
7 c Calculates the current out of a block.
8 c
9  include 'zdemparm.h'
10  include 'zdemmax.h'
11  include 'zdemwork.h'
12 c
13 c *If (time on the half step was requested)
14  if (time_flag .eq. half_step) then
15 c
16 c *Average time from last whole step and time from this whole step
17  fiout = 0.5 * (zir(inod,ibrn) + zirn(inod,ibrn))
18 c
19 c *Else (time on the whole step was requested)
20  else
21 c
22 c *Return time on the current whole step
23  fiout = zirn(inod,ibrn)
24 c
25  endif
26 c
27  return
28  end
function fiout(inod, ibrn, time_flag)
Definition: crrntout.f:1