Permissible Exposure Levels for Selected Military Fuel Vapors (1996)

PROGRAM: MODEL FOR TWO VOLATILE ORGANICS (PEL.CSL)

'PHYSIOLOGICALLY BASED MODELING OF HEXANE'

'AND TOLUENE FOR SUBCOMMITTEE ON PERMISSIBLE'

'EXPOSURE LEVELS FOR MILITARY FUELS'

'THIS PROGRAM DESCRIBES COMPETITIVE, NONCOMPETITIVE,'

'AND UNCOMPETITIVE INHIBITION IN THE METABOLISM OF TWO'

'VOLATILE ORGANIC CHEMICALS, HEXANE AND TOLUENE'

INITIAL

'Physiological parameters'

'Partition coefficients; 1=HEXANE, 2=TOLUENE'

'Biochemical Parameters; 1=HEXANE 2=TOLUENE'

'** TIMING COMMANDS'

SCHEDULE DS1 .AT. TCHNG

CIZONE=1.

CINT=TSTOP/POINTS

'SCALED PARAMETERS'

END $'END OF INITIAL'

DYNAMIC

ALGORITHM IALG=2

DISCRETE DS1

CIZONE=0

CALL LOGD (.TRUE.)

END

DERIVATIVE

'COMPOUND 1'

'CI = CONCENTRATION IN INHALED AIR (UMOLE/L)'

RAI1 = QP*CI1

AI1 = INTEG(RAI1,0.)

CI1 = AIO1*CZONE

'AB = AMOUNT IN LUNG BLOOD COMPARTMENT (UMOLE)'

CA1 = (QC*CV1+QP*CI1)/(QP/PB1+QC)

CX1 = CA1/PB1

AUCB1= INTEG(CA1,.0001)

'AX = AMOUNT EXHALED (UMOLE)'

RAX1 = QP*CX1

AX1 = INTEG(RAX1,.0001)

'AF = AMOUNT IN FAT COMPARTMENT (UMOLE)'

RAF1 = QF*(CA1-CVF1)

AF1 = INTEG(RAF1,.0001)

CVF1 = AF1/(VF*PF1)

CF1 = AF1/VF

'AL = AMOUNT IN LIVER COMPARTMENT (UMOLE)'

RAL1 = QL*(CA1-CVL1)-RAM1

AL1 = INTEG(RAL1,.0001)

CVL1 = AL1/ (VL*PL1)

CL1 = AL1/VL

'AS = AMOUNT IN SLOWELY PERFUSED TISSUES (UMOLE)'

RAS1 = QS*(CA1-CVS1)

AS1 = INTEG(RAS1,.0001)

CVS1 = AS1/(VS*PS1)

CS1 = AS1/VS

'AR = AMOUNT IN RAPIDLY PERFUSED TISSUES (UMOLE)'

RAR1 = QR* (CA1-CVR1)

AR1 = INTEG(RAR1,.0001)

CVR1 = AR1/(VR*PR1)

CR1 = AR1/VR

'AM = AMOUNT METABOLIZED (UMOLE)'

RAM1 = (VAMX1*CVL1)/KM1*DEN1+CVL1*DEN2)

DEN1 = 1.+CVL2/KMI2

DEN2 = 1.+CVL2/KM21

AM1 = INTEG(RAM1,.0001)

'CV = MIXED VEMOUS BLOOD CONCENTRATION (UMOLE)'

CV1 = (QF*CVF1 + QL*CVL1 + QS*CVS1 + QR*CVR1)/QC

'COMPOUND 1'

'CI = CONCENTRATION IN INHALED AIR (UMOLE/L)'

RAI2 = QP*CI2

AI2 = INTEG(RAI2,0.)

CI2 = AIO2*CZONE

'AB = AMOUNT IN LUNG BLOOD COMPARTMENT (UMOLE)'

CA2 = (QC*CV2+QP*CI2)/(QP/PB2+QC)

CX2 = CA2/PB2

AUCB2= INTEG(CA2,.0001)

'AX = AMOUNT EXHALED (UMOLE)'

RAX2 = QP*CX2

AX2 = INTEG(RAX2, .0001)

'AF = AMOUNT IN FAT COMPARTMENT (UMOLE)'

RAF2 = QF* (CA2-CVF2)

AF2 = INTEG(RAF2,.0001)

CVF2 = AF2/(VF*PF2)

CF2 = AF2/VF

'AL = AMOUNT IN LIVER COMPARTMENT (UMOLE)'

RAL2 = QL*(CA2-CVL2)-RAM2

AL2 = INTEG(RAL2, .0001)

CVL2 = AL2/(VL*PL2)

CL2 = AL2/VL

'AS = AMOUNT IN SLOWELY PERFUSED TISSUES (UMOLE)'

RAS2 = QS*(CA2-CVS2)

AS2 = INTEG(RAS2,.0001)

CVS2 = AS2/(VS*PS2)

CS2 = AS2/VS

'AR = AMOUNT IN RAPIDLY PERFUSED TISSUES (UMOLE)'

RAR2 = QR*(CA2-CVR2)

AR2 = INTEG(RAR2,.0001)

CVR2 = AR2/(VR*PR2)

CR2 = AR2/VR

'AM = AMOUNT METABOLIZED (UMOLE)'

RAM2 = (VAMX2*CVL2)/KM2*DEN3+CVL2*DEN4)

DEN3 = 1.+CVL1/KMI1

DEN4 = 1.+CVL1/KM12

AM2 = INTEG(RAM2,.0001)

'CV = MIXED VEMOUS BLOOD CONCENTRATION (UMOLE)'

CV2 = (QF*CVF2 + QL*CVL2 + QS*CVS2 + QR*CVR2)/QC

TERMT(T.GT.TSTOP)

END $'END OF DERIVATIVE'

END $'END OF DYNAMIC'

END $'END OF PROGRAM'

There was a problem loading page 129.