+--------------------------------------------------------------------+
| |
| CCONTR: 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=>FL2,G=>GL2,G2=>GGL2,H=>HL2
GLOBAL DECLARATION:
USE SIZES, ONLY: NO,LVR,LVR2,DPSIZE
REAL(KIND=DPSIZE) :: FL2(NO),GL2(NO,LVR),GGL2(NO,LVR2*(LVR2+1)/2), &
HL2(NO,LVR*LVR/4+LVR/2)
DISCUSSION:
These variables change values with each L2 record. They may be used
by CCONTR.
F F(n) = value returned in F from PRED for the nth observation of
the L2 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: rocm5
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)
*