Merge pull request #784 from kevinsmia1939/fix_compile

Fix compilation error CONTIG declaration for complex arrays

Author: raback

fem/src/Smoothers.F90

@@ -750,7 +750,7 @@ SUBROUTINE InternalComplexSGS( n, A, M, rx, rb, rr, w, Rounds )
         REAL(KIND=dp) :: w
         INTEGER, POINTER CONTIG :: Cols(:),Rows(:)
         REAL(KIND=dp), POINTER CONTIG :: Values(:)
-        COMPLEX(KIND=dp) CONTIG :: x(n/2),b(n/2),r(n/2)
+        COMPLEX(KIND=dp) :: x(n/2),b(n/2),r(n/2)
 
         DO i=1,n/2
           x(i) = CMPLX( rx(2*i-1), rx(2*i), KIND=dp )