1: /*$Id: pgname.c,v 1.26 2001/03/23 23:20:38 balay Exp $*/

 3:  #include petsc.h

  5: #undef __FUNCT__  
  7: /*@C
  8:    PetscObjectGetName - Gets a string name associated with a PETSc object.

 10:    Not Collective

 12:    Input Parameters:
 13: +  obj - the Petsc variable
 14:          Thus must be cast with a (PetscObject), for example, 
 15:          PetscObjectGetName((PetscObject)mat,&name);
 16: -  name - the name associated with obj

 18:    Level: intermediate

 20:    Concepts: object name

 22: .seealso: PetscObjectSetName()
 23: @*/
 24: int PetscObjectGetName(PetscObject obj,char *name[])
 25: {

 29:   if (!obj) SETERRQ(PETSC_ERR_ARG_CORRUPT,"Null object");
 30:   if (!name) SETERRQ(PETSC_ERR_ARG_BADPTR,"Void location for name");
 31:   if (!obj->name) {
 32:     PetscObjectName(obj);
 33:   }
 34:   *name = obj->name;
 35:   return(0);
 36: }