PETSC_EXTERN void PETSC_STDCALL  stmatsolvetranspose_(ST *st,Vec b,Vec x, int *__ierr ){
*__ierr = STMatSolveTranspose(*st,
	(Vec)PetscToPointer((b) ),
	(Vec)PetscToPointer((x) ));
}

PETSC_EXTERN void PETSC_STDCALL  dmcompositescatterarray_(DM dm,Vec gvec,Vec *lvecs, int *__ierr ){
*__ierr = DMCompositeScatterArray(
	(DM)PetscToPointer((dm) ),
	(Vec)PetscToPointer((gvec) ),lvecs);
}

PETSC_EXTERN void PETSC_STDCALL  stsetksp_(ST *st,KSP ksp, int *__ierr ){
*__ierr = STSetKSP(*st,
	(KSP)PetscToPointer((ksp) ));
}

void PETSC_STDCALL  matcoarsendestroy_(MatCoarsen *agg, int *__ierr ){
*__ierr = MatCoarsenDestroy(
	(MatCoarsen* )PetscToPointer((agg) ));
}

void PETSC_STDCALL  matcoarsencreate_(MPI_Fint * comm,MatCoarsen *newcrs, int *__ierr ){
*__ierr = MatCoarsenCreate(
	MPI_Comm_f2c( *(comm) ),
	(MatCoarsen* )PetscToPointer((newcrs) ));
}

void PETSC_STDCALL  matcoarsensetadjacency_(MatCoarsen *agg,Mat adj, int *__ierr ){
*__ierr = MatCoarsenSetAdjacency(*agg,
	(Mat)PetscToPointer((adj) ));
}

void PETSC_STDCALL  petscdrawpointsetsize_(PetscDraw draw,PetscReal *width, int *__ierr ){
*__ierr = PetscDrawPointSetSize(
	(PetscDraw)PetscToPointer((draw) ),*width);
}

PETSC_EXTERN void PETSC_STDCALL  dmplexcopycoordinates_(DM dmA,DM dmB, int *__ierr ){
*__ierr = DMPlexCopyCoordinates(
	(DM)PetscToPointer((dmA) ),
	(DM)PetscToPointer((dmB) ));
}

PETSC_EXTERN void PETSC_STDCALL  dmplexuninterpolate_(DM dm,DM *dmUnint, int *__ierr ){
*__ierr = DMPlexUninterpolate(
	(DM)PetscToPointer((dm) ),dmUnint);
}

PETSC_EXTERN void PETSC_STDCALL  stmatmulttranspose_(ST *st,PetscInt *k,Vec x,Vec y, int *__ierr ){
*__ierr = STMatMultTranspose(*st,*k,
	(Vec)PetscToPointer((x) ),
	(Vec)PetscToPointer((y) ));
}

PETSC_EXTERN void PETSC_STDCALL  dmcompositegetnumberdm_(DM dm,PetscInt *nDM, int *__ierr ){
*__ierr = DMCompositeGetNumberDM(
	(DM)PetscToPointer((dm) ),nDM);
}

PETSC_EXTERN void PETSC_STDCALL  dmcompositegatherarray_(DM dm,Vec gvec,InsertMode *imode,Vec *lvecs, int *__ierr ){
*__ierr = DMCompositeGatherArray(
	(DM)PetscToPointer((dm) ),
	(Vec)PetscToPointer((gvec) ),*imode,lvecs);
}