TITLE !CESR optics N9A19C501.FD93S_4S (5.289 GeV, February, 1996) !sext. distrib. from:CSR_SET.35953 KF=0.001*(17.44*DQX+4.814*DQY) KD=0.001*(4.726*DQX+18.1123*DQY) tetn=0.769030*0.001*PR/2418. tets=-0.460588*0.001*PR/2418. F701E:HKICKER,KICK=tets, F701W:HKICKER,KICK=-tets, F702E:HKICKER,KICK= tetn, F702W:HKICKER,KICK=-tetn, F701ME:MULTIPOLE, K2L=-tets*2.0*B2, K4L=-tets*24.*B4 F701MW:MULTIPOLE, K2L= tets*2.0*B2, K4L= tets*24.*B4 F702ME:MULTIPOLE, K2L=-tetn*2.0*B2, K4L=-tetn*24.*B4 F702MW:MULTIPOLE, K2L= tetn*2.0*B2, K4L= tetn*24.*B4 ! F701ME:MULTIPOLE, K2L= 0.0, K4L=-tets*24.*B4 ! F701MW:MULTIPOLE, K2L= 0.0, K4L= tets*24.*B4 ! F702ME:MULTIPOLE, K2L= 0.0, K4L=-tetn*24.*B4 ! F702MW:MULTIPOLE, K2L= 0.0, K4L= tetn*24.*B4 Q48M:MULTIPOLE,K2L=B2Q48, K3L=B3Q48 F154:DRIFT,L= 0.0001000, F101:DRIFT,L= 0.7123000, F102:DRIFT,L= 0.4951500, F103:DRIFT,L= 0.1571400, F104:DRIFT,L= 0.8730400, F105:DRIFT,L= 6.0599999, F106:DRIFT,L= 5.3699999, F107:DRIFT,L= 0.5017500, F108:DRIFT,L= 8.8683300, F109:DRIFT,L= 5.9105701, F110:DRIFT,L= 0.6400000, F111:DRIFT,L= 0.7602000, F112:DRIFT,L= 1.4574000, F125:DRIFT,L= 1.4977000, F129:DRIFT,L= 1.5736001, F113:DRIFT,L= 3.0736001, F114:DRIFT,L= 0.3772100, F115:DRIFT,L= 0.6094700, F116:DRIFT,L= 0.2353800, F117:DRIFT,L= 5.7094498, F118:DRIFT,L= 1.6799999, F119:DRIFT,L= 2.0000000, F120:DRIFT,L= 0.4600000, F121:DRIFT,L= 1.9200000, F122:DRIFT,L= 2.0000000, F123:DRIFT,L= 1.0800000, F124:DRIFT,L= 0.2980100, F126:DRIFT,L= 0.2250000, F127:DRIFT,L= 2.3998101, F128:DRIFT,L= 3.3399999, F134:DRIFT,L= 0.5683000, F135:DRIFT,L= 2.6137600, F136:DRIFT,L= 0.6835400, F139:DRIFT,L= 1.0255001, F142:DRIFT,L= 0.5000000, F141:DRIFT,L= 1.7199900, F143:DRIFT,L= 1.6520000, F145:DRIFT,L= 0.8538000, F146:DRIFT,L= 1.1056401, F147:DRIFT,L= 0.7901300, F148:DRIFT,L= 2.0500000, F140:DRIFT,L= 0.0000010, F149:DRIFT,L= 0.6000000, F150:DRIFT,L= 3.6456001, F151:DRIFT,L= 0.1826000, F152:DRIFT,L= 5.7398100, F153:DRIFT,L= 1.3260000, H208:SBEND,L= 6.5752883,ANGLE= 0.112200,E1= 0.028050,E2= 0.028050, H201:SBEND,L= 6.5742621,ANGLE= 0.074800,E1= 0.018700,E2= 0.018700, H203:SBEND,L= 2.9453139,ANGLE= 0.020944,E1= 0.010472,E2= 0.010472, H202:SBEND,L= 3.2379034,ANGLE= 0.102289,E1= 0.000000,E2= 0.000000, H204:SBEND,L= 1.6435239,ANGLE= 0.018699,E1= 0.009350,E2= 0.009350, H206:SBEND,L= 3.2871714,ANGLE= 0.037400,E1= 0.018700,E2= 0.018700, H207:SBEND,L= 3.1772223,ANGLE= 0.091254,E1= 0.000000,E2= 0.000000, Q300:QUAD,L= 0.000000,K1=2100.000000, Q301W:QUAD,L= 0.950000,K1= 0.635233*(1.+D301), Q301E:QUAD,L= 0.950000,K1= 0.635233*(1.-D301), Q302:QUAD,L= 0.600000,K1= -0.209883, Q303:QUAD,L= 0.600000,K1= -0.089052, Q304:QUAD,L= 0.600000,K1= 0.411895, Q305:QUAD,L= 0.600000,K1= -0.369327, Q306:QUAD,L= 0.600000,K1= 0.423729, Q307:QUAD,L= 0.600000,K1= -0.262480, Q308:QUAD,L= 0.600000,K1= 0.146766+KF, Q309:QUAD,L= 0.600000,K1= -0.206433-KD, Q310:QUAD,L= 0.600000,K1= 0.269006+KF, Q311:QUAD,L= 0.600000,K1= -0.201281-KD, Q312:QUAD,L= 0.600000,K1= 0.262384+KF, Q313:QUAD,L= 0.600000,K1= -0.211195-KD, Q314:QUAD,L= 0.600000,K1= 0.277733+KF, Q315:QUAD,L= 0.600000,K1= -0.227194-KD, Q316:QUAD,L= 0.600000,K1= 0.275136+KF, Q317:QUAD,L= 0.600000,K1= -0.275177-KD, Q318:QUAD,L= 0.600000,K1= 0.228448+KF, Q319:QUAD,L= 0.600000,K1= -0.328521-KD, Q320:QUAD,L= 0.600000,K1= 0.230920+KF, Q321:QUAD,L= 0.600000,K1= -0.279613-KD, Q322:QUAD,L= 0.600000,K1= 0.248496+KF, Q323:QUAD,L= 0.600000,K1= -0.256943-KD, Q324:QUAD,L= 0.600000,K1= 0.244485+KF, Q325:QUAD,L= 0.600000,K1= -0.325334-KD, Q326:QUAD,L= 0.600000,K1= 0.237703+KF, Q327:QUAD,L= 0.600000,K1= -0.311296-KD, Q328:QUAD,L= 0.600000,K1= 0.246101+KF, Q329:QUAD,L= 0.600000,K1= -0.221586-KD, Q330:QUAD,L= 0.600000,K1= 0.236551+KF, Q331:QUAD,L= 0.600000,K1= -0.215464-KD, Q332:QUAD,L= 0.600000,K1= 0.193825+KF, Q333:QUAD,L= 0.600000,K1= -0.185790-KD, Q334:QUAD,L= 0.600000,K1= 0.227063+KF, Q335:QUAD,L= 0.600000,K1= -0.175132-KD, Q336:QUAD,L= 0.600000,K1= 0.232299+KF, Q337:QUAD,L= 0.600000,K1= -0.232681-KD, Q338:QUAD,L= 0.600000,K1= 0.251494+KF, Q339:QUAD,L= 0.600000,K1= -0.207116-KD, Q340:QUAD,L= 0.600000,K1= 0.249258+KF, Q341:QUAD,L= 0.600000,K1= -0.218460-KD, Q342:QUAD,L= 0.600000,K1= 0.242729+KF, Q343:QUAD,L= 0.600000,K1= -0.184771-KD, Q344:QUAD,L= 0.600000,K1= 0.300126+KF, Q345:QUAD,L= 0.600000,K1= -0.271702, Q346:QUAD,L= 0.600000,K1= 0.351877, Q347:QUAD,L= 0.600000,K1= -0.050139, Q348:QUAD,L= 0.600000,K1= 0.546356, Q349:QUAD,L= 0.950000,K1= -0.272411, Q350:QUAD,L= 0.600000,K1= -0.268435, Q351:QUAD,L= 1.524800,K1= -0.837600, Q353:QUAD,L= 0.000001,K1= 0.000001, Q354:QUAD,L= 0.000001,K1= 0.000001, Q355:QUAD,L= 0.000001,K1= 0.000001, Q356:QUAD,L= 0.000001,K1= -0.138051, Q358:QUAD,L= 0.000001,K1= 0.000398, Q360:QUAD,L= 0.000001,K1= 0.000001, F155:DRIFT,L= 0.4403000, F156:DRIFT,L= 5.4374499, ! F157:DRIFT,L= 8.5963297, F1RF:DRIFT,L=1.512 F2RF:DRIFT,L=2.7543297 RF:RFCAVITY,L=4.33,VOLT=3.00,HARMON=1281,& SHUNT=100.0,TFILL=2. F157:LINE=(F1RF,RF,F2RF) F158:DRIFT,L= 5.6385703, F159:DRIFT,L= 0.6010400, F160:DRIFT,L= 0.1880000, F161:DRIFT,L= 1.6480000, F162:DRIFT,L= 5.7880001, F163:DRIFT,L= 1.7280000, F164:DRIFT,L= -0.0470000+0.8730400, F165:DRIFT,L= 0.8080000, F166:DRIFT,L= 5.0980000, F167:DRIFT,L= 0.2963000, F168:DRIFT,L= 0.7535000, F169:DRIFT,L= 0.4115400, F170:DRIFT,L= 3.3736000, F171:DRIFT,L= 2.1278100, F172:DRIFT,L= 1.0540000, S401:SEXT,L= 0.2720000,K2= 0.00000, S402:SEXT,L= 0.2720000,K2= 0.00000, S403:SEXT,L= 0.2720000,K2= 0.00000, S404:SEXT,L= 0.2720000,K2= 0.00000, S405:SEXT,L= 0.2720000,K2= 0.00000, S406:SEXT,L= 0.2720000,K2= 0.00000, S407:SEXT,L= 0.2720000,K2= 0.00000, S408:SEXT,L= 0.2720000,K2= 0.22267, S409:SEXT,L= 0.2720000,K2= -1.31375, S410:SEXT,L= 0.2720000,K2= 1.10592, S411:SEXT,L= 0.2720000,K2= -0.79975, S412:SEXT,L= 0.2720000,K2= 0.21710, S413:SEXT,L= 0.2720000,K2= -0.20782, S414:SEXT,L= 0.2720000,K2= 0.93892, S415:SEXT,L= 0.2720000,K2= -2.05041, S416:SEXT,L= 0.2720000,K2= 0.40823, S417:SEXT,L= 0.2720000,K2= -0.49729, S418:SEXT,L= 0.2720000,K2= 0.36555, S419:SEXT,L= 0.2720000,K2= -1.51601, S420W:SEXT,L= 0.2720000,K2= k20W, S420E:SEXT,L= 0.2720000,K2= k20E, S421:SEXT,L= 0.2720000,K2= -1.14304, S422:SEXT,L= 0.2720000,K2= 1.07067, S423:SEXT,L= 0.2720000,K2= -1.51415, S424:SEXT,L= 0.2720000,K2= 0.31545, S425:SEXT,L= 0.2720000,K2= -1.30076, S426:SEXT,L= 0.2720000,K2= 0.76635, S427:SEXT,L= 0.2720000,K2= -0.95562, S428:SEXT,L= 0.2720000,K2= 0.29689, S429:SEXT,L= 0.2720000,K2= -0.69955, S430:SEXT,L= 0.2720000,K2= 0.68100, S431:SEXT,L= 0.2720000,K2= -1.82774, S432:SEXT,L= 0.2720000,K2= 0.24865, S433:SEXT,L= 0.2720000,K2= -1.41766, S434:SEXT,L= 0.2720000,K2= 1.02799, S435:SEXT,L= 0.2720000,K2= -0.35813, S436:SEXT,L= 0.2720000,K2= 1.36942, S437:SEXT,L= 0.2720000,K2= -1.97619, S438:SEXT,L= 0.2720000,K2= 1.16159, S439W:SEXT,L= 0.2720000,K2= k39W, S439E:SEXT,L= 0.2720000,K2= k39E, S440:SEXT,L= 0.2720000,K2= 0.55482, S441:SEXT,L= 0.2720000,K2= -0.82573, S442:SEXT,L= 0.2720000,K2= 0.66986, S443:SEXT,L= 0.2720000,K2= -1.31746, S444:SEXT,L= 0.2720000,K2= 0.41565, S445:SEXT,L= 0.2720000,K2= -1.52343, S446:SEXT,L= 0.2720000,K2= 0.00000, S447:SEXT,L= 0.2720000,K2= 0.00000, S448:SEXT,L= 0.2720000,K2= 0.00000, S449:SEXT,L= 0.2720000,K2= 0.00000, S450:SEXT,L= 0.2720000,K2= 0.00000, S451:SEXT,L= 0.2720000,K2= 0.00000, S452:SEXT,L= 0.2720000,K2= 0.00000, S453:SEXT,L= 0.2720000,K2= 0.00000, S454:SEXT,L= 0.2720000,K2= -1.74424, S455:SEXT,L= 0.2720000,K2= 0.40080, S456:SEXT,L= 0.2720000,K2= -1.58281, S457:SEXT,L= 0.2720000,K2= 0.64389, S458:SEXT,L= 0.2720000,K2= -0.83501, S459:SEXT,L= 0.2720000,K2= 0.68100, S460:SEXT,L= 0.2720000,K2= -0.79790, S461:SEXT,L= 0.2720000,K2= 1.26550, S462:SEXT,L= 0.2720000,K2= -1.76651, S463:SEXT,L= 0.2720000,K2= 1.25994, S464:SEXT,L= 0.2720000,K2= -0.45091, S465:SEXT,L= 0.2720000,K2= 0.97047, S466:SEXT,L= 0.2720000,K2= -1.61992, S467:SEXT,L= 0.2720000,K2= 0.20782, S468:SEXT,L= 0.2720000,K2= -1.90011, S469:SEXT,L= 0.2720000,K2= 0.69399, S470:SEXT,L= 0.2720000,K2= -0.50101, S471:SEXT,L= 0.2720000,K2= 0.24123, S472:SEXT,L= 0.2720000,K2= -0.77006, S473:SEXT,L= 0.2720000,K2= 0.78676, S474:SEXT,L= 0.2720000,K2= -1.45477, S475:SEXT,L= 0.2720000,K2= 0.31545, S476:SEXT,L= 0.2720000,K2= -1.73682, S477:SEXT,L= 0.2720000,K2= 1.04098, S478:SEXT,L= 0.2720000,K2= -1.20798, S479:SEXT,L= 0.2720000,K2= 0.27463, S480:SEXT,L= 0.2720000,K2= -1.31746, S481:SEXT,L= 0.2720000,K2= 0.28761, S482:SEXT,L= 0.2720000,K2= -0.39524, S483:SEXT,L= 0.2720000,K2= 0.27834, S484:SEXT,L= 0.2720000,K2= -1.97990, S485:SEXT,L= 0.2720000,K2= 0.71440, S486:SEXT,L= 0.2720000,K2= -0.29133, S487:SEXT,L= 0.2720000,K2= 0.10020, S488:SEXT,L= 0.2720000,K2= -0.77563, S489:SEXT,L= 0.2720000,K2= 1.05026, S490:SEXT,L= 0.2720000,K2= -1.26550, S491:SEXT,L= 0.2720000,K2= 0.32473, S492:SEXT,L= 0.2720000,K2= 0.00000, S493:SEXT,L= 0.2720000,K2= 0.00000, S494:SEXT,L= 0.2720000,K2= 0.00000, S495:SEXT,L= 0.2720000,K2= 0.00000, S496:SEXT,L= 0.2720000,K2= 0.00000, S497:SEXT,L= 0.2720000,K2= 0.00000, S498:SEXT,L= 0.2720000,K2= 0.00000, RINGE: LINE=(& F110, Q351, F111, Q301E, F112, Q302, F125, F129, H203, F114, H204,& F115, Q303, F116, H202, S404, F155, Q304, F102, H202, S405, F155,& Q305, F102, H202, S406, F155, Q306, F102, H202, F124, Q307, S407,& F156, F701E, F701ME,& F118, Q308, S408, F157, Q309, S409, F158, Q310, S410,& F159, H201, F103, Q311, S411, F159, H201, F103, Q312, S412, F160,& F104, H201, F103, Q313, S413, F159, H201, F103, Q314, S414, F161,& F104, H201, F103, Q315, S415, F159, H201, F103, Q316, S416, F159,& H201, F103, Q317, S417, F159, H201, F103, Q318, S418, F162, Q319,& S419, F159, H201, F103, Q320, S420E, F159, H201, F103, Q321, S421,& F159, H201, F103, Q322, S422, F159, H201, F103, Q323, S423, F163,& F104, H201, F103, Q324, S424, F159, H201, F103, Q325, S425, F159,& H201, F103, Q326, S426, F164, H201, F103, Q327, S427, F159,& H201, F103, Q328, S428, F104, H201, F103, Q329, S429, F165,& F104, H201, F103, Q330, S430, F164, H201, F103, Q331, S431,& F159, H201, F103, Q332, S432, F164, H201, F103, Q333, S433,& F166, Q334, S434, F167, H201, F103, Q335, S435, F168, H201, F103,& F135, Q336, S436, F169, H201, F103, Q337, S437, F159, H201, F103,& Q338, S438, F164, H201, F103, Q339, S439E, F159, H201, F103,& Q340, S440, F159, H201, F103, Q341, S441, F159, H201, F103, Q342,& S442, F159, H201, F103, Q343, S443, F170, H208, F151, Q344, S444,& F171, F702E, F702ME,& F128, Q345, S445, F159, H208, F151, Q346, S446, F172,& H206, F145, Q347, F146, H207, F107, Q350, F147, H203, F143, Q353,& F141, Q348, Q48M, F148, Q349, F119, Q354, F140) RINGW: LINE=(& F110, Q351, F111, Q301W, F112, Q302, F125, F129, H203, F114, H204,& F115, Q303, F116, H202, S404, F155, Q304, F102, H202, S405, F155,& Q305, F102, H202, S406, F155, Q306, F102, H202, F124, Q307, S407,& F156, F701W, F701MW,& F118, Q308, S408, F157, Q309, S409, F158, Q310, S410,& F159, H201, F103, Q311, S411, F159, H201, F103, Q312, S412, F160,& F104, H201, F103, Q313, S413, F159, H201, F103, Q314, S414, F161,& F104, H201, F103, Q315, S415, F159, H201, F103, Q316, S416, F159,& H201, F103, Q317, S417, F159, H201, F103, Q318, S418, F162, Q319,& S419, F159, H201, F103, Q320, S420W, F159, H201, F103, Q321, S421,& F159, H201, F103, Q322, S422, F159, H201, F103, Q323, S423, F163,& F104, H201, F103, Q324, S424, F159, H201, F103, Q325, S425, F159,& H201, F103, Q326, S426, F164, H201, F103, Q327, S427, F159,& H201, F103, Q328, S428, F104, H201, F103, Q329, S429, F165,& F104, H201, F103, Q330, S430, F164, H201, F103, Q331, S431,& F159, H201, F103, Q332, S432, F164, H201, F103, Q333, S433,& F166, Q334, S434, F167, H201, F103, Q335, S435, F168, H201, F103,& F135, Q336, S436, F169, H201, F103, Q337, S437, F159, H201, F103,& Q338, S438, F164, H201, F103, Q339, S439W, F159, H201, F103,& Q340, S440, F159, H201, F103, Q341, S441, F159, H201, F103, Q342,& S442, F159, H201, F103, Q343, S443, F170, H208, F151, Q344, S444,& F171, F702W, F702MW,& F128, Q345, S445, F159, H208, F151, Q346, S446, F172,& H206, F145, Q347, F146, H207, F107, Q350, F147, H203, F143, Q353,& F141, Q348, Q48M, F148, Q349, F119, Q354, F140) USE,(RINGW,-RINGE) RETURN