Figures 7, 11, and 25 of NONMEM Users Guide, Part VI, show a PK routine, an ERROR routine and a NONMEM control stream (with embedded data), respectively. Problem summary pages from NONMEM and PREDPP, resulting from Figures 7, 11, and 25 are shown in Figures 27-28 of Part VI. NM-TRAN inputs and outputs are given on the following pages of this appendix. The inputs correspond to Figures 7, 11, and 25. The resulting problem summary page from NONMEM is a just a little different from that shown in Figure 27 of Part VI due to the fact that NM-TRAN generates EVID, MDV and ID data items. The NM-TRAN data set and control stream are recorded on the NONMEM distribution medium; see Guide III.
NM-TRAN Data Set
320 .0 .
. .27 1.71
. .52 7.91
. 1. 8.31
. 1.92 8.33
. 3.5 6.85
. 5.02 6.08
. 7.03 5.4
. 9. 4.55
. 12. 3.01
. 24.3 .90
NM-TRAN Control Stream
$PROBLEM THEOPHYLLINE SINGLE SUBJECT DATA $INPUT DOSE=AMT TIME CP=DV $DATA DATA3 $SUBROUTINES ADVAN2 $PK CALLFL=1 KA=THETA(1) K=THETA(2) SC=THETA(3) $ERROR Y=F+ERR(1) $THETA (0,1.7) (0,.102) (0,29) $ESTIMATION MAXEVAL=240 PRINT=2 $COVR $TABLE TIME $SCAT CP VS TIME $SCAT PRED VS TIME $SCAT RES VS TIME $SCAT PRED VS CP UNIT
NONMEM Data Set - FDATA
320 .0 1 1 1
.27 1.71 0 0 1
.52 7.91 0 0 2
1. 8.31 0 0 1
1.92 8.33 0 0 2
3.5 6.85 0 0 1
5.02 6.08 0 0 2
7.03 5.4 0 0 1
9. 4.55 0 0 2
12. 3.01 0 0 1
24.3 .90 0 0 2
NONMEM Control Stream - FCON
FILE FSTREAM PROB THEOPHYLLINE SINGLE SUBJECT DATA DATA 1 0 11 6 0 ITEM 6 3 5 11 1 0 0 0 0 0 0 INDX 4 2 1 0 0 0 0 0 0 0 0 LABL DOSE TIME CP EVID MDV .ID. FORM (3E5.0,3F2.0) STRC 3 1 0 0 0 1 0 0 0 THCN 1 0 0 THTA 1.7 .102 29 LOWR 0 0 0 UPPR 1000000 1000000 1000000 DIAG 2 ESTM 0 240 3 2 0 0 0 0 0 0 0 COVR 0 0 0 0 1 TABL 1 1 0 0 TABL 1 2 0 SCAT 1 4 SCAT 2 3 0 0 0 0 0 0 0 SCAT 2 7 0 0 0 0 0 0 0 SCAT 2 8 0 0 0 0 0 0 0 SCAT 3 7 0 0 0 1 0 0 0
Generated and User-Supplied Subroutines - FSUBS
The NONMEM VI versions are shown. With NONMEM 7 and higher, MODULES are used rather than COMMONS.
SUBROUTINE PK(ICALL,IDEF,THETA,IREV,EVTREC,N,INDXS,IRGG,GG,NETAS)
IMPLICIT DOUBLE PRECISION (A-Z)
REAL EVTREC
SAVE
INTEGER ICALL,IDEF,IREV,N,INDXS,IRGG,NETAS
DIMENSION IDEF(7,*),THETA(*),EVTREC(IREV,*),INDXS(*),GG(IRGG,11,*)
COMMON/PRRAND/ETA(10),EPS(10)
COMMON/ROCM12/MSEC
INTEGER MSEC
COMMON/NMPRD4/KA,K,SC,Y,BBBBBB(0996)
IF (ICALL.LE.1) THEN
IDEF(1,01)=-9
IDEF(1,02)= 1
IDEF(3,02)= 4
RETURN
ENDIF
KA=THETA(01)
K=THETA(02)
SC=THETA(03)
GG(01,1,1)=K
GG(03,1,1)=KA
GG(04,1,1)=SC
RETURN
END
SUBROUTINE ERROR (ICALL,IDEF,THETA,IREV,EVTREC,N,INDXS,F,G,HH)
IMPLICIT DOUBLE PRECISION (A-Z)
REAL EVTREC
SAVE
INTEGER ICALL,IDEF,IREV,N,INDXS
DIMENSION IDEF(*),THETA(*),EVTREC(IREV,*),INDXS(*),G(10,*)
DIMENSION HH(10,*)
COMMON/PRRAND/ETA(10),EPS(10)
COMMON/ROCM12/MSEC
INTEGER MSEC
COMMON/NMPRD4/KA,K,SC,Y,BBBBBB(0996)
IF (ICALL.LE.1) THEN
IDEF(2)=2
HH(1,1)=1.0D0
RETURN
ENDIF
IF (ICALL.EQ.4) THEN
CALL SIMETA(ETA)
ENDIF
Y=F+ETA(01)
F=Y
RETURN
END
NONMEM File Stream - FSTREAM
DATA FDATA ****
NM-TRAN Report - FREPORT
NM-TRAN VERSION II LEVEL 1.0
SUBROUTINES FROM THE PREDPP LIBRARY:
PRED PREDI CHECK SADVAN ADVAN2 SSS0 TRANS1 INFN
GENERATED DP SUBROUTINES:
PK ERROR
NONMEM SUBROUTINES: ALL