Subversion Repositories slepc-dev

Rev

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

Rev 1469 Rev 1507
Line 106... Line 106... 
  FREECHAR(type,t);
 
  FREECHAR(type,t);
 
}
 
}
 
 
 
 
 
void PETSC_STDCALL epsgettype_(EPS *eps,CHAR name PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len))
 
void PETSC_STDCALL epsgettype_(EPS *eps,CHAR name PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len))
 
{
 
{
 
  const char *tname;
 
  const EPSType tname;
 
 
 
 
 
  *ierr = EPSGetType(*eps,&tname);if (*ierr) return;
 
  *ierr = EPSGetType(*eps,&tname);if (*ierr) return;
 
#if defined(PETSC_USES_CPTOFCD)
 
#if defined(PETSC_USES_CPTOFCD)
 
  {
 
  {
 
    char *t = _fcdtocp(name); int len1 = _fcdlen(name);
 
    char *t = _fcdtocp(name); int len1 = _fcdlen(name);