--- fem/src/modules/DCRComplexSolve.F90.orig	2020-11-10 19:52:44 UTC
+++ fem/src/modules/DCRComplexSolve.F90
@@ -433,6 +433,7 @@ CONTAINS
 !------------------------------------------------------------------------------
       LOGICAL :: FirstTime = .TRUE., stat
       REAL(KIND=dp), POINTER :: Hwrk(:,:,:)
+      INTEGER :: i
 
       SAVE FirstTime, Hwrk
 !------------------------------------------------------------------------------
@@ -485,6 +486,7 @@ CONTAINS
 !------------------------------------------------------------------------------
       LOGICAL :: FirstTime = .TRUE., stat
       REAL(KIND=dp), POINTER :: Hwrk(:,:,:)
+      INTEGER :: i
 
       SAVE FirstTime, Hwrk
 !------------------------------------------------------------------------------
@@ -1074,6 +1076,7 @@ contains
 !------------------------------------------------------------------------------
       LOGICAL :: FirstTime = .TRUE., stat
       REAL(KIND=dp), POINTER :: Hwrk(:,:,:)
+      INTEGER :: i
 
       SAVE FirstTime, Hwrk
 !------------------------------------------------------------------------------
@@ -1374,6 +1377,7 @@ contains
 !------------------------------------------------------------------------------
       LOGICAL :: FirstTime = .TRUE., stat
       REAL(KIND=dp), POINTER :: Hwrk(:,:,:)
+      INTEGER :: i
 
       SAVE FirstTime, Hwrk
 !------------------------------------------------------------------------------
@@ -1426,6 +1430,7 @@ contains
 !------------------------------------------------------------------------------
       LOGICAL :: FirstTime = .TRUE., stat
       REAL(KIND=dp), POINTER :: Hwrk(:,:,:)
+      INTEGER :: i
 
       SAVE FirstTime, Hwrk
 !------------------------------------------------------------------------------
@@ -1727,6 +1732,7 @@ CONTAINS
 !------------------------------------------------------------------------------
       LOGICAL :: FirstTime = .TRUE., stat
       REAL(KIND=dp), POINTER :: Hwrk(:,:,:)
+      INTEGER :: i
 
       SAVE FirstTime, Hwrk
 !------------------------------------------------------------------------------
@@ -1779,6 +1785,7 @@ CONTAINS
 !------------------------------------------------------------------------------
       LOGICAL :: FirstTime = .TRUE., stat
       REAL(KIND=dp), POINTER :: Hwrk(:,:,:)
+      INTEGER :: i
 
       SAVE FirstTime, Hwrk
 !------------------------------------------------------------------------------