The NM-TRAN outputs obtained from using the NM-TRAN control stream listed in chapter I, along with the NM-TRAN data set listed in Appendix II, are given on the following pages of this appendix. Some code that is extraneous to the control stream was removed from SUBROUTINE PRED for the purposes of simplicity.
Data Set - FDATA
1 4.02 0. .74 79.6
1 0.25 2.84
1 0.57 6.57
1 1.12 10.5
1 2.02 9.66
1 3.82 8.58
1 5.1 8.36
1 7.03 7.47
1 9.05 6.89
1 12.12 5.94
1 24.37 3.28
2 4.4 0. 0. 72.4
2 .27 1.72
2 .52 7.91
2 1. 8.31
2 1.92 8.33
2 3.5 6.85
2 5.02 6.08
2 7.03 5.4
2 9. 4.55
2 12. 3.01
2 24.3 .90
3 4.53 0. 0. 70.5
3 .27 4.4
3 .58 6.9
3 1.02 8.2
3 2.02 7.8
3 3.62 7.5
3 5.08 6.2
3 7.07 5.3
3 9. 4.9
3 12.15 3.7
3 24.17 1.05
4 4.4 0. 0. 72.7
4 .35 1.89
4 .6 4.6
4 1.07 8.6
4 2.13 8.38
4 3.5 7.54
4 5.02 6.88
4 7.02 5.78
4 9.02 5.33
4 11.98 4.19
4 24.65 1.15
5 5.86 0. 0. 54.6
5 .3 2.02
5 .52 5.63
5 1. 11.4
5 2.02 9.33
5 3.5 8.74
5 5.02 7.56
5 7.02 7.09
5 9.1 5.9
5 12. 4.37
5 24.35 1.57
6 4. 0. 0. 80.
6 .27 1.29
6 .58 3.08
6 1.15 6.44
6 2.03 6.32
6 3.57 5.53
6 5. 4.94
6 7. 4.02
6 9.22 3.46
6 12.1 2.78
6 23.85 .92
7 4.95 0. .15 64.6
7 .25 .85
7 .5 2.35
7 1.02 5.02
7 2.02 6.58
7 3.48 7.09
7 5. 6.66
7 6.98 5.25
7 9. 4.39
7 12.05 3.53
7 24.22 1.15
8 4.53 0. 0. 70.5
8 .25 3.05
8 0.52 3.05
8 .98 7.31
8 2.02 7.56
8 3.53 6.59
8 5.05 5.88
8 7.15 4.73
8 9.07 4.57
8 12.1 3.
8 24.12 1.25
9 3.1 .0 .0 86.4
9 .3 7.37
9 .63 9.03
9 1.05 7.14
9 2.02 6.33
9 3.53 5.66
9 5.02 5.67
9 7.17 4.24
9 8.8 4.11
9 11.6 3.16
9 24.43 1.12
10 5.5 0. .24 58.2
10 .37 2.89
10 .77 5.22
10 1.02 6.41
10 2.05 7.83
10 3.55 10.21
10 5.05 9.18
10 7.08 8.02
10 9.38 7.14
10 12.1 5.68
10 23.7 2.42
11 4.92 0. 0. 65.
11 .25 4.86
11 .5 7.24
11 .98 8.
11 1.98 6.81
11 3.6 5.87
11 5.02 5.22
11 7.03 4.45
11 9.03 3.62
11 12.12 2.69
11 24.08 .86
12 5.3 0. 0. 60.5
12 .25 1.25
12 .5 3.96
12 1. 7.82
12 2. 9.72
12 3.52 9.75
12 5.07 8.57
12 7.07 6.59
12 9.03 6.11
12 12.05 4.57
12 24.15 1.17
Control Stream - FCON
FILE FSTREAM PROB THEOPHYLLINE POPULATION DATA DATA 1 0 132 5 0 ITEM 1 4 0 0 1 0 0 0 0 0 0 0 0 0 0 LABL ID, DOSE, TIME CP, WT
FORM (5E6.0) STRC 3 3 1 0 0 0 1 1 0 STRC 1 3 THCN 1 0 0
0 THTA 3.000000000000000E+00, 8.000000000000000E-02,
4.000000000000000E-02 LOWR 1.000000000000000E-01,
8.000000000000000E-03, 4.000000000000000E-03 UPPR
5.000000000000000E+00, 5.000000000000000E-01,
9.000000000000000E-01 BLST 6.000000000000000E+00,
5.000000000000000E-03, 3.000000000000000E-01
2.000000000000000E-04, 6.000000000000000E-03,
4.000000000000000E-01
DIAG 4.000000000000000E-01 ESTM 0 450 3 5 0 0 0 0 0 0 0 0 0
0 0 0 0 0
0 0 0 0 -1 -1
COVR 0 0 0 0 0 0 1 0 0 COVT -1 -1 -1 -1 0 0 CPAR TABL 1 1
TABL 4 1 0 2 0 5 0 3 0 SCAT 1 2 SCAT 3 7 1 1 0 0 0 0 0
0 0 0
SCAT 3 8 1 1 0 0 0 0 0
0 0 0
File Stream - FSTREAM
DATA FDATA ****
Report - FREPORT
NM-TRAN VERSION II LEVEL 1.0
GENERATED DP SUBROUTINES:
PRED
NONMEM SUBROUTINES: ALL
Generated and User-Supplied Subroutines - FSUBS
SUBROUTINE PRED (ICALL,NEWIND,THETA,DATREC,INDXS,F,G,H)
USE SIZES, ONLY: DPSIZE,ISIZE
USE PRDIMS, ONLY: GPRD,HPRD
USE NMPRD_REAL,ONLY: ETA,EPS
IMPLICIT REAL(KIND=DPSIZE) (A-Z)
REAL(KIND=DPSIZE) :: DATREC
SAVE
INTEGER(KIND=ISIZE) :: ICALL,NEWIND,INDXS
REAL(KIND=DPSIZE) :: G(GPRD,*),H(HPRD,*)
DIMENSION :: THETA(*),DATREC(*),INDXS(*)
DOSE=DATREC(002)
TIME=DATREC(003)
WT=DATREC(005)
IF(DOSE /= 0.D0)THEN
DS=DOSE*WT
W=WT
ENDIF
KA=THETA(001)+ETA(001)
KE=THETA(002)+ETA(002)
CL=THETA(003)*W+ETA(003)
B00005=-KE*TIME
B00006=-KA*TIME
B00007=DEXP(B00005)
B00008=DEXP(B00006)
D=B00007-B00008
! A00034 = DERIVATIVE OF B00005 W.R.T. ETA(002)
A00034=-TIME
! A00035 = DERIVATIVE OF B00006 W.R.T. ETA(001)
A00035=-TIME
! A00036 = DERIVATIVE OF B00007 W.R.T. ETA(002)
A00036=B00007*A00034
! A00037 = DERIVATIVE OF B00008 W.R.T. ETA(001)
A00037=B00008*A00035
! A00039 = DERIVATIVE OF D W.R.T. ETA(001)
A00039=-A00037
B00009=KA-KE
E=CL*B00009
! A00041 = DERIVATIVE OF B00009 W.R.T. ETA(002)
A00041=-1.D0
! A00043 = DERIVATIVE OF E W.R.T. ETA(002)
A00043=CL*A00041
F=DS*KE*KA/E*D
B00010=DS*KA/E*D
B00011=DS*KE/E*D
B00012=-DS*KE*KA/E/E*D
! A00047 = DERIVATIVE OF F W.R.T. ETA(001)
A00047=B00012*CL+B00011
! A00048 = DERIVATIVE OF F W.R.T. ETA(002)
A00048=B00012*A00043+B00010
! A00049 = DERIVATIVE OF F W.R.T. ETA(003)
A00049=B00012*B00009
B00013=DS*KE*KA/E
! A00050 = DERIVATIVE OF F W.R.T. ETA(001)
A00050=B00013*A00039+A00047
! A00051 = DERIVATIVE OF F W.R.T. ETA(002)
A00051=B00013*A00036+A00048
Y=F+EPS(001)
! A00052 = DERIVATIVE OF Y W.R.T. ETA(002)
A00052=A00051
! A00053 = DERIVATIVE OF Y W.R.T. ETA(001)
A00053=A00050
! A00054 = DERIVATIVE OF Y W.R.T. ETA(003)
A00054=A00049
! C00031 = DERIVATIVE OF Y W.R.T. EPS(001)
C00031=1.D0
G(001,1)=A00053
G(002,1)=A00052
G(003,1)=A00054
H(001,1)=C00031
F=Y
RETURN
END
TOP
TABLE OF CONTENTS
NEXT APPENDIX ...