Actual source code: petscsnes.h90
petsc-3.13.6 2020-09-29
Report Typos and Errors

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

     14:       Interface
     15:       subroutine DMSNESSetFunctionLocal(dm,func,ctx,ierr)
     16:       use petscdmdef
     17:       use petscsnesdef
     18:        DM, intent(in) :: dm
     19:        external :: func
     20:        type(*)  :: ctx
     21:        PetscErrorCode, intent(out) :: ierr
     22:       end subroutine DMSNESSetFunctionLocal
     23:       end Interface

     25:       Interface
     26:       subroutine DMSNESSetJacobianLocal(dm,func,ctx,ierr)
     27:       use petscdmdef
     28:       use petscsnesdef
     29:        DM, intent(in) :: dm
     30:        external :: func
     31:        type(*)  :: ctx
     32:        PetscErrorCode, intent(out) :: ierr
     33:       end subroutine DMSNESSetJacobianLocal
     34:       end Interface

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

     56:       Interface
     57:       subroutine SNESGetType(a,b,ierr)
     58:       use petscsnesdef
     59:        SNES, intent(in) :: a
     60:        character(*), intent(out) :: b
     61:        PetscErrorCode, intent(out) :: ierr
     62:       end subroutine
     63:       end Interface

     65:       Interface
     66:       subroutine SNESView(a,b,z)
     67:       use petscsnesdef
     68:        SNES a
     69:        PetscViewer b
     70:        PetscErrorCode z
     71:       end subroutine
     72:       end Interface

     74:       Interface
     75:       subroutine SNESSetOptionsPrefix(snes,prefix,ierr)
     76:        use petscsnesdef
     77:        SNES, intent(in) :: snes
     78:        character(*), intent(in) :: prefix
     79:        PetscErrorCode, intent(out) :: ierr
     80:       end subroutine SNESSetOptionsPrefix
     81:       end Interface