loc_iwork_c Subroutine

public pure subroutine loc_iwork_c(m, q, np, iwi) bind(C)

Get storage locations within integer work space.

Arguments

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

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

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

Number of function parameters.
type(iworkidx_t), intent(out) :: iwi

0-based indexes of integer work array.

Calls

proc~~loc_iwork_c~~CallsGraph proc~loc_iwork_c loc_iwork_c proc~loc_iwork loc_iwork proc~loc_iwork_c->proc~loc_iwork

Variables

Type Visibility Attributes Name Initial
integer, public :: msgbi
integer, public :: msgdi
integer, public :: ifix2i
integer, public :: istopi
integer, public :: nnzwi
integer, public :: nppi
integer, public :: idfi
integer, public :: jobi
integer, public :: iprinti
integer, public :: lunerri
integer, public :: lunrpti
integer, public :: nrowi
integer, public :: ntoli
integer, public :: netai
integer, public :: maxiti
integer, public :: niteri
integer, public :: nfevi
integer, public :: njevi
integer, public :: int2i
integer, public :: iranki
integer, public :: ldtti
integer, public :: boundi
integer, public :: liwkmin

Source Code

   pure subroutine loc_iwork_c(m, q, np, iwi) bind(C)
   !! Get storage locations within integer work space.

      integer(c_int), intent(in) :: m
         !! Number of columns of data in the independent variable.
      integer(c_int), intent(in) :: q
         !! Number of responses per observation.
      integer(c_int), intent(in) :: np
         !! Number of function parameters.
      type(iworkidx_t), intent(out) :: iwi
         !! 0-based indexes of integer work array.

      integer :: msgbi, msgdi, ifix2i, istopi, nnzwi, nppi, idfi, jobi, iprinti, lunerri, &
                 lunrpti, nrowi, ntoli, netai, maxiti, niteri, nfevi, njevi, int2i, iranki, &
                 ldtti, boundi, liwkmin

      call loc_iwork(m, q, np, &
                     msgbi, msgdi, ifix2i, istopi, &
                     nnzwi, nppi, idfi, &
                     jobi, iprinti, lunerri, lunrpti, &
                     nrowi, ntoli, netai, &
                     maxiti, niteri, nfevi, njevi, int2i, iranki, ldtti, &
                     boundi, &
                     liwkmin)

      iwi%msgb = msgbi - 1
      iwi%msgd = msgdi - 1
      iwi%ifix2 = ifix2i - 1
      iwi%istop = istopi - 1
      iwi%nnzw = nnzwi - 1
      iwi%npp = nppi - 1
      iwi%idf = idfi - 1
      iwi%job = jobi - 1
      iwi%iprint = iprinti - 1
      iwi%lunerr = lunerri - 1
      iwi%lunrpt = lunrpti - 1
      iwi%nrow = nrowi - 1
      iwi%ntol = ntoli - 1
      iwi%neta = netai - 1
      iwi%maxit = maxiti - 1
      iwi%niter = niteri - 1
      iwi%nfev = nfevi - 1
      iwi%njev = njevi - 1
      iwi%int2 = int2i - 1
      iwi%irank = iranki - 1
      iwi%ldtt = ldtti - 1
      iwi%bound = boundi - 1
      iwi%liwkmin = liwkmin

   end subroutine loc_iwork_c