Date: 2022-03-31T04:48:37+00:00

Actual source code: petscsnes.h90

      1: #if defined(PETSC_HAVE_FORTRAN_TYPE_STAR)
      2:       Interface
      3:       subroutine DMDASNESSetFunctionLocal(dm,imode,func,ctx,ierr)
      4:       import tSNES,tDM
      5:        DM, intent(in) :: dm
      6:        InsertMode, intent(in) :: imode
      7:        external :: func
      8:        type(*) :: ctx
      9:        PetscErrorCode, intent(out) :: ierr
     10:       end subroutine DMDASNESSetFunctionLocal
     11:       end Interface

     13:       Interface
     14:       subroutine DMSNESSetFunctionLocal(dm,func,ctx,ierr)
     15:       import tSNES,tDM
     16:        DM, intent(in) :: dm
     17:        external :: func
     18:        type(*)  :: ctx
     19:        PetscErrorCode, intent(out) :: ierr
     20:       end subroutine DMSNESSetFunctionLocal
     21:       end Interface

     23:       Interface
     24:       subroutine DMSNESSetJacobianLocal(dm,func,ctx,ierr)
     25:       import tSNES,tDM
     26:        DM, intent(in) :: dm
     27:        external :: func
     28:        type(*)  :: ctx
     29:        PetscErrorCode, intent(out) :: ierr
     30:       end subroutine DMSNESSetJacobianLocal
     31:       end Interface

     33:       Interface
     34:       subroutine SNESSetConvergenceTest(snes,func,cctx,destroy,ierr)
     35:       import tSNES
     36:        SNES :: snes
     37:        external :: func
     38:        type(*) :: cctx
     39:        external :: destroy
     40:        PetscErrorCode, intent(out) :: ierr
     41:       end subroutine
     42:       end Interface
     43: #endif
     44:       Interface
     45:       subroutine SNESSetType(a,b,ierr)
     46:       import tSNES
     47:        SNES, intent(in) :: a
     48:        character(*), intent(in) :: b
     49:        PetscErrorCode, intent(out) :: ierr
     50:       end subroutine
     51:       end Interface

     53:       Interface
     54:       subroutine SNESGetType(a,b,ierr)
     55:       import tSNES
     56:        SNES, intent(in) :: a
     57:        character(*), intent(out) :: b
     58:        PetscErrorCode, intent(out) :: ierr
     59:       end subroutine
     60:       end Interface

     62:       Interface
     63:       subroutine SNESView(a,b,z)
     64:       import tSNES,tPetscViewer
     65:        SNES a
     66:        PetscViewer b
     67:        PetscErrorCode z
     68:       end subroutine
     69:       end Interface

     71:       Interface
     72:       subroutine SNESSetOptionsPrefix(snes,prefix,ierr)
     73:        import tSNES
     74:        SNES, intent(in) :: snes
     75:        character(*), intent(in) :: prefix
     76:        PetscErrorCode, intent(out) :: ierr
     77:       end subroutine SNESSetOptionsPrefix
     78:       end Interface

     80:       interface
     81:         subroutine SNESDestroy(a,z)
     82:           import tSNES
     83:           SNES a
     84:           PetscErrorCode z
     85:         end subroutine
     86:       end interface