Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
enrgyl2.f
Go to the documentation of this file.
1  function fel2 (inod, ibrn, time_flag)
2 c
3 c Define passed variables
4 c
5  integer inod, ibrn
6 c
7 c Calculates the 0.5LI**2 energy stored in 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  fel2 = 0.5 * zlrechk(inod,ibrn) * curr * curr
15 c
16  return
17  end
function fel2(inod, ibrn, time_flag)
Definition: enrgyl2.f:1
function fiout(inod, ibrn, time_flag)
Definition: crrntout.f:1