Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
enrgyc1.f
Go to the documentation of this file.
1  function fec1 (inod, ibrn, time_flag)
2 c
3 c Define passed variables
4 c
5  integer inod, ibrn
6 c
7 c Calculates the 0.5CV**2 energy stored in a capacitor.
8 c
9  include 'zdemparm.h'
10  include 'zdemmax.h'
11  include 'zdemwork.h'
12 c
13  volt = fvblk(inod,ibrn,time_flag)
14  fec1 = 0.5 * cechk(inod,ibrn) * volt * volt
15 c
16  return
17  end
function fec1(inod, ibrn, time_flag)
Definition: enrgyc1.f:1
function fvblk(inod, ibrn, time_flag)
Definition: voltgblk.f:1