loc_rwork_c Subroutine

public pure subroutine loc_rwork_c(n, m, q, np, ldwe, ld2we, isodr, rwi) 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) :: q

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

Number of function parameters.
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 (.true.) or by OLS (.false.).
type(rworkidx_t), intent(out) :: rwi

0-based indexes of real work array.

Calls

proc~~loc_rwork_c~~CallsGraph proc~loc_rwork_c loc_rwork_c proc~loc_rwork loc_rwork proc~loc_rwork_c->proc~loc_rwork

Variables

Type Visibility Attributes Name Initial
integer, public :: deltai
integer, public :: epsi
integer, public :: xplusdi
integer, public :: fni
integer, public :: sdi
integer, public :: vcvi
integer, public :: rvari
integer, public :: wssi
integer, public :: wssdeli
integer, public :: wssepsi
integer, public :: rcondi
integer, public :: etai
integer, public :: olmavgi
integer, public :: taui
integer, public :: alphai
integer, public :: actrsi
integer, public :: pnormi
integer, public :: rnormsi
integer, public :: prersi
integer, public :: partoli
integer, public :: sstoli
integer, public :: taufaci
integer, public :: epsmaci
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 :: deltasi
integer, public :: deltani
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 :: lrwkmin

Source Code

   pure subroutine loc_rwork_c(n, m, q, np, ldwe, ld2we, isodr, rwi) 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) :: q
         !! Number of responses per observation.
      integer(c_int), intent(in) :: np
         !! Number of function parameters.
      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 (`.true.`) or by OLS (`.false.`).
      type(rworkidx_t), intent(out) :: rwi
         !! 0-based indexes of real work array.

      integer :: deltai, epsi, xplusdi, fni, sdi, vcvi, rvari, wssi, wssdeli, wssepsi, &
                 rcondi, etai, olmavgi, taui, alphai, actrsi, pnormi, rnormsi, prersi, partoli, &
                 sstoli, taufaci, epsmaci, beta0i, betaci, betasi, betani, si, ssi, ssfi, &
                 qrauxi, ui, fsi, fjacbi, we1i, diffi, deltasi, deltani, ti, tti, omegai, &
                 fjacdi, wrk1i, wrk2i, wrk3i, wrk4i, wrk5i, wrk6i, wrk7i, loweri, upperi, &
                 lrwkmin

      call loc_rwork(n, m, q, np, ldwe, ld2we, logical(isodr, kind=kind(.true.)), &
                     deltai, epsi, xplusdi, fni, sdi, vcvi, &
                     rvari, wssi, wssdeli, wssepsi, rcondi, etai, &
                     olmavgi, taui, alphai, actrsi, pnormi, rnormsi, prersi, &
                     partoli, sstoli, taufaci, epsmaci, &
                     beta0i, betaci, betasi, betani, si, ssi, ssfi, qrauxi, ui, &
                     fsi, fjacbi, we1i, diffi, &
                     deltasi, deltani, ti, tti, omegai, fjacdi, &
                     wrk1i, wrk2i, wrk3i, wrk4i, wrk5i, wrk6i, wrk7i, &
                     loweri, upperi, &
                     lrwkmin)

      rwi%delta = deltai - 1
      rwi%eps = epsi - 1
      rwi%xplusd = xplusdi - 1
      rwi%fn = fni - 1
      rwi%sd = sdi - 1
      rwi%vcv = vcvi - 1
      rwi%rvar = rvari - 1
      rwi%wss = wssi - 1
      rwi%wssdel = wssdeli - 1
      rwi%wsseps = wssepsi - 1
      rwi%rcond = rcondi - 1
      rwi%eta = etai - 1
      rwi%olmavg = olmavgi - 1
      rwi%tau = taui - 1
      rwi%alpha = alphai - 1
      rwi%actrs = actrsi - 1
      rwi%pnorm = pnormi - 1
      rwi%rnorms = rnormsi - 1
      rwi%prers = prersi - 1
      rwi%partol = partoli - 1
      rwi%sstol = sstoli - 1
      rwi%taufac = taufaci - 1
      rwi%epsmac = epsmaci - 1
      rwi%beta0 = beta0i - 1
      rwi%betac = betaci - 1
      rwi%betas = betasi - 1
      rwi%betan = betani - 1
      rwi%s = si - 1
      rwi%ss = ssi - 1
      rwi%ssf = ssfi - 1
      rwi%qraux = qrauxi - 1
      rwi%u = ui - 1
      rwi%fs = fsi - 1
      rwi%fjacb = fjacbi - 1
      rwi%we1 = we1i - 1
      rwi%diff = diffi - 1
      rwi%deltas = deltasi - 1
      rwi%deltan = deltani - 1
      rwi%t = ti - 1
      rwi%tt = tti - 1
      rwi%omega = omegai - 1
      rwi%fjacd = fjacdi - 1
      rwi%wrk1 = wrk1i - 1
      rwi%wrk2 = wrk2i - 1
      rwi%wrk3 = wrk3i - 1
      rwi%wrk4 = wrk4i - 1
      rwi%wrk5 = wrk5i - 1
      rwi%wrk6 = wrk6i - 1
      rwi%wrk7 = wrk7i - 1
      rwi%lower = loweri - 1
      rwi%upper = upperi - 1
      rwi%lrwkmin = lrwkmin

   end subroutine loc_rwork_c