Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
rdscreleminit.f
Go to the documentation of this file.
1 c----------------------------------------------------------------------
2 c rdscreleminit.f version 1.0 created 06/15/2005 by Mathias Bavay
3 c----------------------------------------------------------------------
4 c---------------------------------------------------------------------
5 c
6 c This subroutine initializes electrical elements called in the input
7 c deck.
8 c
9 c Modifications:
10 c 2008-07-16 RBS Add include zdemout.h as it passes numout&others
11 c numout&others initialized here but needed in
12 c readscreameroutputs
13 c 2008-11-07 RBS Added definition of echoln to fix log file problem
14 c in banner call, Added return in subroutine
15 c
16 c-----------------------------------------------------------------------
17 
18  subroutine readscreleminit
19 
20  include 'zdemmax.h'
21  include 'zdemcomm.h'
22  include 'zdemparm.h'
23  include 'zdemout.h'
24  include 'zdempprm.h'
25  include 'rdscrdat.h'
26 
27  character echoln*80
28 
29 c At this point, we are done with the parameters because the branch
30 c card has just been read. So print branch message and
31 c initialize counters for number of branches, number of blocks in the
32 c current branch including output requests,
33 c the number of blocks the user has entered (not counting output requests),
34 c number of variable elements,
35 c number of initial conditions (initial voltages and currents),
36 c number of secondary branches (which branch has just
37 c exitted the current block),
38 c the last non-output request block type,
39 c the last block type (including output requests),
40 c the last type of output request (plot,print,table,file,etc.),
41 c number of each type of output request,
42 c number of tranmission lines entered,
43 c number of MITLs entered,
44 c number of voltage sources entered,
45 c number of current sources entered.
46 c number of measure zflow blocks entered.
47 c
48 c
49 c
50  nbrns = 1
51  nblks = 0
52  nublks = 0
53  nvarl = 0
54  ninit_cond = 0
55  nsecbrn = 1
56  lcirblk = 999
57  lastblk = 999
58  numout = 0
59  numplt = 0
60  numprt = 0
61  numfil = 0
62  numtab = 0
63  numufo = 0
64  numidr = 0
65  numpff = 0
66  numcsv = 0
67  numsfc = 0
68  ntransline = 0
69  nmitline = 0
70  nvoltsource = 0
71  ncurrsource = 0
72  mzflowblock = 0
73 
74  echoln = 'Listing of the User Circuit'
75  call banner(echoln)
76 c call print_title
77  write(9,'(A/A,i2,A)')
78  & ' ','************ Branch ',nbrns,' ************'
79 
80  return
81  end
subroutine readscreleminit
Definition: rdscreleminit.f:18
c *****************************************************************************c Common blocks for SCREAMER output and tabling c & numout
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numprt
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numpff
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numtab
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c & numufo
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numidr
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numcsv
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numplt
Definition: zdemout.h:47
subroutine banner(line)
Definition: prtbannr.f:1
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numfil
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character numsfc
Definition: zdemout.h:59