PERM1$MAIN0128-May-1990 11:3228-May-1990 11:32VAX FORTRAN V4.8-276 PERM1$MAINPPERMAG.OUT Type N , M Type R , A , B , D , E , F ,C , AN1 Type Brms ( in kGs ) in the order of 1 to M Type IC IC could not be larger than 5, your IC is not valid. Reinput IC Type Z Type r_min , r_step, number of steps Type phi_min , phi_step , number of steps Type phi ( in degrees ) Type Z_min , Z_step , number of steps Type r Type Z , r_min , r_step , number of steps in r Type phi ( in degrees ) Type r , phi , Z r= phi= z= Br= Bphi= Bz= Bt= Thank you, one more run? (Y/N) Any change ? (Y/N) Any change ? (Y/N) Magnet Specifications:  Your input: M = can not construct such multipole. Reenter N and M  N =   M =  R = A = B = D = E = F = C =  AN1 = = IC =  Z = rphi Br Bphi Bz Bt  PHI = r ZBr Bphi Bz Bt  r = Zphi Br Bphi Bz Bt  Z =  PHI = r Br Bphi Bz BtrphiZ Br Bphi Bz Bt Dear Sir;8 Sorry, Your input dimensions is not rigth to construct1 the multipole you want, try again please.      ) N =  M =  , any change ? (Y/N) R = , A = , B = , D = E = , F = , C =  , AN1 = =  PERM1$MAINTRANSFER$ADDRESS+P0*1*2*  + FOR$OPEN@ (0E u6 )-')B k1v*++++ 6 PO@*[ ^}IA!h˨FOR$OPENK  FOR$WRITE_SF FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$READ_SL FOR$IO_L_R FOR$IO_L_R FOR$IO_ENDk FOR$WRITE_SF FOR$IO_L_V FOR$IO_END~ FOR$READ_SL FOR$IO_L_R FOR$IO_L_R FOR$IO_END|nt  FOR$WRITE_SF FOR$IO_L_V FOR$IO_L_V FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$READ_SL0 FOR$IO_D_Rk FOR$IO_D_R FOR$IO_D_R FOR$IO_D_R  FOR$IO_D_R( FOR$IO_D_R FOR$IO_D_R  FOR$IO_F_R FOR$IO_ENDV PdPg4DP8  FOR$WRITE_SF}0~ FOR$IO_D_V}k~ FOR$IO_D_V}~ FOR$IO_D_V}~ FOR$IO_D_V} ~ FOR$IO_D_V}(~ FOR$IO_D_V}~ FOR$IO_D_V  FOR$IO_F_V FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END FOR$READ_SL~` FOR$IO_X_NL| FOR$IO_ENDV~`W(2 FOR$WRITE_IFV FOR$IO_L_V FOR$IO_END5  FOR$WRITE_SF˘ FOR$IO_T_DS FOR$IO_D_R FOR$IO_ENDVs }(e(l~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$READ_SL FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$READ_SL FOR$IO_L_R FOR$IO_ENDA  FOR$WRITE_SF FOR$IO_L_V FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$READ_SL FOR$IO_F_R FOR$IO_ENDO  FOR$WRITE_SF FOR$IO_F_V FOR$IO_END^  FOR$WRITE_SF FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$READ_SL@ FOR$IO_D_RH FOR$IO_D_R FOR$IO_L_R FOR$IO_END ~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$READ_SLP FOR$IO_D_Rˀ FOR$IO_D_R$ FOR$IO_L_R FOR$IO_END$(1~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$READ_SL, FOR$IO_F_R FOR$IO_END  FOR$WRITE_SF, FOR$IO_F_V FOR$IO_END  FOR$WRITE_SF FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$READ_SL@ FOR$IO_D_RH FOR$IO_D_R FOR$IO_L_R FOR$IO_END ~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$READ_SLˈ FOR$IO_D_Rː FOR$IO_D_R$ FOR$IO_L_R FOR$IO_END$(1~ FOR$WRITE_SL  FOR$IO_T_DS FOR$IO_END~ FOR$READ_SL0 FOR$IO_F_R FOR$IO_END  FOR$WRITE_SF0 FOR$IO_F_V FOR$IO_END  FOR$WRITE_SF FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$READ_SLˈ FOR$IO_D_Rː FOR$IO_D_R FOR$IO_L_R FOR$IO_END ~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$READ_SLP FOR$IO_D_Rˀ FOR$IO_D_R$ FOR$IO_L_R FOR$IO_END$(1~ FOR$WRITE_SL( FOR$IO_T_DS FOR$IO_END~ FOR$READ_SL4 FOR$IO_F_R@ FOR$IO_D_RH FOR$IO_D_R FOR$IO_L_R FOR$IO_END (~ FOR$WRITE_SL0 FOR$IO_T_DS FOR$IO_END~ FOR$READ_SL8 FOR$IO_F_R FOR$IO_END  FOR$WRITE_SF4 FOR$IO_F_V8 FOR$IO_F_V FOR$IO_END  FOR$WRITE_SF FOR$IO_END~ FOR$WRITE_SL8 FOR$IO_T_DS FOR$IO_END~ FOR$READ_SL< FOR$IO_F_R@ FOR$IO_F_RD FOR$IO_F_R FOR$IO_END5  FOR$WRITE_SF FOR$IO_END (ePf0P MTH$DATAN_R7gtbPvPXePak0fP MTH$DATAN_R7bPjP\a PgPlP MTH$DATAN_R7bPjPPNPPSXN\\c FOR$WRITE_SF FOR$IO_END1WcPdPfkP MTH$DATAN_R7}P˰s c(PdPf P MTH$DATAN_R7}P˸}˸PMTH$DSINCOS_R7}Ph}Rp}˰PMTH$DSINCOS_R7}PX}R`VxV4xV,RdRg4DR˨0H h 1RnRRdˀRaRˈxRnRRdHR`@RvRH(dP(1PRnRRdːRaRˈxPRnRRdՀR`PRdRg4DR˨V@RdRg4DR˨VDx<HV8RdRg4DR˨e4D˨RgR˘}˨PMTH$DSINCOS_R7}P\}RTVHPePTeP\`X~h\ePXRnRRdRPftPMTH$DSINCOS_R7eRVe`PTaTV`d`RdPcPRX\1~Pq01ak0RqR1c0ReXRTeVcVYd`YqTY1ckReXȀeRcRe`XqX1`Vd`VrVVqTV`Re`RVrVVqVs ehVepTqVTc TdhTclXdpXqTXdpRrRRqVRalRdpRrRRqTR\$¹SH@67HB67H1|ePqxP`;nOxrPPqxPb;nOx\1NPVPLnPdP\RnRRdRPfLPa8PePftPeRPˠ\\~L˸D~LXH@}PD~L˸D~LXH@}P<~L˸D~LXH@}P4~L˸D~LXˀH@}P,~L˸D~LXH@}P$~L˸D~LXH@}P~L˸D~LXH@}P~L˸D~LXH@}P ~L˸D~LXH@}P~L˸D~LXH@}P~L˸D~LXH@}P~L˸D~LXH@}P~L˸D~LXHˀ@}P~L˸D~LXH@}P~L˸D~LXH@}P~L˸D~LXH@}P~L˸D~LXH@}P~L˸ˁD~LXH@}Pͼ~L˸D~LXH@}Pʹ~L˸D~LXH@}P~L˸D~LXH@}P~L˸D~LXH@π}Pͬ~L˸D~LXH@}Pͤ~L˸D~LXH@}P͜~L˸D~LXH@}P~L˸D~LXH@}P~L˸D~LˌXH@}PV~L˸D~LXH@}PX~L˸D~LXH@}P~L˸D~LXH@}P~L˸D~LXH@}PR~L˸D~LXH@}PT~L˸D~LXH@}P~L˸D~LXH@}P~L˸D~LXH@}P~L˸D~LXH@}P~L˸D~LXH@}P~L˸D~LXH@}P~L˸D~LXH@}P~L˸D~LXH@}P~L˸D~LXH@}P͔~L˸D~LXH@}P~L˸D~LXH@}P~L˸D~LXH@}P͌~L˸D~LXH@}Ṕ~L˸D~LXH@}P~L˸D~LXH@}P|~L˸D~LXH@}Pt~L˸D~LXH@}Pl~L˸D~LXˀH@}Pd~L˸D~LXH@}P\~L˸D~LXH@}PT~L˸D~LXH@}PL~L˸D~LXH@}PD~L˸D~LXH@}P<~L˸D~LXH@}P4dTRdVRdXReXdXdXgXRP MTH$DLOG_R8}P,eԭPdPdPe쭈RdRdRfRP MTH$DLOG_R8}P$e͔Pe͌RfRP MTH$DLOG_R8}Pë́Pet|RfRP MTH$DLOG_R8}P|eT\PedlRfRP MTH$DLOG_R8}Ple4PTP P&PBPbPBPPnPQPnP PP P+H PU Pb P P P PG P P P P Po P& P- P%Y P* P" P PQ PGM P[ Pi P P P Po P\ PL PF P+ P( P 1 P"9 PD P ^ P s P  Pc  P P( PZ9 PU Phq P P P P0 Px PP5PQP/mP}PPPP\PP1PMP9iPPPPPP" PC%Pe?PYPtPPPP>P`PP1P`MP|hPPPPPPP*PFPHbPn~PPP P/PPPP3 P'P !CPl!^P!zP"PP*PzPP!"P9">P"ZP"vPPP"P#P?PiP0PKP"fP#P2#P\#P/PYPXKPYPMPhePPPPf% wO: