dummy_f Subroutine

  1. nitsol.f90
  2. nitsol_mod
  3. dummy_f

public subroutine dummy_f(n, xcur, fcur, rpar, ipar, itrmf)

A dummy subroutine which does not calculate the function.

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: n

Dimension of the problem
real(kind=r8), intent(in), dimension(n):: xcur

Array of length n containing the current value
real(kind=r8), intent(out), dimension(n):: fcur

Array of length n containing f(xcur) on output
real(kind=r8), intent(inout), dimension(*):: rpar

Parameter/work array
integer, intent(inout), dimension(*):: ipar

Parameter/work array
integer, intent(out) :: itrmf

Termination flag. 0 means normal termination, 1 means failure to produce f(xcur)

Contents

Source Code

dummy_f

Source Code

  subroutine dummy_f(n, xcur, fcur, rpar, ipar, itrmf)
    !* Author: Chris MacMackin
    !  Date: March 2017
    !
    ! A dummy subroutine which does not calculate the function.
    ! 
    integer, intent(in)                   :: n
      !! Dimension of the problem
    real(r8), dimension(n), intent(in)    :: xcur
      !! Array of length `n` containing the current \(x\) value
    real(r8), dimension(n), intent(out)   :: fcur
      !! Array of length `n` containing f(xcur) on output
    real(r8), dimension(*), intent(inout) :: rpar
      !! Parameter/work array
    integer, dimension(*), intent(inout)  :: ipar
      !! Parameter/work array
    integer, intent(out)                  :: itrmf
      !! Termination flag. 0 means normal termination, 1 means
      !! failure to produce f(xcur)
  end subroutine dummy_f