Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
crrntin.f
Go to the documentation of this file.
1  function fiin (inod, ibrn, time_flag)
2 c
3 c Define passed variables
4 c
5  integer inod, ibrn
6 c
7 c Calculates the current into a block.
8 c
9  include 'zdemparm.h'
10  include 'zdemmax.h'
11  include 'zdemwork.h'
12 c
13 c Define internal variables
14 c
15  integer jnod
16 c
17 c Go back a node unless it is the first one.
18 c
19  if (inod .eq. 1) then
20  jnod = 1
21  else
22  jnod = inod - 1
23  end if
24 c
25 c *If (time on the half step was requested)
26  if (time_flag .eq. half_step) then
27 c
28 c *Average value from last whole step and value from this whole step
29  fiin = 0.5 * (zir(jnod,ibrn) + zirn(jnod,ibrn))
30 c
31 c *Else (time on the whole step was requested)
32  else
33 c
34 c *Return value on the current whole step
35  fiin = zirn(jnod,ibrn)
36 c
37  endif
38 c
39  return
40  end
function fiin(inod, ibrn, time_flag)
Definition: crrntin.f:1