Subversion Repositories slepc-dev

Rev

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

Rev 986 Rev 1004
Line 37... Line 37... 
  FREECHAR(type,t);
 
  FREECHAR(type,t);
 
}
 
}
 
 
 
 
 
void PETSC_STDCALL stgettype_(ST *st,CHAR name PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len))
 
void PETSC_STDCALL stgettype_(ST *st,CHAR name PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len))
 
{
 
{
 
  char *tname;
 
  const char *tname;
 
 
 
 
 
  *ierr = STGetType(*st,&tname);
 
  *ierr = STGetType(*st,&tname);
 
#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);