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);
}