0INPUT STREAM AND MESSAGE LOG: TITLE EROS;FULL MACHINE VERSION MAR84 INJEC. POINT (29.55 CM IN FRONT OF QS3F !* ! THIS DATASET CONTAINS THE MISALIGNMENT SCHEME DEVELOPPED IN FEBRUARY 5 ! 1985 . THE HC MAGNETS ARE USED TO STEER HORIZONTALLY !** UTRANSPORT NOECHO QS1D:QUADRUPOLE,L= 0.25,K1= -2.52269412 QS2F:QUADRUPOLE,L= 0.25,K1= 2.24132745 30 QS2D:QUADRUPOLE,L= 0.25,K1= -1.18504679 QS3F:QUADRUPOLE,L= 0.25,K1= 1.099786801 QS3D:QUADRUPOLE,L= 0.25,K1= -1.318180800 NOECHO 0... BEAM LINE "BL" EXPANDED: 162 ELEMENTS, 164 POSITIONS ... END OF "USE" COMMAND. -------------------------------------------------------------------------------- INCLUDE 'COSY' ; PROCEDURE RUN ; VARIABLE APER_QUAD 1 ; VARIABLE APER_SEXT 1 ; VARIABLE APER_QUSE 1 ; VARIABLE APER_BEND 1 ; PROCEDURE GKIN DX DPX DY DPY DS DSR DDEL ; VARIABLE SMAP 2000 ; MAP(1) := MAP(1)+DX ; MAP(2) := (MAP(2)+DPX)*(1.0+DDEL) ; MAP(3) := MAP(3)+DY ; MAP(4) := (MAP(4)+DPY)*(1.0+DDEL) ; MAP(6) := (MAP(6)+DDEL)*(1+DDEL) ; DL DS ; SMAP := MAP(1) ; MAP(1) := MAP(1)*COS(DSR)+MAP(3)*SIN(DSR) ; MAP(3) := -SMAP*SIN(DSR)+MAP(3)*COS(DSR) ; SMAP := MAP(2) ; MAP(2) := MAP(2)*COS(DSR)+MAP(4)*SIN(DSR) ; MAP(4) := -SMAP*SIN(DSR)+MAP(4)*COS(DSR) ; ENDPROCEDURE ; PROCEDURE GKOUT DX DPX DY DPY DS DSR DDEL ; VARIABLE SMAP 2000 ; SMAP := MAP(1) ; MAP(1) := MAP(1)*COS(DSR)+MAP(3)*SIN(DSR) ; MAP(3) := -SMAP*SIN(DSR)+MAP(3)*COS(DSR) ; SMAP := MAP(2) ; MAP(2) := MAP(2)*COS(DSR)+MAP(4)*SIN(DSR) ; MAP(4) := -SMAP*SIN(DSR)+MAP(4)*COS(DSR) ; DL DS ; MAP(6) := MAP(6)/(1-DDEL)+DDEL ; MAP(1) := MAP(1)+DX ; MAP(2) := (MAP(2)/(1-DDEL)+DPX) ; MAP(3) := MAP(3)+DY ; MAP(4) := (MAP(4)/(1-DDEL)+DPY) ; ENDPROCEDURE ; PROCEDURE FC1 ; DL 0.2916459000000002E+00 ; ENDPROCEDURE ; PROCEDURE FS1N ; DL 0.2254000000000000E+01 ; ENDPROCEDURE ; PROCEDURE FC2 ; DL 0.3000000000000002E+00 ; ENDPROCEDURE ; PROCEDURE FC3 ; DL 0.6916459000000005E+00 ; ENDPROCEDURE ; PROCEDURE DFCH ; VARIABLE NA 1 ; VARIABLE I 1 ; VARIABLE KA 1 2 ; VARIABLE TA 1 2 ; NA := 2 ; LOOP I 1 NA ; KA(I) := 0 ; TA(I) := 0 ; ENDLOOP ; KA(1) := 0.3643643950000003E+01 ; TA(1) := 0.0000000000000000E+00 ; KA(2) := -0.5941869210000005E+01 ; TA(2) := 0.0000000000000000E+00 ; MMSK 0.1500000000000000E+00 KA TA NA APER_QUSE ; ENDPROCEDURE ; PROCEDURE DDCH ; VARIABLE NA 1 ; VARIABLE I 1 ; VARIABLE KA 1 2 ; VARIABLE TA 1 2 ; NA := 2 ; LOOP I 1 NA ; KA(I) := 0 ; TA(I) := 0 ; ENDLOOP ; KA(1) := -0.2315894740000002E+01 ; TA(1) := 0.0000000000000000E+00 ; KA(2) := -0.3899127644000004E+01 ; TA(2) := 0.0000000000000000E+00 ; MMSK 0.3000000000000000E+00 KA TA NA APER_QUSE ; ENDPROCEDURE ; PROCEDURE QFCH ; MQK 0.1500000000000000E+00 0.3643643950000003E+01 APER_QUAD ; ENDPROCEDURE ; PROCEDURE QDCH ; MQK 0.3000000000000000E+00 -0.2315894740000002E+01 APER_QUAD ; ENDPROCEDURE ; PROCEDURE DSH ; VARIABLE NA 1 ; VARIABLE I 1 ; VARIABLE KA 1 2 ; VARIABLE TA 1 2 ; NA := 2 ; LOOP I 1 NA ; KA(I) := 0 ; TA(I) := 0 ; ENDLOOP ; KA(1) := 0.2618529250000002E+01 ; TA(1) := 0.0000000000000000E+00 ; KA(2) := -0.2970934610000003E+01 ; TA(2) := 0.0000000000000000E+00 ; MMSK 0.1500000000000000E+00 KA TA NA APER_QUSE ; ENDPROCEDURE ; PROCEDURE HC ; VARIABLE NT 1 ; VARIABLE KN 1 2 ; VARIABLE S1 1 2 ; VARIABLE S2 1 2 ; NT := 2 ; KN(1) := 0.0000000000000000E+00 ; KN(2) := 0.0000000000000000E+00 ; S1(1) := 0.4142135623730950E+00 ; S1(2) := 0.0000000000000000E+00 ; S2(1) := 0.4142135623730950E+00 ; S2(2) := 0.0000000000000000E+00 ; MCLK 0.7853981600000006E+00 0.4500000000000000E+02 0.2000000000000000E-01 KN S1 S2 NT ; ENDPROCEDURE ; PROCEDURE FS1 ; DL 0.2554000000000001E+01 ; ENDPROCEDURE ; PROCEDURE FS2 ; DL 0.1125500000000001E+01 ; ENDPROCEDURE ; PROCEDURE FS3 ; DL 0.3237000000000001E+01 ; ENDPROCEDURE ; PROCEDURE FIE1 ; DL 0.2955000000000002E+00 ; ENDPROCEDURE ; PROCEDURE FIE2 ; DL 0.2941500000000001E+01 ; ENDPROCEDURE ; PROCEDURE FSE1 ; DL 0.2737000000000001E+01 ; ENDPROCEDURE ; PROCEDURE FSE2 ; DL 0.3000000000000000E+00 ; ENDPROCEDURE ; PROCEDURE QS1D ; MQK 0.2500000000000001E+00 -0.2522694120000002E+01 APER_QUAD ; ENDPROCEDURE ; PROCEDURE QS2F ; MQK 0.2500000000000001E+00 0.2241327450000002E+01 APER_QUAD ; ENDPROCEDURE ; PROCEDURE QS2D ; MQK 0.2500000000000001E+00 -0.1185046790000001E+01 APER_QUAD ; ENDPROCEDURE ; PROCEDURE QS3F ; MQK 0.2500000000000001E+00 0.1099786801000001E+01 APER_QUAD ; ENDPROCEDURE ; PROCEDURE QS3D ; MQK 0.2500000000000001E+00 -0.1318180800000001E+01 APER_QUAD ; ENDPROCEDURE ; PROCEDURE SE1 ; MSK 0.2000000000000000E+00 0.1500000000000000E+01 APER_SEXT ; ENDPROCEDURE ; PROCEDURE SE2 ; MSK 0.2000000000000000E+00 -0.1500000000000000E+01 APER_SEXT ; ENDPROCEDURE ; PROCEDURE FK11 ; DL 0.5000000000000000E+00 ; ENDPROCEDURE ; PROCEDURE FK12 ; DL 0.6255000000000003E+00 ; ENDPROCEDURE ; PROCEDURE FK21 ; DL 0.2613000000000002E+01 ; ENDPROCEDURE ; PROCEDURE FK22 ; DL 0.6240000000000006E+00 ; ENDPROCEDURE ; PROCEDURE K1 ; GKIN 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 ; ENDPROCEDURE ; PROCEDURE K2 ; GKIN 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 ; ENDPROCEDURE ; PROCEDURE KCV ; GKIN 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 ; ENDPROCEDURE ; PROCEDURE KSV ; GKIN 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 ; ENDPROCEDURE ; PROCEDURE KSH ; GKIN 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 ; ENDPROCEDURE ; PROCEDURE PMS ; DL 0.0000000000000000E+00 ; ENDPROCEDURE ; PROCEDURE PMC ; DL 0.0000000000000000E+00 ; ENDPROCEDURE ; PROCEDURE MRKC1 ; PS 0.01 ; ENDPROCEDURE ; PROCEDURE MRKC2 ; PS 0.01 ; ENDPROCEDURE ; PROCEDURE MRKS1 ; PS 0.01 ; ENDPROCEDURE ; PROCEDURE MRKS2 ; PS 0.01 ; ENDPROCEDURE ; PROCEDURE MACH ; DSH ; MRKC1 ; FC3 ; KCV ; DDCH ; FC2 ; HC ; FC1 ; DFCH ; DFCH ; FC3 ; KCV ; DDCH ; FC2 ; HC ; PMC ; FC1 ; DFCH ; DFCH ; FC3 ; KCV ; DDCH ; FC2 ; HC ; PMC ; FC1 ; DFCH ; DFCH ; FC3 ; KCV ; DDCH ; FC2 ; HC ; PMC ; FC1 ; DSH ; DSH ; FS1 ; PMC ; MRKS1 ; QS1D ; KSV ; FK11 ; K1 ; FK12 ; QS2F ; KSH ; FS3 ; QS2D ; FIE2 ; FIE1 ; QS3F ; PMS ; FS3 ; QS3D ; KSV ; FS3 ; QS3F ; KSH ; FK21 ; K2 ; FK22 ; QS3D ; FSE1 ; SE1 ; FSE2 ; QS3F ; PMS ; FS3 ; QS3D ; FS3 ; KSH ; QS3F ; FS3 ; KSV ; QS2D ; FS3 ; QS2F ; FS2 ; PMS ; QS1D ; FS1 ; DSH ; DSH ; MRKC2 ; FC3 ; KCV ; DDCH ; FC2 ; HC ; FC1 ; DFCH ; DFCH ; FC3 ; KCV ; DDCH ; FC2 ; HC ; PMC ; FC1 ; DFCH ; DFCH ; FC3 ; KCV ; DDCH ; FC2 ; HC ; PMC ; FC1 ; DFCH ; DFCH ; FC3 ; KCV ; DDCH ; FC2 ; HC ; PMC ; FC1 ; DSH ; DSH ; FS1 ; PMC ; MRKS2 ; QS1D ; KSV ; FS2 ; QS2F ; KSH ; FS3 ; QS2D ; FS3 ; QS3F ; PMS ; FS3 ; QS3D ; KSV ; FS3 ; QS3F ; KSH ; FS3 ; QS3D ; FSE1 ; SE2 ; FSE2 ; QS3F ; PMS ; FIE1 ; FIE2 ; QS3D ; FS3 ; KSH ; QS3F ; FS3 ; KSV ; QS2D ; FS3 ; QS2F ; FS2 ; PMS ; QS1D ; FS1 ; DSH ; ENDPROCEDURE ; {Adjust the following apertures.} APER_QUAD := 0.05 ; APER_SEXT := 0.05 ; APER_QUSE := 0.05 ; APER_BEND := 0.05 ; ENDPROCEDURE ; RUN ; END ;