1 #include <petsc/private/fortranimpl.h> 2 #include <petsc/private/f90impl.h> 3 #include <petsc/private/taoimpl.h> 4 5 #if defined(PETSC_HAVE_FORTRAN_CAPS) 6 #define taobrgngetsubsolver_ TAOBRGNGETSUBSOLVER 7 #define taobrgnsettikhonovlambda_ TAOBRGNSETTIKHONOVLAMBDA 8 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 9 #define taobrgngetsubsolver_ taobrgngetsubsolver 10 #define taobrgnsettikhonovlambda_ taobrgnsettikhonovlambda 11 #endif 12 13 PETSC_EXTERN void PETSC_STDCALL taobrgngetsubsolver_(Tao *tao, Tao *subsolver, PetscErrorCode *ierr) 14 { 15 if(!*ierr) *ierr = TaoBRGNGetSubsolver(*tao, subsolver); 16 } 17 18 PETSC_EXTERN void PETSC_STDCALL taobrgnsettikhonovlambda_(Tao *tao, PetscReal *lambda, PetscErrorCode *ierr) 19 { 20 if(!*ierr) *ierr = TaoBRGNSetTikhonovLambda(*tao, *lambda); 21 } 22