| Line 6... |
Line 6... |
This file is part of SLEPc. See the README file for conditions of use
|
This file is part of SLEPc. See the README file for conditions of use
|
and additional information.
|
and additional information.
|
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
*/
|
*/
|
|
|
#include "zpetsc.h"
|
#include "private/zpetsc.h"
|
#include "slepcsvd.h"
|
#include "slepcsvd.h"
|
|
|
#ifdef PETSC_HAVE_FORTRAN_CAPS
|
#ifdef PETSC_HAVE_FORTRAN_CAPS
|
#define svdmonitordefault_ SVDMONITORDEFAULT
|
#define svdmonitordefault_ SVDMONITORDEFAULT
|
#define svdmonitorlg_ SVDMONITORLG
|
#define svdmonitorlg_ SVDMONITORLG
|
| Line 111... |
Line 111... |
*ierr = PetscStrncpy(t,tname,len1);
|
*ierr = PetscStrncpy(t,tname,len1);
|
}
|
}
|
#else
|
#else
|
*ierr = PetscStrncpy(name,tname,len);
|
*ierr = PetscStrncpy(name,tname,len);
|
#endif
|
#endif
|
FIXRETURNCHAR(name,len);
|
FIXRETURNCHAR(PETSC_TRUE,name,len);
|
}
|
}
|
|
|
void PETSC_STDCALL svdgetip_(SVD *svd,IP *ip,int *ierr)
|
void PETSC_STDCALL svdgetip_(SVD *svd,IP *ip,int *ierr)
|
{
|
{
|
*ierr = SVDGetIP(*svd,ip);
|
*ierr = SVDGetIP(*svd,ip);
|
| Line 178... |
Line 178... |
*ierr = PetscStrncpy(t,tname,len1); if (*ierr) return;
|
*ierr = PetscStrncpy(t,tname,len1); if (*ierr) return;
|
}
|
}
|
#else
|
#else
|
*ierr = PetscStrncpy(prefix,tname,len); if (*ierr) return;
|
*ierr = PetscStrncpy(prefix,tname,len); if (*ierr) return;
|
#endif
|
#endif
|
FIXRETURNCHAR(prefix,len);
|
FIXRETURNCHAR(PETSC_TRUE,prefix,len);
|
}
|
}
|
|
|
void PETSC_STDCALL svdgetconvergedreason_(SVD *svd,SVDConvergedReason *reason,PetscErrorCode *ierr)
|
void PETSC_STDCALL svdgetconvergedreason_(SVD *svd,SVDConvergedReason *reason,PetscErrorCode *ierr)
|
{
|
{
|
*ierr = SVDGetConvergedReason(*svd,reason);
|
*ierr = SVDGetConvergedReason(*svd,reason);
|