Interface
        Subroutine MatFDColoringRestorePerturbedColumns(i, len, array, ierr)
          use, intrinsic :: ISO_C_binding
          import tMatFDColoring
          PetscInt, pointer :: array(:)
          PetscInt len
          PetscErrorCode ierr
          MatFDColoring i
        End Subroutine
      End Interface

      interface MatDenseGetArray
        Subroutine MatDenseGetArray1d(v, array, ierr)
          use, intrinsic :: ISO_C_binding
          import tMat
          PetscScalar, pointer :: array(:)
          PetscErrorCode ierr
          Mat v
        End Subroutine
        Subroutine MatDenseGetArray2d(v, array, ierr)
          use, intrinsic :: ISO_C_binding
          import tMat
          PetscScalar, pointer :: array(:, :)
          PetscErrorCode ierr
          Mat v
        End Subroutine
      end interface

      interface MatDenseRestoreArray
        Subroutine MatDenseRestoreArray1d(v, array, ierr)
          use, intrinsic :: ISO_C_binding
          import tMat
          PetscScalar, pointer :: array(:)
          PetscErrorCode ierr
          Mat v
        End Subroutine
        Subroutine MatDenseRestoreArray2d(v, array, ierr)
          use, intrinsic :: ISO_C_binding
          import tMat
          PetscScalar, pointer :: array(:, :)
          PetscErrorCode ierr
          Mat v
        End Subroutine
      end interface

      interface MatDenseGetArrayRead
        Subroutine MatDenseGetArrayRead1d(v, array, ierr)
          use, intrinsic :: ISO_C_binding
          import tMat
          PetscScalar, pointer :: array(:)
          PetscErrorCode ierr
          Mat v
        End Subroutine
        Subroutine MatDenseGetArrayRead2d(v, array, ierr)
          use, intrinsic :: ISO_C_binding
          import tMat
          PetscScalar, pointer :: array(:, :)
          PetscErrorCode ierr
          Mat v
        End Subroutine
      end interface

      interface MatDenseRestoreArrayRead
        Subroutine MatDenseRestoreArrayRead1d(v, array, ierr)
          use, intrinsic :: ISO_C_binding
          import tMat
          PetscScalar, pointer :: array(:)
          PetscErrorCode ierr
          Mat v
        End Subroutine
        Subroutine MatDenseRestoreArrayRead2d(v, array, ierr)
          use, intrinsic :: ISO_C_binding
          import tMat
          PetscScalar, pointer :: array(:, :)
          PetscErrorCode ierr
          Mat v
        End Subroutine
      end interface

      interface MatDenseGetArrayWrite
        Subroutine MatDenseGetArrayWrite1d(v, array, ierr)
          use, intrinsic :: ISO_C_binding
          import tMat
          PetscScalar, pointer :: array(:)
          PetscErrorCode ierr
          Mat v
        End Subroutine
        Subroutine MatDenseGetArrayWrite2d(v, array, ierr)
          use, intrinsic :: ISO_C_binding
          import tMat
          PetscScalar, pointer :: array(:, :)
          PetscErrorCode ierr
          Mat v
        End Subroutine
      end interface

      interface MatDenseRestoreArrayWrite
        Subroutine MatDenseRestoreArrayWrite1d(v, array, ierr)
          use, intrinsic :: ISO_C_binding
          import tMat
          PetscScalar, pointer :: array(:)
          PetscErrorCode ierr
          Mat v
        End Subroutine
        Subroutine MatDenseRestoreArrayWrite2d(v, array, ierr)
          use, intrinsic :: ISO_C_binding
          import tMat
          PetscScalar, pointer :: array(:, :)
          PetscErrorCode ierr
          Mat v
        End Subroutine
      end interface

      interface
        subroutine MatNullSpaceRestoreVecs(a, b, c, d, z)
          use, intrinsic :: ISO_C_binding
          import tMatNullSpace, tVec
          MatNullSpace :: a
          PetscBool :: b
          PetscInt :: c
          Vec, pointer :: d(:)
          PetscErrorCode z
        end subroutine
      end interface
#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
!DEC$ ATTRIBUTES DLLEXPORT::MatNullSpaceRestoreVecs
#endif