Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
powerl2.f
Go to the documentation of this file.
1  function fpl2 (inod, ibrn, time_flag)
2 c
3 c Define passed variables
4 c
5  integer inod, ibrn
6 c
7 c Calculates the 0.5(dL/dt)I**2 power put into an inductor.
8 c
9  include 'zdemparm.h'
10  include 'zdemmax.h'
11  include 'zdemwork.h'
12 c
13  curr = fiout(inod,ibrn,time_flag)
14  fpl2 = 0.5 * zlrdot(inod,ibrn) * curr * curr
15 c
16  return
17  end
18 
function fiout(inod, ibrn, time_flag)
Definition: crrntout.f:1
function fpl2(inod, ibrn, time_flag)
Definition: powerl2.f:1