FDS Source : Initialize variables.

marcosvanella · marcosvanella · commit 3991b5ee5236 · 2024-12-03T12:24:09.000-05:00
diff --git a/Source/pres.f90 b/Source/pres.f90
@@ -3907,6 +3907,7 @@ SUBROUTINE GET_H_MATRIX_LUDCMP
 #endif
 
 ! Define parameters:
+INNZ = 0; IROW = 0; JCOL=0
 NRHS   = 1
 MAXFCT = 1
 MNUM   = 1
