INTEGER numdiags
PARAMETER( numdiags = 20*Nr )
PARAMETER( numdiags = 50*Nr )
PARAMETER( numdiags = 40*Nr )
PARAMETER( numdiags = 10*Nr )
PARAMETER( numdiags = 1000 )
PARAMETER( numdiags = 300 )
PARAMETER( numdiags = 6*Nr )
PARAMETER( numdiags = 14*Nr )
PARAMETER( numdiags = 45*Nr )
PARAMETER( numdiags = 5*Nr )
PARAMETER( numdiags = 15*Nr )