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)
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)
43 2200
format (
'-- At', i12,
44 &
' You exceeded the maximum number of ',
45 &
'output requests allowed = ', i5)
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)
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)
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)
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)
c *****************************************************************************c Common blocks for SCREAMER output and tabling c & numout
subroutine checkscreamerlimits
c *****************************************************************************c Common blocks for SCREAMER output and tabling c maxout