fcn Subroutine

public pure subroutine fcn(n, m, np, nq, ldn, ldm, ldnp, beta, xplusd, ifixb, ifixx, ldifx, ideval, f, fjacb, fjacd, istop)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
integer, intent(in) :: m
integer, intent(in) :: np
integer, intent(in) :: nq
integer, intent(in) :: ldn
integer, intent(in) :: ldm
integer, intent(in) :: ldnp
real(kind=wp), intent(in) :: beta(np)
real(kind=wp), intent(in) :: xplusd(ldn,m)
integer, intent(in) :: ifixb(np)
integer, intent(in) :: ifixx(ldifx,m)
integer, intent(in) :: ldifx
integer, intent(in) :: ideval
real(kind=wp), intent(out) :: f(ldn,nq)
real(kind=wp), intent(out) :: fjacb(ldn,ldnp,nq)
real(kind=wp), intent(out) :: fjacd(ldn,ldm,nq)
integer, intent(out) :: istop

Calls

proc~~fcn~5~~CallsGraph proc~fcn~5 fcn proc~mpf mpf proc~fcn~5->proc~mpf none~dmdt dmdt proc~mpf->none~dmdt

Variables

Type Visibility Attributes Name Initial
real(kind=wp), public :: mout
integer, public :: i

Source Code

   pure subroutine fcn(n, m, np, nq, ldn, ldm, ldnp, beta, xplusd, ifixb, ifixx, ldifx, &
                       ideval, f, fjacb, fjacd, istop)

      integer, intent(in) :: ideval, ldifx, ldm, ldn, ldnp, m, n, np, nq
      integer, intent(in) :: ifixb(np), ifixx(ldifx, m)
      real(kind=wp), intent(in) :: beta(np), xplusd(ldn, m)
      real(kind=wp), intent(out) :: f(ldn, nq), fjacb(ldn, ldnp, nq), fjacd(ldn, ldm, nq)
      integer, intent(out) :: istop

      real(kind=wp) :: mout
      integer :: i

      istop = 0
      fjacb(:, :, :) = zero
      fjacd(:, :, :) = zero
      if (mod(ideval, 10) .ge. 1) then
         do i = 1, n
            f(i, 1) = 1440.0_wp
            call mpf(mout, xplusd(i, 1), &
                     beta(1), beta(2), beta(3), zero, f(i, 1), xplusd(i, 1)/2)
         end do
      end if
   end subroutine fcn