C++ (Cpp) CHKFORTRANNULLOBJECTDEREFERENCE示例

示例#1

文件： zvscatf.c 项目： Kun-Qu/petsc

EXTERN_C_BEGIN

void PETSC_STDCALL vecscattercreate_(Vec *xin,IS *ix,Vec *yin,IS *iy,VecScatter *newctx,PetscErrorCode *ierr)
{
  CHKFORTRANNULLOBJECTDEREFERENCE(ix);
  CHKFORTRANNULLOBJECTDEREFERENCE(iy);
  *ierr = VecScatterCreate(*xin,*ix,*yin,*iy,newctx);
}

示例#2

PETSC_EXTERN void PETSC_STDCALL pcgetoperators_(PC *pc,Mat *mat,Mat *pmat,PetscErrorCode *ierr)
{
  CHKFORTRANNULLOBJECTDEREFERENCE(mat);
  CHKFORTRANNULLOBJECTDEREFERENCE(pmat);
  *ierr = PCGetOperators(*pc,mat,pmat);
}

示例#3

文件： zaomappingf.c 项目： masa-ito/PETScToPoisson

PETSC_EXTERN void PETSC_STDCALL aocreatemappingis_(IS *isapp,IS *ispetsc,AO *aoout,PetscErrorCode *ierr)
{
  CHKFORTRANNULLOBJECTDEREFERENCE(ispetsc);
  *ierr = AOCreateMappingIS(*isapp,*ispetsc,aoout);
}

示例#4

PETSC_EXTERN void PETSC_STDCALL  kspsolve_(KSP *ksp,Vec *b,Vec *x, int *ierr)
{
  CHKFORTRANNULLOBJECTDEREFERENCE(b);
  CHKFORTRANNULLOBJECTDEREFERENCE(x);
  *ierr = KSPSolve(*ksp,*b,*x);
}