Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
rdchklimits.f
Go to the documentation of this file.
1 c----------------------------------------------------------------------
2 c @(#)rdchklimits.f version 1.0 created 06/15/2005 by Mathias Bavay
3 c----------------------------------------------------------------------
4 c---------------------------------------------------------------------
5 c
6 c This subroutine checks that no limits have been exceeded after
7 c reading the input deck.
8 c
9 c Modifications:
10 c 2008-07-12 RBS Print the value of the parameter exceeded in maxout
11 c---------------------------------------------------------------------
12 
14 
15  include 'zdemmax.h'
16  include 'zdemcomm.h'
17  include 'zdemout.h'
18  include 'zdemparm.h'
19  include 'zdempprm.h'
20  include 'rdscrdat.h'
21 
22 c
23 c Check to see if any limits have been exceeded.
24 c
25  if (nbrns .gt. max_branches) then
26  write(9,2000) max_branches
27  2000 format ('0', 'You have exceeded the maximum number of ',
28  & 'branches allowed = ', i5)
29  numerr = numerr + 1
30  end if
31 c
32  do i = 1, nbrns
33  if (nbk(i) .gt. max_blocks) then
34  write(9,2100) max_blocks, i
35  2100 format ('0', 'You have exceeded the maximum number of ',
36  & 'blocks allowed = ', i5, ' in branch ', i2)
37  numerr = numerr + 1
38  end if
39  end do
40 c
41  if (numout .gt. maxout) then
42  write(9,2200) numout,maxout
43  2200 format ('-- At', i12,
44  & ' You exceeded the maximum number of ',
45  & 'output requests allowed = ', i5)
46  numerr = numerr + 1
47  end if
48 c
49  if (nvar .gt. max_var_elem) then
50  write(9,2600) max_var_elem
51  2600 format ('0', 'You have exceeded the maximum number of ',
52  & 'nonlinear elements allowed = ', i5)
53  numerr = numerr + 1
54  end if
55 c
56  if (ninit_cond .gt. max_init_cond) then
57  write(9,2700) max_init_cond
58  2700 format ('0', 'You have exceeded the maximum number of ',
59  & 'initial conditions allowed = ', i5)
60  numerr = numerr + 1
61  end if
62 c
63  if (ntransline .gt. max_trline) then
64  write(9,2800) max_trline
65  2800 format ('0', 'You have exceeded the maximum number of ',
66  & 'transmission lines allowed = ', i5)
67  numerr = numerr + 1
68  end if
69 c
70  if (nmitline .gt. max_mitl) then
71  write(9,2900) max_mitl
72  2900 format ('0', 'You have exceeded the maximum number of ',
73  & 'MITLs allowed = ', i5)
74  numerr = numerr + 1
75  end if
76 
77  end
c *****************************************************************************c Common blocks for SCREAMER output and tabling c & numout
Definition: zdemout.h:47
subroutine checkscreamerlimits
Definition: rdchklimits.f:13
c *****************************************************************************c Common blocks for SCREAMER output and tabling c maxout
Definition: zdemout.h:40