Add missing SUNMATRIX module initialization in the DENSE solver case …

…(solverType==3).
AtChem · Jun 14, 2018 · 68a4b60 · 68a4b60
1 parent 6035da2
commit 68a4b60
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/atchem2.f90 b/src/atchem2.f90
@@ -365,6 +365,7 @@ end subroutine FCVFUN
   else if ( solverType == 3 ) then
     call FSUNDENSEMATINIT( 1, neq,  neq, ier )
     ! call FCVDENSE( neq, ier )
+    call FSUNDENSELINSOLINIT( 1, ier )
     call FCVDLSINIT( ier )
     ! UNEXPECTED SOLVER TYPE
   else