Actual source code: pgname.c

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

 3:  #include petsc.h

  5: /*@C
  6:    PetscObjectGetName - Gets a string name associated with a PETSc object.

  8:    Not Collective

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

 16:    Level: intermediate

 18:    Concepts: object name

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

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