diwinf_c Subroutine

public pure subroutine diwinf_c(m, np, nq, iworkidx) bind(C)

Get storage locations within integer work space.

Arguments

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

The number of columns of data in the independent variable.
integer(kind=c_int), intent(in) :: np

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

The number of responses per observation.
type(iworkidx_t), intent(out) :: iworkidx

0-based indexes of integer work array.

Calls

proc~~diwinf_c~~CallsGraph proc~diwinf_c diwinf_c proc~diwinf diwinf proc~diwinf_c->proc~diwinf

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 :: iprini
integer, public :: luneri
integer, public :: lunrpi
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 :: liwkmn

Source Code

   pure subroutine diwinf_c(m, np, nq, iworkidx) bind(C)
   !! Get storage locations within integer work space.
      integer(c_int), intent(in) :: m
         !! The number of columns of data in the independent variable.
      integer(c_int), intent(in) :: np
         !! The number of function parameters.
      integer(c_int), intent(in) :: nq
         !! The number of responses per observation.
      type(iworkidx_t), intent(out) :: iworkidx
         !! 0-based indexes of integer work array.

      integer :: msgbi, msgdi, ifix2i, istopi, nnzwi, nppi, idfi, jobi, iprini, luneri, &
                 lunrpi, nrowi, ntoli, netai, maxiti, niteri, nfevi, njevi, int2i, iranki, &
                 ldtti, boundi, liwkmn
               
      call diwinf(m, np, nq, &
                  msgbi, msgdi, ifix2i, istopi, &
                  nnzwi, nppi, idfi, &
                  jobi, iprini, luneri, lunrpi, &
                  nrowi, ntoli, netai, &
                  maxiti, niteri, nfevi, njevi, int2i, iranki, ldtti, &
                  boundi, &
                  liwkmn)

      iworkidx%msgb = msgbi - 1
      iworkidx%msgd = msgdi - 1
      iworkidx%ifix2 = ifix2i - 1
      iworkidx%istop = istopi - 1
      iworkidx%nnzw = nnzwi - 1
      iworkidx%npp = nppi - 1
      iworkidx%idf = idfi - 1
      iworkidx%job = jobi - 1
      iworkidx%iprin = iprini - 1
      iworkidx%luner = luneri - 1
      iworkidx%lunrp = lunrpi - 1
      iworkidx%nrow = nrowi - 1
      iworkidx%ntol = ntoli - 1
      iworkidx%neta = netai - 1
      iworkidx%maxit = maxiti - 1
      iworkidx%niter = niteri - 1
      iworkidx%nfev = nfevi - 1
      iworkidx%njev = njevi - 1
      iworkidx%int2 = int2i - 1
      iworkidx%irank = iranki - 1
      iworkidx%ldtt = ldtti - 1
      iworkidx%bound = boundi - 1
      iworkidx%liwkmn = liwkmn

   end subroutine diwinf_c