1: /*$Id: gtype.c,v 1.24 2001/03/23 23:20:38 balay Exp $*/ 2: /* 3: Provides utility routines for manulating any type of PETSc object. 4: */ 5: #include petsc.h 7: /*@C 8: PetscObjectGetType - Gets the object type of any PetscObject. 10: Not Collective 12: Input Parameter: 13: . obj - any PETSc object, for example a Vec, Mat or KSP. 14: Thus must be cast with a (PetscObject), for example, 15: PetscObjectGetType((PetscObject)mat,&type); 17: Output Parameter: 18: . type - the object type 20: Level: advanced 22: Concepts: object type 24: @*/ 25: int PetscObjectGetType(PetscObject obj,int *type) 26: { 28: if (!obj) SETERRQ(PETSC_ERR_ARG_CORRUPT,"Null object"); 29: *type = obj->type; 30: return(0); 31: }