Fix to range in CutFEM vector valued matrices. fixes #776

Author: raback

fem/src/CutFEMUtils.F90

@@ -713,7 +713,7 @@ FUNCTION CreateCutFemMatrix(Solver,Perm,MimicMat) RESULT ( A )
         DofInds(1:m) = BlockInds(1:m)
       ELSE
         DO i=0,dofs-1
-          DofInds(m*i+1:(m+1)*i) = dofs*(BlockInds(1:m)-1)+(i+1)
+          DofInds(m*i+1:m*(i+1)) = dofs*(BlockInds(1:m)-1)+(i+1)
         END DO
         m = m*dofs
       END IF