xvEPA
Ef-'-
Reactor Test Project for
Chemical Removal of
Pyritic Sulfur from Coal;
Volume II. Appendices
Interagency
Energy/Environment
R&D Program Report
-------
RESEARCH REPORTING SERIES
Research reports of the Office of Research and Development, U.S. Environmental
Protection Agency, have been grouped into nine series These nine broad cate-
gories were established to facilitate further development and application of en-
vironmental technology. Elimination of traditional grouping was consciously
planned to foster technology transfer and a maximum interface in related fields.
The nine series are:
1. Environmental Health Effects Research
2. Environmental Protection Technology
3. Ecological Research
4. Environmental Monitoring
5. Socioeconomic Environmental Studies
6. Scientific and Technical Assessment Reports (STAR)
7. Interagency Energy-Environment Research and Development
8. "Special" Reports
9. Miscellaneous Reports
This report has been assigned to the INTERAGENCY ENERGY-ENVIRONMENT
RESEARCH AND DEVELOPMENT series. Reports m this series result from the
effort funded under the 17-agency Federal Energy/Environment Research and
Development Program. These studies relate to EPA's mission to protect the public
health and welfare from adverse effects of pollutants associated with energy sys-
tems. The goal of the Program is to assure the rapid development of domestic
energy supplies in an environmentally-compatible manner by providing the nec-
essary environmental data and control technology. Investigations include analy-
ses of the transport of energy-related pollutants and their health and ecological
effects; assessments of, and development of, control technologies for energy
systems; and integrated assessments of a wide-range of energy-related environ-
mental issues.
EPA REVIEW NOTICE
This report has been reviewed by the participating Federal Agencies, and approved
for publication. Approval does not signify that the contents necessarily reflect
the views and policies of the Government, nor does mention of trade names or
commercial products constitute endorsement or recommendation for use.
This document is available to the public through the National Technical Informa-
tion Service. Springfield. Virginia 22161.
-------
EPA-600/7-79-013b
January 1979
Reactor Test Project for
Chemical Removal of Pyritic
Sulfur from Coal;
Volume II. Appendices
by
R.A. Meyers, M.J. Santy, W.D.Hart.
L.C. McClanathan. and R.A. Orsini
TRW, Defense and Space Systems Group
One Space Park
Redondo Beach , California 90278
Contract No. 68-02-1880
Program Element No. EHB527
EPA Project Officer: Lewis D. Tamny
Industrial Environmental Research Laboratory
Office of Energy. Minerals, and Industry
Research Triangle Park, NC 27711
Prepared for
U.S. ENVIRONMENTAL PROTECTION AGENCY
Office of Research and Development
Washington. DC 20460
-------
ABSTRACT
Plant checkout and shakedown was completed at the end of September and
initial plant process performance was evaluated on an Appalachian coal. Oper-
ation of the plant through January of 1978 demonstrated that the Reactor Test
Unit (RTU) could be run continuously in three-shift operation to reduce the
coal from 2.4 Ibs S02/106 Btu to a level of 1.0 to 1.2 Ibs S02/106 Btu, after
rinsing and extraction of generated elemental sulfur. There was no measurable
coal oxidation during processing and leach rates in the plant were greatly
improved over bench-scale values. The leach solution/coal/oxygen environment
was found to be corrosive to the installed stainless steel reactor, necessi-
tating future upgrading to support additional testing. Bench-scale experimen-
tation showed that the leach solution can be used as a homogeneous dense-media
to efficiently gravity-separate coal prior to processing. Beneficial
engineering cost improvements are obtained based on using this approach,
resulting in capital cost estimates of $68-$69/KW and with $0.44-$0.50/106 Btu
processing costs, including amortization of capital, for input coal costing
$0.78-$0.81/10 Btu. Overall energy efficiency was 93 to 96 percent.
11
-------
APPENDIX A.
APPENDIX A-l.
APPENDIX A-2.
APPENDIX A-3.
APPENDIX A-4.
APPENDIX A-5.
APPENDIX A-6.
APPENDIX A-7.
APPENDIX A-8.
APPENDIX A-9.
APPENDIX B.
APPENDIX C.
CONTENTS
Computer Programs Utilized During RTU Data
Reduction
Computer Program for Converting Doric Magnetic
Tapes to an Engineering Format
Computer Program for Tabulating Doric Data in the
Abbreviated Format
Computer Program for Plotting Doric Data ....
Computer Program for Computing Averages and
Standard Deviations of Doric Data Channels. . . .
Computer Program for T-2 and R-l Material
Balances
Typical Computer Program for Evaluation of RTU
Kinetics
Computer Program for Reducing Control Laboratory
Analytical Data
Computer Program for Revision of Analytical
Data Files
Computer Program for Plotting Analytical Data .
RTU Procedures.
Design Case Details
Page
1
2
14
25
31
35
50
54
84
86
91
95
111
-------
APPENDIX A. COMPUTER PROGRAMS UTILIZED DURING RTU DATA REDUCTION
-------
PROGRAM DORIC (INPUT.OUTPUT,TAPE l-INPUT,TAPe2-OUTPUT, TAPE 3,TAPE«,
-
C WRITTEN 7/14/77 DFBBIf; HOP? 247360 REVISED 8/9/77* 10/5/77
C REVISED 11/8/77 (NEW TIM? FORMAT)
T RIOTS BDR1C DATAL^ecei T»»£, CHAi«S" llftlGlT'fHAlNEL WORD TO 10,
C HAKES NEW TAPE AND PRCBARES LISTING
CONHON/A/DORIN(113t,OOROUTU13),lISTt3»100)*PARAH(2»100),
2 IFIL,IMAX,NN»X,BL»MK.IALCH,OK,ICHAN,DATA,ALARM,DENS,
3 PT172»PT150»TE173,TF148
INTEGER
DATA SY«BOL/1R>»1R<»1<»>.IR(,1R»,1R ,1R-,1RS/,
1 ALMPRT/10HHIGH ,10HLOW ,10HHIGHER ,
2 IWTLOTFB • -.ITWVIVKATJeEifSR ,
3 10H />ITARG/2,4/,DENS/1.24/,
* . IMAX/113/,NMA«/10?/>TALCH/4B/,BLAHK/10HS»Si»it>St/»OK/lR
U»l» UNITS/ 1UHVULI') ,1WOTG~F , 10HDES T" ' ,IOHDH F
1* 10HOEG F ,10HOEG F ,10HOEG f ,10HDEG F *
2 10HDE6 F »10HDEG F *10HDEG F ,10HOEG F ,
"3 luMQtG "F ,IOHD"5T> F " ~»10HCA\T0HS" VIOHSCFH »
4 IOHSCFH .10HPFRCFNT ,10HPERCENT ,10HPOUNDS ,
5 lOHPOUNDS/HR ,10HPSIG ,10HPSI6 .10HPSIG i
6 10'IWGPM " ,10ftINCHES~~ ilOHINCHFS ,1'OKPSIG
^ 7 10HPSIG ,10H»SIA ,10HPSIA .10HVOLTS ,
8 8*10HDEG F ,41*1H ,10HPSIG ,10HINCHES ,7*1H ,
DATA (P*R»H(I),1-1.66)
1/11HSELF CHECK ,15HT-3 CEIL 1 TEHP.15HT-2 CELL 2 TEMP*
TT T5HT-7"i:Elt 1 TE"n»»15HH-T CELL 1 TEW»I5HR-I CELL 2 TIHP>
2 15HR-1 CELL 3 TENP,15H*-l CELL 4 TEHP,15HR-1 CELL 5 TEMP,
318HOXY6EN TEMP TO R-lvlDHV-l DISCH CAS TEMP,18HLEACH TO V-l TEMP ,
^DHmCK FRTJ»I V-T TFfP,lIHB-2 TEBF .l^mir^I DISCHARGE TOTAL,
ilBHOXVCEN FLOW TO 8-1.18HV-1 01SCH GAS FLOW,18H02 ANAL REFERENCE ,
615H02 ANAL SAHPLE »UMAUTOWFIRH TOTAL.15HAUTOWEIGH RATE ,
71SHK-1 PRESSURE ,15HO»Y6EN TO R-l *I9HV-1 BISCH GAS PKESS,
818HP-1 DISCHARGE FLOtf.lBHP-3 DISCHARGE FLOW,18HP-3 DISCHARGE FLOW,
918HP-* DISCHARGE Finw,18HP-? DISCHARGE FLOW,18HP-6 DISCHARGE FLOW,
-THHT-1 LEACH FLOW,l"H»-9 DISCHARGE FLOW.19HP-10 DISCHARGE FLOW/
DATA (PARAH(II»I>67,?00)/
118HP-7 DISCHARGE FLOW,16HT-2 SLURRY LEVEL,16HR-1 SLURRY LEVbL,
2ZOHPUMP P-l DISCH PRESS,16HN2 SUPPLY TO R-1,16HS-1 VACUUM PAN A,
316HS-1 VACUUM PAN B,HMIUN»PO EX. MONITOR,20HLEACH SL TEMP TO T-3,
Appendix A-l. Computer Program for Converting Doric Magnetic Tapes to an Engineering Format.
-------
413HT-4 TANK TEH»»13HV-1 TANK TENP»13HT-4 H20 IN TENP*
5T9RT-10 FLUSH H20 TE1P.UHP-1 OISCH TENP.20HS1 INLET TENP SLURRY*
6 16HT-4. H20 OUT TE1P.12*1H ,
315HP-16 FLOW ALARN»15HN2 TO T-l *1SHFEED TANK T-l .
416HA.V.DELIVERY HT.16HA.W. DELIVERY LO»l2HT-2 HIGH LVL*
511HT-2 LO LVL »13HR-1 HI HI LVL.11HR-1 HI LVL .11HR-1 LO LVL »
613HR-1 LO LO LVL.15HR-1 HI PRESSURE*18HR-1 NIX NOTORS OFF*
"TTiWFT'TiRR LO LVL .18HT-5 MI LVV *16HT-4 HI LVL ,
818HK-1 VACUUN OFF »18H1XY SUPPLY LO LVL .16HINST. AIR LO LVL i
919HSTEAN SUPPLY LO LVL»19HN? <>U«6E LO LVL* 18HN2 MANIFOLD LO LVL.
TI6HTMO WATER LO LVL .18HT-6 HI LVL »18HR-2 HI LO LVL ,
220*1H »20HPUMP P-7 OISCH PR^SS»16HR-2 LIQUID LEVEL*
319HXOUCER P.S. NONIT00/
19 ,8HTE-20
18HTE-53
2BHTE-199
3BMAt-171
4BHPT-190
3BHFE-87
6BHPT-5B
78HTE-32
8BHTE-
.8HTE-54
.8HTE-200
»WAE-171
*8HFE-29
,8HFE-31
-*BHPT-28
*8HTE-201
, 8HTE-20*
r *8HPSL-lfl
•8MTE-95
tflMTF-99
•8HFE-83
»8HFE-157
»8HTE-20?
»6*1H .
*8HTE-21 >8HTE-52 ,
»8HTE-56 .8HTE-173 »8HTE-l8HFE-86
»8HPT-26
• 8H
»8HTE-28
,8HHSH-9 »8HUSL-9
98HLSL-26 »8HLSHH-58 .8HLSHL-58A,8HLSHL-58B,8HLSL-59
1BHN4 TO N8,8HLSL-37 .RHLSH-88 .8HLSH-91 ,8H
~2THPTT=T«* »8HPSL-165 ,8H»SL-168 ,BMFSL-1B9 ,8HLSL-175 *8HLSH-120
38HLSHL-95 »10*1H .1HPT-100 .8HPT-95 »6*1H /
,8HLSH-26
.8HPSH-151
.8HPSL-163
REMIND •>
REWIND 5
1000 FORNATC1H1I
IFIL'l
DO 120 I"1»INAX
120 OORINi I ) -BLANK
TIT kEADI3T"OORTW
IF(EOF,3) 190>130
130 L1ST«1»IFIL)-LIST<1,IFU)*1
STORE HEADER* DATE AID TI*€
DOROUTID-DORINCll
Appendix A-l. (Continued)
-------
CHANCE METHOD OF STORING THE FOR CTS15
KSTORE-LSYTl J7, 18.00RINI2M
CALL SBYT(43,18»OOROUTm,KSTORE»
HOVE POWER FAIL BETW. DAY * HR
KSTOKE-UYm9»6,OORIN<2M
CALL SBYT(37,6.00ROUT«?),KSTORE)
KSTORE*LBYT( Z5» 12»OORIN<2) )
C*CL SBYT(25»12»DORnum».KS™Rt)
KSTOR£-LBYT(7,12.DORIN«2))
CALL SBYTI13»12»DORr)UTm»KSTnRE)
CALL SBYTI1»12.00ROI)T<2),K«;TQRE>
KEEP 1ST TINE OF FILE IN LIST
C
C REMOVE 2ND CHAR. OF I-ACM It CHAR. HOMO* STORE IN 10 CHAR WORDS
~c ---- 1-uoirnrwono, J-DQKTN CHAR toe, N-DOROUT WORD»KBIT-OOROUT CHAR LOC
JSKIP-12
KBIT-55
DO 1*0 K»I»10
KSTOHE-LBYT(J.6,DORIN(T))
IF(KSTORE.EQ.SVHBOL(9)) fin TO 150
J-J-JSKIP
JSKIP-6
-- ^rFTT.ST.O) GO TO 135
J-J*60
1-1*1
- TJ5 1CB1T-KBIT-6
140 CONTINUE
IF(N.NE.^)GO TO 144
~C --- "5Kir~RECORD IF CONTINUOUS ALARH - TEST IF DATE OR CHANNEL
ITEST«LBYT(55,6fDORnuT(N»
00 142 K-IF&
-------- IFIITEST.EO.SYHBOLCO) GO TO 144
142 CONTINUE
C FOUND ANOTHER DATE - SKIP RECORD
- 1*3 LISTllf IFILJ-LISTdt IFILI-l
GO TO 115
Appendix A-l. (Continued)
-------
CONTINUE
CALL PTWTllNV
IMN.LT.3) 60 TO 119
MRITE(t) N, (DOROUTm,I-l,H)
___
~50~TO~TI¥
190 N-N-1
IFtN.LT.3l 60 TO 119
- -- eir TITT«
c
C END OF FILE
~ ivoTFfiorm.NE.oi GO TO 195
IFUIST(1,IFIL>.NE.O» LISTn,IFIU-DaROUT(2>
192 1FIL-IFU*!
------- WTO "110
C
C END OF INFORMATION - PUINT LIST OF FILES
STOP
END
C
C
01 ----- 50HTOUTTNE PRINT UN I
COMMON/ A/OOR INC 113) »OOROUT» 1131 .LIST (3. 100 > »P»R*M( 2» 100).
1 TA6(100)»UNITS{100»,SYMBOL(8),ALMPRT(7),ITARG(E)»
--- 2 IFILt INAX.NHAX, BLANK, I ALCH. OK, KHAN, D AT A» ALARM, OENS»
3 PT172,PT150.TFI73,TE1*8
INTE6ER AL ARM, SI6N."»OWFBF,ni<.SYMBOL>i)OR IN, DOROUT, BLANK
- DTC00ETIO*1020/OORnUTC3)) JOAY.POWERF, JHR, MINI, MINZ. JSEC1. JSEC2
IF(POMERF.EQ.OK) WRITE 1 5, 10*0) OOROU f ( 1), JOAY, JHR, MINI, HIN2, JSEC1,
1 JSEC?
--- TFrPOWERF.NE.OK) WHITE 15, 1 050) DOROUTC 1 ), JDAYt JHR»M1N1.HIN2, JSEC1,
1 JSFC2
WRITE(5,1060)
------- PT150«TE1*B«PT172«T?173«0.
00 220 1-3, N
DECODE (10, 1030, DOROUTUM ALARM/ ICrtAN* SIGN, OAT A, IEXP
-- iniCH«W.EO.H.OR.TCM»M.F0.19) IEXP-0
IF
-------
_ 230JNCODE(lp»1010*DO*pUTm) DOR OUT! I)»IEXP _
TFntHAH.Le.ULCH.OR.iCH»««.E0.90.0R.ICHAN.EQ.91.0R.ICHAN.EQ.99)
1 60 TO 205
C ALARM CHANNEL - NO DATA
so TO 220 ~ ~ ~
00 203 Ml. 7
IFCALARN.EO.SY1BIUCKM A1UT-ALHPRTIK)
WRITE (5,loeO» ICHAN,l»ARA"U.ICHAN+ll»PARAH<2»ICHAN+l)»TAG!ICHAN+ll
1 »AOUT
CffTD 2~Z6~
OATA.OATA»10.*««-IEX«>)
IF(SI6NtEO.SVHBOL(7)l DATA—DATA
IFfTCflAN. 60.91 TE17?-DATA
IFIICHAN.E0.10) TE1«.«-OAT*
CONVERT MW TO SCFH
IFriCHJH.R.l5.0R.ICMAM.EO.l6) CALL CALIBHII)
CONVERT PSIG TO INCHES OF SLURRY
IF(ICHAN.E0.3*.OR.!CHAN.FO.)5.0R.ICHAN.EQ.91) CALL DEPTHIII
_
2UB" DO" TIC K«l»7
IF(ALARM.EO.SYHBOL(K)) AOUT-ALNPRT I K I
210 CONTINUE
----- TFTTCHIH.E0.991 60 T3 21?
IF(ICHAN.F.0.17.0R.ICM*N.F0.1«.OR.1CHAN.EQ.21.
1 ORtICHAN.EO.36.OR.ICHAN.co.37.OR.ICHAN.EQ.90) 60 TO
--- TFnCflAN.El}.O.OR.ICHAM.6F.2*.AND.lCHAN.L£.33.
1 OR.ICHAN.6E.36.AMO.ICHAN.LF.4iO) GO TO 212
IFdCHAN.EO.14.OR.ICHAN.FO.lot GO TO 216
------- ¥RTTFH»1072) ICHAN.PARAm 1. TCHAN+1) . P ARAM 2, ICHANU J »
1 »DATA,UNITS(ICHAN*1),AOUT
GO TO 220
212 yRITE(^»!D70) ICHAMt P AR AM( 1, TCHAN+1) , PARAH ( 2. ICHANfl ) ,T»C< ICHAN+1 )
1 (DATA. UNITS! TCHAN+l),AOUT
GO TO 220
~ ~Zn ¥»IIEI3i 10711 ICHAN.i»ARA"(l.ICHAN*l).PARAHrT»ICHAN»ll,TAG«ICHAN*ll
1 »DATA,UMIT?(ICHAN*1),AOUT
60 TO 220
716 fntlTETS* 10731 ICHAN,PARA»(1.ICHAN+1).PARAH(2,ICHAN*1).TAG(ICHAN*1)
1 »DATA. UNITS! TC>UN+1),AOUT
220 CONTINUE
RFTURN
1090 FORHAT(F3.0»1X»3F2.0!
Appendix A-l. (Continued)
-------
1091 FORMATCA3»I6,I1»
C
c
1010 FORMAT(A9,I1)
1020 FORMATII3,R1,I2,4I1)
1030 FORMAT,PARAM( 2,100),
1" * TAGI100).IJNTTSUOO),SYHBOL(8),ALNPRT(7),ITARG(2),
2 I FILtIMAX,N«14X, BLANK, IALCH, OK, ICHAN.DAT A, ALARM, OfcNS,
3 PT172,PT150,TF173,TF1<,8
INTEGER ALARM,SIGNtPOWCRF,1«tSYMBOL,JORIN,OOROUT,BLANK
«RITt<5,1110) DORIUTIl)
URITE(5,1120)
DO 320 K«1,IFIL
IF(LIST(1,K).GT.O) 61 TO 310
HRITE(S,1130) K,LI^T(1,K)
CT3 TO 320
310 OECOOE(10,11«.0,LIST(3,K)) JOAY,JHR,M1N1,MIN2,JSEC1,JSEC2
OECUOEI10,11*0,LIST(3»K)» JOAYX,JHKX,MINX1,MINX2,JSEC XI,JSECX2
~ ~ ~WRITE IT, 1130) K,LISTIl.K),JOAY,JHR,MINI,MIN2»JSEC1,JSEC2,JOAYX,
1 JHRX.«INXl,MTSX?,JSECXl,JSfeCX2
320 CONTINUE
TTFTURN
C
1110 FORPATC*! RUN *,A10)
'"mo TORMTt* FILE NO.BI-CnRDS 15TTIHE LAST TIHC*)
1130 f-URHAT(3X,I3,eX,I3,3X,I3,lX,I2,2(*i*,2Il),3X,I3,lX,!2,2(*t*,2Il»
Appendix A-l. (Continued)
-------
FORNATU3*1X* 12*411)
END
C
C
~c uSE'C'AtiBRATioN CURVES TO CWVERT Hv~Tff"seFB
SUBROUTINE CALIBRCI)
_ COMKON/A/OORIN<113)»00«OUTCU3),LIST(3»100).PARA«<2,100),
~ 1 TAG(100).UNm»100I.SYHBOLee».ALHPRTm,lTAR6C2»,
2 IFIL»IMAX,NHAX. BLANK, I ALCH, OK, ICHAN, DATA, ALARM, DENS,
3 PT172»PT150,TF173»T*14e
INTESEU DOROUT* SIGN, ALAR", SYMBOL
DIMENSION XTABLEU5.18,2),YTABLEC15,ie,2),ITARGl<6,2),LLHAX4» 5»685, 115. 328, 12 7. 49 4,
2 1 36. 52 4 * 14 7. 9 7, 155. 139, 3* 1*5. 085, 30*0,
T TJ.*7». 413*4^.245*107. 401*123. 544, 150. 242, 213. 059, 237. 149, 255. 298,
4 274. 785, 296. 289, 31 7.05 1), 3*329. 827, 30*0* 180*0/
Appendix A-l. (Continued)
-------
VO
___ - _ - _
1 6. »10.B79»21.792, 30. 691, *6.*32,57. 387, 65.328, 73. 503,80. 970,
2 86. 593, 92.916, 97. *lfl, 3*102. 080, 0. » 16.35*, 35 .505, *9. 073, 72. 3,
_3 89. 11^. 100. V'5» 113. 9*5. 125. 1*2, 133. 815. 1M.281»152._107» 3*161.07*,
* O.,30.3*5~, *5.070,73.6*, 100. 758, 1187965, 13*. 221, 150. 173, 164. 139,
5 162.879,19*. 132»**205. 662*
6 0. » 21. 102* 6*. 0*7, 76. 639. 111. 503, 130. 3*2, 157. 696* 170. 259, 195. 172,
7 2~D3. 696,213. 32, **?M. 0)7, 0., 31.*6*, 100.*27» lie~.*9,173.03B»
8 21*.605, 2*5. 159, 276. 795, 303.677, 327. 779, 3*1. 0*1, **360. 298,
9 0., 2 7. 329, *2. 801, 152. 90*. 220. 35 1.272. 676, 312. 2 38, 35 1.077, 383. 325,
I *L6.9Z6>*32.608,***55.639,
2 0.. 19. 711. *2. 397, 54. 24*. 120. 966, 150. 031*211. 05, 250. 093,298. 506,
3 332.*62,365.372,396.6*9.*;>5.B59,2**5*.309, 0., 65. 696, 92. 971,
* 126. 282,156. 011,2%*. 73*, 3?7. 158, *63. 89*, 517.**!. 567.939,613. 166,
5 651.575,3*698.598, 0., l?0.309, 163.*57, 19*. 598, 297. 155, *19. 336,
6 509. 282, 585. 901, 657. 025, 7?*. 186, 780. 7*9, 829. *97, 3*883. 3B9/
DA/
1 0., 120. *81, 208 .139, 265. 5 3 3. 136. 302,* 3d. *b» 5 17. 2 16, 588. 373, 65 0.159
2 ,703. 911, 755. 633, 901.71*, 073. 003, 2*931. *29,
1~OT*1I*.193*320. 715, *72. 663, 661. 965*010. **95«. 051*1051. 9*1* 1157. 01
* ,1252. 652, 13*0. 56*. 1*0*. 89. 3* 1*95. 2 13,
5 0.»11*.*07,23*.5 11.50*. 3*3, 8*9. 128, 1030.579, 1199.833, 133*. 803,
6 T*~75.TnB» 1577. 671, 1697. 56, 1788. 95*, 3*1897.8037
IFiDATA.LT.O.) OAT4-0.
mwr*.Eo.o.) GO n 370
1)ATA-DATA*1E3
LI-1CHAN-1*
J-ITARCL(J,LI»*3-2
FIND T,P FOR CORRECTIONS - IF NO T,P ON TAPE USE 0.
— LOOK TOR CH.Z2 OR ZMP), T ALREADY FOUND (CH.9 OR 10)
DECODE (10, 1220,DORniJT(LI»2*»» ICH2,SN2,OAT2,IX2
IF(1CH2.NE.(LI+21)» 60 TO 330
3*9 IFCIXZitF.OT IT2*0
OAT2-DAT2*10.**(-IX2>
IF(SN2.EO.SYNBOH7») OAT2— OAT2
CTTTO 335
330 K«AX-LI*23
00 332 K-3.KMAX
UfcUJU
IF(ICH2.EO.«LI*21)) 60 TO
Appendix A-l. (Continued)
-------
33Z CONTINUE _
~D~AT2«0.
335 IF5
tUNHNUE
L-LHAX-2
GO TO 3*8
ir«i>-r" —
IF(L.LT.l) L-l
IF«L»2),GT.LHAX) L-L-1
XD»mBUI11» J » LI)
TJ»5T»V«YTAfllF(L»J»LI)«(DATA-xn*(DATA-X2»/nXO-Xl)*
! + YTABIF (L»2»J»LT)*(0»T»-<0)»CDATA-Xl)/HX2-XO)*CX2-XU)
tI7CT.ll BO TO 350
C CH.15 ADJUST SCFH FOR T.P tC'JRVE IS AT 200 PSIG» 70 F)
DATA"DATA*.9**SQRT((PTl72*l*.7»»530./<21*.7*(TE173+*60.m
TO TO 370
C CH.16 ADJUST SCFH PI* T»P (CURVE IS AT 20*70*120 PSIG AND 70 F)
3SO DATA«DATA*.94*SQRTf(PT150*1*.7)»530./((8*.7*CORR)*(T61*8+*60.)>I
T
C CHANGE ALPHA INFO FOR TAPE*
Appendix A-1. (Continued)
-------
370 IEXP-1
tOAfA-DATA*10.+.5
ENCODEUO* 1210* DORIUTt Tit OlROUTm, IOATA, IEXP
RETURN
CP OT T OVFRRAN6E - NO CALIBRATION POSSIBLE
380 SI6N-SYHBOLI7)
IOATA-99999
IFXT-T
ALARM-SYMBOL*?)
ENCODE 110*1230fDOROUT(IM ALARh.ICHAN,SIGN,IDATA,IEXP
RETURN'
1210 FORHATJA3»I6,I1)
1220 FORMATIlX.IZ,Rl,F5.0.n)
1730 TDRHAT(«1»I2,R1,I5,T1)
END
C
-c
C
C CONVERT PSI6 TO DE°TH IN INCMPS
•SUOTDUTPre DiPTHdl
COMMON/»/DnRIN«1131.DnRnuT(113),LIST(3.100),PARAM(2,100),
1 TAGdOOJ.'INIT^dOOS^YMBOLIalfALMPRKTl.ITARGlZ),
2 IFIL»I«AX.MHAX,BLASK,ULCH,OK,ICHAN,DATA,ALARH»DENS,
3 PT17Z»PT150pTP173tTF14,8
INTEGER ALARH»SI6NtPOU":RF,OK, ^YMBOL»OORIN»OOROUT, BLANK
C CH.3MA1.B1 BY 0?S«!ITY), CM. 35,91 (A,i(2, 3) ) , ALIH(4 ALAPNS/CHAN)
DIMENSION Al(«l>Bl(«)tA(3),Q(3),ALIN(4»3)»OLIST(<>)
DATA Al/3.095,2.796.?.57*,?.5/,Bl/-7.
-------
ibAYA»DATA*10.**IEX**.5
C
C CHECK FOR ALARMS
"" IFlDm.LE.M.IM(l»LI)) GT TT 530
IFlDATA.L€.ALIH
EMCOOt(10»1510»OORnUTtI)) ALAHh.ICHAN. IOATA»IEXP
RFTDRU
1510 FORNATIR1, 12.16, II)
bND
SUBROUTINE OIFFII)
COimDK7I/DORIN«113>.DORnUT«in)fLIST(3,100»,PARAH(2»lOO),
1 TAG(100),l)HITS(100>,SrM60L(a»,ALMPRT(7),IIARG(Z)»
i IFH.IHAX.NMAt.RLiNK, IALCH.OK, ICHAN, OAT A, ALARM, OEMS,
3 ------- FnT7,?T150»TE173,TFH8
INTEGER DORQUT, SIGN. ALARM, SYMBOL
CONVERT MILLIVOLTS TO DF5 F
USES tHFRTOCTTUPLE CALTBR. FRON HANDBK CHEM/PHYS P. E-112
DATA-DATA*!. 8/.0
-------
Sample Output
RUN 03-03-00 DAY 10
PARAMETER
SELF CHFCK
T-2 CELL 1 TfMP
T-2 CEIL .2 TEM»
T-2 CFLL 3 TEMP
R-l CELL 1 TFMP
R-J CELL 2 TFMB
R-l CELL 3 TEHP
R-l CELL 4 TEH°
R-l CELL 5 TEMP
OXYGEN TF*P TO R-l
V-l PISCH G»S .TFMP
LEACH TO V-l TFMP
LEACH FROH V-l TE"P
R-2 TEHP
OXYGEN FLOW TO 4-1
V-l DISCH GAS FLOW
02 ANAL REFERF.MCF
02 ANAL SAMPLE
AUTOWEIGH TOTAL
AUTOWEIGH RATE
R-l PRFSSURF.
OXYGFN TO R-l
V-l OISCH CAS PR*??
-1 DISCHARGE FLHW
-2 DISCHARGE FLOW
-3 DISCHARGE FLHW
-4 DISCHARGE FLOW
-5 DISCHARGE FLnw
-6 DISCHARGF FLOW
-3 LEACH FLOW
-9 DISCHARGE FLOW
-10 DISCHARGE FLOW
0
1
2
3
*
5
6
7
_. 8
9
10
11
12
13
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
_3jO
31
32
13
3*
35
36
37
38
_«.
*3
47
*8
90
91
99
Pr7 DJMHARGF
T-2 SLURRY LEVEL
R-l SLURRY LFV*L
PUHP p-i PISCH
M2 SUPPLY TO R-l
S-l VACUUM PAN A
5-l VACUUM .PAN U
RAMAPO EX. MONITOR
LEACH 51 TEMP TO T-3
T-* TJNK. TEMp
V-l TANK TEMP
T-* H20 IN
-T-JO FlUSH H20 TEMP
P-l DISCH TEMP
SI INLET TEMP SLURRY
1-*_H2P OUT TFMP
PUHP P-7 OISCH PRESS
R-2 LIQUID LEVEL
5120100
TAR
UJR-170
TF-10
T*-20
TF-2 1
TP— 5?
TF-53
Te— 54
TF-55
TF— 56
TF-171
TC—14A
TP-IOQ
TF-200
TC.QO
FS— 61
pp. 44
AF-171
Ae— 171
WT-9
WT-9A
PT-173
PT-172
PT-150
FE-20
FB— 13
FC-*4
Ft— 15
FF-U6
F*— *7
FF-31
FF-157
F*-15*
FP-IOI
PT-?6
PT-5fl
5 PT-2«
PT-307
PT-249
•T-250
3 TF-1*
Tr-201
TF-202
TF— ?oi
TF-195
TF-?«
r TF-
TF-204
S" PT-100
PT-95
f>»TA
4.999
117, 0
115,1
1?°. 2
211.8
201.7
206.1
207.1
206.9
55.1
55.1
50.5
71.0
56.3
6.6
0.0
9P. 59
°0. 07
5661
-.3
-17.50
.1
'1.3
.974
.872
.659
1.797
.454
-.077
-.014
.006
.005
-1.250
1?.9
11.0
-50,19
43.10
14.550
-3 1 760.
-0.000
56.0
64,2 ..
50.9
64.5
60,4
•U.2
5«.9
61.0
-8.26
??, 3
14,568
UNITS
VOLTS
DEG F
DEG F
DEG
DEG
DEC
DEG
DEG
DEG
DEG F
DEC F
DEC- F
OEG F
DEG F
SCFH
SCFH
PERCENT
PERCENT
POUNDS
POUNDS/HR
PSIG
PSIG
PSIG
GPH
GPH
GPH
GPH
GPH
GPH
GPH
GPH
GPH
GPH
INCHES
INCHES
PSIG
PSIG
PSIA
PSIA
VOLTS
DEG
DEG
DEG
DEG
DEG
DEG
DEG
DEG
PSIG
INCHES
NV
ALAPN
LOWER
LOWER
Appendix A-l. (Continued}
13
-------
PR06RAN DORTIM INPUT, OUTPUT, TAPEl«INPUTfTAPE2«OUTPUT, TAPE*,
WRITTEN a/16/77 DEBBIE H1»P 247360
-PRINTS CHANNELS IN GM\M OF 12 BY TIME PERIOD* '
Tm-HlN,T<2)-NAX,Tm-*IN TIME INTERVAL (TAPE6)
TAPt* IS OUTPUT FROM DORIC 'R06RAN < CONVERTED DATALOGGER TAPE)
COMMON/ A/DOR IN{ 113 >tPD AY* (1?, BOO), TINE ( 800), NOCHAN,
1 D«,), H« »lACH(32>,IEND»NALCH,HEAD3
DIMENSION P(9600)»IPD(96001
INTEGER SIGN,RUN,DO'»IN»SKIP.»LARM,$YMB3L,ALNPRT,AOUT»HEAD3
HEAL N
IALCH IS LAST DATA CHAHMPL IH 1ST BLOCK
NOCHAN IS NO. OF DATA C»<»NN5LS
NALCH IS NO* OF ALARM CHAHMelS
DATA SYHBDL/IR>,1R<»1«).1«(.1R»,1R I,
1 ALMPHT/3H H,1M L.1M 4H, 3H LL» 3H OR, 3H
DATA UNITS/10HVDLTS
10HDF6
F , 10HDEG
, 10HDEG F
,10HDEG F
,10HGALLONS
f 10H»ERCENT
,10HPSIG
, lOrHNCHES
tlOHPSIA
F ,10HOE6 F
,10HDEG F
. 10HOEG F
,10HSCFH
>10HPOUNDS
•10HPSIG
, 10HPSIG
tlOHVOLTS ,
10HINCHES
, 7«1H ,
1, 10HOEG f ilOHOF.G F
2 10HDEG F .10H055 F
3 10HDFG F . 10HOP6 F
<• 10HSCFH ,10HPePCBNT
"> 10HPOUNDS/HR ,10H»SI6
6~ ' IO«10HGPM .10HTNCHFS
7 10HPSIG >10H»SIA
8 8*10HDEG F ,41*1H ,10HPSI6
9 10HWV /
DATA (PARAM(I)f I-lp&S)
1/11HSELF CHECK ,15HT-2 CELL 1 TEMP, 15HT-2 CELL 2 TEMP,
1 15HT-2 CELL 3 TBM.IJHR-I CELL 1 TEHP»15HR-1 CELL 2 TEMP,
Z 15HR-1 CELL 3 TEMP,15MR-1 CELL * TEMP,15MR-1 CELL 5 TEMP,
31BHOXVGEN TEMP TO R-ltl9HV-l DISCH GAS TEMP, 1BHLE ACH TO V-l TEMP i
"H9HLEACH FPnn V-l TBMP,11M«>-? TEMP ,19HR-1 DISCHARGE TOTAL.
ilBHOXYGEN FLOW TO P-l. 18HV-1 DISCH GAS FLOH,1BH02 ANAL REFERENCE •
615H02 ANAL SAMPLE • 15MA'JYn«PTGH TOTAL • 15HAUTOME IGH RATE >
7I?HR-1 FWTSSURE tHHOTYSFN TO R-l ,19HV-1 DISCH GAS PRESS,
81BHP-1 DISCHARGE FLDWtl0HP-2 DISCHARGE FLOH,16HP-3 DISCHARGE FLOW,
Appendix A-2. Computer Program for Tabulating Poric Data in the Abbreviated Format.
-------
9I8HP-* DISCHARGE FLOW»lSMP-5 DISCHARGE FLOW.18HP-& DISCHARGE FLOW*
114HT-3 LEAC"H~~FLOW,l8MP-9 DISCHARGE FLOW, 19HP-IO DISCHARGE FLOW/
DATA (PARAM(I)*I»67*2001/
118HP-7 DISCHARGE FLOW.16HT-2 SLURRY LEVEL,16HR-1 SLURRY LEVEL*
22DHPUHF P-l DISCH »»EJ?,16MK2 SUPPLY TO R-l,16HJ-l VACUUM PAN A*
316HS-1 VACUUM PAN B.18HRMAPO EX. MONITOR*20HLEACH SL TEMP TO T-3.
413HT-4 TANK TEHP.ISHV-I TANK TEMP,ISHT-V H2o IN TEMP*
"519HT-IO FLUSH H20 TE*P»14HP-1 OISCH TENP/26HS1 INLET TEMP SLURRY.
6 16HT-4 H20 OUT TEM»,12*1H ,
315HP-16 FLOW ALARM,15HN2 TO T-l .1SHFEED TANK T-l *
416HA.W." DELIVERY HI.16HA.W. DELIVERY LOVltHT-2 HIGH LVL,
511HT-2 LO LVL ,13HR-1 HI HI LVL»11HR-1 HI LVL ,11HR-1 LO LVL *
613HR-1 LO LO LVL,19HR-1 HI PRESSURE,18HR-1 NIX MOTORS OFF*
TlIWFl'TAUK LO LVL .lflHT-5 HI LVL ~,18HT-« HI LV'L' ~»
61BHK-1 VACUUM OFF ,18HOXY SUPPLY LO LVL ,IBHINST. AIR LO LVL *
V19HSTEAM SUPPLY LO LVL»19HN? PURGE LO LVL.18HN2 MANIFOLD LO LVL*
• IIBHT=I0'WTCT LO LVL * 18HT-6 HI LVL *lflHR-2 W LO LVL ,
220«1H ,20HPUNP P-7 OISCH P«?SS,16HR-2 LIQUID LEVEL*14*1H *
319HXDUCER P.S. MONITOR/
,8HTE-20
,8HTE-56
*8HFE-60
»8HTE-5*
,8HTE-200
,BHAE-171
lbHTE-53
26HTE-199
JBKAT^ITl
*8HPT-150
58HFE-87
6BHPT-5¥
78HTE-32
88HU-
•88HFST-"2Tr"» BHPS L-M1
,«HT5-95
,8HFE-31
.BHPT-28
,BHTE-201
•BHFE-8*
*8HFE-158
,8HTE-203
,6HTE-21 ,BHTE-52
•BHTE-173
,8HFE-61
.BHTT-173
.BHFE-65
•8HFE-101
,8HPT-250
•8HTE-195
,BHIfT-I72
*8HFE-86
,8HPT-26
,8H
*8HTE-28
*8HWSH-9 .BflySL-9
98HLSL-26 ,8HLSHH-5* ,BHLSHL-5BA,8HLSHL-588,8HLSL-59
16HH* TO M8*8HLSL-37 ,8HLSH-86 ,8HLSH-91 ,8H
,BHLSW-26
•6HPSH-151
•BHPSL-163
.8KPSL-165 ,!H"5L-16B *8HP51-I69 ,BHLSL-175 ,eH!SH-120
36HLSHL-9S , 10*1H ,«HI»T-100 .BHPT-95 ,6«1H /
DATA ICH/0,I,2* 3,«,5,6.7*8*0,10*11*12*13*14*IS*16*17,18,19,20,21,
1 22,23,24,25,26,27,28.29,30,31,32,33,34,35,3673T,3B»39,40*
DATA IACH/55,56,57,58i50,60,61,62*63.64*65,66,67,68,69,70,71,72,
7" 73*74,75.76,77,7^.707
EQUIVALENCE (PDATA,P).(»n*T»,IPDI
RE1IHD 5
REWIND 6
Appendix A-2. (Continued)
-------
_ t"0
00 59
59 Pm—0.0
C READ HEADING
READt 6*1000 1
1000 FORMAT 17*101
IP-0
-------- C1LT KOTIHE
C READ NIN,*AX TIHES. 1IN TINE INTERVAL* CHANNELS
C
--- 52 TFTTAW.NEiO) CO TO 203 -- -
60 READU) N,(OORIN(I)»I-1,N)
IF(EOF»M 160(80
1060 FOftnAT(F3.0flX»3F2.0)
85 IFJTT*T.IT.TI 11)60 TH 60
IF(T«i).6T.T(2)) 6H TO ISO
IF(L.EO.O) 60 TO 90
----- TTTnTVT-TIHEClM.lT.Tm) On TO 60
90 L-U1
HEAD3-OORINU)
— --------- rimrrr-TT*) — ------
IS1G-0
00 100 I«3»N
--------- DECUIHTTOflUJOtDORTNm) ALARM, ICHAN. SI6TJ»DATA» IEXP
1100 FORHAT(R1»I2»R1»F5.0,ID
91 DO 92 J-l.NPG
------ rFrrcH*n;ro,HowcH(jn GU TO 93 "• ~
92 CONTINUE
GO TO 100
0.90.0R. ICH4N.E0.91.DR.ICHAN.E0.99)
1 GO TO 94
C ALARM CHANNEL - IG1DRF IF BLANK
----- ITUCUWK.EOYSYMBaLm) 5U TT 100
00 110 K-1,5
IKALARH.EQ.SYKBOLtKH AOUT«ALNPRT(K)
~ "TTO "CUNTTHOT
C STORE SYMBOL IN 3 CM»8»CTPR«! OF MORO
JUORO*( J-l»/3»l
------- JCHAK«HODt(J-ll>3l»l
GO TO <120»135»130>.JCHA»
Appendix A-2. (Continued)
-------
120 ENCODe<10»1200.PDATAUW5RD.L» AOUT,PDATA< JMORD»L I
60 TO 96
125 tNCOOEUO,1250.PDATA{JW1l»D.LH PDATAU«ORD,L), AOUTf POATAUMORO.LI
GO TO 96
130 ENCOD£tlO,1300,»OATA)
IF(S16N.EO. MINUS) DATA—DATA
PDATAU»L)«DATA
96 ISIG-ISIG*!
IDO COHTINlrt
IF(ISIG.EO.O) L-L-1
GO TO 60
" 180 IFlTENO.EO.il GO TO 190
IFU.GT.O) CALL OUT
IF(LASTCH.GE.NCHAN) GO TH
T" NETtT'SET OF 12
163 ITEMP-LASTCH»12
IThflP-HINOUTEHP.NCHAM!
LASTCH-ITEHP
00 184 I-l.NPG
NDUCH(I)-NAHCH«LASTCH-Ni»S + I)
181 REWIND •>
IFISKIP.LF.OI GO TH 62
- ~DTJ 1F2 1-1»SKIP
182 REAOm
GO TO 62
----- STT UP FOR ALARM CHANNELS - ? GROUPS OF 3 CHAR/KORD
165 IEND-1
NPG-NALCH
DIT 187 I-1»HPG
187 NOUCH(I)>IACH(I)
00 188 I«1»NAXP
IBB rPDTTT-AlHPRT«6)
GO TO 181
190 CALL OUT2
60 TO 6?
Appendix A-2. (Continued)
-------
r
205 TIHN-0.
00 206 1-1.12
— zw DATRrir-v;
210 READ(t) N»(DORIN(It»T*l»N)
IF(EOFf4) 180*220
" 220 TJECOOEf 16.1080, DORIN(2»)
IFUUl.LT.TUM GO TO 210
IFniO.6T.TI2l) C«) TO ?»0
IFU.iO.O) GO TO 249
225 IFHTU)-TIHEL).GT.T(3M GO TO 24,0
226 1516-0
DO 235 I-3»IMAX
DTCDBiriO,1100.00RTM(T)) ICM*M, SIGN, OAT**I¥XF
IF(1CHAN.E0.90.0R.ICHAN.PQ.9D GO TO 229
IFUCHAN.EQ.O.OR.ICHAN.GT.mCH) GO TO 235
J-I.NPG
IFdCHAN.EQ.HOMCHlin r.O TO 232
_. 230 CONTINUE
00 CO TO 215
232 OATA-0*TA*10.**C-IPXP»
IFISIGN.EQ. MINUS) DATA—DATA
- ' PDATA(J»L)-PDATA(J.L)«DATI
DATN( J)«DATN( J)*l.
ISI6-ISI6*!
235 HmTTNUt
IF(ISIG.EO.O) GO TO ?10
TI«6
-------
HEA03-OORIN(U
GO TO ??8
muHN.EO.o.) GO TI
TIN62 CONTINUE
00 TO 181T
Z55 L-L-1
GO TO 160
END
C
C
SUBROUT1NF ROTIHE
• CO«nON/A/OORIN(113).t>DATi( l?.fOO),TIMEl900),NOCHAN,
? N*HCM(100).»JnwCM,lAVG.
3 TIMN»OATN.TAM100)»U"4ITS«100}»HeADK7»»HfcAD2m
.TACH(32)»ItNO,NALCH»HtA03
~INTE"GE'ir"3TKNf RUNrDHRINt^KI0 " —• -
KbAL H
-lEND-'O"--
ACCtPKf.) (
-------
RETURN
57 DISPLAY *NO. OF CHANNELS RFOUESTED-Ol ERROR*
58 STOP
bND
... _ ....
SUBROUTINE OUT
' TOHHON/A/DORlN<113>»»DATA(12,«00».TlHeUOO)»NOCHAN,
1 0< <•).H< <. ).*(*>.<:(* I, T«,).NHAX,HINUS.L»MAXP» IP, ICH(100»»
2 NAHCmiOO)»MOWCH<32l»NCHAN»NP6»LASTCH»IALCH,SKIP, IAVS»
3 TIHN,DATN<12),PA.TA6»100)»UNlTS<100),N6A01<7),HEAD2m
4 ,ALARM»SYHBOL<6),ALHP»T(6),IACH<32),IENO»NALCH,HEAD3
DIMENSION FORHOUT(lM»FnRN(4»FTAG<12)»IT(6)»P(9600>
DATA FORROUT/22Hm.I3,lHi,2tl,lHi,2Il/,FORMOUT(l6>/lH>/,
1 BLANK/IOH /,FORM/10H.F7.0.1X ,10H,F8.1 ,
2 10H»F6.? .10H.F8.3 /
(PDATA.P)
IF(IP.NE.O) 60 TO 409
~ WITT HFADF.R PAGES
IP-1
WRITEJ5,10101 HEA03.0IU
Off TO 1-1,30
J-ICH(I)
1F((I+30).GT.NQCHAN) 61 TO 68
K-ICH(I*30)
HRITEC5.1020) J»PARA1(l»J»l)»PARAH<2,J»l)»TAGU + l>»UNITSU + l»»
1 K,PA»»1(l.K»l),PARAH(2.K«'l),TAC(K»l)»UNITS{K*l»
GO TO 70
68 WRITE (5» 1025» J*PAR A«^C 1, J» 1» . PARAIH 2. J*1)»TA6( J*l >>UNITS U* 1)
70 CONTINUE
WRITfc(5»10<.0> HEAD3»D(lt
00 480 I-l.NALCH
J-UCHtll
KRITE(5»1020) J»PARAM
CONTINUE
1010 FORHATUH1»*T)X,«RUN ». AID, 5Xt »DAY », F3.0//2X, »CHANNEL PARAMETER*.
1 12X»*TAG*>7X,*UNTTS«»14Y,*CHANNEL PARAMETER*, 12X,*TAG«»7X,
2 *UNITS*I
TD20 fURnrrt6Tt»I?.2X,2A10tlXiAS,?X,A10,7X,6X,IZ»2X,2AIO»1X»A8»2X»A10)
1025 FORHAT(6X,I2»2X,2A10.1X,A8,2X,AIO)
Appendix A-2. (Continued)
-------
1030 FORHAT BLANK
DO 450 J"1,NPG
I-NO*CHIJ1*1
----- IRITEO.m 60 TO 435
IFII.E0.92I 60 TO 430
1HI.E0.100) GO TO 440
--------- CD TO IV4T)» 430»430f4)0>4)0. 430*430(430* 430»43D»430»430. 430t 430»
1 425,430,430. 455, 435,425, 430» 435, VDT TB1TE(5.?0101 DHRIN( 1) /TNOVCHUI , J-1.NP6)
t.RITE(5,2020) IFTAG» J). J-l.NPG)
452 X*TINE(I)
IT
-------
IT<9)«0
TYlHP • I T ( 3f /TO
lTU)-NODUTm,10l
ITOI-ITEKP
IT(6)-«OD(IT{5)»10)
IU5J-ITEHP
WKITE<5,FORHOUT» — 0.0
RETURN
ZOOO FORHAT(1H1,12X,13H»VER*GFD DATA/13X* 1Z (8H CHANNEL)/
1 5H RUN , A10»12(3X,T?,3X»
70X0 TDRKITT1H1»12X»12(RM CHANNED/5H RUN , A10» 12« 3X, 12, 3X) )
2020 FORHATI14H DAY TI«*F >1?A4)
END
~C " "
c
ro C
1X1 ------- SOBTttJUTINE OUT2
COMMON/ A/DOR IN( 1131 >PO ATA (l?iROO I >TINE( 8001 »NOCHAN»
1 DU),HU)t*(O,Sm.Tm,N«AX,HINUSf L.HAXP,IP»ICH(100),
2 -------- HAHCH(I001»»nwCH(121,NCWANfNPGVLA3TCH,IALCH»SlfI1»»lAV6.
3 TlHN»DATN(12),PARAm?, 100» ,TAG( 100),UN1TSI 100)»HEAD1( 7>»HEAD2( 7)
»IENDfNALCH»HEA03
IQUIVALENCE (PDATA.P)
LCOUNT-36
DO 560 I-1»L
1HLCOUNT.LT.38) GO TD
TRwrTfrnniic - trew PACE
LCOUNT-O
»R1TE( 5*3010) HEA03,(N1WCH»J),J.1,NPG)
WRITE 15. 3020)
S!>2 X-TIHE(I)
1Y»INT(X)
Appendix A-2. (Continued)
-------
V-IV
ITt&)- GO Tn 555
ITI5I-0
555 ITEHP-ITI3I/10
' JTU)-MOO(IT(3),10»
ITm«ITEHP
ITEMP-ITC51/10
IT(6)-NOOIIT(5)»10)
IT(5»-ITE*P
WRITE(5*30301 (IT«I»K-1,6)t(PQATA(J,II,J-1,NP)
ro LCOUNT-LCOUKT*!
w 560 CONTINUE
L«0
-- DO 570 I-1»HAXP
570 PCIl—0.0
RETURN
TDlO'FDRFATriHl. 15X, 1<.H4L»9H CH&NNFLS/5H RUN >AlO»3ai3)
30ZO FORHATI10H DAY
3030 FORMAT(I*,I3»lh
Appendix A-2. (Continued)
-------
Sample Output
ISJ
RUN
DAY
1C
10
10
10
10
10
10
10
10
10
It
10
10
Cl
03-03-00
TINE U
5 1 X X I Od
9 f 1 4 1 00
5I17IOC
5120100
5123100
5126)00
9129100
5«32«00
5135100
9136100
5I4HOO
5(44100
5«47i Ow
10 5150100
10 5I53UC
10 5156100
10 5159136
10 6>02>00
10 6I09UO
lb
10
10
10
1C
10
10
10
10
1C
10
10
10
10
10
10
10
10
10
6108100
6I1HOO
6114100
" 6 1 19 « JO
61241 JO
6I29IJU
6134100
6139100
614410k
6149100
6i54>00
6 1591 DO
7104100
7I09IOU
7U4IOO
7U9«uO
7i24iOu
7I29IOC
7114100
MANNEL CHANNEL
0 1
JP-170 TE-19
4.999 140.2
4.999
4.999
4,999
4.99*9
4.999
4.999
4.999
4.999
4.999
4.99
T«=-20
119.4
138.8
137. S
136.9
136.1
135.7
135.1
135.4
134.6
114, ?
" "l1>. 7
11?. 1
131.6
111.0
no.;
1*9.9
1*0.?
12B.O
1*9.1
1*9.1
1*7.6
1*7.?
177.'
l?5. °
T ? 5 . 1
1*5.1
124.6
173.0
J 7? . 4
12*. P
1 ? ? . 1
1?1.7
121.0
120.1
119.1
11°. 0
11 *•"
" ~ i i • . ?
7
TE-?1
11?. 3
112.7
1?».0
111.3.
1*0.7
1*0.0
12°. 2
i » p • i
1*7.6
1*7.0
I»6«*
126.1
1»f .5
l*r.l
1*4.6
1*4.3
I'l.O
1*3.?
1*^.0
1??.7
1??.1
1*1.9
1*1.4
1 "* P • O
^ ^ P • ^
110.6
110.1
IIP. 5
1 ! f . *
117. d
1 ' 7.0
116.5
1160
m.5
11 ^.^
114.4
!13.o
1 1 1 . ft
4
Tr-52
209.3
209.8
211.9
210.3
'12.2
712.3
*li. e
'11.6
211.4
212.3
'09.5
21.1.1
711.5
212.7
212.0
213.7
?li,2
'11.2
211.9
?12.o
?07.f>
709.7
'10.6
'UV.5
7 10. 4
210.7
209.5
?09.4
'07.6
'OB. 2
209.6
?10.0
?0b.9
208.6
206.6
»07.3
'03.9
?07.1
.CHANNEL
5
TE-53
204.6
204.0
203.6
203.6
2C3.4
203.3
203.7
203.4
203.3
202. 5
20i.3
aoz.c
ZC2.O
20*. b
202.2
202.1
20i.V
e01.<*
20C.4
201.4
2J1.O
20 A. 0
200.7
cwC.<»
144.1.
199. b
199.5
19V. e.
19t. 9
198.7
19t.4
196.1
1V7.4
197.7
196. b
147.0
196. t
196.6
CHANNEL
6
TE-54
207.6
207.3
207.1
206.6
206.1
205.6
206.1
205.3
205.0
205.4
204.6
204.6
204.0
203.6
203.5
203.3
203.1
202.6
202.7
201.9
202. i
202.3
202.0
201.7
2Cv.?
201.0
200.1
199.6
199.4
194.2
194.3
199.0
196.7
197.4
197.6
197.7
197.5
196.6
CHANNEL
7
TE-55
209.4
209.2
206.7
206.1
207.6
2C7.5
207.1
207.0
2C6.5
206.2
206.6
206.2
205.5
2C5.3
2C5.S
204.9
204.4
204.2
214.0
203.6
214.0
213.1
2C2.7
20t«9
2L2.3
201.4
2C1.J
2C0.7
21C.2
149.9
149.5
149.3
199.4
1V9.0
198. o
14f. 1
1VS.1
197.6
CHANNEL
8
TE-56
207.5
207.6
207. »
206.9
207.3
2wb.5
236.9
206.5
206.4
205.7
205.4
205.2
«:05. a
2w4.7
205.0
204.7
214. i
2J3.9
204.0
203.4
iw3.6
2o3.4
202. 6
202.2
«;C2. i
2(J*.4
2C1.9
^01.2
2bC .4
2CU. 5
20C.2
1^9.4
199.1
1V9..:
19d.3
Ivo.u
1V7.0
l<97.d
CHANJi£L- CMANM1L. £HANH£L
9
TE-173
55,3
55.2
55.3
55.2
55.2
55.1
55,1
55.0
59. u
55. U
55.0
55.2
55.2
55.2
55.3
55,4
55.6
65.7
55.5
55.6
55.6
55.7
55. V
56.0
5b.i
56.1
56.2
56.2
56.2
96.4
56.5
56.7
56.6
56. V
57. C
56.9
5fc.<*
56. 6
10
TE-146
54»V
55.0
54.6
55,1
59.1
55.1
95. A
54.5
55.0
55. 1
54.4
54.5
55.0
54.V
54.4
54.5
55.1
54.9
54.9
94.9
54.9
55.0
54.6
95.1
55. ^
59.3
55.3
55.3
59.3
55.5
59.5
59.1
= 5.7
55.3
95.6
55.6
»9.9
55.7
11
TE-199
57.1
56.7
59.0
.... 57.4
56.6
59.4
59.5
56.0
56.9
59.5
57.9
5B.6
57.4
56.0
56.2
99.6
56.0
56.3
56.4
57.8
55.7
96.3
56.4
96.5
56.2
96.7
55.7
>5.6
55.6
95.7
:>5. 9
56.4
s». b
35.9
5S.t>
75.6
96. <.
55.7
Appendix A-2. (Continued)
-------
PROGRAM DORpLOTtiN»uT»auTPUT»TAPEi«iNPUTfTAPE2«ouTPUT»TAPE*»
.........
c
C WRITTEN 8/19/77 O^BBIF MOPP 247360
~t PLOTS UP TO a CHANNELS PFR PAGE vs. Tint
C Tm«NIN,mi-HAX»T(3J-*IN TINE INTERVAL ITAPE6)
C TCI) IS 0 TIME, PLOT TINES ARE IN HRS*FRAC OF NRS
~C ------ TAPE* IS OUTPUT FROM DORIC 'ROGRAN (CONVERTED DATALOGGER TAPE)
C
COHHON/ A/DOR IN< 1131, ODATU800, 8), TIME (800),
I DU),Hm,"(O,S(O,m),NHAX,MlNUS*l»«AXP,XLN6TH,
2 NANCH(8)tNCHAN»rMIHtYINCR>YNAX»IALCH»SKIP»DAY»XNOVE*
3 TITlE(3),YTITLe<3),X"IN,XINCft
INTEGER SIGN, RUN. DO»IN, SKIP, TITLE
REAL N
DATA NNAX/102/jMINU*/lR-/>NAKP/6*00/» IALCH/48/
..... " DATA TITLE /5H DAY.ilH RUN/
C
REWIND <•
~" ~ RfKlND 6
REWIND SO
ACCEPK6) XLNGTH
— XHOVE-XLN6TH4-1.35
CALL LQOM50)
CALL RDTIHE
t ------ READ HIN,BAX TINES* HIM TI««F INTERVAL
C
60 READU) N,(DORIN{I),I-1,N)
IFIEOF,*) 180»80
80 DECODE (10»1080«DORIN( 2» DJ «») , H(^i »,M ( *) , S ( <. )
1080 FORHAT(F3.0»1X,3F2.0)
Tr*T-2*.*Dl*l*H(*)*«(*)/60.4-S( 41/3600.
85 IF(TU).LT.T(1))GO TO 60
IFU(4).GT.T(2I) GO TG 180
TRL.EO.O) GO TO 90
1F((TU)-DAY-TINE(LM.LT.T(3)1 GO TO 60
90 l-Ul
TITII til -DOR IN (1)
TINE(L}-T(4}-DAY
ISI6-0
IHAX>HINO(N,NNAX)
DO 100 1-3,
Appendix A-3. Computer Program for Plotting Doric Data.
25
-------
DECODE(10,1100*DORINCIM ICHAN, SIGN, DATA, IfcXP
1100 FORHAT(1X,I2.R1,E5.0.I1)
IF(ICHAN.GT.IALCH) Gt» TH 100
91 DO V2 J«1»NCHAN
IFdCHAN.EO.NAHCHUU GT TT 9<.
92 CONTINUF
GU TO 100
9* DATA»DATA*10.**(-ICXP)
IF(SIGN.EQ.MINUS) DATA-0.
IF(UATA.LT.YMIN)
IF(DATA.GT.YIAX)
ISIt-ISIG*!
100 CONTINUF
IH1SIG.LT.NCHAN) L-L-1
GO TO 60
180 IHL.GT.O) CALL PLT
CALL RDTIHF
GO TO 60
16& L-L-1
GO TO 60
END
C
C
SUBROUTINE RDTIME
COMMON/A/DORIN(113)t«>nATA{qoO,8)»TIMJ{800)»
1 0 (
-------
DO 50 1-1,3
SO T/60.+Sm/3600.
XHIN-T( 1)-DAY
XINCR-1.
ACCEPK6) SKIP,NCHAM
ACCEPTC6) fNAMCH(I),I-l»NCH4N)
L-0
DO 59 I-1,MAXP
59 P(D— 0.0
REWIND A
IF(SKIP.LF.O) RETURN
DO 55 I«1,SKIP
S5 REAUC.)
RETURN
58 CALL PLOT<0.,0.,999|
STOP
END
C
C
C PLOT
SUBkOUTINF
2
3
INTEGcR S IGN P RUN, 019 TN,«5»(t», TITLE
REAL M
300 TIMt(L*l)-XMIN
TIHE(L*2)-XINCR
DO 310 I-1,NCHAN
PDATA(L+2,I)-YINCP
310 CONTINUE
CALL , 12, XLNGH, 0. , TI ME ( L* 1) , TI HE ( L *2 ) )
CALL AXIS(0,0,YTITLE,30,10.,00.,PDATA(L+l,l)»PDATA(L*2t 1))
ENCODE (10, 3000, TITLF( 1U TTTLP ( 1) ,D( 1 )
3000 FORHAT(A7,F3.0)
CALL SYHBOL(0.,10.,.14,TITLC»0.,30)
DO 340 I-1,NCHAN
CALL LINE(TIHEfPDATAU,n,L«l»20»l)
CONTINUE
CALL PLOT
-------
o
o
DRY
1.0
Sample Output
RUN 03-03-00
Continued on following
-------
Sample Output
TIME. ..I HOURS)
-------
Sample Output
30
-------
PROGRAM DDRAVG(INPUT*OUTPUT,TAPE1"INPUT»TAPE2«OUTPUT»TAPE**
c
c
c
c
c
WRITTEN 1/5/78 DEBBIE HOPP 3*7360
GETS AVERAGES* STD.DEV. FOR ANY CHANNELS
T(1)-MIN*T(2).MAX,T(3)-MIN TIME INTERVAL (TAPE6)
TAPE* IS OUTPUT FROM DORIC PROGRAM (CONVERTED DATALOGGER
TAPE)
c
COMMON/A/DORIN( 113) tPDATA( 100) *PAVG( 100)* PSQ( 100)* SIGMA (100)*
1 _ PLIM(IOO), __ ___
I D(*)*H(*)*«(*)*S(*)»T(*)*NMAX* MINUS* L*NAXP*XLNGTH»
2 NAMCH(100),NCHAM,YMIN,YINCR*YMAX*IALCH*SKIP*DAY*XMOVE*
3 ________ TITLE(3)»YTITLE(3)»X*IN*XINCR _
INTEGER 5IGN*RUN*DnRIN,5KI°»TITLE
REAL M
DATA NM AX/102/* MINUS /!*-/» I ALCri/*8/*MAXP/100/ _
DATA TITLE/5H DAY,8H RUN/
DATA PL IM/ 1000. *8*20.» 2*1000. » 2*1.* 2*1000.* 30. ***1000.* 50, *
1 _ 2*1000., ?0.,?., 5*1000.* 3*2. *67*1000./ __
REWIND *
REMIND 6
WRITE(5*1000)
1000 FORMATdHl, 3X,*DORIC AVERAGES AND STQ, DEVIATIONS*)
CALL KUIlP't
C READ MIN*MAX TIMES* MIN TIM? INTERVAL
C
bU KAU
1UOU (-UKHAI I
T(*)«2*
65 IF(T(*).LT.T(1))GO TD 60
IMI I*»I «GT • I I 21 I G'J TO ISO
IF(L.EO.O) GO TO 90
IFC(T(*)-DAY-TIME).LT.T<3)) GO TO 60
TITLE(3)-DORIN(1)
TIM£-T(*)-DAY
IMAX"MINO(N*NMAX)
Appendix A-4. Computer Program for Computing Averages and Standard
Deviations of Doric Data Channels
31
-------
DO 100 I«3»IHAX
DECODE(10,1100,DORTN(I)) ICHAN,SIGN*DATA,IEXP
1100 FORMAT(lX»I2fRl,F5.0»Il)
IF(ICHAN.EQ»90.0R.ICHAN.EQ*91.0R.ICHAN.EQ.99) GO TO 91
- - IF(ICHAN.6T.ULCH» 61 TO 100 -
91 00 92 J-1,NCHAN
IFdCHAN.EO.NAMCH(J) ) GO TO 94
- 92 CONTINUE -
GO TO 100
IF(SIGN.EQ. MINUS) OATA-0.
IF(L.EQ.l) 60 TO 96
DATA»PDATA( J)
96 PDATA( JI-DATA
PAVG(J)»PAVG< J)+DATA
PSQ(J)»PSO(J)*DATA**2
100 CONTINUE
GO TO 60
190 IP(L.GT.O) CALL AV6
CALL RDTIME
GO TO 60
GO TO 60
tND
SUBROUTINE ROTIHE
PLIM(IOO),
Z - NAHCHUUO)>NCHAN,YMIN,YINCR>YHAX»IALCH»SKIP»DAY>XHUVE»
3 TITLE(3)»YTITLe(3)>XMIM>XINCR
INTEGER SIGN»RUN>Dr3RIN»SKIP»TITLE __
KbAL fl --
ACC£PT(6) ( (D(I),H(I)»»1(I),S(I)),I-lf 3)
IF(EOF,6)
45 DAT«Z4«*Uf1 I
00 50 1*1,3
50 T(I)-24,*D(I)»HCII*H(I)/60.»S(I)/3600.
AlCfcPl(6) SKiPjNCHAN
ACCEPK6I CNAHCH(I),I-1,NCHAN)
Appendix A-4. (Continued)
32
-------
L-0
PSOm-0.
IHSKIP.LE.O!
DO 55 I-1,S*I
RtAO(<»)
5b STOP
tNO
C
C
c CALCULATE AVERAGES, sTo.oev.t PRINT
jUaftOUTINE AVG
l;Irtfc^SIC^ TT(8)
COMMON/ A/DOR IN(113),°OATA( 100), PA VG( 100), PSO( 100) *SIGMA( 100),
1 PLIM(100)»
2 N
3 TITLF(3),YTITLC(3)»XMIN,XHCR
RtAL ^
DJ 310 J-1,NCHAN
HAVG< J)-PAVG( J)/L
310 SIGMA( J)«SORT(ABS(°SOf J
Uu 32U I»l»2
320 IT(J + 3)
wkllc(5
1 I-5»»>
WRITE(5,1020)
uO 33J J-1»NCHAN
«RlTt(5,1030) NAHCH(J),«>AV';( J),S1GMA( J)
330 CONTINUE
£ ETURN
lOlo ^ CkMATl //<»X»*RUN *. A lO/
-------
Sample Output
DORIC AVERAGES AND STD. DEVIATIONS
RUN 03-04-00
DAY 11 7:31:00 TO DAY 11 13:00:00
CHANNEL AVERAGE 8TD.DEV.
1 169.0 6.06
2 205.6- 3.69
3 214.0 .95
4 235.7 13.63
5 234.1 5.67
6 234.5 4.80
7 231.6 3.50
8 230.1 2.12
9 64.9 2.43
10 60.3 1.56
11 62.3 .67
12 65.1 .18
15 145.9 1.94
20 279.9 23.97
23 53.1 1.45
24 1.7 .45
30 1.3 .13
31 1.1 .21
32 1.9 .20
Appendix A-4. (Continued)
34
-------
c
c
c
c
c
PROGRAM RTUBAH INPUT, OUTPUT. TAPE1-INPUT,TAPE2«OUTPUT» TAPE** TAPES*
1 TAPEM
WRITTEN 12/1/77 DEBBIE HOP* 2*7360 REVISED 1/23/78
MEYERS PROCESS MASS BALANCES ..... '
USES CONVERTED DATALOGGER TAPE AS INPUT (TAPE*)
UMAX-LAST CHANNEL NEEDEDC 3*)+3
(.GHHON/AA/DORlN(lO?)»CHANtlOO),OLD(100),DC*),H(*),MU)>S<*»,m)>
MINUS»IFmT,N,NCeLL,PC02»SN»ISTART»IT<8)»IALCH»IEND,
2
3
INTEGER
REAL N
DATA
DATA
FTIM(100),NF,CLTH(?,100),IBSP
SIGN, RUN, DORIN
2
3
IALCHM8/,NMAX/51/,«imj*/lR-/
CL IM/ 120., 220., 120., ?20., 120., 220., 170., 280., 170. ,280.,
170..280.,170..2«0.» 170.,280.,0.,0.,*0.»100.,8*0.,
-9999. ,9999.. -9999., 9999. ,-9999., 9999. »0.» 100. i
«*0,,15.,100.»?*0.»15.»100.f 20*0.,0.,30.,0.»38.,
16*0., 32., 212., «.*<>., HO., 2 70. ,32., 212. /
OJ
C
C
c
c
REMIND *
REWIND 5
REWIND 6
IBSP-0
DISPLAY *ENTPR TYP? 5F RUN*
DITP"LAY *1-02 BAL, ?-T-2 BALt
ACCEPT IRUN
GO TO (10.20,30), IRUN
10 CAL1 02 BAL
STOP
20 CALL T2BAL
STOP
30 CALL R1BAL
STOP
END
3-R-l BAL*
SUBROUTINF 02BAL
02 BALANCE (IN TO R-l. TJT TF V-l)
TAPE6 HAS NO. CELLS TS R-l,"? »URITY, STARTING AND ENDING TIMES
COHHON/AA/DORINU02).CHAMU001,OLD(100-J,Dl«ll»Hl<.),H(<.J,Sm,T(<.),
1 MINUS* IFI»ST,N,NC?LL,PC02fSN, ISTART, IT(8J,IALCH, IEND*
Appendix A-5. Computer Program for T-2 and R-l Material Balances.
-------
2 _ RHOR»RHOS»NNAX»AR»TFER»TR*St»AS»TFES»TS»>»PL»iUm
3 FTTH! WoT.fi F,ClT"F2YiOOTriBSP
DIMENSION ISTCH(ZO)
INTEGER SIGN, RUN, DOB IN
DATA NS/10/,ISTCHM,5,6»7,e,10,18»21,23,35/
WRITE (5* 1000 1
~TOW"FURHAT(lRlfax.*RTU «XY66N BALANCE*)
55 ACCEPT (6) NCELL.PC02
IF«tOF.6) 199*58
78T CttVKDI TOE
SN-NCELL
ISTART-8-NCELL+1
" ~ NR-NV-0
RIN-VOUT-0.
R*19.
------- FL-Z.95
C 6ET VOL OF ONE CELL AT WEIR HFIGHT
VOL1-CVOL(25.)
60 CALL RDTAPE
IF(IENO.EO.l) GO TH 190
C
C
co C CHECK IF P,T WITHIN LIMTTS (IF NOT, USE PREV.» IF NO PREV.t DISCARD)
°> DO 125 I«1»NS
------- K-ISTCHIT)
IF(K.LT.ISTART) 60 TQ l?5
IF(CHAN(K).6E.CLIH(1»K).AMD.CHAN1K).LE.CLIN(2»K)> 60 TO 125
----- TFITFIirST.^Q.OJ GO T3 60
CHAN(K)-OLD(K)
125 CONTINUE
~C - —
C CALCULATE 02 IN, OUT (L*AV? HUT FIRST TIME PERIOD)
IFCIFIRST.EO.O) GO T1 !<.?
----- TFTClrtHTIJT.LE.O.) GO TO 130
RIN«RIN+CHAN(15)*PCn2/100.
130 NR-NR*!
•~ ----- TFTCHOTT15T.LE.O.) RT TP IfO
VOUT«VOUT+CMAN(16I*CH»M(19)/100.*(CHAN(23)*1<..7-PH20(CHAN(10) ))
1099 FORHATC*OATE-*»A10.5X»A10.5X.F14.8,5X,E1*.8)
Appendix A-5. (Continued)
-------
60 TO
C CALCULATE ACCUMULATION IF FIRST TIME
142 VOL«CVOL(CHAN(35)>
rflCHW135T.6E.^5.r60 TO 1*3 "•
c SLURRY LONER THAN WEIR
VOL"VOL+*.*VOL1
-CD TO 1** .....
1*3 VOL-5.*VOL
1** RACC1-02ACCUOL)
STORE CHANNEL INFO AND
CALL STORECNS»ISTCM)
----- GO TO 60
C
C FINISHED THIS TINE SEGMENT
CALCULATE BALANCE
IFtNR.EO.O.OR.NV.EO.O) 60 TO 195
TDECT*TCSJ-TC11
RIN«32.*RIN*TOELT/*»
1030 FORMAT!* 02 FLOW IS ZERO *)
Appendix A-5. (Continued)
-------
199 RETURN
C
C
SUBROUTINE T2BAL
~C~ TAPF~6 HAS AR»TF6R.T«,SS»AS,TFES " ""
C NUMBER IF PI FNTRIF.S FOLLOWING»DAY,HR»MIN,FI16» 17» 18*
C STARTING ANO FNDING TINES.
COMMON/AA/DOR IN( 102). CH4N( 100), OLD< 100), D( 4 ),HU),HU)»SU),!<<,)*
1 MINUS»IFIR«»T,N,NCeLL»PC02,SN,ISTART»IT(8)»IALCH, IENO»
2 PHOR»RHOStNMAX»AR.TFER*TR*SS*AS»TFES»TS»R*FL»RUN,
3 FTIH(100)»MF»CLH«2,100l,rBSP
INTtGtR SIGN,RUN,DORIN
REAL M
DIHENSTDN FI16(100),FT17(100),FI18(100),ISTCH(20)
DATA NS/2/,ISTCH/3,3<./
R-15.
TLST.Tf
WRITE(5,1001)
1001 FORHATIlHl,8X,*T-2 BALANCE*)
w ~ "203 •ACCEPTC61 AR,TFiR,T«,SS,AS.TFFS
00 IF(EOF,6) 299*205
20t> ACCtPT(6) NF
DO 2OT I-1,NF
ACCLPK6) D(3),H(3),H(3).FI16(I),FI17(I),FI18(I)
£0e FTIM( I)«2<,.*0(3)*H(3)*M(3)/60.
RHOTS1 DO. M(( 100. -AR-3.57«*TFF.R )/62. 2*8*AR/113. 966) *(!.*. OOOF*
1 (TR-77.)1*7.*B)
210 CALL ROTIME
N1-N2-N3-NDUT-0
TIN1-TIN2-TIN3-TOUT-0.
J-l
215 CAH RDT1PE
IF(IEND.EO.l) GO TH ?50
C
'C CHETHTTF TTHP. WITHIN LI^IT^
00 218 I-1,NS
K-ISTCH(I)
' IFrCHlHTin.GE.CLI«»(l»KH>IO.CHANtK).LE.Ctim2»Kl) GOTO 2TB
IF(IFIRST.FO.O) GO TO 219
Appendix A-5. (Continued)
-------
CHAM Kl -OLD 5»(FI17(J) + FI18( J))*.139
IF(CHAN(2«).LEtO.) R1 T1
232 NOUT-NOUT*!
GO TO 240
C
t CALCULATE T-2 VOLUMF IF l^T TIME
235 IHCHANf3
-------
TACC2*fZ.*CVQL(14.)«CVm.
GO TO 256
255 TACC2«CVOL(CHAN(34))*RHn$F(**,AS*TFE5*TS)
256 ACC-TACC2-TACC1
llfRGlR-TDUr*ACC-TXMl-TIH2-TIM3
PCfcRR-ERROR*100./ TIN1,TIN2»TIN3,TOUT»ACC»ERROR»PCERR
GO TO "203
260 HRITt(5,1031)
GO TO 203
C ....-..-._.
1011 FORMAT!//4X,*RUN *, A10MX,*DAY *,2F3.0» 21*1*, 211»• * TO DAY *•
1 2F3.0*2(*I*»?I1))
1021 FORMAmX.*COAL IN TO T-2-*,F8.2»* LBS*/
1 ),H( A) ,M(<.),S(*),T«<.),
ISTART,IT(8),IALCH,IEND,
3 FTIN(100)»NF»CLIN(2,100)»IBSP
INTEGER SIGN.RUNfDORIN
RTIUHf
DIMENSION F I67< 100) »FI6«M 100) »FI69< 100) »FI90< 100), F 171(100),
1 ISTCH(20)
R-19.
Appendix A-5. (Continued)
-------
FL-2.95
MftITE(5»100Z)
1002 FORHAK 1H1, 8X»*R-1 BALANCE*)
310 ACCEPT(fe) NCELL,PC"?
" rFCEWVS) 398*315
315 ACCtPT(b) SS»AS»TFeS,S?iAS?.TFES2
ACCEPT(6) H20H,CDH?n,C°«J,C«»C
ACCt?T(6) NF
DO 31fl I-1,NF
ACCtPT(6) 0(3)»H(3l,M(3>,FI67(n,FI68(I)/F169(I),FI90(I),FI7HI)
318 FTlH(I).2<..*0(3)*Hr3)*H(3)/60.
5N-NC6LL
ISTART-9-NCELL
FACTOR-H20M*CPH2i3*lOO./(CI»R*(100.-S2)+CPC*S2»
C GbT VOL OF ONE CELL AT WMP HEIGHT
VOL1-CVOK25.)
320 CALL RDTIHE
N1-N2-N3-0
N01-NJ2-N03-0
RIN1-RIN2.RIN3-0.
R01-R02"R03»RO<.-0.
J-l
322 CALL RDTAPE
IF(ltNO.EO.l) GO TO 350
C CHECK IF P,T WITHIN LIMITS
00 32b I-l.NS
K-ISTCH(I)
IFIK.GT.3.ANO.K.LT.T5TAUT) SO TO 32b
IF(CHANT»C).GE.CLIM(1,K).4NO.CHAN(K).LE.CLIM(2»K)) GO TO 32$
IF(IFIRST.EQ.O) GH TO 32?
CHAN (K) -OLD
-------
IF(CHAN(15).LE.O.) 60 TO 331
RiN3-RIN3+CHAN<15)
331 N3-N3+1
R01-R01*
ND1-N01+1
IF(CHAN(16).LE.O.) GO TO 33?
R02-R02*CHAN(16)*CHANI 1 ) / ( CHAN< 23) * !<•. 7)
332 N02-N02+1
N03-N03+1
GO TO 340
C
C CALCULATF LB. ACCU»«. IF 1ST Tint
33t> VUL-CVOL(CHAN(35»
IF(CHAN(35).GE.?5.) GO TH 337
C SLURRY LOWFR THAN «CIR
GC TO 33P
337 y/OL-VOL*5.
338 OACC1-0?ACC(VOL)
RACC1-VOL*RHOSF(S2.
C STORE CHANNEL INFO AND
3<>0 CALL STORE(N$,ISTCH)
GC Tli 3?2
C
C FINISHED THIS TIME
350 WRITE (5, 10 12) RUN,H( 1) , H( 11 , « TT ( I) , 1-2. 5> » Dt 3) »H( 3) » i ITC I), I»6»9)
C CALCULATF BALANCE
IFlNl.EO.O.OR.N2.EO.O.n«.N3.PO.O.OR.N01.E8.0.0R.N02.EQ.O
1 .OR.N03.FO.O) GH TO 3«>0
rOtLT»T(3)-T(l)
RIN2-RTU2*TDELT/N2
RlN3-RIN3*PC02*32.*TOELT/(3fl7.*loO.*N3)
R01«(R01*FACTOR-RO**4?OH/1000. »*TOELT/N01
R02«RO?*32.*TOFLT/(3^7.*100.*N02)
VOL-CVOL(CHAN(35»
IFTC»ANI35).GE.25.) GO TH
SLURRY LOWER THAN WPIR
Appendix A-5. (Continued)
-------
VOL-VOL+*.*VOU
355 VOL-5.*VOL
357 UACC2-02ACCCVOL)
RACC2-VOl*ftHD$FCS2,AS2.TP?S2,CHAHm)
ACCO-OACC2-OACC1
ACCR-RACC2-RACC1
tRROR«R01+R02*R03*ACCO«-ACC'*-l»tNlHUN2-RIN3
PCERR-f PROR*100./(9IN1*RIN?*RIN3)
hRITE(5,1022) RINltRIN2»Pim»RQl,R02,R03,ACCO»ACCR»ERROR,PCERR
GO TO 310
360 WRITE<5»1032)
GO TO 310
>
1012 FORMATt/MX,*RUN *, AIO/*»»*OAV *, 2F3.0, 2 < *i*. 211) » * TO DAY *»
2F3.0,2(+i*t211))
1022 FORHAmX,*SLURRV
1
2
3
5
6
7
B
9
4Xt*STEAM
TN
IN
4X,*SLURRY
TT
TO
TO
OF
OF
«-!•*,F8,
R-l»*»F8.
2»*
2»*
R-l«
R-l-
R-1-
AX,*STEAM
AX,*02
OUT
OUT
OUT
ACCUNUL.
ACCU1UL.
4X»*GAIN
>F8,
'F6,
iF8,
2,*
2,*
»F6
•Fb.2»*
«F8.2>*
>F7.1)
LBS*/
IBS*/
LBS*/
LBS*/
LiS*/
LBS*/
LBS*/
LBS*/
1032
398
FO*I1AT(*
STOP
END
FLOW IS Ze*9*l
C
C
C
SUBROUTINE ROTIHE
READ BEGIN AND END
COHNON/AA/OORIN(10?)»CMAN(100)fOLD(100)*Dm»H«>)»N(4)»S(4>«m)»
1 MINUS» I FIRST* H,NCPLL,PC02»SN»1START, lTm>IALCH»IfcND»
2 RHOR»RH
3 FTIM(100),MF»CLII'(2»100)»IBSP
INTEGER SIGNtRUN»DimS
RIAL W
300 ACCEPTI6) ((0(I),M(I),«(I),1(I)),1-1,2)
Appendix A-5. (Continued)
-------
1FCEOF,6) 399,305
305 00 308 1-1,2
306 T(I)*2
309 IBSP-1
RETURN
399 STOP
END
C
C
C
C • ••»••••••• ^•-••^•••^••••••••••••» — ^— ^» ^ •••^^••••^^^•••^•••^•••••^^^»
SUBROUTINE ROTAPE
COMMON/ A A/DOR IN (10? ).C"AM( 100), OLD( 100) ,D(<,),H(<,),M(«.),S(<.),T(*)»
1 MINUS*IFIRST,N,NCPLL,PC02,SN,IS TART,IT(8)»IALCH,IEND,
2 RHOR,RHOS,'<«
INTEGER SIGN,RUN*D^»TN
REAL M
IEND-1
65 KEADCi) N.(DORINCI) »I«1*M)
IF(EOF,<>> 105*70
70 DECaDE(10*1070*DORTN(?)) P J 4), H( <,) , H ( A) , S (*.)
1070 FCRKAT
-------
__ --. T0 P
105 00 106 1-1*3,2
J"2»I
iTU)-nm/io.
ITTJ*IT^A HOUR M < II » 1 0. )
lTU+2)-Sm/10.
106 IT(J+3)»AHODCSm»10.)
tfETUKR
END
C
C
SUBROUTINE FUJI
C FIND INDEX FOR CURRFNT TI«F IN FI ARRAYS
COnnON/AA/DORIN(10?)»CHAN(100),OLD(100),DU)»HU>»N(4),SU)fT«>),
1 MINUS,IFTPST,M,MCCU,PC02,SN,ISTART,ITm,lAlCH,ieND,
2 RHOR,RHnS,NMAX,A*,TFER,TR,SS,AS,TFES,TS,R,Fl,RUN,
3 FTIM
— "-IFtJ.tO.NF) GO TO
Jl-J+1
DO 220 JJ-J1.NF
IF(FTINIJJ).GT.T(4M Grt TO
220 CONTINUE
J-NF
GO TO 22*
223 J-JJ-1
22* RETURN
END
C
C
»— - - _ ^m^rn^ ^A^
SUBROUTINE STORE(N^»
C STORc CHANNEL INFO AMD
1 MINUS,IFIRST,N»HCELL,PCQ2,SN,ISTART,IT(8),IALCH,IEND,
2 RHOR,RHOS,NMAX,4e.TFER,TR,SS»AS,TFES,TS,R,FL,RUN,
3 FTIN|100)tMF,CLT"(2»100»,IBSP ~
DIMENSION ISTCHI20)
INTEGtR SIGN,RUN,DOR IN
RE AT. n '
IF(NS.EO.O) GO TO 155
Appendix A-5. (Continued)
-------
DO 150 1«1»NS
J-ISTCHIir
150 OLDUI-CHANU)
155 D<3)"0(*)
S<3>-5<*)
TTST-TTIT
IF(IFIRST.NE.O) RETURN
sm-sm
nn-TU)
RUN-DOR IN (1)
IFIRST-1
RETURN
END
C
C
C
FUNCTION PH20(TF)
TEHP MUST BE B§TWEeN «0-100F, OR 170-280F
DINENSIPN PT4BL(100.2)»FACT1R(2),THIN(2)
DATA FACTDR/1.,2./.THIM/40.»1TO./
DATA(PTABL(I)»I-L»'>1)/
1.1217».1265»,1315..1367,.1<.?0,. I«i75,.1532*.15<)l, .1653».1716,.1761,
2. .18«.9,.1918,.1990,,?06<,,.?!<,!,.2220*.2302,.2386».2«.73,.2563»
3 .2655,.2751».2850».?951,.1056,.316*,.3276,.3390,.3509,.3631,
593*. .868, 7.IB ^,7.510, 7.850,8.202.8.567, 8.9*6.
1 9.3339,9.7*6,10.l(S«,10.C,05,U.056,
2 11.526,12.011,12.512,13.011,13.566,1*.123,1*.696,15.289,15.901,
316.533,17.186, 17.961,19.557,19.275,20.016,20.780,21.567,
* 22.379,23.217,2*.0*0,?*.069, 25.88*,26.827,27.798,28.797,
5 29.825,30.88*,31.973,3?.093.1*.2*5,35.*29, 36.6*6,37.897,
6 79.IB2,*0.502,*l.'<15l!,*3.?52,**.6e2,*6.150,*7.657,*9.203/
Appendix A-5. (Continued)
-------
J-l
IHTF.GE.200. ) J"?
1-(TF-TKIN(J))/FACT1R(J)
FRAC-(TF-TMIN(J)-I*FACTnR(J))/FACTOR(J)
PHZO-PTABK1*1,J)*PBAC*(PTAHL(I*2,J)-PTABL(1+1»J))
KETURN
tNO
C
C
f —••*» — — — • — — — ••• —*^» —— — «•••• •••»••• ••••^^•••^•••^•^^••——»^
FUNCTION RHOSFfSSjASpTFC^TS)
C CALCULATE RHO(S) IN LB/CU.FT
KHOSF-( 100.+SS/(l.-.Ol*SS))/((( 100.-AS-3.578*TFES)/62.2<.8+AS/
1 in. 966)* (1. + .0003*1 TS-77.) )+SS/ ( 8<.*( 1 .-.01*SS) ))
ktTURN
LNO
C
C
C
r —_—»—_»««_____«_»•_____._..»____________.___.____.___.____._.
FUNCTION CVQL(HT)
C CALCULATE CU.FT. 3F LIOUIOOFPTH HT IN.) IN CYL. TANK (RADIUS R IN.,
C LENGTH FL ^T.)
COHflbN/AA/DORINUO?) »CHAN( 100)»QLD(100).0('t)»H(<.),»1«.),S(<»)»T(<.)>
1 MIHUS,IFTQST»N,NCCLL»PC02»SN»ISTART,IT«8),IALCH,I END,
2 BHOR
3 FTIM(
DATA PI/3.1<,16/
IF(HT-R) 270»280,2<»0
270 A-R**2*ACQS((R-HT)/»»-(R-HT)*SORT<2.*R*HT-HT**2)
GO TLI 295
280 A-R**2+PI/?.
bU TO 20b
290 A»R*«2*(PI-ACOS((HT-R)/*})-(R-HT)*SQRT(2.*R*HT-HT**2)
295 CVOL-A/lA
-------
CALC> 02 ACCUH AT R-l IM LB
COMMON/ A A/DORINl 102), CHAN ( 100), OLD( 100) , DU)> H< 4) , M( 4), S ( 4) >T
MINUS>IFIRST»N»NCELL*PC02,SN,ISTART,IT<8)»IALCH,I6ND,
RHOR»RHOS >**lXf AR>TFER, TR> SS» ASy TFES»
> 100)»IBSP
PSIA*CHAN(21)+14.7
TAV6-0.
00 ^10 I»ISTART»8
TAVG-TAVG+CHANd)
TAVG*TAVG/SN
OZACC"( 115.68-VOL)*32. /Iff77*CflTfO 18T^iPSIA-PHZTTffAVG))*520.
/
RETURN
tND
Appendix A-5. (Continued)
-------
Sample Output
R-l BALANCE
RUN 03-0^3-00
DAY 11 7128100 TO DAY
11 10152100
SLURRY IN TO R-l
STEAM IN TO R-l
02 IN TO K-l
SLURRY OUT OF R-l
02 OUT OF R-l
STEAM OUT OF R-l
02 ACCUMUL.
SLURRY ACCUMUL.
GAIN
PERCENT GAIN
2971.22 L8S
736.50 L3S
20.98 L3S
2653.2* LBS
11.76 LBS
.03 LBS
.36 IdS
1.05 LBS
-663.76 LBS
-23.2
T-? P At
DAY 10 17» 10100 Tr> IM ' 1. 1
COAL IN TO T-'« 2- r-?. 1p '.">
STf A" IN: Tf T-?« 11 !?.<•! IB
SLl!«VY "ijf •13'"'r. '^c ' °
on
CAIN
Pf PCPN1
I
10. 1
RUN 03-04-00
DAY 11 11IOKOO TO DAY 11 12J58tOO
SLURRY IN TO R-l- 1502.77 L8S
STEAM
02
IN TO R-l-
IN TO R-l-
SLURRY OUT OF R-l-
02 OUT OF R-l-
STEAM OUT OF R-l-
02 ACCUMUL.-
SLURRY ACCUMUL.-
GAIN •
'PERCENT GAIN
423.55 LBS
11.39 L3S
940.26 LBS
14.59 LBS
.04 LBS
•31 LBS
3.64 L8S
-978. ttd L8S
-50.5
RUN
DAY
PTU
03-03-00
11 7:2«:OC
02 IN TO
02 CUT OF-
ACCUK. IN
GAIN
PERCeNT f-
"-]«
V-l-
"-I-
TH HAY 11
•>'1.?^ LBS
?P.31 L3S
. 71 LBS
-<*.?7 LBS
12:53:00
Appendix A-5. (Continued)
-------
PROGRAHYRTUC INPUT. W>UT»TAPF1. INPUT, TAPJE2-OUTPUT, TAPE 3)
C WRITTEN 11/17/77 D.MQPP (PROM fRhRTUtLVN), WTESTCDSHM
C CALCULATES WPF AND Y FDR N STAGES GIVEN WPO AND Y0»
C WITH OR WITHOUT RFGENfATin* *ITH 02
C INPUT IS TAPP3, NA1FLIST FORMAT ( CHAHGEf~TM?UT~TRMl-ERHINAL )
C
COHNON/»A/N,AL»ARtlOO)»PL»FR»P02,PFCOAL,Y,WP,WPO(5),AMT(lO)»
1 ANAMUO),X,TFe,FE2,F
NAMtLIST/PARAM/N,AL»AR,FL»cR.P02»SP,ft,TFEO,FE20,ACID»CDAL,TF,TAU,F
DATA ANAH/10HWATER . 10HFPSCK , 10HFE < S0<») 1.5» 10HH2SO* »
1 10MPYR1TC .10HSULFUR » 10HFE l»
2
REWIND $
30 KEAD( 3,PARA1)
35 DISPLAY *ENTFR
READd.PARAH)
C
C INITIALIZE PARAHETFQS W(WT IN LBS)» X(La-NOLES)
PFCOAL-CDAL*(1.-WPO(1)/100.)
TFE-TFFO*R/100.
FE2«FE20*R/100.
ta(l*2)-FE2*AWT(2)/&WT(7)
W( l»3)-JTFE-FE2)*AWT(3)/AWTf 7)
W(l,-W
-------
DISPLAY *ENTER 0 IF onMF,l IF NEM CASE*
ACCcPT INF.XT
IFUNEXT.NE.O) GG Tn 35
60 STOP
END
C
C
SUBROUTINE W»STAGE(TT)
C RfcACTS 5 GPOUPS OF COAL F09 TMfclR STATISTICAL
C RESIDENCE TIME < 100 Tr^c TMCBFMENTS) THEN ITERATES
C FOR Y (WITH REGEN IF PO?.GT, 1^-6) . THE iOO
C CCAL FRACTIONS ARE HRO?RF9 AND RtGKOOPtD IN 5 BLOCKS.
C
1 ANAM( 10) »X( 100,5) ,J( 100,5».TK,TF( 100),TAU( 100)>TFE,F£2,F
OIHtNSION WPF(100,5»,01(5)
DATA DX/.01/,NS/100/
C
C CONVERT DEC F TO DCG K
LOUP-0
80 WP-O.
LOOP-LOOP+1
UU 100 J-1.5
Cl«Y**2*WPO(J»*TAU(TT)*l»XRATC( AL»EL»TK)
TOtL10-0.
DO 100 I-1»NS
IF(I.EO.IOO)
TOELTl—ALOGd.-FRAC)
TDELT-(TDELTO*TDELT11/Z.
WPF(I»J)-WPO(J)/(l.+Cl*TnFLT)
FRAC«FRAC*DX
taP-WP*HPF(I, J)
100 TUELTO-TDELT1
WP-WP/500.
C
C CALC. NFV
PYH-ViP/(
DPTH-X( IIf5)-PYH
DFE2H-10.2*DPYM*F
Appendix A-6. (Continued)
-------
F£TOTH-X(II,2)*X{II»3)+OPY'<
IF(P02.GE.l.E-6) GO TO 120
1FCY1.LT.O.) Yl-0.
IF(ABSfy-Yl).LT.l.c-6)
IFILOOP.GT.150)
r«(Y*Yl»/2.
GO TO BO
GO
61 TO 130
l?6
C
C
C
C
C
THE ABOVE CONVERGES Y
AMI OF REACTION IF 02
NEXT FINDS Y IF 0?
IF
IS
NO 02 Ok FINDS
120
OFE2R-PD2*TAUCII)*<(l.-Y»*FeTOTrt)**2/
VOLUM-0.
UCJ IbO I-1»NS
WPOU)«WPO< J)+WPF(T, J)
WPO( J)-WPO( J)/100.
Appendix A-6. (Continued)
-------
CALCULATE CNAN6E IN STREAN COMPOSITION
IMPbz*l'T«lE-6l 60 TO Z10
ON(l)«ONfll*.»«PFE?t
an oo
220 ta(II*l»J>*XtII*l»JI*AWTI Jl
RETURN
• c
c
FUNCTION «1RATC(A»€»TKI
C
C
_.
*fW»Fl " I
RETUMS M«IN OR LSACM RATf CONST (CU.FT./1*
RETURN
END
C
<
STRAN t AT T»F US IN*
TENf COEFF«-0.03 ^CT/WttF (VOL IN CUFTI
RETWM
END
Appendix A-6. (Continued)
-------
10 VAK«IE»0
19 STRING Hl»H2,H3/H4,H5,H&,~A»B»e»Df H7
16 STRIN6 T1,T2,T3,T*,T5,T6,T7,T8,T9»I,I1,I2,I3,I«.,I5,I6,I7
17 STRING ia,I9,J,Jl,J2»J3,J4»J5.J6,J7,JB,J9»K*»K5,K6,K7,Ke,K9
20 PRINT •OUTPUT
25 INPUT H6
30 OPEN HO, OUT PUT, 9 _; _ ___ _______
32 SOTO 1000
39 PRINT "INPUT EXPERIMENT NO., SAMPLING LOCATION, SAMPLING DATE* AND TINEi
*0 INPUT A,B,C»D • _
« PRINT IINPUT FIOH BOUK SKEETS DATA TWIT1T6HT* ~~
46 PRINT •!, 2r^,9«8»9,ll, 12, 1*.U, 18, 19, 21, 22, 26* 27, 29* 30, 31«
55 INPUT E,F,n>N«0,P,0,R,S,H.V,WtX,r,Z,Zl,K,KlfK2
60 Fl-t-F
69 Nl-H-N
TO «Z»F1-1TI"
79 Pl-O-P
ao Ri«a-R _
49 Ul-S-U
90 U2-U1-(N1»R1)
95 Ul-V-W
109 T2-M1-Y1
110 T3«T2/W1*100
TTTTZ-Z-7I
120 K3-K1-K2
125 Ll«t(K3»(K/100n/Z2)*100
T30
139
1*0 GOTO 700
700 TZ-IIBS ZB 20< /I
209 F3-I4$< 2B 4S.2S /•
210 F<.-i»5S 9B 4$.2< /•
217 WRITE ON 9HTEST PROCEDURE MX-01T-07I
225 H2-ISAMPLING LOCATION*
230 H3-ISAHPLING DATEH
240 Tl-i (II SAMPLE JAR, SAMPLE AND HASH WATER!
Appendix A--7. Computer Program for Reducing Control Laboratory Analytical Data.
-------
245
255
260
265
270
275
280
265
290
300
305
310
315
320
325
330
335
on
en
3*5
350
355
360
365
370
375
380
385
390
395
400
405
410
415
700
705
710
715
720
725
730
T2-a
T3-s
T4-s
T5-i
T6
T7
T8
I-
(2)
(3)
(4)
(5)
(6)
(8)
(9)
10)
(11)
112)
113)
I4-i(14)
I6-M16)
I7-M17)
I8-S(18»
I9-K19)
J-K20)
J1-MZ1)
J2-K22)
J3-i(23)
J4«£(24)
J5-M25)
J6-K26)
J7-M27)
Jd«£(26)
J9-M29)
K4-EC30)
K5-K31)
K6-S132)
K7-M33)
K8»s(34)
K9ȣ(35>
GOTO 60
WRITb ON
WRITE ON
WRITE
WRITE
WRITE
WRITE
WRITE
ON
ON
ON
ON
ON
SAMPLE JARi
SAMPLE AND WASH
INTITAL WASM WATC«
FINAL WASH WATER BTTTLF2
WASH WATER U*FD<
SAMPLE (3) - (6)!
BUCHNER FUNNEL »NO COAL CAKti
BUCHNFR
COAL CAKE
INITIAL FUNN?L WA
-------
739 WRITE ON 9
7*0 WRITE ON 9
749 WRITE ON 9
790 WRITE ON 9
IN FORM F3tTl,6
IN FORN F1lTZ»F
IN FORN F*IT3»F1
IN FORM
T9S WRITE ON 9
760 WRITE ON 9
76S WRITE ON 9
IN FORH F3IT9«W
IN FORH FMT6.H1
IN FORN FJIT7.S2
770 WRITE UN 5
779 WRITE ON 9
760 WRITE ON 9
MJRH h3lTS»T
FORH F3lT9»»
FORN
70S WRITE UN 9 IN FORH FjlIltQ
790 WRITE ON 9 IN FORM F3lI2pR
799 WRITE ON 9 IN FORH FMI3.R1
BOO WRITE UN 5
809 WRITE ON 9
610 WRITE ON 9
FURH
FORN
FORN
F3I I*»5
F3H9»U
015 WHITE QN
620 WRITE ON
629 WRITE ON
5 IK faun MI TT»uz
9 IN FORN F3IT8.V
9 IN FORN F3II9fW
830 WRITE ON
639 WRITE ON
8*0 WRITE ON
V>> WKlIb UN 5
890 WRITE ON 9
899 WRITE ON 9
01
en
WKllfe UN
869 WRITE ON
870 WRITE ON
B/9 WRIlt ON
860 WRITE ON 9
889 WRITE ON 9
BVU WK1I6 UN
899 WRITE ON
900 WRITE ON
VU9 KKilt UN t In
910 WRITE ON 91
919 WRITE ON 91
9 IN FORH FMJiWl
9 IN FDRH F3IJ1.I
9 IN FORH
IN F
IN FORN
IN FORN
T IN FURfl P3U6«4
9 IN FORH F3U7.Z1
9 IN FORH
9 IN FORK
IN F3RH
IN FORH
"9 IN ruKlT
9 IN FORH F5IK7.L1
9 IN FORH F9IK*,L2
TORH F5IK9»IT"
vir iiuiu luau
920 PRINT tOO YOU HAVE ANOTHER EXPERIMENT (INPUT YES OR N0»
929 INPUT H9
996 CLOSE ALL
men
999 END
1000 PRINT 1WEVER OUTPUT FILFI
1009 INPUT H7
1010 OPEN H7,OUTPUT,6
16 S 28 35 21 »S 28
28
1O19 K6-17J ZB
1020 GOTO 39
1090 WRITE ON 6 IN FORM F6lA,8.C,0>ll>LZ)L3
103> &UTO 920
Appendix A-7. (Continued)
28
/•
-------
in
10 VAR»ZERO __
15 STRIN6 H1,H2» ATS7C » 0 » M f
20 PRINT IOUTPUT FILE NANEt
25 INPUT HI
iraPEN H1TOUTPDT*?
32 60TO 1000
3S PRINT ilNPUT EXPERIMENT NO., SAM^LINC LOCATION* SAMPLING DATE AND TINEi
*0 INPUT A»B»C»TJ "~
45 PRINT tINPUT FROM WORK SHEET DATA FOR ITENSi
50 PR*NT il2*8 * 7'8 ' l°* J X ' 19 ' 16 ' 1(l
100 Fl-E-F
IPS N1«N»N
110 P1"0-P
115 Rl-Q-R
120 R2«R1-N1
12 ? TT*5=T
130 Vl-U-V
135 V2-T1-V1
Xl-W-X
150 Zl-Y-Z
160 K2-Z1*«L/100)/X1*100
169 K3-(V1-X1)/V1*100
F2
H8S 2B
?B
20$ /•
200
205
21IT
215 F5*I45S 16B
2*0 WRITE ON 5HTEST
ZWWRITE OW 51
/I
/•
HX-Q1T-081
250
255
265
270
-27*
260
2B5
i*u
295
WRITE
WRITE
WRITE
WRITE
WRITE
WRITE
WRITE
WRlIt
WRITE
ON
ON
ON
ON
ON
UN
ON
ON
ON
ON
5 IN
5 IN
5 IN
5 IN
5i
5Tl
5t
5 IN
5 1H
5 IN
FORM
FORM
FORM
FORM
FORM
FORM
FORM
F? 1 1E*I>CR Ill-NT NO.li»A
F2ilSAM°LTNr, LOCATIONn.B
F?ISSA"PLIMG DATEIS,C
F?HSAMBLING TIMEii»0
WFIGHTS IN GRAM5T
F3it til SAMPLE TANK AND
F3H (21 ORY SAMPLE TANKS
F4tf (3) SAMPLEi,Fl
SLURRY
»F
SANPLEi»E
Appendix A-7. (Continued)
-------
in
00
300 WRITE ON 5 IN FORM F3i« (4) WASH BOTTLE* IMTIAL«»H
BOTTLE*
305 WRITE ON 5
IN FORM F3li (5) WASTT BOTTLE, FINAL!,N
310 WRITE ON 5 IN FORM F4H (6) WASH WATER!,Nl
315 *RITE OH g IN FQRM F3tl (7) 9UCMNER FUNNEL AND COAL CAKE!,0
120 WRITE ON 5 IN FORT* TSTl (11 ^UCHNER FUNNEL!,?
325 WRITE ON 5 IN FORM F4H (9) CQAL CAKElfPl
330 WRITE ON 5 IN FORM F3UUO) FILTER FLASK, SAMPLE AND MASH WATERS,0
335 WRITE ON 5 TIT FORM F3i¥(H1 FILTER FLASK*,R~
340 WRITE ON 5 IN FORM F4tl(13) FILTRATE!,*!
345 WRITE ON 5 IN FORM F5l»(l
-------
Ol
«£>
10 VAMZERO
~T5 STRIN6 H1»H2»A»I»C»0»M3
20 PRINT (OUTPUT FILE
25 INPUT HI
•0 Of EN N1»DUTPUT»5
32 GOTO 400
35 POINT • INPUT EXPERIMENT NO.. SAMPLING LOCATION, SAMPLING DATE* AND TINE«
~W INPUT A»B»C»D~ ...... ~ --- ;
45 PRINT IJNPUT FROM WORK SHAFTS DATA FOR ITEMS l»2»4»5i
?0 INPUT E»F»M»N
~100 Fl-iT^F -------
IDS Nl-M-N
110 N2-(Fl-Nl)/Fi*100
-mrF7iTIB"5~7I 20< /• ----- ----- ------
120 F3-140S 2B 4S.2S /•
125 F<»»l«iOS 9B 45. 2S /•
130 F9«B4(IS IBl'Tf.ZS /• . . . - ......
200 WRITE ON SliTEST PROCFOURF MX-01T-09I
209 WRITE ON 91
-7HT"WRITE ON '1 IR FORM F2li6tNl
275 WRITE ON 5 IN FORM F5t*(7) »6R CENT MOISTUREi»N2
260 WRITE ON 51
2¥5 WRITE ON 51
267 GOTO 450
290 PRINT 100 YOU HAVE ANOTHER P«P€RINENT (INPUT YES OR N0)l
295 INPUT HZ
300 IF H2-IVESI THEN 35
398 CLOSE ALL
-3WENU
400 PRINT 1WEVER OUTPUT FTLF.1
405 INPUT H3
410 OPEN H3»OUTPUT»6
415 F6-i7S 2B 16< 28 3$ ?B 4< 29 3<.
420 GOTO 35
43^ WRITE ON 6 fN FORN F6IA»9»C.O»N?
455 GOTO 290
Appendix A-7. (Continued)
-------
10 VAR'IERO
15 DIH S(10),U(10»TtfTTffT;wTlOTiT(TO),X<10),Y( 10),Z( i0)» P (101
20 STRING H1,H2»A»B»C»D.H4
25 PRINT iOUTPUT FILE
20 INPUT HI
32 GOTO 1100
35 OPEN HI,OUTPUT,5
40 PRINT aINPTJT EKPERIMEMT., SAH*LIT LOCATION, SAMPLING BATE, AND TIHEl
45 INPUT A»S,C,0
50 PRINT UNPUT WEIGHT OP COAL AND SAMPLE BOTTLEi
99 INPUT XI
60 PRINT UNPUT WEIGHT OP SAMPLE BOTTLE!
65 INPUT X2 _ _
~70~"X»X1-X2 " ......
75 l-l
60 PRINT UNPUT SCREEN WCTGHTS (3^33 AFTER LAST WEIGHT)!
85 INPUT~7m "
90 IF V(II>3E33 THEN 110
100 N1"TII>1
105 GOTO 85
110 1-1
~115 PRINniNTUT WEIGHTS W/CTAL C3E33 AFTER LAST WEIGHTIi
120 INPUT W(I)
125 IF WIIJ-3E33 THEN U5
"T3TT 1*1*1
135 N2«N2*1
GOTO 120
IF H1*TIZ THETT^OO
150 PRINT N1IN2
19B CLOSE ALL
" I99~ END
200 PRINT ZINPUT COAL TY«»F (1-MEDIUM, 2-FINEH
201 INPUT Cl
~ZUT IF Cl-2 THEN 950
203 GOTO 900
20* FOR 1-1 TO Nl-1
Z05 READ 5(11
210 NEXT I
215 FOR 1-1 TO Nl
Z2O KfcAb'Uf I )
225 NEXT I
Appendix A-7. (Continued)
-------
230 FOR !• 1 TO Ml
~T3l Rm-WtI)-V1 ING OATEH.C
365 MRITE ON 5 IN FORM FH § SA1PLIMG TIMEH.O
•37tT¥RlTfc ON 51
375 WRITE ON 5 IN FORM F2HWEI6HT IF COAL AND SANPLE
380 WRITE ON 5 IN FORM F2HWFI6HT OF SANPLE BOTTLEll»X2
~3¥5 infimnr? IN FORN FSUWFTBHT HF COAL SANPLEH.X
390 WRITE ON 51
395 WRITE ON 5 IN FORM F3ti$CRF?Nl»iSIZE IN** IKE IGHH, •WEIGHTl,i«EIGHTi, §CUM. •, iPtR CENTlfiCUN.i
"400 WRIIfe UN 7 IN FORM F4llSIZFl»t1ICRONSl»«EHPTT«»iW/IOIL*»lCOAH»«WFI5HTi» iRETAINEDi* IPFR"CENTi
405 WRITE ON 5l
410 FOR 1-1 TO Nl-1
-4-nilfITE-Oir 5-IN FORN F5 I S (I) ,Uf T ) , V « I } » y ( I ) ,R ( I ) ,X ( I ) , Y ( I ) , Z 1 1 )
420 NEXT I
425 WRITE ON 5 IN FORM F5 UPANi, IJ(N1), V(N1)»W(N1), R (N1)»X(N1), Y(N1) ,1 (Nl)
*3U Wkllt 'OH "51
435 WRITE ON 5 IN FORM F6tlT1TAL WEIGHT ON SCREENS AND PANlfW
Appendix A-7. (Continued)
-------
**0 WRITE ON 5 IN FORM FTllPER CENT HEIGHT LOSS",I
GOTO 600
490 N-N1-1
500 FOR !•! TO N
910 um-LDGioiurm
515 S1-S1+UU)
320 S2»S2*m I ) tz
5Z5 53>S3+Z(
530 S4«S4+Z(I)t2
535 Qi-ouum*zm
9*0 NEXT I
3*5 Q2«Q1-S1«S3/N
850 S5«S2-Slt2/H
56-54-53TZ/N ' ~
560 R-Q2/SOR(S5*S6)
565 H«Q2/S5 * SLOPE
97Q A*
585 Y3»10t|(36.79-A*l/H)
59_OJMI»10t H 5 0 .-A 1 > / N I
591 POR I«T"TD K .....
592 P
593 U(
N6IT'
o> 596 GOTO
^ 600 WRITE ON 5t
"5TJ5TRITI ON 5HTHE EOUATTON FOR THE LINEAR REGRESSION I3n
610 WRITE ON 51 *CUM PPRC^NT -I I AJ IMI K LOG (SIZE IN MICRONS))!
615 WRITE ON 51 iTHE CORP. CHEF. -SIR
617 TfOTIT TOTJO
620 WRITE ON 5i
625 WRITE ON 5HWHEN THE CUM. PF.R CENT • 36.791
6~T6 VfRTTE "ON ?f» THE SCPF?N SI7F -ftY3n HICRONSt
627 WRITE ON 51
630 WRITE ON 5HWHEN THE CU1. PPR CFNT • 501
635 WRIT! UH 511 THE SCR"* STZF •itY^il HICRONSi
640 WRITE ON 51
645 WRITE ON 51
64&HGUTO 1150
647 PRINT iOO YOU HAVE AHHTH^R FXPF. P IhENT (YES OR N0)i
650 INPUT H2
~6WIF"HZ*1TTO» THEN 19B
660 W>0
Appendix A-7. (Continued)
-------
jf«0 M*» 1M»UT N*
670 Sl'O1110 OPEN H*»OUTPUT»6
67$ $2-0 111) Hi-«7S 2B 165 26 3J 28 45 28 *i.5S 21 4S.SJ /•
610 S30 1120 M6-110B 83 2B *5 26 55.2S 29 35.2S /•
•DTU
690 0.1-0 1110 MRITE ON 6 IN FORM H5li.B»C»D»Y3,V«
692 Nl«0 1152 PtNM'ZINlt
69S Hl»0 1155 FDR 1-1 TO Nl ~—
695 OOTO *0 1160 WRITE ON 6 IN FORM M6ISMI ,UU), Zm,P( I)
900 SUI-14 1162 NEXT I
•«)•»
90* *<»)•«•
907 S(4I«100
909 SI6I-200
910 U(l>«1190
Ul «!•*«•
912 U(ll*297
UI9I"I09
915 U(6I«74
916 U<7»*0
V2V «BIU ZJ0
950 SC1I-100
956 St2>"150
V97 Slil'ZOO
950 SUI-325
960 UUI-1*«
962 UIJI-7*
96 »
965 6010 230
1000 MRITE OH 51 _
1910 VR1IE ON 5 IN FUini TilWSTZT TW»»ICTJH.1»»?EB
1015 HKITE ON 5 IN FORM F9l HTCRONSi.MER CENTl»iPREOICT£Oi
1020 MRITE ON 5i
1U29 rUH 1*1 TO R
1030 MRITE ON 5 IN FORM H3lUt I) iZU »»P(I)
1035 NEXT I
»u ecu ' "
1100 MINT IMEVER OUTPUT FILCl
Appendix A-7. (Continued)
-------
10 VAR-ZERO ___
15 STRING Hi»H2»ApBVC*0»H3
20 PRINT lOUTPUT FILE NAHfl
25 INPUT HI
90 OPEN HI* OUTPUT* 5~ '
32 GOTO 400
35 PRINT • INPUT EXPERIMENT HO., SAMPLING LOCATION* SAMPLING DATE» AND
*5 PRINT ZINPUT FROM MOR< SHEFT OATA FOR ITEMSl
50 PRINT ll*2*4»5*7»8»10»lll
~55~IHPUT~EYFT*»N,0»P»Q,R
60 PRINT iIN*UT DILUTION FACTOR CALCULATED FOR THIS EXPERIMENT!
6$ PRINT iBY TEST PROCEDURE 1X-01T-07I
TO INTUT 01 ' ' ...
100 Fl-E-F
105 Nl»M*h*5.58^*Dl/Fl
TlO Pl-O-F
115 Rl«Q*R*5.5e**Dl/Pl
120 Y-(R1-N1»/R1
125 FZ-"1IFS~ZB 20< /• '
130 F3-«^01 2B 3<.LC OATElltC
TIMEtl,D
135
225 WK1TE ON 5~Iff FORM
230 WRITE ON 5»
232 WRITE ON 5 IN FORM F3HDTLUTION FACTOR FROM PROC. MX-01T-07I.D1
233 WKJlE TJH 5»
235 WRITE ON 5li
2*0 WRITE ON 5>i
7*5 WRITE ON 51
255 WRITE ON 5 IN FORM F3I-
260 WRITE ON 5 IN FORM F3H
"2^5 IRirr ON 5 IN FORM FMi
270 WRITE ON 5 IN FORM Fit!
275 WRITE ON 5 IN FORM Fill
ZSO WRITE ON 5 IN FORM F4I9
2B5 WRITE ON 5t
(1)
(?)
(3)
(4)
(5)
WEIGHTS IN GRAMS!
FFOROUS DETtRrtlNATIONi
SAMPLE AND BEAKERiyE
5A«PLEI,F1
ML 0.1N K2CR207i,M
NHBMALITY OF K2CR207I.N
PER CENT FERROUS IRONI.N1
Appendix A-7. (Continued)
-------
0*
in
290
~29^~
300
305
310
315
320
325
330
335
340
342
345
WRITE
~WRm
WRITE
WRITE
WRITE
WRITE
WRITE
WRITE
WRITE
WRITE
WRITE
GOTO
PRINT
ON
ON
ON
ON
ON
ON
ON
ON
ON
ON
ON
450
SDO
5
5
5
5
5
5
5
5
5
5
b
1C
t
IN
IN
IN
IN
IN
IN
IN
t
1
YOU
TOTAL IRON DETERMINATION!
FORK
FORM
FORM
FORM
FORM
F3»
F3l
F4I
F3I
F3I
FORK F4I
FORMF5H
HAVE
*
3
a
3
i
(
(7)
(8)
(9)
(10)
(11)
rr?)
13) Y
SAMPLE AND
BEAKERS, P
BEAKER!*0
SANPLEI»P1
ML 0.1N K2CR207i,Q
NORMALITY OF K2CR207l,R
PER CENT TOTAL
VALUEi'Y
• •
ANOTHER EXPERIMENT
IRONitRl
(INPUT YES OR N0)l
350 INPUT H2
355 IF H2-SYESS THEN 35
396 CLOSE ALL
399 END
400 PRINT IWEVER
405 INPUT H3
410 OPfcN H3fOUTPUT*T
415 F6-*7< 2B 165 2B
420 GOTO 35
OUTPUT FILE*
3< 29 4< 2B 3<«4S 2B
2B 35.42 /!
490
455
WRITE ON
GOTO 345
6 IN FORM F&IAiB»C»15»Nl,Rl/T
Appendix A-7. (Continued)
-------
at
at
10 VAR-ZERO
15 STRING H1,H2»A»B»C»D
20 PRINT iOUTPUT FILE NA«Fl
25 INPUT HI _
so OPEN m,~uuT?OT,5 "
32 GOTO $00
35 PRINT ilNPUT EXPERIMENT NO., SAMPLING LOCATION* SAMPLING DATE. AND TIMEl
*5 PRINT UNPUT FROM WORK SHIFTS DATA FOR ITEMS!
t>0 PRINT il»2»4,5«7»B»ll»12»U»19t
100 Fl-fc-F
105 N1«M*N*5.58/F1
110 Pl-O-P " '
115 P2-P1*13.735/F1
120 Rl-O-R
200
WEIGHTS IN GRABS SULFATE SULFURi
130 F2-H8S 2B 202 /•
135 F3-140S 2B 3<.4S /•
1*0 F*-i*03 TOB 3?. 45 /«
1«.5 Ft»-i<.OS IBB 3<.<>< /•
190 WRITE ON 5HTEST PROCPOU^F M*-01T-12i
¥R1TE UN 51
lTfc ON 5 IN FORM F?HEXPFftTNf NT NO.n»A
205 WRITE DN 5 IN FORM F*i* SAMPLING LOCATIONti*B
210 WRITE UN 5 IN FORM F2 HS&HPLTSG OATEIi,C
215 rfRITE ON 5 IN FORM F? I t^fcHPLTSC, TIMEn.D
220 WRITE ON 5«
2Z? WRITE ON 5lt
230 WRITE ON 51
235 WRITE ON 5 IN FORN F3ti (1) SAMPLE AND WEIGHING BOTTLEl»E
Z40 VRITE ON 5 IN FORM Flu »2) WEIGHING BOTTLEi.F
2*5 WRITE ON 5 IN FORM FOz (3)
250 WRITE ON 5 IN FORM F3H (4)
255 WHITE ON 5 IN FORM F3H (5) NlflHALITY OF 0.1N K2CR207lrN
260 WRITE ON 5 IN FORM F5ti (6) »E4 CENT NON-PYRITIC IRONlfNl
265 WRITE ON 5 IN FORM FBtl (7) BARIUM SULFATE AND CRUCIBLEi»0
270 WRITE ON 5 IN FORM FTU m CUUCIBLEi»P
275 WRITE ON 5 IN FORM F4l! (9) DARTUM SULFATEi»Pl
260 WRITE ON 5 IN FORM F5H(101 »PR CENT SULFATE SULFUR AS SULFUR1.P2
ZB5 WRITE ON 51
290 WRITE ON 511 WEIGHTS IN GRAMS PYRITIC SULFURi
0.1N K2CR207l»N
Appendix A-7. (Continued)
-------
en
295
300
305
310
315
320
325
340
400
405
496
499
ON
ON
ON
ON
ON
ON
ON
5
5
5
5
5
t
IN
IN
IN
IN
IN
IN
FORM
FORM
FORM
FORM
FORM
FORM
F3i
F3I
F4t
F3t
F3t
F5i
*
a
»
t
5
1
(
<
(
(
(
(
11)
1?)
13)
14)
15)
16)
SA*">LE AND WEIGHING
WEIGHING BOTTL£s»R
505
510
~5T5"
530
550
-5T5
WRITE
WRITE
WRITE
WRITE
WRITE
WRITE
WRITE
GOTO 550
PRINT 200 YOU HAVE ANHTHEc
INPUT H2
IF H2»«YE5i THEN 35
CLOSE ALL
END
PRINT SWFVER
INPUT H3
OPbN H3*OUTPUT,6
F6»I75'2B 16? 28
GOTO 35
WRITE ON 6 IN FORM FM /U B, C . 0, Nl, P2,T 1
GTJTO 400"
BOTTL6s,Q
"L K2CR207a,S
NORMALITY OF 0.1N K2CR207i,T
CENT PYRITIC - SULFUR AS SULFURI»T1
(INPUT YES OR N0)t
OUTPUT
35
4<
3<.4< 2B 3S.4< 26 31. 4< /I
Appendix A-7. (Continued)
-------
oo
SAMPLING LOCATION, SAMPLING DATE* AND TIME!
DATA FOR ITtMS«
10 VAR-ZERO
13 STRING H1»H2,A,B,C,0,M1
20 PRINT 5QUTPUT FILE NAH?«
25 INPUT HI
30 OPEN HI, OUTPUT, 5
32 GOTO 400
35 PRINT SINPUT EXPERIMENT NT.,
40 INPUT A,8,C,D
45 PRINT SINPUT FRTM WORK SHECTS
50 PRINT il»2»4,5l
55 INPUT E,F,M,N
70 PRINT SINPUT DILUTION FACTOR CALCULATED FOR THIS EXPERIMENT!
75 PRINT SBY TEST PROCEOU"*!- "X-01T-07S
80 INPUT 01
100 Fl-t-F
105 Nl-M-N
110 N2-N1*41.16/F1*D1
115 F2-sl8< 2B 20< ts
120 F3"«42< ?B 35. 4< /I
123 F4-i42< 10B 3<.4< /5
130 F5-5«,2< IBB 3<. )
71
l*4CM OR FILTRATE AND WEIGHING
W^ TIMING BOTTLEifF
LCACH OR FILTRATEi*Fl
BARTMM SULFATE AND CRUCIBLEl,M
CB'ir IBLEs»N
BARIilM SULFATti,Nl
PF'l CENT SULFATEi,N2
BOTTLEi,E
Appendix A-7. (Continued)
-------
305 WRITEJDN 5»
307 G~JT 0 4 if 0
310 PKINT £00 YOU HAVE ANOTHER EXPERIMENT (INPUT YES OR N0)l
315 INPUT H2
"320 IF~H2« = VE5S THEN 35
396 CLOSE ALL
399 END
"4~00 PRINT SWEVER OUTPUT FILES
405 INPUT H3
410 OPtN H3»OUTPUT»6
P6*E/5 28 16S ZB 35 ZB 45 ?B 35*45 /»
420 GOTO 35
450 WRITE ON 6 IN FORM F6»A,B,C»D,HZ
310
Appendix A-7. (Continued)
-------
10 VAR-ZERO
T5 STRING H1*H:2»A»B*C»D*H7
20 PRINT iOUTPUT FILE NAMF.1
25 INPUT HI _
30 OPEN "HI* OUTPUT* 5
32 GOTO 1000
35 PRINT IINPUT EXPERIMENT in., SAMPLING LOCATION* SAMPLING DATE* AND TIME!
'TITINPUT J»T»t»D
45 PRINT UNPUT FROM WORK SM?FT DATA FOR ITEMS!
50 PRINT tlf2*«»*»7*8»10»ll»l6*17» 19*20*21!
-55~INPUT
100 Fl-E-F
105 Nl-M-N
110 Pl-O-P
115 Rl-O-R
120 R2-P1-R1
T2T
130 Tl-S-T
Wl-V-W
200
705
210
215
240
2«»5
250
260
265
270"
275
280
•ZB5
290
295
~300
305
310
3T5
320
X2-H1/T1*U
F2-il6< 26 205 /•
F3-IWS ?B <»<.*< /•
< 9B <•<.<•$ /•
16B <.$.^< /I
WRITE ON 5IITEST PROCEOtlBF »L TNG OATEH.C
WRITE ON 5 IN FORM F?H<5»«*«>LTNG TIHEii.D
WRITE ON 51
WRITE ON 5lt
WRITE ON 51
WHITE 014 5 TN FORM F3ll
WRITE ON 5 IN FORM F3n
WRITE ON 5 IN FORM F4ts
WTHTE ON 5 IN FORM F3I1
WRITE ON 5 IN FORM F3II
WRITE ON 5 IN FORM F4I9
IN FORM F3li
WEIGM BCLT (S-l) SAMPLE WORK UP SHEETS
(1)
t?)
(3)
OH
WRITE ON 5 IN FORM F3H
SAMPLE BOTTLE ANO SAMPLE WEIGHT!,E
SAMPLE BOTTLE WEIGHT!,F
SAMPLE WEIGHT!,Fl
9UCHNER FUNNEL AND COAL CAKEi'M
1IJCHNER FUNNEL!,N
(6) C1AL CAKE1,N1
(71 CRYSTALLIZING DISH AND WET COALI,0
CRYSTALLIZING DISHi,P
Appendix A-7. (Continued)
-------
325 WRITE ON 5
330 VRTff flN 5
335 WRITE ON 5
WRITE ON 5
350 WRITE ON 5
355 WRITE ON 5
T&0~»TRTTE ON 5
365 WRITE ON 5
370 WRITE ON 5
375~¥RTTE TIN 5
380 WRITE ON 5
385 WRITE ON 5
"390 WRITE "UN" 5"
395 WRITE ON 5 IN
IN FORM
IN FORN
IN FORN
IN FORN
IN FORN
IN FORN
IN FORM
IN FORN
IN FORN
IN FORN
IK FORN
IN FORN
IN FORN
IN FOPN
F4ti (Q)
Fiimoi
F3IK11)
F4litl?»
F4IK14)
F4l»fl5)
F1IK16)
F3HI17)
F4t 1 ( 19)
F3H(19)
F3tl(20)
F3ti(21»
F4te (22)
F5nl?3)
FORM
400 GOTO 1050
409 HKilt UN 9f
410 WRITE ON 51
500 PRINT «00 YOU HAVE
WET COALI.P1
CRYSTALLIZING DISH AND DRY COAL1»0 ~ "
CRYSTALLIZING OISHl.R
DRY COALi.Rl
ini5TURE • WET COAL (9) - DRY CflAL (134l»R2
P«P CENT NOISTUREi»R3
TOLUENE EXTRACT. COAL AND CRYSTALL. DISHES
CRYSTALLIZING OlSHi.T
cXTRACTtD COALi»Tl
*
-------
lOVAMZERO _ -
19 DIN fllOI»UllOlf«TlOl»WriO)7fTiOT>XTTO)»Y(10l»ZtlOlfPC10)
tO STRING Hl,H2»Arl»C»D»*H
25 PRINT IOUTPUT PILE NA«€«
•0 INPUT HI
»2 GOTO 1100
M OPEN Hl»OUTPUT,5 _
*0 PRINT • INPUT EXPERTOEIT.» ~?HHT LOCATION* SAHPLlNC^BATC* AND TINE!
45 INPUT A»I»C»D
>0 PRINT IINPUT WEIGHT OP COAL AID SAMPLE BOTTLE!
» INPUT XI
60 PRINT UNPUT WEIGHT OF SAHPLE BOTTLEi
*5 INPUT KZ
~TO~~X*1T-'IZ '
75 !•!
ao PRINT UNPUT SCREEN WEIGHTS (3?33 AFTER LAST WEIGHT)!
will
90 IF VCD-3E33 THEN 110
f> 1*1*1 ____
loo N1«N1+T~ " ..... "
105 GOTO 6»
110 1-1
119 PRINT" f INPUT WflGHTS W/CT1AL 1IF33 AFT.R
04 120 INPUT Wtll
"* Ui IF M(II-3E33 THEN 1*5
IIS N2-N2«1
1»0 GOTO 120 _
IF 111*112" THE H 200
150 PRINT N1IN2
191 CLOSE ALL
__
"
200 PRINT UNPUT COAL TVPF I1-«EOIUH»
201 INPUT Cl
20Z TT"Cr*2 THEN 950
209 GOTO 900
20» FOR I»l TO Nl-1
210 NEXT I
215 FOR !•! TO Ml
225 NEXT I
Appendix A-7. (Continued)
-------
-J
CO
4< 28 8< 3d 4< /a
< 28 6< d 8< B 6< /I
< B 3<.2< B 3<.2< 28 3«.2< 3B 3<.2<
230 FOR 1-1 TO Nl
R( I)-W(I)-Vd)
W-M«K(I)
240 X( I)-*
245 NEXT I
250 FOR I-l TO Nl
255 Y<1)-R(I)/W*100
260 Z-Y(I)+Z
2t>5 Z( 1)«Z
270 NEXT I
275 L-(X-W)/X*100
300 Fl-il6< ?6 20nwcir,HT np COAL AND SAMPLE BOTTLEiZ*Xl
380 WRITE ON 5 IN FORM F?tiw?I6HT "F SAMPLE iJOTTLEii»X2
385 WRITE DN 5 IN FORM F6tiWFIG^T OF COAL SAM?LEis,X
390 WRITE ON 5<
395 WRITE ON 5 IN FORM F 3 t 3 SC"»CFN =, =5 IZE IN5, =wE IGHT5* Z WE IGHT8 , i WE IGHT* » SCUM. 3» iPER CENTS, iCUH.l
400 WRITE ON 5 IN FORM F41 iSTTCs, !"TCRONSi,lEMPTYi,IW/COALl,JCOALI,1WEIGHTI,iRETAINEDi,iPER CENT*
405 WRITE ON 5t
410 FOR I-l TO Nl-1
415 WRITE ON 5 IN FORM F5tS(TI. IK I).V(I),W(I ),R( I),X< I) ,Y(I} >Z(I)
420 NEXT 1
425 WRITE ON 5 IN FORM FSI«oAN5,U(VI),V(Nl),WINl),R{N1),X(N1) ,Y{Nl),Z(Nl)
430 WRITE ON 5>
435 WRITE ON 5 IN FORM FSilTHTAL WFTGHT ON SCREENS AND PANi,W
Appendix A-7. (Continued)
-------
WRITE ON 5 IN FORM F7IIPER CENT WEIGHT LOSSl.L
GOTO 600
490 N-N1-1
500 FOR I«l TO N
515 Sl-SUUU)
520 S2-S2+U(I)t2
y?5 53~-S3*Z(i)
530 S4-S4+Z(I)t2
!T40 NEXT I
545 02-Q1-S1*S3/N
550 S5-S2-Slt2/N
555 S6-S4-S3t2/N
560 R-02/SOR(S5*S6)
565 M-Q2/S5 * SLOPE
"370 A¥-rS3-H*Sl)/N
585 Y3-10t( (36.79-AO/M)
590 Y4»10t( (50.-AD/M)
591 FOTT I-T TO N
592 P(I)-AS+M*U(I)
593 um-10-MUm)
595 NEXT I
596 GOTO 345
600 WRITE ON 5l
605 VRTTE ON 5««THE EOUATTHN FHR T4P LINEAR REGRESSION ISii
610 WRITE ON 51 *CUH »^RCCNT -iiASiMiKLOG (SIZE IN MICRONS))!
615 WRITE ON 51 iTH? CTRR. CHEF. -itR
BIT GOTD 1000
620 WHITE ON 51
625 WRITE ON 5HWHEN THE CUM. PER CFNT • 36.79s
626 WRITE ON 5ll THF SCRCFN SI7F -»tY3ai MICR3NS1
627 WRITE ON 51
630 WRITE ON 5IIWHEN THF CU1. »F.R CFNT • bOl
635 IHITt ON 5H THE SCR'-CN STZF ••IY4H MICRONSs
--640 WRITE ON 5i
645 WRITE ON 51
646 GOTO 1150
647 PRINT BOO YOU HAVF AMOTHFH CXOEHINENT (YES OR NOJi
650 INPUT H2
65TTFH2*INOI THEN 198
660 W»0
Appendix A-7. (Continued)
-------
665 Z-0
670 Sl-0
675 S2-0
680 S3-0
685 S4-0
690 Ql-0
092 Nl-0
693 N2-0
695 GOTO *0
900 SCD-35
905 5I2)«48
906 SOJ-100
907 S(«.)»150
908 SC51-200
909 S(6)-200
V10 Ulll-*20
911 U(2)-297
912 U(3)*149
913 Um-105
1105 INPUT H4
1110 OPEN HY3»Y*
1152 P(N1)-Z(N1)
115^ FOR 1-1 TO Nl
1160 WRITE ON 6 IN FORM H61 S < I) »UM ) , Z (I >» P (I >
1162 NbXT I
1165 GOTO 647
915 U(6)»0
916 U(7)-0
920 GOTO 230
950 Sm-100
956 S(2)-150
957 S(3)«200
950 S(
1035 NbXT I
1040 GOTO 620
1100 PKIN1 IWFVFR OUTPUT
Appendix A-7. (Continued)
-------
Sample Output
.TIST PROCEDURE NX-01T-07
EXPERIMENT NO.t 0107
SAMPLING LOCATIONi P*
SAMPLING DATE! 321
SAMPLING TIHEt 23*4
WEIGHTS* IN GRANS
111 SAMPLE JAR, SAMPLE AND WASH WATER 1*63.00
(21 SAMPLE JAR 198.00
(3) SAMPLE AND WASH WATER 1265.00
(4) INTITAL WASH WATER BOTTLE 1175.00
(5) FINAL WASH WATFB BOTTLE 661.00
(6) WASH WATE* USED $14.00
(71 SAMPLE (3) - (6) 751.00
(81 BUCHNER FUNNEL AND COAL CAKE 3769.00
(91 BUCHNER FUNNEL 3955.00
(101 COAL CAKE (WET) 214.00
(11) INITIAL FUNNEL WASH BOTTLE 589.00
(121 FINAL FUNNEL WASH BOTLE 109.00
(13) WASH rfATF.R USED 480.00
(14) FILTER FLASK* SAMPLE AND WASH WATER 3522.00
(15} FILTER FLASK 2011.00
(16) FILTRATE 1511.00
(17) FILTRATE-WASH WATER (6) + (13) 517.00
(18) CRYSTALLIZING DISH AND WET COAL 336.29
(19) CRYSTALLIZING DISH 139.16
(20) WET COAL 199.13
(21) CRYSTALLIZING DISH AND DRY COAL 311.35
(22) CRYSTALLIZING DISH 139.16
(23) DRY COAL 172.19
(24) MOISTURE • rfET COAL (20) - DRY COAL (23) 26.94
J25) PER CENT "OISTURE 13.53
(261 TOLUENE EXTRACT. COAL AND CRYSTAL. DISH 310.92
(27) CRYSTALLIZING DISH 139.16
(28) EXTRACTED COAL 171.76
(29) ML OF TOL'JENE 525.00
(30) SULFUR AND TAR, AND 4 OZ. SAMPLE BOTTLE 131.25
(31) 4 OZ. SA*»LF BOTTLE 131.23
(121 SULFUR AND TAR .02
(31) SULFUR ANO TAR AS PER CENT .06
134) PER CENT SLURRY 24.64
(35) DILUTION FACTOR 2.68
Appendix A-7. (Continued)
-------
Sample Output
tttl MOCEDURE *K-OlT-Oe
xCXPERIMENT N9.I 0303
SAMPLING IOCATIONI M5 REP1
lAHPLlNC DAlli 010 .
-SAMPLING TIME* 2335 ,.,...
WEIGHTS IN CRAMS
(1) SAMPLE TANK AND SLURRY SAMPLE
(2) DRY SAMPLE TANK
CD SAMPLE
141 WASH BOTTL€» INTIAL '•
(Si WASH BOTTLE* MN»l
(6) WASH WATF.R
(7) BUCHNtR FUNNEL AMP COAL CAKE
IB) BUCHNER FUNNEL
(9) COAL CAKE ', .
(10) FILTER FLASK* SAMPLE AND WASH WATER
(11) FILTER FLASK
(13) FILTRATE ,
114) FILTRATE (13) • W»SH'f«"*T;JER (6)
•U6) CRYSIALUnNG DISH
?U7) WET COAL
Ull tRYSTALLIMNG MSH AND DRV COAL
119) CKYSTALITMNG DISH
;J*0) DRV COAl
^HXII nOt^TURE • WET CDAL (17) - DRY .COAL .(20)
>£tltj MR CENT *Dmuftt . ;
4*») TOIUCNE EKTtACT. COAL AND CRYSTAL. DISH
•|ll*l WVSTALlTlIMe BTSU '
: 125) EUtRACTfl) COAl
. 126) SULFUR ADD TAR AND 4 01. BOTTLE
>4{7| 4 QZ« BQTTlf .. •
'?!!•! SUVFUR AND f«^ ~ -
^410) Ml OF 10LUCNF EXTRACT
f-Ftfc C6NT SLU^^Y
fER CENT SULFUR IND TAR (TOLUENE RESIDUE)
£f$* CENT SULFUR AND TAR (COAL LOSS)
"-
&2 37. 0000
1718.0000
569.0090
106.0000
463.0000
4041.0000
1621.0000
420.0000
3170.0000
1472,0000
1696.0000
1235.0000
243.2200
69.1700
174.0900
226.9600
69.1700
1)9.6100
14.2400
8.1016
226*2400
69.1700
157.07CO
191.9140
131.T.257
.1683
265.0000
13417
Appendix A-7. (Continued)
-------
00 SAMPLE CATEl 010
Sample Output
TEST PROCEDURE MX-01T-09
EXPERIMENT NO.I 0303
SAMPLING LOCATION! A*
SAMPLE DATE I 010
SAMPLE TIMEt 1930
• EIGHT TN r.»4-s FOP WEIGH BELT AND S-l FILTER SAMPLES
(1) SAMPLE A«r> CRYSTALLIZING DISH 36<>.32
(21 CRYSTAL LT7TNT, nysH 157.16
(3) SAMPLE 207.1*
«t) DRY SAMPLr AND CRYSTALLIZING DISH 356.00
15) CRYSTALLT'TNR niSM 157.18
(6) DRY SAMPLE 200.92
(7) PER CENT MiTSTUOF 3.05
TEST PROCEDUPF *x-
EXPERIMENT N^.i
SAMPLING LOCATTOMt
SAMPLE TIMEl
HEIGHT TS rP«««: c^P wtIGH fldLT AND S-l FILTER SAMPLES
(1) SArPLE A^r> rPY^TALLIZlNG C 1 Sri 36C.V3
(2) CRYSTALLT7TNr OTSH 157.40
(3> SAMPLE . 211.53
U) DRY SAfPLc *NP CRYSTALLIZING DISH 362.30
(b) CRYSTAL LT7JW: HT$M 157. .90
(7) PEP CENT "OTSTUBF 3.13
TEST PROCEOUPT «y-
EXPERIMENT NP.i
SAMPLING LOCATTO^i t*
SAMPLE DATE t Oil
SAMPLE TIMEl 025?
Appendix A-7. (Continued)
-------
Sample Output
• '•*•:* * . .*•
HIT PROCEDURE M-01T-10 --
EXPERIMENT NO. I • 0309 -
SAMPLE LOCATION i AS _
~*A~NPTW 0A~Wi ~o~lo : ~r"
SAMPLING TINE I 1»30 , ' v
_ _ •;__ . -'.v,
WElGW OT COAL AN1TST*PLE BOTTLEl 112*69 " "~
WEICHT OF SAKPLF tnTTLFt 200.87
WEI6NT OF COAL SAHPLfi _ __ 111.61
SCREEN SIZE IN WEIGHT WEIGHT WEIGHT CUM. ffft CINT CUM.
SIZE MICRONS EMPTY W/COAL COAL. WEIGHT tlTAtMEO PtR CIMT
35 420 391.92 401.20 9.66 9.66 6.71 6.71
48 297 4D9.6P *llj.30 6.62 16.3Q 7.76 1*»*7
150 105 36s!l5 377.76 141&3 58^64 16^17 It^TT
200 74 342.70 997.78 19.06 71.72 13.57 66.34
~~nn T ~"§*.s.zir Tiis76ir~Tyr4T"iirnr
TOTAL WEIGHT HN SCPEFNS AND PAN
"PCT CEHT IE16HT-lff5T
THE EQUATION FOR THE LINEAR REGRESSION IS>
TUX PEWEN1 - ZOft.TO!ZW;77;i99I36~UlMriII7E
THE CORR. COEF. *-.99T?2037E«00
H TO"*
MICRONS PER CENT PREDICTED
"420 srn 6.50
297 16.47 1«.?C
149 39.61 41.31
105 52.77 ' FJ.U4-
74 66.34 64.76
MW1N THE~CUM."PTW
tHE SCREEN ST2E • 170.52723 MICRONS
THE SCREEN ST2« • 114.97122 MICRONS
Appendix A-7. (Continued)
-------
Sample Output
00
o
TEST PROCEDURE 1X-01T-11
030*
EXPERIMENT NO. I
SAMPLING LOCATION i
SAMPLE DATE I
SAMPLE T1HEI
DILUTION FACT19
(1) SAhPLF ANO
(2) BEAKER
(3) SAMPLE
«•) *L O.IK
CS) NORMALITY
(6) PEP CENT
(6)
(9)
(10)
(11)
(12)
(13)
010
?135
«><>nc. MX-G1T-07
WFTGHTS IN GRA1S
DETERMINATION
T»ON
T»CN DETERMINATION
SAhPlf
BEAKER
SAMPLE
ML 0.1N K?rp?n7
NORrtALITV nc •f
PEK CENT T1T4(
Y VALUE
1.3257
156.9300
114.9900
Q.9000
.1003
137.9600
95.P900
10.2000
.1002
.1751
.17V8
.C259
TEST PRCCEDUPf
SAMPLINC
SAMPLE DATFi
SAMPLE TIME I
DILUTION hACTTR
010
oonc. nx-OlT-07
S IN
OtTERMINATION
APPENDIX A-7. (Continued)
-------
CO
Sample Output
TEST PROCEDUP? "X-niT-1?
EXPERIMENT N^.l 0303
TimPirNG LOCATTONI 13
SAMPLING DAT?» 110
SAMPLING TIMFi 1930
WEIGHTS IN GRANS SULFATE SULFUR
(1) SAMPLE AND W«Tr-HING BOTTLE 58.373*
12) WEIGHING 11TTLF 54.0771
(3) SAMPLF
(«»» ML C.1N K2CP?17 Z.IOOO
(5) NORMALITY "F P. IN K2CR2U7 .1002
16) PER CENT NIN-PYPTTTC IRON
tT) BARIUM SltFOTF ANH CRUCIBLt 9.3767
(8) CRUCIBLF 9.3110
19) BARIUM SIJLFATr
(10) PER CENT SULP/'Te SULFUK AS SULFUP
(11) SAMPLE ANn W
(1Z) WEIGHING l)"TTtC
(13) SAMPLE
IN GRAMS PYRITIC SULFUR
BOTTLE
(15) NORMALITY nF r.i^' *2CR207
(16) PER CENT ovPTTT<- - SULFUh AS SULFUR
TEST PROCEOUP* MK_nu-!2
54.0771
52.70«7
«..9000
.1CC2
EXPERIMENT Nn. i
SAMPLING LOCATT"Ni
SAMPLING OATFt
SAMPLING
r«303
"5
010
(1) SAMPLF
(2) WEIGHING
(3) SAMPLE
(4) ML 0.1N
(51 NORMALITY IF P.IN K2C*207
IN GRAMS SULFATE SULFUR
3UTUE
54.079;
!>7
.2733
.2100
1.3724
1.9799
5.0056
Appendix A-7. (Continued)
-------
00
ro
Sample Output
TEST PROCEDIWF HX-01T-13
0303
EXPERIMENT NO. I
SAMPLING LOC»TIT>li
SAMPLE DATE!
SAMPLE TIME I
010
1*35
DILUTION FACTOB ronn PPOC. MX-OH-07
BLANK CCRRECTTfH' (D
VFIGHT IN GRAMS
II) LEACH f!R CTITP/TC ANO WtlCHlNG BOTTLF
«3) LfcACH OP PT
(4) BAPIOH SULFiTE «NO CRUCIBLE
(5) CRUCIBLE
(6) BARIUM SUIFATF
(7» PER CENT ^
TEST PROCfi)UPc "V-01T-13
EXPERIMENT NO.t
SAMPLING
SAMPLE r.ATE I
SAMPLf TIftJ
DILUTION FACT09 FRO" PRPC. MX-01T-07
BLANK CGRPtCT'TM tr\
WFTCHT IN GPAhS
(i) LEACH OR FTLTPAT<- ANO WEIGHING BOTTLF
C2) WEIGHING "»nTTLr
(3) LEACH OK "-TITBATF
(*) 8ARIUK Si'LFATF AND CKUCIBLt
(5) CRUCIBLE
(6) BARIUM SULFATF
(7) PcR CENT SUlFATf
1.0000
.OOCO
29.9652
12.8271
10.3638
9.9335
17.1361
.
1.0000
.0000
29.0635
12.8179
10.5529
10.005
-------
00
CO
Sample Output
TIST
MX-01T-18
EXPERIMENT NO. I
SAMPLING LOC»TTOW«
SI
SAMPLING DATE I
SAMPLING TIMEl
010
WEIGH brtT (S-l) SAMPLE WORK UP SHEET
(1)
12)
(3)
(4)
(5)
(6)
m
(6)
(9)
(10)
(11)
(12)
(14)
(15)
(16)
(17)
(18)
(19)
(20)
(21)
(22)
(23)
(24)
SAMPLE q"TTLF «NO SAMPLE WEIGHT
SAMPLE BOTTLF WFIGHT
SAPPLE WETGHT
BUCHNER FUNNEL AND COAL CAKE
BUCHNER FUNNEI
COAL CAKF
CRYSTAUUTHG PISH AND MET COAL
CRYSTALLIZING PISH
WET COAL
CRYSTALLIZING TTSH AND DRY COAL
CRYSTALLTMNG PISH
DRY COAL
NOISTURF • WFT CO«L (9) - DRY COAL (13)
PER CENT MOISTURE
TOLUENE FXTRACT. COAL AND CRYSTALL. DISH
CRYSTALLIZING OTSM
EXTRACTFO CO»L
ML OF TOLUF.NF FXTPACT
SULFUR »*D TAP * 4-OZ. SAMPLE BOTTLE
4-OZ. SAMPLE «OTtLC
SULFC'P AND TAP
PER CENT SOLIDS
PER CE»OT SLIPUP AWD TAS
683.0000
236.0009
**T,0000
2435.00ftO
2026.0000
427.0000
261.1400
69*4300
• i«5.7tOO "S,
237.9400 • ' J
6S.4300
172.1100
2I.60CO
. 4$*oier v.:... -,-
235.6100
65.6200 •--•.-•.., '.••<:;. :': "•
170.0100
255.0000
181*7700
191*4934 . ,'".. • -,. : -,,
' -'•,:. .2766 "->•'-'• '
•4.0066
• 4149
TEST PROCEDUl»F "X-01T-1S
EXPERIMENT NO.t 0303
SAMPLING LOCiTtflNiH
SAMPLING D*TCI . Oil
SAMPLING TIMFl 0037
WEIGH B?LT (S-l) SAMPLE WORK UP SHEET
Appendix A-7. (Continued)
-------
PROGRAM RTUSRT( INPUT, ntJT»UT, TAPE 1-INPUT*TAPE2-OUTPUT.TAPE3» TAPE 4)
C READS SORTED MX FILCS I»TU J.DfcNSON). UPDATES CORRECTIONS*
C WRITES NEW FILE WITH HEADING
C (ASSUMES ORIGINAL FNTRY CT«FS AFTER NUMBERED REPLACEMENTS*
C SINCF BLANKS ARF SORTED T1 FND)
DIMENSION RUN(2)»Lncm»«EI>m»DAYm,rinE(Z)»DATA(4,2l,FORH(7»7)
DATA BLANK/1H /» IRF»/ 3HR*Pf
DATA FORM/
169H(*HlRUN,6X,8HLOCiTnN,10X.9hDAY THE.27H SN+TAR SOLIDS
2 D.F.),69H(AHlRUN,6>r.l'HL''CATinN,10X,9HDAY TINE»27H SOLIDS SN*
3TAR O.F.),61HUH1RUN,<>X,SMLOCATION, 10X*9HDAY TIHE»9H MOISTURE
<») .7*0. »
569H<27H HCLht
7 SS SP).61H«.HlR'IN.f>r,»»MLUCATIJN,10X,9HDAY TIMt»10H REAG S
BOA) /
INTEGER RUN,REP,DAY.TIMe,nt.4NK
C
C
REWIND 3
frbWIND A
DISPLAY »PPTCEOURE «n.«
ACCEPT IPR9C
C WRITE APPRDPRIATE MFADI^G
WRITE (<.,FORM(l.IP»nc-"S»
Rt AD (3.1010) RUNm.LOCmtO"! 1), DAY 11 ),TIME<1), (DATA (1,1), I •!,<,)
60 RE AD (3* 1010) RUN( 2) . LOC( 21 , «<> ( 2) * DAY ( 2) » T IME ( 2 > » ( OATA( I, 2 ) , I- 1,^)
IF(tUF.3) 999*100
100 IF(REP(2) .EO.IREP)
C NEXT LINE IS NOT A
C IF SA»1E AS PREVIOUS. BUT NTT RtPLACEMENT/ IGNORE
IF(LOC{l).EO.LOC(2).AND.O»Y(n.EQ.DAY(2).AND. TIHE ( 1) . EO.TIME ( 2) )
I GO TO 60
110 WklTE(<*.10?0) RUN(l) ,L1C( 1» .^LANK,BLAN<,OAY( l),TIrt£( 1),
1 (OATAC 1,1) .!•!,<•)
115 RUN(1)-RUN(2)
LOC(1)-LOC(2)
OAY( 1)
00 120 I-l.*.
120 DATA(I,1)-DATA(I,2»
GO 10 60
Appendix A-8. Computer Program for Revision of Analytical Data Files
-------
c
C hOUND REPLACEMENT LTNP - C4":CK LOC»DAY,TI«6
l RUN (1) » L1C ( 1 )• BLANK^BLAMK, DAY ( 1 )» TIME ( 1) >
STOP
C
1010 FORHATU9, A2,<,X,A3,9X, A3, *6,<, A10)
1020 FORMAT(lX»A9»A2»4XtA10»A?»A3»A6»4AlO)
LNO
Appendix A-8. (Continued)
-------
PROGRAM RTUPLTdNPiJT, OUTPUT, T&P61- INPUT »TAPE2-OUTPUT» TAPE** TAPES*
1 TAPE50)
C PLOTS SORTED WX FILCS 1Y LOC. (1 PLOT/VARIABLE)
C MX FILES ARE WRITTEN BY J.1RFY FOR J.DtNSON - RTU DATA
C WRITTEN 10/20/77 - O.MHPO
C
DIMENSION TI1E(52»?0)*DATAr5?.20*3)*NUH(20)»TITLE(9)*YTITLE(3;7)*
1 DATATt3).YO(3).Y1AX(3),YlNCR<3l»HEAD(7i,
2 S<10)»UllO),mo».ROCEDUiiE 10 CUH PERCENT,
3 7HFEPROU'!»3MTPP,?H Y» bHHCLFt»2HSS» 2HSP»
-------
80
90
1050
1060
107U
1060
1099
1090
1091
100
110
120
00
150
160
170
200
KLAD(4»IOBO>
GO TO 100
RfADU,1099) RUN, LT:,D»Y,H9, CHIN, n
NLOC-NLOC*!
LOC1-LOC
T1ME(K,NLOC)-T
00 170 J«1,N
DATA(K,NLOC» J)-DATAT( J)
CONTINUE
DISPLAY *OVER 500
- »PQGRAM WILL IGNORE REST AND PLOT 500*
; PLOT
300 tNCOOE(10»3000,TITLc(D) TITLF(1),00
3000 FORHAH A7»F3»0)
tNCOOfc(10,3010,TITLr(5)» T»«ICT,TITLE(5 )
3010 FORMAT(I3»A7)
CALL LOOK(50)
TINCh-iTMAX-TOJ/TTHTAL
UO 390 J"1,N
YINCR(J)-(YHAX(J)-YO( JM/10.
CALL AXIS(0,0,12HTI-= (HHURS),12»TTOTAL»0.»TO»TINCR)
CALL AXIS(0,0,YTITl«:{J.t0RT:i,10, 10.»90.» Y0( J ) » YINCRC J ) »
CALL SYMBOL(0.,10.•.1*,TTTLC,0.»50)
I PLOT ALL LOCATIONS FOR 1 VARIABLE
Appendix A-9. (Continued)
-------
00 350 K*1,NLOC
L-NUHCK)
T1ME(L+1,K)-TO
TIHE-16, 16. , 0., U ( N ) , U( N+l J )
CALL AXIS(0,0,YTITLP( 1.4) »?S,10.,90.,Z(N),Z(N»1) )
CALL SYHBOL(0.,10... 14,MC»f),o.,20)
CALL LGLiN(u»z»Ni,i.-i,i.-n
CALL LGLIN(U»"»Nl,l,l,?,-n
CALL PLnT(17.25,0,,--»)
GO TO 410
499 CALL PLOT(0.,0(,9901
Appendix A-9. (Continued)
-------
STOP
c
c
C PROCEDURE 10 - AVERSE 41 L FOLLOWING CUM PC» 00 NEW PRED.,PLOT
500 DO 505 1-1,10
505 Z(I)-0.
S1-S2-S3-S<.«01-0.
K«0
REMIND 5
JISPLAY *TAPE<. HOST HAV* A PLOT TITLE AS 1ST RECORD*
READ! ) 5<»0»515
515 RLAD(
FH-02/S5
A-(S3-FH*S1)/N1
00 570 I-1,N1
U( I)-10
Z(N)-P(N)-0.
SUMMARY
nkI1b(5>1101)
Appendix A-9. (Continued)
-------
*RlTfc(5,1102)
:(5,1103)
o
((S(T).'im»Tm,P(I)),I-l,Nl)
1
1
1
1
1
PLOT
CALL
CALL
CALL
CALL
CALL
CALL
CALL
CALL
STOP
ACTUAL
SCALG(
LGAXS(
AVG-7,
Ut 16.iNl
opcnirT:^
•
I)
0,0»16H"D«:NI»jr
AXIS(0»0»YTITl
SYMBOL
LGLIM
(0., 10.,
U,Z.N1,1
LGLIMU»P»N1,1
PLOTtl
PLOT(0
100 FORMATJ7AIO
101 hOflMATUHl*
102 FORKATUHO,
1 M]
103 FURMJ
I00)
1)
T'F
TN
AWG.CJfl. PRtO.CUM.*/,*
FMT OCR CENT*)
•>
A
• 0*
TTH
* Cl1" PcRCc>>1T«*»
» THF COPR.rn
ppc
•> (
•J
FO
• *
«,
F
.
t
X
n
f F
0
)
)
LINcArt RCG^tSSIQN IS>*/«
*F9.
-------
APPENDIX B. RTU PROCEDURES
91
-------
APPENDIX B
RTU Procedures
OPERATING
Number Rev.
Title
MX-01P-01 C DORIC Digitrend Model 240 Microprocessor
MX-01P-02 B Autoweigh Mark IV Weigh Belt Calibration
MX-01P-03 Leach Solution Scrubber Shutoff System
MX-01P-04 Heat Exchanger E-2 Steam Control
MX-01P-05 A T-2 Slurry Feed Control System Operation
MX-01P-06 Reactor R-l Low Level Shutoff Control System LT-59
Operation
MX-01P-07 A R-l Slurry Discharge Control System
MX-01P-08 Mixing Motor & Recirc. Pump Seal Flush Water Delta
Pressure Control
MX-01P-09 A Leach Soln. Feed Pump Control System
MX-01P-10 A V-l Vented Gas Control System
MX-01P-11 K-l Vacuum Pump & Cooling Water
MX-01P-12 Vent Gas Scrubber Cooling Water Shutoff
MX-01P-13 A Reactor R-2 Level Indicating System
MX-01P-14 Heat Exchanger E-3 Steam Control System
MX-01P-15 LC-107 Filtrate Receiver V-2 Hi-Lo Level Control
MX-01P-16 LC-108 Wash Water Receiver V-3 Hi-Lo Level Control System
MX-01P-17 B FE-44 & FE-61 Ramapo Target Flowmeter
MX-01P-18 Electroscale Catch & Weigh System
MX-01P-26 Bin Dumping System Operation
MX-01P-27 T-2 Mixer/T-3 Scrubber System
MX-01P-28 R-l Primary Reactor/V-1 Knockout Drum/T-4 Scrubber System
Operation
MX-01P-29 S-l Belt Filter System Operation
MX-01P-30 Tank Farm Handling Operation
Mx-OlP-31 R-2 Secondary Reactor System
MX-01P-32 Cooling Water Loop System Operation
MX-01P-33 A Air Compressor/Air Dryer System Operation
MX-01P-34 A Liquid Oxygen System Operation
MX-01P-35 B Liquid Nitrogen System Operation
MX-01P-36 B Steam Boiler/Propane Tank & Vaporizer/Softener
MX-01P-37 Waste Disposal Solids/Liquid Systems
92
-------
OPERATING (Continued)
Number Rev.
Title
MX-01P-38
MX-01P-39
MX-01P-40 A
MX-01P-41
MX-01P-42 A
MX-01P-43
MX-01P-44 B
MX-01P-45 A
MX-01P-46
Leach Solution Preparation
T-6 Coarse Coal Reactor System Operation
Pre-Test Facility Set-Up
Operating Sequence
RTU Securing Operation
General Coal Plant Operating Procedure
Check List For Startup, Operating & Shutdown
Instrumentation & Controls Pretest & Shutdown Check List
Suspect Line Removal For Destructive Analysis
SAMPLING
Number Rev.
Title
MX-01T-01
MX-01T-02
MX-01T-03
MX-01T-04
MX-01T-05
MX-01T-06
Sampling Liquids & Slurries Test Procedure
Sampling A-3 Weigh Belt Feeder Dry Coal Test
Sampling R-l Primary Reactor Bypass Slurry Test
Sampling S-l Belt Filter Coal Test Proc.
Sampling T-6 Coarse Coal Leach Tank Dry Coal Test
Coal Leak Check/Well Water Flush Test Procedure
ANALYSIS
Number Rev.
Title
MX-01T-07 B
MX-01T-08 B
MX-01T-09 B
MX-01T-10
MX-01T-11
MX-01T-12
MX-01T-13
A
A
A
B
Workup & Analysis of Slurry Samples From Pump Around Loops
Workup & Analysis of Slurry Samples From Sampling Valves
Processing of Coal for Chemical Analysis & Particle Size
Distribution
Determination of Particle Size Distribution (PSD)
Determination of Total Iron Concent. & Y Values For Leach
& Filtrates
Determination of Sulfur Forms in Coal
Determination of Sulfate Cone- of Leach Soln. & Coal
SIurry
93
-------
ANALYSIS (Continued)
Number Rev.
Title
MX-01F-01
MX-01F-02
MX-01F-03
MX-01F-04
Washing Coal for Preparation of Analyses Samples
Reaction of Coal & Leach Solution Under Atmospheric
Conditions
Toluene Extraction of Coal and the Recycling of Water-
Toluene
Gravichem Method of Coal Separation
CALIBRATION
Number Rev.
Title
MX-01C-01 A Fischer & Porter Converter Calibration & Operation
MX-01C-02 A Taylor Servomex OA184 Oxygen Analyzer System Calibration
& Operation
94
-------
APPENDIX C. DESIGN CASE DETAILS
95
-------
en
Figure C-l. TRW Coal DesulfuHzatlon Gravlchem Process
-------
Figure C-2. TRW Coal DesulfuHzation Gravlchem Process - Base Case 1
-------
VD
00
151. 18 TPH 300 PSIG, SAT'D.
o
.32 TPH 35 PSIG, 281-F ^ _ t^C^\ 31.49 TPH
HP STM
GENERATION
320.69
MMBTU/HR
FIRED DUTY
i i i
COAL » 12.6
TPH
' ,_
35 PSIG, 291»F 76.64 TPH
1 ' i
W
^ 18. 37 TPH
50.95
TPH
r
PROCESS STM PROCESS STM i p e™ i I«B<
GENERATION USERS LP s™ USERS
EV-1 141.91 E-10 141.91 \~* "'^^
MMBTU/HR MMBTU/HR E.,0 22! 06 MM
T-l 2.05 TPH
jL^j SLOWDOWN | TPH
153. 18
TPH
35 PSIG, 281'F %
1.68 TPH i (LOjjTOATM
f] 9. 52 TPH jDmtmKajr
f DEAERATnu L 1*4.33 TPH 35 PSIG, 281'F
FLA
35 P
28!'
^ 96. 33 TPH
1 76.64 TPH ^
r^
/BFW
J.77TPH
119.69
TPH
1 '
HP STM USERS
E-8 20. 24 MM
EV-1 164.28 MM
R-l 4. 99 TPH
114.7
TPH ^^^^™ ^^t TO R 1
, , irn 4^w TRH-^ -^ » •
5H
SIG ^
F CONDENSATE
> rn T_B
XTN 35 PSIG, 281°F "v
" 300 PSIG, 281°F V /
2±rl
TRW COAL DESULFURIZATION
GRAVICHEM PROCESS
BASE CASE 1 - STEAM BALANCE
DATE: 1 MAY 1978 DWG. NO. 2473-07
Figure C-3. TRW Coal Desulfurlzatlon Gravlchem Process - Base Case 1 - Steam Balance
-------
TABLE C-l. BASE CASE 1 - MARTINKA COAL MATERIAL BALANCE
1O
«£>
Stream 1
Description gjj
Water
FeS04
Fe2(S04)3
H2S04
Coal 220.79
Purlte 4.21
Sulfur
Oxygen
Ni trogen
Acetone
Lime
Gypsum
Total, TPH 225.00
T, °F 75
P, PSIG 0
2 3
Recycled
Leach STM
Solution To T-l
455.81 9.65
13.67
161.20
26.68
657.36 9.65
215 235
0 1
4
Mixer
Slurry
464.99
22.02
151.28
29.22
220.79
3.57
.14
892.01
176
35
5
Float
Coal
Slurry
325.53
16.02
105.20
20.64
122.66
.61
.03
590.69
176
15
6
Sink
Coal
Slurry
139.41
6.86
45.05
8.84
98.13
2.89
.13
301.31
176
45
7
Reactor
Effluent
Slurry
144.53
2.22
55.52
6.70
98.13
.28
.68
308.06
250
35
8 9 10
F-3 R-l R-2
Feed Oxygen Oxygen
Slurry Feed Feed
137.73
2.22
55.52
6.70
98.13
.28
.68
2.03 .23
301.26 2.03 .23
219 75 75
20 50 50
11 12
R-l T-3
HP STM Flash
Feed STM
4.99 6.80
4.99 6.80
421 219
300 2.3
(Continued)
-------
TABLE C-l. (Continued)
o
o
Stream 1 3
LP
Description Heating
STM
Water 2.85
FeS04
Fe2(S04)3
H2S04
Coal
Pyri te
Sulfur
Oxygen
Nitrogen
Acetone
Lime
Gypsum
Total, TPH 2.85
T, °F 290
P, PSIG 35
14 15
F-l
F-l Wash
Filtrate Filtrate
263.88 123.30
12.99 3.03
85.28 19.91
16.73 3.91
378.88 150.15
160 160
65 65
16 17 18 19 20 21 22 23
F-5 F-5 F-3 Pond Recovered
Coal Wash Wash Water Makeup LP Wash Regen.
Cake Water Water Return Water Condensate Water Effluent
61.65 123.30 69.37 62.23 53.8 76.64 192.67 264.14
.002 8.62
.015 91.02
.003 15.32
122.66
.61
.03
184.97 123.30 69.37 62.23 53.8 76.64 192.67 379.10
160 160 160 75 75 281 160 250
0 5 5 20 20 35 20 35
(Continued)
-------
TABLE C-l. (Contlned)
Stream
Description
Water
FeS04
Fe2(S04)3
H2S04
Coal
Pyri te
Sulfur
Oxygen
Nitrogen
Acetone
Lime
Gypsum
Total, TPH
T, °F
P, PSIG
24 25
F-3
Wash Evaporator
Filtrate Feed
56.80 180.10
.59 3.62
14.72 34.63
1.78 5.69
73.89 224.04
160 160
35 35
26 27 28 29 30 31 32 33
LP Su If uric Leach HP LP
Evaporator STM FM F-3 Acid Solution STM To STM To CW To
Bottoms EV-1 Filtrate Makeup Recycle EV-1 E-2 E-l
103.46 76.64 88.18 .03 455.81 102.11 31.98 868.5
3.62 1.42 13.67
34.63 35.55 161.20
5.69 4.29 1.39 26.68
147.40 76.64 129.44 1.42 657.36 102.11 31.98 868.5
291 291 160 75 216 421 291 77
35 35 35 35 0 300 35 50
34
F-3
Coal
Cake
49.55
.08
2.00
.24
98.13
.28
.68
150.96
160
0
(Continued)
-------
TABLE C-l. (Continued)
o
ro
Stream
Description
Water
FeS04
Fe2(S04)3
H2S04
Coal
Pyri te
Sulfur
Oxygen
Ni trogen
Acetone
Lime
Gypsum
Total, TPH
T, °F
P, PSIG
35 36 37
Acetone/
Acetone Coal Acetone
To T-ll Slurry To F-4
49.55
.08
2.00
.24
98.13
.28
.68
96.78 96.78 40.00
96.78 247.74 40.00
85 85 85
10 10 0
38
F-4
Coal
Cake
1.34
NIL
.06
.01
98.13
.28
.18
38.30
138.3
85
0
39
F-4
Filtrate
48.21
.08
1.94
.23
.50
98.48
149.44
85
25
40 41 42
Acetone/
Acetone Coal Acetone
To T-13 Slurry To CG-1
1.34
NIL
.06
.01
98.13
.28
.18
110.0 148.30 40.0
110.0 243.3 40.0
85 85 85
0 10 0
43
CG-1
Coal
Cake
NIL
NIL
.06
.01
98.13
.28
.08
12.0
110.56
85
0
44 45
CG-1 Stripper
Centrate Feed
1.34 49.55
.08
1.94
.23
.10 .60
176.30 274.78
177.74 327.18
85 106
25 20
(Continued)
-------
TABLE C-l. (Continued)
o
CO
Stream
Description
Water
FeS04
H2S04
Coal
Pyrite
Sulfur
Oxygen
Ni trogen
Acetone
Lime
Gypsum
Total , TPH
T, °F
P, PSIG
46
Stripper
Bottoms
49.55
.08
1.94
.23
.60
52.4
250
15
47 48 49 50 51
Stripper Gypsum
Stripper Sulfur Bottoms To Neutralizer To
Overhead Byproduct Neutralizer Lime Feed Pond
49.55 62.23
.08
1.94
.23
.60
274.78
2.62
8.54
274.78 .60 51.80 2.62 70.77
85 250 250 75 160
15 15 15 0 10
52
Dried
Coal
.002
.06
.01
98.13
.28
.08
.25
.10
98.91
225
0
53 54
Acetone Nitrogen
Condensate Makeup
0.25
11.9
11.9 0.25
85 75
25 20
(Continued)
-------
TABLE C-l. (Continued)
Stream
Description
Water
FeS04
Fe2(S04)3
H2S04
Coal
Pyri te
Sulfur
Oxygen
Nitrogen
Acetone
Lime
Gypsum
Total, TPH
T, °F
P, PSIG
55 56
Combined
Acetone Coal
Makeup Product
61.65
.004
.075
.013
220.79
.89
.11
.25
.10 .10
.10 283.53
75 180
25 0
57 58 59 60 61
F-3
Wash Filt. CW To HP STM LP STM CW To
To Neutr. E-6 To E-8 To E-10 E-ll
12.57 350.5 12.58 11.87 2,608.4
.13
3.26
.39
16.35 350. S 12.58 11.87 2,608.4
160 77 421 281 77
35 50 300 35 50
62 63 64 65
CW To LP STM CW To Pond Water
E-12 To E-9 E-5 To GS-1
154.3 4.26 197.0 30.0
154.3 4.26 197.0 30.0
77 281 77 75
50 35 50 10
-------
o
en
Figure C-4a. TRW Coal Desulfur1zat1on Gravlchem Process - Base Case 2
-------
Figure C-4b. TRW Coal Desulfurlzatlon Gravlchem Process - Base Case 2
-------
TRW COAL DESULFUR1ZATION GRAVICHEM PROCESS
DATEi APRIL 27, 1978 DRAWING NO. 2473-03
Figure C-5. TRW Coal Desulfur1zat1on Gravlchem Process - Base Case 2 - Steam Balance
-------
TABLE C-2. BASE CASE 2 - KENTUCKY NO. 9 COAL MATERIAL BALANCE
o
00
Stream
Description
Water
FeS04
Fe2(S04)3
H2S04
Coal
Pyri te
Sulfur
Oxygen
Ni trogen
Acetone
Lime
Gypsum
Total, TPH
T, °F
P, PSIG
1234
Recycled
Coal Leach Heating Mixer
Feed Solution Steam Slurry
22.22 386.92 9.62 417.28
12.25 38.96
144.99 113.29
24.00 32.11
191.01 191.01
8.99 6.92
.44
222.22 568.16 9.62 800.01
75 215 234 215
0 0 1 35
5
Float
Coal
Slurry
279.73
27.74
74.07
22.02
98.12
.93
.07
502.68
176
15
6
Sink
Coal
Slurry
137.41
13.62
36.38
10.82
92.89
5.81
.41
297.34
176
45
7
Reactor
Effluent
Slurry
138.29
2.37
59.29
6.00
92.89
.95
1.45
301.24
250
35
8
Reactor
Pumparound
43.63
.75
18.70
1.89
29.30
.30
.46
95.03
250
50
9 10 11
R-l R-2
Oxygen Oxygen
Oxygen Feed Feed
4.81 3.90 .91
4.81 3.90 .91
75 75 75
50 50 50
(Continued)
-------
TABLE C-2. (Continued)
Stream
Description
Water
FeS04
Fe2(S04)3
H2S04
Coal
Pyrlte
Sulfur
Oxygen
Nitrogen
Acetone
Lime
Gypsum
Total, TPH
T, °F
P, PSIG
12 13 14
F-3 LP
Flash Feed Steam
Steam Slurry To T-l
6.68 131.61 2.94
2.37
59.29
6.00
92.89
.95
1.45
6.68 294.56 2.94
219 219 290
2.3 20 35
15
F-l
Filtrate
230.18
22.82
60.94
18.12
332.06
160
65
16
F-l
Wash
Filtrate
99.12
4.91
13.11
3.90
121.04
160
65
17
F-3
Wash
Filtrate
35.26
.41
10.21
1.03
46.91
160
65
18
Evaporator
Feed
134.38
5.32
23.32
4.93
167.95
160
65
19
Evaporator
Bottoms
69.71
5.32
23.32
4.93
103.28
291
35
20 21
LP STM LP STM
To E-9 From EV-1
5.83 58.84
5.83 58.84
291 291
35 35
(Continued)
-------
TABLE C-2. (Continued)
Stream
Description
Water
FeS04
H2S04 * 3
Coal
Pyri te
Sulfur
Oxygen
Ni trogen
Acetone
Lime
Gypsum
Total , TPH
T, °F
f, PSIG
22 23 24 25 26 27
F-5 F-5 F-3 Pond Makeup
Filter Wash Wash Wash Water Wash
Cake Water Water Water Return Water
49.56 165.83 99.12 66.71 78.04 26.31
.004
.01
.003
98.12
.93
.07
148.69 165.83 99.12 66.71 78.04 26.31
160 160 160 160 75 75
0 20 5 5 20 20
28 29 30 31
Recovered u cn
LP H2bU4 F-3 Regen.
Condensate Makeup Filtrate Effluent
55.90 .06 83.97 233.19
1.51 5.42
37.83 83.84
2.74 3.83 12.51
55.90 2.80 127.14 334.96
281 75 160 250
35 35 35 35
32
Leach
Solution
Recycle
386.93
12.25
144.99
24.01
568.18
216
0
(Continued)
-------
TABLE C-2. (Continued)
Stream 33 34
LP STM
Description CW FM EV-1
To E-l To E-2
Water 773 19.45
FeS04
Fe2(S04)3
H2S04
Coal
Pyri te
Sulfur
Oxygen
Ni trogen
Acetone
Lime
Gjypsum
Total, TPH 773 19.45
T, °F 77 291
P, PSIG 50 35
35 36 37
HP F-3
STM To LP STM Filter
EV-1 To E-l 3 Cake
79.0 1.62 47.65
.09
2.15
.22
92.89
.95
1.45
79.0 1.62 145.40
422 281 160
300 35 0
38
Acetone/
Coal
Slurry
47.65
.09
2.15
.22
92.89
.95
1.45
95.29
240.69
85
10
39 40 41
F-4
Acetone Acetone Filter
To T-ll To F-4 Cake
1.27
.002
.06
<.01
92.89
.95
.20
95.29 40.00 36.84
95.29 40.00 132.22
85 85 85
000
42
F-4
Filtrate
46.38
.084
2.09
.21
1.25
98.45
148.46
85
25
43
Stripper
Overhead
98.45
98.45
85
15
(Continued)
-------
TABLE C-2. (Continued)
Stream
Description
Mater
FeS04
Fe2(S04)3
Coal
Pyrite
Sulfur
Oxygen
Ni trogen
Acetone
Lime
Gypsum
Total, TPH
T, °F
P, PSIG
44 45
Stripper Sulfur
Bottoms Byproduct
46.38
.084
2.09
.21
1.25 1.25
50.01 1.25
250 250
15 15
46
Stripper
Bottoms To
Neutral izer
46.38
.08
2.09
.21
48.76
250
15
47 48 49 50
F-3 Wash
Filtrate To Neutral izer Gypsum Dried
Neutral izer Lime Feed To Pond Coal
31.45 78.04
.36 .002
9.11 .06
.92 <.01
92.89
.95
.20
.53
.1
5.52
18.08
41.84 5.52 96.12 94.74
160 75 160 225
0 - 10 0
51
Combined
Coal
Product
49.56
.006
.07
.01
191.01
1.88
.27
.53
.10
243.44
190
0
52
Acetone
Condensate
36.74
36.74
85
25
(Continued)
-------
TABLE C-2. (Continued)
Stream 53
Description Acetone
Makeup
Water
FeS04
Fe2(S04)3
H2S04
Coal
Pyrl te
Sulfur
Oxygen
Nitrogen
Acetone . 1
Lime
Gypsum
Total, TPH .1
T, °F 85
P, PSIG 25
54 55 56
Pond
Nitrogen Water To CW To
Makeup Scrubber E-5
25 197.0
.53
.53 25 197.0
77 75 77
20 15 50
57 58 59 60 61 62
CW To CW To CW To LP STM HP STM LP STM
E-12 E-ll E-6 To E-10 To E-8 To E-7
146.0 860.0 880.0 36.45 15.83 10.04
146.0 860.0 880.0 36.45 15.83 10.04
77 77 77 291 422 281
50 50 50 35 300 35
-------
TECHNICAL REPORT DATA
(Pleaic read laumctiuns on the reverse before completing!
REPORT NO.
EPA-600/7-79-013b
4. TITLE AND SUBTITLE
Reactor Test Project for Chemical Removal of
Pyritic Sulfur from Coal; Volume n. Appendices
3 RECIPIENT'S ACCESSION NO.
5. REPORT DATE
January 1979
6. PERFORMING ORGANIZATION CODE
7. AUTHOHIS)
R.A.Meyers, M.J.Santy, W. D. Hart,
L. C. McClanathan, and R. A. Orsini
8. PERFORMING ORGANIZATION REPORT NO.
9 PERFORMING ORGANIZATION NAME AND ADDRESS
TRW, Defense and Space Systems Group
One Space Park
Redondo Beach, California 90278
10 PROGRAM ELEMENT NO.
EHB527
11 CONTRACT/GRANT NO.
68-02-1880
12. SPONSORING AGENCY NAME AND ADDRESS
EPA, Office of Research and Development
Industrial Environmental Research Laboratory
Research Triangle Park, NC 27711
13. TYPE OF REPORT AND PERIOD COVERED
Final; 6/75 - 6/78.
14. SPONSORING AGENCY CODE
EPA/600/13
i6. SUPPLEMENTARY NOTES JERL-RTP project officer is Lewis
2709.
D. Tamny, Mail Drop 61, 919/
16. ABSTRACT
The report gives results of an evaluation of the initial performance of the
Reactor Test Unit (RTU) for chemical removal of pyritic sulfur from an Appalachian
coal. Operation of the plant—from its checkout and shakedown in September 1977
through January 1978—demonstrated that the RTU could be run continuously in three-
shift operation to reduce the coal from 2. 4 Ib SO2/mllllon Btu to a level of 1. 0 to
1.2 Ib SO2/million Btu, after rinsing and extraction of generated elemental sulfur.
There was no measurable coal oxidation during processing and leach rates in the
plant were greatly improved over bench-scale values. The leach solution/coal/oxy-
gen environment was found to be corrosive to the installed stainless steel reactor,
necessitating future upgrading to support additional testing. Bench-scale experiments
showed that the leach solution can be used as a homogeneous dense-media to effi-
ciently gravity-separate coal prior to processing. Beneficial engineering cost impro-
vements are obtained based on using this approach, resulting in capital cost estima-
tes of #68-69/kW and with $0.44-0. 50/million Btu processing costs, including amor-
tization of capital, for input coal costing $0. 78-0. 81/million Btu. Overall energy ef-
ficiency was 93-96%.
7.
KEY WORDS AND DOCUMENT ANALYSIS
DESCRIPTORS
b.IDENTIFIERS/OPEN ENDED TERMS
Pollution
Coal
Desulfurization
Pyrite
Chemical Cleaning
Rinsing
Extraction
Pollution Control
Stationary Sources
Pyritic Sulfur
c. COSATi Field/Group
13 B
08G,21D
07A,07D
13H
B. DISTRIBUTION STATEMENT
Unlimited
19. SECURITY CLASS (Thii Report}
Unclassified
21. NO. OF PAGES
117
20 SECURITY CLASS (Ttiu page!
Unclassified
22. PRICE
EPA Form 2220-1 (>-73)
114
------- |