Fix potential spurious failure from uninitialized variable

This commit is contained in:
Martin Kroeker 2019-11-15 00:20:36 +01:00 committed by GitHub
parent bf73aa141b
commit 351d12b94e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 0 deletions

View File

@ -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 )