Fix potential spurious failure from uninitialized variable

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

View File

@ -1503,6 +1503,8 @@ C $ ' .' )
NC = 0
RESET = .TRUE.
ERRMAX = RZERO
RALS = RONE
RBETS = RONE
*
DO 100 IN = 1, NIDIM
N = IDIM( IN )