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