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