dwinf_c Subroutine

public pure subroutine dwinf_c(n, m, np, nq, ldwe, ld2we, isodr, workidx) bind(C)

Get storage locations within real work space.

Arguments

Type IntentOptional Attributes Name
integer(kind=c_int), intent(in) :: n

Number of observations.
integer(kind=c_int), intent(in) :: m

Number of columns of data in the explanatory variable.
integer(kind=c_int), intent(in) :: np

Number of function parameters.
integer(kind=c_int), intent(in) :: nq

Number of responses per observation.
integer(kind=c_int), intent(in) :: ldwe

Leading dimension of array we.
integer(kind=c_int), intent(in) :: ld2we

Second dimension of array we.
logical(kind=c_bool), intent(in) :: isodr

Variable designating whether the solution is by ODR (isodr = .true.) or by OLS (isodr = .false.).
type(workidx_t), intent(out) :: workidx

0-based indexes of real work array.

Calls

proc~~dwinf_c~~CallsGraph proc~dwinf_c dwinf_c proc~dwinf dwinf proc~dwinf_c->proc~dwinf

Variables

Type Visibility Attributes Name Initial
integer, public :: deltai
integer, public :: epsi
integer, public :: xplusi
integer, public :: fni
integer, public :: sdi
integer, public :: vcvi
integer, public :: rvari
integer, public :: wssi
integer, public :: wssdei
integer, public :: wssepi
integer, public :: rcondi
integer, public :: etai
integer, public :: olmavi
integer, public :: taui
integer, public :: alphai
integer, public :: actrsi
integer, public :: pnormi
integer, public :: rnorsi
integer, public :: prersi
integer, public :: partli
integer, public :: sstoli
integer, public :: taufci
integer, public :: epsmai
integer, public :: beta0i
integer, public :: betaci
integer, public :: betasi
integer, public :: betani
integer, public :: si
integer, public :: ssi
integer, public :: ssfi
integer, public :: qrauxi
integer, public :: ui
integer, public :: fsi
integer, public :: fjacbi
integer, public :: we1i
integer, public :: diffi
integer, public :: deltsi
integer, public :: deltni
integer, public :: ti
integer, public :: tti
integer, public :: omegai
integer, public :: fjacdi
integer, public :: wrk1i
integer, public :: wrk2i
integer, public :: wrk3i
integer, public :: wrk4i
integer, public :: wrk5i
integer, public :: wrk6i
integer, public :: wrk7i
integer, public :: loweri
integer, public :: upperi
integer, public :: lwkmn

Source Code

   pure subroutine dwinf_c(n, m, np, nq, ldwe, ld2we, isodr, workidx) bind(C)
   !! Get storage locations within real work space.
      integer(c_int), intent(in) :: n
         !! Number of observations.
      integer(c_int), intent(in) :: m
         !! Number of columns of data in the explanatory variable.
      integer(c_int), intent(in) :: np
         !! Number of function parameters.
      integer(c_int), intent(in) :: nq
         !! Number of responses per observation.
      integer(c_int), intent(in) :: ldwe
         !! Leading dimension of array `we`.
      integer(c_int), intent(in) :: ld2we
         !! Second dimension of array `we`.
      logical(c_bool), intent(in) :: isodr
         !! Variable designating whether the solution is by ODR (`isodr = .true.`) or
         !! by OLS (`isodr = .false.`).
      type(workidx_t), intent(out) :: workidx
         !! 0-based indexes of real work array.

      integer :: deltai, epsi, xplusi, fni, sdi, vcvi, rvari, wssi, wssdei, wssepi, &
                 rcondi, etai, olmavi, taui, alphai, actrsi, pnormi, rnorsi, prersi, partli, &
                 sstoli, taufci, epsmai, beta0i, betaci, betasi, betani, si, ssi, ssfi, &
                 qrauxi, ui, fsi, fjacbi, we1i, diffi, deltsi, deltni, ti, tti, omegai, &
                 fjacdi, wrk1i, wrk2i, wrk3i, wrk4i, wrk5i, wrk6i, wrk7i, loweri, upperi, &
                 lwkmn

      call dwinf(n, m, np, nq, ldwe, ld2we, logical(isodr, kind=kind(.true.)), &
                 deltai, epsi, xplusi, fni, sdi, vcvi, &
                 rvari, wssi, wssdei, wssepi, rcondi, etai, &
                 olmavi, taui, alphai, actrsi, pnormi, rnorsi, prersi, &
                 partli, sstoli, taufci, epsmai, &
                 beta0i, betaci, betasi, betani, si, ssi, ssfi, qrauxi, ui, &
                 fsi, fjacbi, we1i, diffi, &
                 deltsi, deltni, ti, tti, omegai, fjacdi, &
                 wrk1i, wrk2i, wrk3i, wrk4i, wrk5i, wrk6i, wrk7i, &
                 loweri, upperi, &
                 lwkmn)

      workidx%delta = deltai - 1
      workidx%eps = epsi - 1
      workidx%xplus = xplusi - 1
      workidx%fn = fni - 1
      workidx%sd = sdi - 1
      workidx%vcv = vcvi - 1
      workidx%rvar = rvari - 1
      workidx%wss = wssi - 1
      workidx%wssde = wssdei - 1
      workidx%wssep = wssepi - 1
      workidx%rcond = rcondi - 1
      workidx%eta = etai - 1
      workidx%olmav = olmavi - 1
      workidx%tau = taui - 1
      workidx%alpha = alphai - 1
      workidx%actrs = actrsi - 1
      workidx%pnorm = pnormi - 1
      workidx%rnors = rnorsi - 1
      workidx%prers = prersi - 1
      workidx%partl = partli - 1
      workidx%sstol = sstoli - 1
      workidx%taufc = taufci - 1
      workidx%epsma = epsmai - 1
      workidx%beta0 = beta0i - 1
      workidx%betac = betaci - 1
      workidx%betas = betasi - 1
      workidx%betan = betani - 1
      workidx%s = si - 1
      workidx%ss = ssi - 1
      workidx%ssf = ssfi - 1
      workidx%qraux = qrauxi - 1
      workidx%u = ui - 1
      workidx%fs = fsi - 1
      workidx%fjacb = fjacbi - 1
      workidx%we1 = we1i - 1
      workidx%diff = diffi - 1
      workidx%delts = deltsi - 1
      workidx%deltn = deltni - 1
      workidx%t = ti - 1
      workidx%tt = tti - 1
      workidx%omega = omegai - 1
      workidx%fjacd = fjacdi - 1
      workidx%wrk1 = wrk1i - 1
      workidx%wrk2 = wrk2i - 1
      workidx%wrk3 = wrk3i - 1
      workidx%wrk4 = wrk4i - 1
      workidx%wrk5 = wrk5i - 1
      workidx%wrk6 = wrk6i - 1
      workidx%wrk7 = wrk7i - 1
      workidx%lower = loweri - 1
      workidx%upper = upperi - 1
      workidx%lwkmn = lwkmn

   end subroutine dwinf_c