Screamer Project
V3.3.1
Screamer Structure
Main Page
Files
File List
File Members
All
Files
Functions
Variables
crrntin.f
Go to the documentation of this file.
1
function
fiin
(inod, ibrn, time_flag)
2
c
3
c Define passed variables
4
c
5
integer
inod, ibrn
6
c
7
c Calculates the current into a block.
8
c
9
include
'zdemparm.h'
10
include
'zdemmax.h'
11
include
'zdemwork.h'
12
c
13
c Define internal variables
14
c
15
integer
jnod
16
c
17
c Go back a node unless it is the first one.
18
c
19
if
(inod .eq. 1)
then
20
jnod = 1
21
else
22
jnod = inod - 1
23
end if
24
c
25
c *If (time on the half step was requested)
26
if
(time_flag .eq. half_step)
then
27
c
28
c *Average value from last whole step and value from this whole step
29
fiin
= 0.5 * (zir(jnod,ibrn) + zirn(jnod,ibrn))
30
c
31
c *Else (time on the whole step was requested)
32
else
33
c
34
c *Return value on the current whole step
35
fiin
= zirn(jnod,ibrn)
36
c
37
endif
38
c
39
return
40
end
fiin
function fiin(inod, ibrn, time_flag)
Definition:
crrntin.f:1
release_3.3.1_beta
src
crrntin.f
Generated on Mon May 5 2014 15:41:48 for Screamer Project by
1.8.7