Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
powerr2.f
Go to the documentation of this file.
1  function fpr2 (inod, ibrn, time_flag)
2 c
3 c Define passed variables
4 c
5  integer inod, ibrn
6 c
7 c Calculates the power dissipated in R2 (series).
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  curr = 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 value on the current whole step
23  curr = zirn(inod,ibrn)
24 c
25  endif
26 c
27  fpr2 = (curr * curr) * rr(inod,ibrn)
28 c
29  return
30  end
function fpr2(inod, ibrn, time_flag)
Definition: powerr2.f:1