Screamer Project
V3.3.1
Screamer Structure
Main Page
Files
File List
File Members
All
Files
Functions
Variables
powerr1.f
Go to the documentation of this file.
1
function
fpr1
(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 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
volt = 0.5 * (v(inod,ibrn) + vn(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
volt = vn(inod,ibrn)
24
c
25
endif
26
c
27
fpr1
= (volt * volt) * g(inod,ibrn)
28
c
29
return
30
end
fpr1
function fpr1(inod, ibrn, time_flag)
Definition:
powerr1.f:1
release_3.3.1_beta
src
powerr1.f
Generated on Mon May 5 2014 15:41:48 for Screamer Project by
1.8.7