diff --git a/src/mesh/FEM_mech.f90 b/src/mesh/FEM_mech.f90
index e56cb7151..e5daa0ad2 100644
--- a/src/mesh/FEM_mech.f90
+++ b/src/mesh/FEM_mech.f90
@@ -431,7 +431,7 @@ subroutine FEM_mech_formJacobian(dm_local,xx_local,Jac_pre,Jac,dummy,ierr)
   PetscScalar,dimension(cellDOF,cellDOF),  target :: K_e, &
                                           K_eA  , &  
                                           K_eB  
-  PetscScalar,(cellDof**2) ,target :: K_eVec
+  PetscScalar,dimension(cellDof**2) ,target :: K_eVec
 
   PetscInt                             :: cellStart, cellEnd, cell, field, face, &
                                           qPt, basis, comp, cidx,bcSize