Fix potential spurious failure from uninitialized variable
This commit is contained in:
parent
bf73aa141b
commit
351d12b94e
|
@ -1504,6 +1504,8 @@ C $ ' .' )
|
||||||
NC = 0
|
NC = 0
|
||||||
RESET = .TRUE.
|
RESET = .TRUE.
|
||||||
ERRMAX = RZERO
|
ERRMAX = RZERO
|
||||||
|
RALS = RONE
|
||||||
|
RBETS = RONE
|
||||||
*
|
*
|
||||||
DO 100 IN = 1, NIDIM
|
DO 100 IN = 1, NIDIM
|
||||||
N = IDIM( IN )
|
N = IDIM( IN )
|
||||||
|
|
Loading…
Reference in New Issue