Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
chargc1.f
Go to the documentation of this file.
1  function fqc1 (inod, ibrn, time_flag)
2  integer inod, ibrn
3 c
4 c Calculates the charge on C1 or C3 (shunt).
5 c
6  include 'zdemparm.h'
7  include 'zdemmax.h'
8  include 'zdemwork.h'
9 c
10 c *If (time on the half step was requested)
11  if (time_flag .eq. half_step) then
12 c
13 c *Average value from last whole step and value from this whole step
14  fqc1= 0.5 * (v(inod,ibrn)+vn(inod,ibrn)) * cechk(inod,ibrn)
15 c
16 c *Else (time on the whole step was requested)
17  else
18 c
19 c *Return value on the current whole step
20  fqc1 = vn(inod,ibrn) * cechk(inod,ibrn)
21 c
22  endif
23 c
24  return
25  end
function fqc1(inod, ibrn, time_flag)
Definition: chargc1.f:1