+--------------------------------------------------------------------+
 |                                                                    |
 |                            CONTR: F,G,H                            |
 |                                                                    |
 +--------------------------------------------------------------------+

 MEANING: NONMEM read-only global variables

 CONTEXT: User-supplied routines

 This feature is not fully documented.  The interested user may be able
 to obtain more information by studying  the  appropriate  sections  of
 NONMEM  code and previous examples that may be available from advanced
 users.

 USAGE:
      USE ROCM_REAL, ONLY: F=>FL1,G=>GL1,G2=>GGL1,H=>HL1

 GLOBAL DECLARATION:
      USE SIZES, ONLY: NO,LVR,LVR2,DPSIZE
      REAL(KIND=DPSIZE) :: FL1(NO),GL1(NO,LVR), &
                           GGL1(NO,LVR2*(LVR2+1)/2), &
                           HL1(NO,LVR*LVR/4+LVR/2)

 DISCUSSION:

 These variables changes values with each individual record.  They  may
 be used by CONTR.

  F   F(n)  =  value returned in F from PRED for the nth observation of
      the individual record.

  G   G(n,i) = Partial derivative of F(n) with respect to eta(i)

  G2  G2(n,i*(i-1)/2+j)  =  second  partial  derivative  of  F(n)  with
      respect to eta(i) and eta(j) (j<=i)
      G2 is arranged in symmetric storage, e.g.

      1
      2   3
      4   5   6

      G2(n,1) = 2nd. partial of F(n) wrt. eta(1) eta(1)
      G2(n,2) = 2nd. partial of F(n) wrt. eta(2) eta(1)
      G2(n,3) = 2nd. partial of F(n) wrt. eta(2) eta(2)
      G2(n,4) = 2nd. partial of F(n) wrt. eta(3) eta(1)
      G2(n,5) = 2nd. partial of F(n) wrt. eta(3) eta(2)
      G2(n,6) = 2nd. partial of F(n) wrt. eta(3) eta(3)

  H   H(n,i)  =  Partial  derivative of F(n) with respect to eps(i) for
      i=1,neps, where neps is the number of epsilons in the problem.
      H(n,j*neps+i) = second partial derivative of F(n) with respect to
      eps(i) and eta(j).

      E.g. suppose that there are two epsilons in the problem:

      1   3   5
      2   4   6

      H(n,1) = partial derivative of F(n) wrt. eps(1)
      H(n,2) = partial derivative of F(n) wrt. eps(2)
      H(n,3) = 2nd. partial of F(n) wrt. eps(1) eta(1)
      H(n,4) = 2nd. partial of F(n) wrt. eps(2) eta(1)
      H(n,5) = 2nd. partial of F(n) wrt. eps(1) eta(2)
      H(n,6) = 2nd. partial of F(n) wrt. eps(2) eta(2)

 Location prior to NONMEM  7: rocm3

 REFERENCES: None.


  
Go to main index.
  

    Created by nmhelp2html v. 1.0 written by Niclas Jonsson (Modified by AJB 5/2006,11/2007,10/2012)