Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
crrntr1.f
Go to the documentation of this file.
1  function fir1 (inod, ibrn, time_flag)
2 c
3 c Define passed variables
4 c
5  integer inod, ibrn
6 c
7 c Calculates the current in R1 or R3 (shunt).
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 value from last whole step and value from this whole step
17  fir1 = 0.5 * (v(inod,ibrn) + vn(inod,ibrn)) * g(inod,ibrn)
18 c
19 c *Else (time on the whole step was requested)
20  else
21 c
22 c *Return value on the current whole step
23  fir1 = vn(inod,ibrn) * g(inod,ibrn)
24 c
25  endif
26 c
27  return
28  end
function fir1(inod, ibrn, time_flag)
Definition: crrntr1.f:1