Screamer Project
V3.3.1
Screamer Structure
Main Page
Files
File List
File Members
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
fqc1
function fqc1(inod, ibrn, time_flag)
Definition:
chargc1.f:1
release_3.3.1_beta
src
chargc1.f
Generated on Mon May 5 2014 15:41:48 for Screamer Project by
1.8.7