Subversion Repositories slepc-dev

Rev

Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2371 Rev 2374
Line 519... Line 519... 
  Level: advanced
 
  Level: advanced
 
@*/
 
@*/
 
PetscErrorCode EPSRegister(const char *sname,const char *path,const char *name,PetscErrorCode (*function)(EPS))
 
PetscErrorCode EPSRegister(const char *sname,const char *path,const char *name,PetscErrorCode (*function)(EPS))
 
{
 
{
 
  PetscErrorCode ierr;
 
  PetscErrorCode ierr;
 
  char           fullname[256];
 
  char           fullname[PETSC_MAX_PATH_LEN];
 
 
 
 
 
  PetscFunctionBegin;
 
  PetscFunctionBegin;
 
  ierr = PetscFListConcat(path,name,fullname);CHKERRQ(ierr);
 
  ierr = PetscFListConcat(path,name,fullname);CHKERRQ(ierr);
 
  ierr = PetscFListAdd(&EPSList,sname,fullname,(void (*)(void))function);CHKERRQ(ierr);
 
  ierr = PetscFListAdd(&EPSList,sname,fullname,(void (*)(void))function);CHKERRQ(ierr);
 
  PetscFunctionReturn(0);
 
  PetscFunctionReturn(0);