Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/EGSDAT3_.05 =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/EGSDAT3_.05 (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/EGSDAT3_.05 (revision 1444) @@ -0,0 +1,2621 @@ + MEDIUM=AIR-NTP ,STERNCID=AIR-NTP + MIXT,RHO= 1.2250E-09,NE= 4,GASP= 1.0000E-06 + ASYM=N ,Z= 7.,A= 14.007,PZ= 5.39228E-02,RHOZ= 7.55280E-01 + ASYM=O ,Z= 8.,A= 15.999,PZ= 1.44793E-02,RHOZ= 2.31660E-01 + ASYM=AR,Z=18.,A= 39.948,PZ= 3.20917E-04,RHOZ= 1.28200E-02 + ASYM=C ,Z= 6.,A= 12.011,PZ= 3.33024E-06,RHOZ= 4.00000E-05 + 2.98933E+10 5.62000E-01 5.00000E-02 1.00000E+14 1.00000E+14 + 0 500 0 500 0 0 0 0 0 + 9.99982E-01 -2.10419E-01 4.82862E-02 9.95879E-01 -2.25858E-01 + 9.52000E-01 1.00022E+00 -1.78214E-01 3.43565E-02 1.01413E+00 + -2.29996E-01 9.52000E-01 1.00034E+00 -1.61665E-01 2.48128E-02 + 1.02350E+00 -2.32123E-01 9.52000E-01 9.99982E-01 -2.10592E-01 + 4.83260E-02 9.95876E-01 -2.26044E-01 9.52000E-01 1.00022E+00 + -1.78364E-01 3.43853E-02 1.01414E+00 -2.30189E-01 9.52000E-01 + 1.00034E+00 -1.61802E-01 2.48338E-02 1.02352E+00 -2.32319E-01 + 9.52000E-01 + 3.56389E+01 9.41131E-01 8.53760E-01 2.28015E+00 9.41145E-01 + 8.53757E-01 2.27175E+00 + 9.00118E-02 7.50905E-05 2.66396E+05 4.89667E+00 + 4.42740E+01 1.41371E+01 + 2.79402E+00 9.32590E-01 6.25691E+02 2.08028E+02 -2.28285E+02 + -1.47248E+02 -2.92149E+02 -1.72946E+02 1.00000E+00 0.00000E+00 + 5.89524E-02 1.88612E-02 3.41273E+01 1.14663E+01 1.92164E-03 + 2.11926E-04 2.79402E+00 9.32590E-01 6.25691E+02 2.08028E+02 + -2.28285E+02 -1.47248E+02 -2.92149E+02 -1.72946E+02 1.00000E+00 + 0.00000E+00 5.89524E-02 1.88612E-02 3.41273E+01 1.14663E+01 + 1.92164E-03 2.11926E-04 2.73692E+00 9.13032E-01 5.16532E+02 + 1.70639E+02 -2.05548E+02 -1.39460E+02 -2.62837E+02 -1.62906E+02 + 1.00000E+00 0.00000E+00 2.78767E-02 8.21719E-03 6.63466E+00 + 2.04953E+00 1.96555E-03 2.26962E-04 2.67685E+00 8.91943E-01 + 4.16290E+02 1.35452E+02 -1.82115E+02 -1.31234E+02 -2.32892E+02 + -1.52394E+02 1.00000E+00 0.00000E+00 2.48986E-02 7.17180E-03 + 2.95468E+00 7.57776E-01 2.01689E-03 2.44987E-04 2.62055E+00 + 8.71680E-01 3.34845E+02 1.06135E+02 -1.60485E+02 -1.23449E+02 + -2.05511E+02 -1.42538E+02 1.00000E+00 0.00000E+00 2.50754E-02 + 7.23545E-03 1.93346E+00 3.90176E-01 2.07123E-03 2.64545E-04 + 2.56818E+00 8.52335E-01 2.68976E+02 8.18056E+01 -1.40533E+02 + -1.16079E+02 -1.80486E+02 -1.33295E+02 1.00000E+00 0.00000E+00 + 2.59874E-02 7.57232E-03 1.51314E+00 2.34927E-01 2.12870E-03 + 2.85772E-04 2.51985E+00 8.34005E-01 2.15984E+02 6.17071E+01 + -1.22139E+02 -1.09103E+02 -1.57625E+02 -1.24625E+02 1.00000E+00 + 0.00000E+00 2.71690E-02 8.02047E-03 1.30217E+00 1.54913E-01 + 2.18950E-03 3.08834E-04 2.47572E+00 8.16804E-01 1.73602E+02 + 4.51894E+01 -1.05202E+02 -1.02502E+02 -1.36764E+02 -1.16494E+02 + 1.00000E+00 0.00000E+00 2.84761E-02 8.52987E-03 1.18266E+00 + 1.08336E-01 2.25385E-03 3.33914E-04 2.43586E+00 8.00833E-01 + 1.39941E+02 3.16988E+01 -8.96187E+01 -9.62563E+01 -1.17737E+02 + -1.08869E+02 1.00000E+00 0.00000E+00 2.98474E-02 9.07946E-03 + 1.10925E+00 7.89112E-02 2.32190E-03 3.61183E-04 2.40040E+00 + 7.86203E-01 1.13420E+02 2.07597E+01 -7.52901E+01 -9.03461E+01 + -1.00395E+02 -1.01715E+02 1.00000E+00 0.00000E+00 3.12514E-02 + 9.65858E-03 1.06148E+00 5.92095E-02 2.39390E-03 3.90881E-04 + 2.36938E+00 7.73027E-01 9.27278E+01 1.19681E+01 -6.21289E+01 + -8.47544E+01 -8.46008E+01 -9.50051E+01 1.00000E+00 0.00000E+00 + 3.26677E-02 1.02603E-02 1.02911E+00 4.54560E-02 2.47005E-03 + 4.23239E-04 3.70095E+02 1.61849E+02 7.67638E+01 4.97535E+00 + -6.94869E+01 -8.79776E+01 -7.02285E+01 -8.87098E+01 -2.95109E+01 + -1.33648E+01 3.40814E-02 1.08796E-02 1.00651E+00 3.55559E-02 + 2.55061E-03 4.58522E-04 2.81678E+02 1.21881E+02 6.46247E+01 + -5.11999E-01 -5.49659E+01 -8.14135E+01 -5.71640E+01 -8.28040E+01 + -5.77425E-01 -2.85714E-01 3.54804E-02 1.15120E-02 9.90421E-01 + 2.82839E-02 2.63580E-03 4.97032E-04 2.21915E+02 9.39737E+01 + 5.55584E+01 -4.74573E+00 -4.25038E+01 -7.55939E+01 -4.52921E+01 + -7.72602E+01 -1.60851E-01 -9.11859E-02 3.68537E-02 1.21532E-02 + 9.78825E-01 2.28691E-02 2.72587E-03 5.39093E-04 1.80328E+02 + 7.38899E+01 4.89468E+01 -7.93863E+00 -3.16106E+01 -7.03334E+01 + -3.45200E+01 -7.20580E+01 -5.66311E-02 -4.08560E-02 3.81919E-02 + 1.27995E-02 9.70440E-01 1.88194E-02 2.82109E-03 5.85079E-04 + 1.50637E+02 5.90443E+01 4.42781E+01 -1.02730E+01 -2.19708E+01 + -6.55134E+01 -2.47548E+01 -6.71754E+01 -1.56701E-02 -2.03754E-02 + 3.94876E-02 1.34474E-02 9.64399E-01 1.57995E-02 2.92175E-03 + 6.35410E-04 1.28929E+02 4.77928E+01 4.11404E+01 -1.18994E+01 + -1.33709E+01 -6.10557E+01 -1.59116E+01 -6.25917E+01 4.41984E-03 + -9.96209E-03 4.07318E-02 1.40923E-02 9.60116E-01 1.35791E-02 + 3.02810E-03 6.90532E-04 1.12729E+02 3.90758E+01 3.91876E+01 + -1.29501E+01 -5.66122E+00 -5.69075E+01 -7.91220E+00 -5.82874E+01 + 1.57324E-02 -3.87518E-03 4.19201E-02 1.47316E-02 9.57164E-01 + 1.19907E-02 3.14044E-03 7.50978E-04 1.00428E+02 3.21951E+01 + 3.81455E+01 -1.35330E+01 1.26905E+00 -5.30310E+01 -6.87267E-01 + -5.42462E+01 2.27589E-02 5.50873E-05 4.30462E-02 1.53615E-02 + 9.55231E-01 1.09105E-02 3.25902E-03 8.17309E-04 9.09491E+01 + 2.66749E+01 3.77903E+01 -1.37399E+01 7.50754E+00 -4.93978E+01 + 5.83057E+00 -5.04503E+01 2.74725E-02 2.80027E-03 4.41069E-02 + 1.59793E-02 9.54085E-01 1.02423E-02 3.38417E-03 8.90194E-04 + 8.35630E+01 2.21884E+01 3.79420E+01 -1.36477E+01 1.31258E+01 + -4.59851E+01 1.17012E+01 -4.68843E+01 3.08393E-02 4.84534E-03 + 4.50990E-02 1.65819E-02 9.53544E-01 9.91361E-03 3.51612E-03 + 9.70341E-04 7.77581E+01 1.85041E+01 3.84561E+01 -1.33214E+01 + 1.81828E+01 -4.27754E+01 1.69802E+01 -4.35337E+01 3.33761E-02 + 6.45541E-03 4.60215E-02 1.71674E-02 9.53460E-01 9.86053E-03 + 3.65514E-03 1.05858E-03 7.31683E+01 1.54541E+01 3.92204E+01 + -1.28135E+01 2.27300E+01 -3.97538E+01 2.17187E+01 -4.03849E+01 + 3.53756E-02 7.78414E-03 4.68732E-02 1.77334E-02 9.53726E-01 + 1.00366E-02 3.80147E-03 1.15582E-03 6.95301E+01 1.29172E+01 + 4.01430E+01 -1.21702E+01 2.68120E+01 -3.69074E+01 2.59630E+01 + -3.74254E+01 3.70112E-02 8.92462E-03 4.76556E-02 1.82790E-02 + 9.54240E-01 1.03948E-02 3.95533E-03 1.26310E-03 6.66420E+01 + 1.07987E+01 4.11568E+01 -1.14266E+01 3.04697E+01 -3.42246E+01 + 2.97562E+01 -3.46432E+01 3.83906E-02 9.93639E-03 4.83687E-02 + 1.88020E-02 9.54926E-01 1.08987E-02 4.11685E-03 1.38158E-03 + 6.43531E+01 9.02806E+00 4.22075E+01 -1.06138E+01 3.37390E+01 + -3.16952E+01 3.31378E+01 -3.20271E+01 3.95815E-02 1.08577E-02 + 4.90149E-02 1.93018E-02 9.55721E-01 1.15146E-02 4.28618E-03 + 1.51257E-03 6.25458E+01 7.54889E+00 4.32545E+01 -9.75689E+00 + 3.66535E+01 -2.93101E+01 3.61440E+01 -2.95668E+01 4.06278E-02 + 1.17140E-02 4.95967E-02 1.97780E-02 9.56574E-01 1.22123E-02 + 4.46332E-03 1.65755E-03 6.11267E+01 6.31624E+00 4.42699E+01 + -8.87489E+00 3.92421E+01 -2.70614E+01 3.88070E+01 -2.72535E+01 + 4.15575E-02 1.25216E-02 5.01158E-02 2.02290E-02 9.57440E-01 + 1.29648E-02 4.64825E-03 1.81819E-03 6.00200E+01 5.29192E+00 + 4.52305E+01 -7.98571E+00 4.15333E+01 -2.49407E+01 4.11581E+01 + -2.50774E+01 4.23903E-02 1.32924E-02 5.05763E-02 2.06552E-02 + 9.58287E-01 1.37484E-02 4.84075E-03 1.99636E-03 5.91656E+01 + 4.44567E+00 4.61243E+01 -7.10053E+00 4.35530E+01 -2.29406E+01 + 4.32250E+01 -2.30303E+01 4.31378E-02 1.40328E-02 5.09797E-02 + 2.10547E-02 9.59092E-01 1.45448E-02 5.04049E-03 2.19419E-03 + 5.85137E+01 3.75139E+00 4.69405E+01 -6.23130E+00 4.53236E+01 + -2.10547E+01 4.50331E+01 -2.11047E+01 4.38079E-02 1.47465E-02 + 5.13294E-02 2.14271E-02 9.59828E-01 1.53292E-02 5.24696E-03 + 2.41408E-03 5.80226E+01 3.18573E+00 4.76749E+01 -5.38543E+00 + 4.68669E+01 -1.92771E+01 4.66055E+01 -1.92936E+01 4.44066E-02 + 1.54360E-02 5.16280E-02 2.17711E-02 9.60489E-01 1.60910E-02 + 5.45939E-03 2.65876E-03 5.76604E+01 2.73149E+00 4.83263E+01 + -4.56857E+00 4.82034E+01 -1.76013E+01 4.79641E+01 -1.75900E+01 + 4.49361E-02 1.61000E-02 5.18779E-02 2.20845E-02 9.61063E-01 + 1.68106E-02 5.67672E-03 2.93128E-03 5.73976E+01 2.37000E+00 + 4.88946E+01 -3.78655E+00 4.93508E+01 -1.60224E+01 4.91284E+01 + -1.59880E+01 4.53997E-02 1.67379E-02 5.20824E-02 2.23659E-02 + 9.61551E-01 1.74822E-02 5.89754E-03 3.23513E-03 5.72127E+01 + 2.08812E+00 4.93832E+01 -3.04169E+00 5.03264E+01 -1.45353E+01 + 5.01163E+01 -1.44820E+01 4.57988E-02 1.73462E-02 5.22436E-02 + 2.26116E-02 9.61951E-01 1.80906E-02 6.12002E-03 3.57426E-03 + 5.70864E+01 1.87224E+00 4.97952E+01 -2.33776E+00 5.11461E+01 + -1.31348E+01 5.09450E+01 -1.30661E+01 4.61358E-02 1.79220E-02 + 5.23655E-02 2.28199E-02 9.62267E-01 1.86315E-02 6.34177E-03 + 3.95316E-03 5.70036E+01 1.71137E+00 5.01360E+01 -1.67535E+00 + 5.18241E+01 -1.18169E+01 5.16294E+01 -1.17359E+01 4.64125E-02 + 1.84599E-02 5.24508E-02 2.29855E-02 9.62507E-01 1.90983E-02 + 6.55976E-03 4.37682E-03 5.69524E+01 1.59602E+00 5.04109E+01 + -1.05603E+00 5.23743E+01 -1.05773E+01 5.21838E+01 -1.04867E+01 + 4.66318E-02 1.89539E-02 5.25034E-02 2.31041E-02 9.62678E-01 + 1.94843E-02 6.77021E-03 4.85102E-03 5.69230E+01 1.51729E+00 + 5.06258E+01 -4.79967E-01 5.28090E+01 -9.41199E+00 5.26214E+01 + -9.31395E+00 4.67976E-02 1.93983E-02 5.25283E-02 2.31708E-02 + 9.62792E-01 1.97911E-02 6.96842E-03 5.38232E-03 5.69079E+01 + 1.46729E+00 5.07867E+01 5.20951E-02 5.31399E+01 -8.31753E+00 + 5.29539E+01 -8.21399E+00 4.69156E-02 1.97887E-02 5.25319E-02 + 2.31829E-02 9.62860E-01 2.00134E-02 7.14852E-03 5.97802E-03 + 5.69015E+01 1.43957E+00 5.08998E+01 5.40527E-01 5.33778E+01 + -7.29024E+00 5.31927E+01 -7.18287E+00 4.69892E-02 2.01066E-02 + 5.25178E-02 2.31219E-02 9.62893E-01 2.01550E-02 7.30336E-03 + 6.64663E-03 5.68991E+01 1.42496E+00 5.09709E+01 9.82635E-01 + 5.35328E+01 -6.32670E+00 5.33481E+01 -6.21679E+00 4.70196E-02 + 2.02953E-02 5.24864E-02 2.29270E-02 9.62902E-01 2.02115E-02 + 7.42415E-03 7.39757E-03 5.68990E+01 1.42372E+00 5.10071E+01 + 1.38440E+00 5.36142E+01 -5.42399E+00 5.34295E+01 -5.31284E+00 + 4.70326E-02 2.04403E-02 5.24655E-02 2.26951E-02 9.62900E-01 + 2.01921E-02 7.50023E-03 8.24176E-03 5.68985E+01 1.39821E+00 + 5.10135E+01 1.71310E+00 5.36305E+01 -4.58049E+00 5.34459E+01 + -4.46886E+00 4.70235E-02 1.99683E-02 5.24481E-02 2.17935E-02 + 9.62898E-01 2.00766E-02 7.51864E-03 9.19149E-03 5.69008E+01 + 1.35426E+00 5.09998E+01 1.97951E+00 5.35900E+01 -3.79210E+00 + 5.34055E+01 -3.68112E+00 4.70704E-02 1.90541E-02 5.25186E-02 + 2.04205E-02 9.62908E-01 1.98769E-02 7.46373E-03 1.02607E-02 + 5.69010E+01 1.35253E+00 5.09670E+01 2.24834E+00 5.35000E+01 + -3.05512E+00 5.33156E+01 -2.94515E+00 4.71093E-02 1.87361E-02 + 5.26029E-02 1.97297E-02 9.62937E-01 1.96427E-02 7.31664E-03 + 1.14655E-02 5.69022E+01 1.34622E+00 5.09229E+01 2.47689E+00 + 5.33675E+01 -2.36763E+00 5.31834E+01 -2.25945E+00 4.71958E-02 + 1.82873E-02 5.27597E-02 1.89168E-02 9.62994E-01 1.93478E-02 + 7.05474E-03 1.28238E-02 5.69057E+01 1.33317E+00 5.08730E+01 + 2.66634E+00 5.31988E+01 -1.72744E+00 5.30152E+01 -1.62142E+00 + 4.73528E-02 1.76917E-02 5.30101E-02 1.79664E-02 9.63086E-01 + 1.89981E-02 6.65084E-03 1.43562E-02 5.69132E+01 1.31068E+00 + 5.08227E+01 2.81686E+00 5.29998E+01 -1.13218E+00 5.28170E+01 + -1.02864E+00 4.76049E-02 1.69376E-02 5.33772E-02 1.68684E-02 + 9.63220E-01 1.85970E-02 6.07248E-03 1.60863E-02 5.68614E+01 + 1.43850E+00 5.07114E+01 3.09164E+00 5.27742E+01 -5.75152E-01 + 5.25927E+01 -4.74682E-01 4.69071E-02 1.86604E-02 5.27112E-02 + 1.85127E-02 9.63365E-01 1.82381E-02 5.28092E-03 1.80406E-02 + 5.68345E+01 1.49496E+00 5.06261E+01 3.27083E+00 5.25292E+01 + -6.03462E-02 5.23491E+01 3.72647E-02 4.66383E-02 1.92254E-02 + 5.25276E-02 1.88987E-02 9.63572E-01 1.78024E-02 4.22984E-03 + 2.02498E-02 5.68467E+01 1.47263E+00 5.05829E+01 3.34994E+00 + 5.22693E+01 4.15251E-01 5.20910E+01 5.09518E-01 4.70203E-02 + 1.85264E-02 5.30614E-02 1.79219E-02 9.63852E-01 1.72917E-02 + 2.86445E-03 2.27483E-02 5.68685E+01 1.43742E+00 5.05541E+01 + 3.39648E+00 5.19980E+01 8.54770E-01 5.18217E+01 9.45802E-01 + 4.75498E-02 1.76684E-02 5.37549E-02 1.67984E-02 9.64181E-01 + 1.67575E-02 1.11940E-03 2.55754E-02 5.68353E+01 1.48557E+00 + 5.04766E+01 3.50925E+00 5.17171E+01 1.26301E+00 5.15434E+01 + 1.35043E+00 4.71752E-02 1.82130E-02 5.34633E-02 1.72222E-02 + 9.64537E-01 1.62410E-02 -1.08276E-03 2.87764E-02 5.68232E+01 + 1.50159E+00 5.04275E+01 3.57391E+00 5.14320E+01 1.63889E+00 + 5.12608E+01 1.72286E+00 4.71329E-02 1.82688E-02 5.35325E-02 + 1.71310E-02 9.64950E-01 1.56966E-02 -3.83363E-03 3.24021E-02 + 5.68664E+01 1.44960E+00 5.04421E+01 3.55627E+00 5.11459E+01 + 1.98382E+00 5.09776E+01 2.06434E+00 4.79511E-02 1.72823E-02 + 5.45259E-02 1.59333E-02 9.65432E-01 1.51152E-02 -7.24190E-03 + 3.65112E-02 5.67774E+01 1.54840E+00 5.03338E+01 3.67664E+00 + 5.08574E+01 2.30432E+00 5.06923E+01 2.38128E+00 4.66152E-02 + 1.87663E-02 5.31902E-02 1.74171E-02 9.65907E-01 1.45877E-02 + -1.14356E-02 4.11699E-02 5.66349E+01 1.69515E+00 5.01813E+01 + 3.83370E+00 5.05707E+01 2.59953E+00 5.04091E+01 2.67293E+00 + 4.44065E-02 2.10411E-02 5.09247E-02 1.97505E-02 9.66409E-01 + 1.40695E-02 -1.65663E-02 4.64542E-02 5.66753E+01 1.65637E+00 + 5.02215E+01 3.79507E+00 5.02919E+01 2.86723E+00 5.01337E+01 + 2.93728E+00 4.50969E-02 2.03784E-02 5.17715E-02 1.89376E-02 + 9.67018E-01 1.34847E-02 -2.28124E-02 5.24505E-02 5.67264E+01 + 1.61042E+00 5.02829E+01 3.73996E+00 5.00193E+01 3.11228E+00 + 4.98649E+01 3.17894E+00 4.59218E-02 1.96369E-02 5.27469E-02 + 1.80607E-02 9.67665E-01 1.29041E-02 -3.03845E-02 5.92576E-02 + 5.67934E+01 1.55374E+00 5.03702E+01 3.66613E+00 4.97539E+01 + 3.33657E+00 4.96034E+01 3.39994E+00 4.69488E-02 1.87688E-02 + 5.39199E-02 1.70693E-02 9.68344E-01 1.23303E-02 -3.95302E-02 + 6.69877E-02 5.66186E+01 1.69320E+00 5.02254E+01 3.78159E+00 + 4.94926E+01 3.54495E+00 4.93462E+01 3.60508E+00 4.41164E-02 + 2.10277E-02 5.09823E-02 1.94120E-02 9.68978E-01 1.18247E-02 + -5.05412E-02 7.57694E-02 5.65628E+01 1.73532E+00 5.02099E+01 + 3.79335E+00 4.92428E+01 3.73348E+00 4.91007E+01 3.79049E+00 + 4.31517E-02 2.17560E-02 5.00326E-02 2.01291E-02 9.69674E-01 + 1.12989E-02 -6.37603E-02 8.57491E-02 5.66240E+01 1.69153E+00 + 5.03204E+01 3.71407E+00 4.90045E+01 3.90433E+00 4.88663E+01 + 3.95842E+00 4.39947E-02 2.11519E-02 5.09873E-02 1.94449E-02 + 9.70422E-01 1.07630E-02 -7.95895E-02 9.70935E-02 5.66973E+01 + 1.64148E+00 5.04528E+01 3.62379E+00 4.87765E+01 4.05986E+00 + 4.86426E+01 4.11099E+00 4.49917E-02 2.04718E-02 5.20851E-02 + 1.86961E-02 9.71185E-01 1.02431E-02 -9.85024E-02 1.09994E-01 + 5.67832E+01 1.58561E+00 5.06068E+01 3.52359E+00 4.85590E+01 + 4.20137E+00 4.84296E+01 4.24964E+00 4.61518E-02 1.97169E-02 + 5.33344E-02 1.78832E-02 9.71959E-01 9.73919E-03 -1.21053E-01 + 1.24667E-01 5.64781E+01 1.77539E+00 5.03777E+01 3.66607E+00 + 4.83464E+01 4.33366E+00 4.82210E+01 4.37933E+00 4.12133E-02 + 2.27891E-02 4.81779E-02 2.10908E-02 9.72655E-01 9.30607E-03 + -1.47891E-01 1.41363E-01 5.63133E+01 1.87359E+00 5.02973E+01 + 3.71402E+00 4.81466E+01 4.45268E+00 4.80257E+01 4.49571E+00 + 3.84853E-02 2.44145E-02 4.53547E-02 2.27730E-02 9.73393E-01 + 8.86622E-03 -1.79780E-01 1.60363E-01 5.63552E+01 1.84965E+00 + 5.04306E+01 3.63776E+00 4.79602E+01 4.55929E+00 4.78435E+01 + 4.59990E+00 3.89445E-02 2.41519E-02 4.58622E-02 2.24829E-02 + 9.74180E-01 8.41541E-03 -2.17612E-01 1.81994E-01 5.64024E+01 + 1.82365E+00 5.05756E+01 3.55811E+00 4.77844E+01 4.65588E+00 + 4.76719E+01 4.69417E+00 3.94722E-02 2.38620E-02 4.64261E-02 + 2.21730E-02 9.74965E-01 7.98482E-03 -2.62431E-01 2.06623E-01 + 5.64556E+01 1.79556E+00 5.07334E+01 3.47463E+00 4.76187E+01 + 4.74352E+00 4.75108E+01 4.77943E+00 4.00779E-02 2.35417E-02 + 4.70549E-02 2.18404E-02 9.75746E-01 7.57193E-03 -3.15460E-01 + 2.34674E-01 5.65143E+01 1.76563E+00 5.09019E+01 3.38877E+00 + 4.74633E+01 4.82279E+00 4.73591E+01 4.85677E+00 4.07583E-02 + 2.31946E-02 4.77471E-02 2.14874E-02 9.76514E-01 7.17926E-03 + -3.78132E-01 2.66629E-01 5.65793E+01 1.73365E+00 5.10816E+01 + 3.30028E+00 4.73164E+01 4.89505E+00 4.72168E+01 4.92676E+00 + 4.15270E-02 2.28164E-02 4.85148E-02 2.11096E-02 9.77279E-01 + 6.80344E-03 -4.52114E-01 3.03038E-01 5.66512E+01 1.69940E+00 + 5.12728E+01 3.20935E+00 4.71797E+01 4.96004E+00 4.70838E+01 + 4.99008E+00 4.23810E-02 2.24102E-02 4.93561E-02 2.07095E-02 + 9.78034E-01 6.44448E-03 -5.39365E-01 3.44533E-01 5.67289E+01 + 1.66359E+00 5.14735E+01 3.11697E+00 4.70512E+01 5.01925E+00 + 4.69592E+01 5.04735E+00 4.33355E-02 2.19711E-02 5.02868E-02 + 2.02813E-02 9.78776E-01 6.10321E-03 -6.42166E-01 3.91832E-01 + 5.68145E+01 1.62548E+00 5.16850E+01 3.02283E+00 4.69312E+01 + 5.07268E+00 4.68432E+01 5.09910E+00 4.43868E-02 2.15026E-02 + 5.13034E-02 1.98283E-02 9.79500E-01 5.77968E-03 -7.63177E-01 + 4.45755E-01 5.64247E+01 1.79394E+00 5.14236E+01 3.13563E+00 + 4.68138E+01 5.12344E+00 4.67297E+01 5.14814E+00 3.83656E-02 + 2.41037E-02 4.50410E-02 2.25336E-02 9.80161E-01 5.49567E-03 + -9.05515E-01 5.07242E-01 5.63874E+01 1.80952E+00 5.15170E+01 + 3.09653E+00 4.67079E+01 5.16783E+00 4.66272E+01 5.19107E+00 + 3.76483E-02 2.44043E-02 4.42394E-02 2.28696E-02 9.80852E-01 + 5.20581E-03 -1.07281E+00 5.77369E-01 5.64230E+01 1.79502E+00 + 5.16851E+01 3.02810E+00 4.66097E+01 5.20773E+00 4.65329E+01 + 5.22947E+00 3.80332E-02 2.42477E-02 4.45620E-02 2.27383E-02 + 9.81533E-01 4.92774E-03 -1.26929E+00 6.57356E-01 5.64595E+01 + 1.78067E+00 5.18546E+01 2.96101E+00 4.65189E+01 5.24370E+00 + 4.64451E+01 5.26420E+00 3.84389E-02 2.40871E-02 4.48965E-02 + 2.26059E-02 9.82197E-01 4.66568E-03 -1.49990E+00 7.48610E-01 + 5.64966E+01 1.76633E+00 5.20259E+01 2.89511E+00 4.64335E+01 + 5.27660E+00 4.63636E+01 5.29564E+00 3.88662E-02 2.39225E-02 + 4.52453E-02 2.24716E-02 9.82851E-01 4.41457E-03 -1.77039E+00 + 8.52732E-01 5.65337E+01 1.75247E+00 5.21972E+01 2.83093E+00 + 4.63545E+01 5.30621E+00 4.62874E+01 5.32406E+00 3.93069E-02 + 2.37574E-02 4.55984E-02 2.23392E-02 9.83478E-01 4.17779E-03 + -2.08746E+00 9.71549E-01 5.65704E+01 1.73909E+00 5.23669E+01 + 2.76897E+00 4.62808E+01 5.33306E+00 4.62167E+01 5.34994E+00 + 3.97522E-02 2.35949E-02 4.59515E-02 2.22104E-02 9.84094E-01 + 3.95365E-03 -2.45894E+00 1.10716E+00 5.66081E+01 1.72556E+00 + 5.25393E+01 2.70765E+00 4.62122E+01 5.35755E+00 4.61515E+01 + 5.37313E+00 4.02279E-02 2.34255E-02 4.63260E-02 2.20771E-02 + 9.84691E-01 3.74046E-03 -2.89393E+00 1.26196E+00 5.66456E+01 + 1.71256E+00 5.27084E+01 2.64887E+00 4.61487E+01 5.37955E+00 + 4.60907E+01 5.39422E+00 4.07166E-02 2.32560E-02 4.67098E-02 + 2.19438E-02 9.85274E-01 3.53907E-03 -3.40301E+00 1.43867E+00 + 5.66838E+01 1.69967E+00 5.28775E+01 2.59160E+00 4.60896E+01 + 5.39950E+00 4.60348E+01 5.41320E+00 4.12188E-02 2.30859E-02 + 4.71017E-02 2.18111E-02 9.85837E-01 3.34864E-03 -3.99852E+00 + 1.64044E+00 5.67218E+01 1.68705E+00 5.30456E+01 2.53600E+00 + 4.60342E+01 5.41795E+00 4.59816E+01 5.43078E+00 4.17421E-02 + 2.29127E-02 4.75099E-02 2.16761E-02 9.86383E-01 3.16747E-03 + -4.69483E+00 1.87083E+00 5.67600E+01 1.67476E+00 5.32117E+01 + 2.48234E+00 4.59831E+01 5.43445E+00 4.59332E+01 5.44642E+00 + 4.22708E-02 2.27417E-02 4.79203E-02 2.15434E-02 9.86909E-01 + 2.99726E-03 -5.50864E+00 2.13394E+00 5.67977E+01 1.66278E+00 + 5.33750E+01 2.43067E+00 4.59354E+01 5.44950E+00 4.58882E+01 + 5.46066E+00 4.28076E-02 2.25721E-02 4.83353E-02 2.14122E-02 + 9.87424E-01 2.83463E-03 -6.45935E+00 2.43445E+00 5.68348E+01 + 1.65135E+00 5.35365E+01 2.38074E+00 4.58914E+01 5.46314E+00 + 4.58463E+01 5.47360E+00 4.33557E-02 2.24026E-02 4.87570E-02 + 2.12818E-02 9.87920E-01 2.68127E-03 -7.56962E+00 2.77771E+00 + 5.68721E+01 1.64003E+00 5.36942E+01 2.33301E+00 4.58502E+01 + 5.47554E+00 4.58077E+01 5.48530E+00 4.39102E-02 2.22347E-02 + 4.91863E-02 2.11520E-02 9.88399E-01 2.53633E-03 -8.86568E+00 + 3.16983E+00 5.69082E+01 1.62935E+00 5.38498E+01 2.28701E+00 + 4.58118E+01 5.48692E+00 4.57712E+01 5.49609E+00 4.44689E-02 + 2.20694E-02 4.96144E-02 2.10250E-02 9.88864E-01 2.39898E-03 + -1.03781E+01 3.61783E+00 5.69440E+01 1.61899E+00 5.40018E+01 + 2.24284E+00 4.57755E+01 5.49749E+00 4.57374E+01 5.50591E+00 + 4.50254E-02 2.19079E-02 5.00399E-02 2.09016E-02 9.89312E-01 + 2.26838E-03 -1.21423E+01 4.12970E+00 5.69802E+01 1.60869E+00 + 5.41515E+01 2.20029E+00 4.57430E+01 5.50666E+00 4.57067E+01 + 5.51464E+00 4.56039E-02 2.17435E-02 5.04874E-02 2.07745E-02 + 9.89747E-01 2.14535E-03 -1.41997E+01 4.71462E+00 5.70169E+01 + 1.59845E+00 5.42991E+01 2.15920E+00 4.57126E+01 5.51518E+00 + 4.56776E+01 5.52273E+00 4.61996E-02 2.15774E-02 5.09513E-02 + 2.06452E-02 9.90165E-01 2.02822E-03 -1.65981E+01 5.38304E+00 + 5.70518E+01 1.58890E+00 5.44408E+01 2.12042E+00 4.56830E+01 + 5.52327E+00 4.56509E+01 5.53007E+00 4.67773E-02 2.14196E-02 + 5.13983E-02 2.05230E-02 9.90569E-01 1.91784E-03 -1.93933E+01 + 6.14698E+00 5.70853E+01 1.57995E+00 5.45802E+01 2.08305E+00 + 4.56565E+01 5.53039E+00 4.56254E+01 5.53686E+00 4.73473E-02 + 2.12667E-02 5.18326E-02 2.04065E-02 9.90960E-01 1.81335E-03 + -2.26499E+01 7.02015E+00 5.71193E+01 1.57101E+00 5.47154E+01 + 2.04747E+00 4.56315E+01 5.53690E+00 4.56022E+01 5.54294E+00 + 4.79362E-02 2.11118E-02 5.22922E-02 2.02855E-02 9.91338E-01 + 1.71393E-03 -2.64430E+01 8.01823E+00 5.75012E+01 1.47236E+00 + 5.51969E+01 1.92310E+00 4.56116E+01 5.54215E+00 4.55836E+01 + 5.54786E+00 5.33085E-02 1.97238E-02 5.75664E-02 1.89231E-02 + 9.91712E-01 1.61786E-03 -3.08598E+01 9.15920E+00 5.71804E+01 + 1.55374E+00 5.49713E+01 1.98032E+00 4.55862E+01 5.54851E+00 + 4.55598E+01 5.55379E+00 4.90203E-02 2.08118E-02 5.31130E-02 + 2.00531E-02 9.92049E-01 1.53191E-03 -3.60015E+01 1.04636E+01 + 5.72156E+01 1.54500E+00 5.50998E+01 1.94834E+00 4.55667E+01 + 5.55336E+00 4.55421E+01 5.55822E+00 4.96582E-02 2.06528E-02 + 5.36211E-02 1.99262E-02 9.92389E-01 1.44681E-03 -4.19857E+01 + 1.19550E+01 5.72481E+01 1.53697E+00 5.52221E+01 1.91835E+00 + 4.55478E+01 5.55800E+00 4.55245E+01 5.56253E+00 5.02481E-02 + 2.05083E-02 5.40846E-02 1.98129E-02 9.92713E-01 1.36844E-03 + -4.89485E+01 1.36602E+01 5.72788E+01 1.52958E+00 5.53408E+01 + 1.88982E+00 4.55292E+01 5.56242E+00 4.55076E+01 5.56663E+00 + 5.08438E-02 2.03650E-02 5.45531E-02 1.97000E-02 9.93023E-01 + 1.29260E-03 -5.70485E+01 1.56101E+01 5.73103E+01 1.52214E+00 + 5.54542E+01 1.86286E+00 4.55145E+01 5.56598E+00 4.54925E+01 + 5.57019E+00 5.14311E-02 2.02260E-02 5.50191E-02 1.95898E-02 + 9.93326E-01 1.22182E-03 -5.67688E+01 1.55439E+01 5.73400E+01 + 1.51523E+00 5.55664E+01 1.83687E+00 4.54986E+01 5.56976E+00 + 4.54787E+01 5.57342E+00 5.20218E-02 2.00884E-02 5.54859E-02 + 1.94809E-02 9.93616E-01 1.15357E-03 1.00000E+01 0.00000E+00 + 5.73698E+01 1.50839E+00 5.56743E+01 1.81211E+00 4.54839E+01 + 5.57299E+00 4.54658E+01 5.57644E+00 5.26100E-02 1.99536E-02 + 5.59561E-02 1.93733E-02 9.93899E-01 1.08953E-03 1.00000E+01 + 0.00000E+00 5.73987E+01 1.50191E+00 5.57778E+01 1.78882E+00 + 4.54705E+01 5.57601E+00 4.54528E+01 5.57925E+00 5.31931E-02 + 1.98224E-02 5.64221E-02 1.92683E-02 9.94162E-01 1.02970E-03 + 1.00000E+01 0.00000E+00 5.74276E+01 1.49555E+00 5.58788E+01 + 1.76633E+00 4.54576E+01 5.57892E+00 4.54412E+01 5.58184E+00 + 5.37753E-02 1.96932E-02 5.68906E-02 1.91645E-02 9.94425E-01 + 9.72402E-04 1.00000E+01 0.00000E+00 5.74556E+01 1.48930E+00 + 5.59771E+01 1.74486E+00 4.54468E+01 5.58130E+00 4.54304E+01 + 5.58421E+00 5.43652E-02 1.95643E-02 5.73667E-02 1.90604E-02 + 9.94675E-01 9.17631E-04 1.00000E+01 0.00000E+00 5.74815E+01 + 1.48379E+00 5.60703E+01 1.72486E+00 4.54356E+01 5.58367E+00 + 4.54209E+01 5.58626E+00 5.49222E-02 1.94445E-02 5.78149E-02 + 1.89639E-02 9.94904E-01 8.67072E-04 1.00000E+01 0.00000E+00 + 5.75087E+01 1.47808E+00 5.61626E+01 1.70533E+00 4.54248E+01 + 5.58594E+00 4.54106E+01 5.58842E+00 5.55061E-02 1.93208E-02 + 5.82910E-02 1.88632E-02 9.95146E-01 8.17357E-04 1.00000E+01 + 0.00000E+00 5.75346E+01 1.47269E+00 5.62498E+01 1.68711E+00 + 4.54162E+01 5.58777E+00 4.54037E+01 5.58993E+00 5.60749E-02 + 1.92020E-02 5.87553E-02 1.87661E-02 9.95355E-01 7.72697E-04 + 1.00000E+01 0.00000E+00 5.75605E+01 1.46729E+00 5.63352E+01 + 1.66952E+00 4.54058E+01 5.58993E+00 4.53924E+01 5.59219E+00 + 5.66344E-02 1.90870E-02 5.92146E-02 1.86718E-02 9.95564E-01 + 7.29723E-04 1.00000E+01 0.00000E+00 5.75838E+01 1.46255E+00 + 5.64163E+01 1.65313E+00 4.53985E+01 5.59144E+00 4.53873E+01 + 5.59327E+00 5.71973E-02 1.89728E-02 5.96780E-02 1.85778E-02 + 9.95773E-01 6.88434E-04 1.00000E+01 0.00000E+00 5.76079E+01 + 1.45770E+00 5.64944E+01 1.63750E+00 4.53906E+01 5.59298E+00 + 4.53789E+01 5.59493E+00 5.77563E-02 1.88611E-02 6.01419E-02 + 1.84850E-02 9.95969E-01 6.48834E-04 9.99996E+00 0.00000E+00 + 5.76317E+01 1.45306E+00 5.65721E+01 1.62218E+00 4.53834E+01 + 5.59446E+00 4.53726E+01 5.59618E+00 5.83087E-02 1.87522E-02 + 6.05982E-02 1.83952E-02 9.96158E-01 6.11754E-04 1.00000E+01 + 0.00000E+00 5.76550E+01 1.44853E+00 5.66437E+01 1.60826E+00 + 4.53760E+01 5.59586E+00 4.53661E+01 5.59737E+00 5.88514E-02 + 1.86467E-02 6.10532E-02 1.83067E-02 9.96326E-01 5.78048E-04 + 1.00000E+01 0.00000E+00 5.76770E+01 1.44432E+00 5.67149E+01 + 1.59456E+00 4.53696E+01 5.59704E+00 4.53605E+01 5.59855E+00 + 5.93974E-02 1.85420E-02 6.15099E-02 1.82191E-02 9.96501E-01 + 5.44343E-04 1.00000E+01 0.00000E+00 5.76964E+01 1.44065E+00 + 5.67805E+01 1.58216E+00 4.53640E+01 5.59812E+00 4.53545E+01 + 5.59963E+00 5.99207E-02 1.84430E-02 6.19455E-02 1.81367E-02 + 9.96663E-01 5.14008E-04 1.00000E+01 0.00000E+00 5.77210E+01 + 1.43601E+00 5.68495E+01 1.56933E+00 4.53579E+01 5.59920E+00 + 4.53502E+01 5.60039E+00 6.04819E-02 1.83383E-02 6.24258E-02 + 1.80469E-02 9.96811E-01 4.86201E-04 1.00000E+01 0.00000E+00 + 5.77391E+01 1.43267E+00 5.69099E+01 1.55822E+00 4.53523E+01 + 5.60028E+00 4.53446E+01 5.60147E+00 6.09951E-02 1.82437E-02 + 6.28598E-02 1.79671E-02 9.96980E-01 4.55866E-04 1.00000E+01 + 0.00000E+00 5.77589E+01 1.42911E+00 5.69703E+01 1.54721E+00 + 4.53476E+01 5.60114E+00 4.53398E+01 5.60233E+00 6.15200E-02 + 1.81483E-02 6.33064E-02 1.78858E-02 9.97108E-01 4.31430E-04 + 1.00000E+01 0.00000E+00 5.77792E+01 1.42544E+00 5.70268E+01 + 1.53697E+00 4.53420E+01 5.60211E+00 4.53351E+01 5.60319E+00 + 6.20357E-02 1.80556E-02 6.37513E-02 1.78060E-02 9.97256E-01 + 4.05308E-04 1.00000E+01 0.00000E+00 5.77973E+01 1.42221E+00 + 5.70838E+01 1.52694E+00 4.53385E+01 5.60276E+00 4.53320E+01 + 5.60373E+00 6.25539E-02 1.79637E-02 6.41937E-02 1.77276E-02 + 9.97378E-01 3.83399E-04 1.00000E+01 0.00000E+00 5.78146E+01 + 1.41919E+00 5.71360E+01 1.51777E+00 4.53342E+01 5.60352E+00 + 4.53277E+01 5.60449E+00 6.30637E-02 1.78744E-02 6.46344E-02 + 1.76503E-02 9.97513E-01 3.59806E-04 1.00000E+01 0.00000E+00 + 5.78319E+01 1.41628E+00 5.71873E+01 1.50893E+00 4.53303E+01 + 5.60416E+00 4.53251E+01 5.60492E+00 6.35516E-02 1.77902E-02 + 6.50532E-02 1.75778E-02 9.97620E-01 3.41268E-04 1.00000E+01 + 0.00000E+00 5.78495E+01 1.41326E+00 5.72360E+01 1.50062E+00 + 4.53260E+01 5.60492E+00 4.53208E+01 5.60567E+00 6.40665E-02 + 1.77021E-02 6.55057E-02 1.75005E-02 9.97742E-01 3.20202E-04 + 1.00000E+01 0.00000E+00 5.78651E+01 1.41056E+00 5.72826E+01 + 1.49275E+00 4.53230E+01 5.60546E+00 4.53174E+01 5.60621E+00 + 6.45560E-02 1.76193E-02 6.59363E-02 1.74280E-02 9.97863E-01 + 3.00821E-04 1.00000E+01 0.00000E+00 5.78806E+01 1.40797E+00 + 5.73284E+01 1.48509E+00 4.53195E+01 5.60600E+00 4.53148E+01 + 5.60664E+00 6.50464E-02 1.75374E-02 6.63610E-02 1.73570E-02 + 9.97957E-01 2.83968E-04 1.00000E+01 0.00000E+00 5.78961E+01 + 1.40549E+00 5.73698E+01 1.47829E+00 4.53178E+01 5.60632E+00 + 4.53126E+01 5.60708E+00 6.55217E-02 1.74592E-02 6.67823E-02 + 1.72873E-02 9.98052E-01 2.68801E-04 1.00000E+01 0.00000E+00 + 5.79091E+01 1.40333E+00 5.74112E+01 1.47150E+00 4.53139E+01 + 5.60697E+00 4.53096E+01 5.60751E+00 6.59835E-02 1.73838E-02 + 6.71851E-02 1.72220E-02 9.98160E-01 2.51106E-04 1.00000E+01 + 0.00000E+00 5.79285E+01 1.40020E+00 5.74539E+01 1.46460E+00 + 4.53126E+01 5.60718E+00 4.53074E+01 5.60783E+00 6.65278E-02 + 1.72962E-02 6.76788E-02 1.71422E-02 9.98241E-01 2.37623E-04 + 1.00000E+01 0.00000E+00 5.79393E+01 1.39848E+00 5.74893E+01 + 1.45899E+00 4.53087E+01 5.60772E+00 4.53049E+01 5.60826E+00 + 6.69609E-02 1.72271E-02 6.80614E-02 1.70813E-02 9.98335E-01 + 2.24141E-04 1.00000E+01 0.00000E+00 5.79527E+01 1.39643E+00 + 5.75255E+01 1.45327E+00 4.53062E+01 5.60815E+00 4.53027E+01 + 5.60859E+00 6.74294E-02 1.71531E-02 6.84793E-02 1.70153E-02 + 9.98423E-01 2.09816E-04 1.00000E+01 0.00000E+00 5.79647E+01 + 1.39449E+00 5.75596E+01 1.44799E+00 4.53053E+01 5.60837E+00 + 4.53010E+01 5.60880E+00 6.78844E-02 1.70825E-02 6.88855E-02 + 1.69522E-02 9.98504E-01 1.97177E-04 1.00000E+01 0.00000E+00 + 5.79751E+01 1.39287E+00 5.75915E+01 1.44302E+00 4.53018E+01 + 5.60880E+00 4.52993E+01 5.60923E+00 6.83361E-02 1.70128E-02 + 6.92916E-02 1.68896E-02 9.98571E-01 1.86223E-04 1.00000E+01 + 0.00000E+00 5.79919E+01 1.39039E+00 5.76269E+01 1.43763E+00 + 4.53001E+01 5.60912E+00 4.52967E+01 5.60956E+00 6.88400E-02 + 1.69359E-02 6.97534E-02 1.68192E-02 9.98638E-01 1.76111E-04 + 1.00000E+01 0.00000E+00 5.80001E+01 1.38910E+00 5.76550E+01 + 1.43343E+00 4.52984E+01 5.60934E+00 4.52958E+01 5.60966E+00 + 6.92647E-02 1.68719E-02 7.01343E-02 1.67617E-02 9.98719E-01 + 1.64314E-04 1.00000E+01 0.00000E+00 5.80113E+01 1.38737E+00 + 5.76847E+01 1.42900E+00 4.52975E+01 5.60956E+00 4.52941E+01 + 5.60999E+00 6.97147E-02 1.68049E-02 7.05438E-02 1.67006E-02 + 9.98773E-01 1.55888E-04 1.00000E+01 0.00000E+00 5.80230E+01 + 1.38575E+00 5.77119E+01 1.42501E+00 4.52941E+01 5.60999E+00 + 4.52923E+01 5.61020E+00 7.01562E-02 1.67396E-02 7.09500E-02 + 1.66408E-02 9.98841E-01 1.45776E-04 1.00000E+01 0.00000E+00 + 5.80299E+01 1.38467E+00 5.77365E+01 1.42134E+00 4.52941E+01 + 5.60999E+00 4.52923E+01 5.61031E+00 7.05876E-02 1.66766E-02 + 7.13392E-02 1.65837E-02 9.98894E-01 1.38192E-04 1.00000E+01 + 0.00000E+00 5.80433E+01 1.38273E+00 5.77641E+01 1.41735E+00 + 4.52915E+01 5.61031E+00 4.52898E+01 5.61053E+00 7.10629E-02 + 1.66079E-02 7.17825E-02 1.65197E-02 9.98962E-01 1.28923E-04 + 1.00000E+01 0.00000E+00 5.80502E+01 1.38176E+00 5.77853E+01 + 1.41433E+00 4.52915E+01 5.61042E+00 4.52889E+01 5.61074E+00 + 7.14808E-02 1.65479E-02 7.21667E-02 1.64645E-02 9.99016E-01 + 1.20497E-04 1.00000E+01 0.00000E+00 5.80609E+01 1.38025E+00 + 5.78098E+01 1.41088E+00 4.52898E+01 5.61063E+00 4.52880E+01 + 5.61085E+00 7.19122E-02 1.64868E-02 7.25661E-02 1.64078E-02 + 9.99063E-01 1.13756E-04 1.00000E+01 0.00000E+00 5.80696E+01 + 1.37906E+00 5.78314E+01 1.40786E+00 4.52889E+01 5.61074E+00 + 4.52872E+01 5.61096E+00 7.23336E-02 1.64276E-02 7.29588E-02 + 1.63528E-02 9.99110E-01 1.07857E-04 1.00000E+01 0.00000E+00 + 5.80756E+01 1.37820E+00 5.78513E+01 1.40506E+00 4.52872E+01 + 5.61096E+00 4.52854E+01 5.61117E+00 7.27701E-02 1.63669E-02 + 7.33599E-02 1.62972E-02 9.99151E-01 1.01959E-04 1.00000E+01 + 0.00000E+00 5.80868E+01 1.37669E+00 5.78733E+01 1.40204E+00 + 4.52854E+01 5.61117E+00 4.52846E+01 5.61139E+00 7.32099E-02 + 1.63065E-02 7.37745E-02 1.62399E-02 9.99205E-01 9.43752E-05 + 1.00000E+01 0.00000E+00 5.80924E+01 1.37594E+00 5.78910E+01 + 1.39967E+00 4.52854E+01 5.61128E+00 4.52837E+01 5.61139E+00 + 7.36262E-02 1.62496E-02 7.41638E-02 1.61870E-02 9.99245E-01 + 8.84768E-05 1.00000E+01 0.00000E+00 5.81011E+01 1.37475E+00 + 5.79082E+01 1.39729E+00 4.52846E+01 5.61139E+00 4.52820E+01 + 5.61161E+00 7.40441E-02 1.61934E-02 7.45598E-02 1.61335E-02 + 9.99279E-01 8.42636E-05 1.00000E+01 0.00000E+00 5.81058E+01 + 1.37400E+00 5.79272E+01 1.39481E+00 4.52829E+01 5.61150E+00 + 4.52820E+01 5.61161E+00 7.44671E-02 1.61369E-02 7.49491E-02 + 1.60815E-02 9.99319E-01 7.92078E-05 1.00000E+01 0.00000E+00 + 5.81118E+01 1.37326E+00 5.79401E+01 1.39300E+00 4.52826E+01 + 5.61157E+00 4.52817E+01 5.61168E+00 7.48743E-02 1.60828E-02 + 7.53377E-02 1.60301E-02 9.99353E-01 7.41530E-05 1.00000E+01 + 0.00000E+00 5.81213E+01 1.37205E+00 5.79591E+01 1.39050E+00 + 4.52811E+01 5.61171E+00 4.52803E+01 5.61193E+00 7.53047E-02 + 1.60263E-02 7.57462E-02 1.59766E-02 9.99380E-01 7.07814E-05 + 1.00000E+01 0.00000E+00 5.81248E+01 1.37162E+00 5.79721E+01 + 1.38888E+00 4.52803E+01 5.61182E+00 4.52794E+01 5.61204E+00 + 7.57125E-02 1.59732E-02 7.61305E-02 1.59265E-02 9.99434E-01 + 6.40403E-05 1.00000E+01 0.00000E+00 5.81334E+01 1.37054E+00 + 5.79885E+01 1.38683E+00 4.52820E+01 5.61171E+00 4.52811E+01 + 5.61182E+00 7.61237E-02 1.59203E-02 7.65215E-02 1.58761E-02 + 9.99447E-01 6.23551E-05 1.00000E+01 0.00000E+00 5.81369E+01 + 1.37000E+00 5.79997E+01 1.38532E+00 4.52794E+01 5.61204E+00 + 4.52777E+01 5.61214E+00 7.65316E-02 1.58683E-02 7.69108E-02 + 1.58264E-02 9.99474E-01 5.81419E-05 1.00000E+01 0.00000E+00 + 5.81420E+01 1.36936E+00 5.80126E+01 1.38370E+00 4.52785E+01 + 5.61214E+00 4.52785E+01 5.61214E+00 7.69411E-02 1.58163E-02 + 7.73017E-02 1.57769E-02 9.99508E-01 5.39287E-05 1.00000E+01 + 0.00000E+00 5.81481E+01 1.36860E+00 5.80264E+01 1.38198E+00 + 4.52794E+01 5.61204E+00 4.52777E+01 5.61225E+00 7.73590E-02 + 1.57640E-02 7.76978E-02 1.57272E-02 9.99535E-01 5.14008E-05 + 1.00000E+01 0.00000E+00 5.81524E+01 1.36806E+00 5.80359E+01 + 1.38079E+00 4.52777E+01 5.61225E+00 4.52777E+01 5.61225E+00 + 7.77618E-02 1.57141E-02 7.80871E-02 1.56789E-02 9.99555E-01 + 4.80303E-05 1.00000E+01 0.00000E+00 5.81559E+01 1.36763E+00 + 5.80463E+01 1.37950E+00 4.52777E+01 5.61225E+00 4.52785E+01 + 5.61214E+00 7.81579E-02 1.56652E-02 7.84663E-02 1.56322E-02 + 9.99582E-01 4.38171E-05 1.00000E+01 0.00000E+00 5.81636E+01 + 1.36677E+00 5.80592E+01 1.37799E+00 4.52785E+01 5.61214E+00 + 4.52760E+01 5.61236E+00 7.85809E-02 1.56134E-02 7.88775E-02 + 1.55820E-02 9.99609E-01 4.21318E-05 1.00000E+01 0.00000E+00 + 5.81671E+01 1.36634E+00 5.80687E+01 1.37680E+00 4.52760E+01 + 5.61247E+00 4.52760E+01 5.61247E+00 7.89601E-02 1.55675E-02 + 7.92398E-02 1.55380E-02 9.99623E-01 3.96039E-05 1.00000E+01 + 0.00000E+00 5.81697E+01 1.36601E+00 5.80773E+01 1.37572E+00 + 4.52777E+01 5.61225E+00 4.52760E+01 5.61247E+00 7.93864E-02 + 1.55163E-02 7.96493E-02 1.54887E-02 9.99636E-01 3.79186E-05 + 1.00000E+01 0.00000E+00 5.81740E+01 1.36547E+00 5.80868E+01 + 1.37464E+00 4.52751E+01 5.61247E+00 4.52751E+01 5.61258E+00 + 7.97774E-02 1.54697E-02 8.00285E-02 1.54436E-02 9.99676E-01 + 3.45481E-05 1.00000E+01 0.00000E+00 5.81774E+01 1.36504E+00 + 5.80955E+01 1.37367E+00 4.52751E+01 5.61258E+00 4.52751E+01 + 5.61258E+00 8.01768E-02 1.54226E-02 8.04144E-02 1.53981E-02 + 9.99690E-01 3.28628E-05 1.00000E+01 0.00000E+00 5.81809E+01 + 1.36461E+00 5.81024E+01 1.37281E+00 4.52751E+01 5.61247E+00 + 4.52760E+01 5.61247E+00 8.05712E-02 1.53764E-02 8.08021E-02 + 1.53528E-02 9.99703E-01 3.03349E-05 1.00000E+01 0.00000E+00 + 5.81852E+01 1.36418E+00 5.81110E+01 1.37173E+00 4.52760E+01 + 5.61247E+00 4.52742E+01 5.61268E+00 8.09908E-02 1.53278E-02 + 8.12031E-02 1.53061E-02 9.99717E-01 2.94923E-05 1.00000E+01 + 0.00000E+00 5.81886E+01 1.36375E+00 5.81188E+01 1.37087E+00 + 4.52734E+01 5.61268E+00 4.52751E+01 5.61258E+00 8.13835E-02 + 1.52825E-02 8.15857E-02 1.52620E-02 9.99744E-01 2.69644E-05 + 1.00000E+01 0.00000E+00 5.81904E+01 1.36364E+00 5.81239E+01 + 1.37033E+00 4.52751E+01 5.61258E+00 4.52742E+01 5.61258E+00 + 8.17863E-02 1.52365E-02 8.19784E-02 1.52172E-02 9.99744E-01 + 2.52791E-05 1.00000E+01 0.00000E+00 5.81938E+01 1.36321E+00 + 5.81308E+01 1.36947E+00 4.52725E+01 5.61279E+00 4.52725E+01 + 5.61279E+00 8.21739E-02 1.51925E-02 8.23559E-02 1.51744E-02 + 9.99771E-01 2.35938E-05 1.00000E+01 0.00000E+00 5.81990E+01 + 1.36267E+00 5.81377E+01 1.36871E+00 4.52751E+01 5.61258E+00 + 4.52734E+01 5.61279E+00 8.25817E-02 1.51468E-02 8.27603E-02 + 1.51289E-02 9.99771E-01 2.19085E-05 1.00000E+01 0.00000E+00 + 5.81981E+01 1.36267E+00 5.81438E+01 1.36806E+00 4.52725E+01 + 5.61279E+00 4.52734E+01 5.61279E+00 8.29777E-02 1.51026E-02 + 8.31378E-02 1.50868E-02 9.99784E-01 2.19085E-05 1.00000E+01 + 0.00000E+00 5.82024E+01 1.36224E+00 5.81498E+01 1.36742E+00 + 4.52725E+01 5.61279E+00 4.52734E+01 5.61268E+00 8.33805E-02 + 1.50579E-02 8.35356E-02 1.50427E-02 9.99798E-01 2.02233E-05 + 1.00000E+01 0.00000E+00 5.82042E+01 1.36202E+00 5.81541E+01 + 1.36688E+00 4.52734E+01 5.61268E+00 4.52734E+01 5.61279E+00 + 8.37715E-02 1.50147E-02 8.39232E-02 1.50004E-02 9.99825E-01 + 1.68527E-05 1.00000E+01 0.00000E+00 5.82068E+01 1.36181E+00 + 5.81602E+01 1.36634E+00 4.52734E+01 5.61279E+00 4.52716E+01 + 5.61290E+00 8.41726E-02 1.49713E-02 8.43142E-02 1.49576E-02 + 9.99798E-01 1.93806E-05 1.00000E+01 0.00000E+00 5.82068E+01 + 1.36170E+00 5.81636E+01 1.36591E+00 4.52725E+01 5.61279E+00 + 4.52725E+01 5.61279E+00 8.45737E-02 1.49279E-02 8.47018E-02 + 1.49155E-02 9.99838E-01 1.51674E-05 1.00000E+01 0.00000E+00 + 5.82111E+01 1.36127E+00 5.81697E+01 1.36526E+00 4.52716E+01 + 5.61290E+00 4.52716E+01 5.61290E+00 8.49647E-02 1.48858E-02 + 8.50894E-02 1.48738E-02 9.99825E-01 1.60101E-05 1.00000E+01 + 0.00000E+00 5.82119E+01 1.36116E+00 5.81722E+01 1.36504E+00 + 4.52725E+01 5.61279E+00 4.52725E+01 5.61279E+00 8.53590E-02 + 1.48439E-02 8.54837E-02 1.48323E-02 9.99852E-01 1.34822E-05 + 1.00000E+01 0.00000E+00 5.82137E+01 1.36094E+00 5.81757E+01 + 1.36461E+00 4.52725E+01 5.61279E+00 4.52725E+01 5.61279E+00 + 8.57702E-02 1.48003E-02 8.58916E-02 1.47891E-02 9.99852E-01 + 1.43248E-05 1.00000E+01 0.00000E+00 5.82171E+01 1.36062E+00 + 5.81826E+01 1.36386E+00 4.52716E+01 5.61290E+00 4.52716E+01 + 5.61290E+00 8.61713E-02 1.47586E-02 8.62758E-02 1.47487E-02 + 9.99879E-01 1.17969E-05 1.00000E+01 0.00000E+00 5.82188E+01 + 1.36051E+00 5.81843E+01 1.36364E+00 4.52708E+01 5.61301E+00 + 4.52691E+01 5.61322E+00 8.65825E-02 1.47154E-02 8.66870E-02 + 1.47059E-02 9.99865E-01 1.26395E-05 1.00000E+01 0.00000E+00 + 5.82180E+01 1.36051E+00 5.81878E+01 1.36332E+00 4.52725E+01 + 5.61279E+00 4.52751E+01 5.61258E+00 8.69634E-02 1.46760E-02 + 8.70578E-02 1.46673E-02 9.99879E-01 1.09543E-05 1.00000E+01 + 0.00000E+00 5.82197E+01 1.36030E+00 5.81912E+01 1.36299E+00 + 4.52716E+01 5.61290E+00 4.52716E+01 5.61290E+00 8.73578E-02 + 1.46355E-02 8.74454E-02 1.46275E-02 9.99879E-01 1.09543E-05 + 1.00000E+01 0.00000E+00 5.82223E+01 1.36008E+00 5.81947E+01 + 1.36267E+00 4.52716E+01 5.61290E+00 4.52708E+01 5.61301E+00 + 8.77791E-02 1.45930E-02 8.78667E-02 1.45848E-02 9.99906E-01 + 9.26900E-06 1.00000E+01 0.00000E+00 5.82249E+01 1.35987E+00 + 5.81990E+01 1.36224E+00 4.52716E+01 5.61290E+00 4.52708E+01 + 5.61301E+00 8.81633E-02 1.45540E-02 8.82408E-02 1.45468E-02 + 9.99906E-01 8.42636E-06 1.00000E+01 0.00000E+00 5.82257E+01 + 1.35976E+00 5.81999E+01 1.36213E+00 4.52708E+01 5.61301E+00 + 4.52716E+01 5.61290E+00 8.85678E-02 1.45131E-02 8.86487E-02 + 1.45058E-02 9.99906E-01 8.42636E-06 1.00000E+01 0.00000E+00 + 5.82257E+01 1.35976E+00 5.82042E+01 1.36170E+00 4.52716E+01 + 5.61290E+00 4.52716E+01 5.61290E+00 8.89723E-02 1.44729E-02 + 8.90430E-02 1.44668E-02 9.99906E-01 8.42636E-06 1.00000E+01 + 0.00000E+00 5.82257E+01 1.35976E+00 5.82042E+01 1.36170E+00 + 4.52708E+01 5.61290E+00 4.52708E+01 5.61301E+00 8.93700E-02 + 1.44335E-02 8.94340E-02 1.44276E-02 9.99906E-01 8.42636E-06 + 1.00000E+01 0.00000E+00 5.82283E+01 1.35954E+00 5.82076E+01 + 1.36138E+00 4.52691E+01 5.61312E+00 4.52708E+01 5.61301E+00 + 8.97677E-02 1.43943E-02 8.98351E-02 1.43884E-02 9.99933E-01 + 5.89845E-06 1.00000E+01 0.00000E+00 5.82309E+01 1.35922E+00 + 5.82102E+01 1.36105E+00 4.52708E+01 5.61290E+00 4.52725E+01 + 5.61290E+00 9.01823E-02 1.43539E-02 9.02463E-02 1.43482E-02 + 9.99919E-01 7.58372E-06 1.00000E+01 0.00000E+00 5.82292E+01 + 1.35943E+00 5.82111E+01 1.36094E+00 4.52725E+01 5.61290E+00 + 4.52708E+01 5.61290E+00 9.05834E-02 1.43149E-02 9.06407E-02 + 1.43101E-02 9.99933E-01 5.89845E-06 1.00000E+01 0.00000E+00 + 5.82326E+01 1.35911E+00 5.82154E+01 1.36062E+00 4.52708E+01 + 5.61301E+00 4.52691E+01 5.61312E+00 9.09811E-02 1.42766E-02 + 9.10350E-02 1.42719E-02 9.99933E-01 5.05582E-06 1.00000E+01 + 0.00000E+00 5.82326E+01 1.35911E+00 5.82154E+01 1.36062E+00 + 4.52708E+01 5.61301E+00 4.52708E+01 5.61290E+00 9.13957E-02 + 1.42370E-02 9.14530E-02 1.42321E-02 9.99933E-01 5.89845E-06 + 1.00000E+01 0.00000E+00 5.82335E+01 1.35900E+00 5.82180E+01 + 1.36041E+00 4.52708E+01 5.61301E+00 4.52691E+01 5.61312E+00 + 9.17968E-02 1.41990E-02 9.18473E-02 1.41944E-02 9.99946E-01 + 4.21318E-06 1.00000E+01 0.00000E+00 5.82352E+01 1.35891E+00 + 5.82196E+01 1.36021E+00 4.52714E+01 5.61298E+00 4.52714E+01 + 5.61308E+00 9.21991E-02 1.41607E-02 9.22463E-02 1.41567E-02 + 9.99946E-01 5.05588E-06 1.00000E+01 0.00000E+00 5.82361E+01 + 1.35879E+00 5.82223E+01 1.35997E+00 4.52691E+01 5.61312E+00 + 4.52708E+01 5.61290E+00 9.25990E-02 1.41234E-02 9.26461E-02 + 1.41194E-02 9.99960E-01 4.21318E-06 1.00000E+01 0.00000E+00 + 5.82335E+01 1.35900E+00 5.82223E+01 1.35997E+00 4.52708E+01 + 5.61290E+00 4.52708E+01 5.61301E+00 9.30203E-02 1.40840E-02 + 9.30540E-02 1.40811E-02 9.99960E-01 4.21318E-06 1.00000E+01 + 0.00000E+00 5.82370E+01 1.35868E+00 5.82249E+01 1.35976E+00 + 4.52708E+01 5.61312E+00 4.52708E+01 5.61301E+00 9.34113E-02 + 1.40478E-02 9.34517E-02 1.40444E-02 9.99946E-01 5.05582E-06 + 1.00000E+01 0.00000E+00 5.82370E+01 1.35868E+00 5.82240E+01 + 1.35976E+00 4.52725E+01 5.61290E+00 4.52691E+01 5.61312E+00 + 9.38292E-02 1.40095E-02 9.38730E-02 1.40059E-02 9.99960E-01 + 2.52791E-06 1.00000E+01 0.00000E+00 5.82370E+01 1.35868E+00 + 5.82292E+01 1.35933E+00 4.52691E+01 5.61301E+00 4.52691E+01 + 5.61301E+00 9.42370E-02 1.39722E-02 9.42640E-02 1.39701E-02 + 9.99933E-01 5.05582E-06 1.00000E+01 0.00000E+00 5.82387E+01 + 1.35857E+00 5.82266E+01 1.35954E+00 4.52691E+01 5.61312E+00 + 4.52691E+01 5.61312E+00 9.46516E-02 1.39347E-02 9.46887E-02 + 1.39313E-02 9.99973E-01 2.52791E-06 1.00000E+01 0.00000E+00 + 5.82396E+01 1.35846E+00 5.82292E+01 1.35933E+00 4.52708E+01 + 5.61301E+00 4.52725E+01 5.61290E+00 9.50493E-02 1.38986E-02 + 9.50831E-02 1.38959E-02 9.99960E-01 3.37054E-06 1.00000E+01 + 0.00000E+00 5.82396E+01 1.35846E+00 5.82301E+01 1.35922E+00 + 4.52708E+01 5.61290E+00 4.52725E+01 5.61290E+00 9.54774E-02 + 1.38605E-02 9.55077E-02 1.38580E-02 9.99973E-01 2.52791E-06 + 1.00000E+01 0.00000E+00 5.82396E+01 1.35846E+00 5.82301E+01 + 1.35922E+00 4.52691E+01 5.61312E+00 4.52673E+01 5.61322E+00 + 9.58718E-02 1.38251E-02 9.59021E-02 1.38226E-02 9.99973E-01 + 1.68527E-06 1.00000E+01 0.00000E+00 5.82396E+01 1.35846E+00 + 5.82344E+01 1.35890E+00 4.52691E+01 5.61312E+00 4.52691E+01 + 5.61312E+00 9.62964E-02 1.37876E-02 9.63133E-02 1.37864E-02 + 9.99960E-01 3.37054E-06 1.00000E+01 0.00000E+00 5.82413E+01 + 1.35825E+00 5.82326E+01 1.35900E+00 4.52725E+01 5.61290E+00 + 4.52725E+01 5.61290E+00 9.66908E-02 1.37527E-02 9.67245E-02 + 1.37501E-02 9.99960E-01 2.52791E-06 1.00000E+01 0.00000E+00 + 5.82396E+01 1.35846E+00 5.82326E+01 1.35900E+00 4.52708E+01 + 5.61301E+00 4.52708E+01 5.61301E+00 9.71189E-02 1.37156E-02 + 9.71391E-02 1.37139E-02 9.99973E-01 1.68527E-06 1.00000E+01 + 0.00000E+00 5.82413E+01 1.35825E+00 5.82344E+01 1.35879E+00 + 4.52691E+01 5.61312E+00 4.52691E+01 5.61312E+00 9.75368E-02 + 1.36794E-02 9.75570E-02 1.36777E-02 9.99973E-01 1.68527E-06 + 1.00000E+01 0.00000E+00 5.82404E+01 1.35836E+00 5.82352E+01 + 1.35879E+00 4.52708E+01 5.61301E+00 4.52708E+01 5.61301E+00 + 9.79413E-02 1.36444E-02 9.79615E-02 1.36427E-02 9.99973E-01 + 2.52791E-06 1.00000E+01 0.00000E+00 5.82421E+01 1.35825E+00 + 5.82370E+01 1.35868E+00 4.52708E+01 5.61312E+00 4.52708E+01 + 5.61312E+00 9.83626E-02 1.36082E-02 9.83761E-02 1.36069E-02 + 9.99987E-01 1.68527E-06 1.00000E+01 0.00000E+00 5.82439E+01 + 1.35814E+00 5.82361E+01 1.35868E+00 4.52725E+01 5.61290E+00 + 4.52725E+01 5.61290E+00 9.87772E-02 1.35728E-02 9.87974E-02 + 1.35711E-02 9.99973E-01 1.68527E-06 1.00000E+01 0.00000E+00 + 5.82430E+01 1.35814E+00 5.82387E+01 1.35846E+00 4.52691E+01 + 5.61312E+00 4.52691E+01 5.61312E+00 9.91917E-02 1.35374E-02 + 9.92086E-02 1.35361E-02 9.99987E-01 8.42636E-07 1.00000E+01 + 0.00000E+00 5.82430E+01 1.35814E+00 5.82378E+01 1.35857E+00 + 4.52708E+01 5.61301E+00 4.52708E+01 5.61301E+00 9.96063E-02 + 1.35028E-02 9.96265E-02 1.35011E-02 9.99973E-01 1.68527E-06 + 1.00000E+01 0.00000E+00 5.82439E+01 1.35803E+00 5.82396E+01 + 1.35846E+00 4.52708E+01 5.61312E+00 4.52708E+01 5.61312E+00 + 1.00028E-01 1.34674E-02 1.00044E-01 1.34662E-02 9.99973E-01 + 1.68527E-06 1.00000E+01 0.00000E+00 5.82430E+01 1.35814E+00 + 5.82378E+01 1.35857E+00 4.52708E+01 5.61301E+00 4.52708E+01 + 5.61301E+00 1.00449E-01 1.34325E-02 1.00469E-01 1.34308E-02 + 9.99987E-01 1.68527E-06 1.00000E+01 0.00000E+00 5.82430E+01 + 1.35814E+00 5.82421E+01 1.35825E+00 4.52691E+01 5.61312E+00 + 4.52691E+01 5.61312E+00 1.00874E-01 1.33971E-02 1.00874E-01 + 1.33971E-02 9.99987E-01 8.42636E-07 1.00000E+01 0.00000E+00 + 5.82430E+01 1.35814E+00 5.82404E+01 1.35836E+00 4.52708E+01 + 5.61301E+00 4.52708E+01 5.61301E+00 1.01281E-01 1.33638E-02 + 1.01292E-01 1.33629E-02 9.99973E-01 1.68527E-06 1.00000E+01 + 0.00000E+00 5.82465E+01 1.35792E+00 5.82387E+01 1.35846E+00 + 4.52691E+01 5.61312E+00 4.52691E+01 5.61312E+00 1.01706E-01 + 1.33288E-02 1.01733E-01 1.33267E-02 1.00000E+00 0.00000E+00 + 1.00000E+01 0.00000E+00 5.82430E+01 1.35814E+00 5.82413E+01 + 1.35825E+00 4.52691E+01 5.61312E+00 4.52691E+01 5.61312E+00 + 1.02138E-01 1.32938E-02 1.02144E-01 1.32934E-02 9.99973E-01 + 1.68527E-06 1.00000E+01 0.00000E+00 5.82456E+01 1.35792E+00 + 5.82413E+01 1.35825E+00 4.52708E+01 5.61301E+00 4.52708E+01 + 5.61301E+00 1.02545E-01 1.32606E-02 1.02559E-01 1.32597E-02 + 9.99987E-01 1.68527E-06 1.00000E+01 0.00000E+00 5.82456E+01 + 1.35792E+00 5.82430E+01 1.35814E+00 4.52725E+01 5.61290E+00 + 4.52725E+01 5.61290E+00 1.02977E-01 1.32260E-02 1.02984E-01 + 1.32256E-02 1.00000E+00 0.00000E+00 1.00000E+01 0.00000E+00 + 5.82430E+01 1.35814E+00 5.82404E+01 1.35836E+00 4.52691E+01 + 5.61312E+00 4.52691E+01 5.61312E+00 1.03395E-01 1.31923E-02 + 1.03408E-01 1.31915E-02 9.99987E-01 8.42636E-07 1.00000E+01 + 0.00000E+00 5.82473E+01 1.35782E+00 5.82447E+01 1.35803E+00 + 4.52708E+01 5.61301E+00 4.52708E+01 5.61301E+00 1.03823E-01 + 1.31586E-02 1.03830E-01 1.31578E-02 1.00000E+00 0.00000E+00 + 1.00000E+01 0.00000E+00 5.82456E+01 1.35792E+00 5.82439E+01 + 1.35803E+00 4.52691E+01 5.61312E+00 4.52691E+01 5.61312E+00 + 1.04244E-01 1.31253E-02 1.04248E-01 1.31249E-02 9.99973E-01 + 1.68527E-06 1.00000E+01 0.00000E+00 5.82447E+01 1.35803E+00 + 5.82404E+01 1.35836E+00 4.52691E+01 5.61312E+00 4.52691E+01 + 5.61312E+00 1.04666E-01 1.30920E-02 1.04682E-01 1.30908E-02 + 1.00000E+00 0.00000E+00 1.00000E+01 0.00000E+00 5.82465E+01 + 1.35792E+00 5.82447E+01 1.35803E+00 4.52708E+01 5.61301E+00 + 4.52708E+01 5.61301E+00 1.05104E-01 1.30579E-02 1.05100E-01 + 1.30579E-02 9.99973E-01 1.68527E-06 9.99989E+00 0.00000E+00 + 5.82465E+01 1.35792E+00 5.82439E+01 1.35803E+00 4.52708E+01 + 5.61312E+00 4.52708E+01 5.61312E+00 1.05518E-01 1.30255E-02 + 1.05528E-01 1.30246E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82473E+01 1.35782E+00 5.82439E+01 1.35803E+00 + 4.52708E+01 5.61301E+00 4.52708E+01 5.61301E+00 1.05956E-01 + 1.29918E-02 1.05967E-01 1.29909E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82472E+01 1.35784E+00 5.82447E+01 + 1.35805E+00 4.52679E+01 5.61319E+00 4.52679E+01 5.61319E+00 + 1.06372E-01 1.29595E-02 1.06379E-01 1.29591E-02 9.99973E-01 + 1.68529E-06 1.00000E+01 0.00000E+00 5.82447E+01 1.35803E+00 + 5.82430E+01 1.35814E+00 4.52708E+01 5.61301E+00 4.52708E+01 + 5.61301E+00 1.06816E-01 1.29256E-02 1.06823E-01 1.29252E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82456E+01 + 1.35792E+00 5.82447E+01 1.35803E+00 4.52708E+01 5.61312E+00 + 4.52708E+01 5.61312E+00 1.07237E-01 1.28936E-02 1.07244E-01 + 1.28932E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 5.82473E+01 1.35782E+00 5.82482E+01 1.35771E+00 4.52708E+01 + 5.61301E+00 4.52708E+01 5.61301E+00 1.07662E-01 1.28616E-02 + 1.07655E-01 1.28620E-02 9.99987E-01 8.42636E-07 1.00001E+01 + 0.00000E+00 5.82473E+01 1.35782E+00 5.82447E+01 1.35803E+00 + 4.52691E+01 5.61312E+00 4.52691E+01 5.61312E+00 1.08103E-01 + 1.28283E-02 1.08107E-01 1.28279E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82465E+01 1.35792E+00 5.82447E+01 + 1.35803E+00 4.52691E+01 5.61312E+00 4.52691E+01 5.61312E+00 + 1.08528E-01 1.27963E-02 1.08542E-01 1.27954E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82465E+01 1.35792E+00 + 5.82430E+01 1.35814E+00 4.52708E+01 5.61301E+00 4.52708E+01 + 5.61301E+00 1.08966E-01 1.27638E-02 1.08970E-01 1.27634E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 5.82465E+01 + 1.35782E+00 5.82499E+01 1.35771E+00 4.52708E+01 5.61312E+00 + 4.52708E+01 5.61312E+00 1.09391E-01 1.27322E-02 1.09388E-01 + 1.27327E-02 9.99973E-01 1.68527E-06 1.00001E+01 0.00000E+00 + 5.82482E+01 1.35782E+00 5.82447E+01 1.35803E+00 4.52708E+01 + 5.61301E+00 4.52708E+01 5.61301E+00 1.09819E-01 1.27006E-02 + 1.09833E-01 1.26998E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 5.82482E+01 1.35771E+00 5.82465E+01 1.35782E+00 + 4.52691E+01 5.61312E+00 4.52691E+01 5.61312E+00 1.10254E-01 + 1.26686E-02 1.10271E-01 1.26678E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82482E+01 1.35782E+00 5.82482E+01 + 1.35782E+00 4.52725E+01 5.61290E+00 4.52725E+01 5.61290E+00 + 1.10689E-01 1.26370E-02 1.10692E-01 1.26370E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82447E+01 1.35792E+00 + 5.82465E+01 1.35792E+00 4.52673E+01 5.61322E+00 4.52673E+01 + 5.61322E+00 1.11130E-01 1.26050E-02 1.11130E-01 1.26050E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82447E+01 + 1.35792E+00 5.82447E+01 1.35803E+00 4.52725E+01 5.61290E+00 + 4.52725E+01 5.61290E+00 1.11568E-01 1.25734E-02 1.11572E-01 + 1.25730E-02 9.99987E-01 1.68527E-06 9.99989E+00 0.00000E+00 + 5.82482E+01 1.35782E+00 5.82465E+01 1.35792E+00 4.52673E+01 + 5.61322E+00 4.52673E+01 5.61322E+00 1.11993E-01 1.25426E-02 + 1.12000E-01 1.25426E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82465E+01 1.35782E+00 5.82482E+01 1.35771E+00 + 4.52725E+01 5.61290E+00 4.52725E+01 5.61290E+00 1.12435E-01 + 1.25110E-02 1.12428E-01 1.25115E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82465E+01 1.35782E+00 5.82447E+01 + 1.35792E+00 4.52673E+01 5.61322E+00 4.52673E+01 5.61322E+00 + 1.12859E-01 1.24807E-02 1.12873E-01 1.24799E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82482E+01 1.35782E+00 + 5.82447E+01 1.35792E+00 4.52725E+01 5.61290E+00 4.52725E+01 + 5.61290E+00 1.13311E-01 1.24491E-02 1.13318E-01 1.24487E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 5.82482E+01 + 1.35771E+00 5.82465E+01 1.35782E+00 4.52673E+01 5.61322E+00 + 4.52673E+01 5.61322E+00 1.13749E-01 1.24183E-02 1.13749E-01 + 1.24183E-02 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82465E+01 1.35782E+00 5.82482E+01 1.35782E+00 4.52725E+01 + 5.61290E+00 4.52725E+01 5.61290E+00 1.14181E-01 1.23880E-02 + 1.14181E-01 1.23880E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 5.82482E+01 1.35782E+00 5.82465E+01 1.35782E+00 + 4.52673E+01 5.61322E+00 4.52673E+01 5.61322E+00 1.14619E-01 + 1.23573E-02 1.14619E-01 1.23573E-02 9.99987E-01 8.42636E-07 + 1.00001E+01 0.00000E+00 5.82482E+01 1.35771E+00 5.82499E+01 + 1.35771E+00 4.52725E+01 5.61290E+00 4.52725E+01 5.61290E+00 + 1.15064E-01 1.23265E-02 1.15064E-01 1.23265E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82465E+01 1.35782E+00 + 5.82465E+01 1.35792E+00 4.52673E+01 5.61322E+00 4.52673E+01 + 5.61322E+00 1.15502E-01 1.22962E-02 1.15509E-01 1.22957E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82447E+01 + 1.35792E+00 5.82465E+01 1.35792E+00 4.52708E+01 5.61301E+00 + 4.52708E+01 5.61301E+00 1.15940E-01 1.22658E-02 1.15953E-01 + 1.22654E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 5.82499E+01 1.35771E+00 5.82465E+01 1.35782E+00 4.52673E+01 + 5.61322E+00 4.52673E+01 5.61322E+00 1.16385E-01 1.22359E-02 + 1.16378E-01 1.22359E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82482E+01 1.35782E+00 5.82482E+01 1.35771E+00 + 4.52742E+01 5.61279E+00 4.52742E+01 5.61279E+00 1.16830E-01 + 1.22056E-02 1.16823E-01 1.22060E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82499E+01 1.35771E+00 5.82447E+01 + 1.35792E+00 4.52656E+01 5.61333E+00 4.52656E+01 5.61333E+00 + 1.17254E-01 1.21765E-02 1.17268E-01 1.21757E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82447E+01 1.35792E+00 + 5.82482E+01 1.35782E+00 4.52725E+01 5.61290E+00 4.52725E+01 + 5.61290E+00 1.17720E-01 1.21453E-02 1.17720E-01 1.21458E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 5.82482E+01 + 1.35771E+00 5.82465E+01 1.35782E+00 4.52691E+01 5.61312E+00 + 4.52691E+01 5.61312E+00 1.18144E-01 1.21167E-02 1.18151E-01 + 1.21163E-02 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82465E+01 1.35782E+00 5.82499E+01 1.35760E+00 4.52725E+01 + 5.61290E+00 4.52725E+01 5.61290E+00 1.18596E-01 1.20868E-02 + 1.18582E-01 1.20876E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 5.82465E+01 1.35792E+00 5.82447E+01 1.35803E+00 + 4.52656E+01 5.61333E+00 4.52656E+01 5.61333E+00 1.19041E-01 + 1.20569E-02 1.19048E-01 1.20564E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82499E+01 1.35760E+00 5.82482E+01 + 1.35771E+00 4.52725E+01 5.61290E+00 4.52725E+01 5.61290E+00 + 1.19472E-01 1.20286E-02 1.19479E-01 1.20282E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82447E+01 1.35792E+00 + 5.82465E+01 1.35782E+00 4.52691E+01 5.61312E+00 4.52691E+01 + 5.61312E+00 1.19937E-01 1.19979E-02 1.19931E-01 1.19983E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82482E+01 1.35782E+00 4.52691E+01 5.61312E+00 + 4.52691E+01 5.61312E+00 1.20362E-01 1.19701E-02 1.20369E-01 + 1.19696E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 4.52691E+01 + 5.61312E+00 4.52691E+01 5.61312E+00 1.20827E-01 1.19402E-02 + 1.20827E-01 1.19402E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 + 4.52742E+01 5.61290E+00 4.52742E+01 5.61290E+00 1.21272E-01 + 1.19111E-02 1.21272E-01 1.19111E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82482E+01 1.35771E+00 5.82482E+01 + 1.35771E+00 4.52656E+01 5.61333E+00 4.52656E+01 5.61333E+00 + 1.21704E-01 1.18829E-02 1.21710E-01 1.18829E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82465E+01 1.35782E+00 + 5.82482E+01 1.35771E+00 4.52725E+01 5.61290E+00 4.52725E+01 + 5.61290E+00 1.22149E-01 1.18542E-02 1.22142E-01 1.18546E-02 + 9.99973E-01 1.68527E-06 9.99989E+00 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82482E+01 1.35771E+00 4.52691E+01 5.61312E+00 + 4.52691E+01 5.61312E+00 1.22607E-01 1.18251E-02 1.22607E-01 + 1.18251E-02 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82482E+01 1.35771E+00 5.82447E+01 1.35792E+00 4.52725E+01 + 5.61290E+00 4.52725E+01 5.61290E+00 1.23059E-01 1.17965E-02 + 1.23072E-01 1.17956E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 5.82482E+01 1.35782E+00 5.82482E+01 1.35782E+00 + 4.52656E+01 5.61333E+00 4.52656E+01 5.61333E+00 1.23497E-01 + 1.17687E-02 1.23497E-01 1.17687E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 + 1.35782E+00 4.52725E+01 5.61290E+00 4.52725E+01 5.61290E+00 + 1.23948E-01 1.17400E-02 1.23948E-01 1.17400E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82465E+01 1.35782E+00 + 5.82465E+01 1.35782E+00 4.52691E+01 5.61312E+00 4.52691E+01 + 5.61312E+00 1.24387E-01 1.17122E-02 1.24387E-01 1.17122E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 4.52725E+01 5.61290E+00 + 4.52725E+01 5.61290E+00 1.24845E-01 1.16836E-02 1.24845E-01 + 1.16836E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 5.82482E+01 1.35782E+00 5.82482E+01 1.35782E+00 4.52656E+01 + 5.61333E+00 4.52656E+01 5.61333E+00 1.25297E-01 1.16558E-02 + 1.25297E-01 1.16558E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82482E+01 1.35782E+00 5.82482E+01 1.35782E+00 + 4.52725E+01 5.61290E+00 4.52725E+01 5.61290E+00 1.25742E-01 + 1.16280E-02 1.25742E-01 1.16280E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82499E+01 1.35771E+00 5.82516E+01 + 1.35760E+00 4.52725E+01 5.61312E+00 4.52725E+01 5.61312E+00 + 1.26207E-01 1.15993E-02 1.26200E-01 1.15997E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 + 5.82465E+01 1.35792E+00 4.52725E+01 5.61290E+00 4.52725E+01 + 5.61290E+00 1.26645E-01 1.15723E-02 1.26658E-01 1.15715E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 4.52656E+01 5.61333E+00 + 4.52656E+01 5.61333E+00 1.27096E-01 1.15445E-02 1.27096E-01 + 1.15445E-02 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82482E+01 1.35782E+00 5.82482E+01 1.35782E+00 4.52725E+01 + 5.61290E+00 4.52725E+01 5.61290E+00 1.27541E-01 1.15171E-02 + 1.27541E-01 1.15171E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 5.82465E+01 1.35782E+00 5.82482E+01 1.35771E+00 + 4.52656E+01 5.61333E+00 4.52656E+01 5.61333E+00 1.28007E-01 + 1.14893E-02 1.28000E-01 1.14898E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 + 1.35782E+00 4.52725E+01 5.61290E+00 4.52725E+01 5.61290E+00 + 1.28445E-01 1.14624E-02 1.28445E-01 1.14624E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82465E+01 1.35782E+00 + 5.82465E+01 1.35782E+00 4.52691E+01 5.61312E+00 4.52691E+01 + 5.61312E+00 1.28910E-01 1.14346E-02 1.28910E-01 1.14346E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 4.52725E+01 5.61290E+00 + 4.52725E+01 5.61290E+00 1.29348E-01 1.14080E-02 1.29355E-01 + 1.14080E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 4.52656E+01 + 5.61333E+00 4.52656E+01 5.61333E+00 1.29806E-01 1.13811E-02 + 1.29806E-01 1.13811E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82499E+01 1.35771E+00 5.82482E+01 1.35782E+00 + 4.52725E+01 5.61290E+00 4.52725E+01 5.61290E+00 1.30258E-01 + 1.13541E-02 1.30265E-01 1.13537E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82447E+01 1.35792E+00 5.82465E+01 + 1.35782E+00 4.52691E+01 5.61312E+00 4.52691E+01 5.61312E+00 + 1.30723E-01 1.13267E-02 1.30716E-01 1.13271E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82516E+01 1.35760E+00 + 5.82499E+01 1.35771E+00 4.52725E+01 5.61290E+00 4.52725E+01 + 5.61290E+00 1.31161E-01 1.13006E-02 1.31168E-01 1.13002E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82516E+01 1.35760E+00 4.52656E+01 5.61333E+00 + 4.52656E+01 5.61333E+00 1.31626E-01 1.12736E-02 1.31620E-01 + 1.12740E-02 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 4.52725E+01 + 5.61290E+00 4.52725E+01 5.61290E+00 1.32071E-01 1.12475E-02 + 1.32071E-01 1.12475E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 5.82447E+01 1.35792E+00 5.82482E+01 1.35782E+00 + 4.52691E+01 5.61312E+00 4.52691E+01 5.61312E+00 1.32543E-01 + 1.12201E-02 1.32523E-01 1.12210E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82516E+01 1.35760E+00 5.82499E+01 + 1.35771E+00 4.52725E+01 5.61290E+00 4.52725E+01 5.61290E+00 + 1.32975E-01 1.11948E-02 1.32988E-01 1.11940E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82465E+01 1.35782E+00 + 5.82447E+01 1.35792E+00 4.52656E+01 5.61333E+00 4.52656E+01 + 5.61333E+00 1.33433E-01 1.11683E-02 1.33440E-01 1.11679E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 4.52725E+01 5.61290E+00 + 4.52725E+01 5.61290E+00 1.33885E-01 1.11422E-02 1.33885E-01 + 1.11422E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 5.82465E+01 1.35782E+00 5.82482E+01 1.35771E+00 4.52691E+01 + 5.61312E+00 4.52691E+01 5.61312E+00 1.34350E-01 1.11156E-02 + 1.34343E-01 1.11161E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82482E+01 1.35782E+00 5.82482E+01 1.35782E+00 + 4.52725E+01 5.61290E+00 4.52725E+01 5.61290E+00 1.34808E-01 + 1.10895E-02 1.34808E-01 1.10895E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82482E+01 1.35771E+00 5.82465E+01 + 1.35782E+00 4.52656E+01 5.61333E+00 4.52656E+01 5.61333E+00 + 1.35253E-01 1.10642E-02 1.35260E-01 1.10638E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 + 5.82499E+01 1.35771E+00 4.52760E+01 5.61268E+00 4.52760E+01 + 5.61268E+00 1.35712E-01 1.10381E-02 1.35712E-01 1.10381E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 5.82465E+01 + 1.35782E+00 5.82465E+01 1.35782E+00 4.52621E+01 5.61355E+00 + 4.52621E+01 5.61355E+00 1.36177E-01 1.10120E-02 1.36177E-01 + 1.10120E-02 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 4.52760E+01 + 5.61268E+00 4.52760E+01 5.61268E+00 1.36622E-01 1.09867E-02 + 1.36622E-01 1.09867E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 5.82482E+01 1.35771E+00 5.82482E+01 1.35771E+00 + 4.52656E+01 5.61333E+00 4.52656E+01 5.61333E+00 1.37080E-01 + 1.09614E-02 1.37080E-01 1.09614E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82499E+01 1.35760E+00 5.82499E+01 + 1.35760E+00 4.52760E+01 5.61268E+00 4.52760E+01 5.61268E+00 + 1.37525E-01 1.09366E-02 1.37525E-01 1.09366E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82447E+01 1.35792E+00 + 5.82447E+01 1.35792E+00 4.52587E+01 5.61355E+00 4.52587E+01 + 5.61355E+00 1.38017E-01 1.09096E-02 1.38017E-01 1.09096E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82480E+01 + 1.35775E+00 5.82480E+01 1.35775E+00 4.52737E+01 5.61284E+00 + 4.52737E+01 5.61284E+00 1.38445E-01 1.08855E-02 1.38445E-01 + 1.08855E-02 1.00000E+00 0.00000E+00 9.99995E+00 0.00000E+00 + 5.82482E+01 1.35782E+00 5.82482E+01 1.35782E+00 4.52691E+01 + 5.61312E+00 4.52691E+01 5.61312E+00 1.38920E-01 1.08595E-02 + 1.38920E-01 1.08595E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82482E+01 1.35771E+00 5.82482E+01 1.35771E+00 + 4.52691E+01 5.61312E+00 4.52691E+01 5.61312E+00 1.39359E-01 + 1.08355E-02 1.39359E-01 1.08355E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 + 1.35771E+00 4.52725E+01 5.61290E+00 4.52725E+01 5.61290E+00 + 1.39837E-01 1.08093E-02 1.39837E-01 1.08093E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82465E+01 1.35782E+00 + 5.82465E+01 1.35782E+00 4.52691E+01 5.61312E+00 4.52691E+01 + 5.61312E+00 1.40289E-01 1.07849E-02 1.40289E-01 1.07849E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 4.52691E+01 5.61312E+00 + 4.52691E+01 5.61312E+00 1.40740E-01 1.07600E-02 1.40740E-01 + 1.07600E-02 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 4.52691E+01 + 5.61312E+00 4.52691E+01 5.61312E+00 1.41212E-01 1.07348E-02 + 1.41212E-01 1.07348E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 + 4.52760E+01 5.61290E+00 4.52760E+01 5.61290E+00 1.41650E-01 + 1.07112E-02 1.41650E-01 1.07112E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 + 1.35771E+00 4.52691E+01 5.61312E+00 4.52691E+01 5.61312E+00 + 1.42116E-01 1.06863E-02 1.42116E-01 1.06863E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82447E+01 1.35792E+00 + 5.82447E+01 1.35792E+00 4.52691E+01 5.61312E+00 4.52691E+01 + 5.61312E+00 1.42594E-01 1.06606E-02 1.42594E-01 1.06606E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82516E+01 + 1.35760E+00 5.82516E+01 1.35760E+00 6.83064E+02 -2.83186E+01 + 6.83064E+02 -2.83186E+01 1.43032E-01 1.06374E-02 1.43032E-01 + 1.06374E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 1.48778E+02 + -2.15715E-04 1.48778E+02 -2.15715E-04 1.43491E-01 1.06130E-02 + 1.43491E-01 1.06130E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 5.82482E+01 1.35771E+00 5.82482E+01 1.35771E+00 + 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 1.43956E-01 + 1.05886E-02 1.43956E-01 1.05886E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82482E+01 1.35782E+00 5.82482E+01 + 1.35782E+00 1.48778E+02 -2.15715E-04 1.48778E+02 -2.15715E-04 + 1.44421E-01 1.05641E-02 1.44421E-01 1.05641E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 + 5.82499E+01 1.35771E+00 1.48774E+02 0.00000E+00 1.48774E+02 + 0.00000E+00 1.44873E-01 1.05405E-02 1.44873E-01 1.05405E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 5.82465E+01 + 1.35782E+00 5.82465E+01 1.35782E+00 1.48774E+02 -2.15715E-04 + 1.48774E+02 -2.15715E-04 1.45345E-01 1.05157E-02 1.45345E-01 + 1.05157E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 1.48771E+02 + 0.00000E+00 1.48771E+02 0.00000E+00 1.45783E-01 1.04929E-02 + 1.45783E-01 1.04929E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 + 1.48774E+02 0.00000E+00 1.48774E+02 0.00000E+00 1.46268E-01 + 1.04676E-02 1.46268E-01 1.04676E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 + 1.35771E+00 1.48778E+02 -2.15715E-04 1.48778E+02 -2.15715E-04 + 1.46713E-01 1.04449E-02 1.46713E-01 1.04449E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82465E+01 1.35782E+00 + 5.82465E+01 1.35782E+00 1.48767E+02 2.15715E-04 1.48767E+02 + 2.15715E-04 1.47178E-01 1.04209E-02 1.47178E-01 1.04209E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 1.48778E+02 -2.15715E-04 + 1.48778E+02 -2.15715E-04 1.47630E-01 1.03977E-02 1.47630E-01 + 1.03977E-02 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 1.48771E+02 + 0.00000E+00 1.48771E+02 0.00000E+00 1.48088E-01 1.03741E-02 + 1.48088E-01 1.03741E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82482E+01 1.35771E+00 5.82482E+01 1.35771E+00 + 1.48774E+02 -2.15715E-04 1.48774E+02 -2.15715E-04 1.48547E-01 + 1.03509E-02 1.48547E-01 1.03509E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82447E+01 1.35792E+00 5.82447E+01 + 1.35792E+00 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 + 1.49025E-01 1.03265E-02 1.49025E-01 1.03265E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82465E+01 1.35782E+00 + 5.82465E+01 1.35782E+00 1.48774E+02 0.00000E+00 1.48774E+02 + 0.00000E+00 1.49477E-01 1.03038E-02 1.49477E-01 1.03038E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82516E+01 + 1.35760E+00 5.82516E+01 1.35760E+00 1.48774E+02 -2.15715E-04 + 1.48774E+02 -2.15715E-04 1.49929E-01 1.02810E-02 1.49929E-01 + 1.02810E-02 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82447E+01 1.35792E+00 5.82447E+01 1.35792E+00 1.48771E+02 + 0.00000E+00 1.48771E+02 0.00000E+00 1.50407E-01 1.02570E-02 + 1.50407E-01 1.02570E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 5.82516E+01 1.35760E+00 5.82516E+01 1.35760E+00 + 1.48778E+02 -2.15715E-04 1.48778E+02 -2.15715E-04 1.50852E-01 + 1.02351E-02 1.50852E-01 1.02351E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 + 1.35782E+00 1.48774E+02 0.00000E+00 1.48774E+02 0.00000E+00 + 1.51337E-01 1.02106E-02 1.51337E-01 1.02106E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82516E+01 1.35760E+00 + 5.82516E+01 1.35760E+00 1.48771E+02 0.00000E+00 1.48771E+02 + 0.00000E+00 1.51769E-01 1.01892E-02 1.51769E-01 1.01892E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82465E+01 + 1.35782E+00 5.82465E+01 1.35782E+00 1.48774E+02 0.00000E+00 + 1.48774E+02 0.00000E+00 1.52241E-01 1.01660E-02 1.52241E-01 + 1.01660E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 1.48771E+02 + 0.00000E+00 1.48771E+02 0.00000E+00 1.52713E-01 1.01428E-02 + 1.52713E-01 1.01428E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 + 1.48774E+02 -2.15715E-04 1.48774E+02 -2.15715E-04 1.53164E-01 + 1.01205E-02 1.53164E-01 1.01205E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82482E+01 1.35782E+00 5.82482E+01 + 1.35782E+00 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 + 1.53623E-01 1.00977E-02 1.53623E-01 1.00977E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82482E+01 1.35782E+00 + 5.82482E+01 1.35782E+00 1.48778E+02 -2.15715E-04 1.48778E+02 + -2.15715E-04 1.54095E-01 1.00750E-02 1.54095E-01 1.00750E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 5.82482E+01 + 1.35771E+00 5.82482E+01 1.35771E+00 1.48774E+02 0.00000E+00 + 1.48774E+02 0.00000E+00 1.54533E-01 1.00535E-02 1.54533E-01 + 1.00535E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 5.82516E+01 1.35760E+00 5.82516E+01 1.35760E+00 1.48778E+02 + -2.15715E-04 1.48778E+02 -2.15715E-04 1.55005E-01 1.00307E-02 + 1.55005E-01 1.00307E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82447E+01 1.35792E+00 5.82447E+01 1.35792E+00 + 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 1.55483E-01 + 1.00076E-02 1.55483E-01 1.00076E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 + 1.35782E+00 1.48774E+02 0.00000E+00 1.48774E+02 0.00000E+00 + 1.55935E-01 9.98608E-03 1.55935E-01 9.98608E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82516E+01 1.35760E+00 + 5.82516E+01 1.35760E+00 1.48771E+02 0.00000E+00 1.48771E+02 + 0.00000E+00 1.56387E-01 9.96417E-03 1.56387E-01 9.96417E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 5.82447E+01 + 1.35792E+00 5.82447E+01 1.35792E+00 1.48771E+02 0.00000E+00 + 1.48771E+02 0.00000E+00 1.56865E-01 9.94142E-03 1.56865E-01 + 9.94142E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 1.48778E+02 + -2.15715E-04 1.48778E+02 -2.15715E-04 1.57317E-01 9.91993E-03 + 1.57317E-01 9.91993E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82482E+01 1.35771E+00 5.82482E+01 1.35771E+00 + 1.48774E+02 0.00000E+00 1.48774E+02 0.00000E+00 1.57782E-01 + 9.89802E-03 1.57782E-01 9.89802E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 + 1.35782E+00 1.48778E+02 -2.15715E-04 1.48778E+02 -2.15715E-04 + 1.58254E-01 9.87569E-03 1.58254E-01 9.87569E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82465E+01 1.35782E+00 + 5.82465E+01 1.35782E+00 1.48771E+02 0.00000E+00 1.48771E+02 + 0.00000E+00 1.58705E-01 9.85421E-03 1.58705E-01 9.85421E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82516E+01 + 1.35760E+00 5.82516E+01 1.35760E+00 1.48771E+02 0.00000E+00 + 1.48771E+02 0.00000E+00 1.59157E-01 9.83272E-03 1.59157E-01 + 9.83272E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 1.48778E+02 + -2.15715E-04 1.48778E+02 -2.15715E-04 1.59615E-01 9.81123E-03 + 1.59615E-01 9.81123E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 + 1.48774E+02 0.00000E+00 1.48774E+02 0.00000E+00 1.60081E-01 + 9.78975E-03 1.60081E-01 9.78975E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 + 1.35771E+00 1.48778E+02 -2.15715E-04 1.48778E+02 -2.15715E-04 + 1.60539E-01 9.76826E-03 1.60539E-01 9.76826E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82465E+01 1.35782E+00 + 5.82465E+01 1.35782E+00 1.48767E+02 2.15715E-04 1.48767E+02 + 2.15715E-04 1.61004E-01 9.74635E-03 1.61004E-01 9.74635E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82465E+01 + 1.35782E+00 5.82465E+01 1.35782E+00 1.48778E+02 -2.15715E-04 + 1.48778E+02 -2.15715E-04 1.61476E-01 9.72486E-03 1.61476E-01 + 9.72486E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 5.82447E+01 1.35792E+00 5.82447E+01 1.35792E+00 1.48774E+02 + 0.00000E+00 1.48774E+02 0.00000E+00 1.61948E-01 9.70338E-03 + 1.61948E-01 9.70338E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 5.82534E+01 1.35749E+00 5.82534E+01 1.35749E+00 + 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 1.62393E-01 + 9.68315E-03 1.62393E-01 9.68315E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 + 1.35782E+00 1.48774E+02 -2.15715E-04 1.48774E+02 -2.15715E-04 + 1.62851E-01 9.66209E-03 1.62851E-01 9.66209E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82482E+01 1.35771E+00 + 5.82482E+01 1.35771E+00 1.48771E+02 0.00000E+00 1.48771E+02 + 0.00000E+00 1.63337E-01 9.64018E-03 1.63337E-01 9.64018E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 5.82465E+01 + 1.35782E+00 5.82465E+01 1.35782E+00 1.48778E+02 -2.15715E-04 + 1.48778E+02 -2.15715E-04 1.63781E-01 9.61953E-03 1.63781E-01 + 9.61953E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 1.48774E+02 + 0.00000E+00 1.48774E+02 0.00000E+00 1.64240E-01 9.59847E-03 + 1.64240E-01 9.59847E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82482E+01 1.35771E+00 5.82482E+01 1.35771E+00 + 1.48778E+02 -2.15715E-04 1.48778E+02 -2.15715E-04 1.64712E-01 + 9.57740E-03 1.64712E-01 9.57740E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82482E+01 1.35771E+00 5.82482E+01 + 1.35771E+00 1.48774E+02 0.00000E+00 1.48774E+02 0.00000E+00 + 1.65157E-01 9.55718E-03 1.65157E-01 9.55718E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82465E+01 1.35782E+00 + 5.82465E+01 1.35782E+00 1.48771E+02 0.00000E+00 1.48771E+02 + 0.00000E+00 1.65615E-01 9.53653E-03 1.65615E-01 9.53653E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 5.82465E+01 + 1.35782E+00 5.82465E+01 1.35782E+00 1.48771E+02 0.00000E+00 + 1.48771E+02 0.00000E+00 1.66114E-01 9.51463E-03 1.66114E-01 + 9.51463E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 1.48774E+02 + 0.00000E+00 1.48774E+02 0.00000E+00 1.66559E-01 9.49440E-03 + 1.66559E-01 9.49440E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 + 1.48778E+02 -2.15715E-04 1.48778E+02 -2.15715E-04 1.66990E-01 + 9.47502E-03 1.66990E-01 9.47502E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82482E+01 1.35771E+00 5.82482E+01 + 1.35771E+00 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 + 1.67462E-01 9.45396E-03 1.67462E-01 9.45396E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82499E+01 1.35771E+00 + 5.82499E+01 1.35771E+00 1.48774E+02 -2.15715E-04 1.48774E+02 + -2.15715E-04 1.67921E-01 9.43415E-03 1.67921E-01 9.43415E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82447E+01 + 1.35792E+00 5.82447E+01 1.35792E+00 1.48771E+02 0.00000E+00 + 1.48771E+02 0.00000E+00 1.68419E-01 9.41224E-03 1.68419E-01 + 9.41224E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 1.48771E+02 + 0.00000E+00 1.48771E+02 0.00000E+00 1.68837E-01 9.39413E-03 + 1.68837E-01 9.39413E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 5.82534E+01 1.35760E+00 5.82534E+01 1.35760E+00 + 1.48778E+02 -2.15715E-04 1.48778E+02 -2.15715E-04 1.69336E-01 + 9.37222E-03 1.69336E-01 9.37222E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 + 1.35782E+00 1.48774E+02 0.00000E+00 1.48774E+02 0.00000E+00 + 1.69781E-01 9.35242E-03 1.69781E-01 9.35242E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 + 5.82499E+01 1.35771E+00 1.48771E+02 0.00000E+00 1.48771E+02 + 0.00000E+00 1.70226E-01 9.33346E-03 1.70226E-01 9.33346E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 1.48771E+02 0.00000E+00 + 1.48771E+02 0.00000E+00 1.70698E-01 9.31281E-03 1.70698E-01 + 9.31281E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 5.82465E+01 1.35792E+00 5.82465E+01 1.35792E+00 1.48778E+02 + -2.15715E-04 1.48778E+02 -2.15715E-04 1.71197E-01 9.29133E-03 + 1.71197E-01 9.29133E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 5.82465E+01 1.35792E+00 5.82465E+01 1.35792E+00 + 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 1.71601E-01 + 9.27321E-03 1.71601E-01 9.27321E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 + 1.35771E+00 1.48774E+02 0.00000E+00 1.48774E+02 0.00000E+00 + 1.72087E-01 9.25256E-03 1.72087E-01 9.25256E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82465E+01 1.35771E+00 + 5.82465E+01 1.35771E+00 1.48778E+02 -2.15715E-04 1.48778E+02 + -2.15715E-04 1.72518E-01 9.23403E-03 1.72518E-01 9.23403E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 1.48771E+02 0.00000E+00 + 1.48771E+02 0.00000E+00 1.73003E-01 9.21380E-03 1.73003E-01 + 9.21380E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 5.82499E+01 1.35782E+00 5.82499E+01 1.35782E+00 1.48778E+02 + -2.15715E-04 1.48778E+02 -2.15715E-04 1.73462E-01 9.19358E-03 + 1.73462E-01 9.19358E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 + 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 1.73920E-01 + 9.17420E-03 1.73920E-01 9.17420E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 + 1.35771E+00 1.48774E+02 -2.15715E-04 1.48774E+02 -2.15715E-04 + 1.74365E-01 9.15524E-03 1.74365E-01 9.15524E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82499E+01 1.35771E+00 + 5.82499E+01 1.35771E+00 1.48767E+02 2.15715E-04 1.48767E+02 + 2.15715E-04 1.74837E-01 9.13544E-03 1.74837E-01 9.13544E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 5.82430E+01 + 1.35792E+00 5.82430E+01 1.35792E+00 1.48778E+02 -2.15715E-04 + 1.48778E+02 -2.15715E-04 1.75295E-01 9.11606E-03 1.75295E-01 + 9.11606E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 1.48774E+02 + 0.00000E+00 1.48774E+02 0.00000E+00 1.75767E-01 9.09626E-03 + 1.75767E-01 9.09626E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82465E+01 1.35771E+00 5.82465E+01 1.35771E+00 + 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 1.76212E-01 + 9.07772E-03 1.76212E-01 9.07772E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 + 1.35771E+00 1.48778E+02 -2.15715E-04 1.48778E+02 -2.15715E-04 + 1.76697E-01 9.05792E-03 1.76697E-01 9.05792E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82430E+01 1.35792E+00 + 5.82430E+01 1.35792E+00 1.48771E+02 0.00000E+00 1.48771E+02 + 0.00000E+00 1.77129E-01 9.03938E-03 1.77129E-01 9.03938E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 1.48774E+02 -2.15715E-04 + 1.48774E+02 -2.15715E-04 1.77587E-01 9.02042E-03 1.77587E-01 + 9.02042E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82480E+01 1.35775E+00 5.82480E+01 1.35775E+00 1.48768E+02 + 2.15721E-04 1.48768E+02 2.15721E-04 1.78064E-01 9.00128E-03 + 1.78064E-01 9.00128E-03 1.00000E+00 0.00000E+00 9.99995E+00 + 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 + 1.48785E+02 -4.31430E-04 1.48785E+02 -4.31430E-04 1.78504E-01 + 8.98250E-03 1.78504E-01 8.98250E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 + 1.35782E+00 1.48767E+02 2.15715E-04 1.48767E+02 2.15715E-04 + 1.78989E-01 8.96312E-03 1.78989E-01 8.96312E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82534E+01 1.35760E+00 + 5.82534E+01 1.35760E+00 1.48785E+02 -4.31430E-04 1.48785E+02 + -4.31430E-04 1.79448E-01 8.94416E-03 1.79448E-01 8.94416E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 5.82430E+01 + 1.35792E+00 5.82430E+01 1.35792E+00 1.48760E+02 4.31430E-04 + 1.48760E+02 4.31430E-04 1.79920E-01 8.92478E-03 1.79920E-01 + 8.92478E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 1.48781E+02 + -4.31430E-04 1.48781E+02 -4.31430E-04 1.80338E-01 8.90793E-03 + 1.80338E-01 8.90793E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 + 1.48767E+02 2.15715E-04 1.48767E+02 2.15715E-04 1.80809E-01 + 8.88812E-03 1.80809E-01 8.88812E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82499E+01 1.35782E+00 5.82499E+01 + 1.35782E+00 1.48774E+02 -2.15715E-04 1.48774E+02 -2.15715E-04 + 1.81268E-01 8.87001E-03 1.81268E-01 8.87001E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82499E+01 1.35771E+00 + 5.82499E+01 1.35771E+00 1.48771E+02 0.00000E+00 1.48771E+02 + 0.00000E+00 1.81726E-01 8.85147E-03 1.81726E-01 8.85147E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82465E+01 + 1.35782E+00 5.82465E+01 1.35782E+00 1.48781E+02 -4.31430E-04 + 1.48781E+02 -4.31430E-04 1.82198E-01 8.83251E-03 1.82198E-01 + 8.83251E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 1.48760E+02 + 4.31430E-04 1.48760E+02 4.31430E-04 1.82643E-01 8.81397E-03 + 1.82643E-01 8.81397E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82499E+01 1.35782E+00 5.82499E+01 1.35782E+00 + 1.48788E+02 -6.47144E-04 1.48788E+02 -6.47144E-04 1.83101E-01 + 8.79628E-03 1.83101E-01 8.79628E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 5.82499E+01 1.35782E+00 5.82499E+01 + 1.35782E+00 1.48760E+02 4.31430E-04 1.48760E+02 4.31430E-04 + 1.83573E-01 8.77690E-03 1.83573E-01 8.77690E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 + 5.82499E+01 1.35771E+00 1.48785E+02 -4.31430E-04 1.48785E+02 + -4.31430E-04 1.84005E-01 8.76004E-03 1.84005E-01 8.76004E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 1.48760E+02 4.31430E-04 + 1.48760E+02 4.31430E-04 1.84463E-01 8.74151E-03 1.84463E-01 + 8.74151E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 1.48781E+02 + -4.31430E-04 1.48781E+02 -4.31430E-04 1.84922E-01 8.72339E-03 + 1.84922E-01 8.72339E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 5.82465E+01 1.35792E+00 5.82465E+01 1.35792E+00 + 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 1.85407E-01 + 8.70443E-03 1.85407E-01 8.70443E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 + 1.35771E+00 1.48778E+02 -2.15715E-04 1.48778E+02 -2.15715E-04 + 1.85838E-01 8.68758E-03 1.85838E-01 8.68758E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 5.82499E+01 1.35771E+00 + 5.82499E+01 1.35771E+00 1.48764E+02 2.15715E-04 1.48764E+02 + 2.15715E-04 1.86324E-01 8.66820E-03 1.86324E-01 8.66820E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 1.48781E+02 -4.31430E-04 + 1.48781E+02 -4.31430E-04 1.86755E-01 8.65134E-03 1.86755E-01 + 8.65134E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 5.82430E+01 1.35792E+00 5.82430E+01 1.35792E+00 1.48764E+02 + 2.15715E-04 1.48764E+02 2.15715E-04 1.87240E-01 8.63239E-03 + 1.87240E-01 8.63239E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 + 1.48778E+02 -2.15715E-04 1.48778E+02 -2.15715E-04 1.87658E-01 + 8.61637E-03 1.87658E-01 8.61637E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 + 1.35771E+00 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 + 1.88117E-01 8.59826E-03 1.88117E-01 8.59826E-03 1.00000E+00 + 0.00000E+00 9.99968E+00 0.00000E+00 5.82465E+01 1.35782E+00 + 5.82465E+01 1.35782E+00 1.48781E+02 -4.31430E-04 1.48781E+02 + -4.31430E-04 1.88589E-01 8.58014E-03 1.88589E-01 8.58014E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82465E+01 + 1.35782E+00 5.82465E+01 1.35782E+00 1.48760E+02 4.31430E-04 + 1.48760E+02 4.31430E-04 1.89061E-01 8.56160E-03 1.89061E-01 + 8.56160E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82534E+01 1.35760E+00 5.82534E+01 1.35760E+00 1.48785E+02 + -4.31430E-04 1.48785E+02 -4.31430E-04 1.89479E-01 8.54559E-03 + 1.89479E-01 8.54559E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 + 1.48760E+02 4.31430E-04 1.48760E+02 4.31430E-04 1.89964E-01 + 8.52706E-03 1.89964E-01 8.52706E-03 1.00000E+00 0.00000E+00 + 9.99968E+00 0.00000E+00 5.82430E+01 1.35792E+00 5.82430E+01 + 1.35792E+00 1.48788E+02 -6.47144E-04 1.48788E+02 -6.47144E-04 + 1.90409E-01 8.50978E-03 1.90409E-01 8.50978E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 + 5.82499E+01 1.35771E+00 1.48760E+02 4.31430E-04 1.48760E+02 + 4.31430E-04 1.90867E-01 8.49251E-03 1.90867E-01 8.49251E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 1.48785E+02 -4.31430E-04 + 1.48785E+02 -4.31430E-04 1.91312E-01 8.47565E-03 1.91312E-01 + 8.47565E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82499E+01 1.35782E+00 5.82499E+01 1.35782E+00 1.48771E+02 + 0.00000E+00 1.48771E+02 0.00000E+00 1.91784E-01 8.45754E-03 + 1.91784E-01 8.45754E-03 1.00000E+00 0.00000E+00 9.99968E+00 + 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 + 1.48778E+02 -2.15715E-04 1.48778E+02 -2.15715E-04 1.92229E-01 + 8.44069E-03 1.92229E-01 8.44069E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 + 1.35782E+00 1.48767E+02 2.15715E-04 1.48767E+02 2.15715E-04 + 1.92701E-01 8.42299E-03 1.92701E-01 8.42299E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 + 5.82499E+01 1.35771E+00 1.48785E+02 -4.31430E-04 1.48785E+02 + -4.31430E-04 1.93119E-01 8.40698E-03 1.93119E-01 8.40698E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82465E+01 + 1.35792E+00 5.82465E+01 1.35792E+00 1.48757E+02 4.31430E-04 + 1.48757E+02 4.31430E-04 1.93645E-01 8.38760E-03 1.93645E-01 + 8.38760E-03 1.00000E+00 0.00000E+00 9.99968E+00 0.00000E+00 + 5.82534E+01 1.35760E+00 5.82534E+01 1.35760E+00 1.48785E+02 + -4.31430E-04 1.48785E+02 -4.31430E-04 1.94035E-01 8.37285E-03 + 1.94035E-01 8.37285E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 + 1.48767E+02 2.15715E-04 1.48767E+02 2.15715E-04 1.94507E-01 + 8.35516E-03 1.94507E-01 8.35516E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 + 1.35782E+00 1.48785E+02 -4.31430E-04 1.48785E+02 -4.31430E-04 + 1.94966E-01 8.33788E-03 1.94966E-01 8.33788E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 + 5.82499E+01 1.35771E+00 1.48767E+02 2.15715E-04 1.48767E+02 + 2.15715E-04 1.95411E-01 8.32145E-03 1.95411E-01 8.32145E-03 + 1.00000E+00 0.00000E+00 9.99968E+00 0.00000E+00 5.82465E+01 + 1.35782E+00 5.82465E+01 1.35782E+00 1.48785E+02 -4.31430E-04 + 1.48785E+02 -4.31430E-04 1.95869E-01 8.30418E-03 1.95869E-01 + 8.30418E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 1.48757E+02 + 4.31430E-04 1.48757E+02 4.31430E-04 1.96327E-01 8.28733E-03 + 1.96327E-01 8.28733E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 + 1.48785E+02 -4.31430E-04 1.48785E+02 -4.31430E-04 1.96772E-01 + 8.27089E-03 1.96772E-01 8.27089E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82430E+01 1.35792E+00 5.82430E+01 + 1.35792E+00 1.48767E+02 2.15715E-04 1.48767E+02 2.15715E-04 + 1.97231E-01 8.25404E-03 1.97231E-01 8.25404E-03 1.00000E+00 + 0.00000E+00 9.99968E+00 0.00000E+00 5.82499E+01 1.35760E+00 + 5.82499E+01 1.35760E+00 1.48785E+02 -4.31430E-04 1.48785E+02 + -4.31430E-04 1.97676E-01 8.23761E-03 1.97676E-01 8.23761E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82465E+01 + 1.35792E+00 5.82465E+01 1.35792E+00 1.48767E+02 2.15715E-04 + 1.48767E+02 2.15715E-04 1.98161E-01 8.21991E-03 1.98161E-01 + 8.21991E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 1.48778E+02 + -2.15715E-04 1.48778E+02 -2.15715E-04 1.98565E-01 8.20517E-03 + 1.98565E-01 8.20517E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82499E+01 1.35782E+00 5.82499E+01 1.35782E+00 + 1.48764E+02 2.15715E-04 1.48764E+02 2.15715E-04 1.99037E-01 + 8.18789E-03 1.99037E-01 8.18789E-03 1.00000E+00 0.00000E+00 + 9.99968E+00 0.00000E+00 5.82534E+01 1.35749E+00 5.82534E+01 + 1.35749E+00 1.48785E+02 -4.31430E-04 1.48785E+02 -4.31430E-04 + 1.99496E-01 8.17146E-03 1.99496E-01 8.17146E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82430E+01 1.35792E+00 + 5.82430E+01 1.35792E+00 1.48764E+02 2.15715E-04 1.48764E+02 + 2.15715E-04 1.99927E-01 8.15545E-03 1.99927E-01 8.15545E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 1.48785E+02 -4.31430E-04 + 1.48785E+02 -4.31430E-04 2.00413E-01 8.13818E-03 2.00413E-01 + 8.13818E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82465E+01 1.35792E+00 5.82465E+01 1.35792E+00 1.48771E+02 + 2.15715E-04 1.48771E+02 2.15715E-04 2.00844E-01 8.12217E-03 + 2.00844E-01 8.12217E-03 1.00000E+00 0.00000E+00 9.99968E+00 + 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 + 1.48785E+02 -4.31430E-04 1.48785E+02 -4.31430E-04 2.01275E-01 + 8.10700E-03 2.01275E-01 8.10700E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 + 1.35771E+00 1.48764E+02 2.15715E-04 1.48764E+02 2.15715E-04 + 2.01720E-01 8.09099E-03 2.01720E-01 8.09099E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82430E+01 1.35792E+00 + 5.82430E+01 1.35792E+00 1.48785E+02 -4.31430E-04 1.48785E+02 + -4.31430E-04 2.02233E-01 8.07245E-03 2.02233E-01 8.07245E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 1.48757E+02 4.31430E-04 + 1.48757E+02 4.31430E-04 2.02637E-01 8.05813E-03 2.02637E-01 + 8.05813E-03 1.00000E+00 0.00000E+00 9.99968E+00 0.00000E+00 + 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 1.48785E+02 + -4.31430E-04 1.48785E+02 -4.31430E-04 2.03096E-01 8.04170E-03 + 2.03096E-01 8.04170E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82568E+01 1.35749E+00 5.82568E+01 1.35749E+00 + 1.48764E+02 4.31430E-04 1.48764E+02 4.31430E-04 2.03635E-01 + 8.02232E-03 2.03635E-01 8.02232E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82534E+01 1.35760E+00 5.82534E+01 + 1.35760E+00 1.48778E+02 -4.31430E-04 1.48778E+02 -4.31430E-04 + 2.03999E-01 8.01010E-03 2.03999E-01 8.01010E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82465E+01 1.35782E+00 + 5.82465E+01 1.35782E+00 1.48771E+02 0.00000E+00 1.48771E+02 + 0.00000E+00 2.04430E-01 7.99451E-03 2.04430E-01 7.99451E-03 + 1.00000E+00 0.00000E+00 9.99968E+00 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 1.48778E+02 -2.15715E-04 + 1.48778E+02 -2.15715E-04 2.04902E-01 7.97766E-03 2.04902E-01 + 7.97766E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82430E+01 1.35792E+00 5.82430E+01 1.35792E+00 1.48764E+02 + 2.15715E-04 1.48764E+02 2.15715E-04 2.05361E-01 7.96165E-03 + 2.05361E-01 7.96165E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 + 1.48785E+02 -4.31430E-04 1.48785E+02 -4.31430E-04 2.05778E-01 + 7.94732E-03 2.05778E-01 7.94732E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 + 1.35782E+00 1.48764E+02 2.15715E-04 1.48764E+02 2.15715E-04 + 2.06250E-01 7.93047E-03 2.06250E-01 7.93047E-03 1.00000E+00 + 0.00000E+00 9.99968E+00 0.00000E+00 5.82499E+01 1.35771E+00 + 5.82499E+01 1.35771E+00 1.48785E+02 -4.31430E-04 1.48785E+02 + -4.31430E-04 2.06695E-01 7.91488E-03 2.06695E-01 7.91488E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 1.48771E+02 2.15715E-04 + 1.48771E+02 2.15715E-04 2.07140E-01 7.89971E-03 2.07140E-01 + 7.89971E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 1.48778E+02 + -2.15715E-04 1.48778E+02 -2.15715E-04 2.07612E-01 7.88286E-03 + 2.07612E-01 7.88286E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82810E+01 1.35663E+00 5.82810E+01 1.35663E+00 + 1.48764E+02 2.15715E-04 1.48764E+02 2.15715E-04 2.08219E-01 + 7.86179E-03 2.08219E-01 7.86179E-03 1.00000E+00 0.00000E+00 + 9.99968E+00 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 + 1.35771E+00 1.48785E+02 -4.31430E-04 1.48785E+02 -4.31430E-04 + 2.08461E-01 7.85379E-03 2.08461E-01 7.85379E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82480E+01 1.35775E+00 + 5.82480E+01 1.35775E+00 1.48761E+02 2.15721E-04 1.48761E+02 + 2.15721E-04 2.08939E-01 7.83715E-03 2.08939E-01 7.83715E-03 + 1.00000E+00 0.00000E+00 9.99995E+00 0.00000E+00 5.82465E+01 + 1.35792E+00 5.82465E+01 1.35792E+00 1.48778E+02 -2.15715E-04 + 1.48778E+02 -2.15715E-04 2.09405E-01 7.82135E-03 2.09405E-01 + 7.82135E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82499E+01 1.35760E+00 5.82499E+01 1.35760E+00 1.48771E+02 + 0.00000E+00 1.48771E+02 0.00000E+00 2.09823E-01 7.80660E-03 + 2.09823E-01 7.80660E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82396E+01 1.35803E+00 5.82396E+01 1.35803E+00 + 1.48778E+02 -2.15715E-04 1.48778E+02 -2.15715E-04 2.10255E-01 + 7.79228E-03 2.10255E-01 7.79228E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 + 1.35771E+00 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 + 2.10726E-01 7.77585E-03 2.10726E-01 7.77585E-03 1.00000E+00 + 0.00000E+00 9.99968E+00 0.00000E+00 5.82499E+01 1.35771E+00 + 5.82499E+01 1.35771E+00 1.48771E+02 0.00000E+00 1.48771E+02 + 0.00000E+00 2.11158E-01 7.76110E-03 2.11158E-01 7.76110E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82465E+01 + 1.35782E+00 5.82465E+01 1.35782E+00 1.48778E+02 -2.15715E-04 + 1.48778E+02 -2.15715E-04 2.11616E-01 7.74593E-03 2.11616E-01 + 7.74593E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82568E+01 1.35739E+00 5.82568E+01 1.35739E+00 1.48771E+02 + 0.00000E+00 1.48771E+02 0.00000E+00 2.12115E-01 7.72866E-03 + 2.12115E-01 7.72866E-03 1.00000E+00 0.00000E+00 9.99968E+00 + 0.00000E+00 5.82465E+01 1.35771E+00 5.82465E+01 1.35771E+00 + 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 2.12506E-01 + 7.71518E-03 2.12506E-01 7.71518E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 + 1.35771E+00 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 + 2.12951E-01 7.70043E-03 2.12951E-01 7.70043E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82430E+01 1.35792E+00 + 5.82430E+01 1.35792E+00 1.48778E+02 -2.15715E-04 1.48778E+02 + -2.15715E-04 2.13396E-01 7.68526E-03 2.13396E-01 7.68526E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 1.48771E+02 0.00000E+00 + 1.48771E+02 0.00000E+00 2.13841E-01 7.67009E-03 2.13841E-01 + 7.67009E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 1.48771E+02 + 0.00000E+00 1.48771E+02 0.00000E+00 2.14272E-01 7.65619E-03 + 2.14272E-01 7.65619E-03 1.00000E+00 0.00000E+00 9.99968E+00 + 0.00000E+00 5.82534E+01 1.35760E+00 5.82534E+01 1.35760E+00 + 1.48778E+02 -2.15715E-04 1.48778E+02 -2.15715E-04 2.14690E-01 + 7.64187E-03 2.14690E-01 7.64187E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82430E+01 1.35792E+00 5.82430E+01 + 1.35792E+00 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 + 2.15176E-01 7.62586E-03 2.15176E-01 7.62586E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 + 5.82499E+01 1.35771E+00 1.48778E+02 -2.15715E-04 1.48778E+02 + -2.15715E-04 2.15634E-01 7.61069E-03 2.15634E-01 7.61069E-03 + 1.00000E+00 0.00000E+00 9.99968E+00 0.00000E+00 5.82465E+01 + 1.35782E+00 5.82465E+01 1.35782E+00 1.48771E+02 0.00000E+00 + 1.48771E+02 0.00000E+00 2.16052E-01 7.59636E-03 2.16052E-01 + 7.59636E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 1.48771E+02 + 0.00000E+00 1.48771E+02 0.00000E+00 2.16510E-01 7.58120E-03 + 2.16510E-01 7.58120E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 + 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 2.16942E-01 + 7.56729E-03 2.16942E-01 7.56729E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 + 1.35771E+00 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 + 2.17373E-01 7.55297E-03 2.17373E-01 7.55297E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82465E+01 1.35782E+00 + 5.82465E+01 1.35782E+00 1.48785E+02 -2.15715E-04 1.48785E+02 + -2.15715E-04 2.17832E-01 7.53780E-03 2.17832E-01 7.53780E-03 + 1.00000E+00 0.00000E+00 9.99968E+00 0.00000E+00 5.82465E+01 + 1.35782E+00 5.82465E+01 1.35782E+00 1.48771E+02 0.00000E+00 + 1.48771E+02 0.00000E+00 2.18263E-01 7.52348E-03 2.18263E-01 + 7.52348E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82430E+01 1.35792E+00 5.82430E+01 1.35792E+00 1.48778E+02 + -2.15715E-04 1.48778E+02 -2.15715E-04 2.18694E-01 7.50957E-03 + 2.18694E-01 7.50957E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 + 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 2.19193E-01 + 7.49356E-03 2.19193E-01 7.49356E-03 1.00000E+00 0.00000E+00 + 9.99968E+00 0.00000E+00 5.82534E+01 1.35760E+00 5.82534E+01 + 1.35760E+00 1.48778E+02 -2.15715E-04 1.48778E+02 -2.15715E-04 + 2.19584E-01 7.48050E-03 2.19584E-01 7.48050E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82465E+01 1.35782E+00 + 5.82465E+01 1.35782E+00 1.48771E+02 0.00000E+00 1.48771E+02 + 0.00000E+00 2.20043E-01 7.46576E-03 2.20043E-01 7.46576E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 1.48771E+02 0.00000E+00 + 1.48771E+02 0.00000E+00 2.20501E-01 7.45101E-03 2.20501E-01 + 7.45101E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 1.48778E+02 + -2.15715E-04 1.48778E+02 -2.15715E-04 2.20919E-01 7.43753E-03 + 2.20919E-01 7.43753E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 + 1.48764E+02 2.15715E-04 1.48764E+02 2.15715E-04 2.21364E-01 + 7.42278E-03 2.21364E-01 7.42278E-03 1.00000E+00 0.00000E+00 + 9.99968E+00 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 + 1.35782E+00 1.48778E+02 -2.15715E-04 1.48778E+02 -2.15715E-04 + 2.21795E-01 7.40888E-03 2.21795E-01 7.40888E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 + 5.82499E+01 1.35771E+00 1.48771E+02 0.00000E+00 1.48771E+02 + 0.00000E+00 2.22254E-01 7.39413E-03 2.22254E-01 7.39413E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82465E+01 + 1.35782E+00 5.82465E+01 1.35782E+00 1.48778E+02 -2.15715E-04 + 1.48778E+02 -2.15715E-04 2.22699E-01 7.38023E-03 2.22699E-01 + 7.38023E-03 1.00000E+00 0.00000E+00 9.99968E+00 0.00000E+00 + 5.82465E+01 1.35782E+00 5.82465E+01 1.35782E+00 1.48778E+02 + 0.00000E+00 1.48778E+02 0.00000E+00 2.23103E-01 7.36717E-03 + 2.23103E-01 7.36717E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 + 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 2.23561E-01 + 7.35284E-03 2.23561E-01 7.35284E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82465E+01 1.35782E+00 5.82465E+01 + 1.35782E+00 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 + 2.24033E-01 7.33725E-03 2.24033E-01 7.33725E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 5.82465E+01 1.35771E+00 + 5.82465E+01 1.35771E+00 1.48785E+02 -4.31430E-04 1.48785E+02 + -4.31430E-04 2.24411E-01 7.32546E-03 2.24411E-01 7.32546E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82430E+01 + 1.35792E+00 5.82430E+01 1.35792E+00 1.48771E+02 0.00000E+00 + 1.48771E+02 0.00000E+00 2.24910E-01 7.30987E-03 2.24910E-01 + 7.30987E-03 1.00000E+00 0.00000E+00 9.99968E+00 0.00000E+00 + 6.87216E+01 1.02637E+00 6.87216E+01 1.02637E+00 1.48771E+02 + 0.00000E+00 1.48771E+02 0.00000E+00 2.81548E-01 5.51716E-03 + 2.81548E-01 5.51716E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.77633E+01 1.37238E+00 5.77633E+01 1.37238E+00 + 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 2.22995E-01 + 7.36590E-03 2.22995E-01 7.36590E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.76873E+01 1.37475E+00 5.76873E+01 + 1.37475E+00 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 + 2.23076E-01 7.36337E-03 2.23076E-01 7.36337E-03 1.00000E+00 + 0.00000E+00 9.99968E+00 0.00000E+00 5.75941E+01 1.37755E+00 + 5.75941E+01 1.37755E+00 1.48778E+02 -2.15715E-04 1.48778E+02 + -2.15715E-04 2.23090E-01 7.36295E-03 2.23090E-01 7.36295E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 4.93003E+01 + 1.63771E+00 4.93003E+01 1.63771E+00 1.48771E+02 0.00000E+00 + 1.48771E+02 0.00000E+00 1.79313E-01 8.73603E-03 1.79313E-01 + 8.73603E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 5.82430E+01 1.35792E+00 5.82430E+01 1.35792E+00 1.48771E+02 + 0.00000E+00 1.48771E+02 0.00000E+00 2.27498E-01 7.22813E-03 + 2.27498E-01 7.22813E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 1.35771E+00 + 1.48771E+02 0.00000E+00 1.48771E+02 0.00000E+00 2.27943E-01 + 7.21423E-03 2.27943E-01 7.21423E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 5.82499E+01 1.35771E+00 5.82499E+01 + 1.35771E+00 1.48785E+02 -4.31430E-04 1.48785E+02 -4.31430E-04 + 2.28361E-01 7.20117E-03 2.28361E-01 7.20117E-03 1.00000E+00 + 0.00000E+00 9.99968E+00 0.00000E+00 5.82499E+01 1.35771E+00 + 5.82499E+01 1.35771E+00 1.48771E+02 0.00000E+00 1.48771E+02 + 0.00000E+00 2.28806E-01 7.18726E-03 2.28806E-01 7.18726E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 5.82499E+01 + 1.35771E+00 5.82499E+01 1.35771E+00 1.48771E+02 0.00000E+00 + 1.48771E+02 0.00000E+00 2.28806E-01 7.18726E-03 2.28806E-01 + 7.18726E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 1.08951E-03 4.46924E+01 1.41241E+01 + 3.71217E-01 7.73270E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -8.99723E-01 -3.46183E-01 1.00000E+00 0.00000E+00 + 3.71217E-01 7.73270E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -8.99723E-01 -3.46183E-01 1.00000E+00 0.00000E+00 + 3.56166E-01 7.22282E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -7.70575E-01 -3.02432E-01 1.00000E+00 0.00000E+00 + 3.40417E-01 6.67619E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -6.31133E-01 -2.54032E-01 1.00000E+00 0.00000E+00 + 3.29641E-01 6.29272E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -5.24024E-01 -2.15919E-01 1.00000E+00 0.00000E+00 + 3.19011E-01 5.90469E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -4.20053E-01 -1.77966E-01 1.00000E+00 0.00000E+00 + 3.11158E-01 5.61044E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -3.34581E-01 -1.45937E-01 1.00000E+00 0.00000E+00 + 3.05739E-01 5.40182E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -2.65094E-01 -1.19190E-01 1.00000E+00 0.00000E+00 + 3.02586E-01 5.27708E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -2.10136E-01 -9.74420E-02 1.00000E+00 0.00000E+00 + 3.00954E-01 5.21062E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -1.64989E-01 -7.90614E-02 1.00000E+00 0.00000E+00 + 3.00792E-01 5.20384E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -1.29116E-01 -6.40233E-02 1.00000E+00 0.00000E+00 + 3.01744E-01 5.24494E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -1.00177E-01 -5.15208E-02 1.00000E+00 0.00000E+00 + 3.03810E-01 5.33706E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -7.79926E-02 -4.16340E-02 1.00000E+00 0.00000E+00 + 3.06687E-01 5.46943E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -6.06766E-02 -3.36655E-02 1.00000E+00 0.00000E+00 + 3.10193E-01 5.63618E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -4.71096E-02 -2.72120E-02 1.00000E+00 0.00000E+00 + 3.14190E-01 5.83294E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -3.65055E-02 -2.19920E-02 1.00000E+00 0.00000E+00 + 3.18551E-01 6.05539E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -2.81083E-02 -1.77091E-02 1.00000E+00 0.00000E+00 + 3.23064E-01 6.29421E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -2.08494E-02 -1.38681E-02 1.00000E+00 0.00000E+00 + 3.28038E-01 6.56765E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -1.61854E-02 -1.13041E-02 1.00000E+00 0.00000E+00 + 3.33161E-01 6.86068E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -1.25372E-02 -9.21733E-03 1.00000E+00 0.00000E+00 + 3.38378E-01 7.17164E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -9.66190E-03 -7.50325E-03 1.00000E+00 0.00000E+00 + 3.43545E-01 7.49325E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -6.93116E-03 -5.80360E-03 1.00000E+00 0.00000E+00 + 3.48899E-01 7.84185E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -5.38224E-03 -4.79508E-03 1.00000E+00 0.00000E+00 + 3.54244E-01 8.20667E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -4.16447E-03 -3.96387E-03 1.00000E+00 0.00000E+00 + 3.59563E-01 8.58821E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -3.20884E-03 -3.27845E-03 1.00000E+00 0.00000E+00 + 3.64838E-01 8.98678E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -2.46049E-03 -2.71300E-03 1.00000E+00 0.00000E+00 + 3.71794E-01 9.54214E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -8.60326E-03 -7.61686E-03 1.00000E+00 0.00000E+00 + 3.75048E-01 9.81743E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -7.23548E-04 -9.49528E-04 1.00000E+00 0.00000E+00 + 3.80133E-01 1.02751E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -5.43417E-04 -7.87400E-04 1.00000E+00 0.00000E+00 + 3.85108E-01 1.07534E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -4.03924E-04 -6.53303E-04 1.00000E+00 0.00000E+00 + 3.90321E-01 1.12911E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -1.54720E-03 -1.83263E-03 1.00000E+00 0.00000E+00 + 3.94643E-01 1.17721E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -8.87647E-05 -2.09678E-04 1.00000E+00 0.00000E+00 + 3.99208E-01 1.23235E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -6.24944E-05 -1.77945E-04 1.00000E+00 0.00000E+00 + 4.03595E-01 1.29030E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -4.16448E-05 -1.50403E-04 1.00000E+00 0.00000E+00 + 4.07780E-01 1.35128E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -2.24632E-05 -1.22451E-04 1.00000E+00 0.00000E+00 + 4.11739E-01 1.41562E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -1.16562E-05 -1.04891E-04 1.00000E+00 0.00000E+00 + 4.15436E-01 1.48350E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -7.74629E-07 -8.49117E-05 1.00000E+00 0.00000E+00 + 4.18838E-01 1.55529E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 6.54755E-06 -6.94586E-05 1.00000E+00 0.00000E+00 + 4.21901E-01 1.63129E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.01241E-05 -6.05844E-05 1.00000E+00 0.00000E+00 + 4.24576E-01 1.71182E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.26876E-05 -5.28685E-05 1.00000E+00 0.00000E+00 + 4.26808E-01 1.79720E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.48994E-05 -4.44077E-05 1.00000E+00 0.00000E+00 + 4.28536E-01 1.88781E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.62809E-05 -3.71608E-05 1.00000E+00 0.00000E+00 + 4.29689E-01 1.98403E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.67991E-05 -3.28361E-05 1.00000E+00 0.00000E+00 + 4.30190E-01 2.08623E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.70483E-05 -2.77542E-05 1.00000E+00 0.00000E+00 + 4.29995E-01 2.17567E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.69263E-05 -2.21533E-05 1.00009E+00 -4.25394E-03 + 4.28952E-01 2.28828E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.67212E-05 -1.99377E-05 1.00012E+00 -4.55952E-03 + 4.27000E-01 2.40778E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.63968E-05 -1.79521E-05 1.00017E+00 -4.88871E-03 + 4.24031E-01 2.53458E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.59799E-05 -1.61718E-05 1.00026E+00 -5.24564E-03 + 4.19928E-01 2.66910E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.54930E-05 -1.45755E-05 1.00038E+00 -5.62953E-03 + 4.16351E-01 2.76429E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.45977E-05 -1.21930E-05 1.00383E+00 -1.48235E-02 + 4.11575E-01 2.87123E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.38209E-05 -1.04535E-05 1.00726E+00 -2.24971E-02 + 4.04012E-01 3.01741E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.33573E-05 -9.55755E-06 1.00813E+00 -2.41758E-02 + 3.94965E-01 3.17122E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.28783E-05 -8.74314E-06 1.00919E+00 -2.59807E-02 + 3.88305E-01 3.27228E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 7.33563E-05 -1.00518E-04 1.01683E+00 -3.75791E-02 + 3.81159E-01 3.37021E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.02566E+00 -4.96824E-02 + 3.68560E-01 3.52758E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.02858E+00 -5.33228E-02 + 3.54348E-01 3.69068E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.03196E+00 -5.72087E-02 + 3.38448E-01 3.85943E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.03586E+00 -6.13475E-02 + 3.20808E-01 4.03357E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.04032E+00 -6.57513E-02 + 3.15643E-01 4.08123E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.06285E+00 -8.65372E-02 + 3.01126E-01 4.20696E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.07485E+00 -9.69322E-02 + 2.81615E-01 4.36618E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.08293E+00 -1.03520E-01 + 2.60927E-01 4.52579E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.09188E+00 -1.10431E-01 + 2.52185E-01 4.58975E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.11506E+00 -1.27381E-01 + 2.37094E-01 4.69470E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.13201E+00 -1.39172E-01 + 2.16957E-01 4.82818E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.14487E+00 -1.47699E-01 + 2.06750E-01 4.89281E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.16757E+00 -1.62071E-01 + 1.96577E-01 4.95446E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.18976E+00 -1.75519E-01 + 1.80250E-01 5.04933E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.20624E+00 -1.85095E-01 + 1.91325E-01 4.98752E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.24356E+00 -2.05923E-01 + 1.81740E-01 5.03898E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.26226E+00 -2.15961E-01 + 1.74815E-01 5.07481E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.28151E+00 -2.25919E-01 + 1.71013E-01 5.09377E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.30116E+00 -2.35721E-01 + 1.88961E-01 5.00726E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.33238E+00 -2.50769E-01 + 1.96379E-01 4.97271E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.35309E+00 -2.60421E-01 + 2.07328E-01 4.92331E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.37266E+00 -2.69249E-01 + 2.58321E-01 4.70038E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.41041E+00 -2.85750E-01 + 2.93753E-01 4.55012E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.43352E+00 -2.95552E-01 + 3.25803E-01 4.41817E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.44992E+00 -3.02304E-01 + 3.63999E-01 4.26537E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.46459E+00 -3.08171E-01 + 4.08442E-01 4.09249E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.47722E+00 -3.13084E-01 + 4.60066E-01 3.89703E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.48792E+00 -3.17137E-01 + 5.33190E-01 3.62746E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50198E+00 -3.22320E-01 + 5.97077E-01 3.39788E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50655E+00 -3.23964E-01 + 6.66568E-01 3.15436E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50804E+00 -3.24483E-01 + 7.41213E-01 2.89914E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50628E+00 -3.23882E-01 + 8.60062E-01 2.50237E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.51363E+00 -3.26335E-01 + 9.45313E-01 2.22434E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50426E+00 -3.23281E-01 + 1.03358E+00 1.94297E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.49133E+00 -3.19158E-01 + 1.12435E+00 1.65999E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.47494E+00 -3.14049E-01 + 1.21691E+00 1.37768E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.45519E+00 -3.08025E-01 + 1.28898E+00 1.16255E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.42709E+00 -2.99636E-01 + 1.32219E+00 1.06541E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.38800E+00 -2.88207E-01 + 1.41469E+00 8.00473E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.36107E+00 -2.80493E-01 + 1.50657E+00 5.42497E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.33159E+00 -2.72216E-01 + 1.60766E+00 2.64211E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.30179E+00 -2.64012E-01 + 1.73764E+00 -8.67619E-03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.27512E+00 -2.56810E-01 + 1.82378E+00 -3.14992E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.23841E+00 -2.47084E-01 + 4.43389E+00 -7.10328E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.60420E+00 -3.42218E-01 + 1.83499E+00 -4.66342E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.11449E+00 -2.17158E-01 + 1.89130E+00 -6.07603E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.07458E+00 -2.07148E-01 + 1.94308E+00 -7.35217E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.03431E+00 -1.97224E-01 + 1.99028E+00 -8.49559E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 9.93935E-01 -1.87442E-01 + 2.03285E+00 -9.50919E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 9.53659E-01 -1.77851E-01 + 2.07079E+00 -1.03980E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 9.13690E-01 -1.68490E-01 + 2.10414E+00 -1.11662E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 8.74198E-01 -1.59391E-01 + 2.13303E+00 -1.18213E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 8.35356E-01 -1.50587E-01 + 2.15759E+00 -1.23692E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 7.97284E-01 -1.42093E-01 + 2.17798E+00 -1.28168E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 7.60110E-01 -1.33928E-01 + 2.19195E+00 -1.31189E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 7.23725E-01 -1.26059E-01 + 2.20473E+00 -1.33912E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 6.88646E-01 -1.18587E-01 + 2.21418E+00 -1.35895E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 6.54713E-01 -1.11466E-01 + 2.21990E+00 -1.37078E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 6.21922E-01 -1.04686E-01 + 2.19466E+00 -1.31934E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 5.88502E-01 -9.78753E-02 + 2.38264E+00 -1.69700E-01 0.00000E+00 0.00000E+00 -1.85992E-01 + 3.73641E-02 -1.85992E-01 3.73641E-02 3.84045E-01 -5.68019E-02 + 2.21621E+00 -1.36734E-01 0.00000E+00 0.00000E+00 -4.22901E-02 + 8.90051E-03 -4.22901E-02 8.90051E-03 4.87894E-01 -7.73715E-02 + 2.21326E+00 -1.36156E-01 0.00000E+00 0.00000E+00 -3.90456E-02 + 8.26675E-03 -3.90456E-02 8.26675E-03 4.63416E-01 -7.25902E-02 + 2.21173E+00 -1.35862E-01 0.00000E+00 0.00000E+00 -4.21528E-02 + 8.86542E-03 -4.21528E-02 8.86542E-03 4.33974E-01 -6.69177E-02 + 2.21491E+00 -1.36466E-01 0.00000E+00 0.00000E+00 -4.99296E-02 + 1.03436E-02 -4.99296E-02 1.03436E-02 4.01339E-01 -6.07145E-02 + 2.22158E+00 -1.37717E-01 0.00000E+00 0.00000E+00 -6.33566E-02 + 1.28619E-02 -6.33566E-02 1.28619E-02 3.64375E-01 -5.37818E-02 + 2.23848E+00 -1.40844E-01 0.00000E+00 0.00000E+00 -8.43110E-02 + 1.67404E-02 -8.43110E-02 1.67404E-02 3.21407E-01 -4.58287E-02 + 2.26272E+00 -1.45275E-01 0.00000E+00 0.00000E+00 -1.13671E-01 + 2.21045E-02 -1.13671E-01 2.21045E-02 2.71302E-01 -3.66746E-02 + 2.28895E+00 -1.50007E-01 0.00000E+00 0.00000E+00 -1.43556E-01 + 2.74947E-02 -1.43556E-01 2.74947E-02 2.21631E-01 -2.77155E-02 + 2.25983E+00 -1.44817E-01 0.00000E+00 0.00000E+00 -1.38120E-01 + 2.65267E-02 -1.38120E-01 2.65267E-02 2.06141E-01 -2.49567E-02 + 2.09209E+00 -1.15317E-01 0.00000E+00 0.00000E+00 -3.63446E-02 + 8.62689E-03 -3.63446E-02 8.62689E-03 2.83492E-01 -3.85609E-02 + 1.83493E+00 -7.06449E-02 0.00000E+00 0.00000E+00 1.27962E-01 + -1.99151E-02 1.27962E-01 -1.99151E-02 4.22496E-01 -6.27075E-02 + 1.70610E+00 -4.85402E-02 0.00000E+00 0.00000E+00 2.05206E-01 + -3.31704E-02 2.05206E-01 -3.31704E-02 4.80585E-01 -7.26758E-02 + 1.72945E+00 -5.24953E-02 0.00000E+00 0.00000E+00 1.76415E-01 + -2.82891E-02 1.76415E-01 -2.82891E-02 4.38339E-01 -6.55133E-02 + 1.79007E+00 -6.26532E-02 0.00000E+00 0.00000E+00 1.20210E-01 + -1.88731E-02 1.20210E-01 -1.88731E-02 3.70212E-01 -5.41000E-02 + 1.83644E+00 -7.03310E-02 0.00000E+00 0.00000E+00 7.49906E-02 + -1.13862E-02 7.49906E-02 -1.13862E-02 3.13075E-01 -4.46399E-02 + 1.85928E+00 -7.40672E-02 0.00000E+00 0.00000E+00 4.40175E-02 + -6.31749E-03 4.40175E-02 -6.31749E-03 2.70061E-01 -3.76008E-02 + 1.87000E+00 -7.58031E-02 0.00000E+00 0.00000E+00 2.19633E-02 + -2.74968E-03 2.19633E-02 -2.74968E-03 2.36224E-01 -3.21268E-02 + 1.87623E+00 -7.67989E-02 0.00000E+00 0.00000E+00 2.98226E-03 + 2.86184E-04 2.98226E-03 2.86184E-04 2.05921E-01 -2.72800E-02 + 1.88637E+00 -7.84011E-02 0.00000E+00 0.00000E+00 -1.88831E-02 + 3.74422E-03 -1.88831E-02 3.74422E-03 1.73358E-01 -2.21302E-02 + 1.90688E+00 -8.16120E-02 0.00000E+00 0.00000E+00 -4.83381E-02 + 8.35098E-03 -4.83381E-02 8.35098E-03 1.33907E-01 -1.59601E-02 + 1.90989E+00 -8.20750E-02 0.00000E+00 0.00000E+00 -6.54125E-02 + 1.09922E-02 -6.54125E-02 1.09922E-02 1.06994E-01 -1.17969E-02 + 1.78947E+00 -6.36483E-02 0.00000E+00 0.00000E+00 8.16403E-03 + -2.65871E-04 8.16403E-03 -2.65871E-04 1.69245E-01 -2.13221E-02 + 1.65405E+00 -4.31523E-02 0.00000E+00 0.00000E+00 9.26221E-02 + -1.30504E-02 9.26221E-02 -1.30504E-02 2.42988E-01 -3.24846E-02 + 1.66921E+00 -4.54219E-02 0.00000E+00 0.00000E+00 6.86023E-02 + -9.45306E-03 6.86023E-02 -9.45306E-03 2.11200E-01 -2.77239E-02 + 1.71921E+00 -5.28320E-02 0.00000E+00 0.00000E+00 1.91118E-02 + -2.11881E-03 1.91118E-02 -2.11881E-03 1.54766E-01 -1.93607E-02 + 1.75819E+00 -5.85475E-02 0.00000E+00 0.00000E+00 -2.24147E-02 + 3.97132E-03 -2.24147E-02 3.97132E-03 1.06421E-01 -1.22705E-02 + 1.68361E+00 -4.77236E-02 0.00000E+00 0.00000E+00 1.95997E-02 + -2.12704E-03 1.95997E-02 -2.12704E-03 1.40566E-01 -1.72266E-02 + 1.59620E+00 -3.51647E-02 0.00000E+00 0.00000E+00 7.20855E-02 + -9.66781E-03 7.20855E-02 -9.66781E-03 1.85562E-01 -2.36913E-02 + 1.62066E+00 -3.86449E-02 0.00000E+00 0.00000E+00 4.22480E-02 + -5.42416E-03 4.22480E-02 -5.42416E-03 1.49905E-01 -1.86200E-02 + 1.63206E+00 -4.02478E-02 0.00000E+00 0.00000E+00 2.23137E-02 + -2.61725E-03 2.23137E-02 -2.61725E-03 1.24286E-01 -1.50127E-02 + 1.62792E+00 -3.96720E-02 0.00000E+00 0.00000E+00 1.40768E-02 + -1.46888E-03 1.40768E-02 -1.46888E-03 1.10500E-01 -1.30906E-02 + 1.61821E+00 -3.83301E-02 0.00000E+00 0.00000E+00 1.04166E-02 + -9.63560E-04 1.04166E-02 -9.63560E-04 1.01533E-01 -1.18527E-02 + 1.60634E+00 -3.67082E-02 0.00000E+00 0.00000E+00 8.59829E-03 + -7.14960E-04 8.59829E-03 -7.14960E-04 9.46760E-02 -1.09152E-02 + 1.59387E+00 -3.50199E-02 0.00000E+00 0.00000E+00 7.61122E-03 + -5.81304E-04 7.61122E-03 -5.81304E-04 8.89196E-02 -1.01357E-02 + 1.58136E+00 -3.33412E-02 0.00000E+00 0.00000E+00 7.03820E-03 + -5.04448E-04 7.03820E-03 -5.04448E-04 8.38368E-02 -9.45403E-03 + 1.56902E+00 -3.17012E-02 0.00000E+00 0.00000E+00 6.68795E-03 + -4.57915E-04 6.68795E-03 -4.57915E-04 7.92249E-02 -8.84127E-03 + 1.55682E+00 -3.00966E-02 0.00000E+00 0.00000E+00 6.46331E-03 + -4.28348E-04 6.46331E-03 -4.28348E-04 7.49723E-02 -8.28154E-03 + 1.54511E+00 -2.85695E-02 0.00000E+00 0.00000E+00 6.31238E-03 + -4.08666E-04 6.31238E-03 -4.08666E-04 7.10168E-02 -7.76571E-03 + 1.53376E+00 -2.71030E-02 0.00000E+00 0.00000E+00 6.20480E-03 + -3.94765E-04 6.20480E-03 -3.94765E-04 6.73147E-02 -7.28736E-03 + 1.52341E+00 -2.57779E-02 0.00000E+00 0.00000E+00 6.12385E-03 + -3.84400E-04 6.12385E-03 -3.84400E-04 6.38414E-02 -6.84262E-03 + 1.51163E+00 -2.42824E-02 0.00000E+00 0.00000E+00 6.05282E-03 + -3.75384E-04 6.05282E-03 -3.75384E-04 6.05563E-02 -6.42576E-03 + 1.50207E+00 -2.30806E-02 0.00000E+00 0.00000E+00 5.99257E-03 + -3.67809E-04 5.99257E-03 -3.67809E-04 5.74686E-02 -6.03746E-03 + 1.49228E+00 -2.18598E-02 0.00000E+00 0.00000E+00 5.93359E-03 + -3.60456E-04 5.93359E-03 -3.60456E-04 5.45468E-02 -5.67323E-03 + 1.48292E+00 -2.07031E-02 0.00000E+00 0.00000E+00 5.87387E-03 + -3.53080E-04 5.87387E-03 -3.53080E-04 5.17824E-02 -5.33167E-03 + 1.47398E+00 -1.96070E-02 0.00000E+00 0.00000E+00 5.81226E-03 + -3.45529E-04 5.81226E-03 -3.45529E-04 4.91662E-02 -5.01120E-03 + 1.46527E+00 -1.85513E-02 0.00000E+00 0.00000E+00 5.74670E-03 + -3.37568E-04 5.74670E-03 -3.37568E-04 4.66865E-02 -4.71007E-03 + 1.45709E+00 -1.75647E-02 0.00000E+00 0.00000E+00 5.67740E-03 + -3.29225E-04 5.67740E-03 -3.29225E-04 4.43369E-02 -4.42717E-03 + 1.44913E+00 -1.66148E-02 0.00000E+00 0.00000E+00 5.60398E-03 + -3.20460E-04 5.60398E-03 -3.20460E-04 4.21087E-02 -4.16116E-03 + 1.44154E+00 -1.57159E-02 0.00000E+00 0.00000E+00 5.52597E-03 + -3.11227E-04 5.52597E-03 -3.11227E-04 3.99952E-02 -3.91096E-03 + 1.43433E+00 -1.48707E-02 0.00000E+00 0.00000E+00 5.44428E-03 + -3.01637E-04 5.44428E-03 -3.01637E-04 3.79905E-02 -3.67561E-03 + 1.42722E+00 -1.40423E-02 0.00000E+00 0.00000E+00 5.35823E-03 + -2.91614E-04 5.35823E-03 -2.91614E-04 3.60871E-02 -3.45399E-03 + 1.42095E+00 -1.33183E-02 0.00000E+00 0.00000E+00 5.26983E-03 + -2.81406E-04 5.26983E-03 -2.81406E-04 3.42832E-02 -3.24568E-03 + 1.41430E+00 -1.25572E-02 0.00000E+00 0.00000E+00 5.17683E-03 + -2.70755E-04 5.17683E-03 -2.70755E-04 3.25678E-02 -3.04919E-03 + 1.40842E+00 -1.18888E-02 0.00000E+00 0.00000E+00 5.08226E-03 + -2.60008E-04 5.08226E-03 -2.60008E-04 3.09416E-02 -2.86441E-03 + 1.40253E+00 -1.12254E-02 0.00000E+00 0.00000E+00 4.98460E-03 + -2.49004E-04 4.98460E-03 -2.49004E-04 2.93964E-02 -2.69024E-03 + 1.39760E+00 -1.06730E-02 0.00000E+00 0.00000E+00 4.88648E-03 + -2.38031E-04 4.88648E-03 -2.38031E-04 2.79320E-02 -2.52649E-03 + 1.39130E+00 -9.97441E-03 0.00000E+00 0.00000E+00 4.78342E-03 + -2.26596E-04 4.78342E-03 -2.26596E-04 2.65352E-02 -2.37152E-03 + 1.38676E+00 -9.47434E-03 0.00000E+00 0.00000E+00 4.68232E-03 + -2.15465E-04 4.68232E-03 -2.15465E-04 2.52149E-02 -2.22618E-03 + 1.38198E+00 -8.95238E-03 0.00000E+00 0.00000E+00 4.57935E-03 + -2.04218E-04 4.57935E-03 -2.04218E-04 2.39592E-02 -2.08902E-03 + 1.37756E+00 -8.47421E-03 0.00000E+00 0.00000E+00 4.47622E-03 + -1.93040E-04 4.47622E-03 -1.93040E-04 2.27673E-02 -1.95984E-03 + 1.37379E+00 -8.06843E-03 0.00000E+00 0.00000E+00 4.37348E-03 + -1.81991E-04 4.37348E-03 -1.81991E-04 2.16370E-02 -1.83824E-03 + 1.36800E+00 -7.45050E-03 0.00000E+00 0.00000E+00 4.26644E-03 + -1.70563E-04 4.26644E-03 -1.70563E-04 2.05561E-02 -1.72287E-03 + 1.36496E+00 -7.12881E-03 0.00000E+00 0.00000E+00 4.16478E-03 + -1.59791E-04 4.16478E-03 -1.59791E-04 1.95380E-02 -1.61500E-03 + 1.36115E+00 -6.72818E-03 0.00000E+00 0.00000E+00 4.06165E-03 + -1.48947E-04 4.06165E-03 -1.48947E-04 1.85682E-02 -1.51301E-03 + 1.35760E+00 -6.35607E-03 0.00000E+00 0.00000E+00 3.95926E-03 + -1.38260E-04 3.95926E-03 -1.38260E-04 1.76473E-02 -1.41688E-03 + 1.35465E+00 -6.05132E-03 0.00000E+00 0.00000E+00 3.85884E-03 + -1.27852E-04 3.85884E-03 -1.27852E-04 1.67743E-02 -1.32642E-03 + 1.35051E+00 -5.62534E-03 0.00000E+00 0.00000E+00 3.75650E-03 + -1.17325E-04 3.75650E-03 -1.17325E-04 1.59410E-02 -1.24070E-03 + 1.34787E+00 -5.35594E-03 0.00000E+00 0.00000E+00 3.65816E-03 + -1.07285E-04 3.65816E-03 -1.07285E-04 1.51538E-02 -1.16031E-03 + 1.34496E+00 -5.05960E-03 0.00000E+00 0.00000E+00 3.56011E-03 + -9.73438E-05 3.56011E-03 -9.73438E-05 1.44047E-02 -1.08436E-03 + 1.34217E+00 -4.78010E-03 0.00000E+00 0.00000E+00 3.46351E-03 + -8.76197E-05 3.46351E-03 -8.76197E-05 1.36934E-02 -1.01276E-03 + 1.33977E+00 -4.54095E-03 0.00000E+00 0.00000E+00 3.36894E-03 + -7.81641E-05 3.36894E-03 -7.81641E-05 1.30186E-02 -9.45312E-04 + 1.33654E+00 -4.21942E-03 0.00000E+00 0.00000E+00 3.27401E-03 + -6.87435E-05 3.27401E-03 -6.87435E-05 1.23751E-02 -8.81448E-04 + 1.33452E+00 -4.02074E-03 0.00000E+00 0.00000E+00 3.18277E-03 + -5.97526E-05 3.18277E-03 -5.97526E-05 1.17668E-02 -8.21498E-04 + 1.33227E+00 -3.80018E-03 0.00000E+00 0.00000E+00 3.09238E-03 + -5.09032E-05 3.09238E-03 -5.09032E-05 1.11881E-02 -7.64844E-04 + 1.33017E+00 -3.59644E-03 0.00000E+00 0.00000E+00 3.00406E-03 + -4.23201E-05 3.00406E-03 -4.23201E-05 1.06387E-02 -7.11451E-04 + 1.32823E+00 -3.40955E-03 0.00000E+00 0.00000E+00 2.91751E-03 + -3.39640E-05 2.91751E-03 -3.39640E-05 1.01170E-02 -6.61087E-04 + 1.32582E+00 -3.17720E-03 0.00000E+00 0.00000E+00 2.83143E-03 + -2.57097E-05 2.83143E-03 -2.57097E-05 9.61993E-03 -6.13423E-04 + 1.32427E+00 -3.03067E-03 0.00000E+00 0.00000E+00 2.74881E-03 + -1.78433E-05 2.74881E-03 -1.78433E-05 9.14973E-03 -5.68645E-04 + 1.32254E+00 -2.86571E-03 0.00000E+00 0.00000E+00 2.66734E-03 + -1.01353E-05 2.66734E-03 -1.01353E-05 8.70230E-03 -5.26320E-04 + 1.32084E+00 -2.70575E-03 0.00000E+00 0.00000E+00 2.58744E-03 + -2.62754E-06 2.58744E-03 -2.62754E-06 8.27705E-03 -4.86361E-04 + 1.31940E+00 -2.57105E-03 0.00000E+00 0.00000E+00 2.50978E-03 + 4.62039E-06 2.50978E-03 4.62039E-06 7.87359E-03 -4.48697E-04 + 1.31752E+00 -2.39763E-03 0.00000E+00 0.00000E+00 2.43299E-03 + 1.17433E-05 2.43299E-03 1.17433E-05 7.48912E-03 -4.13046E-04 + 1.31630E+00 -2.28482E-03 0.00000E+00 0.00000E+00 2.35880E-03 + 1.85769E-05 2.35880E-03 1.85769E-05 7.12485E-03 -3.79487E-04 + 1.31548E+00 -2.20905E-03 0.00000E+00 0.00000E+00 2.28706E-03 + 2.51441E-05 2.28706E-03 2.51441E-05 6.77953E-03 -3.47874E-04 + 1.31325E+00 -2.00869E-03 0.00000E+00 0.00000E+00 2.21434E-03 + 3.17574E-05 2.21434E-03 3.17574E-05 6.44821E-03 -3.17748E-04 + 1.31259E+00 -1.94805E-03 0.00000E+00 0.00000E+00 2.14599E-03 + 3.79327E-05 2.14599E-03 3.79327E-05 6.13637E-03 -2.89568E-04 + 1.31121E+00 -1.82348E-03 0.00000E+00 0.00000E+00 2.07790E-03 + 4.40466E-05 2.07790E-03 4.40466E-05 5.83838E-03 -2.62813E-04 + 1.31032E+00 -1.74434E-03 -5.41215E-06 4.82869E-07 2.00685E-03 + 5.03869E-05 2.00685E-03 5.03869E-05 5.55052E-03 -2.37129E-04 + 1.30940E+00 -1.66352E-03 -1.48280E-05 1.31768E-06 1.93313E-03 + 5.69212E-05 1.93313E-03 5.69212E-05 5.27239E-03 -2.12469E-04 + 1.30816E+00 -1.55408E-03 -2.00414E-05 1.77701E-06 1.86447E-03 + 6.29721E-05 1.86447E-03 6.29721E-05 5.01072E-03 -1.89416E-04 + 1.30723E+00 -1.47326E-03 -2.40318E-05 2.12640E-06 1.79909E-03 + 6.86974E-05 1.79909E-03 6.86974E-05 4.76348E-03 -1.67764E-04 + 1.30652E+00 -1.41096E-03 -2.73438E-05 2.41462E-06 1.73624E-03 + 7.41663E-05 1.73624E-03 7.41663E-05 4.52907E-03 -1.47369E-04 + 1.30582E+00 -1.34867E-03 -3.01974E-05 2.66142E-06 1.67505E-03 + 7.94575E-05 1.67505E-03 7.94575E-05 4.30614E-03 -1.28088E-04 + 1.30515E+00 -1.29309E-03 -3.27091E-05 2.87733E-06 1.61583E-03 + 8.45503E-05 1.61583E-03 8.45503E-05 4.09435E-03 -1.09885E-04 + 1.30380E+00 -1.17693E-03 -3.49499E-05 3.06879E-06 1.55658E-03 + 8.96092E-05 1.55658E-03 8.96092E-05 3.89120E-03 -9.25261E-05 + 1.30346E+00 -1.14830E-03 -3.69662E-05 3.24003E-06 1.50102E-03 + 9.43315E-05 1.50102E-03 9.43315E-05 3.70015E-03 -7.62972E-05 + 1.30290E+00 -1.10116E-03 -3.87925E-05 3.39420E-06 1.44630E-03 + 9.89486E-05 1.44630E-03 9.89486E-05 3.51757E-03 -6.08872E-05 + 1.30222E+00 -1.04391E-03 -4.04539E-05 3.53363E-06 1.39276E-03 + 1.03444E-04 1.39276E-03 1.03444E-04 3.34352E-03 -4.62795E-05 + 1.30172E+00 -1.00182E-03 -4.19697E-05 3.66008E-06 1.34072E-03 + 1.07782E-04 1.34072E-03 1.07782E-04 3.17788E-03 -3.24644E-05 + 1.30104E+00 -9.44572E-04 -4.33559E-05 3.77504E-06 1.28968E-03 + 1.12014E-04 1.28968E-03 1.12014E-04 3.01982E-03 -1.93497E-05 + 1.30049E+00 -9.00783E-04 -4.46246E-05 3.87964E-06 1.24026E-03 + 1.16087E-04 1.24026E-03 1.16087E-04 2.86946E-03 -6.95515E-06 + 1.30031E+00 -8.85641E-04 -4.57861E-05 3.97485E-06 1.19255E-03 + 1.20002E-04 1.19255E-03 1.20002E-04 2.72664E-03 4.75193E-06 + 1.29964E+00 -8.30078E-04 -4.68507E-05 4.06162E-06 1.14494E-03 + 1.23882E-04 1.14494E-03 1.23882E-04 2.58936E-03 1.59395E-05 + 1.29912E+00 -7.89669E-04 -4.78252E-05 4.14057E-06 1.09884E-03 + 1.27615E-04 1.09884E-03 1.27615E-04 2.45882E-03 2.65187E-05 + 1.29857E+00 -7.44208E-04 -4.87162E-05 4.21236E-06 1.05359E-03 + 1.31262E-04 1.05359E-03 1.31262E-04 2.33386E-03 3.65816E-05 + 1.29836E+00 -7.27371E-04 -4.95284E-05 4.27743E-06 1.01008E-03 + 1.34748E-04 1.01008E-03 1.34748E-04 2.21542E-03 4.60723E-05 + 1.29806E+00 -7.02115E-04 -5.02681E-05 4.33635E-06 9.67302E-04 + 1.38155E-04 9.67302E-04 1.38155E-04 2.10198E-03 5.51059E-05 + 1.29768E+00 -6.73491E-04 -5.09397E-05 4.38955E-06 9.25419E-04 + 1.41476E-04 9.25419E-04 1.41476E-04 1.99343E-03 6.37054E-05 + 1.29740E+00 -6.49910E-04 -5.15461E-05 4.43732E-06 8.84419E-04 + 1.44703E-04 8.84419E-04 1.44703E-04 1.88975E-03 7.18732E-05 + 1.29704E+00 -6.24663E-04 -5.20920E-05 4.48008E-06 8.44390E-04 + 1.47839E-04 8.44390E-04 1.47839E-04 1.79070E-03 7.96351E-05 + 1.29682E+00 -6.06142E-04 -5.25788E-05 4.51801E-06 8.05085E-04 + 1.50901E-04 8.05085E-04 1.50901E-04 1.69567E-03 8.70343E-05 + 1.29650E+00 -5.80886E-04 -5.30109E-05 4.55148E-06 7.66728E-04 + 1.53870E-04 7.66728E-04 1.53870E-04 1.60496E-03 9.40652E-05 + 1.29636E+00 -5.70784E-04 -5.33925E-05 4.58088E-06 7.29370E-04 + 1.56751E-04 7.29370E-04 1.56751E-04 1.51820E-03 1.00751E-04 + 1.29585E+00 -5.32058E-04 -5.37130E-05 4.60545E-06 6.91802E-04 + 1.59629E-04 6.91802E-04 1.59629E-04 1.43412E-03 1.07193E-04 + 1.29582E+00 -5.28691E-04 -5.39936E-05 4.62682E-06 6.56075E-04 + 1.62352E-04 6.56075E-04 1.62352E-04 1.35461E-03 1.13254E-04 + 1.29550E+00 -5.05119E-04 -5.42234E-05 4.64425E-06 6.20559E-04 + 1.65045E-04 6.20559E-04 1.65045E-04 1.27784E-03 1.19074E-04 + 1.29534E+00 -4.93332E-04 -5.44059E-05 4.65801E-06 5.85938E-04 + 1.67656E-04 5.85938E-04 1.67656E-04 1.20434E-03 1.24616E-04 + 1.29520E+00 -4.83230E-04 -5.45436E-05 4.66834E-06 5.51789E-04 + 1.70218E-04 5.51789E-04 1.70218E-04 1.13362E-03 1.29917E-04 + 1.29507E+00 -4.71444E-04 -5.46356E-05 4.67520E-06 5.18483E-04 + 1.72704E-04 5.18483E-04 1.72704E-04 1.06585E-03 1.34975E-04 + 1.29485E+00 -4.56278E-04 -5.46840E-05 4.67880E-06 4.85374E-04 + 1.75159E-04 4.85374E-04 1.75159E-04 1.00037E-03 1.39834E-04 + 1.29477E+00 -4.49555E-04 -5.46894E-05 4.67920E-06 4.53291E-04 + 1.77528E-04 4.53291E-04 1.77528E-04 9.37732E-04 1.44459E-04 + 1.29464E+00 -4.41137E-04 -5.46503E-05 4.67632E-06 4.21564E-04 + 1.79860E-04 4.21564E-04 1.79860E-04 8.77275E-04 1.48898E-04 + 1.29437E+00 -4.20932E-04 -5.45711E-05 4.67054E-06 3.89836E-04 + 1.82178E-04 3.89836E-04 1.82178E-04 8.18503E-04 1.53196E-04 + 1.29432E+00 -4.17565E-04 -5.44476E-05 4.66156E-06 3.59423E-04 + 1.84388E-04 3.59423E-04 1.84388E-04 7.62676E-04 1.57254E-04 + 1.29423E+00 -4.10830E-04 -5.42828E-05 4.64964E-06 3.29116E-04 + 1.86578E-04 3.29116E-04 1.86578E-04 7.08323E-04 1.61181E-04 + 1.29407E+00 -3.99044E-04 -5.40742E-05 4.63463E-06 2.99125E-04 + 1.88735E-04 2.99125E-04 1.88735E-04 6.55812E-04 1.64959E-04 + 1.29402E+00 -3.95676E-04 -5.38242E-05 4.61675E-06 2.69712E-04 + 1.90840E-04 2.69712E-04 1.90840E-04 6.05195E-04 1.68583E-04 + 1.29388E+00 -3.87258E-04 -5.35320E-05 4.59592E-06 2.40931E-04 + 1.92892E-04 2.40931E-04 1.92892E-04 5.56420E-04 1.72059E-04 + 1.29383E+00 -3.82206E-04 -5.31967E-05 4.57216E-06 2.12255E-04 + 1.94924E-04 2.12255E-04 1.94924E-04 5.08907E-04 1.75423E-04 + 1.29378E+00 -3.78839E-04 -5.28169E-05 4.54538E-06 1.84105E-04 + 1.96911E-04 1.84105E-04 1.96911E-04 4.63078E-04 1.78656E-04 + 1.29372E+00 -3.73788E-04 -5.23962E-05 4.51587E-06 1.56324E-04 + 1.98861E-04 1.56324E-04 1.98861E-04 4.18617E-04 1.81777E-04 + 1.29362E+00 -3.68737E-04 -5.19306E-05 4.48336E-06 1.28805E-04 + 2.00781E-04 1.28805E-04 2.00781E-04 3.75419E-04 1.84789E-04 + 1.29353E+00 -3.62002E-04 -5.14240E-05 4.44818E-06 1.01550E-04 + 2.02676E-04 1.01550E-04 2.02676E-04 3.33431E-04 1.87709E-04 + 1.29353E+00 -3.60318E-04 -5.08701E-05 4.40988E-06 7.47681E-05 + 2.04527E-04 7.47681E-05 2.04527E-04 2.92811E-04 1.90518E-04 + 1.29345E+00 -3.55257E-04 -5.02745E-05 4.36890E-06 4.80902E-05 + 2.06360E-04 4.80902E-05 2.06360E-04 2.53079E-04 1.93249E-04 + 1.29335E+00 -3.50216E-04 -4.96355E-05 4.32515E-06 2.16254E-05 + 2.08171E-04 2.16254E-05 2.08171E-04 2.14360E-04 1.95901E-04 + 1.29335E+00 -3.48532E-04 -4.89506E-05 4.27850E-06 -4.26194E-06 + 2.09933E-04 -4.26194E-06 2.09933E-04 1.77002E-04 1.98450E-04 + 1.29335E+00 -3.48532E-04 -4.82228E-05 4.22914E-06 -3.01493E-05 + 2.11689E-04 -3.01493E-05 2.11689E-04 1.40170E-04 2.00942E-04 + 1.29329E+00 -3.45164E-04 -4.74517E-05 4.17712E-06 -5.56683E-05 + 2.13413E-04 -5.56683E-05 2.13413E-04 1.04391E-04 2.03356E-04 + 1.29327E+00 -3.41797E-04 -4.66384E-05 4.12248E-06 -8.09242E-05 + 2.15109E-04 -8.09242E-05 2.15109E-04 6.95590E-05 2.05698E-04 + 1.29324E+00 -3.41797E-04 -4.57803E-05 4.06513E-06 -1.06128E-04 + 2.16793E-04 -1.06128E-04 2.16793E-04 3.53057E-05 2.07987E-04 + 1.29324E+00 -3.41797E-04 -4.48815E-05 4.00533E-06 -1.31068E-04 + 2.18451E-04 -1.31068E-04 2.18451E-04 1.94681E-06 2.10206E-04 + 1.29321E+00 -3.38429E-04 -4.39426E-05 3.94316E-06 -1.55955E-04 + 2.20101E-04 -1.55955E-04 2.20101E-04 -3.10437E-05 2.12390E-04 + 1.29316E+00 -3.35062E-04 -4.29604E-05 3.87844E-06 -1.80475E-04 + 2.21716E-04 -1.80475E-04 2.21716E-04 -6.30346E-05 2.14498E-04 + 1.29318E+00 -3.36746E-04 -4.19423E-05 3.81164E-06 -2.04889E-04 + 2.23321E-04 -2.04889E-04 2.23321E-04 -9.46045E-05 2.16570E-04 + 1.29308E+00 -3.31694E-04 -4.07515E-05 3.73390E-06 -2.29250E-04 + 2.24909E-04 -2.29250E-04 2.24909E-04 -1.25490E-04 2.18589E-04 + 1.29318E+00 -3.36746E-04 -3.97156E-05 3.66656E-06 -2.53401E-04 + 2.26481E-04 -2.53401E-04 2.26481E-04 -1.56008E-04 2.20568E-04 + 1.29310E+00 -3.31694E-04 -3.85991E-05 3.59434E-06 -2.77605E-04 + 2.28043E-04 -2.77605E-04 2.28043E-04 -1.85947E-04 2.22509E-04 + 1.29316E+00 -3.35062E-04 -3.73454E-05 3.51359E-06 -3.01440E-04 + 2.29579E-04 -3.01440E-04 2.29579E-04 -2.15359E-04 2.24403E-04 + 1.29310E+00 -3.31686E-04 -3.23562E-05 3.19372E-06 -3.21531E-04 + 2.30868E-04 -3.21531E-04 2.30868E-04 -2.40661E-04 2.26025E-04 + 1.29308E+00 -3.30011E-04 -3.17294E-05 3.15370E-06 -3.46164E-04 + 2.32440E-04 -3.46164E-04 2.32440E-04 -2.70186E-04 2.27908E-04 + 1.29310E+00 -3.33378E-04 -3.11588E-05 3.11748E-06 -3.70473E-04 + 2.33982E-04 -3.70473E-04 2.33982E-04 -2.99072E-04 2.29743E-04 + 1.29310E+00 -3.31694E-04 -3.00444E-05 3.04698E-06 -3.94466E-04 + 2.35505E-04 -3.94466E-04 2.35505E-04 -3.27433E-04 2.31539E-04 + 1.29313E+00 -3.33378E-04 -2.88166E-05 2.96965E-06 -4.17933E-04 + 2.36978E-04 -4.17933E-04 2.36978E-04 -3.54846E-04 2.33265E-04 + 1.29313E+00 -3.35062E-04 -2.74625E-05 2.88479E-06 -4.41873E-04 + 2.38481E-04 -4.41873E-04 2.38481E-04 -3.82680E-04 2.35008E-04 + 1.29308E+00 -3.31694E-04 -2.60768E-05 2.79828E-06 -4.65235E-04 + 2.39938E-04 -4.65235E-04 2.39938E-04 -4.09620E-04 2.36692E-04 + 1.29353E+00 -3.60318E-04 -2.46619E-05 2.71039E-06 -4.87860E-04 + 2.41345E-04 -4.87860E-04 2.41345E-04 -4.35560E-04 2.38303E-04 + 1.29270E+00 -3.08122E-04 -2.32248E-05 2.62150E-06 -5.13537E-04 + 2.42934E-04 -5.13537E-04 2.42934E-04 -4.64499E-04 2.40092E-04 + 1.29316E+00 -3.36746E-04 -2.17989E-05 2.53366E-06 -5.35899E-04 + 2.44308E-04 -5.35899E-04 2.44308E-04 -4.89754E-04 2.41648E-04 + 1.29308E+00 -3.31694E-04 -2.03540E-05 2.44502E-06 -5.59892E-04 + 2.45782E-04 -5.59892E-04 2.45782E-04 -5.16589E-04 2.43295E-04 + 1.29318E+00 -3.38429E-04 -1.89160E-05 2.35724E-06 -5.83254E-04 + 2.47206E-04 -5.83254E-04 2.47206E-04 -5.42529E-04 2.44877E-04 + 1.29318E+00 -3.38429E-04 -1.75110E-05 2.27181E-06 -6.06984E-04 + 2.48649E-04 -6.06984E-04 2.48649E-04 -5.68785E-04 2.46472E-04 + 1.29318E+00 -3.36746E-04 -1.60719E-05 2.18469E-06 -6.30819E-04 + 2.50093E-04 -6.30819E-04 2.50093E-04 -5.94935E-04 2.48057E-04 + 1.29318E+00 -3.38429E-04 -1.46537E-05 2.09921E-06 -6.54707E-04 + 2.51533E-04 -6.54707E-04 2.51533E-04 -6.20980E-04 2.49626E-04 + 1.29320E+00 -3.40104E-04 -1.32960E-05 2.01769E-06 -6.78577E-04 + 2.52967E-04 -6.78577E-04 2.52967E-04 -6.46903E-04 2.51184E-04 + 1.29397E+00 -3.85574E-04 -1.19361E-05 1.93643E-06 -7.00484E-04 + 2.54276E-04 -7.00484E-04 2.54276E-04 -6.70755E-04 2.52609E-04 + 1.29273E+00 -3.11490E-04 -1.06109E-05 1.85756E-06 -7.28160E-04 + 2.55923E-04 -7.28160E-04 2.55923E-04 -7.00273E-04 2.54365E-04 + 1.29351E+00 -3.56950E-04 -9.30449E-06 1.78012E-06 -7.50364E-04 + 2.57239E-04 -7.50364E-04 2.57239E-04 -7.24214E-04 2.55782E-04 + 1.29283E+00 -3.16541E-04 -8.03183E-06 1.70503E-06 -7.76620E-04 + 2.58791E-04 -7.76620E-04 2.58791E-04 -7.52048E-04 2.57426E-04 + 1.29332E+00 -3.46848E-04 -6.78301E-06 1.63163E-06 -8.00034E-04 + 2.60162E-04 -8.00034E-04 2.60162E-04 -7.76883E-04 2.58886E-04 + 1.29329E+00 -3.43481E-04 -5.57612E-06 1.56095E-06 -8.24606E-04 + 2.61599E-04 -8.24606E-04 2.61599E-04 -8.02928E-04 2.60406E-04 + 1.29337E+00 -3.48532E-04 -4.39964E-06 1.49240E-06 -8.49336E-04 + 2.63043E-04 -8.49336E-04 2.63043E-04 -8.29026E-04 2.61928E-04 + 1.29340E+00 -3.50216E-04 -3.21742E-06 1.42375E-06 -8.74276E-04 + 2.64493E-04 -8.74276E-04 2.64493E-04 -8.55124E-04 2.63448E-04 + 1.29418E+00 -3.95676E-04 -2.11494E-06 1.36001E-06 -8.97006E-04 + 2.65805E-04 -8.97006E-04 2.65805E-04 -8.79117E-04 2.64832E-04 + 1.29343E+00 -3.51899E-04 -1.03054E-06 1.29758E-06 -9.24683E-04 + 2.67397E-04 -9.24683E-04 2.67397E-04 -9.07740E-04 2.66483E-04 + 1.29327E+00 -3.43481E-04 6.57706E-09 1.23811E-06 -9.50359E-04 + 2.68870E-04 -9.50359E-04 2.68870E-04 -9.34469E-04 2.68015E-04 + 1.29327E+00 -3.43481E-04 1.02520E-06 1.17994E-06 -9.76352E-04 + 2.70354E-04 -9.76352E-04 2.70354E-04 -9.61409E-04 2.69554E-04 + 1.29310E+00 -3.35062E-04 2.00025E-06 1.12447E-06 -1.00213E-03 + 2.71823E-04 -1.00213E-03 2.71823E-04 -9.88243E-04 2.71077E-04 + 1.29351E+00 -3.56950E-04 2.95557E-06 1.07034E-06 -1.02728E-03 + 2.73251E-04 -1.02728E-03 2.73251E-04 -1.01424E-03 2.72554E-04 + 1.29363E+00 -3.63676E-04 3.87173E-06 1.01867E-06 -1.05314E-03 + 2.74707E-04 -1.05314E-03 2.74707E-04 -1.04083E-03 2.74052E-04 + 1.29353E+00 -3.58634E-04 4.75275E-06 9.69141E-07 -1.07969E-03 + 2.76201E-04 -1.07969E-03 2.76201E-04 -1.06822E-03 2.75589E-04 + 1.29356E+00 -3.60318E-04 5.59996E-06 9.21714E-07 -1.10621E-03 + 2.77684E-04 -1.10621E-03 2.77684E-04 -1.09537E-03 2.77115E-04 + 1.29434E+00 -4.02411E-04 6.42990E-06 8.75443E-07 -1.13052E-03 + 2.79042E-04 -1.13052E-03 2.79042E-04 -1.12031E-03 2.78506E-04 + 1.29337E+00 -3.50216E-04 7.20106E-06 8.32615E-07 -1.16051E-03 + 2.80706E-04 -1.16051E-03 2.80706E-04 -1.15104E-03 2.80209E-04 + 1.29348E+00 -3.55267E-04 7.95948E-06 7.90661E-07 -1.18734E-03 + 2.82189E-04 -1.18734E-03 2.82189E-04 -1.17829E-03 2.81722E-04 + 1.29370E+00 -3.67053E-04 8.68090E-06 7.50890E-07 -1.21439E-03 + 2.83682E-04 -1.21439E-03 2.83682E-04 -1.20597E-03 2.83241E-04 + 1.29370E+00 -3.67053E-04 9.39081E-06 7.11916E-07 -1.24143E-03 + 2.85168E-04 -1.24143E-03 2.85168E-04 -1.23365E-03 2.84761E-04 + 1.29413E+00 -3.90625E-04 1.00576E-05 6.75459E-07 -1.26816E-03 + 2.86628E-04 -1.26816E-03 2.86628E-04 -1.26080E-03 2.86247E-04 + 1.29351E+00 -3.56950E-04 1.06910E-05 6.40955E-07 -1.29805E-03 + 2.88253E-04 -1.29805E-03 2.88253E-04 -1.29110E-03 2.87898E-04 + 1.29391E+00 -3.78839E-04 1.13093E-05 6.07428E-07 -1.32520E-03 + 2.89726E-04 -1.32520E-03 2.89726E-04 -1.31857E-03 2.89391E-04 + 1.29407E+00 -3.87258E-04 1.19008E-05 5.75467E-07 -1.35288E-03 + 2.91226E-04 -1.35288E-03 2.91226E-04 -1.34667E-03 2.90910E-04 + 1.29413E+00 -3.90625E-04 1.24652E-05 5.45049E-07 -1.38160E-03 + 2.92771E-04 -1.38160E-03 2.92771E-04 -1.37592E-03 2.92482E-04 + 1.29394E+00 -3.80523E-04 1.29983E-05 5.16454E-07 -1.41107E-03 + 2.94350E-04 -1.41107E-03 2.94350E-04 -1.40581E-03 2.94080E-04 + 1.29402E+00 -3.83890E-04 1.35142E-05 4.88887E-07 -1.44001E-03 + 2.95896E-04 -1.44001E-03 2.95896E-04 -1.43485E-03 2.95639E-04 + 1.29372E+00 -3.68727E-04 1.39997E-05 4.63054E-07 -1.47028E-03 + 2.97512E-04 -1.47028E-03 2.97512E-04 -1.46554E-03 2.97269E-04 + 1.29415E+00 -3.90625E-04 1.44794E-05 4.37606E-07 -1.49862E-03 + 2.99006E-04 -1.49862E-03 2.99006E-04 -1.49410E-03 2.98789E-04 + 1.29405E+00 -3.85574E-04 1.49250E-05 4.14047E-07 -1.52872E-03 + 3.00605E-04 -1.52872E-03 3.00605E-04 -1.52462E-03 3.00394E-04 + 1.29445E+00 -4.07462E-04 1.53607E-05 3.91130E-07 -1.55755E-03 + 3.02117E-04 -1.55755E-03 3.02117E-04 -1.55356E-03 3.01920E-04 + 1.29421E+00 -3.93992E-04 1.57623E-05 3.70063E-07 -1.58860E-03 + 3.03749E-04 -1.58860E-03 3.03749E-04 -1.58491E-03 3.03564E-04 + 1.29397E+00 -3.82206E-04 1.61500E-05 3.49818E-07 -1.62017E-03 + 3.05399E-04 -1.62017E-03 3.05399E-04 -1.61680E-03 3.05235E-04 + 1.29429E+00 -3.99044E-04 1.65298E-05 3.30035E-07 -1.64942E-03 + 3.06919E-04 -1.64942E-03 3.06919E-04 -1.64606E-03 3.06754E-04 + 1.29426E+00 -3.97360E-04 1.68780E-05 3.11974E-07 -1.68110E-03 + 3.08563E-04 -1.68110E-03 3.08563E-04 -1.67815E-03 3.08418E-04 + 1.29437E+00 -4.02411E-04 1.72183E-05 2.94401E-07 -1.71214E-03 + 3.10168E-04 -1.71214E-03 3.10168E-04 -1.70919E-03 3.10023E-04 + 1.29440E+00 -4.04095E-04 1.75386E-05 2.77881E-07 -1.74350E-03 + 3.11779E-04 -1.74350E-03 3.11779E-04 -1.74087E-03 3.11654E-04 + 1.29450E+00 -4.10830E-04 1.78469E-05 2.62081E-07 -1.77497E-03 + 3.13397E-04 -1.77497E-03 3.13397E-04 -1.77244E-03 3.13272E-04 + 1.29440E+00 -4.04095E-04 1.81371E-05 2.47231E-07 -1.80738E-03 + 3.15055E-04 -1.80738E-03 3.15055E-04 -1.80506E-03 3.14943E-04 + 1.29450E+00 -4.09146E-04 1.84154E-05 2.33075E-07 -1.83937E-03 + 3.16686E-04 -1.83937E-03 3.16686E-04 -1.83726E-03 3.16580E-04 + 1.29467E+00 -4.17565E-04 1.86813E-05 2.19561E-07 -1.87146E-03 + 3.18317E-04 -1.87146E-03 3.18317E-04 -1.86936E-03 3.18212E-04 + 1.29445E+00 -4.07462E-04 1.89263E-05 2.07178E-07 -1.90524E-03 + 3.20020E-04 -1.90524E-03 3.20020E-04 -1.90335E-03 3.19928E-04 + 1.29463E+00 -4.17553E-04 1.91704E-05 1.94892E-07 -1.93771E-03 + 3.21656E-04 -1.93771E-03 3.21656E-04 -1.93592E-03 3.21570E-04 + 1.29472E+00 -4.20932E-04 1.93292E-05 1.86907E-07 -1.97101E-03 + 3.23328E-04 -1.97101E-03 3.23328E-04 -1.96933E-03 3.23250E-04 + 1.29461E+00 -4.15881E-04 1.96753E-05 1.69616E-07 -2.00490E-03 + 3.25025E-04 -2.00490E-03 3.25025E-04 -2.00322E-03 3.24946E-04 + 1.29483E+00 -4.25983E-04 1.98175E-05 1.62500E-07 -2.03836E-03 + 3.26696E-04 -2.03836E-03 3.26696E-04 -2.03689E-03 3.26624E-04 + 1.29477E+00 -4.24300E-04 2.00091E-05 1.52994E-07 -2.07278E-03 + 3.28399E-04 -2.07278E-03 3.28399E-04 -2.07130E-03 3.28334E-04 + 1.29483E+00 -4.25983E-04 2.01932E-05 1.43873E-07 -2.10740E-03 + 3.30116E-04 -2.10740E-03 3.30116E-04 -2.10613E-03 3.30057E-04 + 1.29491E+00 -4.29351E-04 2.03688E-05 1.35215E-07 -2.14149E-03 + 3.31800E-04 -2.14149E-03 3.31800E-04 -2.14033E-03 3.31741E-04 + 1.29494E+00 -4.31034E-04 2.05365E-05 1.26968E-07 -2.17685E-03 + 3.33536E-04 -2.17685E-03 3.33536E-04 -2.17580E-03 3.33483E-04 + 1.29496E+00 -4.32718E-04 2.06923E-05 1.19338E-07 -2.21221E-03 + 3.35266E-04 -2.21221E-03 3.35266E-04 -2.21105E-03 3.35213E-04 + 1.29502E+00 -4.36086E-04 2.08431E-05 1.11964E-07 -2.24788E-03 + 3.37009E-04 -2.24788E-03 3.37009E-04 -2.24694E-03 3.36963E-04 + 1.29510E+00 -4.39453E-04 2.09870E-05 1.04976E-07 -2.28335E-03 + 3.38739E-04 -2.28335E-03 3.38739E-04 -2.28250E-03 3.38693E-04 + 1.29510E+00 -4.39453E-04 2.10869E-05 1.00120E-07 -2.31976E-03 + 3.40501E-04 -2.31976E-03 3.40501E-04 -2.31891E-03 3.40462E-04 + 1.29515E+00 -4.42821E-04 2.12813E-05 9.07429E-08 -2.35638E-03 + 3.42270E-04 -2.35638E-03 3.42270E-04 -2.35554E-03 3.42231E-04 + 1.29523E+00 -4.46188E-04 2.13701E-05 8.64524E-08 -2.39300E-03 + 3.44033E-04 -2.39300E-03 3.44033E-04 -2.39216E-03 3.43994E-04 + 1.29520E+00 -4.44504E-04 2.14832E-05 8.10315E-08 -2.43004E-03 + 3.45809E-04 -2.43004E-03 3.45809E-04 -2.42930E-03 3.45776E-04 + 1.29536E+00 -4.51227E-04 2.15919E-05 7.58397E-08 -2.46765E-03 + 3.47608E-04 -2.46765E-03 3.47608E-04 -2.46702E-03 3.47582E-04 + 1.29534E+00 -4.51239E-04 2.16957E-05 7.08833E-08 -2.50507E-03 + 3.49393E-04 -2.50507E-03 3.49393E-04 -2.50434E-03 3.49360E-04 + 1.29539E+00 -4.52923E-04 2.17952E-05 6.61560E-08 -2.54296E-03 + 3.51189E-04 -2.54296E-03 3.51189E-04 -2.54232E-03 3.51163E-04 + 1.29545E+00 -4.56290E-04 2.18835E-05 6.19940E-08 -2.58158E-03 + 3.53024E-04 -2.58158E-03 3.53024E-04 -2.58105E-03 3.52998E-04 + 1.29553E+00 -4.59658E-04 2.19732E-05 5.77292E-08 -2.61999E-03 + 3.54833E-04 -2.61999E-03 3.54833E-04 -2.61936E-03 3.54806E-04 + 1.29550E+00 -4.57974E-04 2.20554E-05 5.39011E-08 -2.65903E-03 + 3.56674E-04 -2.65903E-03 3.56674E-04 -2.65861E-03 3.56654E-04 + 1.29566E+00 -4.66393E-04 2.21236E-05 5.07153E-08 -2.69828E-03 + 3.58509E-04 -2.69828E-03 3.58509E-04 -2.69786E-03 3.58489E-04 + 1.29566E+00 -4.66393E-04 2.22140E-05 4.64505E-08 -2.73753E-03 + 3.60344E-04 -2.73753E-03 3.60344E-04 -2.73711E-03 3.60324E-04 + 1.29572E+00 -4.68076E-04 2.22445E-05 4.50375E-08 -2.77794E-03 + 3.62225E-04 -2.77794E-03 3.62225E-04 -2.77752E-03 3.62205E-04 + 1.29572E+00 -4.69760E-04 2.23867E-05 3.84604E-08 -2.81793E-03 + 3.64080E-04 -2.81793E-03 3.64080E-04 -2.81751E-03 3.64060E-04 + 1.29580E+00 -4.73128E-04 2.23817E-05 3.86916E-08 -2.85866E-03 + 3.65968E-04 -2.85866E-03 3.65968E-04 -2.85844E-03 3.65954E-04 + 1.29577E+00 -4.71444E-04 2.24664E-05 3.47351E-08 -2.89959E-03 + 3.67855E-04 -2.89959E-03 3.67855E-04 -2.89928E-03 3.67842E-04 + 1.29601E+00 -4.81546E-04 2.25256E-05 3.20118E-08 -2.94042E-03 + 3.69730E-04 -2.94042E-03 3.69730E-04 -2.94000E-03 3.69710E-04 + 1.29593E+00 -4.78179E-04 2.26202E-05 2.76956E-08 -2.98220E-03 + 3.71644E-04 -2.98220E-03 3.71644E-04 -2.98188E-03 3.71630E-04 + 1.29604E+00 -4.83230E-04 2.26309E-05 2.72332E-08 -3.02419E-03 + 3.73564E-04 -3.02419E-03 3.73564E-04 -3.02408E-03 3.73558E-04 + 1.29609E+00 -4.84901E-04 2.26796E-05 2.50230E-08 -3.06630E-03 + 3.75481E-04 -3.06630E-03 3.75481E-04 -3.06599E-03 3.75468E-04 + 1.29612E+00 -4.88281E-04 2.27147E-05 2.34051E-08 -3.10890E-03 + 3.77412E-04 -3.10890E-03 3.77412E-04 -3.10858E-03 3.77399E-04 + 1.29620E+00 -4.89965E-04 2.27295E-05 2.27371E-08 -3.15194E-03 + 3.79358E-04 -3.15194E-03 3.79358E-04 -3.15173E-03 3.79352E-04 + 1.29623E+00 -4.91649E-04 2.28167E-05 1.88320E-08 -3.19530E-03 + 3.81312E-04 -3.19530E-03 3.81312E-04 -3.19498E-03 3.81299E-04 + 1.29631E+00 -4.96700E-04 2.28750E-05 1.61857E-08 -3.23876E-03 + 3.83265E-04 -3.23876E-03 3.83265E-04 -3.23855E-03 3.83259E-04 + 1.29636E+00 -4.98384E-04 2.28545E-05 1.71363E-08 -3.28264E-03 + 3.85232E-04 -3.28264E-03 3.85232E-04 -3.28243E-03 3.85225E-04 + 1.29639E+00 -4.98384E-04 2.29145E-05 1.44387E-08 -3.32757E-03 + 3.87238E-04 -3.32757E-03 3.87238E-04 -3.32726E-03 3.87225E-04 + 1.29650E+00 -5.03435E-04 2.29597E-05 1.24348E-08 -3.37167E-03 + 3.89204E-04 -3.37167E-03 3.89204E-04 -3.37156E-03 3.89198E-04 + 1.29652E+00 -5.05119E-04 2.30115E-05 1.01225E-08 -3.41692E-03 + 3.91210E-04 -3.41692E-03 3.91210E-04 -3.41681E-03 3.91204E-04 + 1.29661E+00 -5.08486E-04 2.30090E-05 1.02253E-08 -3.46248E-03 + 3.93223E-04 -3.46248E-03 3.93223E-04 -3.46227E-03 3.93216E-04 + 1.29663E+00 -5.10170E-04 2.30345E-05 9.12054E-09 -3.50826E-03 + 3.95242E-04 -3.50826E-03 3.95242E-04 -3.50826E-03 3.95242E-04 + 1.29671E+00 -5.13537E-04 2.30600E-05 7.99011E-09 -3.55435E-03 + 3.97268E-04 -3.55435E-03 3.97268E-04 -3.55414E-03 3.97261E-04 + 1.29674E+00 -5.15221E-04 2.30699E-05 7.52766E-09 -3.60107E-03 + 3.99313E-04 -3.60107E-03 3.99313E-04 -3.60086E-03 3.99307E-04 + 1.29682E+00 -5.18588E-04 2.31159E-05 5.52371E-09 -3.64801E-03 + 4.01365E-04 -3.64801E-03 4.01365E-04 -3.64780E-03 4.01359E-04 + 1.29690E+00 -5.21956E-04 2.31472E-05 4.18774E-09 -3.69536E-03 + 4.03431E-04 -3.69536E-03 4.03431E-04 -3.69536E-03 4.03431E-04 + 1.29689E+00 -5.21942E-04 2.31441E-05 4.29039E-09 -3.74325E-03 + 4.05511E-04 -3.74325E-03 4.05511E-04 -3.74325E-03 4.05505E-04 + 1.29701E+00 -5.27007E-04 2.31652E-05 3.36561E-09 -3.79113E-03 + 4.07574E-04 -3.79113E-03 4.07574E-04 -3.79070E-03 4.07568E-04 + 1.29712E+00 -5.30374E-04 2.31990E-05 1.95257E-09 -3.83953E-03 + 4.09666E-04 -3.83953E-03 4.09666E-04 -3.83932E-03 4.09666E-04 + 1.29714E+00 -5.32058E-04 2.32269E-05 7.45058E-10 -3.88836E-03 + 4.11770E-04 -3.88836E-03 4.11770E-04 -3.88836E-03 4.11764E-04 + 1.29723E+00 -5.35426E-04 2.32269E-05 7.19366E-10 -3.93761E-03 + 4.13881E-04 -3.93761E-03 4.13881E-04 -3.93761E-03 4.13881E-04 + 1.29723E+00 -5.35426E-04 2.32417E-05 1.28458E-10 -3.98749E-03 + 4.16012E-04 -3.98749E-03 4.16012E-04 -3.98728E-03 4.16006E-04 + 1.29747E+00 -5.45528E-04 2.32598E-05 -6.42291E-10 -4.03695E-03 + 4.18124E-04 -4.03695E-03 4.18124E-04 -4.03695E-03 4.18124E-04 + 1.29733E+00 -5.40477E-04 2.32631E-05 -7.96441E-10 -4.08809E-03 + 4.20301E-04 -4.08809E-03 4.20301E-04 -4.08830E-03 4.20301E-04 + 1.29744E+00 -5.45528E-04 2.32869E-05 -1.82411E-09 -4.13882E-03 + 4.22445E-04 -4.13882E-03 4.22445E-04 -4.13860E-03 4.22438E-04 + 1.29752E+00 -5.48895E-04 2.33009E-05 -2.38932E-09 -4.19038E-03 + 4.24622E-04 -4.19038E-03 4.24622E-04 -4.19038E-03 4.24622E-04 + 1.29758E+00 -5.50579E-04 2.33116E-05 -2.85177E-09 -4.24173E-03 + 4.26786E-04 -4.24173E-03 4.26786E-04 -4.24173E-03 4.26786E-04 + 1.29766E+00 -5.53947E-04 2.33231E-05 -3.33992E-09 -4.29393E-03 + 4.28982E-04 -4.29393E-03 4.28982E-04 -4.29393E-03 4.28976E-04 + 1.29774E+00 -5.57314E-04 2.33362E-05 -3.87944E-09 -4.34633E-03 + 4.31173E-04 -4.34633E-03 4.31173E-04 -4.34633E-03 4.31173E-04 + 1.29776E+00 -5.58998E-04 2.33519E-05 -4.54742E-09 -4.39958E-03 + 4.33396E-04 -4.39958E-03 4.33396E-04 -4.39958E-03 4.33396E-04 + 1.29790E+00 -5.64049E-04 2.33552E-05 -4.67588E-09 -4.45241E-03 + 4.35599E-04 -4.45241E-03 4.35599E-04 -4.45220E-03 4.35592E-04 + 1.29794E+00 -5.65718E-04 2.33644E-05 -5.06112E-09 -4.50638E-03 + 4.37837E-04 -4.50638E-03 4.37837E-04 -4.50638E-03 4.37837E-04 + 1.29809E+00 -5.72468E-04 2.33732E-05 -5.42094E-09 -4.56059E-03 + 4.40078E-04 -4.56059E-03 4.40078E-04 -4.56059E-03 4.40078E-04 + 1.29798E+00 -5.67416E-04 2.33757E-05 -5.52371E-09 -4.61573E-03 + 4.42354E-04 -4.61573E-03 4.42354E-04 -4.61573E-03 4.42354E-04 + 1.29820E+00 -5.75835E-04 2.33905E-05 -6.14031E-09 -4.67024E-03 + 4.44596E-04 -4.67024E-03 4.44596E-04 -4.67024E-03 4.44596E-04 + 1.29822E+00 -5.77519E-04 2.33979E-05 -6.42291E-09 -4.72602E-03 + 4.46885E-04 -4.72602E-03 4.46885E-04 -4.72581E-03 4.46879E-04 + 1.29828E+00 -5.79203E-04 2.34045E-05 -6.73121E-09 -4.78179E-03 + 4.49161E-04 -4.78179E-03 4.49161E-04 -4.78158E-03 4.49161E-04 + 1.29838E+00 -5.84254E-04 2.34127E-05 -7.03951E-09 -4.83861E-03 + 4.51489E-04 -4.83861E-03 4.51489E-04 -4.83883E-03 4.51489E-04 + 1.29844E+00 -5.85938E-04 2.34234E-05 -7.50196E-09 -4.89481E-03 + 4.53765E-04 -4.89481E-03 4.53765E-04 -4.89460E-03 4.53765E-04 + 1.29852E+00 -5.89305E-04 2.34250E-05 -7.52766E-09 -4.95227E-03 + 4.56100E-04 -4.95227E-03 4.56100E-04 -4.95227E-03 4.56100E-04 + 1.29860E+00 -5.92672E-04 2.34300E-05 -7.75888E-09 -5.01035E-03 + 4.58448E-04 -5.01035E-03 4.58448E-04 -5.01035E-03 4.58448E-04 + 1.29865E+00 -5.94356E-04 2.34374E-05 -8.04149E-09 -5.06844E-03 + 4.60789E-04 -5.06844E-03 4.60789E-04 -5.06844E-03 4.60789E-04 + 1.29876E+00 -5.99407E-04 2.34415E-05 -8.19564E-09 -5.12716E-03 + 4.63157E-04 -5.12716E-03 4.63157E-04 -5.12737E-03 4.63157E-04 + 1.29881E+00 -6.01091E-04 2.34464E-05 -8.40117E-09 -5.18567E-03 + 4.65498E-04 -5.18567E-03 4.65498E-04 -5.18546E-03 4.65492E-04 + 1.29881E+00 -6.02775E-04 2.34538E-05 -8.68378E-09 -5.24608E-03 + 4.67912E-04 -5.24608E-03 4.67912E-04 -5.24608E-03 4.67912E-04 + 1.29903E+00 -6.09510E-04 2.34587E-05 -8.91500E-09 -5.30564E-03 + 4.70286E-04 -5.30564E-03 4.70286E-04 -5.30564E-03 4.70286E-04 + 1.29903E+00 -6.11193E-04 2.34629E-05 -9.06916E-09 -5.36688E-03 + 4.72713E-04 -5.36688E-03 4.72713E-04 -5.36667E-03 4.72713E-04 + 1.29910E+00 -6.12861E-04 2.34672E-05 -9.22306E-09 -5.42735E-03 + 4.75114E-04 -5.42735E-03 4.75114E-04 -5.42714E-03 4.75114E-04 + 1.29925E+00 -6.17928E-04 2.34744E-05 -9.53160E-09 -5.48874E-03 + 4.77547E-04 -5.48874E-03 4.77547E-04 -5.48895E-03 4.77547E-04 + 1.29935E+00 -6.21296E-04 2.34768E-05 -9.63437E-09 -5.55020E-03 + 4.79974E-04 -5.55020E-03 4.79974E-04 -5.55041E-03 4.79974E-04 + 1.29930E+00 -6.21296E-04 2.34793E-05 -9.71145E-09 -5.61397E-03 + 4.82474E-04 -5.61397E-03 4.82474E-04 -5.61397E-03 4.82474E-04 + 1.29946E+00 -6.28031E-04 2.34842E-05 -9.89129E-09 -5.67606E-03 + 4.84907E-04 -5.67606E-03 4.84907E-04 -5.67606E-03 4.84907E-04 + 1.29952E+00 -6.29714E-04 2.34883E-05 -1.00454E-08 -5.73962E-03 + 4.87393E-04 -5.73962E-03 4.87393E-04 -5.73962E-03 4.87393E-04 + 1.29957E+00 -6.31398E-04 2.34900E-05 -1.01225E-08 -5.80381E-03 + 4.89899E-04 -5.80381E-03 4.89899E-04 -5.80402E-03 4.89899E-04 + 1.29968E+00 -6.36449E-04 2.34949E-05 -1.03280E-08 -5.86800E-03 + 4.92392E-04 -5.86800E-03 4.92392E-04 -5.86800E-03 4.92392E-04 + 1.29978E+00 -6.39817E-04 2.34966E-05 -1.03794E-08 -5.93283E-03 + 4.94904E-04 -5.93283E-03 4.94904E-04 -5.93283E-03 4.94904E-04 + 1.29989E+00 -6.43184E-04 2.35048E-05 -1.07134E-08 -5.99870E-03 + 4.97450E-04 -5.99870E-03 4.97450E-04 -5.99870E-03 4.97450E-04 + 1.29995E+00 -6.46552E-04 2.35048E-05 -1.06877E-08 -6.06437E-03 + 4.99982E-04 -6.06437E-03 4.99982E-04 -6.06437E-03 4.99982E-04 + 1.30000E+00 -6.48235E-04 2.35089E-05 -1.08676E-08 -6.13067E-03 + 5.02534E-04 -6.13067E-03 5.02534E-04 -6.13067E-03 5.02534E-04 + 1.30016E+00 -6.54970E-04 2.35122E-05 -1.09960E-08 -6.19759E-03 + 5.05099E-04 -6.19759E-03 5.05099E-04 -6.19738E-03 5.05092E-04 + 1.30022E+00 -6.54970E-04 2.35130E-05 -1.10217E-08 -6.26557E-03 + 5.07703E-04 -6.26557E-03 5.07703E-04 -6.26557E-03 5.07703E-04 + 1.30027E+00 -6.58338E-04 2.35171E-05 -1.11759E-08 -6.33292E-03 + 5.10268E-04 -6.33292E-03 5.10268E-04 -6.33292E-03 5.10268E-04 + 1.30050E+00 -6.66738E-04 2.35222E-05 -1.13554E-08 -6.40157E-03 + 5.12879E-04 -6.40157E-03 5.12879E-04 -6.40157E-03 5.12879E-04 + 1.30038E+00 -6.61705E-04 2.35204E-05 -1.13043E-08 -6.47162E-03 + 5.15537E-04 -6.47162E-03 5.15537E-04 -6.47162E-03 5.15537E-04 + 1.30059E+00 -6.70124E-04 2.35253E-05 -1.15099E-08 -6.54044E-03 + 5.18135E-04 -6.54044E-03 5.18135E-04 -6.54044E-03 5.18135E-04 + 1.30070E+00 -6.73491E-04 2.35278E-05 -1.15869E-08 -6.61116E-03 + 5.20805E-04 -6.61116E-03 5.20805E-04 -6.61116E-03 5.20805E-04 + 1.30075E+00 -6.75175E-04 2.35311E-05 -1.17154E-08 -6.68124E-03 + 5.23449E-04 -6.68124E-03 5.23449E-04 -6.68124E-03 5.23449E-04 + 1.30086E+00 -6.80226E-04 2.35327E-05 -1.17668E-08 -6.75280E-03 + 5.26132E-04 -6.75280E-03 5.26132E-04 -6.75280E-03 5.26132E-04 + 1.30102E+00 -6.86961E-04 2.35368E-05 -1.19209E-08 -6.82394E-03 + 5.28789E-04 -6.82394E-03 5.28789E-04 -6.82394E-03 5.28789E-04 + 1.30092E+00 -6.81910E-04 2.35385E-05 -1.19723E-08 -6.89760E-03 + 5.31545E-04 -6.89760E-03 5.31545E-04 -6.89760E-03 5.31545E-04 + 1.30113E+00 -6.92012E-04 2.35286E-05 -1.16383E-08 -6.96958E-03 + 5.34229E-04 -6.96958E-03 5.34229E-04 -6.96958E-03 5.34229E-04 + 1.30119E+00 -6.93696E-04 2.35549E-05 -1.25889E-08 -7.04283E-03 + 5.36945E-04 -7.04283E-03 5.36945E-04 -7.04283E-03 5.36945E-04 + 1.30140E+00 -7.00431E-04 2.35475E-05 -1.23063E-08 -7.11649E-03 + 5.39674E-04 -7.11649E-03 5.39674E-04 -7.11649E-03 5.39674E-04 + 1.30140E+00 -7.00431E-04 2.35484E-05 -1.23577E-08 -7.19184E-03 + 5.42457E-04 -7.19184E-03 5.42457E-04 -7.19184E-03 5.42457E-04 + 1.30145E+00 -7.02115E-04 2.35475E-05 -1.23063E-08 -7.26718E-03 + 5.45239E-04 -7.26718E-03 5.45239E-04 -7.26718E-03 5.45239E-04 + 1.30156E+00 -7.07166E-04 2.35549E-05 -1.25889E-08 -7.34232E-03 + 5.47994E-04 -7.34232E-03 5.47994E-04 -7.34232E-03 5.47994E-04 + 1.30172E+00 -7.12217E-04 2.35533E-05 -1.25375E-08 -7.41914E-03 + 5.50809E-04 -7.41914E-03 5.50809E-04 -7.41914E-03 5.50809E-04 + 1.30180E+00 -7.15565E-04 2.35576E-05 -1.26913E-08 -7.49597E-03 + 5.53623E-04 -7.49597E-03 5.53623E-04 -7.49597E-03 5.53623E-04 + 1.30189E+00 -7.18952E-04 2.35385E-05 -1.19723E-08 -7.57320E-03 + 5.56433E-04 -7.57320E-03 5.56433E-04 -7.57320E-03 5.56433E-04 + 1.30199E+00 -7.22320E-04 2.35780E-05 -1.34367E-08 -7.65107E-03 + 5.59268E-04 -7.65107E-03 5.59268E-04 -7.65107E-03 5.59268E-04 + 1.30205E+00 -7.25687E-04 2.35706E-05 -1.31541E-08 -7.73000E-03 + 5.62129E-04 -7.73000E-03 5.62129E-04 -7.73000E-03 5.62129E-04 + 1.30232E+00 -7.34106E-04 2.35689E-05 -1.31027E-08 -7.80934E-03 + 5.65003E-04 -7.80934E-03 5.65003E-04 -7.80934E-03 5.65003E-04 + 1.30226E+00 -7.30738E-04 2.35541E-05 -1.25632E-08 -7.88890E-03 + 5.67877E-04 -7.88890E-03 5.67877E-04 -7.88890E-03 5.67877E-04 + 1.30242E+00 -7.37473E-04 2.35829E-05 -1.36166E-08 -7.96972E-03 + 5.70784E-04 -7.96972E-03 5.70784E-04 -7.96972E-03 5.70784E-04 + 1.30253E+00 -7.40841E-04 2.35738E-05 -1.32569E-08 -8.05054E-03 + 5.73691E-04 -8.05054E-03 5.73691E-04 -8.05054E-03 5.73691E-04 + 1.30264E+00 -7.44208E-04 2.35738E-05 -1.32569E-08 -8.13220E-03 + 5.76611E-04 -8.13220E-03 5.76611E-04 -8.13220E-03 5.76611E-04 + 1.30275E+00 -7.49259E-04 2.35788E-05 -1.34624E-08 -8.21428E-03 + 5.79545E-04 -8.21428E-03 5.79545E-04 -8.21428E-03 5.79545E-04 + 1.30280E+00 -7.52627E-04 2.35574E-05 -1.26917E-08 -8.29783E-03 + 5.82517E-04 -8.29783E-03 5.82517E-04 -8.29783E-03 5.82517E-04 + 1.30296E+00 -7.55994E-04 2.35697E-05 -1.31541E-08 -8.38097E-03 + 5.85477E-04 -8.38097E-03 5.85477E-04 -8.38097E-03 5.85477E-04 + 1.30307E+00 -7.61045E-04 2.36174E-05 -1.48241E-08 -8.46516E-03 + 5.88463E-04 -8.46516E-03 5.88463E-04 -8.46516E-03 5.88463E-04 + 1.30318E+00 -7.64413E-04 2.35656E-05 -1.29743E-08 -8.54997E-03 + 5.91462E-04 -8.54997E-03 5.91462E-04 -8.54997E-03 5.91462E-04 + 1.30329E+00 -7.67780E-04 2.36100E-05 -1.45415E-08 -8.63500E-03 + 5.94461E-04 -8.63500E-03 5.94461E-04 -8.63500E-03 5.94461E-04 + 1.30341E+00 -7.72811E-04 2.35913E-05 -1.38988E-08 -8.72190E-03 + 5.97523E-04 -8.72190E-03 5.97523E-04 -8.72190E-03 5.97523E-04 + 1.30350E+00 -7.76199E-04 2.35878E-05 -1.37707E-08 -8.80822E-03 + 6.00552E-04 -8.80822E-03 6.00552E-04 -8.80822E-03 6.00552E-04 + 1.30356E+00 -7.77883E-04 2.35993E-05 -1.41818E-08 -8.89577E-03 + 6.03617E-04 -8.89577E-03 6.03617E-04 -8.89577E-03 6.03617E-04 + 1.30383E+00 -7.86301E-04 2.35985E-05 -1.41561E-08 -8.98353E-03 + 6.06682E-04 -8.98353E-03 6.06682E-04 -8.98353E-03 6.06682E-04 + 1.30383E+00 -7.87985E-04 2.35985E-05 -1.41561E-08 -9.07214E-03 + 6.09773E-04 -9.07214E-03 6.09773E-04 -9.07214E-03 6.09773E-04 + 1.30393E+00 -7.91352E-04 2.35845E-05 -1.36680E-08 -9.16222E-03 + 6.12903E-04 -9.16222E-03 6.12903E-04 -9.16222E-03 6.12903E-04 + 1.30409E+00 -7.96404E-04 2.36158E-05 -1.47470E-08 -9.25104E-03 + 6.15982E-04 -9.25104E-03 6.15982E-04 -9.25104E-03 6.15982E-04 + 1.30415E+00 -7.99771E-04 2.36084E-05 -1.44901E-08 -9.34280E-03 + 6.19152E-04 -9.34280E-03 6.19152E-04 -9.34280E-03 6.19152E-04 + 1.30426E+00 -8.03138E-04 2.36108E-05 -1.45672E-08 -9.43372E-03 + 6.22295E-04 -9.43372E-03 6.22295E-04 -9.43372E-03 6.22295E-04 + 1.30442E+00 -8.08190E-04 2.36125E-05 -1.46442E-08 -9.52611E-03 + 6.25479E-04 -9.52611E-03 6.25479E-04 -9.52611E-03 6.25479E-04 + 1.30458E+00 -8.13241E-04 2.36002E-05 -1.42075E-08 -9.61788E-03 + 6.28636E-04 -9.61788E-03 6.28636E-04 -9.61788E-03 6.28636E-04 + 1.30469E+00 -8.16608E-04 2.36215E-05 -1.49525E-08 -9.71217E-03 + 6.31859E-04 -9.71217E-03 6.31859E-04 -9.71217E-03 6.31859E-04 + 1.30480E+00 -8.21659E-04 2.36240E-05 -1.50296E-08 -9.80603E-03 + 6.35068E-04 -9.80603E-03 6.35068E-04 -9.80603E-03 6.35068E-04 + 1.30490E+00 -8.25027E-04 2.36141E-05 -1.46956E-08 -9.90074E-03 + 6.38291E-04 -9.90074E-03 6.38291E-04 -9.90074E-03 6.38291E-04 + 1.30496E+00 -8.25027E-04 2.36240E-05 -1.50296E-08 -9.99714E-03 + 6.41579E-04 -9.99714E-03 6.41579E-04 -9.99714E-03 6.41579E-04 + 1.30523E+00 -8.35129E-04 2.36289E-05 -1.51838E-08 -1.00923E-02 + 6.44802E-04 -1.00923E-02 6.44802E-04 -1.00923E-02 6.44802E-04 + 1.30528E+00 -8.36813E-04 2.36223E-05 -1.49782E-08 -1.01895E-02 + 6.48104E-04 -1.01895E-02 6.48104E-04 -1.01895E-02 6.48104E-04 + 1.30544E+00 -8.41864E-04 2.36322E-05 -1.52865E-08 -1.02876E-02 + 6.51406E-04 -1.02876E-02 6.51406E-04 -1.02876E-02 6.51406E-04 + 1.30550E+00 -8.45232E-04 2.36314E-05 -1.52865E-08 -1.03861E-02 + 6.54720E-04 -1.03861E-02 6.54720E-04 -1.03861E-02 6.54720E-04 + 1.30571E+00 -8.51967E-04 2.36355E-05 -1.54150E-08 -1.04842E-02 + 6.58022E-04 -1.04842E-02 6.58022E-04 -1.04842E-02 6.58022E-04 + 1.30577E+00 -8.53650E-04 2.36371E-05 -1.54407E-08 -1.05843E-02 + 6.61376E-04 -1.05843E-02 6.61376E-04 -1.05843E-02 6.61376E-04 + 1.30593E+00 -8.58702E-04 2.36380E-05 -1.54921E-08 -1.06854E-02 + 6.64757E-04 -1.06854E-02 6.64757E-04 -1.06854E-02 6.64757E-04 + 1.30607E+00 -8.63706E-04 2.36424E-05 -1.56454E-08 -1.07871E-02 + 6.68154E-04 -1.07871E-02 6.68154E-04 -1.07871E-02 6.68154E-04 + 1.30614E+00 -8.67120E-04 2.36429E-05 -1.56462E-08 -1.08891E-02 + 6.71545E-04 -1.08891E-02 6.71545E-04 -1.08891E-02 6.71545E-04 + 1.30630E+00 -8.72171E-04 2.36429E-05 -1.56462E-08 -1.09910E-02 + 6.74925E-04 -1.09910E-02 6.74925E-04 -1.09910E-02 6.74925E-04 + 1.30657E+00 -8.80590E-04 2.36536E-05 -1.60059E-08 -1.10945E-02 + 6.78358E-04 -1.10945E-02 6.78358E-04 -1.10945E-02 6.78358E-04 + 1.30647E+00 -8.77223E-04 2.36478E-05 -1.58004E-08 -1.12002E-02 + 6.81844E-04 -1.12002E-02 6.81844E-04 -1.12002E-02 6.81844E-04 + 1.30673E+00 -8.85641E-04 2.36561E-05 -1.61087E-08 -1.13046E-02 + 6.85291E-04 -1.13046E-02 6.85291E-04 -1.13046E-02 6.85291E-04 + 1.30690E+00 -8.90692E-04 2.36569E-05 -1.61087E-08 -1.14106E-02 + 6.88776E-04 -1.14106E-02 6.88776E-04 -1.14106E-02 6.88776E-04 + 1.30700E+00 -8.94060E-04 2.36585E-05 -1.61857E-08 -1.15175E-02 + 6.92289E-04 -1.15175E-02 6.92289E-04 -1.15175E-02 6.92289E-04 + 1.30711E+00 -8.99111E-04 2.36602E-05 -1.62371E-08 -1.16249E-02 + 6.95801E-04 -1.16249E-02 6.95801E-04 -1.16249E-02 6.95801E-04 + 1.30727E+00 -9.04162E-04 2.36643E-05 -1.63656E-08 -1.17331E-02 + 6.99339E-04 -1.17331E-02 6.99339E-04 -1.17331E-02 6.99339E-04 + 1.30744E+00 -9.07530E-04 2.36659E-05 -1.63913E-08 -1.18417E-02 + 7.02878E-04 -1.18417E-02 7.02878E-04 -1.18417E-02 7.02878E-04 + 1.30754E+00 -9.12581E-04 2.36692E-05 -1.65454E-08 -1.19515E-02 + 7.06456E-04 -1.19515E-02 7.06456E-04 -1.19515E-02 7.06456E-04 + 1.30770E+00 -9.17632E-04 2.36717E-05 -1.65968E-08 -1.20618E-02 + 7.10034E-04 -1.20618E-02 7.10034E-04 -1.20618E-02 7.10034E-04 + 1.30792E+00 -9.24367E-04 2.36750E-05 -1.67253E-08 -1.21738E-02 + 7.13664E-04 -1.21738E-02 7.13664E-04 -1.21738E-02 7.13664E-04 + 1.30787E+00 -9.22683E-04 2.36725E-05 -1.66482E-08 -1.22866E-02 + 7.17295E-04 -1.22866E-02 7.17295E-04 -1.22866E-02 7.17295E-04 + 1.30814E+00 -9.32786E-04 2.36815E-05 -1.69308E-08 -1.23986E-02 + 7.20912E-04 -1.23986E-02 7.20912E-04 -1.23986E-02 7.20912E-04 + 1.30830E+00 -9.36153E-04 2.36815E-05 -1.69308E-08 -1.25126E-02 + 7.24569E-04 -1.25126E-02 7.24569E-04 -1.25126E-02 7.24569E-04 + 1.30841E+00 -9.41204E-04 2.36848E-05 -1.70336E-08 -1.26292E-02 + 7.28305E-04 -1.26292E-02 7.28305E-04 -1.26292E-02 7.28305E-04 + 1.30851E+00 -9.44572E-04 2.36873E-05 -1.71106E-08 -1.27425E-02 + 7.31935E-04 -1.27425E-02 7.31935E-04 -1.27425E-02 7.31935E-04 + 1.30878E+00 -9.51307E-04 2.36906E-05 -1.72134E-08 -1.28599E-02 + 7.35684E-04 -1.28599E-02 7.35684E-04 -1.28599E-02 7.35684E-04 + 1.30894E+00 -9.56358E-04 2.36931E-05 -1.72905E-08 -1.29757E-02 + 7.39380E-04 -1.29757E-02 7.39380E-04 -1.29757E-02 7.39380E-04 + 1.30900E+00 -9.59725E-04 2.36947E-05 -1.73419E-08 -1.30956E-02 + 7.43195E-04 -1.30956E-02 7.43195E-04 -1.30956E-02 7.43195E-04 + 1.30927E+00 -9.66460E-04 2.36996E-05 -1.74960E-08 -1.32131E-02 + 7.46918E-04 -1.32131E-02 7.46918E-04 -1.32131E-02 7.46918E-04 + 1.30927E+00 -9.68144E-04 2.37013E-05 -1.75474E-08 -1.33326E-02 + 7.50706E-04 -1.33326E-02 7.50706E-04 -1.33326E-02 7.50706E-04 + 1.30948E+00 -9.74879E-04 2.37029E-05 -1.75988E-08 -1.34547E-02 + 7.54547E-04 -1.34547E-02 7.54547E-04 -1.34547E-02 7.54547E-04 + 1.30970E+00 -9.81614E-04 2.37095E-05 -1.78043E-08 -1.35751E-02 + 7.58349E-04 -1.35751E-02 7.58349E-04 -1.35751E-02 7.58349E-04 + 1.30981E+00 -9.84981E-04 2.37078E-05 -1.77529E-08 -1.36971E-02 + 7.62190E-04 -1.36971E-02 7.62190E-04 -1.36971E-02 7.62190E-04 + 1.30997E+00 -9.88349E-04 2.37128E-05 -1.79071E-08 -1.38217E-02 + 7.66096E-04 -1.38217E-02 7.66096E-04 -1.38217E-02 7.66096E-04 + 1.31013E+00 -9.95083E-04 2.37185E-05 -1.80869E-08 -1.39446E-02 + 7.69937E-04 -1.39446E-02 7.69937E-04 -1.39446E-02 7.69937E-04 + 1.31029E+00 -1.00013E-03 2.37185E-05 -1.81126E-08 -1.40709E-02 + 7.73871E-04 -1.40709E-02 7.73871E-04 -1.40709E-02 7.73871E-04 + 1.31049E+00 -1.00513E-03 2.37222E-05 -1.81887E-08 -1.41964E-02 + 7.77788E-04 -1.41964E-02 7.77788E-04 -1.41964E-02 7.77788E-04 + 1.31061E+00 -1.01024E-03 2.37226E-05 -1.82154E-08 -1.43231E-02 + 7.81724E-04 -1.43231E-02 7.81724E-04 -1.43231E-02 7.81724E-04 + 1.31061E+00 -1.01024E-03 2.37226E-05 -1.82154E-08 -1.43231E-02 + 7.81724E-04 -1.43231E-02 7.81724E-04 -1.43231E-02 7.81724E-04 Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/EGSDAT3_.15 =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/EGSDAT3_.15 (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/EGSDAT3_.15 (revision 1444) @@ -0,0 +1,2621 @@ + MEDIUM=AIR-NTP ,STERNCID=AIR-NTP + MIXT,RHO= 1.2250E-09,NE= 4,GASP= 1.0000E-06 + ASYM=N ,Z= 7.,A= 14.007,PZ= 5.39228E-02,RHOZ= 7.55280E-01 + ASYM=O ,Z= 8.,A= 15.999,PZ= 1.44793E-02,RHOZ= 2.31660E-01 + ASYM=AR,Z=18.,A= 39.948,PZ= 3.20917E-04,RHOZ= 1.28200E-02 + ASYM=C ,Z= 6.,A= 12.011,PZ= 3.33024E-06,RHOZ= 4.00000E-05 + 2.98933E+10 6.62000E-01 1.50000E-01 1.00000E+14 1.00000E+14 + 0 500 0 500 0 0 0 0 0 + 9.99982E-01 -2.10419E-01 4.82862E-02 9.95879E-01 -2.25858E-01 + 9.52000E-01 1.00022E+00 -1.78214E-01 3.43565E-02 1.01413E+00 + -2.29996E-01 9.52000E-01 1.00034E+00 -1.61665E-01 2.48128E-02 + 1.02350E+00 -2.32123E-01 9.52000E-01 9.99982E-01 -2.10592E-01 + 4.83260E-02 9.95876E-01 -2.26044E-01 9.52000E-01 1.00022E+00 + -1.78364E-01 3.43853E-02 1.01414E+00 -2.30189E-01 9.52000E-01 + 1.00034E+00 -1.61802E-01 2.48338E-02 1.02352E+00 -2.32319E-01 + 9.52000E-01 + 3.56389E+01 9.41131E-01 8.53760E-01 2.28015E+00 9.41145E-01 + 8.53757E-01 2.27175E+00 + 9.00118E-02 7.50905E-05 2.66396E+05 4.89667E+00 + 3.04413E+01 1.45662E+01 + 1.02493E+00 5.40255E-01 3.89554E+01 1.83972E+01 -2.54038E+00 + -5.65908E+01 -1.48116E+01 -6.44998E+01 1.00000E+00 0.00000E+00 + 2.31632E-01 1.22070E-01 8.80966E+00 4.65945E+00 3.03744E-03 + 6.95750E-04 1.02493E+00 5.40255E-01 3.89554E+01 1.83972E+01 + -2.54038E+00 -5.65908E+01 -1.48116E+01 -6.44998E+01 1.00000E+00 + 0.00000E+00 2.31632E-01 1.22070E-01 8.80966E+00 4.65945E+00 + 3.03744E-03 6.95750E-04 1.01522E+00 5.35096E-01 3.55757E+01 + 1.66032E+01 1.28023E+00 -5.45628E+01 -1.03012E+01 -6.21052E+01 + 1.00000E+00 0.00000E+00 1.77509E-01 9.33411E-02 6.16054E+00 + 3.25326E+00 3.09771E-03 7.27731E-04 1.00057E+00 5.27026E-01 + 3.03920E+01 1.37475E+01 7.75008E+00 -5.09986E+01 -2.70672E+00 + -5.79214E+01 1.00000E+00 0.00000E+00 1.26439E-01 6.52075E-02 + 3.61235E+00 1.84949E+00 3.21040E-03 7.89815E-04 9.89917E-01 + 5.20929E-01 2.63143E+01 1.14129E+01 1.36554E+01 -4.76176E+01 + 4.17031E+00 -5.39841E+01 1.00000E+00 0.00000E+00 1.04635E-01 + 5.27235E-02 2.47004E+00 1.19547E+00 3.32916E-03 8.57807E-04 + 9.83139E-01 5.16889E-01 2.31294E+01 9.51480E+00 1.90319E+01 + -4.44134E+01 1.03843E+01 -5.02807E+01 1.00000E+00 0.00000E+00 + 9.40957E-02 4.64425E-02 1.87335E+00 8.39859E-01 3.45423E-03 + 9.32345E-04 9.80075E-01 5.14985E-01 2.06617E+01 7.98141E+00 + 2.39230E+01 -4.13741E+01 1.59942E+01 -4.67949E+01 1.00000E+00 + 0.00000E+00 8.87076E-02 4.30944E-02 1.53006E+00 6.26541E-01 + 3.58583E-03 1.01412E-03 9.80531E-01 5.15281E-01 1.87670E+01 + 6.75155E+00 2.83643E+01 -3.84912E+01 2.10494E+01 -4.35137E+01 + 1.00000E+00 0.00000E+00 8.59422E-02 4.12994E-02 1.31916E+00 + 4.89656E-01 3.72425E-03 1.10396E-03 9.84287E-01 5.17832E-01 + 1.73273E+01 5.77350E+00 3.23887E+01 -3.57573E+01 2.55962E+01 + -4.04247E+01 1.00000E+00 0.00000E+00 8.46077E-02 4.03928E-02 + 1.18343E+00 3.97444E-01 3.86962E-03 1.20272E-03 9.91102E-01 + 5.22689E-01 1.62471E+01 5.00376E+00 3.60278E+01 -3.31641E+01 + 2.96767E+01 -3.75170E+01 1.00000E+00 0.00000E+00 8.40892E-02 + 4.00233E-02 1.09303E+00 3.33024E-01 4.02216E-03 1.31142E-03 + 1.00070E+00 5.29877E-01 1.54482E+01 4.40521E+00 3.93121E+01 + -3.07035E+01 3.33325E+01 -3.47779E+01 1.00000E+00 0.00000E+00 + 8.40478E-02 3.99923E-02 1.03121E+00 2.86711E-01 4.18199E-03 + 1.43117E-03 1.01277E+00 5.39413E-01 1.48680E+01 3.94693E+00 + 4.22675E+01 -2.83691E+01 3.65982E+01 -3.21984E+01 1.00000E+00 + 0.00000E+00 8.42873E-02 4.01814E-02 9.88057E-01 2.52622E-01 + 4.34916E-03 1.56322E-03 3.94372E+01 3.26298E+01 1.44561E+01 + 3.60289E+00 3.89144E+01 -3.11694E+01 3.95076E+01 -2.97687E+01 + -1.37335E+01 -1.23048E+01 8.46913E-02 4.05189E-02 9.57394E-01 + 2.27014E-01 4.52371E-03 1.70899E-03 3.23822E+01 2.63794E+01 + 1.41719E+01 3.35115E+00 4.20239E+01 -2.84145E+01 4.20913E+01 + -2.74796E+01 -7.46577E-01 -7.98976E-01 8.51884E-02 4.09593E-02 + 9.35252E-01 2.07398E-01 4.70552E-03 1.87007E-03 2.76449E+01 + 2.19106E+01 1.39839E+01 3.17377E+00 4.46071E+01 -2.59777E+01 + 4.43769E+01 -2.53235E+01 -1.89181E-01 -2.73168E-01 8.57330E-02 + 4.14731E-02 9.19007E-01 1.92073E-01 4.89441E-03 2.04826E-03 + 2.43835E+01 1.86210E+01 1.38666E+01 3.05545E+00 4.67859E+01 + -2.37800E+01 4.63913E+01 -2.32917E+01 -4.49652E-02 -1.27705E-01 + 8.62964E-02 4.20413E-02 9.06888E-01 1.79849E-01 5.09000E-03 + 2.24553E-03 2.20871E+01 1.61324E+01 1.38005E+01 2.98383E+00 + 4.86404E+01 -2.17704E+01 4.81571E+01 -2.13781E+01 1.13400E-02 + -6.66874E-02 8.68586E-02 4.26505E-02 8.97690E-01 1.69881E-01 + 5.29177E-03 2.46420E-03 2.04373E+01 1.42008E+01 1.37703E+01 + 2.94844E+00 5.02250E+01 -1.99150E+01 4.96972E+01 -1.95750E+01 + 3.83649E-02 -3.50467E-02 8.74057E-02 4.32911E-02 8.90574E-01 + 1.61550E-01 5.49898E-03 2.70679E-03 1.92318E+01 1.26661E+01 + 1.37644E+01 2.94099E+00 5.15787E+01 -1.81917E+01 5.10311E+01 + -1.78768E+01 5.31103E-02 -1.62739E-02 8.79257E-02 4.39532E-02 + 8.84972E-01 1.54418E-01 5.71057E-03 2.97617E-03 1.83387E+01 + 1.14202E+01 1.37740E+01 2.95440E+00 5.27322E+01 -1.65825E+01 + 5.21774E+01 -1.62776E+01 6.19049E-02 -4.00496E-03 8.84104E-02 + 4.46293E-02 8.80475E-01 1.48144E-01 5.92523E-03 3.27564E-03 + 1.76703E+01 1.03889E+01 1.37925E+01 2.98297E+00 5.37083E+01 + -1.50766E+01 5.31532E+01 -1.47721E+01 6.75035E-02 4.63267E-03 + 8.88523E-02 4.53110E-02 8.76814E-01 1.42496E-01 6.14117E-03 + 3.60879E-03 1.71670E+01 9.52040E+00 1.38153E+01 3.02223E+00 + 5.45272E+01 -1.36634E+01 5.39745E+01 -1.33549E+01 7.12433E-02 + 1.10861E-02 8.92441E-02 4.59871E-02 8.73803E-01 1.37301E-01 + 6.35619E-03 3.97983E-03 1.67875E+01 8.77759E+00 1.38388E+01 + 3.06831E+00 5.52050E+01 -1.23366E+01 5.46555E+01 -1.20218E+01 + 7.38278E-02 1.61451E-02 8.95816E-02 4.66477E-02 8.71312E-01 + 1.32423E-01 6.56747E-03 4.39341E-03 1.65029E+01 8.13387E+00 + 1.38609E+01 3.11821E+00 5.57564E+01 -1.10897E+01 5.52098E+01 + -1.07685E+01 7.56493E-02 2.02642E-02 8.98611E-02 4.72798E-02 + 8.69257E-01 1.27776E-01 6.77150E-03 4.85480E-03 1.62920E+01 + 7.56935E+00 1.38801E+01 3.16959E+00 5.61944E+01 -9.91712E+00 + 5.56499E+01 -9.59018E+00 7.69397E-02 2.37187E-02 9.00810E-02 + 4.78686E-02 8.67582E-01 1.23292E-01 6.96394E-03 5.36997E-03 + 1.61395E+01 7.06929E+00 1.38956E+01 3.22036E+00 5.65303E+01 + -8.81559E+00 5.59872E+01 -8.48398E+00 7.78422E-02 2.66786E-02 + 9.02429E-02 4.83996E-02 8.66250E-01 1.18926E-01 7.13949E-03 + 5.94571E-03 1.60340E+01 6.62255E+00 1.39070E+01 3.26896E+00 + 5.67749E+01 -7.78014E+00 5.62325E+01 -7.44569E+00 7.84497E-02 + 2.92499E-02 9.03508E-02 4.88562E-02 8.65240E-01 1.14649E-01 + 7.29161E-03 6.58962E-03 1.59665E+01 6.21974E+00 1.39146E+01 + 3.31387E+00 5.69378E+01 -6.80802E+00 5.63956E+01 -6.47240E+00 + 7.88271E-02 3.15017E-02 9.04120E-02 4.92213E-02 8.64534E-01 + 1.10436E-01 7.41240E-03 7.31034E-03 1.59303E+01 5.85445E+00 + 1.39186E+01 3.35438E+00 5.70281E+01 -5.89573E+00 5.64859E+01 + -5.56045E+00 7.90220E-02 3.34722E-02 9.04370E-02 4.94744E-02 + 8.64123E-01 1.06280E-01 7.49229E-03 8.11771E-03 1.59199E+01 + 5.51166E+00 1.39194E+01 3.38024E+00 5.70540E+01 -5.04191E+00 + 5.65117E+01 -4.70852E+00 7.90584E-02 3.46737E-02 9.04232E-02 + 4.90180E-02 8.63996E-01 1.02090E-01 7.51971E-03 9.02275E-03 + 1.59330E+01 5.17184E+00 1.39195E+01 3.37580E+00 5.70234E+01 + -4.24556E+00 5.64812E+01 -3.91555E+00 7.90712E-02 3.43411E-02 + 9.05030E-02 4.69385E-02 8.64162E-01 9.77515E-02 7.48076E-03 + 1.00380E-02 1.59642E+01 4.87955E+00 1.39181E+01 3.38899E+00 + 5.69433E+01 -3.49680E+00 5.64016E+01 -3.17141E+00 7.89765E-02 + 3.52262E-02 9.05668E-02 4.63418E-02 8.64594E-01 9.37192E-02 + 7.35880E-03 1.11777E-02 1.60123E+01 4.60578E+00 1.39174E+01 + 3.39333E+00 5.68204E+01 -2.79723E+00 5.62797E+01 -2.47756E+00 + 7.88725E-02 3.58181E-02 9.07126E-02 4.55120E-02 8.65292E-01 + 8.97410E-02 7.13391E-03 1.24580E-02 1.60755E+01 4.34720E+00 + 1.39187E+01 3.38804E+00 5.66609E+01 -2.14439E+00 5.61219E+01 + -1.83133E+00 7.88029E-02 3.61030E-02 9.09789E-02 4.44221E-02 + 8.66251E-01 8.58150E-02 6.78233E-03 1.38971E-02 1.61525E+01 + 4.10127E+00 1.39236E+01 3.37230E+00 5.64705E+01 -1.53606E+00 + 5.59338E+01 -1.23061E+00 7.88149E-02 3.60647E-02 9.14082E-02 + 4.30504E-02 8.67460E-01 8.19540E-02 6.27576E-03 1.55157E-02 + 1.62267E+01 3.90669E+00 1.39180E+01 3.38693E+00 5.62526E+01 + -9.64955E-01 5.57190E+01 -6.67734E-01 7.81668E-02 3.77630E-02 + 9.11412E-02 4.37500E-02 8.68811E-01 7.84146E-02 5.58062E-03 + 1.73372E-02 1.62858E+01 3.77552E+00 1.38917E+01 3.44543E+00 + 5.60109E+01 -4.28300E-01 5.54813E+01 -1.39636E-01 7.63747E-02 + 4.17430E-02 8.96179E-02 4.71330E-02 8.70248E-01 7.52219E-02 + 4.65706E-03 1.93883E-02 1.63883E+01 3.57790E+00 1.39053E+01 + 3.41920E+00 5.57569E+01 6.11777E-02 5.52320E+01 3.40617E-01 + 7.64511E-02 4.15957E-02 9.02779E-02 4.58610E-02 8.72123E-01 + 7.16093E-02 3.45791E-03 2.16992E-02 1.65016E+01 3.38512E+00 + 1.39276E+01 3.38112E+00 5.54902E+01 5.15039E-01 5.49710E+01 + 7.84922E-01 7.67673E-02 4.10577E-02 9.12456E-02 4.42143E-02 + 8.74200E-01 6.80750E-02 1.92728E-03 2.43042E-02 1.66187E+01 + 3.20666E+00 1.39536E+01 3.34155E+00 5.52136E+01 9.36614E-01 + 5.47007E+01 1.19683E+00 7.70398E-02 4.06424E-02 9.21849E-02 + 4.27828E-02 8.76428E-01 6.46775E-02 -5.56199E-07 2.72420E-02 + 1.66921E+01 3.10548E+00 1.39368E+01 3.36466E+00 5.49268E+01 + 1.33241E+00 5.44208E+01 1.58290E+00 7.51096E-02 4.33051E-02 + 9.06442E-02 4.49084E-02 8.78592E-01 6.16934E-02 -2.40348E-03 + 3.05569E-02 1.68228E+01 2.94073E+00 1.39798E+01 3.31060E+00 + 5.46420E+01 1.69114E+00 5.41441E+01 1.93168E+00 7.57926E-02 + 4.24444E-02 9.20805E-02 4.30983E-02 8.81147E-01 5.84741E-02 + -5.37282E-03 3.42988E-02 1.69628E+01 2.77831E+00 1.40353E+01 + 3.24623E+00 5.43574E+01 2.02136E+00 5.38679E+01 2.25196E+00 + 7.68075E-02 4.12674E-02 9.38842E-02 4.10063E-02 8.83832E-01 + 5.53598E-02 -9.01647E-03 3.85249E-02 1.69282E+01 2.81555E+00 + 1.39204E+01 3.36962E+00 5.40583E+01 2.34254E+00 5.35782E+01 + 2.56319E+00 6.99506E-02 4.86337E-02 8.68500E-02 4.85632E-02 + 8.85974E-01 5.30584E-02 -1.34608E-02 4.32994E-02 1.70315E+01 + 2.71216E+00 1.39485E+01 3.34149E+00 5.37760E+01 2.62497E+00 + 5.33055E+01 2.83607E+00 6.94644E-02 4.91202E-02 8.70023E-02 + 4.84109E-02 8.88770E-01 5.02617E-02 -1.88547E-02 4.86961E-02 + 1.71622E+01 2.58977E+00 1.40098E+01 3.28409E+00 5.35005E+01 + 2.88291E+00 5.30404E+01 3.08428E+00 7.02338E-02 4.83999E-02 + 8.85427E-02 4.69688E-02 8.91722E-01 4.74982E-02 -2.53723E-02 + 5.47979E-02 1.72988E+01 2.46968E+00 1.40831E+01 3.21962E+00 + 5.32322E+01 3.11896E+00 5.27826E+01 3.31100E+00 7.12981E-02 + 4.74638E-02 9.03799E-02 4.53525E-02 8.94731E-01 4.48494E-02 + -3.32184E-02 6.16999E-02 1.74438E+01 2.34931E+00 1.41719E+01 + 3.14593E+00 5.29717E+01 3.33510E+00 5.25333E+01 3.51786E+00 + 7.27829E-02 4.62319E-02 9.26389E-02 4.34786E-02 8.97789E-01 + 4.23141E-02 -4.26324E-02 6.95095E-02 1.73529E+01 2.42066E+00 + 1.40315E+01 3.25614E+00 5.27021E+01 3.54675E+00 5.22749E+01 + 3.72062E+00 6.44164E-02 5.27986E-02 8.40265E-02 5.02382E-02 + 9.00270E-01 4.03658E-02 -5.38944E-02 7.83487E-02 1.74752E+01 + 2.32962E+00 1.41117E+01 3.19647E+00 5.24578E+01 3.72862E+00 + 5.20425E+01 3.89376E+00 6.53180E-02 5.21270E-02 8.56309E-02 + 4.90431E-02 9.03363E-01 3.80633E-02 -6.73334E-02 8.83574E-02 + 1.76033E+01 2.23882E+00 1.42053E+01 3.13012E+00 5.22240E+01 + 3.89431E+00 5.18207E+01 4.05090E+00 6.65869E-02 5.12280E-02 + 8.75866E-02 4.76577E-02 9.06459E-01 3.58693E-02 -8.33320E-02 + 9.96925E-02 1.77373E+01 2.14828E+00 1.43119E+01 3.05806E+00 + 5.20002E+01 4.04547E+00 5.16087E+01 4.19411E+00 6.82022E-02 + 5.01366E-02 8.98629E-02 4.61196E-02 9.09548E-01 3.37823E-02 + -1.02338E-01 1.12534E-01 1.78773E+01 2.05790E+00 1.44324E+01 + 2.98029E+00 5.17869E+01 4.18326E+00 5.14075E+01 4.32395E+00 + 7.01741E-02 4.88634E-02 9.24598E-02 4.44427E-02 9.12607E-01 + 3.18061E-02 -1.24876E-01 1.27087E-01 1.76841E+01 2.17737E+00 + 1.42269E+01 3.10734E+00 5.15631E+01 4.32161E+00 5.11961E+01 + 4.45469E+00 5.90326E-02 5.57520E-02 8.08536E-02 5.16187E-02 + 9.15047E-01 3.02980E-02 -1.51555E-01 1.43582E-01 1.76925E+01 + 2.17234E+00 1.42303E+01 3.10529E+00 5.13637E+01 4.43987E+00 + 5.10088E+01 4.56578E+00 5.63624E-02 5.73359E-02 7.84320E-02 + 5.30551E-02 9.17882E-01 2.86164E-02 -1.83086E-01 1.62284E-01 + 1.77854E+01 2.11944E+00 1.43253E+01 3.05119E+00 5.11798E+01 + 4.54471E+00 5.08372E+01 4.66362E+00 5.72404E-02 5.68356E-02 + 7.97896E-02 5.22814E-02 9.20826E-01 2.69398E-02 -2.20303E-01 + 1.83494E-01 1.78782E+01 2.06854E+00 1.44270E+01 2.99540E+00 + 5.10060E+01 4.64000E+00 5.06755E+01 4.75230E+00 5.82905E-02 + 5.62595E-02 8.12716E-02 5.14687E-02 9.23714E-01 2.53561E-02 + -2.64169E-01 2.07553E-01 1.79726E+01 2.01864E+00 1.45367E+01 + 2.93745E+00 5.08424E+01 4.72646E+00 5.05239E+01 4.83243E+00 + 5.95442E-02 5.55968E-02 8.29104E-02 5.06025E-02 9.26539E-01 + 2.38619E-02 -3.15814E-01 2.34849E-01 1.80682E+01 1.96991E+00 + 1.46540E+01 2.87763E+00 5.06884E+01 4.80503E+00 5.03819E+01 + 4.90489E+00 6.10054E-02 5.48517E-02 8.47028E-02 4.96882E-02 + 9.29298E-01 2.24546E-02 -3.76546E-01 2.65825E-01 1.81647E+01 + 1.92232E+00 1.47779E+01 2.81654E+00 5.05433E+01 4.87655E+00 + 5.02481E+01 4.97079E+00 6.26402E-02 5.40460E-02 8.66176E-02 + 4.87447E-02 9.31989E-01 2.11279E-02 -4.47894E-01 3.00985E-01 + 1.82634E+01 1.87527E+00 1.49096E+01 2.75374E+00 5.04075E+01 + 4.94126E+00 5.01243E+01 5.02983E+00 6.45012E-02 5.31588E-02 + 8.87050E-02 4.77496E-02 9.34616E-01 1.98779E-02 -5.31633E-01 + 3.40900E-01 1.83646E+01 1.82855E+00 1.50487E+01 2.68954E+00 + 5.02800E+01 5.00012E+00 5.00081E+01 5.08347E+00 6.65680E-02 + 5.22050E-02 9.09487E-02 4.67142E-02 9.37155E-01 1.87030E-02 + -6.29824E-01 3.86221E-01 1.84683E+01 1.78216E+00 1.51954E+01 + 2.62395E+00 5.01615E+01 5.05313E+00 4.99001E+01 5.13170E+00 + 6.88527E-02 5.11829E-02 9.33532E-02 4.56382E-02 9.39631E-01 + 1.75969E-02 -7.44873E-01 4.37692E-01 1.82888E+01 1.86009E+00 + 1.50630E+01 2.68140E+00 5.00364E+01 5.10742E+00 4.97863E+01 + 5.18110E+00 6.11282E-02 5.45357E-02 8.52420E-02 4.91590E-02 + 9.41774E-01 1.66662E-02 -8.79562E-01 4.96154E-01 1.82297E+01 + 1.88498E+00 1.50548E+01 2.68485E+00 4.99259E+01 5.15399E+00 + 4.96863E+01 5.22333E+00 5.80695E-02 5.58247E-02 8.20144E-02 + 5.05193E-02 9.43990E-01 1.57320E-02 -1.03714E+00 5.62569E-01 + 1.82869E+01 1.86156E+00 1.51667E+01 2.63900E+00 4.98277E+01 + 5.19422E+00 4.95981E+01 5.25945E+00 5.93332E-02 5.53071E-02 + 8.32616E-02 5.00086E-02 9.46240E-01 1.48117E-02 -1.22135E+00 + 6.38031E-01 1.83429E+01 1.83928E+00 1.52803E+01 2.59375E+00 + 4.97363E+01 5.23061E+00 4.95167E+01 5.29184E+00 6.06880E-02 + 5.47675E-02 8.45569E-02 4.94924E-02 9.48414E-01 1.39452E-02 + -1.43657E+00 7.23783E-01 1.83973E+01 1.81816E+00 1.53953E+01 + 2.54915E+00 4.96503E+01 5.26401E+00 4.94403E+01 5.32146E+00 + 6.21041E-02 5.42183E-02 8.58688E-02 4.89837E-02 9.50515E-01 + 1.31300E-02 -1.68788E+00 8.21244E-01 1.84503E+01 1.79816E+00 + 1.55114E+01 2.50529E+00 4.95707E+01 5.29401E+00 4.93702E+01 + 5.34797E+00 6.35809E-02 5.36603E-02 8.71998E-02 4.84810E-02 + 9.52537E-01 1.23659E-02 -1.98113E+00 9.32026E-01 1.85010E+01 + 1.77944E+00 1.56272E+01 2.46268E+00 4.94964E+01 5.32144E+00 + 4.93050E+01 5.37201E+00 6.50973E-02 5.31020E-02 8.85340E-02 + 4.79897E-02 9.54491E-01 1.16463E-02 -2.32316E+00 1.05797E+00 + 1.85508E+01 1.76157E+00 1.57438E+01 2.42077E+00 4.94267E+01 + 5.34641E+00 4.92444E+01 5.39375E+00 6.66822E-02 5.25329E-02 + 8.98973E-02 4.75001E-02 9.56378E-01 1.09699E-02 -2.72187E+00 + 1.20116E+00 1.85998E+01 1.74440E+00 1.58611E+01 2.37968E+00 + 4.93627E+01 5.36886E+00 4.91887E+01 5.41331E+00 6.83205E-02 + 5.19586E-02 9.12830E-02 4.70143E-02 9.58187E-01 1.03343E-02 + -3.18643E+00 1.36399E+00 1.86474E+01 1.72815E+00 1.59779E+01 + 2.33970E+00 4.93025E+01 5.38953E+00 4.91364E+01 5.43120E+00 + 7.00083E-02 5.13810E-02 9.26851E-02 4.65344E-02 9.59937E-01 + 9.73613E-03 -3.72746E+00 1.54916E+00 1.86942E+01 1.71248E+00 + 1.60948E+01 2.30061E+00 4.92462E+01 5.40831E+00 4.90878E+01 + 5.44743E+00 7.17369E-02 5.08028E-02 9.41038E-02 4.60600E-02 + 9.61618E-01 9.17440E-03 -4.35728E+00 1.75977E+00 1.87395E+01 + 1.69767E+00 1.62113E+01 2.26255E+00 4.91944E+01 5.42520E+00 + 4.90435E+01 5.46187E+00 7.35115E-02 5.02228E-02 9.55363E-02 + 4.55918E-02 9.63236E-01 8.64392E-03 -5.09014E+00 1.99934E+00 + 1.87838E+01 1.68350E+00 1.63265E+01 2.22571E+00 4.91462E+01 + 5.44065E+00 4.90026E+01 5.47499E+00 7.53079E-02 4.96483E-02 + 9.69724E-02 4.51325E-02 9.64792E-01 8.14730E-03 -5.94255E+00 + 2.27188E+00 1.88271E+01 1.66998E+00 1.64410E+01 2.18986E+00 + 4.91003E+01 5.45502E+00 4.89641E+01 5.48703E+00 7.71343E-02 + 4.90769E-02 9.84143E-02 4.46816E-02 9.66289E-01 7.67939E-03 + -6.93368E+00 2.58196E+00 1.88692E+01 1.65708E+00 1.65541E+01 + 2.15522E+00 4.90586E+01 5.46776E+00 4.89288E+01 5.49777E+00 + 7.89865E-02 4.85096E-02 9.98661E-02 4.42367E-02 9.67730E-01 + 7.23742E-03 -8.08561E+00 2.93477E+00 1.89103E+01 1.64474E+00 + 1.66663E+01 2.12158E+00 4.90193E+01 5.47955E+00 4.88959E+01 + 5.50766E+00 8.08575E-02 4.79483E-02 1.01317E-01 4.38015E-02 + 9.69112E-01 6.82241E-03 -9.42401E+00 3.33625E+00 1.89500E+01 + 1.63307E+00 1.67764E+01 2.08921E+00 4.89835E+01 5.49010E+00 + 4.88657E+01 5.51655E+00 8.27346E-02 4.73968E-02 1.02761E-01 + 4.33772E-02 9.70443E-01 6.43172E-03 -1.09786E+01 3.79317E+00 + 1.89888E+01 1.62188E+00 1.68850E+01 2.05790E+00 4.89484E+01 + 5.50022E+00 4.88368E+01 5.52489E+00 8.46316E-02 4.68500E-02 + 1.04213E-01 4.29587E-02 9.71717E-01 6.06446E-03 -1.27835E+01 + 4.31318E+00 1.90279E+01 1.61085E+00 1.69932E+01 2.02737E+00 + 4.89166E+01 5.50922E+00 4.88113E+01 5.53211E+00 8.65712E-02 + 4.63022E-02 1.05697E-01 4.25394E-02 9.72947E-01 5.71805E-03 + -1.48786E+01 4.90509E+00 1.90664E+01 1.60015E+00 1.70992E+01 + 1.99794E+00 4.88879E+01 5.51711E+00 4.87873E+01 5.53878E+00 + 8.85195E-02 4.57622E-02 1.07190E-01 4.21257E-02 9.74127E-01 + 5.38986E-03 -1.73099E+01 5.57889E+00 1.91021E+01 1.59045E+00 + 1.72030E+01 1.96977E+00 4.88599E+01 5.52478E+00 4.87648E+01 + 5.54489E+00 9.04538E-02 4.52360E-02 1.08649E-01 4.17289E-02 + 9.75256E-01 5.08338E-03 -2.01303E+01 6.34594E+00 1.91373E+01 + 1.58106E+00 1.73037E+01 1.94285E+00 4.88342E+01 5.53155E+00 + 4.87439E+01 5.55045E+00 9.23665E-02 4.47255E-02 1.10088E-01 + 4.13447E-02 9.76343E-01 4.79340E-03 -2.34013E+01 7.21925E+00 + 1.91726E+01 1.57182E+00 1.74037E+01 1.91664E+00 4.88100E+01 + 5.53793E+00 4.87242E+01 5.55560E+00 9.43284E-02 4.42114E-02 + 1.11576E-01 4.09547E-02 9.77388E-01 4.51908E-03 -2.71940E+01 + 8.21359E+00 1.95027E+01 1.48677E+00 1.77975E+01 1.81522E+00 + 4.87959E+01 5.54156E+00 4.87150E+01 5.55800E+00 1.04797E-01 + 4.15153E-02 1.21656E-01 3.83589E-02 9.78441E-01 4.24816E-03 + -3.15902E+01 9.34581E+00 1.92390E+01 1.55353E+00 1.75960E+01 + 1.86623E+00 4.87670E+01 5.54889E+00 4.86897E+01 5.56434E+00 + 9.81201E-02 4.32048E-02 1.14404E-01 4.01935E-02 9.79347E-01 + 4.01895E-03 -3.66850E+01 1.06351E+01 1.92724E+01 1.54522E+00 + 1.76900E+01 1.84283E+00 4.87470E+01 5.55389E+00 4.86737E+01 + 5.56834E+00 1.00067E-01 4.27204E-02 1.15879E-01 3.98271E-02 + 9.80260E-01 3.79148E-03 -4.25879E+01 1.21034E+01 1.93040E+01 + 1.53750E+00 1.77812E+01 1.82052E+00 4.87288E+01 5.55834E+00 + 4.86599E+01 5.57178E+00 1.02020E-01 4.22424E-02 1.17353E-01 + 3.94663E-02 9.81156E-01 3.57356E-03 -4.94257E+01 1.37758E+01 + 1.93357E+01 1.52986E+00 1.78708E+01 1.79899E+00 4.87123E+01 + 5.56234E+00 4.86461E+01 5.57501E+00 1.03965E-01 4.17753E-02 + 1.18830E-01 3.91112E-02 9.81997E-01 3.37040E-03 -5.73444E+01 + 1.56804E+01 1.93662E+01 1.52264E+00 1.79579E+01 1.77838E+00 + 4.86959E+01 5.56623E+00 4.86337E+01 5.57801E+00 1.05903E-01 + 4.13165E-02 1.20299E-01 3.87635E-02 9.82802E-01 3.17939E-03 + -5.73584E+01 1.56838E+01 1.93964E+01 1.51559E+00 1.80426E+01 + 1.75864E+00 4.86816E+01 5.56960E+00 4.86220E+01 5.58071E+00 + 1.07836E-01 4.08662E-02 1.21775E-01 3.84200E-02 9.83587E-01 + 2.99709E-03 9.99999E+00 0.00000E+00 1.94257E+01 1.50891E+00 + 1.81256E+01 1.73962E+00 4.86666E+01 5.57290E+00 4.86119E+01 + 5.58312E+00 1.09758E-01 4.04257E-02 1.23239E-01 3.80846E-02 + 9.84344E-01 2.82429E-03 9.99997E+00 0.00000E+00 1.94548E+01 + 1.50233E+00 1.82062E+01 1.72145E+00 4.86537E+01 5.57590E+00 + 4.86008E+01 5.58556E+00 1.11685E-01 3.99912E-02 1.24719E-01 + 3.77503E-02 9.85046E-01 2.66541E-03 1.00000E+01 0.00000E+00 + 1.94821E+01 1.49627E+00 1.82840E+01 1.70417E+00 4.86417E+01 + 5.57856E+00 4.85923E+01 5.58745E+00 1.13576E-01 3.95709E-02 + 1.26165E-01 3.74295E-02 9.85740E-01 2.51087E-03 1.00000E+01 + 0.00000E+00 1.95111E+01 1.48994E+00 1.83613E+01 1.68722E+00 + 4.86306E+01 5.58101E+00 4.85830E+01 5.58945E+00 1.15500E-01 + 3.91499E-02 1.27662E-01 3.71017E-02 9.86386E-01 2.36848E-03 + 9.99997E+00 0.00000E+00 1.95359E+01 1.48457E+00 1.84337E+01 + 1.67164E+00 4.86199E+01 5.58323E+00 4.85754E+01 5.59112E+00 + 1.17341E-01 3.87531E-02 1.29072E-01 3.67979E-02 9.87018E-01 + 2.23304E-03 9.99997E+00 0.00000E+00 1.95625E+01 1.47891E+00 + 1.85059E+01 1.65630E+00 4.86088E+01 5.58568E+00 4.85670E+01 + 5.59290E+00 1.19233E-01 3.83511E-02 1.30544E-01 3.64845E-02 + 9.87616E-01 2.10541E-03 1.00000E+01 0.00000E+00 1.95882E+01 + 1.47354E+00 1.85752E+01 1.64177E+00 4.86003E+01 5.58745E+00 + 4.85603E+01 5.59434E+00 1.21095E-01 3.79608E-02 1.32010E-01 + 3.61780E-02 9.88199E-01 1.98387E-03 1.00000E+01 0.00000E+00 + 1.96129E+01 1.46843E+00 1.86431E+01 1.62774E+00 4.85905E+01 + 5.58934E+00 4.85537E+01 5.59568E+00 1.22942E-01 3.75797E-02 + 1.33451E-01 3.58806E-02 9.88755E-01 1.86926E-03 9.99997E+00 + 0.00000E+00 1.96372E+01 1.46350E+00 1.87084E+01 1.61444E+00 + 4.85824E+01 5.59105E+00 4.85464E+01 5.59705E+00 1.24787E-01 + 3.72045E-02 1.34906E-01 3.55844E-02 9.89276E-01 1.76335E-03 + 9.99999E+00 0.00000E+00 1.96602E+01 1.45885E+00 1.87712E+01 + 1.60184E+00 4.85750E+01 5.59257E+00 4.85417E+01 5.59812E+00 + 1.26582E-01 3.68439E-02 1.36321E-01 3.53002E-02 9.89790E-01 + 1.66089E-03 1.00000E+01 0.00000E+00 1.96836E+01 1.45426E+00 + 1.88332E+01 1.58959E+00 4.85679E+01 5.59390E+00 4.85363E+01 + 5.59912E+00 1.28417E-01 3.64805E-02 1.37784E-01 3.50107E-02 + 9.90269E-01 1.56539E-03 9.99997E+00 0.00000E+00 1.97060E+01 + 1.44985E+00 1.88925E+01 1.57801E+00 4.85612E+01 5.59534E+00 + 4.85310E+01 5.60023E+00 1.30206E-01 3.61311E-02 1.39216E-01 + 3.47307E-02 9.90727E-01 1.47509E-03 1.00000E+01 0.00000E+00 + 1.97280E+01 1.44565E+00 1.89499E+01 1.56695E+00 4.85541E+01 + 5.59668E+00 4.85257E+01 5.60123E+00 1.31982E-01 3.57886E-02 + 1.40643E-01 3.44554E-02 9.91172E-01 1.39001E-03 9.99997E+00 + 0.00000E+00 1.97489E+01 1.44165E+00 1.90052E+01 1.55639E+00 + 4.85483E+01 5.59779E+00 4.85212E+01 5.60201E+00 1.33746E-01 + 3.54530E-02 1.42066E-01 3.41850E-02 9.91596E-01 1.30926E-03 + 1.00000E+01 0.00000E+00 1.97696E+01 1.43776E+00 1.90586E+01 + 1.54639E+00 4.85434E+01 5.59868E+00 4.85172E+01 5.60279E+00 + 1.35495E-01 3.51244E-02 1.43488E-01 3.39180E-02 9.91999E-01 + 1.23373E-03 9.99997E+00 0.00000E+00 1.97890E+01 1.43416E+00 + 1.91100E+01 1.53687E+00 4.85371E+01 5.59983E+00 4.85135E+01 + 5.60350E+00 1.37243E-01 3.48004E-02 1.44914E-01 3.36534E-02 + 9.92387E-01 1.16254E-03 9.99999E+00 0.00000E+00 1.98085E+01 + 1.43059E+00 1.91597E+01 1.52775E+00 4.85319E+01 5.60079E+00 + 4.85101E+01 5.60412E+00 1.38949E-01 3.44880E-02 1.46311E-01 + 3.33975E-02 9.92749E-01 1.09482E-03 1.00000E+01 0.00000E+00 + 1.98276E+01 1.42715E+00 1.92088E+01 1.51889E+00 4.85279E+01 + 5.60157E+00 4.85061E+01 5.60490E+00 1.40673E-01 3.41763E-02 + 1.47725E-01 3.31418E-02 9.93103E-01 1.03144E-03 1.00000E+01 + 0.00000E+00 1.98460E+01 1.42381E+00 1.92546E+01 1.51069E+00 + 4.85225E+01 5.60246E+00 4.85030E+01 5.60546E+00 1.42363E-01 + 3.38746E-02 1.49136E-01 3.28896E-02 9.93443E-01 9.70661E-04 + 9.99997E+00 0.00000E+00 1.98636E+01 1.42076E+00 1.92990E+01 + 1.50283E+00 4.85190E+01 5.60312E+00 4.85003E+01 5.60590E+00 + 1.44050E-01 3.35768E-02 1.50538E-01 3.26426E-02 9.93756E-01 + 9.15096E-04 9.99997E+00 0.00000E+00 1.98805E+01 1.41781E+00 + 1.93417E+01 1.49538E+00 4.85154E+01 5.60368E+00 4.84976E+01 + 5.60635E+00 1.45705E-01 3.32881E-02 1.51925E-01 3.24008E-02 + 9.94068E-01 8.61267E-04 1.00000E+01 0.00000E+00 1.98971E+01 + 1.41492E+00 1.93837E+01 1.48819E+00 4.85101E+01 5.60468E+00 + 4.84928E+01 5.60712E+00 1.47363E-01 3.30029E-02 1.53316E-01 + 3.21612E-02 9.94360E-01 8.10910E-04 1.00000E+01 0.00000E+00 + 1.99136E+01 1.41214E+00 1.94240E+01 1.48132E+00 4.85088E+01 + 5.60490E+00 4.84923E+01 5.60723E+00 1.49010E-01 3.27225E-02 + 1.54705E-01 3.19242E-02 9.94645E-01 7.63159E-04 9.99997E+00 + 0.00000E+00 1.99294E+01 1.40948E+00 1.94622E+01 1.47491E+00 + 4.85048E+01 5.60557E+00 4.84901E+01 5.60757E+00 1.50631E-01 + 3.24494E-02 1.56091E-01 3.16915E-02 9.94909E-01 7.18880E-04 + 9.99997E+00 0.00000E+00 1.99434E+01 1.40714E+00 1.94984E+01 + 1.46885E+00 4.85021E+01 5.60601E+00 4.84870E+01 5.60812E+00 + 1.52260E-01 3.21790E-02 1.57476E-01 3.14610E-02 9.95159E-01 + 6.76337E-04 1.00000E+01 0.00000E+00 1.99583E+01 1.40473E+00 + 1.95340E+01 1.46301E+00 4.84985E+01 5.60657E+00 4.84852E+01 + 5.60846E+00 1.53823E-01 3.19216E-02 1.58817E-01 3.12405E-02 + 9.95395E-01 6.37268E-04 1.00000E+01 0.00000E+00 1.99703E+01 + 1.40273E+00 1.95660E+01 1.45779E+00 4.84950E+01 5.60712E+00 + 4.84834E+01 5.60879E+00 1.55379E-01 3.16685E-02 1.60157E-01 + 3.10225E-02 9.95624E-01 5.99935E-04 9.99997E+00 0.00000E+00 + 1.99899E+01 1.39961E+00 1.96047E+01 1.45156E+00 4.84930E+01 + 5.60742E+00 4.84814E+01 5.60909E+00 1.57090E-01 3.13933E-02 + 1.61656E-01 3.07816E-02 9.95853E-01 5.63478E-04 1.00000E+01 + 0.00000E+00 1.99998E+01 1.39803E+00 1.96329E+01 1.44709E+00 + 4.84914E+01 5.60768E+00 4.84808E+01 5.60923E+00 1.58581E-01 + 3.11562E-02 1.62946E-01 3.05763E-02 9.96062E-01 5.30478E-04 + 1.00000E+01 0.00000E+00 2.00123E+01 1.39606E+00 1.96631E+01 + 1.44234E+00 4.84888E+01 5.60812E+00 4.84781E+01 5.60957E+00 + 1.60126E-01 3.09127E-02 1.64297E-01 3.03636E-02 9.96249E-01 + 5.00090E-04 1.00000E+01 0.00000E+00 2.00238E+01 1.39425E+00 + 1.96913E+01 1.43793E+00 4.84852E+01 5.60868E+00 4.84754E+01 + 5.60990E+00 1.61658E-01 3.06744E-02 1.65641E-01 3.01543E-02 + 9.96444E-01 4.69703E-04 9.99992E+00 0.00000E+00 2.00341E+01 + 1.39267E+00 1.97180E+01 1.43384E+00 4.84852E+01 5.60868E+00 + 4.84745E+01 5.61012E+00 1.63168E-01 3.04417E-02 1.66968E-01 + 2.99503E-02 9.96624E-01 4.42788E-04 1.00000E+01 0.00000E+00 + 2.00507E+01 1.39014E+00 1.97498E+01 1.42901E+00 4.84816E+01 + 5.60923E+00 4.84736E+01 5.61024E+00 1.64773E-01 3.01973E-02 + 1.68402E-01 2.97315E-02 9.96798E-01 4.15874E-04 1.00000E+01 + 0.00000E+00 2.00585E+01 1.38895E+00 1.97718E+01 1.42567E+00 + 4.84816E+01 5.60923E+00 4.84736E+01 5.61035E+00 1.66221E-01 + 2.99785E-02 1.69690E-01 2.95366E-02 9.96965E-01 3.90696E-04 + 9.99992E+00 0.00000E+00 2.00692E+01 1.38736E+00 1.97967E+01 + 1.42195E+00 4.84799E+01 5.60957E+00 4.84719E+01 5.61057E+00 + 1.67728E-01 2.97536E-02 1.71031E-01 2.93365E-02 9.97118E-01 + 3.68122E-04 1.00000E+01 0.00000E+00 2.00796E+01 1.38583E+00 + 1.98207E+01 1.41842E+00 4.84763E+01 5.61001E+00 4.84692E+01 + 5.61090E+00 1.69215E-01 2.95340E-02 1.72371E-01 2.91389E-02 + 9.97263E-01 3.46417E-04 1.00000E+01 0.00000E+00 2.00872E+01 + 1.38469E+00 1.98409E+01 1.41545E+00 4.84772E+01 5.61001E+00 + 4.84692E+01 5.61090E+00 1.70649E-01 2.93243E-02 1.73653E-01 + 2.89514E-02 9.97409E-01 3.25580E-04 1.00000E+01 0.00000E+00 + 2.01007E+01 1.38275E+00 1.98660E+01 1.41178E+00 4.84736E+01 + 5.61035E+00 4.84683E+01 5.61112E+00 1.72198E-01 2.90994E-02 + 1.75073E-01 2.87456E-02 9.97541E-01 3.05611E-04 1.00000E+01 + 0.00000E+00 2.01079E+01 1.38175E+00 1.98851E+01 1.40909E+00 + 4.84745E+01 5.61024E+00 4.84683E+01 5.61112E+00 1.73618E-01 + 2.88958E-02 1.76351E-01 2.85620E-02 9.97666E-01 2.88246E-04 + 9.99992E+00 0.00000E+00 2.01165E+01 1.38050E+00 1.99049E+01 + 1.40625E+00 4.84710E+01 5.61079E+00 4.84648E+01 5.61146E+00 + 1.75066E-01 2.86901E-02 1.77671E-01 2.83749E-02 9.97784E-01 + 2.70882E-04 1.00000E+01 0.00000E+00 2.01254E+01 1.37928E+00 + 1.99238E+01 1.40361E+00 4.84719E+01 5.61068E+00 4.84656E+01 + 5.61135E+00 1.76508E-01 2.84873E-02 1.78998E-01 2.81882E-02 + 9.97909E-01 2.53518E-04 1.00000E+01 0.00000E+00 2.01310E+01 + 1.37847E+00 1.99403E+01 1.40131E+00 4.84710E+01 5.61079E+00 + 4.84656E+01 5.61146E+00 1.77907E-01 2.82924E-02 1.80269E-01 + 2.80111E-02 9.98020E-01 2.38758E-04 9.99992E+00 0.00000E+00 + 2.01423E+01 1.37692E+00 1.99605E+01 1.39853E+00 4.84683E+01 + 5.61112E+00 4.84639E+01 5.61168E+00 1.79390E-01 2.80875E-02 + 1.81651E-01 2.78206E-02 9.98111E-01 2.25735E-04 1.00000E+01 + 0.00000E+00 2.01483E+01 1.37611E+00 1.99756E+01 1.39645E+00 + 4.84674E+01 5.61124E+00 4.84630E+01 5.61179E+00 1.80786E-01 + 2.78974E-02 1.82925E-01 2.76460E-02 9.98222E-01 2.10976E-04 + 1.00000E+01 0.00000E+00 2.01557E+01 1.37507E+00 1.99917E+01 + 1.39430E+00 4.84663E+01 5.61142E+00 4.84628E+01 5.61187E+00 + 1.82181E-01 2.77081E-02 1.84237E-01 2.74689E-02 9.98312E-01 + 1.97955E-04 9.99994E+00 0.00000E+00 2.01621E+01 1.37425E+00 + 2.00065E+01 1.39228E+00 4.84665E+01 5.61146E+00 4.84621E+01 + 5.61201E+00 1.83599E-01 2.75180E-02 1.85540E-01 2.72936E-02 + 9.98396E-01 1.86666E-04 1.00000E+01 0.00000E+00 2.01683E+01 + 1.37341E+00 2.00203E+01 1.39045E+00 4.84648E+01 5.61168E+00 + 4.84612E+01 5.61201E+00 1.84974E-01 2.73348E-02 1.86829E-01 + 2.71225E-02 9.98486E-01 1.75379E-04 1.00000E+01 0.00000E+00 + 2.01743E+01 1.37264E+00 2.00336E+01 1.38870E+00 4.84648E+01 + 5.61168E+00 4.84603E+01 5.61212E+00 1.86350E-01 2.71538E-02 + 1.88117E-01 2.69528E-02 9.98562E-01 1.64960E-04 1.00000E+01 + 0.00000E+00 2.01819E+01 1.37164E+00 2.00490E+01 1.38672E+00 + 4.84648E+01 5.61157E+00 4.84612E+01 5.61201E+00 1.87770E-01 + 2.69684E-02 1.89440E-01 2.67796E-02 9.98639E-01 1.55410E-04 + 1.00000E+01 0.00000E+00 2.01865E+01 1.37103E+00 2.00603E+01 + 1.38522E+00 4.84639E+01 5.61179E+00 4.84603E+01 5.61212E+00 + 1.89121E-01 2.67935E-02 1.90708E-01 2.66155E-02 9.98722E-01 + 1.44991E-04 9.99992E+00 0.00000E+00 2.01925E+01 1.37025E+00 + 2.00730E+01 1.38361E+00 4.84594E+01 5.61224E+00 4.84576E+01 + 5.61246E+00 1.90493E-01 2.66177E-02 1.92007E-01 2.64492E-02 + 9.98784E-01 1.36309E-04 1.00000E+01 0.00000E+00 2.01970E+01 + 1.36972E+00 2.00827E+01 1.38236E+00 4.84630E+01 5.61190E+00 + 4.84594E+01 5.61224E+00 1.91837E-01 2.64466E-02 1.93281E-01 + 2.62873E-02 9.98847E-01 1.28495E-04 1.00000E+01 0.00000E+00 + 2.02030E+01 1.36894E+00 2.00950E+01 1.38080E+00 4.84630E+01 + 5.61190E+00 4.84585E+01 5.61235E+00 1.93195E-01 2.62756E-02 + 1.94563E-01 2.61254E-02 9.98910E-01 1.19813E-04 9.99992E+00 + 0.00000E+00 2.02081E+01 1.36830E+00 2.01059E+01 1.37947E+00 + 4.84594E+01 5.61235E+00 4.84576E+01 5.61257E+00 1.94573E-01 + 2.61032E-02 1.95876E-01 2.59617E-02 9.98958E-01 1.13736E-04 + 1.00000E+01 0.00000E+00 2.02125E+01 1.36775E+00 2.01156E+01 + 1.37825E+00 4.84612E+01 5.61212E+00 4.84594E+01 5.61224E+00 + 1.95890E-01 2.59400E-02 1.97126E-01 2.58067E-02 9.99028E-01 + 1.06790E-04 1.00000E+01 0.00000E+00 2.02125E+01 1.36775E+00 + 2.01203E+01 1.37767E+00 4.84603E+01 5.61224E+00 4.84567E+01 + 5.61257E+00 1.97174E-01 2.57824E-02 1.98352E-01 2.56561E-02 + 9.99069E-01 9.98444E-05 1.00000E+01 0.00000E+00 2.02245E+01 + 1.36630E+00 2.01374E+01 1.37561E+00 4.84576E+01 5.61246E+00 + 4.84567E+01 5.61257E+00 1.98626E-01 2.56053E-02 1.99741E-01 + 2.54868E-02 9.99139E-01 9.28987E-05 1.00000E+01 0.00000E+00 + 2.02245E+01 1.36627E+00 2.01414E+01 1.37508E+00 4.84594E+01 + 5.61224E+00 4.84567E+01 5.61257E+00 1.99883E-01 2.54538E-02 + 2.00943E-01 2.53418E-02 9.99166E-01 8.94259E-05 9.99992E+00 + 0.00000E+00 2.02294E+01 1.36569E+00 2.01507E+01 1.37397E+00 + 4.84585E+01 5.61246E+00 4.84567E+01 5.61268E+00 2.01224E-01 + 2.52928E-02 2.02238E-01 2.51864E-02 9.99222E-01 8.16120E-05 + 1.00000E+01 0.00000E+00 2.02324E+01 1.36538E+00 2.01577E+01 + 1.37316E+00 4.84592E+01 5.61231E+00 4.84565E+01 5.61265E+00 + 2.02525E-01 2.51381E-02 2.03481E-01 2.50387E-02 9.99250E-01 + 7.81402E-05 1.00001E+01 0.00000E+00 2.02361E+01 1.36494E+00 + 2.01654E+01 1.37225E+00 4.84567E+01 5.61257E+00 4.84559E+01 + 5.61268E+00 2.03835E-01 2.49837E-02 2.04742E-01 2.48899E-02 + 9.99292E-01 7.29298E-05 9.99992E+00 0.00000E+00 2.02383E+01 + 1.36464E+00 2.01721E+01 1.37150E+00 4.84576E+01 5.61246E+00 + 4.84567E+01 5.61257E+00 2.05145E-01 2.48309E-02 2.05999E-01 + 2.47427E-02 9.99347E-01 6.85888E-05 1.00000E+01 0.00000E+00 + 2.02437E+01 1.36408E+00 2.01796E+01 1.37061E+00 4.84567E+01 + 5.61257E+00 4.84567E+01 5.61268E+00 2.06454E-01 2.46785E-02 + 2.07280E-01 2.45943E-02 9.99375E-01 6.42477E-05 1.00000E+01 + 0.00000E+00 2.02463E+01 1.36369E+00 2.01872E+01 1.36975E+00 + 4.84559E+01 5.61268E+00 4.84559E+01 5.61268E+00 2.07756E-01 + 2.45292E-02 2.08520E-01 2.44515E-02 9.99417E-01 5.99067E-05 + 9.99992E+00 0.00000E+00 2.02481E+01 1.36352E+00 2.01912E+01 + 1.36930E+00 4.84567E+01 5.61268E+00 4.84541E+01 5.61290E+00 + 2.09045E-01 2.43816E-02 2.09791E-01 2.43065E-02 9.99444E-01 + 5.64338E-05 1.00000E+01 0.00000E+00 2.02512E+01 1.36319E+00 + 2.01974E+01 1.36858E+00 4.84576E+01 5.61246E+00 4.84559E+01 + 5.61268E+00 2.10323E-01 2.42370E-02 2.11014E-01 2.41676E-02 + 9.99458E-01 5.38292E-05 1.00000E+01 0.00000E+00 2.02543E+01 + 1.36280E+00 2.02036E+01 1.36786E+00 4.84559E+01 5.61268E+00 + 4.84559E+01 5.61279E+00 2.11628E-01 2.40903E-02 2.12292E-01 + 2.40243E-02 9.99500E-01 5.03563E-05 1.00000E+01 0.00000E+00 + 2.02565E+01 1.36258E+00 2.02081E+01 1.36736E+00 4.84567E+01 + 5.61268E+00 4.84541E+01 5.61290E+00 2.12903E-01 2.39483E-02 + 2.13525E-01 2.38867E-02 9.99542E-01 4.60153E-05 1.00000E+01 + 0.00000E+00 2.02597E+01 1.36219E+00 2.02134E+01 1.36675E+00 + 4.84550E+01 5.61290E+00 4.84550E+01 5.61279E+00 2.14185E-01 + 2.38064E-02 2.14782E-01 2.37473E-02 9.99555E-01 4.34106E-05 + 9.99992E+00 0.00000E+00 2.02605E+01 1.36213E+00 2.02179E+01 + 1.36630E+00 4.84559E+01 5.61279E+00 4.84532E+01 5.61301E+00 + 2.15459E-01 2.36662E-02 2.16015E-01 2.36119E-02 9.99583E-01 + 4.08060E-05 1.00000E+01 0.00000E+00 2.02637E+01 1.36180E+00 + 2.02223E+01 1.36580E+00 4.84559E+01 5.61268E+00 4.84559E+01 + 5.61279E+00 2.16716E-01 2.35290E-02 2.17258E-01 2.34765E-02 + 9.99597E-01 3.90696E-05 1.00000E+01 0.00000E+00 2.02659E+01 + 1.36158E+00 2.02268E+01 1.36530E+00 4.84550E+01 5.61279E+00 + 4.84541E+01 5.61290E+00 2.17991E-01 2.33909E-02 2.18498E-01 + 2.33428E-02 9.99625E-01 3.64649E-05 9.99992E+00 0.00000E+00 + 2.02672E+01 1.36141E+00 2.02299E+01 1.36497E+00 4.84541E+01 + 5.61290E+00 4.84559E+01 5.61279E+00 2.19262E-01 2.32546E-02 + 2.19748E-01 2.32082E-02 9.99653E-01 3.38603E-05 1.00000E+01 + 0.00000E+00 2.02690E+01 1.36119E+00 2.02348E+01 1.36447E+00 + 4.84559E+01 5.61279E+00 4.84550E+01 5.61279E+00 2.20491E-01 + 2.31231E-02 2.20943E-01 2.30801E-02 9.99667E-01 3.12556E-05 + 1.00000E+01 0.00000E+00 2.02708E+01 1.36102E+00 2.02379E+01 + 1.36414E+00 4.84541E+01 5.61290E+00 4.84523E+01 5.61312E+00 + 2.21783E-01 2.29868E-02 2.22214E-01 2.29460E-02 9.99681E-01 + 3.03874E-05 1.00000E+01 0.00000E+00 2.02725E+01 1.36080E+00 + 2.02414E+01 1.36375E+00 4.84541E+01 5.61290E+00 4.84532E+01 + 5.61301E+00 2.23026E-01 2.28561E-02 2.23436E-01 2.28175E-02 + 9.99708E-01 2.77828E-05 1.00000E+01 0.00000E+00 2.02759E+01 + 1.36049E+00 2.02466E+01 1.36321E+00 4.84539E+01 5.61287E+00 + 4.84548E+01 5.61287E+00 2.24287E-01 2.27240E-02 2.24669E-01 + 2.26884E-02 9.99708E-01 2.77832E-05 9.99994E+00 0.00000E+00 + 2.02774E+01 1.36036E+00 2.02490E+01 1.36297E+00 4.84532E+01 + 5.61301E+00 4.84523E+01 5.61301E+00 2.25541E-01 2.25944E-02 + 2.25909E-01 2.25601E-02 9.99736E-01 2.43099E-05 1.00000E+01 + 0.00000E+00 2.02779E+01 1.36030E+00 2.02512E+01 1.36275E+00 + 4.84567E+01 5.61268E+00 4.84550E+01 5.61279E+00 2.26770E-01 + 2.24676E-02 2.27117E-01 2.24355E-02 9.99750E-01 2.25735E-05 + 1.00000E+01 0.00000E+00 2.02792E+01 1.36013E+00 2.02548E+01 + 1.36241E+00 4.84532E+01 5.61301E+00 4.84532E+01 5.61301E+00 + 2.28006E-01 2.23417E-02 2.28333E-01 2.23118E-02 9.99764E-01 + 2.25735E-05 9.99992E+00 0.00000E+00 2.02806E+01 1.36002E+00 + 2.02570E+01 1.36213E+00 4.84532E+01 5.61301E+00 4.84532E+01 + 5.61301E+00 2.29243E-01 2.22158E-02 2.29555E-01 2.21876E-02 + 9.99778E-01 1.99689E-05 1.00000E+01 0.00000E+00 2.02814E+01 + 1.35991E+00 2.02597E+01 1.36191E+00 4.84567E+01 5.61279E+00 + 4.84532E+01 5.61301E+00 2.30479E-01 2.20912E-02 2.30771E-01 + 2.20647E-02 9.99792E-01 1.91007E-05 1.00000E+01 0.00000E+00 + 2.02828E+01 1.35980E+00 2.02610E+01 1.36175E+00 4.84514E+01 + 5.61301E+00 4.84532E+01 5.61301E+00 2.31715E-01 2.19675E-02 + 2.32000E-01 2.19423E-02 9.99806E-01 1.73642E-05 9.99992E+00 + 0.00000E+00 2.02841E+01 1.35969E+00 2.02641E+01 1.36147E+00 + 4.84532E+01 5.61301E+00 4.84550E+01 5.61290E+00 2.32931E-01 + 2.18468E-02 2.33202E-01 2.18229E-02 9.99806E-01 1.73642E-05 + 1.00000E+01 0.00000E+00 2.02854E+01 1.35952E+00 2.02668E+01 + 1.36119E+00 4.84532E+01 5.61290E+00 4.84532E+01 5.61301E+00 + 2.34167E-01 2.17253E-02 2.34403E-01 2.17036E-02 9.99833E-01 + 1.47596E-05 1.00000E+01 0.00000E+00 2.02863E+01 1.35947E+00 + 2.02681E+01 1.36102E+00 4.84550E+01 5.61290E+00 4.84532E+01 + 5.61301E+00 2.35397E-01 2.16042E-02 2.35633E-01 2.15833E-02 + 9.99819E-01 1.56278E-05 1.00000E+01 0.00000E+00 2.02877E+01 + 1.35930E+00 2.02708E+01 1.36080E+00 4.84532E+01 5.61290E+00 + 4.84532E+01 5.61301E+00 2.36619E-01 2.14852E-02 2.36848E-01 + 2.14652E-02 9.99847E-01 1.30232E-05 1.00000E+01 0.00000E+00 + 2.02877E+01 1.35930E+00 2.02721E+01 1.36063E+00 4.84532E+01 + 5.61301E+00 4.84550E+01 5.61290E+00 2.37835E-01 2.13676E-02 + 2.38036E-01 2.13502E-02 9.99847E-01 1.38914E-05 9.99992E+00 + 0.00000E+00 2.02899E+01 1.35913E+00 2.02743E+01 1.36047E+00 + 4.84532E+01 5.61301E+00 4.84532E+01 5.61301E+00 2.39050E-01 + 2.12512E-02 2.39252E-01 2.12334E-02 9.99861E-01 1.21550E-05 + 1.00000E+01 0.00000E+00 2.02908E+01 1.35902E+00 2.02761E+01 + 1.36025E+00 4.84532E+01 5.61301E+00 4.84532E+01 5.61301E+00 + 2.40266E-01 2.11349E-02 2.40446E-01 2.11188E-02 9.99861E-01 + 1.12868E-05 1.00000E+01 0.00000E+00 2.02912E+01 1.35897E+00 + 2.02770E+01 1.36019E+00 4.84532E+01 5.61301E+00 4.84532E+01 + 5.61301E+00 2.41453E-01 2.10216E-02 2.41648E-01 2.10051E-02 + 9.99875E-01 1.04185E-05 9.99992E+00 0.00000E+00 2.02911E+01 + 1.35899E+00 2.02786E+01 1.36004E+00 4.84539E+01 5.61298E+00 + 4.84521E+01 5.61309E+00 2.42672E-01 2.09073E-02 2.42832E-01 + 2.08934E-02 9.99861E-01 1.12869E-05 1.00001E+01 0.00000E+00 + 2.02930E+01 1.35880E+00 2.02806E+01 1.35986E+00 4.84550E+01 + 5.61290E+00 4.84532E+01 5.61290E+00 2.43877E-01 2.07941E-02 + 2.44051E-01 2.07798E-02 9.99889E-01 8.68212E-06 1.00000E+01 + 0.00000E+00 2.02926E+01 1.35886E+00 2.02806E+01 1.35986E+00 + 4.84514E+01 5.61312E+00 4.84496E+01 5.61324E+00 2.45072E-01 + 2.06834E-02 2.45225E-01 2.06704E-02 9.99903E-01 7.81391E-06 + 9.99992E+00 0.00000E+00 2.02926E+01 1.35886E+00 2.02828E+01 + 1.35963E+00 4.84532E+01 5.61301E+00 4.84532E+01 5.61290E+00 + 2.46288E-01 2.05710E-02 2.46413E-01 2.05606E-02 9.99903E-01 + 8.68212E-06 1.00000E+01 0.00000E+00 2.02957E+01 1.35858E+00 + 2.02846E+01 1.35947E+00 4.84532E+01 5.61301E+00 4.84532E+01 + 5.61301E+00 2.47482E-01 2.04616E-02 2.47614E-01 2.04499E-02 + 9.99903E-01 7.81391E-06 1.00000E+01 0.00000E+00 2.02948E+01 + 1.35863E+00 2.02854E+01 1.35941E+00 4.84514E+01 5.61312E+00 + 4.84532E+01 5.61301E+00 2.48670E-01 2.03531E-02 2.48802E-01 + 2.03422E-02 9.99889E-01 8.68212E-06 1.00000E+01 0.00000E+00 + 2.02952E+01 1.35858E+00 2.02868E+01 1.35930E+00 4.84550E+01 + 5.61279E+00 4.84514E+01 5.61312E+00 2.49865E-01 2.02445E-02 + 2.49976E-01 2.02350E-02 9.99931E-01 6.07749E-06 1.00000E+01 + 0.00000E+00 2.02957E+01 1.35852E+00 2.02872E+01 1.35925E+00 + 4.84514E+01 5.61312E+00 4.84532E+01 5.61301E+00 2.51052E-01 + 2.01369E-02 2.51170E-01 2.01278E-02 9.99917E-01 6.94570E-06 + 9.99992E+00 0.00000E+00 2.02966E+01 1.35847E+00 2.02886E+01 + 1.35913E+00 4.84532E+01 5.61301E+00 4.84532E+01 5.61301E+00 + 2.52240E-01 2.00310E-02 2.52351E-01 2.00218E-02 9.99944E-01 + 4.34106E-06 1.00000E+01 0.00000E+00 2.02974E+01 1.35841E+00 + 2.02899E+01 1.35902E+00 4.84532E+01 5.61301E+00 4.84532E+01 + 5.61312E+00 2.53407E-01 1.99268E-02 2.53511E-01 1.99185E-02 + 9.99917E-01 6.94570E-06 1.00000E+01 0.00000E+00 2.02974E+01 + 1.35841E+00 2.02899E+01 1.35902E+00 4.84514E+01 5.61312E+00 + 4.84532E+01 5.61301E+00 2.54608E-01 1.98209E-02 2.54713E-01 + 1.98126E-02 9.99958E-01 4.34106E-06 9.99992E+00 0.00000E+00 + 2.02983E+01 1.35836E+00 2.02917E+01 1.35886E+00 4.84532E+01 + 5.61301E+00 4.84550E+01 5.61290E+00 2.55782E-01 1.97175E-02 + 2.55873E-01 1.97106E-02 9.99944E-01 5.20927E-06 1.00000E+01 + 0.00000E+00 2.02979E+01 1.35836E+00 2.02917E+01 1.35886E+00 + 4.84532E+01 5.61301E+00 4.84496E+01 5.61324E+00 2.56942E-01 + 1.96155E-02 2.57026E-01 1.96090E-02 9.99944E-01 5.20927E-06 + 1.00000E+01 0.00000E+00 2.02992E+01 1.35825E+00 2.02930E+01 + 1.35875E+00 4.84514E+01 5.61312E+00 4.84532E+01 5.61290E+00 + 2.58123E-01 1.95131E-02 2.58206E-01 1.95061E-02 9.99944E-01 + 4.34106E-06 1.00000E+01 0.00000E+00 2.02988E+01 1.35830E+00 + 2.02921E+01 1.35880E+00 4.84532E+01 5.61301E+00 4.84532E+01 + 5.61301E+00 2.59311E-01 1.94106E-02 2.59387E-01 1.94045E-02 + 9.99958E-01 3.47285E-06 1.00000E+01 0.00000E+00 2.02988E+01 + 1.35830E+00 2.02943E+01 1.35863E+00 4.84550E+01 5.61290E+00 + 4.84532E+01 5.61301E+00 2.60478E-01 1.93108E-02 2.60533E-01 + 1.93060E-02 9.99958E-01 4.34106E-06 9.99992E+00 0.00000E+00 + 2.03006E+01 1.35813E+00 2.02948E+01 1.35858E+00 4.84496E+01 + 5.61324E+00 4.84514E+01 5.61312E+00 2.61624E-01 1.92127E-02 + 2.61693E-01 1.92066E-02 9.99958E-01 3.47285E-06 1.00000E+01 + 0.00000E+00 2.03004E+01 1.35815E+00 2.02946E+01 1.35860E+00 + 4.84539E+01 5.61287E+00 4.84521E+01 5.61309E+00 2.62801E-01 + 1.91127E-02 2.62871E-01 1.91066E-02 9.99958E-01 3.47290E-06 + 1.00001E+01 0.00000E+00 2.03006E+01 1.35813E+00 2.02970E+01 + 1.35841E+00 4.84532E+01 5.61312E+00 4.84532E+01 5.61312E+00 + 2.63957E-01 1.90147E-02 2.64006E-01 1.90112E-02 9.99958E-01 + 2.60464E-06 9.99992E+00 0.00000E+00 2.02997E+01 1.35819E+00 + 2.02957E+01 1.35852E+00 4.84532E+01 5.61301E+00 4.84532E+01 + 5.61301E+00 2.65131E-01 1.89162E-02 2.65194E-01 1.89114E-02 + 9.99944E-01 3.47285E-06 1.00000E+01 0.00000E+00 2.03010E+01 + 1.35808E+00 2.02961E+01 1.35847E+00 4.84532E+01 5.61301E+00 + 4.84532E+01 5.61301E+00 2.66256E-01 1.88220E-02 2.66326E-01 + 1.88172E-02 9.99972E-01 1.73642E-06 1.00000E+01 0.00000E+00 + 2.03006E+01 1.35813E+00 2.02974E+01 1.35836E+00 4.84514E+01 + 5.61312E+00 4.84514E+01 5.61312E+00 2.67437E-01 1.87247E-02 + 2.67479E-01 1.87217E-02 9.99958E-01 2.60464E-06 9.99992E+00 + 0.00000E+00 2.03010E+01 1.35808E+00 2.02979E+01 1.35830E+00 + 4.84514E+01 5.61312E+00 4.84532E+01 5.61301E+00 2.68576E-01 + 1.86305E-02 2.68611E-01 1.86275E-02 9.99944E-01 3.47285E-06 + 1.00000E+01 0.00000E+00 2.03010E+01 1.35808E+00 2.02970E+01 + 1.35841E+00 4.84532E+01 5.61301E+00 4.84532E+01 5.61301E+00 + 2.69743E-01 1.85350E-02 2.69799E-01 1.85307E-02 9.99972E-01 + 1.73642E-06 1.00000E+01 0.00000E+00 2.03019E+01 1.35802E+00 + 2.02983E+01 1.35830E+00 4.84532E+01 5.61301E+00 4.84514E+01 + 5.61312E+00 2.70861E-01 1.84434E-02 2.70910E-01 1.84395E-02 + 9.99986E-01 1.73642E-06 1.00000E+01 0.00000E+00 2.03028E+01 + 1.35797E+00 2.03006E+01 1.35813E+00 4.84532E+01 5.61312E+00 + 4.84532E+01 5.61312E+00 2.72014E-01 1.83497E-02 2.72049E-01 + 1.83475E-02 9.99958E-01 2.60464E-06 1.00000E+01 0.00000E+00 + 2.03019E+01 1.35802E+00 2.02992E+01 1.35819E+00 4.84532E+01 + 5.61301E+00 4.84532E+01 5.61301E+00 2.73160E-01 1.82576E-02 + 2.73195E-01 1.82546E-02 9.99972E-01 1.73642E-06 9.99992E+00 + 0.00000E+00 2.03023E+01 1.35797E+00 2.02997E+01 1.35819E+00 + 4.84532E+01 5.61312E+00 4.84550E+01 5.61290E+00 2.74306E-01 + 1.81656E-02 2.74348E-01 1.81630E-02 9.99986E-01 1.73642E-06 + 1.00000E+01 0.00000E+00 2.03019E+01 1.35802E+00 2.02988E+01 + 1.35825E+00 4.84532E+01 5.61301E+00 4.84496E+01 5.61324E+00 + 2.75425E-01 1.80762E-02 2.75459E-01 1.80736E-02 9.99972E-01 + 1.73642E-06 1.00000E+01 0.00000E+00 2.03032E+01 1.35791E+00 + 2.03010E+01 1.35808E+00 4.84532E+01 5.61290E+00 4.84532E+01 + 5.61290E+00 2.76578E-01 1.79850E-02 2.76612E-01 1.79824E-02 + 9.99986E-01 8.68212E-07 9.99992E+00 0.00000E+00 2.03028E+01 + 1.35797E+00 2.03001E+01 1.35813E+00 4.84514E+01 5.61324E+00 + 4.84514E+01 5.61324E+00 2.77710E-01 1.78956E-02 2.77731E-01 + 1.78939E-02 9.99972E-01 1.73642E-06 1.00000E+01 0.00000E+00 + 2.03032E+01 1.35791E+00 2.03014E+01 1.35802E+00 4.84550E+01 + 5.61290E+00 4.84550E+01 5.61290E+00 2.78828E-01 1.78079E-02 + 2.78849E-01 1.78062E-02 9.99986E-01 1.73642E-06 1.00000E+01 + 0.00000E+00 2.03026E+01 1.35799E+00 2.03008E+01 1.35810E+00 + 4.84521E+01 5.61309E+00 4.84521E+01 5.61309E+00 2.79978E-01 + 1.77179E-02 2.79999E-01 1.77170E-02 9.99972E-01 1.73645E-06 + 9.99994E+00 0.00000E+00 2.03032E+01 1.35791E+00 2.03010E+01 + 1.35808E+00 4.84514E+01 5.61312E+00 4.84514E+01 5.61312E+00 + 2.81058E-01 1.76343E-02 2.81099E-01 1.76308E-02 1.00000E+00 + 0.00000E+00 1.00000E+01 0.00000E+00 2.03041E+01 1.35786E+00 + 2.03019E+01 1.35802E+00 4.84532E+01 5.61301E+00 4.84532E+01 + 5.61301E+00 2.82211E-01 1.75448E-02 2.82225E-01 1.75440E-02 + 9.99986E-01 8.68212E-07 1.00000E+01 0.00000E+00 2.03032E+01 + 1.35791E+00 2.03019E+01 1.35802E+00 4.84532E+01 5.61301E+00 + 4.84532E+01 5.61301E+00 2.83329E-01 1.74589E-02 2.83371E-01 + 1.74563E-02 9.99972E-01 1.73642E-06 1.00000E+01 0.00000E+00 + 2.03041E+01 1.35786E+00 2.03019E+01 1.35802E+00 4.84514E+01 + 5.61312E+00 4.84514E+01 5.61312E+00 2.84433E-01 1.73747E-02 + 2.84454E-01 1.73729E-02 1.00000E+00 0.00000E+00 1.00000E+01 + 0.00000E+00 2.03028E+01 1.35797E+00 2.03014E+01 1.35802E+00 + 4.84532E+01 5.61301E+00 4.84532E+01 5.61301E+00 2.85558E-01 + 1.72887E-02 2.85572E-01 1.72878E-02 9.99972E-01 1.73642E-06 + 1.00000E+01 0.00000E+00 2.03041E+01 1.35786E+00 2.03028E+01 + 1.35797E+00 4.84514E+01 5.61312E+00 4.84514E+01 5.61312E+00 + 2.86663E-01 1.72054E-02 2.86691E-01 1.72036E-02 1.00000E+00 + 0.00000E+00 9.99981E+00 0.00000E+00 2.03046E+01 1.35780E+00 + 2.03032E+01 1.35791E+00 4.84514E+01 5.61312E+00 4.84514E+01 + 5.61312E+00 2.87774E-01 1.71220E-02 2.87795E-01 1.71203E-02 + 9.99972E-01 1.73642E-06 1.00000E+01 0.00000E+00 2.03032E+01 + 1.35791E+00 2.03032E+01 1.35791E+00 4.84532E+01 5.61301E+00 + 4.84532E+01 5.61301E+00 2.88899E-01 1.70378E-02 2.88899E-01 + 1.70378E-02 9.99986E-01 8.68212E-07 1.00000E+01 0.00000E+00 + 2.03041E+01 1.35786E+00 2.03014E+01 1.35802E+00 4.84514E+01 + 5.61312E+00 4.84514E+01 5.61312E+00 2.89990E-01 1.69562E-02 + 2.90025E-01 1.69544E-02 1.00000E+00 0.00000E+00 1.00000E+01 + 0.00000E+00 2.03041E+01 1.35786E+00 2.03032E+01 1.35791E+00 + 4.84532E+01 5.61301E+00 4.84532E+01 5.61301E+00 2.91094E-01 + 1.68746E-02 2.91108E-01 1.68737E-02 1.00000E+00 0.00000E+00 + 1.00000E+01 0.00000E+00 2.03041E+01 1.35786E+00 2.03023E+01 + 1.35797E+00 4.84514E+01 5.61312E+00 4.84514E+01 5.61312E+00 + 2.92192E-01 1.67938E-02 2.92219E-01 1.67921E-02 9.99972E-01 + 1.73642E-06 1.00000E+01 0.00000E+00 2.03050E+01 1.35780E+00 + 2.03041E+01 1.35786E+00 4.84532E+01 5.61301E+00 4.84532E+01 + 5.61301E+00 2.93303E-01 1.67122E-02 2.93310E-01 1.67122E-02 + 1.00000E+00 0.00000E+00 1.00000E+01 0.00000E+00 2.03041E+01 + 1.35786E+00 2.03041E+01 1.35786E+00 4.84532E+01 5.61301E+00 + 4.84532E+01 5.61301E+00 2.94386E-01 1.66332E-02 2.94386E-01 + 1.66332E-02 9.99972E-01 1.73642E-06 1.00000E+01 0.00000E+00 + 2.03050E+01 1.35780E+00 2.03032E+01 1.35797E+00 4.84514E+01 + 5.61312E+00 4.84514E+01 5.61312E+00 2.95470E-01 1.65542E-02 + 2.95512E-01 1.65516E-02 1.00000E+00 0.00000E+00 1.00000E+01 + 0.00000E+00 2.03041E+01 1.35780E+00 2.03041E+01 1.35780E+00 + 4.84514E+01 5.61312E+00 4.84514E+01 5.61312E+00 2.96574E-01 + 1.64743E-02 2.96581E-01 1.64743E-02 1.00000E+00 0.00000E+00 + 9.99981E+00 0.00000E+00 2.03041E+01 1.35786E+00 2.03041E+01 + 1.35786E+00 4.84550E+01 5.61290E+00 4.84550E+01 5.61290E+00 + 2.97658E-01 1.63971E-02 2.97665E-01 1.63962E-02 9.99986E-01 + 8.68212E-07 1.00000E+01 0.00000E+00 2.03035E+01 1.35788E+00 + 2.03026E+01 1.35793E+00 4.84503E+01 5.61320E+00 4.84503E+01 + 5.61320E+00 2.98759E-01 1.63183E-02 2.98759E-01 1.63183E-02 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 2.03047E+01 + 1.35778E+00 2.03047E+01 1.35784E+00 4.84525E+01 5.61305E+00 + 4.84525E+01 5.61305E+00 2.99828E-01 1.62414E-02 2.99849E-01 + 1.62406E-02 9.99986E-01 8.68200E-07 1.00001E+01 0.00000E+00 + 2.03044E+01 1.35782E+00 2.03035E+01 1.35788E+00 4.84556E+01 + 5.61276E+00 4.84556E+01 5.61276E+00 3.00906E-01 1.61655E-02 + 3.00920E-01 1.61646E-02 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 2.03056E+01 1.35778E+00 2.03047E+01 1.35784E+00 + 4.84507E+01 5.61316E+00 4.84507E+01 5.61316E+00 3.01981E-01 + 1.60895E-02 3.01995E-01 1.60886E-02 9.99986E-01 8.68200E-07 + 1.00001E+01 0.00000E+00 2.03044E+01 1.35782E+00 2.03053E+01 + 1.35782E+00 4.84521E+01 5.61309E+00 4.84521E+01 5.61309E+00 + 3.03059E-01 1.60135E-02 3.03066E-01 1.60135E-02 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 2.03047E+01 1.35778E+00 + 2.03029E+01 1.35789E+00 4.84507E+01 5.61316E+00 4.84507E+01 + 5.61316E+00 3.04141E-01 1.59384E-02 3.04155E-01 1.59376E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03044E+01 + 1.35782E+00 2.03044E+01 1.35782E+00 4.84521E+01 5.61309E+00 + 4.84521E+01 5.61309E+00 3.05205E-01 1.58642E-02 3.05212E-01 + 1.58642E-02 9.99986E-01 0.00000E+00 1.00002E+01 0.00000E+00 + 2.03044E+01 1.35782E+00 2.03044E+01 1.35782E+00 4.84521E+01 + 5.61309E+00 4.84521E+01 5.61309E+00 3.06261E-01 1.57913E-02 + 3.06261E-01 1.57913E-02 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 2.03047E+01 1.35778E+00 2.03038E+01 1.35789E+00 + 4.84543E+01 5.61294E+00 4.84543E+01 5.61294E+00 3.07350E-01 + 1.57162E-02 3.07385E-01 1.57144E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 2.03044E+01 1.35782E+00 2.03053E+01 + 1.35776E+00 4.84521E+01 5.61309E+00 4.84521E+01 5.61309E+00 + 3.08407E-01 1.56437E-02 3.08400E-01 1.56445E-02 9.99972E-01 + 1.73645E-06 9.99994E+00 0.00000E+00 2.03047E+01 1.35778E+00 + 2.03047E+01 1.35778E+00 4.84543E+01 5.61294E+00 4.84543E+01 + 5.61294E+00 3.09461E-01 1.55720E-02 3.09461E-01 1.55720E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03053E+01 + 1.35776E+00 2.03044E+01 1.35788E+00 4.84485E+01 5.61331E+00 + 4.84485E+01 5.61331E+00 3.10512E-01 1.55004E-02 3.10540E-01 + 1.54987E-02 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 2.03065E+01 1.35773E+00 2.03056E+01 1.35773E+00 4.84543E+01 + 5.61294E+00 4.84543E+01 5.61294E+00 3.11594E-01 1.54279E-02 + 3.11594E-01 1.54279E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 2.03044E+01 1.35782E+00 2.03026E+01 1.35793E+00 + 4.84521E+01 5.61309E+00 4.84521E+01 5.61309E+00 3.12616E-01 + 1.53589E-02 3.12644E-01 1.53572E-02 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 2.03056E+01 1.35778E+00 2.03047E+01 + 1.35778E+00 4.84507E+01 5.61316E+00 4.84507E+01 5.61316E+00 + 3.13691E-01 1.52864E-02 3.13691E-01 1.52864E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 2.03044E+01 1.35782E+00 + 2.03062E+01 1.35776E+00 4.84521E+01 5.61309E+00 4.84521E+01 + 5.61309E+00 3.14770E-01 1.52156E-02 3.14742E-01 1.52174E-02 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 2.03056E+01 + 1.35778E+00 2.03038E+01 1.35784E+00 4.84543E+01 5.61294E+00 + 4.84543E+01 5.61294E+00 3.15775E-01 1.51484E-02 3.15789E-01 + 1.51475E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 2.03062E+01 1.35776E+00 2.03062E+01 1.35771E+00 4.84521E+01 + 5.61309E+00 4.84521E+01 5.61309E+00 3.16839E-01 1.50785E-02 + 3.16825E-01 1.50793E-02 9.99986E-01 8.68224E-07 1.00002E+01 + 0.00000E+00 2.03038E+01 1.35784E+00 2.03047E+01 1.35784E+00 + 4.84543E+01 5.61294E+00 4.84543E+01 5.61294E+00 3.17872E-01 + 1.50103E-02 3.17872E-01 1.50094E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 2.03071E+01 1.35771E+00 2.03044E+01 + 1.35782E+00 4.84468E+01 5.61331E+00 4.84468E+01 5.61331E+00 + 3.18895E-01 1.49430E-02 3.18909E-01 1.49421E-02 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 2.03047E+01 1.35784E+00 + 2.03047E+01 1.35778E+00 4.84561E+01 5.61294E+00 4.84561E+01 + 5.61294E+00 3.19956E-01 1.48740E-02 3.19942E-01 1.48749E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03053E+01 + 1.35776E+00 2.03053E+01 1.35782E+00 4.84539E+01 5.61287E+00 + 4.84539E+01 5.61287E+00 3.20979E-01 1.48076E-02 3.20993E-01 + 1.48067E-02 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 2.03047E+01 1.35778E+00 2.03047E+01 1.35778E+00 4.84454E+01 + 5.61338E+00 4.84454E+01 5.61338E+00 3.22012E-01 1.47412E-02 + 3.22026E-01 1.47403E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 2.03062E+01 1.35771E+00 2.03062E+01 1.35771E+00 + 4.84539E+01 5.61309E+00 4.84539E+01 5.61309E+00 3.23049E-01 + 1.46747E-02 3.23049E-01 1.46747E-02 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 2.03044E+01 1.35782E+00 2.03044E+01 + 1.35782E+00 4.84539E+01 5.61287E+00 4.84539E+01 5.61287E+00 + 3.24063E-01 1.46087E-02 3.24063E-01 1.46087E-02 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 2.03047E+01 1.35778E+00 + 2.03047E+01 1.35778E+00 4.84490E+01 5.61316E+00 4.84490E+01 + 5.61316E+00 3.25096E-01 1.45432E-02 3.25096E-01 1.45432E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 2.03053E+01 + 1.35776E+00 2.03044E+01 1.35782E+00 4.84503E+01 5.61309E+00 + 4.84503E+01 5.61309E+00 3.26105E-01 1.44794E-02 3.26119E-01 + 1.44785E-02 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 2.03065E+01 1.35773E+00 2.03056E+01 1.35778E+00 4.84525E+01 + 5.61316E+00 4.84525E+01 5.61316E+00 3.27152E-01 1.44139E-02 + 3.27152E-01 1.44139E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 2.03044E+01 1.35782E+00 2.03044E+01 1.35782E+00 + 4.84503E+01 5.61309E+00 4.84503E+01 5.61309E+00 3.28147E-01 + 1.43500E-02 3.28147E-01 1.43500E-02 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 2.03056E+01 1.35773E+00 2.03056E+01 + 1.35773E+00 4.84561E+01 5.61271E+00 4.84561E+01 5.61271E+00 + 3.29138E-01 1.42880E-02 3.29138E-01 1.42880E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 2.03035E+01 1.35788E+00 + 2.03035E+01 1.35788E+00 4.84468E+01 5.61331E+00 4.84468E+01 + 5.61331E+00 3.30189E-01 1.42233E-02 3.30189E-01 1.42233E-02 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 2.03047E+01 + 1.35778E+00 2.03065E+01 1.35767E+00 4.84525E+01 5.61316E+00 + 4.84525E+01 5.61316E+00 3.31208E-01 1.41603E-02 3.31180E-01 + 1.41621E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 2.03062E+01 1.35771E+00 2.03044E+01 1.35782E+00 4.84574E+01 + 5.61287E+00 4.84574E+01 5.61287E+00 3.32190E-01 1.40991E-02 + 3.32217E-01 1.40974E-02 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 2.03056E+01 1.35778E+00 2.03056E+01 1.35778E+00 + 4.84525E+01 5.61316E+00 4.84525E+01 5.61316E+00 3.33222E-01 + 1.40362E-02 3.33222E-01 1.40362E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 2.03044E+01 1.35782E+00 2.03062E+01 + 1.35771E+00 4.84503E+01 5.61309E+00 4.84503E+01 5.61309E+00 + 3.34204E-01 1.39749E-02 3.34190E-01 1.39758E-02 9.99972E-01 + 1.73645E-06 9.99994E+00 0.00000E+00 2.03074E+01 1.35767E+00 + 2.03065E+01 1.35773E+00 4.84525E+01 5.61316E+00 4.84525E+01 + 5.61316E+00 3.35195E-01 1.39146E-02 3.35195E-01 1.39146E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 2.03053E+01 + 1.35776E+00 2.03053E+01 1.35776E+00 4.84574E+01 5.61287E+00 + 4.84574E+01 5.61287E+00 3.36232E-01 1.38525E-02 3.36232E-01 + 1.38525E-02 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 2.03038E+01 1.35784E+00 2.03047E+01 1.35784E+00 4.84561E+01 + 5.61294E+00 4.84561E+01 5.61294E+00 3.37209E-01 1.37931E-02 + 3.37209E-01 1.37931E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 2.03071E+01 1.35765E+00 2.03062E+01 1.35771E+00 + 4.84468E+01 5.61331E+00 4.84468E+01 5.61331E+00 3.38205E-01 + 1.37327E-02 3.38219E-01 1.37318E-02 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 2.03065E+01 1.35773E+00 2.03065E+01 + 1.35773E+00 4.84525E+01 5.61316E+00 4.84525E+01 5.61316E+00 + 3.39195E-01 1.36733E-02 3.39195E-01 1.36733E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 2.03044E+01 1.35782E+00 + 2.03044E+01 1.35782E+00 4.84574E+01 5.61287E+00 4.84574E+01 + 5.61287E+00 3.40163E-01 1.36155E-02 3.40177E-01 1.36146E-02 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 2.03044E+01 + 1.35782E+00 2.03053E+01 1.35776E+00 4.84503E+01 5.61309E+00 + 4.84503E+01 5.61309E+00 3.41177E-01 1.35547E-02 3.41164E-01 + 1.35556E-02 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 2.03065E+01 1.35767E+00 2.03047E+01 1.35778E+00 4.84525E+01 + 5.61316E+00 4.84525E+01 5.61316E+00 3.42168E-01 1.34962E-02 + 3.42182E-01 1.34953E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 2.03044E+01 1.35782E+00 2.03044E+01 1.35782E+00 + 4.84574E+01 5.61287E+00 4.84574E+01 5.61287E+00 3.43122E-01 + 1.34401E-02 3.43122E-01 1.34401E-02 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 2.03047E+01 1.35778E+00 2.03047E+01 + 1.35778E+00 4.84525E+01 5.61316E+00 4.84525E+01 5.61316E+00 + 3.44113E-01 1.33816E-02 3.44113E-01 1.33816E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 2.03062E+01 1.35771E+00 + 2.03062E+01 1.35771E+00 4.84503E+01 5.61309E+00 4.84503E+01 + 5.61309E+00 3.45081E-01 1.33246E-02 3.45081E-01 1.33246E-02 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 2.03047E+01 + 1.35778E+00 2.03047E+01 1.35778E+00 4.84490E+01 5.61316E+00 + 4.84490E+01 5.61316E+00 3.46072E-01 1.32670E-02 3.46072E-01 + 1.32670E-02 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 2.03044E+01 1.35782E+00 2.03053E+01 1.35776E+00 4.84503E+01 + 5.61309E+00 4.84503E+01 5.61309E+00 3.47054E-01 1.32100E-02 + 3.47026E-01 1.32109E-02 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 2.03065E+01 1.35773E+00 2.03065E+01 1.35773E+00 + 4.84525E+01 5.61294E+00 4.84525E+01 5.61294E+00 3.48002E-01 + 1.31550E-02 3.48002E-01 1.31550E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 2.03053E+01 1.35776E+00 2.03053E+01 + 1.35776E+00 4.84539E+01 5.61309E+00 4.84539E+01 5.61309E+00 + 3.48971E-01 1.30989E-02 3.48985E-01 1.30980E-02 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 2.03056E+01 1.35778E+00 + 2.03047E+01 1.35784E+00 4.84525E+01 5.61316E+00 4.84525E+01 + 5.61316E+00 3.49933E-01 1.30438E-02 3.49933E-01 1.30438E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 2.03062E+01 + 1.35771E+00 2.03062E+01 1.35771E+00 4.84574E+01 5.61287E+00 + 4.84574E+01 5.61287E+00 3.50915E-01 1.29878E-02 3.50915E-01 + 1.29878E-02 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 2.03047E+01 1.35778E+00 2.03047E+01 1.35778E+00 4.84490E+01 + 5.61316E+00 4.84490E+01 5.61316E+00 3.51864E-01 1.29336E-02 + 3.51864E-01 1.29336E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 2.03044E+01 1.35782E+00 2.03044E+01 1.35782E+00 + 4.84539E+01 5.61309E+00 4.84539E+01 5.61309E+00 3.52819E-01 + 1.28792E-02 3.52819E-01 1.28792E-02 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 2.03056E+01 1.35773E+00 2.03065E+01 + 1.35767E+00 4.84525E+01 5.61316E+00 4.84525E+01 5.61316E+00 + 3.53795E-01 1.28242E-02 3.53781E-01 1.28251E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 2.03053E+01 1.35776E+00 + 2.03044E+01 1.35782E+00 4.84539E+01 5.61309E+00 4.84539E+01 + 5.61309E+00 3.54722E-01 1.27716E-02 3.54750E-01 1.27707E-02 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 2.03062E+01 + 1.35771E+00 2.03062E+01 1.35771E+00 4.84539E+01 5.61309E+00 + 4.84539E+01 5.61309E+00 3.55666E-01 1.27186E-02 3.55666E-01 + 1.27186E-02 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 2.03047E+01 1.35784E+00 2.03056E+01 1.35778E+00 4.84525E+01 + 5.61294E+00 4.84525E+01 5.61294E+00 3.56629E-01 1.26644E-02 + 3.56615E-01 1.26653E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 2.03053E+01 1.35776E+00 2.03053E+01 1.35776E+00 + 4.84503E+01 5.61309E+00 4.84503E+01 5.61309E+00 3.57583E-01 + 1.26118E-02 3.57583E-01 1.26118E-02 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 2.03065E+01 1.35767E+00 2.03056E+01 + 1.35773E+00 4.84561E+01 5.61294E+00 4.84561E+01 5.61294E+00 + 3.58518E-01 1.25603E-02 3.58532E-01 1.25594E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 2.03044E+01 1.35782E+00 + 2.03044E+01 1.35782E+00 4.84468E+01 5.61331E+00 4.84468E+01 + 5.61331E+00 3.59473E-01 1.25076E-02 3.59473E-01 1.25076E-02 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 2.03047E+01 + 1.35778E+00 2.03047E+01 1.35778E+00 4.84525E+01 5.61294E+00 + 4.84525E+01 5.61294E+00 3.60407E-01 1.24561E-02 3.60407E-01 + 1.24561E-02 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 2.03071E+01 1.35771E+00 2.03079E+01 1.35765E+00 4.84574E+01 + 5.61287E+00 4.84574E+01 5.61287E+00 3.61334E-01 1.24043E-02 + 3.61320E-01 1.24052E-02 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 2.03056E+01 1.35773E+00 2.03056E+01 1.35773E+00 + 4.84454E+01 5.61338E+00 4.84454E+01 5.61338E+00 3.62296E-01 + 1.23528E-02 3.62296E-01 1.23528E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 2.03035E+01 1.35788E+00 2.03026E+01 + 1.35788E+00 4.84539E+01 5.61309E+00 4.84539E+01 5.61309E+00 + 3.63210E-01 1.23027E-02 3.63210E-01 1.23027E-02 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 2.03065E+01 1.35767E+00 + 2.03056E+01 1.35773E+00 4.84561E+01 5.61294E+00 4.84561E+01 + 5.61294E+00 3.64130E-01 1.22529E-02 3.64144E-01 1.22520E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03062E+01 + 1.35771E+00 2.03062E+01 1.35771E+00 4.84503E+01 5.61309E+00 + 4.84503E+01 5.61309E+00 3.65085E-01 1.22012E-02 3.65085E-01 + 1.22012E-02 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 2.03047E+01 1.35778E+00 2.03047E+01 1.35778E+00 4.84561E+01 + 5.61294E+00 4.84561E+01 5.61294E+00 3.65992E-01 1.21522E-02 + 3.65992E-01 1.21522E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 2.03044E+01 1.35782E+00 2.03044E+01 1.35782E+00 + 4.84468E+01 5.61331E+00 4.84468E+01 5.61331E+00 3.66946E-01 + 1.21013E-02 3.66946E-01 1.21013E-02 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 2.03074E+01 1.35767E+00 2.03074E+01 + 1.35767E+00 4.84561E+01 5.61294E+00 4.84561E+01 5.61294E+00 + 3.67825E-01 1.20541E-02 3.67825E-01 1.20541E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 2.03044E+01 1.35782E+00 + 2.03053E+01 1.35776E+00 6.77309E+02 -2.78716E+01 6.77309E+02 + -2.78716E+01 3.68780E-01 1.20032E-02 3.68752E-01 1.20041E-02 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 2.03053E+01 + 1.35776E+00 2.03044E+01 1.35782E+00 1.51955E+02 0.00000E+00 + 1.51955E+02 0.00000E+00 3.69669E-01 1.19563E-02 3.69683E-01 + 1.19554E-02 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 2.03056E+01 1.35778E+00 2.03056E+01 1.35778E+00 1.51954E+02 + 0.00000E+00 1.51954E+02 0.00000E+00 3.70603E-01 1.19065E-02 + 3.70603E-01 1.19065E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 2.03053E+01 1.35776E+00 2.03053E+01 1.35776E+00 + 1.51958E+02 -2.22265E-04 1.51958E+02 -2.22265E-04 3.71489E-01 + 1.18599E-02 3.71489E-01 1.18599E-02 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 2.03047E+01 1.35778E+00 2.03047E+01 + 1.35778E+00 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 + 3.72423E-01 1.18110E-02 3.72423E-01 1.18110E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 2.03053E+01 1.35776E+00 + 2.03053E+01 1.35776E+00 1.51955E+02 0.00000E+00 1.51955E+02 + 0.00000E+00 3.73309E-01 1.17644E-02 3.73309E-01 1.17644E-02 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 2.03065E+01 + 1.35773E+00 2.03065E+01 1.35773E+00 1.51954E+02 0.00000E+00 + 1.51954E+02 0.00000E+00 3.74243E-01 1.17164E-02 3.74243E-01 + 1.17164E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 2.03062E+01 1.35771E+00 2.03062E+01 1.35771E+00 1.51958E+02 + -2.22265E-04 1.51958E+02 -2.22265E-04 3.75115E-01 1.16707E-02 + 3.75115E-01 1.16707E-02 1.00000E+00 0.00000E+00 1.00002E+01 + 0.00000E+00 2.03047E+01 1.35778E+00 2.03047E+01 1.35778E+00 + 1.51958E+02 -2.22259E-04 1.51958E+02 -2.22259E-04 3.76049E-01 + 1.16226E-02 3.76049E-01 1.16226E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 2.03044E+01 1.35782E+00 2.03044E+01 + 1.35782E+00 1.51955E+02 0.00000E+00 1.51955E+02 0.00000E+00 + 3.76948E-01 1.15760E-02 3.76948E-01 1.15760E-02 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 2.03074E+01 1.35767E+00 + 2.03074E+01 1.35767E+00 1.51954E+02 0.00000E+00 1.51954E+02 + 0.00000E+00 3.77827E-01 1.15314E-02 3.77827E-01 1.15314E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03044E+01 + 1.35782E+00 2.03044E+01 1.35782E+00 1.51955E+02 0.00000E+00 + 1.51955E+02 0.00000E+00 3.78726E-01 1.14849E-02 3.78726E-01 + 1.14849E-02 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 2.03065E+01 1.35767E+00 2.03065E+01 1.35767E+00 1.51954E+02 + 0.00000E+00 1.51954E+02 0.00000E+00 3.79633E-01 1.14394E-02 + 3.79633E-01 1.14394E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 2.03035E+01 1.35782E+00 2.03035E+01 1.35782E+00 + 1.51951E+02 0.00000E+00 1.51951E+02 0.00000E+00 3.80505E-01 + 1.13946E-02 3.80505E-01 1.13946E-02 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 2.03047E+01 1.35778E+00 2.03047E+01 + 1.35778E+00 1.51961E+02 -2.22259E-04 1.51961E+02 -2.22259E-04 + 3.81397E-01 1.13491E-02 3.81397E-01 1.13491E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 2.03062E+01 1.35771E+00 + 2.03062E+01 1.35771E+00 1.51955E+02 0.00000E+00 1.51955E+02 + 0.00000E+00 3.82283E-01 1.13043E-02 3.82283E-01 1.13043E-02 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 2.03047E+01 + 1.35778E+00 2.03047E+01 1.35778E+00 1.51958E+02 -2.22259E-04 + 1.51958E+02 -2.22259E-04 3.83161E-01 1.12597E-02 3.83161E-01 + 1.12597E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 2.03044E+01 1.35782E+00 2.03044E+01 1.35782E+00 1.51955E+02 + 0.00000E+00 1.51955E+02 0.00000E+00 3.84061E-01 1.12149E-02 + 3.84061E-01 1.12149E-02 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 2.03062E+01 1.35771E+00 2.03062E+01 1.35771E+00 + 1.51955E+02 0.00000E+00 1.51955E+02 0.00000E+00 3.84908E-01 + 1.11723E-02 3.84908E-01 1.11723E-02 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 2.03047E+01 1.35778E+00 2.03047E+01 + 1.35778E+00 1.51961E+02 -2.22259E-04 1.51961E+02 -2.22259E-04 + 3.85842E-01 1.11269E-02 3.85842E-01 1.11269E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 2.03062E+01 1.35771E+00 + 2.03062E+01 1.35771E+00 1.51951E+02 0.00000E+00 1.51951E+02 + 0.00000E+00 3.86659E-01 1.10864E-02 3.86659E-01 1.10864E-02 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 2.03056E+01 + 1.35778E+00 2.03056E+01 1.35778E+00 1.51954E+02 0.00000E+00 + 1.51954E+02 0.00000E+00 3.87565E-01 1.10409E-02 3.87565E-01 + 1.10409E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 2.03035E+01 1.35782E+00 2.03035E+01 1.35782E+00 1.51962E+02 + -4.44531E-04 1.51962E+02 -4.44531E-04 3.88451E-01 1.09978E-02 + 3.88451E-01 1.09978E-02 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 2.03056E+01 1.35773E+00 2.03056E+01 1.35773E+00 + 1.51951E+02 2.22259E-04 1.51951E+02 2.22259E-04 3.89287E-01 + 1.09567E-02 3.89287E-01 1.09567E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 2.03062E+01 1.35771E+00 2.03062E+01 + 1.35771E+00 1.51955E+02 0.00000E+00 1.51955E+02 0.00000E+00 + 3.90173E-01 1.09127E-02 3.90173E-01 1.09127E-02 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 2.03038E+01 1.35784E+00 + 2.03038E+01 1.35784E+00 1.51958E+02 -2.22259E-04 1.51958E+02 + -2.22259E-04 3.91037E-01 1.08707E-02 3.91037E-01 1.08707E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 2.03062E+01 + 1.35771E+00 2.03062E+01 1.35771E+00 1.51955E+02 0.00000E+00 + 1.51955E+02 0.00000E+00 3.91896E-01 1.08294E-02 3.91896E-01 + 1.08294E-02 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 2.03047E+01 1.35778E+00 2.03047E+01 1.35778E+00 1.51961E+02 + -2.22259E-04 1.51961E+02 -2.22259E-04 3.92746E-01 1.07874E-02 + 3.92746E-01 1.07874E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 2.03062E+01 1.35771E+00 2.03062E+01 1.35771E+00 + 1.51948E+02 2.22265E-04 1.51948E+02 2.22265E-04 3.93604E-01 + 1.07469E-02 3.93604E-01 1.07469E-02 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 2.03047E+01 1.35778E+00 2.03047E+01 + 1.35778E+00 1.51961E+02 -2.22259E-04 1.51961E+02 -2.22259E-04 + 3.94455E-01 1.07049E-02 3.94455E-01 1.07049E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 2.03035E+01 1.35782E+00 + 2.03035E+01 1.35782E+00 1.51958E+02 -2.22265E-04 1.51958E+02 + -2.22265E-04 3.95341E-01 1.06627E-02 3.95341E-01 1.06627E-02 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 2.03074E+01 + 1.35767E+00 2.03074E+01 1.35767E+00 1.51954E+02 0.00000E+00 + 1.51954E+02 0.00000E+00 3.96149E-01 1.06242E-02 3.96149E-01 + 1.06242E-02 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 2.03044E+01 1.35782E+00 2.03044E+01 1.35782E+00 1.51955E+02 + 0.00000E+00 1.51955E+02 0.00000E+00 3.97022E-01 1.05828E-02 + 3.97022E-01 1.05828E-02 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 2.03056E+01 1.35778E+00 2.03056E+01 1.35778E+00 + 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 3.97886E-01 + 1.05417E-02 3.97886E-01 1.05417E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 2.03062E+01 1.35771E+00 2.03062E+01 + 1.35771E+00 1.51955E+02 0.00000E+00 1.51955E+02 0.00000E+00 + 3.98730E-01 1.05020E-02 3.98730E-01 1.05020E-02 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 2.03062E+01 1.35771E+00 + 2.03062E+01 1.35771E+00 1.51951E+02 0.00000E+00 1.51951E+02 + 0.00000E+00 3.99564E-01 1.04621E-02 3.99564E-01 1.04621E-02 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 2.03056E+01 + 1.35778E+00 2.03056E+01 1.35778E+00 1.51961E+02 -2.22259E-04 + 1.51961E+02 -2.22259E-04 4.00414E-01 1.04219E-02 4.00414E-01 + 1.04219E-02 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 2.03079E+01 1.35771E+00 2.03079E+01 1.35771E+00 1.51955E+02 + 0.00000E+00 1.51955E+02 0.00000E+00 4.01217E-01 1.03848E-02 + 4.01217E-01 1.03848E-02 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 2.03038E+01 1.35784E+00 2.03038E+01 1.35784E+00 + 1.51965E+02 -4.44519E-04 1.51965E+02 -4.44519E-04 4.02095E-01 + 1.03437E-02 4.02095E-01 1.03437E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 2.03044E+01 1.35776E+00 2.03044E+01 + 1.35776E+00 1.51948E+02 2.22265E-04 1.51948E+02 2.22265E-04 + 4.02912E-01 1.03058E-02 4.02912E-01 1.03058E-02 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 2.03056E+01 1.35778E+00 + 2.03056E+01 1.35778E+00 1.51961E+02 -2.22259E-04 1.51961E+02 + -2.22259E-04 4.03748E-01 1.02665E-02 4.03748E-01 1.02665E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 2.03079E+01 + 1.35771E+00 2.03079E+01 1.35771E+00 1.51955E+02 0.00000E+00 + 1.51955E+02 0.00000E+00 4.04565E-01 1.02286E-02 4.04565E-01 + 1.02286E-02 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 2.03056E+01 1.35778E+00 2.03056E+01 1.35778E+00 1.51954E+02 + 0.00000E+00 1.51954E+02 0.00000E+00 4.05429E-01 1.01892E-02 + 4.05429E-01 1.01892E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 2.03079E+01 1.35771E+00 2.03079E+01 1.35771E+00 + 1.51955E+02 0.00000E+00 1.51955E+02 0.00000E+00 4.06204E-01 + 1.01530E-02 4.06204E-01 1.01530E-02 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 2.03056E+01 1.35778E+00 2.03056E+01 + 1.35778E+00 1.51958E+02 -2.22259E-04 1.51958E+02 -2.22259E-04 + 4.07068E-01 1.01137E-02 4.07068E-01 1.01137E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 2.03044E+01 1.35782E+00 + 2.03044E+01 1.35782E+00 1.51951E+02 0.00000E+00 1.51951E+02 + 0.00000E+00 4.07913E-01 1.00749E-02 4.07913E-01 1.00749E-02 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 2.03074E+01 + 1.35767E+00 2.03074E+01 1.35767E+00 1.51958E+02 -2.22259E-04 + 1.51958E+02 -2.22259E-04 4.08679E-01 1.00399E-02 4.08679E-01 + 1.00399E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 2.03044E+01 1.35782E+00 2.03044E+01 1.35782E+00 1.51955E+02 + 0.00000E+00 1.51955E+02 0.00000E+00 4.09538E-01 1.00011E-02 + 4.09538E-01 1.00011E-02 1.00000E+00 0.00000E+00 1.00002E+01 + 0.00000E+00 2.03056E+01 1.35773E+00 2.03056E+01 1.35773E+00 + 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 4.10332E-01 + 9.96520E-03 4.10332E-01 9.96520E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 2.03044E+01 1.35776E+00 2.03044E+01 + 1.35776E+00 1.51958E+02 -2.22265E-04 1.51958E+02 -2.22265E-04 + 4.11149E-01 9.92815E-03 4.11149E-01 9.92815E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 2.03026E+01 1.35782E+00 + 2.03026E+01 1.35782E+00 1.51948E+02 2.22265E-04 1.51948E+02 + 2.22265E-04 4.11983E-01 9.89081E-03 4.11983E-01 9.89081E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 2.03074E+01 + 1.35767E+00 2.03074E+01 1.35767E+00 1.51961E+02 -2.22259E-04 + 1.51961E+02 -2.22259E-04 4.12777E-01 9.85494E-03 4.12777E-01 + 9.85494E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 2.03062E+01 1.35776E+00 2.03062E+01 1.35776E+00 1.51958E+02 + -2.22265E-04 1.51958E+02 -2.22265E-04 4.13594E-01 9.81875E-03 + 4.13594E-01 9.81875E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 2.03038E+01 1.35784E+00 2.03038E+01 1.35784E+00 + 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 4.14402E-01 + 9.78201E-03 4.14402E-01 9.78201E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 2.03079E+01 1.35771E+00 2.03079E+01 + 1.35771E+00 1.51955E+02 0.00000E+00 1.51955E+02 0.00000E+00 + 4.15192E-01 9.74756E-03 4.15192E-01 9.74756E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 2.03056E+01 1.35778E+00 + 2.03056E+01 1.35778E+00 1.51954E+02 0.00000E+00 1.51954E+02 + 0.00000E+00 4.16014E-01 9.71082E-03 4.16014E-01 9.71082E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03062E+01 + 1.35771E+00 2.03062E+01 1.35771E+00 1.51951E+02 0.00000E+00 + 1.51951E+02 0.00000E+00 4.16803E-01 9.67549E-03 4.16803E-01 + 9.67549E-03 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 2.03038E+01 1.35778E+00 2.03038E+01 1.35778E+00 1.51958E+02 + -2.22259E-04 1.51958E+02 -2.22259E-04 4.17583E-01 9.64136E-03 + 4.17583E-01 9.64136E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 2.03044E+01 1.35782E+00 2.03044E+01 1.35782E+00 + 1.51955E+02 0.00000E+00 1.51955E+02 0.00000E+00 4.18429E-01 + 9.60430E-03 4.18429E-01 9.60430E-03 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 2.03056E+01 1.35778E+00 2.03056E+01 + 1.35778E+00 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 + 4.19195E-01 9.57104E-03 4.19195E-01 9.57104E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 2.03062E+01 1.35771E+00 + 2.03062E+01 1.35771E+00 1.51966E+02 -4.44531E-04 1.51966E+02 + -4.44531E-04 4.19984E-01 9.53658E-03 4.19984E-01 9.53658E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 2.03038E+01 + 1.35778E+00 2.03038E+01 1.35778E+00 1.51951E+02 2.22259E-04 + 1.51951E+02 2.22259E-04 4.20778E-01 9.50158E-03 4.20778E-01 + 9.50158E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 2.03062E+01 1.35776E+00 2.03062E+01 1.35776E+00 1.51958E+02 + -2.22265E-04 1.51958E+02 -2.22265E-04 4.21568E-01 9.46799E-03 + 4.21568E-01 9.46799E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 2.03074E+01 1.35773E+00 2.03074E+01 1.35773E+00 + 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 4.22362E-01 + 9.43300E-03 4.22362E-01 9.43300E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 2.03026E+01 1.35782E+00 2.03026E+01 + 1.35782E+00 1.51951E+02 0.00000E+00 1.51951E+02 0.00000E+00 + 4.23166E-01 9.39853E-03 4.23166E-01 9.39853E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 2.03062E+01 1.35771E+00 + 2.03062E+01 1.35771E+00 1.51955E+02 0.00000E+00 1.51955E+02 + 0.00000E+00 4.23944E-01 9.36467E-03 4.23944E-01 9.36467E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 2.03056E+01 + 1.35773E+00 2.03056E+01 1.35773E+00 1.51958E+02 -2.22259E-04 + 1.51958E+02 -2.22259E-04 4.24682E-01 9.33315E-03 4.24682E-01 + 9.33315E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 2.03062E+01 1.35776E+00 2.03062E+01 1.35776E+00 1.51948E+02 + 2.22265E-04 1.51948E+02 2.22265E-04 4.25499E-01 9.29868E-03 + 4.25499E-01 9.29868E-03 1.00000E+00 0.00000E+00 1.00002E+01 + 0.00000E+00 2.03056E+01 1.35778E+00 2.03056E+01 1.35778E+00 + 1.51965E+02 -4.44519E-04 1.51965E+02 -4.44519E-04 4.26279E-01 + 9.26543E-03 4.26279E-01 9.26543E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 2.03044E+01 1.35782E+00 2.03044E+01 + 1.35782E+00 1.51955E+02 0.00000E+00 1.51955E+02 0.00000E+00 + 4.27069E-01 9.23183E-03 4.27069E-01 9.23183E-03 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 2.03074E+01 1.35767E+00 + 2.03074E+01 1.35767E+00 1.51954E+02 0.00000E+00 1.51954E+02 + 0.00000E+00 4.27794E-01 9.20032E-03 4.27794E-01 9.20032E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03062E+01 + 1.35776E+00 2.03062E+01 1.35776E+00 1.51962E+02 -2.22265E-04 + 1.51962E+02 -2.22265E-04 4.28611E-01 9.16671E-03 4.28611E-01 + 9.16671E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 2.03038E+01 1.35784E+00 2.03038E+01 1.35784E+00 1.51947E+02 + 2.22259E-04 1.51947E+02 2.22259E-04 4.29363E-01 9.13433E-03 + 4.29363E-01 9.13433E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 2.03079E+01 1.35771E+00 2.03079E+01 1.35771E+00 + 1.51958E+02 -2.22265E-04 1.51958E+02 -2.22265E-04 4.30125E-01 + 9.10246E-03 4.30125E-01 9.10246E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 2.03056E+01 1.35778E+00 2.03056E+01 + 1.35778E+00 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 + 4.30891E-01 9.07009E-03 4.30891E-01 9.07009E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 2.03079E+01 1.35771E+00 + 2.03079E+01 1.35771E+00 1.51955E+02 0.00000E+00 1.51955E+02 + 0.00000E+00 4.31653E-01 9.03822E-03 4.31653E-01 9.03822E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 2.03056E+01 + 1.35778E+00 2.03056E+01 1.35778E+00 1.51961E+02 -2.22259E-04 + 1.51961E+02 -2.22259E-04 4.32461E-01 9.00497E-03 4.32461E-01 + 9.00497E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 2.03044E+01 1.35776E+00 2.03044E+01 1.35776E+00 1.51955E+02 + 0.00000E+00 1.51955E+02 0.00000E+00 4.33154E-01 8.97570E-03 + 4.33154E-01 8.97570E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 2.03056E+01 1.35778E+00 2.03056E+01 1.35778E+00 + 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 4.33947E-01 + 8.94333E-03 4.33947E-01 8.94333E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 2.03079E+01 1.35771E+00 2.03079E+01 + 1.35771E+00 1.51966E+02 -4.44531E-04 1.51966E+02 -4.44531E-04 + 4.34710E-01 8.91146E-03 4.34710E-01 8.91146E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 2.03038E+01 1.35784E+00 + 2.03038E+01 1.35784E+00 1.51944E+02 4.44519E-04 1.51944E+02 + 4.44519E-04 4.35448E-01 8.88169E-03 4.35448E-01 8.88169E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 2.03079E+01 + 1.35771E+00 2.03079E+01 1.35771E+00 1.51966E+02 -4.44531E-04 + 1.51966E+02 -4.44531E-04 4.36238E-01 8.84894E-03 4.36238E-01 + 8.84894E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 2.03044E+01 1.35782E+00 2.03044E+01 1.35782E+00 1.51958E+02 + -2.22265E-04 1.51958E+02 -2.22265E-04 4.36960E-01 8.81942E-03 + 4.36960E-01 8.81942E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 2.03020E+01 1.35789E+00 2.03020E+01 1.35789E+00 + 1.51944E+02 4.44519E-04 1.51944E+02 4.44519E-04 4.37698E-01 + 8.78879E-03 4.37698E-01 8.78879E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 2.03062E+01 1.35771E+00 2.03062E+01 + 1.35771E+00 1.51966E+02 -4.44531E-04 1.51966E+02 -4.44531E-04 + 4.38474E-01 8.75778E-03 4.38474E-01 8.75778E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 2.03056E+01 1.35778E+00 + 2.03056E+01 1.35778E+00 1.51954E+02 0.00000E+00 1.51954E+02 + 0.00000E+00 4.39212E-01 8.72715E-03 4.39212E-01 8.72715E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 2.03062E+01 + 1.35771E+00 2.03062E+01 1.35771E+00 1.51955E+02 0.00000E+00 + 1.51955E+02 0.00000E+00 4.39947E-01 8.69787E-03 4.39947E-01 + 8.69787E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 2.03074E+01 1.35767E+00 2.03074E+01 1.35767E+00 1.51958E+02 + -2.22259E-04 1.51958E+02 -2.22259E-04 4.40712E-01 8.66637E-03 + 4.40712E-01 8.66637E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 2.03026E+01 1.35782E+00 2.03026E+01 1.35782E+00 + 1.51951E+02 0.00000E+00 1.51951E+02 0.00000E+00 4.41447E-01 + 8.63796E-03 4.41447E-01 8.63796E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 2.03056E+01 1.35778E+00 2.03056E+01 + 1.35778E+00 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 + 4.42185E-01 8.60734E-03 4.42185E-01 8.60734E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 2.03026E+01 1.35782E+00 + 2.03026E+01 1.35782E+00 1.51958E+02 -2.22265E-04 1.51958E+02 + -2.22265E-04 4.42919E-01 8.57806E-03 4.42919E-01 8.57806E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 2.03074E+01 + 1.35773E+00 2.03074E+01 1.35773E+00 1.51951E+02 2.22259E-04 + 1.51951E+02 2.22259E-04 4.43630E-01 8.54917E-03 4.43630E-01 + 8.54917E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 2.03062E+01 1.35776E+00 2.03062E+01 1.35776E+00 1.51958E+02 + -2.22265E-04 1.51958E+02 -2.22265E-04 4.44364E-01 8.51989E-03 + 4.44364E-01 8.51989E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 2.03056E+01 1.35778E+00 2.03056E+01 1.35778E+00 + 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 4.45130E-01 + 8.49013E-03 4.45130E-01 8.49013E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 2.03062E+01 1.35771E+00 2.03062E+01 + 1.35771E+00 1.51955E+02 0.00000E+00 1.51955E+02 0.00000E+00 + 4.45864E-01 8.46085E-03 4.45864E-01 8.46085E-03 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 2.03056E+01 1.35778E+00 + 2.03056E+01 1.35778E+00 1.51965E+02 -4.44519E-04 1.51965E+02 + -4.44519E-04 4.46574E-01 8.43283E-03 4.46574E-01 8.43283E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03062E+01 + 1.35771E+00 2.03062E+01 1.35771E+00 1.51951E+02 2.22265E-04 + 1.51951E+02 2.22265E-04 4.47309E-01 8.40354E-03 4.47309E-01 + 8.40354E-03 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 2.03038E+01 1.35778E+00 2.03038E+01 1.35778E+00 1.51958E+02 + -2.22259E-04 1.51958E+02 -2.22259E-04 4.48047E-01 8.37553E-03 + 4.48047E-01 8.37553E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 2.03026E+01 1.35782E+00 2.03026E+01 1.35782E+00 + 1.51951E+02 0.00000E+00 1.51951E+02 0.00000E+00 4.48726E-01 + 8.34798E-03 4.48726E-01 8.34798E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 2.03062E+01 1.35776E+00 2.03062E+01 + 1.35776E+00 1.51955E+02 0.00000E+00 1.51955E+02 0.00000E+00 + 4.49504E-01 8.31846E-03 4.49504E-01 8.31846E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 2.03074E+01 1.35773E+00 + 2.03074E+01 1.35773E+00 1.51954E+02 0.00000E+00 1.51954E+02 + 0.00000E+00 4.50214E-01 8.29044E-03 4.50214E-01 8.29044E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03044E+01 + 1.35782E+00 2.03044E+01 1.35782E+00 1.51966E+02 -4.44531E-04 + 1.51966E+02 -4.44531E-04 4.50921E-01 8.26289E-03 4.50921E-01 + 8.26289E-03 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 2.03056E+01 1.35778E+00 2.03056E+01 1.35778E+00 1.51944E+02 + 4.44519E-04 1.51944E+02 4.44519E-04 4.51659E-01 8.23401E-03 + 4.51659E-01 8.23401E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 2.03079E+01 1.35771E+00 2.03079E+01 1.35771E+00 + 1.51966E+02 -4.44531E-04 1.51966E+02 -4.44531E-04 4.52338E-01 + 8.20732E-03 4.52338E-01 8.20732E-03 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 2.03038E+01 1.35778E+00 2.03038E+01 + 1.35778E+00 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 + 4.53048E-01 8.18018E-03 4.53048E-01 8.18018E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 2.03062E+01 1.35771E+00 + 2.03062E+01 1.35771E+00 1.51955E+02 0.00000E+00 1.51955E+02 + 0.00000E+00 4.53783E-01 8.15263E-03 4.53783E-01 8.15263E-03 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 2.03056E+01 + 1.35778E+00 2.03056E+01 1.35778E+00 1.51961E+02 -2.22259E-04 + 1.51961E+02 -2.22259E-04 4.54492E-01 8.12549E-03 4.54492E-01 + 8.12549E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 2.03079E+01 1.35771E+00 2.03079E+01 1.35771E+00 1.51955E+02 + 0.00000E+00 1.51955E+02 0.00000E+00 4.55200E-01 8.09793E-03 + 4.55200E-01 8.09793E-03 1.00000E+00 0.00000E+00 1.00002E+01 + 0.00000E+00 2.03038E+01 1.35778E+00 2.03038E+01 1.35778E+00 + 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 4.55909E-01 + 8.07079E-03 4.55909E-01 8.07079E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 2.03044E+01 1.35782E+00 2.03044E+01 + 1.35782E+00 1.51962E+02 -2.22265E-04 1.51962E+02 -2.22265E-04 + 4.56589E-01 8.04497E-03 4.56589E-01 8.04497E-03 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 2.03056E+01 1.35773E+00 + 2.03056E+01 1.35773E+00 1.51947E+02 2.22259E-04 1.51947E+02 + 2.22259E-04 4.57326E-01 8.01696E-03 4.57326E-01 8.01696E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03044E+01 + 1.35782E+00 2.03044E+01 1.35782E+00 1.51958E+02 -2.22265E-04 + 1.51958E+02 -2.22265E-04 4.58006E-01 7.99114E-03 4.58006E-01 + 7.99114E-03 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 2.03074E+01 1.35767E+00 2.03074E+01 1.35767E+00 1.51961E+02 + -2.22259E-04 1.51961E+02 -2.22259E-04 4.58715E-01 7.96400E-03 + 4.58715E-01 7.96400E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 2.03044E+01 1.35776E+00 2.03044E+01 1.35776E+00 + 1.51948E+02 2.22265E-04 1.51948E+02 2.22265E-04 4.59395E-01 + 7.93818E-03 4.59395E-01 7.93818E-03 1.00000E+00 0.00000E+00 + 9.99972E+00 0.00000E+00 2.03062E+01 1.35771E+00 2.03062E+01 + 1.35771E+00 1.51958E+02 -2.22265E-04 1.51958E+02 -2.22265E-04 + 4.60089E-01 7.91300E-03 4.60089E-01 7.91300E-03 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 2.03020E+01 1.35789E+00 + 2.03020E+01 1.35789E+00 1.51951E+02 0.00000E+00 1.51951E+02 + 0.00000E+00 4.60799E-01 7.88586E-03 4.60799E-01 7.88586E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03062E+01 + 1.35771E+00 2.03062E+01 1.35771E+00 1.51955E+02 0.00000E+00 + 1.51955E+02 0.00000E+00 4.61506E-01 7.85917E-03 4.61506E-01 + 7.85917E-03 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 2.03056E+01 1.35778E+00 2.03056E+01 1.35778E+00 1.51965E+02 + -4.44519E-04 1.51965E+02 -4.44519E-04 4.62188E-01 7.83464E-03 + 4.62188E-01 7.83464E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 2.03062E+01 1.35776E+00 2.03062E+01 1.35776E+00 + 1.51955E+02 0.00000E+00 1.51955E+02 0.00000E+00 4.62896E-01 + 7.80881E-03 4.62896E-01 7.80881E-03 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 2.03056E+01 1.35773E+00 2.03056E+01 + 1.35773E+00 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 + 4.63577E-01 7.78255E-03 4.63577E-01 7.78255E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 2.03062E+01 1.35776E+00 + 2.03062E+01 1.35776E+00 1.51951E+02 0.00000E+00 1.51951E+02 + 0.00000E+00 4.64257E-01 7.75759E-03 4.64257E-01 7.75759E-03 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 2.03038E+01 + 1.35784E+00 2.03038E+01 1.35784E+00 1.51954E+02 0.00000E+00 + 1.51954E+02 0.00000E+00 4.64939E-01 7.73219E-03 4.64939E-01 + 7.73219E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 2.03026E+01 1.35788E+00 2.03026E+01 1.35788E+00 1.51951E+02 + 0.00000E+00 1.51951E+02 0.00000E+00 4.65618E-01 7.70723E-03 + 4.65618E-01 7.70723E-03 1.00000E+00 0.00000E+00 9.99972E+00 + 0.00000E+00 2.03074E+01 1.35767E+00 2.03074E+01 1.35767E+00 + 1.51954E+02 -2.22259E-04 1.51954E+02 -2.22259E-04 4.66300E-01 + 7.68270E-03 4.66300E-01 7.68270E-03 1.00000E+00 0.00000E+00 + 1.00003E+01 0.00000E+00 2.03062E+01 1.35771E+00 2.03062E+01 + 1.35771E+00 1.51951E+02 2.22265E-04 1.51951E+02 2.22265E-04 + 4.66980E-01 7.65687E-03 4.66980E-01 7.65687E-03 1.00000E+00 + 0.00000E+00 9.99972E+00 0.00000E+00 2.03020E+01 1.35784E+00 + 2.03020E+01 1.35784E+00 1.51976E+02 -6.66778E-04 1.51976E+02 + -6.66778E-04 4.67661E-01 7.63235E-03 4.67661E-01 7.63235E-03 + 1.00000E+00 0.00000E+00 1.00003E+01 0.00000E+00 2.03044E+01 + 1.35776E+00 2.03044E+01 1.35776E+00 1.51944E+02 2.22265E-04 + 1.51944E+02 2.22265E-04 4.68341E-01 7.60825E-03 4.68341E-01 + 7.60825E-03 1.00000E+00 0.00000E+00 9.99972E+00 0.00000E+00 + 2.03056E+01 1.35773E+00 2.03056E+01 1.35773E+00 1.51961E+02 + -2.22259E-04 1.51961E+02 -2.22259E-04 4.69023E-01 7.58286E-03 + 4.69023E-01 7.58286E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 2.03044E+01 1.35782E+00 2.03044E+01 1.35782E+00 + 1.51958E+02 0.00000E+00 1.51958E+02 0.00000E+00 4.69675E-01 + 7.55876E-03 4.69675E-01 7.55876E-03 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 2.03062E+01 1.35771E+00 2.03062E+01 + 1.35771E+00 1.51951E+02 0.00000E+00 1.51951E+02 0.00000E+00 + 4.70369E-01 7.53445E-03 4.70369E-01 7.53445E-03 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 2.03056E+01 1.35778E+00 + 2.03056E+01 1.35778E+00 1.51954E+02 0.00000E+00 1.51954E+02 + 0.00000E+00 4.71023E-01 7.50993E-03 4.71023E-01 7.50993E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03044E+01 + 1.35782E+00 2.03044E+01 1.35782E+00 1.51966E+02 -4.44531E-04 + 1.51966E+02 -4.44531E-04 4.71675E-01 7.48670E-03 4.71675E-01 + 7.48670E-03 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 2.03056E+01 1.35778E+00 2.03056E+01 1.35778E+00 1.51947E+02 + 4.44519E-04 1.51947E+02 4.44519E-04 4.72384E-01 7.46131E-03 + 4.72384E-01 7.46131E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 2.03079E+01 1.35771E+00 2.03079E+01 1.35771E+00 + 1.51958E+02 -2.22265E-04 1.51958E+02 -2.22265E-04 4.73064E-01 + 7.43721E-03 4.73064E-01 7.43721E-03 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 2.03056E+01 1.35778E+00 2.03056E+01 + 1.35778E+00 1.51961E+02 -2.22259E-04 1.51961E+02 -2.22259E-04 + 4.73634E-01 7.41617E-03 4.73634E-01 7.41617E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 2.03026E+01 1.35782E+00 + 2.03026E+01 1.35782E+00 1.51944E+02 2.22265E-04 1.51944E+02 + 2.22265E-04 4.74398E-01 7.39033E-03 4.74398E-01 7.39033E-03 + 1.00000E+00 0.00000E+00 9.99972E+00 0.00000E+00 2.03092E+01 + 1.35767E+00 2.03092E+01 1.35767E+00 1.51968E+02 -4.44519E-04 + 1.51968E+02 -4.44519E-04 4.75024E-01 7.36755E-03 4.75024E-01 + 7.36755E-03 1.00000E+00 0.00000E+00 1.00003E+01 0.00000E+00 + 2.03026E+01 1.35782E+00 2.03026E+01 1.35782E+00 1.51951E+02 + 2.22265E-04 1.51951E+02 2.22265E-04 4.75704E-01 7.34344E-03 + 4.75704E-01 7.34344E-03 1.00000E+00 0.00000E+00 9.99972E+00 + 0.00000E+00 2.03038E+01 1.35778E+00 2.03038E+01 1.35778E+00 + 1.51961E+02 -2.22259E-04 1.51961E+02 -2.22259E-04 4.76329E-01 + 7.32066E-03 4.76329E-01 7.32066E-03 1.00000E+00 0.00000E+00 + 1.00003E+01 0.00000E+00 2.03062E+01 1.35771E+00 2.03062E+01 + 1.35771E+00 1.51958E+02 -2.22265E-04 1.51958E+02 -2.22265E-04 + 4.77009E-01 7.29743E-03 4.77009E-01 7.29743E-03 1.00000E+00 + 0.00000E+00 9.99972E+00 0.00000E+00 2.03038E+01 1.35778E+00 + 2.03038E+01 1.35778E+00 1.51947E+02 2.22259E-04 1.51947E+02 + 2.22259E-04 4.77663E-01 7.27465E-03 4.77663E-01 7.27465E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03062E+01 + 1.35776E+00 2.03062E+01 1.35776E+00 1.51958E+02 -2.22265E-04 + 1.51958E+02 -2.22265E-04 4.78315E-01 7.25141E-03 4.78315E-01 + 7.25141E-03 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 2.03056E+01 1.35773E+00 2.03056E+01 1.35773E+00 1.51954E+02 + 0.00000E+00 1.51954E+02 0.00000E+00 4.78969E-01 7.22777E-03 + 4.78969E-01 7.22777E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 2.03044E+01 1.35782E+00 2.03044E+01 1.35782E+00 + 1.51958E+02 0.00000E+00 1.51958E+02 0.00000E+00 4.79593E-01 + 7.20539E-03 4.79593E-01 7.20539E-03 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 2.03074E+01 1.35767E+00 2.03074E+01 + 1.35767E+00 1.51961E+02 -2.22259E-04 1.51961E+02 -2.22259E-04 + 4.80247E-01 7.18349E-03 4.80247E-01 7.18349E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 2.03026E+01 1.35782E+00 + 2.03026E+01 1.35782E+00 1.51951E+02 0.00000E+00 1.51951E+02 + 0.00000E+00 4.80899E-01 7.16111E-03 4.80899E-01 7.16111E-03 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 2.03026E+01 + 1.35782E+00 2.03026E+01 1.35782E+00 1.51951E+02 2.22265E-04 + 1.51951E+02 2.22265E-04 4.81538E-01 7.13854E-03 4.81538E-01 + 7.13854E-03 1.00000E+00 0.00000E+00 9.99972E+00 0.00000E+00 + 2.03056E+01 1.35778E+00 2.03056E+01 1.35778E+00 1.51968E+02 + -6.66778E-04 1.51968E+02 -6.66778E-04 4.82191E-01 7.11577E-03 + 4.82191E-01 7.11577E-03 1.00000E+00 0.00000E+00 1.00003E+01 + 0.00000E+00 2.03044E+01 1.35782E+00 2.03044E+01 1.35782E+00 + 1.51944E+02 2.22265E-04 1.51944E+02 2.22265E-04 4.82872E-01 + 7.09252E-03 4.82872E-01 7.09252E-03 1.00000E+00 0.00000E+00 + 9.99972E+00 0.00000E+00 2.03056E+01 1.35778E+00 2.03056E+01 + 1.35778E+00 1.51961E+02 -2.22259E-04 1.51961E+02 -2.22259E-04 + 4.83497E-01 7.07149E-03 4.83497E-01 7.07149E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 2.03062E+01 1.35771E+00 + 2.03062E+01 1.35771E+00 1.51951E+02 0.00000E+00 1.51951E+02 + 0.00000E+00 4.84094E-01 7.05085E-03 4.84094E-01 7.05085E-03 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 2.03056E+01 + 1.35778E+00 2.03056E+01 1.35778E+00 1.51954E+02 0.00000E+00 + 1.51954E+02 0.00000E+00 4.84775E-01 7.02721E-03 4.84775E-01 + 7.02721E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 2.03186E+01 1.35732E+00 2.03186E+01 1.35732E+00 1.51958E+02 + 0.00000E+00 1.51958E+02 0.00000E+00 4.85483E-01 7.00310E-03 + 4.85483E-01 7.00310E-03 1.00000E+00 0.00000E+00 1.00002E+01 + 0.00000E+00 2.03056E+01 1.35778E+00 2.03056E+01 1.35778E+00 + 1.51961E+02 -2.22259E-04 1.51961E+02 -2.22259E-04 4.86053E-01 + 6.98380E-03 4.86053E-01 6.98380E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 2.03062E+01 1.35776E+00 2.03062E+01 + 1.35776E+00 1.51944E+02 2.22265E-04 1.51944E+02 2.22265E-04 + 4.86650E-01 6.96316E-03 4.86650E-01 6.96316E-03 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 2.03056E+01 1.35773E+00 + 2.03056E+01 1.35773E+00 1.51968E+02 -4.44519E-04 1.51968E+02 + -4.44519E-04 4.87331E-01 6.94039E-03 4.87331E-01 6.94039E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03062E+01 + 1.35776E+00 2.03062E+01 1.35776E+00 1.51951E+02 0.00000E+00 + 1.51951E+02 0.00000E+00 4.87928E-01 6.91975E-03 4.87928E-01 + 6.91975E-03 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 2.03056E+01 1.35778E+00 2.03056E+01 1.35778E+00 1.51954E+02 + 0.00000E+00 1.51954E+02 0.00000E+00 4.88581E-01 6.89785E-03 + 4.88581E-01 6.89785E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 2.03008E+01 1.35793E+00 2.03008E+01 1.35793E+00 + 1.51966E+02 -2.22265E-04 1.51966E+02 -2.22265E-04 4.89178E-01 + 6.87721E-03 4.89178E-01 6.87721E-03 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 2.03092E+01 1.35767E+00 2.03092E+01 + 1.35767E+00 1.51947E+02 2.22259E-04 1.51947E+02 2.22259E-04 + 4.89804E-01 6.85618E-03 4.89804E-01 6.85618E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 2.03044E+01 1.35782E+00 + 2.03044E+01 1.35782E+00 1.51958E+02 -2.22265E-04 1.51958E+02 + -2.22265E-04 4.90401E-01 6.83553E-03 4.90401E-01 6.83553E-03 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 2.03074E+01 + 1.35767E+00 2.03074E+01 1.35767E+00 1.51954E+02 0.00000E+00 + 1.51954E+02 0.00000E+00 4.91110E-01 6.81277E-03 4.91110E-01 + 6.81277E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 2.03417E+01 1.35654E+00 2.03417E+01 1.35654E+00 1.51951E+02 + 0.00000E+00 1.51951E+02 0.00000E+00 4.91873E-01 6.78691E-03 + 4.91873E-01 6.78691E-03 1.00000E+00 0.00000E+00 9.99972E+00 + 0.00000E+00 2.03044E+01 1.35776E+00 2.03044E+01 1.35776E+00 + 1.51966E+02 -2.22265E-04 1.51966E+02 -2.22265E-04 4.92290E-01 + 6.77302E-03 4.92290E-01 6.77302E-03 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 2.03056E+01 1.35778E+00 2.03056E+01 + 1.35778E+00 1.51961E+02 -2.22259E-04 1.51961E+02 -2.22259E-04 + 4.92943E-01 6.75113E-03 4.92943E-01 6.75113E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 2.03038E+01 1.35778E+00 + 2.03038E+01 1.35778E+00 1.51954E+02 0.00000E+00 1.51954E+02 + 0.00000E+00 4.93527E-01 6.73202E-03 4.93527E-01 6.73202E-03 + 1.00000E+00 0.00000E+00 1.00003E+01 0.00000E+00 2.03032E+01 + 1.35780E+00 2.03032E+01 1.35780E+00 1.51948E+02 0.00000E+00 + 1.51948E+02 0.00000E+00 4.94193E-01 6.71069E-03 4.94193E-01 + 6.71069E-03 1.00000E+00 0.00000E+00 9.99956E+00 0.00000E+00 + 2.03074E+01 1.35773E+00 2.03074E+01 1.35773E+00 1.51954E+02 + 0.00000E+00 1.51954E+02 0.00000E+00 4.94777E-01 6.69035E-03 + 4.94777E-01 6.69035E-03 1.00000E+00 0.00000E+00 1.00003E+01 + 0.00000E+00 2.03020E+01 1.35784E+00 2.03020E+01 1.35784E+00 + 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 4.95388E-01 + 6.67038E-03 4.95388E-01 6.67038E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 2.03074E+01 1.35773E+00 2.03074E+01 + 1.35773E+00 1.51961E+02 -2.22259E-04 1.51961E+02 -2.22259E-04 + 4.96027E-01 6.64955E-03 4.96027E-01 6.64955E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 2.03067E+01 1.35775E+00 + 2.03067E+01 1.35775E+00 1.51956E+02 0.00000E+00 1.51956E+02 + 0.00000E+00 4.96610E-01 6.62995E-03 4.96610E-01 6.62995E-03 + 1.00000E+00 0.00000E+00 1.00000E+01 0.00000E+00 2.03038E+01 + 1.35784E+00 2.03038E+01 1.35784E+00 1.51961E+02 -2.22259E-04 + 1.51961E+02 -2.22259E-04 4.97250E-01 6.60961E-03 4.97250E-01 + 6.60961E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 2.03163E+01 1.35739E+00 2.03163E+01 1.35739E+00 1.51954E+02 + 0.00000E+00 1.51954E+02 0.00000E+00 4.97861E-01 6.58877E-03 + 4.97861E-01 6.58877E-03 1.00000E+00 0.00000E+00 1.00003E+01 + 0.00000E+00 2.03092E+01 1.35767E+00 2.03092E+01 1.35767E+00 + 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 4.98472E-01 + 6.56967E-03 4.98472E-01 6.56967E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 2.03014E+01 1.35786E+00 2.03014E+01 + 1.35786E+00 1.51948E+02 0.00000E+00 1.51948E+02 0.00000E+00 + 4.99055E-01 6.55007E-03 4.99055E-01 6.55007E-03 1.00000E+00 + 0.00000E+00 1.00000E+01 0.00000E+00 2.03056E+01 1.35778E+00 + 2.03056E+01 1.35778E+00 1.51961E+02 -2.22259E-04 1.51961E+02 + -2.22259E-04 4.99639E-01 6.53147E-03 4.99639E-01 6.53147E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03056E+01 + 1.35778E+00 2.03056E+01 1.35778E+00 1.51954E+02 0.00000E+00 + 1.51954E+02 0.00000E+00 5.00278E-01 6.51063E-03 5.00278E-01 + 6.51063E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 2.03067E+01 1.35769E+00 2.03067E+01 1.35769E+00 1.51963E+02 + -2.22272E-04 1.51963E+02 -2.22272E-04 5.00834E-01 6.49276E-03 + 5.00834E-01 6.49276E-03 1.00000E+00 0.00000E+00 1.00004E+01 + 0.00000E+00 2.03003E+01 1.35789E+00 2.03003E+01 1.35789E+00 + 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 5.01417E-01 + 6.47330E-03 5.01417E-01 6.47330E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 2.03074E+01 1.35773E+00 2.03074E+01 + 1.35773E+00 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 + 5.02084E-01 6.45246E-03 5.02084E-01 6.45246E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 2.03038E+01 1.35778E+00 + 2.03038E+01 1.35778E+00 1.51954E+02 0.00000E+00 1.51954E+02 + 0.00000E+00 5.02695E-01 6.43336E-03 5.02695E-01 6.43336E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03067E+01 + 1.35775E+00 2.03067E+01 1.35775E+00 1.51963E+02 -2.22272E-04 + 1.51963E+02 -2.22272E-04 5.03223E-01 6.41549E-03 5.03223E-01 + 6.41549E-03 1.00000E+00 0.00000E+00 1.00000E+01 0.00000E+00 + 2.03038E+01 1.35778E+00 2.03038E+01 1.35778E+00 1.51947E+02 + 0.00000E+00 1.51947E+02 0.00000E+00 5.03862E-01 6.39516E-03 + 5.03862E-01 6.39516E-03 1.00000E+00 0.00000E+00 1.00003E+01 + 0.00000E+00 2.03038E+01 1.35778E+00 2.03038E+01 1.35778E+00 + 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 5.04445E-01 + 6.37693E-03 5.04445E-01 6.37693E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 2.03038E+01 1.35778E+00 2.03038E+01 + 1.35778E+00 1.51968E+02 -4.44519E-04 1.51968E+02 -4.44519E-04 + 5.04973E-01 6.35957E-03 5.04973E-01 6.35957E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 2.03050E+01 1.35775E+00 + 2.03050E+01 1.35775E+00 1.51941E+02 4.44543E-04 1.51941E+02 + 4.44543E-04 5.05640E-01 6.33908E-03 5.05640E-01 6.33908E-03 + 1.00000E+00 0.00000E+00 1.00000E+01 0.00000E+00 2.03038E+01 + 1.35778E+00 2.03038E+01 1.35778E+00 1.51968E+02 -4.44519E-04 + 1.51968E+02 -4.44519E-04 5.06223E-01 6.32050E-03 5.06223E-01 + 6.32050E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 2.03074E+01 1.35773E+00 2.03074E+01 1.35773E+00 1.51954E+02 + 0.00000E+00 1.51954E+02 0.00000E+00 5.06834E-01 6.30140E-03 + 5.06834E-01 6.30140E-03 1.00000E+00 0.00000E+00 1.00003E+01 + 0.00000E+00 2.03038E+01 1.35784E+00 2.03038E+01 1.35784E+00 + 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 5.07362E-01 + 6.28403E-03 5.07362E-01 6.28403E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 2.03032E+01 1.35780E+00 2.03032E+01 + 1.35780E+00 1.51956E+02 0.00000E+00 1.51956E+02 0.00000E+00 + 5.07974E-01 6.26528E-03 5.07974E-01 6.26528E-03 1.00000E+00 + 0.00000E+00 1.00000E+01 0.00000E+00 2.03038E+01 1.35778E+00 + 2.03038E+01 1.35778E+00 1.51954E+02 -2.22259E-04 1.51954E+02 + -2.22259E-04 5.08557E-01 6.24670E-03 5.08557E-01 6.24670E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03056E+01 + 1.35773E+00 2.03056E+01 1.35773E+00 1.51954E+02 0.00000E+00 + 1.51954E+02 0.00000E+00 5.09140E-01 6.22847E-03 5.09140E-01 + 6.22847E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 2.03038E+01 1.35778E+00 2.03038E+01 1.35778E+00 1.51954E+02 + 0.00000E+00 1.51954E+02 0.00000E+00 5.09724E-01 6.21024E-03 + 5.09724E-01 6.21024E-03 1.00000E+00 0.00000E+00 1.00003E+01 + 0.00000E+00 2.03085E+01 1.35769E+00 2.03085E+01 1.35769E+00 + 1.51956E+02 0.00000E+00 1.51956E+02 0.00000E+00 5.10336E-01 + 6.19148E-03 5.10336E-01 6.19148E-03 1.00000E+00 0.00000E+00 + 9.99956E+00 0.00000E+00 2.03020E+01 1.35795E+00 2.03020E+01 + 1.35795E+00 1.51954E+02 0.00000E+00 1.51954E+02 0.00000E+00 + 5.10891E-01 6.17377E-03 5.10891E-01 6.17377E-03 1.00000E+00 + 0.00000E+00 1.00003E+01 0.00000E+00 2.03092E+01 1.35767E+00 + 2.03092E+01 1.35767E+00 1.51961E+02 -2.22259E-04 1.51961E+02 + -2.22259E-04 5.11391E-01 6.15814E-03 5.11391E-01 6.15814E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 2.03092E+01 + 1.35767E+00 2.03092E+01 1.35767E+00 1.51961E+02 -2.22259E-04 + 1.51961E+02 -2.22259E-04 5.11391E-01 6.15814E-03 5.11391E-01 + 6.15814E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 1.16820E-03 2.96822E+01 1.45897E+01 + 3.22477E-01 6.26270E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -2.14908E-02 -1.42124E-02 1.00000E+00 0.00000E+00 + 3.22477E-01 6.26270E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -2.14908E-02 -1.42124E-02 1.00000E+00 0.00000E+00 + 3.27258E-01 6.52412E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -1.68312E-02 -1.16646E-02 1.00000E+00 0.00000E+00 + 3.32197E-01 6.80475E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -1.31491E-02 -9.57283E-03 1.00000E+00 0.00000E+00 + 3.37233E-01 7.10242E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -1.02499E-02 -7.85909E-03 1.00000E+00 0.00000E+00 + 3.42237E-01 7.41068E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -7.51336E-03 -6.17323E-03 1.00000E+00 0.00000E+00 + 3.47387E-01 7.74194E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -5.78171E-03 -5.05939E-03 1.00000E+00 0.00000E+00 + 3.52565E-01 8.09033E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -4.51528E-03 -4.20723E-03 1.00000E+00 0.00000E+00 + 3.57725E-01 8.45437E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -3.51313E-03 -3.50029E-03 1.00000E+00 0.00000E+00 + 3.62849E-01 8.83415E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -2.72166E-03 -2.91360E-03 1.00000E+00 0.00000E+00 + 3.67922E-01 9.23037E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -2.09783E-03 -2.42643E-03 1.00000E+00 0.00000E+00 + 3.74528E-01 9.77534E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -7.68528E-03 -7.03667E-03 1.00000E+00 0.00000E+00 + 3.77735E-01 1.00559E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -6.23002E-04 -8.60231E-04 1.00000E+00 0.00000E+00 + 3.82606E-01 1.05090E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -4.69923E-04 -7.17816E-04 1.00000E+00 0.00000E+00 + 3.87366E-01 1.09821E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -3.50632E-04 -5.99277E-04 1.00000E+00 0.00000E+00 + 3.92339E-01 1.15123E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -1.40541E-03 -1.72402E-03 1.00000E+00 0.00000E+00 + 3.96481E-01 1.19889E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -7.74881E-05 -1.96364E-04 1.00000E+00 0.00000E+00 + 4.00836E-01 1.25327E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -5.44179E-05 -1.67552E-04 1.00000E+00 0.00000E+00 + 4.05018E-01 1.31039E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -3.43633E-05 -1.40161E-04 1.00000E+00 0.00000E+00 + 4.09002E-01 1.37042E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -1.88758E-05 -1.16824E-04 1.00000E+00 0.00000E+00 + 4.12765E-01 1.43365E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -9.20881E-06 -1.00579E-04 1.00000E+00 0.00000E+00 + 4.16275E-01 1.50031E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.88153E-06 -7.95171E-05 1.00000E+00 0.00000E+00 + 4.19498E-01 1.57069E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 7.38091E-06 -6.75099E-05 1.00000E+00 0.00000E+00 + 4.22396E-01 1.64508E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.06376E-05 -5.91480E-05 1.00000E+00 0.00000E+00 + 4.24921E-01 1.72376E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.29820E-05 -5.18428E-05 1.00000E+00 0.00000E+00 + 4.27022E-01 1.80704E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.51372E-05 -4.33035E-05 1.00000E+00 0.00000E+00 + 4.28644E-01 1.89526E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.63341E-05 -3.67933E-05 1.00000E+00 0.00000E+00 + 4.29722E-01 1.98877E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.68128E-05 -3.26412E-05 1.00000E+00 0.00000E+00 + 4.30186E-01 2.08789E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.70461E-05 -2.76536E-05 1.00000E+00 -8.69615E-07 + 4.29999E-01 2.17393E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.69271E-05 -2.21898E-05 1.00009E+00 -4.24895E-03 + 4.29016E-01 2.28273E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.67327E-05 -2.00376E-05 1.00012E+00 -4.54375E-03 + 4.27185E-01 2.39797E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.64252E-05 -1.81019E-05 1.00017E+00 -4.86203E-03 + 4.24410E-01 2.52002E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.60292E-05 -1.63607E-05 1.00025E+00 -5.20379E-03 + 4.20584E-01 2.64929E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.55654E-05 -1.47936E-05 1.00036E+00 -5.57250E-03 + 4.16779E-01 2.75368E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.48071E-05 -1.27131E-05 1.00270E+00 -1.20059E-02 + 4.12962E-01 2.84183E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.39138E-05 -1.06500E-05 1.00710E+00 -2.21639E-02 + 4.05945E-01 2.98173E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.34694E-05 -9.76400E-06 1.00790E+00 -2.37631E-02 + 3.97566E-01 3.12871E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.30089E-05 -8.95633E-06 1.00888E+00 -2.54780E-02 + 3.89183E-01 3.25998E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 7.52054E-05 -1.06344E-04 1.01247E+00 -3.11001E-02 + 3.85024E-01 3.31878E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.02478E+00 -4.85133E-02 + 3.73359E-01 3.46914E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.02746E+00 -5.19587E-02 + 3.60207E-01 3.62493E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.03056E+00 -5.56283E-02 + 3.45501E-01 3.78603E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.03412E+00 -5.95322E-02 + 3.29181E-01 3.95233E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.03819E+00 -6.36794E-02 + 3.16070E-01 4.07721E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.04890E+00 -7.38783E-02 + 3.10889E-01 4.12354E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.07095E+00 -9.35925E-02 + 2.92656E-01 4.27715E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.07831E+00 -9.98007E-02 + 2.73270E-01 4.43155E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.08649E+00 -1.06312E-01 + 2.54340E-01 4.57451E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.09711E+00 -1.14333E-01 + 2.50123E-01 4.60481E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.12414E+00 -1.33744E-01 + 2.30782E-01 4.73716E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.13594E+00 -1.41819E-01 + 2.11252E-01 4.86484E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.14869E+00 -1.50151E-01 + 2.06656E-01 4.89361E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.17542E+00 -1.66875E-01 + 1.92905E-01 4.97610E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.19328E+00 -1.77594E-01 + 1.81538E-01 5.04160E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.21277E+00 -1.88828E-01 + 1.89681E-01 4.99647E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.24641E+00 -2.07474E-01 + 1.80730E-01 5.04426E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.26460E+00 -2.17186E-01 + 1.74320E-01 5.07729E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.28328E+00 -2.26814E-01 + 1.70894E-01 5.09435E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.30232E+00 -2.36289E-01 + 1.89852E-01 5.00311E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.33345E+00 -2.51267E-01 + 1.96324E-01 4.97295E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.35300E+00 -2.60374E-01 + 2.06816E-01 4.92558E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.37195E+00 -2.68932E-01 + 2.54087E-01 4.71859E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.40762E+00 -2.84552E-01 + 2.90843E-01 4.56234E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.43179E+00 -2.94825E-01 + 3.21194E-01 4.43696E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.44785E+00 -3.01459E-01 + 3.57269E-01 4.29203E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.46231E+00 -3.07270E-01 + 3.99201E-01 4.12810E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.47492E+00 -3.12199E-01 + 4.46981E-01 3.94617E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.48540E+00 -3.16189E-01 + 5.14265E-01 3.69651E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.49896E+00 -3.21221E-01 + 5.77799E-01 3.46658E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50554E+00 -3.23601E-01 + 6.43435E-01 3.23481E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50791E+00 -3.24440E-01 + 7.14057E-01 2.99133E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50730E+00 -3.24228E-01 + 8.13053E-01 2.65791E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.51124E+00 -3.25557E-01 + 9.09143E-01 2.34157E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50866E+00 -3.24707E-01 + 9.93335E-01 2.07051E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.49761E+00 -3.21151E-01 + 1.08019E+00 1.79697E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.48331E+00 -3.16643E-01 + 1.16900E+00 1.52310E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.46580E+00 -3.11245E-01 + 1.25916E+00 1.25085E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.44520E+00 -3.05024E-01 + 1.29358E+00 1.14905E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.40851E+00 -2.94172E-01 + 1.35816E+00 9.61810E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.37786E+00 -2.85285E-01 + 1.44756E+00 7.07610E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.35085E+00 -2.77605E-01 + 1.53618E+00 4.60495E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.32152E+00 -2.69425E-01 + 1.64891E+00 1.52008E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.29487E+00 -2.62132E-01 + 1.76042E+00 -1.47487E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.26571E+00 -2.54300E-01 + 1.84307E+00 -3.65499E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.22979E+00 -2.44828E-01 + 4.52553E+00 -7.31468E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.60430E+00 -3.41848E-01 + 1.84460E+00 -4.90636E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.10794E+00 -2.15504E-01 + 1.89846E+00 -6.25361E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.06923E+00 -2.05821E-01 + 1.94810E+00 -7.47450E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.03023E+00 -1.96227E-01 + 1.99339E+00 -8.56993E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 9.91133E-01 -1.86771E-01 + 2.03436E+00 -9.54488E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 9.52156E-01 -1.77497E-01 + 2.07100E+00 -1.04027E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 9.13466E-01 -1.68439E-01 + 2.10334E+00 -1.11479E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 8.75235E-01 -1.59630E-01 + 2.13148E+00 -1.17861E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 8.37595E-01 -1.51091E-01 + 2.15556E+00 -1.23240E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 8.00681E-01 -1.42846E-01 + 2.17572E+00 -1.27674E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 7.64597E-01 -1.34908E-01 + 2.19016E+00 -1.30806E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 7.29266E-01 -1.27251E-01 + 2.20244E+00 -1.33428E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 6.95067E-01 -1.19947E-01 + 2.21260E+00 -1.35565E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 6.62018E-01 -1.12991E-01 + 2.21869E+00 -1.36830E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 6.29991E-01 -1.06346E-01 + 2.20181E+00 -1.33375E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 5.97748E-01 -9.97499E-02 + 2.37788E+00 -1.68898E-01 0.00000E+00 0.00000E+00 -1.72492E-01 + 3.47994E-02 -1.72492E-01 3.47994E-02 4.06773E-01 -6.12218E-02 + 2.21912E+00 -1.37304E-01 0.00000E+00 0.00000E+00 -4.71029E-02 + 9.84780E-03 -4.71029E-02 9.84780E-03 4.93089E-01 -7.83981E-02 + 2.21402E+00 -1.36303E-01 0.00000E+00 0.00000E+00 -3.92147E-02 + 8.29923E-03 -3.92147E-02 8.29923E-03 4.73529E-01 -7.45580E-02 + 2.21248E+00 -1.36005E-01 0.00000E+00 0.00000E+00 -4.03048E-02 + 8.51038E-03 -4.03048E-02 8.51038E-03 4.46452E-01 -6.93130E-02 + 2.21297E+00 -1.36100E-01 0.00000E+00 0.00000E+00 -4.58776E-02 + 9.57574E-03 -4.58776E-02 9.57574E-03 4.16184E-01 -6.35265E-02 + 2.21717E+00 -1.36892E-01 0.00000E+00 0.00000E+00 -5.61737E-02 + 1.15186E-02 -5.61737E-02 1.15186E-02 3.82494E-01 -5.71694E-02 + 2.22821E+00 -1.38949E-01 0.00000E+00 0.00000E+00 -7.26427E-02 + 1.45866E-02 -7.26427E-02 1.45866E-02 3.43991E-01 -4.99966E-02 + 2.24850E+00 -1.42680E-01 0.00000E+00 0.00000E+00 -9.69523E-02 + 1.90581E-02 -9.69523E-02 1.90581E-02 2.98997E-01 -4.17205E-02 + 2.27641E+00 -1.47753E-01 0.00000E+00 0.00000E+00 -1.27676E-01 + 2.46390E-02 -1.27676E-01 2.46390E-02 2.48760E-01 -3.25949E-02 + 2.28864E+00 -1.49945E-01 0.00000E+00 0.00000E+00 -1.49210E-01 + 2.85026E-02 -1.49210E-01 2.85026E-02 2.07910E-01 -2.52657E-02 + 2.21815E+00 -1.37453E-01 0.00000E+00 0.00000E+00 -1.14408E-01 + 2.23345E-02 -1.14408E-01 2.23345E-02 2.21365E-01 -2.76505E-02 + 2.00520E+00 -1.00162E-01 0.00000E+00 0.00000E+00 1.89411E-02 + -1.01627E-03 1.89411E-02 -1.01627E-03 3.29997E-01 -4.66729E-02 + 1.77493E+00 -6.03186E-02 0.00000E+00 0.00000E+00 1.65894E-01 + -2.64439E-02 1.65894E-01 -2.64439E-02 4.53780E-01 -6.80914E-02 + 1.70230E+00 -4.78983E-02 0.00000E+00 0.00000E+00 2.04786E-01 + -3.30947E-02 2.04786E-01 -3.30947E-02 4.76146E-01 -7.19161E-02 + 1.74368E+00 -5.48921E-02 0.00000E+00 0.00000E+00 1.63095E-01 + -2.60479E-02 1.63095E-01 -2.60479E-02 4.22120E-01 -6.27845E-02 + 1.80262E+00 -6.47393E-02 0.00000E+00 0.00000E+00 1.09493E-01 + -1.70916E-02 1.09493E-01 -1.70916E-02 3.57061E-01 -5.19140E-02 + 1.84024E+00 -7.09553E-02 0.00000E+00 0.00000E+00 6.85952E-02 + -1.03355E-02 6.85952E-02 -1.03355E-02 3.04519E-01 -4.32341E-02 + 1.86192E+00 -7.44956E-02 0.00000E+00 0.00000E+00 4.04194E-02 + -5.73309E-03 4.04194E-02 -5.73309E-03 2.64759E-01 -3.67396E-02 + 1.87064E+00 -7.59051E-02 0.00000E+00 0.00000E+00 1.97856E-02 + -2.39994E-03 1.97856E-02 -2.39994E-03 2.32749E-01 -3.15687E-02 + 1.87690E+00 -7.69051E-02 0.00000E+00 0.00000E+00 1.43234E-03 + 5.32333E-04 1.43234E-03 5.32333E-04 2.03492E-01 -2.68943E-02 + 1.88701E+00 -7.85018E-02 0.00000E+00 0.00000E+00 -2.00884E-02 + 3.93344E-03 -2.00884E-02 3.93344E-03 1.71654E-01 -2.18627E-02 + 1.90733E+00 -8.16805E-02 0.00000E+00 0.00000E+00 -4.88555E-02 + 8.43103E-03 -4.88555E-02 8.43103E-03 1.33233E-01 -1.58558E-02 + 1.91137E+00 -8.23037E-02 0.00000E+00 0.00000E+00 -6.59075E-02 + 1.10687E-02 -6.59075E-02 1.10687E-02 1.06675E-01 -1.17476E-02 + 1.79779E+00 -6.49201E-02 0.00000E+00 0.00000E+00 2.42138E-03 + 6.10041E-04 2.42138E-03 6.10041E-04 1.64064E-01 -2.05318E-02 + 1.65803E+00 -4.37485E-02 0.00000E+00 0.00000E+00 9.08065E-02 + -1.27781E-02 9.08065E-02 -1.27781E-02 2.41888E-01 -3.23201E-02 + 1.66384E+00 -4.46205E-02 0.00000E+00 0.00000E+00 7.39397E-02 + -1.02495E-02 7.39397E-02 -1.02495E-02 2.17331E-01 -2.86386E-02 + 1.71221E+00 -5.17977E-02 0.00000E+00 0.00000E+00 2.60891E-02 + -3.14873E-03 2.60891E-02 -3.14873E-03 1.62725E-01 -2.05355E-02 + 1.75482E+00 -5.80571E-02 0.00000E+00 0.00000E+00 -1.76929E-02 + 3.28283E-03 -1.76929E-02 3.28283E-03 1.12361E-01 -1.31371E-02 + 1.71319E+00 -5.20029E-02 0.00000E+00 0.00000E+00 5.61825E-04 + 6.27949E-04 5.61825E-04 6.27949E-04 1.23287E-01 -1.47260E-02 + 1.60044E+00 -3.57655E-02 0.00000E+00 0.00000E+00 7.17432E-02 + -9.62215E-03 7.17432E-02 -9.62215E-03 1.86770E-01 -2.38676E-02 + 1.61347E+00 -3.76252E-02 0.00000E+00 0.00000E+00 5.07888E-02 + -6.63423E-03 5.07888E-02 -6.63423E-03 1.59990E-01 -2.00490E-02 + 1.63113E+00 -4.01188E-02 0.00000E+00 0.00000E+00 2.65955E-02 + -3.21783E-03 2.65955E-02 -3.21783E-03 1.30286E-01 -1.58544E-02 + 1.62996E+00 -3.99553E-02 0.00000E+00 0.00000E+00 1.60808E-02 + -1.74725E-03 1.60808E-02 -1.74725E-03 1.14335E-01 -1.36235E-02 + 1.62211E+00 -3.88682E-02 0.00000E+00 0.00000E+00 1.14513E-02 + -1.10593E-03 1.14513E-02 -1.10593E-03 1.04483E-01 -1.22587E-02 + 1.61119E+00 -3.73678E-02 0.00000E+00 0.00000E+00 9.18442E-03 + -7.94845E-04 9.18442E-03 -7.94845E-04 9.72381E-02 -1.12645E-02 + 1.59930E+00 -3.57533E-02 0.00000E+00 0.00000E+00 7.96737E-03 + -6.29393E-04 7.96737E-03 -6.29393E-04 9.12969E-02 -1.04568E-02 + 1.58720E+00 -3.41236E-02 0.00000E+00 0.00000E+00 7.26655E-03 + -5.34996E-04 7.26655E-03 -5.34996E-04 8.61199E-02 -9.75950E-03 + 1.57500E+00 -3.24940E-02 0.00000E+00 0.00000E+00 6.84024E-03 + -4.78097E-04 6.84024E-03 -4.78097E-04 8.14532E-02 -9.13666E-03 + 1.56318E+00 -3.09308E-02 0.00000E+00 0.00000E+00 6.56942E-03 + -4.42283E-04 6.56942E-03 -4.42283E-04 7.71697E-02 -8.57016E-03 + 1.55167E+00 -2.94225E-02 0.00000E+00 0.00000E+00 6.38965E-03 + -4.18722E-04 6.38965E-03 -4.18722E-04 7.31914E-02 -8.04875E-03 + 1.54043E+00 -2.79633E-02 0.00000E+00 0.00000E+00 6.26429E-03 + -4.02437E-04 6.26429E-03 -4.02437E-04 6.94707E-02 -7.56545E-03 + 1.52952E+00 -2.65580E-02 0.00000E+00 0.00000E+00 6.17121E-03 + -3.90457E-04 6.17121E-03 -3.90457E-04 6.59749E-02 -7.11534E-03 + 1.51910E+00 -2.52296E-02 0.00000E+00 0.00000E+00 6.09768E-03 + -3.81069E-04 6.09768E-03 -3.81069E-04 6.26813E-02 -6.69502E-03 + 1.50904E+00 -2.39544E-02 0.00000E+00 0.00000E+00 6.03436E-03 + -3.73054E-04 6.03436E-03 -3.73054E-04 5.95705E-02 -6.30144E-03 + 1.49937E+00 -2.27421E-02 0.00000E+00 0.00000E+00 5.97626E-03 + -3.65768E-04 5.97626E-03 -3.65768E-04 5.66284E-02 -5.93240E-03 + 1.48982E+00 -2.15560E-02 0.00000E+00 0.00000E+00 5.91851E-03 + -3.58590E-04 5.91851E-03 -3.58590E-04 5.38400E-02 -5.58564E-03 + 1.48094E+00 -2.04603E-02 0.00000E+00 0.00000E+00 5.86079E-03 + -3.51470E-04 5.86079E-03 -3.51470E-04 5.11992E-02 -5.26001E-03 + 1.47231E+00 -1.94048E-02 0.00000E+00 0.00000E+00 5.80024E-03 + -3.44066E-04 5.80024E-03 -3.44066E-04 4.86934E-02 -4.95361E-03 + 1.46393E+00 -1.83888E-02 0.00000E+00 0.00000E+00 5.73616E-03 + -3.36296E-04 5.73616E-03 -3.36296E-04 4.63148E-02 -4.66518E-03 + 1.45615E+00 -1.74531E-02 0.00000E+00 0.00000E+00 5.66882E-03 + -3.28198E-04 5.66882E-03 -3.28198E-04 4.40576E-02 -4.39372E-03 + 1.44839E+00 -1.65279E-02 0.00000E+00 0.00000E+00 5.59691E-03 + -3.19624E-04 5.59691E-03 -3.19624E-04 4.19122E-02 -4.13783E-03 + 1.44112E+00 -1.56672E-02 0.00000E+00 0.00000E+00 5.52142E-03 + -3.10687E-04 5.52142E-03 -3.10687E-04 3.98746E-02 -3.89675E-03 + 1.43411E+00 -1.48443E-02 0.00000E+00 0.00000E+00 5.44199E-03 + -3.01369E-04 5.44199E-03 -3.01369E-04 3.79380E-02 -3.66948E-03 + 1.42729E+00 -1.40512E-02 0.00000E+00 0.00000E+00 5.35880E-03 + -2.91684E-04 5.35880E-03 -2.91684E-04 3.60967E-02 -3.45512E-03 + 1.42114E+00 -1.33416E-02 0.00000E+00 0.00000E+00 5.27307E-03 + -2.81782E-04 5.27307E-03 -2.81782E-04 3.43481E-02 -3.25315E-03 + 1.41479E+00 -1.26131E-02 0.00000E+00 0.00000E+00 5.18351E-03 + -2.71517E-04 5.18351E-03 -2.71517E-04 3.26834E-02 -3.06239E-03 + 1.40895E+00 -1.19502E-02 0.00000E+00 0.00000E+00 5.09175E-03 + -2.61084E-04 5.09175E-03 -2.61084E-04 3.11013E-02 -2.88251E-03 + 1.40326E+00 -1.13085E-02 0.00000E+00 0.00000E+00 4.99762E-03 + -2.50466E-04 4.99762E-03 -2.50466E-04 2.95968E-02 -2.71276E-03 + 1.39812E+00 -1.07310E-02 0.00000E+00 0.00000E+00 4.90220E-03 + -2.39782E-04 4.90220E-03 -2.39782E-04 2.81667E-02 -2.55266E-03 + 1.39272E+00 -1.01311E-02 0.00000E+00 0.00000E+00 4.80425E-03 + -2.28898E-04 4.80425E-03 -2.28898E-04 2.68050E-02 -2.40136E-03 + 1.38789E+00 -9.59880E-03 0.00000E+00 0.00000E+00 4.70575E-03 + -2.18039E-04 4.70575E-03 -2.18039E-04 2.55109E-02 -2.25868E-03 + 1.38317E+00 -9.08224E-03 0.00000E+00 0.00000E+00 4.60623E-03 + -2.07148E-04 4.60623E-03 -2.07148E-04 2.42799E-02 -2.12396E-03 + 1.37875E+00 -8.60222E-03 0.00000E+00 0.00000E+00 4.50620E-03 + -1.96285E-04 4.50620E-03 -1.96285E-04 2.31091E-02 -1.99678E-03 + 1.37524E+00 -8.22307E-03 0.00000E+00 0.00000E+00 4.40734E-03 + -1.85622E-04 4.40734E-03 -1.85622E-04 2.19979E-02 -1.87698E-03 + 1.37040E+00 -7.70662E-03 0.00000E+00 0.00000E+00 4.30538E-03 + -1.74710E-04 4.30538E-03 -1.74710E-04 2.09359E-02 -1.76332E-03 + 1.36560E+00 -7.19518E-03 0.00000E+00 0.00000E+00 4.20309E-03 + -1.63844E-04 4.20309E-03 -1.63844E-04 1.99251E-02 -1.65592E-03 + 1.36275E+00 -6.89430E-03 0.00000E+00 0.00000E+00 4.10485E-03 + -1.53480E-04 4.10485E-03 -1.53480E-04 1.89694E-02 -1.55511E-03 + 1.35927E+00 -6.53080E-03 0.00000E+00 0.00000E+00 4.00566E-03 + -1.43092E-04 4.00566E-03 -1.43092E-04 1.80579E-02 -1.45965E-03 + 1.35592E+00 -6.18304E-03 0.00000E+00 0.00000E+00 3.90701E-03 + -1.32835E-04 3.90701E-03 -1.32835E-04 1.71906E-02 -1.36948E-03 + 1.35302E+00 -5.88381E-03 0.00000E+00 0.00000E+00 3.80994E-03 + -1.22816E-04 3.80994E-03 -1.22816E-04 1.63666E-02 -1.28441E-03 + 1.34896E+00 -5.46639E-03 0.00000E+00 0.00000E+00 3.71113E-03 + -1.12686E-04 3.71113E-03 -1.12686E-04 1.55787E-02 -1.20364E-03 + 1.34668E+00 -5.23507E-03 0.00000E+00 0.00000E+00 3.61689E-03 + -1.03090E-04 3.61689E-03 -1.03090E-04 1.48342E-02 -1.12784E-03 + 1.34373E+00 -4.93600E-03 0.00000E+00 0.00000E+00 3.52223E-03 + -9.35187E-05 3.52223E-03 -9.35187E-05 1.41236E-02 -1.05601E-03 + 1.34156E+00 -4.71852E-03 0.00000E+00 0.00000E+00 3.43025E-03 + -8.42880E-05 3.43025E-03 -8.42880E-05 1.34496E-02 -9.88336E-04 + 1.33868E+00 -4.43155E-03 0.00000E+00 0.00000E+00 3.33782E-03 + -7.50687E-05 3.33782E-03 -7.50687E-05 1.28058E-02 -9.24148E-04 + 1.33577E+00 -4.14284E-03 0.00000E+00 0.00000E+00 3.24668E-03 + -6.60431E-05 3.24668E-03 -6.60431E-05 1.21932E-02 -8.63475E-04 + 1.33395E+00 -3.96370E-03 0.00000E+00 0.00000E+00 3.15912E-03 + -5.74319E-05 3.15912E-03 -5.74319E-05 1.16130E-02 -8.06410E-04 + 1.33179E+00 -3.75330E-03 0.00000E+00 0.00000E+00 3.07214E-03 + -4.89334E-05 3.07214E-03 -4.89334E-05 1.10599E-02 -7.52359E-04 + 1.32974E+00 -3.55498E-03 0.00000E+00 0.00000E+00 2.98672E-03 + -4.06408E-05 2.98672E-03 -4.06408E-05 1.05336E-02 -7.01279E-04 + 1.32796E+00 -3.38280E-03 0.00000E+00 0.00000E+00 2.90340E-03 + -3.26071E-05 2.90340E-03 -3.26071E-05 1.00334E-02 -6.53053E-04 + 1.32553E+00 -3.14974E-03 0.00000E+00 0.00000E+00 2.82018E-03 + -2.46379E-05 2.82018E-03 -2.46379E-05 9.55564E-03 -6.07289E-04 + 1.32410E+00 -3.01412E-03 0.00000E+00 0.00000E+00 2.74052E-03 + -1.70562E-05 2.74052E-03 -1.70562E-05 9.10341E-03 -5.64251E-04 + 1.32231E+00 -2.84538E-03 0.00000E+00 0.00000E+00 2.66151E-03 + -9.58613E-06 2.66151E-03 -9.58613E-06 8.67179E-03 -5.23446E-04 + 1.32084E+00 -2.70624E-03 0.00000E+00 0.00000E+00 2.58463E-03 + -2.36426E-06 2.58463E-03 -2.36426E-06 8.26176E-03 -4.84928E-04 + 1.31939E+00 -2.57058E-03 0.00000E+00 0.00000E+00 2.50946E-03 + 4.65039E-06 2.50946E-03 4.65039E-06 7.87147E-03 -4.48503E-04 + 1.31757E+00 -2.40191E-03 0.00000E+00 0.00000E+00 2.43482E-03 + 1.15735E-05 2.43482E-03 1.15735E-05 7.49889E-03 -4.13945E-04 + 1.31637E+00 -2.29230E-03 0.00000E+00 0.00000E+00 2.36315E-03 + 1.81770E-05 2.36315E-03 1.81770E-05 7.14567E-03 -3.81397E-04 + 1.31558E+00 -2.21925E-03 0.00000E+00 0.00000E+00 2.29361E-03 + 2.45462E-05 2.29361E-03 2.45462E-05 6.81011E-03 -3.50668E-04 + 1.31342E+00 -2.02272E-03 0.00000E+00 0.00000E+00 2.22292E-03 + 3.09800E-05 2.22292E-03 3.09800E-05 6.48753E-03 -3.21312E-04 + 1.31275E+00 -1.96188E-03 0.00000E+00 0.00000E+00 2.15659E-03 + 3.69795E-05 2.15659E-03 3.69795E-05 6.18358E-03 -2.93821E-04 + 1.31141E+00 -1.84184E-03 0.00000E+00 0.00000E+00 2.09031E-03 + 4.29372E-05 2.09031E-03 4.29372E-05 5.89245E-03 -2.67658E-04 + 1.31050E+00 -1.76010E-03 -3.06322E-06 2.73648E-07 2.02324E-03 + 4.89260E-05 2.02324E-03 4.89260E-05 5.61308E-03 -2.42700E-04 + 1.30961E+00 -1.68183E-03 -1.31706E-05 1.17108E-06 1.95068E-03 + 5.53699E-05 1.95068E-03 5.53699E-05 5.33981E-03 -2.18436E-04 + 1.30869E+00 -1.60009E-03 -1.87405E-05 1.66264E-06 1.88394E-03 + 6.12602E-05 1.88394E-03 6.12602E-05 5.08344E-03 -1.95809E-04 + 1.30753E+00 -1.49750E-03 -2.28703E-05 2.02491E-06 1.81934E-03 + 6.69272E-05 1.81934E-03 6.69272E-05 4.83963E-03 -1.74418E-04 + 1.30666E+00 -1.42269E-03 -2.62603E-05 2.32051E-06 1.75741E-03 + 7.23274E-05 1.75741E-03 7.23274E-05 4.60835E-03 -1.54255E-04 + 1.30601E+00 -1.36529E-03 -2.91663E-05 2.57241E-06 1.69784E-03 + 7.74907E-05 1.69784E-03 7.74907E-05 4.38883E-03 -1.35228E-04 + 1.30578E+00 -1.34616E-03 -3.17173E-05 2.79222E-06 1.64061E-03 + 8.24231E-05 1.64061E-03 8.24231E-05 4.18056E-03 -1.17282E-04 + 1.30397E+00 -1.19139E-03 -3.39917E-05 2.98705E-06 1.58174E-03 + 8.74653E-05 1.58174E-03 8.74653E-05 3.97875E-03 -9.99934E-05 + 1.30389E+00 -1.18441E-03 -3.60377E-05 3.16129E-06 1.52758E-03 + 9.20771E-05 1.52758E-03 9.20771E-05 3.78983E-03 -8.39075E-05 + 1.30307E+00 -1.11484E-03 -3.78924E-05 3.31833E-06 1.47361E-03 + 9.66460E-05 1.47361E-03 9.66460E-05 3.60852E-03 -6.85534E-05 + 1.30253E+00 -1.06962E-03 -3.95812E-05 3.46049E-06 1.42122E-03 + 1.01059E-04 1.42122E-03 1.01059E-04 3.43573E-03 -5.40112E-05 + 1.30203E+00 -1.02790E-03 -4.11244E-05 3.58965E-06 1.37020E-03 + 1.05327E-04 1.37020E-03 1.05327E-04 3.27121E-03 -4.02338E-05 + 1.30150E+00 -9.82663E-04 -4.25379E-05 3.70728E-06 1.32040E-03 + 1.09473E-04 1.32040E-03 1.09473E-04 3.11409E-03 -2.71618E-05 + 1.30084E+00 -9.28747E-04 -4.38351E-05 3.81461E-06 1.27148E-03 + 1.13522E-04 1.27148E-03 1.13522E-04 2.96375E-03 -1.47223E-05 + 1.30041E+00 -8.93963E-04 -4.50257E-05 3.91258E-06 1.22398E-03 + 1.17425E-04 1.22398E-03 1.17425E-04 2.82065E-03 -2.94853E-06 + 1.30007E+00 -8.66147E-04 -4.61193E-05 4.00205E-06 1.17791E-03 + 1.21197E-04 1.17791E-03 1.21197E-04 2.68421E-03 8.21728E-06 + 1.29951E+00 -8.20915E-04 -4.71238E-05 4.08379E-06 1.13240E-03 + 1.24898E-04 1.13240E-03 1.24898E-04 2.55340E-03 1.88563E-05 + 1.29880E+00 -7.63521E-04 -4.80467E-05 4.15845E-06 1.08756E-03 + 1.28526E-04 1.08756E-03 1.28526E-04 2.42796E-03 2.90064E-05 + 1.29874E+00 -7.56564E-04 -4.88906E-05 4.22636E-06 1.04484E-03 + 1.31964E-04 1.04484E-03 1.31964E-04 2.30926E-03 3.85619E-05 + 1.29827E+00 -7.21779E-04 -4.96637E-05 4.28822E-06 1.00245E-03 + 1.35357E-04 1.00245E-03 1.35357E-04 2.19501E-03 4.76997E-05 + 1.29795E+00 -6.97440E-04 -5.03692E-05 4.34437E-06 9.61262E-04 + 1.38637E-04 9.61262E-04 1.38637E-04 2.08607E-03 5.63694E-05 + 1.29766E+00 -6.71342E-04 -5.10103E-05 4.39513E-06 9.20758E-04 + 1.41842E-04 9.20758E-04 1.41842E-04 1.98158E-03 6.46401E-05 + 1.29738E+00 -6.48732E-04 -5.15925E-05 4.44096E-06 8.81245E-04 + 1.44954E-04 8.81245E-04 1.44954E-04 1.88174E-03 7.25040E-05 + 1.29707E+00 -6.24383E-04 -5.21167E-05 4.48201E-06 8.42438E-04 + 1.47991E-04 8.42438E-04 1.47991E-04 1.78597E-03 8.00045E-05 + 1.29681E+00 -6.05259E-04 -5.25866E-05 4.51860E-06 8.04567E-04 + 1.50941E-04 8.04567E-04 1.50941E-04 1.69430E-03 8.71392E-05 + 1.29660E+00 -5.89598E-04 -5.30039E-05 4.55093E-06 7.67543E-04 + 1.53810E-04 7.67543E-04 1.53810E-04 1.60650E-03 9.39454E-05 + 1.29616E+00 -5.54813E-04 -5.33730E-05 4.57938E-06 7.30584E-04 + 1.56656E-04 7.30584E-04 1.56656E-04 1.52172E-03 1.00478E-04 + 1.29602E+00 -5.44378E-04 -5.36921E-05 4.60384E-06 6.95147E-04 + 1.59374E-04 6.95147E-04 1.59374E-04 1.44106E-03 1.06664E-04 + 1.29578E+00 -5.25254E-04 -5.39655E-05 4.62469E-06 6.59992E-04 + 1.62056E-04 6.59992E-04 1.62056E-04 1.36325E-03 1.12596E-04 + 1.29557E+00 -5.11333E-04 -5.41934E-05 4.64198E-06 6.25633E-04 + 1.64659E-04 6.25633E-04 1.64659E-04 1.28866E-03 1.18254E-04 + 1.29535E+00 -4.92201E-04 -5.43778E-05 4.65590E-06 5.91826E-04 + 1.67214E-04 5.91826E-04 1.67214E-04 1.21686E-03 1.23672E-04 + 1.29524E+00 -4.85244E-04 -5.45187E-05 4.66648E-06 5.58890E-04 + 1.69687E-04 5.58890E-04 1.69687E-04 1.14811E-03 1.28835E-04 + 1.29513E+00 -4.76548E-04 -5.46175E-05 4.67385E-06 5.26442E-04 + 1.72112E-04 5.26442E-04 1.72112E-04 1.08191E-03 1.33781E-04 + 1.29489E+00 -4.59162E-04 -5.46753E-05 4.67815E-06 4.94328E-04 + 1.74496E-04 4.94328E-04 1.74496E-04 1.01790E-03 1.38535E-04 + 1.29482E+00 -4.55678E-04 -5.46917E-05 4.67936E-06 4.63015E-04 + 1.76814E-04 4.63015E-04 1.76814E-04 9.56521E-04 1.43075E-04 + 1.29465E+00 -4.41764E-04 -5.46686E-05 4.67766E-06 4.31926E-04 + 1.79096E-04 4.31926E-04 1.79096E-04 8.97061E-04 1.47447E-04 + 1.29449E+00 -4.29589E-04 -5.46056E-05 4.67305E-06 4.01490E-04 + 1.81325E-04 4.01490E-04 1.81325E-04 8.39992E-04 1.51629E-04 + 1.29428E+00 -4.15681E-04 -5.45028E-05 4.66556E-06 3.71493E-04 + 1.83511E-04 3.71493E-04 1.83511E-04 7.84674E-04 1.55656E-04 + 1.29426E+00 -4.13936E-04 -5.43589E-05 4.65513E-06 3.42030E-04 + 1.85646E-04 3.42030E-04 1.85646E-04 7.31454E-04 1.59513E-04 + 1.29412E+00 -4.03501E-04 -5.41759E-05 4.64194E-06 3.12898E-04 + 1.87748E-04 3.12898E-04 1.87748E-04 6.79820E-04 1.63236E-04 + 1.29401E+00 -3.94805E-04 -5.39538E-05 4.62601E-06 2.84255E-04 + 1.89803E-04 2.84255E-04 1.89803E-04 6.30035E-04 1.66810E-04 + 1.29400E+00 -3.93071E-04 -5.36907E-05 4.60723E-06 2.56159E-04 + 1.91810E-04 2.56159E-04 1.91810E-04 5.81997E-04 1.70239E-04 + 1.29386E+00 -3.86103E-04 -5.33890E-05 4.58578E-06 2.28216E-04 + 1.93792E-04 2.28216E-04 1.93792E-04 5.35294E-04 1.73557E-04 + 1.29381E+00 -3.80896E-04 -5.30461E-05 4.56153E-06 2.00557E-04 + 1.95751E-04 2.00557E-04 1.95751E-04 4.89871E-04 1.76772E-04 + 1.29378E+00 -3.77418E-04 -5.26637E-05 4.53463E-06 1.73708E-04 + 1.97643E-04 1.73708E-04 1.97643E-04 4.46227E-04 1.79839E-04 + 1.29369E+00 -3.72189E-04 -5.22400E-05 4.50495E-06 1.46854E-04 + 1.99523E-04 1.46854E-04 1.99523E-04 4.03604E-04 1.82824E-04 + 1.29364E+00 -3.68721E-04 -5.17767E-05 4.47265E-06 1.20117E-04 + 2.01383E-04 1.20117E-04 2.01383E-04 3.62036E-04 1.85723E-04 + 1.29347E+00 -3.58286E-04 -5.12725E-05 4.43767E-06 9.39739E-05 + 2.03200E-04 9.39739E-05 2.03200E-04 3.21870E-04 1.88508E-04 + 1.29352E+00 -3.60015E-04 -5.07252E-05 4.39989E-06 6.79376E-05 + 2.04995E-04 6.79376E-05 2.04995E-04 2.82675E-04 1.91217E-04 + 1.29342E+00 -3.53068E-04 -5.01398E-05 4.35966E-06 4.22312E-05 + 2.06764E-04 4.22312E-05 2.06764E-04 2.44474E-04 1.93842E-04 + 1.29335E+00 -3.49580E-04 -4.95100E-05 4.31659E-06 1.69572E-05 + 2.08494E-04 1.69572E-05 2.08494E-04 2.07454E-04 1.96374E-04 + 1.29336E+00 -3.51329E-04 -4.88415E-05 4.27109E-06 -8.15274E-06 + 2.10201E-04 -8.15274E-06 2.10201E-04 1.71316E-04 1.98835E-04 + 1.29331E+00 -3.46111E-04 -4.81315E-05 4.22297E-06 -3.33175E-05 + 2.11907E-04 -3.33175E-05 2.11907E-04 1.35716E-04 2.01247E-04 + 1.29330E+00 -3.44362E-04 -4.73797E-05 4.17226E-06 -5.78829E-05 + 2.13562E-04 -5.78829E-05 2.13562E-04 1.01309E-04 2.03565E-04 + 1.29328E+00 -3.44372E-04 -4.65891E-05 4.11919E-06 -8.23970E-05 + 2.15209E-04 -8.23970E-05 2.15209E-04 6.75590E-05 2.05833E-04 + 1.29322E+00 -3.40884E-04 -4.57575E-05 4.06361E-06 -1.06744E-04 + 2.16837E-04 -1.06744E-04 2.16837E-04 3.44580E-05 2.08045E-04 + 1.29320E+00 -3.39154E-04 -4.48864E-05 4.00567E-06 -1.31042E-04 + 2.18453E-04 -1.31042E-04 2.18453E-04 1.90231E-06 2.10208E-04 + 1.29317E+00 -3.37415E-04 -4.39779E-05 3.94551E-06 -1.54956E-04 + 2.20036E-04 -1.54956E-04 2.20036E-04 -2.97303E-05 2.12304E-04 + 1.29322E+00 -3.39145E-04 -4.30291E-05 3.88295E-06 -1.78703E-04 + 2.21599E-04 -1.78703E-04 2.21599E-04 -6.07091E-05 2.14347E-04 + 1.29314E+00 -3.35676E-04 -4.20469E-05 3.81849E-06 -2.02514E-04 + 2.23164E-04 -2.02514E-04 2.23164E-04 -9.15281E-05 2.16367E-04 + 1.29306E+00 -3.30458E-04 -4.09038E-05 3.74384E-06 -2.26103E-04 + 2.24703E-04 -2.26103E-04 2.24703E-04 -1.21476E-04 2.18327E-04 + 1.29316E+00 -3.35666E-04 -3.98951E-05 3.67819E-06 -2.49358E-04 + 2.26219E-04 -2.49358E-04 2.26219E-04 -1.50930E-04 2.20240E-04 + 1.29314E+00 -3.33936E-04 -3.88219E-05 3.60870E-06 -2.72899E-04 + 2.27740E-04 -2.72899E-04 2.27740E-04 -1.80176E-04 2.22135E-04 + 1.29313E+00 -3.33927E-04 -3.77088E-05 3.53695E-06 -2.96045E-04 + 2.29235E-04 -2.96045E-04 2.29235E-04 -2.08813E-04 2.23980E-04 + 1.29306E+00 -3.30458E-04 -3.39770E-05 3.29743E-06 -3.16707E-04 + 2.30560E-04 -3.16707E-04 2.30560E-04 -2.34527E-04 2.25631E-04 + 1.29308E+00 -3.32197E-04 -3.13681E-05 3.13074E-06 -3.38339E-04 + 2.31942E-04 -3.38339E-04 2.31942E-04 -2.60942E-04 2.27322E-04 + 1.29313E+00 -3.35666E-04 -3.14500E-05 3.13593E-06 -3.62624E-04 + 2.33485E-04 -3.62624E-04 2.33485E-04 -2.89740E-04 2.29150E-04 + 1.29306E+00 -3.30458E-04 -3.04794E-05 3.07445E-06 -3.85842E-04 + 2.34959E-04 -3.85842E-04 2.34959E-04 -3.17305E-04 2.30899E-04 + 1.29313E+00 -3.33927E-04 -2.92595E-05 2.99751E-06 -4.09039E-04 + 2.36420E-04 -4.09039E-04 2.36420E-04 -3.44471E-04 2.32608E-04 + 1.29308E+00 -3.32197E-04 -2.80709E-05 2.92286E-06 -4.31824E-04 + 2.37853E-04 -4.31824E-04 2.37853E-04 -3.71113E-04 2.34283E-04 + 1.29311E+00 -3.32197E-04 -2.67066E-05 2.83759E-06 -4.54651E-04 + 2.39280E-04 -4.54651E-04 2.39280E-04 -3.97473E-04 2.35934E-04 + 1.29316E+00 -3.35666E-04 -2.53123E-05 2.75076E-06 -4.77357E-04 + 2.40693E-04 -4.77357E-04 2.40693E-04 -4.23550E-04 2.37554E-04 + 1.29311E+00 -3.33936E-04 -2.40085E-05 2.66992E-06 -5.00252E-04 + 2.42113E-04 -5.00252E-04 2.42113E-04 -4.49596E-04 2.39171E-04 + 1.29308E+00 -3.32197E-04 -2.25818E-05 2.58183E-06 -5.23134E-04 + 2.43526E-04 -5.23134E-04 2.43526E-04 -4.75468E-04 2.40767E-04 + 1.29313E+00 -3.35666E-04 -2.11893E-05 2.49623E-06 -5.46110E-04 + 2.44936E-04 -5.46110E-04 2.44936E-04 -5.01162E-04 2.42347E-04 + 1.29317E+00 -3.37415E-04 -1.97938E-05 2.41079E-06 -5.68681E-04 + 2.46318E-04 -5.68681E-04 2.46318E-04 -5.26450E-04 2.43896E-04 + 1.29313E+00 -3.35666E-04 -1.84238E-05 2.32729E-06 -5.91818E-04 + 2.47728E-04 -5.91818E-04 2.47728E-04 -5.52034E-04 2.45455E-04 + 1.29320E+00 -3.39154E-04 -1.70099E-05 2.24142E-06 -6.14608E-04 + 2.49114E-04 -6.14608E-04 2.49114E-04 -5.77160E-04 2.46980E-04 + 1.29317E+00 -3.35676E-04 -1.56673E-05 2.16026E-06 -6.37979E-04 + 2.50527E-04 -6.37979E-04 2.50527E-04 -6.02759E-04 2.48530E-04 + 1.29327E+00 -3.42623E-04 -1.43085E-05 2.07847E-06 -6.60680E-04 + 2.51896E-04 -6.60680E-04 2.51896E-04 -6.27581E-04 2.50024E-04 + 1.29398E+00 -3.86114E-04 -1.29709E-05 1.99824E-06 -6.81841E-04 + 2.53160E-04 -6.81841E-04 2.53160E-04 -6.50643E-04 2.51407E-04 + 1.29241E+00 -2.90447E-04 -1.16916E-05 1.92187E-06 -7.09812E-04 + 2.54834E-04 -7.09812E-04 2.54834E-04 -6.80463E-04 2.53187E-04 + 1.29431E+00 -4.03506E-04 -1.03616E-05 1.84275E-06 -7.27768E-04 + 2.55901E-04 -7.27768E-04 2.55901E-04 -7.00157E-04 2.54359E-04 + 1.29225E+00 -2.83498E-04 -9.16207E-06 1.77171E-06 -7.57227E-04 + 2.57644E-04 -7.57227E-04 2.57644E-04 -7.31247E-04 2.56200E-04 + 1.29502E+00 -4.45236E-04 -7.87227E-06 1.69563E-06 -7.72913E-04 + 2.58571E-04 -7.72913E-04 2.58571E-04 -7.48455E-04 2.57215E-04 + 1.29180E+00 -2.57409E-04 -6.71157E-06 1.62742E-06 -8.05871E-04 + 2.60507E-04 -8.05871E-04 2.60507E-04 -7.82881E-04 2.59237E-04 + 1.29367E+00 -3.66982E-04 -5.54089E-06 1.55889E-06 -8.24296E-04 + 2.61587E-04 -8.24296E-04 2.61587E-04 -8.02773E-04 2.60399E-04 + 1.29313E+00 -3.35666E-04 -4.39174E-06 1.49192E-06 -8.50035E-04 + 2.63085E-04 -8.50035E-04 2.63085E-04 -8.29709E-04 2.61967E-04 + 1.29300E+00 -3.26979E-04 -3.25558E-06 1.42596E-06 -8.74843E-04 + 2.64522E-04 -8.74843E-04 2.64522E-04 -8.55712E-04 2.63480E-04 + 1.29408E+00 -3.89581E-04 -2.17061E-06 1.36324E-06 -8.95907E-04 + 2.65738E-04 -8.95907E-04 2.65738E-04 -8.77754E-04 2.64756E-04 + 1.29278E+00 -3.14805E-04 -1.14563E-06 1.30420E-06 -9.24195E-04 + 2.67373E-04 -9.24195E-04 2.67373E-04 -9.07237E-04 2.66455E-04 + 1.29364E+00 -3.63504E-04 -1.19319E-07 1.24534E-06 -9.46261E-04 + 2.68640E-04 -9.46261E-04 2.68640E-04 -9.30282E-04 2.67777E-04 + 1.29374E+00 -3.70450E-04 8.81915E-07 1.18811E-06 -9.70693E-04 + 2.70035E-04 -9.70693E-04 2.70035E-04 -9.55801E-04 2.69230E-04 + 1.29328E+00 -3.44372E-04 1.82927E-06 1.13419E-06 -9.97026E-04 + 2.71534E-04 -9.97026E-04 2.71534E-04 -9.82894E-04 2.70776E-04 + 1.29328E+00 -3.44372E-04 2.74645E-06 1.08218E-06 -1.02225E-03 + 2.72964E-04 -1.02225E-03 2.72964E-04 -1.00898E-03 2.72254E-04 + 1.29355E+00 -3.58276E-04 3.62872E-06 1.03236E-06 -1.04689E-03 + 2.74356E-04 -1.04689E-03 2.74356E-04 -1.03439E-03 2.73693E-04 + 1.29384E+00 -3.75678E-04 4.52605E-06 9.81859E-07 -1.07138E-03 + 2.75729E-04 -1.07138E-03 2.75729E-04 -1.05953E-03 2.75104E-04 + 1.29369E+00 -3.66972E-04 5.15137E-06 9.46827E-07 -1.09776E-03 + 2.77213E-04 -1.09776E-03 2.77213E-04 -1.08678E-03 2.76632E-04 + 1.29339E+00 -3.49590E-04 6.32814E-06 8.81117E-07 -1.12399E-03 + 2.78674E-04 -1.12399E-03 2.78674E-04 -1.11366E-03 2.78127E-04 + 1.29400E+00 -3.84375E-04 6.91497E-06 8.48474E-07 -1.14856E-03 + 2.80047E-04 -1.14856E-03 2.80047E-04 -1.13888E-03 2.79534E-04 + 1.29344E+00 -3.53058E-04 7.65402E-06 8.07529E-07 -1.17624E-03 + 2.81578E-04 -1.17624E-03 2.81578E-04 -1.16711E-03 2.81095E-04 + 1.29414E+00 -3.93071E-04 8.37609E-06 7.67690E-07 -1.20052E-03 + 2.82914E-04 -1.20052E-03 2.82914E-04 -1.19193E-03 2.82465E-04 + 1.29333E+00 -3.46101E-04 9.05226E-06 7.30489E-07 -1.22973E-03 + 2.84523E-04 -1.22973E-03 2.84523E-04 -1.22157E-03 2.84102E-04 + 1.29372E+00 -3.68721E-04 9.71875E-06 6.93991E-07 -1.25530E-03 + 2.85923E-04 -1.25530E-03 2.85923E-04 -1.24770E-03 2.85529E-04 + 1.29403E+00 -3.86114E-04 1.03574E-05 6.59119E-07 -1.28150E-03 + 2.87350E-04 -1.28150E-03 2.87350E-04 -1.27422E-03 2.86976E-04 + 1.29358E+00 -3.60015E-04 1.09588E-05 6.26433E-07 -1.31005E-03 + 2.88905E-04 -1.31005E-03 2.88905E-04 -1.30332E-03 2.88558E-04 + 1.29428E+00 -4.00028E-04 1.15561E-05 5.94073E-07 -1.33531E-03 + 2.90272E-04 -1.33531E-03 2.90272E-04 -1.32890E-03 2.89945E-04 + 1.29378E+00 -3.72200E-04 1.20389E-05 5.68011E-07 -1.36433E-03 + 2.91841E-04 -1.36433E-03 2.91841E-04 -1.35846E-03 2.91542E-04 + 1.29377E+00 -3.72189E-04 1.27048E-05 5.32196E-07 -1.39245E-03 + 2.93348E-04 -1.39245E-03 2.93348E-04 -1.38680E-03 2.93063E-04 + 1.29403E+00 -3.86114E-04 1.31612E-05 5.07742E-07 -1.41956E-03 + 2.94803E-04 -1.41956E-03 2.94803E-04 -1.41412E-03 2.94531E-04 + 1.29397E+00 -3.82625E-04 1.36495E-05 4.81694E-07 -1.44789E-03 + 2.96317E-04 -1.44789E-03 2.96317E-04 -1.44289E-03 2.96065E-04 + 1.29395E+00 -3.80896E-04 1.41200E-05 4.56654E-07 -1.47673E-03 + 2.97847E-04 -1.47673E-03 2.97847E-04 -1.47206E-03 2.97616E-04 + 1.29420E+00 -3.93071E-04 1.45743E-05 4.32584E-07 -1.50467E-03 + 2.99328E-04 -1.50467E-03 2.99328E-04 -1.50010E-03 2.99104E-04 + 1.29397E+00 -3.82625E-04 1.50002E-05 4.10094E-07 -1.53441E-03 + 3.00902E-04 -1.53441E-03 3.00902E-04 -1.53039E-03 3.00699E-04 + 1.29442E+00 -4.05246E-04 1.54189E-05 3.88078E-07 -1.56163E-03 + 3.02338E-04 -1.56163E-03 3.02338E-04 -1.55793E-03 3.02147E-04 + 1.29397E+00 -3.82625E-04 1.58048E-05 3.67845E-07 -1.59300E-03 + 3.03980E-04 -1.59300E-03 3.03980E-04 -1.58931E-03 3.03797E-04 + 1.29425E+00 -3.96549E-04 1.61845E-05 3.48004E-07 -1.62131E-03 + 3.05456E-04 -1.62131E-03 3.05456E-04 -1.61783E-03 3.05286E-04 + 1.29436E+00 -4.01767E-04 1.65479E-05 3.29082E-07 -1.65142E-03 + 3.07025E-04 -1.65142E-03 3.07025E-04 -1.64827E-03 3.06869E-04 + 1.29419E+00 -3.94799E-04 1.68808E-05 3.11823E-07 -1.68137E-03 + 3.08579E-04 -1.68137E-03 3.08579E-04 -1.67833E-03 3.08430E-04 + 1.29453E+00 -4.10463E-04 1.72171E-05 2.94449E-07 -1.71110E-03 + 3.10117E-04 -1.71110E-03 3.10117E-04 -1.70827E-03 3.09974E-04 + 1.29428E+00 -3.98289E-04 1.75224E-05 2.78711E-07 -1.74219E-03 + 3.11713E-04 -1.74219E-03 3.11713E-04 -1.73947E-03 3.11584E-04 + 1.29461E+00 -4.13930E-04 1.78251E-05 2.63205E-07 -1.77214E-03 + 3.13254E-04 -1.77214E-03 3.13254E-04 -1.76964E-03 3.13131E-04 + 1.29428E+00 -3.98289E-04 1.81016E-05 2.49041E-07 -1.80426E-03 + 3.14893E-04 -1.80426E-03 3.14893E-04 -1.80186E-03 3.14777E-04 + 1.29461E+00 -4.15670E-04 1.83788E-05 2.34916E-07 -1.83432E-03 + 3.16426E-04 -1.83432E-03 3.16426E-04 -1.83203E-03 3.16318E-04 + 1.29442E+00 -4.05246E-04 1.86324E-05 2.22051E-07 -1.86665E-03 + 3.18072E-04 -1.86665E-03 3.18072E-04 -1.86459E-03 3.17970E-04 + 1.29456E+00 -4.12203E-04 1.88778E-05 2.09631E-07 -1.89796E-03 + 3.19655E-04 -1.89796E-03 3.19655E-04 -1.89600E-03 3.19560E-04 + 1.29463E+00 -4.17409E-04 1.91134E-05 1.97762E-07 -1.92986E-03 + 3.21263E-04 -1.92986E-03 3.21263E-04 -1.92802E-03 3.21175E-04 + 1.29467E+00 -4.17420E-04 1.93364E-05 1.86542E-07 -1.96198E-03 + 3.22876E-04 -1.96198E-03 3.22876E-04 -1.96024E-03 3.22794E-04 + 1.29470E+00 -4.19160E-04 1.95211E-05 1.77280E-07 -1.99449E-03 + 3.24499E-04 -1.99449E-03 3.24499E-04 -1.99275E-03 3.24425E-04 + 1.29472E+00 -4.20887E-04 1.97694E-05 1.64908E-07 -2.02737E-03 + 3.26148E-04 -2.02737E-03 3.26148E-04 -2.02585E-03 3.26073E-04 + 1.29489E+00 -4.29595E-04 1.99432E-05 1.56261E-07 -2.05982E-03 + 3.27761E-04 -2.05982E-03 3.27761E-04 -2.05840E-03 3.27693E-04 + 1.29475E+00 -4.22626E-04 2.01189E-05 1.47552E-07 -2.09346E-03 + 3.29430E-04 -2.09346E-03 3.29430E-04 -2.09226E-03 3.29368E-04 + 1.29487E+00 -4.27856E-04 2.02952E-05 1.38851E-07 -2.12700E-03 + 3.31083E-04 -2.12700E-03 3.31083E-04 -2.12569E-03 3.31022E-04 + 1.29492E+00 -4.31334E-04 2.04608E-05 1.30677E-07 -2.16048E-03 + 3.32734E-04 -2.16048E-03 3.32734E-04 -2.15939E-03 3.32679E-04 + 1.29497E+00 -4.33062E-04 2.06178E-05 1.22978E-07 -2.19477E-03 + 3.34409E-04 -2.19477E-03 3.34409E-04 -2.19357E-03 3.34355E-04 + 1.29495E+00 -4.33074E-04 2.07623E-05 1.15922E-07 -2.22896E-03 + 3.36083E-04 -2.22896E-03 3.36083E-04 -2.22787E-03 3.36036E-04 + 1.29505E+00 -4.36540E-04 2.09087E-05 1.08780E-07 -2.26346E-03 + 3.37772E-04 -2.26346E-03 3.37772E-04 -2.26259E-03 3.37725E-04 + 1.29512E+00 -4.40031E-04 2.10409E-05 1.02360E-07 -2.29831E-03 + 3.39460E-04 -2.29831E-03 3.39460E-04 -2.29744E-03 3.39419E-04 + 1.29512E+00 -4.40031E-04 2.11368E-05 9.77161E-08 -2.33375E-03 + 3.41172E-04 -2.33375E-03 3.41172E-04 -2.33277E-03 3.41131E-04 + 1.29519E+00 -4.43497E-04 2.13239E-05 8.86904E-08 -2.36890E-03 + 3.42874E-04 -2.36890E-03 3.42874E-04 -2.36803E-03 3.42834E-04 + 1.29520E+00 -4.45248E-04 2.14065E-05 8.47121E-08 -2.40462E-03 + 3.44589E-04 -2.40462E-03 3.44589E-04 -2.40386E-03 3.44555E-04 + 1.29526E+00 -4.46988E-04 2.15152E-05 7.95105E-08 -2.44060E-03 + 3.46322E-04 -2.44060E-03 3.46322E-04 -2.43995E-03 3.46288E-04 + 1.29533E+00 -4.50454E-04 2.16190E-05 7.45456E-08 -2.47663E-03 + 3.48038E-04 -2.47663E-03 3.48038E-04 -2.47586E-03 3.48004E-04 + 1.29537E+00 -4.52205E-04 2.17177E-05 6.98238E-08 -2.51365E-03 + 3.49800E-04 -2.51365E-03 3.49800E-04 -2.51300E-03 3.49773E-04 + 1.29544E+00 -4.55671E-04 2.18114E-05 6.53900E-08 -2.55000E-03 + 3.51523E-04 -2.55000E-03 3.51523E-04 -2.54924E-03 3.51496E-04 + 1.29545E+00 -4.55684E-04 2.18969E-05 6.13313E-08 -2.58757E-03 + 3.53306E-04 -2.58757E-03 3.53306E-04 -2.58692E-03 3.53279E-04 + 1.29551E+00 -4.59162E-04 2.19844E-05 5.72178E-08 -2.62453E-03 + 3.55045E-04 -2.62453E-03 3.55045E-04 -2.62399E-03 3.55025E-04 + 1.29555E+00 -4.60889E-04 2.20627E-05 5.35274E-08 -2.66283E-03 + 3.56849E-04 -2.66283E-03 3.56849E-04 -2.66239E-03 3.56829E-04 + 1.29562E+00 -4.64380E-04 2.21262E-05 5.05831E-08 -2.70051E-03 + 3.58612E-04 -2.70051E-03 3.58612E-04 -2.69997E-03 3.58592E-04 + 1.29564E+00 -4.66106E-04 2.22165E-05 4.63621E-08 -2.73892E-03 + 3.60409E-04 -2.73892E-03 3.60409E-04 -2.73848E-03 3.60389E-04 + 1.29567E+00 -4.67859E-04 2.22425E-05 4.51426E-08 -2.77737E-03 + 3.62199E-04 -2.77737E-03 3.62199E-04 -2.77682E-03 3.62179E-04 + 1.29573E+00 -4.69598E-04 2.23954E-05 3.80302E-08 -2.81672E-03 + 3.64027E-04 -2.81672E-03 3.64027E-04 -2.81628E-03 3.64006E-04 + 1.29580E+00 -4.73063E-04 2.23659E-05 3.93826E-08 -2.85566E-03 + 3.65824E-04 -2.85566E-03 3.65824E-04 -2.85523E-03 3.65810E-04 + 1.29584E+00 -4.74816E-04 2.24642E-05 3.48721E-08 -2.89531E-03 + 3.67655E-04 -2.89531E-03 3.67655E-04 -2.89498E-03 3.67641E-04 + 1.29590E+00 -4.76555E-04 2.25169E-05 3.24570E-08 -2.93488E-03 + 3.69475E-04 -2.93488E-03 3.69475E-04 -2.93455E-03 3.69462E-04 + 1.29600E+00 -4.81759E-04 2.26139E-05 2.79977E-08 -2.97556E-03 + 3.71340E-04 -2.97556E-03 3.71340E-04 -2.97534E-03 3.71327E-04 + 1.29592E+00 -4.78294E-04 2.26179E-05 2.78127E-08 -3.01597E-03 + 3.73185E-04 -3.01597E-03 3.73185E-04 -3.01564E-03 3.73171E-04 + 1.29608E+00 -4.85238E-04 2.26682E-05 2.55297E-08 -3.05665E-03 + 3.75043E-04 -3.05665E-03 3.75043E-04 -3.05643E-03 3.75029E-04 + 1.29612E+00 -4.86990E-04 2.27062E-05 2.38054E-08 -3.09782E-03 + 3.76908E-04 -3.09782E-03 3.76908E-04 -3.09761E-03 3.76901E-04 + 1.29617E+00 -4.90469E-04 2.27504E-05 2.17884E-08 -3.13946E-03 + 3.78797E-04 -3.13946E-03 3.78797E-04 -3.13924E-03 3.78783E-04 + 1.29619E+00 -4.90455E-04 2.27574E-05 2.14693E-08 -3.18089E-03 + 3.80661E-04 -3.18089E-03 3.80661E-04 -3.18068E-03 3.80654E-04 + 1.29634E+00 -4.97426E-04 2.28846E-05 1.57641E-08 -3.22327E-03 + 3.82567E-04 -3.22327E-03 3.82567E-04 -3.22283E-03 3.82554E-04 + 1.29633E+00 -4.95673E-04 2.28270E-05 1.83113E-08 -3.26590E-03 + 3.84479E-04 -3.26590E-03 3.84479E-04 -3.26568E-03 3.84473E-04 + 1.29637E+00 -4.97426E-04 2.29007E-05 1.50475E-08 -3.30882E-03 + 3.86399E-04 -3.30882E-03 3.86399E-04 -3.30860E-03 3.86392E-04 + 1.29648E+00 -5.02644E-04 2.29338E-05 1.35614E-08 -3.35175E-03 + 3.88315E-04 -3.35175E-03 3.88315E-04 -3.35154E-03 3.88308E-04 + 1.29653E+00 -5.04369E-04 2.29740E-05 1.17564E-08 -3.39492E-03 + 3.90234E-04 -3.39492E-03 3.90234E-04 -3.39471E-03 3.90227E-04 + 1.29654E+00 -5.06122E-04 2.30272E-05 9.39476E-09 -3.43893E-03 + 3.92181E-04 -3.43893E-03 3.92181E-04 -3.43872E-03 3.92174E-04 + 1.29662E+00 -5.09601E-04 2.30188E-05 9.79284E-09 -3.48329E-03 + 3.94137E-04 -3.48329E-03 3.94137E-04 -3.48307E-03 3.94131E-04 + 1.29664E+00 -5.11326E-04 2.30461E-05 8.59835E-09 -3.52765E-03 + 3.96097E-04 -3.52765E-03 3.96097E-04 -3.52754E-03 3.96090E-04 + 1.29673E+00 -5.14818E-04 2.30714E-05 7.48396E-09 -3.57264E-03 + 3.98064E-04 -3.57264E-03 3.98064E-04 -3.57221E-03 3.98058E-04 + 1.29678E+00 -5.16543E-04 2.30801E-05 7.11222E-09 -3.61754E-03 + 4.00037E-04 -3.61754E-03 4.00037E-04 -3.61754E-03 4.00037E-04 + 1.29690E+00 -5.21775E-04 2.31427E-05 4.40545E-09 -3.66330E-03 + 4.02025E-04 -3.66330E-03 4.02025E-04 -3.66308E-03 4.02018E-04 + 1.29681E+00 -5.18297E-04 2.31190E-05 5.38739E-09 -3.70961E-03 + 4.04043E-04 -3.70961E-03 4.04043E-04 -3.70939E-03 4.04036E-04 + 1.29700E+00 -5.26979E-04 2.31565E-05 3.76841E-09 -3.75537E-03 + 4.06036E-04 -3.75537E-03 4.06036E-04 -3.75559E-03 4.06036E-04 + 1.29701E+00 -5.26993E-04 2.31793E-05 2.78658E-09 -3.80200E-03 + 4.08051E-04 -3.80200E-03 4.08051E-04 -3.80200E-03 4.08045E-04 + 1.29706E+00 -5.28732E-04 2.31996E-05 1.91080E-09 -3.84940E-03 + 4.10096E-04 -3.84940E-03 4.10096E-04 -3.84962E-03 4.10096E-04 + 1.29714E+00 -5.32196E-04 2.32313E-05 5.57301E-10 -3.89668E-03 + 4.12123E-04 -3.89668E-03 4.12123E-04 -3.89647E-03 4.12116E-04 + 1.29723E+00 -5.35689E-04 2.32285E-05 6.63472E-10 -3.94375E-03 + 4.14146E-04 -3.94375E-03 4.14146E-04 -3.94375E-03 4.14146E-04 + 1.29725E+00 -5.37414E-04 2.32449E-05 -2.65381E-11 -3.99234E-03 + 4.16227E-04 -3.99234E-03 4.16227E-04 -3.99234E-03 4.16220E-04 + 1.29734E+00 -5.40907E-04 2.32582E-05 -6.10394E-10 -4.04093E-03 + 4.18290E-04 -4.04093E-03 4.18290E-04 -4.04093E-03 4.18290E-04 + 1.29743E+00 -5.44386E-04 2.32642E-05 -8.49244E-10 -4.09007E-03 + 4.20383E-04 -4.09007E-03 4.20383E-04 -4.09007E-03 4.20383E-04 + 1.29742E+00 -5.44371E-04 2.32856E-05 -1.77805E-09 -4.13887E-03 + 4.22450E-04 -4.13887E-03 4.22450E-04 -4.13887E-03 4.22443E-04 + 1.29754E+00 -5.49603E-04 2.33066E-05 -2.65389E-09 -4.18855E-03 + 4.24554E-04 -4.18855E-03 4.24554E-04 -4.18877E-03 4.24554E-04 + 1.29758E+00 -5.51327E-04 2.33068E-05 -2.62728E-09 -4.23887E-03 + 4.26669E-04 -4.23887E-03 4.26669E-04 -4.23909E-03 4.26669E-04 + 1.29768E+00 -5.54821E-04 2.33219E-05 -3.26428E-09 -4.28899E-03 + 4.28773E-04 -4.28899E-03 4.28773E-04 -4.28878E-03 4.28766E-04 + 1.29768E+00 -5.54821E-04 2.33355E-05 -3.84814E-09 -4.34008E-03 + 4.30913E-04 -4.34008E-03 4.30913E-04 -4.34008E-03 4.30913E-04 + 1.29778E+00 -5.60023E-04 2.33519E-05 -4.53802E-09 -4.39105E-03 + 4.33041E-04 -4.39105E-03 4.33041E-04 -4.39105E-03 4.33041E-04 + 1.29784E+00 -5.61778E-04 2.33517E-05 -4.51161E-09 -4.44270E-03 + 4.35193E-04 -4.44270E-03 4.35193E-04 -4.44270E-03 4.35193E-04 + 1.29793E+00 -5.65257E-04 2.33610E-05 -4.93623E-09 -4.49488E-03 + 4.37361E-04 -4.49488E-03 4.37361E-04 -4.49466E-03 4.37354E-04 + 1.29797E+00 -5.66980E-04 2.33705E-05 -5.30763E-09 -4.54693E-03 + 4.39516E-04 -4.54693E-03 4.39516E-04 -4.54693E-03 4.39516E-04 + 1.29809E+00 -5.72214E-04 2.33746E-05 -5.46701E-09 -4.59989E-03 + 4.41702E-04 -4.59989E-03 4.41702E-04 -4.59989E-03 4.41702E-04 + 1.29814E+00 -5.73937E-04 2.33884E-05 -6.05069E-09 -4.65302E-03 + 4.43884E-04 -4.65302E-03 4.43884E-04 -4.65280E-03 4.43884E-04 + 1.29818E+00 -5.75692E-04 2.33984E-05 -6.44895E-09 -4.70663E-03 + 4.46091E-04 -4.70663E-03 4.46091E-04 -4.70663E-03 4.46091E-04 + 1.29829E+00 -5.79171E-04 2.34001E-05 -6.52856E-09 -4.76077E-03 + 4.48312E-04 -4.76077E-03 4.48312E-04 -4.76077E-03 4.48306E-04 + 1.29828E+00 -5.80894E-04 2.34096E-05 -6.92645E-09 -4.81498E-03 + 4.50522E-04 -4.81498E-03 4.50522E-04 -4.81498E-03 4.50522E-04 + 1.29846E+00 -5.86128E-04 2.34179E-05 -7.24511E-09 -4.86990E-03 + 4.52762E-04 -4.86990E-03 4.52762E-04 -4.87012E-03 4.52762E-04 + 1.29848E+00 -5.87851E-04 2.34257E-05 -7.56337E-09 -4.92542E-03 + 4.55005E-04 -4.92542E-03 4.55005E-04 -4.92521E-03 4.55005E-04 + 1.29857E+00 -5.91345E-04 2.34272E-05 -7.61666E-09 -4.98078E-03 + 4.57246E-04 -4.98078E-03 4.57246E-04 -4.98056E-03 4.57246E-04 + 1.29859E+00 -5.93085E-04 2.34332E-05 -7.88204E-09 -5.03731E-03 + 4.59536E-04 -5.03731E-03 4.59536E-04 -5.03731E-03 4.59536E-04 + 1.29873E+00 -5.98286E-04 2.34402E-05 -8.14721E-09 -5.09369E-03 + 4.61806E-04 -5.09369E-03 4.61806E-04 -5.09369E-03 4.61806E-04 + 1.29873E+00 -5.98303E-04 2.34417E-05 -8.22705E-09 -5.15014E-03 + 4.64074E-04 -5.15014E-03 4.64074E-04 -5.15014E-03 4.64068E-04 + 1.29885E+00 -6.03520E-04 2.34519E-05 -8.59859E-09 -5.20819E-03 + 4.66405E-04 -5.20819E-03 4.66405E-04 -5.20841E-03 4.66405E-04 + 1.29886E+00 -6.05243E-04 2.34555E-05 -8.75758E-09 -5.26587E-03 + 4.68702E-04 -5.26587E-03 4.68702E-04 -5.26587E-03 4.68702E-04 + 1.29896E+00 -6.06999E-04 2.34595E-05 -8.91706E-09 -5.32428E-03 + 4.71025E-04 -5.32428E-03 4.71025E-04 -5.32428E-03 4.71025E-04 + 1.29909E+00 -6.12199E-04 2.34631E-05 -9.07604E-09 -5.38283E-03 + 4.73349E-04 -5.38283E-03 4.73349E-04 -5.38262E-03 4.73349E-04 + 1.29918E+00 -6.15695E-04 2.34689E-05 -9.31514E-09 -5.44255E-03 + 4.75712E-04 -5.44255E-03 4.75712E-04 -5.44234E-03 4.75712E-04 + 1.29918E+00 -6.17434E-04 2.34748E-05 -9.52745E-09 -5.50190E-03 + 4.78056E-04 -5.50190E-03 4.78056E-04 -5.50169E-03 4.78056E-04 + 1.29931E+00 -6.22635E-04 2.34775E-05 -9.65988E-09 -5.56110E-03 + 4.80400E-04 -5.56110E-03 4.80400E-04 -5.56132E-03 4.80400E-04 + 1.29935E+00 -6.22652E-04 2.34790E-05 -9.71323E-09 -5.62278E-03 + 4.82819E-04 -5.62278E-03 4.82819E-04 -5.62278E-03 4.82819E-04 + 1.29942E+00 -6.24374E-04 2.34843E-05 -9.92526E-09 -5.68328E-03 + 4.85197E-04 -5.68328E-03 4.85197E-04 -5.68350E-03 4.85197E-04 + 1.29957E+00 -6.33088E-04 2.34875E-05 -1.00317E-08 -5.74453E-03 + 4.87588E-04 -5.74453E-03 4.87588E-04 -5.74453E-03 4.87588E-04 + 1.29957E+00 -6.31348E-04 2.34901E-05 -1.01644E-08 -5.80693E-03 + 4.90014E-04 -5.80693E-03 4.90014E-04 -5.80693E-03 4.90014E-04 + 1.29970E+00 -6.36548E-04 2.34962E-05 -1.03764E-08 -5.86894E-03 + 4.92425E-04 -5.86894E-03 4.92425E-04 -5.86894E-03 4.92425E-04 + 1.29979E+00 -6.40045E-04 2.34969E-05 -1.04032E-08 -5.93215E-03 + 4.94878E-04 -5.93215E-03 4.94878E-04 -5.93215E-03 4.94878E-04 + 1.29985E+00 -6.43523E-04 2.35020E-05 -1.05890E-08 -5.99498E-03 + 4.97310E-04 -5.99498E-03 4.97310E-04 -5.99498E-03 4.97310E-04 + 1.29992E+00 -6.45244E-04 2.35064E-05 -1.07745E-08 -6.05917E-03 + 4.99783E-04 -6.05917E-03 4.99783E-04 -6.05917E-03 4.99783E-04 + 1.30001E+00 -6.48741E-04 2.35088E-05 -1.08279E-08 -6.12347E-03 + 5.02250E-04 -6.12347E-03 5.02250E-04 -6.12325E-03 5.02250E-04 + 1.30009E+00 -6.52201E-04 2.35107E-05 -1.09337E-08 -6.18830E-03 + 5.04743E-04 -6.18830E-03 5.04743E-04 -6.18808E-03 5.04736E-04 + 1.30024E+00 -6.55698E-04 2.34909E-05 -1.01644E-08 -6.25370E-03 + 5.07243E-04 -6.25370E-03 5.07243E-04 -6.25370E-03 5.07243E-04 + 1.30029E+00 -6.57437E-04 2.35402E-05 -1.20752E-08 -6.31892E-03 + 5.09730E-04 -6.31892E-03 5.09730E-04 -6.31892E-03 5.09730E-04 + 1.30042E+00 -6.64376E-04 2.35183E-05 -1.12256E-08 -6.38570E-03 + 5.12277E-04 -6.38570E-03 5.12277E-04 -6.38570E-03 5.12277E-04 + 1.30040E+00 -6.64394E-04 2.35198E-05 -1.12790E-08 -6.45197E-03 + 5.14798E-04 -6.45197E-03 5.14798E-04 -6.45197E-03 5.14798E-04 + 1.30046E+00 -6.66133E-04 2.35258E-05 -1.15179E-08 -6.52002E-03 + 5.17366E-04 -6.52002E-03 5.17366E-04 -6.52002E-03 5.17366E-04 + 1.30065E+00 -6.73072E-04 2.35276E-05 -1.15706E-08 -6.58680E-03 + 5.19886E-04 -6.58680E-03 5.19886E-04 -6.58680E-03 5.19886E-04 + 1.30074E+00 -6.74830E-04 2.35308E-05 -1.16771E-08 -6.65503E-03 + 5.22462E-04 -6.65503E-03 5.22462E-04 -6.65503E-03 5.22462E-04 + 1.30076E+00 -6.78289E-04 2.35319E-05 -1.17299E-08 -6.72485E-03 + 5.25076E-04 -6.72485E-03 5.25076E-04 -6.72485E-03 5.25076E-04 + 1.30096E+00 -6.83526E-04 2.35359E-05 -1.18894E-08 -6.79308E-03 + 5.27639E-04 -6.79308E-03 5.27639E-04 -6.79308E-03 5.27639E-04 + 1.30090E+00 -6.83526E-04 2.35376E-05 -1.19425E-08 -6.86352E-03 + 5.30275E-04 -6.86352E-03 5.30275E-04 -6.86352E-03 5.30275E-04 + 1.30109E+00 -6.88724E-04 2.35378E-05 -1.19687E-08 -6.93355E-03 + 5.32889E-04 -6.93355E-03 5.32889E-04 -6.93355E-03 5.32889E-04 + 1.30113E+00 -6.92222E-04 2.35419E-05 -1.21017E-08 -7.00418E-03 + 5.35513E-04 -7.00418E-03 5.35513E-04 -7.00418E-03 5.35513E-04 + 1.30126E+00 -6.95681E-04 2.35455E-05 -1.22341E-08 -7.07595E-03 + 5.38168E-04 -7.07595E-03 5.38168E-04 -7.07595E-03 5.38168E-04 + 1.30135E+00 -6.99179E-04 2.35470E-05 -1.23140E-08 -7.14767E-03 + 5.40826E-04 -7.14767E-03 5.40826E-04 -7.14767E-03 5.40826E-04 + 1.30141E+00 -7.00918E-04 2.35351E-05 -1.18629E-08 -7.21985E-03 + 5.43496E-04 -7.21985E-03 5.43496E-04 -7.21985E-03 5.43496E-04 + 1.30148E+00 -7.04377E-04 2.35642E-05 -1.29241E-08 -7.29291E-03 + 5.46184E-04 -7.29291E-03 5.46184E-04 -7.29291E-03 5.46184E-04 + 1.30168E+00 -7.11354E-04 2.35436E-05 -1.21813E-08 -7.36595E-03 + 5.48863E-04 -7.36595E-03 5.48863E-04 -7.36595E-03 5.48863E-04 + 1.30174E+00 -7.13093E-04 2.35572E-05 -1.26856E-08 -7.44074E-03 + 5.51601E-04 -7.44074E-03 5.51601E-04 -7.44074E-03 5.51601E-04 + 1.30187E+00 -7.16552E-04 2.35183E-05 -1.12522E-08 -7.51466E-03 + 5.54303E-04 -7.51466E-03 5.54303E-04 -7.51466E-03 5.54303E-04 + 1.30191E+00 -7.18311E-04 2.35852E-05 -1.36941E-08 -7.59053E-03 + 5.57063E-04 -7.59053E-03 5.57063E-04 -7.59053E-03 5.57063E-04 + 1.30204E+00 -7.23508E-04 2.35871E-05 -1.37468E-08 -7.66619E-03 + 5.59820E-04 -7.66619E-03 5.59820E-04 -7.66619E-03 5.59820E-04 + 1.30207E+00 -7.25268E-04 2.35351E-05 -1.18629E-08 -7.74184E-03 + 5.62560E-04 -7.74184E-03 5.62560E-04 -7.74184E-03 5.62560E-04 + 1.30230E+00 -7.32225E-04 2.35962E-05 -1.40921E-08 -7.81924E-03 + 5.65359E-04 -7.81924E-03 5.65359E-04 -7.81924E-03 5.65359E-04 + 1.30226E+00 -7.33944E-04 2.35676E-05 -1.30568E-08 -7.89620E-03 + 5.68135E-04 -7.89620E-03 5.68135E-04 -7.89620E-03 5.68135E-04 + 1.30246E+00 -7.39182E-04 2.35419E-05 -1.21283E-08 -7.97425E-03 + 5.70950E-04 -7.97425E-03 5.70950E-04 -7.97425E-03 5.70950E-04 + 1.30254E+00 -7.40900E-04 2.36024E-05 -1.43041E-08 -8.05208E-03 + 5.73747E-04 -8.05208E-03 5.73747E-04 -8.05208E-03 5.73747E-04 + 1.30257E+00 -7.44400E-04 2.35529E-05 -1.25263E-08 -8.13187E-03 + 5.76603E-04 -8.13187E-03 5.76603E-04 -8.13187E-03 5.76603E-04 + 1.30274E+00 -7.49617E-04 2.35665E-05 -1.30306E-08 -8.21209E-03 + 5.79470E-04 -8.21209E-03 5.79470E-04 -8.21209E-03 5.79470E-04 + 1.30282E+00 -7.51336E-04 2.36083E-05 -1.44898E-08 -8.29100E-03 + 5.82280E-04 -8.29100E-03 5.82280E-04 -8.29100E-03 5.82280E-04 + 1.30296E+00 -7.56574E-04 2.35580E-05 -1.27121E-08 -8.37276E-03 + 5.85190E-04 -8.37276E-03 5.85190E-04 -8.37276E-03 5.85190E-04 + 1.30302E+00 -7.60053E-04 2.35801E-05 -1.35083E-08 -8.45320E-03 + 5.88044E-04 -8.45320E-03 5.88044E-04 -8.45320E-03 5.88044E-04 + 1.30315E+00 -7.63510E-04 2.36151E-05 -1.47287E-08 -8.53666E-03 + 5.90989E-04 -8.53666E-03 5.90989E-04 -8.53666E-03 5.90989E-04 + 1.30324E+00 -7.67010E-04 2.35911E-05 -1.39064E-08 -8.61777E-03 + 5.93859E-04 -8.61777E-03 5.93859E-04 -8.61777E-03 5.93859E-04 + 1.30332E+00 -7.70467E-04 2.35828E-05 -1.35875E-08 -8.70232E-03 + 5.96832E-04 -8.70232E-03 5.96832E-04 -8.70232E-03 5.96832E-04 + 1.30341E+00 -7.73967E-04 2.35903E-05 -1.38533E-08 -8.78561E-03 + 5.99756E-04 -8.78561E-03 5.99756E-04 -8.78561E-03 5.99756E-04 + 1.30363E+00 -7.80924E-04 2.35877E-05 -1.37471E-08 -8.86996E-03 + 6.02719E-04 -8.86996E-03 6.02719E-04 -8.86996E-03 6.02719E-04 + 1.30365E+00 -7.82641E-04 2.35981E-05 -1.41183E-08 -8.95472E-03 + 6.05677E-04 -8.95472E-03 6.05677E-04 -8.95472E-03 6.05677E-04 + 1.30374E+00 -7.84402E-04 2.36090E-05 -1.45168E-08 -9.04085E-03 + 6.08684E-04 -9.04085E-03 6.08684E-04 -9.04085E-03 6.08684E-04 + 1.30393E+00 -7.91337E-04 2.36032E-05 -1.43306E-08 -9.12712E-03 + 6.11683E-04 -9.12712E-03 6.11683E-04 -9.12712E-03 6.11683E-04 + 1.30402E+00 -7.94838E-04 2.35920E-05 -1.39329E-08 -9.21368E-03 + 6.14689E-04 -9.21368E-03 6.14689E-04 -9.21368E-03 6.14689E-04 + 1.30408E+00 -7.96577E-04 2.36183E-05 -1.48352E-08 -9.30130E-03 + 6.17720E-04 -9.30130E-03 6.17720E-04 -9.30130E-03 6.17720E-04 + 1.30432E+00 -8.05251E-04 2.35973E-05 -1.41183E-08 -9.38930E-03 + 6.20760E-04 -9.38930E-03 6.20760E-04 -9.38930E-03 6.20760E-04 + 1.30436E+00 -8.05273E-04 2.36064E-05 -1.44371E-08 -9.47849E-03 + 6.23834E-04 -9.47849E-03 6.23834E-04 -9.47849E-03 6.23834E-04 + 1.30441E+00 -8.08752E-04 2.36251E-05 -1.50741E-08 -9.56806E-03 + 6.26919E-04 -9.56806E-03 6.26919E-04 -9.56806E-03 6.26919E-04 + 1.30460E+00 -8.13947E-04 2.36117E-05 -1.46225E-08 -9.65736E-03 + 6.29986E-04 -9.65736E-03 6.29986E-04 -9.65736E-03 6.29986E-04 + 1.30474E+00 -8.19187E-04 2.36115E-05 -1.45964E-08 -9.74894E-03 + 6.33115E-04 -9.74894E-03 6.33115E-04 -9.74894E-03 6.33115E-04 + 1.30482E+00 -8.20904E-04 2.36194E-05 -1.48614E-08 -9.83954E-03 + 6.36209E-04 -9.83954E-03 6.36209E-04 -9.83954E-03 6.36209E-04 + 1.30497E+00 -8.26144E-04 2.36277E-05 -1.51272E-08 -9.93200E-03 + 6.39365E-04 -9.93200E-03 6.39365E-04 -9.93200E-03 6.39365E-04 + 1.30513E+00 -8.31362E-04 2.36217E-05 -1.49414E-08 -1.00246E-02 + 6.42504E-04 -1.00246E-02 6.42504E-04 -1.00246E-02 6.42504E-04 + 1.30515E+00 -8.33078E-04 2.36228E-05 -1.49940E-08 -1.01182E-02 + 6.45679E-04 -1.01182E-02 6.45679E-04 -1.01182E-02 6.45679E-04 + 1.30530E+00 -8.38319E-04 2.36234E-05 -1.49945E-08 -1.02111E-02 + 6.48822E-04 -1.02111E-02 6.48822E-04 -1.02111E-02 6.48822E-04 + 1.30536E+00 -8.41798E-04 2.36353E-05 -1.54191E-08 -1.03072E-02 + 6.52070E-04 -1.03072E-02 6.52070E-04 -1.03072E-02 6.52070E-04 + 1.30560E+00 -8.46992E-04 2.36330E-05 -1.53390E-08 -1.04022E-02 + 6.55258E-04 -1.04022E-02 6.55258E-04 -1.04022E-02 6.55258E-04 + 1.30569E+00 -8.52233E-04 2.36336E-05 -1.53395E-08 -1.04977E-02 + 6.58470E-04 -1.04977E-02 6.58470E-04 -1.04977E-02 6.58470E-04 + 1.30582E+00 -8.55688E-04 2.36346E-05 -1.53921E-08 -1.05952E-02 + 6.61740E-04 -1.05952E-02 6.61740E-04 -1.05952E-02 6.61740E-04 + 1.30591E+00 -8.59190E-04 2.36379E-05 -1.54722E-08 -1.06925E-02 + 6.64992E-04 -1.06925E-02 6.64992E-04 -1.06925E-02 6.64992E-04 + 1.30602E+00 -8.62669E-04 2.36480E-05 -1.58172E-08 -1.07899E-02 + 6.68253E-04 -1.07899E-02 6.68253E-04 -1.07899E-02 6.68253E-04 + 1.30621E+00 -8.67862E-04 2.36423E-05 -1.56310E-08 -1.08896E-02 + 6.71550E-04 -1.08896E-02 6.71550E-04 -1.08896E-02 6.71550E-04 + 1.30627E+00 -8.71341E-04 2.36457E-05 -1.57636E-08 -1.09892E-02 + 6.74865E-04 -1.09892E-02 6.74865E-04 -1.09892E-02 6.74865E-04 + 1.30645E+00 -8.76607E-04 2.36487E-05 -1.58441E-08 -1.10889E-02 + 6.78164E-04 -1.10889E-02 6.78164E-04 -1.10889E-02 6.78164E-04 + 1.30660E+00 -8.80037E-04 2.36508E-05 -1.59229E-08 -1.11900E-02 + 6.81523E-04 -1.11900E-02 6.81523E-04 -1.11900E-02 6.81523E-04 + 1.30671E+00 -8.85254E-04 2.36533E-05 -1.60025E-08 -1.12913E-02 + 6.84852E-04 -1.12913E-02 6.84852E-04 -1.12913E-02 6.84852E-04 + 1.30684E+00 -8.90522E-04 2.36563E-05 -1.61095E-08 -1.13950E-02 + 6.88260E-04 -1.13950E-02 6.88260E-04 -1.13950E-02 6.88260E-04 + 1.30693E+00 -8.93950E-04 2.36593E-05 -1.61883E-08 -1.14970E-02 + 6.91619E-04 -1.14970E-02 6.91619E-04 -1.14970E-02 6.91619E-04 + 1.30710E+00 -8.97429E-04 2.36601E-05 -1.62148E-08 -1.16018E-02 + 6.95043E-04 -1.16018E-02 6.95043E-04 -1.16018E-02 6.95043E-04 + 1.30729E+00 -9.02697E-04 2.36631E-05 -1.63219E-08 -1.17059E-02 + 6.98451E-04 -1.17059E-02 6.98451E-04 -1.17059E-02 6.98451E-04 + 1.30738E+00 -9.06125E-04 2.36661E-05 -1.64271E-08 -1.18114E-02 + 7.01891E-04 -1.18114E-02 7.01891E-04 -1.18114E-02 7.01891E-04 + 1.30749E+00 -9.11342E-04 2.36669E-05 -1.64536E-08 -1.19157E-02 + 7.05301E-04 -1.19157E-02 7.05301E-04 -1.19157E-02 7.05301E-04 + 1.30768E+00 -9.16611E-04 2.36708E-05 -1.65873E-08 -1.20246E-02 + 7.08819E-04 -1.20246E-02 7.08819E-04 -1.20246E-02 7.08819E-04 + 1.30777E+00 -9.20038E-04 2.36737E-05 -1.66659E-08 -1.21314E-02 + 7.12285E-04 -1.21314E-02 7.12285E-04 -1.21314E-02 7.12285E-04 + 1.30794E+00 -9.25256E-04 2.36737E-05 -1.66659E-08 -1.22401E-02 + 7.15791E-04 -1.22401E-02 7.15791E-04 -1.22401E-02 7.15791E-04 + 1.30805E+00 -9.28734E-04 2.36788E-05 -1.68517E-08 -1.23492E-02 + 7.19324E-04 -1.23492E-02 7.19324E-04 -1.23492E-02 7.19324E-04 + 1.30823E+00 -9.34004E-04 2.36801E-05 -1.68792E-08 -1.24590E-02 + 7.22856E-04 -1.24590E-02 7.22856E-04 -1.24590E-02 7.22856E-04 + 1.30844E+00 -9.40909E-04 2.36848E-05 -1.70375E-08 -1.25688E-02 + 7.26375E-04 -1.25688E-02 7.26375E-04 -1.25688E-02 7.26375E-04 + 1.30838E+00 -9.39170E-04 2.36856E-05 -1.70375E-08 -1.26818E-02 + 7.29990E-04 -1.26818E-02 7.29990E-04 -1.26818E-02 7.29990E-04 + 1.30873E+00 -9.51397E-04 2.36895E-05 -1.71711E-08 -1.27921E-02 + 7.33536E-04 -1.27921E-02 7.33536E-04 -1.27921E-02 7.33536E-04 + 1.30872E+00 -9.51344E-04 2.36898E-05 -1.71967E-08 -1.29066E-02 + 7.37177E-04 -1.29066E-02 7.37177E-04 -1.29066E-02 7.37177E-04 + 1.30894E+00 -9.56562E-04 2.36958E-05 -1.73559E-08 -1.30197E-02 + 7.40778E-04 -1.30197E-02 7.40778E-04 -1.30197E-02 7.40778E-04 + 1.30907E+00 -9.61833E-04 2.36963E-05 -1.74100E-08 -1.31343E-02 + 7.44420E-04 -1.31343E-02 7.44420E-04 -1.31343E-02 7.44420E-04 + 1.30922E+00 -9.66997E-04 2.36992E-05 -1.74886E-08 -1.32501E-02 + 7.48088E-04 -1.32501E-02 7.48088E-04 -1.32501E-02 7.48088E-04 + 1.30933E+00 -9.68736E-04 2.37017E-05 -1.75682E-08 -1.33662E-02 + 7.51757E-04 -1.33662E-02 7.51757E-04 -1.33662E-02 7.51757E-04 + 1.30957E+00 -9.77486E-04 2.37056E-05 -1.76754E-08 -1.34822E-02 + 7.55427E-04 -1.34822E-02 7.55427E-04 -1.34822E-02 7.55427E-04 + 1.30966E+00 -9.80910E-04 2.37068E-05 -1.77275E-08 -1.36010E-02 + 7.59162E-04 -1.36010E-02 7.59162E-04 -1.36010E-02 7.59162E-04 + 1.30988E+00 -9.86128E-04 2.37094E-05 -1.78071E-08 -1.37193E-02 + 7.62885E-04 -1.37193E-02 7.62885E-04 -1.37193E-02 7.62885E-04 + 1.31005E+00 -9.91346E-04 2.37136E-05 -1.79398E-08 -1.38388E-02 + 7.66635E-04 -1.38388E-02 7.66635E-04 -1.38388E-02 7.66635E-04 + 1.31012E+00 -9.94880E-04 2.37192E-05 -1.81000E-08 -1.39592E-02 + 7.70401E-04 -1.39592E-02 7.70401E-04 -1.39592E-02 7.70401E-04 + 1.31027E+00 -9.98303E-04 2.37179E-05 -1.80725E-08 -1.40797E-02 + 7.74163E-04 -1.40797E-02 7.74163E-04 -1.40797E-02 7.74163E-04 + 1.31050E+00 -1.00700E-03 2.37230E-05 -1.82317E-08 -1.42019E-02 + 7.77954E-04 -1.42019E-02 7.77954E-04 -1.42019E-02 7.77954E-04 + 1.31068E+00 -1.01053E-03 2.37226E-05 -1.82062E-08 -1.43257E-02 + 7.81802E-04 -1.43257E-02 7.81802E-04 -1.43257E-02 7.81802E-04 + 1.31068E+00 -1.01053E-03 2.37226E-05 -1.82062E-08 -1.43257E-02 + 7.81802E-04 -1.43257E-02 7.81802E-04 -1.43257E-02 7.81802E-04 Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/EGSDAT3_.4 =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/EGSDAT3_.4 (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/EGSDAT3_.4 (revision 1444) @@ -0,0 +1,2621 @@ + MEDIUM=AIR-NTP ,STERNCID=AIR-NTP + MIXT,RHO= 1.2250E-09,NE= 4,GASP= 1.0000E-06 + ASYM=N ,Z= 7.,A= 14.007,PZ= 5.39228E-02,RHOZ= 7.55280E-01 + ASYM=O ,Z= 8.,A= 15.999,PZ= 1.44793E-02,RHOZ= 2.31660E-01 + ASYM=AR,Z=18.,A= 39.948,PZ= 3.20917E-04,RHOZ= 1.28200E-02 + ASYM=C ,Z= 6.,A= 12.011,PZ= 3.33024E-06,RHOZ= 4.00000E-05 + 2.98933E+10 9.12000E-01 4.00000E-01 1.00000E+14 1.00000E+14 + 0 500 0 500 0 0 0 0 0 + 9.99982E-01 -2.10419E-01 4.82862E-02 9.95879E-01 -2.25858E-01 + 9.52000E-01 1.00022E+00 -1.78214E-01 3.43565E-02 1.01413E+00 + -2.29996E-01 9.52000E-01 1.00034E+00 -1.61665E-01 2.48128E-02 + 1.02350E+00 -2.32123E-01 9.52000E-01 9.99982E-01 -2.10592E-01 + 4.83260E-02 9.95876E-01 -2.26044E-01 9.52000E-01 1.00022E+00 + -1.78364E-01 3.43853E-02 1.01414E+00 -2.30189E-01 9.52000E-01 + 1.00034E+00 -1.61802E-01 2.48338E-02 1.02352E+00 -2.32319E-01 + 9.52000E-01 + 3.56389E+01 9.41131E-01 8.53760E-01 2.28015E+00 9.41145E-01 + 8.53757E-01 2.27175E+00 + 9.00118E-02 7.50905E-05 2.66396E+05 4.89667E+00 + 1.63110E+01 1.50045E+01 + 2.56391E-01 2.79821E-01 4.52013E+00 1.82502E+00 5.28557E+01 + -1.85900E+01 5.00001E+01 -2.13598E+01 1.00000E+00 0.00000E+00 + 8.82427E-02 9.63017E-02 9.34570E-01 1.02245E+00 5.25363E-03 + 2.42342E-03 2.56391E-01 2.79821E-01 4.52013E+00 1.82502E+00 + 5.28557E+01 -1.85900E+01 5.00001E+01 -2.13598E+01 1.00000E+00 + 0.00000E+00 8.82427E-02 9.63017E-02 9.34570E-01 1.02245E+00 + 5.25363E-03 2.42342E-03 2.63858E-01 2.88237E-01 4.44083E+00 + 1.73563E+00 5.38995E+01 -1.74134E+01 5.11179E+01 -2.00997E+01 + 1.00000E+00 0.00000E+00 8.61368E-02 9.39278E-02 8.56000E-01 + 9.33884E-01 5.39551E-03 2.58335E-03 2.75226E-01 3.02092E-01 + 4.35857E+00 1.63537E+00 5.52220E+01 -1.58015E+01 5.25268E+01 + -1.83826E+01 1.00000E+00 0.00000E+00 8.44732E-02 9.19002E-02 + 7.72699E-01 8.32358E-01 5.59890E-03 2.83124E-03 2.87375E-01 + 3.18209E-01 4.30452E+00 1.56367E+00 5.63764E+01 -1.42702E+01 + 5.37485E+01 -1.67620E+01 1.00000E+00 0.00000E+00 8.39161E-02 + 9.11613E-02 7.13461E-01 7.53777E-01 5.80585E-03 3.10578E-03 + 2.99974E-01 3.36543E-01 4.27100E+00 1.51490E+00 5.73749E+01 + -1.28172E+01 5.47982E+01 -1.52344E+01 1.00000E+00 0.00000E+00 + 8.40537E-02 9.13614E-02 6.70567E-01 6.91356E-01 6.01498E-03 + 3.41011E-03 3.12684E-01 3.57025E-01 4.25214E+00 1.48450E+00 + 5.82307E+01 -1.14381E+01 5.56922E+01 -1.37938E+01 1.00000E+00 + 0.00000E+00 8.46057E-02 9.22509E-02 6.39012E-01 6.40506E-01 + 6.22455E-03 3.74781E-03 3.25173E-01 3.79572E-01 4.24344E+00 + 1.46879E+00 5.89549E+01 -1.01306E+01 5.64439E+01 -1.24366E+01 + 1.00000E+00 0.00000E+00 8.53774E-02 9.36443E-02 6.15491E-01 + 5.98042E-01 6.43227E-03 4.12283E-03 3.37110E-01 4.04072E-01 + 4.24145E+00 1.46471E+00 5.95587E+01 -8.89149E+00 5.70666E+01 + -1.11587E+01 1.00000E+00 0.00000E+00 8.62314E-02 9.53969E-02 + 5.97796E-01 5.61727E-01 6.63537E-03 4.53965E-03 3.48181E-01 + 4.30394E-01 4.24365E+00 1.46993E+00 6.00523E+01 -7.71788E+00 + 5.75726E+01 -9.95565E+00 1.00000E+00 0.00000E+00 8.70700E-02 + 9.73907E-02 5.84441E-01 5.29974E-01 6.83038E-03 5.00331E-03 + 3.58086E-01 4.58375E-01 4.24807E+00 1.48243E+00 6.04454E+01 + -6.60724E+00 5.79730E+01 -8.82435E+00 1.00000E+00 0.00000E+00 + 8.78258E-02 9.95260E-02 5.74414E-01 5.01646E-01 7.01308E-03 + 5.51947E-03 3.66558E-01 4.87863E-01 4.25330E+00 1.50062E+00 + 6.07470E+01 -5.55750E+00 5.82784E+01 -7.76144E+00 9.99966E-01 + -1.17159E-04 8.84553E-02 1.01717E-01 5.67022E-01 4.75918E-01 + 7.17831E-03 6.09457E-03 2.80685E+00 1.15467E+01 4.25830E+00 + 1.52327E+00 5.99564E+01 -9.14029E+00 5.84986E+01 -6.76349E+00 + -1.36620E+00 -1.07230E+01 8.89334E-02 1.03884E-01 5.61786E-01 + 4.52189E-01 7.31980E-03 6.73577E-03 2.54269E+00 9.83155E+00 + 4.26229E+00 1.54920E+00 6.01666E+01 -7.77535E+00 5.86428E+01 + -5.82726E+00 7.90526E-02 -1.33938E+00 8.92526E-02 1.05956E-01 + 5.58372E-01 4.30024E-01 7.43000E-03 7.45126E-03 2.43073E+00 + 8.55012E+00 4.26477E+00 1.57754E+00 6.02694E+01 -6.59923E+00 + 5.87194E+01 -4.95055E+00 1.53670E-01 -4.85369E-01 8.94196E-02 + 1.07868E-01 5.56545E-01 4.09108E-01 7.49980E-03 8.25015E-03 + 2.41022E+00 7.56037E+00 4.26530E+00 1.60321E+00 6.02908E+01 + -5.56849E+00 5.87363E+01 -4.13451E+00 1.59020E-01 -2.27244E-01 + 8.94361E-02 1.08663E-01 5.56123E-01 3.88783E-01 7.51831E-03 + 9.14287E-03 2.44641E+00 6.77224E+00 4.26434E+00 1.62401E+00 + 6.02487E+01 -4.65240E+00 5.87015E+01 -3.37668E+00 1.53910E-01 + -1.15961E-01 8.94612E-02 1.08118E-01 5.57036E-01 3.68901E-01 + 7.47247E-03 1.01410E-02 2.51772E+00 6.13876E+00 4.26132E+00 + 1.65089E+00 6.01549E+01 -3.81919E+00 5.86212E+01 -2.66304E+00 + 1.47144E-01 -5.58546E-02 8.94090E-02 1.08581E-01 5.59114E-01 + 3.50440E-01 7.34676E-03 1.12578E-02 2.61187E+00 5.61339E+00 + 4.25672E+00 1.67653E+00 6.00191E+01 -3.06114E+00 5.85021E+01 + -1.99834E+00 1.40736E-01 -2.01008E-02 8.94065E-02 1.08595E-01 + 5.62307E-01 3.32627E-01 7.12269E-03 1.25081E-02 2.72122E+00 + 5.16864E+00 4.25089E+00 1.70023E+00 5.98487E+01 -2.36815E+00 + 5.83501E+01 -1.38029E+00 1.35084E-01 2.89028E-03 8.95262E-02 + 1.08108E-01 5.66541E-01 3.15404E-01 6.77832E-03 1.39087E-02 + 2.84117E+00 4.78481E+00 4.24436E+00 1.72113E+00 5.96500E+01 + -1.73259E+00 5.81708E+01 -8.06481E-01 1.30222E-01 1.84485E-02 + 8.98504E-02 1.07071E-01 5.71752E-01 2.98729E-01 6.28772E-03 + 1.54786E-02 2.96375E+00 4.46149E+00 4.23253E+00 1.75233E+00 + 5.94252E+01 -1.13966E+00 5.79659E+01 -2.66098E-01 1.25201E-01 + 3.16887E-02 8.95687E-02 1.07814E-01 5.77566E-01 2.83396E-01 + 5.62011E-03 1.72394E-02 3.07840E+00 4.20433E+00 4.20720E+00 + 1.80916E+00 5.91741E+01 -5.76213E-01 5.77353E+01 2.51217E-01 + 1.18724E-01 4.62193E-02 8.73897E-02 1.12702E-01 5.83533E-01 + 2.70011E-01 4.73937E-03 1.92151E-02 3.21102E+00 3.94552E+00 + 4.19606E+00 1.83089E+00 5.89186E+01 -7.77860E-02 5.75008E+01 + 7.08832E-01 1.15405E-01 5.26965E-02 8.80379E-02 1.11437E-01 + 5.91183E-01 2.55082E-01 3.60271E-03 2.14332E-02 3.34700E+00 + 3.71071E+00 4.18583E+00 1.84857E+00 5.86529E+01 3.81089E-01 + 5.72568E+01 1.13016E+00 1.12621E-01 5.75031E-02 8.90923E-02 + 1.09616E-01 5.99541E-01 2.40649E-01 2.15997E-03 2.39246E-02 + 3.48617E+00 3.49519E+00 4.17756E+00 1.86137E+00 5.83800E+01 + 8.03619E-01 5.70064E+01 1.51795E+00 1.10395E-01 6.09502E-02 + 9.06421E-02 1.07216E-01 6.08535E-01 2.26721E-01 3.52035E-04 + 2.67244E-02 3.59882E+00 3.33706E+00 4.14243E+00 1.91068E+00 + 5.80886E+01 1.21275E+00 5.67380E+01 1.89463E+00 1.04691E-01 + 6.89576E-02 8.83807E-02 1.10391E-01 6.16948E-01 2.14911E-01 + -1.89042E-03 2.98722E-02 3.73646E+00 3.16038E+00 4.13297E+00 + 1.92283E+00 5.78082E+01 1.57261E+00 5.64818E+01 2.22357E+00 + 1.02898E-01 7.12591E-02 9.02338E-02 1.08012E-01 6.26900E-01 + 2.02136E-01 -4.64856E-03 3.34127E-02 3.87808E+00 2.99292E+00 + 4.12897E+00 1.92755E+00 5.75294E+01 1.90235E+00 5.62279E+01 + 2.52384E+00 1.01862E-01 7.24837E-02 9.29026E-02 1.04856E-01 + 6.37322E-01 1.89813E-01 -8.01764E-03 3.73965E-02 3.96134E+00 + 2.90165E+00 4.06882E+00 1.99348E+00 5.72280E+01 2.23273E+00 + 5.59521E+01 2.82612E+00 9.39715E-02 8.11326E-02 8.80324E-02 + 1.10194E-01 6.46269E-01 1.80006E-01 -1.21089E-02 4.18810E-02 + 4.05053E+00 2.81056E+00 4.01764E+00 2.04577E+00 5.69361E+01 + 2.53094E+00 5.56870E+01 3.09696E+00 8.77910E-02 8.74460E-02 + 8.49618E-02 1.13331E-01 6.56012E-01 1.70053E-01 -1.70530E-02 + 4.69312E-02 4.17829E+00 2.68837E+00 4.00863E+00 2.05439E+00 + 5.66669E+01 2.78834E+00 5.54451E+01 3.32826E+00 8.68745E-02 + 8.83224E-02 8.76689E-02 1.10742E-01 6.67183E-01 1.59370E-01 + -2.30016E-02 5.26203E-02 4.30678E+00 2.57284E+00 4.00466E+00 + 2.05795E+00 5.64041E+01 3.02467E+00 5.52107E+01 3.53906E+00 + 8.64690E-02 8.86871E-02 9.09272E-02 1.07812E-01 6.78484E-01 + 1.49210E-01 -3.01322E-02 5.90312E-02 4.43810E+00 2.46146E+00 + 4.00830E+00 2.05486E+00 5.61507E+01 3.23965E+00 5.49859E+01 + 3.72972E+00 8.67753E-02 8.84271E-02 9.49395E-02 1.04409E-01 + 6.89877E-01 1.39545E-01 -3.86524E-02 6.62584E-02 4.50388E+00 + 2.40864E+00 3.95173E+00 2.10029E+00 5.58790E+01 3.45767E+00 + 5.47439E+01 3.92405E+00 8.06551E-02 9.33408E-02 9.18142E-02 + 1.06918E-01 6.99989E-01 1.31428E-01 -4.88031E-02 7.44079E-02 + 4.56325E+00 2.36340E+00 3.89450E+00 2.14390E+00 5.56205E+01 + 3.65476E+00 5.45151E+01 4.09829E+00 7.48574E-02 9.77594E-02 + 8.90005E-02 1.09062E-01 7.10212E-01 1.23637E-01 -6.08658E-02 + 8.36007E-02 4.67572E+00 2.28183E+00 3.89637E+00 2.14254E+00 + 5.53910E+01 3.82119E+00 5.43161E+01 4.24274E+00 7.52488E-02 + 9.74751E-02 9.29303E-02 1.06212E-01 7.21444E-01 1.15490E-01 + -7.51675E-02 9.39728E-02 4.79200E+00 2.20139E+00 3.90861E+00 + 2.13407E+00 5.51725E+01 3.97235E+00 5.41281E+01 4.37267E+00 + 7.64910E-02 9.66159E-02 9.76753E-02 1.02929E-01 7.32584E-01 + 1.07784E-01 -9.20891E-02 1.05679E-01 4.90683E+00 2.12545E+00 + 3.92593E+00 2.12262E+00 5.49643E+01 4.11001E+00 5.39510E+01 + 4.48984E+00 7.80400E-02 9.55917E-02 1.02623E-01 9.96580E-02 + 7.43493E-01 1.00570E-01 -1.12073E-01 1.18895E-01 4.97333E+00 + 2.08333E+00 3.90164E+00 2.13801E+00 5.47540E+01 4.24322E+00 + 5.37716E+01 4.60347E+00 7.56081E-02 9.71318E-02 1.03089E-01 + 9.93628E-02 7.53571E-01 9.41868E-02 -1.35634E-01 1.33818E-01 + 4.86734E+00 2.14774E+00 3.71189E+00 2.25331E+00 5.45119E+01 + 4.39030E+00 5.35608E+01 4.73167E+00 5.86141E-02 1.07460E-01 + 8.76582E-02 1.08740E-01 7.61575E-01 8.93221E-02 -1.63368E-01 + 1.50674E-01 4.94671E+00 2.10138E+00 3.71436E+00 2.25188E+00 + 5.43304E+01 4.49637E+00 5.34100E+01 4.81970E+00 5.95062E-02 + 1.06939E-01 9.15611E-02 1.06461E-01 7.71831E-01 8.33318E-02 + -1.95971E-01 1.69716E-01 5.02540E+00 2.05714E+00 3.72306E+00 + 2.24699E+00 5.41589E+01 4.59275E+00 5.32692E+01 4.89880E+00 + 6.08643E-02 1.06175E-01 9.57873E-02 1.04085E-01 7.81810E-01 + 7.77217E-02 -2.34246E-01 1.91234E-01 5.10363E+00 2.01474E+00 + 3.73822E+00 2.23877E+00 5.39969E+01 4.68050E+00 5.31381E+01 + 4.96989E+00 6.26990E-02 1.05181E-01 1.00327E-01 1.01625E-01 + 7.91488E-01 7.24773E-02 -2.79127E-01 2.15555E-01 5.18229E+00 + 1.97361E+00 3.76053E+00 2.22710E+00 5.38445E+01 4.76025E+00 + 5.30160E+01 5.03373E+00 6.50178E-02 1.03968E-01 1.05177E-01 + 9.90878E-02 8.00862E-01 6.75747E-02 -3.31696E-01 2.43049E-01 + 5.26126E+00 1.93370E+00 3.78988E+00 2.21227E+00 5.37014E+01 + 4.83258E+00 5.29028E+01 5.09095E+00 6.77936E-02 1.02566E-01 + 1.10296E-01 9.65010E-02 8.09912E-01 6.30008E-02 -3.93207E-01 + 2.74136E-01 5.34148E+00 1.89448E+00 3.82677E+00 2.19424E+00 + 5.35669E+01 4.89829E+00 5.27977E+01 5.14235E+00 7.10418E-02 + 1.00978E-01 1.15698E-01 9.38600E-02 8.18639E-01 5.87339E-02 + -4.65112E-01 3.09292E-01 5.42307E+00 1.85585E+00 3.87144E+00 + 2.17309E+00 5.34412E+01 4.95782E+00 5.27013E+01 5.18803E+00 + 7.47471E-02 9.92229E-02 1.21351E-01 9.11832E-02 8.27031E-01 + 5.47595E-02 -5.49095E-01 3.49057E-01 5.50615E+00 1.81771E+00 + 3.92359E+00 2.14915E+00 5.33236E+01 5.01185E+00 5.26115E+01 + 5.22912E+00 7.88566E-02 9.73367E-02 1.27201E-01 8.84984E-02 + 8.35098E-01 5.10578E-02 -6.47102E-01 3.94043E-01 5.59186E+00 + 1.77954E+00 3.98407E+00 2.12221E+00 5.32129E+01 5.06109E+00 + 5.25295E+01 5.26577E+00 8.34323E-02 9.52989E-02 1.33316E-01 + 8.57746E-02 8.42832E-01 4.76121E-02 -7.61387E-01 4.44944E-01 + 5.44419E+00 1.84341E+00 3.81670E+00 2.19461E+00 5.30701E+01 + 5.12289E+00 5.24137E+01 5.31578E+00 7.18405E-02 1.00313E-01 + 1.22312E-01 9.05344E-02 8.49100E-01 4.49012E-02 -8.94558E-01 + 5.02547E-01 5.44213E+00 1.84428E+00 3.80015E+00 2.20156E+00 + 5.29616E+01 5.16857E+00 5.23313E+01 5.35047E+00 7.15248E-02 + 1.00445E-01 1.22993E-01 9.02478E-02 8.55954E-01 4.20196E-02 + -1.04963E+00 5.67741E-01 5.49041E+00 1.82452E+00 3.83888E+00 + 2.18572E+00 5.28689E+01 5.20646E+00 5.22651E+01 5.37760E+00 + 7.51245E-02 9.89729E-02 1.27576E-01 8.83737E-02 8.62780E-01 + 3.92293E-02 -1.23008E+00 6.41542E-01 5.53825E+00 1.80548E+00 + 3.88173E+00 2.16866E+00 5.27818E+01 5.24116E+00 5.22030E+01 + 5.40223E+00 7.89651E-02 9.74444E-02 1.32211E-01 8.65285E-02 + 8.69304E-01 3.66314E-02 -1.43996E+00 7.25095E-01 5.58474E+00 + 1.78746E+00 3.92762E+00 2.15086E+00 5.27013E+01 5.27239E+00 + 5.21470E+01 5.42396E+00 8.29830E-02 9.58861E-02 1.36844E-01 + 8.47319E-02 8.75529E-01 3.42156E-02 -1.68390E+00 8.19701E-01 + 5.63019E+00 1.77028E+00 3.97642E+00 2.13242E+00 5.26248E+01 + 5.30124E+00 5.20943E+01 5.44388E+00 8.71453E-02 9.43125E-02 + 1.41449E-01 8.29911E-02 8.81482E-01 3.19664E-02 -1.96729E+00 + 9.26837E-01 5.67392E+00 1.75415E+00 4.02739E+00 2.11362E+00 + 5.25538E+01 5.32746E+00 5.20467E+01 5.46139E+00 9.14229E-02 + 9.27349E-02 1.45997E-01 8.13133E-02 8.87149E-01 2.98763E-02 + -2.29633E+00 1.04818E+00 5.71713E+00 1.73860E+00 4.08125E+00 + 2.09424E+00 5.24886E+01 5.35092E+00 5.20037E+01 5.47696E+00 + 9.58419E-02 9.11448E-02 1.50535E-01 7.96798E-02 8.92558E-01 + 2.79302E-02 -2.67822E+00 1.18562E+00 5.75962E+00 1.72366E+00 + 4.13733E+00 2.07453E+00 5.24263E+01 5.37281E+00 5.19631E+01 + 5.49118E+00 1.00376E-01 8.95509E-02 1.55054E-01 7.80922E-02 + 8.97712E-01 2.61175E-02 -3.12119E+00 1.34132E+00 5.80101E+00 + 1.70945E+00 4.19552E+00 2.05455E+00 5.23693E+01 5.39236E+00 + 5.19270E+01 5.50363E+00 1.05008E-01 8.79600E-02 1.59518E-01 + 7.65586E-02 9.02628E-01 2.44289E-02 -3.63483E+00 1.51773E+00 + 5.84185E+00 1.69574E+00 4.25542E+00 2.03443E+00 5.23155E+01 + 5.41045E+00 5.18931E+01 5.51497E+00 1.09719E-01 8.63780E-02 + 1.63947E-01 7.50717E-02 9.07314E-01 2.28566E-02 -4.23016E+00 + 1.71761E+00 5.88194E+00 1.68258E+00 4.31717E+00 2.01416E+00 + 5.22651E+01 5.42696E+00 5.18624E+01 5.52506E+00 1.14501E-01 + 8.48078E-02 1.68324E-01 7.36339E-02 9.11779E-01 2.13909E-02 + -4.91987E+00 1.94411E+00 5.92095E+00 1.67002E+00 4.37989E+00 + 1.99400E+00 5.22189E+01 5.44182E+00 5.18349E+01 5.53386E+00 + 1.19326E-01 8.32572E-02 1.72643E-01 7.22461E-02 9.16022E-01 + 2.00260E-02 -5.71865E+00 2.20082E+00 5.95930E+00 1.65796E+00 + 4.44376E+00 1.97390E+00 5.21749E+01 5.45567E+00 5.18088E+01 + 5.54210E+00 1.24193E-01 8.17261E-02 1.76906E-01 7.09054E-02 + 9.20071E-01 1.87525E-02 -6.64336E+00 2.49177E+00 5.99674E+00 + 1.64643E+00 4.50844E+00 1.95397E+00 5.21344E+01 5.46815E+00 + 5.17855E+01 5.54931E+00 1.29087E-01 8.02178E-02 1.81104E-01 + 6.96113E-02 9.23920E-01 1.75657E-02 -7.71356E+00 2.82157E+00 + 6.03366E+00 1.63530E+00 4.57387E+00 1.93421E+00 5.20971E+01 + 5.47948E+00 5.17646E+01 5.55561E+00 1.33999E-01 7.87345E-02 + 1.85248E-01 6.83602E-02 9.27594E-01 1.64567E-02 -8.95166E+00 + 3.19544E+00 6.06972E+00 1.62461E+00 4.63969E+00 1.91472E+00 + 5.20609E+01 5.49013E+00 5.17449E+01 5.56144E+00 1.38923E-01 + 7.72772E-02 1.89333E-01 6.71506E-02 9.31089E-01 1.54220E-02 + -1.03836E+01 3.61930E+00 6.10446E+00 1.61453E+00 4.70545E+00 + 1.89563E+00 5.20279E+01 5.49974E+00 5.17266E+01 5.56671E+00 + 1.43822E-01 7.58547E-02 1.93329E-01 6.59906E-02 9.34413E-01 + 1.44570E-02 -1.20391E+01 4.09989E+00 6.13903E+00 1.60469E+00 + 4.77185E+00 1.87672E+00 5.19975E+01 5.50833E+00 5.17111E+01 + 5.57118E+00 1.48745E-01 7.44528E-02 1.97293E-01 6.48620E-02 + 9.37586E-01 1.35537E-02 -1.39527E+01 4.64482E+00 6.17422E+00 + 1.59484E+00 4.83960E+00 1.85779E+00 5.19681E+01 5.51661E+00 + 5.16956E+01 5.57545E+00 1.53709E-01 7.30653E-02 2.01258E-01 + 6.37539E-02 9.40605E-01 1.27104E-02 -1.61638E+01 5.26277E+00 + 6.20766E+00 1.58567E+00 4.90590E+00 1.83961E+00 5.19416E+01 + 5.52378E+00 5.16829E+01 5.57896E+00 1.58625E-01 7.17171E-02 + 2.05136E-01 6.26896E-02 9.43481E-01 1.19215E-02 -1.87181E+01 + 5.96357E+00 6.23943E+00 1.57710E+00 4.97121E+00 1.82201E+00 + 5.19160E+01 5.53077E+00 5.16705E+01 5.58228E+00 1.63444E-01 + 7.04185E-02 2.08882E-01 6.16803E-02 9.46218E-01 1.11837E-02 + -2.16682E+01 6.75841E+00 6.27148E+00 1.56863E+00 5.03703E+00 + 1.80458E+00 5.18931E+01 5.53683E+00 5.16582E+01 5.58548E+00 + 1.68300E-01 6.91329E-02 2.12636E-01 6.06872E-02 9.48819E-01 + 1.04951E-02 -2.50742E+01 7.65993E+00 6.54679E+00 1.49702E+00 + 5.34606E+00 1.72421E+00 5.18945E+01 5.53649E+00 5.16719E+01 + 5.58194E+00 1.84150E-01 6.50109E-02 2.27427E-01 5.68402E-02 + 9.51509E-01 9.79480E-03 -2.90060E+01 8.68256E+00 6.33375E+00 + 1.55149E+00 5.16719E+00 1.76995E+00 5.18496E+01 5.54794E+00 + 5.16389E+01 5.59041E+00 1.77727E-01 6.66529E-02 2.19795E-01 + 5.87912E-02 9.53652E-01 9.24747E-03 -3.35434E+01 9.84261E+00 + 6.36426E+00 1.54382E+00 5.23147E+00 1.75378E+00 5.18308E+01 + 5.55274E+00 5.16307E+01 5.59258E+00 1.82477E-01 6.54585E-02 + 2.23406E-01 5.78834E-02 9.55913E-01 8.68046E-03 -3.87789E+01 + 1.11587E+01 6.39402E+00 1.53646E+00 5.29512E+00 1.73804E+00 + 5.18125E+01 5.55721E+00 5.16220E+01 5.59464E+00 1.87207E-01 + 6.42891E-02 2.26974E-01 5.70012E-02 9.58045E-01 8.15101E-03 + -4.48180E+01 1.26518E+01 6.42344E+00 1.52931E+00 5.35796E+00 + 1.72275E+00 5.17960E+01 5.56122E+00 5.16161E+01 5.59613E+00 + 1.91870E-01 6.31551E-02 2.30486E-01 5.61471E-02 9.60098E-01 + 7.65286E-03 -5.17832E+01 1.43459E+01 6.45194E+00 1.52248E+00 + 5.41982E+00 1.70796E+00 5.17808E+01 5.56492E+00 5.16082E+01 + 5.59789E+00 1.96509E-01 6.20448E-02 2.33968E-01 5.53135E-02 + 9.62044E-01 7.18696E-03 -5.98143E+01 1.62681E+01 6.48028E+00 + 1.51580E+00 5.48097E+00 1.69353E+00 5.17649E+01 5.56854E+00 + 5.16028E+01 5.59922E+00 2.01098E-01 6.09635E-02 2.37411E-01 + 5.45028E-02 9.63897E-01 6.75047E-03 -3.92738E+01 1.14290E+01 + 6.50770E+00 1.50944E+00 5.54084E+00 1.67965E+00 5.17511E+01 + 5.57175E+00 5.15977E+01 5.60037E+00 2.05626E-01 5.99127E-02 + 2.40799E-01 5.37167E-02 9.65665E-01 6.34087E-03 1.00000E+01 + 0.00000E+00 6.53460E+00 1.50329E+00 5.59985E+00 1.66618E+00 + 5.17388E+01 5.57461E+00 5.15927E+01 5.60163E+00 2.10127E-01 + 5.88855E-02 2.44162E-01 5.29489E-02 9.67346E-01 5.95540E-03 + 1.00000E+01 0.00000E+00 6.56127E+00 1.49730E+00 5.65800E+00 + 1.65310E+00 5.17255E+01 5.57759E+00 5.15881E+01 5.60266E+00 + 2.14566E-01 5.78866E-02 2.47478E-01 5.22021E-02 9.68949E-01 + 5.59588E-03 1.00000E+01 0.00000E+00 6.58714E+00 1.49157E+00 + 5.71496E+00 1.64048E+00 5.17159E+01 5.57976E+00 5.15845E+01 + 5.60346E+00 2.18956E-01 5.69140E-02 2.50755E-01 5.14759E-02 + 9.70473E-01 5.25871E-03 1.00000E+01 0.00000E+00 6.61325E+00 + 1.48586E+00 5.77116E+00 1.62820E+00 5.17040E+01 5.58228E+00 + 5.15794E+01 5.60449E+00 2.23320E-01 5.59601E-02 2.54042E-01 + 5.07578E-02 9.71932E-01 4.93944E-03 1.00000E+01 0.00000E+00 + 6.63648E+00 1.48085E+00 5.82422E+00 1.61676E+00 5.16939E+01 + 5.58457E+00 5.15767E+01 5.60506E+00 2.27545E-01 5.50502E-02 + 2.57194E-01 5.00790E-02 9.73313E-01 4.64251E-03 1.00000E+01 + 0.00000E+00 6.66144E+00 1.47556E+00 5.87831E+00 1.60529E+00 + 5.16847E+01 5.58640E+00 5.15725E+01 5.60598E+00 2.31816E-01 + 5.41442E-02 2.60410E-01 4.93966E-02 9.74637E-01 4.36080E-03 + 1.00000E+01 0.00000E+00 6.68530E+00 1.47056E+00 5.93067E+00 + 1.59434E+00 5.16759E+01 5.58827E+00 5.15706E+01 5.60636E+00 + 2.35996E-01 5.32686E-02 2.63564E-01 4.87365E-02 9.75881E-01 + 4.10057E-03 1.00000E+01 0.00000E+00 6.70826E+00 1.46583E+00 + 5.98134E+00 1.58387E+00 5.16669E+01 5.59018E+00 5.15671E+01 + 5.60712E+00 2.40119E-01 5.24181E-02 2.66670E-01 4.80953E-02 + 9.77091E-01 3.85192E-03 1.00000E+01 0.00000E+00 6.73115E+00 + 1.46116E+00 6.03125E+00 1.57371E+00 5.16600E+01 5.59155E+00 + 5.15652E+01 5.60746E+00 2.44208E-01 5.15850E-02 2.69783E-01 + 4.74617E-02 9.78221E-01 3.62118E-03 1.00000E+01 0.00000E+00 + 6.75279E+00 1.45681E+00 6.07910E+00 1.56409E+00 5.16522E+01 + 5.59315E+00 5.15625E+01 5.60804E+00 2.48215E-01 5.07806E-02 + 2.72827E-01 4.68500E-02 9.79309E-01 3.40207E-03 1.00000E+01 + 0.00000E+00 6.77466E+00 1.45249E+00 6.12672E+00 1.55466E+00 + 5.16463E+01 5.59430E+00 5.15611E+01 5.60826E+00 2.52196E-01 + 4.99909E-02 2.75868E-01 4.62472E-02 9.80339E-01 3.19816E-03 + 1.00000E+01 0.00000E+00 6.79572E+00 1.44837E+00 6.17263E+00 + 1.54566E+00 5.16380E+01 5.59590E+00 5.15584E+01 5.60884E+00 + 2.56124E-01 4.92226E-02 2.78884E-01 4.56569E-02 9.81319E-01 + 3.00587E-03 1.00000E+01 0.00000E+00 6.81632E+00 1.44439E+00 + 6.21750E+00 1.53700E+00 5.16325E+01 5.59693E+00 5.15565E+01 + 5.60918E+00 2.59992E-01 4.84759E-02 2.81856E-01 4.50827E-02 + 9.82256E-01 2.82522E-03 1.00000E+01 0.00000E+00 6.83601E+00 + 1.44064E+00 6.26055E+00 1.52879E+00 5.16270E+01 5.59796E+00 + 5.15556E+01 5.60941E+00 2.63819E-01 4.77461E-02 2.84822E-01 + 4.45175E-02 9.83144E-01 2.65529E-03 1.00000E+01 0.00000E+00 + 6.85559E+00 1.43695E+00 6.30302E+00 1.52081E+00 5.16211E+01 + 5.59911E+00 5.15533E+01 5.60975E+00 2.67576E-01 4.70387E-02 + 2.87741E-01 4.39675E-02 9.83995E-01 2.49610E-03 1.00000E+01 + 0.00000E+00 6.87448E+00 1.43343E+00 6.34411E+00 1.51315E+00 + 5.16170E+01 5.59991E+00 5.15524E+01 5.60998E+00 2.71310E-01 + 4.63438E-02 2.90657E-01 4.34255E-02 9.84803E-01 2.34585E-03 + 1.00000E+01 0.00000E+00 6.89307E+00 1.43001E+00 6.38400E+00 + 1.50583E+00 5.16105E+01 5.60109E+00 5.15505E+01 5.61037E+00 + 2.74979E-01 4.56698E-02 2.93546E-01 4.28946E-02 9.85569E-01 + 2.20456E-03 9.99996E+00 0.00000E+00 6.91054E+00 1.42685E+00 + 6.42196E+00 1.49893E+00 5.16078E+01 5.60163E+00 5.15501E+01 + 5.61044E+00 2.78590E-01 4.50148E-02 2.96395E-01 4.23783E-02 + 9.86299E-01 2.07218E-03 1.00000E+01 0.00000E+00 6.92805E+00 + 1.42370E+00 6.45996E+00 1.49214E+00 5.16023E+01 5.60254E+00 + 5.15487E+01 5.61067E+00 2.82182E-01 4.43708E-02 2.99242E-01 + 4.18676E-02 9.86993E-01 1.94787E-03 1.00000E+01 0.00000E+00 + 6.94511E+00 1.42070E+00 6.49591E+00 1.48576E+00 5.15982E+01 + 5.60334E+00 5.15469E+01 5.61101E+00 2.85706E-01 4.37466E-02 + 3.02054E-01 4.13694E-02 9.87658E-01 1.82982E-03 1.00000E+01 + 0.00000E+00 6.96239E+00 1.41766E+00 6.53197E+00 1.47945E+00 + 5.15968E+01 5.60357E+00 5.15474E+01 5.61090E+00 2.89226E-01 + 4.31304E-02 3.04880E-01 4.08749E-02 9.88281E-01 1.72160E-03 + 1.00000E+01 0.00000E+00 6.97659E+00 1.41519E+00 6.56425E+00 + 1.47387E+00 5.15904E+01 5.60460E+00 5.15451E+01 5.61124E+00 + 2.92603E-01 4.25455E-02 3.07599E-01 4.04036E-02 9.88882E-01 + 1.61607E-03 1.00000E+01 0.00000E+00 6.99285E+00 1.41241E+00 + 6.59802E+00 1.46808E+00 5.15890E+01 5.60483E+00 5.15460E+01 + 5.61113E+00 2.96044E-01 4.19570E-02 3.10382E-01 3.99278E-02 + 9.89447E-01 1.52038E-03 1.00000E+01 0.00000E+00 7.00807E+00 + 1.40985E+00 6.62984E+00 1.46271E+00 5.15835E+01 5.60575E+00 + 5.15432E+01 5.61159E+00 2.99382E-01 4.13918E-02 3.13115E-01 + 3.94654E-02 9.89991E-01 1.42737E-03 1.00000E+01 0.00000E+00 + 7.02227E+00 1.40746E+00 6.66007E+00 1.45763E+00 5.15817E+01 + 5.60609E+00 5.15432E+01 5.61159E+00 3.02698E-01 4.08373E-02 + 3.15831E-01 3.90111E-02 9.90506E-01 1.34240E-03 1.00000E+01 + 0.00000E+00 7.03663E+00 1.40510E+00 6.69033E+00 1.45265E+00 + 5.15802E+01 5.60647E+00 5.15436E+01 5.61163E+00 3.05974E-01 + 4.02956E-02 3.18519E-01 3.85660E-02 9.90999E-01 1.26103E-03 + 1.00000E+01 0.00000E+00 7.04756E+00 1.40330E+00 6.71593E+00 + 1.44846E+00 5.15771E+01 5.60689E+00 5.15414E+01 5.61181E+00 + 3.09127E-01 3.97793E-02 3.21136E-01 3.81382E-02 9.91457E-01 + 1.18500E-03 1.00000E+01 0.00000E+00 7.06565E+00 1.40038E+00 + 6.74901E+00 1.44311E+00 5.15744E+01 5.60735E+00 5.15423E+01 + 5.61181E+00 3.12471E-01 3.92382E-02 3.23919E-01 3.76875E-02 + 9.91901E-01 1.11345E-03 1.00000E+01 0.00000E+00 7.07641E+00 + 1.39865E+00 6.77294E+00 1.43926E+00 5.15707E+01 5.60781E+00 + 5.15405E+01 5.61204E+00 3.15534E-01 3.87472E-02 3.26498E-01 + 3.72743E-02 9.92323E-01 1.04638E-03 1.00000E+01 0.00000E+00 + 7.08832E+00 1.39676E+00 6.79858E+00 1.43519E+00 5.15698E+01 + 5.60804E+00 5.15405E+01 5.61204E+00 3.18660E-01 3.82518E-02 + 3.29117E-01 3.68593E-02 9.92716E-01 9.83773E-04 1.00000E+01 + 0.00000E+00 7.10034E+00 1.39488E+00 6.82331E+00 1.43131E+00 + 5.15671E+01 5.60849E+00 5.15396E+01 5.61216E+00 3.21733E-01 + 3.77706E-02 3.31714E-01 3.64524E-02 9.93103E-01 9.22958E-04 + 9.99994E+00 0.00000E+00 7.10950E+00 1.39345E+00 6.84494E+00 + 1.42797E+00 5.15652E+01 5.60872E+00 5.15396E+01 5.61216E+00 + 3.24713E-01 3.73083E-02 3.34236E-01 3.60606E-02 9.93453E-01 + 8.69298E-04 1.00001E+01 0.00000E+00 7.12300E+00 1.39139E+00 + 6.86990E+00 1.42413E+00 5.15625E+01 5.60907E+00 5.15396E+01 + 5.61216E+00 3.27768E-01 3.68387E-02 3.36869E-01 3.56564E-02 + 9.93797E-01 8.15637E-04 9.99989E+00 0.00000E+00 7.13663E+00 + 1.38930E+00 6.89508E+00 1.42030E+00 5.15625E+01 5.60918E+00 + 5.15387E+01 5.61227E+00 3.30820E-01 3.63746E-02 3.39498E-01 + 3.52566E-02 9.94119E-01 7.66449E-04 1.00001E+01 0.00000E+00 + 7.14423E+00 1.38817E+00 6.91345E+00 1.41753E+00 5.15601E+01 + 5.60945E+00 5.15390E+01 5.61231E+00 3.33684E-01 3.59438E-02 + 3.41962E-01 3.48857E-02 9.94434E-01 7.19054E-04 9.99996E+00 + 0.00000E+00 7.15414E+00 1.38670E+00 6.93389E+00 1.41449E+00 + 5.15588E+01 5.60975E+00 5.15387E+01 5.61239E+00 3.36586E-01 + 3.55115E-02 3.44467E-01 3.45125E-02 9.94720E-01 6.77015E-04 + 1.00000E+01 0.00000E+00 7.16399E+00 1.38524E+00 6.95381E+00 + 1.41154E+00 5.15561E+01 5.61010E+00 5.15368E+01 5.61262E+00 + 3.39466E-01 3.50858E-02 3.46986E-01 3.41414E-02 9.94999E-01 + 6.35875E-04 1.00000E+01 0.00000E+00 7.17166E+00 1.38412E+00 + 6.97098E+00 1.40905E+00 5.15561E+01 5.61010E+00 5.15387E+01 + 5.61239E+00 3.42246E-01 3.46798E-02 3.49418E-01 3.37855E-02 + 9.95278E-01 5.95630E-04 1.00000E+01 0.00000E+00 7.18345E+00 + 1.38241E+00 6.99227E+00 1.40596E+00 5.15533E+01 5.61055E+00 + 5.15359E+01 5.61273E+00 3.45151E-01 3.42603E-02 3.51969E-01 + 3.34161E-02 9.95521E-01 5.60751E-04 1.00000E+01 0.00000E+00 + 7.19089E+00 1.38135E+00 7.00818E+00 1.40367E+00 5.15542E+01 + 5.61033E+00 5.15377E+01 5.61239E+00 3.47876E-01 3.38686E-02 + 3.54380E-01 3.30709E-02 9.95750E-01 5.26766E-04 1.00000E+01 + 0.00000E+00 7.19907E+00 1.38018E+00 7.02506E+00 1.40127E+00 + 5.15519E+01 5.61082E+00 5.15354E+01 5.61277E+00 3.50634E-01 + 3.34771E-02 3.56830E-01 3.27232E-02 9.95986E-01 4.93679E-04 + 9.99996E+00 0.00000E+00 7.20726E+00 1.37903E+00 7.04104E+00 + 1.39903E+00 5.15506E+01 5.61090E+00 5.15368E+01 5.61250E+00 + 3.53336E-01 3.30977E-02 3.59238E-01 3.23840E-02 9.96187E-01 + 4.65056E-04 1.00000E+01 0.00000E+00 7.21310E+00 1.37823E+00 + 7.05501E+00 1.39709E+00 5.15497E+01 5.61101E+00 5.15359E+01 + 5.61273E+00 3.55997E-01 3.27266E-02 3.61606E-01 3.20540E-02 + 9.96387E-01 4.37332E-04 1.00000E+01 0.00000E+00 7.22409E+00 + 1.37671E+00 7.07309E+00 1.39460E+00 5.15506E+01 5.61101E+00 + 5.15368E+01 5.61262E+00 3.58730E-01 3.23491E-02 3.64075E-01 + 3.17133E-02 9.96594E-01 4.08713E-04 1.00000E+01 0.00000E+00 + 7.22901E+00 1.37602E+00 7.08534E+00 1.39291E+00 5.15478E+01 + 5.61136E+00 5.15350E+01 5.61284E+00 3.61342E-01 3.19914E-02 + 3.66421E-01 3.13922E-02 9.96773E-01 3.84566E-04 1.00000E+01 + 0.00000E+00 7.23645E+00 1.37502E+00 7.09908E+00 1.39105E+00 + 5.15469E+01 5.61136E+00 5.15368E+01 5.61262E+00 3.63932E-01 + 3.16408E-02 3.68783E-01 3.10720E-02 9.96952E-01 3.60419E-04 + 1.00000E+01 0.00000E+00 7.24286E+00 1.37416E+00 7.11236E+00 + 1.38927E+00 5.15451E+01 5.61159E+00 5.15350E+01 5.61284E+00 + 3.66515E-01 3.12938E-02 3.71122E-01 3.07590E-02 9.97102E-01 + 3.40743E-04 1.00000E+01 0.00000E+00 7.24881E+00 1.37336E+00 + 7.12449E+00 1.38764E+00 5.15478E+01 5.61136E+00 5.15359E+01 + 5.61273E+00 3.69083E-01 3.09522E-02 3.73447E-01 3.04478E-02 + 9.97274E-01 3.17490E-04 1.00000E+01 0.00000E+00 7.25431E+00 + 1.37265E+00 7.13594E+00 1.38615E+00 5.15432E+01 5.61193E+00 + 5.15350E+01 5.61284E+00 3.71594E-01 3.06204E-02 3.75751E-01 + 3.01446E-02 9.97403E-01 2.99604E-04 1.00000E+01 0.00000E+00 + 7.26232E+00 1.37162E+00 7.14945E+00 1.38438E+00 5.15451E+01 + 5.61170E+00 5.15350E+01 5.61284E+00 3.74141E-01 3.02868E-02 + 3.78105E-01 2.98369E-02 9.97553E-01 2.80823E-04 1.00000E+01 + 0.00000E+00 7.26644E+00 1.37104E+00 7.15906E+00 1.38312E+00 + 5.15432E+01 5.61193E+00 5.15350E+01 5.61284E+00 3.76610E-01 + 2.99675E-02 3.80373E-01 2.95427E-02 9.97682E-01 2.62936E-04 + 1.00000E+01 0.00000E+00 7.27194E+00 1.37036E+00 7.16982E+00 + 1.38175E+00 5.15432E+01 5.61181E+00 5.15350E+01 5.61284E+00 + 3.79078E-01 2.96500E-02 3.82648E-01 2.92494E-02 9.97811E-01 + 2.47732E-04 1.00000E+01 0.00000E+00 7.27652E+00 1.36976E+00 + 7.17921E+00 1.38054E+00 5.15423E+01 5.61204E+00 5.15350E+01 + 5.61284E+00 3.81496E-01 2.93415E-02 3.84895E-01 2.89641E-02 + 9.97918E-01 2.33423E-04 1.00000E+01 0.00000E+00 7.28155E+00 + 1.36913E+00 7.18883E+00 1.37931E+00 5.15414E+01 5.61204E+00 + 5.15350E+01 5.61284E+00 3.83908E-01 2.90365E-02 3.87142E-01 + 2.86797E-02 9.98040E-01 2.17324E-04 1.00000E+01 0.00000E+00 + 7.28751E+00 1.36838E+00 7.19936E+00 1.37800E+00 5.15396E+01 + 5.61227E+00 5.15332E+01 5.61307E+00 3.86340E-01 2.87315E-02 + 3.89402E-01 2.83962E-02 9.98147E-01 2.04804E-04 1.00000E+01 + 0.00000E+00 7.29117E+00 1.36792E+00 7.20737E+00 1.37702E+00 + 5.15396E+01 5.61227E+00 5.15350E+01 5.61284E+00 3.88680E-01 + 2.84409E-02 3.91599E-01 2.81225E-02 9.98254E-01 1.92283E-04 + 1.00000E+01 0.00000E+00 7.29483E+00 1.36747E+00 7.21516E+00 + 1.37605E+00 5.15414E+01 5.61216E+00 5.15341E+01 5.61296E+00 + 3.91034E-01 2.81511E-02 3.93788E-01 2.78533E-02 9.98340E-01 + 1.80657E-04 1.00000E+01 0.00000E+00 7.29745E+00 1.36714E+00 + 7.22167E+00 1.37524E+00 5.15394E+01 5.61235E+00 5.15348E+01 + 5.61292E+00 3.93336E-01 2.78689E-02 3.95962E-01 2.75872E-02 + 9.98426E-01 1.69033E-04 1.00000E+01 0.00000E+00 7.30559E+00 + 1.36615E+00 7.23393E+00 1.37379E+00 5.15405E+01 5.61227E+00 + 5.15359E+01 5.61273E+00 3.95742E-01 2.75769E-02 3.98224E-01 + 2.73122E-02 9.98526E-01 1.58298E-04 1.00000E+01 0.00000E+00 + 7.30811E+00 1.36586E+00 7.23943E+00 1.37310E+00 5.15377E+01 + 5.61250E+00 5.15341E+01 5.61296E+00 3.97981E-01 2.73078E-02 + 4.00349E-01 2.70564E-02 9.98612E-01 1.49355E-04 1.00000E+01 + 0.00000E+00 7.31132E+00 1.36549E+00 7.24629E+00 1.37230E+00 + 5.15387E+01 5.61250E+00 5.15341E+01 5.61296E+00 4.00263E-01 + 2.70359E-02 4.02488E-01 2.68016E-02 9.98669E-01 1.40411E-04 + 1.00000E+01 0.00000E+00 7.31406E+00 1.36515E+00 7.25225E+00 + 1.37159E+00 5.15396E+01 5.61239E+00 5.15332E+01 5.61307E+00 + 4.02510E-01 2.67694E-02 4.04635E-01 2.65476E-02 9.98741E-01 + 1.31468E-04 1.00000E+01 0.00000E+00 7.31727E+00 1.36478E+00 + 7.25843E+00 1.37084E+00 5.15387E+01 5.61250E+00 5.15341E+01 + 5.61296E+00 4.04721E-01 2.65091E-02 4.06745E-01 2.62998E-02 + 9.98812E-01 1.23419E-04 1.00000E+01 0.00000E+00 7.32162E+00 + 1.36426E+00 7.26553E+00 1.37004E+00 5.15387E+01 5.61250E+00 + 5.15350E+01 5.61284E+00 4.06960E-01 2.62480E-02 4.08892E-01 + 2.60494E-02 9.98898E-01 1.15370E-04 1.00000E+01 0.00000E+00 + 7.32437E+00 1.36397E+00 7.27148E+00 1.36935E+00 5.15377E+01 + 5.61262E+00 5.15341E+01 5.61296E+00 4.09157E-01 2.59940E-02 + 4.10960E-01 2.58097E-02 9.98927E-01 1.10004E-04 1.00000E+01 + 0.00000E+00 7.32757E+00 1.36357E+00 7.27720E+00 1.36870E+00 + 5.15368E+01 5.61273E+00 5.15323E+01 5.61319E+00 4.11346E-01 + 2.57427E-02 4.13070E-01 2.55674E-02 9.98998E-01 1.01060E-04 + 1.00000E+01 0.00000E+00 7.32963E+00 1.36335E+00 7.28178E+00 + 1.36818E+00 5.15368E+01 5.61273E+00 5.15350E+01 5.61284E+00 + 4.13507E-01 2.54967E-02 4.15145E-01 2.53313E-02 9.99056E-01 + 9.56943E-05 1.00000E+01 0.00000E+00 7.33032E+00 1.36326E+00 + 7.28476E+00 1.36784E+00 5.15377E+01 5.61262E+00 5.15341E+01 + 5.61296E+00 4.15603E-01 2.52597E-02 4.17163E-01 2.51032E-02 + 9.99113E-01 8.94339E-05 1.00000E+01 0.00000E+00 7.33719E+00 + 1.36251E+00 7.29414E+00 1.36678E+00 5.15359E+01 5.61273E+00 + 5.15332E+01 5.61307E+00 4.17828E-01 2.50102E-02 4.19281E-01 + 2.48653E-02 9.99156E-01 8.49622E-05 1.00000E+01 0.00000E+00 + 7.33742E+00 1.36249E+00 7.29621E+00 1.36655E+00 5.15368E+01 + 5.61273E+00 5.15332E+01 5.61307E+00 4.19882E-01 2.47812E-02 + 4.21270E-01 2.46435E-02 9.99199E-01 7.87019E-05 1.00000E+01 + 0.00000E+00 7.33993E+00 1.36220E+00 7.30101E+00 1.36601E+00 + 5.15368E+01 5.61262E+00 5.15359E+01 5.61284E+00 4.21992E-01 + 2.45478E-02 4.23309E-01 2.44181E-02 9.99270E-01 7.33358E-05 + 1.00000E+01 0.00000E+00 7.34200E+00 1.36197E+00 7.30468E+00 + 1.36561E+00 5.15368E+01 5.61273E+00 5.15332E+01 5.61307E+00 + 4.24074E-01 2.43198E-02 4.25319E-01 2.41972E-02 9.99285E-01 + 7.06528E-05 1.00000E+01 0.00000E+00 7.34406E+00 1.36174E+00 + 7.30903E+00 1.36515E+00 5.15350E+01 5.61284E+00 5.15341E+01 + 5.61296E+00 4.26128E-01 2.40953E-02 4.27308E-01 2.39808E-02 + 9.99342E-01 6.52868E-05 1.00000E+01 0.00000E+00 7.34566E+00 + 1.36157E+00 7.31223E+00 1.36478E+00 5.15359E+01 5.61284E+00 + 5.15332E+01 5.61307E+00 4.28181E-01 2.38735E-02 4.29304E-01 + 2.37653E-02 9.99356E-01 6.17094E-05 1.00000E+01 0.00000E+00 + 7.34818E+00 1.36131E+00 7.31635E+00 1.36435E+00 5.15332E+01 + 5.61307E+00 5.15304E+01 5.61330E+00 4.30227E-01 2.36535E-02 + 4.31286E-01 2.35515E-02 9.99413E-01 5.63434E-05 1.00000E+01 + 0.00000E+00 7.34966E+00 1.36113E+00 7.31966E+00 1.36399E+00 + 5.15367E+01 5.61270E+00 5.15357E+01 5.61281E+00 4.32237E-01 + 2.34392E-02 4.33238E-01 2.33435E-02 9.99442E-01 5.36611E-05 + 1.00000E+01 0.00000E+00 7.35024E+00 1.36108E+00 7.32162E+00 + 1.36377E+00 5.15368E+01 5.61273E+00 5.15323E+01 5.61307E+00 + 4.34220E-01 2.32287E-02 4.35178E-01 2.31383E-02 9.99485E-01 + 5.00830E-05 1.00000E+01 0.00000E+00 7.35321E+00 1.36077E+00 + 7.32643E+00 1.36329E+00 5.15341E+01 5.61296E+00 5.15341E+01 + 5.61296E+00 4.36230E-01 2.30176E-02 4.37124E-01 2.29335E-02 + 9.99485E-01 4.82943E-05 1.00000E+01 0.00000E+00 7.35573E+00 + 1.36051E+00 7.32986E+00 1.36292E+00 5.15341E+01 5.61296E+00 + 5.15332E+01 5.61307E+00 4.38226E-01 2.28092E-02 4.39085E-01 + 2.27287E-02 9.99528E-01 4.38226E-05 1.00000E+01 0.00000E+00 + 7.35711E+00 1.36037E+00 7.33261E+00 1.36263E+00 5.15350E+01 + 5.61284E+00 5.15323E+01 5.61307E+00 4.40179E-01 2.26071E-02 + 4.40988E-01 2.25320E-02 9.99556E-01 4.20339E-05 1.00000E+01 + 0.00000E+00 7.35825E+00 1.36025E+00 7.33490E+00 1.36240E+00 + 5.15341E+01 5.61296E+00 5.15323E+01 5.61307E+00 4.42126E-01 + 2.24068E-02 4.42898E-01 2.23352E-02 9.99585E-01 3.84566E-05 + 1.00000E+01 0.00000E+00 7.35894E+00 1.36017E+00 7.33719E+00 + 1.36217E+00 5.15341E+01 5.61296E+00 5.15323E+01 5.61319E+00 + 4.44050E-01 2.22091E-02 4.44773E-01 2.21429E-02 9.99599E-01 + 3.75622E-05 1.00000E+01 0.00000E+00 7.36008E+00 1.36005E+00 + 7.33925E+00 1.36194E+00 5.15359E+01 5.61284E+00 5.15359E+01 + 5.61273E+00 4.45968E-01 2.20142E-02 4.46654E-01 2.19516E-02 + 9.99628E-01 3.39849E-05 1.00000E+01 0.00000E+00 7.36146E+00 + 1.35991E+00 7.34200E+00 1.36169E+00 5.15359E+01 5.61284E+00 + 5.15341E+01 5.61307E+00 4.47885E-01 2.18210E-02 4.48529E-01 + 2.17628E-02 9.99642E-01 3.21962E-05 1.00000E+01 0.00000E+00 + 7.36329E+00 1.35974E+00 7.34451E+00 1.36143E+00 5.15341E+01 + 5.61296E+00 5.15341E+01 5.61307E+00 4.49774E-01 2.16314E-02 + 4.50396E-01 2.15759E-02 9.99657E-01 3.04075E-05 1.00000E+01 + 0.00000E+00 7.36329E+00 1.35974E+00 7.34543E+00 1.36134E+00 + 5.15341E+01 5.61284E+00 5.15323E+01 5.61307E+00 4.51641E-01 + 2.14463E-02 4.52228E-01 2.13935E-02 9.99699E-01 2.77245E-05 + 1.00000E+01 0.00000E+00 7.36512E+00 1.35957E+00 7.34841E+00 + 1.36106E+00 5.15323E+01 5.61307E+00 5.15323E+01 5.61307E+00 + 4.53530E-01 2.12593E-02 4.54081E-01 2.12101E-02 9.99685E-01 + 2.77245E-05 1.00000E+01 0.00000E+00 7.36626E+00 1.35945E+00 + 7.35024E+00 1.36086E+00 5.15341E+01 5.61296E+00 5.15341E+01 + 5.61296E+00 4.55383E-01 2.10769E-02 4.55898E-01 2.10313E-02 + 9.99728E-01 2.41472E-05 1.00000E+01 0.00000E+00 7.36718E+00 + 1.35934E+00 7.35207E+00 1.36068E+00 5.15341E+01 5.61284E+00 + 5.15323E+01 5.61307E+00 4.57229E-01 2.08971E-02 4.57723E-01 + 2.08533E-02 9.99742E-01 2.32528E-05 1.00000E+01 0.00000E+00 + 7.36764E+00 1.35931E+00 7.35344E+00 1.36054E+00 5.15341E+01 + 5.61307E+00 5.15341E+01 5.61307E+00 4.59061E-01 2.07192E-02 + 4.59526E-01 2.06789E-02 9.99742E-01 2.23585E-05 1.00000E+01 + 0.00000E+00 7.36901E+00 1.35917E+00 7.35527E+00 1.36037E+00 + 5.15341E+01 5.61296E+00 5.15341E+01 5.61307E+00 4.60871E-01 + 2.05448E-02 4.61314E-01 2.05063E-02 9.99757E-01 2.05698E-05 + 1.00000E+01 0.00000E+00 7.37039E+00 1.35905E+00 7.35779E+00 + 1.36014E+00 5.15323E+01 5.61307E+00 5.15341E+01 5.61296E+00 + 4.62695E-01 2.03704E-02 4.63103E-01 2.03346E-02 9.99771E-01 + 1.96755E-05 1.00000E+01 0.00000E+00 7.37061E+00 1.35902E+00 + 7.35871E+00 1.36005E+00 5.15323E+01 5.61307E+00 5.15341E+01 + 5.61307E+00 4.64477E-01 2.02004E-02 4.64856E-01 2.01673E-02 + 9.99785E-01 1.78868E-05 1.00000E+01 0.00000E+00 7.37095E+00 + 1.35899E+00 7.35973E+00 1.35996E+00 5.15348E+01 5.61281E+00 + 5.15312E+01 5.61315E+00 4.66251E-01 2.00326E-02 4.66623E-01 + 2.00013E-02 9.99800E-01 1.69927E-05 9.99991E+00 0.00000E+00 + 7.37176E+00 1.35891E+00 7.36031E+00 1.35988E+00 5.15323E+01 + 5.61307E+00 5.15341E+01 5.61296E+00 4.68011E-01 1.98669E-02 + 4.68390E-01 1.98347E-02 9.99828E-01 1.52038E-05 1.00001E+01 + 0.00000E+00 7.37267E+00 1.35882E+00 7.36283E+00 1.35965E+00 + 5.15341E+01 5.61307E+00 5.15341E+01 5.61307E+00 4.69793E-01 + 1.97005E-02 4.70108E-01 1.96746E-02 9.99828E-01 1.52038E-05 + 9.99989E+00 0.00000E+00 7.37313E+00 1.35879E+00 7.36329E+00 + 1.35962E+00 5.15341E+01 5.61284E+00 5.15341E+01 5.61307E+00 + 4.71531E-01 1.95395E-02 4.71853E-01 1.95127E-02 9.99828E-01 + 1.43094E-05 1.00001E+01 0.00000E+00 7.37405E+00 1.35871E+00 + 7.36466E+00 1.35948E+00 5.15323E+01 5.61307E+00 5.15323E+01 + 5.61307E+00 4.73263E-01 1.93794E-02 4.73570E-01 1.93544E-02 + 9.99843E-01 1.25207E-05 9.99989E+00 0.00000E+00 7.37474E+00 + 1.35865E+00 7.36558E+00 1.35942E+00 5.15341E+01 5.61296E+00 + 5.15323E+01 5.61307E+00 4.74980E-01 1.92220E-02 4.75273E-01 + 1.91979E-02 9.99857E-01 1.25207E-05 1.00001E+01 0.00000E+00 + 7.37542E+00 1.35859E+00 7.36718E+00 1.35925E+00 5.15323E+01 + 5.61319E+00 5.15341E+01 5.61296E+00 4.76719E-01 1.90646E-02 + 4.76976E-01 1.90432E-02 9.99871E-01 1.16264E-05 9.99989E+00 + 0.00000E+00 7.37542E+00 1.35859E+00 7.36764E+00 1.35922E+00 + 5.15341E+01 5.61307E+00 5.15323E+01 5.61307E+00 4.78421E-01 + 1.89099E-02 4.78665E-01 1.88902E-02 9.99871E-01 1.16264E-05 + 1.00001E+01 0.00000E+00 7.37634E+00 1.35848E+00 7.36855E+00 + 1.35914E+00 5.15323E+01 5.61307E+00 5.15341E+01 5.61307E+00 + 4.80103E-01 1.87588E-02 4.80360E-01 1.87373E-02 9.99885E-01 + 8.94339E-06 9.99989E+00 0.00000E+00 7.37725E+00 1.35842E+00 + 7.37016E+00 1.35899E+00 5.15341E+01 5.61307E+00 5.15304E+01 + 5.61330E+00 4.81798E-01 1.86067E-02 4.82006E-01 1.85897E-02 + 9.99871E-01 9.83773E-06 1.00001E+01 0.00000E+00 7.37680E+00 + 1.35848E+00 7.37061E+00 1.35897E+00 5.15359E+01 5.61284E+00 + 5.15359E+01 5.61284E+00 4.83473E-01 1.84583E-02 4.83666E-01 + 1.84422E-02 9.99885E-01 8.94339E-06 9.99989E+00 0.00000E+00 + 7.37771E+00 1.35837E+00 7.37130E+00 1.35891E+00 5.15323E+01 + 5.61307E+00 5.15341E+01 5.61307E+00 4.85111E-01 1.83134E-02 + 4.85311E-01 1.82964E-02 9.99900E-01 8.04905E-06 1.00001E+01 + 0.00000E+00 7.37771E+00 1.35837E+00 7.37176E+00 1.35885E+00 + 5.15341E+01 5.61296E+00 5.15323E+01 5.61307E+00 4.86778E-01 + 1.81667E-02 4.86964E-01 1.81515E-02 9.99900E-01 8.04905E-06 + 9.99989E+00 0.00000E+00 7.37817E+00 1.35834E+00 7.37267E+00 + 1.35879E+00 5.15341E+01 5.61307E+00 5.15341E+01 5.61307E+00 + 4.88402E-01 1.80245E-02 4.88581E-01 1.80102E-02 9.99900E-01 + 7.15471E-06 1.00001E+01 0.00000E+00 7.37863E+00 1.35831E+00 + 7.37359E+00 1.35871E+00 5.15323E+01 5.61307E+00 5.15323E+01 + 5.61307E+00 4.90055E-01 1.78814E-02 4.90198E-01 1.78689E-02 + 9.99914E-01 7.15471E-06 9.99989E+00 0.00000E+00 7.37909E+00 + 1.35825E+00 7.37405E+00 1.35868E+00 5.15323E+01 5.61319E+00 + 5.15323E+01 5.61319E+00 4.91643E-01 1.77428E-02 4.91829E-01 + 1.77294E-02 9.99928E-01 5.36604E-06 1.00001E+01 0.00000E+00 + 7.37954E+00 1.35822E+00 7.37405E+00 1.35862E+00 5.15341E+01 + 5.61296E+00 5.15359E+01 5.61296E+00 4.93275E-01 1.76042E-02 + 4.93418E-01 1.75917E-02 9.99914E-01 7.15471E-06 9.99989E+00 + 0.00000E+00 7.38000E+00 1.35819E+00 7.37542E+00 1.35854E+00 + 5.15341E+01 5.61307E+00 5.15341E+01 5.61307E+00 4.94892E-01 + 1.74664E-02 4.95006E-01 1.74557E-02 9.99928E-01 5.36604E-06 + 1.00001E+01 0.00000E+00 7.38000E+00 1.35819E+00 7.37542E+00 + 1.35854E+00 5.15323E+01 5.61307E+00 5.15341E+01 5.61307E+00 + 4.96451E-01 1.73323E-02 4.96594E-01 1.73216E-02 9.99943E-01 + 4.47170E-06 9.99989E+00 0.00000E+00 7.38056E+00 1.35816E+00 + 7.37644E+00 1.35844E+00 5.15348E+01 5.61304E+00 5.15312E+01 + 5.61315E+00 4.98047E-01 1.71984E-02 4.98161E-01 1.71894E-02 + 9.99928E-01 5.36611E-06 1.00000E+01 0.00000E+00 7.38092E+00 + 1.35811E+00 7.37680E+00 1.35839E+00 5.15323E+01 5.61307E+00 + 5.15341E+01 5.61307E+00 4.99614E-01 1.70667E-02 4.99728E-01 + 1.70577E-02 9.99928E-01 5.36604E-06 1.00000E+01 0.00000E+00 + 7.38092E+00 1.35811E+00 7.37680E+00 1.35842E+00 5.15341E+01 + 5.61307E+00 5.15323E+01 5.61307E+00 5.01188E-01 1.69361E-02 + 5.01302E-01 1.69272E-02 9.99957E-01 3.57736E-06 1.00000E+01 + 0.00000E+00 7.38092E+00 1.35811E+00 7.37771E+00 1.35837E+00 + 5.15341E+01 5.61296E+00 5.15323E+01 5.61307E+00 5.02733E-01 + 1.68073E-02 5.02848E-01 1.67984E-02 9.99943E-01 4.47170E-06 + 1.00000E+01 0.00000E+00 7.38137E+00 1.35805E+00 7.37863E+00 + 1.35828E+00 5.15341E+01 5.61307E+00 5.15341E+01 5.61296E+00 + 5.04279E-01 1.66794E-02 5.04364E-01 1.66732E-02 9.99943E-01 + 3.57736E-06 1.00000E+01 0.00000E+00 7.38092E+00 1.35808E+00 + 7.37817E+00 1.35831E+00 5.15341E+01 5.61307E+00 5.15323E+01 + 5.61307E+00 5.05795E-01 1.65551E-02 5.05895E-01 1.65480E-02 + 9.99957E-01 3.57736E-06 1.00000E+01 0.00000E+00 7.38229E+00 + 1.35799E+00 7.37954E+00 1.35822E+00 5.15359E+01 5.61284E+00 + 5.15341E+01 5.61296E+00 5.07341E-01 1.64290E-02 5.07441E-01 + 1.64219E-02 9.99957E-01 3.57736E-06 1.00000E+01 0.00000E+00 + 7.38092E+00 1.35808E+00 7.37863E+00 1.35828E+00 5.15341E+01 + 5.61307E+00 5.15323E+01 5.61319E+00 5.08843E-01 1.63065E-02 + 5.08929E-01 1.63002E-02 9.99971E-01 2.68302E-06 1.00000E+01 + 0.00000E+00 7.38229E+00 1.35799E+00 7.37954E+00 1.35819E+00 + 5.15323E+01 5.61307E+00 5.15323E+01 5.61307E+00 5.10346E-01 + 1.61849E-02 5.10432E-01 1.61786E-02 9.99957E-01 3.57736E-06 + 1.00000E+01 0.00000E+00 7.38275E+00 1.35796E+00 7.38046E+00 + 1.35814E+00 5.15323E+01 5.61307E+00 5.15323E+01 5.61307E+00 + 5.11848E-01 1.60641E-02 5.11920E-01 1.60588E-02 9.99971E-01 + 2.68302E-06 1.00000E+01 0.00000E+00 7.38229E+00 1.35796E+00 + 7.38046E+00 1.35814E+00 5.15341E+01 5.61307E+00 5.15341E+01 + 5.61307E+00 5.13336E-01 1.59452E-02 5.13422E-01 1.59398E-02 + 9.99971E-01 2.68302E-06 1.00000E+01 0.00000E+00 7.38229E+00 + 1.35799E+00 7.38000E+00 1.35816E+00 5.15341E+01 5.61307E+00 + 5.15341E+01 5.61307E+00 5.14810E-01 1.58280E-02 5.14867E-01 + 1.58235E-02 9.99957E-01 2.68302E-06 1.00000E+01 0.00000E+00 + 7.38275E+00 1.35794E+00 7.38137E+00 1.35805E+00 5.15323E+01 + 5.61307E+00 5.15323E+01 5.61307E+00 5.16313E-01 1.57100E-02 + 5.16341E-01 1.57064E-02 9.99971E-01 1.78868E-06 1.00000E+01 + 0.00000E+00 7.38275E+00 1.35796E+00 7.38000E+00 1.35814E+00 + 5.15323E+01 5.61307E+00 5.15323E+01 5.61307E+00 5.17729E-01 + 1.55973E-02 5.17801E-01 1.55919E-02 9.99971E-01 2.68302E-06 + 1.00000E+01 0.00000E+00 7.38321E+00 1.35794E+00 7.38092E+00 + 1.35808E+00 5.15341E+01 5.61307E+00 5.15341E+01 5.61307E+00 + 5.19203E-01 1.54819E-02 5.19260E-01 1.54783E-02 9.99986E-01 + 8.94339E-07 1.00000E+01 0.00000E+00 7.38321E+00 1.35791E+00 + 7.38183E+00 1.35802E+00 5.15341E+01 5.61307E+00 5.15341E+01 + 5.61307E+00 5.20648E-01 1.53692E-02 5.20720E-01 1.53647E-02 + 9.99971E-01 2.68302E-06 1.00001E+01 0.00000E+00 7.38321E+00 + 1.35791E+00 7.38137E+00 1.35805E+00 5.15323E+01 5.61307E+00 + 5.15323E+01 5.61307E+00 5.22079E-01 1.52583E-02 5.22151E-01 + 1.52538E-02 9.99971E-01 1.78868E-06 9.99989E+00 0.00000E+00 + 7.38321E+00 1.35791E+00 7.38183E+00 1.35799E+00 5.15323E+01 + 5.61307E+00 5.15323E+01 5.61307E+00 5.23539E-01 1.51474E-02 + 5.23553E-01 1.51456E-02 9.99971E-01 1.78868E-06 1.00001E+01 + 0.00000E+00 7.38377E+00 1.35790E+00 7.38194E+00 1.35801E+00 + 5.15348E+01 5.61292E+00 5.15348E+01 5.61281E+00 5.24949E-01 + 1.50394E-02 5.24963E-01 1.50367E-02 9.99971E-01 1.78870E-06 + 1.00000E+01 0.00000E+00 7.38366E+00 1.35791E+00 7.38183E+00 + 1.35802E+00 5.15341E+01 5.61307E+00 5.15341E+01 5.61307E+00 + 5.26344E-01 1.49319E-02 5.26401E-01 1.49274E-02 9.99986E-01 + 8.94339E-07 9.99989E+00 0.00000E+00 7.38366E+00 1.35785E+00 + 7.38275E+00 1.35794E+00 5.15323E+01 5.61307E+00 5.15323E+01 + 5.61307E+00 5.27760E-01 1.48246E-02 5.27775E-01 1.48228E-02 + 9.99986E-01 8.94339E-07 9.99989E+00 0.00000E+00 7.38366E+00 + 1.35788E+00 7.38275E+00 1.35796E+00 5.15341E+01 5.61307E+00 + 5.15323E+01 5.61307E+00 5.29148E-01 1.47190E-02 5.29191E-01 + 1.47164E-02 9.99971E-01 1.78868E-06 1.00001E+01 0.00000E+00 + 7.38366E+00 1.35788E+00 7.38275E+00 1.35796E+00 5.15323E+01 + 5.61307E+00 5.15304E+01 5.61319E+00 5.30536E-01 1.46153E-02 + 5.30579E-01 1.46126E-02 9.99986E-01 8.94339E-07 1.00001E+01 + 0.00000E+00 7.38412E+00 1.35785E+00 7.38321E+00 1.35791E+00 + 5.15323E+01 5.61307E+00 5.15323E+01 5.61307E+00 5.31939E-01 + 1.45107E-02 5.31967E-01 1.45089E-02 9.99986E-01 8.94339E-07 + 9.99989E+00 0.00000E+00 7.38412E+00 1.35785E+00 7.38321E+00 + 1.35794E+00 5.15323E+01 5.61307E+00 5.15323E+01 5.61307E+00 + 5.33284E-01 1.44105E-02 5.33327E-01 1.44078E-02 9.99971E-01 + 1.78868E-06 9.99989E+00 0.00000E+00 7.38412E+00 1.35785E+00 + 7.38321E+00 1.35791E+00 5.15323E+01 5.61307E+00 5.15323E+01 + 5.61307E+00 5.34672E-01 1.43076E-02 5.34686E-01 1.43058E-02 + 1.00000E+00 8.94339E-07 1.00001E+01 0.00000E+00 7.38412E+00 + 1.35785E+00 7.38321E+00 1.35791E+00 5.15323E+01 5.61307E+00 + 5.15323E+01 5.61307E+00 5.36017E-01 1.42084E-02 5.36031E-01 + 1.42075E-02 9.99986E-01 8.94339E-07 1.00001E+01 0.00000E+00 + 7.38412E+00 1.35785E+00 7.38321E+00 1.35794E+00 5.15341E+01 + 5.61296E+00 5.15341E+01 5.61296E+00 5.37362E-01 1.41100E-02 + 5.37419E-01 1.41064E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 7.38504E+00 1.35779E+00 7.38458E+00 1.35782E+00 + 5.15304E+01 5.61319E+00 5.15304E+01 5.61319E+00 5.38721E-01 + 1.40107E-02 5.38721E-01 1.40107E-02 9.99971E-01 1.78868E-06 + 9.99989E+00 0.00000E+00 7.38412E+00 1.35785E+00 7.38321E+00 + 1.35791E+00 5.15341E+01 5.61296E+00 5.15341E+01 5.61296E+00 + 5.40038E-01 1.39150E-02 5.40081E-01 1.39132E-02 9.99986E-01 + 8.94339E-07 1.00001E+01 0.00000E+00 7.38412E+00 1.35785E+00 + 7.38321E+00 1.35791E+00 5.15304E+01 5.61319E+00 5.15304E+01 + 5.61319E+00 5.41369E-01 1.38193E-02 5.41397E-01 1.38175E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 + 1.35779E+00 7.38458E+00 1.35782E+00 5.15341E+01 5.61296E+00 + 5.15341E+01 5.61296E+00 5.42699E-01 1.37236E-02 5.42714E-01 + 1.37227E-02 1.00000E+00 8.94339E-07 9.99989E+00 0.00000E+00 + 7.38412E+00 1.35785E+00 7.38321E+00 1.35791E+00 5.15304E+01 + 5.61319E+00 5.15304E+01 5.61319E+00 5.44016E-01 1.36297E-02 + 5.44030E-01 1.36279E-02 9.99986E-01 8.94339E-07 9.99989E+00 + 0.00000E+00 7.38458E+00 1.35779E+00 7.38366E+00 1.35788E+00 + 5.15359E+01 5.61296E+00 5.15359E+01 5.61296E+00 5.45318E-01 + 1.35367E-02 5.45347E-01 1.35349E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 7.38458E+00 + 1.35779E+00 5.15323E+01 5.61319E+00 5.15323E+01 5.61319E+00 + 5.46620E-01 1.34446E-02 5.46620E-01 1.34446E-02 9.99971E-01 + 1.78868E-06 1.00001E+01 0.00000E+00 7.38412E+00 1.35785E+00 + 7.38321E+00 1.35791E+00 5.15341E+01 5.61296E+00 5.15341E+01 + 5.61296E+00 5.47894E-01 1.33543E-02 5.47922E-01 1.33525E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 7.38560E+00 + 1.35776E+00 7.38514E+00 1.35778E+00 5.15312E+01 5.61327E+00 + 5.15348E+01 5.61304E+00 5.49204E-01 1.32632E-02 5.49204E-01 + 1.32623E-02 1.00000E+00 0.00000E+00 1.00000E+01 0.00000E+00 + 7.38458E+00 1.35782E+00 7.38412E+00 1.35785E+00 5.15341E+01 + 5.61296E+00 5.15304E+01 5.61319E+00 5.50469E-01 1.31745E-02 + 5.50484E-01 1.31736E-02 9.99986E-01 8.94339E-07 9.99989E+00 + 0.00000E+00 7.38412E+00 1.35785E+00 7.38321E+00 1.35791E+00 + 5.15304E+01 5.61319E+00 5.15304E+01 5.61319E+00 5.51729E-01 + 1.30869E-02 5.51743E-01 1.30851E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38504E+00 1.35776E+00 7.38550E+00 + 1.35776E+00 5.15359E+01 5.61296E+00 5.15359E+01 5.61296E+00 + 5.53002E-01 1.29983E-02 5.53002E-01 1.29983E-02 9.99986E-01 + 8.94339E-07 9.99989E+00 0.00000E+00 7.38504E+00 1.35779E+00 + 7.38412E+00 1.35782E+00 5.15323E+01 5.61319E+00 5.15323E+01 + 5.61319E+00 5.54261E-01 1.29116E-02 5.54276E-01 1.29107E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 + 1.35779E+00 7.38458E+00 1.35782E+00 5.15341E+01 5.61296E+00 + 5.15341E+01 5.61296E+00 5.55535E-01 1.28248E-02 5.55521E-01 + 1.28248E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 7.38504E+00 1.35779E+00 7.38412E+00 1.35785E+00 5.15304E+01 + 5.61319E+00 5.15304E+01 5.61319E+00 5.56737E-01 1.27425E-02 + 5.56765E-01 1.27408E-02 9.99986E-01 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38504E+00 1.35779E+00 7.38458E+00 1.35779E+00 + 5.15359E+01 5.61296E+00 5.15359E+01 5.61296E+00 5.57967E-01 + 1.26576E-02 5.57996E-01 1.26567E-02 9.99986E-01 8.94339E-07 + 9.99989E+00 0.00000E+00 7.38458E+00 1.35779E+00 7.38504E+00 + 1.35779E+00 5.15323E+01 5.61319E+00 5.15323E+01 5.61319E+00 + 5.59227E-01 1.25735E-02 5.59227E-01 1.25735E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 + 7.38458E+00 1.35782E+00 5.15341E+01 5.61296E+00 5.15341E+01 + 5.61296E+00 5.60443E-01 1.24912E-02 5.60429E-01 1.24912E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 7.38458E+00 + 1.35779E+00 7.38458E+00 1.35782E+00 5.15304E+01 5.61319E+00 + 5.15304E+01 5.61319E+00 5.61645E-01 1.24107E-02 5.61674E-01 + 1.24090E-02 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38595E+00 1.35774E+00 7.38550E+00 1.35774E+00 5.15359E+01 + 5.61296E+00 5.15359E+01 5.61296E+00 5.62861E-01 1.23294E-02 + 5.62847E-01 1.23303E-02 9.99971E-01 1.78868E-06 9.99989E+00 + 0.00000E+00 7.38469E+00 1.35781E+00 7.38423E+00 1.35784E+00 + 5.15312E+01 5.61304E+00 5.15312E+01 5.61304E+00 5.64057E-01 + 1.22499E-02 5.64071E-01 1.22490E-02 1.00000E+00 0.00000E+00 + 1.00000E+01 0.00000E+00 7.38550E+00 1.35776E+00 7.38504E+00 + 1.35779E+00 5.15341E+01 5.61296E+00 5.15341E+01 5.61296E+00 + 5.65265E-01 1.21702E-02 5.65265E-01 1.21693E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38458E+00 1.35782E+00 + 7.38458E+00 1.35782E+00 5.15304E+01 5.61319E+00 5.15304E+01 + 5.61319E+00 5.66467E-01 1.20906E-02 5.66467E-01 1.20906E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 7.38550E+00 + 1.35776E+00 7.38412E+00 1.35782E+00 5.15341E+01 5.61296E+00 + 5.15341E+01 5.61296E+00 5.67612E-01 1.20154E-02 5.67641E-01 + 1.20137E-02 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38550E+00 1.35776E+00 7.38595E+00 1.35774E+00 5.15341E+01 + 5.61319E+00 5.15341E+01 5.61319E+00 5.68814E-01 1.19367E-02 + 5.68800E-01 1.19376E-02 9.99986E-01 8.94339E-07 9.99989E+00 + 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 + 5.15341E+01 5.61296E+00 5.15341E+01 5.61296E+00 5.70002E-01 + 1.18598E-02 5.70002E-01 1.18598E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 + 1.35779E+00 5.15304E+01 5.61319E+00 5.15304E+01 5.61319E+00 + 5.71146E-01 1.17856E-02 5.71146E-01 1.17856E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 7.38550E+00 1.35774E+00 + 7.38504E+00 1.35776E+00 5.15341E+01 5.61296E+00 5.15341E+01 + 5.61296E+00 5.72291E-01 1.17114E-02 5.72306E-01 1.17105E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 + 1.35779E+00 7.38458E+00 1.35782E+00 5.15304E+01 5.61319E+00 + 5.15304E+01 5.61319E+00 5.73465E-01 1.16362E-02 5.73465E-01 + 1.16362E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 7.38595E+00 1.35774E+00 7.38595E+00 1.35774E+00 5.15341E+01 + 5.61296E+00 5.15341E+01 5.61296E+00 5.74624E-01 1.15620E-02 + 5.74638E-01 1.15611E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 + 5.15304E+01 5.61319E+00 5.15304E+01 5.61319E+00 5.75754E-01 + 1.14905E-02 5.75740E-01 1.14914E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 7.38504E+00 1.35776E+00 7.38458E+00 + 1.35779E+00 5.15341E+01 5.61296E+00 5.15341E+01 5.61296E+00 + 5.76870E-01 1.14198E-02 5.76899E-01 1.14180E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38641E+00 1.35771E+00 + 7.38687E+00 1.35768E+00 5.15341E+01 5.61296E+00 5.15341E+01 + 5.61296E+00 5.78029E-01 1.13465E-02 5.78001E-01 1.13483E-02 + 9.99986E-01 8.94339E-07 9.99989E+00 0.00000E+00 7.38412E+00 + 1.35785E+00 7.38366E+00 1.35788E+00 5.15304E+01 5.61319E+00 + 5.15304E+01 5.61319E+00 5.79131E-01 1.12776E-02 5.79160E-01 + 1.12758E-02 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38458E+00 1.35782E+00 7.38458E+00 1.35782E+00 5.15341E+01 + 5.61296E+00 5.15341E+01 5.61296E+00 5.80247E-01 1.12070E-02 + 5.80247E-01 1.12070E-02 9.99986E-01 0.00000E+00 9.99989E+00 + 0.00000E+00 7.38504E+00 1.35776E+00 7.38504E+00 1.35776E+00 + 5.15304E+01 5.61319E+00 5.15304E+01 5.61319E+00 5.81392E-01 + 1.11363E-02 5.81392E-01 1.11363E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 7.38458E+00 + 1.35782E+00 5.15377E+01 5.61296E+00 5.15377E+01 5.61296E+00 + 5.82465E-01 1.10692E-02 5.82480E-01 1.10683E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 7.38595E+00 1.35774E+00 + 7.38595E+00 1.35774E+00 5.15304E+01 5.61319E+00 5.15304E+01 + 5.61319E+00 5.83596E-01 1.09995E-02 5.83581E-01 1.10004E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 + 1.35779E+00 7.38504E+00 1.35779E+00 5.15341E+01 5.61296E+00 + 5.15341E+01 5.61296E+00 5.84669E-01 1.09333E-02 5.84669E-01 + 1.09333E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 7.38595E+00 1.35774E+00 7.38550E+00 1.35776E+00 5.15304E+01 + 5.61319E+00 5.15304E+01 5.61319E+00 5.85756E-01 1.08671E-02 + 5.85771E-01 1.08662E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38550E+00 1.35774E+00 7.38550E+00 1.35774E+00 + 5.15341E+01 5.61296E+00 5.15341E+01 5.61296E+00 5.86844E-01 + 1.08000E-02 5.86844E-01 1.08000E-02 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 7.38458E+00 1.35779E+00 7.38412E+00 + 1.35782E+00 5.15304E+01 5.61319E+00 5.15304E+01 5.61319E+00 + 5.87931E-01 1.07348E-02 5.87946E-01 1.07339E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38550E+00 1.35774E+00 + 7.38550E+00 1.35774E+00 5.15341E+01 5.61296E+00 5.15341E+01 + 5.61296E+00 5.89005E-01 1.06695E-02 5.89005E-01 1.06695E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 7.38595E+00 + 1.35774E+00 7.38550E+00 1.35774E+00 5.15304E+01 5.61319E+00 + 5.15304E+01 5.61319E+00 5.90064E-01 1.06051E-02 5.90078E-01 + 1.06051E-02 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38504E+00 1.35779E+00 7.38550E+00 1.35776E+00 5.15341E+01 + 5.61296E+00 5.15341E+01 5.61296E+00 5.91137E-01 1.05407E-02 + 5.91137E-01 1.05407E-02 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 7.38550E+00 1.35776E+00 7.38504E+00 1.35779E+00 + 5.15341E+01 5.61319E+00 5.15341E+01 5.61319E+00 5.92167E-01 + 1.04790E-02 5.92181E-01 1.04781E-02 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38550E+00 1.35776E+00 7.38550E+00 + 1.35776E+00 5.15341E+01 5.61296E+00 5.15341E+01 5.61296E+00 + 5.93269E-01 1.04137E-02 5.93255E-01 1.04146E-02 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 7.38504E+00 1.35779E+00 + 7.38504E+00 1.35779E+00 5.15304E+01 5.61319E+00 5.15304E+01 + 5.61319E+00 5.94271E-01 1.03547E-02 5.94271E-01 1.03547E-02 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38595E+00 + 1.35774E+00 7.38595E+00 1.35774E+00 5.15377E+01 5.61296E+00 + 5.15377E+01 5.61296E+00 5.95344E-01 1.02903E-02 5.95344E-01 + 1.02903E-02 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 7.38504E+00 1.35779E+00 7.38412E+00 1.35779E+00 5.15304E+01 + 5.61319E+00 5.15304E+01 5.61319E+00 5.96345E-01 1.02312E-02 + 5.96345E-01 1.02312E-02 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38504E+00 1.35776E+00 7.38504E+00 1.35774E+00 + 5.15341E+01 5.61296E+00 5.15341E+01 5.61296E+00 5.97404E-01 + 1.01695E-02 5.97390E-01 1.01704E-02 9.99971E-01 8.94339E-07 + 9.99989E+00 0.00000E+00 7.38595E+00 1.35774E+00 7.38595E+00 + 1.35774E+00 5.15304E+01 5.61319E+00 5.15304E+01 5.61319E+00 + 5.98406E-01 1.01105E-02 5.98435E-01 1.01096E-02 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 + 7.38504E+00 1.35779E+00 5.15341E+01 5.61296E+00 5.15341E+01 + 5.61296E+00 5.99436E-01 1.00506E-02 5.99422E-01 1.00515E-02 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 7.38595E+00 + 1.35771E+00 7.38595E+00 1.35774E+00 5.15341E+01 5.61296E+00 + 5.15341E+01 5.61296E+00 6.00438E-01 9.99245E-03 6.00452E-01 + 9.99156E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38433E+00 1.35780E+00 7.38433E+00 1.35777E+00 5.15319E+01 + 5.61312E+00 5.15319E+01 5.61312E+00 6.01471E-01 9.93282E-03 + 6.01471E-01 9.93371E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 7.38595E+00 1.35774E+00 7.38504E+00 1.35776E+00 + 5.15304E+01 5.61319E+00 5.15304E+01 5.61319E+00 6.02484E-01 + 9.87529E-03 6.02484E-01 9.87440E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 7.38504E+00 1.35776E+00 7.38595E+00 + 1.35774E+00 5.15341E+01 5.61296E+00 5.15341E+01 5.61296E+00 + 6.03457E-01 9.81895E-03 6.03457E-01 9.81895E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 1.35776E+00 + 7.38504E+00 1.35776E+00 5.15304E+01 5.61319E+00 5.15304E+01 + 5.61319E+00 6.04473E-01 9.76082E-03 6.04459E-01 9.76171E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38412E+00 + 1.35779E+00 7.38412E+00 1.35782E+00 5.15341E+01 5.61296E+00 + 5.15341E+01 5.61296E+00 6.05446E-01 9.70537E-03 6.05460E-01 + 9.70447E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 7.38595E+00 1.35771E+00 7.38595E+00 1.35771E+00 5.15304E+01 + 5.61319E+00 5.15304E+01 5.61319E+00 6.06419E-01 9.64992E-03 + 6.06448E-01 9.64903E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 1.35776E+00 + 5.15341E+01 5.61296E+00 5.15341E+01 5.61296E+00 6.07449E-01 + 9.59268E-03 6.07421E-01 9.59447E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38504E+00 1.35776E+00 7.38504E+00 + 1.35779E+00 5.15341E+01 5.61319E+00 5.15341E+01 5.61319E+00 + 6.08394E-01 9.53902E-03 6.08408E-01 9.53813E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 1.35776E+00 + 7.38595E+00 1.35776E+00 5.15341E+01 5.61296E+00 5.15341E+01 + 5.61296E+00 6.09367E-01 9.48447E-03 6.09381E-01 9.48357E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 7.38595E+00 + 1.35774E+00 7.38504E+00 1.35776E+00 5.15304E+01 5.61319E+00 + 5.15304E+01 5.61319E+00 6.10326E-01 9.43081E-03 6.10326E-01 + 9.43081E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 7.38412E+00 1.35779E+00 7.38504E+00 1.35776E+00 5.15341E+01 + 5.61296E+00 5.15341E+01 5.61296E+00 6.11313E-01 9.37625E-03 + 6.11299E-01 9.37715E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38595E+00 1.35774E+00 7.38504E+00 1.35776E+00 + 5.15341E+01 5.61319E+00 5.15341E+01 5.61319E+00 6.12243E-01 + 9.32438E-03 6.12257E-01 9.32349E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38412E+00 1.35779E+00 7.38412E+00 + 1.35779E+00 5.15341E+01 5.61296E+00 5.15341E+01 5.61296E+00 + 6.13230E-01 9.26983E-03 6.13230E-01 9.26983E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 7.38595E+00 1.35774E+00 + 7.38687E+00 1.35768E+00 5.15341E+01 5.61296E+00 5.15341E+01 + 5.61296E+00 6.14161E-01 9.21885E-03 6.14118E-01 9.22064E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 7.38595E+00 + 1.35774E+00 7.38504E+00 1.35779E+00 5.15304E+01 5.61319E+00 + 5.15304E+01 5.61319E+00 6.15091E-01 9.16787E-03 6.15119E-01 + 9.16608E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 5.15341E+01 + 5.61296E+00 5.15341E+01 5.61296E+00 6.16035E-01 9.11600E-03 + 6.16035E-01 9.11600E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 + 5.15304E+01 5.61319E+00 5.15304E+01 5.61319E+00 6.16994E-01 + 9.06413E-03 6.16994E-01 9.06413E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 7.38687E+00 1.35768E+00 7.38687E+00 + 1.35768E+00 5.15341E+01 5.61296E+00 5.15341E+01 5.61296E+00 + 6.17910E-01 9.01494E-03 6.17910E-01 9.01494E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 7.38504E+00 1.35774E+00 + 7.38504E+00 1.35774E+00 5.15304E+01 5.61319E+00 5.15304E+01 + 5.61319E+00 6.18811E-01 8.96486E-03 6.18811E-01 8.96486E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 + 1.35779E+00 7.38504E+00 1.35779E+00 5.15341E+01 5.61296E+00 + 5.15341E+01 5.61296E+00 6.19770E-01 8.91388E-03 6.19770E-01 + 8.91388E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38412E+00 1.35779E+00 7.38412E+00 1.35779E+00 5.15304E+01 + 5.61319E+00 5.15304E+01 5.61319E+00 6.20671E-01 8.86558E-03 + 6.20671E-01 8.86558E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 7.38595E+00 1.35774E+00 7.38687E+00 1.35768E+00 + 5.15377E+01 5.61296E+00 5.15377E+01 5.61296E+00 6.21616E-01 + 8.81550E-03 6.21573E-01 8.81729E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 7.38504E+00 1.35779E+00 7.38412E+00 + 1.35785E+00 6.85164E+02 -2.81383E+01 6.85164E+02 -2.81383E+01 + 6.22474E-01 8.76989E-03 6.22503E-01 8.76810E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38595E+00 1.35774E+00 + 7.38595E+00 1.35774E+00 1.55035E+02 0.00000E+00 1.55035E+02 + 0.00000E+00 6.23405E-01 8.71981E-03 6.23405E-01 8.71981E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38595E+00 + 1.35774E+00 7.38595E+00 1.35774E+00 1.55035E+02 0.00000E+00 + 1.55035E+02 0.00000E+00 6.24277E-01 8.67330E-03 6.24277E-01 + 8.67330E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 7.38595E+00 1.35774E+00 7.38595E+00 1.35774E+00 1.55038E+02 + -2.28951E-04 1.55038E+02 -2.28951E-04 6.25193E-01 8.62590E-03 + 6.25193E-01 8.62590E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 7.38595E+00 1.35774E+00 7.38595E+00 1.35774E+00 + 1.55031E+02 2.28951E-04 1.55031E+02 2.28951E-04 6.26095E-01 + 8.57850E-03 6.26095E-01 8.57850E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38412E+00 1.35779E+00 7.38412E+00 + 1.35779E+00 1.55042E+02 -2.28951E-04 1.55042E+02 -2.28951E-04 + 6.26968E-01 8.53200E-03 6.26968E-01 8.53200E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 + 7.38504E+00 1.35779E+00 1.55042E+02 -2.28951E-04 1.55042E+02 + -2.28951E-04 6.27840E-01 8.48638E-03 6.27840E-01 8.48638E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 7.38595E+00 + 1.35774E+00 7.38595E+00 1.35774E+00 1.55035E+02 0.00000E+00 + 1.55035E+02 0.00000E+00 6.28742E-01 8.43988E-03 6.28742E-01 + 8.43988E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 7.38504E+00 1.35779E+00 7.38595E+00 1.35774E+00 1.55038E+02 + 0.00000E+00 1.55038E+02 0.00000E+00 6.29615E-01 8.39427E-03 + 6.29586E-01 8.39606E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38595E+00 1.35774E+00 7.38504E+00 1.35779E+00 + 1.55042E+02 -2.28951E-04 1.55042E+02 -2.28951E-04 6.30445E-01 + 8.35223E-03 6.30488E-01 8.35044E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38595E+00 1.35774E+00 7.38595E+00 + 1.35774E+00 1.55031E+02 2.28951E-04 1.55031E+02 2.28951E-04 + 6.31361E-01 8.30483E-03 6.31361E-01 8.30483E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 7.38504E+00 1.35779E+00 + 7.38504E+00 1.35779E+00 1.55038E+02 -2.28951E-04 1.55038E+02 + -2.28951E-04 6.32190E-01 8.26191E-03 6.32190E-01 8.26191E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 7.38595E+00 + 1.35774E+00 7.38595E+00 1.35774E+00 1.55035E+02 0.00000E+00 + 1.55035E+02 0.00000E+00 6.33063E-01 8.21719E-03 6.33063E-01 + 8.21719E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 1.55038E+02 + -2.28951E-04 1.55038E+02 -2.28951E-04 6.33936E-01 8.17337E-03 + 6.33936E-01 8.17337E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38708E+00 1.35772E+00 7.38708E+00 1.35772E+00 + 1.55039E+02 -2.28957E-04 1.55039E+02 -2.28957E-04 6.34784E-01 + 8.13067E-03 6.34784E-01 8.13067E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 + 1.35779E+00 1.55031E+02 2.28951E-04 1.55031E+02 2.28951E-04 + 6.35625E-01 8.08840E-03 6.35625E-01 8.08840E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 7.38595E+00 1.35774E+00 + 7.38595E+00 1.35774E+00 1.55038E+02 -2.28951E-04 1.55038E+02 + -2.28951E-04 6.36483E-01 8.04458E-03 6.36483E-01 8.04458E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 + 1.35779E+00 7.38504E+00 1.35779E+00 1.55035E+02 0.00000E+00 + 1.55035E+02 0.00000E+00 6.37299E-01 8.00344E-03 6.37299E-01 + 8.00344E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 7.38595E+00 1.35774E+00 7.38595E+00 1.35774E+00 1.55035E+02 + 0.00000E+00 1.55035E+02 0.00000E+00 6.38158E-01 7.96051E-03 + 6.38158E-01 7.96051E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38595E+00 1.35774E+00 7.38595E+00 1.35774E+00 + 1.55038E+02 -2.28951E-04 1.55038E+02 -2.28951E-04 6.38987E-01 + 7.91937E-03 6.38987E-01 7.91937E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 7.38321E+00 1.35785E+00 7.38321E+00 + 1.35785E+00 1.55038E+02 -2.28951E-04 1.55038E+02 -2.28951E-04 + 6.39803E-01 7.87823E-03 6.39803E-01 7.87823E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38595E+00 1.35774E+00 + 7.38595E+00 1.35774E+00 1.55031E+02 2.28951E-04 1.55031E+02 + 2.28951E-04 6.40633E-01 7.83709E-03 6.40633E-01 7.83709E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 7.38595E+00 + 1.35774E+00 7.38595E+00 1.35774E+00 1.55042E+02 -2.28951E-04 + 1.55042E+02 -2.28951E-04 6.41434E-01 7.79774E-03 6.41434E-01 + 7.79774E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38595E+00 1.35774E+00 7.38595E+00 1.35774E+00 1.55038E+02 + 0.00000E+00 1.55038E+02 0.00000E+00 6.42264E-01 7.75660E-03 + 6.42264E-01 7.75660E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 7.38412E+00 1.35779E+00 7.38412E+00 1.35779E+00 + 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 6.43066E-01 + 7.71725E-03 6.43066E-01 7.71725E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38595E+00 1.35774E+00 7.38595E+00 + 1.35774E+00 1.55042E+02 -2.28951E-04 1.55042E+02 -2.28951E-04 + 6.43896E-01 7.67701E-03 6.43896E-01 7.67701E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 7.38595E+00 1.35774E+00 + 7.38595E+00 1.35774E+00 1.55031E+02 2.28951E-04 1.55031E+02 + 2.28951E-04 6.44697E-01 7.63676E-03 6.44697E-01 7.63676E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 + 1.35779E+00 7.38504E+00 1.35779E+00 1.55038E+02 -2.28951E-04 + 1.55038E+02 -2.28951E-04 6.45527E-01 7.59831E-03 6.45527E-01 + 7.59831E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 7.38595E+00 1.35774E+00 7.38595E+00 1.35774E+00 1.55042E+02 + -2.28951E-04 1.55042E+02 -2.28951E-04 6.46300E-01 7.56074E-03 + 6.46300E-01 7.56074E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 + 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 6.47101E-01 + 7.52050E-03 6.47101E-01 7.52050E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 7.38595E+00 1.35774E+00 7.38595E+00 + 1.35774E+00 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 + 6.47874E-01 7.48472E-03 6.47874E-01 7.48472E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38595E+00 1.35774E+00 + 7.38595E+00 1.35774E+00 1.55035E+02 0.00000E+00 1.55035E+02 + 0.00000E+00 6.48704E-01 7.44448E-03 6.48704E-01 7.44448E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 7.38504E+00 + 1.35779E+00 7.38504E+00 1.35779E+00 1.55035E+02 0.00000E+00 + 1.55035E+02 0.00000E+00 6.49448E-01 7.40871E-03 6.49448E-01 + 7.40871E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38412E+00 1.35779E+00 7.38412E+00 1.35779E+00 1.55038E+02 + -2.28951E-04 1.55038E+02 -2.28951E-04 6.50278E-01 7.36935E-03 + 6.50278E-01 7.36935E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 + 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 6.51050E-01 + 7.33358E-03 6.51050E-01 7.33358E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38687E+00 1.35768E+00 7.38687E+00 + 1.35768E+00 1.55038E+02 -2.28951E-04 1.55038E+02 -2.28951E-04 + 6.51794E-01 7.29781E-03 6.51794E-01 7.29781E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 7.38412E+00 1.35779E+00 + 7.38412E+00 1.35779E+00 1.55038E+02 -2.28951E-04 1.55038E+02 + -2.28951E-04 6.52596E-01 7.26025E-03 6.52596E-01 7.26025E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38595E+00 + 1.35774E+00 7.38595E+00 1.35774E+00 1.55035E+02 0.00000E+00 + 1.55035E+02 0.00000E+00 6.53340E-01 7.22447E-03 6.53340E-01 + 7.22447E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 7.38321E+00 1.35785E+00 7.38321E+00 1.35785E+00 1.55035E+02 + 0.00000E+00 1.55035E+02 0.00000E+00 6.54141E-01 7.18691E-03 + 6.54141E-01 7.18691E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38779E+00 1.35768E+00 7.38779E+00 1.35768E+00 + 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 6.54857E-01 + 7.15292E-03 6.54857E-01 7.15292E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 + 1.35779E+00 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 + 6.55601E-01 7.11894E-03 6.55601E-01 7.11894E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38595E+00 1.35774E+00 + 7.38595E+00 1.35774E+00 1.55038E+02 -2.28951E-04 1.55038E+02 + -2.28951E-04 6.56402E-01 7.08138E-03 6.56402E-01 7.08138E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 7.38412E+00 + 1.35779E+00 7.38412E+00 1.35779E+00 1.55035E+02 0.00000E+00 + 1.55035E+02 0.00000E+00 6.57146E-01 7.04650E-03 6.57146E-01 + 7.04650E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38595E+00 1.35774E+00 7.38595E+00 1.35774E+00 1.55038E+02 + -2.28951E-04 1.55038E+02 -2.28951E-04 6.57890E-01 7.01341E-03 + 6.57890E-01 7.01341E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 7.38412E+00 1.35779E+00 7.38412E+00 1.35779E+00 + 1.55031E+02 2.28951E-04 1.55031E+02 2.28951E-04 6.58663E-01 + 6.97763E-03 6.58663E-01 6.97763E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38595E+00 1.35774E+00 7.38595E+00 + 1.35774E+00 1.55038E+02 -2.28951E-04 1.55038E+02 -2.28951E-04 + 6.59378E-01 6.94454E-03 6.59378E-01 6.94454E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 7.38595E+00 1.35774E+00 + 7.38595E+00 1.35774E+00 1.55035E+02 0.00000E+00 1.55035E+02 + 0.00000E+00 6.60094E-01 6.91145E-03 6.60094E-01 6.91145E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 + 1.35779E+00 7.38504E+00 1.35779E+00 1.55035E+02 0.00000E+00 + 1.55035E+02 0.00000E+00 6.60867E-01 6.87568E-03 6.60867E-01 + 6.87568E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 7.38595E+00 1.35774E+00 7.38595E+00 1.35774E+00 1.55038E+02 + -2.28951E-04 1.55038E+02 -2.28951E-04 6.61582E-01 6.84348E-03 + 6.61582E-01 6.84348E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 + 1.55038E+02 -2.28951E-04 1.55038E+02 -2.28951E-04 6.62269E-01 + 6.81129E-03 6.62269E-01 6.81129E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 7.38595E+00 1.35774E+00 7.38595E+00 + 1.35774E+00 1.55031E+02 2.28951E-04 1.55031E+02 2.28951E-04 + 6.63070E-01 6.77641E-03 6.63070E-01 6.77641E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38617E+00 1.35772E+00 + 7.38617E+00 1.35772E+00 1.55039E+02 -2.28957E-04 1.55039E+02 + -2.28957E-04 6.63776E-01 6.74440E-03 6.63776E-01 6.74440E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 7.38595E+00 + 1.35774E+00 7.38595E+00 1.35774E+00 1.55035E+02 0.00000E+00 + 1.55035E+02 0.00000E+00 6.64473E-01 6.71291E-03 6.64473E-01 + 6.71291E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38595E+00 1.35774E+00 7.38595E+00 1.35774E+00 1.55035E+02 + 0.00000E+00 1.55035E+02 0.00000E+00 6.65188E-01 6.68071E-03 + 6.65188E-01 6.68071E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 + 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 6.65932E-01 + 6.64762E-03 6.65932E-01 6.64762E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 7.38412E+00 1.35779E+00 7.38412E+00 + 1.35779E+00 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 + 6.66648E-01 6.61543E-03 6.66648E-01 6.61543E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38595E+00 1.35774E+00 + 7.38595E+00 1.35774E+00 1.55038E+02 -2.28951E-04 1.55038E+02 + -2.28951E-04 6.67334E-01 6.58591E-03 6.67334E-01 6.58591E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38412E+00 + 1.35779E+00 7.38412E+00 1.35779E+00 1.55042E+02 -2.28951E-04 + 1.55042E+02 -2.28951E-04 6.68050E-01 6.55372E-03 6.68050E-01 + 6.55372E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 7.38595E+00 1.35774E+00 7.38595E+00 1.35774E+00 1.55035E+02 + 0.00000E+00 1.55035E+02 0.00000E+00 6.68765E-01 6.52242E-03 + 6.68765E-01 6.52242E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 7.38595E+00 1.35774E+00 7.38595E+00 1.35774E+00 + 1.55042E+02 -2.28951E-04 1.55042E+02 -2.28951E-04 6.69424E-01 + 6.49290E-03 6.69424E-01 6.49290E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 + 1.35779E+00 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 + 6.70139E-01 6.46160E-03 6.70139E-01 6.46160E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38595E+00 1.35774E+00 + 7.38595E+00 1.35774E+00 1.55038E+02 0.00000E+00 1.55038E+02 + 0.00000E+00 6.70855E-01 6.43030E-03 6.70855E-01 6.43030E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 7.38595E+00 + 1.35774E+00 7.38595E+00 1.35774E+00 1.55042E+02 -2.28951E-04 + 1.55042E+02 -2.28951E-04 6.71513E-01 6.40168E-03 6.71513E-01 + 6.40168E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 1.55027E+02 + 2.28951E-04 1.55027E+02 2.28951E-04 6.72228E-01 6.37038E-03 + 6.72228E-01 6.37038E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38595E+00 1.35774E+00 7.38595E+00 1.35774E+00 + 1.55046E+02 -4.57902E-04 1.55046E+02 -4.57902E-04 6.72886E-01 + 6.34176E-03 6.72886E-01 6.34176E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 + 1.35779E+00 1.55031E+02 2.28951E-04 1.55031E+02 2.28951E-04 + 6.73602E-01 6.31046E-03 6.73602E-01 6.31046E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 7.38595E+00 1.35774E+00 + 7.38595E+00 1.35774E+00 1.55042E+02 -2.28951E-04 1.55042E+02 + -2.28951E-04 6.74260E-01 6.28273E-03 6.74260E-01 6.28273E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 7.38595E+00 + 1.35774E+00 7.38595E+00 1.35774E+00 1.55027E+02 2.28951E-04 + 1.55027E+02 2.28951E-04 6.74947E-01 6.25233E-03 6.74947E-01 + 6.25233E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38412E+00 1.35779E+00 7.38412E+00 1.35779E+00 1.55046E+02 + -4.57902E-04 1.55046E+02 -4.57902E-04 6.75605E-01 6.22460E-03 + 6.75605E-01 6.22460E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38412E+00 1.35779E+00 7.38412E+00 1.35779E+00 + 1.55031E+02 2.28951E-04 1.55031E+02 2.28951E-04 6.76264E-01 + 6.19598E-03 6.76264E-01 6.19598E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 7.38595E+00 1.35774E+00 7.38595E+00 + 1.35774E+00 1.55046E+02 -4.57902E-04 1.55046E+02 -4.57902E-04 + 6.76979E-01 6.16647E-03 6.76979E-01 6.16647E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 7.38595E+00 1.35774E+00 + 7.38595E+00 1.35774E+00 1.55027E+02 4.57902E-04 1.55027E+02 + 4.57902E-04 6.77637E-01 6.13874E-03 6.77637E-01 6.13874E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38412E+00 + 1.35779E+00 7.38412E+00 1.35779E+00 1.55046E+02 -4.57902E-04 + 1.55046E+02 -4.57902E-04 6.78295E-01 6.11013E-03 6.78295E-01 + 6.11013E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38595E+00 1.35774E+00 7.38595E+00 1.35774E+00 1.55031E+02 + 2.28951E-04 1.55031E+02 2.28951E-04 6.78954E-01 6.08240E-03 + 6.78954E-01 6.08240E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 7.38412E+00 1.35779E+00 7.38412E+00 1.35779E+00 + 1.55046E+02 -4.57902E-04 1.55046E+02 -4.57902E-04 6.79612E-01 + 6.05468E-03 6.79612E-01 6.05468E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 + 1.35779E+00 1.55027E+02 2.28951E-04 1.55027E+02 2.28951E-04 + 6.80242E-01 6.02785E-03 6.80242E-01 6.02785E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38595E+00 1.35774E+00 + 7.38595E+00 1.35774E+00 1.55046E+02 -4.57902E-04 1.55046E+02 + -4.57902E-04 6.80928E-01 5.99923E-03 6.80928E-01 5.99923E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38595E+00 + 1.35774E+00 7.38595E+00 1.35774E+00 1.55024E+02 4.57902E-04 + 1.55024E+02 4.57902E-04 6.81558E-01 5.97240E-03 6.81558E-01 + 5.97240E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 1.55046E+02 + -4.57902E-04 1.55046E+02 -4.57902E-04 6.82188E-01 5.94646E-03 + 6.82188E-01 5.94646E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 7.38595E+00 1.35774E+00 7.38595E+00 1.35774E+00 + 1.55027E+02 2.28951E-04 1.55027E+02 2.28951E-04 6.82846E-01 + 5.91874E-03 6.82846E-01 5.91874E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 + 1.35779E+00 1.55046E+02 -4.57902E-04 1.55046E+02 -4.57902E-04 + 6.83504E-01 5.89191E-03 6.83504E-01 5.89191E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38779E+00 1.35768E+00 + 7.38779E+00 1.35768E+00 1.55031E+02 2.28951E-04 1.55031E+02 + 2.28951E-04 6.84162E-01 5.86508E-03 6.84162E-01 5.86508E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 7.38412E+00 + 1.35779E+00 7.38412E+00 1.35779E+00 1.55038E+02 -2.28951E-04 + 1.55038E+02 -2.28951E-04 6.84735E-01 5.84003E-03 6.84735E-01 + 5.84003E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 7.38595E+00 1.35774E+00 7.38595E+00 1.35774E+00 1.55031E+02 + 2.28951E-04 1.55031E+02 2.28951E-04 6.85422E-01 5.81320E-03 + 6.85422E-01 5.81320E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38321E+00 1.35785E+00 7.38321E+00 1.35785E+00 + 1.55038E+02 -2.28951E-04 1.55038E+02 -2.28951E-04 6.86023E-01 + 5.78727E-03 6.86023E-01 5.78727E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38595E+00 1.35774E+00 7.38595E+00 + 1.35774E+00 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 + 6.86681E-01 5.76133E-03 6.86681E-01 5.76133E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 7.38779E+00 1.35768E+00 + 7.38779E+00 1.35768E+00 1.55046E+02 -4.57902E-04 1.55046E+02 + -4.57902E-04 6.87282E-01 5.73629E-03 6.87282E-01 5.73629E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 7.38412E+00 + 1.35779E+00 7.38412E+00 1.35779E+00 1.55024E+02 4.57902E-04 + 1.55024E+02 4.57902E-04 6.87911E-01 5.71036E-03 6.87911E-01 + 5.71036E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38525E+00 1.35777E+00 7.38525E+00 1.35777E+00 1.55039E+02 + -2.28957E-04 1.55039E+02 -2.28957E-04 6.88532E-01 5.68548E-03 + 6.88532E-01 5.68548E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 + 1.55038E+02 -2.28951E-04 1.55038E+02 -2.28951E-04 6.89171E-01 + 5.66027E-03 6.89171E-01 5.66027E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38595E+00 1.35774E+00 7.38595E+00 + 1.35774E+00 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 + 6.89772E-01 5.63523E-03 6.89772E-01 5.63523E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 7.38504E+00 1.35779E+00 + 7.38504E+00 1.35779E+00 1.55035E+02 0.00000E+00 1.55035E+02 + 0.00000E+00 6.90373E-01 5.61108E-03 6.90373E-01 5.61108E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38870E+00 + 1.35768E+00 7.38870E+00 1.35768E+00 1.55042E+02 -2.28951E-04 + 1.55042E+02 -2.28951E-04 6.91031E-01 5.58515E-03 6.91031E-01 + 5.58515E-03 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 + 7.38321E+00 1.35779E+00 7.38321E+00 1.35779E+00 1.55031E+02 + 2.28951E-04 1.55031E+02 2.28951E-04 6.91603E-01 5.56190E-03 + 6.91603E-01 5.56190E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38687E+00 1.35774E+00 7.38687E+00 1.35774E+00 + 1.55038E+02 -2.28951E-04 1.55038E+02 -2.28951E-04 6.92233E-01 + 5.53685E-03 6.92233E-01 5.53685E-03 1.00000E+00 0.00000E+00 + 9.99989E+00 0.00000E+00 7.38321E+00 1.35785E+00 7.38321E+00 + 1.35785E+00 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 + 6.92805E-01 5.51360E-03 6.92805E-01 5.51360E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38687E+00 1.35774E+00 + 7.38687E+00 1.35774E+00 1.55042E+02 -2.28951E-04 1.55042E+02 + -2.28951E-04 6.93406E-01 5.48945E-03 6.93406E-01 5.48945E-03 + 1.00000E+00 0.00000E+00 9.99989E+00 0.00000E+00 7.38687E+00 + 1.35774E+00 7.38687E+00 1.35774E+00 1.55038E+02 -2.28951E-04 + 1.55038E+02 -2.28951E-04 6.94036E-01 5.46531E-03 6.94036E-01 + 5.46531E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38504E+00 1.35774E+00 7.38504E+00 1.35774E+00 1.55031E+02 + 2.28951E-04 1.55031E+02 2.28951E-04 6.94637E-01 5.44116E-03 + 6.94637E-01 5.44116E-03 1.00000E+00 0.00000E+00 9.99989E+00 + 0.00000E+00 7.38137E+00 1.35791E+00 7.38137E+00 1.35791E+00 + 1.55038E+02 -2.28951E-04 1.55038E+02 -2.28951E-04 6.95209E-01 + 5.41880E-03 6.95209E-01 5.41880E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38687E+00 1.35774E+00 7.38687E+00 + 1.35774E+00 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 + 6.95810E-01 5.39555E-03 6.95810E-01 5.39555E-03 1.00000E+00 + 0.00000E+00 9.99989E+00 0.00000E+00 7.38504E+00 1.35779E+00 + 7.38504E+00 1.35779E+00 1.55035E+02 0.00000E+00 1.55035E+02 + 0.00000E+00 6.96411E-01 5.37140E-03 6.96411E-01 5.37140E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38687E+00 + 1.35768E+00 7.38687E+00 1.35768E+00 1.55042E+02 -2.28951E-04 + 1.55042E+02 -2.28951E-04 6.97012E-01 5.34815E-03 6.97012E-01 + 5.34815E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38321E+00 1.35779E+00 7.38321E+00 1.35779E+00 1.55035E+02 + 0.00000E+00 1.55035E+02 0.00000E+00 6.97585E-01 5.32668E-03 + 6.97585E-01 5.32668E-03 1.00000E+00 0.00000E+00 9.99966E+00 + 0.00000E+00 7.38687E+00 1.35774E+00 7.38687E+00 1.35774E+00 + 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 6.98186E-01 + 5.30254E-03 6.98186E-01 5.30254E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38321E+00 1.35785E+00 7.38321E+00 + 1.35785E+00 1.55038E+02 -2.28951E-04 1.55038E+02 -2.28951E-04 + 6.98729E-01 5.28107E-03 6.98729E-01 5.28107E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38687E+00 1.35774E+00 + 7.38687E+00 1.35774E+00 1.55035E+02 0.00000E+00 1.55035E+02 + 0.00000E+00 6.99359E-01 5.25782E-03 6.99359E-01 5.25782E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 + 1.35779E+00 7.38504E+00 1.35779E+00 1.55035E+02 0.00000E+00 + 1.55035E+02 0.00000E+00 6.99903E-01 5.23546E-03 6.99903E-01 + 5.23546E-03 1.00000E+00 0.00000E+00 9.99966E+00 0.00000E+00 + 7.38687E+00 1.35774E+00 7.38687E+00 1.35774E+00 1.55042E+02 + -2.28951E-04 1.55042E+02 -2.28951E-04 7.00475E-01 5.21400E-03 + 7.00475E-01 5.21400E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 + 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 7.01076E-01 + 5.19164E-03 7.01076E-01 5.19164E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38504E+00 1.35774E+00 7.38504E+00 + 1.35774E+00 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 + 7.01620E-01 5.16928E-03 7.01620E-01 5.16928E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 + 7.38504E+00 1.35779E+00 1.55035E+02 0.00000E+00 1.55035E+02 + 0.00000E+00 7.02221E-01 5.14782E-03 7.02221E-01 5.14782E-03 + 1.00000E+00 0.00000E+00 9.99966E+00 0.00000E+00 7.38687E+00 + 1.35774E+00 7.38687E+00 1.35774E+00 1.55038E+02 -2.28951E-04 + 1.55038E+02 -2.28951E-04 7.02765E-01 5.12635E-03 7.02765E-01 + 5.12635E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38687E+00 1.35768E+00 7.38687E+00 1.35768E+00 1.55035E+02 + 0.00000E+00 1.55035E+02 0.00000E+00 7.03366E-01 5.10399E-03 + 7.03366E-01 5.10399E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38321E+00 1.35779E+00 7.38321E+00 1.35779E+00 + 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 7.03909E-01 + 5.08342E-03 7.03909E-01 5.08342E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38687E+00 1.35774E+00 7.38687E+00 + 1.35774E+00 1.55042E+02 -2.28951E-04 1.55042E+02 -2.28951E-04 + 7.04425E-01 5.06285E-03 7.04425E-01 5.06285E-03 1.00000E+00 + 0.00000E+00 9.99966E+00 0.00000E+00 7.38321E+00 1.35785E+00 + 7.38321E+00 1.35785E+00 1.55035E+02 0.00000E+00 1.55035E+02 + 0.00000E+00 7.05025E-01 5.04139E-03 7.05025E-01 5.04139E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38870E+00 + 1.35768E+00 7.38870E+00 1.35768E+00 1.55035E+02 0.00000E+00 + 1.55035E+02 0.00000E+00 7.05598E-01 5.01993E-03 7.05598E-01 + 5.01993E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 1.55042E+02 + -2.28951E-04 1.55042E+02 -2.28951E-04 7.06142E-01 4.99936E-03 + 7.06142E-01 4.99936E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38504E+00 1.35774E+00 7.38504E+00 1.35774E+00 + 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 7.06685E-01 + 4.97789E-03 7.06685E-01 4.97789E-03 1.00000E+00 0.00000E+00 + 9.99966E+00 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 + 1.35779E+00 1.55042E+02 -2.28951E-04 1.55042E+02 -2.28951E-04 + 7.07229E-01 4.95822E-03 7.07229E-01 4.95822E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 + 7.38504E+00 1.35779E+00 1.55035E+02 0.00000E+00 1.55035E+02 + 0.00000E+00 7.07744E-01 4.93854E-03 7.07744E-01 4.93854E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 + 1.35779E+00 7.38504E+00 1.35779E+00 1.55035E+02 0.00000E+00 + 1.55035E+02 0.00000E+00 7.08345E-01 4.91708E-03 7.08345E-01 + 4.91708E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38687E+00 1.35774E+00 7.38687E+00 1.35774E+00 1.55035E+02 + 0.00000E+00 1.55035E+02 0.00000E+00 7.08889E-01 4.89740E-03 + 7.08889E-01 4.89740E-03 1.00000E+00 0.00000E+00 9.99966E+00 + 0.00000E+00 7.38708E+00 1.35772E+00 7.38708E+00 1.35772E+00 + 1.55039E+02 0.00000E+00 1.55039E+02 0.00000E+00 7.09424E-01 + 4.87697E-03 7.09424E-01 4.87697E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 7.38321E+00 1.35779E+00 7.38321E+00 + 1.35779E+00 1.55049E+02 -4.57902E-04 1.55049E+02 -4.57902E-04 + 7.09977E-01 4.85716E-03 7.09977E-01 4.85716E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 + 7.38504E+00 1.35779E+00 1.55020E+02 4.57902E-04 1.55020E+02 + 4.57902E-04 7.10492E-01 4.83748E-03 7.10492E-01 4.83748E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38687E+00 + 1.35774E+00 7.38687E+00 1.35774E+00 1.55049E+02 -4.57902E-04 + 1.55049E+02 -4.57902E-04 7.11035E-01 4.81781E-03 7.11035E-01 + 4.81781E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 1.55027E+02 + 2.28951E-04 1.55027E+02 2.28951E-04 7.11551E-01 4.79813E-03 + 7.11551E-01 4.79813E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38687E+00 1.35768E+00 7.38687E+00 1.35768E+00 + 1.55049E+02 -4.57902E-04 1.55049E+02 -4.57902E-04 7.12123E-01 + 4.77845E-03 7.12123E-01 4.77845E-03 1.00000E+00 0.00000E+00 + 9.99966E+00 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 + 1.35779E+00 1.55027E+02 2.28951E-04 1.55027E+02 2.28951E-04 + 7.12609E-01 4.75967E-03 7.12609E-01 4.75967E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 1.35774E+00 + 7.38504E+00 1.35774E+00 1.55049E+02 -4.57902E-04 1.55049E+02 + -4.57902E-04 7.13153E-01 4.74000E-03 7.13153E-01 4.74000E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38137E+00 + 1.35785E+00 7.38137E+00 1.35785E+00 1.55020E+02 4.57902E-04 + 1.55020E+02 4.57902E-04 7.13668E-01 4.72122E-03 7.13668E-01 + 4.72122E-03 1.00000E+00 0.00000E+00 9.99966E+00 0.00000E+00 + 7.38504E+00 1.35774E+00 7.38504E+00 1.35774E+00 1.55049E+02 + -4.57902E-04 1.55049E+02 -4.57902E-04 7.14212E-01 4.70154E-03 + 7.14212E-01 4.70154E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 + 1.55027E+02 2.28951E-04 1.55027E+02 2.28951E-04 7.14727E-01 + 4.68365E-03 7.14727E-01 4.68365E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38870E+00 1.35768E+00 7.38870E+00 + 1.35768E+00 1.55042E+02 -2.28951E-04 1.55042E+02 -2.28951E-04 + 7.15242E-01 4.66398E-03 7.15242E-01 4.66398E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 + 7.38504E+00 1.35779E+00 1.55035E+02 0.00000E+00 1.55035E+02 + 0.00000E+00 7.15758E-01 4.64609E-03 7.15758E-01 4.64609E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38321E+00 + 1.35779E+00 7.38321E+00 1.35779E+00 1.55042E+02 -4.57902E-04 + 1.55042E+02 -4.57902E-04 7.16273E-01 4.62731E-03 7.16273E-01 + 4.62731E-03 1.00000E+00 0.00000E+00 9.99966E+00 0.00000E+00 + 7.38504E+00 1.35774E+00 7.38504E+00 1.35774E+00 1.55027E+02 + 4.57902E-04 1.55027E+02 4.57902E-04 7.16816E-01 4.60853E-03 + 7.16816E-01 4.60853E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 + 1.55042E+02 -4.57902E-04 1.55042E+02 -4.57902E-04 7.17303E-01 + 4.59064E-03 7.17303E-01 4.59064E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38870E+00 1.35768E+00 7.38870E+00 + 1.35768E+00 1.55027E+02 2.28951E-04 1.55027E+02 2.28951E-04 + 7.17847E-01 4.57186E-03 7.17847E-01 4.57186E-03 1.00000E+00 + 0.00000E+00 9.99966E+00 0.00000E+00 7.38321E+00 1.35785E+00 + 7.38321E+00 1.35785E+00 1.55049E+02 -4.57902E-04 1.55049E+02 + -4.57902E-04 7.18333E-01 4.55398E-03 7.18333E-01 4.55398E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38321E+00 + 1.35779E+00 7.38321E+00 1.35779E+00 1.55027E+02 2.28951E-04 + 1.55027E+02 2.28951E-04 7.18820E-01 4.53698E-03 7.18820E-01 + 4.53698E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38504E+00 1.35774E+00 7.38504E+00 1.35774E+00 1.55042E+02 + -2.28951E-04 1.55042E+02 -2.28951E-04 7.19364E-01 4.51820E-03 + 7.19364E-01 4.51820E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 + 1.55027E+02 2.28951E-04 1.55027E+02 2.28951E-04 7.19850E-01 + 4.50031E-03 7.19850E-01 4.50031E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38687E+00 1.35774E+00 7.38687E+00 + 1.35774E+00 1.55049E+02 -4.57902E-04 1.55049E+02 -4.57902E-04 + 7.20365E-01 4.48243E-03 7.20365E-01 4.48243E-03 1.00000E+00 + 0.00000E+00 9.99966E+00 0.00000E+00 7.38504E+00 1.35774E+00 + 7.38504E+00 1.35774E+00 1.55027E+02 2.28951E-04 1.55027E+02 + 2.28951E-04 7.20852E-01 4.46544E-03 7.20852E-01 4.46544E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 + 1.35779E+00 7.38504E+00 1.35779E+00 1.55049E+02 -4.57902E-04 + 1.55049E+02 -4.57902E-04 7.21367E-01 4.44755E-03 7.21367E-01 + 4.44755E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38687E+00 1.35774E+00 7.38687E+00 1.35774E+00 1.55027E+02 + 2.28951E-04 1.55027E+02 2.28951E-04 7.21853E-01 4.43056E-03 + 7.21853E-01 4.43056E-03 1.00000E+00 0.00000E+00 9.99966E+00 + 0.00000E+00 7.38321E+00 1.35785E+00 7.38321E+00 1.35785E+00 + 1.55042E+02 -2.28951E-04 1.55042E+02 -2.28951E-04 7.22340E-01 + 4.41356E-03 7.22340E-01 4.41356E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38504E+00 1.35774E+00 7.38504E+00 + 1.35774E+00 1.55027E+02 2.28951E-04 1.55027E+02 2.28951E-04 + 7.22855E-01 4.39568E-03 7.22855E-01 4.39568E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 + 7.38504E+00 1.35779E+00 1.55042E+02 -2.28951E-04 1.55042E+02 + -2.28951E-04 7.23342E-01 4.37958E-03 7.23342E-01 4.37958E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 + 1.35774E+00 7.38504E+00 1.35774E+00 1.55035E+02 0.00000E+00 + 1.55035E+02 0.00000E+00 7.23828E-01 4.36169E-03 7.23828E-01 + 4.36169E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38321E+00 1.35779E+00 7.38321E+00 1.35779E+00 1.55049E+02 + -4.57902E-04 1.55049E+02 -4.57902E-04 7.24315E-01 4.34559E-03 + 7.24315E-01 4.34559E-03 1.00000E+00 0.00000E+00 9.99966E+00 + 0.00000E+00 7.38504E+00 1.35774E+00 7.38504E+00 1.35774E+00 + 1.55020E+02 4.57902E-04 1.55020E+02 4.57902E-04 7.24830E-01 + 4.32771E-03 7.24830E-01 4.32771E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 + 1.35779E+00 1.55049E+02 -4.57902E-04 1.55049E+02 -4.57902E-04 + 7.25259E-01 4.31250E-03 7.25259E-01 4.31250E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38687E+00 1.35774E+00 + 7.38687E+00 1.35774E+00 1.55020E+02 4.57902E-04 1.55020E+02 + 4.57902E-04 7.25803E-01 4.29462E-03 7.25803E-01 4.29462E-03 + 1.00000E+00 0.00000E+00 9.99966E+00 0.00000E+00 7.38687E+00 + 1.35774E+00 7.38687E+00 1.35774E+00 1.55049E+02 -4.57902E-04 + 1.55049E+02 -4.57902E-04 7.26261E-01 4.27852E-03 7.26261E-01 + 4.27852E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38321E+00 1.35779E+00 7.38321E+00 1.35779E+00 1.55035E+02 + 0.00000E+00 1.55035E+02 0.00000E+00 7.26719E-01 4.26242E-03 + 7.26719E-01 4.26242E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38321E+00 1.35779E+00 7.38321E+00 1.35779E+00 + 1.55042E+02 -2.28951E-04 1.55042E+02 -2.28951E-04 7.27176E-01 + 4.24632E-03 7.27176E-01 4.24632E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38687E+00 1.35774E+00 7.38687E+00 + 1.35774E+00 1.55027E+02 2.28951E-04 1.55027E+02 2.28951E-04 + 7.27720E-01 4.22933E-03 7.27720E-01 4.22933E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38708E+00 1.35772E+00 + 7.38708E+00 1.35772E+00 1.55039E+02 -2.28957E-04 1.55039E+02 + -2.28957E-04 7.28170E-01 4.21335E-03 7.28170E-01 4.21335E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 7.38504E+00 + 1.35779E+00 7.38504E+00 1.35779E+00 1.55035E+02 0.00000E+00 + 1.55035E+02 0.00000E+00 7.28636E-01 4.19803E-03 7.28636E-01 + 4.19803E-03 1.00000E+00 0.00000E+00 9.99966E+00 0.00000E+00 + 7.38321E+00 1.35785E+00 7.38321E+00 1.35785E+00 1.55042E+02 + -2.28951E-04 1.55042E+02 -2.28951E-04 7.29094E-01 4.18193E-03 + 7.29094E-01 4.18193E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38687E+00 1.35774E+00 7.38687E+00 1.35774E+00 + 1.55042E+02 -2.28951E-04 1.55042E+02 -2.28951E-04 7.29580E-01 + 4.16583E-03 7.29580E-01 4.16583E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 + 1.35779E+00 1.55027E+02 2.28951E-04 1.55027E+02 2.28951E-04 + 7.30038E-01 4.15063E-03 7.30038E-01 4.15063E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 1.35774E+00 + 7.38504E+00 1.35774E+00 1.55042E+02 -2.28951E-04 1.55042E+02 + -2.28951E-04 7.30496E-01 4.13453E-03 7.30496E-01 4.13453E-03 + 1.00000E+00 0.00000E+00 9.99966E+00 0.00000E+00 7.38504E+00 + 1.35779E+00 7.38504E+00 1.35779E+00 1.55035E+02 0.00000E+00 + 1.55035E+02 0.00000E+00 7.30983E-01 4.11843E-03 7.30983E-01 + 4.11843E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 1.55035E+02 + 0.00000E+00 1.55035E+02 0.00000E+00 7.31412E-01 4.10412E-03 + 7.31412E-01 4.10412E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38504E+00 1.35774E+00 7.38504E+00 1.35774E+00 + 1.55042E+02 -2.28951E-04 1.55042E+02 -2.28951E-04 7.31899E-01 + 4.08802E-03 7.31899E-01 4.08802E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38321E+00 1.35785E+00 7.38321E+00 + 1.35785E+00 1.55027E+02 2.28951E-04 1.55027E+02 2.28951E-04 + 7.32356E-01 4.07282E-03 7.32356E-01 4.07282E-03 1.00000E+00 + 0.00000E+00 9.99966E+00 0.00000E+00 7.38870E+00 1.35768E+00 + 7.38870E+00 1.35768E+00 1.55042E+02 -2.28951E-04 1.55042E+02 + -2.28951E-04 7.32843E-01 4.05762E-03 7.32843E-01 4.05762E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.39969E+00 + 1.35728E+00 7.39969E+00 1.35728E+00 1.55042E+02 -2.28951E-04 + 1.55042E+02 -2.28951E-04 7.33330E-01 4.04062E-03 7.33330E-01 + 4.04062E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38504E+00 1.35774E+00 7.38504E+00 1.35774E+00 1.55035E+02 + 0.00000E+00 1.55035E+02 0.00000E+00 7.33730E-01 4.02721E-03 + 7.33730E-01 4.02721E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.37954E+00 1.35791E+00 7.37954E+00 1.35791E+00 + 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 7.34188E-01 + 4.01290E-03 7.34188E-01 4.01290E-03 1.00000E+00 0.00000E+00 + 9.99966E+00 0.00000E+00 7.38504E+00 1.35774E+00 7.38504E+00 + 1.35774E+00 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 + 7.34646E-01 3.99770E-03 7.34646E-01 3.99770E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 + 7.38504E+00 1.35779E+00 1.55035E+02 0.00000E+00 1.55035E+02 + 0.00000E+00 7.35104E-01 3.98249E-03 7.35104E-01 3.98249E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38321E+00 + 1.35779E+00 7.38321E+00 1.35779E+00 1.55042E+02 -2.28951E-04 + 1.55042E+02 -2.28951E-04 7.35533E-01 3.96818E-03 7.35533E-01 + 3.96818E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 1.55035E+02 + 0.00000E+00 1.55035E+02 0.00000E+00 7.35991E-01 3.95387E-03 + 7.35991E-01 3.95387E-03 1.00000E+00 0.00000E+00 9.99966E+00 + 0.00000E+00 7.38687E+00 1.35774E+00 7.38687E+00 1.35774E+00 + 1.55042E+02 -2.28951E-04 1.55042E+02 -2.28951E-04 7.36449E-01 + 3.93867E-03 7.36449E-01 3.93867E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38687E+00 1.35774E+00 7.38687E+00 + 1.35774E+00 1.55035E+02 0.00000E+00 1.55035E+02 0.00000E+00 + 7.36907E-01 3.92436E-03 7.36907E-01 3.92436E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38870E+00 1.35768E+00 + 7.38870E+00 1.35768E+00 1.55035E+02 0.00000E+00 1.55035E+02 + 0.00000E+00 7.37336E-01 3.91005E-03 7.37336E-01 3.91005E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.42167E+00 + 1.35659E+00 7.42167E+00 1.35659E+00 1.55035E+02 0.00000E+00 + 1.55035E+02 0.00000E+00 7.37880E-01 3.89216E-03 7.37880E-01 + 3.89216E-03 1.00000E+00 0.00000E+00 9.99966E+00 0.00000E+00 + 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 1.55035E+02 + 0.00000E+00 1.55035E+02 0.00000E+00 7.38223E-01 3.88143E-03 + 7.38223E-01 3.88143E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38708E+00 1.35772E+00 7.38708E+00 1.35772E+00 + 1.55054E+02 -4.57915E-04 1.55054E+02 -4.57915E-04 7.38645E-01 + 3.86723E-03 7.38645E-01 3.86723E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 + 1.35779E+00 1.55027E+02 2.28951E-04 1.55027E+02 2.28951E-04 + 7.39111E-01 3.85281E-03 7.39111E-01 3.85281E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38687E+00 1.35774E+00 + 7.38687E+00 1.35774E+00 1.55042E+02 -4.57902E-04 1.55042E+02 + -4.57902E-04 7.39511E-01 3.83940E-03 7.39511E-01 3.83940E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.37771E+00 + 1.35796E+00 7.37771E+00 1.35796E+00 1.55020E+02 4.57902E-04 + 1.55020E+02 4.57902E-04 7.39940E-01 3.82598E-03 7.39940E-01 + 3.82598E-03 1.00000E+00 0.00000E+00 9.99966E+00 0.00000E+00 + 7.39053E+00 1.35762E+00 7.39053E+00 1.35762E+00 1.55049E+02 + -4.57902E-04 1.55049E+02 -4.57902E-04 7.40398E-01 3.81078E-03 + 7.40398E-01 3.81078E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38321E+00 1.35785E+00 7.38321E+00 1.35785E+00 + 1.55027E+02 2.28951E-04 1.55027E+02 2.28951E-04 7.40799E-01 + 3.79826E-03 7.40799E-01 3.79826E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38504E+00 1.35774E+00 7.38504E+00 + 1.35774E+00 1.55042E+02 -2.28951E-04 1.55042E+02 -2.28951E-04 + 7.41257E-01 3.78395E-03 7.41257E-01 3.78395E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 1.35779E+00 + 7.38504E+00 1.35779E+00 1.55035E+02 0.00000E+00 1.55035E+02 + 0.00000E+00 7.41715E-01 3.76964E-03 7.41715E-01 3.76964E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.39969E+00 + 1.35733E+00 7.39969E+00 1.35733E+00 1.55049E+02 -4.57902E-04 + 1.55049E+02 -4.57902E-04 7.42144E-01 3.75622E-03 7.42144E-01 + 3.75622E-03 1.00000E+00 0.00000E+00 9.99966E+00 0.00000E+00 + 7.38321E+00 1.35779E+00 7.38321E+00 1.35779E+00 1.55020E+02 + 4.57902E-04 1.55020E+02 4.57902E-04 7.42545E-01 3.74281E-03 + 7.42545E-01 3.74281E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38504E+00 1.35779E+00 7.38504E+00 1.35779E+00 + 1.55049E+02 -4.57902E-04 1.55049E+02 -4.57902E-04 7.42945E-01 + 3.73029E-03 7.42945E-01 3.73029E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38687E+00 1.35774E+00 7.38687E+00 + 1.35774E+00 1.55020E+02 4.57902E-04 1.55020E+02 4.57902E-04 + 7.43375E-01 3.71687E-03 7.43375E-01 3.71687E-03 1.00000E+00 + 0.00000E+00 9.99966E+00 0.00000E+00 7.38504E+00 1.35779E+00 + 7.38504E+00 1.35779E+00 1.55056E+02 -6.86852E-04 1.55056E+02 + -6.86852E-04 7.43833E-01 3.70256E-03 7.43833E-01 3.70256E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38504E+00 + 1.35774E+00 7.38504E+00 1.35774E+00 1.55027E+02 2.28951E-04 + 1.55027E+02 2.28951E-04 7.44233E-01 3.69004E-03 7.44233E-01 + 3.69004E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 7.38321E+00 1.35785E+00 7.38321E+00 1.35785E+00 1.55042E+02 + -2.28951E-04 1.55042E+02 -2.28951E-04 7.44634E-01 3.67752E-03 + 7.44634E-01 3.67752E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 7.38687E+00 1.35774E+00 7.38687E+00 1.35774E+00 + 1.55027E+02 2.28951E-04 1.55027E+02 2.28951E-04 7.45063E-01 + 3.66411E-03 7.45063E-01 3.66411E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 7.38137E+00 1.35785E+00 7.38137E+00 + 1.35785E+00 1.55056E+02 -6.86852E-04 1.55056E+02 -6.86852E-04 + 7.45493E-01 3.65069E-03 7.45493E-01 3.65069E-03 1.00000E+00 + 0.00000E+00 9.99966E+00 0.00000E+00 7.38687E+00 1.35768E+00 + 7.38687E+00 1.35768E+00 1.55020E+02 4.57902E-04 1.55020E+02 + 4.57902E-04 7.45893E-01 3.63817E-03 7.45893E-01 3.63817E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 7.38687E+00 + 1.35768E+00 7.38687E+00 1.35768E+00 1.55020E+02 4.57902E-04 + 1.55020E+02 4.57902E-04 7.45893E-01 3.63817E-03 7.45893E-01 + 3.63817E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 3.20300E-03 1.66735E+01 1.49933E+01 + 3.91204E-01 1.13907E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -1.12250E-04 -2.35742E-04 1.00000E+00 0.00000E+00 + 3.91204E-01 1.13907E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -1.12250E-04 -2.35742E-04 1.00000E+00 0.00000E+00 + 3.93623E-01 1.16556E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -9.54131E-05 -2.17280E-04 1.00000E+00 0.00000E+00 + 3.97962E-01 1.21688E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -6.90890E-05 -1.86137E-04 1.00000E+00 0.00000E+00 + 4.02147E-01 1.27065E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -4.83713E-05 -1.59528E-04 1.00000E+00 0.00000E+00 + 4.06160E-01 1.32702E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -2.89029E-05 -1.32180E-04 1.00000E+00 0.00000E+00 + 4.09984E-01 1.38627E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -1.61581E-05 -1.12426E-04 1.00000E+00 0.00000E+00 + 4.13588E-01 1.44858E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 -7.34648E-06 -9.71945E-05 1.00000E+00 0.00000E+00 + 4.16946E-01 1.51419E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 3.91291E-06 -7.51947E-05 1.00000E+00 0.00000E+00 + 4.20026E-01 1.58339E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 8.02235E-06 -6.59621E-05 1.00000E+00 0.00000E+00 + 4.22790E-01 1.65644E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.10347E-05 -5.80015E-05 1.00000E+00 0.00000E+00 + 4.25195E-01 1.73358E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.32103E-05 -5.10216E-05 1.00000E+00 0.00000E+00 + 4.27192E-01 1.81512E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.53235E-05 -4.23969E-05 1.00000E+00 0.00000E+00 + 4.28730E-01 1.90138E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.63756E-05 -3.64967E-05 1.00000E+00 0.00000E+00 + 4.29749E-01 1.99263E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.68236E-05 -3.24830E-05 1.00000E+00 0.00000E+00 + 4.30183E-01 2.08926E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.70442E-05 -2.75704E-05 1.00000E+00 0.00000E+00 + 4.30002E-01 2.17248E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.69277E-05 -2.22202E-05 1.00009E+00 -4.24493E-03 + 4.29067E-01 2.27819E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.67419E-05 -2.01197E-05 1.00012E+00 -4.53180E-03 + 4.27332E-01 2.38998E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.64480E-05 -1.82255E-05 1.00017E+00 -4.84011E-03 + 4.24709E-01 2.50820E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.60689E-05 -1.65167E-05 1.00024E+00 -5.17077E-03 + 4.21102E-01 2.63321E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.56238E-05 -1.49745E-05 1.00034E+00 -5.52645E-03 + 4.17108E-01 2.74563E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.49808E-05 -1.31644E-05 1.00179E+00 -9.59892E-03 + 4.14052E-01 2.81804E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.39888E-05 -1.08135E-05 1.00698E+00 -2.18958E-02 + 4.07463E-01 2.95289E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.35601E-05 -9.93624E-06 1.00773E+00 -2.34302E-02 + 3.99603E-01 3.09442E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.31149E-05 -9.13443E-06 1.00864E+00 -2.50737E-02 + 3.90370E-01 3.24285E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.26589E-05 -8.40136E-06 1.00973E+00 -2.68351E-02 + 3.87441E-01 3.28538E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 7.78413E-05 -1.03041E-04 1.02319E+00 -4.63716E-02 + 3.77120E-01 3.42199E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.02659E+00 -5.08686E-02 + 3.64797E-01 3.57190E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.02946E+00 -5.43665E-02 + 3.51024E-01 3.72686E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.03277E+00 -5.80849E-02 + 3.35740E-01 3.88681E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.03654E+00 -6.20305E-02 + 3.18904E-01 4.05151E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.04081E+00 -6.62127E-02 + 3.15986E-01 4.07830E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.06460E+00 -8.80579E-02 + 3.01384E-01 4.20466E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.07475E+00 -9.68373E-02 + 2.83057E-01 4.35459E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.08232E+00 -1.03031E-01 + 2.63670E-01 4.50500E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.09067E+00 -1.09510E-01 + 2.52783E-01 4.58530E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.10959E+00 -1.23465E-01 + 2.42006E-01 4.66107E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.12900E+00 -1.37112E-01 + 2.23083E-01 4.78815E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.14086E+00 -1.45074E-01 + 2.07312E-01 4.88952E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.15654E+00 -1.55155E-01 + 2.03747E-01 4.91149E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.18312E+00 -1.71538E-01 + 1.87884E-01 5.00540E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.19825E+00 -1.80496E-01 + 1.84450E-01 5.02495E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.22315E+00 -1.94677E-01 + 1.87130E-01 5.01026E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.25108E+00 -2.10001E-01 + 1.78984E-01 5.05335E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.26891E+00 -2.19438E-01 + 1.73350E-01 5.08218E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.28719E+00 -2.28782E-01 + 1.73294E-01 5.08245E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.30751E+00 -2.38830E-01 + 1.90898E-01 4.99819E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.33666E+00 -2.52779E-01 + 1.97376E-01 4.96815E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.35540E+00 -2.61472E-01 + 2.08100E-01 4.91989E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.37379E+00 -2.69747E-01 + 2.59064E-01 4.69730E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.41086E+00 -2.85936E-01 + 2.92066E-01 4.55722E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.43254E+00 -2.95139E-01 + 3.21760E-01 4.43467E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.44812E+00 -3.01569E-01 + 3.56907E-01 4.29350E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.46219E+00 -3.07222E-01 + 3.97575E-01 4.13441E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.47451E+00 -3.12038E-01 + 4.43790E-01 3.95821E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.48481E+00 -3.15967E-01 + 5.07712E-01 3.72057E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.49777E+00 -3.20787E-01 + 5.70460E-01 3.49288E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50508E+00 -3.23436E-01 + 6.33677E-01 3.26896E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50776E+00 -3.24387E-01 + 7.01665E-01 3.03370E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50763E+00 -3.24342E-01 + 7.89912E-01 2.73521E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50973E+00 -3.25054E-01 + 8.90665E-01 2.40191E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.51069E+00 -3.25369E-01 + 9.71889E-01 2.13905E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50071E+00 -3.22140E-01 + 1.05577E+00 1.87332E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.48762E+00 -3.17993E-01 + 1.14171E+00 1.60667E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.47148E+00 -3.12986E-01 + 1.22912E+00 1.34100E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.45238E+00 -3.07180E-01 + 1.29072E+00 1.15747E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.42411E+00 -2.98759E-01 + 1.32357E+00 1.06150E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.38764E+00 -2.88103E-01 + 1.41071E+00 8.11826E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.36230E+00 -2.80843E-01 + 1.49734E+00 5.68266E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.33469E+00 -2.73081E-01 + 1.58382E+00 3.29587E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.30519E+00 -2.64938E-01 + 1.71859E+00 -3.56573E-03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.28287E+00 -2.58891E-01 + 1.80040E+00 -2.53408E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.24867E+00 -2.49787E-01 + 1.87951E+00 -4.60314E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.21310E+00 -2.40483E-01 + 4.60819E+00 -7.47458E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.58642E+00 -3.36448E-01 + 1.86658E+00 -5.45870E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.09256E+00 -2.11638E-01 + 1.91743E+00 -6.72235E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.05476E+00 -2.02243E-01 + 1.96421E+00 -7.86630E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.01675E+00 -1.92950E-01 + 2.00691E+00 -8.89325E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 9.78720E-01 -1.83802E-01 + 2.04546E+00 -9.80622E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 9.40858E-01 -1.74838E-01 + 2.07995E+00 -1.06102E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 9.03320E-01 -1.66088E-01 + 2.11040E+00 -1.13089E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 8.66248E-01 -1.57580E-01 + 2.13687E+00 -1.19074E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 8.29770E-01 -1.49334E-01 + 2.15956E+00 -1.24125E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 7.93999E-01 -1.41368E-01 + 2.17851E+00 -1.28285E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 7.59031E-01 -1.33695E-01 + 2.19160E+00 -1.31114E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 7.24745E-01 -1.26280E-01 + 2.20369E+00 -1.33693E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 6.91631E-01 -1.19220E-01 + 2.21311E+00 -1.35671E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 6.59549E-01 -1.12476E-01 + 2.21902E+00 -1.36898E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 6.28464E-01 -1.06032E-01 + 2.20100E+00 -1.33214E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 5.97029E-01 -9.96045E-02 + 2.38233E+00 -1.69792E-01 0.00000E+00 0.00000E+00 -1.76073E-01 + 3.55178E-02 -1.76073E-01 3.55178E-02 4.03632E-01 -6.05920E-02 + 2.21999E+00 -1.37477E-01 0.00000E+00 0.00000E+00 -4.76756E-02 + 9.96106E-03 -4.76756E-02 9.96106E-03 4.93457E-01 -7.84713E-02 + 2.21364E+00 -1.36231E-01 0.00000E+00 0.00000E+00 -3.93121E-02 + 8.31818E-03 -3.93121E-02 8.31818E-03 4.74971E-01 -7.48398E-02 + 2.21254E+00 -1.36016E-01 0.00000E+00 0.00000E+00 -4.00151E-02 + 8.45448E-03 -4.00151E-02 8.45448E-03 4.48919E-01 -6.97884E-02 + 2.21265E+00 -1.36039E-01 0.00000E+00 0.00000E+00 -4.50218E-02 + 9.41285E-03 -4.50218E-02 9.41285E-03 4.19751E-01 -6.42052E-02 + 2.21703E+00 -1.36866E-01 0.00000E+00 0.00000E+00 -5.43896E-02 + 1.11834E-02 -5.43896E-02 1.11834E-02 3.87501E-01 -5.81097E-02 + 2.22506E+00 -1.38367E-01 0.00000E+00 0.00000E+00 -6.93763E-02 + 1.39808E-02 -6.93763E-02 1.39808E-02 3.50796E-01 -5.12586E-02 + 2.24374E+00 -1.41811E-01 0.00000E+00 0.00000E+00 -9.15876E-02 + 1.80756E-02 -9.15876E-02 1.80756E-02 3.08260E-01 -4.34166E-02 + 2.26952E+00 -1.46504E-01 0.00000E+00 0.00000E+00 -1.20769E-01 + 2.33902E-02 -1.20769E-01 2.33902E-02 2.59867E-01 -3.46034E-02 + 2.29068E+00 -1.50311E-01 0.00000E+00 0.00000E+00 -1.46772E-01 + 2.80689E-02 -1.46772E-01 2.80689E-02 2.15237E-01 -2.65728E-02 + 2.25144E+00 -1.43335E-01 0.00000E+00 0.00000E+00 -1.33508E-01 + 2.57106E-02 -1.33508E-01 2.57106E-02 2.08490E-01 -2.53731E-02 + 2.08185E+00 -1.13535E-01 0.00000E+00 0.00000E+00 -2.98655E-02 + 7.49892E-03 -2.98655E-02 7.49892E-03 2.88837E-01 -3.94915E-02 + 1.83738E+00 -7.10757E-02 0.00000E+00 0.00000E+00 1.26440E-01 + -1.96485E-02 1.26440E-01 -1.96485E-02 4.21269E-01 -6.24923E-02 + 1.70814E+00 -4.88854E-02 0.00000E+00 0.00000E+00 2.04613E-01 + -3.30702E-02 2.04613E-01 -3.30702E-02 4.81100E-01 -7.27649E-02 + 1.72196E+00 -5.12322E-02 0.00000E+00 0.00000E+00 1.83331E-01 + -2.94576E-02 1.83331E-01 -2.94576E-02 4.46844E-01 -6.69500E-02 + 1.78008E+00 -6.09861E-02 0.00000E+00 0.00000E+00 1.30353E-01 + -2.05652E-02 1.30353E-01 -2.05652E-02 3.82608E-01 -5.61682E-02 + 1.82686E+00 -6.87499E-02 0.00000E+00 0.00000E+00 8.45802E-02 + -1.29674E-02 8.45802E-02 -1.29674E-02 3.25602E-01 -4.67058E-02 + 1.85394E+00 -7.31968E-02 0.00000E+00 0.00000E+00 5.21653E-02 + -7.64582E-03 5.21653E-02 -7.64582E-03 2.81852E-01 -3.95232E-02 + 1.86805E+00 -7.54881E-02 0.00000E+00 0.00000E+00 2.92737E-02 + -3.92835E-03 2.92737E-02 -3.92835E-03 2.47777E-01 -3.39896E-02 + 1.87266E+00 -7.62304E-02 0.00000E+00 0.00000E+00 1.09480E-02 + -9.84250E-04 1.09480E-02 -9.84250E-04 2.18551E-01 -2.92943E-02 + 1.88043E+00 -7.74667E-02 0.00000E+00 0.00000E+00 -7.64170E-03 + 1.97060E-03 -7.64170E-03 1.97060E-03 1.89624E-01 -2.46963E-02 + 1.89495E+00 -7.97491E-02 0.00000E+00 0.00000E+00 -3.15923E-02 + 5.73764E-03 -3.15923E-02 5.73764E-03 1.55932E-01 -1.93971E-02 + 1.91484E+00 -8.28436E-02 0.00000E+00 0.00000E+00 -6.03683E-02 + 1.02166E-02 -6.03683E-02 1.02166E-02 1.17941E-01 -1.34838E-02 + 1.88743E+00 -7.86213E-02 0.00000E+00 0.00000E+00 -5.37884E-02 + 9.20300E-03 -5.37884E-02 9.20300E-03 1.14910E-01 -1.30170E-02 + 1.73603E+00 -5.55379E-02 0.00000E+00 0.00000E+00 4.25600E-02 + -5.48866E-03 4.25600E-02 -5.48866E-03 2.00212E-01 -2.60241E-02 + 1.64695E+00 -4.20882E-02 0.00000E+00 0.00000E+00 9.48434E-02 + -1.33808E-02 9.48434E-02 -1.33808E-02 2.43206E-01 -3.25141E-02 + 1.67772E+00 -4.66873E-02 0.00000E+00 0.00000E+00 6.00411E-02 + -8.17979E-03 6.00411E-02 -8.17979E-03 2.01407E-01 -2.62674E-02 + 1.72492E+00 -5.36719E-02 0.00000E+00 0.00000E+00 1.34904E-02 + -1.29166E-03 1.34904E-02 -1.29166E-03 1.48353E-01 -1.84170E-02 + 1.75914E+00 -5.86854E-02 0.00000E+00 0.00000E+00 -2.39288E-02 + 4.19114E-03 -2.39288E-02 4.19114E-03 1.04501E-01 -1.19916E-02 + 1.68367E+00 -4.77344E-02 0.00000E+00 0.00000E+00 1.94985E-02 + -2.11044E-03 1.94985E-02 -2.11044E-03 1.40461E-01 -1.72097E-02 + 1.59594E+00 -3.51268E-02 0.00000E+00 0.00000E+00 7.30591E-02 + -9.80789E-03 7.30591E-02 -9.80789E-03 1.86892E-01 -2.38825E-02 + 1.61784E+00 -3.82421E-02 0.00000E+00 0.00000E+00 4.56609E-02 + -5.90774E-03 4.56609E-02 -5.90774E-03 1.53977E-01 -1.91970E-02 + 1.63205E+00 -4.02487E-02 0.00000E+00 0.00000E+00 2.45838E-02 + -2.93562E-03 2.45838E-02 -2.93562E-03 1.27542E-01 -1.54694E-02 + 1.62925E+00 -3.98561E-02 0.00000E+00 0.00000E+00 1.53880E-02 + -1.65099E-03 1.53880E-02 -1.65099E-03 1.13073E-01 -1.34480E-02 + 1.62134E+00 -3.87617E-02 0.00000E+00 0.00000E+00 1.12050E-02 + -1.07203E-03 1.12050E-02 -1.07203E-03 1.03830E-01 -1.21688E-02 + 1.61060E+00 -3.72895E-02 0.00000E+00 0.00000E+00 9.09864E-03 + -7.83155E-04 9.09864E-03 -7.83155E-04 9.68962E-02 -1.12179E-02 + 1.59896E+00 -3.57076E-02 0.00000E+00 0.00000E+00 7.94298E-03 + -6.26099E-04 7.94298E-03 -6.26099E-04 9.11530E-02 -1.04374E-02 + 1.58717E+00 -3.41182E-02 0.00000E+00 0.00000E+00 7.26642E-03 + -5.34982E-04 7.26642E-03 -5.34982E-04 8.61229E-02 -9.75994E-03 + 1.57538E+00 -3.25458E-02 0.00000E+00 0.00000E+00 6.84934E-03 + -4.79310E-04 6.84934E-03 -4.79310E-04 8.15776E-02 -9.15322E-03 + 1.56379E+00 -3.10123E-02 0.00000E+00 0.00000E+00 6.58130E-03 + -4.43849E-04 6.58130E-03 -4.43849E-04 7.73953E-02 -8.59990E-03 + 1.55258E+00 -2.95427E-02 0.00000E+00 0.00000E+00 6.40183E-03 + -4.20311E-04 6.40183E-03 -4.20311E-04 7.35059E-02 -8.08983E-03 + 1.54171E+00 -2.81293E-02 0.00000E+00 0.00000E+00 6.27613E-03 + -4.03972E-04 6.27613E-03 -4.03972E-04 6.98639E-02 -7.61634E-03 + 1.53093E+00 -2.67387E-02 0.00000E+00 0.00000E+00 6.18235E-03 + -3.91880E-04 6.18235E-03 -3.91880E-04 6.64356E-02 -7.17447E-03 + 1.52088E+00 -2.54551E-02 0.00000E+00 0.00000E+00 6.10896E-03 + -3.82505E-04 6.10896E-03 -3.82505E-04 6.32040E-02 -6.76150E-03 + 1.51078E+00 -2.41757E-02 0.00000E+00 0.00000E+00 6.04554E-03 + -3.74467E-04 6.04554E-03 -3.74467E-04 6.01452E-02 -6.37391E-03 + 1.50138E+00 -2.29939E-02 0.00000E+00 0.00000E+00 5.98845E-03 + -3.67295E-04 5.98845E-03 -3.67295E-04 5.72505E-02 -6.01019E-03 + 1.49214E+00 -2.18432E-02 0.00000E+00 0.00000E+00 5.93263E-03 + -3.60339E-04 5.93263E-03 -3.60339E-04 5.45044E-02 -5.66802E-03 + 1.48330E+00 -2.07493E-02 0.00000E+00 0.00000E+00 5.87663E-03 + -3.53417E-04 5.87663E-03 -3.53417E-04 5.18983E-02 -5.34597E-03 + 1.47496E+00 -1.97267E-02 0.00000E+00 0.00000E+00 5.81874E-03 + -3.46322E-04 5.81874E-03 -3.46322E-04 4.94245E-02 -5.04275E-03 + 1.46654E+00 -1.87046E-02 0.00000E+00 0.00000E+00 5.75724E-03 + -3.38846E-04 5.75724E-03 -3.38846E-04 4.70713E-02 -4.75666E-03 + 1.45886E+00 -1.77788E-02 0.00000E+00 0.00000E+00 5.69287E-03 + -3.31082E-04 5.69287E-03 -3.31082E-04 4.48362E-02 -4.48712E-03 + 1.45122E+00 -1.68634E-02 0.00000E+00 0.00000E+00 5.62451E-03 + -3.22905E-04 5.62451E-03 -3.22905E-04 4.27094E-02 -4.23268E-03 + 1.44405E+00 -1.60129E-02 0.00000E+00 0.00000E+00 5.55248E-03 + -3.14357E-04 5.55248E-03 -3.14357E-04 4.06866E-02 -3.99260E-03 + 1.43736E+00 -1.52246E-02 0.00000E+00 0.00000E+00 5.47727E-03 + -3.05500E-04 5.47727E-03 -3.05500E-04 3.87629E-02 -3.76608E-03 + 1.43019E+00 -1.43879E-02 0.00000E+00 0.00000E+00 5.39696E-03 + -2.96116E-04 5.39696E-03 -2.96116E-04 3.69283E-02 -3.55173E-03 + 1.42406E+00 -1.36768E-02 0.00000E+00 0.00000E+00 5.31499E-03 + -2.86615E-04 5.31499E-03 -2.86615E-04 3.51856E-02 -3.34969E-03 + 1.41795E+00 -1.29744E-02 0.00000E+00 0.00000E+00 5.22959E-03 + -2.76788E-04 5.22959E-03 -2.76788E-04 3.35254E-02 -3.15870E-03 + 1.41211E+00 -1.23075E-02 0.00000E+00 0.00000E+00 5.14165E-03 + -2.66751E-04 5.14165E-03 -2.66751E-04 3.19448E-02 -2.97824E-03 + 1.40647E+00 -1.16678E-02 0.00000E+00 0.00000E+00 5.05119E-03 + -2.56498E-04 5.05119E-03 -2.56498E-04 3.04393E-02 -2.80766E-03 + 1.40112E+00 -1.10671E-02 0.00000E+00 0.00000E+00 4.95898E-03 + -2.46130E-04 4.95898E-03 -2.46130E-04 2.90061E-02 -2.64649E-03 + 1.39639E+00 -1.05382E-02 0.00000E+00 0.00000E+00 4.86586E-03 + -2.35738E-04 4.86586E-03 -2.35738E-04 2.76425E-02 -2.49429E-03 + 1.39063E+00 -9.90012E-03 0.00000E+00 0.00000E+00 4.76879E-03 + -2.24982E-04 4.76879E-03 -2.24982E-04 2.63391E-02 -2.34988E-03 + 1.38635E+00 -9.42992E-03 0.00000E+00 0.00000E+00 4.67343E-03 + -2.14493E-04 4.67343E-03 -2.14493E-04 2.51026E-02 -2.21389E-03 + 1.38185E+00 -8.93853E-03 0.00000E+00 0.00000E+00 4.57639E-03 + -2.03897E-04 4.57639E-03 -2.03897E-04 2.39234E-02 -2.08514E-03 + 1.37769E+00 -8.48633E-03 0.00000E+00 0.00000E+00 4.47915E-03 + -1.93358E-04 4.47915E-03 -1.93358E-04 2.28005E-02 -1.96344E-03 + 1.37419E+00 -8.11087E-03 0.00000E+00 0.00000E+00 4.38260E-03 + -1.82970E-04 4.38260E-03 -1.82970E-04 2.17328E-02 -1.84853E-03 + 1.36859E+00 -7.51401E-03 0.00000E+00 0.00000E+00 4.28145E-03 + -1.72161E-04 4.28145E-03 -1.72161E-04 2.07082E-02 -1.73906E-03 + 1.36565E+00 -7.20123E-03 0.00000E+00 0.00000E+00 4.18550E-03 + -1.61982E-04 4.18550E-03 -1.61982E-04 1.97403E-02 -1.63637E-03 + 1.36221E+00 -6.83830E-03 0.00000E+00 0.00000E+00 4.08864E-03 + -1.51779E-04 4.08864E-03 -1.51779E-04 1.88163E-02 -1.53904E-03 + 1.35873E+00 -6.47378E-03 0.00000E+00 0.00000E+00 3.99182E-03 + -1.41651E-04 3.99182E-03 -1.41651E-04 1.79355E-02 -1.44690E-03 + 1.35559E+00 -6.14839E-03 0.00000E+00 0.00000E+00 3.89625E-03 + -1.31721E-04 3.89625E-03 -1.31721E-04 1.70971E-02 -1.35980E-03 + 1.35219E+00 -5.79816E-03 0.00000E+00 0.00000E+00 3.80071E-03 + -1.21864E-04 3.80071E-03 -1.21864E-04 1.62975E-02 -1.27731E-03 + 1.34939E+00 -5.51040E-03 0.00000E+00 0.00000E+00 3.70685E-03 + -1.12247E-04 3.70685E-03 -1.12247E-04 1.55369E-02 -1.19937E-03 + 1.34650E+00 -5.21541E-03 0.00000E+00 0.00000E+00 3.61388E-03 + -1.02785E-04 3.61388E-03 -1.02785E-04 1.48120E-02 -1.12560E-03 + 1.34383E+00 -4.94738E-03 0.00000E+00 0.00000E+00 3.52214E-03 + -9.35146E-05 3.52214E-03 -9.35146E-05 1.41217E-02 -1.05582E-03 + 1.34161E+00 -4.72396E-03 0.00000E+00 0.00000E+00 3.43232E-03 + -8.44941E-05 3.43232E-03 -8.44941E-05 1.34650E-02 -9.89887E-04 + 1.33880E+00 -4.44328E-03 0.00000E+00 0.00000E+00 3.34246E-03 + -7.55318E-05 3.34246E-03 -7.55318E-05 1.28376E-02 -9.27310E-04 + 1.33595E+00 -4.16095E-03 0.00000E+00 0.00000E+00 3.25362E-03 + -6.67288E-05 3.25362E-03 -6.67288E-05 1.22395E-02 -8.68051E-04 + 1.33421E+00 -3.98936E-03 0.00000E+00 0.00000E+00 3.16833E-03 + -5.83332E-05 3.16833E-03 -5.83332E-05 1.16724E-02 -8.12235E-04 + 1.33203E+00 -3.77661E-03 0.00000E+00 0.00000E+00 3.08347E-03 + -5.00381E-05 3.08347E-03 -5.00381E-05 1.11309E-02 -7.59288E-04 + 1.33009E+00 -3.58721E-03 0.00000E+00 0.00000E+00 3.00015E-03 + -4.19399E-05 3.00015E-03 -4.19399E-05 1.06151E-02 -7.09172E-04 + 1.32831E+00 -3.41562E-03 0.00000E+00 0.00000E+00 2.91871E-03 + -3.40818E-05 2.91871E-03 -3.40818E-05 1.01243E-02 -6.61787E-04 + 1.32595E+00 -3.19037E-03 0.00000E+00 0.00000E+00 2.83751E-03 + -2.62932E-05 2.83751E-03 -2.62932E-05 9.65484E-03 -6.16763E-04 + 1.32444E+00 -3.04564E-03 0.00000E+00 0.00000E+00 2.75947E-03 + -1.88544E-05 2.75947E-03 -1.88544E-05 9.20948E-03 -5.74322E-04 + 1.32286E+00 -2.89725E-03 0.00000E+00 0.00000E+00 2.68249E-03 + -1.15652E-05 2.68249E-03 -1.15652E-05 8.78464E-03 -5.34092E-04 + 1.32125E+00 -2.74537E-03 0.00000E+00 0.00000E+00 2.60702E-03 + -4.46139E-06 2.60702E-03 -4.46139E-06 8.37976E-03 -4.95989E-04 + 1.31986E+00 -2.61489E-03 0.00000E+00 0.00000E+00 2.53329E-03 + 2.43317E-06 2.53329E-03 2.43317E-06 7.99414E-03 -4.59928E-04 + 1.31807E+00 -2.44863E-03 0.00000E+00 0.00000E+00 2.46036E-03 + 9.20890E-06 2.46036E-03 9.20890E-06 7.62578E-03 -4.25690E-04 + 1.31690E+00 -2.34143E-03 0.00000E+00 0.00000E+00 2.38994E-03 + 1.57126E-05 2.38994E-03 1.57126E-05 7.27585E-03 -3.93370E-04 + 1.31572E+00 -2.23240E-03 0.00000E+00 0.00000E+00 2.32096E-03 + 2.20486E-05 2.32096E-03 2.20486E-05 6.94212E-03 -3.62734E-04 + 1.31465E+00 -2.13406E-03 0.00000E+00 0.00000E+00 2.25356E-03 + 2.81957E-05 2.25356E-03 2.81957E-05 6.62415E-03 -3.33727E-04 + 1.31290E+00 -1.97681E-03 0.00000E+00 0.00000E+00 2.18623E-03 + 3.43017E-05 2.18623E-03 3.43017E-05 6.31951E-03 -3.06094E-04 + 1.31196E+00 -1.89101E-03 0.00000E+00 0.00000E+00 2.12183E-03 + 4.01071E-05 2.12183E-03 4.01071E-05 6.03063E-03 -2.80052E-04 + 1.31102E+00 -1.80698E-03 0.00000E+00 0.00000E+00 2.05883E-03 + 4.57513E-05 2.05883E-03 4.57513E-05 5.75507E-03 -2.55367E-04 + 1.31014E+00 -1.72837E-03 -8.38904E-06 7.47234E-07 1.98876E-03 + 5.19937E-05 1.98876E-03 5.19937E-05 5.48386E-03 -2.31210E-04 + 1.30914E+00 -1.64079E-03 -1.58854E-05 1.41101E-06 1.92095E-03 + 5.79981E-05 1.92095E-03 5.79981E-05 5.22570E-03 -2.08348E-04 + 1.30813E+00 -1.55140E-03 -2.05562E-05 1.82217E-06 1.85683E-03 + 6.36420E-05 1.85683E-03 6.36420E-05 4.98138E-03 -1.86845E-04 + 1.30715E+00 -1.46563E-03 -2.42428E-05 2.14479E-06 1.79539E-03 + 6.90189E-05 1.79539E-03 6.90189E-05 4.74949E-03 -1.66545E-04 + 1.30652E+00 -1.41020E-03 -2.73463E-05 2.41482E-06 1.73616E-03 + 7.41704E-05 1.73616E-03 7.41704E-05 4.52896E-03 -1.47360E-04 + 1.30571E+00 -1.34051E-03 -3.00442E-05 2.64819E-06 1.67821E-03 + 7.91844E-05 1.67821E-03 7.91844E-05 4.31840E-03 -1.29143E-04 + 1.30558E+00 -1.32979E-03 -3.24341E-05 2.85374E-06 1.62333E-03 + 8.39041E-05 1.62333E-03 8.39041E-05 4.11911E-03 -1.12006E-04 + 1.30374E+00 -1.17248E-03 -3.45789E-05 3.03715E-06 1.56620E-03 + 8.87901E-05 1.56620E-03 8.87901E-05 3.92518E-03 -9.54228E-05 + 1.30372E+00 -1.17071E-03 -3.65177E-05 3.20201E-06 1.51405E-03 + 9.32249E-05 1.51405E-03 9.32249E-05 3.74388E-03 -8.00048E-05 + 1.30292E+00 -1.10279E-03 -3.82823E-05 3.35121E-06 1.46172E-03 + 9.76514E-05 1.46172E-03 9.76514E-05 3.56917E-03 -6.52347E-05 + 1.30243E+00 -1.06167E-03 -3.98942E-05 3.48674E-06 1.41120E-03 + 1.01898E-04 1.41120E-03 1.01898E-04 3.40301E-03 -5.12634E-05 + 1.30192E+00 -1.01879E-03 -4.13719E-05 3.61029E-06 1.36174E-03 + 1.06037E-04 1.36174E-03 1.06037E-04 3.24415E-03 -3.79812E-05 + 1.30143E+00 -9.77680E-04 -4.27290E-05 3.72312E-06 1.31337E-03 + 1.10051E-04 1.31337E-03 1.10051E-04 3.09228E-03 -2.53580E-05 + 1.30074E+00 -9.20471E-04 -4.39774E-05 3.82635E-06 1.26587E-03 + 1.13980E-04 1.26587E-03 1.13980E-04 2.94696E-03 -1.33351E-05 + 1.30036E+00 -8.90100E-04 -4.51259E-05 3.92079E-06 1.21992E-03 + 1.17763E-04 1.21992E-03 1.17763E-04 2.80832E-03 -1.93746E-06 + 1.30008E+00 -8.66852E-04 -4.61832E-05 4.00726E-06 1.17528E-03 + 1.21412E-04 1.17528E-03 1.21412E-04 2.67618E-03 8.86680E-06 + 1.29952E+00 -8.20393E-04 -4.71569E-05 4.08646E-06 1.13083E-03 + 1.25027E-04 1.13083E-03 1.25027E-04 2.54893E-03 1.92175E-05 + 1.29893E+00 -7.73922E-04 -4.80531E-05 4.15897E-06 1.08749E-03 + 1.28532E-04 1.08749E-03 1.28532E-04 2.42733E-03 2.90584E-05 + 1.29868E+00 -7.52463E-04 -4.88752E-05 4.22512E-06 1.04558E-03 + 1.31902E-04 1.04558E-03 1.31902E-04 2.31146E-03 3.83821E-05 + 1.29819E+00 -7.14939E-04 -4.96297E-05 4.28551E-06 1.00421E-03 + 1.35217E-04 1.00421E-03 1.35217E-04 2.20006E-03 4.72984E-05 + 1.29802E+00 -7.00641E-04 -5.03194E-05 4.34042E-06 9.64219E-04 + 1.38401E-04 9.64219E-04 1.38401E-04 2.09388E-03 5.57534E-05 + 1.29768E+00 -6.72033E-04 -5.09493E-05 4.39030E-06 9.24716E-04 + 1.41530E-04 9.24716E-04 1.41530E-04 1.99180E-03 6.38340E-05 + 1.29741E+00 -6.52382E-04 -5.15215E-05 4.43538E-06 8.86301E-04 + 1.44555E-04 8.86301E-04 1.44555E-04 1.89431E-03 7.15149E-05 + 1.29704E+00 -6.23785E-04 -5.20397E-05 4.47599E-06 8.48209E-04 + 1.47540E-04 8.48209E-04 1.47540E-04 1.80031E-03 7.88842E-05 + 1.29688E+00 -6.11264E-04 -5.25051E-05 4.51228E-06 8.11500E-04 + 1.50400E-04 8.11500E-04 1.50400E-04 1.71080E-03 8.58613E-05 + 1.29670E+00 -5.95187E-04 -5.29212E-05 4.54454E-06 7.75151E-04 + 1.53223E-04 7.75151E-04 1.53223E-04 1.62442E-03 9.25581E-05 + 1.29630E+00 -5.66589E-04 -5.32903E-05 4.57302E-06 7.39404E-04 + 1.55978E-04 7.39404E-04 1.55978E-04 1.54153E-03 9.89570E-05 + 1.29597E+00 -5.41559E-04 -5.36137E-05 4.59784E-06 7.04149E-04 + 1.58684E-04 7.04149E-04 1.58684E-04 1.46158E-03 1.05089E-04 + 1.29581E+00 -5.29055E-04 -5.38914E-05 4.61905E-06 6.69921E-04 + 1.61298E-04 6.69921E-04 1.61298E-04 1.38525E-03 1.10920E-04 + 1.29571E+00 -5.20111E-04 -5.41261E-05 4.63688E-06 6.36622E-04 + 1.63830E-04 6.36622E-04 1.63830E-04 1.31212E-03 1.16480E-04 + 1.29541E+00 -4.96883E-04 -5.43197E-05 4.65152E-06 6.03286E-04 + 1.66349E-04 6.03286E-04 1.66349E-04 1.24109E-03 1.21847E-04 + 1.29527E+00 -4.87946E-04 -5.44717E-05 4.66296E-06 5.71058E-04 + 1.68775E-04 5.71058E-04 1.68775E-04 1.17328E-03 1.26947E-04 + 1.29517E+00 -4.79003E-04 -5.45832E-05 4.67130E-06 5.39101E-04 + 1.71168E-04 5.39101E-04 1.71168E-04 1.10769E-03 1.31857E-04 + 1.29496E+00 -4.64711E-04 -5.46563E-05 4.67673E-06 5.07942E-04 + 1.73488E-04 5.07942E-04 1.73488E-04 1.04476E-03 1.36544E-04 + 1.29487E+00 -4.57561E-04 -5.46897E-05 4.67922E-06 4.76999E-04 + 1.75782E-04 4.76999E-04 1.75782E-04 9.83768E-04 1.41061E-04 + 1.29468E+00 -4.45043E-04 -5.46848E-05 4.67886E-06 4.46775E-04 + 1.78006E-04 4.46775E-04 1.78006E-04 9.25275E-04 1.45377E-04 + 1.29464E+00 -4.41475E-04 -5.46415E-05 4.67568E-06 4.16899E-04 + 1.80201E-04 4.16899E-04 1.80201E-04 8.68540E-04 1.49537E-04 + 1.29435E+00 -4.21814E-04 -5.45626E-05 4.66992E-06 3.87240E-04 + 1.82365E-04 3.87240E-04 1.82365E-04 8.13635E-04 1.53548E-04 + 1.29428E+00 -4.14659E-04 -5.44437E-05 4.66127E-06 3.58470E-04 + 1.84457E-04 3.58470E-04 1.84457E-04 7.60953E-04 1.57375E-04 + 1.29424E+00 -4.12877E-04 -5.42879E-05 4.65001E-06 3.29989E-04 + 1.86516E-04 3.29989E-04 1.86516E-04 7.09857E-04 1.61071E-04 + 1.29415E+00 -4.03941E-04 -5.40939E-05 4.63604E-06 3.01894E-04 + 1.88541E-04 3.01894E-04 1.88541E-04 6.60481E-04 1.64628E-04 + 1.29396E+00 -3.91424E-04 -5.38640E-05 4.61959E-06 2.73963E-04 + 1.90538E-04 2.73963E-04 1.90538E-04 6.12437E-04 1.68068E-04 + 1.29390E+00 -3.87855E-04 -5.35951E-05 4.60041E-06 2.46654E-04 + 1.92486E-04 2.46654E-04 1.92486E-04 5.66087E-04 1.71373E-04 + 1.29388E+00 -3.86062E-04 -5.32878E-05 4.57861E-06 2.19617E-04 + 1.94403E-04 2.19617E-04 1.94403E-04 5.21172E-04 1.74561E-04 + 1.29375E+00 -3.77131E-04 -5.29434E-05 4.55429E-06 1.93089E-04 + 1.96277E-04 1.93089E-04 1.96277E-04 4.77613E-04 1.77635E-04 + 1.29375E+00 -3.77131E-04 -5.25601E-05 4.52736E-06 1.66838E-04 + 1.98120E-04 1.66838E-04 1.98120E-04 4.35331E-04 1.80606E-04 + 1.29365E+00 -3.69976E-04 -5.21389E-05 4.49788E-06 1.40584E-04 + 1.99960E-04 1.40584E-04 1.99960E-04 3.93937E-04 1.83501E-04 + 1.29358E+00 -3.64619E-04 -5.16788E-05 4.46586E-06 1.14893E-04 + 2.01747E-04 1.14893E-04 2.01747E-04 3.53895E-04 1.86286E-04 + 1.29353E+00 -3.61044E-04 -5.11803E-05 4.43129E-06 8.94233E-05 + 2.03513E-04 8.94233E-05 2.03513E-04 3.15020E-04 1.88984E-04 + 1.29348E+00 -3.59252E-04 -5.06429E-05 4.39422E-06 6.41761E-05 + 2.05252E-04 6.41761E-05 2.05252E-04 2.77091E-04 1.91603E-04 + 1.29335E+00 -3.50320E-04 -5.00671E-05 4.35468E-06 3.92658E-05 + 2.06962E-04 3.92658E-05 2.06962E-04 2.40063E-04 1.94140E-04 + 1.29338E+00 -3.52108E-04 -4.94512E-05 4.31258E-06 1.44664E-05 + 2.08662E-04 1.44664E-05 2.08662E-04 2.03981E-04 1.96612E-04 + 1.29336E+00 -3.50315E-04 -4.87957E-05 4.26798E-06 -9.77442E-06 + 2.10311E-04 -9.77442E-06 2.10311E-04 1.68958E-04 1.98993E-04 + 1.29333E+00 -3.48533E-04 -4.81033E-05 4.22106E-06 -3.42389E-05 + 2.11968E-04 -3.42389E-05 2.11968E-04 1.34386E-04 2.01335E-04 + 1.29322E+00 -3.41379E-04 -4.73710E-05 4.17168E-06 -5.81438E-05 + 2.13582E-04 -5.81438E-05 2.13582E-04 1.00984E-04 2.03591E-04 + 1.29324E+00 -3.43171E-04 -4.66022E-05 4.12006E-06 -8.21063E-05 + 2.15187E-04 -8.21063E-05 2.15187E-04 6.79751E-05 2.05803E-04 + 1.29327E+00 -3.43171E-04 -4.57932E-05 4.06600E-06 -1.05789E-04 + 2.16772E-04 -1.05789E-04 2.16772E-04 3.58028E-05 2.07954E-04 + 1.29321E+00 -3.39596E-04 -4.49484E-05 4.00978E-06 -1.29192E-04 + 2.18329E-04 -1.29192E-04 2.18329E-04 4.30081E-06 2.10048E-04 + 1.29318E+00 -3.37809E-04 -4.40665E-05 3.95136E-06 -1.52651E-04 + 2.19882E-04 -1.52651E-04 2.19882E-04 -2.66985E-05 2.12101E-04 + 1.29320E+00 -3.37799E-04 -4.31484E-05 3.89081E-06 -1.75937E-04 + 2.21419E-04 -1.75937E-04 2.21419E-04 -5.71935E-05 2.14113E-04 + 1.29315E+00 -3.36022E-04 -4.21964E-05 3.82831E-06 -1.98898E-04 + 2.22926E-04 -1.98898E-04 2.22926E-04 -8.67981E-05 2.16060E-04 + 1.29310E+00 -3.32447E-04 -4.11020E-05 3.75674E-06 -2.21855E-04 + 2.24427E-04 -2.21855E-04 2.24427E-04 -1.16178E-04 2.17980E-04 + 1.29315E+00 -3.36022E-04 -4.01062E-05 3.69192E-06 -2.44643E-04 + 2.25908E-04 -2.44643E-04 2.25908E-04 -1.44943E-04 2.19851E-04 + 1.29310E+00 -3.32447E-04 -3.90760E-05 3.62515E-06 -2.67600E-04 + 2.27398E-04 -2.67600E-04 2.27398E-04 -1.73596E-04 2.21708E-04 + 1.29315E+00 -3.34225E-04 -3.79962E-05 3.55545E-06 -2.90101E-04 + 2.28851E-04 -2.90101E-04 2.28851E-04 -2.01518E-04 2.23510E-04 + 1.29310E+00 -3.32447E-04 -3.58993E-05 3.42071E-06 -3.11613E-04 + 2.30233E-04 -3.11613E-04 2.30233E-04 -2.27999E-04 2.25213E-04 + 1.29307E+00 -3.30659E-04 -3.10513E-05 3.11051E-06 -3.30604E-04 + 2.31448E-04 -3.30604E-04 2.31448E-04 -2.51737E-04 2.26731E-04 + 1.29313E+00 -3.34234E-04 -3.16373E-05 3.14785E-06 -3.54454E-04 + 2.32970E-04 -3.54454E-04 2.32970E-04 -2.80167E-04 2.28543E-04 + 1.29310E+00 -3.30659E-04 -3.08715E-05 3.09925E-06 -3.77466E-04 + 2.34429E-04 -3.77466E-04 2.34429E-04 -3.07424E-04 2.30271E-04 + 1.29310E+00 -3.32447E-04 -2.97753E-05 3.03003E-06 -3.99919E-04 + 2.35846E-04 -3.99919E-04 2.35846E-04 -3.33843E-04 2.31940E-04 + 1.29309E+00 -3.32437E-04 -2.85693E-05 2.95416E-06 -4.22305E-04 + 2.37253E-04 -4.22305E-04 2.37253E-04 -3.59917E-04 2.33584E-04 + 1.29315E+00 -3.36022E-04 -2.73714E-05 2.87910E-06 -4.44491E-04 + 2.38642E-04 -4.44491E-04 2.38642E-04 -3.85732E-04 2.35197E-04 + 1.29313E+00 -3.34234E-04 -2.59340E-05 2.78940E-06 -4.66498E-04 + 2.40018E-04 -4.66498E-04 2.40018E-04 -4.11090E-04 2.36782E-04 + 1.29310E+00 -3.32447E-04 -2.46576E-05 2.71012E-06 -4.88952E-04 + 2.41414E-04 -4.88952E-04 2.41414E-04 -4.36727E-04 2.38374E-04 + 1.29313E+00 -3.34234E-04 -2.32914E-05 2.62558E-06 -5.11014E-04 + 2.42776E-04 -5.11014E-04 2.42776E-04 -4.61750E-04 2.39924E-04 + 1.29312E+00 -3.34225E-04 -2.19821E-05 2.54491E-06 -5.33341E-04 + 2.44151E-04 -5.33341E-04 2.44151E-04 -4.86871E-04 2.41470E-04 + 1.29313E+00 -3.34234E-04 -2.06038E-05 2.46033E-06 -5.55586E-04 + 2.45520E-04 -5.55586E-04 2.45520E-04 -5.11852E-04 2.43003E-04 + 1.29315E+00 -3.36022E-04 -1.92572E-05 2.37805E-06 -5.77984E-04 + 2.46884E-04 -5.77984E-04 2.46884E-04 -5.36707E-04 2.44521E-04 + 1.29318E+00 -3.37809E-04 -1.78927E-05 2.29500E-06 -5.99991E-04 + 2.48228E-04 -5.99991E-04 2.48228E-04 -5.61116E-04 2.46008E-04 + 1.29318E+00 -3.37809E-04 -1.65631E-05 2.21439E-06 -6.22556E-04 + 2.49593E-04 -6.22556E-04 2.49593E-04 -5.85915E-04 2.47509E-04 + 1.29315E+00 -3.36022E-04 -1.52409E-05 2.13456E-06 -6.45009E-04 + 2.50948E-04 -6.45009E-04 2.50948E-04 -6.10380E-04 2.48989E-04 + 1.29326E+00 -3.41374E-04 -1.39318E-05 2.05584E-06 -6.67332E-04 + 2.52292E-04 -6.67332E-04 2.52292E-04 -6.34770E-04 2.50456E-04 + 1.29350E+00 -3.57470E-04 -1.26406E-05 1.97850E-06 -6.89358E-04 + 2.53611E-04 -6.89358E-04 2.53611E-04 -6.58638E-04 2.51883E-04 + 1.29295E+00 -3.23510E-04 -1.13813E-05 1.90337E-06 -7.13655E-04 + 2.55060E-04 -7.13655E-04 2.55060E-04 -6.84722E-04 2.53440E-04 + 1.29330E+00 -3.43171E-04 -1.01660E-05 1.83115E-06 -7.35494E-04 + 2.56359E-04 -7.35494E-04 2.56359E-04 -7.08237E-04 2.54837E-04 + 1.29330E+00 -3.44958E-04 -8.88132E-06 1.75511E-06 -7.58283E-04 + 2.57706E-04 -7.58283E-04 2.57706E-04 -7.32589E-04 2.56279E-04 + 1.29332E+00 -3.44948E-04 -7.71907E-06 1.68661E-06 -7.81552E-04 + 2.59078E-04 -7.81552E-04 2.59078E-04 -7.57311E-04 2.57737E-04 + 1.29330E+00 -3.44958E-04 -6.56030E-06 1.61856E-06 -8.04419E-04 + 2.60422E-04 -8.04419E-04 2.60422E-04 -7.81574E-04 2.59162E-04 + 1.29333E+00 -3.46746E-04 -5.40568E-06 1.55103E-06 -8.27877E-04 + 2.61791E-04 -8.27877E-04 2.61791E-04 -8.06206E-04 2.60607E-04 + 1.29335E+00 -3.48533E-04 -4.29993E-06 1.48661E-06 -8.51001E-04 + 2.63145E-04 -8.51001E-04 2.63145E-04 -8.30782E-04 2.62035E-04 + 1.29390E+00 -3.78918E-04 -3.21077E-06 1.42337E-06 -8.73231E-04 + 2.64426E-04 -8.73231E-04 2.64426E-04 -8.54017E-04 2.63383E-04 + 1.29290E+00 -3.21723E-04 -2.17397E-06 1.36342E-06 -8.99707E-04 + 2.65962E-04 -8.99707E-04 2.65962E-04 -8.81721E-04 2.64981E-04 + 1.29340E+00 -3.50310E-04 -1.14717E-06 1.30431E-06 -9.22022E-04 + 2.67246E-04 -9.22022E-04 2.67246E-04 -9.05043E-04 2.66328E-04 + 1.29413E+00 -3.91429E-04 -1.47055E-07 1.24691E-06 -9.43943E-04 + 2.68511E-04 -9.43943E-04 2.68511E-04 -9.28081E-04 2.67648E-04 + 1.29341E+00 -3.52108E-04 8.11638E-07 1.19212E-06 -9.70083E-04 + 2.70001E-04 -9.70083E-04 2.70001E-04 -9.55003E-04 2.69191E-04 + 1.29327E+00 -3.43171E-04 1.73760E-06 1.13940E-06 -9.94659E-04 + 2.71401E-04 -9.94659E-04 2.71401E-04 -9.80472E-04 2.70640E-04 + 1.29318E+00 -3.37809E-04 2.63477E-06 1.08851E-06 -1.01946E-03 + 2.72808E-04 -1.01946E-03 2.72808E-04 -1.00605E-03 2.72092E-04 + 1.29401E+00 -3.84280E-04 3.52626E-06 1.03814E-06 -1.04180E-03 + 2.74068E-04 -1.04180E-03 2.74068E-04 -1.02918E-03 2.73398E-04 + 1.29315E+00 -3.36012E-04 4.35610E-06 9.91392E-07 -1.06903E-03 + 2.75603E-04 -1.06903E-03 2.75603E-04 -1.05719E-03 2.74975E-04 + 1.29355E+00 -3.59257E-04 5.17135E-06 9.45683E-07 -1.09285E-03 + 2.76934E-04 -1.09285E-03 2.76934E-04 -1.08157E-03 2.76341E-04 + 1.29444E+00 -4.09303E-04 5.96248E-06 9.01474E-07 -1.11508E-03 + 2.78181E-04 -1.11508E-03 2.78181E-04 -1.10458E-03 2.77625E-04 + 1.29315E+00 -3.37809E-04 6.72699E-06 8.58929E-07 -1.14424E-03 + 2.79804E-04 -1.14424E-03 2.79804E-04 -1.13430E-03 2.79284E-04 + 1.29373E+00 -3.68194E-04 7.44830E-06 8.18920E-07 -1.16826E-03 + 2.81134E-04 -1.16826E-03 2.81134E-04 -1.15898E-03 2.80649E-04 + 1.29375E+00 -3.69971E-04 8.15367E-06 7.79924E-07 -1.19369E-03 + 2.82540E-04 -1.19369E-03 2.82540E-04 -1.18487E-03 2.82079E-04 + 1.29344E+00 -3.53895E-04 8.82721E-06 7.42856E-07 -1.22054E-03 + 2.84014E-04 -1.22054E-03 2.84014E-04 -1.21205E-03 2.83581E-04 + 1.29373E+00 -3.68194E-04 9.48307E-06 7.06883E-07 -1.24556E-03 + 2.85389E-04 -1.24556E-03 2.85389E-04 -1.23774E-03 2.84984E-04 + 1.29433E+00 -4.02153E-04 1.01202E-05 6.72056E-07 -1.26991E-03 + 2.86723E-04 -1.26991E-03 2.86723E-04 -1.26265E-03 2.86346E-04 + 1.29330E+00 -3.44958E-04 1.07053E-05 6.40201E-07 -1.29963E-03 + 2.88336E-04 -1.29963E-03 2.88336E-04 -1.29259E-03 2.87980E-04 + 1.29401E+00 -3.84280E-04 1.12922E-05 6.08346E-07 -1.32387E-03 + 2.89655E-04 -1.32387E-03 2.89655E-04 -1.31739E-03 2.89320E-04 + 1.29397E+00 -3.82482E-04 1.18500E-05 5.78194E-07 -1.35086E-03 + 2.91113E-04 -1.35086E-03 2.91113E-04 -1.34472E-03 2.90799E-04 + 1.29410E+00 -3.89642E-04 1.23849E-05 5.49383E-07 -1.37771E-03 + 2.92560E-04 -1.37771E-03 2.92560E-04 -1.37190E-03 2.92266E-04 + 1.29390E+00 -3.78918E-04 1.28906E-05 5.22219E-07 -1.40508E-03 + 2.94026E-04 -1.40508E-03 2.94026E-04 -1.39949E-03 2.93747E-04 + 1.29390E+00 -3.78918E-04 1.33811E-05 4.96010E-07 -1.43278E-03 + 2.95513E-04 -1.43278E-03 2.95513E-04 -1.42764E-03 2.95255E-04 + 1.29393E+00 -3.80705E-04 1.38519E-05 4.70919E-07 -1.46015E-03 + 2.96972E-04 -1.46015E-03 2.96972E-04 -1.45535E-03 2.96728E-04 + 1.29397E+00 -3.82482E-04 1.42988E-05 4.47179E-07 -1.48793E-03 + 2.98444E-04 -1.48793E-03 2.98444E-04 -1.48335E-03 2.98213E-04 + 1.29404E+00 -3.86067E-04 1.47343E-05 4.24119E-07 -1.51556E-03 + 2.99911E-04 -1.51556E-03 2.99911E-04 -1.51131E-03 2.99695E-04 + 1.29413E+00 -3.91429E-04 1.51471E-05 4.02382E-07 -1.54371E-03 + 3.01392E-04 -1.54371E-03 3.01392E-04 -1.53958E-03 3.01189E-04 + 1.29415E+00 -3.91429E-04 1.55424E-05 3.81573E-07 -1.57208E-03 + 3.02879E-04 -1.57208E-03 3.02879E-04 -1.56817E-03 3.02690E-04 + 1.29433E+00 -4.00366E-04 1.59199E-05 3.61828E-07 -1.60035E-03 + 3.04366E-04 -1.60035E-03 3.04366E-04 -1.59688E-03 3.04191E-04 + 1.29421E+00 -3.95004E-04 1.62781E-05 3.43119E-07 -1.62917E-03 + 3.05867E-04 -1.62917E-03 3.05867E-04 -1.62582E-03 3.05699E-04 + 1.29423E+00 -3.96780E-04 1.64910E-05 3.32064E-07 -1.65884E-03 + 3.07408E-04 -1.65884E-03 3.07408E-04 -1.65571E-03 3.07255E-04 + 1.29427E+00 -3.98579E-04 1.70902E-05 3.01010E-07 -1.68737E-03 + 3.08890E-04 -1.68737E-03 3.08890E-04 -1.68435E-03 3.08744E-04 + 1.29435E+00 -4.02153E-04 1.72717E-05 2.91628E-07 -1.71720E-03 + 3.10426E-04 -1.71720E-03 3.10426E-04 -1.71429E-03 3.10286E-04 + 1.29438E+00 -4.03941E-04 1.75720E-05 2.76191E-07 -1.74646E-03 + 3.11934E-04 -1.74646E-03 3.11934E-04 -1.74367E-03 3.11802E-04 + 1.29447E+00 -4.07515E-04 1.78582E-05 2.61491E-07 -1.77685E-03 + 3.13491E-04 -1.77685E-03 3.13491E-04 -1.77428E-03 3.13372E-04 + 1.29446E+00 -4.07504E-04 1.81357E-05 2.47330E-07 -1.80640E-03 + 3.15004E-04 -1.80640E-03 3.15004E-04 -1.80405E-03 3.14892E-04 + 1.29450E+00 -4.09303E-04 1.83949E-05 2.34109E-07 -1.83728E-03 + 3.16577E-04 -1.83728E-03 3.16577E-04 -1.83494E-03 3.16465E-04 + 1.29464E+00 -4.16452E-04 1.86467E-05 2.21319E-07 -1.86744E-03 + 3.18106E-04 -1.86744E-03 3.18106E-04 -1.86532E-03 3.18008E-04 + 1.29450E+00 -4.09303E-04 1.88815E-05 2.09455E-07 -1.89883E-03 + 3.19698E-04 -1.89883E-03 3.19698E-04 -1.89694E-03 3.19600E-04 + 1.29464E+00 -4.16452E-04 1.91110E-05 1.97864E-07 -1.92967E-03 + 3.21248E-04 -1.92967E-03 3.21248E-04 -1.92788E-03 3.21164E-04 + 1.29461E+00 -4.16452E-04 1.93279E-05 1.86982E-07 -1.96106E-03 + 3.22826E-04 -1.96106E-03 3.22826E-04 -1.95927E-03 3.22742E-04 + 1.29472E+00 -4.20015E-04 1.94670E-05 1.79995E-07 -1.99250E-03 + 3.24401E-04 -1.99250E-03 3.24401E-04 -1.99083E-03 3.24325E-04 + 1.29481E+00 -4.25389E-04 1.97983E-05 1.63473E-07 -2.02417E-03 + 3.25989E-04 -2.02417E-03 3.25989E-04 -2.02261E-03 3.25912E-04 + 1.29476E+00 -4.21814E-04 1.99174E-05 1.57555E-07 -2.05634E-03 + 3.27587E-04 -2.05634E-03 3.27587E-04 -2.05489E-03 3.27518E-04 + 1.29481E+00 -4.25389E-04 2.00963E-05 1.48664E-07 -2.08863E-03 + 3.29186E-04 -2.08863E-03 3.29186E-04 -2.08729E-03 3.29123E-04 + 1.29487E+00 -4.27176E-04 2.02635E-05 1.40400E-07 -2.12136E-03 + 3.30806E-04 -2.12136E-03 3.30806E-04 -2.12002E-03 3.30743E-04 + 1.29492E+00 -4.30739E-04 2.04313E-05 1.32133E-07 -2.15380E-03 + 3.32402E-04 -2.15380E-03 3.32402E-04 -2.15269E-03 3.32347E-04 + 1.29493E+00 -4.30751E-04 2.05829E-05 1.24691E-07 -2.18704E-03 + 3.34039E-04 -2.18704E-03 3.34039E-04 -2.18604E-03 3.33990E-04 + 1.29498E+00 -4.34326E-04 2.07238E-05 1.17791E-07 -2.22056E-03 + 3.35672E-04 -2.22056E-03 3.35672E-04 -2.21944E-03 3.35624E-04 + 1.29504E+00 -4.36113E-04 2.08717E-05 1.10591E-07 -2.25396E-03 + 3.37306E-04 -2.25396E-03 3.37306E-04 -2.25295E-03 3.37257E-04 + 1.29507E+00 -4.37900E-04 2.10013E-05 1.04291E-07 -2.28758E-03 + 3.38940E-04 -2.28758E-03 3.38940E-04 -2.28669E-03 3.38898E-04 + 1.29516E+00 -4.41475E-04 2.10934E-05 9.98184E-08 -2.32199E-03 + 3.40609E-04 -2.32199E-03 3.40609E-04 -2.32110E-03 3.40567E-04 + 1.29512E+00 -4.41462E-04 2.12848E-05 9.05703E-08 -2.35655E-03 + 3.42274E-04 -2.35655E-03 3.42274E-04 -2.35555E-03 3.42233E-04 + 1.29521E+00 -4.45050E-04 2.13627E-05 8.68092E-08 -2.39058E-03 + 3.43918E-04 -2.39058E-03 3.43918E-04 -2.38980E-03 3.43883E-04 + 1.29527E+00 -4.46837E-04 2.14713E-05 8.16001E-08 -2.42566E-03 + 3.45601E-04 -2.42566E-03 3.45601E-04 -2.42498E-03 3.45566E-04 + 1.29530E+00 -4.48624E-04 2.15734E-05 7.67183E-08 -2.46118E-03 + 3.47297E-04 -2.46118E-03 3.47297E-04 -2.46051E-03 3.47269E-04 + 1.29538E+00 -4.52199E-04 2.16733E-05 7.19456E-08 -2.49637E-03 + 3.48980E-04 -2.49637E-03 3.48980E-04 -2.49570E-03 3.48945E-04 + 1.29536E+00 -4.52199E-04 2.17637E-05 6.76365E-08 -2.53211E-03 + 3.50676E-04 -2.53211E-03 3.50676E-04 -2.53144E-03 3.50648E-04 + 1.29546E+00 -4.57548E-04 2.18525E-05 6.34347E-08 -2.56790E-03 + 3.52377E-04 -2.56790E-03 3.52377E-04 -2.56734E-03 3.52349E-04 + 1.29547E+00 -4.57561E-04 2.19395E-05 5.93183E-08 -2.60417E-03 + 3.54090E-04 -2.60417E-03 3.54090E-04 -2.60372E-03 3.54070E-04 + 1.29544E+00 -4.55774E-04 2.20181E-05 5.56365E-08 -2.64125E-03 + 3.55836E-04 -2.64125E-03 3.55836E-04 -2.64081E-03 3.55815E-04 + 1.29561E+00 -4.64711E-04 2.20957E-05 5.19819E-08 -2.67756E-03 + 3.57540E-04 -2.67756E-03 3.57540E-04 -2.67689E-03 3.57512E-04 + 1.29564E+00 -4.64711E-04 2.21568E-05 4.90910E-08 -2.71487E-03 + 3.59285E-04 -2.71487E-03 3.59285E-04 -2.71442E-03 3.59264E-04 + 1.29566E+00 -4.66485E-04 2.21981E-05 4.72078E-08 -2.75199E-03 + 3.61020E-04 -2.75199E-03 3.61020E-04 -2.75177E-03 3.61006E-04 + 1.29573E+00 -4.68285E-04 2.23113E-05 4.19455E-08 -2.79027E-03 + 3.62797E-04 -2.79027E-03 3.62797E-04 -2.78972E-03 3.62776E-04 + 1.29578E+00 -4.71860E-04 2.23916E-05 3.82364E-08 -2.82781E-03 + 3.64542E-04 -2.82781E-03 3.64542E-04 -2.82747E-03 3.64528E-04 + 1.29584E+00 -4.73647E-04 2.23916E-05 3.81819E-08 -2.86635E-03 + 3.66323E-04 -2.86635E-03 3.66323E-04 -2.86590E-03 3.66302E-04 + 1.29578E+00 -4.71860E-04 2.24745E-05 3.44182E-08 -2.90478E-03 + 3.68096E-04 -2.90478E-03 3.68096E-04 -2.90455E-03 3.68082E-04 + 1.29598E+00 -4.80797E-04 2.25312E-05 3.18001E-08 -2.94332E-03 + 3.69862E-04 -2.94332E-03 3.69862E-04 -2.94298E-03 3.69848E-04 + 1.29595E+00 -4.78996E-04 2.26231E-05 2.75720E-08 -2.98278E-03 + 3.71674E-04 -2.98278E-03 3.71674E-04 -2.98255E-03 3.71660E-04 + 1.29598E+00 -4.80797E-04 2.26281E-05 2.73273E-08 -3.02252E-03 + 3.73486E-04 -3.02252E-03 3.73486E-04 -3.02241E-03 3.73479E-04 + 1.29610E+00 -4.86159E-04 2.26726E-05 2.53091E-08 -3.06184E-03 + 3.75273E-04 -3.06184E-03 3.75273E-04 -3.06139E-03 3.75259E-04 + 1.29613E+00 -4.87946E-04 2.27084E-05 2.36728E-08 -3.10239E-03 + 3.77117E-04 -3.10239E-03 3.77117E-04 -3.10217E-03 3.77103E-04 + 1.29619E+00 -4.89733E-04 2.27547E-05 2.16273E-08 -3.14238E-03 + 3.78925E-04 -3.14238E-03 3.78925E-04 -3.14216E-03 3.78918E-04 + 1.29621E+00 -4.91507E-04 2.27592E-05 2.13812E-08 -3.18362E-03 + 3.80785E-04 -3.18362E-03 3.80785E-04 -3.18351E-03 3.80778E-04 + 1.29630E+00 -4.95096E-04 2.28847E-05 1.57364E-08 -3.22393E-03 + 3.82597E-04 -3.22393E-03 3.82597E-04 -3.22348E-03 3.82583E-04 + 1.29633E+00 -4.96883E-04 2.28271E-05 1.83273E-08 -3.26560E-03 + 3.84468E-04 -3.26560E-03 3.84468E-04 -3.26537E-03 3.84461E-04 + 1.29639E+00 -4.98670E-04 2.29004E-05 1.50546E-08 -3.30749E-03 + 3.86340E-04 -3.30749E-03 3.86340E-04 -3.30726E-03 3.86333E-04 + 1.29641E+00 -5.00458E-04 2.29318E-05 1.36909E-08 -3.34904E-03 + 3.88197E-04 -3.34904E-03 3.88197E-04 -3.34893E-03 3.88190E-04 + 1.29647E+00 -5.04032E-04 2.29728E-05 1.18364E-08 -3.39172E-03 + 3.90089E-04 -3.39172E-03 3.90089E-04 -3.39149E-03 3.90082E-04 + 1.29658E+00 -5.07592E-04 2.30263E-05 9.49065E-09 -3.43396E-03 + 3.91963E-04 -3.43396E-03 3.91963E-04 -3.43373E-03 3.91956E-04 + 1.29661E+00 -5.09394E-04 2.30182E-05 9.81820E-09 -3.47684E-03 + 3.93859E-04 -3.47684E-03 3.93859E-04 -3.47673E-03 3.93852E-04 + 1.29667E+00 -5.11182E-04 2.30400E-05 8.86365E-09 -3.52041E-03 + 3.95779E-04 -3.52041E-03 3.95779E-04 -3.52029E-03 3.95772E-04 + 1.29664E+00 -5.11182E-04 2.30636E-05 7.85456E-09 -3.56397E-03 + 3.97692E-04 -3.56397E-03 3.97692E-04 -3.56397E-03 3.97692E-04 + 1.29684E+00 -5.18331E-04 2.30758E-05 7.30910E-09 -3.60776E-03 + 3.99605E-04 -3.60776E-03 3.99605E-04 -3.60754E-03 3.99598E-04 + 1.29681E+00 -5.18316E-04 2.31284E-05 4.99077E-09 -3.65212E-03 + 4.01541E-04 -3.65212E-03 4.01541E-04 -3.65190E-03 4.01534E-04 + 1.29690E+00 -5.21906E-04 2.31395E-05 4.52728E-09 -3.69691E-03 + 4.03494E-04 -3.69691E-03 4.03494E-04 -3.69691E-03 4.03494E-04 + 1.29690E+00 -5.21906E-04 2.31360E-05 4.63637E-09 -3.74159E-03 + 4.05435E-04 -3.74159E-03 4.05435E-04 -3.74137E-03 4.05428E-04 + 1.29707E+00 -5.29055E-04 2.31727E-05 3.05455E-09 -3.78650E-03 + 4.07383E-04 -3.78650E-03 4.07383E-04 -3.78650E-03 4.07376E-04 + 1.29707E+00 -5.29055E-04 2.32032E-05 1.74546E-09 -3.83252E-03 + 4.09373E-04 -3.83252E-03 4.09373E-04 -3.83275E-03 4.09373E-04 + 1.29710E+00 -5.30842E-04 2.32137E-05 1.28182E-09 -3.87855E-03 + 4.11348E-04 -3.87855E-03 4.11348E-04 -3.87832E-03 4.11341E-04 + 1.29723E+00 -5.36189E-04 2.32244E-05 8.45432E-10 -3.92468E-03 + 4.13326E-04 -3.92468E-03 4.13326E-04 -3.92446E-03 4.13326E-04 + 1.29719E+00 -5.34417E-04 2.32364E-05 3.27273E-10 -3.97149E-03 + 4.15328E-04 -3.97149E-03 4.15328E-04 -3.97149E-03 4.15328E-04 + 1.29730E+00 -5.37992E-04 2.32512E-05 -3.00000E-10 -4.01885E-03 + 4.17353E-04 -4.01885E-03 4.17353E-04 -4.01885E-03 4.17346E-04 + 1.29741E+00 -5.43354E-04 2.32591E-05 -6.00001E-10 -4.06577E-03 + 4.19350E-04 -4.06577E-03 4.19350E-04 -4.06577E-03 4.19350E-04 + 1.29741E+00 -5.43354E-04 2.32765E-05 -1.36364E-09 -4.11336E-03 + 4.21374E-04 -4.11336E-03 4.21374E-04 -4.11336E-03 4.21367E-04 + 1.29747E+00 -5.46929E-04 2.33001E-05 -2.37273E-09 -4.16184E-03 + 4.23420E-04 -4.16184E-03 4.23420E-04 -4.16184E-03 4.23420E-04 + 1.29755E+00 -5.50488E-04 2.33003E-05 -2.37266E-09 -4.21043E-03 + 4.25468E-04 -4.21043E-03 4.25468E-04 -4.21043E-03 4.25468E-04 + 1.29761E+00 -5.52291E-04 2.33158E-05 -3.02728E-09 -4.25925E-03 + 4.27525E-04 -4.25925E-03 4.27525E-04 -4.25903E-03 4.27518E-04 + 1.29764E+00 -5.54078E-04 2.33254E-05 -3.46364E-09 -4.30796E-03 + 4.29571E-04 -4.30796E-03 4.29571E-04 -4.30796E-03 4.29571E-04 + 1.29779E+00 -5.59440E-04 2.33472E-05 -4.36364E-09 -4.35800E-03 + 4.31659E-04 -4.35800E-03 4.31659E-04 -4.35800E-03 4.31659E-04 + 1.29779E+00 -5.59440E-04 2.33464E-05 -4.33637E-09 -4.40760E-03 + 4.33725E-04 -4.40760E-03 4.33725E-04 -4.40760E-03 4.33725E-04 + 1.29786E+00 -5.62999E-04 2.33553E-05 -4.66351E-09 -4.45841E-03 + 4.35849E-04 -4.45841E-03 4.35849E-04 -4.45841E-03 4.35842E-04 + 1.29804E+00 -5.70164E-04 2.33656E-05 -5.12728E-09 -4.50836E-03 + 4.37921E-04 -4.50836E-03 4.37921E-04 -4.50859E-03 4.37921E-04 + 1.29790E+00 -5.64802E-04 2.33708E-05 -5.31819E-09 -4.56020E-03 + 4.40072E-04 -4.56020E-03 4.40072E-04 -4.56042E-03 4.40072E-04 + 1.29807E+00 -5.71952E-04 2.33743E-05 -5.48183E-09 -4.61091E-03 + 4.42159E-04 -4.61091E-03 4.42159E-04 -4.61091E-03 4.42159E-04 + 1.29813E+00 -5.73739E-04 2.33935E-05 -6.24547E-09 -4.66297E-03 + 4.44303E-04 -4.66297E-03 4.44303E-04 -4.66319E-03 4.44303E-04 + 1.29822E+00 -5.77314E-04 2.33944E-05 -6.30001E-09 -4.71570E-03 + 4.46467E-04 -4.71570E-03 4.46467E-04 -4.71570E-03 4.46460E-04 + 1.29826E+00 -5.79084E-04 2.34024E-05 -6.62709E-09 -4.76762E-03 + 4.48591E-04 -4.76762E-03 4.48591E-04 -4.76784E-03 4.48591E-04 + 1.29833E+00 -5.82676E-04 2.34101E-05 -6.95456E-09 -4.82093E-03 + 4.50768E-04 -4.82093E-03 4.50768E-04 -4.82115E-03 4.50768E-04 + 1.29839E+00 -5.84463E-04 2.34153E-05 -7.17274E-09 -4.87477E-03 + 4.52953E-04 -4.87477E-03 4.52953E-04 -4.87477E-03 4.52953E-04 + 1.29847E+00 -5.88038E-04 2.34284E-05 -7.66365E-09 -4.92861E-03 + 4.55139E-04 -4.92861E-03 4.55139E-04 -4.92839E-03 4.55139E-04 + 1.29859E+00 -5.91612E-04 2.34293E-05 -7.69092E-09 -4.98223E-03 + 4.57317E-04 -4.98223E-03 4.57317E-04 -4.98246E-03 4.57317E-04 + 1.29861E+00 -5.93383E-04 2.34330E-05 -7.85433E-09 -5.03705E-03 + 4.59524E-04 -5.03705E-03 4.59524E-04 -5.03683E-03 4.59524E-04 + 1.29870E+00 -5.96974E-04 2.34397E-05 -8.12729E-09 -5.09238E-03 + 4.61750E-04 -5.09238E-03 4.61750E-04 -5.09216E-03 4.61750E-04 + 1.29873E+00 -5.98762E-04 2.34415E-05 -8.20910E-09 -5.14779E-03 + 4.63978E-04 -5.14779E-03 4.63978E-04 -5.14779E-03 4.63971E-04 + 1.29890E+00 -6.04124E-04 2.34485E-05 -8.50911E-09 -5.20275E-03 + 4.66184E-04 -5.20275E-03 4.66184E-04 -5.20275E-03 4.66184E-04 + 1.29884E+00 -6.04124E-04 2.34563E-05 -8.78183E-09 -5.25972E-03 + 4.68460E-04 -5.25972E-03 4.68460E-04 -5.25972E-03 4.68460E-04 + 1.29896E+00 -6.07698E-04 2.34598E-05 -8.91820E-09 -5.31647E-03 + 4.70715E-04 -5.31647E-03 4.70715E-04 -5.31647E-03 4.70715E-04 + 1.29909E+00 -6.11256E-04 2.34635E-05 -9.10885E-09 -5.37373E-03 + 4.72991E-04 -5.37373E-03 4.72991E-04 -5.37373E-03 4.72991E-04 + 1.29913E+00 -6.14848E-04 2.34668E-05 -9.21820E-09 -5.43063E-03 + 4.75246E-04 -5.43063E-03 4.75246E-04 -5.43063E-03 4.75246E-04 + 1.29924E+00 -6.16635E-04 2.34747E-05 -9.51820E-09 -5.48872E-03 + 4.77543E-04 -5.48872E-03 4.77543E-04 -5.48872E-03 4.77543E-04 + 1.29930E+00 -6.20210E-04 2.34773E-05 -9.65456E-09 -5.54748E-03 + 4.79861E-04 -5.54748E-03 4.79861E-04 -5.54748E-03 4.79861E-04 + 1.29936E+00 -6.23785E-04 2.34773E-05 -9.65456E-09 -5.60602E-03 + 4.82158E-04 -5.60602E-03 4.82158E-04 -5.60602E-03 4.82158E-04 + 1.29938E+00 -6.23767E-04 2.34827E-05 -9.87246E-09 -5.66529E-03 + 4.84490E-04 -5.66529E-03 4.84490E-04 -5.66551E-03 4.84490E-04 + 1.29953E+00 -6.30934E-04 2.34860E-05 -9.98183E-09 -5.72488E-03 + 4.86815E-04 -5.72488E-03 4.86815E-04 -5.72488E-03 4.86815E-04 + 1.29953E+00 -6.30934E-04 2.34895E-05 -1.00909E-08 -5.78498E-03 + 4.89168E-04 -5.78498E-03 4.89168E-04 -5.78520E-03 4.89168E-04 + 1.29970E+00 -6.36296E-04 2.34947E-05 -1.03091E-08 -5.84552E-03 + 4.91514E-04 -5.84552E-03 4.91514E-04 -5.84552E-03 4.91514E-04 + 1.29970E+00 -6.36296E-04 2.34956E-05 -1.03364E-08 -5.90674E-03 + 4.93888E-04 -5.90674E-03 4.93888E-04 -5.90652E-03 4.93888E-04 + 1.29987E+00 -6.43445E-04 2.35017E-05 -1.05818E-08 -5.96796E-03 + 4.96268E-04 -5.96796E-03 4.96268E-04 -5.96796E-03 4.96268E-04 + 1.29984E+00 -6.43427E-04 2.35037E-05 -1.06633E-08 -6.03012E-03 + 4.98663E-04 -6.03012E-03 4.98663E-04 -6.03012E-03 4.98663E-04 + 1.29999E+00 -6.47020E-04 2.35069E-05 -1.07727E-08 -6.09195E-03 + 5.01044E-04 -6.09195E-03 5.01044E-04 -6.09195E-03 5.01044E-04 + 1.30005E+00 -6.50595E-04 2.35104E-05 -1.09091E-08 -6.15518E-03 + 5.03474E-04 -6.15518E-03 5.03474E-04 -6.15496E-03 5.03467E-04 + 1.30027E+00 -6.57744E-04 2.35139E-05 -1.10455E-08 -6.21819E-03 + 5.05882E-04 -6.21819E-03 5.05882E-04 -6.21819E-03 5.05882E-04 + 1.30010E+00 -6.52382E-04 2.35131E-05 -1.10182E-08 -6.28208E-03 + 5.08333E-04 -6.28208E-03 5.08333E-04 -6.28208E-03 5.08333E-04 + 1.30033E+00 -6.61319E-04 2.35192E-05 -1.12364E-08 -6.34620E-03 + 5.10777E-04 -6.34620E-03 5.10777E-04 -6.34620E-03 5.10777E-04 + 1.30035E+00 -6.61300E-04 2.35194E-05 -1.12633E-08 -6.41104E-03 + 5.13241E-04 -6.41104E-03 5.13241E-04 -6.41104E-03 5.13241E-04 + 1.30050E+00 -6.68468E-04 2.35253E-05 -1.14818E-08 -6.47556E-03 + 5.15685E-04 -6.47556E-03 5.15685E-04 -6.47556E-03 5.15685E-04 + 1.30056E+00 -6.68468E-04 2.35244E-05 -1.14546E-08 -6.54147E-03 + 5.18184E-04 -6.54147E-03 5.18184E-04 -6.54147E-03 5.18184E-04 + 1.30067E+00 -6.73830E-04 2.35279E-05 -1.15909E-08 -6.60805E-03 + 5.20684E-04 -6.60805E-03 5.20684E-04 -6.60805E-03 5.20684E-04 + 1.30073E+00 -6.75618E-04 2.35305E-05 -1.16727E-08 -6.67441E-03 + 5.23190E-04 -6.67441E-03 5.23190E-04 -6.67441E-03 5.23190E-04 + 1.30087E+00 -6.79173E-04 2.34993E-05 -1.04997E-08 -6.74124E-03 + 5.25696E-04 -6.74124E-03 5.25696E-04 -6.74124E-03 5.25696E-04 + 1.30085E+00 -6.80980E-04 2.35672E-05 -1.30637E-08 -6.80913E-03 + 5.28238E-04 -6.80913E-03 5.28238E-04 -6.80913E-03 5.28238E-04 + 1.30102E+00 -6.86342E-04 2.35392E-05 -1.20273E-08 -6.87660E-03 + 5.30766E-04 -6.87660E-03 5.30766E-04 -6.87660E-03 5.30766E-04 + 1.30113E+00 -6.89916E-04 2.35410E-05 -1.20818E-08 -6.94519E-03 + 5.33321E-04 -6.94519E-03 5.33321E-04 -6.94519E-03 5.33321E-04 + 1.30113E+00 -6.91704E-04 2.35419E-05 -1.21364E-08 -7.01378E-03 + 5.35869E-04 -7.01378E-03 5.35869E-04 -7.01378E-03 5.35869E-04 + 1.30130E+00 -6.97066E-04 2.35305E-05 -1.17000E-08 -7.08438E-03 + 5.38481E-04 -7.08438E-03 5.38481E-04 -7.08438E-03 5.38481E-04 + 1.30127E+00 -6.97046E-04 2.35578E-05 -1.26815E-08 -7.15410E-03 + 5.41062E-04 -7.15410E-03 5.41062E-04 -7.15410E-03 5.41062E-04 + 1.30153E+00 -7.04215E-04 2.35515E-05 -1.24637E-08 -7.22402E-03 + 5.43640E-04 -7.22402E-03 5.43640E-04 -7.22402E-03 5.43640E-04 + 1.30153E+00 -7.06003E-04 2.35314E-05 -1.17273E-08 -7.29529E-03 + 5.46265E-04 -7.29529E-03 5.46265E-04 -7.29529E-03 5.46265E-04 + 1.30159E+00 -7.07790E-04 2.35532E-05 -1.25182E-08 -7.36700E-03 + 5.48904E-04 -7.36700E-03 5.48904E-04 -7.36700E-03 5.48904E-04 + 1.30170E+00 -7.11365E-04 2.35296E-05 -1.16455E-08 -7.43894E-03 + 5.51530E-04 -7.43894E-03 5.51530E-04 -7.43894E-03 5.51530E-04 + 1.30190E+00 -7.18494E-04 2.36066E-05 -1.44542E-08 -7.51112E-03 + 5.54174E-04 -7.51112E-03 5.54174E-04 -7.51112E-03 5.54174E-04 + 1.30193E+00 -7.20301E-04 2.35593E-05 -1.27637E-08 -7.58484E-03 + 5.56864E-04 -7.58484E-03 5.56864E-04 -7.58484E-03 5.56864E-04 + 1.30199E+00 -7.22089E-04 2.35392E-05 -1.20273E-08 -7.65789E-03 + 5.59517E-04 -7.65789E-03 5.59517E-04 -7.65789E-03 5.59517E-04 + 1.30210E+00 -7.25663E-04 2.35872E-05 -1.37455E-08 -7.73185E-03 + 5.62205E-04 -7.73185E-03 5.62205E-04 -7.73185E-03 5.62205E-04 + 1.30222E+00 -7.31026E-04 2.35541E-05 -1.25455E-08 -7.80691E-03 + 5.64921E-04 -7.80691E-03 5.64921E-04 -7.80691E-03 5.64921E-04 + 1.30228E+00 -7.32813E-04 2.35820E-05 -1.35546E-08 -7.88176E-03 + 5.67623E-04 -7.88176E-03 5.67623E-04 -7.88176E-03 5.67623E-04 + 1.30235E+00 -7.36366E-04 2.35709E-05 -1.31724E-08 -7.95772E-03 + 5.70357E-04 -7.95772E-03 5.70357E-04 -7.95772E-03 5.70357E-04 + 1.30251E+00 -7.39962E-04 2.35480E-05 -1.23546E-08 -8.03480E-03 + 5.73124E-04 -8.03480E-03 5.73124E-04 -8.03480E-03 5.73124E-04 + 1.30262E+00 -7.45324E-04 2.35916E-05 -1.39091E-08 -8.11009E-03 + 5.75819E-04 -8.11009E-03 5.75819E-04 -8.11009E-03 5.75819E-04 + 1.30268E+00 -7.47112E-04 2.35689E-05 -1.30909E-08 -8.18807E-03 + 5.78612E-04 -8.18807E-03 5.78612E-04 -8.18807E-03 5.78612E-04 + 1.30285E+00 -7.52474E-04 2.35855E-05 -1.36909E-08 -8.26604E-03 + 5.81391E-04 -8.26604E-03 5.81391E-04 -8.26604E-03 5.81391E-04 + 1.30293E+00 -7.56027E-04 2.35735E-05 -1.32542E-08 -8.34444E-03 + 5.84181E-04 -8.34444E-03 5.84181E-04 -8.34444E-03 5.84181E-04 + 1.30296E+00 -7.56048E-04 2.35776E-05 -1.34182E-08 -8.42400E-03 + 5.87004E-04 -8.42400E-03 5.87004E-04 -8.42400E-03 5.87004E-04 + 1.30313E+00 -7.63198E-04 2.35960E-05 -1.40455E-08 -8.50331E-03 + 5.89811E-04 -8.50331E-03 5.89811E-04 -8.50331E-03 5.89811E-04 + 1.30319E+00 -7.64985E-04 2.35872E-05 -1.37455E-08 -8.58352E-03 + 5.92646E-04 -8.58352E-03 5.92646E-04 -8.58352E-03 5.92646E-04 + 1.30331E+00 -7.70347E-04 2.35977E-05 -1.41273E-08 -8.66328E-03 + 5.95466E-04 -8.66328E-03 5.95466E-04 -8.66328E-03 5.95466E-04 + 1.30342E+00 -7.72135E-04 2.35951E-05 -1.40182E-08 -8.74572E-03 + 5.98357E-04 -8.74572E-03 5.98357E-04 -8.74572E-03 5.98357E-04 + 1.30350E+00 -7.77474E-04 2.35935E-05 -1.39905E-08 -8.82679E-03 + 6.01202E-04 -8.82679E-03 6.01202E-04 -8.82679E-03 6.01202E-04 + 1.30365E+00 -7.81071E-04 2.35942E-05 -1.40182E-08 -8.90971E-03 + 6.04110E-04 -8.90971E-03 6.04110E-04 -8.90971E-03 6.04110E-04 + 1.30365E+00 -7.82859E-04 2.35968E-05 -1.41000E-08 -8.99260E-03 + 6.07000E-04 -8.99260E-03 6.07000E-04 -8.99260E-03 6.07000E-04 + 1.30382E+00 -7.88221E-04 2.35881E-05 -1.38000E-08 -9.07638E-03 + 6.09919E-04 -9.07638E-03 6.09919E-04 -9.07638E-03 6.09919E-04 + 1.30394E+00 -7.91795E-04 2.36134E-05 -1.46455E-08 -9.16016E-03 + 6.12837E-04 -9.16016E-03 6.12837E-04 -9.16016E-03 6.12837E-04 + 1.30411E+00 -7.97157E-04 2.36047E-05 -1.43728E-08 -9.24528E-03 + 6.15783E-04 -9.24528E-03 6.15783E-04 -9.24528E-03 6.15783E-04 + 1.30418E+00 -7.98922E-04 2.36031E-05 -1.42905E-08 -9.33036E-03 + 6.18726E-04 -9.33036E-03 6.18726E-04 -9.33036E-03 6.18726E-04 + 1.30422E+00 -8.00732E-04 2.35986E-05 -1.41273E-08 -9.41709E-03 + 6.21718E-04 -9.41709E-03 6.21718E-04 -9.41709E-03 6.21718E-04 + 1.30445E+00 -8.09669E-04 2.36230E-05 -1.50000E-08 -9.50288E-03 + 6.24678E-04 -9.50288E-03 6.24678E-04 -9.50288E-03 6.24678E-04 + 1.30451E+00 -8.11456E-04 2.35995E-05 -1.41818E-08 -9.59046E-03 + 6.27680E-04 -9.59046E-03 6.27680E-04 -9.59046E-03 6.27680E-04 + 1.30462E+00 -8.15031E-04 2.36265E-05 -1.51091E-08 -9.67805E-03 + 6.30697E-04 -9.67805E-03 6.30697E-04 -9.67805E-03 6.30697E-04 + 1.30470E+00 -8.18582E-04 2.36171E-05 -1.47814E-08 -9.76624E-03 + 6.33709E-04 -9.76624E-03 6.33709E-04 -9.76624E-03 6.33709E-04 + 1.30479E+00 -8.20393E-04 2.36091E-05 -1.45091E-08 -9.85589E-03 + 6.36771E-04 -9.85589E-03 6.36771E-04 -9.85589E-03 6.36771E-04 + 1.30496E+00 -8.27542E-04 2.36291E-05 -1.51909E-08 -9.94436E-03 + 6.39787E-04 -9.94436E-03 6.39787E-04 -9.94436E-03 6.39787E-04 + 1.30508E+00 -8.31117E-04 2.36256E-05 -1.50818E-08 -1.00355E-02 + 6.42873E-04 -1.00355E-02 6.42873E-04 -1.00355E-02 6.42873E-04 + 1.30519E+00 -8.34692E-04 2.36274E-05 -1.51091E-08 -1.01267E-02 + 6.45959E-04 -1.01267E-02 6.45959E-04 -1.01267E-02 6.45959E-04 + 1.30531E+00 -8.38266E-04 2.36265E-05 -1.51091E-08 -1.02183E-02 + 6.49059E-04 -1.02183E-02 6.49059E-04 -1.02183E-02 6.49059E-04 + 1.30544E+00 -8.43604E-04 2.36302E-05 -1.52450E-08 -1.03105E-02 + 6.52168E-04 -1.03105E-02 6.52168E-04 -1.03105E-02 6.52168E-04 + 1.30554E+00 -8.47203E-04 2.36291E-05 -1.52182E-08 -1.04028E-02 + 6.55287E-04 -1.04028E-02 6.55287E-04 -1.04028E-02 6.55287E-04 + 1.30565E+00 -8.50778E-04 2.36309E-05 -1.52455E-08 -1.04962E-02 + 6.58428E-04 -1.04962E-02 6.58428E-04 -1.04962E-02 6.58428E-04 + 1.30577E+00 -8.54353E-04 2.36422E-05 -1.56546E-08 -1.05905E-02 + 6.61584E-04 -1.05905E-02 6.61584E-04 -1.05905E-02 6.61584E-04 + 1.30594E+00 -8.59715E-04 2.36379E-05 -1.54909E-08 -1.06857E-02 + 6.64754E-04 -1.06857E-02 6.64754E-04 -1.06857E-02 6.64754E-04 + 1.30601E+00 -8.61477E-04 2.36424E-05 -1.56541E-08 -1.07805E-02 + 6.67933E-04 -1.07805E-02 6.67933E-04 -1.07805E-02 6.67933E-04 + 1.30622E+00 -8.68651E-04 2.36431E-05 -1.56818E-08 -1.08769E-02 + 6.71135E-04 -1.08769E-02 6.71135E-04 -1.08769E-02 6.71135E-04 + 1.30617E+00 -8.68651E-04 2.36431E-05 -1.56818E-08 -1.09743E-02 + 6.74375E-04 -1.09743E-02 6.74375E-04 -1.09743E-02 6.74375E-04 + 1.30651E+00 -8.77588E-04 2.36483E-05 -1.58182E-08 -1.10708E-02 + 6.77559E-04 -1.10708E-02 6.77559E-04 -1.10708E-02 6.77559E-04 + 1.30651E+00 -8.79375E-04 2.36483E-05 -1.58455E-08 -1.11696E-02 + 6.80840E-04 -1.11696E-02 6.80840E-04 -1.11696E-02 6.80840E-04 + 1.30668E+00 -8.84737E-04 2.36518E-05 -1.59546E-08 -1.12674E-02 + 6.84066E-04 -1.12674E-02 6.84066E-04 -1.12674E-02 6.84066E-04 + 1.30681E+00 -8.88287E-04 2.36590E-05 -1.61996E-08 -1.13677E-02 + 6.87369E-04 -1.13677E-02 6.87369E-04 -1.13677E-02 6.87369E-04 + 1.30691E+00 -8.91887E-04 2.36579E-05 -1.61455E-08 -1.14685E-02 + 6.90671E-04 -1.14685E-02 6.90671E-04 -1.14685E-02 6.90671E-04 + 1.30708E+00 -8.97249E-04 2.36588E-05 -1.61728E-08 -1.15682E-02 + 6.93952E-04 -1.15682E-02 6.93952E-04 -1.15682E-02 6.93952E-04 + 1.30720E+00 -9.00824E-04 2.36649E-05 -1.63637E-08 -1.16700E-02 + 6.97275E-04 -1.16700E-02 6.97275E-04 -1.16700E-02 6.97275E-04 + 1.30731E+00 -9.04398E-04 2.36632E-05 -1.63364E-08 -1.17719E-02 + 7.00613E-04 -1.17719E-02 7.00613E-04 -1.17719E-02 7.00613E-04 + 1.30744E+00 -9.09734E-04 2.36669E-05 -1.64450E-08 -1.18757E-02 + 7.03986E-04 -1.18757E-02 7.03986E-04 -1.18757E-02 7.03986E-04 + 1.30765E+00 -9.16910E-04 2.36710E-05 -1.65818E-08 -1.19784E-02 + 7.07315E-04 -1.19784E-02 7.07315E-04 -1.19784E-02 7.07315E-04 + 1.30760E+00 -9.13335E-04 2.36701E-05 -1.65546E-08 -1.20843E-02 + 7.10750E-04 -1.20843E-02 7.10750E-04 -1.20843E-02 7.10750E-04 + 1.30794E+00 -9.24059E-04 2.36763E-05 -1.67455E-08 -1.21879E-02 + 7.14116E-04 -1.21879E-02 7.14116E-04 -1.21879E-02 7.14116E-04 + 1.30800E+00 -9.27634E-04 2.36763E-05 -1.67455E-08 -1.22943E-02 + 7.17551E-04 -1.22943E-02 7.17551E-04 -1.22943E-02 7.17551E-04 + 1.30811E+00 -9.31209E-04 2.36797E-05 -1.68546E-08 -1.24002E-02 + 7.20972E-04 -1.24002E-02 7.20972E-04 -1.24002E-02 7.20972E-04 + 1.30822E+00 -9.34783E-04 2.36815E-05 -1.69364E-08 -1.25083E-02 + 7.24435E-04 -1.25083E-02 7.24435E-04 -1.25083E-02 7.24435E-04 + 1.30857E+00 -9.45507E-04 2.36867E-05 -1.71000E-08 -1.26142E-02 + 7.27842E-04 -1.26142E-02 7.27842E-04 -1.26142E-02 7.27842E-04 + 1.30845E+00 -9.41933E-04 2.36841E-05 -1.70182E-08 -1.27259E-02 + 7.31403E-04 -1.27259E-02 7.31403E-04 -1.27259E-02 7.31403E-04 + 1.30866E+00 -9.49028E-04 2.36906E-05 -1.72081E-08 -1.28338E-02 + 7.34851E-04 -1.28338E-02 7.34851E-04 -1.28338E-02 7.34851E-04 + 1.30880E+00 -9.52657E-04 2.36902E-05 -1.72091E-08 -1.29449E-02 + 7.38398E-04 -1.29449E-02 7.38398E-04 -1.29449E-02 7.38398E-04 + 1.30903E+00 -9.59806E-04 2.36955E-05 -1.73455E-08 -1.30543E-02 + 7.41889E-04 -1.30543E-02 7.41889E-04 -1.30543E-02 7.41889E-04 + 1.30914E+00 -9.63381E-04 2.36998E-05 -1.74818E-08 -1.31669E-02 + 7.45450E-04 -1.31669E-02 7.45450E-04 -1.31669E-02 7.45450E-04 + 1.30925E+00 -9.66956E-04 2.36989E-05 -1.74818E-08 -1.32800E-02 + 7.49039E-04 -1.32800E-02 7.49039E-04 -1.32800E-02 7.49039E-04 + 1.30948E+00 -9.74105E-04 2.37042E-05 -1.76455E-08 -1.33922E-02 + 7.52585E-04 -1.33922E-02 7.52585E-04 -1.33922E-02 7.52585E-04 + 1.30960E+00 -9.77680E-04 2.37051E-05 -1.76728E-08 -1.35061E-02 + 7.56174E-04 -1.35061E-02 7.56174E-04 -1.35061E-02 7.56174E-04 + 1.30971E+00 -9.81254E-04 2.37094E-05 -1.77818E-08 -1.36218E-02 + 7.59819E-04 -1.36218E-02 7.59819E-04 -1.36218E-02 7.59819E-04 + 1.30988E+00 -9.86616E-04 2.37094E-05 -1.78091E-08 -1.37371E-02 + 7.63435E-04 -1.37371E-02 7.63435E-04 -1.37371E-02 7.63435E-04 + 1.31011E+00 -9.93766E-04 2.37155E-05 -1.80000E-08 -1.38528E-02 + 7.67066E-04 -1.38528E-02 7.67066E-04 -1.38528E-02 7.67066E-04 + 1.31005E+00 -9.91978E-04 2.37155E-05 -1.80000E-08 -1.39713E-02 + 7.70766E-04 -1.39713E-02 7.70766E-04 -1.39713E-02 7.70766E-04 + 1.31032E+00 -1.00086E-03 2.37203E-05 -1.81354E-08 -1.40884E-02 + 7.74422E-04 -1.40884E-02 7.74422E-04 -1.40884E-02 7.74422E-04 + 1.31051E+00 -1.00628E-03 2.37216E-05 -1.81909E-08 -1.42067E-02 + 7.78111E-04 -1.42067E-02 7.78111E-04 -1.42067E-02 7.78111E-04 + 1.31057E+00 -1.00985E-03 2.37225E-05 -1.82182E-08 -1.43274E-02 + 7.81867E-04 -1.43274E-02 7.81867E-04 -1.43274E-02 7.81867E-04 + 1.31057E+00 -1.00985E-03 2.37225E-05 -1.82182E-08 -1.43274E-02 + 7.81867E-04 -1.43274E-02 7.81867E-04 -1.43274E-02 7.81867E-04 Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/EGSDAT3_1. =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/EGSDAT3_1. (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/EGSDAT3_1. (revision 1444) @@ -0,0 +1,2621 @@ + MEDIUM=AIR-NTP ,STERNCID=AIR-NTP + MIXT,RHO= 1.2250E-09,NE= 4,GASP= 1.0000E-06 + ASYM=N ,Z= 7.,A= 14.007,PZ= 5.39228E-02,RHOZ= 7.55280E-01 + ASYM=O ,Z= 8.,A= 15.999,PZ= 1.44793E-02,RHOZ= 2.31660E-01 + ASYM=AR,Z=18.,A= 39.948,PZ= 3.20917E-04,RHOZ= 1.28200E-02 + ASYM=C ,Z= 6.,A= 12.011,PZ= 3.33024E-06,RHOZ= 4.00000E-05 + 2.98933E+10 1.51200E+00 1.00000E+00 1.00000E+14 1.00000E+14 + 0 500 0 500 0 0 0 0 0 + 9.99982E-01 -2.10419E-01 4.82862E-02 9.95879E-01 -2.25858E-01 + 9.52000E-01 1.00022E+00 -1.78214E-01 3.43565E-02 1.01413E+00 + -2.29996E-01 9.52000E-01 1.00034E+00 -1.61665E-01 2.48128E-02 + 1.02350E+00 -2.32123E-01 9.52000E-01 9.99982E-01 -2.10592E-01 + 4.83260E-02 9.95876E-01 -2.26044E-01 9.52000E-01 1.00022E+00 + -1.78364E-01 3.43853E-02 1.01414E+00 -2.30189E-01 9.52000E-01 + 1.00034E+00 -1.61802E-01 2.48338E-02 1.02352E+00 -2.32319E-01 + 9.52000E-01 + 3.56389E+01 9.41131E-01 8.53760E-01 2.28015E+00 9.41145E-01 + 8.53757E-01 2.27175E+00 + 9.00118E-02 7.50905E-05 2.66396E+05 4.89667E+00 + 2.28271E+00 1.54397E+01 + -1.25823E-05 1.57087E-01 1.89130E+00 4.67687E-01 6.14248E+01 + -1.48508E+00 6.01466E+01 -3.34998E+00 1.00000E+00 0.00000E+00 + -5.71731E-06 8.20959E-02 -6.64533E-04 7.46354E-01 7.51129E-03 + 9.29942E-03 -1.25823E-05 1.57087E-01 1.89130E+00 4.67687E-01 + 6.14248E+01 -1.48508E+00 6.01466E+01 -3.34998E+00 1.00000E+00 + 0.00000E+00 -5.71731E-06 8.20959E-02 -6.64533E-04 7.46354E-01 + 7.51129E-03 9.29942E-03 -1.39676E-03 1.86882E-01 1.89253E+00 + 4.41259E-01 6.13957E+01 -8.58730E-01 6.01160E+01 -2.69051E+00 + 1.00000E+00 0.00000E+00 -6.23121E-04 9.53855E-02 1.10856E-03 + 7.08188E-01 7.47250E-03 1.01344E-02 -5.26917E-03 2.21697E-01 + 1.89497E+00 4.19299E-01 6.13173E+01 -1.53900E-01 6.00343E+01 + -1.95629E+00 1.00000E+00 0.00000E+00 -2.30208E-03 1.10481E-01 + 5.27000E-03 6.70774E-01 7.35207E-03 1.12171E-02 -1.13474E-02 + 2.56234E-01 1.89722E+00 4.06524E-01 6.12011E+01 5.06285E-01 + 5.99146E+01 -1.27584E+00 1.00000E+00 0.00000E+00 -4.84670E-03 + 1.24939E-01 1.07182E-02 6.39817E-01 7.13941E-03 1.24255E-02 + -1.95616E-02 2.90351E-01 1.89832E+00 4.01952E-01 6.10525E+01 + 1.12348E+00 5.97631E+01 -6.46639E-01 1.00000E+00 0.00000E+00 + -8.14527E-03 1.38640E-01 1.70026E-02 6.13715E-01 6.81454E-03 + 1.37748E-02 -2.97944E-02 3.23844E-01 1.89753E+00 4.04532E-01 + 6.08766E+01 1.69908E+00 5.95858E+01 -6.63189E-02 1.00000E+00 + 0.00000E+00 -1.20495E-02 1.51418E-01 2.38933E-02 5.91162E-01 + 6.35399E-03 1.52822E-02 -4.22254E-02 3.57414E-01 1.89393E+00 + 4.14247E-01 6.06758E+01 2.24153E+00 5.93856E+01 4.74186E-01 + 1.00000E+00 0.00000E+00 -1.65329E-02 1.63526E-01 3.12034E-02 + 5.71420E-01 5.73001E-03 1.69673E-02 -6.00616E-02 3.98410E-01 + 1.88376E+00 4.37644E-01 6.04357E+01 2.79340E+00 5.91488E+01 + 1.01858E+00 1.00000E+00 0.00000E+00 -2.28848E-02 1.78126E-01 + 3.78945E-02 5.56041E-01 4.91014E-03 1.88518E-02 -7.75562E-02 + 4.33411E-01 1.87226E+00 4.60640E-01 6.02017E+01 3.26158E+00 + 5.89210E+01 1.47439E+00 1.00000E+00 0.00000E+00 -2.83034E-02 + 1.88966E-01 4.60905E-02 5.39643E-01 3.85612E-03 2.09605E-02 + -9.68011E-02 4.67497E-01 1.85701E+00 4.87659E-01 5.99576E+01 + 3.69401E+00 5.86861E+01 1.89027E+00 1.00000E+00 0.00000E+00 + -3.36161E-02 1.98376E-01 5.51244E-02 5.23643E-01 2.52337E-03 + 2.33210E-02 -1.17436E-01 5.00284E-01 1.83813E+00 5.17645E-01 + 5.97067E+01 4.09263E+00 5.84479E+01 2.26874E+00 1.00000E+00 + 0.00000E+00 -3.85235E-02 2.06173E-01 6.52118E-02 5.07615E-01 + 8.59540E-04 2.59647E-02 -3.48615E+00 5.35337E+00 1.81044E+00 + 5.57534E-01 6.28901E+01 -4.93564E-01 5.81908E+01 2.63921E+00 + 6.79589E+00 -8.34977E+00 -4.48743E-02 2.15323E-01 7.52286E-02 + 4.93185E-01 -1.19669E-03 2.89269E-02 -2.96374E+00 4.66500E+00 + 1.77982E+00 5.97890E-01 6.22921E+01 2.94430E-01 5.79427E+01 + 2.96615E+00 1.81226E+00 -1.78290E+00 -5.00147E-02 2.22096E-01 + 8.70036E-02 4.77669E-01 -3.71640E-03 3.22471E-02 -2.52238E+00 + 4.12915E+00 1.74856E+00 6.35835E-01 6.17744E+01 9.22987E-01 + 5.77091E+01 3.24975E+00 9.27638E-01 -7.08911E-01 -5.30276E-02 + 2.25754E-01 1.01024E-01 4.60648E-01 -6.78323E-03 3.59705E-02 + -2.15140E+00 3.71159E+00 1.70773E+00 6.81794E-01 6.12939E+01 + 1.46373E+00 5.74647E+01 3.52486E+00 5.93515E-01 -3.32833E-01 + -5.71859E-02 2.30434E-01 1.15352E-01 4.44520E-01 -1.04939E-02 + 4.01471E-02 -1.85385E+00 3.39943E+00 1.64042E+00 7.52412E-01 + 6.08058E+01 1.97584E+00 5.71765E+01 3.82712E+00 4.15797E-01 + -1.46392E-01 -6.79407E-02 2.41717E-01 1.27304E-01 4.31982E-01 + -1.49617E-02 4.48341E-02 -1.57408E+00 3.12461E+00 1.59232E+00 + 7.99659E-01 6.04167E+01 2.35809E+00 5.69601E+01 4.03968E+00 + 3.19855E-01 -5.21439E-02 -6.90236E-02 2.42781E-01 1.45737E-01 + 4.13874E-01 -2.03178E-02 5.00957E-02 -1.32612E+00 2.89560E+00 + 1.54218E+00 8.45968E-01 6.00594E+01 2.68815E+00 5.67552E+01 + 4.22898E+00 2.57999E-01 4.98469E-03 -6.84029E-02 2.42208E-01 + 1.65945E-01 3.95210E-01 -2.67153E-02 5.60043E-02 -1.10369E+00 + 2.70176E+00 1.49104E+00 8.90535E-01 5.97311E+01 2.97422E+00 + 5.65633E+01 4.39625E+00 2.15535E-01 4.19895E-02 -6.59333E-02 + 2.40055E-01 1.87834E-01 3.76135E-01 -3.43317E-02 6.26416E-02 + -9.03463E-01 2.53660E+00 1.43825E+00 9.34082E-01 5.94247E+01 + 3.22689E+00 5.63810E+01 4.54656E+00 1.84700E-01 6.74246E-02 + -6.20097E-02 2.36819E-01 2.11055E-01 3.56981E-01 -4.33730E-02 + 7.00997E-02 -7.76796E-01 2.43741E+00 1.32955E+00 1.01920E+00 + 5.90540E+01 3.51714E+00 5.61250E+01 4.74705E+00 1.45664E-01 + 9.79926E-02 -7.17941E-02 2.44481E-01 2.29089E-01 3.42859E-01 + -5.40781E-02 7.84824E-02 -6.20050E-01 2.32060E+00 1.26644E+00 + 1.06623E+00 5.87867E+01 3.71639E+00 5.59647E+01 4.86655E+00 + 1.27734E-01 1.11355E-01 -6.60129E-02 2.40172E-01 2.54663E-01 + 3.23800E-01 -6.67247E-02 8.79073E-02 -4.76111E-01 2.21826E+00 + 1.20436E+00 1.11037E+00 5.85401E+01 3.89173E+00 5.58186E+01 + 4.97033E+00 1.14162E-01 1.21004E-01 -5.84188E-02 2.34773E-01 + 2.81224E-01 3.04916E-01 -8.16336E-02 9.85066E-02 -3.42513E-01 + 2.12746E+00 1.14453E+00 1.15103E+00 5.83119E+01 4.04675E+00 + 5.56867E+01 5.06003E+00 1.04104E-01 1.27840E-01 -4.90577E-02 + 2.28411E-01 3.08534E-01 2.86355E-01 -9.91770E-02 1.10430E-01 + -2.17038E-01 2.04577E+00 1.08814E+00 1.18774E+00 5.81022E+01 + 4.18328E+00 5.55685E+01 5.13695E+00 9.70024E-02 1.32463E-01 + -3.79932E-02 2.21208E-01 3.36356E-01 2.68244E-01 -1.19785E-01 + 1.23846E-01 -1.66622E-01 2.01429E+00 9.67573E-01 1.26305E+00 + 5.78312E+01 4.35255E+00 5.53861E+01 5.25092E+00 7.77469E-02 + 1.44491E-01 -4.03560E-02 2.22684E-01 3.59556E-01 2.53751E-01 + -1.43957E-01 1.38944E-01 -1.37357E-01 1.99672E+00 8.36076E-01 + 1.34200E+00 5.75718E+01 4.50839E+00 5.52120E+01 5.35546E+00 + 5.97113E-02 1.55319E-01 -4.25684E-02 2.24012E-01 3.83143E-01 + 2.39590E-01 -1.72268E-01 1.55941E-01 -5.81174E-02 1.95093E+00 + 7.64309E-01 1.38347E+00 5.73950E+01 4.61052E+00 5.51183E+01 + 5.40953E+00 5.64048E-02 1.57229E-01 -3.05256E-02 2.17053E-01 + 4.11125E-01 2.23420E-01 -2.05383E-01 1.75078E-01 2.38978E-02 + 1.90524E+00 7.04602E-01 1.41673E+00 5.72213E+01 4.70723E+00 + 5.50252E+01 5.46148E+00 5.63523E-02 1.57259E-01 -1.57929E-02 + 2.08846E-01 4.39284E-01 2.07733E-01 -2.44073E-01 1.96631E-01 + 9.41849E-02 1.86745E+00 6.42119E-01 1.45032E+00 5.70680E+01 + 4.78969E+00 5.49501E+01 5.50176E+00 5.63836E-02 1.57241E-01 + -1.64638E-03 2.01240E-01 4.66529E-01 1.93085E-01 -2.89226E-01 + 2.20907E-01 1.58641E-01 1.83396E+00 5.82411E-01 1.48135E+00 + 5.69268E+01 4.86296E+00 5.48862E+01 5.53510E+00 5.74622E-02 + 1.56681E-01 1.28811E-02 1.93692E-01 4.93078E-01 1.79292E-01 + -3.41867E-01 2.48256E-01 2.19277E-01 1.80348E+00 5.27150E-01 + 1.50912E+00 5.67987E+01 4.92739E+00 5.48322E+01 5.56219E+00 + 5.97113E-02 1.55551E-01 2.78817E-02 1.86152E-01 5.18886E-01 + 1.66320E-01 -4.03179E-01 2.79074E-01 2.77526E-01 1.77513E+00 + 4.77514E-01 1.53328E+00 5.66821E+01 4.98429E+00 5.47881E+01 + 5.58363E+00 6.31375E-02 1.53883E-01 4.33350E-02 1.78630E-01 + 5.43883E-01 1.54152E-01 -4.74529E-01 3.13807E-01 3.34510E-01 + 1.74823E+00 4.34386E-01 1.55364E+00 5.65739E+01 5.03529E+00 + 5.47516E+01 5.60083E+00 6.77159E-02 1.51723E-01 5.91831E-02 + 1.71151E-01 5.68014E-01 1.42765E-01 -5.57492E-01 3.52958E-01 + 3.91391E-01 1.72219E+00 3.98473E-01 1.57008E+00 5.64762E+01 + 5.07994E+00 5.47224E+01 5.61414E+00 7.33848E-02 1.49126E-01 + 7.53588E-02 1.63744E-01 5.91223E-01 1.32136E-01 -6.53879E-01 + 3.97095E-01 4.49022E-01 1.69656E+00 3.70511E-01 1.58252E+00 + 5.63864E+01 5.11999E+00 5.47005E+01 5.62392E+00 8.00808E-02 + 1.46148E-01 9.17775E-02 1.56443E-01 6.13479E-01 1.22240E-01 + -7.65786E-01 4.46863E-01 3.56582E-01 1.73651E+00 1.99325E-01 + 1.65652E+00 5.62041E+01 5.19867E+00 5.45846E+01 5.67410E+00 + 6.83831E-02 1.51205E-01 8.87019E-02 1.57771E-01 6.31222E-01 + 1.14568E-01 -8.95618E-01 5.02987E-01 3.57289E-01 1.73622E+00 + 1.27852E-01 1.68657E+00 5.61004E+01 5.24238E+00 5.45443E+01 + 5.69106E+00 7.10381E-02 1.50089E-01 9.95354E-02 1.53216E-01 + 6.50909E-01 1.06290E-01 -1.04616E+00 5.66288E-01 3.86679E-01 + 1.72419E+00 9.13210E-02 1.70153E+00 5.60212E+01 5.27465E+00 + 5.45278E+01 5.69777E+00 7.82881E-02 1.47121E-01 1.14289E-01 + 1.47177E-01 6.70375E-01 9.83216E-02 -1.22060E+00 6.37695E-01 + 4.15259E-01 1.71279E+00 5.99874E-02 1.71402E+00 5.59494E+01 + 5.30339E+00 5.45165E+01 5.70225E+00 8.61067E-02 1.44004E-01 + 1.28861E-01 1.41366E-01 6.88861E-01 9.09502E-02 -1.42261E+00 + 7.18254E-01 4.43147E-01 1.70196E+00 3.36748E-02 1.72425E+00 + 5.58813E+01 5.32990E+00 5.45073E+01 5.70590E+00 9.43892E-02 + 1.40784E-01 1.43179E-01 1.35800E-01 7.06391E-01 8.41364E-02 + -1.65643E+00 8.09152E-01 4.70785E-01 1.69147E+00 1.25452E-02 + 1.73226E+00 5.58189E+01 5.35357E+00 5.45014E+01 5.70802E+00 + 1.03093E-01 1.37483E-01 1.57226E-01 1.30473E-01 7.22989E-01 + 7.78417E-02 -1.92694E+00 9.11726E-01 4.97731E-01 1.68150E+00 + -4.12285E-03 1.73843E+00 5.57600E+01 5.37537E+00 5.44984E+01 + 5.70920E+00 1.12106E-01 1.34147E-01 1.70920E-01 1.25405E-01 + 7.38678E-01 7.20357E-02 -2.23973E+00 1.02749E+00 5.24485E-01 + 1.67183E+00 -1.61085E-02 1.74276E+00 5.57055E+01 5.39504E+00 + 5.44972E+01 5.70967E+00 1.21398E-01 1.30789E-01 1.84256E-01 + 1.20585E-01 7.53498E-01 6.66788E-02 -2.60124E+00 1.15816E+00 + 5.51298E-01 1.66236E+00 -2.35002E-02 1.74537E+00 5.56549E+01 + 5.41294E+00 5.44988E+01 5.70908E+00 1.30908E-01 1.27430E-01 + 1.97230E-01 1.16003E-01 7.67475E-01 6.17415E-02 -3.01890E+00 + 1.30566E+00 5.78229E-01 1.65306E+00 -2.63715E-02 1.74636E+00 + 5.56078E+01 5.42920E+00 5.45017E+01 5.70802E+00 1.40630E-01 + 1.24073E-01 2.09847E-01 1.11646E-01 7.80672E-01 5.71861E-02 + -3.50118E+00 1.47218E+00 6.04174E-01 1.64429E+00 -2.62095E-02 + 1.74631E+00 5.55630E+01 5.44428E+00 5.45052E+01 5.70684E+00 + 1.50368E-01 1.20785E-01 2.21975E-01 1.07550E-01 7.93096E-01 + 5.29896E-02 -4.05791E+00 1.66020E+00 6.31414E-01 1.63530E+00 + -2.10560E-02 1.74461E+00 5.55227E+01 5.45759E+00 5.45120E+01 + 5.70461E+00 1.60294E-01 1.17504E-01 2.33819E-01 1.03636E-01 + 8.04813E-01 4.91171E-02 -4.70030E+00 1.87250E+00 6.57535E-01 + 1.62685E+00 -1.33109E-02 1.74210E+00 5.54841E+01 5.47007E+00 + 5.45186E+01 5.70249E+00 1.70178E-01 1.14306E-01 2.45168E-01 + 9.99643E-02 8.15834E-01 4.55510E-02 -5.44128E+00 2.11226E+00 + 6.84069E-01 1.61844E+00 -1.94363E-03 1.73849E+00 5.54490E+01 + 5.48127E+00 5.45264E+01 5.70001E+00 1.80109E-01 1.11159E-01 + 2.56161E-01 9.64801E-02 8.26226E-01 4.22583E-02 -6.29567E+00 + 2.38303E+00 7.10366E-01 1.61027E+00 1.23391E-02 1.73407E+00 + 5.54158E+01 5.49151E+00 5.45356E+01 5.69718E+00 1.89986E-01 + 1.08091E-01 2.66739E-01 9.31947E-02 8.35999E-01 3.92232E-02 + -7.28049E+00 2.68887E+00 7.36546E-01 1.60230E+00 2.92133E-02 + 1.72892E+00 5.53842E+01 5.50117E+00 5.45445E+01 5.69448E+00 + 1.99820E-01 1.05098E-01 2.76939E-01 9.00897E-02 8.45202E-01 + 3.64218E-02 -8.41534E+00 3.03435E+00 7.62697E-01 1.59449E+00 + 4.88557E-02 1.72306E+00 5.53550E+01 5.50989E+00 5.45540E+01 + 5.69165E+00 2.09588E-01 1.02181E-01 2.86770E-01 8.71549E-02 + 8.53867E-01 3.38340E-02 -9.72259E+00 3.42462E+00 7.88200E-01 + 1.58702E+00 7.01473E-02 1.71683E+00 5.53281E+01 5.51778E+00 + 5.45641E+01 5.68859E+00 2.19231E-01 9.93569E-02 2.96208E-01 + 8.43904E-02 8.62028E-01 3.14450E-02 -1.12281E+01 3.86554E+00 + 8.14144E-01 1.57957E+00 9.41776E-02 1.70992E+00 5.53032E+01 + 5.52485E+00 5.45747E+01 5.68564E+00 2.28803E-01 9.66053E-02 + 3.05330E-01 8.17695E-02 8.69703E-01 2.92382E-02 -1.29613E+01 + 4.36371E+00 8.39824E-01 1.57232E+00 1.19916E-01 1.70266E+00 + 5.52786E+01 5.53180E+00 5.45851E+01 5.68270E+00 2.38256E-01 + 9.39383E-02 3.14120E-01 7.92884E-02 8.76940E-01 2.71961E-02 + -1.49562E+01 4.92661E+00 8.66328E-01 1.56498E+00 1.48393E-01 + 1.69476E+00 5.52579E+01 5.53757E+00 5.45964E+01 5.67951E+00 + 2.47643E-01 9.13367E-02 3.22653E-01 7.69242E-02 8.83754E-01 + 2.53076E-02 -1.72517E+01 5.56271E+00 8.91300E-01 1.55818E+00 + 1.76988E-01 1.68699E+00 5.52362E+01 5.54346E+00 5.46067E+01 + 5.67669E+00 2.56802E-01 8.88437E-02 3.30796E-01 7.47073E-02 + 8.90178E-01 2.35591E-02 -1.98923E+01 6.28156E+00 9.16008E-01 + 1.55157E+00 2.06937E-01 1.67897E+00 5.52165E+01 5.54864E+00 + 5.46176E+01 5.67374E+00 2.65817E-01 8.64325E-02 3.38644E-01 + 7.26081E-02 8.96226E-01 2.19422E-02 -2.29294E+01 7.09399E+00 + 9.41099E-01 1.54497E+00 2.38566E-01 1.67065E+00 5.51995E+01 + 5.55324E+00 5.46289E+01 5.67092E+00 2.74714E-01 8.40923E-02 + 3.46256E-01 7.06065E-02 9.01928E-01 2.04421E-02 -2.64216E+01 + 8.01226E+00 1.16526E+00 1.48701E+00 4.70535E-01 1.61068E+00 + 5.52400E+01 5.54275E+00 5.46986E+01 5.65289E+00 2.94684E-01 + 7.89295E-02 3.64629E-01 6.58560E-02 9.07821E-01 1.89182E-02 + -3.04359E+01 9.05015E+00 9.91073E-01 1.53131E+00 3.05238E-01 + 1.65272E+00 5.51656E+01 5.56172E+00 5.46487E+01 5.66550E+00 + 2.91772E-01 7.96703E-02 3.60432E-01 6.69226E-02 9.12334E-01 + 1.77715E-02 -3.50499E+01 1.02234E+01 1.01536E+00 1.52523E+00 + 3.39456E-01 1.64415E+00 5.51503E+01 5.56559E+00 5.46593E+01 + 5.66289E+00 3.00201E-01 7.75617E-02 3.67304E-01 6.52042E-02 + 9.17113E-01 1.65751E-02 -4.03515E+01 1.15497E+01 1.03967E+00 + 1.51924E+00 3.74532E-01 1.63552E+00 5.51361E+01 5.56893E+00 + 5.46696E+01 5.66034E+00 3.08478E-01 7.55238E-02 3.73962E-01 + 6.35648E-02 9.21629E-01 1.54635E-02 -4.64426E+01 1.30492E+01 + 1.06352E+00 1.51347E+00 4.09812E-01 1.62697E+00 5.51219E+01 + 5.57234E+00 5.46795E+01 5.65798E+00 3.16588E-01 7.35590E-02 + 3.80404E-01 6.20040E-02 9.25884E-01 1.44328E-02 -5.34386E+01 + 1.47445E+01 1.08725E+00 1.50781E+00 4.45766E-01 1.61839E+00 + 5.51116E+01 5.57477E+00 5.46904E+01 5.65535E+00 3.24544E-01 + 7.16609E-02 3.86652E-01 6.05136E-02 9.29905E-01 1.34728E-02 + -6.14731E+01 1.66613E+01 1.11051E+00 1.50233E+00 4.81782E-01 + 1.60993E+00 5.50989E+01 5.57784E+00 5.46989E+01 5.65334E+00 + 3.32330E-01 6.98314E-02 3.92714E-01 5.90890E-02 9.33703E-01 + 1.25811E-02 -2.71172E+01 8.58967E+00 1.13343E+00 1.49704E+00 + 5.17949E-01 1.60155E+00 5.50894E+01 5.58012E+00 5.47082E+01 + 5.65115E+00 3.39956E-01 6.80668E-02 3.98578E-01 5.77320E-02 + 9.37281E-01 1.17520E-02 9.99994E+00 0.00000E+00 1.15623E+00 + 1.49184E+00 5.54230E-01 1.59328E+00 5.50781E+01 5.58259E+00 + 5.47177E+01 5.64903E+00 3.47439E-01 6.63606E-02 4.04313E-01 + 5.64252E-02 9.40675E-01 1.09799E-02 1.00001E+01 0.00000E+00 + 1.17889E+00 1.48675E+00 5.90919E-01 1.58504E+00 5.50697E+01 + 5.58455E+00 5.47267E+01 5.64698E+00 3.54762E-01 6.47146E-02 + 4.09872E-01 5.51760E-02 9.43871E-01 1.02620E-02 9.99999E+00 + 0.00000E+00 1.20057E+00 1.48196E+00 6.26670E-01 1.57712E+00 + 5.50603E+01 5.58667E+00 5.47342E+01 5.64533E+00 3.61907E-01 + 6.31327E-02 4.15265E-01 5.39815E-02 9.46889E-01 9.59202E-03 + 9.99999E+00 0.00000E+00 1.22355E+00 1.47692E+00 6.64134E-01 + 1.56895E+00 5.50522E+01 5.58836E+00 5.47431E+01 5.64337E+00 + 3.68978E-01 6.15889E-02 4.20591E-01 5.28186E-02 9.49745E-01 + 8.96814E-03 1.00000E+01 0.00000E+00 1.24275E+00 1.47280E+00 + 6.97883E-01 1.56169E+00 5.50437E+01 5.59025E+00 5.47511E+01 + 5.64161E+00 3.75744E-01 6.01321E-02 4.25619E-01 5.17364E-02 + 9.52440E-01 8.38837E-03 1.00000E+01 0.00000E+00 1.26477E+00 + 1.46813E+00 7.34335E-01 1.55394E+00 5.50363E+01 5.59174E+00 + 5.47583E+01 5.64015E+00 3.82514E-01 5.86951E-02 4.30689E-01 + 5.06602E-02 9.55010E-01 7.84442E-03 9.99999E+00 0.00000E+00 + 1.28556E+00 1.46377E+00 7.69791E-01 1.54652E+00 5.50297E+01 + 5.59315E+00 5.47663E+01 5.63850E+00 3.89088E-01 5.73184E-02 + 4.35573E-01 4.96359E-02 9.57410E-01 7.33919E-03 9.99999E+00 + 0.00000E+00 1.30571E+00 1.45961E+00 8.04606E-01 1.53931E+00 + 5.50235E+01 5.59449E+00 5.47728E+01 5.63713E+00 3.95515E-01 + 5.59899E-02 4.40336E-01 4.86525E-02 9.59692E-01 6.86898E-03 + 1.00001E+01 0.00000E+00 1.32568E+00 1.45553E+00 8.39120E-01 + 1.53229E+00 5.50169E+01 5.59578E+00 5.47803E+01 5.63560E+00 + 4.01817E-01 5.47052E-02 4.45004E-01 4.77000E-02 9.61856E-01 + 6.42817E-03 9.99994E+00 0.00000E+00 1.34546E+00 1.45155E+00 + 8.73275E-01 1.52540E+00 5.50113E+01 5.59692E+00 5.47861E+01 + 5.63438E+00 4.07998E-01 5.34606E-02 4.49606E-01 4.67748E-02 + 9.63903E-01 6.01584E-03 1.00000E+01 0.00000E+00 1.36383E+00 + 1.44789E+00 9.06080E-01 1.51890E+00 5.50052E+01 5.59810E+00 + 5.47922E+01 5.63320E+00 4.13987E-01 5.22716E-02 4.54027E-01 + 4.58959E-02 9.65832E-01 5.63300E-03 9.99999E+00 0.00000E+00 + 1.38293E+00 1.44415E+00 9.39482E-01 1.51234E+00 5.50004E+01 + 5.59908E+00 5.47987E+01 5.63195E+00 4.19917E-01 5.11078E-02 + 4.58418E-01 4.50349E-02 9.67658E-01 5.27505E-03 1.00000E+01 + 0.00000E+00 1.40118E+00 1.44062E+00 9.71523E-01 1.50613E+00 + 5.49961E+01 5.59991E+00 5.48039E+01 5.63089E+00 4.25678E-01 + 4.99925E-02 4.62710E-01 4.42039E-02 9.69395E-01 4.93823E-03 + 1.00000E+01 0.00000E+00 1.41920E+00 1.43717E+00 1.00350E+00 + 1.50002E+00 5.49915E+01 5.60081E+00 5.48106E+01 5.62967E+00 + 4.31359E-01 4.89062E-02 4.66925E-01 4.33974E-02 9.71030E-01 + 4.62530E-03 9.99999E+00 0.00000E+00 1.43681E+00 1.43385E+00 + 1.03471E+00 1.49413E+00 5.49868E+01 5.60163E+00 5.48148E+01 + 5.62884E+00 4.36880E-01 4.78626E-02 4.71048E-01 4.26188E-02 + 9.72576E-01 4.33265E-03 1.00000E+01 0.00000E+00 1.45372E+00 + 1.43069E+00 1.06517E+00 1.48844E+00 5.49825E+01 5.60250E+00 + 5.48190E+01 5.62806E+00 4.42313E-01 4.68479E-02 4.75097E-01 + 4.18627E-02 9.74048E-01 4.05844E-03 9.99994E+00 0.00000E+00 + 1.47033E+00 1.42763E+00 1.09480E+00 1.48298E+00 5.49787E+01 + 5.60320E+00 5.48251E+01 5.62700E+00 4.47603E-01 4.58724E-02 + 4.79065E-01 4.11311E-02 9.75432E-01 3.80352E-03 1.00001E+01 + 0.00000E+00 1.48687E+00 1.42461E+00 1.12412E+00 1.47762E+00 + 5.49759E+01 5.60363E+00 5.48294E+01 5.62613E+00 4.52816E-01 + 4.49223E-02 4.82990E-01 4.04157E-02 9.76750E-01 3.56238E-03 + 9.99999E+00 0.00000E+00 1.50271E+00 1.42176E+00 1.15268E+00 + 1.47248E+00 5.49717E+01 5.60446E+00 5.48337E+01 5.62543E+00 + 4.57907E-01 4.40057E-02 4.86825E-01 3.97246E-02 9.77994E-01 + 3.33876E-03 9.99999E+00 0.00000E+00 1.51792E+00 1.41904E+00 + 1.18043E+00 1.46755E+00 5.49688E+01 5.60497E+00 5.48378E+01 + 5.62464E+00 4.62916E-01 4.31143E-02 4.90613E-01 3.90503E-02 + 9.79172E-01 3.12896E-03 1.00000E+01 0.00000E+00 1.53370E+00 + 1.41628E+00 1.20800E+00 1.46269E+00 5.49655E+01 5.60556E+00 + 5.48421E+01 5.62394E+00 4.67790E-01 4.22556E-02 4.94331E-01 + 3.83960E-02 9.80284E-01 2.93294E-03 1.00000E+01 0.00000E+00 + 1.54765E+00 1.41384E+00 1.23379E+00 1.45820E+00 5.49637E+01 + 5.60587E+00 5.48464E+01 5.62319E+00 4.72579E-01 4.14225E-02 + 4.97986E-01 3.77598E-02 9.81352E-01 2.74794E-03 9.99999E+00 + 0.00000E+00 1.56202E+00 1.41136E+00 1.25988E+00 1.45371E+00 + 5.49599E+01 5.60646E+00 5.48497E+01 5.62260E+00 4.77284E-01 + 4.06126E-02 5.01587E-01 3.71404E-02 9.82338E-01 2.57769E-03 + 9.99999E+00 0.00000E+00 1.57629E+00 1.40894E+00 1.28504E+00 + 1.44944E+00 5.49580E+01 5.60686E+00 5.48524E+01 5.62205E+00 + 4.81881E-01 3.98298E-02 5.05154E-01 3.65333E-02 9.83302E-01 + 2.41482E-03 1.00001E+01 0.00000E+00 1.58954E+00 1.40671E+00 + 1.30919E+00 1.44536E+00 5.49552E+01 5.60733E+00 5.48543E+01 + 5.62170E+00 4.86395E-01 3.90696E-02 5.08643E-01 3.59444E-02 + 9.84186E-01 2.26389E-03 9.99994E+00 0.00000E+00 1.60284E+00 + 1.40450E+00 1.33309E+00 1.44139E+00 5.49538E+01 5.60752E+00 + 5.48596E+01 5.62095E+00 4.90830E-01 3.83322E-02 5.12085E-01 + 3.53717E-02 9.85033E-01 2.12307E-03 1.00000E+01 0.00000E+00 + 1.61462E+00 1.40256E+00 1.35506E+00 1.43776E+00 5.49500E+01 + 5.60811E+00 5.48615E+01 5.62060E+00 4.95145E-01 3.76208E-02 + 5.15479E-01 3.48131E-02 9.85842E-01 1.99055E-03 9.99999E+00 + 0.00000E+00 1.62559E+00 1.40077E+00 1.37621E+00 1.43431E+00 + 5.49495E+01 5.60827E+00 5.48656E+01 5.62005E+00 4.99374E-01 + 3.69318E-02 5.18781E-01 3.42750E-02 9.86601E-01 1.86633E-03 + 1.00000E+01 0.00000E+00 1.64314E+00 1.39794E+00 1.40319E+00 + 1.42997E+00 5.49467E+01 5.60874E+00 5.48675E+01 5.61970E+00 + 5.03689E-01 3.62361E-02 5.22234E-01 3.37173E-02 9.87322E-01 + 1.75038E-03 1.00000E+01 0.00000E+00 1.65149E+00 1.39661E+00 + 1.42096E+00 1.42712E+00 5.49463E+01 5.60882E+00 5.48699E+01 + 5.61918E+00 5.07712E-01 3.55935E-02 5.25425E-01 3.32090E-02 + 9.88007E-01 1.64085E-03 9.99999E+00 0.00000E+00 1.66280E+00 + 1.39481E+00 1.44158E+00 1.42388E+00 5.49444E+01 5.60905E+00 + 5.48728E+01 5.61871E+00 5.11746E-01 3.49566E-02 5.28643E-01 + 3.27001E-02 9.88662E-01 1.53778E-03 1.00000E+01 0.00000E+00 + 1.67376E+00 1.39310E+00 1.46126E+00 1.42080E+00 5.49410E+01 + 5.60957E+00 5.48741E+01 5.61864E+00 5.15689E-01 3.43394E-02 + 5.31812E-01 3.22043E-02 9.89266E-01 1.44392E-03 9.99994E+00 + 0.00000E+00 1.68154E+00 1.39191E+00 1.47740E+00 1.41829E+00 + 5.49420E+01 5.60945E+00 5.48779E+01 5.61805E+00 5.19503E-01 + 3.37486E-02 5.34897E-01 3.17267E-02 9.89840E-01 1.35373E-03 + 1.00001E+01 0.00000E+00 1.69448E+00 1.38991E+00 1.49859E+00 + 1.41504E+00 5.49378E+01 5.61011E+00 5.48784E+01 5.61800E+00 + 5.23379E-01 3.31547E-02 5.38066E-01 3.12415E-02 9.90407E-01 + 1.26814E-03 9.99999E+00 0.00000E+00 1.70744E+00 1.38795E+00 + 1.51956E+00 1.41186E+00 5.49378E+01 5.61011E+00 5.48803E+01 + 5.61765E+00 5.27200E-01 3.25750E-02 5.41195E-01 3.07666E-02 + 9.90915E-01 1.19084E-03 9.99999E+00 0.00000E+00 1.71381E+00 + 1.38699E+00 1.53382E+00 1.40972E+00 5.49372E+01 5.61015E+00 + 5.48835E+01 5.61710E+00 5.30811E-01 3.20322E-02 5.44144E-01 + 3.03233E-02 9.91408E-01 1.11630E-03 9.99994E+00 0.00000E+00 + 1.72347E+00 1.38555E+00 1.55067E+00 1.40722E+00 5.49354E+01 + 5.61051E+00 5.48835E+01 5.61722E+00 5.34411E-01 3.14957E-02 + 5.47140E-01 2.98769E-02 9.91872E-01 1.04728E-03 1.00001E+01 + 0.00000E+00 1.73171E+00 1.38433E+00 1.56620E+00 1.40493E+00 + 5.49340E+01 5.61058E+00 5.48860E+01 5.61671E+00 5.37963E-01 + 3.09718E-02 5.50089E-01 2.94423E-02 9.92321E-01 9.81013E-04 + 9.99999E+00 0.00000E+00 1.73960E+00 1.38318E+00 1.58105E+00 + 1.40275E+00 5.49331E+01 5.61082E+00 5.48878E+01 5.61659E+00 + 5.41438E-01 3.04648E-02 5.52967E-01 2.90209E-02 9.92719E-01 + 9.22115E-04 9.99999E+00 0.00000E+00 1.75080E+00 1.38157E+00 + 1.59861E+00 1.40021E+00 5.49316E+01 5.61098E+00 5.48892E+01 + 5.61640E+00 5.44917E-01 2.99607E-02 5.55924E-01 2.85941E-02 + 9.93124E-01 8.63224E-04 1.00001E+01 0.00000E+00 1.75728E+00 + 1.38064E+00 1.61169E+00 1.39834E+00 5.49325E+01 5.61086E+00 + 5.48911E+01 5.61604E+00 5.48289E-01 2.94785E-02 5.58743E-01 + 2.81901E-02 9.93492E-01 8.10768E-04 9.99994E+00 0.00000E+00 + 1.76493E+00 1.37954E+00 1.62557E+00 1.39637E+00 5.49302E+01 + 5.61117E+00 5.48935E+01 5.61577E+00 5.51591E-01 2.90089E-02 + 5.61559E-01 2.77895E-02 9.93853E-01 7.60147E-04 9.99999E+00 + 0.00000E+00 1.77246E+00 1.37848E+00 1.63900E+00 1.39447E+00 + 5.49284E+01 5.61153E+00 5.48916E+01 5.61588E+00 5.54859E-01 + 2.85497E-02 5.64342E-01 2.73984E-02 9.94191E-01 7.13213E-04 + 9.99999E+00 0.00000E+00 1.77837E+00 1.37767E+00 1.65056E+00 + 1.39286E+00 5.49306E+01 5.61121E+00 5.48948E+01 5.61557E+00 + 5.58037E-01 2.81054E-02 5.67063E-01 2.70185E-02 9.94500E-01 + 6.69045E-04 1.00001E+01 0.00000E+00 1.78638E+00 1.37655E+00 + 1.66434E+00 1.39096E+00 5.49278E+01 5.61157E+00 5.48967E+01 + 5.61534E+00 5.61239E-01 2.76637E-02 5.69824E-01 2.66375E-02 + 9.94802E-01 6.27632E-04 1.00001E+01 0.00000E+00 1.79496E+00 + 1.37539E+00 1.67787E+00 1.38910E+00 5.49265E+01 5.61164E+00 + 5.48973E+01 5.61530E+00 5.64379E-01 2.72328E-02 5.72543E-01 + 2.62646E-02 9.95089E-01 5.88976E-04 9.99999E+00 0.00000E+00 + 1.79991E+00 1.37470E+00 1.68800E+00 1.38773E+00 5.49265E+01 + 5.61176E+00 5.48973E+01 5.61518E+00 5.67405E-01 2.68223E-02 + 5.75194E-01 2.59057E-02 9.95362E-01 5.51245E-04 9.99999E+00 + 0.00000E+00 1.80605E+00 1.37388E+00 1.69909E+00 1.38624E+00 + 5.49250E+01 5.61192E+00 5.48977E+01 5.61510E+00 5.70427E-01 + 2.64158E-02 5.77819E-01 2.55516E-02 9.95612E-01 5.17198E-04 + 9.99994E+00 0.00000E+00 1.81147E+00 1.37316E+00 1.70922E+00 + 1.38488E+00 5.49269E+01 5.61169E+00 5.49005E+01 5.61487E+00 + 5.73402E-01 2.60191E-02 5.80411E-01 2.52056E-02 9.95855E-01 + 4.85909E-04 1.00001E+01 0.00000E+00 1.81734E+00 1.37239E+00 + 1.71946E+00 1.38353E+00 5.49236E+01 5.61212E+00 5.48991E+01 + 5.61494E+00 5.76306E-01 2.56352E-02 5.82990E-01 2.48649E-02 + 9.96076E-01 4.55536E-04 9.99999E+00 0.00000E+00 1.82394E+00 + 1.37152E+00 1.73065E+00 1.38206E+00 5.49265E+01 5.61176E+00 + 5.49039E+01 5.61435E+00 5.79228E-01 2.52514E-02 5.85567E-01 + 2.45272E-02 9.96289E-01 4.27928E-04 9.99999E+00 0.00000E+00 + 1.82878E+00 1.37088E+00 1.73961E+00 1.38091E+00 5.49222E+01 + 5.61227E+00 5.49005E+01 5.61475E+00 5.82045E-01 2.48853E-02 + 5.88075E-01 2.42006E-02 9.96496E-01 4.01243E-04 1.00001E+01 + 0.00000E+00 1.83302E+00 1.37035E+00 1.74762E+00 1.37986E+00 + 5.49240E+01 5.61204E+00 5.49033E+01 5.61439E+00 5.84828E-01 + 2.45255E-02 5.90563E-01 2.38795E-02 9.96694E-01 3.75475E-04 + 9.99994E+00 0.00000E+00 1.83902E+00 1.36958E+00 1.75762E+00 + 1.37859E+00 5.49218E+01 5.61235E+00 5.49029E+01 5.61447E+00 + 5.87599E-01 2.41719E-02 5.93032E-01 2.35636E-02 9.96871E-01 + 3.53386E-04 9.99999E+00 0.00000E+00 1.84243E+00 1.36915E+00 + 1.76469E+00 1.37769E+00 5.49218E+01 5.61235E+00 5.49010E+01 + 5.61459E+00 5.90308E-01 2.38287E-02 5.95462E-01 2.32553E-02 + 9.97048E-01 3.31299E-04 9.99999E+00 0.00000E+00 1.84787E+00 + 1.36847E+00 1.77354E+00 1.37658E+00 5.49222E+01 5.61227E+00 + 5.49071E+01 5.61392E+00 5.92993E-01 2.34902E-02 5.97903E-01 + 2.29481E-02 9.97217E-01 3.10135E-04 1.00001E+01 0.00000E+00 + 1.85340E+00 1.36777E+00 1.78237E+00 1.37547E+00 5.49222E+01 + 5.61227E+00 5.49052E+01 5.61416E+00 5.95643E-01 2.31598E-02 + 6.00311E-01 2.26481E-02 9.97364E-01 2.91729E-04 9.99994E+00 + 0.00000E+00 1.85644E+00 1.36739E+00 1.78882E+00 1.37467E+00 + 5.49195E+01 5.61255E+00 5.49044E+01 5.61419E+00 5.98240E-01 + 2.28383E-02 6.02658E-01 2.23570E-02 9.97512E-01 2.72399E-04 + 1.00000E+01 0.00000E+00 1.85611E+00 1.36744E+00 1.79168E+00 + 1.37433E+00 5.49231E+01 5.61216E+00 5.49071E+01 5.61392E+00 + 6.00745E-01 2.25303E-02 6.04927E-01 2.20785E-02 9.97644E-01 + 2.56759E-04 1.00001E+01 0.00000E+00 1.86801E+00 1.36598E+00 + 1.80628E+00 1.37254E+00 5.49193E+01 5.61263E+00 5.49061E+01 + 5.61404E+00 6.03395E-01 2.22082E-02 6.07386E-01 2.17794E-02 + 9.97777E-01 2.40193E-04 9.99994E+00 0.00000E+00 1.86754E+00 + 1.36605E+00 1.80876E+00 1.37225E+00 5.49212E+01 5.61239E+00 + 5.49071E+01 5.61392E+00 6.05825E-01 2.19137E-02 6.09609E-01 + 2.15107E-02 9.97894E-01 2.25469E-04 9.99994E+00 0.00000E+00 + 1.87190E+00 1.36552E+00 1.81583E+00 1.37140E+00 5.49184E+01 + 5.61275E+00 5.49080E+01 5.61381E+00 6.08313E-01 2.16156E-02 + 6.11899E-01 2.12355E-02 9.98027E-01 2.11665E-04 1.00001E+01 + 0.00000E+00 1.87493E+00 1.36516E+00 1.82145E+00 1.37073E+00 + 5.49195E+01 5.61266E+00 5.49082E+01 5.61384E+00 6.10727E-01 + 2.13281E-02 6.14121E-01 2.09711E-02 9.98115E-01 1.98778E-04 + 1.00000E+01 0.00000E+00 1.87779E+00 1.36481E+00 1.82690E+00 + 1.37009E+00 5.49193E+01 5.61263E+00 5.49061E+01 5.61404E+00 + 6.13121E-01 2.10450E-02 6.16353E-01 2.07073E-02 9.98233E-01 + 1.85897E-04 9.99994E+00 0.00000E+00 1.88026E+00 1.36453E+00 + 1.83161E+00 1.36954E+00 5.49212E+01 5.61239E+00 5.49109E+01 + 5.61357E+00 6.15484E-01 2.07689E-02 6.18540E-01 2.04514E-02 + 9.98336E-01 1.74853E-04 1.00001E+01 0.00000E+00 1.88436E+00 + 1.36404E+00 1.83806E+00 1.36878E+00 5.49157E+01 5.61302E+00 + 5.49091E+01 5.61372E+00 6.17839E-01 2.04944E-02 6.20754E-01 + 2.01944E-02 9.98425E-01 1.62887E-04 1.00000E+01 0.00000E+00 + 1.88745E+00 1.36370E+00 1.84327E+00 1.36819E+00 5.49222E+01 + 5.61239E+00 5.49099E+01 5.61357E+00 6.20145E-01 2.02287E-02 + 6.22898E-01 1.99462E-02 9.98513E-01 1.53687E-04 9.99994E+00 + 0.00000E+00 1.88980E+00 1.36343E+00 1.84787E+00 1.36766E+00 + 5.49184E+01 5.61275E+00 5.49109E+01 5.61345E+00 6.22427E-01 + 1.99664E-02 6.25026E-01 1.97014E-02 9.98586E-01 1.44484E-04 + 9.99994E+00 0.00000E+00 1.89157E+00 1.36322E+00 1.85152E+00 + 1.36723E+00 5.49175E+01 5.61286E+00 5.49090E+01 5.61369E+00 + 6.24650E-01 1.97134E-02 6.27117E-01 1.94640E-02 9.98675E-01 + 1.35281E-04 1.00001E+01 0.00000E+00 1.89345E+00 1.36300E+00 + 1.85529E+00 1.36682E+00 5.49193E+01 5.61263E+00 5.49118E+01 + 5.61345E+00 6.26874E-01 1.94630E-02 6.29215E-01 1.92274E-02 + 9.98748E-01 1.26999E-04 1.00001E+01 0.00000E+00 1.89873E+00 + 1.36242E+00 1.86245E+00 1.36602E+00 5.49157E+01 5.61302E+00 + 5.49082E+01 5.61372E+00 6.29110E-01 1.92124E-02 6.31326E-01 + 1.89907E-02 9.98822E-01 1.17794E-04 9.99991E+00 0.00000E+00 + 1.89923E+00 1.36236E+00 1.86459E+00 1.36577E+00 5.49193E+01 + 5.61263E+00 5.49118E+01 5.61333E+00 6.31232E-01 1.89753E-02 + 6.33345E-01 1.87655E-02 9.98866E-01 1.12274E-04 1.00001E+01 + 0.00000E+00 1.90193E+00 1.36208E+00 1.86895E+00 1.36530E+00 + 5.49156E+01 5.61298E+00 5.49099E+01 5.61357E+00 6.33389E-01 + 1.87369E-02 6.35384E-01 1.85409E-02 9.98940E-01 1.04912E-04 + 9.99994E+00 0.00000E+00 1.90356E+00 1.36188E+00 1.87222E+00 + 1.36493E+00 5.49195E+01 5.61266E+00 5.49129E+01 5.61325E+00 + 6.35486E-01 1.85066E-02 6.37392E-01 1.83207E-02 9.98999E-01 + 9.84687E-05 1.00000E+01 0.00000E+00 1.90547E+00 1.36168E+00 + 1.87555E+00 1.36456E+00 5.49165E+01 5.61286E+00 5.49099E+01 + 5.61357E+00 6.37593E-01 1.82777E-02 6.39375E-01 1.81038E-02 + 9.99072E-01 9.11079E-05 9.99994E+00 0.00000E+00 1.90712E+00 + 1.36150E+00 1.87861E+00 1.36424E+00 5.49175E+01 5.61286E+00 + 5.49137E+01 5.61322E+00 6.39640E-01 1.80559E-02 6.41340E-01 + 1.78912E-02 9.99117E-01 8.65065E-05 1.00001E+01 0.00000E+00 + 1.90994E+00 1.36121E+00 1.88262E+00 1.36380E+00 5.49175E+01 + 5.61286E+00 5.49109E+01 5.61345E+00 6.41694E-01 1.78360E-02 + 6.43299E-01 1.76814E-02 9.99161E-01 8.09848E-05 1.00001E+01 + 0.00000E+00 1.91136E+00 1.36104E+00 1.88568E+00 1.36349E+00 + 5.49165E+01 5.61298E+00 5.49118E+01 5.61333E+00 6.43711E-01 + 1.76206E-02 6.45235E-01 1.74752E-02 9.99205E-01 7.63834E-05 + 9.99994E+00 0.00000E+00 1.91086E+00 1.36108E+00 1.88683E+00 + 1.36338E+00 5.49166E+01 5.61290E+00 5.49119E+01 5.61337E+00 + 6.45682E-01 1.74115E-02 6.47110E-01 1.72762E-02 9.99264E-01 + 7.08606E-05 1.00000E+01 0.00000E+00 1.91442E+00 1.36074E+00 + 1.89063E+00 1.36294E+00 5.49175E+01 5.61286E+00 5.49137E+01 + 5.61322E+00 6.47650E-01 1.72037E-02 6.49034E-01 1.70731E-02 + 9.99293E-01 6.71806E-05 9.99994E+00 0.00000E+00 1.91701E+00 + 1.36046E+00 1.89487E+00 1.36252E+00 5.49175E+01 5.61286E+00 + 5.49118E+01 5.61333E+00 6.49623E-01 1.69976E-02 6.50911E-01 + 1.68770E-02 9.99337E-01 6.25791E-05 1.00001E+01 0.00000E+00 + 1.91793E+00 1.36036E+00 1.89672E+00 1.36232E+00 5.49148E+01 + 5.61302E+00 5.49110E+01 5.61337E+00 6.51535E-01 1.67995E-02 + 6.52757E-01 1.66854E-02 9.99367E-01 5.88972E-05 9.99991E+00 + 0.00000E+00 1.91913E+00 1.36025E+00 1.89887E+00 1.36211E+00 + 5.49175E+01 5.61275E+00 5.49156E+01 5.61310E+00 6.53437E-01 + 1.66037E-02 6.54593E-01 1.64960E-02 9.99411E-01 5.52169E-05 + 1.00001E+01 0.00000E+00 1.92008E+00 1.36015E+00 1.90099E+00 + 1.36190E+00 5.49137E+01 5.61322E+00 5.49099E+01 5.61345E+00 + 6.55314E-01 1.64105E-02 6.56418E-01 1.63092E-02 9.99440E-01 + 5.15358E-05 1.00001E+01 0.00000E+00 1.92125E+00 1.36001E+00 + 1.90311E+00 1.36166E+00 5.49156E+01 5.61286E+00 5.49137E+01 + 5.61322E+00 6.57169E-01 1.62218E-02 6.58215E-01 1.61261E-02 + 9.99470E-01 4.87749E-05 9.99994E+00 0.00000E+00 1.92220E+00 + 1.35993E+00 1.90500E+00 1.36149E+00 5.49175E+01 5.61286E+00 + 5.49156E+01 5.61310E+00 6.59010E-01 1.60359E-02 6.59996E-01 + 1.59466E-02 9.99499E-01 4.50938E-05 9.99994E+00 0.00000E+00 + 1.92358E+00 1.35977E+00 1.90733E+00 1.36126E+00 5.49148E+01 + 5.61302E+00 5.49110E+01 5.61337E+00 6.60841E-01 1.58525E-02 + 6.61754E-01 1.57688E-02 9.99544E-01 4.23323E-05 1.00000E+01 + 0.00000E+00 1.92455E+00 1.35968E+00 1.90900E+00 1.36106E+00 + 5.49156E+01 5.61298E+00 5.49137E+01 5.61310E+00 6.62617E-01 + 1.56742E-02 6.63501E-01 1.55951E-02 9.99558E-01 4.04924E-05 + 1.00001E+01 0.00000E+00 1.92526E+00 1.35962E+00 1.91065E+00 + 1.36093E+00 5.49156E+01 5.61298E+00 5.49137E+01 5.61333E+00 + 6.64414E-01 1.54975E-02 6.65224E-01 1.54239E-02 9.99588E-01 + 3.77315E-05 9.99994E+00 0.00000E+00 1.92664E+00 1.35949E+00 + 1.91227E+00 1.36076E+00 5.49148E+01 5.61313E+00 5.49148E+01 + 5.61313E+00 6.66171E-01 1.53243E-02 6.66966E-01 1.52534E-02 + 9.99602E-01 3.49702E-05 1.00000E+01 0.00000E+00 1.92761E+00 + 1.35937E+00 1.91442E+00 1.36054E+00 5.49175E+01 5.61286E+00 + 5.49137E+01 5.61322E+00 6.67933E-01 1.51515E-02 6.68669E-01 + 1.50862E-02 9.99617E-01 3.31301E-05 1.00001E+01 0.00000E+00 + 1.92903E+00 1.35925E+00 1.91631E+00 1.36037E+00 5.49175E+01 + 5.61286E+00 5.49137E+01 5.61322E+00 6.69641E-01 1.49859E-02 + 6.70348E-01 1.49224E-02 9.99647E-01 3.12896E-05 9.99994E+00 + 0.00000E+00 1.92950E+00 1.35919E+00 1.91772E+00 1.36023E+00 + 5.49137E+01 5.61322E+00 5.49137E+01 5.61322E+00 6.71334E-01 + 1.48211E-02 6.71997E-01 1.47641E-02 9.99676E-01 2.85287E-05 + 9.99994E+00 0.00000E+00 1.92997E+00 1.35916E+00 1.91866E+00 + 1.36013E+00 5.49175E+01 5.61286E+00 5.49156E+01 5.61298E+00 + 6.73042E-01 1.46573E-02 6.73646E-01 1.46039E-02 9.99676E-01 + 2.85287E-05 1.00001E+01 0.00000E+00 1.93206E+00 1.35896E+00 + 1.92099E+00 1.35991E+00 5.49166E+01 5.61302E+00 5.49129E+01 + 5.61325E+00 6.74696E-01 1.44988E-02 6.75315E-01 1.44464E-02 + 9.99705E-01 2.57675E-05 1.00000E+01 0.00000E+00 1.93162E+00 + 1.35898E+00 1.92149E+00 1.35987E+00 5.49156E+01 5.61310E+00 + 5.49137E+01 5.61322E+00 6.76355E-01 1.43417E-02 6.76930E-01 + 1.42938E-02 9.99735E-01 2.30070E-05 9.99994E+00 0.00000E+00 + 1.93256E+00 1.35892E+00 1.92243E+00 1.35978E+00 5.49156E+01 + 5.61310E+00 5.49175E+01 5.61298E+00 6.77990E-01 1.41880E-02 + 6.78535E-01 1.41420E-02 9.99750E-01 2.20868E-05 1.00001E+01 + 0.00000E+00 1.93324E+00 1.35885E+00 1.92382E+00 1.35964E+00 + 5.49185E+01 5.61278E+00 5.49129E+01 5.61325E+00 6.79614E-01 + 1.40368E-02 6.80115E-01 1.39936E-02 9.99750E-01 2.11662E-05 + 1.00000E+01 0.00000E+00 1.93327E+00 1.35884E+00 1.92455E+00 + 1.35957E+00 5.49156E+01 5.61298E+00 5.49137E+01 5.61310E+00 + 6.81214E-01 1.38861E-02 6.81700E-01 1.38466E-02 9.99764E-01 + 1.93259E-05 9.99994E+00 0.00000E+00 1.93421E+00 1.35875E+00 + 1.92573E+00 1.35945E+00 5.49137E+01 5.61322E+00 5.49137E+01 + 5.61322E+00 6.82790E-01 1.37407E-02 6.83232E-01 1.37030E-02 + 9.99764E-01 1.93259E-05 9.99994E+00 0.00000E+00 1.93492E+00 + 1.35869E+00 1.92691E+00 1.35937E+00 5.49156E+01 5.61310E+00 + 5.49137E+01 5.61310E+00 6.84366E-01 1.35962E-02 6.84807E-01 + 1.35594E-02 9.99794E-01 1.74853E-05 1.00001E+01 0.00000E+00 + 1.93586E+00 1.35860E+00 1.92809E+00 1.35925E+00 5.49175E+01 + 5.61298E+00 5.49156E+01 5.61310E+00 6.85926E-01 1.34536E-02 + 6.86324E-01 1.34195E-02 9.99809E-01 1.56448E-05 1.00001E+01 + 0.00000E+00 1.93630E+00 1.35858E+00 1.92900E+00 1.35917E+00 + 5.49166E+01 5.61290E+00 5.49129E+01 5.61313E+00 6.87462E-01 + 1.33126E-02 6.87830E-01 1.32822E-02 9.99809E-01 1.47243E-05 + 9.99991E+00 0.00000E+00 1.93657E+00 1.35854E+00 1.92973E+00 + 1.35910E+00 5.49137E+01 5.61310E+00 5.49156E+01 5.61310E+00 + 6.88960E-01 1.31766E-02 6.89342E-01 1.31462E-02 9.99823E-01 + 1.47245E-05 1.00001E+01 0.00000E+00 1.93704E+00 1.35851E+00 + 1.93044E+00 1.35904E+00 5.49137E+01 5.61310E+00 5.49137E+01 + 5.61322E+00 6.90520E-01 1.30385E-02 6.90844E-01 1.30109E-02 + 9.99838E-01 1.38042E-05 9.99994E+00 0.00000E+00 1.93772E+00 + 1.35843E+00 1.93159E+00 1.35893E+00 5.49166E+01 5.61290E+00 + 5.49148E+01 5.61302E+00 6.91997E-01 1.29058E-02 6.92307E-01 + 1.28801E-02 9.99838E-01 1.28838E-05 1.00000E+01 0.00000E+00 + 1.93822E+00 1.35839E+00 1.93209E+00 1.35890E+00 5.49137E+01 + 5.61310E+00 5.49156E+01 5.61298E+00 6.93451E-01 1.27763E-02 + 6.93774E-01 1.27505E-02 9.99853E-01 1.10434E-05 9.99994E+00 + 0.00000E+00 1.93822E+00 1.35839E+00 1.93280E+00 1.35884E+00 + 5.49156E+01 5.61310E+00 5.49118E+01 5.61333E+00 6.94938E-01 + 1.26447E-02 6.95217E-01 1.26217E-02 9.99867E-01 1.10434E-05 + 1.00001E+01 0.00000E+00 1.93892E+00 1.35834E+00 1.93421E+00 + 1.35872E+00 5.49175E+01 5.61286E+00 5.49156E+01 5.61298E+00 + 6.96395E-01 1.25177E-02 6.96646E-01 1.24974E-02 9.99867E-01 + 1.10434E-05 1.00001E+01 0.00000E+00 1.93892E+00 1.35834E+00 + 1.93374E+00 1.35875E+00 5.49156E+01 5.61310E+00 5.49156E+01 + 5.61310E+00 6.97809E-01 1.23925E-02 6.98059E-01 1.23723E-02 + 9.99882E-01 9.20281E-06 9.99994E+00 0.00000E+00 1.93984E+00 + 1.35826E+00 1.93465E+00 1.35867E+00 5.49148E+01 5.61325E+00 + 5.49129E+01 5.61313E+00 6.99242E-01 1.22690E-02 6.99492E-01 + 1.22478E-02 9.99882E-01 9.20268E-06 1.00000E+01 0.00000E+00 + 1.93963E+00 1.35828E+00 1.93539E+00 1.35860E+00 5.49175E+01 + 5.61286E+00 5.49137E+01 5.61322E+00 7.00666E-01 1.21468E-02 + 7.00872E-01 1.21293E-02 9.99897E-01 8.28253E-06 9.99994E+00 + 0.00000E+00 1.94034E+00 1.35822E+00 1.93610E+00 1.35854E+00 + 5.49118E+01 5.61333E+00 5.49156E+01 5.61310E+00 7.02035E-01 + 1.20272E-02 7.02241E-01 1.20115E-02 9.99882E-01 9.20281E-06 + 1.00001E+01 0.00000E+00 1.94054E+00 1.35820E+00 1.93630E+00 + 1.35852E+00 5.49185E+01 5.61278E+00 5.49148E+01 5.61313E+00 + 7.03438E-01 1.19083E-02 7.03644E-01 1.18917E-02 9.99912E-01 + 7.36214E-06 9.99991E+00 0.00000E+00 1.94057E+00 1.35819E+00 + 1.93680E+00 1.35848E+00 5.49137E+01 5.61322E+00 5.49156E+01 + 5.61298E+00 7.04803E-01 1.17916E-02 7.04995E-01 1.17768E-02 + 9.99912E-01 7.36225E-06 1.00001E+01 0.00000E+00 1.94128E+00 + 1.35813E+00 1.93751E+00 1.35842E+00 5.49175E+01 5.61286E+00 + 5.49156E+01 5.61310E+00 7.06158E-01 1.16784E-02 7.06334E-01 + 1.16636E-02 9.99912E-01 6.44197E-06 1.00001E+01 0.00000E+00 + 1.94151E+00 1.35810E+00 1.93822E+00 1.35836E+00 5.49137E+01 + 5.61310E+00 5.49137E+01 5.61310E+00 7.07512E-01 1.15643E-02 + 7.07689E-01 1.15514E-02 9.99926E-01 5.52169E-06 9.99994E+00 + 0.00000E+00 1.94081E+00 1.35816E+00 1.93822E+00 1.35836E+00 + 5.49156E+01 5.61310E+00 5.49156E+01 5.61310E+00 7.08852E-01 + 1.14520E-02 7.09000E-01 1.14409E-02 9.99912E-01 6.44197E-06 + 9.99994E+00 0.00000E+00 1.94196E+00 1.35808E+00 1.93866E+00 + 1.35832E+00 5.49148E+01 5.61313E+00 5.49166E+01 5.61290E+00 + 7.10167E-01 1.13423E-02 7.10314E-01 1.13313E-02 9.99926E-01 + 5.52161E-06 1.00000E+01 0.00000E+00 1.94199E+00 1.35807E+00 + 1.93892E+00 1.35831E+00 5.49175E+01 5.61286E+00 5.49118E+01 + 5.61333E+00 7.11459E-01 1.12357E-02 7.11606E-01 1.12238E-02 + 9.99926E-01 5.52169E-06 1.00001E+01 0.00000E+00 1.94199E+00 + 1.35807E+00 1.93869E+00 1.35831E+00 5.49156E+01 5.61310E+00 + 5.49156E+01 5.61298E+00 7.12784E-01 1.11271E-02 7.12931E-01 + 1.11161E-02 9.99956E-01 3.68113E-06 9.99994E+00 0.00000E+00 + 1.94243E+00 1.35802E+00 1.93984E+00 1.35823E+00 5.49148E+01 + 5.61313E+00 5.49166E+01 5.61302E+00 7.14054E-01 1.10230E-02 + 7.14187E-01 1.10128E-02 9.99941E-01 4.60134E-06 1.00000E+01 + 0.00000E+00 1.94246E+00 1.35804E+00 1.94034E+00 1.35819E+00 + 5.49156E+01 5.61310E+00 5.49137E+01 5.61322E+00 7.15331E-01 + 1.09191E-02 7.15420E-01 1.09118E-02 9.99926E-01 5.52169E-06 + 1.00001E+01 0.00000E+00 1.94293E+00 1.35798E+00 1.94034E+00 + 1.35819E+00 5.49175E+01 5.61286E+00 5.49175E+01 5.61286E+00 + 7.16583E-01 1.08179E-02 7.16715E-01 1.08078E-02 9.99956E-01 + 2.76084E-06 9.99994E+00 0.00000E+00 1.94316E+00 1.35798E+00 + 1.94057E+00 1.35816E+00 5.49137E+01 5.61310E+00 5.49156E+01 + 5.61310E+00 7.17834E-01 1.07158E-02 7.17952E-01 1.07075E-02 + 9.99941E-01 3.68113E-06 9.99994E+00 0.00000E+00 1.94269E+00 + 1.35801E+00 1.94081E+00 1.35816E+00 5.49137E+01 5.61322E+00 + 5.49137E+01 5.61322E+00 7.19101E-01 1.06154E-02 7.19189E-01 + 1.06090E-02 9.99941E-01 3.68113E-06 1.00001E+01 0.00000E+00 + 1.94361E+00 1.35793E+00 1.94172E+00 1.35808E+00 5.49148E+01 + 5.61302E+00 5.49166E+01 5.61302E+00 7.20312E-01 1.05187E-02 + 7.20415E-01 1.05113E-02 9.99956E-01 2.76080E-06 1.00000E+01 + 0.00000E+00 1.94293E+00 1.35798E+00 1.94104E+00 1.35813E+00 + 5.49137E+01 5.61310E+00 5.49156E+01 5.61310E+00 7.21515E-01 + 1.04231E-02 7.21619E-01 1.04157E-02 9.99941E-01 3.68113E-06 + 9.99994E+00 0.00000E+00 1.94340E+00 1.35795E+00 1.94199E+00 + 1.35807E+00 5.49156E+01 5.61298E+00 5.49156E+01 5.61310E+00 + 7.22738E-01 1.03265E-02 7.22811E-01 1.03210E-02 9.99956E-01 + 2.76084E-06 1.00001E+01 0.00000E+00 1.94431E+00 1.35790E+00 + 1.94196E+00 1.35805E+00 5.49148E+01 5.61302E+00 5.49129E+01 + 5.61313E+00 7.23934E-01 1.02325E-02 7.24023E-01 1.02260E-02 + 9.99971E-01 1.84054E-06 1.00000E+01 0.00000E+00 1.94387E+00 + 1.35792E+00 1.94222E+00 1.35804E+00 5.49156E+01 5.61310E+00 + 5.49175E+01 5.61298E+00 7.25123E-01 1.01406E-02 7.25211E-01 + 1.01341E-02 9.99956E-01 3.68113E-06 9.99994E+00 0.00000E+00 + 1.94387E+00 1.35792E+00 1.94222E+00 1.35804E+00 5.49156E+01 + 5.61310E+00 5.49137E+01 5.61310E+00 7.26301E-01 1.00486E-02 + 7.26375E-01 1.00430E-02 9.99971E-01 1.84056E-06 9.99994E+00 + 0.00000E+00 1.94340E+00 1.35795E+00 1.94269E+00 1.35801E+00 + 5.49156E+01 5.61298E+00 5.49137E+01 5.61310E+00 7.27494E-01 + 9.95653E-03 7.27523E-01 9.95469E-03 9.99956E-01 2.76084E-06 + 1.00002E+01 0.00000E+00 1.94458E+00 1.35786E+00 1.94293E+00 + 1.35798E+00 5.49156E+01 5.61310E+00 5.49137E+01 5.61322E+00 + 7.28642E-01 9.86910E-03 7.28701E-01 9.86358E-03 9.99985E-01 + 1.84056E-06 9.99994E+00 0.00000E+00 1.94408E+00 1.35787E+00 + 1.94266E+00 1.35799E+00 5.49148E+01 5.61313E+00 5.49148E+01 + 5.61313E+00 7.29765E-01 9.78153E-03 7.29854E-01 9.77601E-03 + 9.99971E-01 1.84054E-06 1.00000E+01 0.00000E+00 1.94411E+00 + 1.35789E+00 1.94269E+00 1.35798E+00 5.49137E+01 5.61322E+00 + 5.49193E+01 5.61275E+00 7.30910E-01 9.69517E-03 7.30983E-01 + 9.69056E-03 9.99985E-01 9.20282E-07 9.99994E+00 0.00000E+00 + 1.94458E+00 1.35786E+00 1.94411E+00 1.35789E+00 5.49193E+01 + 5.61275E+00 5.49118E+01 5.61322E+00 7.32043E-01 9.60866E-03 + 7.32058E-01 9.60774E-03 9.99941E-01 3.68113E-06 9.99994E+00 + 0.00000E+00 1.94408E+00 1.35790E+00 1.94266E+00 1.35799E+00 + 5.49129E+01 5.61313E+00 5.49166E+01 5.61290E+00 7.33152E-01 + 9.52569E-03 7.33225E-01 9.52109E-03 1.00000E+00 9.20268E-07 + 1.00000E+01 0.00000E+00 1.94552E+00 1.35781E+00 1.94363E+00 + 1.35792E+00 5.49137E+01 5.61322E+00 5.49118E+01 5.61322E+00 + 7.34282E-01 9.44117E-03 7.34355E-01 9.43565E-03 9.99985E-01 + 9.20282E-07 9.99994E+00 0.00000E+00 1.94458E+00 1.35789E+00 + 1.94316E+00 1.35795E+00 5.49156E+01 5.61298E+00 5.49175E+01 + 5.61298E+00 7.35371E-01 9.35926E-03 7.35401E-01 9.35742E-03 + 9.99985E-01 9.20282E-07 9.99994E+00 0.00000E+00 1.94458E+00 + 1.35786E+00 1.94363E+00 1.35792E+00 5.49175E+01 5.61298E+00 + 5.49137E+01 5.61322E+00 7.36461E-01 9.27828E-03 7.36505E-01 + 9.27552E-03 9.99971E-01 1.84056E-06 1.00002E+01 0.00000E+00 + 1.94552E+00 1.35781E+00 1.94458E+00 1.35786E+00 5.49137E+01 + 5.61322E+00 5.49156E+01 5.61298E+00 7.37536E-01 9.19821E-03 + 7.37595E-01 9.19545E-03 9.99971E-01 1.84056E-06 9.99994E+00 + 0.00000E+00 1.94455E+00 1.35787E+00 1.94361E+00 1.35793E+00 + 5.49185E+01 5.61290E+00 5.49148E+01 5.61313E+00 7.38629E-01 + 9.11894E-03 7.38659E-01 9.11617E-03 9.99985E-01 9.20268E-07 + 1.00000E+01 0.00000E+00 1.94552E+00 1.35781E+00 1.94458E+00 + 1.35786E+00 5.49175E+01 5.61298E+00 5.49175E+01 5.61298E+00 + 7.39685E-01 9.04085E-03 7.39730E-01 9.03809E-03 9.99985E-01 + 1.84056E-06 9.99994E+00 0.00000E+00 1.94505E+00 1.35783E+00 + 1.94411E+00 1.35789E+00 5.49137E+01 5.61322E+00 5.49137E+01 + 5.61322E+00 7.40746E-01 8.96354E-03 7.40775E-01 8.96170E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94502E+00 + 1.35784E+00 1.94455E+00 1.35787E+00 5.49166E+01 5.61290E+00 + 5.49166E+01 5.61290E+00 7.41780E-01 8.88887E-03 7.41810E-01 + 8.88703E-03 9.99971E-01 1.84054E-06 1.00000E+01 0.00000E+00 + 1.94505E+00 1.35783E+00 1.94363E+00 1.35792E+00 5.49118E+01 + 5.61322E+00 5.49156E+01 5.61298E+00 7.42837E-01 8.81262E-03 + 7.42881E-01 8.80894E-03 1.00000E+00 0.00000E+00 1.00002E+01 + 0.00000E+00 1.94505E+00 1.35783E+00 1.94458E+00 1.35786E+00 + 5.49137E+01 5.61322E+00 5.49099E+01 5.61345E+00 7.43852E-01 + 8.73899E-03 7.43882E-01 8.73715E-03 9.99985E-01 9.20282E-07 + 9.99994E+00 0.00000E+00 1.94505E+00 1.35781E+00 1.94552E+00 + 1.35781E+00 5.49156E+01 5.61298E+00 5.49193E+01 5.61275E+00 + 7.44913E-01 8.66353E-03 7.44898E-01 8.66445E-03 9.99971E-01 + 1.84056E-06 9.99994E+00 0.00000E+00 1.94505E+00 1.35783E+00 + 1.94411E+00 1.35789E+00 5.49156E+01 5.61298E+00 5.49118E+01 + 5.61322E+00 7.45899E-01 8.59359E-03 7.45929E-01 8.59083E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94549E+00 + 1.35779E+00 1.94549E+00 1.35781E+00 5.49129E+01 5.61313E+00 + 5.49129E+01 5.61313E+00 7.46904E-01 8.52168E-03 7.46934E-01 + 8.51984E-03 1.00000E+00 0.00000E+00 1.00000E+01 0.00000E+00 + 1.94458E+00 1.35783E+00 1.94458E+00 1.35786E+00 5.49137E+01 + 5.61322E+00 5.49156E+01 5.61298E+00 7.47902E-01 8.45187E-03 + 7.47916E-01 8.45094E-03 9.99985E-01 9.20282E-07 9.99994E+00 + 0.00000E+00 1.94505E+00 1.35783E+00 1.94458E+00 1.35786E+00 + 5.49212E+01 5.61275E+00 5.49175E+01 5.61298E+00 7.48888E-01 + 8.38192E-03 7.48918E-01 8.38008E-03 9.99985E-01 9.20282E-07 + 1.00002E+01 0.00000E+00 1.94549E+00 1.35779E+00 1.94549E+00 + 1.35781E+00 5.49148E+01 5.61313E+00 5.49148E+01 5.61313E+00 + 7.49879E-01 8.31278E-03 7.49893E-01 8.31186E-03 9.99985E-01 + 9.20268E-07 9.99979E+00 0.00000E+00 1.94599E+00 1.35778E+00 + 1.94552E+00 1.35781E+00 5.49137E+01 5.61322E+00 5.49137E+01 + 5.61322E+00 7.50861E-01 8.24480E-03 7.50876E-01 8.24388E-03 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 1.94505E+00 + 1.35781E+00 1.94505E+00 1.35783E+00 5.49175E+01 5.61298E+00 + 5.49175E+01 5.61298E+00 7.51818E-01 8.17854E-03 7.51848E-01 + 8.17670E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94552E+00 1.35781E+00 1.94505E+00 1.35783E+00 5.49175E+01 + 5.61298E+00 5.49175E+01 5.61298E+00 7.52776E-01 8.11136E-03 + 7.52805E-01 8.11044E-03 9.99971E-01 1.84056E-06 9.99994E+00 + 0.00000E+00 1.94552E+00 1.35781E+00 1.94505E+00 1.35783E+00 + 5.49118E+01 5.61322E+00 5.49118E+01 5.61322E+00 7.53718E-01 + 8.04694E-03 7.53747E-01 8.04510E-03 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 1.94596E+00 1.35779E+00 1.94549E+00 + 1.35781E+00 5.49148E+01 5.61313E+00 5.49185E+01 5.61290E+00 + 7.54679E-01 7.98148E-03 7.54693E-01 7.98056E-03 1.00000E+00 + 0.00000E+00 9.99979E+00 0.00000E+00 1.94646E+00 1.35775E+00 + 1.94646E+00 1.35775E+00 5.49175E+01 5.61298E+00 5.49137E+01 + 5.61322E+00 7.55632E-01 7.91718E-03 7.55617E-01 7.91718E-03 + 1.00000E+00 9.20282E-07 1.00002E+01 0.00000E+00 1.94552E+00 + 1.35781E+00 1.94505E+00 1.35783E+00 5.49137E+01 5.61322E+00 + 5.49175E+01 5.61298E+00 7.56545E-01 7.85460E-03 7.56560E-01 + 7.85368E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94502E+00 1.35781E+00 1.94455E+00 1.35784E+00 5.49204E+01 + 5.61290E+00 5.49166E+01 5.61313E+00 7.57462E-01 7.79191E-03 + 7.57476E-01 7.79099E-03 1.00000E+00 0.00000E+00 1.00000E+01 + 0.00000E+00 1.94599E+00 1.35778E+00 1.94505E+00 1.35781E+00 + 5.49175E+01 5.61298E+00 5.49175E+01 5.61298E+00 7.58386E-01 + 7.73036E-03 7.58400E-01 7.72944E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94552E+00 1.35781E+00 1.94599E+00 + 1.35778E+00 5.49175E+01 5.61298E+00 5.49175E+01 5.61298E+00 + 7.59284E-01 7.67055E-03 7.59284E-01 7.67055E-03 9.99971E-01 + 1.84056E-06 9.99994E+00 0.00000E+00 1.94599E+00 1.35778E+00 + 1.94552E+00 1.35781E+00 5.49137E+01 5.61322E+00 5.49137E+01 + 5.61298E+00 7.60211E-01 7.60889E-03 7.60211E-01 7.60797E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94646E+00 + 1.35772E+00 1.94646E+00 1.35775E+00 5.49137E+01 5.61322E+00 + 5.49099E+01 5.61345E+00 7.61110E-01 7.54999E-03 7.61124E-01 + 7.54815E-03 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 1.94502E+00 1.35781E+00 1.94549E+00 1.35781E+00 5.49204E+01 + 5.61290E+00 5.49204E+01 5.61290E+00 7.61997E-01 7.49098E-03 + 7.61967E-01 7.49190E-03 1.00000E+00 0.00000E+00 1.00000E+01 + 0.00000E+00 1.94646E+00 1.35775E+00 1.94552E+00 1.35778E+00 + 5.49137E+01 5.61322E+00 5.49137E+01 5.61322E+00 7.62877E-01 + 7.43311E-03 7.62891E-01 7.43127E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94505E+00 1.35783E+00 1.94458E+00 + 1.35786E+00 5.49175E+01 5.61298E+00 5.49175E+01 5.61298E+00 + 7.63745E-01 7.37514E-03 7.63760E-01 7.37514E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94643E+00 1.35776E+00 + 1.94643E+00 1.35773E+00 5.49129E+01 5.61313E+00 5.49129E+01 + 5.61313E+00 7.64618E-01 7.31889E-03 7.64603E-01 7.31981E-03 + 9.99985E-01 9.20268E-07 1.00000E+01 0.00000E+00 1.94599E+00 + 1.35775E+00 1.94599E+00 1.35778E+00 5.49175E+01 5.61275E+00 + 5.49175E+01 5.61275E+00 7.65468E-01 7.26286E-03 7.65512E-01 + 7.26102E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94552E+00 1.35781E+00 1.94458E+00 1.35783E+00 5.49137E+01 + 5.61322E+00 5.49137E+01 5.61322E+00 7.66352E-01 7.20672E-03 + 7.66352E-01 7.20580E-03 1.00000E+00 0.00000E+00 1.00002E+01 + 0.00000E+00 1.94599E+00 1.35778E+00 1.94552E+00 1.35778E+00 + 5.49137E+01 5.61322E+00 5.49137E+01 5.61322E+00 7.67191E-01 + 7.15243E-03 7.67191E-01 7.15243E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94599E+00 1.35778E+00 1.94599E+00 + 1.35778E+00 5.49175E+01 5.61298E+00 5.49175E+01 5.61298E+00 + 7.68045E-01 7.09813E-03 7.68045E-01 7.09813E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94643E+00 1.35776E+00 + 1.94549E+00 1.35779E+00 5.49166E+01 5.61290E+00 5.49166E+01 + 5.61290E+00 7.68873E-01 7.04465E-03 7.68888E-01 7.04373E-03 + 1.00000E+00 0.00000E+00 1.00000E+01 0.00000E+00 1.94646E+00 + 1.35775E+00 1.94646E+00 1.35775E+00 5.49137E+01 5.61322E+00 + 5.49137E+01 5.61322E+00 7.69723E-01 6.99138E-03 7.69723E-01 + 6.99138E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94552E+00 1.35781E+00 1.94505E+00 1.35783E+00 5.49137E+01 + 5.61322E+00 5.49137E+01 5.61322E+00 7.70548E-01 6.93892E-03 + 7.70563E-01 6.93800E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94596E+00 1.35776E+00 1.94643E+00 1.35773E+00 + 5.49166E+01 5.61290E+00 5.49166E+01 5.61290E+00 7.71361E-01 + 6.88729E-03 7.71347E-01 6.88821E-03 9.99971E-01 1.84054E-06 + 1.00000E+01 0.00000E+00 1.94458E+00 1.35786E+00 1.94458E+00 + 1.35786E+00 5.49137E+01 5.61322E+00 5.49137E+01 5.61322E+00 + 7.72168E-01 6.83677E-03 7.72168E-01 6.83677E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94599E+00 1.35778E+00 + 1.94599E+00 1.35778E+00 5.49175E+01 5.61298E+00 5.49175E+01 + 5.61298E+00 7.72978E-01 6.78524E-03 7.72978E-01 6.78524E-03 + 9.99985E-01 0.00000E+00 1.00002E+01 0.00000E+00 1.94646E+00 + 1.35775E+00 1.94599E+00 1.35778E+00 5.49137E+01 5.61298E+00 + 5.49137E+01 5.61298E+00 7.73773E-01 6.73554E-03 7.73802E-01 + 6.73370E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94646E+00 1.35775E+00 1.94646E+00 1.35775E+00 5.49137E+01 + 5.61298E+00 5.49137E+01 5.61298E+00 7.74583E-01 6.68585E-03 + 7.74583E-01 6.68585E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94552E+00 1.35778E+00 1.94552E+00 1.35778E+00 + 5.49137E+01 5.61322E+00 5.49137E+01 5.61322E+00 7.75392E-01 + 6.63615E-03 7.75378E-01 6.63707E-03 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 1.94593E+00 1.35777E+00 1.94593E+00 + 1.35777E+00 5.49158E+01 5.61305E+00 5.49158E+01 5.61305E+00 + 7.76165E-01 6.58810E-03 7.76165E-01 6.58810E-03 1.00000E+00 + 0.00000E+00 9.99988E+00 0.00000E+00 1.94552E+00 1.35778E+00 + 1.94505E+00 1.35781E+00 5.49175E+01 5.61298E+00 5.49175E+01 + 5.61298E+00 7.76953E-01 6.54044E-03 7.76968E-01 6.53952E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94599E+00 + 1.35778E+00 1.94599E+00 1.35778E+00 5.49099E+01 5.61322E+00 + 5.49099E+01 5.61322E+00 7.77719E-01 6.49351E-03 7.77734E-01 + 6.49259E-03 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 5.49175E+01 + 5.61298E+00 5.49175E+01 5.61298E+00 7.78499E-01 6.44565E-03 + 7.78499E-01 6.44565E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94599E+00 1.35778E+00 1.94599E+00 1.35778E+00 + 5.49099E+01 5.61322E+00 5.49099E+01 5.61322E+00 7.79265E-01 + 6.39964E-03 7.79265E-01 6.39964E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94505E+00 1.35781E+00 1.94458E+00 + 1.35783E+00 5.49212E+01 5.61275E+00 5.49212E+01 5.61275E+00 + 7.80016E-01 6.35362E-03 7.80031E-01 6.35270E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94740E+00 1.35769E+00 + 1.94788E+00 1.35766E+00 5.49137E+01 5.61322E+00 5.49137E+01 + 5.61322E+00 7.80796E-01 6.30761E-03 7.80782E-01 6.30853E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94599E+00 + 1.35778E+00 1.94552E+00 1.35781E+00 5.49099E+01 5.61322E+00 + 5.49099E+01 5.61322E+00 7.81533E-01 6.26344E-03 7.81547E-01 + 6.26252E-03 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 1.94599E+00 1.35775E+00 1.94646E+00 1.35775E+00 5.49137E+01 + 5.61298E+00 5.49137E+01 5.61298E+00 7.82269E-01 6.21926E-03 + 7.82269E-01 6.21926E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94593E+00 1.35777E+00 1.94593E+00 1.35777E+00 + 5.49158E+01 5.61305E+00 5.49158E+01 5.61305E+00 7.83011E-01 + 6.17491E-03 7.83011E-01 6.17491E-03 1.00000E+00 0.00000E+00 + 9.99988E+00 0.00000E+00 1.94599E+00 1.35778E+00 1.94599E+00 + 1.35778E+00 5.49099E+01 5.61322E+00 5.49099E+01 5.61322E+00 + 7.83741E-01 6.13092E-03 7.83741E-01 6.13092E-03 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 1.94552E+00 1.35778E+00 + 1.94599E+00 1.35778E+00 5.49137E+01 5.61298E+00 5.49137E+01 + 5.61298E+00 7.84477E-01 6.08858E-03 7.84477E-01 6.08858E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94599E+00 + 1.35778E+00 1.94552E+00 1.35778E+00 5.49175E+01 5.61298E+00 + 5.49175E+01 5.61298E+00 7.85199E-01 6.04533E-03 7.85184E-01 + 6.04625E-03 9.99971E-01 9.20282E-07 9.99994E+00 0.00000E+00 + 1.94646E+00 1.35775E+00 1.94693E+00 1.35772E+00 5.49099E+01 + 5.61322E+00 5.49099E+01 5.61322E+00 7.85920E-01 6.00392E-03 + 7.85906E-01 6.00392E-03 1.00000E+00 0.00000E+00 1.00002E+01 + 0.00000E+00 1.94646E+00 1.35775E+00 1.94599E+00 1.35778E+00 + 5.49175E+01 5.61298E+00 5.49175E+01 5.61298E+00 7.86627E-01 + 5.96158E-03 7.86642E-01 5.96066E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94599E+00 1.35778E+00 1.94599E+00 + 1.35778E+00 5.49175E+01 5.61298E+00 5.49175E+01 5.61298E+00 + 7.87334E-01 5.92109E-03 7.87334E-01 5.92109E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94593E+00 1.35777E+00 + 1.94593E+00 1.35777E+00 5.49121E+01 5.61329E+00 5.49121E+01 + 5.61329E+00 7.88047E-01 5.87951E-03 7.88047E-01 5.87951E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 1.94552E+00 + 1.35781E+00 1.94552E+00 1.35781E+00 5.49175E+01 5.61298E+00 + 5.49175E+01 5.61298E+00 7.88748E-01 5.83919E-03 7.88762E-01 + 5.83919E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94740E+00 1.35769E+00 1.94740E+00 1.35769E+00 5.49175E+01 + 5.61298E+00 5.49175E+01 5.61298E+00 7.89454E-01 5.79961E-03 + 7.89440E-01 5.79961E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94599E+00 1.35778E+00 1.94599E+00 1.35778E+00 + 5.49175E+01 5.61298E+00 5.49175E+01 5.61298E+00 7.90146E-01 + 5.75912E-03 7.90146E-01 5.75912E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94599E+00 1.35778E+00 1.94552E+00 + 1.35778E+00 5.49099E+01 5.61322E+00 5.49099E+01 5.61322E+00 + 7.90824E-01 5.72047E-03 7.90824E-01 5.72047E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94552E+00 1.35778E+00 + 1.94552E+00 1.35778E+00 5.49175E+01 5.61298E+00 5.49175E+01 + 5.61298E+00 7.91501E-01 5.68182E-03 7.91501E-01 5.68182E-03 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 1.94646E+00 + 1.35772E+00 1.94693E+00 1.35772E+00 5.49137E+01 5.61322E+00 + 5.49137E+01 5.61322E+00 7.92178E-01 5.64317E-03 7.92193E-01 + 5.64317E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94599E+00 1.35778E+00 1.94552E+00 1.35778E+00 5.49212E+01 + 5.61275E+00 5.49212E+01 5.61275E+00 7.92856E-01 5.60543E-03 + 7.92856E-01 5.60543E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94552E+00 1.35778E+00 1.94505E+00 1.35781E+00 + 5.49099E+01 5.61322E+00 5.49099E+01 5.61322E+00 7.93533E-01 + 5.56770E-03 7.93548E-01 5.56678E-03 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 1.94593E+00 1.35777E+00 1.94688E+00 + 1.35774E+00 5.49121E+01 5.61329E+00 5.49121E+01 5.61329E+00 + 7.94202E-01 5.53073E-03 7.94187E-01 5.53165E-03 1.00000E+00 + 0.00000E+00 9.99988E+00 0.00000E+00 1.94599E+00 1.35778E+00 + 1.94599E+00 1.35778E+00 5.49212E+01 5.61275E+00 5.49212E+01 + 5.61275E+00 7.94858E-01 5.49316E-03 7.94888E-01 5.49316E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94599E+00 + 1.35775E+00 1.94599E+00 1.35775E+00 5.49137E+01 5.61322E+00 + 5.49137E+01 5.61322E+00 7.95506E-01 5.45727E-03 7.95506E-01 + 5.45727E-03 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 1.94646E+00 1.35775E+00 1.94646E+00 1.35775E+00 5.49137E+01 + 5.61322E+00 5.49137E+01 5.61322E+00 7.96154E-01 5.42046E-03 + 7.96183E-01 5.42046E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94552E+00 1.35781E+00 1.94552E+00 1.35781E+00 + 5.49175E+01 5.61298E+00 5.49175E+01 5.61298E+00 7.96831E-01 + 5.38457E-03 7.96802E-01 5.38549E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94599E+00 1.35775E+00 1.94646E+00 + 1.35775E+00 5.49137E+01 5.61298E+00 5.49137E+01 5.61298E+00 + 7.97479E-01 5.34960E-03 7.97479E-01 5.34868E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94646E+00 1.35775E+00 + 1.94599E+00 1.35778E+00 5.49137E+01 5.61322E+00 5.49137E+01 + 5.61322E+00 7.98098E-01 5.31463E-03 7.98127E-01 5.31371E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94640E+00 + 1.35774E+00 1.94640E+00 1.35774E+00 5.49158E+01 5.61305E+00 + 5.49158E+01 5.61305E+00 7.98722E-01 5.27950E-03 7.98722E-01 + 5.27950E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 1.94599E+00 1.35778E+00 1.94599E+00 1.35778E+00 5.49175E+01 + 5.61298E+00 5.49175E+01 5.61298E+00 7.99364E-01 5.24560E-03 + 7.99364E-01 5.24560E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94599E+00 1.35775E+00 1.94599E+00 1.35775E+00 + 5.49099E+01 5.61322E+00 5.49099E+01 5.61322E+00 8.00012E-01 + 5.21063E-03 8.00012E-01 5.21063E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94646E+00 1.35775E+00 1.94646E+00 + 1.35775E+00 5.49175E+01 5.61298E+00 5.49175E+01 5.61298E+00 + 8.00630E-01 5.17750E-03 8.00630E-01 5.17750E-03 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 1.94599E+00 1.35778E+00 + 1.94599E+00 1.35778E+00 5.49175E+01 5.61298E+00 5.49175E+01 + 5.61298E+00 8.01219E-01 5.14437E-03 8.01219E-01 5.14437E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94693E+00 + 1.35772E+00 1.94693E+00 1.35772E+00 5.49137E+01 5.61298E+00 + 5.49137E+01 5.61298E+00 8.01867E-01 5.11032E-03 8.01867E-01 + 5.11032E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94599E+00 1.35778E+00 1.94599E+00 1.35778E+00 5.49099E+01 + 5.61322E+00 5.49099E+01 5.61322E+00 8.02456E-01 5.07903E-03 + 8.02456E-01 5.07903E-03 1.00000E+00 0.00000E+00 1.00002E+01 + 0.00000E+00 1.94693E+00 1.35775E+00 1.94693E+00 1.35775E+00 + 6.88656E+02 -2.81606E+01 6.88656E+02 -2.81606E+01 8.03104E-01 + 5.04498E-03 8.03104E-01 5.04498E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94693E+00 1.35775E+00 1.94693E+00 + 1.35775E+00 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 + 8.03693E-01 5.01369E-03 8.03693E-01 5.01369E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94593E+00 1.35777E+00 + 1.94593E+00 1.35777E+00 1.58419E+02 0.00000E+00 1.58419E+02 + 0.00000E+00 8.04288E-01 4.98134E-03 8.04288E-01 4.98134E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 1.94505E+00 + 1.35781E+00 1.94505E+00 1.35781E+00 1.58420E+02 -2.35592E-04 + 1.58420E+02 -2.35592E-04 8.04871E-01 4.95111E-03 8.04871E-01 + 4.95111E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94599E+00 1.35775E+00 1.94599E+00 1.35775E+00 1.58416E+02 + 0.00000E+00 1.58416E+02 0.00000E+00 8.05489E-01 4.91798E-03 + 8.05489E-01 4.91798E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94693E+00 1.35775E+00 1.94693E+00 1.35775E+00 + 1.58423E+02 -2.35592E-04 1.58423E+02 -2.35592E-04 8.06078E-01 + 4.88854E-03 8.06078E-01 4.88854E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94599E+00 1.35778E+00 1.94599E+00 + 1.35778E+00 1.58412E+02 2.35592E-04 1.58412E+02 2.35592E-04 + 8.06667E-01 4.85725E-03 8.06667E-01 4.85725E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94599E+00 1.35775E+00 + 1.94599E+00 1.35775E+00 1.58416E+02 0.00000E+00 1.58416E+02 + 0.00000E+00 8.07227E-01 4.82688E-03 8.07227E-01 4.82688E-03 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 1.94693E+00 + 1.35775E+00 1.94693E+00 1.35775E+00 1.58423E+02 -2.35592E-04 + 1.58423E+02 -2.35592E-04 8.07816E-01 4.79651E-03 8.07816E-01 + 4.79651E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94499E+00 1.35779E+00 1.94499E+00 1.35779E+00 1.58415E+02 + 0.00000E+00 1.58415E+02 0.00000E+00 8.08410E-01 4.76692E-03 + 8.08410E-01 4.76692E-03 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 + 1.58420E+02 -2.35592E-04 1.58420E+02 -2.35592E-04 8.08964E-01 + 4.73761E-03 8.08964E-01 4.73761E-03 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 1.94599E+00 1.35778E+00 1.94599E+00 + 1.35778E+00 1.58420E+02 0.00000E+00 1.58420E+02 0.00000E+00 + 8.09553E-01 4.70816E-03 8.09553E-01 4.70816E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94505E+00 1.35781E+00 + 1.94505E+00 1.35781E+00 1.58416E+02 0.00000E+00 1.58416E+02 + 0.00000E+00 8.10083E-01 4.67963E-03 8.10083E-01 4.67963E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94693E+00 + 1.35775E+00 1.94693E+00 1.35775E+00 1.58416E+02 0.00000E+00 + 1.58416E+02 0.00000E+00 8.10672E-01 4.65018E-03 8.10672E-01 + 4.65018E-03 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 1.94788E+00 1.35769E+00 1.94788E+00 1.35769E+00 1.58420E+02 + 0.00000E+00 1.58420E+02 0.00000E+00 8.11232E-01 4.62165E-03 + 8.11232E-01 4.62165E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94505E+00 1.35781E+00 1.94505E+00 1.35781E+00 + 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 8.11791E-01 + 4.59405E-03 8.11791E-01 4.59405E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94505E+00 1.35781E+00 1.94505E+00 + 1.35781E+00 1.58423E+02 -4.71184E-04 1.58423E+02 -4.71184E-04 + 8.12321E-01 4.56644E-03 8.12321E-01 4.56644E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94693E+00 1.35772E+00 + 1.94693E+00 1.35772E+00 1.58412E+02 2.35592E-04 1.58412E+02 + 2.35592E-04 8.12910E-01 4.53791E-03 8.12910E-01 4.53791E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94593E+00 + 1.35777E+00 1.94593E+00 1.35777E+00 1.58423E+02 -2.35585E-04 + 1.58423E+02 -2.35585E-04 8.13417E-01 4.51109E-03 8.13417E-01 + 4.51109E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + 1.94599E+00 1.35775E+00 1.94599E+00 1.35775E+00 1.58420E+02 + -2.35592E-04 1.58420E+02 -2.35592E-04 8.13971E-01 4.48361E-03 + 8.13971E-01 4.48361E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94599E+00 1.35778E+00 1.94599E+00 1.35778E+00 + 1.58412E+02 2.35592E-04 1.58412E+02 2.35592E-04 8.14530E-01 + 4.45692E-03 8.14530E-01 4.45692E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94599E+00 1.35778E+00 1.94599E+00 + 1.35778E+00 1.58423E+02 -2.35592E-04 1.58423E+02 -2.35592E-04 + 8.15090E-01 4.42932E-03 8.15090E-01 4.42932E-03 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 1.94599E+00 1.35775E+00 + 1.94599E+00 1.35775E+00 1.58420E+02 0.00000E+00 1.58420E+02 + 0.00000E+00 8.15590E-01 4.40355E-03 8.15590E-01 4.40355E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94693E+00 + 1.35775E+00 1.94693E+00 1.35775E+00 1.58420E+02 -2.35592E-04 + 1.58420E+02 -2.35592E-04 8.16120E-01 4.37778E-03 8.16120E-01 + 4.37778E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94599E+00 1.35775E+00 1.94599E+00 1.35775E+00 1.58412E+02 + 2.35592E-04 1.58412E+02 2.35592E-04 8.16680E-01 4.35109E-03 + 8.16680E-01 4.35109E-03 1.00000E+00 0.00000E+00 1.00002E+01 + 0.00000E+00 1.94499E+00 1.35779E+00 1.94499E+00 1.35779E+00 + 1.58423E+02 -2.35585E-04 1.58423E+02 -2.35585E-04 8.17186E-01 + 4.32520E-03 8.17186E-01 4.32520E-03 1.00000E+00 0.00000E+00 + 9.99988E+00 0.00000E+00 1.94693E+00 1.35772E+00 1.94693E+00 + 1.35772E+00 1.58420E+02 -2.35592E-04 1.58420E+02 -2.35592E-04 + 8.17681E-01 4.30048E-03 8.17681E-01 4.30048E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94505E+00 1.35781E+00 + 1.94505E+00 1.35781E+00 1.58416E+02 0.00000E+00 1.58416E+02 + 0.00000E+00 8.18241E-01 4.27471E-03 8.18241E-01 4.27471E-03 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 1.94599E+00 + 1.35775E+00 1.94599E+00 1.35775E+00 1.58416E+02 0.00000E+00 + 1.58416E+02 0.00000E+00 8.18741E-01 4.24986E-03 8.18741E-01 + 4.24986E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94693E+00 1.35775E+00 1.94693E+00 1.35775E+00 1.58420E+02 + 0.00000E+00 1.58420E+02 0.00000E+00 8.19271E-01 4.22409E-03 + 8.19271E-01 4.22409E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94599E+00 1.35778E+00 1.94599E+00 1.35778E+00 + 1.58427E+02 -4.71184E-04 1.58427E+02 -4.71184E-04 8.19772E-01 + 4.20016E-03 8.19772E-01 4.20016E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94599E+00 1.35778E+00 1.94599E+00 + 1.35778E+00 1.58412E+02 2.35592E-04 1.58412E+02 2.35592E-04 + 8.20273E-01 4.17624E-03 8.20273E-01 4.17624E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94693E+00 1.35775E+00 + 1.94693E+00 1.35775E+00 1.58416E+02 0.00000E+00 1.58416E+02 + 0.00000E+00 8.20773E-01 4.15139E-03 8.20773E-01 4.15139E-03 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 1.94599E+00 + 1.35778E+00 1.94599E+00 1.35778E+00 1.58423E+02 -2.35592E-04 + 1.58423E+02 -2.35592E-04 8.21274E-01 4.12746E-03 8.21274E-01 + 4.12746E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94593E+00 1.35777E+00 1.94593E+00 1.35777E+00 1.58419E+02 + 0.00000E+00 1.58419E+02 0.00000E+00 8.21780E-01 4.10341E-03 + 8.21780E-01 4.10341E-03 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 1.94599E+00 1.35775E+00 1.94599E+00 1.35775E+00 + 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 8.22246E-01 + 4.08053E-03 8.22246E-01 4.08053E-03 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 1.94693E+00 1.35772E+00 1.94693E+00 + 1.35772E+00 1.58420E+02 0.00000E+00 1.58420E+02 0.00000E+00 + 8.22776E-01 4.05660E-03 8.22776E-01 4.05660E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94505E+00 1.35781E+00 + 1.94505E+00 1.35781E+00 1.58423E+02 -2.35592E-04 1.58423E+02 + -2.35592E-04 8.23247E-01 4.03359E-03 8.23247E-01 4.03359E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94599E+00 + 1.35775E+00 1.94599E+00 1.35775E+00 1.58416E+02 0.00000E+00 + 1.58416E+02 0.00000E+00 8.23748E-01 4.00967E-03 8.23748E-01 + 4.00967E-03 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 1.58416E+02 + 0.00000E+00 1.58416E+02 0.00000E+00 8.24219E-01 3.98758E-03 + 8.24219E-01 3.98758E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94411E+00 1.35783E+00 1.94411E+00 1.35783E+00 + 1.58420E+02 0.00000E+00 1.58420E+02 0.00000E+00 8.24719E-01 + 3.96549E-03 8.24719E-01 3.96549E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94593E+00 1.35774E+00 1.94593E+00 + 1.35774E+00 1.58423E+02 -2.35585E-04 1.58423E+02 -2.35585E-04 + 8.25196E-01 3.94329E-03 8.25196E-01 3.94329E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 1.94599E+00 1.35778E+00 + 1.94599E+00 1.35778E+00 1.58416E+02 0.00000E+00 1.58416E+02 + 0.00000E+00 8.25662E-01 3.92040E-03 8.25662E-01 3.92040E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94693E+00 + 1.35772E+00 1.94693E+00 1.35772E+00 1.58420E+02 -2.35592E-04 + 1.58420E+02 -2.35592E-04 8.26163E-01 3.89831E-03 8.26163E-01 + 3.89831E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94599E+00 1.35778E+00 1.94599E+00 1.35778E+00 1.58416E+02 + 0.00000E+00 1.58416E+02 0.00000E+00 8.26604E-01 3.87623E-03 + 8.26604E-01 3.87623E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94599E+00 1.35775E+00 1.94599E+00 1.35775E+00 + 1.58420E+02 0.00000E+00 1.58420E+02 0.00000E+00 8.27075E-01 + 3.85506E-03 8.27075E-01 3.85506E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94599E+00 1.35775E+00 1.94599E+00 + 1.35775E+00 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 + 8.27576E-01 3.83297E-03 8.27576E-01 3.83297E-03 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 1.94599E+00 1.35781E+00 + 1.94599E+00 1.35781E+00 1.58416E+02 0.00000E+00 1.58416E+02 + 0.00000E+00 8.27988E-01 3.81273E-03 8.27988E-01 3.81273E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94693E+00 + 1.35772E+00 1.94693E+00 1.35772E+00 1.58427E+02 -4.71184E-04 + 1.58427E+02 -4.71184E-04 8.28489E-01 3.79064E-03 8.28489E-01 + 3.79064E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94505E+00 1.35778E+00 1.94505E+00 1.35778E+00 1.58412E+02 + 2.35592E-04 1.58412E+02 2.35592E-04 8.28931E-01 3.77039E-03 + 8.28931E-01 3.77039E-03 1.00000E+00 0.00000E+00 1.00002E+01 + 0.00000E+00 1.94499E+00 1.35779E+00 1.94499E+00 1.35779E+00 + 1.58419E+02 0.00000E+00 1.58419E+02 0.00000E+00 8.29377E-01 + 3.74912E-03 8.29377E-01 3.74912E-03 1.00000E+00 0.00000E+00 + 9.99988E+00 0.00000E+00 1.94693E+00 1.35775E+00 1.94693E+00 + 1.35775E+00 1.58420E+02 -2.35592E-04 1.58420E+02 -2.35592E-04 + 8.29844E-01 3.72898E-03 8.29844E-01 3.72898E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94599E+00 1.35778E+00 + 1.94599E+00 1.35778E+00 1.58416E+02 0.00000E+00 1.58416E+02 + 0.00000E+00 8.30344E-01 3.70689E-03 8.30344E-01 3.70689E-03 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 1.94505E+00 + 1.35778E+00 1.94505E+00 1.35778E+00 1.58420E+02 0.00000E+00 + 1.58420E+02 0.00000E+00 8.30757E-01 3.68757E-03 8.30757E-01 + 3.68757E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94599E+00 1.35778E+00 1.94599E+00 1.35778E+00 1.58416E+02 + 0.00000E+00 1.58416E+02 0.00000E+00 8.31198E-01 3.66824E-03 + 8.31198E-01 3.66824E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 + 1.58427E+02 -4.71184E-04 1.58427E+02 -4.71184E-04 8.31640E-01 + 3.64800E-03 8.31640E-01 3.64800E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94599E+00 1.35778E+00 1.94599E+00 + 1.35778E+00 1.58420E+02 0.00000E+00 1.58420E+02 0.00000E+00 + 8.32052E-01 3.62867E-03 8.32052E-01 3.62867E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94688E+00 1.35774E+00 + 1.94688E+00 1.35774E+00 1.58415E+02 0.00000E+00 1.58415E+02 + 0.00000E+00 8.32528E-01 3.60832E-03 8.32528E-01 3.60832E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 1.94505E+00 + 1.35778E+00 1.94505E+00 1.35778E+00 1.58420E+02 -2.35592E-04 + 1.58420E+02 -2.35592E-04 8.32965E-01 3.58818E-03 8.32965E-01 + 3.58818E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 1.58412E+02 + 2.35592E-04 1.58412E+02 2.35592E-04 8.33377E-01 3.57069E-03 + 8.33377E-01 3.57069E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94411E+00 1.35783E+00 1.94411E+00 1.35783E+00 + 1.58427E+02 -4.71184E-04 1.58427E+02 -4.71184E-04 8.33849E-01 + 3.55045E-03 8.33849E-01 3.55045E-03 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 1.94788E+00 1.35772E+00 1.94788E+00 + 1.35772E+00 1.58408E+02 2.35592E-04 1.58408E+02 2.35592E-04 + 8.34261E-01 3.53204E-03 8.34261E-01 3.53204E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94693E+00 1.35772E+00 + 1.94693E+00 1.35772E+00 1.58423E+02 -2.35592E-04 1.58423E+02 + -2.35592E-04 8.34703E-01 3.51271E-03 8.34703E-01 3.51271E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94411E+00 + 1.35783E+00 1.94411E+00 1.35783E+00 1.58416E+02 0.00000E+00 + 1.58416E+02 0.00000E+00 8.35144E-01 3.49339E-03 8.35144E-01 + 3.49339E-03 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 1.94599E+00 1.35778E+00 1.94599E+00 1.35778E+00 1.58420E+02 + -2.35592E-04 1.58420E+02 -2.35592E-04 8.35557E-01 3.47498E-03 + 8.35557E-01 3.47498E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 + 1.58412E+02 2.35592E-04 1.58412E+02 2.35592E-04 8.35969E-01 + 3.45750E-03 8.35969E-01 3.45750E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94593E+00 1.35779E+00 1.94593E+00 + 1.35779E+00 1.58423E+02 -2.35585E-04 1.58423E+02 -2.35585E-04 + 8.36386E-01 3.43899E-03 8.36386E-01 3.43899E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 1.94882E+00 1.35766E+00 + 1.94882E+00 1.35766E+00 1.58416E+02 0.00000E+00 1.58416E+02 + 0.00000E+00 8.36794E-01 3.42161E-03 8.36794E-01 3.42161E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94599E+00 + 1.35778E+00 1.94599E+00 1.35778E+00 1.58416E+02 0.00000E+00 + 1.58416E+02 0.00000E+00 8.37265E-01 3.40228E-03 8.37265E-01 + 3.40228E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 1.58420E+02 + -2.35592E-04 1.58420E+02 -2.35592E-04 8.37648E-01 3.38480E-03 + 8.37648E-01 3.38480E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94505E+00 1.35778E+00 1.94505E+00 1.35778E+00 + 1.58412E+02 2.35592E-04 1.58412E+02 2.35592E-04 8.38060E-01 + 3.36731E-03 8.38060E-01 3.36731E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94411E+00 1.35783E+00 1.94411E+00 + 1.35783E+00 1.58427E+02 -4.71184E-04 1.58427E+02 -4.71184E-04 + 8.38472E-01 3.34890E-03 8.38472E-01 3.34890E-03 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 1.94788E+00 1.35772E+00 + 1.94788E+00 1.35772E+00 1.58408E+02 2.35592E-04 1.58408E+02 + 2.35592E-04 8.38855E-01 3.33326E-03 8.38855E-01 3.33326E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94593E+00 + 1.35774E+00 1.94593E+00 1.35774E+00 1.58423E+02 -2.35585E-04 + 1.58423E+02 -2.35585E-04 8.39301E-01 3.31476E-03 8.39301E-01 + 3.31476E-03 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + 1.94505E+00 1.35778E+00 1.94505E+00 1.35778E+00 1.58416E+02 + 0.00000E+00 1.58416E+02 0.00000E+00 8.39680E-01 3.29737E-03 + 8.39680E-01 3.29737E-03 1.00000E+00 0.00000E+00 1.00002E+01 + 0.00000E+00 1.94599E+00 1.35778E+00 1.94599E+00 1.35778E+00 + 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 8.40092E-01 + 3.28080E-03 8.40092E-01 3.28080E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94599E+00 1.35778E+00 1.94599E+00 + 1.35778E+00 1.58423E+02 -2.35592E-04 1.58423E+02 -2.35592E-04 + 8.40475E-01 3.26424E-03 8.40475E-01 3.26424E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94693E+00 1.35772E+00 + 1.94693E+00 1.35772E+00 1.58408E+02 2.35592E-04 1.58408E+02 + 2.35592E-04 8.40858E-01 3.24859E-03 8.40858E-01 3.24859E-03 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 1.94599E+00 + 1.35778E+00 1.94599E+00 1.35778E+00 1.58427E+02 -4.71184E-04 + 1.58427E+02 -4.71184E-04 8.41329E-01 3.22927E-03 8.41329E-01 + 3.22927E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 1.58408E+02 + 2.35592E-04 1.58408E+02 2.35592E-04 8.41623E-01 3.21546E-03 + 8.41623E-01 3.21546E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94505E+00 1.35778E+00 1.94505E+00 1.35778E+00 + 1.58423E+02 -2.35592E-04 1.58423E+02 -2.35592E-04 8.42065E-01 + 3.19706E-03 8.42065E-01 3.19706E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94599E+00 1.35778E+00 1.94599E+00 + 1.35778E+00 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 + 8.42448E-01 3.18141E-03 8.42448E-01 3.18141E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94688E+00 1.35774E+00 + 1.94688E+00 1.35774E+00 1.58415E+02 0.00000E+00 1.58415E+02 + 0.00000E+00 8.42835E-01 3.16568E-03 8.42835E-01 3.16568E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 1.94411E+00 + 1.35783E+00 1.94411E+00 1.35783E+00 1.58423E+02 -2.35592E-04 + 1.58423E+02 -2.35592E-04 8.43243E-01 3.14920E-03 8.43243E-01 + 3.14920E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94505E+00 1.35778E+00 1.94505E+00 1.35778E+00 1.58408E+02 + 2.35592E-04 1.58408E+02 2.35592E-04 8.43596E-01 3.13356E-03 + 8.43596E-01 3.13356E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 + 1.58427E+02 -4.71184E-04 1.58427E+02 -4.71184E-04 8.44009E-01 + 3.11791E-03 8.44009E-01 3.11791E-03 1.00000E+00 0.00000E+00 + 1.00002E+01 0.00000E+00 1.94693E+00 1.35772E+00 1.94693E+00 + 1.35772E+00 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 + 8.44362E-01 3.10227E-03 8.44362E-01 3.10227E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94411E+00 1.35783E+00 + 1.94411E+00 1.35783E+00 1.58423E+02 -2.35592E-04 1.58423E+02 + -2.35592E-04 8.44745E-01 3.08662E-03 8.44745E-01 3.08662E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94505E+00 + 1.35778E+00 1.94505E+00 1.35778E+00 1.58416E+02 0.00000E+00 + 1.58416E+02 0.00000E+00 8.45128E-01 3.07098E-03 8.45128E-01 + 3.07098E-03 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 1.94782E+00 1.35768E+00 1.94782E+00 1.35768E+00 1.58419E+02 + 0.00000E+00 1.58419E+02 0.00000E+00 8.45456E-01 3.05801E-03 + 8.45456E-01 3.05801E-03 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 1.94505E+00 1.35778E+00 1.94505E+00 1.35778E+00 + 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 8.45923E-01 + 3.03877E-03 8.45923E-01 3.03877E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94505E+00 1.35778E+00 1.94505E+00 + 1.35778E+00 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 + 8.46247E-01 3.02589E-03 8.46247E-01 3.02589E-03 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 1.94599E+00 1.35778E+00 + 1.94599E+00 1.35778E+00 1.58423E+02 -2.35592E-04 1.58423E+02 + -2.35592E-04 8.46600E-01 3.01116E-03 8.46600E-01 3.01116E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94599E+00 + 1.35778E+00 1.94599E+00 1.35778E+00 1.58416E+02 0.00000E+00 + 1.58416E+02 0.00000E+00 8.47012E-01 2.99552E-03 8.47012E-01 + 2.99552E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 1.58423E+02 + -2.35592E-04 1.58423E+02 -2.35592E-04 8.47336E-01 2.98171E-03 + 8.47336E-01 2.98171E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 + 1.58408E+02 2.35592E-04 1.58408E+02 2.35592E-04 8.47690E-01 + 2.96791E-03 8.47690E-01 2.96791E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94411E+00 1.35783E+00 1.94411E+00 + 1.35783E+00 1.58423E+02 -2.35592E-04 1.58423E+02 -2.35592E-04 + 8.48102E-01 2.95042E-03 8.48102E-01 2.95042E-03 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 1.94693E+00 1.35772E+00 + 1.94693E+00 1.35772E+00 1.58416E+02 0.00000E+00 1.58416E+02 + 0.00000E+00 8.48396E-01 2.93846E-03 8.48396E-01 2.93846E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94311E+00 + 1.35785E+00 1.94311E+00 1.35785E+00 1.58415E+02 0.00000E+00 + 1.58415E+02 0.00000E+00 8.48813E-01 2.92273E-03 8.48813E-01 + 2.92273E-03 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + 1.94882E+00 1.35766E+00 1.94882E+00 1.35766E+00 1.58420E+02 + -2.35592E-04 1.58420E+02 -2.35592E-04 8.49162E-01 2.90901E-03 + 8.49162E-01 2.90901E-03 1.00000E+00 0.00000E+00 1.00002E+01 + 0.00000E+00 1.94505E+00 1.35783E+00 1.94505E+00 1.35783E+00 + 1.58412E+02 2.35592E-04 1.58412E+02 2.35592E-04 8.49486E-01 + 2.89613E-03 8.49486E-01 2.89613E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94693E+00 1.35772E+00 1.94693E+00 + 1.35772E+00 1.58427E+02 -4.71184E-04 1.58427E+02 -4.71184E-04 + 8.49869E-01 2.88048E-03 8.49869E-01 2.88048E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94505E+00 1.35778E+00 + 1.94505E+00 1.35778E+00 1.58412E+02 2.35592E-04 1.58412E+02 + 2.35592E-04 8.50222E-01 2.86760E-03 8.50222E-01 2.86760E-03 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 1.94411E+00 + 1.35783E+00 1.94411E+00 1.35783E+00 1.58423E+02 -2.35592E-04 + 1.58423E+02 -2.35592E-04 8.50576E-01 2.85379E-03 8.50576E-01 + 2.85379E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94976E+00 1.35760E+00 1.94976E+00 1.35760E+00 1.58416E+02 + 0.00000E+00 1.58416E+02 0.00000E+00 8.50929E-01 2.83907E-03 + 8.50929E-01 2.83907E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94311E+00 1.35785E+00 1.94311E+00 1.35785E+00 + 1.58419E+02 0.00000E+00 1.58419E+02 0.00000E+00 8.51287E-01 + 2.82610E-03 8.51287E-01 2.82610E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 1.94693E+00 1.35772E+00 1.94693E+00 + 1.35772E+00 1.58423E+02 -2.35592E-04 1.58423E+02 -2.35592E-04 + 8.51577E-01 2.81330E-03 8.51577E-01 2.81330E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94505E+00 1.35778E+00 + 1.94505E+00 1.35778E+00 1.58416E+02 0.00000E+00 1.58416E+02 + 0.00000E+00 8.51960E-01 2.79858E-03 8.51960E-01 2.79858E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94599E+00 + 1.35778E+00 1.94599E+00 1.35778E+00 1.58423E+02 -2.35592E-04 + 1.58423E+02 -2.35592E-04 8.52254E-01 2.78661E-03 8.52254E-01 + 2.78661E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 1.58412E+02 + 2.35592E-04 1.58412E+02 2.35592E-04 8.52637E-01 2.77281E-03 + 8.52637E-01 2.77281E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94411E+00 1.35783E+00 1.94411E+00 1.35783E+00 + 1.58423E+02 -2.35592E-04 1.58423E+02 -2.35592E-04 8.52991E-01 + 2.75992E-03 8.52991E-01 2.75992E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94693E+00 1.35772E+00 1.94693E+00 + 1.35772E+00 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 + 8.53344E-01 2.74612E-03 8.53344E-01 2.74612E-03 1.00000E+00 + 0.00000E+00 1.00004E+01 0.00000E+00 1.94599E+00 1.35778E+00 + 1.94599E+00 1.35778E+00 1.58423E+02 -2.35592E-04 1.58423E+02 + -2.35592E-04 8.53638E-01 2.73416E-03 8.53638E-01 2.73416E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94505E+00 + 1.35783E+00 1.94505E+00 1.35783E+00 1.58416E+02 0.00000E+00 + 1.58416E+02 0.00000E+00 8.53992E-01 2.72035E-03 8.53992E-01 + 2.72035E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94876E+00 1.35768E+00 1.94876E+00 1.35768E+00 1.58419E+02 + 0.00000E+00 1.58419E+02 0.00000E+00 8.54320E-01 2.70831E-03 + 8.54320E-01 2.70831E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 1.94599E+00 1.35778E+00 1.94599E+00 1.35778E+00 + 1.58423E+02 -2.35592E-04 1.58423E+02 -2.35592E-04 8.54640E-01 + 2.69550E-03 8.54640E-01 2.69550E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94316E+00 1.35789E+00 1.94316E+00 + 1.35789E+00 1.58423E+02 0.00000E+00 1.58423E+02 0.00000E+00 + 8.54993E-01 2.68262E-03 8.54993E-01 2.68262E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94693E+00 1.35772E+00 + 1.94693E+00 1.35772E+00 1.58423E+02 -2.35592E-04 1.58423E+02 + -2.35592E-04 8.55288E-01 2.67066E-03 8.55288E-01 2.67066E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94599E+00 + 1.35778E+00 1.94599E+00 1.35778E+00 1.58416E+02 0.00000E+00 + 1.58416E+02 0.00000E+00 8.55641E-01 2.65777E-03 8.55641E-01 + 2.65777E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 1.58416E+02 + 0.00000E+00 1.58416E+02 0.00000E+00 8.55965E-01 2.64581E-03 + 8.55965E-01 2.64581E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94411E+00 1.35783E+00 1.94411E+00 1.35783E+00 + 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 8.56289E-01 + 2.63385E-03 8.56289E-01 2.63385E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94593E+00 1.35774E+00 1.94593E+00 + 1.35774E+00 1.58419E+02 0.00000E+00 1.58419E+02 0.00000E+00 + 8.56646E-01 2.62088E-03 8.56646E-01 2.62088E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 1.94693E+00 1.35772E+00 + 1.94693E+00 1.35772E+00 1.58423E+02 -2.35592E-04 1.58423E+02 + -2.35592E-04 8.56907E-01 2.60992E-03 8.56907E-01 2.60992E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94693E+00 + 1.35778E+00 1.94693E+00 1.35778E+00 1.58416E+02 0.00000E+00 + 1.58416E+02 0.00000E+00 8.57261E-01 2.59703E-03 8.57261E-01 + 2.59703E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94693E+00 1.35778E+00 1.94693E+00 1.35778E+00 1.58423E+02 + -2.35592E-04 1.58423E+02 -2.35592E-04 8.57585E-01 2.58507E-03 + 8.57585E-01 2.58507E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94693E+00 1.35778E+00 1.94693E+00 1.35778E+00 + 1.58416E+02 2.35592E-04 1.58416E+02 2.35592E-04 8.57879E-01 + 2.57403E-03 8.57879E-01 2.57403E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94693E+00 1.35772E+00 1.94693E+00 + 1.35772E+00 1.58431E+02 -4.71184E-04 1.58431E+02 -4.71184E-04 + 8.58203E-01 2.56206E-03 8.58203E-01 2.56206E-03 1.00000E+00 + 0.00000E+00 1.00004E+01 0.00000E+00 1.94505E+00 1.35778E+00 + 1.94505E+00 1.35778E+00 1.58408E+02 2.35592E-04 1.58408E+02 + 2.35592E-04 8.58527E-01 2.55010E-03 8.58527E-01 2.55010E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94505E+00 + 1.35778E+00 1.94505E+00 1.35778E+00 1.58423E+02 -2.35592E-04 + 1.58423E+02 -2.35592E-04 8.58851E-01 2.53814E-03 8.58851E-01 + 2.53814E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 1.58416E+02 + 0.00000E+00 1.58416E+02 0.00000E+00 8.59145E-01 2.52709E-03 + 8.59145E-01 2.52709E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94311E+00 1.35785E+00 1.94311E+00 1.35785E+00 + 1.58419E+02 0.00000E+00 1.58419E+02 0.00000E+00 8.59473E-01 + 2.51598E-03 8.59473E-01 2.51598E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 1.94693E+00 1.35772E+00 1.94693E+00 + 1.35772E+00 1.58423E+02 -2.35592E-04 1.58423E+02 -2.35592E-04 + 8.59734E-01 2.50501E-03 8.59734E-01 2.50501E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94693E+00 1.35778E+00 + 1.94693E+00 1.35778E+00 1.58408E+02 2.35592E-04 1.58408E+02 + 2.35592E-04 8.60058E-01 2.49304E-03 8.60058E-01 2.49304E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94882E+00 + 1.35772E+00 1.94882E+00 1.35772E+00 1.58423E+02 -2.35592E-04 + 1.58423E+02 -2.35592E-04 8.60382E-01 2.48200E-03 8.60382E-01 + 2.48200E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94693E+00 1.35778E+00 1.94693E+00 1.35778E+00 1.58416E+02 + 0.00000E+00 1.58416E+02 0.00000E+00 8.60677E-01 2.47096E-03 + 8.60677E-01 2.47096E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94505E+00 1.35778E+00 1.94505E+00 1.35778E+00 + 1.58423E+02 -2.35592E-04 1.58423E+02 -2.35592E-04 8.60971E-01 + 2.45991E-03 8.60971E-01 2.45991E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94693E+00 1.35778E+00 1.94693E+00 + 1.35778E+00 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 + 8.61295E-01 2.44887E-03 8.61295E-01 2.44887E-03 1.00000E+00 + 0.00000E+00 1.00004E+01 0.00000E+00 1.94688E+00 1.35768E+00 + 1.94688E+00 1.35768E+00 1.58411E+02 0.00000E+00 1.58411E+02 + 0.00000E+00 8.61594E-01 2.43775E-03 8.61594E-01 2.43775E-03 + 1.00000E+00 0.00000E+00 9.99965E+00 0.00000E+00 1.94505E+00 + 1.35778E+00 1.94505E+00 1.35778E+00 1.58423E+02 -2.35592E-04 + 1.58423E+02 -2.35592E-04 8.61884E-01 2.42678E-03 8.61884E-01 + 2.42678E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94882E+00 1.35772E+00 1.94882E+00 1.35772E+00 1.58408E+02 + 2.35592E-04 1.58408E+02 2.35592E-04 8.62149E-01 2.41758E-03 + 8.62149E-01 2.41758E-03 1.00000E+00 0.00000E+00 1.00004E+01 + 0.00000E+00 1.94316E+00 1.35789E+00 1.94316E+00 1.35789E+00 + 1.58423E+02 -2.35592E-04 1.58423E+02 -2.35592E-04 8.62503E-01 + 2.40470E-03 8.62503E-01 2.40470E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94693E+00 1.35778E+00 1.94693E+00 + 1.35778E+00 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 + 8.62768E-01 2.39549E-03 8.62768E-01 2.39549E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94882E+00 1.35766E+00 + 1.94882E+00 1.35766E+00 1.58423E+02 -2.35592E-04 1.58423E+02 + -2.35592E-04 8.63062E-01 2.38445E-03 8.63062E-01 2.38445E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94316E+00 + 1.35783E+00 1.94316E+00 1.35783E+00 1.58416E+02 0.00000E+00 + 1.58416E+02 0.00000E+00 8.63357E-01 2.37433E-03 8.63357E-01 + 2.37433E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94882E+00 1.35772E+00 1.94882E+00 1.35772E+00 1.58423E+02 + -2.35592E-04 1.58423E+02 -2.35592E-04 8.63651E-01 2.36328E-03 + 8.63651E-01 2.36328E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94316E+00 1.35783E+00 1.94316E+00 1.35783E+00 + 1.58416E+02 2.35592E-04 1.58416E+02 2.35592E-04 8.63946E-01 + 2.35408E-03 8.63946E-01 2.35408E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94688E+00 1.35774E+00 1.94688E+00 + 1.35774E+00 1.58419E+02 -2.35585E-04 1.58419E+02 -2.35585E-04 + 8.64244E-01 2.34297E-03 8.64244E-01 2.34297E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 1.94693E+00 1.35772E+00 + 1.94693E+00 1.35772E+00 1.58423E+02 -2.35592E-04 1.58423E+02 + -2.35592E-04 8.64535E-01 2.33291E-03 8.64535E-01 2.33291E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94505E+00 + 1.35778E+00 1.94505E+00 1.35778E+00 1.58423E+02 0.00000E+00 + 1.58423E+02 0.00000E+00 8.64829E-01 2.32279E-03 8.64829E-01 + 2.32279E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 1.58423E+02 + -2.35592E-04 1.58423E+02 -2.35592E-04 8.65124E-01 2.31267E-03 + 8.65124E-01 2.31267E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94128E+00 1.35789E+00 1.94128E+00 1.35789E+00 + 1.58408E+02 2.35592E-04 1.58408E+02 2.35592E-04 8.65359E-01 + 2.30346E-03 8.65359E-01 2.30346E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94693E+00 1.35772E+00 1.94693E+00 + 1.35772E+00 1.58423E+02 -2.35592E-04 1.58423E+02 -2.35592E-04 + 8.65683E-01 2.29242E-03 8.65683E-01 2.29242E-03 1.00000E+00 + 0.00000E+00 1.00004E+01 0.00000E+00 1.94882E+00 1.35772E+00 + 1.94882E+00 1.35772E+00 1.58416E+02 0.00000E+00 1.58416E+02 + 0.00000E+00 8.65948E-01 2.28322E-03 8.65948E-01 2.28322E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94499E+00 + 1.35779E+00 1.94499E+00 1.35779E+00 1.58419E+02 0.00000E+00 + 1.58419E+02 0.00000E+00 8.66247E-01 2.27303E-03 8.66247E-01 + 2.27303E-03 1.00000E+00 0.00000E+00 9.99965E+00 0.00000E+00 + 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 1.58423E+02 + -2.35592E-04 1.58423E+02 -2.35592E-04 8.66537E-01 2.26297E-03 + 8.66537E-01 2.26297E-03 1.00000E+00 0.00000E+00 1.00004E+01 + 0.00000E+00 1.94505E+00 1.35783E+00 1.94505E+00 1.35783E+00 + 1.58408E+02 2.35592E-04 1.58408E+02 2.35592E-04 8.66773E-01 + 2.25469E-03 8.66773E-01 2.25469E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94882E+00 1.35772E+00 1.94882E+00 + 1.35772E+00 1.58431E+02 -4.71184E-04 1.58431E+02 -4.71184E-04 + 8.67067E-01 2.24365E-03 8.67067E-01 2.24365E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94693E+00 1.35772E+00 + 1.94693E+00 1.35772E+00 1.58408E+02 2.35592E-04 1.58408E+02 + 2.35592E-04 8.67332E-01 2.23444E-03 8.67332E-01 2.23444E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94505E+00 + 1.35783E+00 1.94505E+00 1.35783E+00 1.58423E+02 -2.35592E-04 + 1.58423E+02 -2.35592E-04 8.67597E-01 2.22524E-03 8.67597E-01 + 2.22524E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94693E+00 1.35778E+00 1.94693E+00 1.35778E+00 1.58416E+02 + 0.00000E+00 1.58416E+02 0.00000E+00 8.67892E-01 2.21604E-03 + 8.67892E-01 2.21604E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94316E+00 1.35783E+00 1.94316E+00 1.35783E+00 + 1.58423E+02 0.00000E+00 1.58423E+02 0.00000E+00 8.68127E-01 + 2.20684E-03 8.68127E-01 2.20684E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94882E+00 1.35772E+00 1.94882E+00 + 1.35772E+00 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 + 8.68422E-01 2.19671E-03 8.68422E-01 2.19671E-03 1.00000E+00 + 0.00000E+00 1.00004E+01 0.00000E+00 1.94688E+00 1.35774E+00 + 1.94688E+00 1.35774E+00 1.58411E+02 0.00000E+00 1.58411E+02 + 0.00000E+00 8.68720E-01 2.18744E-03 8.68720E-01 2.18744E-03 + 1.00000E+00 0.00000E+00 9.99965E+00 0.00000E+00 1.94693E+00 + 1.35778E+00 1.94693E+00 1.35778E+00 1.58423E+02 -2.35592E-04 + 1.58423E+02 -2.35592E-04 8.68981E-01 2.17831E-03 8.68981E-01 + 2.17831E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94316E+00 1.35783E+00 1.94316E+00 1.35783E+00 1.58423E+02 + 0.00000E+00 1.58423E+02 0.00000E+00 8.69217E-01 2.17002E-03 + 8.69217E-01 2.17002E-03 1.00000E+00 0.00000E+00 1.00004E+01 + 0.00000E+00 1.94505E+00 1.35778E+00 1.94505E+00 1.35778E+00 + 1.58423E+02 -2.35592E-04 1.58423E+02 -2.35592E-04 8.69482E-01 + 2.16082E-03 8.69482E-01 2.16082E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94882E+00 1.35766E+00 1.94882E+00 + 1.35766E+00 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 + 8.69776E-01 2.15070E-03 8.69776E-01 2.15070E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94505E+00 1.35778E+00 + 1.94505E+00 1.35778E+00 1.58416E+02 0.00000E+00 1.58416E+02 + 0.00000E+00 8.70042E-01 2.14242E-03 8.70042E-01 2.14242E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94316E+00 + 1.35783E+00 1.94316E+00 1.35783E+00 1.58416E+02 0.00000E+00 + 1.58416E+02 0.00000E+00 8.70307E-01 2.13321E-03 8.70307E-01 + 2.13321E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94688E+00 1.35774E+00 1.94688E+00 1.35774E+00 1.58419E+02 + 0.00000E+00 1.58419E+02 0.00000E+00 8.70575E-01 2.12487E-03 + 8.70575E-01 2.12487E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 1.94316E+00 1.35783E+00 1.94316E+00 1.35783E+00 + 1.58423E+02 -2.35592E-04 1.58423E+02 -2.35592E-04 8.70837E-01 + 2.11573E-03 8.70837E-01 2.11573E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94693E+00 1.35772E+00 1.94693E+00 + 1.35772E+00 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 + 8.71072E-01 2.10744E-03 8.71072E-01 2.10744E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94693E+00 1.35772E+00 + 1.94693E+00 1.35772E+00 1.58423E+02 -2.35592E-04 1.58423E+02 + -2.35592E-04 8.71337E-01 2.09824E-03 8.71337E-01 2.09824E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94693E+00 + 1.35778E+00 1.94693E+00 1.35778E+00 1.58423E+02 -2.35592E-04 + 1.58423E+02 -2.35592E-04 8.71602E-01 2.08996E-03 8.71602E-01 + 2.08996E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94693E+00 1.35778E+00 1.94693E+00 1.35778E+00 1.58416E+02 + 0.00000E+00 1.58416E+02 0.00000E+00 8.71897E-01 2.08076E-03 + 8.71897E-01 2.08076E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94693E+00 1.35778E+00 1.94693E+00 1.35778E+00 + 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 8.72132E-01 + 2.07247E-03 8.72132E-01 2.07247E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94693E+00 1.35772E+00 1.94693E+00 + 1.35772E+00 1.58423E+02 -2.35592E-04 1.58423E+02 -2.35592E-04 + 8.72368E-01 2.06419E-03 8.72368E-01 2.06419E-03 1.00000E+00 + 0.00000E+00 1.00004E+01 0.00000E+00 1.94505E+00 1.35778E+00 + 1.94505E+00 1.35778E+00 1.58408E+02 2.35592E-04 1.58408E+02 + 2.35592E-04 8.72633E-01 2.05591E-03 8.72633E-01 2.05591E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94499E+00 + 1.35779E+00 1.94499E+00 1.35779E+00 1.58426E+02 -2.35585E-04 + 1.58426E+02 -2.35585E-04 8.72872E-01 2.04757E-03 8.72872E-01 + 2.04757E-03 1.00000E+00 0.00000E+00 9.99965E+00 0.00000E+00 + 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 1.58423E+02 + -2.35592E-04 1.58423E+02 -2.35592E-04 8.73163E-01 2.03842E-03 + 8.73163E-01 2.03842E-03 1.00000E+00 0.00000E+00 1.00004E+01 + 0.00000E+00 1.94693E+00 1.35778E+00 1.94693E+00 1.35778E+00 + 1.58408E+02 2.35592E-04 1.58408E+02 2.35592E-04 8.73399E-01 + 2.03106E-03 8.73399E-01 2.03106E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94693E+00 1.35778E+00 1.94693E+00 + 1.35778E+00 1.58423E+02 -2.35592E-04 1.58423E+02 -2.35592E-04 + 8.73634E-01 2.02278E-03 8.73634E-01 2.02278E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94693E+00 1.35772E+00 + 1.94693E+00 1.35772E+00 1.58416E+02 0.00000E+00 1.58416E+02 + 0.00000E+00 8.73929E-01 2.01358E-03 8.73929E-01 2.01358E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94316E+00 + 1.35789E+00 1.94316E+00 1.35789E+00 1.58423E+02 0.00000E+00 + 1.58423E+02 0.00000E+00 8.74135E-01 2.00713E-03 8.74135E-01 + 2.00713E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94882E+00 1.35772E+00 1.94882E+00 1.35772E+00 1.58416E+02 + 0.00000E+00 1.58416E+02 0.00000E+00 8.74400E-01 1.99793E-03 + 8.74400E-01 1.99793E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94688E+00 1.35774E+00 1.94688E+00 1.35774E+00 + 1.58411E+02 0.00000E+00 1.58411E+02 0.00000E+00 8.74639E-01 + 1.98959E-03 8.74639E-01 1.98959E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 1.94128E+00 1.35789E+00 1.94128E+00 + 1.35789E+00 1.58431E+02 -4.71184E-04 1.58431E+02 -4.71184E-04 + 8.74871E-01 1.98229E-03 8.74871E-01 1.98229E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94505E+00 1.35778E+00 + 1.94505E+00 1.35778E+00 1.58408E+02 2.35592E-04 1.58408E+02 + 2.35592E-04 8.75107E-01 1.97492E-03 8.75107E-01 1.97492E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94505E+00 + 1.35778E+00 1.94505E+00 1.35778E+00 1.58431E+02 -2.35592E-04 + 1.58431E+02 -2.35592E-04 8.75372E-01 1.96572E-03 8.75372E-01 + 1.96572E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94505E+00 1.35778E+00 1.94505E+00 1.35778E+00 1.58416E+02 + 0.00000E+00 1.58416E+02 0.00000E+00 8.75607E-01 1.95836E-03 + 8.75607E-01 1.95836E-03 1.00000E+00 0.00000E+00 1.00004E+01 + 0.00000E+00 1.94882E+00 1.35766E+00 1.94882E+00 1.35766E+00 + 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 8.75843E-01 + 1.95100E-03 8.75843E-01 1.95100E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.96013E+00 1.35730E+00 1.96013E+00 + 1.35730E+00 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 + 8.76137E-01 1.94179E-03 8.76137E-01 1.94179E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94505E+00 1.35783E+00 + 1.94505E+00 1.35783E+00 1.58423E+02 -2.35592E-04 1.58423E+02 + -2.35592E-04 8.76314E-01 1.93535E-03 8.76314E-01 1.93535E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94882E+00 + 1.35772E+00 1.94882E+00 1.35772E+00 1.58416E+02 0.00000E+00 + 1.58416E+02 0.00000E+00 8.76579E-01 1.92799E-03 8.76579E-01 + 1.92799E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94688E+00 1.35774E+00 1.94688E+00 1.35774E+00 1.58419E+02 + 0.00000E+00 1.58419E+02 0.00000E+00 8.76818E-01 1.91965E-03 + 8.76818E-01 1.91965E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 1.94316E+00 1.35783E+00 1.94316E+00 1.35783E+00 + 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 8.77050E-01 + 1.91235E-03 8.77050E-01 1.91235E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.94882E+00 1.35772E+00 1.94882E+00 + 1.35772E+00 1.58416E+02 0.00000E+00 1.58416E+02 0.00000E+00 + 8.77286E-01 1.90498E-03 8.77286E-01 1.90498E-03 1.00000E+00 + 0.00000E+00 9.99994E+00 0.00000E+00 1.94316E+00 1.35789E+00 + 1.94316E+00 1.35789E+00 1.58416E+02 0.00000E+00 1.58416E+02 + 0.00000E+00 8.77551E-01 1.89762E-03 8.77551E-01 1.89762E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94505E+00 + 1.35778E+00 1.94505E+00 1.35778E+00 1.58431E+02 -4.71184E-04 + 1.58431E+02 -4.71184E-04 8.77757E-01 1.89026E-03 8.77757E-01 + 1.89026E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94693E+00 1.35772E+00 1.94693E+00 1.35772E+00 1.58416E+02 + 0.00000E+00 1.58416E+02 0.00000E+00 8.77993E-01 1.88290E-03 + 8.77993E-01 1.88290E-03 1.00000E+00 0.00000E+00 9.99994E+00 + 0.00000E+00 1.94505E+00 1.35778E+00 1.94505E+00 1.35778E+00 + 1.58423E+02 -2.35592E-04 1.58423E+02 -2.35592E-04 8.78258E-01 + 1.87461E-03 8.78258E-01 1.87461E-03 1.00000E+00 0.00000E+00 + 9.99994E+00 0.00000E+00 1.95064E+00 1.35762E+00 1.95064E+00 + 1.35762E+00 1.58411E+02 2.35585E-04 1.58411E+02 2.35585E-04 + 8.78468E-01 1.86812E-03 8.78468E-01 1.86812E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 1.98651E+00 1.35654E+00 + 1.98651E+00 1.35654E+00 1.58423E+02 -2.35592E-04 1.58423E+02 + -2.35592E-04 8.78729E-01 1.85897E-03 8.78729E-01 1.85897E-03 + 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 1.94505E+00 + 1.35783E+00 1.94505E+00 1.35783E+00 1.58416E+02 0.00000E+00 + 1.58416E+02 0.00000E+00 8.78935E-01 1.85345E-03 8.78935E-01 + 1.85345E-03 1.00000E+00 0.00000E+00 9.99994E+00 0.00000E+00 + 1.94511E+00 1.35776E+00 1.94511E+00 1.35776E+00 1.58413E+02 + 0.00000E+00 1.58413E+02 0.00000E+00 8.79138E-01 1.84706E-03 + 8.79138E-01 1.84706E-03 1.00000E+00 0.00000E+00 1.00002E+01 + 0.00000E+00 1.94499E+00 1.35779E+00 1.94499E+00 1.35779E+00 + 1.58426E+02 -2.35585E-04 1.58426E+02 -2.35585E-04 8.79410E-01 + 1.83867E-03 8.79410E-01 1.83867E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 1.94876E+00 1.35768E+00 1.94876E+00 + 1.35768E+00 1.58411E+02 0.00000E+00 1.58411E+02 0.00000E+00 + 8.79616E-01 1.83223E-03 8.79616E-01 1.83223E-03 1.00000E+00 + 0.00000E+00 9.99965E+00 0.00000E+00 1.94134E+00 1.35793E+00 + 1.94134E+00 1.35793E+00 1.58421E+02 0.00000E+00 1.58421E+02 + 0.00000E+00 8.79844E-01 1.82497E-03 8.79844E-01 1.82497E-03 + 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 1.94134E+00 + 1.35793E+00 1.94134E+00 1.35793E+00 1.58421E+02 0.00000E+00 + 1.58421E+02 0.00000E+00 8.79844E-01 1.82497E-03 8.79844E-01 + 1.82497E-03 1.00000E+00 0.00000E+00 1.00002E+01 0.00000E+00 + 3.20300E-03 2.66403E+00 1.54279E+01 + 4.30110E-01 2.12282E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.69591E-05 -2.36602E-05 1.00000E+00 -2.73711E-06 + 4.30110E-01 2.12282E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.69591E-05 -2.36602E-05 1.00000E+00 -2.73711E-06 + 4.30005E-01 2.17101E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.69284E-05 -2.22506E-05 1.00009E+00 -4.24015E-03 + 4.29117E-01 2.27360E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.67511E-05 -2.02035E-05 1.00012E+00 -4.51970E-03 + 4.27477E-01 2.38191E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.64708E-05 -1.83523E-05 1.00016E+00 -4.81672E-03 + 4.25005E-01 2.49623E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.61086E-05 -1.66769E-05 1.00023E+00 -5.13766E-03 + 4.21612E-01 2.61696E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.56825E-05 -1.51610E-05 1.00033E+00 -5.47973E-03 + 4.17424E-01 2.73805E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.51600E-05 -1.36502E-05 1.00087E+00 -7.04209E-03 + 4.15124E-01 2.79404E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.40645E-05 -1.09828E-05 1.00686E+00 -2.16256E-02 + 4.08952E-01 2.92384E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.36518E-05 -1.01148E-05 1.00756E+00 -2.30969E-02 + 4.01600E-01 3.05991E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.32222E-05 -9.31978E-06 1.00841E+00 -2.46694E-02 + 3.92977E-01 3.20241E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 1.27812E-05 -8.59095E-06 1.00942E+00 -2.63513E-02 + 3.88057E-01 3.27584E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 7.96424E-05 -1.08391E-04 1.01868E+00 -4.01632E-02 + 3.80805E-01 3.37454E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.02574E+00 -4.97802E-02 + 3.69293E-01 3.51852E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.02841E+00 -5.31100E-02 + 3.56430E-01 3.66732E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.03146E+00 -5.66439E-02 + 3.42160E-01 3.82088E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.03494E+00 -6.03902E-02 + 3.26441E-01 3.97903E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.03888E+00 -6.43563E-02 + 3.15829E-01 4.07925E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.05155E+00 -7.63191E-02 + 3.10005E-01 4.13107E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.07129E+00 -9.38902E-02 + 2.92736E-01 4.27637E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.07828E+00 -9.97664E-02 + 2.74439E-01 4.42237E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.08599E+00 -1.05915E-01 + 2.55180E-01 4.56847E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.09444E+00 -1.12331E-01 + 2.52401E-01 4.58857E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.12128E+00 -1.31737E-01 + 2.35092E-01 4.70812E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.13324E+00 -1.39999E-01 + 2.16646E-01 4.83006E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.14507E+00 -1.47819E-01 + 2.06854E-01 4.89215E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.16547E+00 -1.60753E-01 + 1.99178E-01 4.93888E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.18730E+00 -1.74047E-01 + 1.84012E-01 5.02774E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.20222E+00 -1.82785E-01 + 1.87348E-01 5.00890E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.23150E+00 -1.99310E-01 + 1.85334E-01 5.01987E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.25456E+00 -2.11867E-01 + 1.77834E-01 5.05930E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.27198E+00 -2.21026E-01 + 1.72766E-01 5.08508E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.28979E+00 -2.30087E-01 + 1.75131E-01 5.07346E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.31088E+00 -2.40470E-01 + 1.91282E-01 4.99640E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.33826E+00 -2.53529E-01 + 1.97859E-01 4.96594E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.35645E+00 -2.61950E-01 + 2.08453E-01 4.91834E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.37431E+00 -2.69976E-01 + 2.59449E-01 4.69569E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.41108E+00 -2.86031E-01 + 2.91302E-01 4.56046E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.43209E+00 -2.94950E-01 + 3.19946E-01 4.44209E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.44729E+00 -3.01229E-01 + 3.53720E-01 4.30618E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.46107E+00 -3.06776E-01 + 3.92712E-01 4.15324E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.47322E+00 -3.11541E-01 + 4.36941E-01 3.98407E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.48350E+00 -3.15473E-01 + 4.95672E-01 3.76486E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.49545E+00 -3.19933E-01 + 5.58593E-01 3.53558E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50423E+00 -3.23133E-01 + 6.19003E-01 3.32050E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50740E+00 -3.24263E-01 + 6.84001E-01 3.09435E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50794E+00 -3.24450E-01 + 7.57744E-01 2.84338E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50722E+00 -3.24205E-01 + 8.66147E-01 2.48245E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.51316E+00 -3.26181E-01 + 9.44116E-01 2.22833E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50443E+00 -3.23338E-01 + 1.02480E+00 1.97081E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.49278E+00 -3.19617E-01 + 1.10762E+00 1.71181E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.47821E+00 -3.15061E-01 + 1.19206E+00 1.45303E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.46081E+00 -3.09728E-01 + 1.27752E+00 1.19620E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.44067E+00 -3.03676E-01 + 1.29316E+00 1.15009E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.40167E+00 -2.92179E-01 + 1.36658E+00 9.37708E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.37544E+00 -2.84593E-01 + 1.45108E+00 6.97789E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.34974E+00 -2.77295E-01 + 1.53488E+00 4.64146E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.32197E+00 -2.69554E-01 + 1.63917E+00 1.78526E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.29642E+00 -2.62557E-01 + 1.75000E+00 -1.19691E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.27004E+00 -2.55458E-01 + 1.82861E+00 -3.27589E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.23628E+00 -2.46530E-01 + 1.90450E+00 -5.24893E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.20131E+00 -2.37437E-01 + 4.69002E+00 -7.64746E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.57823E+00 -3.33816E-01 + 1.88059E+00 -5.80879E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.08247E+00 -2.09116E-01 + 1.92903E+00 -7.00768E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.04566E+00 -2.00006E-01 + 1.97358E+00 -8.09296E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.00870E+00 -1.91003E-01 + 2.01429E+00 -9.06906E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 9.71766E-01 -1.82146E-01 + 2.05110E+00 -9.93835E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 9.35012E-01 -1.73467E-01 + 2.08403E+00 -1.07044E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 8.98582E-01 -1.64995E-01 + 2.11320E+00 -1.13724E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 8.62616E-01 -1.56754E-01 + 2.13863E+00 -1.19467E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 8.27221E-01 -1.48763E-01 + 2.16044E+00 -1.24320E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 7.92498E-01 -1.41037E-01 + 2.17878E+00 -1.28341E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 7.58538E-01 -1.33588E-01 + 2.19143E+00 -1.31076E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 7.25213E-01 -1.26381E-01 + 2.20323E+00 -1.33594E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 6.92998E-01 -1.19510E-01 + 2.21265E+00 -1.35576E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 6.61777E-01 -1.12942E-01 + 2.21850E+00 -1.36790E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 6.31469E-01 -1.06652E-01 + 2.20533E+00 -1.34095E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 6.01065E-01 -1.00425E-01 + 2.37876E+00 -1.69144E-01 0.00000E+00 0.00000E+00 -1.68555E-01 + 3.40658E-02 -1.68555E-01 3.40658E-02 4.15399E-01 -6.29014E-02 + 2.22307E+00 -1.38085E-01 0.00000E+00 0.00000E+00 -5.26995E-02 + 1.09536E-02 -5.26995E-02 1.09536E-02 4.93602E-01 -7.85023E-02 + 2.21443E+00 -1.36384E-01 0.00000E+00 0.00000E+00 -3.98943E-02 + 8.43168E-03 -3.98943E-02 8.43168E-03 4.79921E-01 -7.58078E-02 + 2.21308E+00 -1.36120E-01 0.00000E+00 0.00000E+00 -3.94062E-02 + 8.33676E-03 -3.94062E-02 8.33676E-03 4.55503E-01 -7.10595E-02 + 2.21390E+00 -1.36279E-01 0.00000E+00 0.00000E+00 -4.32719E-02 + 9.07914E-03 -4.32719E-02 9.07914E-03 4.27920E-01 -6.57623E-02 + 2.21325E+00 -1.36156E-01 0.00000E+00 0.00000E+00 -5.11014E-02 + 1.05642E-02 -5.11014E-02 1.05642E-02 3.97320E-01 -5.99582E-02 + 2.22182E+00 -1.37761E-01 0.00000E+00 0.00000E+00 -6.37895E-02 + 1.29417E-02 -6.37895E-02 1.29417E-02 3.63281E-01 -5.35799E-02 + 2.23582E+00 -1.40351E-01 0.00000E+00 0.00000E+00 -8.28537E-02 + 1.64710E-02 -8.28537E-02 1.64710E-02 3.23990E-01 -4.63061E-02 + 2.26001E+00 -1.44779E-01 0.00000E+00 0.00000E+00 -1.09108E-01 + 2.12738E-02 -1.09108E-01 2.12738E-02 2.78751E-01 -3.80303E-02 + 2.28498E+00 -1.49292E-01 0.00000E+00 0.00000E+00 -1.38107E-01 + 2.65166E-02 -1.38107E-01 2.65166E-02 2.31528E-01 -2.94929E-02 + 2.28105E+00 -1.48589E-01 0.00000E+00 0.00000E+00 -1.47983E-01 + 2.82814E-02 -1.47983E-01 2.82814E-02 2.03074E-01 -2.44083E-02 + 2.17891E+00 -1.30548E-01 0.00000E+00 0.00000E+00 -9.07965E-02 + 1.81794E-02 -9.07965E-02 1.81794E-02 2.39144E-01 -3.07801E-02 + 1.95480E+00 -9.14072E-02 0.00000E+00 0.00000E+00 5.12923E-02 + -6.63643E-03 5.12923E-02 -6.63643E-03 3.57513E-01 -5.14533E-02 + 1.75361E+00 -5.66625E-02 0.00000E+00 0.00000E+00 1.79255E-01 + -2.87349E-02 1.79255E-01 -2.87349E-02 4.64427E-01 -6.99166E-02 + 1.70282E+00 -4.79869E-02 0.00000E+00 0.00000E+00 2.03553E-01 + -3.28847E-02 2.03553E-01 -3.28847E-02 4.73771E-01 -7.15125E-02 + 1.74496E+00 -5.51080E-02 0.00000E+00 0.00000E+00 1.61483E-01 + -2.57785E-02 1.61483E-01 -2.57785E-02 4.20153E-01 -6.24557E-02 + 1.80111E+00 -6.44863E-02 0.00000E+00 0.00000E+00 1.10638E-01 + -1.72830E-02 1.10638E-01 -1.72830E-02 3.58487E-01 -5.21522E-02 + 1.83879E+00 -7.07150E-02 0.00000E+00 0.00000E+00 7.12598E-02 + -1.07741E-02 7.12598E-02 -1.07741E-02 3.08128E-01 -4.38282E-02 + 1.85995E+00 -7.41763E-02 0.00000E+00 0.00000E+00 4.35932E-02 + -6.24943E-03 4.35932E-02 -6.24943E-03 2.69471E-01 -3.75063E-02 + 1.86920E+00 -7.56739E-02 0.00000E+00 0.00000E+00 2.33181E-02 + -2.96840E-03 2.33181E-02 -2.96840E-03 2.38381E-01 -3.24751E-02 + 1.87514E+00 -7.66241E-02 0.00000E+00 0.00000E+00 5.96069E-03 + -1.88663E-04 5.96069E-03 -1.88663E-04 2.10607E-01 -2.80271E-02 + 1.88309E+00 -7.78845E-02 0.00000E+00 0.00000E+00 -1.30038E-02 + 2.81723E-03 -1.30038E-02 2.81723E-03 1.81728E-01 -2.34497E-02 + 1.89922E+00 -8.04146E-02 0.00000E+00 0.00000E+00 -3.80461E-02 + 6.74611E-03 -3.80461E-02 6.74611E-03 1.47360E-01 -1.80578E-02 + 1.91752E+00 -8.32561E-02 0.00000E+00 0.00000E+00 -6.45438E-02 + 1.08615E-02 -6.45438E-02 1.08615E-02 1.11972E-01 -1.25616E-02 + 1.86949E+00 -7.58725E-02 0.00000E+00 0.00000E+00 -4.32999E-02 + 7.59495E-03 -4.32999E-02 7.59495E-03 1.23601E-01 -1.43497E-02 + 1.71351E+00 -5.21231E-02 0.00000E+00 0.00000E+00 5.71026E-02 + -7.69081E-03 5.71026E-02 -7.69081E-03 2.13243E-01 -2.79972E-02 + 1.64702E+00 -4.21016E-02 0.00000E+00 0.00000E+00 9.36926E-02 + -1.32070E-02 9.36926E-02 -1.32070E-02 2.41199E-01 -3.22118E-02 + 1.68143E+00 -4.72387E-02 0.00000E+00 0.00000E+00 5.60418E-02 + -7.58580E-03 5.60418E-02 -7.58580E-03 1.96843E-01 -2.55897E-02 + 1.72754E+00 -5.40579E-02 0.00000E+00 0.00000E+00 1.09297E-02 + -9.15210E-04 1.09297E-02 -9.15210E-04 1.45431E-01 -1.79875E-02 + 1.75943E+00 -5.87275E-02 0.00000E+00 0.00000E+00 -2.45428E-02 + 4.28023E-03 -2.45428E-02 4.28023E-03 1.03699E-01 -1.18753E-02 + 1.68394E+00 -4.77776E-02 0.00000E+00 0.00000E+00 1.94550E-02 + -2.10325E-03 1.94550E-02 -2.10325E-03 1.40419E-01 -1.72028E-02 + 1.59570E+00 -3.50908E-02 0.00000E+00 0.00000E+00 7.34181E-02 + -9.85960E-03 7.34181E-02 -9.85960E-03 1.87413E-01 -2.39574E-02 + 1.61643E+00 -3.80448E-02 0.00000E+00 0.00000E+00 4.73132E-02 + -6.14206E-03 4.73132E-02 -6.14206E-03 1.55930E-01 -1.94741E-02 + 1.63158E+00 -4.01816E-02 0.00000E+00 0.00000E+00 2.57457E-02 + -3.09878E-03 2.57457E-02 -3.09878E-03 1.29154E-01 -1.56958E-02 + 1.62999E+00 -3.99590E-02 0.00000E+00 0.00000E+00 1.60764E-02 + -1.74675E-03 1.60764E-02 -1.74675E-03 1.14345E-01 -1.36250E-02 + 1.62278E+00 -3.89607E-02 0.00000E+00 0.00000E+00 1.16235E-02 + -1.12972E-03 1.16235E-02 -1.12972E-03 1.04947E-01 -1.23229E-02 + 1.61244E+00 -3.75406E-02 0.00000E+00 0.00000E+00 9.36600E-03 + -8.19679E-04 9.36600E-03 -8.19679E-04 9.79608E-02 -1.13634E-02 + 1.60129E+00 -3.60233E-02 0.00000E+00 0.00000E+00 8.12179E-03 + -6.50312E-04 8.12179E-03 -6.50312E-04 9.22165E-02 -1.05814E-02 + 1.58977E+00 -3.44676E-02 0.00000E+00 0.00000E+00 7.38981E-03 + -5.51542E-04 7.38981E-03 -5.51542E-04 8.72062E-02 -9.90536E-03 + 1.57851E+00 -3.29611E-02 0.00000E+00 0.00000E+00 6.93779E-03 + -4.91076E-04 6.93779E-03 -4.91076E-04 8.26923E-02 -9.30154E-03 + 1.56692E+00 -3.14254E-02 0.00000E+00 0.00000E+00 6.64539E-03 + -4.52299E-04 6.64539E-03 -4.52299E-04 7.85391E-02 -8.75078E-03 + 1.55606E+00 -2.99966E-02 0.00000E+00 0.00000E+00 6.45035E-03 + -4.26652E-04 6.45035E-03 -4.26652E-04 7.46822E-02 -8.24365E-03 + 1.54525E+00 -2.85858E-02 0.00000E+00 0.00000E+00 6.31380E-03 + -4.08850E-04 6.31380E-03 -4.08850E-04 7.10675E-02 -7.77240E-03 + 1.53490E+00 -2.72506E-02 0.00000E+00 0.00000E+00 6.21397E-03 + -3.95947E-04 6.21397E-03 -3.95947E-04 6.76674E-02 -7.33283E-03 + 1.52514E+00 -2.59983E-02 0.00000E+00 0.00000E+00 6.13694E-03 + -3.86072E-04 6.13694E-03 -3.86072E-04 6.44585E-02 -6.92142E-03 + 1.51466E+00 -2.46647E-02 0.00000E+00 0.00000E+00 6.07060E-03 + -3.77635E-04 6.07060E-03 -3.77635E-04 6.14138E-02 -6.53428E-03 + 1.50559E+00 -2.35226E-02 0.00000E+00 0.00000E+00 6.01379E-03 + -3.70472E-04 6.01379E-03 -3.70472E-04 5.85353E-02 -6.17128E-03 + 1.49650E+00 -2.23844E-02 0.00000E+00 0.00000E+00 5.95918E-03 + -3.63643E-04 5.95918E-03 -3.63643E-04 5.58007E-02 -5.82920E-03 + 1.48780E+00 -2.13048E-02 0.00000E+00 0.00000E+00 5.90535E-03 + -3.56961E-04 5.90535E-03 -3.56961E-04 5.32027E-02 -5.50685E-03 + 1.47928E+00 -2.02562E-02 0.00000E+00 0.00000E+00 5.84986E-03 + -3.50128E-04 5.84986E-03 -3.50128E-04 5.07319E-02 -5.20271E-03 + 1.47125E+00 -1.92762E-02 0.00000E+00 0.00000E+00 5.79225E-03 + -3.43096E-04 5.79225E-03 -3.43096E-04 4.83817E-02 -4.91572E-03 + 1.46338E+00 -1.83217E-02 0.00000E+00 0.00000E+00 5.73144E-03 + -3.35728E-04 5.73144E-03 -3.35728E-04 4.61444E-02 -4.64463E-03 + 1.45597E+00 -1.74313E-02 0.00000E+00 0.00000E+00 5.66742E-03 + -3.28033E-04 5.66742E-03 -3.28033E-04 4.40146E-02 -4.38860E-03 + 1.44867E+00 -1.65597E-02 0.00000E+00 0.00000E+00 5.59954E-03 + -3.19934E-04 5.59954E-03 -3.19934E-04 4.19852E-02 -4.14653E-03 + 1.44178E+00 -1.57450E-02 0.00000E+00 0.00000E+00 5.52844E-03 + -3.11518E-04 5.52844E-03 -3.11518E-04 4.00523E-02 -3.91773E-03 + 1.43514E+00 -1.49650E-02 0.00000E+00 0.00000E+00 5.45373E-03 + -3.02741E-04 5.45373E-03 -3.02741E-04 3.82102E-02 -3.70134E-03 + 1.42863E+00 -1.42056E-02 0.00000E+00 0.00000E+00 5.37553E-03 + -2.93625E-04 5.37553E-03 -2.93625E-04 3.64536E-02 -3.49656E-03 + 1.42262E+00 -1.35104E-02 0.00000E+00 0.00000E+00 5.29490E-03 + -2.84297E-04 5.29490E-03 -2.84297E-04 3.47805E-02 -3.30297E-03 + 1.41667E+00 -1.28279E-02 0.00000E+00 0.00000E+00 5.21123E-03 + -2.74684E-04 5.21123E-03 -2.74684E-04 3.31846E-02 -3.11968E-03 + 1.41104E+00 -1.21862E-02 0.00000E+00 0.00000E+00 5.12521E-03 + -2.64881E-04 5.12521E-03 -2.64881E-04 3.16632E-02 -2.94625E-03 + 1.40560E+00 -1.15701E-02 0.00000E+00 0.00000E+00 5.03690E-03 + -2.54888E-04 5.03690E-03 -2.54888E-04 3.02122E-02 -2.78205E-03 + 1.40059E+00 -1.10072E-02 0.00000E+00 0.00000E+00 4.94751E-03 + -2.44845E-04 4.94751E-03 -2.44845E-04 2.88296E-02 -2.62673E-03 + 1.39583E+00 -1.04777E-02 0.00000E+00 0.00000E+00 4.85640E-03 + -2.34686E-04 4.85640E-03 -2.34686E-04 2.75111E-02 -2.47968E-03 + 1.39024E+00 -9.85787E-03 0.00000E+00 0.00000E+00 4.76195E-03 + -2.24226E-04 4.76195E-03 -2.24226E-04 2.62495E-02 -2.33999E-03 + 1.38610E+00 -9.40360E-03 0.00000E+00 0.00000E+00 4.66927E-03 + -2.14039E-04 4.66927E-03 -2.14039E-04 2.50513E-02 -2.20827E-03 + 1.38183E+00 -8.93632E-03 0.00000E+00 0.00000E+00 4.57509E-03 + -2.03759E-04 4.57509E-03 -2.03759E-04 2.39071E-02 -2.08337E-03 + 1.37773E+00 -8.49322E-03 0.00000E+00 0.00000E+00 4.48050E-03 + -1.93506E-04 4.48050E-03 -1.93506E-04 2.28158E-02 -1.96509E-03 + 1.37435E+00 -8.12723E-03 0.00000E+00 0.00000E+00 4.38667E-03 + -1.83405E-04 4.38667E-03 -1.83405E-04 2.17767E-02 -1.85324E-03 + 1.36888E+00 -7.54410E-03 0.00000E+00 0.00000E+00 4.28836E-03 + -1.72896E-04 4.28836E-03 -1.72896E-04 2.07781E-02 -1.74651E-03 + 1.36607E+00 -7.24443E-03 0.00000E+00 0.00000E+00 4.19517E-03 + -1.63006E-04 4.19517E-03 -1.63006E-04 1.98338E-02 -1.64627E-03 + 1.36259E+00 -6.87844E-03 0.00000E+00 0.00000E+00 4.10088E-03 + -1.53063E-04 4.10088E-03 -1.53063E-04 1.89307E-02 -1.55106E-03 + 1.35932E+00 -6.53626E-03 0.00000E+00 0.00000E+00 4.00694E-03 + -1.43229E-04 4.00694E-03 -1.43229E-04 1.80692E-02 -1.46085E-03 + 1.35613E+00 -6.20531E-03 0.00000E+00 0.00000E+00 3.91358E-03 + -1.33518E-04 3.91358E-03 -1.33518E-04 1.72474E-02 -1.37537E-03 + 1.35340E+00 -5.92208E-03 0.00000E+00 0.00000E+00 3.82179E-03 + -1.24035E-04 3.82179E-03 -1.24035E-04 1.64645E-02 -1.29450E-03 + 1.34945E+00 -5.51738E-03 0.00000E+00 0.00000E+00 3.72803E-03 + -1.14414E-04 3.72803E-03 -1.14414E-04 1.57138E-02 -1.21745E-03 + 1.34732E+00 -5.29861E-03 0.00000E+00 0.00000E+00 3.63865E-03 + -1.05302E-04 3.63865E-03 -1.05302E-04 1.50026E-02 -1.14494E-03 + 1.34464E+00 -5.02825E-03 0.00000E+00 0.00000E+00 3.54928E-03 + -9.62503E-05 3.54928E-03 -9.62503E-05 1.43224E-02 -1.07607E-03 + 1.34212E+00 -4.77438E-03 0.00000E+00 0.00000E+00 3.46081E-03 + -8.73478E-05 3.46081E-03 -8.73478E-05 1.36736E-02 -1.01078E-03 + 1.33991E+00 -4.55375E-03 0.00000E+00 0.00000E+00 3.37416E-03 + -7.86885E-05 3.37416E-03 -7.86885E-05 1.30552E-02 -9.48975E-04 + 1.33687E+00 -4.25213E-03 0.00000E+00 0.00000E+00 3.28700E-03 + -7.00280E-05 3.28700E-03 -7.00280E-05 1.24631E-02 -8.90158E-04 + 1.33506E+00 -4.07367E-03 0.00000E+00 0.00000E+00 3.20333E-03 + -6.17724E-05 3.20333E-03 -6.17724E-05 1.19012E-02 -8.34702E-04 + 1.33299E+00 -3.86958E-03 0.00000E+00 0.00000E+00 3.12030E-03 + -5.36300E-05 3.12030E-03 -5.36300E-05 1.13640E-02 -7.82036E-04 + 1.33093E+00 -3.66911E-03 0.00000E+00 0.00000E+00 3.03857E-03 + -4.56700E-05 3.03857E-03 -4.56700E-05 1.08516E-02 -7.32106E-04 + 1.32912E+00 -3.49434E-03 0.00000E+00 0.00000E+00 2.95858E-03 + -3.79248E-05 2.95858E-03 -3.79248E-05 1.03631E-02 -6.84806E-04 + 1.32713E+00 -3.30312E-03 0.00000E+00 0.00000E+00 2.87951E-03 + -3.03173E-05 2.87951E-03 -3.03173E-05 9.89632E-03 -6.39897E-04 + 1.32540E+00 -3.13760E-03 0.00000E+00 0.00000E+00 2.80250E-03 + -2.29499E-05 2.80250E-03 -2.29499E-05 9.45176E-03 -5.97384E-04 + 1.32379E+00 -2.98490E-03 0.00000E+00 0.00000E+00 2.72668E-03 + -1.57475E-05 2.72668E-03 -1.57475E-05 9.02742E-03 -5.57051E-04 + 1.32213E+00 -2.82678E-03 0.00000E+00 0.00000E+00 2.65238E-03 + -8.72521E-06 2.65238E-03 -8.72521E-06 8.62236E-03 -5.18793E-04 + 1.32075E+00 -2.69804E-03 0.00000E+00 0.00000E+00 2.57985E-03 + -1.91818E-06 2.57985E-03 -1.91818E-06 8.23631E-03 -4.82555E-04 + 1.31937E+00 -2.56930E-03 0.00000E+00 0.00000E+00 2.50869E-03 + 4.72002E-06 2.50869E-03 4.72002E-06 7.86785E-03 -4.48168E-04 + 1.31761E+00 -2.40558E-03 0.00000E+00 0.00000E+00 2.43811E-03 + 1.12683E-05 2.43811E-03 1.12683E-05 7.51514E-03 -4.15456E-04 + 1.31651E+00 -2.30446E-03 0.00000E+00 0.00000E+00 2.37033E-03 + 1.75187E-05 2.37033E-03 1.75187E-05 7.18006E-03 -3.84563E-04 + 1.31545E+00 -2.20699E-03 0.00000E+00 0.00000E+00 2.30363E-03 + 2.36324E-05 2.30363E-03 2.36324E-05 6.85988E-03 -3.55219E-04 + 1.31446E+00 -2.11684E-03 0.00000E+00 0.00000E+00 2.23859E-03 + 2.95554E-05 2.23859E-03 2.95554E-05 6.55459E-03 -3.27404E-04 + 1.31260E+00 -1.94950E-03 0.00000E+00 0.00000E+00 2.17328E-03 + 3.54720E-05 2.17328E-03 3.54720E-05 6.26117E-03 -3.00828E-04 + 1.31177E+00 -1.87410E-03 0.00000E+00 0.00000E+00 2.11103E-03 + 4.10757E-05 2.11103E-03 4.10757E-05 5.98300E-03 -2.75780E-04 + 1.31092E+00 -1.79683E-03 -2.65817E-07 2.37965E-08 2.04977E-03 + 4.65601E-05 2.04977E-03 4.65601E-05 5.71704E-03 -2.51968E-04 + 1.31001E+00 -1.71593E-03 -9.71975E-06 8.65249E-07 1.98060E-03 + 5.27176E-05 1.98060E-03 5.27176E-05 5.45367E-03 -2.28529E-04 + 1.30918E+00 -1.64420E-03 -1.63430E-05 1.45138E-06 1.91557E-03 + 5.84722E-05 1.91557E-03 5.84722E-05 5.20469E-03 -2.06495E-04 + 1.30794E+00 -1.53383E-03 -2.07868E-05 1.84238E-06 1.85312E-03 + 6.39672E-05 1.85312E-03 6.39672E-05 4.96777E-03 -1.85648E-04 + 1.30720E+00 -1.46948E-03 -2.43385E-05 2.15313E-06 1.79366E-03 + 6.91695E-05 1.79366E-03 6.91695E-05 4.74307E-03 -1.65987E-04 + 1.30648E+00 -1.40695E-03 -2.73475E-05 2.41491E-06 1.73605E-03 + 7.41840E-05 1.73605E-03 7.41840E-05 4.52880E-03 -1.47344E-04 + 1.30581E+00 -1.34808E-03 -2.99736E-05 2.64209E-06 1.68010E-03 + 7.90214E-05 1.68010E-03 7.90214E-05 4.32442E-03 -1.29666E-04 + 1.30549E+00 -1.32051E-03 -3.23072E-05 2.84285E-06 1.62607E-03 + 8.36708E-05 1.62607E-03 8.36708E-05 4.12976E-03 -1.12918E-04 + 1.30389E+00 -1.18442E-03 -3.44067E-05 3.02246E-06 1.57101E-03 + 8.83800E-05 1.57101E-03 8.83800E-05 3.94125E-03 -9.67927E-05 + 1.30378E+00 -1.17520E-03 -3.63089E-05 3.18430E-06 1.52007E-03 + 9.27143E-05 1.52007E-03 9.27143E-05 3.76400E-03 -8.17155E-05 + 1.30303E+00 -1.11269E-03 -3.80438E-05 3.33109E-06 1.46894E-03 + 9.70406E-05 1.46894E-03 9.70406E-05 3.59325E-03 -6.72657E-05 + 1.30255E+00 -1.07039E-03 -3.96322E-05 3.46476E-06 1.41963E-03 + 1.01189E-04 1.41963E-03 1.01189E-04 3.43048E-03 -5.35726E-05 + 1.30201E+00 -1.02623E-03 -4.10908E-05 3.58684E-06 1.37147E-03 + 1.05222E-04 1.37147E-03 1.05222E-04 3.27491E-03 -4.05506E-05 + 1.30155E+00 -9.87626E-04 -4.24332E-05 3.69858E-06 1.32419E-03 + 1.09160E-04 1.32419E-03 1.09160E-04 3.12587E-03 -2.81441E-05 + 1.30084E+00 -9.28773E-04 -4.36712E-05 3.80108E-06 1.27770E-03 + 1.13007E-04 1.27770E-03 1.13007E-04 2.98294E-03 -1.63081E-05 + 1.30050E+00 -9.01173E-04 -4.48122E-05 3.89504E-06 1.23273E-03 + 1.16709E-04 1.23273E-03 1.16709E-04 2.84674E-03 -5.08993E-06 + 1.30022E+00 -8.79116E-04 -4.58650E-05 3.98129E-06 1.18901E-03 + 1.20289E-04 1.18901E-03 1.20289E-04 2.71660E-03 5.57135E-06 + 1.29964E+00 -8.31298E-04 -4.68373E-05 4.06051E-06 1.14568E-03 + 1.23823E-04 1.14568E-03 1.23823E-04 2.59125E-03 1.57873E-05 + 1.29916E+00 -7.92664E-04 -4.77334E-05 4.13315E-06 1.10336E-03 + 1.27248E-04 1.10336E-03 1.27248E-04 2.47139E-03 2.54999E-05 + 1.29862E+00 -7.48536E-04 -4.85593E-05 4.19974E-06 1.06171E-03 + 1.30612E-04 1.06171E-03 1.30612E-04 2.35619E-03 3.47895E-05 + 1.29847E+00 -7.37501E-04 -4.93196E-05 4.26073E-06 1.02177E-03 + 1.33813E-04 1.02177E-03 1.33813E-04 2.24670E-03 4.35686E-05 + 1.29812E+00 -7.09914E-04 -5.00163E-05 4.31632E-06 9.82281E-04 + 1.36963E-04 9.82281E-04 1.36963E-04 2.14129E-03 5.19813E-05 + 1.29784E+00 -6.85995E-04 -5.06552E-05 4.36704E-06 9.43473E-04 + 1.40047E-04 9.43473E-04 1.40047E-04 2.04011E-03 6.00159E-05 + 1.29756E+00 -6.63935E-04 -5.12384E-05 4.41310E-06 9.05784E-04 + 1.43023E-04 9.05784E-04 1.43023E-04 1.94330E-03 6.76608E-05 + 1.29727E+00 -6.41865E-04 -5.17691E-05 4.45481E-06 8.68483E-04 + 1.45951E-04 8.68483E-04 1.45951E-04 1.85013E-03 7.49815E-05 + 1.29692E+00 -6.14269E-04 -5.22495E-05 4.49237E-06 8.31918E-04 + 1.48811E-04 8.31918E-04 1.48811E-04 1.76056E-03 8.19849E-05 + 1.29682E+00 -6.06921E-04 -5.26809E-05 4.52593E-06 7.96584E-04 + 1.51561E-04 7.96584E-04 1.51561E-04 1.67501E-03 8.86351E-05 + 1.29650E+00 -5.83012E-04 -5.30672E-05 4.55583E-06 7.61583E-04 + 1.54270E-04 7.61583E-04 1.54270E-04 1.59259E-03 9.50182E-05 + 1.29625E+00 -5.60934E-04 -5.34094E-05 4.58217E-06 7.26858E-04 + 1.56940E-04 7.26858E-04 1.56940E-04 1.51303E-03 1.01148E-04 + 1.29588E+00 -5.35194E-04 -5.37074E-05 4.60500E-06 6.92902E-04 + 1.59543E-04 6.92902E-04 1.59543E-04 1.43644E-03 1.07012E-04 + 1.29577E+00 -5.24159E-04 -5.39669E-05 4.62480E-06 6.60027E-04 + 1.62054E-04 6.60027E-04 1.62054E-04 1.36327E-03 1.12591E-04 + 1.29557E+00 -5.11278E-04 -5.41823E-05 4.64114E-06 6.27545E-04 + 1.64516E-04 6.27545E-04 1.64516E-04 1.29273E-03 1.17948E-04 + 1.29541E+00 -4.98411E-04 -5.43596E-05 4.65453E-06 5.95656E-04 + 1.66925E-04 5.95656E-04 1.66925E-04 1.22482E-03 1.23076E-04 + 1.29524E+00 -4.85537E-04 -5.44988E-05 4.66499E-06 5.64161E-04 + 1.69292E-04 5.64161E-04 1.69292E-04 1.15907E-03 1.28012E-04 + 1.29516E+00 -4.78173E-04 -5.45992E-05 4.67249E-06 5.33577E-04 + 1.71581E-04 5.33577E-04 1.71581E-04 1.09618E-03 1.32715E-04 + 1.29494E+00 -4.61628E-04 -5.46645E-05 4.67735E-06 5.02779E-04 + 1.73868E-04 5.02779E-04 1.73868E-04 1.03481E-03 1.37279E-04 + 1.29482E+00 -4.56110E-04 -5.46909E-05 4.67931E-06 4.73295E-04 + 1.76056E-04 4.73295E-04 1.76056E-04 9.76419E-04 1.41608E-04 + 1.29466E+00 -4.41391E-04 -5.46825E-05 4.67870E-06 4.43690E-04 + 1.78234E-04 4.43690E-04 1.78234E-04 9.19506E-04 1.45801E-04 + 1.29465E+00 -4.41397E-04 -5.46376E-05 4.67540E-06 4.14902E-04 + 1.80349E-04 4.14902E-04 1.80349E-04 8.64690E-04 1.49819E-04 + 1.29435E+00 -4.19327E-04 -5.45579E-05 4.66959E-06 3.86050E-04 + 1.82450E-04 3.86050E-04 1.82450E-04 8.11412E-04 1.53710E-04 + 1.29430E+00 -4.17482E-04 -5.44417E-05 4.66114E-06 3.57940E-04 + 1.84498E-04 3.57940E-04 1.84498E-04 7.60077E-04 1.57439E-04 + 1.29426E+00 -4.13810E-04 -5.42896E-05 4.65013E-06 3.30531E-04 + 1.86477E-04 3.30531E-04 1.86477E-04 7.10718E-04 1.61009E-04 + 1.29406E+00 -3.99097E-04 -5.41044E-05 4.63680E-06 3.02828E-04 + 1.88474E-04 3.02828E-04 1.88474E-04 6.62268E-04 1.64497E-04 + 1.29401E+00 -3.95412E-04 -5.38811E-05 4.62080E-06 2.76042E-04 + 1.90393E-04 2.76042E-04 1.90393E-04 6.15820E-04 1.67824E-04 + 1.29388E+00 -3.86223E-04 -5.36233E-05 4.60243E-06 2.49320E-04 + 1.92299E-04 2.49320E-04 1.92299E-04 5.70483E-04 1.71056E-04 + 1.29391E+00 -3.88062E-04 -5.33288E-05 4.58151E-06 2.23285E-04 + 1.94146E-04 2.23285E-04 1.94146E-04 5.26918E-04 1.74149E-04 + 1.29379E+00 -3.78866E-04 -5.29992E-05 4.55822E-06 1.97134E-04 + 1.95992E-04 1.97134E-04 1.95992E-04 4.84158E-04 1.77173E-04 + 1.29377E+00 -3.77021E-04 -5.26329E-05 4.53246E-06 1.71499E-04 + 1.97796E-04 1.71499E-04 1.97796E-04 4.42885E-04 1.80076E-04 + 1.29368E+00 -3.71509E-04 -5.22311E-05 4.50434E-06 1.46270E-04 + 1.99563E-04 1.46270E-04 1.99563E-04 4.02717E-04 1.82888E-04 + 1.29362E+00 -3.67831E-04 -5.21319E-05 4.49742E-06 1.20809E-04 + 2.01337E-04 1.20809E-04 2.01337E-04 3.63176E-04 1.85643E-04 + 1.29354E+00 -3.60469E-04 -5.09756E-05 4.41718E-06 9.63818E-05 + 2.03030E-04 9.63818E-05 2.03030E-04 3.25526E-04 1.88256E-04 + 1.29347E+00 -3.58635E-04 -5.08062E-05 4.40547E-06 7.17270E-05 + 2.04735E-04 7.17270E-05 2.04735E-04 2.88173E-04 1.90834E-04 + 1.29347E+00 -3.56796E-04 -5.02571E-05 4.36771E-06 4.73008E-05 + 2.06413E-04 4.73008E-05 2.06413E-04 2.51964E-04 1.93327E-04 + 1.29336E+00 -3.49434E-04 -4.96726E-05 4.32770E-06 2.31615E-05 + 2.08069E-04 2.31615E-05 2.08069E-04 2.16557E-04 1.95752E-04 + 1.29335E+00 -3.49439E-04 -4.90499E-05 4.28523E-06 -6.32209E-07 + 2.09689E-04 -6.32209E-07 2.09689E-04 1.82134E-04 1.98097E-04 + 1.29338E+00 -3.49439E-04 -4.83910E-05 4.24054E-06 -2.41964E-05 + 2.11287E-04 -2.41964E-05 2.11287E-04 1.48454E-04 2.00382E-04 + 1.29330E+00 -3.45756E-04 -4.76954E-05 4.19353E-06 -4.76449E-05 + 2.12872E-04 -4.76449E-05 2.12872E-04 1.15520E-04 2.02606E-04 + 1.29332E+00 -3.45761E-04 -4.69638E-05 4.14431E-06 -7.09799E-05 + 2.14445E-04 -7.09799E-05 2.14445E-04 8.32218E-05 2.04782E-04 + 1.29323E+00 -3.42083E-04 -4.61971E-05 4.09296E-06 -9.41992E-05 + 2.15997E-04 -9.41992E-05 2.15997E-04 5.14963E-05 2.06905E-04 + 1.29319E+00 -3.38400E-04 -4.53922E-05 4.03930E-06 -1.17015E-04 + 2.17520E-04 -1.17015E-04 2.17520E-04 2.06327E-05 2.08964E-04 + 1.29321E+00 -3.40244E-04 -4.45560E-05 3.98375E-06 -1.39891E-04 + 2.19035E-04 -1.39891E-04 2.19035E-04 -9.77051E-06 2.10986E-04 + 1.29315E+00 -3.36565E-04 -4.36833E-05 3.92605E-06 -1.62535E-04 + 2.20537E-04 -1.62535E-04 2.20537E-04 -3.95993E-05 2.12958E-04 + 1.29316E+00 -3.36560E-04 -4.27779E-05 3.86645E-06 -1.85062E-04 + 2.22017E-04 -1.85062E-04 2.22017E-04 -6.89673E-05 2.14891E-04 + 1.29312E+00 -3.34726E-04 -4.18390E-05 3.80490E-06 -2.07307E-04 + 2.23475E-04 -2.07307E-04 2.23475E-04 -9.75902E-05 2.16765E-04 + 1.29312E+00 -3.32887E-04 -4.07295E-05 3.73247E-06 -2.29722E-04 + 2.24941E-04 -2.29722E-04 2.24941E-04 -1.26097E-04 2.18626E-04 + 1.29316E+00 -3.34721E-04 -3.97900E-05 3.67141E-06 -2.51558E-04 + 2.26360E-04 -2.51558E-04 2.26360E-04 -1.53682E-04 2.20419E-04 + 1.29315E+00 -3.34726E-04 -3.87740E-05 3.60563E-06 -2.73919E-04 + 2.27804E-04 -2.73919E-04 2.27804E-04 -1.81387E-04 2.22214E-04 + 1.29309E+00 -3.32887E-04 -3.77215E-05 3.53780E-06 -2.95874E-04 + 2.29219E-04 -2.95874E-04 2.29219E-04 -2.08514E-04 2.23960E-04 + 1.29313E+00 -3.34721E-04 -3.49538E-05 3.36011E-06 -3.16043E-04 + 2.30516E-04 -3.16043E-04 2.30516E-04 -2.33512E-04 2.25566E-04 + 1.29309E+00 -3.31048E-04 -3.07313E-05 3.09019E-06 -3.34784E-04 + 2.31716E-04 -3.34784E-04 2.31716E-04 -2.56907E-04 2.27060E-04 + 1.29309E+00 -3.32887E-04 -3.15472E-05 3.14213E-06 -3.58635E-04 + 2.33231E-04 -3.58635E-04 2.33231E-04 -2.84954E-04 2.28849E-04 + 1.29306E+00 -3.29209E-04 -3.07277E-05 3.09016E-06 -3.80763E-04 + 2.34636E-04 -3.80763E-04 2.34636E-04 -3.11219E-04 2.30516E-04 + 1.29313E+00 -3.34721E-04 -2.96452E-05 3.02181E-06 -4.02194E-04 + 2.35990E-04 -4.02194E-04 2.35990E-04 -3.36560E-04 2.32111E-04 + 1.29310E+00 -3.32882E-04 -2.84647E-05 2.94761E-06 -4.24149E-04 + 2.37370E-04 -4.24149E-04 2.37370E-04 -3.62136E-04 2.33720E-04 + 1.29312E+00 -3.32887E-04 -2.72295E-05 2.87023E-06 -4.45708E-04 + 2.38720E-04 -4.45708E-04 2.38720E-04 -3.87142E-04 2.35286E-04 + 1.29318E+00 -3.36565E-04 -2.59691E-05 2.79162E-06 -4.67145E-04 + 2.40060E-04 -4.67145E-04 2.40060E-04 -4.11913E-04 2.36831E-04 + 1.29309E+00 -3.31048E-04 -2.46512E-05 2.70973E-06 -4.89043E-04 + 2.41418E-04 -4.89043E-04 2.41418E-04 -4.36857E-04 2.38379E-04 + 1.29315E+00 -3.34726E-04 -2.33527E-05 2.62939E-06 -5.10365E-04 + 2.42740E-04 -5.10365E-04 2.42740E-04 -4.61053E-04 2.39880E-04 + 1.29312E+00 -3.34726E-04 -2.20699E-05 2.55033E-06 -5.32148E-04 + 2.44080E-04 -5.32148E-04 2.44080E-04 -4.85594E-04 2.41393E-04 + 1.29314E+00 -3.34716E-04 -2.06849E-05 2.46531E-06 -5.53742E-04 + 2.45405E-04 -5.53742E-04 2.45405E-04 -5.09718E-04 2.42873E-04 + 1.29312E+00 -3.34726E-04 -1.93933E-05 2.38633E-06 -5.75196E-04 + 2.46716E-04 -5.75196E-04 2.46716E-04 -5.33642E-04 2.44338E-04 + 1.29315E+00 -3.36565E-04 -1.80992E-05 2.30753E-06 -5.97208E-04 + 2.48056E-04 -5.97208E-04 2.48056E-04 -5.57954E-04 2.45815E-04 + 1.29321E+00 -3.38404E-04 -1.67881E-05 2.22800E-06 -6.18703E-04 + 2.49360E-04 -6.18703E-04 2.49360E-04 -5.81690E-04 2.47255E-04 + 1.29356E+00 -3.60474E-04 -1.54941E-05 2.14982E-06 -6.39509E-04 + 2.50621E-04 -6.39509E-04 2.50621E-04 -6.04565E-04 2.48638E-04 + 1.29291E+00 -3.21852E-04 -1.42359E-05 2.07407E-06 -6.63073E-04 + 2.52040E-04 -6.63073E-04 2.52040E-04 -6.30140E-04 2.50175E-04 + 1.29312E+00 -3.34726E-04 -1.29661E-05 1.99797E-06 -6.84395E-04 + 2.53315E-04 -6.84395E-04 2.53315E-04 -6.53245E-04 2.51562E-04 + 1.29326E+00 -3.42073E-04 -1.17323E-05 1.92430E-06 -7.06387E-04 + 2.54629E-04 -7.06387E-04 2.54629E-04 -6.76961E-04 2.52977E-04 + 1.29326E+00 -3.42083E-04 -1.05145E-05 1.85184E-06 -7.28535E-04 + 2.55944E-04 -7.28535E-04 2.55944E-04 -7.00718E-04 2.54392E-04 + 1.29379E+00 -3.73348E-04 -9.31566E-06 1.78078E-06 -7.49226E-04 + 2.57173E-04 -7.49226E-04 2.57173E-04 -7.23075E-04 2.55714E-04 + 1.29276E+00 -3.14495E-04 -8.15990E-06 1.71256E-06 -7.74284E-04 + 2.58653E-04 -7.74284E-04 2.58653E-04 -7.49571E-04 2.57281E-04 + 1.29424E+00 -3.99097E-04 -6.99516E-06 1.64406E-06 -7.92848E-04 + 2.59741E-04 -7.92848E-04 2.59741E-04 -7.69456E-04 2.58448E-04 + 1.29241E+00 -2.92426E-04 -5.90496E-06 1.58019E-06 -8.20435E-04 + 2.61361E-04 -8.20435E-04 2.61361E-04 -7.98423E-04 2.60147E-04 + 1.29358E+00 -3.60464E-04 -4.79576E-06 1.51546E-06 -8.39894E-04 + 2.62492E-04 -8.39894E-04 2.62492E-04 -8.18975E-04 2.61350E-04 + 1.29312E+00 -3.34726E-04 -3.73938E-06 1.45401E-06 -8.64173E-04 + 2.63912E-04 -8.64173E-04 2.63912E-04 -8.44632E-04 2.62838E-04 + 1.29447E+00 -4.11971E-04 -2.68465E-06 1.39295E-06 -8.82909E-04 + 2.64996E-04 -8.82909E-04 2.64996E-04 -8.64403E-04 2.63983E-04 + 1.29285E+00 -3.20013E-04 -1.69233E-06 1.33564E-06 -9.10726E-04 + 2.66598E-04 -9.10726E-04 2.66598E-04 -8.93255E-04 2.65650E-04 + 1.29394E+00 -3.80705E-04 -7.01357E-07 1.27868E-06 -9.31072E-04 + 2.67769E-04 -9.31072E-04 2.67769E-04 -9.14635E-04 2.66875E-04 + 1.29244E+00 -2.96104E-04 2.26302E-07 1.22555E-06 -9.58545E-04 + 2.69343E-04 -9.58545E-04 2.69343E-04 -9.43027E-04 2.68502E-04 + 1.29364E+00 -3.64142E-04 1.17009E-06 1.17169E-06 -9.78861E-04 + 2.70499E-04 -9.78861E-04 2.70499E-04 -9.64034E-04 2.69705E-04 + 1.29403E+00 -3.86223E-04 2.07129E-06 1.12045E-06 -1.00096E-03 + 2.71757E-04 -1.00096E-03 2.71757E-04 -9.87051E-04 2.71013E-04 + 1.29288E+00 -3.21852E-04 2.91948E-06 1.07241E-06 -1.02855E-03 + 2.73319E-04 -1.02855E-03 2.73319E-04 -1.01544E-03 2.72619E-04 + 1.29400E+00 -3.84383E-04 3.77619E-06 1.02403E-06 -1.04889E-03 + 2.74465E-04 -1.04889E-03 2.74465E-04 -1.03648E-03 2.73808E-04 + 1.29350E+00 -3.54957E-04 4.57723E-06 9.78987E-07 -1.07476E-03 + 2.75924E-04 -1.07476E-03 2.75924E-04 -1.06315E-03 2.75306E-04 + 1.29403E+00 -3.86223E-04 5.36929E-06 9.34619E-07 -1.09740E-03 + 2.77188E-04 -1.09740E-03 2.77188E-04 -1.08625E-03 2.76606E-04 + 1.29355E+00 -3.60464E-04 6.13064E-06 8.92105E-07 -1.12312E-03 + 2.78627E-04 -1.12312E-03 2.78627E-04 -1.11266E-03 2.78078E-04 + 1.29309E+00 -3.32887E-04 6.83576E-06 8.52871E-07 -1.14936E-03 + 2.80083E-04 -1.14936E-03 2.80083E-04 -1.13947E-03 2.79570E-04 + 1.29394E+00 -3.80705E-04 7.57394E-06 8.11955E-07 -1.17120E-03 + 2.81297E-04 -1.17120E-03 2.81297E-04 -1.16189E-03 2.80812E-04 + 1.29400E+00 -3.82544E-04 8.24387E-06 7.74967E-07 -1.19649E-03 + 2.82691E-04 -1.19649E-03 2.82691E-04 -1.18775E-03 2.82238E-04 + 1.29374E+00 -3.69670E-04 8.89898E-06 7.38906E-07 -1.22212E-03 + 2.84106E-04 -1.22212E-03 2.84106E-04 -1.21384E-03 2.83675E-04 + 1.29323E+00 -3.42083E-04 9.52041E-06 7.04837E-07 -1.24890E-03 + 2.85572E-04 -1.24890E-03 2.85572E-04 -1.24108E-03 2.85170E-04 + 1.29400E+00 -3.82544E-04 1.01396E-05 6.70993E-07 -1.27235E-03 + 2.86851E-04 -1.27235E-03 2.86851E-04 -1.26488E-03 2.86470E-04 + 1.29408E+00 -3.88050E-04 1.07275E-05 6.38982E-07 -1.29737E-03 + 2.88222E-04 -1.29737E-03 2.88222E-04 -1.29059E-03 2.87870E-04 + 1.29338E+00 -3.51279E-04 1.12743E-05 6.09310E-07 -1.32546E-03 + 2.89746E-04 -1.32546E-03 2.89746E-04 -1.31902E-03 2.89408E-04 + 1.29406E+00 -3.88062E-04 1.18297E-05 5.79282E-07 -1.34936E-03 + 2.91032E-04 -1.34936E-03 2.91032E-04 -1.34316E-03 2.90716E-04 + 1.29412E+00 -3.89901E-04 1.23478E-05 5.51387E-07 -1.37546E-03 + 2.92440E-04 -1.37546E-03 2.92440E-04 -1.36971E-03 2.92145E-04 + 1.29365E+00 -3.64153E-04 1.28364E-05 5.25148E-07 -1.40328E-03 + 2.93934E-04 -1.40328E-03 2.93934E-04 -1.39776E-03 2.93654E-04 + 1.29424E+00 -3.95418E-04 1.33271E-05 4.98881E-07 -1.42845E-03 + 2.95278E-04 -1.42845E-03 2.95278E-04 -1.42328E-03 2.95019E-04 + 1.29376E+00 -3.69659E-04 1.37748E-05 4.75013E-07 -1.45645E-03 + 2.96771E-04 -1.45645E-03 2.96771E-04 -1.45151E-03 2.96526E-04 + 1.29409E+00 -3.88062E-04 1.42207E-05 4.51314E-07 -1.48236E-03 + 2.98151E-04 -1.48236E-03 2.98151E-04 -1.47765E-03 2.97914E-04 + 1.29424E+00 -3.95418E-04 1.46468E-05 4.28751E-07 -1.50926E-03 + 2.99574E-04 -1.50926E-03 2.99574E-04 -1.50500E-03 2.99358E-04 + 1.29397E+00 -3.82544E-04 1.50469E-05 4.07647E-07 -1.53742E-03 + 3.01061E-04 -1.53742E-03 3.01061E-04 -1.53340E-03 3.00860E-04 + 1.29432E+00 -4.00936E-04 1.54406E-05 3.86936E-07 -1.56397E-03 + 3.02455E-04 -1.56397E-03 3.02455E-04 -1.56006E-03 3.02261E-04 + 1.29406E+00 -3.86223E-04 1.58061E-05 3.67769E-07 -1.59259E-03 + 3.03956E-04 -1.59259E-03 3.03956E-04 -1.58891E-03 3.03777E-04 + 1.29420E+00 -3.95407E-04 1.61644E-05 3.49041E-07 -1.61990E-03 + 3.05384E-04 -1.61990E-03 3.05384E-04 -1.61645E-03 3.05212E-04 + 1.29429E+00 -3.99097E-04 1.65079E-05 3.31175E-07 -1.64834E-03 + 3.06866E-04 -1.64834E-03 3.06866E-04 -1.64512E-03 3.06708E-04 + 1.29435E+00 -4.02775E-04 1.68371E-05 3.14084E-07 -1.67593E-03 + 3.08296E-04 -1.67593E-03 3.08296E-04 -1.67283E-03 3.08145E-04 + 1.29426E+00 -3.97257E-04 1.71370E-05 2.98593E-07 -1.70524E-03 + 3.09811E-04 -1.70524E-03 3.09811E-04 -1.70225E-03 3.09668E-04 + 1.29459E+00 -4.13810E-04 1.74468E-05 2.82625E-07 -1.73294E-03 + 3.11241E-04 -1.73294E-03 3.11241E-04 -1.73019E-03 3.11105E-04 + 1.29432E+00 -4.00936E-04 1.77248E-05 2.68341E-07 -1.76317E-03 + 3.12793E-04 -1.76317E-03 3.12793E-04 -1.76065E-03 3.12671E-04 + 1.29431E+00 -4.00924E-04 1.79981E-05 2.54358E-07 -1.79209E-03 + 3.14271E-04 -1.79209E-03 3.14271E-04 -1.78967E-03 3.14156E-04 + 1.29447E+00 -4.08292E-04 1.82618E-05 2.40895E-07 -1.82157E-03 + 3.15774E-04 -1.82157E-03 3.15774E-04 -1.81915E-03 3.15659E-04 + 1.29450E+00 -4.10132E-04 1.85101E-05 2.28267E-07 -1.85076E-03 + 3.17261E-04 -1.85076E-03 3.17261E-04 -1.84870E-03 3.17161E-04 + 1.29453E+00 -4.11971E-04 1.87467E-05 2.16284E-07 -1.88100E-03 + 3.18792E-04 -1.88100E-03 3.18792E-04 -1.87881E-03 3.18691E-04 + 1.29462E+00 -4.15649E-04 1.89739E-05 2.04778E-07 -1.91042E-03 + 3.20286E-04 -1.91042E-03 3.20286E-04 -1.90858E-03 3.20193E-04 + 1.29468E+00 -4.17488E-04 1.91953E-05 1.93637E-07 -1.94111E-03 + 3.21823E-04 -1.94111E-03 3.21823E-04 -1.93927E-03 3.21737E-04 + 1.29471E+00 -4.19327E-04 1.93273E-05 1.87014E-07 -1.97157E-03 + 3.23361E-04 -1.97157E-03 3.23361E-04 -1.97008E-03 3.23282E-04 + 1.29470E+00 -4.19315E-04 1.96653E-05 1.70087E-07 -2.00221E-03 + 3.24889E-04 -2.00221E-03 3.24889E-04 -2.00048E-03 3.24810E-04 + 1.29476E+00 -4.23006E-04 1.97848E-05 1.64142E-07 -2.03330E-03 + 3.26436E-04 -2.03330E-03 3.26436E-04 -2.03169E-03 3.26364E-04 + 1.29474E+00 -4.23006E-04 1.99631E-05 1.55274E-07 -2.06468E-03 + 3.28002E-04 -2.06468E-03 3.28002E-04 -2.06342E-03 3.27937E-04 + 1.29482E+00 -4.26684E-04 2.01360E-05 1.46715E-07 -2.09572E-03 + 3.29539E-04 -2.09572E-03 3.29539E-04 -2.09434E-03 3.29475E-04 + 1.29488E+00 -4.28523E-04 2.02981E-05 1.38689E-07 -2.12779E-03 + 3.31120E-04 -2.12779E-03 3.31120E-04 -2.12652E-03 3.31062E-04 + 1.29491E+00 -4.30362E-04 2.04557E-05 1.30943E-07 -2.15951E-03 + 3.32686E-04 -2.15951E-03 3.32686E-04 -2.15836E-03 3.32628E-04 + 1.29499E+00 -4.34028E-04 2.06037E-05 1.23671E-07 -2.19163E-03 + 3.34264E-04 -2.19163E-03 3.34264E-04 -2.19060E-03 3.34213E-04 + 1.29500E+00 -4.34041E-04 2.07403E-05 1.16996E-07 -2.22400E-03 + 3.35847E-04 -2.22400E-03 3.35847E-04 -2.22296E-03 3.35797E-04 + 1.29500E+00 -4.34041E-04 2.08840E-05 1.09980E-07 -2.25699E-03 + 3.37456E-04 -2.25699E-03 3.37456E-04 -2.25607E-03 3.37406E-04 + 1.29509E+00 -4.39558E-04 2.10070E-05 1.04003E-07 -2.28952E-03 + 3.39037E-04 -2.28952E-03 3.39037E-04 -2.28860E-03 3.38994E-04 + 1.29509E+00 -4.39558E-04 2.10973E-05 9.96246E-08 -2.32297E-03 + 3.40653E-04 -2.32297E-03 3.40653E-04 -2.32216E-03 3.40617E-04 + 1.29518E+00 -4.43236E-04 2.12854E-05 9.05321E-08 -2.35619E-03 + 3.42262E-04 -2.35619E-03 3.42262E-04 -2.35527E-03 3.42219E-04 + 1.29517E+00 -4.43223E-04 2.13589E-05 8.69936E-08 -2.38991E-03 + 3.43883E-04 -2.38991E-03 3.43883E-04 -2.38911E-03 3.43847E-04 + 1.29527E+00 -4.46915E-04 2.14641E-05 8.19448E-08 -2.42378E-03 + 3.45510E-04 -2.42378E-03 3.45510E-04 -2.42297E-03 3.45474E-04 + 1.29532E+00 -4.50593E-04 2.15665E-05 7.70337E-08 -2.45803E-03 + 3.47148E-04 -2.45803E-03 3.47148E-04 -2.45734E-03 3.47119E-04 + 1.29532E+00 -4.50593E-04 2.16608E-05 7.25436E-08 -2.49228E-03 + 3.48786E-04 -2.49228E-03 3.48786E-04 -2.49171E-03 3.48757E-04 + 1.29538E+00 -4.52432E-04 2.17533E-05 6.81376E-08 -2.52723E-03 + 3.50445E-04 -2.52723E-03 3.50445E-04 -2.52654E-03 3.50416E-04 + 1.29541E+00 -4.54271E-04 2.18400E-05 6.40404E-08 -2.56171E-03 + 3.52083E-04 -2.56171E-03 3.52083E-04 -2.56114E-03 3.52054E-04 + 1.29549E+00 -4.57936E-04 2.19192E-05 6.02781E-08 -2.59727E-03 + 3.53761E-04 -2.59727E-03 3.53761E-04 -2.59670E-03 3.53740E-04 + 1.29547E+00 -4.57950E-04 2.19998E-05 5.64633E-08 -2.63264E-03 + 3.55431E-04 -2.63264E-03 3.55431E-04 -2.63195E-03 3.55402E-04 + 1.29556E+00 -4.61628E-04 2.20761E-05 5.28993E-08 -2.66827E-03 + 3.57105E-04 -2.66827E-03 3.57105E-04 -2.66781E-03 3.57083E-04 + 1.29565E+00 -4.65306E-04 2.21309E-05 5.03455E-08 -2.70436E-03 + 3.58793E-04 -2.70436E-03 3.58793E-04 -2.70390E-03 3.58772E-04 + 1.29565E+00 -4.65306E-04 2.21857E-05 4.77918E-08 -2.74057E-03 + 3.60489E-04 -2.74057E-03 3.60489E-04 -2.74034E-03 3.60474E-04 + 1.29574E+00 -4.68984E-04 2.22755E-05 4.35823E-08 -2.77724E-03 + 3.62191E-04 -2.77724E-03 3.62191E-04 -2.77666E-03 3.62170E-04 + 1.29574E+00 -4.68984E-04 2.23940E-05 3.81099E-08 -2.81402E-03 + 3.63901E-04 -2.81402E-03 3.63901E-04 -2.81368E-03 3.63887E-04 + 1.29582E+00 -4.72649E-04 2.23566E-05 3.98206E-08 -2.85095E-03 + 3.65615E-04 -2.85095E-03 3.65615E-04 -2.85061E-03 3.65593E-04 + 1.29579E+00 -4.72663E-04 2.24524E-05 3.53878E-08 -2.88897E-03 + 3.67364E-04 -2.88897E-03 3.67364E-04 -2.88862E-03 3.67350E-04 + 1.29588E+00 -4.76341E-04 2.25054E-05 3.29743E-08 -2.92564E-03 + 3.69052E-04 -2.92564E-03 3.69052E-04 -2.92529E-03 3.69038E-04 + 1.29600E+00 -4.81859E-04 2.25683E-05 3.01119E-08 -2.96403E-03 + 3.70812E-04 -2.96403E-03 3.70812E-04 -2.96380E-03 3.70798E-04 + 1.29597E+00 -4.80019E-04 2.26365E-05 2.69407E-08 -3.00219E-03 + 3.72558E-04 -3.00219E-03 3.72558E-04 -3.00208E-03 3.72551E-04 + 1.29612E+00 -4.87376E-04 2.26509E-05 2.63234E-08 -3.04047E-03 + 3.74304E-04 -3.04047E-03 3.74304E-04 -3.04012E-03 3.74290E-04 + 1.29599E+00 -4.81844E-04 2.26933E-05 2.43863E-08 -3.07969E-03 + 3.76089E-04 -3.07969E-03 3.76089E-04 -3.07946E-03 3.76075E-04 + 1.29618E+00 -4.89215E-04 2.27218E-05 2.30961E-08 -3.11875E-03 + 3.77853E-04 -3.11875E-03 3.77853E-04 -3.11840E-03 3.77846E-04 + 1.29618E+00 -4.89215E-04 2.27362E-05 2.24506E-08 -3.15817E-03 + 3.79642E-04 -3.15817E-03 3.79642E-04 -3.15806E-03 3.79635E-04 + 1.29624E+00 -4.92894E-04 2.28188E-05 1.87182E-08 -3.19737E-03 + 3.81409E-04 -3.19737E-03 3.81409E-04 -3.19714E-03 3.81395E-04 + 1.29632E+00 -4.96572E-04 2.28763E-05 1.61364E-08 -3.23737E-03 + 3.83205E-04 -3.23737E-03 3.83205E-04 -3.23726E-03 3.83198E-04 + 1.29638E+00 -4.98411E-04 2.28475E-05 1.74273E-08 -3.27795E-03 + 3.85023E-04 -3.27795E-03 3.85023E-04 -3.27783E-03 3.85016E-04 + 1.29635E+00 -4.98396E-04 2.29079E-05 1.47328E-08 -3.31877E-03 + 3.86843E-04 -3.31877E-03 3.86843E-04 -3.31866E-03 3.86836E-04 + 1.29656E+00 -5.05768E-04 2.29400E-05 1.33020E-08 -3.35876E-03 + 3.88622E-04 -3.35876E-03 3.88622E-04 -3.35853E-03 3.88615E-04 + 1.29641E+00 -5.00250E-04 2.30137E-05 9.99053E-09 -3.40071E-03 + 3.90490E-04 -3.40071E-03 3.90490E-04 -3.40048E-03 3.90483E-04 + 1.29659E+00 -5.07607E-04 2.29948E-05 1.08605E-08 -3.44221E-03 + 3.92329E-04 -3.44221E-03 3.92329E-04 -3.44209E-03 3.92322E-04 + 1.29665E+00 -5.11285E-04 2.30254E-05 9.51345E-09 -3.48324E-03 + 3.94139E-04 -3.48324E-03 3.94139E-04 -3.48313E-03 3.94132E-04 + 1.29662E+00 -5.09446E-04 2.30388E-05 8.92412E-09 -3.52635E-03 + 3.96036E-04 -3.52635E-03 3.96036E-04 -3.52612E-03 3.96029E-04 + 1.29673E+00 -5.14948E-04 2.30705E-05 7.52074E-09 -3.56809E-03 + 3.97871E-04 -3.56809E-03 3.97871E-04 -3.56809E-03 3.97871E-04 + 1.29674E+00 -5.14963E-04 2.30721E-05 7.43677E-09 -3.61072E-03 + 3.99743E-04 -3.61072E-03 3.99743E-04 -3.61072E-03 3.99736E-04 + 1.29682E+00 -5.18642E-04 2.31313E-05 4.88301E-09 -3.65417E-03 + 4.01633E-04 -3.65417E-03 4.01633E-04 -3.65394E-03 4.01625E-04 + 1.29691E+00 -5.22320E-04 2.31394E-05 4.51819E-09 -3.69739E-03 + 4.03515E-04 -3.69739E-03 4.03515E-04 -3.69739E-03 4.03515E-04 + 1.29697E+00 -5.24159E-04 2.31367E-05 4.63044E-09 -3.74107E-03 + 4.05412E-04 -3.74107E-03 4.05412E-04 -3.74084E-03 4.05404E-04 + 1.29700E+00 -5.25998E-04 2.31708E-05 3.14309E-09 -3.78498E-03 + 4.07308E-04 -3.78498E-03 4.07308E-04 -3.78475E-03 4.07301E-04 + 1.29709E+00 -5.29677E-04 2.31933E-05 2.18894E-09 -3.82935E-03 + 4.09226E-04 -3.82935E-03 4.09226E-04 -3.82935E-03 4.09226E-04 + 1.29708E+00 -5.29661E-04 2.32231E-05 8.97998E-10 -3.87384E-03 + 4.11154E-04 -3.87384E-03 4.11154E-04 -3.87407E-03 4.11147E-04 + 1.29721E+00 -5.35194E-04 2.32211E-05 9.82215E-10 -3.91855E-03 + 4.13063E-04 -3.91855E-03 4.13063E-04 -3.91855E-03 4.13063E-04 + 1.29721E+00 -5.35194E-04 2.32346E-05 3.92886E-10 -3.96430E-03 + 4.15024E-04 -3.96430E-03 4.15024E-04 -3.96430E-03 4.15024E-04 + 1.29730E+00 -5.38872E-04 2.32490E-05 -1.96443E-10 -4.01028E-03 + 4.16978E-04 -4.01028E-03 4.16978E-04 -4.00982E-03 4.16971E-04 + 1.29733E+00 -5.40712E-04 2.32633E-05 -7.85772E-10 -4.05580E-03 + 4.18925E-04 -4.05580E-03 4.18925E-04 -4.05580E-03 4.18925E-04 + 1.29741E+00 -5.44390E-04 2.32678E-05 -9.82215E-10 -4.10201E-03 + 4.20893E-04 -4.10201E-03 4.20893E-04 -4.10201E-03 4.20886E-04 + 1.29758E+00 -5.51730E-04 2.32977E-05 -2.27306E-09 -4.14832E-03 + 4.22857E-04 -4.14832E-03 4.22857E-04 -4.14855E-03 4.22857E-04 + 1.29744E+00 -5.44390E-04 2.32939E-05 -2.10475E-09 -4.19626E-03 + 4.24866E-04 -4.19626E-03 4.24866E-04 -4.19603E-03 4.24866E-04 + 1.29762E+00 -5.51746E-04 2.33127E-05 -2.91858E-09 -4.24362E-03 + 4.26864E-04 -4.24362E-03 4.26864E-04 -4.24339E-03 4.26864E-04 + 1.29765E+00 -5.53586E-04 2.33217E-05 -3.28340E-09 -4.29098E-03 + 4.28861E-04 -4.29098E-03 4.28861E-04 -4.29075E-03 4.28854E-04 + 1.29774E+00 -5.57264E-04 2.33352E-05 -3.87273E-09 -4.33926E-03 + 4.30872E-04 -4.33926E-03 4.30872E-04 -4.33926E-03 4.30872E-04 + 1.29780E+00 -5.59103E-04 2.33513E-05 -4.49012E-09 -4.38730E-03 + 4.32884E-04 -4.38730E-03 4.32884E-04 -4.38730E-03 4.32884E-04 + 1.29776E+00 -5.59087E-04 2.33516E-05 -4.51805E-09 -4.43568E-03 + 4.34904E-04 -4.43568E-03 4.34904E-04 -4.43568E-03 4.34904E-04 + 1.29797E+00 -5.66460E-04 2.33594E-05 -4.88301E-09 -4.48524E-03 + 4.36957E-04 -4.48524E-03 4.36957E-04 -4.48501E-03 4.36950E-04 + 1.29800E+00 -5.68299E-04 2.33693E-05 -5.24783E-09 -4.53444E-03 + 4.39005E-04 -4.53444E-03 4.39005E-04 -4.53467E-03 4.39005E-04 + 1.29803E+00 -5.70138E-04 2.33711E-05 -5.30396E-09 -4.58455E-03 + 4.41074E-04 -4.58455E-03 4.41074E-04 -4.58455E-03 4.41074E-04 + 1.29809E+00 -5.71977E-04 2.33837E-05 -5.86522E-09 -4.63467E-03 + 4.43136E-04 -4.63467E-03 4.43136E-04 -4.63490E-03 4.43136E-04 + 1.29818E+00 -5.75655E-04 2.33953E-05 -6.37036E-09 -4.68502E-03 + 4.45198E-04 -4.68502E-03 4.45198E-04 -4.68502E-03 4.45198E-04 + 1.29823E+00 -5.77478E-04 2.33965E-05 -6.39824E-09 -4.73637E-03 + 4.47304E-04 -4.73637E-03 4.47304E-04 -4.73591E-03 4.47297E-04 + 1.29833E+00 -5.81173E-04 2.34052E-05 -6.76325E-09 -4.78732E-03 + 4.49400E-04 -4.78732E-03 4.49400E-04 -4.78755E-03 4.49400E-04 + 1.29838E+00 -5.83012E-04 2.34106E-05 -6.98776E-09 -4.83905E-03 + 4.51505E-04 -4.83905E-03 4.51505E-04 -4.83905E-03 4.51505E-04 + 1.29844E+00 -5.86690E-04 2.34196E-05 -7.32452E-09 -4.89123E-03 + 4.53625E-04 -4.89123E-03 4.53625E-04 -4.89123E-03 4.53625E-04 + 1.29844E+00 -5.86690E-04 2.34286E-05 -7.68934E-09 -4.94365E-03 + 4.55751E-04 -4.94365E-03 4.55751E-04 -4.94365E-03 4.55751E-04 + 1.29859E+00 -5.92208E-04 2.34295E-05 -7.71740E-09 -4.99560E-03 + 4.57856E-04 -4.99560E-03 4.57856E-04 -4.99583E-03 4.57856E-04 + 1.29867E+00 -5.95869E-04 2.34360E-05 -7.96974E-09 -5.04971E-03 + 4.60034E-04 -5.04971E-03 4.60034E-04 -5.04948E-03 4.60034E-04 + 1.29868E+00 -5.95886E-04 2.34402E-05 -8.16641E-09 -5.10297E-03 + 4.62181E-04 -5.10297E-03 4.62181E-04 -5.10297E-03 4.62181E-04 + 1.29880E+00 -6.01404E-04 2.34447E-05 -8.30673E-09 -5.15699E-03 + 4.64351E-04 -5.15699E-03 4.64351E-04 -5.15699E-03 4.64343E-04 + 1.29883E+00 -6.01404E-04 2.34474E-05 -8.44705E-09 -5.21125E-03 + 4.66520E-04 -5.21125E-03 4.66520E-04 -5.21125E-03 4.66520E-04 + 1.29894E+00 -6.06921E-04 2.34564E-05 -8.81187E-09 -5.26619E-03 + 4.68711E-04 -5.26619E-03 4.68711E-04 -5.26619E-03 4.68711E-04 + 1.29894E+00 -6.06921E-04 2.34609E-05 -8.98025E-09 -5.32113E-03 + 4.70895E-04 -5.32113E-03 4.70895E-04 -5.32090E-03 4.70895E-04 + 1.29912E+00 -6.12439E-04 2.34636E-05 -9.09250E-09 -5.37700E-03 + 4.73115E-04 -5.37700E-03 4.73115E-04 -5.37700E-03 4.73115E-04 + 1.29914E+00 -6.14260E-04 2.34665E-05 -9.20448E-09 -5.43270E-03 + 4.75329E-04 -5.43270E-03 4.75329E-04 -5.43270E-03 4.75329E-04 + 1.29918E+00 -6.16117E-04 2.34753E-05 -9.56958E-09 -5.48850E-03 + 4.77534E-04 -5.48850E-03 4.77534E-04 -5.48827E-03 4.77534E-04 + 1.29936E+00 -6.21634E-04 2.34753E-05 -9.56958E-09 -5.54574E-03 + 4.79790E-04 -5.54574E-03 4.79790E-04 -5.54551E-03 4.79790E-04 + 1.29930E+00 -6.21634E-04 2.34789E-05 -9.68183E-09 -5.60276E-03 + 4.82031E-04 -5.60276E-03 4.82031E-04 -5.60276E-03 4.82031E-04 + 1.29941E+00 -6.25313E-04 2.34833E-05 -9.85021E-09 -5.66046E-03 + 4.84294E-04 -5.66046E-03 4.84294E-04 -5.66046E-03 4.84294E-04 + 1.29953E+00 -6.28991E-04 2.34851E-05 -9.96246E-09 -5.71839E-03 + 4.86557E-04 -5.71839E-03 4.86557E-04 -5.71839E-03 4.86557E-04 + 1.29961E+00 -6.32651E-04 2.34916E-05 -1.01867E-08 -5.77639E-03 + 4.88827E-04 -5.77639E-03 4.88827E-04 -5.77639E-03 4.88827E-04 + 1.29965E+00 -6.34508E-04 2.34914E-05 -1.01870E-08 -5.83564E-03 + 4.91133E-04 -5.83564E-03 4.91133E-04 -5.83564E-03 4.91133E-04 + 1.29983E+00 -6.40026E-04 2.34968E-05 -1.04115E-08 -5.89403E-03 + 4.93404E-04 -5.89403E-03 4.93404E-04 -5.89426E-03 4.93404E-04 + 1.29977E+00 -6.38187E-04 2.35004E-05 -1.05237E-08 -5.95449E-03 + 4.95746E-04 -5.95449E-03 4.95746E-04 -5.95472E-03 4.95746E-04 + 1.29983E+00 -6.41865E-04 2.35004E-05 -1.05237E-08 -6.01404E-03 + 4.98037E-04 -6.01404E-03 4.98037E-04 -6.01381E-03 4.98037E-04 + 1.30000E+00 -6.47383E-04 2.35076E-05 -1.08044E-08 -6.07473E-03 + 5.00379E-04 -6.07473E-03 5.00379E-04 -6.07450E-03 5.00379E-04 + 1.30008E+00 -6.51042E-04 2.35096E-05 -1.08882E-08 -6.13524E-03 + 5.02714E-04 -6.13524E-03 5.02714E-04 -6.13547E-03 5.02714E-04 + 1.30006E+00 -6.51061E-04 2.35103E-05 -1.09166E-08 -6.19703E-03 + 5.05078E-04 -6.19703E-03 5.05078E-04 -6.19680E-03 5.05071E-04 + 1.30018E+00 -6.54739E-04 2.35130E-05 -1.10289E-08 -6.25887E-03 + 5.07449E-04 -6.25887E-03 5.07449E-04 -6.25887E-03 5.07449E-04 + 1.30030E+00 -6.60257E-04 2.35193E-05 -1.12253E-08 -6.32049E-03 + 5.09791E-04 -6.32049E-03 5.09791E-04 -6.32049E-03 5.09791E-04 + 1.30036E+00 -6.62096E-04 2.35175E-05 -1.11692E-08 -6.38371E-03 + 5.12205E-04 -6.38371E-03 5.12205E-04 -6.38371E-03 5.12205E-04 + 1.30041E+00 -6.62096E-04 2.35220E-05 -1.13656E-08 -6.44647E-03 + 5.14575E-04 -6.44647E-03 5.14575E-04 -6.44647E-03 5.14575E-04 + 1.30055E+00 -6.69433E-04 2.35249E-05 -1.14495E-08 -6.51019E-03 + 5.17003E-04 -6.51019E-03 5.17003E-04 -6.51019E-03 5.17003E-04 + 1.30065E+00 -6.71292E-04 2.34726E-05 -9.48539E-09 -6.57406E-03 + 5.19410E-04 -6.57406E-03 5.19410E-04 -6.57406E-03 5.19410E-04 + 1.30071E+00 -6.74970E-04 2.35839E-05 -1.37229E-08 -6.63866E-03 + 5.21846E-04 -6.63866E-03 5.21846E-04 -6.63866E-03 5.21846E-04 + 1.30077E+00 -6.76809E-04 2.35309E-05 -1.17304E-08 -6.70303E-03 + 5.24267E-04 -6.70303E-03 5.24267E-04 -6.70303E-03 5.24267E-04 + 1.30083E+00 -6.80487E-04 2.35013E-05 -1.05799E-08 -6.76901E-03 + 5.26731E-04 -6.76901E-03 5.26731E-04 -6.76901E-03 5.26731E-04 + 1.30094E+00 -6.84166E-04 2.35678E-05 -1.30775E-08 -6.83476E-03 + 5.29202E-04 -6.83476E-03 5.29202E-04 -6.83476E-03 5.29202E-04 + 1.30106E+00 -6.87844E-04 2.35399E-05 -1.20111E-08 -6.90074E-03 + 5.31659E-04 -6.90074E-03 5.31659E-04 -6.90074E-03 5.31659E-04 + 1.30114E+00 -6.89663E-04 2.35401E-05 -1.20669E-08 -6.96789E-03 + 5.34165E-04 -6.96789E-03 5.34165E-04 -6.96789E-03 5.34165E-04 + 1.30118E+00 -6.93361E-04 2.35300E-05 -1.16743E-08 -7.03477E-03 + 5.36645E-04 -7.03477E-03 5.36645E-04 -7.03477E-03 5.36645E-04 + 1.30130E+00 -6.97040E-04 2.35588E-05 -1.27407E-08 -7.10236E-03 + 5.39145E-04 -7.10236E-03 5.39145E-04 -7.10236E-03 5.39145E-04 + 1.30136E+00 -6.98879E-04 2.35471E-05 -1.22917E-08 -7.17109E-03 + 5.41689E-04 -7.17109E-03 5.41689E-04 -7.17109E-03 5.41689E-04 + 1.30142E+00 -7.02557E-04 2.35489E-05 -1.23759E-08 -7.23960E-03 + 5.44217E-04 -7.23960E-03 5.44217E-04 -7.23960E-03 5.44217E-04 + 1.30159E+00 -7.08075E-04 2.34699E-05 -9.48539E-09 -7.30834E-03 + 5.46739E-04 -7.30834E-03 5.46739E-04 -7.30834E-03 5.46739E-04 + 1.30167E+00 -7.09893E-04 2.36371E-05 -1.56027E-08 -7.37755E-03 + 5.49295E-04 -7.37755E-03 5.49295E-04 -7.37755E-03 5.49295E-04 + 1.30171E+00 -7.11753E-04 2.35552E-05 -1.25723E-08 -7.44812E-03 + 5.51869E-04 -7.44812E-03 5.51869E-04 -7.44812E-03 5.51869E-04 + 1.30189E+00 -7.17270E-04 2.35166E-05 -1.11972E-08 -7.51824E-03 + 5.54433E-04 -7.51824E-03 5.54433E-04 -7.51824E-03 5.54433E-04 + 1.30195E+00 -7.20949E-04 2.36037E-05 -1.43684E-08 -7.58950E-03 + 5.57034E-04 -7.58950E-03 5.57034E-04 -7.58950E-03 5.57034E-04 + 1.30195E+00 -7.20949E-04 2.35148E-05 -1.11411E-08 -7.66169E-03 + 5.59649E-04 -7.66169E-03 5.59649E-04 -7.66169E-03 5.59649E-04 + 1.30206E+00 -7.26466E-04 2.36109E-05 -1.46210E-08 -7.73296E-03 + 5.62243E-04 -7.73296E-03 5.62243E-04 -7.73296E-03 5.62243E-04 + 1.30220E+00 -7.31962E-04 2.35258E-05 -1.15337E-08 -7.80606E-03 + 5.64884E-04 -7.80606E-03 5.64884E-04 -7.80606E-03 5.64884E-04 + 1.30236E+00 -7.35662E-04 2.36100E-05 -1.45929E-08 -7.87779E-03 + 5.67480E-04 -7.87779E-03 5.67480E-04 -7.87779E-03 5.67480E-04 + 1.30230E+00 -7.33823E-04 2.35705E-05 -1.31617E-08 -7.95342E-03 + 5.70195E-04 -7.95342E-03 5.70195E-04 -7.95342E-03 5.70195E-04 + 1.30247E+00 -7.39340E-04 2.35588E-05 -1.27407E-08 -8.02699E-03 + 5.72839E-04 -8.02699E-03 5.72839E-04 -8.02699E-03 5.72839E-04 + 1.30259E+00 -7.43019E-04 2.35857E-05 -1.36949E-08 -8.10033E-03 + 5.75469E-04 -8.10033E-03 5.75469E-04 -8.10033E-03 5.75469E-04 + 1.30271E+00 -7.48536E-04 2.35776E-05 -1.33862E-08 -8.17665E-03 + 5.78199E-04 -8.17665E-03 5.78199E-04 -8.17665E-03 5.78199E-04 + 1.30273E+00 -7.50353E-04 2.35778E-05 -1.34419E-08 -8.25136E-03 + 5.80868E-04 -8.25136E-03 5.80868E-04 -8.25136E-03 5.80868E-04 + 1.30289E+00 -7.54053E-04 2.35660E-05 -1.30214E-08 -8.32838E-03 + 5.83616E-04 -8.32838E-03 5.83616E-04 -8.32838E-03 5.83616E-04 + 1.30295E+00 -7.57732E-04 2.35965E-05 -1.40597E-08 -8.40471E-03 + 5.86317E-04 -8.40471E-03 5.86317E-04 -8.40471E-03 5.86317E-04 + 1.30300E+00 -7.59571E-04 2.35579E-05 -1.27127E-08 -8.48172E-03 + 5.89047E-04 -8.48172E-03 5.89047E-04 -8.48172E-03 5.89047E-04 + 1.30318E+00 -7.65088E-04 2.36154E-05 -1.47332E-08 -8.55966E-03 + 5.91806E-04 -8.55966E-03 5.91806E-04 -8.55966E-03 5.91806E-04 + 1.30336E+00 -7.70606E-04 2.35893E-05 -1.38352E-08 -8.63759E-03 + 5.94550E-04 -8.63759E-03 5.94550E-04 -8.63759E-03 5.94550E-04 + 1.30330E+00 -7.70606E-04 2.35893E-05 -1.38352E-08 -8.71667E-03 + 5.97337E-04 -8.71667E-03 5.97337E-04 -8.71667E-03 5.97337E-04 + 1.30344E+00 -7.74261E-04 2.35653E-05 -1.29929E-08 -8.79550E-03 + 6.00107E-04 -8.79550E-03 6.00107E-04 -8.79550E-03 6.00107E-04 + 1.30359E+00 -7.77963E-04 2.36207E-05 -1.49016E-08 -8.87691E-03 + 6.02955E-04 -8.87691E-03 6.02955E-04 -8.87691E-03 6.02955E-04 + 1.30371E+00 -7.83480E-04 2.35974E-05 -1.40878E-08 -8.95622E-03 + 6.05729E-04 -8.95622E-03 6.05729E-04 -8.95622E-03 6.05729E-04 + 1.30383E+00 -7.87158E-04 2.36010E-05 -1.42561E-08 -9.03692E-03 + 6.08545E-04 -9.03692E-03 6.08545E-04 -9.03692E-03 6.08545E-04 + 1.30383E+00 -7.88997E-04 2.35875E-05 -1.37510E-08 -9.11853E-03 + 6.11390E-04 -9.11853E-03 6.11390E-04 -9.11853E-03 6.11390E-04 + 1.30406E+00 -7.94515E-04 2.35974E-05 -1.41158E-08 -9.20152E-03 + 6.14263E-04 -9.20152E-03 6.14263E-04 -9.20152E-03 6.14263E-04 + 1.30414E+00 -7.98170E-04 2.36201E-05 -1.49012E-08 -9.28401E-03 + 6.17119E-04 -9.28401E-03 6.17119E-04 -9.28401E-03 6.17119E-04 + 1.30430E+00 -8.03711E-04 2.36055E-05 -1.43965E-08 -9.36590E-03 + 6.19953E-04 -9.36590E-03 6.19953E-04 -9.36590E-03 6.19953E-04 + 1.30424E+00 -8.01872E-04 2.36118E-05 -1.45929E-08 -9.45142E-03 + 6.22899E-04 -9.45142E-03 6.22899E-04 -9.45142E-03 6.22899E-04 + 1.30442E+00 -8.07389E-04 2.36037E-05 -1.43403E-08 -9.53510E-03 + 6.25787E-04 -9.53510E-03 6.25787E-04 -9.53510E-03 6.25787E-04 + 1.30453E+00 -8.12906E-04 2.36190E-05 -1.48735E-08 -9.61970E-03 + 6.28689E-04 -9.61970E-03 6.28689E-04 -9.61970E-03 6.28689E-04 + 1.30471E+00 -8.18424E-04 2.36154E-05 -1.47332E-08 -9.70476E-03 + 6.31592E-04 -9.70476E-03 6.31592E-04 -9.70476E-03 6.31592E-04 + 1.30467E+00 -8.18400E-04 2.36183E-05 -1.48170E-08 -9.79275E-03 + 6.34605E-04 -9.79275E-03 6.34605E-04 -9.79275E-03 6.34605E-04 + 1.30489E+00 -8.23941E-04 2.36190E-05 -1.48735E-08 -9.87856E-03 + 6.37540E-04 -9.87856E-03 6.37540E-04 -9.87856E-03 6.37540E-04 + 1.30501E+00 -8.27620E-04 2.36198E-05 -1.48735E-08 -9.96454E-03 + 6.40471E-04 -9.96454E-03 6.40471E-04 -9.96454E-03 6.40471E-04 + 1.30506E+00 -8.29459E-04 2.36252E-05 -1.50700E-08 -1.00537E-02 + 6.43503E-04 -1.00537E-02 6.43503E-04 -1.00537E-02 6.43503E-04 + 1.30518E+00 -8.34976E-04 2.36261E-05 -1.50700E-08 -1.01420E-02 + 6.46477E-04 -1.01420E-02 6.46477E-04 -1.01420E-02 6.46477E-04 + 1.30542E+00 -8.40494E-04 2.36288E-05 -1.51822E-08 -1.02308E-02 + 6.49480E-04 -1.02308E-02 6.49480E-04 -1.02308E-02 6.49480E-04 + 1.30550E+00 -8.44147E-04 2.36299E-05 -1.52379E-08 -1.03206E-02 + 6.52522E-04 -1.03206E-02 6.52522E-04 -1.03206E-02 6.52522E-04 + 1.30548E+00 -8.46011E-04 2.36288E-05 -1.51822E-08 -1.04105E-02 + 6.55544E-04 -1.04105E-02 6.55544E-04 -1.04105E-02 6.55544E-04 + 1.30559E+00 -8.49690E-04 2.36333E-05 -1.53506E-08 -1.05025E-02 + 6.58633E-04 -1.05025E-02 6.58633E-04 -1.05025E-02 6.58633E-04 + 1.30589E+00 -8.57046E-04 2.36405E-05 -1.56032E-08 -1.05926E-02 + 6.61650E-04 -1.05926E-02 6.61650E-04 -1.05926E-02 6.61650E-04 + 1.30595E+00 -8.60724E-04 2.36351E-05 -1.54067E-08 -1.06846E-02 + 6.64740E-04 -1.06846E-02 6.64740E-04 -1.06846E-02 6.64740E-04 + 1.30595E+00 -8.60724E-04 2.36423E-05 -1.56312E-08 -1.07788E-02 + 6.67872E-04 -1.07788E-02 6.67872E-04 -1.07788E-02 6.67872E-04 + 1.30612E+00 -8.66242E-04 2.36441E-05 -1.57154E-08 -1.08712E-02 + 6.70947E-04 -1.08712E-02 6.70947E-04 -1.08712E-02 6.70947E-04 + 1.30632E+00 -8.71734E-04 2.36461E-05 -1.57711E-08 -1.09656E-02 + 6.74088E-04 -1.09656E-02 6.74088E-04 -1.09656E-02 6.74088E-04 + 1.30642E+00 -8.75438E-04 2.36459E-05 -1.57716E-08 -1.10598E-02 + 6.77211E-04 -1.10598E-02 6.77211E-04 -1.10598E-02 6.77211E-04 + 1.30648E+00 -8.79116E-04 2.36513E-05 -1.59399E-08 -1.11554E-02 + 6.80372E-04 -1.11554E-02 6.80372E-04 -1.11554E-02 6.80372E-04 + 1.30659E+00 -8.82794E-04 2.36522E-05 -1.59680E-08 -1.12515E-02 + 6.83533E-04 -1.12515E-02 6.83533E-04 -1.12515E-02 6.83533E-04 + 1.30671E+00 -8.86473E-04 2.36549E-05 -1.60522E-08 -1.13476E-02 + 6.86709E-04 -1.13476E-02 6.86709E-04 -1.13476E-02 6.86709E-04 + 1.30695E+00 -8.91990E-04 2.36549E-05 -1.60522E-08 -1.14455E-02 + 6.89913E-04 -1.14455E-02 6.89913E-04 -1.14455E-02 6.89913E-04 + 1.30703E+00 -8.95642E-04 2.36605E-05 -1.62201E-08 -1.15431E-02 + 6.93125E-04 -1.15431E-02 6.93125E-04 -1.15431E-02 6.93125E-04 + 1.30712E+00 -8.99347E-04 2.36639E-05 -1.63328E-08 -1.16419E-02 + 6.96350E-04 -1.16419E-02 6.96350E-04 -1.16419E-02 6.96350E-04 + 1.30736E+00 -9.04864E-04 2.36648E-05 -1.63609E-08 -1.17412E-02 + 6.99597E-04 -1.17412E-02 6.99597E-04 -1.17412E-02 6.99597E-04 + 1.30736E+00 -9.06703E-04 2.36639E-05 -1.63609E-08 -1.18400E-02 + 7.02816E-04 -1.18400E-02 7.02816E-04 -1.18400E-02 7.02816E-04 + 1.30760E+00 -9.14060E-04 2.36674E-05 -1.64731E-08 -1.19412E-02 + 7.06106E-04 -1.19412E-02 7.06106E-04 -1.19412E-02 7.06106E-04 + 1.30765E+00 -9.15899E-04 2.36737E-05 -1.66696E-08 -1.20423E-02 + 7.09396E-04 -1.20423E-02 7.09396E-04 -1.20423E-02 7.09396E-04 + 1.30791E+00 -9.23229E-04 2.36748E-05 -1.66972E-08 -1.21427E-02 + 7.12652E-04 -1.21427E-02 7.12652E-04 -1.21427E-02 7.12652E-04 + 1.30789E+00 -9.23256E-04 2.36746E-05 -1.66976E-08 -1.22469E-02 + 7.16020E-04 -1.22469E-02 7.16020E-04 -1.22469E-02 7.16020E-04 + 1.30807E+00 -9.28773E-04 2.36782E-05 -1.68099E-08 -1.23495E-02 + 7.19339E-04 -1.23495E-02 7.19339E-04 -1.23495E-02 7.19339E-04 + 1.30824E+00 -9.34291E-04 2.36809E-05 -1.68941E-08 -1.24534E-02 + 7.22673E-04 -1.24534E-02 7.22673E-04 -1.24534E-02 7.22673E-04 + 1.30842E+00 -9.39808E-04 2.36827E-05 -1.69783E-08 -1.25573E-02 + 7.26006E-04 -1.25573E-02 7.26006E-04 -1.25573E-02 7.26006E-04 + 1.30836E+00 -9.39808E-04 2.36863E-05 -1.70905E-08 -1.26640E-02 + 7.29426E-04 -1.26640E-02 7.29426E-04 -1.26640E-02 7.29426E-04 + 1.30867E+00 -9.48976E-04 2.36892E-05 -1.71462E-08 -1.27684E-02 + 7.32781E-04 -1.27684E-02 7.32781E-04 -1.27684E-02 7.32781E-04 + 1.30871E+00 -9.49004E-04 2.36908E-05 -1.72028E-08 -1.28759E-02 + 7.36194E-04 -1.28759E-02 7.36194E-04 -1.28759E-02 7.36194E-04 + 1.30889E+00 -9.56361E-04 2.36926E-05 -1.72589E-08 -1.29844E-02 + 7.39656E-04 -1.29844E-02 7.39656E-04 -1.29844E-02 7.39656E-04 + 1.30907E+00 -9.60039E-04 2.36962E-05 -1.73712E-08 -1.30906E-02 + 7.43033E-04 -1.30906E-02 7.43033E-04 -1.30906E-02 7.43033E-04 + 1.30924E+00 -9.65556E-04 2.36998E-05 -1.74834E-08 -1.32001E-02 + 7.46510E-04 -1.32001E-02 7.46510E-04 -1.32001E-02 7.46510E-04 + 1.30924E+00 -9.67395E-04 2.36998E-05 -1.75115E-08 -1.33095E-02 + 7.49973E-04 -1.33095E-02 7.49973E-04 -1.33095E-02 7.49973E-04 + 1.30960E+00 -9.78430E-04 2.37043E-05 -1.76518E-08 -1.34185E-02 + 7.53407E-04 -1.34185E-02 7.53407E-04 -1.34185E-02 7.53407E-04 + 1.30950E+00 -9.74723E-04 2.37045E-05 -1.76513E-08 -1.35326E-02 + 7.57005E-04 -1.35326E-02 7.57005E-04 -1.35326E-02 7.57005E-04 + 1.30971E+00 -9.82109E-04 2.37097E-05 -1.78202E-08 -1.36419E-02 + 7.60462E-04 -1.36419E-02 7.60462E-04 -1.36419E-02 7.60462E-04 + 1.30989E+00 -9.87626E-04 2.37097E-05 -1.78202E-08 -1.37546E-02 + 7.63996E-04 -1.37546E-02 7.63996E-04 -1.37546E-02 7.63996E-04 + 1.31003E+00 -9.91275E-04 2.37134E-05 -1.79319E-08 -1.38687E-02 + 7.67552E-04 -1.38687E-02 7.67552E-04 -1.38687E-02 7.67552E-04 + 1.31016E+00 -9.96851E-04 2.37193E-05 -1.81294E-08 -1.39817E-02 + 7.71103E-04 -1.39817E-02 7.71103E-04 -1.39817E-02 7.71103E-04 + 1.31026E+00 -1.00047E-03 2.37188E-05 -1.81003E-08 -1.40967E-02 + 7.74678E-04 -1.40967E-02 7.74678E-04 -1.40967E-02 7.74678E-04 + 1.31046E+00 -1.00605E-03 2.37229E-05 -1.82136E-08 -1.42125E-02 + 7.78302E-04 -1.42125E-02 7.78302E-04 -1.42125E-02 7.78302E-04 + 1.31062E+00 -1.00967E-03 2.37224E-05 -1.82125E-08 -1.43284E-02 + 7.81891E-04 -1.43284E-02 7.81891E-04 -1.43284E-02 7.81891E-04 + 1.31062E+00 -1.00967E-03 2.37224E-05 -1.82125E-08 -1.43284E-02 + 7.81891E-04 -1.43284E-02 7.81891E-04 -1.43284E-02 7.81891E-04 Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/EGSDAT3_3. =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/EGSDAT3_3. (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/EGSDAT3_3. (revision 1444) @@ -0,0 +1,2621 @@ + MEDIUM=AIR-NTP ,STERNCID=AIR-NTP + MIXT,RHO= 1.2250E-09,NE= 4,GASP= 1.0000E-06 + ASYM=N ,Z= 7.,A= 14.007,PZ= 5.39228E-02,RHOZ= 7.55280E-01 + ASYM=O ,Z= 8.,A= 15.999,PZ= 1.44793E-02,RHOZ= 2.31660E-01 + ASYM=AR,Z=18.,A= 39.948,PZ= 3.20917E-04,RHOZ= 1.28200E-02 + ASYM=C ,Z= 6.,A= 12.011,PZ= 3.33024E-06,RHOZ= 4.00000E-05 + 2.98933E+10 3.51200E+00 3.00000E+00 1.00000E+14 1.00000E+14 + 0 500 0 500 0 0 0 0 0 + 9.99982E-01 -2.10419E-01 4.82862E-02 9.95879E-01 -2.25858E-01 + 9.52000E-01 1.00022E+00 -1.78214E-01 3.43565E-02 1.01413E+00 + -2.29996E-01 9.52000E-01 1.00034E+00 -1.61665E-01 2.48128E-02 + 1.02350E+00 -2.32123E-01 9.52000E-01 9.99982E-01 -2.10592E-01 + 4.83260E-02 9.95876E-01 -2.26044E-01 9.52000E-01 1.00022E+00 + -1.78364E-01 3.43853E-02 1.01414E+00 -2.30189E-01 9.52000E-01 + 1.00034E+00 -1.61802E-01 2.48338E-02 1.02352E+00 -2.32319E-01 + 9.52000E-01 + 3.56389E+01 9.41131E-01 8.53760E-01 2.28015E+00 9.41145E-01 + 8.53757E-01 2.27175E+00 + 9.00118E-02 7.50905E-05 2.66396E+05 4.89667E+00 + -1.46083E+01 1.59637E+01 + -8.04319E-02 7.32113E-02 8.78001E-01 9.98452E-02 5.71660E+01 + 7.57054E+00 5.79697E+01 5.34237E+00 1.00000E+00 0.00000E+00 + -8.13948E-02 7.40878E-02 -8.38576E-01 7.63096E-01 -2.52360E-02 + 5.46241E-02 -8.04319E-02 7.32113E-02 8.78001E-01 9.98452E-02 + 5.71660E+01 7.57054E+00 5.79697E+01 5.34237E+00 1.00000E+00 + 0.00000E+00 -8.13948E-02 7.40878E-02 -8.38576E-01 7.63096E-01 + -2.52360E-02 5.46241E-02 -1.28801E-01 1.17063E-01 8.68294E-01 + 1.08651E-01 5.71195E+01 7.61280E+00 5.78330E+01 5.46541E+00 + 1.00000E+00 0.00000E+00 -1.29414E-01 1.17622E-01 -8.29965E-01 + 7.55290E-01 -2.88402E-02 5.78915E-02 -2.11881E-01 1.88336E-01 + 8.50618E-01 1.23813E-01 5.70182E+01 7.69978E+00 5.75838E+01 + 5.67923E+00 1.00000E+00 0.00000E+00 -2.10144E-01 1.86878E-01 + -8.09705E-01 7.37909E-01 -3.65706E-02 6.45233E-02 -2.86440E-01 + 2.49036E-01 8.29874E-01 1.40702E-01 5.68593E+01 7.82911E+00 + 5.73008E+01 5.90965E+00 1.00000E+00 0.00000E+00 -2.79696E-01 + 2.43502E-01 -7.88228E-01 7.20424E-01 -4.56900E-02 7.19476E-02 + -3.58949E-01 3.05203E-01 8.00491E-01 1.63464E-01 5.65925E+01 + 8.03579E+00 5.69322E+01 6.19513E+00 1.00000E+00 0.00000E+00 + -3.43803E-01 2.93161E-01 -7.69622E-01 7.06011E-01 -5.64218E-02 + 8.02606E-02 -4.27723E-01 3.56011E-01 7.65057E-01 1.89640E-01 + 5.64529E+01 8.13884E+00 5.67119E+01 6.35798E+00 1.00000E+00 + 0.00000E+00 -4.00029E-01 3.34700E-01 -7.50508E-01 6.91891E-01 + -6.90261E-02 8.95724E-02 -4.95102E-01 4.03588E-01 7.22093E-01 + 2.19978E-01 5.63226E+01 8.23090E+00 5.65191E+01 6.49401E+00 + 1.00000E+00 0.00000E+00 -4.49712E-01 3.69781E-01 -7.31039E-01 + 6.78143E-01 -8.37993E-02 1.00004E-01 -5.61721E-01 4.48634E-01 + 6.71887E-01 2.53925E-01 5.62048E+01 8.31056E+00 5.63565E+01 + 6.60399E+00 1.00000E+00 0.00000E+00 -4.92509E-01 3.98719E-01 + -7.10057E-01 6.63956E-01 -1.01088E-01 1.11694E-01 -6.27845E-01 + 4.91530E-01 6.14993E-01 2.90834E-01 5.61031E+01 8.37657E+00 + 5.62252E+01 6.68912E+00 1.00000E+00 0.00000E+00 -5.27830E-01 + 4.21633E-01 -6.86358E-01 6.48582E-01 -1.21286E-01 1.24797E-01 + -7.07618E-01 5.41258E-01 5.38069E-01 3.38787E-01 5.58319E+01 + 8.54562E+00 5.59397E+01 6.86706E+00 1.00000E+00 0.00000E+00 + -5.65617E-01 4.45188E-01 -6.66702E-01 6.36328E-01 -1.44850E-01 + 1.39486E-01 -7.93028E-01 5.92500E-01 4.49878E-01 3.91697E-01 + 5.55841E+01 8.69422E+00 5.56903E+01 7.01676E+00 1.00000E+00 + 0.00000E+00 -5.97460E-01 4.64293E-01 -6.43743E-01 6.22555E-01 + -1.72306E-01 1.55958E-01 -8.71197E-01 6.37699E-01 3.64030E-01 + 4.41335E-01 5.54914E+01 8.74780E+00 5.56074E+01 7.06473E+00 + 1.00000E+00 0.00000E+00 -6.13586E-01 4.73617E-01 -6.10277E-01 + 6.03204E-01 -2.04256E-01 1.74433E-01 -4.14056E+00 2.46203E+00 + 2.72448E-01 4.92440E-01 6.52966E+01 3.27648E+00 5.55521E+01 + 7.09555E+00 8.49034E+00 -4.17967E+00 -6.20722E-01 4.77599E-01 + -5.71328E-01 5.81470E-01 -2.41396E-01 1.95157E-01 -3.71529E+00 + 2.23274E+00 1.76037E-01 5.44420E-01 6.42928E+01 3.81774E+00 + 5.55232E+01 7.11115E+00 3.76246E+00 -1.63058E+00 -6.18869E-01 + 4.76600E-01 -5.26940E-01 5.57538E-01 -2.84524E-01 2.18410E-01 + -3.38023E+00 2.05799E+00 7.57934E-02 5.96701E-01 6.35076E+01 + 4.22720E+00 5.55201E+01 7.11272E+00 2.12844E+00 -7.78363E-01 + -6.08299E-01 4.71087E-01 -4.77448E-01 5.31725E-01 -3.34555E-01 + 2.44503E-01 -3.11316E+00 1.92311E+00 -2.73045E-02 6.48771E-01 + 6.28874E+01 4.54033E+00 5.55416E+01 7.10188E+00 1.36403E+00 + -3.92297E-01 -5.89545E-01 4.61615E-01 -4.23433E-01 5.04444E-01 + -3.92545E-01 2.73791E-01 -2.89821E+00 1.81788E+00 -1.32161E-01 + 7.00105E-01 6.23955E+01 4.78124E+00 5.55860E+01 7.08009E+00 + 9.43861E-01 -1.86601E-01 -5.63350E-01 4.48791E-01 -3.65639E-01 + 4.76151E-01 -4.59702E-01 3.06668E-01 -2.72381E+00 1.73504E+00 + -2.37763E-01 7.50265E-01 6.20041E+01 4.96720E+00 5.56533E+01 + 7.04828E+00 6.89268E-01 -6.56702E-02 -5.30602E-01 4.33237E-01 + -3.04926E-01 4.47313E-01 -5.37413E-01 3.43581E-01 -2.58124E+00 + 1.66928E+00 -3.42978E-01 7.98797E-01 6.16940E+01 5.11021E+00 + 5.57400E+01 7.00824E+00 5.25232E-01 9.99372E-03 -4.92305E-01 + 4.15571E-01 -2.42201E-01 4.18380E-01 -6.27275E-01 3.85031E-01 + -2.46373E+00 1.61659E+00 -4.46775E-01 8.45331E-01 6.14497E+01 + 5.21980E+00 5.58455E+01 6.96095E+00 4.15512E-01 5.91828E-02 + -4.49469E-01 3.96367E-01 -1.78354E-01 3.89757E-01 -7.31112E-01 + 4.31582E-01 -2.40027E+00 1.58892E+00 -5.82382E-01 9.04464E-01 + 6.11101E+01 5.36780E+00 5.58172E+01 6.97316E+00 3.29390E-01 + 9.67373E-02 -4.14589E-01 3.81157E-01 -1.20033E-01 3.64325E-01 + -8.51020E-01 4.83870E-01 -2.36780E+00 1.57514E+00 -7.30064E-01 + 9.67152E-01 6.07783E+01 5.50872E+00 5.57668E+01 6.99460E+00 + 2.65125E-01 1.24016E-01 -3.79204E-01 3.66138E-01 -6.25048E-02 + 3.39905E-01 -9.89403E-01 5.42610E-01 -2.30867E+00 1.55069E+00 + -8.34780E-01 1.01045E+00 6.06217E+01 5.57339E+00 5.58661E+01 + 6.95355E+00 2.31725E-01 1.37826E-01 -3.27775E-01 3.44872E-01 + 1.43298E-03 3.13469E-01 -1.14902E+00 6.08606E-01 -2.26246E+00 + 1.53206E+00 -9.38141E-01 1.05211E+00 6.04885E+01 5.62708E+00 + 5.59682E+01 6.91236E+00 2.09686E-01 1.46709E-01 -2.76247E-01 + 3.24105E-01 6.32867E-02 2.88540E-01 -1.33301E+00 6.82764E-01 + -2.23126E+00 1.51980E+00 -1.04391E+00 1.09369E+00 6.03961E+01 + 5.66337E+00 5.60944E+01 6.86279E+00 1.95120E-01 1.52435E-01 + -2.26189E-01 3.04426E-01 1.22322E-01 2.65332E-01 -1.54501E+00 + 7.66102E-01 -2.20936E+00 1.51140E+00 -1.14773E+00 1.13352E+00 + 6.03296E+01 5.68885E+00 5.62308E+01 6.81044E+00 1.87164E-01 + 1.55487E-01 -1.76869E-01 2.85504E-01 1.78850E-01 2.43644E-01 + -1.78915E+00 8.59770E-01 -2.19407E+00 1.50567E+00 -1.24803E+00 + 1.17110E+00 6.02829E+01 5.70639E+00 5.63743E+01 6.75673E+00 + 1.84572E-01 1.56459E-01 -1.28433E-01 2.67357E-01 2.32804E-01 + 2.23430E-01 -2.07017E+00 9.65058E-01 -2.18397E+00 1.50197E+00 + -1.34436E+00 1.20636E+00 6.02490E+01 5.71881E+00 5.65199E+01 + 6.70339E+00 1.86188E-01 1.55867E-01 -8.12286E-02 2.50077E-01 + 2.84026E-01 2.04679E-01 -2.39350E+00 1.08342E+00 -2.17695E+00 + 1.49946E+00 -1.43541E+00 1.23895E+00 6.02298E+01 5.72573E+00 + 5.66690E+01 6.65002E+00 1.91295E-01 1.54040E-01 -3.53637E-02 + 2.33664E-01 3.32518E-01 1.87326E-01 -2.76536E+00 1.21650E+00 + -2.17277E+00 1.49800E+00 -1.52160E+00 1.26911E+00 6.02178E+01 + 5.72989E+00 5.68181E+01 6.59791E+00 1.99024E-01 1.51334E-01 + 8.77293E-03 2.18215E-01 3.78161E-01 1.71350E-01 -3.19286E+00 + 1.36613E+00 -2.16981E+00 1.49698E+00 -1.60203E+00 1.29666E+00 + 6.02144E+01 5.73109E+00 5.69669E+01 6.54686E+00 2.08902E-01 + 1.47951E-01 5.11645E-02 2.03696E-01 4.21038E-01 1.56665E-01 + -3.68411E+00 1.53438E+00 -2.16779E+00 1.49631E+00 -1.67686E+00 + 1.32175E+00 6.02161E+01 5.73050E+00 5.71138E+01 6.49768E+00 + 2.20406E-01 1.44093E-01 9.16210E-02 1.90130E-01 4.61163E-01 + 1.43209E-01 -4.24847E+00 1.72362E+00 -2.16629E+00 1.49581E+00 + -1.74615E+00 1.34451E+00 6.02217E+01 5.72867E+00 5.72580E+01 + 6.45030E+00 2.33139E-01 1.39912E-01 1.30068E-01 1.77503E-01 + 4.98622E-01 1.30907E-01 -4.89652E+00 1.93645E+00 -2.16489E+00 + 1.49537E+00 -1.80999E+00 1.36505E+00 6.02303E+01 5.72585E+00 + 5.73988E+01 6.40497E+00 2.46760E-01 1.35528E-01 1.66495E-01 + 1.65782E-01 5.33525E-01 1.19676E-01 -5.64046E+00 2.17585E+00 + -2.16337E+00 1.49488E+00 -1.86846E+00 1.38349E+00 6.02415E+01 + 5.72234E+00 5.75369E+01 6.36139E+00 2.61022E-01 1.31030E-01 + 2.00891E-01 1.54932E-01 5.65982E-01 1.09438E-01 -6.49420E+00 + 2.44515E+00 -2.16144E+00 1.49429E+00 -1.92168E+00 1.39996E+00 + 6.02554E+01 5.71806E+00 5.76712E+01 6.31984E+00 2.75709E-01 + 1.26487E-01 2.33306E-01 1.44905E-01 5.96135E-01 1.00111E-01 + -7.47366E+00 2.74812E+00 -2.15897E+00 1.49354E+00 -1.96984E+00 + 1.41457E+00 6.02687E+01 5.71406E+00 5.78002E+01 6.28064E+00 + 2.90649E-01 1.21953E-01 2.63801E-01 1.35651E-01 6.24111E-01 + 9.16219E-02 -8.59696E+00 3.08898E+00 -2.15609E+00 1.49268E+00 + -2.01335E+00 1.42753E+00 6.02843E+01 5.70943E+00 5.79274E+01 + 6.24276E+00 3.05663E-01 1.17483E-01 2.92411E-01 1.27131E-01 + 6.50053E-01 8.38966E-02 -9.88493E+00 3.47251E+00 -2.15268E+00 + 1.49168E+00 -2.05239E+00 1.43894E+00 6.02987E+01 5.70515E+00 + 5.80485E+01 6.20742E+00 3.20666E-01 1.13097E-01 3.19246E-01 + 1.19288E-01 6.74097E-01 7.68675E-02 -1.13613E+01 3.90409E+00 + -2.14833E+00 1.49044E+00 -2.08684E+00 1.44883E+00 6.03150E+01 + 5.70054E+00 5.81666E+01 6.17359E+00 3.35571E-01 1.08817E-01 + 3.44405E-01 1.12064E-01 6.96377E-01 7.04718E-02 -1.30530E+01 + 4.38975E+00 -2.14302E+00 1.48894E+00 -2.11685E+00 1.45729E+00 + 6.03306E+01 5.69616E+00 5.82806E+01 6.14143E+00 3.50339E-01 + 1.04653E-01 3.67987E-01 1.05414E-01 7.17024E-01 6.46495E-02 + -1.49913E+01 4.93634E+00 -2.13709E+00 1.48729E+00 -2.14308E+00 + 1.46456E+00 6.03465E+01 5.69163E+00 5.83905E+01 6.11096E+00 + 3.64850E-01 1.00632E-01 3.90069E-01 9.92955E-02 7.36155E-01 + 5.93484E-02 -1.72112E+01 5.55151E+00 -2.13073E+00 1.48556E+00 + -2.16582E+00 1.47076E+00 6.03618E+01 5.68751E+00 5.84949E+01 + 6.08248E+00 3.79071E-01 9.67582E-02 4.10706E-01 9.36744E-02 + 7.53871E-01 5.45225E-02 -1.97535E+01 6.24396E+00 -2.12399E+00 + 1.48375E+00 -2.18543E+00 1.47601E+00 6.03764E+01 5.68361E+00 + 5.85968E+01 6.05520E+00 3.92966E-01 9.30378E-02 4.30026E-01 + 8.85010E-02 7.70298E-01 5.01227E-02 -2.26638E+01 7.02337E+00 + -2.11615E+00 1.48169E+00 -2.20136E+00 1.48020E+00 6.03913E+01 + 5.67957E+00 5.86935E+01 6.02973E+00 4.06552E-01 8.94588E-02 + 4.48130E-01 8.37317E-02 7.85530E-01 4.61110E-02 -2.59950E+01 + 7.90078E+00 -1.96844E+00 1.44342E+00 -2.07495E+00 1.44745E+00 + 6.05835E+01 5.62990E+00 5.89651E+01 5.95935E+00 4.28949E-01 + 8.36559E-02 4.73738E-01 7.70962E-02 8.00971E-01 4.21110E-02 + -2.98071E+01 8.88855E+00 -2.09734E+00 1.47628E+00 -2.22289E+00 + 1.48517E+00 6.04181E+01 5.67214E+00 5.88757E+01 5.98223E+00 + 4.32327E-01 8.27945E-02 4.80663E-01 7.53308E-02 8.12656E-01 + 3.91307E-02 -3.41686E+01 1.00006E+01 -2.08833E+00 1.47402E+00 + -2.23086E+00 1.48717E+00 6.04305E+01 5.66900E+00 5.89597E+01 + 5.96106E+00 4.44809E-01 7.96615E-02 4.95551E-01 7.15936E-02 + 8.24838E-01 3.60737E-02 -3.91576E+01 1.12527E+01 -2.07840E+00 + 1.47157E+00 -2.23588E+00 1.48841E+00 6.04436E+01 5.66571E+00 + 5.90430E+01 5.94047E+00 4.56954E-01 7.66613E-02 5.09538E-01 + 6.81377E-02 8.36146E-01 3.32791E-02 -4.48636E+01 1.26626E+01 + -2.06807E+00 1.46905E+00 -2.23879E+00 1.48911E+00 6.04558E+01 + 5.66262E+00 5.91215E+01 5.92131E+00 4.68718E-01 7.37986E-02 + 5.22684E-01 6.49392E-02 8.46663E-01 3.07193E-02 -5.13880E+01 + 1.42501E+01 -2.05730E+00 1.46648E+00 -2.23948E+00 1.48928E+00 + 6.04685E+01 5.65974E+00 5.91979E+01 5.90308E+00 4.80132E-01 + 7.10626E-02 5.35035E-01 6.19795E-02 8.56451E-01 2.83750E-02 + -5.88474E+01 1.60378E+01 -2.04622E+00 1.46386E+00 -2.23838E+00 + 1.48902E+00 6.04792E+01 5.65718E+00 5.92700E+01 5.88603E+00 + 4.91155E-01 6.84593E-02 5.46651E-01 5.92363E-02 8.65548E-01 + 2.62265E-02 -5.34629E+01 1.47664E+01 -2.03474E+00 1.46119E+00 + -2.23540E+00 1.48832E+00 6.04904E+01 5.65450E+00 5.93387E+01 + 5.87008E+00 5.01861E-01 6.59692E-02 5.57601E-01 5.66891E-02 + 8.74020E-01 2.42559E-02 1.00000E+01 0.00000E+00 -2.02332E+00 + 1.45857E+00 -2.23116E+00 1.48736E+00 6.05021E+01 5.65195E+00 + 5.94055E+01 5.85473E+00 5.12176E-01 6.36028E-02 5.67900E-01 + 5.43265E-02 8.81914E-01 2.24452E-02 1.00000E+01 0.00000E+00 + -2.01130E+00 1.45585E+00 -2.22517E+00 1.48600E+00 6.05109E+01 + 5.64987E+00 5.94683E+01 5.84048E+00 5.22189E-01 6.13401E-02 + 5.77655E-01 5.21219E-02 8.89267E-01 2.07820E-02 9.99997E+00 + 0.00000E+00 -1.99906E+00 1.45312E+00 -2.21777E+00 1.48435E+00 + 6.05216E+01 5.64756E+00 5.95297E+01 5.82696E+00 5.31857E-01 + 5.91849E-02 5.86846E-01 5.00723E-02 8.96125E-01 1.92538E-02 + 9.99997E+00 0.00000E+00 -1.98706E+00 1.45048E+00 -2.20952E+00 + 1.48254E+00 6.05308E+01 5.64549E+00 5.95867E+01 5.81430E+00 + 5.41204E-01 5.71297E-02 5.95543E-01 4.81598E-02 9.02535E-01 + 1.78456E-02 1.00000E+01 0.00000E+00 -1.97349E+00 1.44754E+00 + -2.19884E+00 1.48023E+00 6.05396E+01 5.64362E+00 5.96423E+01 + 5.80232E+00 5.50285E-01 5.51596E-02 6.03828E-01 4.63639E-02 + 9.08511E-01 1.65486E-02 1.00000E+01 0.00000E+00 -1.96304E+00 + 1.44531E+00 -2.19042E+00 1.47842E+00 6.05479E+01 5.64184E+00 + 5.96953E+01 5.79091E+00 5.58948E-01 5.33065E-02 6.11574E-01 + 4.47067E-02 9.14075E-01 1.53564E-02 9.99997E+00 0.00000E+00 + -1.94946E+00 1.44244E+00 -2.17800E+00 1.47580E+00 6.05567E+01 + 5.64001E+00 5.97450E+01 5.78044E+00 5.67443E-01 5.15129E-02 + 6.19026E-01 4.31329E-02 9.19304E-01 1.42536E-02 1.00000E+01 + 0.00000E+00 -1.93680E+00 1.43980E+00 -2.16587E+00 1.47327E+00 + 6.05650E+01 5.63826E+00 5.97928E+01 5.77041E+00 5.75618E-01 + 4.98093E-02 6.26086E-01 4.16616E-02 9.24177E-01 1.32383E-02 + 1.00000E+01 0.00000E+00 -1.92412E+00 1.43719E+00 -2.15306E+00 + 1.47064E+00 6.05703E+01 5.63709E+00 5.98386E+01 5.76107E+00 + 5.83520E-01 4.81836E-02 6.32808E-01 4.02784E-02 9.28743E-01 + 1.22992E-02 9.99997E+00 0.00000E+00 -1.91149E+00 1.43463E+00 + -2.13967E+00 1.46792E+00 6.05781E+01 5.63550E+00 5.98824E+01 + 5.75218E+00 5.91170E-01 4.66297E-02 6.39210E-01 3.89786E-02 + 9.33021E-01 1.14296E-02 9.99997E+00 0.00000E+00 -1.89852E+00 + 1.43202E+00 -2.12539E+00 1.46505E+00 6.05844E+01 5.63428E+00 + 5.99233E+01 5.74402E+00 5.98577E-01 4.51444E-02 6.45322E-01 + 3.77531E-02 9.37002E-01 1.06312E-02 1.00000E+01 0.00000E+00 + -1.88682E+00 1.42971E+00 -2.11196E+00 1.46239E+00 6.05917E+01 + 5.63282E+00 5.99638E+01 5.73598E+00 6.05717E-01 4.37314E-02 + 6.51146E-01 3.66008E-02 9.40755E-01 9.88810E-03 1.00000E+01 + 0.00000E+00 -1.87388E+00 1.42718E+00 -2.09680E+00 1.45943E+00 + 6.05981E+01 5.63161E+00 6.00018E+01 5.72855E+00 6.12651E-01 + 4.23736E-02 6.56748E-01 3.55047E-02 9.44272E-01 9.20111E-03 + 9.99997E+00 0.00000E+00 -1.86151E+00 1.42478E+00 -2.08189E+00 + 1.45655E+00 6.06035E+01 5.63059E+00 6.00369E+01 5.72169E+00 + 6.19368E-01 4.10774E-02 6.62094E-01 3.44701E-02 9.47561E-01 + 8.56544E-03 1.00000E+01 0.00000E+00 -1.84907E+00 1.42241E+00 + -2.06650E+00 1.45361E+00 6.06083E+01 5.62953E+00 6.00705E+01 + 5.71540E+00 6.25858E-01 3.98369E-02 6.67238E-01 3.34894E-02 + 9.50651E-01 7.97557E-03 9.99997E+00 0.00000E+00 -1.83704E+00 + 1.42014E+00 -2.05131E+00 1.45074E+00 6.06132E+01 5.62868E+00 + 6.01036E+01 5.70907E+00 6.32153E-01 3.86494E-02 6.72163E-01 + 3.25598E-02 9.53543E-01 7.43035E-03 1.00000E+01 0.00000E+00 + -1.82474E+00 1.41785E+00 -2.03553E+00 1.44780E+00 6.06190E+01 + 5.62759E+00 6.01343E+01 5.70334E+00 6.38251E-01 3.75124E-02 + 6.76913E-01 3.16749E-02 9.56261E-01 6.92319E-03 9.99997E+00 + 0.00000E+00 -1.81302E+00 1.41569E+00 -2.02016E+00 1.44496E+00 + 6.06244E+01 5.62661E+00 6.01635E+01 5.69798E+00 6.44150E-01 + 3.64257E-02 6.81472E-01 3.08337E-02 9.58811E-01 6.45220E-03 + 1.00000E+01 0.00000E+00 -1.80174E+00 1.41363E+00 -2.00495E+00 + 1.44219E+00 6.06278E+01 5.62596E+00 6.01933E+01 5.69258E+00 + 6.49862E-01 3.53845E-02 6.85844E-01 3.00361E-02 9.61209E-01 + 6.01636E-03 1.00000E+01 0.00000E+00 -1.78915E+00 1.41137E+00 + -1.98828E+00 1.43920E+00 6.06327E+01 5.62515E+00 6.02176E+01 + 5.68812E+00 6.55439E-01 3.43790E-02 6.90127E-01 2.92656E-02 + 9.63462E-01 5.61011E-03 9.99997E+00 0.00000E+00 -1.77806E+00 + 1.40939E+00 -1.97299E+00 1.43647E+00 6.06366E+01 5.62442E+00 + 6.02439E+01 5.68349E+00 6.60821E-01 3.34209E-02 6.94222E-01 + 2.85358E-02 9.65571E-01 5.23331E-03 9.99997E+00 0.00000E+00 + -1.76734E+00 1.40750E+00 -1.95795E+00 1.43381E+00 6.06404E+01 + 5.62381E+00 6.02682E+01 5.67923E+00 6.66035E-01 3.25027E-02 + 6.98165E-01 2.78403E-02 9.67565E-01 4.88411E-03 1.00000E+01 + 0.00000E+00 -1.75596E+00 1.40552E+00 -1.94224E+00 1.43108E+00 + 6.06453E+01 5.62296E+00 6.02916E+01 5.67521E+00 6.71112E-01 + 3.16178E-02 7.02025E-01 2.71694E-02 9.69437E-01 4.55679E-03 + 1.00000E+01 0.00000E+00 -1.74554E+00 1.40372E+00 -1.92732E+00 + 1.42851E+00 6.06473E+01 5.62259E+00 6.03121E+01 5.67168E+00 + 6.76022E-01 3.07709E-02 7.05724E-01 2.65300E-02 9.71188E-01 + 4.25421E-03 9.99997E+00 0.00000E+00 -1.73439E+00 1.40182E+00 + -1.91159E+00 1.42582E+00 6.06507E+01 5.62194E+00 6.03340E+01 + 5.66774E+00 6.80812E-01 2.99533E-02 7.09342E-01 2.59142E-02 + 9.72848E-01 3.97253E-03 1.00000E+01 0.00000E+00 -1.72417E+00 + 1.40010E+00 -1.89681E+00 1.42334E+00 6.06551E+01 5.62125E+00 + 6.03530E+01 5.66461E+00 6.85461E-01 2.91705E-02 7.12842E-01 + 2.53235E-02 9.74401E-01 3.70994E-03 9.99997E+00 0.00000E+00 + -1.71406E+00 1.39841E+00 -1.88220E+00 1.42089E+00 6.06551E+01 + 5.62113E+00 6.03715E+01 5.66169E+00 6.89975E-01 2.84159E-02 + 7.16244E-01 2.47545E-02 9.75870E-01 3.46445E-03 1.00000E+01 + 0.00000E+00 -1.70407E+00 1.39676E+00 -1.86758E+00 1.41847E+00 + 6.06619E+01 5.62016E+00 6.03891E+01 5.65864E+00 6.94359E-01 + 2.76918E-02 7.19540E-01 2.42093E-02 9.77240E-01 3.23799E-03 + 9.99997E+00 0.00000E+00 -1.69439E+00 1.39517E+00 -1.85327E+00 + 1.41614E+00 6.06629E+01 5.61991E+00 6.04056E+01 5.65584E+00 + 6.98607E-01 2.69963E-02 7.22760E-01 2.36841E-02 9.78542E-01 + 3.02485E-03 1.00000E+01 0.00000E+00 -1.68488E+00 1.39364E+00 + -1.83931E+00 1.41387E+00 6.06643E+01 5.61963E+00 6.04217E+01 + 5.65324E+00 7.02773E-01 2.63224E-02 7.25906E-01 2.31739E-02 + 9.79775E-01 2.82597E-03 1.00000E+01 0.00000E+00 -1.67551E+00 + 1.39213E+00 -1.82532E+00 1.41163E+00 6.06677E+01 5.61918E+00 + 6.04368E+01 5.65097E+00 7.06805E-01 2.56756E-02 7.28956E-01 + 2.26859E-02 9.80909E-01 2.64330E-03 9.99997E+00 0.00000E+00 + -1.66662E+00 1.39071E+00 -1.81192E+00 1.40951E+00 6.06707E+01 + 5.61882E+00 6.04514E+01 5.64853E+00 7.10725E-01 2.50542E-02 + 7.31940E-01 2.22130E-02 9.81997E-01 2.47107E-03 9.99997E+00 + 0.00000E+00 -1.65767E+00 1.38931E+00 -1.79852E+00 1.40741E+00 + 6.06716E+01 5.61845E+00 6.04651E+01 5.64634E+00 7.14562E-01 + 2.44519E-02 7.34848E-01 2.17553E-02 9.83025E-01 2.30932E-03 + 1.00001E+01 0.00000E+00 -1.64908E+00 1.38797E+00 -1.78555E+00 + 1.40538E+00 6.06755E+01 5.61796E+00 6.04777E+01 5.64439E+00 + 7.18292E-01 2.38715E-02 7.37687E-01 2.13138E-02 9.83992E-01 + 2.15993E-03 9.99997E+00 0.00000E+00 -1.64074E+00 1.38669E+00 + -1.77295E+00 1.40344E+00 6.06755E+01 5.61796E+00 6.04914E+01 + 5.64245E+00 7.21900E-01 2.33149E-02 7.40458E-01 2.08866E-02 + 9.84890E-01 2.02101E-03 9.99997E+00 0.00000E+00 -1.63293E+00 + 1.38550E+00 -1.76081E+00 1.40160E+00 6.06790E+01 5.61743E+00 + 6.05016E+01 5.64082E+00 7.25442E-01 2.27752E-02 7.43170E-01 + 2.04726E-02 9.85750E-01 1.88969E-03 1.00000E+01 0.00000E+00 + -1.62454E+00 1.38423E+00 -1.74828E+00 1.39970E+00 6.06804E+01 + 5.61723E+00 6.05128E+01 5.63916E+00 7.28895E-01 2.22530E-02 + 7.45840E-01 2.00693E-02 9.86557E-01 1.76791E-03 9.99997E+00 + 0.00000E+00 -1.61711E+00 1.38312E+00 -1.73665E+00 1.39796E+00 + 6.06823E+01 5.61699E+00 6.05255E+01 5.63721E+00 7.32237E-01 + 2.17515E-02 7.48420E-01 1.96830E-02 9.87311E-01 1.65468E-03 + 9.99997E+00 0.00000E+00 -1.60944E+00 1.38198E+00 -1.72496E+00 + 1.39622E+00 6.06823E+01 5.61687E+00 6.05323E+01 5.63623E+00 + 7.35526E-01 2.12644E-02 7.50978E-01 1.93043E-02 9.88034E-01 + 1.54811E-03 1.00001E+01 0.00000E+00 -1.60286E+00 1.38102E+00 + -1.71455E+00 1.39469E+00 6.06843E+01 5.61662E+00 6.05440E+01 + 5.63453E+00 7.38715E-01 2.07962E-02 7.53467E-01 1.89379E-02 + 9.88704E-01 1.44820E-03 9.99997E+00 0.00000E+00 -1.59646E+00 + 1.38009E+00 -1.70430E+00 1.39320E+00 6.06868E+01 5.61622E+00 + 6.05504E+01 5.63351E+00 7.41808E-01 2.03451E-02 7.55890E-01 + 1.85848E-02 9.89343E-01 1.35684E-03 1.00000E+01 0.00000E+00 + -1.58654E+00 1.37866E+00 -1.69061E+00 1.39122E+00 6.06882E+01 + 5.61614E+00 6.05615E+01 5.63197E+00 7.44904E-01 1.98980E-02 + 7.58339E-01 1.82310E-02 9.89952E-01 1.26836E-03 9.99997E+00 + 0.00000E+00 -1.58179E+00 1.37797E+00 -1.68209E+00 1.39000E+00 + 6.06892E+01 5.61589E+00 6.05693E+01 5.63087E+00 7.47857E-01 + 1.94765E-02 7.60661E-01 1.78998E-02 9.90508E-01 1.18844E-03 + 9.99997E+00 0.00000E+00 -1.57540E+00 1.37707E+00 -1.67216E+00 + 1.38860E+00 6.06911E+01 5.61577E+00 6.05761E+01 5.62990E+00 + 7.50757E-01 1.90645E-02 7.62960E-01 1.75725E-02 9.91048E-01 + 1.11232E-03 1.00001E+01 0.00000E+00 -1.56931E+00 1.37620E+00 + -1.66248E+00 1.38724E+00 6.06901E+01 5.61577E+00 6.05830E+01 + 5.62893E+00 7.53589E-01 1.86667E-02 7.65236E-01 1.72537E-02 + 9.91551E-01 1.04190E-03 9.99997E+00 0.00000E+00 -1.56467E+00 + 1.37557E+00 -1.65461E+00 1.38614E+00 6.06946E+01 5.61524E+00 + 6.05922E+01 5.62754E+00 7.56331E-01 1.82850E-02 7.67430E-01 + 1.69482E-02 9.92015E-01 9.76243E-04 1.00000E+01 0.00000E+00 + -1.55737E+00 1.37456E+00 -1.64397E+00 1.38467E+00 6.06931E+01 + 5.61541E+00 6.05956E+01 5.62710E+00 7.59055E-01 1.79084E-02 + 7.69643E-01 1.66419E-02 9.92472E-01 9.13451E-04 9.99997E+00 + 0.00000E+00 -1.54994E+00 1.37354E+00 -1.63313E+00 1.38319E+00 + 6.06940E+01 5.61516E+00 6.06034E+01 5.62612E+00 7.61734E-01 + 1.75421E-02 7.71797E-01 1.63479E-02 9.92906E-01 8.54457E-04 + 9.99997E+00 0.00000E+00 -1.54623E+00 1.37304E+00 -1.62655E+00 + 1.38229E+00 6.06960E+01 5.61504E+00 6.06083E+01 5.62539E+00 + 7.64299E-01 1.71938E-02 7.73906E-01 1.60606E-02 9.93294E-01 + 8.01172E-04 9.99997E+00 0.00000E+00 -1.54105E+00 1.37234E+00 + -1.61803E+00 1.38115E+00 6.06970E+01 5.61480E+00 6.06151E+01 + 5.62454E+00 7.66834E-01 1.68532E-02 7.75953E-01 1.57856E-02 + 9.93667E-01 7.51694E-04 1.00001E+01 0.00000E+00 -1.53617E+00 + 1.37167E+00 -1.61034E+00 1.38012E+00 6.06965E+01 5.61500E+00 + 6.06186E+01 5.62413E+00 7.69302E-01 1.65229E-02 7.78010E-01 + 1.55105E-02 9.94025E-01 7.03161E-04 9.99989E+00 0.00000E+00 + -1.53204E+00 1.37113E+00 -1.60329E+00 1.37919E+00 6.06979E+01 + 5.61468E+00 6.06258E+01 5.62308E+00 7.71721E-01 1.62033E-02 + 7.79988E-01 1.52489E-02 9.94375E-01 6.57494E-04 1.00001E+01 + 0.00000E+00 -1.52558E+00 1.37028E+00 -1.59403E+00 1.37797E+00 + 6.06999E+01 5.61455E+00 6.06297E+01 5.62259E+00 7.74111E-01 + 1.58893E-02 7.81990E-01 1.49863E-02 9.94672E-01 6.18482E-04 + 9.99997E+00 0.00000E+00 -1.52169E+00 1.36980E+00 -1.58758E+00 + 1.37713E+00 6.06979E+01 5.61468E+00 6.06327E+01 5.62223E+00 + 7.76433E-01 1.55867E-02 7.83916E-01 1.47351E-02 9.94984E-01 + 5.77567E-04 9.99997E+00 0.00000E+00 -1.51779E+00 1.36928E+00 + -1.58100E+00 1.37630E+00 6.07028E+01 5.61419E+00 6.06404E+01 + 5.62125E+00 7.78694E-01 1.52955E-02 7.85826E-01 1.44887E-02 + 9.95258E-01 5.42361E-04 1.00001E+01 0.00000E+00 -1.51280E+00 + 1.36865E+00 -1.57381E+00 1.37535E+00 6.06989E+01 5.61455E+00 + 6.06414E+01 5.62113E+00 7.80932E-01 1.50091E-02 7.87714E-01 + 1.42470E-02 9.95532E-01 5.07155E-04 9.99997E+00 0.00000E+00 + -1.50925E+00 1.36819E+00 -1.56747E+00 1.37457E+00 6.07014E+01 + 5.61427E+00 6.06449E+01 5.62060E+00 7.83118E-01 1.47312E-02 + 7.89558E-01 1.40128E-02 9.95768E-01 4.76703E-04 1.00000E+01 + 0.00000E+00 -1.50598E+00 1.36777E+00 -1.56188E+00 1.37386E+00 + 6.07028E+01 5.61407E+00 6.06492E+01 5.62004E+00 7.85240E-01 + 1.44630E-02 7.91376E-01 1.37836E-02 9.96019E-01 4.45307E-04 + 9.99997E+00 0.00000E+00 -1.50063E+00 1.36711E+00 -1.55422E+00 + 1.37290E+00 6.07023E+01 5.61423E+00 6.06536E+01 5.61959E+00 + 7.87355E-01 1.41986E-02 7.93163E-01 1.35591E-02 9.96240E-01 + 4.18668E-04 9.99992E+00 0.00000E+00 -1.49755E+00 1.36673E+00 + -1.54919E+00 1.37227E+00 6.07029E+01 5.61398E+00 6.06561E+01 + 5.61922E+00 7.89392E-01 1.39461E-02 7.94949E-01 1.33390E-02 + 9.96438E-01 3.92017E-04 1.00001E+01 0.00000E+00 -1.49504E+00 + 1.36642E+00 -1.54436E+00 1.37169E+00 6.07037E+01 5.61403E+00 + 6.06589E+01 5.61890E+00 7.91403E-01 1.36982E-02 7.96663E-01 + 1.31272E-02 9.96651E-01 3.66337E-04 1.00000E+01 0.00000E+00 + -1.48988E+00 1.36579E+00 -1.53737E+00 1.37081E+00 6.07048E+01 + 5.61386E+00 6.06629E+01 5.61837E+00 7.93403E-01 1.34532E-02 + 7.98412E-01 1.29137E-02 9.96833E-01 3.43490E-04 9.99994E+00 + 0.00000E+00 -1.48819E+00 1.36558E+00 -1.53362E+00 1.37037E+00 + 6.07018E+01 5.61419E+00 6.06638E+01 5.61833E+00 7.95311E-01 + 1.32222E-02 8.00068E-01 1.27122E-02 9.97016E-01 3.23514E-04 + 1.00001E+01 0.00000E+00 -1.48393E+00 1.36506E+00 -1.52729E+00 + 1.36961E+00 6.07067E+01 5.61358E+00 6.06687E+01 5.61772E+00 + 7.97237E-01 1.29900E-02 8.01751E-01 1.25105E-02 9.97184E-01 + 3.02581E-04 9.99997E+00 0.00000E+00 -1.48125E+00 1.36476E+00 + -1.52303E+00 1.36909E+00 6.07057E+01 5.61382E+00 6.06697E+01 + 5.61760E+00 7.99094E-01 1.27683E-02 8.03380E-01 1.23154E-02 + 9.97336E-01 2.83550E-04 9.99997E+00 0.00000E+00 -1.47869E+00 + 1.36445E+00 -1.51876E+00 1.36859E+00 6.07067E+01 5.61370E+00 + 6.06716E+01 5.61736E+00 8.00906E-01 1.25533E-02 8.04994E-01 + 1.21242E-02 9.97488E-01 2.65472E-04 1.00001E+01 0.00000E+00 + -1.47577E+00 1.36410E+00 -1.51401E+00 1.36803E+00 6.07057E+01 + 5.61382E+00 6.06736E+01 5.61711E+00 8.02725E-01 1.23392E-02 + 8.06592E-01 1.19358E-02 9.97625E-01 2.49296E-04 9.99997E+00 + 0.00000E+00 -1.47297E+00 1.36378E+00 -1.50975E+00 1.36753E+00 + 6.07067E+01 5.61358E+00 6.06775E+01 5.61662E+00 8.04476E-01 + 1.21346E-02 8.08145E-01 1.17540E-02 9.97762E-01 2.34072E-04 + 9.99997E+00 0.00000E+00 -1.47088E+00 1.36353E+00 -1.50595E+00 + 1.36709E+00 6.07048E+01 5.61374E+00 6.06756E+01 5.61678E+00 + 8.06222E-01 1.19318E-02 8.09708E-01 1.15731E-02 9.97899E-01 + 2.18844E-04 1.00001E+01 0.00000E+00 -1.46751E+00 1.36315E+00 + -1.50100E+00 1.36653E+00 6.07086E+01 5.61342E+00 6.06813E+01 + 5.61622E+00 8.07914E-01 1.17371E-02 8.11225E-01 1.13983E-02 + 9.98006E-01 2.06481E-04 9.99988E+00 0.00000E+00 -1.46576E+00 + 1.36294E+00 -1.49804E+00 1.36618E+00 6.07058E+01 5.61374E+00 + 6.06805E+01 5.61630E+00 8.09587E-01 1.15464E-02 8.12738E-01 + 1.12258E-02 9.98143E-01 1.91251E-04 1.00001E+01 0.00000E+00 + -1.46386E+00 1.36274E+00 -1.49467E+00 1.36580E+00 6.07096E+01 + 5.61330E+00 6.06833E+01 5.61598E+00 8.11233E-01 1.13593E-02 + 8.14217E-01 1.10586E-02 9.98219E-01 1.80790E-04 1.00000E+01 + 0.00000E+00 -1.46247E+00 1.36257E+00 -1.49207E+00 1.36550E+00 + 6.07038E+01 5.61386E+00 6.06843E+01 5.61581E+00 8.12837E-01 + 1.11791E-02 8.15653E-01 1.08946E-02 9.98310E-01 1.70318E-04 + 9.99994E+00 0.00000E+00 -1.45750E+00 1.36202E+00 -1.48576E+00 + 1.36479E+00 6.07077E+01 5.61346E+00 6.06862E+01 5.61565E+00 + 8.14448E-01 1.09985E-02 8.17127E-01 1.07302E-02 9.98432E-01 + 1.57951E-04 1.00001E+01 0.00000E+00 -1.45750E+00 1.36202E+00 + -1.48454E+00 1.36466E+00 6.07087E+01 5.61334E+00 6.06882E+01 + 5.61541E+00 8.15985E-01 1.08272E-02 8.18543E-01 1.05741E-02 + 9.98508E-01 1.49387E-04 9.99997E+00 0.00000E+00 -1.45482E+00 + 1.36173E+00 -1.48052E+00 1.36422E+00 6.07106E+01 5.61321E+00 + 6.06901E+01 5.61516E+00 8.17538E-01 1.06560E-02 8.19944E-01 + 1.04190E-02 9.98599E-01 1.39872E-04 9.99997E+00 0.00000E+00 + -1.45348E+00 1.36157E+00 -1.47808E+00 1.36395E+00 6.07048E+01 + 5.61370E+00 6.06882E+01 5.61541E+00 8.19030E-01 1.04923E-02 + 8.21314E-01 1.02678E-02 9.98676E-01 1.30357E-04 1.00001E+01 + 0.00000E+00 -1.45202E+00 1.36141E+00 -1.47553E+00 1.36368E+00 + 6.07096E+01 5.61334E+00 6.06921E+01 5.61492E+00 8.20507E-01 + 1.03315E-02 8.22684E-01 1.01193E-02 9.98736E-01 1.23696E-04 + 9.99997E+00 0.00000E+00 -1.45007E+00 1.36121E+00 -1.47285E+00 + 1.36339E+00 6.07096E+01 5.61321E+00 6.06940E+01 5.61492E+00 + 8.21953E-01 1.01745E-02 8.24039E-01 9.97279E-03 9.98828E-01 + 1.14181E-04 9.99997E+00 0.00000E+00 -1.44812E+00 1.36100E+00 + -1.46944E+00 1.36302E+00 6.07077E+01 5.61346E+00 6.06940E+01 + 5.61492E+00 8.23415E-01 1.00175E-02 8.25348E-01 9.83196E-03 + 9.98873E-01 1.09424E-04 9.99997E+00 0.00000E+00 -1.44640E+00 + 1.36081E+00 -1.46686E+00 1.36274E+00 6.07087E+01 5.61337E+00 + 6.06951E+01 5.61471E+00 8.24803E-01 9.86987E-03 8.26660E-01 + 9.69290E-03 9.98950E-01 1.01810E-04 1.00001E+01 0.00000E+00 + -1.44557E+00 1.36072E+00 -1.46517E+00 1.36256E+00 6.07096E+01 + 5.61334E+00 6.06940E+01 5.61468E+00 8.26201E-01 9.72064E-03 + 8.27967E-01 9.55412E-03 9.99010E-01 9.51511E-05 9.99997E+00 + 0.00000E+00 -1.44532E+00 1.36071E+00 -1.46432E+00 1.36247E+00 + 6.07096E+01 5.61334E+00 6.06960E+01 5.61455E+00 8.27525E-01 + 9.58076E-03 8.29215E-01 9.42091E-03 9.99071E-01 8.75390E-05 + 9.99997E+00 0.00000E+00 -1.44191E+00 1.36034E+00 -1.45969E+00 + 1.36199E+00 6.07096E+01 5.61334E+00 6.06999E+01 5.61431E+00 + 8.28926E-01 9.43518E-03 8.30479E-01 9.28960E-03 9.99102E-01 + 8.46845E-05 9.99997E+00 0.00000E+00 -1.44021E+00 1.36016E+00 + -1.45750E+00 1.36176E+00 6.07116E+01 5.61309E+00 6.06979E+01 + 5.61443E+00 8.30220E-01 9.30102E-03 8.31742E-01 9.15829E-03 + 9.99178E-01 7.80239E-05 1.00001E+01 0.00000E+00 -1.44009E+00 + 1.36016E+00 -1.45641E+00 1.36165E+00 6.07096E+01 5.61321E+00 + 6.06999E+01 5.61419E+00 8.31529E-01 9.16495E-03 8.32930E-01 + 9.03460E-03 9.99193E-01 7.42179E-05 9.99997E+00 0.00000E+00 + -1.43838E+00 1.35998E+00 -1.45397E+00 1.36141E+00 6.07096E+01 + 5.61334E+00 6.06999E+01 5.61431E+00 8.32823E-01 9.03365E-03 + 8.34163E-01 8.90900E-03 9.99254E-01 6.85088E-05 9.99997E+00 + 0.00000E+00 -1.43814E+00 1.35995E+00 -1.45300E+00 1.36130E+00 + 6.07096E+01 5.61334E+00 6.06999E+01 5.61407E+00 8.34072E-01 + 8.90519E-03 8.35351E-01 8.78816E-03 9.99300E-01 6.47027E-05 + 1.00001E+01 0.00000E+00 -1.43668E+00 1.35981E+00 -1.45092E+00 + 1.36109E+00 6.07116E+01 5.61309E+00 6.07018E+01 5.61407E+00 + 8.35320E-01 8.77864E-03 8.36538E-01 8.66827E-03 9.99330E-01 + 6.08967E-05 9.99997E+00 0.00000E+00 -1.43558E+00 1.35969E+00 + -1.44898E+00 1.36090E+00 6.07096E+01 5.61334E+00 6.06999E+01 + 5.61419E+00 8.36538E-01 8.65590E-03 8.37695E-01 8.55218E-03 + 9.99376E-01 5.70907E-05 9.99997E+00 0.00000E+00 -1.43446E+00 + 1.35959E+00 -1.44737E+00 1.36073E+00 6.07087E+01 5.61337E+00 + 6.07029E+01 5.61386E+00 8.37758E-01 8.53492E-03 8.38824E-01 + 8.43882E-03 9.99406E-01 5.42353E-05 1.00001E+01 0.00000E+00 + -1.43400E+00 1.35953E+00 -1.44630E+00 1.36063E+00 6.07135E+01 + 5.61297E+00 6.07018E+01 5.61395E+00 8.38943E-01 8.41707E-03 + 8.39979E-01 8.32477E-03 9.99437E-01 5.04301E-05 9.99997E+00 + 0.00000E+00 -1.43302E+00 1.35944E+00 -1.44471E+00 1.36048E+00 + 6.07096E+01 5.61321E+00 6.07018E+01 5.61395E+00 8.40116E-01 + 8.30098E-03 8.41075E-01 8.21439E-03 9.99482E-01 4.66240E-05 + 9.99997E+00 0.00000E+00 -1.43180E+00 1.35932E+00 -1.44325E+00 + 1.36033E+00 6.07096E+01 5.61321E+00 6.07038E+01 5.61370E+00 + 8.41273E-01 8.18775E-03 8.42201E-01 8.10497E-03 9.99513E-01 + 4.37695E-05 9.99997E+00 0.00000E+00 -1.43034E+00 1.35917E+00 + -1.44106E+00 1.36010E+00 6.07135E+01 5.61297E+00 6.07057E+01 + 5.61358E+00 8.42399E-01 8.07738E-03 8.43282E-01 7.99935E-03 + 9.99528E-01 4.18665E-05 9.99997E+00 0.00000E+00 -1.43059E+00 + 1.35918E+00 -1.44082E+00 1.36008E+00 6.07077E+01 5.61346E+00 + 6.07038E+01 5.61395E+00 8.43526E-01 7.96795E-03 8.44363E-01 + 7.89469E-03 9.99559E-01 3.80604E-05 1.00001E+01 0.00000E+00 + -1.42937E+00 1.35909E+00 -1.43911E+00 1.35991E+00 6.07116E+01 + 5.61321E+00 6.07077E+01 5.61358E+00 8.44637E-01 7.86043E-03 + 8.45398E-01 7.79478E-03 9.99574E-01 3.71089E-05 9.99997E+00 + 0.00000E+00 -1.42864E+00 1.35902E+00 -1.43789E+00 1.35981E+00 + 6.07116E+01 5.61309E+00 6.07057E+01 5.61370E+00 8.45718E-01 + 7.75672E-03 8.46464E-01 7.69297E-03 9.99589E-01 3.52059E-05 + 9.99997E+00 0.00000E+00 -1.42742E+00 1.35889E+00 -1.43643E+00 + 1.35966E+00 6.07135E+01 5.61285E+00 6.07077E+01 5.61346E+00 + 8.46799E-01 7.65491E-03 8.47515E-01 7.59306E-03 9.99635E-01 + 3.13999E-05 1.00001E+01 0.00000E+00 -1.42742E+00 1.35888E+00 + -1.43570E+00 1.35960E+00 6.07077E+01 5.61334E+00 6.07057E+01 + 5.61358E+00 8.47865E-01 7.55405E-03 8.48504E-01 7.49791E-03 + 9.99650E-01 3.04484E-05 9.99997E+00 0.00000E+00 -1.42718E+00 + 1.35888E+00 -1.43521E+00 1.35955E+00 6.07096E+01 5.61321E+00 + 6.07057E+01 5.61370E+00 8.48900E-01 7.45604E-03 8.49524E-01 + 7.40276E-03 9.99665E-01 2.85453E-05 9.99997E+00 0.00000E+00 + -1.42594E+00 1.35875E+00 -1.43349E+00 1.35941E+00 6.07107E+01 + 5.61325E+00 6.07068E+01 5.61349E+00 8.49938E-01 7.35887E-03 + 8.50547E-01 7.30749E-03 9.99711E-01 2.56904E-05 1.00001E+01 + 0.00000E+00 -1.42571E+00 1.35874E+00 -1.43302E+00 1.35934E+00 + 6.07116E+01 5.61309E+00 6.07077E+01 5.61346E+00 8.50955E-01 + 7.26479E-03 8.51503E-01 7.21816E-03 9.99696E-01 2.56908E-05 + 9.99997E+00 0.00000E+00 -1.42498E+00 1.35868E+00 -1.43229E+00 + 1.35929E+00 6.07116E+01 5.61309E+00 6.07077E+01 5.61346E+00 + 8.51945E-01 7.17344E-03 8.52493E-01 7.12682E-03 9.99726E-01 + 2.28363E-05 9.99997E+00 0.00000E+00 -1.42450E+00 1.35864E+00 + -1.43107E+00 1.35918E+00 6.07116E+01 5.61309E+00 6.07077E+01 + 5.61346E+00 8.52950E-01 7.08019E-03 8.53452E-01 7.03833E-03 + 9.99756E-01 2.09332E-05 9.99997E+00 0.00000E+00 -1.42376E+00 + 1.35856E+00 -1.42985E+00 1.35906E+00 6.07135E+01 5.61309E+00 + 6.07096E+01 5.61334E+00 8.53924E-01 6.99170E-03 8.54381E-01 + 6.95269E-03 9.99741E-01 2.18848E-05 9.99997E+00 0.00000E+00 + -1.42328E+00 1.35851E+00 -1.42937E+00 1.35902E+00 6.07096E+01 + 5.61321E+00 6.07077E+01 5.61334E+00 8.54883E-01 6.90416E-03 + 8.55340E-01 6.86705E-03 9.99772E-01 1.90302E-05 1.00001E+01 + 0.00000E+00 -1.42303E+00 1.35850E+00 -1.42888E+00 1.35897E+00 + 6.07135E+01 5.61297E+00 6.07077E+01 5.61346E+00 8.55812E-01 + 6.81948E-03 8.56269E-01 6.78332E-03 9.99772E-01 1.80787E-05 + 9.99997E+00 0.00000E+00 -1.42255E+00 1.35845E+00 -1.42791E+00 + 1.35888E+00 6.07116E+01 5.61321E+00 6.07077E+01 5.61346E+00 + 8.56786E-01 6.73289E-03 8.57182E-01 6.70054E-03 9.99802E-01 + 1.71272E-05 9.99997E+00 0.00000E+00 -1.42206E+00 1.35839E+00 + -1.42718E+00 1.35882E+00 6.07116E+01 5.61321E+00 6.07077E+01 + 5.61334E+00 8.57715E-01 6.65106E-03 8.58080E-01 6.61966E-03 + 9.99802E-01 1.61757E-05 1.00001E+01 0.00000E+00 -1.42182E+00 + 1.35838E+00 -1.42669E+00 1.35877E+00 6.07116E+01 5.61297E+00 + 6.07116E+01 5.61309E+00 8.58613E-01 6.57018E-03 8.58978E-01 + 6.54069E-03 9.99817E-01 1.42727E-05 9.99997E+00 0.00000E+00 + -1.42133E+00 1.35835E+00 -1.42620E+00 1.35873E+00 6.07116E+01 + 5.61309E+00 6.07077E+01 5.61346E+00 8.59511E-01 6.49026E-03 + 8.59861E-01 6.46266E-03 9.99833E-01 1.42727E-05 9.99997E+00 + 0.00000E+00 -1.42131E+00 1.35834E+00 -1.42569E+00 1.35869E+00 + 6.07146E+01 5.61289E+00 6.07087E+01 5.61325E+00 8.60396E-01 + 6.41213E-03 8.60731E-01 6.38644E-03 9.99833E-01 1.33210E-05 + 1.00001E+01 0.00000E+00 -1.42084E+00 1.35829E+00 -1.42523E+00 + 1.35864E+00 6.07096E+01 5.61334E+00 6.07096E+01 5.61321E+00 + 8.61293E-01 6.33516E-03 8.61612E-01 6.30947E-03 9.99848E-01 + 1.23696E-05 9.99997E+00 0.00000E+00 -1.42060E+00 1.35827E+00 + -1.42450E+00 1.35857E+00 6.07135E+01 5.61297E+00 6.07096E+01 + 5.61321E+00 8.62160E-01 6.25904E-03 8.62434E-01 6.23715E-03 + 9.99848E-01 1.14181E-05 9.99997E+00 0.00000E+00 -1.42011E+00 + 1.35822E+00 -1.42376E+00 1.35851E+00 6.07116E+01 5.61321E+00 + 6.07077E+01 5.61346E+00 8.63013E-01 6.18482E-03 8.63272E-01 + 6.16484E-03 9.99848E-01 1.14181E-05 9.99997E+00 0.00000E+00 + -1.41987E+00 1.35821E+00 -1.42376E+00 1.35851E+00 6.07116E+01 + 5.61309E+00 6.07116E+01 5.61309E+00 8.63865E-01 6.11251E-03 + 8.64139E-01 6.09062E-03 9.99878E-01 9.51511E-06 9.99997E+00 + 0.00000E+00 -1.41962E+00 1.35819E+00 -1.42303E+00 1.35844E+00 + 6.07096E+01 5.61321E+00 6.07096E+01 5.61334E+00 8.64703E-01 + 6.04019E-03 8.64931E-01 6.02306E-03 9.99878E-01 1.04666E-05 + 1.00001E+01 0.00000E+00 -1.41914E+00 1.35815E+00 -1.42279E+00 + 1.35844E+00 6.07135E+01 5.61297E+00 6.07077E+01 5.61334E+00 + 8.65525E-01 5.97168E-03 8.65768E-01 5.95075E-03 9.99893E-01 + 8.56360E-06 9.99997E+00 0.00000E+00 -1.41914E+00 1.35815E+00 + -1.42206E+00 1.35838E+00 6.07135E+01 5.61297E+00 6.07135E+01 + 5.61297E+00 8.66332E-01 5.90127E-03 8.66545E-01 5.88510E-03 + 9.99878E-01 8.56360E-06 9.99997E+00 0.00000E+00 -1.41865E+00 + 1.35810E+00 -1.42133E+00 1.35832E+00 6.07096E+01 5.61334E+00 + 6.07116E+01 5.61321E+00 8.67154E-01 5.83276E-03 8.67352E-01 + 5.81754E-03 9.99909E-01 7.61209E-06 1.00001E+01 0.00000E+00 + -1.41865E+00 1.35810E+00 -1.42182E+00 1.35835E+00 6.07135E+01 + 5.61297E+00 6.07096E+01 5.61321E+00 8.67930E-01 5.76711E-03 + 8.68159E-01 5.75093E-03 9.99909E-01 7.61209E-06 9.99997E+00 + 0.00000E+00 -1.41816E+00 1.35807E+00 -1.42060E+00 1.35826E+00 + 6.07135E+01 5.61297E+00 6.07096E+01 5.61321E+00 8.68752E-01 + 5.70050E-03 8.68905E-01 5.68813E-03 9.99909E-01 7.61209E-06 + 9.99997E+00 0.00000E+00 -1.41838E+00 1.35807E+00 -1.42058E+00 + 1.35827E+00 6.07068E+01 5.61337E+00 6.07107E+01 5.61313E+00 + 8.69500E-01 5.63762E-03 8.69683E-01 5.62334E-03 9.99909E-01 + 6.66048E-06 1.00001E+01 0.00000E+00 -1.41841E+00 1.35807E+00 + -1.42084E+00 1.35827E+00 6.07135E+01 5.61297E+00 6.07096E+01 + 5.61321E+00 8.70275E-01 5.57300E-03 8.70442E-01 5.55968E-03 + 9.99924E-01 5.70907E-06 9.99997E+00 0.00000E+00 -1.41743E+00 + 1.35801E+00 -1.41987E+00 1.35819E+00 6.07135E+01 5.61297E+00 + 6.07096E+01 5.61321E+00 8.71036E-01 5.51115E-03 8.71203E-01 + 5.49878E-03 9.99939E-01 4.75755E-06 9.99997E+00 0.00000E+00 + -1.41768E+00 1.35803E+00 -1.41962E+00 1.35818E+00 6.07116E+01 + 5.61297E+00 6.07135E+01 5.61297E+00 8.71782E-01 5.44930E-03 + 8.71934E-01 5.43884E-03 9.99924E-01 5.70907E-06 9.99997E+00 + 0.00000E+00 -1.41743E+00 1.35801E+00 -1.41938E+00 1.35816E+00 + 6.07116E+01 5.61321E+00 6.07096E+01 5.61321E+00 8.72543E-01 + 5.38936E-03 8.72665E-01 5.37984E-03 9.99924E-01 5.70907E-06 + 9.99997E+00 0.00000E+00 -1.41694E+00 1.35797E+00 -1.41889E+00 + 1.35812E+00 6.07096E+01 5.61321E+00 6.07057E+01 5.61346E+00 + 8.73259E-01 5.33036E-03 8.73381E-01 5.32085E-03 9.99924E-01 + 5.70907E-06 1.00001E+01 0.00000E+00 -1.41743E+00 1.35800E+00 + -1.41889E+00 1.35812E+00 6.07135E+01 5.61297E+00 6.07135E+01 + 5.61297E+00 8.73990E-01 5.27137E-03 8.74111E-01 5.26281E-03 + 9.99954E-01 3.80604E-06 9.99997E+00 0.00000E+00 -1.41670E+00 + 1.35795E+00 -1.41841E+00 1.35809E+00 6.07135E+01 5.61297E+00 + 6.07096E+01 5.61321E+00 8.74705E-01 5.21523E-03 8.74827E-01 + 5.20572E-03 9.99924E-01 4.75755E-06 9.99997E+00 0.00000E+00 + -1.41694E+00 1.35795E+00 -1.41889E+00 1.35810E+00 6.07135E+01 + 5.61297E+00 6.07135E+01 5.61297E+00 8.75421E-01 5.15814E-03 + 8.75542E-01 5.14863E-03 9.99954E-01 2.85453E-06 1.00001E+01 + 0.00000E+00 -1.41670E+00 1.35795E+00 -1.41816E+00 1.35804E+00 + 6.07096E+01 5.61321E+00 6.07096E+01 5.61321E+00 8.76121E-01 + 5.10200E-03 8.76197E-01 5.09629E-03 9.99939E-01 3.80604E-06 + 9.99997E+00 0.00000E+00 -1.41644E+00 1.35793E+00 -1.41814E+00 + 1.35805E+00 6.07107E+01 5.61313E+00 6.07107E+01 5.61313E+00 + 8.76793E-01 5.04864E-03 8.76914E-01 5.04008E-03 9.99939E-01 + 3.80599E-06 9.99994E+00 0.00000E+00 -1.41621E+00 1.35792E+00 + -1.41768E+00 1.35803E+00 6.07135E+01 5.61297E+00 6.07135E+01 + 5.61297E+00 8.77491E-01 4.99448E-03 8.77582E-01 4.98782E-03 + 9.99954E-01 2.85453E-06 1.00001E+01 0.00000E+00 -1.41621E+00 + 1.35792E+00 -1.41768E+00 1.35801E+00 6.07096E+01 5.61321E+00 + 6.07057E+01 5.61346E+00 8.78191E-01 4.94025E-03 8.78267E-01 + 4.93454E-03 9.99954E-01 2.85453E-06 9.99997E+00 0.00000E+00 + -1.41646E+00 1.35794E+00 -1.41768E+00 1.35803E+00 6.07116E+01 + 5.61321E+00 6.07135E+01 5.61297E+00 8.78846E-01 4.88982E-03 + 8.78907E-01 4.88411E-03 9.99954E-01 3.80604E-06 9.99997E+00 + 0.00000E+00 -1.41573E+00 1.35787E+00 -1.41743E+00 1.35800E+00 + 6.07135E+01 5.61297E+00 6.07096E+01 5.61321E+00 8.79485E-01 + 4.83938E-03 8.79592E-01 4.83177E-03 9.99970E-01 2.85453E-06 + 9.99997E+00 0.00000E+00 -1.41621E+00 1.35791E+00 -1.41694E+00 + 1.35797E+00 6.07135E+01 5.61297E+00 6.07116E+01 5.61297E+00 + 8.80171E-01 4.78705E-03 8.80231E-01 4.78229E-03 9.99970E-01 + 1.90302E-06 9.99997E+00 0.00000E+00 -1.41621E+00 1.35791E+00 + -1.41743E+00 1.35800E+00 6.07096E+01 5.61321E+00 6.07096E+01 + 5.61321E+00 8.80825E-01 4.73662E-03 8.80886E-01 4.73186E-03 + 9.99970E-01 1.90302E-06 9.99997E+00 0.00000E+00 -1.41524E+00 + 1.35784E+00 -1.41670E+00 1.35794E+00 6.07135E+01 5.61297E+00 + 6.07135E+01 5.61297E+00 8.81434E-01 4.69095E-03 8.81510E-01 + 4.68429E-03 9.99970E-01 1.90302E-06 9.99997E+00 0.00000E+00 + -1.41573E+00 1.35787E+00 -1.41646E+00 1.35794E+00 6.07116E+01 + 5.61321E+00 6.07096E+01 5.61321E+00 8.82104E-01 4.64052E-03 + 8.82134E-01 4.63766E-03 9.99970E-01 1.90302E-06 1.00002E+01 + 0.00000E+00 -1.41573E+00 1.35787E+00 -1.41670E+00 1.35794E+00 + 6.07135E+01 5.61297E+00 6.07135E+01 5.61297E+00 8.82728E-01 + 4.59294E-03 8.82789E-01 4.58914E-03 9.99970E-01 1.90302E-06 + 9.99997E+00 0.00000E+00 -1.41548E+00 1.35784E+00 -1.41646E+00 + 1.35794E+00 6.07096E+01 5.61321E+00 6.07096E+01 5.61321E+00 + 8.83322E-01 4.54822E-03 8.83398E-01 4.54251E-03 9.99970E-01 + 1.90302E-06 9.99997E+00 0.00000E+00 -1.41546E+00 1.35785E+00 + -1.41644E+00 1.35791E+00 6.07146E+01 5.61289E+00 6.07146E+01 + 5.61289E+00 8.83948E-01 4.50153E-03 8.84009E-01 4.49772E-03 + 9.99970E-01 1.90299E-06 1.00001E+01 0.00000E+00 -1.41573E+00 + 1.35787E+00 -1.41597E+00 1.35787E+00 6.07135E+01 5.61297E+00 + 6.07096E+01 5.61321E+00 8.84585E-01 4.45402E-03 8.84601E-01 + 4.45402E-03 9.99970E-01 2.85453E-06 9.99997E+00 0.00000E+00 + -1.41500E+00 1.35781E+00 -1.41621E+00 1.35791E+00 6.07135E+01 + 5.61297E+00 6.07135E+01 5.61297E+00 8.85149E-01 4.41216E-03 + 8.85240E-01 4.40645E-03 9.99970E-01 1.90302E-06 9.99997E+00 + 0.00000E+00 -1.41573E+00 1.35787E+00 -1.41621E+00 1.35791E+00 + 6.07096E+01 5.61321E+00 6.07096E+01 5.61321E+00 8.85758E-01 + 4.36744E-03 8.85788E-01 4.36553E-03 9.99985E-01 1.90302E-06 + 9.99997E+00 0.00000E+00 -1.41475E+00 1.35781E+00 -1.41573E+00 + 1.35787E+00 6.07096E+01 5.61321E+00 6.07096E+01 5.61321E+00 + 8.86336E-01 4.32462E-03 8.86397E-01 4.32081E-03 1.00000E+00 + 0.00000E+00 9.99997E+00 0.00000E+00 -1.41524E+00 1.35784E+00 + -1.41621E+00 1.35791E+00 6.07174E+01 5.61273E+00 6.07135E+01 + 5.61297E+00 8.86945E-01 4.28085E-03 8.86976E-01 4.27799E-03 + 9.99970E-01 1.90302E-06 9.99997E+00 0.00000E+00 -1.41451E+00 + 1.35778E+00 -1.41500E+00 1.35781E+00 6.07057E+01 5.61346E+00 + 6.07096E+01 5.61321E+00 8.87509E-01 4.23993E-03 8.87539E-01 + 4.23803E-03 9.99970E-01 1.90302E-06 9.99997E+00 0.00000E+00 + -1.41524E+00 1.35784E+00 -1.41621E+00 1.35791E+00 6.07135E+01 + 5.61297E+00 6.07135E+01 5.61297E+00 8.88087E-01 4.19807E-03 + 8.88133E-01 4.19426E-03 1.00000E+00 0.00000E+00 1.00002E+01 + 0.00000E+00 -1.41475E+00 1.35781E+00 -1.41548E+00 1.35784E+00 + 6.07135E+01 5.61297E+00 6.07135E+01 5.61297E+00 8.88650E-01 + 4.15715E-03 8.88666E-01 4.15620E-03 9.99970E-01 1.90302E-06 + 9.99997E+00 0.00000E+00 -1.41500E+00 1.35781E+00 -1.41524E+00 + 1.35784E+00 6.07096E+01 5.61321E+00 6.07096E+01 5.61321E+00 + 8.89214E-01 4.11719E-03 8.89229E-01 4.11528E-03 1.00000E+00 + 0.00000E+00 9.99997E+00 0.00000E+00 -1.41546E+00 1.35785E+00 + -1.41546E+00 1.35785E+00 6.07146E+01 5.61289E+00 6.07107E+01 + 5.61313E+00 8.89779E-01 4.07621E-03 8.89779E-01 4.07621E-03 + 9.99970E-01 1.90299E-06 1.00001E+01 0.00000E+00 -1.41500E+00 + 1.35781E+00 -1.41573E+00 1.35787E+00 6.07135E+01 5.61297E+00 + 6.07135E+01 5.61297E+00 8.90310E-01 4.03916E-03 8.90371E-01 + 4.03441E-03 1.00000E+00 0.00000E+00 9.99997E+00 0.00000E+00 + -1.41475E+00 1.35781E+00 -1.41500E+00 1.35781E+00 6.07096E+01 + 5.61321E+00 6.07096E+01 5.61321E+00 8.90843E-01 4.00015E-03 + 8.90858E-01 4.00015E-03 9.99985E-01 9.51511E-07 9.99997E+00 + 0.00000E+00 -1.41451E+00 1.35778E+00 -1.41475E+00 1.35781E+00 + 6.07135E+01 5.61297E+00 6.07135E+01 5.61297E+00 8.91391E-01 + 3.96209E-03 8.91421E-01 3.96019E-03 9.99985E-01 9.51511E-07 + 9.99997E+00 0.00000E+00 -1.41475E+00 1.35781E+00 -1.41621E+00 + 1.35787E+00 6.07096E+01 5.61321E+00 6.07135E+01 5.61297E+00 + 8.91924E-01 3.92498E-03 8.91969E-01 3.92213E-03 1.00000E+00 + 0.00000E+00 9.99997E+00 0.00000E+00 -1.41475E+00 1.35781E+00 + -1.41475E+00 1.35781E+00 6.07096E+01 5.61321E+00 6.07135E+01 + 5.61297E+00 8.92456E-01 3.88787E-03 8.92441E-01 3.88787E-03 + 9.99985E-01 9.51511E-07 9.99997E+00 0.00000E+00 -1.41427E+00 + 1.35778E+00 -1.41475E+00 1.35781E+00 6.07135E+01 5.61297E+00 + 6.07096E+01 5.61321E+00 8.92974E-01 3.85172E-03 8.93004E-01 + 3.84981E-03 1.00000E+00 0.00000E+00 9.99997E+00 0.00000E+00 + -1.41427E+00 1.35778E+00 -1.41475E+00 1.35778E+00 6.07135E+01 + 5.61297E+00 6.07096E+01 5.61321E+00 8.93507E-01 3.81556E-03 + 8.93492E-01 3.81556E-03 9.99970E-01 1.90302E-06 9.99997E+00 + 0.00000E+00 -1.41524E+00 1.35781E+00 -1.41524E+00 1.35784E+00 + 6.07096E+01 5.61321E+00 6.07135E+01 5.61297E+00 8.94009E-01 + 3.78035E-03 8.94040E-01 3.77845E-03 1.00000E+00 0.00000E+00 + 9.99997E+00 0.00000E+00 -1.41427E+00 1.35778E+00 -1.41475E+00 + 1.35781E+00 6.07135E+01 5.61297E+00 6.07135E+01 5.61297E+00 + 8.94512E-01 3.74515E-03 8.94542E-01 3.74420E-03 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 -1.41427E+00 1.35778E+00 + -1.41475E+00 1.35781E+00 6.07135E+01 5.61297E+00 6.07096E+01 + 5.61321E+00 8.95014E-01 3.71184E-03 8.95029E-01 3.70994E-03 + 1.00000E+00 0.00000E+00 9.99997E+00 0.00000E+00 -1.41473E+00 + 1.35779E+00 -1.41473E+00 1.35779E+00 6.07087E+01 5.61313E+00 + 6.07126E+01 5.61289E+00 8.95533E-01 3.67658E-03 8.95518E-01 + 3.67658E-03 9.99970E-01 1.90299E-06 9.99982E+00 0.00000E+00 + -1.41475E+00 1.35781E+00 -1.41573E+00 1.35784E+00 6.07096E+01 + 5.61321E+00 6.07135E+01 5.61297E+00 8.96004E-01 3.64429E-03 + 8.96019E-01 3.64238E-03 1.00000E+00 0.00000E+00 1.00002E+01 + 0.00000E+00 -1.41329E+00 1.35772E+00 -1.41378E+00 1.35775E+00 + 6.07135E+01 5.61297E+00 6.07057E+01 5.61346E+00 8.96491E-01 + 3.61098E-03 8.96521E-01 3.60908E-03 9.99985E-01 0.00000E+00 + 9.99997E+00 0.00000E+00 -1.41524E+00 1.35784E+00 -1.41573E+00 + 1.35787E+00 6.07096E+01 5.61321E+00 6.07135E+01 5.61297E+00 + 8.96963E-01 3.57863E-03 8.97008E-01 3.57673E-03 1.00000E+00 + 0.00000E+00 9.99997E+00 0.00000E+00 -1.41427E+00 1.35775E+00 + -1.41329E+00 1.35772E+00 6.07135E+01 5.61297E+00 6.07135E+01 + 5.61297E+00 8.97465E-01 3.54533E-03 8.97435E-01 3.54818E-03 + 9.99970E-01 1.90302E-06 9.99997E+00 0.00000E+00 -1.41524E+00 + 1.35781E+00 -1.41524E+00 1.35784E+00 6.07135E+01 5.61297E+00 + 6.07135E+01 5.61297E+00 8.97937E-01 3.51488E-03 8.97968E-01 + 3.51298E-03 1.00000E+00 0.00000E+00 9.99997E+00 0.00000E+00 + -1.41427E+00 1.35775E+00 -1.41378E+00 1.35775E+00 6.07135E+01 + 5.61297E+00 6.07096E+01 5.61321E+00 8.98409E-01 3.48348E-03 + 8.98409E-01 3.48348E-03 1.00000E+00 0.00000E+00 9.99997E+00 + 0.00000E+00 -1.41475E+00 1.35778E+00 -1.41475E+00 1.35781E+00 + 6.07135E+01 5.61297E+00 6.07135E+01 5.61297E+00 8.98881E-01 + 3.45208E-03 8.98911E-01 3.45018E-03 1.00000E+00 0.00000E+00 + 9.99997E+00 0.00000E+00 -1.41427E+00 1.35778E+00 -1.41524E+00 + 1.35781E+00 6.07096E+01 5.61321E+00 6.07096E+01 5.61321E+00 + 8.99338E-01 3.42259E-03 8.99353E-01 3.42068E-03 1.00000E+00 + 0.00000E+00 1.00002E+01 0.00000E+00 -1.41427E+00 1.35778E+00 + -1.41427E+00 1.35778E+00 6.07135E+01 5.61297E+00 6.07135E+01 + 5.61297E+00 8.99794E-01 3.39214E-03 8.99794E-01 3.39214E-03 + 1.00000E+00 0.00000E+00 9.99997E+00 0.00000E+00 -1.41427E+00 + 1.35775E+00 -1.41378E+00 1.35775E+00 6.07096E+01 5.61321E+00 + 6.07096E+01 5.61321E+00 9.00266E-01 3.36169E-03 9.00236E-01 + 3.36264E-03 9.99970E-01 1.90302E-06 9.99997E+00 0.00000E+00 + -1.41473E+00 1.35779E+00 -1.41473E+00 1.35779E+00 6.07126E+01 + 5.61313E+00 6.07165E+01 5.61289E+00 9.00694E-01 3.33404E-03 + 9.00694E-01 3.33309E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41378E+00 1.35775E+00 -1.41475E+00 1.35778E+00 + 6.07135E+01 5.61297E+00 6.07096E+01 5.61321E+00 9.01165E-01 + 3.30365E-03 9.01165E-01 3.30269E-03 1.00000E+00 0.00000E+00 + 9.99997E+00 0.00000E+00 -1.41475E+00 1.35778E+00 -1.41475E+00 + 1.35778E+00 6.07096E+01 5.61321E+00 6.07096E+01 5.61321E+00 + 9.01591E-01 3.27605E-03 9.01576E-01 3.27605E-03 1.00000E+00 + 0.00000E+00 9.99997E+00 0.00000E+00 -1.41427E+00 1.35778E+00 + -1.41427E+00 1.35778E+00 6.07135E+01 5.61297E+00 6.07174E+01 + 5.61273E+00 9.02017E-01 3.24751E-03 9.02017E-01 3.24751E-03 + 1.00000E+00 0.00000E+00 9.99997E+00 0.00000E+00 -1.41475E+00 + 1.35778E+00 -1.41475E+00 1.35781E+00 6.07135E+01 5.61297E+00 + 6.07096E+01 5.61321E+00 9.02459E-01 3.21991E-03 9.02489E-01 + 3.21801E-03 1.00000E+00 0.00000E+00 9.99997E+00 0.00000E+00 + -1.41475E+00 1.35778E+00 -1.41475E+00 1.35778E+00 6.07135E+01 + 5.61297E+00 6.07135E+01 5.61297E+00 9.02870E-01 3.19327E-03 + 9.02870E-01 3.19327E-03 1.00000E+00 0.00000E+00 9.99997E+00 + 0.00000E+00 -1.41427E+00 1.35775E+00 -1.41427E+00 1.35775E+00 + 6.07096E+01 5.61321E+00 6.07096E+01 5.61321E+00 9.03327E-01 + 3.16473E-03 9.03327E-01 3.16473E-03 1.00000E+00 0.00000E+00 + 9.99997E+00 0.00000E+00 -1.41427E+00 1.35775E+00 -1.41427E+00 + 1.35778E+00 6.07135E+01 5.61297E+00 6.07135E+01 5.61297E+00 + 9.03722E-01 3.13903E-03 9.03753E-01 3.13713E-03 1.00000E+00 + 0.00000E+00 9.99997E+00 0.00000E+00 -1.41427E+00 1.35778E+00 + -1.41378E+00 1.35775E+00 6.07096E+01 5.61321E+00 6.07096E+01 + 5.61321E+00 9.04149E-01 3.11239E-03 9.04118E-01 3.11430E-03 + 9.99985E-01 9.51511E-07 9.99997E+00 0.00000E+00 -1.41526E+00 + 1.35783E+00 -1.41526E+00 1.35783E+00 6.07145E+01 5.61306E+00 + 6.07145E+01 5.61306E+00 9.04558E-01 3.08675E-03 9.04558E-01 + 3.08675E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41424E+00 1.35776E+00 -1.41473E+00 1.35779E+00 6.07087E+01 + 5.61313E+00 6.07087E+01 5.61313E+00 9.04987E-01 3.06001E-03 + 9.05003E-01 3.05906E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41424E+00 1.35779E+00 -1.41424E+00 1.35779E+00 + 6.07165E+01 5.61289E+00 6.07165E+01 5.61289E+00 9.05398E-01 + 3.03527E-03 9.05398E-01 3.03527E-03 1.00000E+00 0.00000E+00 + 9.99982E+00 0.00000E+00 -1.41331E+00 1.35771E+00 -1.41331E+00 + 1.35771E+00 6.07067E+01 5.61330E+00 6.07067E+01 5.61330E+00 + 9.05791E-01 3.01063E-03 9.05807E-01 3.00968E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41522E+00 1.35782E+00 + -1.41522E+00 1.35782E+00 6.07165E+01 5.61289E+00 6.07165E+01 + 5.61289E+00 9.06205E-01 2.98484E-03 9.06190E-01 2.98580E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41327E+00 + 1.35770E+00 -1.41376E+00 1.35773E+00 6.07126E+01 5.61313E+00 + 6.07126E+01 5.61313E+00 9.06601E-01 2.96106E-03 9.06632E-01 + 2.95915E-03 1.00000E+00 0.00000E+00 9.99982E+00 0.00000E+00 + -1.41477E+00 1.35780E+00 -1.41477E+00 1.35780E+00 6.07106E+01 + 5.61306E+00 6.07106E+01 5.61306E+00 9.06994E-01 2.93641E-03 + 9.06994E-01 2.93641E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41429E+00 1.35777E+00 -1.41429E+00 1.35777E+00 + 6.07145E+01 5.61306E+00 6.07145E+01 5.61306E+00 9.07390E-01 + 2.91262E-03 9.07390E-01 2.91262E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41376E+00 1.35773E+00 -1.41376E+00 + 1.35773E+00 6.07087E+01 5.61313E+00 6.07087E+01 5.61313E+00 + 9.07773E-01 2.88969E-03 9.07773E-01 2.88969E-03 1.00000E+00 + 0.00000E+00 9.99982E+00 0.00000E+00 -1.41424E+00 1.35776E+00 + -1.41424E+00 1.35776E+00 6.07126E+01 5.61313E+00 6.07126E+01 + 5.61313E+00 9.08154E-01 2.86591E-03 9.08154E-01 2.86591E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41380E+00 + 1.35774E+00 -1.41380E+00 1.35774E+00 6.07106E+01 5.61306E+00 + 6.07106E+01 5.61306E+00 9.08532E-01 2.84316E-03 9.08547E-01 + 2.84221E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41380E+00 1.35774E+00 -1.41429E+00 1.35777E+00 6.07067E+01 + 5.61330E+00 6.07067E+01 5.61330E+00 9.08928E-01 2.81937E-03 + 9.08928E-01 2.81937E-03 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 -1.41420E+00 1.35778E+00 -1.41420E+00 1.35778E+00 + 6.07185E+01 5.61271E+00 6.07185E+01 5.61271E+00 9.09283E-01 + 2.79827E-03 9.09298E-01 2.79731E-03 1.00000E+00 9.51468E-07 + 1.00000E+01 0.00000E+00 -1.41429E+00 1.35777E+00 -1.41429E+00 + 1.35777E+00 6.07145E+01 5.61306E+00 6.07145E+01 5.61306E+00 + 9.09658E-01 2.77560E-03 9.09658E-01 2.77560E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41380E+00 1.35774E+00 + -1.41380E+00 1.35774E+00 6.07106E+01 5.61306E+00 6.07106E+01 + 5.61306E+00 9.10024E-01 2.75276E-03 9.10024E-01 2.75371E-03 + 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 -1.41473E+00 + 1.35779E+00 -1.41473E+00 1.35779E+00 6.07126E+01 5.61313E+00 + 6.07126E+01 5.61313E+00 9.10392E-01 2.73270E-03 9.10392E-01 + 2.73175E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41376E+00 1.35773E+00 -1.41376E+00 1.35773E+00 6.07087E+01 + 5.61313E+00 6.07087E+01 5.61313E+00 9.10757E-01 2.70986E-03 + 9.10788E-01 2.70986E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41429E+00 1.35777E+00 -1.41380E+00 1.35774E+00 + 6.07106E+01 5.61306E+00 6.07106E+01 5.61306E+00 9.11120E-01 + 2.68901E-03 9.11089E-01 2.69091E-03 9.99970E-01 9.51525E-07 + 9.99988E+00 0.00000E+00 -1.41376E+00 1.35773E+00 -1.41376E+00 + 1.35773E+00 6.07087E+01 5.61313E+00 6.07087E+01 5.61313E+00 + 9.11488E-01 2.66895E-03 9.11488E-01 2.66800E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41477E+00 1.35780E+00 + -1.41526E+00 1.35783E+00 6.07106E+01 5.61330E+00 6.07106E+01 + 5.61330E+00 9.11851E-01 2.64714E-03 9.11851E-01 2.64714E-03 + 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 -1.41327E+00 + 1.35773E+00 -1.41327E+00 1.35773E+00 6.07204E+01 5.61264E+00 + 6.07204E+01 5.61264E+00 9.12188E-01 2.62708E-03 9.12188E-01 + 2.62708E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41477E+00 1.35780E+00 -1.41477E+00 1.35780E+00 6.07067E+01 + 5.61330E+00 6.07067E+01 5.61330E+00 9.12551E-01 2.60718E-03 + 9.12551E-01 2.60623E-03 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 -1.41376E+00 1.35773E+00 -1.41376E+00 1.35773E+00 + 6.07126E+01 5.61313E+00 6.07126E+01 5.61313E+00 9.12858E-01 + 2.58712E-03 9.12889E-01 2.58712E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41429E+00 1.35777E+00 -1.41429E+00 + 1.35777E+00 6.07145E+01 5.61281E+00 6.07145E+01 5.61281E+00 + 9.13221E-01 2.56722E-03 9.13221E-01 2.56722E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41424E+00 1.35776E+00 + -1.41424E+00 1.35776E+00 6.07126E+01 5.61313E+00 6.07126E+01 + 5.61313E+00 9.13558E-01 2.54811E-03 9.13558E-01 2.54811E-03 + 1.00000E+00 0.00000E+00 9.99982E+00 0.00000E+00 -1.41380E+00 + 1.35774E+00 -1.41380E+00 1.35774E+00 6.07067E+01 5.61330E+00 + 6.07067E+01 5.61330E+00 9.13891E-01 2.52820E-03 9.13921E-01 + 2.52820E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41424E+00 1.35776E+00 -1.41424E+00 1.35776E+00 6.07126E+01 + 5.61313E+00 6.07126E+01 5.61313E+00 9.14259E-01 2.50910E-03 + 9.14228E-01 2.50910E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41429E+00 1.35777E+00 -1.41429E+00 1.35777E+00 + 6.07183E+01 5.61281E+00 6.07183E+01 5.61281E+00 9.14591E-01 + 2.49014E-03 9.14561E-01 2.49109E-03 1.00000E+00 0.00000E+00 + 9.99988E+00 0.00000E+00 -1.41473E+00 1.35779E+00 -1.41473E+00 + 1.35779E+00 6.07087E+01 5.61313E+00 6.07087E+01 5.61313E+00 + 9.14898E-01 2.47199E-03 9.14898E-01 2.47199E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41376E+00 1.35776E+00 + -1.41376E+00 1.35776E+00 6.07087E+01 5.61313E+00 6.07087E+01 + 5.61313E+00 9.15203E-01 2.45391E-03 9.15233E-01 2.45296E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41380E+00 + 1.35774E+00 -1.41380E+00 1.35774E+00 6.07183E+01 5.61281E+00 + 6.07183E+01 5.61281E+00 9.15565E-01 2.43495E-03 9.15565E-01 + 2.43495E-03 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + -1.41376E+00 1.35773E+00 -1.41376E+00 1.35773E+00 6.07087E+01 + 5.61313E+00 6.07087E+01 5.61313E+00 9.15872E-01 2.41680E-03 + 9.15872E-01 2.41680E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41429E+00 1.35777E+00 -1.41429E+00 1.35777E+00 + 6.07106E+01 5.61330E+00 6.07106E+01 5.61330E+00 9.16205E-01 + 2.39880E-03 9.16205E-01 2.39975E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41424E+00 1.35776E+00 -1.41424E+00 + 1.35776E+00 6.07087E+01 5.61313E+00 6.07087E+01 5.61313E+00 + 9.16512E-01 2.38160E-03 9.16512E-01 2.38160E-03 1.00000E+00 + 0.00000E+00 9.99982E+00 0.00000E+00 -1.41429E+00 1.35777E+00 + -1.41429E+00 1.35777E+00 6.07145E+01 5.61281E+00 6.07145E+01 + 5.61281E+00 9.16814E-01 2.36454E-03 9.16844E-01 2.36359E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41424E+00 + 1.35776E+00 -1.41424E+00 1.35776E+00 6.07126E+01 5.61313E+00 + 6.07126E+01 5.61313E+00 9.17121E-01 2.34734E-03 9.17151E-01 + 2.34734E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41429E+00 1.35777E+00 -1.41429E+00 1.35777E+00 6.07067E+01 + 5.61330E+00 6.07067E+01 5.61330E+00 9.17484E-01 2.32933E-03 + 9.17453E-01 2.32933E-03 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 -1.41376E+00 1.35773E+00 -1.41424E+00 1.35776E+00 + 6.07165E+01 5.61264E+00 6.07165E+01 5.61264E+00 9.17760E-01 + 2.31309E-03 9.17791E-01 2.31214E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41429E+00 1.35777E+00 -1.41429E+00 + 1.35777E+00 6.07067E+01 5.61330E+00 6.07067E+01 5.61330E+00 + 9.18062E-01 2.29603E-03 9.18062E-01 2.29603E-03 1.00000E+00 + 0.00000E+00 9.99988E+00 0.00000E+00 -1.41376E+00 1.35773E+00 + -1.41376E+00 1.35773E+00 6.07087E+01 5.61313E+00 6.07087E+01 + 5.61313E+00 9.18369E-01 2.27979E-03 9.18369E-01 2.27979E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41376E+00 + 1.35776E+00 -1.41376E+00 1.35776E+00 6.07087E+01 5.61313E+00 + 6.07087E+01 5.61313E+00 9.18674E-01 2.26361E-03 9.18674E-01 + 2.26361E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41331E+00 1.35771E+00 -1.41331E+00 1.35771E+00 6.07145E+01 + 5.61281E+00 6.07145E+01 5.61281E+00 9.18976E-01 2.24655E-03 + 9.18976E-01 2.24655E-03 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 -1.41424E+00 1.35776E+00 -1.41424E+00 1.35776E+00 + 6.07126E+01 5.61313E+00 6.07126E+01 5.61313E+00 9.19252E-01 + 2.23126E-03 9.19252E-01 2.23126E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41380E+00 1.35774E+00 -1.41380E+00 + 1.35774E+00 6.07067E+01 5.61330E+00 6.07067E+01 5.61330E+00 + 9.19554E-01 2.21515E-03 9.19554E-01 2.21515E-03 1.00000E+00 + 0.00000E+00 9.99988E+00 0.00000E+00 -1.41424E+00 1.35776E+00 + -1.41424E+00 1.35776E+00 6.07126E+01 5.61313E+00 6.07126E+01 + 5.61313E+00 9.19861E-01 2.19986E-03 9.19861E-01 2.19986E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41477E+00 + 1.35780E+00 -1.41477E+00 1.35780E+00 7.18725E+02 -2.94472E+01 + 7.18725E+02 -2.94472E+01 9.20133E-01 2.18470E-03 9.20133E-01 + 2.18470E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41424E+00 1.35776E+00 -1.41424E+00 1.35776E+00 1.64214E+02 + 0.00000E+00 1.64214E+02 0.00000E+00 9.20470E-01 2.16846E-03 + 9.20470E-01 2.16846E-03 1.00000E+00 0.00000E+00 9.99982E+00 + 0.00000E+00 -1.41380E+00 1.35774E+00 -1.41380E+00 1.35774E+00 + 1.64223E+02 -4.87181E-04 1.64223E+02 -4.87181E-04 9.20711E-01 + 2.15425E-03 9.20711E-01 2.15425E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41376E+00 1.35773E+00 -1.41376E+00 + 1.35773E+00 1.64214E+02 0.00000E+00 1.64214E+02 0.00000E+00 + 9.20988E-01 2.13896E-03 9.20988E-01 2.13896E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41522E+00 1.35782E+00 + -1.41522E+00 1.35782E+00 1.64214E+02 0.00000E+00 1.64214E+02 + 0.00000E+00 9.21292E-01 2.12374E-03 9.21292E-01 2.12374E-03 + 1.00000E+00 0.00000E+00 9.99982E+00 0.00000E+00 -1.41331E+00 + 1.35771E+00 -1.41331E+00 1.35771E+00 1.64215E+02 0.00000E+00 + 1.64215E+02 0.00000E+00 9.21594E-01 2.10858E-03 9.21594E-01 + 2.10858E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41473E+00 1.35779E+00 -1.41473E+00 1.35779E+00 1.64214E+02 + 0.00000E+00 1.64214E+02 0.00000E+00 9.21840E-01 2.09520E-03 + 9.21840E-01 2.09520E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41380E+00 1.35774E+00 -1.41380E+00 1.35774E+00 + 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 9.22142E-01 + 2.08003E-03 9.22142E-01 2.08003E-03 1.00000E+00 0.00000E+00 + 9.99988E+00 0.00000E+00 -1.41424E+00 1.35776E+00 -1.41424E+00 + 1.35776E+00 1.64226E+02 -4.87166E-04 1.64226E+02 -4.87166E-04 + 9.22419E-01 2.06570E-03 9.22419E-01 2.06570E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41380E+00 1.35774E+00 + -1.41380E+00 1.35774E+00 1.64215E+02 0.00000E+00 1.64215E+02 + 0.00000E+00 9.22690E-01 2.05244E-03 9.22690E-01 2.05244E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41473E+00 + 1.35779E+00 -1.41473E+00 1.35779E+00 1.64214E+02 0.00000E+00 + 1.64214E+02 0.00000E+00 9.22936E-01 2.03715E-03 9.22936E-01 + 2.03715E-03 1.00000E+00 0.00000E+00 9.99982E+00 0.00000E+00 + -1.41380E+00 1.35774E+00 -1.41380E+00 1.35774E+00 1.64215E+02 + 0.00000E+00 1.64215E+02 0.00000E+00 9.23208E-01 2.02485E-03 + 9.23208E-01 2.02485E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41376E+00 1.35776E+00 -1.41376E+00 1.35776E+00 + 1.64214E+02 0.00000E+00 1.64214E+02 0.00000E+00 9.23484E-01 + 2.01051E-03 9.23484E-01 2.01051E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41380E+00 1.35774E+00 -1.41380E+00 + 1.35774E+00 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 + 9.23756E-01 1.99630E-03 9.23756E-01 1.99630E-03 1.00000E+00 + 0.00000E+00 9.99988E+00 0.00000E+00 -1.41473E+00 1.35779E+00 + -1.41473E+00 1.35779E+00 1.64226E+02 -4.87166E-04 1.64226E+02 + -4.87166E-04 9.24002E-01 1.98387E-03 9.24002E-01 1.98387E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41376E+00 + 1.35773E+00 -1.41376E+00 1.35773E+00 1.64214E+02 0.00000E+00 + 1.64214E+02 0.00000E+00 9.24276E-01 1.96960E-03 9.24276E-01 + 1.96960E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41429E+00 1.35777E+00 -1.41429E+00 1.35777E+00 1.64215E+02 + 0.00000E+00 1.64215E+02 0.00000E+00 9.24517E-01 1.95729E-03 + 9.24517E-01 1.95729E-03 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 -1.41424E+00 1.35776E+00 -1.41424E+00 1.35776E+00 + 1.64214E+02 0.00000E+00 1.64214E+02 0.00000E+00 9.24794E-01 + 1.94391E-03 9.24794E-01 1.94391E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41282E+00 1.35771E+00 -1.41282E+00 + 1.35771E+00 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 + 9.25035E-01 1.93160E-03 9.25035E-01 1.93160E-03 1.00000E+00 + 0.00000E+00 9.99988E+00 0.00000E+00 -1.41473E+00 1.35782E+00 + -1.41473E+00 1.35782E+00 1.64214E+02 0.00000E+00 1.64214E+02 + 0.00000E+00 9.25311E-01 1.91822E-03 9.25311E-01 1.91822E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41380E+00 + 1.35774E+00 -1.41380E+00 1.35774E+00 1.64227E+02 -4.87181E-04 + 1.64227E+02 -4.87181E-04 9.25553E-01 1.90591E-03 9.25553E-01 + 1.90591E-03 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + -1.41376E+00 1.35776E+00 -1.41376E+00 1.35776E+00 1.64214E+02 + 0.00000E+00 1.64214E+02 0.00000E+00 9.25798E-01 1.89348E-03 + 9.25798E-01 1.89348E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41380E+00 1.35774E+00 -1.41380E+00 1.35774E+00 + 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 9.26040E-01 + 1.88117E-03 9.26040E-01 1.88117E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41376E+00 1.35773E+00 -1.41376E+00 + 1.35773E+00 1.64214E+02 0.00000E+00 1.64214E+02 0.00000E+00 + 9.26286E-01 1.86874E-03 9.26286E-01 1.86874E-03 1.00000E+00 + 0.00000E+00 9.99982E+00 0.00000E+00 -1.41477E+00 1.35780E+00 + -1.41477E+00 1.35780E+00 1.64215E+02 0.00000E+00 1.64215E+02 + 0.00000E+00 9.26557E-01 1.85643E-03 9.26557E-01 1.85643E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41376E+00 + 1.35773E+00 -1.41376E+00 1.35773E+00 1.64214E+02 0.00000E+00 + 1.64214E+02 0.00000E+00 9.26803E-01 1.84400E-03 9.26803E-01 + 1.84400E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41473E+00 1.35779E+00 -1.41473E+00 1.35779E+00 1.64226E+02 + -4.87166E-04 1.64226E+02 -4.87166E-04 9.27047E-01 1.83258E-03 + 9.27047E-01 1.83258E-03 1.00000E+00 0.00000E+00 9.99982E+00 + 0.00000E+00 -1.41477E+00 1.35777E+00 -1.41477E+00 1.35777E+00 + 1.64203E+02 4.87181E-04 1.64203E+02 4.87181E-04 9.27258E-01 + 1.82122E-03 9.27258E-01 1.82122E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41376E+00 1.35773E+00 -1.41376E+00 + 1.35773E+00 1.64222E+02 -4.87166E-04 1.64222E+02 -4.87166E-04 + 9.27534E-01 1.80879E-03 9.27534E-01 1.80879E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41380E+00 1.35777E+00 + -1.41380E+00 1.35777E+00 1.64215E+02 0.00000E+00 1.64215E+02 + 0.00000E+00 9.27745E-01 1.79838E-03 9.27745E-01 1.79838E-03 + 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 -1.41278E+00 + 1.35770E+00 -1.41278E+00 1.35770E+00 1.64214E+02 0.00000E+00 + 1.64214E+02 0.00000E+00 9.27991E-01 1.78596E-03 9.27991E-01 + 1.78596E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41477E+00 1.35780E+00 -1.41477E+00 1.35780E+00 1.64211E+02 + 0.00000E+00 1.64211E+02 0.00000E+00 9.28232E-01 1.77460E-03 + 9.28232E-01 1.77460E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41376E+00 1.35776E+00 -1.41376E+00 1.35776E+00 + 1.64214E+02 0.00000E+00 1.64214E+02 0.00000E+00 9.28447E-01 + 1.76407E-03 9.28447E-01 1.76407E-03 1.00000E+00 0.00000E+00 + 9.99982E+00 0.00000E+00 -1.41477E+00 1.35780E+00 -1.41477E+00 + 1.35780E+00 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 + 9.28719E-01 1.75176E-03 9.28719E-01 1.75176E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41278E+00 1.35773E+00 + -1.41278E+00 1.35773E+00 1.64222E+02 -4.87166E-04 1.64222E+02 + -4.87166E-04 9.28904E-01 1.74219E-03 9.28904E-01 1.74219E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41380E+00 + 1.35774E+00 -1.41380E+00 1.35774E+00 1.64211E+02 0.00000E+00 + 1.64211E+02 0.00000E+00 9.29146E-01 1.72987E-03 9.29146E-01 + 1.72987E-03 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + -1.41570E+00 1.35779E+00 -1.41570E+00 1.35779E+00 1.64214E+02 + 0.00000E+00 1.64214E+02 0.00000E+00 9.29361E-01 1.72031E-03 + 9.29361E-01 1.72031E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41278E+00 1.35770E+00 -1.41278E+00 1.35770E+00 + 1.64214E+02 0.00000E+00 1.64214E+02 0.00000E+00 9.29604E-01 + 1.70889E-03 9.29604E-01 1.70889E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41477E+00 1.35780E+00 -1.41477E+00 + 1.35780E+00 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 + 9.29815E-01 1.69847E-03 9.29815E-01 1.69847E-03 1.00000E+00 + 0.00000E+00 9.99988E+00 0.00000E+00 -1.41376E+00 1.35776E+00 + -1.41376E+00 1.35776E+00 1.64214E+02 0.00000E+00 1.64214E+02 + 0.00000E+00 9.30031E-01 1.68795E-03 9.30031E-01 1.68795E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41380E+00 + 1.35774E+00 -1.41380E+00 1.35774E+00 1.64215E+02 0.00000E+00 + 1.64215E+02 0.00000E+00 9.30272E-01 1.67659E-03 9.30272E-01 + 1.67659E-03 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + -1.41376E+00 1.35776E+00 -1.41376E+00 1.35776E+00 1.64214E+02 + 0.00000E+00 1.64214E+02 0.00000E+00 9.30487E-01 1.66797E-03 + 9.30487E-01 1.66797E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41380E+00 1.35774E+00 -1.41380E+00 1.35774E+00 + 1.64211E+02 0.00000E+00 1.64211E+02 0.00000E+00 9.30729E-01 + 1.65661E-03 9.30729E-01 1.65661E-03 1.00000E+00 0.00000E+00 + 9.99988E+00 0.00000E+00 -1.41473E+00 1.35779E+00 -1.41473E+00 + 1.35779E+00 1.64222E+02 -4.87166E-04 1.64222E+02 -4.87166E-04 + 9.30914E-01 1.64704E-03 9.30914E-01 1.64704E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41477E+00 1.35777E+00 + -1.41477E+00 1.35777E+00 1.64211E+02 0.00000E+00 1.64211E+02 + 0.00000E+00 9.31125E-01 1.63662E-03 9.31125E-01 1.63662E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41278E+00 + 1.35770E+00 -1.41278E+00 1.35770E+00 1.64214E+02 0.00000E+00 + 1.64214E+02 0.00000E+00 9.31370E-01 1.62611E-03 9.31370E-01 + 1.62611E-03 1.00000E+00 0.00000E+00 9.99982E+00 0.00000E+00 + -1.41477E+00 1.35780E+00 -1.41477E+00 1.35780E+00 1.64215E+02 + 0.00000E+00 1.64215E+02 0.00000E+00 9.31551E-01 1.61759E-03 + 9.31551E-01 1.61759E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41278E+00 1.35770E+00 -1.41278E+00 1.35770E+00 + 1.64214E+02 0.00000E+00 1.64214E+02 0.00000E+00 9.31766E-01 + 1.60708E-03 9.31766E-01 1.60708E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41570E+00 1.35782E+00 -1.41570E+00 + 1.35782E+00 1.64214E+02 0.00000E+00 1.64214E+02 0.00000E+00 + 9.32010E-01 1.59756E-03 9.32010E-01 1.59756E-03 1.00000E+00 + 0.00000E+00 9.99982E+00 0.00000E+00 -1.41282E+00 1.35771E+00 + -1.41282E+00 1.35771E+00 1.64227E+02 -4.87181E-04 1.64227E+02 + -4.87181E-04 9.32221E-01 1.58714E-03 9.32221E-01 1.58714E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41376E+00 + 1.35776E+00 -1.41376E+00 1.35776E+00 1.64214E+02 0.00000E+00 + 1.64214E+02 0.00000E+00 9.32406E-01 1.57853E-03 9.32406E-01 + 1.57853E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41575E+00 1.35780E+00 -1.41575E+00 1.35780E+00 1.64215E+02 + 0.00000E+00 1.64215E+02 0.00000E+00 9.32617E-01 1.56907E-03 + 9.32617E-01 1.56907E-03 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 -1.41278E+00 1.35770E+00 -1.41278E+00 1.35770E+00 + 1.64214E+02 0.00000E+00 1.64214E+02 0.00000E+00 9.32832E-01 + 1.55950E-03 9.32832E-01 1.55950E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41477E+00 1.35780E+00 -1.41477E+00 + 1.35780E+00 1.64227E+02 -4.87181E-04 1.64227E+02 -4.87181E-04 + 9.33043E-01 1.55003E-03 9.33043E-01 1.55003E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41376E+00 1.35776E+00 + -1.41376E+00 1.35776E+00 1.64202E+02 4.87166E-04 1.64202E+02 + 4.87166E-04 9.33197E-01 1.54142E-03 9.33197E-01 1.54142E-03 + 1.00000E+00 0.00000E+00 9.99982E+00 0.00000E+00 -1.41477E+00 + 1.35777E+00 -1.41477E+00 1.35777E+00 1.64223E+02 -4.87181E-04 + 1.64223E+02 -4.87181E-04 9.33439E-01 1.53196E-03 9.33439E-01 + 1.53196E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41278E+00 1.35773E+00 -1.41278E+00 1.35773E+00 1.64210E+02 + 0.00000E+00 1.64210E+02 0.00000E+00 9.33624E-01 1.52335E-03 + 9.33624E-01 1.52335E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41477E+00 1.35777E+00 -1.41477E+00 1.35777E+00 + 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 9.33865E-01 + 1.51388E-03 9.33865E-01 1.51388E-03 1.00000E+00 0.00000E+00 + 9.99988E+00 0.00000E+00 -1.41376E+00 1.35773E+00 -1.41376E+00 + 1.35773E+00 1.64214E+02 0.00000E+00 1.64214E+02 0.00000E+00 + 9.34019E-01 1.50527E-03 9.34019E-01 1.50527E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41570E+00 1.35779E+00 + -1.41570E+00 1.35779E+00 1.64226E+02 -4.87166E-04 1.64226E+02 + -4.87166E-04 9.34233E-01 1.49670E-03 9.34233E-01 1.49670E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41380E+00 + 1.35774E+00 -1.41380E+00 1.35774E+00 1.64203E+02 4.87181E-04 + 1.64203E+02 4.87181E-04 9.34413E-01 1.48819E-03 9.34413E-01 + 1.48819E-03 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + -1.41376E+00 1.35776E+00 -1.41376E+00 1.35776E+00 1.64226E+02 + -4.87166E-04 1.64226E+02 -4.87166E-04 9.34628E-01 1.47863E-03 + 9.34628E-01 1.47863E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41380E+00 1.35774E+00 -1.41380E+00 1.35774E+00 + 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 9.34809E-01 + 1.47106E-03 9.34809E-01 1.47106E-03 1.00000E+00 0.00000E+00 + 9.99988E+00 0.00000E+00 -1.41473E+00 1.35779E+00 -1.41473E+00 + 1.35779E+00 1.64214E+02 0.00000E+00 1.64214E+02 0.00000E+00 + 9.35024E-01 1.46150E-03 9.35024E-01 1.46150E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41380E+00 1.35774E+00 + -1.41380E+00 1.35774E+00 1.64211E+02 0.00000E+00 1.64211E+02 + 0.00000E+00 9.35205E-01 1.45393E-03 9.35205E-01 1.45393E-03 + 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 -1.41473E+00 + 1.35779E+00 -1.41473E+00 1.35779E+00 1.64214E+02 0.00000E+00 + 1.64214E+02 0.00000E+00 9.35390E-01 1.44532E-03 9.35390E-01 + 1.44532E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41380E+00 1.35771E+00 -1.41380E+00 1.35771E+00 1.64215E+02 + 0.00000E+00 1.64215E+02 0.00000E+00 9.35570E-01 1.43775E-03 + 9.35570E-01 1.43775E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41473E+00 1.35776E+00 -1.41473E+00 1.35776E+00 + 1.64226E+02 -4.87166E-04 1.64226E+02 -4.87166E-04 9.35785E-01 + 1.42820E-03 9.35785E-01 1.42820E-03 1.00000E+00 0.00000E+00 + 9.99982E+00 0.00000E+00 -1.41477E+00 1.35780E+00 -1.41477E+00 + 1.35780E+00 1.64203E+02 4.87181E-04 1.64203E+02 4.87181E-04 + 9.35936E-01 1.42158E-03 9.35936E-01 1.42158E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41278E+00 1.35773E+00 + -1.41278E+00 1.35773E+00 1.64226E+02 -4.87166E-04 1.64226E+02 + -4.87166E-04 9.36151E-01 1.41202E-03 9.36151E-01 1.41202E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41473E+00 + 1.35779E+00 -1.41473E+00 1.35779E+00 1.64214E+02 0.00000E+00 + 1.64214E+02 0.00000E+00 9.36333E-01 1.40536E-03 9.36333E-01 + 1.40536E-03 1.00000E+00 0.00000E+00 9.99982E+00 0.00000E+00 + -1.41282E+00 1.35771E+00 -1.41282E+00 1.35771E+00 1.64211E+02 + 0.00000E+00 1.64211E+02 0.00000E+00 9.36514E-01 1.39684E-03 + 9.36514E-01 1.39684E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41473E+00 1.35776E+00 -1.41473E+00 1.35776E+00 + 1.64214E+02 0.00000E+00 1.64214E+02 0.00000E+00 9.36699E-01 + 1.38918E-03 9.36699E-01 1.38918E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41380E+00 1.35774E+00 -1.41380E+00 + 1.35774E+00 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 + 9.36880E-01 1.38066E-03 9.36880E-01 1.38066E-03 1.00000E+00 + 0.00000E+00 9.99988E+00 0.00000E+00 -1.41473E+00 1.35779E+00 + -1.41473E+00 1.35779E+00 1.64214E+02 0.00000E+00 1.64214E+02 + 0.00000E+00 9.37034E-01 1.37396E-03 9.37034E-01 1.37396E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41380E+00 + 1.35777E+00 -1.41380E+00 1.35777E+00 1.64227E+02 -4.87181E-04 + 1.64227E+02 -4.87181E-04 9.37245E-01 1.36544E-03 9.37245E-01 + 1.36544E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41473E+00 1.35776E+00 -1.41473E+00 1.35776E+00 1.64214E+02 + 0.00000E+00 1.64214E+02 0.00000E+00 9.37399E-01 1.35874E-03 + 9.37399E-01 1.35874E-03 1.00000E+00 0.00000E+00 9.99982E+00 + 0.00000E+00 -1.41282E+00 1.35771E+00 -1.41282E+00 1.35771E+00 + 1.64211E+02 0.00000E+00 1.64211E+02 0.00000E+00 9.37610E-01 + 1.35021E-03 9.37610E-01 1.35021E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41473E+00 1.35779E+00 -1.41473E+00 + 1.35779E+00 1.64214E+02 0.00000E+00 1.64214E+02 0.00000E+00 + 9.37765E-01 1.34351E-03 9.37765E-01 1.34351E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41376E+00 1.35776E+00 + -1.41376E+00 1.35776E+00 1.64214E+02 0.00000E+00 1.64214E+02 + 0.00000E+00 9.37947E-01 1.33590E-03 9.37947E-01 1.33590E-03 + 1.00000E+00 0.00000E+00 9.99982E+00 0.00000E+00 -1.41477E+00 + 1.35777E+00 -1.41477E+00 1.35777E+00 1.64215E+02 0.00000E+00 + 1.64215E+02 0.00000E+00 9.38098E-01 1.32928E-03 9.38098E-01 + 1.32928E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41278E+00 1.35773E+00 -1.41278E+00 1.35773E+00 1.64226E+02 + -4.87166E-04 1.64226E+02 -4.87166E-04 9.38282E-01 1.32068E-03 + 9.38282E-01 1.32068E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41380E+00 1.35777E+00 -1.41380E+00 1.35777E+00 + 1.64203E+02 4.87181E-04 1.64203E+02 4.87181E-04 9.38463E-01 + 1.31406E-03 9.38463E-01 1.31406E-03 1.00000E+00 0.00000E+00 + 9.99988E+00 0.00000E+00 -1.41376E+00 1.35773E+00 -1.41376E+00 + 1.35773E+00 1.64214E+02 0.00000E+00 1.64214E+02 0.00000E+00 + 9.38617E-01 1.30736E-03 9.38617E-01 1.30736E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41477E+00 1.35777E+00 + -1.41477E+00 1.35777E+00 1.64223E+02 -4.87181E-04 1.64223E+02 + -4.87181E-04 9.38798E-01 1.29978E-03 9.38798E-01 1.29978E-03 + 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 -1.41473E+00 + 1.35779E+00 -1.41473E+00 1.35779E+00 1.64202E+02 4.87166E-04 + 1.64202E+02 4.87166E-04 9.38982E-01 1.29213E-03 9.38982E-01 + 1.29213E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41088E+00 1.35765E+00 -1.41088E+00 1.35765E+00 1.64227E+02 + -4.87181E-04 1.64227E+02 -4.87181E-04 9.39133E-01 1.28646E-03 + 9.39133E-01 1.28646E-03 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 -1.41473E+00 1.35779E+00 -1.41473E+00 1.35779E+00 + 1.64214E+02 0.00000E+00 1.64214E+02 0.00000E+00 9.39317E-01 + 1.27881E-03 9.39317E-01 1.27881E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41380E+00 1.35774E+00 -1.41380E+00 + 1.35774E+00 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 + 9.39498E-01 1.27124E-03 9.39498E-01 1.27124E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41376E+00 1.35776E+00 + -1.41376E+00 1.35776E+00 1.64226E+02 -4.87166E-04 1.64226E+02 + -4.87166E-04 9.39652E-01 1.26549E-03 9.39652E-01 1.26549E-03 + 1.00000E+00 0.00000E+00 9.99982E+00 0.00000E+00 -1.41473E+00 + 1.35776E+00 -1.41473E+00 1.35776E+00 1.64214E+02 0.00000E+00 + 1.64214E+02 0.00000E+00 9.39835E-01 1.25788E-03 9.39835E-01 + 1.25788E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41380E+00 1.35774E+00 -1.41380E+00 1.35774E+00 1.64215E+02 + 0.00000E+00 1.64215E+02 0.00000E+00 9.39955E-01 1.25221E-03 + 9.39955E-01 1.25221E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41473E+00 1.35776E+00 -1.41473E+00 1.35776E+00 + 1.64214E+02 0.00000E+00 1.64214E+02 0.00000E+00 9.40139E-01 + 1.24456E-03 9.40139E-01 1.24456E-03 1.00000E+00 0.00000E+00 + 9.99982E+00 0.00000E+00 -1.41575E+00 1.35783E+00 -1.41575E+00 + 1.35783E+00 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 + 9.40320E-01 1.23793E-03 9.40320E-01 1.23793E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41181E+00 1.35767E+00 + -1.41181E+00 1.35767E+00 1.64214E+02 0.00000E+00 1.64214E+02 + 0.00000E+00 9.40444E-01 1.23219E-03 9.40444E-01 1.23219E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41575E+00 + 1.35783E+00 -1.41575E+00 1.35783E+00 1.64211E+02 0.00000E+00 + 1.64211E+02 0.00000E+00 9.40625E-01 1.22461E-03 9.40625E-01 + 1.22461E-03 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + -1.41278E+00 1.35773E+00 -1.41278E+00 1.35773E+00 1.64214E+02 + 0.00000E+00 1.64214E+02 0.00000E+00 9.40779E-01 1.21887E-03 + 9.40779E-01 1.21887E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41380E+00 1.35777E+00 -1.41380E+00 1.35777E+00 + 1.64227E+02 -4.87181E-04 1.64227E+02 -4.87181E-04 9.40899E-01 + 1.21320E-03 9.40899E-01 1.21320E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41278E+00 1.35773E+00 -1.41278E+00 + 1.35773E+00 1.64214E+02 0.00000E+00 1.64214E+02 0.00000E+00 + 9.41083E-01 1.20650E-03 9.41083E-01 1.20650E-03 1.00000E+00 + 0.00000E+00 9.99982E+00 0.00000E+00 -1.41380E+00 1.35777E+00 + -1.41380E+00 1.35777E+00 1.64215E+02 0.00000E+00 1.64215E+02 + 0.00000E+00 9.41264E-01 1.19987E-03 9.41264E-01 1.19987E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41376E+00 + 1.35773E+00 -1.41376E+00 1.35773E+00 1.64226E+02 -4.87166E-04 + 1.64226E+02 -4.87166E-04 9.41388E-01 1.19413E-03 9.41388E-01 + 1.19413E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41473E+00 1.35779E+00 -1.41473E+00 1.35779E+00 1.64202E+02 + 4.87166E-04 1.64202E+02 4.87166E-04 9.41571E-01 1.18747E-03 + 9.41571E-01 1.18747E-03 1.00000E+00 0.00000E+00 9.99982E+00 + 0.00000E+00 -1.41477E+00 1.35777E+00 -1.41477E+00 1.35777E+00 + 1.64223E+02 -4.87181E-04 1.64223E+02 -4.87181E-04 9.41751E-01 + 1.17989E-03 9.41751E-01 1.17989E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41278E+00 1.35773E+00 -1.41278E+00 + 1.35773E+00 1.64210E+02 0.00000E+00 1.64210E+02 0.00000E+00 + 9.41845E-01 1.17605E-03 9.41845E-01 1.17605E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41380E+00 1.35777E+00 + -1.41380E+00 1.35777E+00 1.64215E+02 0.00000E+00 1.64215E+02 + 0.00000E+00 9.42025E-01 1.16847E-03 9.42025E-01 1.16847E-03 + 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 -1.41376E+00 + 1.35773E+00 -1.41376E+00 1.35773E+00 1.64218E+02 0.00000E+00 + 1.64218E+02 0.00000E+00 9.42179E-01 1.16273E-03 9.42179E-01 + 1.16273E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41575E+00 1.35783E+00 -1.41575E+00 1.35783E+00 1.64207E+02 + 0.00000E+00 1.64207E+02 0.00000E+00 9.42330E-01 1.15706E-03 + 9.42330E-01 1.15706E-03 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 -1.41473E+00 1.35779E+00 -1.41473E+00 1.35779E+00 + 1.64218E+02 0.00000E+00 1.64218E+02 0.00000E+00 9.42484E-01 + 1.15131E-03 9.42484E-01 1.15131E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41088E+00 1.35765E+00 -1.41088E+00 + 1.35765E+00 1.64231E+02 -4.87181E-04 1.64231E+02 -4.87181E-04 + 9.42634E-01 1.14564E-03 9.42634E-01 1.14564E-03 1.00000E+00 + 0.00000E+00 9.99988E+00 0.00000E+00 -1.41570E+00 1.35779E+00 + -1.41570E+00 1.35779E+00 1.64202E+02 4.87166E-04 1.64202E+02 + 4.87166E-04 9.42819E-01 1.13894E-03 9.42819E-01 1.13894E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41477E+00 + 1.35777E+00 -1.41477E+00 1.35777E+00 1.64223E+02 -4.87181E-04 + 1.64223E+02 -4.87181E-04 9.42908E-01 1.13422E-03 9.42908E-01 + 1.13422E-03 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + -1.41473E+00 1.35779E+00 -1.41473E+00 1.35779E+00 1.64218E+02 + 0.00000E+00 1.64218E+02 0.00000E+00 9.43093E-01 1.12752E-03 + 9.43093E-01 1.12752E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41376E+00 1.35773E+00 -1.41376E+00 1.35773E+00 + 1.64210E+02 0.00000E+00 1.64210E+02 0.00000E+00 9.43215E-01 + 1.12277E-03 9.43215E-01 1.12277E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41282E+00 1.35771E+00 -1.41282E+00 + 1.35771E+00 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 + 9.43396E-01 1.11614E-03 9.43396E-01 1.11614E-03 1.00000E+00 + 0.00000E+00 9.99988E+00 0.00000E+00 -1.41570E+00 1.35779E+00 + -1.41570E+00 1.35779E+00 1.64226E+02 -4.87166E-04 1.64226E+02 + -4.87166E-04 9.43519E-01 1.11135E-03 9.43519E-01 1.11135E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41477E+00 + 1.35777E+00 -1.41477E+00 1.35777E+00 1.64199E+02 4.87181E-04 + 1.64199E+02 4.87181E-04 9.43639E-01 1.10567E-03 9.43639E-01 + 1.10567E-03 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + -1.41376E+00 1.35773E+00 -1.41376E+00 1.35773E+00 1.64226E+02 + -4.87166E-04 1.64226E+02 -4.87166E-04 9.43854E-01 1.09898E-03 + 9.43854E-01 1.09898E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41380E+00 1.35777E+00 -1.41380E+00 1.35777E+00 + 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 9.43944E-01 + 1.09521E-03 9.43944E-01 1.09521E-03 1.00000E+00 0.00000E+00 + 1.00004E+01 0.00000E+00 -1.41473E+00 1.35779E+00 -1.41473E+00 + 1.35779E+00 1.64218E+02 0.00000E+00 1.64218E+02 0.00000E+00 + 9.44098E-01 1.08851E-03 9.44098E-01 1.08851E-03 1.00000E+00 + 0.00000E+00 9.99957E+00 0.00000E+00 -1.41282E+00 1.35771E+00 + -1.41282E+00 1.35771E+00 1.64207E+02 0.00000E+00 1.64207E+02 + 0.00000E+00 9.44218E-01 1.08379E-03 9.44218E-01 1.08379E-03 + 1.00000E+00 0.00000E+00 1.00004E+01 0.00000E+00 -1.41570E+00 + 1.35779E+00 -1.41570E+00 1.35779E+00 1.64218E+02 0.00000E+00 + 1.64218E+02 0.00000E+00 9.44402E-01 1.07805E-03 9.44402E-01 + 1.07805E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41380E+00 1.35777E+00 -1.41380E+00 1.35777E+00 1.64215E+02 + 0.00000E+00 1.64215E+02 0.00000E+00 9.44522E-01 1.07332E-03 + 9.44522E-01 1.07332E-03 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 -1.41473E+00 1.35779E+00 -1.41473E+00 1.35779E+00 + 1.64226E+02 -4.87166E-04 1.64226E+02 -4.87166E-04 9.44646E-01 + 1.06758E-03 9.44646E-01 1.06758E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41278E+00 1.35773E+00 -1.41278E+00 + 1.35773E+00 1.64218E+02 0.00000E+00 1.64218E+02 0.00000E+00 + 9.44828E-01 1.06187E-03 9.44828E-01 1.06187E-03 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41477E+00 1.35777E+00 + -1.41477E+00 1.35777E+00 1.64215E+02 0.00000E+00 1.64215E+02 + 0.00000E+00 9.44949E-01 1.05714E-03 9.44949E-01 1.05714E-03 + 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 -1.41181E+00 + 1.35767E+00 -1.41181E+00 1.35767E+00 1.64210E+02 0.00000E+00 + 1.64210E+02 0.00000E+00 9.45042E-01 1.05236E-03 9.45042E-01 + 1.05236E-03 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41672E+00 1.35783E+00 -1.41672E+00 1.35783E+00 1.64215E+02 + 0.00000E+00 1.64215E+02 0.00000E+00 9.45223E-01 1.04668E-03 + 9.45223E-01 1.04668E-03 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 -1.41376E+00 1.35773E+00 -1.41376E+00 1.35773E+00 + 1.64210E+02 0.00000E+00 1.64210E+02 0.00000E+00 9.45316E-01 + 1.04189E-03 9.45316E-01 1.04189E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41477E+00 1.35777E+00 -1.41477E+00 + 1.35777E+00 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 + 9.45466E-01 1.03621E-03 9.45466E-01 1.03621E-03 1.00000E+00 + 0.00000E+00 9.99988E+00 0.00000E+00 -1.41278E+00 1.35773E+00 + -1.41278E+00 1.35773E+00 1.64218E+02 0.00000E+00 1.64218E+02 + 0.00000E+00 9.45590E-01 1.03237E-03 9.45590E-01 1.03237E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41282E+00 + 1.35771E+00 -1.41282E+00 1.35771E+00 1.64231E+02 -4.87181E-04 + 1.64231E+02 -4.87181E-04 9.45771E-01 1.02574E-03 9.45771E-01 + 1.02574E-03 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + -1.41668E+00 1.35785E+00 -1.41668E+00 1.35785E+00 1.64210E+02 + 0.00000E+00 1.64210E+02 0.00000E+00 9.45864E-01 1.02191E-03 + 9.45864E-01 1.02191E-03 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41376E+00 1.35773E+00 -1.41376E+00 1.35773E+00 + 1.64202E+02 4.87166E-04 1.64202E+02 4.87166E-04 9.45955E-01 + 1.01905E-03 9.45955E-01 1.01905E-03 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41282E+00 1.35771E+00 -1.41282E+00 + 1.35771E+00 1.64223E+02 -4.87181E-04 1.64223E+02 -4.87181E-04 + 9.46197E-01 1.00957E-03 9.46197E-01 1.00957E-03 1.00000E+00 + 0.00000E+00 9.99988E+00 0.00000E+00 -1.41570E+00 1.35779E+00 + -1.41570E+00 1.35779E+00 1.64210E+02 0.00000E+00 1.64210E+02 + 0.00000E+00 9.46259E-01 1.00763E-03 9.46259E-01 1.00763E-03 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41282E+00 + 1.35771E+00 -1.41282E+00 1.35771E+00 1.64215E+02 0.00000E+00 + 1.64215E+02 0.00000E+00 9.46441E-01 1.00196E-03 9.46441E-01 + 1.00196E-03 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + -1.41668E+00 1.35785E+00 -1.41668E+00 1.35785E+00 1.64226E+02 + -4.87166E-04 1.64226E+02 -4.87166E-04 9.46534E-01 9.98120E-04 + 9.46534E-01 9.98120E-04 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41672E+00 1.35783E+00 -1.41672E+00 1.35783E+00 + 1.64199E+02 4.87181E-04 1.64199E+02 4.87181E-04 9.46654E-01 + 9.92441E-04 9.46654E-01 9.92441E-04 1.00000E+00 0.00000E+00 + 1.00004E+01 0.00000E+00 -1.41278E+00 1.35773E+00 -1.41278E+00 + 1.35773E+00 1.64210E+02 0.00000E+00 1.64210E+02 0.00000E+00 + 9.46777E-01 9.88605E-04 9.46777E-01 9.88605E-04 1.00000E+00 + 0.00000E+00 9.99957E+00 0.00000E+00 -1.41477E+00 1.35777E+00 + -1.41477E+00 1.35777E+00 1.64223E+02 -4.87181E-04 1.64223E+02 + -4.87181E-04 9.46928E-01 9.82926E-04 9.46928E-01 9.82926E-04 + 1.00000E+00 0.00000E+00 1.00004E+01 0.00000E+00 -1.41473E+00 + 1.35779E+00 -1.41473E+00 1.35779E+00 1.64202E+02 4.87166E-04 + 1.64202E+02 4.87166E-04 9.47021E-01 9.79090E-04 9.47021E-01 + 9.79090E-04 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41575E+00 1.35783E+00 -1.41575E+00 1.35783E+00 1.64231E+02 + -4.87181E-04 1.64231E+02 -4.87181E-04 9.47171E-01 9.74362E-04 + 9.47171E-01 9.74362E-04 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 -1.41181E+00 1.35767E+00 -1.41181E+00 1.35767E+00 + 1.64210E+02 0.00000E+00 1.64210E+02 0.00000E+00 9.47325E-01 + 9.69575E-04 9.47325E-01 9.69575E-04 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41278E+00 1.35773E+00 -1.41278E+00 + 1.35773E+00 1.64218E+02 0.00000E+00 1.64218E+02 0.00000E+00 + 9.47447E-01 9.64817E-04 9.47447E-01 9.64817E-04 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41477E+00 1.35777E+00 + -1.41477E+00 1.35777E+00 1.64231E+02 -4.87181E-04 1.64231E+02 + -4.87181E-04 9.47567E-01 9.60089E-04 9.47567E-01 9.60089E-04 + 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 -1.41473E+00 + 1.35779E+00 -1.41473E+00 1.35779E+00 1.64210E+02 0.00000E+00 + 1.64210E+02 0.00000E+00 9.47660E-01 9.56254E-04 9.47660E-01 + 9.56254E-04 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41477E+00 1.35777E+00 -1.41477E+00 1.35777E+00 1.64215E+02 + 0.00000E+00 1.64215E+02 0.00000E+00 9.47811E-01 9.51525E-04 + 9.47811E-01 9.51525E-04 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 -1.41278E+00 1.35773E+00 -1.41278E+00 1.35773E+00 + 1.64226E+02 -4.87166E-04 1.64226E+02 -4.87166E-04 9.47904E-01 + 9.47691E-04 9.47904E-01 9.47691E-04 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41477E+00 1.35777E+00 -1.41477E+00 + 1.35777E+00 1.64207E+02 4.87181E-04 1.64207E+02 4.87181E-04 + 9.48054E-01 9.42010E-04 9.48054E-01 9.42010E-04 1.00000E+00 + 0.00000E+00 9.99988E+00 0.00000E+00 -1.41473E+00 1.35773E+00 + -1.41473E+00 1.35773E+00 1.64226E+02 -4.87166E-04 1.64226E+02 + -4.87166E-04 9.48178E-01 9.39127E-04 9.48178E-01 9.39127E-04 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41282E+00 + 1.35771E+00 -1.41282E+00 1.35771E+00 1.64199E+02 4.87181E-04 + 1.64199E+02 4.87181E-04 9.48298E-01 9.33447E-04 9.48298E-01 + 9.33447E-04 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + -1.41668E+00 1.35785E+00 -1.41668E+00 1.35785E+00 1.64226E+02 + -4.87166E-04 1.64226E+02 -4.87166E-04 9.48421E-01 9.30564E-04 + 9.48421E-01 9.30564E-04 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41088E+00 1.35771E+00 -1.41088E+00 1.35771E+00 + 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 9.48572E-01 + 9.24883E-04 9.48572E-01 9.24883E-04 1.00000E+00 0.00000E+00 + 9.99988E+00 0.00000E+00 -1.41668E+00 1.35779E+00 -1.41668E+00 + 1.35779E+00 1.64210E+02 0.00000E+00 1.64210E+02 0.00000E+00 + 9.48634E-01 9.22000E-04 9.48634E-01 9.22000E-04 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41668E+00 1.35779E+00 + -1.41668E+00 1.35779E+00 1.64218E+02 0.00000E+00 1.64218E+02 + 0.00000E+00 9.48787E-01 9.17243E-04 9.48787E-01 9.17243E-04 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41282E+00 + 1.35771E+00 -1.41282E+00 1.35771E+00 1.64231E+02 -4.87181E-04 + 1.64231E+02 -4.87181E-04 9.48907E-01 9.12513E-04 9.48907E-01 + 9.12513E-04 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + -1.41473E+00 1.35779E+00 -1.41473E+00 1.35779E+00 1.64195E+02 + 4.87166E-04 1.64195E+02 4.87166E-04 9.49030E-01 9.08679E-04 + 9.49030E-01 9.08679E-04 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41477E+00 1.35777E+00 -1.41477E+00 1.35777E+00 + 1.64231E+02 -4.87181E-04 1.64231E+02 -4.87181E-04 9.49120E-01 + 9.04901E-04 9.49120E-01 9.04901E-04 1.00000E+00 0.00000E+00 + 9.99988E+00 0.00000E+00 -1.41473E+00 1.35773E+00 -1.41473E+00 + 1.35773E+00 1.64218E+02 0.00000E+00 1.64218E+02 0.00000E+00 + 9.49274E-01 9.00116E-04 9.49274E-01 9.00116E-04 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41282E+00 1.35771E+00 + -1.41282E+00 1.35771E+00 1.64207E+02 0.00000E+00 1.64207E+02 + 0.00000E+00 9.49333E-01 8.97289E-04 9.49333E-01 8.97289E-04 + 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 -1.41668E+00 + 1.35785E+00 -1.41668E+00 1.35785E+00 1.64218E+02 0.00000E+00 + 1.64218E+02 0.00000E+00 9.49487E-01 8.92504E-04 9.49487E-01 + 8.92504E-04 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41282E+00 1.35771E+00 -1.41282E+00 1.35771E+00 1.64215E+02 + 0.00000E+00 1.64215E+02 0.00000E+00 9.49638E-01 8.87773E-04 + 9.49638E-01 8.87773E-04 1.00000E+00 0.00000E+00 1.00004E+01 + 0.00000E+00 -1.41473E+00 1.35779E+00 -1.41473E+00 1.35779E+00 + 1.64210E+02 0.00000E+00 1.64210E+02 0.00000E+00 9.49700E-01 + 8.84892E-04 9.49700E-01 8.84892E-04 1.00000E+00 0.00000E+00 + 9.99957E+00 0.00000E+00 -1.41088E+00 1.35765E+00 -1.41088E+00 + 1.35765E+00 1.64231E+02 -4.87181E-04 1.64231E+02 -4.87181E-04 + 9.49851E-01 8.80161E-04 9.49851E-01 8.80161E-04 1.00000E+00 + 0.00000E+00 1.00004E+01 0.00000E+00 -1.41473E+00 1.35779E+00 + -1.41473E+00 1.35779E+00 1.64210E+02 0.00000E+00 1.64210E+02 + 0.00000E+00 9.49913E-01 8.77280E-04 9.49913E-01 8.77280E-04 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41668E+00 + 1.35785E+00 -1.41668E+00 1.35785E+00 1.64218E+02 0.00000E+00 + 1.64218E+02 0.00000E+00 9.50065E-01 8.72522E-04 9.50065E-01 + 8.72522E-04 1.00000E+00 0.00000E+00 9.99957E+00 0.00000E+00 + -1.41477E+00 1.35777E+00 -1.41477E+00 1.35777E+00 1.64215E+02 + 0.00000E+00 1.64215E+02 0.00000E+00 9.50155E-01 8.68743E-04 + 9.50155E-01 8.68743E-04 1.00000E+00 0.00000E+00 1.00004E+01 + 0.00000E+00 -1.41278E+00 1.35773E+00 -1.41278E+00 1.35773E+00 + 1.64210E+02 0.00000E+00 1.64210E+02 0.00000E+00 9.50309E-01 + 8.64910E-04 9.50309E-01 8.64910E-04 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41088E+00 1.35771E+00 -1.41088E+00 + 1.35771E+00 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 + 9.50399E-01 8.61131E-04 9.50399E-01 8.61131E-04 1.00000E+00 + 0.00000E+00 9.99988E+00 0.00000E+00 -1.41473E+00 1.35779E+00 + -1.41473E+00 1.35779E+00 1.64226E+02 -4.87166E-04 1.64226E+02 + -4.87166E-04 9.50492E-01 8.57298E-04 9.50492E-01 8.57298E-04 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41477E+00 + 1.35777E+00 -1.41477E+00 1.35777E+00 1.64199E+02 4.87181E-04 + 1.64199E+02 4.87181E-04 9.50612E-01 8.53518E-04 9.50612E-01 + 8.53518E-04 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + -1.41473E+00 1.35779E+00 -1.41473E+00 1.35779E+00 1.64226E+02 + -4.87166E-04 1.64226E+02 -4.87166E-04 9.50735E-01 8.49686E-04 + 9.50735E-01 8.49686E-04 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41282E+00 1.35771E+00 -1.41282E+00 1.35771E+00 + 1.64207E+02 0.00000E+00 1.64207E+02 0.00000E+00 9.50856E-01 + 8.45906E-04 9.50856E-01 8.45906E-04 1.00000E+00 0.00000E+00 + 9.99988E+00 0.00000E+00 -1.41278E+00 1.35773E+00 -1.41278E+00 + 1.35773E+00 1.64218E+02 0.00000E+00 1.64218E+02 0.00000E+00 + 9.50948E-01 8.42074E-04 9.50948E-01 8.42074E-04 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41672E+00 1.35783E+00 + -1.41672E+00 1.35783E+00 1.64215E+02 0.00000E+00 1.64215E+02 + 0.00000E+00 9.51038E-01 8.39246E-04 9.51038E-01 8.39246E-04 + 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 -1.41473E+00 + 1.35779E+00 -1.41473E+00 1.35779E+00 1.64210E+02 0.00000E+00 + 1.64210E+02 0.00000E+00 9.51162E-01 8.35414E-04 9.51162E-01 + 8.35414E-04 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41278E+00 1.35767E+00 -1.41278E+00 1.35767E+00 1.64210E+02 + 0.00000E+00 1.64210E+02 0.00000E+00 9.51283E-01 8.30656E-04 + 9.51283E-01 8.30656E-04 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41477E+00 1.35777E+00 -1.41477E+00 1.35777E+00 + 1.64223E+02 -4.87181E-04 1.64223E+02 -4.87181E-04 9.51404E-01 + 8.27827E-04 9.51404E-01 8.27827E-04 1.00000E+00 0.00000E+00 + 9.99988E+00 0.00000E+00 -1.41473E+00 1.35779E+00 -1.41473E+00 + 1.35779E+00 1.64218E+02 0.00000E+00 1.64218E+02 0.00000E+00 + 9.51466E-01 8.24947E-04 9.51466E-01 8.24947E-04 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41282E+00 1.35771E+00 + -1.41282E+00 1.35771E+00 1.64215E+02 0.00000E+00 1.64215E+02 + 0.00000E+00 9.51586E-01 8.20215E-04 9.51586E-01 8.20215E-04 + 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 -1.41473E+00 + 1.35779E+00 -1.41473E+00 1.35779E+00 1.64210E+02 0.00000E+00 + 1.64210E+02 0.00000E+00 9.51710E-01 8.17336E-04 9.51710E-01 + 8.17336E-04 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41477E+00 1.35777E+00 -1.41477E+00 1.35777E+00 1.64215E+02 + 0.00000E+00 1.64215E+02 0.00000E+00 9.51830E-01 8.13554E-04 + 9.51830E-01 8.13554E-04 1.00000E+00 0.00000E+00 1.00004E+01 + 0.00000E+00 -1.41668E+00 1.35785E+00 -1.41668E+00 1.35785E+00 + 1.64195E+02 4.87166E-04 1.64195E+02 4.87166E-04 9.51923E-01 + 8.09724E-04 9.51923E-01 8.09724E-04 1.00000E+00 0.00000E+00 + 9.99957E+00 0.00000E+00 -1.41282E+00 1.35777E+00 -1.41282E+00 + 1.35777E+00 1.64231E+02 -4.87181E-04 1.64231E+02 -4.87181E-04 + 9.52013E-01 8.06894E-04 9.52013E-01 8.06894E-04 1.00000E+00 + 0.00000E+00 1.00004E+01 0.00000E+00 -1.41473E+00 1.35773E+00 + -1.41473E+00 1.35773E+00 1.64210E+02 0.00000E+00 1.64210E+02 + 0.00000E+00 9.52105E-01 8.03063E-04 9.52105E-01 8.03063E-04 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41477E+00 + 1.35777E+00 -1.41477E+00 1.35777E+00 1.64223E+02 -4.87181E-04 + 1.64223E+02 -4.87181E-04 9.52226E-01 8.00233E-04 9.52226E-01 + 8.00233E-04 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + -1.41473E+00 1.35773E+00 -1.41473E+00 1.35773E+00 1.64218E+02 + 0.00000E+00 1.64218E+02 0.00000E+00 9.52319E-01 7.96403E-04 + 9.52319E-01 7.96403E-04 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41473E+00 1.35779E+00 -1.41473E+00 1.35779E+00 + 1.64195E+02 4.87166E-04 1.64195E+02 4.87166E-04 9.52440E-01 + 7.92597E-04 9.52440E-01 7.92597E-04 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41477E+00 1.35777E+00 -1.41477E+00 + 1.35777E+00 1.64246E+02 -9.74362E-04 1.64246E+02 -9.74362E-04 + 9.52530E-01 7.89766E-04 9.52530E-01 7.89766E-04 1.00000E+00 + 0.00000E+00 9.99988E+00 0.00000E+00 -1.41083E+00 1.35767E+00 + -1.41083E+00 1.35767E+00 1.64195E+02 4.87166E-04 1.64195E+02 + 4.87166E-04 9.52654E-01 7.85936E-04 9.52654E-01 7.85936E-04 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41672E+00 + 1.35783E+00 -1.41672E+00 1.35783E+00 1.64231E+02 -4.87181E-04 + 1.64231E+02 -4.87181E-04 9.52743E-01 7.83105E-04 9.52743E-01 + 7.83105E-04 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + -1.41473E+00 1.35779E+00 -1.41473E+00 1.35779E+00 1.64218E+02 + 0.00000E+00 1.64218E+02 0.00000E+00 9.52836E-01 7.80227E-04 + 9.52836E-01 7.80227E-04 1.00000E+00 0.00000E+00 1.00001E+01 + 0.00000E+00 -1.41477E+00 1.35777E+00 -1.41477E+00 1.35777E+00 + 1.64207E+02 0.00000E+00 1.64207E+02 0.00000E+00 9.52987E-01 + 7.75493E-04 9.52987E-01 7.75493E-04 1.00000E+00 0.00000E+00 + 9.99988E+00 0.00000E+00 -1.41278E+00 1.35773E+00 -1.41278E+00 + 1.35773E+00 1.64218E+02 0.00000E+00 1.64218E+02 0.00000E+00 + 9.53049E-01 7.73567E-04 9.53049E-01 7.73567E-04 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41477E+00 1.35777E+00 + -1.41477E+00 1.35777E+00 1.64215E+02 0.00000E+00 1.64215E+02 + 0.00000E+00 9.53139E-01 7.69784E-04 9.53139E-01 7.69784E-04 + 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 -1.41278E+00 + 1.35773E+00 -1.41278E+00 1.35773E+00 1.64210E+02 0.00000E+00 + 1.64210E+02 0.00000E+00 9.53232E-01 7.66906E-04 9.53232E-01 + 7.66906E-04 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41477E+00 1.35783E+00 -1.41477E+00 1.35783E+00 1.64231E+02 + -4.87181E-04 1.64231E+02 -4.87181E-04 9.53352E-01 7.63123E-04 + 9.53352E-01 7.63123E-04 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 -1.41083E+00 1.35767E+00 -1.41083E+00 1.35767E+00 + 1.64195E+02 4.87166E-04 1.64195E+02 4.87166E-04 9.53415E-01 + 7.60246E-04 9.53415E-01 7.60246E-04 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41278E+00 1.35773E+00 -1.41278E+00 + 1.35773E+00 1.64218E+02 0.00000E+00 1.64218E+02 0.00000E+00 + 9.53537E-01 7.57391E-04 9.53537E-01 7.57391E-04 1.00000E+00 + 0.00000E+00 1.00001E+01 0.00000E+00 -1.41867E+00 1.35790E+00 + -1.41867E+00 1.35790E+00 1.64223E+02 -4.87181E-04 1.64223E+02 + -4.87181E-04 9.53626E-01 7.54560E-04 9.53626E-01 7.54560E-04 + 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 -1.41278E+00 + 1.35773E+00 -1.41278E+00 1.35773E+00 1.64218E+02 0.00000E+00 + 1.64218E+02 0.00000E+00 9.53719E-01 7.50731E-04 9.53719E-01 + 7.50731E-04 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 + -1.41282E+00 1.35771E+00 -1.41282E+00 1.35771E+00 1.64215E+02 + 0.00000E+00 1.64215E+02 0.00000E+00 9.53840E-01 7.47899E-04 + 9.53840E-01 7.47899E-04 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 -1.41473E+00 1.35779E+00 -1.41473E+00 1.35779E+00 + 1.64210E+02 0.00000E+00 1.64210E+02 0.00000E+00 9.53963E-01 + 7.44070E-04 9.53963E-01 7.44070E-04 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41282E+00 1.35771E+00 -1.41282E+00 + 1.35771E+00 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 + 9.53992E-01 7.42190E-04 9.53992E-01 7.42190E-04 1.00000E+00 + 0.00000E+00 9.99988E+00 0.00000E+00 -1.41668E+00 1.35785E+00 + -1.41668E+00 1.35785E+00 1.64226E+02 -4.87166E-04 1.64226E+02 + -4.87166E-04 9.54115E-01 7.38361E-04 9.54115E-01 7.38361E-04 + 1.00000E+00 0.00000E+00 1.00001E+01 0.00000E+00 -1.41282E+00 + 1.35771E+00 -1.41282E+00 1.35771E+00 1.64199E+02 4.87181E-04 + 1.64199E+02 4.87181E-04 9.54205E-01 7.35529E-04 9.54205E-01 + 7.35529E-04 1.00000E+00 0.00000E+00 1.00004E+01 0.00000E+00 + -1.41278E+00 1.35773E+00 -1.41278E+00 1.35773E+00 1.64210E+02 + 0.00000E+00 1.64210E+02 0.00000E+00 9.54328E-01 7.32652E-04 + 9.54328E-01 7.32652E-04 1.00000E+00 0.00000E+00 9.99957E+00 + 0.00000E+00 -1.41473E+00 1.35779E+00 -1.41473E+00 1.35779E+00 + 1.64233E+02 -4.87166E-04 1.64233E+02 -4.87166E-04 9.54389E-01 + 7.29798E-04 9.54389E-01 7.29798E-04 1.00000E+00 0.00000E+00 + 1.00001E+01 0.00000E+00 -1.41477E+00 1.35777E+00 -1.41477E+00 + 1.35777E+00 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 + 9.54509E-01 7.26965E-04 9.54509E-01 7.26965E-04 1.00000E+00 + 0.00000E+00 1.00004E+01 0.00000E+00 -1.41473E+00 1.35779E+00 + -1.41473E+00 1.35779E+00 1.64210E+02 0.00000E+00 1.64210E+02 + 0.00000E+00 9.54602E-01 7.23137E-04 9.54602E-01 7.23137E-04 + 1.00000E+00 0.00000E+00 9.99957E+00 0.00000E+00 -1.41672E+00 + 1.35783E+00 -1.41672E+00 1.35783E+00 1.64231E+02 -4.87181E-04 + 1.64231E+02 -4.87181E-04 9.54662E-01 7.21256E-04 9.54662E-01 + 7.21256E-04 1.00000E+00 0.00000E+00 1.00004E+01 0.00000E+00 + -1.41282E+00 1.35777E+00 -1.41282E+00 1.35777E+00 1.64192E+02 + 4.87181E-04 1.64192E+02 4.87181E-04 9.54814E-01 7.17450E-04 + 9.54814E-01 7.17450E-04 1.00000E+00 0.00000E+00 9.99988E+00 + 0.00000E+00 -1.41469E+00 1.35775E+00 -1.41469E+00 1.35775E+00 + 1.64236E+02 -4.87151E-04 1.64236E+02 -4.87151E-04 9.54847E-01 + 7.15504E-04 9.54847E-01 7.15504E-04 1.00000E+00 0.00000E+00 + 9.99976E+00 0.00000E+00 -1.41477E+00 1.35777E+00 -1.41477E+00 + 1.35777E+00 1.64215E+02 0.00000E+00 1.64215E+02 0.00000E+00 + 9.54997E-01 7.11741E-04 9.54997E-01 7.11741E-04 1.00000E+00 + 0.00000E+00 1.00004E+01 0.00000E+00 -1.41477E+00 1.35777E+00 + -1.41477E+00 1.35777E+00 1.64215E+02 0.00000E+00 1.64215E+02 + 0.00000E+00 9.55027E-01 7.09838E-04 9.55027E-01 7.09838E-04 + 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 -1.41477E+00 + 1.35777E+00 -1.41477E+00 1.35777E+00 1.64215E+02 0.00000E+00 + 1.64215E+02 0.00000E+00 9.55027E-01 7.09838E-04 9.55027E-01 + 7.09838E-04 1.00000E+00 0.00000E+00 9.99988E+00 0.00000E+00 + 0.00000E+00 -1.55707E+01 1.59935E+01 + 3.16674E-01 4.07264E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.06867E+00 -9.15898E-02 + 3.16674E-01 4.07264E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.06867E+00 -9.15898E-02 + 3.00453E-01 4.21235E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.07512E+00 -9.71478E-02 + 2.83249E-01 4.35296E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.08224E+00 -1.02960E-01 + 2.65119E-01 4.49391E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.09003E+00 -1.09022E-01 + 2.52986E-01 4.58387E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.10566E+00 -1.20611E-01 + 2.45720E-01 4.63536E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.12676E+00 -1.35559E-01 + 2.28029E-01 4.75541E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.13768E+00 -1.42970E-01 + 2.10206E-01 4.87141E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.14939E+00 -1.50592E-01 + 2.07123E-01 4.89069E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.17481E+00 -1.66492E-01 + 1.94877E-01 4.96440E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.19137E+00 -1.76459E-01 + 1.80483E-01 5.04790E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.20595E+00 -1.84915E-01 + 1.90602E-01 4.99125E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.23937E+00 -2.03625E-01 + 1.83886E-01 5.02757E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.25751E+00 -2.13439E-01 + 1.76991E-01 5.06366E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.27439E+00 -2.22265E-01 + 1.72404E-01 5.08690E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.29161E+00 -2.30990E-01 + 1.76168E-01 5.06841E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.31277E+00 -2.41383E-01 + 1.91409E-01 4.99579E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.33881E+00 -2.53786E-01 + 1.97804E-01 4.96622E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.35636E+00 -2.61905E-01 + 2.07931E-01 4.92067E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.37360E+00 -2.69656E-01 + 2.54928E-01 4.71514E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.40815E+00 -2.84766E-01 + 2.88409E-01 4.57262E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.43032E+00 -2.94206E-01 + 3.15405E-01 4.46067E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.44514E+00 -3.00351E-01 + 3.47165E-01 4.33232E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.45868E+00 -3.05825E-01 + 3.83764E-01 4.18803E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.47073E+00 -3.10575E-01 + 4.25243E-01 4.02845E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.48109E+00 -3.14561E-01 + 4.75844E-01 3.83834E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.49131E+00 -3.18398E-01 + 5.40050E-01 3.60267E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50267E+00 -3.22569E-01 + 5.96751E-01 3.39918E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50657E+00 -3.23969E-01 + 6.57815E-01 3.18488E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50806E+00 -3.24490E-01 + 7.22974E-01 2.96112E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50703E+00 -3.24138E-01 + 8.17579E-01 2.64307E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.51169E+00 -3.25705E-01 + 9.04709E-01 2.35615E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.50918E+00 -3.24878E-01 + 9.81247E-01 2.10921E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.49940E+00 -3.21722E-01 + 1.06006E+00 1.85994E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.48689E+00 -3.17766E-01 + 1.14068E+00 1.60991E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.47171E+00 -3.13057E-01 + 1.22257E+00 1.36080E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.45391E+00 -3.07644E-01 + 1.29130E+00 1.15558E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.43029E+00 -3.00592E-01 + 1.30618E+00 1.11199E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.39242E+00 -2.89490E-01 + 1.38790E+00 8.76778E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.36918E+00 -2.82804E-01 + 1.46929E+00 6.46692E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.34390E+00 -2.75657E-01 + 1.54995E+00 4.22614E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.31675E+00 -2.68113E-01 + 1.65873E+00 1.25567E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.29337E+00 -2.61730E-01 + 1.75883E+00 -1.43184E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.26639E+00 -2.54485E-01 + 1.83439E+00 -3.42688E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.23371E+00 -2.45856E-01 + 4.77792E+00 -7.98879E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.66010E+00 -3.56616E-01 + 1.82867E+00 -4.50276E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.11878E+00 -2.18251E-01 + 1.87905E+00 -5.77004E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.08361E+00 -2.09402E-01 + 1.92593E+00 -6.93123E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.04812E+00 -2.00611E-01 + 1.96924E+00 -7.98774E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 1.01247E+00 -1.91916E-01 + 2.00894E+00 -8.94154E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 9.76826E-01 -1.83352E-01 + 2.04503E+00 -9.79573E-02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 9.41336E-01 -1.74952E-01 + 2.07752E+00 -1.05536E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 9.06125E-01 -1.66740E-01 + 2.10646E+00 -1.12190E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 8.71319E-01 -1.58738E-01 + 2.13192E+00 -1.17959E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 8.37021E-01 -1.50965E-01 + 2.15399E+00 -1.22889E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 8.03326E-01 -1.43435E-01 + 2.17275E+00 -1.27027E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 7.70312E-01 -1.36160E-01 + 2.18836E+00 -1.30419E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 7.38051E-01 -1.29146E-01 + 2.19706E+00 -1.32286E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 7.06287E-01 -1.22334E-01 + 2.20879E+00 -1.34768E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 6.75887E-01 -1.15900E-01 + 2.21599E+00 -1.36273E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 6.46222E-01 -1.09704E-01 + 2.22046E+00 -1.37194E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 6.17472E-01 -1.03776E-01 + 2.19202E+00 -1.31403E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 5.87647E-01 -9.77050E-02 + 2.40303E+00 -1.73815E-01 0.00000E+00 0.00000E+00 -2.01345E-01 + 4.04700E-02 -2.01345E-01 4.04700E-02 3.72882E-01 -5.45379E-02 + 2.21710E+00 -1.36908E-01 0.00000E+00 0.00000E+00 -4.45450E-02 + 9.34462E-03 -4.45450E-02 9.34462E-03 4.91704E-01 -7.81242E-02 + 2.21390E+00 -1.36280E-01 0.00000E+00 0.00000E+00 -3.90946E-02 + 8.27595E-03 -3.90946E-02 8.27595E-03 4.72317E-01 -7.43232E-02 + 2.21247E+00 -1.36004E-01 0.00000E+00 0.00000E+00 -4.01471E-02 + 8.47982E-03 -4.01471E-02 8.47982E-03 4.47564E-01 -6.95286E-02 + 2.21270E+00 -1.36048E-01 0.00000E+00 0.00000E+00 -4.49057E-02 + 9.39051E-03 -4.49057E-02 9.39051E-03 4.20181E-01 -6.42880E-02 + 2.21589E+00 -1.36650E-01 0.00000E+00 0.00000E+00 -5.34768E-02 + 1.10114E-02 -5.34768E-02 1.10114E-02 3.90072E-01 -5.85939E-02 + 2.22347E+00 -1.38069E-01 0.00000E+00 0.00000E+00 -6.68673E-02 + 1.35142E-02 -6.68673E-02 1.35142E-02 3.56232E-01 -5.22691E-02 + 2.24124E+00 -1.41352E-01 0.00000E+00 0.00000E+00 -8.64397E-02 + 1.71301E-02 -8.64397E-02 1.71301E-02 3.17476E-01 -4.51092E-02 + 2.26157E+00 -1.45064E-01 0.00000E+00 0.00000E+00 -1.12644E-01 + 2.19159E-02 -1.12644E-01 2.19159E-02 2.72926E-01 -3.69728E-02 + 2.28623E+00 -1.49516E-01 0.00000E+00 0.00000E+00 -1.40251E-01 + 2.69010E-02 -1.40251E-01 2.69010E-02 2.27838E-01 -2.88310E-02 + 2.27928E+00 -1.48276E-01 0.00000E+00 0.00000E+00 -1.47398E-01 + 2.81771E-02 -1.47398E-01 2.81771E-02 2.02706E-01 -2.43435E-02 + 2.17688E+00 -1.30196E-01 0.00000E+00 0.00000E+00 -8.96163E-02 + 1.79737E-02 -8.96163E-02 1.79737E-02 2.40017E-01 -3.09321E-02 + 1.96011E+00 -9.23317E-02 0.00000E+00 0.00000E+00 4.79004E-02 + -6.04464E-03 4.79004E-02 -6.04464E-03 3.54620E-01 -5.09485E-02 + 1.76047E+00 -5.78398E-02 0.00000E+00 0.00000E+00 1.74921E-01 + -2.79901E-02 1.74921E-01 -2.79901E-02 4.61094E-01 -6.93440E-02 + 1.70109E+00 -4.76930E-02 0.00000E+00 0.00000E+00 2.05413E-01 + -3.32019E-02 2.05413E-01 -3.32019E-02 4.76781E-01 -7.20253E-02 + 1.73814E+00 -5.39581E-02 0.00000E+00 0.00000E+00 1.68193E-01 + -2.69074E-02 1.68193E-01 -2.69074E-02 4.28276E-01 -6.38223E-02 + 1.79330E+00 -6.31878E-02 0.00000E+00 0.00000E+00 1.18277E-01 + -1.85541E-02 1.18277E-01 -1.85541E-02 3.67905E-01 -5.37193E-02 + 1.83297E+00 -6.97579E-02 0.00000E+00 0.00000E+00 7.79909E-02 + -1.18821E-02 7.79909E-02 -1.18821E-02 3.17048E-01 -4.52967E-02 + 1.85585E+00 -7.35087E-02 0.00000E+00 0.00000E+00 4.92006E-02 + -7.16287E-03 4.92006E-02 -7.16287E-03 2.77627E-01 -3.88350E-02 + 1.86773E+00 -7.54357E-02 0.00000E+00 0.00000E+00 2.82948E-02 + -3.77082E-03 2.82948E-02 -3.77082E-03 2.46245E-01 -3.37430E-02 + 1.87356E+00 -7.63699E-02 0.00000E+00 0.00000E+00 1.12004E-02 + -1.02504E-03 1.12004E-02 -1.02504E-03 2.18972E-01 -2.93624E-02 + 1.87970E+00 -7.73479E-02 0.00000E+00 0.00000E+00 -6.06479E-03 + 1.72061E-03 -6.06479E-03 1.72061E-03 1.91969E-01 -2.50682E-02 + 1.89148E+00 -7.92050E-02 0.00000E+00 0.00000E+00 -2.77472E-02 + 5.13476E-03 -2.77472E-02 5.13476E-03 1.61077E-01 -2.02038E-02 + 1.91236E+00 -8.24595E-02 0.00000E+00 0.00000E+00 -5.51213E-02 + 9.40312E-03 -5.51213E-02 9.40312E-03 1.25041E-01 -1.45848E-02 + 1.90673E+00 -8.15901E-02 0.00000E+00 0.00000E+00 -6.45024E-02 + 1.08518E-02 -6.45024E-02 1.08518E-02 1.06891E-01 -1.17821E-02 + 1.79301E+00 -6.41964E-02 0.00000E+00 0.00000E+00 5.76227E-03 + 1.05160E-04 5.76227E-03 1.05160E-04 1.67051E-01 -2.09832E-02 + 1.66039E+00 -4.41049E-02 0.00000E+00 0.00000E+00 8.97860E-02 + -1.26241E-02 8.97860E-02 -1.26241E-02 2.41355E-01 -3.22400E-02 + 1.65741E+00 -4.36587E-02 0.00000E+00 0.00000E+00 8.04136E-02 + -1.12175E-02 8.04136E-02 -1.12175E-02 2.24809E-01 -2.97569E-02 + 1.70117E+00 -5.01640E-02 0.00000E+00 0.00000E+00 3.71326E-02 + -4.78255E-03 3.71326E-02 -4.78255E-03 1.75317E-01 -2.23984E-02 + 1.74341E+00 -5.63870E-02 0.00000E+00 0.00000E+00 -5.29469E-03 + 1.46741E-03 -5.29469E-03 1.46741E-03 1.26867E-01 -1.52612E-02 + 1.75231E+00 -5.76873E-02 0.00000E+00 0.00000E+00 -2.32869E-02 + 4.09365E-03 -2.32869E-02 4.09365E-03 1.02649E-01 -1.17263E-02 + 1.64234E+00 -4.17807E-02 0.00000E+00 0.00000E+00 4.66656E-02 + -6.02467E-03 4.66656E-02 -6.02467E-03 1.65270E-01 -2.07841E-02 + 1.59687E+00 -3.52622E-02 0.00000E+00 0.00000E+00 6.96574E-02 + -9.32051E-03 6.96574E-02 -9.32051E-03 1.82120E-01 -2.31995E-02 + 1.62190E+00 -3.88179E-02 0.00000E+00 0.00000E+00 4.06985E-02 + -5.20615E-03 4.06985E-02 -5.20615E-03 1.48086E-01 -1.83642E-02 + 1.63205E+00 -4.02460E-02 0.00000E+00 0.00000E+00 2.30978E-02 + -2.72755E-03 2.30978E-02 -2.72755E-03 1.25463E-01 -1.51783E-02 + 1.62939E+00 -3.98761E-02 0.00000E+00 0.00000E+00 1.50882E-02 + -1.60944E-03 1.50882E-02 -1.60944E-03 1.12529E-01 -1.33726E-02 + 1.62146E+00 -3.87779E-02 0.00000E+00 0.00000E+00 1.12377E-02 + -1.07658E-03 1.12377E-02 -1.07658E-03 1.03934E-01 -1.21833E-02 + 1.61132E+00 -3.73880E-02 0.00000E+00 0.00000E+00 9.21363E-03 + -7.98878E-04 9.21363E-03 -7.98878E-04 9.73731E-02 -1.12831E-02 + 1.60079E+00 -3.59542E-02 0.00000E+00 0.00000E+00 8.06661E-03 + -6.42848E-04 8.06661E-03 -6.42848E-04 9.19040E-02 -1.05391E-02 + 1.58954E+00 -3.44366E-02 0.00000E+00 0.00000E+00 7.37595E-03 + -5.49686E-04 7.37595E-03 -5.49686E-04 8.70940E-02 -9.89033E-03 + 1.57860E+00 -3.29743E-02 0.00000E+00 0.00000E+00 6.94140E-03 + -4.91562E-04 6.94140E-03 -4.91562E-04 8.27418E-02 -9.30818E-03 + 1.56751E+00 -3.15043E-02 0.00000E+00 0.00000E+00 6.65646E-03 + -4.53766E-04 6.65646E-03 -4.53766E-04 7.87281E-02 -8.77577E-03 + 1.55690E+00 -3.01068E-02 0.00000E+00 0.00000E+00 6.46357E-03 + -4.28384E-04 6.46357E-03 -4.28384E-04 7.49896E-02 -8.28396E-03 + 1.54655E+00 -2.87569E-02 0.00000E+00 0.00000E+00 6.32763E-03 + -4.10652E-04 6.32763E-03 -4.10652E-04 7.14824E-02 -7.82631E-03 + 1.53647E+00 -2.74509E-02 0.00000E+00 0.00000E+00 6.22739E-03 + -3.97678E-04 6.22739E-03 -3.97678E-04 6.81749E-02 -7.39824E-03 + 1.52676E+00 -2.62040E-02 0.00000E+00 0.00000E+00 6.14982E-03 + -3.87717E-04 6.14982E-03 -3.87717E-04 6.50484E-02 -6.99681E-03 + 1.51701E+00 -2.49647E-02 0.00000E+00 0.00000E+00 6.08478E-03 + -3.79435E-04 6.08478E-03 -3.79435E-04 6.20819E-02 -6.61898E-03 + 1.50803E+00 -2.38284E-02 0.00000E+00 0.00000E+00 6.02824E-03 + -3.72289E-04 6.02824E-03 -3.72289E-04 5.92679E-02 -6.26341E-03 + 1.49921E+00 -2.27226E-02 0.00000E+00 0.00000E+00 5.97536E-03 + -3.65657E-04 5.97536E-03 -3.65657E-04 5.65923E-02 -5.92797E-03 + 1.49054E+00 -2.16455E-02 0.00000E+00 0.00000E+00 5.92301E-03 + -3.59147E-04 5.92301E-03 -3.59147E-04 5.40449E-02 -5.61109E-03 + 1.48232E+00 -2.06312E-02 0.00000E+00 0.00000E+00 5.87037E-03 + -3.52649E-04 5.87037E-03 -3.52649E-04 5.16202E-02 -5.31180E-03 + 1.47461E+00 -1.96853E-02 0.00000E+00 0.00000E+00 5.81603E-03 + -3.45993E-04 5.81603E-03 -3.45993E-04 4.93106E-02 -5.02890E-03 + 1.46665E+00 -1.87167E-02 0.00000E+00 0.00000E+00 5.75809E-03 + -3.38947E-04 5.75809E-03 -3.38947E-04 4.71058E-02 -4.76088E-03 + 1.45946E+00 -1.78495E-02 0.00000E+00 0.00000E+00 5.69821E-03 + -3.31725E-04 5.69821E-03 -3.31725E-04 4.50062E-02 -4.50757E-03 + 1.45226E+00 -1.69896E-02 0.00000E+00 0.00000E+00 5.63428E-03 + -3.24069E-04 5.63428E-03 -3.24069E-04 4.30012E-02 -4.26750E-03 + 1.44550E+00 -1.61848E-02 0.00000E+00 0.00000E+00 5.56755E-03 + -3.16139E-04 5.56755E-03 -3.16139E-04 4.10889E-02 -4.04023E-03 + 1.43900E+00 -1.54184E-02 0.00000E+00 0.00000E+00 5.49740E-03 + -3.07865E-04 5.49740E-03 -3.07865E-04 3.92637E-02 -3.82490E-03 + 1.43243E+00 -1.46483E-02 0.00000E+00 0.00000E+00 5.42351E-03 + -2.99212E-04 5.42351E-03 -2.99212E-04 3.75195E-02 -3.62065E-03 + 1.42645E+00 -1.39543E-02 0.00000E+00 0.00000E+00 5.34745E-03 + -2.90372E-04 5.34745E-03 -2.90372E-04 3.58561E-02 -3.42727E-03 + 1.42089E+00 -1.33116E-02 0.00000E+00 0.00000E+00 5.26914E-03 + -2.81330E-04 5.26914E-03 -2.81330E-04 3.42683E-02 -3.24401E-03 + 1.41499E+00 -1.26348E-02 0.00000E+00 0.00000E+00 5.18704E-03 + -2.71924E-04 5.18704E-03 -2.71924E-04 3.27494E-02 -3.06995E-03 + 1.40970E+00 -1.20344E-02 0.00000E+00 0.00000E+00 5.10383E-03 + -2.62454E-04 5.10383E-03 -2.62454E-04 3.13006E-02 -2.90512E-03 + 1.40461E+00 -1.14586E-02 0.00000E+00 0.00000E+00 5.01848E-03 + -2.52813E-04 5.01848E-03 -2.52813E-04 2.99165E-02 -2.74875E-03 + 1.39963E+00 -1.08998E-02 0.00000E+00 0.00000E+00 4.93139E-03 + -2.43042E-04 4.93139E-03 -2.43042E-04 2.85940E-02 -2.60040E-03 + 1.39516E+00 -1.04022E-02 0.00000E+00 0.00000E+00 4.84356E-03 + -2.33260E-04 4.84356E-03 -2.33260E-04 2.73320E-02 -2.45980E-03 + 1.38974E+00 -9.80179E-03 0.00000E+00 0.00000E+00 4.75224E-03 + -2.23157E-04 4.75224E-03 -2.23157E-04 2.61219E-02 -2.32593E-03 + 1.38583E+00 -9.37281E-03 0.00000E+00 0.00000E+00 4.66281E-03 + -2.13334E-04 4.66281E-03 -2.13334E-04 2.49710E-02 -2.19948E-03 + 1.38169E+00 -8.92272E-03 0.00000E+00 0.00000E+00 4.57203E-03 + -2.03425E-04 4.57203E-03 -2.03425E-04 2.38699E-02 -2.07935E-03 + 1.37757E+00 -8.47480E-03 0.00000E+00 0.00000E+00 4.48031E-03 + -1.93486E-04 4.48031E-03 -1.93486E-04 2.28173E-02 -1.96526E-03 + 1.37466E+00 -8.16200E-03 0.00000E+00 0.00000E+00 4.39067E-03 + -1.83834E-04 4.39067E-03 -1.83834E-04 2.18154E-02 -1.85740E-03 + 1.36910E+00 -7.56726E-03 0.00000E+00 0.00000E+00 4.29514E-03 + -1.73623E-04 4.29514E-03 -1.73623E-04 2.08486E-02 -1.75403E-03 + 1.36649E+00 -7.28879E-03 0.00000E+00 0.00000E+00 4.20549E-03 + -1.64098E-04 4.20549E-03 -1.64098E-04 1.99343E-02 -1.65691E-03 + 1.36309E+00 -6.93046E-03 0.00000E+00 0.00000E+00 4.11434E-03 + -1.54479E-04 4.11434E-03 -1.54479E-04 1.90576E-02 -1.56440E-03 + 1.35985E+00 -6.59099E-03 0.00000E+00 0.00000E+00 4.02362E-03 + -1.44970E-04 4.02362E-03 -1.44970E-04 1.82203E-02 -1.47663E-03 + 1.35685E+00 -6.28031E-03 0.00000E+00 0.00000E+00 3.93372E-03 + -1.35606E-04 3.93372E-03 -1.35606E-04 1.74204E-02 -1.39332E-03 + 1.35412E+00 -5.99614E-03 0.00000E+00 0.00000E+00 3.84470E-03 + -1.26395E-04 3.84470E-03 -1.26395E-04 1.66566E-02 -1.31429E-03 + 1.35034E+00 -5.60919E-03 0.00000E+00 0.00000E+00 3.75423E-03 + -1.17095E-04 3.75423E-03 -1.17095E-04 1.59236E-02 -1.23893E-03 + 1.34812E+00 -5.38223E-03 0.00000E+00 0.00000E+00 3.66757E-03 + -1.08242E-04 3.66757E-03 -1.08242E-04 1.52272E-02 -1.16780E-03 + 1.34583E+00 -5.14780E-03 0.00000E+00 0.00000E+00 3.58138E-03 + -9.94928E-05 3.58138E-03 -9.94928E-05 1.45613E-02 -1.10021E-03 + 1.34274E+00 -4.83695E-03 0.00000E+00 0.00000E+00 3.49458E-03 + -9.07405E-05 3.49458E-03 -9.07405E-05 1.39227E-02 -1.03580E-03 + 1.34113E+00 -4.67496E-03 0.00000E+00 0.00000E+00 3.41164E-03 + -8.24266E-05 3.41164E-03 -8.24266E-05 1.33162E-02 -9.75013E-04 + 1.33839E+00 -4.40225E-03 0.00000E+00 0.00000E+00 3.32725E-03 + -7.40246E-05 3.32725E-03 -7.40246E-05 1.27333E-02 -9.16960E-04 + 1.33564E+00 -4.12968E-03 0.00000E+00 0.00000E+00 3.24413E-03 + -6.57960E-05 3.24413E-03 -6.57960E-05 1.21764E-02 -8.61824E-04 + 1.33406E+00 -3.97518E-03 0.00000E+00 0.00000E+00 3.16427E-03 + -5.79379E-05 3.16427E-03 -5.79379E-05 1.16468E-02 -8.09731E-04 + 1.33211E+00 -3.78459E-03 0.00000E+00 0.00000E+00 3.08487E-03 + -5.01709E-05 3.08487E-03 -5.01709E-05 1.11397E-02 -7.60142E-04 + 1.33025E+00 -3.60340E-03 0.00000E+00 0.00000E+00 3.00680E-03 + -4.25886E-05 3.00680E-03 -4.25886E-05 1.06552E-02 -7.13055E-04 + 1.32856E+00 -3.43949E-03 0.00000E+00 0.00000E+00 2.93022E-03 + -3.51900E-05 2.93022E-03 -3.51900E-05 1.01923E-02 -6.68350E-04 + 1.32634E+00 -3.22781E-03 0.00000E+00 0.00000E+00 2.85383E-03 + -2.78537E-05 2.85383E-03 -2.78537E-05 9.74856E-03 -6.25736E-04 + 1.32496E+00 -3.09440E-03 0.00000E+00 0.00000E+00 2.78032E-03 + -2.08385E-05 2.78032E-03 -2.08385E-05 9.32645E-03 -5.85447E-04 + 1.32344E+00 -2.95136E-03 0.00000E+00 0.00000E+00 2.70774E-03 + -1.39529E-05 2.70774E-03 -1.39529E-05 8.92236E-03 -5.47109E-04 + 1.32168E+00 -2.78553E-03 0.00000E+00 0.00000E+00 2.63610E-03 + -7.19441E-06 2.63610E-03 -7.19441E-06 8.53569E-03 -5.10639E-04 + 1.32067E+00 -2.69016E-03 0.00000E+00 0.00000E+00 2.56692E-03 + -7.07514E-07 2.56692E-03 -7.07514E-07 8.16736E-03 -4.76105E-04 + 1.31901E+00 -2.53577E-03 0.00000E+00 0.00000E+00 2.49790E-03 + 5.72350E-06 2.49790E-03 5.72350E-06 7.81399E-03 -4.43164E-04 + 1.31742E+00 -2.38892E-03 0.00000E+00 0.00000E+00 2.43033E-03 + 1.19868E-05 2.43033E-03 1.19868E-05 7.47617E-03 -4.11859E-04 + 1.31646E+00 -2.29935E-03 0.00000E+00 0.00000E+00 2.36492E-03 + 1.80158E-05 2.36492E-03 1.80158E-05 7.15431E-03 -3.82197E-04 + 1.31536E+00 -2.19827E-03 0.00000E+00 0.00000E+00 2.30083E-03 + 2.38842E-05 2.30083E-03 2.38842E-05 6.84653E-03 -3.53999E-04 + 1.31392E+00 -2.06865E-03 0.00000E+00 0.00000E+00 2.23706E-03 + 2.96937E-05 2.23706E-03 2.96937E-05 6.55111E-03 -3.27089E-04 + 1.31318E+00 -1.99998E-03 0.00000E+00 0.00000E+00 2.17604E-03 + 3.52230E-05 2.17604E-03 3.52230E-05 6.27021E-03 -3.01647E-04 + 1.31184E+00 -1.87990E-03 0.00000E+00 0.00000E+00 2.11492E-03 + 4.07273E-05 2.11492E-03 4.07273E-05 6.00016E-03 -2.77324E-04 + 1.31097E+00 -1.80364E-03 0.00000E+00 0.00000E+00 2.05602E-03 + 4.60040E-05 2.05602E-03 4.60040E-05 5.74295E-03 -2.54281E-04 + 1.31010E+00 -1.72544E-03 -8.28199E-06 7.37639E-07 1.98992E-03 + 5.18905E-05 1.98992E-03 5.18905E-05 5.48834E-03 -2.31610E-04 + 1.30926E+00 -1.65111E-03 -1.54539E-05 1.37287E-06 1.92616E-03 + 5.75366E-05 1.92616E-03 5.75366E-05 5.24569E-03 -2.10120E-04 + 1.30824E+00 -1.56148E-03 -1.99704E-05 1.77071E-06 1.86587E-03 + 6.28496E-05 1.86587E-03 6.28496E-05 5.01545E-03 -1.89833E-04 + 1.30750E+00 -1.49477E-03 -2.35456E-05 2.08390E-06 1.80793E-03 + 6.79223E-05 1.80793E-03 6.79223E-05 4.79621E-03 -1.70625E-04 + 1.30658E+00 -1.41467E-03 -2.65632E-05 2.34680E-06 1.75163E-03 + 7.28292E-05 1.75163E-03 7.28292E-05 4.58665E-03 -1.52369E-04 + 1.30597E+00 -1.36321E-03 -2.91929E-05 2.57468E-06 1.69716E-03 + 7.75484E-05 1.69716E-03 7.75484E-05 4.38671E-03 -1.35048E-04 + 1.30545E+00 -1.31744E-03 -3.15294E-05 2.77605E-06 1.64438E-03 + 8.20976E-05 1.64438E-03 8.20976E-05 4.19581E-03 -1.18594E-04 + 1.30469E+00 -1.25263E-03 -3.36311E-05 2.95621E-06 1.59224E-03 + 8.65675E-05 1.59224E-03 8.65675E-05 4.01248E-03 -1.02882E-04 + 1.30386E+00 -1.18207E-03 -3.55382E-05 3.11882E-06 1.54116E-03 + 9.09230E-05 1.54116E-03 9.09230E-05 3.83696E-03 -8.79104E-05 + 1.30330E+00 -1.13442E-03 -3.72790E-05 3.26647E-06 1.49182E-03 + 9.51062E-05 1.49182E-03 9.51062E-05 3.66942E-03 -7.37017E-05 + 1.30278E+00 -1.09055E-03 -3.88751E-05 3.40113E-06 1.44351E-03 + 9.91822E-05 1.44351E-03 9.91822E-05 3.50891E-03 -6.01610E-05 + 1.30228E+00 -1.04863E-03 -4.03436E-05 3.52437E-06 1.39652E-03 + 1.03127E-04 1.39652E-03 1.03127E-04 3.35542E-03 -4.72813E-05 + 1.30189E+00 -1.01620E-03 -4.16976E-05 3.63741E-06 1.35044E-03 + 1.06972E-04 1.35044E-03 1.06972E-04 3.20833E-03 -3.49959E-05 + 1.30124E+00 -9.62829E-04 -4.29485E-05 3.74131E-06 1.30524E-03 + 1.10731E-04 1.30524E-03 1.10731E-04 3.06711E-03 -2.32701E-05 + 1.30067E+00 -9.15150E-04 -4.41051E-05 3.83687E-06 1.26089E-03 + 1.14394E-04 1.26089E-03 1.14394E-04 2.93170E-03 -1.20799E-05 + 1.30027E+00 -8.82752E-04 -4.51757E-05 3.92487E-06 1.21772E-03 + 1.17941E-04 1.21772E-03 1.17941E-04 2.80215E-03 -1.43367E-06 + 1.30018E+00 -8.75112E-04 -4.61650E-05 4.00578E-06 1.17623E-03 + 1.21335E-04 1.17623E-03 1.21335E-04 2.67866E-03 8.66518E-06 + 1.29950E+00 -8.19835E-04 -4.70820E-05 4.08039E-06 1.13424E-03 + 1.24748E-04 1.13424E-03 1.24748E-04 2.55889E-03 1.84105E-05 + 1.29899E+00 -7.79784E-04 -4.79295E-05 4.14899E-06 1.09365E-03 + 1.28038E-04 1.09365E-03 1.28038E-04 2.44433E-03 2.76824E-05 + 1.29862E+00 -7.49291E-04 -4.87122E-05 4.21203E-06 1.05399E-03 + 1.31235E-04 1.05399E-03 1.31235E-04 2.33456E-03 3.65232E-05 + 1.29842E+00 -7.32120E-04 -4.94339E-05 4.26986E-06 1.01548E-03 + 1.34316E-04 1.01548E-03 1.34316E-04 2.22973E-03 4.49271E-05 + 1.29810E+00 -7.07346E-04 -5.00983E-05 4.32285E-06 9.77307E-04 + 1.37357E-04 9.77307E-04 1.37357E-04 2.12847E-03 5.30010E-05 + 1.29777E+00 -6.82550E-04 -5.07089E-05 4.37130E-06 9.40055E-04 + 1.40315E-04 9.40055E-04 1.40315E-04 2.03132E-03 6.07084E-05 + 1.29758E+00 -6.65401E-04 -5.12676E-05 4.41541E-06 9.03903E-04 + 1.43169E-04 9.03903E-04 1.43169E-04 1.93841E-03 6.80452E-05 + 1.29726E+00 -6.40605E-04 -5.17779E-05 4.45550E-06 8.67903E-04 + 1.46001E-04 8.67903E-04 1.46001E-04 1.84859E-03 7.51044E-05 + 1.29691E+00 -6.13923E-04 -5.22416E-05 4.49175E-06 8.32645E-04 + 1.48759E-04 8.32645E-04 1.48759E-04 1.76217E-03 8.18606E-05 + 1.29683E+00 -6.06287E-04 -5.26590E-05 4.52423E-06 7.98492E-04 + 1.51412E-04 7.98492E-04 1.51412E-04 1.67956E-03 8.82828E-05 + 1.29642E+00 -5.75791E-04 -5.30356E-05 4.55338E-06 7.64305E-04 + 1.54062E-04 7.64305E-04 1.54062E-04 1.59945E-03 9.44918E-05 + 1.29631E+00 -5.66249E-04 -5.33691E-05 4.57908E-06 7.31346E-04 + 1.56599E-04 7.31346E-04 1.56599E-04 1.52287E-03 1.00389E-04 + 1.29603E+00 -5.45285E-04 -5.36632E-05 4.60163E-06 6.98587E-04 + 1.59111E-04 6.98587E-04 1.59111E-04 1.44871E-03 1.06073E-04 + 1.29584E+00 -5.30033E-04 -5.39181E-05 4.62108E-06 6.66414E-04 + 1.61565E-04 6.66414E-04 1.61565E-04 1.37733E-03 1.11521E-04 + 1.29564E+00 -5.14772E-04 -5.41364E-05 4.63766E-06 6.34945E-04 + 1.63957E-04 6.34945E-04 1.63957E-04 1.30868E-03 1.16736E-04 + 1.29535E+00 -4.93807E-04 -5.43168E-05 4.65130E-06 6.03853E-04 + 1.66305E-04 6.03853E-04 1.66305E-04 1.24232E-03 1.21750E-04 + 1.29536E+00 -4.93800E-04 -5.44606E-05 4.66212E-06 5.73697E-04 + 1.68578E-04 5.73697E-04 1.68578E-04 1.17873E-03 1.26541E-04 + 1.29514E+00 -4.78555E-04 -5.45704E-05 4.67035E-06 5.43736E-04 + 1.70822E-04 5.43736E-04 1.70822E-04 1.11702E-03 1.31160E-04 + 1.29503E+00 -4.70921E-04 -5.46441E-05 4.67585E-06 5.14295E-04 + 1.73013E-04 5.14295E-04 1.73013E-04 1.05755E-03 1.35593E-04 + 1.29484E+00 -4.55676E-04 -5.46849E-05 4.67885E-06 4.85228E-04 + 1.75172E-04 4.85228E-04 1.75172E-04 9.99948E-04 1.39866E-04 + 1.29479E+00 -4.51855E-04 -5.46906E-05 4.67928E-06 4.56741E-04 + 1.77273E-04 4.56741E-04 1.77273E-04 9.44464E-04 1.43964E-04 + 1.29471E+00 -4.44236E-04 -5.46635E-05 4.67728E-06 4.28626E-04 + 1.79339E-04 4.28626E-04 1.79339E-04 8.90676E-04 1.47917E-04 + 1.29448E+00 -4.28977E-04 -5.46042E-05 4.67295E-06 4.00676E-04 + 1.81384E-04 4.00676E-04 1.81384E-04 8.38471E-04 1.51736E-04 + 1.29432E+00 -4.17544E-04 -5.45096E-05 4.66607E-06 3.73335E-04 + 1.83375E-04 3.73335E-04 1.83375E-04 7.88078E-04 1.55410E-04 + 1.29427E+00 -4.11818E-04 -5.43836E-05 4.65692E-06 3.46458E-04 + 1.85328E-04 3.46458E-04 1.85328E-04 7.39389E-04 1.58941E-04 + 1.29423E+00 -4.09917E-04 -5.42234E-05 4.64535E-06 3.19950E-04 + 1.87241E-04 3.19950E-04 1.87241E-04 6.92093E-04 1.62351E-04 + 1.29399E+00 -3.94659E-04 -5.40312E-05 4.63155E-06 2.93432E-04 + 1.89144E-04 2.93432E-04 1.89144E-04 6.45967E-04 1.65666E-04 + 1.29398E+00 -3.94665E-04 -5.38049E-05 4.61536E-06 2.67697E-04 + 1.90987E-04 2.67697E-04 1.90987E-04 6.01649E-04 1.68838E-04 + 1.29390E+00 -3.88939E-04 -5.35458E-05 4.59690E-06 2.42134E-04 + 1.92805E-04 2.42134E-04 1.92805E-04 5.58504E-04 1.71911E-04 + 1.29389E+00 -3.85132E-04 -5.32538E-05 4.57620E-06 2.16934E-04 + 1.94592E-04 2.16934E-04 1.94592E-04 5.16567E-04 1.74881E-04 + 1.29378E+00 -3.77499E-04 -5.29281E-05 4.55321E-06 1.91848E-04 + 1.96365E-04 1.91848E-04 1.96365E-04 4.75687E-04 1.77772E-04 + 1.29374E+00 -3.77505E-04 -5.25674E-05 4.52787E-06 1.67244E-04 + 1.98092E-04 1.67244E-04 1.98092E-04 4.36014E-04 1.80557E-04 + 1.29363E+00 -3.67967E-04 -5.21756E-05 4.50045E-06 1.42754E-04 + 1.99806E-04 1.42754E-04 1.99806E-04 3.97340E-04 1.83265E-04 + 1.29368E+00 -3.71785E-04 -5.17475E-05 4.47063E-06 1.18805E-04 + 2.01477E-04 1.18805E-04 2.01477E-04 3.59869E-04 1.85874E-04 + 1.29344E+00 -3.56527E-04 -5.12885E-05 4.43878E-06 9.45536E-05 + 2.03161E-04 9.45536E-05 2.03161E-04 3.22805E-04 1.88444E-04 + 1.29355E+00 -3.62253E-04 -5.07923E-05 4.40453E-06 7.10206E-05 + 2.04780E-04 7.10206E-05 2.04780E-04 2.87300E-04 1.90898E-04 + 1.29344E+00 -3.54621E-04 -5.02609E-05 4.36798E-06 4.76641E-05 + 2.06393E-04 4.76641E-05 2.06393E-04 2.52381E-04 1.93300E-04 + 1.29343E+00 -3.54626E-04 -4.96985E-05 4.32946E-06 2.41899E-05 + 2.07997E-04 2.41899E-05 2.07997E-04 2.18007E-04 1.95649E-04 + 1.29332E+00 -3.46994E-04 -4.91012E-05 4.28873E-06 1.13202E-06 + 2.09569E-04 1.13202E-06 2.09569E-04 1.84698E-04 1.97925E-04 + 1.29331E+00 -3.47000E-04 -4.84687E-05 4.24579E-06 -2.14492E-05 + 2.11103E-04 -2.14492E-05 2.11103E-04 1.52408E-04 2.00118E-04 + 1.29332E+00 -3.46994E-04 -4.78026E-05 4.20076E-06 -4.42084E-05 + 2.12641E-04 -4.42084E-05 2.12641E-04 1.20411E-04 2.02282E-04 + 1.29328E+00 -3.43187E-04 -4.71023E-05 4.15362E-06 -6.67307E-05 + 2.14156E-04 -6.67307E-05 2.14156E-04 8.90736E-05 2.04385E-04 + 1.29323E+00 -3.41275E-04 -4.63694E-05 4.10448E-06 -8.90127E-05 + 2.15650E-04 -8.90127E-05 2.15650E-04 5.85077E-05 2.06438E-04 + 1.29322E+00 -3.41280E-04 -4.56020E-05 4.05327E-06 -1.11178E-04 + 2.17132E-04 -1.11178E-04 2.17132E-04 2.84797E-05 2.08440E-04 + 1.29319E+00 -3.39373E-04 -4.48033E-05 4.00016E-06 -1.33164E-04 + 2.18592E-04 -1.33164E-04 2.18592E-04 -9.53296E-07 2.10395E-04 + 1.29323E+00 -3.41275E-04 -4.39729E-05 3.94517E-06 -1.55087E-04 + 2.20044E-04 -1.55087E-04 2.20044E-04 -2.99092E-05 2.12317E-04 + 1.29313E+00 -3.35560E-04 -4.31083E-05 3.88816E-06 -1.76896E-04 + 2.21481E-04 -1.76896E-04 2.21481E-04 -5.83298E-05 2.14190E-04 + 1.29317E+00 -3.35555E-04 -4.22172E-05 3.82965E-06 -1.98461E-04 + 2.22897E-04 -1.98461E-04 2.22897E-04 -8.62720E-05 2.16026E-04 + 1.29313E+00 -3.33654E-04 -4.11928E-05 3.76268E-06 -2.20152E-04 + 2.24315E-04 -2.20152E-04 2.24315E-04 -1.13919E-04 2.17832E-04 + 1.29311E+00 -3.33649E-04 -4.02510E-05 3.70133E-06 -2.41299E-04 + 2.25693E-04 -2.41299E-04 2.25693E-04 -1.40788E-04 2.19582E-04 + 1.29313E+00 -3.33654E-04 -3.92932E-05 3.63918E-06 -2.62693E-04 + 2.27082E-04 -2.62693E-04 2.27082E-04 -1.67542E-04 2.21317E-04 + 1.29317E+00 -3.35555E-04 -3.82919E-05 3.57451E-06 -2.83959E-04 + 2.28456E-04 -2.83959E-04 2.28456E-04 -1.93874E-04 2.23019E-04 + 1.29304E+00 -3.29840E-04 -3.67787E-05 3.47714E-06 -3.04816E-04 + 2.29796E-04 -3.04816E-04 2.29796E-04 -2.19616E-04 2.24673E-04 + 1.29311E+00 -3.33649E-04 -3.23050E-05 3.19047E-06 -3.22209E-04 + 2.30910E-04 -3.22209E-04 2.30910E-04 -2.41478E-04 2.26077E-04 + 1.29310E+00 -3.33654E-04 -3.17264E-05 3.15355E-06 -3.44080E-04 + 2.32306E-04 -3.44080E-04 2.32306E-04 -2.67697E-04 2.27752E-04 + 1.29308E+00 -3.31742E-04 -3.13173E-05 3.12752E-06 -3.65464E-04 + 2.33669E-04 -3.65464E-04 2.33669E-04 -2.93194E-04 2.29372E-04 + 1.29310E+00 -3.31747E-04 -3.04687E-05 3.07377E-06 -3.86859E-04 + 2.35021E-04 -3.86859E-04 2.35021E-04 -3.18460E-04 2.30969E-04 + 1.29311E+00 -3.33649E-04 -2.93590E-05 3.00382E-06 -4.07885E-04 + 2.36351E-04 -4.07885E-04 2.36351E-04 -3.43181E-04 2.32530E-04 + 1.29316E+00 -3.35560E-04 -2.82125E-05 2.93175E-06 -4.28685E-04 + 2.37654E-04 -4.28685E-04 2.37654E-04 -3.67436E-04 2.34053E-04 + 1.29308E+00 -3.31742E-04 -2.69982E-05 2.85577E-06 -4.49413E-04 + 2.38953E-04 -4.49413E-04 2.38953E-04 -3.91441E-04 2.35557E-04 + 1.29310E+00 -3.33654E-04 -2.57730E-05 2.77942E-06 -4.70332E-04 + 2.40257E-04 -4.70332E-04 2.40257E-04 -4.15458E-04 2.37054E-04 + 1.29310E+00 -3.31747E-04 -2.45241E-05 2.70186E-06 -4.91484E-04 + 2.41567E-04 -4.91484E-04 2.41567E-04 -4.39529E-04 2.38547E-04 + 1.29312E+00 -3.33643E-04 -2.32387E-05 2.62236E-06 -5.12024E-04 + 2.42837E-04 -5.12024E-04 2.42837E-04 -4.62871E-04 2.39992E-04 + 1.29319E+00 -3.37467E-04 -2.20478E-05 2.54898E-06 -5.32714E-04 + 2.44115E-04 -5.32714E-04 2.44115E-04 -4.86241E-04 2.41430E-04 + 1.29313E+00 -3.33654E-04 -2.06765E-05 2.46479E-06 -5.53865E-04 + 2.45414E-04 -5.53865E-04 2.45414E-04 -5.09954E-04 2.42886E-04 + 1.29312E+00 -3.33643E-04 -1.94461E-05 2.38957E-06 -5.74582E-04 + 2.46680E-04 -5.74582E-04 2.46680E-04 -5.32936E-04 2.44293E-04 + 1.29320E+00 -3.39384E-04 -1.81807E-05 2.31250E-06 -5.95471E-04 + 2.47950E-04 -5.95471E-04 2.47950E-04 -5.56086E-04 2.45701E-04 + 1.29318E+00 -3.37457E-04 -1.69279E-05 2.23649E-06 -6.16287E-04 + 2.49216E-04 -6.16287E-04 2.49216E-04 -5.79110E-04 2.47097E-04 + 1.29322E+00 -3.39373E-04 -1.56754E-05 2.16077E-06 -6.37457E-04 + 2.50493E-04 -6.37457E-04 2.50493E-04 -6.02185E-04 2.48494E-04 + 1.29413E+00 -3.94665E-04 -1.44344E-05 2.08603E-06 -6.55987E-04 + 2.51611E-04 -6.55987E-04 2.51611E-04 -6.22622E-04 2.49726E-04 + 1.29226E+00 -2.82167E-04 -1.32666E-05 2.01598E-06 -6.82360E-04 + 2.53193E-04 -6.82360E-04 2.53193E-04 -6.50843E-04 2.51417E-04 + 1.29532E+00 -4.65209E-04 -1.19856E-05 1.93938E-06 -6.95310E-04 + 2.53968E-04 -6.95310E-04 2.53968E-04 -6.65460E-04 2.52292E-04 + 1.29114E+00 -2.17352E-04 -1.08889E-05 1.87410E-06 -7.27782E-04 + 2.55900E-04 -7.27782E-04 2.55900E-04 -6.99541E-04 2.54322E-04 + 1.29327E+00 -3.43176E-04 -9.69791E-06 1.80341E-06 -7.43727E-04 + 2.56846E-04 -7.43727E-04 2.56846E-04 -7.17036E-04 2.55356E-04 + 1.29405E+00 -3.88957E-04 -8.53803E-06 1.73486E-06 -7.62958E-04 + 2.57982E-04 -7.62958E-04 2.57982E-04 -7.37755E-04 2.56582E-04 + 1.29251E+00 -2.99326E-04 -7.46741E-06 1.67180E-06 -7.88828E-04 + 2.59508E-04 -7.88828E-04 2.59508E-04 -7.64997E-04 2.58186E-04 + 1.29331E+00 -3.45093E-04 -6.36353E-06 1.60703E-06 -8.08395E-04 + 2.60652E-04 -8.08395E-04 2.60652E-04 -7.85754E-04 2.59405E-04 + 1.29337E+00 -3.48906E-04 -5.29340E-06 1.54445E-06 -8.30083E-04 + 2.61929E-04 -8.30083E-04 2.61929E-04 -8.08753E-04 2.60753E-04 + 1.29416E+00 -3.94665E-04 -4.24934E-06 1.48365E-06 -8.49744E-04 + 2.63069E-04 -8.49744E-04 2.63069E-04 -8.29606E-04 2.61963E-04 + 1.29251E+00 -2.99326E-04 -3.26848E-06 1.42673E-06 -8.76410E-04 + 2.64617E-04 -8.76410E-04 2.64617E-04 -8.57345E-04 2.63571E-04 + 1.29386E+00 -3.77505E-04 -2.21567E-06 1.36585E-06 -8.94907E-04 + 2.65683E-04 -8.94907E-04 2.65683E-04 -8.76794E-04 2.64700E-04 + 1.29304E+00 -3.29840E-04 -1.31916E-06 1.31419E-06 -9.19692E-04 + 2.67113E-04 -9.19692E-04 2.67113E-04 -9.02652E-04 2.66186E-04 + 1.29407E+00 -3.88945E-04 -3.48177E-07 1.25845E-06 -9.39116E-04 + 2.68226E-04 -9.39116E-04 2.68226E-04 -9.22791E-04 2.67351E-04 + 1.29281E+00 -3.16485E-04 5.31093E-07 1.20814E-06 -9.65421E-04 + 2.69730E-04 -9.65421E-04 2.69730E-04 -9.49931E-04 2.68903E-04 + 1.29413E+00 -3.90851E-04 1.45229E-06 1.15563E-06 -9.84278E-04 + 2.70803E-04 -9.84278E-04 2.70803E-04 -9.69740E-04 2.70029E-04 + 1.29365E+00 -3.64159E-04 2.29061E-06 1.10801E-06 -1.00847E-03 + 2.72181E-04 -1.00847E-03 2.72181E-04 -9.94765E-04 2.71447E-04 + 1.29304E+00 -3.29840E-04 3.11218E-06 1.06152E-06 -1.03325E-03 + 2.73585E-04 -1.03325E-03 2.73585E-04 -1.02038E-03 2.72896E-04 + 1.29330E+00 -3.45083E-04 3.91826E-06 1.01605E-06 -1.05550E-03 + 2.74843E-04 -1.05550E-03 2.74843E-04 -1.04323E-03 2.74191E-04 + 1.29362E+00 -3.62253E-04 4.70411E-06 9.71886E-07 -1.07818E-03 + 2.76110E-04 -1.07818E-03 2.76110E-04 -1.06650E-03 2.75495E-04 + 1.29395E+00 -3.81318E-04 5.46190E-06 9.29440E-07 -1.10058E-03 + 2.77364E-04 -1.10058E-03 2.77364E-04 -1.08950E-03 2.76787E-04 + 1.29374E+00 -3.69879E-04 6.19037E-06 8.88769E-07 -1.12453E-03 + 2.78705E-04 -1.12453E-03 2.78705E-04 -1.11416E-03 2.78161E-04 + 1.29358E+00 -3.60335E-04 6.87162E-06 8.50894E-07 -1.14904E-03 + 2.80067E-04 -1.14904E-03 2.80067E-04 -1.13915E-03 2.79553E-04 + 1.29352E+00 -3.58439E-04 7.57889E-06 8.11704E-07 -1.17279E-03 + 2.81386E-04 -1.17279E-03 2.81386E-04 -1.16362E-03 2.80906E-04 + 1.29377E+00 -3.71785E-04 8.22404E-06 7.76037E-07 -1.19639E-03 + 2.82690E-04 -1.19639E-03 2.82690E-04 -1.18745E-03 2.82228E-04 + 1.29358E+00 -3.62253E-04 8.85802E-06 7.41155E-07 -1.22093E-03 + 2.84038E-04 -1.22093E-03 2.84038E-04 -1.21271E-03 2.83613E-04 + 1.29373E+00 -3.67961E-04 9.46983E-06 7.07590E-07 -1.24497E-03 + 2.85362E-04 -1.24497E-03 2.85362E-04 -1.23710E-03 2.84952E-04 + 1.29404E+00 -3.87038E-04 1.00617E-05 6.75232E-07 -1.26848E-03 + 2.86644E-04 -1.26848E-03 2.86644E-04 -1.26109E-03 2.86264E-04 + 1.29355E+00 -3.60346E-04 1.06226E-05 6.44685E-07 -1.29517E-03 + 2.88097E-04 -1.29517E-03 2.88097E-04 -1.28826E-03 2.87739E-04 + 1.29383E+00 -3.75599E-04 1.11714E-05 6.14895E-07 -1.31877E-03 + 2.89377E-04 -1.31877E-03 2.89377E-04 -1.31197E-03 2.89035E-04 + 1.29412E+00 -3.90839E-04 1.17041E-05 5.86075E-07 -1.34303E-03 + 2.90694E-04 -1.34303E-03 2.90694E-04 -1.33684E-03 2.90374E-04 + 1.29389E+00 -3.77505E-04 1.20624E-05 5.66747E-07 -1.36917E-03 + 2.92103E-04 -1.36917E-03 2.92103E-04 -1.36333E-03 2.91805E-04 + 1.29410E+00 -3.90851E-04 1.28378E-05 5.25058E-07 -1.39348E-03 + 2.93407E-04 -1.39348E-03 2.93407E-04 -1.38788E-03 2.93124E-04 + 1.29365E+00 -3.64159E-04 1.31548E-05 5.08097E-07 -1.42077E-03 + 2.94874E-04 -1.42077E-03 2.94874E-04 -1.41553E-03 2.94606E-04 + 1.29403E+00 -3.85120E-04 1.36087E-05 4.83848E-07 -1.44551E-03 + 2.96190E-04 -1.44551E-03 2.96190E-04 -1.44051E-03 2.95937E-04 + 1.29404E+00 -3.85132E-04 1.40388E-05 4.60967E-07 -1.47141E-03 + 2.97570E-04 -1.47141E-03 2.97570E-04 -1.46665E-03 2.97332E-04 + 1.29410E+00 -3.88945E-04 1.44586E-05 4.38712E-07 -1.49727E-03 + 2.98940E-04 -1.49727E-03 2.98940E-04 -1.49274E-03 2.98717E-04 + 1.29407E+00 -3.87038E-04 1.48552E-05 4.17765E-07 -1.52396E-03 + 3.00348E-04 -1.52396E-03 3.00348E-04 -1.51979E-03 3.00139E-04 + 1.29419E+00 -3.92746E-04 1.52388E-05 3.97534E-07 -1.55001E-03 + 3.01724E-04 -1.55001E-03 3.01724E-04 -1.54596E-03 3.01523E-04 + 1.29432E+00 -4.00384E-04 1.56079E-05 3.78142E-07 -1.57628E-03 + 3.03103E-04 -1.57628E-03 3.03103E-04 -1.57246E-03 3.02917E-04 + 1.29404E+00 -3.87038E-04 1.59528E-05 3.60104E-07 -1.60380E-03 + 3.04548E-04 -1.60380E-03 3.04548E-04 -1.60023E-03 3.04370E-04 + 1.29441E+00 -4.04198E-04 1.62991E-05 3.42038E-07 -1.63014E-03 + 3.05919E-04 -1.63014E-03 3.05919E-04 -1.62680E-03 3.05755E-04 + 1.29423E+00 -3.96571E-04 1.64714E-05 3.33078E-07 -1.65766E-03 + 3.07349E-04 -1.65766E-03 3.07349E-04 -1.65445E-03 3.07192E-04 + 1.29425E+00 -3.96559E-04 1.70713E-05 3.01969E-07 -1.68526E-03 + 3.08777E-04 -1.68526E-03 3.08777E-04 -1.68228E-03 3.08628E-04 + 1.29438E+00 -4.04198E-04 1.72273E-05 2.93919E-07 -1.71260E-03 + 3.10194E-04 -1.71260E-03 3.10194E-04 -1.70974E-03 3.10052E-04 + 1.29435E+00 -4.02291E-04 1.75098E-05 2.79373E-07 -1.74036E-03 + 3.11624E-04 -1.74036E-03 3.11624E-04 -1.73786E-03 3.11497E-04 + 1.29441E+00 -4.06104E-04 1.77798E-05 2.65525E-07 -1.76836E-03 + 3.13061E-04 -1.76836E-03 3.13061E-04 -1.76574E-03 3.12934E-04 + 1.29443E+00 -4.06092E-04 1.80432E-05 2.52048E-07 -1.79679E-03 + 3.14511E-04 -1.79679E-03 3.14511E-04 -1.79429E-03 3.14392E-04 + 1.29444E+00 -4.06104E-04 1.82923E-05 2.39313E-07 -1.82532E-03 + 3.15966E-04 -1.82532E-03 3.15966E-04 -1.82306E-03 3.15861E-04 + 1.29459E+00 -4.13731E-04 1.85343E-05 2.27036E-07 -1.85321E-03 + 3.17388E-04 -1.85321E-03 3.17388E-04 -1.85106E-03 3.17284E-04 + 1.29453E+00 -4.11824E-04 1.87592E-05 2.15632E-07 -1.88252E-03 + 3.18870E-04 -1.88252E-03 3.18870E-04 -1.88050E-03 3.18773E-04 + 1.29458E+00 -4.13718E-04 1.89774E-05 2.04600E-07 -1.91118E-03 + 3.20320E-04 -1.91118E-03 3.20320E-04 -1.90916E-03 3.20223E-04 + 1.29462E+00 -4.15637E-04 1.91893E-05 1.93929E-07 -1.94091E-03 + 3.21819E-04 -1.94091E-03 3.21819E-04 -1.93924E-03 3.21737E-04 + 1.29465E+00 -4.17544E-04 1.93904E-05 1.83834E-07 -1.96987E-03 + 3.23272E-04 -1.96987E-03 3.23272E-04 -1.96820E-03 3.23190E-04 + 1.29474E+00 -4.23263E-04 1.95798E-05 1.74350E-07 -1.99954E-03 + 3.24754E-04 -1.99954E-03 3.24754E-04 -1.99799E-03 3.24679E-04 + 1.29467E+00 -4.19438E-04 1.97579E-05 1.65472E-07 -2.02986E-03 + 3.26271E-04 -2.02986E-03 3.26271E-04 -2.02831E-03 3.26196E-04 + 1.29480E+00 -4.25170E-04 1.99382E-05 1.56487E-07 -2.05948E-03 + 3.27740E-04 -2.05948E-03 3.27740E-04 -2.05805E-03 3.27673E-04 + 1.29480E+00 -4.25170E-04 2.01016E-05 1.48400E-07 -2.08974E-03 + 3.29245E-04 -2.08974E-03 3.29245E-04 -2.08843E-03 3.29178E-04 + 1.29493E+00 -4.30890E-04 2.02627E-05 1.40458E-07 -2.12037E-03 + 3.30757E-04 -2.12037E-03 3.30757E-04 -2.11918E-03 3.30697E-04 + 1.29489E+00 -4.28970E-04 2.04161E-05 1.32890E-07 -2.15129E-03 + 3.32281E-04 -2.15129E-03 3.32281E-04 -2.14997E-03 3.32221E-04 + 1.29493E+00 -4.30890E-04 2.05601E-05 1.25824E-07 -2.18209E-03 + 3.33795E-04 -2.18209E-03 3.33795E-04 -2.18102E-03 3.33743E-04 + 1.29496E+00 -4.32796E-04 2.06960E-05 1.19162E-07 -2.21332E-03 + 3.35322E-04 -2.21332E-03 3.35322E-04 -2.21224E-03 3.35270E-04 + 1.29502E+00 -4.34703E-04 2.08315E-05 1.12529E-07 -2.24489E-03 + 3.36864E-04 -2.24489E-03 3.36864E-04 -2.24394E-03 3.36819E-04 + 1.29507E+00 -4.38503E-04 2.09579E-05 1.06387E-07 -2.27640E-03 + 3.38395E-04 -2.27640E-03 3.38395E-04 -2.27545E-03 3.38350E-04 + 1.29514E+00 -4.40423E-04 2.10814E-05 1.00397E-07 -2.30817E-03 + 3.39939E-04 -2.30817E-03 3.39939E-04 -2.30722E-03 3.39895E-04 + 1.29514E+00 -4.42329E-04 2.11955E-05 9.48700E-08 -2.34022E-03 + 3.41489E-04 -2.34022E-03 3.41489E-04 -2.33939E-03 3.41451E-04 + 1.29517E+00 -4.42329E-04 2.12997E-05 8.98370E-08 -2.37311E-03 + 3.43075E-04 -2.37311E-03 3.43075E-04 -2.37228E-03 3.43038E-04 + 1.29522E+00 -4.46129E-04 2.14085E-05 8.46269E-08 -2.40509E-03 + 3.44613E-04 -2.40509E-03 3.44613E-04 -2.40426E-03 3.44576E-04 + 1.29526E+00 -4.46143E-04 2.15078E-05 7.98583E-08 -2.43829E-03 + 3.46203E-04 -2.43829E-03 3.46203E-04 -2.43758E-03 3.46173E-04 + 1.29532E+00 -4.49956E-04 2.16014E-05 7.53781E-08 -2.47094E-03 + 3.47767E-04 -2.47094E-03 3.47767E-04 -2.47011E-03 3.47730E-04 + 1.29535E+00 -4.51862E-04 2.16959E-05 7.08688E-08 -2.50455E-03 + 3.49368E-04 -2.50455E-03 3.49368E-04 -2.50383E-03 3.49338E-04 + 1.29541E+00 -4.53755E-04 2.17804E-05 6.68520E-08 -2.53795E-03 + 3.50951E-04 -2.53795E-03 3.50951E-04 -2.53736E-03 3.50929E-04 + 1.29545E+00 -4.55676E-04 2.18597E-05 6.31012E-08 -2.57175E-03 + 3.52556E-04 -2.57175E-03 3.52556E-04 -2.57104E-03 3.52526E-04 + 1.29551E+00 -4.57582E-04 2.19416E-05 5.92319E-08 -2.60560E-03 + 3.54157E-04 -2.60560E-03 3.54157E-04 -2.60512E-03 3.54135E-04 + 1.29548E+00 -4.57582E-04 2.20161E-05 5.57117E-08 -2.64003E-03 + 3.55781E-04 -2.64003E-03 3.55781E-04 -2.63956E-03 3.55758E-04 + 1.29560E+00 -4.63302E-04 2.20897E-05 5.22497E-08 -2.67435E-03 + 3.57389E-04 -2.67435E-03 3.57389E-04 -2.67388E-03 3.57367E-04 + 1.29565E+00 -4.65194E-04 2.21411E-05 4.98627E-08 -2.70919E-03 + 3.59024E-04 -2.70919E-03 3.59024E-04 -2.70871E-03 3.59002E-04 + 1.29569E+00 -4.67115E-04 2.21893E-05 4.76241E-08 -2.74454E-03 + 3.60666E-04 -2.74454E-03 3.60666E-04 -2.74394E-03 3.60644E-04 + 1.29569E+00 -4.67115E-04 2.22796E-05 4.34057E-08 -2.77945E-03 + 3.62297E-04 -2.77945E-03 3.62297E-04 -2.77910E-03 3.62282E-04 + 1.29578E+00 -4.70928E-04 2.23969E-05 3.79654E-08 -2.81520E-03 + 3.63958E-04 -2.81520E-03 3.63958E-04 -2.81485E-03 3.63943E-04 + 1.29577E+00 -4.70914E-04 2.23543E-05 3.99134E-08 -2.85086E-03 + 3.65608E-04 -2.85086E-03 3.65608E-04 -2.85051E-03 3.65585E-04 + 1.29587E+00 -4.74741E-04 2.24518E-05 3.54344E-08 -2.88682E-03 + 3.67265E-04 -2.88682E-03 3.67265E-04 -2.88646E-03 3.67250E-04 + 1.29584E+00 -4.74741E-04 2.25002E-05 3.32234E-08 -2.92376E-03 + 3.68963E-04 -2.92376E-03 3.68963E-04 -2.92340E-03 3.68948E-04 + 1.29599E+00 -4.82368E-04 2.25617E-05 3.03723E-08 -2.95927E-03 + 3.70594E-04 -2.95927E-03 3.70594E-04 -2.95903E-03 3.70586E-04 + 1.29592E+00 -4.78540E-04 2.26317E-05 2.71714E-08 -2.99695E-03 + 3.72318E-04 -2.99695E-03 3.72318E-04 -2.99659E-03 3.72303E-04 + 1.29603E+00 -4.82368E-04 2.26417E-05 2.67067E-08 -3.03351E-03 + 3.73983E-04 -3.03351E-03 3.73983E-04 -3.03303E-03 3.73968E-04 + 1.29609E+00 -4.86181E-04 2.26855E-05 2.47284E-08 -3.07128E-03 + 3.75703E-04 -3.07128E-03 3.75703E-04 -3.07116E-03 3.75695E-04 + 1.29609E+00 -4.86181E-04 2.27125E-05 2.35066E-08 -3.10906E-03 + 3.77416E-04 -3.10906E-03 3.77416E-04 -3.10870E-03 3.77401E-04 + 1.29623E+00 -4.91886E-04 2.27220E-05 2.30695E-08 -3.14638E-03 + 3.79110E-04 -3.14638E-03 3.79110E-04 -3.14638E-03 3.79102E-04 + 1.29621E+00 -4.89994E-04 2.27925E-05 1.98991E-08 -3.18460E-03 + 3.80834E-04 -3.18460E-03 3.80834E-04 -3.18449E-03 3.80827E-04 + 1.29630E+00 -4.95714E-04 2.28689E-05 1.64662E-08 -3.22309E-03 + 3.82562E-04 -3.22309E-03 3.82562E-04 -3.22274E-03 3.82547E-04 + 1.29633E+00 -4.97621E-04 2.28437E-05 1.76008E-08 -3.26194E-03 + 3.84305E-04 -3.26194E-03 3.84305E-04 -3.26170E-03 3.84297E-04 + 1.29635E+00 -4.97605E-04 2.29110E-05 1.45748E-08 -3.30140E-03 + 3.86066E-04 -3.30140E-03 3.86066E-04 -3.30116E-03 3.86058E-04 + 1.29639E+00 -4.99527E-04 2.29080E-05 1.47207E-08 -3.34011E-03 + 3.87798E-04 -3.34011E-03 3.87798E-04 -3.33999E-03 3.87790E-04 + 1.29654E+00 -5.05247E-04 2.29666E-05 1.21315E-08 -3.37979E-03 + 3.89563E-04 -3.37979E-03 3.89563E-04 -3.37967E-03 3.89556E-04 + 1.29651E+00 -5.05247E-04 2.30178E-05 9.83319E-09 -3.41947E-03 + 3.91321E-04 -3.41947E-03 3.91321E-04 -3.41923E-03 3.91313E-04 + 1.29666E+00 -5.10951E-04 2.30087E-05 1.02402E-08 -3.45953E-03 + 3.93096E-04 -3.45953E-03 3.93096E-04 -3.45953E-03 3.93096E-04 + 1.29657E+00 -5.07154E-04 2.30290E-05 9.33862E-09 -3.50062E-03 + 3.94903E-04 -3.50062E-03 3.94903E-04 -3.50038E-03 3.94895E-04 + 1.29670E+00 -5.12873E-04 2.30523E-05 8.34949E-09 -3.54090E-03 + 3.96675E-04 -3.54090E-03 3.96675E-04 -3.54066E-03 3.96668E-04 + 1.29682E+00 -5.18593E-04 2.30783E-05 7.18580E-09 -3.58201E-03 + 3.98478E-04 -3.58201E-03 3.98478E-04 -3.58177E-03 3.98470E-04 + 1.29669E+00 -5.12858E-04 2.30758E-05 7.27285E-09 -3.62337E-03 + 4.00290E-04 -3.62337E-03 4.00290E-04 -3.62337E-03 4.00290E-04 + 1.29688E+00 -5.20500E-04 2.31379E-05 4.56749E-09 -3.66495E-03 + 4.02105E-04 -3.66495E-03 4.02105E-04 -3.66471E-03 4.02097E-04 + 1.29691E+00 -5.22406E-04 2.31295E-05 4.94569E-09 -3.70665E-03 + 4.03922E-04 -3.70665E-03 4.03922E-04 -3.70665E-03 4.03915E-04 + 1.29694E+00 -5.24313E-04 2.31528E-05 3.92746E-09 -3.74884E-03 + 4.05754E-04 -3.74884E-03 4.05754E-04 -3.74908E-03 4.05754E-04 + 1.29697E+00 -5.24313E-04 2.31807E-05 2.73468E-09 -3.79150E-03 + 4.07601E-04 -3.79150E-03 4.07601E-04 -3.79150E-03 4.07594E-04 + 1.29708E+00 -5.30016E-04 2.31893E-05 2.35640E-09 -3.83380E-03 + 4.09428E-04 -3.83380E-03 4.09428E-04 -3.83404E-03 4.09428E-04 + 1.29706E+00 -5.30033E-04 2.32226E-05 9.30953E-10 -3.87753E-03 + 4.11303E-04 -3.87753E-03 4.11303E-04 -3.87729E-03 4.11295E-04 + 1.29721E+00 -5.35752E-04 2.32236E-05 8.72769E-10 -3.92067E-03 + 4.13157E-04 -3.92067E-03 4.13157E-04 -3.92067E-03 4.13157E-04 + 1.29725E+00 -5.35752E-04 2.32347E-05 4.07292E-10 -3.96428E-03 + 4.15019E-04 -3.96428E-03 4.15019E-04 -3.96428E-03 4.15019E-04 + 1.29727E+00 -5.37643E-04 2.32489E-05 -2.03640E-10 -4.00873E-03 + 4.16920E-04 -4.00873E-03 4.16920E-04 -4.00873E-03 4.16913E-04 + 1.29743E+00 -5.43379E-04 2.32617E-05 -7.27307E-10 -4.05294E-03 + 4.18795E-04 -4.05294E-03 4.18795E-04 -4.05270E-03 4.18795E-04 + 1.29740E+00 -5.43379E-04 2.32655E-05 -9.01861E-10 -4.09727E-03 + 4.20687E-04 -4.09727E-03 4.20687E-04 -4.09727E-03 4.20687E-04 + 1.29746E+00 -5.45285E-04 2.32887E-05 -1.86191E-09 -4.14231E-03 + 4.22601E-04 -4.14231E-03 4.22601E-04 -4.14231E-03 4.22593E-04 + 1.29751E+00 -5.47175E-04 2.33048E-05 -2.56004E-09 -4.18842E-03 + 4.24539E-04 -4.18842E-03 4.24539E-04 -4.18818E-03 4.24539E-04 + 1.29761E+00 -5.52912E-04 2.33101E-05 -2.79286E-09 -4.23287E-03 + 4.26421E-04 -4.23287E-03 4.26421E-04 -4.23311E-03 4.26421E-04 + 1.29761E+00 -5.52912E-04 2.33157E-05 -2.99651E-09 -4.27958E-03 + 4.28373E-04 -4.27958E-03 4.28373E-04 -4.27935E-03 4.28365E-04 + 1.29776E+00 -5.58632E-04 2.33334E-05 -3.78200E-09 -4.32534E-03 + 4.30294E-04 -4.32534E-03 4.30294E-04 -4.32534E-03 4.30294E-04 + 1.29775E+00 -5.58614E-04 2.33476E-05 -4.36371E-09 -4.37240E-03 + 4.32262E-04 -4.37240E-03 4.32262E-04 -4.37240E-03 4.32262E-04 + 1.29782E+00 -5.60538E-04 2.33502E-05 -4.48021E-09 -4.41877E-03 + 4.34189E-04 -4.41877E-03 4.34189E-04 -4.41877E-03 4.34189E-04 + 1.29782E+00 -5.60538E-04 2.33548E-05 -4.65477E-09 -4.46667E-03 + 4.36193E-04 -4.46667E-03 4.36193E-04 -4.46667E-03 4.36185E-04 + 1.29798E+00 -5.68165E-04 2.33651E-05 -5.09115E-09 -4.51386E-03 + 4.38136E-04 -4.51386E-03 4.38136E-04 -4.51362E-03 4.38136E-04 + 1.29800E+00 -5.68147E-04 2.33727E-05 -5.41100E-09 -4.56186E-03 + 4.40126E-04 -4.56186E-03 4.40126E-04 -4.56162E-03 4.40126E-04 + 1.29810E+00 -5.71978E-04 2.33781E-05 -5.64390E-09 -4.60990E-03 + 4.42113E-04 -4.60990E-03 4.42113E-04 -4.60990E-03 4.42113E-04 + 1.29807E+00 -5.71978E-04 2.33846E-05 -5.87664E-09 -4.65876E-03 + 4.44132E-04 -4.65876E-03 4.44132E-04 -4.65876E-03 4.44132E-04 + 1.29822E+00 -5.77697E-04 2.33986E-05 -6.45849E-09 -4.70738E-03 + 4.46120E-04 -4.70738E-03 4.46120E-04 -4.70714E-03 4.46120E-04 + 1.29827E+00 -5.79586E-04 2.33997E-05 -6.51647E-09 -4.75656E-03 + 4.48140E-04 -4.75656E-03 4.48140E-04 -4.75656E-03 4.48132E-04 + 1.29837E+00 -5.83417E-04 2.34097E-05 -6.92396E-09 -4.80604E-03 + 4.50157E-04 -4.80604E-03 4.50157E-04 -4.80604E-03 4.50157E-04 + 1.29831E+00 -5.81511E-04 2.34125E-05 -7.04033E-09 -4.85657E-03 + 4.52212E-04 -4.85657E-03 4.52212E-04 -4.85633E-03 4.52212E-04 + 1.29840E+00 -5.85324E-04 2.34246E-05 -7.53490E-09 -4.90709E-03 + 4.54268E-04 -4.90709E-03 4.54268E-04 -4.90709E-03 4.54268E-04 + 1.29864E+00 -5.94839E-04 2.34277E-05 -7.65104E-09 -4.95675E-03 + 4.56280E-04 -4.95675E-03 4.56280E-04 -4.95675E-03 4.56280E-04 + 1.29856E+00 -5.91044E-04 2.34302E-05 -7.76764E-09 -5.00862E-03 + 4.58379E-04 -5.00862E-03 4.58379E-04 -5.00862E-03 4.58379E-04 + 1.29859E+00 -5.92950E-04 2.34358E-05 -8.00038E-09 -5.05962E-03 + 4.60435E-04 -5.05962E-03 4.60435E-04 -5.05962E-03 4.60435E-04 + 1.29868E+00 -5.96763E-04 2.34395E-05 -8.11675E-09 -5.11157E-03 + 4.62520E-04 -5.11157E-03 4.62520E-04 -5.11134E-03 4.62520E-04 + 1.29882E+00 -6.00558E-04 2.34435E-05 -8.29105E-09 -5.16361E-03 + 4.64613E-04 -5.16361E-03 4.64613E-04 -5.16337E-03 4.64606E-04 + 1.29886E+00 -6.02483E-04 2.34516E-05 -8.61132E-09 -5.21596E-03 + 4.66705E-04 -5.21596E-03 4.66705E-04 -5.21596E-03 4.66705E-04 + 1.29892E+00 -6.06296E-04 2.34572E-05 -8.84406E-09 -5.26887E-03 + 4.68821E-04 -5.26887E-03 4.68821E-04 -5.26887E-03 4.68821E-04 + 1.29898E+00 -6.08203E-04 2.34582E-05 -8.87315E-09 -5.32201E-03 + 4.70936E-04 -5.32201E-03 4.70936E-04 -5.32178E-03 4.70936E-04 + 1.29911E+00 -6.12016E-04 2.34628E-05 -9.07679E-09 -5.37540E-03 + 4.73058E-04 -5.37540E-03 4.73058E-04 -5.37540E-03 4.73058E-04 + 1.29913E+00 -6.13904E-04 2.34677E-05 -9.25107E-09 -5.42957E-03 + 4.75204E-04 -5.42957E-03 4.75204E-04 -5.42933E-03 4.75204E-04 + 1.29923E+00 -6.17736E-04 2.34740E-05 -9.51318E-09 -5.48360E-03 + 4.77341E-04 -5.48360E-03 4.77341E-04 -5.48360E-03 4.77341E-04 + 1.29923E+00 -6.17736E-04 2.34758E-05 -9.57136E-09 -5.53841E-03 + 4.79501E-04 -5.53841E-03 4.79501E-04 -5.53841E-03 4.79501E-04 + 1.29935E+00 -6.23456E-04 2.34777E-05 -9.65864E-09 -5.59323E-03 + 4.81660E-04 -5.59323E-03 4.81660E-04 -5.59347E-03 4.81660E-04 + 1.29943E+00 -6.25343E-04 2.34826E-05 -9.83289E-09 -5.64882E-03 + 4.83843E-04 -5.64882E-03 4.83843E-04 -5.64882E-03 4.83843E-04 + 1.29947E+00 -6.27269E-04 2.34861E-05 -9.94956E-09 -5.70500E-03 + 4.86040E-04 -5.70500E-03 4.86040E-04 -5.70500E-03 4.86040E-04 + 1.29953E+00 -6.31082E-04 2.34879E-05 -1.00659E-08 -5.76053E-03 + 4.88207E-04 -5.76053E-03 4.88207E-04 -5.76053E-03 4.88207E-04 + 1.29966E+00 -6.32989E-04 2.34926E-05 -1.02114E-08 -5.81725E-03 + 4.90411E-04 -5.81725E-03 4.90411E-04 -5.81701E-03 4.90411E-04 + 1.29974E+00 -6.36782E-04 2.34947E-05 -1.03274E-08 -5.87498E-03 + 4.92660E-04 -5.87498E-03 4.92660E-04 -5.87498E-03 4.92660E-04 + 1.29984E+00 -6.40615E-04 2.35001E-05 -1.05023E-08 -5.93165E-03 + 4.94857E-04 -5.93165E-03 4.94857E-04 -5.93165E-03 4.94857E-04 + 1.29984E+00 -6.42522E-04 2.35001E-05 -1.05023E-08 -5.98956E-03 + 4.97092E-04 -5.98956E-03 4.97092E-04 -5.98956E-03 4.97092E-04 + 1.29990E+00 -6.44428E-04 2.35047E-05 -1.07060E-08 -6.04747E-03 + 4.99334E-04 -6.04747E-03 4.99334E-04 -6.04771E-03 4.99334E-04 + 1.30004E+00 -6.48222E-04 2.35068E-05 -1.07929E-08 -6.10639E-03 + 5.01605E-04 -6.10639E-03 5.01605E-04 -6.10663E-03 5.01605E-04 + 1.30008E+00 -6.50148E-04 2.35112E-05 -1.09387E-08 -6.16520E-03 + 5.03854E-04 -6.16520E-03 5.03854E-04 -6.16497E-03 5.03847E-04 + 1.30014E+00 -6.53961E-04 2.35112E-05 -1.09678E-08 -6.22479E-03 + 5.06141E-04 -6.22479E-03 5.06141E-04 -6.22479E-03 5.06141E-04 + 1.30027E+00 -6.57774E-04 2.35159E-05 -1.11133E-08 -6.28389E-03 + 5.08397E-04 -6.28389E-03 5.08397E-04 -6.28389E-03 5.08397E-04 + 1.30029E+00 -6.59661E-04 2.35189E-05 -1.12584E-08 -6.34447E-03 + 5.10705E-04 -6.34447E-03 5.10705E-04 -6.34447E-03 5.10705E-04 + 1.30045E+00 -6.65401E-04 2.35205E-05 -1.12878E-08 -6.40472E-03 + 5.13000E-04 -6.40472E-03 5.13000E-04 -6.40472E-03 5.13000E-04 + 1.30039E+00 -6.63494E-04 2.35215E-05 -1.13460E-08 -6.46645E-03 + 5.15338E-04 -6.46645E-03 5.15338E-04 -6.46645E-03 5.15338E-04 + 1.30057E+00 -6.69214E-04 2.35252E-05 -1.14915E-08 -6.52770E-03 + 5.17655E-04 -6.52770E-03 5.17655E-04 -6.52770E-03 5.17655E-04 + 1.30059E+00 -6.71100E-04 2.35273E-05 -1.15493E-08 -6.58922E-03 + 5.19977E-04 -6.58922E-03 5.19977E-04 -6.58922E-03 5.19977E-04 + 1.30069E+00 -6.74934E-04 2.35289E-05 -1.16369E-08 -6.65162E-03 + 5.22332E-04 -6.65162E-03 5.22332E-04 -6.65162E-03 5.22332E-04 + 1.30088E+00 -6.82560E-04 2.35336E-05 -1.18115E-08 -6.71383E-03 + 5.24663E-04 -6.71383E-03 5.24663E-04 -6.71383E-03 5.24663E-04 + 1.30081E+00 -6.78747E-04 2.35326E-05 -1.17533E-08 -6.77770E-03 + 5.27061E-04 -6.77770E-03 5.27061E-04 -6.77770E-03 5.27061E-04 + 1.30090E+00 -6.82539E-04 2.35356E-05 -1.18984E-08 -6.84160E-03 + 5.29450E-04 -6.84160E-03 5.29450E-04 -6.84160E-03 5.29450E-04 + 1.30100E+00 -6.86373E-04 2.35392E-05 -1.20151E-08 -6.90425E-03 + 5.31790E-04 -6.90425E-03 5.31790E-04 -6.90425E-03 5.31790E-04 + 1.30112E+00 -6.90186E-04 2.35410E-05 -1.20733E-08 -6.96931E-03 + 5.34211E-04 -6.96931E-03 5.34211E-04 -6.96931E-03 5.34211E-04 + 1.30124E+00 -6.94000E-04 2.35410E-05 -1.20733E-08 -7.03413E-03 + 5.36624E-04 -7.03413E-03 5.36624E-04 -7.03413E-03 5.36624E-04 + 1.30126E+00 -6.95885E-04 2.35450E-05 -1.22184E-08 -7.09946E-03 + 5.39043E-04 -7.09946E-03 5.39043E-04 -7.09946E-03 5.39043E-04 + 1.30142E+00 -7.03533E-04 2.35503E-05 -1.24224E-08 -7.16474E-03 + 5.41450E-04 -7.16474E-03 5.41450E-04 -7.16474E-03 5.41450E-04 + 1.30130E+00 -6.97813E-04 2.35364E-05 -1.19278E-08 -7.23194E-03 + 5.43937E-04 -7.23194E-03 5.43937E-04 -7.23194E-03 5.43937E-04 + 1.30161E+00 -7.07346E-04 2.35419E-05 -1.21024E-08 -7.29748E-03 + 5.46350E-04 -7.29748E-03 5.46350E-04 -7.29748E-03 5.46350E-04 + 1.30167E+00 -7.09252E-04 2.35755E-05 -1.33534E-08 -7.36493E-03 + 5.48830E-04 -7.36493E-03 5.48830E-04 -7.36493E-03 5.48830E-04 + 1.30175E+00 -7.14950E-04 2.35254E-05 -1.15202E-08 -7.43119E-03 + 5.51256E-04 -7.43119E-03 5.51256E-04 -7.43119E-03 5.51256E-04 + 1.30173E+00 -7.13065E-04 2.35699E-05 -1.31206E-08 -7.50125E-03 + 5.53813E-04 -7.50125E-03 5.53813E-04 -7.50125E-03 5.53813E-04 + 1.30191E+00 -7.18785E-04 2.35168E-05 -1.11714E-08 -7.56893E-03 + 5.56286E-04 -7.56893E-03 5.56286E-04 -7.56893E-03 5.56286E-04 + 1.30197E+00 -7.22598E-04 2.36229E-05 -1.50698E-08 -7.63709E-03 + 5.58766E-04 -7.63709E-03 5.58766E-04 -7.63709E-03 5.58766E-04 + 1.30206E+00 -7.24483E-04 2.35552E-05 -1.26257E-08 -7.70693E-03 + 5.61296E-04 -7.70693E-03 5.61296E-04 -7.70693E-03 5.61296E-04 + 1.30222E+00 -7.32131E-04 2.35513E-05 -1.24806E-08 -7.77580E-03 + 5.63793E-04 -7.77580E-03 5.63793E-04 -7.77580E-03 5.63793E-04 + 1.30228E+00 -7.32131E-04 2.35820E-05 -1.35861E-08 -7.84706E-03 + 5.66362E-04 -7.84706E-03 5.66362E-04 -7.84706E-03 5.66362E-04 + 1.30222E+00 -7.30225E-04 2.35755E-05 -1.33534E-08 -7.91784E-03 + 5.68924E-04 -7.91784E-03 5.68924E-04 -7.91784E-03 5.68924E-04 + 1.30242E+00 -7.37829E-04 2.35682E-05 -1.30911E-08 -7.98957E-03 + 5.71498E-04 -7.98957E-03 5.71498E-04 -7.98957E-03 5.71498E-04 + 1.30258E+00 -7.43571E-04 2.35755E-05 -1.33534E-08 -8.06060E-03 + 5.74048E-04 -8.06060E-03 5.74048E-04 -8.06060E-03 5.74048E-04 + 1.30264E+00 -7.45478E-04 2.35447E-05 -1.22479E-08 -8.13257E-03 + 5.76625E-04 -8.13257E-03 5.76625E-04 -8.13257E-03 5.76625E-04 + 1.30271E+00 -7.47384E-04 2.35699E-05 -1.31497E-08 -8.20502E-03 + 5.79217E-04 -8.20502E-03 5.79217E-04 -8.20502E-03 5.79217E-04 + 1.30279E+00 -7.51174E-04 2.35989E-05 -1.41675E-08 -8.27912E-03 + 5.81850E-04 -8.27912E-03 5.81850E-04 -8.27912E-03 5.81850E-04 + 1.30289E+00 -7.55011E-04 2.35699E-05 -1.31206E-08 -8.35183E-03 + 5.84445E-04 -8.35183E-03 5.84445E-04 -8.35183E-03 5.84445E-04 + 1.30301E+00 -7.58824E-04 2.36071E-05 -1.44589E-08 -8.42618E-03 + 5.87081E-04 -8.42618E-03 5.87081E-04 -8.42618E-03 5.87081E-04 + 1.30307E+00 -7.60730E-04 2.35755E-05 -1.33534E-08 -8.50149E-03 + 5.89748E-04 -8.50149E-03 5.89748E-04 -8.50149E-03 5.89748E-04 + 1.30322E+00 -7.66427E-04 2.36017E-05 -1.42548E-08 -8.57559E-03 + 5.92366E-04 -8.57559E-03 5.92366E-04 -8.57559E-03 5.92366E-04 + 1.30332E+00 -7.70263E-04 2.35885E-05 -1.38188E-08 -8.65164E-03 + 5.95050E-04 -8.65164E-03 5.95050E-04 -8.65164E-03 5.95050E-04 + 1.30332E+00 -7.70263E-04 2.35755E-05 -1.33534E-08 -8.72790E-03 + 5.97732E-04 -8.72790E-03 5.97732E-04 -8.72790E-03 5.97732E-04 + 1.30356E+00 -7.77890E-04 2.35885E-05 -1.37897E-08 -8.80440E-03 + 6.00413E-04 -8.80440E-03 6.00413E-04 -8.80440E-03 6.00413E-04 + 1.30358E+00 -7.79772E-04 2.36148E-05 -1.46912E-08 -8.88135E-03 + 6.03120E-04 -8.88135E-03 6.03120E-04 -8.88135E-03 6.03120E-04 + 1.30368E+00 -7.81703E-04 2.35959E-05 -1.40516E-08 -8.95836E-03 + 6.05805E-04 -8.95836E-03 6.05805E-04 -8.95836E-03 6.05805E-04 + 1.30387E+00 -7.87423E-04 2.35783E-05 -1.34406E-08 -9.03772E-03 + 6.08575E-04 -9.03772E-03 6.08575E-04 -9.03772E-03 6.08575E-04 + 1.30387E+00 -7.89329E-04 2.36053E-05 -1.43716E-08 -9.11566E-03 + 6.11286E-04 -9.11566E-03 6.11286E-04 -9.11566E-03 6.11286E-04 + 1.30401E+00 -7.93118E-04 2.36101E-05 -1.45457E-08 -9.19498E-03 + 6.14038E-04 -9.19498E-03 6.14038E-04 -9.19498E-03 6.14038E-04 + 1.30411E+00 -7.96956E-04 2.36146E-05 -1.47207E-08 -9.27462E-03 + 6.16797E-04 -9.27462E-03 6.16797E-04 -9.27462E-03 6.16797E-04 + 1.30423E+00 -8.00769E-04 2.35959E-05 -1.40807E-08 -9.35469E-03 + 6.19568E-04 -9.35469E-03 6.19568E-04 -9.35469E-03 6.19568E-04 + 1.30423E+00 -8.02675E-04 2.36062E-05 -1.44007E-08 -9.43525E-03 + 6.22353E-04 -9.43525E-03 6.22353E-04 -9.43525E-03 6.22353E-04 + 1.30448E+00 -8.08395E-04 2.36239E-05 -1.50116E-08 -9.51723E-03 + 6.25169E-04 -9.51723E-03 6.25169E-04 -9.51723E-03 6.25169E-04 + 1.30456E+00 -8.12184E-04 2.36120E-05 -1.46039E-08 -9.59845E-03 + 6.27965E-04 -9.59845E-03 6.27965E-04 -9.59845E-03 6.27965E-04 + 1.30460E+00 -8.14115E-04 2.36118E-05 -1.46043E-08 -9.68120E-03 + 6.30799E-04 -9.68120E-03 6.30799E-04 -9.68120E-03 6.30799E-04 + 1.30478E+00 -8.19835E-04 2.36201E-05 -1.48953E-08 -9.76366E-03 + 6.33629E-04 -9.76366E-03 6.33629E-04 -9.76366E-03 6.33629E-04 + 1.30472E+00 -8.19835E-04 2.36192E-05 -1.48371E-08 -9.84707E-03 + 6.36474E-04 -9.84707E-03 6.36474E-04 -9.84707E-03 6.36474E-04 + 1.30505E+00 -8.29342E-04 2.36222E-05 -1.49530E-08 -9.93114E-03 + 6.39329E-04 -9.93114E-03 6.39329E-04 -9.93114E-03 6.39329E-04 + 1.30502E+00 -8.29368E-04 2.36211E-05 -1.49243E-08 -1.00158E-02 + 6.42209E-04 -1.00158E-02 6.42209E-04 -1.00158E-02 6.42209E-04 + 1.30515E+00 -8.33181E-04 2.36229E-05 -1.50116E-08 -1.01006E-02 + 6.45084E-04 -1.01006E-02 6.45084E-04 -1.01006E-02 6.45084E-04 + 1.30527E+00 -8.36994E-04 2.36276E-05 -1.51571E-08 -1.01869E-02 + 6.48003E-04 -1.01869E-02 6.48003E-04 -1.01869E-02 6.48003E-04 + 1.30535E+00 -8.40782E-04 2.36287E-05 -1.51857E-08 -1.02729E-02 + 6.50903E-04 -1.02729E-02 6.50903E-04 -1.02729E-02 6.50903E-04 + 1.30551E+00 -8.44620E-04 2.36313E-05 -1.52735E-08 -1.03599E-02 + 6.53842E-04 -1.03599E-02 6.53842E-04 -1.03599E-02 6.53842E-04 + 1.30557E+00 -8.48434E-04 2.36332E-05 -1.53316E-08 -1.04462E-02 + 6.56747E-04 -1.04462E-02 6.56747E-04 -1.04462E-02 6.56747E-04 + 1.30570E+00 -8.52247E-04 2.36295E-05 -1.52153E-08 -1.05349E-02 + 6.59726E-04 -1.05349E-02 6.59726E-04 -1.05349E-02 6.59726E-04 + 1.30584E+00 -8.56034E-04 2.36436E-05 -1.56803E-08 -1.06237E-02 + 6.62684E-04 -1.06237E-02 6.62684E-04 -1.06237E-02 6.62684E-04 + 1.30606E+00 -8.61780E-04 2.36406E-05 -1.55644E-08 -1.07117E-02 + 6.65639E-04 -1.07117E-02 6.65639E-04 -1.07117E-02 6.65639E-04 + 1.30606E+00 -8.61780E-04 2.36406E-05 -1.55935E-08 -1.08018E-02 + 6.68648E-04 -1.08018E-02 6.68648E-04 -1.08018E-02 6.68648E-04 + 1.30624E+00 -8.69406E-04 2.36397E-05 -1.55644E-08 -1.08914E-02 + 6.71627E-04 -1.08914E-02 6.71627E-04 -1.08914E-02 6.71627E-04 + 1.30627E+00 -8.71286E-04 2.36492E-05 -1.58839E-08 -1.09831E-02 + 6.74675E-04 -1.09831E-02 6.74675E-04 -1.09831E-02 6.74675E-04 + 1.30643E+00 -8.75126E-04 2.36453E-05 -1.57389E-08 -1.10740E-02 + 6.77689E-04 -1.10740E-02 6.77689E-04 -1.10740E-02 6.77689E-04 + 1.30655E+00 -8.80846E-04 2.36518E-05 -1.59717E-08 -1.11655E-02 + 6.80698E-04 -1.11655E-02 6.80698E-04 -1.11655E-02 6.80698E-04 + 1.30667E+00 -8.82752E-04 2.36537E-05 -1.60299E-08 -1.12594E-02 + 6.83811E-04 -1.12594E-02 6.83811E-04 -1.12594E-02 6.83811E-04 + 1.30681E+00 -8.88445E-04 2.36520E-05 -1.59712E-08 -1.13525E-02 + 6.86859E-04 -1.13525E-02 6.86859E-04 -1.13525E-02 6.86859E-04 + 1.30692E+00 -8.90379E-04 2.36583E-05 -1.61753E-08 -1.14457E-02 + 6.89933E-04 -1.14457E-02 6.89933E-04 -1.14457E-02 6.89933E-04 + 1.30704E+00 -8.96098E-04 2.36592E-05 -1.61753E-08 -1.15401E-02 + 6.93031E-04 -1.15401E-02 6.93031E-04 -1.15401E-02 6.93031E-04 + 1.30716E+00 -8.99912E-04 2.36620E-05 -1.62917E-08 -1.16355E-02 + 6.96144E-04 -1.16355E-02 6.96144E-04 -1.16355E-02 6.96144E-04 + 1.30718E+00 -9.01791E-04 2.36622E-05 -1.62912E-08 -1.17309E-02 + 6.99266E-04 -1.17309E-02 6.99266E-04 -1.17309E-02 6.99266E-04 + 1.30746E+00 -9.09444E-04 2.36658E-05 -1.64081E-08 -1.18271E-02 + 7.02401E-04 -1.18271E-02 7.02401E-04 -1.18271E-02 7.02401E-04 + 1.30765E+00 -9.15164E-04 2.36695E-05 -1.65244E-08 -1.19224E-02 + 7.05514E-04 -1.19224E-02 7.05514E-04 -1.19224E-02 7.05514E-04 + 1.30753E+00 -9.11351E-04 2.36695E-05 -1.65535E-08 -1.20220E-02 + 7.08746E-04 -1.20220E-02 7.08746E-04 -1.20220E-02 7.08746E-04 + 1.30779E+00 -9.20856E-04 2.36743E-05 -1.66985E-08 -1.21189E-02 + 7.11882E-04 -1.21189E-02 7.11882E-04 -1.21189E-02 7.11882E-04 + 1.30783E+00 -9.22791E-04 2.36760E-05 -1.67281E-08 -1.22179E-02 + 7.15091E-04 -1.22179E-02 7.15091E-04 -1.22179E-02 7.15091E-04 + 1.30807E+00 -9.28510E-04 2.36760E-05 -1.67281E-08 -1.23180E-02 + 7.18309E-04 -1.23180E-02 7.18309E-04 -1.23180E-02 7.18309E-04 + 1.30814E+00 -9.32324E-04 2.36807E-05 -1.69026E-08 -1.24172E-02 + 7.21511E-04 -1.24172E-02 7.21511E-04 -1.24172E-02 7.21511E-04 + 1.30820E+00 -9.34230E-04 2.36816E-05 -1.69317E-08 -1.25187E-02 + 7.24758E-04 -1.25187E-02 7.24758E-04 -1.25187E-02 7.24758E-04 + 1.30852E+00 -9.43734E-04 2.36855E-05 -1.70476E-08 -1.26189E-02 + 7.27983E-04 -1.26189E-02 7.27983E-04 -1.26189E-02 7.27983E-04 + 1.30856E+00 -9.43763E-04 2.36872E-05 -1.71063E-08 -1.27213E-02 + 7.31253E-04 -1.27213E-02 7.31253E-04 -1.27213E-02 7.31253E-04 + 1.30875E+00 -9.49483E-04 2.36881E-05 -1.71354E-08 -1.28247E-02 + 7.34559E-04 -1.28247E-02 7.34559E-04 -1.28247E-02 7.34559E-04 + 1.30887E+00 -9.53296E-04 2.36928E-05 -1.72808E-08 -1.29272E-02 + 7.37821E-04 -1.29272E-02 7.37821E-04 -1.29272E-02 7.37821E-04 + 1.30889E+00 -9.57080E-04 2.36948E-05 -1.73385E-08 -1.30307E-02 + 7.41135E-04 -1.30307E-02 7.41135E-04 -1.30307E-02 7.41135E-04 + 1.30911E+00 -9.62829E-04 2.36965E-05 -1.73972E-08 -1.31359E-02 + 7.44465E-04 -1.31359E-02 7.44465E-04 -1.31359E-02 7.44465E-04 + 1.30923E+00 -9.66642E-04 2.36983E-05 -1.74554E-08 -1.32403E-02 + 7.47771E-04 -1.32403E-02 7.47771E-04 -1.32403E-02 7.47771E-04 + 1.30942E+00 -9.72362E-04 2.37039E-05 -1.76299E-08 -1.33466E-02 + 7.51138E-04 -1.33466E-02 7.51138E-04 -1.33466E-02 7.51138E-04 + 1.30938E+00 -9.72332E-04 2.37041E-05 -1.76294E-08 -1.34535E-02 + 7.54526E-04 -1.34535E-02 7.54526E-04 -1.34535E-02 7.54526E-04 + 1.30966E+00 -9.79988E-04 2.37049E-05 -1.76590E-08 -1.35602E-02 + 7.57870E-04 -1.35602E-02 7.57870E-04 -1.35602E-02 7.57870E-04 + 1.30978E+00 -9.83802E-04 2.37104E-05 -1.78336E-08 -1.36684E-02 + 7.61281E-04 -1.36684E-02 7.61281E-04 -1.36684E-02 7.61281E-04 + 1.30991E+00 -9.87615E-04 2.37104E-05 -1.78336E-08 -1.37770E-02 + 7.64692E-04 -1.37770E-02 7.64692E-04 -1.37770E-02 7.64692E-04 + 1.30999E+00 -9.91398E-04 2.37190E-05 -1.80949E-08 -1.38858E-02 + 7.68095E-04 -1.38858E-02 7.68095E-04 -1.38858E-02 7.68095E-04 + 1.31021E+00 -9.97148E-04 2.37160E-05 -1.80081E-08 -1.39963E-02 + 7.71559E-04 -1.39963E-02 7.71559E-04 -1.39963E-02 7.71559E-04 + 1.31037E+00 -1.00290E-03 2.37196E-05 -1.81250E-08 -1.41073E-02 + 7.75009E-04 -1.41073E-02 7.75009E-04 -1.41073E-02 7.75009E-04 + 1.31035E+00 -1.00284E-03 2.37209E-05 -1.81530E-08 -1.42194E-02 + 7.78506E-04 -1.42194E-02 7.78506E-04 -1.42194E-02 7.78506E-04 + 1.31066E+00 -1.01237E-03 2.37237E-05 -1.82694E-08 -1.43295E-02 + 7.81932E-04 -1.43295E-02 7.81932E-04 -1.43295E-02 7.81932E-04 + 1.31066E+00 -1.01237E-03 2.37237E-05 -1.82694E-08 -1.43295E-02 + 7.81932E-04 -1.43295E-02 7.81932E-04 -1.43295E-02 7.81932E-04 Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/GLAUBTAR.DAT =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/GLAUBTAR.DAT (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/GLAUBTAR.DAT (revision 1444) @@ -0,0 +1,24986 @@ + NUCLEUS 1 1 14 7 + 14.68000 0.15000 1.12000 2.55000 + 0.00000000E+00 0.47661079E-02 0.14279652E-01 0.28504828E-01 0.47387943E-01 + 0.70854742E-01 0.98801901E-01 0.13108342E+00 0.16749715E+00 0.20777522E+00 + 0.25157963E+00 0.29850104E+00 0.34805483E+00 0.39967058E+00 0.45268341E+00 + 0.50633953E+00 0.55981985E+00 0.61227920E+00 0.66289297E+00 0.71089862E+00 + 0.75562609E+00 0.79652311E+00 0.83318396E+00 0.86537985E+00 0.89307677E+00 + 0.91642799E+00 0.93573960E+00 0.95141997E+00 0.96392787E+00 0.97373010E+00 + 0.98127224E+00 0.98696136E+00 0.99115825E+00 0.99417644E+00 0.99628455E+00 + 0.99770934E+00 0.99863806E+00 0.99922036E+00 0.99957084E+00 0.99977307E+00 + 0.99988483E+00 0.99994395E+00 0.99997386E+00 0.99998832E+00 0.99999501E+00 + 0.99999796E+00 0.99999921E+00 0.99999971E+00 0.99999990E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.48968377E-02 0.14665592E-01 0.29266620E-01 0.48641209E-01 + 0.72704969E-01 0.10133906E+00 0.13437895E+00 0.17160245E+00 0.21271946E+00 + 0.25736328E+00 0.30508369E+00 0.35534241E+00 0.40751405E+00 0.46089452E+00 + 0.51471576E+00 0.56816398E+00 0.62040487E+00 0.67062143E+00 0.71806197E+00 + 0.76208550E+00 0.80219346E+00 0.83804609E+00 0.86946925E+00 0.89645571E+00 + 0.91915924E+00 0.93787540E+00 0.95300670E+00 0.96501751E+00 0.97438866E+00 + 0.98158045E+00 0.98700859E+00 0.99103332E+00 0.99395843E+00 0.99603613E+00 + 0.99747370E+00 0.99843944E+00 0.99906751E+00 0.99946193E+00 0.99970063E+00 + 0.99983959E+00 0.99991732E+00 0.99995905E+00 0.99998052E+00 0.99999111E+00 + 0.99999612E+00 0.99999838E+00 0.99999935E+00 0.99999975E+00 0.99999991E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.48756305E-02 0.14601392E-01 0.29130394E-01 0.48390688E-01 + 0.72278499E-01 0.10065107E+00 0.13332314E+00 0.17006805E+00 0.21061916E+00 + 0.25466435E+00 0.30182984E+00 0.35165644E+00 0.40357750E+00 0.45691021E+00 + 0.51086645E+00 0.56458151E+00 0.61715441E+00 0.66769733E+00 0.71539258E+00 + 0.75955051E+00 0.79965565E+00 0.83539089E+00 0.86663816E+00 0.89346150E+00 + 0.91607908E+00 0.93482758E+00 0.95012082E+00 0.96240696E+00 0.97213113E+00 + 0.97970961E+00 0.98551707E+00 0.98988389E+00 0.99309827E+00 0.99540909E+00 + 0.99702797E+00 0.99813085E+00 0.99886001E+00 0.99932690E+00 0.99961586E+00 + 0.99978842E+00 0.99988768E+00 0.99994260E+00 0.99997179E+00 0.99998669E+00 + 0.99999397E+00 0.99999738E+00 0.99999891E+00 0.99999957E+00 0.99999984E+00 + 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.48027599E-02 0.14390079E-01 0.28720130E-01 0.47723733E-01 + 0.71299633E-01 0.99310852E-01 0.13158352E+00 0.16790535E+00 0.20801885E+00 + 0.25160830E+00 0.29828447E+00 0.34757233E+00 0.39890425E+00 0.45161986E+00 + 0.50497441E+00 0.55815945E+00 0.61033711E+00 0.66068331E+00 0.70843224E+00 + 0.75291601E+00 0.79359778E+00 0.83009874E+00 0.86221662E+00 0.88993032E+00 + 0.91338685E+00 0.93287138E+00 0.94876639E+00 0.96150823E+00 0.97154877E+00 + 0.97932669E+00 0.98524859E+00 0.98967795E+00 0.99292971E+00 0.99526939E+00 + 0.99691566E+00 0.99804523E+00 0.99879861E+00 0.99928550E+00 0.99958955E+00 + 0.99977259E+00 0.99987864E+00 0.99993768E+00 0.99996924E+00 0.99998542E+00 + 0.99999337E+00 0.99999711E+00 0.99999879E+00 0.99999952E+00 0.99999982E+00 + 0.99999993E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.46278850E-02 0.13871163E-01 0.27699237E-01 0.46061343E-01 + 0.68883291E-01 0.96062511E-01 0.12746098E+00 0.16289610E+00 0.20213029E+00 + 0.24485997E+00 0.29070347E+00 0.33918981E+00 0.38975254E+00 0.44173413E+00 + 0.49440272E+00 0.54697937E+00 0.59867088E+00 0.64870362E+00 0.69635605E+00 + 0.74098987E+00 0.78207967E+00 0.81923890E+00 0.85223824E+00 0.88101136E+00 + 0.90564506E+00 0.92635525E+00 0.94345441E+00 0.95731734E+00 0.96835015E+00 + 0.97696467E+00 0.98355897E+00 0.98850347E+00 0.99213160E+00 0.99473436E+00 + 0.99655807E+00 0.99780492E+00 0.99863581E+00 0.99917485E+00 0.99951486E+00 + 0.99972310E+00 0.99984675E+00 0.99991786E+00 0.99995740E+00 0.99997865E+00 + 0.99998967E+00 0.99999518E+00 0.99999783E+00 0.99999906E+00 0.99999961E+00 + 0.99999985E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.44599974E-02 0.13373162E-01 0.26718086E-01 0.44455112E-01 + 0.66521617E-01 0.92826938E-01 0.12324696E+00 0.15761771E+00 0.19572760E+00 + 0.23730900E+00 0.28203015E+00 0.32948724E+00 0.37919571E+00 0.43058176E+00 + 0.48297806E+00 0.53562965E+00 0.58771568E+00 0.63838984E+00 0.68683591E+00 + 0.73232694E+00 0.77427439E+00 0.81225914E+00 0.84604237E+00 0.87555872E+00 + 0.90089600E+00 0.92226699E+00 0.93997814E+00 0.95439832E+00 0.96592985E+00 + 0.97498332E+00 0.98195761E+00 0.98722554E+00 0.99112447E+00 0.99395073E+00 + 0.99595680E+00 0.99735110E+00 0.99830006E+00 0.99893238E+00 0.99934464E+00 + 0.99960735E+00 0.99977073E+00 0.99986973E+00 0.99992807E+00 0.99996146E+00 + 0.99997999E+00 0.99998994E+00 0.99999511E+00 0.99999771E+00 0.99999896E+00 + 0.99999955E+00 0.99999981E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.43899146E-02 0.13157168E-01 0.26274344E-01 0.43697340E-01 + 0.65362358E-01 0.91181875E-01 0.12103945E+00 0.15478315E+00 0.19221710E+00 + 0.23309043E+00 0.27708401E+00 0.32379710E+00 0.37273770E+00 0.42332014E+00 + 0.47487278E+00 0.52665700E+00 0.57789696E+00 0.62781715E+00 0.67568274E+00 + 0.72083735E+00 0.76273456E+00 0.80096086E+00 0.83524951E+00 0.86548398E+00 + 0.89169050E+00 0.91402009E+00 0.93272342E+00 0.94812299E+00 0.96058650E+00 + 0.97050276E+00 0.97826054E+00 0.98423033E+00 0.98875027E+00 0.99211715E+00 + 0.99458292E+00 0.99635591E+00 0.99760507E+00 0.99846529E+00 0.99904281E+00 + 0.99941990E+00 0.99965885E+00 0.99980555E+00 0.99989268E+00 0.99994270E+00 + 0.99997043E+00 0.99998526E+00 0.99999291E+00 0.99999671E+00 0.99999853E+00 + 0.99999937E+00 0.99999974E+00 0.99999990E+00 0.99999996E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.42179489E-02 0.12642065E-01 0.25250355E-01 0.42008504E-01 + 0.62866806E-01 0.87755613E-01 0.11657946E+00 0.14921071E+00 0.18548313E+00 + 0.22518482E+00 0.26804900E+00 0.31374230E+00 0.36185102E+00 0.41186822E+00 + 0.46318694E+00 0.51510521E+00 0.56684669E+00 0.61759648E+00 0.66654765E+00 + 0.71295199E+00 0.75616802E+00 0.79569973E+00 0.83121942E+00 0.86257122E+00 + 0.88975778E+00 0.91291650E+00 0.93229209E+00 0.94820871E+00 0.96104309E+00 + 0.97119898E+00 0.97908365E+00 0.98508809E+00 0.98957174E+00 0.99285288E+00 + 0.99520419E+00 0.99685257E+00 0.99798177E+00 0.99873679E+00 0.99922896E+00 + 0.99954143E+00 0.99973447E+00 0.99985041E+00 0.99991806E+00 0.99995639E+00 + 0.99997746E+00 0.99998870E+00 0.99999450E+00 0.99999741E+00 0.99999882E+00 + 0.99999948E+00 0.99999978E+00 0.99999991E+00 0.99999996E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.40452289E-02 0.12130758E-01 0.24243139E-01 0.40359763E-01 + 0.60447040E-01 0.84456248E-01 0.11231721E+00 0.14393074E+00 0.17916034E+00 + 0.21782259E+00 0.25967611E+00 0.30440890E+00 0.35162484E+00 0.40083195E+00 + 0.45143774E+00 0.50275807E+00 0.55404152E+00 0.60450550E+00 0.65337687E+00 + 0.69993062E+00 0.74352429E+00 0.78362854E+00 0.81985402E+00 0.85197177E+00 + 0.87992192E+00 0.90380639E+00 0.92386509E+00 0.94043995E+00 0.95393372E+00 + 0.96477101E+00 0.97336698E+00 0.98010583E+00 0.98532896E+00 0.98933068E+00 + 0.99235911E+00 0.99462009E+00 0.99628243E+00 0.99748345E+00 0.99833414E+00 + 0.99892344E+00 0.99932179E+00 0.99958403E+00 0.99975188E+00 0.99985619E+00 + 0.99991907E+00 0.99995582E+00 0.99997661E+00 0.99998800E+00 0.99999404E+00 + 0.99999713E+00 0.99999867E+00 0.99999940E+00 0.99999974E+00 0.99999989E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.38669228E-02 0.11594421E-01 0.23170956E-01 0.38579121E-01 + 0.57793396E-01 0.80776390E-01 0.10747401E+00 0.13780972E+00 0.17167760E+00 + 0.20893328E+00 0.24938164E+00 0.29276162E+00 0.33873128E+00 0.38685780E+00 + 0.43661541E+00 0.48739052E+00 0.53849250E+00 0.58917091E+00 0.63864298E+00 + 0.68613355E+00 0.73092465E+00 0.77240569E+00 0.81011362E+00 0.84375590E+00 + 0.87321472E+00 0.89853538E+00 0.91990345E+00 0.93761482E+00 0.95204190E+00 + 0.96359929E+00 0.97271227E+00 0.97979113E+00 0.98521294E+00 0.98931076E+00 + 0.99236904E+00 0.99462372E+00 0.99626570E+00 0.99744621E+00 0.99828315E+00 + 0.99886729E+00 0.99926785E+00 0.99953712E+00 0.99971419E+00 0.99982787E+00 + 0.99989900E+00 0.99994233E+00 0.99996798E+00 0.99998272E+00 0.99999095E+00 + 0.99999540E+00 0.99999774E+00 0.99999892E+00 0.99999950E+00 0.99999978E+00 + 0.99999990E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.36587187E-02 0.10973495E-01 0.21937097E-01 0.36536712E-01 + 0.54752564E-01 0.76555408E-01 0.10190225E+00 0.13073050E+00 0.16295110E+00 + 0.19844114E+00 0.23703546E+00 0.27851715E+00 0.32260671E+00 0.36895070E+00 + 0.41711161E+00 0.46656147E+00 0.51668320E+00 0.56678332E+00 0.61611757E+00 + 0.66392738E+00 0.70948344E+00 0.75213216E+00 0.79133934E+00 0.82672393E+00 + 0.85807527E+00 0.88535121E+00 0.90866000E+00 0.92823171E+00 0.94438521E+00 + 0.95749515E+00 0.96796191E+00 0.97618609E+00 0.98254872E+00 0.98739718E+00 + 0.99103695E+00 0.99372834E+00 0.99568741E+00 0.99708966E+00 0.99807518E+00 + 0.99875411E+00 0.99921177E+00 0.99951313E+00 0.99970669E+00 0.99982780E+00 + 0.99990156E+00 0.99994524E+00 0.99997037E+00 0.99998442E+00 0.99999204E+00 + 0.99999606E+00 0.99999810E+00 0.99999912E+00 0.99999960E+00 0.99999983E+00 + 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.34517571E-02 0.10353978E-01 0.20702646E-01 0.34490396E-01 + 0.51705406E-01 0.72329575E-01 0.96335708E-01 0.12368339E+00 0.15431350E+00 + 0.18814146E+00 0.22504911E+00 0.26487500E+00 0.30740250E+00 0.35234531E+00 + 0.39933126E+00 0.44788791E+00 0.49743669E+00 0.54730202E+00 0.59673810E+00 + 0.64497034E+00 0.69124483E+00 0.73487812E+00 0.77530052E+00 0.81208782E+00 + 0.84497791E+00 0.87387125E+00 0.89881681E+00 0.91998767E+00 0.93765169E+00 + 0.95214180E+00 0.96382833E+00 0.97309467E+00 0.98031697E+00 0.98584862E+00 + 0.99000975E+00 0.99308166E+00 0.99530505E+00 0.99688095E+00 0.99797347E+00 + 0.99871344E+00 0.99920255E+00 0.99951776E+00 0.99971567E+00 0.99983665E+00 + 0.99990860E+00 0.99995022E+00 0.99997362E+00 0.99998641E+00 0.99999320E+00 + 0.99999669E+00 0.99999844E+00 0.99999929E+00 0.99999969E+00 0.99999987E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.33383141E-02 0.10013944E-01 0.20024279E-01 0.33364414E-01 + 0.50026134E-01 0.69996402E-01 0.93255146E-01 0.11977201E+00 0.14950165E+00 + 0.18237722E+00 0.21830201E+00 0.25713854E+00 0.29869463E+00 0.34270723E+00 + 0.38882786E+00 0.43661385E+00 0.48552869E+00 0.53495189E+00 0.58419737E+00 + 0.63254004E+00 0.67925119E+00 0.72364074E+00 0.76510038E+00 0.80313953E+00 + 0.83740921E+00 0.86771297E+00 0.89400684E+00 0.91638941E+00 0.93508231E+00 + 0.95040190E+00 0.96272570E+00 0.97245890E+00 0.98000575E+00 0.98574866E+00 + 0.99003495E+00 0.99317008E+00 0.99541521E+00 0.99698790E+00 0.99806456E+00 + 0.99878438E+00 0.99925407E+00 0.99955304E+00 0.99973859E+00 0.99985083E+00 + 0.99991699E+00 0.99995497E+00 0.99997620E+00 0.99998775E+00 0.99999387E+00 + 0.99999701E+00 0.99999859E+00 0.99999935E+00 0.99999971E+00 0.99999988E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.32467875E-02 0.97389145E-02 0.19474202E-01 0.32449752E-01 + 0.48661284E-01 0.68101632E-01 0.90758336E-01 0.11661044E+00 0.14562446E+00 + 0.17774876E+00 0.21290491E+00 0.25097609E+00 0.29179423E+00 0.33512715E+00 + 0.38066585E+00 0.42801238E+00 0.47667148E+00 0.52605037E+00 0.57547021E+00 + 0.62419047E+00 0.67144607E+00 0.71649484E+00 0.75866899E+00 0.79742254E+00 + 0.83236649E+00 0.86328595E+00 0.89013695E+00 0.91302640E+00 0.93218239E+00 + 0.94792168E+00 0.96061844E+00 0.97067564E+00 0.97849974E+00 0.98447970E+00 + 0.98897139E+00 0.99228782E+00 0.99469504E+00 0.99641249E+00 0.99761647E+00 + 0.99844529E+00 0.99900518E+00 0.99937602E+00 0.99961664E+00 0.99976946E+00 + 0.99986439E+00 0.99992202E+00 0.99995620E+00 0.99997598E+00 0.99998714E+00 + 0.99999329E+00 0.99999659E+00 0.99999831E+00 0.99999919E+00 0.99999962E+00 + 0.99999983E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.31035997E-02 0.93103679E-02 0.18619449E-01 0.31028930E-01 + 0.46534809E-01 0.65129665E-01 0.86801278E-01 0.11153108E+00 0.13929191E+00 + 0.17004408E+00 0.20372905E+00 0.24026059E+00 0.27951408E+00 0.32131301E+00 + 0.36541210E+00 0.41147938E+00 0.45908219E+00 0.50768276E+00 0.55664727E+00 + 0.60526838E+00 0.65279964E+00 0.69849886E+00 0.74167517E+00 0.78173307E+00 + 0.81820780E+00 0.85078941E+00 0.87933381E+00 0.90385989E+00 0.92453218E+00 + 0.94163184E+00 0.95552061E+00 0.96660383E+00 0.97529762E+00 0.98200334E+00 + 0.98709020E+00 0.99088528E+00 0.99366935E+00 0.99567699E+00 0.99709941E+00 + 0.99808901E+00 0.99876460E+00 0.99921684E+00 0.99951349E+00 0.99970401E+00 + 0.99982375E+00 0.99989734E+00 0.99994154E+00 0.99996747E+00 0.99998233E+00 + 0.99999063E+00 0.99999516E+00 0.99999756E+00 0.99999880E+00 0.99999943E+00 + 0.99999974E+00 0.99999988E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.30476499E-02 0.91423674E-02 0.18282968E-01 0.30467339E-01 + 0.45691954E-01 0.63951481E-01 0.85238229E-01 0.10954063E+00 0.13683991E+00 + 0.16710438E+00 0.20028133E+00 0.23628740E+00 0.27499836E+00 0.31623818E+00 + 0.35976585E+00 0.40526074E+00 0.45230969E+00 0.50040116E+00 0.54893076E+00 + 0.59721992E+00 0.64454617E+00 0.69018228E+00 0.73343997E+00 0.77371429E+00 + 0.81052342E+00 0.84353810E+00 0.87259591E+00 0.89769879E+00 0.91899452E+00 + 0.93674626E+00 0.95129591E+00 0.96302777E+00 0.97233762E+00 0.97960938E+00 + 0.98519954E+00 0.98942789E+00 0.99257329E+00 0.99487296E+00 0.99652422E+00 + 0.99768769E+00 0.99849147E+00 0.99903547E+00 0.99939591E+00 0.99962958E+00 + 0.99977771E+00 0.99986951E+00 0.99992510E+00 0.99995798E+00 0.99997696E+00 + 0.99998767E+00 0.99999356E+00 0.99999672E+00 0.99999837E+00 0.99999921E+00 + 0.99999963E+00 0.99999983E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.29664697E-02 0.88991927E-02 0.17797774E-01 0.29661479E-01 + 0.44488744E-01 0.62276400E-01 0.83018521E-01 0.10670455E+00 0.13331633E+00 + 0.16282381E+00 0.19517924E+00 0.23030952E+00 0.26810686E+00 0.30841798E+00 + 0.35103227E+00 0.39566960E+00 0.44196845E+00 0.48947524E+00 0.53763811E+00 + 0.58581207E+00 0.63328225E+00 0.67930629E+00 0.72316822E+00 0.76423204E+00 + 0.80198410E+00 0.83605905E+00 0.86624914E+00 0.89250023E+00 0.91489803E+00 + 0.93364745E+00 0.94904703E+00 0.96145972E+00 0.97128264E+00 0.97891869E+00 + 0.98475317E+00 0.98913707E+00 0.99237745E+00 0.99473397E+00 0.99641993E+00 + 0.99760621E+00 0.99842673E+00 0.99898428E+00 0.99935624E+00 0.99959968E+00 + 0.99975590E+00 0.99985413E+00 0.99991462E+00 0.99995108E+00 0.99997257E+00 + 0.99998496E+00 0.99999194E+00 0.99999578E+00 0.99999785E+00 0.99999893E+00 + 0.99999948E+00 0.99999975E+00 0.99999989E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.28982825E-02 0.86944046E-02 0.17387300E-01 0.28975015E-01 + 0.43454401E-01 0.60820670E-01 0.81066759E-01 0.10418244E+00 0.13015276E+00 + 0.15895488E+00 0.19055206E+00 0.22488461E+00 0.26185898E+00 0.30133617E+00 + 0.34311830E+00 0.38693321E+00 0.43242148E+00 0.47913247E+00 0.52653100E+00 + 0.57401156E+00 0.62091816E+00 0.66657154E+00 0.71030564E+00 0.75151052E+00 + 0.78967294E+00 0.82440609E+00 0.85546442E+00 0.88274500E+00 0.90627874E+00 + 0.92621402E+00 0.94279494E+00 0.95633560E+00 0.96719305E+00 0.97574157E+00 + 0.98235059E+00 0.98736779E+00 0.99110758E+00 0.99384456E+00 0.99581112E+00 + 0.99719824E+00 0.99815863E+00 0.99881120E+00 0.99924631E+00 0.99953089E+00 + 0.99971345E+00 0.99982828E+00 0.99989907E+00 0.99994184E+00 0.99996716E+00 + 0.99998183E+00 0.99999016E+00 0.99999478E+00 0.99999730E+00 0.99999863E+00 + 0.99999932E+00 0.99999968E+00 0.99999985E+00 0.99999993E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.27812875E-02 0.83436450E-02 0.16686589E-01 0.27809218E-01 + 0.41710015E-01 0.58386482E-01 0.77834333E-01 0.10004610E+00 0.12500938E+00 + 0.15270483E+00 0.18310349E+00 0.21616158E+00 0.25181148E+00 0.28994937E+00 + 0.33042172E+00 0.37301235E+00 0.41742982E+00 0.46329550E+00 0.51013619E+00 + 0.55738663E+00 0.60440564E+00 0.65050479E+00 0.69498525E+00 0.73717837E+00 + 0.77648814E+00 0.81243332E+00 0.84468302E+00 0.87307667E+00 0.89762258E+00 + 0.91847612E+00 0.93590451E+00 0.95024704E+00 0.96187809E+00 0.97117736E+00 + 0.97850865E+00 0.98420668E+00 0.98857038E+00 0.99186066E+00 0.99430102E+00 + 0.99607964E+00 0.99735225E+00 0.99824537E+00 0.99885968E+00 0.99927356E+00 + 0.99954654E+00 0.99972273E+00 0.99983399E+00 0.99990271E+00 0.99994420E+00 + 0.99996869E+00 0.99998283E+00 0.99999079E+00 0.99999518E+00 0.99999753E+00 + 0.99999877E+00 0.99999940E+00 0.99999972E+00 0.99999987E+00 0.99999994E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.27090805E-02 0.81269493E-02 0.16252953E-01 0.27085893E-01 + 0.40623948E-01 0.56864467E-01 0.75803367E-01 0.97434098E-01 0.12174607E+00 + 0.14872222E+00 0.17833533E+00 0.21054302E+00 0.24528120E+00 0.28245564E+00 + 0.32193046E+00 0.36351354E+00 0.40694129E+00 0.45186774E+00 0.49786145E+00 + 0.54440971E+00 0.59092878E+00 0.63678199E+00 0.68130927E+00 0.72386698E+00 + 0.76387083E+00 0.80083261E+00 0.83438557E+00 0.86429774E+00 0.89047513E+00 + 0.91295617E+00 0.93189791E+00 0.94755456E+00 0.96025077E+00 0.97035277E+00 + 0.97824110E+00 0.98428753E+00 0.98883770E+00 0.99219997E+00 0.99463969E+00 + 0.99637811E+00 0.99759439E+00 0.99842985E+00 0.99899316E+00 0.99936590E+00 + 0.99960789E+00 0.99976200E+00 0.99985824E+00 0.99991718E+00 0.99995255E+00 + 0.99997335E+00 0.99998534E+00 0.99999210E+00 0.99999584E+00 0.99999785E+00 + 0.99999892E+00 0.99999947E+00 0.99999975E+00 0.99999988E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.26831854E-02 0.80495201E-02 0.16098770E-01 0.26830417E-01 + 0.40243439E-01 0.56335853E-01 0.75104034E-01 0.96542042E-01 0.12064090E+00 + 0.14738712E+00 0.17675968E+00 0.20872457E+00 0.24322701E+00 0.28018115E+00 + 0.31945823E+00 0.36087417E+00 0.40417761E+00 0.44903911E+00 0.49504214E+00 + 0.54167947E+00 0.58835898E+00 0.63442184E+00 0.67917426E+00 0.72193197E+00 + 0.76207239E+00 0.79908359E+00 0.83259855E+00 0.86240888E+00 0.88845979E+00 + 0.91083217E+00 0.92971725E+00 0.94538840E+00 0.95817319E+00 0.96842791E+00 + 0.97651552E+00 0.98278778E+00 0.98757170E+00 0.99116046E+00 0.99380850E+00 + 0.99573036E+00 0.99710211E+00 0.99806483E+00 0.99872900E+00 0.99917926E+00 + 0.99947912E+00 0.99967521E+00 0.99980109E+00 0.99988040E+00 0.99992942E+00 + 0.99995914E+00 0.99997680E+00 0.99998709E+00 0.99999296E+00 0.99999624E+00 + 0.99999804E+00 0.99999900E+00 0.99999950E+00 0.99999976E+00 0.99999989E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.26163319E-02 0.78488241E-02 0.15697188E-01 0.26160960E-01 + 0.39239376E-01 0.54931152E-01 0.73234154E-01 0.94144917E-01 0.11765788E+00 + 0.14376421E+00 0.17244990E+00 0.20369206E+00 0.23745208E+00 0.27366562E+00 + 0.31223021E+00 0.35299116E+00 0.39572646E+00 0.44013363E+00 0.48582271E+00 + 0.53231811E+00 0.57906686E+00 0.62545093E+00 0.67080540E+00 0.71444685E+00 + 0.75571340E+00 0.79401268E+00 0.82886977E+00 0.85996481E+00 0.88715140E+00 + 0.91045245E+00 0.93003687E+00 0.94618515E+00 0.95925176E+00 0.96963002E+00 + 0.97772255E+00 0.98391834E+00 0.98857639E+00 0.99201554E+00 0.99450941E+00 + 0.99628565E+00 0.99752836E+00 0.99838240E+00 0.99895894E+00 0.99934125E+00 + 0.99959023E+00 0.99974948E+00 0.99984951E+00 0.99991119E+00 0.99994852E+00 + 0.99997070E+00 0.99998364E+00 0.99999103E+00 0.99999518E+00 0.99999747E+00 + 0.99999869E+00 0.99999934E+00 0.99999968E+00 0.99999985E+00 0.99999993E+00 + 0.99999997E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.25624627E-02 0.76873533E-02 0.15374602E-01 0.25624064E-01 + 0.38435328E-01 0.53807351E-01 0.71738050E-01 0.92223817E-01 0.11525865E+00 + 0.14083249E+00 0.16892890E+00 0.19952199E+00 0.23257174E+00 0.26801594E+00 + 0.30575831E+00 0.34565532E+00 0.38750420E+00 0.43103247E+00 0.47588715E+00 + 0.52162487E+00 0.56770853E+00 0.61351801E+00 0.65837938E+00 0.70160969E+00 + 0.74256835E+00 0.78070456E+00 0.81559321E+00 0.84695536E+00 0.87466272E+00 + 0.89872752E+00 0.91928179E+00 0.93655074E+00 0.95082470E+00 0.96243279E+00 + 0.97172025E+00 0.97902990E+00 0.98468807E+00 0.98899459E+00 0.99221660E+00 + 0.99458543E+00 0.99629627E+00 0.99750967E+00 0.99835455E+00 0.99893191E+00 + 0.99931906E+00 0.99957373E+00 0.99973804E+00 0.99984200E+00 0.99990650E+00 + 0.99994573E+00 0.99996911E+00 0.99998277E+00 0.99999058E+00 0.99999496E+00 + 0.99999736E+00 0.99999865E+00 0.99999933E+00 0.99999967E+00 0.99999985E+00 + 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.25100398E-02 0.75299639E-02 0.15059483E-01 0.25098179E-01 + 0.37645527E-01 0.52700869E-01 0.70263192E-01 0.90330531E-01 0.11289909E+00 + 0.13796225E+00 0.16550892E+00 0.19551992E+00 0.22796138E+00 0.26277549E+00 + 0.29987078E+00 0.33911387E+00 0.38032117E+00 0.42324778E+00 0.46757339E+00 + 0.51289002E+00 0.55869982E+00 0.60442743E+00 0.64944450E+00 0.69310079E+00 + 0.73475880E+00 0.77383165E+00 0.80982253E+00 0.84235976E+00 0.87121989E+00 + 0.89633391E+00 0.91777679E+00 0.93574460E+00 0.95052460E+00 0.96246356E+00 + 0.97193760E+00 0.97932612E+00 0.98499124E+00 0.98926334E+00 0.99243262E+00 + 0.99474586E+00 0.99640707E+00 0.99758069E+00 0.99839626E+00 0.99895364E+00 + 0.99932821E+00 0.99957566E+00 0.99973636E+00 0.99983892E+00 0.99990323E+00 + 0.99994286E+00 0.99996685E+00 0.99998111E+00 0.99998943E+00 0.99999419E+00 + 0.99999687E+00 0.99999835E+00 0.99999915E+00 0.99999957E+00 0.99999979E+00 + 0.99999990E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.58188445E-02 0.17447947E-01 0.34834384E-01 0.57887975E-01 + 0.86485717E-01 0.12045723E+00 0.15955357E+00 0.20341399E+00 0.25153982E+00 + 0.30327608E+00 0.35781213E+00 0.41422100E+00 0.47152394E+00 0.52874602E+00 + 0.58495019E+00 0.63925245E+00 0.69083439E+00 0.73897202E+00 0.78307395E+00 + 0.82270936E+00 0.85762419E+00 0.88775075E+00 0.91320211E+00 0.93424515E+00 + 0.95126073E+00 0.96470224E+00 0.97505860E+00 0.98282515E+00 0.98848307E+00 + 0.99248283E+00 0.99522756E+00 0.99705802E+00 0.99824497E+00 0.99899188E+00 + 0.99944570E+00 0.99970998E+00 0.99985636E+00 0.99993294E+00 0.99997059E+00 + 0.99998791E+00 0.99999536E+00 0.99999834E+00 0.99999945E+00 0.99999983E+00 + 0.99999995E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.57111263E-02 0.17110921E-01 0.34140034E-01 0.56695258E-01 + 0.84619984E-01 0.11769648E+00 0.15563932E+00 0.19808417E+00 0.24457249E+00 + 0.29454340E+00 0.34733569E+00 0.40218878E+00 0.45824555E+00 0.51457597E+00 + 0.57022472E+00 0.62426525E+00 0.67584613E+00 0.72422610E+00 0.76879657E+00 + 0.80909817E+00 0.84484280E+00 0.87593451E+00 0.90246623E+00 0.92468310E+00 + 0.94293088E+00 0.95761555E+00 0.96917954E+00 0.97808242E+00 0.98477812E+00 + 0.98969263E+00 0.99320824E+00 0.99565522E+00 0.99730923E+00 0.99839227E+00 + 0.99907693E+00 0.99949293E+00 0.99973460E+00 0.99986814E+00 0.99993802E+00 + 0.99997250E+00 0.99998852E+00 0.99999549E+00 0.99999834E+00 0.99999943E+00 + 0.99999982E+00 0.99999995E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.55705675E-02 0.16668491E-01 0.33212351E-01 0.55080383E-01 + 0.82110609E-01 0.11410308E+00 0.15081900E+00 0.19197147E+00 0.23720518E+00 + 0.28606516E+00 0.33796399E+00 0.39216897E+00 0.44782356E+00 0.50399234E+00 + 0.55970858E+00 0.61401580E+00 0.66600871E+00 0.71488088E+00 0.75997549E+00 + 0.80082422E+00 0.83716034E+00 0.86890588E+00 0.89614497E+00 0.91909397E+00 + 0.93807052E+00 0.95346117E+00 0.96569052E+00 0.97519676E+00 0.98241504E+00 + 0.98776500E+00 0.99163785E+00 0.99438211E+00 0.99629163E+00 0.99760003E+00 + 0.99848338E+00 0.99906933E+00 0.99944880E+00 0.99968679E+00 0.99983011E+00 + 0.99991240E+00 0.99995719E+00 0.99998022E+00 0.99999138E+00 0.99999646E+00 + 0.99999863E+00 0.99999950E+00 0.99999983E+00 0.99999995E+00 0.99999998E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.56328166E-02 0.16860450E-01 0.33608529E-01 0.55765930E-01 + 0.83180989E-01 0.11565448E+00 0.15293004E+00 0.19468100E+00 0.24049388E+00 + 0.28985229E+00 0.34212500E+00 0.39656226E+00 0.45230451E+00 0.50840796E+00 + 0.56388825E+00 0.61777750E+00 0.66918481E+00 0.71734996E+00 0.76168198E+00 + 0.80177675E+00 0.83741271E+00 0.86853326E+00 0.89522634E+00 0.91770456E+00 + 0.93628311E+00 0.95135393E+00 0.96335682E+00 0.97275004E+00 0.97998275E+00 + 0.98547202E+00 0.98958658E+00 0.99263816E+00 0.99488001E+00 0.99651080E+00 + 0.99768202E+00 0.99850771E+00 0.99907452E+00 0.99945010E+00 0.99968836E+00 + 0.99983214E+00 0.99991430E+00 0.99995860E+00 0.99998111E+00 0.99999187E+00 + 0.99999670E+00 0.99999874E+00 0.99999955E+00 0.99999985E+00 0.99999995E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.54724483E-02 0.16386628E-01 0.32684048E-01 0.54266625E-01 + 0.80986228E-01 0.11263966E+00 0.14896648E+00 0.18964599E+00 0.23429282E+00 + 0.28244992E+00 0.33357725E+00 0.38703869E+00 0.44209625E+00 0.49791918E+00 + 0.55360564E+00 0.60821237E+00 0.66079738E+00 0.71048008E+00 0.75650777E+00 + 0.79830843E+00 0.83551653E+00 0.86797207E+00 0.89570365E+00 0.91890755E+00 + 0.93792391E+00 0.95320308E+00 0.96525907E+00 0.97461826E+00 0.98177605E+00 + 0.98716979E+00 0.99116887E+00 0.99407760E+00 0.99614451E+00 0.99757247E+00 + 0.99852688E+00 0.99914113E+00 0.99952021E+00 0.99974378E+00 0.99986945E+00 + 0.99993663E+00 0.99997074E+00 0.99998717E+00 0.99999466E+00 0.99999789E+00 + 0.99999921E+00 0.99999972E+00 0.99999991E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.52627809E-02 0.15769411E-01 0.31469230E-01 0.52279475E-01 + 0.78081682E-01 0.10871499E+00 0.14396897E+00 0.18357728E+00 0.22720866E+00 + 0.27445024E+00 0.32478418E+00 0.37756670E+00 0.43202188E+00 0.48726171E+00 + 0.54233471E+00 0.59629068E+00 0.64824006E+00 0.69739613E+00 0.74310275E+00 + 0.78485519E+00 0.82231649E+00 0.85532508E+00 0.88388890E+00 0.90816674E+00 + 0.92844050E+00 0.94508081E+00 0.95850921E+00 0.96916269E+00 0.97746689E+00 + 0.98382007E+00 0.98858558E+00 0.99208832E+00 0.99461206E+00 0.99639670E+00 + 0.99763710E+00 0.99848493E+00 0.99905392E+00 0.99942737E+00 0.99966566E+00 + 0.99981249E+00 0.99989936E+00 0.99994844E+00 0.99997485E+00 0.99998833E+00 + 0.99999486E+00 0.99999786E+00 0.99999915E+00 0.99999968E+00 0.99999989E+00 + 0.99999996E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.52557615E-02 0.15740106E-01 0.31408382E-01 0.52191959E-01 + 0.77984640E-01 0.10862625E+00 0.14389013E+00 0.18347824E+00 0.22702106E+00 + 0.27407496E+00 0.32411242E+00 0.37651076E+00 0.43055178E+00 0.48543752E+00 + 0.54031577E+00 0.59430875E+00 0.64654824E+00 0.69622099E+00 0.74261693E+00 + 0.78516669E+00 0.82346193E+00 0.85726329E+00 0.88650242E+00 0.91127736E+00 + 0.93183578E+00 0.94854388E+00 0.96184537E+00 0.97221938E+00 0.98014452E+00 + 0.98607268E+00 0.99041259E+00 0.99352132E+00 0.99570094E+00 0.99719844E+00 + 0.99820824E+00 0.99887732E+00 0.99931284E+00 0.99959069E+00 0.99976370E+00 + 0.99986831E+00 0.99992939E+00 0.99996369E+00 0.99998213E+00 0.99999160E+00 + 0.99999624E+00 0.99999839E+00 0.99999935E+00 0.99999975E+00 0.99999991E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.49822583E-02 0.14939927E-01 0.29840652E-01 0.49615081E-01 + 0.74147599E-01 0.10327297E+00 0.13677766E+00 0.17440321E+00 0.21584806E+00 + 0.26076214E+00 0.30873073E+00 0.35925294E+00 0.41172576E+00 0.46544283E+00 + 0.51961153E+00 0.57338460E+00 0.62589863E+00 0.67631434E+00 0.72385881E+00 + 0.76787048E+00 0.80784156E+00 0.84344727E+00 0.87455297E+00 0.90119934E+00 + 0.92357353E+00 0.94197551E+00 0.95678595E+00 0.96843829E+00 0.97739353E+00 + 0.98411548E+00 0.98904625E+00 0.99258493E+00 0.99507317E+00 0.99678946E+00 + 0.99795134E+00 0.99872285E+00 0.99922439E+00 0.99954260E+00 0.99973889E+00 + 0.99985615E+00 0.99992371E+00 0.99996114E+00 0.99998103E+00 0.99999113E+00 + 0.99999604E+00 0.99999831E+00 0.99999931E+00 0.99999974E+00 0.99999990E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.48661804E-02 0.14578701E-01 0.29096411E-01 0.48357683E-01 + 0.72280276E-01 0.10075750E+00 0.13364858E+00 0.17076385E+00 0.21184922E+00 + 0.25657422E+00 0.30452392E+00 0.35519116E+00 0.40796777E+00 0.46213865E+00 + 0.51688645E+00 0.57131366E+00 0.62448463E+00 0.67548239E+00 0.72346854E+00 + 0.76773513E+00 0.80774459E+00 0.84315897E+00 0.87385625E+00 0.89992722E+00 + 0.92164824E+00 0.93943242E+00 0.95376987E+00 0.96517083E+00 0.97412248E+00 + 0.98106395E+00 0.98637677E+00 0.99038511E+00 0.99336039E+00 0.99552731E+00 + 0.99707038E+00 0.99814032E+00 0.99885946E+00 0.99932602E+00 0.99961712E+00 + 0.99979127E+00 0.99989096E+00 0.99994548E+00 0.99997393E+00 0.99998809E+00 + 0.99999481E+00 0.99999784E+00 0.99999915E+00 0.99999968E+00 0.99999989E+00 + 0.99999996E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.47506851E-02 0.14244512E-01 0.28456518E-01 0.47339636E-01 + 0.70819885E-01 0.98791097E-01 0.13110761E+00 0.16757394E+00 0.20793290E+00 + 0.25185478E+00 0.29892840E+00 0.34865254E+00 0.40042921E+00 0.45356490E+00 + 0.50728649E+00 0.56077100E+00 0.61318240E+00 0.66371063E+00 0.71161119E+00 + 0.75624202E+00 0.79709052E+00 0.83378784E+00 0.86611561E+00 0.89401116E+00 + 0.91757009E+00 0.93703714E+00 0.95277873E+00 0.96524045E+00 0.97490080E+00 + 0.98223269E+00 0.98767758E+00 0.99163115E+00 0.99443640E+00 0.99638107E+00 + 0.99769828E+00 0.99857004E+00 0.99913356E+00 0.99948894E+00 0.99970719E+00 + 0.99983740E+00 0.99991268E+00 0.99995474E+00 0.99997740E+00 0.99998914E+00 + 0.99999499E+00 0.99999779E+00 0.99999906E+00 0.99999962E+00 0.99999985E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.44352345E-02 0.13295481E-01 0.26558140E-01 0.44184523E-01 + 0.66118191E-01 0.92284867E-01 0.12258912E+00 0.15690348E+00 0.19505056E+00 + 0.23678236E+00 0.28176245E+00 0.32955709E+00 0.37963847E+00 0.43139611E+00 + 0.48414765E+00 0.53714654E+00 0.58959550E+00 0.64067558E+00 0.68959000E+00 + 0.73561151E+00 0.77812286E+00 0.81664745E+00 0.85087258E+00 0.88066525E+00 + 0.90607451E+00 0.92731387E+00 0.94472408E+00 0.95872530E+00 0.96977104E+00 + 0.97831290E+00 0.98477866E+00 0.98956065E+00 0.99301014E+00 0.99543372E+00 + 0.99709091E+00 0.99819338E+00 0.99890694E+00 0.99935621E+00 0.99963127E+00 + 0.99979488E+00 0.99988933E+00 0.99994217E+00 0.99997077E+00 0.99998574E+00 + 0.99999329E+00 0.99999696E+00 0.99999868E+00 0.99999945E+00 0.99999978E+00 + 0.99999992E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.43090608E-02 0.12917204E-01 0.25807816E-01 0.42956061E-01 + 0.64326391E-01 0.89868045E-01 0.11950593E+00 0.15312647E+00 0.19056257E+00 + 0.23158216E+00 0.27588129E+00 0.32307939E+00 0.37271203E+00 0.42421797E+00 + 0.47692775E+00 0.53006870E+00 0.58279421E+00 0.63423304E+00 0.68354666E+00 + 0.72998275E+00 0.77291856E+00 0.81189001E+00 0.84660318E+00 0.87692929E+00 + 0.90289190E+00 0.92465350E+00 0.94249978E+00 0.95681626E+00 0.96805563E+00 + 0.97670013E+00 0.98322527E+00 0.98807031E+00 0.99161841E+00 0.99418717E+00 + 0.99602830E+00 0.99733426E+00 0.99824876E+00 0.99887826E+00 0.99930195E+00 + 0.99957932E+00 0.99975509E+00 0.99986254E+00 0.99992573E+00 0.99996141E+00 + 0.99998074E+00 0.99999078E+00 0.99999576E+00 0.99999814E+00 0.99999921E+00 + 0.99999968E+00 0.99999988E+00 0.99999996E+00 0.99999998E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.41515393E-02 0.12446246E-01 0.24866506E-01 0.41385256E-01 + 0.61964535E-01 0.86551532E-01 0.11507237E+00 0.14742478E+00 0.18346977E+00 + 0.22302079E+00 0.26583091E+00 0.31158040E+00 0.35986645E+00 0.41019362E+00 + 0.46196462E+00 0.51447829E+00 0.56694502E+00 0.61852156E+00 0.66835822E+00 + 0.71565051E+00 0.75969109E+00 0.79991646E+00 0.83594016E+00 0.86756650E+00 + 0.89478398E+00 0.91774304E+00 0.93672447E+00 0.95210459E+00 0.96432050E+00 + 0.97383657E+00 0.98111305E+00 0.98657976E+00 0.99061798E+00 0.99355191E+00 + 0.99564808E+00 0.99711984E+00 0.99813415E+00 0.99881916E+00 0.99927147E+00 + 0.99956273E+00 0.99974514E+00 0.99985599E+00 0.99992122E+00 0.99995833E+00 + 0.99997871E+00 0.99998950E+00 0.99999501E+00 0.99999772E+00 0.99999899E+00 + 0.99999958E+00 0.99999983E+00 0.99999993E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.39922698E-02 0.11970989E-01 0.23924910E-01 0.39837267E-01 + 0.59682293E-01 0.83417930E-01 0.11097746E+00 0.14226291E+00 0.17714042E+00 + 0.21543534E+00 0.25692447E+00 0.30132268E+00 0.34826368E+00 0.39728074E+00 + 0.44779811E+00 0.49913996E+00 0.55055532E+00 0.60125409E+00 0.65044972E+00 + 0.69740451E+00 0.74147304E+00 0.78213639E+00 0.81902068E+00 0.85189937E+00 + 0.88068671E+00 0.90542899E+00 0.92629330E+00 0.94354915E+00 0.95754225E+00 + 0.96866474E+00 0.97732692E+00 0.98393334E+00 0.98886395E+00 0.99246124E+00 + 0.99502315E+00 0.99680105E+00 0.99800106E+00 0.99878736E+00 0.99928670E+00 + 0.99959359E+00 0.99977591E+00 0.99988053E+00 0.99993845E+00 0.99996939E+00 + 0.99998531E+00 0.99999321E+00 0.99999697E+00 0.99999870E+00 0.99999947E+00 + 0.99999979E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.38854521E-02 0.11652956E-01 0.23293798E-01 0.38791977E-01 + 0.58121941E-01 0.81245823E-01 0.10810966E+00 0.13863865E+00 0.17273115E+00 + 0.21024979E+00 0.25100820E+00 0.29475550E+00 0.34116171E+00 0.38980428E+00 + 0.44015596E+00 0.49158191E+00 0.54335439E+00 0.59468321E+00 0.64475328E+00 + 0.69276386E+00 0.73797130E+00 0.77973873E+00 0.81758626E+00 0.85122385E+00 + 0.88055373E+00 0.90564734E+00 0.92671126E+00 0.94405272E+00 0.95804762E+00 + 0.96911206E+00 0.97767746E+00 0.98416862E+00 0.98898468E+00 0.99248393E+00 + 0.99497428E+00 0.99671007E+00 0.99789425E+00 0.99868406E+00 0.99919829E+00 + 0.99952454E+00 0.99972590E+00 0.99984658E+00 0.99991672E+00 0.99995621E+00 + 0.99997771E+00 0.99998903E+00 0.99999479E+00 0.99999761E+00 0.99999894E+00 + 0.99999955E+00 0.99999982E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.37824141E-02 0.11343693E-01 0.22677180E-01 0.37771918E-01 + 0.56610855E-01 0.79167949E-01 0.10540453E+00 0.13526534E+00 0.16867325E+00 + 0.20552059E+00 0.24565580E+00 0.28886590E+00 0.33485727E+00 0.38323667E+00 + 0.43349554E+00 0.48500553E+00 0.53703096E+00 0.58875604E+00 0.63932266E+00 + 0.68787968E+00 0.73364215E+00 0.77594943E+00 0.81430663E+00 0.84840350E+00 + 0.87811661E+00 0.90350042E+00 0.92476611E+00 0.94224730E+00 0.95635767E+00 + 0.96754845E+00 0.97627229E+00 0.98295705E+00 0.98798955E+00 0.99170798E+00 + 0.99440047E+00 0.99630746E+00 0.99762582E+00 0.99851367E+00 0.99909504E+00 + 0.99946465E+00 0.99969253E+00 0.99982867E+00 0.99990742E+00 0.99995152E+00 + 0.99997541E+00 0.99998792E+00 0.99999426E+00 0.99999736E+00 0.99999883E+00 + 0.99999950E+00 0.99999979E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.36368565E-02 0.10905546E-01 0.21797917E-01 0.36302985E-01 + 0.54405528E-01 0.76084001E-01 0.10130938E+00 0.13004314E+00 0.16223070E+00 + 0.19778933E+00 0.23659252E+00 0.27845312E+00 0.32310764E+00 0.37020456E+00 + 0.41929750E+00 0.46984117E+00 0.52118866E+00 0.57259568E+00 0.62324205E+00 + 0.67227503E+00 0.71886885E+00 0.76228802E+00 0.80194327E+00 0.83743228E+00 + 0.86855873E+00 0.89532582E+00 0.91790743E+00 0.93660651E+00 0.95181093E+00 + 0.96395331E+00 0.97347807E+00 0.98081613E+00 0.98636731E+00 0.99048924E+00 + 0.99349181E+00 0.99563595E+00 0.99713564E+00 0.99816190E+00 0.99884818E+00 + 0.99929602E+00 0.99958083E+00 0.99975710E+00 0.99986315E+00 0.99992510E+00 + 0.99996020E+00 0.99997949E+00 0.99998976E+00 0.99999504E+00 0.99999768E+00 + 0.99999895E+00 0.99999954E+00 0.99999981E+00 0.99999992E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.35432132E-02 0.10626138E-01 0.21243221E-01 0.35387508E-01 + 0.53049548E-01 0.74213977E-01 0.98854076E-01 0.12692599E+00 0.15836473E+00 + 0.19308032E+00 0.23094876E+00 0.27179643E+00 0.31538384E+00 0.36139228E+00 + 0.40941140E+00 0.45892844E+00 0.50932596E+00 0.55989571E+00 0.60987128E+00 + 0.65847229E+00 0.70494852E+00 0.74861779E+00 0.78890091E+00 0.82535574E+00 + 0.85770557E+00 0.88585283E+00 0.90987268E+00 0.92998713E+00 0.94652550E+00 + 0.95988036E+00 0.97046849E+00 0.97870256E+00 0.98497409E+00 0.98964395E+00 + 0.99303700E+00 0.99543839E+00 0.99709130E+00 0.99819637E+00 0.99891323E+00 + 0.99936408E+00 0.99963883E+00 0.99980100E+00 0.99989368E+00 0.99994494E+00 + 0.99997237E+00 0.99998658E+00 0.99999369E+00 0.99999714E+00 0.99999874E+00 + 0.99999947E+00 0.99999979E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.34706408E-02 0.10410381E-01 0.20816253E-01 0.34682400E-01 + 0.51998138E-01 0.72745809E-01 0.96898272E-01 0.12441586E+00 0.15524157E+00 + 0.18929309E+00 0.22645275E+00 0.26655712E+00 0.30938382E+00 0.35463492E+00 + 0.40192193E+00 0.45075796E+00 0.50055824E+00 0.55064819E+00 0.60028031E+00 + 0.64866503E+00 0.69501908E+00 0.73862591E+00 0.77889381E+00 0.81539690E+00 + 0.84789288E+00 0.87632012E+00 0.90077810E+00 0.92149376E+00 0.93877912E+00 + 0.95299008E+00 0.96449516E+00 0.97365657E+00 0.98082062E+00 0.98631283E+00 + 0.99043439E+00 0.99345836E+00 0.99562569E+00 0.99714216E+00 0.99817737E+00 + 0.99886630E+00 0.99931286E+00 0.99959449E+00 0.99976716E+00 0.99986998E+00 + 0.99992943E+00 0.99996278E+00 0.99998094E+00 0.99999052E+00 0.99999543E+00 + 0.99999786E+00 0.99999903E+00 0.99999958E+00 0.99999982E+00 0.99999993E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.33540132E-02 0.10059713E-01 0.20113818E-01 0.33511914E-01 + 0.50247689E-01 0.70311785E-01 0.93689636E-01 0.12035772E+00 0.15027820E+00 + 0.18339196E+00 0.21960900E+00 0.25879516E+00 0.30075690E+00 0.34522659E+00 + 0.39184806E+00 0.44016514E+00 0.48962152E+00 0.53957615E+00 0.58932730E+00 + 0.63813740E+00 0.68526035E+00 0.72997462E+00 0.77162312E+00 0.80965893E+00 + 0.84369240E+00 0.87352577E+00 0.89916013E+00 0.92077181E+00 0.93866849E+00 + 0.95323939E+00 0.96490998E+00 0.97410671E+00 0.98123328E+00 0.98665759E+00 + 0.99070666E+00 0.99366584E+00 0.99577982E+00 0.99725396E+00 0.99825627E+00 + 0.99892018E+00 0.99934827E+00 0.99961682E+00 0.99978065E+00 0.99987780E+00 + 0.99993377E+00 0.99996509E+00 0.99998212E+00 0.99999110E+00 0.99999570E+00 + 0.99999799E+00 0.99999909E+00 0.99999960E+00 0.99999983E+00 0.99999993E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.32887038E-02 0.98660856E-02 0.19730457E-01 0.32877911E-01 + 0.49301860E-01 0.68992047E-01 0.91931898E-01 0.11809392E+00 0.14743444E+00 + 0.17988838E+00 0.21536324E+00 0.25373159E+00 0.29482014E+00 0.33839403E+00 + 0.38413723E+00 0.43163488E+00 0.48036644E+00 0.52971436E+00 0.57898477E+00 + 0.62743721E+00 0.67432348E+00 0.71893321E+00 0.76063894E+00 0.79893383E+00 + 0.83345883E+00 0.86401656E+00 0.89056995E+00 0.91322678E+00 0.93221413E+00 + 0.94784739E+00 0.96049734E+00 0.97055896E+00 0.97842530E+00 0.98446833E+00 + 0.98902690E+00 0.99240040E+00 0.99484662E+00 0.99658242E+00 0.99778598E+00 + 0.99860033E+00 0.99913732E+00 0.99948202E+00 0.99969723E+00 0.99982781E+00 + 0.99990478E+00 0.99994882E+00 0.99997328E+00 0.99998645E+00 0.99999334E+00 + 0.99999682E+00 0.99999853E+00 0.99999935E+00 0.99999972E+00 0.99999988E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.31770599E-02 0.95311550E-02 0.19060939E-01 0.31763066E-01 + 0.47631437E-01 0.66656542E-01 0.88824544E-01 0.11411575E+00 0.14250249E+00 + 0.17394534E+00 0.20838546E+00 0.24573237E+00 0.28584900E+00 0.32853694E+00 + 0.37352382E+00 0.42044905E+00 0.46884476E+00 0.51812376E+00 0.56759259E+00 + 0.61648946E+00 0.66403060E+00 0.70945606E+00 0.75207754E+00 0.79132809E+00 + 0.82680357E+00 0.85828213E+00 0.88571682E+00 0.90920836E+00 0.92897082E+00 + 0.94529957E+00 0.95854465E+00 0.96908846E+00 0.97732525E+00 0.98364133E+00 + 0.98839745E+00 0.99191550E+00 0.99447139E+00 0.99629392E+00 0.99756791E+00 + 0.99843951E+00 0.99902217E+00 0.99940219E+00 0.99964370E+00 0.99979311E+00 + 0.99988303E+00 0.99993564E+00 0.99996555E+00 0.99998208E+00 0.99999094E+00 + 0.99999555E+00 0.99999788E+00 0.99999902E+00 0.99999956E+00 0.99999981E+00 + 0.99999992E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.32082028E-02 0.96247378E-02 0.19248766E-01 0.32077553E-01 + 0.48105793E-01 0.67324991E-01 0.89722438E-01 0.11527920E+00 0.14396634E+00 + 0.17573875E+00 0.21052771E+00 0.24823306E+00 0.28871221E+00 0.33176211E+00 + 0.37709704E+00 0.42432862E+00 0.47295338E+00 0.52235169E+00 0.57180286E+00 + 0.62052118E+00 0.66771100E+00 0.71262774E+00 0.75462941E+00 0.79321248E+00 + 0.82803288E+00 0.85891184E+00 0.88582650E+00 0.90888906E+00 0.92832051E+00 + 0.94442252E+00 0.95754898E+00 0.96807821E+00 0.97638857E+00 0.98283978E+00 + 0.98776107E+00 0.99144538E+00 0.99414784E+00 0.99608662E+00 0.99744472E+00 + 0.99837225E+00 0.99898916E+00 0.99938839E+00 0.99963961E+00 0.99979327E+00 + 0.99988460E+00 0.99993733E+00 0.99996691E+00 0.99998302E+00 0.99999153E+00 + 0.99999590E+00 0.99999808E+00 0.99999913E+00 0.99999962E+00 0.99999984E+00 + 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.31072507E-02 0.93225834E-02 0.18646265E-01 0.31077160E-01 + 0.46612151E-01 0.65245679E-01 0.86968239E-01 0.11176285E+00 0.13960028E+00 + 0.17043493E+00 0.20420212E+00 0.24081380E+00 0.28014847E+00 0.32203442E+00 + 0.36622974E+00 0.41240399E+00 0.46012348E+00 0.50884307E+00 0.55791179E+00 + 0.60659894E+00 0.65413958E+00 0.69978861E+00 0.74286931E+00 0.78280847E+00 + 0.81915977E+00 0.85162124E+00 0.88004785E+00 0.90445437E+00 0.92500326E+00 + 0.94197781E+00 0.95574587E+00 0.96672109E+00 0.97532761E+00 0.98197215E+00 + 0.98702500E+00 0.99080987E+00 0.99360105E+00 0.99562549E+00 0.99706759E+00 + 0.99807490E+00 0.99876371E+00 0.99922413E+00 0.99952456E+00 0.99971574E+00 + 0.99983427E+00 0.99990583E+00 0.99994788E+00 0.99997192E+00 0.99998527E+00 + 0.99999249E+00 0.99999628E+00 0.99999821E+00 0.99999916E+00 0.99999962E+00 + 0.99999983E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + NUCLEUS 1 1 16 8 + 15.32000 0.15000 1.12000 2.71000 + 0.00000000E+00 0.43181540E-02 0.12945178E-01 0.25858275E-01 0.43018764E-01 + 0.64369884E-01 0.89834344E-01 0.11930848E+00 0.15265096E+00 0.18967043E+00 + 0.23011805E+00 0.27368374E+00 0.31999049E+00 0.36858519E+00 0.41892936E+00 + 0.47039498E+00 0.52227010E+00 0.57377743E+00 0.62410646E+00 0.67245854E+00 + 0.71810057E+00 0.76041780E+00 0.79895359E+00 0.83342724E+00 0.86373071E+00 + 0.88991251E+00 0.91215551E+00 0.93074923E+00 0.94605645E+00 0.95847805E+00 + 0.96842154E+00 0.97627800E+00 0.98240808E+00 0.98713467E+00 0.99073865E+00 + 0.99345636E+00 0.99547995E+00 0.99696186E+00 0.99802261E+00 0.99875941E+00 + 0.99925256E+00 0.99956878E+00 0.99976225E+00 0.99987491E+00 0.99993725E+00 + 0.99997001E+00 0.99998635E+00 0.99999409E+00 0.99999757E+00 0.99999905E+00 + 0.99999965E+00 0.99999988E+00 0.99999996E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.43019670E-02 0.12894300E-01 0.25755743E-01 0.42851567E-01 + 0.64126880E-01 0.89499142E-01 0.11885236E+00 0.15203363E+00 0.18884948E+00 + 0.22905757E+00 0.27235343E+00 0.31835737E+00 0.36660578E+00 0.41654677E+00 + 0.46754069E+00 0.51887089E+00 0.56977149E+00 0.61947191E+00 0.66724683E+00 + 0.71245670E+00 0.75457287E+00 0.79319186E+00 0.82804463E+00 0.85899979E+00 + 0.88605732E+00 0.90933171E+00 0.92902857E+00 0.94541920E+00 0.95881744E+00 + 0.96956080E+00 0.97799643E+00 0.98447017E+00 0.98931653E+00 0.99284886E+00 + 0.99535057E+00 0.99706877E+00 0.99821090E+00 0.99894435E+00 0.99939863E+00 + 0.99966965E+00 0.99982518E+00 0.99991097E+00 0.99995641E+00 0.99997950E+00 + 0.99999075E+00 0.99999600E+00 0.99999834E+00 0.99999934E+00 0.99999975E+00 + 0.99999991E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.43417589E-02 0.13014329E-01 0.25996553E-01 0.43260153E-01 + 0.64766132E-01 0.90454575E-01 0.12023176E+00 0.15395789E+00 0.19143648E+00 + 0.23240494E+00 0.27652497E+00 0.32337233E+00 0.37242894E+00 0.42308271E+00 + 0.47463950E+00 0.52634807E+00 0.57743484E+00 0.62714297E+00 0.67477065E+00 + 0.71970456E+00 0.76144451E+00 0.79961734E+00 0.83398081E+00 0.86441948E+00 + 0.89093542E+00 0.91363598E+00 0.93272008E+00 0.94846314E+00 0.96119954E+00 + 0.97130185E+00 0.97915776E+00 0.98514746E+00 0.98962492E+00 0.99290532E+00 + 0.99525889E+00 0.99691007E+00 0.99804041E+00 0.99879346E+00 0.99928029E+00 + 0.99958485E+00 0.99976878E+00 0.99987582E+00 0.99993575E+00 0.99996801E+00 + 0.99998468E+00 0.99999295E+00 0.99999689E+00 0.99999868E+00 0.99999947E+00 + 0.99999979E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.42484336E-02 0.12735743E-01 0.25436481E-01 0.42307007E-01 + 0.63282790E-01 0.88275123E-01 0.11716772E+00 0.14981243E+00 0.18602243E+00 + 0.22556306E+00 0.26814195E+00 0.31340029E+00 0.36090611E+00 0.41015118E+00 + 0.46055364E+00 0.51146816E+00 0.56220331E+00 0.61204466E+00 0.66028174E+00 + 0.70623804E+00 0.74930296E+00 0.78896406E+00 0.82483664E+00 0.85668673E+00 + 0.88444187E+00 0.90818502E+00 0.92813148E+00 0.94459443E+00 0.95794764E+00 + 0.96859215E+00 0.97693011E+00 0.98334603E+00 0.98819415E+00 0.99179024E+00 + 0.99440720E+00 0.99627390E+00 0.99757713E+00 0.99846576E+00 0.99905602E+00 + 0.99943688E+00 0.99967494E+00 0.99981873E+00 0.99990249E+00 0.99994947E+00 + 0.99997480E+00 0.99998792E+00 0.99999444E+00 0.99999754E+00 0.99999896E+00 + 0.99999958E+00 0.99999984E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.41067782E-02 0.12311388E-01 0.24592583E-01 0.40915532E-01 + 0.61231044E-01 0.85473661E-01 0.11355706E+00 0.14536638E+00 0.18074832E+00 + 0.21950064E+00 0.26136253E+00 0.30600596E+00 0.35302781E+00 0.40194435E+00 + 0.45219126E+00 0.50313118E+00 0.55406932E+00 0.60427573E+00 0.65301358E+00 + 0.69957350E+00 0.74331195E+00 0.78368920E+00 0.82030069E+00 0.85289695E+00 + 0.88138870E+00 0.90583679E+00 0.92642963E+00 0.94345388E+00 0.95726372E+00 + 0.96825238E+00 0.97682703E+00 0.98338730E+00 0.98830789E+00 0.99192590E+00 + 0.99453333E+00 0.99637449E+00 0.99764751E+00 0.99850858E+00 0.99907759E+00 + 0.99944437E+00 0.99967455E+00 0.99981494E+00 0.99989799E+00 0.99994557E+00 + 0.99997193E+00 0.99998602E+00 0.99999329E+00 0.99999689E+00 0.99999862E+00 + 0.99999941E+00 0.99999976E+00 0.99999991E+00 0.99999996E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.40285238E-02 0.12077792E-01 0.24128109E-01 0.40146523E-01 + 0.60083418E-01 0.83867951E-01 0.11140370E+00 0.14256510E+00 0.17719355E+00 + 0.21509175E+00 0.25601582E+00 0.29966675E+00 0.34568220E+00 0.39362758E+00 + 0.44298635E+00 0.49315320E+00 0.54343814E+00 0.59308968E+00 0.64133895E+00 + 0.68745638E+00 0.73080541E+00 0.77088077E+00 0.80732733E+00 0.83994279E+00 + 0.86866878E+00 0.89357437E+00 0.91483509E+00 0.93270962E+00 0.94751529E+00 + 0.95960308E+00 0.96933405E+00 0.97705958E+00 0.98310699E+00 0.98777125E+00 + 0.99131168E+00 0.99395211E+00 0.99588301E+00 0.99726443E+00 0.99822899E+00 + 0.99888477E+00 0.99931793E+00 0.99959539E+00 0.99976746E+00 0.99987064E+00 + 0.99993041E+00 0.99996382E+00 0.99998184E+00 0.99999120E+00 0.99999589E+00 + 0.99999815E+00 0.99999920E+00 0.99999967E+00 0.99999987E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.38501826E-02 0.11545482E-01 0.23072525E-01 0.38408900E-01 + 0.57521543E-01 0.80363352E-01 0.10686762E+00 0.13694110E+00 0.17045701E+00 + 0.20724852E+00 0.24710115E+00 0.28974290E+00 0.33483315E+00 0.38195340E+00 + 0.43060380E+00 0.48020774E+00 0.53012423E+00 0.57966599E+00 0.62812377E+00 + 0.67479848E+00 0.71904074E+00 0.76029211E+00 0.79811943E+00 0.83223514E+00 + 0.86250102E+00 0.88891713E+00 0.91160062E+00 0.93075954E+00 0.94666693E+00 + 0.95963855E+00 0.97001554E+00 0.97815039E+00 0.98439394E+00 0.98908239E+00 + 0.99252526E+00 0.99499633E+00 0.99672859E+00 0.99791352E+00 0.99870346E+00 + 0.99921600E+00 0.99953922E+00 0.99973706E+00 0.99985446E+00 0.99992193E+00 + 0.99995945E+00 0.99997963E+00 0.99999011E+00 0.99999536E+00 0.99999790E+00 + 0.99999909E+00 0.99999962E+00 0.99999985E+00 0.99999994E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.37822091E-02 0.11337761E-01 0.22648968E-01 0.37688756E-01 + 0.56419463E-01 0.78790662E-01 0.10473593E+00 0.13416822E+00 0.16697315E+00 + 0.20299956E+00 0.24204735E+00 0.28385449E+00 0.32808654E+00 0.37433269E+00 + 0.42210943E+00 0.47087067E+00 0.52002161E+00 0.56893517E+00 0.61697040E+00 + 0.66349265E+00 0.70789564E+00 0.74962634E+00 0.78821257E+00 0.82328954E+00 + 0.85462002E+00 0.88210406E+00 0.90577719E+00 0.92579809E+00 0.94242701E+00 + 0.95599723E+00 0.96688363E+00 0.97547262E+00 0.98213791E+00 0.98722383E+00 + 0.99103646E+00 0.99384067E+00 0.99586086E+00 0.99728376E+00 0.99826175E+00 + 0.99891657E+00 0.99934302E+00 0.99961279E+00 0.99977837E+00 0.99987690E+00 + 0.99993370E+00 0.99996539E+00 0.99998251E+00 0.99999144E+00 0.99999595E+00 + 0.99999815E+00 0.99999918E+00 0.99999965E+00 0.99999986E+00 0.99999994E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.35970875E-02 0.10781347E-01 0.21535933E-01 0.35836784E-01 + 0.53652148E-01 0.74940955E-01 0.99649539E-01 0.12770676E+00 0.15901734E+00 + 0.19345314E+00 0.23084262E+00 0.27095971E+00 0.31351404E+00 0.35814484E+00 + 0.40442157E+00 0.45185196E+00 0.49989481E+00 0.54797358E+00 0.59548915E+00 + 0.64183358E+00 0.68640827E+00 0.72864907E+00 0.76805721E+00 0.80423043E+00 + 0.83688757E+00 0.86588145E+00 0.89119787E+00 0.91294214E+00 0.93131686E+00 + 0.94659577E+00 0.95909765E+00 0.96916272E+00 0.97713310E+00 0.98333775E+00 + 0.98808209E+00 0.99164171E+00 0.99425911E+00 0.99614282E+00 0.99746789E+00 + 0.99837771E+00 0.99898667E+00 0.99938351E+00 0.99963502E+00 0.99978989E+00 + 0.99988247E+00 0.99993617E+00 0.99996636E+00 0.99998280E+00 0.99999148E+00 + 0.99999591E+00 0.99999810E+00 0.99999915E+00 0.99999963E+00 0.99999985E+00 + 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.35130054E-02 0.10537831E-01 0.21068533E-01 0.35093215E-01 + 0.52592708E-01 0.73538622E-01 0.97890029E-01 0.12558829E+00 0.15655014E+00 + 0.19066001E+00 0.22776252E+00 0.26765552E+00 0.31008258E+00 0.35472440E+00 + 0.40119018E+00 0.44901205E+00 0.49764591E+00 0.54648054E+00 0.59485551E+00 + 0.64208742E+00 0.68750320E+00 0.73047803E+00 0.77047353E+00 0.80707063E+00 + 0.83999110E+00 0.86910410E+00 0.89441758E+00 0.91605865E+00 0.93424861E+00 + 0.94927730E+00 0.96147936E+00 0.97121265E+00 0.97883900E+00 0.98470759E+00 + 0.98914191E+00 0.99243086E+00 0.99482418E+00 0.99653156E+00 0.99772452E+00 + 0.99853998E+00 0.99908467E+00 0.99943980E+00 0.99966557E+00 0.99980540E+00 + 0.99988971E+00 0.99993915E+00 0.99996734E+00 0.99998296E+00 0.99999136E+00 + 0.99999575E+00 0.99999797E+00 0.99999906E+00 0.99999958E+00 0.99999982E+00 + 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.32807544E-02 0.98407163E-02 0.19675179E-01 0.32775409E-01 + 0.49127243E-01 0.68709152E-01 0.91489723E-01 0.11742483E+00 0.14645469E+00 + 0.17850007E+00 0.21345666E+00 0.25118693E+00 0.29150972E+00 0.33418809E+00 + 0.37891682E+00 0.42531150E+00 0.47290151E+00 0.52112964E+00 0.56936186E+00 + 0.61691030E+00 0.66307011E+00 0.70716511E+00 0.74859389E+00 0.78686819E+00 + 0.82163809E+00 0.85270193E+00 0.88000150E+00 0.90360566E+00 0.92368686E+00 + 0.94049492E+00 0.95433175E+00 0.96552912E+00 0.97443038E+00 0.98137575E+00 + 0.98669056E+00 0.99067588E+00 0.99360178E+00 0.99570314E+00 0.99717819E+00 + 0.99818929E+00 0.99886552E+00 0.99930645E+00 0.99958655E+00 0.99975979E+00 + 0.99986406E+00 0.99992510E+00 0.99995984E+00 0.99997906E+00 0.99998938E+00 + 0.99999477E+00 0.99999750E+00 0.99999884E+00 0.99999948E+00 0.99999978E+00 + 0.99999991E+00 0.99999996E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.31457619E-02 0.94363073E-02 0.18869154E-01 0.31439608E-01 + 0.47139326E-01 0.65954345E-01 0.87862999E-01 0.11283387E+00 0.14082323E+00 + 0.17177091E+00 0.20559356E+00 0.24217545E+00 0.28135728E+00 0.32292419E+00 + 0.36659381E+00 0.41200582E+00 0.45871544E+00 0.50619389E+00 0.55383961E+00 + 0.60100210E+00 0.64701564E+00 0.69123650E+00 0.73307765E+00 0.77203878E+00 + 0.80773103E+00 0.83989457E+00 0.86840570E+00 0.89327149E+00 0.91461266E+00 + 0.93263914E+00 0.94762382E+00 0.95987881E+00 0.96973569E+00 0.97752955E+00 + 0.98358580E+00 0.98820933E+00 0.99167631E+00 0.99422895E+00 0.99607340E+00 + 0.99738042E+00 0.99828795E+00 0.99890478E+00 0.99931479E+00 0.99958105E+00 + 0.99974984E+00 0.99985422E+00 0.99991714E+00 0.99995409E+00 0.99997522E+00 + 0.99998698E+00 0.99999334E+00 0.99999669E+00 0.99999840E+00 0.99999925E+00 + 0.99999966E+00 0.99999985E+00 0.99999994E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.30597357E-02 0.91777379E-02 0.18351584E-01 0.30577270E-01 + 0.45848482E-01 0.64155856E-01 0.85485821E-01 0.10981834E+00 0.13712345E+00 + 0.16735704E+00 0.20045548E+00 0.23632771E+00 0.27484423E+00 0.31582503E+00 + 0.35902852E+00 0.40414187E+00 0.45077213E+00 0.49844045E+00 0.54658282E+00 + 0.59456027E+00 0.64168035E+00 0.68723069E+00 0.73052258E+00 0.77093886E+00 + 0.80797728E+00 0.84128167E+00 0.87065705E+00 0.89606931E+00 0.91763202E+00 + 0.93558337E+00 0.95025604E+00 0.96204297E+00 0.97136282E+00 0.97862882E+00 + 0.98422437E+00 0.98848731E+00 0.99170294E+00 0.99410432E+00 0.99587748E+00 + 0.99716920E+00 0.99809493E+00 0.99874569E+00 0.99919321E+00 0.99949361E+00 + 0.99969011E+00 0.99981522E+00 0.99989271E+00 0.99993936E+00 0.99996666E+00 + 0.99998217E+00 0.99999073E+00 0.99999532E+00 0.99999770E+00 0.99999891E+00 + 0.99999950E+00 0.99999977E+00 0.99999990E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.29309732E-02 0.87912623E-02 0.17578112E-01 0.29287284E-01 + 0.43912867E-01 0.61447131E-01 0.81880025E-01 0.10519793E+00 0.13138117E+00 + 0.16039999E+00 0.19220902E+00 0.22674023E+00 0.26389404E+00 0.30352772E+00 + 0.34544122E+00 0.38936133E+00 0.43492724E+00 0.48168229E+00 0.52907657E+00 + 0.57648214E+00 0.62321975E+00 0.66859471E+00 0.71193949E+00 0.75265761E+00 + 0.79026143E+00 0.82439773E+00 0.85485918E+00 0.88158282E+00 0.90463747E+00 + 0.92420292E+00 0.94054353E+00 0.95397975E+00 0.96486093E+00 0.97354188E+00 + 0.98036490E+00 0.98564730E+00 0.98967404E+00 0.99269443E+00 0.99492179E+00 + 0.99653504E+00 0.99768143E+00 0.99847979E+00 0.99902411E+00 0.99938708E+00 + 0.99962361E+00 0.99977413E+00 0.99986762E+00 0.99992425E+00 0.99995771E+00 + 0.99997697E+00 0.99998777E+00 0.99999367E+00 0.99999681E+00 0.99999844E+00 + 0.99999926E+00 0.99999966E+00 0.99999985E+00 0.99999993E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.28071393E-02 0.84205987E-02 0.16838665E-01 0.28058705E-01 + 0.42077113E-01 0.58888929E-01 0.78486905E-01 0.10085997E+00 0.12599106E+00 + 0.15385396E+00 0.18440922E+00 0.21759934E+00 0.25334312E+00 0.29152771E+00 + 0.33199679E+00 0.37453466E+00 0.41885002E+00 0.46456537E+00 0.51121615E+00 + 0.55825896E+00 0.60508534E+00 0.65104052E+00 0.69545036E+00 0.73765920E+00 + 0.77707489E+00 0.81321182E+00 0.84572283E+00 0.87441616E+00 0.89925750E+00 + 0.92035843E+00 0.93795283E+00 0.95236391E+00 0.96396731E+00 0.97315664E+00 + 0.98031624E+00 0.98580309E+00 0.98993685E+00 0.99299598E+00 0.99521750E+00 + 0.99679893E+00 0.99790138E+00 0.99865330E+00 0.99915465E+00 0.99948121E+00 + 0.99968889E+00 0.99981777E+00 0.99989579E+00 0.99994184E+00 0.99996834E+00 + 0.99998320E+00 0.99999131E+00 0.99999563E+00 0.99999786E+00 0.99999898E+00 + 0.99999953E+00 0.99999979E+00 0.99999991E+00 0.99999996E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.27853023E-02 0.83558471E-02 0.16711057E-01 0.27849539E-01 + 0.41768866E-01 0.58465296E-01 0.77933144E-01 0.10016356E+00 0.12514255E+00 + 0.15284814E+00 0.18324654E+00 0.21628726E+00 0.25189663E+00 0.28996911E+00 + 0.33035618E+00 0.37285250E+00 0.41717986E+00 0.46297194E+00 0.50976471E+00 + 0.55699602E+00 0.60401835E+00 0.65012849E+00 0.69461353E+00 0.73680445E+00 + 0.77612537E+00 0.81212934E+00 0.84451702E+00 0.87313925E+00 0.89798762E+00 + 0.91917769E+00 0.93692731E+00 0.95153133E+00 0.96333459E+00 0.97270567E+00 + 0.98001406E+00 0.98561211E+00 0.98982242E+00 0.99293034E+00 0.99518074E+00 + 0.99677809E+00 0.99788877E+00 0.99864480E+00 0.99914829E+00 0.99947616E+00 + 0.99968483E+00 0.99981459E+00 0.99989338E+00 0.99994011E+00 0.99996714E+00 + 0.99998240E+00 0.99999081E+00 0.99999532E+00 0.99999768E+00 0.99999888E+00 + 0.99999948E+00 0.99999976E+00 0.99999990E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.26503595E-02 0.79509617E-02 0.15901508E-01 0.26501358E-01 + 0.39749210E-01 0.55642736E-01 0.74178350E-01 0.95350926E-01 0.11915282E+00 + 0.14557142E+00 0.17458457E+00 0.20615374E+00 0.24021569E+00 0.27667405E+00 + 0.31539067E+00 0.35617628E+00 0.39877985E+00 0.44287730E+00 0.48806245E+00 + 0.53384514E+00 0.57966118E+00 0.62489570E+00 0.66891750E+00 0.71111800E+00 + 0.75094744E+00 0.78794361E+00 0.82175217E+00 0.85213901E+00 0.87899521E+00 + 0.90233359E+00 0.92227622E+00 0.93903418E+00 0.95288301E+00 0.96413802E+00 + 0.97313219E+00 0.98019770E+00 0.98565172E+00 0.98978634E+00 0.99286241E+00 + 0.99510656E+00 0.99671076E+00 0.99783353E+00 0.99860243E+00 0.99911737E+00 + 0.99945448E+00 0.99967014E+00 0.99980493E+00 0.99988721E+00 0.99993626E+00 + 0.99996481E+00 0.99998102E+00 0.99999001E+00 0.99999487E+00 0.99999743E+00 + 0.99999875E+00 0.99999941E+00 0.99999973E+00 0.99999988E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.25849277E-02 0.77545526E-02 0.15508600E-01 0.25846651E-01 + 0.38767886E-01 0.54270773E-01 0.72352660E-01 0.93008998E-01 0.11623195E+00 + 0.14200836E+00 0.17031704E+00 0.20112501E+00 0.23438191E+00 0.27001174E+00 + 0.30790234E+00 0.34789409E+00 0.38976989E+00 0.43324613E+00 0.47796441E+00 + 0.52348436E+00 0.56928082E+00 0.61475189E+00 0.65924421E+00 0.70209473E+00 + 0.74268010E+00 0.78046263E+00 0.81502632E+00 0.84610001E+00 0.87356508E+00 + 0.89744633E+00 0.91788807E+00 0.93512237E+00 0.94943732E+00 0.96115053E+00 + 0.97058919E+00 0.97807562E+00 0.98391688E+00 0.98839728E+00 0.99177333E+00 + 0.99427069E+00 0.99608301E+00 0.99737247E+00 0.99827143E+00 0.99888522E+00 + 0.99929549E+00 0.99956384E+00 0.99973557E+00 0.99984305E+00 0.99990883E+00 + 0.99994818E+00 0.99997120E+00 0.99998435E+00 0.99999169E+00 0.99999569E+00 + 0.99999782E+00 0.99999892E+00 0.99999948E+00 0.99999976E+00 0.99999989E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.25235371E-02 0.75705044E-02 0.15140722E-01 0.25233845E-01 + 0.37849104E-01 0.52984953E-01 0.70638704E-01 0.90806257E-01 0.11348170E+00 + 0.13865623E+00 0.16631572E+00 0.19643611E+00 0.22897652E+00 0.26387100E+00 + 0.30102068E+00 0.34028705E+00 0.38148410E+00 0.42436697E+00 0.46861756E+00 + 0.51383230E+00 0.55951905E+00 0.60510685E+00 0.64996731E+00 0.69344530E+00 + 0.73489741E+00 0.77373584E+00 0.80947233E+00 0.84175356E+00 0.87038039E+00 + 0.89530836E+00 0.91663173E+00 0.93455678E+00 0.94937038E+00 0.96140881E+00 + 0.97103019E+00 0.97859222E+00 0.98443565E+00 0.98887320E+00 0.99218316E+00 + 0.99460656E+00 0.99634701E+00 0.99757240E+00 0.99841772E+00 0.99898885E+00 + 0.99936664E+00 0.99961126E+00 0.99976625E+00 0.99986235E+00 0.99992063E+00 + 0.99995521E+00 0.99997526E+00 0.99998664E+00 0.99999295E+00 0.99999636E+00 + 0.99999817E+00 0.99999910E+00 0.99999957E+00 0.99999980E+00 0.99999991E+00 + 0.99999996E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.24731836E-02 0.74194036E-02 0.14838456E-01 0.24729975E-01 + 0.37093209E-01 0.51926816E-01 0.69228773E-01 0.88996089E-01 0.11122391E+00 + 0.13590384E+00 0.16302132E+00 0.19255182E+00 0.22445469E+00 0.25866519E+00 + 0.29508611E+00 0.33358083E+00 0.37396690E+00 0.41600803E+00 0.45940416E+00 + 0.50378295E+00 0.54869760E+00 0.59363327E+00 0.63802096E+00 0.68125772E+00 + 0.72273450E+00 0.76187222E+00 0.79816278E+00 0.83120773E+00 0.86074645E+00 + 0.88666827E+00 0.90900721E+00 0.92792240E+00 0.94366921E+00 0.95656684E+00 + 0.96696694E+00 0.97522690E+00 0.98168960E+00 0.98667023E+00 0.99044928E+00 + 0.99327015E+00 0.99533978E+00 0.99683085E+00 0.99788479E+00 0.99861511E+00 + 0.99911093E+00 0.99944055E+00 0.99965506E+00 0.99979167E+00 0.99987679E+00 + 0.99992867E+00 0.99995959E+00 0.99997760E+00 0.99998786E+00 0.99999357E+00 + 0.99999667E+00 0.99999832E+00 0.99999917E+00 0.99999961E+00 0.99999982E+00 + 0.99999992E+00 0.99999996E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.24311746E-02 0.72933923E-02 0.14586440E-01 0.24310023E-01 + 0.36463703E-01 0.51046840E-01 0.68058442E-01 0.87496527E-01 0.10935689E+00 + 0.13363155E+00 0.16030699E+00 0.18936174E+00 0.22076241E+00 0.25445711E+00 + 0.29036672E+00 0.32837497E+00 0.36831880E+00 0.40997880E+00 0.45306881E+00 + 0.49722478E+00 0.54199707E+00 0.58685363E+00 0.63119937E+00 0.67440963E+00 + 0.71587048E+00 0.75501809E+00 0.79137309E+00 0.82456812E+00 0.85436623E+00 + 0.88066739E+00 0.90350082E+00 0.92300548E+00 0.93940375E+00 0.95297430E+00 + 0.96402801E+00 0.97288817E+00 0.97987492E+00 0.98529327E+00 0.98942433E+00 + 0.99251955E+00 0.99479771E+00 0.99644421E+00 0.99761224E+00 0.99842526E+00 + 0.99898033E+00 0.99935193E+00 0.99959582E+00 0.99975271E+00 0.99985161E+00 + 0.99991269E+00 0.99994964E+00 0.99997154E+00 0.99998425E+00 0.99999146E+00 + 0.99999547E+00 0.99999765E+00 0.99999881E+00 0.99999941E+00 0.99999972E+00 + 0.99999987E+00 0.99999994E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.23703918E-02 0.71111084E-02 0.14222064E-01 0.23703116E-01 + 0.35553954E-01 0.49773940E-01 0.66361886E-01 0.85315723E-01 0.10663194E+00 + 0.13030457E+00 0.15632321E+00 0.18467005E+00 0.21531639E+00 0.24821862E+00 + 0.28331261E+00 0.32050513E+00 0.35966199E+00 0.40059404E+00 0.44304316E+00 + 0.48667068E+00 0.53105166E+00 0.57567818E+00 0.61997355E+00 0.66331777E+00 + 0.70508355E+00 0.74468013E+00 0.78159790E+00 0.81544412E+00 0.84596265E+00 + 0.87303643E+00 0.89667582E+00 0.91699801E+00 0.93420258E+00 0.94854718E+00 + 0.96032536E+00 0.96984746E+00 0.97742493E+00 0.98335799E+00 0.98792660E+00 + 0.99138449E+00 0.99395558E+00 0.99583261E+00 0.99717745E+00 0.99812266E+00 + 0.99877414E+00 0.99921437E+00 0.99950595E+00 0.99969521E+00 0.99981558E+00 + 0.99989058E+00 0.99993636E+00 0.99996373E+00 0.99997975E+00 0.99998893E+00 + 0.99999407E+00 0.99999690E+00 0.99999841E+00 0.99999921E+00 0.99999962E+00 + 0.99999982E+00 0.99999992E+00 0.99999996E+00 0.99999999E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.23161903E-02 0.69485783E-02 0.13897132E-01 0.23161715E-01 + 0.34742000E-01 0.48637364E-01 0.64846782E-01 0.83368675E-01 0.10420051E+00 + 0.12733802E+00 0.15277400E+00 0.18049631E+00 0.21048446E+00 0.24270441E+00 + 0.27710174E+00 0.31359279E+00 0.35205360E+00 0.39230782E+00 0.43411487E+00 + 0.47715916E+00 0.52104274E+00 0.56528715E+00 0.60934900E+00 0.65264626E+00 + 0.69458758E+00 0.73460049E+00 0.77216018E+00 0.80682106E+00 0.83824840E+00 + 0.86624283E+00 0.89074983E+00 0.91185069E+00 0.92973754E+00 0.94467960E+00 + 0.95698923E+00 0.96699357E+00 0.97501428E+00 0.98135490E+00 0.98629398E+00 + 0.99008182E+00 0.99293932E+00 0.99505797E+00 0.99660070E+00 0.99770324E+00 + 0.99847619E+00 0.99900757E+00 0.99936567E+00 0.99960219E+00 0.99975528E+00 + 0.99985235E+00 0.99991266E+00 0.99994936E+00 0.99997123E+00 0.99998399E+00 + 0.99999127E+00 0.99999535E+00 0.99999757E+00 0.99999877E+00 0.99999939E+00 + 0.99999970E+00 0.99999986E+00 0.99999994E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.22743957E-02 0.68231529E-02 0.13646235E-01 0.22743593E-01 + 0.34115117E-01 0.47760524E-01 0.63679110E-01 0.81869326E-01 0.10232823E+00 + 0.12505096E+00 0.15003024E+00 0.17725551E+00 0.20671095E+00 0.23837144E+00 + 0.27219623E+00 0.30812028E+00 0.34604463E+00 0.38582611E+00 0.42726513E+00 + 0.47009121E+00 0.51394946E+00 0.55839402E+00 0.60289244E+00 0.64684260E+00 + 0.68960216E+00 0.73052918E+00 0.76902930E+00 0.80460182E+00 0.83687593E+00 + 0.86563101E+00 0.89079829E+00 0.91244602E+00 0.93075382E+00 0.94598268E+00 + 0.95844576E+00 0.96848247E+00 0.97643703E+00 0.98264157E+00 0.98740411E+00 + 0.99100082E+00 0.99367237E+00 0.99562321E+00 0.99702304E+00 0.99800962E+00 + 0.99869229E+00 0.99915593E+00 0.99946489E+00 0.99966688E+00 0.99979641E+00 + 0.99987788E+00 0.99992812E+00 0.99995850E+00 0.99997650E+00 0.99998696E+00 + 0.99999291E+00 0.99999623E+00 0.99999804E+00 0.99999900E+00 0.99999950E+00 + 0.99999976E+00 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.50310547E-02 0.15079477E-01 0.30107831E-01 0.50054027E-01 + 0.74825538E-01 0.10428864E+00 0.13825106E+00 0.17644304E+00 0.21850800E+00 + 0.26400743E+00 0.31243284E+00 0.36320705E+00 0.41566991E+00 0.46907086E+00 + 0.52258855E+00 0.57537269E+00 0.62659531E+00 0.67550353E+00 0.72146402E+00 + 0.76398859E+00 0.80273727E+00 0.83750350E+00 0.86819124E+00 0.89479765E+00 + 0.91741121E+00 0.93622135E+00 0.95152329E+00 0.96370398E+00 0.97320820E+00 + 0.98049531E+00 0.98599982E+00 0.99010519E+00 0.99313234E+00 0.99533889E+00 + 0.99692468E+00 0.99804156E+00 0.99880534E+00 0.99930692E+00 0.99961989E+00 + 0.99980383E+00 0.99990504E+00 0.99995698E+00 0.99998179E+00 0.99999281E+00 + 0.99999735E+00 0.99999909E+00 0.99999971E+00 0.99999992E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.52418618E-02 0.15699673E-01 0.31323400E-01 0.52033029E-01 + 0.77707368E-01 0.10817329E+00 0.14319839E+00 0.18248700E+00 0.22567866E+00 + 0.27234359E+00 0.32196974E+00 0.37394456E+00 0.42754245E+00 0.48193148E+00 + 0.53620926E+00 0.58946430E+00 0.64084235E+00 0.68959493E+00 0.73510488E+00 + 0.77689966E+00 0.81465911E+00 0.84821436E+00 0.87753603E+00 0.90271638E+00 + 0.92395076E+00 0.94152109E+00 0.95578036E+00 0.96713343E+00 0.97600969E+00 + 0.98283075E+00 0.98798289E+00 0.99180195E+00 0.99457111E+00 0.99652607E+00 + 0.99786224E+00 0.99874089E+00 0.99929332E+00 0.99962348E+00 0.99981015E+00 + 0.99990963E+00 0.99995948E+00 0.99998291E+00 0.99999323E+00 0.99999749E+00 + 0.99999913E+00 0.99999972E+00 0.99999991E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.50451430E-02 0.15101133E-01 0.30107038E-01 0.49979578E-01 + 0.74613277E-01 0.10387138E+00 0.13756938E+00 0.17545624E+00 0.21719853E+00 + 0.26237346E+00 0.31047276E+00 0.36091171E+00 0.41303639E+00 0.46612912E+00 + 0.51941809E+00 0.57209711E+00 0.62335760E+00 0.67242985E+00 0.71862592E+00 + 0.76137901E+00 0.80027770E+00 0.83508753E+00 0.86574680E+00 0.89233495E+00 + 0.91503124E+00 0.93408316E+00 0.94979017E+00 0.96249422E+00 0.97256667E+00 + 0.98038849E+00 0.98632920E+00 0.99073172E+00 0.99390542E+00 0.99612373E+00 + 0.99762238E+00 0.99859792E+00 0.99920770E+00 0.99957233E+00 0.99978013E+00 + 0.99989262E+00 0.99995029E+00 0.99997823E+00 0.99999100E+00 0.99999649E+00 + 0.99999871E+00 0.99999956E+00 0.99999986E+00 0.99999996E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.49533507E-02 0.14831969E-01 0.29598679E-01 0.49203071E-01 + 0.73571148E-01 0.10259117E+00 0.13609693E+00 0.17385237E+00 0.21554383E+00 + 0.26077911E+00 0.30908572E+00 0.35990479E+00 0.41258524E+00 0.46638387E+00 + 0.52047623E+00 0.57398385E+00 0.62601895E+00 0.67573957E+00 0.72240139E+00 + 0.76539567E+00 0.80427458E+00 0.83877231E+00 0.86882042E+00 0.89454393E+00 + 0.91622841E+00 0.93426486E+00 0.94908989E+00 0.96113859E+00 0.97081648E+00 + 0.97848754E+00 0.98447233E+00 0.98905260E+00 0.99247856E+00 0.99497490E+00 + 0.99674238E+00 0.99795595E+00 0.99876224E+00 0.99927909E+00 0.99959754E+00 + 0.99978535E+00 0.99989095E+00 0.99994735E+00 0.99997590E+00 0.99998956E+00 + 0.99999572E+00 0.99999835E+00 0.99999940E+00 0.99999980E+00 0.99999994E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.48392116E-02 0.14495819E-01 0.28919219E-01 0.48027495E-01 + 0.71704591E-01 0.99799029E-01 0.13212481E+00 0.16845991E+00 0.20853810E+00 + 0.25203633E+00 0.29856287E+00 0.34764923E+00 0.39874506E+00 0.45121622E+00 + 0.50434809E+00 0.55735742E+00 0.60941647E+00 0.65969089E+00 0.70738884E+00 + 0.75181481E+00 0.79241818E+00 0.82882692E+00 0.86086114E+00 0.88852516E+00 + 0.91198133E+00 0.93151373E+00 0.94749099E+00 0.96033336E+00 0.97048393E+00 + 0.97838220E+00 0.98443965E+00 0.98902044E+00 0.99243152E+00 0.99492383E+00 + 0.99670117E+00 0.99793082E+00 0.99875147E+00 0.99927728E+00 0.99959953E+00 + 0.99978794E+00 0.99989284E+00 0.99994838E+00 0.99997632E+00 0.99998966E+00 + 0.99999571E+00 0.99999831E+00 0.99999937E+00 0.99999978E+00 0.99999993E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.47384828E-02 0.14184737E-01 0.28291634E-01 0.46990720E-01 + 0.70188378E-01 0.97764808E-01 0.12957083E+00 0.16541791E+00 0.20506284E+00 + 0.24819092E+00 0.29440191E+00 0.34320449E+00 0.39402239E+00 0.44620802E+00 + 0.49905718E+00 0.55182147E+00 0.60372171E+00 0.65397121E+00 0.70181349E+00 + 0.74656871E+00 0.78767697E+00 0.82473061E+00 0.85749366E+00 0.88590860E+00 + 0.91008703E+00 0.93028182E+00 0.94684588E+00 0.96018830E+00 0.97073792E+00 + 0.97891785E+00 0.98512973E+00 0.98974368E+00 0.99309140E+00 0.99546136E+00 + 0.99709646E+00 0.99819442E+00 0.99891083E+00 0.99936414E+00 0.99964161E+00 + 0.99980547E+00 0.99989855E+00 0.99994927E+00 0.99997573E+00 0.99998890E+00 + 0.99999516E+00 0.99999799E+00 0.99999921E+00 0.99999970E+00 0.99999990E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.45425134E-02 0.13622656E-01 0.27222166E-01 0.45304798E-01 + 0.67808588E-01 0.94635733E-01 0.12564384E+00 0.16063955E+00 0.19937136E+00 + 0.24152090E+00 0.28669682E+00 0.33443512E+00 0.38420459E+00 0.43541296E+00 + 0.48741307E+00 0.53951207E+00 0.59098615E+00 0.64110208E+00 0.68914639E+00 + 0.73445950E+00 0.77646801E+00 0.81471136E+00 0.84886461E+00 0.87875733E+00 + 0.90438243E+00 0.92588835E+00 0.94355479E+00 0.95775808E+00 0.96893392E+00 + 0.97754243E+00 0.98403792E+00 0.98884403E+00 0.99233555E+00 0.99482857E+00 + 0.99657876E+00 0.99778606E+00 0.99860279E+00 0.99914298E+00 0.99949085E+00 + 0.99970802E+00 0.99983885E+00 0.99991461E+00 0.99995666E+00 0.99997896E+00 + 0.99999024E+00 0.99999569E+00 0.99999818E+00 0.99999927E+00 0.99999972E+00 + 0.99999990E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.44750579E-02 0.13407524E-01 0.26762952E-01 0.44488805E-01 + 0.66511880E-01 0.92735444E-01 0.12303828E+00 0.15727326E+00 0.19525793E+00 + 0.23675459E+00 0.28144651E+00 0.32891941E+00 0.37865237E+00 0.43001915E+00 + 0.48230129E+00 0.53471499E+00 0.58645010E+00 0.63671324E+00 0.68476530E+00 + 0.72995033E+00 0.77171967E+00 0.80965600E+00 0.84349604E+00 0.87314355E+00 + 0.89866323E+00 0.92025472E+00 0.93821555E+00 0.95290422E+00 0.96470974E+00 + 0.97402909E+00 0.98125067E+00 0.98674102E+00 0.99083361E+00 0.99382087E+00 + 0.99595099E+00 0.99742965E+00 0.99842452E+00 0.99907038E+00 0.99947329E+00 + 0.99971401E+00 0.99985142E+00 0.99992624E+00 0.99996504E+00 0.99998420E+00 + 0.99999320E+00 0.99999721E+00 0.99999892E+00 0.99999960E+00 0.99999986E+00 + 0.99999995E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.42564420E-02 0.12766365E-01 0.25511949E-01 0.42455866E-01 + 0.63538296E-01 0.88674759E-01 0.11775248E+00 0.15062380E+00 0.18709744E+00 + 0.22692998E+00 0.26981917E+00 0.31539988E+00 0.36324258E+00 0.41285252E+00 + 0.46366787E+00 0.51505818E+00 0.56632737E+00 0.61672664E+00 0.66548236E+00 + 0.71184088E+00 0.75512494E+00 0.79478888E+00 0.83045918E+00 0.86195080E+00 + 0.88925731E+00 0.91252122E+00 0.93199665E+00 0.94801394E+00 0.96095011E+00 + 0.97120397E+00 0.97917508E+00 0.98524668E+00 0.98977310E+00 0.99307158E+00 + 0.99541793E+00 0.99704512E+00 0.99814400E+00 0.99886588E+00 0.99932671E+00 + 0.99961223E+00 0.99978368E+00 0.99988330E+00 0.99993921E+00 0.99996947E+00 + 0.99998524E+00 0.99999314E+00 0.99999694E+00 0.99999869E+00 0.99999946E+00 + 0.99999979E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.42044766E-02 0.12602087E-01 0.25172284E-01 0.41880902E-01 + 0.62675741E-01 0.87482460E-01 0.11620064E+00 0.14869977E+00 0.18481366E+00 + 0.22433058E+00 0.26697887E+00 0.31241211E+00 0.36019915E+00 0.40982089E+00 + 0.46067355E+00 0.51207853E+00 0.56330011E+00 0.61357202E+00 0.66213373E+00 + 0.70827469E+00 0.75137910E+00 0.79096074E+00 0.82668155E+00 0.85835571E+00 + 0.88594396E+00 0.90954074E+00 0.92935511E+00 0.94568707E+00 0.95890137E+00 + 0.96940010E+00 0.97759496E+00 0.98388192E+00 0.98862223E+00 0.99213205E+00 + 0.99467995E+00 0.99648947E+00 0.99774369E+00 0.99859008E+00 0.99914490E+00 + 0.99949747E+00 0.99971425E+00 0.99984301E+00 0.99991676E+00 0.99995746E+00 + 0.99997907E+00 0.99999009E+00 0.99999550E+00 0.99999803E+00 0.99999918E+00 + 0.99999967E+00 0.99999987E+00 0.99999995E+00 0.99999998E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.40317511E-02 0.12080843E-01 0.24126806E-01 0.40143584E-01 + 0.60096316E-01 0.83933580E-01 0.11157787E+00 0.14291810E+00 0.17780452E+00 + 0.21604270E+00 0.25738503E+00 0.30152142E+00 0.34806958E+00 0.39656529E+00 + 0.44645705E+00 0.49711084E+00 0.54782727E+00 0.59786878E+00 0.64649239E+00 + 0.69298421E+00 0.73669437E+00 0.77707394E+00 0.81371209E+00 0.84636404E+00 + 0.87495807E+00 0.89957882E+00 0.92043440E+00 0.93781922E+00 0.95208101E+00 + 0.96359465E+00 0.97274179E+00 0.97989446E+00 0.98540160E+00 0.98957833E+00 + 0.99269866E+00 0.99499273E+00 0.99664871E+00 0.99781818E+00 0.99862263E+00 + 0.99915919E+00 0.99950483E+00 0.99971917E+00 0.99984683E+00 0.99991975E+00 + 0.99995964E+00 0.99998054E+00 0.99999100E+00 0.99999602E+00 0.99999831E+00 + 0.99999932E+00 0.99999974E+00 0.99999990E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.38594318E-02 0.11572777E-01 0.23124939E-01 0.38490555E-01 + 0.57633277E-01 0.80503669E-01 0.10703432E+00 0.13713252E+00 0.17067230E+00 + 0.20748743E+00 0.24736616E+00 0.29004593E+00 0.33520503E+00 0.38244956E+00 + 0.43130012E+00 0.48118714E+00 0.53146137E+00 0.58142001E+00 0.63034322E+00 + 0.67753196E+00 0.72233705E+00 0.76417737E+00 0.80255754E+00 0.83709624E+00 + 0.86756204E+00 0.89389977E+00 0.91623090E+00 0.93482373E+00 0.95004400E+00 + 0.96230343E+00 0.97202008E+00 0.97959421E+00 0.98539575E+00 0.98975781E+00 + 0.99297313E+00 0.99529283E+00 0.99692749E+00 0.99804991E+00 0.99879891E+00 + 0.99928343E+00 0.99958654E+00 0.99976959E+00 0.99987611E+00 0.99993579E+00 + 0.99996795E+00 0.99998460E+00 0.99999289E+00 0.99999684E+00 0.99999866E+00 + 0.99999945E+00 0.99999979E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.36675762E-02 0.10999602E-01 0.21988262E-01 0.36620686E-01 + 0.54876791E-01 0.76725122E-01 0.10211747E+00 0.13098218E+00 0.16321691E+00 + 0.19868270E+00 0.23719968E+00 0.27854087E+00 0.32242097E+00 0.36848195E+00 + 0.41628205E+00 0.46529271E+00 0.51490484E+00 0.56444534E+00 0.61320578E+00 + 0.66048146E+00 0.70561144E+00 0.74800962E+00 0.78718609E+00 0.82276556E+00 + 0.85450603E+00 0.88231122E+00 0.90622840E+00 0.92643029E+00 0.94318713E+00 + 0.95683602E+00 0.96775185E+00 0.97632201E+00 0.98292573E+00 0.98791827E+00 + 0.99161997E+00 0.99430986E+00 0.99622351E+00 0.99755438E+00 0.99845743E+00 + 0.99905401E+00 0.99943687E+00 0.99967508E+00 0.99981852E+00 0.99990199E+00 + 0.99994887E+00 0.99997426E+00 0.99998750E+00 0.99999416E+00 0.99999737E+00 + 0.99999886E+00 0.99999953E+00 0.99999981E+00 0.99999993E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.35760181E-02 0.10723267E-01 0.21431874E-01 0.35687078E-01 + 0.53468949E-01 0.74751427E-01 0.99500347E-01 0.12766866E+00 0.15918748E+00 + 0.19395515E+00 0.23182670E+00 0.27260309E+00 0.31601893E+00 0.36173167E+00 + 0.40931490E+00 0.45825534E+00 0.50795336E+00 0.55773286E+00 0.60686591E+00 + 0.65461110E+00 0.70025741E+00 0.74316529E+00 0.78279997E+00 0.81875632E+00 + 0.85077595E+00 0.87875808E+00 0.90276113E+00 0.92298888E+00 0.93975902E+00 + 0.95346017E+00 0.96450804E+00 0.97330929E+00 0.98023739E+00 0.98562096E+00 + 0.98974224E+00 0.99284165E+00 0.99512425E+00 0.99676525E+00 0.99791352E+00 + 0.99869359E+00 0.99920703E+00 0.99953391E+00 0.99973495E+00 0.99985429E+00 + 0.99992261E+00 0.99996032E+00 0.99998037E+00 0.99999063E+00 0.99999570E+00 + 0.99999810E+00 0.99999919E+00 0.99999967E+00 0.99999987E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.34824292E-02 0.10440678E-01 0.20865369E-01 0.34744924E-01 + 0.52063670E-01 0.72797674E-01 0.96910201E-01 0.12434778E+00 0.15503691E+00 + 0.18888082E+00 0.22575477E+00 0.26549837E+00 0.30790414E+00 0.35270261E+00 + 0.39954817E+00 0.44800897E+00 0.49756045E+00 0.54758152E+00 0.59735886E+00 + 0.64611025E+00 0.69303149E+00 0.73735856E+00 0.77842891E+00 0.81572877E+00 + 0.84892323E+00 0.87787024E+00 0.90261777E+00 0.92338099E+00 0.94050012E+00 + 0.95438911E+00 0.96548868E+00 0.97423228E+00 0.98102496E+00 0.98623107E+00 + 0.99016774E+00 0.99310289E+00 0.99525756E+00 0.99681118E+00 0.99790818E+00 + 0.99866424E+00 0.99917126E+00 0.99950122E+00 0.99970916E+00 0.99983587E+00 + 0.99991043E+00 0.99995276E+00 0.99997594E+00 0.99998818E+00 0.99999440E+00 + 0.99999744E+00 0.99999888E+00 0.99999952E+00 0.99999981E+00 0.99999993E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.33582060E-02 0.10071295E-01 0.20135248E-01 0.33544733E-01 + 0.50290938E-01 0.70358719E-01 0.93723735E-01 0.12034886E+00 0.15017951E+00 + 0.18313836E+00 0.21911812E+00 0.25797063E+00 0.29949345E+00 0.34341647E+00 + 0.38938857E+00 0.43696554E+00 0.48560504E+00 0.53467638E+00 0.58348786E+00 + 0.63132692E+00 0.67750412E+00 0.72139140E+00 0.76244851E+00 0.80023881E+00 + 0.83443977E+00 0.86485164E+00 0.89140286E+00 0.91414944E+00 0.93326534E+00 + 0.94902310E+00 0.96176555E+00 0.97187324E+00 0.97973412E+00 0.98572115E+00 + 0.99017882E+00 0.99341657E+00 0.99570570E+00 0.99727792E+00 0.99832510E+00 + 0.99900057E+00 0.99942208E+00 0.99967636E+00 0.99982457E+00 0.99990800E+00 + 0.99995335E+00 0.99997714E+00 0.99998918E+00 0.99999506E+00 0.99999782E+00 + 0.99999908E+00 0.99999963E+00 0.99999985E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.32255695E-02 0.96743609E-02 0.19341984E-01 0.32221435E-01 + 0.48301713E-01 0.67566228E-01 0.89992072E-01 0.11554997E+00 0.14420244E+00 + 0.17589775E+00 0.21055990E+00 0.24807596E+00 0.28828287E+00 0.33095460E+00 + 0.37578899E+00 0.42239595E+00 0.47029252E+00 0.51891106E+00 0.56762192E+00 + 0.61576304E+00 0.66266594E+00 0.70767537E+00 0.75017087E+00 0.78959723E+00 + 0.82550190E+00 0.85756983E+00 0.88564526E+00 0.90973397E+00 0.92998704E+00 + 0.94667204E+00 0.96013862E+00 0.97078406E+00 0.97902228E+00 0.98525898E+00 + 0.98987348E+00 0.99320674E+00 0.99555462E+00 0.99716536E+00 0.99824038E+00 + 0.99893758E+00 0.99937658E+00 0.99964471E+00 0.99980348E+00 0.99989456E+00 + 0.99994515E+00 0.99997236E+00 0.99998651E+00 0.99999363E+00 0.99999710E+00 + 0.99999872E+00 0.99999946E+00 0.99999978E+00 0.99999991E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.31741073E-02 0.95191655E-02 0.19030649E-01 0.31702460E-01 + 0.47525098E-01 0.66482820E-01 0.88551383E-01 0.11369640E+00 0.14187094E+00 + 0.17301142E+00 0.20703173E+00 0.24381707E+00 0.28321805E+00 0.32504354E+00 + 0.36904897E+00 0.41491832E+00 0.46224434E+00 0.51051611E+00 0.55912265E+00 + 0.60737664E+00 0.65455433E+00 0.69994205E+00 0.74287905E+00 0.78279132E+00 + 0.81921896E+00 0.85183956E+00 0.88048410E+00 0.90513994E+00 0.92594011E+00 + 0.94314065E+00 0.95708873E+00 0.96818522E+00 0.97684788E+00 0.98348182E+00 + 0.98846063E+00 0.99211723E+00 0.99474082E+00 0.99657685E+00 0.99782832E+00 + 0.99865822E+00 0.99919315E+00 0.99952808E+00 0.99973166E+00 0.99985174E+00 + 0.99992045E+00 0.99995856E+00 0.99997906E+00 0.99998974E+00 0.99999513E+00 + 0.99999776E+00 0.99999901E+00 0.99999957E+00 0.99999982E+00 0.99999993E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.30574034E-02 0.91723382E-02 0.18344384E-01 0.30571607E-01 + 0.45848974E-01 0.64166545E-01 0.85507814E-01 0.10984835E+00 0.13715393E+00 + 0.16737679E+00 0.20044994E+00 0.23627965E+00 0.27473519E+00 0.31563668E+00 + 0.35874188E+00 0.40373265E+00 0.45020407E+00 0.49766046E+00 0.54551941E+00 + 0.59312693E+00 0.63978929E+00 0.68481727E+00 0.72757149E+00 0.76750134E+00 + 0.80417383E+00 0.83728917E+00 0.86668306E+00 0.89232076E+00 0.91428775E+00 + 0.93277648E+00 0.94806609E+00 0.96049476E+00 0.97042940E+00 0.97823877E+00 + 0.98427357E+00 0.98885424E+00 0.99226495E+00 0.99475191E+00 0.99652426E+00 + 0.99775625E+00 0.99858994E+00 0.99913825E+00 0.99948828E+00 0.99970494E+00 + 0.99983489E+00 0.99991039E+00 0.99995284E+00 0.99997595E+00 0.99998812E+00 + 0.99999432E+00 0.99999738E+00 0.99999883E+00 0.99999950E+00 0.99999979E+00 + 0.99999992E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.30681285E-02 0.92050141E-02 0.18411073E-01 0.30684870E-01 + 0.46021053E-01 0.64409187E-01 0.85833782E-01 0.11027353E+00 0.13769733E+00 + 0.16805747E+00 0.20128291E+00 0.23727435E+00 0.27589924E+00 0.31698306E+00 + 0.36029477E+00 0.40552912E+00 0.45229090E+00 0.50008753E+00 0.54833373E+00 + 0.59636790E+00 0.64347818E+00 0.68894014E+00 0.73206467E+00 0.77224674E+00 + 0.80900463E+00 0.84200600E+00 0.87108270E+00 0.89623244E+00 0.91760282E+00 + 0.93545805E+00 0.95013784E+00 0.96201927E+00 0.97148794E+00 0.97891803E+00 + 0.98465851E+00 0.98902394E+00 0.99228939E+00 0.99468927E+00 0.99641933E+00 + 0.99764033E+00 0.99848226E+00 0.99904837E+00 0.99941896E+00 0.99965481E+00 + 0.99980061E+00 0.99988808E+00 0.99993898E+00 0.99996770E+00 0.99998342E+00 + 0.99999174E+00 0.99999601E+00 0.99999814E+00 0.99999916E+00 0.99999963E+00 + 0.99999985E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.29704181E-02 0.89104507E-02 0.17818204E-01 0.29690769E-01 + 0.44523970E-01 0.62311501E-01 0.83043282E-01 0.10670310E+00 0.13326561E+00 + 0.16269186E+00 0.19492327E+00 0.22987504E+00 0.26743090E+00 0.30743792E+00 + 0.34969748E+00 0.39394932E+00 0.43985139E+00 0.48696246E+00 0.53473697E+00 + 0.58253680E+00 0.62965763E+00 0.67536646E+00 0.71894960E+00 0.75976835E+00 + 0.79731227E+00 0.83123496E+00 0.86136256E+00 0.88767683E+00 0.91028504E+00 + 0.92938868E+00 0.94525754E+00 0.95820905E+00 0.96859058E+00 0.97676227E+00 + 0.98307983E+00 0.98787872E+00 0.99146174E+00 0.99409146E+00 0.99598794E+00 + 0.99733050E+00 0.99826209E+00 0.99889456E+00 0.99931390E+00 0.99958496E+00 + 0.99975554E+00 0.99985991E+00 0.99992195E+00 0.99995776E+00 0.99997780E+00 + 0.99998868E+00 0.99999441E+00 0.99999732E+00 0.99999876E+00 0.99999944E+00 + 0.99999976E+00 0.99999990E+00 0.99999996E+00 0.99999999E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.29611073E-02 0.88827880E-02 0.17763408E-01 0.29600128E-01 + 0.44388447E-01 0.62121463E-01 0.82788894E-01 0.10637548E+00 0.13285866E+00 + 0.16220548E+00 0.19436840E+00 0.22927984E+00 0.26684527E+00 0.30693304E+00 + 0.34935899E+00 0.39386640E+00 0.44010590E+00 0.48762209E+00 0.53585173E+00 + 0.58413523E+00 0.63174342E+00 0.67792055E+00 0.72193887E+00 0.76315315E+00 + 0.80104360E+00 0.83524015E+00 0.86552912E+00 0.89184882E+00 0.91427953E+00 + 0.93302763E+00 0.94840170E+00 0.96078111E+00 0.97058115E+00 0.97821993E+00 + 0.98409106E+00 0.98854522E+00 0.99188123E+00 0.99434564E+00 0.99613791E+00 + 0.99741786E+00 0.99831304E+00 0.99892460E+00 0.99933187E+00 0.99959581E+00 + 0.99976208E+00 0.99986381E+00 0.99992423E+00 0.99995905E+00 0.99997851E+00 + 0.99998905E+00 0.99999459E+00 0.99999741E+00 0.99999880E+00 0.99999946E+00 + 0.99999977E+00 0.99999990E+00 0.99999996E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.28524275E-02 0.85568371E-02 0.17112247E-01 0.28516994E-01 + 0.42768349E-01 0.59862072E-01 0.79791792E-01 0.10254762E+00 0.12811385E+00 + 0.15646583E+00 0.18756569E+00 0.22135656E+00 0.25775443E+00 0.29663599E+00 + 0.33782204E+00 0.38105943E+00 0.42600879E+00 0.47224471E+00 0.51926510E+00 + 0.56649960E+00 0.61331687E+00 0.65904331E+00 0.70300003E+00 0.74455133E+00 + 0.78315302E+00 0.81839169E+00 0.85000720E+00 0.87789358E+00 0.90208064E+00 + 0.92270611E+00 0.93998829E+00 0.95420442E+00 0.96567394E+00 0.97474268E+00 + 0.98176594E+00 0.98709113E+00 0.99104274E+00 0.99391142E+00 0.99594787E+00 + 0.99736090E+00 0.99831880E+00 0.99895295E+00 0.99936275E+00 0.99962116E+00 + 0.99978010E+00 0.99987542E+00 0.99993114E+00 0.99996288E+00 0.99998050E+00 + 0.99999002E+00 0.99999502E+00 0.99999759E+00 0.99999886E+00 0.99999948E+00 + 0.99999977E+00 0.99999990E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.27618750E-02 0.82851168E-02 0.16568847E-01 0.27611590E-01 + 0.41410739E-01 0.57961818E-01 0.77257510E-01 0.99286391E-01 0.12403109E+00 + 0.15146555E+00 0.18155232E+00 0.21424070E+00 0.24946287E+00 0.28712443E+00 + 0.32708876E+00 0.36915780E+00 0.41305483E+00 0.45841567E+00 0.50478915E+00 + 0.55164236E+00 0.59836816E+00 0.64430008E+00 0.68874399E+00 0.73102815E+00 + 0.77055913E+00 0.80686605E+00 0.83962436E+00 0.86866223E+00 0.89395511E+00 + 0.91561039E+00 0.93384218E+00 0.94893965E+00 0.96123539E+00 0.97107929E+00 + 0.97881976E+00 0.98479091E+00 0.98930387E+00 0.99264096E+00 0.99505179E+00 + 0.99675120E+00 0.99791876E+00 0.99869987E+00 0.99920841E+00 0.99953043E+00 + 0.99972872E+00 0.99984741E+00 0.99991646E+00 0.99995551E+00 0.99997695E+00 + 0.99998840E+00 0.99999433E+00 0.99999731E+00 0.99999876E+00 0.99999945E+00 + 0.99999976E+00 0.99999990E+00 0.99999996E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + NUCLEUS 1 1 40 18 + 19.61414 0.15000 1.12000 3.78354 + 0.00000000E+00 0.21501297E-02 0.64500089E-02 0.12898350E-01 0.21493522E-01 + 0.32234146E-01 0.45118821E-01 0.60145073E-01 0.77307915E-01 0.96598249E-01 + 0.11800125E+00 0.14149482E+00 0.16704791E+00 0.19461805E+00 0.22414692E+00 + 0.25555480E+00 0.28873624E+00 0.32355834E+00 0.35986255E+00 0.39746881E+00 + 0.43617674E+00 0.47576066E+00 0.51596046E+00 0.55647360E+00 0.59695101E+00 + 0.63699796E+00 0.67618128E+00 0.71404683E+00 0.75015044E+00 0.78409472E+00 + 0.81555703E+00 0.84430225E+00 0.87018552E+00 0.89315147E+00 0.91323082E+00 + 0.93053052E+00 0.94521618E+00 0.95749221E+00 0.96758624E+00 0.97573993E+00 + 0.98220272E+00 0.98722443E+00 0.99104571E+00 0.99388888E+00 0.99595180E+00 + 0.99740598E+00 0.99839741E+00 0.99904820E+00 0.99945788E+00 0.99970442E+00 + 0.99984594E+00 0.99992333E+00 0.99996360E+00 0.99998353E+00 0.99999290E+00 + 0.99999709E+00 0.99999887E+00 0.99999958E+00 0.99999985E+00 0.99999995E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.21294780E-02 0.63886999E-02 0.12777676E-01 0.21295880E-01 + 0.31942091E-01 0.44714722E-01 0.59611178E-01 0.76624748E-01 0.95740540E-01 + 0.11693374E+00 0.14017140E+00 0.16541530E+00 0.19262285E+00 0.22174448E+00 + 0.25271848E+00 0.28546405E+00 0.31987352E+00 0.35580467E+00 0.39307649E+00 + 0.43146920E+00 0.47072508E+00 0.51054632E+00 0.55059330E+00 0.59048971E+00 + 0.62983585E+00 0.66822765E+00 0.70527763E+00 0.74063251E+00 0.77398448E+00 + 0.80507831E+00 0.83371754E+00 0.85976921E+00 0.88316513E+00 0.90390009E+00 + 0.92202813E+00 0.93765647E+00 0.95093604E+00 0.96204974E+00 0.97120084E+00 + 0.97860308E+00 0.98447280E+00 0.98902334E+00 0.99246131E+00 0.99498361E+00 + 0.99677417E+00 0.99799994E+00 0.99880674E+00 0.99931608E+00 0.99962392E+00 + 0.99980180E+00 0.99989998E+00 0.99995171E+00 0.99997771E+00 0.99999017E+00 + 0.99999587E+00 0.99999834E+00 0.99999937E+00 0.99999977E+00 0.99999992E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.20991974E-02 0.62970050E-02 0.12594051E-01 0.20991267E-01 + 0.31488460E-01 0.44083072E-01 0.58769649E-01 0.75539589E-01 0.94380202E-01 + 0.11527304E+00 0.13819257E+00 0.16310587E+00 0.18997178E+00 0.21873713E+00 + 0.24932964E+00 0.28165100E+00 0.31557445E+00 0.35094697E+00 0.38759266E+00 + 0.42531360E+00 0.46388747E+00 0.50306273E+00 0.54255333E+00 0.58203544E+00 + 0.62115016E+00 0.65951558E+00 0.69674804E+00 0.73248514E+00 0.76640180E+00 + 0.79821688E+00 0.82769626E+00 0.85465851E+00 0.87898304E+00 0.90061589E+00 + 0.91957009E+00 0.93592141E+00 0.94980103E+00 0.96138516E+00 0.97088221E+00 + 0.97851950E+00 0.98453173E+00 0.98915275E+00 0.99260991E+00 0.99511950E+00 + 0.99688183E+00 0.99807598E+00 0.99885510E+00 0.99934376E+00 0.99963804E+00 + 0.99980804E+00 0.99990219E+00 0.99995215E+00 0.99997754E+00 0.99998989E+00 + 0.99999564E+00 0.99999820E+00 0.99999929E+00 0.99999973E+00 0.99999991E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.21076637E-02 0.63207903E-02 0.12638684E-01 0.21062258E-01 + 0.31592934E-01 0.44230675E-01 0.58972237E-01 0.75810374E-01 0.94733342E-01 + 0.11572353E+00 0.13875552E+00 0.16379472E+00 0.19079638E+00 0.21970328E+00 + 0.25044164E+00 0.28291710E+00 0.31701178E+00 0.35258187E+00 0.38945451E+00 + 0.42742414E+00 0.46624904E+00 0.50564985E+00 0.54531155E+00 0.58488931E+00 + 0.62401705E+00 0.66231752E+00 0.69941485E+00 0.73495000E+00 0.76859749E+00 + 0.80007978E+00 0.82917640E+00 0.85572846E+00 0.87964056E+00 0.90088160E+00 + 0.91948385E+00 0.93553864E+00 0.94918828E+00 0.96061481E+00 0.97002684E+00 + 0.97764645E+00 0.98369829E+00 0.98840234E+00 0.99196994E+00 0.99460132E+00 + 0.99648290E+00 0.99778361E+00 0.99865091E+00 0.99920776E+00 0.99955159E+00 + 0.99975556E+00 0.99987176E+00 0.99993528E+00 0.99996861E+00 0.99998537E+00 + 0.99999346E+00 0.99999719E+00 0.99999885E+00 0.99999955E+00 0.99999983E+00 + 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.20592369E-02 0.61760672E-02 0.12348790E-01 0.20575835E-01 + 0.30855601E-01 0.43186134E-01 0.57564682E-01 0.73986767E-01 0.92444522E-01 + 0.11292460E+00 0.13540617E+00 0.15985903E+00 0.18624164E+00 0.21449847E+00 + 0.24455733E+00 0.27632707E+00 0.30969566E+00 0.34452755E+00 0.38065961E+00 + 0.41789684E+00 0.45600958E+00 0.49473319E+00 0.53377049E+00 0.57279632E+00 + 0.61146441E+00 0.64941751E+00 0.68630146E+00 0.72178132E+00 0.75555556E+00 + 0.78736480E+00 0.81699548E+00 0.84428140E+00 0.86910503E+00 0.89139893E+00 + 0.91114679E+00 0.92838319E+00 0.94319184E+00 0.95570166E+00 0.96608082E+00 + 0.97452859E+00 0.98126572E+00 0.98652362E+00 0.99053367E+00 0.99351761E+00 + 0.99568002E+00 0.99720309E+00 0.99824358E+00 0.99893167E+00 0.99937143E+00 + 0.99964263E+00 0.99980384E+00 0.99989614E+00 0.99994699E+00 0.99997394E+00 + 0.99998767E+00 0.99999439E+00 0.99999754E+00 0.99999897E+00 0.99999959E+00 + 0.99999984E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.19769782E-02 0.59297500E-02 0.11857365E-01 0.19759133E-01 + 0.29634245E-01 0.41481069E-01 0.55296287E-01 0.71074050E-01 0.88805199E-01 + 0.10847638E+00 0.13006882E+00 0.15355682E+00 0.17890585E+00 0.20607063E+00 + 0.23499362E+00 0.26560443E+00 0.29781920E+00 0.33153758E+00 0.36663624E+00 + 0.40296088E+00 0.44032107E+00 0.47848973E+00 0.51720646E+00 0.55618218E+00 + 0.59510293E+00 0.63363247E+00 0.67141593E+00 0.70808762E+00 0.74328398E+00 + 0.77666060E+00 0.80791020E+00 0.83677895E+00 0.86307877E+00 0.88669402E+00 + 0.90758238E+00 0.92577063E+00 0.94134727E+00 0.95445377E+00 0.96527580E+00 + 0.97403404E+00 0.98097369E+00 0.98635218E+00 0.99042617E+00 0.99343943E+00 + 0.99561358E+00 0.99714210E+00 0.99818782E+00 0.99888305E+00 0.99933158E+00 + 0.99961204E+00 0.99978180E+00 0.99988119E+00 0.99993741E+00 0.99996813E+00 + 0.99998432E+00 0.99999255E+00 0.99999659E+00 0.99999850E+00 0.99999936E+00 + 0.99999974E+00 0.99999990E+00 0.99999996E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.19591806E-02 0.58779696E-02 0.11756850E-01 0.19596248E-01 + 0.29396019E-01 0.41154595E-01 0.54868106E-01 0.70529720E-01 0.88129251E-01 + 0.10765276E+00 0.12908178E+00 0.15239193E+00 0.17755094E+00 0.20451609E+00 + 0.23323186E+00 0.26362839E+00 0.29562059E+00 0.32910623E+00 0.36396172E+00 + 0.40003632E+00 0.43714644E+00 0.47507198E+00 0.51355529E+00 0.55230325E+00 + 0.59099252E+00 0.62927797E+00 0.66680331E+00 0.70321276E+00 0.73816218E+00 + 0.77132972E+00 0.80242758E+00 0.83121471E+00 0.85750880E+00 0.88119509E+00 + 0.90223032E+00 0.92064120E+00 0.93651746E+00 0.95000086E+00 0.96127226E+00 + 0.97053857E+00 0.97802118E+00 0.98394656E+00 0.98853912E+00 0.99201562E+00 + 0.99458038E+00 0.99642071E+00 0.99770280E+00 0.99856872E+00 0.99913506E+00 + 0.99949340E+00 0.99971260E+00 0.99984217E+00 0.99991614E+00 0.99995692E+00 + 0.99997861E+00 0.99998974E+00 0.99999525E+00 0.99999788E+00 0.99999909E+00 + 0.99999962E+00 0.99999985E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.19000405E-02 0.57001424E-02 0.11399499E-01 0.18996348E-01 + 0.28488120E-01 0.39871722E-01 0.53143789E-01 0.68300635E-01 0.85337574E-01 + 0.10424751E+00 0.12501908E+00 0.14763499E+00 0.17207105E+00 0.19829592E+00 + 0.22627023E+00 0.25594440E+00 0.28725483E+00 0.32011902E+00 0.35443029E+00 + 0.39005300E+00 0.42681919E+00 0.46452626E+00 0.50293431E+00 0.54176337E+00 + 0.58069300E+00 0.61936729E+00 0.65740569E+00 0.69441778E+00 0.73002026E+00 + 0.76385496E+00 0.79560621E+00 0.82501596E+00 0.85189518E+00 0.87613032E+00 + 0.89768363E+00 0.91658713E+00 0.93293229E+00 0.94685833E+00 0.95854133E+00 + 0.96818438E+00 0.97600816E+00 0.98224172E+00 0.98711366E+00 0.99084429E+00 + 0.99363929E+00 0.99568498E+00 0.99714538E+00 0.99816066E+00 0.99884700E+00 + 0.99929754E+00 0.99958442E+00 0.99976144E+00 0.99986721E+00 0.99992837E+00 + 0.99996258E+00 0.99998107E+00 0.99999074E+00 0.99999562E+00 0.99999800E+00 + 0.99999912E+00 0.99999963E+00 0.99999985E+00 0.99999994E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.18440476E-02 0.55314976E-02 0.11062012E-01 0.18435540E-01 + 0.27651847E-01 0.38709784E-01 0.51606666E-01 0.66337958E-01 0.82897310E-01 + 0.10127674E+00 0.12146653E+00 0.14345444E+00 0.16722398E+00 0.19275203E+00 + 0.22000608E+00 0.24894153E+00 0.27949932E+00 0.31160331E+00 0.34515711E+00 + 0.38004074E+00 0.41610766E+00 0.45318172E+00 0.49105284E+00 0.52947161E+00 + 0.56814507E+00 0.60673674E+00 0.64487313E+00 0.68215778E+00 0.71819150E+00 + 0.75259492E+00 0.78502883E+00 0.81520989E+00 0.84292168E+00 0.86802150E+00 + 0.89044264E+00 0.91019191E+00 0.92734295E+00 0.94202620E+00 0.95441626E+00 + 0.96471790E+00 0.97315223E+00 0.97994493E+00 0.98531774E+00 0.98948315E+00 + 0.99264135E+00 0.99497786E+00 0.99666112E+00 0.99783991E+00 0.99864129E+00 + 0.99916965E+00 0.99950723E+00 0.99971617E+00 0.99984139E+00 0.99991404E+00 + 0.99995484E+00 0.99997701E+00 0.99998866E+00 0.99999459E+00 0.99999750E+00 + 0.99999889E+00 0.99999952E+00 0.99999980E+00 0.99999992E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.17671163E-02 0.53011568E-02 0.10601575E-01 0.17667600E-01 + 0.26498206E-01 0.37091917E-01 0.49446693E-01 0.63560004E-01 0.79428765E-01 + 0.97048718E-01 0.11641336E+00 0.13751284E+00 0.16033300E+00 0.18485459E+00 + 0.21105208E+00 0.23889182E+00 0.26832947E+00 0.29930683E+00 0.33174848E+00 + 0.36555794E+00 0.40061335E+00 0.43676301E+00 0.47382110E+00 0.51156362E+00 + 0.54972538E+00 0.58800064E+00 0.62604930E+00 0.66350806E+00 0.70000363E+00 + 0.73516563E+00 0.76863974E+00 0.80010177E+00 0.82927288E+00 0.85593497E+00 + 0.87994415E+00 0.90123891E+00 0.91984004E+00 0.93584190E+00 0.94939775E+00 + 0.96070314E+00 0.96998042E+00 0.97746567E+00 0.98339792E+00 0.98801049E+00 + 0.99152419E+00 0.99414234E+00 0.99604739E+00 0.99739886E+00 0.99833223E+00 + 0.99895904E+00 0.99936794E+00 0.99962688E+00 0.99978597E+00 0.99988076E+00 + 0.99993550E+00 0.99996615E+00 0.99998277E+00 0.99999150E+00 0.99999594E+00 + 0.99999812E+00 0.99999916E+00 0.99999964E+00 0.99999985E+00 0.99999994E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.17206407E-02 0.51624750E-02 0.10325768E-01 0.17210507E-01 + 0.25816404E-01 0.36142789E-01 0.48188418E-01 0.61951302E-01 0.77428600E-01 + 0.94616503E-01 0.11351001E+00 0.13410244E+00 0.15638466E+00 0.18034431E+00 + 0.20596487E+00 0.23322416E+00 0.26209178E+00 0.29252571E+00 0.32446872E+00 + 0.35784504E+00 0.39255602E+00 0.42847381E+00 0.46543339E+00 0.50322478E+00 + 0.54158802E+00 0.58021306E+00 0.61874625E+00 0.65680327E+00 0.69398499E+00 + 0.72989253E+00 0.76414038E+00 0.79637105E+00 0.82627366E+00 0.85360496E+00 + 0.87820638E+00 0.90001128E+00 0.91904057E+00 0.93539011E+00 0.94921469E+00 + 0.96071251E+00 0.97011159E+00 0.97765766E+00 0.98360303E+00 0.98819614E+00 + 0.99167262E+00 0.99424822E+00 0.99611415E+00 0.99743461E+00 0.99834645E+00 + 0.99896025E+00 0.99936265E+00 0.99961938E+00 0.99977868E+00 0.99987476E+00 + 0.99993106E+00 0.99996310E+00 0.99998081E+00 0.99999031E+00 0.99999525E+00 + 0.99999774E+00 0.99999896E+00 0.99999954E+00 0.99999980E+00 0.99999992E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16714605E-02 0.50140082E-02 0.10027095E-01 0.16710113E-01 + 0.25062583E-01 0.35084303E-01 0.46775351E-01 0.60135872E-01 0.75165694E-01 + 0.91863810E-01 0.11022791E+00 0.13025404E+00 0.15193630E+00 0.17526618E+00 + 0.20023119E+00 0.22681286E+00 0.25498474E+00 0.28471016E+00 0.31593939E+00 + 0.34860540E+00 0.38261782E+00 0.41785548E+00 0.45415850E+00 0.49132109E+00 + 0.52908760E+00 0.56715481E+00 0.60518122E+00 0.64280083E+00 0.67963769E+00 + 0.71531908E+00 0.74948804E+00 0.78181648E+00 0.81201920E+00 0.83986706E+00 + 0.86519717E+00 0.88791844E+00 0.90801169E+00 0.92552503E+00 0.94056515E+00 + 0.95328592E+00 0.96387587E+00 0.97254593E+00 0.97951880E+00 0.98502015E+00 + 0.98927155E+00 0.99248460E+00 0.99485584E+00 0.99656247E+00 0.99775902E+00 + 0.99857559E+00 0.99911766E+00 0.99946756E+00 0.99968711E+00 0.99982099E+00 + 0.99990033E+00 0.99994600E+00 0.99997154E+00 0.99998542E+00 0.99999274E+00 + 0.99999649E+00 0.99999835E+00 0.99999925E+00 0.99999967E+00 0.99999986E+00 + 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15842225E-02 0.47526717E-02 0.95053649E-02 0.15842326E-01 + 0.23763492E-01 0.33268605E-01 0.44357177E-01 0.57028465E-01 0.71281386E-01 + 0.87114373E-01 0.10452526E+00 0.12351114E+00 0.14406801E+00 0.16619010E+00 + 0.18986895E+00 0.21509236E+00 0.24184303E+00 0.27009666E+00 0.29981910E+00 + 0.33096304E+00 0.36346426E+00 0.39723742E+00 0.43217100E+00 0.46812116E+00 + 0.50490496E+00 0.54229456E+00 0.58001482E+00 0.61774623E+00 0.65513285E+00 + 0.69179321E+00 0.72733328E+00 0.76136262E+00 0.79351380E+00 0.82346360E+00 + 0.85095275E+00 0.87580125E+00 0.89791625E+00 0.91729119E+00 0.93399680E+00 + 0.94816716E+00 0.95998416E+00 0.96966307E+00 0.97744014E+00 0.98356204E+00 + 0.98827653E+00 0.99182373E+00 0.99442826E+00 0.99629266E+00 0.99759274E+00 + 0.99847536E+00 0.99905847E+00 0.99943327E+00 0.99966759E+00 0.99981006E+00 + 0.99989430E+00 0.99994274E+00 0.99996981E+00 0.99998451E+00 0.99999228E+00 + 0.99999626E+00 0.99999824E+00 0.99999920E+00 0.99999965E+00 0.99999985E+00 + 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15490748E-02 0.46471677E-02 0.92941531E-02 0.15489797E-01 + 0.23233747E-01 0.32525514E-01 0.43364395E-01 0.55749399E-01 0.69679206E-01 + 0.85152207E-01 0.10216662E+00 0.12072053E+00 0.14081168E+00 0.16243678E+00 + 0.18559063E+00 0.21026501E+00 0.23644780E+00 0.26412176E+00 0.29326238E+00 + 0.32383443E+00 0.35578723E+00 0.38904878E+00 0.42351992E+00 0.45906931E+00 + 0.49552877E+00 0.53268755E+00 0.57028583E+00 0.60801122E+00 0.64550319E+00 + 0.68236675E+00 0.71819177E+00 0.75257349E+00 0.78513274E+00 0.81553618E+00 + 0.84351620E+00 0.86888656E+00 0.89154955E+00 0.91149299E+00 0.92877973E+00 + 0.94353370E+00 0.95592597E+00 0.96616186E+00 0.97446939E+00 0.98108832E+00 + 0.98626002E+00 0.99021852E+00 0.99318321E+00 0.99535330E+00 0.99690417E+00 + 0.99798530E+00 0.99871994E+00 0.99920628E+00 0.99951986E+00 0.99971671E+00 + 0.99983702E+00 0.99990860E+00 0.99995004E+00 0.99997340E+00 0.99998621E+00 + 0.99999304E+00 0.99999658E+00 0.99999837E+00 0.99999925E+00 0.99999966E+00 + 0.99999985E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15104506E-02 0.45312650E-02 0.90623434E-02 0.15103594E-01 + 0.22654910E-01 0.31716126E-01 0.42286979E-01 0.54367033E-01 0.67955540E-01 + 0.83051395E-01 0.99653304E-01 0.11776000E+00 0.13737006E+00 0.15848122E+00 + 0.18108946E+00 0.20518812E+00 0.23076677E+00 0.25780955E+00 0.28629279E+00 + 0.31618196E+00 0.34742846E+00 0.37996599E+00 0.41370659E+00 0.44853562E+00 + 0.48430574E+00 0.52083019E+00 0.55787653E+00 0.59516209E+00 0.63235366E+00 + 0.66907423E+00 0.70491837E+00 0.73947566E+00 0.77235859E+00 0.80322947E+00 + 0.83182022E+00 0.85794189E+00 0.88148478E+00 0.90241266E+00 0.92075457E+00 + 0.93659550E+00 0.95006651E+00 0.96133491E+00 0.97059516E+00 0.97806088E+00 + 0.98395718E+00 0.98851288E+00 0.99195224E+00 0.99448690E+00 0.99630894E+00 + 0.99758583E+00 0.99845789E+00 0.99903820E+00 0.99941441E+00 0.99965202E+00 + 0.99979821E+00 0.99988584E+00 0.99993700E+00 0.99996610E+00 0.99998222E+00 + 0.99999092E+00 0.99999548E+00 0.99999781E+00 0.99999897E+00 0.99999953E+00 + 0.99999980E+00 0.99999991E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14835903E-02 0.44507337E-02 0.89014459E-02 0.14835771E-01 + 0.22253677E-01 0.31154963E-01 0.41539307E-01 0.53406428E-01 0.66756168E-01 + 0.81588378E-01 0.97902629E-01 0.11569785E+00 0.13497199E+00 0.15572172E+00 + 0.17794203E+00 0.20162581E+00 0.22676306E+00 0.25333967E+00 0.28133569E+00 + 0.31072319E+00 0.34146340E+00 0.37350280E+00 0.40676753E+00 0.44115715E+00 + 0.47653947E+00 0.51274582E+00 0.54956489E+00 0.58673581E+00 0.62394498E+00 + 0.66083127E+00 0.69700051E+00 0.73204643E+00 0.76557504E+00 0.79722815E+00 + 0.82670211E+00 0.85375968E+00 0.87823556E+00 0.90003783E+00 0.91914699E+00 + 0.93561325E+00 0.94955143E+00 0.96113279E+00 0.97057334E+00 0.97811919E+00 + 0.98403069E+00 0.98856763E+00 0.99197693E+00 0.99448385E+00 0.99628652E+00 + 0.99755337E+00 0.99842306E+00 0.99900602E+00 0.99938747E+00 0.99963106E+00 + 0.99978286E+00 0.99987515E+00 0.99992990E+00 0.99996157E+00 0.99997944E+00 + 0.99998927E+00 0.99999454E+00 0.99999730E+00 0.99999870E+00 0.99999939E+00 + 0.99999972E+00 0.99999988E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14468298E-02 0.43404715E-02 0.86808806E-02 0.14467987E-01 + 0.21701722E-01 0.30382056E-01 0.40508980E-01 0.52082461E-01 0.65102389E-01 + 0.79568555E-01 0.95480592E-01 0.11283793E+00 0.13163979E+00 0.15188513E+00 + 0.17357247E+00 0.19669960E+00 0.22126301E+00 0.24725693E+00 0.27467154E+00 + 0.30349037E+00 0.33368699E+00 0.36522088E+00 0.39803236E+00 0.43203632E+00 + 0.46711514E+00 0.50311141E+00 0.53982112E+00 0.57698942E+00 0.61431038E+00 + 0.65143156E+00 0.68796352E+00 0.72349504E+00 0.75761412E+00 0.78993192E+00 + 0.82010596E+00 0.84785979E+00 0.87299692E+00 0.89540757E+00 0.91506810E+00 + 0.93203422E+00 0.94643038E+00 0.95843673E+00 0.96827462E+00 0.97619130E+00 + 0.98244493E+00 0.98729131E+00 0.99097337E+00 0.99371377E+00 0.99571015E+00 + 0.99713274E+00 0.99812373E+00 0.99879833E+00 0.99924694E+00 0.99953833E+00 + 0.99972318E+00 0.99983770E+00 0.99990697E+00 0.99994788E+00 0.99997147E+00 + 0.99998475E+00 0.99999204E+00 0.99999595E+00 0.99999799E+00 0.99999903E+00 + 0.99999955E+00 0.99999979E+00 0.99999991E+00 0.99999996E+00 0.99999999E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14071593E-02 0.42214505E-02 0.84428416E-02 0.14071275E-01 + 0.21106663E-01 0.29548897E-01 0.39397871E-01 0.50653483E-01 0.63315606E-01 + 0.77383975E-01 0.92858043E-01 0.10973685E+00 0.12801894E+00 0.14770239E+00 + 0.16878467E+00 0.19126229E+00 0.21513022E+00 0.24038107E+00 0.26700394E+00 + 0.29498273E+00 0.32429386E+00 0.35490353E+00 0.38676379E+00 0.41980617E+00 + 0.45393361E+00 0.48901197E+00 0.52486306E+00 0.56126064E+00 0.59793023E+00 + 0.63455278E+00 0.67077183E+00 0.70620485E+00 0.74045995E+00 0.77315721E+00 + 0.80395102E+00 0.83254896E+00 0.85872533E+00 0.88232949E+00 0.90328969E+00 + 0.92161192E+00 0.93737362E+00 0.95071302E+00 0.96181559E+00 0.97089947E+00 + 0.97820125E+00 0.98396317E+00 0.98842275E+00 0.99180479E+00 0.99431549E+00 + 0.99613842E+00 0.99743205E+00 0.99832886E+00 0.99893601E+00 0.99933738E+00 + 0.99959642E+00 0.99975965E+00 0.99986006E+00 0.99992037E+00 0.99995572E+00 + 0.99997595E+00 0.99998724E+00 0.99999340E+00 0.99999667E+00 0.99999836E+00 + 0.99999922E+00 0.99999964E+00 0.99999984E+00 0.99999993E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13925633E-02 0.41776706E-02 0.83552601E-02 0.13925237E-01 + 0.20887510E-01 0.29242006E-01 0.38988671E-01 0.50127459E-01 0.62658325E-01 + 0.76581215E-01 0.91896002E-01 0.10860241E+00 0.12669995E+00 0.14618781E+00 + 0.16706456E+00 0.18932782E+00 0.21297373E+00 0.23799626E+00 0.26438613E+00 + 0.29212943E+00 0.32120593E+00 0.35158672E+00 0.38323024E+00 0.41607655E+00 + 0.45004044E+00 0.48500405E+00 0.52080897E+00 0.55724816E+00 0.59405924E+00 + 0.63092267E+00 0.66746782E+00 0.70328826E+00 0.73796460E+00 0.77109112E+00 + 0.80230080E+00 0.83128502E+00 0.85780699E+00 0.88170964E+00 0.90291837E+00 + 0.92143886E+00 0.93735022E+00 0.95079435E+00 0.96196236E+00 0.97107936E+00 + 0.97838942E+00 0.98414222E+00 0.98858201E+00 0.99193914E+00 0.99442392E+00 + 0.99622255E+00 0.99749497E+00 0.99837428E+00 0.99896767E+00 0.99935868E+00 + 0.99961027E+00 0.99976834E+00 0.99986533E+00 0.99992345E+00 0.99995747E+00 + 0.99997690E+00 0.99998775E+00 0.99999366E+00 0.99999679E+00 0.99999842E+00 + 0.99999924E+00 0.99999965E+00 0.99999984E+00 0.99999993E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13698966E-02 0.41096885E-02 0.82193540E-02 0.13698833E-01 + 0.20548027E-01 0.28766829E-01 0.38355191E-01 0.49313172E-01 0.61640925E-01 + 0.75338554E-01 0.90405925E-01 0.10684258E+00 0.12464775E+00 0.14382022E+00 + 0.16435828E+00 0.18625955E+00 0.20952069E+00 0.23413678E+00 0.26010023E+00 + 0.28739952E+00 0.31601776E+00 0.34593044E+00 0.37710177E+00 0.40947899E+00 + 0.44298464E+00 0.47750820E+00 0.51289841E+00 0.54895846E+00 0.58544538E+00 + 0.62207317E+00 0.65851657E+00 0.69441476E+00 0.72937770E+00 0.76299952E+00 + 0.79488079E+00 0.82465693E+00 0.85202612E+00 0.87677052E+00 0.89876737E+00 + 0.91799057E+00 0.93450445E+00 0.94845086E+00 0.96003122E+00 0.96948610E+00 + 0.97707550E+00 0.98306257E+00 0.98770148E+00 0.99122915E+00 0.99386003E+00 + 0.99578289E+00 0.99715939E+00 0.99812407E+00 0.99878575E+00 0.99922982E+00 + 0.99952139E+00 0.99970867E+00 0.99982634E+00 0.99989865E+00 0.99994210E+00 + 0.99996764E+00 0.99998230E+00 0.99999054E+00 0.99999506E+00 0.99999748E+00 + 0.99999875E+00 0.99999939E+00 0.99999972E+00 0.99999987E+00 0.99999994E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13384542E-02 0.40153571E-02 0.80306983E-02 0.13384468E-01 + 0.20076652E-01 0.28107224E-01 0.37476175E-01 0.48183527E-01 0.60229288E-01 + 0.73613368E-01 0.88335550E-01 0.10439551E+00 0.12179278E+00 0.14052675E+00 + 0.16059657E+00 0.18200124E+00 0.20473945E+00 0.22880886E+00 0.25420464E+00 + 0.28091786E+00 0.30893390E+00 0.33823033E+00 0.36877366E+00 0.40051428E+00 + 0.43337997E+00 0.46726858E+00 0.50204106E+00 0.53751551E+00 0.57346349E+00 + 0.60960995E+00 0.64563740E+00 0.68119467E+00 0.71591063E+00 0.74941201E+00 + 0.78134267E+00 0.81138135E+00 0.83925632E+00 0.86475668E+00 0.88774009E+00 + 0.90813610E+00 0.92594487E+00 0.94123217E+00 0.95412217E+00 0.96478869E+00 + 0.97344453E+00 0.98032874E+00 0.98569260E+00 0.98978569E+00 0.99284408E+00 + 0.99508150E+00 0.99668388E+00 0.99780728E+00 0.99857822E+00 0.99909611E+00 + 0.99943665E+00 0.99965585E+00 0.99979395E+00 0.99987912E+00 0.99993053E+00 + 0.99996090E+00 0.99997845E+00 0.99998838E+00 0.99999387E+00 0.99999684E+00 + 0.99999841E+00 0.99999922E+00 0.99999963E+00 0.99999983E+00 0.99999992E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13299647E-02 0.39898962E-02 0.79797967E-02 0.13299664E-01 + 0.19949487E-01 0.27929248E-01 0.37238923E-01 0.47878478E-01 0.59847872E-01 + 0.73147059E-01 0.87775970E-01 0.10373448E+00 0.12102236E+00 0.13963927E+00 + 0.15958461E+00 0.18085739E+00 0.20345586E+00 0.22737691E+00 0.25261517E+00 + 0.27916163E+00 0.30700175E+00 0.33611302E+00 0.36646177E+00 0.39799869E+00 + 0.43065311E+00 0.46432655E+00 0.49888654E+00 0.53416205E+00 0.56994077E+00 + 0.60596767E+00 0.64194482E+00 0.67753433E+00 0.71236704E+00 0.74605781E+00 + 0.77822614E+00 0.80851957E+00 0.83663639E+00 0.86234427E+00 0.88549205E+00 + 0.90601317E+00 0.92392138E+00 0.93930084E+00 0.95229344E+00 0.96308541E+00 + 0.97189405E+00 0.97895509E+00 0.98451082E+00 0.98879936E+00 0.99204558E+00 + 0.99445423E+00 0.99620548E+00 0.99745275E+00 0.99832276E+00 0.99891696E+00 + 0.99931428E+00 0.99957437E+00 0.99974104E+00 0.99984559E+00 0.99990978E+00 + 0.99994836E+00 0.99997105E+00 0.99998411E+00 0.99999147E+00 0.99999552E+00 + 0.99999770E+00 0.99999885E+00 0.99999944E+00 0.99999973E+00 0.99999988E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13051746E-02 0.39155258E-02 0.78310561E-02 0.13051765E-01 + 0.19577643E-01 0.27408677E-01 0.36544845E-01 0.46986129E-01 0.58732515E-01 + 0.71783992E-01 0.86140518E-01 0.10180197E+00 0.11876808E+00 0.13703843E+00 + 0.15661245E+00 0.17748936E+00 0.19966797E+00 0.22314653E+00 0.24792217E+00 + 0.27398968E+00 0.30133906E+00 0.32995275E+00 0.35980290E+00 0.39084845E+00 + 0.42303115E+00 0.45627036E+00 0.49045639E+00 0.52544217E+00 0.56103459E+00 + 0.59698792E+00 0.63300349E+00 0.66873751E+00 0.70381513E+00 0.73784747E+00 + 0.77044984E+00 0.80126126E+00 0.82996518E+00 0.85630907E+00 0.88011887E+00 + 0.90130572E+00 0.91986415E+00 0.93586350E+00 0.94943486E+00 0.96075629E+00 + 0.97003851E+00 0.97751213E+00 0.98341658E+00 0.98799028E+00 0.99146184E+00 + 0.99404270E+00 0.99592144E+00 0.99726044E+00 0.99819479E+00 0.99883315E+00 + 0.99926021E+00 0.99953998E+00 0.99971948E+00 0.99983227E+00 0.99990167E+00 + 0.99994350E+00 0.99996819E+00 0.99998245E+00 0.99999052E+00 0.99999499E+00 + 0.99999741E+00 0.99999869E+00 0.99999936E+00 0.99999969E+00 0.99999986E+00 + 0.99999994E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12671143E-02 0.38013430E-02 0.76026828E-02 0.12671130E-01 + 0.19006682E-01 0.26609337E-01 0.35479092E-01 0.45615936E-01 0.57019850E-01 + 0.69690797E-01 0.83628713E-01 0.98833501E-01 0.11530505E+00 0.13304326E+00 + 0.15204792E+00 0.17231858E+00 0.19385421E+00 0.21665282E+00 0.24071084E+00 + 0.26602239E+00 0.29257839E+00 0.32036520E+00 0.34936273E+00 0.37954150E+00 + 0.41085813E+00 0.44324919E+00 0.47662477E+00 0.51086309E+00 0.54580561E+00 + 0.58125050E+00 0.61694561E+00 0.65258587E+00 0.68781981E+00 0.72226460E+00 + 0.75552624E+00 0.78722144E+00 0.81699928E+00 0.84456137E+00 0.86967875E+00 + 0.89220365E+00 0.91207432E+00 0.92931253E+00 0.94401447E+00 0.95633758E+00 + 0.96648527E+00 0.97469147E+00 0.98120585E+00 0.98628042E+00 0.99015814E+00 + 0.99306406E+00 0.99519913E+00 0.99673688E+00 0.99782241E+00 0.99857344E+00 + 0.99908266E+00 0.99942104E+00 0.99964141E+00 0.99978206E+00 0.99987005E+00 + 0.99992399E+00 0.99995640E+00 0.99997548E+00 0.99998649E+00 0.99999271E+00 + 0.99999615E+00 0.99999801E+00 0.99999900E+00 0.99999951E+00 0.99999977E+00 + 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.24337043E-02 0.73020759E-02 0.14604793E-01 0.24337825E-01 + 0.36493137E-01 0.51059798E-01 0.68026805E-01 0.87383764E-01 0.10911530E+00 + 0.13319211E+00 0.15956614E+00 0.18817290E+00 0.21893306E+00 0.25174379E+00 + 0.28646477E+00 0.32291399E+00 0.36087668E+00 0.40011510E+00 0.44037090E+00 + 0.48136218E+00 0.52277991E+00 0.56428593E+00 0.60551465E+00 0.64608056E+00 + 0.68558694E+00 0.72362891E+00 0.75979566E+00 0.79368475E+00 0.82493511E+00 + 0.85327273E+00 0.87854957E+00 0.90075480E+00 0.91999324E+00 0.93644280E+00 + 0.95031222E+00 0.96181956E+00 0.97119433E+00 0.97868659E+00 0.98456380E+00 + 0.98909179E+00 0.99251314E+00 0.99503694E+00 0.99684133E+00 0.99808113E+00 + 0.99889310E+00 0.99939633E+00 0.99968982E+00 0.99985023E+00 0.99993217E+00 + 0.99997124E+00 0.99998859E+00 0.99999578E+00 0.99999854E+00 0.99999953E+00 + 0.99999986E+00 0.99999996E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.24742618E-02 0.74327434E-02 0.14887715E-01 0.24849695E-01 + 0.37325036E-01 0.52314239E-01 0.69808349E-01 0.89784130E-01 0.11220206E+00 + 0.13700655E+00 0.16412305E+00 0.19345351E+00 0.22487783E+00 0.25826113E+00 + 0.29345576E+00 0.33029389E+00 0.36857860E+00 0.40808074E+00 0.44853812E+00 + 0.48965075E+00 0.53107438E+00 0.57242263E+00 0.61328106E+00 0.65322508E+00 + 0.69183523E+00 0.72871381E+00 0.76350540E+00 0.79591499E+00 0.82571934E+00 + 0.85277352E+00 0.87701634E+00 0.89847149E+00 0.91723641E+00 0.93345883E+00 + 0.94731229E+00 0.95898150E+00 0.96865830E+00 0.97654198E+00 0.98283869E+00 + 0.98775855E+00 0.99151078E+00 0.99429718E+00 0.99630528E+00 0.99770312E+00 + 0.99863713E+00 0.99923195E+00 0.99959057E+00 0.99979417E+00 0.99990263E+00 + 0.99995673E+00 0.99998196E+00 0.99999295E+00 0.99999742E+00 0.99999912E+00 + 0.99999972E+00 0.99999992E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.24175231E-02 0.72619659E-02 0.14541758E-01 0.24258612E-01 + 0.36405714E-01 0.50970082E-01 0.67935153E-01 0.87280516E-01 0.10897854E+00 + 0.13298890E+00 0.15925295E+00 0.18768934E+00 0.21819087E+00 0.25062396E+00 + 0.28483094E+00 0.32063285E+00 0.35783240E+00 0.39621812E+00 0.43556717E+00 + 0.47564159E+00 0.51617526E+00 0.55685687E+00 0.59732139E+00 0.63715934E+00 + 0.67594240E+00 0.71325703E+00 0.74873383E+00 0.78206320E+00 0.81299955E+00 + 0.84136257E+00 0.86703953E+00 0.88998711E+00 0.91022891E+00 0.92784616E+00 + 0.94296417E+00 0.95573998E+00 0.96635407E+00 0.97500493E+00 0.98190438E+00 + 0.98727259E+00 0.99133294E+00 0.99430642E+00 0.99640540E+00 0.99782697E+00 + 0.99874645E+00 0.99931202E+00 0.99964167E+00 0.99982325E+00 0.99991757E+00 + 0.99996370E+00 0.99998493E+00 0.99999411E+00 0.99999784E+00 0.99999925E+00 + 0.99999976E+00 0.99999993E+00 0.99999998E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.24066555E-02 0.72290169E-02 0.14478149E-01 0.24165857E-01 + 0.36300687E-01 0.50884373E-01 0.67911789E-01 0.87372671E-01 0.10924968E+00 + 0.13351121E+00 0.16010393E+00 0.18894983E+00 0.21994594E+00 0.25296272E+00 + 0.28784099E+00 0.32439060E+00 0.36239136E+00 0.40159129E+00 0.44170275E+00 + 0.48240337E+00 0.52334391E+00 0.56415669E+00 0.60446034E+00 0.64386671E+00 + 0.68199670E+00 0.71850188E+00 0.75308301E+00 0.78549998E+00 0.81557280E+00 + 0.84317594E+00 0.86823109E+00 0.89070288E+00 0.91059920E+00 0.92797292E+00 + 0.94292118E+00 0.95558004E+00 0.96611586E+00 0.97471715E+00 0.98158879E+00 + 0.98694754E+00 0.99101603E+00 0.99401470E+00 0.99615318E+00 0.99762309E+00 + 0.99859280E+00 0.99920423E+00 0.99957129E+00 0.99978046E+00 0.99989333E+00 + 0.99995090E+00 0.99997861E+00 0.99999120E+00 0.99999658E+00 0.99999875E+00 + 0.99999957E+00 0.99999986E+00 0.99999996E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.23215098E-02 0.69625229E-02 0.13919652E-01 0.23187694E-01 + 0.34759351E-01 0.48625320E-01 0.64775683E-01 0.83202073E-01 0.10389757E+00 + 0.12685200E+00 0.15204415E+00 0.17943364E+00 0.20895326E+00 0.24050176E+00 + 0.27394030E+00 0.30909615E+00 0.34577205E+00 0.38375386E+00 0.42280865E+00 + 0.46267346E+00 0.50304612E+00 0.54358831E+00 0.58393920E+00 0.62373101E+00 + 0.66260151E+00 0.70020187E+00 0.73619993E+00 0.77028409E+00 0.80217433E+00 + 0.83164016E+00 0.85851596E+00 0.88270589E+00 0.90417936E+00 0.92296300E+00 + 0.93913375E+00 0.95281435E+00 0.96416928E+00 0.97339895E+00 0.98073126E+00 + 0.98641160E+00 0.99069250E+00 0.99382306E+00 0.99603856E+00 0.99755158E+00 + 0.99854560E+00 0.99917183E+00 0.99954901E+00 0.99976562E+00 0.99988395E+00 + 0.99994534E+00 0.99997554E+00 0.99998962E+00 0.99999583E+00 0.99999841E+00 + 0.99999943E+00 0.99999981E+00 0.99999994E+00 0.99999998E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.22352287E-02 0.67060009E-02 0.13415373E-01 0.22367815E-01 + 0.33567108E-01 0.47014090E-01 0.62704430E-01 0.80626778E-01 0.10076200E+00 + 0.12308300E+00 0.14755310E+00 0.17412248E+00 0.20272428E+00 0.23327177E+00 + 0.26565542E+00 0.29973858E+00 0.33535247E+00 0.37229494E+00 0.41033521E+00 + 0.44922015E+00 0.48867611E+00 0.52840589E+00 0.56808573E+00 0.60736801E+00 + 0.64589172E+00 0.68329965E+00 0.71925872E+00 0.75347748E+00 0.78571397E+00 + 0.81577348E+00 0.84350328E+00 0.86878995E+00 0.89155922E+00 0.91177623E+00 + 0.92944644E+00 0.94461857E+00 0.95738923E+00 0.96790588E+00 0.97636477E+00 + 0.98300198E+00 0.98807817E+00 0.99185981E+00 0.99460123E+00 0.99653150E+00 + 0.99784783E+00 0.99871411E+00 0.99926220E+00 0.99959443E+00 0.99978682E+00 + 0.99989303E+00 0.99994883E+00 0.99997669E+00 0.99998990E+00 0.99999584E+00 + 0.99999838E+00 0.99999940E+00 0.99999979E+00 0.99999993E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.22168226E-02 0.66520655E-02 0.13307887E-01 0.22185918E-01 + 0.33287013E-01 0.46610982E-01 0.62155142E-01 0.79912307E-01 0.99869132E-01 + 0.12200402E+00 0.14628330E+00 0.17265691E+00 0.20105627E+00 0.23139470E+00 + 0.26356741E+00 0.29744914E+00 0.33289045E+00 0.36971370E+00 0.40770849E+00 + 0.44662728E+00 0.48618443E+00 0.52606232E+00 0.56592438E+00 0.60542979E+00 + 0.64424241E+00 0.68203170E+00 0.71847092E+00 0.75323924E+00 0.78602929E+00 + 0.81656019E+00 0.84459628E+00 0.86996864E+00 0.89259180E+00 0.91246814E+00 + 0.92967891E+00 0.94436663E+00 0.95671567E+00 0.96693575E+00 0.97524994E+00 + 0.98188656E+00 0.98707292E+00 0.99102984E+00 0.99396700E+00 0.99607965E+00 + 0.99754592E+00 0.99852396E+00 0.99914883E+00 0.99953022E+00 0.99975218E+00 + 0.99987519E+00 0.99994005E+00 0.99997255E+00 0.99998804E+00 0.99999504E+00 + 0.99999805E+00 0.99999927E+00 0.99999974E+00 0.99999991E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.22173450E-02 0.66492522E-02 0.13291148E-01 0.22138611E-01 + 0.33188779E-01 0.46439904E-01 0.61888783E-01 0.79526958E-01 0.99337091E-01 + 0.12129102E+00 0.14535047E+00 0.17146959E+00 0.19959640E+00 0.22967000E+00 + 0.26161281E+00 0.29531981E+00 0.33064899E+00 0.36741685E+00 0.40539949E+00 + 0.44433587E+00 0.48393277E+00 0.52387327E+00 0.56382729E+00 0.60345965E+00 + 0.64243364E+00 0.68041212E+00 0.71705995E+00 0.75205090E+00 0.78507964E+00 + 0.81587554E+00 0.84421577E+00 0.86993676E+00 0.89294249E+00 0.91320693E+00 + 0.93077027E+00 0.94573178E+00 0.95824236E+00 0.96849741E+00 0.97672818E+00 + 0.98318995E+00 0.98814733E+00 0.99185919E+00 0.99456665E+00 0.99648547E+00 + 0.99780263E+00 0.99867539E+00 0.99923181E+00 0.99957220E+00 0.99977157E+00 + 0.99988319E+00 0.99994286E+00 0.99997329E+00 0.99998807E+00 0.99999492E+00 + 0.99999794E+00 0.99999920E+00 0.99999971E+00 0.99999990E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.21505922E-02 0.64493430E-02 0.12893301E-01 0.21480688E-01 + 0.32211023E-01 0.45083417E-01 0.60094007E-01 0.77233442E-01 0.96485103E-01 + 0.11782450E+00 0.14122003E+00 0.16663492E+00 0.19402876E+00 0.22335507E+00 + 0.25455326E+00 0.28753789E+00 0.32219051E+00 0.35835571E+00 0.39583970E+00 + 0.43441028E+00 0.47379853E+00 0.51370050E+00 0.55377835E+00 0.59366474E+00 + 0.63297400E+00 0.67131752E+00 0.70831919E+00 0.74362937E+00 0.77693752E+00 + 0.80798336E+00 0.83656582E+00 0.86254866E+00 0.88586205E+00 0.90650025E+00 + 0.92451527E+00 0.94000781E+00 0.95311851E+00 0.96402125E+00 0.97291785E+00 + 0.98003167E+00 0.98559882E+00 0.98985765E+00 0.99303802E+00 0.99535240E+00 + 0.99698992E+00 0.99811332E+00 0.99885830E+00 0.99933442E+00 0.99962688E+00 + 0.99979916E+00 0.99989634E+00 0.99994874E+00 0.99997575E+00 0.99998903E+00 + 0.99999526E+00 0.99999805E+00 0.99999923E+00 0.99999971E+00 0.99999990E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.20639017E-02 0.61897201E-02 0.12375977E-01 0.20621941E-01 + 0.30927220E-01 0.43290598E-01 0.57708178E-01 0.74171253E-01 0.92664884E-01 + 0.11316820E+00 0.13565615E+00 0.16010119E+00 0.18647296E+00 0.21473394E+00 + 0.24483157E+00 0.27669048E+00 0.31020910E+00 0.34526038E+00 0.38169220E+00 + 0.41932319E+00 0.45793509E+00 0.49726716E+00 0.53701669E+00 0.57684459E+00 + 0.61638204E+00 0.65523808E+00 0.69301160E+00 0.72930894E+00 0.76376301E+00 + 0.79604946E+00 0.82590075E+00 0.85311989E+00 0.87759094E+00 0.89928100E+00 + 0.91823221E+00 0.93454876E+00 0.94838403E+00 0.95992949E+00 0.96940476E+00 + 0.97704769E+00 0.98310373E+00 0.98781484E+00 0.99140937E+00 0.99409456E+00 + 0.99605305E+00 0.99744274E+00 0.99839822E+00 0.99903238E+00 0.99943734E+00 + 0.99968554E+00 0.99983128E+00 0.99991318E+00 0.99995718E+00 0.99997978E+00 + 0.99999086E+00 0.99999605E+00 0.99999837E+00 0.99999936E+00 0.99999976E+00 + 0.99999991E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.19772926E-02 0.59343303E-02 0.11873516E-01 0.19796044E-01 + 0.29701170E-01 0.41586183E-01 0.55446719E-01 0.71277032E-01 0.89070104E-01 + 0.10881712E+00 0.13050550E+00 0.15411490E+00 0.17961245E+00 0.20694988E+00 + 0.23606406E+00 0.26687809E+00 0.29930073E+00 0.33322528E+00 0.36852936E+00 + 0.40507230E+00 0.44268636E+00 0.48116350E+00 0.52024554E+00 0.55962394E+00 + 0.59894857E+00 0.63784180E+00 0.67591444E+00 0.71278096E+00 0.74807356E+00 + 0.78145644E+00 0.81263993E+00 0.84139070E+00 0.86753623E+00 0.89096633E+00 + 0.91163543E+00 0.92956527E+00 0.94484497E+00 0.95762517E+00 0.96810619E+00 + 0.97652308E+00 0.98313090E+00 0.98819189E+00 0.99196455E+00 0.99469462E+00 + 0.99660755E+00 0.99790238E+00 0.99874743E+00 0.99927840E+00 0.99959927E+00 + 0.99978563E+00 0.99988960E+00 0.99994529E+00 0.99997393E+00 0.99998806E+00 + 0.99999475E+00 0.99999779E+00 0.99999911E+00 0.99999965E+00 0.99999987E+00 + 0.99999996E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.19283068E-02 0.57870369E-02 0.11577535E-01 0.19301087E-01 + 0.28958898E-01 0.40550802E-01 0.54074289E-01 0.69524475E-01 0.86893906E-01 + 0.10617187E+00 0.12734373E+00 0.15039024E+00 0.17528670E+00 0.20200189E+00 + 0.23049712E+00 0.26072496E+00 0.29262602E+00 0.32612243E+00 0.36110888E+00 + 0.39744419E+00 0.43494575E+00 0.47338803E+00 0.51250440E+00 0.55199039E+00 + 0.59150833E+00 0.63069369E+00 0.66916170E+00 0.70651493E+00 0.74235623E+00 + 0.77630850E+00 0.80803580E+00 0.83726083E+00 0.86377793E+00 0.88746292E+00 + 0.90827908E+00 0.92627718E+00 0.94158771E+00 0.95440586E+00 0.96497142E+00 + 0.97354711E+00 0.98039889E+00 0.98578112E+00 0.98992832E+00 0.99305288E+00 + 0.99534604E+00 0.99697923E+00 0.99810412E+00 0.99885134E+00 0.99932901E+00 + 0.99962246E+00 0.99979554E+00 0.99989349E+00 0.99994666E+00 0.99997434E+00 + 0.99998814E+00 0.99999474E+00 0.99999777E+00 0.99999909E+00 0.99999965E+00 + 0.99999987E+00 0.99999995E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.18724613E-02 0.56184413E-02 0.11238614E-01 0.18732663E-01 + 0.28099274E-01 0.39336417E-01 0.52441577E-01 0.67411862E-01 0.84243812E-01 + 0.10293266E+00 0.12347101E+00 0.14584701E+00 0.17004261E+00 0.19603196E+00 + 0.22377934E+00 0.25323696E+00 0.28434290E+00 0.31701852E+00 0.35116420E+00 + 0.38665352E+00 0.42332761E+00 0.46099133E+00 0.49941150E+00 0.53831498E+00 + 0.57738718E+00 0.61627594E+00 0.65460295E+00 0.69197774E+00 0.72801002E+00 + 0.76232358E+00 0.79457712E+00 0.82448880E+00 0.85185396E+00 0.87654891E+00 + 0.89852337E+00 0.91779057E+00 0.93442112E+00 0.94854016E+00 0.96032236E+00 + 0.96998116E+00 0.97775341E+00 0.98388401E+00 0.98861433E+00 0.99217483E+00 + 0.99478076E+00 0.99662915E+00 0.99789579E+00 0.99873226E+00 0.99926361E+00 + 0.99958791E+00 0.99977795E+00 0.99988485E+00 0.99994255E+00 0.99997244E+00 + 0.99998730E+00 0.99999438E+00 0.99999761E+00 0.99999903E+00 0.99999962E+00 + 0.99999986E+00 0.99999995E+00 0.99999998E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.18149679E-02 0.54450090E-02 0.10890117E-01 0.18150413E-01 + 0.27226075E-01 0.38116682E-01 0.50820742E-01 0.65336078E-01 0.81660025E-01 + 0.99788228E-01 0.11971290E+00 0.14142190E+00 0.16489834E+00 0.19011944E+00 + 0.21705501E+00 0.24566600E+00 0.27590351E+00 0.30770707E+00 0.34100097E+00 + 0.37568924E+00 0.41164983E+00 0.44872755E+00 0.48672566E+00 0.52539772E+00 + 0.56444399E+00 0.60351651E+00 0.64223228E+00 0.68018876E+00 0.71697699E+00 + 0.75219499E+00 0.78546631E+00 0.81646233E+00 0.84492119E+00 0.87065958E+00 + 0.89357849E+00 0.91366424E+00 0.93098403E+00 0.94567593E+00 0.95793462E+00 + 0.96799425E+00 0.97610983E+00 0.98254006E+00 0.98753467E+00 0.99132753E+00 + 0.99413425E+00 0.99615136E+00 0.99755486E+00 0.99849795E+00 0.99910881E+00 + 0.99948972E+00 0.99971821E+00 0.99985000E+00 0.99992307E+00 0.99996200E+00 + 0.99998193E+00 0.99999174E+00 0.99999637E+00 0.99999847E+00 0.99999938E+00 + 0.99999976E+00 0.99999991E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.17662998E-02 0.52988100E-02 0.10597131E-01 0.17660629E-01 + 0.26488899E-01 0.37082221E-01 0.49441245E-01 0.63565820E-01 0.79453980E-01 + 0.97101670E-01 0.11650258E+00 0.13764755E+00 0.16052396E+00 0.18511576E+00 + 0.21140348E+00 0.23936268E+00 0.26896070E+00 0.30015278E+00 0.33287832E+00 + 0.36705588E+00 0.40257679E+00 0.43929757E+00 0.47703204E+00 0.51554496E+00 + 0.55454978E+00 0.59371182E+00 0.63265554E+00 0.67097501E+00 0.70824906E+00 + 0.74406246E+00 0.77803005E+00 0.80981642E+00 0.83914661E+00 0.86581100E+00 + 0.88966991E+00 0.91065956E+00 0.92879633E+00 0.94417653E+00 0.95697024E+00 + 0.96740825E+00 0.97576257E+00 0.98232322E+00 0.98737655E+00 0.99118986E+00 + 0.99400331E+00 0.99602750E+00 0.99744370E+00 0.99840469E+00 0.99903575E+00 + 0.99943611E+00 0.99968121E+00 0.99982588E+00 0.99990817E+00 0.99995326E+00 + 0.99997706E+00 0.99998914E+00 0.99999505E+00 0.99999783E+00 0.99999908E+00 + 0.99999963E+00 0.99999986E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16990135E-02 0.50967398E-02 0.10192626E-01 0.16985981E-01 + 0.25476219E-01 0.35662869E-01 0.47545278E-01 0.61122247E-01 0.76391694E-01 + 0.93350454E-01 0.11199428E+00 0.13231784E+00 0.15431408E+00 0.17797273E+00 + 0.20327835E+00 0.23020891E+00 0.25873428E+00 0.28881324E+00 0.32038878E+00 + 0.35338378E+00 0.38769819E+00 0.42320756E+00 0.45976262E+00 0.49718703E+00 + 0.53526818E+00 0.57374262E+00 0.61228833E+00 0.65053208E+00 0.68806793E+00 + 0.72447928E+00 0.75936008E+00 0.79233287E+00 0.82306307E+00 0.85127152E+00 + 0.87674754E+00 0.89936213E+00 0.91907810E+00 0.93595327E+00 0.95013388E+00 + 0.96183706E+00 0.97132539E+00 0.97888023E+00 0.98478084E+00 0.98929216E+00 + 0.99265948E+00 0.99510629E+00 0.99683247E+00 0.99801213E+00 0.99879168E+00 + 0.99928921E+00 0.99959561E+00 0.99977760E+00 0.99988182E+00 0.99993936E+00 + 0.99996996E+00 0.99998564E+00 0.99999339E+00 0.99999707E+00 0.99999875E+00 + 0.99999949E+00 0.99999980E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16922500E-02 0.50770138E-02 0.10154304E-01 0.16923490E-01 + 0.25383355E-01 0.35532869E-01 0.47371923E-01 0.60900947E-01 0.76119428E-01 + 0.93024470E-01 0.11161052E+00 0.13187026E+00 0.15379564E+00 0.17737818E+00 + 0.20260769E+00 0.22946971E+00 0.25794175E+00 0.28798890E+00 0.31955930E+00 + 0.35258000E+00 0.38695282E+00 0.42254915E+00 0.45920411E+00 0.49671161E+00 + 0.53482314E+00 0.57325029E+00 0.61166819E+00 0.64971943E+00 0.68702139E+00 + 0.72318050E+00 0.75781243E+00 0.79056278E+00 0.82112335E+00 0.84924238E+00 + 0.87473005E+00 0.89746221E+00 0.91738633E+00 0.93452872E+00 0.94899699E+00 + 0.96097234E+00 0.97069192E+00 0.97842592E+00 0.98445537E+00 0.98905499E+00 + 0.99248213E+00 0.99497074E+00 0.99672801E+00 0.99793227E+00 0.99873196E+00 + 0.99924593E+00 0.99956542E+00 0.99975740E+00 0.99986886E+00 0.99993140E+00 + 0.99996528E+00 0.99998301E+00 0.99999197E+00 0.99999633E+00 0.99999839E+00 + 0.99999932E+00 0.99999972E+00 0.99999989E+00 0.99999996E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16575878E-02 0.49731084E-02 0.99461526E-02 0.16575915E-01 + 0.24861824E-01 0.34803920E-01 0.46402696E-01 0.59658230E-01 0.74569246E-01 + 0.91132871E-01 0.10934484E+00 0.12919959E+00 0.15069020E+00 0.17380817E+00 + 0.19854279E+00 0.22487964E+00 0.25279808E+00 0.28226797E+00 0.31324577E+00 + 0.34566977E+00 0.37945473E+00 0.41448756E+00 0.45062418E+00 0.48768525E+00 + 0.52545011E+00 0.56365044E+00 0.60196630E+00 0.64002872E+00 0.67743212E+00 + 0.71375558E+00 0.74858771E+00 0.78155081E+00 0.81232160E+00 0.84064662E+00 + 0.86635058E+00 0.88933849E+00 0.90959403E+00 0.92717559E+00 0.94220814E+00 + 0.95486890E+00 0.96536825E+00 0.97393189E+00 0.98078869E+00 0.98616490E+00 + 0.99028155E+00 0.99335190E+00 0.99557730E+00 0.99714188E+00 0.99820736E+00 + 0.99890947E+00 0.99935690E+00 0.99963250E+00 0.99979657E+00 0.99989096E+00 + 0.99994342E+00 0.99997159E+00 0.99998620E+00 0.99999352E+00 0.99999706E+00 + 0.99999872E+00 0.99999946E+00 0.99999978E+00 0.99999992E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16264893E-02 0.48795242E-02 0.97589986E-02 0.16264754E-01 + 0.24396570E-01 0.34154072E-01 0.45536686E-01 0.58543622E-01 0.73173636E-01 + 0.89424525E-01 0.10729283E+00 0.12677420E+00 0.14786412E+00 0.17055787E+00 + 0.19484920E+00 0.22072800E+00 0.24817782E+00 0.27717302E+00 0.30767501E+00 + 0.33962845E+00 0.37295871E+00 0.40756832E+00 0.44332976E+00 0.48007656E+00 + 0.51759624E+00 0.55562706E+00 0.59386153E+00 0.63195713E+00 0.66954850E+00 + 0.70625371E+00 0.74167603E+00 0.77541319E+00 0.80708190E+00 0.83635175E+00 + 0.86297438E+00 0.88679930E+00 0.90777581E+00 0.92594492E+00 0.94142563E+00 + 0.95439851E+00 0.96508832E+00 0.97374667E+00 0.98063560E+00 0.98601379E+00 + 0.99012659E+00 0.99320027E+00 0.99543942E+00 0.99702548E+00 0.99811553E+00 + 0.99884130E+00 0.99930895E+00 0.99960041E+00 0.99977605E+00 0.99987839E+00 + 0.99993604E+00 0.99996742E+00 0.99998394E+00 0.99999234E+00 0.99999647E+00 + 0.99999843E+00 0.99999933E+00 0.99999972E+00 0.99999989E+00 0.99999996E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15957083E-02 0.47870497E-02 0.95740255E-02 0.15956600E-01 + 0.23934598E-01 0.33507813E-01 0.44676157E-01 0.57439333E-01 0.71796123E-01 + 0.87743893E-01 0.10527864E+00 0.12439538E+00 0.14508849E+00 0.16735152E+00 + 0.19117618E+00 0.21655121E+00 0.24346149E+00 0.27188607E+00 0.30179555E+00 + 0.33314929E+00 0.36589064E+00 0.39993859E+00 0.43517950E+00 0.47146115E+00 + 0.50858749E+00 0.54631389E+00 0.58434672E+00 0.62234989E+00 0.65995655E+00 + 0.69678285E+00 0.73244013E+00 0.76654496E+00 0.79873144E+00 0.82867080E+00 + 0.85609448E+00 0.88081263E+00 0.90272356E+00 0.92181507E+00 0.93815923E+00 + 0.95190147E+00 0.96324500E+00 0.97243273E+00 0.97972930E+00 0.98540539E+00 + 0.98972509E+00 0.99293636E+00 0.99526435E+00 0.99690730E+00 0.99803436E+00 + 0.99878501E+00 0.99927001E+00 0.99957385E+00 0.99975836E+00 0.99986696E+00 + 0.99992890E+00 0.99996313E+00 0.99998146E+00 0.99999096E+00 0.99999574E+00 + 0.99999805E+00 0.99999914E+00 0.99999964E+00 0.99999985E+00 0.99999994E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15938512E-02 0.47814898E-02 0.95627832E-02 0.15937567E-01 + 0.23905601E-01 0.33466532E-01 0.44619917E-01 0.57365200E-01 0.71701596E-01 + 0.87627902E-01 0.10514241E+00 0.12424298E+00 0.14492693E+00 0.16719045E+00 + 0.19102793E+00 0.21643134E+00 0.24338881E+00 0.27188155E+00 0.30187905E+00 + 0.33333454E+00 0.36618346E+00 0.40034478E+00 0.43571931E+00 0.47217847E+00 + 0.50954464E+00 0.54757440E+00 0.58595606E+00 0.62432161E+00 0.66226572E+00 + 0.69936511E+00 0.73519638E+00 0.76935316E+00 0.80146411E+00 0.83121290E+00 + 0.85835821E+00 0.88274745E+00 0.90431923E+00 0.92309605E+00 0.93917245E+00 + 0.95270220E+00 0.96388508E+00 0.97295341E+00 0.98015899E+00 0.98576109E+00 + 0.99001602E+00 0.99316814E+00 0.99544240E+00 0.99703843E+00 0.99812676E+00 + 0.99884730E+00 0.99931023E+00 0.99959876E+00 0.99977317E+00 0.99987541E+00 + 0.99993354E+00 0.99996558E+00 0.99998270E+00 0.99999156E+00 0.99999601E+00 + 0.99999818E+00 0.99999919E+00 0.99999966E+00 0.99999986E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15379753E-02 0.46135940E-02 0.92267614E-02 0.15377674E-01 + 0.23066499E-01 0.32293064E-01 0.43056876E-01 0.55357257E-01 0.69193366E-01 + 0.84564167E-01 0.10146855E+00 0.11990554E+00 0.13987408E+00 0.16137197E+00 + 0.18439420E+00 0.20893152E+00 0.23497049E+00 0.26249370E+00 0.29147811E+00 + 0.32189105E+00 0.35368503E+00 0.38679201E+00 0.42111819E+00 0.45654031E+00 + 0.49290209E+00 0.53000764E+00 0.56761274E+00 0.60541843E+00 0.64307069E+00 + 0.68016907E+00 0.71628592E+00 0.75099398E+00 0.78389331E+00 0.81463133E+00 + 0.84291842E+00 0.86854331E+00 0.89138744E+00 0.91143162E+00 0.92875002E+00 + 0.94349269E+00 0.95586189E+00 0.96608859E+00 0.97441351E+00 0.98107478E+00 + 0.98630216E+00 0.99031488E+00 0.99332037E+00 0.99551188E+00 0.99706482E+00 + 0.99813289E+00 0.99884530E+00 0.99930594E+00 0.99959463E+00 0.99976998E+00 + 0.99987322E+00 0.99993214E+00 0.99996473E+00 0.99998221E+00 0.99999130E+00 + 0.99999587E+00 0.99999810E+00 0.99999916E+00 0.99999964E+00 0.99999985E+00 + 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15258910E-02 0.45775969E-02 0.91550478E-02 0.15258179E-01 + 0.22886938E-01 0.32041306E-01 0.42721285E-01 0.54926825E-01 0.68657735E-01 + 0.83913577E-01 0.10069360E+00 0.11899675E+00 0.13882158E+00 0.16016560E+00 + 0.18302455E+00 0.20739180E+00 0.23325764E+00 0.26060813E+00 0.28942311E+00 + 0.31967372E+00 0.35131856E+00 0.38429716E+00 0.41852098E+00 0.45386552E+00 + 0.49016587E+00 0.52721344E+00 0.56475224E+00 0.60247738E+00 0.64003783E+00 + 0.67704352E+00 0.71307893E+00 0.74772538E+00 0.78058778E+00 0.81131886E+00 + 0.83963875E+00 0.86535098E+00 0.88835303E+00 0.90863622E+00 0.92627257E+00 + 0.94139373E+00 0.95416994E+00 0.96479474E+00 0.97347615E+00 0.98043167E+00 + 0.98588425E+00 0.99005754E+00 0.99317001E+00 0.99542825E+00 0.99702020E+00 + 0.99810970E+00 0.99883326E+00 0.99929947E+00 0.99959091E+00 0.99976768E+00 + 0.99987173E+00 0.99993116E+00 0.99996410E+00 0.99998181E+00 0.99999106E+00 + 0.99999573E+00 0.99999803E+00 0.99999912E+00 0.99999962E+00 0.99999984E+00 + 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14891539E-02 0.44672969E-02 0.89343457E-02 0.14890435E-01 + 0.22335898E-01 0.31271028E-01 0.41695830E-01 0.53609995E-01 0.67013065E-01 + 0.81904555E-01 0.98283820E-01 0.11614972E+00 0.13550045E+00 0.15633368E+00 + 0.17864646E+00 0.20243460E+00 0.22769124E+00 0.25440457E+00 0.28255527E+00 + 0.31211414E+00 0.34303975E+00 0.37527539E+00 0.40874570E+00 0.44335246E+00 + 0.47896755E+00 0.51542306E+00 0.55250138E+00 0.58992858E+00 0.62737405E+00 + 0.66445859E+00 0.70077174E+00 0.73589480E+00 0.76942360E+00 0.80099057E+00 + 0.83028693E+00 0.85708152E+00 0.88123063E+00 0.90267656E+00 0.92143806E+00 + 0.93759724E+00 0.95128663E+00 0.96267829E+00 0.97197508E+00 0.97940275E+00 + 0.98520181E+00 0.98961849E+00 0.99289491E+00 0.99525945E+00 0.99691810E+00 + 0.99804843E+00 0.99879656E+00 0.99927747E+00 0.99957771E+00 0.99975977E+00 + 0.99986702E+00 0.99992838E+00 0.99996249E+00 0.99998090E+00 0.99999055E+00 + 0.99999546E+00 0.99999789E+00 0.99999905E+00 0.99999959E+00 0.99999983E+00 + 0.99999993E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + NUCLEUS 4 2 14 7 + 17.27877 0.15000 1.76969 2.55000 + 0.00000000E+00 0.24632502E-02 0.73885296E-02 0.14773800E-01 0.24615705E-01 + 0.36908656E-01 0.51644114E-01 0.68809824E-01 0.88388053E-01 0.11035226E+00 + 0.13466216E+00 0.16125794E+00 0.19005543E+00 0.22094301E+00 0.25378041E+00 + 0.28840050E+00 0.32461267E+00 0.36220253E+00 0.40092467E+00 0.44049358E+00 + 0.48058007E+00 0.52081970E+00 0.56083113E+00 0.60023378E+00 0.63866054E+00 + 0.67576841E+00 0.71124871E+00 0.74483736E+00 0.77632277E+00 0.80554585E+00 + 0.83239179E+00 0.85678352E+00 0.87868499E+00 0.89811051E+00 0.91512980E+00 + 0.92986377E+00 0.94247446E+00 0.95315393E+00 0.96211338E+00 0.96957075E+00 + 0.97573783E+00 0.98081000E+00 0.98496072E+00 0.98833937E+00 0.99107174E+00 + 0.99326250E+00 0.99499949E+00 0.99635812E+00 0.99740414E+00 0.99819470E+00 + 0.99877898E+00 0.99919923E+00 0.99949203E+00 0.99968890E+00 0.99981633E+00 + 0.99989561E+00 0.99994294E+00 0.99997004E+00 0.99998491E+00 0.99999271E+00 + 0.99999663E+00 0.99999851E+00 0.99999937E+00 0.99999974E+00 0.99999990E+00 + 0.99999996E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.23918453E-02 0.71753469E-02 0.14348590E-01 0.23907332E-01 + 0.35844337E-01 0.50148544E-01 0.66803824E-01 0.85786789E-01 0.10706356E+00 + 0.13058656E+00 0.15629272E+00 0.18410319E+00 0.21392245E+00 0.24563539E+00 + 0.27910321E+00 0.31415962E+00 0.35060741E+00 0.38821643E+00 0.42672491E+00 + 0.46584261E+00 0.50525254E+00 0.54461324E+00 0.58356582E+00 0.62174490E+00 + 0.65879002E+00 0.69435918E+00 0.72814716E+00 0.75990495E+00 0.78945197E+00 + 0.81667680E+00 0.84152991E+00 0.86401406E+00 0.88417490E+00 0.90209221E+00 + 0.91787241E+00 0.93164275E+00 0.94354623E+00 0.95373685E+00 0.96237494E+00 + 0.96962294E+00 0.97564207E+00 0.98059009E+00 0.98461883E+00 0.98787071E+00 + 0.99047511E+00 0.99254625E+00 0.99418308E+00 0.99547023E+00 0.99647902E+00 + 0.99726807E+00 0.99788410E+00 0.99836348E+00 0.99873442E+00 0.99901944E+00 + 0.99923728E+00 0.99940405E+00 0.99953340E+00 0.99963620E+00 0.99972011E+00 + 0.99978969E+00 0.99984712E+00 0.99989329E+00 0.99992885E+00 0.99995483E+00 + 0.99997274E+00 0.99998437E+00 0.99999148E+00 0.99999559E+00 0.99999783E+00 + 0.99999899E+00 0.99999955E+00 0.99999981E+00 0.99999992E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.23864636E-02 0.71576099E-02 0.14310301E-01 0.23840014E-01 + 0.35740396E-01 0.50002335E-01 0.66612707E-01 0.85552816E-01 0.10679639E+00 + 0.13030686E+00 0.15603358E+00 0.18390739E+00 0.21383590E+00 0.24569944E+00 + 0.27934819E+00 0.31460073E+00 0.35124389E+00 0.38903241E+00 0.42768935E+00 + 0.46690991E+00 0.50636843E+00 0.54572512E+00 0.58463209E+00 0.62274032E+00 + 0.65970810E+00 0.69521105E+00 0.72895477E+00 0.76068926E+00 0.79022136E+00 + 0.81742247E+00 0.84223039E+00 0.86464602E+00 0.88472537E+00 0.90256775E+00 + 0.91830172E+00 0.93207166E+00 0.94402754E+00 0.95431878E+00 0.96309177E+00 + 0.97049008E+00 0.97665534E+00 0.98172769E+00 0.98584523E+00 0.98914252E+00 + 0.99174813E+00 0.99378154E+00 0.99535013E+00 0.99654709E+00 0.99745099E+00 + 0.99812665E+00 0.99862694E+00 0.99899447E+00 0.99926308E+00 0.99945905E+00 + 0.99960224E+00 0.99970730E+00 0.99978484E+00 0.99984244E+00 0.99988551E+00 + 0.99991783E+00 0.99994207E+00 0.99996010E+00 0.99997329E+00 0.99998270E+00 + 0.99998919E+00 0.99999351E+00 0.99999626E+00 0.99999794E+00 0.99999891E+00 + 0.99999945E+00 0.99999973E+00 0.99999988E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.23428628E-02 0.70271258E-02 0.14050489E-01 0.23409567E-01 + 0.35098968E-01 0.49109838E-01 0.65428296E-01 0.84033997E-01 0.10489872E+00 + 0.12798450E+00 0.15324103E+00 0.18060203E+00 0.20998100E+00 0.24126676E+00 + 0.27431985E+00 0.30897006E+00 0.34501524E+00 0.38222143E+00 0.42032486E+00 + 0.45903532E+00 0.49803950E+00 0.53700405E+00 0.57558065E+00 0.61341670E+00 + 0.65017222E+00 0.68553899E+00 0.71925586E+00 0.75111539E+00 0.78096226E+00 + 0.80868837E+00 0.83422840E+00 0.85755595E+00 0.87867878E+00 0.89763254E+00 + 0.91447502E+00 0.92928330E+00 0.94215345E+00 0.95319985E+00 0.96255289E+00 + 0.97035657E+00 0.97676692E+00 0.98194989E+00 0.98607713E+00 0.98931926E+00 + 0.99183822E+00 0.99378008E+00 0.99527008E+00 0.99641066E+00 0.99728266E+00 + 0.99794866E+00 0.99845688E+00 0.99884473E+00 0.99914113E+00 0.99936817E+00 + 0.99954219E+00 0.99967503E+00 0.99977524E+00 0.99984927E+00 0.99990237E+00 + 0.99993911E+00 0.99996351E+00 0.99997902E+00 0.99998843E+00 0.99999389E+00 + 0.99999691E+00 0.99999850E+00 0.99999931E+00 0.99999969E+00 0.99999987E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.23049055E-02 0.69139717E-02 0.13825492E-01 0.23036347E-01 + 0.34541579E-01 0.48333797E-01 0.64401991E-01 0.82729669E-01 0.10329270E+00 + 0.12605715E+00 0.15097696E+00 0.17799110E+00 0.20702033E+00 0.23796380E+00 + 0.27069625E+00 0.30506488E+00 0.34088608E+00 0.37794332E+00 0.41598838E+00 + 0.45474499E+00 0.49391251E+00 0.53316809E+00 0.57216864E+00 0.61055589E+00 + 0.64796826E+00 0.68405887E+00 0.71851408E+00 0.75106639E+00 0.78150040E+00 + 0.80965536E+00 0.83542774E+00 0.85877342E+00 0.87970657E+00 0.89829305E+00 + 0.91463980E+00 0.92888372E+00 0.94118189E+00 0.95170380E+00 0.96062462E+00 + 0.96811917E+00 0.97435687E+00 0.97949846E+00 0.98369495E+00 0.98708770E+00 + 0.98980781E+00 0.99197406E+00 0.99369051E+00 0.99504529E+00 0.99611147E+00 + 0.99694910E+00 0.99760747E+00 0.99812669E+00 0.99853874E+00 0.99886819E+00 + 0.99913307E+00 0.99934613E+00 0.99951632E+00 0.99965030E+00 0.99975352E+00 + 0.99983096E+00 0.99988733E+00 0.99992707E+00 0.99995418E+00 0.99997207E+00 + 0.99998349E+00 0.99999054E+00 0.99999475E+00 0.99999718E+00 0.99999853E+00 + 0.99999926E+00 0.99999964E+00 0.99999983E+00 0.99999992E+00 0.99999997E+00 + 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.22211170E-02 0.66628225E-02 0.13324175E-01 0.22203858E-01 + 0.33299974E-01 0.46609345E-01 0.62126076E-01 0.79839560E-01 0.99732247E-01 + 0.12177723E+00 0.14593536E+00 0.17215205E+00 0.20035441E+00 0.23044957E+00 + 0.26232393E+00 0.29584210E+00 0.33084394E+00 0.36713967E+00 0.40450506E+00 + 0.44268034E+00 0.48137446E+00 0.52027357E+00 0.55904974E+00 0.59736716E+00 + 0.63488690E+00 0.67127469E+00 0.70621367E+00 0.73941898E+00 0.77064850E+00 + 0.79970814E+00 0.82645461E+00 0.85079942E+00 0.87271392E+00 0.89223164E+00 + 0.90944392E+00 0.92448779E+00 0.93752917E+00 0.94874634E+00 0.95831764E+00 + 0.96641492E+00 0.97320137E+00 0.97883184E+00 0.98345336E+00 0.98720490E+00 + 0.99021603E+00 0.99260495E+00 0.99447707E+00 0.99592447E+00 0.99702678E+00 + 0.99785271E+00 0.99846144E+00 0.99890352E+00 0.99922109E+00 0.99944798E+00 + 0.99961016E+00 0.99972657E+00 0.99981048E+00 0.99987092E+00 0.99991408E+00 + 0.99994436E+00 0.99996508E+00 0.99997882E+00 0.99998760E+00 0.99999301E+00 + 0.99999620E+00 0.99999802E+00 0.99999900E+00 0.99999952E+00 0.99999978E+00 + 0.99999990E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.22048676E-02 0.66140460E-02 0.13226002E-01 0.22037910E-01 + 0.33045494E-01 0.46243010E-01 0.61622988E-01 0.79175268E-01 0.98885310E-01 + 0.12073188E+00 0.14468404E+00 0.17069714E+00 0.19870817E+00 0.22863121E+00 + 0.26035422E+00 0.29373731E+00 0.32861238E+00 0.36478327E+00 0.40202498E+00 + 0.44008252E+00 0.47867132E+00 0.51748115E+00 0.55618285E+00 0.59443598E+00 + 0.63189663E+00 0.66822711E+00 0.70310968E+00 0.73626281E+00 0.76745461E+00 + 0.79651003E+00 0.82331207E+00 0.84779917E+00 0.86995983E+00 0.88982529E+00 + 0.90746142E+00 0.92296189E+00 0.93644364E+00 0.94804357E+00 0.95791470E+00 + 0.96622078E+00 0.97313083E+00 0.97881444E+00 0.98343799E+00 0.98716087E+00 + 0.99013139E+00 0.99248267E+00 0.99433013E+00 0.99577091E+00 0.99688518E+00 + 0.99773857E+00 0.99838458E+00 0.99886683E+00 0.99922091E+00 0.99947588E+00 + 0.99965549E+00 0.99977896E+00 0.99986168E+00 0.99991563E+00 0.99994985E+00 + 0.99997096E+00 0.99998362E+00 0.99999100E+00 0.99999518E+00 0.99999748E+00 + 0.99999872E+00 0.99999936E+00 0.99999969E+00 0.99999985E+00 0.99999993E+00 + 0.99999997E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.21069139E-02 0.63204110E-02 0.12639876E-01 0.21064186E-01 + 0.31591312E-01 0.44217675E-01 0.58937121E-01 0.75739480E-01 0.94608759E-01 + 0.11552124E+00 0.13844375E+00 0.16333210E+00 0.19012939E+00 0.21876391E+00 + 0.24914693E+00 0.28117002E+00 0.31470160E+00 0.34958248E+00 0.38562118E+00 + 0.42259121E+00 0.46023222E+00 0.49825553E+00 0.53635279E+00 0.57420510E+00 + 0.61149097E+00 0.64789317E+00 0.68310670E+00 0.71684851E+00 0.74886723E+00 + 0.77895092E+00 0.80693265E+00 0.83269520E+00 0.85617404E+00 0.87735636E+00 + 0.89627550E+00 0.91300299E+00 0.92764115E+00 0.94031771E+00 0.95118115E+00 + 0.96039533E+00 0.96813260E+00 0.97456630E+00 0.97986408E+00 0.98418327E+00 + 0.98766866E+00 0.99045203E+00 0.99265224E+00 0.99437523E+00 0.99571354E+00 + 0.99674600E+00 0.99753807E+00 0.99814289E+00 0.99860304E+00 0.99895232E+00 + 0.99921733E+00 0.99941867E+00 0.99957197E+00 0.99968876E+00 0.99977746E+00 + 0.99984418E+00 0.99989356E+00 0.99992929E+00 0.99995443E+00 0.99997155E+00 + 0.99998283E+00 0.99998998E+00 0.99999436E+00 0.99999693E+00 0.99999839E+00 + 0.99999919E+00 0.99999960E+00 0.99999981E+00 0.99999992E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.21034188E-02 0.63099065E-02 0.12618780E-01 0.21028856E-01 + 0.31538089E-01 0.44142984E-01 0.58837886E-01 0.75614299E-01 0.94460050E-01 + 0.11535782E+00 0.13828261E+00 0.16319818E+00 0.19005326E+00 0.21877826E+00 + 0.24928277E+00 0.28145351E+00 0.31515161E+00 0.35020907E+00 0.38642533E+00 + 0.42356497E+00 0.46135778E+00 0.49950293E+00 0.53767816E+00 0.57555208E+00 + 0.61279640E+00 0.64909602E+00 0.68415697E+00 0.71771262E+00 0.74952933E+00 + 0.77941212E+00 0.80721051E+00 0.83282199E+00 0.85619089E+00 0.87730315E+00 + 0.89618070E+00 0.91287823E+00 0.92748197E+00 0.94010846E+00 0.95090145E+00 + 0.96002639E+00 0.96766265E+00 0.97399451E+00 0.97920237E+00 0.98345594E+00 + 0.98690974E+00 0.98970035E+00 0.99194509E+00 0.99374210E+00 0.99517204E+00 + 0.99630114E+00 0.99718461E+00 0.99786938E+00 0.99839577E+00 0.99879806E+00 + 0.99910469E+00 0.99933831E+00 0.99951632E+00 0.99965162E+00 0.99975372E+00 + 0.99982975E+00 0.99988527E+00 0.99992482E+00 0.99995218E+00 0.99997052E+00 + 0.99998239E+00 0.99998983E+00 0.99999431E+00 0.99999693E+00 0.99999840E+00 + 0.99999919E+00 0.99999961E+00 0.99999981E+00 0.99999992E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.19754626E-02 0.59263191E-02 0.11852278E-01 0.19752659E-01 + 0.29626234E-01 0.41471113E-01 0.55284564E-01 0.71062584E-01 0.88799118E-01 + 0.10848489E+00 0.13010575E+00 0.15364037E+00 0.17905706E+00 0.20630990E+00 + 0.23533445E+00 0.26604339E+00 0.29832305E+00 0.33203156E+00 0.36699886E+00 + 0.40302700E+00 0.43988983E+00 0.47733156E+00 0.51506581E+00 0.55277713E+00 + 0.59012801E+00 0.62677244E+00 0.66237400E+00 0.69662305E+00 0.72924839E+00 + 0.76002357E+00 0.78877059E+00 0.81536320E+00 0.83972948E+00 0.86185175E+00 + 0.88176206E+00 0.89953327E+00 0.91526823E+00 0.92909012E+00 0.94113515E+00 + 0.95154700E+00 0.96047213E+00 0.96805597E+00 0.97444044E+00 0.97976274E+00 + 0.98415431E+00 0.98773942E+00 0.99063339E+00 0.99294110E+00 0.99475644E+00 + 0.99616283E+00 0.99723433E+00 0.99803648E+00 0.99862657E+00 0.99905347E+00 + 0.99935745E+00 0.99957063E+00 0.99971781E+00 0.99981776E+00 0.99988446E+00 + 0.99992813E+00 0.99995617E+00 0.99997381E+00 0.99998468E+00 0.99999123E+00 + 0.99999509E+00 0.99999732E+00 0.99999857E+00 0.99999926E+00 0.99999962E+00 + 0.99999981E+00 0.99999991E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.19422432E-02 0.58266800E-02 0.11653145E-01 0.19421294E-01 + 0.29130480E-01 0.40779580E-01 0.54366775E-01 0.69889250E-01 0.87342661E-01 + 0.10672021E+00 0.12801121E+00 0.15119916E+00 0.17625911E+00 0.20315436E+00 + 0.23183207E+00 0.26221763E+00 0.29420880E+00 0.32767151E+00 0.36243753E+00 + 0.39830343E+00 0.43503065E+00 0.47234878E+00 0.50996361E+00 0.54756859E+00 + 0.58485483E+00 0.62151694E+00 0.65725582E+00 0.69178269E+00 0.72482682E+00 + 0.75614608E+00 0.78553773E+00 0.81284738E+00 0.83797450E+00 0.86087230E+00 + 0.88154179E+00 0.90002253E+00 0.91638450E+00 0.93072337E+00 0.94315810E+00 + 0.95382760E+00 0.96288443E+00 0.97048702E+00 0.97679324E+00 0.98195714E+00 + 0.98612846E+00 0.98945230E+00 0.99206730E+00 0.99410172E+00 0.99566923E+00 + 0.99686595E+00 0.99777017E+00 0.99844435E+00 0.99893838E+00 0.99929272E+00 + 0.99954060E+00 0.99970933E+00 0.99982094E+00 0.99989262E+00 0.99993732E+00 + 0.99996439E+00 0.99998032E+00 0.99998941E+00 0.99999446E+00 0.99999718E+00 + 0.99999861E+00 0.99999933E+00 0.99999969E+00 0.99999986E+00 0.99999994E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.19000559E-02 0.56998964E-02 0.11399054E-01 0.18996840E-01 + 0.28492242E-01 0.39883776E-01 0.53169388E-01 0.68346352E-01 0.85410949E-01 + 0.10435774E+00 0.12517836E+00 0.14785976E+00 0.17238179E+00 0.19871384E+00 + 0.22681057E+00 0.25660697E+00 0.28801375E+00 0.32091336E+00 0.35515645E+00 + 0.39055773E+00 0.42689191E+00 0.46389352E+00 0.50126488E+00 0.53869197E+00 + 0.57586132E+00 0.61247077E+00 0.64823201E+00 0.68286916E+00 0.71611900E+00 + 0.74773642E+00 0.77750494E+00 0.80524837E+00 0.83083947E+00 0.85420324E+00 + 0.87531556E+00 0.89419899E+00 0.91091764E+00 0.92557127E+00 0.93828829E+00 + 0.94921799E+00 0.95852278E+00 0.96637122E+00 0.97293216E+00 0.97837005E+00 + 0.98284079E+00 0.98648812E+00 0.98944107E+00 0.99181311E+00 0.99370280E+00 + 0.99519522E+00 0.99636345E+00 0.99726980E+00 0.99796698E+00 0.99849901E+00 + 0.99890208E+00 0.99920537E+00 0.99943194E+00 0.99959978E+00 0.99972277E+00 + 0.99981166E+00 0.99987479E+00 0.99991870E+00 0.99994852E+00 0.99996825E+00 + 0.99998094E+00 0.99998887E+00 0.99999368E+00 0.99999652E+00 0.99999813E+00 + 0.99999903E+00 0.99999951E+00 0.99999976E+00 0.99999989E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.18209729E-02 0.54628897E-02 0.10925658E-01 0.18209092E-01 + 0.27312861E-01 0.38236380E-01 0.50978559E-01 0.65537407E-01 0.81909549E-01 + 0.10008962E+00 0.12006929E+00 0.14183580E+00 0.16536982E+00 0.19064305E+00 + 0.21761534E+00 0.24623176E+00 0.27641981E+00 0.30808631E+00 0.34111354E+00 + 0.37535640E+00 0.41064206E+00 0.44677112E+00 0.48351801E+00 0.52062987E+00 + 0.55782540E+00 0.59479664E+00 0.63121564E+00 0.66674676E+00 0.70106238E+00 + 0.73385857E+00 0.76486905E+00 0.79387779E+00 0.82072896E+00 0.84533132E+00 + 0.86765440E+00 0.88771816E+00 0.90558069E+00 0.92132825E+00 0.93506889E+00 + 0.94692853E+00 0.95704797E+00 0.96558009E+00 0.97268668E+00 0.97853445E+00 + 0.98328985E+00 0.98711341E+00 0.99015458E+00 0.99254825E+00 0.99441304E+00 + 0.99585112E+00 0.99694891E+00 0.99777842E+00 0.99839878E+00 0.99885800E+00 + 0.99919455E+00 0.99943876E+00 0.99961416E+00 0.99973873E+00 0.99982607E+00 + 0.99988637E+00 0.99992727E+00 0.99995447E+00 0.99997215E+00 0.99998338E+00 + 0.99999032E+00 0.99999451E+00 0.99999697E+00 0.99999837E+00 0.99999915E+00 + 0.99999957E+00 0.99999979E+00 0.99999990E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.17414766E-02 0.52244147E-02 0.10448794E-01 0.17414591E-01 + 0.26121786E-01 0.36570344E-01 0.48760138E-01 0.62690758E-01 0.78361181E-01 + 0.95769273E-01 0.11491117E+00 0.13578052E+00 0.15836737E+00 0.18265648E+00 + 0.20862448E+00 0.23623595E+00 0.26543840E+00 0.29615670E+00 0.32828756E+00 + 0.36169588E+00 0.39621450E+00 0.43164708E+00 0.46777147E+00 0.50434064E+00 + 0.54108152E+00 0.57769584E+00 0.61386732E+00 0.64927558E+00 0.68361234E+00 + 0.71659391E+00 0.74796841E+00 0.77752006E+00 0.80507398E+00 0.83050254E+00 + 0.85373093E+00 0.87473801E+00 0.89355091E+00 0.91023598E+00 0.92489011E+00 + 0.93763422E+00 0.94860833E+00 0.95796713E+00 0.96587456E+00 0.97249744E+00 + 0.97799890E+00 0.98253291E+00 0.98624084E+00 0.98924979E+00 0.99167229E+00 + 0.99360699E+00 0.99513971E+00 0.99634441E+00 0.99728391E+00 0.99801049E+00 + 0.99856676E+00 0.99898711E+00 0.99929939E+00 0.99952660E+00 0.99968794E+00 + 0.99979949E+00 0.99987448E+00 0.99992346E+00 0.99995454E+00 0.99997370E+00 + 0.99998518E+00 0.99999187E+00 0.99999566E+00 0.99999774E+00 0.99999886E+00 + 0.99999944E+00 0.99999973E+00 0.99999988E+00 0.99999994E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.17273752E-02 0.51821252E-02 0.10364248E-01 0.17273739E-01 + 0.25910592E-01 0.36274790E-01 0.48366272E-01 0.62184846E-01 0.77729920E-01 + 0.94999939E-01 0.11399151E+00 0.13469833E+00 0.15710991E+00 0.18120966E+00 + 0.20697263E+00 0.23436308E+00 0.26333225E+00 0.29381536E+00 0.32572718E+00 + 0.35895673E+00 0.39336282E+00 0.42877120E+00 0.46497311E+00 0.50172483E+00 + 0.53874876E+00 0.57573679E+00 0.61235749E+00 0.64826656E+00 0.68311977E+00 + 0.71658920E+00 0.74838303E+00 0.77826415E+00 0.80606086E+00 0.83166672E+00 + 0.85503206E+00 0.87615315E+00 0.89506319E+00 0.91182682E+00 0.92653684E+00 + 0.93931171E+00 0.95029225E+00 0.95963634E+00 0.96751174E+00 0.97408806E+00 + 0.97952957E+00 0.98399011E+00 0.98761037E+00 0.99051714E+00 0.99282380E+00 + 0.99463125E+00 0.99602873E+00 0.99709449E+00 0.99789632E+00 0.99849207E+00 + 0.99892992E+00 0.99924879E+00 0.99947906E+00 0.99964379E+00 0.99976031E+00 + 0.99984155E+00 0.99989724E+00 0.99993470E+00 0.99995937E+00 0.99997526E+00 + 0.99998527E+00 0.99999143E+00 0.99999513E+00 0.99999730E+00 0.99999854E+00 + 0.99999923E+00 0.99999960E+00 0.99999980E+00 0.99999990E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16526959E-02 0.49580897E-02 0.99161801E-02 0.16526959E-01 + 0.24790397E-01 0.34706414E-01 0.46274832E-01 0.59495311E-01 0.74367156E-01 + 0.90888834E-01 0.10905706E+00 0.12886545E+00 0.15030302E+00 0.17335271E+00 + 0.19799016E+00 0.22418243E+00 0.25188581E+00 0.28104185E+00 0.31157287E+00 + 0.34337851E+00 0.37633436E+00 0.41029168E+00 0.44507694E+00 0.48049069E+00 + 0.51630617E+00 0.55226878E+00 0.58809773E+00 0.62349169E+00 0.65813873E+00 + 0.69172938E+00 0.72397144E+00 0.75460572E+00 0.78341967E+00 0.81025478E+00 + 0.83500606E+00 0.85761622E+00 0.87806860E+00 0.89638193E+00 0.91260745E+00 + 0.92682833E+00 0.93915935E+00 0.94974394E+00 0.95874682E+00 0.96634346E+00 + 0.97270934E+00 0.97801148E+00 0.98240302E+00 0.98602046E+00 0.98898321E+00 + 0.99139462E+00 0.99334383E+00 0.99490764E+00 0.99615188E+00 0.99713243E+00 + 0.99789637E+00 0.99848326E+00 0.99892666E+00 0.99925526E+00 0.99949368E+00 + 0.99966281E+00 0.99978006E+00 0.99985947E+00 0.99991203E+00 0.99994604E+00 + 0.99996756E+00 0.99998088E+00 0.99998895E+00 0.99999374E+00 0.99999653E+00 + 0.99999811E+00 0.99999899E+00 0.99999947E+00 0.99999973E+00 0.99999987E+00 + 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16180569E-02 0.48541766E-02 0.97083626E-02 0.16180597E-01 + 0.24270817E-01 0.33978855E-01 0.45304354E-01 0.58246659E-01 0.72804641E-01 + 0.88976399E-01 0.10675877E+00 0.12614652E+00 0.14713104E+00 0.16969850E+00 + 0.19382804E+00 0.21949037E+00 0.24664653E+00 0.27524578E+00 0.30522214E+00 + 0.33649059E+00 0.36894379E+00 0.40244900E+00 0.43684528E+00 0.47194180E+00 + 0.50751825E+00 0.54332637E+00 0.57909283E+00 0.61452492E+00 0.64932093E+00 + 0.68318257E+00 0.71582495E+00 0.74698294E+00 0.77641846E+00 0.80393093E+00 + 0.82936801E+00 0.85263154E+00 0.87367800E+00 0.89251543E+00 0.90919850E+00 + 0.92382226E+00 0.93651517E+00 0.94743133E+00 0.95674125E+00 0.96462127E+00 + 0.97124385E+00 0.97677107E+00 0.98135191E+00 0.98512172E+00 0.98820203E+00 + 0.99070036E+00 0.99271041E+00 0.99431321E+00 0.99557886E+00 0.99656828E+00 + 0.99733446E+00 0.99792304E+00 0.99837260E+00 0.99871502E+00 0.99897623E+00 + 0.99917708E+00 0.99933404E+00 0.99945969E+00 0.99956299E+00 0.99964977E+00 + 0.99972345E+00 0.99978583E+00 0.99983788E+00 0.99988032E+00 0.99991396E+00 + 0.99993981E+00 0.99995903E+00 0.99997287E+00 0.99998252E+00 0.99998904E+00 + 0.99999331E+00 0.99999603E+00 0.99999770E+00 0.99999871E+00 0.99999929E+00 + 0.99999962E+00 0.99999980E+00 0.99999990E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16099579E-02 0.48298723E-02 0.96597424E-02 0.16099567E-01 + 0.24149328E-01 0.33808939E-01 0.45078113E-01 0.57956155E-01 0.72441704E-01 + 0.88532394E-01 0.10622436E+00 0.12551156E+00 0.14638498E+00 0.16883158E+00 + 0.19283287E+00 0.21836303E+00 0.24538617E+00 0.27385317E+00 0.30369870E+00 + 0.33483873E+00 0.36716800E+00 0.40055721E+00 0.43485096E+00 0.46986750E+00 + 0.50539899E+00 0.54121122E+00 0.57704365E+00 0.61261182E+00 0.64761306E+00 + 0.68173648E+00 0.71467699E+00 0.74615135E+00 0.77591182E+00 0.80375386E+00 + 0.82951851E+00 0.85309386E+00 0.87441815E+00 0.89348300E+00 0.91033351E+00 + 0.92506351E+00 0.93780671E+00 0.94872482E+00 0.95799461E+00 0.96579640E+00 + 0.97230595E+00 0.97769030E+00 0.98210624E+00 0.98569953E+00 0.98860368E+00 + 0.99093820E+00 0.99280715E+00 0.99429885E+00 0.99548694E+00 0.99643210E+00 + 0.99718399E+00 0.99778286E+00 0.99826090E+00 0.99864344E+00 0.99895003E+00 + 0.99919561E+00 0.99939157E+00 0.99954673E+00 0.99966815E+00 0.99976167E+00 + 0.99983236E+00 0.99988463E+00 0.99992239E+00 0.99994899E+00 0.99996726E+00 + 0.99997948E+00 0.99998744E+00 0.99999250E+00 0.99999563E+00 0.99999752E+00 + 0.99999862E+00 0.99999925E+00 0.99999961E+00 0.99999980E+00 0.99999990E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15747334E-02 0.47241995E-02 0.94483965E-02 0.15747317E-01 + 0.23620933E-01 0.33069165E-01 0.44091817E-01 0.56688464E-01 0.70858220E-01 + 0.86599414E-01 0.10390925E+00 0.12278349E+00 0.14321608E+00 0.16519860E+00 + 0.18871930E+00 0.21376146E+00 0.24030079E+00 0.26830153E+00 0.29771127E+00 + 0.32845555E+00 0.36043307E+00 0.39351216E+00 0.42752850E+00 0.46228543E+00 + 0.49755795E+00 0.53309899E+00 0.56864554E+00 0.60392483E+00 0.63866090E+00 + 0.67257989E+00 0.70541280E+00 0.73689885E+00 0.76679361E+00 0.79488264E+00 + 0.82099512E+00 0.84501219E+00 0.86686916E+00 0.88655369E+00 0.90410127E+00 + 0.91958827E+00 0.93312319E+00 0.94483804E+00 0.95488080E+00 0.96340864E+00 + 0.97058156E+00 0.97655678E+00 0.98148461E+00 0.98550588E+00 0.98875067E+00 + 0.99133777E+00 0.99337490E+00 0.99495897E+00 0.99617617E+00 0.99710177E+00 + 0.99780010E+00 0.99832491E+00 0.99871991E+00 0.99901953E+00 0.99924969E+00 + 0.99942889E+00 0.99956972E+00 0.99968055E+00 0.99976709E+00 0.99983365E+00 + 0.99988379E+00 0.99992066E+00 0.99994708E+00 0.99996552E+00 0.99997805E+00 + 0.99998635E+00 0.99999171E+00 0.99999508E+00 0.99999715E+00 0.99999839E+00 + 0.99999911E+00 0.99999952E+00 0.99999975E+00 0.99999987E+00 0.99999994E+00 + 0.99999997E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15146804E-02 0.45440404E-02 0.90880782E-02 0.15146790E-01 + 0.22720164E-01 0.31808160E-01 0.42410685E-01 0.54527566E-01 0.68158452E-01 + 0.83302463E-01 0.99957572E-01 0.11812004E+00 0.13778415E+00 0.15894206E+00 + 0.18158321E+00 0.20569307E+00 0.23125127E+00 0.25822889E+00 0.28658448E+00 + 0.31625884E+00 0.34716918E+00 0.37920362E+00 0.41221738E+00 0.44603093E+00 + 0.48043137E+00 0.51517833E+00 0.55001394E+00 0.58467389E+00 0.61889629E+00 + 0.65242683E+00 0.68502059E+00 0.71644250E+00 0.74647024E+00 0.77490272E+00 + 0.80157237E+00 0.82635501E+00 0.84917225E+00 0.86998655E+00 0.88879363E+00 + 0.90561726E+00 0.92050874E+00 0.93354851E+00 0.94484629E+00 0.95453698E+00 + 0.96277293E+00 0.96971490E+00 0.97552354E+00 0.98035239E+00 0.98434261E+00 + 0.98762003E+00 0.99029418E+00 0.99245920E+00 0.99419549E+00 0.99557192E+00 + 0.99664810E+00 0.99747653E+00 0.99810409E+00 0.99857271E+00 0.99891923E+00 + 0.99917489E+00 0.99936485E+00 0.99950828E+00 0.99961889E+00 0.99970591E+00 + 0.99977528E+00 0.99983076E+00 0.99987484E+00 0.99990935E+00 0.99993580E+00 + 0.99995560E+00 0.99997003E+00 0.99998025E+00 0.99998731E+00 0.99999204E+00 + 0.99999513E+00 0.99999709E+00 0.99999830E+00 0.99999904E+00 0.99999947E+00 + 0.99999971E+00 0.99999985E+00 0.99999992E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15107136E-02 0.45321406E-02 0.90642805E-02 0.15107133E-01 + 0.22660697E-01 0.31724971E-01 0.42299950E-01 0.54385600E-01 0.67981800E-01 + 0.83088238E-01 0.99704148E-01 0.11782778E+00 0.13745553E+00 0.15858093E+00 + 0.18119391E+00 0.20528023E+00 0.23082013E+00 0.25778545E+00 0.28613536E+00 + 0.31581248E+00 0.34673969E+00 0.37881620E+00 0.41191146E+00 0.44585921E+00 + 0.48045605E+00 0.51546716E+00 0.55063590E+00 0.58569182E+00 0.62035572E+00 + 0.65434534E+00 0.68738436E+00 0.71921219E+00 0.74959133E+00 0.77831340E+00 + 0.80520630E+00 0.83014068E+00 0.85303180E+00 0.87383655E+00 0.89254947E+00 + 0.90920104E+00 0.92385741E+00 0.93661906E+00 0.94761635E+00 0.95700167E+00 + 0.96493972E+00 0.97159811E+00 0.97713965E+00 0.98171718E+00 0.98547057E+00 + 0.98852547E+00 0.99099349E+00 0.99297287E+00 0.99454930E+00 0.99579664E+00 + 0.99677784E+00 0.99754592E+00 0.99814485E+00 0.99861040E+00 0.99897094E+00 + 0.99924852E+00 0.99946020E+00 0.99961940E+00 0.99973698E+00 0.99982203E+00 + 0.99988214E+00 0.99992362E+00 0.99995156E+00 0.99996994E+00 0.99998174E+00 + 0.99998914E+00 0.99999368E+00 0.99999640E+00 0.99999800E+00 0.99999891E+00 + 0.99999942E+00 0.99999970E+00 0.99999985E+00 0.99999992E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14835143E-02 0.44505424E-02 0.89010806E-02 0.14835111E-01 + 0.22252567E-01 0.31153259E-01 0.41536803E-01 0.53402608E-01 0.66749939E-01 + 0.81577957E-01 0.97885638E-01 0.11567149E+00 0.13493308E+00 0.15566633E+00 + 0.17786434E+00 0.20151571E+00 0.22660214E+00 0.25309573E+00 0.28095605E+00 + 0.31012715E+00 0.34053478E+00 0.37208414E+00 0.40465744E+00 0.43811070E+00 + 0.47226972E+00 0.50692693E+00 0.54184139E+00 0.57674361E+00 0.61134647E+00 + 0.64535957E+00 0.67850156E+00 0.71050832E+00 0.74113986E+00 0.77018752E+00 + 0.79747968E+00 0.82288400E+00 0.84630714E+00 0.86769412E+00 0.88702750E+00 + 0.90432605E+00 0.91964250E+00 0.93306017E+00 0.94468865E+00 0.95465840E+00 + 0.96311441E+00 0.97020969E+00 0.97609953E+00 0.98093721E+00 0.98487067E+00 + 0.98803948E+00 0.99057206E+00 0.99258345E+00 0.99417404E+00 0.99542911E+00 + 0.99641921E+00 0.99720128E+00 0.99782025E+00 0.99831100E+00 0.99870036E+00 + 0.99900891E+00 0.99925250E+00 0.99944353E+00 0.99959185E+00 0.99970553E+00 + 0.99979130E+00 0.99985485E+00 0.99990102E+00 0.99993385E+00 0.99995670E+00 + 0.99997225E+00 0.99998259E+00 0.99998931E+00 0.99999357E+00 0.99999622E+00 + 0.99999782E+00 0.99999878E+00 0.99999933E+00 0.99999964E+00 0.99999981E+00 + 0.99999990E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14400227E-02 0.43200679E-02 0.86401351E-02 0.14400224E-01 + 0.21600335E-01 0.30240465E-01 0.40320610E-01 0.51840742E-01 0.64800789E-01 + 0.79200553E-01 0.95039563E-01 0.11231683E+00 0.13103046E+00 0.15117694E+00 + 0.17274990E+00 0.19573830E+00 0.22012435E+00 0.24588137E+00 0.27297171E+00 + 0.30134481E+00 0.33093523E+00 0.36166015E+00 0.39341607E+00 0.42607532E+00 + 0.45948329E+00 0.49345708E+00 0.52778591E+00 0.56223398E+00 0.59654594E+00 + 0.63045354E+00 0.66368240E+00 0.69595974E+00 0.72702377E+00 0.75663377E+00 + 0.78457949E+00 0.81068899E+00 0.83483403E+00 0.85693267E+00 0.87694926E+00 + 0.89489263E+00 0.91081277E+00 0.92479603E+00 0.93695891E+00 0.94744104E+00 + 0.95639774E+00 0.96399260E+00 0.97039090E+00 0.97575367E+00 0.98023230E+00 + 0.98396379E+00 0.98706751E+00 0.98964424E+00 0.99177728E+00 0.99353502E+00 + 0.99497398E+00 0.99614169E+00 0.99707894E+00 0.99782143E+00 0.99840091E+00 + 0.99884574E+00 0.99918119E+00 0.99942945E+00 0.99960964E+00 0.99973785E+00 + 0.99982724E+00 0.99988829E+00 0.99992915E+00 0.99995593E+00 0.99997312E+00 + 0.99998392E+00 0.99999058E+00 0.99999459E+00 0.99999696E+00 0.99999832E+00 + 0.99999910E+00 0.99999952E+00 0.99999975E+00 0.99999988E+00 0.99999994E+00 + 0.99999997E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14474229E-02 0.43422682E-02 0.86845358E-02 0.14474226E-01 + 0.21711336E-01 0.30395856E-01 0.40527758E-01 0.52106984E-01 0.65133425E-01 + 0.79606891E-01 0.95527002E-01 0.11289295E+00 0.13170317E+00 0.15195488E+00 + 0.17364331E+00 0.19676021E+00 0.22129155E+00 0.24721506E+00 0.27449792E+00 + 0.30309441E+00 0.33294307E+00 0.36396344E+00 0.39605223E+00 0.42907921E+00 + 0.46288323E+00 0.49726953E+00 0.53201092E+00 0.56685434E+00 0.60153103E+00 + 0.63576598E+00 0.66928313E+00 0.70180803E+00 0.73307357E+00 0.76283282E+00 + 0.79087566E+00 0.81704090E+00 0.84121820E+00 0.86334232E+00 0.88338684E+00 + 0.90136176E+00 0.91731310E+00 0.93132050E+00 0.94349115E+00 0.95395164E+00 + 0.96284070E+00 0.97030462E+00 0.97649477E+00 0.98156509E+00 0.98566824E+00 + 0.98895099E+00 0.99154992E+00 0.99358829E+00 0.99517395E+00 0.99639842E+00 + 0.99733734E+00 0.99805192E+00 0.99859111E+00 0.99899386E+00 0.99929120E+00 + 0.99950783E+00 0.99966339E+00 0.99977338E+00 0.99984989E+00 0.99990221E+00 + 0.99993737E+00 0.99996059E+00 0.99997564E+00 0.99998521E+00 0.99999119E+00 + 0.99999485E+00 0.99999704E+00 0.99999834E+00 0.99999908E+00 0.99999951E+00 + 0.99999974E+00 0.99999986E+00 0.99999993E+00 0.99999997E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.28926165E-02 0.86762344E-02 0.17342804E-01 0.28875979E-01 + 0.43248319E-01 0.60419146E-01 0.80336286E-01 0.10293909E+00 0.12815733E+00 + 0.15590516E+00 0.18607204E+00 0.21851442E+00 0.25305132E+00 0.28946166E+00 + 0.32748175E+00 0.36680671E+00 0.40709967E+00 0.44800538E+00 0.48915892E+00 + 0.53018522E+00 0.57069505E+00 0.61029081E+00 0.64859054E+00 0.68525796E+00 + 0.72001927E+00 0.75266399E+00 0.78303520E+00 0.81101892E+00 0.83654690E+00 + 0.85960927E+00 0.88025472E+00 0.89857187E+00 0.91466998E+00 0.92867441E+00 + 0.94073309E+00 0.95102177E+00 0.95974182E+00 0.96710747E+00 0.97332398E+00 + 0.97856721E+00 0.98297508E+00 0.98665116E+00 0.98967484E+00 0.99211316E+00 + 0.99403076E+00 0.99549611E+00 0.99658332E+00 0.99736958E+00 0.99792966E+00 + 0.99832966E+00 0.99862282E+00 0.99884846E+00 0.99903296E+00 0.99919163E+00 + 0.99933159E+00 0.99945548E+00 0.99956484E+00 0.99966130E+00 0.99974599E+00 + 0.99981871E+00 0.99987824E+00 0.99992369E+00 0.99995560E+00 0.99997607E+00 + 0.99998806E+00 0.99999449E+00 0.99999764E+00 0.99999907E+00 0.99999966E+00 + 0.99999988E+00 0.99999996E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.29263645E-02 0.87732321E-02 0.17530586E-01 0.29183878E-01 + 0.43713325E-01 0.61090217E-01 0.81270322E-01 0.10418929E+00 0.12976098E+00 + 0.15787569E+00 0.18839669E+00 0.22115511E+00 0.25594679E+00 0.29253392E+00 + 0.33064670E+00 0.36998496E+00 0.41022643E+00 0.45104132E+00 0.49210197E+00 + 0.53307773E+00 0.57361994E+00 0.61335570E+00 0.65190229E+00 0.68889277E+00 + 0.72399756E+00 0.75694135E+00 0.78751846E+00 0.81560104E+00 0.84113353E+00 + 0.86411995E+00 0.88461383E+00 0.90271141E+00 0.91854486E+00 0.93227477E+00 + 0.94408162E+00 0.95415730E+00 0.96269636E+00 0.96988590E+00 0.97589681E+00 + 0.98088056E+00 0.98497183E+00 0.98829352E+00 0.99096046E+00 0.99307987E+00 + 0.99474927E+00 0.99605381E+00 0.99706488E+00 0.99784090E+00 0.99842963E+00 + 0.99887079E+00 0.99919791E+00 0.99943887E+00 0.99961571E+00 0.99974460E+00 + 0.99983690E+00 0.99990084E+00 0.99994302E+00 0.99996921E+00 0.99998441E+00 + 0.99999261E+00 0.99999673E+00 0.99999865E+00 0.99999948E+00 0.99999981E+00 + 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.29159764E-02 0.87426037E-02 0.17468024E-01 0.29072926E-01 + 0.43529943E-01 0.60802156E-01 0.80839848E-01 0.10357632E+00 0.12892353E+00 + 0.15676757E+00 0.18696577E+00 0.21934803E+00 0.25371990E+00 0.28986305E+00 + 0.32753420E+00 0.36646566E+00 0.40636691E+00 0.44692519E+00 0.48780513E+00 + 0.52864872E+00 0.56907942E+00 0.60871565E+00 0.64719196E+00 0.68417920E+00 + 0.71939660E+00 0.75261471E+00 0.78365177E+00 0.81236771E+00 0.83866052E+00 + 0.86246849E+00 0.88377662E+00 0.90262191E+00 0.91909432E+00 0.93333273E+00 + 0.94551459E+00 0.95583961E+00 0.96451293E+00 0.97173328E+00 0.97768769E+00 + 0.98254984E+00 0.98647986E+00 0.98962447E+00 0.99211685E+00 0.99407549E+00 + 0.99560229E+00 0.99678162E+00 0.99768173E+00 0.99835833E+00 0.99885824E+00 + 0.99922137E+00 0.99948104E+00 0.99966371E+00 0.99978956E+00 0.99987372E+00 + 0.99992779E+00 0.99996085E+00 0.99997995E+00 0.99999032E+00 0.99999561E+00 + 0.99999813E+00 0.99999925E+00 0.99999972E+00 0.99999990E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.28790424E-02 0.86343329E-02 0.17256392E-01 0.28728351E-01 + 0.43025369E-01 0.60113287E-01 0.79946186E-01 0.10246394E+00 0.12759092E+00 + 0.15523573E+00 0.18528978E+00 0.21762194E+00 0.25206950E+00 0.28842831E+00 + 0.32644549E+00 0.36581768E+00 0.40619745E+00 0.44721008E+00 0.48847671E+00 + 0.52963095E+00 0.57031935E+00 0.61019254E+00 0.64890059E+00 0.68610055E+00 + 0.72147412E+00 0.75474782E+00 0.78570692E+00 0.81419873E+00 0.84013092E+00 + 0.86347220E+00 0.88425456E+00 0.90257093E+00 0.91856643E+00 0.93242532E+00 + 0.94435435E+00 0.95456318E+00 0.96324753E+00 0.97058125E+00 0.97671775E+00 + 0.98179515E+00 0.98594085E+00 0.98927476E+00 0.99191177E+00 0.99396273E+00 + 0.99553329E+00 0.99672081E+00 0.99761073E+00 0.99827406E+00 0.99876684E+00 + 0.99913161E+00 0.99939995E+00 0.99959525E+00 0.99973498E+00 0.99983254E+00 + 0.99989844E+00 0.99994118E+00 0.99996759E+00 0.99998306E+00 0.99999162E+00 + 0.99999608E+00 0.99999827E+00 0.99999928E+00 0.99999972E+00 0.99999990E+00 + 0.99999996E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.27432803E-02 0.82259955E-02 0.16440087E-01 0.27372691E-01 + 0.41005210E-01 0.57312261E-01 0.76260292E-01 0.97805168E-01 0.12188869E+00 + 0.14843496E+00 0.17734707E+00 0.20850306E+00 0.24175129E+00 0.27690636E+00 + 0.31374599E+00 0.35200928E+00 0.39139919E+00 0.43158952E+00 0.47223170E+00 + 0.51295835E+00 0.55338676E+00 0.59312553E+00 0.63178618E+00 0.66900073E+00 + 0.70444267E+00 0.73784370E+00 0.76900284E+00 0.79778920E+00 0.82414031E+00 + 0.84805660E+00 0.86959215E+00 0.88884194E+00 0.90592773E+00 0.92098539E+00 + 0.93415602E+00 0.94558067E+00 0.95539755E+00 0.96374262E+00 0.97075402E+00 + 0.97657662E+00 0.98136208E+00 0.98526351E+00 0.98842702E+00 0.99098332E+00 + 0.99304215E+00 0.99469160E+00 0.99600181E+00 0.99703038E+00 0.99782645E+00 + 0.99843293E+00 0.99888742E+00 0.99922260E+00 0.99946625E+00 0.99964105E+00 + 0.99976472E+00 0.99985062E+00 0.99990872E+00 0.99994661E+00 0.99997025E+00 + 0.99998426E+00 0.99999210E+00 0.99999625E+00 0.99999832E+00 0.99999929E+00 + 0.99999972E+00 0.99999989E+00 0.99999996E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.26611656E-02 0.79798764E-02 0.15949930E-01 0.26562402E-01 + 0.39804313E-01 0.55656161E-01 0.74088697E-01 0.95060073E-01 0.11851446E+00 + 0.14438099E+00 0.17257151E+00 0.20297736E+00 0.23546588E+00 0.26987556E+00 + 0.30600971E+00 0.34363198E+00 0.38246735E+00 0.42220778E+00 0.46251801E+00 + 0.50304029E+00 0.54340019E+00 0.58321654E+00 0.62211746E+00 0.65975865E+00 + 0.69583527E+00 0.73008725E+00 0.76230345E+00 0.79232371E+00 0.82003331E+00 + 0.84535315E+00 0.86823694E+00 0.88867958E+00 0.90672815E+00 0.92248416E+00 + 0.93609410E+00 0.94773416E+00 0.95759647E+00 0.96587939E+00 0.97278046E+00 + 0.97849006E+00 0.98318500E+00 0.98702245E+00 0.99013581E+00 0.99263492E+00 + 0.99461074E+00 0.99614211E+00 0.99730138E+00 0.99815673E+00 0.99877149E+00 + 0.99920192E+00 0.99949554E+00 0.99969047E+00 0.99981616E+00 0.99989462E+00 + 0.99994187E+00 0.99996922E+00 0.99998439E+00 0.99999243E+00 0.99999650E+00 + 0.99999846E+00 0.99999935E+00 0.99999974E+00 0.99999990E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.26004157E-02 0.77981508E-02 0.15587988E-01 0.25962450E-01 + 0.38910568E-01 0.54415607E-01 0.72452175E-01 0.92983284E-01 0.11595804E+00 + 0.14131001E+00 0.16895562E+00 0.19879213E+00 0.23069426E+00 0.26450839E+00 + 0.30004640E+00 0.33708249E+00 0.37535546E+00 0.41457575E+00 0.45443408E+00 + 0.49460810E+00 0.53476640E+00 0.57456911E+00 0.61366682E+00 0.65170203E+00 + 0.68831643E+00 0.72316617E+00 0.75594661E+00 0.78642198E+00 0.81444591E+00 + 0.83996088E+00 0.86297999E+00 0.88356565E+00 0.90181632E+00 0.91786086E+00 + 0.93185468E+00 0.94397255E+00 0.95439680E+00 0.96330439E+00 0.97085780E+00 + 0.97720214E+00 0.98246752E+00 0.98677326E+00 0.99023174E+00 0.99295132E+00 + 0.99503805E+00 0.99659594E+00 0.99772527E+00 0.99851944E+00 0.99906133E+00 + 0.99942046E+00 0.99965188E+00 0.99979694E+00 0.99988526E+00 0.99993739E+00 + 0.99996710E+00 0.99998340E+00 0.99999198E+00 0.99999629E+00 0.99999837E+00 + 0.99999932E+00 0.99999973E+00 0.99999990E+00 0.99999996E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.25081639E-02 0.75223784E-02 0.15038006E-01 0.25047959E-01 + 0.37542135E-01 0.52506195E-01 0.69919809E-01 0.89754404E-01 0.11197062E+00 + 0.13651577E+00 0.16332147E+00 0.19230147E+00 0.22334808E+00 0.25632674E+00 + 0.29107080E+00 0.32737837E+00 0.36501243E+00 0.40370467E+00 0.44316014E+00 + 0.48305762E+00 0.52304698E+00 0.56275234E+00 0.60178898E+00 0.63979011E+00 + 0.67643113E+00 0.71144109E+00 0.74460062E+00 0.77573362E+00 0.80470053E+00 + 0.83139563E+00 0.85574722E+00 0.87771884E+00 0.89731149E+00 0.91456750E+00 + 0.92957421E+00 0.94246280E+00 0.95340034E+00 0.96257836E+00 0.97020135E+00 + 0.97647538E+00 0.98159655E+00 0.98574178E+00 0.98906492E+00 0.99169813E+00 + 0.99375601E+00 0.99533962E+00 0.99653880E+00 0.99743268E+00 0.99808949E+00 + 0.99856634E+00 0.99890979E+00 0.99915684E+00 0.99933618E+00 0.99946941E+00 + 0.99957216E+00 0.99965510E+00 0.99972493E+00 0.99978522E+00 0.99983736E+00 + 0.99988148E+00 0.99991738E+00 0.99994513E+00 0.99996536E+00 0.99997925E+00 + 0.99998821E+00 0.99999364E+00 0.99999675E+00 0.99999843E+00 0.99999928E+00 + 0.99999968E+00 0.99999987E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.24332355E-02 0.72984503E-02 0.14592788E-01 0.24311344E-01 + 0.36446733E-01 0.50988495E-01 0.67921838E-01 0.87225484E-01 0.10886916E+00 + 0.13281132E+00 0.15899673E+00 0.18735251E+00 0.21778247E+00 0.25016051E+00 + 0.28432422E+00 0.32007126E+00 0.35716078E+00 0.39531981E+00 0.43425297E+00 + 0.47365275E+00 0.51320722E+00 0.55260262E+00 0.59152097E+00 0.62963777E+00 + 0.66662499E+00 0.70216051E+00 0.73594269E+00 0.76770904E+00 0.79725485E+00 + 0.82444511E+00 0.84921457E+00 0.87155698E+00 0.89151026E+00 0.90914495E+00 + 0.92456024E+00 0.93788600E+00 0.94928401E+00 0.95894114E+00 0.96705480E+00 + 0.97381772E+00 0.97940805E+00 0.98398605E+00 0.98769537E+00 0.99066574E+00 + 0.99301453E+00 0.99484656E+00 0.99625381E+00 0.99731599E+00 0.99810221E+00 + 0.99867254E+00 0.99907869E+00 0.99936397E+00 0.99956299E+00 0.99970186E+00 + 0.99979909E+00 0.99986719E+00 0.99991451E+00 0.99994675E+00 0.99996806E+00 + 0.99998162E+00 0.99998988E+00 0.99999468E+00 0.99999733E+00 0.99999872E+00 + 0.99999942E+00 0.99999975E+00 0.99999990E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.23050297E-02 0.69150795E-02 0.13829084E-01 0.23044990E-01 + 0.34559183E-01 0.48365190E-01 0.64452016E-01 0.82802338E-01 0.10339068E+00 + 0.12618189E+00 0.15112978E+00 0.17817497E+00 0.20724163E+00 0.23823376E+00 + 0.27103088E+00 0.30548312E+00 0.34140719E+00 0.37858616E+00 0.41677303E+00 + 0.45569510E+00 0.49505492E+00 0.53452701E+00 0.57375567E+00 0.61236193E+00 + 0.64996322E+00 0.68619993E+00 0.72075917E+00 0.75338758E+00 0.78389192E+00 + 0.81213318E+00 0.83802129E+00 0.86151239E+00 0.88260765E+00 0.90135308E+00 + 0.91783820E+00 0.93219045E+00 0.94456553E+00 0.95513604E+00 0.96408028E+00 + 0.97157284E+00 0.97777908E+00 0.98285425E+00 0.98694547E+00 0.99019337E+00 + 0.99273160E+00 0.99468414E+00 0.99616243E+00 0.99726358E+00 0.99807032E+00 + 0.99865180E+00 0.99906466E+00 0.99935415E+00 0.99955530E+00 0.99969445E+00 + 0.99979072E+00 0.99985756E+00 0.99990415E+00 0.99993662E+00 0.99995908E+00 + 0.99997436E+00 0.99998448E+00 0.99999095E+00 0.99999494E+00 0.99999729E+00 + 0.99999861E+00 0.99999932E+00 0.99999968E+00 0.99999986E+00 0.99999994E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.22564097E-02 0.67685002E-02 0.13534780E-01 0.22552259E-01 + 0.33815677E-01 0.47316913E-01 0.63044593E-01 0.80983711E-01 0.10111479E+00 + 0.12341175E+00 0.14783799E+00 0.17434123E+00 0.20284894E+00 0.23326675E+00 + 0.26547966E+00 0.29935116E+00 0.33471667E+00 0.37137547E+00 0.40908708E+00 + 0.44757460E+00 0.48653352E+00 0.52564357E+00 0.56457903E+00 0.60301350E+00 + 0.64062097E+00 0.67707943E+00 0.71207916E+00 0.74533306E+00 0.77658712E+00 + 0.80563135E+00 0.83230983E+00 0.85652659E+00 0.87824635E+00 0.89749205E+00 + 0.91434168E+00 0.92892391E+00 0.94140971E+00 0.95199949E+00 0.96090813E+00 + 0.96835064E+00 0.97453033E+00 0.97963133E+00 0.98381631E+00 0.98722740E+00 + 0.98998808E+00 0.99220486E+00 0.99396942E+00 0.99536113E+00 0.99644930E+00 + 0.99729423E+00 0.99794712E+00 0.99844993E+00 0.99883583E+00 0.99913065E+00 + 0.99935483E+00 0.99952476E+00 0.99965351E+00 0.99975112E+00 0.99982493E+00 + 0.99988014E+00 0.99992057E+00 0.99994929E+00 0.99996890E+00 0.99998172E+00 + 0.99998972E+00 0.99999447E+00 0.99999715E+00 0.99999860E+00 0.99999934E+00 + 0.99999971E+00 0.99999987E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.22183436E-02 0.66549505E-02 0.13309308E-01 0.22180199E-01 + 0.33265447E-01 0.46561606E-01 0.62063257E-01 0.79761690E-01 0.99642906E-01 + 0.12168512E+00 0.14585620E+00 0.17211058E+00 0.20038423E+00 0.23058752E+00 + 0.26260094E+00 0.29627721E+00 0.33144611E+00 0.36791437E+00 0.40546010E+00 + 0.44382647E+00 0.48271914E+00 0.52180980E+00 0.56074637E+00 0.59916974E+00 + 0.63673274E+00 0.67311551E+00 0.70803376E+00 0.74123922E+00 0.77251503E+00 + 0.80167421E+00 0.82856800E+00 0.85309968E+00 0.87523243E+00 0.89498411E+00 + 0.91241452E+00 0.92761597E+00 0.94071124E+00 0.95185291E+00 0.96121844E+00 + 0.96900075E+00 0.97539837E+00 0.98060699E+00 0.98481258E+00 0.98818570E+00 + 0.99087710E+00 0.99301506E+00 0.99470532E+00 0.99603351E+00 0.99706898E+00 + 0.99786852E+00 0.99847886E+00 0.99893823E+00 0.99927776E+00 0.99952289E+00 + 0.99969486E+00 0.99981152E+00 0.99988777E+00 0.99993566E+00 0.99996453E+00 + 0.99998121E+00 0.99999044E+00 0.99999533E+00 0.99999782E+00 0.99999902E+00 + 0.99999958E+00 0.99999983E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.21391866E-02 0.64173112E-02 0.12833553E-01 0.21386480E-01 + 0.32074141E-01 0.44894065E-01 0.59842830E-01 0.76915043E-01 0.96101687E-01 + 0.11738782E+00 0.14074978E+00 0.16615231E+00 0.19354564E+00 0.22286143E+00 + 0.25400716E+00 0.28685914E+00 0.32125634E+00 0.35699902E+00 0.39385426E+00 + 0.43156443E+00 0.46985171E+00 0.50841749E+00 0.54694313E+00 0.58509716E+00 + 0.62254762E+00 0.65897435E+00 0.69407730E+00 0.72758211E+00 0.75924696E+00 + 0.78887057E+00 0.81629826E+00 0.84142551E+00 0.86419930E+00 0.88461714E+00 + 0.90272549E+00 0.91861783E+00 0.93242899E+00 0.94432350E+00 0.95448100E+00 + 0.96308357E+00 0.97030827E+00 0.97632438E+00 0.98129209E+00 0.98536025E+00 + 0.98866356E+00 0.99132113E+00 0.99343735E+00 0.99510387E+00 0.99640111E+00 + 0.99739877E+00 0.99815589E+00 0.99872152E+00 0.99913598E+00 0.99943254E+00 + 0.99963880E+00 0.99977768E+00 0.99986791E+00 0.99992435E+00 0.99995828E+00 + 0.99997785E+00 0.99998870E+00 0.99999445E+00 0.99999739E+00 0.99999882E+00 + 0.99999949E+00 0.99999979E+00 0.99999991E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.20842807E-02 0.62526570E-02 0.12504634E-01 0.20839368E-01 + 0.31255649E-01 0.43751731E-01 0.58324794E-01 0.74969958E-01 0.93678781E-01 + 0.11443748E+00 0.13722526E+00 0.16201256E+00 0.18875798E+00 0.21740316E+00 + 0.24786587E+00 0.28003319E+00 0.31375721E+00 0.34885411E+00 0.38510727E+00 + 0.42227375E+00 0.46009208E+00 0.49828808E+00 0.53657695E+00 0.57466109E+00 + 0.61222616E+00 0.64894230E+00 0.68447450E+00 0.71849930E+00 0.75072561E+00 + 0.78091809E+00 0.80891371E+00 0.83462224E+00 0.85801335E+00 0.87910103E+00 + 0.89793237E+00 0.91458139E+00 0.92914602E+00 0.94174669E+00 0.95252628E+00 + 0.96164885E+00 0.96929362E+00 0.97564398E+00 0.98087586E+00 0.98514986E+00 + 0.98860856E+00 0.99137759E+00 0.99356799E+00 0.99527797E+00 0.99659386E+00 + 0.99759060E+00 0.99833239E+00 0.99887345E+00 0.99925911E+00 0.99952680E+00 + 0.99970712E+00 0.99982464E+00 0.99989855E+00 0.99994335E+00 0.99996948E+00 + 0.99998414E+00 0.99999206E+00 0.99999617E+00 0.99999822E+00 0.99999920E+00 + 0.99999966E+00 0.99999986E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.20524420E-02 0.61570350E-02 0.12313324E-01 0.20520720E-01 + 0.30778405E-01 0.43084882E-01 0.57436995E-01 0.73828657E-01 0.92250042E-01 + 0.11268729E+00 0.13512154E+00 0.15952636E+00 0.18586399E+00 0.21408167E+00 + 0.24410845E+00 0.27585116E+00 0.30918925E+00 0.34396835E+00 0.37999389E+00 + 0.41702962E+00 0.45480473E+00 0.49302308E+00 0.53136742E+00 0.56950306E+00 + 0.60708919E+00 0.64379760E+00 0.67932912E+00 0.71342003E+00 0.74583967E+00 + 0.77638645E+00 0.80488793E+00 0.83120733E+00 0.85525399E+00 0.87699012E+00 + 0.89642794E+00 0.91362009E+00 0.92865162E+00 0.94163716E+00 0.95271959E+00 + 0.96206486E+00 0.96985237E+00 0.97626495E+00 0.98148151E+00 0.98567327E+00 + 0.98900193E+00 0.99161750E+00 0.99365533E+00 0.99523331E+00 0.99645023E+00 + 0.99738581E+00 0.99810221E+00 0.99864680E+00 0.99905569E+00 0.99935710E+00 + 0.99957406E+00 0.99972587E+00 0.99982885E+00 0.99989643E+00 0.99993929E+00 + 0.99996555E+00 0.99998109E+00 0.99998996E+00 0.99999484E+00 0.99999744E+00 + 0.99999877E+00 0.99999943E+00 0.99999975E+00 0.99999989E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.19513370E-02 0.58536290E-02 0.11706485E-01 0.19509565E-01 + 0.29262495E-01 0.40964656E-01 0.54614775E-01 0.70210140E-01 0.87745542E-01 + 0.10721203E+00 0.12859543E+00 0.15187466E+00 0.17702009E+00 0.20399117E+00 + 0.23273253E+00 0.26316908E+00 0.29520283E+00 0.32871026E+00 0.36353723E+00 + 0.39949385E+00 0.43635392E+00 0.47385856E+00 0.51172247E+00 0.54964113E+00 + 0.58729632E+00 0.62435945E+00 0.66049678E+00 0.69538101E+00 0.72870850E+00 + 0.76021639E+00 0.78969378E+00 0.81698502E+00 0.84198738E+00 0.86464836E+00 + 0.88496541E+00 0.90298562E+00 0.91880215E+00 0.93254671E+00 0.94437954E+00 + 0.95447841E+00 0.96302765E+00 0.97020871E+00 0.97619371E+00 0.98114231E+00 + 0.98520068E+00 0.98850145E+00 0.99116365E+00 0.99329237E+00 0.99497875E+00 + 0.99630070E+00 0.99732417E+00 0.99810475E+00 0.99868924E+00 0.99911714E+00 + 0.99942210E+00 0.99963285E+00 0.99977370E+00 0.99986462E+00 0.99992133E+00 + 0.99995554E+00 0.99997553E+00 0.99998686E+00 0.99999312E+00 0.99999648E+00 + 0.99999824E+00 0.99999914E+00 0.99999959E+00 0.99999981E+00 0.99999991E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.19002882E-02 0.57008961E-02 0.11401788E-01 0.19002653E-01 + 0.28502735E-01 0.39900760E-01 0.53194672E-01 0.68381068E-01 0.85454436E-01 + 0.10440605E+00 0.12522279E+00 0.14788684E+00 0.17237604E+00 0.19866317E+00 + 0.22671217E+00 0.25647106E+00 0.28786320E+00 0.32077987E+00 0.35507587E+00 + 0.39056721E+00 0.42703040E+00 0.46420488E+00 0.50180014E+00 0.53950649E+00 + 0.57700609E+00 0.61398050E+00 0.65011507E+00 0.68510683E+00 0.71867660E+00 + 0.75057879E+00 0.78060532E+00 0.80858617E+00 0.83438918E+00 0.85792051E+00 + 0.87912774E+00 0.89800560E+00 0.91460093E+00 0.92901254E+00 0.94138437E+00 + 0.95189440E+00 0.96074195E+00 0.96813441E+00 0.97427509E+00 0.97935420E+00 + 0.98354321E+00 0.98699152E+00 0.98982488E+00 0.99214559E+00 0.99403481E+00 + 0.99555664E+00 0.99676345E+00 0.99770073E+00 0.99841044E+00 0.99893248E+00 + 0.99930446E+00 0.99956072E+00 0.99973120E+00 0.99984067E+00 0.99990850E+00 + 0.99994907E+00 0.99997251E+00 0.99998559E+00 0.99999266E+00 0.99999636E+00 + 0.99999824E+00 0.99999917E+00 0.99999961E+00 0.99999982E+00 0.99999992E+00 + 0.99999997E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.19018069E-02 0.57055495E-02 0.11411367E-01 0.19019227E-01 + 0.28528800E-01 0.39939398E-01 0.53249796E-01 0.68457879E-01 0.85560155E-01 + 0.10455109E+00 0.12542220E+00 0.14816094E+00 0.17274921E+00 0.19916056E+00 + 0.22735524E+00 0.25727441E+00 0.28883557E+00 0.32192950E+00 0.35641640E+00 + 0.39212029E+00 0.42882409E+00 0.46626948E+00 0.50416329E+00 0.54218994E+00 + 0.58002460E+00 0.61734048E+00 0.65381222E+00 0.68912266E+00 0.72297349E+00 + 0.75509439E+00 0.78525005E+00 0.81324871E+00 0.83895191E+00 0.86227964E+00 + 0.88320987E+00 0.90177875E+00 0.91808095E+00 0.93226149E+00 0.94449634E+00 + 0.95496951E+00 0.96385703E+00 0.97132113E+00 0.97751208E+00 0.98257317E+00 + 0.98664517E+00 0.98986767E+00 0.99237688E+00 0.99430142E+00 0.99575815E+00 + 0.99684914E+00 0.99766000E+00 0.99825997E+00 0.99870335E+00 0.99903167E+00 + 0.99927595E+00 0.99945889E+00 0.99959680E+00 0.99970137E+00 0.99978094E+00 + 0.99984147E+00 0.99988728E+00 0.99992156E+00 0.99994677E+00 0.99996487E+00 + 0.99997750E+00 0.99998604E+00 0.99999163E+00 0.99999514E+00 0.99999728E+00 + 0.99999853E+00 0.99999923E+00 0.99999961E+00 0.99999981E+00 0.99999991E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.18538743E-02 0.55616160E-02 0.11123175E-01 0.18538435E-01 + 0.27807101E-01 0.38928378E-01 0.51900350E-01 0.66719265E-01 0.83379225E-01 + 0.10187215E+00 0.12218715E+00 0.14430847E+00 0.16821279E+00 0.19386719E+00 + 0.22122788E+00 0.25023762E+00 0.28082107E+00 0.31287968E+00 0.34628764E+00 + 0.38088975E+00 0.41649950E+00 0.45289523E+00 0.48981729E+00 0.52697264E+00 + 0.56404799E+00 0.60072438E+00 0.63668693E+00 0.67163134E+00 0.70527122E+00 + 0.73734745E+00 0.76763729E+00 0.79596021E+00 0.82217867E+00 0.84619769E+00 + 0.86796841E+00 0.88749351E+00 0.90482714E+00 0.92006669E+00 0.93333977E+00 + 0.94479230E+00 0.95458089E+00 0.96286951E+00 0.96982680E+00 0.97562133E+00 + 0.98041543E+00 0.98436023E+00 0.98759263E+00 0.99023354E+00 0.99238656E+00 + 0.99413740E+00 0.99555460E+00 0.99669180E+00 0.99759161E+00 0.99828961E+00 + 0.99881774E+00 0.99920593E+00 0.99948236E+00 0.99967273E+00 0.99979943E+00 + 0.99988087E+00 0.99993144E+00 0.99996178E+00 0.99997936E+00 0.99998920E+00 + 0.99999453E+00 0.99999732E+00 0.99999873E+00 0.99999942E+00 0.99999974E+00 + 0.99999989E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.18311835E-02 0.54936591E-02 0.10987411E-01 0.18312330E-01 + 0.27468227E-01 0.38454732E-01 0.51271111E-01 0.65916018E-01 0.82386963E-01 + 0.10067929E+00 0.12078469E+00 0.14268934E+00 0.16637241E+00 0.19180458E+00 + 0.21894524E+00 0.24773860E+00 0.27810959E+00 0.30996015E+00 0.34316608E+00 + 0.37757583E+00 0.41301215E+00 0.44927455E+00 0.48613928E+00 0.52335689E+00 + 0.56065106E+00 0.59772085E+00 0.63424577E+00 0.66989364E+00 0.70433289E+00 + 0.73724816E+00 0.76835680E+00 0.79742428E+00 0.82427663E+00 0.84880757E+00 + 0.87097959E+00 0.89081804E+00 0.90839773E+00 0.92382588E+00 0.93722825E+00 + 0.94874400E+00 0.95852735E+00 0.96674830E+00 0.97358674E+00 0.97922131E+00 + 0.98381926E+00 0.98753187E+00 0.99049508E+00 0.99283161E+00 0.99465171E+00 + 0.99605272E+00 0.99711856E+00 0.99792011E+00 0.99851606E+00 0.99895429E+00 + 0.99927303E+00 0.99950229E+00 0.99966514E+00 0.99977912E+00 0.99985749E+00 + 0.99991026E+00 0.99994494E+00 0.99996713E+00 0.99998092E+00 0.99998925E+00 + 0.99999412E+00 0.99999688E+00 0.99999840E+00 0.99999920E+00 0.99999962E+00 + 0.99999982E+00 0.99999992E+00 0.99999996E+00 0.99999999E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.17887830E-02 0.53661904E-02 0.10732101E-01 0.17886390E-01 + 0.26828849E-01 0.37559022E-01 0.50075947E-01 0.64377793E-01 0.80461459E-01 + 0.98322244E-01 0.11795365E+00 0.13934701E+00 0.16249030E+00 0.18736554E+00 + 0.21394455E+00 0.24218385E+00 0.27201913E+00 0.30336042E+00 0.33608806E+00 + 0.37004935E+00 0.40505579E+00 0.44088263E+00 0.47727359E+00 0.51395022E+00 + 0.55062053E+00 0.58698345E+00 0.62273392E+00 0.65757378E+00 0.69122538E+00 + 0.72344243E+00 0.75401840E+00 0.78279278E+00 0.80965099E+00 0.83451740E+00 + 0.85734709E+00 0.87811985E+00 0.89683673E+00 0.91352029E+00 0.92821868E+00 + 0.94101018E+00 0.95200444E+00 0.96133894E+00 0.96917141E+00 0.97567003E+00 + 0.98100358E+00 0.98533319E+00 0.98880724E+00 0.99156001E+00 0.99371208E+00 + 0.99537086E+00 0.99663086E+00 0.99757409E+00 0.99827072E+00 0.99877941E+00 + 0.99914761E+00 0.99941218E+00 0.99960079E+00 0.99973379E+00 0.99982616E+00 + 0.99988905E+00 0.99993090E+00 0.99995804E+00 0.99997517E+00 0.99998569E+00 + 0.99999197E+00 0.99999561E+00 0.99999767E+00 0.99999879E+00 0.99999939E+00 + 0.99999970E+00 0.99999986E+00 0.99999994E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.17805776E-02 0.53417311E-02 0.10683430E-01 0.17805583E-01 + 0.26708003E-01 0.37390320E-01 0.49851757E-01 0.64090707E-01 0.80104185E-01 + 0.97887205E-01 0.11743207E+00 0.13872753E+00 0.16175758E+00 0.18649976E+00 + 0.21292320E+00 0.24098590E+00 0.27062980E+00 0.30177457E+00 0.33431274E+00 + 0.36810723E+00 0.40299182E+00 0.43877217E+00 0.47522457E+00 0.51209371E+00 + 0.54909350E+00 0.58591334E+00 0.62222886E+00 0.65771645E+00 0.69207065E+00 + 0.72501844E+00 0.75632291E+00 0.78577921E+00 0.81321285E+00 0.83848401E+00 + 0.86149518E+00 0.88219937E+00 0.90060742E+00 0.91679100E+00 0.93087710E+00 + 0.94303264E+00 0.95344372E+00 0.96229703E+00 0.96976771E+00 0.97601468E+00 + 0.98118202E+00 0.98540298E+00 0.98880311E+00 0.99150122E+00 0.99360884E+00 + 0.99522899E+00 0.99645485E+00 0.99736850E+00 0.99804008E+00 0.99852769E+00 + 0.99887838E+00 0.99912982E+00 0.99931192E+00 0.99944782E+00 0.99955423E+00 + 0.99964193E+00 0.99971678E+00 0.99978122E+00 0.99983589E+00 0.99988089E+00 + 0.99991650E+00 0.99994350E+00 0.99996310E+00 0.99997673E+00 0.99998583E+00 + 0.99999166E+00 0.99999525E+00 0.99999739E+00 0.99999861E+00 0.99999928E+00 + 0.99999964E+00 0.99999983E+00 0.99999992E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.17195996E-02 0.51587770E-02 0.10317464E-01 0.17195531E-01 + 0.25792769E-01 0.36108806E-01 0.48142999E-01 0.61894332E-01 0.77361137E-01 + 0.94540344E-01 0.11342648E+00 0.13401077E+00 0.15628020E+00 0.18021627E+00 + 0.20579356E+00 0.23297779E+00 0.26172264E+00 0.29196432E+00 0.32361567E+00 + 0.35656354E+00 0.39067030E+00 0.42577316E+00 0.46167878E+00 0.49815929E+00 + 0.53495457E+00 0.57177727E+00 0.60831711E+00 0.64424696E+00 0.67923409E+00 + 0.71295444E+00 0.74510621E+00 0.77542421E+00 0.80369607E+00 0.82977365E+00 + 0.85357359E+00 0.87507000E+00 0.89428552E+00 0.91128356E+00 0.92616197E+00 + 0.93904722E+00 0.95008857E+00 0.95945153E+00 0.96731074E+00 0.97384270E+00 + 0.97921919E+00 0.98360211E+00 0.98714042E+00 0.98996913E+00 0.99220933E+00 + 0.99396822E+00 0.99533876E+00 0.99639962E+00 0.99721591E+00 0.99784076E+00 + 0.99831714E+00 0.99867959E+00 0.99895554E+00 0.99916656E+00 0.99932943E+00 + 0.99945706E+00 0.99955919E+00 0.99964290E+00 0.99971302E+00 0.99977255E+00 + 0.99982314E+00 0.99986569E+00 0.99990070E+00 0.99992870E+00 0.99995036E+00 + 0.99996651E+00 0.99997812E+00 0.99998616E+00 0.99999152E+00 0.99999497E+00 + 0.99999711E+00 0.99999839E+00 0.99999914E+00 0.99999955E+00 0.99999977E+00 + 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16949223E-02 0.50847615E-02 0.10169517E-01 0.16949165E-01 + 0.25423602E-01 0.35592587E-01 0.47455700E-01 0.61012157E-01 0.76260437E-01 + 0.93197738E-01 0.11181909E+00 0.13211584E+00 0.15407396E+00 0.17767326E+00 + 0.20288717E+00 0.22968191E+00 0.25801410E+00 0.28782705E+00 0.31904612E+00 + 0.35157333E+00 0.38528263E+00 0.42001750E+00 0.45559015E+00 0.49178067E+00 + 0.52833682E+00 0.56497788E+00 0.60140283E+00 0.63729882E+00 0.67234698E+00 + 0.70622924E+00 0.73864135E+00 0.76931053E+00 0.79801082E+00 0.82457210E+00 + 0.84888254E+00 0.87088551E+00 0.89057408E+00 0.90798676E+00 0.92320654E+00 + 0.93636002E+00 0.94761200E+00 0.95715406E+00 0.96518887E+00 0.97191390E+00 + 0.97750926E+00 0.98213288E+00 0.98592170E+00 0.98899524E+00 0.99145920E+00 + 0.99340846E+00 0.99492968E+00 0.99610302E+00 0.99700197E+00 0.99769135E+00 + 0.99822476E+00 0.99864305E+00 0.99897480E+00 0.99923877E+00 0.99944714E+00 + 0.99960864E+00 0.99973060E+00 0.99981990E+00 0.99988313E+00 0.99992641E+00 + 0.99995502E+00 0.99997332E+00 0.99998464E+00 0.99999142E+00 0.99999534E+00 + 0.99999755E+00 0.99999875E+00 0.99999938E+00 0.99999970E+00 0.99999986E+00 + 0.99999994E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + NUCLEUS 4 2 16 8 + 17.91877 0.15000 1.76969 2.71000 + 0.00000000E+00 0.22070165E-02 0.66201956E-02 0.13237718E-01 0.22056241E-01 + 0.33070097E-01 0.46270441E-01 0.61644611E-01 0.79175908E-01 0.98843106E-01 + 0.12061877E+00 0.14446651E+00 0.17033779E+00 0.19816871E+00 0.22787705E+00 + 0.25935922E+00 0.29248747E+00 0.32710684E+00 0.36303161E+00 0.40004297E+00 + 0.43788982E+00 0.47629260E+00 0.51494833E+00 0.55353472E+00 0.59171448E+00 + 0.62914452E+00 0.66548924E+00 0.70043394E+00 0.73369653E+00 0.76503464E+00 + 0.79424727E+00 0.82117763E+00 0.84572213E+00 0.86783939E+00 0.88755260E+00 + 0.90494440E+00 0.92014605E+00 0.93332283E+00 0.94465908E+00 0.95434502E+00 + 0.96256658E+00 0.96949947E+00 0.97530764E+00 0.98014351E+00 0.98414796E+00 + 0.98744889E+00 0.99015911E+00 0.99237490E+00 0.99417620E+00 0.99562852E+00 + 0.99678583E+00 0.99769346E+00 0.99839051E+00 0.99891189E+00 0.99928961E+00 + 0.99955337E+00 0.99973018E+00 0.99984363E+00 0.99991319E+00 0.99995387E+00 + 0.99997655E+00 0.99998861E+00 0.99999472E+00 0.99999766E+00 0.99999901E+00 + 0.99999960E+00 0.99999985E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.22216859E-02 0.66646249E-02 0.13327301E-01 0.22206906E-01 + 0.33299087E-01 0.46597416E-01 0.62092612E-01 0.79771718E-01 0.99617127E-01 + 0.12160480E+00 0.14570119E+00 0.17185899E+00 0.20001216E+00 0.23007090E+00 + 0.26191721E+00 0.29540320E+00 0.33035280E+00 0.36656512E+00 0.40381653E+00 + 0.44185974E+00 0.48042181E+00 0.51920367E+00 0.55788130E+00 0.59610956E+00 + 0.63353265E+00 0.66980331E+00 0.70460480E+00 0.73766663E+00 0.76876949E+00 + 0.79774369E+00 0.82446748E+00 0.84886782E+00 0.87092129E+00 0.89065244E+00 + 0.90812878E+00 0.92345371E+00 0.93675891E+00 0.94819676E+00 0.95793373E+00 + 0.96614483E+00 0.97300777E+00 0.97869579E+00 0.98337011E+00 0.98717437E+00 + 0.99023332E+00 0.99265610E+00 0.99454110E+00 0.99597922E+00 0.99705423E+00 + 0.99784194E+00 0.99840922E+00 0.99881310E+00 0.99909974E+00 0.99930448E+00 + 0.99945302E+00 0.99956332E+00 0.99964774E+00 0.99971463E+00 0.99976951E+00 + 0.99981586E+00 0.99985564E+00 0.99988979E+00 0.99991859E+00 0.99994212E+00 + 0.99996057E+00 0.99997432E+00 0.99998406E+00 0.99999057E+00 0.99999469E+00 + 0.99999715E+00 0.99999855E+00 0.99999930E+00 0.99999968E+00 0.99999986E+00 + 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.22278244E-02 0.66823349E-02 0.13361708E-01 0.22263343E-01 + 0.33383565E-01 0.46716825E-01 0.62254326E-01 0.79982342E-01 0.99880610E-01 + 0.12192097E+00 0.14606589E+00 0.17226594E+00 0.20045546E+00 0.23054706E+00 + 0.26242634E+00 0.29594912E+00 0.33094247E+00 0.36720748E+00 0.40452027E+00 + 0.44263019E+00 0.48125751E+00 0.52009280E+00 0.55879927E+00 0.59701908E+00 + 0.63438560E+00 0.67054208E+00 0.70516331E+00 0.73797295E+00 0.76875279E+00 + 0.79734657E+00 0.82366197E+00 0.84766911E+00 0.86939261E+00 0.88889832E+00 + 0.90627966E+00 0.92164643E+00 0.93511687E+00 0.94681335E+00 0.95686190E+00 + 0.96539450E+00 0.97255103E+00 0.97847796E+00 0.98332366E+00 0.98723312E+00 + 0.99034426E+00 0.99278578E+00 0.99467546E+00 0.99611838E+00 0.99720580E+00 + 0.99801493E+00 0.99860966E+00 0.99904172E+00 0.99935194E+00 0.99957169E+00 + 0.99972462E+00 0.99982848E+00 0.99989687E+00 0.99994026E+00 0.99996671E+00 + 0.99998216E+00 0.99999080E+00 0.99999544E+00 0.99999782E+00 0.99999900E+00 + 0.99999956E+00 0.99999981E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.21594222E-02 0.64772094E-02 0.12951204E-01 0.21577916E-01 + 0.32352340E-01 0.45267837E-01 0.60315785E-01 0.77484654E-01 0.96758354E-01 + 0.11811424E+00 0.14152118E+00 0.16693723E+00 0.19430585E+00 0.22355027E+00 + 0.25456693E+00 0.28722029E+00 0.32134185E+00 0.35673337E+00 0.39317308E+00 + 0.43042166E+00 0.46822549E+00 0.50631658E+00 0.54441044E+00 0.58220417E+00 + 0.61937812E+00 0.65560441E+00 0.69056167E+00 0.72395240E+00 0.75551958E+00 + 0.78505972E+00 0.81242929E+00 0.83754375E+00 0.86037170E+00 0.88092735E+00 + 0.89926327E+00 0.91546418E+00 0.92964136E+00 0.94192724E+00 0.95246966E+00 + 0.96142622E+00 0.96895880E+00 0.97522862E+00 0.98039220E+00 0.98459879E+00 + 0.98798878E+00 0.99069246E+00 0.99282878E+00 0.99450377E+00 0.99580931E+00 + 0.99682252E+00 0.99760629E+00 0.99821080E+00 0.99867558E+00 0.99903154E+00 + 0.99930258E+00 0.99950709E+00 0.99965925E+00 0.99977029E+00 0.99984936E+00 + 0.99990409E+00 0.99994079E+00 0.99996460E+00 0.99997952E+00 0.99998855E+00 + 0.99999381E+00 0.99999678E+00 0.99999838E+00 0.99999922E+00 0.99999963E+00 + 0.99999984E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.21426726E-02 0.64280527E-02 0.12855624E-01 0.21424171E-01 + 0.32131592E-01 0.44974445E-01 0.59947126E-01 0.77040800E-01 0.96242157E-01 + 0.11753185E+00 0.14088234E+00 0.16625481E+00 0.19359498E+00 0.22282851E+00 + 0.25385703E+00 0.28655537E+00 0.32076950E+00 0.35631431E+00 0.39297192E+00 + 0.43049267E+00 0.46859987E+00 0.50699593E+00 0.54536707E+00 0.58338655E+00 + 0.62072020E+00 0.65703781E+00 0.69202972E+00 0.72542269E+00 0.75698986E+00 + 0.78655303E+00 0.81398020E+00 0.83918174E+00 0.86210798E+00 0.88274909E+00 + 0.90113633E+00 0.91734181E+00 0.93147472E+00 0.94367374E+00 0.95409751E+00 + 0.96291535E+00 0.97029973E+00 0.97642110E+00 0.98144409E+00 0.98552410E+00 + 0.98880432E+00 0.99141368E+00 0.99346650E+00 0.99506308E+00 0.99629070E+00 + 0.99722442E+00 0.99792761E+00 0.99845269E+00 0.99884223E+00 0.99913021E+00 + 0.99934344E+00 0.99950262E+00 0.99962326E+00 0.99971639E+00 0.99978935E+00 + 0.99984681E+00 0.99989165E+00 0.99992586E+00 0.99995110E+00 0.99996900E+00 + 0.99998113E+00 0.99998899E+00 0.99999384E+00 0.99999669E+00 0.99999830E+00 + 0.99999916E+00 0.99999960E+00 0.99999982E+00 0.99999992E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.20435582E-02 0.61303567E-02 0.12259613E-01 0.20429916E-01 + 0.30638992E-01 0.42883351E-01 0.57157819E-01 0.73454869E-01 0.91763384E-01 + 0.11206672E+00 0.13434063E+00 0.15855166E+00 0.18465563E+00 0.21259470E+00 + 0.24229300E+00 0.27365195E+00 0.30654721E+00 0.34082761E+00 0.37631489E+00 + 0.41280302E+00 0.45005658E+00 0.48780965E+00 0.52576817E+00 0.56361736E+00 + 0.60103301E+00 0.63769256E+00 0.67328290E+00 0.70750523E+00 0.74008031E+00 + 0.77075696E+00 0.79932441E+00 0.82562666E+00 0.84957397E+00 0.87114629E+00 + 0.89038724E+00 0.90739162E+00 0.92229097E+00 0.93523970E+00 0.94640336E+00 + 0.95595049E+00 0.96404816E+00 0.97085990E+00 0.97654389E+00 0.98125030E+00 + 0.98511846E+00 0.98827473E+00 0.99083171E+00 0.99288828E+00 0.99453016E+00 + 0.99583066E+00 0.99685184E+00 0.99764601E+00 0.99825745E+00 0.99872360E+00 + 0.99907581E+00 0.99933976E+00 0.99953588E+00 0.99968004E+00 0.99978445E+00 + 0.99985858E+00 0.99990992E+00 0.99994443E+00 0.99996685E+00 0.99998092E+00 + 0.99998940E+00 0.99999433E+00 0.99999708E+00 0.99999855E+00 0.99999931E+00 + 0.99999968E+00 0.99999986E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.20306463E-02 0.60915736E-02 0.12181969E-01 0.20300409E-01 + 0.30444644E-01 0.42611243E-01 0.56795089E-01 0.72988667E-01 0.91180952E-01 + 0.11135575E+00 0.13348950E+00 0.15754884E+00 0.18348816E+00 0.21124753E+00 + 0.24075094E+00 0.27190452E+00 0.30459470E+00 0.33868551E+00 0.37401435E+00 + 0.41038665E+00 0.44757193E+00 0.48530346E+00 0.52328162E+00 0.56118014E+00 + 0.59865448E+00 0.63535269E+00 0.67092908E+00 0.70506041E+00 0.73746175E+00 + 0.76789979E+00 0.79620250E+00 0.82226419E+00 0.84604360E+00 0.86755445E+00 + 0.88685132E+00 0.90401612E+00 0.91914935E+00 0.93236691E+00 0.94380026E+00 + 0.95359642E+00 0.96191479E+00 0.96892044E+00 0.97477585E+00 0.97963422E+00 + 0.98363595E+00 0.98690818E+00 0.98956570E+00 0.99171154E+00 0.99343663E+00 + 0.99481925E+00 0.99592491E+00 0.99680722E+00 0.99750954E+00 0.99806696E+00 + 0.99850811E+00 0.99885655E+00 0.99913150E+00 0.99934837E+00 0.99951900E+00 + 0.99965229E+00 0.99975492E+00 0.99983217E+00 0.99988866E+00 0.99992856E+00 + 0.99995573E+00 0.99997351E+00 0.99998471E+00 0.99999149E+00 0.99999543E+00 + 0.99999763E+00 0.99999882E+00 0.99999943E+00 0.99999974E+00 0.99999988E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.19905912E-02 0.59717119E-02 0.11942993E-01 0.19903642E-01 + 0.29852236E-01 0.41786418E-01 0.55702484E-01 0.71594823E-01 0.89455059E-01 + 0.10927061E+00 0.13102272E+00 0.15468464E+00 0.18022000E+00 0.20758076E+00 + 0.23670390E+00 0.26750690E+00 0.29988261E+00 0.33369454E+00 0.36877273E+00 + 0.40491059E+00 0.44186397E+00 0.47935441E+00 0.51707659E+00 0.55470852E+00 + 0.59192234E+00 0.62839510E+00 0.66381924E+00 0.69791183E+00 0.73042101E+00 + 0.76112981E+00 0.78985923E+00 0.81647230E+00 0.84087855E+00 0.86303658E+00 + 0.88295232E+00 0.90067392E+00 0.91628550E+00 0.92990140E+00 0.94166072E+00 + 0.95172171E+00 0.96025582E+00 0.96744106E+00 0.97345445E+00 0.97846437E+00 + 0.98262426E+00 0.98606885E+00 0.98891314E+00 0.99125348E+00 0.99316964E+00 + 0.99472753E+00 0.99598217E+00 0.99698061E+00 0.99776420E+00 0.99836987E+00 + 0.99883059E+00 0.99917532E+00 0.99942889E+00 0.99961207E+00 0.99974189E+00 + 0.99983199E+00 0.99989314E+00 0.99993366E+00 0.99995983E+00 0.99997629E+00 + 0.99998637E+00 0.99999237E+00 0.99999584E+00 0.99999779E+00 0.99999886E+00 + 0.99999943E+00 0.99999972E+00 0.99999987E+00 0.99999994E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.18696872E-02 0.56089825E-02 0.11217617E-01 0.18695010E-01 + 0.28040052E-01 0.39250779E-01 0.52323969E-01 0.67254801E-01 0.84036644E-01 + 0.10266084E+00 0.12311600E+00 0.14538621E+00 0.16944819E+00 0.19526769E+00 + 0.22279567E+00 0.25196521E+00 0.28268935E+00 0.31485988E+00 0.34834595E+00 + 0.38299172E+00 0.41861336E+00 0.45499604E+00 0.49189139E+00 0.52901738E+00 + 0.56606362E+00 0.60270336E+00 0.63860941E+00 0.67346907E+00 0.70699394E+00 + 0.73892555E+00 0.76904101E+00 0.79716102E+00 0.82315781E+00 0.84695871E+00 + 0.86854362E+00 0.88793797E+00 0.90520431E+00 0.92043479E+00 0.93374550E+00 + 0.94527168E+00 0.95516231E+00 0.96357359E+00 0.97066256E+00 0.97658185E+00 + 0.98147644E+00 0.98548200E+00 0.98872432E+00 0.99131944E+00 0.99337360E+00 + 0.99498294E+00 0.99623269E+00 0.99719632E+00 0.99793507E+00 0.99849830E+00 + 0.99892473E+00 0.99924430E+00 0.99948029E+00 0.99965120E+00 0.99977205E+00 + 0.99985519E+00 0.99991068E+00 0.99994656E+00 0.99996901E+00 0.99998259E+00 + 0.99999053E+00 0.99999501E+00 0.99999746E+00 0.99999875E+00 0.99999940E+00 + 0.99999973E+00 0.99999988E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.18380753E-02 0.55142136E-02 0.11028380E-01 0.18380474E-01 + 0.27570188E-01 0.38596707E-01 0.51458200E-01 0.66151218E-01 0.82670240E-01 + 0.10100743E+00 0.12115235E+00 0.14309109E+00 0.16680436E+00 0.19226396E+00 + 0.21942778E+00 0.24823473E+00 0.27860117E+00 0.31041960E+00 0.34355768E+00 + 0.37785583E+00 0.41312441E+00 0.44914269E+00 0.48566127E+00 0.52240712E+00 + 0.55908996E+00 0.59540960E+00 0.63106594E+00 0.66577109E+00 0.69926034E+00 + 0.73129830E+00 0.76167973E+00 0.79022821E+00 0.81679654E+00 0.84127138E+00 + 0.86358043E+00 0.88369831E+00 0.90164779E+00 0.91749544E+00 0.93134358E+00 + 0.94332083E+00 0.95357367E+00 0.96225970E+00 0.96954238E+00 0.97558655E+00 + 0.98055429E+00 0.98460091E+00 0.98787132E+00 0.99049710E+00 0.99259448E+00 + 0.99426325E+00 0.99558680E+00 0.99663314E+00 0.99745685E+00 0.99810132E+00 + 0.99860130E+00 0.99898491E+00 0.99927529E+00 0.99949168E+00 0.99965011E+00 + 0.99976389E+00 0.99984393E+00 0.99989903E+00 0.99993610E+00 0.99996047E+00 + 0.99997611E+00 0.99998590E+00 0.99999188E+00 0.99999544E+00 0.99999751E+00 + 0.99999867E+00 0.99999931E+00 0.99999965E+00 0.99999983E+00 0.99999992E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.17943174E-02 0.53828834E-02 0.10765518E-01 0.17941897E-01 + 0.26911524E-01 0.37673683E-01 0.50227247E-01 0.64570209E-01 0.80698927E-01 + 0.98607216E-01 0.11828528E+00 0.13971818E+00 0.16288366E+00 0.18774967E+00 + 0.21427211E+00 0.24239321E+00 0.27204028E+00 0.30312378E+00 0.33553431E+00 + 0.36913822E+00 0.40377204E+00 0.43923783E+00 0.47530266E+00 0.51170353E+00 + 0.54815575E+00 0.58436167E+00 0.62001881E+00 0.65482945E+00 0.68851184E+00 + 0.72081130E+00 0.75150855E+00 0.78042316E+00 0.80741238E+00 0.83236814E+00 + 0.85521568E+00 0.87591533E+00 0.89446638E+00 0.91091034E+00 0.92533108E+00 + 0.93785027E+00 0.94861810E+00 0.95780105E+00 0.96556990E+00 0.97209077E+00 + 0.97751983E+00 0.98200106E+00 0.98566598E+00 0.98863452E+00 0.99101623E+00 + 0.99291085E+00 0.99440774E+00 0.99558469E+00 0.99650719E+00 0.99722897E+00 + 0.99779346E+00 0.99823561E+00 0.99858338E+00 0.99885883E+00 0.99907907E+00 + 0.99925710E+00 0.99940264E+00 0.99952288E+00 0.99962298E+00 0.99970648E+00 + 0.99977580E+00 0.99983259E+00 0.99987817E+00 0.99991379E+00 0.99994078E+00 + 0.99996056E+00 0.99997454E+00 0.99998408E+00 0.99999036E+00 0.99999435E+00 + 0.99999679E+00 0.99999824E+00 0.99999906E+00 0.99999952E+00 0.99999976E+00 + 0.99999988E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.17032156E-02 0.51096351E-02 0.10219222E-01 0.17031895E-01 + 0.25547509E-01 0.35765789E-01 0.47686192E-01 0.61307590E-01 0.76627841E-01 + 0.93643379E-01 0.11234878E+00 0.13273596E+00 0.15479258E+00 0.17849996E+00 + 0.20383044E+00 0.23074436E+00 0.25918665E+00 0.28908328E+00 0.32033844E+00 + 0.35283301E+00 0.38642457E+00 0.42094770E+00 0.45621282E+00 0.49200359E+00 + 0.52807451E+00 0.56415117E+00 0.59993521E+00 0.63511448E+00 0.66937703E+00 + 0.70242623E+00 0.73399390E+00 0.76384976E+00 0.79180798E+00 0.81773156E+00 + 0.84153414E+00 0.86317896E+00 0.88267631E+00 0.90008005E+00 0.91548203E+00 + 0.92900323E+00 0.94078283E+00 0.95096783E+00 0.95970558E+00 0.96713974E+00 + 0.97340893E+00 0.97864637E+00 0.98297926E+00 0.98652770E+00 0.98940370E+00 + 0.99171057E+00 0.99354277E+00 0.99498565E+00 0.99611489E+00 0.99699580E+00 + 0.99768277E+00 0.99821948E+00 0.99863981E+00 0.99896942E+00 0.99922756E+00 + 0.99942874E+00 0.99958417E+00 0.99970275E+00 0.99979176E+00 0.99985728E+00 + 0.99990446E+00 0.99993761E+00 0.99996029E+00 0.99997539E+00 0.99998515E+00 + 0.99999129E+00 0.99999503E+00 0.99999724E+00 0.99999851E+00 0.99999922E+00 + 0.99999960E+00 0.99999981E+00 0.99999991E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16923191E-02 0.50768364E-02 0.10153427E-01 0.16921977E-01 + 0.25382390E-01 0.35534563E-01 0.47378299E-01 0.60913093E-01 0.76137815E-01 + 0.93050219E-01 0.11164615E+00 0.13191843E+00 0.15385564E+00 0.17744101E+00 + 0.20265116E+00 0.22945398E+00 0.25780498E+00 0.28764194E+00 0.31887908E+00 + 0.35140256E+00 0.38506867E+00 0.41970399E+00 0.45510642E+00 0.49104634E+00 + 0.52726857E+00 0.56349591E+00 0.59943392E+00 0.63477693E+00 0.66921611E+00 + 0.70245096E+00 0.73420382E+00 0.76423453E+00 0.79235190E+00 0.81841969E+00 + 0.84235636E+00 0.86412975E+00 0.88374988E+00 0.90126422E+00 0.91675523E+00 + 0.93033657E+00 0.94214477E+00 0.95232775E+00 0.96103473E+00 0.96841077E+00 + 0.97459632E+00 0.97972864E+00 0.98394230E+00 0.98736738E+00 0.99012627E+00 + 0.99233048E+00 0.99407860E+00 0.99545575E+00 0.99653411E+00 0.99737398E+00 + 0.99802502E+00 0.99852745E+00 0.99891339E+00 0.99920810E+00 0.99943133E+00 + 0.99959856E+00 0.99972204E+00 0.99981159E+00 0.99987519E+00 0.99991930E+00 + 0.99994913E+00 0.99996875E+00 0.99998131E+00 0.99998912E+00 0.99999384E+00 + 0.99999661E+00 0.99999818E+00 0.99999905E+00 0.99999952E+00 0.99999977E+00 + 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16465006E-02 0.49394745E-02 0.98788821E-02 0.16464667E-01 + 0.24696740E-01 0.34574907E-01 0.46098712E-01 0.59267180E-01 0.74078542E-01 + 0.90529897E-01 0.10861677E+00 0.12833250E+00 0.14966727E+00 0.17260664E+00 + 0.19712959E+00 0.22320629E+00 0.25079598E+00 0.27984539E+00 0.31028698E+00 + 0.34203638E+00 0.37498774E+00 0.40900746E+00 0.44392892E+00 0.47955060E+00 + 0.51563696E+00 0.55192125E+00 0.58811096E+00 0.62389624E+00 0.65895982E+00 + 0.69298711E+00 0.72567697E+00 0.75675496E+00 0.78598821E+00 0.81319785E+00 + 0.83826433E+00 0.86112473E+00 0.88176493E+00 0.90021073E+00 0.91652103E+00 + 0.93078370E+00 0.94311248E+00 0.95364346E+00 0.96253080E+00 0.96994219E+00 + 0.97605390E+00 0.98104490E+00 0.98508983E+00 0.98835144E+00 0.99097383E+00 + 0.99307813E+00 0.99476160E+00 0.99609995E+00 0.99715208E+00 0.99796552E+00 + 0.99858094E+00 0.99903483E+00 0.99936038E+00 0.99958716E+00 0.99974052E+00 + 0.99984120E+00 0.99990537E+00 0.99994510E+00 0.99996899E+00 0.99998295E+00 + 0.99999088E+00 0.99999525E+00 0.99999760E+00 0.99999882E+00 0.99999943E+00 + 0.99999974E+00 0.99999988E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15964742E-02 0.47894313E-02 0.95788653E-02 0.15964750E-01 + 0.23947000E-01 0.33525375E-01 0.44699343E-01 0.57467966E-01 0.71829911E-01 + 0.87783515E-01 0.10532665E+00 0.12445607E+00 0.14516627E+00 0.16744827E+00 + 0.19128808E+00 0.21666456E+00 0.24354658E+00 0.27188958E+00 0.30163222E+00 + 0.33269327E+00 0.36496943E+00 0.39833366E+00 0.43263298E+00 0.46768598E+00 + 0.50328078E+00 0.53917459E+00 0.57509556E+00 0.61074798E+00 0.64582249E+00 + 0.68001060E+00 0.71302046E+00 0.74458946E+00 0.77449037E+00 0.80253144E+00 + 0.82855473E+00 0.85243783E+00 0.87409987E+00 0.89350893E+00 0.91068690E+00 + 0.92570874E+00 0.93869551E+00 0.94980314E+00 0.95920998E+00 0.96710533E+00 + 0.97367911E+00 0.97911278E+00 0.98357217E+00 0.98720347E+00 0.99013318E+00 + 0.99247093E+00 0.99431337E+00 0.99574690E+00 0.99684868E+00 0.99768633E+00 + 0.99831734E+00 0.99878891E+00 0.99913867E+00 0.99939585E+00 0.99958296E+00 + 0.99971726E+00 0.99981206E+00 0.99987770E+00 0.99992218E+00 0.99995162E+00 + 0.99997063E+00 0.99998260E+00 0.99998995E+00 0.99999434E+00 0.99999689E+00 + 0.99999834E+00 0.99999913E+00 0.99999956E+00 0.99999978E+00 0.99999990E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15569955E-02 0.46709830E-02 0.93419275E-02 0.15569694E-01 + 0.23353938E-01 0.32694023E-01 0.43588998E-01 0.56037621E-01 0.70038325E-01 + 0.85589145E-01 0.10268752E+00 0.12132973E+00 0.14150992E+00 0.16321860E+00 + 0.18644122E+00 0.21115669E+00 0.23733558E+00 0.26493776E+00 0.29390894E+00 + 0.32417696E+00 0.35564960E+00 0.38821438E+00 0.42173791E+00 0.45606261E+00 + 0.49100196E+00 0.52633743E+00 0.56181851E+00 0.59716570E+00 0.63207687E+00 + 0.66623759E+00 0.69933576E+00 0.73107821E+00 0.76120568E+00 0.78950332E+00 + 0.81580648E+00 0.84000357E+00 0.86203706E+00 0.88190200E+00 0.89964112E+00 + 0.91533634E+00 0.92909850E+00 0.94105780E+00 0.95135687E+00 0.96014601E+00 + 0.96757959E+00 0.97381217E+00 0.97899421E+00 0.98326809E+00 0.98676516E+00 + 0.98960436E+00 0.99189189E+00 0.99372130E+00 0.99517382E+00 0.99631880E+00 + 0.99721459E+00 0.99790974E+00 0.99844451E+00 0.99885220E+00 0.99916026E+00 + 0.99939112E+00 0.99956277E+00 0.99968944E+00 0.99978213E+00 0.99984931E+00 + 0.99989742E+00 0.99993139E+00 0.99995499E+00 0.99997106E+00 0.99998179E+00 + 0.99998880E+00 0.99999327E+00 0.99999605E+00 0.99999774E+00 0.99999874E+00 + 0.99999931E+00 0.99999963E+00 0.99999981E+00 0.99999991E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15152550E-02 0.45457649E-02 0.90915291E-02 0.15152547E-01 + 0.22728815E-01 0.31820333E-01 0.42427096E-01 0.54549074E-01 0.68186139E-01 + 0.83337935E-01 0.10000364E+00 0.11818155E+00 0.13786843E+00 0.15905887E+00 + 0.18174449E+00 0.20591270E+00 0.23154443E+00 0.25861108E+00 0.28707120E+00 + 0.31686709E+00 0.34792079E+00 0.38012925E+00 0.41335959E+00 0.44744599E+00 + 0.48218886E+00 0.51735687E+00 0.55269188E+00 0.58791499E+00 0.62273224E+00 + 0.65684264E+00 0.68995100E+00 0.72178277E+00 0.75209494E+00 0.78068138E+00 + 0.80737665E+00 0.83206112E+00 0.85466555E+00 0.87517048E+00 0.89359921E+00 + 0.91000792E+00 0.92447744E+00 0.93710887E+00 0.94802142E+00 0.95734992E+00 + 0.96524049E+00 0.97184513E+00 0.97731703E+00 0.98180684E+00 0.98545903E+00 + 0.98840807E+00 0.99077490E+00 0.99266492E+00 0.99416774E+00 0.99535843E+00 + 0.99629918E+00 0.99704100E+00 0.99762515E+00 0.99808446E+00 0.99844478E+00 + 0.99872654E+00 0.99894617E+00 0.99911732E+00 0.99925161E+00 0.99935897E+00 + 0.99944763E+00 0.99952399E+00 0.99959248E+00 0.99965560E+00 0.99971428E+00 + 0.99976831E+00 0.99981693E+00 0.99985934E+00 0.99989503E+00 0.99992395E+00 + 0.99994651E+00 0.99996348E+00 0.99997578E+00 0.99998439E+00 0.99999022E+00 + 0.99999404E+00 0.99999647E+00 0.99999796E+00 0.99999886E+00 0.99999937E+00 + 0.99999967E+00 0.99999983E+00 0.99999991E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14908397E-02 0.44725191E-02 0.89450382E-02 0.14908397E-01 + 0.22362594E-01 0.31307627E-01 0.41743480E-01 0.53670074E-01 0.67087120E-01 + 0.81993817E-01 0.98388492E-01 0.11626838E+00 0.13562962E+00 0.15646709E+00 + 0.17877377E+00 0.20253906E+00 0.22774591E+00 0.25436746E+00 0.28236409E+00 + 0.31168117E+00 0.34224621E+00 0.37396390E+00 0.40670978E+00 0.44032514E+00 + 0.47461529E+00 0.50935193E+00 0.54427891E+00 0.57912047E+00 0.61359041E+00 + 0.64740164E+00 0.68027650E+00 0.71195809E+00 0.74222034E+00 0.77087366E+00 + 0.79776597E+00 0.82278205E+00 0.84584378E+00 0.86691122E+00 0.88598222E+00 + 0.90308884E+00 0.91829116E+00 0.93167132E+00 0.94333023E+00 0.95338638E+00 + 0.96197364E+00 0.96923624E+00 0.97532185E+00 0.98037521E+00 0.98453364E+00 + 0.98792450E+00 0.99066385E+00 0.99285585E+00 0.99459274E+00 0.99595515E+00 + 0.99701253E+00 0.99782386E+00 0.99843857E+00 0.99889773E+00 0.99923529E+00 + 0.99947911E+00 0.99965192E+00 0.99977196E+00 0.99985360E+00 0.99990795E+00 + 0.99994333E+00 0.99996586E+00 0.99997987E+00 0.99998840E+00 0.99999346E+00 + 0.99999640E+00 0.99999806E+00 0.99999898E+00 0.99999948E+00 0.99999974E+00 + 0.99999987E+00 0.99999994E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14682180E-02 0.44046536E-02 0.88093055E-02 0.14682174E-01 + 0.22023259E-01 0.30832553E-01 0.41110002E-01 0.52855436E-01 0.66068458E-01 + 0.80748303E-01 0.96893689E-01 0.11450263E+00 0.13357206E+00 0.15409704E+00 + 0.17606937E+00 0.19947572E+00 0.22429542E+00 0.25049820E+00 0.27804185E+00 + 0.30687019E+00 0.33691130E+00 0.36807610E+00 0.40025656E+00 0.43332320E+00 + 0.46712185E+00 0.50146970E+00 0.53615348E+00 0.57093232E+00 0.60554429E+00 + 0.63971227E+00 0.67314807E+00 0.70555819E+00 0.73665544E+00 0.76617594E+00 + 0.79389697E+00 0.81965003E+00 0.84332572E+00 0.86487154E+00 0.88428637E+00 + 0.90161360E+00 0.91693399E+00 0.93035804E+00 0.94201810E+00 0.95205997E+00 + 0.96063539E+00 0.96789632E+00 0.97399086E+00 0.97906044E+00 0.98323837E+00 + 0.98664935E+00 0.98940945E+00 0.99162540E+00 0.99339337E+00 0.99479766E+00 + 0.99591000E+00 0.99678980E+00 0.99748524E+00 0.99803486E+00 0.99846927E+00 + 0.99881268E+00 0.99908418E+00 0.99929874E+00 0.99946802E+00 0.99960105E+00 + 0.99970490E+00 0.99978514E+00 0.99984630E+00 0.99989214E+00 0.99992585E+00 + 0.99995010E+00 0.99996715E+00 0.99997886E+00 0.99998671E+00 0.99999183E+00 + 0.99999510E+00 0.99999713E+00 0.99999836E+00 0.99999908E+00 0.99999950E+00 + 0.99999973E+00 0.99999986E+00 0.99999993E+00 0.99999997E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14414433E-02 0.43243299E-02 0.86486598E-02 0.14414433E-01 + 0.21621648E-01 0.30270304E-01 0.40360392E-01 0.51891872E-01 0.64864585E-01 + 0.79278080E-01 0.95131390E-01 0.11242278E+00 0.13114938E+00 0.15130655E+00 + 0.17288675E+00 0.19587801E+00 0.22026205E+00 0.24601181E+00 0.27308857E+00 + 0.30143880E+00 0.33099181E+00 0.36165843E+00 0.39332976E+00 0.42587554E+00 + 0.45914285E+00 0.49295586E+00 0.52711586E+00 0.56140032E+00 0.59556249E+00 + 0.62933480E+00 0.66243765E+00 0.69459182E+00 0.72553230E+00 0.75502308E+00 + 0.78287042E+00 0.80892927E+00 0.83310021E+00 0.85532063E+00 0.87555762E+00 + 0.89380668E+00 0.91009506E+00 0.92448480E+00 0.93707113E+00 0.94797520E+00 + 0.95733411E+00 0.96529203E+00 0.97199475E+00 0.97758665E+00 0.98220820E+00 + 0.98599327E+00 0.98906644E+00 0.99154091E+00 0.99351714E+00 0.99508229E+00 + 0.99631068E+00 0.99726505E+00 0.99799817E+00 0.99855434E+00 0.99897062E+00 + 0.99927775E+00 0.99950097E+00 0.99966066E+00 0.99977303E+00 0.99985076E+00 + 0.99990358E+00 0.99993882E+00 0.99996190E+00 0.99997671E+00 0.99998604E+00 + 0.99999180E+00 0.99999528E+00 0.99999734E+00 0.99999853E+00 0.99999921E+00 + 0.99999958E+00 0.99999978E+00 0.99999989E+00 0.99999995E+00 0.99999997E+00 + 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14111578E-02 0.42334733E-02 0.84669465E-02 0.14111578E-01 + 0.21167366E-01 0.29634309E-01 0.39512395E-01 0.50801599E-01 0.63501835E-01 + 0.77612826E-01 0.93133865E-01 0.11006357E+00 0.12839968E+00 0.14813877E+00 + 0.16927546E+00 0.19180107E+00 0.21570154E+00 0.24095514E+00 0.26752983E+00 + 0.29538086E+00 0.32444804E+00 0.35465300E+00 0.38589686E+00 0.41805909E+00 + 0.45099662E+00 0.48454202E+00 0.51850120E+00 0.55265256E+00 0.58674951E+00 + 0.62052706E+00 0.65371175E+00 0.68603213E+00 0.71722780E+00 0.74705883E+00 + 0.77531701E+00 0.80183593E+00 0.82649495E+00 0.84921658E+00 0.86996118E+00 + 0.88872286E+00 0.90552772E+00 0.92043270E+00 0.93352301E+00 0.94490739E+00 + 0.95471207E+00 0.96307497E+00 0.97014033E+00 0.97605381E+00 0.98095817E+00 + 0.98498976E+00 0.98827572E+00 0.99093197E+00 0.99306170E+00 0.99475469E+00 + 0.99608750E+00 0.99712478E+00 0.99792107E+00 0.99852267E+00 0.99896909E+00 + 0.99929399E+00 0.99952566E+00 0.99968743E+00 0.99979800E+00 0.99987200E+00 + 0.99992046E+00 0.99995155E+00 0.99997107E+00 0.99998306E+00 0.99999029E+00 + 0.99999454E+00 0.99999700E+00 0.99999838E+00 0.99999915E+00 0.99999956E+00 + 0.99999978E+00 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13797963E-02 0.41393889E-02 0.82787777E-02 0.13797963E-01 + 0.20696944E-01 0.28975722E-01 0.38634294E-01 0.49672658E-01 0.62090802E-01 + 0.75888675E-01 0.91066104E-01 0.10762259E+00 0.12555687E+00 0.14486627E+00 + 0.16554559E+00 0.18758578E+00 0.21097227E+00 0.23568342E+00 0.26168963E+00 + 0.28895247E+00 0.31742267E+00 0.34703659E+00 0.37771138E+00 0.40934049E+00 + 0.44179113E+00 0.47490382E+00 0.50849362E+00 0.54235254E+00 0.57625313E+00 + 0.60995270E+00 0.64319795E+00 0.67572900E+00 0.70728334E+00 0.73760221E+00 + 0.76644218E+00 0.79359043E+00 0.81887829E+00 0.84218883E+00 0.86345843E+00 + 0.88267501E+00 0.89987411E+00 0.91513213E+00 0.92855609E+00 0.94027192E+00 + 0.95041460E+00 0.95912250E+00 0.96653501E+00 0.97279107E+00 0.97802685E+00 + 0.98237304E+00 0.98595281E+00 0.98888039E+00 0.99125984E+00 0.99318355E+00 + 0.99473113E+00 0.99596920E+00 0.99695260E+00 0.99772640E+00 0.99832808E+00 + 0.99878935E+00 0.99913737E+00 0.99939544E+00 0.99958336E+00 0.99971769E+00 + 0.99981193E+00 0.99987683E+00 0.99992070E+00 0.99994981E+00 0.99996878E+00 + 0.99998092E+00 0.99998854E+00 0.99999324E+00 0.99999608E+00 0.99999777E+00 + 0.99999876E+00 0.99999932E+00 0.99999964E+00 0.99999981E+00 0.99999990E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13601826E-02 0.40805478E-02 0.81610956E-02 0.13601826E-01 + 0.20402739E-01 0.28563834E-01 0.38085111E-01 0.48966568E-01 0.61208205E-01 + 0.74809998E-01 0.89771836E-01 0.10609343E+00 0.12377422E+00 0.14281323E+00 + 0.16320865E+00 0.18495668E+00 0.20804945E+00 0.23247225E+00 0.25820070E+00 + 0.28519845E+00 0.31341629E+00 0.34279222E+00 0.37325067E+00 0.40469898E+00 + 0.43702192E+00 0.47007706E+00 0.50369283E+00 0.53766854E+00 0.57177573E+00 + 0.60576163E+00 0.63935610E+00 0.67228241E+00 0.70426935E+00 0.73506039E+00 + 0.76441777E+00 0.79212503E+00 0.81799378E+00 0.84187599E+00 0.86367696E+00 + 0.88336241E+00 0.90095591E+00 0.91652855E+00 0.93018572E+00 0.94205450E+00 + 0.95227404E+00 0.96098967E+00 0.96835007E+00 0.97450531E+00 0.97960401E+00 + 0.98378988E+00 0.98719814E+00 0.98995250E+00 0.99216309E+00 0.99392552E+00 + 0.99532126E+00 0.99641905E+00 0.99727667E+00 0.99794239E+00 0.99845623E+00 + 0.99885077E+00 0.99915214E+00 0.99938096E+00 0.99955337E+00 0.99968204E+00 + 0.99977693E+00 0.99984595E+00 0.99989537E+00 0.99993016E+00 0.99995421E+00 + 0.99997052E+00 0.99998138E+00 0.99998846E+00 0.99999298E+00 0.99999582E+00 + 0.99999755E+00 0.99999860E+00 0.99999921E+00 0.99999957E+00 0.99999977E+00 + 0.99999988E+00 0.99999994E+00 0.99999997E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13269198E-02 0.39807595E-02 0.79615189E-02 0.13269198E-01 + 0.19903797E-01 0.27865316E-01 0.37153753E-01 0.47769102E-01 0.59711331E-01 + 0.72980363E-01 0.87576046E-01 0.10349810E+00 0.12074588E+00 0.13931777E+00 + 0.15921029E+00 0.18041712E+00 0.20292817E+00 0.22672826E+00 0.25179503E+00 + 0.27809631E+00 0.30558737E+00 0.33420913E+00 0.36388717E+00 0.39453098E+00 + 0.42603197E+00 0.45825988E+00 0.49105965E+00 0.52425119E+00 0.55763134E+00 + 0.59097495E+00 0.62403532E+00 0.65654811E+00 0.68824252E+00 0.71885679E+00 + 0.74815194E+00 0.77592012E+00 0.80198929E+00 0.82622686E+00 0.84854227E+00 + 0.86888778E+00 0.88725795E+00 0.90368821E+00 0.91825136E+00 0.93105097E+00 + 0.94221196E+00 0.95187056E+00 0.96016589E+00 0.96723460E+00 0.97320836E+00 + 0.97821323E+00 0.98236980E+00 0.98579316E+00 0.98859197E+00 0.99086670E+00 + 0.99270757E+00 0.99419302E+00 0.99538927E+00 0.99635103E+00 0.99712304E+00 + 0.99774178E+00 0.99823697E+00 0.99863268E+00 0.99894821E+00 0.99919893E+00 + 0.99939700E+00 0.99955217E+00 0.99967236E+00 0.99976418E+00 0.99983319E+00 + 0.99988412E+00 0.99992100E+00 0.99994716E+00 0.99996534E+00 0.99997771E+00 + 0.99998595E+00 0.99999131E+00 0.99999474E+00 0.99999688E+00 0.99999818E+00 + 0.99999897E+00 0.99999942E+00 0.99999968E+00 0.99999983E+00 0.99999991E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.26858275E-02 0.80523151E-02 0.16090349E-01 0.26785844E-01 + 0.40119292E-01 0.56065174E-01 0.74589396E-01 0.95646343E-01 0.11917691E+00 + 0.14510579E+00 0.17333862E+00 0.20375859E+00 0.23622268E+00 0.27056227E+00 + 0.30658808E+00 0.34409095E+00 0.38283246E+00 0.42253203E+00 0.46286034E+00 + 0.50344699E+00 0.54390309E+00 0.58384501E+00 0.62290710E+00 0.66074441E+00 + 0.69703681E+00 0.73150355E+00 0.76391897E+00 0.79411409E+00 0.82196644E+00 + 0.84739278E+00 0.87035246E+00 0.89085591E+00 0.90896616E+00 0.92478729E+00 + 0.93844646E+00 0.95008462E+00 0.95985948E+00 0.96795093E+00 0.97456151E+00 + 0.97990882E+00 0.98420948E+00 0.98766017E+00 0.99042486E+00 0.99263274E+00 + 0.99438444E+00 0.99576066E+00 0.99682932E+00 0.99764970E+00 0.99827385E+00 + 0.99874602E+00 0.99910196E+00 0.99936939E+00 0.99956912E+00 0.99971627E+00 + 0.99982180E+00 0.99989422E+00 0.99994106E+00 0.99996932E+00 0.99998512E+00 + 0.99999328E+00 0.99999718E+00 0.99999890E+00 0.99999960E+00 0.99999987E+00 + 0.99999996E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.27022857E-02 0.81018992E-02 0.16190240E-01 0.26953206E-01 + 0.40370061E-01 0.56414192E-01 0.75053152E-01 0.96244231E-01 0.11992656E+00 + 0.14601633E+00 0.17440909E+00 0.20498559E+00 0.23761446E+00 0.27214624E+00 + 0.30839835E+00 0.34613900E+00 0.38508146E+00 0.42489195E+00 0.46520620E+00 + 0.50564640E+00 0.54583266E+00 0.58538930E+00 0.62395251E+00 0.66118191E+00 + 0.69677209E+00 0.73046212E+00 0.76204452E+00 0.79136999E+00 0.81834207E+00 + 0.84290732E+00 0.86505462E+00 0.88482678E+00 0.90233129E+00 0.91773299E+00 + 0.93122661E+00 0.94300485E+00 0.95323815E+00 0.96206997E+00 0.96962116E+00 + 0.97599777E+00 0.98130082E+00 0.98563513E+00 0.98911332E+00 0.99185399E+00 + 0.99397580E+00 0.99559101E+00 0.99680134E+00 0.99769627E+00 0.99835193E+00 + 0.99883003E+00 0.99917810E+00 0.99943119E+00 0.99961456E+00 0.99974615E+00 + 0.99983879E+00 0.99990201E+00 0.99994333E+00 0.99996896E+00 0.99998394E+00 + 0.99999217E+00 0.99999640E+00 0.99999845E+00 0.99999937E+00 0.99999976E+00 + 0.99999991E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.26215297E-02 0.78617393E-02 0.15712477E-01 0.26159663E-01 + 0.39183843E-01 0.54761283E-01 0.72863336E-01 0.93453491E-01 0.11648387E+00 + 0.14189153E+00 0.16959355E+00 0.19948174E+00 0.23141880E+00 0.26523690E+00 + 0.30073784E+00 0.33769278E+00 0.37584089E+00 0.41488948E+00 0.45451794E+00 + 0.49438340E+00 0.53412673E+00 0.57338198E+00 0.61179514E+00 0.64904774E+00 + 0.68487073E+00 0.71903971E+00 0.75136202E+00 0.78167228E+00 0.80983792E+00 + 0.83576381E+00 0.85939022E+00 0.88069006E+00 0.89967231E+00 0.91638866E+00 + 0.93093583E+00 0.94345020E+00 0.95409760E+00 0.96306248E+00 0.97053864E+00 + 0.97672024E+00 0.98179263E+00 0.98592445E+00 0.98926330E+00 0.99193548E+00 + 0.99404863E+00 0.99569511E+00 0.99695513E+00 0.99789910E+00 0.99858934E+00 + 0.99908069E+00 0.99942038E+00 0.99964777E+00 0.99979456E+00 0.99988548E+00 + 0.99993922E+00 0.99996938E+00 0.99998540E+00 0.99999342E+00 0.99999720E+00 + 0.99999888E+00 0.99999958E+00 0.99999985E+00 0.99999995E+00 0.99999998E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.25417692E-02 0.76236405E-02 0.15239870E-01 0.25379855E-01 + 0.38027372E-01 0.53159521E-01 0.70746216E-01 0.90749916E-01 0.11312339E+00 + 0.13780524E+00 0.16471601E+00 0.19375713E+00 0.22481108E+00 0.25773875E+00 + 0.29237131E+00 0.32850091E+00 0.36587648E+00 0.40420722E+00 0.44317339E+00 + 0.48244103E+00 0.52167620E+00 0.56055377E+00 0.59875876E+00 0.63598534E+00 + 0.67194057E+00 0.70635450E+00 0.73899262E+00 0.76966417E+00 0.79822164E+00 + 0.82455492E+00 0.84858925E+00 0.87029082E+00 0.88967552E+00 0.90681370E+00 + 0.92182640E+00 0.93487384E+00 0.94613885E+00 0.95580794E+00 0.96405496E+00 + 0.97103343E+00 0.97687988E+00 0.98172268E+00 0.98568796E+00 0.98889859E+00 + 0.99146908E+00 0.99350165E+00 0.99508628E+00 0.99630328E+00 0.99722540E+00 + 0.99791755E+00 0.99843515E+00 0.99882274E+00 0.99911421E+00 0.99933464E+00 + 0.99950252E+00 0.99963157E+00 0.99973170E+00 0.99980965E+00 0.99986973E+00 + 0.99991475E+00 0.99994703E+00 0.99996890E+00 0.99998280E+00 0.99999105E+00 + 0.99999563E+00 0.99999799E+00 0.99999913E+00 0.99999965E+00 0.99999987E+00 + 0.99999995E+00 0.99999998E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.24885730E-02 0.74640470E-02 0.14921651E-01 0.24853129E-01 + 0.37246662E-01 0.52086716E-01 0.69353168E-01 0.89019389E-01 0.11104906E+00 + 0.13539190E+00 0.16197982E+00 0.19072406E+00 0.22151146E+00 0.25419934E+00 + 0.28861142E+00 0.32453649E+00 0.36172932E+00 0.39991318E+00 0.43878473E+00 + 0.47802329E+00 0.51730425E+00 0.55631075E+00 0.59473740E+00 0.63228786E+00 + 0.66867412E+00 0.70362166E+00 0.73687778E+00 0.76822067E+00 0.79746797E+00 + 0.82448377E+00 0.84918361E+00 0.87153568E+00 0.89155685E+00 0.90930563E+00 + 0.92487492E+00 0.93838504E+00 0.94997639E+00 0.95980315E+00 0.96802973E+00 + 0.97482841E+00 0.98037573E+00 0.98484635E+00 0.98840610E+00 0.99120719E+00 + 0.99338646E+00 0.99506520E+00 0.99634848E+00 0.99732406E+00 0.99806225E+00 + 0.99861748E+00 0.99903126E+00 0.99933552E+00 0.99955535E+00 0.99971082E+00 + 0.99981799E+00 0.99988963E+00 0.99993580E+00 0.99996432E+00 0.99998111E+00 + 0.99999049E+00 0.99999546E+00 0.99999795E+00 0.99999912E+00 0.99999965E+00 + 0.99999987E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.23876303E-02 0.71604763E-02 0.14313438E-01 0.23838986E-01 + 0.35727413E-01 0.49966526E-01 0.66539888E-01 0.85423504E-01 0.10658207E+00 + 0.12996624E+00 0.15551135E+00 0.18313638E+00 0.21274116E+00 0.24420252E+00 + 0.27737233E+00 0.31207822E+00 0.34812408E+00 0.38528835E+00 0.42332046E+00 + 0.46193840E+00 0.50083153E+00 0.53966954E+00 0.57811275E+00 0.61582054E+00 + 0.65246173E+00 0.68773027E+00 0.72136044E+00 0.75313248E+00 0.78286866E+00 + 0.81042949E+00 0.83571782E+00 0.85868794E+00 0.87935064E+00 0.89776818E+00 + 0.91404133E+00 0.92829443E+00 0.94066450E+00 0.95129658E+00 0.96034159E+00 + 0.96795277E+00 0.97428189E+00 0.97947887E+00 0.98369442E+00 0.98708068E+00 + 0.98978584E+00 0.99194461E+00 0.99367029E+00 0.99505268E+00 0.99616116E+00 + 0.99704992E+00 0.99776192E+00 0.99833094E+00 0.99878274E+00 0.99913645E+00 + 0.99940698E+00 0.99960725E+00 0.99974977E+00 0.99984685E+00 0.99991002E+00 + 0.99994926E+00 0.99997255E+00 0.99998576E+00 0.99999292E+00 0.99999663E+00 + 0.99999847E+00 0.99999933E+00 0.99999972E+00 0.99999989E+00 0.99999996E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.23387496E-02 0.70150491E-02 0.14026422E-01 0.23368415E-01 + 0.35034086E-01 0.49013364E-01 0.65292225E-01 0.83851196E-01 0.10466240E+00 + 0.12768569E+00 0.15286547E+00 0.18012879E+00 0.20938425E+00 0.24051973E+00 + 0.27339833E+00 0.30785325E+00 0.34368269E+00 0.38064786E+00 0.41847581E+00 + 0.45686663E+00 0.49550202E+00 0.53405280E+00 0.57218598E+00 0.60957368E+00 + 0.64590644E+00 0.68090851E+00 0.71434538E+00 0.74601858E+00 0.77575623E+00 + 0.80341236E+00 0.82887739E+00 0.85209061E+00 0.87304580E+00 0.89178776E+00 + 0.90840178E+00 0.92299946E+00 0.93570768E+00 0.94666564E+00 0.95602671E+00 + 0.96395711E+00 0.97062798E+00 0.97620484E+00 0.98083974E+00 0.98466824E+00 + 0.98780975E+00 0.99036910E+00 0.99243828E+00 0.99409806E+00 0.99541956E+00 + 0.99646527E+00 0.99728928E+00 0.99793694E+00 0.99844478E+00 0.99884133E+00 + 0.99914883E+00 0.99938503E+00 0.99956439E+00 0.99969872E+00 0.99979756E+00 + 0.99986854E+00 0.99991791E+00 0.99995091E+00 0.99997197E+00 0.99998475E+00 + 0.99999211E+00 0.99999612E+00 0.99999819E+00 0.99999920E+00 0.99999966E+00 + 0.99999987E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.22787506E-02 0.68350495E-02 0.13666447E-01 0.22768980E-01 + 0.34136713E-01 0.47760941E-01 0.63629130E-01 0.81723911E-01 0.10202217E+00 + 0.12449370E+00 0.14909876E+00 0.17578408E+00 0.20447728E+00 0.23508148E+00 + 0.26747171E+00 0.30149304E+00 0.33695948E+00 0.37365240E+00 0.41131806E+00 + 0.44966725E+00 0.48838127E+00 0.52712396E+00 0.56555493E+00 0.60334094E+00 + 0.64016724E+00 0.67575002E+00 0.70984543E+00 0.74225006E+00 0.77279286E+00 + 0.80132528E+00 0.82771689E+00 0.85185888E+00 0.87367431E+00 0.89313258E+00 + 0.91026294E+00 0.92515992E+00 0.93797584E+00 0.94890181E+00 0.95814405E+00 + 0.96590440E+00 0.97237005E+00 0.97771226E+00 0.98208960E+00 0.98565090E+00 + 0.98853506E+00 0.99086801E+00 0.99275874E+00 0.99429656E+00 0.99555082E+00 + 0.99657325E+00 0.99740226E+00 0.99806754E+00 0.99859367E+00 0.99900210E+00 + 0.99931205E+00 0.99954087E+00 0.99970437E+00 0.99981688E+00 0.99989115E+00 + 0.99993801E+00 0.99996623E+00 0.99998242E+00 0.99999126E+00 0.99999585E+00 + 0.99999812E+00 0.99999919E+00 0.99999967E+00 0.99999987E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.22468755E-02 0.67397266E-02 0.13476644E-01 0.22454923E-01 + 0.33670724E-01 0.47118010E-01 0.62786877E-01 0.80661752E-01 0.10072034E+00 + 0.12293379E+00 0.14726668E+00 0.17367506E+00 0.20210211E+00 0.23247185E+00 + 0.26468057E+00 0.29858658E+00 0.33400236E+00 0.37069358E+00 0.40838688E+00 + 0.44678394E+00 0.48557476E+00 0.52444391E+00 0.56306958E+00 0.60112286E+00 + 0.63827204E+00 0.67418970E+00 0.70856158E+00 0.74110074E+00 0.77156693E+00 + 0.79978573E+00 0.82566125E+00 0.84917615E+00 0.87037638E+00 0.88934736E+00 + 0.90619475E+00 0.92103734E+00 0.93400823E+00 0.94525536E+00 0.95493722E+00 + 0.96321477E+00 0.97024261E+00 0.97616249E+00 0.98110132E+00 0.98517408E+00 + 0.98848873E+00 0.99114956E+00 0.99325707E+00 0.99490569E+00 0.99618113E+00 + 0.99715882E+00 0.99790321E+00 0.99846760E+00 0.99889439E+00 0.99921591E+00 + 0.99945611E+00 0.99963277E+00 0.99975965E+00 0.99984801E+00 0.99990737E+00 + 0.99994569E+00 0.99996940E+00 0.99998346E+00 0.99999143E+00 0.99999575E+00 + 0.99999798E+00 0.99999908E+00 0.99999960E+00 0.99999984E+00 0.99999994E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.21264191E-02 0.63786113E-02 0.12755343E-01 0.21254799E-01 + 0.31874128E-01 0.44608323E-01 0.59448922E-01 0.76383399E-01 0.95395140E-01 + 0.11646251E+00 0.13955608E+00 0.16463515E+00 0.19164485E+00 0.22051395E+00 + 0.25115184E+00 0.28344305E+00 0.31724129E+00 0.35236703E+00 0.38860931E+00 + 0.42572805E+00 0.46345456E+00 0.50149305E+00 0.53952763E+00 0.57723421E+00 + 0.61429114E+00 0.65038509E+00 0.68521568E+00 0.71850454E+00 0.75000944E+00 + 0.77953939E+00 0.80696322E+00 0.83220534E+00 0.85523188E+00 0.87603869E+00 + 0.89464915E+00 0.91111903E+00 0.92554133E+00 0.93804525E+00 0.94878796E+00 + 0.95794176E+00 0.96568247E+00 0.97218182E+00 0.97760305E+00 0.98209761E+00 + 0.98580219E+00 0.98883705E+00 0.99130581E+00 0.99329677E+00 0.99488568E+00 + 0.99613851E+00 0.99711356E+00 0.99786232E+00 0.99842972E+00 0.99885441E+00 + 0.99916911E+00 0.99940093E+00 0.99957148E+00 0.99969717E+00 0.99978983E+00 + 0.99985770E+00 0.99990660E+00 0.99994087E+00 0.99996404E+00 0.99997904E+00 + 0.99998832E+00 0.99999378E+00 0.99999683E+00 0.99999846E+00 0.99999929E+00 + 0.99999969E+00 0.99999987E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.21264797E-02 0.63792000E-02 0.12757745E-01 0.21261083E-01 + 0.31886898E-01 0.44630957E-01 0.59486697E-01 0.76444746E-01 0.95491729E-01 + 0.11660816E+00 0.13976600E+00 0.16492664E+00 0.19203893E+00 0.22103598E+00 + 0.25183065E+00 0.28431105E+00 0.31833692E+00 0.35373623E+00 0.39030228E+00 + 0.42779194E+00 0.46592639E+00 0.50439625E+00 0.54287038E+00 0.58100529E+00 + 0.61845421E+00 0.65487839E+00 0.68996146E+00 0.72342479E+00 0.75503953E+00 + 0.78463233E+00 0.81208427E+00 0.83732471E+00 0.86032222E+00 0.88107656E+00 + 0.89961562E+00 0.91599798E+00 0.93031611E+00 0.94269543E+00 0.95328692E+00 + 0.96225586E+00 0.96977163E+00 0.97600186E+00 0.98110987E+00 0.98525282E+00 + 0.98857902E+00 0.99122483E+00 0.99331155E+00 0.99494385E+00 0.99621025E+00 + 0.99718511E+00 0.99793064E+00 0.99849794E+00 0.99892761E+00 0.99925063E+00 + 0.99949014E+00 0.99966384E+00 0.99978603E+00 0.99986887E+00 0.99992275E+00 + 0.99995630E+00 0.99997628E+00 0.99998765E+00 0.99999384E+00 0.99999706E+00 + 0.99999865E+00 0.99999941E+00 0.99999975E+00 0.99999990E+00 0.99999996E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.19928290E-02 0.59783601E-02 0.11956057E-01 0.19924606E-01 + 0.29881698E-01 0.41824131E-01 0.55748015E-01 0.71648282E-01 0.89516990E-01 + 0.10934092E+00 0.13109946E+00 0.15476354E+00 0.18029551E+00 0.20764818E+00 + 0.23676048E+00 0.26754979E+00 0.29990456E+00 0.33368102E+00 0.36870468E+00 + 0.40477410E+00 0.44166326E+00 0.47912055E+00 0.51686649E+00 0.55459425E+00 + 0.59197742E+00 0.62868648E+00 0.66440736E+00 0.69885239E+00 0.73176088E+00 + 0.76289547E+00 0.79204340E+00 0.81902758E+00 0.84372365E+00 0.86607272E+00 + 0.88608072E+00 0.90380593E+00 0.91934543E+00 0.93282822E+00 0.94441200E+00 + 0.95427706E+00 0.96261556E+00 0.96961918E+00 0.97546874E+00 0.98032781E+00 + 0.98434050E+00 0.98763206E+00 0.99031124E+00 0.99247310E+00 0.99420120E+00 + 0.99556889E+00 0.99664006E+00 0.99747012E+00 0.99810709E+00 0.99859237E+00 + 0.99896080E+00 0.99924037E+00 0.99945236E+00 0.99961236E+00 0.99973177E+00 + 0.99981926E+00 0.99988179E+00 0.99992514E+00 0.99995418E+00 0.99997292E+00 + 0.99998456E+00 0.99999151E+00 0.99999550E+00 0.99999770E+00 0.99999887E+00 + 0.99999946E+00 0.99999975E+00 0.99999989E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.19278841E-02 0.57835957E-02 0.11567013E-01 0.19277715E-01 + 0.28914710E-01 0.40476228E-01 0.53959449E-01 0.69360019E-01 0.86671314E-01 + 0.10588373E+00 0.12698425E+00 0.14995564E+00 0.17477420E+00 0.20140582E+00 + 0.22980061E+00 0.25988663E+00 0.29156445E+00 0.32470476E+00 0.35914902E+00 + 0.39471075E+00 0.43117556E+00 0.46830054E+00 0.50581525E+00 0.54342497E+00 + 0.58081389E+00 0.61765038E+00 0.65360057E+00 0.68834926E+00 0.72161959E+00 + 0.75318343E+00 0.78285957E+00 0.81050410E+00 0.83600286E+00 0.85927357E+00 + 0.88027557E+00 0.89901889E+00 0.91556545E+00 0.93002141E+00 0.94252429E+00 + 0.95323011E+00 0.96230355E+00 0.96991170E+00 0.97622040E+00 0.98139146E+00 + 0.98557950E+00 0.98892913E+00 0.99157354E+00 0.99363433E+00 0.99522141E+00 + 0.99643213E+00 0.99735007E+00 0.99804411E+00 0.99856863E+00 0.99896485E+00 + 0.99926320E+00 0.99948598E+00 0.99964987E+00 0.99976790E+00 0.99985065E+00 + 0.99990690E+00 0.99994386E+00 0.99996728E+00 0.99998159E+00 0.99999000E+00 + 0.99999477E+00 0.99999736E+00 0.99999872E+00 0.99999940E+00 0.99999973E+00 + 0.99999988E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.19087554E-02 0.57262333E-02 0.11452384E-01 0.19087040E-01 + 0.28629722E-01 0.40079544E-01 0.53435242E-01 0.68695029E-01 0.85856003E-01 + 0.10491284E+00 0.12585571E+00 0.14866773E+00 0.17332285E+00 0.19978373E+00 + 0.22799909E+00 0.25790023E+00 0.28939785E+00 0.32237810E+00 0.35669737E+00 + 0.39217744E+00 0.42860163E+00 0.46571315E+00 0.50322001E+00 0.54080767E+00 + 0.57815546E+00 0.61494899E+00 0.65088398E+00 0.68566549E+00 0.71900958E+00 + 0.75065138E+00 0.78036112E+00 0.80796431E+00 0.83335388E+00 0.85648598E+00 + 0.87736601E+00 0.89603786E+00 0.91257851E+00 0.92709254E+00 0.93970585E+00 + 0.95056147E+00 0.95981703E+00 0.96764024E+00 0.97420005E+00 0.97965629E+00 + 0.98415282E+00 0.98781681E+00 0.99076215E+00 0.99309331E+00 0.99490719E+00 + 0.99629303E+00 0.99733174E+00 0.99809547E+00 0.99864731E+00 0.99904087E+00 + 0.99931993E+00 0.99951831E+00 0.99966055E+00 0.99976352E+00 0.99983828E+00 + 0.99989216E+00 0.99993025E+00 0.99995641E+00 0.99997375E+00 0.99998479E+00 + 0.99999153E+00 0.99999546E+00 0.99999767E+00 0.99999885E+00 0.99999945E+00 + 0.99999975E+00 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.18911798E-02 0.56735262E-02 0.11346956E-01 0.18911176E-01 + 0.28365446E-01 0.39708308E-01 0.52937486E-01 0.68049818E-01 0.85040767E-01 + 0.10390302E+00 0.12462419E+00 0.14718464E+00 0.17155655E+00 0.19770371E+00 + 0.22557959E+00 0.25512291E+00 0.28625179E+00 0.31885862E+00 0.35280749E+00 + 0.38793375E+00 0.42404304E+00 0.46090913E+00 0.49827437E+00 0.53585605E+00 + 0.57335312E+00 0.61044833E+00 0.64681164E+00 0.68211428E+00 0.71605075E+00 + 0.74835559E+00 0.77880720E+00 0.80722474E+00 0.83346885E+00 0.85744845E+00 + 0.87912615E+00 0.89851688E+00 0.91568015E+00 0.93070980E+00 0.94372382E+00 + 0.95485654E+00 0.96425373E+00 0.97207018E+00 0.97846848E+00 0.98361722E+00 + 0.98768742E+00 0.99084739E+00 0.99325691E+00 0.99506197E+00 0.99639120E+00 + 0.99735448E+00 0.99804318E+00 0.99853125E+00 0.99887673E+00 0.99912356E+00 + 0.99930361E+00 0.99943894E+00 0.99954410E+00 0.99962832E+00 0.99969734E+00 + 0.99975478E+00 0.99980300E+00 0.99984366E+00 0.99987791E+00 0.99990657E+00 + 0.99993022E+00 0.99994931E+00 0.99996431E+00 0.99997570E+00 0.99998404E+00 + 0.99998989E+00 0.99999384E+00 0.99999639E+00 0.99999796E+00 0.99999889E+00 + 0.99999942E+00 0.99999971E+00 0.99999986E+00 0.99999994E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.18154361E-02 0.54463017E-02 0.10892496E-01 0.18153763E-01 + 0.27229594E-01 0.38119042E-01 0.50820405E-01 0.65330943E-01 0.81646776E-01 + 0.99762631E-01 0.11967081E+00 0.14135919E+00 0.16480897E+00 0.18999272E+00 + 0.21687229E+00 0.24539614E+00 0.27549624E+00 0.30708502E+00 0.34005281E+00 + 0.37426474E+00 0.40955596E+00 0.44572571E+00 0.48253309E+00 0.51969788E+00 + 0.55690669E+00 0.59382357E+00 0.63010317E+00 0.66540374E+00 0.69939929E+00 + 0.73179387E+00 0.76233873E+00 0.79084693E+00 0.81720050E+00 0.84134831E+00 + 0.86329612E+00 0.88309231E+00 0.90081370E+00 0.91655472E+00 0.93042130E+00 + 0.94252871E+00 0.95300145E+00 0.96197231E+00 0.96957847E+00 0.97595647E+00 + 0.98123914E+00 0.98555548E+00 0.98903118E+00 0.99178780E+00 0.99394057E+00 + 0.99559540E+00 0.99684669E+00 0.99777658E+00 0.99845550E+00 0.99894282E+00 + 0.99928716E+00 0.99952698E+00 0.99969164E+00 0.99980297E+00 0.99987691E+00 + 0.99992500E+00 0.99995552E+00 0.99997438E+00 0.99998569E+00 0.99999225E+00 + 0.99999594E+00 0.99999795E+00 0.99999900E+00 0.99999953E+00 0.99999979E+00 + 0.99999991E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.17714833E-02 0.53144372E-02 0.10628826E-01 0.17714520E-01 + 0.26571175E-01 0.37198152E-01 0.49594461E-01 0.63758549E-01 0.79687869E-01 + 0.97378348E-01 0.11682379E+00 0.13801455E+00 0.16093493E+00 0.18555968E+00 + 0.21185147E+00 0.23975909E+00 0.26921430E+00 0.30012673E+00 0.33238075E+00 + 0.36583617E+00 0.40032956E+00 0.43567350E+00 0.47165391E+00 0.50802817E+00 + 0.54452658E+00 0.58085784E+00 0.61671670E+00 0.65179358E+00 0.68578836E+00 + 0.71842721E+00 0.74947607E+00 0.77874682E+00 0.80609762E+00 0.83142964E+00 + 0.85468034E+00 0.87581596E+00 0.89482877E+00 0.91174195E+00 0.92661723E+00 + 0.93955528E+00 0.95068572E+00 0.96015312E+00 0.96810744E+00 0.97470151E+00 + 0.98009171E+00 0.98443747E+00 0.98789756E+00 0.99062407E+00 0.99275603E+00 + 0.99441490E+00 0.99570278E+00 0.99670276E+00 0.99748060E+00 0.99808692E+00 + 0.99855993E+00 0.99892818E+00 0.99921320E+00 0.99943166E+00 0.99959686E+00 + 0.99971974E+00 0.99980941E+00 0.99987344E+00 0.99991809E+00 0.99994841E+00 + 0.99996844E+00 0.99998126E+00 0.99998922E+00 0.99999399E+00 0.99999676E+00 + 0.99999831E+00 0.99999915E+00 0.99999959E+00 0.99999981E+00 0.99999991E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.17584693E-02 0.52753860E-02 0.10550742E-01 0.17584532E-01 + 0.26376729E-01 0.36927265E-01 0.49235927E-01 0.63301991E-01 0.79123512E-01 + 0.96696258E-01 0.11601243E+00 0.13705959E+00 0.15981981E+00 0.18426848E+00 + 0.21037259E+00 0.23808897E+00 0.26736216E+00 0.29812066E+00 0.33027070E+00 + 0.36368953E+00 0.39822178E+00 0.43367907E+00 0.46983997E+00 0.50645163E+00 + 0.54323569E+00 0.57989637E+00 0.61612729E+00 0.65161823E+00 0.68606302E+00 + 0.71916908E+00 0.75066992E+00 0.78033907E+00 0.80800067E+00 0.83353232E+00 + 0.85686168E+00 0.87796178E+00 0.89684762E+00 0.91357297E+00 0.92822640E+00 + 0.94092640E+00 0.95181567E+00 0.96105448E+00 0.96881367E+00 0.97526715E+00 + 0.98058422E+00 0.98492310E+00 0.98842710E+00 0.99122378E+00 0.99342664E+00 + 0.99513754E+00 0.99644819E+00 0.99743969E+00 0.99818127E+00 0.99872965E+00 + 0.99912983E+00 0.99941703E+00 0.99961891E+00 0.99975739E+00 0.99984979E+00 + 0.99990964E+00 0.99994723E+00 0.99997009E+00 0.99998356E+00 0.99999124E+00 + 0.99999548E+00 0.99999774E+00 0.99999890E+00 0.99999949E+00 0.99999977E+00 + 0.99999990E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16877860E-02 0.50630697E-02 0.10125509E-01 0.16874647E-01 + 0.25309895E-01 0.35430527E-01 0.47235537E-01 0.60723447E-01 0.75892186E-01 + 0.92738834E-01 0.11125878E+00 0.13144412E+00 0.15328137E+00 0.17674944E+00 + 0.20181892E+00 0.22845235E+00 0.25660365E+00 0.28621463E+00 0.31720803E+00 + 0.34947715E+00 0.38287586E+00 0.41721715E+00 0.45228397E+00 0.48784379E+00 + 0.52365466E+00 0.55946101E+00 0.59498932E+00 0.62995210E+00 0.66406042E+00 + 0.69703971E+00 0.72864174E+00 0.75865006E+00 0.78688202E+00 0.81319071E+00 + 0.83746790E+00 0.85964742E+00 0.87970724E+00 0.89766851E+00 0.91359272E+00 + 0.92757773E+00 0.93975137E+00 0.95026180E+00 0.95926705E+00 0.96692562E+00 + 0.97338898E+00 0.97879669E+00 0.98327501E+00 0.98693880E+00 0.98989506E+00 + 0.99224610E+00 0.99409044E+00 0.99552111E+00 0.99662245E+00 0.99746707E+00 + 0.99811417E+00 0.99860982E+00 0.99898870E+00 0.99927658E+00 0.99949283E+00 + 0.99965255E+00 0.99976793E+00 0.99984913E+00 0.99990464E+00 0.99994144E+00 + 0.99996506E+00 0.99997975E+00 0.99998860E+00 0.99999376E+00 0.99999668E+00 + 0.99999829E+00 0.99999914E+00 0.99999958E+00 0.99999980E+00 0.99999991E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.17000401E-02 0.51001066E-02 0.10200181E-01 0.17000240E-01 + 0.25500240E-01 0.35700075E-01 0.47599446E-01 0.61197583E-01 0.76492781E-01 + 0.93481876E-01 0.11215978E+00 0.13251894E+00 0.15454838E+00 0.17823199E+00 + 0.20354599E+00 0.23045622E+00 0.25891584E+00 0.28886285E+00 0.32021640E+00 + 0.35287087E+00 0.38668958E+00 0.42150198E+00 0.45710671E+00 0.49327666E+00 + 0.52976042E+00 0.56628055E+00 0.60253569E+00 0.63820929E+00 0.67297986E+00 + 0.70652857E+00 0.73855032E+00 0.76877445E+00 0.79698825E+00 0.82304919E+00 + 0.84688280E+00 0.86847272E+00 0.88784835E+00 0.90507310E+00 0.92023636E+00 + 0.93345056E+00 0.94485173E+00 0.95459950E+00 0.96287204E+00 0.96985434E+00 + 0.97572309E+00 0.98063414E+00 0.98471755E+00 0.98808071E+00 0.99081587E+00 + 0.99300738E+00 0.99473541E+00 0.99607603E+00 0.99709924E+00 0.99786728E+00 + 0.99843422E+00 0.99884639E+00 0.99914287E+00 0.99935571E+00 0.99951015E+00 + 0.99962492E+00 0.99971291E+00 0.99978224E+00 0.99983763E+00 0.99988176E+00 + 0.99991630E+00 0.99994257E+00 0.99996188E+00 0.99997554E+00 0.99998484E+00 + 0.99999092E+00 0.99999475E+00 0.99999707E+00 0.99999842E+00 0.99999918E+00 + 0.99999959E+00 0.99999980E+00 0.99999991E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16500226E-02 0.49500705E-02 0.99001382E-02 0.16500183E-01 + 0.24750097E-01 0.34649650E-01 0.46198321E-01 0.59394957E-01 0.74237348E-01 + 0.90721818E-01 0.10884280E+00 0.12859223E+00 0.14995873E+00 0.17292703E+00 + 0.19747768E+00 0.22358612E+00 0.25122040E+00 0.28033712E+00 0.31087549E+00 + 0.34275068E+00 0.37584787E+00 0.41001778E+00 0.44507249E+00 0.48078329E+00 + 0.51688454E+00 0.55308560E+00 0.58908526E+00 0.62458048E+00 0.65926950E+00 + 0.69285656E+00 0.72506320E+00 0.75564377E+00 0.78439908E+00 0.81118274E+00 + 0.83589837E+00 0.85849160E+00 0.87894331E+00 0.89726678E+00 0.91350770E+00 + 0.92774430E+00 0.94008604E+00 0.95067029E+00 0.95965712E+00 0.96722188E+00 + 0.97354468E+00 0.97879859E+00 0.98313995E+00 0.98670397E+00 0.98960563E+00 + 0.99194390E+00 0.99380648E+00 0.99527280E+00 0.99641496E+00 0.99729738E+00 + 0.99797594E+00 0.99849700E+00 0.99889702E+00 0.99920333E+00 0.99943592E+00 + 0.99960983E+00 0.99973701E+00 0.99982754E+00 0.99989008E+00 0.99993195E+00 + 0.99995908E+00 0.99997611E+00 0.99998645E+00 0.99999255E+00 0.99999602E+00 + 0.99999794E+00 0.99999896E+00 0.99999949E+00 0.99999976E+00 0.99999989E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16477825E-02 0.49432631E-02 0.98862426E-02 0.16476399E-01 + 0.24713349E-01 0.34596745E-01 0.46126301E-01 0.59301761E-01 0.74122748E-01 + 0.90588303E-01 0.10869605E+00 0.12844112E+00 0.14981513E+00 0.17280533E+00 + 0.19739303E+00 0.22354987E+00 0.25123303E+00 0.28038264E+00 0.31092225E+00 + 0.34275912E+00 0.37578112E+00 0.40985036E+00 0.44479734E+00 0.48041842E+00 + 0.51647526E+00 0.55269456E+00 0.58877282E+00 0.62438941E+00 0.65922429E+00 + 0.69297318E+00 0.72535839E+00 0.75613678E+00 0.78510451E+00 0.81209667E+00 + 0.83698555E+00 0.85968370E+00 0.88015272E+00 0.89841157E+00 0.91453708E+00 + 0.92865290E+00 0.94091065E+00 0.95147119E+00 0.96049363E+00 0.96813268E+00 + 0.97453956E+00 0.97986161E+00 0.98423979E+00 0.98780537E+00 0.99067772E+00 + 0.99296409E+00 0.99476046E+00 0.99615248E+00 0.99721575E+00 0.99801589E+00 + 0.99860872E+00 0.99904083E+00 0.99935038E+00 0.99956813E+00 0.99971841E+00 + 0.99982008E+00 0.99988744E+00 0.99993111E+00 0.99995879E+00 0.99997592E+00 + 0.99998627E+00 0.99999237E+00 0.99999587E+00 0.99999782E+00 0.99999888E+00 + 0.99999944E+00 0.99999973E+00 0.99999987E+00 0.99999994E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15793686E-02 0.47381086E-02 0.94762170E-02 0.15793661E-01 + 0.23690328E-01 0.33165948E-01 0.44220024E-01 0.56851805E-01 0.71060317E-01 + 0.86844367E-01 0.10420228E+00 0.12313114E+00 0.14362560E+00 0.16567639E+00 + 0.18926906E+00 0.21438243E+00 0.24098616E+00 0.26903740E+00 0.29847763E+00 + 0.32923026E+00 0.36119782E+00 0.39425678E+00 0.42825010E+00 0.46298195E+00 + 0.49821890E+00 0.53369735E+00 0.56913373E+00 0.60423326E+00 0.63869665E+00 + 0.67222934E+00 0.70455653E+00 0.73543916E+00 0.76468212E+00 0.79213148E+00 + 0.81766781E+00 0.84120398E+00 0.86268982E+00 0.88211806E+00 0.89952402E+00 + 0.91497816E+00 0.92857628E+00 0.94043190E+00 0.95067175E+00 0.95943347E+00 + 0.96686393E+00 0.97311597E+00 0.97834224E+00 0.98268719E+00 0.98627980E+00 + 0.98923010E+00 0.99163070E+00 0.99356132E+00 0.99509333E+00 0.99629216E+00 + 0.99721761E+00 0.99792309E+00 0.99845493E+00 0.99885228E+00 0.99914739E+00 + 0.99936621E+00 0.99952899E+00 0.99965095E+00 0.99974311E+00 0.99981313E+00 + 0.99986626E+00 0.99990620E+00 0.99993571E+00 0.99995702E+00 0.99997201E+00 + 0.99998226E+00 0.99998906E+00 0.99999344E+00 0.99999618E+00 0.99999784E+00 + 0.99999881E+00 0.99999936E+00 0.99999967E+00 0.99999983E+00 0.99999992E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15965514E-02 0.47896528E-02 0.95792999E-02 0.15965472E-01 + 0.23948110E-01 0.33527082E-01 0.44702101E-01 0.57472622E-01 0.71837759E-01 + 0.87796147E-01 0.10534557E+00 0.12448235E+00 0.14520031E+00 0.16748923E+00 + 0.19133256E+00 0.21670581E+00 0.24357520E+00 0.27189501E+00 0.30160309E+00 + 0.33261624E+00 0.36482642E+00 0.39809729E+00 0.43226139E+00 0.46711946E+00 + 0.50244284E+00 0.53797720E+00 0.57344611E+00 0.60855646E+00 0.64300936E+00 + 0.67651541E+00 0.70880858E+00 0.73965668E+00 0.76886945E+00 0.79630205E+00 + 0.82185164E+00 0.84544972E+00 0.86705532E+00 0.88665132E+00 0.90424331E+00 + 0.91986131E+00 0.93356436E+00 0.94544385E+00 0.95562120E+00 0.96424061E+00 + 0.97146078E+00 0.97744703E+00 0.98236301E+00 0.98636225E+00 0.98958265E+00 + 0.99214530E+00 0.99415644E+00 0.99571013E+00 0.99689030E+00 0.99777155E+00 + 0.99841913E+00 0.99888849E+00 0.99922500E+00 0.99946433E+00 0.99963348E+00 + 0.99975229E+00 0.99983508E+00 0.99989212E+00 0.99993085E+00 0.99995664E+00 + 0.99997346E+00 0.99998415E+00 0.99999079E+00 0.99999478E+00 0.99999713E+00 + 0.99999846E+00 0.99999920E+00 0.99999960E+00 0.99999980E+00 0.99999991E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + NUCLEUS 4 2 40 18 + 22.21291 0.15000 1.76969 3.78354 + 0.00000000E+00 0.12674223E-02 0.38022713E-02 0.76045101E-02 0.12674069E-01 + 0.19010865E-01 0.26614822E-01 0.35485821E-01 0.45623591E-01 0.57027724E-01 + 0.69697823E-01 0.83633536E-01 0.98834198E-01 0.11529820E+00 0.13302261E+00 + 0.15200315E+00 0.17223445E+00 0.19370972E+00 0.21641973E+00 0.24035129E+00 + 0.26548525E+00 0.29179362E+00 0.31923592E+00 0.34775514E+00 0.37727418E+00 + 0.40769379E+00 0.43889219E+00 0.47072518E+00 0.50302546E+00 0.53560377E+00 + 0.56825533E+00 0.60076992E+00 0.63293890E+00 0.66455607E+00 0.69541438E+00 + 0.72530099E+00 0.75399529E+00 0.78127787E+00 0.80695074E+00 0.83085843E+00 + 0.85289829E+00 0.87301688E+00 0.89119895E+00 0.90746042E+00 0.92185080E+00 + 0.93445861E+00 0.94540961E+00 0.95485473E+00 0.96295321E+00 0.96985836E+00 + 0.97571014E+00 0.98063416E+00 0.98474303E+00 0.98813733E+00 0.99090666E+00 + 0.99313224E+00 0.99489029E+00 0.99625429E+00 0.99729442E+00 0.99807495E+00 + 0.99865176E+00 0.99907123E+00 0.99937091E+00 0.99958099E+00 0.99972551E+00 + 0.99982325E+00 0.99988833E+00 0.99993101E+00 0.99995851E+00 0.99997581E+00 + 0.99998640E+00 0.99999265E+00 0.99999619E+00 0.99999811E+00 0.99999911E+00 + 0.99999960E+00 0.99999983E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12562133E-02 0.37686763E-02 0.75374038E-02 0.12562393E-01 + 0.18843633E-01 0.26381083E-01 0.35174606E-01 0.45223942E-01 0.56528728E-01 + 0.69088387E-01 0.82901898E-01 0.97967652E-01 0.11428330E+00 0.13184544E+00 + 0.15064926E+00 0.17068843E+00 0.19195478E+00 0.21443737E+00 0.23812053E+00 + 0.26298191E+00 0.28899113E+00 0.31610920E+00 0.34428717E+00 0.37346286E+00 + 0.40355560E+00 0.43446093E+00 0.46604787E+00 0.49815926E+00 0.53061379E+00 + 0.56320851E+00 0.59572234E+00 0.62792255E+00 0.65957394E+00 0.69044748E+00 + 0.72032503E+00 0.74900217E+00 0.77629336E+00 0.80203938E+00 0.82611231E+00 + 0.84841596E+00 0.86888493E+00 0.88748538E+00 0.90421703E+00 0.91911440E+00 + 0.93224581E+00 0.94370936E+00 0.95362462E+00 0.96212220E+00 0.96933527E+00 + 0.97539544E+00 0.98043194E+00 0.98457180E+00 0.98793871E+00 0.99065058E+00 + 0.99281624E+00 0.99453258E+00 0.99588296E+00 0.99693729E+00 0.99775336E+00 + 0.99837875E+00 0.99885248E+00 0.99920632E+00 0.99946586E+00 0.99965173E+00 + 0.99978083E+00 0.99986728E+00 0.99992283E+00 0.99995697E+00 0.99997702E+00 + 0.99998826E+00 0.99999426E+00 0.99999732E+00 0.99999880E+00 0.99999949E+00 + 0.99999979E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12365029E-02 0.37095271E-02 0.74190906E-02 0.12365168E-01 + 0.18547673E-01 0.25966474E-01 0.34621389E-01 0.44512161E-01 0.55638419E-01 + 0.67999600E-01 0.81594786E-01 0.96422428E-01 0.11248001E+00 0.12976368E+00 + 0.14826788E+00 0.16798499E+00 0.18890500E+00 0.21101514E+00 0.23429908E+00 + 0.25873525E+00 0.28429424E+00 0.31093643E+00 0.33861021E+00 0.36725020E+00 + 0.39677473E+00 0.42708356E+00 0.45805654E+00 0.48955339E+00 0.52141453E+00 + 0.55346313E+00 0.58550835E+00 0.61734925E+00 0.64877886E+00 0.67958635E+00 + 0.70955676E+00 0.73847194E+00 0.76611741E+00 0.79229558E+00 0.81684033E+00 + 0.83962738E+00 0.86057782E+00 0.87965575E+00 0.89686303E+00 0.91223537E+00 + 0.92584011E+00 0.93777296E+00 0.94815110E+00 0.95710465E+00 0.96476926E+00 + 0.97128083E+00 0.97677171E+00 0.98136758E+00 0.98518501E+00 0.98833021E+00 + 0.99089898E+00 0.99297739E+00 0.99464240E+00 0.99596212E+00 0.99699619E+00 + 0.99779642E+00 0.99840768E+00 0.99886840E+00 0.99921092E+00 0.99946173E+00 + 0.99964204E+00 0.99976871E+00 0.99985525E+00 0.99991246E+00 0.99994895E+00 + 0.99997133E+00 0.99998452E+00 0.99999196E+00 0.99999600E+00 0.99999809E+00 + 0.99999912E+00 0.99999962E+00 0.99999984E+00 0.99999994E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12211563E-02 0.36634751E-02 0.73269450E-02 0.12211538E-01 + 0.18317199E-01 0.25643818E-01 0.34191190E-01 0.43958966E-01 0.54946612E-01 + 0.67153338E-01 0.80578058E-01 0.95219430E-01 0.11107587E+00 0.12814533E+00 + 0.14642476E+00 0.16590948E+00 0.18659261E+00 0.20846409E+00 0.23150914E+00 + 0.25570638E+00 0.28102586E+00 0.30742709E+00 0.33485699E+00 0.36324770E+00 + 0.39251485E+00 0.42255668E+00 0.45325410E+00 0.48447129E+00 0.51605629E+00 + 0.54784180E+00 0.57964727E+00 0.61128123E+00 0.64254291E+00 0.67322407E+00 + 0.70311368E+00 0.73200456E+00 0.75969883E+00 0.78601159E+00 0.81077622E+00 + 0.83385349E+00 0.85514283E+00 0.87459067E+00 0.89219185E+00 0.90798329E+00 + 0.92203312E+00 0.93443005E+00 0.94527600E+00 0.95468177E+00 0.96276372E+00 + 0.96964092E+00 0.97543306E+00 0.98025968E+00 0.98423950E+00 0.98748889E+00 + 0.99011927E+00 0.99223389E+00 0.99392511E+00 0.99527264E+00 0.99634308E+00 + 0.99719077E+00 0.99785960E+00 0.99838497E+00 0.99879542E+00 0.99911384E+00 + 0.99935853E+00 0.99954420E+00 0.99968280E+00 0.99978428E+00 0.99985691E+00 + 0.99990761E+00 0.99994204E+00 0.99996474E+00 0.99997923E+00 0.99998817E+00 + 0.99999350E+00 0.99999656E+00 0.99999824E+00 0.99999914E+00 0.99999959E+00 + 0.99999982E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11977086E-02 0.35931548E-02 0.71863402E-02 0.11977248E-01 + 0.17965850E-01 0.25152107E-01 0.33535947E-01 0.43117234E-01 0.53895717E-01 + 0.65870987E-01 0.79042468E-01 0.93409384E-01 0.10897063E+00 0.12572448E+00 + 0.14366815E+00 0.16279739E+00 0.18310623E+00 0.20458677E+00 0.22722814E+00 + 0.25101455E+00 0.27592308E+00 0.30192178E+00 0.32896813E+00 0.35700702E+00 + 0.38596772E+00 0.41576013E+00 0.44627096E+00 0.47736182E+00 0.50887096E+00 + 0.54061814E+00 0.57241008E+00 0.60404441E+00 0.63531232E+00 0.66600182E+00 + 0.69590259E+00 0.72481238E+00 0.75254413E+00 0.77893269E+00 0.80383958E+00 + 0.82715454E+00 0.84879522E+00 0.86870689E+00 0.88686352E+00 0.90326927E+00 + 0.91795844E+00 0.93099233E+00 0.94245350E+00 0.95243963E+00 0.96105857E+00 + 0.96842470E+00 0.97465585E+00 0.97987049E+00 0.98418522E+00 0.98771292E+00 + 0.99056131E+00 0.99283170E+00 0.99461775E+00 0.99600437E+00 0.99706693E+00 + 0.99787095E+00 0.99847212E+00 0.99891668E+00 0.99924198E+00 0.99947753E+00 + 0.99964607E+00 0.99976498E+00 0.99984742E+00 0.99990338E+00 0.99994044E+00 + 0.99996432E+00 0.99997925E+00 0.99998830E+00 0.99999361E+00 0.99999662E+00 + 0.99999827E+00 0.99999914E+00 0.99999959E+00 0.99999981E+00 0.99999991E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11771272E-02 0.35313704E-02 0.70626995E-02 0.11771062E-01 + 0.17656388E-01 0.24718604E-01 0.32957634E-01 0.42373358E-01 0.52965534E-01 + 0.64733709E-01 0.77677178E-01 0.91794967E-01 0.10708575E+00 0.12354767E+00 + 0.14117820E+00 0.15997376E+00 0.17992903E+00 0.20103569E+00 0.22328066E+00 + 0.24664441E+00 0.27109969E+00 0.29661150E+00 0.32313740E+00 0.35062651E+00 + 0.37901596E+00 0.40822578E+00 0.43815478E+00 0.46867970E+00 0.49965763E+00 + 0.53092957E+00 0.56232374E+00 0.59365880E+00 0.62474741E+00 0.65539932E+00 + 0.68542275E+00 0.71462408E+00 0.74280795E+00 0.76978077E+00 0.79535933E+00 + 0.81938287E+00 0.84172488E+00 0.86230032E+00 0.88106624E+00 0.89801723E+00 + 0.91317962E+00 0.92660729E+00 0.93837914E+00 0.94859688E+00 0.95738140E+00 + 0.96486684E+00 0.97119299E+00 0.97649810E+00 0.98091402E+00 0.98456380E+00 + 0.98756095E+00 0.99000901E+00 0.99200087E+00 0.99361785E+00 0.99492906E+00 + 0.99599152E+00 0.99685125E+00 0.99754512E+00 0.99810286E+00 0.99854881E+00 + 0.99890317E+00 0.99918272E+00 0.99940129E+00 0.99957014E+00 0.99969844E+00 + 0.99979387E+00 0.99986302E+00 0.99991165E+00 0.99994475E+00 0.99996653E+00 + 0.99998036E+00 0.99998885E+00 0.99999387E+00 0.99999674E+00 0.99999832E+00 + 0.99999917E+00 0.99999960E+00 0.99999981E+00 0.99999992E+00 0.99999996E+00 + 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11542159E-02 0.34626465E-02 0.69252875E-02 0.11542135E-01 + 0.17313182E-01 0.24238419E-01 0.32317812E-01 0.41551301E-01 0.51938798E-01 + 0.63480192E-01 0.76175307E-01 0.90023775E-01 0.10502482E+00 0.12117700E+00 + 0.13847805E+00 0.15692477E+00 0.17651277E+00 0.19723598E+00 0.21908596E+00 + 0.24205081E+00 0.26611335E+00 0.29124872E+00 0.31742208E+00 0.34458718E+00 + 0.37268557E+00 0.40164586E+00 0.43138168E+00 0.46178798E+00 0.49273712E+00 + 0.52407685E+00 0.55563124E+00 0.58720376E+00 0.61858168E+00 0.64954153E+00 + 0.67985606E+00 0.70930199E+00 0.73766758E+00 0.76475927E+00 0.79040813E+00 + 0.81447633E+00 0.83686255E+00 0.85750425E+00 0.87637551E+00 0.89348212E+00 + 0.90885632E+00 0.92255368E+00 0.93465193E+00 0.94524975E+00 0.95446294E+00 + 0.96241747E+00 0.96924108E+00 0.97505577E+00 0.97997328E+00 0.98409388E+00 + 0.98750792E+00 0.99029866E+00 0.99254512E+00 0.99432384E+00 0.99570889E+00 + 0.99677045E+00 0.99757280E+00 0.99817253E+00 0.99861749E+00 0.99894654E+00 + 0.99919015E+00 0.99937153E+00 0.99950796E+00 0.99961216E+00 0.99969339E+00 + 0.99975821E+00 0.99981105E+00 0.99985468E+00 0.99989071E+00 0.99992007E+00 + 0.99994340E+00 0.99996129E+00 0.99997449E+00 0.99998382E+00 0.99999013E+00 + 0.99999420E+00 0.99999673E+00 0.99999822E+00 0.99999907E+00 0.99999953E+00 + 0.99999977E+00 0.99999990E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11378319E-02 0.34134906E-02 0.68269679E-02 0.11378252E-01 + 0.17067324E-01 0.23894157E-01 0.31858707E-01 0.40960900E-01 0.51200617E-01 + 0.62577665E-01 0.75091727E-01 0.88742281E-01 0.10352845E+00 0.11944881E+00 + 0.13650115E+00 0.15468241E+00 0.17398851E+00 0.19441423E+00 0.21595258E+00 + 0.23859377E+00 0.26232365E+00 0.28712173E+00 0.31295895E+00 0.33979525E+00 + 0.36757739E+00 0.39623647E+00 0.42568536E+00 0.45581623E+00 0.48649943E+00 + 0.51758474E+00 0.54890457E+00 0.58027766E+00 0.61151183E+00 0.64240615E+00 + 0.67275313E+00 0.70234159E+00 0.73096083E+00 0.75840714E+00 0.78449279E+00 + 0.80905636E+00 0.83197250E+00 0.85315845E+00 0.87257522E+00 0.89022298E+00 + 0.90613296E+00 0.92035896E+00 0.93297064E+00 0.94404950E+00 0.95368699E+00 + 0.96198387E+00 0.96904979E+00 0.97500201E+00 0.97996276E+00 0.98405522E+00 + 0.98739913E+00 0.99010699E+00 0.99228152E+00 0.99401432E+00 0.99538546E+00 + 0.99646359E+00 0.99730653E+00 0.99796218E+00 0.99846967E+00 0.99886052E+00 + 0.99915988E+00 0.99938766E+00 0.99955959E+00 0.99968808E+00 0.99978294E+00 + 0.99985195E+00 0.99990126E+00 0.99993575E+00 0.99995929E+00 0.99997493E+00 + 0.99998501E+00 0.99999131E+00 0.99999512E+00 0.99999735E+00 0.99999861E+00 + 0.99999929E+00 0.99999965E+00 0.99999984E+00 0.99999992E+00 0.99999997E+00 + 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11172161E-02 0.33516478E-02 0.67032936E-02 0.11172151E-01 + 0.16758212E-01 0.23461453E-01 0.31281809E-01 0.40219145E-01 0.50273267E-01 + 0.61443995E-01 0.73731227E-01 0.87134933E-01 0.10165507E+00 0.11729142E+00 + 0.13404346E+00 0.15191018E+00 0.17088982E+00 0.19097928E+00 0.21217334E+00 + 0.23446345E+00 0.25783644E+00 0.28227327E+00 0.30774822E+00 0.33422779E+00 + 0.36166839E+00 0.39001239E+00 0.41918415E+00 0.44908754E+00 0.47960509E+00 + 0.51059805E+00 0.54190675E+00 0.57335137E+00 0.60473389E+00 0.63584213E+00 + 0.66645579E+00 0.69635406E+00 0.72532418E+00 0.75316964E+00 0.77971581E+00 + 0.80481193E+00 0.82833064E+00 0.85016806E+00 0.87024712E+00 0.88852316E+00 + 0.90498838E+00 0.91967211E+00 0.93263656E+00 0.94396994E+00 0.95377934E+00 + 0.96218496E+00 0.96931560E+00 0.97530493E+00 0.98028778E+00 0.98439612E+00 + 0.98775493E+00 0.99047870E+00 0.99266928E+00 0.99441535E+00 0.99579323E+00 + 0.99686839E+00 0.99769707E+00 0.99832755E+00 0.99880100E+00 0.99915196E+00 + 0.99940882E+00 0.99959438E+00 0.99972654E+00 0.99981919E+00 0.99988297E+00 + 0.99992599E+00 0.99995434E+00 0.99997256E+00 0.99998396E+00 0.99999089E+00 + 0.99999497E+00 0.99999731E+00 0.99999861E+00 0.99999930E+00 0.99999966E+00 + 0.99999984E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10759073E-02 0.32277219E-02 0.64554436E-02 0.10759072E-01 + 0.16138608E-01 0.22594052E-01 0.30125402E-01 0.38732658E-01 0.48415818E-01 + 0.59174876E-01 0.71009823E-01 0.83920642E-01 0.97907280E-01 0.11296958E+00 + 0.12910714E+00 0.14631906E+00 0.16460369E+00 0.18395819E+00 0.20437796E+00 + 0.22585594E+00 0.24838184E+00 0.27194127E+00 0.29651450E+00 0.32207495E+00 + 0.34858739E+00 0.37600556E+00 0.40426907E+00 0.43329987E+00 0.46299997E+00 + 0.49325125E+00 0.52391746E+00 0.55484669E+00 0.58587292E+00 0.61681633E+00 + 0.64748345E+00 0.67766834E+00 0.70715587E+00 0.73572765E+00 0.76317019E+00 + 0.78928436E+00 0.81389492E+00 0.83685881E+00 0.85807102E+00 0.87746730E+00 + 0.89502411E+00 0.91075620E+00 0.92471253E+00 0.93697086E+00 0.94763188E+00 + 0.95681326E+00 0.96464416E+00 0.97126011E+00 0.97679853E+00 0.98139493E+00 + 0.98517976E+00 0.98827544E+00 0.99079340E+00 0.99283153E+00 0.99447300E+00 + 0.99578684E+00 0.99682991E+00 0.99764944E+00 0.99828522E+00 0.99877117E+00 + 0.99913634E+00 0.99940558E+00 0.99959992E+00 0.99973701E+00 0.99983133E+00 + 0.99989455E+00 0.99993579E+00 0.99996193E+00 0.99997804E+00 0.99998768E+00 + 0.99999328E+00 0.99999644E+00 0.99999817E+00 0.99999909E+00 0.99999956E+00 + 0.99999979E+00 0.99999991E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10549701E-02 0.31649104E-02 0.63298207E-02 0.10549701E-01 + 0.15824551E-01 0.22154371E-01 0.29539160E-01 0.37978916E-01 0.47473638E-01 + 0.58023323E-01 0.69627968E-01 0.82287568E-01 0.96002104E-01 0.11077151E+00 + 0.12659557E+00 0.14347374E+00 0.16140480E+00 0.18038639E+00 0.20041444E+00 + 0.22148255E+00 0.24358148E+00 0.26669904E+00 0.29081962E+00 0.31592274E+00 + 0.34198040E+00 0.36895424E+00 0.39679310E+00 0.42543088E+00 0.45478369E+00 + 0.48474654E+00 0.51519163E+00 0.54596991E+00 0.57691435E+00 0.60784264E+00 + 0.63855826E+00 0.66885171E+00 0.69850496E+00 0.72730012E+00 0.75502942E+00 + 0.78150240E+00 0.80654988E+00 0.83002703E+00 0.85181755E+00 0.87183815E+00 + 0.89004184E+00 0.90641934E+00 0.92099854E+00 0.93384206E+00 0.94504254E+00 + 0.95471584E+00 0.96299282E+00 0.97001147E+00 0.97591025E+00 0.98082353E+00 + 0.98487843E+00 0.98819299E+00 0.99087512E+00 0.99302237E+00 0.99472207E+00 + 0.99605171E+00 0.99707926E+00 0.99786361E+00 0.99845499E+00 0.99889555E+00 + 0.99921994E+00 0.99945609E+00 0.99962602E+00 0.99974683E+00 0.99983155E+00 + 0.99989004E+00 0.99992970E+00 0.99995606E+00 0.99997319E+00 0.99998405E+00 + 0.99999076E+00 0.99999479E+00 0.99999714E+00 0.99999848E+00 0.99999921E+00 + 0.99999961E+00 0.99999981E+00 0.99999991E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10162573E-02 0.30487718E-02 0.60975435E-02 0.10162573E-01 + 0.15243859E-01 0.21341402E-01 0.28455202E-01 0.36585258E-01 0.45731566E-01 + 0.55894115E-01 0.67072870E-01 0.79267758E-01 0.92478645E-01 0.10670531E+00 + 0.12194739E+00 0.13820427E+00 0.15547485E+00 0.17375714E+00 0.19304781E+00 + 0.21334167E+00 0.23463138E+00 0.25690683E+00 0.28015426E+00 0.30435517E+00 + 0.32948507E+00 0.35551166E+00 0.38239267E+00 0.41007349E+00 0.43848464E+00 + 0.46753818E+00 0.49712393E+00 0.52710736E+00 0.55733102E+00 0.58761934E+00 + 0.61778528E+00 0.64763665E+00 0.67697997E+00 0.70562193E+00 0.73337069E+00 + 0.76003908E+00 0.78545092E+00 0.80945033E+00 0.83191166E+00 0.85274620E+00 + 0.87190326E+00 0.88936699E+00 0.90515232E+00 0.91930204E+00 0.93188366E+00 + 0.94298395E+00 0.95270138E+00 0.96113880E+00 0.96839876E+00 0.97458210E+00 + 0.97978879E+00 0.98411893E+00 0.98767265E+00 0.99054867E+00 0.99284239E+00 + 0.99464403E+00 0.99603722E+00 0.99709780E+00 0.99789281E+00 0.99848000E+00 + 0.99890778E+00 0.99921574E+00 0.99943546E+00 0.99959145E+00 0.99970227E+00 + 0.99978154E+00 0.99983893E+00 0.99988114E+00 0.99991264E+00 0.99993639E+00 + 0.99995435E+00 0.99996784E+00 0.99997784E+00 0.99998511E+00 0.99999026E+00 + 0.99999380E+00 0.99999617E+00 0.99999770E+00 0.99999866E+00 0.99999924E+00 + 0.99999959E+00 0.99999978E+00 0.99999989E+00 0.99999994E+00 0.99999997E+00 + 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10006134E-02 0.30018403E-02 0.60036807E-02 0.10006134E-01 + 0.15009202E-01 0.21012882E-01 0.28017176E-01 0.36022084E-01 0.45027604E-01 + 0.55033736E-01 0.66040480E-01 0.78047836E-01 0.91055798E-01 0.10506434E+00 + 0.12007335E+00 0.13608263E+00 0.15309184E+00 0.17110053E+00 0.19010801E+00 + 0.21011309E+00 0.23111355E+00 0.25310545E+00 0.27608172E+00 0.30002999E+00 + 0.32493018E+00 0.35075225E+00 0.37745483E+00 0.40498412E+00 0.43327255E+00 + 0.46223632E+00 0.49177296E+00 0.52176035E+00 0.55205737E+00 0.58250472E+00 + 0.61292491E+00 0.64312282E+00 0.67288845E+00 0.70200254E+00 0.73024497E+00 + 0.75740458E+00 0.78328980E+00 0.80773810E+00 0.83062253E+00 0.85185374E+00 + 0.87137853E+00 0.88917653E+00 0.90525648E+00 0.91965224E+00 0.93241876E+00 + 0.94362882E+00 0.95337077E+00 0.96174674E+00 0.96886988E+00 0.97486099E+00 + 0.97984515E+00 0.98394870E+00 0.98729584E+00 0.99000478E+00 0.99218386E+00 + 0.99392854E+00 0.99532001E+00 0.99642539E+00 0.99729909E+00 0.99798491E+00 + 0.99851817E+00 0.99892777E+00 0.99923772E+00 0.99946824E+00 0.99963640E+00 + 0.99975652E+00 0.99984044E+00 0.99989774E+00 0.99993593E+00 0.99996078E+00 + 0.99997655E+00 0.99998631E+00 0.99999220E+00 0.99999567E+00 0.99999765E+00 + 0.99999876E+00 0.99999936E+00 0.99999968E+00 0.99999984E+00 0.99999993E+00 + 0.99999997E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.96435443E-03 0.28930633E-02 0.57861266E-02 0.96435443E-02 + 0.14465317E-01 0.20251443E-01 0.27001924E-01 0.34716760E-01 0.43395949E-01 + 0.53039494E-01 0.63647391E-01 0.75219641E-01 0.87756237E-01 0.10125716E+00 + 0.11572233E+00 0.13115161E+00 0.14754479E+00 0.16490152E+00 0.18322131E+00 + 0.20250310E+00 0.22274479E+00 0.24394265E+00 0.26609055E+00 0.28917893E+00 + 0.31319323E+00 0.33811202E+00 0.36390509E+00 0.39053135E+00 0.41793676E+00 + 0.44605207E+00 0.47479127E+00 0.50405184E+00 0.53371698E+00 0.56365718E+00 + 0.59372885E+00 0.62377054E+00 0.65359933E+00 0.68301036E+00 0.71178093E+00 + 0.73967952E+00 0.76647960E+00 0.79197658E+00 0.81600308E+00 0.83843699E+00 + 0.85920005E+00 0.87824970E+00 0.89556995E+00 0.91116572E+00 0.92506238E+00 + 0.93730831E+00 0.94797654E+00 0.95716277E+00 0.96498080E+00 0.97155710E+00 + 0.97702601E+00 0.98152529E+00 0.98519153E+00 0.98815541E+00 0.99053739E+00 + 0.99244435E+00 0.99396767E+00 0.99518287E+00 0.99615068E+00 0.99691928E+00 + 0.99752704E+00 0.99800520E+00 0.99837971E+00 0.99867242E+00 0.99890153E+00 + 0.99908186E+00 0.99922510E+00 0.99934026E+00 0.99943410E+00 0.99951171E+00 + 0.99957694E+00 0.99963271E+00 0.99968129E+00 0.99972440E+00 0.99976329E+00 + 0.99979877E+00 0.99983130E+00 0.99986100E+00 0.99988779E+00 0.99991149E+00 + 0.99993192E+00 0.99994904E+00 0.99996291E+00 0.99997377E+00 0.99998199E+00 + 0.99998800E+00 0.99999223E+00 0.99999512E+00 0.99999703E+00 0.99999824E+00 + 0.99999899E+00 0.99999944E+00 0.99999969E+00 0.99999984E+00 0.99999992E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.95473386E-03 0.28642016E-02 0.57284031E-02 0.95473386E-02 + 0.14321008E-01 0.20049411E-01 0.26732548E-01 0.34370419E-01 0.42963024E-01 + 0.52510362E-01 0.63012434E-01 0.74469239E-01 0.86880775E-01 0.10024704E+00 + 0.11456802E+00 0.12984371E+00 0.14607408E+00 0.16325905E+00 0.18139833E+00 + 0.20049098E+00 0.22053470E+00 0.24152492E+00 0.26345413E+00 0.28631109E+00 + 0.31007988E+00 0.33473888E+00 0.36025970E+00 0.38660555E+00 0.41372868E+00 + 0.44156787E+00 0.47004669E+00 0.49907302E+00 0.52853888E+00 0.55831964E+00 + 0.58827292E+00 0.61823869E+00 0.64804143E+00 0.67749231E+00 0.70639013E+00 + 0.73452251E+00 0.76167021E+00 0.78761618E+00 0.81215839E+00 0.83512410E+00 + 0.85638266E+00 0.87585323E+00 0.89350552E+00 0.90935415E+00 0.92345034E+00 + 0.93587385E+00 0.94672574E+00 0.95612149E+00 0.96418453E+00 0.97104062E+00 + 0.97681415E+00 0.98162590E+00 0.98559183E+00 0.98882236E+00 0.99142189E+00 + 0.99348813E+00 0.99511104E+00 0.99637140E+00 0.99733963E+00 0.99807536E+00 + 0.99862789E+00 0.99903741E+00 0.99933639E+00 0.99955098E+00 0.99970212E+00 + 0.99980642E+00 0.99987685E+00 0.99992335E+00 0.99995335E+00 0.99997225E+00 + 0.99998387E+00 0.99999084E+00 0.99999492E+00 0.99999725E+00 0.99999855E+00 + 0.99999925E+00 0.99999963E+00 0.99999982E+00 0.99999991E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.93476720E-03 0.28043016E-02 0.56086032E-02 0.93476720E-02 + 0.14021508E-01 0.19630111E-01 0.26173482E-01 0.33651619E-01 0.42064524E-01 + 0.51412196E-01 0.61694634E-01 0.72911834E-01 0.85063780E-01 0.98150430E-01 + 0.11217167E+00 0.12712724E+00 0.14301668E+00 0.15983926E+00 0.17759413E+00 + 0.19628027E+00 0.21589641E+00 0.23644077E+00 0.25791058E+00 0.28030157E+00 + 0.30360680E+00 0.32781493E+00 0.35290775E+00 0.37885736E+00 0.40562306E+00 + 0.43314836E+00 0.46135874E+00 0.49016096E+00 0.51944422E+00 0.54908200E+00 + 0.57893237E+00 0.60883690E+00 0.63861965E+00 0.66808830E+00 0.69703767E+00 + 0.72525499E+00 0.75252727E+00 0.77865137E+00 0.80344553E+00 0.82675938E+00 + 0.84847933E+00 0.86852878E+00 0.88686469E+00 0.90347324E+00 0.91836642E+00 + 0.93157975E+00 0.94317069E+00 0.95321745E+00 0.96181838E+00 0.96909078E+00 + 0.97516734E+00 0.98018969E+00 0.98430019E+00 0.98763487E+00 0.99031885E+00 + 0.99246416E+00 0.99416888E+00 0.99551700E+00 0.99657883E+00 0.99741197E+00 + 0.99806275E+00 0.99856796E+00 0.99895681E+00 0.99925262E+00 0.99947433E+00 + 0.99963759E+00 0.99975537E+00 0.99983849E+00 0.99989577E+00 0.99993429E+00 + 0.99995954E+00 0.99997568E+00 0.99998573E+00 0.99999183E+00 0.99999544E+00 + 0.99999752E+00 0.99999868E+00 0.99999932E+00 0.99999966E+00 0.99999983E+00 + 0.99999992E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.92348139E-03 0.27704442E-02 0.55408884E-02 0.92348139E-02 + 0.13852221E-01 0.19393109E-01 0.25857479E-01 0.33245330E-01 0.41556663E-01 + 0.50791476E-01 0.60949771E-01 0.72031547E-01 0.84036804E-01 0.96965537E-01 + 0.11081773E+00 0.12559333E+00 0.14129219E+00 0.15791396E+00 0.17545780E+00 + 0.19392215E+00 0.21330461E+00 0.23360206E+00 0.25481043E+00 0.27692417E+00 + 0.29993528E+00 0.32383210E+00 0.34859785E+00 0.37420824E+00 0.40062813E+00 + 0.42780764E+00 0.45567847E+00 0.48415187E+00 0.51311925E+00 0.54245441E+00 + 0.57201547E+00 0.60164528E+00 0.63117111E+00 0.66040498E+00 0.68914592E+00 + 0.71718517E+00 0.74431389E+00 0.77033298E+00 0.79506393E+00 0.81835863E+00 + 0.84010511E+00 0.86022828E+00 0.87868741E+00 0.89547240E+00 0.91059987E+00 + 0.92410945E+00 0.93606098E+00 0.94653282E+00 0.95562029E+00 0.96343255E+00 + 0.97008773E+00 0.97570744E+00 0.98041207E+00 0.98431748E+00 0.98753259E+00 + 0.99015781E+00 0.99228401E+00 0.99399229E+00 0.99535412E+00 0.99643190E+00 + 0.99727933E+00 0.99794198E+00 0.99845760E+00 0.99885683E+00 0.99916397E+00 + 0.99939810E+00 0.99957434E+00 0.99970485E+00 0.99979961E+00 0.99986693E+00 + 0.99991362E+00 0.99994521E+00 0.99996606E+00 0.99997946E+00 0.99998787E+00 + 0.99999300E+00 0.99999606E+00 0.99999784E+00 0.99999884E+00 0.99999939E+00 + 0.99999969E+00 0.99999985E+00 0.99999993E+00 0.99999997E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.90508937E-03 0.27152681E-02 0.54305362E-02 0.90508937E-02 + 0.13576340E-01 0.19006877E-01 0.25342502E-01 0.32583217E-01 0.40729021E-01 + 0.49779915E-01 0.59735898E-01 0.70596969E-01 0.82363129E-01 0.95034376E-01 + 0.10861071E+00 0.12309210E+00 0.13847846E+00 0.15476957E+00 0.17196488E+00 + 0.19006337E+00 0.20906330E+00 0.22896199E+00 0.24975568E+00 0.27143933E+00 + 0.29400611E+00 0.31744597E+00 0.34174334E+00 0.36687445E+00 0.39280519E+00 + 0.41948951E+00 0.44686796E+00 0.47486581E+00 0.50339102E+00 0.53233280E+00 + 0.56156177E+00 0.59093160E+00 0.62028090E+00 0.64943350E+00 0.67819858E+00 + 0.70637351E+00 0.73375164E+00 0.76013365E+00 0.78533864E+00 0.80921110E+00 + 0.83162285E+00 0.85247229E+00 0.87168489E+00 0.88921696E+00 0.90506063E+00 + 0.91924530E+00 0.93183233E+00 0.94290510E+00 0.95255967E+00 0.96090003E+00 + 0.96803680E+00 0.97408634E+00 0.97916775E+00 0.98339824E+00 0.98688856E+00 + 0.98974051E+00 0.99204663E+00 0.99389108E+00 0.99535032E+00 0.99649302E+00 + 0.99737949E+00 0.99806129E+00 0.99858127E+00 0.99897433E+00 0.99926850E+00 + 0.99948608E+00 0.99964484E+00 0.99975887E+00 0.99983935E+00 0.99989507E+00 + 0.99993286E+00 0.99995794E+00 0.99997422E+00 0.99998455E+00 0.99999094E+00 + 0.99999481E+00 0.99999710E+00 0.99999841E+00 0.99999915E+00 0.99999956E+00 + 0.99999978E+00 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.89447612E-03 0.26834284E-02 0.53668567E-02 0.89447611E-02 + 0.13417142E-01 0.18783998E-01 0.25045331E-01 0.32201140E-01 0.40251425E-01 + 0.49196186E-01 0.59035423E-01 0.69769135E-01 0.81397314E-01 0.93919935E-01 + 0.10733692E+00 0.12164811E+00 0.13685328E+00 0.15295216E+00 0.16994439E+00 + 0.18782946E+00 0.20660642E+00 0.22627366E+00 0.24682854E+00 0.26826725E+00 + 0.29058438E+00 0.31377202E+00 0.33781770E+00 0.36270159E+00 0.38839353E+00 + 0.41485062E+00 0.44201632E+00 0.46982114E+00 0.49818335E+00 0.52700773E+00 + 0.55618084E+00 0.58556517E+00 0.61499676E+00 0.64428845E+00 0.67323741E+00 + 0.70163382E+00 0.72926930E+00 0.75594437E+00 0.78147488E+00 0.80569705E+00 + 0.82847137E+00 0.84968608E+00 0.86926023E+00 0.88714643E+00 0.90333208E+00 + 0.91783784E+00 0.93071307E+00 0.94203030E+00 0.95188034E+00 0.96036843E+00 + 0.96761075E+00 0.97373121E+00 0.97885768E+00 0.98311731E+00 0.98663151E+00 + 0.98951158E+00 0.99185623E+00 0.99375087E+00 0.99526838E+00 0.99647069E+00 + 0.99741068E+00 0.99813406E+00 0.99868073E+00 0.99908565E+00 0.99937919E+00 + 0.99958725E+00 0.99973136E+00 0.99982887E+00 0.99989331E+00 0.99993492E+00 + 0.99996116E+00 0.99997732E+00 0.99998705E+00 0.99999277E+00 0.99999605E+00 + 0.99999790E+00 0.99999891E+00 0.99999944E+00 0.99999972E+00 0.99999987E+00 + 0.99999994E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.87478465E-03 0.26243540E-02 0.52487079E-02 0.87478465E-02 + 0.13121770E-01 0.18370478E-01 0.24493970E-01 0.31492248E-01 0.39365309E-01 + 0.48113156E-01 0.57735787E-01 0.68233203E-01 0.79605402E-01 0.91852381E-01 + 0.10497412E+00 0.11897057E+00 0.13384157E+00 0.14958683E+00 0.16620585E+00 + 0.18369795E+00 0.20206209E+00 0.22129671E+00 0.24139949E+00 0.26236716E+00 + 0.28419486E+00 0.30687484E+00 0.33039480E+00 0.35473618E+00 0.37987240E+00 + 0.40576739E+00 0.43237455E+00 0.45963506E+00 0.48747504E+00 0.51580303E+00 + 0.54450975E+00 0.57346946E+00 0.60254152E+00 0.63157141E+00 0.66039141E+00 + 0.68882126E+00 0.71666973E+00 0.74373892E+00 0.76983157E+00 0.79476040E+00 + 0.81835728E+00 0.84048040E+00 0.86101871E+00 0.87989437E+00 0.89706442E+00 + 0.91252130E+00 0.92629172E+00 0.93843339E+00 0.94902932E+00 0.95818090E+00 + 0.96600169E+00 0.97261307E+00 0.97814109E+00 0.98271360E+00 0.98645684E+00 + 0.98949152E+00 0.99192917E+00 0.99386956E+00 0.99539957E+00 0.99659347E+00 + 0.99751404E+00 0.99821417E+00 0.99873841E+00 0.99912424E+00 0.99940299E+00 + 0.99960051E+00 0.99973768E+00 0.99983101E+00 0.99989323E+00 0.99993384E+00 + 0.99995981E+00 0.99997606E+00 0.99998603E+00 0.99999201E+00 0.99999552E+00 + 0.99999754E+00 0.99999868E+00 0.99999931E+00 0.99999964E+00 0.99999982E+00 + 0.99999991E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.86814452E-03 0.26044336E-02 0.52088671E-02 0.86814452E-02 + 0.13022168E-01 0.18231035E-01 0.24308047E-01 0.31253203E-01 0.39066503E-01 + 0.47747949E-01 0.57297538E-01 0.67715272E-01 0.79001151E-01 0.91155169E-01 + 0.10417730E+00 0.11806743E+00 0.13282534E+00 0.14845068E+00 0.16494307E+00 + 0.18230213E+00 0.20052733E+00 0.21961752E+00 0.23957011E+00 0.26038024E+00 + 0.28204033E+00 0.30454001E+00 0.32786611E+00 0.35200203E+00 0.37692621E+00 + 0.40260974E+00 0.42901373E+00 0.45608734E+00 0.48376662E+00 0.51197322E+00 + 0.54061269E+00 0.56957172E+00 0.59871431E+00 0.62787842E+00 0.65687631E+00 + 0.68549955E+00 0.71352738E+00 0.74073703E+00 0.76691616E+00 0.79187444E+00 + 0.81545084E+00 0.83751645E+00 0.85797562E+00 0.87676724E+00 0.89386527E+00 + 0.90927784E+00 0.92304502E+00 0.93523512E+00 0.94593862E+00 0.95526018E+00 + 0.96331050E+00 0.97020076E+00 0.97604018E+00 0.98093583E+00 0.98499298E+00 + 0.98831483E+00 0.99100112E+00 0.99314625E+00 0.99483743E+00 0.99615348E+00 + 0.99716428E+00 0.99793068E+00 0.99850467E+00 0.99892965E+00 0.99924103E+00 + 0.99946697E+00 0.99962943E+00 0.99974517E+00 0.99982683E+00 0.99988383E+00 + 0.99992315E+00 0.99994992E+00 0.99996788E+00 0.99997974E+00 0.99998745E+00 + 0.99999236E+00 0.99999544E+00 0.99999733E+00 0.99999847E+00 0.99999914E+00 + 0.99999953E+00 0.99999974E+00 0.99999987E+00 0.99999993E+00 0.99999997E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.86015469E-03 0.25804641E-02 0.51609281E-02 0.86015469E-02 + 0.12902320E-01 0.18063248E-01 0.24084331E-01 0.30965569E-01 0.38706961E-01 + 0.47308508E-01 0.56770209E-01 0.67092065E-01 0.78274074E-01 0.90316230E-01 + 0.10321851E+00 0.11698085E+00 0.13160313E+00 0.14708515E+00 0.16342665E+00 + 0.18062729E+00 0.19868656E+00 0.21760366E+00 0.23737721E+00 0.25800508E+00 + 0.27948396E+00 0.30180894E+00 0.32497248E+00 0.34896284E+00 0.37376176E+00 + 0.39934207E+00 0.42566540E+00 0.45267936E+00 0.48031433E+00 0.50848073E+00 + 0.53706889E+00 0.56595133E+00 0.59498540E+00 0.62401432E+00 0.65286652E+00 + 0.68135592E+00 0.70928552E+00 0.73645411E+00 0.76266354E+00 0.78772530E+00 + 0.81146774E+00 0.83374483E+00 0.85444470E+00 0.87349528E+00 0.89086543E+00 + 0.90656169E+00 0.92062169E+00 0.93310668E+00 0.94409509E+00 0.95367764E+00 + 0.96195326E+00 0.96902602E+00 0.97500339E+00 0.97999563E+00 0.98411511E+00 + 0.98747440E+00 0.99018326E+00 0.99234510E+00 0.99405414E+00 0.99539371E+00 + 0.99643579E+00 0.99724145E+00 0.99786169E+00 0.99833847E+00 0.99870567E+00 + 0.99898999E+00 0.99921193E+00 0.99938674E+00 0.99952550E+00 0.99963612E+00 + 0.99972426E+00 0.99979406E+00 0.99984874E+00 0.99989092E+00 0.99992286E+00 + 0.99994655E+00 0.99996374E+00 0.99997592E+00 0.99998435E+00 0.99999005E+00 + 0.99999381E+00 0.99999623E+00 0.99999776E+00 0.99999870E+00 0.99999926E+00 + 0.99999959E+00 0.99999978E+00 0.99999988E+00 0.99999994E+00 0.99999997E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.86002999E-03 0.25800900E-02 0.51601799E-02 0.86002999E-02 + 0.12900450E-01 0.18060630E-01 0.24080840E-01 0.30961079E-01 0.38701349E-01 + 0.47301648E-01 0.56761968E-01 0.67082274E-01 0.78262479E-01 0.90302452E-01 + 0.10320206E+00 0.11696124E+00 0.13157995E+00 0.14705822E+00 0.16339603E+00 + 0.18059334E+00 0.19865005E+00 0.21756582E+00 0.23733995E+00 0.25797082E+00 + 0.27945538E+00 0.30178830E+00 0.32496082E+00 0.34895884E+00 0.37376013E+00 + 0.39933164E+00 0.42562727E+00 0.45258678E+00 0.48013540E+00 0.50818318E+00 + 0.53662333E+00 0.56532999E+00 0.59415752E+00 0.62294340E+00 0.65151455E+00 + 0.67969360E+00 0.70730249E+00 0.73416446E+00 0.76010691E+00 0.78496535E+00 + 0.80858752E+00 0.83083798E+00 0.85160363E+00 0.87079938E+00 0.88837261E+00 + 0.90430528E+00 0.91861288E+00 0.93134032E+00 0.94255610E+00 0.95234655E+00 + 0.96081086E+00 0.96805695E+00 0.97419779E+00 0.97934794E+00 0.98362085E+00 + 0.98712696E+00 0.98997233E+00 0.99225717E+00 0.99407407E+00 0.99550629E+00 + 0.99662629E+00 0.99749523E+00 0.99816348E+00 0.99867200E+00 0.99905410E+00 + 0.99933702E+00 0.99954307E+00 0.99969050E+00 0.99979404E+00 0.99986538E+00 + 0.99991359E+00 0.99994554E+00 0.99996630E+00 0.99997954E+00 0.99998780E+00 + 0.99999287E+00 0.99999591E+00 0.99999770E+00 0.99999873E+00 0.99999932E+00 + 0.99999964E+00 0.99999981E+00 0.99999991E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.83486971E-03 0.25046091E-02 0.50092183E-02 0.83486971E-02 + 0.12523046E-01 0.17532264E-01 0.23376352E-01 0.30055310E-01 0.37569137E-01 + 0.45917834E-01 0.55101401E-01 0.65119836E-01 0.75973140E-01 0.87661314E-01 + 0.10018436E+00 0.11354227E+00 0.12773505E+00 0.14276268E+00 0.15862513E+00 + 0.17532236E+00 0.19285432E+00 0.21122095E+00 0.23042214E+00 0.25045760E+00 + 0.27132638E+00 0.29302583E+00 0.31555019E+00 0.33888947E+00 0.36302897E+00 + 0.38794890E+00 0.41362286E+00 0.44001451E+00 0.46707296E+00 0.49472828E+00 + 0.52288890E+00 0.55144153E+00 0.58025279E+00 0.60917198E+00 0.63803479E+00 + 0.66666696E+00 0.69488733E+00 0.72251009E+00 0.74934725E+00 0.77521242E+00 + 0.79992590E+00 0.82332085E+00 0.84524986E+00 0.86559173E+00 0.88425724E+00 + 0.90119288E+00 0.91638256E+00 0.92984791E+00 0.94164667E+00 0.95186856E+00 + 0.96062829E+00 0.96805710E+00 0.97429459E+00 0.97948185E+00 0.98375643E+00 + 0.98724853E+00 0.99007780E+00 0.99235121E+00 0.99416221E+00 0.99559134E+00 + 0.99670757E+00 0.99756983E+00 0.99822823E+00 0.99872500E+00 0.99909520E+00 + 0.99936748E+00 0.99956488E+00 0.99970573E+00 0.99980449E+00 0.99987245E+00 + 0.99991832E+00 0.99994865E+00 0.99996832E+00 0.99998081E+00 0.99998859E+00 + 0.99999334E+00 0.99999619E+00 0.99999786E+00 0.99999882E+00 0.99999936E+00 + 0.99999966E+00 0.99999983E+00 0.99999991E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14349039E-02 0.43048844E-02 0.86103460E-02 0.14351654E-01 + 0.21528619E-01 0.30140193E-01 0.40184479E-01 0.51658552E-01 0.64558289E-01 + 0.78878885E-01 0.94615362E-01 0.11176198E+00 0.13031086E+00 0.15025057E+00 + 0.17156514E+00 0.19423294E+00 0.21822633E+00 0.24351187E+00 0.27004742E+00 + 0.29777590E+00 0.32662318E+00 0.35650112E+00 0.38730619E+00 0.41890850E+00 + 0.45114427E+00 0.48382375E+00 0.51674719E+00 0.54971390E+00 0.58252145E+00 + 0.61496414E+00 0.64683819E+00 0.67795209E+00 0.70812925E+00 0.73719870E+00 + 0.76499064E+00 0.79134901E+00 0.81614605E+00 0.83928048E+00 0.86066628E+00 + 0.88023098E+00 0.89792574E+00 0.91373688E+00 0.92769246E+00 0.93986481E+00 + 0.95036733E+00 0.95934213E+00 0.96694267E+00 0.97332116E+00 0.97862550E+00 + 0.98300055E+00 0.98658586E+00 0.98950906E+00 0.99188068E+00 0.99379357E+00 + 0.99532516E+00 0.99654010E+00 0.99749241E+00 0.99822731E+00 0.99878297E+00 + 0.99919239E+00 0.99948466E+00 0.99968554E+00 0.99981753E+00 0.99989982E+00 + 0.99994817E+00 0.99997481E+00 0.99998852E+00 0.99999511E+00 0.99999805E+00 + 0.99999927E+00 0.99999975E+00 0.99999992E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14620305E-02 0.43858664E-02 0.87711411E-02 0.14617396E-01 + 0.21923993E-01 0.30690080E-01 0.40914696E-01 0.52596543E-01 0.65733224E-01 + 0.80320457E-01 0.96351692E-01 0.11381825E+00 0.13270947E+00 0.15301176E+00 + 0.17470710E+00 0.19777125E+00 0.22217085E+00 0.24786032E+00 0.27478096E+00 + 0.30286413E+00 0.33203601E+00 0.36221790E+00 0.39331890E+00 0.42522455E+00 + 0.45778759E+00 0.49082649E+00 0.52413327E+00 0.55748636E+00 0.59066099E+00 + 0.62343396E+00 0.65558444E+00 0.68689163E+00 0.71713144E+00 0.74607653E+00 + 0.77350480E+00 0.79922127E+00 0.82308465E+00 0.84502148E+00 0.86502054E+00 + 0.88311460E+00 0.89936421E+00 0.91385193E+00 0.92668232E+00 0.93797837E+00 + 0.94787206E+00 0.95649407E+00 0.96396765E+00 0.97040729E+00 0.97591971E+00 + 0.98060332E+00 0.98454598E+00 0.98782526E+00 0.99051323E+00 0.99268266E+00 + 0.99440858E+00 0.99576429E+00 0.99681628E+00 0.99762244E+00 0.99823310E+00 + 0.99869214E+00 0.99903674E+00 0.99929633E+00 0.99949254E+00 0.99964064E+00 + 0.99975154E+00 0.99983336E+00 0.99989238E+00 0.99993358E+00 0.99996110E+00 + 0.99997850E+00 0.99998883E+00 0.99999456E+00 0.99999752E+00 0.99999894E+00 + 0.99999958E+00 0.99999984E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14410814E-02 0.43230731E-02 0.86453733E-02 0.14407121E-01 + 0.21607431E-01 0.30245555E-01 0.40320766E-01 0.51831906E-01 0.64776932E-01 + 0.79152795E-01 0.94955272E-01 0.11217814E+00 0.13081183E+00 0.15084270E+00 + 0.17225298E+00 0.19502045E+00 0.21911789E+00 0.24451209E+00 0.27116105E+00 + 0.29900845E+00 0.32797868E+00 0.35797572E+00 0.38888486E+00 0.42057435E+00 + 0.45289680E+00 0.48569075E+00 0.51877986E+00 0.55196975E+00 0.58504639E+00 + 0.61777810E+00 0.64992128E+00 0.68123256E+00 0.71148420E+00 0.74047459E+00 + 0.76803233E+00 0.79401856E+00 0.81832824E+00 0.84089006E+00 0.86166527E+00 + 0.88064394E+00 0.89783787E+00 0.91327460E+00 0.92699616E+00 0.93906136E+00 + 0.94954886E+00 0.95855832E+00 0.96620821E+00 0.97263113E+00 0.97796827E+00 + 0.98236342E+00 0.98595600E+00 0.98887461E+00 0.99123304E+00 0.99312916E+00 + 0.99464594E+00 0.99585291E+00 0.99680760E+00 0.99755733E+00 0.99814140E+00 + 0.99859300E+00 0.99894036E+00 0.99920708E+00 0.99941206E+00 0.99956976E+00 + 0.99969082E+00 0.99978309E+00 0.99985243E+00 0.99990337E+00 0.99993955E+00 + 0.99996410E+00 0.99997986E+00 0.99998936E+00 0.99999472E+00 0.99999754E+00 + 0.99999893E+00 0.99999956E+00 0.99999983E+00 0.99999994E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14099452E-02 0.42296251E-02 0.84587081E-02 0.14096667E-01 + 0.21142699E-01 0.29595777E-01 0.39454581E-01 0.50717189E-01 0.63380962E-01 + 0.77442670E-01 0.92898269E-01 0.10974203E+00 0.12796529E+00 0.14755544E+00 + 0.16849543E+00 0.19076379E+00 0.21433417E+00 0.23917395E+00 0.26524226E+00 + 0.29248823E+00 0.32084996E+00 0.35025203E+00 0.38060043E+00 0.41177675E+00 + 0.44363452E+00 0.47600051E+00 0.50868118E+00 0.54147165E+00 0.57416339E+00 + 0.60654906E+00 0.63842384E+00 0.66958509E+00 0.69983266E+00 0.72897165E+00 + 0.75681885E+00 0.78321276E+00 0.80802434E+00 0.83116226E+00 0.85256945E+00 + 0.87221520E+00 0.89008983E+00 0.90620435E+00 0.92059293E+00 0.93331512E+00 + 0.94445486E+00 0.95411623E+00 0.96241775E+00 0.96948666E+00 0.97545334E+00 + 0.98044583E+00 0.98458490E+00 0.98798107E+00 0.99073443E+00 0.99293690E+00 + 0.99467459E+00 0.99602814E+00 0.99707067E+00 0.99786536E+00 0.99846449E+00 + 0.99891043E+00 0.99923751E+00 0.99947390E+00 0.99964257E+00 0.99976165E+00 + 0.99984484E+00 0.99990206E+00 0.99994047E+00 0.99996536E+00 0.99998080E+00 + 0.99998990E+00 0.99999497E+00 0.99999763E+00 0.99999894E+00 0.99999956E+00 + 0.99999982E+00 0.99999993E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13832802E-02 0.41501000E-02 0.83005763E-02 0.13834555E-01 + 0.20751537E-01 0.29050766E-01 0.38731302E-01 0.49791898E-01 0.62230633E-01 + 0.76044619E-01 0.91230103E-01 0.10778263E+00 0.12569652E+00 0.14496364E+00 + 0.16557179E+00 0.18750355E+00 0.21073555E+00 0.23523794E+00 0.26097335E+00 + 0.28789492E+00 0.31594350E+00 0.34504487E+00 0.37510800E+00 0.40602442E+00 + 0.43766787E+00 0.46989441E+00 0.50254218E+00 0.53542957E+00 0.56835346E+00 + 0.60109332E+00 0.63342171E+00 0.66511450E+00 0.69595389E+00 0.72572541E+00 + 0.75421866E+00 0.78123837E+00 0.80662092E+00 0.83024628E+00 0.85204027E+00 + 0.87197027E+00 0.89003990E+00 0.90628469E+00 0.92076726E+00 0.93357078E+00 + 0.94479172E+00 0.95453390E+00 0.96290540E+00 0.97001804E+00 0.97598736E+00 + 0.98093192E+00 0.98497181E+00 0.98822721E+00 0.99081658E+00 0.99285403E+00 + 0.99444567E+00 0.99568549E+00 0.99665191E+00 0.99740657E+00 0.99799594E+00 + 0.99845507E+00 0.99881160E+00 0.99908830E+00 0.99930415E+00 0.99947436E+00 + 0.99961017E+00 0.99971900E+00 0.99980519E+00 0.99987131E+00 0.99991955E+00 + 0.99995260E+00 0.99997373E+00 0.99998630E+00 0.99999328E+00 0.99999690E+00 + 0.99999865E+00 0.99999945E+00 0.99999979E+00 0.99999992E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13261826E-02 0.39784034E-02 0.79566352E-02 0.13260969E-01 + 0.19891478E-01 0.27848030E-01 0.37130095E-01 0.47736593E-01 0.59665915E-01 + 0.72916166E-01 0.87485346E-01 0.10337097E+00 0.12056914E+00 0.13907387E+00 + 0.15887693E+00 0.17996771E+00 0.20233267E+00 0.22595357E+00 0.25080410E+00 + 0.27684618E+00 0.30402854E+00 0.33228759E+00 0.36154749E+00 0.39171843E+00 + 0.42269415E+00 0.45434957E+00 0.48653753E+00 0.51908523E+00 0.55179368E+00 + 0.58444295E+00 0.61680002E+00 0.64862511E+00 0.67967919E+00 0.70973721E+00 + 0.73860219E+00 0.76611105E+00 0.79213060E+00 0.81654944E+00 0.83927221E+00 + 0.86021970E+00 0.87933486E+00 0.89659246E+00 0.91200770E+00 0.92563812E+00 + 0.93757798E+00 0.94794902E+00 0.95689096E+00 0.96455112E+00 0.97107396E+00 + 0.97659295E+00 0.98122725E+00 0.98508298E+00 0.98825728E+00 0.99084217E+00 + 0.99292581E+00 0.99459108E+00 0.99591276E+00 0.99695503E+00 0.99777054E+00 + 0.99840137E+00 0.99888131E+00 0.99923847E+00 0.99949719E+00 0.99967891E+00 + 0.99980222E+00 0.99988282E+00 0.99993337E+00 0.99996372E+00 0.99998112E+00 + 0.99999062E+00 0.99999556E+00 0.99999800E+00 0.99999914E+00 0.99999965E+00 + 0.99999987E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12861271E-02 0.38583288E-02 0.77164706E-02 0.12860342E-01 + 0.19289656E-01 0.27004070E-01 0.36003251E-01 0.46286841E-01 0.57854305E-01 + 0.70704773E-01 0.84836955E-01 0.10024903E+00 0.11693829E+00 0.13490028E+00 + 0.15412759E+00 0.17460920E+00 0.19633017E+00 0.21927056E+00 0.24340335E+00 + 0.26869279E+00 0.29509409E+00 0.32255331E+00 0.35100715E+00 0.38038269E+00 + 0.41059530E+00 0.44154305E+00 0.47309924E+00 0.50510734E+00 0.53738156E+00 + 0.56971479E+00 0.60189050E+00 0.63369195E+00 0.66490531E+00 0.69532007E+00 + 0.72473050E+00 0.75293936E+00 0.77976350E+00 0.80504220E+00 0.82864707E+00 + 0.85048949E+00 0.87052225E+00 0.88873547E+00 0.90514992E+00 0.91981126E+00 + 0.93278590E+00 0.94415712E+00 0.95402084E+00 0.96248314E+00 0.96966044E+00 + 0.97568014E+00 0.98067769E+00 0.98478918E+00 0.98814309E+00 0.99085499E+00 + 0.99302607E+00 0.99474420E+00 0.99608595E+00 0.99711878E+00 0.99790252E+00 + 0.99848962E+00 0.99892479E+00 0.99924462E+00 0.99947788E+00 0.99964648E+00 + 0.99976676E+00 0.99985087E+00 0.99990806E+00 0.99994556E+00 0.99996913E+00 + 0.99998326E+00 0.99999134E+00 0.99999573E+00 0.99999799E+00 0.99999910E+00 + 0.99999962E+00 0.99999985E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12983744E-02 0.38951279E-02 0.77902920E-02 0.12983857E-01 + 0.19475761E-01 0.27265892E-01 0.36354016E-01 0.46739716E-01 0.58422299E-01 + 0.71400557E-01 0.85672568E-01 0.10123574E+00 0.11808699E+00 0.13622279E+00 + 0.15563844E+00 0.17632666E+00 0.19827596E+00 0.22146975E+00 0.24588580E+00 + 0.27149512E+00 0.29825985E+00 0.32612973E+00 0.35503746E+00 0.38489535E+00 + 0.41559563E+00 0.44701253E+00 0.47900405E+00 0.51141379E+00 0.54407296E+00 + 0.57679987E+00 0.60939517E+00 0.64163649E+00 0.67327906E+00 0.70406525E+00 + 0.73373964E+00 0.76206505E+00 0.78883683E+00 0.81389357E+00 0.83712319E+00 + 0.85846397E+00 0.87790028E+00 0.89545410E+00 0.91117550E+00 0.92513477E+00 + 0.93741822E+00 0.94812725E+00 0.95737809E+00 0.96529892E+00 0.97202347E+00 + 0.97768328E+00 0.98240201E+00 0.98629336E+00 0.98946211E+00 0.99200605E+00 + 0.99401702E+00 0.99558082E+00 0.99677623E+00 0.99767408E+00 0.99833686E+00 + 0.99881855E+00 0.99916447E+00 0.99941129E+00 0.99958725E+00 0.99971310E+00 + 0.99980335E+00 0.99986795E+00 0.99991369E+00 0.99994540E+00 0.99996672E+00 + 0.99998052E+00 0.99998908E+00 0.99999414E+00 0.99999700E+00 0.99999853E+00 + 0.99999932E+00 0.99999970E+00 0.99999987E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12538332E-02 0.37614937E-02 0.75229925E-02 0.12538279E-01 + 0.18807191E-01 0.26329492E-01 0.35104949E-01 0.45133329E-01 0.56414293E-01 + 0.68947303E-01 0.82731585E-01 0.97765930E-01 0.11404815E+00 0.13157462E+00 + 0.15034021E+00 0.17033855E+00 0.19156196E+00 0.21400043E+00 0.23763944E+00 + 0.26245675E+00 0.28841887E+00 0.31547966E+00 0.34358158E+00 0.37265620E+00 + 0.40262076E+00 0.43337197E+00 0.46478119E+00 0.49669401E+00 0.52893353E+00 + 0.56130562E+00 0.59360451E+00 0.62561704E+00 0.65712414E+00 0.68789971E+00 + 0.71771182E+00 0.74633179E+00 0.77355057E+00 0.79919443E+00 0.82313295E+00 + 0.84527995E+00 0.86559131E+00 0.88406164E+00 0.90071830E+00 0.91561231E+00 + 0.92881010E+00 0.94039071E+00 0.95044744E+00 0.95908971E+00 0.96644229E+00 + 0.97264163E+00 0.97783031E+00 0.98215005E+00 0.98573412E+00 0.98870096E+00 + 0.99115053E+00 0.99316409E+00 0.99480672E+00 0.99613124E+00 0.99718216E+00 + 0.99799877E+00 0.99861721E+00 0.99907167E+00 0.99939469E+00 0.99961639E+00 + 0.99976334E+00 0.99985758E+00 0.99991619E+00 0.99995168E+00 0.99997267E+00 + 0.99998484E+00 0.99999175E+00 0.99999561E+00 0.99999772E+00 0.99999885E+00 + 0.99999944E+00 0.99999973E+00 0.99999988E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12319036E-02 0.36956918E-02 0.73913167E-02 0.12318697E-01 + 0.18477717E-01 0.25868219E-01 0.34489976E-01 0.44342674E-01 0.55425981E-01 + 0.67739617E-01 0.81283302E-01 0.96056558E-01 0.11205856E+00 0.12928810E+00 + 0.14774341E+00 0.16742125E+00 0.18831562E+00 0.21041602E+00 0.23370601E+00 + 0.25816290E+00 0.28375775E+00 0.31045345E+00 0.33820093E+00 0.36693579E+00 + 0.39657622E+00 0.42702140E+00 0.45815039E+00 0.48982086E+00 0.52186650E+00 + 0.55409423E+00 0.58628512E+00 0.61820227E+00 0.64960406E+00 0.68025874E+00 + 0.70995629E+00 0.73851556E+00 0.76578500E+00 0.79163787E+00 0.81596482E+00 + 0.83866938E+00 0.85967068E+00 0.87891312E+00 0.89637686E+00 0.91208143E+00 + 0.92607944E+00 0.93844336E+00 0.94925319E+00 0.95859224E+00 0.96655143E+00 + 0.97323603E+00 0.97876808E+00 0.98328252E+00 0.98691966E+00 0.98981694E+00 + 0.99210224E+00 0.99388958E+00 0.99527715E+00 0.99634718E+00 0.99716704E+00 + 0.99779107E+00 0.99826290E+00 0.99861762E+00 0.99888379E+00 0.99908464E+00 + 0.99923883E+00 0.99936072E+00 0.99946059E+00 0.99954518E+00 0.99961844E+00 + 0.99968263E+00 0.99973913E+00 0.99978888E+00 0.99983259E+00 0.99987063E+00 + 0.99990313E+00 0.99993009E+00 0.99995158E+00 0.99996791E+00 0.99997969E+00 + 0.99998774E+00 0.99999294E+00 0.99999613E+00 0.99999798E+00 0.99999899E+00 + 0.99999952E+00 0.99999978E+00 0.99999991E+00 0.99999996E+00 0.99999999E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11712800E-02 0.35138401E-02 0.70276827E-02 0.11712807E-01 + 0.17569206E-01 0.24596857E-01 0.32795716E-01 0.42165706E-01 0.52706724E-01 + 0.64418647E-01 0.77301322E-01 0.91354473E-01 0.10657748E+00 0.12296904E+00 + 0.14052702E+00 0.15924852E+00 0.17912995E+00 0.20016650E+00 0.22235085E+00 + 0.24567151E+00 0.27011079E+00 0.29564252E+00 0.32222930E+00 0.34981970E+00 + 0.37834680E+00 0.40772915E+00 0.43787310E+00 0.46867251E+00 0.50000364E+00 + 0.53171801E+00 0.56363796E+00 0.59555795E+00 0.62725115E+00 0.65847876E+00 + 0.68899991E+00 0.71858145E+00 0.74700665E+00 0.77408134E+00 0.79963771E+00 + 0.82353831E+00 0.84568116E+00 0.86600413E+00 0.88448578E+00 0.90114205E+00 + 0.91602009E+00 0.92919207E+00 0.94075079E+00 0.95080652E+00 0.95948340E+00 + 0.96691418E+00 0.97323336E+00 0.97856984E+00 0.98304143E+00 0.98675295E+00 + 0.98979780E+00 0.99226126E+00 0.99422342E+00 0.99576030E+00 0.99694315E+00 + 0.99783713E+00 0.99849993E+00 0.99898131E+00 0.99932320E+00 0.99956025E+00 + 0.99972051E+00 0.99982614E+00 0.99989407E+00 0.99993675E+00 0.99996300E+00 + 0.99997881E+00 0.99998813E+00 0.99999352E+00 0.99999656E+00 0.99999823E+00 + 0.99999912E+00 0.99999958E+00 0.99999980E+00 0.99999991E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11430691E-02 0.34292067E-02 0.68584091E-02 0.11430674E-01 + 0.17146003E-01 0.24004395E-01 0.32005835E-01 0.41150292E-01 0.51437752E-01 + 0.62868214E-01 0.75441636E-01 0.89157855E-01 0.10401646E+00 0.12001656E+00 + 0.13715650E+00 0.15543359E+00 0.17484373E+00 0.19538103E+00 0.21703707E+00 + 0.23980000E+00 0.26365344E+00 0.28857500E+00 0.31453456E+00 0.34149194E+00 + 0.36939430E+00 0.39817348E+00 0.42774326E+00 0.45799658E+00 0.48880401E+00 + 0.52001463E+00 0.55145846E+00 0.58294814E+00 0.61428014E+00 0.64523811E+00 + 0.67560055E+00 0.70515013E+00 0.73368015E+00 0.76099804E+00 0.78693016E+00 + 0.81133026E+00 0.83408841E+00 0.85513410E+00 0.87443169E+00 0.89197245E+00 + 0.90776980E+00 0.92186033E+00 0.93430747E+00 0.94520120E+00 0.95465123E+00 + 0.96277707E+00 0.96969975E+00 0.97553822E+00 0.98040934E+00 0.98442860E+00 + 0.98770962E+00 0.99036239E+00 0.99249076E+00 0.99418914E+00 0.99553919E+00 + 0.99660795E+00 0.99744853E+00 0.99810301E+00 0.99860595E+00 0.99898692E+00 + 0.99927154E+00 0.99948168E+00 0.99963522E+00 0.99974630E+00 0.99982582E+00 + 0.99988204E+00 0.99992124E+00 0.99994820E+00 0.99996647E+00 0.99997868E+00 + 0.99998670E+00 0.99999189E+00 0.99999518E+00 0.99999722E+00 0.99999845E+00 + 0.99999916E+00 0.99999956E+00 0.99999978E+00 0.99999989E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11160811E-02 0.33482425E-02 0.66964837E-02 0.11160803E-01 + 0.16741196E-01 0.23437654E-01 0.31250169E-01 0.40178722E-01 0.50223282E-01 + 0.61383785E-01 0.73660082E-01 0.87051891E-01 0.10155874E+00 0.11717980E+00 + 0.13391368E+00 0.15175817E+00 0.17071021E+00 0.19076596E+00 0.21192114E+00 + 0.23417064E+00 0.25750703E+00 0.28191774E+00 0.30738139E+00 0.33386431E+00 + 0.36131849E+00 0.38968077E+00 0.41887128E+00 0.44879089E+00 0.47931937E+00 + 0.51031689E+00 0.54162801E+00 0.57308450E+00 0.60450335E+00 0.63568229E+00 + 0.66639841E+00 0.69641402E+00 0.72549030E+00 0.75340376E+00 0.77995900E+00 + 0.80499507E+00 0.82838688E+00 0.85004445E+00 0.86991199E+00 0.88796700E+00 + 0.90421921E+00 0.91870889E+00 0.93150352E+00 0.94269255E+00 0.95238229E+00 + 0.96069261E+00 0.96775465E+00 0.97370719E+00 0.97868987E+00 0.98283528E+00 + 0.98626321E+00 0.98907934E+00 0.99137659E+00 0.99323668E+00 0.99473062E+00 + 0.99591934E+00 0.99685542E+00 0.99758538E+00 0.99815090E+00 0.99858850E+00 + 0.99892856E+00 0.99919465E+00 0.99940381E+00 0.99956786E+00 0.99969497E+00 + 0.99979129E+00 0.99986207E+00 0.99991217E+00 0.99994621E+00 0.99996834E+00 + 0.99998210E+00 0.99999028E+00 0.99999493E+00 0.99999747E+00 0.99999878E+00 + 0.99999944E+00 0.99999975E+00 0.99999990E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10846560E-02 0.32539681E-02 0.65079359E-02 0.10846559E-01 + 0.16269837E-01 0.22777772E-01 0.30370363E-01 0.39047607E-01 0.48809496E-01 + 0.59656001E-01 0.71587039E-01 0.84602444E-01 0.98701873E-01 0.11388469E+00 + 0.13014992E+00 0.14749619E+00 0.16592144E+00 0.18542246E+00 0.20599438E+00 + 0.22763036E+00 0.25032114E+00 0.27405373E+00 0.29880885E+00 0.32455794E+00 + 0.35126206E+00 0.37887182E+00 0.40732544E+00 0.43654450E+00 0.46642960E+00 + 0.49685836E+00 0.52768647E+00 0.55874996E+00 0.58986645E+00 0.62083738E+00 + 0.65145303E+00 0.68149796E+00 0.71075545E+00 0.73901249E+00 0.76606723E+00 + 0.79173917E+00 0.81587964E+00 0.83837729E+00 0.85915634E+00 0.87817357E+00 + 0.89541978E+00 0.91092252E+00 0.92474170E+00 0.93695815E+00 0.94766252E+00 + 0.95695026E+00 0.96492174E+00 0.97168417E+00 0.97735247E+00 0.98204817E+00 + 0.98589599E+00 0.98901837E+00 0.99152972E+00 0.99353230E+00 0.99511459E+00 + 0.99635178E+00 0.99730749E+00 0.99803569E+00 0.99858248E+00 0.99898714E+00 + 0.99928280E+00 0.99949666E+00 0.99965031E+00 0.99976016E+00 0.99983825E+00 + 0.99989323E+00 0.99993133E+00 0.99995713E+00 0.99997410E+00 0.99998489E+00 + 0.99999150E+00 0.99999540E+00 0.99999760E+00 0.99999880E+00 0.99999942E+00 + 0.99999973E+00 0.99999988E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10858147E-02 0.32574440E-02 0.65148879E-02 0.10858146E-01 + 0.16287219E-01 0.22802106E-01 0.30402805E-01 0.39089317E-01 0.48861644E-01 + 0.59719782E-01 0.71663730E-01 0.84693484E-01 0.98809036E-01 0.11401032E+00 + 0.13029707E+00 0.14766861E+00 0.16612373E+00 0.18566074E+00 0.20627688E+00 + 0.22796712E+00 0.25072294E+00 0.27453138E+00 0.29937381E+00 0.32522371E+00 + 0.35204357E+00 0.37978112E+00 0.40836653E+00 0.43771142E+00 0.46770779E+00 + 0.49822667E+00 0.52911862E+00 0.56021602E+00 0.59133466E+00 0.62227562E+00 + 0.65283145E+00 0.68279570E+00 0.71196990E+00 0.74016508E+00 0.76720171E+00 + 0.79291160E+00 0.81714211E+00 0.83976304E+00 0.86067550E+00 0.87981698E+00 + 0.89715921E+00 0.91270442E+00 0.92648492E+00 0.93856427E+00 0.94903604E+00 + 0.95801884E+00 0.96564827E+00 0.97206816E+00 0.97742325E+00 0.98185401E+00 + 0.98549334E+00 0.98846455E+00 0.99087981E+00 0.99283817E+00 0.99442388E+00 + 0.99570584E+00 0.99673877E+00 0.99756557E+00 0.99822017E+00 0.99873008E+00 + 0.99911859E+00 0.99940647E+00 0.99961296E+00 0.99975586E+00 0.99985113E+00 + 0.99991226E+00 0.99995002E+00 0.99997249E+00 0.99998536E+00 0.99999247E+00 + 0.99999626E+00 0.99999821E+00 0.99999917E+00 0.99999963E+00 0.99999984E+00 + 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10720078E-02 0.32160233E-02 0.64320467E-02 0.10720078E-01 + 0.16080117E-01 0.22512163E-01 0.30016217E-01 0.38592277E-01 0.48240336E-01 + 0.58960367E-01 0.70752259E-01 0.83615746E-01 0.97550408E-01 0.11255572E+00 + 0.12863099E+00 0.14577525E+00 0.16398700E+00 0.18326394E+00 0.20360251E+00 + 0.22499744E+00 0.24744135E+00 0.27092430E+00 0.29543262E+00 0.32094638E+00 + 0.34743552E+00 0.37485565E+00 0.40314505E+00 0.43222363E+00 0.46199282E+00 + 0.49233505E+00 0.52311249E+00 0.55416614E+00 0.58531541E+00 0.61636051E+00 + 0.64708939E+00 0.67728603E+00 0.70673656E+00 0.73523287E+00 0.76257698E+00 + 0.78858776E+00 0.81310776E+00 0.83600916E+00 0.85719872E+00 0.87662058E+00 + 0.89425519E+00 0.91011501E+00 0.92423882E+00 0.93668782E+00 0.94754411E+00 + 0.95690912E+00 0.96490054E+00 0.97164812E+00 0.97728887E+00 0.98196128E+00 + 0.98579948E+00 0.98892812E+00 0.99145877E+00 0.99348790E+00 0.99509736E+00 + 0.99635726E+00 0.99732923E+00 0.99806827E+00 0.99862268E+00 0.99903331E+00 + 0.99933344E+00 0.99954944E+00 0.99970209E+00 0.99980768E+00 0.99987898E+00 + 0.99992587E+00 0.99995585E+00 0.99997447E+00 0.99998567E+00 0.99999220E+00 + 0.99999589E+00 0.99999790E+00 0.99999896E+00 0.99999951E+00 0.99999977E+00 + 0.99999990E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10483143E-02 0.31449430E-02 0.62898860E-02 0.10483143E-01 + 0.15724715E-01 0.22014601E-01 0.29352801E-01 0.37739314E-01 0.47174136E-01 + 0.57657262E-01 0.69188683E-01 0.81768385E-01 0.95396345E-01 0.11007250E+00 + 0.12579665E+00 0.14256833E+00 0.16038657E+00 0.17924969E+00 0.19915502E+00 + 0.22009865E+00 0.24207520E+00 0.26507736E+00 0.28909456E+00 0.31410979E+00 + 0.34009467E+00 0.36700520E+00 0.39477994E+00 0.42334062E+00 0.45259381E+00 + 0.48243251E+00 0.51273763E+00 0.54337812E+00 0.57420952E+00 0.60507131E+00 + 0.63578318E+00 0.66614246E+00 0.69592588E+00 0.72489678E+00 0.75281806E+00 + 0.77946884E+00 0.80465904E+00 0.82823616E+00 0.85008596E+00 0.87013279E+00 + 0.88834185E+00 0.90471996E+00 0.91931153E+00 0.93219124E+00 0.94345695E+00 + 0.95322417E+00 0.96162094E+00 0.96878197E+00 0.97484227E+00 0.97993149E+00 + 0.98417043E+00 0.98766934E+00 0.99052735E+00 0.99283264E+00 0.99466384E+00 + 0.99609238E+00 0.99718445E+00 0.99800170E+00 0.99860060E+00 0.99903117E+00 + 0.99933593E+00 0.99954924E+00 0.99969740E+00 0.99979966E+00 0.99986965E+00 + 0.99991692E+00 0.99994828E+00 0.99996862E+00 0.99998146E+00 0.99998935E+00 + 0.99999405E+00 0.99999677E+00 0.99999830E+00 0.99999913E+00 0.99999957E+00 + 0.99999979E+00 0.99999990E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10285392E-02 0.30856177E-02 0.61712355E-02 0.10285392E-01 + 0.15428089E-01 0.21599324E-01 0.28799098E-01 0.37027410E-01 0.46284250E-01 + 0.56569599E-01 0.67883407E-01 0.80225562E-01 0.93595866E-01 0.10799405E+00 + 0.12341975E+00 0.13987257E+00 0.15735198E+00 0.17585720E+00 0.19538694E+00 + 0.21593902E+00 0.23751011E+00 0.26009517E+00 0.28368618E+00 0.30827010E+00 + 0.33382677E+00 0.36032684E+00 0.38772953E+00 0.41597919E+00 0.44500044E+00 + 0.47469260E+00 0.50492627E+00 0.53554492E+00 0.56637331E+00 0.59722879E+00 + 0.62792647E+00 0.65827512E+00 0.68807186E+00 0.71710320E+00 0.74515340E+00 + 0.77201583E+00 0.79750295E+00 0.82145347E+00 0.84373868E+00 0.86426921E+00 + 0.88299914E+00 0.89992305E+00 0.91506722E+00 0.92848174E+00 0.94023851E+00 + 0.95043235E+00 0.95917991E+00 0.96661390E+00 0.97287522E+00 0.97810593E+00 + 0.98244361E+00 0.98601619E+00 0.98893813E+00 0.99130946E+00 0.99321762E+00 + 0.99473994E+00 0.99594526E+00 0.99689426E+00 0.99763901E+00 0.99822246E+00 + 0.99867865E+00 0.99903365E+00 0.99930726E+00 0.99951489E+00 0.99966907E+00 + 0.99978056E+00 0.99985876E+00 0.99991184E+00 0.99994666E+00 0.99996872E+00 + 0.99998223E+00 0.99999021E+00 0.99999478E+00 0.99999730E+00 0.99999865E+00 + 0.99999934E+00 0.99999969E+00 0.99999986E+00 0.99999994E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.99357644E-03 0.29807293E-02 0.59614585E-02 0.99357631E-02 + 0.14903639E-01 0.20865073E-01 0.27820049E-01 0.35768558E-01 0.44710611E-01 + 0.54646233E-01 0.65575437E-01 0.77498215E-01 0.90414569E-01 0.10432452E+00 + 0.11922806E+00 0.13512501E+00 0.15201481E+00 0.16989612E+00 0.18876644E+00 + 0.20862208E+00 0.22945833E+00 0.25126913E+00 0.27404613E+00 0.29777687E+00 + 0.32244218E+00 0.34801436E+00 0.37445705E+00 0.40172523E+00 0.42976235E+00 + 0.45849515E+00 0.48782977E+00 0.51765069E+00 0.54782020E+00 0.57817795E+00 + 0.60854334E+00 0.63872152E+00 0.66850848E+00 0.69769348E+00 0.72606368E+00 + 0.75341341E+00 0.77955329E+00 0.80431496E+00 0.82755358E+00 0.84915183E+00 + 0.86902617E+00 0.88713283E+00 0.90347030E+00 0.91807739E+00 0.93102697E+00 + 0.94241593E+00 0.95235302E+00 0.96094799E+00 0.96830634E+00 0.97453139E+00 + 0.97973022E+00 0.98401708E+00 0.98751080E+00 0.99032816E+00 0.99257803E+00 + 0.99435834E+00 0.99575508E+00 0.99684199E+00 0.99768073E+00 0.99832173E+00 + 0.99880578E+00 0.99916592E+00 0.99942912E+00 0.99961754E+00 0.99974941E+00 + 0.99983949E+00 0.99989953E+00 0.99993854E+00 0.99996326E+00 0.99997854E+00 + 0.99998775E+00 0.99999317E+00 0.99999629E+00 0.99999803E+00 0.99999898E+00 + 0.99999949E+00 0.99999975E+00 0.99999988E+00 0.99999994E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.99495327E-03 0.29848598E-02 0.59697196E-02 0.99495327E-02 + 0.14924299E-01 0.20894019E-01 0.27858691E-01 0.35818317E-01 0.44772892E-01 + 0.54722416E-01 0.65666889E-01 0.77606268E-01 0.90540400E-01 0.10446897E+00 + 0.11939151E+00 0.13530747E+00 0.15221637E+00 0.17011781E+00 0.18901108E+00 + 0.20889453E+00 0.22976480E+00 0.25161614E+00 0.27443945E+00 0.29822120E+00 + 0.32294269E+00 0.34857943E+00 0.37509951E+00 0.40246008E+00 0.43060291E+00 + 0.45945113E+00 0.48890715E+00 0.51885100E+00 0.54913883E+00 0.57960233E+00 + 0.61005004E+00 0.64027161E+00 0.67004435E+00 0.69914084E+00 0.72733900E+00 + 0.75443604E+00 0.78026104E+00 0.80467761E+00 0.82757624E+00 0.84886728E+00 + 0.86848287E+00 0.88638444E+00 0.90256774E+00 0.91706194E+00 0.92992430E+00 + 0.94123359E+00 0.95108408E+00 0.95958144E+00 0.96684070E+00 0.97298530E+00 + 0.97814461E+00 0.98244861E+00 0.98602089E+00 0.98897247E+00 0.99139847E+00 + 0.99337799E+00 0.99497675E+00 0.99625077E+00 0.99724977E+00 0.99801919E+00 + 0.99860067E+00 0.99903160E+00 0.99934450E+00 0.99956676E+00 0.99972089E+00 + 0.99982500E+00 0.99989333E+00 0.99993685E+00 0.99996371E+00 0.99997977E+00 + 0.99998906E+00 0.99999426E+00 0.99999708E+00 0.99999856E+00 0.99999931E+00 + 0.99999968E+00 0.99999986E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.98795288E-03 0.29638587E-02 0.59277175E-02 0.98795293E-02 + 0.14819294E-01 0.20747012E-01 0.27662683E-01 0.35566306E-01 0.44457881E-01 + 0.54337400E-01 0.65204831E-01 0.77060109E-01 0.89903133E-01 0.10373380E+00 + 0.11855204E+00 0.13435777E+00 0.15115077E+00 0.16893037E+00 0.18769504E+00 + 0.20744185E+00 0.22816622E+00 0.24986161E+00 0.27251891E+00 0.29612509E+00 + 0.32066184E+00 0.34610372E+00 0.37241538E+00 0.39954838E+00 0.42743894E+00 + 0.45600721E+00 0.48515733E+00 0.51477754E+00 0.54473967E+00 0.57489870E+00 + 0.60509394E+00 0.63515327E+00 0.66489908E+00 0.69415115E+00 0.72272337E+00 + 0.75041867E+00 0.77703124E+00 0.80235932E+00 0.82622020E+00 0.84845937E+00 + 0.86895515E+00 0.88762390E+00 0.90442650E+00 0.91937121E+00 0.93251046E+00 + 0.94393364E+00 0.95375883E+00 0.96212445E+00 0.96918034E+00 0.97507873E+00 + 0.97996674E+00 0.98398242E+00 0.98725409E+00 0.98990062E+00 0.99203050E+00 + 0.99373946E+00 0.99510901E+00 0.99620660E+00 0.99708678E+00 0.99779232E+00 + 0.99835558E+00 0.99880063E+00 0.99914618E+00 0.99940810E+00 0.99960099E+00 + 0.99973864E+00 0.99983369E+00 0.99989721E+00 0.99993828E+00 0.99996399E+00 + 0.99997959E+00 0.99998876E+00 0.99999399E+00 0.99999688E+00 0.99999842E+00 + 0.99999923E+00 0.99999963E+00 0.99999983E+00 0.99999992E+00 0.99999997E+00 + 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.98484703E-03 0.29545411E-02 0.59090822E-02 0.98484702E-02 + 0.14772705E-01 0.20681788E-01 0.27575716E-01 0.35454489E-01 0.44318106E-01 + 0.54166568E-01 0.64999881E-01 0.76818039E-01 0.89621036E-01 0.10340886E+00 + 0.11818147E+00 0.13393875E+00 0.15068033E+00 0.16840539E+00 0.18711254E+00 + 0.20679955E+00 0.22746305E+00 0.24909824E+00 0.27169841E+00 0.29525356E+00 + 0.31974802E+00 0.34515802E+00 0.37144997E+00 0.39857906E+00 0.42648733E+00 + 0.45510088E+00 0.48432702E+00 0.51405256E+00 0.54414424E+00 0.57444942E+00 + 0.60479563E+00 0.63499064E+00 0.66482670E+00 0.69408819E+00 0.72255986E+00 + 0.75003439E+00 0.77632005E+00 0.80124750E+00 0.82467355E+00 0.84648275E+00 + 0.86659017E+00 0.88494680E+00 0.90154446E+00 0.91641544E+00 0.92962454E+00 + 0.94125713E+00 0.95140980E+00 0.96018627E+00 0.96769668E+00 0.97405668E+00 + 0.97938489E+00 0.98379912E+00 0.98741299E+00 0.99033384E+00 0.99266235E+00 + 0.99449273E+00 0.99591228E+00 0.99700001E+00 0.99782479E+00 0.99844427E+00 + 0.99890486E+00 0.99924313E+00 0.99948769E+00 0.99966109E+00 0.99978125E+00 + 0.99986242E+00 0.99991576E+00 0.99994981E+00 0.99997093E+00 0.99998363E+00 + 0.99999104E+00 0.99999524E+00 0.99999754E+00 0.99999877E+00 0.99999940E+00 + 0.99999972E+00 0.99999987E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.95911581E-03 0.28773474E-02 0.57546948E-02 0.95911581E-02 + 0.14386737E-01 0.20141432E-01 0.26855243E-01 0.34528169E-01 0.43160211E-01 + 0.52751368E-01 0.63301639E-01 0.74811021E-01 0.87279482E-01 0.10070691E+00 + 0.11509308E+00 0.13043766E+00 0.14674024E+00 0.16400031E+00 0.18221701E+00 + 0.20138870E+00 0.22151234E+00 0.24258282E+00 0.26459241E+00 0.28753026E+00 + 0.31138201E+00 0.33612904E+00 0.36174764E+00 0.38820689E+00 0.41546487E+00 + 0.44346425E+00 0.47212875E+00 0.50136106E+00 0.53104238E+00 0.56103324E+00 + 0.59117428E+00 0.62128552E+00 0.65116543E+00 0.68059397E+00 0.70934283E+00 + 0.73718999E+00 0.76393232E+00 0.78939245E+00 0.81342165E+00 0.83590142E+00 + 0.85674390E+00 0.87589044E+00 0.89331012E+00 0.90900045E+00 0.92298936E+00 + 0.93533541E+00 0.94612513E+00 0.95546765E+00 0.96348734E+00 0.97031497E+00 + 0.97607927E+00 0.98090135E+00 0.98489332E+00 0.98816014E+00 0.99080154E+00 + 0.99291241E+00 0.99458120E+00 0.99588791E+00 0.99690293E+00 0.99768650E+00 + 0.99828874E+00 0.99874991E+00 0.99910126E+00 0.99936650E+00 0.99956370E+00 + 0.99970714E+00 0.99980872E+00 0.99987851E+00 0.99992498E+00 0.99995496E+00 + 0.99997370E+00 0.99998507E+00 0.99999175E+00 0.99999557E+00 0.99999769E+00 + 0.99999883E+00 0.99999942E+00 0.99999972E+00 0.99999987E+00 0.99999994E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.95859320E-03 0.28757796E-02 0.57515592E-02 0.95859320E-02 + 0.14378898E-01 0.20130457E-01 0.26840610E-01 0.34509355E-01 0.43136694E-01 + 0.52722626E-01 0.63267151E-01 0.74770269E-01 0.87231972E-01 0.10065222E+00 + 0.11503095E+00 0.13036803E+00 0.14666330E+00 0.16391617E+00 0.18212502E+00 + 0.20128671E+00 0.22139639E+00 0.24244760E+00 0.26443229E+00 0.28734064E+00 + 0.31116054E+00 0.33587569E+00 0.36146239E+00 0.38788594E+00 0.41509741E+00 + 0.44303119E+00 0.47160361E+00 0.50071193E+00 0.53023392E+00 0.56002914E+00 + 0.58994095E+00 0.61979665E+00 0.64940717E+00 0.67857122E+00 0.70708506E+00 + 0.73475315E+00 0.76139462E+00 0.78684486E+00 0.81095460E+00 0.83358891E+00 + 0.85463077E+00 0.87399166E+00 0.89162273E+00 0.90751851E+00 0.92171270E+00 + 0.93427051E+00 0.94528038E+00 0.95484580E+00 0.96307792E+00 0.97009057E+00 + 0.97599827E+00 0.98091634E+00 0.98496103E+00 0.98824806E+00 0.99088945E+00 + 0.99299008E+00 0.99464514E+00 0.99593858E+00 0.99694238E+00 0.99771647E+00 + 0.99830955E+00 0.99876067E+00 0.99910101E+00 0.99935549E+00 0.99954390E+00 + 0.99968191E+00 0.99978177E+00 0.99985298E+00 0.99990290E+00 0.99993723E+00 + 0.99996032E+00 0.99997550E+00 0.99998523E+00 0.99999131E+00 0.99999502E+00 + 0.99999722E+00 0.99999849E+00 0.99999920E+00 0.99999959E+00 0.99999979E+00 + 0.99999990E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + NUCLEUS 14 7 14 7 + 20.40000 0.15000 2.55000 2.55000 + 0.00000000E+00 0.14769957E-02 0.44309863E-02 0.88619708E-02 0.14769948E-01 + 0.22154917E-01 0.31016873E-01 0.41355814E-01 0.53171739E-01 0.66464630E-01 + 0.81234416E-01 0.97480894E-01 0.11520360E+00 0.13440160E+00 0.15507326E+00 + 0.17721553E+00 0.20082282E+00 0.22588518E+00 0.25238661E+00 0.28030390E+00 + 0.30960488E+00 0.34024450E+00 0.37215865E+00 0.40525703E+00 0.43941513E+00 + 0.47446571E+00 0.51019505E+00 0.54635037E+00 0.58265340E+00 0.61880752E+00 + 0.65449632E+00 0.68938440E+00 0.72313028E+00 0.75540796E+00 0.78592753E+00 + 0.81444878E+00 0.84078688E+00 0.86481311E+00 0.88645463E+00 0.90569467E+00 + 0.92257109E+00 0.93717285E+00 0.94963489E+00 0.96012814E+00 0.96884379E+00 + 0.97597775E+00 0.98172229E+00 0.98626478E+00 0.98978807E+00 0.99246874E+00 + 0.99447315E+00 0.99595209E+00 0.99703543E+00 0.99782850E+00 0.99841194E+00 + 0.99884452E+00 0.99916754E+00 0.99940944E+00 0.99958984E+00 0.99972273E+00 + 0.99981855E+00 0.99988560E+00 0.99993080E+00 0.99995996E+00 0.99997788E+00 + 0.99998835E+00 0.99999416E+00 0.99999721E+00 0.99999874E+00 0.99999946E+00 + 0.99999978E+00 0.99999991E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14791342E-02 0.44374024E-02 0.88748048E-02 0.14791341E-01 + 0.22187012E-01 0.31061814E-01 0.41415739E-01 0.53248760E-01 0.66560804E-01 + 0.81351707E-01 0.97621155E-01 0.11536863E+00 0.13459327E+00 0.15529362E+00 + 0.17746718E+00 0.20110979E+00 0.22621452E+00 0.25276993E+00 0.28075736E+00 + 0.31014716E+00 0.34089302E+00 0.37292447E+00 0.40613942E+00 0.44039982E+00 + 0.47552949E+00 0.51131153E+00 0.54748688E+00 0.58375776E+00 0.61979800E+00 + 0.65526912E+00 0.68983739E+00 0.72318616E+00 0.75502313E+00 0.78508774E+00 + 0.81315876E+00 0.83905943E+00 0.86266049E+00 0.88388432E+00 0.90271142E+00 + 0.91918595E+00 0.93341475E+00 0.94555688E+00 0.95580652E+00 0.96437467E+00 + 0.97147388E+00 0.97730758E+00 0.98206397E+00 0.98591391E+00 0.98901042E+00 + 0.99148826E+00 0.99346298E+00 0.99503062E+00 0.99626877E+00 0.99723930E+00 + 0.99799198E+00 0.99856767E+00 0.99900073E+00 0.99932016E+00 0.99955042E+00 + 0.99971195E+00 0.99982173E+00 0.99989370E+00 0.99993905E+00 0.99996645E+00 + 0.99998228E+00 0.99999104E+00 0.99999566E+00 0.99999799E+00 0.99999911E+00 + 0.99999962E+00 0.99999985E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14760414E-02 0.44281243E-02 0.88562486E-02 0.14760414E-01 + 0.22140621E-01 0.30996867E-01 0.41329149E-01 0.53137457E-01 0.66421763E-01 + 0.81182009E-01 0.97418058E-01 0.11512958E+00 0.13431585E+00 0.15497532E+00 + 0.17710491E+00 0.20069892E+00 0.22574727E+00 0.25223352E+00 0.28013252E+00 + 0.30940750E+00 0.34000573E+00 0.37185346E+00 0.40485102E+00 0.43886922E+00 + 0.47374720E+00 0.50929062E+00 0.54526886E+00 0.58141344E+00 0.61742059E+00 + 0.65295860E+00 0.68767950E+00 0.72123470E+00 0.75329289E+00 0.78355735E+00 + 0.81178149E+00 0.83778203E+00 0.86144641E+00 0.88273023E+00 0.90164706E+00 + 0.91825829E+00 0.93266759E+00 0.94501740E+00 0.95548302E+00 0.96426224E+00 + 0.97156134E+00 0.97758084E+00 0.98250525E+00 0.98649862E+00 0.98970486E+00 + 0.99224986E+00 0.99424384E+00 0.99578333E+00 0.99695288E+00 0.99782635E+00 + 0.99846750E+00 0.99893035E+00 0.99925947E+00 0.99949058E+00 0.99965140E+00 + 0.99976276E+00 0.99983976E+00 0.99989300E+00 0.99992972E+00 0.99995485E+00 + 0.99997179E+00 0.99998294E+00 0.99999004E+00 0.99999441E+00 0.99999699E+00 + 0.99999845E+00 0.99999923E+00 0.99999964E+00 0.99999984E+00 0.99999993E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14563535E-02 0.43690606E-02 0.87381211E-02 0.14563535E-01 + 0.21845302E-01 0.30583422E-01 0.40777891E-01 0.52428697E-01 0.65535803E-01 + 0.80099102E-01 0.96118349E-01 0.11359303E+00 0.13252212E+00 0.15290359E+00 + 0.17473380E+00 0.19800668E+00 0.22271289E+00 0.24883835E+00 0.27636183E+00 + 0.30525113E+00 0.33545802E+00 0.36691275E+00 0.39951878E+00 0.43314890E+00 + 0.46764251E+00 0.50280302E+00 0.53839564E+00 0.57414968E+00 0.60976817E+00 + 0.64494131E+00 0.67935677E+00 0.71270442E+00 0.74468030E+00 0.77499533E+00 + 0.80339154E+00 0.82966255E+00 0.85367113E+00 0.87535692E+00 0.89473216E+00 + 0.91186852E+00 0.92688071E+00 0.93991093E+00 0.95111579E+00 0.96065647E+00 + 0.96869290E+00 0.97538130E+00 0.98087436E+00 0.98532215E+00 0.98887176E+00 + 0.99166470E+00 0.99383265E+00 0.99549360E+00 0.99674974E+00 0.99768732E+00 + 0.99837773E+00 0.99887914E+00 0.99923811E+00 0.99949129E+00 0.99966699E+00 + 0.99978674E+00 0.99986671E+00 0.99991888E+00 0.99995203E+00 0.99997249E+00 + 0.99998473E+00 0.99999181E+00 0.99999576E+00 0.99999788E+00 0.99999898E+00 + 0.99999953E+00 0.99999979E+00 0.99999991E+00 0.99999996E+00 0.99999999E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14274174E-02 0.42822522E-02 0.85645040E-02 0.14274172E-01 + 0.21411255E-01 0.29975748E-01 0.39967641E-01 0.51386903E-01 0.64233450E-01 + 0.78507099E-01 0.94207516E-01 0.11133418E+00 0.12988632E+00 0.14986279E+00 + 0.17126161E+00 0.19407910E+00 0.21830843E+00 0.24393767E+00 0.27094703E+00 + 0.29930571E+00 0.32896886E+00 0.35987450E+00 0.39194016E+00 0.42505937E+00 + 0.45909856E+00 0.49389333E+00 0.52924412E+00 0.56491300E+00 0.60062386E+00 + 0.63606658E+00 0.67090585E+00 0.70479498E+00 0.73739425E+00 0.76839114E+00 + 0.79751891E+00 0.82456976E+00 0.84940015E+00 0.87192858E+00 0.89212984E+00 + 0.91002951E+00 0.92570009E+00 0.93925660E+00 0.95084887E+00 0.96065045E+00 + 0.96884654E+00 0.97562398E+00 0.98116425E+00 0.98563901E+00 0.98920735E+00 + 0.99201439E+00 0.99419053E+00 0.99585111E+00 0.99709653E+00 0.99801275E+00 + 0.99867234E+00 0.99913578E+00 0.99945279E+00 0.99966341E+00 0.99979911E+00 + 0.99988377E+00 0.99993487E+00 0.99996468E+00 0.99998147E+00 0.99999061E+00 + 0.99999540E+00 0.99999783E+00 0.99999901E+00 0.99999957E+00 0.99999982E+00 + 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13681828E-02 0.41045483E-02 0.82090967E-02 0.13681828E-01 + 0.20522742E-01 0.28731838E-01 0.38309116E-01 0.49254575E-01 0.61568211E-01 + 0.75250019E-01 0.90299984E-01 0.10671807E+00 0.12450414E+00 0.14365783E+00 + 0.16417821E+00 0.18606318E+00 0.20930863E+00 0.23390721E+00 0.25984663E+00 + 0.28710722E+00 0.31565917E+00 0.34545886E+00 0.37644388E+00 0.40852760E+00 + 0.44159536E+00 0.47550286E+00 0.51007567E+00 0.54510911E+00 0.58036875E+00 + 0.61559136E+00 0.65048593E+00 0.68473595E+00 0.71800584E+00 0.74995417E+00 + 0.78025370E+00 0.80861450E+00 0.83480536E+00 0.85866989E+00 0.88013374E+00 + 0.89920146E+00 0.91594461E+00 0.93048463E+00 0.94297525E+00 0.95358856E+00 + 0.96250679E+00 0.96991807E+00 0.97601262E+00 0.98097743E+00 0.98499005E+00 + 0.98821309E+00 0.99079040E+00 0.99284482E+00 0.99447787E+00 0.99577141E+00 + 0.99679089E+00 0.99758898E+00 0.99820870E+00 0.99868559E+00 0.99904907E+00 + 0.99932327E+00 0.99952767E+00 0.99967777E+00 0.99978588E+00 0.99986184E+00 + 0.99991366E+00 0.99994784E+00 0.99996958E+00 0.99998289E+00 0.99999072E+00 + 0.99999516E+00 0.99999756E+00 0.99999882E+00 0.99999945E+00 0.99999975E+00 + 0.99999989E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13653230E-02 0.40959691E-02 0.81919382E-02 0.13653230E-01 + 0.20479846E-01 0.28671784E-01 0.38229045E-01 0.49151629E-01 0.61439535E-01 + 0.75092760E-01 0.90111283E-01 0.10649503E+00 0.12424375E+00 0.14335688E+00 + 0.16383315E+00 0.18567005E+00 0.20886326E+00 0.23340610E+00 0.25928875E+00 + 0.28649640E+00 0.31500566E+00 0.34477987E+00 0.37576420E+00 0.40788081E+00 + 0.44102426E+00 0.47505699E+00 0.50980374E+00 0.54504588E+00 0.58051917E+00 + 0.61591888E+00 0.65091205E+00 0.68515423E+00 0.71830757E+00 0.75005803E+00 + 0.78012955E+00 0.80829265E+00 0.83436702E+00 0.85822143E+00 0.87977509E+00 + 0.89900168E+00 0.91593259E+00 0.93065524E+00 0.94330521E+00 0.95405355E+00 + 0.96309246E+00 0.97062152E+00 0.97683635E+00 0.98192047E+00 0.98604101E+00 + 0.98934748E+00 0.99197230E+00 0.99403188E+00 0.99562753E+00 0.99684660E+00 + 0.99776372E+00 0.99844213E+00 0.99893488E+00 0.99928593E+00 0.99953099E+00 + 0.99969851E+00 0.99981052E+00 0.99988371E+00 0.99993040E+00 0.99995942E+00 + 0.99997698E+00 0.99998731E+00 0.99999321E+00 0.99999647E+00 0.99999823E+00 + 0.99999914E+00 0.99999959E+00 0.99999982E+00 0.99999992E+00 0.99999997E+00 + 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13330348E-02 0.39991045E-02 0.79982090E-02 0.13330348E-01 + 0.19995523E-01 0.27993732E-01 0.37324975E-01 0.47989253E-01 0.59986566E-01 + 0.73316910E-01 0.87980281E-01 0.10397665E+00 0.12130592E+00 0.13996773E+00 + 0.15996100E+00 0.18128334E+00 0.20393042E+00 0.22789559E+00 0.25316917E+00 + 0.27973657E+00 0.30757511E+00 0.33664961E+00 0.36690794E+00 0.39827738E+00 + 0.43066156E+00 0.46393683E+00 0.49794797E+00 0.53250458E+00 0.56738030E+00 + 0.60231605E+00 0.63702674E+00 0.67120963E+00 0.70455496E+00 0.73675799E+00 + 0.76752886E+00 0.79659881E+00 0.82372733E+00 0.84871375E+00 0.87141116E+00 + 0.89173821E+00 0.90968534E+00 0.92531388E+00 0.93874769E+00 0.95015877E+00 + 0.95974961E+00 0.96773563E+00 0.97433067E+00 0.97973634E+00 0.98413562E+00 + 0.98769003E+00 0.99053949E+00 0.99280404E+00 0.99458613E+00 0.99597303E+00 + 0.99703900E+00 0.99784722E+00 0.99845137E+00 0.99889675E+00 0.99922101E+00 + 0.99945466E+00 0.99962169E+00 0.99974036E+00 0.99982415E+00 0.99988283E+00 + 0.99992345E+00 0.99995112E+00 0.99996958E+00 0.99998159E+00 0.99998918E+00 + 0.99999384E+00 0.99999660E+00 0.99999819E+00 0.99999907E+00 0.99999953E+00 + 0.99999978E+00 0.99999990E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13097619E-02 0.39292857E-02 0.78585714E-02 0.13097619E-01 + 0.19646428E-01 0.27505000E-01 0.36673333E-01 0.47151428E-01 0.58939281E-01 + 0.72036889E-01 0.86444235E-01 0.10216129E+00 0.11918799E+00 0.13752418E+00 + 0.15716953E+00 0.17812309E+00 0.20038268E+00 0.22394399E+00 0.24879996E+00 + 0.27494006E+00 0.30234882E+00 0.33100301E+00 0.36086712E+00 0.39188707E+00 + 0.42398254E+00 0.45703879E+00 0.49090003E+00 0.52536606E+00 0.56019349E+00 + 0.59510257E+00 0.62978891E+00 0.66393781E+00 0.69723800E+00 0.72939338E+00 + 0.76013283E+00 0.78921864E+00 0.81645262E+00 0.84167864E+00 0.86478148E+00 + 0.88568460E+00 0.90435119E+00 0.92078995E+00 0.93506131E+00 0.94727775E+00 + 0.95759563E+00 0.96620109E+00 0.97329464E+00 0.97907814E+00 0.98374501E+00 + 0.98747370E+00 0.99042395E+00 0.99273532E+00 0.99452787E+00 0.99590392E+00 + 0.99695020E+00 0.99773948E+00 0.99833178E+00 0.99877528E+00 0.99910736E+00 + 0.99935607E+00 0.99954196E+00 0.99967995E+00 0.99978111E+00 0.99985390E+00 + 0.99990505E+00 0.99994003E+00 0.99996323E+00 0.99997814E+00 0.99998740E+00 + 0.99999297E+00 0.99999620E+00 0.99999801E+00 0.99999900E+00 0.99999951E+00 + 0.99999977E+00 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12658097E-02 0.37974291E-02 0.75948582E-02 0.12658097E-01 + 0.18987146E-01 0.26582004E-01 0.35442672E-01 0.45569149E-01 0.56961437E-01 + 0.69619533E-01 0.83543438E-01 0.98733139E-01 0.11518859E+00 0.13290964E+00 + 0.15189588E+00 0.17214639E+00 0.19365931E+00 0.21643141E+00 0.24045734E+00 + 0.26572855E+00 0.29223153E+00 0.31994482E+00 0.34883447E+00 0.37884825E+00 + 0.40990969E+00 0.44191338E+00 0.47472278E+00 0.50817010E+00 0.54205804E+00 + 0.57616304E+00 0.61024028E+00 0.64402981E+00 0.67726122E+00 0.70965691E+00 + 0.74093684E+00 0.77082796E+00 0.79907752E+00 0.82546718E+00 0.84982556E+00 + 0.87203766E+00 0.89204919E+00 0.90986476E+00 0.92554051E+00 0.93917338E+00 + 0.95088991E+00 0.96083652E+00 0.96917209E+00 0.97606241E+00 0.98167570E+00 + 0.98617860E+00 0.98973254E+00 0.99249050E+00 0.99459408E+00 0.99617076E+00 + 0.99733205E+00 0.99817255E+00 0.99877026E+00 0.99918770E+00 0.99947385E+00 + 0.99966619E+00 0.99979280E+00 0.99987432E+00 0.99992559E+00 0.99995704E+00 + 0.99997584E+00 0.99998677E+00 0.99999296E+00 0.99999636E+00 0.99999817E+00 + 0.99999911E+00 0.99999958E+00 0.99999981E+00 0.99999992E+00 0.99999996E+00 + 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12450270E-02 0.37350811E-02 0.74701622E-02 0.12450270E-01 + 0.18675406E-01 0.26145568E-01 0.34860757E-01 0.44820973E-01 0.56026216E-01 + 0.68476483E-01 0.82171766E-01 0.97112046E-01 0.11329728E+00 0.13072742E+00 + 0.14940235E+00 0.16932182E+00 0.19048522E+00 0.21289115E+00 0.23653686E+00 + 0.26141729E+00 0.28752327E+00 0.31483900E+00 0.34333874E+00 0.37298248E+00 + 0.40371072E+00 0.43543957E+00 0.46805751E+00 0.50142332E+00 0.53536410E+00 + 0.56967317E+00 0.60410955E+00 0.63840005E+00 0.67224434E+00 0.70532319E+00 + 0.73731132E+00 0.76789507E+00 0.79679193E+00 0.82376711E+00 0.84864356E+00 + 0.87130451E+00 0.89169049E+00 0.90979495E+00 0.92566088E+00 0.93937746E+00 + 0.95107441E+00 0.96091342E+00 0.96907779E+00 0.97576199E+00 0.98116249E+00 + 0.98547039E+00 0.98886554E+00 0.99151209E+00 0.99355521E+00 0.99511952E+00 + 0.99630908E+00 0.99720874E+00 0.99788636E+00 0.99839539E+00 0.99877739E+00 + 0.99906437E+00 0.99928081E+00 0.99944522E+00 0.99957143E+00 0.99966956E+00 + 0.99974678E+00 0.99980806E+00 0.99985678E+00 0.99989525E+00 0.99992517E+00 + 0.99994794E+00 0.99996479E+00 0.99997689E+00 0.99998529E+00 0.99999093E+00 + 0.99999458E+00 0.99999686E+00 0.99999824E+00 0.99999904E+00 0.99999950E+00 + 0.99999974E+00 0.99999987E+00 0.99999994E+00 0.99999997E+00 0.99999999E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11900415E-02 0.35701245E-02 0.71402490E-02 0.11900415E-01 + 0.17850623E-01 0.24990872E-01 0.33321162E-01 0.42841494E-01 0.53551868E-01 + 0.65452283E-01 0.78542739E-01 0.92823236E-01 0.10829377E+00 0.12495433E+00 + 0.14280486E+00 0.16184512E+00 0.18207445E+00 0.20349133E+00 0.22609296E+00 + 0.24987473E+00 0.27482915E+00 0.30094423E+00 0.32820111E+00 0.35657065E+00 + 0.38600886E+00 0.41645200E+00 0.44781246E+00 0.47997531E+00 0.51279570E+00 + 0.54609770E+00 0.57967422E+00 0.61328686E+00 0.64666677E+00 0.67952030E+00 + 0.71154144E+00 0.74242940E+00 0.77190633E+00 0.79973031E+00 0.82570192E+00 + 0.84966706E+00 0.87151908E+00 0.89120141E+00 0.90870958E+00 0.92409122E+00 + 0.93744233E+00 0.94889902E+00 0.95862563E+00 0.96680148E+00 0.97360886E+00 + 0.97922388E+00 0.98381073E+00 0.98751927E+00 0.99048478E+00 0.99282867E+00 + 0.99465899E+00 0.99607072E+00 0.99714598E+00 0.99795446E+00 0.99855432E+00 + 0.99899328E+00 0.99930988E+00 0.99953476E+00 0.99969191E+00 0.99979982E+00 + 0.99987253E+00 0.99992053E+00 0.99995155E+00 0.99997113E+00 0.99998321E+00 + 0.99999047E+00 0.99999473E+00 0.99999716E+00 0.99999851E+00 0.99999924E+00 + 0.99999962E+00 0.99999982E+00 0.99999992E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11779973E-02 0.35339920E-02 0.70679839E-02 0.11779973E-01 + 0.17669960E-01 0.24737944E-01 0.32983925E-01 0.42407903E-01 0.53009879E-01 + 0.64789853E-01 0.77747823E-01 0.91883791E-01 0.10719776E+00 0.12368972E+00 + 0.14135967E+00 0.16020756E+00 0.18023324E+00 0.20143610E+00 0.22381463E+00 + 0.24736573E+00 0.27208379E+00 0.29795933E+00 0.32497719E+00 0.35311386E+00 + 0.38233402E+00 0.41258619E+00 0.44379700E+00 0.47586317E+00 0.50864263E+00 + 0.54194933E+00 0.57555519E+00 0.60919873E+00 0.64259716E+00 0.67545839E+00 + 0.70749107E+00 0.73841257E+00 0.76795673E+00 0.79588287E+00 0.82198618E+00 + 0.84610736E+00 0.86813897E+00 0.88802760E+00 0.90577318E+00 0.92142601E+00 + 0.93508047E+00 0.94686456E+00 0.95692722E+00 0.96542732E+00 0.97252677E+00 + 0.97838726E+00 0.98316795E+00 0.98702246E+00 0.99009507E+00 0.99251719E+00 + 0.99440515E+00 0.99585971E+00 0.99696682E+00 0.99779909E+00 0.99841722E+00 + 0.99887125E+00 0.99920154E+00 0.99943989E+00 0.99961072E+00 0.99973233E+00 + 0.99981825E+00 0.99987840E+00 0.99992001E+00 0.99994836E+00 0.99996735E+00 + 0.99997980E+00 0.99998780E+00 0.99999281E+00 0.99999587E+00 0.99999769E+00 + 0.99999874E+00 0.99999933E+00 0.99999966E+00 0.99999983E+00 0.99999992E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11434857E-02 0.34304571E-02 0.68609141E-02 0.11434857E-01 + 0.17152285E-01 0.24013199E-01 0.32017599E-01 0.41165485E-01 0.51456856E-01 + 0.62891713E-01 0.75470055E-01 0.89191884E-01 0.10405720E+00 0.12006600E+00 + 0.13721828E+00 0.15551405E+00 0.17495325E+00 0.19553569E+00 0.21726071E+00 + 0.24012668E+00 0.26413013E+00 0.28926384E+00 0.31551382E+00 0.34285602E+00 + 0.37125446E+00 0.40066106E+00 0.43101573E+00 0.46224348E+00 0.49424726E+00 + 0.52689781E+00 0.56002527E+00 0.59341768E+00 0.62682724E+00 0.65998023E+00 + 0.69258585E+00 0.72434370E+00 0.75495272E+00 0.78412283E+00 0.81158990E+00 + 0.83713253E+00 0.86058599E+00 0.88184906E+00 0.90088351E+00 0.91770866E+00 + 0.93239344E+00 0.94504799E+00 0.95581532E+00 0.96486259E+00 0.97237177E+00 + 0.97852980E+00 0.98351952E+00 0.98751287E+00 0.99066713E+00 0.99312370E+00 + 0.99500825E+00 0.99643107E+00 0.99748756E+00 0.99825869E+00 0.99881186E+00 + 0.99920183E+00 0.99947210E+00 0.99965629E+00 0.99977974E+00 0.99986112E+00 + 0.99991389E+00 0.99994752E+00 0.99996859E+00 0.99998154E+00 0.99998937E+00 + 0.99999400E+00 0.99999668E+00 0.99999821E+00 0.99999905E+00 0.99999951E+00 + 0.99999976E+00 0.99999988E+00 0.99999994E+00 0.99999997E+00 0.99999999E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11336471E-02 0.34009412E-02 0.68018824E-02 0.11336471E-01 + 0.17004706E-01 0.23806589E-01 0.31742118E-01 0.40811295E-01 0.51014118E-01 + 0.62350589E-01 0.74820707E-01 0.88424472E-01 0.10316188E+00 0.11903294E+00 + 0.13603764E+00 0.15417596E+00 0.17344775E+00 0.19385259E+00 0.21538947E+00 + 0.23805624E+00 0.26184882E+00 0.28676014E+00 0.31277881E+00 0.33988730E+00 + 0.36805966E+00 0.39725891E+00 0.42743359E+00 0.45851170E+00 0.49039265E+00 + 0.52294046E+00 0.55598041E+00 0.58929943E+00 0.62265028E+00 0.65575960E+00 + 0.68833882E+00 0.72009646E+00 0.75074961E+00 0.78003292E+00 0.80770507E+00 + 0.83355536E+00 0.85741279E+00 0.87915552E+00 0.89871625E+00 0.91608209E+00 + 0.93129066E+00 0.94442424E+00 0.95560315E+00 0.96497847E+00 0.97272385E+00 + 0.97902647E+00 0.98407736E+00 0.98806289E+00 0.99115845E+00 0.99352449E+00 + 0.99530429E+00 0.99662269E+00 0.99758573E+00 0.99828092E+00 0.99877833E+00 + 0.99913236E+00 0.99938393E+00 0.99956300E+00 0.99969089E+00 0.99978254E+00 + 0.99984833E+00 0.99989545E+00 0.99992899E+00 0.99995259E+00 0.99996896E+00 + 0.99998010E+00 0.99998753E+00 0.99999237E+00 0.99999544E+00 0.99999734E+00 + 0.99999849E+00 0.99999917E+00 0.99999955E+00 0.99999976E+00 0.99999988E+00 + 0.99999994E+00 0.99999997E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10929468E-02 0.32788404E-02 0.65576808E-02 0.10929468E-01 + 0.16394202E-01 0.22951883E-01 0.30602510E-01 0.39346085E-01 0.49182606E-01 + 0.60112074E-01 0.72134489E-01 0.85249850E-01 0.99458158E-01 0.11475941E+00 + 0.13115356E+00 0.14864049E+00 0.16721982E+00 0.18689088E+00 0.20765254E+00 + 0.22950311E+00 0.25243997E+00 0.27645856E+00 0.30155077E+00 0.32770299E+00 + 0.35489448E+00 0.38309541E+00 0.41226278E+00 0.44233478E+00 0.47322494E+00 + 0.50481758E+00 0.53696514E+00 0.56948851E+00 0.60218056E+00 0.63481161E+00 + 0.66713487E+00 0.69889112E+00 0.72981229E+00 0.75962518E+00 0.78805868E+00 + 0.81485732E+00 0.83980000E+00 0.86271793E+00 0.88350525E+00 0.90212088E+00 + 0.91858341E+00 0.93296226E+00 0.94536703E+00 0.95593715E+00 0.96483308E+00 + 0.97222834E+00 0.97830196E+00 0.98323143E+00 0.98718657E+00 0.99032465E+00 + 0.99278678E+00 0.99469624E+00 0.99615855E+00 0.99726282E+00 0.99808369E+00 + 0.99868333E+00 0.99911306E+00 0.99941473E+00 0.99962193E+00 0.99976105E+00 + 0.99985229E+00 0.99991073E+00 0.99994726E+00 0.99996955E+00 0.99998283E+00 + 0.99999054E+00 0.99999491E+00 0.99999733E+00 0.99999863E+00 0.99999932E+00 + 0.99999967E+00 0.99999984E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10917849E-02 0.32753546E-02 0.65507093E-02 0.10917849E-01 + 0.16376773E-01 0.22927483E-01 0.30569977E-01 0.39304256E-01 0.49130320E-01 + 0.60048169E-01 0.72057802E-01 0.85159221E-01 0.99352424E-01 0.11463741E+00 + 0.13101419E+00 0.14848274E+00 0.16704308E+00 0.18669514E+00 0.20743873E+00 + 0.22927319E+00 0.25219707E+00 0.27620757E+00 0.30129982E+00 0.32746560E+00 + 0.35469090E+00 0.38295184E+00 0.41220911E+00 0.44240290E+00 0.47345006E+00 + 0.50524179E+00 0.53763967E+00 0.57047080E+00 0.60352544E+00 0.63655812E+00 + 0.66929055E+00 0.70141721E+00 0.73261655E+00 0.76257051E+00 0.79098987E+00 + 0.81763672E+00 0.84233432E+00 0.86496344E+00 0.88545390E+00 0.90378047E+00 + 0.91996392E+00 0.93407194E+00 0.94621570E+00 0.95654159E+00 0.96522006E+00 + 0.97243369E+00 0.97836637E+00 0.98319503E+00 0.98708446E+00 0.99018446E+00 + 0.99262848E+00 0.99453344E+00 0.99600027E+00 0.99711505E+00 0.99795044E+00 + 0.99856708E+00 0.99901498E+00 0.99933478E+00 0.99955900E+00 0.99971324E+00 + 0.99981722E+00 0.99988587E+00 0.99993024E+00 0.99995827E+00 0.99997558E+00 + 0.99998603E+00 0.99999219E+00 0.99999574E+00 0.99999773E+00 0.99999882E+00 + 0.99999940E+00 0.99999970E+00 0.99999986E+00 0.99999993E+00 0.99999997E+00 + 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10743265E-02 0.32229796E-02 0.64459592E-02 0.10743265E-01 + 0.16114898E-01 0.22560857E-01 0.30081143E-01 0.38675755E-01 0.48344694E-01 + 0.59087959E-01 0.70905551E-01 0.83797470E-01 0.97763715E-01 0.11280429E+00 + 0.12891918E+00 0.14610840E+00 0.16437189E+00 0.18370952E+00 0.20412102E+00 + 0.22560581E+00 0.24816281E+00 0.27178970E+00 0.29648142E+00 0.32222781E+00 + 0.34901118E+00 0.37680465E+00 0.40557057E+00 0.43525681E+00 0.46579014E+00 + 0.49706842E+00 0.52895535E+00 0.56127947E+00 0.59383618E+00 0.62639150E+00 + 0.65868711E+00 0.69044612E+00 0.72137948E+00 0.75119625E+00 0.77961981E+00 + 0.80640605E+00 0.83135678E+00 0.85432595E+00 0.87522221E+00 0.89401007E+00 + 0.91070866E+00 0.92538716E+00 0.93815628E+00 0.94915670E+00 0.95854650E+00 + 0.96649005E+00 0.97315025E+00 0.97868364E+00 0.98323737E+00 0.98694757E+00 + 0.98993876E+00 0.99232409E+00 0.99420548E+00 0.99567353E+00 0.99680717E+00 + 0.99767351E+00 0.99832839E+00 0.99881742E+00 0.99917750E+00 0.99943835E+00 + 0.99962388E+00 0.99975321E+00 0.99984143E+00 0.99990028E+00 0.99993864E+00 + 0.99996307E+00 0.99997827E+00 0.99998750E+00 0.99999297E+00 0.99999614E+00 + 0.99999793E+00 0.99999892E+00 0.99999945E+00 0.99999972E+00 0.99999987E+00 + 0.99999994E+00 0.99999997E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10510099E-02 0.31530298E-02 0.63060597E-02 0.10510099E-01 + 0.15765149E-01 0.22071209E-01 0.29428278E-01 0.37836358E-01 0.47295447E-01 + 0.57805547E-01 0.69366656E-01 0.81978776E-01 0.95641905E-01 0.11035604E+00 + 0.12612119E+00 0.14293735E+00 0.16080452E+00 0.17972267E+00 0.19969169E+00 + 0.22071112E+00 0.24277963E+00 0.26589438E+00 0.29005049E+00 0.31524039E+00 + 0.34145242E+00 0.36866837E+00 0.39686027E+00 0.42598684E+00 0.45598907E+00 + 0.48678453E+00 0.51826166E+00 0.55027610E+00 0.58265007E+00 0.61517404E+00 + 0.64761033E+00 0.67969811E+00 0.71115947E+00 0.74170659E+00 0.77105106E+00 + 0.79891631E+00 0.82505311E+00 0.84925697E+00 0.87138288E+00 0.89135267E+00 + 0.90915293E+00 0.92482545E+00 0.93845457E+00 0.95015581E+00 0.96006800E+00 + 0.96834816E+00 0.97516713E+00 0.98070475E+00 0.98514358E+00 0.98866114E+00 + 0.99142176E+00 0.99357034E+00 0.99522953E+00 0.99650028E+00 0.99746450E+00 + 0.99818818E+00 0.99872452E+00 0.99911636E+00 0.99939811E+00 0.99959723E+00 + 0.99973539E+00 0.99982942E+00 0.99989215E+00 0.99993315E+00 0.99995939E+00 + 0.99997584E+00 0.99998592E+00 0.99999197E+00 0.99999552E+00 0.99999755E+00 + 0.99999869E+00 0.99999932E+00 0.99999965E+00 0.99999983E+00 0.99999992E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10347496E-02 0.31042489E-02 0.62084977E-02 0.10347496E-01 + 0.15521244E-01 0.21729742E-01 0.28972989E-01 0.37250986E-01 0.46563733E-01 + 0.56911229E-01 0.68293475E-01 0.80710470E-01 0.94162215E-01 0.10864871E+00 + 0.12416995E+00 0.14072595E+00 0.15831668E+00 0.17694210E+00 0.19660193E+00 + 0.21729530E+00 0.23902028E+00 0.26177324E+00 0.28554807E+00 0.31033506E+00 + 0.33611967E+00 0.36288123E+00 0.39059070E+00 0.41920732E+00 0.44867448E+00 + 0.47891576E+00 0.50983091E+00 0.54129145E+00 0.57313668E+00 0.60517127E+00 + 0.63716507E+00 0.66885615E+00 0.69995821E+00 0.73017434E+00 0.75921639E+00 + 0.78682547E+00 0.81278736E+00 0.83694020E+00 0.85917466E+00 0.87942933E+00 + 0.89768478E+00 0.91395978E+00 0.92830961E+00 0.94082412E+00 0.95162288E+00 + 0.96084656E+00 0.96864634E+00 0.97517432E+00 0.98057734E+00 0.98499445E+00 + 0.98855663E+00 0.99138701E+00 0.99360069E+00 0.99530408E+00 0.99659373E+00 + 0.99755514E+00 0.99826180E+00 0.99877485E+00 0.99914348E+00 0.99940602E+00 + 0.99959159E+00 0.99972180E+00 0.99981244E+00 0.99987500E+00 0.99991773E+00 + 0.99994658E+00 0.99996580E+00 0.99997844E+00 0.99998661E+00 0.99999182E+00 + 0.99999508E+00 0.99999709E+00 0.99999831E+00 0.99999903E+00 0.99999946E+00 + 0.99999970E+00 0.99999984E+00 0.99999991E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10180925E-02 0.30542776E-02 0.61085552E-02 0.10180925E-01 + 0.15271388E-01 0.21379943E-01 0.28506591E-01 0.36651331E-01 0.45814164E-01 + 0.55995089E-01 0.67194107E-01 0.79411217E-01 0.92646420E-01 0.10689972E+00 + 0.12217110E+00 0.13846058E+00 0.15576816E+00 0.17409380E+00 0.19343745E+00 + 0.21379875E+00 0.23517686E+00 0.25757001E+00 0.28097499E+00 0.30538608E+00 + 0.33079368E+00 0.35718272E+00 0.38453064E+00 0.41280381E+00 0.44195176E+00 + 0.47190145E+00 0.50255382E+00 0.53378328E+00 0.56543843E+00 0.59734271E+00 + 0.62929452E+00 0.66106728E+00 0.69240994E+00 0.72304950E+00 0.75269896E+00 + 0.78107257E+00 0.80790584E+00 0.83297391E+00 0.85610423E+00 0.87718412E+00 + 0.89616363E+00 0.91305267E+00 0.92791217E+00 0.94084159E+00 0.95196669E+00 + 0.96142991E+00 0.96938330E+00 0.97598358E+00 0.98138872E+00 0.98575471E+00 + 0.98923217E+00 0.99196282E+00 0.99407648E+00 0.99568913E+00 0.99690195E+00 + 0.99780123E+00 0.99845883E+00 0.99893325E+00 0.99927102E+00 0.99950836E+00 + 0.99967293E+00 0.99978548E+00 0.99986137E+00 0.99991177E+00 0.99994474E+00 + 0.99996594E+00 0.99997936E+00 0.99998771E+00 0.99999281E+00 0.99999587E+00 + 0.99999767E+00 0.99999871E+00 0.99999930E+00 0.99999963E+00 0.99999981E+00 + 0.99999990E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10062728E-02 0.30188183E-02 0.60376366E-02 0.10062728E-01 + 0.15094092E-01 0.21131728E-01 0.28175638E-01 0.36225820E-01 0.45282275E-01 + 0.55345002E-01 0.66414003E-01 0.78489276E-01 0.91570822E-01 0.10565864E+00 + 0.12075273E+00 0.13685309E+00 0.15395971E+00 0.17207248E+00 0.19119102E+00 + 0.21131438E+00 0.23244094E+00 0.25456851E+00 0.27769432E+00 0.30181425E+00 + 0.32692098E+00 0.35300171E+00 0.38003587E+00 0.40799241E+00 0.43682607E+00 + 0.46647261E+00 0.49684461E+00 0.52782927E+00 0.55928749E+00 0.59105274E+00 + 0.62293007E+00 0.65469528E+00 0.68609330E+00 0.71683894E+00 0.74662737E+00 + 0.77515724E+00 0.80215856E+00 0.82741368E+00 0.85076541E+00 0.87211516E+00 + 0.89141759E+00 0.90867537E+00 0.92393365E+00 0.93727282E+00 0.94880078E+00 + 0.95864595E+00 0.96695128E+00 0.97386902E+00 0.97955610E+00 0.98417007E+00 + 0.98786492E+00 0.99078696E+00 0.99307087E+00 0.99483671E+00 0.99618834E+00 + 0.99721315E+00 0.99798300E+00 0.99855591E+00 0.99897804E+00 0.99928574E+00 + 0.99950739E+00 0.99966499E+00 0.99977551E+00 0.99985186E+00 0.99990378E+00 + 0.99993851E+00 0.99996136E+00 0.99997613E+00 0.99998551E+00 0.99999137E+00 + 0.99999495E+00 0.99999710E+00 0.99999836E+00 0.99999910E+00 0.99999951E+00 + 0.99999974E+00 0.99999987E+00 0.99999993E+00 0.99999997E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.98681769E-03 0.29604531E-02 0.59209061E-02 0.98681769E-02 + 0.14802265E-01 0.20723171E-01 0.27630895E-01 0.35525437E-01 0.44406796E-01 + 0.54274973E-01 0.65129967E-01 0.76971779E-01 0.89800409E-01 0.10361586E+00 + 0.11841812E+00 0.13420721E+00 0.15098311E+00 0.16874582E+00 0.18749536E+00 + 0.20723170E+00 0.22795475E+00 0.24966419E+00 0.27235907E+00 0.29603720E+00 + 0.32069389E+00 0.34631962E+00 0.37289690E+00 0.40039717E+00 0.42877893E+00 + 0.45798668E+00 0.48794821E+00 0.51856791E+00 0.54971852E+00 0.58123579E+00 + 0.61291893E+00 0.64453741E+00 0.67584216E+00 0.70657793E+00 0.73649268E+00 + 0.76534223E+00 0.79289206E+00 0.81892057E+00 0.84322720E+00 0.86564448E+00 + 0.88604980E+00 0.90437245E+00 0.92059545E+00 0.93475422E+00 0.94693368E+00 + 0.95726273E+00 0.96590481E+00 0.97304482E+00 0.97887492E+00 0.98358286E+00 + 0.98734444E+00 0.99031989E+00 0.99265216E+00 0.99446590E+00 0.99586685E+00 + 0.99694216E+00 0.99776192E+00 0.99838171E+00 0.99884549E+00 0.99918821E+00 + 0.99943787E+00 0.99961690E+00 0.99974316E+00 0.99983067E+00 0.99989025E+00 + 0.99993009E+00 0.99995625E+00 0.99997310E+00 0.99998376E+00 0.99999038E+00 + 0.99999440E+00 0.99999681E+00 0.99999821E+00 0.99999902E+00 0.99999947E+00 + 0.99999972E+00 0.99999986E+00 0.99999993E+00 0.99999997E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.98307999E-03 0.29492400E-02 0.58984799E-02 0.98307999E-02 + 0.14746200E-01 0.20644680E-01 0.27526240E-01 0.35390880E-01 0.44238600E-01 + 0.54069399E-01 0.64883279E-01 0.76680239E-01 0.89460279E-01 0.10322340E+00 + 0.11796960E+00 0.13369888E+00 0.15041124E+00 0.16810667E+00 0.18678516E+00 + 0.20644664E+00 0.22709084E+00 0.24871692E+00 0.27132290E+00 0.29490517E+00 + 0.31945803E+00 0.34497273E+00 0.37143525E+00 0.39882261E+00 0.42709750E+00 + 0.45620208E+00 0.48605347E+00 0.51654202E+00 0.54753169E+00 0.57886114E+00 + 0.61034535E+00 0.64177858E+00 0.67293785E+00 0.70358454E+00 0.73346456E+00 + 0.76231155E+00 0.78985764E+00 0.81585177E+00 0.84007988E+00 0.86238053E+00 + 0.88265195E+00 0.90085187E+00 0.91699355E+00 0.93114031E+00 0.94339819E+00 + 0.95390592E+00 0.96282299E+00 0.97031737E+00 0.97655541E+00 0.98169530E+00 + 0.98588408E+00 0.98925687E+00 0.99193704E+00 0.99403646E+00 0.99565575E+00 + 0.99688441E+00 0.99780086E+00 0.99847253E+00 0.99895612E+00 0.99929812E+00 + 0.99953573E+00 0.99969789E+00 0.99980663E+00 0.99987827E+00 0.99992464E+00 + 0.99995414E+00 0.99997256E+00 0.99998387E+00 0.99999069E+00 0.99999472E+00 + 0.99999706E+00 0.99999840E+00 0.99999914E+00 0.99999955E+00 0.99999977E+00 + 0.99999989E+00 0.99999994E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16871780E-02 0.50614965E-02 0.10122851E-01 0.16871125E-01 + 0.25306365E-01 0.35428727E-01 0.47238189E-01 0.60734494E-01 0.75917200E-01 + 0.92785402E-01 0.11133727E+00 0.13156959E+00 0.15347659E+00 0.17704820E+00 + 0.20226964E+00 0.22912199E+00 0.25758018E+00 0.28760573E+00 0.31913670E+00 + 0.35207970E+00 0.38630583E+00 0.42165125E+00 0.45792026E+00 0.49488569E+00 + 0.53228645E+00 0.56982573E+00 0.60717324E+00 0.64397410E+00 0.67986019E+00 + 0.71446412E+00 0.74744344E+00 0.77850952E+00 0.80744298E+00 0.83409126E+00 + 0.85835864E+00 0.88019755E+00 0.89960625E+00 0.91663143E+00 0.93136831E+00 + 0.94395712E+00 0.95457889E+00 0.96344760E+00 0.97079510E+00 0.97685193E+00 + 0.98183011E+00 0.98591173E+00 0.98924430E+00 0.99194228E+00 0.99409433E+00 + 0.99577446E+00 0.99705232E+00 0.99799721E+00 0.99867586E+00 0.99914880E+00 + 0.99946834E+00 0.99967774E+00 0.99981096E+00 0.99989320E+00 0.99994224E+00 + 0.99997029E+00 0.99998554E+00 0.99999337E+00 0.99999715E+00 0.99999885E+00 + 0.99999957E+00 0.99999985E+00 0.99999995E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.17305203E-02 0.51915582E-02 0.10383098E-01 0.17305092E-01 + 0.25957405E-01 0.36339742E-01 0.48451613E-01 0.62292479E-01 0.77861884E-01 + 0.95159071E-01 0.11418221E+00 0.13492794E+00 0.15739111E+00 0.18156339E+00 + 0.20743015E+00 0.23496716E+00 0.26413670E+00 0.29488146E+00 0.32711926E+00 + 0.36074067E+00 0.39560639E+00 0.43154203E+00 0.46833207E+00 0.50571828E+00 + 0.54340594E+00 0.58107206E+00 0.61837161E+00 0.65494646E+00 0.69044078E+00 + 0.72452074E+00 0.75689055E+00 0.78730042E+00 0.81555178E+00 0.84150367E+00 + 0.86507453E+00 0.88623544E+00 0.90500261E+00 0.92143721E+00 0.93564821E+00 + 0.94778915E+00 0.95804500E+00 0.96661493E+00 0.97369860E+00 0.97948906E+00 + 0.98416901E+00 0.98790773E+00 0.99085917E+00 0.99316182E+00 0.99493903E+00 + 0.99629842E+00 0.99733060E+00 0.99810846E+00 0.99868837E+00 0.99911360E+00 + 0.99941832E+00 0.99963063E+00 0.99977384E+00 0.99986696E+00 0.99992508E+00 + 0.99995973E+00 0.99997940E+00 0.99998999E+00 0.99999539E+00 0.99999799E+00 + 0.99999918E+00 0.99999968E+00 0.99999988E+00 0.99999996E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16883479E-02 0.50650442E-02 0.10130077E-01 0.16883409E-01 + 0.25324949E-01 0.35454455E-01 0.47271453E-01 0.60775294E-01 0.75965235E-01 + 0.92840339E-01 0.11139894E+00 0.13163759E+00 0.15354979E+00 0.17712441E+00 + 0.20234405E+00 0.22918345E+00 0.25760780E+00 0.28757047E+00 0.31900896E+00 + 0.35183783E+00 0.38593858E+00 0.42115125E+00 0.45727549E+00 0.49408029E+00 + 0.53131012E+00 0.56868173E+00 0.60587887E+00 0.64255387E+00 0.67833884E+00 + 0.71286700E+00 0.74579921E+00 0.77684537E+00 0.80577393E+00 0.83241520E+00 + 0.85666636E+00 0.87849523E+00 0.89793539E+00 0.91507309E+00 0.93002969E+00 + 0.94294483E+00 0.95396735E+00 0.96325554E+00 0.97097972E+00 0.97732037E+00 + 0.98246096E+00 0.98657872E+00 0.98983721E+00 0.99238285E+00 0.99434547E+00 + 0.99584017E+00 0.99696766E+00 0.99781277E+00 0.99844322E+00 0.99891074E+00 + 0.99925402E+00 0.99950223E+00 0.99967792E+00 0.99979886E+00 0.99987931E+00 + 0.99993070E+00 0.99996206E+00 0.99998025E+00 0.99999025E+00 0.99999544E+00 + 0.99999799E+00 0.99999916E+00 0.99999967E+00 0.99999988E+00 0.99999996E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16775899E-02 0.50327693E-02 0.10065532E-01 0.16775859E-01 + 0.25163697E-01 0.35228947E-01 0.46971450E-01 0.60390967E-01 0.75487140E-01 + 0.92259427E-01 0.11070690E+00 0.13082769E+00 0.15261801E+00 0.17607073E+00 + 0.20117387E+00 0.22790880E+00 0.25624731E+00 0.28614615E+00 0.31754074E+00 + 0.35034049E+00 0.38442529E+00 0.41964198E+00 0.45580168E+00 0.49267860E+00 + 0.53000908E+00 0.56749068E+00 0.60478546E+00 0.64153197E+00 0.67736408E+00 + 0.71192963E+00 0.74490409E+00 0.77599943E+00 0.80497227E+00 0.83163570E+00 + 0.85587226E+00 0.87763991E+00 0.89696784E+00 0.91394564E+00 0.92870976E+00 + 0.94142779E+00 0.95228193E+00 0.96145571E+00 0.96912797E+00 0.97547316E+00 + 0.98066313E+00 0.98486591E+00 0.98824110E+00 0.99093466E+00 0.99307515E+00 + 0.99477142E+00 0.99611185E+00 0.99716505E+00 0.99798281E+00 0.99860489E+00 + 0.99906461E+00 0.99939260E+00 0.99961776E+00 0.99976631E+00 0.99986057E+00 + 0.99991830E+00 0.99995262E+00 0.99997263E+00 0.99998419E+00 0.99999088E+00 + 0.99999479E+00 0.99999708E+00 0.99999841E+00 0.99999917E+00 0.99999958E+00 + 0.99999980E+00 0.99999991E+00 0.99999996E+00 0.99999999E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16326358E-02 0.48979049E-02 0.97958021E-02 0.16326317E-01 + 0.24489426E-01 0.34285092E-01 0.45713245E-01 0.58773758E-01 0.73466355E-01 + 0.89790399E-01 0.10774455E+00 0.12732625E+00 0.14853102E+00 0.17135150E+00 + 0.19577611E+00 0.22178648E+00 0.24935364E+00 0.27843437E+00 0.30896869E+00 + 0.34087843E+00 0.37406491E+00 0.40840350E+00 0.44373610E+00 0.47986566E+00 + 0.51655358E+00 0.55351798E+00 0.59043500E+00 0.62695030E+00 0.66270337E+00 + 0.69735578E+00 0.73061086E+00 0.76221888E+00 0.79197225E+00 0.81969951E+00 + 0.84526333E+00 0.86856170E+00 0.88953139E+00 0.90815356E+00 0.92445977E+00 + 0.93853449E+00 0.95051076E+00 0.96055906E+00 0.96887316E+00 0.97565780E+00 + 0.98111994E+00 0.98546204E+00 0.98887595E+00 0.99153716E+00 0.99359970E+00 + 0.99519295E+00 0.99642109E+00 0.99736529E+00 0.99808770E+00 0.99863594E+00 + 0.99904711E+00 0.99935067E+00 0.99957030E+00 0.99972518E+00 0.99983094E+00 + 0.99990040E+00 0.99994401E+00 0.99997005E+00 0.99998479E+00 0.99999268E+00 + 0.99999666E+00 0.99999856E+00 0.99999941E+00 0.99999977E+00 0.99999992E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15849803E-02 0.47549416E-02 0.95098850E-02 0.15849809E-01 + 0.23774708E-01 0.33284567E-01 0.44379349E-01 0.57058964E-01 0.71323233E-01 + 0.87171824E-01 0.10460408E+00 0.12361871E+00 0.14421328E+00 0.16638344E+00 + 0.19012168E+00 0.21541576E+00 0.24224696E+00 0.27058806E+00 0.30039977E+00 + 0.33162500E+00 0.36418267E+00 0.39796283E+00 0.43282296E+00 0.46858328E+00 + 0.50502136E+00 0.54186914E+00 0.57881679E+00 0.61552755E+00 0.65165953E+00 + 0.68688152E+00 0.72087519E+00 0.75333168E+00 0.78395584E+00 0.81248420E+00 + 0.83871033E+00 0.86250417E+00 0.88381671E+00 0.90267201E+00 0.91915369E+00 + 0.93339233E+00 0.94555568E+00 0.95583889E+00 0.96445194E+00 0.97160555E+00 + 0.97749968E+00 0.98231752E+00 0.98622381E+00 0.98936488E+00 0.99186926E+00 + 0.99384906E+00 0.99540140E+00 0.99660928E+00 0.99754163E+00 0.99825399E+00 + 0.99879042E+00 0.99918622E+00 0.99947053E+00 0.99966814E+00 0.99980028E+00 + 0.99988491E+00 0.99993663E+00 0.99996672E+00 0.99998335E+00 0.99999207E+00 + 0.99999641E+00 0.99999846E+00 0.99999937E+00 0.99999976E+00 0.99999991E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15405174E-02 0.46215513E-02 0.92431009E-02 0.15405165E-01 + 0.23107738E-01 0.32350803E-01 0.43134326E-01 0.55458233E-01 0.69322351E-01 + 0.84726295E-01 0.10166938E+00 0.12015070E+00 0.14016911E+00 0.16172251E+00 + 0.18480613E+00 0.20941034E+00 0.23551839E+00 0.26310409E+00 0.29212926E+00 + 0.32254035E+00 0.35426477E+00 0.38720792E+00 0.42124906E+00 0.45623429E+00 + 0.49196930E+00 0.52821761E+00 0.56470463E+00 0.60112526E+00 0.63715449E+00 + 0.67246143E+00 0.70672390E+00 0.73963787E+00 0.77092147E+00 0.80032182E+00 + 0.82762624E+00 0.85266983E+00 0.87533831E+00 0.89557350E+00 0.91338216E+00 + 0.92883964E+00 0.94208234E+00 0.95329149E+00 0.96267410E+00 0.97044574E+00 + 0.97681837E+00 0.98199365E+00 0.98615853E+00 0.98948093E+00 0.99210646E+00 + 0.99415800E+00 0.99573872E+00 0.99693686E+00 0.99782952E+00 0.99848401E+00 + 0.99895736E+00 0.99929565E+00 0.99953443E+00 0.99970031E+00 0.99981306E+00 + 0.99988750E+00 0.99993494E+00 0.99996393E+00 0.99998088E+00 0.99999031E+00 + 0.99999531E+00 0.99999784E+00 0.99999905E+00 0.99999960E+00 0.99999984E+00 + 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15254039E-02 0.45762118E-02 0.91524236E-02 0.15254039E-01 + 0.22881057E-01 0.32033475E-01 0.42711287E-01 0.54914482E-01 0.68643032E-01 + 0.83896877E-01 0.10067585E+00 0.11897946E+00 0.13880649E+00 0.16015433E+00 + 0.18301784E+00 0.20738745E+00 0.23324719E+00 0.26057344E+00 0.28933443E+00 + 0.31948853E+00 0.35097913E+00 0.38372614E+00 0.41761741E+00 0.45250326E+00 + 0.48819344E+00 0.52445618E+00 0.56102052E+00 0.59758077E+00 0.63380237E+00 + 0.66933164E+00 0.70381172E+00 0.73690347E+00 0.76830692E+00 0.79777668E+00 + 0.82512680E+00 0.85022718E+00 0.87299781E+00 0.89340510E+00 0.91146192E+00 + 0.92723016E+00 0.94082095E+00 0.95238765E+00 0.96211258E+00 0.97019262E+00 + 0.97682780E+00 0.98221312E+00 0.98653256E+00 0.98995451E+00 0.99262920E+00 + 0.99468854E+00 0.99624741E+00 0.99740528E+00 0.99824743E+00 0.99884581E+00 + 0.99926008E+00 0.99953883E+00 0.99972076E+00 0.99983578E+00 0.99990621E+00 + 0.99994797E+00 0.99997196E+00 0.99998533E+00 0.99999255E+00 0.99999634E+00 + 0.99999825E+00 0.99999920E+00 0.99999964E+00 0.99999985E+00 0.99999994E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14802512E-02 0.44407533E-02 0.88815062E-02 0.14802509E-01 + 0.22203759E-01 0.31085248E-01 0.41446958E-01 0.53288835E-01 0.66610754E-01 + 0.81412508E-01 0.97693843E-01 0.11545445E+00 0.13469374E+00 0.15541026E+00 + 0.17760054E+00 0.20125734E+00 0.22636744E+00 0.25290931E+00 0.28085078E+00 + 0.31014632E+00 0.34073353E+00 0.37252927E+00 0.40542681E+00 0.43929404E+00 + 0.47397151E+00 0.50926925E+00 0.54496228E+00 0.58078816E+00 0.61645305E+00 + 0.65164598E+00 0.68605237E+00 0.71936254E+00 0.75127841E+00 0.78152135E+00 + 0.80984268E+00 0.83603821E+00 0.85996325E+00 0.88154054E+00 0.90075694E+00 + 0.91765376E+00 0.93231787E+00 0.94487595E+00 0.95548929E+00 0.96434677E+00 + 0.97165542E+00 0.97762899E+00 0.98247523E+00 0.98638426E+00 0.98952082E+00 + 0.99202226E+00 0.99400129E+00 0.99555112E+00 0.99675024E+00 0.99766560E+00 + 0.99835423E+00 0.99886403E+00 0.99923459E+00 0.99949817E+00 0.99968089E+00 + 0.99980378E+00 0.99988364E+00 0.99993360E+00 0.99996360E+00 0.99998085E+00 + 0.99999035E+00 0.99999534E+00 0.99999785E+00 0.99999905E+00 0.99999960E+00 + 0.99999984E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14393580E-02 0.43180717E-02 0.86361380E-02 0.14393558E-01 + 0.21590337E-01 0.30226480E-01 0.40301986E-01 0.51816849E-01 0.64771055E-01 + 0.79164559E-01 0.94997263E-01 0.11226897E+00 0.13097926E+00 0.15112715E+00 + 0.17271050E+00 0.19572478E+00 0.22016157E+00 0.24600662E+00 0.27323818E+00 + 0.30182523E+00 0.33172531E+00 0.36288112E+00 0.39521525E+00 0.42862359E+00 + 0.46296828E+00 0.49807317E+00 0.53372319E+00 0.56966658E+00 0.60561685E+00 + 0.64125551E+00 0.67624054E+00 0.71022281E+00 0.74286454E+00 0.77385532E+00 + 0.80292706E+00 0.82986787E+00 0.85453039E+00 0.87683187E+00 0.89674847E+00 + 0.91430894E+00 0.92959055E+00 0.94271477E+00 0.95383964E+00 0.96314921E+00 + 0.97084224E+00 0.97712169E+00 0.98218573E+00 0.98622098E+00 0.98939837E+00 + 0.99187183E+00 0.99377836E+00 0.99523797E+00 0.99635274E+00 0.99720601E+00 + 0.99786273E+00 0.99837145E+00 0.99876746E+00 0.99907626E+00 0.99931650E+00 + 0.99950226E+00 0.99964450E+00 0.99975191E+00 0.99983152E+00 0.99988910E+00 + 0.99992950E+00 0.99995685E+00 0.99997463E+00 0.99998570E+00 0.99999228E+00 + 0.99999601E+00 0.99999803E+00 0.99999907E+00 0.99999958E+00 0.99999982E+00 + 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13924648E-02 0.41773945E-02 0.83547890E-02 0.13924648E-01 + 0.20886972E-01 0.29241761E-01 0.38989012E-01 0.50128726E-01 0.62660901E-01 + 0.76585539E-01 0.91902638E-01 0.10861218E+00 0.12671411E+00 0.14620816E+00 + 0.16709350E+00 0.18936819E+00 0.21302837E+00 0.23806709E+00 0.26447179E+00 + 0.29222053E+00 0.32127848E+00 0.35159546E+00 0.38310428E+00 0.41571769E+00 + 0.44932126E+00 0.48376341E+00 0.51884747E+00 0.55433117E+00 0.58993452E+00 + 0.62535148E+00 0.66025851E+00 0.69431976E+00 0.72719656E+00 0.75856722E+00 + 0.78815291E+00 0.81573736E+00 0.84117145E+00 0.86436619E+00 0.88528499E+00 + 0.90394092E+00 0.92039431E+00 0.93474408E+00 0.94711454E+00 0.95764536E+00 + 0.96648758E+00 0.97380307E+00 0.97976360E+00 0.98454773E+00 0.98833467E+00 + 0.99129619E+00 0.99358847E+00 0.99534623E+00 0.99668060E+00 0.99768057E+00 + 0.99841711E+00 0.99894768E+00 0.99931987E+00 0.99957327E+00 0.99974035E+00 + 0.99984690E+00 0.99991257E+00 0.99995166E+00 0.99997414E+00 0.99998662E+00 + 0.99999331E+00 0.99999677E+00 0.99999849E+00 0.99999932E+00 0.99999971E+00 + 0.99999988E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13692648E-02 0.41077944E-02 0.82155888E-02 0.13692648E-01 + 0.20538972E-01 0.28754560E-01 0.38339409E-01 0.49293495E-01 0.61616723E-01 + 0.75308837E-01 0.90369370E-01 0.10679770E+00 0.12459317E+00 0.14375516E+00 + 0.16428272E+00 0.18617376E+00 0.20942395E+00 0.23402607E+00 0.25996951E+00 + 0.28723893E+00 0.31581039E+00 0.34564528E+00 0.37668397E+00 0.40884127E+00 + 0.44200393E+00 0.47602959E+00 0.51074564E+00 0.54594658E+00 0.58138872E+00 + 0.61678548E+00 0.65181018E+00 0.68610983E+00 0.71932642E+00 0.75111966E+00 + 0.78118586E+00 0.80927224E+00 0.83518994E+00 0.85882355E+00 0.88012985E+00 + 0.89912519E+00 0.91587167E+00 0.93047014E+00 0.94305670E+00 0.95379524E+00 + 0.96286505E+00 0.97044869E+00 0.97672428E+00 0.98186184E+00 0.98602157E+00 + 0.98935218E+00 0.99198894E+00 0.99405161E+00 0.99564389E+00 0.99685456E+00 + 0.99775963E+00 0.99842414E+00 0.99890324E+00 0.99924280E+00 0.99947997E+00 + 0.99964389E+00 0.99975660E+00 0.99983413E+00 0.99988767E+00 0.99992480E+00 + 0.99995052E+00 0.99996820E+00 0.99998014E+00 0.99998800E+00 0.99999300E+00 + 0.99999608E+00 0.99999788E+00 0.99999891E+00 0.99999946E+00 0.99999974E+00 + 0.99999988E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13457951E-02 0.40373853E-02 0.80747706E-02 0.13457951E-01 + 0.20186926E-01 0.28261697E-01 0.37682263E-01 0.48448623E-01 0.60560779E-01 + 0.74018727E-01 0.88822462E-01 0.10497195E+00 0.12246708E+00 0.14130746E+00 + 0.16149230E+00 0.18302013E+00 0.20588838E+00 0.23009269E+00 0.25562575E+00 + 0.28247482E+00 0.31061686E+00 0.34001292E+00 0.37060557E+00 0.40231904E+00 + 0.43505765E+00 0.46870035E+00 0.50309449E+00 0.53805149E+00 0.57334427E+00 + 0.60870727E+00 0.64384020E+00 0.67841742E+00 0.71210340E+00 0.74456940E+00 + 0.77550496E+00 0.80462482E+00 0.83167900E+00 0.85647044E+00 0.87887423E+00 + 0.89884795E+00 0.91642810E+00 0.93171495E+00 0.94485188E+00 0.95600631E+00 + 0.96535690E+00 0.97308744E+00 0.97938444E+00 0.98443474E+00 0.98842116E+00 + 0.99151679E+00 0.99388027E+00 0.99565331E+00 0.99695984E+00 0.99790585E+00 + 0.99857943E+00 0.99905152E+00 0.99937742E+00 0.99959898E+00 0.99974712E+00 + 0.99984431E+00 0.99990666E+00 0.99994565E+00 0.99996933E+00 0.99998326E+00 + 0.99999117E+00 0.99999551E+00 0.99999780E+00 0.99999896E+00 0.99999953E+00 + 0.99999980E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13030603E-02 0.39091809E-02 0.78183617E-02 0.13030603E-01 + 0.19545904E-01 0.27364266E-01 0.36485688E-01 0.46910170E-01 0.58637713E-01 + 0.71668315E-01 0.86001973E-01 0.10163866E+00 0.11857829E+00 0.13682061E+00 + 0.15636503E+00 0.17721040E+00 0.19935450E+00 0.22279364E+00 0.24752219E+00 + 0.27353156E+00 0.30080778E+00 0.32932814E+00 0.35905761E+00 0.38994508E+00 + 0.42191846E+00 0.45487811E+00 0.48868871E+00 0.52317187E+00 0.55810454E+00 + 0.59322563E+00 0.62824679E+00 0.66286027E+00 0.69674251E+00 0.72955728E+00 + 0.76096609E+00 0.79064944E+00 0.81833421E+00 0.84381740E+00 0.86697726E+00 + 0.88776935E+00 0.90621413E+00 0.92238394E+00 0.93639245E+00 0.94838584E+00 + 0.95853462E+00 0.96702476E+00 0.97404797E+00 0.97979250E+00 0.98443603E+00 + 0.98814193E+00 0.99105936E+00 0.99332499E+00 0.99506309E+00 0.99638338E+00 + 0.99737838E+00 0.99812274E+00 0.99867501E+00 0.99908058E+00 0.99937458E+00 + 0.99958425E+00 0.99973076E+00 0.99983062E+00 0.99989673E+00 0.99993910E+00 + 0.99996532E+00 0.99998094E+00 0.99998991E+00 0.99999485E+00 0.99999747E+00 + 0.99999880E+00 0.99999946E+00 0.99999976E+00 0.99999990E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12792436E-02 0.38377307E-02 0.76754615E-02 0.12792436E-01 + 0.19188654E-01 0.26864115E-01 0.35818820E-01 0.46052769E-01 0.57565961E-01 + 0.70358397E-01 0.84430076E-01 0.99780997E-01 0.11641115E+00 0.13432048E+00 + 0.15350872E+00 0.17397505E+00 0.19571754E+00 0.21873253E+00 0.24301419E+00 + 0.26855380E+00 0.29533800E+00 0.32334575E+00 0.35254418E+00 0.38288392E+00 + 0.41429397E+00 0.44667843E+00 0.47991620E+00 0.51385969E+00 0.54832747E+00 + 0.58309479E+00 0.61789058E+00 0.65240539E+00 0.68630979E+00 0.71927634E+00 + 0.75099350E+00 0.78116994E+00 0.80953920E+00 0.83587164E+00 0.85999003E+00 + 0.88178258E+00 0.90120936E+00 0.91829940E+00 0.93314158E+00 0.94587338E+00 + 0.95666685E+00 0.96571190E+00 0.97320150E+00 0.97932320E+00 0.98425636E+00 + 0.98817177E+00 0.99123079E+00 0.99358349E+00 0.99536606E+00 0.99669820E+00 + 0.99768129E+00 0.99839791E+00 0.99891327E+00 0.99927793E+00 0.99953098E+00 + 0.99970266E+00 0.99981629E+00 0.99988951E+00 0.99993540E+00 0.99996331E+00 + 0.99997979E+00 0.99998921E+00 0.99999442E+00 0.99999721E+00 0.99999865E+00 + 0.99999937E+00 0.99999972E+00 0.99999988E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12561267E-02 0.37683801E-02 0.75367601E-02 0.12561267E-01 + 0.18841900E-01 0.26378660E-01 0.35171547E-01 0.45220561E-01 0.56525701E-01 + 0.69086968E-01 0.82904361E-01 0.97977881E-01 0.11430752E+00 0.13189327E+00 + 0.15073495E+00 0.17083196E+00 0.19218291E+00 0.21478534E+00 0.23863546E+00 + 0.26372783E+00 0.29005398E+00 0.31759959E+00 0.34634047E+00 0.37623807E+00 + 0.40723359E+00 0.43924058E+00 0.47213799E+00 0.50576719E+00 0.53993409E+00 + 0.57441325E+00 0.60894928E+00 0.64325603E+00 0.67702014E+00 0.70991509E+00 + 0.74162192E+00 0.77184647E+00 0.80032972E+00 0.82685585E+00 0.85126228E+00 + 0.87344857E+00 0.89337793E+00 0.91106932E+00 0.92658497E+00 0.94002048E+00 + 0.95150105E+00 0.96118038E+00 0.96923646E+00 0.97586106E+00 0.98124650E+00 + 0.98557514E+00 0.98901419E+00 0.99171420E+00 0.99380907E+00 0.99541612E+00 + 0.99663635E+00 0.99755479E+00 0.99824114E+00 0.99875080E+00 0.99912650E+00 + 0.99940061E+00 0.99959763E+00 0.99973646E+00 0.99983191E+00 0.99989574E+00 + 0.99993714E+00 0.99996317E+00 0.99997902E+00 0.99998838E+00 0.99999374E+00 + 0.99999671E+00 0.99999832E+00 0.99999916E+00 0.99999959E+00 0.99999981E+00 + 0.99999991E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12519337E-02 0.37558011E-02 0.75116021E-02 0.12519337E-01 + 0.18779005E-01 0.26290607E-01 0.35054143E-01 0.45069613E-01 0.56337016E-01 + 0.68856353E-01 0.82627623E-01 0.97650828E-01 0.11392596E+00 0.13145303E+00 + 0.15023203E+00 0.17026289E+00 0.19154529E+00 0.21407820E+00 0.23785894E+00 + 0.26288122E+00 0.28913284E+00 0.31659388E+00 0.34523504E+00 0.37501459E+00 + 0.40587422E+00 0.43773544E+00 0.47049674E+00 0.50402851E+00 0.53816314E+00 + 0.57268422E+00 0.60732383E+00 0.64177244E+00 0.67569753E+00 0.70876299E+00 + 0.74064476E+00 0.77104205E+00 0.79968551E+00 0.82634735E+00 0.85085553E+00 + 0.87310446E+00 0.89305547E+00 0.91073051E+00 0.92620577E+00 0.93960400E+00 + 0.95108102E+00 0.96080905E+00 0.96896375E+00 0.97571821E+00 0.98124131E+00 + 0.98569651E+00 0.98923956E+00 0.99201573E+00 0.99415744E+00 0.99578272E+00 + 0.99699474E+00 0.99788227E+00 0.99852066E+00 0.99897278E+00 0.99928955E+00 + 0.99951044E+00 0.99966457E+00 0.99977238E+00 0.99984779E+00 0.99990019E+00 + 0.99993611E+00 0.99996022E+00 0.99997596E+00 0.99998593E+00 0.99999203E+00 + 0.99999564E+00 0.99999770E+00 0.99999883E+00 0.99999942E+00 0.99999973E+00 + 0.99999988E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12326121E-02 0.36978362E-02 0.73956724E-02 0.12326121E-01 + 0.18489181E-01 0.25884853E-01 0.34513138E-01 0.44374034E-01 0.55467543E-01 + 0.67793664E-01 0.81352396E-01 0.96143741E-01 0.11216770E+00 0.12942427E+00 + 0.14791345E+00 0.16763520E+00 0.18858933E+00 0.21077489E+00 0.23418912E+00 + 0.25882605E+00 0.28467536E+00 0.31172110E+00 0.33993946E+00 0.36929575E+00 + 0.39974178E+00 0.43121394E+00 0.46363117E+00 0.49688843E+00 0.53084377E+00 + 0.56530341E+00 0.60001377E+00 0.63466710E+00 0.66892035E+00 0.70241926E+00 + 0.73481887E+00 0.76579695E+00 0.79506262E+00 0.82236538E+00 0.84750827E+00 + 0.87036165E+00 0.89087001E+00 0.90904766E+00 0.92496585E+00 0.93873830E+00 + 0.95050888E+00 0.96044224E+00 0.96871696E+00 0.97552023E+00 0.98104274E+00 + 0.98547287E+00 0.98898977E+00 0.99175598E+00 0.99391204E+00 0.99557501E+00 + 0.99684087E+00 0.99778878E+00 0.99848500E+00 0.99898541E+00 0.99933674E+00 + 0.99957729E+00 0.99973767E+00 0.99984165E+00 0.99990712E+00 0.99994711E+00 + 0.99997077E+00 0.99998434E+00 0.99999187E+00 0.99999591E+00 0.99999801E+00 + 0.99999906E+00 0.99999957E+00 0.99999981E+00 0.99999992E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11992387E-02 0.35977161E-02 0.71954321E-02 0.11992387E-01 + 0.17988580E-01 0.25184012E-01 0.33578683E-01 0.43172593E-01 0.53965741E-01 + 0.65958126E-01 0.79149744E-01 0.93540572E-01 0.10913054E+00 0.12591947E+00 + 0.14390701E+00 0.16309251E+00 0.18347468E+00 0.20505136E+00 0.22781939E+00 + 0.25177419E+00 0.27690916E+00 0.30321441E+00 0.33067379E+00 0.35925993E+00 + 0.38892841E+00 0.41961240E+00 0.45121875E+00 0.48362731E+00 0.51669280E+00 + 0.55024519E+00 0.58408644E+00 0.61798495E+00 0.65167286E+00 0.68485185E+00 + 0.71720674E+00 0.74842268E+00 0.77820356E+00 0.80628706E+00 0.83245304E+00 + 0.85652885E+00 0.87839603E+00 0.89799696E+00 0.91533607E+00 0.93047411E+00 + 0.94351849E+00 0.95461349E+00 0.96393118E+00 0.97166137E+00 0.97800055E+00 + 0.98314128E+00 0.98726358E+00 0.99052967E+00 0.99308211E+00 0.99504474E+00 + 0.99652522E+00 0.99761771E+00 0.99840457E+00 0.99895694E+00 0.99933460E+00 + 0.99958599E+00 0.99974887E+00 0.99985155E+00 0.99991452E+00 0.99995207E+00 + 0.99997385E+00 0.99998612E+00 0.99999284E+00 0.99999641E+00 0.99999825E+00 + 0.99999918E+00 0.99999962E+00 0.99999983E+00 0.99999993E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11876179E-02 0.35628537E-02 0.71257074E-02 0.11876179E-01 + 0.17814269E-01 0.24939976E-01 0.33253301E-01 0.42754245E-01 0.53442806E-01 + 0.65318985E-01 0.78382782E-01 0.92634192E-01 0.10807318E+00 0.12469953E+00 + 0.14251274E+00 0.16151208E+00 0.18169699E+00 0.20306726E+00 0.22562284E+00 + 0.24936292E+00 0.27428415E+00 0.30037812E+00 0.32762835E+00 0.35600740E+00 + 0.38547425E+00 0.41597171E+00 0.44742279E+00 0.47972467E+00 0.51274135E+00 + 0.54629860E+00 0.58018390E+00 0.61415178E+00 0.64793226E+00 0.68123862E+00 + 0.71377306E+00 0.74523120E+00 0.77530697E+00 0.80370383E+00 0.83015734E+00 + 0.85446271E+00 0.87649260E+00 0.89619769E+00 0.91359640E+00 0.92876277E+00 + 0.94181672E+00 0.95291532E+00 0.96224252E+00 0.96999731E+00 0.97638235E+00 + 0.98159354E+00 0.98581052E+00 0.98919075E+00 0.99186950E+00 0.99396416E+00 + 0.99557856E+00 0.99680480E+00 0.99772302E+00 0.99840098E+00 0.99889443E+00 + 0.99924824E+00 0.99949792E+00 0.99967111E+00 0.99978900E+00 0.99986762E+00 + 0.99991889E+00 0.99995153E+00 0.99997178E+00 0.99998400E+00 0.99999118E+00 + 0.99999527E+00 0.99999754E+00 0.99999876E+00 0.99999939E+00 0.99999971E+00 + 0.99999987E+00 0.99999994E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11600107E-02 0.34800320E-02 0.69600641E-02 0.11600107E-01 + 0.17400160E-01 0.24360224E-01 0.32480299E-01 0.41760384E-01 0.52200481E-01 + 0.63800587E-01 0.76560705E-01 0.90480833E-01 0.10556097E+00 0.12180112E+00 + 0.13920127E+00 0.15776135E+00 0.17748097E+00 0.19835921E+00 0.22039440E+00 + 0.24358379E+00 0.26792211E+00 0.29339938E+00 0.31999892E+00 0.34769625E+00 + 0.37645812E+00 0.40623995E+00 0.43698041E+00 0.46859310E+00 0.50095770E+00 + 0.53391387E+00 0.56726095E+00 0.60076352E+00 0.63415832E+00 0.66715881E+00 + 0.69946064E+00 0.73075486E+00 0.76074768E+00 0.78917954E+00 0.81583754E+00 + 0.84056077E+00 0.86323984E+00 0.88381255E+00 0.90225942E+00 0.91860252E+00 + 0.93290621E+00 0.94527494E+00 0.95584575E+00 0.96477629E+00 0.97223246E+00 + 0.97838026E+00 0.98338307E+00 0.98740032E+00 0.99058407E+00 0.99307391E+00 + 0.99499337E+00 0.99644933E+00 0.99753342E+00 0.99832396E+00 0.99888735E+00 + 0.99927908E+00 0.99954445E+00 0.99971943E+00 0.99983165E+00 0.99990163E+00 + 0.99994403E+00 0.99996900E+00 0.99998330E+00 0.99999124E+00 0.99999554E+00 + 0.99999779E+00 0.99999894E+00 0.99999950E+00 0.99999978E+00 0.99999990E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11619873E-02 0.34859618E-02 0.69719236E-02 0.11619873E-01 + 0.17429809E-01 0.24401732E-01 0.32535641E-01 0.41831514E-01 0.52289252E-01 + 0.63908550E-01 0.76688802E-01 0.90629153E-01 0.10572868E+00 0.12198653E+00 + 0.13940196E+00 0.15797436E+00 0.17770332E+00 0.19858855E+00 0.22062967E+00 + 0.24382582E+00 0.26817475E+00 0.29367072E+00 0.32030189E+00 0.34804833E+00 + 0.37688003E+00 0.40675341E+00 0.43760608E+00 0.46935159E+00 0.50187500E+00 + 0.53502903E+00 0.56863023E+00 0.60245473E+00 0.63623595E+00 0.66966984E+00 + 0.70243249E+00 0.73420538E+00 0.76469414E+00 0.79363382E+00 0.82078954E+00 + 0.84596423E+00 0.86901059E+00 0.88983692E+00 0.90840493E+00 0.92472577E+00 + 0.93885969E+00 0.95091659E+00 0.96105072E+00 0.96944778E+00 0.97630994E+00 + 0.98184302E+00 0.98624638E+00 0.98970554E+00 0.99238782E+00 0.99444037E+00 + 0.99598988E+00 0.99714345E+00 0.99799031E+00 0.99860371E+00 0.99904250E+00 + 0.99935271E+00 0.99956938E+00 0.99971867E+00 0.99981987E+00 0.99988717E+00 + 0.99993096E+00 0.99995878E+00 0.99997601E+00 0.99998640E+00 0.99999250E+00 + 0.99999597E+00 0.99999790E+00 0.99999894E+00 0.99999948E+00 0.99999975E+00 + 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11413258E-02 0.34239774E-02 0.68479548E-02 0.11413258E-01 + 0.17119887E-01 0.23967842E-01 0.31957123E-01 0.41087729E-01 0.51359661E-01 + 0.62772919E-01 0.75327503E-01 0.89023394E-01 0.10386047E+00 0.11983841E+00 + 0.13695673E+00 0.15521495E+00 0.17461279E+00 0.19515018E+00 0.21682721E+00 + 0.23964391E+00 0.26359953E+00 0.28869058E+00 0.31490739E+00 0.34222988E+00 + 0.37062420E+00 0.40004064E+00 0.43041164E+00 0.46164915E+00 0.49364198E+00 + 0.52625228E+00 0.55931144E+00 0.59261819E+00 0.62594206E+00 0.65902991E+00 + 0.69161210E+00 0.72340682E+00 0.75412368E+00 0.78346939E+00 0.81116020E+00 + 0.83694250E+00 0.86061599E+00 0.88204978E+00 0.90118764E+00 0.91804478E+00 + 0.93269945E+00 0.94528057E+00 0.95595337E+00 0.96490559E+00 0.97233523E+00 + 0.97843913E+00 0.98340342E+00 0.98739766E+00 0.99057327E+00 0.99306439E+00 + 0.99498920E+00 0.99645117E+00 0.99754022E+00 0.99833395E+00 0.99889865E+00 + 0.99929012E+00 0.99955417E+00 0.99972732E+00 0.99983764E+00 0.99990592E+00 + 0.99994695E+00 0.99997091E+00 0.99998449E+00 0.99999196E+00 0.99999595E+00 + 0.99999802E+00 0.99999906E+00 0.99999957E+00 0.99999981E+00 0.99999992E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11159018E-02 0.33477053E-02 0.66954106E-02 0.11159018E-01 + 0.16738527E-01 0.23433937E-01 0.31245250E-01 0.40172464E-01 0.50215580E-01 + 0.61374597E-01 0.73649517E-01 0.87040338E-01 0.10154706E+00 0.11716969E+00 + 0.13390821E+00 0.15176264E+00 0.17073295E+00 0.19081906E+00 0.21202061E+00 + 0.23433659E+00 0.25776459E+00 0.28229929E+00 0.30793021E+00 0.33463954E+00 + 0.36240078E+00 0.39117680E+00 0.42091672E+00 0.45155252E+00 0.48299442E+00 + 0.51512353E+00 0.54778450E+00 0.58078279E+00 0.61388638E+00 0.64683116E+00 + 0.67933017E+00 0.71108585E+00 0.74180360E+00 0.77120459E+00 0.79903623E+00 + 0.82508183E+00 0.84916934E+00 0.87117774E+00 0.89104212E+00 0.90875553E+00 + 0.92436284E+00 0.93794846E+00 0.94962549E+00 0.95953011E+00 0.96781879E+00 + 0.97466416E+00 0.98024782E+00 0.98475130E+00 0.98834713E+00 0.99119179E+00 + 0.99342154E+00 0.99515148E+00 0.99647735E+00 0.99747879E+00 0.99822270E+00 + 0.99876560E+00 0.99915492E+00 0.99942956E+00 0.99962040E+00 0.99975115E+00 + 0.99983948E+00 0.99989826E+00 0.99993671E+00 0.99996141E+00 0.99997696E+00 + 0.99998653E+00 0.99999230E+00 0.99999570E+00 0.99999765E+00 0.99999875E+00 + 0.99999935E+00 0.99999967E+00 0.99999984E+00 0.99999992E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + NUCLEUS 14 7 16 8 + 21.04000 0.15000 2.55000 2.71000 + 0.00000000E+00 0.13722494E-02 0.41167481E-02 0.82334961E-02 0.13722494E-01 + 0.20583740E-01 0.28817236E-01 0.38422981E-01 0.49400974E-01 0.61751209E-01 + 0.75473666E-01 0.90568278E-01 0.10703487E+00 0.12487305E+00 0.14408198E+00 + 0.16466005E+00 0.18660430E+00 0.20990971E+00 0.23456823E+00 0.26056702E+00 + 0.28788595E+00 0.31649470E+00 0.34634990E+00 0.37739171E+00 0.40953845E+00 + 0.44268014E+00 0.47667315E+00 0.51133626E+00 0.54644883E+00 0.58175358E+00 + 0.61696390E+00 0.65177247E+00 0.68585816E+00 0.71889366E+00 0.75055917E+00 + 0.78056113E+00 0.80864849E+00 0.83462370E+00 0.85834981E+00 0.87975565E+00 + 0.89883795E+00 0.91565783E+00 0.93032998E+00 0.94300647E+00 0.95385913E+00 + 0.96306473E+00 0.97079593E+00 0.97721702E+00 0.98248252E+00 0.98673731E+00 + 0.99011807E+00 0.99275494E+00 0.99477172E+00 0.99628404E+00 0.99739656E+00 + 0.99820041E+00 0.99877187E+00 0.99917233E+00 0.99944945E+00 0.99963909E+00 + 0.99976743E+00 0.99985322E+00 0.99990966E+00 0.99994602E+00 0.99996882E+00 + 0.99998265E+00 0.99999072E+00 0.99999525E+00 0.99999767E+00 0.99999891E+00 + 0.99999951E+00 0.99999979E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13775955E-02 0.41327863E-02 0.82655724E-02 0.13775953E-01 + 0.20663926E-01 0.28929490E-01 0.38572645E-01 0.49593396E-01 0.61991739E-01 + 0.75767662E-01 0.90921121E-01 0.10745200E+00 0.12536000E+00 0.14464456E+00 + 0.16530460E+00 0.18733802E+00 0.21074046E+00 0.23550368E+00 0.26161378E+00 + 0.28904908E+00 0.31777699E+00 0.34775028E+00 0.37890369E+00 0.41115025E+00 + 0.44437645E+00 0.47843716E+00 0.51315255E+00 0.54830844E+00 0.58365741E+00 + 0.61891851E+00 0.65377845E+00 0.68789960E+00 0.72093670E+00 0.75255750E+00 + 0.78246231E+00 0.81040185E+00 0.83619311E+00 0.85972798E+00 0.88097079E+00 + 0.89994597E+00 0.91672152E+00 0.93139515E+00 0.94408598E+00 0.95493063E+00 + 0.96408078E+00 0.97169965E+00 0.97795673E+00 0.98302256E+00 0.98706426E+00 + 0.99024159E+00 0.99270357E+00 0.99458550E+00 0.99600663E+00 0.99706858E+00 + 0.99785520E+00 0.99843383E+00 0.99885737E+00 0.99916655E+00 0.99939220E+00 + 0.99955726E+00 0.99967855E+00 0.99976820E+00 0.99983484E+00 0.99988443E+00 + 0.99992111E+00 0.99994779E+00 0.99996668E+00 0.99997957E+00 0.99998801E+00 + 0.99999327E+00 0.99999640E+00 0.99999816E+00 0.99999910E+00 0.99999959E+00 + 0.99999982E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13851515E-02 0.41554546E-02 0.83109092E-02 0.13851515E-01 + 0.20777273E-01 0.29088182E-01 0.38784240E-01 0.49865443E-01 0.62331777E-01 + 0.76183209E-01 0.91419663E-01 0.10804096E+00 0.12604664E+00 0.14543563E+00 + 0.16620571E+00 0.18835289E+00 0.21187090E+00 0.23675065E+00 0.26297912E+00 + 0.29053701E+00 0.31939495E+00 0.34950875E+00 0.38081467E+00 0.41322589E+00 + 0.44662969E+00 0.48088296E+00 0.51580458E+00 0.55116872E+00 0.58670430E+00 + 0.62210213E+00 0.65702710E+00 0.69113338E+00 0.72408176E+00 0.75555704E+00 + 0.78528201E+00 0.81302605E+00 0.83861029E+00 0.86191186E+00 0.88286735E+00 + 0.90147499E+00 0.91779428E+00 0.93194017E+00 0.94407077E+00 0.95437136E+00 + 0.96303936E+00 0.97027280E+00 0.97626235E+00 0.98118590E+00 0.98520519E+00 + 0.98846417E+00 0.99108864E+00 0.99318648E+00 0.99484870E+00 0.99615145E+00 + 0.99715897E+00 0.99792639E+00 0.99850178E+00 0.99892689E+00 0.99923728E+00 + 0.99946211E+00 0.99962426E+00 0.99974094E+00 0.99982456E+00 0.99988394E+00 + 0.99992540E+00 0.99995363E+00 0.99997223E+00 0.99998401E+00 0.99999117E+00 + 0.99999533E+00 0.99999764E+00 0.99999886E+00 0.99999947E+00 0.99999977E+00 + 0.99999990E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13328368E-02 0.39985104E-02 0.79970208E-02 0.13328368E-01 + 0.19992550E-01 0.27989569E-01 0.37319421E-01 0.47982107E-01 0.59977623E-01 + 0.73305957E-01 0.87967067E-01 0.10396085E+00 0.12128707E+00 0.13994521E+00 + 0.15993424E+00 0.18125228E+00 0.20389583E+00 0.22785867E+00 0.25313038E+00 + 0.27969500E+00 0.30752906E+00 0.33659846E+00 0.36685365E+00 0.39822355E+00 + 0.43060986E+00 0.46388316E+00 0.49788081E+00 0.53240641E+00 0.56723216E+00 + 0.60210434E+00 0.63674864E+00 0.67087297E+00 0.70417118E+00 0.73633249E+00 + 0.76705546E+00 0.79606248E+00 0.82311406E+00 0.84802291E+00 0.87066522E+00 + 0.89098614E+00 0.90899846E+00 0.92477513E+00 0.93843721E+00 0.95013895E+00 + 0.96005327E+00 0.96836016E+00 0.97523906E+00 0.98086461E+00 0.98540402E+00 + 0.98901508E+00 0.99184423E+00 0.99402539E+00 0.99567938E+00 0.99691363E+00 + 0.99782130E+00 0.99848053E+00 0.99895427E+00 0.99929132E+00 0.99952840E+00 + 0.99969280E+00 0.99980472E+00 0.99987920E+00 0.99992747E+00 0.99995782E+00 + 0.99997629E+00 0.99998713E+00 0.99999327E+00 0.99999661E+00 0.99999836E+00 + 0.99999924E+00 0.99999966E+00 0.99999985E+00 0.99999994E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13169253E-02 0.39507760E-02 0.79015519E-02 0.13169253E-01 + 0.19753880E-01 0.27655431E-01 0.36873906E-01 0.47409297E-01 0.59261577E-01 + 0.72430681E-01 0.86916503E-01 0.10271892E+00 0.11983782E+00 0.13827300E+00 + 0.15802395E+00 0.17908953E+00 0.20146769E+00 0.22515481E+00 0.25014414E+00 + 0.27642262E+00 0.30396639E+00 0.33273644E+00 0.36267548E+00 0.39370605E+00 + 0.42572896E+00 0.45862183E+00 0.49223766E+00 0.52640246E+00 0.56091306E+00 + 0.59553689E+00 0.63001395E+00 0.66405929E+00 0.69736751E+00 0.72962301E+00 + 0.76051640E+00 0.78976301E+00 0.81711895E+00 0.84239231E+00 0.86544964E+00 + 0.88621919E+00 0.90469150E+00 0.92091600E+00 0.93499264E+00 0.94706073E+00 + 0.95728751E+00 0.96585748E+00 0.97296219E+00 0.97879088E+00 0.98352343E+00 + 0.98732596E+00 0.99034891E+00 0.99272639E+00 0.99457627E+00 0.99600048E+00 + 0.99708562E+00 0.99790381E+00 0.99851402E+00 0.99896363E+00 0.99929033E+00 + 0.99952388E+00 0.99968770E+00 0.99980016E+00 0.99987550E+00 0.99992462E+00 + 0.99995572E+00 0.99997480E+00 0.99998612E+00 0.99999261E+00 0.99999620E+00 + 0.99999812E+00 0.99999910E+00 0.99999959E+00 0.99999982E+00 0.99999992E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12788435E-02 0.38365304E-02 0.76730607E-02 0.12788435E-01 + 0.19182652E-01 0.26855713E-01 0.35807616E-01 0.46038363E-01 0.57547948E-01 + 0.70336355E-01 0.84403519E-01 0.99749284E-01 0.11637339E+00 0.13427547E+00 + 0.15345505E+00 0.17391123E+00 0.19564217E+00 0.21864425E+00 0.24291084E+00 + 0.26843071E+00 0.29518605E+00 0.32314985E+00 0.35228262E+00 0.38252918E+00 + 0.41381542E+00 0.44604429E+00 0.47909069E+00 0.51279618E+00 0.54696485E+00 + 0.58136138E+00 0.61571254E+00 0.64971481E+00 0.68304923E+00 0.71540027E+00 + 0.74647194E+00 0.77599880E+00 0.80375523E+00 0.82956455E+00 0.85330472E+00 + 0.87490741E+00 0.89435196E+00 0.91165853E+00 0.92688293E+00 0.94011334E+00 + 0.95146725E+00 0.96108735E+00 0.96913576E+00 0.97578667E+00 0.98121784E+00 + 0.98560214E+00 0.98910082E+00 0.99185980E+00 0.99400846E+00 0.99565975E+00 + 0.99691076E+00 0.99784360E+00 0.99852676E+00 0.99901681E+00 0.99936018E+00 + 0.99959459E+00 0.99975018E+00 0.99985043E+00 0.99991306E+00 0.99995098E+00 + 0.99997321E+00 0.99998581E+00 0.99999272E+00 0.99999639E+00 0.99999827E+00 + 0.99999920E+00 0.99999964E+00 0.99999985E+00 0.99999994E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12591228E-02 0.37773685E-02 0.75547370E-02 0.12591228E-01 + 0.18886843E-01 0.26441579E-01 0.35255439E-01 0.45328421E-01 0.56660524E-01 + 0.69251744E-01 0.83102073E-01 0.98211490E-01 0.11457993E+00 0.13220719E+00 + 0.15109276E+00 0.17123562E+00 0.19263406E+00 0.21528546E+00 0.23918538E+00 + 0.26432604E+00 0.29069386E+00 0.31826652E+00 0.34700956E+00 0.37687329E+00 + 0.40779063E+00 0.43967528E+00 0.47241861E+00 0.50588421E+00 0.53990066E+00 + 0.57425565E+00 0.60869404E+00 0.64292183E+00 0.67661589E+00 0.70943924E+00 + 0.74106000E+00 0.77117062E+00 0.79950254E+00 0.82583499E+00 0.85000063E+00 + 0.87189240E+00 0.89147079E+00 0.90876698E+00 0.92387741E+00 0.93694961E+00 + 0.94816316E+00 0.95771048E+00 0.96578178E+00 0.97255638E+00 0.97819940E+00 + 0.98286109E+00 0.98667679E+00 0.98976726E+00 0.99224008E+00 0.99419192E+00 + 0.99571026E+00 0.99687399E+00 0.99775305E+00 0.99840774E+00 0.99888861E+00 + 0.99923686E+00 0.99948531E+00 0.99965968E+00 0.99977981E+00 0.99986086E+00 + 0.99991429E+00 0.99994861E+00 0.99997005E+00 0.99998306E+00 0.99999071E+00 + 0.99999506E+00 0.99999746E+00 0.99999874E+00 0.99999939E+00 0.99999972E+00 + 0.99999987E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12411483E-02 0.37234450E-02 0.74468900E-02 0.12411483E-01 + 0.18617225E-01 0.26064115E-01 0.34752153E-01 0.44681340E-01 0.55851675E-01 + 0.68263157E-01 0.81915787E-01 0.96809559E-01 0.11294444E+00 0.13032032E+00 + 0.14893683E+00 0.16879310E+00 0.18988762E+00 0.21221805E+00 0.23578097E+00 + 0.26057114E+00 0.28658011E+00 0.31379359E+00 0.34218715E+00 0.37172022E+00 + 0.40232944E+00 0.43392226E+00 0.46637229E+00 0.49951837E+00 0.53316844E+00 + 0.56710552E+00 0.60109090E+00 0.63486413E+00 0.66814496E+00 0.70064149E+00 + 0.73206392E+00 0.76213979E+00 0.79062687E+00 0.81732204E+00 0.84206656E+00 + 0.86474860E+00 0.88530315E+00 0.90370928E+00 0.91998576E+00 0.93418789E+00 + 0.94640692E+00 0.95676988E+00 0.96543622E+00 0.97258928E+00 0.97842395E+00 + 0.98313392E+00 0.98690150E+00 0.98989144E+00 0.99224808E+00 0.99409481E+00 + 0.99553485E+00 0.99665282E+00 0.99751682E+00 0.99818087E+00 0.99868736E+00 + 0.99906954E+00 0.99935374E+00 0.99956120E+00 0.99970932E+00 0.99981242E+00 + 0.99988225E+00 0.99992816E+00 0.99995744E+00 0.99997554E+00 0.99998637E+00 + 0.99999264E+00 0.99999615E+00 0.99999805E+00 0.99999905E+00 0.99999955E+00 + 0.99999979E+00 0.99999991E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12135788E-02 0.36407365E-02 0.72814730E-02 0.12135788E-01 + 0.18203683E-01 0.25485156E-01 0.33980207E-01 0.43688838E-01 0.54611047E-01 + 0.66746834E-01 0.80096195E-01 0.94659112E-01 0.11043553E+00 0.12742525E+00 + 0.14562781E+00 0.16504239E+00 0.18566786E+00 0.20750277E+00 0.23054474E+00 + 0.25478918E+00 0.28022751E+00 0.30684537E+00 0.33462053E+00 0.36351991E+00 + 0.39349498E+00 0.42447565E+00 0.45636377E+00 0.48902911E+00 0.52230874E+00 + 0.55600966E+00 0.58991248E+00 0.62377434E+00 0.65733111E+00 0.69030221E+00 + 0.72239918E+00 0.75333530E+00 0.78283394E+00 0.81063727E+00 0.83651789E+00 + 0.86029237E+00 0.88183346E+00 0.90107804E+00 0.91802970E+00 0.93275571E+00 + 0.94537840E+00 0.95606178E+00 0.96499596E+00 0.97238257E+00 0.97842300E+00 + 0.98330996E+00 0.98722196E+00 0.99032025E+00 0.99274766E+00 0.99462862E+00 + 0.99606982E+00 0.99716137E+00 0.99797825E+00 0.99858195E+00 0.99902214E+00 + 0.99933836E+00 0.99956167E+00 0.99971628E+00 0.99982091E+00 0.99988991E+00 + 0.99993418E+00 0.99996175E+00 0.99997840E+00 0.99998816E+00 0.99999370E+00 + 0.99999675E+00 0.99999837E+00 0.99999921E+00 0.99999963E+00 0.99999983E+00 + 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11803756E-02 0.35411267E-02 0.70822535E-02 0.11803756E-01 + 0.17705634E-01 0.24787887E-01 0.33050516E-01 0.42493521E-01 0.53116901E-01 + 0.64920657E-01 0.77904788E-01 0.92069294E-01 0.10741417E+00 0.12393938E+00 + 0.14164481E+00 0.16053017E+00 0.18059482E+00 0.20183755E+00 0.22425627E+00 + 0.24784725E+00 0.27260373E+00 0.29851403E+00 0.32555938E+00 0.35371189E+00 + 0.38293243E+00 0.41316776E+00 0.44434623E+00 0.47637165E+00 0.50911665E+00 + 0.54241835E+00 0.57607806E+00 0.60986396E+00 0.64351587E+00 0.67675152E+00 + 0.70927353E+00 0.74077667E+00 0.77095678E+00 0.79952451E+00 0.82622369E+00 + 0.85084970E+00 0.87326186E+00 0.89338808E+00 0.91122320E+00 0.92682311E+00 + 0.94029530E+00 0.95178645E+00 0.96146846E+00 0.96952557E+00 0.97614488E+00 + 0.98151093E+00 0.98580259E+00 0.98919021E+00 0.99183216E+00 0.99387120E+00 + 0.99543162E+00 0.99661793E+00 0.99751521E+00 0.99819084E+00 0.99869711E+00 + 0.99907403E+00 0.99935212E+00 0.99955479E+00 0.99970019E+00 0.99980254E+00 + 0.99987302E+00 0.99992037E+00 0.99995136E+00 0.99997108E+00 0.99998328E+00 + 0.99999060E+00 0.99999486E+00 0.99999727E+00 0.99999859E+00 0.99999930E+00 + 0.99999966E+00 0.99999984E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11463449E-02 0.34390346E-02 0.68780691E-02 0.11463449E-01 + 0.17195173E-01 0.24073242E-01 0.32097656E-01 0.41268415E-01 0.51585519E-01 + 0.63048967E-01 0.75658761E-01 0.89414899E-01 0.10431738E+00 0.12036621E+00 + 0.13756136E+00 0.15590280E+00 0.17539038E+00 0.19602372E+00 0.21780192E+00 + 0.24072303E+00 0.26478342E+00 0.28997675E+00 0.31629230E+00 0.34371228E+00 + 0.37220847E+00 0.40173798E+00 0.43223833E+00 0.46362236E+00 0.49577330E+00 + 0.52854090E+00 0.56174018E+00 0.59515454E+00 0.62854202E+00 0.66164074E+00 + 0.69417121E+00 0.72583872E+00 0.75634143E+00 0.78538588E+00 0.81270681E+00 + 0.83808673E+00 0.86136930E+00 0.88246338E+00 0.90133875E+00 0.91801824E+00 + 0.93256989E+00 0.94510054E+00 0.95574969E+00 0.96468235E+00 0.97208039E+00 + 0.97813301E+00 0.98302775E+00 0.98694302E+00 0.99004273E+00 0.99247292E+00 + 0.99436048E+00 0.99581339E+00 0.99692198E+00 0.99776058E+00 0.99838945E+00 + 0.99885665E+00 0.99920009E+00 0.99944946E+00 0.99962791E+00 0.99975347E+00 + 0.99984014E+00 0.99989870E+00 0.99993735E+00 0.99996222E+00 0.99997781E+00 + 0.99998732E+00 0.99999295E+00 0.99999619E+00 0.99999800E+00 0.99999898E+00 + 0.99999950E+00 0.99999976E+00 0.99999989E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11320816E-02 0.33962449E-02 0.67924898E-02 0.11320816E-01 + 0.16981225E-01 0.23773714E-01 0.31698286E-01 0.40754939E-01 0.50943674E-01 + 0.62264490E-01 0.74717387E-01 0.88302364E-01 0.10301941E+00 0.11886851E+00 + 0.13584950E+00 0.15396202E+00 0.17320528E+00 0.19357799E+00 0.21507821E+00 + 0.23770312E+00 0.26144817E+00 0.28630564E+00 0.31226282E+00 0.33929961E+00 + 0.36738556E+00 0.39647594E+00 0.42650748E+00 0.45739447E+00 0.48902619E+00 + 0.52126537E+00 0.55394649E+00 0.58687339E+00 0.61981815E+00 0.65252488E+00 + 0.68471995E+00 0.71612569E+00 0.74647276E+00 0.77550939E+00 0.80300849E+00 + 0.82877243E+00 0.85263593E+00 0.87446972E+00 0.89418708E+00 0.91175169E+00 + 0.92718294E+00 0.94055533E+00 0.95199073E+00 0.96164520E+00 0.96969432E+00 + 0.97632103E+00 0.98170749E+00 0.98602996E+00 0.98945489E+00 0.99213538E+00 + 0.99420817E+00 0.99579188E+00 0.99698688E+00 0.99787651E+00 0.99852903E+00 + 0.99899981E+00 0.99933336E+00 0.99956500E+00 0.99972242E+00 0.99982694E+00 + 0.99989464E+00 0.99993740E+00 0.99996371E+00 0.99997947E+00 0.99998867E+00 + 0.99999390E+00 0.99999680E+00 0.99999836E+00 0.99999918E+00 0.99999960E+00 + 0.99999981E+00 0.99999991E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10956722E-02 0.32870165E-02 0.65740330E-02 0.10956722E-01 + 0.16435082E-01 0.23009115E-01 0.30678821E-01 0.39444198E-01 0.49305247E-01 + 0.60261969E-01 0.72314363E-01 0.85462429E-01 0.99706167E-01 0.11504558E+00 + 0.13148065E+00 0.14901136E+00 0.16763751E+00 0.18735854E+00 0.20817295E+00 + 0.23007774E+00 0.25306803E+00 0.27713682E+00 0.30227428E+00 0.32846607E+00 + 0.35569063E+00 0.38391622E+00 0.41309796E+00 0.44317452E+00 0.47406287E+00 + 0.50565120E+00 0.53779285E+00 0.57030419E+00 0.60296761E+00 0.63553767E+00 + 0.66774874E+00 0.69932427E+00 0.72998880E+00 0.75948051E+00 0.78756161E+00 + 0.81402582E+00 0.83870349E+00 0.86146418E+00 0.88221750E+00 0.90091283E+00 + 0.91753922E+00 0.93212619E+00 0.94474505E+00 0.95550813E+00 0.96456374E+00 + 0.97208616E+00 0.97826266E+00 0.98327994E+00 0.98731286E+00 0.99051778E+00 + 0.99303095E+00 0.99497062E+00 0.99644028E+00 0.99753112E+00 0.99832307E+00 + 0.99888492E+00 0.99927425E+00 0.99953770E+00 0.99971178E+00 0.99982412E+00 + 0.99989493E+00 0.99993854E+00 0.99996479E+00 0.99998024E+00 0.99998913E+00 + 0.99999413E+00 0.99999690E+00 0.99999839E+00 0.99999918E+00 0.99999959E+00 + 0.99999980E+00 0.99999990E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10751961E-02 0.32255883E-02 0.64511767E-02 0.10751961E-01 + 0.16127942E-01 0.22579118E-01 0.30105491E-01 0.38707060E-01 0.48383825E-01 + 0.59135785E-01 0.70962931E-01 0.83865217E-01 0.97842511E-01 0.11289455E+00 + 0.12902095E+00 0.14622133E+00 0.16449540E+00 0.18384294E+00 0.20426369E+00 + 0.22575696E+00 0.24832108E+00 0.27195270E+00 0.29664610E+00 0.32239169E+00 + 0.34917326E+00 0.37696447E+00 0.40572571E+00 0.43540162E+00 0.46591908E+00 + 0.49718474E+00 0.52908044E+00 0.56145644E+00 0.59412571E+00 0.62686283E+00 + 0.65940903E+00 0.69148187E+00 0.72278770E+00 0.75303445E+00 0.78194290E+00 + 0.80925706E+00 0.83475585E+00 0.85826502E+00 0.87966606E+00 0.89890002E+00 + 0.91596598E+00 0.93091527E+00 0.94384258E+00 0.95487551E+00 0.96416484E+00 + 0.97187661E+00 0.97818598E+00 0.98327186E+00 0.98731158E+00 0.99047533E+00 + 0.99292076E+00 0.99478861E+00 0.99620017E+00 0.99725670E+00 0.99804042E+00 + 0.99861661E+00 0.99903619E+00 0.99933841E+00 0.99955330E+00 0.99970382E+00 + 0.99980742E+00 0.99987736E+00 0.99992359E+00 0.99995347E+00 0.99997232E+00 + 0.99998393E+00 0.99999090E+00 0.99999497E+00 0.99999730E+00 0.99999858E+00 + 0.99999928E+00 0.99999964E+00 0.99999983E+00 0.99999992E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10633663E-02 0.31900988E-02 0.63801975E-02 0.10633663E-01 + 0.15950494E-01 0.22330691E-01 0.29774255E-01 0.38281185E-01 0.47851481E-01 + 0.58485144E-01 0.70182173E-01 0.82942568E-01 0.96766329E-01 0.11165346E+00 + 0.12760395E+00 0.14461779E+00 0.16269490E+00 0.18183496E+00 0.20203687E+00 + 0.22329834E+00 0.24561566E+00 0.26898391E+00 0.29339707E+00 0.31884741E+00 + 0.34532364E+00 0.37280723E+00 0.40126803E+00 0.43065926E+00 0.46091211E+00 + 0.49193040E+00 0.52358660E+00 0.55572081E+00 0.58814265E+00 0.62063480E+00 + 0.65295689E+00 0.68484911E+00 0.71603705E+00 0.74623963E+00 0.77518033E+00 + 0.80260122E+00 0.82827803E+00 0.85203277E+00 0.87374072E+00 0.89333291E+00 + 0.91079630E+00 0.92617128E+00 0.93954424E+00 0.95103622E+00 0.96079117E+00 + 0.96896680E+00 0.97572825E+00 0.98124310E+00 0.98567705E+00 0.98918994E+00 + 0.99193230E+00 0.99404252E+00 0.99564435E+00 0.99684524E+00 0.99773564E+00 + 0.99838945E+00 0.99886536E+00 0.99920894E+00 0.99945489E+00 0.99962931E+00 + 0.99975163E+00 0.99983632E+00 0.99989407E+00 0.99993276E+00 0.99995820E+00 + 0.99997457E+00 0.99998487E+00 0.99999121E+00 0.99999501E+00 0.99999724E+00 + 0.99999851E+00 0.99999922E+00 0.99999960E+00 0.99999980E+00 0.99999990E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10345481E-02 0.31036442E-02 0.62072884E-02 0.10345481E-01 + 0.15518221E-01 0.21725509E-01 0.28967346E-01 0.37243730E-01 0.46554663E-01 + 0.56900144E-01 0.68280172E-01 0.80694749E-01 0.94143874E-01 0.10862755E+00 + 0.12414577E+00 0.14069854E+00 0.15828585E+00 0.17690768E+00 0.19656388E+00 + 0.21725399E+00 0.23897695E+00 0.26173072E+00 0.28551190E+00 0.31031503E+00 + 0.33613113E+00 0.36294478E+00 0.39072986E+00 0.41944437E+00 0.44902583E+00 + 0.47938894E+00 0.51042560E+00 0.54200491E+00 0.57396946E+00 0.60612737E+00 + 0.63824507E+00 0.67004825E+00 0.70123507E+00 0.73149869E+00 0.76055082E+00 + 0.78813931E+00 0.81405717E+00 0.83814511E+00 0.86029069E+00 0.88042669E+00 + 0.89852956E+00 0.91461884E+00 0.92875597E+00 0.94104046E+00 0.95160214E+00 + 0.96059100E+00 0.96816676E+00 0.97449009E+00 0.97971688E+00 0.98399534E+00 + 0.98746451E+00 0.99025290E+00 0.99247673E+00 0.99423832E+00 0.99562506E+00 + 0.99670962E+00 0.99755143E+00 0.99819884E+00 0.99869142E+00 0.99906171E+00 + 0.99933648E+00 0.99953758E+00 0.99968265E+00 0.99978572E+00 0.99985776E+00 + 0.99990727E+00 0.99994067E+00 0.99996277E+00 0.99997711E+00 0.99998622E+00 + 0.99999188E+00 0.99999532E+00 0.99999736E+00 0.99999855E+00 0.99999922E+00 + 0.99999959E+00 0.99999979E+00 0.99999990E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10219756E-02 0.30659268E-02 0.61318536E-02 0.10219756E-01 + 0.15329634E-01 0.21461488E-01 0.28615317E-01 0.36791122E-01 0.45988902E-01 + 0.56208658E-01 0.67450390E-01 0.79714097E-01 0.92999780E-01 0.10730744E+00 + 0.12263707E+00 0.13898868E+00 0.15636227E+00 0.17475783E+00 0.19417535E+00 + 0.21461475E+00 0.23607573E+00 0.25855728E+00 0.28205702E+00 0.30657019E+00 + 0.33208833E+00 0.35859713E+00 0.38607257E+00 0.41447544E+00 0.44374651E+00 + 0.47380480E+00 0.50454860E+00 0.53585485E+00 0.56757323E+00 0.59951738E+00 + 0.63146284E+00 0.66315687E+00 0.69433425E+00 0.72472892E+00 0.75407856E+00 + 0.78212758E+00 0.80863483E+00 0.83338752E+00 0.85621817E+00 0.87701853E+00 + 0.89574539E+00 0.91241647E+00 0.92709899E+00 0.93989650E+00 0.95093750E+00 + 0.96036599E+00 0.96833324E+00 0.97499110E+00 0.98048842E+00 0.98496965E+00 + 0.98857384E+00 0.99143279E+00 0.99366875E+00 0.99539228E+00 0.99670096E+00 + 0.99767883E+00 0.99839695E+00 0.99891440E+00 0.99927968E+00 0.99953197E+00 + 0.99970229E+00 0.99981465E+00 0.99988706E+00 0.99993265E+00 0.99996069E+00 + 0.99997755E+00 0.99998745E+00 0.99999314E+00 0.99999633E+00 0.99999808E+00 + 0.99999902E+00 0.99999951E+00 0.99999976E+00 0.99999989E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.99934136E-03 0.29980241E-02 0.59960481E-02 0.99934136E-02 + 0.14990120E-01 0.20986169E-01 0.27981558E-01 0.35976289E-01 0.44970361E-01 + 0.54963775E-01 0.65956530E-01 0.77948626E-01 0.90940064E-01 0.10493084E+00 + 0.11992096E+00 0.13591042E+00 0.15289921E+00 0.17088726E+00 0.18987434E+00 + 0.20985983E+00 0.23084251E+00 0.25282031E+00 0.27579024E+00 0.29974808E+00 + 0.32468763E+00 0.35059896E+00 0.37746555E+00 0.40526047E+00 0.43394232E+00 + 0.46345178E+00 0.49370853E+00 0.52460859E+00 0.55602247E+00 0.58779394E+00 + 0.61973738E+00 0.65163377E+00 0.68322906E+00 0.71423888E+00 0.74436055E+00 + 0.77329130E+00 0.80075065E+00 0.82650122E+00 0.85036055E+00 0.87220258E+00 + 0.89195340E+00 0.90958710E+00 0.92512353E+00 0.93862691E+00 0.95020279E+00 + 0.95999173E+00 0.96815995E+00 0.97488905E+00 0.98036606E+00 0.98477465E+00 + 0.98828759E+00 0.99106123E+00 0.99323230E+00 0.99491715E+00 0.99621306E+00 + 0.99720056E+00 0.99794593E+00 0.99850329E+00 0.99891640E+00 0.99922015E+00 + 0.99944192E+00 0.99960289E+00 0.99971915E+00 0.99980275E+00 0.99986260E+00 + 0.99990521E+00 0.99993534E+00 0.99995646E+00 0.99997110E+00 0.99998111E+00 + 0.99998786E+00 0.99999234E+00 0.99999525E+00 0.99999711E+00 0.99999828E+00 + 0.99999900E+00 0.99999943E+00 0.99999968E+00 0.99999983E+00 0.99999991E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.99319397E-03 0.29795819E-02 0.59591638E-02 0.99319397E-02 + 0.14897910E-01 0.20857073E-01 0.27809431E-01 0.35754983E-01 0.44693729E-01 + 0.54625668E-01 0.65550802E-01 0.77469129E-01 0.90380650E-01 0.10428536E+00 + 0.11918323E+00 0.13507421E+00 0.15195815E+00 0.16983476E+00 0.18870352E+00 + 0.20856367E+00 0.22941418E+00 0.25125375E+00 0.27408057E+00 0.29789174E+00 + 0.32268218E+00 0.34844276E+00 0.37515743E+00 0.40279974E+00 0.43132935E+00 + 0.46068857E+00 0.49079819E+00 0.52155209E+00 0.55281215E+00 0.58440533E+00 + 0.61612493E+00 0.64773590E+00 0.67898275E+00 0.70959876E+00 0.73931655E+00 + 0.76787967E+00 0.79505282E+00 0.82062895E+00 0.84443504E+00 0.86633892E+00 + 0.88625629E+00 0.90415424E+00 0.92004890E+00 0.93399846E+00 0.94609412E+00 + 0.95645157E+00 0.96520471E+00 0.97250157E+00 0.97850090E+00 0.98336760E+00 + 0.98726604E+00 0.99035301E+00 0.99277163E+00 0.99464754E+00 0.99608753E+00 + 0.99718042E+00 0.99799922E+00 0.99860365E+00 0.99904250E+00 0.99935540E+00 + 0.99957423E+00 0.99972420E+00 0.99982486E+00 0.99989101E+00 0.99993354E+00 + 0.99996030E+00 0.99997677E+00 0.99998669E+00 0.99999254E+00 0.99999590E+00 + 0.99999780E+00 0.99999884E+00 0.99999940E+00 0.99999970E+00 0.99999985E+00 + 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.97305058E-03 0.29191518E-02 0.58383035E-02 0.97305058E-02 + 0.14595759E-01 0.20434062E-01 0.27245416E-01 0.35029821E-01 0.43787276E-01 + 0.53517782E-01 0.64221339E-01 0.75897946E-01 0.88547603E-01 0.10217031E+00 + 0.11676607E+00 0.13233486E+00 0.14887662E+00 0.16639122E+00 0.18487838E+00 + 0.20433773E+00 0.22476883E+00 0.24617108E+00 0.26854349E+00 0.29188378E+00 + 0.31618670E+00 0.34144197E+00 0.36763269E+00 0.39473468E+00 0.42271550E+00 + 0.45153177E+00 0.48112411E+00 0.51141023E+00 0.54227837E+00 0.57358397E+00 + 0.60515002E+00 0.63676862E+00 0.66820120E+00 0.69917981E+00 0.72941386E+00 + 0.75860371E+00 0.78645898E+00 0.81271923E+00 0.83717377E+00 0.85967508E+00 + 0.88014177E+00 0.89855154E+00 0.91492937E+00 0.92933714E+00 0.94186722E+00 + 0.95263814E+00 0.96178915E+00 0.96947308E+00 0.97584901E+00 0.98107650E+00 + 0.98531143E+00 0.98870247E+00 0.99138774E+00 0.99349195E+00 0.99512467E+00 + 0.99637978E+00 0.99733602E+00 0.99805820E+00 0.99859884E+00 0.99899992E+00 + 0.99929460E+00 0.99950882E+00 0.99966273E+00 0.99977186E+00 0.99984814E+00 + 0.99990060E+00 0.99993608E+00 0.99995964E+00 0.99997500E+00 0.99998481E+00 + 0.99999095E+00 0.99999472E+00 0.99999698E+00 0.99999831E+00 0.99999907E+00 + 0.99999950E+00 0.99999974E+00 0.99999987E+00 0.99999993E+00 0.99999997E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.95860154E-03 0.28758046E-02 0.57516092E-02 0.95860154E-02 + 0.14379023E-01 0.20130632E-01 0.26840843E-01 0.34509655E-01 0.43137069E-01 + 0.52723085E-01 0.63267701E-01 0.74770920E-01 0.87232740E-01 0.10065316E+00 + 0.11503218E+00 0.13036981E+00 0.14666604E+00 0.16392086E+00 0.18213429E+00 + 0.20130632E+00 0.22143692E+00 0.24252596E+00 0.26457297E+00 0.28757650E+00 + 0.31153342E+00 0.33643805E+00 0.36228113E+00 0.38904819E+00 0.41671643E+00 + 0.44524984E+00 0.47459286E+00 0.50466450E+00 0.53535433E+00 0.56651987E+00 + 0.59798563E+00 0.62954393E+00 0.66095772E+00 0.69196568E+00 0.72229166E+00 + 0.75165828E+00 0.77980107E+00 0.80647915E+00 0.83148339E+00 0.85464430E+00 + 0.87583979E+00 0.89500018E+00 0.91210757E+00 0.92719001E+00 0.94031447E+00 + 0.95158244E+00 0.96112689E+00 0.96910675E+00 0.97569693E+00 0.98107634E+00 + 0.98541785E+00 0.98888205E+00 0.99161441E+00 0.99374447E+00 0.99538580E+00 + 0.99663618E+00 0.99757806E+00 0.99827942E+00 0.99879528E+00 0.99916956E+00 + 0.99943701E+00 0.99962495E+00 0.99975465E+00 0.99984246E+00 0.99990075E+00 + 0.99993867E+00 0.99996283E+00 0.99997792E+00 0.99998714E+00 0.99999266E+00 + 0.99999590E+00 0.99999775E+00 0.99999880E+00 0.99999937E+00 0.99999968E+00 + 0.99999984E+00 0.99999992E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.93839995E-03 0.28151998E-02 0.56303997E-02 0.93839995E-02 + 0.14075999E-01 0.19706399E-01 0.26275198E-01 0.33782398E-01 0.42227998E-01 + 0.51611997E-01 0.61934396E-01 0.73195196E-01 0.85394395E-01 0.98531994E-01 + 0.11260799E+00 0.12762239E+00 0.14357519E+00 0.16046636E+00 0.17829583E+00 + 0.19706335E+00 0.21676850E+00 0.23741057E+00 0.25898849E+00 0.28150040E+00 + 0.30494269E+00 0.32930816E+00 0.35458396E+00 0.38075023E+00 0.40777916E+00 + 0.43563286E+00 0.46425859E+00 0.49358249E+00 0.52350400E+00 0.55389262E+00 + 0.58458825E+00 0.61540477E+00 0.64613523E+00 0.67655663E+00 0.70643376E+00 + 0.73552376E+00 0.76358397E+00 0.79038263E+00 0.81570998E+00 0.83938802E+00 + 0.86127839E+00 0.88128851E+00 0.89937465E+00 0.91554010E+00 0.92982882E+00 + 0.94231722E+00 0.95310679E+00 0.96231834E+00 0.97008655E+00 0.97655419E+00 + 0.98186653E+00 0.98616704E+00 0.98959470E+00 0.99228215E+00 0.99435387E+00 + 0.99592407E+00 0.99709470E+00 0.99795395E+00 0.99857569E+00 0.99901977E+00 + 0.99933319E+00 0.99955189E+00 0.99970275E+00 0.99980552E+00 0.99987462E+00 + 0.99992040E+00 0.99995026E+00 0.99996943E+00 0.99998152E+00 0.99998902E+00 + 0.99999359E+00 0.99999633E+00 0.99999793E+00 0.99999886E+00 0.99999938E+00 + 0.99999967E+00 0.99999983E+00 0.99999991E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.93895631E-03 0.28168689E-02 0.56337378E-02 0.93895631E-02 + 0.14084345E-01 0.19718082E-01 0.26290777E-01 0.33802427E-01 0.42253034E-01 + 0.51642597E-01 0.61971116E-01 0.73238592E-01 0.85445024E-01 0.98590412E-01 + 0.11267476E+00 0.12769806E+00 0.14366031E+00 0.16056150E+00 0.17840154E+00 + 0.19718015E+00 0.21689674E+00 0.23755030E+00 0.25913932E+00 0.28166127E+00 + 0.30511184E+00 0.32948384E+00 0.35476582E+00 0.38094012E+00 0.40798061E+00 + 0.43584971E+00 0.46449475E+00 0.49384366E+00 0.52380083E+00 0.55424308E+00 + 0.58501609E+00 0.61593241E+00 0.64677322E+00 0.67729556E+00 0.70724424E+00 + 0.73636446E+00 0.76441199E+00 0.79116008E+00 0.81640460E+00 0.83997101E+00 + 0.86172438E+00 0.88157889E+00 0.89950138E+00 0.91550705E+00 0.92965019E+00 + 0.94201396E+00 0.95270241E+00 0.96183486E+00 0.96954179E+00 0.97596129E+00 + 0.98123585E+00 0.98550900E+00 0.98892177E+00 0.99160894E+00 0.99369583E+00 + 0.99529576E+00 0.99650840E+00 0.99741893E+00 0.99809797E+00 0.99860229E+00 + 0.99897617E+00 0.99925326E+00 0.99945862E+00 0.99961064E+00 0.99972281E+00 + 0.99980506E+00 0.99986482E+00 0.99990771E+00 0.99993805E+00 0.99995914E+00 + 0.99997355E+00 0.99998321E+00 0.99998954E+00 0.99999362E+00 0.99999618E+00 + 0.99999776E+00 0.99999872E+00 0.99999928E+00 0.99999960E+00 0.99999979E+00 + 0.99999989E+00 0.99999994E+00 0.99999997E+00 0.99999999E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.91000977E-03 0.27300293E-02 0.54600586E-02 0.91000977E-02 + 0.13650146E-01 0.19110205E-01 0.25480273E-01 0.32760352E-01 0.40950439E-01 + 0.50050537E-01 0.60060645E-01 0.70980762E-01 0.82810889E-01 0.95551025E-01 + 0.10920117E+00 0.12376133E+00 0.13923149E+00 0.15561167E+00 0.17290186E+00 + 0.19110205E+00 0.21021223E+00 0.23023233E+00 0.25116208E+00 0.27300082E+00 + 0.29574696E+00 0.31939694E+00 0.34394363E+00 0.36937446E+00 0.39566948E+00 + 0.42279921E+00 0.45072200E+00 0.47938048E+00 0.50869761E+00 0.53857273E+00 + 0.56887753E+00 0.59945385E+00 0.63011531E+00 0.66065211E+00 0.69083630E+00 + 0.72042700E+00 0.74917630E+00 0.77683702E+00 0.80317237E+00 0.82796724E+00 + 0.85103943E+00 0.87224841E+00 0.89150062E+00 0.90875183E+00 0.92400751E+00 + 0.93732090E+00 0.94878803E+00 0.95853991E+00 0.96673292E+00 0.97353818E+00 + 0.97913106E+00 0.98368172E+00 0.98734833E+00 0.99027358E+00 0.99258391E+00 + 0.99439015E+00 0.99578844E+00 0.99686111E+00 0.99767740E+00 0.99829428E+00 + 0.99875759E+00 0.99910346E+00 0.99935992E+00 0.99954852E+00 0.99968583E+00 + 0.99978459E+00 0.99985462E+00 0.99990351E+00 0.99993707E+00 0.99995968E+00 + 0.99997464E+00 0.99998434E+00 0.99999052E+00 0.99999437E+00 0.99999672E+00 + 0.99999813E+00 0.99999895E+00 0.99999943E+00 0.99999969E+00 0.99999984E+00 + 0.99999992E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15605597E-02 0.46816777E-02 0.93633534E-02 0.15605573E-01 + 0.23408305E-01 0.32771512E-01 0.43695154E-01 0.56179127E-01 0.70223080E-01 + 0.85826233E-01 0.10298708E+00 0.12170299E+00 0.14197005E+00 0.16378268E+00 + 0.18713207E+00 0.21200441E+00 0.23838041E+00 0.26623567E+00 0.29553898E+00 + 0.32624719E+00 0.35829889E+00 0.39160626E+00 0.42604137E+00 0.46142334E+00 + 0.49751803E+00 0.53405043E+00 0.57071883E+00 0.60720357E+00 0.64317604E+00 + 0.67831355E+00 0.71231139E+00 0.74488122E+00 0.77574815E+00 0.80466192E+00 + 0.83141432E+00 0.85585407E+00 0.87790069E+00 0.89755219E+00 0.91487707E+00 + 0.92999135E+00 0.94303334E+00 0.95415004E+00 0.96349818E+00 0.97125022E+00 + 0.97759350E+00 0.98272086E+00 0.98681828E+00 0.99005592E+00 0.99258489E+00 + 0.99453714E+00 0.99602514E+00 0.99714265E+00 0.99796767E+00 0.99856606E+00 + 0.99899358E+00 0.99929625E+00 0.99951027E+00 0.99966236E+00 0.99977103E+00 + 0.99984855E+00 0.99990308E+00 0.99994043E+00 0.99996505E+00 0.99998052E+00 + 0.99998973E+00 0.99999490E+00 0.99999762E+00 0.99999896E+00 0.99999958E+00 + 0.99999984E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15674075E-02 0.47022235E-02 0.94044465E-02 0.15674066E-01 + 0.23511051E-01 0.32915327E-01 0.43886768E-01 0.56425195E-01 0.70530416E-01 + 0.86202172E-01 0.10343980E+00 0.12224158E+00 0.14260411E+00 0.16452164E+00 + 0.18798472E+00 0.21297758E+00 0.23947553E+00 0.26744334E+00 0.29683409E+00 + 0.32758736E+00 0.35962581E+00 0.39285097E+00 0.42713792E+00 0.46232816E+00 + 0.49822324E+00 0.53458323E+00 0.57113054E+00 0.60755728E+00 0.64353567E+00 + 0.67873113E+00 0.71281802E+00 0.74549360E+00 0.77648364E+00 0.80554111E+00 + 0.83244847E+00 0.85703214E+00 0.87918456E+00 0.89887831E+00 0.91616328E+00 + 0.93115164E+00 0.94399980E+00 0.95489256E+00 0.96403045E+00 0.97161860E+00 + 0.97785678E+00 0.98293184E+00 0.98701430E+00 0.99025811E+00 0.99280135E+00 + 0.99476617E+00 0.99625881E+00 0.99737113E+00 0.99818303E+00 0.99876363E+00 + 0.99917112E+00 0.99945235E+00 0.99964349E+00 0.99977147E+00 0.99985589E+00 + 0.99991073E+00 0.99994580E+00 0.99996785E+00 0.99998147E+00 0.99998967E+00 + 0.99999448E+00 0.99999718E+00 0.99999864E+00 0.99999938E+00 0.99999973E+00 + 0.99999989E+00 0.99999996E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15769990E-02 0.47309942E-02 0.94619796E-02 0.15769941E-01 + 0.23654841E-01 0.33116599E-01 0.44155045E-01 0.56769865E-01 0.70960569E-01 + 0.86726500E-01 0.10406681E+00 0.12298017E+00 0.14346389E+00 0.16551260E+00 + 0.18911691E+00 0.21426255E+00 0.24092930E+00 0.26908872E+00 0.29870035E+00 + 0.32970691E+00 0.36202904E+00 0.39555921E+00 0.43015592E+00 0.46563991E+00 + 0.50179176E+00 0.53835052E+00 0.57501815E+00 0.61146962E+00 0.64736323E+00 + 0.68234989E+00 0.71608396E+00 0.74823829E+00 0.77852863E+00 0.80674169E+00 + 0.83274716E+00 0.85648570E+00 0.87794547E+00 0.89714598E+00 0.91413709E+00 + 0.92900455E+00 0.94186936E+00 0.95287739E+00 0.96218643E+00 0.96995885E+00 + 0.97636108E+00 0.98156406E+00 0.98573953E+00 0.98905293E+00 0.99165687E+00 + 0.99368735E+00 0.99526169E+00 0.99647752E+00 0.99741313E+00 0.99812948E+00 + 0.99867341E+00 0.99908103E+00 0.99938076E+00 0.99959565E+00 0.99974498E+00 + 0.99984503E+00 0.99990944E+00 0.99994917E+00 0.99997263E+00 0.99998586E+00 + 0.99999300E+00 0.99999668E+00 0.99999849E+00 0.99999934E+00 0.99999972E+00 + 0.99999989E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.15393423E-02 0.46180247E-02 0.92360392E-02 0.15393366E-01 + 0.23089972E-01 0.32325818E-01 0.43100858E-01 0.55414981E-01 0.69267931E-01 + 0.84659236E-01 0.10158804E+00 0.12005287E+00 0.14005137E+00 0.16157964E+00 + 0.18463070E+00 0.20919251E+00 0.23524646E+00 0.26276599E+00 0.29171345E+00 + 0.32203516E+00 0.35365658E+00 0.38647721E+00 0.42036433E+00 0.45514745E+00 + 0.49061698E+00 0.52652904E+00 0.56261397E+00 0.59858470E+00 0.63414386E+00 + 0.66899163E+00 0.70283572E+00 0.73540096E+00 0.76643472E+00 0.79570901E+00 + 0.82302395E+00 0.84821588E+00 0.87116688E+00 0.89181065E+00 0.91013538E+00 + 0.92618461E+00 0.94005331E+00 0.95187844E+00 0.96182772E+00 0.97008865E+00 + 0.97685686E+00 0.98232514E+00 0.98667646E+00 0.99008196E+00 0.99270098E+00 + 0.99468062E+00 0.99615377E+00 0.99723611E+00 0.99802373E+00 0.99859291E+00 + 0.99900219E+00 0.99929562E+00 0.99950594E+00 0.99965703E+00 0.99976579E+00 + 0.99984388E+00 0.99989924E+00 0.99993751E+00 0.99996300E+00 0.99997919E+00 + 0.99998891E+00 0.99999442E+00 0.99999735E+00 0.99999882E+00 0.99999950E+00 + 0.99999980E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14867950E-02 0.44603835E-02 0.89207601E-02 0.14867914E-01 + 0.22301830E-01 0.31222483E-01 0.41629830E-01 0.53523784E-01 0.66904165E-01 + 0.81770663E-01 0.98122802E-01 0.11595978E+00 0.13528008E+00 0.15608095E+00 + 0.17835814E+00 0.20210571E+00 0.22731498E+00 0.25397087E+00 0.28204490E+00 + 0.31148814E+00 0.34222821E+00 0.37417154E+00 0.40720626E+00 0.44120035E+00 + 0.47599560E+00 0.51140398E+00 0.54720701E+00 0.58315143E+00 0.61894194E+00 + 0.65424126E+00 0.68868554E+00 0.72191366E+00 0.75359801E+00 0.78346405E+00 + 0.81129579E+00 0.83693512E+00 0.86028191E+00 0.88129586E+00 0.89999655E+00 + 0.91645762E+00 0.93079520E+00 0.94315569E+00 0.95370659E+00 0.96262840E+00 + 0.97010459E+00 0.97631195E+00 0.98141549E+00 0.98556802E+00 0.98891117E+00 + 0.99157467E+00 0.99367443E+00 0.99531136E+00 0.99657206E+00 0.99753044E+00 + 0.99824924E+00 0.99878088E+00 0.99916834E+00 0.99944606E+00 0.99964127E+00 + 0.99977520E+00 0.99986435E+00 0.99992154E+00 0.99995666E+00 0.99997720E+00 + 0.99998860E+00 0.99999459E+00 0.99999757E+00 0.99999896E+00 0.99999958E+00 + 0.99999984E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14639796E-02 0.43919385E-02 0.87838761E-02 0.14639791E-01 + 0.21959684E-01 0.30743553E-01 0.40991391E-01 0.52703176E-01 0.65878853E-01 + 0.80518298E-01 0.96621259E-01 0.11418720E+00 0.13321502E+00 0.15370250E+00 + 0.17564571E+00 0.19903801E+00 0.22386894E+00 0.25012258E+00 0.27777488E+00 + 0.30678987E+00 0.33711565E+00 0.36868096E+00 0.40139168E+00 0.43512531E+00 + 0.46972296E+00 0.50498456E+00 0.54067304E+00 0.57652436E+00 0.61225439E+00 + 0.64755854E+00 0.68211121E+00 0.71557480E+00 0.74761957E+00 0.77794727E+00 + 0.80630865E+00 0.83251216E+00 0.85642993E+00 0.87800378E+00 0.89724677E+00 + 0.91423481E+00 0.92908821E+00 0.94194928E+00 0.95296635E+00 0.96228958E+00 + 0.97007493E+00 0.97648787E+00 0.98170135E+00 0.98588878E+00 0.98921607E+00 + 0.99183554E+00 0.99388193E+00 0.99547000E+00 0.99669380E+00 0.99762822E+00 + 0.99833240E+00 0.99885385E+00 0.99923176E+00 0.99949897E+00 0.99968284E+00 + 0.99980568E+00 0.99988509E+00 0.99993462E+00 0.99996431E+00 0.99998135E+00 + 0.99999069E+00 0.99999557E+00 0.99999799E+00 0.99999914E+00 0.99999965E+00 + 0.99999986E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14422104E-02 0.43266307E-02 0.86532605E-02 0.14422099E-01 + 0.21633146E-01 0.30286397E-01 0.40381840E-01 0.51919444E-01 0.64899129E-01 + 0.79320691E-01 0.95183670E-01 0.11248711E+00 0.13122910E+00 0.15140613E+00 + 0.17301260E+00 0.19604031E+00 0.22047769E+00 0.24630780E+00 0.27350551E+00 + 0.30203484E+00 0.33184696E+00 0.36287757E+00 0.39504205E+00 0.42822879E+00 + 0.46229267E+00 0.49705012E+00 0.53227659E+00 0.56770766E+00 0.60304519E+00 + 0.63797043E+00 0.67216279E+00 0.70531926E+00 0.73716826E+00 0.76747507E+00 + 0.79603935E+00 0.82268869E+00 0.84727555E+00 0.86968387E+00 0.88984283E+00 + 0.90773960E+00 0.92342364E+00 0.93700059E+00 0.94861906E+00 0.95845556E+00 + 0.96670001E+00 0.97354305E+00 0.97916745E+00 0.98374411E+00 0.98743046E+00 + 0.99036980E+00 0.99269065E+00 0.99450624E+00 0.99591439E+00 0.99699784E+00 + 0.99782502E+00 0.99845125E+00 0.99892032E+00 0.99926649E+00 0.99951669E+00 + 0.99969257E+00 0.99981198E+00 0.99988980E+00 0.99993826E+00 0.99996700E+00 + 0.99998319E+00 0.99999185E+00 0.99999624E+00 0.99999836E+00 0.99999932E+00 + 0.99999973E+00 0.99999990E+00 0.99999996E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14002738E-02 0.42008215E-02 0.84016432E-02 0.14002739E-01 + 0.21004108E-01 0.29405748E-01 0.39207656E-01 0.50409825E-01 0.63012244E-01 + 0.77014892E-01 0.92417713E-01 0.10922054E+00 0.12742292E+00 0.14702386E+00 + 0.16802145E+00 0.19041236E+00 0.21419090E+00 0.23934759E+00 0.26586736E+00 + 0.29372723E+00 0.32289291E+00 0.35331444E+00 0.38492062E+00 0.41761180E+00 + 0.45125380E+00 0.48567647E+00 0.52067662E+00 0.55602030E+00 0.59144324E+00 + 0.62665429E+00 0.66134500E+00 0.69520129E+00 0.72791301E+00 0.75918361E+00 + 0.78874338E+00 0.81636393E+00 0.84186945E+00 0.86514237E+00 0.88612356E+00 + 0.90480811E+00 0.92123993E+00 0.93550736E+00 0.94773791E+00 0.95808954E+00 + 0.96673928E+00 0.97387301E+00 0.97967835E+00 0.98433978E+00 0.98803453E+00 + 0.99092870E+00 0.99317313E+00 0.99489967E+00 0.99621902E+00 0.99722120E+00 + 0.99797810E+00 0.99854649E+00 0.99897072E+00 0.99928487E+00 0.99951482E+00 + 0.99968016E+00 0.99979611E+00 0.99987483E+00 0.99992622E+00 0.99995835E+00 + 0.99997752E+00 0.99998841E+00 0.99999430E+00 0.99999732E+00 0.99999880E+00 + 0.99999949E+00 0.99999979E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13734588E-02 0.41203764E-02 0.82407527E-02 0.13734588E-01 + 0.20601881E-01 0.28842633E-01 0.38456841E-01 0.49444503E-01 0.61805602E-01 + 0.75540089E-01 0.90647836E-01 0.10712858E+00 0.12498180E+00 0.14420647E+00 + 0.16480052E+00 0.18676002E+00 0.21007830E+00 0.23474455E+00 0.26074234E+00 + 0.28804824E+00 0.31662994E+00 0.34644244E+00 0.37742240E+00 0.40948169E+00 + 0.44250118E+00 0.47632715E+00 0.51077078E+00 0.54561024E+00 0.58059590E+00 + 0.61545862E+00 0.64991729E+00 0.68368267E+00 0.71645943E+00 0.74795144E+00 + 0.77787266E+00 0.80596451E+00 0.83201730E+00 0.85588778E+00 0.87750394E+00 + 0.89685711E+00 0.91398846E+00 0.92897701E+00 0.94193176E+00 0.95298691E+00 + 0.96229831E+00 0.97003891E+00 0.97639222E+00 0.98154423E+00 0.98567547E+00 + 0.98895441E+00 0.99153264E+00 0.99354233E+00 0.99509619E+00 0.99628927E+00 + 0.99720120E+00 0.99789754E+00 0.99843041E+00 0.99883940E+00 0.99915347E+00 + 0.99939349E+00 0.99957482E+00 0.99970939E+00 0.99980697E+00 0.99987576E+00 + 0.99992274E+00 0.99995370E+00 0.99997332E+00 0.99998524E+00 0.99999218E+00 + 0.99999603E+00 0.99999807E+00 0.99999911E+00 0.99999960E+00 0.99999983E+00 + 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13504875E-02 0.40514624E-02 0.81029249E-02 0.13504875E-01 + 0.20257311E-01 0.28360233E-01 0.37813635E-01 0.48617512E-01 0.60771864E-01 + 0.74276692E-01 0.89131970E-01 0.10533761E+00 0.12289336E+00 0.14179859E+00 + 0.16205202E+00 0.18365159E+00 0.20659440E+00 0.23087608E+00 0.25648923E+00 + 0.28342080E+00 0.31164782E+00 0.34113224E+00 0.37181728E+00 0.40362686E+00 + 0.43646538E+00 0.47021304E+00 0.50471571E+00 0.53977588E+00 0.57515142E+00 + 0.61056115E+00 0.64569261E+00 0.68021294E+00 0.71378456E+00 0.74608125E+00 + 0.77680097E+00 0.80567734E+00 0.83249138E+00 0.85708015E+00 0.87933982E+00 + 0.89922561E+00 0.91675155E+00 0.93198785E+00 0.94505334E+00 0.95610503E+00 + 0.96532802E+00 0.97292526E+00 0.97910581E+00 0.98407337E+00 0.98801787E+00 + 0.99111059E+00 0.99350218E+00 0.99532301E+00 0.99668536E+00 0.99768583E+00 + 0.99840695E+00 0.99891772E+00 0.99927400E+00 0.99951932E+00 0.99968638E+00 + 0.99979890E+00 0.99987372E+00 0.99992265E+00 0.99995395E+00 0.99997345E+00 + 0.99998522E+00 0.99999207E+00 0.99999591E+00 0.99999797E+00 0.99999904E+00 + 0.99999956E+00 0.99999981E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12928650E-02 0.38785951E-02 0.77571902E-02 0.12928650E-01 + 0.19392975E-01 0.27150166E-01 0.36200221E-01 0.46543140E-01 0.58178921E-01 + 0.71107550E-01 0.85328957E-01 0.10084287E+00 0.11764853E+00 0.13574444E+00 + 0.15512846E+00 0.17579813E+00 0.19775088E+00 0.22098377E+00 0.24549245E+00 + 0.27126933E+00 0.29830060E+00 0.32656258E+00 0.35601761E+00 0.38660896E+00 + 0.41825537E+00 0.45084741E+00 0.48424576E+00 0.51827992E+00 0.55274719E+00 + 0.58741207E+00 0.62200801E+00 0.65624393E+00 0.68981433E+00 0.72240965E+00 + 0.75372609E+00 0.78347817E+00 0.81141525E+00 0.83733637E+00 0.86109846E+00 + 0.88261848E+00 0.90187087E+00 0.91888109E+00 0.93371856E+00 0.94649051E+00 + 0.95733467E+00 0.96641038E+00 0.97389100E+00 0.97995906E+00 0.98480170E+00 + 0.98860407E+00 0.99154200E+00 0.99377652E+00 0.99545080E+00 0.99668869E+00 + 0.99759418E+00 0.99825173E+00 0.99872767E+00 0.99907245E+00 0.99932337E+00 + 0.99950736E+00 0.99964338E+00 0.99974462E+00 0.99982012E+00 0.99987614E+00 + 0.99991711E+00 0.99994635E+00 0.99996655E+00 0.99997997E+00 0.99998849E+00 + 0.99999367E+00 0.99999667E+00 0.99999832E+00 0.99999919E+00 0.99999963E+00 + 0.99999984E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12751774E-02 0.38255321E-02 0.76510642E-02 0.12751774E-01 + 0.19127661E-01 0.26778725E-01 0.35704966E-01 0.45906385E-01 0.57382982E-01 + 0.70134755E-01 0.84161703E-01 0.99463808E-01 0.11604098E+00 0.13389288E+00 + 0.15301879E+00 0.17341738E+00 0.19508636E+00 0.21802148E+00 0.24221540E+00 + 0.26765681E+00 0.29432977E+00 0.32221249E+00 0.35127461E+00 0.38147208E+00 + 0.41273948E+00 0.44498155E+00 0.47806792E+00 0.51183242E+00 0.54607463E+00 + 0.58056158E+00 0.61502875E+00 0.64918120E+00 0.68269955E+00 0.71525603E+00 + 0.74653800E+00 0.77626781E+00 0.80421075E+00 0.83017494E+00 0.85401353E+00 + 0.87563265E+00 0.89499919E+00 0.91214106E+00 0.92713841E+00 0.94011123E+00 + 0.95120882E+00 0.96060114E+00 0.96846912E+00 0.97499385E+00 0.98034801E+00 + 0.98469230E+00 0.98817560E+00 0.99093563E+00 0.99309824E+00 0.99477582E+00 + 0.99606604E+00 0.99705171E+00 0.99780111E+00 0.99836899E+00 0.99879805E+00 + 0.99912111E+00 0.99936334E+00 0.99954411E+00 0.99967829E+00 0.99977711E+00 + 0.99984904E+00 0.99990047E+00 0.99993636E+00 0.99996066E+00 0.99997654E+00 + 0.99998654E+00 0.99999257E+00 0.99999606E+00 0.99999800E+00 0.99999902E+00 + 0.99999954E+00 0.99999980E+00 0.99999991E+00 0.99999996E+00 0.99999999E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12279224E-02 0.36837673E-02 0.73675345E-02 0.12279224E-01 + 0.18418836E-01 0.25786371E-01 0.34381828E-01 0.44205207E-01 0.55256509E-01 + 0.67535733E-01 0.81042879E-01 0.95777948E-01 0.11174093E+00 0.12893173E+00 + 0.14735006E+00 0.16699522E+00 0.18786606E+00 0.20996068E+00 0.23327584E+00 + 0.25780633E+00 0.28354422E+00 0.31047660E+00 0.33858166E+00 0.36782434E+00 + 0.39815310E+00 0.42949715E+00 0.46176149E+00 0.49481970E+00 0.52850712E+00 + 0.56261779E+00 0.59690529E+00 0.63108659E+00 0.66484965E+00 0.69786673E+00 + 0.72981253E+00 0.76038091E+00 0.78929500E+00 0.81631492E+00 0.84124977E+00 + 0.86397126E+00 0.88442207E+00 0.90261616E+00 0.91863092E+00 0.93259295E+00 + 0.94466016E+00 0.95500443E+00 0.96379705E+00 0.97119951E+00 0.97736065E+00 + 0.98241948E+00 0.98651014E+00 0.98976513E+00 0.99231430E+00 0.99428042E+00 + 0.99577460E+00 0.99689382E+00 0.99772069E+00 0.99832428E+00 0.99876100E+00 + 0.99907544E+00 0.99930177E+00 0.99946563E+00 0.99958606E+00 0.99967702E+00 + 0.99974825E+00 0.99980598E+00 0.99985366E+00 0.99989291E+00 0.99992445E+00 + 0.99994884E+00 0.99996681E+00 0.99997940E+00 0.99998777E+00 0.99999306E+00 + 0.99999623E+00 0.99999804E+00 0.99999902E+00 0.99999953E+00 0.99999979E+00 + 0.99999991E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12093876E-02 0.36281627E-02 0.72563254E-02 0.12093876E-01 + 0.18140814E-01 0.25397139E-01 0.33862852E-01 0.43537953E-01 0.54422441E-01 + 0.66516317E-01 0.79819580E-01 0.94332230E-01 0.11005426E+00 0.12698561E+00 + 0.14512607E+00 0.16447507E+00 0.18503151E+00 0.20679342E+00 0.22975715E+00 + 0.25391609E+00 0.27925936E+00 0.30577059E+00 0.33342612E+00 0.36219243E+00 + 0.39202390E+00 0.42286021E+00 0.45462130E+00 0.48719980E+00 0.52045313E+00 + 0.55419819E+00 0.58820997E+00 0.62222448E+00 0.65594688E+00 0.68906422E+00 + 0.72125966E+00 0.75222401E+00 0.78166578E+00 0.80932494E+00 0.83499022E+00 + 0.85851196E+00 0.87980648E+00 0.89885334E+00 0.91568889E+00 0.93039816E+00 + 0.94310544E+00 0.95396320E+00 0.96314031E+00 0.97081175E+00 0.97715132E+00 + 0.98232743E+00 0.98650052E+00 0.98982056E+00 0.99242453E+00 0.99443523E+00 + 0.99596174E+00 0.99710054E+00 0.99793599E+00 0.99854024E+00 0.99897293E+00 + 0.99928125E+00 0.99950079E+00 0.99965725E+00 0.99976855E+00 0.99984709E+00 + 0.99990163E+00 0.99993863E+00 0.99996297E+00 0.99997843E+00 0.99998790E+00 + 0.99999346E+00 0.99999660E+00 0.99999830E+00 0.99999918E+00 0.99999962E+00 + 0.99999983E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11909321E-02 0.35727964E-02 0.71455929E-02 0.11909321E-01 + 0.17863982E-01 0.25009575E-01 0.33346100E-01 0.42873557E-01 0.53591947E-01 + 0.65501268E-01 0.78601522E-01 0.92892707E-01 0.10837482E+00 0.12504785E+00 + 0.14291174E+00 0.16196621E+00 0.18221050E+00 0.20364303E+00 0.22626100E+00 + 0.25005969E+00 0.27503133E+00 0.30116314E+00 0.32843507E+00 0.35681761E+00 + 0.38626944E+00 0.41673383E+00 0.44813360E+00 0.48036558E+00 0.51329546E+00 + 0.54675319E+00 0.58052998E+00 0.61437714E+00 0.64800854E+00 0.68111151E+00 + 0.71336560E+00 0.74446153E+00 0.77411619E+00 0.80208403E+00 0.82816296E+00 + 0.85219504E+00 0.87406923E+00 0.89373029E+00 0.91118590E+00 0.92650136E+00 + 0.93978293E+00 0.95116110E+00 0.96078224E+00 0.96880765E+00 0.97541297E+00 + 0.98078315E+00 0.98510296E+00 0.98854689E+00 0.99127169E+00 0.99341275E+00 + 0.99508335E+00 0.99637607E+00 0.99736588E+00 0.99811392E+00 0.99867088E+00 + 0.99907897E+00 0.99937308E+00 0.99958145E+00 0.99972642E+00 0.99982527E+00 + 0.99989120E+00 0.99993408E+00 0.99996121E+00 0.99997786E+00 0.99998777E+00 + 0.99999346E+00 0.99999662E+00 0.99999832E+00 0.99999919E+00 0.99999963E+00 + 0.99999983E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11798608E-02 0.35395825E-02 0.70791651E-02 0.11798608E-01 + 0.17697913E-01 0.24777078E-01 0.33036104E-01 0.42474991E-01 0.53093738E-01 + 0.64892347E-01 0.77870816E-01 0.92029144E-01 0.10736732E+00 0.12388529E+00 + 0.14158289E+00 0.16045974E+00 0.18051497E+00 0.20174707E+00 0.22415365E+00 + 0.24773048E+00 0.27247002E+00 0.29836042E+00 0.32538466E+00 0.35351784E+00 + 0.38272198E+00 0.41294042E+00 0.44409266E+00 0.47607039E+00 0.50873683E+00 + 0.54192701E+00 0.57544489E+00 0.60906019E+00 0.64251090E+00 0.67551229E+00 + 0.70776837E+00 0.73898295E+00 0.76887161E+00 0.79717619E+00 0.82367846E+00 + 0.84820945E+00 0.87065412E+00 0.89095128E+00 0.90908895E+00 0.92509747E+00 + 0.93904271E+00 0.95102046E+00 0.96115304E+00 0.96958768E+00 0.97649349E+00 + 0.98205516E+00 0.98646375E+00 0.98990715E+00 0.99256139E+00 0.99458346E+00 + 0.99610687E+00 0.99724130E+00 0.99807527E+00 0.99867974E+00 0.99911115E+00 + 0.99941385E+00 0.99962221E+00 0.99976253E+00 0.99985471E+00 0.99991362E+00 + 0.99995017E+00 0.99997214E+00 0.99998491E+00 0.99999210E+00 0.99999600E+00 + 0.99999804E+00 0.99999907E+00 0.99999958E+00 0.99999982E+00 0.99999992E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11649246E-02 0.34947738E-02 0.69895477E-02 0.11649246E-01 + 0.17473869E-01 0.24463417E-01 0.32617889E-01 0.41937286E-01 0.52421608E-01 + 0.64070854E-01 0.76885024E-01 0.90864120E-01 0.10600814E+00 0.12231708E+00 + 0.13979092E+00 0.15842954E+00 0.17823255E+00 0.19919902E+00 0.22132712E+00 + 0.24461354E+00 0.26905270E+00 0.29463573E+00 0.32134871E+00 0.34917029E+00 + 0.37806825E+00 0.40799487E+00 0.43888126E+00 0.47063133E+00 0.50311634E+00 + 0.53617129E+00 0.56959409E+00 0.60314766E+00 0.63656581E+00 0.66956278E+00 + 0.70184415E+00 0.73311660E+00 0.76309643E+00 0.79151966E+00 0.81815471E+00 + 0.84281625E+00 0.86537765E+00 0.88577747E+00 0.90401617E+00 0.92014549E+00 + 0.93425664E+00 0.94647012E+00 0.95692590E+00 0.96577409E+00 0.97316830E+00 + 0.97926269E+00 0.98421059E+00 0.98816281E+00 0.99126504E+00 0.99365518E+00 + 0.99546112E+00 0.99679917E+00 0.99777246E+00 0.99846913E+00 0.99896114E+00 + 0.99930461E+00 0.99954173E+00 0.99970337E+00 0.99981191E+00 0.99988345E+00 + 0.99992958E+00 0.99995859E+00 0.99997634E+00 0.99998688E+00 0.99999295E+00 + 0.99999633E+00 0.99999815E+00 0.99999910E+00 0.99999958E+00 0.99999981E+00 + 0.99999992E+00 0.99999996E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11470313E-02 0.34410938E-02 0.68821877E-02 0.11470313E-01 + 0.17205469E-01 0.24087657E-01 0.32116876E-01 0.41293126E-01 0.51616408E-01 + 0.63086721E-01 0.75704065E-01 0.89468440E-01 0.10437985E+00 0.12043828E+00 + 0.13764375E+00 0.15599622E+00 0.17549563E+00 0.19614172E+00 0.21793348E+00 + 0.24086830E+00 0.26494104E+00 0.29014330E+00 0.31646256E+00 0.34388011E+00 + 0.37236682E+00 0.40187789E+00 0.43234874E+00 0.46369252E+00 0.49579784E+00 + 0.52852665E+00 0.56171263E+00 0.59515859E+00 0.62863196E+00 0.66186172E+00 + 0.69454172E+00 0.72634244E+00 0.75693224E+00 0.78600608E+00 0.81331224E+00 + 0.83866587E+00 0.86194720E+00 0.88309125E+00 0.90207660E+00 0.91891924E+00 + 0.93367201E+00 0.94642418E+00 0.95729717E+00 0.96643740E+00 0.97400885E+00 + 0.98018604E+00 0.98514718E+00 0.98906706E+00 0.99211055E+00 0.99442838E+00 + 0.99615570E+00 0.99741218E+00 0.99830237E+00 0.99891560E+00 0.99932591E+00 + 0.99959239E+00 0.99976031E+00 0.99986297E+00 0.99992386E+00 0.99995888E+00 + 0.99997843E+00 0.99998901E+00 0.99999456E+00 0.99999739E+00 0.99999879E+00 + 0.99999945E+00 0.99999976E+00 0.99999990E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11295572E-02 0.33886717E-02 0.67773434E-02 0.11295572E-01 + 0.16943359E-01 0.23720702E-01 0.31627603E-01 0.40664061E-01 0.50830076E-01 + 0.62125648E-01 0.74550778E-01 0.88105464E-01 0.10278971E+00 0.11860351E+00 + 0.13554687E+00 0.15361978E+00 0.17282225E+00 0.19315422E+00 0.21461555E+00 + 0.23720566E+00 0.26092267E+00 0.28576164E+00 0.31171257E+00 0.33875865E+00 + 0.36687509E+00 0.39602640E+00 0.42616026E+00 0.45719804E+00 0.48902578E+00 + 0.52149100E+00 0.55440748E+00 0.58756330E+00 0.62072570E+00 0.65364384E+00 + 0.68605380E+00 0.71768438E+00 0.74825964E+00 0.77750028E+00 0.80513201E+00 + 0.83090495E+00 0.85462091E+00 0.87615551E+00 0.89546251E+00 0.91256054E+00 + 0.92751576E+00 0.94043273E+00 0.95145393E+00 0.96075702E+00 0.96854140E+00 + 0.97500796E+00 0.98034247E+00 0.98470854E+00 0.98824879E+00 0.99108888E+00 + 0.99334058E+00 0.99510297E+00 0.99646270E+00 0.99749472E+00 0.99826333E+00 + 0.99882360E+00 0.99922235E+00 0.99949888E+00 0.99968546E+00 0.99980782E+00 + 0.99988575E+00 0.99993394E+00 0.99996287E+00 0.99997972E+00 0.99998924E+00 + 0.99999446E+00 0.99999723E+00 0.99999866E+00 0.99999937E+00 0.99999971E+00 + 0.99999988E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11110913E-02 0.33332740E-02 0.66665481E-02 0.11110913E-01 + 0.16666370E-01 0.23332918E-01 0.31110558E-01 0.39999289E-01 0.49999111E-01 + 0.61110024E-01 0.73332029E-01 0.86665125E-01 0.10110931E+00 0.11666459E+00 + 0.13333096E+00 0.15110841E+00 0.16999684E+00 0.18999589E+00 0.21110461E+00 + 0.23332121E+00 0.25664266E+00 0.28106389E+00 0.30657599E+00 0.33316379E+00 + 0.36080401E+00 0.38946340E+00 0.41909580E+00 0.44963820E+00 0.48100633E+00 + 0.51308985E+00 0.54574535E+00 0.57878636E+00 0.61197645E+00 0.64503595E+00 + 0.67766433E+00 0.70956497E+00 0.74045803E+00 0.77008063E+00 0.79818462E+00 + 0.82454202E+00 0.84895768E+00 0.87128211E+00 0.89142005E+00 0.90933532E+00 + 0.92505330E+00 0.93865972E+00 0.95029275E+00 0.96012742E+00 0.96835607E+00 + 0.97517127E+00 0.98075506E+00 0.98527489E+00 0.98888434E+00 0.99172531E+00 + 0.99392858E+00 0.99561225E+00 0.99687980E+00 0.99781926E+00 0.99850387E+00 + 0.99899362E+00 0.99933699E+00 0.99957258E+00 0.99973058E+00 0.99983404E+00 + 0.99990016E+00 0.99994136E+00 0.99996639E+00 0.99998121E+00 0.99998976E+00 + 0.99999456E+00 0.99999718E+00 0.99999858E+00 0.99999931E+00 0.99999967E+00 + 0.99999985E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11006682E-02 0.33020045E-02 0.66040090E-02 0.11006682E-01 + 0.16510023E-01 0.23114032E-01 0.30818709E-01 0.39624054E-01 0.49530068E-01 + 0.60536749E-01 0.72644099E-01 0.85852117E-01 0.10016080E+00 0.11557013E+00 + 0.13207994E+00 0.14968966E+00 0.16839797E+00 0.18820288E+00 0.20910206E+00 + 0.23109303E+00 0.25417296E+00 0.27833778E+00 0.30358040E+00 0.32988774E+00 + 0.35723709E+00 0.38559278E+00 0.41490420E+00 0.44510506E+00 0.47610996E+00 + 0.50780672E+00 0.54005027E+00 0.57266476E+00 0.60545133E+00 0.63819173E+00 + 0.67064205E+00 0.70252544E+00 0.73353801E+00 0.76336996E+00 0.79173138E+00 + 0.81837430E+00 0.84310872E+00 0.86580839E+00 0.88640390E+00 0.90486991E+00 + 0.92121793E+00 0.93549710E+00 0.94779613E+00 0.95824093E+00 0.96698759E+00 + 0.97421276E+00 0.98010309E+00 0.98484509E+00 0.98861606E+00 0.99157743E+00 + 0.99387129E+00 0.99562048E+00 0.99693054E+00 0.99789207E+00 0.99858247E+00 + 0.99906689E+00 0.99939887E+00 0.99962106E+00 0.99976630E+00 0.99985904E+00 + 0.99991687E+00 0.99995209E+00 0.99997303E+00 0.99998518E+00 0.99999206E+00 + 0.99999585E+00 0.99999789E+00 0.99999895E+00 0.99999950E+00 0.99999977E+00 + 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10717367E-02 0.32152100E-02 0.64304200E-02 0.10717367E-01 + 0.16076050E-01 0.22506470E-01 0.30008627E-01 0.38582520E-01 0.48228150E-01 + 0.58945517E-01 0.70734621E-01 0.83595461E-01 0.97528037E-01 0.11253235E+00 + 0.12860840E+00 0.14575619E+00 0.16397570E+00 0.18326694E+00 0.20362983E+00 + 0.22506418E+00 0.24756926E+00 0.27114310E+00 0.29578130E+00 0.32147550E+00 + 0.34821110E+00 0.37596312E+00 0.40469178E+00 0.43433886E+00 0.46482327E+00 + 0.49603547E+00 0.52783331E+00 0.56004012E+00 0.59244492E+00 0.62480690E+00 + 0.65686433E+00 0.68834319E+00 0.71896337E+00 0.74844838E+00 0.77654290E+00 + 0.80303313E+00 0.82775969E+00 0.85061649E+00 0.87153970E+00 0.89049806E+00 + 0.90748978E+00 0.92254360E+00 0.93572052E+00 0.94711527E+00 0.95685614E+00 + 0.96509948E+00 0.97201682E+00 0.97777906E+00 0.98254408E+00 0.98645095E+00 + 0.98961991E+00 0.99215610E+00 0.99415416E+00 0.99570143E+00 0.99687881E+00 + 0.99775996E+00 0.99840980E+00 0.99888321E+00 0.99922461E+00 0.99946855E+00 + 0.99964117E+00 0.99976191E+00 0.99984513E+00 0.99990145E+00 0.99993877E+00 + 0.99996291E+00 0.99997812E+00 0.99998745E+00 0.99999300E+00 0.99999620E+00 + 0.99999800E+00 0.99999898E+00 0.99999950E+00 0.99999976E+00 0.99999989E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10717481E-02 0.32152444E-02 0.64304888E-02 0.10717481E-01 + 0.16076222E-01 0.22506711E-01 0.30008948E-01 0.38582933E-01 0.48228666E-01 + 0.58946147E-01 0.70735377E-01 0.83596354E-01 0.97529076E-01 0.11253352E+00 + 0.12860964E+00 0.14575734E+00 0.16397647E+00 0.18326666E+00 0.20362720E+00 + 0.22505691E+00 0.24755404E+00 0.27111539E+00 0.29573431E+00 0.32139797E+00 + 0.34808521E+00 0.37576589E+00 0.40440032E+00 0.43393733E+00 0.46431159E+00 + 0.49543887E+00 0.52720546E+00 0.55945488E+00 0.59198226E+00 0.62454142E+00 + 0.65685878E+00 0.68864696E+00 0.71961644E+00 0.74948824E+00 0.77800796E+00 + 0.80495542E+00 0.83014657E+00 0.85343385E+00 0.87471209E+00 0.89392693E+00 + 0.91107751E+00 0.92620991E+00 0.93940413E+00 0.95076292E+00 0.96040809E+00 + 0.96848161E+00 0.97514484E+00 0.98057279E+00 0.98494483E+00 0.98843436E+00 + 0.99119984E+00 0.99337865E+00 0.99508455E+00 0.99640887E+00 0.99742448E+00 + 0.99819065E+00 0.99875702E+00 0.99916605E+00 0.99945406E+00 0.99965150E+00 + 0.99978319E+00 0.99986860E+00 0.99992245E+00 0.99995544E+00 0.99997509E+00 + 0.99998645E+00 0.99999283E+00 0.99999632E+00 0.99999816E+00 0.99999911E+00 + 0.99999958E+00 0.99999981E+00 0.99999992E+00 0.99999996E+00 0.99999999E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10514511E-02 0.31543533E-02 0.63087066E-02 0.10514511E-01 + 0.15771766E-01 0.22080473E-01 0.29440631E-01 0.37852239E-01 0.47315299E-01 + 0.57829810E-01 0.69395772E-01 0.82013184E-01 0.95682048E-01 0.11040236E+00 + 0.12617409E+00 0.14299715E+00 0.16087141E+00 0.17979666E+00 0.19977255E+00 + 0.22079839E+00 0.24287272E+00 0.26599287E+00 0.29015453E+00 0.31535086E+00 + 0.34157038E+00 0.36879437E+00 0.39699436E+00 0.42612914E+00 0.45614033E+00 + 0.48694638E+00 0.51843467E+00 0.55045431E+00 0.58281407E+00 0.61528752E+00 + 0.64762348E+00 0.67955878E+00 0.71082919E+00 0.74117499E+00 0.77034264E+00 + 0.79808847E+00 0.82418666E+00 0.84843994E+00 0.87069214E+00 0.89083914E+00 + 0.90883336E+00 0.92468219E+00 0.93844491E+00 0.95022883E+00 0.96018160E+00 + 0.96847885E+00 0.97530954E+00 0.98086337E+00 0.98532218E+00 0.98885495E+00 + 0.99161546E+00 0.99374184E+00 0.99535706E+00 0.99656913E+00 0.99747061E+00 + 0.99813796E+00 0.99863169E+00 0.99899770E+00 0.99926971E+00 0.99947205E+00 + 0.99962222E+00 0.99973302E+00 0.99981401E+00 0.99987248E+00 0.99991407E+00 + 0.99994315E+00 0.99996313E+00 0.99997657E+00 0.99998543E+00 0.99999114E+00 + 0.99999474E+00 0.99999695E+00 0.99999828E+00 0.99999905E+00 0.99999949E+00 + 0.99999973E+00 0.99999986E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + NUCLEUS 14 7 40 18 + 25.33414 0.15000 2.55000 3.78354 + 0.00000000E+00 0.85433989E-03 0.25630197E-02 0.51260394E-02 0.85433989E-02 + 0.12815098E-01 0.17941138E-01 0.23921517E-01 0.30756236E-01 0.38445295E-01 + 0.46988694E-01 0.56386433E-01 0.66638512E-01 0.77744930E-01 0.89705689E-01 + 0.10252079E+00 0.11619023E+00 0.13071400E+00 0.14609212E+00 0.16232456E+00 + 0.17941131E+00 0.19735227E+00 0.21614724E+00 0.23579583E+00 0.25629730E+00 + 0.27764997E+00 0.29985052E+00 0.32289364E+00 0.34677184E+00 0.37147436E+00 + 0.39698486E+00 0.42327908E+00 0.45032243E+00 0.47806642E+00 0.50644538E+00 + 0.53537507E+00 0.56475083E+00 0.59444278E+00 0.62429058E+00 0.65410238E+00 + 0.68365924E+00 0.71272391E+00 0.74105166E+00 0.76840067E+00 0.79453974E+00 + 0.81925630E+00 0.84236804E+00 0.86373489E+00 0.88326541E+00 0.90091685E+00 + 0.91669200E+00 0.93063425E+00 0.94282112E+00 0.95335574E+00 0.96235777E+00 + 0.96995675E+00 0.97628892E+00 0.98149596E+00 0.98572287E+00 0.98911319E+00 + 0.99180249E+00 0.99391269E+00 0.99554923E+00 0.99680134E+00 0.99774430E+00 + 0.99844171E+00 0.99894722E+00 0.99930564E+00 0.99955376E+00 0.99972116E+00 + 0.99983096E+00 0.99990081E+00 0.99994378E+00 0.99996928E+00 0.99998384E+00 + 0.99999183E+00 0.99999604E+00 0.99999816E+00 0.99999918E+00 0.99999965E+00 + 0.99999986E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.84778147E-03 0.25433444E-02 0.50866888E-02 0.84778147E-02 + 0.12716722E-01 0.17803411E-01 0.23737881E-01 0.30520133E-01 0.38150166E-01 + 0.46627981E-01 0.55953577E-01 0.66126955E-01 0.77148114E-01 0.89017055E-01 + 0.10173378E+00 0.11529828E+00 0.12971057E+00 0.14497063E+00 0.16107848E+00 + 0.17803409E+00 0.19583744E+00 0.21448844E+00 0.23398685E+00 0.25433225E+00 + 0.27552392E+00 0.29756066E+00 0.32043996E+00 0.34415647E+00 0.36870033E+00 + 0.39405576E+00 0.42019945E+00 0.44709795E+00 0.47470455E+00 0.50295575E+00 + 0.53176580E+00 0.56101916E+00 0.59056545E+00 0.62022114E+00 0.64977656E+00 + 0.67900477E+00 0.70767210E+00 0.73555103E+00 0.76243066E+00 0.78812159E+00 + 0.81245766E+00 0.83529862E+00 0.85653382E+00 0.87608342E+00 0.89389618E+00 + 0.90994851E+00 0.92424785E+00 0.93683742E+00 0.94779695E+00 0.95723709E+00 + 0.96528882E+00 0.97209250E+00 0.97778936E+00 0.98251562E+00 0.98639844E+00 + 0.98955384E+00 0.99208683E+00 0.99409276E+00 0.99565832E+00 0.99686135E+00 + 0.99777041E+00 0.99844469E+00 0.99893469E+00 0.99928316E+00 0.99952574E+00 + 0.99969133E+00 0.99980243E+00 0.99987585E+00 0.99992361E+00 0.99995415E+00 + 0.99997325E+00 0.99998488E+00 0.99999175E+00 0.99999566E+00 0.99999780E+00 + 0.99999893E+00 0.99999950E+00 0.99999978E+00 0.99999991E+00 0.99999996E+00 + 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.84185709E-03 0.25255713E-02 0.50511425E-02 0.84185709E-02 + 0.12627856E-01 0.17678999E-01 0.23571998E-01 0.30306855E-01 0.37883569E-01 + 0.46302140E-01 0.55562568E-01 0.65664853E-01 0.76608995E-01 0.88394994E-01 + 0.10102285E+00 0.11449256E+00 0.12880413E+00 0.14395756E+00 0.15995284E+00 + 0.17678997E+00 0.19446892E+00 0.21298966E+00 0.23235205E+00 0.25255584E+00 + 0.27360042E+00 0.29548462E+00 0.31820620E+00 0.34176097E+00 0.36614123E+00 + 0.39133338E+00 0.41731549E+00 0.44405523E+00 0.47150808E+00 0.49961512E+00 + 0.52830031E+00 0.55746692E+00 0.58699370E+00 0.61673101E+00 0.64649817E+00 + 0.67608418E+00 0.70525367E+00 0.73375671E+00 0.76133976E+00 0.78775830E+00 + 0.81279211E+00 0.83625891E+00 0.85802160E+00 0.87798837E+00 0.89610881E+00 + 0.91236926E+00 0.92678959E+00 0.93942201E+00 0.95035025E+00 0.95968660E+00 + 0.96756573E+00 0.97413641E+00 0.97955326E+00 0.98396981E+00 0.98753334E+00 + 0.99038089E+00 0.99263636E+00 0.99440835E+00 0.99578952E+00 0.99685737E+00 + 0.99767623E+00 0.99829924E+00 0.99876993E+00 0.99912320E+00 0.99938629E+00 + 0.99957998E+00 0.99972015E+00 0.99981919E+00 0.99988708E+00 0.99993200E+00 + 0.99996057E+00 0.99997801E+00 0.99998822E+00 0.99999393E+00 0.99999700E+00 + 0.99999858E+00 0.99999935E+00 0.99999972E+00 0.99999988E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.84264439E-03 0.25279332E-02 0.50558663E-02 0.84264439E-02 + 0.12639666E-01 0.17695532E-01 0.23594043E-01 0.30335198E-01 0.37918998E-01 + 0.46345441E-01 0.55614530E-01 0.65726262E-01 0.76680639E-01 0.88477660E-01 + 0.10111732E+00 0.11459957E+00 0.12892429E+00 0.14409118E+00 0.16009981E+00 + 0.17694975E+00 0.19464070E+00 0.21317255E+00 0.23254521E+00 0.25275838E+00 + 0.27381134E+00 0.29570265E+00 0.31842974E+00 0.34198825E+00 0.36637090E+00 + 0.39156598E+00 0.41755500E+00 0.44430956E+00 0.47178764E+00 0.49992976E+00 + 0.52865500E+00 0.55785596E+00 0.58739430E+00 0.61710132E+00 0.64678514E+00 + 0.67624009E+00 0.70525184E+00 0.73359734E+00 0.76104516E+00 0.78736246E+00 + 0.81232953E+00 0.83575616E+00 0.85749372E+00 0.87744083E+00 0.89554368E+00 + 0.91179278E+00 0.92621697E+00 0.93887639E+00 0.94985662E+00 0.95926509E+00 + 0.96722801E+00 0.97388570E+00 0.97938592E+00 0.98387668E+00 0.98750074E+00 + 0.99039232E+00 0.99267496E+00 0.99445966E+00 0.99584318E+00 0.99690725E+00 + 0.99771910E+00 0.99833304E+00 0.99879265E+00 0.99913295E+00 0.99938212E+00 + 0.99956284E+00 0.99969298E+00 0.99978630E+00 0.99985305E+00 0.99990058E+00 + 0.99993416E+00 0.99995753E+00 0.99997343E+00 0.99998393E+00 0.99999063E+00 + 0.99999475E+00 0.99999717E+00 0.99999854E+00 0.99999927E+00 0.99999966E+00 + 0.99999984E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.82636844E-03 0.24791053E-02 0.49582107E-02 0.82636844E-02 + 0.12395527E-01 0.17353737E-01 0.23138316E-01 0.29749264E-01 0.37186580E-01 + 0.45450264E-01 0.54540317E-01 0.64456739E-01 0.75199528E-01 0.86768687E-01 + 0.99164213E-01 0.11238611E+00 0.12643436E+00 0.14130896E+00 0.15700989E+00 + 0.17353705E+00 0.19089027E+00 0.20906917E+00 0.22807306E+00 0.24790081E+00 + 0.26855077E+00 0.29002064E+00 0.31230702E+00 0.33540484E+00 0.35930646E+00 + 0.38400038E+00 0.40946909E+00 0.43568598E+00 0.46261205E+00 0.49019336E+00 + 0.51835923E+00 0.54702040E+00 0.57606733E+00 0.60536852E+00 0.63476979E+00 + 0.66409449E+00 0.69314485E+00 0.72170428E+00 0.74954167E+00 0.77641903E+00 + 0.80210219E+00 0.82637295E+00 0.84904131E+00 0.86995684E+00 0.88901777E+00 + 0.90617495E+00 0.92142964E+00 0.93482651E+00 0.94644533E+00 0.95639452E+00 + 0.96480662E+00 0.97183338E+00 0.97763842E+00 0.98238824E+00 0.98624326E+00 + 0.98935091E+00 0.99184097E+00 0.99382373E+00 0.99539052E+00 0.99661610E+00 + 0.99756195E+00 0.99827952E+00 0.99881276E+00 0.99919975E+00 0.99947346E+00 + 0.99966191E+00 0.99978818E+00 0.99987053E+00 0.99992284E+00 0.99995519E+00 + 0.99997466E+00 0.99998607E+00 0.99999256E+00 0.99999614E+00 0.99999806E+00 + 0.99999906E+00 0.99999956E+00 0.99999980E+00 0.99999991E+00 0.99999996E+00 + 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.80755725E-03 0.24226717E-02 0.48453435E-02 0.80755725E-02 + 0.12113359E-01 0.16958702E-01 0.22611603E-01 0.29072061E-01 0.36340076E-01 + 0.44415649E-01 0.53298778E-01 0.62989465E-01 0.73487710E-01 0.84793511E-01 + 0.96906870E-01 0.10982779E+00 0.12355626E+00 0.13809229E+00 0.15343588E+00 + 0.16958702E+00 0.18654570E+00 0.20431189E+00 0.22288547E+00 0.24226614E+00 + 0.26245309E+00 0.28344448E+00 0.30523690E+00 0.32782507E+00 0.35120168E+00 + 0.37535678E+00 0.40027631E+00 0.42593985E+00 0.45231809E+00 0.47937027E+00 + 0.50704131E+00 0.53525864E+00 0.56392849E+00 0.59293266E+00 0.62212630E+00 + 0.65133768E+00 0.68037010E+00 0.70900578E+00 0.73701154E+00 0.76414662E+00 + 0.79017330E+00 0.81487034E+00 0.83804618E+00 0.85954829E+00 0.87926798E+00 + 0.89714262E+00 0.91315722E+00 0.92734362E+00 0.93977496E+00 0.95055564E+00 + 0.95980988E+00 0.96767226E+00 0.97428149E+00 0.97977654E+00 0.98429363E+00 + 0.98796327E+00 0.99090760E+00 0.99323851E+00 0.99505676E+00 0.99645211E+00 + 0.99750377E+00 0.99828086E+00 0.99884282E+00 0.99923983E+00 0.99951334E+00 + 0.99969676E+00 0.99981632E+00 0.99989195E+00 0.99993833E+00 0.99996588E+00 + 0.99998171E+00 0.99999051E+00 0.99999523E+00 0.99999769E+00 0.99999892E+00 + 0.99999951E+00 0.99999979E+00 0.99999991E+00 0.99999996E+00 0.99999999E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.80091254E-03 0.24027376E-02 0.48054753E-02 0.80091254E-02 + 0.12013688E-01 0.16819163E-01 0.22425551E-01 0.28832852E-01 0.36041064E-01 + 0.44050190E-01 0.52860228E-01 0.62471178E-01 0.72883041E-01 0.84095817E-01 + 0.96109505E-01 0.10892411E+00 0.12253962E+00 0.13695604E+00 0.15217338E+00 + 0.16819163E+00 0.18501079E+00 0.20263084E+00 0.22105176E+00 0.24027343E+00 + 0.26029559E+00 0.28111756E+00 0.30273787E+00 0.32515366E+00 0.34835985E+00 + 0.37234807E+00 0.39710515E+00 0.42261082E+00 0.44883515E+00 0.47573667E+00 + 0.50326092E+00 0.53133791E+00 0.55987825E+00 0.58876961E+00 0.61787428E+00 + 0.64702752E+00 0.67603706E+00 0.70468576E+00 0.73273830E+00 0.75995248E+00 + 0.78609385E+00 0.81094947E+00 0.83433685E+00 0.85610830E+00 0.87615341E+00 + 0.89440042E+00 0.91081657E+00 0.92540756E+00 0.93821652E+00 0.94932147E+00 + 0.95883041E+00 0.96687416E+00 0.97359810E+00 0.97915420E+00 0.98369443E+00 + 0.98736548E+00 0.99030439E+00 0.99263527E+00 0.99446733E+00 0.99589432E+00 + 0.99699506E+00 0.99783485E+00 0.99846731E+00 0.99893635E+00 0.99927792E+00 + 0.99952145E+00 0.99969097E+00 0.99980586E+00 0.99988153E+00 0.99992985E+00 + 0.99995974E+00 0.99997762E+00 0.99998796E+00 0.99999374E+00 0.99999685E+00 + 0.99999847E+00 0.99999928E+00 0.99999968E+00 0.99999986E+00 0.99999994E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.78398149E-03 0.23519445E-02 0.47038890E-02 0.78398149E-02 + 0.11759722E-01 0.16463611E-01 0.21951482E-01 0.28223334E-01 0.35279167E-01 + 0.43118982E-01 0.51742778E-01 0.61150556E-01 0.71342316E-01 0.82318057E-01 + 0.94077779E-01 0.10662148E+00 0.11994917E+00 0.13406083E+00 0.14895648E+00 + 0.16463611E+00 0.18109971E+00 0.19834728E+00 0.21637879E+00 0.23519420E+00 + 0.25479335E+00 0.27517587E+00 0.29634082E+00 0.31828614E+00 0.34100775E+00 + 0.36449832E+00 0.38874598E+00 0.41373263E+00 0.43943229E+00 0.46580935E+00 + 0.49281729E+00 0.52039622E+00 0.54846824E+00 0.57693138E+00 0.60565542E+00 + 0.63448220E+00 0.66322995E+00 0.69169911E+00 0.71967656E+00 0.74693928E+00 + 0.77326150E+00 0.79842674E+00 0.82224087E+00 0.84454201E+00 0.86520630E+00 + 0.88415065E+00 0.90133335E+00 0.91675290E+00 0.93044445E+00 0.94247411E+00 + 0.95293178E+00 0.96192388E+00 0.96956681E+00 0.97598245E+00 0.98129585E+00 + 0.98563405E+00 0.98912425E+00 0.99189077E+00 0.99405098E+00 0.99571172E+00 + 0.99696730E+00 0.99789911E+00 0.99857647E+00 0.99905775E+00 0.99939138E+00 + 0.99961668E+00 0.99976476E+00 0.99985939E+00 0.99991818E+00 0.99995365E+00 + 0.99997445E+00 0.99998629E+00 0.99999284E+00 0.99999636E+00 0.99999820E+00 + 0.99999914E+00 0.99999960E+00 0.99999982E+00 0.99999992E+00 0.99999996E+00 + 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.76899291E-03 0.23069787E-02 0.46139575E-02 0.76899291E-02 + 0.11534894E-01 0.16148851E-01 0.21531801E-01 0.27683745E-01 0.34604681E-01 + 0.42294610E-01 0.50753532E-01 0.59981447E-01 0.69978355E-01 0.80744256E-01 + 0.92279149E-01 0.10458304E+00 0.11765592E+00 0.13149779E+00 0.14610865E+00 + 0.16148851E+00 0.17763736E+00 0.19455520E+00 0.21224201E+00 0.23069776E+00 + 0.24992234E+00 0.26991551E+00 0.29067679E+00 0.31220520E+00 0.33449881E+00 + 0.35755418E+00 0.38136564E+00 0.40592412E+00 0.43121525E+00 0.45721696E+00 + 0.48389664E+00 0.51120730E+00 0.53908234E+00 0.56743056E+00 0.59613362E+00 + 0.62504670E+00 0.65400018E+00 0.68280119E+00 0.71123602E+00 0.73907526E+00 + 0.76608171E+00 0.79202019E+00 0.81666828E+00 0.83982631E+00 0.86132576E+00 + 0.88103675E+00 0.89887603E+00 0.91481348E+00 0.92887322E+00 0.94112765E+00 + 0.95168649E+00 0.96068487E+00 0.96827312E+00 0.97460835E+00 0.97984731E+00 + 0.98414036E+00 0.98762696E+00 0.99043323E+00 0.99267125E+00 0.99443946E+00 + 0.99582348E+00 0.99689684E+00 0.99772162E+00 0.99834926E+00 0.99882176E+00 + 0.99917299E+00 0.99943017E+00 0.99961521E+00 0.99974572E+00 0.99983577E+00 + 0.99989645E+00 0.99993634E+00 0.99996187E+00 0.99997777E+00 0.99998740E+00 + 0.99999306E+00 0.99999629E+00 0.99999807E+00 0.99999903E+00 0.99999953E+00 + 0.99999978E+00 0.99999990E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.75414102E-03 0.22624231E-02 0.45248461E-02 0.75414102E-02 + 0.11312115E-01 0.15836961E-01 0.21115949E-01 0.27149077E-01 0.33936346E-01 + 0.41477756E-01 0.49773308E-01 0.58823000E-01 0.68626833E-01 0.79184807E-01 + 0.90496923E-01 0.10256318E+00 0.11538358E+00 0.12895812E+00 0.14328679E+00 + 0.15836961E+00 0.17420657E+00 0.19079767E+00 0.20814288E+00 0.22624216E+00 + 0.24509538E+00 0.26470232E+00 0.28506259E+00 0.30617552E+00 0.32804005E+00 + 0.35065434E+00 0.37401468E+00 0.39811359E+00 0.42293713E+00 0.44846214E+00 + 0.47465395E+00 0.50146454E+00 0.52883081E+00 0.55667241E+00 0.58488890E+00 + 0.61335679E+00 0.64192790E+00 0.67043005E+00 0.69867009E+00 0.72643828E+00 + 0.75351330E+00 0.77966875E+00 0.80468300E+00 0.82835212E+00 0.85050174E+00 + 0.87099508E+00 0.88973702E+00 0.90667541E+00 0.92180013E+00 0.93514037E+00 + 0.94676097E+00 0.95675818E+00 0.96525408E+00 0.97238873E+00 0.97831088E+00 + 0.98316931E+00 0.98710652E+00 0.99025540E+00 0.99273807E+00 0.99466562E+00 + 0.99613800E+00 0.99724367E+00 0.99805950E+00 0.99865084E+00 0.99907201E+00 + 0.99936709E+00 0.99957090E+00 0.99971014E+00 0.99980464E+00 0.99986860E+00 + 0.99991195E+00 0.99994138E+00 0.99996137E+00 0.99997491E+00 0.99998400E+00 + 0.99999001E+00 0.99999392E+00 0.99999639E+00 0.99999792E+00 0.99999884E+00 + 0.99999937E+00 0.99999967E+00 0.99999983E+00 0.99999992E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.73749737E-03 0.22124921E-02 0.44249842E-02 0.73749737E-02 + 0.11062461E-01 0.15487445E-01 0.20649926E-01 0.26549905E-01 0.33187382E-01 + 0.40562355E-01 0.48674826E-01 0.57524795E-01 0.67112261E-01 0.77437224E-01 + 0.88499685E-01 0.10029964E+00 0.11283710E+00 0.12611205E+00 0.14012448E+00 + 0.15487436E+00 0.17036162E+00 0.18658614E+00 0.20354777E+00 0.22124628E+00 + 0.23968148E+00 0.25885315E+00 0.27876114E+00 0.29940530E+00 0.32078531E+00 + 0.34290042E+00 0.36574874E+00 0.38932628E+00 0.41362535E+00 0.43863225E+00 + 0.46432434E+00 0.49066664E+00 0.51760834E+00 0.54508000E+00 0.57299088E+00 + 0.60122550E+00 0.62963965E+00 0.65805886E+00 0.68628226E+00 0.71409126E+00 + 0.74125948E+00 0.76756208E+00 0.79278503E+00 0.81673449E+00 0.83924464E+00 + 0.86018240E+00 0.87945001E+00 0.89698670E+00 0.91276949E+00 0.92681256E+00 + 0.93916540E+00 0.94990971E+00 0.95915424E+00 0.96702677E+00 0.97366455E+00 + 0.97920531E+00 0.98378126E+00 0.98751639E+00 0.99052593E+00 0.99291664E+00 + 0.99478686E+00 0.99622615E+00 0.99731483E+00 0.99812354E+00 0.99871306E+00 + 0.99913444E+00 0.99942953E+00 0.99963183E+00 0.99976749E+00 0.99985640E+00 + 0.99991332E+00 0.99994889E+00 0.99997059E+00 0.99998349E+00 0.99999096E+00 + 0.99999518E+00 0.99999750E+00 0.99999874E+00 0.99999938E+00 0.99999971E+00 + 0.99999986E+00 0.99999994E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.72754129E-03 0.21826239E-02 0.43652477E-02 0.72754129E-02 + 0.10913119E-01 0.15278367E-01 0.20371156E-01 0.26191486E-01 0.32739358E-01 + 0.40014771E-01 0.48017725E-01 0.56748220E-01 0.66206257E-01 0.76391835E-01 + 0.87304955E-01 0.98945615E-01 0.11131382E+00 0.12440956E+00 0.13823284E+00 + 0.15278367E+00 0.16806204E+00 0.18406795E+00 0.20080139E+00 0.21826237E+00 + 0.23645084E+00 0.25536670E+00 0.27500971E+00 0.29537944E+00 0.31647530E+00 + 0.33829637E+00 0.36084098E+00 0.38410563E+00 0.40808319E+00 0.43276038E+00 + 0.45811493E+00 0.48411352E+00 0.51071047E+00 0.53784604E+00 0.56544329E+00 + 0.59340394E+00 0.62160500E+00 0.64989750E+00 0.67810700E+00 0.70603552E+00 + 0.73346511E+00 0.76016413E+00 0.78589738E+00 0.81043889E+00 0.83358628E+00 + 0.85517390E+00 0.87508199E+00 0.89323958E+00 0.90962139E+00 0.92424060E+00 + 0.93714062E+00 0.94838860E+00 0.95807186E+00 0.96629656E+00 0.97318650E+00 + 0.97887999E+00 0.98352380E+00 0.98726544E+00 0.99024569E+00 0.99259335E+00 + 0.99442269E+00 0.99583300E+00 0.99690932E+00 0.99772337E+00 0.99833459E+00 + 0.99879102E+00 0.99913051E+00 0.99938201E+00 0.99956723E+00 0.99970231E+00 + 0.99979943E+00 0.99986794E+00 0.99991516E+00 0.99994689E+00 0.99996762E+00 + 0.99998079E+00 0.99998891E+00 0.99999378E+00 0.99999660E+00 0.99999820E+00 + 0.99999907E+00 0.99999954E+00 0.99999977E+00 0.99999989E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.71510776E-03 0.21453233E-02 0.42906466E-02 0.71510776E-02 + 0.10726616E-01 0.15017263E-01 0.20023017E-01 0.25743880E-01 0.32179849E-01 + 0.39330927E-01 0.47197112E-01 0.55778406E-01 0.65074807E-01 0.75086315E-01 + 0.85812932E-01 0.97254656E-01 0.10941149E+00 0.12228343E+00 0.13587048E+00 + 0.15017263E+00 0.16518989E+00 0.18092226E+00 0.19736974E+00 0.21453233E+00 + 0.23241001E+00 0.25100277E+00 0.27031048E+00 0.29033277E+00 0.31106877E+00 + 0.33251688E+00 0.35467455E+00 0.37753790E+00 0.40110079E+00 0.42535343E+00 + 0.45028066E+00 0.47585980E+00 0.50205807E+00 0.52882923E+00 0.55610932E+00 + 0.58381185E+00 0.61182304E+00 0.63999927E+00 0.66816900E+00 0.69613800E+00 + 0.72369561E+00 0.75062083E+00 0.77668831E+00 0.80167404E+00 0.82536323E+00 + 0.84756257E+00 0.86811544E+00 0.88691382E+00 0.90390266E+00 0.91907712E+00 + 0.93247571E+00 0.94417168E+00 0.95426451E+00 0.96287281E+00 0.97012887E+00 + 0.97617397E+00 0.98115346E+00 0.98521147E+00 0.98848593E+00 0.99110432E+00 + 0.99318063E+00 0.99481381E+00 0.99608791E+00 0.99707350E+00 0.99782934E+00 + 0.99840401E+00 0.99883720E+00 0.99916091E+00 0.99940064E+00 0.99957653E+00 + 0.99970433E+00 0.99979626E+00 0.99986165E+00 0.99990757E+00 0.99993936E+00 + 0.99996099E+00 0.99997544E+00 0.99998488E+00 0.99999091E+00 0.99999467E+00 + 0.99999695E+00 0.99999830E+00 0.99999908E+00 0.99999952E+00 0.99999975E+00 + 0.99999988E+00 0.99999994E+00 0.99999997E+00 0.99999999E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.69862508E-03 0.20958752E-02 0.41917505E-02 0.69862508E-02 + 0.10479376E-01 0.14671127E-01 0.19561502E-01 0.25150503E-01 0.31438129E-01 + 0.38424380E-01 0.46109255E-01 0.54492756E-01 0.63574882E-01 0.73355634E-01 + 0.83835010E-01 0.95013011E-01 0.10688964E+00 0.11946489E+00 0.13273877E+00 + 0.14671127E+00 0.16138239E+00 0.17675215E+00 0.19282052E+00 0.20958752E+00 + 0.22705315E+00 0.24521740E+00 0.26408028E+00 0.28364178E+00 0.30390186E+00 + 0.32486033E+00 0.34651641E+00 0.36886800E+00 0.39191071E+00 0.41563699E+00 + 0.44003507E+00 0.46508722E+00 0.49076672E+00 0.51703400E+00 0.54383287E+00 + 0.57108799E+00 0.59870310E+00 0.62655917E+00 0.65451180E+00 0.68238870E+00 + 0.70998935E+00 0.73708909E+00 0.76344899E+00 0.78883027E+00 0.81301017E+00 + 0.83579544E+00 0.85703147E+00 0.87660624E+00 0.89444986E+00 0.91053235E+00 + 0.92486168E+00 0.93748213E+00 0.94847104E+00 0.95793259E+00 0.96598935E+00 + 0.97277371E+00 0.97842120E+00 0.98306645E+00 0.98684073E+00 0.98986996E+00 + 0.99227254E+00 0.99415701E+00 0.99562007E+00 0.99674547E+00 0.99760380E+00 + 0.99825322E+00 0.99874060E+00 0.99910315E+00 0.99937012E+00 0.99956438E+00 + 0.99970377E+00 0.99980220E+00 0.99987047E+00 0.99991690E+00 0.99994782E+00 + 0.99996796E+00 0.99998077E+00 0.99998872E+00 0.99999355E+00 0.99999640E+00 + 0.99999804E+00 0.99999896E+00 0.99999946E+00 0.99999973E+00 0.99999987E+00 + 0.99999994E+00 0.99999997E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.69358889E-03 0.20807667E-02 0.41615333E-02 0.69358889E-02 + 0.10403833E-01 0.14565367E-01 0.19420489E-01 0.24969200E-01 0.31211500E-01 + 0.38147389E-01 0.45776867E-01 0.54099933E-01 0.63116589E-01 0.72826833E-01 + 0.83230666E-01 0.94328089E-01 0.10611910E+00 0.11860370E+00 0.13178189E+00 + 0.14565367E+00 0.16021903E+00 0.17547799E+00 0.19143053E+00 0.20807666E+00 + 0.22541636E+00 0.24344950E+00 0.26217580E+00 0.28159474E+00 0.30170581E+00 + 0.32250852E+00 0.34400223E+00 0.36618541E+00 0.38905474E+00 0.41260381E+00 + 0.43682182E+00 0.46169214E+00 0.48719069E+00 0.51328255E+00 0.53991705E+00 + 0.56702293E+00 0.59450619E+00 0.62224973E+00 0.65011206E+00 0.67792530E+00 + 0.70549621E+00 0.73261169E+00 0.75904796E+00 0.78458109E+00 0.80899619E+00 + 0.83209485E+00 0.85370267E+00 0.87367936E+00 0.89192888E+00 0.90840493E+00 + 0.92310876E+00 0.93608123E+00 0.94739315E+00 0.95713772E+00 0.96542641E+00 + 0.97238626E+00 0.97815633E+00 0.98288236E+00 0.98671006E+00 0.98977849E+00 + 0.99221496E+00 0.99413204E+00 0.99562657E+00 0.99678035E+00 0.99766156E+00 + 0.99832659E+00 0.99882179E+00 0.99918496E+00 0.99944678E+00 0.99963198E+00 + 0.99976029E+00 0.99984721E+00 0.99990475E+00 0.99994194E+00 0.99996540E+00 + 0.99997985E+00 0.99998853E+00 0.99999362E+00 0.99999653E+00 0.99999816E+00 + 0.99999905E+00 0.99999952E+00 0.99999976E+00 0.99999989E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.67466372E-03 0.20239912E-02 0.40479823E-02 0.67466372E-02 + 0.10119956E-01 0.14167938E-01 0.18890584E-01 0.24287894E-01 0.30359867E-01 + 0.37106504E-01 0.44527805E-01 0.52623770E-01 0.61394398E-01 0.70839690E-01 + 0.80959646E-01 0.91754266E-01 0.10322355E+00 0.11536750E+00 0.12818611E+00 + 0.14167938E+00 0.15584732E+00 0.17068992E+00 0.18620719E+00 0.20239912E+00 + 0.21926571E+00 0.23680696E+00 0.25502287E+00 0.27391339E+00 0.29347835E+00 + 0.31371747E+00 0.33463027E+00 0.35621598E+00 0.37847314E+00 0.40139878E+00 + 0.42498755E+00 0.44923079E+00 0.47411512E+00 0.49961915E+00 0.52570806E+00 + 0.55232728E+00 0.57939720E+00 0.60681019E+00 0.63443003E+00 0.66209341E+00 + 0.68961324E+00 0.71678373E+00 0.74338729E+00 0.76920348E+00 0.79401916E+00 + 0.81763740E+00 0.83988438E+00 0.86061612E+00 0.87972490E+00 0.89714386E+00 + 0.91284828E+00 0.92685327E+00 0.93920823E+00 0.94998941E+00 0.95929292E+00 + 0.96722907E+00 0.97391761E+00 0.97948335E+00 0.98405276E+00 0.98775146E+00 + 0.99070214E+00 0.99302215E+00 0.99482066E+00 0.99619622E+00 0.99723502E+00 + 0.99801027E+00 0.99858250E+00 0.99900053E+00 0.99930290E+00 0.99951944E+00 + 0.99967292E+00 0.99978047E+00 0.99985491E+00 0.99990569E+00 0.99993979E+00 + 0.99996229E+00 0.99997685E+00 0.99998608E+00 0.99999181E+00 0.99999529E+00 + 0.99999735E+00 0.99999855E+00 0.99999922E+00 0.99999959E+00 0.99999979E+00 + 0.99999990E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.66978027E-03 0.20093408E-02 0.40186816E-02 0.66978027E-02 + 0.10046704E-01 0.14065386E-01 0.18753848E-01 0.24112090E-01 0.30140112E-01 + 0.36837915E-01 0.44205498E-01 0.52242861E-01 0.60950005E-01 0.70326929E-01 + 0.80373633E-01 0.91090117E-01 0.10247638E+00 0.11453243E+00 0.12725825E+00 + 0.14065386E+00 0.15471924E+00 0.16945441E+00 0.18485936E+00 0.20093408E+00 + 0.21767859E+00 0.23509288E+00 0.25317694E+00 0.27193079E+00 0.29135441E+00 + 0.31144777E+00 0.33221077E+00 0.35364294E+00 0.37574272E+00 0.39850618E+00 + 0.42192555E+00 0.44598790E+00 0.47067420E+00 0.49595788E+00 0.52180171E+00 + 0.54815364E+00 0.57494346E+00 0.60208092E+00 0.62945497E+00 0.65693308E+00 + 0.68435986E+00 0.71155620E+00 0.73832162E+00 0.76444137E+00 0.78969685E+00 + 0.81387611E+00 0.83678210E+00 0.85823935E+00 0.87810112E+00 0.89625755E+00 + 0.91264266E+00 0.92723709E+00 0.94006554E+00 0.95119068E+00 0.96070625E+00 + 0.96873128E+00 0.97540456E+00 0.98087796E+00 0.98530840E+00 0.98884957E+00 + 0.99164520E+00 0.99382484E+00 0.99550207E+00 0.99677452E+00 0.99772497E+00 + 0.99842293E+00 0.99892615E+00 0.99928201E+00 0.99952869E+00 0.99969626E+00 + 0.99980782E+00 0.99988061E+00 0.99992718E+00 0.99995639E+00 0.99997436E+00 + 0.99998520E+00 0.99999162E+00 0.99999534E+00 0.99999746E+00 0.99999864E+00 + 0.99999929E+00 0.99999964E+00 0.99999982E+00 0.99999991E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.65801276E-03 0.19740383E-02 0.39480766E-02 0.65801276E-02 + 0.98701914E-02 0.13818268E-01 0.18424357E-01 0.23688459E-01 0.29610574E-01 + 0.36190702E-01 0.43428842E-01 0.51324995E-01 0.59879161E-01 0.69091340E-01 + 0.78961531E-01 0.89489736E-01 0.10067595E+00 0.11252018E+00 0.12502242E+00 + 0.13818268E+00 0.15200095E+00 0.16647723E+00 0.18161152E+00 0.19740383E+00 + 0.21385415E+00 0.23096248E+00 0.24872882E+00 0.26715318E+00 0.28623555E+00 + 0.30597592E+00 0.32637423E+00 0.34743012E+00 0.36914256E+00 0.39150920E+00 + 0.41452555E+00 0.43818354E+00 0.46246889E+00 0.48735804E+00 0.51281582E+00 + 0.53879439E+00 0.56523150E+00 0.59204618E+00 0.61913262E+00 0.64635638E+00 + 0.67355569E+00 0.70054746E+00 0.72713461E+00 0.75311243E+00 0.77827479E+00 + 0.80242240E+00 0.82537241E+00 0.84696585E+00 0.86707144E+00 0.88558712E+00 + 0.90244251E+00 0.91760280E+00 0.93107186E+00 0.94289224E+00 0.95314145E+00 + 0.96192571E+00 0.96937181E+00 0.97561799E+00 0.98080461E+00 0.98506679E+00 + 0.98853004E+00 0.99130899E+00 0.99350794E+00 0.99522176E+00 0.99653628E+00 + 0.99752801E+00 0.99826370E+00 0.99880020E+00 0.99918470E+00 0.99945541E+00 + 0.99964259E+00 0.99976962E+00 0.99985422E+00 0.99990948E+00 0.99994487E+00 + 0.99996708E+00 0.99998073E+00 0.99998895E+00 0.99999380E+00 0.99999659E+00 + 0.99999817E+00 0.99999904E+00 0.99999951E+00 0.99999975E+00 0.99999988E+00 + 0.99999994E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.64891383E-03 0.19467415E-02 0.38934830E-02 0.64891383E-02 + 0.97337074E-02 0.13627190E-01 0.18169587E-01 0.23360898E-01 0.29201122E-01 + 0.35690261E-01 0.42828313E-01 0.50615279E-01 0.59051158E-01 0.68135952E-01 + 0.77869659E-01 0.88252281E-01 0.99283816E-01 0.11096426E+00 0.12329363E+00 + 0.13627190E+00 0.14989909E+00 0.16417520E+00 0.17910022E+00 0.19467415E+00 + 0.21089699E+00 0.22776875E+00 0.24528943E+00 0.26345901E+00 0.28227749E+00 + 0.30174476E+00 0.32186042E+00 0.34262355E+00 0.36403245E+00 0.38608433E+00 + 0.40877470E+00 0.43209630E+00 0.45603761E+00 0.48058106E+00 0.50570042E+00 + 0.53135778E+00 0.55750075E+00 0.58406003E+00 0.61094707E+00 0.63805150E+00 + 0.66523907E+00 0.69235070E+00 0.71920413E+00 0.74559907E+00 0.77132452E+00 + 0.79616611E+00 0.81991312E+00 0.84236651E+00 0.86334900E+00 0.88271599E+00 + 0.90036576E+00 0.91624611E+00 0.93035525E+00 0.94273619E+00 0.95346679E+00 + 0.96264907E+00 0.97040088E+00 0.97685099E+00 0.98213610E+00 0.98639806E+00 + 0.98977998E+00 0.99242135E+00 0.99445285E+00 0.99599229E+00 0.99714211E+00 + 0.99798875E+00 0.99860329E+00 0.99904295E+00 0.99935295E+00 0.99956834E+00 + 0.99971583E+00 0.99981538E+00 0.99988164E+00 0.99992512E+00 0.99995326E+00 + 0.99997123E+00 0.99998255E+00 0.99998957E+00 0.99999386E+00 0.99999645E+00 + 0.99999798E+00 0.99999887E+00 0.99999938E+00 0.99999967E+00 0.99999982E+00 + 0.99999991E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.64367443E-03 0.19310233E-02 0.38620466E-02 0.64367443E-02 + 0.96551165E-02 0.13517163E-01 0.18022884E-01 0.23172280E-01 0.28965349E-01 + 0.35402094E-01 0.42482512E-01 0.50206606E-01 0.58574373E-01 0.67585815E-01 + 0.77240932E-01 0.87539723E-01 0.98482188E-01 0.11006833E+00 0.12229814E+00 + 0.13517163E+00 0.14868879E+00 0.16284963E+00 0.17765414E+00 0.19310233E+00 + 0.20919419E+00 0.22592973E+00 0.24330894E+00 0.26133182E+00 0.27999837E+00 + 0.29930856E+00 0.31926223E+00 0.33985900E+00 0.36109800E+00 0.38297733E+00 + 0.40549309E+00 0.42863809E+00 0.45240076E+00 0.47676384E+00 0.50170258E+00 + 0.52718175E+00 0.55315091E+00 0.57953809E+00 0.60624461E+00 0.63314412E+00 + 0.66008616E+00 0.68690153E+00 0.71340748E+00 0.73941242E+00 0.76472093E+00 + 0.78913975E+00 0.81248389E+00 0.83458226E+00 0.85528436E+00 0.87446875E+00 + 0.89205104E+00 0.90798773E+00 0.92227497E+00 0.93494354E+00 0.94605244E+00 + 0.95568274E+00 0.96393298E+00 0.97091605E+00 0.97675611E+00 0.98158445E+00 + 0.98553421E+00 0.98873442E+00 0.99130473E+00 0.99335178E+00 0.99496787E+00 + 0.99623161E+00 0.99720951E+00 0.99795777E+00 0.99852358E+00 0.99894617E+00 + 0.99925776E+00 0.99948442E+00 0.99964698E+00 0.99976185E+00 0.99984179E+00 + 0.99989653E+00 0.99993342E+00 0.99995786E+00 0.99997378E+00 0.99998396E+00 + 0.99999036E+00 0.99999432E+00 0.99999671E+00 0.99999813E+00 0.99999896E+00 + 0.99999943E+00 0.99999970E+00 0.99999984E+00 0.99999992E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.63156999E-03 0.18947100E-02 0.37894200E-02 0.63156999E-02 + 0.94735499E-02 0.13262970E-01 0.17683960E-01 0.22736520E-01 0.28420650E-01 + 0.34736350E-01 0.41683620E-01 0.49262459E-01 0.57472869E-01 0.66314849E-01 + 0.75788399E-01 0.85893519E-01 0.96630209E-01 0.10799847E+00 0.11999830E+00 + 0.13262970E+00 0.14589267E+00 0.15978721E+00 0.17431332E+00 0.18947100E+00 + 0.20526025E+00 0.22168107E+00 0.23873345E+00 0.25641737E+00 0.27473267E+00 + 0.29367893E+00 0.31325529E+00 0.33346048E+00 0.35429293E+00 0.37575091E+00 + 0.39783202E+00 0.42053171E+00 0.44384098E+00 0.46774398E+00 0.49221581E+00 + 0.51722057E+00 0.54270920E+00 0.56861741E+00 0.59486444E+00 0.62135307E+00 + 0.64796976E+00 0.67458381E+00 0.70104529E+00 0.72718204E+00 0.75279853E+00 + 0.77768143E+00 0.80161388E+00 0.82439351E+00 0.84584687E+00 0.86583653E+00 + 0.88426279E+00 0.90106335E+00 0.91621218E+00 0.92971811E+00 0.94162270E+00 + 0.95199654E+00 0.96093338E+00 0.96854305E+00 0.97494522E+00 0.98026471E+00 + 0.98462794E+00 0.98815992E+00 0.99098137E+00 0.99320605E+00 0.99493825E+00 + 0.99627076E+00 0.99728384E+00 0.99804510E+00 0.99861034E+00 0.99902483E+00 + 0.99932481E+00 0.99953896E+00 0.99968966E+00 0.99979414E+00 0.99986548E+00 + 0.99991343E+00 0.99994515E+00 0.99996579E+00 0.99997901E+00 0.99998733E+00 + 0.99999248E+00 0.99999561E+00 0.99999748E+00 0.99999858E+00 0.99999922E+00 + 0.99999958E+00 0.99999977E+00 0.99999988E+00 0.99999994E+00 0.99999997E+00 + 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.62712441E-03 0.18813732E-02 0.37627465E-02 0.62712441E-02 + 0.94068662E-02 0.13169613E-01 0.17559484E-01 0.22576479E-01 0.28220599E-01 + 0.34491843E-01 0.41390211E-01 0.48915704E-01 0.57068322E-01 0.65848063E-01 + 0.75254929E-01 0.85288920E-01 0.95950035E-01 0.10723827E+00 0.11915364E+00 + 0.13169613E+00 0.14486574E+00 0.15866248E+00 0.17308634E+00 0.18813732E+00 + 0.20381543E+00 0.22012067E+00 0.23705303E+00 0.25461251E+00 0.27279911E+00 + 0.29161282E+00 0.31105356E+00 0.33112118E+00 0.35181534E+00 0.37313526E+00 + 0.39507916E+00 0.41764301E+00 0.44081920E+00 0.46459539E+00 0.48895354E+00 + 0.51386802E+00 0.53930215E+00 0.56520324E+00 0.59149782E+00 0.61808924E+00 + 0.64485874E+00 0.67166880E+00 0.69836569E+00 0.72477926E+00 0.75072113E+00 + 0.77598591E+00 0.80035848E+00 0.82362617E+00 0.84559253E+00 0.86609023E+00 + 0.88499127E+00 0.90221162E+00 0.91771026E+00 0.93148552E+00 0.94357180E+00 + 0.95403686E+00 0.96297788E+00 0.97051566E+00 0.97678717E+00 0.98193759E+00 + 0.98611284E+00 0.98945351E+00 0.99209075E+00 0.99414397E+00 0.99571983E+00 + 0.99691198E+00 0.99780106E+00 0.99845495E+00 0.99892930E+00 0.99926870E+00 + 0.99950809E+00 0.99967440E+00 0.99978808E+00 0.99986446E+00 0.99991485E+00 + 0.99994748E+00 0.99996821E+00 0.99998112E+00 0.99998900E+00 0.99999371E+00 + 0.99999648E+00 0.99999807E+00 0.99999896E+00 0.99999945E+00 0.99999972E+00 + 0.99999986E+00 0.99999993E+00 0.99999997E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.62073478E-03 0.18622043E-02 0.37244087E-02 0.62073478E-02 + 0.93110217E-02 0.13035430E-01 0.17380574E-01 0.22346452E-01 0.27933065E-01 + 0.34140413E-01 0.40968495E-01 0.48417313E-01 0.56486865E-01 0.65177152E-01 + 0.74488173E-01 0.84419930E-01 0.94972421E-01 0.10614565E+00 0.11793961E+00 + 0.13035430E+00 0.14338973E+00 0.15704590E+00 0.17132280E+00 0.18622043E+00 + 0.20173880E+00 0.21787791E+00 0.23463775E+00 0.25201832E+00 0.27001963E+00 + 0.28864167E+00 0.30788444E+00 0.32774787E+00 0.34823177E+00 0.36933551E+00 + 0.39105766E+00 0.41339524E+00 0.43634294E+00 0.45989164E+00 0.48402604E+00 + 0.50872119E+00 0.53393876E+00 0.55962402E+00 0.58570381E+00 0.61208523E+00 + 0.63865514E+00 0.66528111E+00 0.69181277E+00 0.71808226E+00 0.74390475E+00 + 0.76908187E+00 0.79340936E+00 0.81668704E+00 0.83872862E+00 0.85937064E+00 + 0.87848033E+00 0.89596196E+00 0.91176092E+00 0.92586514E+00 0.93830382E+00 + 0.94914311E+00 0.95847913E+00 0.96642957E+00 0.97312505E+00 0.97870149E+00 + 0.98329413E+00 0.98703352E+00 0.99004299E+00 0.99243688E+00 0.99431923E+00 + 0.99578264E+00 0.99690756E+00 0.99776225E+00 0.99840353E+00 0.99887811E+00 + 0.99922404E+00 0.99947211E+00 0.99964694E+00 0.99976793E+00 0.99985013E+00 + 0.99990493E+00 0.99994077E+00 0.99996377E+00 0.99997825E+00 0.99998719E+00 + 0.99999259E+00 0.99999580E+00 0.99999767E+00 0.99999873E+00 0.99999932E+00 + 0.99999965E+00 0.99999982E+00 0.99999991E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.61489078E-03 0.18446723E-02 0.36893447E-02 0.61489078E-02 + 0.92233617E-02 0.12912706E-01 0.17216942E-01 0.22136068E-01 0.27670085E-01 + 0.33818993E-01 0.40582792E-01 0.47961481E-01 0.55955061E-01 0.64563532E-01 + 0.73786894E-01 0.83625146E-01 0.94078290E-01 0.10514632E+00 0.11682925E+00 + 0.12912706E+00 0.14203977E+00 0.15556737E+00 0.16970986E+00 0.18446723E+00 + 0.19983950E+00 0.21582666E+00 0.23242872E+00 0.24964566E+00 0.26747749E+00 + 0.28592421E+00 0.30498582E+00 0.32466228E+00 0.34495342E+00 0.36585866E+00 + 0.38737639E+00 0.40950322E+00 0.43223320E+00 0.45555731E+00 0.47946272E+00 + 0.50393125E+00 0.52893612E+00 0.55443617E+00 0.58036846E+00 0.60664291E+00 + 0.63314158E+00 0.65972196E+00 0.68622165E+00 0.71246298E+00 0.73825773E+00 + 0.76341321E+00 0.78773907E+00 0.81105360E+00 0.83318877E+00 0.85399469E+00 + 0.87334501E+00 0.89114334E+00 0.90732871E+00 0.92187809E+00 0.93480543E+00 + 0.94615792E+00 0.95601004E+00 0.96445642E+00 0.97160573E+00 0.97757677E+00 + 0.98249576E+00 0.98649296E+00 0.98969800E+00 0.99223468E+00 0.99421665E+00 + 0.99574507E+00 0.99690788E+00 0.99778032E+00 0.99842573E+00 0.99889659E+00 + 0.99923549E+00 0.99947627E+00 0.99964523E+00 0.99976237E+00 0.99984265E+00 + 0.99989702E+00 0.99993341E+00 0.99995748E+00 0.99997320E+00 0.99998333E+00 + 0.99998978E+00 0.99999382E+00 0.99999632E+00 0.99999785E+00 0.99999876E+00 + 0.99999930E+00 0.99999961E+00 0.99999979E+00 0.99999989E+00 0.99999994E+00 + 0.99999997E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.93636633E-03 0.28090990E-02 0.56181980E-02 0.93636633E-02 + 0.14045495E-01 0.19663693E-01 0.26218257E-01 0.33709187E-01 0.42136484E-01 + 0.51500147E-01 0.61800177E-01 0.73036572E-01 0.85209333E-01 0.98318457E-01 + 0.11236394E+00 0.12734574E+00 0.14326383E+00 0.16011815E+00 0.17790860E+00 + 0.19663488E+00 0.21629628E+00 0.23689152E+00 0.25841877E+00 0.28087562E+00 + 0.30425788E+00 0.32855699E+00 0.35375744E+00 0.37983540E+00 0.40675749E+00 + 0.43447984E+00 0.46294573E+00 0.49207940E+00 0.52177911E+00 0.55191476E+00 + 0.58233066E+00 0.61285180E+00 0.64328796E+00 0.67343075E+00 0.70305007E+00 + 0.73189914E+00 0.75972848E+00 0.78630496E+00 0.81142860E+00 0.83494015E+00 + 0.85671979E+00 0.87668505E+00 0.89479191E+00 0.91103800E+00 0.92546407E+00 + 0.93814803E+00 0.94918974E+00 0.95869788E+00 0.96678789E+00 0.97358503E+00 + 0.97922418E+00 0.98384517E+00 0.98758634E+00 0.99057885E+00 0.99294323E+00 + 0.99478843E+00 0.99621146E+00 0.99729602E+00 0.99811123E+00 0.99871248E+00 + 0.99914470E+00 0.99944592E+00 0.99964907E+00 0.99978204E+00 0.99986713E+00 + 0.99992074E+00 0.99995409E+00 0.99997443E+00 0.99998644E+00 0.99999320E+00 + 0.99999680E+00 0.99999859E+00 0.99999942E+00 0.99999978E+00 0.99999992E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.95720253E-03 0.28716076E-02 0.57432151E-02 0.95720249E-02 + 0.14358037E-01 0.20101250E-01 0.26801666E-01 0.34459284E-01 0.43074103E-01 + 0.52646119E-01 0.63175328E-01 0.74661726E-01 0.87105312E-01 0.10050609E+00 + 0.11486405E+00 0.13017918E+00 0.14645142E+00 0.16368073E+00 0.18186706E+00 + 0.20101012E+00 0.22110902E+00 0.24216179E+00 0.26416493E+00 0.28711306E+00 + 0.31099907E+00 0.33581329E+00 0.36154062E+00 0.38815653E+00 0.41562386E+00 + 0.44389026E+00 0.47288363E+00 0.50250783E+00 0.53264338E+00 0.56315052E+00 + 0.59386855E+00 0.62461447E+00 0.65518497E+00 0.68536052E+00 0.71491085E+00 + 0.74360168E+00 0.77120263E+00 0.79749686E+00 0.82228941E+00 0.84541199E+00 + 0.86672880E+00 0.88614678E+00 0.90362558E+00 0.91918044E+00 0.93287601E+00 + 0.94481313E+00 0.95511430E+00 0.96391234E+00 0.97134291E+00 0.97754133E+00 + 0.98264282E+00 0.98678273E+00 0.99009460E+00 0.99270629E+00 0.99473547E+00 + 0.99628637E+00 0.99744897E+00 0.99830016E+00 0.99890565E+00 0.99932184E+00 + 0.99959680E+00 0.99977064E+00 0.99987544E+00 0.99993553E+00 0.99996823E+00 + 0.99998511E+00 0.99999336E+00 0.99999719E+00 0.99999887E+00 0.99999957E+00 + 0.99999984E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.94127291E-03 0.28238187E-02 0.56476375E-02 0.94127291E-02 + 0.14119094E-01 0.19766731E-01 0.26355641E-01 0.33885823E-01 0.42357276E-01 + 0.51769993E-01 0.62123961E-01 0.73419134E-01 0.85655381E-01 0.98832443E-01 + 0.11295003E+00 0.12800796E+00 0.14400610E+00 0.16094412E+00 0.17882137E+00 + 0.19763705E+00 0.21739027E+00 0.23807985E+00 0.25970371E+00 0.28225820E+00 + 0.30573761E+00 0.33013324E+00 0.35543179E+00 0.38161285E+00 0.40864571E+00 + 0.43648636E+00 0.46507453E+00 0.49432872E+00 0.52413944E+00 0.55436531E+00 + 0.58483618E+00 0.61536249E+00 0.64574426E+00 0.67577535E+00 0.70524444E+00 + 0.73393651E+00 0.76163754E+00 0.78813995E+00 0.81324822E+00 0.83678887E+00 + 0.85862229E+00 0.87864976E+00 0.89681393E+00 0.91309534E+00 0.92750919E+00 + 0.94010575E+00 0.95097315E+00 0.96023597E+00 0.96804530E+00 0.97456351E+00 + 0.97995102E+00 0.98435897E+00 0.98792677E+00 0.99078165E+00 0.99303865E+00 + 0.99480073E+00 0.99615911E+00 0.99719351E+00 0.99797234E+00 0.99855270E+00 + 0.99898074E+00 0.99929263E+00 0.99951637E+00 0.99967387E+00 0.99978268E+00 + 0.99985683E+00 0.99990702E+00 0.99994089E+00 0.99996356E+00 0.99997844E+00 + 0.99998785E+00 0.99999352E+00 0.99999674E+00 0.99999846E+00 0.99999932E+00 + 0.99999972E+00 0.99999989E+00 0.99999996E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.92577935E-03 0.27773380E-02 0.55546761E-02 0.92577935E-02 + 0.13886690E-01 0.19441366E-01 0.25921822E-01 0.33328056E-01 0.41660069E-01 + 0.50917855E-01 0.61101402E-01 0.72210698E-01 0.84245751E-01 0.97206578E-01 + 0.11109318E+00 0.12590550E+00 0.14164343E+00 0.15830676E+00 0.17589512E+00 + 0.19440793E+00 0.21384445E+00 0.23420365E+00 0.25548403E+00 0.27768311E+00 + 0.30079670E+00 0.32481785E+00 0.34973478E+00 0.37552805E+00 0.40216768E+00 + 0.42961131E+00 0.45780302E+00 0.48667112E+00 0.51612426E+00 0.54604710E+00 + 0.57629856E+00 0.60671332E+00 0.63710476E+00 0.66726677E+00 0.69697512E+00 + 0.72599063E+00 0.75406659E+00 0.78096162E+00 0.80645564E+00 0.83036506E+00 + 0.85255366E+00 0.87293531E+00 0.89146813E+00 0.90814488E+00 0.92298651E+00 + 0.93604134E+00 0.94738726E+00 0.95713202E+00 0.96540781E+00 0.97236131E+00 + 0.97814304E+00 0.98289960E+00 0.98676929E+00 0.98988024E+00 0.99234987E+00 + 0.99428450E+00 0.99577904E+00 0.99691688E+00 0.99777047E+00 0.99840219E+00 + 0.99886483E+00 0.99920147E+00 0.99944561E+00 0.99962203E+00 0.99974850E+00 + 0.99983773E+00 0.99989910E+00 0.99993986E+00 0.99996579E+00 0.99998149E+00 + 0.99999050E+00 0.99999539E+00 0.99999788E+00 0.99999908E+00 0.99999962E+00 + 0.99999986E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.91674544E-03 0.27502363E-02 0.55004726E-02 0.91674544E-02 + 0.13751182E-01 0.19251654E-01 0.25668872E-01 0.33002836E-01 0.41253545E-01 + 0.50420999E-01 0.60505199E-01 0.71506143E-01 0.83423833E-01 0.96258264E-01 + 0.11000943E+00 0.12467733E+00 0.14026194E+00 0.15676322E+00 0.17418107E+00 + 0.19251526E+00 0.21176522E+00 0.23192989E+00 0.25300742E+00 0.27499478E+00 + 0.29788729E+00 0.32167797E+00 0.34635670E+00 0.37190779E+00 0.39830643E+00 + 0.42551597E+00 0.45348625E+00 0.48215131E+00 0.51142565E+00 0.54120118E+00 + 0.57134682E+00 0.60170900E+00 0.63211058E+00 0.66234925E+00 0.69219751E+00 + 0.72140645E+00 0.74971664E+00 0.77687636E+00 0.80265944E+00 0.82687622E+00 + 0.84937851E+00 0.87006299E+00 0.88887347E+00 0.90579958E+00 0.92087095E+00 + 0.93415036E+00 0.94572853E+00 0.95571828E+00 0.96424644E+00 0.97144581E+00 + 0.97745041E+00 0.98239432E+00 0.98641149E+00 0.98963405E+00 0.99218847E+00 + 0.99419118E+00 0.99574510E+00 0.99693780E+00 0.99784169E+00 0.99851571E+00 + 0.99900797E+00 0.99935819E+00 0.99959953E+00 0.99975979E+00 0.99986185E+00 + 0.99992398E+00 0.99996005E+00 0.99997997E+00 0.99999043E+00 0.99999565E+00 + 0.99999812E+00 0.99999923E+00 0.99999970E+00 0.99999989E+00 0.99999996E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.89445036E-03 0.26833511E-02 0.53667022E-02 0.89445036E-02 + 0.13416755E-01 0.18783458E-01 0.25044610E-01 0.32200213E-01 0.40250266E-01 + 0.49194770E-01 0.59033724E-01 0.69767127E-01 0.81394981E-01 0.93917283E-01 + 0.10733403E+00 0.12164521E+00 0.13685082E+00 0.15295085E+00 0.16994532E+00 + 0.18783422E+00 0.20661751E+00 0.22629501E+00 0.24686636E+00 0.26833078E+00 + 0.29068661E+00 0.31393029E+00 0.33805443E+00 0.36304599E+00 0.38888551E+00 + 0.41554641E+00 0.44299203E+00 0.47117032E+00 0.50000956E+00 0.52941688E+00 + 0.55927710E+00 0.58944863E+00 0.61975882E+00 0.65000527E+00 0.67996332E+00 + 0.70939345E+00 0.73804615E+00 0.76567018E+00 0.79202816E+00 0.81691453E+00 + 0.84016820E+00 0.86167603E+00 0.88136943E+00 0.89921896E+00 0.91522879E+00 + 0.92943042E+00 0.94187785E+00 0.95264649E+00 0.96183530E+00 0.96956801E+00 + 0.97598983E+00 0.98125902E+00 0.98553563E+00 0.98897096E+00 0.99170073E+00 + 0.99384327E+00 0.99550119E+00 0.99676418E+00 0.99771071E+00 0.99840863E+00 + 0.99891501E+00 0.99927633E+00 0.99952937E+00 0.99970268E+00 0.99981821E+00 + 0.99989280E+00 0.99993921E+00 0.99996693E+00 0.99998277E+00 0.99999142E+00 + 0.99999592E+00 0.99999815E+00 0.99999920E+00 0.99999967E+00 0.99999987E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.88194092E-03 0.26458227E-02 0.52916455E-02 0.88194092E-02 + 0.13229114E-01 0.18520759E-01 0.24694346E-01 0.31749873E-01 0.39687341E-01 + 0.48506750E-01 0.58208100E-01 0.68791391E-01 0.80256623E-01 0.92603794E-01 + 0.10583290E+00 0.11994394E+00 0.13493691E+00 0.15081180E+00 0.16756860E+00 + 0.18520725E+00 0.20372768E+00 0.22312968E+00 0.24341288E+00 0.26457648E+00 + 0.28661873E+00 0.30953590E+00 0.33332087E+00 0.35796140E+00 0.38343905E+00 + 0.40972841E+00 0.43679510E+00 0.46459167E+00 0.49305302E+00 0.52209390E+00 + 0.55160785E+00 0.58146627E+00 0.61151885E+00 0.64159369E+00 0.67149328E+00 + 0.70098912E+00 0.72982433E+00 0.75772857E+00 0.78444025E+00 0.80972924E+00 + 0.83341330E+00 0.85536430E+00 0.87550453E+00 0.89379725E+00 0.91023732E+00 + 0.92484706E+00 0.93767879E+00 0.94881828E+00 0.95838250E+00 0.96651020E+00 + 0.97334958E+00 0.97904833E+00 0.98374733E+00 0.98757722E+00 0.99065709E+00 + 0.99309499E+00 0.99498995E+00 0.99643379E+00 0.99751138E+00 0.99829927E+00 + 0.99886372E+00 0.99925965E+00 0.99953098E+00 0.99971201E+00 0.99982911E+00 + 0.99990225E+00 0.99994622E+00 0.99997157E+00 0.99998559E+00 0.99999299E+00 + 0.99999674E+00 0.99999854E+00 0.99999938E+00 0.99999975E+00 0.99999990E+00 + 0.99999996E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.86487924E-03 0.25946377E-02 0.51892754E-02 0.86487924E-02 + 0.12973189E-01 0.18162464E-01 0.24216619E-01 0.31135652E-01 0.38919566E-01 + 0.47568358E-01 0.57082029E-01 0.67460577E-01 0.78704001E-01 0.90812298E-01 + 0.10378547E+00 0.11762353E+00 0.13232646E+00 0.14789428E+00 0.16432696E+00 + 0.18162449E+00 0.19978677E+00 0.21881360E+00 0.23870438E+00 0.25945775E+00 + 0.28107120E+00 0.30354089E+00 0.32686157E+00 0.35102627E+00 0.37602516E+00 + 0.40184286E+00 0.42845469E+00 0.45582287E+00 0.48389339E+00 0.51259257E+00 + 0.54182211E+00 0.57145549E+00 0.60133982E+00 0.63130088E+00 0.66114546E+00 + 0.69066009E+00 0.71961135E+00 0.74775343E+00 0.77484154E+00 0.80064405E+00 + 0.82495103E+00 0.84758327E+00 0.86840448E+00 0.88733291E+00 0.90434538E+00 + 0.91947107E+00 0.93278024E+00 0.94437374E+00 0.95437429E+00 0.96291845E+00 + 0.97014924E+00 0.97621037E+00 0.98124178E+00 0.98537587E+00 0.98873493E+00 + 0.99143064E+00 0.99356513E+00 0.99523185E+00 0.99651546E+00 0.99749085E+00 + 0.99822233E+00 0.99876352E+00 0.99915802E+00 0.99944061E+00 0.99963875E+00 + 0.99977409E+00 0.99986367E+00 0.99992084E+00 0.99995589E+00 0.99997645E+00 + 0.99998798E+00 0.99999414E+00 0.99999727E+00 0.99999879E+00 0.99999949E+00 + 0.99999979E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.84861721E-03 0.25458516E-02 0.50917033E-02 0.84861721E-02 + 0.12729258E-01 0.17820961E-01 0.23761282E-01 0.30550220E-01 0.38187775E-01 + 0.46673947E-01 0.56008736E-01 0.66192142E-01 0.77224165E-01 0.89104802E-01 + 0.10183405E+00 0.11541191E+00 0.12983837E+00 0.14511342E+00 0.16123704E+00 + 0.17820914E+00 0.19602951E+00 0.21469767E+00 0.23421270E+00 0.25457316E+00 + 0.27577698E+00 0.29782121E+00 0.32070142E+00 0.34441113E+00 0.36894115E+00 + 0.39427888E+00 0.42040701E+00 0.44730059E+00 0.47492193E+00 0.50321508E+00 + 0.53210033E+00 0.56146903E+00 0.59118096E+00 0.62106632E+00 0.65093108E+00 + 0.68056258E+00 0.70973459E+00 0.73821260E+00 0.76576005E+00 0.79214733E+00 + 0.81716289E+00 0.84062371E+00 0.86238252E+00 0.88233079E+00 0.90040023E+00 + 0.91656522E+00 0.93084509E+00 0.94330281E+00 0.95403842E+00 0.96317870E+00 + 0.97086645E+00 0.97725106E+00 0.98248149E+00 0.98670210E+00 0.99005128E+00 + 0.99266124E+00 0.99465747E+00 0.99615685E+00 0.99726478E+00 0.99807252E+00 + 0.99865549E+00 0.99907318E+00 0.99937057E+00 0.99958064E+00 0.99972721E+00 + 0.99982757E+00 0.99989455E+00 0.99993781E+00 0.99996474E+00 0.99998081E+00 + 0.99998999E+00 0.99999500E+00 0.99999761E+00 0.99999891E+00 0.99999952E+00 + 0.99999980E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.83994292E-03 0.25198288E-02 0.50396575E-02 0.83994292E-02 + 0.12599144E-01 0.17638801E-01 0.23518402E-01 0.30237945E-01 0.37797431E-01 + 0.46196861E-01 0.55436233E-01 0.65515548E-01 0.76434806E-01 0.88194007E-01 + 0.10079315E+00 0.11423224E+00 0.12851127E+00 0.14363024E+00 0.15958915E+00 + 0.17638800E+00 0.19402675E+00 0.21250532E+00 0.23182346E+00 0.25198054E+00 + 0.27297535E+00 0.29480597E+00 0.31746980E+00 0.34096323E+00 0.36528089E+00 + 0.39041461E+00 0.41635148E+00 0.44306990E+00 0.47053343E+00 0.49868472E+00 + 0.52744219E+00 0.55669967E+00 0.58632606E+00 0.61616234E+00 0.64601842E+00 + 0.67567533E+00 0.70489515E+00 0.73343344E+00 0.76104799E+00 0.78750589E+00 + 0.81259418E+00 0.83613294E+00 0.85798418E+00 0.87805260E+00 0.89628058E+00 + 0.91264254E+00 0.92714318E+00 0.93982032E+00 0.95074877E+00 0.96003995E+00 + 0.96783542E+00 0.97429655E+00 0.97959337E+00 0.98389417E+00 0.98735712E+00 + 0.99012506E+00 0.99232314E+00 0.99405852E+00 0.99542116E+00 0.99648536E+00 + 0.99731179E+00 0.99794994E+00 0.99844035E+00 0.99881630E+00 0.99910477E+00 + 0.99932695E+00 0.99949880E+00 0.99963194E+00 0.99973467E+00 0.99981308E+00 + 0.99987184E+00 0.99991478E+00 0.99994522E+00 0.99996604E+00 0.99997974E+00 + 0.99998839E+00 0.99999361E+00 0.99999663E+00 0.99999830E+00 0.99999918E+00 + 0.99999962E+00 0.99999983E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.81531125E-03 0.24459338E-02 0.48918675E-02 0.81531125E-02 + 0.12229669E-01 0.17121536E-01 0.22828715E-01 0.29351205E-01 0.36689006E-01 + 0.44842119E-01 0.53810543E-01 0.63594278E-01 0.74193324E-01 0.85607681E-01 + 0.97837350E-01 0.11088233E+00 0.12474262E+00 0.13941822E+00 0.15490914E+00 + 0.17121536E+00 0.18833689E+00 0.20627368E+00 0.22502565E+00 0.24459261E+00 + 0.26497436E+00 0.28617043E+00 0.30817967E+00 0.33099961E+00 0.35462556E+00 + 0.37904920E+00 0.40425641E+00 0.43022391E+00 0.45691534E+00 0.48427793E+00 + 0.51224029E+00 0.54071179E+00 0.56958305E+00 0.59872619E+00 0.62799349E+00 + 0.65721443E+00 0.68619371E+00 0.71471455E+00 0.74254890E+00 0.76947092E+00 + 0.79526697E+00 0.81973957E+00 0.84270961E+00 0.86402292E+00 0.88356291E+00 + 0.90126225E+00 0.91710551E+00 0.93112306E+00 0.94338127E+00 0.95397297E+00 + 0.96301015E+00 0.97061915E+00 0.97693748E+00 0.98211068E+00 0.98628803E+00 + 0.98961703E+00 0.99223743E+00 0.99427625E+00 0.99584449E+00 0.99703606E+00 + 0.99792857E+00 0.99858555E+00 0.99905902E+00 0.99939171E+00 0.99961879E+00 + 0.99976882E+00 0.99986454E+00 0.99992340E+00 0.99995823E+00 0.99997805E+00 + 0.99998890E+00 0.99999460E+00 0.99999747E+00 0.99999886E+00 0.99999951E+00 + 0.99999980E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.80069820E-03 0.24020946E-02 0.48041892E-02 0.80069820E-02 + 0.12010473E-01 0.16814662E-01 0.22419550E-01 0.28825135E-01 0.36031419E-01 + 0.44038401E-01 0.52846081E-01 0.62454460E-01 0.72863536E-01 0.84073311E-01 + 0.96083784E-01 0.10889496E+00 0.12250682E+00 0.13691939E+00 0.15213266E+00 + 0.16814662E+00 0.18496127E+00 0.20257658E+00 0.22099248E+00 0.24020876E+00 + 0.26022503E+00 0.28104059E+00 0.30265441E+00 0.32506481E+00 0.34826873E+00 + 0.37226051E+00 0.39702998E+00 0.42256017E+00 0.44882478E+00 0.47578522E+00 + 0.50338673E+00 0.53155447E+00 0.56019100E+00 0.58917570E+00 0.61836497E+00 + 0.64759180E+00 0.67666567E+00 0.70537549E+00 0.73349586E+00 0.76079368E+00 + 0.78703445E+00 0.81199138E+00 0.83545986E+00 0.85727361E+00 0.87731613E+00 + 0.89552336E+00 0.91187692E+00 0.92639371E+00 0.93912018E+00 0.95013347E+00 + 0.95954281E+00 0.96748497E+00 0.97411392E+00 0.97958919E+00 0.98406618E+00 + 0.98768960E+00 0.99059023E+00 0.99288477E+00 0.99467726E+00 0.99606025E+00 + 0.99711515E+00 0.99791186E+00 0.99850838E+00 0.99895114E+00 0.99927623E+00 + 0.99951146E+00 0.99967835E+00 0.99979393E+00 0.99987176E+00 0.99992258E+00 + 0.99995471E+00 0.99997434E+00 0.99998593E+00 0.99999254E+00 0.99999618E+00 + 0.99999811E+00 0.99999910E+00 0.99999958E+00 0.99999982E+00 0.99999992E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.78733783E-03 0.23620135E-02 0.47240270E-02 0.78733783E-02 + 0.11810067E-01 0.16534094E-01 0.22045459E-01 0.28344162E-01 0.35430202E-01 + 0.43303580E-01 0.51964297E-01 0.61412351E-01 0.71647742E-01 0.82670472E-01 + 0.94480539E-01 0.10707794E+00 0.12046269E+00 0.13463477E+00 0.14959419E+00 + 0.16534094E+00 0.18187504E+00 0.19919646E+00 0.21730521E+00 0.23620125E+00 + 0.25588450E+00 0.27635475E+00 0.29761144E+00 0.31965315E+00 0.34247690E+00 + 0.36607722E+00 0.39044455E+00 0.41556252E+00 0.44140499E+00 0.46793399E+00 + 0.49509812E+00 0.52283060E+00 0.55104700E+00 0.57964187E+00 0.60848362E+00 + 0.63741145E+00 0.66623838E+00 0.69475841E+00 0.72275242E+00 0.74999297E+00 + 0.77625320E+00 0.80132042E+00 0.82500845E+00 0.84716488E+00 0.86767555E+00 + 0.88646740E+00 0.90350693E+00 0.91879393E+00 0.93235493E+00 0.94424100E+00 + 0.95452824E+00 0.96331685E+00 0.97072701E+00 0.97689310E+00 0.98195732E+00 + 0.98606333E+00 0.98935033E+00 0.99194814E+00 0.99397447E+00 0.99553426E+00 + 0.99672014E+00 0.99761258E+00 0.99827928E+00 0.99877473E+00 0.99914088E+00 + 0.99940912E+00 0.99960291E+00 0.99974013E+00 0.99983481E+00 0.99989822E+00 + 0.99993928E+00 0.99996496E+00 0.99998045E+00 0.99998946E+00 0.99999450E+00 + 0.99999723E+00 0.99999865E+00 0.99999937E+00 0.99999971E+00 0.99999987E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.77274443E-03 0.23182333E-02 0.46364666E-02 0.77274443E-02 + 0.11591166E-01 0.16227633E-01 0.21636844E-01 0.27818799E-01 0.34773499E-01 + 0.42500944E-01 0.51001132E-01 0.60274066E-01 0.70319743E-01 0.81138165E-01 + 0.92729332E-01 0.10509324E+00 0.11822990E+00 0.13213930E+00 0.14682144E+00 + 0.16227633E+00 0.17850396E+00 0.19550434E+00 0.21327746E+00 0.23182329E+00 + 0.25114169E+00 0.27123214E+00 0.29209355E+00 0.31372425E+00 0.33612216E+00 + 0.35928439E+00 0.38320590E+00 0.40787742E+00 0.43328301E+00 0.45939713E+00 + 0.48618092E+00 0.51357749E+00 0.54150705E+00 0.56986305E+00 0.59851136E+00 + 0.62729483E+00 0.65604205E+00 0.68457532E+00 0.71271349E+00 0.74026909E+00 + 0.76704350E+00 0.79282610E+00 0.81740252E+00 0.84057053E+00 0.86215572E+00 + 0.88202151E+00 0.90007394E+00 0.91626422E+00 0.93059067E+00 0.94309863E+00 + 0.95387540E+00 0.96303996E+00 0.97073190E+00 0.97710291E+00 0.98231008E+00 + 0.98650971E+00 0.98985136E+00 0.99247327E+00 0.99449994E+00 0.99604146E+00 + 0.99719408E+00 0.99804084E+00 0.99865211E+00 0.99908597E+00 0.99938900E+00 + 0.99959747E+00 0.99973879E+00 0.99983324E+00 0.99989543E+00 0.99993572E+00 + 0.99996136E+00 0.99997734E+00 0.99998707E+00 0.99999283E+00 0.99999615E+00 + 0.99999800E+00 0.99999899E+00 0.99999951E+00 0.99999977E+00 0.99999990E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.76220835E-03 0.22866250E-02 0.45732501E-02 0.76220835E-02 + 0.11433125E-01 0.16006375E-01 0.21341834E-01 0.27439500E-01 0.34299376E-01 + 0.41921459E-01 0.50305751E-01 0.59452251E-01 0.69360960E-01 0.80031876E-01 + 0.91465002E-01 0.10366034E+00 0.11661788E+00 0.13033763E+00 0.14481959E+00 + 0.16006375E+00 0.17607013E+00 0.19283871E+00 0.21036950E+00 0.22866250E+00 + 0.24771768E+00 0.26753504E+00 0.28811445E+00 0.30945560E+00 0.33155783E+00 + 0.35441976E+00 0.37803811E+00 0.40240620E+00 0.42751177E+00 0.45333438E+00 + 0.47984256E+00 0.50699094E+00 0.53471733E+00 0.56293936E+00 0.59154956E+00 + 0.62040909E+00 0.64934439E+00 0.67815117E+00 0.70660506E+00 0.73447339E+00 + 0.76152201E+00 0.78751733E+00 0.81223221E+00 0.83546254E+00 0.85704871E+00 + 0.87688791E+00 0.89493181E+00 0.91117679E+00 0.92565513E+00 0.93842757E+00 + 0.94957495E+00 0.95919122E+00 0.96738085E+00 0.97425991E+00 0.97995657E+00 + 0.98460782E+00 0.98835280E+00 0.99132574E+00 0.99365087E+00 0.99543986E+00 + 0.99679126E+00 0.99779126E+00 0.99851461E+00 0.99902524E+00 0.99937655E+00 + 0.99961180E+00 0.99976494E+00 0.99986174E+00 0.99992106E+00 0.99995629E+00 + 0.99997655E+00 0.99998781E+00 0.99999387E+00 0.99999702E+00 0.99999860E+00 + 0.99999936E+00 0.99999972E+00 0.99999988E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.75686200E-03 0.22705860E-02 0.45411720E-02 0.75686200E-02 + 0.11352930E-01 0.15894102E-01 0.21192136E-01 0.27247032E-01 0.34058790E-01 + 0.41627410E-01 0.49952892E-01 0.59035236E-01 0.68874442E-01 0.79470510E-01 + 0.90823440E-01 0.10293323E+00 0.11579989E+00 0.12942340E+00 0.14380378E+00 + 0.15894102E+00 0.17483512E+00 0.19148609E+00 0.20889391E+00 0.22705859E+00 + 0.24598003E+00 0.26565786E+00 0.28609121E+00 0.30727858E+00 0.32921776E+00 + 0.35190579E+00 0.37533838E+00 0.39950823E+00 0.42440282E+00 0.45000306E+00 + 0.47628249E+00 0.50320461E+00 0.53071719E+00 0.55874425E+00 0.58717864E+00 + 0.61587945E+00 0.64467636E+00 0.67337594E+00 0.70176573E+00 0.72961696E+00 + 0.75669034E+00 0.78274647E+00 0.80755983E+00 0.83093330E+00 0.85270971E+00 + 0.87277740E+00 0.89106953E+00 0.90755899E+00 0.92225377E+00 0.93519614E+00 + 0.94646334E+00 0.95616407E+00 0.96442934E+00 0.97140161E+00 0.97722578E+00 + 0.98204262E+00 0.98598487E+00 0.98917578E+00 0.99172921E+00 0.99374961E+00 + 0.99533127E+00 0.99655712E+00 0.99749772E+00 0.99821149E+00 0.99874588E+00 + 0.99913934E+00 0.99942319E+00 0.99962316E+00 0.99976036E+00 0.99985183E+00 + 0.99991101E+00 0.99994812E+00 0.99997067E+00 0.99998392E+00 0.99999147E+00 + 0.99999562E+00 0.99999782E+00 0.99999895E+00 0.99999951E+00 0.99999978E+00 + 0.99999991E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.74289710E-03 0.22286913E-02 0.44573826E-02 0.74289710E-02 + 0.11143456E-01 0.15600839E-01 0.20801119E-01 0.26744295E-01 0.33430369E-01 + 0.40859340E-01 0.49031208E-01 0.57945974E-01 0.67603636E-01 0.78004195E-01 + 0.89147652E-01 0.10103401E+00 0.11366326E+00 0.12703540E+00 0.14115045E+00 + 0.15600839E+00 0.17160923E+00 0.18795297E+00 0.20503960E+00 0.22286913E+00 + 0.24144155E+00 0.26075683E+00 0.28081488E+00 0.30161529E+00 0.32315699E+00 + 0.34543789E+00 0.36845444E+00 0.39220069E+00 0.41666703E+00 0.44183838E+00 + 0.46769113E+00 0.49418868E+00 0.52127761E+00 0.54888655E+00 0.57692638E+00 + 0.60528870E+00 0.63384044E+00 0.66241854E+00 0.69082971E+00 0.71885575E+00 + 0.74626151E+00 0.77280396E+00 0.79824390E+00 0.82236185E+00 0.84497451E+00 + 0.86594361E+00 0.88517387E+00 0.90260543E+00 0.91820998E+00 0.93199557E+00 + 0.94401506E+00 0.95436738E+00 0.96318634E+00 0.97062242E+00 0.97682674E+00 + 0.98194241E+00 0.98610312E+00 0.98943577E+00 0.99206291E+00 0.99410197E+00 + 0.99566192E+00 0.99683959E+00 0.99771767E+00 0.99836482E+00 0.99883674E+00 + 0.99917780E+00 0.99942261E+00 0.99959752E+00 0.99972208E+00 0.99981049E+00 + 0.99987288E+00 0.99991644E+00 0.99994638E+00 0.99996651E+00 0.99997969E+00 + 0.99998806E+00 0.99999321E+00 0.99999626E+00 0.99999801E+00 0.99999898E+00 + 0.99999949E+00 0.99999976E+00 0.99999989E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.72837691E-03 0.21851307E-02 0.43702615E-02 0.72837691E-02 + 0.10925654E-01 0.15295915E-01 0.20394554E-01 0.26221569E-01 0.32776961E-01 + 0.40060730E-01 0.48072876E-01 0.56813399E-01 0.66282299E-01 0.76479576E-01 + 0.87405230E-01 0.99059260E-01 0.11144167E+00 0.12455245E+00 0.13839161E+00 + 0.15295915E+00 0.16825507E+00 0.18427936E+00 0.20103202E+00 0.21851302E+00 + 0.23672215E+00 0.25565887E+00 0.27532214E+00 0.29571055E+00 0.31682243E+00 + 0.33865555E+00 0.36120648E+00 0.38446982E+00 0.40843751E+00 0.43309761E+00 + 0.45843292E+00 0.48441896E+00 0.51102080E+00 0.53818841E+00 0.56585096E+00 + 0.59391105E+00 0.62223920E+00 0.65067067E+00 0.67900835E+00 0.70703197E+00 + 0.73450755E+00 0.76119318E+00 0.78684683E+00 0.81124209E+00 0.83418857E+00 + 0.85554644E+00 0.87522727E+00 0.89318507E+00 0.90940647E+00 0.92390467E+00 + 0.93671686E+00 0.94790441E+00 0.95755348E+00 0.96577289E+00 0.97268887E+00 + 0.97843805E+00 0.98316023E+00 0.98699218E+00 0.99006327E+00 0.99249325E+00 + 0.99439154E+00 0.99585655E+00 0.99697470E+00 0.99781937E+00 0.99845091E+00 + 0.99891773E+00 0.99925809E+00 0.99950216E+00 0.99967371E+00 0.99979154E+00 + 0.99987038E+00 0.99992167E+00 0.99995404E+00 0.99997384E+00 0.99998557E+00 + 0.99999228E+00 0.99999601E+00 0.99999800E+00 0.99999903E+00 0.99999955E+00 + 0.99999979E+00 0.99999991E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.72024992E-03 0.21607498E-02 0.43214995E-02 0.72024992E-02 + 0.10803749E-01 0.15125248E-01 0.20166998E-01 0.25928997E-01 0.32411247E-01 + 0.39613746E-01 0.47536495E-01 0.56179494E-01 0.65542743E-01 0.75626242E-01 + 0.86429991E-01 0.97953989E-01 0.11019824E+00 0.12316274E+00 0.13684749E+00 + 0.15125248E+00 0.16637773E+00 0.18222323E+00 0.19878898E+00 0.21607498E+00 + 0.23408122E+00 0.25280769E+00 0.27225423E+00 0.29242030E+00 0.31330482E+00 + 0.33490605E+00 0.35722160E+00 0.38024785E+00 0.40397854E+00 0.42840211E+00 + 0.45349849E+00 0.47923607E+00 0.50556919E+00 0.53243578E+00 0.55975522E+00 + 0.58742709E+00 0.61533132E+00 0.64332939E+00 0.67126407E+00 0.69895557E+00 + 0.72619866E+00 0.75276825E+00 0.77843445E+00 0.80297987E+00 0.82621297E+00 + 0.84797726E+00 0.86815707E+00 0.88667785E+00 0.90350147E+00 0.91862070E+00 + 0.93205667E+00 0.94385896E+00 0.95410433E+00 0.96289119E+00 0.97033229E+00 + 0.97654965E+00 0.98167186E+00 0.98583161E+00 0.98916190E+00 0.99179144E+00 + 0.99384047E+00 0.99541750E+00 0.99661765E+00 0.99752218E+00 0.99819877E+00 + 0.99870218E+00 0.99907520E+00 0.99935026E+00 0.99955151E+00 0.99969690E+00 + 0.99980007E+00 0.99987161E+00 0.99991989E+00 0.99995150E+00 0.99997154E+00 + 0.99998382E+00 0.99999110E+00 0.99999526E+00 0.99999756E+00 0.99999878E+00 + 0.99999941E+00 0.99999973E+00 0.99999988E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.71611007E-03 0.21483302E-02 0.42966604E-02 0.71611007E-02 + 0.10741651E-01 0.15038311E-01 0.20051082E-01 0.25779962E-01 0.32224953E-01 + 0.39386054E-01 0.47263265E-01 0.55856585E-01 0.65166016E-01 0.75191557E-01 + 0.85933208E-01 0.97390969E-01 0.10956484E+00 0.12245482E+00 0.13606091E+00 + 0.15038311E+00 0.16542143E+00 0.18117585E+00 0.19764638E+00 0.21483302E+00 + 0.23273577E+00 0.25135460E+00 0.27068950E+00 0.29074039E+00 0.31150714E+00 + 0.33298927E+00 0.35518561E+00 0.37809351E+00 0.40170731E+00 0.42601603E+00 + 0.45100078E+00 0.47663263E+00 0.50287040E+00 0.52965772E+00 0.55691940E+00 + 0.58455815E+00 0.61245267E+00 0.64045748E+00 0.66840414E+00 0.69610303E+00 + 0.72334621E+00 0.74991414E+00 0.77558626E+00 0.80015211E+00 0.82342122E+00 + 0.84523384E+00 0.86547090E+00 0.88405833E+00 0.90096282E+00 0.91618278E+00 + 0.92974113E+00 0.94168296E+00 0.95207633E+00 0.96101194E+00 0.96860009E+00 + 0.97496592E+00 0.98024387E+00 0.98457108E+00 0.98808069E+00 0.99089645E+00 + 0.99313001E+00 0.99488024E+00 0.99623393E+00 0.99726671E+00 0.99804374E+00 + 0.99862016E+00 0.99904158E+00 0.99934499E+00 0.99955990E+00 0.99970953E+00 + 0.99981186E+00 0.99988052E+00 0.99992570E+00 0.99995481E+00 0.99997315E+00 + 0.99998444E+00 0.99999121E+00 0.99999517E+00 0.99999742E+00 0.99999866E+00 + 0.99999932E+00 0.99999967E+00 0.99999984E+00 0.99999993E+00 0.99999997E+00 + 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.70791330E-03 0.21237399E-02 0.42474798E-02 0.70791330E-02 + 0.10618699E-01 0.14866179E-01 0.19821572E-01 0.25484879E-01 0.31856098E-01 + 0.38935231E-01 0.46722278E-01 0.55217237E-01 0.64420110E-01 0.74330896E-01 + 0.84949596E-01 0.96276208E-01 0.10831073E+00 0.12105317E+00 0.13450353E+00 + 0.14866179E+00 0.16352797E+00 0.17910206E+00 0.19538407E+00 0.21237399E+00 + 0.23007179E+00 0.24847734E+00 0.26759005E+00 0.28740865E+00 0.30793111E+00 + 0.32915496E+00 0.35107738E+00 0.37369501E+00 0.39700313E+00 0.42099401E+00 + 0.44565481E+00 0.47096511E+00 0.49689367E+00 0.52339465E+00 0.55040552E+00 + 0.57784604E+00 0.60561379E+00 0.63357458E+00 0.66155569E+00 0.68935303E+00 + 0.71675025E+00 0.74353613E+00 0.76951117E+00 0.79448599E+00 0.81827970E+00 + 0.84072354E+00 0.86166749E+00 0.88098660E+00 0.89858844E+00 0.91442148E+00 + 0.92848041E+00 0.94080530E+00 0.95147508E+00 0.96059889E+00 0.96830758E+00 + 0.97474550E+00 0.98006270E+00 0.98440767E+00 0.98792159E+00 0.99073447E+00 + 0.99296301E+00 0.99470989E+00 0.99606420E+00 0.99710255E+00 0.99789012E+00 + 0.99848157E+00 0.99892165E+00 0.99924601E+00 0.99948239E+00 0.99965211E+00 + 0.99977163E+00 0.99985384E+00 0.99990891E+00 0.99994475E+00 0.99996740E+00 + 0.99998130E+00 0.99998956E+00 0.99999434E+00 0.99999702E+00 0.99999847E+00 + 0.99999924E+00 0.99999963E+00 0.99999983E+00 0.99999992E+00 0.99999997E+00 + 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.69757305E-03 0.20927191E-02 0.41854383E-02 0.69757305E-02 + 0.10463596E-01 0.14649034E-01 0.19532045E-01 0.25112630E-01 0.31390787E-01 + 0.38366518E-01 0.46039821E-01 0.54410698E-01 0.63479147E-01 0.73245170E-01 + 0.83708765E-01 0.94869934E-01 0.10672868E+00 0.11928499E+00 0.13253888E+00 + 0.14649034E+00 0.16113937E+00 0.17648598E+00 0.19253016E+00 0.20927191E+00 + 0.22671124E+00 0.24484814E+00 0.26368255E+00 0.28321422E+00 0.30344225E+00 + 0.32436486E+00 0.34597948E+00 0.36828304E+00 0.39127163E+00 0.41493927E+00 + 0.43927589E+00 0.46426486E+00 0.48988029E+00 0.51608428E+00 0.54282322E+00 + 0.57002267E+00 0.59758294E+00 0.62537722E+00 0.65325225E+00 0.68103228E+00 + 0.70852750E+00 0.73554254E+00 0.76187825E+00 0.78733091E+00 0.81169714E+00 + 0.83478389E+00 0.85641880E+00 0.87645864E+00 0.89479588E+00 0.91136351E+00 + 0.92613745E+00 0.93913532E+00 0.95041314E+00 0.96006163E+00 0.96820126E+00 + 0.97497469E+00 0.98053716E+00 0.98504652E+00 0.98865504E+00 0.99150446E+00 + 0.99372361E+00 0.99542753E+00 0.99671697E+00 0.99767844E+00 0.99838458E+00 + 0.99889514E+00 0.99925821E+00 0.99951182E+00 0.99968552E+00 0.99980197E+00 + 0.99987825E+00 0.99992698E+00 0.99995732E+00 0.99997570E+00 0.99998653E+00 + 0.99999274E+00 0.99999620E+00 0.99999806E+00 0.99999904E+00 0.99999954E+00 + 0.99999979E+00 0.99999990E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.69319077E-03 0.20795723E-02 0.41591446E-02 0.69319077E-02 + 0.10397862E-01 0.14557006E-01 0.19409342E-01 0.24954868E-01 0.31193585E-01 + 0.38125492E-01 0.45750591E-01 0.54068880E-01 0.63080360E-01 0.72785031E-01 + 0.83182892E-01 0.94273945E-01 0.10605819E+00 0.11853562E+00 0.13170625E+00 + 0.14557006E+00 0.16012707E+00 0.17537726E+00 0.19132065E+00 0.20795723E+00 + 0.22528700E+00 0.24330995E+00 0.26202605E+00 0.28143510E+00 0.30153662E+00 + 0.32232965E+00 0.34381260E+00 0.36598292E+00 0.38883670E+00 0.41236796E+00 + 0.43656709E+00 0.46141767E+00 0.48689212E+00 0.51294726E+00 0.53952215E+00 + 0.56653966E+00 0.59390902E+00 0.62152407E+00 0.64925764E+00 0.67695771E+00 + 0.70444905E+00 0.73153799E+00 0.75801665E+00 0.78366801E+00 0.80827323E+00 + 0.83162014E+00 0.85351441E+00 0.87379534E+00 0.89235064E+00 0.90912187E+00 + 0.92409864E+00 0.93730723E+00 0.94880199E+00 0.95866249E+00 0.96699418E+00 + 0.97392808E+00 0.97961646E+00 0.98422345E+00 0.98791307E+00 0.99083809E+00 + 0.99313313E+00 0.99491310E+00 0.99627562E+00 0.99730432E+00 0.99807085E+00 + 0.99863533E+00 0.99904660E+00 0.99934308E+00 0.99955430E+00 0.99970273E+00 + 0.99980539E+00 0.99987512E+00 0.99992155E+00 0.99995181E+00 0.99997107E+00 + 0.99998305E+00 0.99999031E+00 0.99999460E+00 0.99999707E+00 0.99999845E+00 + 0.99999920E+00 0.99999960E+00 0.99999981E+00 0.99999991E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.68364074E-03 0.20509222E-02 0.41018445E-02 0.68364074E-02 + 0.10254611E-01 0.14356456E-01 0.19141941E-01 0.24611067E-01 0.30763833E-01 + 0.37600241E-01 0.45120289E-01 0.53323978E-01 0.62211308E-01 0.71782278E-01 + 0.82036889E-01 0.92975141E-01 0.10459703E+00 0.11690257E+00 0.12989174E+00 + 0.14356456E+00 0.15792101E+00 0.17296111E+00 0.18868485E+00 0.20509222E+00 + 0.22218324E+00 0.23995790E+00 0.25841619E+00 0.27755806E+00 0.29738329E+00 + 0.31789129E+00 0.33908091E+00 0.36095012E+00 0.38349548E+00 0.40671116E+00 + 0.43058802E+00 0.45511154E+00 0.48025916E+00 0.50599828E+00 0.53228570E+00 + 0.55906613E+00 0.58626746E+00 0.61379315E+00 0.64151569E+00 0.66927561E+00 + 0.69688558E+00 0.72413664E+00 0.75080649E+00 0.77666980E+00 0.80150931E+00 + 0.82512593E+00 0.84734605E+00 0.86802616E+00 0.88705729E+00 0.90436970E+00 + 0.91993376E+00 0.93375555E+00 0.94587151E+00 0.95634595E+00 0.96526971E+00 + 0.97275666E+00 0.97893821E+00 0.98395750E+00 0.98796375E+00 0.99110648E+00 + 0.99352953E+00 0.99536567E+00 0.99673295E+00 0.99773316E+00 0.99845188E+00 + 0.99895929E+00 0.99931145E+00 0.99955183E+00 0.99971325E+00 0.99981981E+00 + 0.99988892E+00 0.99993289E+00 0.99996029E+00 0.99997701E+00 0.99998698E+00 + 0.99999280E+00 0.99999611E+00 0.99999794E+00 0.99999894E+00 0.99999947E+00 + 0.99999974E+00 0.99999988E+00 0.99999994E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + NUCLEUS 56 26 14 7 + 27.11142 0.15000 4.22785 2.55000 + 0.00000000E+00 0.72682778E-03 0.21804833E-02 0.43609667E-02 0.72682778E-02 + 0.10902417E-01 0.15263383E-01 0.20351178E-01 0.26165800E-01 0.32707250E-01 + 0.39975528E-01 0.47970633E-01 0.56692567E-01 0.66141328E-01 0.76316917E-01 + 0.87219333E-01 0.98848578E-01 0.11120465E+00 0.12428755E+00 0.13809728E+00 + 0.15263383E+00 0.16789721E+00 0.18388742E+00 0.20060445E+00 0.21804827E+00 + 0.23621879E+00 0.25511581E+00 0.27473878E+00 0.29508675E+00 0.31615819E+00 + 0.33795087E+00 0.36046128E+00 0.38368328E+00 0.40760613E+00 0.43221249E+00 + 0.45747697E+00 0.48336420E+00 0.50982614E+00 0.53679950E+00 0.56420490E+00 + 0.59194556E+00 0.61990420E+00 0.64794084E+00 0.67589449E+00 0.70358672E+00 + 0.73082376E+00 0.75739867E+00 0.78309743E+00 0.80770858E+00 0.83103286E+00 + 0.85289271E+00 0.87314263E+00 0.89167848E+00 0.90844224E+00 0.92342043E+00 + 0.93663873E+00 0.94815748E+00 0.95806835E+00 0.96648809E+00 0.97354872E+00 + 0.97938866E+00 0.98414804E+00 0.98796712E+00 0.99098486E+00 0.99333527E+00 + 0.99514225E+00 0.99651502E+00 0.99754566E+00 0.99830906E+00 0.99886485E+00 + 0.99926040E+00 0.99953393E+00 0.99971670E+00 0.99983422E+00 0.99990673E+00 + 0.99994959E+00 0.99997385E+00 0.99998699E+00 0.99999379E+00 0.99999716E+00 + 0.99999876E+00 0.99999948E+00 0.99999979E+00 0.99999992E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.71648061E-03 0.21494418E-02 0.42988837E-02 0.71648061E-02 + 0.10747209E-01 0.15046093E-01 0.20061457E-01 0.25793302E-01 0.32241628E-01 + 0.39406434E-01 0.47287720E-01 0.55885488E-01 0.65199736E-01 0.75230464E-01 + 0.85977674E-01 0.97441363E-01 0.10962153E+00 0.12251818E+00 0.13613132E+00 + 0.15046093E+00 0.16550701E+00 0.18126955E+00 0.19774853E+00 0.21494393E+00 + 0.23285573E+00 0.25148374E+00 0.27082744E+00 0.29088575E+00 0.31165680E+00 + 0.33313790E+00 0.35532529E+00 0.37821391E+00 0.40179638E+00 0.42606126E+00 + 0.45099073E+00 0.47655867E+00 0.50272901E+00 0.52945281E+00 0.55666195E+00 + 0.58426075E+00 0.61212034E+00 0.64008025E+00 0.66795787E+00 0.69556107E+00 + 0.72269741E+00 0.74917644E+00 0.77480858E+00 0.79940718E+00 0.82279498E+00 + 0.84480997E+00 0.86530994E+00 0.88418016E+00 0.90134365E+00 0.91676672E+00 + 0.93045675E+00 0.94245607E+00 0.95283751E+00 0.96170232E+00 0.96917698E+00 + 0.97540615E+00 0.98054221E+00 0.98473477E+00 0.98812350E+00 0.99083515E+00 + 0.99298351E+00 0.99467006E+00 0.99598394E+00 0.99700128E+00 0.99778497E+00 + 0.99838543E+00 0.99884232E+00 0.99918656E+00 0.99944225E+00 0.99962841E+00 + 0.99976042E+00 0.99985102E+00 0.99991089E+00 0.99994882E+00 0.99997182E+00 + 0.99998513E+00 0.99999249E+00 0.99999637E+00 0.99999833E+00 0.99999926E+00 + 0.99999969E+00 0.99999988E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.72168335E-03 0.21650500E-02 0.43301001E-02 0.72168335E-02 + 0.10825250E-01 0.15155350E-01 0.20207134E-01 0.25980600E-01 0.32475751E-01 + 0.39692584E-01 0.47631101E-01 0.56291301E-01 0.65673184E-01 0.75776751E-01 + 0.86602001E-01 0.98148935E-01 0.11041755E+00 0.12340785E+00 0.13711984E+00 + 0.15155350E+00 0.16670885E+00 0.18258588E+00 0.19918460E+00 0.21650499E+00 + 0.23454705E+00 0.25331074E+00 0.27279594E+00 0.29300229E+00 0.31392892E+00 + 0.33557392E+00 0.35793374E+00 0.38100255E+00 0.40477126E+00 0.42922593E+00 + 0.45434561E+00 0.48010014E+00 0.50644772E+00 0.53333183E+00 0.56067724E+00 + 0.58838695E+00 0.61634168E+00 0.64440057E+00 0.67240134E+00 0.70015967E+00 + 0.72747090E+00 0.75411586E+00 0.77986980E+00 0.80451335E+00 0.82784665E+00 + 0.84970398E+00 0.86996265E+00 0.88854367E+00 0.90540648E+00 0.92054285E+00 + 0.93397319E+00 0.94574501E+00 0.95593123E+00 0.96462730E+00 0.97194802E+00 + 0.97802357E+00 0.98299375E+00 0.98700115E+00 0.99018506E+00 0.99267720E+00 + 0.99459916E+00 0.99606040E+00 0.99715670E+00 0.99796913E+00 0.99856417E+00 + 0.99899496E+00 0.99930323E+00 0.99952134E+00 0.99967403E+00 0.99977993E+00 + 0.99985280E+00 0.99990259E+00 0.99993636E+00 0.99995906E+00 0.99997415E+00 + 0.99998403E+00 0.99999037E+00 0.99999436E+00 0.99999679E+00 0.99999823E+00 + 0.99999906E+00 0.99999952E+00 0.99999976E+00 0.99999989E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.71362862E-03 0.21408859E-02 0.42817717E-02 0.71362862E-02 + 0.10704429E-01 0.14986201E-01 0.19981601E-01 0.25690630E-01 0.32113288E-01 + 0.39249574E-01 0.47099489E-01 0.55663032E-01 0.64940205E-01 0.74931005E-01 + 0.85635435E-01 0.97053492E-01 0.10918518E+00 0.12203049E+00 0.13558944E+00 + 0.14986201E+00 0.16484821E+00 0.18054803E+00 0.19696147E+00 0.21408850E+00 + 0.23192906E+00 0.25048297E+00 0.26974993E+00 0.28972925E+00 0.31041970E+00 + 0.33181895E+00 0.35392321E+00 0.37672708E+00 0.40022302E+00 0.42439963E+00 + 0.44923948E+00 0.47471728E+00 0.50079848E+00 0.52743685E+00 0.55457044E+00 + 0.58211672E+00 0.60996838E+00 0.63799092E+00 0.66602182E+00 0.69387177E+00 + 0.72133049E+00 0.74817731E+00 0.77419256E+00 0.79916510E+00 0.82289645E+00 + 0.84520548E+00 0.86593594E+00 0.88496594E+00 0.90221765E+00 0.91766429E+00 + 0.93133144E+00 0.94329112E+00 0.95364971E+00 0.96253338E+00 0.97007490E+00 + 0.97640508E+00 0.98164990E+00 0.98593168E+00 0.98937111E+00 0.99208723E+00 + 0.99419538E+00 0.99580390E+00 0.99701112E+00 0.99790301E+00 0.99855205E+00 + 0.99901722E+00 0.99934523E+00 0.99957239E+00 0.99972658E+00 0.99982900E+00 + 0.99989549E+00 0.99993764E+00 0.99996371E+00 0.99997944E+00 0.99998867E+00 + 0.99999393E+00 0.99999685E+00 0.99999842E+00 0.99999923E+00 0.99999964E+00 + 0.99999984E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.70348210E-03 0.21104463E-02 0.42208926E-02 0.70348210E-02 + 0.10552231E-01 0.14773124E-01 0.19697499E-01 0.25325356E-01 0.31656694E-01 + 0.38691515E-01 0.46429819E-01 0.54871604E-01 0.64016871E-01 0.73865620E-01 + 0.84417852E-01 0.95673566E-01 0.10763276E+00 0.12029544E+00 0.13366160E+00 + 0.14773122E+00 0.16250427E+00 0.17798061E+00 0.19416008E+00 0.21104252E+00 + 0.22862782E+00 0.24691589E+00 0.26590661E+00 0.28559962E+00 0.30599398E+00 + 0.32708768E+00 0.34887733E+00 0.37135814E+00 0.39452382E+00 0.41836558E+00 + 0.44287009E+00 0.46801694E+00 0.49377582E+00 0.52010336E+00 0.54693908E+00 + 0.57420061E+00 0.60177921E+00 0.62953725E+00 0.65730898E+00 0.68490521E+00 + 0.71212159E+00 0.73874854E+00 0.76457970E+00 0.78941796E+00 0.81308097E+00 + 0.83540792E+00 0.85626616E+00 0.87555553E+00 0.89320968E+00 0.90919568E+00 + 0.92351281E+00 0.93619100E+00 0.94728849E+00 0.95688854E+00 0.96509554E+00 + 0.97203017E+00 0.97782353E+00 0.98261041E+00 0.98652293E+00 0.98968573E+00 + 0.99221314E+00 0.99420815E+00 0.99576232E+00 0.99695599E+00 0.99785853E+00 + 0.99852867E+00 0.99901557E+00 0.99936025E+00 0.99959701E+00 0.99975428E+00 + 0.99985512E+00 0.99991743E+00 0.99995453E+00 0.99997582E+00 0.99998758E+00 + 0.99999384E+00 0.99999705E+00 0.99999864E+00 0.99999939E+00 0.99999974E+00 + 0.99999989E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.69230456E-03 0.20769137E-02 0.41538274E-02 0.69230456E-02 + 0.10384568E-01 0.14538396E-01 0.19384528E-01 0.24922964E-01 0.31153705E-01 + 0.38076751E-01 0.45692101E-01 0.53999756E-01 0.62999715E-01 0.72691979E-01 + 0.83076547E-01 0.94153420E-01 0.10592260E+00 0.11838408E+00 0.13153787E+00 + 0.14538396E+00 0.15992235E+00 0.17515305E+00 0.19107605E+00 0.20769134E+00 + 0.22499886E+00 0.24299846E+00 0.26168980E+00 0.28107220E+00 0.30114463E+00 + 0.32190572E+00 0.34335368E+00 0.36548604E+00 0.38829863E+00 0.41178397E+00 + 0.43592935E+00 0.46071514E+00 0.48611322E+00 0.51208468E+00 0.53857702E+00 + 0.56552155E+00 0.59283148E+00 0.62040003E+00 0.64809718E+00 0.67576605E+00 + 0.70322189E+00 0.73025715E+00 0.75665205E+00 0.78218690E+00 0.80665277E+00 + 0.82985902E+00 0.85163821E+00 0.87185032E+00 0.89038808E+00 0.90718311E+00 + 0.92220995E+00 0.93548626E+00 0.94706912E+00 0.95704866E+00 0.96553988E+00 + 0.97267369E+00 0.97858922E+00 0.98342815E+00 0.98733113E+00 0.99043476E+00 + 0.99286833E+00 0.99475043E+00 0.99618648E+00 0.99726749E+00 0.99807011E+00 + 0.99865751E+00 0.99908088E+00 0.99938103E+00 0.99959009E+00 0.99973304E+00 + 0.99982896E+00 0.99989213E+00 0.99993300E+00 0.99995900E+00 0.99997528E+00 + 0.99998533E+00 0.99999144E+00 0.99999510E+00 0.99999725E+00 0.99999849E+00 + 0.99999920E+00 0.99999958E+00 0.99999979E+00 0.99999990E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.67878953E-03 0.20363686E-02 0.40727372E-02 0.67878953E-02 + 0.10181843E-01 0.14254580E-01 0.19006107E-01 0.24436423E-01 0.30545529E-01 + 0.37333424E-01 0.44800109E-01 0.52945583E-01 0.61769847E-01 0.71272901E-01 + 0.81454744E-01 0.92315376E-01 0.10385480E+00 0.11607301E+00 0.12897001E+00 + 0.14254580E+00 0.15680038E+00 0.17173375E+00 0.18734591E+00 0.20363686E+00 + 0.22060659E+00 0.23825511E+00 0.25658239E+00 0.27558837E+00 0.29527286E+00 + 0.31563547E+00 0.33667549E+00 0.35839162E+00 0.38078142E+00 0.40384036E+00 + 0.42756028E+00 0.45192719E+00 0.47691897E+00 0.50250303E+00 0.52863381E+00 + 0.55524982E+00 0.58227122E+00 0.60959882E+00 0.63711321E+00 0.66467238E+00 + 0.69210906E+00 0.71923157E+00 0.74583028E+00 0.77168742E+00 0.79658708E+00 + 0.82032427E+00 0.84271347E+00 0.86359641E+00 0.88284801E+00 0.90038096E+00 + 0.91614954E+00 0.93015160E+00 0.94242683E+00 0.95305140E+00 0.96213051E+00 + 0.96979027E+00 0.97617009E+00 0.98141560E+00 0.98567284E+00 0.98908364E+00 + 0.99178202E+00 0.99389106E+00 0.99552023E+00 0.99676393E+00 0.99770132E+00 + 0.99839759E+00 0.99890593E+00 0.99926966E+00 0.99952404E+00 0.99969752E+00 + 0.99981271E+00 0.99988709E+00 0.99993377E+00 0.99996221E+00 0.99997904E+00 + 0.99998871E+00 0.99999409E+00 0.99999700E+00 0.99999852E+00 0.99999929E+00 + 0.99999967E+00 0.99999985E+00 0.99999994E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.66950984E-03 0.20085295E-02 0.40170590E-02 0.66950984E-02 + 0.10042648E-01 0.14059707E-01 0.18746275E-01 0.24102354E-01 0.30127943E-01 + 0.36823041E-01 0.44187649E-01 0.52221767E-01 0.60925395E-01 0.70298533E-01 + 0.80341180E-01 0.91053338E-01 0.10243501E+00 0.11448618E+00 0.12720687E+00 + 0.14059707E+00 0.15465677E+00 0.16938599E+00 0.18478471E+00 0.20085295E+00 + 0.21759070E+00 0.23499795E+00 0.25307471E+00 0.27182094E+00 0.29123659E+00 + 0.31132145E+00 0.33207493E+00 0.35349572E+00 0.37558129E+00 0.39832718E+00 + 0.42172604E+00 0.44576642E+00 0.47043127E+00 0.49569620E+00 0.52152708E+00 + 0.54787704E+00 0.57468255E+00 0.60185904E+00 0.62929714E+00 0.65685991E+00 + 0.68438177E+00 0.71167021E+00 0.73851067E+00 0.76467455E+00 0.78992970E+00 + 0.81405252E+00 0.83683997E+00 0.85811933E+00 0.87775515E+00 0.89565432E+00 + 0.91176955E+00 0.92610004E+00 0.93868834E+00 0.94961394E+00 0.95898542E+00 + 0.96693197E+00 0.97359513E+00 0.97912116E+00 0.98365479E+00 0.98733444E+00 + 0.99028908E+00 0.99263618E+00 0.99448061E+00 0.99591412E+00 0.99701561E+00 + 0.99785178E+00 0.99847825E+00 0.99894084E+00 0.99927692E+00 0.99951664E+00 + 0.99968416E+00 0.99979859E+00 0.99987484E+00 0.99992431E+00 0.99995551E+00 + 0.99997461E+00 0.99998594E+00 0.99999245E+00 0.99999608E+00 0.99999803E+00 + 0.99999904E+00 0.99999955E+00 0.99999980E+00 0.99999991E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.66085044E-03 0.19825513E-02 0.39651026E-02 0.66085044E-02 + 0.99127565E-02 0.13877859E-01 0.18503812E-01 0.23790616E-01 0.29738270E-01 + 0.36346774E-01 0.43616129E-01 0.51546334E-01 0.60137390E-01 0.69389296E-01 + 0.79302052E-01 0.89875659E-01 0.10111012E+00 0.11300542E+00 0.12556158E+00 + 0.13877859E+00 0.15265645E+00 0.16719516E+00 0.18239471E+00 0.19825511E+00 + 0.21477634E+00 0.23195839E+00 0.24980124E+00 0.26830489E+00 0.28746932E+00 + 0.30729446E+00 0.32778014E+00 0.34892586E+00 0.37073028E+00 0.39319029E+00 + 0.41629980E+00 0.44004845E+00 0.46442031E+00 0.48939222E+00 0.51493100E+00 + 0.54098957E+00 0.56750292E+00 0.59438495E+00 0.62152643E+00 0.64879416E+00 + 0.67603208E+00 0.70306470E+00 0.72970150E+00 0.75574181E+00 0.78098087E+00 + 0.80521738E+00 0.82826248E+00 0.84994869E+00 0.87013668E+00 0.88871928E+00 + 0.90562426E+00 0.92081662E+00 0.93429908E+00 0.94611010E+00 0.95631965E+00 + 0.96502406E+00 0.97234055E+00 0.97840143E+00 0.98334794E+00 0.98732419E+00 + 0.99047195E+00 0.99292628E+00 0.99481192E+00 0.99624032E+00 0.99730784E+00 + 0.99809537E+00 0.99866904E+00 0.99908177E+00 0.99937504E+00 0.99958081E+00 + 0.99972328E+00 0.99982050E+00 0.99988579E+00 0.99992883E+00 0.99995665E+00 + 0.99997422E+00 0.99998505E+00 0.99999156E+00 0.99999537E+00 0.99999753E+00 + 0.99999872E+00 0.99999936E+00 0.99999969E+00 0.99999985E+00 0.99999993E+00 + 0.99999997E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.64244039E-03 0.19273212E-02 0.38546423E-02 0.64244039E-02 + 0.96366059E-02 0.13491248E-01 0.17988331E-01 0.23127854E-01 0.28909818E-01 + 0.35334221E-01 0.42401066E-01 0.50110350E-01 0.58462076E-01 0.67456241E-01 + 0.77092847E-01 0.87371893E-01 0.98293380E-01 0.10985731E+00 0.12206367E+00 + 0.13491248E+00 0.14840373E+00 0.16253742E+00 0.17731355E+00 0.19273212E+00 + 0.20879313E+00 0.22549658E+00 0.24284247E+00 0.26083079E+00 0.27946150E+00 + 0.29873450E+00 0.31864946E+00 0.33920565E+00 0.36040151E+00 0.38223415E+00 + 0.40469856E+00 0.42778647E+00 0.45148485E+00 0.47577453E+00 0.50062895E+00 + 0.52601249E+00 0.55187738E+00 0.57815918E+00 0.60477221E+00 0.63160672E+00 + 0.65852836E+00 0.68538024E+00 0.71198647E+00 0.73815589E+00 0.76368552E+00 + 0.78836589E+00 0.81199016E+00 0.83436583E+00 0.85532573E+00 0.87473640E+00 + 0.89250368E+00 0.90857512E+00 0.92293956E+00 0.93562469E+00 0.94669333E+00 + 0.95623866E+00 0.96437793E+00 0.97124470E+00 0.97698027E+00 0.98172583E+00 + 0.98561641E+00 0.98877690E+00 0.99131995E+00 0.99334548E+00 0.99494125E+00 + 0.99618409E+00 0.99714106E+00 0.99787036E+00 0.99842174E+00 0.99883661E+00 + 0.99914819E+00 0.99938211E+00 0.99955744E+00 0.99968813E+00 0.99978451E+00 + 0.99985443E+00 0.99990407E+00 0.99993844E+00 0.99996159E+00 0.99997671E+00 + 0.99998629E+00 0.99999217E+00 0.99999566E+00 0.99999767E+00 0.99999879E+00 + 0.99999939E+00 0.99999970E+00 0.99999986E+00 0.99999994E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.63223203E-03 0.18966961E-02 0.37933922E-02 0.63223203E-02 + 0.94834805E-02 0.13276873E-01 0.17702497E-01 0.22760353E-01 0.28450441E-01 + 0.34772762E-01 0.41727314E-01 0.49314099E-01 0.57533115E-01 0.66384363E-01 + 0.75867844E-01 0.85983556E-01 0.96731501E-01 0.10811168E+00 0.12012409E+00 + 0.13276873E+00 0.14604560E+00 0.15995470E+00 0.17449604E+00 0.18966961E+00 + 0.20547541E+00 0.22191344E+00 0.23898371E+00 0.25668620E+00 0.27502092E+00 + 0.29398782E+00 0.31358669E+00 0.33381708E+00 0.35467819E+00 0.37616877E+00 + 0.39828673E+00 0.42102826E+00 0.44438658E+00 0.46835019E+00 0.49290085E+00 + 0.51801072E+00 0.54363862E+00 0.56972567E+00 0.59619198E+00 0.62293568E+00 + 0.64983322E+00 0.67673891E+00 0.70348395E+00 0.72987817E+00 0.75571641E+00 + 0.78078834E+00 0.80488829E+00 0.82782341E+00 0.84942101E+00 0.86953576E+00 + 0.88805615E+00 0.90490901E+00 0.92006119E+00 0.93351826E+00 0.94532102E+00 + 0.95554100E+00 0.96427532E+00 0.97164061E+00 0.97776592E+00 0.98278637E+00 + 0.98683860E+00 0.99005786E+00 0.99257532E+00 0.99451469E+00 0.99598849E+00 + 0.99709503E+00 0.99791704E+00 0.99852184E+00 0.99896285E+00 0.99928154E+00 + 0.99950959E+00 0.99967089E+00 0.99978336E+00 0.99986041E+00 0.99991212E+00 + 0.99994601E+00 0.99996766E+00 0.99998112E+00 0.99998927E+00 0.99999406E+00 + 0.99999680E+00 0.99999832E+00 0.99999915E+00 0.99999958E+00 0.99999980E+00 + 0.99999991E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.62006070E-03 0.18601821E-02 0.37203642E-02 0.62006070E-02 + 0.93009105E-02 0.13021275E-01 0.17361700E-01 0.22322185E-01 0.27902731E-01 + 0.34103338E-01 0.40924006E-01 0.48364734E-01 0.56425523E-01 0.65106373E-01 + 0.74407284E-01 0.84328255E-01 0.94869287E-01 0.10603038E+00 0.11781153E+00 + 0.13021275E+00 0.14323402E+00 0.15687536E+00 0.17113675E+00 0.18601821E+00 + 0.20151973E+00 0.21764130E+00 0.23438294E+00 0.25174464E+00 0.26972640E+00 + 0.28832822E+00 0.30755005E+00 0.32739176E+00 0.34785296E+00 0.36893273E+00 + 0.39062913E+00 0.41293842E+00 0.43585399E+00 0.45936512E+00 0.48345528E+00 + 0.50810035E+00 0.53326627E+00 0.55890539E+00 0.58495180E+00 0.61131772E+00 + 0.63789250E+00 0.66454438E+00 0.69112290E+00 0.71745954E+00 0.74336766E+00 + 0.76864596E+00 0.79308711E+00 0.81648908E+00 0.83866525E+00 0.85945203E+00 + 0.87871501E+00 0.89635465E+00 0.91231092E+00 0.92656523E+00 0.93913906E+00 + 0.95009013E+00 0.95950703E+00 0.96750268E+00 0.97420678E+00 0.97975796E+00 + 0.98429694E+00 0.98796111E+00 0.99088082E+00 0.99317689E+00 0.99495880E+00 + 0.99632346E+00 0.99735462E+00 0.99812302E+00 0.99868730E+00 0.99909533E+00 + 0.99938570E+00 0.99958901E+00 0.99972908E+00 0.99982408E+00 0.99988752E+00 + 0.99992924E+00 0.99995624E+00 0.99997342E+00 0.99998416E+00 0.99999076E+00 + 0.99999472E+00 0.99999705E+00 0.99999839E+00 0.99999915E+00 0.99999956E+00 + 0.99999978E+00 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.61167855E-03 0.18350357E-02 0.36700713E-02 0.61167855E-02 + 0.91751783E-02 0.12845250E-01 0.17126999E-01 0.22020428E-01 0.27525535E-01 + 0.33642320E-01 0.40370784E-01 0.47710927E-01 0.55662748E-01 0.64226248E-01 + 0.73401426E-01 0.83188283E-01 0.93586818E-01 0.10459703E+00 0.11621892E+00 + 0.12845250E+00 0.14129775E+00 0.15475467E+00 0.16882328E+00 0.18350357E+00 + 0.19879553E+00 0.21469917E+00 0.23121449E+00 0.24834149E+00 0.26608017E+00 + 0.28443049E+00 0.30339236E+00 0.32296545E+00 0.34314898E+00 0.36394152E+00 + 0.38534054E+00 0.40734184E+00 0.42993896E+00 0.45312265E+00 0.47687988E+00 + 0.50119221E+00 0.52603280E+00 0.55136169E+00 0.57711947E+00 0.60322190E+00 + 0.62955875E+00 0.65599663E+00 0.68238288E+00 0.70854895E+00 0.73431426E+00 + 0.75949035E+00 0.78388500E+00 0.80730814E+00 0.82958112E+00 0.85054789E+00 + 0.87008437E+00 0.88810245E+00 0.90454801E+00 0.91939559E+00 0.93264424E+00 + 0.94431655E+00 0.95446062E+00 0.96315199E+00 0.97049265E+00 0.97660591E+00 + 0.98162838E+00 0.98570169E+00 0.98896534E+00 0.99155119E+00 0.99357935E+00 + 0.99515569E+00 0.99637077E+00 0.99730016E+00 0.99800573E+00 0.99853745E+00 + 0.99893530E+00 0.99923100E+00 0.99944943E+00 0.99960981E+00 0.99972680E+00 + 0.99981142E+00 0.99987196E+00 0.99991468E+00 0.99994430E+00 0.99996444E+00 + 0.99997782E+00 0.99998650E+00 0.99999199E+00 0.99999537E+00 0.99999740E+00 + 0.99999857E+00 0.99999924E+00 0.99999961E+00 0.99999980E+00 0.99999990E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.60124640E-03 0.18037392E-02 0.36074784E-02 0.60124640E-02 + 0.90186960E-02 0.12626174E-01 0.16834899E-01 0.21644870E-01 0.27056088E-01 + 0.33068552E-01 0.39682262E-01 0.46897219E-01 0.54713422E-01 0.63130872E-01 + 0.72149568E-01 0.81769510E-01 0.91990699E-01 0.10281313E+00 0.11423682E+00 + 0.12626174E+00 0.13888792E+00 0.15211534E+00 0.16594401E+00 0.18037392E+00 + 0.19540508E+00 0.21103749E+00 0.22727114E+00 0.24410604E+00 0.26154218E+00 + 0.27957957E+00 0.29821819E+00 0.31745801E+00 0.33729884E+00 0.35774016E+00 + 0.37878078E+00 0.40041834E+00 0.42264879E+00 0.44546557E+00 0.46885868E+00 + 0.49281303E+00 0.51730534E+00 0.54230008E+00 0.56774543E+00 0.59356992E+00 + 0.61968043E+00 0.64596268E+00 0.67228295E+00 0.69848842E+00 0.72440590E+00 + 0.74984296E+00 0.77459509E+00 0.79845800E+00 0.82124016E+00 0.84277079E+00 + 0.86290340E+00 0.88151854E+00 0.89852917E+00 0.91388733E+00 0.92758839E+00 + 0.93966959E+00 0.95020342E+00 0.95928859E+00 0.96704120E+00 0.97358720E+00 + 0.97905578E+00 0.98357404E+00 0.98726327E+00 0.99023725E+00 0.99260179E+00 + 0.99445467E+00 0.99588536E+00 0.99697437E+00 0.99779249E+00 0.99840024E+00 + 0.99884774E+00 0.99917516E+00 0.99941367E+00 0.99958679E+00 0.99971190E+00 + 0.99980175E+00 0.99986569E+00 0.99991061E+00 0.99994166E+00 0.99996273E+00 + 0.99997672E+00 0.99998580E+00 0.99999155E+00 0.99999509E+00 0.99999722E+00 + 0.99999847E+00 0.99999918E+00 0.99999957E+00 0.99999978E+00 0.99999989E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.59177679E-03 0.17753304E-02 0.35506607E-02 0.59177679E-02 + 0.88766518E-02 0.12427313E-01 0.16569750E-01 0.21303964E-01 0.26629956E-01 + 0.32547723E-01 0.39057268E-01 0.46158590E-01 0.53851688E-01 0.62136563E-01 + 0.71013215E-01 0.80481643E-01 0.90541849E-01 0.10119383E+00 0.11243759E+00 + 0.12427313E+00 0.13670044E+00 0.14971953E+00 0.16333039E+00 0.17753304E+00 + 0.19232746E+00 0.20771365E+00 0.22369163E+00 0.24026137E+00 0.25742289E+00 + 0.27517613E+00 0.29352104E+00 0.31245742E+00 0.33198492E+00 0.35210284E+00 + 0.37281004E+00 0.39410499E+00 0.41598574E+00 0.43844938E+00 0.46149061E+00 + 0.48509959E+00 0.50925881E+00 0.53393977E+00 0.55909954E+00 0.58467718E+00 + 0.61058984E+00 0.63672980E+00 0.66296421E+00 0.68913870E+00 0.71508375E+00 + 0.74062040E+00 0.76556353E+00 0.78972356E+00 0.81290989E+00 0.83493848E+00 + 0.85564273E+00 0.87488381E+00 0.89255782E+00 0.90859936E+00 0.92298264E+00 + 0.93572051E+00 0.94686172E+00 0.95648647E+00 0.96470056E+00 0.97162843E+00 + 0.97740563E+00 0.98217155E+00 0.98606288E+00 0.98920850E+00 0.99172621E+00 + 0.99372129E+00 0.99528623E+00 0.99650104E+00 0.99743391E+00 0.99814212E+00 + 0.99867320E+00 0.99906619E+00 0.99935284E+00 0.99955871E+00 0.99970416E+00 + 0.99980516E+00 0.99987402E+00 0.99992009E+00 0.99995030E+00 0.99996972E+00 + 0.99998194E+00 0.99998946E+00 0.99999398E+00 0.99999664E+00 0.99999817E+00 + 0.99999903E+00 0.99999949E+00 0.99999974E+00 0.99999987E+00 0.99999994E+00 + 0.99999997E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.58259293E-03 0.17477788E-02 0.34955576E-02 0.58259293E-02 + 0.87388939E-02 0.12234451E-01 0.16312602E-01 0.20973345E-01 0.26216682E-01 + 0.32042611E-01 0.38451133E-01 0.45442248E-01 0.53015956E-01 0.61172257E-01 + 0.69911151E-01 0.79232638E-01 0.89136718E-01 0.99623390E-01 0.11069266E+00 + 0.12234451E+00 0.13457897E+00 0.14739601E+00 0.16079565E+00 0.17477788E+00 + 0.18934270E+00 0.20449012E+00 0.22022013E+00 0.23653273E+00 0.25342792E+00 + 0.27090571E+00 0.28896608E+00 0.30760899E+00 0.32683427E+00 0.34664149E+00 + 0.36702982E+00 0.38799787E+00 0.40954339E+00 0.43166279E+00 0.45435029E+00 + 0.47759659E+00 0.50138674E+00 0.52569762E+00 0.55049472E+00 0.57572856E+00 + 0.60133091E+00 0.62721176E+00 0.65325824E+00 0.67933552E+00 0.70528870E+00 + 0.73094524E+00 0.75611817E+00 0.78061052E+00 0.80422231E+00 0.82675977E+00 + 0.84804459E+00 0.86792194E+00 0.88626824E+00 0.90299786E+00 0.91806676E+00 + 0.93147194E+00 0.94324814E+00 0.95346351E+00 0.96221457E+00 0.96962012E+00 + 0.97581417E+00 0.98093824E+00 0.98513362E+00 0.98853476E+00 0.99126462E+00 + 0.99343252E+00 0.99513397E+00 0.99645166E+00 0.99745680E+00 0.99821051E+00 + 0.99876509E+00 0.99916484E+00 0.99944678E+00 0.99964121E+00 0.99977223E+00 + 0.99985849E+00 0.99991397E+00 0.99994883E+00 0.99997023E+00 0.99998306E+00 + 0.99999058E+00 0.99999488E+00 0.99999728E+00 0.99999859E+00 0.99999928E+00 + 0.99999965E+00 0.99999983E+00 0.99999992E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.58042998E-03 0.17412899E-02 0.34825799E-02 0.58042998E-02 + 0.87064497E-02 0.12189030E-01 0.16252040E-01 0.20895479E-01 0.26119349E-01 + 0.31923649E-01 0.38308379E-01 0.45273539E-01 0.52819128E-01 0.60945148E-01 + 0.69651598E-01 0.78938478E-01 0.88805787E-01 0.99253527E-01 0.11028170E+00 + 0.12189030E+00 0.13407933E+00 0.14684879E+00 0.16019868E+00 0.17412899E+00 + 0.18863974E+00 0.20373092E+00 0.21940253E+00 0.23565457E+00 0.25248704E+00 + 0.26989994E+00 0.28789327E+00 0.30646703E+00 0.32562120E+00 0.34535571E+00 + 0.36567023E+00 0.38656405E+00 0.40803572E+00 0.43008264E+00 0.45270037E+00 + 0.47588146E+00 0.49961380E+00 0.52387795E+00 0.54864378E+00 0.57386662E+00 + 0.59948316E+00 0.62540712E+00 0.65152585E+00 0.67770029E+00 0.70376825E+00 + 0.72954866E+00 0.75484553E+00 0.77945308E+00 0.80316343E+00 0.82577651E+00 + 0.84711024E+00 0.86701021E+00 0.88535827E+00 0.90207877E+00 0.91714079E+00 + 0.93055558E+00 0.94237044E+00 0.95266085E+00 0.96152248E+00 0.96906405E+00 + 0.97540215E+00 0.98065843E+00 0.98495801E+00 0.98842719E+00 0.99118958E+00 + 0.99336170E+00 0.99504933E+00 0.99634550E+00 0.99733004E+00 0.99806996E+00 + 0.99862039E+00 0.99902577E+00 0.99932119E+00 0.99953398E+00 0.99968519E+00 + 0.99979099E+00 0.99986376E+00 0.99991287E+00 0.99994537E+00 0.99996642E+00 + 0.99997978E+00 0.99998808E+00 0.99999312E+00 0.99999611E+00 0.99999785E+00 + 0.99999884E+00 0.99999939E+00 0.99999968E+00 0.99999984E+00 0.99999992E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.57138566E-03 0.17141570E-02 0.34283140E-02 0.57138566E-02 + 0.85707850E-02 0.11999099E-01 0.15998799E-01 0.20569884E-01 0.25712355E-01 + 0.31426212E-01 0.37711454E-01 0.44568082E-01 0.51996095E-01 0.59995495E-01 + 0.68566280E-01 0.77708450E-01 0.87422007E-01 0.97706949E-01 0.10856328E+00 + 0.11999099E+00 0.13199009E+00 0.14456057E+00 0.15770244E+00 0.17141570E+00 + 0.18570034E+00 0.20055637E+00 0.21598378E+00 0.23198258E+00 0.24855276E+00 + 0.26569433E+00 0.28340729E+00 0.30169162E+00 0.32054731E+00 0.33997418E+00 + 0.35997174E+00 0.38053884E+00 0.40167336E+00 0.42337190E+00 0.44562911E+00 + 0.46843680E+00 0.49178277E+00 0.51564889E+00 0.54000833E+00 0.56482271E+00 + 0.59003960E+00 0.61558953E+00 0.64138223E+00 0.66730426E+00 0.69321962E+00 + 0.71897204E+00 0.74438680E+00 0.76927214E+00 0.79342280E+00 0.81662815E+00 + 0.83868526E+00 0.85941383E+00 0.87866787E+00 0.89634155E+00 0.91236959E+00 + 0.92672491E+00 0.93941569E+00 0.95048326E+00 0.96000046E+00 0.96806838E+00 + 0.97481028E+00 0.98036380E+00 0.98487336E+00 0.98848356E+00 0.99133381E+00 + 0.99355381E+00 0.99526037E+00 0.99655567E+00 0.99752671E+00 0.99824589E+00 + 0.99877209E+00 0.99915231E+00 0.99942346E+00 0.99961407E+00 0.99974602E+00 + 0.99983582E+00 0.99989584E+00 0.99993519E+00 0.99996048E+00 0.99997639E+00 + 0.99998619E+00 0.99999210E+00 0.99999558E+00 0.99999758E+00 0.99999871E+00 + 0.99999932E+00 0.99999966E+00 0.99999983E+00 0.99999992E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.56142827E-03 0.16842848E-02 0.33685696E-02 0.56142827E-02 + 0.84214240E-02 0.11789994E-01 0.15719992E-01 0.20211418E-01 0.25264272E-01 + 0.30878555E-01 0.37054266E-01 0.43791405E-01 0.51089973E-01 0.58949968E-01 + 0.67371392E-01 0.76354245E-01 0.85898525E-01 0.96004234E-01 0.10667137E+00 + 0.11789994E+00 0.12968993E+00 0.14204135E+00 0.15495420E+00 0.16842848E+00 + 0.18246419E+00 0.19706132E+00 0.21221989E+00 0.22793988E+00 0.24422130E+00 + 0.26106415E+00 0.27846842E+00 0.29643412E+00 0.31496121E+00 0.33404956E+00 + 0.35369873E+00 0.37390764E+00 0.39467424E+00 0.41599538E+00 0.43786645E+00 + 0.46028049E+00 0.48322692E+00 0.50669001E+00 0.53064719E+00 0.55506630E+00 + 0.57990145E+00 0.60508811E+00 0.63053934E+00 0.65614426E+00 0.68176844E+00 + 0.70725625E+00 0.73243564E+00 0.75712540E+00 0.78114328E+00 0.80431246E+00 + 0.82646525E+00 0.84744604E+00 0.86711528E+00 0.88535460E+00 0.90207183E+00 + 0.91720527E+00 0.93072771E+00 0.94264970E+00 0.95301995E+00 0.96192128E+00 + 0.96946316E+00 0.97577290E+00 0.98098725E+00 0.98524501E+00 0.98868092E+00 + 0.99142125E+00 0.99358092E+00 0.99526207E+00 0.99655372E+00 0.99753217E+00 + 0.99826203E+00 0.99879736E+00 0.99918294E+00 0.99945535E+00 0.99964395E+00 + 0.99977182E+00 0.99985669E+00 0.99991181E+00 0.99994684E+00 0.99996862E+00 + 0.99998186E+00 0.99998974E+00 0.99999432E+00 0.99999693E+00 0.99999837E+00 + 0.99999916E+00 0.99999958E+00 0.99999979E+00 0.99999990E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.55556619E-03 0.16666986E-02 0.33333971E-02 0.55556619E-02 + 0.83334928E-02 0.11666890E-01 0.15555853E-01 0.20000383E-01 0.25000479E-01 + 0.30556140E-01 0.36667369E-01 0.43334163E-01 0.50556523E-01 0.58334450E-01 + 0.66667943E-01 0.75557002E-01 0.85001627E-01 0.95001818E-01 0.10555758E+00 + 0.11666890E+00 0.12833579E+00 0.14055825E+00 0.15333627E+00 0.16666986E+00 + 0.18055901E+00 0.19500373E+00 0.21000402E+00 0.22555987E+00 0.24167129E+00 + 0.25833828E+00 0.27556082E+00 0.29333889E+00 0.31167239E+00 0.33056109E+00 + 0.35000466E+00 0.37000267E+00 0.39055448E+00 0.41165862E+00 0.43331157E+00 + 0.45550633E+00 0.47823160E+00 0.50147174E+00 0.52520616E+00 0.54940676E+00 + 0.57403352E+00 0.59903002E+00 0.62431986E+00 0.64980394E+00 0.67535928E+00 + 0.70084071E+00 0.72608493E+00 0.75091454E+00 0.77514159E+00 0.79857199E+00 + 0.82101310E+00 0.84228521E+00 0.86223361E+00 0.88073686E+00 0.89770955E+00 + 0.91310125E+00 0.92689482E+00 0.93910539E+00 0.94977949E+00 0.95899239E+00 + 0.96684322E+00 0.97344906E+00 0.97893904E+00 0.98344857E+00 0.98711310E+00 + 0.99006191E+00 0.99241305E+00 0.99427058E+00 0.99572404E+00 0.99684942E+00 + 0.99771070E+00 0.99836135E+00 0.99884578E+00 0.99920071E+00 0.99945622E+00 + 0.99963673E+00 0.99976179E+00 0.99984669E+00 0.99990317E+00 0.99993998E+00 + 0.99996349E+00 0.99997821E+00 0.99998723E+00 0.99999266E+00 0.99999586E+00 + 0.99999771E+00 0.99999876E+00 0.99999934E+00 0.99999966E+00 0.99999982E+00 + 0.99999991E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.55101447E-03 0.16530434E-02 0.33060868E-02 0.55101447E-02 + 0.82652170E-02 0.11571304E-01 0.15428405E-01 0.19836521E-01 0.24795651E-01 + 0.30305796E-01 0.36366955E-01 0.42979128E-01 0.50142316E-01 0.57856519E-01 + 0.66121736E-01 0.74937967E-01 0.84305213E-01 0.94223474E-01 0.10469275E+00 + 0.11571304E+00 0.12728434E+00 0.13940666E+00 0.15207999E+00 0.16530434E+00 + 0.17907970E+00 0.19340608E+00 0.20828347E+00 0.22371187E+00 0.23969129E+00 + 0.25622173E+00 0.27330318E+00 0.29093564E+00 0.30911912E+00 0.32785361E+00 + 0.34713911E+00 0.36697558E+00 0.38736284E+00 0.40830014E+00 0.42978549E+00 + 0.45181447E+00 0.47437880E+00 0.49746495E+00 0.52105270E+00 0.54511337E+00 + 0.56960761E+00 0.59448282E+00 0.61967042E+00 0.64508294E+00 0.67061150E+00 + 0.69612415E+00 0.72146557E+00 0.74645830E+00 0.77090780E+00 0.79461258E+00 + 0.81737691E+00 0.83902075E+00 0.85938444E+00 0.87833097E+00 0.89574979E+00 + 0.91156316E+00 0.92573292E+00 0.93826429E+00 0.94920467E+00 0.95863743E+00 + 0.96667253E+00 0.97343619E+00 0.97906186E+00 0.98368391E+00 0.98743383E+00 + 0.99043749E+00 0.99281276E+00 0.99466714E+00 0.99609609E+00 0.99718242E+00 + 0.99799653E+00 0.99859739E+00 0.99903375E+00 0.99934530E+00 0.99956387E+00 + 0.99971446E+00 0.99981632E+00 0.99988395E+00 0.99992800E+00 0.99995615E+00 + 0.99997379E+00 0.99998463E+00 0.99999116E+00 0.99999502E+00 0.99999725E+00 + 0.99999851E+00 0.99999921E+00 0.99999959E+00 0.99999979E+00 0.99999990E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.54715346E-03 0.16414604E-02 0.32829208E-02 0.54715346E-02 + 0.82073019E-02 0.11490223E-01 0.15320297E-01 0.19697525E-01 0.24621906E-01 + 0.30093440E-01 0.36112128E-01 0.42677970E-01 0.49790965E-01 0.57451113E-01 + 0.65658415E-01 0.74412870E-01 0.83714479E-01 0.93563242E-01 0.10395916E+00 + 0.11490223E+00 0.12639245E+00 0.13842983E+00 0.15101435E+00 0.16414604E+00 + 0.17782487E+00 0.19205086E+00 0.20682401E+00 0.22214430E+00 0.23801175E+00 + 0.25442636E+00 0.27138812E+00 0.28889703E+00 0.30695309E+00 0.32555627E+00 + 0.34470646E+00 0.36440335E+00 0.38464636E+00 0.40543455E+00 0.42676633E+00 + 0.44863840E+00 0.47104366E+00 0.49396878E+00 0.51739264E+00 0.54128589E+00 + 0.56561016E+00 0.59031594E+00 0.61533917E+00 0.64059747E+00 0.66598633E+00 + 0.69137602E+00 0.71661075E+00 0.74151187E+00 0.76588501E+00 0.78953037E+00 + 0.81225419E+00 0.83387933E+00 0.85425295E+00 0.87325118E+00 0.89078101E+00 + 0.90678022E+00 0.92121650E+00 0.93408738E+00 0.94542079E+00 0.95527470E+00 + 0.96373431E+00 0.97090690E+00 0.97691486E+00 0.98188822E+00 0.98595757E+00 + 0.98924855E+00 0.99187805E+00 0.99395215E+00 0.99556539E+00 0.99680095E+00 + 0.99773137E+00 0.99841936E+00 0.99891839E+00 0.99927326E+00 0.99952057E+00 + 0.99968947E+00 0.99980253E+00 0.99987671E+00 0.99992443E+00 0.99995452E+00 + 0.99997313E+00 0.99998442E+00 0.99999113E+00 0.99999505E+00 0.99999729E+00 + 0.99999854E+00 0.99999923E+00 0.99999960E+00 0.99999980E+00 0.99999990E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.53532153E-03 0.16059646E-02 0.32119292E-02 0.53532153E-02 + 0.80298229E-02 0.11241752E-01 0.14989003E-01 0.19271575E-01 0.24089469E-01 + 0.29442684E-01 0.35331221E-01 0.41755079E-01 0.48714259E-01 0.56208760E-01 + 0.64238583E-01 0.72803728E-01 0.81904194E-01 0.91539981E-01 0.10171109E+00 + 0.11241752E+00 0.12365927E+00 0.13543635E+00 0.14774874E+00 0.16059646E+00 + 0.17397950E+00 0.18789786E+00 0.20235154E+00 0.21734054E+00 0.23286486E+00 + 0.24892451E+00 0.26551948E+00 0.28264976E+00 0.30031533E+00 0.31851609E+00 + 0.33725184E+00 0.35652223E+00 0.37632682E+00 0.39666488E+00 0.41753484E+00 + 0.43893338E+00 0.46085448E+00 0.48328838E+00 0.50622016E+00 0.52962775E+00 + 0.55347935E+00 0.57773061E+00 0.60232182E+00 0.62717500E+00 0.65219247E+00 + 0.67725726E+00 0.70223423E+00 0.72696996E+00 0.75129318E+00 0.77501976E+00 + 0.79796314E+00 0.81994645E+00 0.84081160E+00 0.86042429E+00 0.87867616E+00 + 0.89548606E+00 0.91080184E+00 0.92460237E+00 0.93689872E+00 0.94773275E+00 + 0.95717251E+00 0.96530563E+00 0.97223251E+00 0.97806070E+00 0.98290075E+00 + 0.98686353E+00 0.99005858E+00 0.99259259E+00 0.99456780E+00 0.99607998E+00 + 0.99721660E+00 0.99805528E+00 0.99866283E+00 0.99909503E+00 0.99939707E+00 + 0.99960450E+00 0.99974455E+00 0.99983752E+00 0.99989824E+00 0.99993724E+00 + 0.99996189E+00 0.99997722E+00 0.99998660E+00 0.99999224E+00 0.99999558E+00 + 0.99999753E+00 0.99999864E+00 0.99999927E+00 0.99999961E+00 0.99999980E+00 + 0.99999990E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.53535196E-03 0.16060559E-02 0.32121118E-02 0.53535196E-02 + 0.80302794E-02 0.11242391E-01 0.14989855E-01 0.19272671E-01 0.24090838E-01 + 0.29444358E-01 0.35333230E-01 0.41757453E-01 0.48717029E-01 0.56211956E-01 + 0.64242236E-01 0.72807867E-01 0.81908850E-01 0.91545186E-01 0.10171687E+00 + 0.11242391E+00 0.12366630E+00 0.13544405E+00 0.14775714E+00 0.16060559E+00 + 0.17398939E+00 0.18790854E+00 0.20236304E+00 0.21735290E+00 0.23287810E+00 + 0.24893866E+00 0.26553457E+00 0.28266583E+00 0.30033242E+00 0.31853423E+00 + 0.33727103E+00 0.35654233E+00 0.37634741E+00 0.39668518E+00 0.41755413E+00 + 0.43895205E+00 0.46087540E+00 0.48331801E+00 0.50626894E+00 0.52970967E+00 + 0.55361148E+00 0.57793300E+00 0.60261750E+00 0.62758959E+00 0.65275261E+00 + 0.67798797E+00 0.70315649E+00 0.72810109E+00 0.75265047E+00 0.77662337E+00 + 0.79983349E+00 0.82209567E+00 0.84323389E+00 0.86309053E+00 0.88153572E+00 + 0.89847427E+00 0.91384858E+00 0.92763816E+00 0.93985729E+00 0.95055151E+00 + 0.95979305E+00 0.96767547E+00 0.97430832E+00 0.97981253E+00 0.98431634E+00 + 0.98795086E+00 0.99084519E+00 0.99312157E+00 0.99489124E+00 0.99625176E+00 + 0.99728600E+00 0.99806271E+00 0.99863815E+00 0.99905803E+00 0.99935936E+00 + 0.99957178E+00 0.99971877E+00 0.99981858E+00 0.99988505E+00 0.99992847E+00 + 0.99995629E+00 0.99997378E+00 0.99998456E+00 0.99999108E+00 0.99999494E+00 + 0.99999719E+00 0.99999847E+00 0.99999918E+00 0.99999957E+00 0.99999978E+00 + 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.79451393E-03 0.23835418E-02 0.47670836E-02 0.79451393E-02 + 0.11917709E-01 0.16684792E-01 0.22246390E-01 0.28602501E-01 0.35753127E-01 + 0.43698266E-01 0.52437919E-01 0.61972086E-01 0.72300766E-01 0.83423960E-01 + 0.95341667E-01 0.10805389E+00 0.12156062E+00 0.13586185E+00 0.15095756E+00 + 0.16684771E+00 0.18353229E+00 0.20101125E+00 0.21928454E+00 0.23835191E+00 + 0.25821283E+00 0.27886621E+00 0.30031037E+00 0.32254277E+00 0.34555919E+00 + 0.36935215E+00 0.39390943E+00 0.41921265E+00 0.44523520E+00 0.47193880E+00 + 0.49926990E+00 0.52715615E+00 0.55550173E+00 0.58418369E+00 0.61305330E+00 + 0.64194243E+00 0.67067269E+00 0.69905796E+00 0.72689684E+00 0.75397014E+00 + 0.78005303E+00 0.80493233E+00 0.82841757E+00 0.85034629E+00 0.87059043E+00 + 0.88906404E+00 0.90572694E+00 0.92058248E+00 0.93367366E+00 0.94508004E+00 + 0.95491301E+00 0.96330947E+00 0.97042284E+00 0.97640914E+00 0.98141214E+00 + 0.98555526E+00 0.98894276E+00 0.99166652E+00 0.99381351E+00 0.99547011E+00 + 0.99672137E+00 0.99764751E+00 0.99832078E+00 0.99880388E+00 0.99914901E+00 + 0.99939718E+00 0.99957810E+00 0.99971147E+00 0.99980948E+00 0.99987984E+00 + 0.99992823E+00 0.99995967E+00 0.99997876E+00 0.99998954E+00 0.99999520E+00 + 0.99999794E+00 0.99999918E+00 0.99999969E+00 0.99999989E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.80438618E-03 0.24131585E-02 0.48263171E-02 0.80438618E-02 + 0.12065793E-01 0.16892110E-01 0.22522813E-01 0.28957902E-01 0.36197378E-01 + 0.44241240E-01 0.53089488E-01 0.62742122E-01 0.73199142E-01 0.84460547E-01 + 0.96526336E-01 0.10939650E+00 0.12307104E+00 0.13754992E+00 0.15283311E+00 + 0.16892054E+00 0.18581213E+00 0.20350770E+00 0.22200696E+00 0.24130929E+00 + 0.26141328E+00 0.28231615E+00 0.30401348E+00 0.32649940E+00 0.34976669E+00 + 0.37380581E+00 0.39860259E+00 0.42413538E+00 0.45037303E+00 0.47727414E+00 + 0.50478447E+00 0.53283174E+00 0.56132003E+00 0.59012556E+00 0.61909363E+00 + 0.64803974E+00 0.67675945E+00 0.70504101E+00 0.73267238E+00 0.75944546E+00 + 0.78516298E+00 0.80964680E+00 0.83274318E+00 0.85432285E+00 0.87428116E+00 + 0.89254278E+00 0.90906633E+00 0.92384371E+00 0.93689794E+00 0.94828292E+00 + 0.95808241E+00 0.96640585E+00 0.97338276E+00 0.97915701E+00 0.98387937E+00 + 0.98769849E+00 0.99075286E+00 0.99316629E+00 0.99504668E+00 0.99648693E+00 + 0.99756740E+00 0.99835872E+00 0.99892330E+00 0.99931514E+00 0.99957917E+00 + 0.99975123E+00 0.99985911E+00 0.99992383E+00 0.99996080E+00 0.99998084E+00 + 0.99999112E+00 0.99999611E+00 0.99999839E+00 0.99999937E+00 0.99999977E+00 + 0.99999992E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.79202108E-03 0.23760633E-02 0.47521265E-02 0.79202108E-02 + 0.11880316E-01 0.16632443E-01 0.22176590E-01 0.28512759E-01 0.35640949E-01 + 0.43561160E-01 0.52273391E-01 0.61777644E-01 0.72073918E-01 0.83162212E-01 + 0.95042522E-01 0.10771484E+00 0.12117913E+00 0.13543540E+00 0.15048364E+00 + 0.16632386E+00 0.18295609E+00 0.20038021E+00 0.21859580E+00 0.23760212E+00 + 0.25739848E+00 0.27798414E+00 0.29935760E+00 0.32151558E+00 0.34445208E+00 + 0.36815762E+00 0.39261788E+00 0.41781205E+00 0.44371148E+00 0.47027781E+00 + 0.49746046E+00 0.52519323E+00 0.55339018E+00 0.58194237E+00 0.61071710E+00 + 0.63955931E+00 0.66829224E+00 0.69671687E+00 0.72461385E+00 0.75175067E+00 + 0.77789394E+00 0.80282487E+00 0.82635411E+00 0.84833236E+00 0.86865427E+00 + 0.88725535E+00 0.90410602E+00 0.91920952E+00 0.93260327E+00 0.94435667E+00 + 0.95456233E+00 0.96332583E+00 0.97075935E+00 0.97698026E+00 0.98211182E+00 + 0.98628221E+00 0.98962059E+00 0.99225221E+00 0.99429465E+00 0.99585537E+00 + 0.99702991E+00 0.99790080E+00 0.99853744E+00 0.99899673E+00 0.99932403E+00 + 0.99955444E+00 0.99971429E+00 0.99982297E+00 0.99989473E+00 0.99994028E+00 + 0.99996783E+00 0.99998360E+00 0.99999210E+00 0.99999642E+00 0.99999847E+00 + 0.99999939E+00 0.99999977E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.78073118E-03 0.23421935E-02 0.46843871E-02 0.78073118E-02 + 0.11710968E-01 0.16395355E-01 0.21860473E-01 0.28106322E-01 0.35132903E-01 + 0.42940214E-01 0.51528257E-01 0.60897031E-01 0.71046536E-01 0.81976772E-01 + 0.93687740E-01 0.10617944E+00 0.11945187E+00 0.13350502E+00 0.14833891E+00 + 0.16395351E+00 0.18034882E+00 0.19752479E+00 0.21548135E+00 0.23421829E+00 + 0.25373509E+00 0.27403062E+00 0.29510298E+00 0.31694951E+00 0.33956635E+00 + 0.36294743E+00 0.38708310E+00 0.41195845E+00 0.43755083E+00 0.46382660E+00 + 0.49073728E+00 0.51821616E+00 0.54617727E+00 0.57451735E+00 0.60311600E+00 + 0.63183036E+00 0.66048878E+00 0.68889121E+00 0.71681886E+00 0.74404807E+00 + 0.77036296E+00 0.79556276E+00 0.81946264E+00 0.84189453E+00 0.86271570E+00 + 0.88182183E+00 0.89915378E+00 0.91469587E+00 0.92847216E+00 0.94054566E+00 + 0.95101698E+00 0.96001629E+00 0.96768842E+00 0.97417731E+00 0.97961603E+00 + 0.98412400E+00 0.98780960E+00 0.99077532E+00 0.99312186E+00 0.99494835E+00 + 0.99634897E+00 0.99740840E+00 0.99819881E+00 0.99877921E+00 0.99919684E+00 + 0.99948946E+00 0.99968772E+00 0.99981678E+00 0.99989709E+00 0.99994472E+00 + 0.99997160E+00 0.99998605E+00 0.99999344E+00 0.99999705E+00 0.99999873E+00 + 0.99999948E+00 0.99999979E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.76553362E-03 0.22966009E-02 0.45932017E-02 0.76553362E-02 + 0.11483004E-01 0.16076206E-01 0.21434941E-01 0.27559210E-01 0.34449013E-01 + 0.42104349E-01 0.50525219E-01 0.59711622E-01 0.69663559E-01 0.80381030E-01 + 0.91864033E-01 0.10411257E+00 0.11712664E+00 0.13090624E+00 0.14545137E+00 + 0.16076201E+00 0.17683815E+00 0.19367976E+00 0.21128672E+00 0.22965876E+00 + 0.24879539E+00 0.26869602E+00 0.28936022E+00 0.31078763E+00 0.33297706E+00 + 0.35592500E+00 0.37962397E+00 0.40406155E+00 0.42921968E+00 0.45507282E+00 + 0.48158390E+00 0.50869953E+00 0.53634688E+00 0.56443249E+00 0.59284076E+00 + 0.62143082E+00 0.65003572E+00 0.67846701E+00 0.70652250E+00 0.73399213E+00 + 0.76066072E+00 0.78631248E+00 0.81074144E+00 0.83376582E+00 0.85524118E+00 + 0.87506745E+00 0.89318742E+00 0.90957912E+00 0.92424836E+00 0.93722594E+00 + 0.94856809E+00 0.95835573E+00 0.96669092E+00 0.97369256E+00 0.97949230E+00 + 0.98422934E+00 0.98804359E+00 0.99106913E+00 0.99343033E+00 0.99524060E+00 + 0.99660227E+00 0.99760655E+00 0.99833315E+00 0.99884991E+00 0.99921251E+00 + 0.99946483E+00 0.99963985E+00 0.99976125E+00 0.99984526E+00 0.99990275E+00 + 0.99994116E+00 0.99996591E+00 0.99998115E+00 0.99999008E+00 0.99999503E+00 + 0.99999764E+00 0.99999893E+00 0.99999955E+00 0.99999982E+00 0.99999993E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.75630210E-03 0.22689063E-02 0.45378126E-02 0.75630210E-02 + 0.11344531E-01 0.15882344E-01 0.21176459E-01 0.27226876E-01 0.34033594E-01 + 0.41596615E-01 0.49915939E-01 0.58991564E-01 0.68823491E-01 0.79411720E-01 + 0.90756252E-01 0.10285709E+00 0.11571422E+00 0.12932766E+00 0.14369740E+00 + 0.15882343E+00 0.17470576E+00 0.19134439E+00 0.20873930E+00 0.22689047E+00 + 0.24579784E+00 0.26546126E+00 0.28588033E+00 0.30705416E+00 0.32898097E+00 + 0.35165745E+00 0.37507787E+00 0.39923264E+00 0.42410659E+00 0.44967684E+00 + 0.47590956E+00 0.50275575E+00 0.53014713E+00 0.55799323E+00 0.58618047E+00 + 0.61457314E+00 0.64301657E+00 0.67134153E+00 0.69936719E+00 0.72690069E+00 + 0.75373608E+00 0.77965682E+00 0.80444229E+00 0.82787876E+00 0.84977652E+00 + 0.86998960E+00 0.88842986E+00 0.90507048E+00 0.91993923E+00 0.93310420E+00 + 0.94465713E+00 0.95470065E+00 0.96334207E+00 0.97069219E+00 0.97686549E+00 + 0.98197969E+00 0.98615445E+00 0.98950958E+00 0.99216273E+00 0.99422646E+00 + 0.99580531E+00 0.99699374E+00 0.99787465E+00 0.99851865E+00 0.99898372E+00 + 0.99931575E+00 0.99954978E+00 0.99971197E+00 0.99982178E+00 0.99989386E+00 + 0.99993941E+00 0.99996695E+00 0.99998282E+00 0.99999150E+00 0.99999601E+00 + 0.99999822E+00 0.99999925E+00 0.99999970E+00 0.99999989E+00 0.99999996E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.74245013E-03 0.22273504E-02 0.44547008E-02 0.74245013E-02 + 0.11136752E-01 0.15591453E-01 0.20788604E-01 0.26728205E-01 0.33410256E-01 + 0.40834757E-01 0.49001708E-01 0.57911110E-01 0.67562962E-01 0.77957263E-01 + 0.89094015E-01 0.10097322E+00 0.11359487E+00 0.12695897E+00 0.14106552E+00 + 0.15591453E+00 0.17150598E+00 0.18783987E+00 0.20491620E+00 0.22273496E+00 + 0.24129609E+00 0.26059947E+00 0.28064481E+00 0.30143134E+00 0.32295741E+00 + 0.34521989E+00 0.36821348E+00 0.39192966E+00 0.41635512E+00 0.44146981E+00 + 0.46724430E+00 0.49363633E+00 0.52058716E+00 0.54801909E+00 0.57583425E+00 + 0.60391335E+00 0.63211482E+00 0.66027612E+00 0.68821695E+00 0.71574141E+00 + 0.74264046E+00 0.76869986E+00 0.79371331E+00 0.81749537E+00 0.83988979E+00 + 0.86077304E+00 0.88005478E+00 0.89767652E+00 0.91360910E+00 0.92785031E+00 + 0.94042466E+00 0.95138433E+00 0.96080881E+00 0.96880190E+00 0.97548610E+00 + 0.98099629E+00 0.98547397E+00 0.98906138E+00 0.99189518E+00 0.99410117E+00 + 0.99579123E+00 0.99706254E+00 0.99799838E+00 0.99866986E+00 0.99913772E+00 + 0.99945351E+00 0.99965999E+00 0.99979118E+00 0.99987269E+00 0.99992263E+00 + 0.99995310E+00 0.99997173E+00 0.99998316E+00 0.99999016E+00 0.99999441E+00 + 0.99999694E+00 0.99999839E+00 0.99999919E+00 0.99999961E+00 0.99999982E+00 + 0.99999992E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.72654525E-03 0.21796357E-02 0.43592715E-02 0.72654525E-02 + 0.10898179E-01 0.15257450E-01 0.20343267E-01 0.26155629E-01 0.32694536E-01 + 0.39959989E-01 0.47951986E-01 0.56670529E-01 0.66115618E-01 0.76287251E-01 + 0.87185430E-01 0.98810154E-01 0.11116142E+00 0.12423924E+00 0.13804360E+00 + 0.15257450E+00 0.16783195E+00 0.18381594E+00 0.20052644E+00 0.21796340E+00 + 0.23612675E+00 0.25501651E+00 0.27463270E+00 0.29497516E+00 0.31604324E+00 + 0.33783533E+00 0.36034826E+00 0.38357675E+00 0.40751274E+00 0.43214344E+00 + 0.45744793E+00 0.48339325E+00 0.50993071E+00 0.53699193E+00 0.56448448E+00 + 0.59228941E+00 0.62026316E+00 0.64824435E+00 0.67606230E+00 0.70354313E+00 + 0.73051224E+00 0.75679480E+00 0.78221389E+00 0.80658789E+00 0.82973225E+00 + 0.85146999E+00 0.87164925E+00 0.89015972E+00 0.90693967E+00 0.92197223E+00 + 0.93527798E+00 0.94691029E+00 0.95695202E+00 0.96551014E+00 0.97270828E+00 + 0.97868034E+00 0.98356615E+00 0.98750751E+00 0.99064309E+00 0.99310284E+00 + 0.99500395E+00 0.99644936E+00 0.99752815E+00 0.99831677E+00 0.99888026E+00 + 0.99927312E+00 0.99954006E+00 0.99971665E+00 0.99983029E+00 0.99990133E+00 + 0.99994442E+00 0.99996972E+00 0.99998408E+00 0.99999193E+00 0.99999607E+00 + 0.99999816E+00 0.99999917E+00 0.99999965E+00 0.99999985E+00 0.99999994E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.72156017E-03 0.21646805E-02 0.43293610E-02 0.72156017E-02 + 0.10823403E-01 0.15152764E-01 0.20203685E-01 0.25976166E-01 0.32470208E-01 + 0.39685809E-01 0.47622971E-01 0.56281693E-01 0.65661976E-01 0.75763818E-01 + 0.86587221E-01 0.98132183E-01 0.11039871E+00 0.12338679E+00 0.13709643E+00 + 0.15152764E+00 0.16668040E+00 0.18255472E+00 0.19915060E+00 0.21646801E+00 + 0.23450688E+00 0.25326707E+00 0.27274831E+00 0.29295008E+00 0.31387112E+00 + 0.33550865E+00 0.35785786E+00 0.38091190E+00 0.40466171E+00 0.42909431E+00 + 0.45418913E+00 0.47991373E+00 0.50622125E+00 0.53305043E+00 0.56032594E+00 + 0.58795535E+00 0.61582292E+00 0.64378656E+00 0.67168199E+00 0.69932911E+00 + 0.72653497E+00 0.75309434E+00 0.77879218E+00 0.80341208E+00 0.82675055E+00 + 0.84863238E+00 0.86892155E+00 0.88752624E+00 0.90439920E+00 0.91953455E+00 + 0.93296158E+00 0.94473653E+00 0.95493605E+00 0.96365502E+00 0.97100677E+00 + 0.97712168E+00 0.98214213E+00 0.98621487E+00 0.98948309E+00 0.99207951E+00 + 0.99412139E+00 0.99570858E+00 0.99692468E+00 0.99783989E+00 0.99851405E+00 + 0.99899891E+00 0.99933902E+00 0.99957187E+00 0.99972777E+00 0.99983008E+00 + 0.99989600E+00 0.99993772E+00 0.99996360E+00 0.99997931E+00 0.99998860E+00 + 0.99999393E+00 0.99999688E+00 0.99999846E+00 0.99999927E+00 0.99999967E+00 + 0.99999986E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.71028826E-03 0.21308648E-02 0.42617295E-02 0.71028826E-02 + 0.10654324E-01 0.14916053E-01 0.19888071E-01 0.25570377E-01 0.31962972E-01 + 0.39065854E-01 0.46879025E-01 0.55402484E-01 0.64636231E-01 0.74580267E-01 + 0.85234591E-01 0.96599203E-01 0.10867410E+00 0.12145929E+00 0.13495477E+00 + 0.14916053E+00 0.16407659E+00 0.17970293E+00 0.19603956E+00 0.21308647E+00 + 0.23084366E+00 0.24931109E+00 0.26848862E+00 0.28837594E+00 0.30897239E+00 + 0.33027655E+00 0.35228585E+00 0.37499599E+00 0.39840029E+00 0.42248847E+00 + 0.44724471E+00 0.47264500E+00 0.49865426E+00 0.52522399E+00 0.55228996E+00 + 0.57976872E+00 0.60755384E+00 0.63551393E+00 0.66349255E+00 0.69130777E+00 + 0.71875178E+00 0.74559467E+00 0.77159639E+00 0.79652555E+00 0.82017718E+00 + 0.84238265E+00 0.86301184E+00 0.88197323E+00 0.89921557E+00 0.91472885E+00 + 0.92854063E+00 0.94070836E+00 0.95131154E+00 0.96044678E+00 0.96822482E+00 + 0.97476732E+00 0.98020203E+00 0.98465788E+00 0.98826157E+00 0.99113544E+00 + 0.99339526E+00 0.99514743E+00 0.99648648E+00 0.99749416E+00 0.99824001E+00 + 0.99878249E+00 0.99917017E+00 0.99944262E+00 0.99963119E+00 0.99975992E+00 + 0.99984663E+00 0.99990417E+00 0.99994166E+00 0.99996553E+00 0.99998031E+00 + 0.99998915E+00 0.99999425E+00 0.99999707E+00 0.99999857E+00 0.99999933E+00 + 0.99999970E+00 0.99999987E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.69504188E-03 0.20851257E-02 0.41702513E-02 0.69504188E-02 + 0.10425628E-01 0.14595880E-01 0.19461173E-01 0.25021508E-01 0.31276885E-01 + 0.38227304E-01 0.45872764E-01 0.54213267E-01 0.63248812E-01 0.72979398E-01 + 0.83405026E-01 0.94525696E-01 0.10634141E+00 0.11885216E+00 0.13205796E+00 + 0.14595880E+00 0.16055468E+00 0.17584560E+00 0.19183156E+00 0.20851256E+00 + 0.22588860E+00 0.24395967E+00 0.26272570E+00 0.28218653E+00 0.30234177E+00 + 0.32319067E+00 0.34473185E+00 0.36696279E+00 0.38987877E+00 0.41347142E+00 + 0.43772695E+00 0.46262482E+00 0.48813704E+00 0.51422660E+00 0.54084356E+00 + 0.56791948E+00 0.59536274E+00 0.62305527E+00 0.65084998E+00 0.67857019E+00 + 0.70601413E+00 0.73296514E+00 0.75920483E+00 0.78452409E+00 0.80872917E+00 + 0.83164482E+00 0.85311922E+00 0.87303104E+00 0.89129323E+00 0.90785199E+00 + 0.92268448E+00 0.93579980E+00 0.94724279E+00 0.95709632E+00 0.96547613E+00 + 0.97251870E+00 0.97836765E+00 0.98316516E+00 0.98704859E+00 0.99014941E+00 + 0.99259158E+00 0.99448930E+00 0.99594494E+00 0.99704785E+00 0.99787393E+00 + 0.99848588E+00 0.99893421E+00 0.99925894E+00 0.99949144E+00 0.99965603E+00 + 0.99977120E+00 0.99985079E+00 0.99990494E+00 0.99994106E+00 0.99996455E+00 + 0.99997939E+00 0.99998844E+00 0.99999375E+00 0.99999676E+00 0.99999838E+00 + 0.99999923E+00 0.99999965E+00 0.99999984E+00 0.99999993E+00 0.99999997E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.68512212E-03 0.20553664E-02 0.41107327E-02 0.68512212E-02 + 0.10276832E-01 0.14387565E-01 0.19183419E-01 0.24664396E-01 0.30830495E-01 + 0.37681717E-01 0.45218060E-01 0.53439525E-01 0.62346113E-01 0.71937823E-01 + 0.82214654E-01 0.93176608E-01 0.10482368E+00 0.11715588E+00 0.13017320E+00 + 0.14387565E+00 0.15826321E+00 0.17333590E+00 0.18909371E+00 0.20553664E+00 + 0.22266469E+00 0.24047786E+00 0.25897615E+00 0.27815953E+00 0.29802790E+00 + 0.31858101E+00 0.33981827E+00 0.36173833E+00 0.38433825E+00 0.40761234E+00 + 0.43155105E+00 0.45613972E+00 0.48135595E+00 0.50716536E+00 0.53351755E+00 + 0.56034384E+00 0.58755732E+00 0.61505256E+00 0.64270230E+00 0.67035243E+00 + 0.69782032E+00 0.72489926E+00 0.75136717E+00 0.77699783E+00 0.80157343E+00 + 0.82489731E+00 0.84680543E+00 0.86717250E+00 0.88591044E+00 0.90296375E+00 + 0.91830734E+00 0.93194659E+00 0.94391688E+00 0.95428189E+00 0.96313197E+00 + 0.97058235E+00 0.97676897E+00 0.98184027E+00 0.98594704E+00 0.98923389E+00 + 0.99183388E+00 0.99386599E+00 0.99543457E+00 0.99663020E+00 0.99753103E+00 + 0.99820364E+00 0.99870321E+00 0.99907350E+00 0.99934758E+00 0.99954949E+00 + 0.99969654E+00 0.99980154E+00 0.99987447E+00 0.99992342E+00 0.99995504E+00 + 0.99997463E+00 0.99998625E+00 0.99999285E+00 0.99999643E+00 0.99999830E+00 + 0.99999922E+00 0.99999966E+00 0.99999986E+00 0.99999994E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.67652678E-03 0.20295803E-02 0.40591607E-02 0.67652678E-02 + 0.10147902E-01 0.14207062E-01 0.18942750E-01 0.24354964E-01 0.30443705E-01 + 0.37208973E-01 0.44650767E-01 0.52769089E-01 0.61563937E-01 0.71035312E-01 + 0.81183213E-01 0.92007642E-01 0.10350860E+00 0.11568608E+00 0.12854009E+00 + 0.14207062E+00 0.15627769E+00 0.17116128E+00 0.18672139E+00 0.20295803E+00 + 0.21987120E+00 0.23746089E+00 0.25572701E+00 0.27466927E+00 0.29428702E+00 + 0.31457918E+00 0.33554437E+00 0.35718064E+00 0.37948482E+00 0.40245161E+00 + 0.42607246E+00 0.45033417E+00 0.47521680E+00 0.50069106E+00 0.52671562E+00 + 0.55323439E+00 0.58017330E+00 0.60743774E+00 0.63491184E+00 0.66245985E+00 + 0.68992631E+00 0.71713298E+00 0.74387720E+00 0.76993853E+00 0.79509204E+00 + 0.81912220E+00 0.84183271E+00 0.86305182E+00 0.88263597E+00 0.90047583E+00 + 0.91650485E+00 0.93070667E+00 0.94311779E+00 0.95382282E+00 0.96294171E+00 + 0.97061347E+00 0.97698328E+00 0.98219667E+00 0.98639822E+00 0.98973081E+00 + 0.99233321E+00 0.99433596E+00 0.99585698E+00 0.99699857E+00 0.99784651E+00 + 0.99847079E+00 0.99892709E+00 0.99925846E+00 0.99949724E+00 0.99966722E+00 + 0.99978591E+00 0.99986661E+00 0.99991969E+00 0.99995333E+00 0.99997383E+00 + 0.99998584E+00 0.99999261E+00 0.99999628E+00 0.99999819E+00 0.99999916E+00 + 0.99999962E+00 0.99999983E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.65720006E-03 0.19716002E-02 0.39432003E-02 0.65720006E-02 + 0.98580008E-02 0.13801201E-01 0.18401602E-01 0.23659202E-01 0.29574003E-01 + 0.36146003E-01 0.43375204E-01 0.51261604E-01 0.59805205E-01 0.69006006E-01 + 0.78864007E-01 0.89379208E-01 0.10055161E+00 0.11238121E+00 0.12486801E+00 + 0.13801201E+00 0.15181321E+00 0.16627161E+00 0.18138722E+00 0.19716002E+00 + 0.21359002E+00 0.23067722E+00 0.24842162E+00 0.26682322E+00 0.28588202E+00 + 0.30559802E+00 0.32597114E+00 0.34700105E+00 0.36868651E+00 0.39102444E+00 + 0.41400878E+00 0.43762955E+00 0.46187141E+00 0.48671146E+00 0.51211666E+00 + 0.53804021E+00 0.56441691E+00 0.59115961E+00 0.61815808E+00 0.64527955E+00 + 0.67237167E+00 0.69926849E+00 0.72579615E+00 0.75177244E+00 0.77700283E+00 + 0.80128277E+00 0.82441212E+00 0.84621418E+00 0.86654704E+00 0.88530503E+00 + 0.90241641E+00 0.91784170E+00 0.93157405E+00 0.94364033E+00 0.95410038E+00 + 0.96304327E+00 0.97058164E+00 0.97684557E+00 0.98197637E+00 0.98612062E+00 + 0.98942425E+00 0.99202655E+00 0.99405433E+00 0.99561788E+00 0.99681002E+00 + 0.99770777E+00 0.99837489E+00 0.99886397E+00 0.99921777E+00 0.99947030E+00 + 0.99964801E+00 0.99977105E+00 0.99985463E+00 0.99991013E+00 0.99994602E+00 + 0.99996856E+00 0.99998228E+00 0.99999034E+00 0.99999491E+00 0.99999741E+00 + 0.99999873E+00 0.99999940E+00 0.99999973E+00 0.99999988E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.64753858E-03 0.19426157E-02 0.38852315E-02 0.64753858E-02 + 0.97130787E-02 0.13598310E-01 0.18131080E-01 0.23311389E-01 0.29139236E-01 + 0.35614622E-01 0.42737546E-01 0.50508009E-01 0.58926011E-01 0.67991551E-01 + 0.77704630E-01 0.88065247E-01 0.99073403E-01 0.11072910E+00 0.12303233E+00 + 0.13598310E+00 0.14958141E+00 0.16382726E+00 0.17872065E+00 0.19426157E+00 + 0.21045004E+00 0.22728603E+00 0.24476952E+00 0.26290043E+00 0.28167858E+00 + 0.30110364E+00 0.32117503E+00 0.34189163E+00 0.36325131E+00 0.38525046E+00 + 0.40788341E+00 0.43114189E+00 0.45501423E+00 0.47948411E+00 0.50452790E+00 + 0.53010957E+00 0.55617429E+00 0.58264354E+00 0.60941445E+00 0.63636293E+00 + 0.66334706E+00 0.69020828E+00 0.71677194E+00 0.74285124E+00 0.76825540E+00 + 0.79279681E+00 0.81629172E+00 0.83855841E+00 0.85942221E+00 0.87873124E+00 + 0.89637469E+00 0.91229382E+00 0.92648306E+00 0.93898376E+00 0.94987446E+00 + 0.95925928E+00 0.96725662E+00 0.97399110E+00 0.97958981E+00 0.98418061E+00 + 0.98789042E+00 0.99084287E+00 0.99315603E+00 0.99494034E+00 0.99629682E+00 + 0.99731530E+00 0.99807276E+00 0.99863227E+00 0.99904314E+00 0.99934254E+00 + 0.99955806E+00 0.99971042E+00 0.99981558E+00 0.99988610E+00 0.99993190E+00 + 0.99996062E+00 0.99997800E+00 0.99998813E+00 0.99999382E+00 0.99999690E+00 + 0.99999850E+00 0.99999930E+00 0.99999969E+00 0.99999986E+00 0.99999994E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.63507323E-03 0.19052197E-02 0.38104394E-02 0.63507323E-02 + 0.95260985E-02 0.13336538E-01 0.17782050E-01 0.22862636E-01 0.28578295E-01 + 0.34929028E-01 0.41914833E-01 0.49535712E-01 0.57791664E-01 0.66682689E-01 + 0.76208788E-01 0.86369959E-01 0.97166204E-01 0.10859752E+00 0.12066391E+00 + 0.13336538E+00 0.14670192E+00 0.16067353E+00 0.17528021E+00 0.19052197E+00 + 0.20639880E+00 0.22291070E+00 0.24005768E+00 0.25783973E+00 0.27625685E+00 + 0.29530903E+00 0.31499625E+00 0.33531840E+00 0.35627501E+00 0.37786474E+00 + 0.40008465E+00 0.42292949E+00 0.44639043E+00 0.47045329E+00 0.49509639E+00 + 0.52028688E+00 0.54597576E+00 0.57209344E+00 0.59854757E+00 0.62522444E+00 + 0.65199153E+00 0.67869905E+00 0.70518249E+00 0.73126706E+00 0.75676802E+00 + 0.78148766E+00 0.80522143E+00 0.82777819E+00 0.84900174E+00 0.86877939E+00 + 0.88703684E+00 0.90372801E+00 0.91882783E+00 0.93233124E+00 0.94425585E+00 + 0.95464492E+00 0.96356871E+00 0.97112278E+00 0.97742279E+00 0.98259728E+00 + 0.98678084E+00 0.99010875E+00 0.99271258E+00 0.99471614E+00 0.99623208E+00 + 0.99735954E+00 0.99818333E+00 0.99877419E+00 0.99918977E+00 0.99947608E+00 + 0.99966899E+00 0.99979594E+00 0.99987740E+00 0.99992830E+00 0.99995922E+00 + 0.99997747E+00 0.99998792E+00 0.99999372E+00 0.99999684E+00 0.99999846E+00 + 0.99999927E+00 0.99999967E+00 0.99999985E+00 0.99999994E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.63261934E-03 0.18978580E-02 0.37957161E-02 0.63261934E-02 + 0.94892902E-02 0.13285006E-01 0.17713342E-01 0.22774296E-01 0.28467870E-01 + 0.34794064E-01 0.41752877E-01 0.49344309E-01 0.57568360E-01 0.66425031E-01 + 0.75914321E-01 0.86036231E-01 0.96790760E-01 0.10817791E+00 0.12019768E+00 + 0.13285006E+00 0.14613507E+00 0.16005269E+00 0.17460294E+00 0.18978580E+00 + 0.20560129E+00 0.22204939E+00 0.23913011E+00 0.25684345E+00 0.27518941E+00 + 0.29416799E+00 0.31377917E+00 0.33402284E+00 0.35489860E+00 0.37640510E+00 + 0.39853916E+00 0.42129516E+00 0.44466481E+00 0.46863619E+00 0.49319145E+00 + 0.51830402E+00 0.54393569E+00 0.57003258E+00 0.59651950E+00 0.62329566E+00 + 0.65023471E+00 0.67718711E+00 0.70398049E+00 0.73041903E+00 0.75628902E+00 + 0.78137248E+00 0.80546187E+00 0.82837047E+00 0.84993776E+00 0.87003084E+00 + 0.88854392E+00 0.90539912E+00 0.92055032E+00 0.93398880E+00 0.94574683E+00 + 0.95589495E+00 0.96453377E+00 0.97178535E+00 0.97778700E+00 0.98268589E+00 + 0.98663243E+00 0.98977304E+00 0.99224387E+00 0.99416680E+00 0.99564783E+00 + 0.99677737E+00 0.99763137E+00 0.99827244E+00 0.99875084E+00 0.99910565E+00 + 0.99936673E+00 0.99955682E+00 0.99969354E+00 0.99979067E+00 0.99985886E+00 + 0.99990622E+00 0.99993875E+00 0.99996078E+00 0.99997546E+00 0.99998503E+00 + 0.99999112E+00 0.99999489E+00 0.99999715E+00 0.99999846E+00 0.99999920E+00 + 0.99999960E+00 0.99999980E+00 0.99999991E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.62822896E-03 0.18846869E-02 0.37693737E-02 0.62822896E-02 + 0.94234343E-02 0.13192808E-01 0.17590411E-01 0.22616242E-01 0.28270303E-01 + 0.34552593E-01 0.41463111E-01 0.49001859E-01 0.57168835E-01 0.65964040E-01 + 0.75387475E-01 0.85439138E-01 0.96119030E-01 0.10742715E+00 0.11936350E+00 + 0.13192808E+00 0.14512089E+00 0.15894193E+00 0.17339119E+00 0.18846869E+00 + 0.20417441E+00 0.22050836E+00 0.23747055E+00 0.25506096E+00 0.27327960E+00 + 0.29212646E+00 0.31160155E+00 0.33170479E+00 0.35243579E+00 0.37379292E+00 + 0.39577216E+00 0.41836698E+00 0.44156900E+00 0.46536758E+00 0.48974633E+00 + 0.51467804E+00 0.54012022E+00 0.56601258E+00 0.59227584E+00 0.61881126E+00 + 0.64550085E+00 0.67220874E+00 0.69878148E+00 0.72504560E+00 0.75080652E+00 + 0.77585597E+00 0.79998781E+00 0.82301258E+00 0.84476548E+00 0.86510966E+00 + 0.88393761E+00 0.90117069E+00 0.91675795E+00 0.93067670E+00 0.94293536E+00 + 0.95357607E+00 0.96267455E+00 0.97033681E+00 0.97669337E+00 0.98189164E+00 + 0.98608663E+00 0.98943143E+00 0.99206902E+00 0.99412694E+00 0.99571499E+00 + 0.99692543E+00 0.99783474E+00 0.99850609E+00 0.99899181E+00 0.99933526E+00 + 0.99957214E+00 0.99973130E+00 0.99983539E+00 0.99990166E+00 0.99994271E+00 + 0.99996747E+00 0.99998199E+00 0.99999029E+00 0.99999490E+00 0.99999739E+00 + 0.99999871E+00 0.99999937E+00 0.99999971E+00 0.99999987E+00 0.99999994E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.61796352E-03 0.18538906E-02 0.37077811E-02 0.61796352E-02 + 0.92694529E-02 0.12977234E-01 0.17302979E-01 0.22246687E-01 0.27808359E-01 + 0.33987994E-01 0.40785593E-01 0.48201155E-01 0.56234681E-01 0.64886170E-01 + 0.74155623E-01 0.84043039E-01 0.94548419E-01 0.10567176E+00 0.11741307E+00 + 0.12977234E+00 0.14274957E+00 0.15634477E+00 0.17055793E+00 0.18538906E+00 + 0.20083815E+00 0.21690520E+00 0.23359021E+00 0.25089314E+00 0.26881380E+00 + 0.28735169E+00 0.30650606E+00 0.32627608E+00 0.34666090E+00 0.36765974E+00 + 0.38927167E+00 0.41149477E+00 0.43432479E+00 0.45775350E+00 0.48176674E+00 + 0.50634129E+00 0.53144076E+00 0.55701235E+00 0.58298585E+00 0.60927323E+00 + 0.63576647E+00 0.66233531E+00 0.68882734E+00 0.71507077E+00 0.74087886E+00 + 0.76605579E+00 0.79040422E+00 0.81373395E+00 0.83587007E+00 0.85665886E+00 + 0.87597168E+00 0.89370923E+00 0.90980809E+00 0.92424649E+00 0.93704361E+00 + 0.94825268E+00 0.95795310E+00 0.96624470E+00 0.97324256E+00 0.97907071E+00 + 0.98385605E+00 0.98772444E+00 0.99079909E+00 0.99319951E+00 0.99503958E+00 + 0.99642485E+00 0.99745003E+00 0.99819694E+00 0.99873361E+00 0.99911470E+00 + 0.99938296E+00 0.99957099E+00 0.99970288E+00 0.99979577E+00 0.99986138E+00 + 0.99990759E+00 0.99993977E+00 0.99996175E+00 0.99997640E+00 0.99998586E+00 + 0.99999179E+00 0.99999538E+00 0.99999748E+00 0.99999867E+00 0.99999932E+00 + 0.99999966E+00 0.99999984E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.61408507E-03 0.18422552E-02 0.36845104E-02 0.61408507E-02 + 0.92112760E-02 0.12895786E-01 0.17194382E-01 0.22107062E-01 0.27633828E-01 + 0.33774679E-01 0.40529614E-01 0.47898635E-01 0.55881741E-01 0.64478932E-01 + 0.73690208E-01 0.83515569E-01 0.93955015E-01 0.10500855E+00 0.11667616E+00 + 0.12895786E+00 0.14185365E+00 0.15536352E+00 0.16948748E+00 0.18422552E+00 + 0.19957765E+00 0.21554386E+00 0.23212415E+00 0.24931850E+00 0.26712680E+00 + 0.28554874E+00 0.30458385E+00 0.32423161E+00 0.34449163E+00 0.36536355E+00 + 0.38684683E+00 0.40894044E+00 0.43164175E+00 0.45494426E+00 0.47883461E+00 + 0.50329029E+00 0.52827787E+00 0.55375056E+00 0.57964481E+00 0.60587670E+00 + 0.63233981E+00 0.65890719E+00 0.68543826E+00 0.71178442E+00 0.73778611E+00 + 0.76326499E+00 0.78802187E+00 0.81184471E+00 0.83452196E+00 0.85585542E+00 + 0.87567100E+00 0.89382998E+00 0.91024212E+00 0.92487529E+00 0.93775509E+00 + 0.94895475E+00 0.95857963E+00 0.96675238E+00 0.97360361E+00 0.97926906E+00 + 0.98388892E+00 0.98760512E+00 0.99055584E+00 0.99286979E+00 0.99466246E+00 + 0.99603471E+00 0.99707297E+00 0.99784985E+00 0.99842522E+00 0.99884763E+00 + 0.99915580E+00 0.99938013E+00 0.99954395E+00 0.99966460E+00 0.99975445E+00 + 0.99982201E+00 0.99987297E+00 0.99991120E+00 0.99993945E+00 0.99995985E+00 + 0.99997417E+00 0.99998389E+00 0.99999028E+00 0.99999432E+00 0.99999679E+00 + 0.99999824E+00 0.99999907E+00 0.99999952E+00 0.99999977E+00 0.99999989E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.61254247E-03 0.18376274E-02 0.36752548E-02 0.61254247E-02 + 0.91881370E-02 0.12863392E-01 0.17151189E-01 0.22051529E-01 0.27564411E-01 + 0.33689836E-01 0.40427803E-01 0.47778313E-01 0.55741365E-01 0.64316959E-01 + 0.73505096E-01 0.83305776E-01 0.93718998E-01 0.10474476E+00 0.11638307E+00 + 0.12863392E+00 0.14149731E+00 0.15497324E+00 0.16906172E+00 0.18376274E+00 + 0.19907630E+00 0.21500241E+00 0.23154105E+00 0.24869224E+00 0.26645597E+00 + 0.28483224E+00 0.30382103E+00 0.32342228E+00 0.34363583E+00 0.36446125E+00 + 0.38589757E+00 0.40794262E+00 0.43059193E+00 0.45383684E+00 0.47766196E+00 + 0.50204249E+00 0.52694230E+00 0.55231250E+00 0.57809007E+00 0.60419630E+00 + 0.63053429E+00 0.65698509E+00 0.68340452E+00 0.70962453E+00 0.73546048E+00 + 0.76072094E+00 0.78521666E+00 0.80876626E+00 0.83119808E+00 0.85235273E+00 + 0.87209015E+00 0.89029815E+00 0.90689848E+00 0.92184964E+00 0.93514608E+00 + 0.94681455E+00 0.95691098E+00 0.96551900E+00 0.97274761E+00 0.97872635E+00 + 0.98359812E+00 0.98751118E+00 0.99061113E+00 0.99303406E+00 0.99490228E+00 + 0.99632261E+00 0.99738656E+00 0.99817122E+00 0.99874062E+00 0.99914698E+00 + 0.99943205E+00 0.99962854E+00 0.99976155E+00 0.99984988E+00 0.99990740E+00 + 0.99994409E+00 0.99996698E+00 0.99998094E+00 0.99998926E+00 0.99999410E+00 + 0.99999684E+00 0.99999835E+00 0.99999916E+00 0.99999959E+00 0.99999980E+00 + 0.99999991E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.60174737E-03 0.18052421E-02 0.36104842E-02 0.60174737E-02 + 0.90262106E-02 0.12636695E-01 0.16848926E-01 0.21662905E-01 0.27078632E-01 + 0.33096106E-01 0.39715327E-01 0.46936295E-01 0.54759011E-01 0.63183474E-01 + 0.72209685E-01 0.81837643E-01 0.92067348E-01 0.10289880E+00 0.11433200E+00 + 0.12636695E+00 0.13900364E+00 0.15224209E+00 0.16608227E+00 0.18052421E+00 + 0.19556790E+00 0.21121333E+00 0.22746051E+00 0.24430943E+00 0.26176011E+00 + 0.27981252E+00 0.29846666E+00 0.31772237E+00 0.33757923E+00 0.35803635E+00 + 0.37909235E+00 0.40074516E+00 0.42299105E+00 0.44582314E+00 0.46923006E+00 + 0.49319512E+00 0.51769503E+00 0.54269597E+00 0.56814663E+00 0.59397189E+00 + 0.62007151E+00 0.64632325E+00 0.67258746E+00 0.69871179E+00 0.72453532E+00 + 0.74989094E+00 0.77460602E+00 0.79850379E+00 0.82140687E+00 0.84314233E+00 + 0.86354778E+00 0.88247882E+00 0.89981839E+00 0.91548609E+00 0.92944553E+00 + 0.94170857E+00 0.95233525E+00 0.96142733E+00 0.96911592E+00 0.97554660E+00 + 0.98086654E+00 0.98521660E+00 0.98872818E+00 0.99152294E+00 0.99371326E+00 + 0.99540236E+00 0.99668377E+00 0.99764039E+00 0.99834353E+00 0.99885275E+00 + 0.99921632E+00 0.99947234E+00 0.99965015E+00 0.99977188E+00 0.99985393E+00 + 0.99990830E+00 0.99994364E+00 0.99996614E+00 0.99998013E+00 0.99998863E+00 + 0.99999366E+00 0.99999656E+00 0.99999818E+00 0.99999907E+00 0.99999954E+00 + 0.99999978E+00 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.60049333E-03 0.18014800E-02 0.36029600E-02 0.60049333E-02 + 0.90073999E-02 0.12610360E-01 0.16813813E-01 0.21617760E-01 0.27022200E-01 + 0.33027133E-01 0.39632559E-01 0.46838479E-01 0.54644893E-01 0.63051799E-01 + 0.72059199E-01 0.81667092E-01 0.91875479E-01 0.10268436E+00 0.11409373E+00 + 0.12610360E+00 0.13871396E+00 0.15192481E+00 0.16573616E+00 0.18014800E+00 + 0.19516033E+00 0.21077316E+00 0.22698648E+00 0.24380029E+00 0.26121460E+00 + 0.27922940E+00 0.29784469E+00 0.31706047E+00 0.33687671E+00 0.35729330E+00 + 0.37830991E+00 0.39992560E+00 0.42213807E+00 0.44494264E+00 0.46833110E+00 + 0.49229041E+00 0.51680079E+00 0.54183310E+00 0.56734483E+00 0.59327389E+00 + 0.61953126E+00 0.64599751E+00 0.67252678E+00 0.69895508E+00 0.72510673E+00 + 0.75079476E+00 0.77581828E+00 0.79996530E+00 0.82302562E+00 0.84480752E+00 + 0.86514961E+00 0.88392713E+00 0.90105685E+00 0.91650078E+00 0.93026424E+00 + 0.94238720E+00 0.95293523E+00 0.96199538E+00 0.96967529E+00 0.97609968E+00 + 0.98140298E+00 0.98572150E+00 0.98918825E+00 0.99193016E+00 0.99406594E+00 + 0.99570402E+00 0.99694069E+00 0.99785917E+00 0.99852959E+00 0.99900994E+00 + 0.99934724E+00 0.99957904E+00 0.99973471E+00 0.99983675E+00 0.99990198E+00 + 0.99994260E+00 0.99996724E+00 0.99998178E+00 0.99999013E+00 0.99999480E+00 + 0.99999733E+00 0.99999867E+00 0.99999936E+00 0.99999970E+00 0.99999986E+00 + 0.99999994E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.58643572E-03 0.17593072E-02 0.35186143E-02 0.58643572E-02 + 0.87965358E-02 0.12315150E-01 0.16420200E-01 0.21111686E-01 0.26389607E-01 + 0.32253965E-01 0.38704757E-01 0.45741986E-01 0.53365650E-01 0.61575751E-01 + 0.70372286E-01 0.79755258E-01 0.89724665E-01 0.10028051E+00 0.11142279E+00 + 0.12315150E+00 0.13546665E+00 0.14836824E+00 0.16185626E+00 0.17593072E+00 + 0.19059161E+00 0.20583894E+00 0.22167270E+00 0.23809290E+00 0.25509954E+00 + 0.27269261E+00 0.29087212E+00 0.30963806E+00 0.32899044E+00 0.34892924E+00 + 0.36945442E+00 0.39056578E+00 0.41226258E+00 0.43454276E+00 0.45740158E+00 + 0.48082934E+00 0.50480777E+00 0.52930593E+00 0.55427696E+00 0.57965630E+00 + 0.60536200E+00 0.63129616E+00 0.65734512E+00 0.68337802E+00 0.70924569E+00 + 0.73478017E+00 0.75979632E+00 0.78409826E+00 0.80749010E+00 0.82978602E+00 + 0.85081865E+00 0.87044825E+00 0.88857073E+00 0.90511887E+00 0.92005693E+00 + 0.93337588E+00 0.94509427E+00 0.95526187E+00 0.96396034E+00 0.97129862E+00 + 0.97740438E+00 0.98241470E+00 0.98646889E+00 0.98970392E+00 0.99225100E+00 + 0.99423209E+00 0.99575623E+00 0.99691698E+00 0.99779182E+00 0.99844344E+00 + 0.99892208E+00 0.99926790E+00 0.99951307E+00 0.99968325E+00 0.99979869E+00 + 0.99987510E+00 0.99992441E+00 0.99995540E+00 0.99997436E+00 0.99998564E+00 + 0.99999217E+00 0.99999585E+00 0.99999786E+00 0.99999893E+00 0.99999948E+00 + 0.99999975E+00 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + NUCLEUS 56 26 16 8 + 27.75142 0.15000 4.22785 2.71000 + 0.00000000E+00 0.69190268E-03 0.20757080E-02 0.41514161E-02 0.69190268E-02 + 0.10378540E-01 0.14529956E-01 0.19373275E-01 0.24908496E-01 0.31135621E-01 + 0.38054647E-01 0.45665577E-01 0.53968409E-01 0.62963144E-01 0.72649781E-01 + 0.83028322E-01 0.94098764E-01 0.10586111E+00 0.11831536E+00 0.13146151E+00 + 0.14529956E+00 0.15982952E+00 0.17505138E+00 0.19096514E+00 0.20757080E+00 + 0.22486836E+00 0.24285781E+00 0.26153908E+00 0.28091199E+00 0.30097601E+00 + 0.32172995E+00 0.34317170E+00 0.36529783E+00 0.38810288E+00 0.41157852E+00 + 0.43571258E+00 0.46048701E+00 0.48587473E+00 0.51183708E+00 0.53832209E+00 + 0.56526125E+00 0.59256424E+00 0.62011468E+00 0.64776940E+00 0.67535979E+00 + 0.70269547E+00 0.72957189E+00 0.75578046E+00 0.78111673E+00 0.80538556E+00 + 0.82840523E+00 0.85001229E+00 0.87006752E+00 0.88846415E+00 0.90513626E+00 + 0.92006268E+00 0.93326452E+00 0.94479943E+00 0.95475539E+00 0.96324442E+00 + 0.97039662E+00 0.97635454E+00 0.98126708E+00 0.98528231E+00 0.98854031E+00 + 0.99116737E+00 0.99327271E+00 0.99494769E+00 0.99626716E+00 0.99729240E+00 + 0.99807458E+00 0.99865799E+00 0.99908204E+00 0.99938198E+00 0.99958869E+00 + 0.99972820E+00 0.99982119E+00 0.99988303E+00 0.99992430E+00 0.99995191E+00 + 0.99997028E+00 0.99998226E+00 0.99998983E+00 0.99999442E+00 0.99999708E+00 + 0.99999855E+00 0.99999931E+00 0.99999969E+00 0.99999987E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.68262054E-03 0.20478616E-02 0.40957232E-02 0.68262054E-02 + 0.10239308E-01 0.14335031E-01 0.19113375E-01 0.24574339E-01 0.30717924E-01 + 0.37544130E-01 0.45052956E-01 0.53244402E-01 0.62118469E-01 0.71675157E-01 + 0.81914465E-01 0.92836393E-01 0.10444094E+00 0.11672811E+00 0.12969790E+00 + 0.14335031E+00 0.15768534E+00 0.17270300E+00 0.18840327E+00 0.20478616E+00 + 0.22185166E+00 0.23959975E+00 0.25803036E+00 0.27714339E+00 0.29693864E+00 + 0.31741567E+00 0.33857344E+00 0.36040974E+00 0.38292030E+00 0.40609813E+00 + 0.42993258E+00 0.45440794E+00 0.47950105E+00 0.50517815E+00 0.53139140E+00 + 0.55807501E+00 0.58514150E+00 0.61247975E+00 0.63995590E+00 0.66741610E+00 + 0.69468984E+00 0.72159398E+00 0.74793725E+00 0.77352339E+00 0.79815300E+00 + 0.82162738E+00 0.84375679E+00 0.86437357E+00 0.88334682E+00 0.90059296E+00 + 0.91607810E+00 0.92981508E+00 0.94185852E+00 0.95229873E+00 0.96125304E+00 + 0.96885461E+00 0.97524071E+00 0.98054463E+00 0.98489374E+00 0.98841144E+00 + 0.99121826E+00 0.99342938E+00 0.99515033E+00 0.99647354E+00 0.99747728E+00 + 0.99822678E+00 0.99877628E+00 0.99917115E+00 0.99944910E+00 0.99964086E+00 + 0.99977061E+00 0.99985672E+00 0.99991271E+00 0.99994828E+00 0.99997028E+00 + 0.99998349E+00 0.99999115E+00 0.99999544E+00 0.99999774E+00 0.99999893E+00 + 0.99999951E+00 0.99999979E+00 0.99999991E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.67224124E-03 0.20167237E-02 0.40334474E-02 0.67224124E-02 + 0.10083619E-01 0.14117066E-01 0.18822755E-01 0.24200685E-01 0.30250856E-01 + 0.36973268E-01 0.44367922E-01 0.52434816E-01 0.61173953E-01 0.70585330E-01 + 0.80668948E-01 0.91424808E-01 0.10285291E+00 0.11495325E+00 0.12772583E+00 + 0.14117066E+00 0.15528772E+00 0.17007700E+00 0.18553847E+00 0.20167209E+00 + 0.21847783E+00 0.23595572E+00 0.25410576E+00 0.27292798E+00 0.29242228E+00 + 0.31258832E+00 0.33342534E+00 0.35493163E+00 0.37710378E+00 0.39993564E+00 + 0.42341719E+00 0.44753346E+00 0.47226292E+00 0.49757462E+00 0.52342366E+00 + 0.54974676E+00 0.57646021E+00 0.60346093E+00 0.63062882E+00 0.65782857E+00 + 0.68491065E+00 0.71171140E+00 0.73805311E+00 0.76374549E+00 0.78859006E+00 + 0.81238780E+00 0.83494913E+00 0.85610457E+00 0.87571424E+00 0.89367466E+00 + 0.90992327E+00 0.92444162E+00 0.93725546E+00 0.94843011E+00 0.95806195E+00 + 0.96626801E+00 0.97317604E+00 0.97891727E+00 0.98362351E+00 0.98742641E+00 + 0.99045604E+00 0.99283730E+00 0.99468555E+00 0.99610352E+00 0.99717972E+00 + 0.99798824E+00 0.99858932E+00 0.99903070E+00 0.99934973E+00 0.99957560E+00 + 0.99973143E+00 0.99983566E+00 0.99990299E+00 0.99994485E+00 0.99996985E+00 + 0.99998417E+00 0.99999202E+00 0.99999615E+00 0.99999822E+00 0.99999921E+00 + 0.99999967E+00 0.99999986E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.67255114E-03 0.20176534E-02 0.40353069E-02 0.67255114E-02 + 0.10088267E-01 0.14123574E-01 0.18831432E-01 0.24211841E-01 0.30264801E-01 + 0.36990313E-01 0.44388375E-01 0.52458989E-01 0.61202154E-01 0.70617870E-01 + 0.80706137E-01 0.91466955E-01 0.10290032E+00 0.11500625E+00 0.12778472E+00 + 0.14123574E+00 0.15535931E+00 0.17015544E+00 0.18562411E+00 0.20176534E+00 + 0.21857911E+00 0.23606543E+00 0.25422428E+00 0.27305560E+00 0.29255923E+00 + 0.31273463E+00 0.33358062E+00 0.35509496E+00 0.37727405E+00 0.40011247E+00 + 0.42360255E+00 0.44773377E+00 0.47249107E+00 0.49785127E+00 0.52377799E+00 + 0.55021700E+00 0.57709306E+00 0.60430811E+00 0.63174067E+00 0.65924763E+00 + 0.68666667E+00 0.71381600E+00 0.74049178E+00 0.76646848E+00 0.79150741E+00 + 0.81537299E+00 0.83785331E+00 0.85877947E+00 0.87803774E+00 0.89557134E+00 + 0.91137354E+00 0.92547678E+00 0.93794227E+00 0.94885203E+00 0.95830304E+00 + 0.96640273E+00 0.97326540E+00 0.97900917E+00 0.98375324E+00 0.98761569E+00 + 0.99071175E+00 0.99315218E+00 0.99504147E+00 0.99647605E+00 0.99754302E+00 + 0.99831938E+00 0.99887161E+00 0.99925560E+00 0.99951681E+00 0.99969094E+00 + 0.99980496E+00 0.99987847E+00 0.99992525E+00 0.99995468E+00 0.99997298E+00 + 0.99998420E+00 0.99999097E+00 0.99999497E+00 0.99999728E+00 0.99999858E+00 + 0.99999928E+00 0.99999965E+00 0.99999984E+00 0.99999993E+00 0.99999997E+00 + 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.66288846E-03 0.19886654E-02 0.39773307E-02 0.66288846E-02 + 0.99433269E-02 0.13920658E-01 0.18560877E-01 0.23863984E-01 0.29829981E-01 + 0.36458865E-01 0.43750638E-01 0.51705300E-01 0.60322850E-01 0.69603288E-01 + 0.79546615E-01 0.90152830E-01 0.10142193E+00 0.11335393E+00 0.12594881E+00 + 0.13920658E+00 0.15312723E+00 0.16771078E+00 0.18295721E+00 0.19886654E+00 + 0.21543875E+00 0.23267385E+00 0.25057184E+00 0.26913270E+00 0.28835643E+00 + 0.30824288E+00 0.32879160E+00 0.35000134E+00 0.37186961E+00 0.39439212E+00 + 0.41756210E+00 0.44136940E+00 0.46579880E+00 0.49082698E+00 0.51641766E+00 + 0.54251676E+00 0.56904961E+00 0.59592058E+00 0.62301284E+00 0.65018778E+00 + 0.67728620E+00 0.70413252E+00 0.73054040E+00 0.75631776E+00 0.78127109E+00 + 0.80521055E+00 0.82795702E+00 0.84935051E+00 0.86925786E+00 0.88757823E+00 + 0.90424673E+00 0.91923626E+00 0.93255698E+00 0.94425346E+00 0.95440085E+00 + 0.96309999E+00 0.97047071E+00 0.97664373E+00 0.98175283E+00 0.98592886E+00 + 0.98929598E+00 0.99197010E+00 0.99405876E+00 0.99566147E+00 0.99686932E+00 + 0.99776389E+00 0.99841594E+00 0.99888468E+00 0.99921798E+00 0.99945327E+00 + 0.99961889E+00 0.99973557E+00 0.99981800E+00 0.99987632E+00 0.99991745E+00 + 0.99994615E+00 0.99996583E+00 0.99997898E+00 0.99998750E+00 0.99999283E+00 + 0.99999604E+00 0.99999789E+00 0.99999892E+00 0.99999947E+00 0.99999975E+00 + 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.64883264E-03 0.19464979E-02 0.38929958E-02 0.64883264E-02 + 0.97324896E-02 0.13625485E-01 0.18167314E-01 0.23357975E-01 0.29197469E-01 + 0.35685795E-01 0.42822954E-01 0.50608946E-01 0.59043770E-01 0.68127427E-01 + 0.77859917E-01 0.88241239E-01 0.99271394E-01 0.11095038E+00 0.12327820E+00 + 0.13625485E+00 0.14988034E+00 0.16415466E+00 0.17907781E+00 0.19464979E+00 + 0.21087060E+00 0.22774019E+00 0.24525840E+00 0.26342482E+00 0.28223871E+00 + 0.30169914E+00 0.32180516E+00 0.34255591E+00 0.36395046E+00 0.38598701E+00 + 0.40866167E+00 0.43196673E+00 0.45588901E+00 0.48040805E+00 0.50549394E+00 + 0.53110481E+00 0.55718415E+00 0.58365724E+00 0.61042663E+00 0.63736814E+00 + 0.66433012E+00 0.69113658E+00 0.71759369E+00 0.74349927E+00 0.76865451E+00 + 0.79287437E+00 0.81599384E+00 0.83786985E+00 0.85838122E+00 0.87742826E+00 + 0.89493302E+00 0.91084135E+00 0.92512650E+00 0.93779269E+00 0.94887648E+00 + 0.95844493E+00 0.96659141E+00 0.97343044E+00 0.97909198E+00 0.98371537E+00 + 0.98744271E+00 0.99041227E+00 0.99275279E+00 0.99457936E+00 0.99599154E+00 + 0.99707316E+00 0.99789341E+00 0.99850847E+00 0.99896350E+00 0.99929467E+00 + 0.99953103E+00 0.99969592E+00 0.99980805E+00 0.99988221E+00 0.99992981E+00 + 0.99995943E+00 0.99997728E+00 0.99998768E+00 0.99999354E+00 0.99999672E+00 + 0.99999839E+00 0.99999924E+00 0.99999965E+00 0.99999985E+00 0.99999994E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.64293456E-03 0.19288037E-02 0.38576074E-02 0.64293456E-02 + 0.96440184E-02 0.13501626E-01 0.18002168E-01 0.23145644E-01 0.28932055E-01 + 0.35361401E-01 0.42433681E-01 0.50148896E-01 0.58507045E-01 0.67508129E-01 + 0.77152147E-01 0.87439100E-01 0.98368988E-01 0.10994181E+00 0.12215757E+00 + 0.13501626E+00 0.14851788E+00 0.16266244E+00 0.17744994E+00 0.19288037E+00 + 0.20895373E+00 0.22567003E+00 0.24302924E+00 0.26103136E+00 0.27967630E+00 + 0.29896392E+00 0.31889383E+00 0.33946528E+00 0.36067682E+00 0.38252585E+00 + 0.40500805E+00 0.42811648E+00 0.45184045E+00 0.47616368E+00 0.50106136E+00 + 0.52649659E+00 0.55241680E+00 0.57875088E+00 0.60540668E+00 0.63226920E+00 + 0.65920070E+00 0.68604269E+00 0.71261804E+00 0.73873295E+00 0.76418018E+00 + 0.78874611E+00 0.81222253E+00 0.83442049E+00 0.85518218E+00 0.87438819E+00 + 0.89196060E+00 0.90786336E+00 0.92210087E+00 0.93471445E+00 0.94577647E+00 + 0.95538220E+00 0.96364139E+00 0.97067166E+00 0.97659403E+00 0.98152943E+00 + 0.98559570E+00 0.98890504E+00 0.99156257E+00 0.99366598E+00 0.99530551E+00 + 0.99656377E+00 0.99751490E+00 0.99822376E+00 0.99874522E+00 0.99912426E+00 + 0.99939666E+00 0.99959019E+00 0.99972597E+00 0.99981994E+00 0.99988394E+00 + 0.99992675E+00 0.99995481E+00 0.99997280E+00 0.99998405E+00 0.99999090E+00 + 0.99999495E+00 0.99999728E+00 0.99999858E+00 0.99999928E+00 0.99999965E+00 + 0.99999983E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.63365518E-03 0.19009655E-02 0.38019311E-02 0.63365518E-02 + 0.95048277E-02 0.13306759E-01 0.17742345E-01 0.22811587E-01 0.28514483E-01 + 0.34851035E-01 0.41821242E-01 0.49425104E-01 0.57662622E-01 0.66533794E-01 + 0.76038622E-01 0.86177105E-01 0.96949243E-01 0.10835504E+00 0.12039448E+00 + 0.13306759E+00 0.14637435E+00 0.16031476E+00 0.17488883E+00 0.19009655E+00 + 0.20593793E+00 0.22241297E+00 0.23952165E+00 0.25726395E+00 0.27563977E+00 + 0.29464885E+00 0.31429058E+00 0.33456377E+00 0.35546622E+00 0.37699426E+00 + 0.39914241E+00 0.42190319E+00 0.44526656E+00 0.46921878E+00 0.49374057E+00 + 0.51880424E+00 0.54436979E+00 0.57037992E+00 0.59675518E+00 0.62339129E+00 + 0.65015929E+00 0.67690754E+00 0.70346448E+00 0.72964304E+00 0.75524684E+00 + 0.78007690E+00 0.80393768E+00 0.82664299E+00 0.84802345E+00 0.86793566E+00 + 0.88627067E+00 0.90295961E+00 0.91797466E+00 0.93132638E+00 0.94305883E+00 + 0.95324456E+00 0.96197963E+00 0.96937881E+00 0.97557035E+00 0.98069054E+00 + 0.98487799E+00 0.98826783E+00 0.99098642E+00 0.99314741E+00 0.99484984E+00 + 0.99617807E+00 0.99720307E+00 0.99798423E+00 0.99857111E+00 0.99900499E+00 + 0.99932008E+00 0.99954448E+00 0.99970099E+00 0.99980777E+00 0.99987901E+00 + 0.99992547E+00 0.99995507E+00 0.99997351E+00 0.99998473E+00 0.99999141E+00 + 0.99999528E+00 0.99999747E+00 0.99999868E+00 0.99999933E+00 0.99999967E+00 + 0.99999984E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.62349407E-03 0.18704822E-02 0.37409644E-02 0.62349407E-02 + 0.93524111E-02 0.13093376E-01 0.17457834E-01 0.22445787E-01 0.28057233E-01 + 0.34292174E-01 0.41150609E-01 0.48632538E-01 0.56737961E-01 0.65466878E-01 + 0.74819289E-01 0.84795194E-01 0.95394593E-01 0.10661749E+00 0.11846387E+00 + 0.13093376E+00 0.14402713E+00 0.15774400E+00 0.17208436E+00 0.18704822E+00 + 0.20263556E+00 0.21884635E+00 0.23568042E+00 0.25313743E+00 0.27121691E+00 + 0.28991840E+00 0.30924161E+00 0.32918636E+00 0.34975238E+00 0.37093890E+00 + 0.39274401E+00 0.41516372E+00 0.43819048E+00 0.46181148E+00 0.48600679E+00 + 0.51074751E+00 0.53599384E+00 0.56169262E+00 0.58777387E+00 0.61414613E+00 + 0.64069271E+00 0.66727205E+00 0.69372311E+00 0.71987287E+00 0.74554237E+00 + 0.77054925E+00 0.79470906E+00 0.81783832E+00 0.83976096E+00 0.86031754E+00 + 0.87937514E+00 0.89683577E+00 0.91264143E+00 0.92677498E+00 0.93925709E+00 + 0.95014141E+00 0.95950975E+00 0.96746748E+00 0.97413802E+00 0.97965638E+00 + 0.98416234E+00 0.98779460E+00 0.99068606E+00 0.99296022E+00 0.99472863E+00 + 0.99608932E+00 0.99712617E+00 0.99790917E+00 0.99849540E+00 0.99893048E+00 + 0.99925030E+00 0.99948280E+00 0.99964959E+00 0.99976734E+00 0.99984892E+00 + 0.99990423E+00 0.99994083E+00 0.99996442E+00 0.99997920E+00 0.99998818E+00 + 0.99999349E+00 0.99999652E+00 0.99999819E+00 0.99999909E+00 0.99999956E+00 + 0.99999979E+00 0.99999991E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.60938307E-03 0.18281492E-02 0.36562984E-02 0.60938307E-02 + 0.91407461E-02 0.12797044E-01 0.17062726E-01 0.21937791E-01 0.27422238E-01 + 0.33516069E-01 0.40219283E-01 0.47531879E-01 0.55453859E-01 0.63985222E-01 + 0.73125968E-01 0.82876098E-01 0.93235610E-01 0.10420450E+00 0.11578278E+00 + 0.12797044E+00 0.14076749E+00 0.15417392E+00 0.16818973E+00 0.18281492E+00 + 0.19804950E+00 0.21389346E+00 0.23034679E+00 0.24740949E+00 0.26508149E+00 + 0.28336263E+00 0.30225251E+00 0.32175038E+00 0.34185508E+00 0.36256492E+00 + 0.38387748E+00 0.40578930E+00 0.42829497E+00 0.45138566E+00 0.47504713E+00 + 0.49925786E+00 0.52398722E+00 0.54919280E+00 0.57481704E+00 0.60078409E+00 + 0.62699765E+00 0.65333973E+00 0.67967017E+00 0.70582756E+00 0.73163196E+00 + 0.75688874E+00 0.78139432E+00 0.80494490E+00 0.82734798E+00 0.84843401E+00 + 0.86806508E+00 0.88613992E+00 0.90259630E+00 0.91741187E+00 0.93060320E+00 + 0.94222242E+00 0.95235087E+00 0.96109079E+00 0.96855703E+00 0.97487018E+00 + 0.98015175E+00 0.98452079E+00 0.98809140E+00 0.99097108E+00 0.99325984E+00 + 0.99504997E+00 0.99642600E+00 0.99746441E+00 0.99823318E+00 0.99879125E+00 + 0.99918836E+00 0.99946531E+00 0.99965455E+00 0.99978123E+00 0.99986427E+00 + 0.99991756E+00 0.99995101E+00 0.99997154E+00 0.99998385E+00 0.99999105E+00 + 0.99999517E+00 0.99999746E+00 0.99999870E+00 0.99999935E+00 0.99999968E+00 + 0.99999985E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.60288942E-03 0.18086683E-02 0.36173365E-02 0.60288942E-02 + 0.90433413E-02 0.12660678E-01 0.16880904E-01 0.21704019E-01 0.27130024E-01 + 0.33158918E-01 0.39790702E-01 0.47025375E-01 0.54862937E-01 0.63303389E-01 + 0.72346730E-01 0.81992961E-01 0.92242081E-01 0.10309409E+00 0.11454899E+00 + 0.12660678E+00 0.13926746E+00 0.15253102E+00 0.16639748E+00 0.18086683E+00 + 0.19593906E+00 0.21161419E+00 0.22789220E+00 0.24477310E+00 0.26225689E+00 + 0.28034354E+00 0.29903297E+00 0.31832495E+00 0.33821902E+00 0.35871427E+00 + 0.37980916E+00 0.40150104E+00 0.42378529E+00 0.44665410E+00 0.47009488E+00 + 0.49408825E+00 0.51860567E+00 0.54360674E+00 0.56903640E+00 0.59482240E+00 + 0.62087276E+00 0.64707297E+00 0.67328355E+00 0.69934047E+00 0.72505998E+00 + 0.75024713E+00 0.77470538E+00 0.79824567E+00 0.82069452E+00 0.84190086E+00 + 0.86174102E+00 0.88012040E+00 0.89697262E+00 0.91225820E+00 0.92596496E+00 + 0.93810981E+00 0.94873957E+00 0.95792912E+00 0.96577659E+00 0.97239718E+00 + 0.97791720E+00 0.98246880E+00 0.98618488E+00 0.98919371E+00 0.99161374E+00 + 0.99354963E+00 0.99509025E+00 0.99630891E+00 0.99726517E+00 0.99800742E+00 + 0.99857547E+00 0.99900264E+00 0.99931726E+00 0.99954364E+00 0.99970241E+00 + 0.99981082E+00 0.99988282E+00 0.99992929E+00 0.99995845E+00 0.99997623E+00 + 0.99998677E+00 0.99999283E+00 0.99999622E+00 0.99999807E+00 0.99999904E+00 + 0.99999953E+00 0.99999978E+00 0.99999990E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.58905151E-03 0.17671545E-02 0.35343090E-02 0.58905151E-02 + 0.88357726E-02 0.12370082E-01 0.16493442E-01 0.21205854E-01 0.26507318E-01 + 0.32397833E-01 0.38877399E-01 0.45946017E-01 0.53603687E-01 0.61850408E-01 + 0.70686181E-01 0.80111005E-01 0.90124880E-01 0.10072781E+00 0.11191979E+00 + 0.12370082E+00 0.13607090E+00 0.14903003E+00 0.16257822E+00 0.17671545E+00 + 0.19144174E+00 0.20675708E+00 0.22266147E+00 0.23915491E+00 0.25623740E+00 + 0.27390895E+00 0.29216954E+00 0.31101918E+00 0.33045784E+00 0.35048543E+00 + 0.37110157E+00 0.39230516E+00 0.41409360E+00 0.43646187E+00 0.45940157E+00 + 0.48289998E+00 0.50693912E+00 0.53149388E+00 0.55652847E+00 0.58199190E+00 + 0.60781390E+00 0.63390194E+00 0.66013886E+00 0.68638134E+00 0.71246055E+00 + 0.73818616E+00 0.76335267E+00 0.78774695E+00 0.81115720E+00 0.83338402E+00 + 0.85425352E+00 0.87362865E+00 0.89141463E+00 0.90755763E+00 0.92204025E+00 + 0.93487830E+00 0.94611976E+00 0.95584362E+00 0.96415579E+00 0.97118177E+00 + 0.97705782E+00 0.98192254E+00 0.98591005E+00 0.98914527E+00 0.99174134E+00 + 0.99379922E+00 0.99540841E+00 0.99664822E+00 0.99758850E+00 0.99829009E+00 + 0.99880506E+00 0.99917701E+00 0.99944146E+00 0.99962664E+00 0.99975438E+00 + 0.99984114E+00 0.99989910E+00 0.99993714E+00 0.99996163E+00 0.99997706E+00 + 0.99998659E+00 0.99999233E+00 0.99999572E+00 0.99999766E+00 0.99999876E+00 + 0.99999936E+00 0.99999967E+00 0.99999984E+00 0.99999992E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.57741117E-03 0.17322335E-02 0.34644670E-02 0.57741117E-02 + 0.86611676E-02 0.12125635E-01 0.16167513E-01 0.20786802E-01 0.25983503E-01 + 0.31757615E-01 0.38109138E-01 0.45038072E-01 0.52544417E-01 0.60628173E-01 + 0.69289341E-01 0.78527920E-01 0.88343910E-01 0.98737311E-01 0.10970812E+00 + 0.12125635E+00 0.13338198E+00 0.14608503E+00 0.15936548E+00 0.17322335E+00 + 0.18765863E+00 0.20267132E+00 0.21826142E+00 0.23442894E+00 0.25117386E+00 + 0.26849620E+00 0.28639594E+00 0.30487309E+00 0.32392764E+00 0.34355952E+00 + 0.36376843E+00 0.38455329E+00 0.40591149E+00 0.42783800E+00 0.45032437E+00 + 0.47335746E+00 0.49691769E+00 0.52097656E+00 0.54549391E+00 0.57041614E+00 + 0.59567581E+00 0.62119131E+00 0.64686479E+00 0.67257900E+00 0.69819567E+00 + 0.72355631E+00 0.74848555E+00 0.77279712E+00 0.79630240E+00 0.81881988E+00 + 0.84018347E+00 0.86024917E+00 0.87890048E+00 0.89605245E+00 0.91165319E+00 + 0.92568293E+00 0.93815181E+00 0.94909785E+00 0.95858528E+00 0.96670196E+00 + 0.97355469E+00 0.97926280E+00 0.98395169E+00 0.98774761E+00 0.99077417E+00 + 0.99314979E+00 0.99498534E+00 0.99638171E+00 0.99742789E+00 0.99819988E+00 + 0.99876079E+00 0.99916176E+00 0.99944344E+00 0.99963765E+00 0.99976888E+00 + 0.99985570E+00 0.99991186E+00 0.99994736E+00 0.99996928E+00 0.99998249E+00 + 0.99999025E+00 0.99999471E+00 0.99999720E+00 0.99999855E+00 0.99999927E+00 + 0.99999964E+00 0.99999983E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.56864535E-03 0.17059361E-02 0.34118721E-02 0.56864535E-02 + 0.85296803E-02 0.11941552E-01 0.15922070E-01 0.20471233E-01 0.25589041E-01 + 0.31275494E-01 0.37530593E-01 0.44354338E-01 0.51746727E-01 0.59707762E-01 + 0.68237442E-01 0.77335768E-01 0.87002739E-01 0.97238355E-01 0.10804262E+00 + 0.11941552E+00 0.13135708E+00 0.14386727E+00 0.15694612E+00 0.17059361E+00 + 0.18480974E+00 0.19959452E+00 0.21494794E+00 0.23087001E+00 0.24736073E+00 + 0.26442009E+00 0.28204809E+00 0.30024473E+00 0.31900995E+00 0.33834358E+00 + 0.35824526E+00 0.37871423E+00 0.39974925E+00 0.42134811E+00 0.44350674E+00 + 0.46621734E+00 0.48946578E+00 0.51322888E+00 0.53747265E+00 0.56215140E+00 + 0.58720677E+00 0.61256582E+00 0.63813853E+00 0.66381573E+00 0.68946826E+00 + 0.71494710E+00 0.74008452E+00 0.76469822E+00 0.78859922E+00 0.81160069E+00 + 0.83352442E+00 0.85420515E+00 0.87349614E+00 0.89127735E+00 0.90746410E+00 + 0.92201336E+00 0.93492601E+00 0.94624446E+00 0.95604585E+00 0.96443279E+00 + 0.97152395E+00 0.97744645E+00 0.98233059E+00 0.98630645E+00 0.98950120E+00 + 0.99203624E+00 0.99402424E+00 0.99556629E+00 0.99675008E+00 0.99764934E+00 + 0.99832459E+00 0.99882491E+00 0.99918990E+00 0.99945155E+00 0.99963560E+00 + 0.99976249E+00 0.99984820E+00 0.99990489E+00 0.99994161E+00 0.99996489E+00 + 0.99997933E+00 0.99998809E+00 0.99999329E+00 0.99999630E+00 0.99999801E+00 + 0.99999895E+00 0.99999946E+00 0.99999973E+00 0.99999987E+00 0.99999994E+00 + 0.99999997E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.56362073E-03 0.16908622E-02 0.33817244E-02 0.56362073E-02 + 0.84543109E-02 0.11836035E-01 0.15781380E-01 0.20290346E-01 0.25362933E-01 + 0.30999140E-01 0.37198968E-01 0.43962417E-01 0.51289486E-01 0.59180176E-01 + 0.67634487E-01 0.76652419E-01 0.86233971E-01 0.96379145E-01 0.10708794E+00 + 0.11836035E+00 0.13019639E+00 0.14259604E+00 0.15555932E+00 0.16908622E+00 + 0.18317674E+00 0.19783088E+00 0.21304864E+00 0.22883002E+00 0.24517502E+00 + 0.26208364E+00 0.27955588E+00 0.29759174E+00 0.31619114E+00 0.33535380E+00 + 0.35507892E+00 0.37536490E+00 0.39620922E+00 0.41760853E+00 0.43955841E+00 + 0.46205254E+00 0.48508119E+00 0.50862959E+00 0.53267586E+00 0.55718804E+00 + 0.58211983E+00 0.60740525E+00 0.63295346E+00 0.65864646E+00 0.68434212E+00 + 0.70988162E+00 0.73509658E+00 0.75981232E+00 0.78384871E+00 0.80702256E+00 + 0.82915426E+00 0.85007739E+00 0.86964858E+00 0.88775422E+00 0.90431354E+00 + 0.91927983E+00 0.93264139E+00 0.94442120E+00 0.95467376E+00 0.96347961E+00 + 0.97093948E+00 0.97716941E+00 0.98229660E+00 0.98645481E+00 0.98977878E+00 + 0.99239843E+00 0.99443383E+00 0.99599205E+00 0.99716597E+00 0.99803475E+00 + 0.99866502E+00 0.99911240E+00 0.99942268E+00 0.99963277E+00 0.99977158E+00 + 0.99986110E+00 0.99991743E+00 0.99995203E+00 0.99997277E+00 0.99998490E+00 + 0.99999182E+00 0.99999568E+00 0.99999777E+00 0.99999888E+00 0.99999945E+00 + 0.99999974E+00 0.99999988E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.55900594E-03 0.16770178E-02 0.33540357E-02 0.55900594E-02 + 0.83850892E-02 0.11739125E-01 0.15652166E-01 0.20124214E-01 0.25155267E-01 + 0.30745327E-01 0.36894392E-01 0.43602464E-01 0.50869541E-01 0.58695624E-01 + 0.67080713E-01 0.76024808E-01 0.85527909E-01 0.95590016E-01 0.10621113E+00 + 0.11739125E+00 0.12913037E+00 0.14142850E+00 0.15428564E+00 0.16770178E+00 + 0.18167693E+00 0.19621109E+00 0.21130425E+00 0.22695641E+00 0.24316759E+00 + 0.25993776E+00 0.27726695E+00 0.29515514E+00 0.31360233E+00 0.33260853E+00 + 0.35217370E+00 0.37229768E+00 0.39297993E+00 0.41421902E+00 0.43601175E+00 + 0.45835188E+00 0.48122820E+00 0.50462244E+00 0.52850729E+00 0.55284519E+00 + 0.57758719E+00 0.60267177E+00 0.62802343E+00 0.65355008E+00 0.67913936E+00 + 0.70465614E+00 0.72994299E+00 0.75482342E+00 0.77910675E+00 0.80259410E+00 + 0.82508636E+00 0.84639491E+00 0.86635312E+00 0.88482569E+00 0.90171455E+00 + 0.91696173E+00 0.93055085E+00 0.94250699E+00 0.95289344E+00 0.96180484E+00 + 0.96935814E+00 0.97568375E+00 0.98091788E+00 0.98519650E+00 0.98865090E+00 + 0.99140452E+00 0.99357089E+00 0.99525235E+00 0.99653952E+00 0.99751112E+00 + 0.99823419E+00 0.99876465E+00 0.99914819E+00 0.99942143E+00 0.99961314E+00 + 0.99974554E+00 0.99983548E+00 0.99989553E+00 0.99993489E+00 0.99996020E+00 + 0.99997616E+00 0.99998601E+00 0.99999197E+00 0.99999549E+00 0.99999753E+00 + 0.99999867E+00 0.99999931E+00 0.99999965E+00 0.99999982E+00 0.99999991E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.54599876E-03 0.16379963E-02 0.32759926E-02 0.54599876E-02 + 0.81899815E-02 0.11465974E-01 0.15287965E-01 0.19655955E-01 0.24569944E-01 + 0.30029932E-01 0.36035918E-01 0.42587904E-01 0.49685888E-01 0.57329870E-01 + 0.65519852E-01 0.74255832E-01 0.83537811E-01 0.93365789E-01 0.10373977E+00 + 0.11465974E+00 0.12612571E+00 0.13813769E+00 0.15069566E+00 0.16379963E+00 + 0.17744960E+00 0.19164557E+00 0.20638753E+00 0.22167550E+00 0.23750946E+00 + 0.25388942E+00 0.27081538E+00 0.28828729E+00 0.30630505E+00 0.32486842E+00 + 0.34397702E+00 0.36363031E+00 0.38382754E+00 0.40456743E+00 0.42584767E+00 + 0.44766441E+00 0.47001153E+00 0.49287924E+00 0.51625164E+00 0.54010369E+00 + 0.56439823E+00 0.58908290E+00 0.61408795E+00 0.63932543E+00 0.66468986E+00 + 0.69005892E+00 0.71529209E+00 0.74022776E+00 0.76468219E+00 0.78845393E+00 + 0.81133483E+00 0.83312525E+00 0.85364855E+00 0.87276107E+00 0.89035704E+00 + 0.90637069E+00 0.92077675E+00 0.93358880E+00 0.94485486E+00 0.95465094E+00 + 0.96307355E+00 0.97023283E+00 0.97624679E+00 0.98123738E+00 0.98532761E+00 + 0.98863875E+00 0.99128716E+00 0.99338109E+00 0.99501841E+00 0.99628533E+00 + 0.99725607E+00 0.99799300E+00 0.99854737E+00 0.99896048E+00 0.99926519E+00 + 0.99948743E+00 0.99964749E+00 0.99976122E+00 0.99984083E+00 0.99989568E+00 + 0.99993283E+00 0.99995755E+00 0.99997369E+00 0.99998401E+00 0.99999049E+00 + 0.99999446E+00 0.99999684E+00 0.99999824E+00 0.99999904E+00 0.99999949E+00 + 0.99999974E+00 0.99999987E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.54127881E-03 0.16238364E-02 0.32476729E-02 0.54127881E-02 + 0.81191822E-02 0.11366855E-01 0.15155807E-01 0.19486037E-01 0.24357547E-01 + 0.29770335E-01 0.35724402E-01 0.42219747E-01 0.49256372E-01 0.56834275E-01 + 0.64953458E-01 0.73613919E-01 0.82815658E-01 0.92558677E-01 0.10284297E+00 + 0.11366855E+00 0.12503541E+00 0.13694354E+00 0.14939295E+00 0.16238364E+00 + 0.17591561E+00 0.18998886E+00 0.20460339E+00 0.21975920E+00 0.23545628E+00 + 0.25169465E+00 0.26847429E+00 0.28579521E+00 0.30365741E+00 0.32206089E+00 + 0.34100560E+00 0.36049145E+00 0.38051813E+00 0.40108496E+00 0.42219060E+00 + 0.44383226E+00 0.46600447E+00 0.48869793E+00 0.51189863E+00 0.53558638E+00 + 0.55973183E+00 0.58429243E+00 0.60920888E+00 0.63440269E+00 0.65977472E+00 + 0.68520413E+00 0.71054710E+00 0.73563708E+00 0.76028774E+00 0.78429829E+00 + 0.80746031E+00 0.82956702E+00 0.85042557E+00 0.86987082E+00 0.88777782E+00 + 0.90406913E+00 0.91871499E+00 0.93172807E+00 0.94315674E+00 0.95307949E+00 + 0.96160015E+00 0.96884179E+00 0.97493848E+00 0.98002604E+00 0.98423442E+00 + 0.98768343E+00 0.99048156E+00 0.99272663E+00 0.99450667E+00 0.99590065E+00 + 0.99697867E+00 0.99780190E+00 0.99842262E+00 0.99888453E+00 0.99922347E+00 + 0.99946840E+00 0.99964247E+00 0.99976396E+00 0.99984714E+00 0.99990295E+00 + 0.99993962E+00 0.99996320E+00 0.99997805E+00 0.99998718E+00 0.99999267E+00 + 0.99999591E+00 0.99999777E+00 0.99999881E+00 0.99999938E+00 0.99999969E+00 + 0.99999984E+00 0.99999993E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.53371570E-03 0.16011471E-02 0.32022942E-02 0.53371570E-02 + 0.80057355E-02 0.11208030E-01 0.14944040E-01 0.19213765E-01 0.24017207E-01 + 0.29354364E-01 0.35225236E-01 0.41629825E-01 0.48568129E-01 0.56040149E-01 + 0.64045884E-01 0.72585335E-01 0.81658502E-01 0.91265385E-01 0.10140598E+00 + 0.11208030E+00 0.12328833E+00 0.13503007E+00 0.14730553E+00 0.16011471E+00 + 0.17345760E+00 0.18733421E+00 0.20174454E+00 0.21668857E+00 0.23216633E+00 + 0.24817780E+00 0.26472299E+00 0.28180189E+00 0.29941451E+00 0.31756083E+00 + 0.33624083E+00 0.35545433E+00 0.37520098E+00 0.39548003E+00 0.41628992E+00 + 0.43762740E+00 0.45948605E+00 0.48185516E+00 0.50471927E+00 0.52805834E+00 + 0.55184731E+00 0.57605348E+00 0.60063131E+00 0.62551621E+00 0.65061993E+00 + 0.67582926E+00 0.70100780E+00 0.72599933E+00 0.75063127E+00 0.77471832E+00 + 0.79806742E+00 0.82048568E+00 0.84179059E+00 0.86182045E+00 0.88044258E+00 + 0.89755881E+00 0.91310776E+00 0.92706428E+00 0.93943733E+00 0.95026738E+00 + 0.95962301E+00 0.96759647E+00 0.97429864E+00 0.97985368E+00 0.98439361E+00 + 0.98805267E+00 0.99096183E+00 0.99324380E+00 0.99500957E+00 0.99635679E+00 + 0.99736969E+00 0.99811998E+00 0.99866776E+00 0.99906250E+00 0.99934387E+00 + 0.99954280E+00 0.99968268E+00 0.99978072E+00 0.99984931E+00 0.99989720E+00 + 0.99993053E+00 0.99995360E+00 0.99996943E+00 0.99998018E+00 0.99998736E+00 + 0.99999209E+00 0.99999515E+00 0.99999709E+00 0.99999829E+00 0.99999901E+00 + 0.99999945E+00 0.99999970E+00 0.99999984E+00 0.99999991E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.53324786E-03 0.15997436E-02 0.31994872E-02 0.53324786E-02 + 0.79987179E-02 0.11198205E-01 0.14930940E-01 0.19196923E-01 0.23996154E-01 + 0.29328632E-01 0.35194359E-01 0.41593333E-01 0.48525555E-01 0.55991025E-01 + 0.63989743E-01 0.72521709E-01 0.81586923E-01 0.91185384E-01 0.10131709E+00 + 0.11198205E+00 0.12318026E+00 0.13491171E+00 0.14717641E+00 0.15997436E+00 + 0.17330555E+00 0.18717000E+00 0.20156769E+00 0.21649863E+00 0.23196282E+00 + 0.24796025E+00 0.26449094E+00 0.28155487E+00 0.29915205E+00 0.31728248E+00 + 0.33594615E+00 0.35514304E+00 0.37487307E+00 0.39513587E+00 0.41593048E+00 + 0.43725476E+00 0.45910483E+00 0.48147436E+00 0.50435315E+00 0.52772486E+00 + 0.55156395E+00 0.57583268E+00 0.60047838E+00 0.62543100E+00 0.65060055E+00 + 0.67587447E+00 0.70111554E+00 0.72616200E+00 0.75083148E+00 0.77492874E+00 + 0.79825474E+00 0.82061498E+00 0.84182756E+00 0.86173175E+00 0.88019721E+00 + 0.89713189E+00 0.91248628E+00 0.92625254E+00 0.93845911E+00 0.94916315E+00 + 0.95844402E+00 0.96639844E+00 0.97313632E+00 0.97877611E+00 0.98343980E+00 + 0.98724820E+00 0.99031718E+00 0.99275534E+00 0.99466284E+00 0.99613086E+00 + 0.99724115E+00 0.99806581E+00 0.99866703E+00 0.99909715E+00 0.99939906E+00 + 0.99960698E+00 0.99974748E+00 0.99984062E+00 0.99990120E+00 0.99993986E+00 + 0.99996406E+00 0.99997892E+00 0.99998787E+00 0.99999316E+00 0.99999621E+00 + 0.99999795E+00 0.99999891E+00 0.99999943E+00 0.99999971E+00 0.99999986E+00 + 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.52345413E-03 0.15703624E-02 0.31407248E-02 0.52345413E-02 + 0.78518119E-02 0.10992537E-01 0.14656716E-01 0.18844349E-01 0.23555436E-01 + 0.28789977E-01 0.34547972E-01 0.40829422E-01 0.47634325E-01 0.54962683E-01 + 0.62814495E-01 0.71189761E-01 0.80088481E-01 0.89510655E-01 0.99456284E-01 + 0.10992537E+00 0.12091790E+00 0.13243389E+00 0.14447334E+00 0.15703624E+00 + 0.17012259E+00 0.18373240E+00 0.19786566E+00 0.21252237E+00 0.22770254E+00 + 0.24340617E+00 0.25963325E+00 0.27638378E+00 0.29365776E+00 0.31145520E+00 + 0.32977609E+00 0.34862035E+00 0.36798773E+00 0.38787755E+00 0.40828836E+00 + 0.42921760E+00 0.45066105E+00 0.47261228E+00 0.49506204E+00 0.51799694E+00 + 0.54139692E+00 0.56523151E+00 0.58945580E+00 0.61400743E+00 0.63880526E+00 + 0.66374974E+00 0.68872400E+00 0.71359425E+00 0.73820896E+00 0.76239875E+00 + 0.78597943E+00 0.80875914E+00 0.83054824E+00 0.85117057E+00 0.87047449E+00 + 0.88834124E+00 0.90468875E+00 0.91947150E+00 0.93267817E+00 0.94432875E+00 + 0.95447231E+00 0.96318503E+00 0.97056732E+00 0.97673890E+00 0.98183148E+00 + 0.98598059E+00 0.98931823E+00 0.99196810E+00 0.99404313E+00 0.99564466E+00 + 0.99686220E+00 0.99777340E+00 0.99844432E+00 0.99893008E+00 0.99927579E+00 + 0.99951757E+00 0.99968373E+00 0.99979595E+00 0.99987045E+00 0.99991906E+00 + 0.99995024E+00 0.99996991E+00 0.99998210E+00 0.99998953E+00 0.99999398E+00 + 0.99999660E+00 0.99999811E+00 0.99999897E+00 0.99999945E+00 0.99999971E+00 + 0.99999985E+00 0.99999993E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.51846269E-03 0.15553881E-02 0.31107761E-02 0.51846269E-02 + 0.77769403E-02 0.10887716E-01 0.14516955E-01 0.18664657E-01 0.23330821E-01 + 0.28515448E-01 0.34218537E-01 0.40440090E-01 0.47180105E-01 0.54438582E-01 + 0.62215523E-01 0.70510926E-01 0.79324791E-01 0.88657120E-01 0.98507911E-01 + 0.10887716E+00 0.11976488E+00 0.13117106E+00 0.14309570E+00 0.15553881E+00 + 0.16850037E+00 0.18198040E+00 0.19597890E+00 0.21049585E+00 0.22553127E+00 + 0.24108515E+00 0.25715749E+00 0.27374828E+00 0.29085746E+00 0.30848487E+00 + 0.32663019E+00 0.34529302E+00 0.36447286E+00 0.38416905E+00 0.40438056E+00 + 0.42510569E+00 0.44634183E+00 0.46808492E+00 0.49032828E+00 0.51306020E+00 + 0.53626066E+00 0.55989820E+00 0.58392865E+00 0.60829544E+00 0.63292929E+00 + 0.65774546E+00 0.68263934E+00 0.70748212E+00 0.73211954E+00 0.75637569E+00 + 0.78006092E+00 0.80298065E+00 0.82494419E+00 0.84577394E+00 0.86531431E+00 + 0.88343911E+00 0.90005679E+00 0.91511372E+00 0.92859565E+00 0.94052635E+00 + 0.95096303E+00 0.95998896E+00 0.96770552E+00 0.97422535E+00 0.97966705E+00 + 0.98415102E+00 0.98779636E+00 0.99071838E+00 0.99302668E+00 0.99482336E+00 + 0.99620141E+00 0.99724339E+00 0.99802067E+00 0.99859326E+00 0.99901021E+00 + 0.99931062E+00 0.99952490E+00 0.99967621E+00 0.99978197E+00 0.99985505E+00 + 0.99990496E+00 0.99993858E+00 0.99996091E+00 0.99997551E+00 0.99998491E+00 + 0.99999086E+00 0.99999456E+00 0.99999682E+00 0.99999818E+00 0.99999898E+00 + 0.99999944E+00 0.99999970E+00 0.99999984E+00 0.99999992E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.51256737E-03 0.15377021E-02 0.30754042E-02 0.51256737E-02 + 0.76885106E-02 0.10763915E-01 0.14351886E-01 0.18452425E-01 0.23065532E-01 + 0.28191206E-01 0.33829447E-01 0.39980255E-01 0.46643631E-01 0.53819574E-01 + 0.61508085E-01 0.69709163E-01 0.78422808E-01 0.87649021E-01 0.97387801E-01 + 0.10763915E+00 0.11840306E+00 0.12967955E+00 0.14146859E+00 0.15377021E+00 + 0.16658440E+00 0.17991115E+00 0.19375047E+00 0.20810235E+00 0.22296681E+00 + 0.23834383E+00 0.25423342E+00 0.27063557E+00 0.28755030E+00 0.30497759E+00 + 0.32291744E+00 0.34136987E+00 0.36033483E+00 0.37981219E+00 0.39980138E+00 + 0.42030100E+00 0.44130842E+00 0.46281937E+00 0.48482734E+00 0.50732269E+00 + 0.53029158E+00 0.55371445E+00 0.57756315E+00 0.60179645E+00 0.62635511E+00 + 0.65115703E+00 0.67609304E+00 0.70102464E+00 0.72578552E+00 0.75018685E+00 + 0.77402579E+00 0.79709645E+00 0.81920214E+00 0.84016660E+00 0.85984326E+00 + 0.87812158E+00 0.89492881E+00 0.91022711E+00 0.92400863E+00 0.93629150E+00 + 0.94711734E+00 0.95654924E+00 0.96466938E+00 0.97157582E+00 0.97737859E+00 + 0.98219489E+00 0.98614399E+00 0.98934265E+00 0.99190153E+00 0.99392283E+00 + 0.99549875E+00 0.99671090E+00 0.99763016E+00 0.99831713E+00 0.99882271E+00 + 0.99918895E+00 0.99944997E+00 0.99963292E+00 0.99975899E+00 0.99984438E+00 + 0.99990120E+00 0.99993835E+00 0.99996219E+00 0.99997723E+00 0.99998653E+00 + 0.99999218E+00 0.99999554E+00 0.99999751E+00 0.99999863E+00 0.99999927E+00 + 0.99999961E+00 0.99999980E+00 0.99999990E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.50613696E-03 0.15184109E-02 0.30368217E-02 0.50613696E-02 + 0.75920543E-02 0.10628876E-01 0.14171835E-01 0.18220930E-01 0.22776163E-01 + 0.27837533E-01 0.33405039E-01 0.39478682E-01 0.46058463E-01 0.53144380E-01 + 0.60736435E-01 0.68834626E-01 0.77438954E-01 0.86549419E-01 0.96166021E-01 + 0.10628876E+00 0.11691764E+00 0.12805265E+00 0.13969380E+00 0.15184109E+00 + 0.16449451E+00 0.17765407E+00 0.19131977E+00 0.20549160E+00 0.22016958E+00 + 0.23535368E+00 0.25104393E+00 0.26724031E+00 0.28394283E+00 0.30115149E+00 + 0.31886628E+00 0.33708721E+00 0.35581428E+00 0.37504745E+00 0.39478663E+00 + 0.41503131E+00 0.43578005E+00 0.45702968E+00 0.47877451E+00 0.50100561E+00 + 0.52370976E+00 0.54686784E+00 0.57045274E+00 0.59442680E+00 0.61873868E+00 + 0.64331927E+00 0.66807754E+00 0.69289727E+00 0.71763531E+00 0.74212269E+00 + 0.76617007E+00 0.78957806E+00 0.81214985E+00 0.83370184E+00 0.85407046E+00 + 0.87311625E+00 0.89072679E+00 0.90681951E+00 0.92134493E+00 0.93428942E+00 + 0.94567577E+00 0.95556089E+00 0.96403159E+00 0.97119853E+00 0.97718836E+00 + 0.98213492E+00 0.98617149E+00 0.98942545E+00 0.99201536E+00 0.99404949E+00 + 0.99562512E+00 0.99682814E+00 0.99773306E+00 0.99840337E+00 0.99889210E+00 + 0.99924274E+00 0.99949024E+00 0.99966208E+00 0.99977944E+00 0.99985828E+00 + 0.99991036E+00 0.99994419E+00 0.99996582E+00 0.99997940E+00 0.99998779E+00 + 0.99999289E+00 0.99999593E+00 0.99999771E+00 0.99999873E+00 0.99999931E+00 + 0.99999964E+00 0.99999981E+00 0.99999990E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.74746569E-03 0.22423971E-02 0.44847941E-02 0.74746569E-02 + 0.11211985E-01 0.15696779E-01 0.20929039E-01 0.26908765E-01 0.33635956E-01 + 0.41110613E-01 0.49332735E-01 0.58302324E-01 0.68019378E-01 0.78483897E-01 + 0.89695882E-01 0.10165533E+00 0.11436225E+00 0.12781663E+00 0.14201848E+00 + 0.15696779E+00 0.17266455E+00 0.18910877E+00 0.20630040E+00 0.22423930E+00 + 0.24292522E+00 0.26235770E+00 0.28253626E+00 0.30346013E+00 0.32512774E+00 + 0.34753521E+00 0.37067448E+00 0.39453206E+00 0.41908895E+00 0.44432046E+00 + 0.47019382E+00 0.49666408E+00 0.52367091E+00 0.55113897E+00 0.57897845E+00 + 0.60707831E+00 0.63529681E+00 0.66346332E+00 0.69138914E+00 0.71887498E+00 + 0.74571500E+00 0.77170116E+00 0.79662759E+00 0.82029928E+00 0.84254647E+00 + 0.86323621E+00 0.88227673E+00 0.89961833E+00 0.91525161E+00 0.92920062E+00 + 0.94151114E+00 0.95224046E+00 0.96145705E+00 0.96924918E+00 0.97573183E+00 + 0.98104491E+00 0.98534369E+00 0.98878517E+00 0.99151577E+00 0.99366389E+00 + 0.99533768E+00 0.99662641E+00 0.99760391E+00 0.99833239E+00 0.99886490E+00 + 0.99924639E+00 0.99951394E+00 0.99969718E+00 0.99981903E+00 0.99989702E+00 + 0.99994455E+00 0.99997189E+00 0.99998662E+00 0.99999404E+00 0.99999752E+00 + 0.99999903E+00 0.99999965E+00 0.99999988E+00 0.99999996E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.75293854E-03 0.22588156E-02 0.45176313E-02 0.75293854E-02 + 0.11294078E-01 0.15811709E-01 0.21082279E-01 0.27105788E-01 0.33882234E-01 + 0.41411620E-01 0.49693944E-01 0.58729206E-01 0.68517407E-01 0.79058547E-01 + 0.90352625E-01 0.10239964E+00 0.11519959E+00 0.12875248E+00 0.14305830E+00 + 0.15811704E+00 0.17392868E+00 0.19049319E+00 0.20781054E+00 0.22588065E+00 + 0.24470335E+00 0.26427818E+00 0.28460420E+00 0.30567968E+00 0.32750158E+00 + 0.35006484E+00 0.37336171E+00 0.39738120E+00 0.42210812E+00 0.44752079E+00 + 0.47358741E+00 0.50026339E+00 0.52749022E+00 0.55519216E+00 0.58326881E+00 + 0.61158854E+00 0.63998846E+00 0.66827991E+00 0.69625544E+00 0.72369480E+00 + 0.75037144E+00 0.77606173E+00 0.80055830E+00 0.82368712E+00 0.84532187E+00 + 0.86538531E+00 0.88383541E+00 0.90064934E+00 0.91581935E+00 0.92935789E+00 + 0.94130261E+00 0.95171718E+00 0.96068963E+00 0.96832896E+00 0.97475937E+00 + 0.98011220E+00 0.98451782E+00 0.98809997E+00 0.99097383E+00 0.99324626E+00 + 0.99501564E+00 0.99637095E+00 0.99739117E+00 0.99814565E+00 0.99869455E+00 + 0.99908887E+00 0.99937017E+00 0.99957051E+00 0.99971323E+00 0.99981434E+00 + 0.99988460E+00 0.99993168E+00 0.99996166E+00 0.99997966E+00 0.99998981E+00 + 0.99999519E+00 0.99999786E+00 0.99999910E+00 0.99999965E+00 0.99999987E+00 + 0.99999995E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.74879363E-03 0.22463809E-02 0.44927618E-02 0.74879363E-02 + 0.11231904E-01 0.15724666E-01 0.20966222E-01 0.26956571E-01 0.33695713E-01 + 0.41183650E-01 0.49420380E-01 0.58405903E-01 0.68140220E-01 0.78623331E-01 + 0.89855236E-01 0.10183593E+00 0.11456542E+00 0.12804371E+00 0.14227079E+00 + 0.15724665E+00 0.17297131E+00 0.18944474E+00 0.20666691E+00 0.22463774E+00 + 0.24335702E+00 0.26282427E+00 0.28303857E+00 0.30399844E+00 0.32570155E+00 + 0.34814407E+00 0.37131946E+00 0.39521690E+00 0.41981999E+00 0.44510577E+00 + 0.47104344E+00 0.49759168E+00 0.52469542E+00 0.55228285E+00 0.58026220E+00 + 0.60851799E+00 0.63690823E+00 0.66526309E+00 0.69338552E+00 0.72105573E+00 + 0.74804139E+00 0.77411083E+00 0.79904380E+00 0.82264112E+00 0.84473676E+00 + 0.86520910E+00 0.88398357E+00 0.90102683E+00 0.91634002E+00 0.92995487E+00 + 0.94193097E+00 0.95235114E+00 0.96131486E+00 0.96893231E+00 0.97532156E+00 + 0.98060811E+00 0.98492345E+00 0.98840088E+00 0.99116992E+00 0.99335143E+00 + 0.99505365E+00 0.99636971E+00 0.99737703E+00 0.99813884E+00 0.99870674E+00 + 0.99912296E+00 0.99942196E+00 0.99963152E+00 0.99977394E+00 0.99986713E+00 + 0.99992546E+00 0.99996021E+00 0.99997983E+00 0.99999031E+00 0.99999560E+00 + 0.99999811E+00 0.99999923E+00 0.99999971E+00 0.99999989E+00 0.99999996E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.74229417E-03 0.22268825E-02 0.44537650E-02 0.74229417E-02 + 0.11134413E-01 0.15588178E-01 0.20784237E-01 0.26722590E-01 0.33403238E-01 + 0.40826179E-01 0.48991415E-01 0.57898945E-01 0.67548770E-01 0.77940888E-01 + 0.89075301E-01 0.10095201E+00 0.11357101E+00 0.12693230E+00 0.14103589E+00 + 0.15588177E+00 0.17146994E+00 0.18780039E+00 0.20487308E+00 0.22268797E+00 + 0.24124497E+00 0.26054398E+00 0.28058466E+00 0.30136611E+00 0.32288650E+00 + 0.34514264E+00 0.36812955E+00 0.39183941E+00 0.41625933E+00 0.44136816E+00 + 0.46713395E+00 0.49351205E+00 0.52044231E+00 0.54784557E+00 0.57562030E+00 + 0.60363992E+00 0.63175227E+00 0.65978320E+00 0.68754263E+00 0.71483013E+00 + 0.74144250E+00 0.76718475E+00 0.79188028E+00 0.81537490E+00 0.83753545E+00 + 0.85824723E+00 0.87741540E+00 0.89497163E+00 0.91088069E+00 0.92514122E+00 + 0.93778128E+00 0.94885396E+00 0.95843460E+00 0.96661749E+00 0.97351169E+00 + 0.97923699E+00 0.98392097E+00 0.98769621E+00 0.99069618E+00 0.99304958E+00 + 0.99487441E+00 0.99627351E+00 0.99733294E+00 0.99812314E+00 0.99870177E+00 + 0.99911655E+00 0.99940724E+00 0.99960672E+00 0.99974133E+00 0.99983131E+00 + 0.99989127E+00 0.99993121E+00 0.99995767E+00 0.99997490E+00 0.99998577E+00 + 0.99999233E+00 0.99999608E+00 0.99999811E+00 0.99999914E+00 0.99999963E+00 + 0.99999985E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.72286939E-03 0.21686082E-02 0.43372163E-02 0.72286939E-02 + 0.10843041E-01 0.15180257E-01 0.20240343E-01 0.26023298E-01 0.32529122E-01 + 0.39757816E-01 0.47709380E-01 0.56383812E-01 0.65781114E-01 0.75901286E-01 + 0.86744326E-01 0.98310236E-01 0.11059902E+00 0.12361066E+00 0.13734518E+00 + 0.15180257E+00 0.16698282E+00 0.18288593E+00 0.19951190E+00 0.21686070E+00 + 0.23493228E+00 0.25372648E+00 0.27324297E+00 0.29348092E+00 0.31443866E+00 + 0.33611313E+00 0.35849957E+00 0.38159129E+00 0.40537894E+00 0.42984848E+00 + 0.45497787E+00 0.48073324E+00 0.50706585E+00 0.53391005E+00 0.56118251E+00 + 0.58878165E+00 0.61658693E+00 0.64445814E+00 0.67223379E+00 0.69973106E+00 + 0.72675115E+00 0.75308856E+00 0.77853998E+00 0.80291100E+00 0.82602212E+00 + 0.84771666E+00 0.86786965E+00 0.88639243E+00 0.90323029E+00 0.91835821E+00 + 0.93178095E+00 0.94353749E+00 0.95370410E+00 0.96239105E+00 0.96973263E+00 + 0.97587340E+00 0.98095619E+00 0.98511616E+00 0.98848021E+00 0.99116765E+00 + 0.99328947E+00 0.99494635E+00 0.99622698E+00 0.99720751E+00 0.99795178E+00 + 0.99851212E+00 0.99893048E+00 0.99923999E+00 0.99946671E+00 0.99963114E+00 + 0.99974924E+00 0.99983316E+00 0.99989196E+00 0.99993232E+00 0.99995922E+00 + 0.99997649E+00 0.99998708E+00 0.99999325E+00 0.99999666E+00 0.99999843E+00 + 0.99999930E+00 0.99999971E+00 0.99999988E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.71102968E-03 0.21330890E-02 0.42661781E-02 0.71102968E-02 + 0.10665445E-01 0.14931623E-01 0.19908831E-01 0.25597069E-01 0.31996336E-01 + 0.39106633E-01 0.46927959E-01 0.55460315E-01 0.64703701E-01 0.74658117E-01 + 0.85323562E-01 0.96700037E-01 0.10878754E+00 0.12158608E+00 0.13509564E+00 + 0.14931623E+00 0.16424786E+00 0.17989051E+00 0.19624418E+00 0.21330887E+00 + 0.23108456E+00 0.24957119E+00 0.26876869E+00 0.28867685E+00 0.30929523E+00 + 0.33062285E+00 0.35265762E+00 0.37539545E+00 0.39882931E+00 0.42294804E+00 + 0.44773436E+00 0.47316170E+00 0.49919045E+00 0.52576522E+00 0.55281380E+00 + 0.58024542E+00 0.60794765E+00 0.63578440E+00 0.66359584E+00 0.69119943E+00 + 0.71839469E+00 0.74497177E+00 0.77071897E+00 0.79542924E+00 0.81890943E+00 + 0.84099116E+00 0.86153976E+00 0.88046017E+00 0.89770020E+00 0.91324952E+00 + 0.92713305E+00 0.93940086E+00 0.95011991E+00 0.95937174E+00 0.96725478E+00 + 0.97388568E+00 0.97939517E+00 0.98391945E+00 0.98759143E+00 0.99053545E+00 + 0.99286530E+00 0.99468393E+00 0.99608333E+00 0.99714463E+00 0.99793825E+00 + 0.99852409E+00 0.99895169E+00 0.99926078E+00 0.99948238E+00 0.99964018E+00 + 0.99975197E+00 0.99983090E+00 0.99988648E+00 0.99992544E+00 0.99995243E+00 + 0.99997074E+00 0.99998275E+00 0.99999029E+00 0.99999481E+00 0.99999736E+00 + 0.99999873E+00 0.99999942E+00 0.99999975E+00 0.99999990E+00 0.99999996E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.70670590E-03 0.21201177E-02 0.42402354E-02 0.70670590E-02 + 0.10600588E-01 0.14840824E-01 0.19787765E-01 0.25441412E-01 0.31801765E-01 + 0.38868824E-01 0.46642589E-01 0.55123060E-01 0.64310237E-01 0.74204119E-01 + 0.84804708E-01 0.96112002E-01 0.10812600E+00 0.12084671E+00 0.13427412E+00 + 0.14840824E+00 0.16324906E+00 0.17879658E+00 0.19505080E+00 0.21201170E+00 + 0.22967928E+00 0.24805352E+00 0.26713433E+00 0.28692147E+00 0.30741433E+00 + 0.32861150E+00 0.35051033E+00 0.37310605E+00 0.39639086E+00 0.42035262E+00 + 0.44497328E+00 0.47022671E+00 0.49607598E+00 0.52246992E+00 0.54933978E+00 + 0.57659774E+00 0.60413744E+00 0.63183475E+00 0.65954646E+00 0.68710756E+00 + 0.71433069E+00 0.74101202E+00 0.76694270E+00 0.79192147E+00 0.81576295E+00 + 0.83829982E+00 0.85938357E+00 0.87888951E+00 0.89672623E+00 0.91284340E+00 + 0.92723284E+00 0.93992363E+00 0.95097534E+00 0.96047258E+00 0.96852091E+00 + 0.97524312E+00 0.98077503E+00 0.98525981E+00 0.98884106E+00 0.99165673E+00 + 0.99383535E+00 0.99549458E+00 0.99673988E+00 0.99766293E+00 0.99834022E+00 + 0.99883299E+00 0.99918879E+00 0.99944370E+00 0.99962478E+00 0.99975203E+00 + 0.99984014E+00 0.99989991E+00 0.99993941E+00 0.99996466E+00 0.99998020E+00 + 0.99998938E+00 0.99999455E+00 0.99999733E+00 0.99999875E+00 0.99999945E+00 + 0.99999977E+00 0.99999991E+00 0.99999996E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.68826076E-03 0.20647823E-02 0.41295646E-02 0.68826076E-02 + 0.10323911E-01 0.14453476E-01 0.19271301E-01 0.24777387E-01 0.30971734E-01 + 0.37854342E-01 0.45425210E-01 0.53684339E-01 0.62631729E-01 0.72267380E-01 + 0.82591291E-01 0.93603463E-01 0.10530390E+00 0.11769259E+00 0.13076954E+00 + 0.14453476E+00 0.15898824E+00 0.17412997E+00 0.18995997E+00 0.20647822E+00 + 0.22368474E+00 0.24157950E+00 0.26016250E+00 0.27943365E+00 0.29939274E+00 + 0.32003920E+00 0.34137183E+00 0.36338806E+00 0.38608308E+00 0.40944894E+00 + 0.43347395E+00 0.45814158E+00 0.48342835E+00 0.50930038E+00 0.53570934E+00 + 0.56258874E+00 0.58985037E+00 0.61738087E+00 0.64504007E+00 0.67266258E+00 + 0.70006269E+00 0.72704122E+00 0.75339138E+00 0.77890364E+00 0.80337279E+00 + 0.82660782E+00 0.84844099E+00 0.86873376E+00 0.88738060E+00 0.90431291E+00 + 0.91950258E+00 0.93296317E+00 0.94474694E+00 0.95493794E+00 0.96364447E+00 + 0.97099242E+00 0.97711913E+00 0.98216693E+00 0.98627685E+00 0.98958293E+00 + 0.99220804E+00 0.99426202E+00 0.99584214E+00 0.99703468E+00 0.99791626E+00 + 0.99855439E+00 0.99900732E+00 0.99932372E+00 0.99954254E+00 0.99969328E+00 + 0.99979711E+00 0.99986849E+00 0.99991708E+00 0.99994949E+00 0.99997042E+00 + 0.99998340E+00 0.99999109E+00 0.99999544E+00 0.99999777E+00 0.99999896E+00 + 0.99999954E+00 0.99999980E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.68259661E-03 0.20477898E-02 0.40955796E-02 0.68259661E-02 + 0.10238949E-01 0.14334529E-01 0.19112705E-01 0.24573478E-01 0.30716847E-01 + 0.37542813E-01 0.45051376E-01 0.53242535E-01 0.62116291E-01 0.71672644E-01 + 0.81911593E-01 0.92833138E-01 0.10443728E+00 0.11672402E+00 0.12969336E+00 + 0.14334529E+00 0.15767982E+00 0.17269694E+00 0.18839666E+00 0.20477898E+00 + 0.22184388E+00 0.23959135E+00 0.25802133E+00 0.27713371E+00 0.29692819E+00 + 0.31740413E+00 0.33856015E+00 0.36039367E+00 0.38290050E+00 0.40607413E+00 + 0.42990487E+00 0.45437804E+00 0.47947077E+00 0.50514789E+00 0.53135801E+00 + 0.55803133E+00 0.58507985E+00 0.61239830E+00 0.63986302E+00 0.66732898E+00 + 0.69462877E+00 0.72157620E+00 0.74797385E+00 0.77362078E+00 0.79831792E+00 + 0.82187157E+00 0.84409987E+00 0.86484349E+00 0.88397573E+00 0.90140802E+00 + 0.91709187E+00 0.93101972E+00 0.94322461E+00 0.95377716E+00 0.96277965E+00 + 0.97035886E+00 0.97665862E+00 0.98183142E+00 0.98602958E+00 0.98939748E+00 + 0.99206694E+00 0.99415554E+00 0.99576666E+00 0.99699002E+00 0.99790252E+00 + 0.99856942E+00 0.99904577E+00 0.99937755E+00 0.99960260E+00 0.99975126E+00 + 0.99984701E+00 0.99990732E+00 0.99994462E+00 0.99996734E+00 0.99998102E+00 + 0.99998916E+00 0.99999395E+00 0.99999671E+00 0.99999826E+00 0.99999912E+00 + 0.99999957E+00 0.99999980E+00 0.99999991E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.66586944E-03 0.19976083E-02 0.39952167E-02 0.66586944E-02 + 0.99880416E-02 0.13983258E-01 0.18644344E-01 0.23971300E-01 0.29964125E-01 + 0.36622819E-01 0.43947383E-01 0.51937817E-01 0.60594119E-01 0.69916292E-01 + 0.79904333E-01 0.90558244E-01 0.10187802E+00 0.11386367E+00 0.12651519E+00 + 0.13983258E+00 0.15381584E+00 0.16846497E+00 0.18377997E+00 0.19976083E+00 + 0.21640756E+00 0.23372010E+00 0.25169832E+00 0.27034187E+00 0.28965021E+00 + 0.30962257E+00 0.33025793E+00 0.35155446E+00 0.37350867E+00 0.39611450E+00 + 0.41936275E+00 0.44324022E+00 0.46772779E+00 0.49279741E+00 0.51840876E+00 + 0.54450688E+00 0.57102169E+00 0.59786834E+00 0.62494597E+00 0.65213293E+00 + 0.67928117E+00 0.70621420E+00 0.73273188E+00 0.75862039E+00 0.78366274E+00 + 0.80764827E+00 0.83038337E+00 0.85170390E+00 0.87148403E+00 0.88963691E+00 + 0.90611109E+00 0.92088847E+00 0.93398497E+00 0.94545076E+00 0.95536759E+00 + 0.96384348E+00 0.97100591E+00 0.97699361E+00 0.98194780E+00 0.98600432E+00 + 0.98928866E+00 0.99191459E+00 0.99398491E+00 0.99559245E+00 0.99682031E+00 + 0.99774199E+00 0.99842150E+00 0.99891356E+00 0.99926376E+00 0.99950890E+00 + 0.99967781E+00 0.99979239E+00 0.99986887E+00 0.99991903E+00 0.99995126E+00 + 0.99997149E+00 0.99998384E+00 0.99999115E+00 0.99999532E+00 0.99999762E+00 + 0.99999884E+00 0.99999946E+00 0.99999976E+00 0.99999989E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.65826755E-03 0.19748027E-02 0.39496053E-02 0.65826755E-02 + 0.98740133E-02 0.13823619E-01 0.18431491E-01 0.23697632E-01 0.29622040E-01 + 0.36204715E-01 0.43445658E-01 0.51344869E-01 0.59902347E-01 0.69118093E-01 + 0.78992106E-01 0.89524387E-01 0.10071494E+00 0.11256375E+00 0.12507083E+00 + 0.13823619E+00 0.15205980E+00 0.16654169E+00 0.18168184E+00 0.19748027E+00 + 0.21393695E+00 0.23105191E+00 0.24882513E+00 0.26725662E+00 0.28634634E+00 + 0.30609423E+00 0.32650006E+00 0.34756318E+00 0.36928213E+00 0.39165406E+00 + 0.41467359E+00 0.43833092E+00 0.46261009E+00 0.48748807E+00 0.51293388E+00 + 0.53890635E+00 0.56534996E+00 0.59218826E+00 0.61931728E+00 0.64660302E+00 + 0.67388313E+00 0.70097002E+00 0.72765468E+00 0.75371449E+00 0.77892639E+00 + 0.80308181E+00 0.82599766E+00 0.84752127E+00 0.86753212E+00 0.88594308E+00 + 0.90270188E+00 0.91779097E+00 0.93122489E+00 0.94304725E+00 0.95332890E+00 + 0.96216579E+00 0.96967386E+00 0.97598117E+00 0.98121953E+00 0.98551766E+00 + 0.98899735E+00 0.99177235E+00 0.99394864E+00 0.99562481E+00 0.99689155E+00 + 0.99783045E+00 0.99851268E+00 0.99899842E+00 0.99933709E+00 0.99956828E+00 + 0.99972293E+00 0.99982451E+00 0.99989022E+00 0.99993221E+00 0.99995876E+00 + 0.99997536E+00 0.99998560E+00 0.99999180E+00 0.99999547E+00 0.99999758E+00 + 0.99999875E+00 0.99999938E+00 0.99999971E+00 0.99999987E+00 0.99999994E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.64760176E-03 0.19428053E-02 0.38856105E-02 0.64760176E-02 + 0.97140263E-02 0.13599637E-01 0.18132849E-01 0.23313663E-01 0.29142079E-01 + 0.35618097E-01 0.42741716E-01 0.50512937E-01 0.58931760E-01 0.67998184E-01 + 0.77712211E-01 0.88073839E-01 0.99083069E-01 0.11073990E+00 0.12304433E+00 + 0.13599637E+00 0.14959601E+00 0.16384324E+00 0.17873808E+00 0.19428053E+00 + 0.21047057E+00 0.22730822E+00 0.24479345E+00 0.26292626E+00 0.28170656E+00 + 0.30113424E+00 0.32120911E+00 0.34193074E+00 0.36329805E+00 0.38530865E+00 + 0.40795811E+00 0.43123904E+00 0.45513993E+00 0.47964320E+00 0.50472252E+00 + 0.53033900E+00 0.55643639E+00 0.58293625E+00 0.60973489E+00 0.63670336E+00 + 0.66369031E+00 0.69052823E+00 0.71704224E+00 0.74305565E+00 0.76838811E+00 + 0.79285228E+00 0.81625866E+00 0.83842846E+00 0.85920757E+00 0.87847595E+00 + 0.89614992E+00 0.91217974E+00 0.92654688E+00 0.93926218E+00 0.95036487E+00 + 0.95992189E+00 0.96802712E+00 0.97479912E+00 0.98037526E+00 0.98490262E+00 + 0.98852846E+00 0.99139312E+00 0.99362552E+00 0.99534105E+00 0.99664088E+00 + 0.99761217E+00 0.99832825E+00 0.99884918E+00 0.99922281E+00 0.99948645E+00 + 0.99966888E+00 0.99979222E+00 0.99987340E+00 0.99992525E+00 0.99995729E+00 + 0.99997642E+00 0.99998744E+00 0.99999354E+00 0.99999680E+00 0.99999848E+00 + 0.99999930E+00 0.99999969E+00 0.99999987E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.63559778E-03 0.19067933E-02 0.38135867E-02 0.63559778E-02 + 0.95339667E-02 0.13347553E-01 0.17796738E-01 0.22881520E-01 0.28601900E-01 + 0.34957878E-01 0.41949453E-01 0.49576627E-01 0.57839398E-01 0.66737767E-01 + 0.76271733E-01 0.86441298E-01 0.97246460E-01 0.10868722E+00 0.12076358E+00 + 0.13347553E+00 0.14682309E+00 0.16080624E+00 0.17542499E+00 0.19067933E+00 + 0.20656928E+00 0.22309482E+00 0.24025596E+00 0.25805269E+00 0.27648501E+00 + 0.29555282E+00 0.31525589E+00 0.33559363E+00 0.35656487E+00 0.37816751E+00 + 0.40039799E+00 0.42325076E+00 0.44671738E+00 0.47078464E+00 0.49543142E+00 + 0.52062534E+00 0.54632003E+00 0.57245247E+00 0.59893971E+00 0.62567604E+00 + 0.65253128E+00 0.67935085E+00 0.70595808E+00 0.73215927E+00 0.75775079E+00 + 0.78252731E+00 0.80628980E+00 0.82885296E+00 0.85005208E+00 0.86975089E+00 + 0.88785030E+00 0.90429487E+00 0.91907366E+00 0.93221584E+00 0.94378339E+00 + 0.95386259E+00 0.96255522E+00 0.96997013E+00 0.97621752E+00 0.98140742E+00 + 0.98565144E+00 0.98906414E+00 0.99176234E+00 0.99386185E+00 0.99547267E+00 + 0.99669372E+00 0.99760952E+00 0.99828950E+00 0.99878931E+00 0.99915291E+00 + 0.99941465E+00 0.99960107E+00 0.99973238E+00 0.99982371E+00 0.99988632E+00 + 0.99992846E+00 0.99995619E+00 0.99997397E+00 0.99998503E+00 0.99999168E+00 + 0.99999554E+00 0.99999769E+00 0.99999885E+00 0.99999945E+00 0.99999975E+00 + 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.62426402E-03 0.18727921E-02 0.37455841E-02 0.62426402E-02 + 0.93639603E-02 0.13109544E-01 0.17479393E-01 0.22473505E-01 0.28091881E-01 + 0.34334521E-01 0.41201425E-01 0.48692593E-01 0.56808026E-01 0.65547722E-01 + 0.74911682E-01 0.84899906E-01 0.95512395E-01 0.10674915E+00 0.11861016E+00 + 0.13109544E+00 0.14420499E+00 0.15793880E+00 0.17229687E+00 0.18727921E+00 + 0.20288581E+00 0.21911667E+00 0.23597180E+00 0.25345119E+00 0.27155485E+00 + 0.29028276E+00 0.30963488E+00 0.32961101E+00 0.35021054E+00 0.37143201E+00 + 0.39327261E+00 0.41572747E+00 0.43878871E+00 0.46244420E+00 0.48667671E+00 + 0.51146358E+00 0.53677566E+00 0.56257302E+00 0.58879739E+00 0.61536504E+00 + 0.64216341E+00 0.66905049E+00 0.69585720E+00 0.72239329E+00 0.74845539E+00 + 0.77383501E+00 0.79832520E+00 0.82172370E+00 0.84383241E+00 0.86446182E+00 + 0.88344925E+00 0.90068361E+00 0.91611958E+00 0.92977487E+00 0.94171707E+00 + 0.95204921E+00 0.96089776E+00 0.96840284E+00 0.97471002E+00 0.97996366E+00 + 0.98430168E+00 0.98785138E+00 0.99072711E+00 0.99302992E+00 0.99484868E+00 + 0.99626175E+00 0.99733901E+00 0.99814332E+00 0.99873092E+00 0.99915091E+00 + 0.99944457E+00 0.99964533E+00 0.99977932E+00 0.99986646E+00 0.99992155E+00 + 0.99995533E+00 0.99997538E+00 0.99998688E+00 0.99999324E+00 0.99999664E+00 + 0.99999839E+00 0.99999926E+00 0.99999967E+00 0.99999986E+00 0.99999994E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.61613858E-03 0.18484157E-02 0.36968315E-02 0.61613858E-02 + 0.92420787E-02 0.12938910E-01 0.17251880E-01 0.22180989E-01 0.27726236E-01 + 0.33887622E-01 0.40665146E-01 0.48058809E-01 0.56068611E-01 0.64694551E-01 + 0.73936629E-01 0.83794847E-01 0.94269203E-01 0.10535970E+00 0.11706633E+00 + 0.12938910E+00 0.14232801E+00 0.15588306E+00 0.17005425E+00 0.18484157E+00 + 0.20024504E+00 0.21626464E+00 0.23290038E+00 0.25015226E+00 0.26802028E+00 + 0.28650444E+00 0.30560473E+00 0.32532117E+00 0.34565372E+00 0.36660235E+00 + 0.38816677E+00 0.41034584E+00 0.43313612E+00 0.45652999E+00 0.48051434E+00 + 0.50506970E+00 0.53016834E+00 0.55576984E+00 0.58181360E+00 0.60821140E+00 + 0.63484475E+00 0.66156922E+00 0.68822229E+00 0.71462812E+00 0.74059821E+00 + 0.76593406E+00 0.79043549E+00 0.81391029E+00 0.83618130E+00 0.85709271E+00 + 0.87651703E+00 0.89436014E+00 0.91056232E+00 0.92509716E+00 0.93797051E+00 + 0.94921982E+00 0.95891314E+00 0.96714657E+00 0.97403925E+00 0.97972611E+00 + 0.98435005E+00 0.98805524E+00 0.99098167E+00 0.99326103E+00 0.99501354E+00 + 0.99634557E+00 0.99734822E+00 0.99809684E+00 0.99865172E+00 0.99905970E+00 + 0.99935649E+00 0.99956928E+00 0.99971889E+00 0.99982157E+00 0.99989008E+00 + 0.99993439E+00 0.99996209E+00 0.99997882E+00 0.99998856E+00 0.99999404E+00 + 0.99999700E+00 0.99999854E+00 0.99999932E+00 0.99999969E+00 0.99999987E+00 + 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.60569634E-03 0.18170890E-02 0.36341780E-02 0.60569634E-02 + 0.90854450E-02 0.12719623E-01 0.16959497E-01 0.21805068E-01 0.27256335E-01 + 0.33313298E-01 0.39975958E-01 0.47244314E-01 0.55118367E-01 0.63598115E-01 + 0.72683560E-01 0.82374702E-01 0.92671539E-01 0.10357407E+00 0.11508230E+00 + 0.12719623E+00 0.13991585E+00 0.15324117E+00 0.16717219E+00 0.18170890E+00 + 0.19685131E+00 0.21259941E+00 0.22895321E+00 0.24591271E+00 0.26347791E+00 + 0.28164878E+00 0.30042524E+00 0.31980700E+00 0.33979354E+00 0.36038422E+00 + 0.38157827E+00 0.40337441E+00 0.42577013E+00 0.44876015E+00 0.47233421E+00 + 0.49647469E+00 0.52115356E+00 0.54632838E+00 0.57193893E+00 0.59790607E+00 + 0.62413102E+00 0.65049336E+00 0.67684938E+00 0.70303215E+00 0.72885409E+00 + 0.75411300E+00 0.77860168E+00 0.80211927E+00 0.82448151E+00 0.84552962E+00 + 0.86513771E+00 0.88321800E+00 0.89972093E+00 0.91463062E+00 0.92795939E+00 + 0.93974444E+00 0.95004674E+00 0.95895090E+00 0.96656365E+00 0.97300875E+00 + 0.97841794E+00 0.98292068E+00 0.98663667E+00 0.98967315E+00 0.99212615E+00 + 0.99408291E+00 0.99562311E+00 0.99681871E+00 0.99773305E+00 0.99842048E+00 + 0.99892691E+00 0.99929100E+00 0.99954543E+00 0.99971765E+00 0.99983029E+00 + 0.99990137E+00 0.99994460E+00 0.99996994E+00 0.99998425E+00 0.99999203E+00 + 0.99999611E+00 0.99999817E+00 0.99999917E+00 0.99999964E+00 0.99999985E+00 + 0.99999994E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.59971572E-03 0.17991472E-02 0.35982943E-02 0.59971572E-02 + 0.89957358E-02 0.12594030E-01 0.16792040E-01 0.21589766E-01 0.26987208E-01 + 0.32984365E-01 0.39581238E-01 0.46777826E-01 0.54574131E-01 0.62970151E-01 + 0.71965887E-01 0.81561338E-01 0.91756506E-01 0.10255139E+00 0.11394599E+00 + 0.12594030E+00 0.13853433E+00 0.15172808E+00 0.16552154E+00 0.17991472E+00 + 0.19490761E+00 0.21050022E+00 0.22669254E+00 0.24348458E+00 0.26087633E+00 + 0.27886778E+00 0.29745888E+00 0.31664949E+00 0.33643937E+00 0.35682806E+00 + 0.37781477E+00 0.39939787E+00 0.42157423E+00 0.44433874E+00 0.46768369E+00 + 0.49159679E+00 0.51605734E+00 0.54103121E+00 0.56646614E+00 0.59229005E+00 + 0.61841310E+00 0.64473004E+00 0.67111868E+00 0.69743576E+00 0.72351438E+00 + 0.74916535E+00 0.77418261E+00 0.79835288E+00 0.82146757E+00 0.84333367E+00 + 0.86378172E+00 0.88267279E+00 0.89990690E+00 0.91543188E+00 0.92924791E+00 + 0.94140302E+00 0.95198044E+00 0.96108419E+00 0.96882851E+00 0.97533318E+00 + 0.98072274E+00 0.98512596E+00 0.98867283E+00 0.99148979E+00 0.99369537E+00 + 0.99539738E+00 0.99669164E+00 0.99766134E+00 0.99837688E+00 0.99889626E+00 + 0.99926626E+00 0.99952420E+00 0.99969960E+00 0.99981564E+00 0.99989014E+00 + 0.99993649E+00 0.99996442E+00 0.99998068E+00 0.99998985E+00 0.99999484E+00 + 0.99999746E+00 0.99999879E+00 0.99999945E+00 0.99999976E+00 0.99999990E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.59966077E-03 0.17989823E-02 0.35979646E-02 0.59966077E-02 + 0.89949115E-02 0.12592876E-01 0.16790502E-01 0.21587788E-01 0.26984735E-01 + 0.32981342E-01 0.39577611E-01 0.46773540E-01 0.54569130E-01 0.62964381E-01 + 0.71959292E-01 0.81553864E-01 0.91748097E-01 0.10254199E+00 0.11393555E+00 + 0.12592876E+00 0.13852164E+00 0.15171417E+00 0.16550637E+00 0.17989823E+00 + 0.19488975E+00 0.21048093E+00 0.22667177E+00 0.24346227E+00 0.26085243E+00 + 0.27884226E+00 0.29743174E+00 0.31662084E+00 0.33640939E+00 0.35679677E+00 + 0.37778170E+00 0.39936217E+00 0.42153559E+00 0.44429822E+00 0.46764349E+00 + 0.49155900E+00 0.51602290E+00 0.54099942E+00 0.56643479E+00 0.59225544E+00 + 0.61836926E+00 0.64466873E+00 0.67103284E+00 0.69732457E+00 0.72338551E+00 + 0.74903233E+00 0.77405784E+00 0.79823816E+00 0.82134665E+00 0.84317339E+00 + 0.86354493E+00 0.88233721E+00 0.89947785E+00 0.91494097E+00 0.92873963E+00 + 0.94091788E+00 0.95154292E+00 0.96069918E+00 0.96848539E+00 0.97501372E+00 + 0.98040901E+00 0.98480587E+00 0.98834273E+00 0.99115381E+00 0.99336205E+00 + 0.99507564E+00 0.99638819E+00 0.99738032E+00 0.99812083E+00 0.99866732E+00 + 0.99906657E+00 0.99935547E+00 0.99956231E+00 0.99970851E+00 0.99981014E+00 + 0.99987936E+00 0.99992537E+00 0.99995514E+00 0.99997383E+00 0.99998520E+00 + 0.99999189E+00 0.99999570E+00 0.99999779E+00 0.99999891E+00 0.99999948E+00 + 0.99999976E+00 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.58857884E-03 0.17657365E-02 0.35314731E-02 0.58857884E-02 + 0.88286826E-02 0.12360156E-01 0.16480208E-01 0.21188838E-01 0.26486048E-01 + 0.32371836E-01 0.38846204E-01 0.45909150E-01 0.53560675E-01 0.61800778E-01 + 0.70629461E-01 0.80046723E-01 0.90052563E-01 0.10064698E+00 0.11182998E+00 + 0.12360156E+00 0.13596171E+00 0.14891045E+00 0.16244776E+00 0.17657365E+00 + 0.19128812E+00 0.20659117E+00 0.22248280E+00 0.23896301E+00 0.25603180E+00 + 0.27368916E+00 0.29193506E+00 0.31076943E+00 0.33019200E+00 0.35020226E+00 + 0.37079912E+00 0.39198055E+00 0.41374292E+00 0.43607955E+00 0.45897883E+00 + 0.48242299E+00 0.50638778E+00 0.53084199E+00 0.55574597E+00 0.58104869E+00 + 0.60668262E+00 0.63255721E+00 0.65855569E+00 0.68453982E+00 0.71035781E+00 + 0.73584650E+00 0.76082888E+00 0.78511411E+00 0.80850311E+00 0.83079869E+00 + 0.85181832E+00 0.87140656E+00 0.88944479E+00 0.90585648E+00 0.92060720E+00 + 0.93370167E+00 0.94518090E+00 0.95511906E+00 0.96361824E+00 0.97080040E+00 + 0.97679822E+00 0.98174719E+00 0.98578055E+00 0.98902693E+00 0.99160871E+00 + 0.99363940E+00 0.99522071E+00 0.99644051E+00 0.99737260E+00 0.99807809E+00 + 0.99860724E+00 0.99900092E+00 0.99929171E+00 0.99950491E+00 0.99965976E+00 + 0.99977080E+00 0.99984906E+00 0.99990307E+00 0.99993940E+00 0.99996318E+00 + 0.99997828E+00 0.99998757E+00 0.99999310E+00 0.99999629E+00 0.99999807E+00 + 0.99999903E+00 0.99999952E+00 0.99999978E+00 0.99999990E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.58094404E-03 0.17428321E-02 0.34856642E-02 0.58094404E-02 + 0.87141605E-02 0.12199825E-01 0.16266433E-01 0.20913985E-01 0.26142482E-01 + 0.31951922E-01 0.38342306E-01 0.45313635E-01 0.52865907E-01 0.60999124E-01 + 0.69713284E-01 0.79008389E-01 0.88884438E-01 0.99341430E-01 0.11037937E+00 + 0.12199825E+00 0.13419807E+00 0.14697884E+00 0.16034055E+00 0.17428321E+00 + 0.18880681E+00 0.20391136E+00 0.21959685E+00 0.23586328E+00 0.25271063E+00 + 0.27013884E+00 0.28814774E+00 0.30673698E+00 0.32590608E+00 0.34565442E+00 + 0.36598130E+00 0.38688584E+00 0.40836657E+00 0.43042075E+00 0.45304322E+00 + 0.47622493E+00 0.49995116E+00 0.52419921E+00 0.54893584E+00 0.57411462E+00 + 0.59967265E+00 0.62552506E+00 0.65155886E+00 0.67763002E+00 0.70356697E+00 + 0.72917945E+00 0.75426818E+00 0.77863235E+00 0.80207732E+00 0.82442355E+00 + 0.84551360E+00 0.86521623E+00 0.88343077E+00 0.90009090E+00 0.91516372E+00 + 0.92864585E+00 0.94056237E+00 0.95096823E+00 0.95994683E+00 0.96760349E+00 + 0.97405677E+00 0.97943136E+00 0.98385395E+00 0.98745047E+00 0.99034262E+00 + 0.99264405E+00 0.99445730E+00 0.99587217E+00 0.99696531E+00 0.99780068E+00 + 0.99843091E+00 0.99889921E+00 0.99924118E+00 0.99948622E+00 0.99965840E+00 + 0.99977700E+00 0.99985711E+00 0.99991016E+00 0.99994462E+00 0.99996654E+00 + 0.99998022E+00 0.99998856E+00 0.99999353E+00 0.99999643E+00 0.99999808E+00 + 0.99999900E+00 0.99999949E+00 0.99999975E+00 0.99999988E+00 0.99999994E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.57726832E-03 0.17318049E-02 0.34636099E-02 0.57726832E-02 + 0.86590247E-02 0.12122635E-01 0.16163513E-01 0.20781659E-01 0.25977074E-01 + 0.31749757E-01 0.38099709E-01 0.45026929E-01 0.52531417E-01 0.60613173E-01 + 0.69272198E-01 0.78508491E-01 0.88322052E-01 0.98712882E-01 0.10968098E+00 + 0.12122635E+00 0.13334898E+00 0.14604888E+00 0.15932606E+00 0.17318049E+00 + 0.18761220E+00 0.20262118E+00 0.21820742E+00 0.23437094E+00 0.25111172E+00 + 0.26842977E+00 0.28632508E+00 0.30479767E+00 0.32384752E+00 0.34347461E+00 + 0.36367884E+00 0.38445977E+00 0.40581590E+00 0.42774357E+00 0.45023602E+00 + 0.47328245E+00 0.49686699E+00 0.52096688E+00 0.54554974E+00 0.57056970E+00 + 0.59596292E+00 0.62164411E+00 0.64750457E+00 0.67341261E+00 0.69921685E+00 + 0.72475007E+00 0.74983158E+00 0.77427056E+00 0.79787412E+00 0.82045892E+00 + 0.84186229E+00 0.86194884E+00 0.88061131E+00 0.89776846E+00 0.91336440E+00 + 0.92737109E+00 0.93979137E+00 0.95065914E+00 0.96003688E+00 0.96801260E+00 + 0.97469714E+00 0.98022011E+00 0.98472294E+00 0.98834985E+00 0.99123874E+00 + 0.99351404E+00 0.99528339E+00 0.99663808E+00 0.99765586E+00 0.99840375E+00 + 0.99893980E+00 0.99931383E+00 0.99956755E+00 0.99973473E+00 0.99984168E+00 + 0.99990810E+00 0.99994813E+00 0.99997154E+00 0.99998482E+00 0.99999214E+00 + 0.99999605E+00 0.99999807E+00 0.99999909E+00 0.99999958E+00 0.99999981E+00 + 0.99999992E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.57422940E-03 0.17226882E-02 0.34453764E-02 0.57422940E-02 + 0.86134410E-02 0.12058817E-01 0.16078423E-01 0.20672258E-01 0.25840323E-01 + 0.31582617E-01 0.37899140E-01 0.44789893E-01 0.52254875E-01 0.60294087E-01 + 0.68907528E-01 0.78095198E-01 0.87857098E-01 0.98193227E-01 0.10910359E+00 + 0.12058817E+00 0.13264699E+00 0.14528004E+00 0.15848731E+00 0.17226882E+00 + 0.18662455E+00 0.20155452E+00 0.21705871E+00 0.23313714E+00 0.24978979E+00 + 0.26701667E+00 0.28481778E+00 0.30319312E+00 0.32214269E+00 0.34166642E+00 + 0.36176405E+00 0.38243488E+00 0.40367741E+00 0.42548904E+00 0.44786565E+00 + 0.47080085E+00 0.49428376E+00 0.51829611E+00 0.54280977E+00 0.56778388E+00 + 0.59316104E+00 0.61886381E+00 0.64479266E+00 0.67082393E+00 0.69680745E+00 + 0.72256780E+00 0.74791187E+00 0.77263865E+00 0.79654555E+00 0.81943240E+00 + 0.84110908E+00 0.86140742E+00 0.88019301E+00 0.89737332E+00 0.91290102E+00 + 0.92677257E+00 0.93902378E+00 0.94972312E+00 0.95896283E+00 0.96685007E+00 + 0.97350159E+00 0.97904116E+00 0.98359682E+00 0.98729663E+00 0.99026449E+00 + 0.99261696E+00 0.99446060E+00 0.99588987E+00 0.99698587E+00 0.99781654E+00 + 0.99843806E+00 0.99889664E+00 0.99923016E+00 0.99946931E+00 0.99963855E+00 + 0.99975686E+00 0.99983862E+00 0.99989447E+00 0.99993213E+00 0.99995715E+00 + 0.99997350E+00 0.99998397E+00 0.99999053E+00 0.99999454E+00 0.99999694E+00 + 0.99999833E+00 0.99999911E+00 0.99999954E+00 0.99999977E+00 0.99999989E+00 + 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.57292644E-03 0.17187793E-02 0.34375586E-02 0.57292644E-02 + 0.85938966E-02 0.12031455E-01 0.16041940E-01 0.20625352E-01 0.25781690E-01 + 0.31510954E-01 0.37813145E-01 0.44688262E-01 0.52136306E-01 0.60157276E-01 + 0.68751172E-01 0.77917995E-01 0.87657745E-01 0.97970421E-01 0.10885602E+00 + 0.12031455E+00 0.13234601E+00 0.14495039E+00 0.15812770E+00 0.17187793E+00 + 0.18620109E+00 0.20109718E+00 0.21656619E+00 0.23260813E+00 0.24922300E+00 + 0.26641079E+00 0.28417151E+00 0.30250516E+00 0.32141171E+00 0.34089109E+00 + 0.36094291E+00 0.38156627E+00 0.40275938E+00 0.42451927E+00 0.44684074E+00 + 0.46971443E+00 0.49312457E+00 0.51704763E+00 0.54145109E+00 0.56628973E+00 + 0.59150011E+00 0.61699668E+00 0.64267170E+00 0.66839729E+00 0.69402804E+00 + 0.71940507E+00 0.74436159E+00 0.76872754E+00 0.79233217E+00 0.81500715E+00 + 0.83659074E+00 0.85693264E+00 0.87589990E+00 0.89338444E+00 0.90931067E+00 + 0.92364110E+00 0.93637754E+00 0.94755664E+00 0.95724327E+00 0.96552599E+00 + 0.97251408E+00 0.97833294E+00 0.98311673E+00 0.98700079E+00 0.99011561E+00 + 0.99258253E+00 0.99451123E+00 0.99599883E+00 0.99712990E+00 0.99797689E+00 + 0.99860077E+00 0.99905199E+00 0.99937171E+00 0.99959319E+00 0.99974290E+00 + 0.99984151E+00 0.99990474E+00 0.99994419E+00 0.99996815E+00 0.99998229E+00 + 0.99999041E+00 0.99999495E+00 0.99999741E+00 0.99999871E+00 0.99999938E+00 + 0.99999971E+00 0.99999987E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.56847803E-03 0.17054341E-02 0.34108682E-02 0.56847803E-02 + 0.85271705E-02 0.11938039E-01 0.15917385E-01 0.20465209E-01 0.25581512E-01 + 0.31266292E-01 0.37519550E-01 0.44341287E-01 0.51731501E-01 0.59690194E-01 + 0.68217364E-01 0.77313013E-01 0.86977139E-01 0.97209744E-01 0.10801083E+00 + 0.11938039E+00 0.13131843E+00 0.14382494E+00 0.15689994E+00 0.17054341E+00 + 0.18475536E+00 0.19953579E+00 0.21488470E+00 0.23080208E+00 0.24728794E+00 + 0.26434228E+00 0.28196508E+00 0.30015622E+00 0.31891537E+00 0.33824185E+00 + 0.35813443E+00 0.37859115E+00 0.39960939E+00 0.42118606E+00 0.44331744E+00 + 0.46599793E+00 0.48921768E+00 0.51296043E+00 0.53720202E+00 0.56190813E+00 + 0.58702939E+00 0.61249538E+00 0.63821071E+00 0.66405391E+00 0.68987865E+00 + 0.71551790E+00 0.74079169E+00 0.76551630E+00 0.78951114E+00 0.81260044E+00 + 0.83461197E+00 0.85537944E+00 0.87475127E+00 0.89260079E+00 0.90883455E+00 + 0.92339978E+00 0.93629044E+00 0.94754730E+00 0.95725027E+00 0.96550690E+00 + 0.97244228E+00 0.97819220E+00 0.98289837E+00 0.98670431E+00 0.98975031E+00 + 0.99216758E+00 0.99407264E+00 0.99556432E+00 0.99672376E+00 0.99761659E+00 + 0.99829584E+00 0.99880481E+00 0.99917927E+00 0.99944902E+00 0.99963882E+00 + 0.99976903E+00 0.99985602E+00 0.99991256E+00 0.99994828E+00 0.99997022E+00 + 0.99998331E+00 0.99999090E+00 0.99999518E+00 0.99999751E+00 0.99999876E+00 + 0.99999940E+00 0.99999971E+00 0.99999987E+00 0.99999994E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + NUCLEUS 56 26 40 18 + 32.04556 0.15000 4.22785 3.78354 + 0.00000000E+00 0.48142312E-03 0.14442694E-02 0.28885387E-02 0.48142312E-02 + 0.72213468E-02 0.10109885E-01 0.13479847E-01 0.17331232E-01 0.21664040E-01 + 0.26478271E-01 0.31773926E-01 0.37551003E-01 0.43809504E-01 0.50549427E-01 + 0.57770774E-01 0.65473544E-01 0.73657737E-01 0.82323353E-01 0.91470392E-01 + 0.10109885E+00 0.11120874E+00 0.12180005E+00 0.13287278E+00 0.14442694E+00 + 0.15646251E+00 0.16897951E+00 0.18197794E+00 0.19545779E+00 0.20941906E+00 + 0.22386175E+00 0.23878587E+00 0.25419141E+00 0.27007837E+00 0.28644676E+00 + 0.30329656E+00 0.32062779E+00 0.33844043E+00 0.35673443E+00 0.37550962E+00 + 0.39476559E+00 0.41450163E+00 0.43471659E+00 0.45540834E+00 0.47657249E+00 + 0.49820110E+00 0.52028172E+00 0.54279631E+00 0.56571896E+00 0.58901229E+00 + 0.61262399E+00 0.63648420E+00 0.66050352E+00 0.68457286E+00 0.70856548E+00 + 0.73234085E+00 0.75575026E+00 0.77864193E+00 0.80086240E+00 0.82225579E+00 + 0.84266516E+00 0.86193742E+00 0.87993239E+00 0.89653687E+00 0.91167869E+00 + 0.92533194E+00 0.93750985E+00 0.94825197E+00 0.95761478E+00 0.96566939E+00 + 0.97250361E+00 0.97822313E+00 0.98294803E+00 0.98680466E+00 0.98991668E+00 + 0.99239870E+00 0.99435348E+00 0.99587174E+00 0.99703302E+00 0.99790657E+00 + 0.99855207E+00 0.99902015E+00 0.99935277E+00 0.99958387E+00 0.99974036E+00 + 0.99984325E+00 0.99990865E+00 0.99994872E+00 0.99997231E+00 0.99998563E+00 + 0.99999284E+00 0.99999658E+00 0.99999844E+00 0.99999931E+00 0.99999971E+00 + 0.99999989E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.47561061E-03 0.14268318E-02 0.28536637E-02 0.47561061E-02 + 0.71341592E-02 0.99878229E-02 0.13317097E-01 0.17121982E-01 0.21402478E-01 + 0.26158584E-01 0.31390300E-01 0.37097628E-01 0.43280566E-01 0.49939114E-01 + 0.57073274E-01 0.64683043E-01 0.72768424E-01 0.81329415E-01 0.90366017E-01 + 0.99878229E-01 0.10986605E+00 0.12032949E+00 0.13126853E+00 0.14268318E+00 + 0.15457345E+00 0.16693933E+00 0.17978081E+00 0.19309791E+00 0.20689062E+00 + 0.22115894E+00 0.23590286E+00 0.25112240E+00 0.26681755E+00 0.28298831E+00 + 0.29963466E+00 0.31675660E+00 0.33435410E+00 0.35242707E+00 0.37097539E+00 + 0.38999884E+00 0.40949706E+00 0.42946946E+00 0.44991478E+00 0.47083028E+00 + 0.49221057E+00 0.51404627E+00 0.53632220E+00 0.55901519E+00 0.58209209E+00 + 0.60550900E+00 0.62921113E+00 0.65313145E+00 0.67718604E+00 0.70126766E+00 + 0.72524206E+00 0.74895037E+00 0.77221735E+00 0.79486140E+00 0.81670058E+00 + 0.83755512E+00 0.85725301E+00 0.87564204E+00 0.89260299E+00 0.90805708E+00 + 0.92196735E+00 0.93433792E+00 0.94521231E+00 0.95466852E+00 0.96280985E+00 + 0.96975391E+00 0.97562320E+00 0.98053885E+00 0.98461733E+00 0.98796897E+00 + 0.99069689E+00 0.99289552E+00 0.99464917E+00 0.99603153E+00 0.99710641E+00 + 0.99792906E+00 0.99854750E+00 0.99900334E+00 0.99933224E+00 0.99956408E+00 + 0.99972337E+00 0.99982976E+00 0.99989862E+00 0.99994170E+00 0.99996768E+00 + 0.99998276E+00 0.99999115E+00 0.99999564E+00 0.99999794E+00 0.99999907E+00 + 0.99999960E+00 0.99999983E+00 0.99999993E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.47735158E-03 0.14320547E-02 0.28641095E-02 0.47735158E-02 + 0.71602737E-02 0.10024383E-01 0.13365844E-01 0.17184657E-01 0.21480821E-01 + 0.26254337E-01 0.31505204E-01 0.37233423E-01 0.43438993E-01 0.50121916E-01 + 0.57282189E-01 0.64919814E-01 0.73034791E-01 0.81627120E-01 0.90696800E-01 + 0.10024383E+00 0.11026821E+00 0.12076995E+00 0.13174904E+00 0.14320547E+00 + 0.15513926E+00 0.16755040E+00 0.18043890E+00 0.19380474E+00 0.20764794E+00 + 0.22196848E+00 0.23676638E+00 0.25204163E+00 0.26779423E+00 0.28402419E+00 + 0.30073149E+00 0.31791615E+00 0.33557814E+00 0.35371745E+00 0.37233399E+00 + 0.39142748E+00 0.41099731E+00 0.43104231E+00 0.45156048E+00 0.47254840E+00 + 0.49400027E+00 0.51590654E+00 0.53825185E+00 0.56101258E+00 0.58415464E+00 + 0.60763175E+00 0.63138337E+00 0.65533201E+00 0.67938128E+00 0.70341587E+00 + 0.72730240E+00 0.75089036E+00 0.77401506E+00 0.79650356E+00 0.81818260E+00 + 0.83888717E+00 0.85846768E+00 0.87679462E+00 0.89376235E+00 0.90929427E+00 + 0.92334813E+00 0.93591739E+00 0.94702747E+00 0.95672990E+00 0.96509700E+00 + 0.97221771E+00 0.97819368E+00 0.98313542E+00 0.98715830E+00 0.99037885E+00 + 0.99291138E+00 0.99486541E+00 0.99634352E+00 0.99743945E+00 0.99823625E+00 + 0.99880488E+00 0.99920363E+00 0.99947861E+00 0.99966512E+00 0.99978941E+00 + 0.99987066E+00 0.99992261E+00 0.99995501E+00 0.99997465E+00 0.99998618E+00 + 0.99999273E+00 0.99999632E+00 0.99999820E+00 0.99999916E+00 0.99999962E+00 + 0.99999984E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.46925249E-03 0.14077575E-02 0.28155149E-02 0.46925249E-02 + 0.70387873E-02 0.98543022E-02 0.13139070E-01 0.16893090E-01 0.21116362E-01 + 0.25808887E-01 0.30970664E-01 0.36601694E-01 0.42701976E-01 0.49271511E-01 + 0.56310299E-01 0.63818338E-01 0.71795631E-01 0.80242175E-01 0.89157973E-01 + 0.98543022E-01 0.10839732E+00 0.11872088E+00 0.12951369E+00 0.14077575E+00 + 0.15250706E+00 0.16470762E+00 0.17737744E+00 0.19051651E+00 0.20412483E+00 + 0.21820241E+00 0.23274923E+00 0.24776531E+00 0.26325065E+00 0.27920523E+00 + 0.29562907E+00 0.31252215E+00 0.32988449E+00 0.34771605E+00 0.36601677E+00 + 0.38478642E+00 0.40402433E+00 0.42372896E+00 0.44389730E+00 0.46452461E+00 + 0.48560431E+00 0.50712771E+00 0.52908298E+00 0.55145260E+00 0.57421028E+00 + 0.59731781E+00 0.62072183E+00 0.64435076E+00 0.66811313E+00 0.69189789E+00 + 0.71557628E+00 0.73900465E+00 0.76202815E+00 0.78448490E+00 0.80621111E+00 + 0.82704772E+00 0.84684801E+00 0.86548407E+00 0.88284987E+00 0.89886247E+00 + 0.91346510E+00 0.92663274E+00 0.93837603E+00 0.94873909E+00 0.95779136E+00 + 0.96561757E+00 0.97231000E+00 0.97796459E+00 0.98268002E+00 0.98655771E+00 + 0.98970091E+00 0.99221230E+00 0.99419075E+00 0.99572799E+00 0.99690615E+00 + 0.99779636E+00 0.99845870E+00 0.99894303E+00 0.99929039E+00 0.99953423E+00 + 0.99970147E+00 0.99981340E+00 0.99988640E+00 0.99993273E+00 0.99996131E+00 + 0.99997842E+00 0.99998834E+00 0.99999391E+00 0.99999692E+00 0.99999850E+00 + 0.99999930E+00 0.99999968E+00 0.99999986E+00 0.99999994E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.46655665E-03 0.13996699E-02 0.27993399E-02 0.46655665E-02 + 0.69983497E-02 0.97976895E-02 0.13063586E-01 0.16796039E-01 0.20995049E-01 + 0.25660615E-01 0.30792739E-01 0.36391418E-01 0.42456655E-01 0.48988448E-01 + 0.55986797E-01 0.63451704E-01 0.71383167E-01 0.79781186E-01 0.88645763E-01 + 0.97976895E-01 0.10777459E+00 0.11803883E+00 0.12876963E+00 0.13996699E+00 + 0.15163091E+00 0.16376138E+00 0.17635841E+00 0.18942200E+00 0.20295214E+00 + 0.21694884E+00 0.23141210E+00 0.24634191E+00 0.26173828E+00 0.27760120E+00 + 0.29393066E+00 0.31072667E+00 0.32798920E+00 0.34571820E+00 0.36391353E+00 + 0.38257490E+00 0.40170186E+00 0.42129382E+00 0.44134996E+00 0.46186864E+00 + 0.48284617E+00 0.50427523E+00 0.52614339E+00 0.54843165E+00 0.57111272E+00 + 0.59414852E+00 0.61748699E+00 0.64105901E+00 0.66477651E+00 0.68853235E+00 + 0.71220246E+00 0.73564972E+00 0.75872820E+00 0.78128595E+00 0.80316685E+00 + 0.82421345E+00 0.84427147E+00 0.86319597E+00 0.88085935E+00 0.89715957E+00 + 0.91202640E+00 0.92542435E+00 0.93735333E+00 0.94784756E+00 0.95697296E+00 + 0.96482187E+00 0.97150475E+00 0.97714060E+00 0.98184894E+00 0.98574490E+00 + 0.98893692E+00 0.99152545E+00 0.99360173E+00 0.99524698E+00 0.99653236E+00 + 0.99752005E+00 0.99826450E+00 0.99881353E+00 0.99920884E+00 0.99948616E+00 + 0.99967540E+00 0.99980079E+00 0.99988137E+00 0.99993153E+00 0.99996172E+00 + 0.99997930E+00 0.99998918E+00 0.99999453E+00 0.99999734E+00 0.99999875E+00 + 0.99999943E+00 0.99999975E+00 0.99999990E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.45929577E-03 0.13778873E-02 0.27557746E-02 0.45929577E-02 + 0.68894365E-02 0.96452111E-02 0.12860281E-01 0.16534648E-01 0.20668309E-01 + 0.25261267E-01 0.30313521E-01 0.35825070E-01 0.41795915E-01 0.48226055E-01 + 0.55115492E-01 0.62464224E-01 0.70272252E-01 0.78539576E-01 0.87266195E-01 + 0.96452111E-01 0.10609732E+00 0.11620183E+00 0.12676563E+00 0.13778873E+00 + 0.14927112E+00 0.16121281E+00 0.17361380E+00 0.18647408E+00 0.19979366E+00 + 0.21357253E+00 0.22781070E+00 0.24250816E+00 0.25766492E+00 0.27328098E+00 + 0.28935633E+00 0.30589098E+00 0.32288492E+00 0.34033814E+00 0.35825060E+00 + 0.37662220E+00 0.39545270E+00 0.41474164E+00 0.43448827E+00 0.45469136E+00 + 0.47534843E+00 0.49645468E+00 0.51800168E+00 0.53997588E+00 0.56235648E+00 + 0.58511228E+00 0.60819856E+00 0.63155512E+00 0.65510580E+00 0.67875879E+00 + 0.70240682E+00 0.72592673E+00 0.74917860E+00 0.77200648E+00 0.79424268E+00 + 0.81571610E+00 0.83626270E+00 0.85573454E+00 0.87400485E+00 0.89096942E+00 + 0.90654752E+00 0.92068457E+00 0.93335633E+00 0.94457228E+00 0.95437590E+00 + 0.96284082E+00 0.97006358E+00 0.97615515E+00 0.98123321E+00 0.98541641E+00 + 0.98882030E+00 0.99155450E+00 0.99372071E+00 0.99541150E+00 0.99670979E+00 + 0.99768885E+00 0.99841254E+00 0.99893578E+00 0.99930498E+00 0.99955861E+00 + 0.99972784E+00 0.99983730E+00 0.99990579E+00 0.99994720E+00 0.99997138E+00 + 0.99998500E+00 0.99999241E+00 0.99999629E+00 0.99999825E+00 0.99999920E+00 + 0.99999965E+00 0.99999985E+00 0.99999994E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.45859758E-03 0.13757927E-02 0.27515855E-02 0.45859758E-02 + 0.68789637E-02 0.96305492E-02 0.12840732E-01 0.16509513E-01 0.20636891E-01 + 0.25222867E-01 0.30267440E-01 0.35770611E-01 0.41732380E-01 0.48152746E-01 + 0.55031710E-01 0.62369271E-01 0.70165430E-01 0.78420186E-01 0.87133540E-01 + 0.96305492E-01 0.10593604E+00 0.11602519E+00 0.12657293E+00 0.13757927E+00 + 0.14904421E+00 0.16096775E+00 0.17334989E+00 0.18619062E+00 0.19948995E+00 + 0.21324788E+00 0.22746440E+00 0.24213952E+00 0.25727324E+00 0.27286556E+00 + 0.28891648E+00 0.30542599E+00 0.32239410E+00 0.33982081E+00 0.35770611E+00 + 0.37605000E+00 0.39485245E+00 0.41411337E+00 0.43383252E+00 0.45400909E+00 + 0.47464098E+00 0.49572367E+00 0.51724889E+00 0.53920312E+00 0.56156567E+00 + 0.58430693E+00 0.60738676E+00 0.63075195E+00 0.65433192E+00 0.67803485E+00 + 0.70174617E+00 0.72532957E+00 0.74862930E+00 0.77147413E+00 0.79368383E+00 + 0.81507841E+00 0.83548945E+00 0.85477102E+00 0.87280756E+00 0.88951635E+00 + 0.90484583E+00 0.91877243E+00 0.93129777E+00 0.94244648E+00 0.95226399E+00 + 0.96081389E+00 0.96817481E+00 0.97443691E+00 0.97969889E+00 0.98406501E+00 + 0.98764182E+00 0.99053442E+00 0.99284299E+00 0.99466036E+00 0.99607075E+00 + 0.99714934E+00 0.99796203E+00 0.99856536E+00 0.99900661E+00 0.99932437E+00 + 0.99954941E+00 0.99970585E+00 0.99981239E+00 0.99988329E+00 0.99992930E+00 + 0.99995835E+00 0.99997617E+00 0.99998677E+00 0.99999288E+00 0.99999629E+00 + 0.99999813E+00 0.99999909E+00 0.99999957E+00 0.99999981E+00 0.99999991E+00 + 0.99999996E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.44727640E-03 0.13418292E-02 0.26836584E-02 0.44727640E-02 + 0.67091460E-02 0.93928044E-02 0.12523739E-01 0.16101950E-01 0.20127438E-01 + 0.24600202E-01 0.29520242E-01 0.34887559E-01 0.40702152E-01 0.46964022E-01 + 0.53673168E-01 0.60829590E-01 0.68433289E-01 0.76484264E-01 0.84982516E-01 + 0.93928044E-01 0.10332085E+00 0.11316093E+00 0.12344829E+00 0.13418292E+00 + 0.14536483E+00 0.15699402E+00 0.16907048E+00 0.18159422E+00 0.19456523E+00 + 0.20798353E+00 0.22184909E+00 0.23616194E+00 0.25092206E+00 0.26612945E+00 + 0.28178412E+00 0.29788605E+00 0.31443525E+00 0.33143172E+00 0.34887544E+00 + 0.36676641E+00 0.38510458E+00 0.40388985E+00 0.42312192E+00 0.44280005E+00 + 0.46292248E+00 0.48348590E+00 0.50448486E+00 0.52591127E+00 0.54775317E+00 + 0.56999260E+00 0.59260245E+00 0.61554204E+00 0.63875234E+00 0.66215246E+00 + 0.68563971E+00 0.70909343E+00 0.73238027E+00 0.75535776E+00 0.77787492E+00 + 0.79977267E+00 0.82088708E+00 0.84105623E+00 0.86012845E+00 0.87796969E+00 + 0.89446984E+00 0.90954876E+00 0.92316182E+00 0.93530318E+00 0.94600464E+00 + 0.95532975E+00 0.96336552E+00 0.97021462E+00 0.97598939E+00 0.98080731E+00 + 0.98478684E+00 0.98804347E+00 0.99068609E+00 0.99281395E+00 0.99451453E+00 + 0.99586279E+00 0.99692184E+00 0.99774447E+00 0.99837503E+00 0.99885096E+00 + 0.99920393E+00 0.99946058E+00 0.99964311E+00 0.99976981E+00 0.99985545E+00 + 0.99991173E+00 0.99994763E+00 0.99996983E+00 0.99998314E+00 0.99999086E+00 + 0.99999520E+00 0.99999756E+00 0.99999880E+00 0.99999943E+00 0.99999974E+00 + 0.99999988E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.44029726E-03 0.13208918E-02 0.26417836E-02 0.44029726E-02 + 0.66044590E-02 0.92462425E-02 0.12328323E-01 0.15850701E-01 0.19813377E-01 + 0.24216349E-01 0.29059619E-01 0.34343187E-01 0.40067051E-01 0.46231213E-01 + 0.52835672E-01 0.59880428E-01 0.67365481E-01 0.75290832E-01 0.83656480E-01 + 0.92462425E-01 0.10170867E+00 0.11139521E+00 0.12152204E+00 0.13208918E+00 + 0.14309661E+00 0.15454434E+00 0.16643237E+00 0.17876069E+00 0.19152931E+00 + 0.20473823E+00 0.21838744E+00 0.23247696E+00 0.24700676E+00 0.26197687E+00 + 0.27738728E+00 0.29323798E+00 0.30952898E+00 0.32626027E+00 0.34343186E+00 + 0.36104374E+00 0.37909585E+00 0.39758800E+00 0.41651961E+00 0.43588966E+00 + 0.45569671E+00 0.47593896E+00 0.49661399E+00 0.51771786E+00 0.53924338E+00 + 0.56117752E+00 0.58349840E+00 0.60617246E+00 0.62915176E+00 0.65237083E+00 + 0.67574367E+00 0.69916245E+00 0.72249887E+00 0.74560747E+00 0.76832986E+00 + 0.79049961E+00 0.81194779E+00 0.83250978E+00 0.85203390E+00 0.87038978E+00 + 0.88747366E+00 0.90320898E+00 0.91754442E+00 0.93045281E+00 0.94193250E+00 + 0.95200999E+00 0.96074112E+00 0.96820881E+00 0.97451716E+00 0.97978358E+00 + 0.98413063E+00 0.98767905E+00 0.99054295E+00 0.99282714E+00 0.99462620E+00 + 0.99602447E+00 0.99709632E+00 0.99790647E+00 0.99851026E+00 0.99895409E+00 + 0.99927597E+00 0.99950631E+00 0.99966890E+00 0.99978197E+00 0.99985931E+00 + 0.99991121E+00 0.99994529E+00 0.99996714E+00 0.99998079E+00 0.99998907E+00 + 0.99999396E+00 0.99999676E+00 0.99999832E+00 0.99999915E+00 0.99999959E+00 + 0.99999980E+00 0.99999991E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.43581090E-03 0.13074327E-02 0.26148654E-02 0.43581090E-02 + 0.65371635E-02 0.91520289E-02 0.12202705E-01 0.15689192E-01 0.19611491E-01 + 0.23969600E-01 0.28763520E-01 0.33993250E-01 0.39658792E-01 0.45760145E-01 + 0.52297308E-01 0.59270283E-01 0.66679068E-01 0.74523664E-01 0.82804071E-01 + 0.91520289E-01 0.10067232E+00 0.11026016E+00 0.12028381E+00 0.13074327E+00 + 0.14163854E+00 0.15296963E+00 0.16473652E+00 0.17693923E+00 0.18957774E+00 + 0.20265207E+00 0.21616221E+00 0.23010816E+00 0.24448992E+00 0.25930749E+00 + 0.27456087E+00 0.29025006E+00 0.30637506E+00 0.32293588E+00 0.33993250E+00 + 0.35736494E+00 0.37523317E+00 0.39353719E+00 0.41227695E+00 0.43145240E+00 + 0.45106334E+00 0.47110910E+00 0.49158762E+00 0.51249401E+00 0.53381859E+00 + 0.55554464E+00 0.57764622E+00 0.60008711E+00 0.62282049E+00 0.64578812E+00 + 0.66891747E+00 0.69211801E+00 0.71527974E+00 0.73827570E+00 0.76096697E+00 + 0.78320703E+00 0.80484415E+00 0.82572279E+00 0.84568630E+00 0.86458279E+00 + 0.88227380E+00 0.89864322E+00 0.91360441E+00 0.92710486E+00 0.93912892E+00 + 0.94969841E+00 0.95886996E+00 0.96672870E+00 0.97337974E+00 0.97893997E+00 + 0.98353148E+00 0.98727657E+00 0.99029368E+00 0.99269396E+00 0.99457880E+00 + 0.99603859E+00 0.99715241E+00 0.99798848E+00 0.99860497E+00 0.99905087E+00 + 0.99936683E+00 0.99958597E+00 0.99973465E+00 0.99983331E+00 0.99989735E+00 + 0.99993802E+00 0.99996330E+00 0.99997869E+00 0.99998787E+00 0.99999323E+00 + 0.99999630E+00 0.99999802E+00 0.99999896E+00 0.99999947E+00 0.99999974E+00 + 0.99999987E+00 0.99999994E+00 0.99999997E+00 0.99999999E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.42938874E-03 0.12881662E-02 0.25763325E-02 0.42938874E-02 + 0.64408312E-02 0.90171636E-02 0.12022885E-01 0.15457995E-01 0.19322494E-01 + 0.23616381E-01 0.28339657E-01 0.33492322E-01 0.39074376E-01 0.45085818E-01 + 0.51526649E-01 0.58396869E-01 0.65696478E-01 0.73425475E-01 0.81583861E-01 + 0.90171636E-01 0.99188800E-01 0.10863535E+00 0.11851129E+00 0.12881662E+00 + 0.13955134E+00 0.15071545E+00 0.16230895E+00 0.17433183E+00 0.18678410E+00 + 0.19966577E+00 0.21297682E+00 0.22671726E+00 0.24088709E+00 0.25548630E+00 + 0.27051491E+00 0.28597290E+00 0.30186029E+00 0.31817706E+00 0.33492321E+00 + 0.35209873E+00 0.36970359E+00 0.38773776E+00 0.40620116E+00 0.42509362E+00 + 0.44441466E+00 0.46416299E+00 0.48433590E+00 0.50492864E+00 0.52593370E+00 + 0.54733950E+00 0.56912832E+00 0.59127395E+00 0.61374014E+00 0.63648003E+00 + 0.65943464E+00 0.68252896E+00 0.70566663E+00 0.72872680E+00 0.75156519E+00 + 0.77401946E+00 0.79591779E+00 0.81708856E+00 0.83736869E+00 0.85660911E+00 + 0.87467769E+00 0.89146213E+00 0.90687462E+00 0.92085790E+00 0.93338975E+00 + 0.94448345E+00 0.95418440E+00 0.96256477E+00 0.96971765E+00 0.97575091E+00 + 0.98078104E+00 0.98492719E+00 0.98830620E+00 0.99102899E+00 0.99319800E+00 + 0.99490578E+00 0.99623427E+00 0.99725479E+00 0.99802840E+00 0.99860660E+00 + 0.99903215E+00 0.99934014E+00 0.99955898E+00 0.99971140E+00 0.99981529E+00 + 0.99988449E+00 0.99992948E+00 0.99995800E+00 0.99997562E+00 0.99998621E+00 + 0.99999241E+00 0.99999593E+00 0.99999788E+00 0.99999893E+00 0.99999947E+00 + 0.99999975E+00 0.99999988E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.42208528E-03 0.12662558E-02 0.25325117E-02 0.42208528E-02 + 0.63312792E-02 0.88637909E-02 0.11818388E-01 0.15195070E-01 0.18993838E-01 + 0.23214690E-01 0.27857628E-01 0.32922652E-01 0.38409760E-01 0.44318954E-01 + 0.50650234E-01 0.57403598E-01 0.64579048E-01 0.72176583E-01 0.80196203E-01 + 0.88637909E-01 0.97501700E-01 0.10678758E+00 0.11649554E+00 0.12662558E+00 + 0.13717772E+00 0.14815193E+00 0.15954824E+00 0.17136662E+00 0.18360710E+00 + 0.19626966E+00 0.20935430E+00 0.22286103E+00 0.23678984E+00 0.25114074E+00 + 0.26591373E+00 0.28110880E+00 0.29672595E+00 0.31276519E+00 0.32922652E+00 + 0.34610993E+00 0.36341542E+00 0.38114299E+00 0.39929259E+00 0.41786403E+00 + 0.43685685E+00 0.45627023E+00 0.47610292E+00 0.49635282E+00 0.51701605E+00 + 0.53808525E+00 0.55954769E+00 0.58138351E+00 0.60356450E+00 0.62605296E+00 + 0.64879954E+00 0.67173939E+00 0.69478738E+00 0.71783460E+00 0.74074826E+00 + 0.76337490E+00 0.78554572E+00 0.80708366E+00 0.82781209E+00 0.84756464E+00 + 0.86619454E+00 0.88358151E+00 0.89963568E+00 0.91429881E+00 0.92754359E+00 + 0.93937154E+00 0.94980968E+00 0.95890686E+00 0.96673060E+00 0.97336495E+00 + 0.97890875E+00 0.98347304E+00 0.98717696E+00 0.99014211E+00 0.99248664E+00 + 0.99432012E+00 0.99574015E+00 0.99683082E+00 0.99766253E+00 0.99829271E+00 + 0.99876717E+00 0.99912172E+00 0.99938409E+00 0.99957579E+00 0.99971361E+00 + 0.99981081E+00 0.99987787E+00 0.99992304E+00 0.99995270E+00 0.99997166E+00 + 0.99998346E+00 0.99999060E+00 0.99999480E+00 0.99999720E+00 0.99999854E+00 + 0.99999926E+00 0.99999963E+00 0.99999982E+00 0.99999992E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.41743422E-03 0.12523027E-02 0.25046053E-02 0.41743422E-02 + 0.62615133E-02 0.87661187E-02 0.11688158E-01 0.15027632E-01 0.18784540E-01 + 0.22958882E-01 0.27550659E-01 0.32559869E-01 0.37986514E-01 0.43830593E-01 + 0.50092107E-01 0.56771054E-01 0.63867436E-01 0.71381252E-01 0.79312502E-01 + 0.87661187E-01 0.96427306E-01 0.10561086E+00 0.11521185E+00 0.12523027E+00 + 0.13566612E+00 0.14651941E+00 0.15779014E+00 0.16947829E+00 0.18158389E+00 + 0.19410691E+00 0.20704737E+00 0.22040527E+00 0.23418060E+00 0.24837336E+00 + 0.26298356E+00 0.27801119E+00 0.29345626E+00 0.30931876E+00 0.32559869E+00 + 0.34229606E+00 0.35941085E+00 0.37694302E+00 0.39489237E+00 0.41325847E+00 + 0.43204055E+00 0.45123757E+00 0.47084823E+00 0.49087058E+00 0.51130129E+00 + 0.53213425E+00 0.55335858E+00 0.57495618E+00 0.59689944E+00 0.61914936E+00 + 0.64165356E+00 0.66434406E+00 0.68713517E+00 0.70992245E+00 0.73258372E+00 + 0.75498233E+00 0.77697189E+00 0.79840102E+00 0.81911719E+00 0.83896976E+00 + 0.85781390E+00 0.87551738E+00 0.89196967E+00 0.90709004E+00 0.92083204E+00 + 0.93318339E+00 0.94416227E+00 0.95381166E+00 0.96219395E+00 0.96938738E+00 + 0.97548388E+00 0.98058661E+00 0.98480561E+00 0.98825239E+00 0.99103471E+00 + 0.99325295E+00 0.99499807E+00 0.99635113E+00 0.99738351E+00 0.99815758E+00 + 0.99872717E+00 0.99913803E+00 0.99942823E+00 0.99962878E+00 0.99976425E+00 + 0.99985364E+00 0.99991122E+00 0.99994741E+00 0.99996958E+00 0.99998283E+00 + 0.99999055E+00 0.99999493E+00 0.99999735E+00 0.99999865E+00 0.99999933E+00 + 0.99999968E+00 0.99999985E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.40929188E-03 0.12278756E-02 0.24557513E-02 0.40929188E-02 + 0.61393782E-02 0.85951294E-02 0.11460173E-01 0.14734508E-01 0.18418135E-01 + 0.22511053E-01 0.27013264E-01 0.31924766E-01 0.37245561E-01 0.42975647E-01 + 0.49115025E-01 0.55663695E-01 0.62621657E-01 0.69988911E-01 0.77765457E-01 + 0.85951294E-01 0.94546424E-01 0.10355085E+00 0.11296456E+00 0.12278756E+00 + 0.13301986E+00 0.14366145E+00 0.15471233E+00 0.16617250E+00 0.17804197E+00 + 0.19032072E+00 0.20300877E+00 0.21610611E+00 0.22961274E+00 0.24352867E+00 + 0.25785388E+00 0.27258839E+00 0.28773219E+00 0.30328528E+00 0.31924766E+00 + 0.33561934E+00 0.35240031E+00 0.36959057E+00 0.38719011E+00 0.40519892E+00 + 0.42361688E+00 0.44244359E+00 0.46167806E+00 0.48131839E+00 0.50136133E+00 + 0.52180174E+00 0.54263157E+00 0.56383869E+00 0.58540521E+00 0.60730542E+00 + 0.62950367E+00 0.65195246E+00 0.67459027E+00 0.69733863E+00 0.72009907E+00 + 0.74275150E+00 0.76515511E+00 0.78715260E+00 0.80857692E+00 0.82925857E+00 + 0.84903197E+00 0.86774073E+00 0.88524350E+00 0.90142129E+00 0.91618509E+00 + 0.92948140E+00 0.94129465E+00 0.95164690E+00 0.96059520E+00 0.96822637E+00 + 0.97464967E+00 0.97998874E+00 0.98437378E+00 0.98793462E+00 0.99079481E+00 + 0.99306730E+00 0.99485207E+00 0.99623579E+00 0.99729280E+00 0.99808673E+00 + 0.99867200E+00 0.99909491E+00 0.99939425E+00 0.99960179E+00 0.99974280E+00 + 0.99983674E+00 0.99989815E+00 0.99993755E+00 0.99996237E+00 0.99997773E+00 + 0.99998706E+00 0.99999263E+00 0.99999588E+00 0.99999774E+00 0.99999879E+00 + 0.99999937E+00 0.99999968E+00 0.99999984E+00 0.99999992E+00 0.99999996E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.40426148E-03 0.12127844E-02 0.24255689E-02 0.40426148E-02 + 0.60639221E-02 0.84894910E-02 0.11319321E-01 0.14553413E-01 0.18191766E-01 + 0.22234381E-01 0.26681257E-01 0.31532395E-01 0.36787794E-01 0.42447455E-01 + 0.48511377E-01 0.54979561E-01 0.61852006E-01 0.69128712E-01 0.76809680E-01 + 0.84894910E-01 0.93384401E-01 0.10227815E+00 0.11157617E+00 0.12127844E+00 + 0.13138498E+00 0.14189578E+00 0.15281084E+00 0.16413016E+00 0.17585374E+00 + 0.18798159E+00 0.20051369E+00 0.21345006E+00 0.22679069E+00 0.24053558E+00 + 0.25468473E+00 0.26923814E+00 0.28419582E+00 0.29955775E+00 0.31532395E+00 + 0.33149441E+00 0.34806913E+00 0.36504811E+00 0.38243135E+00 0.40021884E+00 + 0.41841051E+00 0.43700610E+00 0.45600487E+00 0.47540524E+00 0.49520416E+00 + 0.51539651E+00 0.53597435E+00 0.55692594E+00 0.57823443E+00 0.59987561E+00 + 0.62181554E+00 0.64400876E+00 0.66639686E+00 0.68890560E+00 0.71144027E+00 + 0.73388274E+00 0.75609436E+00 0.77792427E+00 0.79921808E+00 0.81982305E+00 + 0.83959116E+00 0.85838294E+00 0.87607273E+00 0.89255418E+00 0.90774465E+00 + 0.92158762E+00 0.93405334E+00 0.94513875E+00 0.95486712E+00 0.96328724E+00 + 0.97047154E+00 0.97651270E+00 0.98151905E+00 0.98560919E+00 0.98890622E+00 + 0.99153167E+00 0.99359981E+00 0.99521324E+00 0.99646033E+00 0.99741495E+00 + 0.99813772E+00 0.99867814E+00 0.99907650E+00 0.99936560E+00 0.99957187E+00 + 0.99971640E+00 0.99981576E+00 0.99988271E+00 0.99992687E+00 0.99995538E+00 + 0.99997337E+00 0.99998446E+00 0.99999114E+00 0.99999507E+00 0.99999732E+00 + 0.99999858E+00 0.99999926E+00 0.99999963E+00 0.99999982E+00 0.99999991E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.40000421E-03 0.12000126E-02 0.24000252E-02 0.40000421E-02 + 0.60000631E-02 0.84000883E-02 0.11200118E-01 0.14400151E-01 0.18000189E-01 + 0.22000231E-01 0.26400278E-01 0.31200328E-01 0.36400383E-01 0.42000442E-01 + 0.48000505E-01 0.54400572E-01 0.61200643E-01 0.68400719E-01 0.76000799E-01 + 0.84000883E-01 0.92400971E-01 0.10120106E+00 0.11040116E+00 0.12000126E+00 + 0.13000137E+00 0.14040148E+00 0.15120159E+00 0.16240171E+00 0.17400183E+00 + 0.18600196E+00 0.19840209E+00 0.21120222E+00 0.22440236E+00 0.23800250E+00 + 0.25200265E+00 0.26640280E+00 0.28120296E+00 0.29640312E+00 0.31200328E+00 + 0.32800345E+00 0.34440362E+00 0.36120379E+00 0.37840396E+00 0.39600405E+00 + 0.41400392E+00 0.43240330E+00 0.45120185E+00 0.47039916E+00 0.48999464E+00 + 0.50998701E+00 0.53037321E+00 0.55114717E+00 0.57229815E+00 0.59380884E+00 + 0.61565267E+00 0.63779105E+00 0.66017109E+00 0.68272385E+00 0.70536213E+00 + 0.72797905E+00 0.75044864E+00 0.77262801E+00 0.79436013E+00 0.81547783E+00 + 0.83581050E+00 0.85519260E+00 0.87347184E+00 0.89051596E+00 0.90621840E+00 + 0.92050332E+00 0.93332949E+00 0.94469228E+00 0.95462312E+00 0.96318652E+00 + 0.97047414E+00 0.97659678E+00 0.98167560E+00 0.98583457E+00 0.98919514E+00 + 0.99187303E+00 0.99397620E+00 0.99560331E+00 0.99684258E+00 0.99777108E+00 + 0.99845473E+00 0.99894881E+00 0.99929888E+00 0.99954180E+00 0.99970673E+00 + 0.99981625E+00 0.99988732E+00 0.99993240E+00 0.99996034E+00 0.99997725E+00 + 0.99998724E+00 0.99999301E+00 0.99999626E+00 0.99999805E+00 0.99999901E+00 + 0.99999951E+00 0.99999976E+00 0.99999989E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.39713453E-03 0.11914036E-02 0.23828072E-02 0.39713453E-02 + 0.59570180E-02 0.83398252E-02 0.11119767E-01 0.14296843E-01 0.17871054E-01 + 0.21842399E-01 0.26210879E-01 0.30976494E-01 0.36139243E-01 0.41699126E-01 + 0.47656144E-01 0.54010296E-01 0.60761584E-01 0.67910005E-01 0.75455561E-01 + 0.83398252E-01 0.91738077E-01 0.10047504E+00 0.10960913E+00 0.11914036E+00 + 0.12906872E+00 0.13939422E+00 0.15011685E+00 0.16123662E+00 0.17275352E+00 + 0.18466756E+00 0.19697873E+00 0.20968703E+00 0.22279247E+00 0.23629505E+00 + 0.25019476E+00 0.26449160E+00 0.27918558E+00 0.29427669E+00 0.30976494E+00 + 0.32565032E+00 0.34193283E+00 0.35861248E+00 0.37568926E+00 0.39316311E+00 + 0.41103382E+00 0.42930090E+00 0.44796344E+00 0.46702009E+00 0.48646909E+00 + 0.50630831E+00 0.52653491E+00 0.54714418E+00 0.56812746E+00 0.58946974E+00 + 0.61114739E+00 0.63312556E+00 0.65535528E+00 0.67777078E+00 0.70028742E+00 + 0.72280056E+00 0.74518554E+00 0.76729930E+00 0.78898303E+00 0.81006559E+00 + 0.83036832E+00 0.84971324E+00 0.86793652E+00 0.88490441E+00 0.90052490E+00 + 0.91475067E+00 0.92757424E+00 0.93901977E+00 0.94913471E+00 0.95798307E+00 + 0.96564096E+00 0.97219451E+00 0.97773874E+00 0.98237534E+00 0.98620893E+00 + 0.98934239E+00 0.99187304E+00 0.99389035E+00 0.99547529E+00 0.99670085E+00 + 0.99763252E+00 0.99832841E+00 0.99883901E+00 0.99920703E+00 0.99946756E+00 + 0.99964868E+00 0.99977229E+00 0.99985508E+00 0.99990948E+00 0.99994452E+00 + 0.99996665E+00 0.99998034E+00 0.99998864E+00 0.99999357E+00 0.99999644E+00 + 0.99999807E+00 0.99999897E+00 0.99999947E+00 0.99999973E+00 0.99999987E+00 + 0.99999994E+00 0.99999997E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.39263793E-03 0.11779138E-02 0.23558276E-02 0.39263793E-02 + 0.58895689E-02 0.82453964E-02 0.10993862E-01 0.14134965E-01 0.17668707E-01 + 0.21595086E-01 0.25914103E-01 0.30625758E-01 0.35730051E-01 0.41226982E-01 + 0.47116551E-01 0.53398758E-01 0.60073603E-01 0.67141085E-01 0.74601206E-01 + 0.82453964E-01 0.90699361E-01 0.99337395E-01 0.10836807E+00 0.11779138E+00 + 0.12760733E+00 0.13781591E+00 0.14841714E+00 0.15941100E+00 0.17079750E+00 + 0.18257664E+00 0.19474841E+00 0.20731282E+00 0.22026988E+00 0.23361957E+00 + 0.24736189E+00 0.26149686E+00 0.27602446E+00 0.29094470E+00 0.30625758E+00 + 0.32196310E+00 0.33806125E+00 0.35455205E+00 0.37143548E+00 0.38871154E+00 + 0.40638021E+00 0.42444133E+00 0.44289447E+00 0.46173866E+00 0.48097202E+00 + 0.50059130E+00 0.52059149E+00 0.54096550E+00 0.56170358E+00 0.58279193E+00 + 0.60421039E+00 0.62592957E+00 0.64790784E+00 0.67008869E+00 0.69239827E+00 + 0.71474322E+00 0.73700905E+00 0.75906040E+00 0.78074448E+00 0.80189849E+00 + 0.82235898E+00 0.84197056E+00 0.86059250E+00 0.87810352E+00 0.89440486E+00 + 0.90942152E+00 0.92310225E+00 0.93541975E+00 0.94637157E+00 0.95598077E+00 + 0.96429523E+00 0.97138555E+00 0.97734193E+00 0.98227012E+00 0.98628631E+00 + 0.98951141E+00 0.99206522E+00 0.99406130E+00 0.99560293E+00 0.99678057E+00 + 0.99767078E+00 0.99833663E+00 0.99882903E+00 0.99918855E+00 0.99944723E+00 + 0.99963031E+00 0.99975750E+00 0.99984411E+00 0.99990185E+00 0.99993950E+00 + 0.99996350E+00 0.99997845E+00 0.99998756E+00 0.99999297E+00 0.99999612E+00 + 0.99999791E+00 0.99999890E+00 0.99999943E+00 0.99999972E+00 0.99999986E+00 + 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.39045670E-03 0.11713701E-02 0.23427402E-02 0.39045670E-02 + 0.58568505E-02 0.81995907E-02 0.10932788E-01 0.14056441E-01 0.17570551E-01 + 0.21475118E-01 0.25770142E-01 0.30455623E-01 0.35531560E-01 0.40997953E-01 + 0.46854804E-01 0.53102111E-01 0.59739875E-01 0.66768096E-01 0.74186773E-01 + 0.81995907E-01 0.90195497E-01 0.98785545E-01 0.10776605E+00 0.11713701E+00 + 0.12689843E+00 0.13705030E+00 0.14759263E+00 0.15852542E+00 0.16984866E+00 + 0.18156237E+00 0.19366652E+00 0.20616114E+00 0.21904621E+00 0.23232174E+00 + 0.24598772E+00 0.26004416E+00 0.27449106E+00 0.28932841E+00 0.30455623E+00 + 0.32017449E+00 0.33618322E+00 0.35258240E+00 0.36937204E+00 0.38655212E+00 + 0.40412258E+00 0.42208319E+00 0.44043337E+00 0.45917203E+00 0.47829754E+00 + 0.49780759E+00 0.51769880E+00 0.53796600E+00 0.55860095E+00 0.57959058E+00 + 0.60091451E+00 0.62254220E+00 0.64442950E+00 0.66651580E+00 0.68872319E+00 + 0.71095796E+00 0.73311314E+00 0.75507026E+00 0.77669998E+00 0.79786279E+00 + 0.81841096E+00 0.83819194E+00 0.85705361E+00 0.87485111E+00 0.89145440E+00 + 0.90675629E+00 0.92068026E+00 0.93318667E+00 0.94427534E+00 0.95398367E+00 + 0.96238062E+00 0.96955815E+00 0.97562257E+00 0.98068754E+00 0.98486891E+00 + 0.98828067E+00 0.99103153E+00 0.99322239E+00 0.99494477E+00 0.99628020E+00 + 0.99730044E+00 0.99806796E+00 0.99863638E+00 0.99905092E+00 0.99934873E+00 + 0.99955956E+00 0.99970664E+00 0.99980769E+00 0.99987603E+00 0.99992147E+00 + 0.99995116E+00 0.99997019E+00 0.99998215E+00 0.99998952E+00 0.99999397E+00 + 0.99999661E+00 0.99999813E+00 0.99999899E+00 0.99999947E+00 0.99999973E+00 + 0.99999986E+00 0.99999993E+00 0.99999997E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.38260584E-03 0.11478175E-02 0.22956350E-02 0.38260584E-02 + 0.57390876E-02 0.80347226E-02 0.10712963E-01 0.13773810E-01 0.17217263E-01 + 0.21043321E-01 0.25251985E-01 0.29843255E-01 0.34817131E-01 0.40173613E-01 + 0.45912701E-01 0.52034394E-01 0.58538693E-01 0.65425598E-01 0.72695109E-01 + 0.80347226E-01 0.88381949E-01 0.96799277E-01 0.10559921E+00 0.11478175E+00 + 0.12434690E+00 0.13429465E+00 0.14462501E+00 0.15533797E+00 0.16643354E+00 + 0.17791172E+00 0.18977250E+00 0.20201588E+00 0.21464188E+00 0.22765047E+00 + 0.24104168E+00 0.25481549E+00 0.26897190E+00 0.28351093E+00 0.29843255E+00 + 0.31373679E+00 0.32942363E+00 0.34549307E+00 0.36194509E+00 0.37877959E+00 + 0.39599630E+00 0.41359481E+00 0.43157456E+00 0.44993488E+00 0.46867489E+00 + 0.48779300E+00 0.50728614E+00 0.52714891E+00 0.54737309E+00 0.56794700E+00 + 0.58885396E+00 0.61006990E+00 0.63156080E+00 0.65328018E+00 0.67516704E+00 + 0.69714451E+00 0.71912026E+00 0.74098780E+00 0.76262663E+00 0.78390152E+00 + 0.80466434E+00 0.82476071E+00 0.84403931E+00 0.86235975E+00 0.87959773E+00 + 0.89564865E+00 0.91043125E+00 0.92389133E+00 0.93600415E+00 0.94677433E+00 + 0.95623313E+00 0.96443436E+00 0.97145062E+00 0.97737015E+00 0.98229346E+00 + 0.98632903E+00 0.98958827E+00 0.99218092E+00 0.99421141E+00 0.99577627E+00 + 0.99696255E+00 0.99784691E+00 0.99849528E+00 0.99896296E+00 0.99929509E+00 + 0.99952746E+00 0.99968768E+00 0.99979658E+00 0.99986952E+00 0.99991762E+00 + 0.99994885E+00 0.99996878E+00 0.99998128E+00 0.99998898E+00 0.99999363E+00 + 0.99999639E+00 0.99999800E+00 0.99999891E+00 0.99999942E+00 0.99999970E+00 + 0.99999985E+00 0.99999992E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.38263401E-03 0.11479020E-02 0.22958041E-02 0.38263401E-02 + 0.57395101E-02 0.80353142E-02 0.10713752E-01 0.13774824E-01 0.17218530E-01 + 0.21044871E-01 0.25253845E-01 0.29845453E-01 0.34819695E-01 0.40176571E-01 + 0.45916081E-01 0.52038225E-01 0.58543003E-01 0.65430416E-01 0.72700462E-01 + 0.80353142E-01 0.88388456E-01 0.96806404E-01 0.10560699E+00 0.11479020E+00 + 0.12435605E+00 0.13430454E+00 0.14463566E+00 0.15534941E+00 0.16644579E+00 + 0.17792481E+00 0.18978647E+00 0.20203076E+00 0.21465768E+00 0.22766724E+00 + 0.24105943E+00 0.25483425E+00 0.26899171E+00 0.28353180E+00 0.29845453E+00 + 0.31375989E+00 0.32944788E+00 0.34551851E+00 0.36197177E+00 0.37880767E+00 + 0.39602620E+00 0.41362736E+00 0.43161115E+00 0.44997749E+00 0.46872607E+00 + 0.48785596E+00 0.50736504E+00 0.52724922E+00 0.54750156E+00 0.56811096E+00 + 0.58906045E+00 0.61032553E+00 0.63187265E+00 0.65365728E+00 0.67562190E+00 + 0.69769419E+00 0.71978554E+00 0.74178900E+00 0.76357743E+00 0.78500404E+00 + 0.80590733E+00 0.82612006E+00 0.84547904E+00 0.86383360E+00 0.88105291E+00 + 0.89703278E+00 0.91170050E+00 0.92501579E+00 0.93696809E+00 0.94757235E+00 + 0.95686588E+00 0.96490667E+00 0.97177215E+00 0.97755634E+00 0.98236507E+00 + 0.98631028E+00 0.98950449E+00 0.99205632E+00 0.99406740E+00 0.99563034E+00 + 0.99682759E+00 0.99773109E+00 0.99840232E+00 0.99889290E+00 0.99924540E+00 + 0.99949425E+00 0.99966680E+00 0.99978426E+00 0.99986274E+00 0.99991421E+00 + 0.99994733E+00 0.99996825E+00 0.99998121E+00 0.99998908E+00 0.99999378E+00 + 0.99999652E+00 0.99999809E+00 0.99999898E+00 0.99999946E+00 0.99999972E+00 + 0.99999986E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.37878680E-03 0.11363604E-02 0.22727208E-02 0.37878680E-02 + 0.56818020E-02 0.79545228E-02 0.10606030E-01 0.13636325E-01 0.17045406E-01 + 0.20833274E-01 0.24999929E-01 0.29545370E-01 0.34469599E-01 0.39772614E-01 + 0.45454416E-01 0.51515005E-01 0.57954380E-01 0.64772543E-01 0.71969492E-01 + 0.79545228E-01 0.87499751E-01 0.95833060E-01 0.10454516E+00 0.11363604E+00 + 0.12310571E+00 0.13295417E+00 0.14318141E+00 0.15378744E+00 0.16477226E+00 + 0.17613586E+00 0.18787825E+00 0.19999943E+00 0.21249939E+00 0.22537815E+00 + 0.23863568E+00 0.25227201E+00 0.26628712E+00 0.28068102E+00 0.29545370E+00 + 0.31060518E+00 0.32613544E+00 0.34204448E+00 0.35833231E+00 0.37499893E+00 + 0.39204434E+00 0.40946852E+00 0.42727145E+00 0.44545293E+00 0.46401246E+00 + 0.48294902E+00 0.50226088E+00 0.52194529E+00 0.54199774E+00 0.56241058E+00 + 0.58317103E+00 0.60425876E+00 0.62564367E+00 0.64728421E+00 0.66912659E+00 + 0.69110378E+00 0.71313298E+00 0.73511249E+00 0.75692052E+00 0.77841732E+00 + 0.79944966E+00 0.81985728E+00 0.83948095E+00 0.85816991E+00 0.87578647E+00 + 0.89220860E+00 0.90733462E+00 0.92109097E+00 0.93344034E+00 0.94438599E+00 + 0.95397024E+00 0.96226773E+00 0.96937532E+00 0.97540134E+00 0.98045701E+00 + 0.98465139E+00 0.98808954E+00 0.99087181E+00 0.99309316E+00 0.99484202E+00 + 0.99619909E+00 0.99723659E+00 0.99801786E+00 0.99859739E+00 0.99902095E+00 + 0.99932608E+00 0.99954276E+00 0.99969440E+00 0.99979895E+00 0.99986989E+00 + 0.99991723E+00 0.99994826E+00 0.99996824E+00 0.99998086E+00 0.99998868E+00 + 0.99999343E+00 0.99999626E+00 0.99999791E+00 0.99999886E+00 0.99999939E+00 + 0.99999968E+00 0.99999984E+00 0.99999992E+00 0.99999996E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.37447159E-03 0.11234148E-02 0.22468295E-02 0.37447159E-02 + 0.56170738E-02 0.78639034E-02 0.10485204E-01 0.13480977E-01 0.16851221E-01 + 0.20595937E-01 0.24715125E-01 0.29208784E-01 0.34076915E-01 0.39319517E-01 + 0.44936591E-01 0.50928136E-01 0.57294153E-01 0.64034642E-01 0.71149602E-01 + 0.78639034E-01 0.86502937E-01 0.94741312E-01 0.10335416E+00 0.11234148E+00 + 0.12170327E+00 0.13143953E+00 0.14155026E+00 0.15203547E+00 0.16289514E+00 + 0.17412929E+00 0.18573791E+00 0.19772100E+00 0.21007856E+00 0.22281060E+00 + 0.23591710E+00 0.24939808E+00 0.26325353E+00 0.27748345E+00 0.29208784E+00 + 0.30706670E+00 0.32242004E+00 0.33814784E+00 0.35425012E+00 0.37072687E+00 + 0.38757809E+00 0.40480379E+00 0.42240395E+00 0.44037857E+00 0.45872756E+00 + 0.47745046E+00 0.49654606E+00 0.51601194E+00 0.53584420E+00 0.55603684E+00 + 0.57658035E+00 0.59745948E+00 0.61865031E+00 0.64011748E+00 0.66181232E+00 + 0.68367214E+00 0.70562017E+00 0.72756473E+00 0.74939734E+00 0.77099078E+00 + 0.79220009E+00 0.81286754E+00 0.83282987E+00 0.85192606E+00 0.87000484E+00 + 0.88693241E+00 0.90259989E+00 0.91692933E+00 0.92987670E+00 0.94143156E+00 + 0.95161436E+00 0.96047277E+00 0.96807773E+00 0.97451919E+00 0.97990133E+00 + 0.98433734E+00 0.98794406E+00 0.99083697E+00 0.99312602E+00 0.99491255E+00 + 0.99628742E+00 0.99733020E+00 0.99810920E+00 0.99868194E+00 0.99909607E+00 + 0.99939034E+00 0.99959573E+00 0.99973649E+00 0.99983117E+00 0.99989370E+00 + 0.99993422E+00 0.99996001E+00 0.99997611E+00 0.99998598E+00 0.99999192E+00 + 0.99999543E+00 0.99999746E+00 0.99999862E+00 0.99999926E+00 0.99999961E+00 + 0.99999980E+00 0.99999990E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.37139404E-03 0.11141821E-02 0.22283642E-02 0.37139404E-02 + 0.55709105E-02 0.77992747E-02 0.10399033E-01 0.13370185E-01 0.16712732E-01 + 0.20426672E-01 0.24512006E-01 0.28968735E-01 0.33796857E-01 0.38996374E-01 + 0.44567284E-01 0.50509589E-01 0.56823287E-01 0.63508380E-01 0.70564867E-01 + 0.77992747E-01 0.85792022E-01 0.93962691E-01 0.10250475E+00 0.11141821E+00 + 0.12070306E+00 0.13035931E+00 0.14038695E+00 0.15078598E+00 0.16155641E+00 + 0.17269823E+00 0.18421144E+00 0.19609605E+00 0.20835205E+00 0.22097945E+00 + 0.23397824E+00 0.24734843E+00 0.26109001E+00 0.27520298E+00 0.28968735E+00 + 0.30454311E+00 0.31977026E+00 0.33536881E+00 0.35133876E+00 0.36768010E+00 + 0.38439283E+00 0.40147695E+00 0.41893247E+00 0.43675932E+00 0.45495729E+00 + 0.47352581E+00 0.49246375E+00 0.51176920E+00 0.53143907E+00 0.55146836E+00 + 0.57184895E+00 0.59256809E+00 0.61360648E+00 0.63493577E+00 0.65651489E+00 + 0.67828553E+00 0.70016882E+00 0.72206496E+00 0.74385510E+00 0.76540449E+00 + 0.78656717E+00 0.80719214E+00 0.82713017E+00 0.84624036E+00 0.86439414E+00 + 0.88147585E+00 0.89738273E+00 0.91202800E+00 0.92534760E+00 0.93730723E+00 + 0.94790593E+00 0.95717499E+00 0.96517388E+00 0.97198531E+00 0.97770983E+00 + 0.98245988E+00 0.98635322E+00 0.98950671E+00 0.99203113E+00 0.99402791E+00 + 0.99558744E+00 0.99678885E+00 0.99770055E+00 0.99838110E+00 0.99888013E+00 + 0.99923922E+00 0.99949258E+00 0.99966778E+00 0.99978651E+00 0.99986534E+00 + 0.99991664E+00 0.99994936E+00 0.99996981E+00 0.99998234E+00 0.99998987E+00 + 0.99999430E+00 0.99999686E+00 0.99999830E+00 0.99999910E+00 0.99999953E+00 + 0.99999976E+00 0.99999988E+00 0.99999994E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.51718782E-03 0.15515635E-02 0.31031269E-02 0.51718782E-02 + 0.77578173E-02 0.10860944E-01 0.14481259E-01 0.18618761E-01 0.23273452E-01 + 0.28445330E-01 0.34134396E-01 0.40340650E-01 0.47064092E-01 0.54304721E-01 + 0.62062538E-01 0.70337543E-01 0.79129736E-01 0.88439117E-01 0.98265686E-01 + 0.10860944E+00 0.11947039E+00 0.13084852E+00 0.14274384E+00 0.15515635E+00 + 0.16808604E+00 0.18153292E+00 0.19549700E+00 0.20997825E+00 0.22497670E+00 + 0.24049234E+00 0.25652516E+00 0.27307516E+00 0.29014232E+00 0.30772653E+00 + 0.32582742E+00 0.34444422E+00 0.36357561E+00 0.38322001E+00 0.40337560E+00 + 0.42403968E+00 0.44520759E+00 0.46687202E+00 0.48902290E+00 0.51164640E+00 + 0.53472302E+00 0.55822517E+00 0.58211492E+00 0.60634128E+00 0.63083362E+00 + 0.65549506E+00 0.68020454E+00 0.70482674E+00 0.72922085E+00 0.75323996E+00 + 0.77672404E+00 0.79949873E+00 0.82138315E+00 0.84219999E+00 0.86178450E+00 + 0.87999610E+00 0.89673452E+00 0.91194776E+00 0.92562260E+00 0.93777178E+00 + 0.94843188E+00 0.95766521E+00 0.96555737E+00 0.97221388E+00 0.97775756E+00 + 0.98232352E+00 0.98605027E+00 0.98906938E+00 0.99149791E+00 0.99343590E+00 + 0.99496802E+00 0.99616746E+00 0.99709923E+00 0.99782060E+00 0.99837928E+00 + 0.99881203E+00 0.99914559E+00 0.99939953E+00 0.99958923E+00 0.99972761E+00 + 0.99982575E+00 0.99989304E+00 0.99993733E+00 0.99996512E+00 0.99998163E+00 + 0.99999087E+00 0.99999573E+00 0.99999812E+00 0.99999923E+00 0.99999970E+00 + 0.99999989E+00 0.99999996E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.51761378E-03 0.15528413E-02 0.31056827E-02 0.51761378E-02 + 0.77642067E-02 0.10869889E-01 0.14493186E-01 0.18634096E-01 0.23292620E-01 + 0.28468758E-01 0.34162510E-01 0.40373875E-01 0.47102854E-01 0.54349447E-01 + 0.62113654E-01 0.70395474E-01 0.79194909E-01 0.88511957E-01 0.98346619E-01 + 0.10869889E+00 0.11956878E+00 0.13095629E+00 0.14286140E+00 0.15528413E+00 + 0.16822448E+00 0.18168244E+00 0.19565801E+00 0.21015120E+00 0.22516200E+00 + 0.24069041E+00 0.25673644E+00 0.27330007E+00 0.29038132E+00 0.30798017E+00 + 0.32609658E+00 0.34473042E+00 0.36388133E+00 0.38354866E+00 0.40373137E+00 + 0.42442763E+00 0.44563365E+00 0.46734208E+00 0.48954112E+00 0.51221466E+00 + 0.53534227E+00 0.55889680E+00 0.58283912E+00 0.60711333E+00 0.63164464E+00 + 0.65633824E+00 0.68107652E+00 0.70571690E+00 0.73009568E+00 0.75403792E+00 + 0.77736749E+00 0.79991414E+00 0.82151928E+00 0.84203991E+00 0.86135031E+00 + 0.87934590E+00 0.89594856E+00 0.91110745E+00 0.92479569E+00 0.93701001E+00 + 0.94777414E+00 0.95714071E+00 0.96518897E+00 0.97201905E+00 0.97774413E+00 + 0.98248413E+00 0.98636218E+00 0.98950087E+00 0.99201628E+00 0.99401196E+00 + 0.99557626E+00 0.99678389E+00 0.99769963E+00 0.99838105E+00 0.99887916E+00 + 0.99923748E+00 0.99949134E+00 0.99966828E+00 0.99978922E+00 0.99986995E+00 + 0.99992236E+00 0.99995529E+00 0.99997525E+00 0.99998688E+00 0.99999335E+00 + 0.99999679E+00 0.99999853E+00 0.99999936E+00 0.99999974E+00 0.99999990E+00 + 0.99999996E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.51725846E-03 0.15517754E-02 0.31035508E-02 0.51725846E-02 + 0.77588769E-02 0.10862428E-01 0.14483237E-01 0.18621305E-01 0.23276631E-01 + 0.28449215E-01 0.34139058E-01 0.40346160E-01 0.47070520E-01 0.54312138E-01 + 0.62071015E-01 0.70347151E-01 0.79140545E-01 0.88451197E-01 0.98279108E-01 + 0.10862428E+00 0.11948670E+00 0.13086639E+00 0.14276334E+00 0.15517754E+00 + 0.16810900E+00 0.18155772E+00 0.19552370E+00 0.21000694E+00 0.22500743E+00 + 0.24052518E+00 0.25656020E+00 0.27311246E+00 0.29018195E+00 0.30776861E+00 + 0.32587232E+00 0.34449268E+00 0.36362891E+00 0.38327983E+00 0.40344377E+00 + 0.42411817E+00 0.44529877E+00 0.46697859E+00 0.48914619E+00 0.51178368E+00 + 0.53486508E+00 0.55835543E+00 0.58220985E+00 0.60637087E+00 0.63076444E+00 + 0.65529629E+00 0.67984974E+00 0.70428521E+00 0.72844408E+00 0.75215756E+00 + 0.77525660E+00 0.79758048E+00 0.81898313E+00 0.83933628E+00 0.85852999E+00 + 0.87647166E+00 0.89308552E+00 0.90831586E+00 0.92213195E+00 0.93452955E+00 + 0.94552809E+00 0.95516813E+00 0.96351074E+00 0.97063632E+00 0.97664123E+00 + 0.98163348E+00 0.98572793E+00 0.98904092E+00 0.99168507E+00 0.99376567E+00 + 0.99537873E+00 0.99661021E+00 0.99753587E+00 0.99822153E+00 0.99872333E+00 + 0.99908782E+00 0.99935218E+00 0.99954459E+00 0.99968523E+00 0.99978785E+00 + 0.99986169E+00 0.99991335E+00 0.99994808E+00 0.99997035E+00 0.99998389E+00 + 0.99999170E+00 0.99999595E+00 0.99999813E+00 0.99999918E+00 0.99999966E+00 + 0.99999987E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.51307147E-03 0.15392144E-02 0.30784288E-02 0.51307147E-02 + 0.76960721E-02 0.10774501E-01 0.14366001E-01 0.18470573E-01 0.23088216E-01 + 0.28218931E-01 0.33862717E-01 0.40019575E-01 0.46689504E-01 0.53872505E-01 + 0.61568577E-01 0.69777720E-01 0.78499935E-01 0.87735222E-01 0.97483580E-01 + 0.10774501E+00 0.11851951E+00 0.12980708E+00 0.14160773E+00 0.15392144E+00 + 0.16674823E+00 0.18008809E+00 0.19394102E+00 0.20830702E+00 0.22318609E+00 + 0.23857823E+00 0.25448345E+00 0.27090173E+00 0.28783306E+00 0.30527740E+00 + 0.32323470E+00 0.34170484E+00 0.36068771E+00 0.38018304E+00 0.40019037E+00 + 0.42070869E+00 0.44173574E+00 0.46326653E+00 0.48529152E+00 0.50779568E+00 + 0.53075835E+00 0.55415228E+00 0.57794058E+00 0.60207270E+00 0.62648000E+00 + 0.65107054E+00 0.67572671E+00 0.70030957E+00 0.72466732E+00 0.74863964E+00 + 0.77205617E+00 0.79473692E+00 0.81650283E+00 0.83719422E+00 0.85668371E+00 + 0.87487511E+00 0.89169557E+00 0.90709151E+00 0.92103043E+00 0.93350466E+00 + 0.94453441E+00 0.95416868E+00 0.96248350E+00 0.96957684E+00 0.97556131E+00 + 0.98055600E+00 0.98468011E+00 0.98804936E+00 0.99077359E+00 0.99295418E+00 + 0.99468194E+00 0.99603660E+00 0.99708737E+00 0.99789351E+00 0.99850464E+00 + 0.99896138E+00 0.99929674E+00 0.99953758E+00 0.99970589E+00 0.99981975E+00 + 0.99989390E+00 0.99994017E+00 0.99996775E+00 0.99998341E+00 0.99999187E+00 + 0.99999621E+00 0.99999832E+00 0.99999929E+00 0.99999972E+00 0.99999989E+00 + 0.99999996E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.50309183E-03 0.15092755E-02 0.30185510E-02 0.50309183E-02 + 0.75463774E-02 0.10564928E-01 0.14086571E-01 0.18111306E-01 0.22639132E-01 + 0.27670050E-01 0.33204061E-01 0.39241162E-01 0.45781356E-01 0.52824642E-01 + 0.60371019E-01 0.68420488E-01 0.76973049E-01 0.86028702E-01 0.95587447E-01 + 0.10564928E+00 0.11621421E+00 0.12728223E+00 0.13885334E+00 0.15092755E+00 + 0.16350484E+00 0.17658523E+00 0.19016871E+00 0.20425528E+00 0.21884494E+00 + 0.23393770E+00 0.24953355E+00 0.26563248E+00 0.28223451E+00 0.29933963E+00 + 0.31694781E+00 0.33505903E+00 0.35367318E+00 0.37279000E+00 0.39240877E+00 + 0.41252794E+00 0.43314493E+00 0.45425597E+00 0.47585552E+00 0.49793476E+00 + 0.52047975E+00 0.54346981E+00 0.56687482E+00 0.59064995E+00 0.61473061E+00 + 0.63903085E+00 0.66344440E+00 0.68784682E+00 0.71209812E+00 0.73604570E+00 + 0.75952759E+00 0.78237647E+00 0.80442576E+00 0.82551727E+00 0.84550797E+00 + 0.86427554E+00 0.88172351E+00 0.89778621E+00 0.91243172E+00 0.92565934E+00 + 0.93749347E+00 0.94797831E+00 0.95717400E+00 0.96515215E+00 0.97199122E+00 + 0.97777410E+00 0.98258886E+00 0.98653104E+00 0.98970395E+00 0.99221551E+00 + 0.99417287E+00 0.99567699E+00 0.99681867E+00 0.99767636E+00 0.99831564E+00 + 0.99878962E+00 0.99913977E+00 0.99939741E+00 0.99958559E+00 0.99972132E+00 + 0.99981739E+00 0.99988377E+00 0.99992835E+00 0.99995734E+00 0.99997553E+00 + 0.99998653E+00 0.99999289E+00 0.99999642E+00 0.99999828E+00 0.99999922E+00 + 0.99999966E+00 0.99999986E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.49419031E-03 0.14825709E-02 0.29651419E-02 0.49419031E-02 + 0.74128547E-02 0.10377997E-01 0.13837329E-01 0.17790851E-01 0.22238564E-01 + 0.27180467E-01 0.32616561E-01 0.38546844E-01 0.44971318E-01 0.51889983E-01 + 0.59302837E-01 0.67209882E-01 0.75611118E-01 0.84506543E-01 0.93896159E-01 + 0.10377997E+00 0.11415796E+00 0.12503015E+00 0.13639653E+00 0.14825709E+00 + 0.16061185E+00 0.17346080E+00 0.18680394E+00 0.20064127E+00 0.21497279E+00 + 0.22979850E+00 0.24511839E+00 0.26093248E+00 0.27724076E+00 0.29404324E+00 + 0.31133990E+00 0.32913074E+00 0.34741576E+00 0.36619486E+00 0.38546777E+00 + 0.40523379E+00 0.42549154E+00 0.44623869E+00 0.46747145E+00 0.48918355E+00 + 0.51136471E+00 0.53399842E+00 0.55705930E+00 0.58051070E+00 0.60430242E+00 + 0.62836838E+00 0.65262381E+00 0.67696258E+00 0.70125663E+00 0.72535899E+00 + 0.74910930E+00 0.77233990E+00 0.79488091E+00 0.81656476E+00 0.83723143E+00 + 0.85673539E+00 0.87495322E+00 0.89178980E+00 0.90718291E+00 0.92110545E+00 + 0.93356381E+00 0.94459374E+00 0.95425595E+00 0.96263183E+00 0.96981790E+00 + 0.97591917E+00 0.98104263E+00 0.98529249E+00 0.98876845E+00 0.99156636E+00 + 0.99377931E+00 0.99549746E+00 0.99680617E+00 0.99778340E+00 0.99849774E+00 + 0.99900785E+00 0.99936278E+00 0.99960279E+00 0.99976014E+00 0.99985996E+00 + 0.99992109E+00 0.99995717E+00 0.99997765E+00 0.99998881E+00 0.99999463E+00 + 0.99999753E+00 0.99999892E+00 0.99999955E+00 0.99999982E+00 0.99999993E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.49188160E-03 0.14756448E-02 0.29512896E-02 0.49188160E-02 + 0.73782239E-02 0.10329514E-01 0.13772685E-01 0.17707737E-01 0.22134672E-01 + 0.27053488E-01 0.32464185E-01 0.38366765E-01 0.44761225E-01 0.51647568E-01 + 0.59025792E-01 0.66895897E-01 0.75257884E-01 0.84111753E-01 0.93457503E-01 + 0.10329514E+00 0.11362465E+00 0.12444604E+00 0.13575932E+00 0.14756448E+00 + 0.15986152E+00 0.17265044E+00 0.18593124E+00 0.19970393E+00 0.21396849E+00 + 0.22872494E+00 0.24397327E+00 0.25971348E+00 0.27594557E+00 0.29266955E+00 + 0.30988539E+00 0.32759307E+00 0.34579241E+00 0.36448293E+00 0.38366360E+00 + 0.40333293E+00 0.42348924E+00 0.44413080E+00 0.46525537E+00 0.48685934E+00 + 0.50893605E+00 0.53147348E+00 0.55445181E+00 0.57784089E+00 0.60159670E+00 + 0.62565756E+00 0.64994087E+00 0.67434091E+00 0.69872827E+00 0.72295195E+00 + 0.74684477E+00 0.77023045E+00 0.79293040E+00 0.81476977E+00 0.83558367E+00 + 0.85522398E+00 0.87356752E+00 0.89052489E+00 0.90604527E+00 0.92011341E+00 + 0.93274135E+00 0.94396055E+00 0.95381814E+00 0.96237590E+00 0.96970919E+00 + 0.97590565E+00 0.98106401E+00 0.98529278E+00 0.98870723E+00 0.99142465E+00 + 0.99355859E+00 0.99521360E+00 0.99648196E+00 0.99744271E+00 0.99816205E+00 + 0.99869461E+00 0.99908474E+00 0.99936777E+00 0.99957110E+00 0.99971544E+00 + 0.99981622E+00 0.99988499E+00 0.99993055E+00 0.99995966E+00 0.99997751E+00 + 0.99998799E+00 0.99999386E+00 0.99999700E+00 0.99999860E+00 0.99999938E+00 + 0.99999973E+00 0.99999989E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.48381168E-03 0.14514350E-02 0.29028701E-02 0.48381168E-02 + 0.72571752E-02 0.10160045E-01 0.13546727E-01 0.17417221E-01 0.21771526E-01 + 0.26609642E-01 0.31931571E-01 0.37737311E-01 0.44026863E-01 0.50800227E-01 + 0.58057402E-01 0.65798389E-01 0.74023187E-01 0.82731798E-01 0.91924220E-01 + 0.10160045E+00 0.11176050E+00 0.12240436E+00 0.13353202E+00 0.14514350E+00 + 0.15723880E+00 0.16981790E+00 0.18288082E+00 0.19642754E+00 0.21045808E+00 + 0.22497243E+00 0.23997059E+00 0.25545257E+00 0.27141835E+00 0.28786792E+00 + 0.30480115E+00 0.32221769E+00 0.34011681E+00 0.35849748E+00 0.37735867E+00 + 0.39669968E+00 0.41651999E+00 0.43681853E+00 0.45759253E+00 0.47883622E+00 + 0.50054039E+00 0.52269238E+00 0.54527549E+00 0.56826661E+00 0.59163304E+00 + 0.61532894E+00 0.63929176E+00 0.66343874E+00 0.68766349E+00 0.71183275E+00 + 0.73578634E+00 0.75934377E+00 0.78231550E+00 0.80451408E+00 0.82576355E+00 + 0.84590842E+00 0.86482062E+00 0.88240211E+00 0.89858371E+00 0.91332301E+00 + 0.92660257E+00 0.93842903E+00 0.94883321E+00 0.95787101E+00 0.96562349E+00 + 0.97219398E+00 0.97770166E+00 0.98227327E+00 0.98603523E+00 0.98910713E+00 + 0.99159693E+00 0.99359895E+00 0.99519413E+00 0.99645149E+00 0.99742962E+00 + 0.99817823E+00 0.99873983E+00 0.99915121E+00 0.99944453E+00 0.99964754E+00 + 0.99978363E+00 0.99987177E+00 0.99992679E+00 0.99995980E+00 0.99997880E+00 + 0.99998928E+00 0.99999480E+00 0.99999759E+00 0.99999893E+00 0.99999954E+00 + 0.99999982E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.47837740E-03 0.14351322E-02 0.28702644E-02 0.47837740E-02 + 0.71756610E-02 0.10045925E-01 0.13394567E-01 0.17221586E-01 0.21526983E-01 + 0.26310757E-01 0.31572908E-01 0.37313437E-01 0.43532343E-01 0.50229627E-01 + 0.57405288E-01 0.65059327E-01 0.73191742E-01 0.81802536E-01 0.90891706E-01 + 0.10045925E+00 0.11050518E+00 0.12102948E+00 0.13203216E+00 0.14351322E+00 + 0.15547266E+00 0.16791047E+00 0.18082666E+00 0.19422122E+00 0.20809417E+00 + 0.22244549E+00 0.23727519E+00 0.25258327E+00 0.26836972E+00 0.28463455E+00 + 0.30137776E+00 0.31859935E+00 0.33629930E+00 0.35447762E+00 0.37313426E+00 + 0.39226910E+00 0.41188175E+00 0.43197098E+00 0.45253375E+00 0.47356407E+00 + 0.49505216E+00 0.51698309E+00 0.53933469E+00 0.56207552E+00 0.58516389E+00 + 0.60854752E+00 0.63216257E+00 0.65593277E+00 0.67976926E+00 0.70356957E+00 + 0.72721414E+00 0.75056388E+00 0.77346217E+00 0.79574018E+00 0.81722317E+00 + 0.83773878E+00 0.85712859E+00 0.87525956E+00 0.89203081E+00 0.90737459E+00 + 0.92125453E+00 0.93366458E+00 0.94462901E+00 0.95420127E+00 0.96246066E+00 + 0.96950772E+00 0.97545863E+00 0.98043787E+00 0.98456963E+00 0.98797021E+00 + 0.99074364E+00 0.99298075E+00 0.99476090E+00 0.99615483E+00 0.99722697E+00 + 0.99803628E+00 0.99863566E+00 0.99907108E+00 0.99938115E+00 0.99959737E+00 + 0.99974474E+00 0.99984272E+00 0.99990606E+00 0.99994574E+00 0.99996976E+00 + 0.99998377E+00 0.99999162E+00 0.99999584E+00 0.99999802E+00 0.99999909E+00 + 0.99999960E+00 0.99999983E+00 0.99999993E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.47468957E-03 0.14240687E-02 0.28481374E-02 0.47468957E-02 + 0.71203436E-02 0.99684810E-02 0.13291308E-01 0.17088825E-01 0.21361031E-01 + 0.26107926E-01 0.31329512E-01 0.37025787E-01 0.43196751E-01 0.49842405E-01 + 0.56962749E-01 0.64557782E-01 0.72627505E-01 0.81171917E-01 0.90191019E-01 + 0.99684810E-01 0.10965329E+00 0.12009646E+00 0.13101432E+00 0.14240687E+00 + 0.15427411E+00 0.16661604E+00 0.17943266E+00 0.19272397E+00 0.20648996E+00 + 0.22073065E+00 0.23544603E+00 0.25063609E+00 0.26630085E+00 0.28244030E+00 + 0.29905443E+00 0.31614325E+00 0.33370676E+00 0.35174494E+00 0.37025779E+00 + 0.38924527E+00 0.40870723E+00 0.42864322E+00 0.44905199E+00 0.46993075E+00 + 0.49127388E+00 0.51307139E+00 0.53530750E+00 0.55795962E+00 0.58099658E+00 + 0.60437604E+00 0.62804160E+00 0.65192023E+00 0.67591969E+00 0.69992680E+00 + 0.72380782E+00 0.74741109E+00 0.77057095E+00 0.79311281E+00 0.81485893E+00 + 0.83563477E+00 0.85527805E+00 0.87364990E+00 0.89064314E+00 0.90618488E+00 + 0.92023637E+00 0.93279280E+00 0.94388262E+00 0.95356473E+00 0.96192325E+00 + 0.96906100E+00 0.97509273E+00 0.98013914E+00 0.98432174E+00 0.98775770E+00 + 0.99055525E+00 0.99281108E+00 0.99460994E+00 0.99602588E+00 0.99712378E+00 + 0.99796060E+00 0.99858626E+00 0.99904405E+00 0.99937103E+00 0.99959830E+00 + 0.99975155E+00 0.99985149E+00 0.99991436E+00 0.99995242E+00 0.99997456E+00 + 0.99998692E+00 0.99999355E+00 0.99999694E+00 0.99999861E+00 0.99999940E+00 + 0.99999975E+00 0.99999990E+00 0.99999996E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.46275141E-03 0.13882542E-02 0.27765085E-02 0.46275141E-02 + 0.69412712E-02 0.97177796E-02 0.12957040E-01 0.16659051E-01 0.20823814E-01 + 0.25451328E-01 0.30541593E-01 0.36094610E-01 0.42110378E-01 0.48588898E-01 + 0.55530169E-01 0.62934192E-01 0.70800966E-01 0.79130491E-01 0.87922768E-01 + 0.97177796E-01 0.10689558E+00 0.11707611E+00 0.12771939E+00 0.13882542E+00 + 0.15039421E+00 0.16242575E+00 0.17492003E+00 0.18787707E+00 0.20129686E+00 + 0.21517941E+00 0.22952470E+00 0.24433275E+00 0.25960354E+00 0.27533709E+00 + 0.29153339E+00 0.30819243E+00 0.32531419E+00 0.34289864E+00 0.36094566E+00 + 0.37945488E+00 0.39842560E+00 0.41785685E+00 0.43774753E+00 0.45809607E+00 + 0.47889931E+00 0.50015069E+00 0.52183816E+00 0.54394262E+00 0.56643665E+00 + 0.58928361E+00 0.61243757E+00 0.63584326E+00 0.65943299E+00 0.68311992E+00 + 0.70679317E+00 0.73031889E+00 0.75354470E+00 0.77630353E+00 0.79841801E+00 + 0.81970859E+00 0.84000505E+00 0.85915783E+00 0.87704583E+00 0.89358021E+00 + 0.90870535E+00 0.92239724E+00 0.93465993E+00 0.94552208E+00 0.95503425E+00 + 0.96326598E+00 0.97030301E+00 0.97624510E+00 0.98120348E+00 0.98529601E+00 + 0.98863973E+00 0.99134367E+00 0.99350487E+00 0.99520834E+00 0.99652914E+00 + 0.99753437E+00 0.99828414E+00 0.99883163E+00 0.99922267E+00 0.99949557E+00 + 0.99968137E+00 0.99980450E+00 0.99988373E+00 0.99993311E+00 0.99996284E+00 + 0.99998009E+00 0.99998973E+00 0.99999490E+00 0.99999757E+00 0.99999889E+00 + 0.99999951E+00 0.99999979E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.45537933E-03 0.13661380E-02 0.27322760E-02 0.45537933E-02 + 0.68306899E-02 0.95629658E-02 0.12750621E-01 0.16393656E-01 0.20492070E-01 + 0.25045863E-01 0.30055036E-01 0.35519587E-01 0.41439519E-01 0.47814829E-01 + 0.54645519E-01 0.61931588E-01 0.69673037E-01 0.77869865E-01 0.86522072E-01 + 0.95629658E-01 0.10519262E+00 0.11521097E+00 0.12568469E+00 0.13661380E+00 + 0.14799828E+00 0.15983814E+00 0.17213339E+00 0.18488401E+00 0.19809001E+00 + 0.21175139E+00 0.22586815E+00 0.24044028E+00 0.25546780E+00 0.27095070E+00 + 0.28688898E+00 0.30328263E+00 0.32013167E+00 0.33743608E+00 0.35519587E+00 + 0.37341101E+00 0.39208135E+00 0.41120646E+00 0.43078535E+00 0.45081612E+00 + 0.47129567E+00 0.49221939E+00 0.51358050E+00 0.53536827E+00 0.55756524E+00 + 0.58014457E+00 0.60306876E+00 0.62628843E+00 0.64973877E+00 0.67333497E+00 + 0.69697067E+00 0.72052015E+00 0.74383973E+00 0.76676744E+00 0.78912617E+00 + 0.81073437E+00 0.83142037E+00 0.85103328E+00 0.86944839E+00 0.88656838E+00 + 0.90232250E+00 0.91666665E+00 0.92958432E+00 0.94108555E+00 0.95120348E+00 + 0.95999216E+00 0.96752609E+00 0.97389850E+00 0.97921695E+00 0.98359814E+00 + 0.98716320E+00 0.99003257E+00 0.99232061E+00 0.99413084E+00 0.99555323E+00 + 0.99666381E+00 0.99752559E+00 0.99819007E+00 0.99869850E+00 0.99908340E+00 + 0.99937028E+00 0.99957953E+00 0.99972798E+00 0.99982991E+00 0.99989737E+00 + 0.99994031E+00 0.99996657E+00 0.99998197E+00 0.99999065E+00 0.99999533E+00 + 0.99999776E+00 0.99999897E+00 0.99999954E+00 0.99999981E+00 0.99999992E+00 + 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.45163706E-03 0.13549112E-02 0.27098223E-02 0.45163706E-02 + 0.67745558E-02 0.94843782E-02 0.12645838E-01 0.16258934E-01 0.20323668E-01 + 0.24840038E-01 0.29808046E-01 0.35227690E-01 0.41098972E-01 0.47421891E-01 + 0.54196447E-01 0.61422640E-01 0.69100470E-01 0.77229937E-01 0.85811041E-01 + 0.94843782E-01 0.10432816E+00 0.11426418E+00 0.12465183E+00 0.13549112E+00 + 0.14678204E+00 0.15852461E+00 0.17071881E+00 0.18336464E+00 0.19646212E+00 + 0.21001123E+00 0.22401198E+00 0.23846437E+00 0.25336839E+00 0.26872405E+00 + 0.28453135E+00 0.30079028E+00 0.31750085E+00 0.33466305E+00 0.35227688E+00 + 0.37034230E+00 0.38885919E+00 0.40782730E+00 0.42724622E+00 0.44711517E+00 + 0.46743268E+00 0.48819589E+00 0.50939934E+00 0.53103337E+00 0.55308250E+00 + 0.57552375E+00 0.59832422E+00 0.62143827E+00 0.64480608E+00 0.66835290E+00 + 0.69198622E+00 0.71559117E+00 0.73902814E+00 0.76213604E+00 0.78474075E+00 + 0.80666417E+00 0.82773145E+00 0.84777823E+00 0.86665842E+00 0.88425040E+00 + 0.90046179E+00 0.91523353E+00 0.92854089E+00 0.94039030E+00 0.95081444E+00 + 0.95986869E+00 0.96762922E+00 0.97419065E+00 0.97966209E+00 0.98416201E+00 + 0.98781275E+00 0.99073517E+00 0.99304397E+00 0.99484450E+00 0.99623085E+00 + 0.99728496E+00 0.99807639E+00 0.99866269E+00 0.99909039E+00 0.99939662E+00 + 0.99961089E+00 0.99975674E+00 0.99985290E+00 0.99991412E+00 0.99995164E+00 + 0.99997377E+00 0.99998630E+00 0.99999311E+00 0.99999667E+00 0.99999846E+00 + 0.99999931E+00 0.99999971E+00 0.99999988E+00 0.99999995E+00 0.99999998E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.44247125E-03 0.13274137E-02 0.26548275E-02 0.44247125E-02 + 0.66370687E-02 0.92918962E-02 0.12389195E-01 0.15928965E-01 0.19911206E-01 + 0.24335919E-01 0.29203102E-01 0.34512757E-01 0.40264883E-01 0.46459481E-01 + 0.53096550E-01 0.60176090E-01 0.67698101E-01 0.75662583E-01 0.84069537E-01 + 0.92918962E-01 0.10221086E+00 0.11194523E+00 0.12212206E+00 0.13274137E+00 + 0.14380316E+00 0.15530741E+00 0.16725413E+00 0.17964333E+00 0.19247499E+00 + 0.20574913E+00 0.21946574E+00 0.23362482E+00 0.24822637E+00 0.26327039E+00 + 0.27875689E+00 0.29468585E+00 0.31105729E+00 0.32787119E+00 0.34512757E+00 + 0.36282642E+00 0.38096772E+00 0.39955142E+00 0.41857720E+00 0.43804427E+00 + 0.45795110E+00 0.47829535E+00 0.49907374E+00 0.52028133E+00 0.54190926E+00 + 0.56394163E+00 0.58635272E+00 0.60910507E+00 0.63214775E+00 0.65541394E+00 + 0.67881797E+00 0.70225301E+00 0.72558999E+00 0.74867948E+00 0.77135839E+00 + 0.79345982E+00 0.81482177E+00 0.83529271E+00 0.85473547E+00 0.87302925E+00 + 0.89006977E+00 0.90576886E+00 0.92005715E+00 0.93289160E+00 0.94426408E+00 + 0.95420396E+00 0.96277267E+00 0.97005557E+00 0.97615659E+00 0.98119513E+00 + 0.98530170E+00 0.98861110E+00 0.99125433E+00 0.99335134E+00 0.99500605E+00 + 0.99630422E+00 0.99731420E+00 0.99809000E+00 0.99867516E+00 0.99910626E+00 + 0.99941501E+00 0.99962916E+00 0.99977263E+00 0.99986531E+00 0.99992295E+00 + 0.99995747E+00 0.99997735E+00 0.99998837E+00 0.99999424E+00 0.99999725E+00 + 0.99999874E+00 0.99999944E+00 0.99999976E+00 0.99999990E+00 0.99999996E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.44098603E-03 0.13229581E-02 0.26459162E-02 0.44098603E-02 + 0.66147904E-02 0.92607066E-02 0.12347609E-01 0.15875497E-01 0.19844371E-01 + 0.24254232E-01 0.29105078E-01 0.34396910E-01 0.40129729E-01 0.46303533E-01 + 0.52918324E-01 0.59974100E-01 0.67470863E-01 0.75408611E-01 0.83787346E-01 + 0.92607066E-01 0.10186777E+00 0.11156947E+00 0.12171214E+00 0.13229581E+00 + 0.14332046E+00 0.15478610E+00 0.16669272E+00 0.17904033E+00 0.19182892E+00 + 0.20505850E+00 0.21872907E+00 0.23284062E+00 0.24739316E+00 0.26238669E+00 + 0.27782120E+00 0.29369670E+00 0.31001318E+00 0.32677065E+00 0.34396910E+00 + 0.36160854E+00 0.37968891E+00 0.39820992E+00 0.41717075E+00 0.43656997E+00 + 0.45640585E+00 0.47667646E+00 0.49737886E+00 0.51850798E+00 0.54005493E+00 + 0.56200457E+00 0.58433241E+00 0.60700239E+00 0.62996578E+00 0.65315970E+00 + 0.67650470E+00 0.69990290E+00 0.72323830E+00 0.74637814E+00 0.76917342E+00 + 0.79145918E+00 0.81305784E+00 0.83378958E+00 0.85348695E+00 0.87200568E+00 + 0.88922861E+00 0.90506564E+00 0.91945435E+00 0.93236308E+00 0.94379457E+00 + 0.95378603E+00 0.96240473E+00 0.96974141E+00 0.97590435E+00 0.98101437E+00 + 0.98519934E+00 0.98858766E+00 0.99130167E+00 0.99345252E+00 0.99513782E+00 + 0.99644172E+00 0.99743634E+00 0.99818345E+00 0.99873560E+00 0.99913680E+00 + 0.99942307E+00 0.99962327E+00 0.99976013E+00 0.99985134E+00 0.99991046E+00 + 0.99994765E+00 0.99997032E+00 0.99998370E+00 0.99999133E+00 0.99999554E+00 + 0.99999779E+00 0.99999894E+00 0.99999951E+00 0.99999978E+00 0.99999991E+00 + 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.43377782E-03 0.13013334E-02 0.26026669E-02 0.43377782E-02 + 0.65066672E-02 0.91093341E-02 0.12145779E-01 0.15616001E-01 0.19520002E-01 + 0.23857780E-01 0.28629336E-01 0.33834670E-01 0.39473781E-01 0.45546671E-01 + 0.52053338E-01 0.58993783E-01 0.66368006E-01 0.74176006E-01 0.82417785E-01 + 0.91093341E-01 0.10020268E+00 0.10974579E+00 0.11972268E+00 0.13013334E+00 + 0.14097779E+00 0.15225601E+00 0.16396801E+00 0.17611379E+00 0.18869335E+00 + 0.20170668E+00 0.21515380E+00 0.22903469E+00 0.24334935E+00 0.25809780E+00 + 0.27328002E+00 0.28889603E+00 0.30494580E+00 0.32142936E+00 0.33834670E+00 + 0.35569781E+00 0.37348269E+00 0.39170128E+00 0.41035334E+00 0.42943824E+00 + 0.44895461E+00 0.46889940E+00 0.48926658E+00 0.51004602E+00 0.53122338E+00 + 0.55278111E+00 0.57469897E+00 0.59695218E+00 0.61950724E+00 0.64231698E+00 + 0.66531720E+00 0.68842581E+00 0.71154235E+00 0.73454608E+00 0.75729485E+00 + 0.77962834E+00 0.80137686E+00 0.82237326E+00 0.84246192E+00 0.86150169E+00 + 0.87936507E+00 0.89593904E+00 0.91113045E+00 0.92487472E+00 0.93714279E+00 + 0.94794334E+00 0.95732151E+00 0.96535556E+00 0.97215120E+00 0.97783344E+00 + 0.98253643E+00 0.98639310E+00 0.98952711E+00 0.99204894E+00 0.99405574E+00 + 0.99563255E+00 0.99685352E+00 0.99778285E+00 0.99847594E+00 0.99898053E+00 + 0.99933780E+00 0.99958300E+00 0.99974572E+00 0.99984996E+00 0.99991437E+00 + 0.99995275E+00 0.99997480E+00 0.99998701E+00 0.99999353E+00 0.99999689E+00 + 0.99999856E+00 0.99999936E+00 0.99999972E+00 0.99999989E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.43161932E-03 0.12948580E-02 0.25897159E-02 0.43161932E-02 + 0.64742898E-02 0.90640057E-02 0.12085341E-01 0.15538296E-01 0.19422869E-01 + 0.23739063E-01 0.28486875E-01 0.33666307E-01 0.39277358E-01 0.45320029E-01 + 0.51794318E-01 0.58700227E-01 0.66037756E-01 0.73806904E-01 0.82007671E-01 + 0.90640057E-01 0.99704063E-01 0.10919969E+00 0.11912693E+00 0.12948580E+00 + 0.14027628E+00 0.15149838E+00 0.16315210E+00 0.17523744E+00 0.18775440E+00 + 0.20070298E+00 0.21408318E+00 0.22789500E+00 0.24213844E+00 0.25681350E+00 + 0.27192017E+00 0.28745847E+00 0.30342838E+00 0.31982992E+00 0.33666307E+00 + 0.35392784E+00 0.37162423E+00 0.38975223E+00 0.40831167E+00 0.42730197E+00 + 0.44672184E+00 0.46656948E+00 0.48684291E+00 0.50753931E+00 0.52865325E+00 + 0.55017487E+00 0.57208871E+00 0.59437209E+00 0.61699223E+00 0.63990233E+00 + 0.66303694E+00 0.68630719E+00 0.70959731E+00 0.73276548E+00 0.75565097E+00 + 0.77808540E+00 0.79990306E+00 0.82094753E+00 0.84107435E+00 0.86015190E+00 + 0.87806149E+00 0.89469850E+00 0.90997672E+00 0.92383529E+00 0.93624509E+00 + 0.94721129E+00 0.95677169E+00 0.96499261E+00 0.97196483E+00 0.97779923E+00 + 0.98262050E+00 0.98655851E+00 0.98973967E+00 0.99228058E+00 0.99428520E+00 + 0.99584479E+00 0.99703888E+00 0.99793644E+00 0.99859689E+00 0.99907104E+00 + 0.99940212E+00 0.99962637E+00 0.99977344E+00 0.99986675E+00 0.99992401E+00 + 0.99995798E+00 0.99997748E+00 0.99998831E+00 0.99999412E+00 0.99999713E+00 + 0.99999865E+00 0.99999939E+00 0.99999973E+00 0.99999989E+00 0.99999995E+00 + 0.99999998E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.42816590E-03 0.12844977E-02 0.25689954E-02 0.42816590E-02 + 0.64224885E-02 0.89914838E-02 0.11988645E-01 0.15413972E-01 0.19267465E-01 + 0.23549124E-01 0.28258949E-01 0.33396940E-01 0.38963097E-01 0.44957419E-01 + 0.51379908E-01 0.58230562E-01 0.65509382E-01 0.73216368E-01 0.81351520E-01 + 0.89914838E-01 0.98906322E-01 0.10832597E+00 0.11817379E+00 0.12844977E+00 + 0.13915392E+00 0.15028623E+00 0.16184671E+00 0.17383535E+00 0.18625217E+00 + 0.19909714E+00 0.21237028E+00 0.22607159E+00 0.24020107E+00 0.25475871E+00 + 0.26974451E+00 0.28515849E+00 0.30100063E+00 0.31727093E+00 0.33396940E+00 + 0.35109604E+00 0.36865084E+00 0.38663380E+00 0.40504490E+00 0.42388399E+00 + 0.44315057E+00 0.46284344E+00 0.48296051E+00 0.50349834E+00 0.52445061E+00 + 0.54580586E+00 0.56754613E+00 0.58964607E+00 0.61207034E+00 0.63476918E+00 + 0.65767511E+00 0.68070279E+00 0.70375161E+00 0.72670749E+00 0.74944253E+00 + 0.77181418E+00 0.79366650E+00 0.81483481E+00 0.83515299E+00 0.85446210E+00 + 0.87262029E+00 0.88951274E+00 0.90505879E+00 0.91921462E+00 0.93197073E+00 + 0.94334459E+00 0.95337219E+00 0.96210341E+00 0.96960252E+00 0.97595024E+00 + 0.98124337E+00 0.98559032E+00 0.98910449E+00 0.99189835E+00 0.99407985E+00 + 0.99575050E+00 0.99700416E+00 0.99792567E+00 0.99858935E+00 0.99905797E+00 + 0.99938252E+00 0.99960300E+00 0.99974981E+00 0.99984554E+00 0.99990660E+00 + 0.99994469E+00 0.99996791E+00 0.99998175E+00 0.99998983E+00 0.99999444E+00 + 0.99999702E+00 0.99999844E+00 0.99999920E+00 0.99999960E+00 0.99999980E+00 + 0.99999990E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.42473818E-03 0.12742145E-02 0.25484291E-02 0.42473818E-02 + 0.63710727E-02 0.89195017E-02 0.11892669E-01 0.15290574E-01 0.19113218E-01 + 0.23360600E-01 0.28032720E-01 0.33129578E-01 0.38651174E-01 0.44597509E-01 + 0.50968581E-01 0.57764392E-01 0.64984941E-01 0.72630228E-01 0.80700254E-01 + 0.89195017E-01 0.98114519E-01 0.10745876E+00 0.11722774E+00 0.12742145E+00 + 0.13803991E+00 0.14908310E+00 0.16055103E+00 0.17244370E+00 0.18476111E+00 + 0.19750325E+00 0.21067014E+00 0.22426176E+00 0.23827812E+00 0.25271922E+00 + 0.26758505E+00 0.28287563E+00 0.29859094E+00 0.31473099E+00 0.33129578E+00 + 0.34828531E+00 0.36569957E+00 0.38353857E+00 0.40180231E+00 0.42049073E+00 + 0.43960358E+00 0.45914004E+00 0.47909820E+00 0.49947470E+00 0.52026434E+00 + 0.54145957E+00 0.56304912E+00 0.58501501E+00 0.60732809E+00 0.62994363E+00 + 0.65279972E+00 0.67581933E+00 0.69891300E+00 0.72197743E+00 0.74489051E+00 + 0.76750792E+00 0.78966531E+00 0.81118479E+00 0.83188391E+00 0.85158615E+00 + 0.87013214E+00 0.88738811E+00 0.90325063E+00 0.91765094E+00 0.93056026E+00 + 0.94199208E+00 0.95199763E+00 0.96065689E+00 0.96806964E+00 0.97434822E+00 + 0.97961132E+00 0.98397812E+00 0.98756331E+00 0.99047379E+00 0.99280719E+00 + 0.99465194E+00 0.99608810E+00 0.99718788E+00 0.99801555E+00 0.99862704E+00 + 0.99906990E+00 0.99938381E+00 0.99960125E+00 0.99974821E+00 0.99984501E+00 + 0.99990707E+00 0.99994576E+00 0.99996921E+00 0.99998301E+00 0.99999089E+00 + 0.99999526E+00 0.99999761E+00 0.99999883E+00 0.99999944E+00 0.99999974E+00 + 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.42101138E-03 0.12630341E-02 0.25260683E-02 0.42101138E-02 + 0.63151707E-02 0.88412390E-02 0.11788319E-01 0.15156410E-01 0.18945512E-01 + 0.23155626E-01 0.27786751E-01 0.32838888E-01 0.38312036E-01 0.44206195E-01 + 0.50521366E-01 0.57257548E-01 0.64414741E-01 0.71992946E-01 0.79992162E-01 + 0.88412390E-01 0.97253629E-01 0.10651588E+00 0.11619914E+00 0.12630341E+00 + 0.13682870E+00 0.14777499E+00 0.15914230E+00 0.17093062E+00 0.18313995E+00 + 0.19577029E+00 0.20882164E+00 0.22229401E+00 0.23618738E+00 0.25050177E+00 + 0.26523717E+00 0.28039358E+00 0.29597100E+00 0.31196943E+00 0.32838886E+00 + 0.34522924E+00 0.36249043E+00 0.38017216E+00 0.39827411E+00 0.41679599E+00 + 0.43573756E+00 0.45509859E+00 0.47487840E+00 0.49507520E+00 0.51568545E+00 + 0.53670356E+00 0.55812125E+00 0.57992536E+00 0.60209348E+00 0.62458828E+00 + 0.64735324E+00 0.67031112E+00 0.69336632E+00 0.71641040E+00 0.73932554E+00 + 0.76198192E+00 0.78423210E+00 0.80590926E+00 0.82683288E+00 0.84682131E+00 + 0.86570770E+00 0.88335252E+00 0.89964738E+00 0.91451363E+00 0.92790344E+00 + 0.93980403E+00 0.95024013E+00 0.95927200E+00 0.96699000E+00 0.97350715E+00 + 0.97895047E+00 0.98345159E+00 0.98713850E+00 0.99012953E+00 0.99253017E+00 + 0.99443285E+00 0.99591887E+00 0.99706046E+00 0.99792200E+00 0.99856008E+00 + 0.99902336E+00 0.99935261E+00 0.99958123E+00 0.99973600E+00 0.99983796E+00 + 0.99990325E+00 0.99994383E+00 0.99996830E+00 0.99998262E+00 0.99999074E+00 + 0.99999521E+00 0.99999759E+00 0.99999883E+00 0.99999945E+00 0.99999975E+00 + 0.99999989E+00 0.99999995E+00 0.99999998E+00 0.99999999E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.41906634E-03 0.12571990E-02 0.25143981E-02 0.41906634E-02 + 0.62859951E-02 0.88003932E-02 0.11733858E-01 0.15086388E-01 0.18857985E-01 + 0.23048649E-01 0.27658379E-01 0.32687175E-01 0.38135037E-01 0.44001966E-01 + 0.50287961E-01 0.56993023E-01 0.64117150E-01 0.71660345E-01 0.79622605E-01 + 0.88003932E-01 0.96804325E-01 0.10602378E+00 0.11566231E+00 0.12571990E+00 + 0.13619656E+00 0.14709229E+00 0.15840708E+00 0.17014094E+00 0.18229386E+00 + 0.19486585E+00 0.20785691E+00 0.22126703E+00 0.23509622E+00 0.24934447E+00 + 0.26401180E+00 0.27909818E+00 0.29460364E+00 0.31052816E+00 0.32687175E+00 + 0.34363440E+00 0.36081612E+00 0.37841690E+00 0.39643669E+00 0.41487528E+00 + 0.43373230E+00 0.45300721E+00 0.47269943E+00 0.49280794E+00 0.51333011E+00 + 0.53425988E+00 0.55558603E+00 0.57728993E+00 0.59934207E+00 0.62169885E+00 + 0.64430247E+00 0.66708285E+00 0.68995846E+00 0.71283506E+00 0.73560382E+00 + 0.75813948E+00 0.78029811E+00 0.80191478E+00 0.82280622E+00 0.84278359E+00 + 0.86167298E+00 0.87933342E+00 0.89566437E+00 0.91060406E+00 0.92412486E+00 + 0.93622818E+00 0.94693987E+00 0.95630708E+00 0.96439691E+00 0.97129528E+00 + 0.97710387E+00 0.98193490E+00 0.98590516E+00 0.98913046E+00 0.99172084E+00 + 0.99377689E+00 0.99538789E+00 0.99663199E+00 0.99757754E+00 0.99828431E+00 + 0.99880390E+00 0.99917970E+00 0.99944714E+00 0.99963430E+00 0.99976292E+00 + 0.99984960E+00 0.99990676E+00 0.99994359E+00 0.99996673E+00 0.99998089E+00 + 0.99998932E+00 0.99999419E+00 0.99999693E+00 0.99999843E+00 0.99999922E+00 + 0.99999962E+00 0.99999982E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.41475769E-03 0.12442731E-02 0.24885461E-02 0.41475769E-02 + 0.62213653E-02 0.87099115E-02 0.11613215E-01 0.14931277E-01 0.18664096E-01 + 0.22811673E-01 0.27374007E-01 0.32351100E-01 0.37742950E-01 0.43549557E-01 + 0.49770923E-01 0.56407046E-01 0.63457926E-01 0.70923565E-01 0.78803961E-01 + 0.87099115E-01 0.95809026E-01 0.10493370E+00 0.11447312E+00 0.12442731E+00 + 0.13479625E+00 0.14557995E+00 0.15677841E+00 0.16839162E+00 0.18041959E+00 + 0.19286233E+00 0.20571981E+00 0.21899206E+00 0.23267906E+00 0.24678082E+00 + 0.26129734E+00 0.27622862E+00 0.29157465E+00 0.30733545E+00 0.32351100E+00 + 0.34010130E+00 0.35710637E+00 0.37452619E+00 0.39236077E+00 0.41061010E+00 + 0.42927410E+00 0.44835247E+00 0.46784445E+00 0.48774863E+00 0.50806234E+00 + 0.52878048E+00 0.54989365E+00 0.57138613E+00 0.59323464E+00 0.61540799E+00 + 0.63786595E+00 0.66055538E+00 0.68340480E+00 0.70632138E+00 0.72919246E+00 + 0.75188852E+00 0.77426459E+00 0.79616168E+00 0.81741024E+00 0.83783630E+00 + 0.85727009E+00 0.87555664E+00 0.89256573E+00 0.90819820E+00 0.92238823E+00 + 0.93510372E+00 0.94634619E+00 0.95615032E+00 0.96458260E+00 0.97173726E+00 + 0.97772835E+00 0.98268000E+00 0.98671859E+00 0.98996782E+00 0.99254502E+00 + 0.99455806E+00 0.99610365E+00 0.99726744E+00 0.99812492E+00 0.99874206E+00 + 0.99917540E+00 0.99947207E+00 0.99967003E+00 0.99979873E+00 0.99988023E+00 + 0.99993050E+00 0.99996069E+00 0.99997834E+00 0.99998837E+00 0.99999392E+00 + 0.99999691E+00 0.99999847E+00 0.99999927E+00 0.99999966E+00 0.99999985E+00 + 0.99999993E+00 0.99999997E+00 0.99999999E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.40781213E-03 0.12234364E-02 0.24468728E-02 0.40781213E-02 + 0.61171819E-02 0.85640547E-02 0.11418740E-01 0.14681237E-01 0.18351546E-01 + 0.22429667E-01 0.26915601E-01 0.31809346E-01 0.37110904E-01 0.42820274E-01 + 0.48937456E-01 0.55462450E-01 0.62395256E-01 0.69735874E-01 0.77484305E-01 + 0.85640547E-01 0.94204602E-01 0.10317647E+00 0.11255615E+00 0.12234364E+00 + 0.13253894E+00 0.14314206E+00 0.15415299E+00 0.16557172E+00 0.17739828E+00 + 0.18963264E+00 0.20227482E+00 0.21532480E+00 0.22878260E+00 0.24264822E+00 + 0.25692164E+00 0.27160288E+00 0.28669193E+00 0.30218879E+00 0.31809346E+00 + 0.33440595E+00 0.35112624E+00 0.36825435E+00 0.38579027E+00 0.40373401E+00 + 0.42208555E+00 0.44084488E+00 0.46001188E+00 0.47958603E+00 0.49956578E+00 + 0.51994750E+00 0.54072465E+00 0.56188682E+00 0.58341731E+00 0.60528884E+00 + 0.62745950E+00 0.64987130E+00 0.67245119E+00 0.69511222E+00 0.71775362E+00 + 0.74026045E+00 0.76250330E+00 0.78433701E+00 0.80560178E+00 0.82613073E+00 + 0.84576227E+00 0.86434970E+00 0.88176536E+00 0.89790367E+00 0.91268691E+00 + 0.92607100E+00 0.93804706E+00 0.94863853E+00 0.95789632E+00 0.96589284E+00 + 0.97271562E+00 0.97846163E+00 0.98323315E+00 0.98713549E+00 0.99027573E+00 + 0.99276121E+00 0.99469649E+00 0.99617915E+00 0.99729630E+00 0.99812310E+00 + 0.99872316E+00 0.99914951E+00 0.99944571E+00 0.99964675E+00 0.99977996E+00 + 0.99986611E+00 0.99992045E+00 0.99995388E+00 0.99997392E+00 0.99998563E+00 + 0.99999228E+00 0.99999597E+00 0.99999795E+00 0.99999899E+00 0.99999951E+00 + 0.99999977E+00 0.99999990E+00 0.99999996E+00 0.99999998E+00 0.99999999E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.40462574E-03 0.12138772E-02 0.24277545E-02 0.40462574E-02 + 0.60693862E-02 0.84971406E-02 0.11329521E-01 0.14566527E-01 0.18208158E-01 + 0.22254416E-01 0.26705299E-01 0.31560808E-01 0.36820943E-01 0.42485703E-01 + 0.48555089E-01 0.55029101E-01 0.61907739E-01 0.69191002E-01 0.76878891E-01 + 0.84971406E-01 0.93468547E-01 0.10237031E+00 0.11167671E+00 0.12138772E+00 + 0.13150337E+00 0.14202364E+00 0.15294853E+00 0.16427805E+00 0.17601220E+00 + 0.18815097E+00 0.20069437E+00 0.21364239E+00 0.22699504E+00 0.24075232E+00 + 0.25491422E+00 0.26948075E+00 0.28445190E+00 0.29982768E+00 0.31560808E+00 + 0.33179311E+00 0.34838277E+00 0.36537704E+00 0.38277592E+00 0.40057924E+00 + 0.41878661E+00 0.43739743E+00 0.45641113E+00 0.47582717E+00 0.49564446E+00 + 0.51586065E+00 0.53647098E+00 0.55746664E+00 0.57883268E+00 0.60054543E+00 + 0.62256960E+00 0.64485605E+00 0.66733942E+00 0.68993530E+00 0.71254049E+00 + 0.73503779E+00 0.75729934E+00 0.77918488E+00 0.80053867E+00 0.82119175E+00 + 0.84097204E+00 0.85971940E+00 0.87729828E+00 0.89360364E+00 0.90856171E+00 + 0.92212982E+00 0.93429772E+00 0.94508892E+00 0.95455794E+00 0.96278251E+00 + 0.96985372E+00 0.97586798E+00 0.98092296E+00 0.98511681E+00 0.98854806E+00 + 0.99131464E+00 0.99351173E+00 0.99522948E+00 0.99655112E+00 0.99755128E+00 + 0.99829499E+00 0.99883754E+00 0.99922504E+00 0.99949543E+00 0.99967942E+00 + 0.99980136E+00 0.99988001E+00 0.99992936E+00 0.99995947E+00 0.99997734E+00 + 0.99998766E+00 0.99999346E+00 0.99999662E+00 0.99999830E+00 0.99999917E+00 + 0.99999961E+00 0.99999982E+00 0.99999992E+00 0.99999997E+00 0.99999999E+00 + 0.99999999E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + NUCLEUS 1 1 1 1 + 8.96000 0.15000 1.12000 1.12000 + 0.00000000E+00 0.39785449E-01 0.11770547E+00 0.22849560E+00 0.36168314E+00 + 0.50260245E+00 0.63599656E+00 0.75010775E+00 0.83903844E+00 0.90262876E+00 + 0.94460962E+00 0.97033243E+00 0.98502277E+00 0.99286789E+00 0.99679480E+00 + 0.99864032E+00 0.99945560E+00 0.99979442E+00 0.99992697E+00 0.99997580E+00 + 0.99999275E+00 0.99999829E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.40227114E-01 0.11801005E+00 0.22702043E+00 0.35670027E+00 + 0.49345013E+00 0.62352110E+00 0.73620352E+00 0.82575436E+00 0.89143885E+00 + 0.93614289E+00 0.96450263E+00 0.98133553E+00 0.99071114E+00 0.99562237E+00 + 0.99804583E+00 0.99917365E+00 0.99966906E+00 0.99987458E+00 0.99995514E+00 + 0.99998499E+00 0.99999545E+00 0.99999891E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.39430692E-01 0.11532167E+00 0.22119764E+00 0.34694044E+00 + 0.47995140E+00 0.60756437E+00 0.71969464E+00 0.81053960E+00 0.87877703E+00 + 0.92652570E+00 0.95777963E+00 0.97698167E+00 0.98808597E+00 0.99414305E+00 + 0.99726448E+00 0.99878598E+00 0.99948805E+00 0.99979492E+00 0.99992203E+00 + 0.99997195E+00 0.99999053E+00 0.99999710E+00 0.99999930E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.37935453E-01 0.11092179E+00 0.21283473E+00 0.33429653E+00 + 0.46369719E+00 0.58924046E+00 0.70124390E+00 0.79372964E+00 0.86478079E+00 + 0.91579009E+00 0.95014435E+00 0.97192045E+00 0.98494626E+00 0.99231451E+00 + 0.99626230E+00 0.99826809E+00 0.99923535E+00 0.99967834E+00 0.99987112E+00 + 0.99995086E+00 0.99998222E+00 0.99999396E+00 0.99999813E+00 0.99999954E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.35997864E-01 0.10541719E+00 0.20277924E+00 0.31963792E+00 + 0.44538820E+00 0.56899966E+00 0.68107285E+00 0.77538898E+00 0.84942908E+00 + 0.90387802E+00 0.94152768E+00 0.96608378E+00 0.98123084E+00 0.99008573E+00 + 0.99499970E+00 0.99759155E+00 0.99889205E+00 0.99951325E+00 0.99979587E+00 + 0.99991837E+00 0.99996898E+00 0.99998892E+00 0.99999640E+00 0.99999908E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.33812539E-01 0.99282615E-01 0.19172789E+00 0.30373426E+00 + 0.42571623E+00 0.54736670E+00 0.65952252E+00 0.75570554E+00 0.83280234E+00 + 0.89080286E+00 0.93190495E+00 0.95942833E+00 0.97689050E+00 0.98740988E+00 + 0.99343707E+00 0.99672583E+00 0.99843649E+00 0.99928532E+00 0.99968733E+00 + 0.99986913E+00 0.99994766E+00 0.99998007E+00 0.99999285E+00 0.99999767E+00 + 0.99999940E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.32113298E-01 0.94441518E-01 0.18282954E+00 0.29062051E+00 + 0.40906564E+00 0.52854496E+00 0.64023290E+00 0.73756980E+00 0.81702623E+00 + 0.87802079E+00 0.92220744E+00 0.95250905E+00 0.97223122E+00 0.98444070E+00 + 0.99164253E+00 0.99569549E+00 0.99787381E+00 0.99899278E+00 0.99954247E+00 + 0.99980081E+00 0.99991701E+00 0.99996704E+00 0.99998766E+00 0.99999581E+00 + 0.99999888E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.30430056E-01 0.89656839E-01 0.17405136E+00 0.27768842E+00 + 0.39261271E+00 0.50985659E+00 0.62092991E+00 0.71922587E+00 0.80085250E+00 + 0.86470466E+00 0.91191685E+00 0.94501319E+00 0.96706708E+00 0.98106667E+00 + 0.98954743E+00 0.99445699E+00 0.99717591E+00 0.99861751E+00 0.99934973E+00 + 0.99970617E+00 0.99987252E+00 0.99994698E+00 0.99997894E+00 0.99999211E+00 + 0.99999731E+00 0.99999928E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.28656119E-01 0.84637878E-01 0.16489216E+00 0.26425681E+00 + 0.37557146E+00 0.49050430E+00 0.60088762E+00 0.70007128E+00 0.78381870E+00 + 0.85052073E+00 0.90080213E+00 0.93678370E+00 0.96129090E+00 0.97721330E+00 + 0.98709910E+00 0.99297299E+00 0.99631675E+00 0.99814193E+00 0.99909783E+00 + 0.99957840E+00 0.99981041E+00 0.99991801E+00 0.99996595E+00 0.99998648E+00 + 0.99999492E+00 0.99999826E+00 0.99999954E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.26757842E-01 0.79286545E-01 0.15516760E+00 0.25005033E+00 + 0.35759201E+00 0.47009751E+00 0.57971509E+00 0.67974915E+00 0.76562280E+00 + 0.83522784E+00 0.88867819E+00 0.92768149E+00 0.95479888E+00 0.97280321E+00 + 0.98424004E+00 0.99120134E+00 0.99526616E+00 0.99754521E+00 0.99877299E+00 + 0.99940885E+00 0.99972555E+00 0.99987730E+00 0.99994726E+00 0.99997831E+00 + 0.99999157E+00 0.99999702E+00 0.99999918E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.24775615E-01 0.73704750E-01 0.14503470E+00 0.23525318E+00 + 0.33885101E+00 0.44877785E+00 0.55750561E+00 0.65830454E+00 0.74627006E+00 + 0.81880279E+00 0.87550412E+00 0.91765674E+00 0.94753888E+00 0.96778665E+00 + 0.98092604E+00 0.98910503E+00 0.99399491E+00 0.99680544E+00 0.99835960E+00 + 0.99918688E+00 0.99961096E+00 0.99982037E+00 0.99992002E+00 0.99996572E+00 + 0.99998592E+00 0.99999453E+00 0.99999806E+00 0.99999946E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.22771346E-01 0.68055857E-01 0.13476348E+00 0.22021546E+00 + 0.31973383E+00 0.42691936E+00 0.53458582E+00 0.63599647E+00 0.72594666E+00 + 0.80136466E+00 0.86134393E+00 0.90673250E+00 0.93950673E+00 0.96214384E+00 + 0.97713065E+00 0.98665710E+00 0.99247908E+00 0.99590347E+00 0.99784351E+00 + 0.99890281E+00 0.99946050E+00 0.99974370E+00 0.99988245E+00 0.99994805E+00 + 0.99997799E+00 0.99999118E+00 0.99999678E+00 0.99999909E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.20859508E-01 0.62649606E-01 0.12488523E+00 0.20566021E+00 + 0.30108490E+00 0.40540082E+00 0.51178807E+00 0.61355153E+00 0.70524145E+00 + 0.78335789E+00 0.84650949E+00 0.89511082E+00 0.93082098E+00 0.95593506E+00 + 0.97287692E+00 0.98385935E+00 0.99071028E+00 0.99482748E+00 0.99721324E+00 + 0.99854709E+00 0.99926696E+00 0.99964213E+00 0.99983099E+00 0.99992285E+00 + 0.99996603E+00 0.99998564E+00 0.99999425E+00 0.99999791E+00 0.99999940E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.19086611E-01 0.57614859E-01 0.11562882E+00 0.19191338E+00 + 0.28330609E+00 0.38466686E+00 0.48956220E+00 0.59139026E+00 0.68451961E+00 + 0.76507745E+00 0.83122205E+00 0.88294467E+00 0.92157770E+00 0.94921312E+00 + 0.96818789E+00 0.98071644E+00 0.98868345E+00 0.99356861E+00 0.99645962E+00 + 0.99811202E+00 0.99902465E+00 0.99951192E+00 0.99976350E+00 0.99988913E+00 + 0.99994983E+00 0.99997820E+00 0.99999103E+00 0.99999664E+00 0.99999902E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.17490224E-01 0.53057541E-01 0.10718716E+00 0.17925822E+00 + 0.26675913E+00 0.36513324E+00 0.46834600E+00 0.56993915E+00 0.66416755E+00 + 0.74684975E+00 0.81573867E+00 0.87042230E+00 0.91190405E+00 0.94205600E+00 + 0.96310528E+00 0.97724579E+00 0.98640141E+00 0.99212214E+00 0.99557503E+00 + 0.99758972E+00 0.99872674E+00 0.99934769E+00 0.99967594E+00 0.99984395E+00 + 0.99992722E+00 0.99996720E+00 0.99998579E+00 0.99999416E+00 0.99999782E+00 + 0.99999937E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16066380E-01 0.48970482E-01 0.99557507E-01 0.16770935E+00 + 0.25148934E+00 0.34688426E+00 0.44826227E+00 0.54934980E+00 0.64434987E+00 + 0.72883507E+00 0.80020082E+00 0.85765737E+00 0.90188300E+00 0.93451801E+00 + 0.95765992E+00 0.97346113E+00 0.98386686E+00 0.99048476E+00 0.99455371E+00 + 0.99697422E+00 0.99836820E+00 0.99914574E+00 0.99956595E+00 0.99978604E+00 + 0.99989777E+00 0.99995277E+00 0.99997902E+00 0.99999117E+00 0.99999662E+00 + 0.99999900E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14791134E-01 0.45291033E-01 0.92638414E-01 0.15714072E+00 + 0.23736901E+00 0.32981384E+00 0.42924280E+00 0.52959723E+00 0.62507960E+00 + 0.71107228E+00 0.78465894E+00 0.84469950E+00 0.89155510E+00 0.92662696E+00 + 0.95186689E+00 0.96936705E+00 0.98107714E+00 0.98864967E+00 0.99338726E+00 + 0.99625720E+00 0.99794170E+00 0.99890013E+00 0.99942893E+00 0.99971195E+00 + 0.99985890E+00 0.99993295E+00 0.99996916E+00 0.99998635E+00 0.99999427E+00 + 0.99999781E+00 0.99999935E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13636208E-01 0.41943631E-01 0.86303189E-01 0.14738635E+00 + 0.22421561E+00 0.31374889E+00 0.41114521E+00 0.51058142E+00 0.60629996E+00 + 0.69354038E+00 0.76911601E+00 0.83156356E+00 0.88093752E+00 0.91839637E+00 + 0.94573355E+00 0.96496482E+00 0.97802887E+00 0.98661078E+00 0.99206860E+00 + 0.99543192E+00 0.99744160E+00 0.99860659E+00 0.99926201E+00 0.99961998E+00 + 0.99980983E+00 0.99990762E+00 0.99995654E+00 0.99998032E+00 0.99999155E+00 + 0.99999671E+00 0.99999900E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.12592904E-01 0.38905950E-01 0.80517070E-01 0.13840639E+00 + 0.21199543E+00 0.29867296E+00 0.39397788E+00 0.49233708E+00 0.58806750E+00 + 0.67630900E+00 0.75364454E+00 0.81831602E+00 0.87008462E+00 0.90986582E+00 + 0.93928498E+00 0.96026722E+00 0.97472568E+00 0.98436575E+00 0.99059219E+00 + 0.99449164E+00 0.99686127E+00 0.99825930E+00 0.99906038E+00 0.99950636E+00 + 0.99974764E+00 0.99987452E+00 0.99993938E+00 0.99997162E+00 0.99998720E+00 + 0.99999452E+00 0.99999787E+00 0.99999936E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.11613824E-01 0.36047944E-01 0.75052716E-01 0.12988450E+00 + 0.20033027E+00 0.28418351E+00 0.37735157E+00 0.47451800E+00 0.57009627E+00 + 0.65915703E+00 0.73808302E+00 0.80484406E+00 0.85891970E+00 0.90098331E+00 + 0.93248500E+00 0.95524785E+00 0.97114728E+00 0.98189846E+00 0.98894509E+00 + 0.99342612E+00 0.99619290E+00 0.99785255E+00 0.99882017E+00 0.99936867E+00 + 0.99967104E+00 0.99983318E+00 0.99991776E+00 0.99996070E+00 0.99998190E+00 + 0.99999210E+00 0.99999687E+00 0.99999904E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.10674625E-01 0.33302441E-01 0.69791766E-01 0.12165444E+00 + 0.18901948E+00 0.27006496E+00 0.36105615E+00 0.45693608E+00 0.55223025E+00 + 0.64196342E+00 0.72234258E+00 0.79108474E+00 0.84739856E+00 0.89171689E+00 + 0.92530902E+00 0.94988640E+00 0.96727602E+00 0.97919325E+00 0.98711354E+00 + 0.99222358E+00 0.99542667E+00 0.99737848E+00 0.99853521E+00 0.99920219E+00 + 0.99957645E+00 0.99978088E+00 0.99988959E+00 0.99994588E+00 0.99997426E+00 + 0.99998820E+00 0.99999486E+00 0.99999797E+00 0.99999938E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.97719951E-02 0.30660317E-01 0.64718360E-01 0.11369477E+00 + 0.17803915E+00 0.25629529E+00 0.34507582E+00 0.43958465E+00 0.53447250E+00 + 0.62473933E+00 0.70643912E+00 0.77705494E+00 0.83553576E+00 0.88207664E+00 + 0.91776189E+00 0.94418282E+00 0.96310802E+00 0.97624385E+00 0.98509023E+00 + 0.99087676E+00 0.99455613E+00 0.99683181E+00 0.99820156E+00 0.99900421E+00 + 0.99946225E+00 0.99971683E+00 0.99985469E+00 0.99992743E+00 0.99996482E+00 + 0.99998356E+00 0.99999271E+00 0.99999707E+00 0.99999909E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.88801851E-02 0.28049766E-01 0.59703895E-01 0.10582073E+00 + 0.16715959E+00 0.24261836E+00 0.32914911E+00 0.42221616E+00 0.51660349E+00 + 0.60730066E+00 0.69022533E+00 0.76264088E+00 0.82324532E+00 0.87199808E+00 + 0.90979485E+00 0.93809957E+00 0.95861377E+00 0.97302664E+00 0.98285609E+00 + 0.98937029E+00 0.99356905E+00 0.99620295E+00 0.99781182E+00 0.99876914E+00 + 0.99932419E+00 0.99963786E+00 0.99981065E+00 0.99990345E+00 0.99995206E+00 + 0.99997688E+00 0.99998924E+00 0.99999525E+00 0.99999809E+00 0.99999941E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.80081302E-02 0.25495502E-01 0.54792290E-01 0.98095269E-01 + 0.15645968E+00 0.22912417E+00 0.31337177E+00 0.40492681E+00 0.49871507E+00 + 0.58973091E+00 0.67377323E+00 0.74790117E+00 0.81057179E+00 0.86151222E+00 + 0.90142701E+00 0.93164606E+00 0.95379549E+00 0.96953907E+00 0.98040591E+00 + 0.98769793E+00 0.99245926E+00 0.99548649E+00 0.99736166E+00 0.99849378E+00 + 0.99916019E+00 0.99954274E+00 0.99975694E+00 0.99987395E+00 0.99993631E+00 + 0.99996874E+00 0.99998519E+00 0.99999334E+00 0.99999728E+00 0.99999914E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.62484595E-01 0.17968442E+00 0.33465248E+00 0.50294347E+00 + 0.65942197E+00 0.78633117E+00 0.87723025E+00 0.93530836E+00 0.96868720E+00 + 0.98605761E+00 0.99428332E+00 0.99784021E+00 0.99924793E+00 0.99975867E+00 + 0.99992872E+00 0.99998072E+00 0.99999533E+00 0.99999910E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.60896680E-01 0.17459028E+00 0.32456263E+00 0.48805059E+00 + 0.64188849E+00 0.76920717E+00 0.86297229E+00 0.92498015E+00 0.96207856E+00 + 0.98228007E+00 0.99233859E+00 0.99693327E+00 0.99886326E+00 0.99960993E+00 + 0.99987627E+00 0.99996394E+00 0.99999058E+00 0.99999806E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.58324135E-01 0.16731793E+00 0.31166842E+00 0.47044917E+00 + 0.62210980E+00 0.75029491E+00 0.84725354E+00 0.91344647E+00 0.95451827E+00 + 0.97781278E+00 0.98994303E+00 0.99576168E+00 0.99833878E+00 0.99939438E+00 + 0.99979472E+00 0.99993540E+00 0.99998125E+00 0.99999510E+00 0.99999899E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.55345870E-01 0.15914872E+00 0.29760662E+00 0.45166431E+00 + 0.60122448E+00 0.73031506E+00 0.83047308E+00 0.90089742E+00 0.94607301E+00 + 0.97265686E+00 0.98707017E+00 0.99429420E+00 0.99764932E+00 0.99909571E+00 + 0.99967517E+00 0.99989109E+00 0.99996597E+00 0.99999016E+00 0.99999743E+00 + 0.99999947E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.51826921E-01 0.14968664E+00 0.28166467E+00 0.43074168E+00 + 0.57821401E+00 0.70836460E+00 0.81194133E+00 0.88686166E+00 0.93644151E+00 + 0.96662436E+00 0.98360255E+00 0.99245750E+00 0.99675031E+00 0.99868824E+00 + 0.99950394E+00 0.99982435E+00 0.99994187E+00 0.99998215E+00 0.99999505E+00 + 0.99999892E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.48689009E-01 0.14117337E+00 0.26713281E+00 0.41134590E+00 + 0.55644625E+00 0.68710909E+00 0.79352046E+00 0.87250188E+00 0.92627318E+00 + 0.96003504E+00 0.97967290E+00 0.99029180E+00 0.99564393E+00 0.99816313E+00 + 0.99927197E+00 0.99972882E+00 0.99990512E+00 0.99996888E+00 0.99999050E+00 + 0.99999738E+00 0.99999943E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.46283197E-01 0.13450474E+00 0.25542299E+00 0.39520185E+00 + 0.53769031E+00 0.66813018E+00 0.77646691E+00 0.85871278E+00 0.91613984E+00 + 0.95321472E+00 0.97544360E+00 0.98786465E+00 0.99435051E+00 0.99752154E+00 + 0.99897523E+00 0.99960071E+00 0.99985349E+00 0.99994949E+00 0.99998377E+00 + 0.99999528E+00 0.99999892E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.43919453E-01 0.12796432E+00 0.24394195E+00 0.37933187E+00 + 0.51913464E+00 0.64915692E+00 0.75917134E+00 0.84447292E+00 0.90544806E+00 + 0.94583895E+00 0.97074152E+00 0.98508225E+00 0.99281715E+00 0.99673261E+00 + 0.99859553E+00 0.99942950E+00 0.99978104E+00 0.99992066E+00 0.99997292E+00 + 0.99999136E+00 0.99999750E+00 0.99999943E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.41461176E-01 0.12119560E+00 0.23211546E+00 0.36302635E+00 + 0.50005501E+00 0.62955595E+00 0.74114667E+00 0.82944413E+00 0.89397886E+00 + 0.93776982E+00 0.96547859E+00 0.98188635E+00 0.99100450E+00 0.99577008E+00 + 0.99811621E+00 0.99920539E+00 0.99968260E+00 0.99988005E+00 0.99995722E+00 + 0.99998573E+00 0.99999569E+00 0.99999897E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.38864769E-01 0.11407423E+00 0.21972055E+00 0.34597695E+00 + 0.48009951E+00 0.60898340E+00 0.72209670E+00 0.81339475E+00 0.88156208E+00 + 0.92888578E+00 0.95956800E+00 0.97821452E+00 0.98886786E+00 0.99460275E+00 + 0.99751637E+00 0.99891510E+00 0.99955013E+00 0.99982296E+00 0.99993393E+00 + 0.99997668E+00 0.99999229E+00 0.99999768E+00 0.99999945E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.36180897E-01 0.10671952E+00 0.20692299E+00 0.32835299E+00 + 0.45940400E+00 0.58752491E+00 0.70205872E+00 0.79632507E+00 0.86817399E+00 + 0.91915003E+00 0.95296836E+00 0.97402689E+00 0.98637288E+00 0.99320376E+00 + 0.99677690E+00 0.99854621E+00 0.99937633E+00 0.99974560E+00 0.99990143E+00 + 0.99996383E+00 0.99998755E+00 0.99999611E+00 0.99999904E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.33487371E-01 0.99326507E-01 0.19402192E+00 0.31050683E+00 + 0.43831399E+00 0.56547331E+00 0.68125049E+00 0.77837615E+00 0.85389033E+00 + 0.90859007E+00 0.94567627E+00 0.96930388E+00 0.98349455E+00 0.99154937E+00 + 0.99587851E+00 0.99808469E+00 0.99915181E+00 0.99964206E+00 0.99985611E+00 + 0.99994495E+00 0.99998001E+00 0.99999318E+00 0.99999788E+00 0.99999948E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.30926821E-01 0.92265290E-01 0.18161430E+00 0.29318856E+00 + 0.41762441E+00 0.54356676E+00 0.66028501E+00 0.76000788E+00 0.83902340E+00 + 0.89739622E+00 0.93779313E+00 0.96408927E+00 0.98024401E+00 0.98963530E+00 + 0.99481191E+00 0.99752155E+00 0.99886984E+00 0.99950811E+00 0.99979573E+00 + 0.99991915E+00 0.99996960E+00 0.99998925E+00 0.99999655E+00 0.99999913E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.28555657E-01 0.85687534E-01 0.16995776E+00 0.27674391E+00 + 0.39773072E+00 0.52220413E+00 0.63952283E+00 0.74151423E+00 0.82378923E+00 + 0.88571026E+00 0.92939988E+00 0.95842050E+00 0.97663161E+00 0.98745783E+00 + 0.99356807E+00 0.99684730E+00 0.99852271E+00 0.99933828E+00 0.99971678E+00 + 0.99988432E+00 0.99995507E+00 0.99998359E+00 0.99999456E+00 0.99999859E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.26418391E-01 0.79716083E-01 0.15926868E+00 0.26147607E+00 + 0.37899660E+00 0.50177090E+00 0.61933048E+00 0.72321015E+00 0.80843282E+00 + 0.87370414E+00 0.92060413E+00 0.95235577E+00 0.97268226E+00 0.98502237E+00 + 0.99214293E+00 0.99605477E+00 0.99810337E+00 0.99912696E+00 0.99961524E+00 + 0.99983772E+00 0.99993458E+00 0.99997488E+00 0.99999091E+00 0.99999701E+00 + 0.99999923E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.24507861E-01 0.74338571E-01 0.14954309E+00 0.24740871E+00 + 0.36148752E+00 0.48237523E+00 0.59984546E+00 0.70524080E+00 0.79308581E+00 + 0.86148187E+00 0.91147742E+00 0.94593699E+00 0.96841532E+00 0.98233386E+00 + 0.99053393E+00 0.99513871E+00 0.99760667E+00 0.99887028E+00 0.99948878E+00 + 0.99977833E+00 0.99990803E+00 0.99996363E+00 0.99998644E+00 0.99999541E+00 + 0.99999878E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.22792551E-01 0.69477044E-01 0.14066564E+00 0.23441664E+00 + 0.34510030E+00 0.46395768E+00 0.58105645E+00 0.68763203E+00 0.77779287E+00 + 0.84908953E+00 0.90205585E+00 0.93918601E+00 0.96383942E+00 0.97939141E+00 + 0.98873490E+00 0.99409110E+00 0.99702489E+00 0.99856186E+00 0.99933254E+00 + 0.99970262E+00 0.99987287E+00 0.99994792E+00 0.99997964E+00 0.99999248E+00 + 0.99999748E+00 0.99999934E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.21236107E-01 0.65038963E-01 0.13249252E+00 0.22233072E+00 + 0.32967460E+00 0.44639441E+00 0.56288835E+00 0.67035372E+00 0.76255492E+00 + 0.83654276E+00 0.89235692E+00 0.93211492E+00 0.95895925E+00 0.97619355E+00 + 0.98674074E+00 0.99290561E+00 0.99635218E+00 0.99819715E+00 0.99914352E+00 + 0.99960894E+00 0.99982849E+00 0.99992786E+00 0.99997101E+00 0.99998901E+00 + 0.99999621E+00 0.99999898E+00 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.19826460E-01 0.60995128E-01 0.12498275E+00 0.21111189E+00 + 0.31518901E+00 0.42969215E+00 0.54537698E+00 0.65346268E+00 0.74743684E+00 + 0.82390203E+00 0.88242826E+00 0.92475539E+00 0.95379159E+00 0.97274568E+00 + 0.98454964E+00 0.99157689E+00 0.99558220E+00 0.99777029E+00 0.99891693E+00 + 0.99949368E+00 0.99977223E+00 0.99990146E+00 0.99995906E+00 0.99998373E+00 + 0.99999389E+00 0.99999791E+00 0.99999944E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.18504707E-01 0.57189925E-01 0.11787949E+00 0.20042955E+00 + 0.30128550E+00 0.41351295E+00 0.52823862E+00 0.63674403E+00 0.73228980E+00 + 0.81107132E+00 0.87221038E+00 0.91707028E+00 0.94831174E+00 0.96902985E+00 + 0.98214763E+00 0.99009387E+00 0.99470644E+00 0.99727513E+00 0.99864868E+00 + 0.99935437E+00 0.99970287E+00 0.99986837E+00 0.99994395E+00 0.99997717E+00 + 0.99999121E+00 0.99999692E+00 0.99999916E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.17240516E-01 0.53542625E-01 0.11104818E+00 0.19010866E+00 + 0.28777277E+00 0.39767508E+00 0.51132041E+00 0.62008235E+00 0.71703438E+00 + 0.79799947E+00 0.86167087E+00 0.90903773E+00 0.94250301E+00 0.96503176E+00 + 0.97952195E+00 0.98844539E+00 0.99371556E+00 0.99670430E+00 0.99833328E+00 + 0.99918714E+00 0.99961778E+00 0.99982684E+00 0.99992455E+00 0.99996853E+00 + 0.99998759E+00 0.99999556E+00 0.99999876E+00 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.16029272E-01 0.50041022E-01 0.10446909E+00 0.18012545E+00 + 0.27462897E+00 0.38216456E+00 0.49461963E+00 0.60348575E+00 0.70168573E+00 + 0.78470344E+00 0.85082381E+00 0.90066624E+00 0.93636767E+00 0.96074852E+00 + 0.97666632E+00 0.98662365E+00 0.99260179E+00 0.99605095E+00 0.99796518E+00 + 0.99898781E+00 0.99951393E+00 0.99977472E+00 0.99989930E+00 0.99995666E+00 + 0.99998212E+00 0.99999302E+00 0.99999752E+00 0.99999931E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.14839458E-01 0.46599954E-01 0.97996884E-01 0.17028457E+00 + 0.26163089E+00 0.36675683E+00 0.47793312E+00 0.58678630E+00 0.68611515E+00 + 0.77109012E+00 0.83960413E+00 0.89191059E+00 0.92987364E+00 0.95615646E+00 + 0.97356277E+00 0.98461485E+00 0.99135469E+00 0.99530748E+00 0.99753922E+00 + 0.99875312E+00 0.99938956E+00 0.99971132E+00 0.99986823E+00 0.99994205E+00 + 0.99997557E+00 0.99999025E+00 0.99999646E+00 0.99999900E+00 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.00000000E+00 0.13681538E-01 0.43247455E-01 0.91679267E-01 0.16065093E+00 + 0.24885553E+00 0.35153480E+00 0.46134359E+00 0.57006106E+00 0.67038943E+00 + 0.75721286E+00 0.82805043E+00 0.88279517E+00 0.92303317E+00 0.95125871E+00 + 0.97020840E+00 0.98241288E+00 0.98996701E+00 0.99446692E+00 0.99704935E+00 + 0.99847824E+00 0.99924093E+00 0.99963383E+00 0.99982922E+00 0.99992304E+00 + 0.99996656E+00 0.99998605E+00 0.99999449E+00 0.99999802E+00 0.99999944E+00 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 + 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 0.10000000E+01 Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/Makefile =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/Makefile (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/Makefile (revision 1444) @@ -0,0 +1,148 @@ +#============================================================ +# Makefile to compile modified 5.20 version of CORSIKA. +# +# Copyright (c) J C Gonzalez, 1998 +#============================================================ +# +# Modified by C. Bigongiari 2001-11-06 to handle two different +# codes for Linux and Alpha. +# Now it compiles/link Corsika version 6.005 +# +#============================================================== + +DESTDIR = . + +F77 = f77 +CC = cc +CERNDIR = CERN +ADDFLAGS = + +EXE_VERSION = c614nx + +### +# compiler & linker options section +### + +# machine dependencies +SYSTEM = GENERIC + +## generic (alpha) +GENERIC_CFLAGS = -I. -I/usr/include -DJC_UNDERSCORES ${ADDFLAGS} +GENERIC_FFLAGS = ${GENERIC_CFLAGS} +GENERIC_EXE = ${EXE_VERSION}-generic +GENERIC_LIBS = -lm -lc +GENERIC_CC = cc +GENERIC_F77 = f77 +GENERIC_SRC = c614nx-osf.f + +## osf (alpha) +OSF_CFLAGS = -I. -I/usr/include -DJC_UNDERSCORES ${ADDFLAGS} +OSF_FFLAGS = ${OSF_CFLAGS} +OSF_EXE = ${EXE_VERSION}-osf +OSF_LIBS = -lm -lc +OSF_CC = cc +OSF_F77 = f77 +OSF_SRC = c614nx-osf.f + +## linux +LINUX_CFLAGS = -I. -I/usr/include -funderscoring -DJC_UNDERSCORES \ + -m486 -DCPU=686 ${ADDFLAGS} +LINUX_FFLAGS = ${LINUX_CFLAGS} +LINUX_EXE = ${EXE_VERSION}-linux +LINUX_LIBS = -lm -lc +LINUX_CC = gcc +LINUX_F77 = g77 +LINUX_SRC = c614nx-linux.f + +# choose this machine values +F77 = ${${SYSTEM}_F77} +CC = ${${SYSTEM}_CC} +CFLAGS = ${${SYSTEM}_CFLAGS} +FFLAGS = ${${SYSTEM}_FFLAGS} +LIBS = ${${SYSTEM}_LIBS} +SRC = ${${SYSTEM}_SRC} + +### +# miscelanea +### + +CERNDIR = CERN + +### +# files section +### + +HEADERS = + +FSRCS = \ + gheisha600.f venus.f ${SRC} + +CSRCS = \ + jcio.c jcdate.c timer.c atmo.c + +ALLOBJS = ${FSRCS:.f=.o} ${CSRCS:.c=.o} + +PROGRAM = ${${SYSTEM}_EXE} + +help: + @echo '' + @echo 'Usage::' + @echo '' + @echo ' make help shows this help or' + @echo ' make clean cleans-up garbage or' + @echo ' make all [ SYSTEM = { OSF | LINUX | GENERIC} ]' + @echo ' compiles with pre-defined flags for' + @echo ' OSF, Linux of Unix' + @echo '' + @echo 'Additionally, you can add to your command line ADDFLAGS=' + @echo 'to include any new flag you want.' + @echo '' + @echo 'In case of problems, please contact to ' + @echo '' + +all: message ${PROGRAM} + +message: + @echo "============================================================" + @echo " Compilation of CORSIKA ("${EXE_VERSION}")" + @echo " Target machine => `uname -a`" + @echo " System choosen => "${SYSTEM} + @echo " Date: `date`" + @echo "============================================================" + @echo '' + +${PROGRAM}: ${ALLOBJS} + @echo -n " . . . and linking -> "${PROGRAM}" . . . " + $(F77) ${FFLAGS} -o ${PROGRAM} ${ALLOBJS} ${LIBS} ${XLIB} + @echo "done." + +.f.o: + @echo "Compiling "$<" . . ." + $(F77) -c $(FFLAGS) $< -o $@ + +.c.o: + @echo "Compiling "$<" . . ." + $(CC) -c $(CFLAGS) $< -o $@ + +clean: + @echo "Cleaning . . ." + @rm *.o *~ core *.BAK > /dev/null 2>&1 || echo "...already clean." + + + + + + + + + + + + + + + + + + + Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/NUCNUCCS =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/NUCNUCCS (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/NUCNUCCS (revision 1444) @@ -0,0 +1,2873 @@ +0.2364000000E+030.4192455465E+030.4869287370E+030.5033423627E+030.0000000000E+00 +0.7340329246E+030.7372974817E+030.0000000000E+000.8270120942E+030.8362345422E+03 +0.8517021299E+030.8859238526E+030.8970539414E+030.9429513425E+030.9809473505E+03 +0.1035655313E+040.1028833214E+040.1064293860E+040.1134839684E+040.1158022931E+04 +0.1123861966E+040.1150858032E+040.1178502930E+040.1206812065E+040.1221328328E+04 +0.1212237443E+040.1221910612E+040.1271085324E+040.1271661610E+040.1308604233E+04 +0.1341535033E+040.1367527954E+040.1394024048E+040.1421033569E+040.1448566980E+04 +0.1401984750E+040.1463388968E+040.1483764648E+040.1504424402E+040.1498792169E+04 +0.1511763184E+040.1524847778E+040.1538044678E+040.1551355713E+040.1564781860E+04 +0.1578325317E+040.1591985962E+040.1605764042E+040.1639553955E+040.1674055420E+04 +0.1610349161E+040.1669523211E+040.1698150284E+040.1733824641E+040.1690624557E+04 +0.1750644689E+040.2988000000E+030.5151232717E+030.5816478896E+030.5915378260E+03 +0.0000000000E+000.8537041607E+030.8515776262E+030.0000000000E+000.9475330648E+03 +0.9548342237E+030.9697707891E+030.1006302071E+040.1016764987E+040.1066593752E+04 +0.1107425824E+040.1166785778E+040.1157591538E+040.1195443423E+040.1271671837E+04 +0.1297543314E+040.1257348445E+040.1285877930E+040.1315056030E+040.1344896220E+04 +0.1361194278E+040.1348583995E+040.1360535416E+040.1411374495E+040.1410733474E+04 +0.1451247403E+040.1486545507E+040.1514613037E+040.1543208008E+040.1572344849E+04 +0.1602031407E+040.1547334726E+040.1615979591E+040.1636914795E+040.1658121889E+04 +0.1651913041E+040.1665506226E+040.1679210937E+040.1693029541E+040.1706960693E+04 +0.1721006348E+040.1735168945E+040.1749446899E+040.1763843999E+040.1800036377E+04 +0.1836971786E+040.1764793072E+040.1829835412E+040.1861060657E+040.1900326700E+04 +0.1852989091E+040.1916282473E+040.3498000000E+030.5902901864E+030.6564631910E+03 +0.6622844790E+030.0000000000E+000.9466567719E+030.9411527612E+030.0000000000E+00 +0.1041597871E+040.1047773834E+040.1062481566E+040.1100618132E+040.1110740598E+04 +0.1163140249E+040.1205769033E+040.1267879825E+040.1257342194E+040.1296545497E+04 +0.1375631674E+040.1406938982E+040.1362635150E+040.1392301025E+040.1422613525E+04 +0.1453585407E+040.1471273446E+040.1456237897E+040.1469912083E+040.1521904393E+04 +0.1520476433E+040.1563597672E+040.1600578924E+040.1630183105E+040.1660335327E+04 +0.1691044189E+040.1722321828E+040.1661944757E+040.1735731109E+040.1757088013E+04 +0.1778706844E+040.1772195265E+040.1786275757E+040.1800468262E+040.1814773682E+04 +0.1829192627E+040.1843726196E+040.1858375244E+040.1873140625E+040.1888023690E+04 +0.1925959595E+040.1964658810E+040.1886519843E+040.1955752712E+040.1988855784E+04 +0.2030704840E+040.1980467561E+040.2046118139E+040.2716000000E+030.4700201601E+03 +0.5462645754E+030.5685367473E+030.0000000000E+000.8098696423E+030.8159294428E+03 +0.0000000000E+000.9111460402E+030.9224263586E+030.9398161389E+030.9758561309E+03 +0.9885875496E+030.1035961536E+040.1075229385E+040.1130877826E+040.1125339419E+04 +0.1161608864E+040.1232165962E+040.1264631243E+040.1230968046E+040.1259349365E+04 +0.1288386230E+040.1318091577E+040.1333405051E+040.1325343879E+040.1335301915E+04 +0.1386657727E+040.1388070373E+040.1426185237E+040.1460244545E+040.1487285156E+04 +0.1514825317E+040.1542876465E+040.1571447499E+040.1525453057E+040.1587745343E+04 +0.1609147217E+040.1630837274E+040.1625571969E+040.1639243896E+040.1653029785E+04 +0.1666932617E+040.1680953369E+040.1695089966E+040.1709346558E+040.1723723022E+04 +0.1738220454E+040.1773049316E+040.1808576343E+040.1744922232E+040.1805087228E+04 +0.1834410006E+040.1870804444E+040.1827099646E+040.1889047855E+040.3426000000E+03 +0.5749447318E+030.6499914687E+030.6657299443E+030.0000000000E+000.9380060686E+03 +0.9388017284E+030.0000000000E+000.1039842068E+040.1049240755E+040.1066068889E+04 +0.1104195355E+040.1116243225E+040.1167126690E+040.1208825804E+040.1268365777E+04 +0.1260683455E+040.1298821196E+040.1373688038E+040.1413765211E+040.1374098629E+04 +0.1404057373E+040.1434668457E+040.1465947538E+040.1482971817E+040.1471484020E+04 +0.1483567732E+040.1536798966E+040.1537023937E+040.1578682701E+040.1615132240E+04 +0.1644245850E+040.1673884644E+040.1704057617E+040.1734775083E+040.1680841769E+04 +0.1750257075E+040.1772274780E+040.1794570080E+040.1788680473E+040.1802980225E+04 +0.1817394287E+040.1831925049E+040.1846570557E+040.1861333252E+040.1876215088E+04 +0.1891213501E+040.1906334966E+040.1943578369E+040.1981550311E+040.1909583526E+04 +0.1975539069E+040.2007422338E+040.2047345196E+040.1999490853E+040.2064818897E+04 +0.3997000000E+030.6565616744E+030.7312411780E+030.7429428142E+030.0000000000E+00 +0.1036679985E+040.1034252783E+040.0000000000E+000.1139270151E+040.1147587019E+04 +0.1164145632E+040.1203605489E+040.1215288496E+040.1268240345E+040.1311262853E+04 +0.1372691947E+040.1363908231E+040.1402806888E+040.1479046363E+040.1530123851E+04 +0.1486363864E+040.1517487183E+040.1549262939E+040.1581704494E+040.1600069425E+04 +0.1586216775E+040.1599923164E+040.1654448749E+040.1653906020E+040.1698150713E+04 +0.1736302173E+040.1766951172E+040.1798140625E+040.1829880859E+040.1862180971E+04 +0.1802687790E+040.1877165447E+040.1899643311E+040.1922390041E+040.1916161496E+04 +0.1930951538E+040.1945856201E+040.1960875977E+040.1976011719E+040.1991264038E+04 +0.2006634277E+040.2022123047E+040.2037732028E+040.2076722900E+040.2116459947E+04 +0.2038656068E+040.2108739605E+040.2142469317E+040.2184922414E+040.2134173787E+04 +0.2201918377E+040.5065000000E+030.7857980391E+030.8664114439E+030.8721725227E+03 +0.0000000000E+000.1203015806E+040.1195258303E+040.0000000000E+000.1310815639E+04 +0.1316649206E+040.1332643992E+040.1376591018E+040.1387278975E+040.1448688337E+04 +0.1498841402E+040.1573568526E+040.1559092518E+040.1606230522E+040.1705227875E+04 +0.1732777215E+040.1689660865E+040.1722626099E+040.1756234497E+040.1790499760E+04 +0.1807561710E+040.1788432878E+040.1803917060E+040.1861415012E+040.1857422331E+04 +0.1905625505E+040.1946635017E+040.1979545532E+040.2013014160E+040.2047047119E+04 +0.2081657447E+040.2013157446E+040.2094626954E+040.2118005371E+040.2141646658E+04 +0.2133820878E+040.2149218262E+040.2164727051E+040.2180349121E+040.2196082520E+04 +0.2211927979E+040.2227889404E+040.2243967285E+040.2260159621E+040.2302171143E+04 +0.2344964467E+040.2256113614E+040.2333932030E+040.2370755866E+040.2417515836E+04 +0.2361223486E+040.2433566823E+040.5986000000E+030.9119966706E+030.9871783096E+03 +0.9831529581E+030.0000000000E+000.1349952643E+040.1335045244E+040.0000000000E+00 +0.1457295592E+040.1460468510E+040.1475554825E+040.1522104023E+040.1531784025E+04 +0.1597934688E+040.1651618981E+040.1732576201E+040.1714777664E+040.1765250898E+04 +0.1873078719E+040.1896297180E+040.1871661754E+040.1905733398E+040.1940425415E+04 +0.1975750074E+040.1991821492E+040.1967831436E+040.1986249350E+040.2044060845E+04 +0.2035727794E+040.2087444640E+040.2129442323E+040.2164314941E+040.2199757080E+04 +0.2235779297E+040.2272393564E+040.2197254377E+040.2279729181E+040.2302878906E+04 +0.2326263732E+040.2318134243E+040.2333981934E+040.2349939941E+040.2366005371E+04 +0.2382182373E+040.2398468262E+040.2414867187E+040.2431376465E+040.2448000457E+04 +0.2490516846E+040.2533773595E+040.2434431683E+040.2519537019E+040.2558544570E+04 +0.2609119894E+040.2548090572E+040.2623814694E+040.6698000000E+030.1008844387E+04 +0.1081626462E+040.1071726419E+040.0000000000E+000.1464110178E+040.1444648382E+04 +0.0000000000E+000.1572008303E+040.1573555377E+040.1588192603E+040.1636690403E+04 +0.1645815196E+040.1715376736E+040.1771639251E+040.1857065733E+040.1837057961E+04 +0.1889977425E+040.2004113377E+040.2024710745E+040.2019860538E+040.2054869873E+04 +0.2090486572E+040.2126721111E+040.2143905203E+040.2116192549E+040.2137538986E+04 +0.2195481145E+040.2185326995E+040.2239870180E+040.2282800963E+040.2319211426E+04 +0.2356200684E+040.2393781494E+040.2431959896E+040.2351527778E+040.2435918685E+04 +0.2459008057E+040.2482316450E+040.2474194852E+040.2490401611E+040.2506714844E+04 +0.2523134766E+040.2539662354E+040.2556298340E+040.2573042969E+040.2589899170E+04 +0.2606861783E+040.2649013916E+040.2691846198E+040.2584857913E+040.2675864704E+04 +0.2715618830E+040.2768477779E+040.2703602090E+040.2782486391E+04 +0.6505744621E+000.4916157708E+000.7999651792E+000.4013802989E+000.6433631874E+00 +0.8470697844E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.3776118115E+000.5878626461E+000.7457607779E+000.8739412365E+000.9637804410E+00 +0.3458821034E+000.5349612453E+000.6750290658E+000.7932319916E+000.8950571984E+00 +0.9691065292E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.0000000000E+000.0000000000E+000.0000000000E+000.3194229914E+000.4904556202E+00 +0.6132635165E+000.7137729773E+000.8022406194E+000.8813573260E+000.9461227083E+00 +0.9865259212E+000.3052164481E+000.4673741148E+000.5826706543E+000.6758939354E+00 +0.7572897988E+000.8316643353E+000.8993104230E+000.9546657723E+000.9887981872E+00 +0.2945087630E+000.4500729517E+000.5598421946E+000.6477153899E+000.7235544351E+00 +0.7924703191E+000.8568284411E+000.9155359339E+000.9628070408E+000.9910734884E+00 +0.2878109856E+000.4392941175E+000.5455393822E+000.6299285301E+000.7020338489E+00 +0.7668423383E+000.8271485331E+000.8836972273E+000.9341091923E+000.9725988645E+00 +0.9938830827E+000.2796461156E+000.4262525519E+000.5285807762E+000.6093612846E+00 +0.6778462418E+000.7388374702E+000.7952148393E+000.8486103296E+000.8989929955E+00 +0.9435989046E+000.9770126865E+000.9949919134E+000.2760136152E+000.4205887192E+00 +0.5210919721E+000.6000353339E+000.6665420307E+000.7253016892E+000.7791113632E+00 +0.8296990721E+000.8777000433E+000.9219941492E+000.9591430941E+000.9846802714E+00 +0.9969815285E+000.2720102844E+000.4144402784E+000.5131194091E+000.5903117447E+00 +0.6550138973E+000.7118197159E+000.7634514548E+000.8116533926E+000.8573899419E+00 +0.9005214933E+000.9392043308E+000.9699413048E+000.9895107663E+000.9980993322E+00 +0.2695821775E+000.4111341035E+000.5089264566E+000.5851606578E+000.6487920895E+00 +0.7043705562E+000.7545692842E+000.8011005238E+000.8450017573E+000.8865051438E+00 +0.9246215158E+000.9569321523E+000.9804651193E+000.9938534001E+000.9990099457E+00 +0.2630441770E+000.4006008826E+000.4954008629E+000.5690897917E+000.6303843701E+00 +0.6836988096E+000.7316172056E+000.7758171648E+000.8174472088E+000.8572018501E+00 +0.8951151974E+000.9301425880E+000.9599604819E+000.9817633139E+000.9942288653E+00 +0.9990631674E+000.2599104139E+000.3960607374E+000.4896938882E+000.5622928452E+00 +0.6225016228E+000.6746860826E+000.7213888869E+000.7642498904E+000.8044001816E+00 +0.8425993872E+000.8791608814E+000.9136706082E+000.9446758740E+000.9698441664E+00 +0.9870838273E+000.9961933071E+000.9994288701E+000.2586415060E+000.3953753350E+00 +0.4892497388E+000.5618746590E+000.6219499385E+000.6738609044E+000.7201509062E+00 +0.7624472175E+000.8018583685E+000.8391235406E+000.8745793556E+000.9079667208E+00 +0.9382082404E+000.9634923291E+000.9820107839E+000.9931601953E+000.9982380612E+00 +0.9997717891E+000.2502535115E+000.3810073497E+000.4719552753E+000.5431373917E+00 +0.6026386708E+000.6545537899E+000.7012698986E+000.7443218845E+000.7847566077E+00 +0.8232640626E+000.8601398175E+000.8951106488E+000.9271467461E+000.9545369861E+00 +0.9754962768E+000.9891749810E+000.9963646215E+000.9991826628E+000.9999084336E+00 +0.2421278549E+000.3685097464E+000.4563833446E+000.5251116592E+000.5825000338E+00 +0.6324970842E+000.6774005938E+000.7186876606E+000.7573823422E+000.7942261104E+00 +0.8297272659E+000.8640936388E+000.8970496113E+000.9276271114E+000.9541754732E+00 +0.9748706279E+000.9886733636E+000.9961087232E+000.9991028918E+000.9998967304E+00 +0.2389925330E+000.3626560178E+000.4495273511E+000.5175753158E+000.5743730353E+00 +0.6237959987E+000.6681065278E+000.7087572963E+000.7467517608E+000.7828168461E+00 +0.8174693676E+000.8509744293E+000.8832373583E+000.9136466765E+000.9410018370E+00 +0.9637762352E+000.9807141821E+000.9915167618E+000.9971307946E+000.9993413678E+00 +0.9999235544E+000.2358572111E+000.3581753090E+000.4440950439E+000.5113714584E+00 +0.5674841085E+000.6162590120E+000.6599269020E+000.6999165923E+000.7372118058E+00 +0.7725258812E+000.8063801798E+000.8391093298E+000.8707489052E+000.9009718673E+00 +0.9288857842E+000.9531630495E+000.9724540028E+000.9860094941E+000.9941328885E+00 +0.9981012099E+000.9995796613E+000.9999524376E+000.2327218892E+000.3548885373E+00 +0.4399007223E+000.5063262983E+000.5616717641E+000.6097343045E+000.6527163551E+00 +0.6920234002E+000.7286202206E+000.7632073206E+000.7963072910E+000.8282870411E+00 +0.8593136825E+000.8892427563E+000.9174810019E+000.9429440612E+000.9642690284E+00 +0.9803291970E+000.9908280292E+000.9965513763E+000.9990267018E+000.9998177974E+00 +0.9999831114E+000.2330224700E+000.3542500804E+000.4381708841E+000.5034709281E+00 +0.5576729271E+000.6045695590E+000.6463527636E+000.6844149818E+000.7197066082E+00 +0.7529147250E+000.7845571679E+000.8150249600E+000.8445776197E+000.8732835821E+00 +0.9009092571E+000.9268067259E+000.9499151551E+000.9690028772E+000.9831509428E+00 +0.9922454869E+000.9971213625E+000.9991972784E+000.9998513537E+000.9999863509E+00 +0.2259484982E+000.3442119778E+000.4263445501E+000.4903908128E+000.5436355729E+00 +0.5897581229E+000.6308872991E+000.6683762861E+000.7031488794E+000.7358734739E+00 +0.7670570525E+000.7970942299E+000.8262800466E+000.8547801641E+000.8825498303E+00 +0.9092158896E+000.9339899999E+000.9557340634E+000.9732726279E+000.9858866730E+00 +0.9937142760E+000.9977494958E+000.9993964506E+000.9998927699E+000.9999905722E+00 +0.2287020159E+000.3467863590E+000.4281333057E+000.4911599022E+000.5432574528E+00 +0.5881420455E+000.6279540989E+000.6640468784E+000.6973378027E+000.7284847457E+00 +0.7579824691E+000.7862178768E+000.8134989466E+000.8400585146E+000.8660247565E+00 +0.8913491239E+000.9157014848E+000.9383880134E+000.9583957654E+000.9746533364E+00 +0.9864654026E+000.9938905628E+000.9977781219E+000.9993934417E+000.9998900826E+00 +0.9999901245E+000.2222539261E+000.3388217882E+000.4197767511E+000.4828606620E+00 +0.5352450713E+000.5805527720E+000.6208781498E+000.6575495780E+000.6914702818E+00 +0.7232897214E+000.7534970827E+000.7824735199E+000.8105163326E+000.8378350973E+00 +0.8645129750E+000.8904312055E+000.9151791726E+000.9380127638E+000.9579483582E+00 +0.9740379286E+000.9857471894E+000.9932318413E+000.9973140122E+000.9991493382E+00 +0.9997993275E+000.9999687676E+000.9999976014E+000.2188088385E+000.3336382129E+00 +0.4133865931E+000.4755136743E+000.5270798046E+000.5716519043E+000.6112914648E+00 +0.6473049758E+000.6805795117E+000.7117515390E+000.7412994642E+000.7695969407E+00 +0.7969420204E+000.8235653936E+000.8496130627E+000.8750965208E+000.8998136008E+00 +0.9232710744E+000.9446757755E+000.9630690866E+000.9776192348E+000.9879647500E+00 +0.9944111809E+000.9978337324E+000.9993304874E+000.9998459489E+000.9999766194E+00 +0.9999982491E+000.2192208589E+000.3337689209E+000.4131503169E+000.4748919425E+00 +0.5260660060E+000.5702400533E+000.6094730963E+000.6450679778E+000.6779074968E+00 +0.7086233195E+000.7376885384E+000.7654712949E+000.7922652430E+000.8183015628E+00 +0.8437398869E+000.8686320883E+000.8928582195E+000.9160534394E+000.9375747152E+00 +0.9565732967E+000.9722084804E+000.9839496197E+000.9918183304E+000.9964148214E+00 +0.9986935783E+000.9996215461E+000.9999185691E+000.9999884634E+000.9999991946E+00 +0.2179886631E+000.3321001016E+000.4111846978E+000.4726733325E+000.5236076540E+00 +0.5675412631E+000.6065250027E+000.6418557822E+000.6744112759E+000.7048181674E+00 +0.7335443467E+000.7609525425E+000.7873316053E+000.8129111915E+000.8378588902E+00 +0.8622549239E+000.8860417419E+000.9089589207E+000.9304975687E+000.9499287615E+00 +0.9664500172E+000.9794341796E+000.9886802028E+000.9945243467E+000.9977312352E+00 +0.9992205254E+000.9997875748E+000.9999570731E+000.9999942953E+000.9999996267E+00 +0.2172533451E+000.3298693802E+000.4084235894E+000.4695398337E+000.5201451645E+00 +0.5637633473E+000.6024336779E+000.6374467625E+000.6696756446E+000.6997428637E+00 +0.7281122770E+000.7551282775E+000.7810903540E+000.8062324076E+000.8307235150E+00 +0.8546587275E+000.8780213950E+000.9006308737E+000.9220996625E+000.9418372337E+00 +0.9591384217E+000.9733357626E+000.9840480992E+000.9914082806E+000.9959161928E+00 +0.9983283694E+000.9994291163E+000.9998443407E+000.9999683230E+000.9999957344E+00 +0.9999997156E+000.2165180270E+000.3282725846E+000.4063241799E+000.4670289348E+00 +0.5172627471E+000.5605300912E+000.5988598993E+000.6335358511E+000.6654256025E+00 +0.6951470219E+000.7231595172E+000.7498174296E+000.7754021815E+000.8001403310E+00 +0.8242092030E+000.8477281627E+000.8707323675E+000.8930728737E+000.9144743816E+00 +0.9344298074E+000.9522923593E+000.9674197918E+000.9793662946E+000.9880408879E+00 +0.9937515155E+000.9971092892E+000.9988424058E+000.9996107021E+000.9998947039E+00 +0.9999785852E+000.9999970980E+000.9999998041E+000.2157827089E+000.3272520848E+00 +0.4048263237E+000.4650840518E+000.5149076790E+000.5577919904E+000.5957566265E+00 +0.6300777846E+000.6616170191E+000.6909870067E+000.7186425065E+000.7449336063E+00 +0.7701146893E+000.7944441071E+000.8180970677E+000.8411975530E+000.8637963718E+00 +0.8858339822E+000.9070966097E+000.9271895361E+000.9455578564E+000.9615792708E+00 +0.9747199219E+000.9846193511E+000.9914689855E+000.9957448914E+000.9981217080E+00 +0.9992808983E+000.9997677365E+000.9999392466E+000.9999879497E+000.9999983931E+00 +0.9999998924E+000.2150473908E+000.3267570380E+000.4038769497E+000.4636552445E+00 +0.5130334397E+000.5555053633E+000.5930823516E+000.6270326093E+000.6582109563E+00 +0.6872243956E+000.7145228084E+000.7404519945E+000.7652861134E+000.7892473687E+00 +0.8125156955E+000.8352277603E+000.8574623447E+000.8792098110E+000.9003293840E+00 +0.9205101458E+000.9392648980E+000.9559883360E+000.9700900132E+000.9811698392E+00 +0.9891635226E+000.9943822323E+000.9974192802E+000.9989693917E+000.9996505130E+00 +0.9999023864E+000.9999784824E+000.9999964956E+000.9999996256E+000.9999999803E+00 +0.2059353022E+000.3140837798E+000.3891556159E+000.4475634652E+000.4959479695E+00 +0.5376633095E+000.5746456033E+000.6081183469E+000.6389078084E+000.6676018161E+00 +0.6946369526E+000.7203496511E+000.7450078141E+000.7688308708E+000.7920016067E+00 +0.8146701850E+000.8369482602E+000.8588895683E+000.8804550479E+000.9014677567E+00 +0.9215755689E+000.9402518671E+000.9568638527E+000.9708139194E+000.9817161707E+00 +0.9895335074E+000.9946036343E+000.9975345327E+000.9990206668E+000.9996695893E+00 +0.9999081527E+000.9999798415E+000.9999967297E+000.9999996518E+000.9999999818E+00 +0.2102814847E+000.3198352173E+000.3955255425E+000.4542010976E+000.5026547817E+00 +0.5443088401E+000.5811342006E+000.6143735011E+000.6448637728E+000.6731985256E+00 +0.6998166334E+000.7250543864E+000.7491775939E+000.7724020113E+000.7949058338E+00 +0.8168352182E+000.8383015903E+000.8593679942E+000.8800224210E+000.9001409093E+00 +0.9194528192E+000.9375314278E+000.9538359875E+000.9678169103E+000.9790633296E+00 +0.9874381440E+000.9931361846E+000.9966318175E+000.9985388356E+000.9994499315E+00 +0.9998243745E+000.9999538512E+000.9999904335E+000.9999985350E+000.9999998528E+00 +0.9999999927E+000.2078590099E+000.3160447042E+000.3912201598E+000.4495983542E+00 +0.4978460671E+000.5393420660E+000.5760374379E+000.6091640143E+000.6395521633E+00 +0.6677908226E+000.6943154038E+000.7194593712E+000.7434860616E+000.7666089418E+00 +0.7890041473E+000.8108164507E+000.8321578358E+000.8530965612E+000.8736350099E+00 +0.8936782888E+000.9130029652E+000.9312440091E+000.9479215623E+000.9625201934E+00 +0.9746100726E+000.9839716846E+000.9906718566E+000.9950535187E+000.9976409773E+00 +0.9990032213E+000.9996334624E+000.9998853043E+000.9999703526E+000.9999939306E+00 +0.9999990784E+000.9999999078E+000.9999999955E+000.2054365352E+000.3131968739E+00 +0.3878713407E+000.4458652391E+000.4938153788E+000.5350723196E+000.5715683729E+00 +0.6045229311E+000.6347578130E+000.6628557607E+000.6892474331E+000.7142624832E+00 +0.7381610812E+000.7611540867E+000.7834158936E+000.8050913582E+000.8262963445E+00 +0.8471099830E+000.8675564086E+000.8875760599E+000.9069927329E+000.9254913425E+00 +0.9426277689E+000.9578885387E+000.9707995789E+000.9810550714E+000.9886161133E+00 +0.9937327063E+000.9968754875E+000.9986075901E+000.9994535164E+000.9998144347E+00 +0.9999466837E+000.9999874147E+000.9999976594E+000.9999996787E+000.9999999711E+00 +0.9999999987E+000.2047279880E+000.3115476335E+000.3853844678E+000.4426249991E+00 +0.4898817847E+000.5304878972E+000.5663632225E+000.5987179966E+000.6283669474E+00 +0.6558870216E+000.6817039328E+000.7061429456E+000.7294601984E+000.7518628843E+00 +0.7735225209E+000.7945831382E+000.8151646791E+000.8353605970E+000.8552276568E+00 +0.8747663261E+000.8938930794E+000.9124119061E+000.9299995880E+000.9462231590E+00 +0.9606022931E+000.9727116502E+000.9822945400E+000.9893438804E+000.9941130265E+00 +0.9970486304E+000.9986742751E+000.9994742394E+000.9998191360E+000.9999472163E+00 +0.9999873110E+000.9999975904E+000.9999996614E+000.9999999687E+000.9999999986E+00 +0.2036434490E+000.3090528796E+000.3823924716E+000.4393057268E+000.4862910816E+00 +0.5266497547E+000.5622726291E+000.5943542542E+000.6237478291E+000.6510212911E+00 +0.6765943765E+000.7007878786E+000.7238460903E+000.7459790578E+000.7673619426E+00 +0.7881359319E+000.8084196986E+000.8283089018E+000.8478656634E+000.8671132116E+00 +0.8860035863E+000.9043953942E+000.9220362596E+000.9385614011E+000.9535100819E+00 +0.9664821070E+000.9771607025E+000.9854185873E+000.9913594095E+000.9952883895E+00 +0.9976579281E+000.9989537087E+000.9995860417E+000.9998575185E+000.9999582951E+00 +0.9999898806E+000.9999980509E+000.9999997214E+000.9999999738E+000.9999999988E+00 +0.2025589101E+000.3068199167E+000.3796796368E+000.4362546669E+000.4829553544E+00 +0.5230556714E+000.5584510741E+000.5903261603E+000.6194537052E+000.6464727776E+00 +0.6717968661E+000.6957421660E+000.7185576503E+000.7404443259E+000.7615627499E+00 +0.7820512935E+000.8020407327E+000.8216284368E+000.8408882860E+000.8598603362E+00 +0.8785341655E+000.8968045807E+000.9144586051E+000.9312006420E+000.9466376182E+00 +0.9603507600E+000.9719797967E+000.9813098403E+000.9882922262E+000.9931674699E+00 +0.9963229616E+000.9981938161E+000.9991999038E+000.9996849939E+000.9998917560E+00 +0.9999679669E+000.9999921186E+000.9999984579E+000.9999997754E+000.9999999784E+00 +0.9999999990E+000.2014743712E+000.3048300056E+000.3772260208E+000.4334526630E+00 +0.4798563876E+000.5196881873E+000.5548323000E+000.5864793476E+000.6154312962E+00 +0.6422187655E+000.6672890779E+000.6909837542E+000.7135480056E+000.7351797627E+00 +0.7560424139E+000.7762468800E+000.7959481935E+000.8152411211E+000.8341985372E+00 +0.8528776889E+000.8712819219E+000.8893513536E+000.9069421043E+000.9238135412E+00 +0.9396343066E+000.9540158863E+000.9665053929E+000.9768523172E+000.9849523917E+00 +0.9907806770E+000.9947396993E+000.9972268018E+000.9986615385E+000.9994152318E+00 +0.9997706700E+000.9999202414E+000.9999761410E+000.9999940485E+000.9999988150E+00 +0.9999998240E+000.9999999827E+000.9999999992E+000.2003898323E+000.3030662043E+00 +0.3750135367E+000.4308823405E+000.4769776603E+000.5165315196E+000.5514174775E+00 +0.5828193721E+000.6115344031E+000.6381266141E+000.6630110903E+000.6864765489E+00 +0.7087401773E+000.7300883907E+000.7506770841E+000.7706383244E+000.7900854117E+00 +0.8091152669E+000.8278078049E+000.8462210790E+000.8643812651E+000.8822669662E+00 +0.8997629202E+000.9166533781E+000.9326611343E+000.9474241091E+000.9605662436E+00 +0.9717692962E+000.9808432589E+000.9877725431E+000.9927218871E+000.9960000069E+00 +0.9979937937E+000.9990548088E+000.9995885193E+000.9998383077E+000.9999436407E+00 +0.9999829842E+000.9999956918E+000.9999991259E+000.9999998674E+000.9999999867E+00 +0.9999999993E+000.1993052933E+000.3015130984E+000.3730257567E+000.4285279012E+00 +0.4743041728E+000.5135712827E+000.5481926980E+000.5793453267E+000.6078214449E+00 +0.6341631957E+000.6587500812E+000.6819730622E+000.7040686618E+000.7252283524E+00 +0.7456103376E+000.7653414118E+000.7845339051E+000.8033002560E+000.8217159455E+00 +0.8398455813E+000.8577347704E+000.8753752899E+000.8926991209E+000.9095608193E+00 +0.9257282784E+000.9408907550E+000.9546904641E+000.9667193405E+000.9767051192E+00 +0.9845755604E+000.9903643461E+000.9943588012E+000.9969349772E+000.9984694740E+00 +0.9993058998E+000.9997182876E+000.9998921295E+000.9999624746E+000.9999885872E+00 +0.9999970681E+000.9999993936E+000.9999999060E+000.9999999903E+000.9999999995E+00 +0.1982207544E+000.3001566526E+000.3712476853E+000.4263749393E+000.4718222223E+00 +0.5107943968E+000.5451452858E+000.5760448313E+000.6042350363E+000.6303011604E+00 +0.6546944367E+000.6777163937E+000.6996046447E+000.7205507063E+000.7407123251E+00 +0.7602219435E+000.7791728067E+000.7976907996E+000.8158578385E+000.8337406543E+00 +0.8513850014E+000.8688052904E+000.8859694358E+000.9027618185E+000.9189764575E+00 +0.9343464473E+000.9485329999E+000.9611864557E+000.9720106107E+000.9808256977E+00 +0.9876102435E+000.9924320985E+000.9956757557E+000.9977048387E+000.9988781204E+00 +0.9995004434E+000.9998001556E+000.9999294432E+000.9999770468E+000.9999930327E+00 +0.9999981951E+000.9999996210E+000.9999999401E+000.9999999937E+000.9999999997E+00 +0.1971362155E+000.2989840214E+000.3696656554E+000.4244103452E+000.4695193307E+00 +0.5081888756E+000.5422636811E+000.5728778573E+000.6008257641E+000.6266958830E+00 +0.6508862626E+000.6737007641E+000.6953776394E+000.7161082476E+000.7360348306E+00 +0.7553074502E+000.7740398841E+000.7923279877E+000.8102546643E+000.8278893538E+00 +0.8452822126E+000.8624571568E+000.8794031462E+000.8960468881E+000.9122421439E+00 +0.9277625079E+000.9423107327E+000.9555247606E+000.9670812891E+000.9767475749E+00 +0.9844219124E+000.9901661351E+000.9941924818E+000.9968118786E+000.9983668441E+00 +0.9992300584E+000.9996690493E+000.9998718724E+000.9999560393E+000.9999869182E+00 +0.9999963961E+000.9999990892E+000.9999998107E+000.9999999701E+000.9999999969E+00 +0.9999999998E+000.1960516766E+000.2979834712E+000.3682671506E+000.4226220644E+00 +0.4673840643E+000.5057438090E+000.5395372906E+000.5699201602E+000.5976686719E+00 +0.6233309695E+000.6473098007E+000.6699107941E+000.6913725039E+000.7118859482E+00 +0.7316075454E+000.7506679701E+000.7691784774E+000.7872353014E+000.8049221922E+00 +0.8223108367E+000.8394584676E+000.8564015746E+000.8731448163E+000.8896454590E+00 +0.9057960845E+000.9214114582E+000.9362279031E+000.9499231463E+000.9621597258E+00 +0.9726460827E+000.9811998420E+000.9877927992E+000.9925608538E+000.9957742686E+00 +0.9977787124E+000.9989278736E+000.9995289127E+000.9998133749E+000.9999340856E+00 +0.9999795210E+000.9999944950E+000.9999987467E+000.9999997652E+000.9999999653E+00 +0.9999999962E+000.9999999997E+000.1000000000E+010.1955208940E+000.2968454942E+00 +0.3669506250E+000.4212130582E+000.4659146780E+000.5042306152E+000.5379906074E+00 +0.5683472335E+000.5960750236E+000.6217209419E+000.6456869070E+000.6682780443E+00 +0.6897325357E+000.7102410288E+000.7299596441E+000.7490188743E+000.7675298242E+00 +0.7855885178E+000.8032783857E+000.8206705915E+000.8378214803E+000.8547661768E+00 +0.8715076341E+000.8880016810E+000.9041409572E+000.9197434848E+000.9345535699E+00 +0.9482618954E+000.9605468169E+000.9711307900E+000.9798377567E+000.9866336396E+00 +0.9916358389E+000.9950880632E+000.9973092743E+000.9986339904E+000.9993618550E+00 +0.9997278538E+000.9998950180E+000.9999637633E+000.9999889543E+000.9999970751E+00 +0.9999993414E+000.9999998775E+000.9999999819E+000.9999999980E+000.9999999999E+00 +0.1000000000E+010.1949901115E+000.2963741383E+000.3663081222E+000.4204152539E+00 +0.4649909350E+000.5032052156E+000.5368821357E+000.5671699260E+000.5948399780E+00 +0.6204368735E+000.6443607227E+000.6669153488E+000.6883379232E+000.7088182102E+00 +0.7285115903E+000.7475479961E+000.7660381247E+000.7840777706E+000.8017504919E+00 +0.8191282821E+000.8362695098E+000.8532131003E+000.8699680444E+000.8864983572E+00 +0.9027058779E+000.9184164075E+000.9333772607E+000.9472742765E+000.9597719517E+00 +0.9705718849E+000.9794752552E+000.9864296805E+000.9915436175E+000.9950624820E+00 +0.9973149888E+000.9986486289E+000.9993746747E+000.9997358772E+000.9998989844E+00 +0.9999653363E+000.9999894415E+000.9999971821E+000.9999993516E+000.9999998740E+00 +0.9999999799E+000.9999999975E+000.9999999998E+000.1000000000E+010.1000000000E+01 +0.1883070435E+000.2870917914E+000.3554878960E+000.4085214986E+000.4522767946E+00 +0.4898265524E+000.5229425196E+000.5527418351E+000.5799757929E+000.6051751313E+00 +0.6287301379E+000.6509373447E+000.6720281017E+000.6921873640E+000.7115665386E+00 +0.7302921760E+000.7484719881E+000.7661993118E+000.7835563850E+000.8006163141E+00 +0.8174434277E+000.8340914176E+000.8505982519E+000.8669767775E+000.8832007044E+00 +0.8991875820E+000.9147832533E+000.9297551047E+000.9438023688E+000.9565888473E+00 +0.9677961791E+000.9771863398E+000.9846549763E+000.9902571315E+000.9941954536E+00 +0.9967747816E+000.9983392720E+000.9992128464E+000.9996590659E+000.9998661524E+00 +0.9999528079E+000.9999852174E+000.9999959394E+000.9999990376E+000.9999998073E+00 +0.9999999683E+000.9999999959E+000.9999999996E+000.1000000000E+010.1000000000E+01 +0.1906928381E+000.2902208128E+000.3589764014E+000.4122121033E+000.4560872146E+00 +0.4937073201E+000.5268608959E+000.5566744570E+000.5839051255E+000.6090874123E+00 +0.6326139050E+000.6547826422E+000.6758261284E+000.6959300748E+000.7152462082E+00 +0.7339011523E+000.7520025808E+000.7696436147E+000.7869059721E+000.8038618310E+00 +0.8205740187E+000.8370938604E+000.8534557634E+000.8696676781E+000.8856974492E+00 +0.9014569876E+000.9167888709E+000.9314623296E+000.9451858916E+000.9576406946E+00 +0.9685315404E+000.9776444363E+000.9848937445E+000.9903429512E+000.9941912921E+00 +0.9967307227E+000.9982881040E+000.9991710028E+000.9996311121E+000.9998502193E+00 +0.9999449413E+000.9999818412E+000.9999946835E+000.9999986359E+000.9999996982E+00 +0.9999999436E+000.9999999913E+000.9999999990E+000.9999999999E+000.1000000000E+01 +0.1000000000E+010.1912676070E+000.2908349045E+000.3595285316E+000.4126676486E+00 +0.4564305398E+000.4939298269E+000.5269569243E+000.5566395473E+000.5837352720E+00 +0.6087787015E+000.6321622017E+000.6541833965E+000.6750743308E+000.6950201801E+00 +0.7141719793E+000.7326555349E+000.7505776382E+000.7680304665E+000.7850947483E+00 +0.8018417760E+000.8183339554E+000.8346233137E+000.8507471511E+000.8667199947E+00 +0.8825216172E+000.8980824134E+000.9132697651E+000.9278813631E+000.9416523620E+00 +0.9542811936E+000.9654733529E+000.9749949343E+000.9827214777E+000.9886664936E+00 +0.9929795874E+000.9959145408E+000.9977782619E+000.9988771250E+000.9994756273E+00 +0.9997751408E+000.9999120646E+000.9999688797E+000.9999901217E+000.9999972171E+00 +0.9999993130E+000.9999998538E+000.9999999737E+000.9999999961E+000.9999999995E+00 +0.1000000000E+010.1000000000E+010.1000000000E+010.1925827137E+000.2924402082E+00 +0.3612013543E+000.4143222274E+000.4580240722E+000.4954372347E+000.5283616606E+00 +0.5579295073E+000.5849007860E+000.6098115079E+000.6330547631E+000.6549284096E+00 +0.6756644705E+000.6954479363E+000.7144294476E+000.7327342085E+000.7504682706E+00 +0.7677229696E+000.7845780993E+000.8011040085E+000.8173623988E+000.8334053190E+00 +0.8492716280E+000.8649801420E+000.8805191079E+000.8958328748E+000.9108086535E+00 +0.9252684582E+000.9389725270E+000.9516393016E+000.9629827075E+000.9727608606E+00 +0.9808241111E+000.9871478863E+000.9918392532E+000.9951146830E+000.9972564686E+00 +0.9985619421E+000.9993001631E+000.9996855610E+000.9998703543E+000.9999512760E+00 +0.9999834351E+000.9999949503E+000.9999986340E+000.9999996763E+000.9999999338E+00 +0.9999999886E+000.9999999984E+000.9999999998E+000.1000000000E+010.1000000000E+01 +0.1000000000E+010.1909929133E+000.2899185882E+000.3579477117E+000.4104320701E+00 +0.4535516556E+000.4904157593E+000.5228117616E+000.5518635811E+000.5783253571E+00 +0.6027284510E+000.6254621313E+000.6468210978E+000.6670345094E+000.6862845012E+00 +0.7047188727E+000.7224600407E+000.7396112131E+000.7562607261E+000.7724853371E+00 +0.7883527613E+000.8039233933E+000.8192510814E+000.8343826971E+000.8493559438E+00 +0.8641946082E+000.8789005761E+000.8934426702E+000.9077438281E+000.9216701353E+00 +0.9350270238E+000.9475683175E+000.9590215772E+000.9691281800E+000.9776902091E+00 +0.9846114213E+000.9899192445E+000.9937600382E+000.9963689010E+000.9980240233E+00 +0.9989998954E+000.9995319138E+000.9997986632E+000.9999209574E+000.9999718948E+00 +0.9999910293E+000.9999974567E+000.9999993677E+000.9999998643E+000.9999999754E+00 +0.9999999963E+000.9999999996E+000.1000000000E+010.1000000000E+010.1000000000E+01 +0.1886998981E+000.2869838669E+000.3548078557E+000.4072784191E+000.4504896905E+00 +0.4875124689E+000.5201143455E+000.5494079717E+000.5761407293E+000.6008401063E+00 +0.6238930937E+000.6455928970E+000.6661679793E+000.6858006147E+000.7046392112E+00 +0.7228070051E+000.7404083440E+000.7575331524E+000.7742600996E+000.7906588184E+00 +0.8067911415E+000.8227109732E+000.8384621922E+000.8540738547E+000.8695521044E+00 +0.8848688827E+000.8999489731E+000.9146588802E+000.9288027685E+000.9421310094E+00 +0.9543647295E+000.9652349919E+000.9745292217E+000.9821328462E+000.9880535623E+00 +0.9924202344E+000.9954566632E+000.9974387515E+000.9986482183E+000.9993351976E+00 +0.9996968517E+000.9998725083E+000.9999508367E+000.9999827295E+000.9999945141E+00 +0.9999984379E+000.9999996054E+000.9999999127E+000.9999999833E+000.9999999973E+00 +0.9999999996E+000.1000000000E+010.1000000000E+010.1000000000E+010.1000000000E+01 +0.5697614876E+000.4276250300E+000.7177325737E+000.3545906286E+000.5703467898E+00 +0.7686532633E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.3326349646E+000.5189542657E+000.6618018412E+000.7905547689E+000.9131727737E+00 +0.3074456896E+000.4761358366E+000.6015919660E+000.7101546182E+000.8150814079E+00 +0.9205625798E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.0000000000E+000.0000000000E+000.0000000000E+000.2852661271E+000.4387806273E+00 +0.5491237102E+000.6397109446E+000.7208181864E+000.7988056799E+000.8775746579E+00 +0.9526526750E+000.2737275734E+000.4198543592E+000.5238404887E+000.6080074243E+00 +0.6818142565E+000.7507648975E+000.8190480396E+000.8893814784E+000.9571101916E+00 +0.2648934564E+000.4054955855E+000.5047880768E+000.5843286061E+000.6530700094E+00 +0.7159410236E+000.7764339993E+000.8375954184E+000.9012339731E+000.9621873931E+00 +0.2591017873E+000.3962542853E+000.4925232584E+000.5690329231E+000.6344540236E+00 +0.6934024466E+000.7489152040E+000.8034672391E+000.8592732789E+000.9168783702E+00 +0.9697412653E+000.2523402987E+000.3853885350E+000.4783257220E+000.5517338523E+00 +0.6140006623E+000.6695036954E+000.7209915706E+000.7705407942E+000.8200480903E+00 +0.8712829015E+000.9243702583E+000.9727517349E+000.2488626608E+000.3801868901E+00 +0.4715468901E+000.5433448073E+000.6038583442E+000.6573542705E+000.7064337474E+00 +0.7529463721E+000.7984425305E+000.8443897307E+000.8918549805E+000.9395478726E+00 +0.9798534496E+000.2451052290E+000.3746245925E+000.4644260812E+000.5347069442E+00 +0.5936391385E+000.6454011967E+000.6924935406E+000.7366264778E+000.7791434390E+00 +0.8212564152E+000.8640821028E+000.9080489575E+000.9508276217E+000.9846538467E+00 +0.2422394809E+000.3710466507E+000.4601063889E+000.5295624621E+000.5875564659E+00 +0.6382288141E+000.6840269753E+000.7265829678E+000.7671198986E+000.8066723476E+00 +0.8461827458E+000.8863234010E+000.9265906732E+000.9634461052E+000.9896754775E+00 +0.2371212589E+000.3625404560E+000.4490435729E+000.5163128728E+000.5722875201E+00 +0.6209899877E+000.6647786020E+000.7051997609E+000.7433771533E+000.7802215802E+00 +0.8165620067E+000.8532039524E+000.8907600579E+000.9288121320E+000.9641069635E+00 +0.9896893771E+000.2339608780E+000.3582147911E+000.4437396107E+000.5100792902E+00 +0.5651153614E+000.6128302984E+000.6555454504E+000.6947653240E+000.7315593358E+00 +0.7667620373E+000.8010945188E+000.8352400464E+000.8698327557E+000.9051613257E+00 +0.9402264047E+000.9713042135E+000.9922817729E+000.2313207825E+000.3561509659E+00 +0.4419565680E+000.5083637861E+000.5633116157E+000.6108038183E+000.6531643134E+00 +0.6918868701E+000.7280170016E+000.7623486677E+000.7955385000E+000.8281741326E+00 +0.8607822764E+000.8936761052E+000.9264433168E+000.9570474044E+000.9814435496E+00 +0.9956391489E+000.2275734012E+000.3461419563E+000.4283969887E+000.4926093997E+00 +0.5461446688E+000.5927286451E+000.6345305616E+000.6729486357E+000.7089633409E+00 +0.7433188289E+000.7766270434E+000.8094287898E+000.8422048397E+000.8752714883E+00 +0.9084312988E+000.9403317177E+000.9679848724E+000.9876199054E+000.9974580416E+00 +0.2208378062E+000.3357279301E+000.4153829023E+000.4775132582E+000.5292512180E+00 +0.5742001002E+000.6144526027E+000.6513511387E+000.6858287667E+000.7185831767E+00 +0.7501760381E+000.7810964521E+000.8118031476E+000.8427351662E+000.8742318145E+00 +0.9062290366E+000.9376231925E+000.9656230577E+000.9862578431E+000.9970658450E+00 +0.2179952765E+000.3304040462E+000.4091395796E+000.4706409685E+000.5218301078E+00 +0.5662446971E+000.6059459270E+000.6422542931E+000.6760825172E+000.7081054369E+00 +0.7388560519E+000.7687801043E+000.7983011163E+000.8278140590E+000.8576483946E+00 +0.8879259721E+000.9182078185E+000.9470027644E+000.9715860391E+000.9888948248E+00 +0.9976532006E+000.2151527468E+000.3263365979E+000.4042002635E+000.4649913033E+00 +0.5155477836E+000.5593632537E+000.5984708369E+000.6341695554E+000.6673527897E+00 +0.6986753135E+000.7286467801E+000.7576892719E+000.7861688110E+000.8144667110E+00 +0.8429050067E+000.8717128680E+000.9008198865E+000.9294748924E+000.9558760724E+00 +0.9773494548E+000.9915663595E+000.9983001949E+000.2123102172E+000.3233617084E+00 +0.4003948641E+000.4604048024E+000.5102557065E+000.5534157057E+000.5918927779E+00 +0.6269648948E+000.6595069936E+000.6901561343E+000.7194033725E+000.7476495768E+00 +0.7752422009E+000.8025006589E+000.8297287918E+000.8571959870E+000.8850392903E+00 +0.9130179895E+000.9401229839E+000.9643091050E+000.9829392993E+000.9942679612E+00 +0.9989990476E+000.2130285612E+000.3234869368E+000.3997330291E+000.4589012394E+00 +0.5078836266E+000.5501514430E+000.5877080566E+000.6218233871E+000.6533619600E+00 +0.6829480523E+000.7110569234E+000.7380696227E+000.7643084713E+000.7900619102E+00 +0.8156020656E+000.8411906440E+000.8670533563E+000.8932773321E+000.9195733209E+00 +0.9449221229E+000.9673711282E+000.9845060497E+000.9948278346E+000.9991018528E+00 +0.2066923036E+000.3144671088E+000.3890707816E+000.4470665939E+000.4951346044E+00 +0.5366448101E+000.5735440164E+000.6070664384E+000.6380516318E+000.6671046908E+00 +0.6946843672E+000.7211559415E+000.7468252881E+000.7719623561E+000.7968188548E+00 +0.8216405059E+000.8466662501E+000.8720903677E+000.8979389241E+000.9238113264E+00 +0.9485411972E+000.9700854670E+000.9861348625E+000.9955056972E+000.9992457743E+00 +0.2097269301E+000.3176839229E+000.3918638408E+000.4492013700E+000.4964873614E+00 +0.5371332816E+000.5731021737E+000.6056330813E+000.6355642071E+000.6634951414E+00 +0.6898755720E+000.7150581724E+000.7393321738E+000.7629457438E+000.7861226085E+00 +0.8090754685E+000.8320157123E+000.8551536831E+000.8786698745E+000.9026140940E+00 +0.9266809544E+000.9498865807E+000.9703989075E+000.9859980465E+000.9953477644E+00 +0.9991964744E+000.2033133364E+000.3095355366E+000.3830575855E+000.4401680397E+00 +0.4874448799E+000.5282073522E+000.5643716711E+000.5971506478E+000.6273661159E+00 +0.6556065882E+000.6823140157E+000.7078348260E+000.7324524191E+000.7564091871E+00 +0.7799221761E+000.8031948608E+000.8264244296E+000.8497978845E+000.8734590638E+00 +0.8974144228E+000.9213491771E+000.9443921210E+000.9650177307E+000.9813886415E+00 +0.9922369072E+000.9977685038E+000.9996718685E+000.2003340164E+000.3050561279E+00 +0.3775380724E+000.4338241437E+000.4803962780E+000.5205255470E+000.5560999165E+00 +0.5883136433E+000.6179748856E+000.6456609581E+000.6718039528E+000.6967407325E+00 +0.7207445077E+000.7440462990E+000.7668499467E+000.7893433810E+000.8117074345E+00 +0.8341200930E+000.8567480867E+000.8797066523E+000.9029564206E+000.9261175300E+00 +0.9482561005E+000.9678406185E+000.9831397964E+000.9930854114E+000.9980493106E+00 +0.9997188614E+000.2008785745E+000.3054140922E+000.3776045153E+000.4335705203E+00 +0.4798104839E+000.5195988091E+000.5548226698E+000.5866740635E+000.6159583043E+00 +0.6432490335E+000.6689739013E+000.6934647582E+000.7169887572E+000.7397693301E+00 +0.7620009689E+000.7838599673E+000.8055127388E+000.8271212458E+000.8488410141E+00 +0.8707999707E+000.8930362146E+000.9153711142E+000.9372283466E+000.9575019420E+00 +0.9746796310E+000.9873791493E+000.9951160406E+000.9987083247E+000.9998264043E+00 +0.1996539731E+000.3037628949E+000.3756703964E+000.4314009246E+000.4774224833E+00 +0.5169959497E+000.5520007915E+000.5836236022E+000.6126655061E+000.6396962708E+00 +0.6651393247E+000.6893219609E+000.7125062210E+000.7349092880E+000.7567179347E+00 +0.7780989726E+000.7992071014E+000.8201906055E+000.8411926352E+000.8623409692E+00 +0.8837116282E+000.9052459519E+000.9266130191E+000.9470620744E+000.9653970556E+00 +0.9802434583E+000.9906297415E+000.9965712383E+000.9991469986E+000.9998926121E+00 +0.1991050041E+000.3018965043E+000.3733507338E+000.4287625409E+000.4744993867E+00 +0.5137970741E+000.5485258358E+000.5798672990E+000.6086189517E+000.6353474250E+00 +0.6604729117E+000.6843049979E+000.7071152591E+000.7291226351E+000.7505067848E+00 +0.7714263451E+000.7920266786E+000.8124449908E+000.8328130339E+000.8532521680E+00 +0.8738523351E+000.8946196453E+000.9153693257E+000.9356167655E+000.9545089234E+00 +0.9709127461E+000.9837398324E+000.9924227052E+000.9972593555E+000.9993206890E+00 +0.9999140126E+000.1985560350E+000.3006106401E+000.3716362071E+000.4266931456E+00 +0.4721063566E+000.5110960932E+000.5455243575E+000.5765672106E+000.6050177616E+00 +0.6314389517E+000.6562473641E+000.6797627426E+000.7022389088E+000.7238836914E+00 +0.7448725401E+000.7653584935E+000.7854795997E+000.8053578312E+000.8251381562E+00 +0.8449363319E+000.8648493087E+000.8849207854E+000.9050732193E+000.9250087591E+00 +0.9441180982E+000.9614810981E+000.9760470150E+000.9869933125E+000.9941041460E+00 +0.9979167629E+000.9994920787E+000.9999362113E+000.1980070659E+000.2998525269E+00 +0.3704718120E+000.4251410273E+000.4701952152E+000.5088477531E+000.5429533215E+00 +0.5736818802E+000.6018214608E+000.6279307744E+000.6524226150E+000.6756129742E+00 +0.6977291636E+000.7190076159E+000.7396173208E+000.7597051140E+000.7794025869E+00 +0.7988315202E+000.8181072953E+000.8373401836E+000.8566297794E+000.8760466654E+00 +0.8955903217E+000.9151136460E+000.9342081810E+000.9521626886E+000.9680217695E+00 +0.9808345352E+000.9900259498E+000.9956842018E+000.9985462553E+000.9996613750E+00 +0.9999591353E+000.1974580969E+000.2995756048E+000.3698090140E+000.4240605457E+00 +0.4687234520E+000.5070121226E+000.5407747541E+000.5711747140E+000.5989943363E+00 +0.6247876018E+000.6489633101E+000.6718337136E+000.6936451655E+000.7145980005E+00 +0.7348596451E+000.7545740064E+000.7738686529E+000.7928602268E+000.8116584417E+00 +0.8303684800E+000.8490897999E+000.8679063820E+000.8868597811E+000.9058949570E+00 +0.9247773601E+000.9430064594E+000.9597908399E+000.9741690223E+000.9853059040E+00 +0.9928572484E+000.9971718189E+000.9991502971E+000.9998287657E+000.9999827209E+00 +0.1891286131E+000.2879808978E+000.3563234313E+000.4092958822E+000.4530171995E+00 +0.4905744323E+000.5237472443E+000.5536579505E+000.5810622661E+000.6064963356E+00 +0.6303563630E+000.6529448251E+000.6745003399E+000.6952172787E+000.7152580925E+00 +0.7347620087E+000.7538521435E+000.7726409988E+000.7912344634E+000.8097349744E+00 +0.8282434669E+000.8468576459E+000.8656612749E+000.8846955498E+000.9039022332E+00 +0.9230371482E+000.9415802630E+000.9587094998E+000.9734246202E+000.9848519095E+00 +0.9926198894E+000.9970702335E+000.9991171206E+000.9998214583E+000.9999819113E+00 +0.1931814080E+000.2933861012E+000.3623598846E+000.4156449504E+000.4595014272E+00 +0.4970798968E+000.5301928046E+000.5599812366E+000.5872120622E+000.6124276564E+00 +0.6360278467E+000.6583172156E+000.6795347221E+000.6998735022E+000.7194938612E+00 +0.7385319897E+000.7571066251E+000.7753243627E+000.7932836392E+000.8110777215E+00 +0.8287967300E+000.8465273614E+000.8643468813E+000.8823052071E+000.9003868308E+00 +0.9184477683E+000.9361385684E+000.9528538530E+000.9677748242E+000.9800564456E+00 +0.9891278685E+000.9949585744E+000.9981030374E+000.9994600195E+000.9998971325E+00 +0.9999902033E+000.1909013154E+000.2898128230E+000.3582834293E+000.4112665812E+00 +0.4549054666E+000.4923103191E+000.5252750549E+000.5549307085E+000.5820380526E+00 +0.6071350865E+000.6306182632E+000.6527896879E+000.6738861668E+000.6940985228E+00 +0.7135847304E+000.7324787374E+000.7508968056E+000.7689425503E+000.7867109234E+00 +0.8042911872E+000.8217689021E+000.8392261731E+000.8567377685E+000.8743585815E+00 +0.8920961461E+000.9098633528E+000.9274157922E+000.9442976452E+000.9598420722E+00 +0.9732746951E+000.9839277423E+000.9914917250E+000.9961659814E+000.9985950680E+00 +0.9996092298E+000.9999269459E+000.9999931380E+000.1886212228E+000.2871104433E+00 +0.3550918940E+000.4076946576E+000.4510335626E+000.4881925164E+000.5209478508E+00 +0.5504190609E+000.5773591246E+000.6023001979E+000.6256342133E+000.6476599296E+00 +0.6686113468E+000.6886765032E+000.7080107052E+000.7267454283E+000.7449943638E+00 +0.7628581881E+000.7804285342E+000.7977910285E+000.8150274319E+000.8322166787E+00 +0.8494333733E+000.8667404135E+000.8841703510E+000.9016894366E+000.9191428352E+00 +0.9361935080E+000.9522892885E+000.9667081589E+000.9787151965E+000.9878019370E+00 +0.9938987308E+000.9974249814E+000.9991240848E+000.9997758439E+000.9999617791E+00 +0.9999967532E+000.1883041310E+000.2861018757E+000.3534398803E+000.4054550417E+00 +0.4482495149E+000.4848958580E+000.5171617692E+000.5461602173E+000.5726389223E+00 +0.5971256626E+000.6200087881E+000.6415839485E+000.6620821007E+000.6816882317E+00 +0.7005547096E+000.7188100861E+000.7365648495E+000.7539160383E+000.7709512414E+00 +0.7877516330E+000.8043941304E+000.8209529984E+000.8375004344E+000.8541043670E+00 +0.8708202109E+000.8876717453E+000.9046161289E+000.9214928279E+000.9379691682E+00 +0.9535141449E+000.9674441331E+000.9790682317E+000.9879062683E+000.9938833152E+00 +0.9973808427E+000.9990927911E+000.9997626915E+000.9999584789E+000.9999963666E+00 +0.1873815005E+000.2839227321E+000.3508335708E+000.4025718411E+000.4451373786E+00 +0.4815749521E+000.5136262518E+000.5423900148E+000.5686504013E+000.5929273709E+00 +0.6156039260E+000.6369718433E+000.6572512078E+000.6766301012E+000.6952646288E+00 +0.7132802609E+000.7307847255E+000.7478722523E+000.7646238875E+000.7811219100E+00 +0.7974398355E+000.8136475503E+000.8298128824E+000.8460011174E+000.8622720216E+00 +0.8786618721E+000.8951643999E+000.9116925211E+000.9280320268E+000.9437925493E+00 +0.9584110843E+000.9712603705E+000.9817655472E+000.9895958806E+000.9947981471E+00 +0.9977855163E+000.9992326688E+000.9997981717E+000.9999643049E+000.9999968265E+00 +0.1864588701E+000.2819837023E+000.3484823568E+000.3999329083E+000.4422567239E+00 +0.4784749339E+000.5103344772E+000.5389254943E+000.5649574192E+000.5890171139E+00 +0.6114819890E+000.6326397515E+000.6527159007E+000.6718907699E+000.6903059832E+00 +0.7080829805E+000.7253404622E+000.7421699757E+000.7586530038E+000.7748636649E+00 +0.7908714162E+000.8067400317E+000.8225399964E+000.8383375967E+000.8541908870E+00 +0.8701467656E+000.8862252767E+000.9023921505E+000.9185112975E+000.9343023328E+00 +0.9493353903E+000.9630532784E+000.9748692284E+000.9843167021E+000.9912000908E+00 +0.9956372119E+000.9981514281E+000.9993601788E+000.9998309842E+000.9999698181E+00 +0.9999972773E+000.1855362397E+000.2802675989E+000.3463680148E+000.3975207969E+00 +0.4395910137E+000.4755800008E+000.5072251867E+000.5356228906E+000.5615106308E+00 +0.5853742668E+000.6076227372E+000.6285677103E+000.6484316643E+000.6673926457E+00 +0.6855957474E+000.7031349889E+000.7201513531E+000.7367308348E+000.7529472630E+00 +0.7688832299E+000.7846045338E+000.8001737429E+000.8156512200E+000.8310957538E+00 +0.8465639571E+000.8621069219E+000.8777652756E+000.8935377661E+000.9093613299E+00 +0.9250565783E+000.9402975256E+000.9546177437E+000.9674589227E+000.9782854787E+00 +0.9866961771E+000.9926201502E+000.9963842521E+000.9984813417E+000.9994762016E+00 +0.9998613210E+000.9999750410E+000.9999977198E+000.1846136093E+000.2787588827E+00 +0.3444740172E+000.3953196836E+000.4371252494E+000.4728758686E+000.5042999276E+00 +0.5324879288E+000.5581733641E+000.5818742204E+000.6039699963E+000.6247223429E+00 +0.6443259872E+000.6630434010E+000.6810130747E+000.6983511812E+000.7151575571E+00 +0.7315193373E+000.7475134806E+000.7632091346E+000.7786700253E+000.7939562163E+00 +0.8091224683E+000.8242328374E+000.8393469818E+000.8545156187E+000.8697798721E+00 +0.8851584510E+000.9006258019E+000.9160815008E+000.9313166965E+000.9459909401E+00 +0.9596389858E+000.9715759201E+000.9813500845E+000.9887637682E+000.9938835052E+00 +0.9970527535E+000.9987777714E+000.9995815403E+000.9998893532E+000.9999799936E+00 +0.9999981545E+000.1836909789E+000.2774434157E+000.3427853524E+000.3933151805E+00 +0.4348458135E+000.4703495177E+000.5015461497E+000.5295202439E+000.5550010502E+00 +0.5784865318E+000.6003227886E+000.6208676033E+000.6403357686E+000.6589003708E+00 +0.6767026663E+000.6938531892E+000.7104492610E+000.7265925689E+000.7423518470E+00 +0.7577962643E+000.7729993323E+000.7880182103E+000.8029076504E+000.8177207360E+00 +0.8325093202E+000.8473235051E+000.8622088842E+000.8772033000E+000.8923127195E+00 +0.9074853909E+000.9225758466E+000.9373117325E+000.9513034797E+000.9640688537E+00 +0.9751160353E+000.9840572173E+000.9906208006E+000.9950104001E+000.9976480550E+00 +0.9990430046E+000.9996769219E+000.9999152390E+000.9999846946E+000.9999985820E+00 +0.1827683484E+000.2763083247E+000.3412883176E+000.3914941679E+000.4327402658E+00 +0.4679891098E+000.4989524154E+000.5267086976E+000.5519406736E+000.5751864763E+00 +0.5968600600E+000.6172360361E+000.6365301996E+000.6549159835E+000.6725347364E+00 +0.6895032631E+000.7059001317E+000.7218389060E+000.7373935982E+000.7526302061E+00 +0.7676085759E+000.7823844191E+000.7970107284E+000.8115365385E+000.8260173888E+00 +0.8405056011E+000.8550467749E+000.8696786383E+000.8844206171E+000.8992560411E+00 +0.9141065309E+000.9287894949E+000.9429990451E+000.9563188552E+000.9682695030E+00 +0.9784026179E+000.9864140545E+000.9922336385E+000.9960099118E+000.9981750515E+00 +0.9992791138E+000.9997630123E+000.9999391211E+000.9999891606E+000.9999990028E+00 +0.1818457180E+000.2753418278E+000.3399704239E+000.3898447064E+000.4307972778E+00 +0.4657837967E+000.4965082939E+000.5240164612E+000.5490397267E+000.5721199078E+00 +0.5936220368E+000.6138230134E+000.6329391623E+000.6511440087E+000.6685643409E+00 +0.6853340058E+000.7015525385E+000.7173036792E+000.7326612138E+000.7476907018E+00 +0.7624493298E+000.7769909111E+000.7913719358E+000.8056415578E+000.8198475066E+00 +0.8340365025E+000.8482538279E+000.8625421803E+000.8769325394E+000.8914300839E+00 +0.9059954350E+000.9205169371E+000.9347836544E+000.9484682541E+000.9611193304E+00 +0.9722733359E+000.9815273314E+000.9886554442E+000.9936804189E+000.9968701500E+00 +0.9986381871E+000.9994880009E+000.9998404155E+000.9999611303E+000.9999934069E+00 +0.9999994172E+000.1809230876E+000.2745331632E+000.3388202339E+000.3883558181E+00 +0.4290064695E+000.4637237043E+000.4942042266E+000.5215141382E+000.5463684452E+00 +0.5692719178E+000.5905944094E+000.6106145911E+000.6295489513E+000.6475708740E+00 +0.6648215607E+000.6814169329E+000.6974539592E+000.7130162105E+000.7281772298E+00 +0.7430021409E+000.7575491131E+000.7718712991E+000.7860186150E+000.8000388304E+00 +0.8139781927E+000.8278819359E+000.8417944270E+000.8557580145E+000.8698091412E+00 +0.8839698058E+000.8982322496E+000.9125358107E+000.9267384276E+000.9405914761E+00 +0.9537332711E+000.9657185777E+000.9760929895E+000.9845005617E+000.9907887372E+00 +0.9950630245E+000.9976593429E+000.9990415437E+000.9996714060E+000.9999096868E+00 +0.9999813859E+000.9999974477E+000.9999998257E+000.1804508555E+000.2734904362E+00 +0.3375965804E+000.3870271265E+000.4276000615E+000.4622529165E+000.4926767625E+00 +0.5199353140E+000.5447419521E+000.5675996964E+000.5888775666E+000.6088543661E+00 +0.6277461822E+000.6457251352E+000.6629315786E+000.6794815412E+000.6954721015E+00 +0.7109861656E+000.7260962580E+000.7408668527E+000.7553558219E+000.7696158575E+00 +0.7836960114E+000.7976429812E+000.8115019392E+000.8253169935E+000.8391311967E+00 +0.8529854450E+000.8669149773E+000.8809416956E+000.8950604551E+000.9092185062E+00 +0.9232902962E+000.9370549556E+000.9501891908E+000.9622899471E+000.9729346561E+00 +0.9817711212E+000.9886100662E+000.9934829732E+000.9966365483E+000.9984623731E+00 +0.9993913439E+000.9997975622E+000.9999457835E+000.9999890563E+000.9999985224E+00 +0.9999999001E+000.1799786234E+000.2730659875E+000.3369987024E+000.3862671594E+00 +0.4267031510E+000.4612398324E+000.4915631120E+000.5187331258E+000.5434603897E+00 +0.5662451125E+000.5874545188E+000.6073667945E+000.6261972162E+000.6441163642E+00 +0.6612633290E+000.6777537901E+000.6936847124E+000.7091383331E+000.7241861021E+00 +0.7388916122E+000.7533121922E+000.7674999770E+000.7815031664E+000.7953673728E+00 +0.8091366510E+000.8228540827E+000.8365619252E+000.8503009540E+000.8641079576E+00 +0.8780096941E+000.8920112822E+000.9060775315E+000.9201080660E+000.9339118311E+00 +0.9471926672E+000.9595614409E+000.9705865769E+000.9798806496E+000.9871998297E+00 +0.9925173512E+000.9960354178E+000.9981257392E+000.9992239945E+000.9997250422E+00 +0.9999191132E+000.9999810682E+000.9999966998E+000.9999996196E+000.9999999783E+00 +0.1737908653E+000.2645026840E+000.3270468003E+000.3753567767E+000.4150682286E+00 +0.4490241504E+000.4788627235E+000.5056157513E+000.5299746744E+000.5524270326E+00 +0.5733322469E+000.5929625111E+000.6115272365E+000.6291922378E+000.6460938316E+00 +0.6623459221E+000.6780432496E+000.6932652595E+000.7080809279E+000.7225521484E+00 +0.7367348621E+000.7506794727E+000.7644319798E+000.7780356414E+000.7915322574E+00 +0.8049627888E+000.8183677085E+000.8317873297E+000.8452617029E+000.8588290734E+00 +0.8725214354E+000.8863552674E+000.9003154769E+000.9143319492E+000.9282519312E+00 +0.9418176254E+000.9546642131E+000.9663539556E+000.9764520297E+000.9846295065E+00 +0.9907576350E+000.9949507764E+000.9975333362E+000.9989425555E+000.9996113653E+00 +0.9998812259E+000.9999710788E+000.9999947485E+000.9999993688E+000.9999999624E+00 +0.1760702459E+000.2674887044E+000.3303711206E+000.3788684783E+000.4186886637E+00 +0.4527062992E+000.4825750415E+000.5093357814E+000.5336865414E+000.5561182220E+00 +0.5769911503E+000.5965790643E+000.6150939206E+000.6327026942E+000.6495409171E+00 +0.6657217891E+000.6813406769E+000.6964779621E+000.7112025251E+000.7255752592E+00 +0.7396511989E+000.7534803500E+000.7671083815E+000.7805777811E+000.7939291141E+00 +0.8072018928E+000.8204350188E+000.8336669539E+000.8469354066E+000.8602757157E+00 +0.8737165703E+000.8872713396E+000.9009234024E+000.9146052204E+000.9281742281E+00 +0.9413937071E+000.9539314653E+000.9653892774E+000.9753678168E+000.9835554525E+00 +0.9898119678E+000.9942118121E+000.9970243456E+000.9986368776E+000.9994536906E+00 +0.9998127716E+000.9999467553E+000.9999879572E+000.9999979718E+000.9999997742E+00 +0.9999999875E+000.1766783538E+000.2681705974E+000.3310215263E+000.3794504079E+00 +0.4191851503E+000.4531081977E+000.4828764476E+000.5095321968E+000.5337745973E+00 +0.5560950970E+000.5768535397E+000.5963231991E+000.6147163430E+000.6322001736E+00 +0.6489095456E+000.6649566457E+000.6804363770E+000.6954290782E+000.7100032644E+00 +0.7242188961E+000.7381299148E+000.7517854254E+000.7652302706E+000.7785058745E+00 +0.7916513897E+000.8047046748E+000.8177028562E+000.8306825621E+000.8436797967E+00 +0.8567289346E+000.8698597689E+000.8830911329E+000.8964195281E+000.9098019247E+00 +0.9231341707E+000.9362304719E+000.9488140040E+000.9605308991E+000.9709958978E+00 +0.9798662247E+000.9869242818E+000.9921385249E+000.9956749186E+000.9978508572E+00 +0.9990499101E+000.9996330171E+000.9998789154E+000.9999668773E+000.9999927987E+00 +0.9999988348E+000.9999998754E+000.9999999934E+000.1779908188E+000.2697988844E+00 +0.3327447119E+000.3811829052E+000.4208842067E+000.4547490899E+000.4844431674E+00 +0.5110131223E+000.5351609361E+000.5573800953E+000.5780311486E+000.5973872974E+00 +0.6156611932E+000.6330207525E+000.6496008514E+000.6655129316E+000.6808512682E+00 +0.6956961025E+000.7101158796E+000.7241699878E+000.7379114001E+000.7513882671E+00 +0.7646446134E+000.7777209603E+000.7906552575E+000.8034838604E+000.8162422061E+00 +0.8289651307E+000.8416868486E+000.8544402966E+000.8672550452E+000.8801525431E+00 +0.8931372625E+000.9061826925E+000.9192126599E+000.9320815261E+000.9445608746E+00 +0.9563432959E+000.9670726532E+000.9764024145E+000.9840704509E+000.9899662136E+00 +0.9941630091E+000.9968993326E+000.9985150234E+000.9993682409E+000.9997654609E+00 +0.9999256998E+000.9999805019E+000.9999959360E+000.9999993699E+000.9999999355E+00 +0.9999999967E+000.1766654880E+000.2677324884E+000.3301125399E+000.3780686005E+00 +0.4173360833E+000.4507975261E+000.4801081904E+000.5063086571E+000.5300962477E+00 +0.5519602113E+000.5722584110E+000.5912628448E+000.6091846242E+000.6261891356E+00 +0.6424090006E+000.6579546096E+000.6729196732E+000.6873831954E+000.7014115835E+00 +0.7150621450E+000.7283862517E+000.7414306836E+000.7542377579E+000.7668457056E+00 +0.7792897840E+000.7916035011E+000.8038193319E+000.8159689804E+000.8280835885E+00 +0.8401940178E+000.8523308641E+000.8645235620E+000.8767977111E+000.8891694525E+00 +0.9016355107E+000.9141580018E+000.9266449960E+000.9389313419E+000.9507684738E+00 +0.9618343318E+000.9717717729E+000.9802540253E+000.9870613087E+000.9921412951E+00 +0.9956266789E+000.9977991555E+000.9990134579E+000.9996131676E+000.9998702914E+00 +0.9999639037E+000.9999920084E+000.9999986820E+000.9999998562E+000.9999999922E+00 +0.1744025656E+000.2647500997E+000.3268203491E+000.3746456404E+000.4138796805E+00 +0.4473683904E+000.4767476642E+000.5030458469E+000.5269534302E+000.5489567332E+00 +0.5694105392E+000.5885828306E+000.6066828556E+000.6238769730E+000.6402984895E+00 +0.6560563027E+000.6712422376E+000.6859352950E+000.7002034284E+000.7141051065E+00 +0.7276916422E+000.7410094308E+000.7541011829E+000.7670063668E+000.7797616534E+00 +0.7924017040E+000.8049600333E+000.8174695957E+000.8299630016E+000.8424723459E+00 +0.8550283387E+000.8676579648E+000.8803795128E+000.8931937233E+000.9060703014E+00 +0.9189305787E+000.9316298946E+000.9439466849E+000.9555874935E+000.9662155987E+00 +0.9755039969E+000.9832023629E+000.9891973710E+000.9935432073E+000.9964481998E+00 +0.9982212663E+000.9991989473E+000.9996802179E+000.9998887957E+000.9999670475E+00 +0.9999919203E+000.9999984279E+000.9999997726E+000.9999999783E+000.9999999990E+00 +0.5180308273E+000.3911409433E+000.6623065771E+000.3275839077E+000.5276830711E+00 +0.7154100900E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.3064829269E+000.4790404367E+000.6116645349E+000.7335119896E+000.8644633765E+00 +0.2847780314E+000.4417229868E+000.5585875942E+000.6599588880E+000.7598329290E+00 +0.8732626067E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.0000000000E+000.0000000000E+000.0000000000E+000.2646878980E+000.4080337687E+00 +0.5111711389E+000.5959093218E+000.6718722435E+000.7454229644E+000.8231646462E+00 +0.9124178201E+000.2546033114E+000.3913489905E+000.4887573172E+000.5676597540E+00 +0.6368986717E+000.7016670220E+000.7663178755E+000.8362788136E+000.9181661252E+00 +0.2467729378E+000.3785679295E+000.4717338221E+000.5464216594E+000.6110104604E+00 +0.6701223172E+000.7270866420E+000.7852449699E+000.8492767395E+000.9248928954E+00 +0.2413825414E+000.3700834490E+000.4605077067E+000.5324218467E+000.5939494757E+00 +0.6494196758E+000.7016924582E+000.7531846666E+000.8066605495E+000.8661287676E+00 +0.9354167189E+000.2353858201E+000.3603992909E+000.4478085379E+000.5168975524E+00 +0.5755345234E+000.6278290414E+000.6763648641E+000.7231065900E+000.7699437594E+00 +0.8192703167E+000.8747318121E+000.9396919885E+000.2318174748E+000.3552985933E+00 +0.4412849551E+000.5089020020E+000.5659213984E+000.6163516407E+000.6626384852E+00 +0.7065253223E+000.7494994205E+000.7931440602E+000.8395760654E+000.8917652882E+00 +0.9506868735E+000.2280253825E+000.3499059512E+000.4344956591E+000.5007362468E+00 +0.5563073008E+000.6051378190E+000.6495803708E+000.6912459849E+000.7314072774E+00 +0.7712593419E+000.8121779568E+000.8560463960E+000.9051956201E+000.9587821006E+00 +0.2245887789E+000.3458772700E+000.4298365568E+000.4953495830E+000.5500747730E+00 +0.5979089372E+000.6411566811E+000.6813559051E+000.7196623147E+000.7570716078E+00 +0.7945952227E+000.8334553746E+000.8752474667E+000.9212871218E+000.9682970367E+00 +0.2203696922E+000.3385897732E+000.4202174709E+000.4837300552E+000.5366022091E+00 +0.5826230187E+000.6240149915E+000.6622362636E+000.6983473300E+000.7332105254E+00 +0.7676266955E+000.8024665650E+000.8388430885E+000.8782888896E+000.9222485013E+00 +0.9680627395E+000.2169762745E+000.3341782833E+000.4149508010E+000.4776367867E+00 +0.5296633747E+000.5747854170E+000.6151924615E+000.6523042279E+000.6871304816E+00 +0.7204603416E+000.7529806730E+000.7853714334E+000.8184116299E+000.8531180059E+00 +0.8908055821E+000.9322363945E+000.9735146960E+000.2129798830E+000.3307772795E+00 +0.4119065804E+000.4747251279E+000.5267224541E+000.5716785253E+000.6117881187E+00 +0.6484624944E+000.6826898748E+000.7152215099E+000.7466820384E+000.7776482663E+00 +0.8087217518E+000.8406107084E+000.8741895741E+000.9102598341E+000.9480824823E+00 +0.9818461334E+000.2139559932E+000.3253326980E+000.4025195312E+000.4627106869E+00 +0.5128367731E+000.5564023578E+000.5954463265E+000.6312809155E+000.6648241637E+00 +0.6967707176E+000.7276914416E+000.7581014754E+000.7885175352E+000.8195166552E+00 +0.8517844312E+000.8860318974E+000.9223521780E+000.9583491078E+000.9869886422E+00 +0.2079887342E+000.3160756060E+000.3909294150E+000.4492484121E+000.4977554813E+00 +0.5398458104E+000.5774899214E+000.6119499535E+000.6441013436E+000.6745966142E+00 +0.7039586604E+000.7326417265E+000.7610780817E+000.7897231857E+000.8191099582E+00 +0.8499084239E+000.8829025517E+000.9184917022E+000.9548828945E+000.9852817476E+00 +0.2053290422E+000.3110796618E+000.3850640717E+000.4427848696E+000.4907680501E+00 +0.5323475860E+000.5694647521E+000.6033616675E+000.6348950656E+000.6646965414E+00 +0.6932628432E+000.7210067758E+000.7483236611E+000.7756045724E+000.8032679181E+00 +0.8318115679E+000.8618299525E+000.8938685005E+000.9277564161E+000.9610530422E+00 +0.9875563221E+000.2026693502E+000.3072688845E+000.3804297756E+000.4374769293E+00 +0.4848586120E+000.5258677867E+000.5624196457E+000.5957366454E+000.6266577687E+00 +0.6557961481E+000.6836272434E+000.7105427681E+000.7368800330E+000.7630008922E+00 +0.7892477772E+000.8160095373E+000.8437527799E+000.8730058214E+000.9041221108E+00 +0.9364829019E+000.9670799404E+000.9899924800E+000.2000096582E+000.3044886928E+00 +0.3768659533E+000.4331738723E+000.4798865577E+000.5202735907E+000.5562267683E+00 +0.5889492285E+000.6192630631E+000.6477650166E+000.6749135953E+000.7010811363E+00 +0.7265885076E+000.7517316518E+000.7768044908E+000.8021229083E+000.8280527939E+00 +0.8550328267E+000.8835331792E+000.9137562384E+000.9447413003E+000.9729823242E+00 +0.9925691421E+000.2009209231E+000.3049795503E+000.3767231016E+000.4323320859E+00 +0.4783138555E+000.5179447010E+000.5531144115E+000.5850204042E+000.6144767624E+00 +0.6420697806E+000.6682448301E+000.6933577339E+000.7177077049E+000.7415616369E+00 +0.7651735794E+000.7888027981E+000.8127345111E+000.8373044910E+000.8629169855E+00 +0.8899975254E+000.9186965195E+000.9480400284E+000.9746682844E+000.9930500128E+00 +0.1950278135E+000.2965775128E+000.3667754917E+000.4212724084E+000.4663790175E+00 +0.5052777129E+000.5398053947E+000.5711262208E+000.6000313286E+000.6270887019E+00 +0.6527277199E+000.6772894705E+000.7010573458E+000.7242793157E+000.7471860423E+00 +0.7700058156E+000.7929801123E+000.8163832259E+000.8405454006E+000.8658656536E+00 +0.8927467810E+000.9212572114E+000.9502426509E+000.9761588165E+000.9936149257E+00 +0.1981493393E+000.3000435369E+000.3699869467E+000.4239962432E+000.4684934776E+00 +0.5067038993E+000.5404821860E+000.5709991533E+000.5990466215E+000.6251891085E+00 +0.6498493917E+000.6733592307E+000.6959891513E+000.7179695971E+000.7395080424E+00 +0.7608015978E+000.7820482312E+000.8034605522E+000.8252832100E+000.8478142060E+00 +0.8714219924E+000.8965054713E+000.9232251572E+000.9507099706E+000.9758346487E+00 +0.9933261384E+000.1918523917E+000.2919378681E+000.3611117165E+000.4147679900E+00 +0.4591221511E+000.4973096518E+000.5311395274E+000.5617553572E+000.5899318563E+00 +0.6162231841E+000.6410434223E+000.6647158949E+000.6875045421E+000.7096333869E+00 +0.7313010535E+000.7526934381E+000.7739943771E+000.7953961026E+000.8171120253E+00 +0.8393913493E+000.8625269540E+000.8868205263E+000.9124036129E+000.9387531249E+00 +0.9639228774E+000.9842769057E+000.9962620033E+000.1891368960E+000.2878567004E+00 +0.3560840151E+000.4089901348E+000.4527029471E+000.4903140861E+000.5236071506E+00 +0.5537086472E+000.5813806528E+000.6071677410E+000.6314753992E+000.6546179238E+00 +0.6768501633E+000.6983865770E+000.7194140022E+000.7401033237E+000.7606194826E+00 +0.7811297224E+000.8018129682E+000.8228719623E+000.8445464562E+000.8671177437E+00 +0.8908657385E+000.9158759663E+000.9415491496E+000.9658783142E+000.9853048038E+00 +0.9965567872E+000.1897512283E+000.2883371174E+000.3563151762E+000.4089378592E+00 +0.4523520190E+000.4896538068E+000.5226272357E+000.5523977642E+000.5797245497E+00 +0.6051487501E+000.6290729850E+000.6518073829E+000.6736007022E+000.6946608010E+00 +0.7151669718E+000.7352797093E+000.7551500484E+000.7749273151E+000.7947662182E+00 +0.8148356043E+000.8353290343E+000.8564732770E+000.8785184708E+000.9016592439E+00 +0.9257844309E+000.9499749992E+000.9719834790E+000.9885613375E+000.9974876627E+00 +0.1885403501E+000.2867053477E+000.3544064628E+000.4068006979E+000.4500049805E+00 +0.4871020405E+000.5198682532E+000.5494245001E+000.5765259981E+000.6017096043E+00 +0.6253745074E+000.6478276517E+000.6693130347E+000.6900326013E+000.7101594360E+00 +0.7298463578E+000.7492338560E+000.7684575132E+000.7876541903E+000.8069684231E+00 +0.8265603996E+000.8466142291E+000.8673395800E+000.8889431317E+000.9115113196E+00 +0.9347182434E+000.9573628599E+000.9770964553E+000.9911234228E+000.9981667646E+00 +0.1880971549E+000.2850501090E+000.3523426140E+000.4044492002E+000.4473945285E+00 +0.4842390828E+000.5167510963E+000.5460472575E+000.5728801402E+000.5977836681E+00 +0.6211537207E+000.6432808891E+000.6644190254E+000.6847717649E+000.7045055210E+00 +0.7237661784E+000.7426860184E+000.7613897674E+000.7800006438E+000.7986454717E+00 +0.8174605108E+000.8366014861E+000.8562490308E+000.8765809374E+000.8977331030E+00 +0.9196425426E+000.9417617197E+000.9627329469E+000.9803804800E+000.9925129028E+00 +0.9984631190E+000.1876539596E+000.2839427303E+000.3508494646E+000.4026340915E+00 +0.4452836783E+000.4818454096E+000.5140803304E+000.5431002628E+000.5696543472E+00 +0.5942732360E+000.6173491723E+000.6391831310E+000.6600128835E+000.6800315577E+00 +0.6994015831E+000.7182641883E+000.7367454210E+000.7549522917E+000.7730203297E+00 +0.7910626147E+000.8091981288E+000.8275570948E+000.8462859276E+000.8655461712E+00 +0.8854913793E+000.9061877992E+000.9274352811E+000.9484936019E+000.9678768013E+00 +0.9835659608E+000.9939007698E+000.9987755429E+000.1872107644E+000.2833334059E+00 +0.3498751401E+000.4013066228E+000.4436270211E+000.4798783670E+000.5118153825E+00 +0.5405444188E+000.5668104432E+000.5911404952E+000.6139230329E+000.6354555870E+00 +0.6559510123E+000.6756303028E+000.6946497298E+000.7131447026E+000.7312357131E+00 +0.7490330280E+000.7666410413E+000.7841629713E+000.8017045100E+000.8193781551E+00 +0.8373075468E+000.8556461302E+000.8745362825E+000.8941009870E+000.9143377216E+00 +0.9349203048E+000.9549421488E+000.9728149887E+000.9866618706E+000.9952871511E+00 +0.9991025673E+000.1867675692E+000.2831781957E+000.3493738681E+000.4004237691E+00 +0.4423844896E+000.4783003184E+000.5099204512E+000.5383452145E+000.5643147437E+00 +0.5883521470E+000.6108419232E+000.6320778886E+000.6522920826E+000.6716716651E+00 +0.6903713535E+000.7085237616E+000.7262461578E+000.7436444842E+000.7608172756E+00 +0.7778600003E+000.7948688254E+000.8119439757E+000.8291936435E+000.8467380888E+00 +0.8647106847E+000.8832464988E+000.9024363065E+000.9222097786E+000.9421247667E+00 +0.9611324047E+000.9775656571E+000.9896761221E+000.9966722100E+000.9994429128E+00 +0.1789174416E+000.2722468287E+000.3366538183E+000.3864887097E+000.4275498560E+00 +0.4627620146E+000.4938093339E+000.5217531537E+000.5473095208E+000.5709848723E+00 +0.5931504119E+000.6140902723E+000.6340303073E+000.6531524104E+000.6716053392E+00 +0.6895161622E+000.7069980140E+000.7241529862E+000.7410745858E+000.7578521206E+00 +0.7745750099E+000.7913356571E+000.8082323327E+000.8253733998E+000.8428819463E+00 +0.8608973786E+000.8795647927E+000.8989896592E+000.9191195260E+000.9395252319E+00 +0.9591466548E+000.9762552813E+000.9889846035E+000.9964164427E+000.9993938692E+00 +0.1827783213E+000.2774143240E+000.3424452454E+000.3926036599E+000.4338219039E+00 +0.4690850622E+000.5001094980E+000.5279744359E+000.5534055339E+000.5769162829E+00 +0.5988832486E+000.6195921345E+000.6392681953E+000.6580935787E+000.6762173307E+00 +0.6937644996E+000.7108442966E+000.7275547305E+000.7439849092E+000.7602179234E+00 +0.7763345243E+000.7924161411E+000.8085472361E+000.8248181547E+000.8413286330E+00 +0.8581902397E+000.8755229650E+000.8934338655E+000.9119536579E+000.9309020757E+00 +0.9496866989E+000.9671468540E+000.9816892384E+000.9919169731E+000.9975151029E+00 +0.9996051389E+000.1805971966E+000.2739919426E+000.3385315793E+000.3883898436E+00 +0.4293879716E+000.4644724902E+000.4953424011E+000.5230676324E+000.5483673999E+00 +0.5717508323E+000.5935922318E+000.6141751454E+000.6337217487E+000.6524117088E+00 +0.6703928576E+000.6877886851E+000.7047055138E+000.7212381094E+000.7374727401E+00 +0.7534892756E+000.7693639094E+000.7851721593E+000.8009913545E+000.8169029029E+00 +0.8329949349E+000.8493647105E+000.8661178850E+000.8833574275E+000.9011474063E+00 +0.9194300516E+000.9378844551E+000.9557667229E+000.9718658297E+000.9847665897E+00 +0.9934711366E+000.9980477487E+000.9996969924E+000.1784160718E+000.2713958753E+00 +0.3354582551E+000.3849428531E+000.4256437505E+000.4604821659E+000.4911406922E+00 +0.5186785687E+000.5438068814E+000.5670290077E+000.5887159611E+000.6091483658E+00 +0.6285447286E+000.6470817240E+000.6649055884E+000.6821381588E+000.6988829501E+00 +0.7152314903E+000.7312672140E+000.7470670710E+000.7627033273E+000.7782463675E+00 +0.7937673637E+000.8093402788E+000.8250439268E+000.8409644246E+000.8571966713E+00 +0.8738408177E+000.8909845463E+000.9086541427E+000.9267144134E+000.9447193207E+00 +0.9617823478E+000.9766254418E+000.9879640337E+000.9951544004E+000.9986567350E+00 +0.9998093251E+000.1782989297E+000.2707192639E+000.3342415761E+000.3832267932E+00 +0.4234622310E+000.4578611360E+000.4880995236E+000.5152311252E+000.5399626977E+00 +0.5627944211E+000.5840944648E+000.6041404426E+000.6231480096E+000.6412915943E+00 +0.6587155019E+000.6755391840E+000.6918630822E+000.7077755030E+000.7233568576E+00 +0.7386807739E+000.7538151856E+000.7688250234E+000.7837750978E+000.7987318806E+00 +0.8137648913E+000.8289487898E+000.8443658696E+000.8601071476E+000.8762682329E+00 +0.8929314691E+000.9101187687E+000.9276975177E+000.9452420175E+000.9619124016E+00 +0.9764932225E+000.9877388088E+000.9949763691E+000.9985752725E+000.9997919273E+00 +0.1774688962E+000.2687227483E+000.3318571131E+000.3805930949E+000.4206227854E+00 +0.4548337785E+000.4848776930E+000.5117955485E+000.5363290502E+000.5589702962E+00 +0.5800826097E+000.5999412323E+000.6187515040E+000.6366896607E+000.6539035742E+00 +0.6705110361E+000.6866108219E+000.7022882315E+000.7176163750E+000.7326708902E+00 +0.7475176032E+000.7622176368E+000.7768306968E+000.7914173642E+000.8060420282E+00 +0.8207709196E+000.8356758322E+000.8508357921E+000.8663362731E+000.8822649534E+00 +0.8986810361E+000.9155543180E+000.9326826829E+000.9495710525E+000.9653605662E+00 +0.9788764186E+000.9890829773E+000.9955488335E+000.9987361034E+000.9998138388E+00 +0.1766388627E+000.2669531337E+000.3297132464E+000.3781893645E+000.4180008852E+00 +0.4520136923E+000.4818847231E+000.5086476331E+000.5329733245E+000.5554169173E+00 +0.5763364212E+000.5960044268E+000.6146321714E+000.6323876020E+000.6494037929E+00 +0.6657956488E+000.6816739393E+000.6971212651E+000.7122111502E+000.7270113624E+00 +0.7415848899E+000.7559860644E+000.7702758303E+000.7845149592E+000.7987603515E+00 +0.8130714098E+000.8275114881E+000.8421497817E+000.8570694468E+000.8723505762E+00 +0.8880619788E+000.9042352743E+000.9208002368E+000.9374917236E+000.9537530666E+00 +0.9686402942E+000.9811169262E+000.9903489680E+000.9960930036E+000.9988920867E+00 +0.9998358861E+000.1758088292E+000.2653941782E+000.3277927883E+000.3759991769E+00 +0.4155809889E+000.4493860492E+000.4790625158E+000.5056505571E+000.5298486441E+00 +0.5521148977E+000.5728368944E+000.5923113184E+000.6107473331E+000.6283100696E+00 +0.6451353486E+000.6613118778E+000.6769731024E+000.6921966807E+000.7070474894E+00 +0.7216018461E+000.7359197440E+000.7500568503E+000.7640654205E+000.7779965265E+00 +0.7919020312E+000.8058356301E+000.8198582026E+000.8340304572E+000.8484180673E+00 +0.8631123569E+000.8781775860E+000.8936735881E+000.9096081337E+000.9258700073E+00 +0.9421241373E+000.9577059369E+000.9717235633E+000.9832249072E+000.9915423355E+00 +0.9966109268E+000.9990435669E+000.9998580587E+000.1749787957E+000.2640311979E+00 +0.3260801506E+000.3740076351E+000.4133490009E+000.4469374454E+000.4764127530E+00 +0.5028100288E+000.5268245155E+000.5489450466E+000.5695305307E+000.5888302998E+00 +0.6070277082E+000.6243685433E+000.6409814876E+000.6569767591E+000.6724490931E+00 +0.6874786308E+000.7021340706E+000.7164773575E+000.7305666503E+000.7444563703E+00 +0.7581921284E+000.7718287077E+000.7854209161E+000.7990181188E+000.8126717691E+00 +0.8264363695E+000.8403709200E+000.8545399470E+000.8690124265E+000.8838556111E+00 +0.8991187936E+000.9148184286E+000.9307625279E+000.9465369208E+000.9614584830E+00 +0.9746371687E+000.9852096241E+000.9926681605E+000.9971044071E+000.9991908590E+00 +0.9998803499E+000.1741487623E+000.2628508326E+000.3245611749E+000.3722011936E+00 +0.4112921234E+000.4446556637E+000.4739236747E+000.5001259268E+000.5239542851E+00 +0.5458785831E+000.5662252605E+000.5853352330E+000.6034126392E+000.6206186888E+00 +0.6370835544E+000.6529108224E+000.6681935984E+000.6830276831E+000.6974736155E+00 +0.7115922740E+000.7254514509E+000.7391032291E+000.7525960973E+000.7659755281E+00 +0.7792859757E+000.7925727190E+000.8058826455E+000.8192685463E+000.8327866171E+00 +0.8464931216E+000.8604591621E+000.8747499796E+000.8894194696E+000.9044920044E+00 +0.9199142547E+000.9354890525E+000.9507741185E+000.9650328602E+000.9773926054E+00 +0.9870795075E+000.9937310367E+000.9975751269E+000.9993342477E+000.9999027503E+00 +0.1733187288E+000.2618409176E+000.3232229373E+000.3705675007E+000.4093986653E+00 +0.4425295959E+000.4715845634E+000.4975878350E+000.5211876711E+000.5428923618E+00 +0.5630925481E+000.5820495021E+000.5999692459E+000.6170143171E+000.6333146683E+00 +0.6489791030E+000.6640823588E+000.6787327047E+000.6929972856E+000.7069341783E+00 +0.7205967478E+000.7340359092E+000.7472995943E+000.7604286590E+000.7734700275E+00 +0.7864707993E+000.7994745861E+000.8125267732E+000.8256751140E+000.8389709651E+00 +0.8524702650E+000.8662474463E+000.8803554554E+000.8948410310E+000.9097076895E+00 +0.9248654651E+000.9400639417E+000.9548328934E+000.9684408912E+000.9800004890E+00 +0.9888421674E+000.9947351840E+000.9980245947E+000.9994739940E+000.9999252523E+00 +0.1724886953E+000.2609903194E+000.3220536587E+000.3690953160E+000.4076579802E+00 +0.4405490623E+000.4693856453E+000.4951608959E+000.5185701051E+000.5401257092E+00 +0.5601710536E+000.5789689846E+000.5967268934E+000.6136086273E+000.6297299338E+00 +0.6452148461E+000.6601580679E+000.6746399825E+000.6887288667E+000.7024826216E+00 +0.7159512052E+000.7291829406E+000.7422298748E+000.7551353443E+000.7679398275E+00 +0.7806828913E+000.7934050176E+000.8061491947E+000.8189610533E+000.8318872187E+00 +0.8449783302E+000.8582894923E+000.8718790715E+000.8858039928E+000.9001096292E+00 +0.9147724417E+000.9296686174E+000.9444997378E+000.9587439233E+000.9716764473E+00 +0.9824703838E+000.9905046101E+000.9956844065E+000.9984542063E+000.9996103353E+00 +0.9999478502E+000.1716586618E+000.2602888683E+000.3210425518E+000.3677743042E+00 +0.4060603128E+000.4387047975E+000.4673179633E+000.4929123872E+000.5161686652E+00 +0.5375646057E+000.5574473264E+000.5760805869E+000.5936727383E+000.6103889245E+00 +0.6263589448E+000.6416882481E+000.6564682988E+000.6707802788E+000.6846936992E+00 +0.6982664270E+000.7115487502E+000.7245880351E+000.7374301470E+000.7501181793E+00 +0.7626917562E+000.7751884932E+000.7876462564E+000.8001043975E+000.8126039069E+00 +0.8251876807E+000.8379015549E+000.8507955500E+000.8639241404E+000.8773439157E+00 +0.8911055977E+000.9052349752E+000.9196959972E+000.9343332560E+000.9488052750E+00 +0.9625444617E+000.9748004935E+000.9848111392E+000.9920732559E+000.9965822201E+00 +0.9988652181E+000.9997434906E+000.9999705375E+000.1712286725E+000.2593166536E+00 +0.3198930272E+000.3665172071E+000.4047198849E+000.4372927168E+000.4658415819E+00 +0.4913758461E+000.5145733266E+000.5359119515E+000.5557400837E+000.5743198474E+00 +0.5918562500E+000.6085138901E+000.6244250470E+000.6396963381E+000.6544168608E+00 +0.6686646587E+000.6825087369E+000.6960086622E+000.7092155633E+000.7221752638E+00 +0.7349311408E+000.7475248645E+000.7599958453E+000.7723813030E+000.7847175475E+00 +0.7970415176E+000.8093916679E+000.8218083516E+000.8343343581E+000.8470157437E+00 +0.8599022206E+000.8730455984E+000.8864937304E+000.9002757919E+000.9143735975E+00 +0.9286760350E+000.9429232967E+000.9566650851E+000.9692740952E+000.9800535740E+00 +0.9884369079E+000.9942056031E+000.9976003319E+000.9992329309E+000.9998323459E+00 +0.9999812683E+000.1707986832E+000.2589324325E+000.3193389515E+000.3658018629E+00 +0.4038655700E+000.4363182232E+000.4647618718E+000.4902016669E+000.5133113244E+00 +0.5345675839E+000.5543193291E+000.5728269071E+000.5902915891E+000.6068764312E+00 +0.6227154154E+000.6379165233E+000.6525671218E+000.6667420751E+000.6805090108E+00 +0.6939284679E+000.7070525968E+000.7199263908E+000.7325910508E+000.7450864365E+00 +0.7574512270E+000.7697222188E+000.7819345922E+000.7941232718E+000.8063242858E+00 +0.8185754692E+000.8309168485E+000.8433912231E+000.8560447757E+000.8689266536E+00 +0.8820855235E+000.8955596850E+000.9093557006E+000.9234107188E+000.9375395606E+00 +0.9513822210E+000.9643872384E+000.9758758203E+000.9852076622E+000.9920045190E+00 +0.9963175394E+000.9986200715E+000.9996074637E+000.9999249703E+000.9999927985E+00 +0.1649111334E+000.2507977032E+000.3098998750E+000.3554679488E+000.3928591565E+00 +0.4247768616E+000.4527768086E+000.4778354135E+000.5006102683E+000.5215689783E+00 +0.5410511671E+000.5593076943E+000.5765347773E+000.5928951361E+000.6085222084E+00 +0.6235200151E+000.6379706050E+000.6519459542E+000.6655139974E+000.6787361793E+00 +0.6916635279E+000.7043378705E+000.7167972181E+000.7290797854E+000.7412237839E+00 +0.7532651843E+000.7652370222E+000.7771711024E+000.7891002244E+000.8010591814E+00 +0.8130846915E+000.8252154997E+000.8374932738E+000.8499637860E+000.8626773184E+00 +0.8756868803E+000.8890416487E+000.9027708841E+000.9168520778E+000.9311599020E+00 +0.9454041437E+000.9590859749E+000.9715218744E+000.9819781728E+000.9899039245E+00 +0.9951616131E+000.9981067447E+000.9994358794E+000.9998867515E+000.9999885572E+00 +0.1671234511E+000.2536960143E+000.3131247755E+000.3588727265E+000.3963672632E+00 +0.4283414788E+000.4563679370E+000.4814335943E+000.5041990295E+000.5251325558E+00 +0.5445789416E+000.5627948972E+000.5799760649E+000.5962804222E+000.6118405676E+00 +0.6267652888E+000.6411407703E+000.6550376064E+000.6685191786E+000.6816446877E+00 +0.6944669360E+000.7070304180E+000.7193732637E+000.7315312025E+000.7435398115E+00 +0.7554340012E+000.7672467761E+000.7790093694E+000.7907527354E+000.8025090127E+00 +0.8143121294E+000.8261979418E+000.8382046369E+000.8503734686E+000.8627490881E+00 +0.8753781179E+000.8883037478E+000.9015526694E+000.9151095534E+000.9288761217E+00 +0.9426200461E+000.9559343763E+000.9682442562E+000.9788974459E+000.9873409440E+00 +0.9933223273E+000.9970048382E+000.9989088361E+000.9996986482E+000.9999441347E+00 +0.9999948033E+000.1677447873E+000.2544092120E+000.3138223582E+000.3595164508E+00 +0.3969395118E+000.4288322289E+000.4567708151E+000.4817450145E+000.5044160782E+00 +0.5252510543E+000.5445949250E+000.5627066473E+000.5797825355E+000.5959781929E+00 +0.6114239939E+000.6262294955E+000.6404831015E+000.6542556851E+000.6676083352E+00 +0.6805978685E+000.6932767205E+000.7056904135E+000.7178773997E+000.7298720576E+00 +0.7417078430E+000.7534180888E+000.7650349846E+000.7765889061E+000.7881091782E+00 +0.7996255440E+000.8111691724E+000.8227729645E+000.8344717361E+000.8463027165E+00 +0.8583060693E+000.8705244771E+000.8830001967E+000.8957669659E+000.9088328931E+00 +0.9221504998E+000.9355741400E+000.9488153393E+000.9614213489E+000.9728115455E+00 +0.9823941849E+000.9897435474E+000.9947622899E+000.9977318758E+000.9992041111E+00 +0.9997886953E+000.9999624021E+000.9999966474E+000.1690448842E+000.2560372350E+00 +0.3155587637E+000.3612758500E+000.3986794172E+000.4305277941E+000.4584055810E+00 +0.4833081221E+000.5059000921E+000.5266488126E+000.5458990925E+000.5639120172E+00 +0.5808862568E+000.5969767685E+000.6123113854E+000.6269989197E+000.6411296671E+00 +0.6547762089E+000.6679987953E+000.6808517934E+000.6933861293E+000.7056476930E+00 +0.7176757978E+000.7295044917E+000.7411655685E+000.7526904931E+000.7641102438E+00 +0.7754544131E+000.7867511967E+000.7980284524E+000.8093148867E+000.8206406624E+00 +0.8320375869E+000.8435393872E+000.8551821575E+000.8670044004E+000.8790454888E+00 +0.8913406478E+000.9039095140E+000.9167347100E+000.9297285406E+000.9426921998E+00 +0.9552832006E+000.9670182798E+000.9773393530E+000.9857471722E+000.9919629942E+00 +0.9960396434E+000.9983496620E+000.9994440080E+000.9998585501E+000.9999759201E+00 +0.9999979482E+000.1678526733E+000.2541968556E+000.3132334887E+000.3585430461E+00 +0.3955834513E+000.4270972446E+000.4546605062E+000.4792616247E+000.5015598465E+00 +0.5220210643E+000.5409901319E+000.5587252304E+000.5754203026E+000.5912283892E+00 +0.6062790495E+000.6206825648E+000.6345273433E+000.6478819922E+000.6608041153E+00 +0.6733482188E+000.6855665287E+000.6975049174E+000.7092005590E+000.7206844633E+00 +0.7319861453E+000.7431360328E+000.7541644315E+000.7650994620E+000.7759666577E+00 +0.7867905060E+000.7975962572E+000.8084106179E+000.8192614993E+000.8301778585E+00 +0.8411902225E+000.8523315995E+000.8636380919E+000.8751485527E+000.8869023013E+00 +0.8989328038E+000.9112537375E+000.9238333815E+000.9365560984E+000.9491782011E+00 +0.9612993492E+000.9723823406E+000.9818486773E+000.9892421867E+000.9943980672E+00 +0.9975210256E+000.9991092924E+000.9997574161E+000.9999556489E+000.9999959303E+00 +0.1656458112E+000.2512502469E+000.3099369454E+000.3550671967E+000.3920215223E+00 +0.4235062479E+000.4510771826E+000.4757136417E+000.4980706855E+000.5186067371E+00 +0.5376589105E+000.5554855060E+000.5722856452E+000.5882122109E+000.6033872899E+00 +0.6179152577E+000.6318869017E+000.6453775421E+000.6584473260E+000.6711466123E+00 +0.6835220343E+000.6956183327E+000.7074762765E+000.7191307785E+000.7306119347E+00 +0.7419479177E+000.7531669871E+000.7642974383E+000.7753666150E+000.7864006286E+00 +0.7974251982E+000.8084668220E+000.8195534797E+000.8307148402E+000.8419824178E+00 +0.8533898698E+000.8649730016E+000.8767684403E+000.8888093132E+000.9011154766E+00 +0.9136753538E+000.9264176571E+000.9391759974E+000.9516581743E+000.9634415684E+00 +0.9740183359E+000.9828994468E+000.9897537882E+000.9945240116E+000.9974540763E+00 +0.9990028958E+000.9996853127E+000.9999252011E+000.9999881289E+000.9999990586E+00 +0.6441321461E+000.4869430259E+000.7949981370E+000.3996743476E+000.6410416300E+00 +0.8451421048E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.3706064816E+000.5779282459E+000.7345329894E+000.8642184611E+000.9591373438E+00 +0.3405739657E+000.5273909345E+000.6660161608E+000.7837352698E+000.8871216454E+00 +0.9653643800E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.0000000000E+000.0000000000E+000.0000000000E+000.3138584252E+000.4827765839E+00 +0.6041517169E+000.7036430573E+000.7916792157E+000.8716674655E+000.9394161352E+00 +0.9840366059E+000.3002759554E+000.4605948748E+000.5746439129E+000.6669301268E+00 +0.7476636742E+000.8219008799E+000.8906043383E+000.9488234084E+000.9866953744E+00 +0.2898869628E+000.4437819402E+000.5524213183E+000.6394378879E+000.7146078143E+00 +0.7830900512E+000.8475520874E+000.9075328332E+000.9576559077E+000.9893048496E+00 +0.2829882405E+000.4328329246E+000.5379719323E+000.6215209701E+000.6929549326E+00 +0.7572488468E+000.8173256279E+000.8743258587E+000.9264686481E+000.9680501453E+00 +0.9924613647E+000.2750900629E+000.4201897655E+000.5215028650E+000.6015135501E+00 +0.6693790927E+000.7298635220E+000.7858697579E+000.8391885514E+000.8901883587E+00 +0.9366186617E+000.9729964930E+000.9937825821E+000.2709008651E+000.4139318522E+00 +0.5133991576E+000.5915568050E+000.6574298736E+000.7156637523E+000.7690540111E+00 +0.8194122100E+000.8676345511E+000.9130656261E+000.9526045287E+000.9812895824E+00 +0.9960774729E+000.2664704564E+000.4073612262E+000.5050134274E+000.5814274526E+00 +0.6455017489E+000.7017832449E+000.7529788129E+000.8008676809E+000.8465633539E+00 +0.8902640280E+000.9305659786E+000.9640584210E+000.9867212890E+000.9974269346E+00 +0.2631653347E+000.4031407343E+000.4998941188E+000.5753415623E+000.6383384338E+00 +0.6933860296E+000.7431374534E+000.7893225034E+000.8330792960E+000.8748940278E+00 +0.9141801155E+000.9488063027E+000.9754786174E+000.9917640815E+000.9985707461E+00 +0.2571779713E+000.3932928047E+000.4871408959E+000.5601099711E+000.6208247764E+00 +0.6736538189E+000.7211567405E+000.7650037785E+000.8063680405E+000.8460444357E+00 +0.8843051082E+000.9204698800E+000.9524633355E+000.9771727514E+000.9923047674E+00 +0.9986573772E+000.2535555174E+000.3882783569E+000.4809795151E+000.5528744276E+00 +0.6125166076E+000.6642268710E+000.7105229628E+000.7530332392E+000.7928972112E+00 +0.8309300417E+000.8675993222E+000.9027806452E+000.9353534163E+000.9630453414E+00 +0.9832214255E+000.9947064100E+000.9991426989E+000.2508486559E+000.3861022720E+00 +0.4790453242E+000.5509682534E+000.6104792377E+000.6619184109E+000.7078041738E+00 +0.7497523022E+000.7888790325E+000.8259743806E+000.8615135240E+000.8954984598E+00 +0.9271724747E+000.9548627673E+000.9764130486E+000.9903917262E+000.9973244993E+00 +0.9996226299E+000.2476807555E+000.3768702919E+000.4665584794E+000.5366206496E+00 +0.5950733492E+000.6459738098E+000.6916853336E+000.7337295289E+000.7731600797E+00 +0.8107237811E+000.8468761740E+000.8816526400E+000.9144310013E+000.9437757524E+00 +0.9677125764E+000.9846302856E+000.9943819284E+000.9986134588E+000.9998282969E+00 +0.2402333746E+000.3654102106E+000.4522591124E+000.5200414617E+000.5765203934E+00 +0.6256202808E+000.6696218291E+000.7099889453E+000.7477377054E+000.7836166813E+00 +0.8181836995E+000.8517883458E+000.8844372722E+000.9155544404E+000.9437908627E+00 +0.9672110889E+000.9840991911E+000.9940623727E+000.9984991558E+000.9998092258E+00 +0.2372142839E+000.3596905855E+000.4455308112E+000.5126207692E+000.5684954786E+00 +0.6170077977E+000.6604038637E+000.7001236040E+000.7371617470E+000.7722471356E+00 +0.8059280631E+000.8385724194E+000.8703081859E+000.9008484443E+000.9293114503E+00 +0.9542529827E+000.9740678518E+000.9877381975E+000.9955024036E+000.9988713607E+00 +0.9998557713E+000.2341951931E+000.3553384264E+000.4402228089E+000.5065321103E+00 +0.5617112226E+000.6095650241E+000.6523089092E+000.6913593451E+000.7276906269E+00 +0.7620136054E+000.7948666608E+000.8266476902E+000.8575553756E+000.8875379335E+00 +0.9160415296E+000.9419628183E+000.9638342341E+000.9803682602E+000.9911345031E+00 +0.9968902986E+000.9992495382E+000.9999069085E+000.2311761024E+000.3521753747E+00 +0.4361498469E+000.5016017554E+000.5560057986E+000.6031394079E+000.6451904865E+00 +0.6835525310E+000.7191802349E+000.7527678857E+000.7848437511E+000.8158124610E+00 +0.8459469101E+000.8753159021E+000.9036458874E+000.9301754105E+000.9536527541E+00 +0.9726495486E+000.9861848266E+000.9943197487E+000.9982328502E+000.9996329118E+00 +0.9999620385E+000.2311494540E+000.3511896748E+000.4341159391E+000.4985108969E+00 +0.5518548188E+000.5979171075E+000.6388742876E+000.6761070761E+000.7105562201E+00 +0.7429012780E+000.7736577038E+000.8032289790E+000.8319234637E+000.8599286746E+00 +0.8872294272E+000.9134763147E+000.9378715779E+000.9592133569E+000.9762304895E+00 +0.9881546731E+000.9951969505E+000.9985261774E+000.9996978423E+000.9999691306E+00 +0.2247441756E+000.3420696504E+000.4233357934E+000.4865486615E+000.5389740440E+00 +0.5842787135E+000.6245816733E+000.6612273655E+000.6951312880E+000.7269539344E+00 +0.7571961490E+000.7862533798E+000.8144421595E+000.8419970810E+000.8690258067E+00 +0.8954111135E+000.9206795753E+000.9439215903E+000.9639031699E+000.9794586456E+00 +0.9900423927E+000.9960856344E+000.9988388663E+000.9997704224E+000.9999774247E+00 +0.2268279382E+000.3438535952E+000.4243434660E+000.4866025143E+000.5379797784E+00 +0.5821696936E+000.6212991848E+000.6567117590E+000.6893169939E+000.7197659836E+00 +0.7485476149E+000.7760449120E+000.8025683543E+000.8283711365E+000.8536418096E+00 +0.8784619479E+000.9027180431E+000.9259828986E+000.9474386377E+000.9659654726E+00 +0.9804828018E+000.9904478494E+000.9962015381E+000.9988580112E+000.9997707315E+00 +0.9999770680E+000.2210740672E+000.3366678491E+000.4167221027E+000.4789435245E+00 +0.5304846546E+000.5749555515E+000.6144408551E+000.6502605524E+000.6833100816E+00 +0.7142314596E+000.7435072041E+000.7715149487E+000.7985586138E+000.8248801390E+00 +0.8506470080E+000.8759056900E+000.9004974109E+000.9239605967E+000.9454904287E+00 +0.9640530633E+000.9786996456E+000.9889772986E+000.9951923647E+000.9983144438E+00 +0.9995571357E+000.9999228452E+000.9999933400E+000.2178648986E+000.3318297870E+00 +0.4107485356E+000.4720664926E+000.5228330196E+000.5666062750E+000.6054403685E+00 +0.6406349958E+000.6730705982E+000.7033770085E+000.7320260664E+000.7593859367E+00 +0.7857538152E+000.8113732966E+000.8364353538E+000.8610556519E+000.8852191360E+00 +0.9086939238E+000.9309477034E+000.9511406836E+000.9682786240E+000.9815382606E+00 +0.9906350221E+000.9960023545E+000.9986298288E+000.9996483329E+000.9999401776E+00 +0.9999949588E+000.2179975083E+000.3316172603E+000.4101491350E+000.4710785395E+00 +0.5214584490E+000.5648443281E+000.6032863074E+000.6380798063E+000.6701007707E+00 +0.6999742298E+000.7281667786E+000.7550408132E+000.7808875386E+000.8059458213E+00 +0.8304075155E+000.8544043881E+000.8779687246E+000.9009649937E+000.9230106123E+00 +0.9434374168E+000.9613669933E+000.9759412171E+000.9866485262E+000.9935759025E+00 +0.9974104845E+000.9991649526E+000.9997989381E+000.9999679855E+000.9999974791E+00 +0.2167316546E+000.3298584630E+000.4080510417E+000.4686952644E+000.5188109416E+00 +0.5619380865E+000.6001178169E+000.6346392570E+000.6663731859E+000.6959398052E+00 +0.7238007954E+000.7503133012E+000.7757630028E+000.8003838699E+000.8243664071E+00 +0.8478514335E+000.8709030041E+000.8934558439E+000.9152456157E+000.9357559835E+00 +0.9542411564E+000.9698755217E+000.9820182571E+000.9904830235E+000.9956517674E+00 +0.9983415697E+000.9994954197E+000.9998856244E+000.9999828834E+000.9999987347E+00 +0.2159120505E+000.3275372039E+000.4052040340E+000.4654840003E+000.5152802681E+00 +0.5581023719E+000.5959796837E+000.6301950286E+000.6616146938E+000.6908549235E+00 +0.7183735364E+000.7445088013E+000.7695567188E+000.7937539033E+000.8172868572E+00 +0.8402984442E+000.8628698165E+000.8849816344E+000.9064597679E+000.9269248801E+00 +0.9457861604E+000.9622988759E+000.9757644760E+000.9858585338E+000.9926628192E+00 +0.9966991265E+000.9987533536E+000.9996220059E+000.9999140356E+000.9999870064E+00 +0.9999990238E+000.2150924464E+000.3258480444E+000.4030160833E+000.4628921533E+00 +0.5123260979E+000.5548074550E+000.5923549971E+000.6262445971E+000.6573372627E+00 +0.6862447281E+000.7134205149E+000.7392134203E+000.7639005022E+000.7877077640E+00 +0.8108219259E+000.8333932745E+000.8555267399E+000.8772255481E+000.8984074932E+00 +0.9187837988E+000.9378638152E+000.9550022359E+000.9695371755E+000.9809888274E+00 +0.9892351951E+000.9945719426E+000.9976184168E+000.9991181353E+000.9997360978E+00 +0.9999403314E+000.9999909680E+000.9999993159E+000.2142728422E+000.3247335207E+00 +0.4014272839E+000.4608634285E+000.5098960326E+000.5520041821E+000.5891970893E+00 +0.6227430908E+000.6534971738E+000.6820660193E+000.7088986310E+000.7343395768E+00 +0.7586376984E+000.7820500892E+000.8047580970E+000.8269098011E+000.8486135360E+00 +0.8699177291E+000.8907744027E+000.9109935621E+000.9302070992E+000.9478756678E+00 +0.9633671438E+000.9760305366E+000.9856089586E+000.9921903856E+000.9962350065E+00 +0.9984212803E+000.9994401847E+000.9998388313E+000.9999647042E+000.9999947827E+00 +0.9999996108E+000.2134532381E+000.3241429364E+000.4003847766E+000.4593481409E+00 +0.5079438376E+000.5496491813E+000.5864647810E+000.6196509017E+000.6500558515E+00 +0.6782807565E+000.7047698548E+000.7298634522E+000.7538306303E+000.7768901603E+00 +0.7992236402E+000.8209819541E+000.8422836858E+000.8632020463E+000.8837366630E+00 +0.9037711000E+000.9230282796E+000.9410511303E+000.9572435645E+000.9709919402E+00 +0.9818446762E+000.9896782038E+000.9947612961E+000.9976737230E+000.9991179907E+00 +0.9997232738E+000.9999312085E+000.9999873239E+000.9999984635E+000.9999999082E+00 +0.2053791509E+000.3128720467E+000.3872555849E+000.4449612530E+000.4926329767E+00 +0.5336237477E+000.5698669187E+000.6025825485E+000.6325931181E+000.6604821773E+00 +0.6866814430E+000.7115220076E+000.7352660295E+000.7581272156E+000.7802843542E+00 +0.8018896232E+000.8230714795E+000.8439299560E+000.8645204589E+000.8848225464E+00 +0.9046954806E+000.9238341820E+000.9417539015E+000.9578378383E+000.9714645906E+00 +0.9821890049E+000.9899028254E+000.9948898192E+000.9977368756E+000.9991440044E+00 +0.9997319867E+000.9999334826E+000.9999877570E+000.9999985170E+000.9999999114E+00 +0.2089859989E+000.3176226001E+000.3924938466E+000.4503961692E+000.4981007328E+00 +0.5390173704E+000.5751085587E+000.6076104448E+000.6373546458E+000.6649297650E+00 +0.6907698785E+000.7152064697E+000.7385005599E+000.7608634260E+000.7824703086E+00 +0.8034691354E+000.8239845181E+000.8441156204E+000.8639249439E+000.8834148637E+00 +0.9024920009E+000.9209279951E+000.9383372505E+000.9542000876E+000.9679517411E+00 +0.9791277770E+000.9875160994E+000.9932434550E+000.9967457956E+000.9986320880E+00 +0.9995099505E+000.9998549172E+000.9999659964E+000.9999940954E+000.9999993257E+00 +0.9999999621E+000.2067350976E+000.3140405085E+000.3884039468E+000.4460049247E+00 +0.4934939972E+000.5342397840E+000.5701860358E+000.6025587030E+000.6321830704E+00 +0.6596433925E+000.6853704693E+000.7096930732E+000.7328698134E+000.7551096977E+00 +0.7765857439E+000.7974437612E+000.8178067790E+000.8377741390E+000.8574129717E+00 +0.8767394470E+000.8956894097E+000.9140841824E+000.9316065927E+000.9478095990E+00 +0.9621768663E+000.9742353906E+000.9836896595E+000.9905229471E+000.9950151727E+00 +0.9976635989E+000.9990422134E+000.9996644279E+000.9999025114E+000.9999774952E+00 +0.9999961357E+000.9999995619E+000.9999999754E+000.2044841962E+000.3113980429E+00 +0.3852684783E+000.4424827477E+000.4896665700E+000.5301625307E+000.5658967029E+00 +0.5980832192E+000.6275391702E+000.6548428735E+000.6804205950E+000.7045974294E+00 +0.7276288525E+000.7497211039E+000.7710447412E+000.7917436386E+000.8119401780E+00 +0.8317360537E+000.8512068232E+000.8703875090E+000.8892474966E+000.9076573793E+00 +0.9253586424E+000.9419560717E+000.9569551016E+000.9698540436E+000.9802737412E+00 +0.9880778596E+000.9934277873E+000.9967408498E+000.9985687844E+000.9994536669E+00 +0.9998228289E+000.9999526364E+000.9999899951E+000.9999984364E+000.9999998395E+00 +0.9999999919E+000.2037126614E+000.3097428738E+000.3828420223E+000.4393690176E+00 +0.4859240871E+000.5258324956E+000.5610083428E+000.5926570755E+000.6215891673E+00 +0.6483776395E+000.6734442849E+000.6971102384E+000.7196273403E+000.7411983816E+00 +0.7619906232E+000.7821450296E+000.8017822915E+000.8210056833E+000.8398998069E+00 +0.8585232604E+000.8768928994E+000.8949588957E+000.9125744276E+000.9294712757E+00 +0.9452595001E+000.9594693059E+000.9716403656E+000.9814395503E+000.9887644724E+00 +0.9937853818E+000.9969014318E+000.9986287966E+000.9994712496E+000.9998263462E+00 +0.9999528631E+000.9999898636E+000.9999983831E+000.9999998301E+000.9999999912E+00 +0.2026463810E+000.3072877374E+000.3799067560E+000.4361216718E+000.4824194451E+00 +0.5220940090E+000.5570307633E+000.5884196204E+000.6171098710E+000.6436657325E+00 +0.6685032774E+000.6919394484E+000.7142141110E+000.7355330897E+000.7560676305E+00 +0.7759555141E+000.7953146864E+000.8142467083E+000.8328335257E+000.8511436158E+00 +0.8692089071E+000.8870093360E+000.9044484204E+000.9213263489E+000.9373134903E+00 +0.9520166618E+000.9650010077E+000.9758914481E+000.9844708087E+000.9907350441E+00 +0.9949320300E+000.9974947304E+000.9988977608E+000.9995762704E+000.9998609539E+00 +0.9999620264E+000.9999917383E+000.9999986621E+000.9999998568E+000.9999999924E+00 +0.2015801006E+000.3050931568E+000.3772487494E+000.4331401040E+000.4791668683E+00 +0.5185962121E+000.5533184965E+000.5845140532E+000.6129514807E+000.6392665871E+00 +0.6638694327E+000.6870726287E+000.7091213094E+000.7302124849E+000.7505022135E+00 +0.7701245249E+000.7892089160E+000.8078551272E+000.8261489653E+000.8441600386E+00 +0.8619355040E+000.8794767735E+000.8967242946E+000.9135387290E+000.9296693792E+00 +0.9447667819E+000.9584210267E+000.9702343758E+000.9798674448E+000.9872425505E+00 +0.9925040182E+000.9959595921E+000.9980269181E+000.9991399858E+000.9996715692E+00 +0.9998914824E+000.9999700582E+000.9999934038E+000.9999989146E+000.9999998816E+00 +0.9999999936E+000.2005138202E+000.3031404815E+000.3748481960E+000.4304053315E+00 +0.4761483490E+000.5153218859E+000.5498053880E+000.5807855390E+000.6090607505E+00 +0.6351578071E+000.6595207768E+000.6824881089E+000.7043013883E+000.7251547215E+00 +0.7452075562E+000.7645651247E+000.7833808923E+000.8017493460E+000.8197504073E+00 +0.8374656072E+000.8549454146E+000.8722105614E+000.8892351305E+000.9059254865E+00 +0.9221006996E+000.9374842318E+000.9516655631E+000.9642677610E+000.9749572371E+00 +0.9834068898E+000.9897139784E+000.9940857987E+000.9968765747E+000.9985023540E+00 +0.9993535482E+000.9997515567E+000.9999174918E+000.9999770392E+000.9999948751E+00 +0.9999991425E+000.9999999047E+000.9999999947E+000.1994475399E+000.3014128493E+00 +0.3726871320E+000.4279001376E+000.4733475550E+000.5122554654E+000.5464929144E+00 +0.5772400312E+000.6052906709E+000.6312056565E+000.6553970196E+000.6781498793E+00 +0.6996765476E+000.7202610904E+000.7400556044E+000.7591883352E+000.7777692859E+00 +0.7958941174E+000.8136465122E+000.8310984382E+000.8483077061E+000.8653114702E+00 +0.8821021645E+000.8986159642E+000.9147199613E+000.9301807535E+000.9446810934E+00 +0.9578540882E+000.9693437713E+000.9788792424E+000.9863402651E+000.9917914077E+00 +0.9954712881E+000.9976671714E+000.9988921491E+000.9995242222E+000.9998181763E+00 +0.9999395357E+000.9999830428E+000.9999961657E+000.9999993477E+000.9999999261E+00 +0.9999999958E+000.1983812595E+000.2998949185E+000.3707492414E+000.4256088673E+00 +0.4707496579E+000.5093827638E+000.5433673931E+000.5738769516E+000.6017005675E+00 +0.6273771915E+000.6512828262E+000.6738058929E+000.6951797204E+000.7155922935E+00 +0.7351981768E+000.7541199034E+000.7724654850E+000.7903458620E+000.8078369006E+00 +0.8250126463E+000.8419446014E+000.8586734847E+000.8752122157E+000.8915305783E+00 +0.9075368077E+000.9230611536E+000.9378494193E+000.9515351283E+000.9637397112E+00 +0.9741625052E+000.9825494062E+000.9889072165E+000.9934256554E+000.9964025729E+00 +0.9982038468E+000.9991934500E+000.9996634684E+000.9998729122E+000.9999578842E+00 +0.9999881357E+000.9999972879E+000.9999995315E+000.9999999460E+000.9999999969E+00 +0.1973149791E+000.2985727200E+000.3690196309E+000.4235172458E+000.4683411113E+00 +0.5066908817E+000.5404163547E+000.5706841529E+000.5982331393E+000.6236454541E+00 +0.6473696275E+000.6697044270E+000.6908844712E+000.7110979548E+000.7304991084E+00 +0.7492167308E+000.7673390695E+000.7849900964E+000.8022511473E+000.8191939280E+00 +0.8358799806E+000.8523577675E+000.8686560301E+000.8847635037E+000.9006170459E+00 +0.9160891736E+000.9309636016E+000.9449481447E+000.9577042840E+000.9688998152E+00 +0.9782741086E+000.9856156407E+000.9910553310E+000.9948155914E+000.9972237222E+00 +0.9986410698E+000.9994001256E+000.9997652599E+000.9999165555E+000.9999727839E+00 +0.9999923785E+000.9999982530E+000.9999996955E+000.9999999644E+000.9999999979E+00 +0.1962486987E+000.2974334689E+000.3674847266E+000.4216122821E+000.4661095795E+00 +0.5041679983E+000.5376284274E+000.5676217665E+000.5949394606E+000.6201672446E+00 +0.6437004238E+000.6658402279E+000.6868221084E+000.7068342581E+000.7260149988E+00 +0.7445111327E+000.7624328988E+000.7798728866E+000.7969123089E+000.8136229371E+00 +0.8300654997E+000.8462905129E+000.8623374465E+000.8782138700E+000.8938865907E+00 +0.9092648381E+000.9241856297E+000.9383934679E+000.9515770887E+000.9634063117E+00 +0.9735831813E+000.9819099562E+000.9883376208E+000.9929744158E+000.9960510901E+00 +0.9979528767E+000.9990306034E+000.9995856785E+000.9998426354E+000.9999479669E+00 +0.9999844595E+000.9999958268E+000.9999990713E+000.9999998409E+000.9999999816E+00 +0.9999999989E+000.1951824184E+000.2964654870E+000.3661320972E+000.4198820316E+00 +0.4640437592E+000.5018033542E+000.5349931900E+000.5647659034E+000.5918951363E+00 +0.6169263751E+000.6402596777E+000.6621981570E+000.6829777538E+000.7027864660E+00 +0.7217774025E+000.7400778122E+000.7577953817E+000.7750227917E+000.7918410812E+00 +0.8083219100E+000.8245285309E+000.8405149958E+000.8563227147E+000.8719732053E+00 +0.8874561891E+000.9027135652E+000.9176223926E+000.9319832797E+000.9455228994E+00 +0.9579183876E+000.9688454965E+000.9780424093E+000.9853712781E+000.9908557600E+00 +0.9946790887E+000.9971420001E+000.9985959198E+000.9993754966E+000.9997514558E+00 +0.9999127060E+000.9999733982E+000.9999931170E+000.9999985311E+000.9999997520E+00 +0.9999999690E+000.9999999974E+000.9999999999E+000.1946013215E+000.2952601664E+00 +0.3647362121E+000.4183831245E+000.4624741958E+000.5001794689E+000.5333248630E+00 +0.5630597474E+000.5901558501E+000.6151574653E+000.6384637793E+000.6603771798E+00 +0.6811330665E+000.7009190384E+000.7198878141E+000.7381662317E+000.7558616065E+00 +0.7730662869E+000.7898609551E+000.8063168505E+000.8224967376E+000.8384541141E+00 +0.8542298208E+000.8698450257E+000.8852899016E+000.9005086381E+000.9153838306E+00 +0.9297261680E+000.9432772095E+000.9557319157E+000.9667822664E+000.9761747089E+00 +0.9837659537E+000.9895585728E+000.9937029686E+000.9964642350E+000.9981656185E+00 +0.9991280398E+000.9996238533E+000.9998543753E+000.9999500750E+000.9999850931E+00 +0.9999962056E+000.9999992001E+000.9999998660E+000.9999999833E+000.9999999986E+00 +0.9999999999E+000.1940202246E+000.2947212972E+000.3640146997E+000.4174963645E+00 +0.4614519454E+000.4990459172E+000.5320983091E+000.5617539606E+000.5887812852E+00 +0.6137221903E+000.6369740438E+000.6588377648E+000.6795476090E+000.6992902862E+00 +0.7182177356E+000.7364560667E+000.7541119467E+000.7712771700E+000.7880319552E+00 +0.8044472412E+000.8205858798E+000.8365022557E+000.8522395246E+000.8678233941E+00 +0.8832515239E+000.8984786881E+000.9134001083E+000.9278384624E+000.9415426275E+00 +0.9542060622E+000.9655081130E+000.9751726991E+000.9830291878E+000.9890552190E+00 +0.9933850340E+000.9962791596E+000.9980663822E+000.9990788820E+000.9996012061E+00 +0.9998445900E+000.9999460919E+000.9999835760E+000.9999956769E+000.9999990376E+00 +0.9999998239E+000.9999999746E+000.9999999973E+000.9999999998E+000.1000000000E+01 +0.1881384766E+000.2865114597E+000.3544143737E+000.4069184241E+000.4501225799E+00 +0.4871050505E+000.5196393421E+000.5488424490E+000.5754649170E+000.6000364625E+00 +0.6229456038E+000.6444866438E+000.6648888077E+000.6843347560E+000.7029729593E+00 +0.7209265163E+000.7382994782E+000.7551812932E+000.7716500548E+000.7877750098E+00 +0.8036183767E+000.8192362712E+000.8346783703E+000.8499856306E+000.8651850210E+00 +0.8802801918E+000.8952377628E+000.9099707845E+000.9243237962E+000.9380667848E+00 +0.9509063162E+000.9625191220E+000.9726058865E+000.9809531674E+000.9874842222E+00 +0.9922800324E+000.9955615376E+000.9976390422E+000.9988472477E+000.9994878408E+00 +0.9997949491E+000.9999268499E+000.9999770579E+000.9999937781E+000.9999985716E+00 +0.9999997303E+000.9999999598E+000.9999999956E+000.9999999997E+000.1000000000E+01 +0.1900833807E+000.2890576310E+000.3572469285E+000.4099084653E+000.4532027837E+00 +0.4902348653E+000.5227918972E+000.5519986150E+000.5786101503E+000.6031591592E+00 +0.6260362009E+000.6475368680E+000.6678911190E+000.6872821221E+000.7058587203E+00 +0.7237441438E+000.7410423376E+000.7578425222E+000.7742224813E+000.7902510025E+00 +0.8059896129E+000.8214934348E+000.8368107357E+000.8519804846E+000.8670269667E+00 +0.8819505785E+000.8967147292E+000.9112305967E+000.9253441101E+000.9388319387E+00 +0.9514137438E+000.9627848380E+000.9726664396E+000.9808621627E+000.9873035249E+00 +0.9920682150E+000.9953636158E+000.9974810447E+000.9987368848E+000.9994198258E+00 +0.9997579314E+000.9999091184E+000.9999696339E+000.9999910887E+000.9999977405E+00 +0.9999995153E+000.9999999145E+000.9999999881E+000.9999999988E+000.9999999999E+00 +0.1000000000E+010.1904805627E+000.2894442076E+000.3575502724E+000.4101057970E+00 +0.4532847821E+000.4901968434E+000.5226309092E+000.5517123315E+000.5781963050E+00 +0.6026152940E+000.6253595911E+000.6467244252E+000.6669392648E+000.6861867470E+00 +0.7046151827E+000.7223472025E+000.7394860424E+000.7561201347E+000.7723264243E+00 +0.7881728069E+000.8037199020E+000.8190220727E+000.8341273469E+000.8490756596E+00 +0.8638945918E+000.8785917426E+000.8931433960E+000.9074805470E+000.9214755925E+00 +0.9349353604E+000.9476072719E+000.9592036892E+000.9694441921E+000.9781079080E+00 +0.9850814596E+000.9903865718E+000.9941769399E+000.9967048491E+000.9982691260E+00 +0.9991617639E+000.9996284855E+000.9998505344E+000.9999459220E+000.9999825945E+00 +0.9999950813E+000.9999987993E+000.9999997521E+000.9999999579E+000.9999999944E+00 +0.9999999994E+000.1000000000E+010.1000000000E+010.1915290602E+000.2907064429E+00 +0.3588461202E+000.4113670910E+000.4544780613E+000.4913027907E+000.5236369104E+00 +0.5526092722E+000.5789769541E+000.6032734058E+000.6258894485E+000.6471205501E+00 +0.6671961449E+000.6862986513E+000.7045760789E+000.7221506683E+000.7391251272E+00 +0.7555872321E+000.7716131851E+000.7872700648E+000.8026176149E+000.8177093614E+00 +0.8325927882E+000.8473080728E+000.8618846640E+000.8763348975E+000.8906441863E+00 +0.9047584129E+000.9185710300E+000.9319145814E+000.9445627664E+000.9562483510E+00 +0.9666982553E+000.9756806238E+000.9830521560E+000.9887909883E+000.9930034906E+00 +0.9959019873E+000.9977608668E+000.9988657278E+000.9994707973E+000.9997742261E+00 +0.9999126242E+000.9999696056E+000.9999905983E+000.9999974474E+000.9999994015E+00 +0.9999998813E+000.9999999807E+000.9999999975E+000.9999999998E+000.1000000000E+01 +0.1000000000E+010.1900687978E+000.2883811977E+000.3558443859E+000.4077807389E+00 +0.4503604125E+000.4866874636E+000.5185458724E+000.5470567923E+000.5729718445E+00 +0.5968204390E+000.6189901335E+000.6397735608E+000.6593977150E+000.6780428781E+00 +0.6958549972E+000.7129541965E+000.7294410483E+000.7454011938E+000.7609086275E+00 +0.7760281049E+000.7908170493E+000.8053270478E+000.8196048350E+000.8336926092E+00 +0.8476273862E+000.8614388380E+000.8751448364E+000.8887439860E+000.9022050482E+00 +0.9154544972E+000.9283654122E+000.9407528310E+000.9523813512E+000.9629888694E+00 +0.9723254697E+000.9801998972E+000.9865207407E+000.9913186738E+000.9947413712E+00 +0.9970222693E+000.9984337424E+000.9992399055E+000.9996621625E+000.9998635925E+00 +0.9999504298E+000.9999839628E+000.9999954410E+000.9999988796E+000.9999997669E+00 +0.9999999601E+000.9999999946E+000.9999999995E+000.1000000000E+010.1000000000E+01 +0.1879571048E+000.2856632510E+000.3529172447E+000.4048175858E+000.4474558379E+00 +0.4839006679E+000.5159176326E+000.5446174980E+000.5707456079E+000.5948273056E+00 +0.6172476494E+000.6382978831E+000.6582041163E+000.6771460459E+000.6952695001E+00 +0.7126949371E+000.7295234729E+000.7458413945E+000.7617235458E+000.7772358027E+00 +0.7924368813E+000.8073796091E+000.8221115460E+000.8366745997E+000.8511030859E+00 +0.8654195280E+000.8796275363E+000.8937016340E+000.9075751101E+000.9211288083E+00 +0.9341855802E+000.9465158788E+000.9578584696E+000.9679560340E+000.9765995143E+00 +0.9836698703E+000.9891644011E+000.9931985608E+000.9959822321E+000.9977782211E+00 +0.9988561858E+000.9994549706E+000.9997611258E+000.9999043678E+000.9999652985E+00 +0.9999886888E+000.9999967229E+000.9999991669E+000.9999998171E+000.9999999661E+00 +0.9999999948E+000.9999999994E+000.9999999999E+000.1000000000E+010.1000000000E+01 +0.5633596892E+000.4235470933E+000.7123019817E+000.3529771612E+000.5680046648E+00 +0.7662228666E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.3264031686E+000.5103746276E+000.6516433313E+000.7798075886E+000.9052116818E+00 +0.3026030729E+000.4694927123E+000.5937064713E+000.7013601301E+000.8060422940E+00 +0.9138710076E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.0000000000E+000.0000000000E+000.0000000000E+000.2799075011E+000.4317812338E+00 +0.5410057046E+000.6307344790E+000.7111607406E+000.7887435338E+000.8681238255E+00 +0.9467192316E+000.2688828988E+000.4135717964E+000.5165804840E+000.5999993829E+00 +0.6732012212E+000.7416655853E+000.8097022797E+000.8807233473E+000.9517477229E+00 +0.2602787193E+000.3995737111E+000.4979802380E+000.5768442642E+000.6450384153E+00 +0.7074543719E+000.7675857752E+000.8286240686E+000.8930728697E+000.9572705588E+00 +0.2541775087E+000.3900624124E+000.4854783971E+000.5613378193E+000.6262331435E+00 +0.6847420105E+000.7398849763E+000.7941627752E+000.8500027756E+000.9087506169E+00 +0.9651667688E+000.2476176938E+000.3794997752E+000.4716538014E+000.5444656512E+00 +0.6062509287E+000.6613513902E+000.7124965029E+000.7617571540E+000.8110657465E+00 +0.8624153687E+000.9167067511E+000.9685286875E+000.2434311283E+000.3735853202E+00 +0.4641715637E+000.5353815831E+000.5954208817E+000.6485202846E+000.6972610388E+00 +0.7434826440E+000.7887418790E+000.8345826590E+000.8824128180E+000.9318315270E+00 +0.9759953721E+000.2390939745E+000.3674660450E+000.4565229014E+000.5262392627E+00 +0.5847168386E+000.6360992063E+000.6828671588E+000.7267197177E+000.7689970403E+00 +0.8109322693E+000.8537668749E+000.8983723786E+000.9433219498E+000.9811987813E+00 +0.2351105073E+000.3627682994E+000.4511142442E+000.5200314340E+000.5775927043E+00 +0.6279045888E+000.6733954398E+000.7156859263E+000.7559936730E+000.7953599575E+00 +0.8347825690E+000.8751577511E+000.9165725955E+000.9562897281E+000.9867583398E+00 +0.2305505748E+000.3549146289E+000.4407560177E+000.5075254184E+000.5630986004E+00 +0.6114666186E+000.6549699740E+000.6951442299E+000.7331064668E+000.7697647971E+00 +0.8059555743E+000.8425342236E+000.8803134763E+000.9194120476E+000.9573366230E+00 +0.9868890546E+000.2267221837E+000.3499443709E+000.4348475921E+000.5007192709E+00 +0.5553803468E+000.6027835898E+000.6452334686E+000.6842241622E+000.7208185938E+00 +0.7558476581E+000.7900332366E+000.8240756551E+000.8586902357E+000.8944356680E+00 +0.9309053006E+000.9649717135E+000.9898655197E+000.2222660667E+000.3460335353E+00 +0.4312817963E+000.4972745139E+000.5518923458E+000.5991121286E+000.6412425308E+00 +0.6797679942E+000.7157281495E+000.7499135497E+000.7829808737E+000.8155290147E+00 +0.8481379961E+000.8812995427E+000.9150259486E+000.9478840313E+000.9759345010E+00 +0.9938471366E+000.2254601925E+000.3427898547E+000.4240749730E+000.4874465882E+00 +0.5402130236E+000.5860697383E+000.6271666987E+000.6648879233E+000.7002020151E+00 +0.7338422406E+000.7664109479E+000.7984467686E+000.8304617796E+000.8629099400E+00 +0.8959624715E+000.9289091694E+000.9592974094E+000.9828896008E+000.9961131889E+00 +0.2192667925E+000.3332137130E+000.4120922334E+000.4735241098E+000.5246058343E+00 +0.5689213232E+000.6085505188E+000.6448259175E+000.6786718756E+000.7107775828E+00 +0.7416958098E+000.7719065296E+000.8018632159E+000.8320235389E+000.8628313245E+00 +0.8945355740E+000.9266421482E+000.9569859321E+000.9813560051E+000.9956046439E+00 +0.2165439227E+000.3280334204E+000.4059924426E+000.4667891829E+000.5173138921E+00 +0.5610863629E+000.6001558239E+000.6358334945E+000.6690239745E+000.7003942962E+00 +0.7304693729E+000.7596858043E+000.7884600116E+000.8171937231E+000.8462711710E+00 +0.8759940956E+000.9063185839E+000.9363203310E+000.9636146724E+000.9845856441E+00 +0.9964089351E+000.2138210529E+000.3241039085E+000.4011923329E+000.4612745411E+00 +0.5111604299E+000.5543270208E+000.5927962221E+000.6278583914E+000.6603993132E+00 +0.6910665342E+000.7203623141E+000.7487008249E+000.7764388727E+000.8039553350E+00 +0.8315917761E+000.8596682590E+000.8883621407E+000.9173853325E+000.9454632418E+00 +0.9700150427E+000.9878627897E+000.9973027647E+000.2110981831E+000.3212620377E+00 +0.3975223786E+000.4568210292E+000.5059969489E+000.5485030159E+000.5863367015E+00 +0.6207678979E+000.6526644247E+000.6826565937E+000.7112286525E+000.7387741190E+00 +0.7656325459E+000.7921163294E+000.8185305447E+000.8451790004E+000.8723257402E+00 +0.9000391712E+000.9278291367E+000.9541406490E+000.9762167880E+000.9911812732E+00 +0.9982744519E+000.2114771818E+000.3210015973E+000.3964884683E+000.4549819392E+00 +0.5033379998E+000.5450086000E+000.5819849890E+000.6155285928E+000.6464970631E+00 +0.6755085944E+000.7030327506E+000.7294447325E+000.7550606378E+000.7801624809E+00 +0.8050175327E+000.8298926261E+000.8550545837E+000.8807251018E+000.9069214531E+00 +0.9331090311E+000.9577503998E+000.9782441651E+000.9919946713E+000.9984453865E+00 +0.2057360379E+000.3128030574E+000.3867678975E+000.4441610629E+000.4916474684E+00 +0.5325874424E+000.5689206967E+000.6018760385E+000.6322880774E+000.6607568710E+00 +0.6877362326E+000.7135860967E+000.7386061499E+000.7630593920E+000.7871900332E+00 +0.8112382400E+000.8354504096E+000.8600729807E+000.8852936068E+000.9110596479E+00 +0.9367167120E+000.9605990027E+000.9800983550E+000.9928523861E+000.9986514748E+00 +0.2081133507E+000.3152150215E+000.3887270633E+000.4454823053E+000.4922342263E+00 +0.5323753766E+000.5678574072E+000.5999120364E+000.6293718177E+000.6568313749E+00 +0.6827362674E+000.7074351948E+000.7312130424E+000.7543135320E+000.7769556667E+00 +0.7993469949E+000.8216954592E+000.8442183005E+000.8671382522E+000.8906363744E+00 +0.9146976083E+000.9387847822E+000.9614302215E+000.9802078746E+000.9927489436E+00 +0.9985989850E+000.2024041067E+000.3078968028E+000.3807561454E+000.4372425373E+00 +0.4839192760E+000.5240960977E+000.5596821031E+000.5918844380E+000.6215203852E+00 +0.6491740565E+000.6752827978E+000.7001884846E+000.7241696176E+000.7474629227E+00 +0.7702791394E+000.7928152869E+000.8152645949E+000.8378226498E+000.8606809300E+00 +0.8839835980E+000.9077036622E+000.9314020010E+000.9539360062E+000.9734080029E+00 +0.9877694011E+000.9960664255E+000.9993447071E+000.1996273325E+000.3037123807E+00 +0.3755903927E+000.4312955665E+000.4773020690E+000.5168748998E+000.5518968771E+00 +0.5835576945E+000.6126618880E+000.6397832636E+000.6653498563E+000.6896944991E+00 +0.7130862800E+000.7357512975E+000.7578876932E+000.7796771577E+000.8012942532E+00 +0.8229141887E+000.8447164884E+000.8668741994E+000.8895031817E+000.9125294702E+00 +0.9354493027E+000.9570688279E+000.9755184806E+000.9889048900E+000.9964912708E+00 +0.9994261899E+000.1998987644E+000.3037323386E+000.3752963560E+000.4306750478E+00 +0.4763509166E+000.5155889746E+000.5502698789E+000.5815803001E+000.6103212895E+00 +0.6370629894E+000.6622292601E+000.6861479059E+000.7090821595E+000.7312511279E+00 +0.7528441753E+000.7740318762E+000.7949746771E+000.8158300441E+000.8367574039E+00 +0.8579156731E+000.8794387581E+000.9013604670E+000.9234564640E+000.9450171600E+00 +0.9646975498E+000.9807341706E+000.9917142504E+000.9975321124E+000.9996222749E+00 +0.1986693915E+000.3020335150E+000.3732802192E+000.4283962932E+000.4738320677E+00 +0.5128377894E+000.5472857333E+000.5783568828E+000.6068476621E+000.6333241403E+00 +0.6582062613E+000.6818174639E+000.7044159606E+000.7262150862E+000.7473971931E+00 +0.7681240416E+000.7885449796E+000.8088035483E+000.8290425920E+000.8494055122E+00 +0.8700255437E+000.8909849876E+000.9122172691E+000.9333379808E+000.9534610981E+00 +0.9711803386E+000.9849479828E+000.9938493931E+000.9982703194E+000.9997513175E+00 +0.1980316815E+000.3000683185E+000.3708634747E+000.4256664467E+000.4708247503E+00 +0.5095627828E+000.5437432504E+000.5745421758E+000.6027524182E+000.6289368019E+00 +0.6535121851E+000.6767844742E+000.6990215550E+000.7204387640E+000.7412117682E+00 +0.7614946337E+000.7814277181E+000.8011434791E+000.8207715446E+000.8404409764E+00 +0.8602760079E+000.8803762018E+000.9007521459E+000.9212072823E+000.9412042301E+00 +0.9597687348E+000.9756006526E+000.9874970451E+000.9949636282E+000.9985934639E+00 +0.9997973028E+000.1973939714E+000.2986821644E+000.3690496196E+000.4235027630E+00 +0.4683442004E+000.5067819696E+000.5406701782E+000.5711792311E+000.5990976831E+00 +0.6249845891E+000.6492532577E+000.6722202813E+000.6941360348E+000.7152048020E+00 +0.7355984161E+000.7554658281E+000.7749404111E+000.7941368640E+000.8131981525E+00 +0.8322418403E+000.8513838499E+000.8707269652E+000.8903256839E+000.9101114761E+00 +0.9297760414E+000.9486544618E+000.9657131527E+000.9797642453E+000.9899153690E+00 +0.9960401489E+000.9989161221E+000.9998456874E+000.1967562613E+000.2978224125E+00 +0.3677838537E+000.4218537872E+000.4663425402E+000.5044504322E+000.5380238514E+00 +0.5682269965E+000.5958434231E+000.6214279033E+000.6453899315E+000.6680425878E+00 +0.6896096695E+000.7103243298E+000.7303520966E+000.7498360426E+000.7689034423E+00 +0.7876713839E+000.8062509577E+000.8247509190E+000.8432787770E+000.8619371070E+00 +0.8808065420E+000.8999104435E+000.9190999880E+000.9379618401E+000.9557265158E+00 +0.9713273697E+000.9836944143E+000.9922148391E+000.9970823884E+000.9992383343E+00 +0.9998962521E+000.1961185513E+000.2974426215E+000.3670178227E+000.4206741058E+00 +0.4647775237E+000.5025285360E+000.5357666223E+000.5656492353E+000.5929543142E+00 +0.6182318735E+000.6418873107E+000.6642301413E+000.6855038275E+000.7059053661E+00 +0.7255988322E+000.7447247185E+000.7634066561E+000.7817567806E+000.7998801684E+00 +0.8178783860E+000.8358519199E+000.8538998629E+000.8721120817E+000.8905442888E+00 +0.9091626430E+000.9277504447E+000.9457984711E+000.9624537739E+000.9766405231E+00 +0.9874117814E+000.9944059432E+000.9980933743E+000.9995601465E+000.9999488058E+00 +0.1887432101E+000.2871357633E+000.3549955436E+000.4074793968E+000.4507103245E+00 +0.4877755850E+000.5204532734E+000.5498641744E+000.5767626066E+000.6016821562E+00 +0.6250163880E+000.6470661690E+000.6680680802E+000.6882131525E+000.7076603232E+00 +0.7265456023E+000.7449882552E+000.7630958047E+000.7809684416E+000.7987026304E+00 +0.8163940203E+000.8341395645E+000.8520370463E+000.8701769858E+000.8886171400E+00 +0.9073258589E+000.9260862833E+000.9443824643E+000.9613427953E+000.9758572865E+00 +0.9869328957E+000.9941642209E+000.9979997633E+000.9995356256E+000.9999455709E+00 +0.1921193091E+000.2916224587E+000.3599885626E+000.4127123549E+000.4560349985E+00 +0.4930969270E+000.5257038449E+000.5549919187E+000.5817246153E+000.6064412057E+00 +0.6295382822E+000.6513179384E+000.6720171183E+000.6918263376E+000.7109028071E+00 +0.7293798110E+000.7473731273E+000.7649857688E+000.7823120008E+000.7994407406E+00 +0.8164582834E+000.8334503486E+000.8505025784E+000.8676965189E+000.8850947342E+00 +0.9027049894E+000.9204140240E+000.9378958032E+000.9545342705E+000.9694425762E+00 +0.9816607751E+000.9905177525E+000.9959759577E+000.9986953042E+000.9997145395E+00 +0.9999685605E+000.1900102405E+000.2882611356E+000.3561363907E+000.4085601533E+00 +0.4516619569E+000.4885440453E+000.5209948047E+000.5501408991E+000.5767398481E+00 +0.6013269789E+000.6242958888E+000.6459460125E+000.6665120333E+000.6861825373E+00 +0.7051126849E+000.7234334067E+000.7412579750E+000.7586866880E+000.7758105843E+00 +0.7927146422E+000.8094804443E+000.8261881858E+000.8429175201E+000.8597453892E+00 +0.8767365620E+000.8939196975E+000.9112408857E+000.9284934969E+000.9452439106E+00 +0.9608040402E+000.9743192769E+000.9850049622E+000.9924611710E+000.9968861005E+00 +0.9990149037E+000.9997888988E+000.9999771183E+000.1879011718E+000.2857674954E+00 +0.3531663739E+000.4052126070E+000.4480123169E+000.4846434964E+000.5168781623E+00 +0.5458319606E+000.5722547488E+000.5966764811E+000.6194866304E+000.6409811075E+00 +0.6613916929E+000.6809045768E+000.6996725597E+000.7178240369E+000.7354696888E+00 +0.7527071271E+000.7696243429E+000.7863027149E+000.8028196477E+000.8192506618E+00 +0.8356707444E+000.8521540445E+000.8687692004E+000.8855649161E+000.9025380157E+00 +0.9195778222E+000.9363927358E+000.9524508513E+000.9669950934E+000.9791919373E+00 +0.9884072593E+000.9944888277E+000.9978675243E+000.9993740099E+000.9998766996E+00 +0.9999878298E+000.1874852662E+000.2846914762E+000.3514911430E+000.4029954247E+00 +0.4452956500E+000.4814582148E+000.5132466035E+000.5417700467E+000.5677734951E+00 +0.5917829456E+000.6141844142E+000.6352707451E+000.6552710319E+000.6743689308E+00 +0.6927145856E+000.7104335775E+000.7276336959E+000.7444094821E+000.7608454264E+00 +0.7770188255E+000.7930023960E+000.8088663578E+000.8246800102E+000.8405127047E+00 +0.8564330877E+000.8725037712E+000.8887663548E+000.9052099366E+000.9217183585E+00 +0.9380029044E+000.9535503059E+000.9676401998E+000.9794836160E+000.9884762317E+00 +0.9944600365E+000.9978248307E+000.9993496592E+000.9998690218E+000.9999867284E+00 +0.1865738463E+000.2825399162E+000.3489253249E+000.4001640253E+000.4422456744E+00 +0.4782091676E+000.5097922880E+000.5380903739E+000.5638847168E+000.5876934739E+00 +0.6098978293E+000.6307870455E+000.6505788623E+000.6694600096E+000.6875850356E+00 +0.7050768160E+000.7220402991E+000.7385672541E+000.7547356567E+000.7706246628E+00 +0.7863039107E+000.8018392917E+000.8172952445E+000.8327359815E+000.8482273019E+00 +0.8638298690E+000.8795932200E+000.8955360661E+000.9116110701E+000.9276494704E+00 +0.9432994285E+000.9580205749E+000.9711247658E+000.9819290083E+000.9899792028E+00 +0.9952233927E+000.9981300148E+000.9994396214E+000.9998862384E+000.9999883135E+00 +0.1856624263E+000.2806274393E+000.3466130546E+000.3975749395E+000.4394248745E+00 +0.4751783911E+000.5065787695E+000.5347131856E+000.5602880678E+000.5838883514E+00 +0.6058900964E+000.6265788891E+000.6461777566E+000.6648654628E+000.6827823804E+00 +0.7000476671E+000.7167774158E+000.7330606598E+000.7489766262E+000.7645966130E+00 +0.7799864474E+000.7952046663E+000.8103175811E+000.8253900164E+000.8404814261E+00 +0.8556505959E+000.8709513673E+000.8864212213E+000.9020591438E+000.9177734762E+00 +0.9333412542E+000.9483685589E+000.9622914391E+000.9744550942E+000.9842750324E+00 +0.9913760386E+000.9959222819E+000.9984112576E+000.9995236339E+000.9999026832E+00 +0.9999898833E+000.1847510064E+000.2789369321E+000.3445362194E+000.3952108606E+00 +0.4368168780E+000.4723502702E+000.5035450054E+000.5314947901E+000.5569343661E+00 +0.5803472173E+000.6021412672E+000.6226266316E+000.6420231394E+000.6605069701E+00 +0.6782224123E+000.6952613320E+000.7117624660E+000.7278089628E+000.7434719003E+00 +0.7588320723E+000.7739520134E+000.7888905107E+000.8037041460E+000.8184484603E+00 +0.8331787380E+000.8479502520E+000.8628214619E+000.8778376377E+000.8930224742E+00 +0.9083576352E+000.9237092844E+000.9388108193E+000.9532265365E+000.9663770916E+00 +0.9776039687E+000.9863938014E+000.9926407047E+000.9965612993E+000.9986702630E+00 +0.9996021255E+000.9999184111E+000.9999914388E+000.1838395864E+000.2774529220E+00 +0.3426783917E+000.3930560916E+000.4344068358E+000.4697106898E+000.5006927315E+00 +0.5284411520E+000.5536868244E+000.5769453449E+000.5985952676E+000.6188971031E+00 +0.6380424183E+000.6562918185E+000.6737829904E+000.6906311198E+000.7069337832E+00 +0.7227753497E+000.7382305035E+000.7533663528E+000.7682439547E+000.7829198939E+00 +0.7974435221E+000.8118748234E+000.8262724187E+000.8406880617E+000.8551729732E+00 +0.8697745492E+000.8845277465E+000.8994379203E+000.9144525416E+000.9294229034E+00 +0.9440650799E+000.9578400823E+000.9701403844E+000.9804222515E+000.9883199573E+00 +0.9937933852E+000.9971446270E+000.9989085858E+000.9996754773E+000.9999334722E+00 +0.9999929812E+000.1829281665E+000.2761613316E+000.3410246510E+000.3910963600E+00 +0.4321812658E+000.4672467844E+000.4980095710E+000.5255521174E+000.5506012826E+00 +0.5736525037E+000.5950506967E+000.6151529586E+000.6341719771E+000.6522782841E+00 +0.6696119204E+000.6862828078E+000.7023863660E+000.7180217222E+000.7332547769E+00 +0.7481525102E+000.7627866255E+000.7772111250E+000.7914771106E+000.8056340499E+00 +0.8197306613E+000.8338155109E+000.8479372105E+000.8621474272E+000.8764912829E+00 +0.8909923894E+000.9056399253E+000.9203396874E+000.9348866680E+000.9489381236E+00 +0.9620183353E+000.9735788605E+000.9830175955E+000.9900789461E+000.9948416873E+00 +0.9976760708E+000.9991276334E+000.9997440423E+000.9999479118E+000.9999945113E+00 +0.1820167466E+000.2750493430E+000.3395613777E+000.3893186509E+000.4301278519E+00 +0.4649468562E+000.4954842442E+000.5228167259E+000.5476249179E+000.5704442486E+00 +0.5916873764E+000.6116285361E+000.6304819378E+000.6484183716E+000.6655775512E+00 +0.6820758939E+000.6979904098E+000.7134325041E+000.7284735193E+000.7431774704E+00 +0.7576023503E+000.7718012539E+000.7858237508E+000.7997140567E+000.8135239292E+00 +0.8273042064E+000.8411008648E+000.8549595523E+000.8689232083E+000.8830256854E+00 +0.8972785935E+000.9116516240E+000.9260154275E+000.9401284713E+000.9536131199E+00 +0.9659793105E+000.9767041342E+000.9853573651E+000.9916818818E+000.9957925963E+00 +0.9981590752E+000.9993286953E+000.9998081384E+000.9999617716E+000.9999960298E+00 +0.1811053266E+000.2741052251E+000.3382761587E+000.3877111205E+000.4282353784E+00 +0.4628001854E+000.4931064644E+000.5201983322E+000.5448054084E+000.5674667869E+00 +0.5885458863E+000.6083195120E+000.6270030053E+000.6447672272E+000.6617366482E+00 +0.6780447067E+000.6937904364E+000.7090555891E+000.7239111807E+000.7384205229E+00 +0.7526389570E+000.7666178516E+000.7804109013E+000.7940637106E+000.8076205159E+00 +0.8211249930E+000.8346208056E+000.8481528112E+000.8617654104E+000.8754966873E+00 +0.8893717014E+000.9033859763E+000.9174802174E+000.9315069327E+000.9451869477E+00 +0.9581124211E+000.9697846233E+000.9797075887E+000.9875202251E+000.9931144397E+00 +0.9966524437E+000.9985968041E+000.9995129400E+000.9998680579E+000.9999750892E+00 +0.9999975377E+000.1801939067E+000.2733182619E+000.3371576260E+000.3862628787E+00 +0.4264935687E+000.4607970149E+000.4908668048E+000.5177676272E+000.5422131620E+00 +0.5647053822E+000.5856121000E+000.6052121426E+000.6237216931E+000.6413115117E+00 +0.6581200485E+000.6742625432E+000.6898360657E+000.7049227578E+000.7195932878E+00 +0.7339102010E+000.7479300225E+000.7617042133E+000.7752800324E+000.7887018065E+00 +0.8020122147E+000.8152531650E+000.8284663316E+000.8416935268E+000.8549765971E+00 +0.8683558225E+000.8818650798E+000.8955212957E+000.9093054805E+000.9231342642E+00 +0.9368259517E+000.9500737499E+000.9624473300E+000.9734442800E+000.9825969726E+00 +0.9896084112E+000.9944594912E+000.9974270541E+000.9989921530E+000.9996814425E+00 +0.9999240665E+000.9999878995E+000.9999990354E+000.1796722612E+000.2722124186E+00 +0.3358625543E+000.3848563582E+000.4250035087E+000.4592371140E+000.4892450044E+00 +0.5160886995E+000.5404802581E+000.5629209145E+000.5837774326E+000.6033273849E+00 +0.6217865141E+000.6393257293E+000.6560830573E+000.6721726428E+000.6876907722E+00 +0.7027194969E+000.7173293993E+000.7315823490E+000.7455338556E+000.7592345443E+00 +0.7727310530E+000.7860669386E+000.7992837456E+000.8124219760E+000.8255217614E+00 +0.8386232201E+000.8517663195E+000.8649895079E+000.8783256500E+000.8917931244E+00 +0.9053797650E+000.9190186331E+000.9325585824E+000.9457393575E+000.9581879162E+00 +0.9694539282E+000.9790917186E+000.9867727882E+000.9923879857E+000.9960900896E+00 +0.9982491711E+000.9993372290E+000.9997968628E+000.9999528388E+000.9999926420E+00 +0.9999994225E+000.1791506157E+000.2717244023E+000.3351930575E+000.3840186229E+00 +0.4240233123E+000.4581356402E+000.4880381859E+000.5147881202E+000.5390945534E+00 +0.5614568929E+000.5822400669E+000.6017197369E+000.6201105736E+000.6375831704E+00 +0.6542749331E+000.6702987829E+000.6857499479E+000.7007100629E+000.7152494788E+00 +0.7294294271E+000.7433044119E+000.7569240976E+000.7703343516E+000.7835779277E+00 +0.7966953046E+000.8097256567E+000.8227076574E+000.8356799634E+000.8486812919E+00 +0.8617496479E+000.8749195692E+000.8882154682E+000.9016386284E+000.9151459448E+00 +0.9286213573E+000.9418469590E+000.9544885943E+000.9661153853E+000.9762667455E+00 +0.9845601360E+000.9908048413E+000.9950698881E+000.9976666065E+000.9990483712E+00 +0.9996758683E+000.9999117185E+000.9999820152E+000.9999975686E+000.9999998367E+00 +0.1737220000E+000.2641688159E+000.3263810467E+000.3743318262E+000.4136704025E+00 +0.4472456728E+000.4766971090E+000.5030563908E+000.5270168276E+000.5490666699E+00 +0.5695622022E+000.5887731874E+000.6069106485E+000.6241420080E+000.6406011443E+00 +0.6563979035E+000.6716256389E+000.6863648017E+000.7006842575E+000.7146432091E+00 +0.7282941344E+000.7416851101E+000.7548606636E+000.7678619826E+000.7807275548E+00 +0.7934942962E+000.8061985642E+000.8188767428E+000.8315655866E+000.8443024728E+00 +0.8571251897E+000.8700702553E+000.8831681059E+000.8964328200E+000.9098438800E+00 +0.9233191147E+000.9366828339E+000.9496411565E+000.9617840708E+000.9726335248E+00 +0.9817417626E+000.9888154878E+000.9938146288E+000.9969726960E+000.9987203449E+00 +0.9995473179E+000.9998717156E+000.9999727644E+000.9999961574E+000.9999997303E+00 +0.1755799312E+000.2666013149E+000.3290846864E+000.3771826021E+000.4166034870E+00 +0.4502220500E+000.4796913036E+000.5060501656E+000.5299958070E+000.5520197716E+00 +0.5724811244E+000.5916504239E+000.6097383708E+000.6269130534E+000.6433098561E+00 +0.6590391514E+000.6741934300E+000.6888522874E+000.7030846927E+000.7169502962E+00 +0.7305013640E+000.7437850327E+000.7568448140E+000.7697211827E+000.7824519779E+00 +0.7950731410E+000.8076196344E+000.8201261635E+000.8326275898E+000.8451590846E+00 +0.8577557939E+000.8704512169E+000.8832728396E+000.8962330094E+000.9093129889E+00 +0.9224395622E+000.9354575301E+000.9481078434E+000.9600272540E+000.9707856417E+00 +0.9799660704E+000.9872705033E+000.9926116951E+000.9961465075E+000.9982285305E+00 +0.9992991362E+000.9997686310E+000.9999389652E+000.9999879625E+000.9999984250E+00 +0.9999998976E+000.1760144460E+000.2670609020E+000.3294910285E+000.3775097826E+00 +0.4168402951E+000.4503626186E+000.4797321509E+000.5059888277E+000.5298298890E+00 +0.5517469155E+000.5720993316E+000.5911575880E+000.6091315938E+000.6261888854E+00 +0.6424649637E+000.6580702355E+000.6730965192E+000.6876224439E+000.7017164007E+00 +0.7154378171E+000.7288385387E+000.7419648217E+000.7548590856E+000.7675607937E+00 +0.7801068170E+000.7925319364E+000.8048696300E+000.8171528426E+000.8294144911E+00 +0.8416876956E+000.8540056656E+000.8664007529E+000.8789016009E+000.8915267504E+00 +0.9042727803E+000.9170956818E+000.9298866588E+000.9424483837E+000.9544836828E+00 +0.9656118704E+000.9754232574E+000.9835670742E+000.9898469299E+000.9942839419E+00 +0.9971144435E+000.9987184852E+000.9995109430E+000.9998444728E+000.9999605180E+00 +0.9999925129E+000.9999990587E+000.9999999412E+000.1770663795E+000.2683546956E+00 +0.3308457617E+000.3788562808E+000.4181444177E+000.4516046168E+000.4808993380E+00 +0.5070724101E+000.5308229707E+000.5526435602E+000.5728946123E+000.5918473214E+00 +0.6097114506E+000.6266540515E+000.6428106723E+000.6582920740E+000.6731899175E+00 +0.6875820711E+000.7015362095E+000.7151114556E+000.7283594343E+000.7413258218E+00 +0.7540520936E+000.7665766982E+000.7789355626E+000.7911624559E+000.8032895888E+00 +0.8153483395E+000.8273698291E+000.8393852307E+000.8514257771E+000.8635221919E+00 +0.8757027838E+000.8879889108E+000.9003861367E+000.9128695997E+000.9253636166E+00 +0.9377190267E+000.9496968362E+000.9609709796E+000.9711622529E+000.9799060634E+00 +0.9869395774E+000.9921773606E+000.9957410546E+000.9979252964E+000.9991124792E+00 +0.9996742546E+000.9999004959E+000.9999757617E+000.9999955931E+000.9999994691E+00 +0.9999999683E+000.1758581709E+000.2664553039E+000.3284189613E+000.3759813026E+00 +0.4148675317E+000.4479556796E+000.4768985049E+000.5027332925E+000.5261550430E+00 +0.5476536527E+000.5675868875E+000.5862232219E+000.6037707584E+000.6203958792E+00 +0.6362331620E+000.6513915496E+000.6659608488E+000.6800178532E+000.6936296852E+00 +0.7068546016E+000.7197426950E+000.7323378237E+000.7446798503E+000.7568058435E+00 +0.7687502167E+000.7805447857E+000.7922193714E+000.8038027006E+000.8153230789E+00 +0.8268087027E+000.8382878457E+000.8497890679E+000.8613412229E+000.8729726711E+00 +0.8847087631E+000.8965662293E+000.9085427594E+000.9206004318E+000.9326436985E+00 +0.9444968657E+000.9558915219E+000.9664779406E+000.9758713433E+000.9837309651E+00 +0.9898503827E+000.9942227228E+000.9970475025E+000.9986708984E+000.9994852613E+00 +0.9998336896E+000.9999570598E+000.9999917096E+000.9999989378E+000.9999999324E+00 +0.1737723885E+000.2636970230E+000.3253620744E+000.3727892655E+000.4116291012E+00 +0.4447253360E+000.4737129101E+000.4996193173E+000.5231327275E+000.5447378120E+00 +0.5647899984E+000.5835572379E+000.6012460268E+000.6180200622E+000.6340127438E+00 +0.6493340020E+000.6640745795E+000.6783105039E+000.6921074258E+000.7055232509E+00 +0.7186090613E+000.7314097728E+000.7439654483E+000.7563128398E+000.7684863811E+00 +0.7805185477E+000.7924400969E+000.8042805551E+000.8160688615E+000.8278338870E+00 +0.8396046856E+000.8514104210E+000.8632797088E+000.8752386789E+000.8873065903E+00 +0.8994875341E+000.9117570087E+000.9240435321E+000.9362084356E+000.9480311964E+00 +0.9592111584E+000.9693959285E+000.9782392491E+000.9854773656E+000.9909989911E+00 +0.9948795050E+000.9973614442E+000.9987871078E+000.9995116285E+000.9998316357E+00 +0.9999517746E+000.9999889995E+000.9999981291E+000.9999997894E+000.9999999882E+00 +0.5119724156E+000.3874081833E+000.6569267245E+000.3260460061E+000.5253800226E+00 +0.7127712695E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.3003816381E+000.4709825511E+000.6022386036E+000.7231347997E+000.8549817939E+00 +0.2799538226E+000.4353779888E+000.5511817810E+000.6517306811E+000.7510266867E+00 +0.8652446706E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.0000000000E+000.0000000000E+000.0000000000E+000.2590912326E+000.4010896013E+00 +0.5033119849E+000.5873439682E+000.6627324555E+000.7358203442E+000.8133992683E+00 +0.9043940737E+000.2494729236E+000.3850372100E+000.4816440498E+000.5599288628E+00 +0.6286653312E+000.6930150226E+000.7573315152E+000.8272263632E+000.9107769497E+00 +0.2418159207E+000.3725417327E+000.4649849800E+000.5391165772E+000.6032531243E+00 +0.6619865954E+000.7186328546E+000.7765451150E+000.8405979527E+000.9179171245E+00 +0.2359985203E+000.3636770429E+000.4534220373E+000.5248149223E+000.5859196253E+00 +0.6410359336E+000.6930087183E+000.7442500410E+000.7975495554E+000.8571769264E+00 +0.9285152601E+000.2301619008E+000.3542394895E+000.4410290303E+000.5096425032E+00 +0.5678936619E+000.6198650728E+000.6681258727E+000.7146333507E+000.7612771765E+00 +0.8104810456E+000.8661534585E+000.9331500825E+000.2257034090E+000.3482627862E+00 +0.4336630927E+000.5008327517E+000.5574906380E+000.6076191431E+000.6536496185E+00 +0.6973175352E+000.7401070899E+000.7836068601E+000.8299880289E+000.8826087675E+00 +0.9441338488E+000.2211645211E+000.3421525329E+000.4262029026E+000.4920338341E+00 +0.5472751269E+000.5958314341E+000.6400417541E+000.6815093468E+000.7215029141E+00 +0.7612175155E+000.8020400765E+000.8459383089E+000.8957490487E+000.9523906251E+00 +0.2163469298E+000.3367455281E+000.4202298000E+000.4853863672E+000.5398269062E+00 +0.5874264602E+000.6304774920E+000.6705108600E+000.7086784715E+000.7459749374E+00 +0.7834151298E+000.8222460616E+000.8642177097E+000.9113608285E+000.9621563281E+00 +0.2127191056E+000.3301279628E+000.4113114778E+000.4744891962E+000.5270930798E+00 +0.5728919442E+000.6140968562E+000.6521591391E+000.6881353043E+000.7228857759E+00 +0.7572115129E+000.7919871037E+000.8283472168E+000.8679570327E+000.9128968803E+00 +0.9621783974E+000.2084740352E+000.3248801320E+000.4052658897E+000.4676634483E+00 +0.5194603323E+000.5643936302E+000.6046428671E+000.6416217609E+000.6763364997E+00 +0.7095743332E+000.7420217413E+000.7743601558E+000.8073750794E+000.8421172020E+00 +0.8800874474E+000.9228007422E+000.9679218139E+000.2022848383E+000.3192137602E+00 +0.4000666473E+000.4626911785E+000.5145380106E+000.5593742892E+000.5993877622E+00 +0.6359855621E+000.6701535511E+000.7026418784E+000.7340751757E+000.7650315222E+00 +0.7961165211E+000.8280548362E+000.8618024933E+000.8985081778E+000.9384137085E+00 +0.9768161798E+000.2120904704E+000.3223853102E+000.3987342745E+000.4582073523E+00 +0.5076847086E+000.5506442060E+000.5891081273E+000.6243771084E+000.6573598251E+00 +0.6887424688E+000.7190874997E+000.7489007771E+000.7786885306E+000.8090195693E+00 +0.8406002346E+000.8743076696E+000.9108457515E+000.9490758207E+000.9825761504E+00 +0.2065944908E+000.3138611297E+000.3880480562E+000.4457741119E+000.4937308585E+00 +0.5352963987E+000.5724302219E+000.6063867563E+000.6380347392E+000.6680203267E+00 +0.6968602047E+000.7250014412E+000.7528676868E+000.7809039058E+000.8096317221E+00 +0.8397268101E+000.8720877593E+000.9076208269E+000.9457634228E+000.9806888742E+00 +0.2040536841E+000.3090104125E+000.3823312036E+000.4394561751E+000.4868838338E+00 +0.5279326829E+000.5645337087E+000.5979215801E+000.6289469602E+000.6582356416E+00 +0.6862785900E+000.7134820924E+000.7402337997E+000.7669160696E+000.7939370091E+00 +0.8217894008E+000.8511048527E+000.8826343849E+000.9168292272E+000.9523397283E+00 +0.9833775220E+000.2015128774E+000.3053393638E+000.3778407814E+000.4342907101E+00 +0.4811132113E+000.5215872450E+000.5576184856E+000.5904221798E+000.6208316951E+00 +0.6494549715E+000.6767620600E+000.7031392044E+000.7289166568E+000.7544489187E+00 +0.7800690715E+000.8061559976E+000.8331769643E+000.8617242521E+000.8924327825E+00 +0.9254136087E+000.9586791763E+000.9862360465E+000.1989720707E+000.3026941193E+00 +0.3744168184E+000.4301274064E+000.4762785893E+000.5161272821E+000.5515565586E+00 +0.5837625693E+000.6135620935E+000.6415473335E+000.6681717138E+000.6938024217E+00 +0.7187549869E+000.7433187439E+000.7677795040E+000.7924434822E+000.8176670570E+00 +0.8438949113E+000.8716838527E+000.9015804894E+000.9334552994E+000.9648127165E+00 +0.9892422865E+000.1995441354E+000.3027894911E+000.3738799852E+000.4289149153E+00 +0.4743694671E+000.5135031036E+000.5481952410E+000.5796355644E+000.6086325224E+00 +0.6357682912E+000.6614838272E+000.6861304569E+000.7100033497E+000.7333646767E+00 +0.7564626262E+000.7795497098E+000.8029031435E+000.8268516589E+000.8518099107E+00 +0.8782959679E+000.9068021661E+000.9371450962E+000.9668762673E+000.9899111529E+00 +0.1942036339E+000.2951512883E+000.3648099631E+000.4188024312E+000.4634266115E+00 +0.5018569451E+000.5359251202E+000.5667902992E+000.5952391722E+000.6218372056E+00 +0.6470106709E+000.6710961142E+000.6943730827E+000.7170857215E+000.7394590806E+00 +0.7617145337E+000.7840855145E+000.8068362205E+000.8302876543E+000.8548503221E+00 +0.8810334488E+000.9092878700E+000.9393038812E+000.9684292022E+000.9905681100E+00 +0.1966856383E+000.2978232748E+000.3671846626E+000.4206925777E+000.4647348370E+00 +0.5025198107E+000.5358927793E+000.5660172855E+000.5936794662E+000.6194412139E+00 +0.6437225589E+000.6668509083E+000.6890937579E+000.7106795634E+000.7318121949E+00 +0.7526841700E+000.7734891384E+000.7944344383E+000.8157576516E+000.8377507210E+00 +0.8607917883E+000.8853633651E+000.9119379718E+000.9403775191E+000.9684249648E+00 +0.9903246258E+000.1910838734E+000.2905526801E+000.3591691081E+000.4123042748E+00 +0.4561616482E+000.4938685815E+000.5272283424E+000.5573806570E+000.5850960099E+00 +0.6109244898E+000.6352779600E+000.6584772140E+000.6807820433E+000.7024126349E+00 +0.7235642174E+000.7444179434E+000.7651514443E+000.7859498459E+000.8070181036E+00 +0.8285971700E+000.8509840780E+000.8745417502E+000.8996334287E+000.9262998775E+00 +0.9534286991E+000.9776807196E+000.9940166847E+000.1885533210E+000.2867399663E+00 +0.3544623603E+000.4068853996E+000.4501314274E+000.4872870691E+000.5201316025E+00 +0.5497891102E+000.5770185770E+000.6023603714E+000.6262179866E+000.6489045459E+00 +0.6706713146E+000.6917285917E+000.7122604552E+000.7324344169E+000.7524100513E+00 +0.7723483144E+000.7924210524E+000.8128222386E+000.8337835007E+000.8555927781E+00 +0.8785997867E+000.9031396194E+000.9291938977E+000.9555680607E+000.9789147239E+00 +0.9944189044E+000.1888989369E+000.2868867787E+000.3543365370E+000.4064684533E+00 +0.4494157190E+000.4862666006E+000.5187990091E+000.5481345861E+000.5750299577E+00 +0.6000222990E+000.6235107504E+000.6458042267E+000.6671494757E+000.6877503266E+00 +0.7077825692E+000.7274040319E+000.7467617950E+000.7659996398E+000.7852660600E+00 +0.8047226729E+000.8245547967E+000.8449854105E+000.8662877274E+000.8887704357E+00 +0.9126509648E+000.9376468554E+000.9621947265E+000.9828795445E+000.9957296001E+00 +0.1876976527E+000.2852292527E+000.3523726329E+000.4042526081E+000.4469708386E+00 +0.4836013555E+000.5159140537E+000.5450248500E+000.5716862683E+000.5964321681E+00 +0.6196576546E+000.6416673171E+000.6627040060E+000.6829668088E+000.7026249155E+00 +0.7218282252E+000.7407143758E+000.7594146138E+000.7780603506E+000.7967900918E+00 +0.8157570740E+000.8351391168E+000.8551501305E+000.8760440101E+000.8980748184E+00 +0.9213191995E+000.9452242817E+000.9679342416E+000.9861351691E+000.9967336499E+00 +0.1871631460E+000.2834707176E+000.3502057735E+000.4018025211E+000.4442679497E+00 +0.4806528420E+000.5127188975E+000.5415777430E+000.5679786246E+000.5924528941E+00 +0.6153931841E+000.6370869488E+000.6577863325E+000.6776931990E+000.6969708161E+00 +0.7157617483E+000.7341954553E+000.7523933285E+000.7704740112E+000.7885588676E+00 +0.8067780470E+000.8252805788E+000.8442448357E+000.8638695134E+000.8843765013E+00 +0.9059324391E+000.9284305593E+000.9510710656E+000.9719147999E+000.9880594135E+00 +0.9972106209E+000.1866286394E+000.2822587976E+000.3486076321E+000.3998862487E+00 +0.4420616031E+000.4781701285E+000.5099661894E+000.5385565416E+000.5646864405E+00 +0.5888840629E+000.6115391662E+000.6329494921E+000.6533504634E+000.6729339646E+00 +0.6918602190E+000.7102670204E+000.7282774352E+000.7459945851E+000.7635511296E+00 +0.7810551809E+000.7986201531E+000.8163701626E+000.8344465406E+000.8530148198E+00 +0.8722658030E+000.8923891555E+000.9134695959E+000.9352371634E+000.9566782795E+00 +0.9757792109E+000.9899850722E+000.9977167247E+000.1860941327E+000.2815438002E+00 +0.3475265145E+000.3984552757E+000.4403066680E+000.4761108781E+000.5076157147E+00 +0.5359225430E+000.5617719586E+000.5856883228E+000.6080582973E+000.6291764206E+00 +0.6492524391E+000.6685059898E+000.6870918780E+000.7051426762E+000.7227756531E+00 +0.7400983756E+000.7572122974E+000.7742165568E+000.7912118249E+000.8083050176E+00 +0.8256139326E+000.8432874474E+000.8614795285E+000.8803683698E+000.9001110701E+00 +0.9207154204E+000.9417666447E+000.9620677013E+000.9795380518E+000.9919119869E+00 +0.9982492987E+000.1855596260E+000.2812818850E+000.3469168069E+000.3974667836E+00 +0.4389633225E+000.4744377335E+000.5056319882E+000.5336415846E+000.5592018634E+00 +0.5828327803E+000.6049176622E+000.6257479736E+000.6455520993E+000.6645152169E+00 +0.6827914394E+000.7005113554E+000.7177887560E+000.7347266452E+000.7514212124E+00 +0.7679646760E+000.7844486689E+000.8009682306E+000.8176259067E+000.8345363911E+00 +0.8518319629E+000.8696659395E+000.8882031320E+000.9075679148E+000.9276956199E+00 +0.9480435024E+000.9672585490E+000.9832006503E+000.9938400958E+000.9988060231E+00 +0.1786157958E+000.2715714191E+000.3355831213E+000.3850192456E+000.4256824787E+00 +0.4604975171E+000.4911489725E+000.5186978599E+000.5438565845E+000.5671297363E+00 +0.5888903339E+000.6094214548E+000.6289438747E+000.6476369731E+000.6656508348E+00 +0.6831119790E+000.7001291616E+000.7168002676E+000.7332168362E+000.7494659189E+00 +0.7656323325E+000.7818024645E+000.7980682386E+000.8145307955E+000.8313051275E+00 +0.8485260722E+000.8663527417E+000.8849606878E+000.9044926363E+000.9249113669E+00 +0.9457031198E+000.9655165009E+000.9821383667E+000.9933765824E+000.9986994641E+00 +0.1818359477E+000.2758699365E+000.3403866912E+000.3900757408E+000.4308524247E+00 +0.4656921703E+000.4963055212E+000.5237687285E+000.5488038273E+000.5719202036E+00 +0.5934933154E+000.6138088603E+000.6330891591E+000.6515125239E+000.6692270506E+00 +0.6863580574E+000.7030127042E+000.7192852883E+000.7352622414E+000.7510249577E+00 +0.7666515069E+000.7822191503E+000.7978076092E+000.8135022124E+000.8293971903E+00 +0.8455998552E+000.8622348306E+000.8794434754E+000.8973641047E+000.9160604809E+00 +0.9353514796E+000.9545336608E+000.9721522008E+000.9862124981E+000.9951547442E+00 +0.9991051146E+000.1798232751E+000.2726581093E+000.3366980308E+000.3860912399E+00 +0.4266471943E+000.4613051674E+000.4917590315E+000.5190759354E+000.5439727388E+00 +0.5669550270E+000.5883947236E+000.6085751539E+000.6277173434E+000.6459977093E+00 +0.6635615638E+000.6805319395E+000.6970144420E+000.7131011873E+000.7288751807E+00 +0.7444138829E+000.7597912726E+000.7750795751E+000.7903516966E+000.8056840926E+00 +0.8211596369E+000.8368707797E+000.8529230212E+000.8694364643E+000.8865378511E+00 +0.9043249051E+000.9227714852E+000.9415463127E+000.9597838527E+000.9759972651E+00 +0.9884450282E+000.9960501818E+000.9992881104E+000.1778106025E+000.2702694344E+00 +0.3338467866E+000.3828713419E+000.4231302895E+000.4575399615E+000.4877784084E+00 +0.5149022487E+000.5396216081E+000.5624369019E+000.5837153994E+000.6037372210E+00 +0.6227215276E+000.6408424934E+000.6582423851E+000.6750416690E+000.6913442523E+00 +0.7072402317E+000.7228094992E+000.7381258394E+000.7532594947E+000.7682783994E+00 +0.7832498149E+000.7982428583E+000.8133311675E+000.8285954742E+000.8441265597E+00 +0.8600281555E+000.8764163565E+000.8934056972E+000.9110605005E+000.9292797206E+00 +0.9476016445E+000.9650049602E+000.9799365199E+000.9908362753E+000.9970689894E+00 +0.9995129737E+000.1775786369E+000.2694974131E+000.3325685209E+000.3811297321E+00 +0.4209590884E+000.4549642410E+000.4848165370E+000.5115676007E+000.5359235097E+00 +0.5583811281E+000.5793048061E+000.5989723920E+000.6176009331E+000.6353621759E+00 +0.6523957994E+000.6688200102E+000.6847367170E+000.7002335821E+000.7153872387E+00 +0.7302677599E+000.7449415655E+000.7594722478E+000.7739214858E+000.7883512657E+00 +0.8028264764E+000.8174170220E+000.8321999968E+000.8472625891E+000.8627048411E+00 +0.8786386272E+000.8951735329E+000.9123698628E+000.9301298805E+000.9480149942E+00 +0.9650571182E+000.9797722115E+000.9906324540E+000.9969466945E+000.9994800534E+00 +0.1767557912E+000.2675220333E+000.3302161965E+000.3785377579E+000.4181699322E+00 +0.4519952293E+000.4816610818E+000.5082057789E+000.5323703507E+000.5546449704E+00 +0.5753892717E+000.5948769891E+000.6133146774E+000.6308781644E+000.6477114141E+00 +0.6639291832E+000.6796305432E+000.6949015651E+000.7098131895E+000.7244372747E+00 +0.7388370764E+000.7530725000E+000.7672013624E+000.7812805887E+000.7953696097E+00 +0.8095305725E+000.8238305771E+000.8383440996E+000.8531554541E+000.8683637839E+00 +0.8840744586E+000.9003706377E+000.9172679534E+000.9345987502E+000.9518515544E+00 +0.9680041421E+000.9816676161E+000.9915696835E+000.9972560683E+000.9995298443E+00 +0.1759329455E+000.2657726427E+000.3281031002E+000.3761740392E+000.4155963315E+00 +0.4492311983E+000.4787318709E+000.5051288733E+000.5290920752E+000.5511760660E+00 +0.5717356504E+000.5910403494E+000.6093019230E+000.6266897694E+000.6433346709E+00 +0.6593466514E+000.6748352501E+000.6898848066E+000.7045688138E+000.7189515577E+00 +0.7330921637E+000.7470427026E+000.7608631956E+000.7746123326E+000.7883427951E+00 +0.8021095923E+000.8159717455E+000.8299937875E+000.8442538809E+000.8588345214E+00 +0.8738251581E+000.8893187634E+000.9053815362E+000.9219884432E+000.9389094131E+00 +0.9555269052E+000.9708044006E+000.9834701219E+000.9924684451E+000.9975587701E+00 +0.9995805012E+000.1751100998E+000.2642330649E+000.3262121423E+000.3740222733E+00 +0.4132228869E+000.4466574834E+000.4759709933E+000.5022002217E+000.5260420802E+00 +0.5479552784E+000.5683252061E+000.5874440246E+000.6055202813E+000.6227218315E+00 +0.6391840255E+000.6549901712E+000.6702707792E+000.6851046219E+000.6995580186E+00 +0.7137052948E+000.7276022552E+000.7413019039E+000.7548556356E+000.7683132108E+00 +0.7817233228E+000.7951353814E+000.8086048684E+000.8221888847E+000.8359488120E+00 +0.8499707826E+000.8643262662E+000.8791030902E+000.8943852200E+000.9102194673E+00 +0.9265452553E+000.9430424983E+000.9590287976E+000.9734683387E+000.9851863203E+00 +0.9933315327E+000.9978552727E+000.9996319601E+000.1742872542E+000.2628886749E+00 +0.3245278231E+000.3720676740E+000.4110356318E+000.4442608292E+000.4733803001E+00 +0.4994257177E+000.5230903032E+000.5448638630E+000.5651045418E+000.5840566202E+00 +0.6019006616E+000.6188858049E+000.6351420363E+000.6507757146E+000.6658768929E+00 +0.6805251328E+000.6947913849E+000.7087377199E+000.7224186840E+000.7358846230E+00 +0.7491787819E+000.7623554594E+000.7754680023E+000.7885617946E+000.8016840320E+00 +0.8148851910E+000.8282200571E+000.8417490536E+000.8555399403E+000.8696687003E+00 +0.8842173514E+000.8993018152E+000.9149253562E+000.9309550964E+000.9470145758E+00 +0.9623771286E+000.9760054884E+000.9868222522E+000.9941613882E+000.9981460102E+00 +0.9996841705E+000.1734644085E+000.2617261663E+000.3230360646E+000.3702967967E+00 +0.4090218854E+000.4420291535E+000.4709481857E+000.4968054069E+000.5202901242E+00 +0.5418732513E+000.5618813135E+000.5806508121E+000.5983821491E+000.6152381145E+00 +0.6313522754E+000.6468265556E+000.6617476876E+000.6762088455E+000.6902729031E+00 +0.7040025494E+000.7174632669E+000.7307027247E+000.7437667314E+000.7567001843E+00 +0.7695466680E+000.7823486306E+000.7951488359E+000.8079951150E+000.8209397725E+00 +0.8340353382E+000.8473480253E+000.8609451939E+000.8748984393E+000.8892828785E+00 +0.9041556673E+000.9195139456E+000.9352251596E+000.9508394934E+000.9655822808E+00 +0.9784245272E+000.9883833746E+000.9949603038E+000.9984313741E+000.9997370780E+00 +0.1726415628E+000.2607334231E+000.3217240166E+000.3686973817E+000.4071700637E+00 +0.4399514707E+000.4686640730E+000.4943290223E+000.5175914963E+000.5389604410E+00 +0.5588276489E+000.5774511430E+000.5950320739E+000.6117330174E+000.6276878750E+00 +0.6430058751E+000.6577561358E+000.6720425820E+000.6859330575E+000.6994886172E+00 +0.7127625074E+000.7258015367E+000.7386494238E+000.7513451180E+000.7639355122E+00 +0.7764664963E+000.7889779121E+000.8015109358E+000.8141095013E+000.8268211199E+00 +0.8396976273E+000.8528093452E+000.8662157670E+000.8799883480E+000.8941952198E+00 +0.9088771790E+000.9239983210E+000.9393668757E+000.9545270025E+000.9686538849E+00 +0.9807332706E+000.9898747110E+000.9957303264E+000.9987117241E+000.9997906344E+00 +0.1718187171E+000.2598993566E+000.3205799668E+000.3672582723E+000.4054696174E+00 +0.4380177137E+000.4665183161E+000.4919618874E+000.5150398796E+000.5362647991E+00 +0.5559824777E+000.5744537880E+000.5918802493E+000.6084238238E+000.6242042907E+00 +0.6393482294E+000.6539465788E+000.6680738253E+000.6817966962E+000.6951759950E+00 +0.7082634634E+000.7211046302E+000.7337471002E+000.7462315589E+000.7585981330E+00 +0.7708858441E+000.7831326225E+000.7953770625E+000.8076609136E+000.8200272598E+00 +0.8325228112E+000.8451988530E+000.8581127359E+000.8713296588E+000.8849269214E+00 +0.8989595672E+000.9134533065E+000.9283424374E+000.9433859362E+000.9580792569E+00 +0.9716005781E+000.9829389285E+000.9913007702E+000.9964733607E+000.9989873869E+00 +0.9998448006E+000.1709958714E+000.2592138380E+000.3195931894E+000.3659692100E+00 +0.4039108807E+000.4362187194E+000.4645020754E+000.4897712684E+000.5127023267E+00 +0.5337724594E+000.5533325224E+000.5716458383E+000.5889140104E+000.6052980163E+00 +0.6209314885E+000.6359250333E+000.6503681594E+000.6643347603E+000.6778902603E+00 +0.6910950265E+000.7040032372E+000.7166615465E+000.7291108987E+000.7413901072E+00 +0.7535378382E+000.7655921415E+000.7775896020E+000.7895659934E+000.8015580671E+00 +0.8136050171E+000.8257491387E+000.8380364216E+000.8505177167E+000.8632500796E+00 +0.8762968595E+000.8897237695E+000.9035854652E+000.9178934215E+000.9325552030E+00 +0.9472860987E+000.9615249973E+000.9744303870E+000.9850481135E+000.9926657359E+00 +0.9971911060E+000.9992586656E+000.9998995366E+000.1705147924E+000.2581781175E+00 +0.3183732752E+000.3646368286E+000.4024914901E+000.4347244058E+000.4629392793E+00 +0.4881443714E+000.5110148067E+000.5320256368E+000.5515257059E+000.5697789301E+00 +0.5869883456E+000.6033137711E+000.6188858105E+000.6338139429E+000.6481894155E+00 +0.6620876066E+000.6755725921E+000.6887018517E+000.7015281168E+000.7140987333E+00 +0.7264554403E+000.7386360984E+000.7506770762E+000.7626143959E+000.7744835273E+00 +0.7863192144E+000.7981562668E+000.8100309189E+000.8219819430E+000.8340513736E+00 +0.8462852735E+000.8587346811E+000.8714559345E+000.8845082869E+000.8979447720E+00 +0.9117895970E+000.9259940898E+000.9403688995E+000.9545092244E+000.9677609591E+00 +0.9792972370E+000.9883461459E+000.9945080948E+000.9979789837E+000.9994861641E+00 +0.9999325945E+000.1700337134E+000.2577298847E+000.3177484381E+000.3638459386E+00 +0.4015580958E+000.4336678104E+000.4617735538E+000.4868803454E+000.5096612803E+00 +0.5305883774E+000.5500075065E+000.5681822072E+000.5853165329E+000.6015692966E+00 +0.6170679955E+000.6319202232E+000.6462181820E+000.6600387768E+000.6734454046E+00 +0.6864929561E+000.6992321750E+000.7117103570E+000.7239699532E+000.7360484590E+00 +0.7479804619E+000.7597998974E+000.7715407661E+000.7832367246E+000.7949210463E+00 +0.8066275547E+000.8183919104E+000.8302525712E+000.8422514738E+000.8544348036E+00 +0.8668536814E+000.8795635126E+000.8926191655E+000.9060607456E+000.9198822503E+00 +0.9339765282E+000.9480614818E+000.9616187441E+000.9739069089E+000.9841125800E+00 +0.9916341754E+000.9963678090E+000.9987889609E+000.9997260031E+000.9999686139E+00 +0.1648856522E+000.2505701807E+000.3094080061E+000.3546881658E+000.3917811949E+00 +0.4233937432E+000.4510841501E+000.4758341377E+000.4983002412E+000.5189425363E+00 +0.5381007274E+000.5560351899E+000.5729453289E+000.5889838955E+000.6042745761E+00 +0.6189247545E+000.6330272517E+000.6466573333E+000.6598746538E+000.6727308882E+00 +0.6852758850E+000.6975575361E+000.7096181913E+000.7214934194E+000.7332148862E+00 +0.7448141478E+000.7563238887E+000.7677766707E+000.7792037979E+000.7906359942E+00 +0.8021051986E+000.8136459283E+000.8252957633E+000.8370957150E+000.8490911670E+00 +0.8613331455E+000.8738787936E+000.8867889383E+000.9001185409E+000.9138925131E+00 +0.9280575965E+000.9424074235E+000.9565005043E+000.9696280278E+000.9809122033E+00 +0.9895745467E+000.9952834417E+000.9983546129E+000.9996091016E+000.9999528378E+00 +0.1666847844E+000.2529293363E+000.3120303105E+000.3574522671E+000.3946239644E+00 +0.4262777176E+000.4539838380E+000.4787305753E+000.5011808221E+000.5217987976E+00 +0.5409233427E+000.5588134684E+000.5756717581E+000.5916556053E+000.6068886716E+00 +0.6214740859E+000.6355022748E+000.6490509982E+000.6621837446E+000.6749525382E+00 +0.6874039193E+000.6995826584E+000.7115309614E+000.7232861500E+000.7348806185E+00 +0.7463443649E+000.7577074677E+000.7690005706E+000.7802540276E+000.7914975393E+00 +0.8027610231E+000.8140759733E+000.8254763988E+000.8369993049E+000.8486852477E+00 +0.8605791442E+000.8727306639E+000.8851925178E+000.8980134191E+000.9112201678E+00 +0.9247817087E+000.9385514895E+000.9521989128E+000.9651669740E+000.9767161704E+00 +0.9861004852E+000.9928429559E+000.9969683135E+000.9990156485E+000.9997834421E+00 +0.9999759053E+000.1671335250E+000.2534225924E+000.3124865727E+000.3578437426E+00 +0.3949383060E+000.4265086399E+000.4541274364E+000.4787834696E+000.5011405368E+00 +0.5216641822E+000.5406928101E+000.5584835942E+000.5752388717E+000.5911178665E+00 +0.6062451284E+000.6207219443E+000.6346362620E+000.6480655661E+000.6610750173E+00 +0.6737175573E+000.6860383507E+000.6980797634E+000.7098827060E+000.7214847581E+00 +0.7329187148E+000.7442137589E+000.7553980395E+000.7665002101E+000.7775491839E+00 +0.7885733922E+000.7996009315E+000.8106606421E+000.8217832420E+000.8330019813E+00 +0.8443530564E+000.8558761935E+000.8676152485E+000.8796178216E+000.8919318024E+00 +0.9045950849E+000.9176127319E+000.9309159548E+000.9443039630E+000.9573869920E+00 +0.9695725833E+000.9801476548E+000.9884763820E+000.9942506247E+000.9976476165E+00 +0.9992642193E+000.9998444096E+000.9999833903E+000.1681743394E+000.2547197125E+00 +0.3138589426E+000.3592216212E+000.3962870429E+000.4278084118E+000.4553657040E+00 +0.4799509004E+000.5022297518E+000.5226702428E+000.5416121078E+000.5593114984E+00 +0.5759697227E+000.5917472981E+000.6067708151E+000.6211413510E+000.6349445020E+00 +0.6482561794E+000.6611423815E+000.6736577166E+000.6858473957E+000.6977519016E+00 +0.7094101482E+000.7208591243E+000.7321320595E+000.7432581249E+000.7542642383E+00 +0.7651771278E+000.7760239894E+000.7868319551E+000.7976277158E+000.8084380580E+00 +0.8192909207E+000.8302162454E+000.8412464442E+000.8524168085E+000.8637660282E+00 +0.8753363344E+000.8871719217E+000.8993131109E+000.9117820677E+000.9245548013E+00 +0.9375165616E+000.9504076190E+000.9627846593E+000.9740406356E+000.9835213475E+00 +0.9907300181E+000.9955338540E+000.9982409703E+000.9994717954E+000.9998930054E+00 +0.9999890784E+000.1670987390E+000.2530386565E+000.3117240397E+000.3567056204E+00 +0.3934325200E+000.4246426356E+000.4519068882E+000.4762125054E+000.4982221284E+00 +0.5183996568E+000.5370813152E+000.5545228284E+000.5709264146E+000.5864512124E+00 +0.6012201439E+000.6153317210E+000.6288720095E+000.6419186095E+000.6545374568E+00 +0.6667806613E+000.6786904146E+000.6903057586E+000.7016659350E+000.7128084796E+00 +0.7237658473E+000.7345649628E+000.7452300996E+000.7557860072E+000.7662586361E+00 +0.7766737944E+000.7870559725E+000.7974287661E+000.8078163542E+000.8182446694E+00 +0.8287417076E+000.8393375272E+000.8500646572E+000.8609589828E+000.8720605568E+00 +0.8834134597E+000.8950632038E+000.9070486161E+000.9193829401E+000.9320181158E+00 +0.9447909196E+000.9573643253E+000.9692007321E+000.9796196271E+000.9879711861E+00 +0.9938824785E+000.9974425199E+000.9991808775E+000.9998222800E+000.9999805000E+00 +0.1650591103E+000.2503095152E+000.3086618050E+000.3534665584E+000.3901011987E+00 +0.4212713566E+000.4485313067E+000.4728566407E+000.4949022529E+000.5151304550E+00 +0.5338774153E+000.5513940951E+000.5678763277E+000.5834828502E+000.5983417391E+00 +0.6125540125E+000.6262012858E+000.6393547960E+000.6520794216E+000.6644319827E+00 +0.6764591662E+000.6881994239E+000.6996875870E+000.7109579264E+000.7220436648E+00 +0.7329748943E+000.7437779238E+000.7544768387E+000.7650956055E+000.7756589338E+00 +0.7861918139E+000.7967189506E+000.8072650293E+000.8178556497E+000.8285182197E+00 +0.8392824584E+000.8501807142E+000.8612483356E+000.8725238169E+000.8840476713E+00 +0.8958580130E+000.9079795649E+000.9204018005E+000.9330431751E+000.9457049169E+00 +0.9580311512E+000.9695074184E+000.9795326683E+000.9875733361E+000.9933516945E+00 +0.9969692505E+000.9988754992E+000.9996830795E+000.9999399304E+000.9999942765E+00 +0.4947759637E+000.3551678249E+000.6395497183E+000.2860091524E+000.4808520903E+00 +0.6931686001E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.2777543836E+000.4413818114E+000.5744454374E+000.7046652787E+000.8522728402E+00 +0.2551499062E+000.4018124348E+000.5166935097E+000.6220023455E+000.7326205456E+00 +0.8642402640E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.0000000000E+000.0000000000E+000.0000000000E+000.2387339286E+000.3713055478E+00 +0.4702336707E+000.5546792362E+000.6334882591E+000.7133529976E+000.8021269817E+00 +0.9061118914E+000.2286790323E+000.3543357560E+000.4468885461E+000.5245409149E+00 +0.5951917986E+000.6638903101E+000.7356643748E+000.8172611756E+000.9137174789E+00 +0.2213122875E+000.3418765058E+000.4297347015E+000.5024720338E+000.5674873593E+00 +0.6290320400E+000.6906122337E+000.7563964131E+000.8322849037E+000.9218460029E+00 +0.2173780894E+000.3349915804E+000.4198900896E+000.4893590565E+000.5505883538E+00 +0.6074622953E+000.6627521410E+000.7191970446E+000.7803735182E+000.8511972580E+00 +0.9328816611E+000.2116946447E+000.3255719521E+000.4072126774E+000.4734610821E+00 +0.5312731086E+000.5842900745E+000.6348913262E+000.6851326782E+000.7373326213E+00 +0.7947057158E+000.8616276548E+000.9383657756E+000.2102629617E+000.3228951955E+00 +0.4031182154E+000.4676607628E+000.5234369826E+000.5740257870E+000.6216226328E+00 +0.6679114504E+000.7145534148E+000.7635536576E+000.8176960953E+000.8802549767E+00 +0.9490625263E+000.2083351205E+000.3195304369E+000.3983365001E+000.4613167724E+00 +0.5153151196E+000.5638655402E+000.6090654456E+000.6523848448E+000.6951270149E+00 +0.7387142859E+000.7849309838E+000.8361890391E+000.8947994966E+000.9569197661E+00 +0.2081026339E+000.3188270960E+000.3969796190E+000.4590700753E+000.5119166703E+00 +0.5590535912E+000.6025655744E+000.6438291068E+000.6839351589E+000.7239646076E+00 +0.7651709028E+000.8091300428E+000.8577412389E+000.9119178141E+000.9659214366E+00 +0.2029801128E+000.3106586752E+000.3864260829E+000.4464112793E+000.4972537176E+00 +0.5423867107E+000.5838269463E+000.6228700805E+000.6604723792E+000.6974983572E+00 +0.7348813032E+000.7737464673E+000.8155476972E+000.8620760447E+000.9142272434E+00 +0.9665861764E+000.2016651809E+000.3083781797E+000.3832612765E+000.4423230661E+00 +0.4921395858E+000.5361125530E+000.5762536196E+000.6138439368E+000.6497710962E+00 +0.6847557946E+000.7195097242E+000.7548468417E+000.7917827174E+000.8316326415E+00 +0.8758792096E+000.9246716890E+000.9717761716E+000.2031079734E+000.3102856988E+00 +0.3853190100E+000.4442977697E+000.4938106567E+000.5372611284E+000.5766754189E+00 +0.6133601616E+000.6482025927E+000.6818647682E+000.7149254738E+000.7479743891E+00 +0.7816812947E+000.8168781767E+000.8546230812E+000.8958817391E+000.9396962342E+00 +0.9789750069E+000.1904600253E+000.2919475424E+000.3638432100E+000.4210281119E+00 +0.4695175481E+000.5123682249E+000.5513726855E+000.5877001487E+000.6221806324E+00 +0.6554563972E+000.6880728914E+000.7205397609E+000.7533882755E+000.7872376591E+00 +0.8228677851E+000.8612077215E+000.9027974894E+000.9457082908E+000.9820597707E+00 +0.1838662398E+000.2816176551E+000.3509060578E+000.4060464235E+000.4528098582E+00 +0.4941203161E+000.5316867750E+000.5666213397E+000.5997034154E+000.6315241382E+00 +0.6625749206E+000.6932968437E+000.7241237057E+000.7555317674E+000.7880986900E+00 +0.8225777528E+000.8599152257E+000.9008003823E+000.9436787246E+000.9809544280E+00 +0.1816584226E+000.2774147412E+000.3459089058E+000.4004453162E+000.4466325221E+00 +0.4873466319E+000.5242708302E+000.5584947367E+000.5907799699E+000.6216943778E+00 +0.6516952364E+000.6811781773E+000.7105297508E+000.7401411026E+000.7704489903E+00 +0.8019909106E+000.8354465894E+000.8715536843E+000.9104960789E+000.9501043208E+00 +0.9833256847E+000.1794506054E+000.2742308314E+000.3419804795E+000.3958639375E+00 +0.4414275078E+000.4815166749E+000.5177929608E+000.5513247083E+000.5828568678E+00 +0.6129391070E+000.6420024354E+000.6704124959E+000.6985029040E+000.7266185650E+00 +0.7551049653E+000.7843652300E+000.8149004989E+000.8473306065E+000.8822458969E+00 +0.9194800802E+000.9563523468E+000.9859381889E+000.1772427881E+000.2719330174E+00 +0.3389813782E+000.3921692908E+000.4370679893E+000.4765073663E+000.5121308093E+00 +0.5449864682E+000.5758036283E+000.6051181493E+000.6333417314E+000.6608163580E+00 +0.6878462092E+000.7147158414E+000.7417125405E+000.7691527126E+000.7974110457E+00 +0.8269556794E+000.8583581340E+000.8921152210E+000.9278451419E+000.9624460258E+00 +0.9887604688E+000.1783736970E+000.2726537805E+000.3389880908E+000.3913555250E+00 +0.4353791256E+000.4739045370E+000.5085792163E+000.5404463945E+000.5702276788E+00 +0.5984518290E+000.6255181956E+000.6517503865E+000.6774317336E+000.7028199576E+00 +0.7281629124E+000.7537208087E+000.7797880475E+000.8067191704E+000.8349620431E+00 +0.8650609243E+000.8974637429E+000.9317144465E+000.9646972154E+000.9895312148E+00 +0.1722984724E+000.2638470872E+000.3285111406E+000.3797079396E+000.4228367902E+00 +0.4606357087E+000.4946950177E+000.5260140960E+000.5552816794E+000.5830087869E+00 +0.6095782085E+000.6352901562E+000.6604051276E+000.6851596645E+000.7097728347E+00 +0.7344631454E+000.7594682220E+000.7850620109E+000.8115782354E+000.8394395021E+00 +0.8691486865E+000.9010729017E+000.9346195925E+000.9665648442E+000.9902264300E+00 +0.1758691309E+000.2678701940E+000.3322145701E+000.3827758131E+000.4251027852E+00 +0.4619972338E+000.4950781520E+000.5253550412E+000.5535208481E+000.5800899961E+00 +0.6054425913E+000.6298683395E+000.6536160335E+000.6769109738E+000.6999546283E+00 +0.7229376864E+000.7460606709E+000.7695473620E+000.7936586665E+000.8187181940E+00 +0.8451434987E+000.8734411360E+000.9040030810E+000.9363092509E+000.9672782219E+00 +0.9903824535E+000.1699679020E+000.2604476004E+000.3242806807E+000.3747150469E+00 +0.4170975872E+000.4541279994E+000.4873817117E+000.5178580506E+000.5462247371E+00 +0.5729690216E+000.5984685219E+000.6230138170E+000.6468369880E+000.6701428607E+00 +0.6931204048E+000.7159450202E+000.7387890123E+000.7618361262E+000.7852931465E+00 +0.8094033709E+000.8344651991E+000.8608390351E+000.8888721713E+000.9185502225E+00 +0.9486091029E+000.9753874439E+000.9933986167E+000.1672340286E+000.2562593759E+00 +0.3190720161E+000.3686958814E+000.4103874230E+000.4467955106E+000.4794678482E+00 +0.5093908477E+000.5372169120E+000.5634163854E+000.5883591017E+000.6123316906E+00 +0.6355552922E+000.6582196497E+000.6805015539E+000.7025639943E+000.7245598260E+00 +0.7466453256E+000.7689918947E+000.7917944977E+000.8152847441E+000.8397484288E+00 +0.8655275453E+000.8929344949E+000.9218904938E+000.9510534385E+000.9767780630E+00 +0.9938455836E+000.1683673279E+000.2574727367E+000.3201207496E+000.3694788913E+00 +0.4108536802E+000.4469121895E+000.4792002739E+000.5087108396E+000.5361052539E+00 +0.5618461868E+000.5862927576E+000.6097326228E+000.6323879787E+000.6544386464E+00 +0.6760480832E+000.6973697026E+000.7185451186E+000.7397113518E+000.7610128509E+00 +0.7826097001E+000.8046852275E+000.8274584749E+000.8511964260E+000.8761992366E+00 +0.9026746858E+000.9303233105E+000.9575092590E+000.9805737263E+000.9950881713E+00 +0.1675997599E+000.2565182791E+000.3190157783E+000.3682056505E+000.4093872082E+00 +0.4452309338E+000.4772754124E+000.5065096288E+000.5336031475E+000.5590186557E+00 +0.5831041710E+000.6061428550E+000.6283600218E+000.6499324982E+000.6710128672E+00 +0.6917446536E+000.7122619133E+000.7326899876E+000.7531546082E+000.7737912931E+00 +0.7947512964E+000.8162091832E+000.8383740268E+000.8614947256E+000.8858253791E+00 +0.9114581379E+000.9378683790E+000.9631686138E+000.9837848916E+000.9960885569E+00 +0.1674579039E+000.2553771391E+000.3175044097E+000.3663989025E+000.4072913963E+00 +0.4428419450E+000.4745858723E+000.5035033086E+000.5302628564E+000.5553322151E+00 +0.5790544515E+000.6016904538E+000.6234753124E+000.6445925724E+000.6651878438E+00 +0.6853929834E+000.7053327184E+000.7251238508E+000.7448789566E+000.7647141099E+00 +0.7847556834E+000.8051487849E+000.8260657896E+000.8476983908E+000.8702662942E+00 +0.8939507799E+000.9186919190E+000.9437532142E+000.9671673052E+000.9857295757E+00 +0.9965753970E+000.1673160478E+000.2547117089E+000.3164940324E+000.3650704380E+00 +0.4056493032E+000.4408874524E+000.4723185265E+000.5009140898E+000.5273395708E+00 +0.5520664923E+000.5754352504E+000.5977095955E+000.6191084667E+000.6398108900E+00 +0.6599599607E+000.6796788251E+000.6990839317E+000.7182798657E+000.7373880811E+00 +0.7565100507E+000.7757540232E+000.7952393521E+000.8151010691E+000.8354966251E+00 +0.8566097074E+000.8786329875E+000.9016837499E+000.9255725050E+000.9493818106E+00 +0.9710635662E+000.9877029582E+000.9971077595E+000.1671741918E+000.2544787421E+00 +0.3159391086E+000.3641767896E+000.4044196907E+000.4393279645E+000.4704350012E+00 +0.4987040701E+000.5247953932E+000.5491832005E+000.5722074406E+000.5941240505E+00 +0.6151268785E+000.6354212211E+000.6551480815E+000.6744247468E+000.6933587957E+00 +0.7120534257E+000.7306057464E+000.7491084845E+000.7676556875E+000.7863485771E+00 +0.8052987493E+000.8246486046E+000.8445403276E+000.8651455241E+000.8866316362E+00 +0.9090599625E+000.9321319249E+000.9547774613E+000.9748667287E+000.9897023940E+00 +0.9976814883E+000.1670323357E+000.2546400854E+000.3157994569E+000.3636795931E+00 +0.4035661719E+000.4381286348E+000.4689014360E+000.4968397932E+000.5225968842E+00 +0.5466486228E+000.5693364975E+000.5909097444E+000.6115725618E+000.6315021950E+00 +0.6508433936E+000.6697108033E+000.6882049292E+000.7064232097E+000.7244589113E+00 +0.7423986786E+000.7603267208E+000.7783314602E+000.7965093179E+000.8149672091E+00 +0.8338270851E+000.8532311018E+000.8733389753E+000.8942947322E+000.9161108983E+00 +0.9383985688E+000.9599607217E+000.9785850229E+000.9917256444E+000.9982929537E+00 +0.1585249168E+000.2426109500E+000.3017493822E+000.3482992139E+000.3872391281E+00 +0.4211031592E+000.4513468014E+000.4788657312E+000.5042820661E+000.5280618430E+00 +0.5505339634E+000.5719267025E+000.5924285691E+000.6122137723E+000.6314278042E+00 +0.6501792670E+000.6685571829E+000.6866502239E+000.7045479012E+000.7223328487E+00 +0.7400807308E+000.7578680761E+000.7757783311E+000.7939032638E+000.8123447180E+00 +0.8312197059E+000.8506659790E+000.8708403385E+000.8918893988E+000.9138428471E+00 +0.9363535065E+000.9582817532E+000.9774320518E+000.9911523766E+000.9981421322E+00 +0.1632319790E+000.2490914042E+000.3090811124E+000.3560531545E+000.3951705625E+00 +0.4290436349E+000.4591838230E+000.4865262766E+000.5116980430E+000.5351649360E+00 +0.5572739492E+000.5782701848E+000.5983394542E+000.6176465145E+000.6363379668E+00 +0.6545303469E+000.6723142907E+000.6897719094E+000.7069861203E+000.7240369143E+00 +0.7409972805E+000.7579369518E+000.7749290700E+000.7920534043E+000.8093972830E+00 +0.8270583765E+000.8451495683E+000.8638016602E+000.8831539270E+000.9033068346E+00 +0.9241856606E+000.9452655842E+000.9652315154E+000.9819444367E+000.9932693518E+00 +0.9986677826E+000.1612185066E+000.2459655186E+000.3055128516E+000.3522118954E+00 +0.3911264358E+000.4248259449E+000.4548064212E+000.4820032543E+000.5070358529E+00 +0.5303556326E+000.5523077399E+000.5731456091E+000.5930550701E+000.6121901561E+00 +0.6306902086E+000.6486743181E+000.6662366845E+000.6834557447E+000.7004065118E+00 +0.7171637013E+000.7337980939E+000.7503756355E+000.7669617427E+000.7836260238E+00 +0.8004443411E+000.8175001412E+000.8348874114E+000.8527141137E+000.8711007924E+00 +0.8901616580E+000.9099399940E+000.9302548205E+000.9504431211E+000.9691188681E+00 +0.9842994183E+000.9942691269E+000.9988862732E+000.1592050342E+000.2435623545E+00 +0.3026810870E+000.3490456153E+000.3876929169E+000.4211622029E+000.4509360605E+00 +0.4779494945E+000.5028115609E+000.5259580485E+000.5477323178E+000.5683954180E+00 +0.5881323601E+000.6070864678E+000.6253897746E+000.6431632985E+000.6605046557E+00 +0.6774894518E+000.6941855848E+000.7106625058E+000.7269888445E+000.7432278269E+00 +0.7594389369E+000.7756834509E+000.7920278772E+000.8085446856E+000.8253136652E+00 +0.8424251955E+000.8599828709E+000.8780993202E+000.8968706748E+000.9162986722E+00 +0.9361198612E+000.9555479807E+000.9730965625E+000.9868514224E+000.9954414191E+00 +0.9991695174E+000.1591098551E+000.2428133467E+000.3012903593E+000.3470637614E+00 +0.3851636748E+000.4181222172E+000.4474177267E+000.4739773270E+000.4984011489E+00 +0.5211206351E+000.5424793222E+000.5627380437E+000.5820772798E+000.6006333423E+00 +0.6185342422E+000.6359018093E+000.6528348977E+000.6694060053E+000.6856765272E+00 +0.7017107011E+000.7175750692E+000.7333309965E+000.7490331328E+000.7647351723E+00 +0.7804952867E+000.7963771182E+000.8124493940E+000.8287878719E+000.8454790868E+00 +0.8626225317E+000.8803257613E+000.8986788924E+000.9176791771E+000.9370679274E+00 +0.9560858182E+000.9733015275E+000.9868599351E+000.9953977915E+000.9991498223E+00 +0.1584162142E+000.2410746466E+000.2991712093E+000.3446790865E+000.3825515771E+00 +0.4152978722E+000.4443695231E+000.4706874480E+000.4948895158E+000.5173948523E+00 +0.5385334559E+000.5585662311E+000.5776751106E+000.5959998538E+000.6136631840E+00 +0.6307789085E+000.6474477507E+000.6637470744E+000.6797328577E+000.6954659827E+00 +0.7110074662E+000.7264168146E+000.7417476385E+000.7570492435E+000.7723732592E+00 +0.7877755642E+000.8033164006E+000.8190609074E+000.8350814307E+000.8514635000E+00 +0.8683028646E+000.8856905222E+000.9036888169E+000.9222451449E+000.9410356745E+00 +0.9592331077E+000.9754335824E+000.9879868820E+000.9957989284E+000.9992194920E+00 +0.1577225734E+000.2395359338E+000.2972667525E+000.3425027564E+000.3801396236E+00 +0.4126677659E+000.4415384232E+000.4676689324E+000.4916433109E+000.5139318685E+00 +0.5348503371E+000.5546577360E+000.5735509121E+000.5916675977E+000.6091093992E+00 +0.6259784298E+000.6423890844E+000.6584237918E+000.6741421053E+000.6895934989E+00 +0.7048312463E+000.7199092736E+000.7348862264E+000.7498130088E+000.7647341155E+00 +0.7796979435E+000.7947576402E+000.8099702269E+000.8254024411E+000.8411240977E+00 +0.8572128054E+000.8737559946E+000.8908359670E+000.9084907368E+000.9266249200E+00 +0.9448364215E+000.9622366835E+000.9774745686E+000.9890778224E+000.9961969448E+00 +0.9992919956E+000.1570289325E+000.2381828924E+000.2955616516E+000.3405198903E+00 +0.3779135160E+000.4102180019E+000.4388720817E+000.4648003231E+000.4886193584E+00 +0.5107128648E+000.5314111693E+000.5509937859E+000.5696644768E+000.5875644955E+00 +0.6047940872E+000.6214237843E+000.6375859220E+000.6533637700E+000.6688148016E+00 +0.6839954039E+000.6989520057E+000.7137366284E+000.7284013546E+000.7429924527E+00 +0.7575511590E+000.7721191701E+000.7867453746E+000.8014809272E+000.8163790030E+00 +0.8315134498E+000.8469429089E+000.8627438117E+000.8789981488E+000.8957776956E+00 +0.9131049582E+000.9308295967E+000.9484694215E+000.9651067668E+000.9794309358E+00 +0.9901353908E+000.9965920581E+000.9993671271E+000.1563352917E+000.2370025804E+00 +0.2940419966E+000.3387169922E+000.3758602861E+000.4079360197E+000.4363709996E+00 +0.4620854119E+000.4856996642E+000.5076273684E+000.5281657263E+000.5475445058E+00 +0.5659523872E+000.5836090649E+000.6006094174E+000.6170373669E+000.6329827333E+00 +0.6485325827E+000.6637555546E+000.6786996221E+000.6934049610E+000.7079167199E+00 +0.7222811544E+000.7365519707E+000.7507748061E+000.7649868397E+000.7792285967E+00 +0.7935450167E+000.8079841955E+000.8225972702E+000.8374403532E+000.8525768202E+00 +0.8680782399E+000.8840586806E+000.9005641993E+000.9175676899E+000.9348715917E+00 +0.9519505701E+000.9678526958E+000.9813086108E+000.9911618524E+000.9969844730E+00 +0.9994447122E+000.1556416508E+000.2359832224E+000.2926951537E+000.3370817898E+00 +0.3739681602E+000.4058103701E+000.4340239071E+000.4595229809E+000.4829310671E+00 +0.5046484600E+000.5249391751E+000.5441086777E+000.5623607455E+000.5798508730E+00 +0.5966821007E+000.6129245528E+000.6286563541E+000.6439800403E+000.6589642249E+00 +0.6736601796E+000.6881153231E+000.7023686186E+000.7164657906E+000.7304532508E+00 +0.7443716545E+000.7582561544E+000.7721417102E+000.7860703891E+000.8000886287E+00 +0.8142412930E+000.8285830240E+000.8431687593E+000.8580585807E+000.8733209664E+00 +0.8890236656E+000.9052126984E+000.9218770493E+000.9387622858E+000.9552901223E+00 +0.9704829729E+000.9831129406E+000.9921593622E+000.9973743713E+000.9995245791E+00 +0.1549480099E+000.2351140970E+000.2915095901E+000.3356030928E+000.3722263817E+00 +0.4038306436E+000.4318205331E+000.4571028772E+000.4802678764E+000.5017551488E+00 +0.5218845094E+000.5408809567E+000.5589473790E+000.5762476618E+000.5928920187E+00 +0.6089548322E+000.6244902911E+000.6396057794E+000.6543781604E+000.6688644313E+00 +0.6831023993E+000.6971249385E+000.7109718268E+000.7246856595E+000.7383134744E+00 +0.7518942443E+000.7654594827E+000.7790434953E+000.7926849702E+000.8064255246E+00 +0.8203086121E+000.8343927239E+000.8487249917E+000.8633658401E+000.8783802955E+00 +0.8938282713E+000.9097380824E+000.9260497648E+000.9425117016E+000.9584976144E+00 +0.9730052407E+000.9848488613E+000.9931298283E+000.9977619227E+000.9996065716E+00 +0.1542543691E+000.2343853906E+000.2904747952E+000.3342707184E+000.3706251563E+00 +0.4019873001E+000.4297515109E+000.4547935067E+000.4777496624E+000.4990715362E+00 +0.5190348611E+000.5378561942E+000.5557357528E+000.5728450858E+000.5892902150E+00 +0.6051604147E+000.6205214495E+000.6354472011E+000.6500157302E+000.6642908267E+00 +0.6783128023E+000.6921112500E+000.7057248778E+000.7191949528E+000.7325637148E+00 +0.7458676852E+000.7591376790E+000.7724046033E+000.7857039023E+000.7990734001E+00 +0.8125531005E+000.8261849193E+000.8400146890E+000.8540952104E+000.8684930071E+00 +0.8832640698E+000.8984616535E+000.9140991905E+000.9300863465E+000.9461261000E+00 +0.9615815766E+000.9754265618E+000.9865207780E+000.9940750470E+000.9981472800E+00 +0.9996905571E+000.1535607282E+000.2337881398E+000.2895811428E+000.3330753020E+00 +0.3691555088E+000.4002716573E+000.4278082568E+000.4526532966E+000.4754353295E+00 +0.4965842325E+000.5163771750E+000.5350214404E+000.5527129786E+000.5696303252E+00 +0.5859021515E+000.6016040520E+000.6167909818E+000.6315288394E+000.6458962423E+00 +0.6599638582E+000.6737788851E+000.6873701607E+000.7007651370E+000.7140004547E+00 +0.7271186131E+000.7401585071E+000.7531512211E+000.7661239806E+000.7791063450E+00 +0.7921325187E+000.8052396670E+000.8184662161E+000.8318526731E+000.8454439911E+00 +0.8592912777E+000.8734515244E+000.8879835981E+000.9029348371E+000.9183064621E+00 +0.9339830013E+000.9496228988E+000.9645499554E+000.9777534197E+000.9881327993E+00 +0.9949965921E+000.9985305902E+000.9997764066E+000.1534015421E+000.2332572024E+00 +0.2889513250E+000.3323827494E+000.3683983244E+000.3994508299E+000.4269361418E+00 +0.4517266829E+000.4744320270E+000.4954941249E+000.5152148339E+000.5338013002E+00 +0.5514254192E+000.5682500065E+000.5844138904E+000.6000133568E+000.6151101154E+00 +0.6297577144E+000.6440188187E+000.6579604006E+000.6716385070E+000.6850913795E+00 +0.6983467073E+000.7114335141E+000.7243870530E+000.7372447342E+000.7500400888E+00 +0.7628015279E+000.7755559910E+000.7883328813E+000.8011650197E+000.8140874762E+00 +0.8271369593E+000.8403528863E+000.8537790877E+000.8674645119E+000.8814613486E+00 +0.8958173608E+000.9105551539E+000.9256271411E+000.9408380618E+000.9557480677E+00 +0.9696139438E+000.9814698745E+000.9904243048E+000.9960946869E+000.9988899525E+00 +0.9998360774E+000.1532423559E+000.2332392992E+000.2888410700E+000.3321645669E+00 +0.3680688026E+000.3990170582E+000.4264174726E+000.4511265059E+000.4737331228E+00 +0.4946887664E+000.5143190071E+000.5328326807E+000.5503794007E+000.5671047753E+00 +0.5831541063E+000.5986425829E+000.6136407351E+000.6281932064E+000.6423476748E+00 +0.6561649982E+000.6697070013E+000.6830207345E+000.6961362702E+000.7090774444E+00 +0.7218726839E+000.7345564604E+000.7471633961E+000.7597232985E+000.7722618833E+00 +0.7848049682E+000.7973813912E+000.8100229096E+000.8227629969E+000.8356368269E+00 +0.8486826243E+000.8619430027E+000.8754648448E+000.8892959242E+000.9034739225E+00 +0.9179991346E+000.9327798538E+000.9475477965E+000.9617705216E+000.9746356389E+00 +0.9852062493E+000.9927745164E+000.9972517329E+000.9992820003E+000.9999040494E+00 +0.1467459402E+000.2241006569E+000.2781704159E+000.3204570007E+000.3556063744E+00 +0.3859907846E+000.4129395929E+000.4372579945E+000.4595350193E+000.4802317360E+00 +0.4996540527E+000.5179765503E+000.5353333178E+000.5518799449E+000.5677773556E+00 +0.5831426673E+000.5980332455E+000.6124778315E+000.6265173921E+000.6402172721E+00 +0.6536478568E+000.6668600877E+000.6798800092E+000.6927232378E+000.7054121777E+00 +0.7179807512E+000.7304664761E+000.7429009368E+000.7553079068E+000.7677087114E+00 +0.7801280016E+000.7925950214E+000.8051413784E+000.8177992835E+000.8306023102E+00 +0.8435875438E+000.8567971482E+000.8702784924E+000.8840821586E+000.8982545920E+00 +0.9128173492E+000.9277206061E+000.9427617615E+000.9574830767E+000.9711121872E+00 +0.9826576366E+000.9912374456E+000.9965357250E+000.9990552724E+000.9998677334E+00 +0.1495251926E+000.2278766648E+000.2824415890E+000.3250091262E+000.3603094519E+00 +0.3907514002E+000.4177218946E+000.4420517987E+000.4643003565E+000.4849107776E+00 +0.5042221326E+000.5224498475E+000.5397266628E+000.5561738718E+000.5719302539E+00 +0.5871256978E+000.6018468002E+000.6161367714E+000.6300259050E+000.6435590407E+00 +0.6567967924E+000.6697969289E+000.6825985582E+000.6952233662E+000.7076891176E+00 +0.7200208538E+000.7322510859E+000.7444124100E+000.7565316930E+000.7686308065E+00 +0.7807314210E+000.7928585147E+000.8050403094E+000.8173065345E+000.8296878089E+00 +0.8422167968E+000.8549298269E+000.8678675944E+000.8810741048E+000.8945920150E+00 +0.9084493297E+000.9226285372E+000.9370090437E+000.9512853543E+000.9648947127E+00 +0.9770299412E+000.9868213021E+000.9936832559E+000.9976469382E+000.9993989245E+00 +0.9999215607E+000.1504204413E+000.2289956338E+000.2836095034E+000.3261567988E+00 +0.3613990946E+000.3917513215E+000.4186180758E+000.4428474572E+000.4649896670E+00 +0.4854710766E+000.5046364869E+000.5227229213E+000.5398715915E+000.5561899538E+00 +0.5717992937E+000.5868282061E+000.6013772851E+000.6155024260E+000.6292329378E+00 +0.6426021113E+000.6556608155E+000.6684669754E+000.6810670695E+000.6934887501E+00 +0.7057489238E+000.7178668149E+000.7298698292E+000.7417895677E+000.7536546792E+00 +0.7654880468E+000.7773096756E+000.7891411260E+000.8010073575E+000.8129356844E+00 +0.8249543554E+000.8370926797E+000.8493824160E+000.8618590127E+000.8745616606E+00 +0.8875312529E+000.9008036951E+000.9143927303E+000.9282537412E+000.9422227485E+00 +0.9559406400E+000.9688049158E+000.9800229914E+000.9888259463E+000.9947974619E+00 +0.9981236010E+000.9995372078E+000.9999418211E+000.1520362107E+000.2310961291E+00 +0.2858950548E+000.3285029695E+000.3637422706E+000.3940431087E+000.4208263079E+00 +0.4449652452E+000.4670134797E+000.4873795481E+000.5064032005E+000.5243402289E+00 +0.5413500146E+000.5575360411E+000.5730010946E+000.5878633905E+000.6022312798E+00 +0.6161760481E+000.6297338002E+000.6429310670E+000.6558070112E+000.6684141747E+00 +0.6808030646E+000.6930087568E+000.7050513181E+000.7169467301E+000.7287166468E+00 +0.7403893452E+000.7519939017E+000.7635549081E+000.7750923874E+000.7866255522E+00 +0.7981760948E+000.8097686062E+000.8214292088E+000.8331847455E+000.8450634576E+00 +0.8570963063E+000.8693176978E+000.8817647950E+000.8944741610E+000.9074723606E+00 +0.9207542195E+000.9342414822E+000.9477208573E+000.9607797919E+000.9727885011E+00 +0.9829940849E+000.9907547244E+000.9958320165E+000.9985492572E+000.9996556674E+00 +0.9999584400E+000.1506550414E+000.2289172930E+000.2831179533E+000.3252241822E+00 +0.3600162602E+000.3899221049E+000.4163511865E+000.4401437304E+000.4618424479E+00 +0.4818780359E+000.5006060645E+000.5182672035E+000.5349936461E+000.5508792112E+00 +0.5660398764E+000.5806120334E+000.5947091906E+000.6083924181E+000.6216829909E+00 +0.6345996902E+000.6471846083E+000.6594989714E+000.6715998810E+000.6835222197E+00 +0.6952800324E+000.7068822747E+000.7183471585E+000.7297041873E+000.7409856943E+00 +0.7522178338E+000.7634187806E+000.7746037396E+000.7857907560E+000.7970024657E+00 +0.8082639907E+000.8196005039E+000.8310370621E+000.8426003468E+000.8543204151E+00 +0.8662313345E+000.8783707719E+000.8907782337E+000.9034894007E+000.9165207934E+00 +0.9298364773E+000.9432905745E+000.9565532156E+000.9690579186E+000.9800414155E+00 +0.9887389501E+000.9947034183E+000.9980673821E+000.9995171164E+000.9999384241E+00 +0.1487189977E+000.2263910981E+000.2803537538E+000.3223792718E+000.3571801768E+00 +0.3871193669E+000.4135891068E+000.4374688895E+000.4593054324E+000.4794721565E+00 +0.4982849384E+000.5160139130E+000.5328462982E+000.5488878270E+000.5642136176E+00 +0.5789144555E+000.5930980546E+000.6068578927E+000.6202496225E+000.6332978045E+00 +0.6460221957E+000.6584575410E+000.6706522752E+000.6826528311E+000.6944906783E+00 +0.7061826679E+000.7177414765E+000.7291853044E+000.7405393764E+000.7518305843E+00 +0.7630819406E+000.7743117186E+000.7855367061E+000.7967756784E+000.8080503225E+00 +0.8193840617E+000.8308009415E+000.8423258729E+000.8539857848E+000.8658105162E+00 +0.8778326288E+000.8900853703E+000.9025967391E+000.9153752563E+000.9283813382E+00 +0.9414804345E+000.9543851093E+000.9666148646E+000.9775244356E+000.9864456200E+00 +0.9929266162E+000.9969536583E+000.9989912512E+000.9997730114E+000.9999740990E+00 +0.4242682527E+000.3118318689E+000.5573192349E+000.2564309048E+000.4265397270E+00 +0.6082971026E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.2498266272E+000.3954425755E+000.5125397531E+000.6264643813E+000.7660440755E+00 +0.2312441904E+000.3628153360E+000.4647408573E+000.5572385640E+000.6537128592E+00 +0.7783980600E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.0000000000E+000.0000000000E+000.0000000000E+000.2175109663E+000.3375483770E+00 +0.4263481231E+000.5015240337E+000.5712296425E+000.6413449623E+000.7196681507E+00 +0.8251176560E+000.2091027841E+000.3233747108E+000.4068532838E+000.4762983716E+00 +0.5390987112E+000.5998050901E+000.6626760351E+000.7346105423E+000.8335743247E+00 +0.2028964798E+000.3129134317E+000.3924949585E+000.4578169161E+000.5158289293E+00 +0.5705039093E+000.6248551338E+000.6823607572E+000.7493876701E+000.8429805239E+00 +0.1995081188E+000.3070508796E+000.3842251490E+000.4468740217E+000.5016996216E+00 +0.5524059136E+000.6015134556E+000.6512976562E+000.7048125164E+000.7680131193E+00 +0.8566633313E+000.1946893203E+000.2990782320E+000.3735306535E+000.4334966162E+00 +0.4854322262E+000.5328283884E+000.5779386737E+000.6225179671E+000.6684299307E+00 +0.7184813802E+000.7783761303E+000.8632836990E+000.1933808595E+000.2966779391E+00 +0.3699876319E+000.4286170685E+000.4789168284E+000.5242670817E+000.5668094599E+00 +0.6080910832E+000.6494708297E+000.6925768647E+000.7400243239E+000.7971909494E+00 +0.8776737523E+000.1916891182E+000.2937189291E+000.3658460816E+000.4232187239E+00 +0.4720917608E+000.5157466100E+000.5562321095E+000.5949895277E+000.6331520148E+00 +0.6718289934E+000.7124892441E+000.7576087089E+000.8122859651E+000.8887237573E+00 +0.1914522305E+000.2930005117E+000.3645656605E+000.4212411383E+000.4692361706E+00 +0.5117747969E+000.5508328507E+000.5877918554E+000.6237016208E+000.6594555739E+00 +0.6960139730E+000.7347307592E+000.7779342461E+000.8303776195E+000.9025335953E+00 +0.1870901541E+000.2860559353E+000.3555924633E+000.4104735250E+000.4567683446E+00 +0.4976007557E+000.5348562716E+000.5698370453E+000.6035137765E+000.6366586808E+00 +0.6699935030E+000.7043835086E+000.7411107360E+000.7823914797E+000.8328051102E+00 +0.9029063342E+000.1859608627E+000.2840469172E+000.3528067819E+000.4069145587E+00 +0.4523826168E+000.4922974006E+000.5284895790E+000.5622045112E+000.5943754557E+00 +0.6257318536E+000.6568866703E+000.6884569502E+000.7212262530E+000.7563884509E+00 +0.7960372135E+000.8444932546E+000.9111961270E+000.1872286741E+000.2856314586E+00 +0.3544540945E+000.4084896618E+000.4537401392E+000.4932940075E+000.5289676408E+00 +0.5619624685E+000.5931719824E+000.6233064758E+000.6529465606E+000.6826086431E+00 +0.7128475957E+000.7443920419E+000.7783428764E+000.8166108890E+000.8631093698E+00 +0.9252995312E+000.1760399982E+000.2691470778E+000.3347107278E+000.3865961617E+00 +0.4303939524E+000.4689422863E+000.5039135847E+000.5363842207E+000.5671130353E+00 +0.5967008855E+000.6256523682E+000.6544275725E+000.6835139071E+000.7134886765E+00 +0.7451137272E+000.7795459820E+000.8188132095E+000.8668752072E+000.9299637391E+00 +0.1704933925E+000.2603568411E+000.3236228672E+000.3736905964E+000.4159356721E+00 +0.4530828275E+000.4867461374E+000.5179455589E+000.5473831552E+000.5756239220E+00 +0.6031342457E+000.6303042150E+000.6575260482E+000.6852481953E+000.7140081525E+00 +0.7445331020E+000.7779549965E+000.8162828992E+000.8635447594E+000.9267206452E+00 +0.1684204463E+000.2564330137E+000.3189819187E+000.3685141155E+000.4102622777E+00 +0.4468999911E+000.4800056021E+000.5105971965E+000.5393660015E+000.5668338379E+00 +0.5934383823E+000.6195480250E+000.6455068063E+000.6716747080E+000.6984646330E+00 +0.7263876445E+000.7561547530E+000.7888866017E+000.8265610914E+000.8728678647E+00 +0.9329701133E+000.1663475001E+000.2534593045E+000.3153333605E+000.3642792835E+00 +0.4054803279E+000.4415777176E+000.4741155584E+000.5041050443E+000.5322339063E+00 +0.5589923344E+000.5847859256E+000.6099692227E+000.6348429227E+000.6597167702E+00 +0.6849159065E+000.7108234825E+000.7379238239E+000.7669050903E+000.7988584349E+00 +0.8357046838E+000.8809180882E+000.9386446961E+000.1642745539E+000.2513117899E+00 +0.3125477487E+000.3608632867E+000.4014735460E+000.4370037742E+000.4689650730E+00 +0.4983574086E+000.5258714263E+000.5519756606E+000.5770408012E+000.6014072725E+00 +0.6253661500E+000.6491648583E+000.6730636017E+000.6973680093E+000.7224365997E+00 +0.7487267371E+000.7768976516E+000.8079956222E+000.8438615863E+000.8878615286E+00 +0.9438193900E+000.1656737865E+000.2525634599E+000.3133268688E+000.3610464905E+00 +0.4009960133E+000.4358255255E+000.4670441791E+000.4956441305E+000.5223233479E+00 +0.5475480700E+000.5716626153E+000.5949863536E+000.6178050596E+000.6403453004E+00 +0.6628177701E+000.6854691426E+000.7085851960E+000.7324972731E+000.7576408959E+00 +0.7846546259E+000.8145549768E+000.8491359216E+000.8916717548E+000.9458129310E+00 +0.1601686539E+000.2445370910E+000.3037298463E+000.3503192153E+000.3893887968E+00 +0.4235010615E+000.4540922199E+000.4821079709E+000.5082441067E+000.5329621248E+00 +0.5565664782E+000.5793397190E+000.6015667141E+000.6234752380E+000.6452404182E+00 +0.6670548160E+000.6891583277E+000.7118205434E+000.7353561957E+000.7601924638E+00 +0.7869613999E+000.8166687994E+000.8510863032E+000.8934100313E+000.9470117858E+00 +0.1638722990E+000.2489640080E+000.3081238715E+000.3543655118E+000.3929211238E+00 +0.4264140636E+000.4563049155E+000.4835509418E+000.5088613659E+000.5327041044E+00 +0.5553695794E+000.5771211302E+000.5982418147E+000.6189624611E+000.6394362441E+00 +0.6598117822E+000.6802893349E+000.7010985801E+000.7224780513E+000.7447193823E+00 +0.7682368574E+000.7936428581E+000.8219129036E+000.8547840847E+000.8954504671E+00 +0.9475369783E+000.1579255808E+000.2412961391E+000.2997449433E+000.3456763551E+00 +0.3840849496E+000.4175297991E+000.4474742774E+000.4748003727E+000.5001431154E+00 +0.5240087883E+000.5467441613E+000.5685707035E+000.5896934841E+000.6103389991E+00 +0.6307040715E+000.6509330981E+000.6711668600E+000.6915857068E+000.7124012775E+00 +0.7338477658E+000.7562169856E+000.7799175407E+000.8055531711E+000.8340845296E+00 +0.8671657545E+000.9074632418E+000.9563369170E+000.1555266093E+000.2376145050E+00 +0.2951630899E+000.3403801313E+000.3781705253E+000.4110571487E+000.4404940477E+00 +0.4673367319E+000.4921864999E+000.5155487013E+000.5377889991E+000.5591200954E+00 +0.5797098192E+000.5997639130E+000.6194895829E+000.6390351108E+000.6585112191E+00 +0.6780555081E+000.6978490006E+000.7180902521E+000.7389977724E+000.7608556441E+00 +0.7840670272E+000.8092259895E+000.8372786838E+000.8698520737E+000.9095361743E+00 +0.9575053811E+000.1567118014E+000.2389573876E+000.2964160864E+000.3414526235E+00 +0.3790108700E+000.4116066560E+000.4407273817E+000.4672622326E+000.4917782443E+00 +0.5147411235E+000.5365425884E+000.5574375630E+000.5775779900E+000.5971184367E+00 +0.6162499542E+000.6351441661E+000.6539177857E+000.6726724551E+000.6915451765E+00 +0.7107069808E+000.7303409114E+000.7506554541E+000.7719283130E+000.7945523513E+00 +0.8191056897E+000.8465080315E+000.8783079562E+000.9167676748E+000.9620487923E+00 +0.1558571872E+000.2378981563E+000.2952121190E+000.3401072689E+000.3775220712E+00 +0.4099422592E+000.4388513986E+000.4651771211E+000.4894856939E+000.5121947100E+00 +0.5336823774E+000.5542432114E+000.5740512041E+000.5932278839E+000.6119237386E+00 +0.6303113619E+000.6485290089E+000.6666716074E+000.6848381767E+000.7031648061E+00 +0.7218118881E+000.7409497716E+000.7607802780E+000.7815765363E+000.8037232655E+00 +0.8277867215E+000.8546654663E+000.8858320994E+000.9232164014E+000.9660354469E+00 +0.1558244324E+000.2369927611E+000.2940079673E+000.3386629464E+000.3758474516E+00 +0.4080349447E+000.4366843971E+000.4627306242E+000.4867689213E+000.5092050731E+00 +0.5303768671E+000.5505661809E+000.5699935065E+000.5887942083E+000.6070842525E+00 +0.6250044890E+000.6426976055E+000.6602740816E+000.6778208324E+000.6954374748E+00 +0.7132533764E+000.7314197036E+000.7501054109E+000.7695045715E+000.7898869150E+00 +0.8116318650E+000.8352988861E+000.8617628865E+000.8923683190E+000.9285627673E+00 +0.9688098826E+000.1557916775E+000.2365295653E+000.2932669654E+000.3376580835E+00 +0.3745863362E+000.4065221820E+000.4349022180E+000.4606616407E+000.4844210120E+00 +0.5065843915E+000.5274567253E+000.5473168378E+000.5663978112E+000.5848500676E+00 +0.6027698688E+000.6202646600E+000.6374718162E+000.6545140954E+000.6714918334E+00 +0.6884803632E+000.7055811641E+000.7229214325E+000.7406395911E+000.7588898981E+00 +0.7778675686E+000.7978380749E+000.8191738070E+000.8424242198E+000.8684395326E+00 +0.8984635814E+000.9335817406E+000.9715922728E+000.1557589227E+000.2364683688E+00 +0.2929470149E+000.3370527411E+000.3737011420E+000.4053681102E+000.4334698844E+00 +0.4589358655E+000.4824084436E+000.5042990882E+000.5248869281E+000.5444273878E+00 +0.5631458672E+000.5812388686E+000.5988056570E+000.6159300854E+000.6327226168E+00 +0.6493074855E+000.6657858898E+000.6822302733E+000.6987141579E+000.7153373237E+00 +0.7322202954E+000.7495068014E+000.7673369128E+000.7859021128E+000.8054626939E+00 +0.8263824223E+000.8491978085E+000.8747336548E+000.9041580155E+000.9383029903E+00 +0.9743817701E+000.1557261679E+000.2367737060E+000.2930109696E+000.3368116691E+00 +0.3731587070E+000.4045410864E+000.4323565330E+000.4575230178E+000.4807016376E+00 +0.5023195953E+000.5226365717E+000.5418754414E+000.5602763085E+000.5780417810E+00 +0.5952867319E+000.6120731777E+000.6284819000E+000.6446322704E+000.6606411452E+00 +0.6765873792E+000.6925274198E+000.7085346814E+000.7247126737E+000.7411783257E+00 +0.7580524358E+000.7754762733E+000.7936371870E+000.8127896004E+000.8332871238E+00 +0.8556507407E+000.8806790073E+000.9094870066E+000.9427529409E+000.9771778724E+00 +0.1478600131E+000.2256003288E+000.2798989934E+000.3223924973E+000.3578042320E+00 +0.3884720817E+000.4156957546E+000.4403728820E+000.4631698669E+000.4844845295E+00 +0.5045253012E+000.5234893565E+000.5416311485E+000.5591784454E+000.5762463876E+00 +0.5928671862E+000.6090892622E+000.6250258065E+000.6408120723E+000.6565408647E+00 +0.6722560167E+000.6880013068E+000.7038593406E+000.7199420433E+000.7363622062E+00 +0.7532320673E+000.7706902608E+000.7889268062E+000.8081986226E+000.8288606970E+00 +0.8514372848E+000.8767391009E+000.9059341024E+000.9398866302E+000.9756181042E+00 +0.1522291179E+000.2316848958E+000.2868691491E+000.3298514124E+000.3655046812E+00 +0.3962878122E+000.4235616877E+000.4481880228E+000.4708200996E+000.4919264344E+00 +0.5117748982E+000.5305330760E+000.5483902305E+000.5655652012E+000.5822263151E+00 +0.5984493100E+000.6142668938E+000.6297435625E+000.6449905831E+000.6601187546E+00 +0.6751968433E+000.6902637412E+000.7053713892E+000.7206051547E+000.7360675199E+00 +0.7518591290E+000.7680865950E+000.7848868285E+000.8024449073E+000.8210084419E+00 +0.8409210522E+000.8626901769E+000.8870820255E+000.9151033723E+000.9471248932E+00 +0.9794386977E+000.1502866889E+000.2286670680E+000.2834177234E+000.3261319063E+00 +0.3615735095E+000.3921769379E+000.4193107605E+000.4438120384E+000.4662937612E+00 +0.4872306286E+000.5069322746E+000.5255760067E+000.5433101118E+000.5603147760E+00 +0.5767687569E+000.5927886350E+000.6084246564E+000.6237150877E+000.6387334185E+00 +0.6535813710E+000.6683480172E+000.6830882369E+000.6978420423E+000.7126667029E+00 +0.7276456229E+000.7428734056E+000.7584452688E+000.7744674400E+000.7910771835E+00 +0.8084577903E+000.8268544386E+000.8466085390E+000.8682196202E+000.8924120949E+00 +0.9200255309E+000.9510128375E+000.9813297032E+000.1483442599E+000.2263283246E+00 +0.2806579843E+000.3230460355E+000.3582134623E+000.3885838300E+000.4155354897E+00 +0.4398761502E+000.4621762625E+000.4829174550E+000.5024507463E+000.5209631573E+00 +0.5385635042E+000.5553923330E+000.5716338162E+000.5874422984E+000.6028899255E+00 +0.6179964007E+000.6327988256E+000.6473827822E+000.6618511954E+000.6762780760E+00 +0.6907012737E+000.7051554037E+000.7197020108E+000.7344270200E+000.7494204091E+00 +0.7647705958E+000.7805806759E+000.7969875047E+000.8141726412E+000.8323773115E+00 +0.8519378820E+000.8733458342E+000.8973027684E+000.9245615189E+000.9547879509E+00 +0.9834393601E+000.1485598308E+000.2260933584E+000.2799343821E+000.3218522677E+00 +0.3565803974E+000.3865401360E+000.4130954592E+000.4370478618E+000.4589719276E+00 +0.4793516426E+000.4985349059E+000.5167023509E+000.5339541154E+000.5504235967E+00 +0.5662962852E+000.5817363213E+000.5968226082E+000.6115671167E+000.6259882694E+00 +0.6401587511E+000.6541855667E+000.6681556033E+000.6821094603E+000.6960665283E+00 +0.7100669355E+000.7241847822E+000.7385075941E+000.7531158247E+000.7680888108E+00 +0.7835272764E+000.7995684370E+000.8163915533E+000.8342326476E+000.8534217741E+00 +0.8744425211E+000.8979870913E+000.9248128097E+000.9546645743E+000.9832127048E+00 +0.1479694263E+000.2245616905E+000.2780767999E+000.3197758666E+000.3543139578E+00 +0.3840846256E+000.4104485505E+000.4342119393E+000.4559571086E+000.4761359471E+00 +0.4951035827E+000.5130758815E+000.5301572670E+000.5464509194E+000.5621107346E+00 +0.5772997053E+000.5921300842E+000.6066421390E+000.6208403709E+000.6347642613E+00 +0.6484971016E+000.6621331812E+000.6757373078E+000.6893381240E+000.7029576634E+00 +0.7166431756E+000.7304689483E+000.7445152604E+000.7588557683E+000.7735705721E+00 +0.7887632405E+000.8045663778E+000.8211559321E+000.8387638010E+000.8577139535E+00 +0.8784991217E+000.9017571648E+000.9280802345E+000.9569493145E+000.9840954243E+00 +0.1473790217E+000.2232163367E+000.2764176999E+000.3178906656E+000.3522311254E+00 +0.3818075796E+000.4079980087E+000.4316217743E+000.4531844943E+000.4731625218E+00 +0.4919131246E+000.5096839039E+000.5266029279E+000.5427465236E+000.5582144104E+00 +0.5731589496E+000.5877350594E+000.6020126887E+000.6159992956E+000.6296987304E+00 +0.6431616273E+000.6564795450E+000.6697469315E+000.6830075585E+000.6962738954E+00 +0.7095704726E+000.7229531294E+000.7364972422E+000.7502817385E+000.7643725072E+00 +0.7788428575E+000.7937948158E+000.8093628178E+000.8257189630E+000.8430906599E+00 +0.8618347791E+000.8823966188E+000.9053662244E+000.9312067105E+000.9591653705E+00 +0.9849974315E+000.1467886172E+000.2220439599E+000.2749429032E+000.3161830086E+00 +0.3503187832E+000.3796962304E+000.4056959943E+000.4291603029E+000.4506126049E+00 +0.4704140191E+000.4889463011E+000.5065097008E+000.5232524025E+000.5392356923E+00 +0.5545302034E+000.5692493375E+000.5835776879E+000.5976119421E+000.6113727826E+00 +0.6248589577E+000.6380933359E+000.6511469868E+000.6641099403E+000.6770487164E+00 +0.6899902032E+000.7029434853E+000.7159377422E+000.7290355794E+000.7423113856E+00 +0.7558466463E+000.7696915182E+000.7839206435E+000.7986365997E+000.8139720900E+00 +0.8301090927E+000.8472904431E+000.8658196975E+000.8861463177E+000.9088256613E+00 +0.9342025248E+000.9613176060E+000.9859172869E+000.1461982126E+000.2210325028E+00 +0.2736395498E+000.3146405100E+000.3485650346E+000.3777390373E+000.4035431559E+00 +0.4268324384E+000.4481251046E+000.4677872442E+000.4861595827E+000.5035262460E+00 +0.5200451952E+000.5358411444E+000.5509609874E+000.5655055855E+000.5796179684E+00 +0.5934224451E+000.6069763734E+000.6202774458E+000.6333174698E+000.6461330814E+00 +0.6588070702E+000.6714360106E+000.6840662570E+000.6967056643E+000.7093652959E+00 +0.7220847873E+000.7349289187E+000.7479661904E+000.7612549197E+000.7748505671E+00 +0.7888244915E+000.8033196054E+000.8184586680E+000.8343979614E+000.8513631718E+00 +0.8696707083E+000.8897585633E+000.9121459590E+000.9370765716E+000.9634104913E+00 +0.9868539136E+000.1456078081E+000.2201709954E+000.2724959601E+000.3132519076E+00 +0.3469590787E+000.3759254810E+000.4015293204E+000.4246381014E+000.4457701031E+00 +0.4652576552E+000.4834020968E+000.5005615530E+000.5169360752E+000.5326124438E+00 +0.5476201949E+000.5620112504E+000.5759122542E+000.5894858081E+000.6028148978E+00 +0.6159068361E+000.6287513133E+000.6413604326E+000.6537968721E+000.6661476597E+00 +0.6784805491E+000.6908218049E+000.7031726543E+000.7155492595E+000.7280032039E+00 +0.7406015997E+000.7534136015E+000.7664895870E+000.7798817339E+000.7936659364E+00 +0.8079437967E+000.8228413188E+000.8385610764E+000.8553119026E+000.8733968313E+00 +0.8932427774E+000.9153365695E+000.9398372743E+000.9654480553E+000.9878060679E+00 +0.1450174035E+000.2194494490E+000.2715014719E+000.3120069318E+000.3454910476E+00 +0.3742459972E+000.3996452162E+000.4225684011E+000.4435049422E+000.4628070585E+00 +0.4808050944E+000.4977885664E+000.5139850241E+000.5295062912E+000.5443794700E+00 +0.5586368102E+000.5723637114E+000.5857271392E+000.5988400092E+000.6117438140E+00 +0.6244221331E+000.6368566794E+000.6490773283E+000.6611636442E+000.6732097896E+00 +0.6852641210E+000.6973318926E+000.7094125511E+000.7215312873E+000.7337436651E+00 +0.7461151771E+000.7587129356E+000.7715760670E+000.7847601663E+000.7983432534E+00 +0.8124270847E+000.8271366636E+000.8426293161E+000.8591448386E+000.8770065010E+00 +0.8966074041E+000.9184062309E+000.9424921131E+000.9674340022E+000.9887726654E+00 +0.1444269990E+000.2188587212E+000.2706463682E+000.3108962376E+000.3441519563E+00 +0.3726918208E+000.3978823884E+000.4205939823E+000.4413678704E+000.4605478128E+00 +0.4783970950E+000.4952016355E+000.5112136287E+000.5265732521E+000.5412994753E+00 +0.5554184081E+000.5690006215E+000.5821754019E+000.5950755535E+000.6077744315E+00 +0.6202704914E+000.6325339301E+000.6445736380E+000.6564467574E+000.6682383855E+00 +0.6800170717E+000.6918094597E+000.7036135513E+000.7154354305E+000.7273111304E+00 +0.7393002478E+000.7514631400E+000.7638476787E+000.7764978193E+000.7894781406E+00 +0.8028626430E+000.8167530581E+000.8312729882E+000.8465796049E+000.8628845345E+00 +0.8805072179E+000.8998602668E+000.9213627175E+000.9450481008E+000.9693716955E+00 +0.9897528616E+000.1438365944E+000.2183904614E+000.2699217499E+000.3099112314E+00 +0.3429335712E+000.3712549743E+000.3962330886E+000.4187710743E+000.4394154414E+00 +0.4584677002E+000.4761660627E+000.4927888888E+000.5086104114E+000.5238022646E+00 +0.5384073898E+000.5524140030E+000.5658548333E+000.5788440920E+000.5915311263E+00 +0.6040222043E+000.6163400712E+000.6284503687E+000.6403265353E+000.6519978512E+00 +0.6635455488E+000.6750574505E+000.6865834042E+000.6981277653E+000.7096800063E+00 +0.7212524617E+000.7328925876E+000.7446645964E+000.7566239670E+000.7688108527E+00 +0.7812653486E+000.7940458514E+000.8072342794E+000.8209318461E+000.8352603995E+00 +0.8503763675E+000.8664930207E+000.8839060084E+000.9030085561E+000.9242133005E+00 +0.9475114213E+000.9712642607E+000.9907457505E+000.1436951619E+000.2179028828E+00 +0.2693394358E+000.3092558004E+000.3422252580E+000.3705176276E+000.3954405413E+00 +0.4178736988E+000.4384188544E+000.4574345858E+000.4751348545E+000.4917193180E+00 +0.5074210900E+000.5224522004E+000.5369330742E+000.5508899130E+000.5643215923E+00 +0.5772714105E+000.5898434293E+000.6021585933E+000.6142958993E+000.6262692488E+00 +0.6380549078E+000.6496422814E+000.6610658096E+000.6723960231E+000.6837028710E+00 +0.6950247880E+000.7063678625E+000.7177314372E+000.7291349641E+000.7406238173E+00 +0.7522539575E+000.7640744775E+000.7761254499E+000.7884504984E+000.8011098102E+00 +0.8141836333E+000.8277705946E+000.8419914499E+000.8570024179E+000.8730146855E+00 +0.8903136570E+000.9092527909E+000.9301195492E+000.9526250791E+000.9748067424E+00 +0.9921652317E+000.1435537294E+000.2178987769E+000.2692459547E+000.3090452522E+00 +0.3419166078E+000.3701429902E+000.3949823831E+000.4172853850E+000.4377040909E+00 +0.4566575168E+000.4743442003E+000.4908879036E+000.5064715021E+000.5213340908E+00 +0.5356694965E+000.5495520921E+000.5629626445E+000.5758805953E+000.5883563495E+00 +0.6005084046E+000.6124603106E+000.6242775778E+000.6359548494E+000.6474566832E+00 +0.6587732759E+000.6699465623E+000.6810514881E+000.6921543953E+000.7032852726E+00 +0.7144439925E+000.7256298329E+000.7368659712E+000.7481998901E+000.7596853475E+00 +0.7713671492E+000.7832829186E+000.7954767610E+000.8080099623E+000.8209621775E+00 +0.8344300305E+000.8485324622E+000.8634243389E+000.8793142324E+000.8964790949E+00 +0.9152427451E+000.9357971553E+000.9576179864E+000.9784035611E+000.9937108173E+00 +0.1374691422E+000.2093255086E+000.2592107724E+000.2980366653E+000.3302129817E+00 +0.3578627421E+000.3821982547E+000.4041227599E+000.4242911370E+000.4430332620E+00 +0.4604664887E+000.4767222816E+000.4920527960E+000.5067476448E+000.5209881355E+00 +0.5347923881E+000.5480899869E+000.5608474812E+000.5731398226E+000.5851232479E+00 +0.5969461833E+000.6086735560E+000.6202779149E+000.6316948555E+000.6428949549E+00 +0.6539193892E+000.6648593784E+000.6758024770E+000.6867897219E+000.6978138307E+00 +0.7088537602E+000.7199136721E+000.7310355306E+000.7422806842E+000.7537025183E+00 +0.7653361329E+000.7772109626E+000.7893702111E+000.8018789829E+000.8148199410E+00 +0.8282897196E+000.8424061245E+000.8573241540E+000.8732552634E+000.8904872428E+00 +0.9093838282E+000.9302585045E+000.9528476778E+000.9751295618E+000.9924128514E+00 +0.1401120401E+000.2129399293E+000.2633322008E+000.3024288454E+000.3347488099E+00 +0.3625318619E+000.3869832812E+000.4089094582E+000.4289682469E+000.4476164309E+00 +0.4650622138E+000.4813855467E+000.4967107267E+000.5112608853E+000.5252719058E+00 +0.5388783062E+000.5520834174E+000.5648302465E+000.5771028796E+000.5889763295E+00 +0.6005859810E+000.6120521790E+000.6234223597E+000.6346706810E+000.6457478760E+00 +0.6566391521E+000.6673880150E+000.6780741082E+000.6887681106E+000.6995004661E+00 +0.7102653375E+000.7210513349E+000.7318709866E+000.7427663063E+000.7537912342E+00 +0.7649912041E+000.7763987863E+000.7880460828E+000.7999792244E+000.8122627352E+00 +0.8249760025E+000.8382127285E+000.8520892202E+000.8667587078E+000.8824273293E+00 +0.8993653971E+000.9178781237E+000.9381114406E+000.9594598809E+000.9795673198E+00 +0.9941348565E+000.1410029112E+000.2140777057E+000.2645532780E+000.3036562532E+00 +0.3359302760E+000.3636614134E+000.3880766571E+000.4099412420E+000.4298794546E+00 +0.4483839505E+000.4657266085E+000.4820002805E+000.4972769758E+000.5117196355E+00 +0.5255558590E+000.5389685845E+000.5520200613E+000.5646726174E+000.5768776673E+00 +0.5886553337E+000.6001072447E+000.6113637647E+000.6225140057E+000.6335716522E+00 +0.6444963343E+000.6552482798E+000.6658335973E+000.6763098910E+000.6867541387E+00 +0.6972216228E+000.7077273532E+000.7182604214E+000.7288153113E+000.7394134537E+00 +0.7501003208E+000.7609258966E+000.7719290021E+000.7831386555E+000.7945877288E+00 +0.8063243283E+000.8184130097E+000.8309311671E+000.8439703261E+000.8576453288E+00 +0.8721076912E+000.8875592449E+000.9042574102E+000.9224688042E+000.9422424344E+00 +0.9628055767E+000.9816964749E+000.9949078057E+000.1425865404E+000.2161637073E+00 +0.2668590437E+000.3060592550E+000.3383460235E+000.3660517582E+000.3904520892E+00 +0.4122942293E+000.4321506228E+000.4505173854E+000.4677312067E+000.4839336153E+00 +0.4991742701E+000.5135492201E+000.5272432445E+000.5404590650E+000.5533197841E+00 +0.5658357740E+000.5779563834E+000.5896557248E+000.6009841701E+000.6120535346E+00 +0.6229767235E+000.6338116286E+000.6445486058E+000.6551447746E+000.6655752848E+00 +0.6758638570E+000.6860743930E+000.6962753487E+000.7065064975E+000.7167719888E+00 +0.7270608465E+000.7373751607E+000.7477432957E+000.7582110479E+000.7688229822E+00 +0.7796122117E+000.7906059391E+000.8018385608E+000.8133596016E+000.8252327855E+00 +0.8375332158E+000.8503503882E+000.8637976661E+000.8780242943E+000.8932262181E+00 +0.9096436118E+000.9274940623E+000.9467129135E+000.9663532033E+000.9838853157E+00 +0.9956707121E+000.1413958080E+000.2143084439E+000.2645051027E+000.3032925878E+00 +0.3352466197E+000.3626554047E+000.3867334602E+000.4082482477E+000.4278426108E+00 +0.4460227097E+000.4630547949E+000.4790116610E+000.4939464583E+000.5080188090E+00 +0.5214723473E+000.5345155008E+000.5472272577E+000.5595636914E+000.5714478814E+00 +0.5828668183E+000.5939068199E+000.6047125784E+000.6154086509E+000.6260410986E+00 +0.6365754178E+000.6469453536E+000.6571149182E+000.6671120493E+000.6770157605E+00 +0.6869112341E+000.6968469005E+000.7068223015E+000.7168110863E+000.7267983541E+00 +0.7368038187E+000.7468764251E+000.7570697317E+000.7674211035E+000.7779510271E+00 +0.7886792698E+000.7996409235E+000.8108896198E+000.8224908008E+000.8345174378E+00 +0.8470554485E+000.8602155139E+000.8741455912E+000.8890434725E+000.9051652612E+00 +0.9227918731E+000.9420308219E+000.9622418276E+000.9811216203E+000.9946373816E+00 +0.1394722935E+000.2117349179E+000.2616394039E+000.3002855612E+000.3321279392E+00 +0.3594669544E+000.3835959320E+000.4052302439E+000.4248619949E+000.4429564309E+00 +0.4599093312E+000.4759382866E+000.4910946680E+000.5053943809E+000.5189354289E+00 +0.5319046520E+000.5444905813E+000.5567923238E+000.5687992057E+000.5804478376E+00 +0.5917051216E+000.6026158213E+000.6132876148E+000.6238330389E+000.6343135469E+00 +0.6447228935E+000.6550158789E+000.6651577233E+000.6751589156E+000.6850745566E+00 +0.6949737489E+000.7049042683E+000.7148777387E+000.7248827271E+000.7349120541E+00 +0.7449821409E+000.7551316923E+000.7654052354E+000.7758382404E+000.7864560704E+00 +0.7972847610E+000.8083619497E+000.8197395747E+000.8314806469E+000.8436581761E+00 +0.8563605054E+000.8697008460E+000.8838272568E+000.8989289747E+000.9152213079E+00 +0.9328484756E+000.9515832639E+000.9702515987E+000.9862678322E+000.9964787457E+00 +0.3856332881E+000.2882381345E+000.5115142184E+000.2396823560E+000.3968244418E+00 +0.5616751620E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.2336081440E+000.3691901731E+000.4774996536E+000.5821837851E+000.7109926971E+00 +0.2171561063E+000.3402765761E+000.4350540227E+000.5205239917E+000.6091416591E+00 +0.7239036409E+000.0000000000E+000.0000000000E+000.0000000000E+000.0000000000E+00 +0.0000000000E+000.0000000000E+000.0000000000E+000.2047659832E+000.3175827483E+00 +0.4007714555E+000.4708149321E+000.5354224557E+000.6001853486E+000.6721854373E+00 +0.7703907559E+000.1972343043E+000.3048859432E+000.3833241840E+000.4482589595E+00 +0.5066494829E+000.5628829320E+000.6209689691E+000.6870435822E+000.7791508694E+00 +0.1916470240E+000.2954660881E+000.3704175327E+000.4316911892E+000.4858056208E+00 +0.5365672129E+000.5869215184E+000.6400579616E+000.7015719870E+000.7887975725E+00 +0.1885584863E+000.2901074781E+000.3628958746E+000.4218122562E+000.4731336922E+00 +0.5203439926E+000.5659137192E+000.6120563020E+000.6615071081E+000.7195172735E+00 +0.8027004259E+000.1842090998E+000.2829051375E+000.3532382107E+000.4097497526E+00 +0.4585065292E+000.5027625897E+000.5446953222E+000.5860725921E+000.6286537023E+00 +0.6748761550E+000.7297530826E+000.8094551496E+000.1830003954E+000.2806370278E+00 +0.3499161388E+000.4052316498E+000.4525652176E+000.4950613888E+000.5347174621E+00 +0.5730713859E+000.6115015980E+000.6515085493E+000.6953433332E+000.7478084095E+00 +0.8243279549E+000.1814734738E+000.2779057126E+000.3460864222E+000.4002619079E+00 +0.4463234246E+000.4873463379E+000.5252089149E+000.5612825878E+000.5967391613E+00 +0.6327037151E+000.6704930718E+000.7122128902E+000.7624906512E+000.8360640576E+00 +0.1812900723E+000.2772171470E+000.3448282208E+000.3983570404E+000.4436249533E+00 +0.4836741201E+000.5203270794E+000.5548392614E+000.5882352824E+000.6214611263E+00 +0.6554815149E+000.6914975733E+000.7315087742E+000.7799325266E+000.8506087067E+00 +0.1773407017E+000.2709358181E+000.3367235743E+000.3886313281E+000.4323532934E+00 +0.4708576582E+000.5058982942E+000.5386421626E+000.5700014568E+000.6007891394E+00 +0.6317776232E+000.6637893157E+000.6979325907E+000.7361449735E+000.7827322504E+00 +0.8512645053E+000.1763515343E+000.2691168890E+000.3341533092E+000.3853451145E+00 +0.4283109148E+000.4659787338E+000.5000833217E+000.5317468700E+000.5617969272E+00 +0.5909470001E+000.6198694066E+000.6492257129E+000.6797554789E+000.7124993029E+00 +0.7493116236E+000.7943443528E+000.8605357945E+000.1775661957E+000.2706126452E+00 +0.3356159067E+000.3866862606E+000.4294447888E+000.4667759536E+000.5004096743E+00 +0.5314677937E+000.5607361911E+000.5888447075E+000.6163754729E+000.6439032144E+00 +0.6720166392E+000.7014026100E+000.7330619508E+000.7687949001E+000.8125998015E+00 +0.8765986564E+000.1672555456E+000.2554103571E+000.3173040706E+000.3661474230E+00 +0.4072818928E+000.4434156045E+000.4761058259E+000.5063870992E+000.5350139133E+00 +0.5625282495E+000.5893789812E+000.6160244386E+000.6429327951E+000.6706211265E+00 +0.6997949690E+000.7315405265E+000.7677726239E+000.8127143053E+000.8787853556E+00 +0.1623076665E+000.2475172416E+000.3073100342E+000.3544736126E+000.3941782940E+00 +0.4290299123E+000.4604950336E+000.4895704905E+000.5170011217E+000.5432782392E+00 +0.5687731843E+000.5938947360E+000.6190601159E+000.6446542072E+000.6711481629E+00 +0.6992389025E+000.7299880929E+000.7652779598E+000.8093078830E+000.8747119414E+00 +0.1603255738E+000.2437690243E+000.3028853147E+000.3495568432E+000.3887906883E+00 +0.4231605593E+000.4541394099E+000.4826709456E+000.5094563240E+000.5350195015E+00 +0.5597283838E+000.5838958323E+000.6078857032E+000.6320625786E+000.6567831351E+00 +0.6825068388E+000.7099124829E+000.7400555613E+000.7748463114E+000.8185822835E+00 +0.8832035902E+000.1583434810E+000.2409280693E+000.2994062166E+000.3455367140E+00 +0.3842530234E+000.4181049295E+000.4485772025E+000.4765777411E+000.5027561385E+00 +0.5276452157E+000.5516305466E+000.5749801720E+000.5979737504E+000.6209546624E+00 +0.6442303334E+000.6681278213E+000.6930955320E+000.7197927750E+000.7492475807E+00 +0.7833378811E+000.8262851240E+000.8895778163E+000.1563613883E+000.2388760425E+00 +0.2967493961E+000.3422962814E+000.3804544364E+000.4137568986E+000.4437049225E+00 +0.4711856892E+000.4967903974E+000.5210399974E+000.5443561761E+000.5669978589E+00 +0.5891694729E+000.6111431880E+000.6332218959E+000.6556722561E+000.6787905553E+00 +0.7030147204E+000.7289831483E+000.7576782837E+000.7908930429E+000.8326214548E+00 +0.8941108476E+000.1578739023E+000.2403681926E+000.2978869027E+000.3429558052E+00 +0.3805701037E+000.4132701136E+000.4425772352E+000.4693977768E+000.4942952596E+00 +0.5177570092E+000.5402209084E+000.5619674755E+000.5831616153E+000.6040095183E+00 +0.6247909336E+000.6457612790E+000.6671356440E+000.6891999852E+000.7123893147E+00 +0.7373140168E+000.7649181459E+000.7969473067E+000.8372985583E+000.8969599038E+00 +0.1527197324E+000.2328316965E+000.2888527805E+000.3328492099E+000.3696163508E+00 +0.4015898627E+000.4302701223E+000.4565520559E+000.4809374290E+000.5038555631E+00 +0.5257590613E+000.5469710908E+000.5676323140E+000.5878660204E+000.6079090198E+00 +0.6280372023E+000.6484536335E+000.6693406897E+000.6909919003E+000.7138485546E+00 +0.7385105493E+000.7659167319E+000.7978177027E+000.8381123301E+000.8977213246E+00 +0.1564331923E+000.2373795737E+000.2934982367E+000.3372824162E+000.3736710596E+00 +0.4051592074E+000.4332795323E+000.4589489043E+000.4826666549E+000.5048435048E+00 +0.5259347722E+000.5462891180E+000.5660465073E+000.5852815900E+000.6041843041E+00 +0.6230311895E+000.6420321129E+000.6613094580E+000.6810387572E+000.7015380815E+00 +0.7232310098E+000.7466700555E+000.7727544166E+000.8031808723E+000.8417345107E+00 +0.8991902707E+000.1505438979E+000.2297059257E+000.2850140453E+000.3283701590E+00 +0.3645731426E+000.3959763710E+000.4239753906E+000.4495509248E+000.4733144562E+00 +0.4955891170E+000.5166548569E+000.5368613471E+000.5565057681E+000.5757239168E+00 +0.5945790387E+000.6132151710E+000.6318636513E+000.6507298227E+000.6699572081E+00 +0.6897243933E+000.7103290190E+000.7321847819E+000.7558571251E+000.7822592517E+00 +0.8130959715E+000.8521280020E+000.9092550108E+000.1483377912E+000.2263200088E+00 +0.2807958968E+000.3234871261E+000.3591325899E+000.3900372629E+000.4175473641E+00 +0.4426430121E+000.4659670419E+000.4878307486E+000.5084521361E+000.5281474967E+00 +0.5472517378E+000.5659467478E+000.5842704313E+000.6022890800E+000.6201943165E+00 +0.6382168247E+000.6565115689E+000.6751883533E+000.6944338390E+000.7145571200E+00 +0.7359603207E+000.7591921690E+000.7851577114E+000.8155494102E+000.8540937063E+00 +0.9105639231E+000.1495392785E+000.2277166654E+000.2821500711E+000.3246801794E+00 +0.3601113589E+000.3908124488E+000.4180853494E+000.4428478896E+000.4658040831E+00 +0.4873586967E+000.5076970334E+000.5270192319E+000.5456274639E+000.5637916540E+00 +0.5816238089E+000.5991425948E+000.6164322381E+000.6336870124E+000.6511085682E+00 +0.6688233394E+000.6869383111E+000.7056468544E+000.7252500677E+000.7461325322E+00 +0.7688304699E+000.7942349741E+000.8240067565E+000.8617789578E+000.9166980662E+00 +0.1486414131E+000.2265974929E+000.2808951734E+000.3232882756E+000.3585545085E+00 +0.3891091390E+000.4162548933E+000.4408279415E+000.4635149945E+000.4848105642E+00 +0.5049518302E+000.5240653980E+000.5423562447E+000.5601039679E+000.5775129259E+00 +0.5946428032E+000.6115096960E+000.6282173616E+000.6449564818E+000.6618992791E+00 +0.6791503481E+000.6968187244E+000.7151039378E+000.7342985363E+000.7547725469E+00 +0.7770536136E+000.8020230713E+000.8313184656E+000.8684963708E+000.9221088042E+00 +0.1486680791E+000.2258213056E+000.2798588803E+000.3220535976E+000.3571083642E+00 +0.3874322218E+000.4143681751E+000.4387393533E+000.4611663295E+000.4821421968E+00 +0.5019820504E+000.5208350665E+000.5388435465E+000.5562169714E+000.5731754818E+00 +0.5898549389E+000.6062979850E+000.6225443023E+000.6387075037E+000.6549532520E+00 +0.6714242751E+000.6882223385E+000.7054706055E+000.7233653742E+000.7421886426E+00 +0.7623039515E+000.7842404236E+000.8088829632E+000.8378770787E+000.8747120112E+00 +0.9269157091E+000.1486947452E+000.2254666193E+000.2792623139E+000.3212353165E+00 +0.3560561680E+000.3861293436E+000.4128347317E+000.4369941824E+000.4591723157E+00 +0.4798432602E+000.4993754526E+000.5179741852E+000.5357392066E+000.5527970828E+00 +0.5693507215E+000.5855964435E+000.6016271895E+000.6174410494E+000.6331010741E+00 +0.6487425991E+000.6645240314E+000.6805604686E+000.6969380162E+000.7137818237E+00 +0.7312945270E+000.7497483760E+000.7694978992E+000.7910685148E+000.8153393599E+00 +0.8439423774E+000.8802893062E+000.9312235926E+000.1487214113E+000.2254951153E+00 +0.2790655049E+000.3207955891E+000.3553621140E+000.3851665078E+000.4116224538E+00 +0.4355612224E+000.4575007219E+000.4778801365E+000.4970990294E+000.5154164052E+00 +0.5329144334E+000.5496943733E+000.5659055431E+000.5817447913E+000.5973573059E+00 +0.6127906152E+000.6280533989E+000.6432075315E+000.6583878463E+000.6737385043E+00 +0.6893560895E+000.7053297589E+000.7217832918E+000.7389216021E+000.7570077903E+00 +0.7763850662E+000.7975704230E+000.8214289409E+000.8495592515E+000.8852861871E+00 +0.9350775745E+000.1487480774E+000.2258729883E+000.2792331857E+000.3207010152E+00 +0.3549946086E+000.3845137165E+000.4107030084E+000.4344129275E+000.4561231090E+00 +0.4762232177E+000.4951236560E+000.5131455925E+000.5304226219E+000.5469795307E+00 +0.5628942288E+000.5783538020E+000.5935597133E+000.6086115757E+000.6235056608E+00 +0.6382404243E+000.6529029887E+000.6676459903E+000.6825999616E+000.6978370387E+00 +0.7134261332E+000.7295023786E+000.7462732551E+000.7639933990E+000.7829925230E+00 +0.8037749775E+000.8271840741E+000.8547672837E+000.8897540309E+000.9385179246E+00 +0.1412887110E+000.2152511186E+000.2667587394E+000.3069698110E+000.3403119368E+00 +0.3691016789E+000.3947511217E+000.4180204005E+000.4393057974E+000.4589981098E+00 +0.4775592505E+000.4953321930E+000.5124132440E+000.5287646068E+000.5444277699E+00 +0.5596043458E+000.5745431711E+000.5893781108E+000.6040902326E+000.6186209527E+00 +0.6330074203E+000.6474026355E+000.6619766579E+000.6768223102E+000.6919712653E+00 +0.7074899049E+000.7235365446E+000.7403325272E+000.7581283266E+000.7772502302E+00 +0.7982117028E+000.8218728671E+000.8498068159E+000.8853228913E+000.9352449195E+00 +0.1454365324E+000.2210613862E+000.2734270984E+000.3141395044E+000.3478101440E+00 +0.3767492278E+000.4023823438E+000.4256108939E+000.4469125518E+000.4665821084E+00 +0.4849593613E+000.5024162433E+000.5191946955E+000.5353446056E+000.5508443400E+00 +0.5657618034E+000.5802864438E+000.5946183784E+000.6088476097E+000.6229496471E+00 +0.6368918069E+000.6507326262E+000.6646157995E+000.6786804669E+000.6929976569E+00 +0.7076025149E+000.7225749677E+000.7380727565E+000.7543004301E+000.7714925200E+00 +0.7899670150E+000.8102250546E+000.8331000054E+000.8601141166E+000.8944089657E+00 +0.9418668294E+000.1435506327E+000.2181320734E+000.2700662361E+000.3105036192E+00 +0.3439851010E+000.3727699598E+000.3982266587E+000.4212732005E+000.4424499699E+00 +0.4620480623E+000.4803242203E+000.4975942566E+000.5141440057E+000.5301141628E+00 +0.5455133411E+000.5603438858E+000.5747042577E+000.5887715842E+000.6026981898E+00 +0.6165355129E+000.6302589593E+000.6438606924E+000.6574137028E+000.6710487656E+00 +0.6848808120E+000.6989709838E+000.7133632026E+000.7281470150E+000.7434772407E+00 +0.7595498119E+000.7765970956E+000.7949406642E+000.8150843017E+000.8378640473E+00 +0.8648014236E+000.8989235720E+000.9452746670E+000.1416647330E+000.2158544146E+00 +0.2673680703E+000.3074738971E+000.3407102915E+000.3692912711E+000.3945260683E+00 +0.4173527670E+000.4383758011E+000.4578810485E+000.4760416946E+000.4931142706E+00 +0.5094207869E+000.5251895366E+000.5404690457E+000.5552110636E+000.5694252915E+00 +0.5832487359E+000.5968756116E+000.6104330017E+000.6239281942E+000.6373115014E+00 +0.6505836785E+000.6638410938E+000.6772236266E+000.6908321748E+000.7047078040E+00 +0.7188885046E+000.7334719397E+000.7486188322E+000.7645200961E+000.7813999899E+00 +0.7995768200E+000.8195516392E+000.8421507970E+000.8688748850E+000.9027013457E+00 +0.9483449488E+000.1420373674E+000.2158823006E+000.2669922153E+000.3067059187E+00 +0.3395591478E+000.3677689768E+000.3926593063E+000.4151627692E+000.4358647386E+00 +0.4550444024E+000.4728802102E+000.4896308672E+000.5056163816E+000.5210674779E+00 +0.5360376143E+000.5504731561E+000.5643640323E+000.5778286638E+000.5910643633E+00 +0.6042234281E+000.6173351032E+000.6303409274E+000.6432030813E+000.6559820994E+00 +0.6688163967E+000.6818341383E+000.6950920665E+000.7086017477E+000.7224074125E+00 +0.7366281555E+000.7514313754E+000.7669960948E+000.7835340282E+000.8013599635E+00 +0.8209725068E+000.8431878792E+000.8694871063E+000.9028248581E+000.9480227894E+00 +0.1415054644E+000.2144711683E+000.2652870842E+000.3047968756E+000.3374776369E+00 +0.3655432369E+000.3902749941E+000.4125669361E+000.4330610249E+000.4520805856E+00 +0.4698012882E+000.4864195986E+000.5021950227E+000.5173855551E+000.5321194701E+00 +0.5463880041E+000.5601543520E+000.5734598237E+000.5864409552E+000.5992752521E+00 +0.6120602291E+000.6247894871E+000.6374112744E+000.6499167654E+000.6623845143E+00 +0.6749475996E+000.6877086707E+000.7007081649E+000.7139609458E+000.7275238627E+00 +0.7415218609E+000.7561127645E+000.7714680445E+000.7877973633E+000.8054144693E+00 +0.8248397458E+000.8468891887E+000.8730299936E+000.9060721205E+000.9501164267E+00 +0.1409735614E+000.2132378078E+000.2637710485E+000.3030700102E+000.3355686603E+00 +0.3634809025E+000.3880755700E+000.4102086318E+000.4304859516E+000.4493334377E+00 +0.4669306895E+000.4834215070E+000.4990175122E+000.5139712015E+000.5284678515E+00 +0.5425570724E+000.5561944554E+000.5693553199E+000.5821208304E+000.5946569961E+00 +0.6071193187E+000.6195647948E+000.6319430532E+000.6441985862E+000.6563561279E+00 +0.6685232730E+000.6808265813E+000.6933447983E+000.7061034704E+000.7191145702E+00 +0.7324457136E+000.7462255787E+000.7606071850E+000.7757532554E+000.7918703178E+00 +0.8093091899E+000.8285564817E+000.8504248942E+000.8763800379E+000.9091096307E+00 +0.9521154840E+000.1404416584E+000.2121694936E+000.2624305996E+000.3015123108E+00 +0.3338198920E+000.3615702828E+000.3860129930E+000.4079809845E+000.4281043550E+00 +0.4467874424E+000.4642535096E+000.4806213951E+000.4960482707E+000.5107773343E+00 +0.5250398897E+000.5389188241E+000.5524050693E+000.5654392391E+000.5780311332E+00 +0.5903254883E+000.6024869373E+000.6146221561E+000.6267382607E+000.6387780430E+00 +0.6507013684E+000.6625481530E+000.6744384678E+000.6864989975E+000.6987858404E+00 +0.7113117827E+000.7240843276E+000.7371868780E+000.7507528781E+000.7649279361E+00 +0.7798784613E+000.7958266427E+000.8130783912E+000.8321334087E+000.8538067171E+00 +0.8795512583E+000.9119522994E+000.9540265635E+000.1399097554E+000.2112547213E+00 +0.2612534861E+000.3001119764E+000.3322201529E+000.3598008115E+000.3840890589E+00 +0.4058874298E+000.4258230359E+000.4443559079E+000.4617251781E+000.4779928129E+00 +0.4932341979E+000.5077417525E+000.5217506109E+000.5354078025E+000.5487296955E+00 +0.5616543385E+000.5741441063E+000.5862599707E+000.5981532531E+000.6099833953E+00 +0.6218250411E+000.6336350386E+000.6453428591E+000.6569403296E+000.6685060823E+00 +0.6801631450E+000.6920093832E+000.7040797928E+000.7163712442E+000.7289049030E+00 +0.7417667196E+000.7551339761E+000.7691372989E+000.7839115652E+000.7996659832E+00 +0.8167234587E+000.8355803125E+000.8570454376E+000.8825558821E+000.9146137551E+00 +0.9558562816E+000.1393778524E+000.2104830236E+000.2602285804E+000.2988582762E+00 +0.3307592933E+000.3581628567E+000.3822943130E+000.4039269833E+000.4236771108E+00 +0.4420154952E+000.4591807018E+000.4753214081E+000.4905057528E+000.5048858571E+00 +0.5186911804E+000.5321266214E+000.5452725775E+000.5580793087E+000.5704561323E+00 +0.5824135344E+000.5940866529E+000.6056383004E+000.6171840831E+000.6287412137E+00 +0.6402491265E+000.6516455153E+000.6629408838E+000.6742385981E+000.6856712699E+00 +0.6973141740E+000.7091837064E+000.7212681502E+000.7336041026E+000.7462934624E+00 +0.7594673168E+000.7732528492E+000.7878289464E+000.8033909278E+000.8202527529E+00 +0.8389061053E+000.8601507781E+000.8854054065E+000.9171063197E+000.9576098338E+00 +0.1388459494E+000.2098448700E+000.2593457247E+000.2977414251E+000.3294280407E+00 +0.3566476615E+000.3806201384E+000.4020907814E+000.4216275106E+000.4397444056E+00 +0.4567701979E+000.4728118768E+000.4879085090E+000.5021648412E+000.5157893162E+00 +0.5290123015E+000.5419486932E+000.5546017078E+000.5668876762E+000.5787573601E+00 +0.5902665148E+000.6015659498E+000.6128199234E+000.6241117444E+000.6354048860E+00 +0.6466160446E+000.6577066613E+000.6687280187E+000.6797979216E+000.6910308875E+00 +0.7024796142E+000.7141468677E+000.7260224229E+000.7381600711E+000.7506678831E+00 +0.7636711696E+000.7772897965E+000.7916598119E+000.8070090442E+000.8236740935E+00 +0.8421187752E+000.8631317207E+000.8881100887E+000.9194412829E+000.9592922735E+00 +0.1383140464E+000.2093315371E+000.2585956616E+000.2967525192E+000.3282179518E+00 +0.3552471998E+000.3790586770E+000.4003512562E+000.4197071286E+000.4376539509E+00 +0.4545287231E+000.4704632638E+000.4854745906E+000.4996196676E+000.5130662866E+00 +0.5260644318E+000.5387884562E+000.5512768960E+000.5634572127E+000.5752432603E+00 +0.5866326170E+000.5977405656E+000.6087372120E+000.6197460100E+000.6307912769E+00 +0.6418108937E+000.6527286481E+000.6635333849E+000.6743079408E+000.6851747922E+00 +0.6962275055E+000.7074934342E+000.7189574313E+000.7306240438E+000.7425669767E+00 +0.7548955044E+000.7677290535E+000.7811792615E+000.7953818432E+000.8105419302E+00 +0.8269944330E+000.8452257225E+000.8659962679E+000.8906794850E+000.9216289147E+00 +0.9609084406E+000.1377821435E+000.2089350573E+000.2579699128E+000.2958833704E+00 +0.3271212896E+000.3539541678E+000.3776027276E+000.3987593760E+000.4179652070E+00 +0.4357325973E+000.4524455148E+000.4682653021E+000.4831935634E+000.4972391012E+00 +0.5105362499E+000.5233248212E+000.5358284653E+000.5481414873E+000.5602114876E+00 +0.5719233967E+000.5832174975E+000.5941573652E+000.6049057744E+000.6156324289E+00 +0.6264215181E+000.6372426507E+000.6480017036E+000.6586318811E+000.6691585495E+00 +0.6796928643E+000.6903637551E+000.7012450124E+000.7123364080E+000.7236109475E+00 +0.7350827475E+000.7468342905E+000.7589857829E+000.7716503669E+000.7849306180E+00 +0.7989608045E+000.8139521880E+000.8302202856E+000.8482337491E+000.8687518950E+00 +0.8931221034E+000.9236786773E+000.9624624515E+000.1376568516E+000.2084741428E+00 +0.2574221944E+000.2952935548E+000.3264655050E+000.3531957540E+000.3767820477E+00 +0.3979543562E+000.4171702339E+000.4348404832E+000.4513622648E+000.4670166484E+00 +0.4819062680E+000.4960227485E+000.5093820887E+000.5221082531E+000.5344049873E+00 +0.5464536070E+000.5583253971E+000.5699741284E+000.5813082151E+000.5922859992E+00 +0.6029673076E+000.6134901470E+000.6239943704E+000.6345481896E+000.6451277517E+00 +0.6556607573E+000.6661000798E+000.6764737076E+000.6868768040E+000.6974162750E+00 +0.7081544539E+000.7190973248E+000.7302337098E+000.7415876582E+000.7532375191E+00 +0.7652917476E+000.7778569809E+000.7910390683E+000.8049780745E+000.8198860891E+00 +0.8360761845E+000.8540165228E+000.8744649509E+000.8987305065E+000.9288785761E+00 +0.9659766401E+000.1375315598E+000.2084775491E+000.2573430667E+000.2951317424E+00 +0.3261971494E+000.3527859200E+000.3762724313E+000.3974324833E+000.4166475525E+00 +0.4342196341E+000.4505402777E+000.4659991332E+000.4808103157E+000.4949732047E+00 +0.5084028331E+000.5211003056E+000.5332212910E+000.5450055901E+000.5566413510E+00 +0.5681725663E+000.5795113226E+000.5905356877E+000.6011988595E+000.6115763187E+00 +0.6218262003E+000.6320973341E+000.6424507438E+000.6528462077E+000.6631980309E+00 +0.6734565495E+000.6836565217E+000.6939007423E+000.7042970374E+000.7149016266E+00 +0.7257137306E+000.7367209774E+000.7479514441E+000.7594866848E+000.7714331416E+00 +0.7838925954E+000.7969686117E+000.8108024144E+000.8256064866E+000.8416909597E+00 +0.8595190861E+000.8798406171E+000.9039350242E+000.9337028085E+000.9694536047E+00 +0.1317020897E+000.2002641972E+000.2477483653E+000.2845677323E+000.3148968722E+00 +0.3409868717E+000.3641310532E+000.3849330895E+000.4037202962E+000.4209087043E+00 +0.4370108554E+000.4524020935E+000.4671677609E+000.4811871747E+000.4943560955E+00 +0.5067525017E+000.5186328034E+000.5302898560E+000.5418928385E+000.5534195118E+00 +0.5647139606E+000.5756195135E+000.5860972334E+000.5962599229E+000.6063097014E+00 +0.6164257668E+000.6266745773E+000.6369956055E+000.6472661562E+000.6573994766E+00 +0.6674115741E+000.6774154163E+000.6875516449E+000.6979088373E+000.7084920983E+00 +0.7192602312E+000.7301969423E+000.7413554262E+000.7528432581E+000.7647728124E+00 +0.7772343522E+000.7903200331E+000.8041710371E+000.8190070666E+000.8351437854E+00 +0.8530473546E+000.8734765607E+000.8977614190E+000.9280746606E+000.9656756342E+00 +0.1342603285E+000.2037636785E+000.2517261429E+000.2888669550E+000.3194115330E+00 +0.3455421098E+000.3686368549E+000.3894918154E+000.4084591494E+000.4257690315E+00 +0.4417683896E+000.4568776393E+000.4713905199E+000.4853604273E+000.4986776241E+00 +0.5112527234E+000.5231517305E+000.5345924682E+000.5458263070E+000.5570024942E+00 +0.5681078437E+000.5790125053E+000.5895820595E+000.5997803527E+000.6097015467E+00 +0.6195187437E+000.6293879170E+000.6393697107E+000.6494161590E+000.6594260786E+00 +0.6693293113E+000.6791434109E+000.6889673242E+000.6989213548E+000.7090804437E+00 +0.7194507364E+000.7300039018E+000.7407367207E+000.7517046792E+000.7630059311E+00 +0.7747412612E+000.7869970820E+000.7998693512E+000.8135022252E+000.8281120771E+00 +0.8440077829E+000.8616486888E+000.8817798710E+000.9056659082E+000.9351413373E+00 +0.9703257802E+000.1351434622E+000.2049031729E+000.2529486601E+000.2901151406E+00 +0.3206706901E+000.3467592122E+000.3697451428E+000.3905017828E+000.4094497266E+00 +0.4267784624E+000.4427294354E+000.4576731626E+000.4719628639E+000.4857636510E+00 +0.4990303080E+000.5116395856E+000.5235558688E+000.5349056744E+000.5459229738E+00 +0.5568210103E+000.5676849997E+000.5784524938E+000.5889845807E+000.5991754435E+00 +0.6090307886E+000.6186713651E+000.6282662835E+000.6379420953E+000.6477245741E+00 +0.6575464840E+000.6673120484E+000.6769737573E+000.6865713861E+000.6962103524E+00 +0.7059989797E+000.7159925354E+000.7261848681E+000.7365500525E+000.7470964140E+00 +0.7578878581E+000.7690206779E+000.7805873441E+000.7926684362E+000.8053601349E+00 +0.8188085377E+000.8332287187E+000.8489252410E+000.8663520791E+000.8862438027E+00 +0.9098221303E+000.9387319809E+000.9725589811E+000.1366984541E+000.2069680990E+00 +0.2552333897E+000.2925012569E+000.3231259268E+000.3492392965E+000.3721609858E+00 +0.3928105288E+000.4117096189E+000.4290685809E+000.4450377199E+000.4598876990E+00 +0.4739696249E+000.4875462915E+000.5006814672E+000.5132823450E+000.5252457016E+00 +0.5365875740E+000.5474686835E+000.5581133541E+000.5686894959E+000.5792315448E+00 +0.5896501520E+000.5998141960E+000.6096492018E+000.6191924826E+000.6285764587E+00 +0.6379562048E+000.6474288463E+000.6569938890E+000.6665757987E+000.6760907786E+00 +0.6855129293E+000.6948974771E+000.7043490456E+000.7139610712E+000.7237718314E+00 +0.7337682553E+000.7439304279E+000.7542776520E+000.7648789077E+000.7758259722E+00 +0.7872030722E+000.7990866344E+000.8115739091E+000.8248121451E+000.8390138831E+00 +0.8544786257E+000.8716540436E+000.8912609495E+000.9144659318E+000.9426884429E+00 +0.9749480802E+000.1356037107E+000.2052708444E+000.2531096369E+000.2900285281E+00 +0.3203081791E+000.3461134179E+000.3688325792E+000.3893355069E+000.4080181924E+00 +0.4250536915E+000.4406896993E+000.4553182589E+000.4693139899E+000.4828508125E+00 +0.4958737622E+000.5082335771E+000.5198638902E+000.5308729613E+000.5415027352E+00 +0.5520008575E+000.5624967148E+000.5729557425E+000.5832303043E+000.5931685231E+00 +0.6027149046E+000.6119481946E+000.6210412868E+000.6301715435E+000.6394346402E+00 +0.6488095426E+000.6581911554E+000.6674682729E+000.6765993673E+000.6856416708E+00 +0.6947185921E+000.7039494481E+000.7133893935E+000.7230195811E+000.7327914572E+00 +0.7426893367E+000.7527627695E+000.7631072443E+000.7738176856E+000.7849623879E+00 +0.7966015439E+000.8088283143E+000.8217941329E+000.8357129915E+000.8508788360E+00 +0.8677307517E+000.8869866831E+000.9098625465E+000.9381036745E+000.9717550211E+00 +0.1337198350E+000.2027298863E+000.2502219537E+000.2869418928E+000.3171762707E+00 +0.3429813643E+000.3655828893E+000.3859012345E+000.4045529034E+000.4217995302E+00 +0.4377136913E+000.4524277481E+000.4662290518E+000.4794520471E+000.4923059990E+00 +0.5047979144E+000.5168010926E+000.5282021467E+000.5390170341E+000.5494059300E+00 +0.5595918040E+000.5697449700E+000.5799066327E+000.5899919861E+000.5998632916E+00 +0.6094253160E+000.6186880003E+000.6277644570E+000.6368108163E+000.6459462567E+00 +0.6552000642E+000.6645143498E+000.6737972730E+000.6829919680E+000.6921183673E+00 +0.7012637997E+000.7105322729E+000.7199896247E+000.7296431187E+000.7394674280E+00 +0.7494533624E+000.7596394314E+000.7701040891E+000.7809334686E+000.7922007921E+00 +0.8039780615E+000.8163661362E+000.8295166778E+000.8436428042E+000.8590430561E+00 +0.8761650884E+000.8957230660E+000.9188238772E+000.9466043281E+000.9773882864E+00 Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/VENUSDAT =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/VENUSDAT (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/VENUSDAT (revision 1444) @@ -0,0 +1,2050 @@ + 1 0.00000000E+00 0.00000000E+00 0.00000000E+00 + 2 1.70452541E-12 1.19787010E-06 5.63088827E-07 + 3 8.62876437E-12 9.86788291E-06 4.50457754E-06 + 4 2.72710743E-11 2.90643952E-05 1.30321933E-05 + 5 6.65795197E-11 5.40009882E-05 2.39042380E-05 + 6 1.38059120E-10 8.29189049E-05 3.63218455E-05 + 7 2.55771071E-10 1.15369075E-04 5.00806092E-05 + 8 4.36333747E-10 1.51136130E-04 6.50817721E-05 + 9 6.98921032E-10 1.90068467E-04 8.12559650E-05 + 10 1.06526388E-09 2.32044109E-04 9.85477334E-05 + 11 1.55964974E-09 2.76959607E-04 1.16910397E-04 + 12 2.20892160E-09 3.24724910E-04 1.36303618E-04 + 13 3.04247949E-09 3.75260503E-04 1.56692017E-04 + 14 4.09227907E-09 4.28495256E-04 1.78044143E-04 + 15 5.39283218E-09 4.84364989E-04 2.00331790E-04 + 16 6.98120650E-09 5.42811348E-04 2.23529444E-04 + 17 8.89702545E-09 6.03780923E-04 2.47613877E-04 + 18 1.11824684E-08 6.67224566E-04 2.72563812E-04 + 19 1.38822700E-08 7.33096812E-04 2.98359659E-04 + 20 1.70437208E-08 8.01355431E-04 3.24983296E-04 + 21 2.07166658E-08 8.71961028E-04 3.52417886E-04 + 22 2.49535060E-08 9.44876745E-04 3.80647736E-04 + 23 2.98091972E-08 1.02006797E-03 4.09658165E-04 + 24 3.53412498E-08 1.09750212E-03 4.39435396E-04 + 25 4.16097289E-08 1.17714842E-03 4.69966467E-04 + 26 4.86772543E-08 1.25897777E-03 5.01239150E-04 + 27 5.66089999E-08 1.34296254E-03 5.33241881E-04 + 28 6.54726940E-08 1.42907649E-03 5.65963707E-04 + 29 7.53386185E-08 1.51729464E-03 5.99394222E-04 + 30 8.62796091E-08 1.60759314E-03 6.33523531E-04 + 31 9.83710551E-08 1.69994922E-03 6.68342203E-04 + 32 1.11690899E-07 1.79434110E-03 7.03841238E-04 + 33 1.26319636E-07 1.89074787E-03 7.40012032E-04 + 34 1.42340316E-07 1.98914951E-03 7.76846349E-04 + 35 1.59838537E-07 2.08952677E-03 8.14336294E-04 + 36 1.78902455E-07 2.19186111E-03 8.52474291E-04 + 37 1.99622774E-07 2.29613472E-03 8.91253059E-04 + 38 2.22092752E-07 2.40233039E-03 9.30665594E-04 + 39 2.46408196E-07 2.51043154E-03 9.70705153E-04 + 40 2.72667467E-07 2.62042215E-03 1.01136524E-03 + 41 3.00971476E-07 2.73228672E-03 1.05263957E-03 + 42 3.31423683E-07 2.84601027E-03 1.09452210E-03 + 43 3.64130101E-07 2.96157827E-03 1.13700697E-03 + 44 3.99199292E-07 3.07897668E-03 1.18008852E-03 + 45 4.36742366E-07 3.19819184E-03 1.22376126E-03 + 46 4.76872985E-07 3.31921052E-03 1.26801988E-03 + 47 5.19707358E-07 3.44201986E-03 1.31285924E-03 + 48 5.65364245E-07 3.56660737E-03 1.35827434E-03 + 49 6.13964951E-07 3.69296090E-03 1.40426033E-03 + 50 6.65633332E-07 3.82106862E-03 1.45081250E-03 + 51 7.20495791E-07 3.95091904E-03 1.49792626E-03 + 52 7.78681277E-07 4.08250093E-03 1.54559718E-03 + 53 8.40321287E-07 4.21580339E-03 1.59382090E-03 + 54 9.05549863E-07 4.35081576E-03 1.64259323E-03 + 55 9.74503596E-07 4.48752765E-03 1.69191004E-03 + 56 1.04732162E-06 4.62592892E-03 1.74176732E-03 + 57 1.12414562E-06 4.76600966E-03 1.79216119E-03 + 58 1.20511981E-06 4.90776022E-03 1.84308782E-03 + 59 1.29039096E-06 5.05117114E-03 1.89454350E-03 + 60 1.38010840E-06 5.19623317E-03 1.94652461E-03 + 61 1.47442397E-06 5.34293729E-03 1.99902759E-03 + 62 1.57349208E-06 5.49127465E-03 2.05204898E-03 + 63 1.67746967E-06 5.64123659E-03 2.10558539E-03 + 64 1.78651622E-06 5.79281466E-03 2.15963353E-03 + 65 1.90079377E-06 5.94600054E-03 2.21419014E-03 + 66 2.02046687E-06 6.10078611E-03 2.26925205E-03 + 67 2.14570264E-06 6.25716340E-03 2.32481618E-03 + 68 2.27667072E-06 6.41512461E-03 2.38087947E-03 + 69 2.41354331E-06 6.57466206E-03 2.43743895E-03 + 70 2.55649513E-06 6.73576825E-03 2.49449171E-03 + 71 2.70570345E-06 6.89843581E-03 2.55203489E-03 + 72 2.86134807E-06 7.06265749E-03 2.61006569E-03 + 73 3.02361134E-06 7.22842620E-03 2.66858135E-03 + 74 3.19267814E-06 7.39573495E-03 2.72757919E-03 + 75 3.36873588E-06 7.56457689E-03 2.78705657E-03 + 76 3.55197451E-06 7.73494530E-03 2.84701087E-03 + 77 3.74258652E-06 7.90683354E-03 2.90743956E-03 + 78 3.94076694E-06 8.08023512E-03 2.96834014E-03 + 79 4.14671332E-06 8.25514364E-03 3.02971014E-03 + 80 4.36062575E-06 8.43155281E-03 3.09154715E-03 + 81 4.58270685E-06 8.60945644E-03 3.15384880E-03 + 82 4.81316179E-06 8.78884845E-03 3.21661275E-03 + 83 5.05219824E-06 8.96972284E-03 3.27983672E-03 + 84 5.30002643E-06 9.15207373E-03 3.34351844E-03 + 85 5.55685911E-06 9.33589530E-03 3.40765571E-03 + 86 5.82291156E-06 9.52118185E-03 3.47224633E-03 + 87 6.09840159E-06 9.70792773E-03 3.53728817E-03 + 88 6.38354953E-06 9.89612742E-03 3.60277910E-03 + 89 6.67857825E-06 1.00857754E-02 3.66871706E-03 + 90 6.98371315E-06 1.02768664E-02 3.73509999E-03 + 91 7.29918215E-06 1.04693950E-02 3.80192587E-03 + 92 7.62521569E-06 1.06633561E-02 3.86919273E-03 + 93 7.96204674E-06 1.08587444E-02 3.93689861E-03 + 94 8.30991080E-06 1.10555549E-02 4.00504158E-03 + 95 8.66904590E-06 1.12537826E-02 4.07361974E-03 + 96 9.03969257E-06 1.14534225E-02 4.14263122E-03 + 97 9.42209388E-06 1.16544698E-02 4.21207418E-03 + 98 9.81649542E-06 1.18569196E-02 4.28194679E-03 + 99 1.02231453E-05 1.20607671E-02 4.35224728E-03 + 100 1.06422942E-05 1.22660078E-02 4.42297387E-03 + 101 1.10741951E-05 1.24726370E-02 4.49412481E-03 + 102 1.15191039E-05 1.26806501E-02 4.56569839E-03 + 103 1.19772786E-05 1.28900426E-02 4.63769291E-03 + 104 1.24489800E-05 1.31008101E-02 4.71010670E-03 + 105 1.29344713E-05 1.33129482E-02 4.78293810E-03 + 106 1.34340183E-05 1.35264524E-02 4.85618549E-03 + 107 1.39478891E-05 1.37413186E-02 4.92984726E-03 + 108 1.44763545E-05 1.39575425E-02 5.00392181E-03 + 109 1.50196879E-05 1.41751198E-02 5.07840758E-03 + 110 1.55781650E-05 1.43940466E-02 5.15330302E-03 + 111 1.61520642E-05 1.46143186E-02 5.22860659E-03 + 112 1.67416661E-05 1.48359319E-02 5.30431680E-03 + 113 1.73472542E-05 1.50588825E-02 5.38043214E-03 + 114 1.79691143E-05 1.52831663E-02 5.45695115E-03 + 115 1.86075348E-05 1.55087795E-02 5.53387236E-03 + 116 1.92628064E-05 1.57357183E-02 5.61119433E-03 + 117 1.99352225E-05 1.59639787E-02 5.68891565E-03 + 118 2.06250791E-05 1.61935571E-02 5.76703491E-03 + 119 2.13326744E-05 1.64244497E-02 5.84555070E-03 + 120 2.20583093E-05 1.66566528E-02 5.92446167E-03 + 121 2.28022872E-05 1.68901628E-02 6.00376646E-03 + 122 2.35649140E-05 1.71249760E-02 6.08346371E-03 + 123 2.43464981E-05 1.73610889E-02 6.16355210E-03 + 124 2.51473502E-05 1.75984978E-02 6.24403033E-03 + 125 2.59677839E-05 1.78371994E-02 6.32489707E-03 + 126 2.68081150E-05 1.80771901E-02 6.40615106E-03 + 127 2.76686618E-05 1.83184666E-02 6.48779102E-03 + 128 2.85497452E-05 1.85610253E-02 6.56981569E-03 + 129 2.94516885E-05 1.88048630E-02 6.65222382E-03 + 130 3.03748178E-05 1.90499762E-02 6.73501419E-03 + 131 3.13194611E-05 1.92963618E-02 6.81818558E-03 + 132 3.22859496E-05 1.95440165E-02 6.90173677E-03 + 133 3.32746163E-05 1.97929369E-02 6.98566658E-03 + 134 3.42857973E-05 2.00431199E-02 7.06997382E-03 + 135 3.53198307E-05 2.02945624E-02 7.15465732E-03 + 136 3.63770575E-05 2.05472611E-02 7.23971592E-03 + 137 3.74578208E-05 2.08012130E-02 7.32514847E-03 + 138 3.85624665E-05 2.10564150E-02 7.41095385E-03 + 139 3.96913429E-05 2.13128640E-02 7.49713091E-03 + 140 4.08448006E-05 2.15705570E-02 7.58367856E-03 + 141 4.20231929E-05 2.18294909E-02 7.67059568E-03 + 142 4.32268756E-05 2.20896629E-02 7.75788118E-03 + 143 4.44562067E-05 2.23510700E-02 7.84553398E-03 + 144 4.57115470E-05 2.26137091E-02 7.93355302E-03 + 145 4.69932597E-05 2.28775775E-02 8.02193720E-03 + 146 4.83017103E-05 2.31426723E-02 8.11068550E-03 + 147 4.96372670E-05 2.34089906E-02 8.19979686E-03 + 148 5.10003004E-05 2.36765296E-02 8.28927026E-03 + 149 5.23911834E-05 2.39452865E-02 8.37910466E-03 + 150 5.38102917E-05 2.42152585E-02 8.46929905E-03 + 151 5.52580032E-05 2.44864429E-02 8.55985242E-03 + 152 5.67346984E-05 2.47588369E-02 8.65076379E-03 + 153 5.82407603E-05 2.50324379E-02 8.74203214E-03 + 154 5.97765742E-05 2.53072430E-02 8.83365652E-03 + 155 6.13425281E-05 2.55832498E-02 8.92563593E-03 + 156 6.29390122E-05 2.58604556E-02 9.01796943E-03 + 157 6.45664195E-05 2.61388576E-02 9.11065604E-03 + 158 6.62251451E-05 2.64184534E-02 9.20369484E-03 + 159 6.79155868E-05 2.66992403E-02 9.29708487E-03 + 160 6.96381448E-05 2.69812158E-02 9.39082519E-03 + 161 7.13932217E-05 2.72643774E-02 9.48491490E-03 + 162 7.31812227E-05 2.75487225E-02 9.57935307E-03 + 163 7.50025554E-05 2.78342486E-02 9.67413879E-03 + 164 7.68576297E-05 2.81209533E-02 9.76927116E-03 + 165 7.87468582E-05 2.84088341E-02 9.86474928E-03 + 166 8.06706558E-05 2.86978885E-02 9.96057227E-03 + 167 8.26294398E-05 2.89881142E-02 1.00567392E-02 + 168 8.46236302E-05 2.92795087E-02 1.01532493E-02 + 169 8.66536492E-05 2.95720696E-02 1.02501016E-02 + 170 8.87199216E-05 2.98657946E-02 1.03472954E-02 + 171 9.08228746E-05 3.01606814E-02 1.04448296E-02 + 172 9.29629377E-05 3.04567274E-02 1.05427035E-02 + 173 9.51405431E-05 3.07539306E-02 1.06409162E-02 + 174 9.73561253E-05 3.10522885E-02 1.07394670E-02 + 175 9.96101213E-05 3.13517989E-02 1.08383549E-02 + 176 1.01902970E-04 3.16524595E-02 1.09375792E-02 + 177 1.04235115E-04 3.19542680E-02 1.10371390E-02 + 178 1.06606998E-04 3.22572222E-02 1.11370336E-02 + 179 1.09019068E-04 3.25613200E-02 1.12372620E-02 + 180 1.11471772E-04 3.28665590E-02 1.13378236E-02 + 181 1.13965564E-04 3.31729371E-02 1.14387175E-02 + 182 1.16500896E-04 3.34804521E-02 1.15399429E-02 + 183 1.19078225E-04 3.37891018E-02 1.16414991E-02 + 184 1.21698011E-04 3.40988842E-02 1.17433853E-02 + 185 1.24360714E-04 3.44097970E-02 1.18456007E-02 + 186 1.27066798E-04 3.47218382E-02 1.19481445E-02 + 187 1.29816730E-04 3.50350057E-02 1.20510160E-02 + 188 1.32610977E-04 3.53492973E-02 1.21542145E-02 + 189 1.35450012E-04 3.56647110E-02 1.22577391E-02 + 190 1.38334306E-04 3.59812447E-02 1.23615891E-02 + 191 1.41264337E-04 3.62988963E-02 1.24657638E-02 + 192 1.44240583E-04 3.66176639E-02 1.25702625E-02 + 193 1.47263524E-04 3.69375454E-02 1.26750844E-02 + 194 1.50333643E-04 3.72585388E-02 1.27802288E-02 + 195 1.53451425E-04 3.75806421E-02 1.28856950E-02 + 196 1.56617360E-04 3.79038533E-02 1.29914822E-02 + 197 1.59831936E-04 3.82281705E-02 1.30975898E-02 + 198 1.63095648E-04 3.85535916E-02 1.32040170E-02 + 199 1.66408989E-04 3.88801148E-02 1.33107632E-02 + 200 1.69772458E-04 3.92077380E-02 1.34178276E-02 + 201 1.73186554E-04 3.95364594E-02 1.35252095E-02 + 202 1.76651780E-04 3.98662771E-02 1.36329083E-02 + 203 1.80168641E-04 4.01971891E-02 1.37409233E-02 + 204 1.83737643E-04 4.05291936E-02 1.38492537E-02 + 205 1.87359297E-04 4.08622886E-02 1.39578990E-02 + 206 1.91034114E-04 4.11964724E-02 1.40668584E-02 + 207 1.94762608E-04 4.15317430E-02 1.41761313E-02 + 208 1.98545298E-04 4.18680987E-02 1.42857169E-02 + 209 2.02382700E-04 4.22055375E-02 1.43956147E-02 + 210 2.06275338E-04 4.25440577E-02 1.45058240E-02 + 211 2.10223734E-04 4.28836574E-02 1.46163441E-02 + 212 2.14228416E-04 4.32243348E-02 1.47271744E-02 + 213 2.18289912E-04 4.35660882E-02 1.48383143E-02 + 214 2.22408753E-04 4.39089158E-02 1.49497630E-02 + 215 2.26585473E-04 4.42528157E-02 1.50615200E-02 + 216 2.30820606E-04 4.45977862E-02 1.51735846E-02 + 217 2.35114693E-04 4.49438257E-02 1.52859562E-02 + 218 2.39468272E-04 4.52909322E-02 1.53986341E-02 + 219 2.43881887E-04 4.56391042E-02 1.55116178E-02 + 220 2.48356084E-04 4.59883398E-02 1.56249066E-02 + 221 2.52891410E-04 4.63386374E-02 1.57384999E-02 + 222 2.57488415E-04 4.66899952E-02 1.58523971E-02 + 223 2.62147652E-04 4.70424116E-02 1.59665976E-02 + 224 2.66869676E-04 4.73958848E-02 1.60811007E-02 + 225 2.71655043E-04 4.77504133E-02 1.61959059E-02 + 226 2.76504313E-04 4.81059953E-02 1.63110126E-02 + 227 2.81418048E-04 4.84626291E-02 1.64264201E-02 + 228 2.86396812E-04 4.88203132E-02 1.65421279E-02 + 229 2.91441172E-04 4.91790458E-02 1.66581354E-02 + 230 2.96551698E-04 4.95388254E-02 1.67744419E-02 + 231 3.01728959E-04 4.98996503E-02 1.68910470E-02 + 232 3.06973530E-04 5.02615188E-02 1.70079500E-02 + 233 3.12285988E-04 5.06244295E-02 1.71251503E-02 + 234 3.17666909E-04 5.09883807E-02 1.72426474E-02 + 235 3.23116875E-04 5.13533708E-02 1.73604407E-02 + 236 3.28636470E-04 5.17193981E-02 1.74785297E-02 + 237 3.34226278E-04 5.20864613E-02 1.75969136E-02 + 238 3.39886887E-04 5.24545586E-02 1.77155921E-02 + 239 3.45618887E-04 5.28236885E-02 1.78345645E-02 + 240 3.51422871E-04 5.31938495E-02 1.79538303E-02 + 241 3.57299434E-04 5.35650400E-02 1.80733889E-02 + 242 3.63249172E-04 5.39372585E-02 1.81932397E-02 + 243 3.69272685E-04 5.43105035E-02 1.83133823E-02 + 244 3.75370574E-04 5.46847734E-02 1.84338160E-02 + 245 3.81543444E-04 5.50600667E-02 1.85545404E-02 + 246 3.87791902E-04 5.54363819E-02 1.86755548E-02 + 247 3.94116555E-04 5.58137176E-02 1.87968587E-02 + 248 4.00518015E-04 5.61920722E-02 1.89184516E-02 + 249 4.06996896E-04 5.65714442E-02 1.90403330E-02 + 250 4.13553812E-04 5.69518322E-02 1.91625024E-02 + 251 4.20189382E-04 5.73332347E-02 1.92849591E-02 + 252 4.26904227E-04 5.77156502E-02 1.94077026E-02 + 253 4.33698968E-04 5.80990773E-02 1.95307325E-02 + 254 4.40574231E-04 5.84835146E-02 1.96540483E-02 + 255 4.47530643E-04 5.88689605E-02 1.97776493E-02 + 256 4.54568833E-04 5.92554137E-02 1.99015351E-02 + 257 4.61689434E-04 5.96428727E-02 2.00257051E-02 + 258 4.68893079E-04 6.00313361E-02 2.01501589E-02 + 259 4.76180405E-04 6.04208025E-02 2.02748959E-02 + 260 4.83552051E-04 6.08112704E-02 2.03999157E-02 + 261 4.91008658E-04 6.12027386E-02 2.05252176E-02 + 262 4.98550868E-04 6.15952055E-02 2.06508013E-02 + 263 5.06179328E-04 6.19886698E-02 2.07766662E-02 + 264 5.13894686E-04 6.23831301E-02 2.09028117E-02 + 265 5.21697591E-04 6.27785850E-02 2.10292375E-02 + 266 5.29588697E-04 6.31750332E-02 2.11559430E-02 + 267 5.37568657E-04 6.35724732E-02 2.12829277E-02 + 268 5.45638129E-04 6.39709038E-02 2.14101911E-02 + 269 5.53797773E-04 6.43703236E-02 2.15377327E-02 + 270 5.62048249E-04 6.47707312E-02 2.16655521E-02 + 271 5.70390222E-04 6.51721253E-02 2.17936487E-02 + 272 5.78824357E-04 6.55745045E-02 2.19220221E-02 + 273 5.87351324E-04 6.59778676E-02 2.20506717E-02 + 274 5.95971793E-04 6.63822131E-02 2.21795972E-02 + 275 6.04686436E-04 6.67875399E-02 2.23087980E-02 + 276 6.13495930E-04 6.71938465E-02 2.24382736E-02 + 277 6.22400951E-04 6.76011317E-02 2.25680236E-02 + 278 6.31402178E-04 6.80093941E-02 2.26980475E-02 + 279 6.40500295E-04 6.84186325E-02 2.28283448E-02 + 280 6.49695985E-04 6.88288456E-02 2.29589151E-02 + 281 6.58989935E-04 6.92400321E-02 2.30897578E-02 + 282 6.68382834E-04 6.96521906E-02 2.32208726E-02 + 283 6.77875371E-04 7.00653201E-02 2.33522589E-02 + 284 6.87468242E-04 7.04794190E-02 2.34839163E-02 + 285 6.97162140E-04 7.08944863E-02 2.36158443E-02 + 286 7.06957764E-04 7.13105207E-02 2.37480425E-02 + 287 7.16855813E-04 7.17275208E-02 2.38805104E-02 + 288 7.26856990E-04 7.21454855E-02 2.40132476E-02 + 289 7.36962000E-04 7.25644135E-02 2.41462535E-02 + 290 7.47171548E-04 7.29843036E-02 2.42795278E-02 + 291 7.57486344E-04 7.34051545E-02 2.44130700E-02 + 292 7.67907098E-04 7.38269650E-02 2.45468797E-02 + 293 7.78434524E-04 7.42497339E-02 2.46809563E-02 + 294 7.89069338E-04 7.46734599E-02 2.48152995E-02 + 295 7.99812257E-04 7.50981419E-02 2.49499087E-02 + 296 8.10664001E-04 7.55237787E-02 2.50847837E-02 + 297 8.21625292E-04 7.59503690E-02 2.52199238E-02 + 298 8.32696855E-04 7.63779116E-02 2.53553288E-02 + 299 8.43879416E-04 7.68064054E-02 2.54909981E-02 + 300 8.55173704E-04 7.72358492E-02 2.56269312E-02 + 301 8.66580449E-04 7.76662418E-02 2.57631279E-02 + 302 8.78100386E-04 7.80975819E-02 2.58995875E-02 + 303 8.89734250E-04 7.85298685E-02 2.60363098E-02 + 304 9.01482777E-04 7.89631003E-02 2.61732942E-02 + 305 9.13346708E-04 7.93972762E-02 2.63105403E-02 + 306 9.25326785E-04 7.98323951E-02 2.64480478E-02 + 307 9.37423752E-04 8.02684557E-02 2.65858161E-02 + 308 9.49638355E-04 8.07054569E-02 2.67238449E-02 + 309 9.61971343E-04 8.11433976E-02 2.68621337E-02 + 310 9.74423466E-04 8.15822767E-02 2.70006821E-02 + 311 9.86995478E-04 8.20220929E-02 2.71394897E-02 + 312 9.99688133E-04 8.24628451E-02 2.72785560E-02 + 313 1.01250219E-03 8.29045323E-02 2.74178807E-02 + 314 1.02543840E-03 8.33471533E-02 2.75574633E-02 + 315 1.03849754E-03 8.37907070E-02 2.76973034E-02 + 316 1.05168036E-03 8.42351922E-02 2.78374006E-02 + 317 1.06498764E-03 8.46806079E-02 2.79777544E-02 + 318 1.07842013E-03 8.51269529E-02 2.81183645E-02 + 319 1.09197861E-03 8.55742261E-02 2.82592305E-02 + 320 1.10566385E-03 8.60224264E-02 2.84003519E-02 + 321 1.11947663E-03 8.64715528E-02 2.85417283E-02 + 322 1.13341772E-03 8.69216041E-02 2.86833593E-02 + 323 1.14748791E-03 8.73725792E-02 2.88252445E-02 + 324 1.16168796E-03 8.78244771E-02 2.89673836E-02 + 325 1.17601868E-03 8.82772967E-02 2.91097760E-02 + 326 1.19048083E-03 8.87310369E-02 2.92524214E-02 + 327 1.20507521E-03 8.91856966E-02 2.93953194E-02 + 328 1.21980261E-03 8.96412748E-02 2.95384696E-02 + 329 1.23466382E-03 9.00977703E-02 2.96818716E-02 + 330 1.24965963E-03 9.05551822E-02 2.98255250E-02 + 331 1.26479084E-03 9.10135093E-02 2.99694293E-02 + 332 1.28005824E-03 9.14727507E-02 3.01135843E-02 + 333 1.29546265E-03 9.19329052E-02 3.02579894E-02 + 334 1.31100485E-03 9.23939719E-02 3.04026443E-02 + 335 1.32668566E-03 9.28559496E-02 3.05475487E-02 + 336 1.34250587E-03 9.33188373E-02 3.06927020E-02 + 337 1.35846631E-03 9.37826340E-02 3.08381040E-02 + 338 1.37456777E-03 9.42473387E-02 3.09837542E-02 + 339 1.39081108E-03 9.47129503E-02 3.11296523E-02 + 340 1.40719704E-03 9.51794679E-02 3.12757978E-02 + 341 1.42372648E-03 9.56468903E-02 3.14221903E-02 + 342 1.44040021E-03 9.61152166E-02 3.15688296E-02 + 343 1.45721905E-03 9.65844457E-02 3.17157151E-02 + 344 1.47418383E-03 9.70545767E-02 3.18628465E-02 + 345 1.49129537E-03 9.75256084E-02 3.20102234E-02 + 346 1.50855451E-03 9.79975401E-02 3.21578455E-02 + 347 1.52596206E-03 9.84703705E-02 3.23057123E-02 + 348 1.54351886E-03 9.89440988E-02 3.24538235E-02 + 349 1.56122575E-03 9.94187239E-02 3.26021787E-02 + 350 1.57908356E-03 9.98942448E-02 3.27507775E-02 + 351 1.59709312E-03 1.00370661E-01 3.28996195E-02 + 352 1.61525529E-03 1.00847970E-01 3.30487044E-02 + 353 1.63357089E-03 1.01326173E-01 3.31980318E-02 + 354 1.65204077E-03 1.01805267E-01 3.33476012E-02 + 355 1.67066579E-03 1.02285253E-01 3.34974124E-02 + 356 1.68944678E-03 1.02766128E-01 3.36474649E-02 + 357 1.70838460E-03 1.03247892E-01 3.37977584E-02 + 358 1.72748010E-03 1.03730545E-01 3.39482925E-02 + 359 1.74673414E-03 1.04214084E-01 3.40990669E-02 + 360 1.76614756E-03 1.04698510E-01 3.42500811E-02 + 361 1.78572124E-03 1.05183820E-01 3.44013348E-02 + 362 1.80545602E-03 1.05670015E-01 3.45528276E-02 + 363 1.82535277E-03 1.06157093E-01 3.47045592E-02 + 364 1.84541236E-03 1.06645054E-01 3.48565291E-02 + 365 1.86563565E-03 1.07133895E-01 3.50087371E-02 + 366 1.88602351E-03 1.07623618E-01 3.51611827E-02 + 367 1.90657681E-03 1.08114219E-01 3.53138656E-02 + 368 1.92729643E-03 1.08605699E-01 3.54667854E-02 + 369 1.94818323E-03 1.09098057E-01 3.56199418E-02 + 370 1.96923809E-03 1.09591292E-01 3.57733344E-02 + 371 1.99046190E-03 1.10085402E-01 3.59269628E-02 + 372 2.01185553E-03 1.10580387E-01 3.60808266E-02 + 373 2.03341986E-03 1.11076246E-01 3.62349256E-02 + 374 2.05515579E-03 1.11572978E-01 3.63892593E-02 + 375 2.07706419E-03 1.12070582E-01 3.65438274E-02 + 376 2.09914595E-03 1.12569057E-01 3.66986295E-02 + 377 2.12140197E-03 1.13068403E-01 3.68536653E-02 + 378 2.14383314E-03 1.13568617E-01 3.70089344E-02 + 379 2.16644035E-03 1.14069701E-01 3.71644365E-02 + 380 2.18922449E-03 1.14571651E-01 3.73201711E-02 + 381 2.21218648E-03 1.15074469E-01 3.74761380E-02 + 382 2.23532720E-03 1.15578152E-01 3.76323368E-02 + 383 2.25864755E-03 1.16082700E-01 3.77887671E-02 + 384 2.28214846E-03 1.16588112E-01 3.79454286E-02 + 385 2.30583081E-03 1.17094387E-01 3.81023209E-02 + 386 2.32969551E-03 1.17601525E-01 3.82594437E-02 + 387 2.35374349E-03 1.18109523E-01 3.84167966E-02 + 388 2.37797564E-03 1.18618382E-01 3.85743793E-02 + 389 2.40239289E-03 1.19128101E-01 3.87321914E-02 + 390 2.42699615E-03 1.19638678E-01 3.88902325E-02 + 391 2.45178633E-03 1.20150113E-01 3.90485024E-02 + 392 2.47676436E-03 1.20662405E-01 3.92070006E-02 + 393 2.50193116E-03 1.21175554E-01 3.93657269E-02 + 394 2.52728766E-03 1.21689557E-01 3.95246808E-02 + 395 2.55283477E-03 1.22204415E-01 3.96838621E-02 + 396 2.57857342E-03 1.22720126E-01 3.98432703E-02 + 397 2.60450455E-03 1.23236690E-01 4.00029052E-02 + 398 2.63062909E-03 1.23754106E-01 4.01627663E-02 + 399 2.65694797E-03 1.24272372E-01 4.03228534E-02 + 400 2.68346212E-03 1.24791489E-01 4.04831661E-02 + 401 2.71017248E-03 1.25311455E-01 4.06437041E-02 + 402 2.73708000E-03 1.25832269E-01 4.08044669E-02 + 403 2.76418560E-03 1.26353931E-01 4.09654543E-02 + 404 2.79149024E-03 1.26876440E-01 4.11266660E-02 + 405 2.81899486E-03 1.27399794E-01 4.12881015E-02 + 406 2.84670040E-03 1.27923994E-01 4.14497606E-02 + 407 2.87460782E-03 1.28449037E-01 4.16116428E-02 + 408 2.90271806E-03 1.28974925E-01 4.17737480E-02 + 409 2.93103208E-03 1.29501654E-01 4.19360756E-02 + 410 2.95955083E-03 1.30029226E-01 4.20986254E-02 + 411 2.98827527E-03 1.30557638E-01 4.22613971E-02 + 412 3.01720635E-03 1.31086891E-01 4.24243903E-02 + 413 3.04634503E-03 1.31616982E-01 4.25876046E-02 + 414 3.07569228E-03 1.32147912E-01 4.27510398E-02 + 415 3.10524906E-03 1.32679680E-01 4.29146954E-02 + 416 3.13501633E-03 1.33212285E-01 4.30785712E-02 + 417 3.16499506E-03 1.33745726E-01 4.32426668E-02 + 418 3.19518623E-03 1.34280001E-01 4.34069819E-02 + 419 3.22559079E-03 1.34815112E-01 4.35715161E-02 + 420 3.25620972E-03 1.35351056E-01 4.37362692E-02 + 421 3.28704401E-03 1.35887832E-01 4.39012407E-02 + 422 3.31809462E-03 1.36425441E-01 4.40664304E-02 + 423 3.34936253E-03 1.36963881E-01 4.42318379E-02 + 424 3.38084872E-03 1.37503151E-01 4.43974628E-02 + 425 3.41255417E-03 1.38043251E-01 4.45634364E-02 + 426 3.44447987E-03 1.38584180E-01 4.47294989E-02 + 427 3.47662681E-03 1.39125937E-01 4.48957779E-02 + 428 3.50899596E-03 1.39668812E-01 4.50622731E-02 + 429 3.54158832E-03 1.40212230E-01 4.52289840E-02 + 430 3.57440488E-03 1.40756474E-01 4.53959105E-02 + 431 3.60744664E-03 1.41301544E-01 4.55630522E-02 + 432 3.64071457E-03 1.41847437E-01 4.57304087E-02 + 433 3.67420970E-03 1.42394154E-01 4.58979797E-02 + 434 3.70793300E-03 1.42941693E-01 4.60657649E-02 + 435 3.74188548E-03 1.43490055E-01 4.62335957E-02 + 436 3.77606814E-03 1.44039237E-01 4.64018045E-02 + 437 3.81048198E-03 1.44589240E-01 4.65702264E-02 + 438 3.84512802E-03 1.45140062E-01 4.67388613E-02 + 439 3.88000725E-03 1.45691322E-01 4.69077086E-02 + 440 3.91512069E-03 1.46243772E-01 4.70767681E-02 + 441 3.95046934E-03 1.46797040E-01 4.72460395E-02 + 442 3.98605422E-03 1.47351124E-01 4.74155225E-02 + 443 4.02187633E-03 1.47906024E-01 4.75852166E-02 + 444 4.05793671E-03 1.48461739E-01 4.77551217E-02 + 445 4.09423636E-03 1.49018268E-01 4.79252373E-02 + 446 4.13077630E-03 1.49575611E-01 4.80955631E-02 + 447 4.16755755E-03 1.50133766E-01 4.82660988E-02 + 448 4.20458114E-03 1.50692733E-01 4.84368442E-02 + 449 4.24184809E-03 1.51252512E-01 4.86077988E-02 + 450 4.27935942E-03 1.51813100E-01 4.87789623E-02 + 451 4.31711617E-03 1.52374499E-01 4.89503344E-02 + 452 4.35511936E-03 1.52936706E-01 4.91219148E-02 + 453 4.39337002E-03 1.53499722E-01 4.92937032E-02 + 454 4.43186919E-03 1.54063545E-01 4.94656993E-02 + 455 4.47061790E-03 1.54628175E-01 4.96379026E-02 + 456 4.50961719E-03 1.55193611E-01 4.98103130E-02 + 457 4.54886809E-03 1.55759853E-01 4.99829300E-02 + 458 4.58837165E-03 1.56326898E-01 5.01557534E-02 + 459 4.62812890E-03 1.56894748E-01 5.03287827E-02 + 460 4.66814089E-03 1.57463401E-01 5.05020178E-02 + 461 4.70840866E-03 1.58032856E-01 5.06754583E-02 + 462 4.74893326E-03 1.58603113E-01 5.08491039E-02 + 463 4.78971574E-03 1.59174171E-01 5.10229542E-02 + 464 4.83075714E-03 1.59746029E-01 5.11970089E-02 + 465 4.87205853E-03 1.60318686E-01 5.13712679E-02 + 466 4.91362094E-03 1.60892142E-01 5.15457306E-02 + 467 4.95544544E-03 1.61466397E-01 5.17203967E-02 + 468 4.99753308E-03 1.62041448E-01 5.18952659E-02 + 469 5.03988491E-03 1.62617297E-01 5.20703380E-02 + 470 5.08250201E-03 1.63193941E-01 5.22456126E-02 + 471 5.12538542E-03 1.63771380E-01 5.24210893E-02 + 472 5.16853622E-03 1.64349614E-01 5.25967680E-02 + 473 5.21195547E-03 1.64928642E-01 5.27726481E-02 + 474 5.25564422E-03 1.65508463E-01 5.29487295E-02 + 475 5.29960356E-03 1.66089076E-01 5.31250118E-02 + 476 5.34383454E-03 1.66670481E-01 5.33014948E-02 + 477 5.38833825E-03 1.67252677E-01 5.34781774E-02 + 478 5.43311574E-03 1.67835663E-01 5.36550605E-02 + 479 5.47816811E-03 1.68419438E-01 5.38321433E-02 + 480 5.52349641E-03 1.69004003E-01 5.40094253E-02 + 481 5.56910174E-03 1.69589354E-01 5.41869064E-02 + 482 5.61498516E-03 1.70175495E-01 5.43645861E-02 + 483 5.66114776E-03 1.70762422E-01 5.45424643E-02 + 484 5.70759061E-03 1.71350135E-01 5.47205404E-02 + 485 5.75431482E-03 1.71938633E-01 5.48988143E-02 + 486 5.80132145E-03 1.72527916E-01 5.50772857E-02 + 487 5.84861159E-03 1.73117983E-01 5.52559541E-02 + 488 5.89618634E-03 1.73708834E-01 5.54348193E-02 + 489 5.94404678E-03 1.74300467E-01 5.56138810E-02 + 490 5.99219401E-03 1.74892882E-01 5.57931388E-02 + 491 6.04062911E-03 1.75486079E-01 5.59725925E-02 + 492 6.08935318E-03 1.76080056E-01 5.61522417E-02 + 493 6.13836732E-03 1.76674813E-01 5.63320860E-02 + 494 6.18767262E-03 1.77270349E-01 5.65121253E-02 + 495 6.23727019E-03 1.77866664E-01 5.66923592E-02 + 496 6.28716112E-03 1.78463757E-01 5.68727873E-02 + 497 6.33734652E-03 1.79061626E-01 5.70534094E-02 + 498 6.38782748E-03 1.79660273E-01 5.72342251E-02 + 499 6.43860512E-03 1.80259695E-01 5.74152341E-02 + 500 6.48968055E-03 1.80859893E-01 5.75964361E-02 + 501 6.54105485E-03 1.81460865E-01 5.77778308E-02 + 502 6.59272916E-03 1.82062611E-01 5.79594179E-02 + 503 6.64470458E-03 1.82665130E-01 5.81411970E-02 + 504 6.69698222E-03 1.83268421E-01 5.83231679E-02 + 505 6.74956319E-03 1.83872485E-01 5.85049171E-02 + 506 6.80244862E-03 1.84477319E-01 5.86872781E-02 + 507 6.85563961E-03 1.85082924E-01 5.88698300E-02 + 508 6.90913729E-03 1.85688277E-01 5.90525726E-02 + 509 6.96294277E-03 1.86295437E-01 5.92355055E-02 + 510 7.01705719E-03 1.86903367E-01 5.94186284E-02 + 511 7.07148165E-03 1.87512064E-01 5.96019411E-02 + 512 7.12621729E-03 1.88121529E-01 5.97854432E-02 + 513 7.18126522E-03 1.88731761E-01 5.99691343E-02 + 514 7.23662659E-03 1.89342760E-01 6.01530142E-02 + 515 7.29230251E-03 1.89954524E-01 6.03370826E-02 + 516 7.34829411E-03 1.90567053E-01 6.05213392E-02 + 517 7.40460253E-03 1.91180346E-01 6.07057836E-02 + 518 7.46122890E-03 1.91794402E-01 6.08904155E-02 + 519 7.51817436E-03 1.92409222E-01 6.10752346E-02 + 520 7.57544003E-03 1.93024804E-01 6.12602406E-02 + 521 7.63302706E-03 1.93641148E-01 6.14454332E-02 + 522 7.69093659E-03 1.94258253E-01 6.16308120E-02 + 523 7.74916974E-03 1.94876118E-01 6.18163769E-02 + 524 7.80772768E-03 1.95494743E-01 6.20021273E-02 + 525 7.86661153E-03 1.96114127E-01 6.21880631E-02 + 526 7.92582244E-03 1.96734270E-01 6.23741839E-02 + 527 7.98536157E-03 1.97355170E-01 6.25604894E-02 + 528 8.04523004E-03 1.97976827E-01 6.27469794E-02 + 529 8.10542902E-03 1.98599241E-01 6.29336534E-02 + 530 8.16595965E-03 1.99222411E-01 6.31205111E-02 + 531 8.22682308E-03 1.99846336E-01 6.33075523E-02 + 532 8.28802047E-03 2.00471015E-01 6.34947767E-02 + 533 8.34955296E-03 2.01096448E-01 6.36821838E-02 + 534 8.41142172E-03 2.01722635E-01 6.38697735E-02 + 535 8.47362789E-03 2.02349574E-01 6.40575454E-02 + 536 8.53617264E-03 2.02977265E-01 6.42454992E-02 + 537 8.59905713E-03 2.03605708E-01 6.44336346E-02 + 538 8.66228251E-03 2.04234901E-01 6.46219512E-02 + 539 8.72584995E-03 2.04864844E-01 6.48104487E-02 + 540 8.78976061E-03 2.05495537E-01 6.49991269E-02 + 541 8.85401565E-03 2.06126979E-01 6.51879855E-02 + 542 8.91861624E-03 2.06759168E-01 6.53770240E-02 + 543 8.98356354E-03 2.07392105E-01 6.55662422E-02 + 544 9.04885873E-03 2.08025789E-01 6.57556398E-02 + 545 9.11450297E-03 2.08660219E-01 6.59452165E-02 + 546 9.18049743E-03 2.09295395E-01 6.61349720E-02 + 547 9.24684329E-03 2.09931316E-01 6.63249058E-02 + 548 9.31354172E-03 2.10567981E-01 6.65150178E-02 + 549 9.38059389E-03 2.11205390E-01 6.67053077E-02 + 550 9.44800097E-03 2.11843541E-01 6.68957750E-02 + 551 9.51576415E-03 2.12482436E-01 6.70864195E-02 + 552 9.58388460E-03 2.13122072E-01 6.72772409E-02 + 553 9.65236351E-03 2.13762449E-01 6.74682389E-02 + 554 9.72120204E-03 2.14403566E-01 6.76592572E-02 + 555 9.79040139E-03 2.15045424E-01 6.78505916E-02 + 556 9.85996274E-03 2.15687837E-01 6.80421014E-02 + 557 9.92988727E-03 2.16331138E-01 6.82337863E-02 + 558 1.00001762E-02 2.16975177E-01 6.84256461E-02 + 559 1.00708306E-02 2.17619953E-01 6.86176805E-02 + 560 1.01418518E-02 2.18265465E-01 6.88098890E-02 + 561 1.02132409E-02 2.18911712E-01 6.90022714E-02 + 562 1.02849992E-02 2.19558695E-01 6.91948274E-02 + 563 1.03571277E-02 2.20206412E-01 6.93875567E-02 + 564 1.04296278E-02 2.20854864E-01 6.95804589E-02 + 565 1.05025005E-02 2.21504048E-01 6.97735338E-02 + 566 1.05757472E-02 2.22153965E-01 6.99667810E-02 + 567 1.06493689E-02 2.22804613E-01 7.01602002E-02 + 568 1.07233669E-02 2.23455993E-01 7.03537911E-02 + 569 1.07977424E-02 2.24108104E-01 7.05475529E-02 + 570 1.08724966E-02 2.24760945E-01 7.07414862E-02 + 571 1.09476307E-02 2.25414515E-01 7.09355903E-02 + 572 1.10231459E-02 2.26068814E-01 7.11298649E-02 + 573 1.10990433E-02 2.26723840E-01 7.13243095E-02 + 574 1.11753243E-02 2.27379594E-01 7.15189240E-02 + 575 1.12519899E-02 2.28036076E-01 7.17137080E-02 + 576 1.13290415E-02 2.28693283E-01 7.19086612E-02 + 577 1.14064802E-02 2.29351216E-01 7.21037832E-02 + 578 1.14843072E-02 2.30009875E-01 7.22990738E-02 + 579 1.15625237E-02 2.30669257E-01 7.24945327E-02 + 580 1.16411310E-02 2.31329364E-01 7.26901595E-02 + 581 1.17201302E-02 2.31990193E-01 7.28859539E-02 + 582 1.17995226E-02 2.32651745E-01 7.30819156E-02 + 583 1.18793094E-02 2.33314019E-01 7.32780442E-02 + 584 1.19594917E-02 2.33977014E-01 7.34743396E-02 + 585 1.20400709E-02 2.34640729E-01 7.36708013E-02 + 586 1.21210481E-02 2.35305165E-01 7.38674290E-02 + 587 1.22024246E-02 2.35970320E-01 7.40642225E-02 + 588 1.22842015E-02 2.36636193E-01 7.42611813E-02 + 589 1.23663802E-02 2.37302785E-01 7.44583053E-02 + 590 1.24489617E-02 2.37970093E-01 7.46555940E-02 + 591 1.25319474E-02 2.38638119E-01 7.48530472E-02 + 592 1.26153384E-02 2.39306861E-01 7.50506645E-02 + 593 1.26991360E-02 2.39976318E-01 7.52484457E-02 + 594 1.27833414E-02 2.40646491E-01 7.54463903E-02 + 595 1.28679558E-02 2.41317377E-01 7.56444982E-02 + 596 1.29529805E-02 2.41988977E-01 7.58427689E-02 + 597 1.30384167E-02 2.42661290E-01 7.60412022E-02 + 598 1.31242657E-02 2.43334316E-01 7.62397978E-02 + 599 1.32105285E-02 2.44008053E-01 7.64385553E-02 + 600 1.32972066E-02 2.44682501E-01 7.66374744E-02 + 601 1.33843010E-02 2.45357660E-01 7.68365547E-02 + 602 1.34718131E-02 2.46033528E-01 7.70357961E-02 + 603 1.35597441E-02 2.46710106E-01 7.72351981E-02 + 604 1.36480952E-02 2.47387392E-01 7.74347604E-02 + 605 1.37368677E-02 2.48065386E-01 7.76344828E-02 + 606 1.38260628E-02 2.48744087E-01 7.78343649E-02 + 607 1.39156817E-02 2.49423495E-01 7.80344064E-02 + 608 1.40057256E-02 2.50103609E-01 7.82346069E-02 + 609 1.40961959E-02 2.50784428E-01 7.84349662E-02 + 610 1.41870937E-02 2.51465952E-01 7.86354839E-02 + 611 1.42784203E-02 2.52148180E-01 7.88361598E-02 + 612 1.43701769E-02 2.52831111E-01 7.90369934E-02 + 613 1.44623649E-02 2.53514745E-01 7.92379845E-02 + 614 1.45549853E-02 2.54199081E-01 7.94391327E-02 + 615 1.46480395E-02 2.54884118E-01 7.96404378E-02 + 616 1.47415288E-02 2.55569856E-01 7.98418995E-02 + 617 1.48354543E-02 2.56256295E-01 8.00435173E-02 + 618 1.49298173E-02 2.56943433E-01 8.02452910E-02 + 619 1.50246190E-02 2.57631269E-01 8.04472202E-02 + 620 1.51198608E-02 2.58319804E-01 8.06493047E-02 + 621 1.52155439E-02 2.59008576E-01 8.08515441E-02 + 622 1.53116694E-02 2.59698501E-01 8.10539381E-02 + 623 1.54082387E-02 2.60389123E-01 8.12562623E-02 + 624 1.55052531E-02 2.61080439E-01 8.14589625E-02 + 625 1.56027137E-02 2.61772451E-01 8.16618163E-02 + 626 1.57006219E-02 2.62465157E-01 8.18648235E-02 + 627 1.57989788E-02 2.63158557E-01 8.20679836E-02 + 628 1.58977858E-02 2.63852649E-01 8.22712963E-02 + 629 1.59970440E-02 2.64547434E-01 8.24747614E-02 + 630 1.60967549E-02 2.65242911E-01 8.26783785E-02 + 631 1.61969195E-02 2.65939078E-01 8.28821473E-02 + 632 1.62975393E-02 2.66635936E-01 8.30860675E-02 + 633 1.63986153E-02 2.67333483E-01 8.32901387E-02 + 634 1.65001490E-02 2.68031719E-01 8.34943606E-02 + 635 1.66021415E-02 2.68730644E-01 8.36987330E-02 + 636 1.67045942E-02 2.69430256E-01 8.39032554E-02 + 637 1.68075082E-02 2.70130555E-01 8.41079276E-02 + 638 1.69108849E-02 2.70831541E-01 8.43127493E-02 + 639 1.70147255E-02 2.71533212E-01 8.45177200E-02 + 640 1.71190313E-02 2.72235568E-01 8.47228395E-02 + 641 1.72238036E-02 2.72938608E-01 8.49281075E-02 + 642 1.73290436E-02 2.73642332E-01 8.51335236E-02 + 643 1.74347525E-02 2.74346739E-01 8.53390876E-02 + 644 1.75409317E-02 2.75051828E-01 8.55447990E-02 + 645 1.76475825E-02 2.75757599E-01 8.57506576E-02 + 646 1.77547060E-02 2.76464050E-01 8.59566631E-02 + 647 1.78623036E-02 2.77171182E-01 8.61628150E-02 + 648 1.79703766E-02 2.77878993E-01 8.63691132E-02 + 649 1.80789261E-02 2.78587483E-01 8.65755572E-02 + 650 1.81879536E-02 2.79296651E-01 8.67821468E-02 + 651 1.82974602E-02 2.80006497E-01 8.69888816E-02 + 652 1.84074472E-02 2.80717020E-01 8.71957612E-02 + 653 1.85179160E-02 2.81428218E-01 8.74027854E-02 + 654 1.86288677E-02 2.82140092E-01 8.76099539E-02 + 655 1.87403037E-02 2.82852640E-01 8.78172663E-02 + 656 1.88522252E-02 2.83565863E-01 8.80247222E-02 + 657 1.89646336E-02 2.84279759E-01 8.82323214E-02 + 658 1.90775300E-02 2.84994327E-01 8.84400636E-02 + 659 1.91909159E-02 2.85709568E-01 8.86479483E-02 + 660 1.93047923E-02 2.86425479E-01 8.88559753E-02 + 661 1.94191607E-02 2.87142061E-01 8.90641442E-02 + 662 1.95340224E-02 2.87859313E-01 8.92724548E-02 + 663 1.96493785E-02 2.88577234E-01 8.94809067E-02 + 664 1.97652304E-02 2.89295823E-01 8.96894995E-02 + 665 1.98815793E-02 2.90015079E-01 8.98982329E-02 + 666 1.99984266E-02 2.90735003E-01 9.01071066E-02 + 667 2.01157736E-02 2.91455593E-01 9.03161203E-02 + 668 2.02336214E-02 2.92176848E-01 9.05252737E-02 + 669 2.03519715E-02 2.92898768E-01 9.07345663E-02 + 670 2.04708250E-02 2.93621353E-01 9.09439980E-02 + 671 2.05901833E-02 2.94344600E-01 9.11535683E-02 + 672 2.07100476E-02 2.95068510E-01 9.13632769E-02 + 673 2.08304193E-02 2.95793082E-01 9.15731235E-02 + 674 2.09512996E-02 2.96518315E-01 9.17831077E-02 + 675 2.10726899E-02 2.97244208E-01 9.19932293E-02 + 676 2.11945913E-02 2.97970761E-01 9.22034879E-02 + 677 2.13170052E-02 2.98697973E-01 9.24138831E-02 + 678 2.14399330E-02 2.99425844E-01 9.26244147E-02 + 679 2.15633758E-02 3.00154371E-01 9.28350823E-02 + 680 2.16873349E-02 3.00883555E-01 9.30458855E-02 + 681 2.18118117E-02 3.01613396E-01 9.32568240E-02 + 682 2.19368075E-02 3.02343891E-01 9.34678976E-02 + 683 2.20623235E-02 3.03075041E-01 9.36791058E-02 + 684 2.21883611E-02 3.03806844E-01 9.38904484E-02 + 685 2.23149215E-02 3.04539301E-01 9.41019250E-02 + 686 2.24420059E-02 3.05272409E-01 9.43135352E-02 + 687 2.25696159E-02 3.06006169E-01 9.45252788E-02 + 688 2.26977525E-02 3.06740580E-01 9.47371553E-02 + 689 2.28264171E-02 3.07475640E-01 9.49491645E-02 + 690 2.29556110E-02 3.08211350E-01 9.51613061E-02 + 691 2.30853355E-02 3.08947708E-01 9.53735796E-02 + 692 2.32155919E-02 3.09684713E-01 9.55859848E-02 + 693 2.33463815E-02 3.10422365E-01 9.57985213E-02 + 694 2.34777055E-02 3.11160663E-01 9.60111888E-02 + 695 2.36095654E-02 3.11899607E-01 9.62239869E-02 + 696 2.37419623E-02 3.12639195E-01 9.64369154E-02 + 697 2.38748976E-02 3.13379426E-01 9.66499738E-02 + 698 2.40083726E-02 3.14120300E-01 9.68631619E-02 + 699 2.41423885E-02 3.14861817E-01 9.70764792E-02 + 700 2.42769467E-02 3.15603974E-01 9.72899255E-02 + 701 2.44120485E-02 3.16346772E-01 9.75035005E-02 + 702 2.45476951E-02 3.17090210E-01 9.77172037E-02 + 703 2.46838879E-02 3.17834287E-01 9.79310349E-02 + 704 2.48206282E-02 3.18579001E-01 9.81449936E-02 + 705 2.49579173E-02 3.19324353E-01 9.83590797E-02 + 706 2.50957564E-02 3.20070341E-01 9.85732927E-02 + 707 2.52341469E-02 3.20816965E-01 9.87876322E-02 + 708 2.53730900E-02 3.21564223E-01 9.90020980E-02 + 709 2.55125872E-02 3.22312116E-01 9.92166898E-02 + 710 2.56526396E-02 3.23060641E-01 9.94314070E-02 + 711 2.57932486E-02 3.23809799E-01 9.96462496E-02 + 712 2.59344155E-02 3.24559588E-01 9.98612170E-02 + 713 2.60761415E-02 3.25310008E-01 1.00076309E-01 + 714 2.62184281E-02 3.26061058E-01 1.00291525E-01 + 715 2.63612764E-02 3.26812736E-01 1.00506865E-01 + 716 2.65046879E-02 3.27565043E-01 1.00722329E-01 + 717 2.66486637E-02 3.28317977E-01 1.00937915E-01 + 718 2.67932052E-02 3.29071537E-01 1.01153625E-01 + 719 2.69383138E-02 3.29825723E-01 1.01369457E-01 + 720 2.70839906E-02 3.30580533E-01 1.01585411E-01 + 721 2.72302371E-02 3.31335968E-01 1.01801487E-01 + 722 2.73770545E-02 3.32092025E-01 1.02017684E-01 + 723 2.75244441E-02 3.32848704E-01 1.02234003E-01 + 724 2.76724073E-02 3.33606004E-01 1.02449621E-01 + 725 2.78209452E-02 3.34363925E-01 1.02666174E-01 + 726 2.79700594E-02 3.35122465E-01 1.02882848E-01 + 727 2.81197509E-02 3.35881624E-01 1.03099641E-01 + 728 2.82700213E-02 3.36641400E-01 1.03316554E-01 + 729 2.84208716E-02 3.37401793E-01 1.03534439E-01 + 730 2.85723034E-02 3.38160944E-01 1.03751595E-01 + 731 2.87243178E-02 3.38922554E-01 1.03968870E-01 + 732 2.88769162E-02 3.39684777E-01 1.04186263E-01 + 733 2.90300999E-02 3.40447614E-01 1.04403774E-01 + 734 2.91838702E-02 3.41211063E-01 1.04621402E-01 + 735 2.93382283E-02 3.41977052E-01 1.04839147E-01 + 736 2.94931757E-02 3.42741737E-01 1.05057009E-01 + 737 2.96487136E-02 3.43507031E-01 1.05274987E-01 + 738 2.98048433E-02 3.44272934E-01 1.05493080E-01 + 739 2.99615661E-02 3.45039445E-01 1.05711290E-01 + 740 3.01188834E-02 3.45806562E-01 1.05929614E-01 + 741 3.02767964E-02 3.46574285E-01 1.06148054E-01 + 742 3.04353064E-02 3.47342612E-01 1.06366608E-01 + 743 3.05944148E-02 3.48111544E-01 1.06585276E-01 + 744 3.07541229E-02 3.48881078E-01 1.06804058E-01 + 745 3.09144319E-02 3.49651215E-01 1.07022953E-01 + 746 3.10753432E-02 3.50421952E-01 1.07241962E-01 + 747 3.12368581E-02 3.51193289E-01 1.07461083E-01 + 748 3.13989779E-02 3.51965225E-01 1.07680317E-01 + 749 3.15617039E-02 3.52737760E-01 1.07899663E-01 + 750 3.17250374E-02 3.53510891E-01 1.08119120E-01 + 751 3.18889797E-02 3.54284619E-01 1.08338689E-01 + 752 3.20535321E-02 3.55058941E-01 1.08558369E-01 + 753 3.22186960E-02 3.55833858E-01 1.08778160E-01 + 754 3.23844726E-02 3.56609368E-01 1.08998060E-01 + 755 3.25508632E-02 3.57385470E-01 1.09218071E-01 + 756 3.27178692E-02 3.58162163E-01 1.09438192E-01 + 757 3.28854918E-02 3.58939446E-01 1.09658421E-01 + 758 3.30537324E-02 3.59717318E-01 1.09878760E-01 + 759 3.32225923E-02 3.60495778E-01 1.10099207E-01 + 760 3.33920727E-02 3.61274826E-01 1.10319762E-01 + 761 3.35621750E-02 3.62054459E-01 1.10540425E-01 + 762 3.37329006E-02 3.62834677E-01 1.10761195E-01 + 763 3.39042506E-02 3.63615480E-01 1.10982073E-01 + 764 3.40762264E-02 3.64396865E-01 1.11203057E-01 + 765 3.42488293E-02 3.65178832E-01 1.11424148E-01 + 766 3.44220607E-02 3.65961380E-01 1.11645344E-01 + 767 3.45959217E-02 3.66744507E-01 1.11866647E-01 + 768 3.47704138E-02 3.67528213E-01 1.12088054E-01 + 769 3.49455383E-02 3.68312497E-01 1.12309567E-01 + 770 3.51212964E-02 3.69097357E-01 1.12531184E-01 + 771 3.52976894E-02 3.69882793E-01 1.12752906E-01 + 772 3.54747187E-02 3.70668803E-01 1.12974731E-01 + 773 3.56523855E-02 3.71455387E-01 1.13196660E-01 + 774 3.58306912E-02 3.72242542E-01 1.13418692E-01 + 775 3.60096370E-02 3.73030269E-01 1.13640827E-01 + 776 3.61892244E-02 3.73818565E-01 1.13863064E-01 + 777 3.63694545E-02 3.74607431E-01 1.14085403E-01 + 778 3.65503286E-02 3.75396864E-01 1.14307844E-01 + 779 3.67318482E-02 3.76186864E-01 1.14530387E-01 + 780 3.69140144E-02 3.76977429E-01 1.14753030E-01 + 781 3.70968287E-02 3.77768559E-01 1.14975774E-01 + 782 3.72802922E-02 3.78560252E-01 1.15198619E-01 + 783 3.74644063E-02 3.79352507E-01 1.15421563E-01 + 784 3.76491724E-02 3.80145323E-01 1.15644606E-01 + 785 3.78345916E-02 3.80938699E-01 1.15867749E-01 + 786 3.80206653E-02 3.81732634E-01 1.16090991E-01 + 787 3.82073949E-02 3.82527126E-01 1.16314331E-01 + 788 3.83947815E-02 3.83322174E-01 1.16537770E-01 + 789 3.85828266E-02 3.84117777E-01 1.16761306E-01 + 790 3.87715313E-02 3.84913935E-01 1.16984939E-01 + 791 3.89608971E-02 3.85710645E-01 1.17208669E-01 + 792 3.91509252E-02 3.86507907E-01 1.17432496E-01 + 793 3.93416168E-02 3.87305719E-01 1.17656419E-01 + 794 3.95329734E-02 3.88104080E-01 1.17880439E-01 + 795 3.97249962E-02 3.88902989E-01 1.18104553E-01 + 796 3.99176865E-02 3.89702445E-01 1.18328763E-01 + 797 4.01110457E-02 3.90502447E-01 1.18553067E-01 + 798 4.03050749E-02 3.91302992E-01 1.18777466E-01 + 799 4.04997755E-02 3.92104081E-01 1.19001959E-01 + 800 4.06951488E-02 3.92905712E-01 1.19226546E-01 + 801 4.08911961E-02 3.93707883E-01 1.19451226E-01 + 802 4.10879187E-02 3.94510593E-01 1.19675999E-01 + 803 4.12853179E-02 3.95313842E-01 1.19900865E-01 + 804 4.14833950E-02 3.96117627E-01 1.20125823E-01 + 805 4.16821513E-02 3.96921948E-01 1.20350872E-01 + 806 4.18815880E-02 3.97726803E-01 1.20576013E-01 + 807 4.20817065E-02 3.98532191E-01 1.20801245E-01 + 808 4.22825081E-02 3.99338111E-01 1.21026568E-01 + 809 4.24839940E-02 4.00144561E-01 1.21251981E-01 + 810 4.26861656E-02 4.00951540E-01 1.21477485E-01 + 811 4.28890241E-02 4.01759047E-01 1.21703077E-01 + 812 4.30925708E-02 4.02567081E-01 1.21928759E-01 + 813 4.32968071E-02 4.03375639E-01 1.22154530E-01 + 814 4.35017342E-02 4.04184721E-01 1.22380390E-01 + 815 4.37073534E-02 4.04994326E-01 1.22606337E-01 + 816 4.39136660E-02 4.05804452E-01 1.22832372E-01 + 817 4.41206733E-02 4.06615098E-01 1.23058495E-01 + 818 4.43283765E-02 4.07426262E-01 1.23284705E-01 + 819 4.45367771E-02 4.08237943E-01 1.23511001E-01 + 820 4.47458761E-02 4.09050140E-01 1.23737383E-01 + 821 4.49556750E-02 4.09862851E-01 1.23963852E-01 + 822 4.51661751E-02 4.10676075E-01 1.24190405E-01 + 823 4.53773775E-02 4.11489810E-01 1.24417044E-01 + 824 4.55892837E-02 4.12304056E-01 1.24643768E-01 + 825 4.58018948E-02 4.13118810E-01 1.24870576E-01 + 826 4.60152122E-02 4.13934072E-01 1.25097468E-01 + 827 4.62292372E-02 4.14749840E-01 1.25324443E-01 + 828 4.64439710E-02 4.15566112E-01 1.25551502E-01 + 829 4.66594149E-02 4.16382887E-01 1.25778644E-01 + 830 4.68755702E-02 4.17200164E-01 1.26005868E-01 + 831 4.70924382E-02 4.18017941E-01 1.26233174E-01 + 832 4.73100201E-02 4.18836216E-01 1.26460562E-01 + 833 4.75283173E-02 4.19654989E-01 1.26688031E-01 + 834 4.77473311E-02 4.20474258E-01 1.26915582E-01 + 835 4.79670626E-02 4.21294021E-01 1.27143212E-01 + 836 4.81875132E-02 4.22114277E-01 1.27370923E-01 + 837 4.84086841E-02 4.22935024E-01 1.27598714E-01 + 838 4.86305767E-02 4.23756261E-01 1.27826584E-01 + 839 4.88531922E-02 4.24577986E-01 1.28054533E-01 + 840 4.90765319E-02 4.25400199E-01 1.28282561E-01 + 841 4.93005970E-02 4.26222896E-01 1.28510667E-01 + 842 4.95253889E-02 4.27046078E-01 1.28738851E-01 + 843 4.97509088E-02 4.27869741E-01 1.28967113E-01 + 844 4.99771579E-02 4.28693885E-01 1.29195451E-01 + 845 5.02041376E-02 4.29518509E-01 1.29423867E-01 + 846 5.04318491E-02 4.30343610E-01 1.29652358E-01 + 847 5.06602938E-02 4.31169187E-01 1.29880926E-01 + 848 5.08894727E-02 4.31995239E-01 1.30109569E-01 + 849 5.11193873E-02 4.32821763E-01 1.30338288E-01 + 850 5.13500388E-02 4.33648759E-01 1.30567081E-01 + 851 5.15814285E-02 4.34476225E-01 1.30795949E-01 + 852 5.18135576E-02 4.35304158E-01 1.31024891E-01 + 853 5.20464274E-02 4.36132559E-01 1.31253906E-01 + 854 5.22800391E-02 4.36961424E-01 1.31482995E-01 + 855 5.25143941E-02 4.37790752E-01 1.31712156E-01 + 856 5.27494936E-02 4.38620542E-01 1.31941390E-01 + 857 5.29853388E-02 4.39450792E-01 1.32170697E-01 + 858 5.32219310E-02 4.40281500E-01 1.32400074E-01 + 859 5.34592715E-02 4.41112665E-01 1.32629524E-01 + 860 5.36973615E-02 4.41944285E-01 1.32859044E-01 + 861 5.39362023E-02 4.42776358E-01 1.33088635E-01 + 862 5.41757952E-02 4.43608883E-01 1.33318295E-01 + 863 5.44161413E-02 4.44441858E-01 1.33548026E-01 + 864 5.46572420E-02 4.45275281E-01 1.33777826E-01 + 865 5.48990985E-02 4.46109150E-01 1.34007695E-01 + 866 5.51417121E-02 4.46943465E-01 1.34237633E-01 + 867 5.53850840E-02 4.47778223E-01 1.34467638E-01 + 868 5.56292155E-02 4.48613422E-01 1.34697712E-01 + 869 5.58741078E-02 4.49449060E-01 1.34927853E-01 + 870 5.61197622E-02 4.50285137E-01 1.35158061E-01 + 871 5.63661799E-02 4.51121649E-01 1.35388335E-01 + 872 5.66133622E-02 4.51958596E-01 1.35618676E-01 + 873 5.68613103E-02 4.52795976E-01 1.35849083E-01 + 874 5.71100255E-02 4.53633786E-01 1.36079555E-01 + 875 5.73595090E-02 4.54472026E-01 1.36310092E-01 + 876 5.76097620E-02 4.55310692E-01 1.36540694E-01 + 877 5.78607858E-02 4.56149784E-01 1.36771361E-01 + 878 5.81125817E-02 4.56989300E-01 1.37002091E-01 + 879 5.83651508E-02 4.57829237E-01 1.37232884E-01 + 880 5.86184945E-02 4.58669595E-01 1.37463741E-01 + 881 5.88726139E-02 4.59510370E-01 1.37694660E-01 + 882 5.91275104E-02 4.60351562E-01 1.37925641E-01 + 883 5.93831851E-02 4.61193168E-01 1.38156685E-01 + 884 5.96396392E-02 4.62035186E-01 1.38387790E-01 + 885 5.98968741E-02 4.62877615E-01 1.38618956E-01 + 886 6.01548909E-02 4.63720453E-01 1.38850182E-01 + 887 6.04136908E-02 4.64563698E-01 1.39081469E-01 + 888 6.06732752E-02 4.65407348E-01 1.39312816E-01 + 889 6.09336453E-02 4.66251400E-01 1.39544222E-01 + 890 6.11948021E-02 4.67095854E-01 1.39775688E-01 + 891 6.14567471E-02 4.67940707E-01 1.40007212E-01 + 892 6.17194814E-02 4.68785957E-01 1.40238794E-01 + 893 6.19830063E-02 4.69631602E-01 1.40470435E-01 + 894 6.22473229E-02 4.70477641E-01 1.40702133E-01 + 895 6.25124325E-02 4.71324071E-01 1.40933888E-01 + 896 6.27783364E-02 4.72170890E-01 1.41165699E-01 + 897 6.30450357E-02 4.73018097E-01 1.41397567E-01 + 898 6.33125316E-02 4.73865689E-01 1.41629491E-01 + 899 6.35808254E-02 4.74713665E-01 1.41861470E-01 + 900 6.38499183E-02 4.75562022E-01 1.42093504E-01 + 901 6.41198116E-02 4.76410758E-01 1.42325593E-01 + 902 6.43905064E-02 4.77259871E-01 1.42557736E-01 + 903 6.46620039E-02 4.78109360E-01 1.42789934E-01 + 904 6.49343053E-02 4.78959222E-01 1.43022184E-01 + 905 6.52074120E-02 4.79809455E-01 1.43254488E-01 + 906 6.54813250E-02 4.80660057E-01 1.43486844E-01 + 907 6.57560456E-02 4.81511026E-01 1.43719253E-01 + 908 6.60315750E-02 4.82362360E-01 1.43951713E-01 + 909 6.63079144E-02 4.83214056E-01 1.44184225E-01 + 910 6.65850650E-02 4.84066114E-01 1.44416788E-01 + 911 6.68630280E-02 4.84918530E-01 1.44649401E-01 + 912 6.71418047E-02 4.85771302E-01 1.44882065E-01 + 913 6.74213961E-02 4.86624429E-01 1.45114778E-01 + 914 6.77018036E-02 4.87477907E-01 1.45347541E-01 + 915 6.79830283E-02 4.88331736E-01 1.45580353E-01 + 916 6.82650714E-02 4.89185913E-01 1.45813213E-01 + 917 6.85479341E-02 4.90040435E-01 1.46046122E-01 + 918 6.88316176E-02 4.90895300E-01 1.46279078E-01 + 919 6.91161231E-02 4.91750507E-01 1.46512082E-01 + 920 6.94014518E-02 4.92606053E-01 1.46745132E-01 + 921 6.96876048E-02 4.93461936E-01 1.46978229E-01 + 922 6.99745835E-02 4.94318153E-01 1.47211373E-01 + 923 7.02623889E-02 4.95174703E-01 1.47444561E-01 + 924 7.05510222E-02 4.96031582E-01 1.47677796E-01 + 925 7.08404847E-02 4.96888790E-01 1.47911075E-01 + 926 7.11307774E-02 4.97746323E-01 1.48144398E-01 + 927 7.14219017E-02 4.98604180E-01 1.48377766E-01 + 928 7.17138586E-02 4.99462357E-01 1.48611177E-01 + 929 7.20066494E-02 5.00320853E-01 1.48844632E-01 + 930 7.23002752E-02 5.01179666E-01 1.49078129E-01 + 931 7.25947372E-02 5.02038793E-01 1.49311669E-01 + 932 7.28900366E-02 5.02898231E-01 1.49545251E-01 + 933 7.31861746E-02 5.03757979E-01 1.49778874E-01 + 934 7.34831523E-02 5.04618034E-01 1.50012538E-01 + 935 7.37809708E-02 5.05478394E-01 1.50246244E-01 + 936 7.40796315E-02 5.06339056E-01 1.50479989E-01 + 937 7.43791354E-02 5.07200018E-01 1.50713775E-01 + 938 7.46794836E-02 5.08061277E-01 1.50947600E-01 + 939 7.49806775E-02 5.08922832E-01 1.51181464E-01 + 940 7.52827180E-02 5.09784680E-01 1.51415366E-01 + 941 7.55856065E-02 5.10646817E-01 1.51649307E-01 + 942 7.58893439E-02 5.11509243E-01 1.51883286E-01 + 943 7.61939316E-02 5.12371955E-01 1.52117302E-01 + 944 7.64993707E-02 5.13234949E-01 1.52351355E-01 + 945 7.68056622E-02 5.14098224E-01 1.52585445E-01 + 946 7.71128075E-02 5.14961777E-01 1.52819571E-01 + 947 7.74208075E-02 5.15825605E-01 1.53053733E-01 + 948 7.77296635E-02 5.16689707E-01 1.53287930E-01 + 949 7.80393767E-02 5.17554080E-01 1.53522161E-01 + 950 7.83499481E-02 5.18418720E-01 1.53756428E-01 + 951 7.86613789E-02 5.19283626E-01 1.53990728E-01 + 952 7.89736703E-02 5.20148795E-01 1.54225062E-01 + 953 7.92868233E-02 5.21014225E-01 1.54459429E-01 + 954 7.96008392E-02 5.21879912E-01 1.54693829E-01 + 955 7.99157191E-02 5.22745855E-01 1.54928262E-01 + 956 8.02314640E-02 5.23612051E-01 1.55162726E-01 + 957 8.05480753E-02 5.24478497E-01 1.55397222E-01 + 958 8.08655539E-02 5.25345191E-01 1.55631749E-01 + 959 8.11839010E-02 5.26212129E-01 1.55866307E-01 + 960 8.15031177E-02 5.27079310E-01 1.56100894E-01 + 961 8.18232052E-02 5.27946731E-01 1.56335512E-01 + 962 8.21441646E-02 5.28814389E-01 1.56570159E-01 + 963 8.24659971E-02 5.29682281E-01 1.56804835E-01 + 964 8.27887036E-02 5.30550405E-01 1.57039540E-01 + 965 8.31122855E-02 5.31418758E-01 1.57274273E-01 + 966 8.34367437E-02 5.32287338E-01 1.57509033E-01 + 967 8.37620794E-02 5.33156141E-01 1.57743821E-01 + 968 8.40882937E-02 5.34025166E-01 1.57978636E-01 + 969 8.44153878E-02 5.34894409E-01 1.58213477E-01 + 970 8.47433627E-02 5.35763867E-01 1.58448344E-01 + 971 8.50722196E-02 5.36633538E-01 1.58683237E-01 + 972 8.54019595E-02 5.37503420E-01 1.58918154E-01 + 973 8.57325836E-02 5.38373509E-01 1.59153097E-01 + 974 8.60640929E-02 5.39243802E-01 1.59388064E-01 + 975 8.63964887E-02 5.40114297E-01 1.59623054E-01 + 976 8.67297719E-02 5.40984991E-01 1.59858068E-01 + 977 8.70639437E-02 5.41855882E-01 1.60093106E-01 + 978 8.73990052E-02 5.42726965E-01 1.60328165E-01 + 979 8.77349574E-02 5.43598240E-01 1.60563247E-01 + 980 8.80718016E-02 5.44469702E-01 1.60798351E-01 + 981 8.84095386E-02 5.45341349E-01 1.61033475E-01 + 982 8.87481697E-02 5.46213178E-01 1.61268621E-01 + 983 8.90876960E-02 5.47085186E-01 1.61503787E-01 + 984 8.94281185E-02 5.47957370E-01 1.61738973E-01 + 985 8.97694383E-02 5.48829728E-01 1.61974179E-01 + 986 9.01116564E-02 5.49702257E-01 1.62209404E-01 + 987 9.04547741E-02 5.50605717E-01 1.62444647E-01 + 988 9.07987923E-02 5.51447813E-01 1.62679909E-01 + 989 9.11437121E-02 5.52320835E-01 1.62915189E-01 + 990 9.14895346E-02 5.53194016E-01 1.63150486E-01 + 991 9.18362609E-02 5.54067353E-01 1.63387416E-01 + 992 9.21838920E-02 5.54940843E-01 1.63622754E-01 + 993 9.25324290E-02 5.55818048E-01 1.63858109E-01 + 994 9.28818730E-02 5.56691852E-01 1.64093479E-01 + 995 9.32322251E-02 5.57565800E-01 1.64328864E-01 + 996 9.35834862E-02 5.58439889E-01 1.64564264E-01 + 997 9.39356575E-02 5.59314116E-01 1.64799679E-01 + 998 9.42887401E-02 5.60188477E-01 1.65035108E-01 + 999 9.46427349E-02 5.61062971E-01 1.65270550E-01 + 1000 9.49976430E-02 5.61937593E-01 1.65506005E-01 + 1001 9.53534655E-02 5.62812341E-01 1.65741472E-01 + 1002 9.57102035E-02 5.63687211E-01 1.65976952E-01 + 1003 9.60678580E-02 5.64562201E-01 1.66212444E-01 + 1004 9.64264299E-02 5.65437308E-01 1.66447947E-01 + 1005 9.67859205E-02 5.66312527E-01 1.66683461E-01 + 1006 9.71463307E-02 5.67187857E-01 1.66918985E-01 + 1007 9.75076615E-02 5.68063294E-01 1.67154520E-01 + 1008 9.78699140E-02 5.68938835E-01 1.67390064E-01 + 1009 9.82330892E-02 5.69814477E-01 1.67625617E-01 + 1010 9.85971882E-02 5.70690216E-01 1.67861178E-01 + 1011 9.89622120E-02 5.71566050E-01 1.68096748E-01 + 1012 9.93281616E-02 5.72441975E-01 1.68332326E-01 + 1013 9.96950381E-02 5.73317988E-01 1.68567911E-01 + 1014 1.00062842E-01 5.74194085E-01 1.68803504E-01 + 1015 1.00431576E-01 5.75070265E-01 1.69039102E-01 + 1016 1.00801239E-01 5.75946522E-01 1.69274707E-01 + 1017 1.01171833E-01 5.76822855E-01 1.69510317E-01 + 1018 1.01543359E-01 5.77699260E-01 1.69745933E-01 + 1019 1.01915818E-01 5.78575733E-01 1.69981553E-01 + 1020 1.02289211E-01 5.79452272E-01 1.70217177E-01 + 1021 1.02663539E-01 5.80328873E-01 1.70452806E-01 + 1022 1.03038803E-01 5.81205532E-01 1.70688437E-01 + 1023 1.03415004E-01 5.82082247E-01 1.70924072E-01 + 1024 1.03792143E-01 5.82959014E-01 1.71159709E-01 + 1025 1.04170220E-01 5.83835830E-01 1.71395348E-01 + 1026 1.04549238E-01 5.84712691E-01 1.71630989E-01 + 1027 1.04929197E-01 5.85589594E-01 1.71866631E-01 + 1028 1.05310098E-01 5.86466536E-01 1.72102274E-01 + 1029 1.05691942E-01 5.87343514E-01 1.72337917E-01 + 1030 1.06074730E-01 5.88220523E-01 1.72573560E-01 + 1031 1.06458463E-01 5.89097561E-01 1.72809202E-01 + 1032 1.06843141E-01 5.89974624E-01 1.73044844E-01 + 1033 1.07228767E-01 5.90851709E-01 1.73280483E-01 + 1034 1.07615340E-01 5.91728812E-01 1.73516121E-01 + 1035 1.08002863E-01 5.92605930E-01 1.73751757E-01 + 1036 1.08391335E-01 5.93483059E-01 1.73987389E-01 + 1037 1.08780758E-01 5.94360196E-01 1.74223019E-01 + 1038 1.09171133E-01 5.95237338E-01 1.74458644E-01 + 1039 1.09562460E-01 5.96114481E-01 1.74694266E-01 + 1040 1.09954742E-01 5.96991621E-01 1.74929883E-01 + 1041 1.10347978E-01 5.97868755E-01 1.75165495E-01 + 1042 1.10742169E-01 5.98745880E-01 1.75401101E-01 + 1043 1.11137318E-01 5.99622992E-01 1.75636701E-01 + 1044 1.11533423E-01 6.00500087E-01 1.75872295E-01 + 1045 1.11930488E-01 6.01377162E-01 1.76107882E-01 + 1046 1.12328511E-01 6.02254213E-01 1.76343462E-01 + 1047 1.12727495E-01 6.03131238E-01 1.76579034E-01 + 1048 1.13127441E-01 6.04008231E-01 1.76814598E-01 + 1049 1.13528349E-01 6.04885190E-01 1.77050153E-01 + 1050 1.13930220E-01 6.05762110E-01 1.77285699E-01 + 1051 1.14333055E-01 6.06638989E-01 1.77521235E-01 + 1052 1.14736855E-01 6.07515823E-01 1.77756762E-01 + 1053 1.15141622E-01 6.08392608E-01 1.77992278E-01 + 1054 1.15547355E-01 6.09269341E-01 1.78227783E-01 + 1055 1.15954056E-01 6.10146017E-01 1.78463277E-01 + 1056 1.16361726E-01 6.11022633E-01 1.78698759E-01 + 1057 1.16770366E-01 6.11899186E-01 1.78934228E-01 + 1058 1.17179976E-01 6.12775671E-01 1.79169685E-01 + 1059 1.17590559E-01 6.13652086E-01 1.79405129E-01 + 1060 1.18002113E-01 6.14528426E-01 1.79640559E-01 + 1061 1.18414641E-01 6.15404687E-01 1.79875975E-01 + 1062 1.18828143E-01 6.16280867E-01 1.80111377E-01 + 1063 1.19242621E-01 6.17156961E-01 1.80346763E-01 + 1064 1.19658075E-01 6.18032965E-01 1.80582134E-01 + 1065 1.20074505E-01 6.18908875E-01 1.80817490E-01 + 1066 1.20491914E-01 6.19784689E-01 1.81052828E-01 + 1067 1.20910301E-01 6.20660402E-01 1.81288151E-01 + 1068 1.21329669E-01 6.21536010E-01 1.81523455E-01 + 1069 1.21750016E-01 6.22411510E-01 1.81758742E-01 + 1070 1.22171346E-01 6.23286897E-01 1.81994011E-01 + 1071 1.22593657E-01 6.24162168E-01 1.82229262E-01 + 1072 1.23016952E-01 6.25037320E-01 1.82464493E-01 + 1073 1.23441232E-01 6.25912347E-01 1.82699705E-01 + 1074 1.23866496E-01 6.26787247E-01 1.82934896E-01 + 1075 1.24292746E-01 6.27662015E-01 1.83170068E-01 + 1076 1.24719983E-01 6.28536649E-01 1.83405218E-01 + 1077 1.25148208E-01 6.29411142E-01 1.83640347E-01 + 1078 1.25577421E-01 6.30285493E-01 1.83875454E-01 + 1079 1.26007623E-01 6.31159697E-01 1.84110539E-01 + 1080 1.26438816E-01 6.32033749E-01 1.84345602E-01 + 1081 1.26871000E-01 6.32907647E-01 1.84580641E-01 + 1082 1.27304176E-01 6.33781386E-01 1.84815656E-01 + 1083 1.27738344E-01 6.34654963E-01 1.85050647E-01 + 1084 1.28173507E-01 6.35528372E-01 1.85285614E-01 + 1085 1.28609664E-01 6.36401611E-01 1.85520556E-01 + 1086 1.29046816E-01 6.37274676E-01 1.85755472E-01 + 1087 1.29484964E-01 6.38147561E-01 1.85990362E-01 + 1088 1.29924110E-01 6.39020265E-01 1.86225226E-01 + 1089 1.30364253E-01 6.39892781E-01 1.86460063E-01 + 1090 1.30805395E-01 6.40765107E-01 1.86694873E-01 + 1091 1.31247537E-01 6.41637239E-01 1.86929655E-01 + 1092 1.31690679E-01 6.42509171E-01 1.87164408E-01 + 1093 1.32134822E-01 6.43380902E-01 1.87399133E-01 + 1094 1.32579968E-01 6.44252425E-01 1.87633829E-01 + 1095 1.33026116E-01 6.45123738E-01 1.87868495E-01 + 1096 1.33473268E-01 6.45994835E-01 1.88103131E-01 + 1097 1.33921424E-01 6.46865714E-01 1.88337737E-01 + 1098 1.34370586E-01 6.47736370E-01 1.88572311E-01 + 1099 1.34820754E-01 6.48606799E-01 1.88806855E-01 + 1100 1.35271928E-01 6.49476996E-01 1.89041366E-01 + 1101 1.35724111E-01 6.50346959E-01 1.89275845E-01 + 1102 1.36177302E-01 6.51216682E-01 1.89510290E-01 + 1103 1.36631502E-01 6.52086161E-01 1.89744703E-01 + 1104 1.37086712E-01 6.52955393E-01 1.89979082E-01 + 1105 1.37542933E-01 6.53824372E-01 1.90213427E-01 + 1106 1.38000166E-01 6.54693096E-01 1.90447736E-01 + 1107 1.38458412E-01 6.55561560E-01 1.90682011E-01 + 1108 1.38917670E-01 6.56429759E-01 1.90916250E-01 + 1109 1.39377943E-01 6.57297690E-01 1.91150453E-01 + 1110 1.39839230E-01 6.58165348E-01 1.91384620E-01 + 1111 1.40301533E-01 6.59032730E-01 1.91618749E-01 + 1112 1.40764853E-01 6.59899830E-01 1.91852841E-01 + 1113 1.41229189E-01 6.60766645E-01 1.92086895E-01 + 1114 1.41694544E-01 6.61633170E-01 1.92320911E-01 + 1115 1.42160917E-01 6.62499402E-01 1.92554887E-01 + 1116 1.42628309E-01 6.63365335E-01 1.92788825E-01 + 1117 1.43096722E-01 6.64230966E-01 1.93022722E-01 + 1118 1.43566156E-01 6.65096291E-01 1.93256580E-01 + 1119 1.44036611E-01 6.65961305E-01 1.93490396E-01 + 1120 1.44508088E-01 6.66826004E-01 1.93724171E-01 + 1121 1.44980589E-01 6.67690384E-01 1.93957905E-01 + 1122 1.45454114E-01 6.68554440E-01 1.94191597E-01 + 1123 1.45928663E-01 6.69418168E-01 1.94425245E-01 + 1124 1.46404238E-01 6.70281563E-01 1.94658851E-01 + 1125 1.46880839E-01 6.71144623E-01 1.94892414E-01 + 1126 1.47358466E-01 6.72007341E-01 1.95125932E-01 + 1127 1.47837121E-01 6.72869714E-01 1.95359406E-01 + 1128 1.48316805E-01 6.73731738E-01 1.95592835E-01 + 1129 1.48797517E-01 6.74593407E-01 1.95826218E-01 + 1130 1.49279259E-01 6.75454719E-01 1.96059556E-01 + 1131 1.49762032E-01 6.76315668E-01 1.96292847E-01 + 1132 1.50245836E-01 6.77176250E-01 1.96526091E-01 + 1133 1.50730671E-01 6.78036460E-01 1.96759288E-01 + 1134 1.51216539E-01 6.78896295E-01 1.96992438E-01 + 1135 1.51703440E-01 6.79755750E-01 1.97225539E-01 + 1136 1.52191375E-01 6.80614820E-01 1.97458592E-01 + 1137 1.52680345E-01 6.81473501E-01 1.97691595E-01 + 1138 1.53170350E-01 6.82331789E-01 1.97924549E-01 + 1139 1.53661392E-01 6.83189679E-01 1.98157452E-01 + 1140 1.54153469E-01 6.84047167E-01 1.98390305E-01 + 1141 1.54646585E-01 6.84904249E-01 1.98623108E-01 + 1142 1.55140738E-01 6.85760919E-01 1.98855858E-01 + 1143 1.55635930E-01 6.86617174E-01 1.99088557E-01 + 1144 1.56132161E-01 6.87473009E-01 1.99321203E-01 + 1145 1.56629432E-01 6.88328420E-01 1.99553796E-01 + 1146 1.57127745E-01 6.89183401E-01 1.99786336E-01 + 1147 1.57627098E-01 6.90037950E-01 2.00018822E-01 + 1148 1.58127493E-01 6.90892060E-01 2.00251254E-01 + 1149 1.58628932E-01 6.91745729E-01 2.00483631E-01 + 1150 1.59131413E-01 6.92598950E-01 2.00715953E-01 + 1151 1.59634939E-01 6.93451720E-01 2.00948219E-01 + 1152 1.60139509E-01 6.94304035E-01 2.01180428E-01 + 1153 1.60645124E-01 6.95155889E-01 2.01412581E-01 + 1154 1.61151786E-01 6.96007278E-01 2.01644677E-01 + 1155 1.61659494E-01 6.96858198E-01 2.01876716E-01 + 1156 1.62168249E-01 6.97708644E-01 2.02108696E-01 + 1157 1.62678052E-01 6.98558611E-01 2.02340618E-01 + 1158 1.63188903E-01 6.99408096E-01 2.02572480E-01 + 1159 1.63700803E-01 7.00257093E-01 2.02804284E-01 + 1160 1.64213753E-01 7.01105598E-01 2.03036027E-01 + 1161 1.64727754E-01 7.01953607E-01 2.03267710E-01 + 1162 1.65242805E-01 7.02801114E-01 2.03499331E-01 + 1163 1.65758908E-01 7.03648116E-01 2.03730892E-01 + 1164 1.66276063E-01 7.04494607E-01 2.03962391E-01 + 1165 1.66794270E-01 7.05340584E-01 2.04193827E-01 + 1166 1.67313531E-01 7.06186041E-01 2.04425200E-01 + 1167 1.67833846E-01 7.07030974E-01 2.04656511E-01 + 1168 1.68355215E-01 7.07875378E-01 2.04887757E-01 + 1169 1.68877639E-01 7.08719249E-01 2.05118939E-01 + 1170 1.69401119E-01 7.09562582E-01 2.05350057E-01 + 1171 1.69925656E-01 7.10405373E-01 2.05581109E-01 + 1172 1.70451249E-01 7.11247617E-01 2.05812096E-01 + 1173 1.70977899E-01 7.12089309E-01 2.06043017E-01 + 1174 1.71505608E-01 7.12930445E-01 2.06273871E-01 + 1175 1.72034375E-01 7.13771020E-01 2.06504658E-01 + 1176 1.72564201E-01 7.14611029E-01 2.06735377E-01 + 1177 1.73095087E-01 7.15450468E-01 2.06966028E-01 + 1178 1.73627032E-01 7.16289332E-01 2.07196611E-01 + 1179 1.74160039E-01 7.17127617E-01 2.07427125E-01 + 1180 1.74694107E-01 7.17965318E-01 2.07657570E-01 + 1181 1.75229237E-01 7.18802430E-01 2.07887945E-01 + 1182 1.75765429E-01 7.19638948E-01 2.08118249E-01 + 1183 1.76302685E-01 7.20474869E-01 2.08348482E-01 + 1184 1.76841003E-01 7.21310187E-01 2.08578644E-01 + 1185 1.77380386E-01 7.22144897E-01 2.08808735E-01 + 1186 1.77920833E-01 7.22978995E-01 2.09038753E-01 + 1187 1.78462345E-01 7.23812477E-01 2.09268698E-01 + 1188 1.79004923E-01 7.24645337E-01 2.09498570E-01 + 1189 1.79548567E-01 7.25477571E-01 2.09728368E-01 + 1190 1.80093278E-01 7.26309174E-01 2.09958092E-01 + 1191 1.80639056E-01 7.27140142E-01 2.10202250E-01 + 1192 1.81185901E-01 7.27970470E-01 2.10417316E-01 + 1193 1.81733814E-01 7.28800153E-01 2.10646815E-01 + 1194 1.82282796E-01 7.29629186E-01 2.10876238E-01 + 1195 1.82832848E-01 7.30457565E-01 2.11105584E-01 + 1196 1.83383969E-01 7.31285286E-01 2.11334853E-01 + 1197 1.83936159E-01 7.32112342E-01 2.11564044E-01 + 1198 1.84489421E-01 7.32938730E-01 2.11793158E-01 + 1199 1.85043754E-01 7.33764446E-01 2.12022193E-01 + 1200 1.85599158E-01 7.34589483E-01 2.12251149E-01 + 1201 1.86155634E-01 7.35413838E-01 2.12480026E-01 + 1202 1.86713183E-01 7.36237506E-01 2.12708823E-01 + 1203 1.87271804E-01 7.37060482E-01 2.12937540E-01 + 1204 1.87831499E-01 7.37882762E-01 2.13166176E-01 + 1205 1.88392268E-01 7.38704340E-01 2.13394730E-01 + 1206 1.88954112E-01 7.39525213E-01 2.13623203E-01 + 1207 1.89517030E-01 7.40345374E-01 2.13851593E-01 + 1208 1.90081023E-01 7.41164820E-01 2.14079901E-01 + 1209 1.90646092E-01 7.41983546E-01 2.14308125E-01 + 1210 1.91212237E-01 7.42801547E-01 2.14536266E-01 + 1211 1.91779459E-01 7.43618818E-01 2.14764322E-01 + 1212 1.92347757E-01 7.44435355E-01 2.14992294E-01 + 1213 1.92917134E-01 7.45251153E-01 2.15220181E-01 + 1214 1.93487588E-01 7.46066208E-01 2.15447982E-01 + 1215 1.94059120E-01 7.46880513E-01 2.15675698E-01 + 1216 1.94631731E-01 7.47694066E-01 2.15903326E-01 + 1217 1.95205421E-01 7.48506860E-01 2.16130868E-01 + 1218 1.95780190E-01 7.49318892E-01 2.16358322E-01 + 1219 1.96356040E-01 7.50130156E-01 2.16585688E-01 + 1220 1.96932970E-01 7.50940648E-01 2.16812965E-01 + 1221 1.97510980E-01 7.51750364E-01 2.17040154E-01 + 1222 1.98090072E-01 7.52559297E-01 2.17267253E-01 + 1223 1.98670245E-01 7.53367445E-01 2.17494263E-01 + 1224 1.99251500E-01 7.54174801E-01 2.17721182E-01 + 1225 1.99833837E-01 7.54981361E-01 2.17948010E-01 + 1226 2.00417257E-01 7.55787121E-01 2.18174747E-01 + 1227 2.01001761E-01 7.56592076E-01 2.18401392E-01 + 1228 2.01587347E-01 7.57396220E-01 2.18627945E-01 + 1229 2.02174017E-01 7.58199550E-01 2.18859706E-01 + 1230 2.02761772E-01 7.59013452E-01 2.19086101E-01 + 1231 2.03350611E-01 7.59815199E-01 2.19312402E-01 + 1232 2.03940535E-01 7.60616117E-01 2.19538610E-01 + 1233 2.04531544E-01 7.61416202E-01 2.19764722E-01 + 1234 2.05123638E-01 7.62215449E-01 2.19990740E-01 + 1235 2.05716819E-01 7.63013852E-01 2.20216662E-01 + 1236 2.06311086E-01 7.63811408E-01 2.20442488E-01 + 1237 2.06906439E-01 7.64608112E-01 2.20668217E-01 + 1238 2.07502879E-01 7.65403958E-01 2.20893849E-01 + 1239 2.08100407E-01 7.66198943E-01 2.21119384E-01 + 1240 2.08699022E-01 7.66993061E-01 2.21344821E-01 + 1241 2.09298725E-01 7.67786308E-01 2.21570160E-01 + 1242 2.09899517E-01 7.68578679E-01 2.21795400E-01 + 1243 2.10501397E-01 7.69370169E-01 2.22020540E-01 + 1244 2.11104365E-01 7.70160774E-01 2.22245580E-01 + 1245 2.11708423E-01 7.70950489E-01 2.22470521E-01 + 1246 2.12313571E-01 7.71739309E-01 2.22695360E-01 + 1247 2.12919808E-01 7.72527230E-01 2.22920098E-01 + 1248 2.13527135E-01 7.73314247E-01 2.23144734E-01 + 1249 2.14135553E-01 7.74100355E-01 2.23369268E-01 + 1250 2.14745061E-01 7.74885550E-01 2.23593699E-01 + 1251 2.15355660E-01 7.75669826E-01 2.23818028E-01 + 1252 2.15967351E-01 7.76453180E-01 2.24042252E-01 + 1253 2.16580132E-01 7.77235606E-01 2.24266372E-01 + 1254 2.17194006E-01 7.78017099E-01 2.24490388E-01 + 1255 2.17808972E-01 7.78797656E-01 2.24714298E-01 + 1256 2.18425029E-01 7.79577272E-01 2.24938103E-01 + 1257 2.19042180E-01 7.80355941E-01 2.25161802E-01 + 1258 2.19660423E-01 7.81133660E-01 2.25385395E-01 + 1259 2.20279759E-01 7.81910423E-01 2.25608880E-01 + 1260 2.20900189E-01 7.82686226E-01 2.25832258E-01 + 1261 2.21521712E-01 7.83461064E-01 2.26055528E-01 + 1262 2.22144329E-01 7.84234933E-01 2.26278689E-01 + 1263 2.22768040E-01 7.85007827E-01 2.26501742E-01 + 1264 2.23392845E-01 7.85779743E-01 2.26724685E-01 + 1265 2.24018745E-01 7.86550676E-01 2.26947518E-01 + 1266 2.24645739E-01 7.87320621E-01 2.27170241E-01 + 1267 2.25273828E-01 7.88089574E-01 2.27392853E-01 + 1268 2.25903012E-01 7.88857529E-01 2.27615354E-01 + 1269 2.26533292E-01 7.89624482E-01 2.27837743E-01 + 1270 2.27164667E-01 7.90390430E-01 2.28060019E-01 + 1271 2.27797138E-01 7.91155366E-01 2.28282183E-01 + 1272 2.28430705E-01 7.91919287E-01 2.28504234E-01 + 1273 2.29065368E-01 7.92682187E-01 2.28726171E-01 + 1274 2.29701128E-01 7.93444063E-01 2.28947994E-01 + 1275 2.30337984E-01 7.94204910E-01 2.29169702E-01 + 1276 2.30975936E-01 7.94964723E-01 2.29391295E-01 + 1277 2.31614986E-01 7.95723498E-01 2.29612773E-01 + 1278 2.32255132E-01 7.96481230E-01 2.29834134E-01 + 1279 2.32896376E-01 7.97237915E-01 2.30055379E-01 + 1280 2.33538717E-01 7.97993547E-01 2.30276507E-01 + 1281 2.34182156E-01 7.98748123E-01 2.30497518E-01 + 1282 2.34826692E-01 7.99501638E-01 2.30718410E-01 + 1283 2.35472326E-01 8.00254088E-01 2.30939184E-01 + 1284 2.36119058E-01 8.01005467E-01 2.31159839E-01 + 1285 2.36766889E-01 8.01755772E-01 2.31380375E-01 + 1286 2.37415817E-01 8.02504999E-01 2.31600790E-01 + 1287 2.38065844E-01 8.03253141E-01 2.31821086E-01 + 1288 2.38716970E-01 8.04000196E-01 2.32041260E-01 + 1289 2.39369194E-01 8.04746158E-01 2.32261313E-01 + 1290 2.40022518E-01 8.05491023E-01 2.32481245E-01 + 1291 2.40676940E-01 8.06234787E-01 2.32701054E-01 + 1292 2.41332461E-01 8.06977445E-01 2.32920740E-01 + 1293 2.41989081E-01 8.07718993E-01 2.33140304E-01 + 1294 2.42646801E-01 8.08459426E-01 2.33359743E-01 + 1295 2.43305619E-01 8.09198741E-01 2.33579059E-01 + 1296 2.43965538E-01 8.09936931E-01 2.33798249E-01 + 1297 2.44626556E-01 8.10673994E-01 2.34017315E-01 + 1298 2.45288673E-01 8.11409925E-01 2.34236255E-01 + 1299 2.45951891E-01 8.12144719E-01 2.34455069E-01 + 1300 2.46616208E-01 8.12878372E-01 2.34673756E-01 + 1301 2.47281625E-01 8.13610879E-01 2.34892317E-01 + 1302 2.47948142E-01 8.14342237E-01 2.35110750E-01 + 1303 2.48615759E-01 8.15072441E-01 2.35329055E-01 + 1304 2.49284476E-01 8.15801486E-01 2.35547232E-01 + 1305 2.49954293E-01 8.16529369E-01 2.35765279E-01 + 1306 2.50625211E-01 8.17256085E-01 2.35983198E-01 + 1307 2.51297229E-01 8.17981629E-01 2.36200986E-01 + 1308 2.51970347E-01 8.18705997E-01 2.36418644E-01 + 1309 2.52644565E-01 8.19429186E-01 2.36636171E-01 + 1310 2.53319884E-01 8.20151191E-01 2.36853568E-01 + 1311 2.53996304E-01 8.20872007E-01 2.37070832E-01 + 1312 2.54673823E-01 8.21591630E-01 2.37287964E-01 + 1313 2.55352444E-01 8.22310057E-01 2.37504963E-01 + 1314 2.56032164E-01 8.23027282E-01 2.37721830E-01 + 1315 2.56712986E-01 8.23743302E-01 2.37938562E-01 + 1316 2.57394908E-01 8.24458112E-01 2.38155161E-01 + 1317 2.58077930E-01 8.25171708E-01 2.38371625E-01 + 1318 2.58762053E-01 8.25884087E-01 2.38587954E-01 + 1319 2.59447277E-01 8.26595243E-01 2.38804147E-01 + 1320 2.60133601E-01 8.27305173E-01 2.39020204E-01 + 1321 2.60821025E-01 8.28013873E-01 2.39236125E-01 + 1322 2.61509551E-01 8.28721338E-01 2.39451909E-01 + 1323 2.62199176E-01 8.29427564E-01 2.39667556E-01 + 1324 2.62889903E-01 8.30132548E-01 2.39883064E-01 + 1325 2.63581729E-01 8.30836284E-01 2.40098435E-01 + 1326 2.64274657E-01 8.31538770E-01 2.40313666E-01 + 1327 2.64968684E-01 8.32240000E-01 2.40528758E-01 + 1328 2.65663812E-01 8.32939972E-01 2.40743711E-01 + 1329 2.66360040E-01 8.33638680E-01 2.40958523E-01 + 1330 2.67057369E-01 8.34336121E-01 2.41173194E-01 + 1331 2.67755798E-01 8.35032291E-01 2.41387724E-01 + 1332 2.68455326E-01 8.35727185E-01 2.41602113E-01 + 1333 2.69155955E-01 8.36420801E-01 2.41816360E-01 + 1334 2.69857685E-01 8.37113133E-01 2.42030463E-01 + 1335 2.70560514E-01 8.37804178E-01 2.42244424E-01 + 1336 2.71264443E-01 8.38493932E-01 2.42458242E-01 + 1337 2.71969471E-01 8.39182390E-01 2.42671915E-01 + 1338 2.72675600E-01 8.39869550E-01 2.42885444E-01 + 1339 2.73382828E-01 8.40555407E-01 2.43098828E-01 + 1340 2.74091156E-01 8.41239957E-01 2.43312066E-01 + 1341 2.74800583E-01 8.41923197E-01 2.43525159E-01 + 1342 2.75511110E-01 8.42605122E-01 2.43738105E-01 + 1343 2.76222735E-01 8.43285728E-01 2.43950905E-01 + 1344 2.76935460E-01 8.43965013E-01 2.44163557E-01 + 1345 2.77649284E-01 8.44642971E-01 2.44376061E-01 + 1346 2.78364207E-01 8.45319599E-01 2.44588418E-01 + 1347 2.79080229E-01 8.45994894E-01 2.44800625E-01 + 1348 2.79797350E-01 8.46668852E-01 2.45012684E-01 + 1349 2.80515569E-01 8.47341468E-01 2.45224592E-01 + 1350 2.81234886E-01 8.48012739E-01 2.45436351E-01 + 1351 2.81955302E-01 8.48682662E-01 2.45647959E-01 + 1352 2.82676815E-01 8.49351233E-01 2.45859417E-01 + 1353 2.83399427E-01 8.50018447E-01 2.46070722E-01 + 1354 2.84123137E-01 8.50684302E-01 2.46281876E-01 + 1355 2.84847944E-01 8.51348793E-01 2.46492877E-01 + 1356 2.85573848E-01 8.52011917E-01 2.46703726E-01 + 1357 2.86300850E-01 8.52673671E-01 2.46914421E-01 + 1358 2.87028950E-01 8.53334050E-01 2.47124962E-01 + 1359 2.87758146E-01 8.53993052E-01 2.47335349E-01 + 1360 2.88488439E-01 8.54650672E-01 2.47545581E-01 + 1361 2.89219828E-01 8.55306907E-01 2.47755658E-01 + 1362 2.89952314E-01 8.55961754E-01 2.47965580E-01 + 1363 2.90685897E-01 8.56615208E-01 2.48175345E-01 + 1364 2.91420575E-01 8.57267267E-01 2.48384954E-01 + 1365 2.92156349E-01 8.57917927E-01 2.48594405E-01 + 1366 2.92893219E-01 8.58567184E-01 2.48803699E-01 + 1367 2.93631184E-01 8.59215036E-01 2.49012835E-01 + 1368 2.94370244E-01 8.59861478E-01 2.49221813E-01 + 1369 2.95110400E-01 8.60506507E-01 2.49430632E-01 + 1370 2.95851650E-01 8.61150120E-01 2.49639291E-01 + 1371 2.96593994E-01 8.61792313E-01 2.49847790E-01 + 1372 2.97337433E-01 8.62433083E-01 2.50056130E-01 + 1373 2.98081966E-01 8.63072427E-01 2.50264308E-01 + 1374 2.98827593E-01 8.63710341E-01 2.50472325E-01 + 1375 2.99574313E-01 8.64346822E-01 2.50680181E-01 + 1376 3.00322127E-01 8.64981867E-01 2.50887874E-01 + 1377 3.01071033E-01 8.65615472E-01 2.51095405E-01 + 1378 3.01821033E-01 8.66247635E-01 2.51302772E-01 + 1379 3.02572125E-01 8.66878352E-01 2.51509976E-01 + 1380 3.03324309E-01 8.67507619E-01 2.51717017E-01 + 1381 3.04077585E-01 8.68135434E-01 2.51923892E-01 + 1382 3.04831953E-01 8.68761793E-01 2.52130603E-01 + 1383 3.05587412E-01 8.69386694E-01 2.52337148E-01 + 1384 3.06343962E-01 8.70010132E-01 2.52543528E-01 + 1385 3.07101604E-01 8.70632106E-01 2.52749741E-01 + 1386 3.07860335E-01 8.71252611E-01 2.52955788E-01 + 1387 3.08620157E-01 8.71871646E-01 2.53161667E-01 + 1388 3.09381069E-01 8.72489206E-01 2.53367379E-01 + 1389 3.10143070E-01 8.73105289E-01 2.53572922E-01 + 1390 3.10906161E-01 8.73719891E-01 2.53778297E-01 + 1391 3.11670341E-01 8.74333011E-01 2.53983503E-01 + 1392 3.12435609E-01 8.74944644E-01 2.54188540E-01 + 1393 3.13201966E-01 8.75554788E-01 2.54393406E-01 + 1394 3.13969410E-01 8.76163440E-01 2.54598102E-01 + 1395 3.14737943E-01 8.76770597E-01 2.54802627E-01 + 1396 3.15507562E-01 8.77376256E-01 2.55006981E-01 + 1397 3.16278268E-01 8.77980414E-01 2.55211163E-01 + 1398 3.17050062E-01 8.78583068E-01 2.55415173E-01 + 1399 3.17822941E-01 8.79184216E-01 2.55619010E-01 + 1400 3.18596906E-01 8.79783855E-01 2.55822674E-01 + 1401 3.19371957E-01 8.80381982E-01 2.56026165E-01 + 1402 3.20148092E-01 8.80978595E-01 2.56229481E-01 + 1403 3.20925313E-01 8.81573689E-01 2.56432623E-01 + 1404 3.21703618E-01 8.82167264E-01 2.56635590E-01 + 1405 3.22483007E-01 8.82759315E-01 2.56838381E-01 + 1406 3.23263479E-01 8.83349841E-01 2.57040997E-01 + 1407 3.24045035E-01 8.83938839E-01 2.57243436E-01 + 1408 3.24827673E-01 8.84526306E-01 2.57445699E-01 + 1409 3.25611394E-01 8.85112240E-01 2.57647784E-01 + 1410 3.26396197E-01 8.85696637E-01 2.57849692E-01 + 1411 3.27182081E-01 8.86279496E-01 2.58051421E-01 + 1412 3.27969047E-01 8.86860814E-01 2.58252972E-01 + 1413 3.28757093E-01 8.87440588E-01 2.58454344E-01 + 1414 3.29546220E-01 8.88018817E-01 2.58655536E-01 + 1415 3.30336426E-01 8.88595496E-01 2.58856549E-01 + 1416 3.31127712E-01 8.89170625E-01 2.59057381E-01 + 1417 3.31920077E-01 8.89744201E-01 2.59258032E-01 + 1418 3.32713521E-01 8.90316220E-01 2.59458502E-01 + 1419 3.33508042E-01 8.90886682E-01 2.59658790E-01 + 1420 3.34303642E-01 8.91455583E-01 2.59858896E-01 + 1421 3.35100318E-01 8.92022921E-01 2.60058820E-01 + 1422 3.35898071E-01 8.92588694E-01 2.60258560E-01 + 1423 3.36696901E-01 8.93152899E-01 2.60458117E-01 + 1424 3.37496806E-01 8.93715536E-01 2.60657490E-01 + 1425 3.38297786E-01 8.94276600E-01 2.60856678E-01 + 1426 3.39099842E-01 8.94836090E-01 2.61055681E-01 + 1427 3.39902971E-01 8.95394004E-01 2.61254500E-01 + 1428 3.40707175E-01 8.95950340E-01 2.61453132E-01 + 1429 3.41512452E-01 8.96505095E-01 2.61651578E-01 + 1430 3.42318801E-01 8.97058267E-01 2.61849838E-01 + 1431 3.43126223E-01 8.97609855E-01 2.62047911E-01 + 1432 3.43934717E-01 8.98159857E-01 2.62245796E-01 + 1433 3.44744282E-01 8.98708269E-01 2.62443493E-01 + 1434 3.45554918E-01 8.99255091E-01 2.62641001E-01 + 1435 3.46366624E-01 8.99800320E-01 2.62838321E-01 + 1436 3.47179400E-01 9.00343954E-01 2.63035451E-01 + 1437 3.47993245E-01 9.00885992E-01 2.63232392E-01 + 1438 3.48808159E-01 9.01426432E-01 2.63429142E-01 + 1439 3.49624141E-01 9.01965271E-01 2.63625702E-01 + 1440 3.50441190E-01 9.02502508E-01 2.63822070E-01 + 1441 3.51259307E-01 9.03038141E-01 2.64018248E-01 + 1442 3.52078490E-01 9.03572168E-01 2.64214233E-01 + 1443 3.52898739E-01 9.04104587E-01 2.64410025E-01 + 1444 3.53720053E-01 9.04635397E-01 2.64605625E-01 + 1445 3.54542432E-01 9.05164597E-01 2.64801032E-01 + 1446 3.55365875E-01 9.05692183E-01 2.64996245E-01 + 1447 3.56190382E-01 9.06218155E-01 2.65191263E-01 + 1448 3.57015951E-01 9.06742511E-01 2.65386087E-01 + 1449 3.57842583E-01 9.07265250E-01 2.65580716E-01 + 1450 3.58670277E-01 9.07786369E-01 2.65775150E-01 + 1451 3.59499033E-01 9.08305868E-01 2.65969387E-01 + 1452 3.60328848E-01 9.08823744E-01 2.66163428E-01 + 1453 3.61159724E-01 9.09339996E-01 2.66362901E-01 + 1454 3.61991660E-01 9.09866477E-01 2.66550920E-01 + 1455 3.62824654E-01 9.10367624E-01 2.66744369E-01 + 1456 3.63658706E-01 9.10878996E-01 2.66937621E-01 + 1457 3.64493816E-01 9.11388739E-01 2.67130674E-01 + 1458 3.65329982E-01 9.11896850E-01 2.67323527E-01 + 1459 3.66167205E-01 9.12403330E-01 2.67516182E-01 + 1460 3.67005484E-01 9.12908176E-01 2.67708636E-01 + 1461 3.67844817E-01 9.13411387E-01 2.67900890E-01 + 1462 3.68685205E-01 9.13912962E-01 2.68092944E-01 + 1463 3.69526646E-01 9.14412899E-01 2.68284796E-01 + 1464 3.70369141E-01 9.14911198E-01 2.68476447E-01 + 1465 3.71212688E-01 9.15407858E-01 2.68667896E-01 + 1466 3.72057286E-01 9.15902876E-01 2.68859142E-01 + 1467 3.72902936E-01 9.16396252E-01 2.69050185E-01 + 1468 3.73749636E-01 9.16887985E-01 2.69241025E-01 + 1469 3.74597385E-01 9.17378074E-01 2.69431661E-01 + 1470 3.75446184E-01 9.17866518E-01 2.69622094E-01 + 1471 3.76296030E-01 9.18353316E-01 2.69812321E-01 + 1472 3.77146924E-01 9.18838466E-01 2.70002343E-01 + 1473 3.77998866E-01 9.19321968E-01 2.70192160E-01 + 1474 3.78851853E-01 9.19803821E-01 2.70381771E-01 + 1475 3.79705885E-01 9.20284024E-01 2.70571176E-01 + 1476 3.80560963E-01 9.20762577E-01 2.70760374E-01 + 1477 3.81417084E-01 9.21239477E-01 2.70949365E-01 + 1478 3.82274249E-01 9.21714725E-01 2.71138148E-01 + 1479 3.83132456E-01 9.22188320E-01 2.71326723E-01 + 1480 3.83991705E-01 9.22660260E-01 2.71515089E-01 + 1481 3.84851995E-01 9.23130546E-01 2.71703247E-01 + 1482 3.85713325E-01 9.23599176E-01 2.71891195E-01 + 1483 3.86575695E-01 9.24066150E-01 2.72078934E-01 + 1484 3.87439104E-01 9.24531468E-01 2.72266462E-01 + 1485 3.88303551E-01 9.24995128E-01 2.72453780E-01 + 1486 3.89169035E-01 9.25457129E-01 2.72640887E-01 + 1487 3.90035555E-01 9.25917473E-01 2.72827782E-01 + 1488 3.90903112E-01 9.26376157E-01 2.73014466E-01 + 1489 3.91771703E-01 9.26833182E-01 2.73200937E-01 + 1490 3.92641328E-01 9.27288546E-01 2.73387195E-01 + 1491 3.93511987E-01 9.27742250E-01 2.73573241E-01 + 1492 3.94383679E-01 9.28194293E-01 2.73759072E-01 + 1493 3.95256402E-01 9.28644675E-01 2.73944690E-01 + 1494 3.96130156E-01 9.29093395E-01 2.74130093E-01 + 1495 3.97004941E-01 9.29540453E-01 2.74315282E-01 + 1496 3.97880754E-01 9.29985849E-01 2.74500255E-01 + 1497 3.98757597E-01 9.30429582E-01 2.74685013E-01 + 1498 3.99635467E-01 9.30871653E-01 2.74869554E-01 + 1499 4.00514364E-01 9.31312060E-01 2.75053879E-01 + 1500 4.01394287E-01 9.31750805E-01 2.75237987E-01 + 1501 4.02275236E-01 9.32187886E-01 2.75421878E-01 + 1502 4.03157209E-01 9.32623303E-01 2.75605551E-01 + 1503 4.04040205E-01 9.33057057E-01 2.75789006E-01 + 1504 4.04924225E-01 9.33489148E-01 2.75972242E-01 + 1505 4.05809266E-01 9.33919575E-01 2.76155259E-01 + 1506 4.06695328E-01 9.34348338E-01 2.76338057E-01 + 1507 4.07582410E-01 9.34775437E-01 2.76524139E-01 + 1508 4.08470512E-01 9.35200873E-01 2.76702992E-01 + 1509 4.09359632E-01 9.35624646E-01 2.76885129E-01 + 1510 4.10249769E-01 9.36046755E-01 2.77067045E-01 + 1511 4.11140924E-01 9.36474531E-01 2.77248740E-01 + 1512 4.12033094E-01 9.36885984E-01 2.77430212E-01 + 1513 4.12926279E-01 9.37303104E-01 2.77611462E-01 + 1514 4.13820477E-01 9.37718562E-01 2.77792490E-01 + 1515 4.14715689E-01 9.38132357E-01 2.77973294E-01 + 1516 4.15611914E-01 9.38544490E-01 2.78153875E-01 + 1517 4.16509149E-01 9.38954962E-01 2.78334232E-01 + 1518 4.17407395E-01 9.39363772E-01 2.78514364E-01 + 1519 4.18306650E-01 9.39770921E-01 2.78694271E-01 + 1520 4.19206914E-01 9.40176410E-01 2.78873954E-01 + 1521 4.20108185E-01 9.40580238E-01 2.79053411E-01 + 1522 4.21010463E-01 9.40982407E-01 2.79232641E-01 + 1523 4.21913747E-01 9.41382916E-01 2.79411646E-01 + 1524 4.22818036E-01 9.41781767E-01 2.79590423E-01 + 1525 4.23723328E-01 9.42178960E-01 2.79768974E-01 + 1526 4.24629624E-01 9.42574496E-01 2.79947296E-01 + 1527 4.25536921E-01 9.42968374E-01 2.80125391E-01 + 1528 4.26445219E-01 9.43360597E-01 2.80303257E-01 + 1529 4.27354517E-01 9.43751163E-01 2.80480894E-01 + 1530 4.28264814E-01 9.44140075E-01 2.80658302E-01 + 1531 4.29176110E-01 9.44527333E-01 2.80835480E-01 + 1532 4.30088402E-01 9.44912938E-01 2.81012429E-01 + 1533 4.31001691E-01 9.45296890E-01 2.81189147E-01 + 1534 4.31915974E-01 9.45679190E-01 2.81365633E-01 + 1535 4.32831252E-01 9.46059840E-01 2.81541889E-01 + 1536 4.33747523E-01 9.46438839E-01 2.81717913E-01 + 1537 4.34664786E-01 9.46816190E-01 2.81893705E-01 + 1538 4.35583040E-01 9.47191892E-01 2.82069264E-01 + 1539 4.36502284E-01 9.47565948E-01 2.82244591E-01 + 1540 4.37422518E-01 9.47938357E-01 2.82419684E-01 + 1541 4.38343739E-01 9.48309121E-01 2.82594543E-01 + 1542 4.39265947E-01 9.48678241E-01 2.82769169E-01 + 1543 4.40189142E-01 9.49045718E-01 2.82943560E-01 + 1544 4.41113321E-01 9.49411554E-01 2.83117716E-01 + 1545 4.42038484E-01 9.49775749E-01 2.83291637E-01 + 1546 4.42964631E-01 9.50138304E-01 2.83465322E-01 + 1547 4.43891759E-01 9.50499221E-01 2.83638771E-01 + 1548 4.44819867E-01 9.50858501E-01 2.83811983E-01 + 1549 4.45748956E-01 9.51216145E-01 2.83984959E-01 + 1550 4.46679023E-01 9.51572155E-01 2.84157697E-01 + 1551 4.47610068E-01 9.51926532E-01 2.84330198E-01 + 1552 4.48542089E-01 9.52279277E-01 2.84502461E-01 + 1553 4.49475086E-01 9.52630391E-01 2.84674485E-01 + 1554 4.50409058E-01 9.52979877E-01 2.84846271E-01 + 1555 4.51344002E-01 9.53327735E-01 2.85017817E-01 + 1556 4.52279919E-01 9.53673967E-01 2.85189124E-01 + 1557 4.53216807E-01 9.54018575E-01 2.85360190E-01 + 1558 4.54154664E-01 9.54361559E-01 2.85531017E-01 + 1559 4.55093491E-01 9.54702923E-01 2.85701602E-01 + 1560 4.56033286E-01 9.55042666E-01 2.85871947E-01 + 1561 4.56974047E-01 9.55380791E-01 2.86042049E-01 + 1562 4.57915773E-01 9.55717300E-01 2.86211910E-01 + 1563 4.58858465E-01 9.56052193E-01 2.86381528E-01 + 1564 4.59802119E-01 9.56385474E-01 2.86550904E-01 + 1565 4.60746736E-01 9.56717143E-01 2.86720037E-01 + 1566 4.61692314E-01 9.57047202E-01 2.86888926E-01 + 1567 4.62638851E-01 9.57375654E-01 2.87057571E-01 + 1568 4.63586348E-01 9.57702499E-01 2.87225972E-01 + 1569 4.64534802E-01 9.58027741E-01 2.87394128E-01 + 1570 4.65484212E-01 9.58351380E-01 2.87562039E-01 + 1571 4.66434578E-01 9.58673418E-01 2.87729705E-01 + 1572 4.67385898E-01 9.58993858E-01 2.87897125E-01 + 1573 4.68338171E-01 9.59312702E-01 2.88064299E-01 + 1574 4.69291395E-01 9.59629951E-01 2.88231226E-01 + 1575 4.70245571E-01 9.59945608E-01 2.88397906E-01 + 1576 4.71200696E-01 9.60259674E-01 2.88564339E-01 + 1577 4.72156769E-01 9.60572152E-01 2.88730524E-01 + 1578 4.73113789E-01 9.60883043E-01 2.88896461E-01 + 1579 4.74071755E-01 9.61192351E-01 2.89062150E-01 + 1580 4.75030665E-01 9.61500076E-01 2.89227590E-01 + 1581 4.75990519E-01 9.61806222E-01 2.89392780E-01 + 1582 4.76951316E-01 9.62110790E-01 2.89557721E-01 + 1583 4.77913053E-01 9.62413783E-01 2.89722412E-01 + 1584 4.78875730E-01 9.62715203E-01 2.89886852E-01 + 1585 4.79839346E-01 9.63015052E-01 2.90051042E-01 + 1586 4.80803899E-01 9.63313333E-01 2.90214980E-01 + 1587 4.81769388E-01 9.63610047E-01 2.90378667E-01 + 1588 4.82735813E-01 9.63905199E-01 2.90542102E-01 + 1589 4.83703171E-01 9.64198788E-01 2.90705285E-01 + 1590 4.84671461E-01 9.64490820E-01 2.90868216E-01 + 1591 4.85640682E-01 9.64781294E-01 2.91030893E-01 + 1592 4.86610834E-01 9.65070215E-01 2.91193317E-01 + 1593 4.87581914E-01 9.65357585E-01 2.91355487E-01 + 1594 4.88553922E-01 9.65643406E-01 2.91517403E-01 + 1595 4.89526855E-01 9.65927681E-01 2.91679064E-01 + 1596 4.90500714E-01 9.66210412E-01 2.91840471E-01 + 1597 4.91475496E-01 9.66491602E-01 2.92001622E-01 + 1598 4.92451200E-01 9.66771254E-01 2.92162518E-01 + 1599 4.93427826E-01 9.67049371E-01 2.92323158E-01 + 1600 4.94405371E-01 9.67325954E-01 2.92483542E-01 + 1601 4.95383835E-01 9.67601008E-01 2.92643668E-01 + 1602 4.96363215E-01 9.67874534E-01 2.92803538E-01 + 1603 4.97343512E-01 9.68146535E-01 2.92963150E-01 + 1604 4.98324723E-01 9.68417015E-01 2.93122505E-01 + 1605 4.99306847E-01 9.68685976E-01 2.93281601E-01 + 1606 5.00289884E-01 9.68953420E-01 2.93440438E-01 + 1607 5.01273831E-01 9.69219352E-01 2.93599017E-01 + 1608 5.02258687E-01 9.69483773E-01 2.93757337E-01 + 1609 5.03244451E-01 9.69746687E-01 2.93915396E-01 + 1610 5.04231122E-01 9.70008096E-01 2.94073196E-01 + 1611 5.05218697E-01 9.70268005E-01 2.94230736E-01 + 1612 5.06207177E-01 9.70526414E-01 2.94388014E-01 + 1613 5.07196560E-01 9.70783329E-01 2.94545032E-01 + 1614 5.08186843E-01 9.71038752E-01 2.94701788E-01 + 1615 5.09178027E-01 9.71292685E-01 2.94858282E-01 + 1616 5.10170109E-01 9.71545132E-01 2.95014515E-01 + 1617 5.11163088E-01 9.71796097E-01 2.95170484E-01 + 1618 5.12156963E-01 9.72045582E-01 2.95326191E-01 + 1619 5.13151732E-01 9.72293590E-01 2.95481634E-01 + 1620 5.14147395E-01 9.72540125E-01 2.95636814E-01 + 1621 5.15143949E-01 9.72785190E-01 2.95791730E-01 + 1622 5.16141393E-01 9.73028789E-01 2.95946382E-01 + 1623 5.17139726E-01 9.73270924E-01 2.96100768E-01 + 1624 5.18138947E-01 9.73511599E-01 2.96254890E-01 + 1625 5.19139053E-01 9.73750817E-01 2.96408747E-01 + 1626 5.20140045E-01 9.73988582E-01 2.96562337E-01 + 1627 5.21141919E-01 9.74224896E-01 2.96715662E-01 + 1628 5.22144676E-01 9.74459764E-01 2.96868720E-01 + 1629 5.23148313E-01 9.74693189E-01 2.97021511E-01 + 1630 5.24152829E-01 9.74925175E-01 2.97174035E-01 + 1631 5.25158222E-01 9.75155724E-01 2.97326291E-01 + 1632 5.26164492E-01 9.75384840E-01 2.97478280E-01 + 1633 5.27171636E-01 9.75612527E-01 2.97630000E-01 + 1634 5.28179654E-01 9.75838789E-01 2.97781452E-01 + 1635 5.29188543E-01 9.76063628E-01 2.97932635E-01 + 1636 5.30198303E-01 9.76287049E-01 2.98083549E-01 + 1637 5.31208932E-01 9.76509055E-01 2.98234193E-01 + 1638 5.32220428E-01 9.76729650E-01 2.98384567E-01 + 1639 5.33232791E-01 9.76948838E-01 2.98534670E-01 + 1640 5.34246018E-01 9.77166621E-01 2.98684503E-01 + 1641 5.35260108E-01 9.77383005E-01 2.98834065E-01 + 1642 5.36275059E-01 9.77597992E-01 2.98983356E-01 + 1643 5.37290871E-01 9.77811587E-01 2.99132375E-01 + 1644 5.38307542E-01 9.78023792E-01 2.99281122E-01 + 1645 5.39325069E-01 9.78234613E-01 2.99429596E-01 + 1646 5.40343453E-01 9.78444052E-01 2.99577798E-01 + 1647 5.41362690E-01 9.78652114E-01 2.99725726E-01 + 1648 5.42382780E-01 9.78858803E-01 2.99873381E-01 + 1649 5.43403722E-01 9.79064121E-01 3.00020763E-01 + 1650 5.44425513E-01 9.79268074E-01 3.00167870E-01 + 1651 5.45448152E-01 9.79470665E-01 3.00314703E-01 + 1652 5.46471638E-01 9.79671899E-01 3.00461260E-01 + 1653 5.47495970E-01 9.79871778E-01 3.00607543E-01 + 1654 5.48521144E-01 9.80070307E-01 3.00753550E-01 + 1655 5.49547161E-01 9.80267491E-01 3.00899282E-01 + 1656 5.50574019E-01 9.80463332E-01 3.01044737E-01 + 1657 5.51601715E-01 9.80657836E-01 3.01189916E-01 + 1658 5.52630249E-01 9.80851006E-01 3.01334818E-01 + 1659 5.53659619E-01 9.81042846E-01 3.01479442E-01 + 1660 5.54689824E-01 9.81233360E-01 3.01623790E-01 + 1661 5.55720861E-01 9.81422553E-01 3.01767859E-01 + 1662 5.56752729E-01 9.81610428E-01 3.01911650E-01 + 1663 5.57785428E-01 9.81796991E-01 3.02055163E-01 + 1664 5.58818954E-01 9.81982244E-01 3.02198396E-01 + 1665 5.59853307E-01 9.82166192E-01 3.02341351E-01 + 1666 5.60888485E-01 9.82348840E-01 3.02484026E-01 + 1667 5.61924487E-01 9.82530191E-01 3.02626421E-01 + 1668 5.62961310E-01 9.82710251E-01 3.02768536E-01 + 1669 5.63998954E-01 9.82889022E-01 3.02910370E-01 + 1670 5.65037416E-01 9.83066510E-01 3.03051923E-01 + 1671 5.66076696E-01 9.83242718E-01 3.03193196E-01 + 1672 5.67116791E-01 9.83417652E-01 3.03334186E-01 + 1673 5.68157700E-01 9.83591314E-01 3.03474895E-01 + 1674 5.69199421E-01 9.83763711E-01 3.03615322E-01 + 1675 5.70241953E-01 9.83934845E-01 3.03755466E-01 + 1676 5.71285294E-01 9.84104723E-01 3.03895327E-01 + 1677 5.72329442E-01 9.84273346E-01 3.04034905E-01 + 1678 5.73374397E-01 9.84440722E-01 3.04174199E-01 + 1679 5.74420155E-01 9.84606853E-01 3.04313210E-01 + 1680 5.75466716E-01 9.84771744E-01 3.04451936E-01 + 1681 5.76514078E-01 9.84935400E-01 3.04590378E-01 + 1682 5.77562240E-01 9.85097825E-01 3.04728536E-01 + 1683 5.78611199E-01 9.85259023E-01 3.04866408E-01 + 1684 5.79660954E-01 9.85419000E-01 3.05003994E-01 + 1685 5.80711503E-01 9.85577760E-01 3.05141295E-01 + 1686 5.81762846E-01 9.85735306E-01 3.05278309E-01 + 1687 5.82814979E-01 9.85891645E-01 3.05415037E-01 + 1688 5.83867901E-01 9.86046780E-01 3.05551479E-01 + 1689 5.84921612E-01 9.86200715E-01 3.05687633E-01 + 1690 5.85976108E-01 9.86353457E-01 3.05823500E-01 + 1691 5.87031389E-01 9.86505008E-01 3.05959079E-01 + 1692 5.88087453E-01 9.86655375E-01 3.06094370E-01 + 1693 5.89144297E-01 9.86804560E-01 3.06229372E-01 + 1694 5.90201921E-01 9.86952570E-01 3.06364086E-01 + 1695 5.91260323E-01 9.87099409E-01 3.06498511E-01 + 1696 5.92319500E-01 9.87245081E-01 3.06632646E-01 + 1697 5.93379452E-01 9.87389591E-01 3.06766492E-01 + 1698 5.94440177E-01 9.87532944E-01 3.06900048E-01 + 1699 5.95501672E-01 9.87675145E-01 3.07033313E-01 + 1700 5.96563936E-01 9.87816198E-01 3.07166288E-01 + 1701 5.97626968E-01 9.87956108E-01 3.07298972E-01 + 1702 5.98690766E-01 9.88094880E-01 3.07431365E-01 + 1703 5.99755327E-01 9.88232519E-01 3.07563466E-01 + 1704 6.00820651E-01 9.88369029E-01 3.07695275E-01 + 1705 6.01886736E-01 9.88504415E-01 3.07826792E-01 + 1706 6.02953579E-01 9.88638682E-01 3.07958016E-01 + 1707 6.04021179E-01 9.88771835E-01 3.08088948E-01 + 1708 6.05089535E-01 9.88903879E-01 3.08219586E-01 + 1709 6.06158644E-01 9.89034818E-01 3.08349931E-01 + 1710 6.07228506E-01 9.89164658E-01 3.08479982E-01 + 1711 6.08299117E-01 9.89293402E-01 3.08609739E-01 + 1712 6.09370476E-01 9.89421057E-01 3.08739201E-01 + 1713 6.10442583E-01 9.89547627E-01 3.08868369E-01 + 1714 6.11515434E-01 9.89673116E-01 3.08997242E-01 + 1715 6.12589028E-01 9.89797530E-01 3.09125819E-01 + 1716 6.13663363E-01 9.89920874E-01 3.09254101E-01 + 1717 6.14738438E-01 9.90043152E-01 3.09382087E-01 + 1718 6.15814250E-01 9.90164370E-01 3.09509776E-01 + 1719 6.16890799E-01 9.90284533E-01 3.09637169E-01 + 1720 6.17968082E-01 9.90403644E-01 3.09764265E-01 + 1721 6.19046097E-01 9.90521710E-01 3.09891064E-01 + 1722 6.20124843E-01 9.90638735E-01 3.10017565E-01 + 1723 6.21204317E-01 9.90754725E-01 3.10143768E-01 + 1724 6.22284519E-01 9.90869683E-01 3.10269673E-01 + 1725 6.23365445E-01 9.90983616E-01 3.10395280E-01 + 1726 6.24447095E-01 9.91096528E-01 3.10520588E-01 + 1727 6.25529467E-01 9.91208425E-01 3.10645597E-01 + 1728 6.26612558E-01 9.91319310E-01 3.10770307E-01 + 1729 6.27696368E-01 9.91429190E-01 3.10894716E-01 + 1730 6.28780893E-01 9.91544180E-01 3.11018826E-01 + 1731 6.29866133E-01 9.91652048E-01 3.11142636E-01 + 1732 6.30952085E-01 9.91758926E-01 3.11266144E-01 + 1733 6.32038748E-01 9.91864819E-01 3.11389352E-01 + 1734 6.33126120E-01 9.91963677E-01 3.11512259E-01 + 1735 6.34214198E-01 9.92067628E-01 3.11634864E-01 + 1736 6.35302982E-01 9.92170607E-01 3.11757168E-01 + 1737 6.36392469E-01 9.92272622E-01 3.11879169E-01 + 1738 6.37482657E-01 9.92373676E-01 3.12000868E-01 + 1739 6.38573545E-01 9.92473775E-01 3.12122264E-01 + 1740 6.39665131E-01 9.92572923E-01 3.12243357E-01 + 1741 6.40757412E-01 9.92671126E-01 3.12364147E-01 + 1742 6.41850387E-01 9.92768390E-01 3.12484633E-01 + 1743 6.42944055E-01 9.92864718E-01 3.12604815E-01 + 1744 6.44038413E-01 9.92960116E-01 3.12724692E-01 + 1745 6.45133459E-01 9.93054589E-01 3.12844266E-01 + 1746 6.46229191E-01 9.93148143E-01 3.12963534E-01 + 1747 6.47325608E-01 9.93240782E-01 3.13082497E-01 + 1748 6.48422708E-01 9.93332511E-01 3.13201155E-01 + 1749 6.49520489E-01 9.93423336E-01 3.13319507E-01 + 1750 6.50618948E-01 9.93513262E-01 3.13437553E-01 + 1751 6.51718085E-01 9.93602293E-01 3.13555293E-01 + 1752 6.52817896E-01 9.93690436E-01 3.13672725E-01 + 1753 6.53918381E-01 9.93777694E-01 3.13789851E-01 + 1754 6.55019537E-01 9.93864073E-01 3.13906670E-01 + 1755 6.56121363E-01 9.93949579E-01 3.14023181E-01 + 1756 6.57223856E-01 9.94034216E-01 3.14139384E-01 + 1757 6.58327014E-01 9.94117989E-01 3.14255279E-01 + 1758 6.59430837E-01 9.94200904E-01 3.14370866E-01 + 1759 6.60535321E-01 9.94282966E-01 3.14486144E-01 + 1760 6.61640464E-01 9.94364180E-01 3.14601113E-01 + 1761 6.62746266E-01 9.94444550E-01 3.14715772E-01 + 1762 6.63852723E-01 9.94524083E-01 3.14830122E-01 + 1763 6.64959835E-01 9.94602782E-01 3.14944162E-01 + 1764 6.66067598E-01 9.94680654E-01 3.15057891E-01 + 1765 6.67176012E-01 9.94757704E-01 3.15171310E-01 + 1766 6.68285074E-01 9.94833936E-01 3.15284419E-01 + 1767 6.69394782E-01 9.94909356E-01 3.15397216E-01 + 1768 6.70505134E-01 9.94983968E-01 3.15509701E-01 + 1769 6.71616128E-01 9.95057779E-01 3.15621875E-01 + 1770 6.72727763E-01 9.95130792E-01 3.15733737E-01 + 1771 6.73840036E-01 9.95203014E-01 3.15845286E-01 + 1772 6.74952946E-01 9.95274448E-01 3.15956523E-01 + 1773 6.76066490E-01 9.95345101E-01 3.16067447E-01 + 1774 6.77180666E-01 9.95414978E-01 3.16178058E-01 + 1775 6.78295473E-01 9.95484083E-01 3.16288355E-01 + 1776 6.79410908E-01 9.95552422E-01 3.16398338E-01 + 1777 6.80526970E-01 9.95619999E-01 3.16508008E-01 + 1778 6.81643656E-01 9.95686820E-01 3.16617362E-01 + 1779 6.82760965E-01 9.95752890E-01 3.16726403E-01 + 1780 6.83878894E-01 9.95818215E-01 3.16835128E-01 + 1781 6.84997442E-01 9.95882798E-01 3.16943538E-01 + 1782 6.86116606E-01 9.95946645E-01 3.17051632E-01 + 1783 6.87236385E-01 9.96009762E-01 3.17159410E-01 + 1784 6.88356776E-01 9.96072153E-01 3.17266873E-01 + 1785 6.89477778E-01 9.96133823E-01 3.17374018E-01 + 1786 6.90599389E-01 9.96194778E-01 3.17480847E-01 + 1787 6.91721605E-01 9.96255022E-01 3.17587359E-01 + 1788 6.92844427E-01 9.96314561E-01 3.17693554E-01 + 1789 6.93967850E-01 9.96373399E-01 3.17799430E-01 + 1790 6.95091874E-01 9.96431542E-01 3.17904989E-01 + 1791 6.96216497E-01 9.96488994E-01 3.18010230E-01 + 1792 6.97341715E-01 9.96545761E-01 3.18115152E-01 + 1793 6.98467528E-01 9.96601848E-01 3.18219755E-01 + 1794 6.99593934E-01 9.96657259E-01 3.18324039E-01 + 1795 7.00720929E-01 9.96712001E-01 3.18428004E-01 + 1796 7.01848513E-01 9.96766076E-01 3.18531649E-01 + 1797 7.02976683E-01 9.96819492E-01 3.18634974E-01 + 1798 7.04105437E-01 9.96872252E-01 3.18737978E-01 + 1799 7.05234773E-01 9.96924362E-01 3.18840662E-01 + 1800 7.06364688E-01 9.96975826E-01 3.18943025E-01 + 1801 7.07495182E-01 9.97026650E-01 3.19045067E-01 + 1802 7.08626252E-01 9.97076838E-01 3.19146787E-01 + 1803 7.09757895E-01 9.97126396E-01 3.19248186E-01 + 1804 7.10890110E-01 9.97175328E-01 3.19349262E-01 + 1805 7.12022895E-01 9.97223639E-01 3.19450016E-01 + 1806 7.13156247E-01 9.97271335E-01 3.19550447E-01 + 1807 7.14290165E-01 9.97318420E-01 3.19650556E-01 + 1808 7.15424646E-01 9.97364899E-01 3.19750340E-01 + 1809 7.16559688E-01 9.97410776E-01 3.19849802E-01 + 1810 7.17695290E-01 9.97456058E-01 3.19948939E-01 + 1811 7.18831449E-01 9.97500748E-01 3.20047752E-01 + 1812 7.19968163E-01 9.97544851E-01 3.20146241E-01 + 1813 7.21105429E-01 9.97588373E-01 3.20244405E-01 + 1814 7.22243247E-01 9.97631318E-01 3.20343980E-01 + 1815 7.23381613E-01 9.97677362E-01 3.20439757E-01 + 1816 7.24520526E-01 9.97719160E-01 3.20536945E-01 + 1817 7.25659984E-01 9.97756741E-01 3.20633806E-01 + 1818 7.26799984E-01 9.97797427E-01 3.20730342E-01 + 1819 7.27940524E-01 9.97837560E-01 3.20826550E-01 + 1820 7.29081603E-01 9.97877145E-01 3.20922432E-01 + 1821 7.30223217E-01 9.97916187E-01 3.21017987E-01 + 1822 7.31365366E-01 9.97954691E-01 3.21113214E-01 + 1823 7.32508046E-01 9.97992660E-01 3.21208113E-01 + 1824 7.33651256E-01 9.98030100E-01 3.21302684E-01 + 1825 7.34794994E-01 9.98067017E-01 3.21396927E-01 + 1826 7.35939257E-01 9.98103413E-01 3.21490841E-01 + 1827 7.37084043E-01 9.98139294E-01 3.21584425E-01 + 1828 7.38229351E-01 9.98174665E-01 3.21677681E-01 + 1829 7.39375177E-01 9.98209531E-01 3.21770607E-01 + 1830 7.40521521E-01 9.98243895E-01 3.21863203E-01 + 1831 7.41668379E-01 9.98277763E-01 3.21955468E-01 + 1832 7.42815750E-01 9.98311139E-01 3.22047403E-01 + 1833 7.43963631E-01 9.98344028E-01 3.22139007E-01 + 1834 7.45112020E-01 9.98376434E-01 3.22230280E-01 + 1835 7.46260916E-01 9.98408363E-01 3.22321222E-01 + 1836 7.47410315E-01 9.98439817E-01 3.22411831E-01 + 1837 7.48560217E-01 9.98470803E-01 3.22502108E-01 + 1838 7.49710618E-01 9.98501324E-01 3.22592053E-01 + 1839 7.50861516E-01 9.98531386E-01 3.22681666E-01 + 1840 7.52012910E-01 9.98560992E-01 3.22770945E-01 + 1841 7.53164797E-01 9.98590147E-01 3.22859890E-01 + 1842 7.54317175E-01 9.98618856E-01 3.22948502E-01 + 1843 7.55470042E-01 9.98647122E-01 3.23036780E-01 + 1844 7.56623395E-01 9.98674951E-01 3.23124724E-01 + 1845 7.57777233E-01 9.98702347E-01 3.23212333E-01 + 1846 7.58931553E-01 9.98729314E-01 3.23299607E-01 + 1847 7.60086352E-01 9.98755857E-01 3.23386545E-01 + 1848 7.61241630E-01 9.98781980E-01 3.23473148E-01 + 1849 7.62397384E-01 9.98807687E-01 3.23559415E-01 + 1850 7.63553611E-01 9.98832982E-01 3.23645346E-01 + 1851 7.64710309E-01 9.98857871E-01 3.23730940E-01 + 1852 7.65867476E-01 9.98882357E-01 3.23816197E-01 + 1853 7.67025110E-01 9.98906444E-01 3.23901117E-01 + 1854 7.68183209E-01 9.98930137E-01 3.23985699E-01 + 1855 7.69341770E-01 9.98953440E-01 3.24069944E-01 + 1856 7.70500791E-01 9.98976358E-01 3.24153850E-01 + 1857 7.71660271E-01 9.98998894E-01 3.24237417E-01 + 1858 7.72820206E-01 9.99021053E-01 3.24320646E-01 + 1859 7.73980595E-01 9.99042838E-01 3.24403535E-01 + 1860 7.75141435E-01 9.99064255E-01 3.24486085E-01 + 1861 7.76302724E-01 9.99085307E-01 3.24568295E-01 + 1862 7.77464461E-01 9.99105997E-01 3.24650165E-01 + 1863 7.78626641E-01 9.99126332E-01 3.24731694E-01 + 1864 7.79789265E-01 9.99146313E-01 3.24812882E-01 + 1865 7.80952329E-01 9.99165947E-01 3.24893728E-01 + 1866 7.82115830E-01 9.99185235E-01 3.24974234E-01 + 1867 7.83279768E-01 9.99204184E-01 3.25054397E-01 + 1868 7.84444138E-01 9.99222795E-01 3.25134218E-01 + 1869 7.85608941E-01 9.99241075E-01 3.25213696E-01 + 1870 7.86774172E-01 9.99259026E-01 3.25292831E-01 + 1871 7.87939830E-01 9.99276652E-01 3.25371623E-01 + 1872 7.89105912E-01 9.99293957E-01 3.25450071E-01 + 1873 7.90272417E-01 9.99310946E-01 3.25528175E-01 + 1874 7.91439342E-01 9.99327622E-01 3.25605934E-01 + 1875 7.92606685E-01 9.99343989E-01 3.25683349E-01 + 1876 7.93774443E-01 9.99360051E-01 3.25760419E-01 + 1877 7.94942614E-01 9.99375811E-01 3.25837143E-01 + 1878 7.96111197E-01 9.99391274E-01 3.25913521E-01 + 1879 7.97280188E-01 9.99406443E-01 3.25989553E-01 + 1880 7.98449586E-01 9.99421322E-01 3.26065238E-01 + 1881 7.99619388E-01 9.99435914E-01 3.26140576E-01 + 1882 8.00789591E-01 9.99450224E-01 3.26215567E-01 + 1883 8.01960195E-01 9.99464255E-01 3.26290210E-01 + 1884 8.03131196E-01 9.99478011E-01 3.26364505E-01 + 1885 8.04302592E-01 9.99491495E-01 3.26438452E-01 + 1886 8.05474381E-01 9.99504711E-01 3.26512049E-01 + 1887 8.06646560E-01 9.99517663E-01 3.26585298E-01 + 1888 8.07819128E-01 9.99530354E-01 3.26658196E-01 + 1889 8.08992081E-01 9.99542787E-01 3.26730745E-01 + 1890 8.10165419E-01 9.99554967E-01 3.26802943E-01 + 1891 8.11339137E-01 9.99566897E-01 3.26874790E-01 + 1892 8.12513235E-01 9.99578580E-01 3.26946286E-01 + 1893 8.13687710E-01 9.99590019E-01 3.27017431E-01 + 1894 8.14862559E-01 9.99601219E-01 3.27088223E-01 + 1895 8.16037781E-01 9.99612182E-01 3.27155088E-01 + 1896 8.17213372E-01 9.99622913E-01 3.27225179E-01 + 1897 8.18389331E-01 9.99633413E-01 3.27294918E-01 + 1898 8.19565656E-01 9.99643687E-01 3.27364303E-01 + 1899 8.20742343E-01 9.99653739E-01 3.27433334E-01 + 1900 8.21919391E-01 9.99663570E-01 3.27502010E-01 + 1901 8.23096798E-01 9.99665701E-01 3.27570331E-01 + 1902 8.24274561E-01 9.99675113E-01 3.27638297E-01 + 1903 8.25452677E-01 9.99684315E-01 3.27705907E-01 + 1904 8.26631145E-01 9.99693310E-01 3.27773161E-01 + 1905 8.27809962E-01 9.99702102E-01 3.27840058E-01 + 1906 8.28989126E-01 9.99710693E-01 3.27906598E-01 + 1907 8.30168635E-01 9.99719087E-01 3.27972780E-01 + 1908 8.31348485E-01 9.99727287E-01 3.28038605E-01 + 1909 8.32528676E-01 9.99735296E-01 3.28104071E-01 + 1910 8.33709204E-01 9.99743117E-01 3.28169178E-01 + 1911 8.34890067E-01 9.99750752E-01 3.28233925E-01 + 1912 8.36071264E-01 9.99758206E-01 3.28298313E-01 + 1913 8.37252791E-01 9.99765481E-01 3.28362340E-01 + 1914 8.38434646E-01 9.99772580E-01 3.28426007E-01 + 1915 8.39616827E-01 9.99779506E-01 3.28489312E-01 + 1916 8.40799331E-01 9.99786261E-01 3.28552256E-01 + 1917 8.41982157E-01 9.99792850E-01 3.28614837E-01 + 1918 8.43165301E-01 9.99799273E-01 3.28677056E-01 + 1919 8.44348763E-01 9.99805536E-01 3.28738911E-01 + 1920 8.45532538E-01 9.99811639E-01 3.28800402E-01 + 1921 8.46716625E-01 9.99817587E-01 3.28861529E-01 + 1922 8.47901022E-01 9.99823381E-01 3.28922292E-01 + 1923 8.49085726E-01 9.99829025E-01 3.28982689E-01 + 1924 8.50270735E-01 9.99834521E-01 3.29042720E-01 + 1925 8.51456046E-01 9.99839872E-01 3.29102385E-01 + 1926 8.52641657E-01 9.99845080E-01 3.29161684E-01 + 1927 8.53827566E-01 9.99850149E-01 3.29220614E-01 + 1928 8.55013771E-01 9.99855081E-01 3.29279177E-01 + 1929 8.56200268E-01 9.99859877E-01 3.29337371E-01 + 1930 8.57387057E-01 9.99864542E-01 3.29395196E-01 + 1931 8.58574133E-01 9.99869078E-01 3.29452652E-01 + 1932 8.59761496E-01 9.99873486E-01 3.29509737E-01 + 1933 8.60949142E-01 9.99877770E-01 3.29566452E-01 + 1934 8.62137069E-01 9.99881932E-01 3.29622795E-01 + 1935 8.63325275E-01 9.99885974E-01 3.29678766E-01 + 1936 8.64513758E-01 9.99889899E-01 3.29734364E-01 + 1937 8.65702515E-01 9.99893709E-01 3.29789590E-01 + 1938 8.66891544E-01 9.99897406E-01 3.29844441E-01 + 1939 8.68080842E-01 9.99900994E-01 3.29898918E-01 + 1940 8.69270407E-01 9.99904473E-01 3.29953020E-01 + 1941 8.70460236E-01 9.99907847E-01 3.30006747E-01 + 1942 8.71650328E-01 9.99911118E-01 3.30060097E-01 + 1943 8.72840680E-01 9.99914287E-01 3.30113070E-01 + 1944 8.74031289E-01 9.99917358E-01 3.30165665E-01 + 1945 8.75222154E-01 9.99920332E-01 3.30217882E-01 + 1946 8.76413271E-01 9.99923211E-01 3.30269720E-01 + 1947 8.77604638E-01 9.99925997E-01 3.30321178E-01 + 1948 8.78796254E-01 9.99928694E-01 3.30372256E-01 + 1949 8.79988115E-01 9.99931302E-01 3.30422953E-01 + 1950 8.81180219E-01 9.99933823E-01 3.30473267E-01 + 1951 8.82372564E-01 9.99936261E-01 3.30523200E-01 + 1952 8.83565148E-01 9.99938616E-01 3.30572749E-01 + 1953 8.84757967E-01 9.99940891E-01 3.30621914E-01 + 1954 8.85951020E-01 9.99943087E-01 3.30670696E-01 + 1955 8.87144305E-01 9.99945207E-01 3.30719090E-01 + 1956 8.88337818E-01 9.99947252E-01 3.30767098E-01 + 1957 8.89531558E-01 9.99949225E-01 3.30814719E-01 + 1958 8.90725521E-01 9.99951127E-01 3.30861952E-01 + 1959 8.91919707E-01 9.99952959E-01 3.30908796E-01 + 1960 8.93114112E-01 9.99954725E-01 3.30955251E-01 + 1961 8.94308733E-01 9.99956425E-01 3.31001315E-01 + 1962 8.95503569E-01 9.99958061E-01 3.31046987E-01 + 1963 8.96698617E-01 9.99959635E-01 3.31092267E-01 + 1964 8.97893875E-01 9.99961148E-01 3.31137154E-01 + 1965 8.99089339E-01 9.99962603E-01 3.31181646E-01 + 1966 9.00285009E-01 9.99964001E-01 3.31225744E-01 + 1967 9.01480881E-01 9.99965343E-01 3.31269442E-01 + 1968 9.02676953E-01 9.99966631E-01 3.31312746E-01 + 1969 9.03873223E-01 9.99967867E-01 3.31355651E-01 + 1970 9.05069688E-01 9.99969052E-01 3.31398158E-01 + 1971 9.06266346E-01 9.99970188E-01 3.31440265E-01 + 1972 9.07463194E-01 9.99971276E-01 3.31481971E-01 + 1973 9.08660230E-01 9.99972317E-01 3.31523274E-01 + 1974 9.09857451E-01 9.99973313E-01 3.31564174E-01 + 1975 9.11054856E-01 9.99974266E-01 3.31604670E-01 + 1976 9.12252441E-01 9.99975177E-01 3.31644761E-01 + 1977 9.13450205E-01 9.99976046E-01 3.31684445E-01 + 1978 9.14648144E-01 9.99976876E-01 3.31723721E-01 + 1979 9.15846257E-01 9.99977668E-01 3.31762588E-01 + 1980 9.17044541E-01 9.99978423E-01 3.31801045E-01 + 1981 9.18242994E-01 9.99979142E-01 3.31839091E-01 + 1982 9.19441612E-01 9.99979827E-01 3.31876724E-01 + 1983 9.20640395E-01 9.99980479E-01 3.31913943E-01 + 1984 9.21839339E-01 9.99981098E-01 3.31950746E-01 + 1985 9.23038441E-01 9.99981686E-01 3.31987163E-01 + 1986 9.24237701E-01 9.99982245E-01 3.32023134E-01 + 1987 9.25437114E-01 9.99982775E-01 3.32058685E-01 + 1988 9.26636679E-01 9.99983277E-01 3.32093816E-01 + 1989 9.27836393E-01 9.99983753E-01 3.32128524E-01 + 1990 9.29036253E-01 9.99984203E-01 3.32162808E-01 + 1991 9.30236259E-01 9.99984629E-01 3.32196666E-01 + 1992 9.31436406E-01 9.99985031E-01 3.32230098E-01 + 1993 9.32636692E-01 9.99985411E-01 3.32263100E-01 + 1994 9.33837116E-01 9.99985769E-01 3.32295673E-01 + 1995 9.35037674E-01 9.99986107E-01 3.32327813E-01 + 1996 9.36238364E-01 9.99986424E-01 3.32359519E-01 + 1997 9.37439184E-01 9.99986723E-01 3.32390789E-01 + 1998 9.38640131E-01 9.99987003E-01 3.32421621E-01 + 1999 9.39841203E-01 9.99987267E-01 3.32452014E-01 + 2000 9.41042398E-01 9.99987514E-01 3.32481965E-01 + 2001 9.42243712E-01 9.99987745E-01 3.32511473E-01 + 2002 9.43445145E-01 9.99987962E-01 3.32540534E-01 + 2003 9.44646692E-01 9.99988164E-01 3.32569148E-01 + 2004 9.45848352E-01 9.99988353E-01 3.32636974E-01 + 2005 9.47050122E-01 9.99988529E-01 3.32664153E-01 + 2006 9.48252000E-01 9.99988693E-01 3.32690861E-01 + 2007 9.49453983E-01 9.99988846E-01 3.32717092E-01 + 2008 9.50656069E-01 9.99988987E-01 3.32742845E-01 + 2009 9.51858255E-01 9.99989119E-01 3.32768114E-01 + 2010 9.53060540E-01 9.99989241E-01 3.32792897E-01 + 2011 9.54262920E-01 9.99989354E-01 3.32817189E-01 + 2012 9.55465394E-01 9.99989459E-01 3.32840986E-01 + 2013 9.56667957E-01 9.99989556E-01 3.32864284E-01 + 2014 9.57870610E-01 9.99989645E-01 3.32887078E-01 + 2015 9.59073348E-01 9.99989728E-01 3.32909363E-01 + 2016 9.60276169E-01 9.99989804E-01 3.32931134E-01 + 2017 9.61479071E-01 9.99989874E-01 3.32952386E-01 + 2018 9.62682052E-01 9.99989938E-01 3.32973111E-01 + 2019 9.63885109E-01 9.99989998E-01 3.32993306E-01 + 2020 9.65088239E-01 9.99990052E-01 3.33012962E-01 + 2021 9.66291440E-01 9.99990102E-01 3.33032073E-01 + 2022 9.67494710E-01 9.99990148E-01 3.33050631E-01 + 2023 9.68698047E-01 9.99990191E-01 3.33068628E-01 + 2024 9.69901447E-01 9.99990230E-01 3.33086056E-01 + 2025 9.71104908E-01 9.99990266E-01 3.33102905E-01 + 2026 9.72308428E-01 9.99990299E-01 3.33119165E-01 + 2027 9.73512005E-01 9.99990330E-01 3.33134824E-01 + 2028 9.74715635E-01 9.99990358E-01 3.33149871E-01 + 2029 9.75919317E-01 9.99990385E-01 3.33164292E-01 + 2030 9.77123049E-01 9.99990409E-01 3.33178072E-01 + 2031 9.78326826E-01 9.99990432E-01 3.33191196E-01 + 2032 9.79530648E-01 9.99990454E-01 3.33203644E-01 + 2033 9.80734512E-01 9.99990475E-01 3.33215396E-01 + 2034 9.81938415E-01 9.99990494E-01 3.33226429E-01 + 2035 9.83142354E-01 9.99990513E-01 3.33236717E-01 + 2036 9.84346328E-01 9.99990530E-01 3.33246227E-01 + 2037 9.85550334E-01 9.99990548E-01 3.33254924E-01 + 2038 9.86754370E-01 9.99990564E-01 3.33262765E-01 + 2039 9.87958432E-01 9.99990580E-01 3.33269700E-01 + 2040 9.89162519E-01 9.99990596E-01 3.33275664E-01 + 2041 9.90366628E-01 9.99990612E-01 3.33280578E-01 + 2042 9.91570756E-01 9.99990627E-01 3.33284342E-01 + 2043 9.92774902E-01 9.99990642E-01 3.33286820E-01 + 2044 9.93979063E-01 9.99990657E-01 3.33287825E-01 + 2045 9.95183235E-01 9.99990672E-01 3.33287078E-01 + 2046 9.96387418E-01 9.99990687E-01 3.33284136E-01 + 2047 9.97591608E-01 9.99990702E-01 3.33278180E-01 + 2048 9.98795803E-01 9.99990716E-01 3.33267271E-01 + 2049 1.00000000E+00 9.99990731E-01 3.33237496E-01 +ENDE Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmo.c =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmo.c (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmo.c (revision 1444) @@ -0,0 +1,1195 @@ +/* ================================================================== */ +/** + * @file atmo.c + * @short Use of tabulated atmospheric profiles and atmospheric refraction. + * + * @author Konrad Bernloehr + * $Date: 2002-07-25 17:46:40 $ + * $Revision: 1.1 $ + * + * Copyright (C) 1990, 1997, 1998 Konrad Bernloehr. All rights reserved. + * Distribution and use of this software with the CORSIKA program is + * allowed and free. No redistribution separate of CORSIKA or of + * modified versions granted without permission. Modifications may, + * however, be distributed as patches to the original version. + * This software comes with no warranties. + * + * -------------------------------------------------------------------- + * + * This file provides code for use of external atmospheric models + * (in the form of text-format tables) with the CORSIKA program. + * Six atmospheric models as implemented in the MODTRAN program + * and as tabulated in MODTRAN documentation (F.X. Kneizys et al. 1996, + * 'The MODTRAN 2/3 Report and LOWTRAN 7 Model', Phillips Laboratory, + * Hanscom AFB, MA 01731-3010, U.S.A.) are provided as separate files + * (atmprof1.dat ... atmprof6.dat). User-provided atmospheric + * models should be given model numbers above 6. + * + * Note that for the Cherenkov part and the hadronic (and muon) part + * of CORSIKA the table values are directly interpolated but the + * electron/positron/gamma part (derived from EGS) uses special + * layers (at present 4 with exponential density decrease and the + * most upper layer with constant density). Parameters of these + * layers are fitted to tabulated values but not every possible + * atmospheric model fits very well with an exponential profile. + * You are adviced to check that the fit matches tabulated values to + * sufficient precision in the altitude ranges of interest to you. + * Try to adjust layer boundary altitudes in case of problems. + * The propagation of light without refraction (as implemented in + * CORSIKA, unless using the CURVED option) and with refraction (as + * implemented by this software) assumes a plane-parallel atmosphere. +*/ +/* ==================================================================== */ + +#include +#include +#include + +#define FAST_INTERPOLATION 1 + +/* The CORSIKA version against which this software should match. */ +/* If your CORSIKA is somewhat newer than 5.901 there is probably */ +/* no reason to worry; incompatible changes should not happen */ +/* all too often. */ +#ifndef CORSIKA_VERSION +# define CORSIKA_VERSION 6000 +#endif + +#if (CORSIKA_VERSION < 5901) +typedef float cors_real_now_t; +#else +typedef double cors_real_now_t; +#endif + +/* Function prototypes for functions implemented in this file */ + +/* FORTRAN called functions (beware changes of parameter types !!) */ +void atmset_(int *iatmo, double *obslev); +double rhofx_(double *height); +double thickx_(double *height); +double refidx_(double *height); +double heighx_(double *thick); +void raybnd_(double *zem, cors_real_now_t *u, cors_real_now_t *v, double *w, + cors_real_now_t *dx, cors_real_now_t *dy, cors_real_now_t *dt); +void atmfit_(int *nlp, double *hlay, double *aatm, double *batm, double *catm); + +/* C called functions (parameter types are always checked) */ +static void interp(double x, double *v, int n, int *ipl, double *rpl); +double rpol(double *x, double *y, int n, double xp); +static void init_refraction_tables(void); +static void init_corsika_atmosphere(void); +static void init_atmosphere(void); +static double sum_log_dev_sq(double a, double b, double c, int np, + double *h, double *t, double *rho); +static double atm_exp_fit(double h1, double h2, double *ap, double *bp, + double *cp, double *s0, int *npp); + +/* Variables used for atmospheric profiles */ + +#define MAX_PROFILE 50 +int atmosphere; +static int num_prof; +static double p_alt[MAX_PROFILE], p_log_alt[MAX_PROFILE]; +static double p_log_rho[MAX_PROFILE], p_rho[MAX_PROFILE]; +static double p_log_thick[MAX_PROFILE]; +static double p_log_n1[MAX_PROFILE]; +static double p_bend_ray_hori_a[MAX_PROFILE]; +static double p_bend_ray_time0[MAX_PROFILE]; +static double p_bend_ray_time_a[MAX_PROFILE]; + +static double top_of_atmosphere = 112.8e5; +static double bottom_of_atmosphere = 0.; + +#ifdef FAST_INTERPOLATION +#define MAX_FAST_PROFILE 1000 +static double fast_p_alt[MAX_FAST_PROFILE]; +static double fast_p_log_rho[MAX_FAST_PROFILE]; +static double fast_p_log_thick[MAX_FAST_PROFILE]; +static double fast_p_log_n1[MAX_FAST_PROFILE]; +static double fast_h_fac; +#endif + +/* ================================================================== */ +/* + Linear interpolation functions from an older program of K.B. + A binary search algorithm is used for fast interpolation. +*/ + +/* --------------------------- interp ------------------------------- */ +/** + * @short Linear interpolation with binary search algorithm. + * + * Linear interpolation between data point in sorted (i.e. monotonic + * ascending or descending) order. This function determines between + * which two data points the requested coordinate is and where between + * them. If the given coordinate is outside the covered range, the + * value for the corresponding edge is returned. + * + * A binary search algorithm is used for fast interpolation. + * + * @param x Input: the requested coordinate + * @param v Input: tabulated coordinates at data points + * @param n Input: number of data points + * @param ipl Output: the number of the data point following the requested + * coordinate in the given sorting (1 <= ipl <= n-1) + * @param rpl Output: the fraction (x-v[ipl-1])/(v[ipl]-v[ipl-1]) + * with 0 <= rpl <= 1 +*/ + +static void interp ( double x, double *v, int n, int *ipl, double *rpl ) +{ + int i, l, m, j, lm; + +#ifdef DEBUG_TEST_ALL + if ( v == NULL || n <= 2 ) + { + fprintf(stderr,"Invalid parameters for interpolation.\n"); + *ipl = 1; + *rpl = 0.; + return; + } +#endif + + if ( v[0] < v[n-1] ) + { + if (x <= v[0]) + { + *ipl = 1; + *rpl = 0.; + return; + } + else if (x >= v[n-1]) + { + *ipl = n-1; + *rpl = 1.; + return; + } + lm = 0; + } + else + { + if (x >= v[0]) + { + *ipl = 1; + *rpl = 0.; + return; + } + else if (x <= v[n-1]) + { + *ipl = n-1; + *rpl = 1.; + return; + } + lm = 1; + } + + l = (n+1)/2-1; + m = (n+1)/2; + for (i=1; i<=30; i++ ) + { + j = l; + if (j < 1) j=1; + if (j > n-1) j=n-1; + if (x >= v[j+lm-1] && x <= v[j-lm]) + { + *ipl = j; + if ( v[j] != v[j-1] ) + *rpl = (x-v[j-1])/(v[j]-v[j-1]); + else + *rpl = 0.5; + return; + } + m = (m+1)/2; + if (x > v[j-1]) + l = l + (1-2*lm)*m; + else + l = l - (1-2*lm)*m; + } + fprintf(stderr,"Interpolation error.\n"); +} + +/* ----------------------------- rpol ------------------------------- */ +/** + * @short Linear interpolation with binary search algorithm. + * + * Linear interpolation between data point in sorted (i.e. monotonic + * ascending or descending) order. The resulting interpolated value + * is returned as a return value. + * + * This function calls interp() the find out where to interpolate. + * + * @param x Input: Coordinates for data table + * @param y Input: Corresponding values for data table + * @param n Input: Number of data points + * @param xp Input: Coordinate of requested value + * + * @return Interpolated value + * +*/ + +double rpol ( double *x, double *y, int n, double xp ) +{ + int ipl; + double rpl; + + interp ( xp, x, n, &ipl, &rpl ); + return y[ipl-1]*(1.-rpl) + y[ipl]*rpl; +} + +/* ======================================================================= */ + +static double etadsn; /**< About the same as in CORSIKA Cherenkov function */ + /**< (but doesn't need to be the same). */ +static double observation_level; /**< Altitude [cm] of observation level */ +static double obs_level_refidx; +static double obs_level_thick; + +/* ------------------- init_refraction_tables ---------------------- */ +/** + * @short Initialize tables needed for atmospheric refraction. + * + * Initialize the correction tables used for the refraction bending + * of the light paths. It is called once after the atmospheric + * profile has been defined. +*/ + +static void init_refraction_tables() +{ + int ialt; + + /* Etadsn is the parameter used in CORSIKA for the scaling */ + /* between density and index of refraction minus one (n-1). */ + etadsn = 0.000283 * 994186.38 / 1222.656; /* CORSIKA default */ + /* Look for better approximation above the observation level. */ + for (ialt=0; ialt observation_level + 1.5e5 ) + { + etadsn = exp(p_log_n1[ialt]) / exp(p_log_rho[ialt]); + break; + } + +#ifdef DEBUG_TEST_ALL + if ( p_alt[0] != p_alt[4] && p_log_rho[0] != p_log_rho[4] ) + { + double dscl_p, dscl_t; + dscl_p = (p_alt[4]-p_alt[0]) / (p_log_rho[0]-p_log_rho[4]); + dscl_t = (p_alt[4]-p_alt[0]) / (p_log_thick[0]-p_log_thick[4]); + printf(" Pressure scale height near ground: %7.2f m\n",dscl_p*0.01); + printf(" Thickness scale height near ground: %7.2f m\n",dscl_t*0.01); + printf(" Etadsn=(n-1)/density parameter: %g\n",etadsn); + } +#endif + + /* Initialize tables by numerical integration for vertical and slanted */ + /* (45 degrees) paths, taking into account known angular dependences. */ + + for (ialt=0; ialt top_of_atmosphere ) + { + if ( ialt > 0 && ialt+1 < 50 && ialt+1 < MAX_PROFILE ) + alt[ialt] = 0.5*(alt[ialt-1]+top_of_atmosphere); + else + alt[ialt] = top_of_atmosphere; + } + p_alt[num_prof] = alt[ialt]*1e5; + p_log_alt[num_prof] = (alt[ialt]>0.)?log(alt[ialt]*1e5):0.; + /* Get density from CORSIKA */ + rho = rhof_(&p_alt[num_prof]); + if ( rho <= 0. ) + rho = 1e-20; + p_log_rho[num_prof] = log(rho); + p_rho[num_prof] = rho; + /* Get atmospheric thickness from CORSIKA */ + thick = thick_(&p_alt[num_prof]); + p_log_thick[num_prof] = (thick>0.)?log(thick):-1000.; + /* Index of refraction simply proportional to density, assuming */ + /* n=1.000283 for CORSIKA default atmosphere at sea level */ + /* (which is about 0.5% away from the real value of n-1). */ + n_1 = rho * 0.000283 * 994186.38 / 1222.656; + p_log_n1[num_prof] = (n_1>0.)?log(n_1):-1000.; + num_prof++; + } + + bottom_of_atmosphere = p_alt[0]; + +#ifdef FAST_INTERPOLATION + /* Initialize faster tables for most frequent lookups */ + init_fast_interpolation(); +#endif + + /* Initialize the tables for the refraction bending */ + init_refraction_tables(); +} + +/* ----------------------- init_atmosphere ------------------------ */ +/** + * @short Initialize atmospheric profiles. + * + * Internal function for initialising both external and CORSIKA + * built-in atmospheric profiles. If any CORSIKA built-in profile + * should be used, it simply calls init_corsika_atmosphere(). + * + * Otherwise, atmospheric models are read in from text-format tables. + * The supplied models 1-6 are based on output of the MODTRAN program. + * For the interpolation of relevant parameters (density, thickness, + * index of refraction, ...) all parameters are transformed such + * that linear interpolation can be easily used. + * +*/ + +static void init_atmosphere () +{ + char fname[128]; + FILE *f; + char line[1024]; + int count; + double alt,rho,thick,n_1; +#ifdef LONG_ATMPROF + double p,t,N,O3,H2O; +#endif + + /* CORSIKA built-in atmospheres have atmosphere numbers <= 0 */ + if ( atmosphere <=0 ) + { + init_corsika_atmosphere(); + return; + } + + /* There are two different versions of data files. */ +#ifndef LONG_ATMPROF + sprintf(fname,"atmprof%d.dat",atmosphere); +#else + sprintf(fname,"atm_profile_model_%d.dat",atmosphere); +#endif + if ( (f=fopen(fname,"r")) == NULL ) + { + perror(fname); + exit(1); + } + + count = num_prof = 0; + while ( fgets(line,sizeof(line)-1,f) != NULL && num_prof < MAX_PROFILE ) + { + char *s; + count++; + + for (s=line;*s==' ';s++) + ; + if ( *s=='#' ) /* Comment line */ + continue; +#ifndef LONG_ATMPROF + /* The short files contain only data relevant for CORSIKA. */ + if ( sscanf(s,"%lf %lf %lf %lf", + &alt,&rho,&thick,&n_1) != 4 ) +#else + /* The long files contain other data as well. */ + if ( sscanf(s,"%lf %lf %lf %lf %lf %lf %lf %lf %lf", + &alt,&p,&t,&N,&rho,&thick,&O3,&H2O,&n_1) != 9 ) +#endif + { + fprintf(stderr,"Syntax error in %s line %d.\n",fname,count); + exit(1); + } + + p_alt[num_prof] = alt*1e5; /* Altitude in file was in km */ + p_log_alt[num_prof] = (alt>0.)?log(alt*1e5):0.; + p_log_rho[num_prof] = (rho>0.)?log(rho):-1000.; + p_rho[num_prof] = rho; + p_log_thick[num_prof] = (thick>0.)?log(thick):-1000.; + p_log_n1[num_prof] = (n_1>0.)?log(n_1):-1000.; + num_prof++; + } + + fclose(f); + fflush(stdout); + printf("\n Atmospheric profile %d with %d levels read from file %s\n\n", + atmosphere,num_prof,fname); + + if ( num_prof < 5 ) + { + fprintf(stderr, + "There are definitely too few atmospheric levels in this file.\n"); + fprintf(stderr, + "Normally this kind of file should have 50 levels.\n"); + exit(1); + } + + bottom_of_atmosphere = p_alt[0]; + +#ifdef FAST_INTERPOLATION + /* Initialize faster tables for most frequent lookups */ + init_fast_interpolation(); +#endif + + /* Initialize the tables for the refraction bending */ + init_refraction_tables(); +} + +/* -------------------------- atmset_ ---------------------------- */ +/** + * @short Set number of atmospheric model profile to be used. + * + * The atmospheric model is initialized first before the + * interpolating functions can be used. For efficiency reasons, + * the functions rhofx_(), thickx_(), ... don't check if the + * initialisation was done. + * + * This function is called if the 'ATMOSPHERE' keyword is + * present in the CORSIKA input file. + * + * The function may be called from CORSIKA to initialize + * the atmospheric model via 'CALL ATMSET(IATMO,OBSLEV)' or such. + * + * @param iatmo (pointer to) atmospheric profile number; + * negative for CORSIKA built-in profiles. + * @param obslev (pointer to) altitude of observation level [cm] + * + * @return (none) +*/ + +void atmset_ (int *iatmo, double *obslev) +{ + atmosphere = *iatmo; + observation_level = *obslev; + init_atmosphere(); + obs_level_refidx = refidx_(obslev); + obs_level_thick = thickx_(obslev); +} + +/* ---------------------------- rhofx_ ----------------------------- */ +/** + * + * @short Density of the atmosphere as a function of altitude. + * This function can be called from Fortran code as RHOFX(HEIGHT). + * + * @param height (pointer to) altitude [cm] + * + * @return density [g/cm**3] +*/ + +double rhofx_ (double *height) +{ +#ifdef FAST_INTERPOLATION + int i; + double r; + if ( (*height) < bottom_of_atmosphere ) + return p_rho[0]; + else if ( (*height) >= top_of_atmosphere ) + return 0.; + i = (int) ( fast_h_fac * ((*height)-bottom_of_atmosphere) ); + if ( i >= MAX_FAST_PROFILE-1 ) + return 0.; + r = fast_h_fac * ((*height)-fast_p_alt[i]); + return exp((1.-r)*fast_p_log_rho[i] + r*fast_p_log_rho[i+1]); +#else + return exp(rpol(p_alt,p_log_rho,num_prof,*height)); +#endif +} + +/* ---------------------------- thickx_ ----------------------------- */ +/** + * + * @short Atmospheric thickness [g/cm**2] as a function of altitude. + * This function can be called from Fortran code as THICKX(HEIGHT). + * + * @param height (pointer to) altitude [cm] + * + * @return thickness [g/cm**2] + * +*/ + +double thickx_ (double *height) +{ +#ifdef FAST_INTERPOLATION + int i; + double r; + if ( (*height) < bottom_of_atmosphere ) + return exp(fast_p_log_thick[0]); + else if ( (*height) >= top_of_atmosphere ) + return 0.; + i = (int) ( fast_h_fac * ((*height)-bottom_of_atmosphere) ); + if ( i >= MAX_FAST_PROFILE-1 ) + return 0.; + r = fast_h_fac * ((*height)-fast_p_alt[i]); + return exp((1.-r)*fast_p_log_thick[i] + r*fast_p_log_thick[i+1]); +#else + return exp(rpol(p_alt,p_log_thick,num_prof,*height)); +#endif +} + +/* ---------------------------- refidx_ ----------------------------- */ +/** + * + * @short Index of refraction as a function of altitude [cm]. + * This function can be called from Fortran code as REFIDX(HEIGHT). + * + * @param height (pointer to) altitude [cm] + * + * @return index of refraction + * +*/ + +double refidx_ (double *height) +{ +#ifdef FAST_INTERPOLATION + int i; + double r; + if ( (*height) < bottom_of_atmosphere ) + return 1.+exp(fast_p_log_n1[0]); + else if ( (*height) >= top_of_atmosphere ) + return 1.; + i = (int) ( fast_h_fac * ((*height)-bottom_of_atmosphere) ); + if ( i >= MAX_FAST_PROFILE-1 ) + return 1.; + r = fast_h_fac * ((*height)-fast_p_alt[i]); + return 1.+exp((1.-r)*fast_p_log_n1[i] + r*fast_p_log_n1[i+1]); +#else + return 1.+exp(rpol(p_alt,p_log_n1,num_prof,*height)); +#endif +} + +/* ---------------------------- heighx_ ----------------------------- */ +/** + * + * Altitude [cm] as a function of atmospheric thickness [g/cm**2]. + * This function can be called from Fortran code as HEIGHX(THICK). + * + * @param thick (pointer to) atmospheric thickness [g/cm**2] + * + * @param altitude [cm] +*/ + +double heighx_ (double *thick) +{ + double h; + h = rpol(p_log_thick,p_alt,num_prof,*thick>0.?log(*thick):-1000.); + if ( h < top_of_atmosphere ) + return h; + else + return top_of_atmosphere; +} + +/* ---------------------------- raybnd_ ---------------------------- */ +/** + * @short Calculate the bending of light due to atmospheric refraction. + * + * Path of light through the atmosphere including the bending by refraction. + * This function assumes a plane-parallel atmosphere. + * Coefficients for corrections from straight-line propagation to + * refraction-bent path are numerically evaluated when the atmospheric + * model is defined. + * Note that while the former mix of double/float data types may appear odd, + * it was determined by the variables present in older CORSIKA to save + * conversions. With CORSIKA 6.0 all parameters are of double type. + * + * This function may be called from FORTRAN as + * CALL RAYBND(ZEM,U,V,W,DX,DY,DT) + * + * @param zem Altitude of emission above sea level [cm] + * @param u Initial/Final direction cosine along X axis (updated) + * @param v Initial/Final direction cosine along Y axis (updated) + * @param w Initial/Final direction cosine along Z axis (updated) + * @param dx Position in CORSIKA detection plane [cm] (updated) + * @param dy Position in CORSIKA detection plane [cm] (updated) + * @param dt Time of photon [ns]. Input: emission time. + * Output: time of arrival in CORSIKA detection plane. +*/ + +void raybnd_(double *zem, cors_real_now_t *u, cors_real_now_t *v, + double *w, cors_real_now_t *dx, cors_real_now_t *dy, cors_real_now_t *dt) +{ + double sin_t_em, sin_t_obs, theta_em, theta_obs; + double c, s, h, t, rho; + double hori_off, travel_time; + double vc = 29.9792458; /* velocity of light [cm/ns] */ + + /* (Sine of) emission zenith angle */ + sin_t_em = sqrt((double)((*u)*(*u)+(*v)*(*v))); + if ( sin_t_em <= 0. ) + { /* Exactly vertical: no bending; just calulate travel time. */ + *dt += (((*zem) - observation_level) + + etadsn*(obs_level_thick-thickx_(zem))) / (*w) / vc + + rpol(p_alt,p_bend_ray_time0,num_prof,*zem); + return; + } + if ( sin_t_em > 1. || (*w) <= 0. ) + return; + theta_em = asin(sin_t_em); + + /* (Sine of) observed zenith angle */ + sin_t_obs = sin_t_em*refidx_(zem) / obs_level_refidx; + if ( sin_t_obs > 1. ) + return; + theta_obs = asin(sin_t_obs); + +#ifdef TEST_RAYBND +fflush(NULL); +printf(" raybnd: theta = %5.3f, %5.3f\n",(double)(theta_em*180./M_PI), + (double)(theta_obs*180./M_PI)); +#endif + + /* Calculate horizontal displacement with respect to straight line */ + /* and total light travel time from emission to observation level. */ + + c = cos(theta_em+0.28*(theta_obs-theta_em)); + s = sin(theta_em+0.28*(theta_obs-theta_em)); + + rho = rhofx_(zem); + h = rpol(p_rho,p_bend_ray_hori_a,num_prof,rho); + hori_off = -(h*h) * s/(c*c*c); + t = rpol(p_rho,p_bend_ray_time_a,num_prof,rho); +#ifdef TEST_RAYBND +printf(" raybnd: horizontal displacement = %5.2f\n",hori_off); +printf(" raybdn: time = %5.3f + %5.3f +%5.3f + %5.3f\n", + *dt,(((*zem) - observation_level) + + etadsn*(obs_level_thick-thickx_(zem))) / (*w) / vc, + rpol(p_alt,p_bend_ray_time0,num_prof,*zem), + -(t*t) * (s*s)/(c*c*c)); +#endif + travel_time = rpol(p_alt,p_bend_ray_time0,num_prof,*zem) - + (t*t) * (s*s)/(c*c*c); + travel_time += (((*zem) - observation_level) + + etadsn*(obs_level_thick-thickx_(zem))) / (*w) / vc; + + /* Update arguments: */ + /* Emission direction replaced by observed direction. */ + *u *= sin_t_obs/sin_t_em; + *v *= sin_t_obs/sin_t_em; + *w = sqrt(1.-sin_t_obs*sin_t_obs); + + /* Position in observation level corrected for displacement. */ + *dx += hori_off * (*u)/sin_t_obs; + *dy += hori_off * (*v)/sin_t_obs; + + /* Light travel time added to emission time. */ + *dt += travel_time; +} + +/* ============================================================== */ +/* + * Functions for fitting the tabulated density profile for CORSIKA EGS part. +*/ + +/* ------------------------ sum_log_dev_sq ------------------------- */ +/** + * Measure of deviation of model layers from tables. +*/ + +static double sum_log_dev_sq(double a, double b, double c, int np, + double *h, double *t, double *rho) +{ + int ip; + double s = 0., al; + for (ip=0; ip 0. && t[ip] > 0. ) + al = log((a+b*exp(-h[ip]/c)) / t[ip]); + else + al = 0.; + s += al*al; +#elif 1 + /* Compromise between relative and absolute deviations */ + if ( a+b*exp(-h[ip]/c) > 0. && t[ip] > 0. ) + al = log((a+b*exp(-h[ip]/c)) / t[ip]); + else + al = 0.; + s += fabs(al)*fabs(a+b*exp(-h[ip]/c) - t[ip]); +#elif 0 + /* Fit minimizes absolute deviations (better fits at low altitude) */ + al = a+b*exp(-h[ip]/c) - t[ip]; + s += al*al; +#endif + } + return s; +} + +/* ------------------------ atm_exp_fit ------------------------- */ +/** + * Fit one atmosphere layer by an expontential density model. +*/ + +static double atm_exp_fit ( double h1, double h2, double *ap, + double *bp, double *cp, double *s0, int *npp ) +{ + int ip, np, iter; + double h[MAX_PROFILE], t[MAX_PROFILE], rho[MAX_PROFILE], t1, t2; + double a = *ap, b = *bp, c = *cp; + double s, dc; + + for (ip=np=0; ip= h1 && p_alt[ip] <= h2 && p_alt[ip] < 86e5 ) + { + h[np] = p_alt[ip]; + t[np] = exp(p_log_thick[ip]); + rho[np] = exp(p_log_rho[ip]); + np++; + } + t1 = thickx_(&h1); + t2 = thickx_(&h2); + + *s0 = sum_log_dev_sq(a,b,c,np,h,t,rho); + *npp = np; + if ( np <= 0 ) + return 0.; + else if ( h1 == h2 || t1 == t2 ) + return sum_log_dev_sq(a,b,c,np,h,t,rho); + else if ( np <= 2 || ( np == 3 && (h1==h[0] || h2==h[1])) ) + { + *cp = c = *cp; + *bp = b = (t2-t1) / (exp(-h2/c)-exp(-h1/c)); + *ap = a = t1 - b*exp(-h1/c); + return sum_log_dev_sq(a,b,c,np,h,t,rho); + } + + c = *cp; + b = (t2-t1) / (exp(-h2/c)-exp(-h1/c)); + a = t1 - b*exp(-h1/c); + s = sum_log_dev_sq(a,b,c,np,h,t,rho); + for ( iter=0, dc=2000.e2; iter<30; iter++ ) + { + double a1, a2, a3, an, b1, b2, b3, bn, c1, c2, c3, cn, s1, s2, s3, sn; + c2 = c; + c1 = c - dc; + if ( c1 <= 0. ) + c1 = c / 2.; + c3 = c + dc; + + b1 = (t2-t1) / (exp(-h2/c1)-exp(-h1/c1)); + a1 = t1 - b1*exp(-h1/c1); + b2 = (t2-t1) / (exp(-h2/c2)-exp(-h1/c2)); + a2 = t1 - b2*exp(-h1/c2); + b3 = (t2-t1) / (exp(-h2/c3)-exp(-h1/c3)); + a3 = t1 - b3*exp(-h1/c3); + s1 = sum_log_dev_sq(a1,b1,c1,np,h,t,rho); + s2 = sum_log_dev_sq(a2,b2,c2,np,h,t,rho); + s3 = sum_log_dev_sq(a3,b3,c3,np,h,t,rho); + /* This works only for a roughly parabolic minimum */ + cn = ((c1*c1-c2*c2)*(s3-s2)-(c3*c3-c2*c2)*(s1-s2)) / + (2.*(c1-c2)*(s3-s2)-2.*(c3-c2)*(s1-s2)); + if ( cn <= 0. ) + cn = 0.5*c; + bn = (t2-t1) / (exp(-h2/cn)-exp(-h1/cn)); + an = t1 - bn*exp(-h1/cn); + sn = sum_log_dev_sq(an,bn,cn,np,h,t,rho); + if ( sn > s ) + break; + if ( sn < s*1.00001 ) + { + a = an; + b = bn; + c = cn; + s = sn; + break; + } + if ( cn < 3000.e2 ) + { + cn = 3000.e2; + bn = (t2-t1) / (exp(-h2/cn)-exp(-h1/cn)); + an = t1 - bn*exp(-h1/cn); + dc = 1000.e2; + } + else if ( cn > c + 1.5*dc ) + { + cn = c + 1.5*dc; + bn = (t2-t1) / (exp(-h2/cn)-exp(-h1/cn)); + an = t1 - bn*exp(-h1/cn); + dc *= 2.; + } + else if ( cn < c -1.5*dc ) + { + cn = c -1.5*dc; + bn = (t2-t1) / (exp(-h2/cn)-exp(-h1/cn)); + an = t1 - bn*exp(-h1/cn); + dc *= 2.; + } + else if ( fabs(c-cn) < 0.25*dc ) + dc = 2.*fabs(c-cn) + 0.2*dc; + else + dc = 1.5*fabs(c-cn); + a = an; + b = bn; + c = cn; + s = sn; + } + *cp = c; + *bp = b; + *ap = a; + return s; +} + +/* ---------------------------- atmfit_ ------------------------------ */ +/** + * @short Fit the tabulated density profile for CORSIKA EGS part. + * + * Fitting of the tabulated atmospheric density profile by + * piecewise exponential parts as used in CORSIKA. + * The fits are constrained by fixing the atmospheric thicknesses + * at the boundaries to the values obtained from the table. + * Note that not every atmospheric profile can be fitted well + * by the CORSIKA piecewise models (4*exponential + 1*constant + * density). In particular, the tropical model is known to + * be a problem. Setting the boundary heights manually might help. + * The user is advised to check at least once that the fitted + * layers represent the tabulated atmosphere sufficiently well, + * at least at the altitudes most critical for the observations + * (usually at observation level and near shower maximum but + * depending on the user's emphasis, this may vary). + * + * Fit all layers (except the uppermost) by exponentials and (if *nlp > 0) + * try to improve fits by adjusting layer boundaries. + * The uppermost layer has constant density up to the 'edge' of the atmosphere. + * + * This function may be called from CORSIKA. + * + * Parameters (all pointers since function is called from Fortran): + * @param nlp Number of layers (or negative of that if boundaries set manually) + * @param hlay Vector of layer (lower) boundaries. + * @param aatm,batm,catm Parameters as used in CORSIKA. +*/ + +void atmfit_(int *nlp, double *hlay, double *aatm, double *batm, double *catm) +{ + int il, np; + double *a, *b, *c, *h, *s, *s0; + double atmp[2], btmp[2], ctmp[2], htmp[3]; + int nl = (*nlp<0) ? -*nlp : *nlp; /* Actual number of layers */ + double factmx = (*nlp<0) ? 1.0 : 1.4; /* Max. scale for boundary adjustment */ + int show_fit; + + if ( nl < 2 || atmosphere == 0 ) + return; + + /* The lowest layer boundary must not be below the lowest table entry */ + /* because values can only be interpolated, not extrapolated. */ + if ( hlay[0] < bottom_of_atmosphere ) + hlay[0] = bottom_of_atmosphere; + /* The default layers are known to be a rather bad choice for */ + /* the tropical atmosphere. Replace them with better starting values. */ + if ( *nlp > 0 && atmosphere == 1 ) + { + hlay[1] = 9.25e5; + hlay[2] = 19.0e5; + hlay[3] = 37.5e5; + hlay[4] = 90.0e5; + } + + if ( (h = calloc((size_t)(nl+1),sizeof(double))) == NULL || + (s = calloc((size_t)(nl),sizeof(double))) == NULL || + (s0 = calloc((size_t)(nl),sizeof(double))) == NULL || + (a = calloc((size_t)(nl),sizeof(double))) == NULL || + (b = calloc((size_t)(nl),sizeof(double))) == NULL || + (c = calloc((size_t)(nl),sizeof(double))) == NULL ) + { + return; + } + + for ( il=0; il 1.0 ) /* Try to improve by adjusting boundaries */ + { +#ifdef DEBUG_ATM_FIT + printf("\n Intermediate results of atmosphere fit:\n"); + for ( il=0; il %10.4e\n", + il+1,h[il]/1e5,h[il+1]/1e5,a[il],b[il],c[il],s0[il],s[il]); + printf("\n"); + for ( il=0; il<=nl;il++) + printf("h%db=%6.2f;",il+1,h[il]/1.e5); + printf("\n"); + for ( il=0; il=0; il-- ) + { + double smin[2], stmp[2], s0tmp[2], hvar; + int nptmp[2], npmin[2]; + atmp[0] = a[il]; atmp[1] = a[il+1]; + btmp[0] = b[il]; btmp[1] = b[il+1]; + ctmp[0] = c[il]; ctmp[1] = c[il+1]; + htmp[0] = h[il]; htmp[1] = h[il+1]; htmp[2] = h[il+2]; + smin[0] = atm_exp_fit(htmp[0],htmp[1],&atmp[0],&btmp[0],&ctmp[0],&s0tmp[0],&npmin[0]); + smin[1] = atm_exp_fit(htmp[1],htmp[2],&atmp[1],&btmp[1],&ctmp[1],&s0tmp[1],&npmin[1]); + if ( npmin[0] <= 3 || npmin[1] <= 3 ) + continue; + for ( hvar=htmp[0]+3.e5; hvar<=htmp[2]-3.e5; hvar+=0.25e5 ) + { + if ( hvar < h[il+1]/factmx || hvar > h[il+1]*factmx || hvar > h[il+1]+10.e5 ) + continue; + atmp[0] = a[il]; atmp[1] = a[il+1]; + btmp[0] = b[il]; btmp[1] = b[il+1]; + ctmp[0] = c[il]; ctmp[1] = c[il+1]; + stmp[0] = atm_exp_fit(htmp[0],hvar,&atmp[0],&btmp[0],&ctmp[0],&s0tmp[0],&nptmp[0]); + stmp[1] = atm_exp_fit(hvar,htmp[2],&atmp[1],&btmp[1],&ctmp[1],&s0tmp[1],&nptmp[1]); + if ( nptmp[0] >= 3 && nptmp[1] >= 3 && + stmp[0]/(nptmp[0]-3.)+stmp[1]/(nptmp[1]-2.5) < + smin[0]/(npmin[0]-3.)+smin[1]/(npmin[1]-2.5) ) + { + htmp[1] = hvar; + smin[0] = stmp[0]; + smin[1] = stmp[1]; + npmin[0] = nptmp[0]; + npmin[1] = nptmp[1]; + } + } + h[il+1] = htmp[1]; + } + + for ( il=0; il 113e5 ) /* There was a fixed limit of 113 km in EGS part */ + { + fflush(NULL); + if ( h[nl-1] >= 112.99e5 ) + { + fprintf(stderr, + "\n Atmospheric boundaries cannot satisfy requirements for CORSIKA\n"); + fprintf(stderr," EGS part (upper end at %6.2f instead of 113.00 km)\n\n", + h[nl]/1e5); + } + else + { + double rho; + fprintf(stderr,"\n Upper atmospheric boundary forced from %6.2 to 113.00 km\n", + h[nl]/1e5); + fprintf(stderr," to satisfy requirements for CORSIKA EGS part\n"); + h[nl] = 113e5; + rho = thickx_(&h[nl-1]) / (h[nl]-h[nl-1]); + c[nl-1] = 1./rho; + a[nl-1] = thickx_(&h[nl-1]) + h[nl-1]/c[nl-1]; + } + } +#endif + + for ( il=0; il= bottom_of_atmosphere && + p_alt[ip] <= top_of_atmosphere ) + { + printf(" %5.1f %12.5e %12.5e %12.5e %12.5e\n", + p_alt[ip]/1e5, p_rho[ip], rhofx_(&p_alt[ip]), + exp(p_log_thick[ip]), thickx_(&p_alt[ip])); + } + } + printf("\n"); + if ( show_fit == 999 ) + { + printf("Terminating now as requested by the SHOWFIT environment variable.\n"); + exit(0); + } + } + + fflush(stdout); + + return; +} Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof1.dat =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof1.dat (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof1.dat (revision 1444) @@ -0,0 +1,53 @@ +# Atmospheric Model 1 (tropical) +#Col. #1 #2 #3 #4 +# Alt [km] rho [g/cm^3] thick [g/cm^2] n-1 + 0.000 0.11668E-02 0.10383E+04 0.27072E-03 + 1.000 0.10651E-02 0.92678E+03 0.24678E-03 + 2.000 0.96972E-03 0.82511E+03 0.22449E-03 + 3.000 0.87584E-03 0.73291E+03 0.20241E-03 + 4.000 0.79512E-03 0.64943E+03 0.18364E-03 + 5.000 0.72004E-03 0.57373E+03 0.16622E-03 + 6.000 0.65021E-03 0.50528E+03 0.15004E-03 + 7.000 0.58552E-03 0.44355E+03 0.13514E-03 + 8.000 0.52649E-03 0.38800E+03 0.12142E-03 + 9.000 0.47073E-03 0.33819E+03 0.10860E-03 + 10.000 0.42066E-03 0.29367E+03 0.97034E-04 + 11.000 0.37417E-03 0.25397E+03 0.86316E-04 + 12.000 0.33205E-03 0.21870E+03 0.76599E-04 + 13.000 0.29237E-03 0.18753E+03 0.67441E-04 + 14.000 0.25861E-03 0.16001E+03 0.59648E-04 + 15.000 0.22590E-03 0.13582E+03 0.52107E-04 + 16.000 0.19642E-03 0.11474E+03 0.45308E-04 + 17.000 0.16766E-03 0.96574E+02 0.38678E-04 + 18.000 0.13837E-03 0.81320E+02 0.31914E-04 + 19.000 0.11451E-03 0.68713E+02 0.26420E-04 + 20.000 0.95277E-04 0.58253E+02 0.21980E-04 + 21.000 0.79405E-04 0.49543E+02 0.18319E-04 + 22.000 0.66420E-04 0.42271E+02 0.15325E-04 + 23.000 0.56223E-04 0.36153E+02 0.12969E-04 + 24.000 0.47710E-04 0.30968E+02 0.11005E-04 + 25.000 0.40463E-04 0.26569E+02 0.93340E-05 + 27.500 0.27073E-04 0.18239E+02 0.62451E-05 + 30.000 0.18310E-04 0.12637E+02 0.42230E-05 + 32.500 0.12495E-04 0.88329E+01 0.28822E-05 + 35.000 0.86042E-05 0.62256E+01 0.19846E-05 + 37.500 0.59782E-05 0.44227E+01 0.13785E-05 + 40.000 0.41857E-05 0.31655E+01 0.96556E-06 + 42.500 0.29564E-05 0.22816E+01 0.68197E-06 + 45.000 0.20931E-05 0.16566E+01 0.48283E-06 + 47.500 0.15001E-05 0.12116E+01 0.34598E-06 + 50.000 0.11019E-05 0.88890E+00 0.25415E-06 + 55.000 0.60359E-06 0.47496E+00 0.13921E-06 + 60.000 0.32916E-06 0.24866E+00 0.75931E-07 + 65.000 0.17872E-06 0.12549E+00 0.41228E-07 + 70.000 0.92343E-07 0.60086E-01 0.21306E-07 + 75.000 0.44911E-07 0.27185E-01 0.10360E-07 + 80.000 0.20748E-07 0.11540E-01 0.47864E-08 + 85.000 0.86620E-08 0.46214E-02 0.19978E-08 + 90.000 0.33874E-08 0.18125E-02 0.78139E-09 + 95.000 0.13015E-08 0.72217E-03 0.30018E-09 + 100.000 0.52809E-09 0.29347E-03 0.12186E-09 + 105.000 0.21378E-09 0.11968E-03 0.49309E-10 + 110.000 0.93353E-10 0.47009E-04 0.21534E-10 + 115.000 0.41872E-10 0.14904E-04 0.96590E-11 + 120.000 0.20320E-10 0.00000E+00 0.47612E-11 Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof2.dat =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof2.dat (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof2.dat (revision 1444) @@ -0,0 +1,53 @@ +# Atmospheric Model 2 (midlatitude summer) +#Col. #1 #2 #3 #4 +# Alt [km] rho [g/cm^3] thick [g/cm^2] n-1 + 0.000 0.11919E-02 0.10365E+04 0.27610E-03 + 1.000 0.10799E-02 0.92301E+03 0.24986E-03 + 2.000 0.97660E-03 0.82027E+03 0.22580E-03 + 3.000 0.88439E-03 0.72730E+03 0.20431E-03 + 4.000 0.80011E-03 0.64314E+03 0.18474E-03 + 5.000 0.72226E-03 0.56709E+03 0.16667E-03 + 6.000 0.64940E-03 0.49857E+03 0.14989E-03 + 7.000 0.58269E-03 0.43703E+03 0.13447E-03 + 8.000 0.52219E-03 0.38184E+03 0.12051E-03 + 9.000 0.46722E-03 0.33242E+03 0.10779E-03 + 10.000 0.41627E-03 0.28829E+03 0.96025E-04 + 11.000 0.37022E-03 0.24901E+03 0.85400E-04 + 12.000 0.32772E-03 0.21416E+03 0.75600E-04 + 13.000 0.28915E-03 0.18336E+03 0.66698E-04 + 14.000 0.24726E-03 0.15659E+03 0.57037E-04 + 15.000 0.21008E-03 0.13378E+03 0.48463E-04 + 16.000 0.17940E-03 0.11434E+03 0.41380E-04 + 17.000 0.15352E-03 0.97730E+02 0.35415E-04 + 18.000 0.13058E-03 0.83556E+02 0.30117E-04 + 19.000 0.11120E-03 0.71493E+02 0.25647E-04 + 20.000 0.94603E-04 0.61225E+02 0.21827E-04 + 21.000 0.80656E-04 0.52481E+02 0.18607E-04 + 22.000 0.68728E-04 0.45027E+02 0.15857E-04 + 23.000 0.58820E-04 0.38663E+02 0.13570E-04 + 24.000 0.50115E-04 0.33228E+02 0.11564E-04 + 25.000 0.42896E-04 0.28586E+02 0.98951E-05 + 27.500 0.29098E-04 0.19699E+02 0.67123E-05 + 30.000 0.19690E-04 0.13676E+02 0.45418E-05 + 32.500 0.13563E-04 0.95673E+01 0.31290E-05 + 35.000 0.92679E-05 0.67474E+01 0.21382E-05 + 37.500 0.64351E-05 0.48060E+01 0.14847E-05 + 40.000 0.45080E-05 0.34524E+01 0.10399E-05 + 42.500 0.31858E-05 0.25002E+01 0.73489E-06 + 45.000 0.22730E-05 0.18242E+01 0.52435E-06 + 47.500 0.16343E-05 0.13402E+01 0.37693E-06 + 50.000 0.12024E-05 0.98839E+00 0.27737E-06 + 55.000 0.66660E-06 0.53424E+00 0.15377E-06 + 60.000 0.36879E-06 0.28269E+00 0.85071E-07 + 65.000 0.20181E-06 0.14421E+00 0.46552E-07 + 70.000 0.10711E-06 0.69468E-01 0.24702E-07 + 75.000 0.53338E-07 0.30906E-01 0.12301E-07 + 80.000 0.24028E-07 0.12528E-01 0.55424E-08 + 85.000 0.94603E-08 0.47136E-02 0.21820E-08 + 90.000 0.34648E-08 0.17291E-02 0.79923E-09 + 95.000 0.12221E-08 0.65307E-03 0.28187E-09 + 100.000 0.47210E-09 0.25880E-03 0.10890E-09 + 105.000 0.18353E-09 0.10608E-03 0.42341E-10 + 110.000 0.81185E-10 0.43345E-04 0.18724E-10 + 115.000 0.39174E-10 0.14520E-04 0.90361E-11 + 120.000 0.20825E-10 0.00000E+00 0.48035E-11 Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof3.dat =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof3.dat (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof3.dat (revision 1444) @@ -0,0 +1,53 @@ +# Atmospheric Model 3 (midlatitude winter) +#Col. #1 #2 #3 #4 +# Alt [km] rho [g/cm^3] thick [g/cm^2] n-1 + 0.000 0.13017E-02 0.10408E+04 0.30055E-03 + 1.000 0.11624E-02 0.91769E+03 0.26840E-03 + 2.000 0.10368E-02 0.80785E+03 0.23935E-03 + 3.000 0.92366E-03 0.70993E+03 0.21312E-03 + 4.000 0.82876E-03 0.62240E+03 0.19120E-03 + 5.000 0.74140E-03 0.54397E+03 0.17108E-03 + 6.000 0.66166E-03 0.47389E+03 0.15266E-03 + 7.000 0.58912E-03 0.41143E+03 0.13585E-03 + 8.000 0.52229E-03 0.35592E+03 0.12053E-03 + 9.000 0.46228E-03 0.30675E+03 0.10663E-03 + 10.000 0.40746E-03 0.26332E+03 0.93989E-04 + 11.000 0.34970E-03 0.22554E+03 0.80667E-04 + 12.000 0.29997E-03 0.19312E+03 0.69197E-04 + 13.000 0.25736E-03 0.16531E+03 0.59368E-04 + 14.000 0.22066E-03 0.14145E+03 0.50898E-04 + 15.000 0.18906E-03 0.12101E+03 0.43611E-04 + 16.000 0.16198E-03 0.10349E+03 0.37367E-04 + 17.000 0.13880E-03 0.88482E+02 0.32023E-04 + 18.000 0.11894E-03 0.75620E+02 0.27437E-04 + 19.000 0.10172E-03 0.64610E+02 0.23466E-04 + 20.000 0.87004E-04 0.55193E+02 0.20065E-04 + 21.000 0.74211E-04 0.47149E+02 0.17113E-04 + 22.000 0.63341E-04 0.40285E+02 0.14610E-04 + 23.000 0.54107E-04 0.34425E+02 0.12480E-04 + 24.000 0.46330E-04 0.29413E+02 0.10687E-04 + 25.000 0.39525E-04 0.25130E+02 0.91172E-05 + 27.500 0.26626E-04 0.16967E+02 0.61418E-05 + 30.000 0.17800E-04 0.11487E+02 0.41056E-05 + 32.500 0.11956E-04 0.78161E+01 0.27582E-05 + 35.000 0.79213E-05 0.53659E+01 0.18277E-05 + 37.500 0.53290E-05 0.37310E+01 0.12292E-05 + 40.000 0.36264E-05 0.26252E+01 0.83651E-06 + 42.500 0.25019E-05 0.18678E+01 0.57711E-06 + 45.000 0.17396E-05 0.13434E+01 0.40128E-06 + 47.500 0.12360E-05 0.97499E+00 0.28512E-06 + 50.000 0.89601E-06 0.71076E+00 0.20670E-06 + 55.000 0.48432E-06 0.37616E+00 0.11170E-06 + 60.000 0.26130E-06 0.19545E+00 0.60276E-07 + 65.000 0.13746E-06 0.99058E-01 0.31710E-07 + 70.000 0.71037E-07 0.48748E-01 0.16382E-07 + 75.000 0.35114E-07 0.23256E-01 0.80995E-08 + 80.000 0.17088E-07 0.10742E-01 0.39421E-08 + 85.000 0.79550E-08 0.47695E-02 0.18352E-08 + 90.000 0.34600E-08 0.20699E-02 0.79806E-09 + 95.000 0.14679E-08 0.90827E-03 0.33855E-09 + 100.000 0.64977E-09 0.40634E-03 0.14986E-09 + 105.000 0.29405E-09 0.18201E-03 0.67829E-10 + 110.000 0.14198E-09 0.77579E-04 0.32753E-10 + 115.000 0.71133E-10 0.26326E-04 0.16411E-10 + 120.000 0.37687E-10 0.00000E+00 0.86931E-11 Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof4.dat =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof4.dat (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof4.dat (revision 1444) @@ -0,0 +1,53 @@ +# Atmospheric Model 4 (subarctic summer) +#Col. #1 #2 #3 #4 +# Alt [km] rho [g/cm^3] thick [g/cm^2] n-1 + 0.000 0.12204E-02 0.10314E+04 0.28229E-03 + 1.000 0.11050E-02 0.91522E+03 0.25544E-03 + 2.000 0.99783E-03 0.81017E+03 0.23054E-03 + 3.000 0.89918E-03 0.71541E+03 0.20764E-03 + 4.000 0.80793E-03 0.63013E+03 0.18648E-03 + 5.000 0.72467E-03 0.55358E+03 0.16720E-03 + 6.000 0.65233E-03 0.48479E+03 0.15057E-03 + 7.000 0.58466E-03 0.42300E+03 0.13493E-03 + 8.000 0.52320E-03 0.36767E+03 0.12068E-03 + 9.000 0.46655E-03 0.31823E+03 0.10763E-03 + 10.000 0.41438E-03 0.27424E+03 0.95586E-04 + 11.000 0.35600E-03 0.23579E+03 0.82125E-04 + 12.000 0.30603E-03 0.20275E+03 0.70591E-04 + 13.000 0.26313E-03 0.17435E+03 0.60701E-04 + 14.000 0.22600E-03 0.14994E+03 0.52131E-04 + 15.000 0.19503E-03 0.12893E+03 0.44990E-04 + 16.000 0.16718E-03 0.11085E+03 0.38563E-04 + 17.000 0.14366E-03 0.95341E+02 0.33136E-04 + 18.000 0.12351E-03 0.82008E+02 0.28494E-04 + 19.000 0.10619E-03 0.70545E+02 0.24495E-04 + 20.000 0.91333E-04 0.60687E+02 0.21067E-04 + 21.000 0.78491E-04 0.52212E+02 0.18103E-04 + 22.000 0.67478E-04 0.44927E+02 0.15568E-04 + 23.000 0.58051E-04 0.38663E+02 0.13390E-04 + 24.000 0.49682E-04 0.33287E+02 0.11455E-04 + 25.000 0.42487E-04 0.28688E+02 0.98002E-05 + 27.500 0.29021E-04 0.19856E+02 0.66939E-05 + 30.000 0.19868E-04 0.13817E+02 0.45832E-05 + 32.500 0.13654E-04 0.96750E+01 0.31494E-05 + 35.000 0.93209E-05 0.68375E+01 0.21501E-05 + 37.500 0.64640E-05 0.48862E+01 0.14907E-05 + 40.000 0.45219E-05 0.35273E+01 0.10431E-05 + 42.500 0.32080E-05 0.25705E+01 0.73996E-06 + 45.000 0.23187E-05 0.18857E+01 0.53490E-06 + 47.500 0.16910E-05 0.13886E+01 0.39012E-06 + 50.000 0.12413E-05 0.10249E+01 0.28631E-06 + 55.000 0.68343E-06 0.55752E+00 0.15759E-06 + 60.000 0.38216E-06 0.29838E+00 0.88155E-07 + 65.000 0.21378E-06 0.15344E+00 0.49313E-07 + 70.000 0.11427E-06 0.74008E-01 0.26358E-07 + 75.000 0.57618E-07 0.32639E-01 0.13291E-07 + 80.000 0.25543E-07 0.12924E-01 0.58918E-08 + 85.000 0.97249E-08 0.47340E-02 0.22427E-08 + 90.000 0.34730E-08 0.16981E-02 0.80112E-09 + 95.000 0.11947E-08 0.63066E-03 0.27562E-09 + 100.000 0.45407E-09 0.24787E-03 0.10474E-09 + 105.000 0.17430E-09 0.10177E-03 0.40205E-10 + 110.000 0.77433E-10 0.42076E-04 0.17862E-10 + 115.000 0.38241E-10 0.14300E-04 0.88210E-11 + 120.000 0.20734E-10 0.00000E+00 0.47823E-11 Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof5.dat =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof5.dat (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof5.dat (revision 1444) @@ -0,0 +1,53 @@ +# Atmospheric Model 5 (subarctic winter) +#Col. #1 #2 #3 #4 +# Alt [km] rho [g/cm^3] thick [g/cm^2] n-1 + 0.000 0.13724E-02 0.10350E+04 0.31665E-03 + 1.000 0.11940E-02 0.90690E+03 0.27547E-03 + 2.000 0.10585E-02 0.79441E+03 0.24427E-03 + 3.000 0.93745E-03 0.69474E+03 0.21628E-03 + 4.000 0.83469E-03 0.60623E+03 0.19255E-03 + 5.000 0.74632E-03 0.52727E+03 0.17216E-03 + 6.000 0.66510E-03 0.45677E+03 0.15343E-03 + 7.000 0.59106E-03 0.39404E+03 0.13630E-03 + 8.000 0.52279E-03 0.33842E+03 0.12058E-03 + 9.000 0.45401E-03 0.28966E+03 0.10473E-03 + 10.000 0.38808E-03 0.24764E+03 0.89518E-04 + 11.000 0.33176E-03 0.21172E+03 0.76523E-04 + 12.000 0.28343E-03 0.18102E+03 0.65380E-04 + 13.000 0.24235E-03 0.15479E+03 0.55903E-04 + 14.000 0.20719E-03 0.13236E+03 0.47795E-04 + 15.000 0.17704E-03 0.11318E+03 0.40835E-04 + 16.000 0.15179E-03 0.96775E+02 0.35012E-04 + 17.000 0.13005E-03 0.82711E+02 0.29998E-04 + 18.000 0.11139E-03 0.70663E+02 0.25691E-04 + 19.000 0.95325E-04 0.60349E+02 0.21993E-04 + 20.000 0.81618E-04 0.51519E+02 0.18823E-04 + 21.000 0.69786E-04 0.43964E+02 0.16101E-04 + 22.000 0.59686E-04 0.37504E+02 0.13768E-04 + 23.000 0.51029E-04 0.31979E+02 0.11770E-04 + 24.000 0.43598E-04 0.27258E+02 0.10057E-04 + 25.000 0.37235E-04 0.23225E+02 0.85893E-05 + 27.500 0.24692E-04 0.15591E+02 0.56958E-05 + 30.000 0.16463E-04 0.10516E+02 0.37972E-05 + 32.500 0.11023E-04 0.71251E+01 0.25430E-05 + 35.000 0.73730E-05 0.48561E+01 0.17005E-05 + 37.500 0.49298E-05 0.33387E+01 0.11367E-05 + 40.000 0.33316E-05 0.23190E+01 0.76848E-06 + 42.500 0.22730E-05 0.16269E+01 0.52427E-06 + 45.000 0.15708E-05 0.11518E+01 0.36234E-06 + 47.500 0.10874E-05 0.82320E+00 0.25089E-06 + 50.000 0.76904E-06 0.59343E+00 0.17735E-06 + 55.000 0.40227E-06 0.31044E+00 0.92794E-07 + 60.000 0.21537E-06 0.16086E+00 0.49676E-07 + 65.000 0.11086E-06 0.82174E-01 0.25573E-07 + 70.000 0.56800E-07 0.41755E-01 0.13107E-07 + 75.000 0.29704E-07 0.20855E-01 0.68522E-08 + 80.000 0.15039E-07 0.10082E-01 0.34693E-08 + 85.000 0.73634E-08 0.47082E-02 0.16980E-08 + 90.000 0.34840E-08 0.21161E-02 0.80371E-09 + 95.000 0.14986E-08 0.93945E-03 0.34565E-09 + 100.000 0.67478E-09 0.42320E-03 0.15567E-09 + 105.000 0.30839E-09 0.18924E-03 0.71133E-10 + 110.000 0.14905E-09 0.79668E-04 0.34380E-10 + 115.000 0.72480E-10 0.26567E-04 0.16723E-10 + 120.000 0.37582E-10 0.00000E+00 0.86689E-11 Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof6.dat =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof6.dat (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof6.dat (revision 1444) @@ -0,0 +1,53 @@ +# Atmospheric Model 6 (U.S. Standard) +#Col. #1 #2 #3 #4 +# Alt [km] rho [g/cm^3] thick [g/cm^2] n-1 + 0.000 0.12219E-02 0.10350E+04 0.28232E-03 + 1.000 0.11099E-02 0.91853E+03 0.25634E-03 + 2.000 0.10054E-02 0.81286E+03 0.23214E-03 + 3.000 0.90839E-03 0.71725E+03 0.20975E-03 + 4.000 0.81888E-03 0.63097E+03 0.18904E-03 + 5.000 0.73643E-03 0.55328E+03 0.16994E-03 + 6.000 0.66012E-03 0.48352E+03 0.15235E-03 + 7.000 0.59048E-03 0.42105E+03 0.13620E-03 + 8.000 0.52609E-03 0.36529E+03 0.12136E-03 + 9.000 0.46741E-03 0.31567E+03 0.10782E-03 + 10.000 0.41370E-03 0.27167E+03 0.95426E-04 + 11.000 0.36499E-03 0.23278E+03 0.84194E-04 + 12.000 0.31209E-03 0.19900E+03 0.71987E-04 + 13.000 0.26674E-03 0.17012E+03 0.61523E-04 + 14.000 0.22792E-03 0.14543E+03 0.52581E-04 + 15.000 0.19479E-03 0.12434E+03 0.44937E-04 + 16.000 0.16651E-03 0.10631E+03 0.38406E-04 + 17.000 0.14236E-03 0.90902E+02 0.32840E-04 + 18.000 0.12168E-03 0.77727E+02 0.28071E-04 + 19.000 0.10403E-03 0.66465E+02 0.23997E-04 + 20.000 0.88928E-04 0.56837E+02 0.20516E-04 + 21.000 0.75750E-04 0.48620E+02 0.17475E-04 + 22.000 0.64544E-04 0.41621E+02 0.14887E-04 + 23.000 0.55021E-04 0.35655E+02 0.12695E-04 + 24.000 0.46965E-04 0.30566E+02 0.10833E-04 + 25.000 0.40097E-04 0.26222E+02 0.92494E-05 + 27.500 0.27126E-04 0.17925E+02 0.62570E-05 + 30.000 0.18420E-04 0.12302E+02 0.42495E-05 + 32.500 0.12139E-04 0.85361E+01 0.28004E-05 + 35.000 0.84696E-05 0.59874E+01 0.19537E-05 + 37.500 0.59542E-05 0.42029E+01 0.13738E-05 + 40.000 0.39967E-05 0.29752E+01 0.92196E-06 + 42.500 0.27910E-05 0.21358E+01 0.64379E-06 + 45.000 0.19671E-05 0.15470E+01 0.45379E-06 + 47.500 0.14044E-05 0.11295E+01 0.32390E-06 + 50.000 0.10273E-05 0.82800E+00 0.23698E-06 + 55.000 0.56800E-06 0.44045E+00 0.13104E-06 + 60.000 0.30906E-06 0.22771E+00 0.71295E-07 + 65.000 0.16285E-06 0.11361E+00 0.37569E-07 + 70.000 0.82868E-07 0.54414E-01 0.19114E-07 + 75.000 0.40145E-07 0.24940E-01 0.92604E-08 + 80.000 0.18430E-07 0.10993E-01 0.42513E-08 + 85.000 0.82291E-08 0.46676E-02 0.18985E-08 + 90.000 0.34321E-08 0.19250E-02 0.79163E-09 + 95.000 0.14063E-08 0.78968E-03 0.32437E-09 + 100.000 0.57185E-09 0.32602E-03 0.13189E-09 + 105.000 0.24206E-09 0.13421E-03 0.55841E-10 + 110.000 0.10312E-09 0.52792E-04 0.23788E-10 + 115.000 0.46595E-10 0.17216E-04 0.10748E-10 + 120.000 0.24596E-10 0.00000E+00 0.56734E-11 Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof9.dat =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof9.dat (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/atmprof9.dat (revision 1444) @@ -0,0 +1,53 @@ +# Atmospheric Model 9 (antarctic winter, south pole plus extension to sea level) +#Col. #1 #2 #3 #4 +# Alt [km] rho [g/cm^3] thick [g/cm^2] n-1 + 0.000 1.57292E-02 1.02358E+03 3.63138E-04 + 1.000 1.19710E-02 8.93634E+02 2.76362E-04 + 2.000 1.07022E-02 7.80380E+02 2.47059E-04 + 3.000 9.54571E-03 6.79234E+02 2.20352E-04 + 4.000 8.49238E-03 5.89133E+02 1.96031E-04 + 5.000 7.53750E-03 5.09068E+02 1.73986E-04 + 6.000 6.67458E-03 4.38085E+02 1.54067E-04 + 7.000 5.89233E-03 3.75315E+02 1.36010E-04 + 8.000 5.17446E-03 3.20031E+02 1.19439E-04 + 9.000 4.50712E-03 2.71666E+02 1.04035E-04 + 10.000 3.88862E-03 2.29734E+02 8.97589E-05 + 11.000 3.32764E-03 1.93707E+02 7.68100E-05 + 12.000 2.83195E-03 1.62968E+02 6.53682E-05 + 13.000 2.40231E-03 1.36852E+02 5.54510E-05 + 14.000 2.03379E-03 1.14721E+02 4.69449E-05 + 15.000 1.71904E-03 9.60003E+01 3.96796E-05 + 16.000 1.45042E-03 8.01898E+01 3.34793E-05 + 17.000 1.22104E-03 6.68637E+01 2.81846E-05 + 18.000 1.02507E-03 5.56598E+01 2.36611E-05 + 19.000 8.57730E-04 4.62687E+01 1.97985E-05 + 20.000 7.15169E-04 3.84242E+01 1.65078E-05 + 21.000 5.94231E-04 3.18947E+01 1.37163E-05 + 22.000 4.92234E-04 2.64776E+01 1.13620E-05 + 23.000 4.06784E-04 2.19958E+01 9.38954E-06 + 24.000 3.35729E-04 1.82949E+01 7.74944E-06 + 25.000 2.76866E-04 1.52411E+01 6.39074E-06 + 27.000 1.88578E-04 1.06440E+01 4.35284E-06 + 30.000 1.07302E-04 6.32606E+00 2.47679E-06 + 32.000 7.45316E-05 4.52890E+00 1.72037E-06 + 35.000 4.39662E-05 2.79469E+00 1.01485E-06 + 37.000 3.13127E-05 2.04959E+00 7.22773E-07 + 40.000 1.91662E-05 1.30852E+00 4.42402E-07 + 42.000 1.39829E-05 9.79983E-01 3.22759E-07 + 45.000 8.86877E-06 6.43571E-01 2.04712E-07 + 47.000 6.62266E-06 4.89852E-01 1.52867E-07 + 50.000 4.34253E-06 3.28007E-01 1.00236E-07 + 55.000 2.22388E-06 1.70164E-01 5.13326E-08 + 60.000 1.16611E-06 8.83188E-02 2.69167E-08 + 65.000 6.13123E-07 4.52866E-02 1.41523E-08 + 70.000 3.18655E-07 2.27569E-02 7.35532E-09 + 75.000 1.62204E-07 1.11480E-02 3.74405E-09 + 80.000 8.02907E-08 5.30828E-03 1.85330E-09 + 85.000 3.84279E-08 2.45911E-03 8.87009E-10 + 90.000 1.77522E-08 1.11661E-03 4.09763E-10 + 95.000 7.96907E-09 5.04727E-04 1.83945E-10 + 100.000 3.53789E-09 2.31867E-04 8.16630E-11 + 105.000 1.59192E-09 1.10278E-04 3.67452E-11 + 110.000 7.42936E-10 5.47815E-05 1.71487E-11 + 115.000 3.65046E-10 2.83119E-05 8.42614E-12 + 120.000 1.89932E-10 1.49737E-05 4.38408E-12 Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/c614nx-linux.f =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/c614nx-linux.f (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/c614nx-linux.f (revision 1444) @@ -0,0 +1,34625 @@ +*CMZ : 05/03/2002 08.29.07 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C====================================================================== + + PROGRAM AAMAIN + +C----------------------------------------------------------------------- +C MAIN PROGRAM +C +C SIMULATION OF EXTENSIVE AIR SHOWERS +C PREPARES INITIALIZATIONS +C GENERATES SHOWERS IN THE SHOWER LOOP +C TREATES PARTICLES IN THE PARTICLE LOOP +C PERFORMS PRINTING OF TABLES AT END OF SHOWER AND AT END OF RUN +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +c-----changed--add +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + parameter (xct=1) + parameter (yct=2) + parameter (zct=3) + parameter (ctthet=4) + parameter (ctphi=5) + parameter (ctdiam=6) + parameter (ctfoc=7) +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c-----changed--add +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW,flag +c-----changed--add + logical fmfb +c-----changed--add +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,CHISTA. + COMMON /CHISTA/ IHYCHI,IKACHI,IMUCHI,INNCHI,INUCHI,IPICHI + INTEGER IHYCHI(124),IKACHI(124),IMUCHI(124), + * INNCHI(124),INUCHI(124),IPICHI(124) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,CURVE. + COMMON /CURVE/ CHAPAR,DEP,ERR,NSTP + DOUBLE PRECISION CHAPAR(1200),DEP(1200),ERR(1200) + INTEGER NSTP +*KEEP,ELADPM. + COMMON /ELADPM/ ELMEAN,ELMEAA,IELDPM,IELDPA + DOUBLE PRECISION ELMEAN(40),ELMEAA(40) + INTEGER IELDPM(40,13),IELDPA(40,13) +*KEEP,ELASTY. + COMMON /ELASTY/ ELAST + DOUBLE PRECISION ELAST +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,ISTA. + COMMON /ISTA/ IFINET,IFINNU,IFINKA,IFINPI,IFINHY + INTEGER IFINET,IFINNU,IFINKA,IFINPI,IFINHY +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MAGNET. + COMMON /MAGNET/ BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT + DOUBLE PRECISION BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT +*KEEP,MPARTI. + COMMON /MPARTI/ MPARTO + DOUBLE PRECISION MPARTO(10,25),MPHOTO(10),MPOSIT(10),MELECT(10), + * MNU(10),MMUP(10),MMUM(10),MPI0(10),MPIP(10), + * MPIM(10),MK0L(10),MKPL(10),MKMI(10),MNEUTR(10), + * MPROTO(10),MPROTB(10),MK0S(10),MHYP(10), + * MNEUTB(10),MDEUT(10),MTRIT(10),MALPHA(10), + * MOTHER(10),MMUOND + EQUIVALENCE (MPARTO(1, 1),MPHOTO(1)), (MPARTO(1, 2),MPOSIT(1)), + * (MPARTO(1, 3),MELECT(1)), (MPARTO(1, 4),MNU(1)) , + * (MPARTO(1, 5),MMUP(1)) , (MPARTO(1, 6),MMUM(1)) , + * (MPARTO(1, 7),MPI0(1)) , (MPARTO(1, 8),MPIP(1)) , + * (MPARTO(1, 9),MPIM(1)) , (MPARTO(1,10),MK0L(1)) , + * (MPARTO(1,11),MKPL(1)) , (MPARTO(1,12),MKMI(1)) , + * (MPARTO(1,13),MNEUTR(1)), (MPARTO(1,14),MPROTO(1)), + * (MPARTO(1,15),MPROTB(1)), (MPARTO(1,16),MK0S(1)) , + * (MPARTO(1,18),MHYP(1)) , (MPARTO(1,19),MDEUT(1)) , + * (MPARTO(1,20),MTRIT(1)) , (MPARTO(1,21),MALPHA(1)), + * (MPARTO(1,22),MOTHER(1)), (MPARTO(1,25),MNEUTB(1)), + * (MPARTO(1,23),MMUOND) +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,NCOUNT. + COMMON /NCOUNT/ NCOUN + INTEGER NCOUN(8) +*KEEP,NKGI. + COMMON /NKGI/ SEL,SELLG,STH,ZEL,ZELLG,ZSL,DIST, + * DISX,DISY,DISXY,DISYX,DLAX,DLAY,DLAXY,DLAYX, + * OBSATI,RADNKG,RMOL,TLEV,TLEVCM,IALT + DOUBLE PRECISION SEL(10),SELLG(10),STH(10),ZEL(10),ZELLG(10), + * ZSL(10),DIST(10), + * DISX(-10:10),DISY(-10:10), + * DISXY(-10:10,2),DISYX(-10:10,2), + * DLAX (-10:10,2),DLAY (-10:10,2), + * DLAXY(-10:10,2),DLAYX(-10:10,2), + * OBSATI(2),RADNKG,RMOL(2),TLEV(10),TLEVCM(10) + INTEGER IALT(2) +*KEEP,NKGS. + COMMON /NKGS/ CZX,CZY,CZXY,CZYX,SAH,SL,ZNE + DOUBLE PRECISION CZX(-10:10,2),CZY(-10:10,2),CZXY(-10:10,2), + * CZYX(-10:10,2),SAH(10),SL(10),ZNE(10) +*KEEP,NPARTI. + COMMON /NPARTI/ NPARTO + DOUBLE PRECISION NPARTO(10,25),NPHOTO(10),NPOSIT(10),NELECT(10), + * NNU(10),NMUP(10),NMUM(10),NPI0(10),NPIP(10), + * NPIM(10),NK0L(10),NKPL(10),NKMI(10),NNEUTR(10), + * NPROTO(10),NPROTB(10),NK0S(10),NHYP(10), + * NNEUTB(10),NDEUT(10),NTRIT(10),NALPHA(10), + * NOTHER(10),NMUOND + EQUIVALENCE (NPARTO(1, 1),NPHOTO(1)), (NPARTO(1, 2),NPOSIT(1)), + * (NPARTO(1, 3),NELECT(1)), (NPARTO(1, 4),NNU(1)) , + * (NPARTO(1, 5),NMUP(1)) , (NPARTO(1, 6),NMUM(1)) , + * (NPARTO(1, 7),NPI0(1)) , (NPARTO(1, 8),NPIP(1)) , + * (NPARTO(1, 9),NPIM(1)) , (NPARTO(1,10),NK0L(1)) , + * (NPARTO(1,11),NKPL(1)) , (NPARTO(1,12),NKMI(1)) , + * (NPARTO(1,13),NNEUTR(1)), (NPARTO(1,14),NPROTO(1)), + * (NPARTO(1,15),NPROTB(1)), (NPARTO(1,16),NK0S(1)) , + * (NPARTO(1,18),NHYP(1)) , (NPARTO(1,19),NDEUT(1)) , + * (NPARTO(1,20),NTRIT(1)) , (NPARTO(1,21),NALPHA(1)), + * (NPARTO(1,22),NOTHER(1)), (NPARTO(1,25),NNEUTB(1)), + * (NPARTO(1,23),NMUOND) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,PRIMSP. + COMMON /PRIMSP/ PSLOPE,LLIMIT,ULIMIT,LL,UL,SLEX,ISPEC + DOUBLE PRECISION PSLOPE,LLIMIT,ULIMIT,LL,UL,SLEX + INTEGER ISPEC +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RECORD. + COMMON /RECORD/ IRECOR + INTEGER IRECOR +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,RESON. + COMMON /RESON/ RDRES,RESRAN,IRESPAR + REAL RDRES(2),RESRAN(30000) + INTEGER IRESPAR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEEP,STACKF. + COMMON /STACKF/ STACK,MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT, + * NTO,NFROM + INTEGER MAXSTK + PARAMETER (MAXSTK = 16*256*2) + DOUBLE PRECISION STACK(MAXSTK) + INTEGER MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM +*KEEP,STATI. + COMMON /STATI/ SABIN,SBBIN,INBIN,IPBIN,IKBIN,IHBIN + DOUBLE PRECISION SABIN(40),SBBIN(40) + INTEGER INBIN(40),IPBIN(40),IKBIN(40),IHBIN(40) +*KEEP,TABLES. + INTEGER IEBIN, ITBIN, IDBIN + PARAMETER (IEBIN=40,ITBIN=30,IDBIN=20) + COMMON /TABLES/ G_ARRAY, E_ARRAY, M_ARRAY, + * EBOFF,EBFAC,TBOFF,TBFAC,DBOFF,DBFAC + REAL G_ARRAY(IEBIN,ITBIN,IDBIN) + REAL E_ARRAY(IEBIN,ITBIN,IDBIN) + REAL M_ARRAY(IEBIN,ITBIN,IDBIN) + REAL EBOFF,EBFAC,TBOFF,TBFAC,DBOFF,DBFAC + REAL EBMIN,EBMAX,TBMIN,TBMAX,DBMIN,DBMAX + PARAMETER (EBMIN=1.E-4,EBMAX=1.E4) + PARAMETER (TBMIN=10.,TBMAX=1.E4) + PARAMETER (DBMIN=5.E3,DBMAX=5.E5) +*KEEP,THNVAR. + COMMON /THNVAR/ STACKINT, + * INT_ICOUNT,MODETHN,THINNING + INTEGER MAXICOUNT + PARAMETER (MAXICOUNT=40000) + DOUBLE PRECISION STACKINT(16,MAXICOUNT) + INTEGER INT_ICOUNT,MODETHN + LOGICAL THINNING +*KEEP,VERS. + COMMON /VERS/ VERNUM,MVDATE,VERDAT + DOUBLE PRECISION VERNUM + INTEGER MVDATE + CHARACTER*18 VERDAT +*KEEP,CEREN1. + COMMON /CEREN1/ CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR,LCERFI + DOUBLE PRECISION CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR + LOGICAL LCERFI +*KEEP,CEREN2. + COMMON /CEREN2/ ACERX,ACERY,CERXOS,CERYOS, + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT, + * PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS, + * NCERX,NCERY,ICERML + DOUBLE PRECISION ACERX,ACERY,CERXOS(20),CERYOS(20), + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT + DOUBLE PRECISION PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS + INTEGER NCERX,NCERY,ICERML +*KEEP,CEREN3. + COMMON /CEREN3/ CERCNT,DATAB2,NRECER,LHCER + INTEGER MAXBF2 + PARAMETER ( MAXBF2 = 39 * 7 ) + DOUBLE PRECISION CERCNT + REAL DATAB2(MAXBF2) + INTEGER NRECER,LHCER +*KEND. +c----add -changed +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +*keep,certel. + common /certel/ cormxd,cord,coralp,ctpars,omega, + + photn,photnp,phpt,pht,vphot, + + vchi,veta,vzeta,vchim,vetam,vzetam, + + lambda,mu,nu,nctels,ncph,phip1,thetap1 + double precision cormxd,cord,coralp,ctpars(20,7),omega(20,3,3), + + photn(3),photnp(3),phpt(3),pht,vphot(3), + + vchi(3),veta(3),vzeta(3),vchim,vetam,vzetam, + + lambda,mu,nu + integer nctels,ncph(5) + double precision xg,yg,zg,xgp,ygp,zgp,up,vp,wp,xpcut,ypcut,zpcut + double precision thetap1,phip1 + equivalence (photn(1) ,xg) ,(photn(2) ,yg) ,(photn(3) ,zg) , + + (photnp(1),xgp) ,(photnp(2),ygp) ,(photnp(3),zgp), + + (phpt(1) ,xpcut),(phpt(2) ,ypcut),(phpt(3) ,zpcut), + + (vphot(1) ,up) ,(vphot(2) ,vp) ,(vphot(3) ,wp) + +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c Angles for the "spinning" of a particle around the +c main axis of the CT + common /spinang/ spinxi + double precision spinxi +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c----add -changed + + DOUBLE PRECISION JNBIN(40),JPBIN(40),JKBIN(40),JHBIN(40) + DOUBLE PRECISION CHI2,FPARAM(6) + DOUBLE PRECISION MPART2(10,25),MPHOT2(10),MPOSI2(10),MELEC2(10), + * MNU2(10),MMUP2(10),MMUM2(10),MPI02(10),MPIP2(10), + * MPIM2(10),MK0L2(10),MKPL2(10),MKMI2(10), + * MNETR2(10),MPROT2(10),MPRTB2(10),MK0S2(10), + * MHYP2(10),MNETB2(10),MDEUT2(10),MTRIT2(10), + * MALPH2(10),MOTH2(10) + EQUIVALENCE (MPART2(1, 1),MPHOT2(1)), (MPART2(1, 2),MPOSI2(1)), + * (MPART2(1, 3),MELEC2(1)), (MPART2(1, 4),MNU2(1)) , + * (MPART2(1, 5),MMUP2(1)) , (MPART2(1, 6),MMUM2(1)) , + * (MPART2(1, 7),MPI02(1)) , (MPART2(1, 8),MPIP2(1)) , + * (MPART2(1, 9),MPIM2(1)) , (MPART2(1,10),MK0L2(1)) , + * (MPART2(1,11),MKPL2(1)) , (MPART2(1,12),MKMI2(1)) , + * (MPART2(1,13),MNETR2(1)), (MPART2(1,14),MPROT2(1)), + * (MPART2(1,15),MPRTB2(1)), (MPART2(1,16),MK0S2(1)) , + * (MPART2(1,18),MHYP2(1)) , (MPART2(1,19),MDEUT2(1)), + * (MPART2(1,20),MTRIT2(1)), (MPART2(1,21),MALPH2(1)), + * (MPART2(1,22),MOTH2 (1)), (MPART2(1,25),MNETB2(1)) + DOUBLE PRECISION THICK + INTEGER LPCT0,LPCT1 + EXTERNAL BLOCK1,EGS4BD,HEIGH,THICK + DOUBLE PRECISION DL,DIAG,FIXHAPP,THCKHN,THICKC + EXTERNAL THICKC + DOUBLE PRECISION XVC1,XVC2,YVC1,YVC2,ZVC1,ZVC2 +C VARIABLES BEING USED FOR RUNTIME + REAL TDIFF + INTEGER ILEFTA,ILEFTB + EXTERNAL TIMER +c-----changed---add +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + double precision ctdiams(20) +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + double precision theprim, phiprim + double precision spinthe, spinphi +c double precision thetap1,phip1 + +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c-----changed--add +C----------------------------------------------------------------------- + + + CERELE = 0.D0 + CERHAD = 0.D0 + NRECER = 0 +C INITIALIZE AND READ RUN STEERING CARDS + CALL START + + IF ( CERSIZ .LE. 0.D0 ) THEN + ICRSIZ = 0 + ELSE + ICRSIZ = 1 + ENDIF + +C RESET COUNTER FOR WORDS WRITTEN TO TAPE + IRECOR = 0 + +C RESET COUNTER FOR AVERAGE HEIGHT OF 1ST INTERACTION + CHISUM = 0.D0 + CHISM2 = 0.D0 + +C SET ARRAYS FOR SCALES OF KINETIC ENERGY-INTERACTION TABLE + SABIN(1) = 0.D0 + SBBIN(1) = 0.1D0 + DO 13 J = 2,40 + SABIN(J) = 10.D0**((J-5.D0)/3.D0) + SBBIN(J) = 10.D0**((J-4.D0)/3.D0) + 13 CONTINUE + +C CHECK AND SET PRIMARY PARAMETERS + CALL INPRM + +C INITIALIZE NKG ROUTINES + CALL ININKG + +C RESET COUNTERS FOR NUCLEON, PION AND KAON TABLE FOR ALL SHOWERS +C RESET ENERGY-MULTIPLICITY & ENERGY-ELASTICITY MATRIX FOR ALL SHOWERS + DO 17 J = 1,40 + JNBIN(J) = 0.D0 + JPBIN(J) = 0.D0 + JKBIN(J) = 0.D0 + JHBIN(J) = 0.D0 + ELMEAA(J) = 0.D0 + DO 17 L = 1,13 + MULTOT(J,L) = 0 + IELDPA(J,L) = 0 + 17 CONTINUE + +C RESET ARRAYS FOR INTERACTION LENGTH STATISTICS + DO 90 J = 1,124 + IHYCHI(J) = 0 + IKACHI(J) = 0 + IMUCHI(J) = 0 + INUCHI(J) = 0 + IPICHI(J) = 0 + INNCHI(J) = 0 + 90 CONTINUE + +C RESET ARRAY FOR MEAN VALUES AND STANDARD DEVIATION + DO 477 K = 1,25 + DO 477 J = 1,10 + MPARTO(J,K) = 0.D0 + MPART2(J,K) = 0.D0 + 477 CONTINUE + +C RESET ARRAYS FOR AVERAGE LONGITUDINAL DISTRIBUTION + IF ( LLONGI ) THEN + LPCT0 = NSTEP + LPCT1 = 1 + DO J = 0,NSTEP + DO K = 1,9 + AELONG(J,K) = 0.D0 + APLONG(J,K) = 0.D0 + SELONG(J,K) = 0.D0 + SPLONG(J,K) = 0.D0 + ENDDO + DO K = 1,9 + ADLONG(J,K) = 0.D0 + SDLONG(J,K) = 0.D0 + ENDDO + ENDDO + ENDIF + +C STEERING OF PRINTOUT OF RANDOM GENERATOR SEEDS + IPROUT = MIN(100,NSHOW/20) + IPROUT = MAX(1,IPROUT) + +C TIME AT BEGINNING + CALL TIMER( ILEFTA ) +c-----changed--add +cxxc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +cxx ILEFTA = 0 +cxxc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +CBC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +C +C Modified by C. Bigongiari 2001 Jan 16 +C +C +Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + print *,'JCIO::========================================' + print *,'JCIO:: Initializing JCIO system for advanced' + print *,'JCIO:: saving of data.' + print *,'JCIO::========================================' +C +Cc- initialize jcio system +C + call jcinitio(dsn,nrrun) +Cc- create file run###### +C call jcstartrun(runh) +Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +C +C- Modified JCSTARTRUN creates cer###### and dat###### files ! +C +C ###### is the RUN number ! +C + + call jcstartrun(RUNH) + +C +C- write Run Header on cer and dat files +C + CALL TOBUF(RUNH,0) + IF ( LCERFI ) CALL TOBUFC(RUNH,0) + +C +CBC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +c------changed--add +C----------------------------------------------------------------------- +C----------------------------------------------------------------------- +C LOOP OVER SHOWERS + DO 2 ISHW = 1,NSHOW + + ISHOWNO = ISHOWNO + 1 + I = ISHW + IF ( ISHW .LE. MAXPRT ) THEN + FPRINT = .TRUE. + ELSE + FPRINT = .FALSE. + ENDIF + +C ENTRY POINT IF COLLISION WAS NOT ACCEPTED IN INTTEST + 2222 CONTINUE + +C FIRST INTERACTION DATA + FIRSTI = .TRUE. + IFINET = 0 + IFINNU = 0 + IFINKA = 0 + IFINPI = 0 + IFINHY = 0 + ELAST = 0.D0 + THICK1 = 0.D0 + TARG1I = 0.D0 + SIGAIR = 0.D0 + SIG1I = 0.D0 + +C RESET COUNTERS + DO 447 K = 1,25 + DO 447 J = 1,10 + NPARTO(J,K) = 0.D0 + 447 CONTINUE + +C RESET ARRAY FOR LONGITUDINAL DISTRIBUTION PER SHOWER + IF ( LLONGI ) THEN + DO 479 K = 1,9 + DO J = 0,NSTEP + DLONG(J,K) = 0.D0 + ELONG(J,K) = 0.D0 + PLONG(J,K) = 0.D0 + ENDDO + 479 CONTINUE + ENDIF + + NRECS = 0 + NBLKS = 0 + DO 922 KKK = 1,10 + AVNREJ(KKK) = 0.D0 + 922 CONTINUE + IRESPAR = 0 + +C RESET COUNTERS FOR NUCLEON, PION AND KAON TABLE FOR SHOWER +C RESET ENERGY-MULTIPLICITY & ENERGY-ELASTICITY MATRIX FOR SHOWER + DO 11 J = 1,40 + INBIN(J) = 0 + IPBIN(J) = 0 + IKBIN(J) = 0 + IHBIN(J) = 0 + ELMEAN(J) = 0.D0 + DO 11 L = 1,13 + MULTMA(J,L) = 0 + IELDPM(J,L) = 0 + 11 CONTINUE + +C RESET PARTICLE TABLES + IF ( FTABOUT ) THEN + DO IIE = 1,IEBIN + DO IIT = 1,ITBIN + DO IID = 1,IDBIN + G_ARRAY(IIE,IIT,IID) = 0. + E_ARRAY(IIE,IIT,IID) = 0. + M_ARRAY(IIE,IIT,IID) = 0. + ENDDO + ENDDO + ENDDO + ENDIF + +C INITIALIZE PARTICLE STACK + CALL ISTACK +C RESET STACKINT + DO J = 1,MAXICOUNT + DO K = 1,MAXLEN + STACKINT(K,J) = 0.D0 + ENDDO + ENDDO + IRET1 = 0 + +C INITIALIZE EVENT HEADER AND END FOR EACH EVENT + DO 2123 L = 2,43 + EVTH(L) = 0. + 2123 CONTINUE + DO 123 L = 2,MAXBUF + EVTE(L) = 0. + 123 CONTINUE + +C SHOWER BEGIN PRINTOUT + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,105) ISHOWNO + 105 FORMAT ('1',10('='),' SHOWER NO ',I10,' ',47('=')/) + +C RANDOM GENERATOR STATUS AT BEGINNING OF SHOWER CALCULATION + EVTH(13) = NSEQ + DO 45 L = 1,NSEQ + CALL RMMAQ( ISEED(1,L), L, 'R' ) +C SEED + EVTH(11+L*3) = ISEED(1,L) +C NUMBER OF CALLS + EVTH(12+L*3) = MOD ( ISEED(2,L), 1000000 ) +C NUMBER OF MILLIONS + EVTH(13+L*3) = ISEED(3,L)*1000 + INT( ISEED(2,L)/1000000 ) + 45 CONTINUE + IF ( FPRINT .OR. DEBUG .OR. MOD(ISHW-1,IPROUT).EQ.0 ) THEN + CALL PRTIME(TTIME) + WRITE(MONIOU,158) ISHOWNO,(L,(ISEED(J,L),J=1,3),L=1,NSEQ) + 158 FORMAT(' AND RANDOM NUMBER GENERATOR AT BEGIN OF EVENT :',I8, + * /,(' SEQUENCE = ',I2,' SEED = ',I9 ,' CALLS = ',I9, + * ' BILLIONS = ',I9)) + ENDIF +C RESET KNOR + KNOR = .TRUE. + +C GET FULL RANDOM GENERATOR STATUS (103 WORDS PER SEQUENCE) +CC DO 495 L = 1,NSEQ +CC CALL RMMAQ( ISEED(1,L), L, 'RV' ) +CC WRITE(MONIOU,658) L,(ISEED(J,L),J=1,103) +CC658 FORMAT ( ' FULL RANDOM NUMBER GENERATOR STATUS ', +CC * 'FOR SEQUENCE ',I2,/(' ',10I11)) +CC495 CONTINUE + +C GET PRIMARY ENERGY INTO PRMPAR(2) + IF ( ISPEC .EQ. 0 ) THEN + PRMPAR(2) = LLIMIT + ELSE + CALL RMMAR( RD,1,1 ) + IF ( PSLOPE .NE. -1.D0 ) THEN + PRMPAR(2) = ( RD(1)*UL + ( 1.D0-RD(1) )*LL )**SLEX + ELSE + PRMPAR(2) = LLIMIT * LL**RD(1) + ENDIF + IF ( FPRINT .OR. DEBUG .OR. MOD(ISHW-1,IPROUT).EQ.0 ) + * WRITE(MONIOU,*) 'PRIMARY ENERGY = ',PRMPAR(2),' GEV' + ENDIF +C IF YOU WANT TO USE KINETIC ENERGY IN PRIMARY SPECTRUM +C YOU HAVE TO ADD THE PRIMARY'S REST MASS: +cc PRMPAR(2) = PRMPAR(2) + PAMA(NINT(PRMPAR(1))) +c-------------changes---add + THETAP1 = THETPR(1) + PHIP1 = PHIPR(1) +c-------------changes---add + + + +C GET PRIMARY ANGLES OF INCIDENCE + IF ( FIXINC ) THEN + THETAP = THETPR(1) + PHIP = PHIPR(1) + IF ( VUECON(2) .GT. 0.D0 ) THEN +C THROW UNIFORMLY DISTRIBUTED DIRECTION IN VIEWING CONE OR CONE RING +C FOR NOW + 46 CALL RMMAR( RD,3,1 ) + CT1 = COS(VUECON(1)) + CT2 = COS(VUECON(2)) + CTT = RD(2) * ( CT2 - CT1 ) + CT1 + THETAP = ACOS(CTT) + PHIP = RD(1) * PI2 +C TEMPORARY CARTESIAN COORDINATES + XVC1 = COS(PHIP)*SIN(THETAP) + YVC1 = SIN(PHIP)*SIN(THETAP) + ZVC1 = COS(THETAP) +C ROTATE AROUND Y AXIS + XVC2 = XVC1*COS(THETPR(1)) + ZVC1*SIN(THETPR(1)) + YVC2 = YVC1 + ZVC2 = ZVC1*COS(THETPR(1)) - XVC1*SIN(THETPR(1)) +C FOR A HORIZONTAL TARGET, THE COS(THETA) WEIGHT IS OBTAINED BY +C THROWING THE DICE ANOTHER TIME. + IF ( RD(3) .GT. ZVC2 ) GOTO 46 + THETAP = ACOS(ZVC2) + IF ( THETAP .GT. 88.D0*(PI/180.D0) ) GOTO 46 + PHIP = ATAN2(YVC2,XVC2) + PHIPR(1) + IF ( PHIP .GT. PI2 ) PHIP = PHIP - PI2 + IF ( PHIP .LT. 0.D0 ) PHIP = PHIP + PI2 + ENDIF + +C COSINE OF APPARENT ZENIT ANGLE IS PUT IN PRMPAR(15) +C (COSINE OF LOCAL ZENIT ANGLE IS IN PRMPAR(3)) + PRMPAR(15) = COS(THETAP) + ELSE +C CHOOSE ANGLES AT RANDOM WITH EQUAL FLUX FOR ALL DIRECTIONS +C WITH HORIZONTAL DETECTOR ARRAY (SEE: O.C. ALLKOFER & P.K.F. GRIEDER, +C COSMIC RAYS ON EARTH, IN: PHYSICS DATA 25/1, H.BEHRENS & G.EBEL ED., +C (FACHINFORMATIONSZENTRUM KARLSRUHE, GERMANY, 1983) CHPT. 1.1.2) + CALL RMMAR( RD,3,1 ) + CT1 = SIN(THETPR(1))**2 + CT2 = SIN(THETPR(2))**2 + CTT = SQRT( 1.D0 - RD(2)*(CT2 - CT1) - CT1 ) + THETAP = ACOS(CTT) + PHIP = RD(1) * ( PHIPR(2) - PHIPR(1) ) + PHIPR(1) +C CALCULATION IS THE SAME AS IN THE CASE OF A FLAT ATMOSPHERE BECAUSE +C FOR THIS CALCULATION THE APPARENT ANGLES AT DETECTOR ARE NEEDED. +C COSINE OF APPARENT ZENITH ANGLE IS PUT IN PRMPAR(15) = COSTAP + PRMPAR(15) = CTT + ENDIF + PRMPAR(4) = PHIP + IF ( FPRINT .OR. DEBUG .OR. MOD(ISHW-1,IPROUT).EQ.0 ) THEN + IF ( VUECON(2) .GT. 0.D0 ) WRITE(MONIOU,669) THETAP,PHIP + 669 FORMAT(' PRIMARY ANGLES ARE: THETA = ',F6.4,' RAD AND ', + * ' PHI = ',F6.4,' RAD') + ENDIF + +C DEFINE HEIGHT FOR START AT THICK0 (IN G/CM**2) +C WHICH IS 112.8 KM FOR THICK0 = 0 + PRMPAR(5) = HEIGH(THICK0) + IF ( LLONGI ) LPCT0 = MIN( INT(THICK0*THSTPI), LPCT0 ) + +C CALCULATE COORDINATE CORRECTION FOR TOP OF ATMOSPHERE +C ALL CALCULATIONS FOR CURPAR ARE MADE IN CORINC +C (COSTHE, HAPP, COSTEA). (X, Y) FOR SHOWER CORE = (0,0) + H = PRMPAR(5) + CURPAR(15) = PRMPAR(15) + CALL CORINC + +C COUNTER FOR PARTICLE OUTPUT + LH = 0 +C COUNTER FOR CHERENKOV OUTPUT + IF ( LCERFI ) LHCER = 0 +C CALCULATE BUNCH SIZE FOR CHERENKOV PHOTONS IF NOT SET IN DATAC + IF ( ICRSIZ .EQ. 0 ) THEN + CALL GETBUS( NINT(PRMPAR(1)),PRMPAR(2),PRMPAR(3),CERSIZ ) + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,*) + * 'CHERENKOV BUNCH SIZE IS CALCULATED TO=',CERSIZ + ENDIF + IF ( ICERML .GE. 1 ) THEN + DO 4438 III = 1,ICERML +c--changes--add +c 5226 CALL SELCOR(CERXOS(III),CERYOS(III)) + if(yscatt.eq.xscatt) then + cerxos(iii)=yscatt/dcos(thetap1)*dcos(phip1) + ceryos(iii)=yscatt/dcos(thetap1)*dsin(phip1) + else + 5226 CALL RMMAR( RD,2,3 ) + CERXOS(III) = 2.0*YSCATT*(RD(1)-0.5)/dcos(thetap1) + CERYOS(III) = 2.0*YSCATT*(RD(2)-0.5)/dcos(thetap1) + xx=cerxos(iii)*dcos(phip1)-ceryos(iii)*dsin(phip1) + yy=cerxos(iii)*dsin(phip1)+ceryos(iii)*dcos(phip1) + r=dsqrt((xx*dcos(thetap1))**2+yy**2+1.d-7) + +c R=SQRT(CERXOS(I)**2+CERYOS(I)**2) + IF ((R.LT.XSCATT).OR.(R.GT.YSCATT)) GOTO 5226 + endif +c--changes--add + + WRITE(MONIOU,4437) ISHW,III,CERXOS(III),CERYOS(III) + 4437 FORMAT(' CORE OF EVENT ',I5,' (SCATT# ',I2, + * ') AT ',F12.2,9X,F12.2,' CM') + 4438 CONTINUE + ENDIF + DO 480 III = 1,20 + EVTH( 98+III) = CERXOS(III) + EVTH(118+III) = CERYOS(III) + 480 CONTINUE +C GET GAMMA FACTOR FROM ENERGY +C FOR MASSLESS PRIMARIES PRMPAR(2) STAYS = ENERGY + IF ( PAMA(NINT(PRMPAR(1))) .NE. 0.D0 ) + * PRMPAR(2) = PRMPAR(2) / PAMA(NINT(PRMPAR(1))) + +C SET PRIMARY TO CURRENT PARTICLE + DO J = 1,8 + CURPAR(J) = PRMPAR(J) + NCOUN(J) = 0 + ENDDO +C CALCULATE FIRST INTERACTION POINT IF HADRONIC + GEN = 0.D0 + H = HEIGH(THICK0) + CALL BOX2 + IF ( FIX1I ) THEN +C CALCULATE GEOMETRIC PATH LENGHT TO FIXED FIRST INTERACTION POINT IN +C DETECTOR FRAME (DUE TO DIFFERENCES IN H AND FIXHEI (POSSIBLY VERY +C DIFFERENT COORDINATE FRAMES) AND TAKE NRANGC FOR GETTING CHI IN A +C CURVED ATMOSPHERE + DIAG = SQRT( (C(1)+FIXHEI)**2 - (C(1)+OBSLEV(1))**2 + * * (1.D0-PRMPAR(15)**2) ) - (C(1)+OBSLEV(1))*PRMPAR(15) + FIXHAPP = OBSLEV(1) + DIAG * PRMPAR(15) + DL = (HAPP - FIXHAPP) / PRMPAR(15) + CALL NRANGC(DL) + H = FIXHEI + FDECAY = .FALSE. + + ELSE +C CHI IS GIVEN BY BOX2 + THICKH = THICK0 + THCKHN = THICKC(CHI) + H = HEIGH(THCKHN) + H = MAX( H, HLAY(1) - 100.D0 ) + ENDIF + HEIGHP = H + THICK1 = THICK(H) + IF ( CURPAR(1) .GT. 3.D0 .OR. .NOT. FEGS ) THEN + CHISUM = CHISUM + CHI + CHISM2 = CHISM2 + CHI**2 + ENDIF + ALEVEL = H + +C STORE PRIMARY COORDINATES FOR ADDITIONAL MUON INFORMATION + IF ( FMUADD ) THEN + IF ( CURPAR(1) .EQ. 5 .OR. CURPAR(1) .EQ. 6 ) THEN + DO J = 1,MAXLEN + AMUPAR(J) = CURPAR(J) + ENDDO + AMUPAR(5) = PRMPAR(5) + IF ( DEBUG ) WRITE(MDEBUG,*) 'AAMAIN: MUON STORED IN AMUPAR' + FMUORG = .TRUE. + ELSE + FMUORG = .FALSE. + ENDIF + ENDIF + +C SET TARGET FLAG IF SELECTED FOR FIRST INTERACTION + IF ( N1STTR .GT. 0 ) THEN + FIXTAR = .TRUE. + FDECAY = .FALSE. + EVTH(6) = REAL(N1STTR) + ELSE + FIXTAR = .FALSE. + EVTH(6) = 0. + ENDIF + +C INITIALIZE ARRAYS FOR NKG FOR EACH SHOWER + IF ( FNKG ) CALL STANKG + +C STORE FIRST PARTICLE IN HEADER AND PRINT IT OUT + EVTH( 2) = REAL(ISHOWNO) + EVTH( 3) = CURPAR(1) + IF ( PAMA(NINT(CURPAR(1))) .EQ. 0.D0 ) THEN +C PRIMARY ENERGY FOR MASSLESS PARTICLES (PHOTONS, NEUTRINOS) + E00 = GAMMA + E00PN = GAMMA + INUCL = 1 + ELSE + E00 = GAMMA * PAMA(NINT(CURPAR(1))) + INUCL = INT(MAX(1.D0,CURPAR(1)/100.D0)) + E00PN = E00 / INUCL + ENDIF + EVTH(148) = 0. + EVTH(149) = 0. + EVTH(150) = 0. + EVTH(151) = 0. + EVTH(152) = 0. + + IF ( FEGS ) THEN +C PARAMETER FOR ELECTRON AND PHOTON REJECT (CONVERT ENERGY TO MEV) + EONCUT = .5D-9*SQRT(E00*1000.D0) + CUTLN = LOG(EONCUT) + ENDIF + EVTH( 4) = E00 + EVTH( 5) = THICK0 + EVTH( 7) = HEIGHP + PTOT0 = SQRT( E00**2 - PAMA(NINT(CURPAR(1)))**2 ) + PTOT0N = PTOT0 / INUCL + +C PUT APPARENT ANGLES (SEEN FROM DETECTOR) INTO EVENT HEADER + ST = SQRT(1.D0-COSTAP**2) + EVTH(10) = PTOT0 * COSTAP + THETA = ACOS(COSTAP) + EVTH( 8) = PTOT0 * ST * COS(PHI) + EVTH( 9) = PTOT0 * ST * SIN(PHI) + EVTH(11) = THETA + EVTH(12) = PHI +C WRITE ENERGY AND ANGLES OF PRIMARY TO DBASE FILE FOR THE FIRST SHOWER + IF ( FDBASE .AND. ISHW .EQ. 1 ) THEN + WRITE(MDBASE,668) E00, THETA*180.D0/PI, PHI*180.D0/PI + 668 FORMAT(1P,'#energy_prim#',E14.7,'#theta_prim#',E14.7, + * '#phi_prim#',E14.7) + CLOSE(UNIT=MDBASE) + ENDIF + EVTH(85) = CERSIZ + + IF ( DEBUG .OR. FPRINT ) THEN + WRITE(MONIOU,*) + ENDIF + IF ( CURPAR(1) .GT. 3.D0 ) THEN + IF ( DEBUG ) THEN + WRITE(MONIOU,102) (CURPAR(J),J = 1,8) + 102 FORMAT (' PRIMARY PARAMETERS AT FIRST INTERACTION POINT'/ + * 16X,1P,8E10.3) + ELSEIF ( FPRINT ) THEN + WRITE(MONIOU,1021) (CURPAR(J),J = 1,8) + 1021 FORMAT (' PRIMARY PARAMETERS AT FIRST INTERACTION POINT'/ + * 1X,1P,8E10.3) + ENDIF + ELSE + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,132) + 132 FORMAT (/' PRIMARY PARTICLE IS ELECTROMAGNETIC') + ENDIF + +C WRITE EVENT HEADER INTO BUFFER +C FOR EM PARTICLES EVTH IS WRITTEN TO BUFFER IN EGS (IF ACTIVE) + IF ( EVTH(3) .GT. 3.0 .OR. .NOT. FEGS ) THEN +C NEGATIVE FIRST INTERACTIN HEIGHT, IF TRACKING STARTS AT ATMOS. MARGIN + CALL TOBUF ( EVTH,0 ) + IF ( LCERFI ) CALL TOBUFC( EVTH,0 ) + ENDIF + +C PRINT HEADER FOR HIGH ENERGY PARTICLES + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,103) + 103 FORMAT(/' TYPE GAMMA COSTHETA ', + * ' PHI HEIGHT TIME X-CM Y-CM ', + * ' GEN ALEVEL E ON STACK'/) + NOPART = 0 + + + + IF ( CURPAR(1) .LE. 3.D0 .OR. + * (CURPAR(1) .EQ. 5.D0 .OR. CURPAR(1) .EQ. 6.D0) ) THEN +C GIVE PARTICLE TO EGS OR NKG IF ELECTROMAGNETIC +C AND TAKE THEN NEXT PARTICLE FROM STACK +C FLAG FOR NO PRIMARY INTERACTION IS SET FOR ALL BUT ELM. PRIMARIES + IF ( CURPAR(1) .LE. 3.D0 ) THEN +C EM PARTICLES + FNPRIM = .FALSE. + BNORMC = BNORM*1.D-3 + ELSE +C MUONS + FNPRIM = .TRUE. + H = PRMPAR(5) + IF ( TMARGIN ) BNORMC = BNORM*1.D-3 + ENDIF +c-----changed--add + fmfb=.true. + CALL BOX3(fmfb) + fmfb=.false. +c-----changed--add + BNORMC = BNORM*1.D-3 + IF ( FEGS ) THEN + CHISUM = CHISUM + THICK(ABS(DBLE(EVTH(7)))) + CHISM2 = CHISM2 + THICK(ABS(DBLE(EVTH(7))))**2 + ENDIF + FIRSTI = .FALSE. + GOTO 4 + + ELSE +C HADRONIC PARTICLES + FNPRIM = .TRUE. +C CHECK OBSERVATION LEVEL PASSAGE AND UPDATE PARTICLE COORDINATES + HNEW = H +C FOR SUBR. UPDATE WE NEED THE START ALTITUDE H + H = HEIGH(THICK0) + +C TRACK THE PARTICLE WHEN ENTERING THE ATMOSPHERE + FLAG = .FALSE. +c--changed---add + fmfb=.true. + CALL UPDATC(IPAS,FLAG,fmfb) + fmfb=.false. +c--changed---add + +C ELIMINATE PARTICLE IF BELOW CUTS BY JUMP TO LABEL 4 + IF ( IRET2 .NE. 0 ) GOTO 4 + IF ( IPAS .EQ. 0 ) THEN +C PARTICLE DID NOT REACH OBSERVATION LEVEL +C START CLOCK AT FIRST INTERACTION (MAGNETIC FIELD IS SET IN INPRM) + CURPAR(6) = 0.D0 +C JUMP INTO NORMAL PARTICLE TREATMENT FOR HADRONS + GOTO 6 + ENDIF + + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'AAMAIN: PRIMARY REACHED LOWEST OBSERVATION LEVEL' + GOTO 4 + ENDIF + + +C----------------------------------------------------------------------- +C NORMAL CYCLE + 7 CONTINUE + +C IF ENERGY IS TOO SMALL, TAKE NEXT PARTICLE BY JUMP TO LABEL 4 + IF ( GAMMA .LE. 1.D0 ) THEN + IF ( CURPAR(1) .NE. 1.D0 ) THEN + IF ( CURPAR(1).EQ.5.D0 .OR. CURPAR(1).EQ.6.D0 ) + * FMUORG = .FALSE. + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + LHEIGH = INT(THICK(H)*THSTPI + 1.D0) + IF ( ITYPE .EQ. 2 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + (GAMMA+1.D0)*PAMA(2) + ELSEIF ( ITYPE .EQ. 3 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + (GAMMA-1.D0)*PAMA(2) + ELSEIF ( ITYPE .EQ. 5 .OR. ITYPE .EQ. 6 ) THEN + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + GAMMA * PAMA(5) + ELSEIF ( ITYPE .GE. 7 .AND. ITYPE .LE. 74 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAMMA * PAMA(ITYPE) + * - RESTMS(ITYPE) + ENDIF + ENDIF + GOTO 4 + ENDIF +C SPECIAL TREATMENT FOR PHOTONS + ITYPE = 1 + CHI = 0.D0 + GOTO 5 + ENDIF + +C DETERMINE PLACE OF NEXT INTERACTION + CALL BOX2 + +C CHECK PASSAGE THROUGH OBSERVATION LEVELS AND TRACK PARTICLES TO THE +C PLACE OF INTERACTION + 5 CONTINUE + IRET1 = 0 + CALL BOX3(fmfb) + IF ( IRET1 .NE. 0 ) GOTO 4 + + 6 CONTINUE + IRET1 = 0 + MSMM = 0 + +C INCREMENT PARTICLE GENERATION AND PROCESS NUCLEAR INTERACTION + GEN = GEN + 1.D0 +C INITIALIZE INTERMEDIATE STACK FOR ONE REACTION + INT_ICOUNT = 0 + CALL NUCINT +C TRANSFER INTERMEDIATE STACK FOR ONE REACTION + CALL TSTEND + +C ENERGY - MULTIPLICITY STATISTICS + IF ( EKINL .LE. 0.1D0 ) THEN + MEN = 1 + ELSE + MEN = 4.D0 + 3.D0 * LOG10(EKINL) + MEN = MIN( MEN, 40 ) + ENDIF + IF ( MSMM .LE. 1 ) THEN + MMU = 1 + ELSE + MMU = 1.D0 + 3.D0 * LOG10(DBLE(MSMM)) + MMU = MIN( MMU, 13 ) + ENDIF + MULTMA(MEN,MMU) = MULTMA(MEN,MMU) + 1 + MULTOT(MEN,MMU) = MULTOT(MEN,MMU) + 1 + IF ( DEBUG ) WRITE(MDEBUG,*) 'AAMAIN: EKINL,MSMM=', + * SNGL(EKINL),MSMM + + IF ( IRET1 .EQ. 0 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,666) (CURPAR(II),II=1,9) + 666 FORMAT(' AAMAIN: CURPAR=',1P,9E10.3) + GOTO 7 + ENDIF + +C GET NEXT PARTICLE FROM STACK, IF IRET=1 ALL PARTICLES ARE DONE + 4 CONTINUE + IRET1 = 0 + CALL FSTACK + IF ( FMUADD ) THEN + IF ( (CURPAR(1) .EQ. 5 .OR. CURPAR(1) .EQ. 6) + * .AND. IRET1 .EQ. 0 .AND. .NOT. FMUORG ) THEN + DO J = 1,MAXLEN + AMUPAR(J) = CURPAR(J) + ENDDO + IF ( DEBUG ) WRITE(MDEBUG,*) 'AAMAIN: MUON STORED IN AMUPAR' + FMUORG = .TRUE. + ENDIF + ENDIF + +C STACK IS EMPTY, IF IRET1 IS 1 + IF ( IRET1 .EQ. 0 ) GOTO 7 + +C----------------------------------------------------------------------- +C FINISH SHOWER AND PRINT INFORMATION + CALL OUTEND + +* IF ( DEBUG ) WRITE(MDEBUG,442) NPARTO +*442 FORMAT(' AAMAIN: NPARTO='/(' ',10F10.0)) + + IF ( FPRINT .OR. DEBUG ) THEN + IOBSLV = MIN( 5, NOBSLV ) + WRITE(MONIOU,54) (K,K=1,IOBSLV) + 54 FORMAT (/' PARTICLES AT DETECTOR LEVEL :'/ + * ' FOR LEVEL ', 5I13) + WRITE(MONIOU,55) (OBSLEV(K),K=1,IOBSLV) + 55 FORMAT ( ' HEIGHT IN CM ',1P, 5E13.3/) + WRITE(MONIOU,555) (THCKOB(K),K=1,IOBSLV) + 555 FORMAT ( ' HEIGHT IN G/CM**2 ',1P, 5E13.3/) + WRITE(MONIOU,776) 'PROTONS ',(NPROTO(K),K=1,IOBSLV) + WRITE(MONIOU,776) 'ANTIPROTONS ',(NPROTB(K),K=1,IOBSLV) + WRITE(MONIOU,776) 'NEUTRONS ',(NNEUTR(K),K=1,IOBSLV) + WRITE(MONIOU,776) 'ANTINEUTRONS ',(NNEUTB(K),K=1,IOBSLV) + WRITE(MONIOU,775) 'PHOTONS ',(NPHOTO(K),K=1,IOBSLV) + WRITE(MONIOU,775) 'ELECTRONS ',(NELECT(K),K=1,IOBSLV) + WRITE(MONIOU,775) 'POSITRONS ',(NPOSIT(K),K=1,IOBSLV) + WRITE(MONIOU,776) 'MU - ',(NMUM (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'MU + ',(NMUP (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'PI 0 ',(NPI0 (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'PI - ',(NPIM (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'PI + ',(NPIP (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'K0L ',(NK0L (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'K0S ',(NK0S (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'K - ',(NKMI (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'K + ',(NKPL (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'STR. BARYONS ',(NHYP (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'DEUTERONS ',(NDEUT (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'TRITONS ',(NTRIT (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'ALPHAS ',(NALPHA(K),K=1,IOBSLV) + WRITE(MONIOU,776) 'OTHER PARTIC.',(NOTHER(K),K=1,IOBSLV) + WRITE(MONIOU,*) + WRITE(MONIOU,776) 'DECAYED MUONS',NMUOND + 775 FORMAT(' NO OF ',A13, '= ',1P,5E13.6,0P) + 776 FORMAT(' NO OF ',A13, '= ',5F13.0) + + IF ( NOBSLV .GT. 5 ) THEN + IOBSLV = NOBSLV + WRITE(MONIOU,54) (K,K=6,IOBSLV) + WRITE(MONIOU,55) (OBSLEV(K),K=6,IOBSLV) + WRITE(MONIOU,555) (THCKOB(K),K=6,IOBSLV) + WRITE(MONIOU,776) 'PROTONS ',(NPROTO(K),K=6,IOBSLV) + WRITE(MONIOU,776) 'ANTIPROTONS ',(NPROTB(K),K=6,IOBSLV) + WRITE(MONIOU,776) 'NEUTRONS ',(NNEUTR(K),K=6,IOBSLV) + WRITE(MONIOU,776) 'ANTINEUTRONS ',(NNEUTB(K),K=6,IOBSLV) + WRITE(MONIOU,775) 'PHOTONS ',(NPHOTO(K),K=6,IOBSLV) + WRITE(MONIOU,775) 'ELECTRONS ',(NELECT(K),K=6,IOBSLV) + WRITE(MONIOU,775) 'POSITRONS ',(NPOSIT(K),K=6,IOBSLV) + WRITE(MONIOU,776) 'MU - ',(NMUM (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'MU + ',(NMUP (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'PI 0 ',(NPI0 (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'PI - ',(NPIM (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'PI + ',(NPIP (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'K0L ',(NK0L (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'K0S ',(NK0S (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'K - ',(NKMI (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'K + ',(NKPL (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'STR. BARYONS ',(NHYP (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'DEUTERONS ',(NDEUT (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'TRITONS ',(NTRIT (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'ALPHAS ',(NALPHA(K),K=6,IOBSLV) + WRITE(MONIOU,776) 'OTHER PARTIC.',(NOTHER(K),K=6,IOBSLV) + WRITE(MONIOU,*) + ENDIF + ENDIF + +C ADD UP FOR MEAN VALUES + DO 779 K = 1,25 + DO 779 J = 1,10 + MPARTO(J,K) = MPARTO(J,K) + NPARTO(J,K) + MPART2(J,K) = MPART2(J,K) + NPARTO(J,K)**2 + 779 CONTINUE + EVTE(2) = ISHOWNO + IOBSLV = NOBSLV + DO 335 K = 1,IOBSLV + EVTE(3) = EVTE(3) + NPHOTO(K) + EVTE(4) = EVTE(4) + NELECT(K) + NPOSIT(K) + EVTE(5) = EVTE(5) + NPROTO(K) + NPROTB(K) + NNEUTR(K) + + * NNEUTB(K) + NPI0(K) + NPIM(K) + NPIP(K) + NK0L(K) + + * NK0S(K) + NKMI(K) + NKPL(K) + NHYP(K) + + * NDEUT(K) + NTRIT(K) + NALPHA(K) + NOTHER(K) + EVTE(6) = EVTE(6) + NMUP(K) + NMUM(K) + 335 CONTINUE + EVTE(7) = NOPART + + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,110) + * IFINNU,IFINPI,IFINET,IFINKA,IFINHY, + * IFINNU+IFINPI+IFINET+IFINKA+IFINHY, + * ELAST,THICK1,SIG1I,TARG1I + 110 FORMAT(/ + * ' NO OF NUCLEONS PRODUCED IN FIRST HADR. INTERACTION =',I10/ + * ' NO OF PIONS PRODUCED IN FIRST HADR. INTERACTION =',I10/ + * ' NO OF ETAS PRODUCED IN FIRST HADR. INTERACTION =',I10/ + * ' NO OF KAONS PRODUCED IN FIRST HADR. INTERACTION =',I10/ + * ' NO OF S.BARYONS PRODUCED IN FIRST HADR. INTERACTION =',I10/ + * ' TOTAL MULTIPLICITY OF FIRST HADR. INTERACTION =',I10/ + * ' ELASTICITY OF FIRST HADR. INTERACTION =',F10.4/ + * ' VERTICAL DEPTH (G/CM**2) OF FIRST HADR. INTERACTION =',F10.4/ + * ' CROSS-SECTION MILLIBARN OF FIRST HADR. INTERACTION =',F10.4/ + * ' TARGET MASS NUMBER OF FIRST HADR. INTERACTION =',F10.4/) + +C PRINT OUT NKG RESULT FOR ONE SHOWER IF SELECTED + IF ( FNKG ) CALL AVAGE +c--------changed------add +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c calculated here again, 'cos it's rewrite I dont know where + LPCT1 = INT( THICK0 * THSTPI ) + LPCT2 = INT( (THICK0 + PRMPAR(3)*CHI) * THSTPI ) + LPCT2 = MIN(NSTEP,LPCT2) +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c-------changed ---add--- + + + IF ( LLONGI ) THEN +C TREAT LONGITUDINAL DISTRIBUTIONS + DO 980 J = 0,NSTEP +C ADD UP ENERGY DEPOSIT AND IONIZATION FOR SUM + DLONG(J,9) = DLONG(J,1)+DLONG(J,2)+DLONG(J,3)+DLONG(J,4) + * +DLONG(J,5)+DLONG(J,6)+DLONG(J,7)+DLONG(J,8) +C ADD ELECTRONS, POSITRONS, MUONS AND NUCLEI TO THE CHARGED PARTICLES + ELONG(J,7) = ELONG(J,7) + ELONG(J,2) + ELONG(J,3) + * + ELONG(J,4) + ELONG(J,5) + ELONG(J,8) +C ADD UP ALL ENERGIES FOR SUM + ELONG(J,9) = ELONG(J,1) + ELONG(J,2) + ELONG(J,3) + * + ELONG(J,4) + ELONG(J,5) + ELONG(J,6) + ELONG(J,8) +C ADD ALL CHARGED PARTICLES TO CHARGED SUM + PLONG(J,7) = PLONG(J,7) + PLONG(J,2) + PLONG(J,3) + * + PLONG(J,4) + PLONG(J,5) + PLONG(J,8) +C ADD UP FOR MEAN VALUES OF LONGITUDINAL DISTRIBUTION + DO K = 1,9 + AELONG(J,K) = AELONG(J,K) + ELONG(J,K) + SELONG(J,K) = SELONG(J,K) + ELONG(J,K)**2 + APLONG(J,K) = APLONG(J,K) + PLONG(J,K) + SPLONG(J,K) = SPLONG(J,K) + PLONG(J,K)**2 + ENDDO + DO K = 1,9 + ADLONG(J,K) = ADLONG(J,K) + DLONG(J,K) + SDLONG(J,K) = SDLONG(J,K) + DLONG(J,K)**2 + ENDDO + 980 CONTINUE + +C PRINT LONGITUDINAL DISTRIBUTIONS PER SHOWER + IF ( FPRINT .OR. DEBUG ) THEN + WRITE(MONIOU,910) THSTEP, + * 'GAMMAS','POSITRONS','ELECTRONS','MU+','MU-','HADRONS', + * 'CHARGED','NUCLEI','CHERENKOV', + * (J*THSTEP,(PLONG(J,K),K=1,9),J=LPCT1,NSTEP) + 910 FORMAT(/' ---------- LONGITUDINAL PARTICLE DISTRIBUTION IN ' + * ,'STEPS OF ',F5.0,' G/CM**2 ',50(1H-)/ + * ' DEPTH ',3A14,3A12,A12,A11,A12/ + * (' ',F6.0,F15.0,2F14.0,3F12.0,F14.0,F11.0,1P,E12.5,0P) ) +CJOK ADAPTED FOR HEAT CALCULATION +C910 FORMAT(/ +C * ' LONGITUDINAL DISTRIBUTION IN STEPS OF ',F5.0,' G/CM**2' +C * /' ',92('=')/' DEPTH',8A10,A12/1P +C * (' ',0P,F6.0,1P,9E11.4)) +CJOK +C ENERGY DISTRIBUTION + WRITE(MONIOU,908) THSTEP, + * 'GAMMAS','POSITRONS','ELECTRONS','MU+','MU-','HADRONS', + * 'CHARGED','NUCLEI','SUM', + * (J*THSTEP,(ELONG(J,K),K=1,9),J=LPCT1,NSTEP) + 908 FORMAT(/' ---------- LONGITUDINAL ENERGY DISTRIBUTION ', + * '[GEV] IN STEPS OF ',F5.0,' G/CM**2 ',47(1H-)/ + * ' DEPTH',9(A12,1X)/ (' ',F6.0,1P,9E13.5,0P) ) +C ENERGY DEPOSIT + WRITE(MONIOU,909) THSTEP, + * ' GAMMA ','EM IONIZ','EM CUT','MU IONIZ','MU CUT', + * 'HADR IONIZ','HADR CUT','NEUTRINO ',' SUM', + * ((2*J-1)*.5*THSTEP,(DLONG(J,K),K=1,9), + * J=MAX(1,LPCT1),NSTEP-1) + 909 FORMAT(/' ---------- LONGITUDINAL ENERGY DEPOSIT [GEV] IN ', + * 'STEPS OF ',F5.0,' G/CM**2 ',51(1H-)/ + * ' DEPTH ',3A14,6A12,/,(' ',F6.1,1X,3F14.1,5F12.1,F13.1)) + WRITE(MONIOU,9091) (2*NSTEP-1)*.5*THSTEP, + * (DLONG(NSTEP,K),K=1,9) + 9091 FORMAT(' ',F6.1,1X,1P,3E14.7,5E12.5,E13.6) + DLONGSUM = 0.D0 + DO K = 1,9 + DO J = 0,NSTEP + DLONG(1170,K) = DLONG(1170,K) + DLONG(J,K) + ENDDO + IF ( K .NE. 9 ) DLONGSUM = DLONGSUM + DLONG(1170,K) + ENDDO + WRITE(MONIOU,907) (DLONG(1170,K),K=1,8) + 907 FORMAT(' ',20X,' LONGITUDINAL ENERGY SUM [GEV] ',/ + * ,' ',7X,1P,3E14.7,5E12.5) + WRITE(MONIOU,919) DLONGSUM + DO K = 1,9 + DLONG(1170,K) = 0.D0 + ENDDO + ENDIF +C WRITE OUT LONGITUDINAL DISTRIBUTION + IF ( FLONGOUT ) THEN + WRITE(MLONGOUT,211) NSTEP,THSTEP,ISHOWNO, + * 'GAMMAS','POSITRONS','ELECTRONS','MU+','MU-','HADRONS', + * 'CHARGED','NUCLEI','CHERENKOV' +C +C DO NOT CHANGE THIS FORMAT, AS THE CorsTo Root PROGRAM DEPENDS ON IT +C + 211 FORMAT(' LONGITUDINAL DISTRIBUTION IN ',I5, + * ' VERTICAL STEPS OF ',F5.0,' G/CM**2 FOR SHOWER ', + * I7,/,' DEPTH',9(A11,1X) ) + DO J = 1, NSTEP + WRITE(MLONGOUT,212) J*THSTEP,(PLONG(J,K),K=1,9) +C +C DO NOT CHANGE THIS FORMAT, AS THE CorsTo Root PROGRAM DEPENDS ON IT +C + 212 FORMAT(' ',F5.0,1P,9(E12.5),0P) + ENDDO + WRITE(MLONGOUT,213) NSTEP,THSTEP,ISHOWNO, + * 'GAMMA ','EM IONIZ','EM CUT','MU IONIZ','MU CUT', + * 'HADR IONIZ','HADR CUT','NEUTRINO ',' SUM ' +C +C DO NOT CHANGE THIS FORMAT, AS THE CorsTo Root PROGRAM DEPENDS ON IT +C + 213 FORMAT(' LONGITUDINAL ENERGY DEPOSIT IN ',I5, + * ' VERTICAL STEPS OF ',F5.0,' G/CM**2 FOR SHOWER ', + * I7,/,' DEPTH ',3A11,6A12) + DO J = 1, NSTEP + DEPSTEP = (2*J-1)*.5*THSTEP + WRITE(MLONGOUT,214) DEPSTEP, + * (DLONG(J,K),K=1,9) +C +C DO NOT CHANGE THIS FORMAT, AS THE CorsTo Root PROGRAM DEPENDS ON IT +C + 214 FORMAT(' ',F6.1,1P,9(E12.5),0P) + ENDDO + ELSE +C FILL THE PERMANENT VALUES OF LONGITUDINAL FIELDS: + ARRAYLONG(2) = EVTH(2) !SHOWER NUMBER + ARRAYLONG(3) = EVTH(3) !PRIMARY PARTICLE + ARRAYLONG(4) = EVTH(4) !PRIMARY ENERGY + ARRAYLONG(7) = THICK(DBLE(EVTH(7))) !THICKNESS FIRST INTERACT + ARRAYLONG(8) = EVTH(11) !ZENITH ANGLE + ARRAYLONG(9) = EVTH(12) !AZIMUTH ANGLE + ARRAYLONG(10) = EVTH(61) !ENERGY CUT HADRONS + ARRAYLONG(11) = EVTH(62) !ENERGY CUT MUONS + ARRAYLONG(12) = EVTH(63) !ENERGY CUT ELECTRONS + ARRAYLONG(13) = EVTH(64) !ENERGY CUT GAMMAS + +C CALCULATE HOW MANY BLOCKS MUST BE WRITTEN + JJEND = INT( (NSTEP-1)/26 ) + 1 + ARRAYLONG(5) = JJEND + 100*NSTEP !TOTAL # OF LONGI BLOCKS +C ! & NUMBER OF STEPS +C WRITE THE BLOCKS + DO JJ = 1, JJEND +C SET ACTUAL BLOCK NUMBER + ARRAYLONG(6) = JJ !CURRENT NUMBER OF BLOCK +C FILL THE BLOCK WITH ACTUAL VALUES + DO J = 1, 26 + JPLUS = 10*(J-1) + JJJ = J + 26 * (JJ-1) + IF ( JJJ .LE. NSTEP ) THEN +C FILL IN THE THICKNESS VALUES + ARRAYLONG(14+JPLUS) = JJJ * THSTEP + DO K = 1, 9 +C FILL IN THE PARTICLE NUMBERS + ARRAYLONG(14+JPLUS+K) = PLONG(JJJ,K) + ENDDO + ELSE +C FILL THE END OF LAST BLOCK WITH ZEROS + DO K = 1, 10 + ARRAYLONG(13+JPLUS+K) = 0. + ENDDO + ENDIF + ENDDO +C NOW WRITE OUT THE BLOCK + CALL TOBUF(ARRAYLONG,0) +* WRITE(MONIOU,3333)JJ,ARRAYLONG +*3333 FORMAT( 1X,I5,3(1X,E10.5),/,(10(1X,E10.5)) ) + ENDDO + ENDIF + + IF ( FLGFIT ) THEN + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,*) ' ' +C PERFORM FIT TO THE LONGITUDINAL DISTRIBUTION OF ALL CHARGED PARTICLES +C IF EGS IS SELECTED THIS IS THE DISTRIBUTION WHICH IS TO BE TAKEN + IF ( FEGS ) THEN + DO 930 J = 0,NSTEP-LPCT1 + DEP(J+1) = (J+LPCT1)*THSTEP + CHAPAR(J+1) = MAX( PLONG(J+LPCT1,7), 0.D0 ) + 930 CONTINUE + NSTP = NSTEP + 1 - LPCT1 + IF ( FPRINT .OR. DEBUG ) + * WRITE(MONIOU,8229) 'ALL CHARGED PARTICLES' + 8229 FORMAT(' FIT OF THE HILLAS CURVE ', + * ' N(T) = P1*((T-P2)/(P3-P2))**((P3-P2)/(P4+P5*T+P6*T**2))', + * ' * EXP((P3-T)/(P4+P5*T+P6*T**2))'/ + * ' TO LONGITUDINAL DISTRIBUTION OF ',A35) + IF ( FLONGOUT ) + * WRITE(MLONGOUT,8229) 'ALL CHARGED PARTICLES' +C IF NKG IS SELECTED ONLY THE ELECTRON DISTRIBUTION IS AVAILABLE + ELSEIF ( FNKG ) THEN + DEP(1) = 0.D0 + CHAPAR(1) = 0.D0 + DO 931 J = 1,IALT(1) + DEP(J+1) = TLEV(J) + CHAPAR(J+1) = MAX( SL(J), 0.D0 ) + 931 CONTINUE + NSTP = IALT(1) + 1 + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,8229)'NKG ELECTRONS' + IF ( FLONGOUT ) + * WRITE(MLONGOUT,8229)'NKG ELECTRONS' +C IF NONE IS SELECTED IT DOES NOT REALLY MAKE SENSE TO FIT +C BUT LET'S TAKE THEN ALL CHARGED WHICH ARE MUONS AND HADRONS + ELSE + DO 932 J = 0,NSTEP-LPCT1 + DEP(J+1) = (J+LPCT1)*THSTEP + CHAPAR(J+1) = MAX( PLONG(J+LPCT1,7), 0.D0 ) + 932 CONTINUE + NSTP = NSTEP + 1 - LPCT1 + IF ( FPRINT .OR. DEBUG ) + * WRITE(MONIOU,8229) 'MUONS AND CHARGED HADRONS' + IF ( FLONGOUT ) + * WRITE(MLONGOUT,8229) 'MUONS AND CHARGED HADRONS' + ENDIF + IF ( NSTP .GT. 6 ) THEN +C THERE ARE MORE THAN 6 STEP VALUES, A FIT SHOULD BE POSSIBLE. +C DO THE FIT: NPAR AND FPARAM GIVE THE NUMBER OF PARAMETERS USED +C AND THE FINAL VALUES FOR THE PARAMETERS. CHISQ GIVES THE CHI**2/DOF +C FOR THE FIT. + CALL LONGFT(FPARAM,CHI2) + IF ( FPRINT .OR. DEBUG ) THEN + IF ( FPARAM(1) .GT. 0.D0 ) THEN + WRITE(MONIOU,8230) + * FPARAM,CHI2,CHI2/SQRT(FPARAM(1))*100.D0 + 8230 FORMAT(' PARAMETERS = ',1P,6E12.4/ + * ' CHI**2/DOF = ',E11.4/ + * ' AV. DEVIATION IN % = ',E11.4,0P/) + ELSE + WRITE(MONIOU,8231) FPARAM,CHI2 + 8231 FORMAT(' PARAMETERS = ',1P,6E12.4/ + * ' CHI**2/DOF = ',E11.4,0P//) + ENDIF + ENDIF + IF ( FLONGOUT ) THEN + IF ( FPARAM(1) .GT. 0.D0 ) THEN + WRITE(MLONGOUT,8230) FPARAM,CHI2, + * CHI2/SQRT(FPARAM(1))*100.D0 + ELSE + WRITE(MLONGOUT,8231) FPARAM,CHI2 + ENDIF + ENDIF +C STORE RESULT IN END EVENT BLOCK + DO 933 K = 1,6 + EVTE(255+K) = FPARAM(K) + 933 CONTINUE + EVTE(262) = CHI2 + ELSE + WRITE(MONIOU,*) 'NO LONGI. FIT POSSIBLE, ', + * ' NSTP = ',NSTP,' TOO SMALL.' + DO 934 K = 1,6 + EVTE(255+K) = 0. + 934 CONTINUE + EVTE(262) = 0. + ENDIF + ENDIF + ENDIF +c----changed---add +CBC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +C +C Modified by C. Bigongiari 2001 Jan 16 +C +C +Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c Saves statistics to sta###### file +cxxand many lines with comand - simply keep output like in standart +CBC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +c---changed--add + +C WRITE SHOWER END TO OUTPUT BUFFER + CALL TOBUF( EVTE,0 ) + IF ( LCERFI ) THEN + CALL OUTND2 + CALL TOBUFC( EVTE,0 ) + ENDIF + + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,*) + * 'CHERENKOV PH. FROM ELECTRONS = ',SNGL(CERELE), + * ' CHERENKOV PH. FROM HADRONS = ',SNGL(CERHAD) + CERELE = 0.D0 + CERHAD = 0.D0 + NRECER = 0 + +C STORE TABLES + IF ( FTABOUT ) THEN + WRITE(MTABOUT) G_ARRAY,E_ARRAY,M_ARRAY +C STORE LONG DISTRIBUTION OF CHARGED PARTICLES + IF ( LLONGI ) THEN + WRITE(MTABOUT) THSTEP,NSTEP,(PLONG(II,7),II=1,NSTEP) + ENDIF + ENDIF + + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,210) ISHOWNO + 210 FORMAT(/' END OF SHOWER NO ',I10) + + DO 19 J = 1,40 + JNBIN(J) = JNBIN(J) + INBIN(J) + JPBIN(J) = JPBIN(J) + IPBIN(J) + JKBIN(J) = JKBIN(J) + IKBIN(J) + JHBIN(J) = JHBIN(J) + IHBIN(J) + 19 CONTINUE + + 2 CONTINUE +C END OF SHOWER LOOP + +C----------------------------------------------------------------------- + 992 CONTINUE + + WRITE(MONIOU,*) ' ' + CALL PRTIME(TTIME) + DO L = 1,NSEQ + CALL RMMAQ( ISEED(1,L), L, 'R' ) + ENDDO + WRITE(MONIOU,159) ISHOWNO,(L,(ISEED(J,L),J=1,3),L=1,NSEQ) + 159 FORMAT(' AND RANDOM NUMBER GENERATOR AT END OF EVENT :',I8, + * /,(' SEQUENCE = ',I2,' SEED = ',I9 ,' CALLS = ',I9, + * ' BILLIONS = ',I9)) + +C RESET NUMBER OF SHOWERS TO CORRECT VALUE + ISHW = I + + RUNE(3) = REAL(ISHW) + TDIFF = ILEFTB - ILEFTA + +C WRITE RUN END TO OUTPUT BUFFER AND FINISH OUTPUT +c---------changed------add +CBC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +C +C Modified by C. Bigongiari 2001 Jan 16 +C +Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +Cc CALL TOBUF ( RUNE,1 ) +C call jcendrun(rune) +Cc IF ( LCERFI ) CALL TOBUFC( RUNE,1 ) +Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +C +C- write Run End +CBC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++C +c---------changed------add + CALL TOBUF ( RUNE,1 ) + IF ( LCERFI ) CALL TOBUFC( RUNE,1 ) +C TIME SINCE BEGINNING NO VALID INFORMATION + CALL TIMER( ILEFTB ) + TDIFF = ILEFTB - ILEFTA + +C MEAN VALUE FOR FIRST INTERACTION ALTITUDE (G/CM**2) + IF ( ISHW .GT. 1 ) THEN + CHISM2 = SQRT( ABS(CHISM2-CHISUM**2/ISHW) / (ISHW-1) ) + CHISUM = CHISUM / ISHW + ELSE + CHISM2 = 0.D0 + ENDIF + +C OUTPUTS FOR ALL SHOWERS + WRITE(MONIOU,201) ISHW,TDIFF,TDIFF/ISHW,IRECOR,IRECOR/ISHW, + * CHISUM,CHISM2 + 201 FORMAT('1',10('='),' RUN SUMMARY ',56('=')// + * ' NUMBER OF GENERATED EVENTS = ',I10,/ + * ' TOTAL TIME USED = ',F12.0,' SEC'/ + * ' TIME PER EVENT = ',F14.2,' SEC'/ + * ' TOTAL SPACE ON MPATAP USED = ',I12,' WORDS'/ + * ' SPACE PER EVENT ON MPATAP = ',I12,' WORDS'/ + * ' AVERAGE HEIGHT OF 1ST INT. = ',F10.3,' +-',F10.3,' G/CM**2'/) + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + IF ( ISHW .GT. 1 ) THEN +C DO PRINTING OF AVERAGES ONLY IF MORE THAN 1 SHOWER IS SIMULATED +C ENERGY - MULTIPLICITY MATRIX FOR ALL SHOWERS + WRITE(MONIOU,209) (K,K=1,13),(J,(MULTOT(J,K),K=1,13), + * 10**((J-4.)/3.),10**((J-3.)/3.),J=1,39), + * 1,(INT(10**((K-1.)/3.)+1),K = 2,13), + * 2,(INT(10**((K )/3.) ),K = 2,13) + 209 FORMAT(//' ENERGY - MULTIPLICITY MATRIX FOR ALL SHOWERS'/ + * ' ENERGY RUNS VERTICALLY, MULTIPLICITY HORIZONTALLY'//, + * ' ',6X,5I10,3I8,5I6,' ENERGY RANGE (GEV)'/ + * 39(/' ',I4,1X,I11,4I10,3I8,5I6,1X,1P,2E10.1,0P)// + * ' MULT. ',5I10,3I8,5I6,4X,'LOWER BIN LIMIT'/ + * ' RANGE ',5I10,3I8,5I6,4X,'UPPER BIN LIMIT') + + +C GET MEAN OF ELASTICITY FOR ENERGY BINS + DO 3377 J = 1,40 + NELMEA = 0 + DO 3378 K = 1,10 + NELMEA = NELMEA + IELDPA(J,K) + 3378 CONTINUE + IF ( NELMEA .NE. 0 ) ELMEAA(J) = ELMEAA(J) / NELMEA + 3377 CONTINUE + +C PRINT ENERGY - ELASTICITY MATRIX FOR ALL SHOWERS + WRITE(MONIOU,408) (K,K=1,10), (J,(IELDPA(J,K),K=1,10), + * ELMEAA(J),10**((J-4.D0)/3.D0),10**((J-3.)/3.D0),J=1,39), + * ((K-1)*0.1D0,K=1,10),(K*0.1D0,K=1,10) + 408 FORMAT (//' ENERGY - ELASTICITY MATRIX FOR ALL SHOWERS'/ + * ' ENERGY RUNS VERTICALLY, ELASTICITY HORIZONTALLY'// + * ' ',5X,7I9,3I10,' MEAN EL. ENERGY RANGE (GEV)'/ + * 39(/' ',I4,1X,7I9,3I10,2X,1P,E10.3,2E10.1,0P)// + * ' ELA. ',7F9.2,3F10.2,5X,'LOWER BIN LIMIT'/ + * ' RANGE',7F9.2,3F10.2,5X,'UPPER BIN LIMIT') + + WRITE(MONIOU,204) + 204 FORMAT (//' INTERACTIONS PER KINETIC ENERGY INTERVAL FOR ALL', + * ' SHOWERS'//' BIN LOWER LIMIT UPPER LIMIT ', + * 'NUCLEON PIONS KAONS S.BARYONS ', + * ' TOTAL'/ 12X,'IN GEV',9X,'IN GEV',7X, + * ' EVENTS EVENTS EVENTS EVENTS '//) + WRITE(MONIOU,207) (J,SABIN(J),SBBIN(J),JNBIN(J),JPBIN(J), + * JKBIN(J),JHBIN(J),JNBIN(J)+JPBIN(J)+JKBIN(J)+JHBIN(J),J=1,40) + 207 FORMAT(' ',I5,1P,2E15.4,0P,F14.0,3F14.0,F15.0) + +C CALCULATE MEAN VALUES AND STANDARD DEVIATIONS OF PARTICLE NUMBERS + IF ( ISHW .GT. 1 ) THEN + DO 879 K = 1,25 + IOBSLV = NOBSLV + DO J = 1,IOBSLV + MPART2(J,K) = SQRT( ABS(MPART2(J,K)-MPARTO(J,K)**2/ISHW) + * /(ISHW-1) ) + MPARTO(J,K) = MPARTO(J,K)/ISHW + ENDDO + 879 CONTINUE + ELSE + DO 881 K = 1,25 + IOBSLV = NOBSLV + DO J = 1,IOBSLV + MPART2(J,K) = 0.D0 + ENDDO + 881 CONTINUE + ENDIF + +C PRINT MEAN VALUES AND STANDARD DEVIATIONS OF PARTICLE NUMBERS + IOBSLV = MIN( 3, NOBSLV ) + WRITE(MONIOU,854) (K,K=1,IOBSLV) + 854 FORMAT (/ ' AVERAGE NUMBER OF PARTICLES PER EVENT :'/ + * ' FROM LEVEL NUMBER ', 3(10X,I10,10X) ) + WRITE(MONIOU,855) (OBSLEV(K),K=1,IOBSLV) + 855 FORMAT ( ' HEIGHT IN CM',1P,3(20X,E10.3)/) + WRITE(MONIOU,856) (THCKOB(K),K=1,IOBSLV) + 856 FORMAT ( ' HEIGHT IN G/CM**2',1P,3(14X,E10.3,6X)/) + + WRITE(MONIOU,778)'PROTONS ',(MPROTO(K),MPROT2(K),K=1,IOBSLV) + WRITE(MONIOU,778)'ANTIPROTONS ',(MPROTB(K),MPRTB2(K),K=1,IOBSLV) + WRITE(MONIOU,778)'NEUTRONS ',(MNEUTR(K),MNETR2(K),K=1,IOBSLV) + WRITE(MONIOU,778)'ANTINEUTRONS',(MNEUTB(K),MNETB2(K),K=1,IOBSLV) + WRITE(MONIOU,777)'PHOTONS ',(MPHOTO(K),MPHOT2(K),K=1,IOBSLV) + WRITE(MONIOU,777)'ELECTRONS ',(MELECT(K),MELEC2(K),K=1,IOBSLV) + WRITE(MONIOU,777)'POSITRONS ',(MPOSIT(K),MPOSI2(K),K=1,IOBSLV) + WRITE(MONIOU,778)'MU - ',(MMUM (K),MMUM2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'MU + ',(MMUP (K),MMUP2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'PI 0 ',(MPI0 (K),MPI02 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'PI - ',(MPIM (K),MPIM2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'PI + ',(MPIP (K),MPIP2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'K0L ',(MK0L (K),MK0L2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'K0S ',(MK0S (K),MK0S2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'K - ',(MKMI (K),MKMI2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'K + ',(MKPL (K),MKPL2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'STR. BARYONS',(MHYP (K),MHYP2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'DEUTERONS ',(MDEUT (K),MDEUT2(K),K=1,IOBSLV) + WRITE(MONIOU,778)'TRITONS ',(MTRIT (K),MTRIT2(K),K=1,IOBSLV) + WRITE(MONIOU,778)'ALPHAS ',(MALPHA(K),MALPH2(K),K=1,IOBSLV) + WRITE(MONIOU,778)'OTHER PART. ',(MOTHER(K),MOTH2 (K),K=1,IOBSLV) + WRITE(MONIOU,*) + WRITE(MONIOU,778) 'DECAYED MUONS',MMUOND + 777 FORMAT(' NO OF ',A12,' = ',1P,3(E13.6,' +-',E13.6,' '),0P) + 778 FORMAT(' NO OF ',A12,' = ',3(F13.1,' +-',F13.1,' ')) + + IF ( NOBSLV .GT. 3 ) THEN + IOBSLV = MIN( 6, NOBSLV ) + WRITE(MONIOU,854) (K,K=4,IOBSLV) + WRITE(MONIOU,855) (OBSLEV(K),K=4,IOBSLV) + WRITE(MONIOU,856) (THCKOB(K),K=4,IOBSLV) + WRITE(MONIOU,778)'PROTONS ',(MPROTO(K),MPROT2(K),K=4,IOBSLV) + WRITE(MONIOU,778)'ANTIPROTONS ',(MPROTB(K),MPRTB2(K),K=4,IOBSLV) + WRITE(MONIOU,778)'NEUTRONS ',(MNEUTR(K),MNETR2(K),K=4,IOBSLV) + WRITE(MONIOU,778)'ANTINEUTRONS',(MNEUTB(K),MNETB2(K),K=4,IOBSLV) + WRITE(MONIOU,777)'PHOTONS ',(MPHOTO(K),MPHOT2(K),K=4,IOBSLV) + WRITE(MONIOU,777)'ELECTRONS ',(MELECT(K),MELEC2(K),K=4,IOBSLV) + WRITE(MONIOU,777)'POSITRONS ',(MPOSIT(K),MPOSI2(K),K=4,IOBSLV) + WRITE(MONIOU,778)'MU - ',(MMUM (K),MMUM2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'MU + ',(MMUP (K),MMUP2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'PI 0 ',(MPI0 (K),MPI02 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'PI - ',(MPIM (K),MPIM2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'PI + ',(MPIP (K),MPIP2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'K0L ',(MK0L (K),MK0L2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'K0S ',(MK0S (K),MK0S2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'K - ',(MKMI (K),MKMI2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'K + ',(MKPL (K),MKPL2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'STR. BARYONS',(MHYP (K),MHYP2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'DEUTERONS ',(MDEUT (K),MDEUT2(K),K=4,IOBSLV) + WRITE(MONIOU,778)'TRITONS ',(MTRIT (K),MTRIT2(K),K=4,IOBSLV) + WRITE(MONIOU,778)'ALPHAS ',(MALPHA(K),MALPH2(K),K=4,IOBSLV) + WRITE(MONIOU,778)'OTHER PART. ',(MOTHER(K),MOTH2 (K),K=4,IOBSLV) + WRITE(MONIOU,*) + + IF ( NOBSLV .GT. 6 ) THEN + IOBSLV = MIN( 9, NOBSLV ) + WRITE(MONIOU,854) (K,K=7,IOBSLV) + WRITE(MONIOU,855) (OBSLEV(K),K=7,IOBSLV) + WRITE(MONIOU,856) (THCKOB(K),K=7,IOBSLV) + WRITE(MONIOU,778)'PROTONS ',(MPROTO(K),MPROT2(K),K=7,IOBSLV) + WRITE(MONIOU,778)'ANTIPROTONS ',(MPROTB(K),MPRTB2(K),K=7,IOBSLV) + WRITE(MONIOU,778)'NEUTRONS ',(MNEUTR(K),MNETR2(K),K=7,IOBSLV) + WRITE(MONIOU,778)'ANTINEUTRONS',(MNEUTB(K),MNETB2(K),K=7,IOBSLV) + WRITE(MONIOU,777)'PHOTONS ',(MPHOTO(K),MPHOT2(K),K=7,IOBSLV) + WRITE(MONIOU,777)'ELECTRONS ',(MELECT(K),MELEC2(K),K=7,IOBSLV) + WRITE(MONIOU,777)'POSITRONS ',(MPOSIT(K),MPOSI2(K),K=7,IOBSLV) + WRITE(MONIOU,778)'MU - ',(MMUM (K),MMUM2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'MU + ',(MMUP (K),MMUP2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'PI 0 ',(MPI0 (K),MPI02 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'PI - ',(MPIM (K),MPIM2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'PI + ',(MPIP (K),MPIP2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'K0L ',(MK0L (K),MK0L2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'K0S ',(MK0S (K),MK0S2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'K - ',(MKMI (K),MKMI2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'K + ',(MKPL (K),MKPL2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'STR. BARYONS',(MHYP (K),MHYP2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'DEUTERONS ',(MDEUT (K),MDEUT2(K),K=7,IOBSLV) + WRITE(MONIOU,778)'TRITONS ',(MTRIT (K),MTRIT2(K),K=7,IOBSLV) + WRITE(MONIOU,778)'ALPHAS ',(MALPHA(K),MALPH2(K),K=7,IOBSLV) + WRITE(MONIOU,778)'OTHER PART. ',(MOTHER(K),MOTH2 (K),K=7,IOBSLV) + WRITE(MONIOU,*) + + IF ( NOBSLV .GT. 9 ) THEN + IOBSLV = MIN( 10, NOBSLV ) + WRITE(MONIOU,854) (K,K=9,IOBSLV) + WRITE(MONIOU,855) (OBSLEV(K),K=9,IOBSLV) + WRITE(MONIOU,856) (THCKOB(K),K=9,IOBSLV) + WRITE(MONIOU,778)'PROTONS ',(MPROTO(K),MPROT2(K),K=9,IOBSLV) + WRITE(MONIOU,778)'ANTIPROTONS ',(MPROTB(K),MPRTB2(K),K=9,IOBSLV) + WRITE(MONIOU,778)'NEUTRONS ',(MNEUTR(K),MNETR2(K),K=9,IOBSLV) + WRITE(MONIOU,778)'ANTINEUTRONS',(MNEUTB(K),MNETB2(K),K=9,IOBSLV) + WRITE(MONIOU,777)'PHOTONS ',(MPHOTO(K),MPHOT2(K),K=9,IOBSLV) + WRITE(MONIOU,777)'ELECTRONS ',(MELECT(K),MELEC2(K),K=9,IOBSLV) + WRITE(MONIOU,777)'POSITRONS ',(MPOSIT(K),MPOSI2(K),K=9,IOBSLV) + WRITE(MONIOU,778)'MU - ',(MMUM (K),MMUM2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'MU + ',(MMUP (K),MMUP2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'PI 0 ',(MPI0 (K),MPI02 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'PI - ',(MPIM (K),MPIM2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'PI + ',(MPIP (K),MPIP2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'K0L ',(MK0L (K),MK0L2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'K0S ',(MK0S (K),MK0S2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'K - ',(MKMI (K),MKMI2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'K + ',(MKPL (K),MKPL2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'STR. BARYONS',(MHYP (K),MHYP2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'DEUTERONS ',(MDEUT (K),MDEUT2(K),K=9,IOBSLV) + WRITE(MONIOU,778)'TRITONS ',(MTRIT (K),MTRIT2(K),K=9,IOBSLV) + WRITE(MONIOU,778)'ALPHAS ',(MALPHA(K),MALPH2(K),K=9,IOBSLV) + WRITE(MONIOU,778)'OTHER PART. ',(MOTHER(K),MOTH2 (K),K=9,IOBSLV) + WRITE(MONIOU,*) + ENDIF + + ENDIF + ENDIF + +C PRINT OUT NKG RESULT FOR ALL SHOWERS IF SELECTED + IF ( FNKG ) CALL MITAGE + +C CALCULATE MEAN VALUES AND SIGMAS OF LONGITUDINAL DISTRIBUTION + IF ( LLONGI ) THEN + IF ( ISHW .GT. 1 ) THEN + DO J = 0,NSTEP + DO K = 1,9 + SDLONG(J,K) = SQRT( MAX( 0.D0, + * (SDLONG(J,K)-ADLONG(J,K)**2/ISHW)/(ISHW-1) ) ) + ADLONG(J,K) = ADLONG(J,K)/ISHW + ENDDO + DO K = 1,9 + SELONG(J,K) = SQRT( MAX( 0.D0, + * (SELONG(J,K)-AELONG(J,K)**2/ISHW)/(ISHW-1) ) ) + AELONG(J,K) = AELONG(J,K)/ISHW + SPLONG(J,K) = SQRT( MAX( 0.D0, + * (SPLONG(J,K)-APLONG(J,K)**2/ISHW)/(ISHW-1) ) ) + APLONG(J,K) = APLONG(J,K)/ISHW + ENDDO + ENDDO + ELSE + DO J = 0,NSTEP + DO K = 1,9 + SDLONG(J,K) = 0.D0 + ENDDO + DO K = 1,9 + SELONG(J,K) = 0.D0 + SPLONG(J,K) = 0.D0 + ENDDO + ENDDO + ENDIF + +C PRINT AVERAGE LONGITUDINAL PARTICLE DISTRIBUTIONS + WRITE(MONIOU,911) THSTEP, + * 'GAMMAS ','POSITRONS','ELECTRONS','MU+ ','MU- ', + * (J*THSTEP,(APLONG(J,K),SPLONG(J,K),K=1,5),J=LPCT0,NSTEP) + 911 FORMAT(/' AVERAGE LONGITUDINAL PARTICLE DISTRIBUTION IN ', + * 'STEPS OF ',F5.0,' G/CM**2 '/' ',132('=')/ + * ' DEPTH',6X,A9,16X,2(A10,17X),A9,16X,A9 // + * (' ',F5.0,1X,1P,E10.4,'+-',E10.4,0P,1X,F13.0,'+-',F12.0, + * 1X,F13.0,'+-',F12.0,1X,F10.0,'+-',F11.0, + * 1X,F10.0,'+-',F11.0 )) + WRITE(MONIOU,912) THSTEP, + * 'HADRONS','CHARGED','NUCLEI','CHERENKOV', + * (J*THSTEP,(APLONG(J,K),SPLONG(J,K),K=6,9),J=LPCT0,NSTEP) + 912 FORMAT(/' AVERAGE LONGITUDINAL PARTICLE DISTRIBUTION IN ', + * 'STEPS OF ',F5.0,' G/CM**2 '/' ',118('=')/ + * ' DEPTH',8X,A9,17X,A10,17X,A9,21X,A9 // + * (' ',F5.0,1X,F11.1,'+-',F11.1,1X,F13.0,'+-',F13.0, + * 2X,F10.1,'+-',F10.1,1X,1P,E16.6,'+-',E16.6,0P)) +C PRINT AVERAGE LONGITUDINAL ENERGY DISTRIBUTIONS + WRITE(MONIOU,915) THSTEP, + * 'GAMMAS ','POSITRONS','ELECTRONS','MU+ ','MU- ', + * (J*THSTEP,(AELONG(J,K),SELONG(J,K),K=1,5),J=LPCT0,NSTEP) + 915 FORMAT(/' AVERAGE LONGITUDINAL ENERGY DISTRIBUTION [GEV] ', + * 'IN STEPS OF ',F5.0,' G/CM**2 '/' ',131('=')/ + * ' DEPTH',6X,A9,4(16X,A9),// + * (' ',F5.0,1X,1P,5(1X,E11.5,'+-',E11.5),0P)) + WRITE(MONIOU,916) THSTEP, + * 'HADRONS','CHARGED','NUCLEI','ENERGYSUM', + * (J*THSTEP,(AELONG(J,K),SELONG(J,K),K=6,9),J=LPCT0,NSTEP) + 916 FORMAT(/' AVERAGE LONGITUDINAL ENERGY DISTRIBUTION [GEV] ', + * 'IN STEPS OF ',F5.0,' G/CM**2 '/' ',110('=')/ + * ' DEPTH',7X,3(A8,17X),2X,A10, // (' ',F5.0,1X,1P, + * 3(1X,E11.5,'+-',E11.5),1X,E13.7,'+-',E13.7,0P)) +C PRINT AVERAGE LONGITUDINAL ENERGY DEPOSIT + ADLONGSUM = 0.D0 + DO K = 1,9 + DO J = 0,NSTEP + ADLONG(1170,K) = ADLONG(1170,K) + ADLONG(J,K) + ENDDO + IF ( K .NE. 9 ) ADLONGSUM = ADLONGSUM + ADLONG(1170,K) + ENDDO + WRITE(MONIOU,913) THSTEP, + * 'GAMMA ', 'EM IONIZ','EM CUT','MU IONIZ','MU CUT', + * ((2*J-1)*.5*THSTEP,(ADLONG(J,K),SDLONG(J,K),K=1,5), + * J=LPCT0+1,NSTEP) + 913 FORMAT(/' AVERAGE LONGITUDINAL ENERGY DEPOSIT [GEV] IN ', + * 'STEPS OF ', F5.0,' G/CM**2 '/' ',132('=')/ + * ' DEPTH',6X,A11,14X,2(A10,17X),A9,16X,A9 // + * (' ',F6.1, F10.0,'+-',F10.0,1X,F13.0,'+-',F12.0, + * 1X,F13.0,'+-',F12.0,1X,F10.0,'+-',F11.0, + * 1X,F10.0,'+-',F11.0 )) + WRITE(MONIOU,917) (ADLONG(1170,K),K=1,5) + 917 FORMAT(' ',20X,'AVERAGE LONGITUDINAL ENERGY SUM [GEV] '/ + * ' ',4X,F13.1,13X,F13.1,14X,F14.1,12X,F13.1,11X,F13.1) + WRITE(MONIOU,914) THSTEP, + * 'HADR IONIZ','HADR CUT','NEUTRINO',' SUM', + * ((2*J-1)*.5*THSTEP,(ADLONG(J,K),SDLONG(J,K),K=6,9), + * J=LPCT0+1,NSTEP) + 914 FORMAT(/' AVERAGE LONGITUDINAL ENERGY DEPOSIT [GEV] IN ', + * 'STEPS OF ',F5.0,' G/CM**2 '/' ',112('=')/ + * ' DEPTH',7X,A10,16X,A10,16X,A10,15X,A9 // + * (' ',F6.1, F11.1,'+-',F11.1,1X,F13.0,'+-',F13.0, + * 2X,F10.1,'+-',F10.1,1X,F13.1,'+-',F13.1)) + WRITE(MONIOU,918) (ADLONG(1170,K),K=6,8) + 918 FORMAT(' ',20X,'AVERAGE LONGITUDINAL ENERGY SUM [GEV] ', + * /,' ',4X,F13.1,14X,F14.1,14X,F12.1) + WRITE(MONIOU,919) ADLONGSUM + 919 FORMAT(' ',20X,' ENERGY SUM = ',1P,E15.7,0P,' GEV') + + IF ( FLGFIT ) THEN +C PERFORM FIT TO THE LONGITUDINAL DISTRIBUTION OF ALL CHARGED PARTICLES +C IF EGS IS SELECTED THIS IS THE DISTRIBUTION WHICH IS TO BE TAKEN + IF ( FEGS ) THEN + DO 730 J = 0,NSTEP-LPCT0 + DEP(J+1) = (J+LPCT0)*THSTEP + CHAPAR(J+1) = MAX( APLONG(J+LPCT0,7), 0.D0 ) + 730 CONTINUE + NSTP = NSTEP + 1 - LPCT0 + WRITE(MONIOU,8229) 'AVERAGE ALL CHARGED PARTICLES' +C IF NKG IS SELECTED ONLY THE ELECTRON DISTRIBUTION IS AVAILABLE + ELSEIF ( FNKG ) THEN + DEP(1) = 0.D0 + CHAPAR(1) = 0.D0 + DO 731 J = 1,IALT(1) + DEP(J+1) = TLEV(J) + CHAPAR(J+1) = MAX( SEL(J)/ISHW, 0.D0 ) + 731 CONTINUE + NSTP = IALT(1) + 1 + WRITE(MONIOU,8229) 'AVERAGE NKG ELECTRONS' +C IF NONE IS SELECTED IT DOES NOT REALLY MAKE SENSE TO FIT +C BUT LET'S TAKE THEN ALL CHARGED WHICH ARE MUONS AND HADRONS + ELSE + DO 732 J = 0,NSTEP-LPCT0 + DEP(J+1) = (J+LPCT0)*THSTEP + CHAPAR(J+1) = MAX( APLONG(J+LPCT0,7), 0.D0 ) + 732 CONTINUE + NSTP = NSTEP + 1 - LPCT0 + WRITE(MONIOU,8229) 'AVERAGE MUONS AND CHARGED HADRONS' + ENDIF + IF ( NSTP .GT. 6 ) THEN +C THERE ARE MORE THAN 6 STEP VALUES, A FIT SHOULD BE POSSIBLE. +C DO THE FIT: NPAR AND FPARAM GIVE THE NUMBER OF PARAMETERS USED +C AND THE FINAL VALUES FOR THE PARAMETERS. CHISQ GIVES THE CHI**2/DOF +C FOR THE FIT. + CALL LONGFT(FPARAM,CHI2) + IF ( FPARAM(1) .GT. 0.D0 ) THEN + WRITE(MONIOU,8230) FPARAM,CHI2, + * CHI2/SQRT(FPARAM(1))*100.D0 + ELSE + WRITE(MONIOU,8231) FPARAM,CHI2 + ENDIF + ELSE + WRITE(MONIOU,*) 'NO LONGI. FIT POSSIBLE, ', + * ' NSTP = ',NSTP,' TOO SMALL.' + ENDIF + ENDIF + ENDIF + + ENDIF +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + +C CONTROL PRINT OUTPUT OF CONSTANTS + IF ( DEBUG ) THEN + CALL STAEND + WRITE(MDEBUG,*) 'AAMAIN: STAEND CALLED' + ENDIF +c------changed ---add +CBC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +C +C Modified by C. Bigongiari 2001 Jan 16 +C +Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +C call jcenddata(runh,rune) +Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +C +C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +c------changed---add + + WRITE(MONIOU,*) ' ' + CALL PRTIME(TTIME) + WRITE(MONIOU,101) + 101 FORMAT (/' ',10('='),' END OF RUN ',48('=')) + +C CLOSE ALL OPEN UNITS + IF ( MONIOU .NE. 6 ) CLOSE(MONIOU) + IF ( MDEBUG .NE. 6 ) CLOSE(MDEBUG) + CLOSE(MEXST) + IF ( FPAROUT ) CLOSE(MPATAP) + IF ( FTABOUT ) CLOSE(MTABOUT) + IF ( FLONGOUT .AND. LLONGI ) CLOSE(MLONGOUT) + IF ( LCERFI ) CLOSE(MCETAP) + + STOP + END +*CMZ : 06/11/2000 10.53.24 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE ADDANG( COST0,PHI0, COST,PHI, COST1,PHI1 ) + +C----------------------------------------------------------------------- +C ADD(ITION OF) ANG(LES) +C +C ADDITION OF ANGLES IS DONE BY SEQUENTIAL ROTATIONS : +C 1. ROTATE VECTOR AROUND Z AXIS BY -PHI0 +C 2. ROTATE VECTOR AROUND Y AXIS BY -THETA0 NOW VECTOR IS (0,0,1) +C +C 3. ROTATE VECTOR AROUND Y AXIS BY THETA ANGLES TO BE ADDED +C 4. ROTATE VECTOR AROUND Z AXIS BY PHI +C +C 5. ROTATE VECTOR AROUND Y AXIS BY THETA0 +C 6. ROTATE VECTOR AROUND Z AXIS BY -PHI0 +C NOW VECTOR IS (X,Y,Z) WITH COST1 = Z +C AND TAN(PHI1) = Y/X +C THIS SUBROUTINE IS CALLED FROM MANY ROUTINES. +C ARGUMENTS: +C COST0 = COSINE THETA OF PARTICLE BEFORE +C PHI0 = PHI OF PARTICLE BEFORE +C COST = COSINE THETA OF ANGLE TO ADD +C PHI = PHI OF ANGLE TO ADD +C COST1 = COSINE THETA OF PARTICLE AFTER ADDITION OF ANGLES +C PHI1 = PHI THETA OF PARTICLE AFTER ADDITION OF ANGLES +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION A,COST,COST0,COST1,CPHI,CPHI0,PHI,PHI0,PHI1, + * SINT,SINT0,SPHI,SPHI0,XXX,YYY,ZZZ + SAVE +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'ADDANG:' + + SINT0 = SQRT(1.D0-COST0**2) + SINT = SQRT(1.D0-COST **2) + SPHI0 = SIN(PHI0) + CPHI0 = COS(PHI0) + SPHI = SIN(PHI) + CPHI = COS(PHI) + + A = COST0 * CPHI * SINT + COST * SINT0 + XXX = A * CPHI0 - SPHI0 * SINT * SPHI + YYY = A * SPHI0 + CPHI0 * SINT * SPHI + ZZZ = COST * COST0 - SINT0 * SINT * CPHI + +C GET NEW COSINE(THETA) AND PHI + COST1 = MIN(ZZZ, 1.D0) + IF ( YYY .EQ. 0.D0 .AND. XXX .EQ. 0.D0 ) THEN + PHI1 = 0.D0 + ELSE + PHI1 = ATAN2( YYY, XXX ) + ENDIF + + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE ADDANI( COST0,PHI0, COST1,PHI1, DCTH,DPHI ) + +C----------------------------------------------------------------------- +C ADD(ITION OF) AN(GLES) I(NVERTED) +C +C GIVEN TWO DIRECTIONS (0 AND 1) IN A COMMON SYSTEM OF REFERENCE. +C FIND DCTH AND DPHI SUCH, THAT THE SUBROUT. ADDANG TRANSFORMS +C (COST0,PHI0) BY ADDING (DCTH,DPHI) INTO (COST1,PHI1). +C CALCULATION IS DONE BY SEQUENTIAL ROTATIONS : +C 1. ROTATE VECTOR AROUND Z AXIS BY -PHI1 +C 2. ROTATE VECTOR AROUND Y AXIS BY -THETA1 +C NOW VECTOR IS (X,Y,Z) WITH DCTH = Z +C AND TAN(DPHI) = Y/X +C THIS SUBROUTINE IS CALLED FROM MUDECY. +C ARGUMENTS: +C COST0 = COSINE THETA OF PARTICLE BEFORE +C PHI0 = PHI OF PARTICLE BEFORE +C COST1 = COSINE THETA OF PARTICLE +C PHI1 = PHI OF PARTICLE +C DCTH = COSINE THETA OF ANGLE +C DPHI = PHI OF ANGLE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION COST0,COST1,CP,CP1,CT,CT1,DCTH,DPHI,PHI0,PHI1, + * SP,SP1,ST,ST1,X,XX,Y,YY,Z,ZZ + SAVE +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'ADDANI:' + + CT = COST0 + ST = SQRT(1.D0-CT**2) + CP = COS(PHI0) + SP = SIN(PHI0) + CT1 = COST1 + ST1 = SQRT(1.D0-CT1**2) + CP1 = COS(PHI1) + SP1 = SIN(PHI1) + + X = ST1 * CP1 + Y = ST1 * SP1 + Z = CT1 + + XX = CT*CP*X + CT*SP*Y - ST*Z + YY = (-SP) *X + CP *Y + ZZ = ST*CP*X + ST*SP*Y + CT*Z + +C GET NEW COSINE(THETA) AND PHI + DCTH = ZZ + IF ( YY .NE. 0.D0 .OR. XX .NE. 0.D0 ) THEN + DPHI = ATAN2( YY, XX ) + ELSE + DPHI = 0.D0 + ENDIF + + RETURN + END +*CMZ : 28/02/2002 13.08.19 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 16/05/95 +C======================================================================= + + SUBROUTINE AMOEBA(P,Y,MP,NP,NDIM,FTOL,FUNK,ITER,IFLAG) + +C----------------------------------------------------------------------- +C +C FITTING ROUTINE +C REFERENCE : NUMERICAL RECIPES, W.H. PRESS ET AL., +C CAMBRIDGE UNIVERSITY PRESS, 1992 ISBN 0 521 43064 X +C ADAPTED FOR DOUBLE PRECISION +C THIS SUBROUTINE IS CALLED FROM LONGFT. +C ARGUMENTS: +C P = ARRAY (NPAR+1,NPAR) WITH PARAMETERS FOR FIT +C Y = ARRAY WITH ERRORS +C MP = NUMBER NPAR+1 +C NDIM = NUMBER NPAR OF FREE VARIABLES +C FTOL = TOLERANCE OF FIT +C FUNK = EXTERNAL FUNKTION (GIVING DERIVATIVES) +C ITER = ITERATION COUNTER +C IFLAG = ERROR FLAG +C +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER ITMAX,NMAX +C MAXIMUM NUMBER OF TRIAL PER CALL + PARAMETER (ITMAX=5000) + PARAMETER (NMAX=20) + INTEGER MP,NP + DOUBLE PRECISION FTOL,P(MP,NP),PSUM(NMAX), + * RTOL,SUM,SWAP,Y(MP),YSAVE,YTRY + INTEGER I,IFLAG,IHI,ILO,INHI,ITER,J,M,N,NDIM + DOUBLE PRECISION AMOTRY,FUNK + SAVE + EXTERNAL AMOTRY,FUNK +C USES AMOTRY,FUNK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'AMOEBA:' + + IFLAG = 0 + ITER = 0 + 1 DO 12 N = 1,NDIM + SUM = 0.D0 + DO 11 M = 1,NDIM+1 + SUM = SUM + P(M,N) + 11 CONTINUE + PSUM(N) = SUM + 12 CONTINUE + 2 ILO = 1 + IF ( Y(1) .GT. Y(2) ) THEN + IHI = 1 + INHI = 2 + ELSE + IHI = 2 + INHI = 1 + ENDIF + DO 13 I = 1,NDIM+1 + IF ( Y(I) .LE. Y(ILO) ) ILO = I + IF ( Y(I) .GT. Y(IHI) ) THEN + INHI = IHI + IHI = I + ELSEIF ( Y(I) .GT. Y(INHI) ) THEN + IF ( I .NE. IHI ) INHI = I + ENDIF + 13 CONTINUE + RTOL = 2.D0*ABS(Y(IHI)-Y(ILO))/(ABS(Y(IHI))+ABS(Y(ILO))) + IF ( RTOL .LT. FTOL ) THEN + SWAP = Y(1) + Y(1) = Y(ILO) + Y(ILO) = SWAP + DO 14 N = 1,NDIM + SWAP = P(1,N) + P(1,N) = P(ILO,N) + P(ILO,N) = SWAP + 14 CONTINUE + RETURN + ENDIF + IF ( ITER .GE.ITMAX ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'AMOEBA: ITMAX EXCEEDED IN AMOEBA' + IFLAG = 1 + RETURN + ENDIF + ITER = ITER + 2 + YTRY = AMOTRY(P,Y,PSUM,MP,NP,NDIM,FUNK,IHI,-1.0D0) + IF ( YTRY .LE. Y(ILO) ) THEN + YTRY = AMOTRY(P,Y,PSUM,MP,NP,NDIM,FUNK,IHI,2.0D0) + ELSEIF ( YTRY .GE. Y(INHI) ) THEN + YSAVE = Y(IHI) + YTRY = AMOTRY(P,Y,PSUM,MP,NP,NDIM,FUNK,IHI,0.5D0) + IF ( YTRY .GE. YSAVE ) THEN + DO 16 I = 1,NDIM+1 + IF ( I .NE. ILO ) THEN + DO 15 J = 1,NDIM + PSUM(J) = 0.5D0 * (P(I,J) + P(ILO,J)) + P(I,J) = PSUM(J) + 15 CONTINUE + Y(I) = FUNK(PSUM) + ENDIF + 16 CONTINUE + ITER = ITER + NDIM + GOTO 1 + ENDIF + ELSE + ITER = ITER - 1 + ENDIF + GOTO 2 + END +C======================================================================= + + DOUBLE PRECISION FUNCTION AMOTRY(P,Y,PSUM,MP,NP,NDIM,FUNK,IHI,FAC) + +C----------------------------------------------------------------------- +C +C REFERENCE : NUMERICAL RECIPES, W.H. PRESS ET AL., +C CAMBRIDGE UNIVERSITY PRESS, 1992 ISBN 0 521 43064 X +C ADAPTED FOR DOUBLE PRECISION +C USES EXTERNAL FUNCTION FUNK +C THIS FUNCTION IS CALLED FROM AMOEBA. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER MP,NP,NMAX + PARAMETER (NMAX=20) + DOUBLE PRECISION FAC,P(MP,NP),PSUM(NP),Y(MP),FUNK + DOUBLE PRECISION FAC1,FAC2,YTRY,PTRY(NMAX) + INTEGER IHI,NDIM,J + SAVE + EXTERNAL FUNK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'AMOTRY:' + + FAC1 = (1.D0-FAC)/NDIM + FAC2 = FAC1-FAC + DO 11 J = 1,NDIM + PTRY(J) = PSUM(J) * FAC1 - P(IHI,J) * FAC2 + 11 CONTINUE + YTRY = FUNK(PTRY) + IF ( YTRY .LT. Y(IHI) ) THEN + Y(IHI) = YTRY + DO 12 J = 1,NDIM + PSUM(J) = PSUM(J) - P(IHI,J) + PTRY(J) + P(IHI,J) = PTRY(J) + 12 CONTINUE + ENDIF + AMOTRY = YTRY + RETURN + END +*CMZ : 05/03/2002 08.29.24 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + BLOCK DATA BLOCK1 + +C----------------------------------------------------------------------- +C +C INITIALIZES DATA +C THIS ROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,EDECAY. + COMMON /EDECAY/ CETA + DOUBLE PRECISION CETA(5) +*KEEP,GNUPR. + COMMON /GNUPR/ SE14,SE16,SE40 + DOUBLE PRECISION SE14(3,14),SE16(3,16),SE40(3,40) +*KEEP,KAONS. + COMMON /KAONS/ CKA + DOUBLE PRECISION CKA(80) +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,NKGI. + COMMON /NKGI/ SEL,SELLG,STH,ZEL,ZELLG,ZSL,DIST, + * DISX,DISY,DISXY,DISYX,DLAX,DLAY,DLAXY,DLAYX, + * OBSATI,RADNKG,RMOL,TLEV,TLEVCM,IALT + DOUBLE PRECISION SEL(10),SELLG(10),STH(10),ZEL(10),ZELLG(10), + * ZSL(10),DIST(10), + * DISX(-10:10),DISY(-10:10), + * DISXY(-10:10,2),DISYX(-10:10,2), + * DLAX (-10:10,2),DLAY (-10:10,2), + * DLAXY(-10:10,2),DLAYX(-10:10,2), + * OBSATI(2),RADNKG,RMOL(2),TLEV(10),TLEVCM(10) + INTEGER IALT(2) +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKF. + COMMON /STACKF/ STACK,MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT, + * NTO,NFROM + INTEGER MAXSTK + PARAMETER (MAXSTK = 16*256*2) + DOUBLE PRECISION STACK(MAXSTK) + INTEGER MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM +*KEEP,STRBAR. + COMMON /STRBAR/ CSTRBA + DOUBLE PRECISION CSTRBA(11) +*KEEP,VERS. + COMMON /VERS/ VERNUM,MVDATE,VERDAT + DOUBLE PRECISION VERNUM + INTEGER MVDATE + CHARACTER*18 VERDAT +*KEEP,CEREN3. + COMMON /CEREN3/ CERCNT,DATAB2,NRECER,LHCER + INTEGER MAXBF2 + PARAMETER ( MAXBF2 = 39 * 7 ) + DOUBLE PRECISION CERCNT + REAL DATAB2(MAXBF2) + INTEGER NRECER,LHCER +*KEND. + +C----------------------------------------------------------------------- +C AIR + DATA COMPOS / 0.78479D0, 0.21052D0, 0.00469D0 / + DATA PROBTA / 0.78479D0, 0.99531D0, 1.00000D0 / + DATA AVERAW / 14.543D0 / +C VALUE OF AVOGADRO REVISED SEPT. 2000 BY D.H. + DATA AVOGAD / 6.02214199D-4 / + +C ATMOS (U.S.STANDARD IS DEFAULT) + DATA AATM / -186.5562D0, -94.919D0, 0.61289D0,0.D0,.01128292D0 / + DATA BATM / 1222.6562D0,1144.9069D0,1305.5948D0,540.1778D0,1.D0 / + DATA CATM / 994186.38D0,878153.55D0,636143.04D0,772170.16D0,1.D9/ + + DATA ((AATM0(I,J),I=1,5),J=0,16) + * /-186.5562D0, -94.919D0 ,.61289D0 , 0.D0 , .01128292D0 , + * -186.5562D0, -94.919D0 ,.61289D0 , 0.D0 , .01128292D0 , + * -118.1277D0,-154.258D0 ,.4191499D0, 5.4094056D-4, .01128292D0 , + * -195.837264D0,-50.4128778D0,.345594007D0,5.46207D-4,.01128292D0, + * -253.95047D0,-128.97714D0,.353207D0 , 5.526876D-4 , .01128292D0 , + * -208.12899D0,-120.26179D0,.31167036D0,5.591489D-4 , .01128292D0 , + * -77.875723D0,-214.96818D0,.3721868D0, 5.5309816D-4, .01128292D0 , + * -242.56651D0,-103.21398D0,.3349752D0, 5.527485D-4 , .01128292D0 , + * -195.34842D0,-71.997323D0,.3378142D0, 5.48224D-4 , .01128292D0 , + * 0.D0 , 0.D0 , 0.D0, 0.D-4 , .01128292D0 , + * 0.D0 , 0.D0 , 0.D0, 0.D-4 , .01128292D0 , + * -137.656D0, -37.9610D0, .222659D0,-6.16201D-4 , .00207722D0 , + * -163.331D0, -65.3713D0, .402903D0,-4.79198D-4 , .00188667D0 , + * -142.801D0, -70.1538D0, 1.14855D0,-9.10269D-4 , .00152236D0 , + * -128.601D0, -39.5548D0, 1.13088D0,-26.4960D-4 , .00192534D0 , + * -113.139D0, -79.0635D0,-54.3888D0, 0.00000D0 , .4210330D-2 , + * - 59.0293D0, -21.5794D0,-7.14839D0, 0.00000D0 , .1901750D-3 / + DATA ((BATM0(I,J),I=1,5),J=0,16) + * / 1222.6562D0, 1144.9069D0, 1305.5948D0, 540.1778D0, 1.D0 , + * 1222.6562D0, 1144.9069D0, 1305.5948D0, 540.1778D0, 1.D0 , + * 1173.9861D0, 1205.7625D0, 1386.7807D0, 555.8935D0, 1.D0 , + * 1240.48D0 , 1117.85D0 , 1210.9D0 , 608.2128D0, 1.D0 , + * 1285.2782D0, 1173.1616D0, 1320.4561D0, 680.6803D0, 1.D0 , + * 1251.474D0 , 1173.321D0 , 1307.826D0 , 763.1139D0, 1.D0 , + * 1103.3362D0, 1226.5761D0, 1382.6933D0, 685.6073D0, 1.D0 , + * 1262.7013D0, 1139.0249D0, 1270.2886D0, 681.4061D0, 1.D0 , + * 1210.4D0 , 1103.8629D0, 1215.3545D0, 629.7611D0, 1.D0 , + * 0.D0 , 0.D0 , 0.D0 , 0.D0 , 1.D0 , + * 0.D0 , 0.D0 , 0.D0 , 0.D0 , 1.D0 , + * 1130.74D0, 1052.05D0, 1137.21D0, 442.512D0, 1.D0 , + * 1183.70D0, 1108.06D0, 1424.02D0, 207.595D0, 1.D0 , + * 1177.19D0, 1125.11D0, 1304.77D0, 433.823D0, 1.D0 , + * 1139.99D0, 1073.82D0, 1052.96D0, 492.503D0, 1.D0 , + * 1133.10D0, 1101.20D0, 1085.00D0, 1098.00D0, 1.D0 , + * 1079.00D0, 1071.90D0, 1182.00D0, 1647.10D0, 1.D0 / + DATA ((CATM0(I,J),I=1,5),J=0,16) + * / 994186.38D0, 878153.55D0, 636143.04D0, 772170.16D0, 1.D9 , + * 994186.38D0, 878153.55D0, 636143.04D0, 772170.16D0, 1.D9 , + * 919546.D0 , 963267.92D0, 614315.D0 , 739059.6D0 , 1.D9 , + * 933697.D0 , 765229.D0 , 636790.D0 , 733793.8D0 , 1.D9 , + * 1088310.D0 , 935485.D0 , 635137.D0 , 727312.6D0 , 1.D9 , + * 1032310.D0 , 925528.D0 , 645330.D0 , 720851.4D0 , 1.D9 , + * 932077.D0 ,1109960.D0 , 630217.D0 , 726901.3D0 , 1.D9 , + * 1059360.D0 , 888814.D0 , 639902.D0 , 727251.8D0 , 1.D9 , + * 970276.D0 , 820946.D0 , 639074.D0 , 731776.5D0 , 1.D9 , + * 0.D0 , 0.D0 , 0.D0 , 0.D0 , 1.D9 , + * 0.D0 , 0.D0 , 0.D0 , 0.D0 , 1.D9 , + * 867358.D0 , 741208.D0 , 633846.D0 , 759850.D0,5.4303203D9, + * 875221.D0 , 753213.D0 , 545846.D0 , 793043.D0,5.9787908D9, + * 861745.D0 , 765925.D0 , 581351.D0 , 775155.D0,7.4095699D9, + * 861913.D0 , 744955.D0 , 675928.D0 , 829627.D0,5.8587010D9, + * 861730.D0 , 826340.D0 , 790950.D0 , 682800.D0,2.6798156D9, + * 764170.D0 , 699910.D0 , 635650.D0 , 551010.D0,59.329575D9/ + DATA (LAYNO(J), J=0,16) + * / 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 2, 3 / + DATA (HLAY(I),I=1,5) + * / -5779.5D2 , 4.D5 , 1.D6 , 4.D6, 1.D7 / + DATA ((HLAY0(I,J),I=1,5),J=0,3) + * / -5779.5D2 , 4.D5 , 1.D6 , 4.D6, 1.D7 , + * -5779.5D2 , 4.D5 , 1.D6 , 4.D6, 1.D7 , + * 0.D0 , 2.66667D5 , 5.33333D5 , 8.D5, 1.D7 , + * 0.D0 , 6.66667D5 ,13.33333D0 , 20.D5, 1.D7 / +C CEREN3 + DATA CERCNT / 0.D0 / +C CONSTA + DATA PI / 3.141592653589793D0 / + DATA PI2 / 6.283185307179586D0 / + DATA OB3 / 0.333333333333333D0 / + DATA TB3 / 0.666666666666666D0 / +C ENEPER IS CALCULATED IN START: ENEPER = EXP(1.D0) +C DATA FOR MUPART: CUTOFF FOR BREMSSTRAHLUNG AT 3 MEV + DATA BCUT /0.003D0/ +C DATA FOR REST: AVERAGE ATOMIC WEIGHT, NEUTRON CONTENTS OF N,O,AR + DATA TAR / 14.6D0 /, CONTNE / 0.5D0, 0.5D0, 0.55D0 /, LT / 1 / +C KAON CONSTANTS +C REVISED SEPT. 2000 BY D. HECK + DATA CKA / 0.0D0, 0.1D0, 1.2386D-8, 1.2386D-8, 0.8935D-10, + * 5.17D-8, 0.25D0, 0.5D0, 0.75D0, 1.0D0, + * 0.5D0, 0.2D0, 0.0D0, 0.0D0, 149.6D0, + * 149.6D0,0.236D0, 0.206D0, 0.135D0, 0.222D0, + * 0.5D0, 0.0D0, 0.635D0, 0.686D0, 0.8734D0, + * 0.6598D0,.3884D0, 0.0D0, 0.0D0, 0.0D0, + * 0.0D0, 0.0D0, 0.0D0, 0.0D0, 1.0D0, + * 1.0D5, 0.0D0, 0.0D0, 0.0D0, 0.0D0, + * 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, + * 0.0D0,0.8468D0, 0.9027D0, 0.9509D0, 0.9827D0, + * -0.2154D0, 0.012D0,-0.0101D0, 1.27D0, 0.652D0, + * 0.057D0, 0.0D0, 1.84D0, 0.0D0, 1.0D0, + * 0.678D0, 0.076D0, 0.0099D0, 2.22D0, 0.0288D0, + * 0.0D0,1.288D-2, 0.031D0, 0.006D0, 1.194D-2, + * 0.0288D0, 0.0D0, 1.310D-2, 0.034D0, 0.025D0, + * 1.241D-2, 0.0D0, 0.0D0, 0.0D0, 0.0D0 / +C DATA FOR ETA DECAY + DATA CETA / 0.3960D0, 0.7206D0, 0.9522D0, -1.07D0, 2.07D0 / +C DATA FOR STRANGE BARYON DECAY + DATA CSTRBA / 2.632D-10,0.8018D-10, 7.4D-20, 1.479D-10,0.6409D0, + * 0.5163D0, 2.90D-10, 1.639D-10, 0.821D-10, 0.678D0, + * 0.914D0 / +C PARPAR + DATA C /6371315.D2, 6.0D5, 20.0D5, 0.0D0, 0.0D0, + * 0.0D0, 0.0D0, 0.0D0, 2.5D0, 2.07D0, + * 8.2D0, 0.1D0, 0.0D0, 0.0D0, 0.0D0, + * 88.0D0, 110.D0, 2.6033D-8, 2.19703D-6, 0.0D0, + * 37.7D0, 1.532873D-4, 9.386417D0, 2.D-3, 29.9792458D9, + * 1.0D0, 0.0D0, 1.57D0, 0.0D0, 0.021D0, + * 88.0D0, 110.0D0, 0.0D0, 2.0D1, 0.0D0, + * 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, + * 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, + * 0.0D0, 0.0D0, 0.0D0, 0.0D0,137.0359998D0 / +C RUNPAR,STACKF + DATA MONIIN / 5 /, MONIOU / 6 /, MPATAP / 90 /, MEXST / 96 /, + * MDEBUG / 6 /, NUCNUC / 11 /, MDBASE / 45 /, MTABOUT / 46 /, + * MLONGOUT / 48 / + * ,MCETAP / 91 / +C UNRELEASABLE ENERGY (REST MASS) FOR THINNING + DATA RESTMS/ 0., -.511D-3, .511D-3, 0., .105658 , + * .105658 , 0., 0., 0., 0., + * 0., 0., .939566 , .93827 , 0. , + * 0., 0., .939 , .939 , .939 , + * .939 , .939 , .939 , .939 , 0. , + * 0. , 0. , 0. , 0. , 0. , + * 0. , 0. , 0., 0., 0., + * 0., 0., 0., 0., 0., + * 0., 0., 0., 0., 0., + * 0., 0., 0., 0., 0., + * 0., 0., 0., .939 , .939 , + * .939 , .939 , 0. , 0. , 0. , + * 0. , 0., 0., 0., 0., + * 0., 0., 0., 0., 0., + * 0., 0., 0., 0., 0., + * 5925*0.D0/ +C GNUPR (NEW VERSION OCT 1991) +C NITROGEN TARGET 14 + DATA ((SE14(I,J),I=1,3),J=1,14) + * / 0.472000D+00,-0.426710D-02, 0.726439D-04, + * 0.230324D+00,-0.989733D-03,-0.807077D-05, + * 0.138623D+00, 0.609624D-03,-0.401675D-04, + * 0.827139D-01, 0.135103D-02,-0.360236D-04, + * 0.445693D-01, 0.137582D-02,-0.137674D-04, + * 0.206106D-01, 0.998620D-03, 0.422867D-05, + * 0.792756D-02, 0.559858D-03, 0.957875D-05, + * 0.247793D-02, 0.247480D-03, 0.701650D-05, + * 0.615535D-03, 0.860096D-04, 0.324410D-05, + * 0.118279D-03, 0.230732D-04, 0.104282D-05, + * 0.169210D-04, 0.461424D-05, 0.235175D-06, + * 0.169481D-05, 0.647634D-06, 0.358189D-07, + * 0.105988D-06, 0.568994D-07, 0.332920D-08, + * 0.311374D-08, 0.235385D-08, 0.143213D-09/ +C OXYGEN TARGET 16 + DATA ((SE16(I,J), I=1,3),J=1,16) + * /0.475002D+00,-0.434401D-02, 0.734217D-04, + * 0.230261D+00,-0.966152D-03,-0.982228D-05, + * 0.137372D+00, 0.642454D-03,-0.408490D-04, + * 0.813380D-01, 0.135241D-02,-0.354835D-04, + * 0.437870D-01, 0.135776D-02,-0.134429D-04, + * 0.204919D-01, 0.988538D-03, 0.398723D-05, + * 0.812995D-02, 0.567070D-03, 0.942943D-05, + * 0.269031D-02, 0.263160D-03, 0.728079D-05, + * 0.732711D-03, 0.993722D-04, 0.366933D-05, + * 0.161940D-03, 0.303662D-04, 0.134776D-05, + * 0.285325D-04, 0.740356D-05, 0.371648D-06, + * 0.390910D-05, 0.140655D-05, 0.768260D-07, + * 0.401145D-06, 0.200620D-06, 0.116200D-07, + * 0.290010D-07, 0.202033D-07, 0.121929D-08, + * 0.131709D-08, 0.128046D-08, 0.795482D-10, + * 0.282645D-10, 0.384068D-10, 0.243535D-11/ +C ARGON TARGET 40 + DATA ((SE40(I,J),I=1,3),J=1,18) + * / 0.318084D+00,-0.352566D-02, 0.829469D-04, + * 0.193581D+00,-0.238538D-02, 0.404919D-04, + * 0.148699D+00,-0.118791D-02,-0.130378D-04, + * 0.117201D+00, 0.966097D-04,-0.536044D-04, + * 0.876737D-01, 0.106482D-02,-0.612882D-04, + * 0.600279D-01, 0.150343D-02,-0.412273D-04, + * 0.370180D-01, 0.147347D-02,-0.130096D-04, + * 0.204422D-01, 0.117625D-02, 0.743960D-05, + * 0.101003D-01, 0.807913D-03, 0.155153D-04, + * 0.447163D-02, 0.489622D-03, 0.146804D-04, + * 0.177806D-02, 0.265260D-03, 0.102802D-04, + * 0.636671D-03, 0.129412D-03, 0.591434D-05, + * 0.205809D-03, 0.571042D-04, 0.291674D-05, + * 0.601981D-04, 0.228546D-04, 0.126074D-05, + * 0.159631D-04, 0.831226D-05, 0.484001D-06, + * 0.384379D-05, 0.275100D-05, 0.166440D-06, + * 0.841490D-06, 0.829259D-06, 0.515615D-07, + * 0.167633D-06, 0.227810D-06, 0.144446D-07/ + DATA((SE40(I,J),I=1,3),J=19,36) + * /0.304029D-07, 0.570494D-07, 0.366843D-08, + * 0.502077D-08, 0.130224D-07, 0.845876D-09, + * 0.754786D-09, 0.270844D-08, 0.177211D-09, + * 0.103229D-09, 0.512862D-09, 0.337323D-10, + * 0.128308D-10, 0.883149D-10, 0.583066D-11, + * 0.144721D-11, 0.138082D-10, 0.914113D-12, + * 0.147837D-12, 0.195621D-11, 0.129757D-12, + * 0.136429D-13, 0.250465D-12, 0.166371D-13, + * 0.113379D-14, 0.288894D-13, 0.192092D-14, + * 0.845213D-16, 0.299003D-14, 0.198959D-15, + * 0.562496D-17, 0.276346D-15, 0.183981D-16, + * 0.332222D-18, 0.226723D-16, 0.151001D-17, + * 0.172872D-19, 0.163915D-17, 0.109200D-18, + * 0.785321D-21, 0.103480D-18, 0.689517D-20, + * 0.307886D-22, 0.563885D-20, 0.375787D-21, + * 0.102630D-23, 0.261299D-21, 0.174154D-22, + * 0.285163D-25, 0.100944D-22, 0.672832D-24, + * 0.642589D-27, 0.316302D-24, 0.210839D-25/ + DATA((SE40(I,J),I=1,3),J=37,40) + * /0.112817D-28, 0.772286D-26, 0.514807D-27, + * 0.144773D-30, 0.137838D-27, 0.918858D-29, + * 0.120779D-32, 0.159956D-29, 0.106632D-30, + * 0.491605D-35, 0.905709D-32, 0.603784D-33/ + +C VERSION NUMBER AND DATE OF RELEASE + DATA VERNUM / 6.014 / + DATA MVDATE / 20020305 / +C -YYYYMMDD- + DATA VERDAT / 'MARCH 05, 2002' / +C ----+----+----+--- + END +*CMZ : 28/02/2002 13.08.19 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE BOX2 + +C----------------------------------------------------------------------- +C +C DETERMINES POINT OF INTERACTION OR DECAY FOR ANY PARTICLE +C HEAVY PRIMARIES AND STRANGE BARYONS INCLUDED +C ANNIHILATION CROSS-SECTION INCLUDED +C PRECISE MEAN FREE PATH FOR DECAYING PARTICLES +C HAS INTERACTION LENGTH STATISTICS INCLUDED +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,CHISTA. + COMMON /CHISTA/ IHYCHI,IKACHI,IMUCHI,INNCHI,INUCHI,IPICHI + INTEGER IHYCHI(124),IKACHI(124),IMUCHI(124), + * INNCHI(124),INUCHI(124),IPICHI(124) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,KAONS. + COMMON /KAONS/ CKA + DOUBLE PRECISION CKA(80) +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,NCSNCS. + COMMON /NCSNCS/ SIGN30,SIGN45,SIGN60,SIGO30,SIGO45,SIGO60, + * SIGA30,SIGA45,SIGA60,PNOA30,PNOA45,PNOA60, + * SIG30A,SIG45A,SIG60A + DOUBLE PRECISION SIGN30(56),SIGN45(56),SIGN60(56), + * SIGO30(56),SIGO45(56),SIGO60(56), + * SIGA30(56),SIGA45(56),SIGA60(56), + * PNOA30(1540,3),PNOA45(1540,3),PNOA60(1540,3), + * SIG30A(56),SIG45A(56),SIG60A(56) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEEP,STRBAR. + COMMON /STRBAR/ CSTRBA + DOUBLE PRECISION CSTRBA(11) +*KEEP,VENUS. + COMMON /VENUS/ ISH00,IVERVN,MTAR99,FVENUS,FVENSG + INTEGER ISH00,IVERVN,MTAR99 + LOGICAL FVENUS,FVENSG +*KEND. + + DOUBLE PRECISION CHIBRM,CHIPRM,CHIINT,CHI1,CHI2,CKA2,COR1,DH, + * EKIN,ELAB,ELABLG,ELABT,FRAPTN,FRPTNO, + * HEIGH,PLAB,PLABLG,SIGBRM,SIGPRM, + * SIG45,S45SQ,S4530,THICK + REAL GBRSGM,GPRSGM + INTEGER I,IA,IHY,IP,KA,MU,NI,NU + DOUBLE PRECISION HNEW + SAVE + DOUBLE PRECISION CGHSIG + EXTERNAL CGHSIG + EXTERNAL HEIGH,THICK,GBRSGM,GPRSGM +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' BOX2 : CURPAR=',1P,9E10.3) + ITYPE = CURPAR(1) + +C PHOTONS AND ELECTRONS ETA ARE TREATED SEPARATELY (SEE BOX3) + IF ( ITYPE .LE. 3 ) THEN + CHI = 0.D0 + RETURN + ENDIF + +C----------------------------------------------------------------------- +C RESONANCES ARE TREATED SEPARATELY (SEE BOX3) + IF ( ITYPE .GE. 50 .AND. ITYPE .LE. 65 ) THEN + CHI = 0.D0 + RETURN + ENDIF + + BETA = SQRT( GAMMA**2 - 1.D0 ) / GAMMA + THICKH = THICK(H) + ELAB = PAMA(ITYPE) * GAMMA + +C----------------------------------------------------------------------- +C MU + , MU - DECAYS AFTER ITS LIFE TIME +C MUON INTERACTS BY BREMSSTRAHLUNG OR PAIR PRODUCTION + IF ( ITYPE .EQ. 5 .OR. ITYPE .EQ. 6 ) THEN + CALL RMMAR( RD,3,1 ) + COR1 = (-LOG(RD(1))) * C(25) * C(19) + CALL PRANGC(COR1,.TRUE.,HNEW) + DH = MAX( H - HNEW, 0.D0 ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(1),CHIDEC=', + * ITYPE,RD(1),SNGL(CHI) + IF ( GAMMA .LE. 200.D0 ) THEN + FDECAY = .TRUE. + + ELSE +C AT HIGHER ENERGIES CHECK FOR MUON BREMSSTRAHLUNG AND PAIR PRODUCTION + ELABLG = LOG(ELAB) +C CALCULATE MUON BREMSSTRAHLUNG CROSS-SECTION FOR AIR + IF ( ELAB .LE. 1.D5 ) THEN + FRACTN = COMPOS(1)*GBRSGM( 7.,SNGL(ELAB)) + FRCTNO = FRACTN + COMPOS(2)*GBRSGM( 8.,SNGL(ELAB)) + SIGBRM = FRCTNO + COMPOS(3)*GBRSGM(18.,SNGL(ELAB)) + ELSE +C PRELIMINARY PARAMETRIZED FOR ULTRAHIGH ENERGIES (JAN 2000) + SIGBRM = EXP( ELABLG*0.046816D0 - 7.80342D0 ) + FRACTN = SIGBRM * 0.78D0 + FRCTNO = SIGBRM * 0.99D0 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : SIGBRM=',SNGL(SIGBRM) +C CALCULATE + CHIBRM = (-LOG(RD(2))) * AVERAW / (AVOGAD * SIGBRM) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(2),CHIBRM=', + * ITYPE,RD(2),SNGL(CHIBRM) + CHI1 = MIN( CHIBRM, CHI ) + + IF ( ELAB .LE. 1.D5 ) THEN +C CALCULATE MUON PAIR PRODUCTION CROSS-SECTION FOR AIR + FRAPTN = COMPOS(1)*GPRSGM( 7.,SNGL(ELAB)) + FRPTNO = FRAPTN + COMPOS(2)*GPRSGM( 8.,SNGL(ELAB)) + SIGPRM = FRPTNO + COMPOS(3)*GPRSGM(18.,SNGL(ELAB)) + ELSE +C PRELIMINARY PARAMETRIZED FOR ULTRAHIGH ENERGIES (JAN 2000) + SIGPRM = EXP( ELABLG*0.136048D0 - 3.70468D0 ) + FRAPTN = SIGPRM * 0.78D0 + FRPTNO = SIGPRM * 0.99D0 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : SIGPRM=',SNGL(SIGPRM) +C CALCULATE MEAN FREE PATH FOR PAIR PRODUCTION + CHIPRM = (-LOG(RD(3))) * AVERAW / (AVOGAD * SIGPRM) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(3),CHIPRM=', + * ITYPE,RD(3),SNGL(CHIPRM) + CHI2 = MIN( CHIPRM, CHI1 ) + IF ( CHI2 .EQ. CHI ) THEN + FDECAY = .TRUE. + ELSEIF ( CHI2 .EQ. CHIBRM ) THEN + FDECAY = .FALSE. + FMUBRM = .TRUE. +C TARGET IS CHOSEN AT RANDOM FOR MUON BREMSSTRAHLUNG + CALL RMMAR( RD,1,1 ) + IF ( RD(1)*SIGBRM .LE. FRACTN ) THEN +C BREMSSTRAHLUNG WITH NITROGEN + LT = 1 + TAR = 14.D0 + ELSEIF ( RD(1)*SIGBRM .LE. FRCTNO ) THEN +C BREMSSTRAHLUNG WITH OXYGEN + LT = 2 + TAR = 16.D0 + ELSE +C BREMSSTRAHLUNG WITH ARGON + LT = 3 + TAR = 40.D0 + ENDIF + ELSEIF ( CHI2 .EQ. CHIPRM ) THEN + FDECAY = .FALSE. + FMUBRM = .FALSE. +C TARGET IS CHOSEN AT RANDOM FOR MUON PAIR PRODUCTION + CALL RMMAR( RD,1,1 ) + IF ( RD(1)*SIGPRM .LE. FRAPTN ) THEN +C PAIR PRODUCTION WITH NITROGEN + LT = 1 + TAR = 14.D0 + ELSEIF ( RD(1)*SIGPRM .LE. FRPTNO ) THEN +C PAIR PRODUCTION WITH OXYGEN + LT = 2 + TAR = 16.D0 + ELSE +C PAIR PRODUCTION WITH ARGON + LT = 3 + TAR = 40.D0 + ENDIF + ENDIF + CHI = CHI2 + ENDIF + +C DECAY LENGTH STATISTICS + MU = 1.D0 + DH * 1.D-4 / COSTHE + MU = MIN( MU, 123 ) + IMUCHI( MU) = IMUCHI( MU) + 1 + IMUCHI(124) = IMUCHI(124) + 1 + +C----------------------------------------------------------------------- +C CHARGED PIONS + ELSEIF ( ITYPE .EQ. 8 .OR. ITYPE .EQ. 9 ) THEN + PLAB = ELAB * BETA +C CALCULATION OF CROSS-SECTION IN THE GHEISHA ROUTINES + IF ( ELAB .LE. HILOELB ) THEN + EKIN = ELAB - PAMA(ITYPE) + USELOW = .TRUE. + SIGAIR = CGHSIG(SNGL(PLAB),SNGL(EKIN),ITYPE) + GHESIG = .TRUE. + ELSE + USELOW = .FALSE. + GHESIG = .FALSE. + IF ( FVENSG .AND. (ELAB .GE. HILOELB) ) THEN + CALL VENSIG(ELAB,2) + ELSE +C SIGMA IS ENERGY DEPENDENT INELASTIC PION-NUCLEON CROSS-SECTION + IF ( PLAB .LE. 5.D0 ) THEN + SIGMA = 20.64D0 + ELSEIF ( PLAB .LT. 1.D3 ) THEN + PLABLG = LOG(PLAB) +C INELASTIC CROSS-SECTIONS FROM PARTICLE DATA GROUP +C (A.BALDINI ET AL., LANDOLT-BOERNSTEIN NEW SERIES I/12A (1987) 193) + SIGMA = 24.3D0 - 12.3D0 * PLAB**(-1.91D0) + * + 0.324D0 * PLABLG**2 - 2.44D0 * PLABLG + ELSE +C FACTOR 0.6667 GIVES RATIO BETWEEN PION AND NUCLEON CROSS-SECTION + SIGMA = 19.87D0 * ELAB**.079D0 * 0.6667D0 + ENDIF +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER 1 + SIGAIR = (1.D0 - 2.D0 * S45SQ) * SIG45A(1) + * +(S45SQ - S4530) * SIG30A(1) + * +(S45SQ + S4530) * SIG60A(1) + ENDIF + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : SIGMA,SIGAIR,GHESIG=', + * SNGL(SIGMA),SNGL(SIGAIR),GHESIG + + CALL RMMAR( RD,2,1 ) +C MEAN FREE PATH FOR INTERACTION (CHIINT) OR DECAY (CHI) + CHIINT = (-LOG(RD(1))) * AVERAW / (AVOGAD * SIGAIR) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(1),CHIINT=', + * ITYPE,RD(1),SNGL(CHIINT) + COR1 = (-LOG(RD(2))) * C(25) * C(18) + CALL PRANGC(COR1,.FALSE.,HNEW) + CHI = MAX( CHI, 0.D0 ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(2),CHIDEC=', + * ITYPE,RD(2),SNGL(CHI) + CHI = MIN( CHIINT, CHI ) + IF ( CHI .LT. CHIINT ) THEN + FDECAY = .TRUE. + ELSE + FDECAY = .FALSE. + ENDIF + +C INTERACTION LENGTH STATISTICS + IP = 1.D0 + CHI * 0.1D0 + IP = MIN( IP, 123 ) + IPICHI( IP) = IPICHI( IP) + 1 + IPICHI(124) = IPICHI(124) + 1 + +C----------------------------------------------------------------------- +C NEUTRAL PIONS + ELSEIF ( ITYPE .EQ. 7 ) THEN +C LOW ENERGY PIONS ARE NOT TRACKED AND DECAY + IF ( ELAB .LT. 1.D5 ) THEN + FDECAY = .TRUE. + CHI = 0.D0 + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,CHI,FDECAY=', + * ITYPE,SNGL(CHI),FDECAY + ELSE +C PION IS HIGH ENERGY AND MUST BE TRACKED + PLAB = ELAB * BETA + GHESIG = .FALSE. + IF ( FVENSG ) THEN + CALL VENSIG(ELAB,2) + ELSE +C SIGMA IS ENERGY DEPENDENT INELASTIC PION-NUCLEON CROSS-SECTION +C FACTOR 0.6667 GIVES RATIO BETWEEN PION AND NUCLEON CROSS-SECTION + SIGMA = 19.87D0 * ELAB**.079D0 * 0.6667D0 +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER 1 + SIGAIR = (1.D0 - 2.D0 * S45SQ) * SIG45A(1) + * +(S45SQ - S4530) * SIG30A(1) + * +(S45SQ + S4530) * SIG60A(1) + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'BOX2 : SIGMA,SIGAIR=',SNGL(SIGMA),SNGL(SIGAIR) + + CALL RMMAR( RD,2,1 ) +C MEAN FREE PATH FOR INTERACTION (CHIINT) OR DECAY (CHI) + CHIINT = (-LOG(RD(1))) * AVERAW / (AVOGAD * SIGAIR) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(1),CHIINT=', + * ITYPE,RD(1),SNGL(CHIINT) + COR1 = (-LOG(RD(2))) * C(25) * 8.4D-17 + CALL NRANGC(COR1*BETA*GAMMA) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(2),CHIDEC=', + * ITYPE,RD(2),SNGL(CHI) + CHI = MIN( CHIINT, CHI ) + IF ( CHI .LT. CHIINT ) THEN + FDECAY = .TRUE. + ELSE + FDECAY = .FALSE. + ENDIF + ENDIF + +C INTERACTION LENGTH STATISTICS + IP = 1.D0 + CHI * 0.1D0 + IP = MIN( IP, 123 ) + IPICHI( IP) = IPICHI( IP) + 1 + IPICHI(124) = IPICHI(124) + 1 + +C----------------------------------------------------------------------- +C NUCLEONS AND ANTINUCLEONS + ELSEIF ( ITYPE .EQ. 13 .OR. ITYPE .EQ. 14 .OR. + * ITYPE .EQ. 15 .OR. ITYPE .EQ. 25 ) THEN + PLAB = ELAB * BETA +C CALCULATION OF CROSS-SECTION IN THE GHEISHA ROUTINES + IF ( ELAB .LE. HILOELB ) THEN + EKIN = ELAB - PAMA(ITYPE) + USELOW = .TRUE. + SIGAIR = CGHSIG(SNGL(PLAB),SNGL(EKIN),ITYPE) + GHESIG = .TRUE. + ELSE + USELOW = .FALSE. + GHESIG = .FALSE. + IF ( FVENSG .AND. (ELAB .GE. HILOELB) ) THEN + CALL VENSIG(ELAB,1) + ELSE +C SIGMA IS ENERGY DEPENDENT INELASTIC NUCLEON-NUCLEON CROSS-SECTION + IF ( PLAB .LT. 1.D1 ) THEN + SIGMA = 29.9D0 + ELSEIF ( PLAB .LT. 1.D3 ) THEN + PLABLG = LOG(PLAB) +C INELASTIC CROSS-SECTIONS FROM PARTICLE DATA GROUP +C (A.BALDINI ET AL., LANDOLT-BOERNSTEIN NEW SERIES I/12B (1987) 150) + SIGMA = 30.9D0 - 28.9D0 * PLAB**(-2.46D0) + * + 0.192D0 * PLABLG**2 - 0.835D0 * PLABLG + ELSE + SIGMA = 19.87D0 * ELAB**.079D0 + ENDIF + +C ADD ANNIHILATION CROSS-SECTION FOR ANTI-NUCLEONS + IF ( ITYPE .EQ. 15 .OR. ITYPE .EQ. 25 ) THEN +C ANNIHILATION CROSS-SECTIONS FROM PARTICLE DATA GROUP +C (A.BALDINI ET AL., LANDOLT-BOERNSTEIN NEW SERIES I/12B (1987) 286) + SIGANN = 0.532D0 + 0.634D2 * PLAB**(-0.71D0) + SIGMA = MIN( 120.D0, SIGMA + SIGANN ) + ENDIF +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER 1 + SIGAIR = (1.D0 - 2.D0 * S45SQ) * SIG45A(1) + * +(S45SQ - S4530) * SIG30A(1) + * +(S45SQ + S4530) * SIG60A(1) + ENDIF + IF ( ITYPE .EQ. 15 .OR. ITYPE .EQ. 25 ) THEN +C TAKE ANNIHILATION AS ADDITION TO HADR. INTERACT. CROSS-SECTION + SIGANN = 2.25D2 * PLAB**(-0.625D0) + SIGAIR = SIGAIR + SIGANN + FRACTN = FRACTN + PROBTA(1) * SIGANN + FRCTNO = FRCTNO + PROBTA(2) * SIGANN + ENDIF + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : SIGMA,SIGAIR,GHESIG=', + * SNGL(SIGMA),SNGL(SIGAIR),GHESIG + +C MEAN FREE PATH FROM MOLECULAR WEIGHT, AVOGADRO'S CONSTANT AND SIGMA + CALL RMMAR( RD,1,1 ) + CHI = (-LOG(RD(1))) * AVERAW / (AVOGAD * SIGAIR) + FDECAY = .FALSE. + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(1),CHI=', + * ITYPE,RD(1),SNGL(CHI) + +C INTERACTION LENGTH STATISTICS + NU = 1.D0 + CHI * 0.1D0 + NU = MIN( NU, 123 ) + INUCHI( NU) = INUCHI( NU) + 1 + INUCHI(124) = INUCHI(124) + 1 + +C----------------------------------------------------------------------- +C KAONS (PARTICLE TYPES 10,11,12,16) + ELSEIF ( ITYPE .EQ. 10 .OR. ITYPE .EQ. 11 .OR. + * ITYPE .EQ. 12 .OR. ITYPE .EQ. 16 ) THEN + PLAB = ELAB * BETA +C CALCULATION OF CROSS-SECTION IN THE GHEISHA ROUTINES + IF ( ELAB .LE. HILOELB ) THEN + EKIN = ELAB - PAMA(ITYPE) + USELOW = .TRUE. + SIGAIR = CGHSIG(SNGL(PLAB),SNGL(EKIN),ITYPE) + GHESIG = .TRUE. + ELSE + USELOW = .FALSE. + GHESIG = .FALSE. + IF ( FVENSG .AND. (ELAB .GE. HILOELB) ) THEN + CALL VENSIG(ELAB,3) + ELSE +C SIGMA IS ENERGY DEPENDENT INELASTIC KAON-NUCLEON CROSS-SECTION + IF ( PLAB .LE. 1.D1 ) THEN + SIGMA = 14.11D0 + ELSEIF ( PLAB .LT. 1.D3 ) THEN + PLABLG = LOG(PLAB) +C INELASTIC CROSS-SECTIONS FROM PARTICLE DATA GROUP +C (A.BALDINI ET AL., LANDOLT-BOERNSTEIN NEW SERIES I/12B (1987) 56) + SIGMA = 12.3D0 - 7.77D0 * PLAB**(-2.12D0) + * + 0.0326D0 * PLABLG**2 + 0.738D0 * PLABLG + ELSE +C FACTOR 0.5541 GIVES RATIO BETWEEN KAON AND NUCLEON CROSS-SECTION + SIGMA = 19.87D0 * ELAB**.079D0 * 0.5541D0 + ENDIF +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER 1 + SIGAIR = (1.D0 - 2.D0 * S45SQ) * SIG45A(1) + * +(S45SQ - S4530) * SIG30A(1) + * +(S45SQ + S4530) * SIG60A(1) + ENDIF + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : SIGMA,SIGAIR,GHESIG=', + * SNGL(SIGMA),SNGL(SIGAIR),GHESIG + + CALL RMMAR( RD,2,1 ) +C MEAN FREE PATH FOR INTERACTION (CHIINT) OR DECAY (CHI) + CHIINT = (-LOG(RD(1))) * AVERAW / (AVOGAD * SIGAIR) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(1),CHIINT=', + * ITYPE,RD(1),SNGL(CHIINT) + + IF ( ITYPE .EQ. 16 ) THEN + CKA2 = CKA(5) + ELSEIF ( ITYPE .EQ. 10 ) THEN + CKA2 = CKA(6) + ELSE + CKA2 = CKA(3) + ENDIF + COR1 = (-LOG(RD(2))) * C(25) * CKA2 + IF ( SIGNUM(ITYPE) .EQ. 0.D0 ) THEN +C NEUTRAL KAONS + CALL NRANGC(COR1*BETA*GAMMA) + ELSE +C CHARGED KAONS + CALL PRANGC(COR1,.FALSE.,HNEW) + CHI = MAX( CHI, 0.D0 ) + ENDIF + + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(2),CHIDEC=', + * ITYPE,RD(2),SNGL(CHI) + CHI = MIN( CHIINT, CHI ) + IF ( CHI .LT. CHIINT ) THEN + FDECAY = .TRUE. + ELSE + FDECAY = .FALSE. + ENDIF + +C INTERACTION LENGTH STATISTICS + KA = 1.D0 + CHI * 0.1D0 + KA = MIN( KA, 123 ) + IKACHI( KA) = IKACHI( KA) + 1 + IKACHI(124) = IKACHI(124) + 1 + +C----------------------------------------------------------------------- +C ETA MESONS + ELSEIF ( ITYPE .EQ. 17 .OR. + * (ITYPE .GE. 71 .AND. ITYPE .LE. 74 ) ) THEN +C LOW ENERGY ETA MESONS ARE NOT TRACKED AND DECAY + IF ( ELAB .LT. 1.D7 ) THEN + FDECAY = .TRUE. + CHI = 0.D0 + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,CHI,FDECAY=', + * ITYPE,SNGL(CHI),FDECAY + ELSE +C ETA IS HIGH ENERGY AND MUST BE TRACKED. WE TAKE PION CROSS-SECTIONS + PLAB = ELAB * BETA + GHESIG = .FALSE. + IF ( FVENSG ) THEN + CALL VENSIG(ELAB,2) + ELSE +C SIGMA IS ENERGY DEPENDENT INELASTIC PION-NUCLEON CROSS-SECTION +C FACTOR 0.6667 GIVES RATIO BETWEEN PION AND NUCLEON CROSS-SECTION + SIGMA = 19.87D0 * ELAB**.079D0 * 0.6667D0 +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER 1 + SIGAIR = (1.D0 - 2.D0 * S45SQ) * SIG45A(1) + * +(S45SQ - S4530) * SIG30A(1) + * +(S45SQ + S4530) * SIG60A(1) + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'BOX2 : SIGMA,SIGAIR=',SNGL(SIGMA),SNGL(SIGAIR) + + CALL RMMAR( RD,2,1 ) +C MEAN FREE PATH FOR INTERACTION (CHIINT) OR DECAY (CHI) + CHIINT = (-LOG(RD(1))) * AVERAW / (AVOGAD * SIGAIR) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(1),CHIINT=', + * ITYPE,RD(1),SNGL(CHIINT) + COR1 = (-LOG(RD(2))) * C(25) * 5.531D-19 + CALL NRANGC(COR1*BETA*GAMMA) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(2),CHIDEC=', + * ITYPE,RD(2),SNGL(CHI) + CHI = MIN( CHIINT, CHI ) + IF ( CHI .LT. CHIINT ) THEN + FDECAY = .TRUE. + ELSE + FDECAY = .FALSE. + ENDIF + ENDIF + +C INTERACTION LENGTH STATISTICS + IP = 1.D0 + CHI * 0.1D0 + IP = MIN( IP, 123 ) + IPICHI( IP) = IPICHI( IP) + 1 + IPICHI(124) = IPICHI(124) + 1 + +C----------------------------------------------------------------------- +C STRANGE BARYONS ( LAMBDA, SIGMA(+,0,-),XI(0,-), OMEGA- ) + ELSEIF ( (ITYPE .GE. 18 .AND. ITYPE .LE. 24) .OR. + * (ITYPE .GE. 26 .AND. ITYPE .LE. 32) ) THEN + PLAB = ELAB * BETA +C CALCULATION OF CROSS-SECTION IN THE GHEISHA ROUTINES + IF ( ELAB .LE. HILOELB ) THEN + EKIN = ELAB - PAMA(ITYPE) + USELOW = .TRUE. + SIGAIR = CGHSIG(SNGL(PLAB),SNGL(EKIN),ITYPE) +C SET CROSS-SECTION VALUE TO A SMALL NUMBER FOR SIGMA0 AND ANTI SIGMA0 + IF ( ITYPE .EQ. 20 .OR. ITYPE .EQ. 28 ) THEN + SIGAIR = 1.D-3 + ENDIF + GHESIG = .TRUE. + ELSE + USELOW = .FALSE. + GHESIG = .FALSE. +C CROSS-SECTION FOR BARYONS IS ASSUMED TO BE THE SAME AS FOR NUCLEONS + IF ( FVENSG .AND. (ELAB .GE. HILOELB) ) THEN + CALL VENSIG(ELAB,1) + ELSE +C SIGMA IS ENERGY DEPENDENT INELASTIC NUCLEON-NUCLEON CROSS-SECTION + IF ( PLAB .LT. 1.D1 ) THEN + SIGMA = 29.9D0 + ELSEIF ( PLAB .LT. 1.D3 ) THEN + PLABLG = LOG(PLAB) +C INELASTIC CROSS-SECTIONS FROM PARTICLE DATA GROUP +C (A.BALDINI ET AL., LANDOLT-BOERNSTEIN NEW SERIES I/12B (1987) 150) + SIGMA = 30.9D0 - 28.9D0 * PLAB**(-2.46D0) + * + 0.192D0 * PLABLG**2 - 0.835D0 * PLABLG + ELSE + SIGMA = 19.87D0 * ELAB**.079D0 + ENDIF +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER 1 + SIGAIR = (1.D0 - 2.D0 * S45SQ) * SIG45A(1) + * +(S45SQ - S4530) * SIG30A(1) + * +(S45SQ + S4530) * SIG60A(1) + ENDIF + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : SIGMA,SIGAIR,GHESIG=', + * SNGL(SIGMA),SNGL(SIGAIR),GHESIG + + CALL RMMAR( RD,2,1 ) +C MEAN FREE PATH FOR INTERACTION (CHIINT) OR DECAY (CHI) + IF ( ITYPE .GE. 18 .AND. ITYPE .LE. 21 ) THEN + COR1 = (-LOG(RD(2))) * C(25) * CSTRBA(ITYPE-17) + ELSEIF ( ITYPE .GE. 22 .AND. ITYPE .LE. 24 ) THEN + COR1 = (-LOG(RD(2))) * C(25) * CSTRBA(ITYPE-15) + ELSEIF ( ITYPE .GE. 26 .AND. ITYPE .LE. 29 ) THEN + COR1 = (-LOG(RD(2))) * C(25) * CSTRBA(ITYPE-25) + ELSEIF ( ITYPE .GE. 30 .AND. ITYPE .LE. 32 ) THEN + COR1 = (-LOG(RD(2))) * C(25) * CSTRBA(ITYPE-23) + ENDIF + IF ( SIGNUM(ITYPE) .EQ. 0.D0 ) THEN +C NEUTRAL STRANGE BARYONS + CALL NRANGC(COR1*BETA*GAMMA) + ELSE +C CHARGED STRANGE BARYONS + CALL PRANGC(COR1,.FALSE.,HNEW) + CHI = MAX( CHI, 0.D0 ) + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(2),CHIDEC=', + * ITYPE,RD(2),SNGL(CHI) + CHIINT = (-LOG(RD(1))) * AVERAW / (AVOGAD * SIGAIR) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(1),CHIINT=', + * ITYPE,RD(1),SNGL(CHIINT) + CHI = MIN( CHIINT, CHI ) + IF ( CHI .LT. CHIINT ) THEN + FDECAY = .TRUE. + ELSE + FDECAY = .FALSE. + ENDIF +C GHEISHA CANNOT TREAT SIGMA0 AND ANTI-SIGMA0, LET THEM DECAY + IF (GHESIG .AND. (ITYPE.EQ.20 .OR. ITYPE.EQ.28))FDECAY = .TRUE. + +C INTERACTION LENGTH STATISTICS + IHY = 1.D0 + CHI * 0.1D0 + IHY = MIN( IHY, 123 ) + IHYCHI(IHY) = IHYCHI(IHY) + 1 + IHYCHI(124) = IHYCHI(124) + 1 + +C----------------------------------------------------------------------- +C HEAVY PRIMARIES ( ITYPE = 100 * A + Z , FE -> ITYPE = 5626 ) +C ( APPEARING AT FIRST INTERACTION AND AS REMANENTS OF THE PRIMARY ) + ELSEIF ( ITYPE .GT. 100 ) THEN + IA = ITYPE / 100 + IF ( IA .GT. 56 ) THEN + WRITE(MONIOU,*) 'BOX2 : UNEXPECTED PARTICLE TYPE=',ITYPE + WRITE(MONIOU,*) 'PLEASE READ THE USERS GUIDE' + WRITE(MONIOU,*) 'SEE KEYWORD: PRMPAR' + STOP + ENDIF +C MEAN FREE PATH OF THE HEAVY PRIMARY IS DEDUCED FROM THAT OF A NUCLEON +C ONLY INELASTIC SCATTERING AT INTERACTIONS WITH HEAVY PRIMARY/FRAGMENT + ELAB = (PAMA(13) + PAMA(14)) * 0.5D0 * GAMMA + PLAB = ELAB * BETA +C CALCULATION OF CROSS-SECTION IN THE GHEISHA ROUTINES + ELABT = ELAB * IA + IF ( ELAB .LE. HILOELB ) THEN + USELOW = .TRUE. +C GHEISHA CANNOT TREAT NUCLEI + GHESIG = .FALSE. + ELSE + USELOW = .FALSE. + GHESIG = .FALSE. + ENDIF + IF ( FVENSG .AND. (ELAB .GE. HILOELB) ) THEN + CALL VENSIG(ELAB,ITYPE) + ELSE + IF ( GHESIG ) GOTO 333 +C SIGMA IS ENERGY DEPENDENT INELASTIC NUCLEON-NUCLEON CROSS-SECTION + IF ( PLAB .LT. 1.D1 ) THEN + SIGMA = 29.9D0 + ELSEIF ( PLAB .LT. 1.D3 ) THEN + PLABLG = LOG(PLAB) +C INELASTIC CROSS-SECTIONS FROM PARTICLE DATA GROUP +C (A.BALDINI ET AL., LANDOLT-BOERNSTEIN NEW SERIES I/12B (1987) 150) + SIGMA = 30.9D0 - 28.9D0 * PLAB**(-2.46D0) + * + 0.192D0 * PLABLG**2 - 0.835D0 * PLABLG + ELSE + SIGMA = 19.87D0 * ELAB**.079D0 + ENDIF + ENDIF +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER IA + SIGAIR = (1.D0 - 2.D0 * S45SQ) * SIG45A(IA) + * +(S45SQ - S4530) * SIG30A(IA) + * +(S45SQ + S4530) * SIG60A(IA) + 333 CONTINUE + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : SIGMA,SIGAIR,GHESIG=', + * SNGL(SIGMA),SNGL(SIGAIR),GHESIG + +C CHECK SIGAIR FOR CORRECT CROSS-SECTION + IF ( SIGAIR .LE. 0.D0 ) THEN + WRITE(MONIOU,*) 'BOX2: SIGAIR=0.D0, PROGRAM STOPPED ', + * ' (UNALLOWED COMBINATION OF PRIMARY WITH CROSS-SECTION)' + WRITE(MONIOU,*) 'PLEASE READ THE USERS GUIDE' + WRITE(MONIOU,*) 'SEE KEYWORD: PRMPAR' + STOP + ENDIF + + CALL RMMAR( RD,1,1 ) +C MEAN FREE PATH FROM MOLECULAR WEIGHT, AVOGADRO'S CONSTANT AND SIGMA + CHI = (-LOG(RD(1))) * AVERAW / (AVOGAD * SIGAIR) + FDECAY = .FALSE. + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(1),CHI=', + * ITYPE,RD(1),SNGL(CHI) + +C INTERACTION LENGTH STATISTICS + NI = 1.D0 + CHI * 0.1D0 + NI = MIN( NI, 123 ) + INNCHI( NI) = INNCHI( NI) + 1 + INNCHI(124) = INNCHI(124) + 1 + +C----------------------------------------------------------------------- +C ERROR IN PARTICLE CODE + ELSE + WRITE(MONIOU,*) 'BOX2 : UNEXPECTED PARTICLE TYPE=',ITYPE + WRITE(MONIOU,*) 'PLEASE READ THE USERS GUIDE' + WRITE(MONIOU,*) 'SEE KEYWORD: PRMPAR' + STOP + ENDIF + + RETURN + END +*CMZ : 05/03/2002 08.56.36 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE BOX3(fmfb) + +C----------------------------------------------------------------------- +C +C CHECKS PASSAGE THROUGH OBSERVATION LEVEL(S) +C IRET1=1 KILLS PARTICLE +C IRET2=1 PARTICLE HAS BEEN CUTTED IN UPDATE +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,THNVAR. + COMMON /THNVAR/ STACKINT, + * INT_ICOUNT,MODETHN,THINNING + INTEGER MAXICOUNT + PARAMETER (MAXICOUNT=40000) + DOUBLE PRECISION STACKINT(16,MAXICOUNT) + INTEGER INT_ICOUNT,MODETHN + LOGICAL THINNING +c-----changed--add + logical fmfb +c-----changed--add +*KEND. + + DOUBLE PRECISION THICK + INTEGER I,IRET3 + SAVE + LOGICAL FLAG + EXTERNAL THICK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' BOX3 : CURPAR=',1P,9E10.3) + + IF ( ITYPE .EQ. 5 .OR. ITYPE .EQ. 6 ) THEN +C MUONS ARE TRACKED WITHIN SUBR. MUTRAC + INT_ICOUNT = 0 + CALL MUTRAC(fmfb) + CALL TSTEND + IRET1 = 1 + RETURN + + ELSEIF ( ITYPE .LE. 3 ) THEN +C ELECTRONS OR PHOTONS ARE TREATED IN SUBR. EM + CALL EM + IRET1 = 1 + RETURN + + ELSEIF ( ITYPE .GE. 50 .AND. ITYPE .LE. 65 ) THEN +C RESONANCES DECAY WITHIN SUBR. RESDEC + IF (LLONGI) LHEIGH = INT(THICK(H)*THSTPI + 1.D0) + INT_ICOUNT = 0 + CALL RESDEC + CALL TSTEND + IRET1 = 1 + RETURN + + ENDIF + +C FOR ALL THE OTHER PARTICLES THE PLACE OF NEXT INTERACTION WAS +C DETERMINED IN BOX2 +C UPDATE PARTICLE TO INTERACTION POINT OR OBSERVATION LEVEL, +C WHICHEVER IS CLOSER + FLAG = .FALSE. +c-----changed--add + CALL UPDATC(IRET3,FLAG,fmfb) +c-----changed--add + IF (DEBUG) WRITE(MDEBUG,*) 'BOX3 : IRET1,2,3=', + * IRET1,IRET2,IRET3 + IF ( IRET2 .NE. 0 ) THEN +C PARTICLE CUTTED BEFORE INTERACTION POINT +C LONGITUDINAL DEPOSIT IS ALREADY DONE IN UPDATC + IRET1 = 1 + RETURN + ELSE +C KILL PARTICLE AS IT IS AT DETECTOR LEVEL + IF ( IRET3 .NE. 0 ) THEN + IRET1 = 1 + RETURN + ELSE +C STORE PARTICLE FOR FURTHER TREATMENT + DO I = 1,8 + CURPAR(I) = OUTPAR(I) + ENDDO + ALEVEL = H + BETA = SQRT( GAMMA**2 - 1.D0 ) / GAMMA + ENDIF + + ENDIF + RETURN + END +*CMZ : 23/10/2000 14.43.21 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 16/05/95 +C======================================================================= + + DOUBLE PRECISION FUNCTION CHISQ(F) + +C----------------------------------------------------------------------- +C CHI SQ(UARE) +C +C THIS FUNCTION CALCULATES THE CHI**2 OBTAINED WITH THE HILLAS +C FUNCTION AND THE FIT SUBROUT. AMOEBA USING THE PARAMETER SET F +C SEE: T.K. GAISSER & A.M. HILLAS, PROC. XV ICRC, PLOVDIV, BULGARIA, +C VOL. 8 (1977) 353 +C THIS FUNCTION IS CALLED FROM LONGFT AND AMOEBA. +C ARGUMETS: +C F(1) = HEIGHT AT MAXIMUM +C F(2) = SHOWER STARTING POINT +C F(3) = T AT MAXIMUM +C F(4) = WIDTH PARAMETER 1 +C F(5) = WIDTH PARAMETER 2 T +C F(6) = WIDTH PARAMETER 3 T**2 +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CURVE. + COMMON /CURVE/ CHAPAR,DEP,ERR,NSTP + DOUBLE PRECISION CHAPAR(1200),DEP(1200),ERR(1200) + INTEGER NSTP +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AUXIL,BALL,BASE,EXPO,F(6),T,WIDTH + INTEGER I + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'CHISQ : PARAMETERS,NSTP =', + * (SNGL(F(I)),I=1,6),NSTP + +C EXCLUDE PATHOLOGICAL PARAMETER SETTINGS + IF ( F(1) .LE. 0.D0 .OR. F(2) .GE. F(3) .OR. + * (F(4).LE.0.D0 .AND. F(5).EQ.0.D0 .AND. F(6).EQ.0.D0) ) THEN + CHISQ = 1.D16 + RETURN + ENDIF + + CHISQ = 0.D0 +C LOOP OVER THE LONGITUDINAL DISTRIBUTION + DO 1 I = 1,NSTP + T = DEP(I) + IF ( T .GT. F(2) ) THEN + BASE = (T-F(2)) / (F(3)-F(2)) + WIDTH = F(4) + T*F(5) + T**2*F(6) + IF ( WIDTH .LT. 1.D-20 ) THEN + CHISQ = CHISQ + 1.D16 + GOTO 1 + ENDIF + EXPO = (F(3)-F(2)) / WIDTH + AUXIL = (F(3)-T) / WIDTH + IF ( ABS(AUXIL) .GT. 20.D0 ) THEN + CHISQ = CHISQ + 1.D16 + GOTO 1 + ENDIF + BALL = F(1) * BASE ** EXPO * EXP(AUXIL) + ELSE + BALL = 0.D0 + ENDIF + CHISQ = CHISQ + ((BALL-CHAPAR(I))/ERR(I))**2 + 1 CONTINUE + CHISQ = CHISQ / (NSTP-6) + + IF ( DEBUG ) WRITE(MDEBUG,*) 'CHISQ : CHI**2 =',SNGL(CHISQ) + + RETURN + END +*CMZ : 23/10/2000 14.43.21 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 16/05/95 +C======================================================================= + + DOUBLE PRECISION FUNCTION CHISQ1(F) + +C----------------------------------------------------------------------- +C CHI SQ(UARE FOR THE) 1(ST FIT FUNCTION)) +C +C THIS FUNCTION CALCULATES THE CHI**2 OBTAINED WITH THE HILLAS +C FUNCTION AND THE FIT SUBROUT. AMOEBA USING THE PARAMETER SET F +C SEE: T.K. GAISSER & A.M. HILLAS, PROC. XV ICRC, PLOVDIV, BULGARIA, +C VOL. 8 (1977) 353 +C THIS FUNCTION IS CALLED FROM LONGFT AND AMOEBA. +C ARGUMETS: +C F(1) = HEIGHT AT MAXIMUM +C F(2) = SHOWER STARTING POINT +C F(3) = T AT MAXIMUM +C F(4) = WIDTH PARAMETER +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CURVE. + COMMON /CURVE/ CHAPAR,DEP,ERR,NSTP + DOUBLE PRECISION CHAPAR(1200),DEP(1200),ERR(1200) + INTEGER NSTP +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AUXIL,BALL,BASE,EXPO,F(6),T + INTEGER I + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*)'CHISQ1: PARAMETERS,NSTP =', + * (SNGL(F(I)),I=1,4),NSTP + +C EXCLUDE PATHOLOGICAL PARAMETER SETTINGS + IF ( F(1) .LE. 0.D0 .OR. F(2) .GE. F(3) .OR. + * F(4) .LE. 0.D0 ) THEN + CHISQ1 = 1.D16 + RETURN + ENDIF + + CHISQ1 = 0.D0 +C LOOP OVER THE LONGITUDINAL DISTRIBUTION + DO 1 I = 1,NSTP + T = DEP(I) + IF ( T .GT. F(2) ) THEN + BASE = (T-F(2)) / (F(3)-F(2)) + AUXIL = F(4) + IF ( AUXIL .LT. 1.D-20 ) THEN + CHISQ1 = CHISQ1 + 1.D16 + GOTO 1 + ENDIF + EXPO = (F(3)-F(2)) / AUXIL + AUXIL = (F(3)-T) / AUXIL + IF ( ABS(AUXIL) .GT. 20.D0 ) THEN + CHISQ1 = CHISQ1 + 1.D16 + GOTO 1 + ENDIF + BALL = F(1) * BASE ** EXPO * EXP(AUXIL) + ELSE + BALL = 0.D0 + ENDIF + CHISQ1 = CHISQ1 + ((BALL-CHAPAR(I))/ERR(I))**2 + 1 CONTINUE + CHISQ1 = CHISQ1 / (NSTP-4) + + IF ( DEBUG ) WRITE(MDEBUG,*) 'CHISQ1 : CHI**2 =',SNGL(CHISQ1) + + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : F. SCHROEDER UNI WUPPERTAL 18/11/98 +C======================================================================= + + SUBROUTINE CORINC + +C----------------------------------------------------------------------- +C CO(O)R(DINATE) IN(ITIALIZATION FOR A) C(URVED ATMOSPHERE) +C +C INITIALIZES ALL IMPORTANT COORDINATES FOR ONE OBSERVATION LEVEL +C ROUTINE DETERMINES STARTING PARAMETERS AT HEIGHT GIVEN BY THICK0 FOR +C A COORDINATE SYSTEM WHICH IS FIXED IN (X,Y) AT THE ASSUMED DETECTOR +C POSITION AND IN Z AT SEA LEVEL. +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C +C AUTHOR : F. SCHROEDER UNI WUPPERTAL +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION DIST,DIAG,TEA + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'CORINC: H,COSTAP,PHI =', + * SNGL(H),SNGL(COSTAP),SNGL(PHIP) + +C NOTE : ANGLES THETAP AND PHIP ARE APPARENT ANGLES OF PRIMARY AT +C THE EDGE OF THE ATMOSPHERE SEEN FROM THE +C DETECTOR POSITION X=Y=0, Z=OBSLEV(1) +C FOR CALCULATIONS: COSTAP = COSINE OF APPARENT ZENITH ANGLE THETAP +C COSTAP IS SET IN AAMAIN BY EQUIVALENCE WITH CURPAR(15) + +C DISTANCE DIAG BETWEEN DETECTOR POSITION X=Y=0, Z = OBSLEV(1) AND +C STARTING POINT + DIAG = SQRT( (C(1)+H)**2 - (C(1)+OBSLEV(1))**2 *(1.D0-COSTAP**2) ) + * - (C(1)+OBSLEV(1)) * COSTAP + +C APPARENT HEIGHT HAPP IS PARTICLE Z-COORDINATE IN DETECTOR SYSTEM + HAPP = OBSLEV(1) + DIAG * COSTAP + +C CALCULATING COSINE OF THETA_EARTH COSTEA, COSINE OF ZENITH ANGLE BY +C TAKING A COORDINATE FRAME CENTERED IN THE MIDDLE OF EARTH + COSTEA = (C(1)+HAPP) / (C(1)+H) + IF ( DEBUG ) WRITE(MDEBUG,*) 'CORINC: HAPP,COSTEA,DIAG =', + * SNGL(HAPP),COSTEA,SNGL(DIAG) + COSTEA = MIN( 1.D0, COSTEA ) +C TRANSFORM THE APPARENT ANGLE SEEN FROM DETECTOR POSITION TO LOCAL +C ANGLES RELATIVE TO THE VERTICAL TO THE MIDDLE OF EARTH +C NOTE : LOCAL ZENITH ANGLE = DIFFERENCE OF APPARENT ZENITH ANGLE AND +C THETA_EARTH + COSTHE = (DIAG + (C(1)+OBSLEV(1))*COSTAP)/(C(1)+H) + +C DISTANCE DIST BETWEEN THE DETECTOR POSITION X=0, Y=0 +C AND THE ACTUAL INTERACTION POINT MEASURED ON THE EARTH'S SURFACE + TEA = ACOS(COSTEA) + DIST = C(1) * TEA + +C CONCERNING TRANSFORMATION OF AZIMUTH ANGLE PHI +C NOTE : THE COORDINATE SYTEMS ONLY DIFFER IN A SHIFT ALONG THE Z-AXIS +C OR A ROTATION ALONG THE ZENITH ANGLE. BOTH TRANSFORMATIONS +C JUST CHANGE THETA AND NOT PHI (THETA AND PHI ARE ORTHOGONAL +C COORDINATES, THUS LINEAR INDEPENDENT). + +C X,Y-COORDINATES SEEN FROM THE DETECTOR POSITION (X=Y=0) + X = -DIST * COS( PHIP ) + Y = -DIST * SIN( PHIP ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'CORINC: X,Y,COSTHE,DIST =', + * SNGL(X),SNGL(Y),SNGL(COSTHE),SNGL(DIST) + +C FILL PARAMETERS IN PRMPAR + PRMPAR(3) = COSTHE + PRMPAR(7) = X + PRMPAR(8) = Y +C WE HAVE EQUIVALENCES FOR HAPP AND COSTEA +C CURPAR(14) = HAPP +C CURPAR(16) = COSTEA + + RETURN + END +*CMZ : 28/02/2002 13.08.19 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE DATAC + +C----------------------------------------------------------------------- +C DATA C(ARDS) +C +C READS DATA CARDS FROM UNIT 5 TO STEER RUN. +C READING IS FREE FORMAT WITH BLANK AS SEPARATOR. +C EACH KEYWORD STARTS ON A NEW LINE LEFTSHIFTED. +C THIS SUBROUTINE IS CALLED FROM START. +C----------------------------------------------------------------------- +c------changed-------add and comand +c IMPLICIT NONE +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c All this lines are under test +c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + parameter (xct=1) + parameter (yct=2) + parameter (zct=3) + parameter (ctthet=4) + parameter (ctphi=5) + parameter (ctdiam=6) + parameter (ctfoc=7) +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c------changed-------add and comand + +c IMPLICIT NONE +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,ETHMAP. + COMMON /ETHMAP/ ECTMAP,ELEFT + DOUBLE PRECISION ECTMAP,ELEFT +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MAGANG. + COMMON /MAGANG/ ARRANG,ARRANR,COSANG,SINANG + DOUBLE PRECISION ARRANG,ARRANR,COSANG,SINANG +*KEEP,MAGNET. + COMMON /MAGNET/ BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT + DOUBLE PRECISION BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,NKGI. + COMMON /NKGI/ SEL,SELLG,STH,ZEL,ZELLG,ZSL,DIST, + * DISX,DISY,DISXY,DISYX,DLAX,DLAY,DLAXY,DLAYX, + * OBSATI,RADNKG,RMOL,TLEV,TLEVCM,IALT + DOUBLE PRECISION SEL(10),SELLG(10),STH(10),ZEL(10),ZELLG(10), + * ZSL(10),DIST(10), + * DISX(-10:10),DISY(-10:10), + * DISXY(-10:10,2),DISYX(-10:10,2), + * DLAX (-10:10,2),DLAY (-10:10,2), + * DLAXY(-10:10,2),DLAYX(-10:10,2), + * OBSATI(2),RADNKG,RMOL(2),TLEV(10),TLEVCM(10) + INTEGER IALT(2) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PRIMSP. + COMMON /PRIMSP/ PSLOPE,LLIMIT,ULIMIT,LL,UL,SLEX,ISPEC + DOUBLE PRECISION PSLOPE,LLIMIT,ULIMIT,LL,UL,SLEX + INTEGER ISPEC +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,VENPAR. + COMMON /VENPAR/ PARVAL,NPARAM,PARCHA + REAL PARVAL(100) + INTEGER NPARAM + CHARACTER*6 PARCHA(100) +*KEEP,VENUS. + COMMON /VENUS/ ISH00,IVERVN,MTAR99,FVENUS,FVENSG + INTEGER ISH00,IVERVN,MTAR99 + LOGICAL FVENUS,FVENSG +*KEEP,CEREN1. + COMMON /CEREN1/ CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR,LCERFI + DOUBLE PRECISION CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR + LOGICAL LCERFI +*KEEP,CEREN2. + COMMON /CEREN2/ ACERX,ACERY,CERXOS,CERYOS, + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT, + * PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS, + * NCERX,NCERY,ICERML + DOUBLE PRECISION ACERX,ACERY,CERXOS(20),CERYOS(20), + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT + DOUBLE PRECISION PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS + INTEGER NCERX,NCERY,ICERML +*KEEP,ATMOSX. +C EXTERNAL ATMOSPHERIC MODELS + COMMON /ATMOSX/ IATMOX,FREFRX + INTEGER IATMOX + LOGICAL FREFRX +*KEND. +c------changed-----add +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c All this lines are under test +c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +*keep,certel. + common /certel/ cormxd,cord,coralp,ctpars,omega, + + photn,photnp,phpt,pht,vphot, + + vchi,veta,vzeta,vchim,vetam,vzetam, + + lambda,mu,nu,nctels,ncph,phip1,thetap1 + double precision cormxd,cord,coralp,ctpars(20,7),omega(20,3,3), + + photn(3),photnp(3),phpt(3),pht,vphot(3), + + vchi(3),veta(3),vzeta(3),vchim,vetam,vzetam, + + lambda,mu,nu + integer nctels,ncph(5) + double precision xg,yg,zg,xgp,ygp,zgp,up,vp,wp,xpcut,ypcut,zpcut + double precision thetap1,phip1 + equivalence (photn(1) ,xg) ,(photn(2) ,yg) ,(photn(3) ,zg) , + + (photnp(1),xgp) ,(photnp(2),ygp) ,(photnp(3),zgp), + + (phpt(1) ,xpcut),(phpt(2) ,ypcut),(phpt(3) ,zpcut), + + (vphot(1) ,up) ,(vphot(2) ,vp) ,(vphot(3) ,wp) + + character *72 ctfile + + character *6 keyw +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c Angles for the "spinning" of a particle around the +c main axis of the CT + common /spinang/ spinxi + double precision spinxi +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + integer m,nct +cxx---------------- +c------changed-----add + + DOUBLE PRECISION R1,R2 + INTEGER I,IE,IOBSLV,IS,ISEQ,MMM,MONNEW,NNTYP,NUMERR + INTEGER LENVAL + INTEGER IPARAM + CHARACTER LINE*132,TAB*1 + SAVE +C----------------------------------------------------------------------- + +C WRITE TITEL + WRITE(MONIOU,999) + 999 FORMAT(' ',10('='),' USERS RUN DIRECTIVES FOR THIS SIMULATION ', + * 27('=')/) +C SET TABULATOR + TAB = CHAR(9) + +C DEFAULT VALUES FOR ALL RUN PARAMETERS + ISEQ = 0 + NSEQ = 2 + ISEED(1,1) = 1 + ISEED(2,1) = 0 + ISEED(3,1) = 0 + ISEED(1,2) = 2 + ISEED(2,2) = 0 + ISEED(3,2) = 0 + ISEED(1,3) = 3 + ISEED(2,3) = 0 + ISEED(3,3) = 0 + NRRUN = 1 + ISHOWNO = 0 + LLIMIT = 1.D4 + ULIMIT = 1.D4 + PSLOPE = 0.D0 + PRMPAR(1) = 14.D0 + THETPR(1) = 0.D0 + THETPR(2) = 0.D0 + PHIPR(1) = 0.D0 + PHIPR(2) = 0.D0 + NSHOW = 10 + IOBSLV = 0 + NOBSLV = 1 + OBSLEV(1) = 110.D2 + MODATM = 1 + LAYNEW = .FALSE. + ELCUT(1) = 0.3D0 + ELCUT(2) = 0.3D0 + ELCUT(3) = 0.003D0 + ELCUT(4) = 0.003D0 + ECTMAP = 1.D4 + NFLAIN = 0 + NFLDIF = 0 + NFLPI0 = 0 + NFLPIF = 0 + NFLCHE = 0 + NFRAGM = 2 + FNKG = .TRUE. + FMOLI = .TRUE. + FMUADD = .FALSE. + FEGS = .FALSE. + FPAROUT = .TRUE. + FTABOUT = .FALSE. + STEPFC = 1.D0 + MAXPRT = 10 + BX = 20.40D0 + BZ = 43.23D0 + ARRANG = 0.D0 + LLONGI = .FALSE. + THSTEP = 20.D0 + FLGFIT = .FALSE. + FLONGOUT= .FALSE. + RADNKG = 200.D2 +C BORDER BETWEEN LOW AND HIGH ENERGY INTERACTION MODELS +C SET BY DEFAULT TO ELAB = 80 GEV + HILOELB = 80.D0 + GHEISH = .TRUE. + GHEISDB = .FALSE. + FDBASE = .FALSE. + DEBUG = .FALSE. + DEBDEL = .FALSE. + NDEBDL = 100000000 + THICK0 = 0.D0 + FIX1I = .FALSE. + FIXHEI = 0.D0 + DSN = 'anynameupto64characters ' + TMARGIN = .FALSE. + HOST = ' ' + USER = ' ' + STEPFC = 1.D0 + WAVLGL = 300.D0 + WAVLGU = 450.D0 + CERSIZ = 0.D0 + NCERX = 27 + NCERY = 27 + DCERX = 1500.D0 + DCERY = 1500.D0 + ACERX = 100.D0 + ACERY = 100.D0 + LCERFI = .TRUE. + ICERML = 1 + XSCATT = 0.D0 + YSCATT = 0.D0 + DO 554 I = 1,20 + CERXOS(I) = 0.D0 + CERYOS(I) = 0.D0 + 554 CONTINUE + IATMOX = 0 + FREFRX = .FALSE. + FVENUS = .TRUE. + ISH00 = 91 + IPARAM = 0 + NPARAM = 0 + DO 555 I = 1,100 + PARVAL(I) = 0. + 555 CONTINUE + FVENSG = .TRUE. + VUECON(1) = 0.D0 + VUECON(2) = 0.D0 + +C----------------------------------------------------------------------- +C OPEN DATASET FOR COMMANDS + IF ( MONIIN .NE. 5 ) THEN + OPEN(UNIT=MONIIN,FILE='INPUTS',STATUS='OLD',FORM='FORMATTED') + WRITE(MONIOU,*) 'DATA CARDS FOR RUN STEERING ARE ', + * 'EXPECTED FROM UNIT',MONIIN + ELSE + WRITE(MONIOU,*) 'DATA CARDS FOR RUN STEERING ARE ', + * 'EXPECTED FROM STANDARD INPUT' + ENDIF + NUMERR = 0 +C----------------------------------------------------------------------- + 1 CONTINUE + +C ERASE 'LINE' BY FILLING WITH BLANKS + LINE = ' ' + +C GET A NEW INPUT LINE AND PRINT IT + READ(MONIIN,500,END=1000) LINE + 500 FORMAT(A) + DO 10 IE = LEN(LINE),1,-1 + IF ( LINE(IE:IE).NE.' ' ) GOTO 11 + 10 CONTINUE + 11 CONTINUE +C CHECK FOR HORIZONTAL TABS AND ELIMINATE THEM + DO I = 1,IE + IF ( LINE(I:I) .EQ. TAB ) THEN + LINE(I:I) = ' ' + ENDIF + ENDDO +C ECHO WRITE THE INPUT LINE + IF ( DEBUG ) THEN + WRITE(MDEBUG,501) LINE(1:IE) + 501 FORMAT(' DATAC : ',A) + ELSE + WRITE(MONIOU,502) LINE(1:IE) + 502 FORMAT(' ',A) + ENDIF + +C CONVERT LOWER CASE CHARACTERS TO UPPER CASE + DO 3 I = 1,5 + CALL LOWUP(LINE(I:I)) + 3 CONTINUE + IF ( LINE(1:4).NE.'HOST' .AND. LINE(1:4).NE.'USER' ) THEN + CALL LOWUP(LINE(6:6)) + IF ( LINE(1:6).NE.'DIRECT' .AND. LINE(1:6).NE.'HISTDS' + * ) THEN + DO 4 I = 7,LEN(LINE) + CALL LOWUP(LINE(I:I)) + 4 CONTINUE + ENDIF + ENDIF + +C----------------------------------------------------------------------- +C INTERPRET KEYWORD AND READ PARAMETERS + IS = 0 + +C DUMMY LINE (MAY BE USED FOR COMMENTS) NO ACTION + IF ( LINE(1:6) .EQ. ' ' ) THEN + ELSEIF ( LINE(1:1) .EQ. '*' ) THEN + ELSEIF ( LINE(1:2) .EQ. 'C ' ) THEN + +C GET ANGLE (DEGREES) BETWEEN ARRAY X-DIRCTION AND MAGNETIC NORD + ELSEIF ( LINE(1:6) .EQ. 'ARRANG' ) THEN + CALL DTCDBL(LINE,IS,ARRANG,'ARRANG',1) + +C GET INTERNAL ATMOSPHERIC MODEL NUMBER + ELSEIF ( LINE(1:5) .EQ. 'ATMOD' ) THEN + CALL DTCINT(LINE,IS,MODATM,'ATMOD',1) + +C READ ATMOSPHERIC PARAMETERS AATM(.,0) + ELSEIF ( LINE(1:4) .EQ. 'ATMA' ) THEN + CALL DTCDBL(LINE,IS,AATM0(1,0),'ATMA',1) + CALL DTCDBL(LINE,IS,AATM0(2,0),'ATMA',2) + CALL DTCDBL(LINE,IS,AATM0(3,0),'ATMA',3) + CALL DTCDBL(LINE,IS,AATM0(4,0),'ATMA',4) + AATM0(5,0) = .01128292D0 + IF ( MODATM .EQ. 10 ) THEN + AATM0(1,10) = AATM0(1,0) + AATM0(2,10) = AATM0(2,0) + AATM0(3,10) = AATM0(3,0) + AATM0(4,10) = AATM0(4,0) + CALL DTCDBL(LINE,IS,AATM0(5,10),'ATMA',5) + ENDIF + +C READ ATMOSPHERIC PARAMETERS BATM(.,0) + ELSEIF ( LINE(1:4) .EQ. 'ATMB' ) THEN + CALL DTCDBL(LINE,IS,BATM0(1,0),'ATMB',1) + CALL DTCDBL(LINE,IS,BATM0(2,0),'ATMB',2) + CALL DTCDBL(LINE,IS,BATM0(3,0),'ATMB',3) + CALL DTCDBL(LINE,IS,BATM0(4,0),'ATMB',4) + BATM0(5,0) = 1.D0 + IF ( MODATM .EQ. 10 ) THEN + BATM0(1,10) = BATM0(1,0) + BATM0(2,10) = BATM0(2,0) + BATM0(3,10) = BATM0(3,0) + BATM0(4,10) = BATM0(4,0) + ENDIF + +C READ ATMOSPHERIC PARAMETERS CATM(.,0) + ELSEIF ( LINE(1:4) .EQ. 'ATMC' ) THEN + CALL DTCDBL(LINE,IS,CATM0(1,0),'ATMC',1) + CALL DTCDBL(LINE,IS,CATM0(2,0),'ATMC',2) + CALL DTCDBL(LINE,IS,CATM0(3,0),'ATMC',3) + CALL DTCDBL(LINE,IS,CATM0(4,0),'ATMC',4) + CATM0(5,0) = 1.D9 + IF ( MODATM .EQ. 10 ) THEN + CATM0(1,10) = CATM0(1,0) + CATM0(2,10) = CATM0(2,0) + CATM0(3,10) = CATM0(3,0) + CATM0(4,10) = CATM0(4,0) + CALL DTCDBL(LINE,IS,CATM0(5,10),'ATMC',5) + ENDIF + +C READ ATMOSPHERIC LAYER BOUNDARIES HLAY0(.,0) + ELSEIF ( LINE(1:6) .EQ. 'ATMLAY' ) THEN + CALL DTCDBL(LINE,IS,HLAY0(2,0),'ATMLAY',1) + CALL DTCDBL(LINE,IS,HLAY0(3,0),'ATMLAY',2) + CALL DTCDBL(LINE,IS,HLAY0(4,0),'ATMLAY',3) + CALL DTCDBL(LINE,IS,HLAY0(5,0),'ATMLAY',4) + HLAY0(1,0) = 0.D0 + LAYNEW = .TRUE. + +C SET EXTERNAL ATMOSPHERIC MODEL (MOST USEFUL FOR CHERENKOV LIGHT) +C AND DETERMINE IF ATMOSPHERIC REFRACTION SHOULD BE ACCOUNTED FOR. + ELSEIF ( LINE(1:10) .EQ. 'ATMOSPHERE' ) THEN + CALL DTCINT(LINE,IS,IATMOX,'ATMOSPHERE',1) + CALL DTCLOG(LINE,IS,FREFRX,'ATMOSPHERE',2) + +C GET CHERENKOV ARRAY SPECIFICATIONS + ELSEIF ( LINE(1:6) .EQ. 'CERARY' ) THEN + CALL DTCINT(LINE,IS,NCERX,'CERARY',1) + CALL DTCINT(LINE,IS,NCERY,'CERARY',2) + CALL DTCDBL(LINE,IS,DCERX,'CERARY',3) + CALL DTCDBL(LINE,IS,DCERY,'CERARY',4) + CALL DTCDBL(LINE,IS,ACERX,'CERARY',5) + CALL DTCDBL(LINE,IS,ACERY,'CERARY',6) + +C GET CHERENKOV OUTPUT FLAG + ELSEIF ( LINE(1:6) .EQ. 'CERFIL' ) THEN + CALL DTCLOG(LINE,IS,LCERFI,'CERFIL',1) + +C GET MAXIMUM BUNCH SIZE FOR CHERENKOV PHOTONS + ELSEIF ( LINE(1:6) .EQ. 'CERSIZ' ) THEN + CALL DTCDBL(LINE,IS,CERSIZ,'CERSIZ',1) + +C GET CHERENKOV EVENT SCATTERING INFORMATION + ELSEIF ( LINE(1:5) .EQ. 'CSCAT' ) THEN + CALL DTCINT(LINE,IS,ICERML,'CSCAT',1) + CALL DTCDBL(LINE,IS,XSCATT,'CSCAT',2) + CALL DTCDBL(LINE,IS,YSCATT,'CSCAT',3) + +C GET CHERENKOV WAVELENGTH BAND + ELSEIF ( LINE(1:6) .EQ. 'CWAVLG' ) THEN + CALL DTCDBL(LINE,IS,R1,'CWAVLG',1) + CALL DTCDBL(LINE,IS,R2,'CWAVLG',2) + WAVLGL = MIN( R1, R2 ) + WAVLGU = MAX( R1, R2 ) + +C GET DATABASE FLAG + ELSEIF ( LINE(1:6) .EQ. 'DATBAS' ) THEN + CALL DTCLOG(LINE,IS,FDBASE,'DATBAS',1) + +C GET DEBUG FLAG AND DELAYED DEBUG PARAMETERS + ELSEIF ( LINE(1:5) .EQ. 'DEBUG' ) THEN + CALL DTCLOG(LINE,IS,DEBUG,'DEBUG',1) + CALL DTCINT(LINE,IS,MMM,'DEBUG',2) + CALL DTCLOG(LINE,IS,DEBDEL,'DEBUG',3) + CALL DTCINT(LINE,IS,NDEBDL,'DEBUG',4) + IF ( MMM .LE. 0 .OR. MMM .GT. 99 ) THEN + MDEBUG = 6 + ELSE + MDEBUG = MMM + ENDIF + +C GET OUTPUT DIRECTORY FOR CALCULATIONS ON UNIX-STATION + ELSEIF ( LINE(1:6) .EQ. 'DIRECT' ) THEN + CALL DTCCHR(LINE,IS,DSN,'DIRECT',1,LENVAL) + +C GET ENERGY CUTS FOR PARTICLE PRINTOUT + ELSEIF ( LINE(1:6) .EQ. 'ECTMAP' ) THEN + CALL DTCDBL(LINE,IS,ECTMAP,'ECTMAP',1) + +C GET ENERGY CUTS FOR HADRONS, MUONS, ELECTRONS, AND PHOTONS + ELSEIF ( LINE(1:5) .EQ. 'ECUTS' ) THEN + CALL DTCDBL(LINE,IS,ELCUT(1),'ECUTS',1) + CALL DTCDBL(LINE,IS,ELCUT(2),'ECUTS',2) + CALL DTCDBL(LINE,IS,ELCUT(3),'ECUTS',3) + CALL DTCDBL(LINE,IS,ELCUT(4),'ECUTS',4) + +C GET COUNTER FOR START OF EGS DEBUGGUNG + ELSEIF ( LINE(1:6) .EQ. 'EGSDEB' ) THEN + CALL DTCINT(LINE,IS,JCLOCK,'EGSDEB',1) + +C GET FLAGS FOR ELECTROMAGNETIC OPTIONS (NKG, EGS) + ELSEIF ( LINE(1:6) .EQ. 'ELMFLG' ) THEN + CALL DTCLOG(LINE,IS,FNKG,'ELMFLG',1) + CALL DTCLOG(LINE,IS,FEGS,'ELMFLG',2) + +C GET ENERGY RANGE OF PRIMARY PARTICLE + ELSEIF ( LINE(1:6) .EQ. 'ERANGE' ) THEN + CALL DTCDBL(LINE,IS,LLIMIT,'ERANGE',1) + CALL DTCDBL(LINE,IS,ULIMIT,'ERANGE',2) + +C GET SLOPE OF ENERGY SPECTRUM OF PRIMARY PARTICLE + ELSEIF ( LINE(1:6) .EQ. 'ESLOPE' ) THEN + CALL DTCDBL(LINE,IS,PSLOPE,'ESLOPE',1) + +C GET FIRST EVENT NUMBER + ELSEIF ( LINE(1:5) .EQ. 'EVTNR' ) THEN + CALL DTCINT(LINE,IS,ISHOWNO,'EVTNR',1) + ISHOWNO = MAX( ISHOWNO-1, 0 ) +c------changed-----add----- +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c get cerenkov file name with cts array specifications + elseif ( LINE(1:6) .eq. 'CERTEL' ) then + read(line(7:),'(I10)') nctels + d2r = 3.1415926535897932385/180.0 + do 1967 nct=1,nctels + read(moniin,*) (ctpars(nct,m),m=1,7) + ct = cos(ctpars(nct,ctthet)*d2r) + st = sin(ctpars(nct,ctthet)*d2r) + cp = cos(ctpars(nct,ctphi)*d2r) + sp = sin(ctpars(nct,ctphi)*d2r) + omega(nct,1,1) = cp + omega(nct,1,2) = sp + omega(nct,1,3) = 0.0 + omega(nct,2,1) = -ct*sp + omega(nct,2,2) = ct*cp + omega(nct,2,3) = st + omega(nct,3,1) = st*sp + omega(nct,3,2) = -st*cp + omega(nct,3,3) = ct +c write(moniou,*) nct,(ctpars(nct,m),m=1,7) + 1967 continue +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c---------changed-------add + +C END OF DATA CARD INPUT + ELSEIF ( LINE(1:4) .EQ. 'EXIT' ) THEN + IF ( DEBUG ) THEN + WRITE(MDEBUG,*) 'DATAC : END OF DATACARD INPUT' + ELSE + WRITE(MONIOU,*) + WRITE(MONIOU,*) 'END OF DATACARD INPUT' + ENDIF + GOTO 1001 + +C GET FIXED HEIGHT (G/CM**2) OF PARTICLE START + ELSEIF ( LINE(1:6) .EQ. 'FIXCHI' ) THEN + CALL DTCDBL(LINE,IS,THICK0,'FIXCHI',1) + +C GET FIXED HEIGHT OF FIRST INTERACTION AND FIRST TARGET + ELSEIF ( LINE(1:6) .EQ. 'FIXHEI' ) THEN + CALL DTCDBL(LINE,IS,FIXHEI,'FIXHEI',1) + CALL DTCINT(LINE,IS,N1STTR,'FIXHEI',2) + IF ( FIXHEI .GT. 0. ) FIX1I = .TRUE. + +C GET FLAG FOR GHEISHA DEBUG + ELSEIF ( LINE(1:6) .EQ. 'GHEIDB' ) THEN + CALL DTCLOG(LINE,IS,GHEISDB,'GHEIDB',1) + +C GET FLAGS FOR HADRON INTERACTION OPTIONS + ELSEIF ( LINE(1:6) .EQ. 'HADFLG' ) THEN + CALL DTCINT(LINE,IS,NFLAIN,'HADFLG',1) + CALL DTCINT(LINE,IS,NFLDIF,'HADFLG',2) + CALL DTCINT(LINE,IS,NFLPI0,'HADFLG',3) + CALL DTCINT(LINE,IS,NFLPIF,'HADFLG',4) + CALL DTCINT(LINE,IS,NFLCHE,'HADFLG',5) + CALL DTCINT(LINE,IS,NFRAGM,'HADFLG',6) + +C GET NAME OF HOST COMPUTER + ELSEIF ( LINE(1:4) .EQ. 'HOST' ) THEN + CALL DTCCHR(LINE,IS,HOST,'HOST',1,LENVAL) + +C GET PARAMETER FOR LONGITUDINAL DEVELOPMENT + ELSEIF ( LINE(1:5) .EQ. 'LONGI' ) THEN + CALL DTCLOG(LINE,IS,LLONGI,'LONGI',1) + CALL DTCDBL(LINE,IS,THSTEP,'LONGI',2) + CALL DTCLOG(LINE,IS,FLGFIT,'LONGI',3) + CALL DTCLOG(LINE,IS,FLONGOUT,'LONGI',4) + +C GET PARAMETERS OF MAGNETIC FIELD + ELSEIF ( LINE(1:6) .EQ. 'MAGNET' ) THEN + CALL DTCDBL(LINE,IS,BX,'MAGNET',1) + CALL DTCDBL(LINE,IS,BZ,'MAGNET',2) + +C GET NUMBER OF EVENTS TO BE PRINTED + ELSEIF ( LINE(1:6) .EQ. 'MAXPRT' ) THEN + CALL DTCINT(LINE,IS,MAXPRT,'MAXPRT',1) + IF ( MAXPRT .LT. 0 ) MAXPRT = 10 + +C GET FLAG FOR ADDITIONAL MUON INFORMATION ON MPATAP + ELSEIF ( LINE(1:6) .EQ. 'MUADDI' ) THEN + CALL DTCLOG(LINE,IS,FMUADD,'MUADDI',1) + +C GET FLAG FOR MUON MULTIPLE SCATTERING (T=MOLIERE, F=GAUSS) + ELSEIF ( LINE(1:6) .EQ. 'MUMULT' ) THEN + CALL DTCLOG(LINE,IS,FMOLI,'MUMULT',1) + +C GET NUMBER OF SHOWERS TO BE PRODUCED + ELSEIF ( LINE(1:5) .EQ. 'NSHOW' ) THEN + CALL DTCINT(LINE,IS,NSHOW,'NSHOW',1) + IF ( NSHOW .LE. 0 ) NSHOW = 1 + +C GET HEIGHT OF OBSERVATION LEVELS + ELSEIF ( LINE(1:6) .EQ. 'OBSLEV' ) THEN + IOBSLV = IOBSLV + 1 + IF ( IOBSLV .LE. 1 ) THEN + CALL DTCDBL(LINE,IS,OBSLEV(IOBSLV),'OBSLEV',1) + NOBSLV = IOBSLV + ELSE + WRITE(MONIOU,*) 'DATAC : ONLY ONE OBSERVATION LEVEL ,', + * 'POSSIBLE IN CURVED VERSION' + STOP + ENDIF + +C GET NEW MONITOR OUTPUT UNIT + ELSEIF ( LINE(1:6) .EQ. 'OUTPUT' ) THEN + CALL DTCINT(LINE,IS,MONNEW,'OUTPUT',1) + WRITE(MONIOU,593) MONIOU,MONNEW + 593 FORMAT(' ATTENTION'/' ========='/ + * ' LOGFILE OUTPUT REDIRECTED FROM UNIT ',I3, + * ' TO UNIT ',I3) + MONIOU = MONNEW + +C GET FLAGS FOR PARTICLE AND TABLE OUTPUT + ELSEIF ( LINE(1:6) .EQ. 'PAROUT' ) THEN + CALL DTCLOG(LINE,IS,FPAROUT,'PAROUT',1) + CALL DTCLOG(LINE,IS,FTABOUT,'PAROUT',2) + +C GET PHI OF PRIMARY PARTICLE + ELSEIF ( LINE(1:4) .EQ. 'PHIP' ) THEN + CALL DTCDBL(LINE,IS,R1,'PHIP',1) + CALL DTCDBL(LINE,IS,R2,'PHIP',2) + PHIPR(1) = MIN( R1, R2 ) + PHIPR(2) = MAX( R1, R2 ) + +C GET TYPE OF PRIMARY PARTICLE + ELSEIF ( LINE(1:6) .EQ. 'PRMPAR' ) THEN + CALL DTCINT(LINE,IS,NNTYP,'PRMPAR',1) + PRMPAR(1) = NNTYP + +C GET WIDTH OF NKG LATERAL DISTRIBUTION + ELSEIF ( LINE(1:6) .EQ. 'RADNKG' ) THEN + CALL DTCDBL(LINE,IS,RADNKG,'RADNKG',1) + +C GET RUN NUMBER + ELSEIF ( LINE(1:5) .EQ. 'RUNNR' ) THEN + CALL DTCINT(LINE,IS,NRRUN,'RUNNR',1) + NRRUN = ABS(NRRUN) + +C GET SEEDS OF RANDOM NUMBER SEQUENCES + ELSEIF ( LINE(1:4) .EQ. 'SEED' ) THEN + ISEQ = ISEQ + 1 + IF ( ISEQ .LE. 10 ) THEN + CALL DTCINT(LINE,IS,ISEED(1,ISEQ),'SEED',1) + CALL DTCINT(LINE,IS,ISEED(2,ISEQ),'SEED',2) + CALL DTCINT(LINE,IS,ISEED(3,ISEQ),'SEED',3) + NSEQ = ISEQ + ELSE + WRITE(MONIOU,*) 'DATAC : TOO MANY RANDOM GENERATOR SEEDS,', + * ' IGNORE IT' + ENDIF + +C GET FACTOR FOR ELECTRON'S MULTIPLE SCATTERING LENGTH + ELSEIF ( LINE(1:6) .EQ. 'STEPFC' ) THEN + CALL DTCDBL(LINE,IS,STEPFC,'STEPFC',1) + +C GET THETA OF PRIMARY PARTICLE + ELSEIF ( LINE(1:6) .EQ. 'THETAP' ) THEN + CALL DTCDBL(LINE,IS,R1,'THETAP',1) + CALL DTCDBL(LINE,IS,R2,'THETAP',2) + THETPR(1) = MIN( R1, R2 ) + THETPR(2) = MAX( R1, R2 ) + +C GET NAME OF USER + ELSEIF ( LINE(1:4) .EQ. 'USER' ) THEN + CALL DTCCHR(LINE,IS,USER,'USER',1,LENVAL) + +C GET VENUS PARAMETER WITH CODE WORD AND VALUE + ELSEIF ( LINE(1:6) .EQ. 'VENPAR' ) THEN + IPARAM = IPARAM + 1 + IF ( IPARAM .LE. 100 ) THEN + CALL DTCCHR(LINE,IS,PARCHA(IPARAM),'VENPAR',1,LENVAL) + CALL DTCRL(LINE,IS,PARVAL(IPARAM),'VENPAR',2) + NPARAM = IPARAM + ELSE + WRITE(MONIOU,*) 'DATAC : TOO MANY VENUS PARAMETERS,', + * ' IGNORE IT' + ENDIF + +C GET CROSS-SECTION FLAG FOR VENUS HADRONIC INTERACTION MODEL + ELSEIF ( LINE(1:6) .EQ. 'VENSIG' ) THEN + CALL DTCLOG(LINE,IS,FVENSG,'VENSIG',1) + +C GET FLAG FOR VENUS HIGH ENERGY HADRONIC INTERACTION MODEL +C GET PARAMETER ISH00 FOR AMOUNT OF VENUS DEBUG + ELSEIF ( LINE(1:5) .EQ. 'VENUS' ) THEN + CALL DTCLOG(LINE,IS,FVENUS,'VENUS',1) + CALL DTCINT(LINE,IS,ISH00,'VENUS',2) + +C GET CIRCULAR ANGLE RANGE FROM (FIXED) THETA AND PHI DIRECTION +C WHERE SIMULATED SHOWER DIRECTION SHOULD BE. + ELSEIF (LINE(1:8) .EQ. 'VIEWCONE' ) THEN + CALL DTCDBL(LINE,IS,R1,'VIEWCONE',1) + CALL DTCDBL(LINE,IS,R2,'VIEWCONE',2) + VUECON(1) = MIN(R1,R2) + VUECON(2) = MAX(R1,R2) + +C ILLEGAL KEYWORD + ELSE + IE = INDEX(LINE,' ') + IF ( IE.LE.0 ) IE = LEN(LINE)+1 + WRITE(MONIOU,*) 'DATAC : UNKNOWN KEYWORD : ',LINE(1:IE-1) + NUMERR = NUMERR + 1 + ENDIF + + IF ( LINE(1:1) .EQ. '!' ) NUMERR = NUMERR + 1 + + GOTO 1 + +C----------------------------------------------------------------------- + 1000 CONTINUE + IF ( DEBUG ) THEN + WRITE(MDEBUG,*) 'DATAC : NO MORE DIRECTIVES FOUND' + ELSE + WRITE(MONIOU,*) '*** NO MORE DIRECTIVES FOUND ***' + ENDIF + + 1001 IF ( NUMERR .GT. 0 ) THEN + WRITE(MONIOU,9000) NUMERR + 9000 FORMAT(1X,I3,' SYNTAX ERROR(S) IN INPUT DATA CARDS.') + STOP 'BAD DATA CARDS' + ENDIF + + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE DECAY1( M0,M3,M4 ) + +C----------------------------------------------------------------------- +C DECAY (INTO TWO PARTICLES) +C +C TWO PARTICLE DECAY WITH FULL KINEMATIC; ENERGY AND MOMENTA CONSERVED +C THIS SUBROUTINE IS CALLED FROM KDECAY, RESDEC, AND STRDEC. +C ARGUMENTS: +C M0 = TYPE OF DECAYING PARTICLE +C M3 = TYPE OF FIRST PRODUCT PARTICLE (HADRON) +C M4 = TYPE OF SECOND PRODUCT PARTICLE (HADRON OR GAMMA) +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AUX1,AUX2,AUX2A,AUX3,AUX4,COSTCM,COSTH3,COSTH4, + * GAMMA3,GAMMA4,PHI4,WORK1,WORK2 + INTEGER I,M0,M3,M4 + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) BETA,M0,M3,M4 + 444 FORMAT(' DECAY1: BETA,M0,M3,M4=',1P,E10.3,3I5) + +C PARTICLE COORDINATES 5..10 ARE COPIED INTO SECPAR IN CALLING PROGRAM +C CALCULATE AUXILIARY QUANTITIES + AUX1 = ( ( PAMA(M0)**2 + PAMA(M3)**2 - PAMA(M4)**2 ) + * / (2.D0*PAMA(M0)) )**2 - PAMA(M3)**2 + AUX2 = 1.D0 + AUX1 / PAMA(M3)**2 + AUX2A = SQRT(AUX2) + AUX3 = SQRT( 1.D0 - 1.D0 / AUX2 ) + + WORK1 = GAMMA * AUX2A + WORK2 = AUX3 * BETA * WORK1 + +C DETERMINE POLAR ANGLE IN CM SYSTEM + CALL RMMAR( RD,2,1 ) + COSTCM = 2.D0 * RD(1) - 1.D0 + GAMMA3 = WORK1 + WORK2 * COSTCM +C SECOND PRODUCT PARTICLE WITH NONVANISHING REST MASS + IF ( PAMA(M4) .NE. 0.D0 ) THEN + GAMMA4 = (PAMA(M0)*GAMMA - PAMA(M3)*GAMMA3) / PAMA(M4) + AUX4 = (PAMA(M0)**2 + PAMA(M4)**2 - PAMA(M3)**2 ) + * / (2.D0*PAMA(M0)*PAMA(M4)) + COSTH4 = MIN( 1.D0, (GAMMA*GAMMA4 - AUX4) + * / (BETA * GAMMA * SQRT(GAMMA4**2 - 1.D0)) ) + ELSE +C SECOND PRODUCT PARTICLE IS GAMMA; THEN GAMMA4 IS THE ENERGY + GAMMA4 = PAMA(M0)*GAMMA - PAMA(M3)*GAMMA3 + COSTH4 = MIN( 1.D0, (BETA - COSTCM)/(1.D0 - BETA*COSTCM) ) + ENDIF + PHI4 = RD(2)*PI2 + CALL ADDANG( COSTHE,PHI, COSTH4,PHI4, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = M4 + SECPAR(2) = GAMMA4 + IF ( DEBUG ) WRITE(MDEBUG,445) (SECPAR(I),I=1,9) + 445 FORMAT(' DECAY1: SECPAR=',1P,8E10.3,0P,F10.0) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( M4 .EQ. 1 ) THEN + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + GAMMA4 + ELSE + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAMMA4 * PAMA(M4) + ENDIF + ENDIF + ENDIF +C FIRST PRODUCT PARTICLE + COSTH3 = MIN( 1.D0, (GAMMA * GAMMA3 - AUX2A) + * / (BETA * GAMMA * SQRT(GAMMA3**2 - 1.D0)) ) + CALL ADDANG( COSTHE,PHI, COSTH3,PHI4+PI, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = M3 + SECPAR(2) = GAMMA3 + IF ( DEBUG ) WRITE(MDEBUG,445) (SECPAR(I),I=1,9) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( M3 .EQ. 13 .OR. M3 .EQ. 14 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + (GAMMA3-1.D0)*PAMA(M3) + ELSEIF ( M3 .EQ. 15 .OR. M3 .EQ. 25 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + (GAMMA3+1.D0)*PAMA(M3) + ELSE + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAMMA3 * PAMA(M3) + ENDIF + ENDIF + ENDIF + + RETURN + END +*CMZ : 13/06/2001 15.08.42 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE DECAY6(AM0,AM3,AM4,AM5,PARAMA,PARAMB,PARAMC,AMPMX,MODE) + +C----------------------------------------------------------------------- +C DECAY (INTO 3 PARTICLES) +C +C TREATES DECAY INTO 3 PARTICLES; FULLY CONSERVING ENERGY AND MOMENTA +C KINEMATIC RANGE PARAMETRISATION SEE PHYS. LETT. 204B (1988) 90-91 +C FOR LEPTONIC KAON DACAY: THE POLARIZATION OF THE MUON AND +C THE NEUTRINO PRODUCTION IS INCLUDED. +C THIS SUBROUTINE IS CALLED FROM ETADEC, KDECAY, PI0DEC, AND RESDEC. +C ARGUMENTS: +C AM0 = MASS OF DECAYING PARTICLE +C AM3, AM4, AM5 = MASSES OF RESULTING PARTICLES +C PARAMA = DALITZ AMPLITUDE PARAMETER (SEE BELOW) +C PARAMB = DALITZ AMPLITUDE PARAMETER (SEE BELOW) +C PARAMC = DALITZ AMPLITUDE PARAMETER (SEE BELOW) +C AMPMX = MAXIMUM AMPLITUDE OF DALITZ PLOT +C MODE = 1 FOR DECAY KAON ----> 3 PIONS +C = 2 FOR DECAY ETA ----> 3 PIONS OR 2 PIONS + GAMMA +C FOR DECAY PI(0) ----> ELECTRON + POSITRON + GAMMA +C = 3 FOR DECAY KAON ----> PION + MUON + NEUTRINO +C = 4 FOR DECAY KAON ----> PION + ELECTRON + NEUTRINO +C +C AMPLITUDE PARAMETERS PARAMA, PARAMB, PARAMC ARE DEPENDENT ON MODE: +C FOR MODE=1: PARAMA = G DALITZ AMPLITUDE PARAMETRISATION SEE +C PARAMB = H PHYS. LETT. 204B (1988) 181 - 193 +C PARAMC = K +C +C FOR MODE=2: PARAMA = A DALITZ AMPLITUDE PARAMETRISATION SEE +C PARAMB = DUMMY PHYS. LETT. 204B (1988) 173 - 175; +C PARAMC = DUMMY J.G. LAYTER ET.AL. PHYS.REV.D7(1973)2565 +C +C FOR MODE>2: PARAMA = LAMBDA-PLUS DALITZ AMPLITUDE PARAMETRISATION +C PARAMB = LAMBDA-ZERO SEE PHYS. LETT. 204B (1988) +C PARAMC = DUMMY 182 - 194 +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DECAY. + COMMON /DECAY/ GAM345,COS345,PHI345 + DOUBLE PRECISION GAM345(3),COS345(3),PHI345(3) +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ABYM,AMPLI,AMPMX,AM0,AM3,AM34I,AM34SQ,AM35SQ, + * AM4,AM5,APARAL,APERPN,AUXA,AUXB,AUX1,AUX2,AUX2A, + * AUX3,AUX4,AUX4A,AUX5,AUX6,AUX7,AUX8,AUX10,AUX12, + * AUX14,BBYM,BOFQ,CM0SQ,CM3SQ,CM3SQI,CM4SQ,CM5SQ, + * COSALF,COSBET,COSFI4,COSFI5,COSOME,COSPHI, + * COSPSI,COS3CM,COS4CM,COS5CM, + * DISCR,EPIPRM,E3CM,E3STAR,E4CM,E5CM,E5STAR,FACT, + * GRLAMD,OMEGA,PA,PARAMA,PARAMB,PARAMC,PB,PC,PSI, + * P3CM,P3SQ,P4CM,P4SQ,P5CM,P5SQ,ROOT1,ROOT2, + * SINALF,SINBET,SINFI4,SINFI5,SINOMG,SINPHI,SINPSI, + * SINT4,SINT4I,SINT5I,SIN3CM,S0,TBYMSS,XIT,XI0 + INTEGER MODE + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) AM0,AM3,AM4,AM5 + 444 FORMAT(' DECAY6: AM0',1P,E10.3,' AM3',E10.3,' AM4',E10.3, + * ' AM5',E10.3) + +C CALCULATE AUXILIARY QUANTITIES + CM0SQ = AM0**2 + CM3SQ = AM3**2 + CM4SQ = AM4**2 + CM5SQ = AM5**2 + AUX1 = (AM3 + AM4)**2 + AUX2A = (AM0 - AM5)**2 + AUX2 = AUX2A - AUX1 + AUX3 = (AM3 + AM5)**2 + AUX4A = (AM0 - AM4)**2 + AUX4 = AUX4A - AUX3 + AUX5 = CM3SQ - CM4SQ + AUX6 = CM0SQ - CM5SQ + AUX7 = 0.5D0 / AM0 + IF ( MODE .EQ. 1 ) THEN + AUX8 = (AM0 - AM3)**2 + S0 = OB3 * ( CM0SQ + CM3SQ + CM4SQ + CM5SQ ) + AUX10 = 1.D0 / PAMA(8)**2 + ELSEIF ( MODE .EQ. 2 ) THEN + AUX14 = 1.D0 / (AM0 - AM3 - AM4 - AM5) + ELSEIF ( MODE .EQ. 3 .OR. MODE .EQ. 4 ) THEN + CM3SQI = 1.D0 / CM3SQ + AUX12 = (CM0SQ + CM3SQ - CM4SQ) * AUX7 +C XI0 IS XI(0); GRLAMD IS GREAT LAMBDA + XI0 = ( CM0SQ - CM3SQ) * CM3SQI * (PARAMB - PARAMA) + GRLAMD = (-XI0) * PARAMA + ELSE + WRITE(MONIOU,*) 'DECAY6: UNEXPECTED MODE =',MODE + RETURN + ENDIF + + 100 CALL RMMAR( RD,3,1 ) +C ARE INVARIANT MASS SQUARES INSIDE BOUNDARY OF DALITZ PLOT? + AM34SQ = AUX2 * RD(1) + AUX1 + AM35SQ = AUX4 * RD(2) + AUX3 + AM34I = 0.5D0 / SQRT(AM34SQ) + E3STAR = (AUX5 + AM34SQ) * AM34I + E5STAR = (AUX6 - AM34SQ) * AM34I + ROOT1 = SQRT(E3STAR**2 - CM3SQ ) + ROOT2 = SQRT(E5STAR**2 - CM5SQ ) + DISCR = AM35SQ - (E3STAR + E5STAR)**2 +C REJECT RANDOM NUMBERS, IF OUTSIDE KINEMATIC BOUNDARY OF DALITZ PLOT + IF ( DISCR .GT. -((ROOT1 - ROOT2)**2) ) GOTO 100 + IF ( DISCR .LT. -((ROOT1 + ROOT2)**2) ) GOTO 100 +C E3CM, E4CM, E5CM ARE ENERGIES IN THE C. M. SYSTEM + E4CM = (CM0SQ + CM4SQ - AM35SQ) * AUX7 + E5CM = (CM0SQ + CM5SQ - AM34SQ) * AUX7 + E3CM = AM0 - E4CM - E5CM + + IF ( MODE .EQ. 1 ) THEN + FACT = AUX10 * (AUX2A - 2.D0*AM0*(E5CM-AM5) - S0) +C AMPLITUDE OF SQUARED MATRIX ELEMENT (SEE PHYS. LETT. B204 (1988) 181) + AMPLI = 1.D0 + PARAMA*FACT + PARAMB*FACT**2 + PARAMC*( AUX10 + * * ( AUX4A -AUX8 -2.D0*(E4CM-AM4-E3CM+AM3)*AM0 ) )**2 + + ELSEIF ( MODE .EQ. 2 ) THEN +C AMPLITUDE OF SQUARED MATRIX ELEMENT (SEE PHYS. LETT. B204 (1988) 173) +C REF: J. G. LAYTER ET AL., PHYS. REV. D7 (1973) 2565 + AMPLI = 1.D0 + PARAMA * ( 3.D0 * (E5CM - AM5) * AUX14 - 1.D0 ) + + ELSE +C EPIPRM IS (ENERGY OF PION)PRIMED + EPIPRM = AUX12 - E3CM +C PA, PB, AND PC ARE THE A, B, AND C PARAMETERS + PA = AM0 * ( 2.D0 * E4CM * E5CM - AM0 * EPIPRM ) + * + CM4SQ * ( 0.25D0 * EPIPRM - E5CM ) + PB = CM4SQ * ( E5CM - 0.5D0 * EPIPRM ) + PC = CM4SQ * EPIPRM * 0.25D0 +C TBYMSS IS T DIVIDED BY MASS SQUARE OF PION + TBYMSS = (CM0SQ + CM3SQ - 2.D0 * AM0 * E3CM) * CM3SQI +C XIT IS XI(T) + XIT = XI0 + GRLAMD*TBYMSS +C AMPLITUDE OF SQUARED MATRIX ELEMENT (PHYS. LETT. B204 (1988) 183) + AMPLI = (1.D0 + PARAMA*TBYMSS)**2 * ( PA + XIT*PB + XIT**2 *PC ) + ENDIF + +C REJECT RANDOM NUMBERS, IF RD(3) IS LARGER THAN DALITZ PLOT AMPLITUDE + IF ( RD(3)*AMPMX .GT. AMPLI ) GOTO 100 + + IF (DEBUG) WRITE(MDEBUG,*) 'DECAY6: E3CM,E4CM,E5CM=', + * SNGL(E3CM),SNGL(E4CM),SNGL(E5CM) +C P3CM, P4CM, P5CM ARE MOMENTA IN THE C.M. SYSTEM +C P3SQ, P4SQ, P5SQ ARE SQUARED MOMENTA IN C.M. SYSTEM + P5SQ = E5CM**2 - CM5SQ + P5CM = SQRT(P5SQ) + P4SQ = E4CM**2 - CM4SQ + P4CM = SQRT(P4SQ) + P3SQ = E3CM**2 - CM3SQ + P3CM = SQRT(P3SQ) +C ANGLE ALFA AND BETA ARE BETWEEN PARTICLE 3 AND 4 RSP. 3 AND 5 + COSALF = (P5SQ - P3SQ - P4SQ) / (2.D0 * P3CM * P4CM) + SINALF = -SQRT( MAX(0.D0, 1.D0 - COSALF**2) ) + COSBET = (P4SQ - P3SQ - P5SQ) / (2.D0 * P3CM * P5CM) + SINBET = SQRT( MAX(0.D0, 1.D0 - COSBET**2) ) +C NOW SELECT RANDOM NUMBERS FOR THREE INDEPENDENT ANGLES IN CM-SYSTEM +C COS3CM AND PHI ARE ANGLES OF PARTICLE 3 RELATIVE TO DECAYING PARTICLE + CALL RMMAR( RD,3,1 ) + COS3CM = 2.D0*RD(1) - 1.D0 + SIN3CM = SQRT( MAX(0.D0, 1.D0 - COS3CM**2) ) + PHI345(1) = PI2 * RD(2) + COSPHI = COS( PHI345(1) ) + SINPHI = SIN( PHI345(1) ) +C ANGLE PSI GIVES ROTATION OF PLANE (3,4,5) RELATIVE TO PLANE (1,3) + PSI = PI2 * RD(3) + COSPSI = COS(PSI) + SINPSI = SIN(PSI) +C CALCULATE ALL NEEDED POLAR AND AZIMUTHAL ANGLES IN THE CM-SYSTEM + COS4CM = COS3CM * COSALF - SIN3CM * COSPSI * SINALF + IF ( ABS(COS4CM) .LT. 1.D0 ) THEN + SINT4 = SQRT(1.D0 - COS4CM**2) + SINT4I = 1.D0 / SINT4 + AUXA = COS3CM * COSPSI * SINALF + SIN3CM * COSALF + COSFI4 = (COSPHI*AUXA-SINPHI*SINPSI*SINALF) * SINT4I + PHI345(2) = ACOS( MAX( -1.D0, MIN( 1.D0, COSFI4 ) ) ) + SINFI4 = (SINPHI*AUXA+COSPHI*SINPSI*SINALF) * SINT4I + IF ( SINFI4 .LE. 0.D0 ) PHI345(2) = PI2 - PHI345(2) + ELSE + PHI345(2) = 0.D0 + ENDIF +C CALCULATE GAMMA FACTORS AND POLAR ANGLES IN LABORATORY SYSTEM + GAM345(1) = GAMMA * (E3CM + BETA * P3CM * COS3CM) / AM3 + COS345(1) = MIN( 1.D0, (BETA * E3CM + P3CM * COS3CM) * GAMMA + * / ( AM3 * SQRT(GAM345(1)**2 - 1.D0) ) ) + GAM345(2) = GAMMA * (E4CM + BETA * P4CM * COS4CM) / AM4 + COS345(2) = MIN( 1.D0, (BETA * E4CM + P4CM * COS4CM) * GAMMA + * / ( AM4 * SQRT(GAM345(2)**2 - 1.D0) ) ) +C CALCULATE PARAMETERS OF PARTICLE 5, IF NEEDED + IF ( MODE .LE. 2 ) THEN + COS5CM = COS3CM * COSBET - SIN3CM * COSPSI * SINBET + IF ( ABS(COS5CM) .LT. 1.D0 ) THEN + SINT5I = 1.D0 / SQRT(1.D0 - COS5CM**2) + AUXB = COS3CM * COSPSI * SINBET + SIN3CM * COSBET + COSFI5 = (COSPHI*AUXB-SINPHI*SINPSI*SINBET) * SINT5I + PHI345(3) = ACOS( MAX( -1.D0, MIN( 1.D0, COSFI5 ) ) ) + SINFI5 = (SINPHI*AUXB+COSPHI*SINPSI*SINBET) * SINT5I + IF ( SINFI5 .LE. 0.D0 ) PHI345(3) = PI2 - PHI345(3) + ELSE + PHI345(3) = 0.D0 + ENDIF + IF ( AM5 .NE. 0.D0 ) THEN + GAM345(3) = GAMMA * (E5CM + BETA * P5CM * COS5CM) / AM5 + COS345(3) = MIN( 1.D0, (BETA * E5CM + P5CM * COS5CM) * GAMMA + * / ( AM5 * SQRT(GAM345(3)**2 - 1.D0) ) ) + ELSE +C IF PARTICLE 5 IS GAMMA RAY OR NEUTRINO, THEN GAM345(3) IS THE ENERGY + GAM345(3) = GAMMA * (E5CM + BETA * P5CM * COS5CM) + COS345(3) = MIN( 1.D0, (BETA * E5CM + P5CM * COS5CM) * GAMMA + * / GAM345(3) ) + ENDIF + ENDIF + + IF ( MODE .EQ. 3 ) THEN +C CALCULATION OF MUON POLARIZATION. WE FOLLOW THE DESCRIPTION OF +C L. JAUNEAU, IN: METHODS IN SUBNUCLEAR PHYSICS, VOL. 3, M. NIKOLIC ED. +C (GORDON + BREACH, NEW YORK, 1969), P. 123 +C SEE ALSO: L.M. CHOUNET ET AL., PHYS. REP. 4 (1972) 199, APPENDIX 1. +C SEE ALSO: N. CABBIBO, A. MAKSYMOWICZ, PHYS. LETT. 9 (1964) 352 +C (CORRECTIONS IN: PHYS. LETT. 11 (1964) 360; 14 (1965) 72) +C WE DEFINE BOFQ (READ: B OF Q), WHICH IS -B(Q**2)*4 + BOFQ = 1.D0 - XIT +C ABYM AND BBYM (READ A BY M; B BY M) ARE THE QUANTITIES A/M AND B/M + ABYM = AM0 * ( BOFQ * EPIPRM - 2.D0 * E5CM ) + BBYM = CM0SQ + 0.25D0 * CM4SQ * BOFQ**2 - BOFQ * AM0 * E4CM +C NOW CALCULATE THE COMPONENTS APARAL (PARALLEL TO MU DIRECTION) AND +C APERPN (PERPENDICULAR TO MU DIRECTION) USING QUANTITIES DEFINED IN +C KAON REST SYSTEM. NOTE OUR DEFINITION OF SINALF (ALWAYS WITH NEGATIVE +C SIGN) OPPOSITE TO CABBIBO'S SIN(PSI) AND JAUNEAU'S SIN(THETA) + APARAL = (-P3CM)*AM4*BBYM*COSALF - P4CM * ( AM0*ABYM - BBYM * + * ( P3CM*SINALF*(E4CM-AM4)/P4CM + AM0 - E3CM ) ) + APERPN = P3CM*AM4*BBYM*SINALF +C NOW NORMALIZE THE PARALLEL COMPONENT OF POLARIZATION; POLART IS +C COSINE OF THE ANGLE BETWEEN MUON MOMENTUM AND POLARISATION + POLART = APARAL / SQRT(APARAL**2 + APERPN**2) +C THE POLARIZATION VECTOR LIES IN THE PLANE OF MOMENTA (PION,MUON). +C OMEGA IS THE ANGLE BY WHICH THE DECAY PLANE (PION,MUON) IS ROTATET +C AROUND THE DIRECTION OF MUON RELATIVE TO THE PLANE (KAON,MUON) + IF ( ABS(COS4CM) .LT. 1.D0 .AND. SINALF .NE. 0.D0 ) THEN + COSOME = (COS4CM*COSALF - COS3CM)*SINT4I/SINALF + OMEGA = ACOS( MAX( -1.D0, MIN( 1.D0, COSOME ) ) ) + IF ( SINFI4 .NE. 0.D0 ) THEN + SINOMG = ( COSFI4 * ( COSALF - COS3CM*COS4CM ) * SINT4I + * - SIN3CM * COSPHI ) / (SINALF*SINFI4) + IF ( SINOMG .LT. 0.D0 ) OMEGA = PI2 - OMEGA + ENDIF + ELSE + OMEGA = 0.D0 + ENDIF + POLARF = OMEGA + ENDIF + + RETURN + END +*CMZ : 28/02/2002 10.53.59 by D. HECK IK FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE DTCCHR (LINE,IS,CVAL,KEYWRD,IKEY,LENVAL) + +C----------------------------------------------------------------------- +C D(A)T(A) C(ARD) CH(A)R(ACTER) +C +C READ CHARACTER PARAMETER FROM DATA CARD CHARACTER STRING +C ERRORS ARE INDICATED BY WRITING A '!' IN LINE(1:1) +C THIS SUBROUTINE IS CALLED FROM DATAC. +C ARGUMETNS: +C LINE = CHARACTER STRING OF INPUT LINE +C IS = POINTER FOR START OF INTERPRETATION OF 'LINE' +C CVAL = CHARACTER STRING TO BE RETURNED +C KEYWORD= KEYWORD AT BEGIN OF LINE +C IKEY = NUMBER OF ARGUMENT AFTER KEYWORD +C LENVAL = LENGTH OF CHARACTER STRING TO BE RETURNED +C +C AUTHOR: K. BERNLOEHR MPIK HEIDELBERG 1998 +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER I,IE,IKEY,IQUOTE,IS,L,LENVAL + CHARACTER CVAL*(*),KEYWRD*(*),LINE*(*) + SAVE +C----------------------------------------------------------------------- + + IF ( IS.LE.0 ) IS = LEN(KEYWRD) + + L = LEN(LINE) + DO 10 I = IS+1,L + IF ( LINE(I:I) .NE. ' ' ) GOTO 11 + 10 CONTINUE + 11 IF ( I.GT.L .OR. LINE(I:I).EQ.'!' .OR. LINE(I:I).EQ.' ') THEN + IF ( IKEY .LE. 1 ) THEN + WRITE(MONIOU,6000) KEYWRD + 6000 FORMAT(1X,'DATACARD ',A,' HAS NO PARAMETER(S)') + ELSE + WRITE(MONIOU,6001) KEYWRD,IKEY + 6001 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2,' IS MISSING') + ENDIF + CVAL = ' ' + LINE(1:1) = '!' + LENVAL = 0 + RETURN + ENDIF + IF ( LINE(I:I) .EQ. '''' ) THEN + IQUOTE = 1 + IS = I+1 + ELSEIF ( LINE(I:I) .EQ. '"' ) THEN + IQUOTE = 2 + IS = I+1 + ELSE + IQUOTE = 0 + IS = I + ENDIF + DO 20 I = IS,L + IF ( IQUOTE .EQ. 1 ) THEN + IF ( LINE(I:I) .EQ. '''' ) GOTO 21 + ELSEIF ( IQUOTE .EQ. 2 ) THEN + IF ( LINE(I:I) .EQ. '"' ) GOTO 21 + ELSE + IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) GOTO 21 + ENDIF + 20 CONTINUE + 21 IE = I + IF ( IQUOTE .EQ. 1 ) THEN + IF ( LINE(I:I) .EQ. '''' ) THEN + IE = I-1 + LINE(I:I) = ' ' + ENDIF + ELSEIF ( IQUOTE .EQ. 2 ) THEN + IF ( LINE(I:I) .EQ. '"' ) THEN + IE = I-1 + LINE(I:I) = ' ' + ENDIF + ELSEIF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) THEN + IE = I-1 + ENDIF +* WRITE(*,6666) KEYWRD,IKEY,IS,IE,LINE(IS:IE) +*6666 FORMAT(1X,'DTCCHR : ',A,' #',I3,I4,I4,': ',A) + + CVAL = LINE(IS:IE) + LENVAL = IE-IS+1 + IF ( LEN(CVAL) .LT. IE-IS+1 ) THEN + WRITE(MONIOU,6002) + * KEYWRD,IKEY,IE-IS+1,LEN(CVAL),CVAL + 6002 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2,' IS TOO LONG AND HAS', + * ' BEEN TRUNCATED FROM',I4,' TO',I4,':'/5X,'''',A,'''') + LINE(1:1) = '!' + LENVAL = LEN(CVAL) + ENDIF + + IS = IE + + IF ( DEBUG ) WRITE(MDEBUG,6667) CVAL + 6667 FORMAT(1X,'DTCCHR : VALUE = ''',A,'''') + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE DTCDBL (LINE,IS,DVAL,KEYWRD,IKEY) + +C----------------------------------------------------------------------- +C D(A)T(A) C(ARD) D(OU)BL(E PRECISION) +C +C READ DOUBLE PRECISION PARAMETER FROM DATA CARD CHARACTER STRING +C ERRORS ARE INDICATED BY WRITING A '!' IN LINE(1:1) +C THIS SUBROUTINE IS CALLED FROM DATAC. +C ARGUMETNS: +C LINE = CHARACTER STRING OF INPUT LINE +C IS = POINTER FOR START OF INTERPRETATION OF 'LINE' +C DVAL = DOUBLE PRECISION VARIABLE TO BE RETURNED +C KEYWORD= KEYWORD AT BEGIN OF LINE +C IKEY = NUMBER OF ARGUMENT AFTER KEYWORD +C +C AUTHOR: K. BERNLOEHR MPIK HEIDELBERG 1998 +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION DVAL + INTEGER I,IE,IKEY,IS,L + CHARACTER CFMTR*8,KEYWRD*(*),LINE*(*) + SAVE +C----------------------------------------------------------------------- + + IF ( IS.LE.0 ) IS = LEN(KEYWRD) + + L = LEN(LINE) + DO 10 I = IS+1,L + IF ( LINE(I:I) .NE. ' ' ) GOTO 11 + 10 CONTINUE + 11 IF ( I.GT.L .OR. LINE(I:I).EQ.'!' .OR. LINE(I:I).EQ.' ') THEN + IF ( IKEY .LE. 1 ) THEN + WRITE(MONIOU,6000) KEYWRD + 6000 FORMAT(1X,'DATACARD ',A,' HAS NO PARAMETER(S)') + ELSE + WRITE(MONIOU,6001) KEYWRD,IKEY + 6001 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2,' IS MISSING') + ENDIF + DVAL = 0.D0 + LINE(1:1) = '!' + RETURN + ENDIF + IS = I + DO 20 I = IS+1,L + IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) GOTO 21 + 20 CONTINUE + 21 IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) THEN + IE = I-1 + ELSE + IE = I + ENDIF +* WRITE(*,*) 'DTCDBL : ',KEYWRD,' #',IKEY,IS,IE,': ',LINE(IS:IE) + IF ( IE-IS+1 .LT. 10 ) THEN + CFMTR = '(F .0)' + WRITE(CFMTR(3:3),'(I1)') IE-IS+1 + ELSE + CFMTR = '(F .0)' + WRITE(CFMTR(3:4),'(I2)') IE-IS+1 + ENDIF + READ(LINE(IS:IE),CFMTR,ERR=999) DVAL + + IS = IE + + IF ( DEBUG ) WRITE(MDEBUG,*) 'DTCDBL : VALUE = ',DVAL + RETURN + + 999 WRITE(MONIOU,6002) KEYWRD,IKEY,LINE(IS:IE) + 6002 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2, + * ' IS INVALID: ',A) + LINE(1:1) = '!' + DVAL = 0.D0 + IS = IE + + IF ( DEBUG ) WRITE(MDEBUG,*) 'DTCDBL : VALUE = ',DVAL + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE DTCINT (LINE,IS,IVAL,KEYWRD,IKEY) + +C----------------------------------------------------------------------- +C D(A)T(A) C(ARD) INT(EGER) +C +C READ INTEGER PARAMETER FROM DATA CARD CHARACTER STRING +C ERRORS ARE INDICATED BY WRITING A '!' IN LINE(1:1) +C THIS SUBROUTINE IS CALLED FROM DATAC. +C ARGUMETNS: +C LINE = CHARACTER STRING OF INPUT LINE +C IS = POINTER FOR START OF INTERPRETATION OF 'LINE' +C IVAL = INTEGER VARIABLE TO BE RETURNED +C KEYWORD= KEYWORD AT BEGIN OF LINE +C IKEY = NUMBER OF ARGUMENT AFTER KEYWORD +C +C AUTHOR: K. BERNLOEHR MPIK HEIDELBERG 1998 +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER I,IE,IKEY,IS,IVAL,L + CHARACTER CFMTI*8,KEYWRD*(*),LINE*(*) + SAVE +C----------------------------------------------------------------------- + + IF ( IS .LE. 0 ) IS = LEN(KEYWRD) + + L = LEN(LINE) + DO 10 I = IS+1,L + IF ( LINE(I:I) .NE. ' ' ) GOTO 11 + 10 CONTINUE + 11 IF ( I.GT.L .OR. LINE(I:I).EQ.'!' .OR. LINE(I:I).EQ.' ' ) THEN + IF ( IKEY.LE.1 ) THEN + WRITE(MONIOU,6000) KEYWRD + 6000 FORMAT(1X,'DATACARD ',A,' HAS NO PARAMETER(S)') + ELSE + WRITE(MONIOU,6001) KEYWRD,IKEY + 6001 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2,' IS MISSING') + ENDIF + IVAL = 0 + LINE(1:1) = '!' + RETURN + ENDIF + IS = I + DO 20 I = IS+1,L + IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) GOTO 21 + 20 CONTINUE + 21 IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) THEN + IE = I-1 + ELSE + IE = I + ENDIF +* WRITE(*,*) 'DTCINT : ',KEYWRD,' #',IKEY,IS,IE,': ',LINE(IS:IE) + DO 30 I = IS,IE + IF ( (ICHAR(LINE(I:I)) .LT. ICHAR('0') .OR. + * ICHAR(LINE(I:I)) .GT. ICHAR('9')) .AND. + * (LINE(I:I) .NE. '-' .OR. I .NE. IS) ) THEN + WRITE(MONIOU,6002) KEYWRD,IKEY,LINE(IS:IE) + 6002 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2, + * ' IS NOT INTEGER: ',A) + IS = IE + IVAL = 0 + LINE(1:1) = '!' + RETURN + ENDIF + 30 CONTINUE + IF ( IE-IS+1 .LT. 10 ) THEN + CFMTI = '(I )' + WRITE(CFMTI(3:3),'(I1)') IE-IS+1 + ELSE + CFMTI = '(I )' + WRITE(CFMTI(3:4),'(I2)') IE-IS+1 + ENDIF + READ(LINE(IS:IE),CFMTI) IVAL + + IS = IE + + IF ( DEBUG ) WRITE(MDEBUG,*) 'DTCINT : VALUE = ',IVAL + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE DTCLOG (LINE,IS,LVAL,KEYWRD,IKEY) + +C----------------------------------------------------------------------- +C D(A)T(A) C(ARD) LOG(ICAL) +C +C READ LOGICAL PARAMETER FROM DATA CARD CHARACTER STRING. +C MAKE USE OF UPPERCASE CONVERSION OF DATA CARDS. +C FOR 'T' YOU CAN ALSO USE 'TRUE', '.TRUE.', 'Y', 'YES', 'ON', '1'. +C FOR 'F' YOU CAN ALSO USE 'FALSE', '.FALSE.', 'N', 'NO', 'OFF', '0'. +C ERRORS ARE INDICATED BY WRITING A '!' IN LINE(1:1) +C THIS SUBROUTINE IS CALLED FROM DATAC. +C ARGUMETNS: +C LINE = CHARACTER STRING OF INPUT LINE +C IS = POINTER FOR START OF INTERPRETATION OF 'LINE' +C LVAL = LOGICAL TO BE RETURNED +C KEYWORD= KEYWORD AT BEGIN OF LINE +C IKEY = NUMBER OF ARGUMENT AFTER KEYWORD +C +C AUTHOR: K. BERNLOEHR MPIK HEIDELBERG 1998 +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER I,IE,IKEY,IS,L + LOGICAL LVAL + CHARACTER KEYWRD*(*),LINE*(*) + SAVE +C----------------------------------------------------------------------- + + IF ( IS .LE. 0 ) IS = LEN(KEYWRD) + + L = LEN(LINE) + DO 10 I = IS+1,L + IF ( LINE(I:I) .NE. ' ' ) GOTO 11 + 10 CONTINUE + 11 IF ( I.GT.L .OR. LINE(I:I).EQ.'!' .OR. LINE(I:I).EQ.' ' ) THEN + IF ( IKEY .LE. 1 ) THEN + WRITE(MONIOU,6000) KEYWRD + 6000 FORMAT(1X,'DATACARD ',A,' HAS NO PARAMETER(S)') + ELSE + WRITE(MONIOU,6001) KEYWRD,IKEY + 6001 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2,' IS MISSING') + ENDIF + IS = IE + LVAL = .FALSE. + LINE(1:1) = '!' + RETURN + ENDIF + IS = I + DO 20 I = IS+1,L + IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) GOTO 21 + 20 CONTINUE + 21 IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) THEN + IE = I-1 + ELSE + IE = I + ENDIF + +* WRITE(*,*) 'DTCLOG : ',KEYWRD,' #',IKEY,IS,IE,': ',LINE(IS:IE) + IF ( LINE(IS:IE) .EQ. 'T' .OR. LINE(IS:IE) .EQ. 'TRUE' + * .OR. LINE(IS:IE) .EQ. '.TRUE.' + * .OR. LINE(IS:IE) .EQ. 'Y' .OR. LINE(IS:IE) .EQ. 'YES' + * .OR. LINE(IS:IE) .EQ. 'ON' .OR. LINE(IS:IE) .EQ. '1' ) THEN + LVAL = .TRUE. + ELSEIF ( LINE(IS:IE) .EQ. 'F' .OR. LINE(IS:IE) .EQ. 'FALSE' + * .OR. LINE(IS:IE) .EQ. '.FALSE.' + * .OR. LINE(IS:IE) .EQ. 'N' .OR. LINE(IS:IE) .EQ. 'NO' + * .OR. LINE(IS:IE) .EQ. 'OFF' .OR. LINE(IS:IE) .EQ. '0' ) THEN + LVAL = .FALSE. + ELSE + WRITE(MONIOU,6002) KEYWRD,IKEY,LINE(IS:IE) + 6002 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2, + * ' IS INVALID: ',A) + LVAL = .FALSE. + LINE(1:1) = '!' + ENDIF + + IS = IE + + IF ( DEBUG ) WRITE(MDEBUG,*) 'DTCLOG : VALUE = ',LVAL + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE DTCRL (LINE,IS,RVAL,KEYWRD,IKEY) + +C----------------------------------------------------------------------- +C D(A)T(A) C(ARD) R(EA)L +C +C READ REAL PARAMETER FROM DATA CARD CHARACTER STRING +C ERRORS ARE INDICATED BY WRITING A '!' IN LINE(1:1) +C THIS SUBROUTINE IS CALLED FROM DATAC. +C ARGUMETNS: +C LINE = CHARACTER STRING OF INPUT LINE +C IS = POINTER FOR START OF INTERPRETATION OF 'LINE' +C RVAL = REAL VARIABLE TO BE RETURNED +C KEYWORD= KEYWORD AT BEGIN OF LINE +C IKEY = NUMBER OF ARGUMENT AFTER KEYWORD +C +C AUTHOR: K. BERNLOEHR MPIK HEIDELBERG 1998 +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + REAL RVAL + INTEGER I,IE,IKEY,IS,L + CHARACTER CFMTR*8,LINE*(*),KEYWRD*(*) + SAVE +C----------------------------------------------------------------------- + + IF ( IS .LE. 0 ) IS = LEN(KEYWRD) + + L = LEN(LINE) + DO 10 I = IS+1,L + IF ( LINE(I:I).NE.' ' ) GOTO 11 + 10 CONTINUE + 11 IF ( I.GT.L .OR. LINE(I:I).EQ.'!' .OR. LINE(I:I).EQ.' ' ) THEN + IF ( IKEY.LE.1 ) THEN + WRITE(MONIOU,6000) KEYWRD + 6000 FORMAT(1X,'DATACARD ',A,' HAS NO PARAMETER(S)') + ELSE + WRITE(MONIOU,6001) KEYWRD,IKEY + 6001 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2,' IS MISSING') + ENDIF + RVAL = 0. + LINE(1:1) = '!' + RETURN + ENDIF + IS = I + DO 20 I = IS+1,L + IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) GOTO 21 + 20 CONTINUE + 21 IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) THEN + IE = I-1 + ELSE + IE = I + ENDIF +* WRITE(*,*) 'DTCRL : ',KEYWRD,' #',IKEY,IS,IE,': ',LINE(IS:IE) + IF ( IE-IS+1 .LT. 10 ) THEN + CFMTR = '(F .0)' + WRITE(CFMTR(3:3),'(I1)') IE-IS+1 + ELSE + CFMTR = '(F .0)' + WRITE(CFMTR(3:4),'(I2)') IE-IS+1 + ENDIF + READ(LINE(IS:IE),CFMTR,ERR=999) RVAL + + IF ( DEBUG ) WRITE(MDEBUG,*) 'DTCRL : VALUE = ',RVAL + IS = IE + + RETURN + + 999 WRITE(MONIOU,6002) KEYWRD,IKEY,LINE(IS:IE) + 6002 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2, + * ' IS INVALID: ',A) + RVAL = 0. + LINE(1:1) = '!' + IS = IE + + IF ( DEBUG ) WRITE(MDEBUG,*) 'DTCRL : VALUE = ',RVAL + RETURN + END +*CMZ : 24/10/2000 15.40.59 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE EM + +C----------------------------------------------------------------------- +C E(LECTRO) M(AGNETIC PARTICLES) +C +C ROUTINE FOR TREATING EM PARTICLES +C THIS SUBROUTINE IS CALLED FROM BOX3. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ENER,THICK + INTEGER I + SAVE + EXTERNAL THICK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' EM : CURPAR=',1P,8E10.3,0P,F6.0) + +C GET CORRECT PARTICLE ENERGY + IF ( ITYPE .EQ. 1 ) THEN + ENER = CURPAR(2) + ELSEIF ( ITYPE .EQ. 2 .OR. ITYPE .EQ. 3 ) THEN + ENER = CURPAR(2) * PAMA(2) + ELSE + WRITE(MONIOU,*) 'EM : WRONG PARTICLE CODE =',ITYPE + RETURN + ENDIF + +C COPY PARTICLE COORDINATES INTO SECPAR + DO 101 I = 1,8 + SECPAR(I) = CURPAR(I) + 101 CONTINUE + SECPAR( 9) = GEN + SECPAR(10) = ALEVEL + SECPAR(14) = CURPAR(14) + SECPAR(15) = CURPAR(15) + SECPAR(16) = CURPAR(16) + +C CALL NKG IF SELECTED + IF ( FNKG ) THEN + CALL NKG( ENER ) + ENDIF + +C CALL EGS4 IF SELECTED ( PARTICLE IS TAKEN IN EGS FROM COMMON ) + IF ( FEGS ) THEN + CALL EGS4( ENER ) + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + LHEIGH = INT(THICK(H)*THSTPI + 1.D0) + IF ( SECPAR(1) .EQ. 1.D0 ) THEN + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + ENER + ELSEIF ( SECPAR(2) .EQ. 2.D0 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + (ENER+PAMA(2)) + ELSE + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + (ENER-PAMA(2)) + ENDIF + ENDIF + ENDIF + + RETURN + END +*CMZ : 14/06/2000 15.06.16 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE ETADEC + +C----------------------------------------------------------------------- +C ETA DEC(AY) +C +C ROUTINE TREATES DECAY OF ETA +C DECAY WITH FULL KINEMATIC, ENERGY AND MOMENTA CONSERVED +C THIS SUBROUTINE IS CALLED FROM NUCINT. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DECAY. + COMMON /DECAY/ GAM345,COS345,PHI345 + DOUBLE PRECISION GAM345(3),COS345(3),PHI345(3) +*KEEP,EDECAY. + COMMON /EDECAY/ CETA + DOUBLE PRECISION CETA(5) +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AUX1,AUX2,COSTH1,COSTH2,EETA2,FI1 + INTEGER I + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' ETADEC: CURPAR=',1P,9E10.3) + +C SELECT MODE OF DECAY, IF NOT ALREADY SELECTED BY THE PARTICLE TYPE + IF ( ITYPE .EQ. 17 ) THEN + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LE. CETA(1) ) THEN + ITYPE = 71 + ELSEIF ( RD(1) .LE. CETA(2) ) THEN + ITYPE = 72 + ELSEIF ( RD(1) .LE. CETA(3) ) THEN + ITYPE = 73 + ELSE + ITYPE = 74 + ENDIF + ENDIF + +C DECAY OF ETA WITH 4 MODES +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C DECAY ETA ----> GAMMA + GAMMA + IF ( ITYPE .EQ. 71 ) THEN + EETA2 = 0.5D0 * GAMMA * PAMA(17) + CALL RMMAR( RD,2,1 ) + AUX1 = 1.D0 + BETA * RD(1) + AUX2 = 1.D0 - BETA * RD(1) + COSTH1 = (BETA + RD(1)) / AUX1 + COSTH2 = (BETA - RD(1)) / AUX2 + + SECPAR(1) = 1.D0 +C FIRST GAMMA (WITH HIGHER ENERGY) + FI1 = PI2 * RD(2) + SECPAR(2) = AUX1 * EETA2 + CALL ADDANG( COSTHE,PHI, COSTH1,FI1, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + SECPAR(2) + ENDIF + ENDIF +C SECOND GAMMA (WITH LOWER ENERGY) + SECPAR(2) = AUX2 * EETA2 + CALL ADDANG( COSTHE,PHI, COSTH2,FI1+PI, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + SECPAR(2) + ENDIF + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C DECAY ETA ----> PI(0) + PI(0) + PI(0) + ELSEIF ( ITYPE .EQ. 72 ) THEN + CALL DECAY6( PAMA(17), PAMA(7),PAMA(7),PAMA(7), + * 0.D0,0.D0,0.D0, 1.D0, 2 ) + SECPAR(1) = 7.D0 + DO 340 I = 1,3 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I) * PAMA(7) + ENDIF + ENDIF + 340 CONTINUE + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C DECAY ETA ----> PI(-) + PI(+) + PI(0) + ELSEIF ( ITYPE .EQ. 73 ) THEN + CALL DECAY6( PAMA(17), PAMA(8),PAMA(8),PAMA(7), + * CETA(4),0.D0,0.D0, CETA(5), 2 ) + DO 360 I = 1,3 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = 10 - I + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I)*PAMA(10-I) + ENDIF + ENDIF + 360 CONTINUE + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C DECAY ETA ----> PI(+) + PI(-) + GAMMA + ELSEIF ( ITYPE .EQ. 74 ) THEN + CALL DECAY6( PAMA(17), PAMA(8),PAMA(8),0.D0, + * 0.D0,0.D0,0.D0, 1.D0, 2 ) + DO 380 I = 1,3 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + IF ( I .EQ. 3 ) THEN + SECPAR(1) = 1.D0 + ELSE + SECPAR(1) = 7 + I + ENDIF + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( I .EQ. 3 ) THEN + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + GAM345(I) + ELSE + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I)*PAMA(8) + ENDIF + ENDIF + ENDIF + 380 CONTINUE + + ELSE + WRITE(MONIOU,*) 'ETADEC: UNEXPECTED PARTICLE CODE ITYPE=',ITYPE + ENDIF + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE FSTACK + +C----------------------------------------------------------------------- +C F(ROM) STACK +C +C GETS PARTICLE FROM STACK AND READS FROM DISK IF NECESSARY +C THIS SUBROUTINE IS CALLED FORM AAMAIN +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,ETHMAP. + COMMON /ETHMAP/ ECTMAP,ELEFT + DOUBLE PRECISION ECTMAP,ELEFT +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKF. + COMMON /STACKF/ STACK,MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT, + * NTO,NFROM + INTEGER MAXSTK + PARAMETER (MAXSTK = 16*256*2) + DOUBLE PRECISION STACK(MAXSTK) + INTEGER MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM +*KEND. + + INTEGER I,ISTK,J + SAVE + DATA ISTK / MAXSTK / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,220) ICOUNT-1 + 220 FORMAT(' FSTACK:',I7) + +C STACK EMPTY, SOMETHING TO BE READ FROM DISK ? + IF ( MSTACKP .EQ. 0 ) THEN + IF ( NOUREC .EQ. 0 ) THEN + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,224) NTO,NFROM + 224 FORMAT(/' NO MORE SECONDARIES FOUND ON STACK'/ + * ' ',I10,' PARTICLES WRITTEN TO STACK'/ + * ' ',I10,' PARTICLES READ FROM STACK' ) + CURPAR(1) = 0.D0 + IRET1 = 1 + RETURN + ENDIF +C READ LAST BLOCK OF 256 PARTICLES FROM SCRATCH FILE + READ(MEXST,REC=NOUREC) (STACK(I),I=1,ISTK/2) + NOUREC = NOUREC - 1 + MSTACKP = ISTK/2 + ENDIF + + NFROM = NFROM + 1 + ICOUNT = ICOUNT - 1 + +C PUT PARTICLE FROM STACK INTO CURPAR + MSTACKP = MSTACKP - MAXLEN + DO 5 J = 1,8 + CURPAR(J) = STACK(MSTACKP+J) + 5 CONTINUE + GEN = STACK(MSTACKP+ 9) + ALEVEL = STACK(MSTACKP+10) + POLART = STACK(MSTACKP+11) + POLARF = STACK(MSTACKP+12) + CURPAR(14) = STACK(MSTACKP+14) + CURPAR(15) = STACK(MSTACKP+15) + CURPAR(16) = STACK(MSTACKP+16) + IF ( PAMA(NINT(CURPAR(1))) .NE. 0.D0 ) THEN + ELEFT = ELEFT - CURPAR(2)*PAMA(NINT(CURPAR(1))) + ELSE + ELEFT = ELEFT - CURPAR(2) + ENDIF + + IF ( DEBUG ) WRITE(MDEBUG,667) ICOUNT,(CURPAR(J),J=1,8) + 667 FORMAT('+ ',I7,1X,1P,8E10.3) + + RETURN + END +*CMZ : 11/07/2000 10.08.30 by D. HECK IK3 FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 25/09/96 +C======================================================================= + + REAL FUNCTION GBRSGM(Z,E) + +C----------------------------------------------------------------------- +C CALCULATES MUON BREMSSTRAHLUNG CROSS-SECTIONS +C +C THIS SUBROUTINE IS TAKEN FROM GEANT321 PACKAGE (WITH MODIFICATIONS) +C CALCULATES CROSS-SECTION IN CURRENT MATERIAL FOR DISCRETE(HARD) MUON +C BREMSSTRAHLUNG. (SIG IN BARN/ATOM) +C FOR A DESCRIPTION SEE: CERN PROGRAM LIBRARY LONG WRITEUP W5013 (1993) +C THIS FUNCTION IS CALLED FROM BOX2. +C ARGUMENTS: +C Z (R4) = ATOMIC NUMBER OF PENETRATET MATERIAL +C E (R4) = TOTAL ENERGY OF MUON +C +C AUTHOR : L.URBAN +C MODIFIED: D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + REAL C(52),AKSI,ALFA,E,ECMAX,FAC,GAM, + * S,SS,X,XX,YY,Z + INTEGER I,J,K + SAVE + DATA AKSI/2.30/, ALFA/1.06/, GAM/0.63/ + DATA C/ 0.949313E-07,-0.819600E-07, 0.529075E-07,-0.832023E-08 + + , 0.539299E-09,-0.127042E-10,-0.165784E-08,-0.307788E-07 + + , 0.977905E-08,-0.113658E-08, 0.574481E-10,-0.106221E-11 + + , 0.968339E-09,-0.108640E-08,-0.177634E-09, 0.889497E-10 + + ,-0.876878E-11, 0.264303E-12, 0.216263E-08,-0.152680E-08 + + , 0.380989E-09,-0.455274E-10, 0.264172E-11,-0.596016E-13 + + , 0.444927E-09,-0.272978E-09, 0.645634E-10,-0.748783E-11 + + , 0.424890E-12,-0.940837E-14, 0.162289E-10,-0.362486E-11 + + ,-0.576652E-12, 0.211269E-12,-0.185482E-13, 0.522065E-15 + + ,-0.215590E-09, 0.112204E-09,-0.819133E-11, 0.145128E-12 + + ,-0.206029E-09, 0.559940E-10,-0.483350E-11, 0.134252E-12 + + ,-0.368469E-10, 0.999457E-11,-0.904967E-12, 0.272717E-13 + + ,-0.303446E-11, 0.853429E-12,-0.785466E-13, 0.236435E-14/ +C----------------------------------------------------------------------- + + GBRSGM = 0. + IF ( E-PAMA(5) .LE. BCUT ) RETURN + ECMAX = E - CMUON(10) * Z**0.333333 + IF ( ECMAX .LE. BCUT ) RETURN + X = LOG(E/PAMA(5)) + + S = 0. + YY = 1. + DO 30 I = 1,6 + XX = 1. + DO 20 J = 1,6 + K = 6*I + J - 6 + S = S + C(K) * XX * YY + XX = XX * X + 20 CONTINUE + YY = YY * CMUON(11) + 30 CONTINUE + SS = 0. + YY = 1. + DO 50 I = 1,4 + XX = 1. + DO 40 J = 1,4 + K = 4*I + J + 32 + SS = SS + C(K) * XX * YY + XX = XX * X + 40 CONTINUE + YY = YY * CMUON(11) + 50 CONTINUE + S = S + Z * SS + IF ( S .LE. 0. ) RETURN + + FAC = LOG(ECMAX/BCUT) + IF ( FAC .LE. 0. ) RETURN + FAC = Z * ( Z + AKSI * (1.+GAM*LOG(Z)) ) * FAC**ALFA + GBRSGM = FAC * S + + IF ( DEBUG ) WRITE(MDEBUG,444) Z,E,GBRSGM + 444 FORMAT(' GBRSGM: Z=',F3.0,' E=',1P,E10.4,' GBRSGM=',E10.4) + + 99 RETURN + END +*CMZ : 11/07/2000 10.08.30 by D. HECK IK3 FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 02/10/96 +C======================================================================= + + REAL FUNCTION GPRSGM(Z,E) + +C----------------------------------------------------------------------- +C G(EANT) P(AI)R S(I)GM(A) +C CALCULATES MUON PAIR PRODUCTION CROSS-SECTIONS +C +C THIS SUBROUTINE IS TAKEN FROM GEANT321 PACKAGE (WITH MODIFICATIONS) +C CALCULATES CROSS-SECTION IN CURRENT MATERIAL FOR DISCRETE(HARD) MUON +C PAIR PRODUCTION. (SIG IN BARN/ATOM) +C FOR A DESCRIPTION SEE: CERN PROGRAM LIBRARY LONG WRITEUP W5013 (1993) +C THIS SUBROUTINE IS CALLED FROM BOX2. +C ARGUMENTS: +C Z (R4) = ATOMIC NUMBER OF PENETRATET MATERIAL +C E (R4) = TOTAL ENERGY OF MUON +C +C AUTHOR : L.URBAN +C MODIFIED: D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + REAL C(100),C1(60),C2(40),AKSI,ALFA,E,ECMAX,ECMIN,FAC,GAM, + * S,SS,VS,X,XX,Y,YY,Z,CUT + INTEGER I,J,K + EQUIVALENCE (C(1),C1(1)),(C(61),C2(1)) + SAVE + + DATA AKSI/1.16/,ALFA/3.46/,GAM/0.06/,VS/0.019/ + DATA ECMIN/2.044E-3/ + DATA C1/0.230181E-08,-0.280842E-08, 0.137525E-08,-0.156503E-09 + + , 0.728088E-11,-0.122631E-12, 0.133014E-08,-0.160591E-09 + + ,-0.390814E-09, 0.314492E-10, 0.251296E-12,-0.574223E-13 + + , 0.604923E-09,-0.560766E-09, 0.660253E-09,-0.103474E-09 + + , 0.621338E-11,-0.135273E-12, 0.103739E-09, 0.710290E-09 + + ,-0.544755E-10,-0.211241E-11, 0.286443E-12,-0.644602E-14 + + , 0.332492E-09,-0.484785E-10, 0.126921E-10,-0.165217E-11 + + , 0.845273E-13,-0.143180E-14,-0.112267E-13, 0.113308E-11 + + , 0.292577E-12,-0.733441E-13, 0.475747E-14,-0.976279E-16 + + ,-0.112856E-07, 0.936398E-08,-0.291882E-08, 0.422266E-09 + + ,-0.279042E-10, 0.678485E-12, 0.112383E-07,-0.964400E-08 + + , 0.313121E-08,-0.440224E-09, 0.278668E-10,-0.643012E-12 + + ,-0.414131E-08, 0.355112E-08,-0.115035E-08, 0.158539E-09 + + ,-0.976788E-11, 0.216911E-12, 0.521380E-09,-0.442265E-09 + + , 0.141753E-09,-0.190826E-10, 0.114038E-11,-0.242085E-13/ + DATA C2/0.572943E-10,-0.296824E-10, 0.630217E-11,-0.623179E-12 + + , 0.211467E-13,-0.143579E-10,-0.137247E-11, 0.118670E-11 + + ,-0.793091E-13, 0.124745E-14,-0.269884E-10, 0.125314E-10 + + ,-0.239259E-11, 0.181151E-12,-0.470277E-14,-0.342454E-11 + + , 0.976666E-12,-0.236792E-12, 0.213290E-13,-0.607799E-15 + + ,-0.748844E-12, 0.178214E-12,-0.226827E-13, 0.148441E-14 + + ,-0.367972E-16, 0.840330E-12, 0.820025E-11,-0.294797E-11 + + , 0.294669E-12,-0.970294E-14,-0.830636E-12,-0.309273E-11 + + , 0.124169E-11,-0.135879E-12, 0.481683E-14, 0.438223E-12 + + , 0.259162E-12,-0.149284E-12, 0.180170E-13,-0.677948E-15/ +C----------------------------------------------------------------------- + + GPRSGM=0. + CUT = BCUT + IF ( ECMIN .GT. BCUT ) CUT=ECMIN + + ECMAX = E - CMUON(10) * Z**OB3 + IF ( ECMAX .LE. CUT ) RETURN + X = LOG(E/PAMA(5)) + Y = LOG( CUT/(VS*E) ) + + S = 0. + YY = 1. + DO 30 I = 1,2 + XX = 1. + DO 20 J = 1,6 + K = 6*I + J - 6 + S = S + C(K) * XX * YY + XX = XX * X + 20 CONTINUE + YY = YY * Y + 30 CONTINUE + DO 50 I = 3,6 + XX = 1. + DO 40 J = 1,6 + K = 6*I + J - 6 + IF ( Y .LE. 0. ) THEN + S = S + C(K) * XX * YY + ELSE + S = S + C(K+24) * XX * YY + ENDIF + XX = XX * X + 40 CONTINUE + YY = YY * Y + 50 CONTINUE + SS = 0. + YY = 1. + DO 70 I = 1,2 + XX = 1. + DO 60 J = 1,5 + K = 5*I + J + 55 + SS = SS + C(K) * XX * YY + XX = XX * X + 60 CONTINUE + YY = YY * Y + 70 CONTINUE + DO 90 I = 3,5 + XX = 1. + DO 80 J = 1,5 + K = 5*I + J + 55 + IF ( Y .LE. 0. ) THEN + SS = SS + C(K) * XX * YY + ELSE + SS = SS + C(K+15) * XX * YY + ENDIF + XX = XX * X + 80 CONTINUE + YY = YY * Y + 90 CONTINUE + + S = S + Z * SS + IF ( S .LE. 0. ) RETURN +C DE/DX SHOULD BE MONOTON INCREASING AS A +C FUNCTION OF THE CUT +C SOLUTION: LIN. INTERPOLATION FOR 0.2*ECMAX DEBUG INFORMATION WRITTEN TO UNIT ',I3//) + +C----------------------------------------------------------------------- +C CHECK CORRECTNESS OF RUN NUMBER + IF ( NRRUN .GT. 999999 ) THEN + WRITE(MONIOU,*)'RUN NUMBER = ',NRRUN,' EXCEEDS 999999, STOP' + STOP + ENDIF +c--------changed----command up to line labeld 5791 +cxx------------ +cxx call tobuf(runh,0) and tobufc(runh,0) are now in main program + +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c Next block of code is obsolete. +c Now it's used "jcio" routines (C) +C------------------------------------- + +cxxC OUTPUT FILES SHOULD NORMALLY NOT EXIST BEFORE THE RUN STARTS + RQSTAT = 'NEW' +cC OPEN OUTPUT DATA SET FOR RUN +c IBL = INDEX(DSN,' ') +c DSN(IBL:73) = 'DAT000000' +c WRITE(DSN(IBL+3:IBL+8),'(I6)') NRRUN +c DO 274 L = IBL+3,IBL+8 +c IF ( DSN(L:L) .EQ. ' ' ) DSN(L:L) = '0' +c 274 CONTINUE +c IF ( FTABOUT ) THEN +c DSNTAB=DSN +c DSNTAB(IBL+9:IBL+12) = '.tab' +c ENDIF +c IF ( FLONGOUT .AND. LLONGI ) THEN +c IF ( DSN(1:9) .EQ. '/dev/null' ) THEN +c DSNLONG(1:9) = DSN(10:18) +c DSNLONG(10:14) = '.long ' +c ELSE +c DSNLONG = DSN +c DSNLONG(IBL+9:IBL+13) = '.long' +c ENDIF +c ENDIF +c IF ( DSN(1:9) .EQ. '/dev/null' ) THEN +c DSN = '/dev/null' +c RQSTAT = 'UNKNOWN' +c ELSE +cC ON LINUX WITH G77 AN EXISTING FILE CAUSES A CORE DUMP -> FIRST INQUIRE +c INQUIRE(FILE=DSN,EXIST=FEXIST) +c IF ( FEXIST ) THEN +c IBL = INDEX(DSN,' ') +c IF ( IBL .LE. 1 ) IBL = LEN(DSN)+1 +c WRITE(MONIOU,5791) DSN(1:IBL-1) + 5791 FORMAT(/' FILE ',A,' ALREADY EXISTS. RENAME OR REMOVE IT', + * ' OR CHANGE ''DIRECT'' DATA CARD AND TRY AGAIN.') +c STOP 'FATAL PROBLEM' +c ENDIF +c ENDIF +cC OPEN DATASET FOR PARTICLE OUTPUT +c IF ( FPAROUT ) THEN +c OPEN(UNIT=MPATAP,FILE=DSN,STATUS=RQSTAT, +c * FORM='UNFORMATTED',ACCESS='SEQUENTIAL') +c WRITE(MONIOU,579) DSN +c 579 FORMAT(/' PARTICLE OUTPUT TO FILE : ',A79) +c ENDIF +cC OPEN DATASET FOR TABLE OUTPUT +c IF ( FTABOUT ) THEN +c OPEN(UNIT=MTABOUT,FILE=DSNTAB,STATUS=RQSTAT, +c * FORM='UNFORMATTED',ACCESS='SEQUENTIAL') +c WRITE(MONIOU,578) DSNTAB, +c * IEBIN,EBMIN,EBMAX, +c * ITBIN,TBMIN,TBMAX, +c * IDBIN,DBMIN,DBMAX +c 578 FORMAT(/' TABLE OUTPUT TO FILE : ',A79/ +c * ' ENERGY : ',I2,' BINS, RANGE :',1P,2E10.2,' GEV'/ +c * ' TIME : ',I2,' BINS, RANGE :',1P,2E10.2,' NS'/ +c * ' RADIUS : ',I2,' BINS, RANGE :',1P,2E10.2,' CM') +c WRITE(MTABOUT) IEBIN,EBMIN,EBMAX +c WRITE(MTABOUT) ITBIN,TBMIN,TBMAX +c WRITE(MTABOUT) IDBIN,DBMIN,DBMAX +c EBOFF = LOG10(EBMIN) +c EBFAC = 1./(LOG10(EBMAX/EBMIN)/IEBIN) +c TBOFF = LOG10(TBMIN) +c TBFAC = 1./(LOG10(TBMAX/TBMIN)/ITBIN) +c DBOFF = LOG10(DBMIN) +c DBFAC = 1./(LOG10(DBMAX/DBMIN)/IDBIN) +c ENDIF +c IF ( FLONGOUT .AND. LLONGI ) THEN +c OPEN(UNIT=MLONGOUT,FILE=DSNLONG,STATUS=RQSTAT, +c * FORM='FORMATTED',ACCESS='SEQUENTIAL') +c WRITE(MONIOU,5781) DSNLONG +c 5781 FORMAT(' LONGITUDINAL OUTPUT TO FILE: ',A79) +c ENDIF +c +cC WRITE RUNHEADER TO OUTPUT BUFFER +c CALL TOBUF( RUNH,0 ) +c +cC OPEN OUTPUT DATA SET FOR CHERENKOV PHOTONS +c IF ( LCERFI ) THEN +c DSN(IBL:73) = 'CER000000' +c WRITE(DSN(IBL+3:IBL+8),'(I6)') NRRUN +c DO 249 L = IBL+3,IBL+8 +c IF ( DSN(L:L) .EQ. ' ' ) DSN(L:L) = '0' +c 249 CONTINUE +c IF ( DSN(1:9) .EQ. '/dev/null' ) THEN +c DSN = '/dev/null' +c RQSTAT = 'UNKNOWN' +c ELSE +cC ON LINUX WITH G77 AN EXISTING FILE CAUSES A CORE DUMP -> FIRST INQUIRE +c INQUIRE(FILE=DSN,EXIST=FEXIST) +c IF ( FEXIST ) THEN +c IBL = INDEX(DSN,' ') +c IF ( IBL .LE. 1 ) IBL = LEN(DSN)+1 +c WRITE(MONIOU,5791) DSN(1:IBL-1) +c STOP 'FATAL PROBLEM' +c ENDIF +c ENDIF +c OPEN(UNIT=MCETAP,FILE=DSN,STATUS=RQSTAT, +c * FORM='UNFORMATTED',ACCESS='SEQUENTIAL') +c WRITE(MONIOU,580) DSN +c 580 FORMAT(' CHERENKOV OUTPUT TO FILE : ',A79) +c CALL TOBUFC( RUNH,0 ) +c ELSE +c WRITE(MONIOU,580) DSN +c ENDIF +cC RESET DSN +c DSN(IBL:73) = ' ' +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c------changed - command above +c---------change to alpha - remove c*** and command some lines +C OPEN THE EXTERNAL STACK +C BLOCKS OF 32448 BYTES = 4056 REAL*8 = 312 PARTICLES FOR THINNING +C BLOCKS OF 32640 BYTES = 4080 REAL*8 = 340 PARTICLES FOR STANDARD +C FOR MOST FORTRAN COMPILERS ON UNIX-LIKE SYSTEMS (GNU g77, HP, +C IBM RS6000) IT IS NECESSARY TO USE THE NUMBER OF BYTES FOR THE RECL +C PARAMETER. +C FOR DEC UNIX (COMPAQ Tru64) MACHINES WITH f77 COMPILER (UNLESS USING +C THE '-assume bytrecl' COMPILER OPTION) AND SOME OTHER MACHINES THE +C RECL PARAMETER IS THE NUMBER OF (4-BYTE) WORDS. + +c*** CALL RCLCHK(MEXST,4,L) + CALL RCLCHK(MEXST,1,L) + IF ( L .NE. 0 ) THEN + WRITE(MONIOU,*) 'FATAL ERROR:',L, + * ' RECL HANDLING NOT AS EXPECTED' + STOP + ENDIF + OPEN(UNIT=MEXST,STATUS='SCRATCH', + * FORM='UNFORMATTED',ACCESS='DIRECT',RECL=4*MAXSTK) +c------changed to alpha +c*** * FORM='UNFORMATTED',ACCESS='DIRECT',RECL=MAXSTK) +c------changed to alpha +C----------------------------------------------------------------------- +C----------------------------------------------------------------------- +C WRITE DATA SET FOR INFORMATION BANK + IF ( FDBASE ) THEN +C OPEN OUTPUT DATA SET FOR RUN + IBL = INDEX(DSN,' ') +C IF NORMAL OUTPUT DISABLED BUT 'DATBAS T', TRY CURRENT DIRECTORY. + IF ( DSN(1:9) .EQ. '/dev/null' ) IBL = 1 + DSN(IBL:79) = 'DAT000000.dbase' + WRITE(DSN(IBL+3:IBL+8),'(I6)') NRRUN + DO 275 L = IBL+3,IBL+8 + IF ( DSN(L:L) .EQ. ' ' ) DSN(L:L) = '0' + 275 CONTINUE + IF ( DSN(1:9) .EQ. '/dev/null' ) THEN + DSN = '/dev/null' + RQSTAT = 'UNKNOWN' + ELSE +C ON LINUX WITH G77 AN EXISTING FILE CAUSES A CORE DUMP -> FIRST INQUIRE + INQUIRE(FILE=DSN,EXIST=FEXIST) + IF ( FEXIST ) THEN + IBL = INDEX(DSN,' ') + IF ( IBL .LE. 1 ) IBL = LEN(DSN)+1 + WRITE(MONIOU,5791) DSN(1:IBL-1) + STOP 'FATAL PROBLEM' + ENDIF + ENDIF + OPEN(UNIT=MDBASE,FILE=DSN,STATUS=RQSTAT) + WRITE(MONIOU,581) DSN + 581 FORMAT(/' DBASE OUTPUT TO FILE : ',A79) +C RESET DSN + DSN(IBL+9:IBL+14) = ' ' + + LSTDSN(1:3) = 'LST' + LSTDSN(4:9) = DSN(IBL+3:IBL+8) +C RESET DSN TO '/dev/null' AS IT WAS BEFORE. + IF ( IBL .EQ. 1 ) DSN = '/dev/null' + + VERVEN = FLOAT(IVERVN)/1000.D0 + IF ( LLONGI ) THEN + ILONG = 1 + ELSE + ILONG = 0 + ENDIF + ISO = 0 +C SET DPMFLAG (0=HDPM, 1=VENUS, 2=SIBYLL, 3=QGSJET, 4=DPMJET, 5=NEXUS) + IF ( EVTH(76) .EQ. 1. ) THEN + IDPM = 1 + ELSEIF ( EVTH(76) .EQ. 2. ) THEN + IDPM = 2 + ELSEIF ( EVTH(76) .EQ. 3. ) THEN + IDPM = 3 + ELSEIF ( EVTH(76) .EQ. 4. ) THEN + IDPM = 4 + ELSEIF ( EVTH(76) .EQ. 5. ) THEN + IDPM = 5 + ELSE + IDPM = 0 + ENDIF +C INCREMENT DPMFLAG FOR VARIOUS CROSS-SECTIONS +C BY (0=HDPM-SIG, 10=VENUSSIG, 20=SIBYLLSIG, 30=QGSSIG, 40=DPMJETSIG, +C 50=NEXUSSIG) + IF ( EVTH(145) .EQ. 1. ) THEN + IDPM = IDPM + 10 + ELSEIF ( EVTH(145) .EQ. 2. ) THEN + IDPM = IDPM + 50 + ELSEIF ( EVTH(140) .NE. 0. ) THEN + IDPM = IDPM + 20 + ELSEIF ( EVTH(142) .NE. 0. ) THEN + IDPM = IDPM + 30 + ELSEIF ( EVTH(144) .NE. 0. ) THEN + IDPM = IDPM + 40 + ENDIF + MARK = '1' + ILTHIN = 0 + EFRAC = 0.D0 + IF ( FREFRX ) THEN + IFREFRX = 1 + ELSE + IFREFRX = 0 + ENDIF + + WRITE(MDBASE,666) VERNUM,MARK,MVDATE,SNGL(VERVEN), + $ INT(RUNH(3))+20000000, + $ INT(EVTH(80)),INT(EVTH(79)),INT(EVTH(78)), + $ MOD(INT(EVTH(77)),10),INT(RUNH(2)), + $ INT(PRMPAR(1)),LLIMIT,ULIMIT, + $ PSLOPE,INT(RUNH(20)),INT(RUNH(19)),INT(EVTH(76)), + $ INT(EVTH(75)),ISO,IDPM, + $ NFLAIN,NFLDIF,NFLPI0,NFLPIF,NFLCHE,NFRAGM, + $ ILONG,THSTEP,BX, + $ BZ,NOBSLV + 666 FORMAT('#version#',F6.3,A1,'#versiondate#',I9, + $ '#modelversion#',F8.3,'#rundate#',I9,/, + $ '#computer#',I2,'#curved#',I2,'#neutrino#',I2, + $ '#cerenkov#',I2,'#runnumber#',I7,/, + $ '#primary#',I5,'#e_range_l#',1P,E14.7,'#e_range_u#',E14.7,/, + $ '#slope#',E15.7,0P,'#nkg#',I2,'#egs#',I2,/, + $ '#model#',I2,'#gheisha#',I2,'#isobar#',I2, + $ '#model+crossect#',I3,/, + $ '#hadflag1#',I2,'#hadflag2#',I2,'#hadflag3#',I2, + $ '#hadflag4#',I2,'#hadflag5#',I2,'#hadflag6#',I2,/, + $ '#longi#',I2,'#longistep#',1P,E14.7,'#magnetx#',E15.7,/, + $ '#magnetz#',E15.7,0P,'#nobslev#',I3) + + WRITE(MDBASE,669) OBSLEV(1),OBSLEV(2),OBSLEV(3), + $ OBSLEV(4),OBSLEV(5),OBSLEV(6), + $ OBSLEV(7),OBSLEV(8),OBSLEV(9), + $ OBSLEV(10),ELCUT(1),ELCUT(2), + $ ELCUT(3), ELCUT(4),EVTH(81), + $ EVTH(82),EVTH(83),EVTH(84), + $ FIXHEI,N1STTR,THICK0, + $ STEPFC,ARRANG,INT(EVTH(94)),NSEQ, + $ ISEED(1,1),ISEED(2,1),ISEED(3,1), + $ ISEED(1,2),ISEED(2,2),ISEED(3,2), + $ ISEED(1,3),ISEED(2,3),ISEED(3,3), + $ 0,DSN, + $ LSTDSN,' ARC000.01',' ARC000.01', + $ NSHOW,HOST,USER + $ ,IATMOX,IFREFRX + $ ,VUECON(1)*(180.D0/PI),VUECON(2)*(180.D0/PI) + 669 FORMAT(1P,'#obslev1#',E15.7,'#obslev2#',E15.7, + $ '#obslev3#',E15.7,/, + $ '#obslev4#',E15.7,'#obslev5#',E15.7,'#obslev6#',E15.7,/, + $ '#obslev7#',E15.7,'#obslev8#',E15.7,'#obslev9#',E15.7,/, + $ '#obslev10#',E15.7,'#hcut#',E14.7,'#mcut#',E14.7,/, + $ '#ecut#',E14.7,'#gcut#',E14.7,'#theta_l#',E14.7,/, + $ '#theta_u#',E14.7,'#phi_l#',E15.7,'#phi_u#',E15.7,/, + $ '#fixhei#',E14.7,'#n1sttr#',0P,I3,1P,'#fixchi#',E14.7,/, + $ '#stepfc#',E14.7,'#arrang#',E15.7,0P,'#muaddi#',I2, + $ '#nseq#',I2,/, + $ '#seq1seed1#',I9,'#seq1seed2#',I9,'#seq1seed3#',I9,/, + $ '#seq2seed1#',I9,'#seq2seed2#',I9,'#seq2seed3#',I9,/, + $ '#seq3seed1#',I9,'#seq3seed2#',I9,'#seq3seed3#',I9,/, + $ '#size#',I10,/,'#dsn_events#',A59,/, + $ '#dsn_prtout# ',A9,'#tape_name#',A10,'#backup#',A10,/, + $ '#howmanyshowers#',I10,'#host#',A20,'#user#',A20 + $ ,/,'#atmosphere#',I3,'#refract#',I2 + $ ,/,1P,'#viewcon_l#',E14.7,'#viewcon_u#',E14.7,0P + $ ) + WRITE(MDBASE,670) ILTHIN,EFRAC + 670 FORMAT('#thinning#',I2,'#thinnlev_had#',1P,E14.7,0P) + +C RESET DSN + DSN(IBL:IBL+14) = ' ' +C THE MDBASE FILE IS CLOSED IN AAMAIN + ENDIF + + WRITE(MONIOU,*) 'NUMBER OF SHOWERS TO GENERATE =',NSHOW + WRITE(MONIOU,*) + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE ISTACK + +C----------------------------------------------------------------------- +C I(NITIALIZE) STACK +C +C PREPARES STACK AND EXTERNAL DISK FILE +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ETHMAP. + COMMON /ETHMAP/ ECTMAP,ELEFT + DOUBLE PRECISION ECTMAP,ELEFT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKF. + COMMON /STACKF/ STACK,MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT, + * NTO,NFROM + INTEGER MAXSTK + PARAMETER (MAXSTK = 16*256*2) + DOUBLE PRECISION STACK(MAXSTK) + INTEGER MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM +*KEND. + + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'ISTACK:' + + NTO = 0 + NFROM = 0 + NOUREC = 0 + NSHIFT = 0 + MSTACKP = 0 + ELEFT = 0.D0 + ICOUNT = 1 + RETURN + END +*CMZ : 31/01/2001 10.50.55 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE KDECAY( IGO ) + +C----------------------------------------------------------------------- +C K(AON) DECAY +C +C KAON DECAYS WITH FULL KINEMATIC, ENERGY AND MOMENTA CONSERVED +C ALL SECONDARY PARTICLES ARE WRITTEN TO STACK +C THIS SUBROUTINE IS CALLED FROM NUCINT. +C ARGUMENT: (TO CHARACTERIZE THE DECAYING KAON) +C IGO = 1 K+ +C = 2 K- +C = 3 K0S +C = 4 K0L +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DECAY. + COMMON /DECAY/ GAM345,COS345,PHI345 + DOUBLE PRECISION GAM345(3),COS345(3),PHI345(3) +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,KAONS. + COMMON /KAONS/ CKA + DOUBLE PRECISION CKA(80) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION BETA3,COSTCM,COSTH3,GAMMA3,GAMMA4,PHI3,RA, + * WORK1,WORK2 + INTEGER I,ICHARG,IGO,M3 + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' KDECAY: CURPAR=',1P,9E10.3) + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C DECAY OF K(+,-) (6 MODES) + + IF ( IGO .LE. 2 ) THEN + 21 CALL RMMAR( RD,1,1 ) + RA = RD(1) + +C DECAY K(+,-) ----> MU(+,-) + NEUTRINO + IF ( RA .LE. CKA(23) ) THEN +C NEUTRINO IS DROPPED + WORK1 = CKA(28) * GAMMA + WORK2 = CKA(29) * BETA * WORK1 + CALL RMMAR( RD,2,1 ) + COSTCM = RD(1) * 2.D0 - 1.D0 +C MU(+,-) + GAMMA3 = WORK1 + COSTCM * WORK2 + BETA3 = SQRT( 1.D0 - 1.D0 / GAMMA3**2 ) + COSTH3 = MIN( 1.D0, (GAMMA * GAMMA3 - CKA(28)) + * / (BETA * GAMMA * BETA3 * GAMMA3) ) + PHI3 = RD(2) * PI2 + CALL ADDANG( COSTHE,PHI, COSTH3,PHI3, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = 4 + IGO + SECPAR(2) = GAMMA3 +C DIRECTION OF PION IN THE MUON CM SYSTEM (= DIRECTION OF POLARIZATION) +C SEE: G. BARR ET AL., PHYS. REV. D39 (1989) 3532, EQ. 5 +C POLART IS COS OF ANGLE BETWEEN KAON AND LABORATORY IN THE MU CM +C POLARF IS ANGLE PHI AROUND THE LAB DIRECTION IN THE MU CM +C POLART, POLARF WITH RESPECT TO THE MU DIRECTION IN THE LAB SYSTEM + POLART = ( 2.D0*PAMA(11)*GAMMA*C(6) / (PAMA(5)*GAMMA3) + * - C(6) - 1.D0 ) / ( BETA3 * (1.D0-C(6)) ) + POLARF = PHI3 - PI +C PION DIRECTION IS DIRECTION OF POLARIZATION FOR K+, OPPOSITE FOR K- + IF ( ITYPE .EQ. 12 ) THEN + POLART = -POLART + POLARF = POLARF + PI + ENDIF +C GET THE POLARIZATION DIRECTION IN THE MU CM RELATIVE TO THE CORSIKA +C COORDINATE SYSTEM + CALL ADDANG( SECPAR(3),SECPAR(4), POLART,POLARF, + * POLART,POLARF ) + SECPAR(11) = POLART + SECPAR(12) = POLARF + CALL TSTACK + SECPAR(11) = 0.D0 + SECPAR(12) = 0.D0 + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + GAMMA3 * PAMA(5) + ENDIF + ENDIF + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + GAMMA4 = PAMA(11) * GAMMA - PAMA(5) * GAMMA3 + DLONG(LHEIGH,8) = DLONG(LHEIGH,8) + GAMMA4 + ENDIF + +C DECAY K(+,-) ----> PI(+,-) + PI(0) + ELSEIF ( RA .LE. CKA(47) ) THEN + M3 = ITYPE - 3 + CALL DECAY1( ITYPE, M3, 7 ) + +C DECAY K(+,-) ----> PI(+,-) + PI(+,-) + PI(-,+) + ELSEIF ( RA. LE. CKA(48) ) THEN + CALL DECAY6( PAMA(11), PAMA(8),PAMA(8),PAMA(8), + * CKA(51),CKA(52),CKA(53), CKA(54), 1 ) +C PI(+,-) AND PI(+,-) AND THIRD (ODD) PI(-,+) + DO 230 I = 1,3 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + IF ( I .EQ. 3 ) THEN + SECPAR(1) = 10 - IGO + ELSE + SECPAR(1) = 7 + IGO + ENDIF + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I) * PAMA(8) + ENDIF + ENDIF + 230 CONTINUE + +C DECAY K(+,-) ----> PI(0) + E(+,-) + NEUTRINO + ELSEIF ( RA. LE. CKA(49) ) THEN + CALL DECAY6( PAMA(11), PAMA(7),PAMA(2),0.D0, + * CKA(65),CKA(66),0.D0, CKA(67), 4 ) +C PI(0) AND E(+,-) / NEUTRINO IS DROPPED + DO 250 I = 1,2 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + IF ( I .EQ. 1 ) THEN + SECPAR(1) = 7.D0 + ELSE + SECPAR(1) = 1 + IGO + ENDIF + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( I .EQ. 1 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7)+GAM345(1)*PAMA(7) + ELSE + IF ( IGO .EQ. 1 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + * + (GAM345(2)+1.D0) * PAMA(2) + ELSE + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + * + (GAM345(2)-1.D0) * PAMA(2) + ENDIF + ENDIF + ENDIF + ENDIF + 250 CONTINUE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + GAM345(3)=GAMMA*PAMA(11)-GAM345(1)*PAMA(7)-GAM345(2)*PAMA(2) + DLONG(LHEIGH,8) = DLONG(LHEIGH,8) + GAM345(3) + ENDIF + +C DECAY K(+,-) ----> PI(0) + MU(+,-) + NEUTRINO + ELSEIF ( RA. LE. CKA(50) ) THEN + CALL DECAY6( PAMA(11), PAMA(7),PAMA(5),0.D0, + * CKA(68),CKA(69),0.D0, CKA(70), 3 ) +C PI(0) AND MU(+,-) / NEUTRINO IS DROPPED + DO 260 I = 1,2 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(2) = GAM345(I) + IF ( I .EQ. 1 ) THEN + SECPAR(1) = 7.D0 + ELSE + SECPAR(1) = 4 + IGO + IF ( SECPAR(1) .EQ. 6.D0 ) THEN +C INVERT POLARIZATION DIRECTION FOR MU(-) + POLART = -POLART + POLARF = POLARF + PI + ENDIF +C GET THE POLARIZATION DIRECTION IN THE MU CM RELATIVE TO THE CORSIKA +C COORDINATE SYSTEM + CALL ADDANG( SECPAR(3),SECPAR(4), POLART, POLARF, + * POLART,POLARF ) + SECPAR(11) = POLART + SECPAR(12) = POLARF + ENDIF + CALL TSTACK + SECPAR(11) = 0.D0 + SECPAR(12) = 0.D0 + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( I .EQ. 1 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7)+GAM345(2)*PAMA(7) + ELSE + DLONG(LHEIGH,5) = DLONG(LHEIGH,5)+GAM345(2)*PAMA(5) + ENDIF + ENDIF + ENDIF + 260 CONTINUE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + GAM345(3)=GAMMA*PAMA(11)-GAM345(1)*PAMA(7)-GAM345(2)*PAMA(5) + DLONG(LHEIGH,8) = DLONG(LHEIGH,8) + GAM345(3) + ENDIF + +C DECAY K(+,-) ----> PI(0) + PI(0) + PI(+,-) + ELSE + CALL DECAY6( PAMA(11), PAMA(7),PAMA(7),PAMA(8), + * CKA(55),CKA(56),CKA(57), CKA(58), 1 ) +C PI(0)'S AND PI(+,-) + DO 270 I = 1,3 + IF ( I .EQ. 3 ) THEN + SECPAR(1) = 7 + IGO + ELSE + SECPAR(1) = 7.D0 + ENDIF + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + GAMMA4 = GAM345(I) * PAMA(NINT(SECPAR(1))) + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAMMA4 + ENDIF + ENDIF + 270 CONTINUE + + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C DECAY OF K0S (2 MODES) + ELSEIF ( IGO .EQ. 3 ) THEN + + CALL RMMAR( RD,1,1 ) +C DECAY K0S ----> PI(+) + PI(-) + IF ( RD(1) .LE. CKA(24) ) THEN + CALL DECAY1( ITYPE, 8, 9 ) + +C DECAY K0S ----> PI(0) + PI(0) + ELSE + CALL DECAY1( ITYPE, 7, 7 ) + + ENDIF + +C- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C DECAY OF K0L (4 MODES) + ELSEIF ( IGO .EQ. 4 ) THEN + CALL RMMAR( RD,1,1 ) + RA = RD(1) + +C DECAY K0L ----> PI(+,-) + E(-,+) + NEUTRINO + IF ( RA .LE. CKA(27) ) THEN + CALL DECAY6( PAMA(10), PAMA(8),PAMA(2),0.D0, + * CKA(71),CKA(72),0.D0, CKA(73), 4 ) + CALL RMMAR( RD,1,1 ) +C CHARGE ASYMMETRY PREFERS FORMATION OF PI(-) + ICHARG = INT(1.5016 + RD(1)) +C PI(+,-) AND E(-,+) / NEUTRINO IS DROPPED + DO 420 I = 1,2 + SECPAR(1) = 10 - 3*I - (2*I-3)*ICHARG + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( LLONGI ) THEN + IF ( I .EQ. 1 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(1)*PAMA(8) + ELSE + IF ( SECPAR(1) .EQ. 2.D0 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + * + (GAM345(2)+1.D0) * PAMA(2) + ELSE + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + * + (GAM345(2)-1.D0) * PAMA(2) + ENDIF + ENDIF + ENDIF + ENDIF + 420 CONTINUE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + GAM345(3)=GAMMA*PAMA(10)-GAM345(1)*PAMA(8)-GAM345(2)*PAMA(2) + DLONG(LHEIGH,8) = DLONG(LHEIGH,8) + GAM345(3) + ENDIF + +C DECAY K0L ----> PI(+,-) + MU(-,+) + NEUTRINO + ELSEIF ( RA .LE. CKA(26) ) THEN + CALL DECAY6( PAMA(10), PAMA(8),PAMA(5),0.D0, + * CKA(74),CKA(75),0.D0, CKA(76), 3 ) + CALL RMMAR( RD,1,1 ) +C CHARGE ASYMMETRY PREFERS FORMATION OF PI(-) + ICHARG = INT(1.5016 + RD(1)) +C PI(+,-) AND MU(-,+) / NEUTRINO IS DROPPED + DO 430 I = 1,2 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(2) = GAM345(I) + IF ( I .EQ. 1 ) THEN + SECPAR(1) = 7 + ICHARG + ELSEIF ( I .EQ. 2 ) THEN + SECPAR(1) = 7 - ICHARG + IF ( SECPAR(1) .EQ. 6.D0 ) THEN +C INVERT POLARIZATION DIRECTION FOR MU(-) + POLART = -POLART + POLARF = POLARF + PI + ENDIF +C GET THE POLARIZATION DIRECTION IN THE MU CM RELATIVE TO THE CORSIKA +C COORDINATE SYSTEM + CALL ADDANG( SECPAR(3),SECPAR(4), POLART,POLARF, + * POLART,POLARF ) + SECPAR(11) = POLART + SECPAR(12) = POLARF + ENDIF + CALL TSTACK + SECPAR(11) = 0.D0 + SECPAR(12) = 0.D0 + ELSE +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( LLONGI ) THEN + IF ( I .EQ. 1 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(1)*PAMA(8) + ELSE + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + GAM345(2)*PAMA(5) + ENDIF + ENDIF + ENDIF + 430 CONTINUE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + GAM345(3)=GAMMA*PAMA(10)-GAM345(1)*PAMA(8)-GAM345(2)*PAMA(5) + DLONG(LHEIGH,8) = DLONG(LHEIGH,8) + GAM345(3) + ENDIF + +C DECAY K0L ----> PI(0) + PI(0) + PI(0) + ELSEIF ( RA .LE. CKA(25) ) THEN +C SEE: S.V. SOMALWAR ET AL., PHYS.REV.LET. 68(1992)2580 + CALL DECAY6( PAMA(10), PAMA(7),PAMA(7),PAMA(7), + * CKA(59),-.0033D0,CKA(59), CKA(60), 1 ) +C PI(0)'S + SECPAR(1) = 7.D0 + DO 440 I = 1,3 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I) * PAMA(7) + ENDIF + ENDIF + 440 CONTINUE + +C DECAY K0L ----> PI(+) + PI(-) + PI(0) + ELSE + CALL DECAY6( PAMA(10), PAMA(8),PAMA(8),PAMA(7), + * CKA(61),CKA(62),CKA(63), CKA(64), 1 ) +C PI(+) AND PI(-) AND PI(0) + DO 450 I = 1,3 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + IF ( I .EQ. 3 ) THEN + SECPAR(1) = 7.D0 + ELSE + SECPAR(1) = 7 + I + ENDIF + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( I .EQ. 3 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I)*PAMA(7) + ELSE + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I)*PAMA(8) + ENDIF + ENDIF + ENDIF + 450 CONTINUE + + ENDIF + ENDIF + +C KILL CURRENT PARTICLE + IRET1 = 1 + + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 16/05/95 +C======================================================================= + + SUBROUTINE LONGFT(FPARAM,CHI2) + +C----------------------------------------------------------------------- +C LONG(ITUDINAL) F(I)T +C +C THIS ROUTINE PERFORMS A FIT TO THE LONGITUDINAL DISTRIBUTION OF AN +C AIR SHOWER. DUE TO THE LARGE PARTICLE NUMBERS IN AN AIR SHOWER THE +C STATISTICAL ERRORS ON THE PARTICLE NUMBER AT A GIVEN LEVEL ARE +C MINUTE. THIS LEADS TO RATHER LARGE CHI**2/DOF FOR THE FITS EVEN IF +C THE FITTED FUNCTION MATCHES THE POINTS BETTER THAN SAY 1%. +C KEEP IN MIND THAT FITTING IS A DIFFICULT TASK AND THE RESULTS DO NOT +C NECESSARILY REPRESENT THE ABOLUTE MINIMUM OR EVEN A GOOD +C APPROXIMATION. +C +C IN A FIRST STEP A 4 PARAMETER FIT IS TRIED BASED ON M. HILLAS' CURVE +C WITH WIDTH PARAMETER LAMBDA : +C N(T) = NMAX * ((T-T0)/(TMAX-T0))**((TMAX-T0)/P) * EXP((TMAX-T)/P) +C WITH: +C NMAX = PARTICLE NUMBER AT TMAX +C T = DEPTH IN G/CM**2 +C T0 = STARTING DEPTH OF SHOWER +C TMAX = DEPTH OF SHOWER MAXIMUM +C P = WIDTH PARAMETER LAMBDA +C +C IN A SECOND STEP WE REFINE THE FIT WITH THE START VALUES FROM THE 4 +C PARAMETER FIT AND USE A 6 PARAMETER FIT BASED ON M. HILLAS' CURVE +C REPLACING HIS WIDTH PARAMETER LAMBDA BY A POLYNOMIAL OF 3. DEGREE. +C N(T) = NMAX * ((T-T0)/(TMAX-T0))**((TMAX-T0)/(P1+P2*T+P3*T**2)) +C * EXP((TMAX-T)/(P1+P2*T+P3*T**2)) +C WITH: +C NMAX = PARTICLE NUMBER AT TMAX +C T = DEPTH IN G/CM**2 +C T0 = STARTING DEPTH OF SHOWER +C TMAX = DEPTH OF SHOWER MAXIMUM +C P1 .. P3 = PARAMETERS OF A POLYNOMIAL DESCRIBING THE WIDTH +C +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C ARGUMENTS: +C FPARAM = ARRAY WITH THE FINAL FITTED PARAMETERSTHE 6 PARAMETER +C CHI2 = CHI SQUARED +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CURVE. + COMMON /CURVE/ CHAPAR,DEP,ERR,NSTP + DOUBLE PRECISION CHAPAR(1200),DEP(1200),ERR(1200) + INTEGER NSTP +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER NPAR + PARAMETER (NPAR=6) + DOUBLE PRECISION F(NPAR),FPARAM(NPAR),CHI2,CHISQ,CHISQ1 + DOUBLE PRECISION P(NPAR+1,NPAR),Y(NPAR+1),EPS + DOUBLE PRECISION P1(NPAR-1,NPAR-2),FPARAM1(NPAR-2),CHI21 + DOUBLE PRECISION HALFW,T0,TMAX,NMAX,FAC + INTEGER I,II,ILOWER,IMAX,IUPPER,J,JJ,K,ITER,IFLAG + SAVE + EXTERNAL CHISQ,CHISQ1 +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'LONGFT:' + +C FIND GOOD START VALUES FOR XMAX AND FMAX + NMAX = 0.D0 + TMAX = 400.D0 + DO I = 1,NSTP + ERR(I) = MAX( 1.D0, SQRT(CHAPAR(I)) ) + IF ( CHAPAR(I) .GT. NMAX ) THEN + NMAX = CHAPAR(I) + TMAX = DEP(I) + IMAX = I + ENDIF + ENDDO +C STARTVALUE FOR X0 IS ABOUT WHERE MORE THAN 1 PARTICLE SHOWS UP + II = 1 + DO I = 1,NSTP + IF ( CHAPAR(I) .GT. 1.D0 ) GOTO 1 + II = I + ENDDO +C OBVIOUSLY WE HAVE NO PARTICLES IN THE DISTRIBUTION + WRITE(MONIOU,*) + * 'LONGFT: NO PARTICLES IN LONGITUDINAL DISTRIBUTION' + WRITE (MONIOU,*)' NO FIT POSSIBLE' + DO I = 1,NPAR + FPARAM(I) = 0.D0 + ENDDO + CHI2 = 0.D0 + RETURN + + 1 CONTINUE + IF ( II .GT. 1 ) THEN + T0 = 0.5 * ( DEP(II) + DEP(II-1) ) + ELSE + T0 = DEP(II) + ENDIF +C FIND A START VALUE FOR THE WIDTH PARAMETER AT HALF OF MAXIMUM + IF ( NSTP .GT. 10 ) THEN + DO I = 1,IMAX + IF ( CHAPAR(I) .GT. 0.5D0*NMAX ) THEN + IUPPER = I + GOTO 31 + ENDIF + ENDDO + IUPPER = IMAX - 1 + 31 CONTINUE + DO I = IMAX, NSTP + IF ( CHAPAR(I) .LT. 0.5D0*NMAX ) THEN + ILOWER = I + GOTO 32 + ENDIF + ENDDO + ILOWER = NSTP - 1 + 32 CONTINUE + HALFW = (DEP(ILOWER) - DEP(IUPPER)) /3.9D0 + ELSE +C IF WE HAVE ONLY A FEW POINTS, TAKE AN AVERAGE VALUE FOR THE WIDTH + HALFW = 70.D0 + ENDIF + +C----------------------------------------------------------------------- +C FIT IS PERFORMED WITH THE SUBROUT. AMOEBA FROM: +C NUMERICAL RECIPES, W.H. PRESS ET AL., +C CAMBRIDGE UNIVERSITY PRESS, 1992 ISBN 0 521 43064 X +C SEE THERE HOW IT HAS TO BE USED. + +C WE FIRST FIT THE GAISSER-HILLAS CURVE WITH SIMPLE WIDTH PARAMETER +C THERFORE THE NUMBER OF FREE PARAMETERS IS SET TO 4 = NPAR-2 +C CREATE A SET OF NPAR-1 STARTING VERTICES +C HERE IS THE FIRST ONE + P1(1,1) = NMAX + P1(1,2) = T0 + P1(1,3) = TMAX + P1(1,4) = HALFW + IF (DEBUG) WRITE(MDEBUG,*) 'LONGFT: START VALS=',(P1(1,I),I=1,4) + +C LOOP OVER FITTING ROUTINE (2 TIMES 3 FITS WITH VARYING PRECISION) + DO J = 1,2 + DO JJ = 1,3 +C START WITH CRUDE PRECISION AND IMPROVE STEP BY STEP +C AFTER THREE STEPS ENLARGE AGAIN + EPS = 10.D0**(-3.D0-JJ*0.5D0) + FAC = 1.D0 + 2.D0**(2.1D0*(1.D0-JJ)) +C GO AS WELL IN DIFFERENT DIRECTIONS + IF ( J .EQ. 2 ) FAC = 1.D0/FAC +C GET OTHER NPAR-2 STARTING VERTICES FROM THE STARTING POINT BY +C VARIATION OF ONLY ONE OF THE COORDINATE VALUES + DO I = 2,NPAR-1 + DO K = 1,NPAR-2 + P1(I,K) = P1(1,K) + ENDDO + IF ( P1(I,I-1) .EQ. 0.D0 ) THEN + P1(I,I-1) = 1.D0 + ELSE + P1(I,I-1) = P1(I,I-1) * FAC + ENDIF + ENDDO + IF (DEBUG) WRITE(MDEBUG,*) 'LONGFT: TRIAL1,FAC,EPS ', + * J,FAC,EPS +C CALCULATE FUNCTION VALUES AT THE START VERTICES + DO I = 1,NPAR-1 + DO K = 1,NPAR-2 + F(K) = P1(I,K) + ENDDO + Y(I) = CHISQ1(F) + ENDDO +C PERFORM A FIT + CALL AMOEBA(P1,Y,NPAR-1,NPAR-2,NPAR-2,EPS,CHISQ1,ITER,IFLAG) + IF ( DEBUG ) THEN + WRITE(MDEBUG,*) 'LONGFT: ITER1/IFLAG=',ITER,IFLAG + WRITE(MDEBUG,*) 'LONGFT: PARAMETERS1=',(SNGL(P1(1,K)),K=1,4) + WRITE(MDEBUG,*) 'LONGFT: CHISQ2 =',Y(1) + ENDIF + +C STORE CHI**2 AT FIRST TRIAL OR AT IMPROVED RESULT + IF ( J .EQ. 1 .OR. Y(1) .LT. CHI2 ) THEN + DO 8 I=1,NPAR-2 + FPARAM1(I) = P1(1,I) + 8 CONTINUE + CHI21 = Y(1) + ENDIF +C END OF LOOPS OVER THE FITTING ROUTINE + ENDDO + ENDDO + IF (DEBUG) WRITE(MDEBUG,*) 'LONGFIT: INTERMEDIATE PARAMETERS ARE', + * (SNGL(FPARAM1(I)),I=1,4),CHI21 +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C CREATE A SET OF NPAR+1 STARTING VERTICES +C HERE IS THE FIRST ONE (THE FIRST FOUR PARAMETERS REMAIN UNCHANGED) +C EXPERIENCE SHOWS, THAT THE FIFTH PARAMETER IS USUALLY NEGATIVE + P(1,1) = FPARAM1(1) + P(1,2) = FPARAM1(2) + P(1,3) = FPARAM1(3) + P(1,4) = FPARAM1(4) +** P(1,5) = -0.01D0 ! GIVES SOMETIMES EXTREMELY BAD FITS (OCT. 00 DH) + P(1,5) = 0.D0 + P(1,6) = 0.D0 + +C LOOP OVER THE FITTING ROUTINE (2 TIMES 5 FITS WITH VARYING PRECISION) + DO J = 1,2 + DO JJ = 1,5 +C START WITH CRUDE PRECISION AND IMPROVE STEP BY STEP +C AFTER FIVE STEPS ENLARGE AGAIN + EPS = 10.D0**(-3.D0-JJ*0.5D0) + FAC = 1.D0 + 2.D0**(2.1D0*(1.D0-JJ)) +C GO AS WELL IN DIFFERENT DIRECTIONS + IF ( J .EQ. 2 ) FAC = 1.D0/FAC +C GET OTHER NPAR STARTING VERTICES FROM THE STARTING POINT BY VARIATION +C OF ONLY ONE OF THE COORDINATE VALUES + DO I = 2,NPAR+1 + DO K = 1,NPAR + P(I,K) = P(1,K) + ENDDO + IF ( P(I,I-1) .EQ. 0.D0 ) THEN + P(I,I-1) = 1.D0 + ELSE + P(I,I-1) = P(I,I-1) * FAC + ENDIF + ENDDO + IF (DEBUG) WRITE(MDEBUG,*) 'LONGFT: TRIAL,FAC,EPS ',J, + * SNGL(FAC),SNGL(EPS) +C CALCULATE FUNCTION VALUES AT THE START VERTICES + DO I = 1,NPAR+1 + DO K = 1,NPAR + F(K) = P(I,K) + ENDDO + Y(I) = CHISQ(F) + ENDDO +C PERFORM A FIT + CALL AMOEBA(P,Y,NPAR+1,NPAR,NPAR,EPS,CHISQ,ITER,IFLAG) + IF ( DEBUG ) THEN + WRITE(MDEBUG,*) 'LONGFT: ITER/IFLAG=',ITER,IFLAG + WRITE(MDEBUG,*) 'LONGFT: PARAMETERS=',(SNGL(P(1,K)),K=1,6) + WRITE(MDEBUG,*) 'LONGFT: CHISQ =',SNGL(Y(1)) + ENDIF +C STORE VALUES AT FIRST TRIAL OR AT IMPROVED RESULT + IF ( J .EQ. 1 .OR. Y(1) .LT. CHI2 ) THEN + DO I = 1,NPAR + FPARAM(I) = P(1,I) + ENDDO + CHI2 = Y(1) + ENDIF +C END OF LOOPS OVER THE FITTING ROUTINE + ENDDO + ENDDO + + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE LOWUP(CHAR) + +C----------------------------------------------------------------------- +C (CONVERTS) LOW(ER CASE CHARACTER TO) UP(PER CASE CHARACTER) +C +C THIS SUBROUTINE IS CALLED FROM DATAC. +C ARGUMENT: +C CHAR = CHARACTER TO BE CONVERTED +C +C REDESIGN : K. BERNLOEHR MPIK HEIDELBERG 1998 +C----------------------------------------------------------------------- + + IMPLICIT NONE + + INTEGER IDX + CHARACTER*1 CHAR + CHARACTER LOWCHR*26, UPRCHR*26 + SAVE + DATA UPRCHR/'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/ + DATA LOWCHR/'abcdefghijklmnopqrstuvwxyz'/ +C----------------------------------------------------------------------- + + IDX = INDEX(LOWCHR,CHAR) + IF ( IDX .NE. 0 ) CHAR = UPRCHR(IDX:IDX) + + RETURN + END +*CMZ : 28/02/2002 13.12.11 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 15/10/96 +C======================================================================= + + SUBROUTINE MMOL4(Y,X,VAL,ARG,EPS,IER) + +C----------------------------------------------------------------------- +C M(UON) MOL(IERE SCATTERING) 4 (POINT CONTINUED FRACT. INTERPOLATION) +C +C ROUTINE TAKEN FROM IBM SCIENTIFIC SUBROUT. PACKAGE +C ROUTINE TAKEN FROM GEANT321 (CERN) +C 4 POINT CONTINUED FRACTION INTERPOLATION +C THIS SUBROUTINE IS CALLED FROM MMOLIE. +C ARGUMENTS: +C Y = INTERPOLATED VALUE FOR THE ARGUMENT X +C X = ARGUMENT FOR Y +C VAL = VALUE ARRAY +C ARG = ARGUMENT ARRAY +C EPS = DESIRED ACCURACY +C IER = OUTPUT ERROR PARAMETER +C 0 ACCURACY O.K. +C 1 ACCURACY CAN NOT BE TESTED IN 4TH ORDER INTERPOLATION +C 2 TWO IDENTICAL ELEMENTS IN THE ARGUMENT ARRAY +C----------------------------------------------------------------------- + + IMPLICIT NONE + + REAL ARG(4),AUX,DELT,EPS,H,P1,P2,P3,Q1,Q2,Q3,VAL(4),X,Y,Z + INTEGER I,II,III,IER,J,JEND + SAVE +C----------------------------------------------------------------------- + + IER = 1 + Y = VAL(1) + P2 = 1. + P3 = Y + Q2 = 0. + Q3 = 1. + DO 16 I = 2,4 + II = 0 + P1 = P2 + P2 = P3 + Q1 = Q2 + Q2 = Q3 + Z = Y + JEND = I - 1 + 3 AUX = VAL(I) + DO 10 J = 1,JEND + H = VAL(I) - VAL(J) + IF ( ABS(H) .GT. 1.E-6*ABS(VAL(I)) ) GOTO 9 + IF ( ARG(I) .EQ. ARG(J) ) GOTO 17 + IF ( J .LT. JEND ) GOTO 8 + II = II + 1 + III = I + II + IF ( III .GT. 4 ) GOTO 19 + VAL(I) = VAL(III) + VAL(III) = AUX + AUX = ARG(I) + ARG(I) = ARG(III) + ARG(III) = AUX + GOTO 3 + 8 VAL(I) = 1.E36 + GOTO 10 + 9 VAL(I) = ( ARG(I)-ARG(J) ) / H + 10 CONTINUE + P3 = VAL(I) * P2 + ( X - ARG(I-1) ) * P1 + Q3 = VAL(I) * Q2 + ( X - ARG(I-1) ) * Q1 + IF ( Q3. NE. 0. ) THEN + Y = P3 / Q3 + ELSE + Y = 1.E36 + ENDIF + DELT = ABS(Z-Y) + IF ( DELT .LE. EPS ) GOTO 19 + 16 CONTINUE + RETURN + 17 IER = 2 + RETURN + 19 IER = 0 + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 15/10/96 +C======================================================================= + + SUBROUTINE MMOLIE(OMEGA,DENS) + +C----------------------------------------------------------------------- +C M(UON) MOLIE(RE MULTIPLE SCATTERING) +C +C TREATES MOLIERE MULTIPLE SCATTERING FOR MUONS +C CORRECTED FOR FINITE ANGLE SCATTERING +C THIS SUBROUTINE IS IN ANALOGY WITH SUBROUT. GMOLIE +C (AUTHOR: M.S.DIXIT, NRCC, OTTAWA) OF GEANT321 +C SEE CERN PROGRAM LIBRARY LONG WRITEUP W5013 +C THIS SUBROUTINE IS CALLED FROM UPDATE. +C ARGUMENTS: +C OMEGA = NUMBER OF SCATTERINGS FOR THE STEP +C DENS = LOCAL DENSITY +C +C REDESIGN: D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION TINT(40),B,BINV,CHIC,CNST,DB,DENS,OMEGA,SINTH, + * TEST,TMP + REAL ARG(4),F0I(40),F1I(40),F2I(40), + * THRED(40),VAL(4),F,THRI,XINT + INTEGER IER,JA,L,M,NA,NA3,NA3M,NMAX + SAVE + + DATA THRED/ 0.00, 0.10, 0.20, 0.30 + + , 0.40, 0.50, 0.60, 0.70 + + , 0.80, 0.90, 1.00, 1.10 + + , 1.20, 1.30, 1.40, 1.50 + + , 1.60, 1.70, 1.80, 1.90 + + , 2.00, 2.20, 2.40, 2.60 + + , 2.80, 3.00, 3.20, 3.40 + + , 3.60, 3.80, 4.00, 5.00 + + , 6.00, 7.00, 8.00, 9.00 + + , 10.00,11.00,12.00,13.00 / + DATA F0I/ + + 0.000000E+00 ,0.995016E-02 ,0.392106E-01 ,0.860688E-01 + + ,0.147856E+00 ,0.221199E+00 ,0.302324E+00 ,0.387374E+00 + + ,0.472708E+00 ,0.555142E+00 ,0.632121E+00 ,0.701803E+00 + + ,0.763072E+00 ,0.815480E+00 ,0.859142E+00 ,0.894601E+00 + + ,0.922695E+00 ,0.944424E+00 ,0.960836E+00 ,0.972948E+00 + + ,0.981684E+00 ,0.992093E+00 ,0.996849E+00 ,0.998841E+00 + + ,0.999606E+00 ,0.999877E+00 ,0.999964E+00 ,0.999990E+00 + + ,0.999998E+00 ,0.999999E+00 ,0.100000E+01 ,0.100000E+01 + + ,0.100000E+01 ,0.100000E+01 ,0.100000E+01 ,0.100000E+01 + + ,1.000000E+00 ,1.000000E+00 ,1.000000E+00 ,1.000000E+00 / + DATA F1I/ + + 0.000000E+00, 0.414985E-02, 0.154894E-01, 0.310312E-01 + + , 0.464438E-01, 0.569008E-01, 0.580763E-01, 0.468264E-01 + + , 0.217924E-01,-0.163419E-01,-0.651205E-01,-0.120503E+00 + + ,-0.178272E+00,-0.233580E+00,-0.282442E+00,-0.321901E+00 + + ,-0.350115E+00,-0.366534E+00,-0.371831E+00,-0.367378E+00 + + ,-0.354994E+00,-0.314803E+00,-0.266539E+00,-0.220551E+00 + + ,-0.181546E+00,-0.150427E+00,-0.126404E+00,-0.107830E+00 + + ,-0.933106E-01,-0.817375E-01,-0.723389E-01,-0.436650E-01 + + ,-0.294700E-01,-0.212940E-01,-0.161406E-01,-0.126604E-01 + + ,-0.102042E-01,-0.840465E-02,-0.704261E-02,-0.598886E-02/ + DATA F2I/ + + 0.000000 , 0.121500E-01, 0.454999E-01, 0.913000E-01 + + , 0.137300E+00, 0.171400E+00, 0.183900E+00, 0.170300E+00 + + , 0.132200E+00, 0.763000E-01, 0.126500E-01,-0.473500E-01 + + ,-0.936000E-01,-0.119750E+00,-0.123450E+00,-0.106300E+00 + + ,-0.732800E-01,-0.312400E-01, 0.128450E-01, 0.528800E-01 + + , 0.844100E-01, 0.114710E+00, 0.106200E+00, 0.765830E-01 + + , 0.435800E-01, 0.173950E-01, 0.695001E-03,-0.809500E-02 + + ,-0.117355E-01,-0.125449E-01,-0.120280E-01,-0.686530E-02 + + ,-0.385275E-02,-0.231115E-02,-0.147056E-02,-0.982480E-03 + + ,-0.682440E-03,-0.489715E-03,-0.361190E-03,-0.272582E-03/ +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'MMOLIE: OMEGA=',SNGL(OMEGA), + * ' DENS=',SNGL(DENS) + +C COMPUTE VSCAT ANGLE FROM MOLIERE DISTRIBUTION + VSCAT = 0.D0 + IF ( OMEGA .LE. ENEPER ) RETURN + CNST = LOG(OMEGA) + B = 5.D0 + DO 10 L = 1,10 + IF ( ABS(B) .LT. 1.D-10 ) THEN + B = 1.D-10 + ENDIF + DB = - ((B - LOG(ABS(B)) - CNST)/(1.D0 - 1.D0/B)) + B = B + DB + IF ( ABS(DB) .LE. 0.0001D0 ) GOTO 20 + 10 CONTINUE + RETURN + 20 CONTINUE + IF ( B .LE. 0.D0 ) RETURN +C CHC IS DEFINED DIFFERENTLY FROM GEANT + CHIC = CHC*SQRT(CHI)/(PAMA(5)*GAMMA*BETA**2) + BINV = 1.D0/B + TINT(1) = 0.D0 + DO 30 JA = 2,4 + TINT(JA) = F0I(JA) + ( F1I(JA) + F2I(JA)*BINV ) * BINV + 30 CONTINUE + NMAX = 4 + 40 CONTINUE + CALL RMMAR(RD,2,1) + XINT = RD(2) + DO 50 NA = 3,40 + IF ( NA .GT. NMAX ) THEN + TINT(NA) = F0I(NA) + ( F1I(NA) + F2I(NA)*BINV ) * BINV + NMAX = NA + ENDIF + IF ( XINT .LE. TINT(NA-1) ) GOTO 60 + 50 CONTINUE + IF ( XINT .LE. TINT(40) ) THEN + NA = 40 + GOTO 60 + ELSE + TMP = 1.D0 - ( 1.D0 - B*(1.D0-XINT) )**5 + IF ( TMP .LE. 0.D0 ) GOTO 40 + THRI = 5.D0 / TMP + GOTO 80 + ENDIF + 60 CONTINUE + NA = MAX(NA-1,3) + NA3 = NA-3 + DO 70 M = 1,4 + NA3M = NA3 + M + ARG(M) = TINT(NA3M) + VAL(M) = THRED(NA3M)**2 + 70 CONTINUE + F = THRED(NA) * .02D0 + CALL MMOL4(THRI,XINT,VAL,ARG,F,IER) + 80 CONTINUE + VSCAT = CHIC * SQRT( ABS(B*THRI) ) + IF ( VSCAT .GT. PI ) GOTO 40 + SINTH = SIN(VSCAT) + TEST = VSCAT * (RD(1))**2 + IF ( TEST .GT. SINTH ) GOTO 40 + + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 15/10/96 +C======================================================================= + + SUBROUTINE MPOISS(AMEAN,NPRAN) + +C----------------------------------------------------------------------- +C M(UON COULOMB SCATTERING) POISS(ON DISTRIBUTION) +C +C GENERATES A RANDOM NUMBER POISSON DISTRIBUTED WITH MEAN VALUE AMEAN. +C THIS SUBROUTINE IS IN ANALOGY WITH SUBROUT. GPOISS. +C (AUTHOR: L. URBAN) OF GEANT321 +C SEE CERN PROGRAM LIBRARY LONG WRITEUP W5013. +C THIS SUBROUTINE IS CALLED FROM MUCOUL. +C ARGUMENTS: +C AMEAN = MEAN VALUE OF RANDOM NUMBER +C NPRAN = RANDOM NUMBER POISSON DISTRIBUTED +C +C REDESIGN: D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AMEAN,AN,HMXINT,P,PLIM,RR,S,X + INTEGER NPRAN + SAVE + DATA PLIM/16.D0/,HMXINT/2.D9/ +C----------------------------------------------------------------------- + +C PROTECTION AGAINST NEGATIVE MEAN VALUES + AN = 0.D0 + IF ( AMEAN .GT. 0.D0 ) THEN + IF ( AMEAN .LE. PLIM ) THEN + CALL RMMAR(RD,1,1) + P = EXP(-AMEAN) + S = P + IF ( RD(1) .LE. S ) GOTO 20 + 10 AN = AN + 1.D0 + P = P * AMEAN / AN + S = S + P + IF ( S .LT. RD(1) .AND. P .GT. 1.D-30 ) GOTO 10 + ELSE + CALL RMMAR(RD,2,1) + RR = SQRT( (-2.D0)*LOG(RD(1)) ) + X = RR * COS( PI2 * RD(2) ) + AN = MIN( MAX( AMEAN+X*SQRT(AMEAN), 0.D0 ), HMXINT ) + ENDIF + ENDIF + 20 NPRAN = AN + + RETURN + END +*CMZ : 28/02/2002 13.12.11 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 25/09/96 +C======================================================================= + + SUBROUTINE MUBREM + +C----------------------------------------------------------------------- +C MU(ON) BREM(SSTRAHLUNG) +C +C TREATES MUON BREMSSTRAHLUNG (WITHOUT POLARISATION EFFECTS) +C IN ANALOGY WITH SUBROUT. GBREMM FROM GEANT WRITTEN BY L. URBAN +C EXPLANATIONS SEE CERN PROGRM LIBRARY LONG WRITEUP W5013 +C THIS SUBROUTINE IS CALLED FROM MUTRAC. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ALFA1,BETA1,COSTH3,CREJ,D,F1, + * EKIN,EMUON,PHI3,SCREJ,SINTH3,THETA3,U,UMAX, + * V,VC,VM,V1,W1,Z,THICK + INTEGER I + SAVE + EXTERNAL THICK + DATA ALFA1/0.625D0/ +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' MUBREM: CURPAR=',1P,9E10.3) + +C COPY VERTEX COORDINATES TO SECPAR + DO 11 I = 5,8 + SECPAR(I) = CURPAR(I) + 11 CONTINUE + SECPAR( 9) = GEN + SECPAR(14) = CURPAR(14) + SECPAR(15) = CURPAR(15) + SECPAR(16) = CURPAR(16) + IF ( LLONGI ) LHEIGH = INT(THICK(H)*THSTPI + 1.D0) + +C TOTAL AND KINETIC ENERGY OF MUON + EMUON = PAMA(5) * GAMMA + EKIN = EMUON - PAMA(5) + IF ( EKIN .LE. BCUT ) THEN +C MUON ENERGY IS TOO LOW TO PRODUCE BREMSSTRAHLUNG + SECPAR(2) = CURPAR(2) + GOTO 900 + ENDIF + VC = BCUT/EMUON + VM = 1.D0 - CMUON(6+LT)/EMUON + IF ( VM .LE. 0.D0 ) THEN +C MAXIMUM OF BREMSSTRAHLUNG SPECTRUM IS NEGATIVE, NO BREMSSTRAHLUNG + SECPAR(2) = CURPAR(2) + GOTO 900 + ENDIF + CREJ = CMUON(3+LT)/EMUON + + 50 CALL RMMAR(RD,2,1) + V = VC*(VM/VC)**RD(1) + V1 = 1.D0 - V +C COMPUTE REJECTION FUNCTION + F1 = CMUON(LT) - LOG(1.D0 + CREJ*V/V1) + SCREJ = (V1 + 0.75D0*V*V)*F1/CMUON(LT) + IF ( RD(2) .GT. SCREJ ) GOTO 50 + +C PHOTON ENERGY + SECPAR(2) = EMUON * V + +C RADIATED GAMMA BELOW CUT? + IF ( SECPAR(2) .LE. ELCUT(4) ) THEN + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + SECPAR(2) + ENDIF +C REDUCE ENERGY OF MUON + GOTO 800 + ENDIF + +C SET MATERIAL CONSTANTS CMUON(.) ACCORDING TO +C TARGET INDEX LT (1=N, 2=O, 3=AR) WHICH HAS BEEN SET IN BOX2 + IF ( LT .EQ. 1 ) THEN + Z = 7.D0 + ELSEIF ( LT .EQ. 2 ) THEN + Z = 8.D0 + ELSE + Z = 18.D0 + ENDIF + +C GENERATE EMITTED PHOTON ANGLES WITH RESPECT TO MUON DIRECTION +C PHI IS GENERATED ISOTROPICALLY AND THETA IS ASSIGNED A UNIVERSAL +C ANGULAR DISTRIBUTION WITH D=D(Z,E,V) +C THIS FUNCTION APPROXIMATES THE REAL DISTRIBUTION FUNCTION WHICH CAN +C BE FOUND IN: YUNG-SU TSAI, REV. MOD. PHYS. 46(1974)815 +C +ERRATUM: REV. MOD. PHYS. 49(1977)421 + D = 0.13D0 *(0.8D0 + 1.3D0/Z) * (100.D0 + 1.D0/EMUON) * (1.D0 + V) + W1 = 9.D0 / (9.D0 + D) + UMAX = EMUON * PI / PAMA(5) +10 CALL RMMAR(RD,3,1) + IF ( RD(1) .LE. W1 ) THEN + BETA1 = ALFA1 + ELSE + BETA1 = 3.D0 * ALFA1 + ENDIF + U = -(( LOG(RD(2) * RD(3)) ) / BETA1) +C CUT: THETA SHOULD BE .LE. PI ! +C THIS CONDITION DEPENDS ON E IN THE CASE OF D=CONST TOO! + IF ( U .GE. UMAX ) GOTO 10 + + THETA3 = U * PAMA(ITYPE) / EMUON + COSTH3 = COS( THETA3 ) + SINTH3 = SIN( THETA3 ) + CALL RMMAR(RD,1,1) + + PHI3 = PI2 * RD(1) + CALL ADDANG( COSTHE,PHI, COSTH3,PHI3, SECPAR(3),SECPAR(4)) + IF ( SECPAR(3) .GT. C(29) ) THEN +C WRITE BREMSSTRAHLUNG PHOTON TO STACK + SECPAR( 1) = 1.D0 + SECPAR(10) = H + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + SECPAR(2) + ENDIF + + ENDIF + +C REDUCE ENERGY OF MUON + 800 CONTINUE + EMUON = EMUON * V1 + SECPAR(2) = EMUON/PAMA(5) + + 900 CONTINUE +C WRITE MUON TO STACK + SECPAR( 1) = CURPAR(1) + SECPAR( 3) = CURPAR(3) + SECPAR( 4) = CURPAR(4) + SECPAR(10) = ALEVEL + CALL TSTACK + + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 15/10/96 +C======================================================================= + + SUBROUTINE MUCOUL(OMEGA,DENS) + +C----------------------------------------------------------------------- +C MU(ON) COUL(OMB SCATTERING OF SINGLE SCATTERING EVENTS) +C +C TREATES SINGLE COULOMB SCATTERING FOR MUONS IN SMALL ANGLE +C APPROXIMATION. +C THIS SUBROUTINE IS IN ANALOGY WITH SUBROUT. GMCOUL +C (AUTHOR: G. LYNCH, LBL) OF GEANT321 +C SEE CERN PROGRAM LIBRARY LONG WRITEUP W5013 +C THIS SUBROUTINE IS CALLED FROM UPDATE. +C ARGUMENTS: +C OMEGA = NUMBER OF SCATTERINGS FOR THE STEP +C DENS = LOCAL DENSITY +C +C REDESIGN: D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION DENS,OMCF,OMEGA,OMEGA0,PHIS,SUMX,SUMY, + * THET,THMIN2 + INTEGER I,NSCMX,NSCA + SAVE + DATA OMCF/1.167D0/,NSCMX/50/ +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'MUCOUL: OMEGA=',SNGL(OMEGA), + * ' DENS=',SNGL(DENS) + +C COMPUTE NUMBER OF SCATTERS (POISSON DISTR. WITH MEAN OMEGA0) + OMEGA0 = OMCF*OMEGA + CALL MPOISS (OMEGA0,NSCA) + IF ( NSCA .LE. 0 ) THEN + VSCAT = 0.D0 + RETURN + ENDIF + NSCA = MIN(NSCA,NSCMX) + CALL RMMAR(RD,2*NSCA,1) + +C THMIN2 IS THE SCREENING ANGLE + THMIN2 = CHC**2/( OMCF*OMC * (PAMA(5)*BETA*GAMMA)**2 ) + + SUMX = 0.D0 + SUMY = 0.D0 + DO 12 I = 1,NSCA + THET = SQRT( THMIN2*((1./RD(I)) - 1.) ) + PHIS = PI2 * RD(NSCA+I) + SUMX = SUMX + THET*COS(PHIS) + SUMY = SUMY + THET*SIN(PHIS) + 12 CONTINUE + VSCAT = SQRT(SUMX**2 + SUMY**2) + + RETURN + END +*CMZ : 28/02/2002 13.12.11 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE MUDECY + +C----------------------------------------------------------------------- +C MU(ON) DEC(A)Y +C +C TREATES DECAY OF MUON INTO ELECTRON (INCLUDING POLARISATION EFFECTS) +C INCLUDING NEUTRINOS, IF SELECTED +C THIS SUBROUTINE IS CALLED FROM MUTRAC. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AUX2,COSDE,COSTH3,COS3CM,COS3C1,COS3C2, + * E3CM,GAMMA3,GAMMA4,PHI3CM,PHI3C2,PHI31, + * P3CM,THICK,XI + INTEGER I + SAVE + EXTERNAL THICK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' MUDECY: CURPAR=',1P,9E10.3) + +C COPY VERTEX COORDINATES TO SECPAR + DO 4 I = 5,8 + SECPAR(I) = CURPAR(I) + 4 CONTINUE + SECPAR( 9) = GEN + SECPAR(10) = ALEVEL + SECPAR(14) = CURPAR(14) + SECPAR(15) = CURPAR(15) + SECPAR(16) = CURPAR(16) + IF ( LLONGI ) LHEIGH = INT(THICK(H)*THSTPI + 1.D0) + +C MUON DECAYS INTO ELECTRON AND NEUTRINOS + XI = 2*ITYPE - 11 +C ELECTRON ENERGY SPECTRUM N(E) * DE = CONST * E**2 * (3/2*E0-E) * DE +C IS GAINED BY THE REJECTION/REFLECTION METHOD + 6 CALL RMMAR( RD,4,1 ) + IF ( RD(1)**2*(3.-RD(1)*2.) .LT. RD(2) ) RD(1) = 1.-RD(1) + E3CM = PAMA(2) + RD(1) * ( C(8) - PAMA(2) ) + IF ( E3CM .GT. 0.5D0*PAMA(5) ) GOTO 6 + P3CM = SQRT( E3CM**2 - PAMA(2)**2 ) +C NOW DETERMINE COS3C1 AND PHI31 BY RANDOM SELECTION +C WITH RESPECT TO THE POLARIZATION DIRECTION OF THE MUON IN THE MU CM +C GIVEN BY POLART, POLARF + COSDE = 2.D0 * RD(4) - 1.D0 + AUX2 = ( 1. - 2.*RD(1) ) / ( 3. - 2.*RD(1) ) + IF ( ABS(AUX2) .GT. 1.D-2 ) THEN + COS3C1 = XI*(SQRT(1.D0-(2.D0*COSDE-AUX2)*AUX2) - 1.D0) / AUX2 + ELSE + COS3C1 = (-XI) * COSDE + ENDIF + PHI31 = RD(3)*PI2 + +C NOW ADD ELECTRON EMISSION ANGLE COS3C1 TO THE POLARISATION DIRECTION +C TO GET THE DIRECTION (RELATIVE TO THE CORSIKA COORDINATE SYSTEM) + CALL ADDANG( POLART,POLARF, COS3C1,PHI31, COS3C2,PHI3C2 ) +C GET THE ELECTRON DIRECTION RELATIVE TO THE MUON LAB DIRECTION + CALL ADDANI( CURPAR(3),CURPAR(4), COS3C2,PHI3C2, COS3CM,PHI3CM ) +C LORENTZ TRANSFORMATION TO THE LAB SYSTEM + GAMMA3 = GAMMA * ( E3CM + BETA * P3CM * COS3CM ) / PAMA(2) + COSTH3 = MIN( 1.D0, GAMMA * (P3CM * COS3CM + BETA * E3CM) / + * (PAMA(2) * SQRT(GAMMA3**2 - 1.D0)) ) + CALL ADDANG( CURPAR(3),CURPAR(4), COSTH3,PHI3CM, + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = ITYPE - 3 + SECPAR(2) = GAMMA3 + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( ITYPE .EQ. 5 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + (GAMMA3+1.D0) * PAMA(2) + ELSE + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + (GAMMA3-1.D0) * PAMA(2) + ENDIF + ENDIF + ENDIF + POLART = 0.D0 + POLARF = 0.D0 + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + GAMMA4 = GAMMA * PAMA(5) - GAMMA3 * PAMA(2) + DLONG(LHEIGH,8) = DLONG(LHEIGH,8) + GAMMA4 + ENDIF + + RETURN + END +*CMZ : 05/07/2001 13.19.11 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 04/10/96 +C======================================================================= + + SUBROUTINE MUPRPR + +C----------------------------------------------------------------------- +C MU(ON) P(AI)R PR(ODUCTION) +C +C TREATES MUON PAIR PRODUCTION (WITHOUT POLARISATION EFFECTS) +C IN ANALOGY WITH SUBROUTINE SUBROUT. FROM GEANT WRITTEN BY L. URBAN +C EXPLANATIONS SEE CERN PROGRM LIBRARY LONG WRITEUP W5013 +C THIS SUBROUTINE IS CALLED FROM MUTRAC. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AA,ALE,ALFA,AL10T,A1,A1R,B,BETA1,CC,C1,C2, + * COSTH3,EKIN,EMUON,ENEG,EPOS,EPP, + * PHI3,R0,R0MAX,SCREJ,THICK, + * V,VC,VMAX,VMIN,V0,Z + INTEGER I + SAVE + EXTERNAL THICK + DATA AL10T/9.212D0/ +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' MUPRPR: CURPAR=',1P,9E10.3) + +C COPY VERTEX COORDINATES TO SECPAR + DO 11 I = 5,8 + SECPAR(I) = CURPAR(I) + 11 CONTINUE + SECPAR( 9) = GEN + SECPAR(14) = CURPAR(14) + SECPAR(15) = CURPAR(15) + SECPAR(16) = CURPAR(16) + IF ( LLONGI ) LHEIGH = INT(THICK(H)*THSTPI + 1.D0) + +C SET MATERIAL CONSTANTS CMUON(.) ACCORDING TO +C TARGET INDEX LT (1=N, 2=O, 3=AR) WHICH HAS BEEN SET IN BOX2 + IF ( LT .EQ. 1 ) THEN + Z = 7.D0 + ELSEIF ( LT .EQ. 2 ) THEN + Z = 8.D0 + ELSE + Z = 18.D0 + ENDIF +C TOTAL AND KINETIC ENERGY OF MUON + EMUON = PAMA(5) * GAMMA + EKIN = EMUON - PAMA(5) + IF ( EKIN .LE. BCUT ) GOTO 900 +C + VMIN = 4.D0 * PAMA(2) / EMUON + VMAX = 1.D0 - CMUON(10) * Z**OB3 / EMUON + IF ( VMAX .LE. VMIN ) GOTO 900 + VC = BCUT / EMUON + ALE = LOG(EMUON) + ALFA = 1.D0 + ALE/AL10T + V0 = 0.18D0 * (4.D0 + ALE/AL10T) * ALFA * (ALFA*VMIN)**TB3 + BETA1 = 0.1D0 * (1.D0 + 3.D0 * ALE/AL10T) + B = 0.9D0 / (1.D0 + 0.4D0*ALE + 0.022D0*ALE**2) + AA = 1.D0 + 2.D0 * B * LOG(VC/V0) + IF ( AA .LE. 1.D0 ) AA = 1.05D0 + A1 = 1.D0 - AA + CC = EXP((-0.25D0)*A1*A1/B) + A1R = 1.D0 / A1 + C1 = VMAX**A1 + C2 = VC**A1 +C SAMPLE ENERGY FRACTION V AND RO + 50 CALL RMMAR(RD,2,1) + V = ( RD(1)*C1 + (1.-RD(1))*C2 )**A1R + IF ( V .LE. VMIN ) GOTO 50 + IF ( V .LT. V0 ) THEN + SCREJ = CC * ( (V-VMIN)/(V0-VMIN) )**BETA * (V0/V)**A1 + ELSE + SCREJ = CC * (V0/V)**( A1 + B*LOG(V/V0) ) + ENDIF + IF ( RD(2) .GT. SCREJ ) GOTO 50 + R0MAX = SCREJ * ( 1.D0 - 6.D0 *PAMA(5)/( EMUON**2 * (1.D0-V) ) ) + CALL RMMAR(RD,2,1) + R0 = R0MAX * (2.*RD(1)-1.) +C ENERGIES + EPP = V * EMUON + EPOS = 0.5D0 * EPP * (1.D0 + R0) + ENEG = EPP - EPOS +C ANGLES + COSTH3 = COS( PAMA(5)/EMUON ) + PHI3 = PI2 * RD(2) +C POSITRON + IF ( EPOS .GT. BCUT+PAMA(2) ) THEN + CALL ADDANG( COSTHE,PHI, COSTH3,PHI3, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR( 1) = 2.D0 + SECPAR( 2) = EPOS/PAMA(2) + SECPAR(10) = H + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + EPOS + PAMA(2) + ENDIF + ENDIF + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + EPOS + PAMA(2) + ENDIF + ENDIF +C ELECTRON + IF ( ENEG .GT. BCUT+PAMA(2) ) THEN + CALL ADDANG( COSTHE,PHI, COSTH3,-PHI3, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR( 1) = 3.D0 + SECPAR( 2) = ENEG/PAMA(2) + SECPAR(10) = H + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + ENEG - PAMA(2) + ENDIF + ENDIF + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + ENEG - PAMA(2) + ENDIF + ENDIF +C REDUCE ENERGY OF MUON + 60 CONTINUE + GAMMA = (EMUON - EPP)/ PAMA(5) + + 900 CONTINUE +C WRITE MUON TO STACK + SECPAR( 1) = CURPAR(1) + SECPAR( 2) = GAMMA + SECPAR( 3) = CURPAR(3) + SECPAR( 4) = CURPAR(4) + SECPAR(10) = ALEVEL + CALL TSTACK + + RETURN + END +*CMZ : 05/03/2002 08.29.07 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 25/09/96 +C======================================================================= + + SUBROUTINE MUTRAC(fmfb) + +C----------------------------------------------------------------------- +C MU(ON) TRAC(KING) +C +C TRACKS THE MUON REGARDING MAX. STEP LENGTH FOR MULTIPLE SCATTERING +C CHECKS PASSAGE THROUGH OBSERVATION LEVELS +C IRET1=1 KILLS PARTICLE +C IRET2=1 PARTICLE HAS BEEN CUTTED IN UPDATE +C THIS SUBROUTINE IS CALLED FROM BOX3. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,NPARTI. + COMMON /NPARTI/ NPARTO + DOUBLE PRECISION NPARTO(10,25),NPHOTO(10),NPOSIT(10),NELECT(10), + * NNU(10),NMUP(10),NMUM(10),NPI0(10),NPIP(10), + * NPIM(10),NK0L(10),NKPL(10),NKMI(10),NNEUTR(10), + * NPROTO(10),NPROTB(10),NK0S(10),NHYP(10), + * NNEUTB(10),NDEUT(10),NTRIT(10),NALPHA(10), + * NOTHER(10),NMUOND + EQUIVALENCE (NPARTO(1, 1),NPHOTO(1)), (NPARTO(1, 2),NPOSIT(1)), + * (NPARTO(1, 3),NELECT(1)), (NPARTO(1, 4),NNU(1)) , + * (NPARTO(1, 5),NMUP(1)) , (NPARTO(1, 6),NMUM(1)) , + * (NPARTO(1, 7),NPI0(1)) , (NPARTO(1, 8),NPIP(1)) , + * (NPARTO(1, 9),NPIM(1)) , (NPARTO(1,10),NK0L(1)) , + * (NPARTO(1,11),NKPL(1)) , (NPARTO(1,12),NKMI(1)) , + * (NPARTO(1,13),NNEUTR(1)), (NPARTO(1,14),NPROTO(1)), + * (NPARTO(1,15),NPROTB(1)), (NPARTO(1,16),NK0S(1)) , + * (NPARTO(1,18),NHYP(1)) , (NPARTO(1,19),NDEUT(1)) , + * (NPARTO(1,20),NTRIT(1)) , (NPARTO(1,21),NALPHA(1)), + * (NPARTO(1,22),NOTHER(1)), (NPARTO(1,25),NNEUTB(1)), + * (NPARTO(1,23),NMUOND) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AUX,CHITOT,STPTOT + INTEGER I,IRET3 + LOGICAL FSCAT + LOGICAL FLAG +c-----changed--add + logical fmfb +c-----changed--add + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' MUTRAC: CURPAR=',1P,9E10.3) + +C THE PLACE OF NEXT INTERACTION WAS DETERMINED IN BOX2 +C KEEP TOTAL STEP LENGTH UNTIL DECAY OR INTERACTION OCCURS + CHITOT = CHI + IF ( FDECAY ) THEN + STPTOT = STEPL + ENDIF + + 10 CONTINUE + +C CALCULATE MAX STEP SIZE (10 RAD. LENGTH) FOR MULTIPLE SCATTERING +C THE MAXIMUM STEP SIZE DEPENDS ON THE ENERGY TO GET ARRIVAL TIMES +C WITH UNCERTAINTIES SMALLER THAN 1 NSEC + AUX = MIN( 10.D0, 0.015D0*GAMMA ) + CHI = MIN( AUX*C(21), CHITOT ) + + IF ( CHI .GE. CHITOT ) THEN + FSCAT = .FALSE. + IF (DEBUG) WRITE(MDEBUG,*) 'MUTRAC: CHI=',SNGL(CHI) + ELSE + FSCAT = .TRUE. + IF (DEBUG) WRITE(MDEBUG,*) 'MUTRAC: C(XX)=',SNGL(AUX*C(21)) + ENDIF + +C UPDATE PARTICLE TO INTERACTION POINT OR OBSERVATION LEVEL, +C WHICHEVER IS CLOSER + FLAG = .TRUE. +c-----changed--add + CALL UPDATC(IRET3,FLAG,fmfb) +c-----changed--add +C IRET3 = 1 MEANS PARTCLE HAS PASSED OBSERVATION LEVEL + IF ( DEBUG ) WRITE(MDEBUG,*) 'MUTRAC: IRET1,2,3=', + * IRET1,IRET2,IRET3 + IF ( IRET2 .NE. 0 ) THEN +C MUON CUTTED BEFORE INTERACTION POINT +C LONGITUDINAL DEPOSIT IS ALREADY DONE IN UPDATC + IRET1 = 1 + FMUORG = .FALSE. + RETURN + ELSE + IF ( IRET3 .EQ. 0 ) THEN +C STORE MUON FOR FURTHER TREATMENT + DO I = 1,8 + CURPAR(I) = OUTPAR(I) + ENDDO + BETA = SQRT( GAMMA**2 - 1.D0 ) / GAMMA + ELSE +C KILL PARTICLE AS IT IS AT DETECTOR LEVEL + IRET1 = 1 + FMUORG = .FALSE. + RETURN + ENDIF + ENDIF + + IF ( FDECAY ) THEN +C MUON DECAYS AT END OF PATH (MUDECY WRITES EM-PARTICLE TO STACK) + IF ( FSCAT ) THEN +C CHITOT IS THE MATERIAL STILL TO BE TRACKED +C STPTOT IS THE PATHLENGTH STILL TO BE TRACKED + STPTOT = STPTOT - STEPL + CHITOT = CHITOT - CHI + IF ( CHITOT.GT.0.D0 .AND. STPTOT.GT.0.D0 ) GOTO 11 + ENDIF + ALEVEL = H + CALL MUDECY + NMUOND = NMUOND + 1.D0 + FMUORG = .FALSE. + + ELSE +C MUON UNDERGOES BREMSSTR/PAIRPR AT END OF PATH +C (MUBREM/MUPRPR WRITE EM-PARTICLES AND MUON TO STACK) + IF ( FSCAT ) THEN +C MUON HAS MADE MULTIPLE SCATTERING +C CHITOT IS THE MATERIAL STILL TO BE TRACKED + CHITOT = CHITOT - CHI + IF ( CHITOT .GT. 0.D0 ) GOTO 11 + ENDIF + IF ( FMUBRM ) THEN + CALL MUBREM + ELSE + CALL MUPRPR + ENDIF + ENDIF + IRET1 = 1 + RETURN + + 11 CONTINUE + IF ( DEBUG ) WRITE(MDEBUG,457) (CURPAR(I),I=1,9) + 457 FORMAT(' MUTRAC: SCATTER',1P,9E10.3) + GOTO 10 + + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : F. SCHROEDER UNI WUPPERTAL 17/09/98 +C======================================================================= + + SUBROUTINE NRANGC(ARG) + +C----------------------------------------------------------------------- +C N(EUTRAL PARTICLE) RANGE C(URVED ATMOSPHERE) +C +C DETERMINES PENETRATED MATTER CHI FOR NEUTRAL PARTICLES +C TAKING INTO ACCOUNT A CURVED ATMOSPHERE +C THIS SUBROUTINE IS CALLED FROM AAMAIN AND BOX2. +C ARGUMENT: +C ARG = GEOMETRIC LENGTH OF PARTICLE TRACK +C +C DESIGN : F. SCHROEDER UNI WUPPERTAL +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ARG,ARGNEW,COSDIF,COSPHI,COSTAPNEW,COSTHENEW, + * DH,DISTN2,DISTO2,HOLD,HNEW,RADIUS,SIGNE, + * SINPHI,SINTHENEW,THICK,TRANS,TRANSNEW,XNEW,YNEW + SAVE + EXTERNAL THICK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) ARG,THICKH + 444 FORMAT(' NRANGC: ARG=',1P,E10.3,' THICKH=',E10.3) + +C START VALUES + CHI = 0.D0 + HNEW = H + XNEW = X + YNEW = Y + COSPHI = COS( PHI ) + SINPHI = SIN( PHI ) + DISTN2 = XNEW**2 + YNEW**2 + COSTHENEW = COSTHE + COSTAPNEW = COSTAP + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C LOOP OVER PIECES OF ARG (EACH IN ITS LOCAL FLAT COORDINATE FRAME) + 2 CONTINUE + SINTHENEW = SQRT( 1.D0 - COSTHENEW**2 ) + TRANS = ARG * SINTHENEW +C MAXIMAL HORIZONTAL STEP (DEPENDS ON THICKNESS AT PARTICLE ALTITUDE) + TRANSNEW = MIN( TRANS, C(4) * THICKH + C(3) ) + IF (DEBUG) WRITE(MDEBUG,*) 'NRANGC: TRANSNEW=',SNGL(TRANSNEW) + + IF ( SINTHENEW .LE. 0.D0 ) THEN +C PARTICLE TRACK IS VERTICAL + ARGNEW = ARG + ELSE + ARGNEW = TRANSNEW / SINTHENEW + ENDIF + DH = ARGNEW * COSTHENEW + IF ( HNEW-DH .LE. HLAY(1) ) THEN + CHI = CHI + (THICKL(1) - THICK(HNEW)) / COSTHENEW + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'NRANGC: HNEW,CHI= ',SNGL(HLAY(1)),SNGL(CHI) + RETURN + ENDIF + CHI = CHI + (THICK(HNEW-DH) - THICK(HNEW)) / COSTHENEW +C ACTUAL VALUES + ARG = ARG - ARGNEW + IF (DEBUG) WRITE(MDEBUG,*) 'NRANGC: ARG,CHI=',SNGL(ARG),SNGL(CHI) + +C LOOP UNTIL COMPLETE PARTICLE TRACK LENGTHS IS TRANSFORMED INTO CHI + IF ( ARG .GT. 0.D0 ) THEN +C NEW COORDINATE FRAME + HOLD = HNEW +C NEW HEIGHT IN OLD COORDINATE FRAME + HNEW = HNEW - DH +C NEW ACTUAL HEIGHT AT NEW THICKNESS GRADIENT +C (CALCULATED WITH PARAMETERS OF OLD COORDINATE FRAME) + HNEW = SQRT( TRANSNEW**2 + (C(1)+HNEW)**2 ) - C(1) +C TERMINATE PROCESS IF PARTICLE WELL BELOW OBSERVATION LEVEL + IF ( HNEW .LT. OBSLEV(1) - 1.D5 ) THEN + RETURN + ENDIF + COSDIF = ( (C(1)+HNEW)**2 + (C(1)+HOLD)**2 - ARGNEW**2 ) / + * ( 2.D0 * (C(1)+HNEW) * (C(1)+HOLD) ) + IF (DEBUG) WRITE(MDEBUG,*) 'NRANGC: HNEW,COSDIF=', + * SNGL(HNEW),SNGL(COSDIF) + COSDIF = MIN(1.D0,COSDIF) +C DIRECTION OF PARTICLE RELATIVE TO DETECTOR CENTER + DISTO2 = DISTN2 + IF ( COSDIF .LT. 1.D0 ) THEN + RADIUS = ARGNEW * SQRT( (1.D0-COSTAPNEW**2)/(1.D0-COSDIF**2) ) + * * C(1) * ACOS(COSDIF)/(C(1)+HNEW) + ELSE + RADIUS = ARGNEW * SQRT( 1.D0-COSTAPNEW**2 ) + ENDIF + XNEW = XNEW + RADIUS * COSPHI + YNEW = YNEW + RADIUS * SINPHI + DISTN2 = XNEW**2 + YNEW**2 + IF ( DISTO2 .GT. DISTN2 ) THEN + SIGNE = +1.D0 + ELSE + SIGNE = -1.D0 + ENDIF +C COSINE OF NEW LOCAL ZENITH ANGLE + COSTHENEW = MIN( 1.D0, ( COSTHENEW * COSDIF - SIGNE * + * SQRT( (1.D0-COSTHENEW**2) * (1.D0-COSDIF**2) ) ) ) + IF (DEBUG) WRITE(MDEBUG,*) 'NRANGC: COSTHENEW=',COSTHENEW +C TERMINATE PROCESS IF PARTICLE BECOMES UPWARD GOING + IF ( COSTHENEW .LE. C(29) ) RETURN + GOTO 2 + ENDIF + + RETURN + END +*CMZ : 03/09/2001 11.12.38 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE NUCINT + +C----------------------------------------------------------------------- +C NUC(LEAR) INT(ERACTION) +C +C SELECTS TYPE OF INTERACTION PROCESS ACCORDING TO ECM +C HEAVY PRIMARIES AND STRANGE BARYONS INCLUDED +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,KAONS. + COMMON /KAONS/ CKA + DOUBLE PRECISION CKA(80) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEEP,STATI. + COMMON /STATI/ SABIN,SBBIN,INBIN,IPBIN,IKBIN,IHBIN + DOUBLE PRECISION SABIN(40),SBBIN(40) + INTEGER INBIN(40),IPBIN(40),IKBIN(40),IHBIN(40) +*KEEP,VKIN. + COMMON /VKIN/ BETACM + DOUBLE PRECISION BETACM +*KEND. + + DOUBLE PRECISION BETA3,COSMU,COSTCM,COSTH3,ETOT,GAMMA3, + * PHIMU,PHI3,THICK,WORK1,WORK2 + INTEGER I,IGO,KJ + SAVE + EXTERNAL THICK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' NUCINT: CURPAR=',1P,9E10.3) + +C COPY VERTEX COORDINATES INTO SECPAR + DO 10 I = 5,8 + SECPAR(I) = CURPAR(I) + 10 CONTINUE +C SET GENERATION AND LEVEL OF LAST INTERACTION + SECPAR( 9) = GEN + SECPAR(10) = ALEVEL +C RESET POLARIZATION, NOT USED FOR PARTICLES OTHER THAN MUONS YET + SECPAR(11) = 0.D0 + SECPAR(12) = 0.D0 + SECPAR(14) = CURPAR(14) + SECPAR(15) = CURPAR(15) + SECPAR(16) = CURPAR(16) + THICKH = THICK(H) + IF ( LLONGI ) LHEIGH = INT(THICKH * THSTPI + 1.D0) + +C CALCULATE KIN. ENERGY BIN + EKINL = PAMA(ITYPE) * ( GAMMA - 1.D0 ) + ETOT = PAMA(ITYPE) * GAMMA + IF ( EKINL .GE. .1D0 ) THEN + KJ = INT( MIN( 40.D0, 5.D0 + 3.D0*LOG10(EKINL) ) ) + ELSE + KJ = 1 + ENDIF + +C----------------------------------------------------------------------- +C CHARGED PION INCIDENT + IF ( ITYPE .EQ. 8 .OR. ITYPE .EQ. 9 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'NUCINT: PION EKINL=',SNGL(EKINL), + * ' ETOT=',ETOT + IPBIN(KJ) = IPBIN(KJ) + 1 + +C DECAY OR INTERACTION FOR CHARGED PIONS ? + IF ( FDECAY ) THEN +C INCREMENT GENERATION COUNTER TO DIFFERENTIATE BETWEEN MUONS FROM +C DECAYS (K-DECAY: GEN=NORMAL, PI-DECAY: GEN INCREASED BY 50) + SECPAR( 9) = SECPAR( 9) + 50.D0 +C DECAY PI(+,-) ----> MU(+,-) + (ANTI)-NEUTRINO(MU) + WORK1 = C(48) * GAMMA + WORK2 = C(49) * BETA * WORK1 + CALL RMMAR( RD,2,1 ) + COSTCM = 2.D0 * RD(1) - 1.D0 + GAMMA3 = WORK1 + COSTCM * WORK2 + BETA3 = SQRT( 1.D0 - 1.D0 / GAMMA3**2 ) + COSTH3 = MIN( 1.D0, ( GAMMA * GAMMA3 - C(48) ) + * /( BETA * GAMMA * BETA3 * GAMMA3 ) ) + PHI3 = PI2 * RD(2) +C NEUTRINO IS DROPPED + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + SECPAR(2) = PAMA(8) * GAMMA - PAMA(5) * GAMMA3 + DLONG(LHEIGH,8) = DLONG(LHEIGH,8) + SECPAR(2) + ENDIF + +C MUON + CALL ADDANG( COSTHE,PHI, COSTH3,PHI3, COSMU,PHIMU ) + IF ( COSMU .GT. C(29) ) THEN +C DIRECTION OF PION IN THE MUON CM SYSTEM (= DIRECTION OF POLARIZATION) +C SEE: G. BARR ET AL., PHYS. REV. D39 (1989) 3532, EQ. 5 +C POLART IS COS OF ANGLE BETWEEN PION AND LABORATORY IN THE MU CM +C POLARF IS ANGLE PHI AROUND THE LAB DIRECTION IN THE MU CM +C POLART, POLARF ARE WITH RESPECT TO THE MU DIRECTION IN THE LAB SYSTEM + POLART = ( 2.D0*PAMA(8)*GAMMA*C(7)/(PAMA(5)*GAMMA3) + * - C(7) - 1.D0 ) / ( BETA3 * (1.D0 - C(7)) ) + POLARF = PHI3 - PI +C PION DIRECTION IS DIRECTION OF POLARIZATION FOR PI+, OPPOSITE FOR PI- + IF ( ITYPE .EQ. 9 ) THEN + POLART = -POLART + POLARF = POLARF + PI + ENDIF +C GET THE POLARIZATION DIRECTION IN THE MU CM RELATIVE TO THE CORSIKA +C COORDINATE SYSTEM + CALL ADDANG( COSMU,PHIMU, POLART,POLARF, POLART,POLARF ) +C MUON IS WRITTEN TO STACK + SECPAR( 1) = CURPAR(1) - 3.D0 + SECPAR( 2) = GAMMA3 + SECPAR( 3) = COSMU + SECPAR( 4) = PHIMU + SECPAR(11) = POLART + SECPAR(12) = POLARF + CALL TSTACK + SECPAR(11) = 0.D0 + SECPAR(12) = 0.D0 + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + GAMMA3 * PAMA(5) + ENDIF + ENDIF + IRET1 = 1 + RETURN + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C CHARGED PION INTERACTS + +C CALCULATE GAMMA, BETA AND ENERGY IN CENTER OF MASS + ECM = SQRT( C(45) * GAMMA + C(46) ) + GCM = (PAMA(ITYPE) * GAMMA + PAMA(14)) / ECM + BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) + +C LOW ENERGY HADRONIC INTERACTIONS +C CHECK IF WE USE LOW ENERGY HADRONIC INTERACTION MODEL + IF ( USELOW ) THEN +C USE GHEISHA IF THE CROSS-SECTION HAS BEEN CALCULATED FOR GHEISHA + CALL CGHEI + ELSE + CALL SDPM + ENDIF +C----------------------------------------------------------------------- +C PI(0) INCIDENT + ELSEIF ( ITYPE .EQ. 7 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'NUCINT: PI(0) EKINL=',SNGL(EKINL), + * ' ETOT=',ETOT + IPBIN(KJ) = IPBIN(KJ) + 1 + +C DECAY OR INTERACTION FOR PIONS ? + IF ( FDECAY ) THEN + CALL PI0DEC + ELSE +C FOR INTERACTION THE ENERGY MUST BE VERY HIGH +C CALCULATE GAMMA, BETA AND ENERGY IN CENTER OF MASS + ECM = SQRT( 2.D0 * PAMA(14) * PAMA(7) * GAMMA + * + PAMA(14)**2 +PAMA(7)**2 ) + GCM = (PAMA(7) * GAMMA + PAMA(14)) / ECM + BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) +C HIGH ENERGY INTERACTION MODEL + CALL SDPM + ENDIF + +C----------------------------------------------------------------------- +C NUCLEON OR ANTINUCLEON INCIDENT + ELSEIF ( ITYPE .EQ. 13 .OR. ITYPE .EQ. 14 .OR. + * ITYPE .EQ. 15 .OR. ITYPE .EQ. 25 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'NUCINT: NUCL EKINL=',SNGL(EKINL), + * ' ETOT=',ETOT +C CALCULATE GAMMA, BETA AND ENERGY IN CENTER OF MASS + GCM = SQRT( GAMMA * 0.5D0 + 0.5D0 ) + ECM = PAMA(ITYPE) * GCM * 2.D0 + BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) + INBIN(KJ) = INBIN(KJ) + 1 + +C LOW ENERGY HADRONIC INTERACTIONS +C CHECK IF WE USE LOW ENERGY HADRONIC INTERACTION MODEL + IF ( USELOW ) THEN +C USE GHEISHA IF THE CROSS-SECTION HAS BEEN CALCULATED FOR GHEISHA + CALL CGHEI + ELSE + CALL SDPM + ENDIF + +C----------------------------------------------------------------------- +C KAON INCIDENT + ELSEIF ( ITYPE .EQ. 11 .OR. ITYPE .EQ. 12 .OR. + * ITYPE .EQ. 10 .OR. ITYPE .EQ. 16 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'NUCINT: KAON EKINL=',SNGL(EKINL), + * ' ETOT=',ETOT + IKBIN(KJ) = IKBIN(KJ) + 1 + +C DECAY OR INTERACTION FOR KAONS ? + IF ( FDECAY ) THEN +C KAON DECAYS. DETERMINE DECAY MODE FOR KAONS AND SET LIFE TIME + IF ( ITYPE .EQ. 10 ) THEN +C K(0,L)-MESON + IGO = 4 + ELSEIF ( ITYPE .EQ. 11 ) THEN +C K(+)-MESON + IGO = 1 + ELSEIF ( ITYPE .EQ. 12 ) THEN +C K(-)-MESON + IGO = 2 + ELSE +C K(0,S)-MESON + IGO = 3 + ENDIF + CALL KDECAY( IGO ) + RETURN + + ELSE +C- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C KAON INTERACTS +C CALCULATE GAMMA, BETA AND ENERGY IN CENTER OF MASS + ECM = SQRT( CKA(13) * GAMMA + CKA(14) ) + GCM = ( PAMA(ITYPE) * GAMMA + PAMA(14) ) / ECM + BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) +C LOW ENERGY HADRONIC INTERACTIONS +C CHECK IF WE USE LOW ENERGY HADRONIC INTERACTION MODEL + IF ( USELOW ) THEN +C USE GHEISHA IF THE CROSS-SECTION HAS BEEN CALCULATED FOR GHEISHA + CALL CGHEI + ELSE + CALL SDPM + ENDIF + ENDIF + +C----------------------------------------------------------------------- +C ETA INCIDENT + ELSEIF ( ITYPE .EQ. 17 .OR. + * (ITYPE .GE. 71 .AND. ITYPE .LE. 74) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'NUCINT: ETA EKINL=',SNGL(EKINL), + * ' ETOT=',ETOT + IPBIN(KJ) = IPBIN(KJ) + 1 + +C DECAY OR INTERACTION FOR ETAS ? + IF ( FDECAY ) THEN + CALL ETADEC + ELSE + CURPAR(1) = 17.D0 + ITYPE = 17 +C FOR INTERACTION THE ENERGY MUST BE VERY HIGH +C CALCULATE GAMMA, BETA AND ENERGY IN CENTER OF MASS + ECM = SQRT( 2.D0 * PAMA(14) * PAMA(17) * GAMMA + * + PAMA(14)**2 +PAMA(17)**2 ) + GCM = (PAMA(17) * GAMMA + PAMA(14)) / ECM + BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) +C HIGH ENERGY INTERACTION MODEL + CALL SDPM + ENDIF + +C----------------------------------------------------------------------- +C STRANGE BARYON (LAMDA, SIGMA) INCIDENT + ELSEIF ( (ITYPE .GE. 18 .AND. ITYPE .LE. 24) .OR. + * (ITYPE .GE. 26 .AND. ITYPE .LE. 32) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'NUCINT: SBAR EKINL=',SNGL(EKINL), + * ' ETOT=',ETOT + IHBIN(KJ) = IHBIN(KJ) + 1 +C DECAY OR INTERACTION FOR STRANGE BARYONS? + IF ( FDECAY ) THEN + CALL STRDEC + RETURN + ENDIF +C CALCULATE GAMMA, BETA AND ENERGY IN CENTER OF MASS + ECM = SQRT( 2.D0 * PAMA(ITYPE) * PAMA(14) * GAMMA + * + PAMA(ITYPE)**2 + PAMA(14)**2 ) + GCM = ( PAMA(ITYPE) * GAMMA + PAMA(14)) / ECM + BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) +C LOW ENERGY HADRONIC INTERACTIONS +C CHECK IF WE USE LOW ENERGY HADRONIC INTERACTION MODEL + IF ( USELOW ) THEN +C USE GHEISHA IF THE CROSS-SECTION HAS BEEN CALCULATED FOR GHEISHA + CALL CGHEI + ELSE +C VENUS TREATS STRANGE BARYONS + CALL SDPM + ENDIF + +C----------------------------------------------------------------------- +C HEAVY PRIMARY INCIDENT + ELSEIF ( ITYPE .GT. 100 ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'NUCINT: HEAVY PRIMARY EKINL=', + * SNGL(EKINL),' ETOT=',ETOT +C USE GHEISHA IF THE CROSS-SECTION HAS BEEN CALCULATED FOR GHEISHA +C CHECK IF WE USE LOW ENERGY HADRONIC INTERACTION MODEL + IF ( USELOW ) THEN +C USE GHEISHA IF THE CROSS-SECTION HAS BEEN CALCULATED FOR GHEISHA +C (THIS MIGHT BE THE CASE FOR DEUTERONS, TRITONS AND ALPHAS) + IF ( GHESIG ) THEN + CALL CGHEI + ELSE + CALL SDPM + ENDIF + ELSE + CALL SDPM + ENDIF + +C----------------------------------------------------------------------- +C ILLEGAL PARTICLE + ELSE + WRITE(MONIOU,444) (CURPAR(I),I=1,9) + WRITE(MONIOU,*) 'NUCINT: ILLEGAL PARTICLE = ',ITYPE + STOP + ENDIF + +C----------------------------------------------------------------------- +C KILL PARTICLE + IRET1 = 1 + + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE OUTEND + +C----------------------------------------------------------------------- +C OUT(PUT AT) END (OF SHOWER) +C +C WRITE REST OF PARTICLES TO OUTPUT BUFFER +C PRINTS INTERACTION LENGTHS STATISTICS +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,CHISTA. + COMMON /CHISTA/ IHYCHI,IKACHI,IMUCHI,INNCHI,INUCHI,IPICHI + INTEGER IHYCHI(124),IKACHI(124),IMUCHI(124), + * INNCHI(124),INUCHI(124),IPICHI(124) +*KEEP,ELADPM. + COMMON /ELADPM/ ELMEAN,ELMEAA,IELDPM,IELDPA + DOUBLE PRECISION ELMEAN(40),ELMEAA(40) + INTEGER IELDPM(40,13),IELDPA(40,13) +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEEP,NCOUNT. + COMMON /NCOUNT/ NCOUN + INTEGER NCOUN(8) +*KEEP,NPARTI. + COMMON /NPARTI/ NPARTO + DOUBLE PRECISION NPARTO(10,25),NPHOTO(10),NPOSIT(10),NELECT(10), + * NNU(10),NMUP(10),NMUM(10),NPI0(10),NPIP(10), + * NPIM(10),NK0L(10),NKPL(10),NKMI(10),NNEUTR(10), + * NPROTO(10),NPROTB(10),NK0S(10),NHYP(10), + * NNEUTB(10),NDEUT(10),NTRIT(10),NALPHA(10), + * NOTHER(10),NMUOND + EQUIVALENCE (NPARTO(1, 1),NPHOTO(1)), (NPARTO(1, 2),NPOSIT(1)), + * (NPARTO(1, 3),NELECT(1)), (NPARTO(1, 4),NNU(1)) , + * (NPARTO(1, 5),NMUP(1)) , (NPARTO(1, 6),NMUM(1)) , + * (NPARTO(1, 7),NPI0(1)) , (NPARTO(1, 8),NPIP(1)) , + * (NPARTO(1, 9),NPIM(1)) , (NPARTO(1,10),NK0L(1)) , + * (NPARTO(1,11),NKPL(1)) , (NPARTO(1,12),NKMI(1)) , + * (NPARTO(1,13),NNEUTR(1)), (NPARTO(1,14),NPROTO(1)), + * (NPARTO(1,15),NPROTB(1)), (NPARTO(1,16),NK0S(1)) , + * (NPARTO(1,18),NHYP(1)) , (NPARTO(1,19),NDEUT(1)) , + * (NPARTO(1,20),NTRIT(1)) , (NPARTO(1,21),NALPHA(1)), + * (NPARTO(1,22),NOTHER(1)), (NPARTO(1,25),NNEUTB(1)), + * (NPARTO(1,23),NMUOND) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RECORD. + COMMON /RECORD/ IRECOR + INTEGER IRECOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKF. + COMMON /STACKF/ STACK,MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT, + * NTO,NFROM + INTEGER MAXSTK + PARAMETER (MAXSTK = 16*256*2) + DOUBLE PRECISION STACK(MAXSTK) + INTEGER MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM +*KEEP,STATI. + COMMON /STATI/ SABIN,SBBIN,INBIN,IPBIN,IKBIN,IHBIN + DOUBLE PRECISION SABIN(40),SBBIN(40) + INTEGER INBIN(40),IPBIN(40),IKBIN(40),IHBIN(40) +*KEND. + + INTEGER I + INTEGER J,K,NELMEA + SAVE +C----------------------------------------------------------------------- + + IF ( LH .GT. 0 ) THEN + IF ( FPAROUT ) CALL TOBUF( DATAB,0 ) + DO 2 I = 1,MAXBUF + DATAB(I) = 0. + 2 CONTINUE + ENDIF + LH = 0 + + IF ( FPRINT .OR. DEBUG ) THEN + WRITE(MONIOU,101) NSHIFT,NOPART + 101 FORMAT(' ',I10,' SHIFTS TO EXTERNAL STACK'/ + * ' ',I10,' PARTICLES WRITTEN TO MPATAP') + ENDIF + + IF ( FPRINT ) THEN +C PRINT ENERGY - MULTIPLICITY MATRIX + WRITE(MONIOU,209) ISHOWNO,(K,K=1,13), + * (J,(MULTMA(J,K),K=1,13),10**((J-4.)/3.),10**((J-3.)/3.),J=1,39), + * 1,(INT(10**((K-1.)/3.)+1 ),K = 2,13), + * 2,(INT(10**((K )/3.) ),K = 2,13) + 209 FORMAT(//' ENERGY - MULTIPLICITY MATRIX OF SHOWER NO ',I10/ + * ' ENERGY RUNS VERTICALLY, MULTIPLICITY HORIZONTALLY'// + * ' ',5X,5I10,3I8,5I6,' ENERGY RANGE (GEV)'/ + * 39(/' ',I4,1X,5I10,3I8,5I6,2X,1P,2E10.1,0P)// + * ' MULT.',5I10,3I8,5I6,5X,'LOWER BIN LIMIT'/ + * ' RANGE',5I10,3I8,5I6,5X,'UPPER BIN LIMIT') + ENDIF + + +C GET MEAN OF ELASTICITY FOR ENERGY BINS + DO 3377 J = 1,40 + NELMEA = 0 + DO 3378 K = 1,10 + NELMEA = NELMEA + IELDPM(J,K) + 3378 CONTINUE + IF ( NELMEA .NE. 0 ) ELMEAN(J) = ELMEAN(J) / NELMEA + 3377 CONTINUE + + IF ( FPRINT ) THEN +C PRINT ENERGY - ELASTICITY MATRIX + WRITE(MONIOU,408) ISHOWNO,(K,K=1,10), + * (J,(IELDPM(J,K),K=1,10), + * ELMEAN(J),10**((J-4.)/3.),10**((J-3.)/3.),J=1,39), + * ((K-1)*0.1,K=1,10),(K*0.1,K=1,10) + 408 FORMAT (//' ENERGY - ELASTICITY MATRIX OF SHOWER NO ',I10/ + * ' ENERGY RUNS VERTICALLY, ELASTICITY HORIZONTALLY'// + * ' ',5X,8I9,2I10,' MEAN EL. ENERGY RANGE (GEV)'/ + * 39(/' ',I4,1X,8I9,2I10,2X,1P,E10.3,2E10.1,0P)// + * ' ELA. ',8F9.2,2F10.2,5X,'LOWER BIN LIMIT'/ + * ' RANGE',8F9.2,2F10.2,5X,'UPPER BIN LIMIT') + + WRITE(MONIOU,204) ISHOWNO + 204 FORMAT(//' INTERACTIONS PER KINETIC ENERGY INTERVAL OF SHOWER', + * ' NO ',I10//) + + WRITE(MONIOU,205) + 205 FORMAT(' BIN LOWER LIMIT UPPER LIMIT ', + * ' NUCLEON PIONS KAONS S.BARYONS TOTAL'/ + * ' IN GEV IN GEV ', + * ' EVENTS EVENTS EVENTS EVENTS '/) + WRITE(MONIOU,207) (I,SABIN(I),SBBIN(I),INBIN(I),IPBIN(I), + * IKBIN(I),IHBIN(I),INBIN(I)+IPBIN(I)+IKBIN(I)+IHBIN(I),I=1,40) + 207 FORMAT(' ',I5,1P,2E15.4,0P,1X,5I11) + + WRITE(MONIOU,301) + 301 FORMAT (//' INTERACTION LENGTH STATISTICS: ', + * ' 1 BIN CORRESPONDS TO 10 G/CM**2 OR 100M FOR MUONS'// + * ' BIN LAMBDA NU LAMBDA PI LAMBDA KA ', + * 'LAMBDA HY LAMBDA MU LAMBDA NUCLEUS'/) + WRITE(MONIOU,303) (I,INUCHI(I),IPICHI(I),IKACHI(I),IHYCHI(I), + * IMUCHI(I),INNCHI(I),I=1,124) + 303 FORMAT (' ',I4,6I12) + + WRITE(MONIOU,105) IRECOR + 105 FORMAT (/' NO OF WORDS WRITTEN TO PARTICLE TAPE UP TO NOW =', + * I10) + ENDIF + + RETURN + END +*CMZ : 28/02/2002 13.08.19 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE OUTPT1 + +C----------------------------------------------------------------------- +C (WRITE PARTICLE) OUTP(U)T 1 +C +C WRITES 39 PARTICLE RECORDS PER PHYSICAL RECORD +C TABULATES PARAMETERS OF ALL HIGH ENERGY PARTICLES WITH +C LORENTZ FACTOR LARGER THAN ECTMAP +C THIS SUBROUTINE IS CALLED FROM AAMAIN, BOX3, MUTRAC, UPDATC, +C AND AUSGAB. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,ETHMAP. + COMMON /ETHMAP/ ECTMAP,ELEFT + DOUBLE PRECISION ECTMAP,ELEFT +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MAGANG. + COMMON /MAGANG/ ARRANG,ARRANR,COSANG,SINANG + DOUBLE PRECISION ARRANG,ARRANR,COSANG,SINANG +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,NPARTI. + COMMON /NPARTI/ NPARTO + DOUBLE PRECISION NPARTO(10,25),NPHOTO(10),NPOSIT(10),NELECT(10), + * NNU(10),NMUP(10),NMUM(10),NPI0(10),NPIP(10), + * NPIM(10),NK0L(10),NKPL(10),NKMI(10),NNEUTR(10), + * NPROTO(10),NPROTB(10),NK0S(10),NHYP(10), + * NNEUTB(10),NDEUT(10),NTRIT(10),NALPHA(10), + * NOTHER(10),NMUOND + EQUIVALENCE (NPARTO(1, 1),NPHOTO(1)), (NPARTO(1, 2),NPOSIT(1)), + * (NPARTO(1, 3),NELECT(1)), (NPARTO(1, 4),NNU(1)) , + * (NPARTO(1, 5),NMUP(1)) , (NPARTO(1, 6),NMUM(1)) , + * (NPARTO(1, 7),NPI0(1)) , (NPARTO(1, 8),NPIP(1)) , + * (NPARTO(1, 9),NPIM(1)) , (NPARTO(1,10),NK0L(1)) , + * (NPARTO(1,11),NKPL(1)) , (NPARTO(1,12),NKMI(1)) , + * (NPARTO(1,13),NNEUTR(1)), (NPARTO(1,14),NPROTO(1)), + * (NPARTO(1,15),NPROTB(1)), (NPARTO(1,16),NK0S(1)) , + * (NPARTO(1,18),NHYP(1)) , (NPARTO(1,19),NDEUT(1)) , + * (NPARTO(1,20),NTRIT(1)) , (NPARTO(1,21),NALPHA(1)), + * (NPARTO(1,22),NOTHER(1)), (NPARTO(1,25),NNEUTB(1)), + * (NPARTO(1,23),NMUOND) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,TABLES. + INTEGER IEBIN, ITBIN, IDBIN + PARAMETER (IEBIN=40,ITBIN=30,IDBIN=20) + COMMON /TABLES/ G_ARRAY, E_ARRAY, M_ARRAY, + * EBOFF,EBFAC,TBOFF,TBFAC,DBOFF,DBFAC + REAL G_ARRAY(IEBIN,ITBIN,IDBIN) + REAL E_ARRAY(IEBIN,ITBIN,IDBIN) + REAL M_ARRAY(IEBIN,ITBIN,IDBIN) + REAL EBOFF,EBFAC,TBOFF,TBFAC,DBOFF,DBFAC + REAL EBMIN,EBMAX,TBMIN,TBMAX,DBMIN,DBMAX + PARAMETER (EBMIN=1.E-4,EBMAX=1.E4) + PARAMETER (TBMIN=10.,TBMAX=1.E4) + PARAMETER (DBMIN=5.E3,DBMAX=5.E5) +*KEND. + + DOUBLE PRECISION AUGM,ETOT,PTOT,STT,XADDMU,YADDMU + REAL EE,TT,RR,TF + INTEGER IIE,IIT,IID + INTEGER I,IGG,III,NCOUNT + LOGICAL ROUT + SAVE + DATA NCOUNT /0/,AUGM/1.D0/ +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (OUTPAR(I),I=1,9),LEVL + 444 FORMAT(' OUTPT1: OUTPAR=',1P,8E10.3,0P,F10.0,I5) + + +C PRINT OUT PARTICLE IF IT IS ABOVE THE CUT + IF ( FPRINT .OR. DEBUG .OR. DEBDEL ) THEN + IF ( OUTPAR(2) .GE. ECTMAP ) THEN + WRITE(MONIOU,3) (OUTPAR(I),I=1,10),ELEFT + 3 FORMAT(' OUTPT1: ',1P,8E10.3,0P,F6.0,1P,2E10.3) + IF ( DEBDEL ) THEN + NCOUNT = NCOUNT + 1 + WRITE(MDEBUG,*) 'OUTPT1: NCOUNT = ',NCOUNT + IF ( NCOUNT .GE. NDEBDL ) DEBUG = .TRUE. + IF ( NCOUNT .GE. NDEBDL+2 ) DEBUG = .FALSE. + ENDIF + ENDIF + ENDIF + +C COUNT PARTICLES SPECIFIED BY THEIR PARTICLE CODE < 25 + III = NINT(OUTPAR(1)) + IF ( III .LT. 18 ) THEN + NPARTO(LEVL,III) = NPARTO(LEVL,III) + AUGM + ELSEIF ( III .EQ. 25 ) THEN + NNEUTB(LEVL) = NNEUTB(LEVL) + AUGM + ELSEIF ( (III .GE. 18 .AND. III .LE. 24) .OR. + * (III .GE. 26 .AND. III .LE. 32) ) THEN + NHYP(LEVL) = NHYP(LEVL) + AUGM + ELSEIF ( III .EQ. 201 ) THEN + NDEUT(LEVL) = NDEUT(LEVL) + AUGM + ELSEIF ( III .EQ. 301 ) THEN + NTRIT(LEVL) = NTRIT(LEVL) + AUGM + ELSEIF ( III .EQ. 402 ) THEN + NALPHA(LEVL) = NALPHA(LEVL) + AUGM + ELSE + WRITE(MONIOU,*) 'OUTPT1: PARTICLE ON OBSLEV ',LEVL,' ID= ',III + NOTHER(LEVL) = NOTHER(LEVL) + AUGM + ENDIF + + IF ( LLONGI .AND. LEVL.EQ.NOBSLV ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT IN LAST BIN NSTEP + LHEIGH = NSTEP + IF ( III .EQ. 1 ) THEN + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + OUTPAR(2) * AUGM + ELSEIF ( III .EQ. 2 ) THEN +C REMEMBER: FOR EM-PARTICLES OUTPAR(2) CONTAINS ENERGY IN GEV + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + (OUTPAR(2)+PAMA(2))*AUGM + ELSEIF ( III .EQ. 3 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + (OUTPAR(2)-PAMA(2))*AUGM + ELSEIF ( III .EQ. 5 .OR. III .EQ. 6 ) THEN + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + * + OUTPAR(2)*PAMA(5)*AUGM + ELSEIF ( III .EQ. 13 .AND. III .EQ. 14 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + * + (OUTPAR(2)-1.D0)*PAMA(III)*AUGM + ELSEIF ( III .EQ. 15 .AND. III .EQ. 25 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + * + (OUTPAR(2)+1.D0)*PAMA(III)*AUGM + ELSE + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + * + OUTPAR(2)*PAMA(III)*AUGM + ENDIF + ENDIF + + ROUT = .TRUE. + +C TREATE ADDITIONAL INFORMATION OF MUONS +C THE COORDINATES OF MUON ORIGIN ARE STORED IN AMUPAR(.) + IF ( ROUT ) THEN + IF ( FMUADD .AND. (III .EQ. 5 .OR. III .EQ. 6) ) THEN + IGG = MIN( OUTPAR(9), 99.D0 ) + DATAB(LH+1) = (III + 70) * 1000 + IGG*10 + MOD(LEVL,10) + PTOT = PAMA(III) * SQRT( AMUPAR(2)**2 - 1.D0 ) + DATAB(LH+4) = PTOT * AMUPAR(15) + XADDMU = AMUPAR(7) + YADDMU = AMUPAR(8) + STT = SQRT( 1.D0 - AMUPAR(15)**2 ) + DATAB(LH+2) = PTOT * STT * COS( AMUPAR(4) + ARRANR ) + DATAB(LH+3) = PTOT * STT * SIN( AMUPAR(4) + ARRANR ) + DATAB(LH+5) = XADDMU * COSANG + YADDMU * SINANG + DATAB(LH+6) = YADDMU * COSANG - XADDMU * SINANG + DATAB(LH+7) = AMUPAR(5) + IF ( DEBUG ) WRITE(MDEBUG,445) (DATAB(LH+I),I=1,7) + 445 FORMAT(' OUTPT1: MUADDI=',1P,7E10.3) + LH = LH + 7 + +C WRITE A BLOCK OF 39 PARTICLES TO OUTPUT BUFFER AND CLEAR FIELD + IF ( LH .GE. MAXBUF ) THEN + IF ( FPAROUT ) CALL TOBUF( DATAB,0 ) + DO 1 I = 1,MAXBUF + DATAB(I) = 0. + 1 CONTINUE + LH = 0 + ENDIF + ENDIF + +C COPY PARTICLE TO DATAB FIELD + IGG = MIN( OUTPAR(9), 99.D0 ) + DATAB(LH+1) = III*1000 + IGG*10 + MOD(LEVL,10) + IF ( OUTPAR(1) .LE. 3.D0 ) THEN + ETOT = OUTPAR(2) + ELSE + ETOT = PAMA(III) * OUTPAR(2) + ENDIF + PTOT = SQRT( ETOT**2 - PAMA(III)**2 ) + STT = SQRT( 1.D0 - OUTPAR(3)**2 ) + DATAB(LH+2) = PTOT * STT * COS( OUTPAR(4) + ARRANR ) + DATAB(LH+3) = PTOT * STT * SIN( OUTPAR(4) + ARRANR ) + DATAB(LH+4) = PTOT * OUTPAR(3) + DATAB(LH+5) = OUTPAR(7) * COSANG + OUTPAR(8) * SINANG + DATAB(LH+6) = OUTPAR(8) * COSANG - OUTPAR(7) * SINANG + DATAB(LH+7) = OUTPAR(6) * 1.E9 + ENDIF + + IF ( FTABOUT ) THEN +C CALCULATE TIME DELAY (IN NS) WITH RESPECT TO SPHERICAL SHOWER +C FRONT AT POINT (X,Y) + TF = SQRT( (HEIGHP- OBSLEV(LEVL))**2 + + * (OUTPAR(7)+XOFF(LEVL))**2 + + * (OUTPAR(8)+YOFF(LEVL))**2 ) / (C(25)*1.D-9) + TT = OUTPAR(6)*1.D9 - TF + IF ( OUTPAR(1) .LE. 3.D0 ) THEN + ETOT = OUTPAR(2) + ELSE + ETOT = PAMA(III) * OUTPAR(2) + ENDIF + EE = ETOT + RR = SQRT(OUTPAR(7)**2 + OUTPAR(8)**2) + EE = MAX(EBMIN,EE) + TT = MAX(TBMIN,TT) + RR = MAX(DBMIN,RR) +C GET CORRECT BIN + IIE = (LOG10(EE) - EBOFF)*EBFAC + 1. + IIT = (LOG10(TT) - TBOFF)*TBFAC + 1. + IID = (LOG10(RR) - DBOFF)*DBFAC + 1. + IIE = MIN(IIE,IEBIN) + IIE = MAX(IIE,1) + IIT = MIN(IIT,ITBIN) + IIT = MAX(IIT,1) + IID = MIN(IID,IDBIN) + IID = MAX(IID,1) + + IF ( III .EQ. 1 ) THEN + G_ARRAY(IIE,IIT,IID) = G_ARRAY(IIE,IIT,IID) + AUGM + ELSEIF ( III .LE. 3 ) THEN + E_ARRAY(IIE,IIT,IID) = E_ARRAY(IIE,IIT,IID) + AUGM + ELSEIF ( III .EQ. 5 .OR. III .EQ. 6 ) THEN + M_ARRAY(IIE,IIT,IID) = M_ARRAY(IIE,IIT,IID) + AUGM + ENDIF + ENDIF + +C WRITE A BLOCK OF 39 PARTICLES TO OUTPUT BUFFER AND CLEAR FIELD + IF ( ROUT ) THEN +C COUNT PARTICLES, THAT ARE WRITTEN TO TAPE + NOPART = NOPART + 1 + + LH = LH + 7 + +C WRITE A BLOCK OF 39 PARTICLES TO OUTPUT BUFFER AND CLEAR FIELD + IF ( LH .GE. MAXBUF ) THEN + IF ( FPAROUT ) CALL TOBUF( DATAB,0 ) + DO 2 I = 1,MAXBUF + DATAB(I) = 0. + 2 CONTINUE + LH = 0 + ENDIF + ENDIF + + RETURN + END +*CMZ : 25/02/2002 15.28.14 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PAMAF + +C----------------------------------------------------------------------- +C PA(RTICLE) MA(SS) F(ILLING) +C +C FILLS PARTICLE MASS FOR PARTICLE IP IN ARRAY PAMA +C RESONANCES AND STRANGE BARYONS INCLUDED +C PARTICLE MASSES ACCORDING TO GEANT TABLE, +C TAKEN FROM THE PERIODIC TABLE +C OR CALCULATED WITH THE MASS FORMULA OF WEIZSAECKER +C THIS SUBROUTINE IS CALLED FROM START. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEND. + + DOUBLE PRECISION CHARGE(75),MASSES(75) +C* DOUBLE PRECISION AMUS(59,14),BIND,B1,B2,B3,B4,B5,SS + INTEGER IA,IC,IN,IP +C* INTEGER I,L + SAVE +C----------------------------------------------------------------------- + +C MASSES REVISED SEPT 2000 BY D. HECK + DATA MASSES / + * 0.D0 ,.510998902D-3,.510998902D-3, 0.0D0 ,.105658357D0, + * .105658357D0, .1349766D0, .13957018D0,.13957018D0 , 0.497672D0 , + * 0.493677D0 , 0.493677D0 ,.93956533D0 ,.93827200D0 ,.93827200D0 , + * 0.497672D0 , 0.54730D0 , 1.115683D0 , 1.18937D0 , 1.192642D0 , + * 1.197449D0 , 1.31483D0 , 1.32131D0 , 1.67245D0 ,.93956533D0 , + * 1.115683D0 , 1.18937D0 , 1.192642D0 , 1.197449D0 , 1.31483D0 , + * 1.32131D0 , 1.67245D0 , 1.7841D0 , 1.7841D0 , 1.8693D0 , + * 1.8693D0 , 1.8645D0 , 1.8645D0 , 1.9693D0 , 1.9693D0 , + * 2.2852D0 , 80.6D0 , 80.6D0 , 91.161D0 , 1.877D0 , + * 2.817D0 , 3.755D0 , 0.0D0 , 0.0D0 , 0.78257D0 , + * 0.7690D0 , 0.7665D0 , 0.7665D0 , 1.2305D0 , 1.2318D0 , + * 1.2331D0 , 1.2344D0 , 1.2309D0 , 1.2323D0 , 1.2336D0 , + * 1.2349D0 , 0.89610D0 , 0.89166D0 , 0.89166D0 , 0.89610D0 , + * 0.0D0 , 0.0D0 , 0.0D0 , 0.0D0 , 0.0D0 , + * 0.54730D0 , 0.54730D0 , 0.54730D0 , 0.54730D0 , 0.0D0 / + + DATA CHARGE / + * 0.D0,+1.D0,-1.D0, 0.D0,+1.D0,-1.D0, 0.D0,+1.D0,-1.D0, 0.D0, + * +1.D0,-1.D0, 0.D0,+1.D0,-1.D0, 0.D0, 0.D0, 0.D0,+1.D0, 0.D0, + * -1.D0, 0.D0,-1.D0,-1.D0, 0.D0, 0.D0,-1.D0, 0.D0,+1.D0, 0.D0, + * +1.D0,+1.D0,+1.D0,-1.D0,+1.D0,-1.D0, 0.D0, 0.D0,+1.D0,-1.D0, + * +1.D0,+1.D0,-1.D0, 0.D0,+1.D0,+1.D0,+2.D0, 0.D0, 0.D0, 0.D0, + * 0.D0,+1.D0,-1.D0,+2.D0,+1.D0, 0.D0,-1.D0,-2.D0,-1.D0, 0.D0, + * +1.D0, 0.D0,+1.D0,-1.D0, 0.D0, 0.D0, 0.D0, 0.D0, 0.D0, 0.D0, + * 0.D0, 0.D0, 0.D0, 0.D0, 0.D0 / + +C ISOTOPE MASSES CALCULATED FROM: ATOMIC DATA AND NUCL.DATA TABLES 39 +C (1988) 289, (WAPSTRA'S VALUES, CORRECTED FOR ELECTRON MASSES) +C* DATA ((AMUS(I,L),I=1,59),L=1,7) / +C* * 1.8756D0, 2.8089D0, 57*0.D0, +C* * 2.8083D0, 3.7273D0, 4.6678D0, 5.6054D0, 6.5454D0, 54*0.D0, +C* * 2*0.D0 , 5.6014D0, 6.5337D0, 7.4712D0, 8.4067D0, +C* * 9.3471D0, 10.2856D0, 51*0.D0, +C* * 2*0.D0 , 6.5341D0, 7.4547D0, 8.3926D0, 9.3253D0, +C* * 10.2644D0, 11.2008D0, 51*0.D0, +C* * 2*0.D0 , 7.4722D0, 8.3932D0, 9.3243D0, 10.2524D0, +C* * 11.1886D0, 12.1232D0, 13.0618D0, 13.9986D0, 49*0.D0, +C* * 2*0.D0 , 8.4091D0, 9.3274D0, 10.2538D0, 11.1747D0, 12.1093D0, +C* * 13.0406D0, 13.9790D0, 14.9143D0, 15.8531D0, 48*0.D0, +C* * 4*0.D0 , 11.1915D0, 12.1110D0, 13.0400D0, 13.9687D0, 14.9057D0, +C* * 15.8394D0, 16.7761D0, 17.7104D0, 47*0.D0/ +C* DATA ((AMUS(I,L),I=1,59),L=8,14) / +C* * 4*0.D0, 12.1282D0, 13.0446D0, 13.9709D0, 14.8948D0, 15.8302D0, +C* * 16.7617D0, 17.6973D0, 18.6293D0, 19.5650D0, 46*0.D0, +C* * 7*0.D0, 15.8325D0, 16.7629D0, 17.6920D0, 18.6429D0, 19.5564D0, +C* * 20.4907D0, 21.4227D0, 22.3587D0, 44*0.D0, +C* * 6*0.D0, 15.8464D0, 16.7668D0, 17.6947D0, 18.6174D0, 19.5502D0, +C* * 20.4794D0, 21.4137D0, 22.3444D0, 23.2839D0, 24.2138D0, 43*0.D0, +C* * 8*0.D0, 18.6308D0, 19.5532D0, 20.4817D0, 21.4088D0, 22.3414D0, +C* * 23.2720D0, 24.2059D0, 25.1387D0, 26.0746D0, 27.0099D0, +C* * 27.9469D0, 28.8820D0, 29.8173D0, 30.7546D0, 31.6913D0, 36*0.D0, +C* * 7*0.D0, 18.6410D0, 19.5658D0, 20.4860D0, 21.4124D0, 22.3354D0, +C* * 23.2676D0, 24.1961D0, 25.1292D0, 26.0602D0, 26.9961D0, +C* * 27.9291D0, 28.8660D0, 29.7994D0, 30.7376D0, 38*0.D0, +C* * 9*0.D0, 21.4241D0, 22.3488D0, 23.2714D0, 24.1996D0, 25.1261D0, +C* * 26.0579D0, 26.9880D0, 27.9218D0, 28.8541D0, 29.7894D0, +C* * 30.7233D0, 31.6599D0, 32.5944D0, 33.5316D0, 36*0.D0, +C* * 9*0.D0, 22.3591D0, 23.2836D0, 24.2041D0, 25.1304D0, 26.0527D0, +C* * 26.9838D0, 27.9128D0, 28.8457D0, 29.7761D0, 30.7111D0, +C* * 31.6431D0, 32.5803D0, 33.5128D0, 34.4505D0, 35.3837D0, 35*0.D0/ +C----------------------------------------------------------------------- + +C GEANT PARTICLES INCLUDING RHO, K*, AND DELTA + DO 1 IP = 1,75 + PAMA (IP) = MASSES(IP) + SIGNUM(IP) = CHARGE(IP) + 1 CONTINUE + +C RESET REST OF THE ARRAY + DO 2 IP = 76,6000 + PAMA (IP) = 0.D0 + SIGNUM(IP) = 0.D0 + 2 CONTINUE + + DO 3 IA = 1,59 + DO 3 IC = 1,IA + IN = IA - IC + IP = IA * 100 + IC +C* IF ( IC .LE. 14 ) THEN +C MASSES FROM MASS TABLE FOR ISOTOPES +C* IF ( IN .EQ. 0 ) THEN +C* PAMA(IP) = IC * PAMA(14) +C* ELSE +C* PAMA(IP) = AMUS(IN,IC) +C* ENDIF +C SIMPLE SUM OF PROTON AND NEUTRON MASSES +C* IF ( PAMA(IP) .EQ. 0.D0 ) +C* * PAMA(IP) = IC * PAMA(14) + IN * PAMA(13) +C* ELSE +C WEIZSAECKERS MASS FORMULA GIVES BINDING ENERGY IN MEV +C* B1 = 14.1D0 * IA +C* B2 = (-13.D0) * IA**TB3 +C* B3 = (-0.595D0) * IC**2 / IA**OB3 +C* B4 = (-19.D0) * (IC-IN)**2 / IA +C* B5 = 33.5D0 / IA**0.75D0 +C* IF ( MOD(IC,2) .EQ. 0 .AND. MOD(IN,2) .EQ. 0 ) THEN +C* SS = 1.D0 +C* ELSEIF ( MOD(IC,2) .EQ. 1 .AND. MOD(IN,2) .EQ. 1 ) THEN +C* SS = -1.D0 +C* ELSE +C* SS = 0.D0 +C* ENDIF +C* BIND = (B1 + B2 + B3 + B4 + SS*B5)* 1.D-3 +C* BIND = MAX( 0.D0, BIND ) +C* PAMA(IP) = IN * MASSES(13) + IC * MASSES(14) - BIND +C* ENDIF + +C DO NOT USE BINDING ENERGY EFFECTS + PAMA(IP) = IN * MASSES(13) + IC * MASSES(14) + +C NUCLEI ARE ASSUMED TO BE FULLY IONIZED + SIGNUM(IP) = +IC + 3 CONTINUE + +C MASSES OF MULTINEUTRON CLUSTERS + DO 4 IN = 1,59 + IP = 100 * IN + PAMA (IP) = IN * PAMA(13) + SIGNUM(IP) = 0.D0 + 4 CONTINUE +C REST MASS OF LIGHT NUCLEI (DEUTERIUM, TRITIUM, ALPHA) + RESTMS(201) = RESTMS(13) + RESTMS(14) + RESTMS(301) = 2.D0 * RESTMS(13) + RESTMS(14) + RESTMS(402) = 2.D0 * RESTMS(13) + 2.D0 * RESTMS(14) + + RETURN + END +*CMZ : 25/09/2000 16.46.23 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PI0DEC + +C----------------------------------------------------------------------- +C PI 0 DEC(AY) +C +C DECAY OF PI0 INTO 2 GAMMAS OR INTO E(+) + E(-) + GAMMA +C THIS SUBROUTINE IS CALLED FROM NUCINT. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DECAY. + COMMON /DECAY/ GAM345,COS345,PHI345 + DOUBLE PRECISION GAM345(3),COS345(3),PHI345(3) +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AUX1,AUX2,COSTH1,COSTH2,EPITO2,FI1 + INTEGER I + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' PI0DEC: CURPAR=',1P,9E10.3) + +C LOOK FOR DECAY MODE + CALL RMMAR (RD,3,1) + +C DECAY PI(0) ----> GAMMA + GAMMA + IF ( RD(3) .LT. 0.98798 ) THEN +C HALF OF TOTAL ENERGY OF THE PION = EPITO2 + EPITO2 = 0.5D0 * GAMMA * PAMA(7) + AUX1 = 1.D0 + BETA * RD(1) + AUX2 = 1.D0 - BETA * RD(1) + COSTH1 = (BETA + RD(1)) / AUX1 + COSTH2 = (BETA - RD(1)) / AUX2 + +C FIRST GAMMA (WITH HIGHER ENERGY) + FI1 = PI2 * RD(2) +C ENERGY OF GAMMA + SECPAR(2) = AUX1 * EPITO2 + CALL ADDANG( COSTHE,PHI, COSTH1,FI1, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = 1.D0 + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + SECPAR(2) + ENDIF + ENDIF + +C SECOND GAMMA (WITH LOWER ENERGY) +C ENERGY OF GAMMA + SECPAR(2) = AUX2 * EPITO2 + CALL ADDANG( COSTHE,PHI, COSTH2,FI1+PI, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = 1.D0 + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + SECPAR(2) + ENDIF + ENDIF + +C DECAY PI(0) ----> E(-) + E(+) + GAMMA (DALITZ DECAY) +C (UNIFORM PHASE SPACE DISTRIBUTION IS ASSUMED FOR THIS DECAY) + ELSE + CALL DECAY6( PAMA(7), PAMA(2), PAMA(2), 0.D0, + * 0.D0,0.D0,0.D0, 1.D0, 2) + DO 11 I = 1,3 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = FLOAT(4 - I) + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( I .EQ. 1 ) THEN + DLONG(LHEIGH,3)=DLONG(LHEIGH,3)+(GAM345(I)-1.D0)*PAMA(2) + ELSEIF ( I .EQ. 2 ) THEN + DLONG(LHEIGH,3)=DLONG(LHEIGH,3)+(GAM345(I)+1.D0)*PAMA(2) + ELSE + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + GAM345(I) + ENDIF + ENDIF + ENDIF + 11 CONTINUE + + ENDIF + + RETURN + END +*CMZ : 01/03/2002 11.13.53 by D. HECK IK FZK KARLSRUHE +*-- Author : F. SCHROEDER UNI WUPPERTAL 17/09/98 +C======================================================================= + + SUBROUTINE PRANGC(ARG,FLAGMU,HNEW) + +C----------------------------------------------------------------------- +C (DECAYING) P(ARTICLE'S) RANG(E IN A) C(URVED ATMOSPHERE) +C +C DETERMINES MEAN FREE PATH FOR DECAYING PARTICLES IN CURVED +C ATMOSPHERE INCLUDING IONIZATION ENERGY LOSS PRECISELY. +C CALCULATE TOTAL PATH LENGTH FOR MUONS. +C THIS SUBROUTINE IS CALLED FROM BOX2. +C ARGUMENTS: +C ARG = -LOG(RANDOM NUMBER) * SPEED OF LIGHT * LIFETIME +C FLAGMU = MUON FLAG (T FOR MUONS, F ELSE) +C HNEW = HEIGHT AFTER TOTAL STEP LENGTH +C +C DESIGN : F. SCHROEDER UNI WUPPERTAL +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AK,ARG,ARG0,ARGNEW,AUXIL,BETANEW,BK,CHIT,CHIT2, + * COSDIF,COSPHI,COSTAPNEW,COSTHENEW,DISTN2,DISTO2, + * DK,DL,ELOSS,GAMK,GAMNEW,GAMSQ,GAM0,GMSQM1, + * HEIGH,HNEW,HOLD,H0,RADIUS,SIGNE,SINPHI,SINTHENEW, + * TH0,THICK,THNEW,THOLD,TRANS,TRANSNEW,XNEW,YNEW + INTEGER ILAY + LOGICAL FLAGMU + SAVE + EXTERNAL HEIGH,THICK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) ARG,THICKH + 444 FORMAT(' PRANGC: -LOG(RD)*C*TAU = ',1P,E10.3,' THICKH=',E10.3) + +C START VALUES + CHI = 0.D0 + HNEW = H + GAM0 = GAMMA + TH0 = THICKH + XNEW = X + YNEW = Y + BETANEW = BETA + COSTHENEW = COSTHE + COSTAPNEW = COSTAP + STEPL = 0.D0 + COSPHI = COS(PHI) + SINPHI = SIN(PHI) + DISTN2 = XNEW**2 + YNEW**2 + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C LOOP OVER PIECES OF ARG (EACH IN ITS LOCAL FLAT COORDINATE FRAME) + 1 CONTINUE +C STORE OLD VALUE OF THICKNESS + THOLD = TH0 + SINTHENEW = SQRT( MAX( 1.D0-COSTHENEW**2, 0.D0 ) ) +C CALCULATE UPPER LIMIT FOR TRANSVERSAL LENGTH (IMPORTANT TO DO A CUT, +C 'UPPER LIMIT' BECAUSE GAM0 BECOMES SMALLER DUE TO IONISATION LOSS) + AUXIL = GAM0 * BETANEW * SINTHENEW + TRANS = ARG * AUXIL +C MAXIMAL HORIZONTAL STEP (DEPENDS ON THICKNESS AT PARTICLE ALTITUDE) + TRANSNEW = MIN( TRANS, C(4) * THOLD + C(3) ) + + IF ( SINTHENEW .EQ. 0.D0 ) THEN +C STEP IN VERTICAL DIRECTION + ARGNEW = ARG + ELSE + ARGNEW = TRANSNEW / AUXIL + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'PRANGC: TH0,ARGNEW,TRANSNEW=', + * SNGL(TH0),SNGL(ARGNEW),SNGL(TRANSNEW) +C LOOK WITHIN WHICH LAYER THE PARTICLE STARTS + IF ( HNEW .LE. HLAY(2) ) THEN + ILAY = 1 + ELSEIF ( HNEW .LE. HLAY(3) ) THEN + ILAY = 2 + ELSEIF ( HNEW .LE. HLAY(4) ) THEN + ILAY = 3 + ELSE + ILAY = 4 + TH0 = MAX( TH0, THICKL(5) ) + ENDIF + +C SET START VALUES FOR ITERATION OVER THE AIR LAYERS + ARG0 = ARGNEW + CHIT = 0.D0 + H0 = HNEW +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + 2 CONTINUE + GAM0 = MAX( GAM0, 1.0001D0 ) + GAMSQ = GAM0**2 + GMSQM1 = GAMSQ - 1.D0 +C ENERGY LOSS BY IONIZATION + ELOSS = SIGNUM(ITYPE)**2 * C(22) * + * ( GAMSQ * (LOG(GMSQM1) + C(23)) / GMSQM1 - 1.D0 ) + ELOSS = ELOSS / (PAMA(ITYPE) * COSTHENEW ) + BK = ELOSS * (TH0 - AATM(ILAY)) + DK = GAM0 + BK + AK = ARG0 * DK * COSTHENEW * DATM(ILAY) + IF ( AK .GT. 0.D0 ) THEN + IF ( AK .LT. 174.D0 ) THEN +C LIMIT FOR EXPONENT (ON IBM COMPUTER) + GAMNEW = MAX( GAM0 * DK / ( GAM0 + BK * EXP(AK) ), 1.0001D0 ) + ELSE + GAMNEW = 1.0001D0 + ENDIF + GAMK = GAM0 - ELOSS * ( THICKL(ILAY) - TH0) + ELSE + GAMK = 1.D0 + GAMNEW = 1.0001D0 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'PRANGC: GAMNEW,GAMK=', + * SNGL(GAMNEW),SNGL(GAMK) +C LOOK WETHER PARTICLE PENETRATES LAYER BOUNDARY OR DECAYS BEFORE + IF ( GAMNEW .LT. GAMK .AND. ILAY. GT. 1 ) THEN +C CALCULATE PORTION OF RANGE AND NEW START VALUES AT LAYER BOUNDARY + ARG0 = ARG0 - ( H0 - HLAY(ILAY) + CATM(ILAY) * LOG(GAM0/GAMK) ) + * / (DK * COSTHENEW) + CHIT = CHIT + (THICKL(ILAY) - TH0) / COSTHENEW + IF ( FLAGMU ) STEPL = STEPL + (H0 - HLAY(ILAY))/COSTHENEW + GAM0 = GAMK + H0 = HLAY(ILAY) + TH0 = THICKL(ILAY) + ILAY = ILAY - 1 + GOTO 2 + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C PENETRATED MATTER THICKNESS + CHIT2 = (GAM0 - GAMNEW) / (ELOSS*COSTHENEW) + CHIT = CHIT + CHIT2 + IF ( TH0 + CHIT*COSTHENEW .GT. THICKL(1) ) THEN + CHI = CHI + (THICKL(1) - TH0)/COSTHENEW + HNEW = HLAY(1) + IF ( FLAGMU ) STEPL = STEPL + (H0 - HLAY(1))/COSTHENEW + IF ( DEBUG ) WRITE(MDEBUG,*) 'PRANGC: CHI = ',SNGL(CHI) + GOTO 100 + ENDIF + IF ( FLAGMU ) STEPL = STEPL + ( H0 - HEIGH(TH0+CHIT2) )/COSTHENEW +C ACTUAL VALUES + CHI = CHI + CHIT + ARG = ARG - ARGNEW +C ACTUAL VALUE OF GAM0 IS CALCULATED IN THE LOOP ABOVE + GAM0 = GAMNEW + IF ( DEBUG ) WRITE(MDEBUG,11) CHI,CHIT,ARG + 11 FORMAT(' PRANGC: CHI,CHIT,ARG=',1P,3(E10.3, 1X),0P) +C LOOP UNTIL THE COMPLETE PARTICLE TRACK LENGTHS IS TRANSFORMED IN CHI + BETANEW = SQRT( GAMNEW**2 - 1.D0 ) / GAMNEW + +C CALCULATE REAL TRANSNEW AND REAL GEOMETRIC LENGHT DL WHICH CROSSED +C THE PARTICLE WITH GIVEN ARGNEW. (GAMMA (= GAM0) HAS CHANGED DUE TO +C IONIZATION LOSS). BECAUSE OF CUT ON TRANS AND ON ARG, IT IS POSSIBLE +C TO CALCULATE WITHIN A FLAT ATMOSPHERE + THNEW = THOLD + COSTHENEW * CHIT + HOLD = HNEW +C NEW HEIGHT IN OLD COORDINATE FRAME + HNEW = HEIGH( THNEW ) + DL = ( HOLD - HNEW ) / COSTHENEW + TRANSNEW = DL * SINTHENEW +C NEW COORDINATE FRAME FOR NEXT STEP IN TRANSNEW +C NEW ACTUAL HEIGHT AT NEW THICKNESS GRADIENT +C (CALCULATED WITH PARAMETERS OF OLD COORDINATE FRAME) + HNEW = SQRT( TRANSNEW**2 + (C(1)+HNEW)**2 ) - C(1) +C TERMINATE PROCESS IF WELL BELOW OBSERVATION LEVEL + IF ( HNEW .LT. OBSLEV(1) - 1.D5 ) THEN +CDH 21.02.2002 +* IF ( HNEW .LT. MIN( OBSLEV(1) - 1.D5, +* * OBSLEV(1)-2.D0*C(2)*COSTHENEW/SINTHENEW ) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'PRANGC: HNEW,CHI,ARG,STEPL=', + * SNGL(HNEW),SNGL(CHI),SNGL(ARG),SNGL(STEPL) + GOTO 100 + ENDIF +C TERMINATE PROCESS IF PARTICLE IS STOPPED + IF ( GAM0 .LE. 1.0001D0 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'PRANGC: HNEW,GAM0,CHI,ARG,STEPL=', + * SNGL(HNEW),SNGL(GAM0),SNGL(CHI),SNGL(ARG),SNGL(STEPL) + GOTO 100 + ENDIF + COSDIF = ( (C(1)+HNEW)**2 + (C(1)+HOLD)**2 - DL**2 ) / + * ( 2.D0 * (C(1)+HNEW) * (C(1)+HOLD) ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'PRANGC: HNEW,COSDIF=', + * SNGL(HNEW),SNGL(COSDIF) + COSDIF = MIN(1.D0,COSDIF) +C DIRECTION OF PARTICLE RELATIVE TO DETECTOR CENTER + DISTO2 = DISTN2 + IF ( COSDIF .LT. 1.D0 ) THEN + RADIUS = DL * SQRT( (1.D0-COSTAPNEW**2)/(1.D0-COSDIF**2) ) + * * C(1) * ACOS(COSDIF)/(C(1)+HNEW) + ELSE + RADIUS = DL * SQRT( 1.D0 - COSTAPNEW**2 ) + ENDIF + XNEW = XNEW + RADIUS * COSPHI + YNEW = YNEW + RADIUS * SINPHI + DISTN2 = XNEW**2 + YNEW**2 + IF ( DISTO2 .GT. DISTN2 ) THEN + SIGNE = +1.D0 + ELSE + SIGNE = -1.D0 + ENDIF +C COSINE OF ZENITH ANGLE IN THE NEW FRAME + COSTHENEW = MIN( 1.D0, ( COSTHENEW * COSDIF - SIGNE * + * SQRT( (1.D0-COSTHENEW**2) * (1.D0-COSDIF**2) ) ) ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'PRANGC: COSTHENEW =',COSTHENEW +C TERMINATE PROCESS IF PARTICLE BECOMES UPWARD GOING + IF ( COSTHENEW .LE. C(29) ) GOTO 100 + TH0 = THICK(HNEW) +C NEXT STEP IF ARG NOT COMPLETELY TRANSFORMED INTO CHI + IF ( ARG .GT. 0.D0 ) GOTO 1 + + 100 CONTINUE + IF ( DEBUG ) THEN + IF ( FLAGMU ) THEN + WRITE(MDEBUG,*) 'PRANGC: HNEW,STEPL=',SNGL(HNEW),SNGL(STEPL) + ELSE + WRITE(MDEBUG,*) 'PRANGC: HNEW=',SNGL(HNEW) + ENDIF + ENDIF + + RETURN + END +*CMZ : 20/06/2000 15.00.27 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 14/07/95 +C======================================================================= + + SUBROUTINE PRANGE(ARG) + +C----------------------------------------------------------------------- +C (DECAYING) P(ARTICLE'S) RANGE +C +C DETERMINES MEAN FREE PATH FOR DECAYING PARTICLES +C INCLUDING IONIZATION ENERGY LOSS, +C FOR EACH LAYER OF THE ATMOSOHERE SEPARATELY +C PRECISELY +C THIS SUBROUTINE IS CALLED FROM BOX2. +C ARGUMENT: +C ARG = -LOG(RANDOM NUMBER) * SPEED OF LIGHT * LIFETIME +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AK,ARG,ARG0,BK,CHIT,DK,ELOSS, + * GAMK,GAMNEW,GAMSQ,GAM0,GMSQM1,H0,TH0 + INTEGER ILAY + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) ARG,THICKH + 444 FORMAT(' PRANGE: -LOG(RD)*C*TAU = ',1P,E10.3,' THICKH=',E10.3) + +C LOOK WITHIN WHICH LAYER THE PARTICLE STARTS + IF ( H .LE. HLAY(2) ) THEN + ILAY = 1 + TH0 = THICKH + ELSEIF ( H .LE. HLAY(3) ) THEN + ILAY = 2 + TH0 = THICKH + ELSEIF ( H .LE. HLAY(4) ) THEN + ILAY = 3 + TH0 = THICKH + ELSE + ILAY = 4 + TH0 = MAX( THICKH, THICKL(5) ) + ENDIF +C SET START VALUES FOR ITERATION + ARG0 = ARG + CHIT = 0.D0 + GAM0 = GAMMA + H0 = H + + 2 CONTINUE + GAM0 = MAX( GAM0, 1.0001D0 ) + GAMSQ = GAM0**2 + GMSQM1 = GAMSQ - 1.D0 +C ENERGY LOSS BY IONIZATION + ELOSS = SIGNUM(ITYPE)**2 * C(22) * + * ( GAMSQ * (LOG(GMSQM1) + C(23)) / GMSQM1 - 1.D0 ) + ELOSS = ELOSS / (PAMA(ITYPE) * COSTHE ) + BK = ELOSS * (TH0 - AATM(ILAY)) + DK = GAM0 + BK + AK = ARG0 * DK * COSTHE * DATM(ILAY) + IF ( AK .GT. 0.D0 ) THEN + IF ( AK .LT. 174.D0 ) THEN +C LIMIT FOR EXPONENT (ON IBM COMPUTER) + GAMNEW = MAX( GAM0 * DK / ( GAM0 + BK * EXP(AK) ), 1.0001D0 ) + ELSE + GAMNEW = 1.0001D0 + ENDIF + GAMK = GAM0 - ELOSS * ( THICKL(ILAY) - TH0) + ELSE + GAMK = 1.D0 + GAMNEW = 1.0001D0 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'PRANGE: GAMNEW,GAMK=', + * SNGL(GAMNEW),SNGL(GAMK) +C LOOK WETHER PARTICLE PENETRATES LAYER BOUNDARY OR DECAYS BEFORE + IF ( GAMNEW .LT. GAMK .AND. ILAY. GT. 1 ) THEN +C CALCULATE PORTION OF RANGE AND NEW START VALUES AT LAYER BOUNDARY + ARG0 = ARG0 - ( H0 - HLAY(ILAY) + CATM(ILAY) * LOG(GAM0/GAMK) ) + * / (DK * COSTHE) + CHIT = CHIT + (THICKL(ILAY) - TH0) / COSTHE + GAM0 = GAMK + H0 = HLAY(ILAY) + TH0 = THICKL(ILAY) + ILAY = ILAY - 1 + GOTO 2 + ENDIF +C PENETRATED MATTER THICKNESS + CHI = CHIT + (GAM0 - GAMNEW) / (ELOSS*COSTHE) + IF ( DEBUG ) WRITE(MDEBUG,445) CHI + 445 FORMAT(' PRANGE: CHI = ',1P,E10.3) + + RETURN + END +*CMZ : 19/10/2001 08.34.39 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 26/06/95 +C======================================================================= + + SUBROUTINE PRTIME(TTIME) + +C----------------------------------------------------------------------- +C PR(INT) TIME +C +C PRINTS PRESENT DATE AND TIME AND GIVES IT IN A FORMAT SUITED FOR THE +C RUNHEADER AND EVENTHEADER +C THIS SUBROUTINE IS CALLED FROM AAMAIN AND START. +C ARGUMENT: +C TTIME = TIME (YYMMDD) +C +C IF OUR DATE ROUTINE DOES NOT FIT TO YOUR COMPUTER, PLEASE REPLACE +C IT BY A SUITABLE ROUTINE OF YOUR SYSTEM +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION TTIME + CHARACTER*8 YYYYMMDD + CHARACTER*10 HHMMSS + INTEGER IYEAR,MONTH,IDAY,IHOUR,IMINU,ISEC + SAVE +C----------------------------------------------------------------------- + +C COMPILERS WITH OLD DATE FUNCTIONS ONLY HAVE TO CALL SEKDAT HERE + CALL SEKDAT( IYEAR,MONTH,IDAY,IHOUR,IMINU,ISEC ) + WRITE(MONIOU,100) IDAY,MONTH,IYEAR,IHOUR,IMINU,ISEC + TTIME = MOD(IYEAR,100)*10000 + MONTH*100 + IDAY + 100 FORMAT(' PRESENT TIME : ',I2.2,'.',I2.2,'.',I4,I4.2,':',I2.2, + * ':',I2.2,' UTC') + RETURN + END +*CMZ : 03/11/2000 16.13.44 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + DOUBLE PRECISION FUNCTION PTRANS() + +C----------------------------------------------------------------------- +C TRANS(VERSE MOMENTUM) +C +C RANDOM SELECTION OF TRANSVERSE MOMENTUM +C DISTRIBUTION IS OF FORM X*EXP(-X) +C THIS FUNCTION IS CALLED FROM PIGEN1, PIGEN2. +C +C CHANGES : J. KNAPP IK1 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION GX(0:50),HX(0:50),DX,SUMI,TT,X,XX,ZZ + INTEGER I,IMAX + LOGICAL FIRST + SAVE +C DX IS STEPSIZE FOR APPROXIMATING CURVE + DATA FIRST / .TRUE. /, DX / 0.5D0 / +C----------------------------------------------------------------------- + +C IF ( DEBUG ) WRITE(MDEBUG,*) 'PTRANS:' + +C COMPUTE FUNCTION VALUES AND INTEGRAL OF STEP FUNCTION H(X) +C APPROXIMATING Y(X) = X * EXP(1-X) WITH H(X) > Y(X) + IF ( FIRST ) THEN + FIRST = .FALSE. + IMAX = C(34) / DX + GX(0) = 0.D0 + HX(0) = DX*EXP(1.D0-DX) + DO 2 I = 1,IMAX + X = I*DX + IF ( X .LT. 1.D0 ) X = X + DX + HX(I) = X*EXP(1.D0-X) + GX(I) = GX(I-1) + HX(I-1) + 2 CONTINUE + SUMI = 1.D0 / GX(IMAX) + DO 3 I = 1,IMAX + GX(I) = GX(I) * SUMI + 3 CONTINUE + ENDIF + +C----------------------------------------------------------------------- +C GET RANDOM VARIABLE DISTRIBUTED AS HX(X) + 11 CONTINUE + CALL RMMAR( RD,2,1 ) + I = 0 + 1 CONTINUE + I = I+1 + IF ( GX(I) .LT. RD(1) ) GOTO 1 + XX = ( (RD(1)-GX(I-1))/(GX(I)-GX(I-1)) + I-1 ) * DX + ZZ = HX(I-1) +C GET RANDOM VARIABLE DISTRIBUTED AS Y(X) BY REJECTION METHOD + TT = XX * EXP(1.-XX) + IF ( RD(2)*ZZ .GT. TT ) GOTO 11 + +C GET REQUIRED PEAK VALUE + PTRANS = XX * C(12) + IF ( DEBUG ) WRITE(MDEBUG,*) 'PTRANS: PT = ',SNGL(PTRANS) + + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + DOUBLE PRECISION FUNCTION RANNOR( A,B ) + +C----------------------------------------------------------------------- +C RAN(DOM NUMBER) NOR(MALLY DISTRIBUTED) +C +C GENERATES NORMAL DISTRIBUTED RANDOM NUMBER +C DELIVERS 2 UNCORRELATED RANDOM NUMBERS, +C THEREFORE RANDOM CALLS ARE ONLY NECESSARY EVERY SECOND TIME. +C REFERENCE : NUMERICAL RECIPES, W.H. PRESS ET AL., +C CAMBRIDGE UNIVERSITY PRESS, 1992 ISBN 0 521 43064 X +C THIS FUNCTION IS CALLED FROM HDPM, LEADDF, PARRAP, QGSTOR, +C UPDATE, AND VAPOR. +C ARGUMENTS: +C A = MEAN VALUE +C B = STANDARD DEVIATION +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION A,B,RR + SAVE +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,100) SNGL(A),SNGL(B) +CC100 FORMAT(' RANNOR: A,B=',1P,2E10.3) + IF ( KNOR ) THEN + 1 CONTINUE + CALL RMMAR( RD,2,1 ) + U1 = 2.D0*RD(1) - 1.D0 + U2 = 2.D0*RD(2) - 1.D0 + RR = U1**2 + U2**2 + IF ( RR .GE. 1.D0 .OR. RR .EQ. 0.D0 ) GOTO 1 + FAC = SQRT( (-2.D0) * LOG(RR) / RR ) + + RANNOR = FAC * U1 * B + A + KNOR = .FALSE. + ELSE + RANNOR = FAC * U2 * B + A + KNOR = .TRUE. + ENDIF +CC IF ( DEBUG ) WRITE(MDEBUG,101) RANNOR +CC101 FORMAT('+',34X,' RANNOR =',1P,E12.5) + + RETURN + END +*CMZ : 14/06/2000 14.56.21 by D. HECK IK3 FZK KARLSRUHE +*-- Author : Konrad Bernloehr, Uni Hamburg 30/08/99 +C======================================================================= + + SUBROUTINE RCLCHK( MUNIT,NLREC,IERR ) + +C----------------------------------------------------------------------- +C R(E)C(ORD)L(ENGTH PARAMETER) CH(EC)K +C +C CHECK IF THE RECL PARAMETER FOR OPENING UNFORMATTED DIRECT-ACCESS +C FILES IS INTERPRETED AS IT SHOULD +C THIS SUBROUTINE IS CALLED FROM INPRM. +C ARGUMENTS: +C MUNIT = UNIT NUMBER FOR TEMPORARY FILE +C NLREC = 1 FOR RECL IN BYTES, 4 FOR RECL IN 4-BYTE WORDS +C IERR = ERROR INDICATOR +C +C DESIGN: K. BERNLOEHR UNI HAMBURG 1999 +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER IERR,MUNIT,NLREC + INTEGER IDAT(5) + SAVE +C----------------------------------------------------------------------- + + IERR = 0 + + OPEN(UNIT=MUNIT,STATUS='SCRATCH', + * FORM='UNFORMATTED',ACCESS='DIRECT',RECL=16/NLREC) +C IF NLREC=4 BUT RECL COUNTED IN BYTES, THE '990' STATEMENT +C WILL TYPICALLY BE JUMPED TO, AS A RESULT OF A WRITE ERROR. + WRITE(MUNIT,REC=1,ERR=990) 1,2,3,4 + WRITE(MUNIT,REC=3,ERR=990) 9,10,11,12 + WRITE(MUNIT,REC=2,ERR=990) 5,6,7,8 +C IF NLREC=4 BUT RECL IS COUNTED IN BYTES AND NO WRITE +C ERROR WAS REPORTED, RECORDS SHOULD HAVE OVERLAPED AND +C THE DATA IS CORRUPTED. + READ(MUNIT,REC=1) IDAT(1),IDAT(2),IDAT(3),IDAT(4) + IF ( IDAT(1) .NE. 1 .OR. IDAT(2) .NE. 2 .OR. + * IDAT(3) .NE. 3 .OR. IDAT(4) .NE. 4 ) IERR = 1 + READ(MUNIT,REC=2) IDAT(1),IDAT(2),IDAT(3),IDAT(4) + IF ( IDAT(1) .NE. 5 .OR. IDAT(2) .NE. 6 .OR. + * IDAT(3) .NE. 7 .OR. IDAT(4) .NE. 8 ) IERR = IERR + 2 + READ(MUNIT,REC=3) IDAT(1),IDAT(2),IDAT(3),IDAT(4) + IF ( IDAT(1) .NE. 9 .OR. IDAT(2) .NE. 10 .OR. + * IDAT(3) .NE. 11 .OR. IDAT(4) .NE. 12 ) IERR = IERR + 4 + +C IF NLREC=1 BUT RECL COUNTED IN WORDS IS USUALLY NOT CAUGHT BY +C THIS ROUTINE, BUT SHOULD BE RATHER HARMLESS. THE ONLY BAD +C EFFECT EXPECTED IS THAT THE EXTERNAL STACK FILE WILL BE FOUR +C TIMES AS LARGE AS NEEDED. + +C WELL, LET'S TRY TO CATCH THAT ONE AS WELL (READ ERROR IS O.K.) + + READ(MUNIT,REC=1,ERR=900) IDAT(1),IDAT(2),IDAT(3),IDAT(4),IDAT(5) + WRITE(MONIOU,*) ' ' + WRITE(MONIOU,*) 'THE HANDLING OF UNFORMATTED DIRECT-ACCESS FILES', + * ' ON YOUR MACHINE SEEMS TO' + WRITE(MONIOU,*) 'BE NOT AS EXPECTED. THE TEMPORARY CORSIKA ', + * 'EXTERNAL STACK FILE MAY BECOME' + WRITE(MONIOU,*) 'LARGER THAN NEEDED BUT NO DATA CORRUPTION IS ', + * 'EXPECTED THERE.' + WRITE(MONIOU,*) 'PERHAPS YOU USED THE BYTERECL OPTION FOR ', + * 'EXTRACTING CORSIKA BUT DO NOT NEED IT.' + WRITE(MONIOU,*) ' ' + + IERR = -1 + RETURN + + 900 CLOSE(MUNIT) + + IF ( IERR .NE. 0 ) THEN + WRITE(MONIOU,*) ' ' + WRITE(MONIOU,*) 'THE HANDLING OF UNFORMATTED DIRECT-ACCESS ', + * 'FILES ON YOUR MACHINE IS NOT AS' + WRITE(MONIOU,*) 'EXPECTED. THIS MAY WELL LEAD TO CORRUPTION ', + * 'OF THE CORSIKA EXTERNAL STACK.' + WRITE(MONIOU,*) 'PERHAPS THIS PROBLEM IS DUE TO A MISSING ', + * 'BYTERECL OPTION FOR EXTRACTING' + WRITE(MONIOU,*) 'CORSIKA FROM THE CMZ FILE. IT MAY ALSO BE ', + * 'DUE TO USING COMPILER FLAGS' + WRITE(MONIOU,*) 'INAPPROPRIATE FOR THE CORSIKA VERSION ', + * 'EXTRACTED.' + WRITE(MONIOU,*) ' ' + ENDIF + + RETURN + + 990 IERR = 99 + GOTO 900 + + END +*CMZ : 09/11/2000 14.19.13 by D. HECK IK3 FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 16/07/99 +C======================================================================= + + SUBROUTINE RHO0DC + +C----------------------------------------------------------------------- +C RHO(0) D(E)C(AY) +C +C TWO PARTICLE DECAY WITH FULL KINEMATIC; ENERGY AND MOMENTA CONSERVED +C RHO(0) DECAYS INTO PI(+) + PI(-) WITH DIPOLE CHARACTERISTIC +C THIS SUBROUTINE IS CALLED FROM RHOGEN. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + + DOUBLE PRECISION AUX2A,BETA,COSTCM,COSTH3,COSTH4, + * GAMMA3,GAMMA4,PHI4,WORK1,WORK2 + INTEGER I + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' RHO0DC: CURPAR=',1P,8E10.3,0P,F10.0) + +C COPY VERTEX COORDINATES INTO SECPAR + DO 10 I = 5,8 + SECPAR(I) = CURPAR(I) + 10 CONTINUE +C SET GENERATION AND LEVEL OF LAST INTERACTION + SECPAR( 9) = GEN + SECPAR(10) = ALEVEL +C RESET POLARIZATION, NOT USED FOR PARTICLES OTHER THAN MUONS YET + SECPAR(11) = 0.D0 + SECPAR(12) = 0.D0 + SECPAR(14) = CURPAR(14) + SECPAR(15) = CURPAR(15) + SECPAR(16) = CURPAR(16) + +C CALCULATE AUXILIARY QUANTITIES + BETA = SQRT( CURPAR(2)**2 - 1.D0 ) / CURPAR(2) + AUX2A = 0.5D0 * PAMA(51) / PAMA(8) + WORK1 = CURPAR(2) * AUX2A + WORK2 = BETA * CURPAR(2) * SQRT( AUX2A**2 - 1.D0 ) + +C DETERMINE POLAR ANGLE IN CM SYSTEM WITH DIPOLE CHARACTERISTICS +C PURE DIPOLE RADIATION: W(COSTH) = 1-3/5*COSTH**2 + 210 CONTINUE + CALL RMMAR( RD,2,1 ) + COSTCM = 2.D0 * RD(1) - 1.D0 + +C PARAMETRIZATION FROM H1 COLLAB. [NUCL.PYS. B463(1996)3] +C THIS PARAMETRIZATION SEEMS UNPHYSICALLY, AS IT RESULTS IN +C NEGATIVE RATE IN FORWARD OR BACKWARD DIRECTION +C IF ( RD(2) .GT. 1.D0 - 1.1982D0 * COSTCM**2 ) GOTO 210 +C PARAMETRIZATION FROM ZEUSS COLLAB. [Z.PHYS. C69(1995)39] + IF ( RD(2) .GT. 1.D0 - 0.8836D0 * COSTCM**2 ) GOTO 210 + + GAMMA3 = WORK1 + WORK2 * COSTCM +C SECOND PRODUCT PARTICLE IS PI(-) + GAMMA4 = CURPAR(2) * (PAMA(51)/PAMA(8)) - GAMMA3 + COSTH4 = MIN( 1.D0, (CURPAR(2)*GAMMA4 - AUX2A) + * / (BETA * CURPAR(2) * SQRT(GAMMA4**2 - 1.D0)) ) + CALL RMMAR( RD,1,1 ) + PHI4 = RD(1)*PI2 + CALL ADDANG(CURPAR(3),CURPAR(4), COSTH4,PHI4, SECPAR(3),SECPAR(4)) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = 9.D0 + SECPAR(2) = GAMMA4 + IF ( DEBUG ) WRITE(MDEBUG,445) (SECPAR(I),I=1,9) + 445 FORMAT(' RHO0DC: SECPAR=',1P,8E10.3,0P,F10.0) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7) + GAMMA4 * PAMA(8) + ENDIF + ENDIF +C FIRST PRODUCT PARTICLE IS PI(+) + COSTH3 = MIN( 1.D0, (CURPAR(2) * GAMMA3 - AUX2A) + * / (BETA * CURPAR(2) * SQRT(GAMMA3**2 - 1.D0)) ) + CALL ADDANG( CURPAR(3),CURPAR(4), COSTH3,PHI4+PI, + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = 8.D0 + SECPAR(2) = GAMMA3 + IF ( DEBUG ) WRITE(MDEBUG,445) (SECPAR(I),I=1,9) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7) + GAMMA3 * PAMA(8) + ENDIF + ENDIF + + RETURN + END +*CMZ : 20/06/2000 15.00.27 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + DOUBLE PRECISION FUNCTION RHOF( ARG ) + +C----------------------------------------------------------------------- +C RHO (DENSITY) F(UNCTION) +C +C CALCULATES DENSITY (G/CM**3) OF ATMOSPHERE DEPENDING ON HEIGHT (CM) +C THIS FUNCTION IS CALLED FROM BOX2, LPMEFFECT, ININKG, CERENK, +C AND INRTAB. +C ARGUMENT: +C ARG = HEIGHT IN CM +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,ATMOSX. +C EXTERNAL ATMOSPHERIC MODELS + COMMON /ATMOSX/ IATMOX,FREFRX + INTEGER IATMOX + LOGICAL FREFRX +*KEND. + + DOUBLE PRECISION ARG + DOUBLE PRECISION RHOFX + EXTERNAL RHOFX + SAVE +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'RHOF : ARG=',SNGL(ARG) + + IF ( IATMOX .GE. 1 ) THEN + RHOF = RHOFX(ARG) + RETURN + ENDIF + + IF ( ARG .LT. HLAY(2) ) THEN + RHOF = BATM(1) * DATM(1) * EXP ( (-ARG) * DATM(1) ) + ELSEIF ( ARG .LT. HLAY(3) ) THEN + RHOF = BATM(2) * DATM(2) * EXP ( (-ARG) * DATM(2) ) + ELSEIF ( ARG .LT. HLAY(4) ) THEN + RHOF = BATM(3) * DATM(3) * EXP ( (-ARG) * DATM(3) ) + ELSEIF ( ARG .LT. HLAY(5) ) THEN + RHOF = BATM(4) * DATM(4) * EXP ( (-ARG) * DATM(4) ) + ELSE + RHOF = DATM(5) + ENDIF + + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE RMMAQ( ISEED,ISEQ,CHOPT ) + +C----------------------------------------------------------------------- +C R(ANDO)M (NUMBER GENERATOR OF) MA(RSAGLIA TYPE INITIALIZATION) +C +C ROUTINE FOR INITIALIZATION OF RMMAR +C THIS SUBROUTINE IS CALLED FROM AAMAIN AND START. +C ARGUMENTS: +C ISEED = SEED TO INITIALIZE A SEQUENCE +C ISEQ = # OF RANDOM SEQUENCE +C CHOPT = CHARACTER TO STEER INITIALIZE OPTIONS +C +C CERN PROGLIB# V113 RMMAQ .VERSION KERNFOR 1.0 +C ORIG. 01/03/89 FCA + FJ +C----------------------------------------------------------------------- + + COMMON /RANMA2/ IU(1030),JSEQ + COMMON /RANMA3/ TWOM24,TWOM48,CD,CM,CINT,MODCNS + INTEGER I97(0:1030),J97(0:1030),NTOT(0:1030),NTOT2(0:1030), + * IJKL(0:1030) + REAL U(1030),C(0:1030),UU(1030) + EQUIVALENCE (IJKL(0),IU(1)),(NTOT(0),IU(2)),(NTOT2(0),IU(3)) + EQUIVALENCE (U(1),IU(4)),(C(0),IU(101)),(I97(0),IU(102)) + EQUIVALENCE (J97(0),IU(103)) + INTEGER ISEED(*) + CHARACTER CHOPT*(*), CCHOPT*12 + LOGICAL FIRST + SAVE UU,FIRST,CCHOPT + DATA FIRST / .TRUE. / +C----------------------------------------------------------------------- + + IF ( FIRST ) THEN + TWOM24 = 2.**(-24) + TWOM48 = 2.**(-48) + CD = 7654321.*TWOM24 + CM = 16777213.*TWOM24 + CINT = 362436.*TWOM24 + MODCNS = 1000000000 + FIRST = .FALSE. + ENDIF + + CCHOPT = CHOPT + IF ( CCHOPT .EQ. ' ' ) THEN + ISEED(1) = 54217137 + ISEED(2) = 0 + ISEED(3) = 0 + CCHOPT = 'S' + JSEQ = 1 + ENDIF + + IF ( INDEX(CCHOPT,'S') .NE. 0 ) THEN + IF ( ISEQ .GT. 0 ) JSEQ = ISEQ + IBASE = (JSEQ-1)*103 + IF ( INDEX(CCHOPT,'V') .NE. 0 ) THEN + DO 10 JJ = 1,103 + IU(IBASE+JJ) = ISEED(JJ) + 10 CONTINUE + ELSE + IJKL(IBASE) = ISEED(1) + NTOT(IBASE) = ISEED(2) + NTOT2(IBASE) = ISEED(3) + IJ = IJKL(IBASE) / 30082 + KL = IJKL(IBASE) - 30082*IJ + I = MOD(IJ/177, 177) + 2 + J = MOD(IJ, 177) + 2 + K = MOD(KL/169, 178) + 1 + L = MOD(KL, 169) + DO 30 II = 1,97 + S = 0. + T = .5 + DO 20 JJ = 1,24 + M = MOD(MOD(I*J,179)*K, 179) + I = J + J = K + K = M + L = MOD(53*L+1, 169) + IF ( MOD(L*M,64) .GE. 32 ) S = S+T + T = 0.5*T + 20 CONTINUE + UU(II) = S + 30 CONTINUE + CC = CINT + II97 = 97 + IJ97 = 33 +C COMPLETE INITIALIZATION BY SKIPPING (NTOT2*MODCNS+NTOT) RANDOMNUMBERS + NITER = MODCNS + DO 50 LOOP2 = 1,NTOT2(IBASE)+1 + IF ( LOOP2 .GT. NTOT2(IBASE) ) NITER = NTOT(IBASE) + DO 40 IDUM = 1,NITER + UNI = UU(II97)-UU(IJ97) + IF ( UNI .LT. 0. ) UNI = UNI+1. + UU(II97) = UNI + II97 = II97-1 + IF ( II97 .EQ. 0 ) II97 = 97 + IJ97 = IJ97-1 + IF ( IJ97 .EQ. 0 ) IJ97 = 97 + CC = CC - CD + IF ( CC .LT. 0. ) CC = CC+CM + 40 CONTINUE + 50 CONTINUE + I97(IBASE) = II97 + J97(IBASE) = IJ97 + C(IBASE) = CC + DO 60 JJ = 1,97 + U(IBASE+JJ) = UU(JJ) + 60 CONTINUE + ENDIF + ELSEIF ( INDEX(CCHOPT,'R') .NE. 0 ) THEN + IF ( ISEQ .GT. 0 ) THEN + JSEQ = ISEQ + ELSE + ISEQ = JSEQ + ENDIF + IBASE = (JSEQ-1)*103 + IF ( INDEX(CCHOPT,'V') .NE. 0 ) THEN + NCOPY = 103 + ELSE + NCOPY = 3 + ENDIF + DO 70 JJ = 1,NCOPY + ISEED(JJ) = IU(IBASE+JJ) + 70 CONTINUE + ENDIF + RETURN + END +*CMZ : 28/02/2002 13.08.19 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE RMMAR( RVEC,LENV,ISEQ ) + +C----------------------------------------------------------------------- +C R(ANDO)M (NUMBER GENERATOR OF) MAR(SAGLIA TYPE) +C +C THESE ROUTINES (RMMAR,RMMAQ) ARE TAKEN FROM THE CERN LIBRARIES +C DESCRIPTION OF ALGORITHM SEE THERE +C THIS SUBROUTINE IS CALLED FROM MANY ROUTINES. +C ARGUMENTS: +C RVEC = VECTOR FIELD TO BE FILLED WITH RANDOM NUMBERS +C LENV = LENGTH OF VECTOR (# OF RANDNUMBERS TO BE GENERATED) +C ISEQ = # OF RANDOM SEQUENCE +C +C CERN PROGLIB# V113 RMMAR .VERSION KERNFOR 1.0 +C ORIG. 01/03/89 FCA + FJ +C----------------------------------------------------------------------- + + REAL RVEC(*) + COMMON /RANMA2/ IU(1030),JSEQ + COMMON /RANMA3/ TWOM24,TWOM48,CD,CM,CINT,MODCNS + INTEGER I97(0:1030),J97(0:1030),NTOT(0:1030),NTOT2(0:1030), + * IJKL(0:1030) + REAL U(1030),C(0:1030) + EQUIVALENCE (IJKL(0),IU(1)),(NTOT(0),IU(2)),(NTOT2(0),IU(3)) + EQUIVALENCE (U(1),IU(4)),(C(0),IU(101)),(I97(0),IU(102)) + EQUIVALENCE (J97(0),IU(103)) + SAVE +C----------------------------------------------------------------------- + + IF ( ISEQ .GT. 0 ) JSEQ = ISEQ + IBASE = (JSEQ-1)*103 + + DO 100 IVEC = 1,LENV + UNI = U(IBASE+I97(IBASE))-U(IBASE+J97(IBASE)) + IF ( UNI .LT. 0. ) UNI = UNI+1. + U(IBASE+I97(IBASE)) = UNI + I97(IBASE) = I97(IBASE)-1 + IF ( I97(IBASE) .EQ. 0 ) I97(IBASE) = 97 + J97(IBASE) = J97(IBASE)-1 + IF ( J97(IBASE) .EQ. 0 ) J97(IBASE) = 97 + C(IBASE) = C(IBASE) - CD + IF ( C(IBASE) .LT. 0. ) C(IBASE) = C(IBASE)+CM + UNI = UNI-C(IBASE) + IF ( UNI .LT. 0. ) UNI = UNI+1. +C REPLACE EXACT ZEROES BY UNIFORM DISTR. *2**-24 + IF ( UNI .EQ. 0. ) THEN + UNI = TWOM24*U(2) +C AN EXACT ZERO HERE IS VERY UNLIKELY, BUT LET'S BE SAFE. + IF ( UNI .EQ. 0. ) UNI = TWOM48 + ENDIF + RVEC(IVEC) = UNI + 100 CONTINUE + + NTOT(IBASE) = NTOT(IBASE) + LENV + IF ( NTOT(IBASE) .GE. MODCNS ) THEN + NTOT2(IBASE) = NTOT2(IBASE) + 1 + NTOT(IBASE) = NTOT(IBASE) - MODCNS + ENDIF + + RETURN + END +*CMZ : 28/02/2002 13.12.11 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 27/04/94 +C======================================================================= + + SUBROUTINE SDPM + +C----------------------------------------------------------------------- +C S(TARTING) D(UAL) P(ARTON) M(ODEL) +C +C THIS ROUTINE DETERMINES THE TARGET NUCLEUS. +C IT CALLS ALSO THE VARIOUS INTERACTION MODELS. +C FOR HDPM, THIS ROUTINE LOOKS, HOW MANY NUCLEONS INTERACT AND WHICH +C RESIDUAL FRAGMENT OF THE PROJECTILE NUCLEUS REMAINS. +C THIS SUBROUTINE IS CALLED FROM NUCINT AND PIGEN. +C +C REDESIGN: D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,ISTA. + COMMON /ISTA/ IFINET,IFINNU,IFINKA,IFINPI,IFINHY + INTEGER IFINET,IFINNU,IFINKA,IFINPI,IFINHY +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEEP,NCSNCS. + COMMON /NCSNCS/ SIGN30,SIGN45,SIGN60,SIGO30,SIGO45,SIGO60, + * SIGA30,SIGA45,SIGA60,PNOA30,PNOA45,PNOA60, + * SIG30A,SIG45A,SIG60A + DOUBLE PRECISION SIGN30(56),SIGN45(56),SIGN60(56), + * SIGO30(56),SIGO45(56),SIGO60(56), + * SIGA30(56),SIGA45(56),SIGA60(56), + * PNOA30(1540,3),PNOA45(1540,3),PNOA60(1540,3), + * SIG30A(56),SIG45A(56),SIG60A(56) +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEEP,VKIN. + COMMON /VKIN/ BETACM + DOUBLE PRECISION BETACM +*KEEP,VENUS. + COMMON /VENUS/ ISH00,IVERVN,MTAR99,FVENUS,FVENSG + INTEGER ISH00,IVERVN,MTAR99 + LOGICAL FVENUS,FVENSG +*KEND. + + DOUBLE PRECISION PFRX(60),PFRY(60) + DOUBLE PRECISION COSTET,EA,P,PHIV,PTM,PT2, + * SIGMAA,SIGMAN,SIGMAO,SIG45,S45SQ,S4530 + DOUBLE PRECISION CGHSIG + DOUBLE PRECISION EKIN + + INTEGER ITYP(60),I,IA,IANEW,INACTA,INACTZ,INDEX,INEUTR, + * IZ,IZNEW,J,JFIN,KNEW,L,LL,NPRPRO,NNEPRO + SAVE + EXTERNAL CGHSIG +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' SDPM : CURPAR=',1P,9E10.3) + +C IA IS MASS NUMBER OF PROJECTILE + IA = ITYPE / 100 + IF ( IA .GT. 56 ) THEN + WRITE(MONIOU,444) (CURPAR(I),I=1,9) + WRITE(MONIOU,*) 'SDPM : NOT FORESEEN PARTICLE TYPE=',ITYPE + STOP + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C TREATMENT OF GAMMAS COMING FROM EGS4 (PIGEN) + IF ( ITYPE .EQ. 1 ) THEN +C RATIOS OF CROSS-SECTIONS GO LIKE A**0.91 +C 14**0.91 = 11.04; 16**0.91 = 12.47; 40**0.91 = 28.70 + FRACTN = COMPOS(1) * 11.04019D0 + FRCTNO = FRACTN + COMPOS(2) * 12.46663D0 + SIGAIR = FRCTNO + COMPOS(3) * 28.69952D0 +C TARGET IS CHOSEN AT RANDOM + CALL RMMAR( RD,1,1 ) + IF ( RD(1)*SIGAIR .LE. FRACTN ) THEN +C INTERACTION WITH NITROGEN + LT = 1 + TAR = 14.D0 + ELSEIF ( RD(1)*SIGAIR .LE. FRCTNO ) THEN +C INTERACTION WITH OXYGEN + LT = 2 + TAR = 16.D0 + ELSE +C INTERACTION WITH ARGON + LT = 3 + TAR = 40.D0 + ENDIF + +C GAMMAS ARE TREATED BY VENUS, IF SUFFICIENT ENERGY + IF ( FVENUS .AND. CURPAR(2) .GT. HILOELB ) THEN + CALL VENLNK + ELSE + CALL HDPM + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C NORMAL HADRON PROJECTILE + ELSEIF ( ITYPE .LT. 100 ) THEN + +C WITH WHAT KIND OF TARGET DOES PROJECTILE INTERACT? + IF ( FIXTAR ) THEN +C TARGET OF FIRST INTERACTION IS FIXED + LT = N1STTR + IF ( N1STTR .EQ. 1 ) THEN + TAR = 14.D0 + ELSEIF ( N1STTR .EQ. 2 ) THEN + TAR = 16.D0 + ELSE + TAR = 40.D0 + ENDIF + FIXTAR = .FALSE. +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 + ELSE +C TARGET IS CHOSEN AT RANDOM ACCORDING TO CROSS-SECTION +C SIGAIR, FRACTN, FRCTNO HAVE BEEN DETERMINED IN BOX2/VENSIG + IF ( FVENSG ) GOTO 333 +C SIGMA IS ENERGY DEPENDENT INELASTIC NUCLEON-NUCLEON CROSS-SECTION +C AND IS SET IN BOX2 +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS FOR PROJECTICLE WITH MASS NUMBER 1 + SIGMAN = (1.D0 - 2.D0 * S45SQ) * SIGN45(1) + * +(S45SQ - S4530) * SIGN30(1) + * +(S45SQ + S4530) * SIGN60(1) + FRACTN = COMPOS(1) * SIGMAN + SIGMAO = (1.D0 - 2.D0 * S45SQ) * SIGO45(1) + * +(S45SQ - S4530) * SIGO30(1) + * +(S45SQ + S4530) * SIGO60(1) + FRCTNO = FRACTN + COMPOS(2) * SIGMAO + SIGMAA = (1.D0 - 2.D0 * S45SQ) * SIGA45(1) + * +(S45SQ - S4530) * SIGA30(1) + * +(S45SQ + S4530) * SIGA60(1) +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER 1 + SIGAIR = FRCTNO + COMPOS(3)*SIGMAA + 333 CONTINUE + CALL RMMAR( RD,1,1 ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'SDPM : FRACTN=',SNGL(FRACTN), + * ' FRCTNO=',SNGL(FRCTNO),' RD=',RD(1) + IF ( RD(1)*SIGAIR .LE. FRACTN ) THEN +C INTERACTION WITH NITROGEN + LT = 1 + TAR = 14.D0 + ELSEIF ( RD(1)*SIGAIR .LE. FRCTNO ) THEN +C INTERACTION WITH OXYGEN + LT = 2 + TAR = 16.D0 + ELSE +C INTERACTION WITH ARGON + LT = 3 + TAR = 40.D0 + ENDIF + ENDIF + + IF ( FVENUS ) THEN +C MESONS, NUCLEONS AND STRANGE BARYONS ARE TREATED BY VENUS (JAN 95) + IF ( ITYPE .GE. 7 .AND. ITYPE .LE. 32 ) THEN + CALL VENLNK + ELSE + CALL HDPM + ENDIF + ELSE + CALL HDPM + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C HEAVY PRIMARY INCIDENT WITH IA NUCLEONS + ELSEIF ( IA .LE. 56 ) THEN + + IZ = MOD(ITYPE,100) +C WITH WHAT KIND OF TARGET DOES PROJECTILE INTERACT? + IF ( FIXTAR ) THEN +C TARGET OF FIRST INTERACTION IS FIXED + LT = N1STTR + IF ( N1STTR .EQ. 1 ) THEN + TAR = 14.D0 + ELSEIF ( N1STTR .EQ. 2 ) THEN + TAR = 16.D0 + ELSE + TAR = 40.D0 + ENDIF + FIXTAR = .FALSE. + CALL RMMAR( RD,2,1 ) +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 + ELSE +C ONLY INELASTIC INTERACTIONS WITH HEAVY PRIMARY/FRAGMENT +C SIGMA IS ENERGY DEPENDENT INELASTIC NUCLEON-NUCLEON CROSS-SECTION +C AND IS SET IN BOX2/VENSIG +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS FOR PROJECTICLE WITH MASS NUMBER IA + SIGMAN = (1.D0 - 2.D0 * S45SQ) * SIGN45(IA) + * +(S45SQ - S4530) * SIGN30(IA) + * +(S45SQ + S4530) * SIGN60(IA) + FRACTN = COMPOS(1) * SIGMAN + SIGMAO = (1.D0 - 2.D0 * S45SQ) * SIGO45(IA) + * +(S45SQ - S4530) * SIGO30(IA) + * +(S45SQ + S4530) * SIGO60(IA) + FRCTNO = FRACTN + COMPOS(2) * SIGMAO + SIGMAA = (1.D0 - 2.D0 * S45SQ) * SIGA45(IA) + * +(S45SQ - S4530) * SIGA30(IA) + * +(S45SQ + S4530) * SIGA60(IA) +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER IA + SIGAIR = FRCTNO +COMPOS(3)*SIGMAA + 334 CONTINUE +C TARGET IS CHOSEN AT RANDOM + CALL RMMAR( RD,2,1 ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'SDPM : FRACTN=',SNGL(FRACTN), + * ' FRCTNO=',SNGL(FRCTNO),' RD=',RD(1) + IF ( RD(1)*SIGAIR .LE. FRACTN ) THEN +C INTERACTION WITH NITROGEN + LT = 1 + TAR = 14.D0 + ELSEIF ( RD(1)*SIGAIR .LE. FRCTNO ) THEN +C INTERACTION WITH OXYGEN + LT = 2 + TAR = 16.D0 + ELSE +C INTERACTION WITH ARGON + LT = 3 + TAR = 40.D0 + ENDIF + ENDIF +C TREAT NUCLEUS BY VENUS, IF SELECTED AND ENERGY/NUCLEON HIGH ENOUGH + IF ( FVENUS .AND. PAMA(ITYPE)*GAMMA .GT. HILOELB*IA ) THEN + CALL VENLNK + RETURN + ENDIF + +C TREATMENT OF NUCLEUS-NUCLEUS INTERACTION IN HDPM BY SUPERPOSITION +C +C INDEX CALCULATION 1 P( I*(I-3)*0.5+J+1 ) +C IZ IS NUMBER OF PROTONS IN PROJECTILE +C LT IS INDEX FOR TARGET 1 = N, 2 = O, 3 = AR +C INACTA IS NUMBER OF INTERACTING NUCLEONS +C INACTZ IS NUMBER OF INTERACTING PROTONS + +C LOOK, HOW MANY NUCLEONS INTERACT + DO 100 J = 1,IA-1 + INACTA = J + INDEX = IA * (IA-3) * 0.5 + 1 + J + P = ( 1.D0 - S45SQ *2.D0 ) * PNOA45(INDEX,LT) + * +( S45SQ - S4530 ) * PNOA30(INDEX,LT) + * +( S45SQ + S4530 ) * PNOA60(INDEX,LT) + IF ( RD(2) .LT. P ) GOTO 110 + 100 CONTINUE +C ALL NUCLEONS INTERACT (INACTA EQUAL IA) + INACTA = INACTA + 1 + + 110 CONTINUE + IANEW = IA - INACTA + +C REMAINING PROJECTILE WITH IANEW NUCLEONS + DO 120 L = 2,4 + SECPAR(L) = CURPAR(L) + 120 CONTINUE + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C PROJECTILE NUCLEUS FRAGMENTS COMPLETELY, WRITE SPECTATOR NUCLEONS +C ONTO STACK + IF ( NFRAGM .EQ. 0 ) THEN +C LOOK, HOW MANY PROTONS AND NEUTRONS ARE FORMED + IZNEW = IANEW / 2.15D0 + 0.7D0 + INEUTR = IANEW - IZNEW + INACTZ = MAX( IZ-IZNEW, 0 ) + + IF ( IZNEW .GT. 0 ) THEN +C PROTONS + SECPAR(1) = 14.D0 + DO 300 L = 1,IZNEW + CALL TSTACK + 300 CONTINUE + ENDIF + IF ( INEUTR .GT. 0 ) THEN +C NEUTRONS + SECPAR(1) = 13.D0 + DO 310 L = 1,INEUTR + CALL TSTACK + 310 CONTINUE + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C NO FRAGMENTATION, BUT SUCCESSIVE ABRASION OF PROJECTILE NUCLEUS + ELSE + IF ( DEBUG ) WRITE( MDEBUG,111 ) TAR,INACTA,IANEW + 111 FORMAT(' SDPM : TARGET=',F4.0,' INACTA=',I4,' IANEW=',I4) + +C ALL NUCLEONS INTERACT, NO RESIDUAL NUCLEUS + IF ( IANEW .EQ. 0 ) THEN + INACTZ = IZ + IF ( DEBUG ) WRITE(MDEBUG,554) (CURPAR(I),I=1,9) + 554 FORMAT(' SDPM : CURPAR=',1P,9E10.3) + KNEW = 0 + +C REMAINING NUCLEUS IS A NUCLEON + ELSEIF ( IANEW .EQ. 1 ) THEN + CALL RMMAR( RD,1,1 ) + IZNEW = NINT(RD(1)) + INACTZ = IZ - IZNEW + KNEW = 13 + IZNEW + +C REMAINING NUCLEUS GETS A CHARGE WHICH IS ABOUT HALF THE MASS NUMBER + ELSEIF ( IANEW .GT. 1 ) THEN + IZNEW = FLOAT(IANEW) / 2.15D0 + 0.7D0 + INACTZ = MAX( IZ - IZNEW, 0 ) + KNEW = IANEW*100 + IZNEW + +C REMAINING NUCLEUS DEEXCITES BY EVAPORATION OF NUCLEONS/ALPHA PARTCLS. + IF ( NFRAGM .GE. 2 ) THEN + JFIN=0 + CALL VAPOR(IA,KNEW,JFIN,ITYP,PFRX,PFRY) + IF ( JFIN .LE. 0 ) GOTO 190 + KNEW = 0 + DO 135 J = 1,JFIN + EA = GAMMA * PAMA(ITYP(J)) + IF (DEBUG) WRITE(MDEBUG,*) 'SDPM : J,ITYP,EA=', + * J,ITYP,SNGL(EA) + PTM = EA**2 - PAMA(ITYP(J))**2 + PT2 = PFRX(J)**2 + PFRY(J)**2 + IF ( PT2 .GE. PTM ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'SDPM : PT REJECT ',J + GOTO 135 + ENDIF + IF ( PTM .GT. 0.D0 ) THEN + COSTET = SQRT( 1.D0 - PT2/PTM ) + ELSE + COSTET = 1.D0 + ENDIF + IF ( PFRX(J) .NE. 0.D0 .OR. PFRY(J) .NE. 0.D0 ) THEN + PHIV = ATAN2( PFRY(J), PFRX(J) ) + ELSE + PHIV = 0.D0 + ENDIF + CALL ADDANG( COSTHE,PHI, COSTET,PHIV, + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + IF ( J .LT. JFIN ) THEN + SECPAR(1) = ITYP(J) + CALL TSTACK + ELSE + KNEW = ITYP(JFIN) + IANEW = KNEW/100 + ENDIF + ELSE + IF (DEBUG) WRITE(MDEBUG,*) 'SDPM : ANGLE REJECT ',J + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + EA + ENDIF + ENDIF + 135 CONTINUE + ENDIF + ENDIF + +C REMAINING NUCLEUS: MASS 5 CANNOT BE TREATED IN BOX2 + IF ( KNEW/100 .EQ. 5 ) THEN + IF ( MOD(KNEW,100) .GE. 3 ) THEN +C MASS 5: SPLIT OFF ONE PROTON + SECPAR(1) = 14.D0 + CALL TSTACK + KNEW = KNEW - 101 + ELSE +C MASS 5: SPLIT OFF ONE NEUTRON + SECPAR(1) = 13.D0 + CALL TSTACK + KNEW = KNEW - 100 + ENDIF + +C REMAINING NUCLEUS: MASS 8 CANNOT BE TREATED IN BOX2 + ELSEIF ( KNEW/100 .EQ. 8 ) THEN + IF ( MOD(KNEW,100) .GE. 5 ) THEN +C MASS 8: SPLIT OFF ONE PROTON + SECPAR(1) = 14.D0 + CALL TSTACK + KNEW = KNEW - 101 + ELSEIF ( MOD(KNEW,100) .LE. 3 ) THEN +C MASS 8: SPLIT OFF ONE NEUTRON + SECPAR(1) = 13.D0 + CALL TSTACK + KNEW = KNEW - 100 + ELSE +C MASS 8: SPLIT OFF ONE ALPHA PARTICLE + SECPAR(1) = 402.D0 + CALL TSTACK + KNEW = KNEW - 402 + ENDIF + ENDIF + + IF ( KNEW .GT. 0 ) THEN + SECPAR(1) = KNEW + CALL TSTACK + IF ( DEBUG ) WRITE(MDEBUG,555) (SECPAR(I),I=1,9) + 555 FORMAT (' SDPM : SECPAR=',1P,8E10.3,0P,F10.0) + ENDIF + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C HERE THE REACTING NUCLEONS ARE TREATED + 190 NPRPRO = INACTZ + NNEPRO = INACTA - INACTZ + IF ( DEBUG ) WRITE(MDEBUG,*) 'SDPM : REACTING PROTONS=', + * NPRPRO,' NEUTRONS=',NNEPRO + +C TREAT INTERACTING NEUTRONS FROM PROJECTILE + IF ( NNEPRO .GE. 1 ) THEN + CURPAR(1) = 13.D0 + ITYPE = 13 +C CALCULATE GAMMA, BETA AND ENERGY IN CENTER OF MASS + GCM = SQRT( GAMMA * 0.5D0 + 0.5D0 ) + ECM = PAMA(ITYPE) * GCM * 2.D0 + BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) + DO 200 LL = 1,NNEPRO + IF ( ECM .LE. HILOECM ) THEN +C USE GHEISHA AND CALCULATE THE CROSS-SECTION FOR GHEISHA + ELAB = PAMA(ITYPE) * GAMMA + PLAB = ELAB * BETA + EKIN = ELAB - PAMA(ITYPE) + SIGAIR = CGHSIG(SNGL(PLAB),SNGL(EKIN),ITYPE) + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'SDPM : SIGAIR=',SNGL(SIGAIR) + CALL CGHEI + ELSE +C DUAL PARTON MODEL + CALL HDPM + ENDIF + 200 CONTINUE + ENDIF + +C TREAT INTERACTING PROTONS FROM PROJECTILE IN SUBROUT. HDPM + IF ( NPRPRO .GE. 1 ) THEN + CURPAR(1) = 14.D0 + ITYPE = 14 +C CALCULATE GAMMA, BETA AND ENERGY IN CENTER OF MASS + GCM = SQRT( GAMMA * 0.5D0 + 0.5D0 ) + ECM = PAMA(ITYPE) * GCM * 2.D0 + BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) + DO 210 LL = 1,NPRPRO + IF ( ECM .LE. HILOECM ) THEN +C USE GHEISHA AND CALCULATE THE CROSS-SECTION FOR GHEISHA + ELAB = PAMA(ITYPE) * GAMMA + PLAB = ELAB * BETA + EKIN = ELAB - PAMA(ITYPE) + SIGAIR = CGHSIG(SNGL(PLAB),SNGL(EKIN),ITYPE) + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'SDPM : SIGAIR=',SNGL(SIGAIR) + CALL CGHEI + ELSE +C DUAL PARTON MODEL + CALL HDPM + ENDIF + 210 CONTINUE + ENDIF + +C ALL PARTICLES, INCLUDING THE LEADING ONE, ARE NOW WRITTEN TO STACK + + ELSE + WRITE(MONIOU,444) (CURPAR(I),I=1,9) + WRITE(MONIOU,*) 'SDPM : NOT FORESEEN PARTICLE TYPE=',ITYPE + STOP + ENDIF + + RETURN + END +*CMZ : 15/06/2000 16.19.29 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE SEKDAT( IJAHR,IMONA,ITAGE,ISTUN,IMINU,ISEKU ) + +C----------------------------------------------------------------------- +C SEK(UNDEN) DAT(UM) +C +C GIVES TIME AND DATE ON UNIX IN UNIVERSAL TIME (UT) ON +C UNIX(-LIKE) SYSTEMS. +C LINKING WITH EXTRA TIMER FUNCTION MAY BE REQUIRED. +C THIS SUBROUTINE IS CALLED FROM PRTIME. +C ARGUMENTS: +C IJAHR = YEAR +C IMONA = MONTH +C ITAGE = DAY +C ISTUN = HOUR +C IMINU = MINUTE +C ISEKU = SECOND +C +C DESIGN : J. OEHLSCHLAEGER IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE + + REAL RJAHR + INTEGER I,IJAHR,ILANG,ILEAP,IMINU,IMONA,ISECO,ISEKU, + * ISTUN,ITAGE + INTEGER IMONS(13,4) + SAVE + DATA IMONS/ 0,31,59,90,120,151,181,212,243,273,304,334,365, + + 0,31,60,91,121,152,182,213,244,274,305,335,366, + + 0,31,28,31, 30, 31, 30, 31, 31, 30, 31, 30, 31, + + 0,31,29,31, 30, 31, 30, 31, 31, 30, 31, 30, 31 / +C----------------------------------------------------------------------- + + CALL TIMER( ISECO ) +C SECONDS, MINUTS, HOURS, YEAR + ISEKU = MOD(ISECO,60) + ISECO = ISECO/60 + IMINU = MOD(ISECO,60) + ISECO = ISECO/60 + ISTUN = MOD(ISECO,24) + ISECO = ISECO/24 + ITAGE = ISECO + RJAHR = 2.73785E-3*ITAGE+1.4E-3 + IJAHR = 1970 + INT(RJAHR) +C LEAP DAYS + ILEAP = 0 + ILANG = 1 + DO 1 I = 1970,IJAHR + IF ( (MOD(I,4) .EQ. 0 .AND. MOD(I,100) .NE. 0 ) + + .OR. MOD(I,400) .EQ. 0 ) THEN + ILEAP = ILEAP + 1 + IF ( I .EQ. IJAHR ) THEN + ILANG = 2 + ILEAP = ILEAP - 1 + ENDIF + ENDIF + 1 CONTINUE + ITAGE = ITAGE - INT(RJAHR)*365 - ILEAP + 1 + IF ( I .EQ. IJAHR+4 .AND. ITAGE .LT. IMONS(3,2) ) ITAGE=ITAGE+1 +C MONTH AND DAY + DO 2 I = 2,13 + IF ( IMONS(I,ILANG) .GT. ITAGE ) GOTO 3 + 2 CONTINUE + 3 CONTINUE + IMONA = I-1 + ITAGE = ITAGE-IMONS(IMONA,ILANG) + IF ( ITAGE .EQ. 0 ) THEN + ITAGE = IMONS(IMONA,2+ILANG) + IMONA = IMONA - 1 + ENDIF + RETURN + END +*CMZ : 01/03/2002 14.34.22 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE STAEND + +C----------------------------------------------------------------------- +C STA(RT) END +C +C SUBROUTINE FOR GETTING THE CONTROL PRINTOUT OF THE CONSTANT ARRAYS +C PRINT CONTROL OUTPUT +C THIS SUBROUTINE IS CALLED FROM AAMAIN AND START. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,EDECAY. + COMMON /EDECAY/ CETA + DOUBLE PRECISION CETA(5) +*KEEP,KAONS. + COMMON /KAONS/ CKA + DOUBLE PRECISION CKA(80) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STRBAR. + COMMON /STRBAR/ CSTRBA + DOUBLE PRECISION CSTRBA(11) +*KEEP,ATMOSX. +C EXTERNAL ATMOSPHERIC MODELS + COMMON /ATMOSX/ IATMOX,FREFRX + INTEGER IATMOX + LOGICAL FREFRX +*KEND. + + DOUBLE PRECISION HEIGH + INTEGER I + SAVE + EXTERNAL HEIGH +C----------------------------------------------------------------------- + +C PRINT CONTROL OUTPUT + WRITE(MONIOU,103) (C(I),I=1,50) + 103 FORMAT (//' ',10('='),' CONSTANTS AND PARAMETERS ',43('=') + * //' PHYSICAL CONSTANTS C(1) TO C(50)', + * / (1P,4(E15.8,1X),E15.8) ) + WRITE(MONIOU,110) (CKA(I),I=1,80) + 110 FORMAT (//' CONSTANTS FOR KAONS CKA(1) TO CKA(80)' + * / (1P,4(E15.8,1X),E15.8) ) + WRITE(MONIOU,114) (CETA(I),I=1,5) + 114 FORMAT (//' CONSTANTS FOR ETAS CETA(1) TO CETA(5)' + * / (1P,4(E15.8,1X),E15.8) ) + WRITE(MONIOU,115) (CSTRBA(I),I=1,11) + 115 FORMAT (//' CONSTANTS FOR STRANGE BARYONS CSTRBA(1) TO ', + * 'CSTRBA(11)'/ (1P,4(E15.8,1X),E15.8) ) + + WRITE(MONIOU,200) + 200 FORMAT(//' ',10('='),' ATMOSPHERE ', 57('=')/ ) + IF ( IATMOX .GE. 1 ) THEN + WRITE(MONIOU,299) IATMOX + 299 FORMAT(' ( EXTERNAL ATMOSPHERE FROM TABLE',I3,' AS FITTED )'/) + ELSEIF ( MODATM .EQ. 0 ) THEN + WRITE(MONIOU,300) + 300 FORMAT(' ( ATMOSPHERE GIVEN BY INPUT (LAYER 5 UNCHANGED)') + ELSEIF ( MODATM .EQ. 1 ) THEN + WRITE(MONIOU,301) + 301 FORMAT(' ( US STANDARD ATMOSPHERE PARAMETRIZED BY LINSLEY )') + ELSEIF ( MODATM .EQ. 2 ) THEN + WRITE(MONIOU,302) + 302 FORMAT(' ( ATMOSPHERE AT115 PARAMETRIZED BY H. ULRICH )') + ELSEIF ( MODATM .EQ. 3 ) THEN + WRITE(MONIOU,303) + 303 FORMAT(' ( ATMOSPHERE AT223 PARAMETRIZED BY H. ULRICH )') + ELSEIF ( MODATM .EQ. 4 ) THEN + WRITE(MONIOU,304) + 304 FORMAT(' ( ATMOSPHERE AT511 PARAMETRIZED BY H. ULRICH )') + ELSEIF ( MODATM .EQ. 5 ) THEN + WRITE(MONIOU,305) + 305 FORMAT(' ( ATMOSPHERE AT616 PARAMETRIZED BY H. ULRICH )') + ELSEIF ( MODATM .EQ. 6 ) THEN + WRITE(MONIOU,306) + 306 FORMAT(' ( ATMOSPHERE AT822 PARAMETRIZED BY H. ULRICH )') + ELSEIF ( MODATM .EQ. 7 ) THEN + WRITE(MONIOU,307) + 307 FORMAT(' ( ATMOSPHERE AT1014 PARAMETRIZED BY H. ULRICH )') + ELSEIF ( MODATM .EQ. 8 ) THEN + WRITE(MONIOU,308) + 308 FORMAT(' ( ATMOSPHERE AT1224 PARAMETRIZED BY H. ULRICH )') + ELSEIF ( MODATM .EQ. 9 ) THEN + WRITE(MONIOU,309) + 309 FORMAT(' ( ATMOSPHERE GIVEN BY INPUT (LAYER 5 UNCHANGED)') + ELSEIF ( MODATM .EQ. 10 ) THEN + WRITE(MONIOU,310) + 310 FORMAT(' ( ATMOSPHERE GIVEN BY INPUT (LAYER 5 CHANGED) )') + ELSEIF ( MODATM .EQ. 11 ) THEN + WRITE(MONIOU,311) + 311 FORMAT(' ( SOUTH POLE ATMOSPHERE FOR 97MAR31 (MSIS-90-E) )') + ELSEIF ( MODATM .EQ. 12 ) THEN + WRITE(MONIOU,312) + 312 FORMAT(' ( SOUTH POLE ATMOSPHERE FOR 97JUL01 (MSIS-90-E) )') + ELSEIF ( MODATM .EQ. 13 ) THEN + WRITE(MONIOU,313) + 313 FORMAT(' ( SOUTH POLE ATMOSPHERE FOR 97OCT01 (MSIS-90-E) )') + ELSEIF ( MODATM .EQ. 14 ) THEN + WRITE(MONIOU,314) + 314 FORMAT(' ( SOUTH POLE ATMOSPHERE FOR 97DEC31 (MSIS-90-E) )') + ELSEIF ( MODATM .EQ. 15 ) THEN + WRITE(MONIOU,315) + 315 FORMAT(' ( SOUTH POLE ATMOSPHERE FOR JANUARY, LIPARI(GS) )') + ELSEIF ( MODATM .EQ. 16 ) THEN + WRITE(MONIOU,316) + 316 FORMAT(' ( SOUTH POLE ATMOSPHERE FOR AUGUST, LIPARI(GS) )') + + ENDIF + WRITE(MONIOU,400) (HLAY(I)*1.D-6,HLAY(I+1)*1.D-6, + * AATM(I),BATM(I),CATM(I)*1.E-5,I=1,4), + * HLAY(5)*1.D-6,HLAY(6)*1.D-6, AATM(5),CATM(5)*1.E-5 + 400 FORMAT(' HEIGHT H IN KM GIVES THICKNESS OF ATMOSPHERE T IN ', + * 'G/CM**2'/1P,' H = ',F5.1,'...',F5.1,' KM ---> T = ', + * E12.5,' +',E11.4,' * EXP( -H /',E11.4,')'/ + * ' H = ',F5.1,'...',F5.1,' KM ---> T = ', + * E12.5,' +',E11.4,' * EXP( -H /',E11.4,')'/ + * ' H = ',F5.1,'...',F5.1,' KM ---> T = ', + * E12.5,' +',E11.4,' * EXP( -H /',E11.4,')'/ + * ' H = ',F5.1,'...',F5.1,' KM ---> T = ', + * E12.5,' +',E11.4,' * EXP( -H /',E11.4,')'/ + * ' H = ',F5.1,'...',F5.1,' KM ---> T = ', + * E12.5,' - H /',E11.4 ) + + RETURN + END +*CMZ : 01/03/2002 14.34.22 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE START + +C----------------------------------------------------------------------- +C START +C +C PRINTS HEADER AND ALL SELECTED OPTIONS +C PERFORMS INITIALIZATIONS AND CHECKS AT THE BEGINNING OF RUN. +C CALLS DATAC TO READ IN DATA CARDS. +C INITIALIZES ATMOSPHERIC MODELS +C CHECKS AND INITIALIZES SELECTED HADRONIC INTERACTION MODEL. +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,EDECAY. + COMMON /EDECAY/ CETA + DOUBLE PRECISION CETA(5) +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,ETHMAP. + COMMON /ETHMAP/ ECTMAP,ELEFT + DOUBLE PRECISION ECTMAP,ELEFT +*KEEP,KAONS. + COMMON /KAONS/ CKA + DOUBLE PRECISION CKA(80) +*KEEP,MAGNET. + COMMON /MAGNET/ BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT + DOUBLE PRECISION BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,NCSNCS. + COMMON /NCSNCS/ SIGN30,SIGN45,SIGN60,SIGO30,SIGO45,SIGO60, + * SIGA30,SIGA45,SIGA60,PNOA30,PNOA45,PNOA60, + * SIG30A,SIG45A,SIG60A + DOUBLE PRECISION SIGN30(56),SIGN45(56),SIGN60(56), + * SIGO30(56),SIGO45(56),SIGO60(56), + * SIGA30(56),SIGA45(56),SIGA60(56), + * PNOA30(1540,3),PNOA45(1540,3),PNOA60(1540,3), + * SIG30A(56),SIG45A(56),SIG60A(56) +*KEEP,NKGI. + COMMON /NKGI/ SEL,SELLG,STH,ZEL,ZELLG,ZSL,DIST, + * DISX,DISY,DISXY,DISYX,DLAX,DLAY,DLAXY,DLAYX, + * OBSATI,RADNKG,RMOL,TLEV,TLEVCM,IALT + DOUBLE PRECISION SEL(10),SELLG(10),STH(10),ZEL(10),ZELLG(10), + * ZSL(10),DIST(10), + * DISX(-10:10),DISY(-10:10), + * DISXY(-10:10,2),DISYX(-10:10,2), + * DLAX (-10:10,2),DLAY (-10:10,2), + * DLAXY(-10:10,2),DLAYX(-10:10,2), + * OBSATI(2),RADNKG,RMOL(2),TLEV(10),TLEVCM(10) + INTEGER IALT(2) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,PRIMSP. + COMMON /PRIMSP/ PSLOPE,LLIMIT,ULIMIT,LL,UL,SLEX,ISPEC + DOUBLE PRECISION PSLOPE,LLIMIT,ULIMIT,LL,UL,SLEX + INTEGER ISPEC +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKF. + COMMON /STACKF/ STACK,MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT, + * NTO,NFROM + INTEGER MAXSTK + PARAMETER (MAXSTK = 16*256*2) + DOUBLE PRECISION STACK(MAXSTK) + INTEGER MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM +*KEEP,STRBAR. + COMMON /STRBAR/ CSTRBA + DOUBLE PRECISION CSTRBA(11) +*KEEP,VERS. + COMMON /VERS/ VERNUM,MVDATE,VERDAT + DOUBLE PRECISION VERNUM + INTEGER MVDATE + CHARACTER*18 VERDAT +*KEEP,VENUS. + COMMON /VENUS/ ISH00,IVERVN,MTAR99,FVENUS,FVENSG + INTEGER ISH00,IVERVN,MTAR99 + LOGICAL FVENUS,FVENSG +*KEEP,CEREN3. + COMMON /CEREN3/ CERCNT,DATAB2,NRECER,LHCER + INTEGER MAXBF2 + PARAMETER ( MAXBF2 = 39 * 7 ) + DOUBLE PRECISION CERCNT + REAL DATAB2(MAXBF2) + INTEGER NRECER,LHCER +*KEEP,ATMOSX. +C EXTERNAL ATMOSPHERIC MODELS + COMMON /ATMOSX/ IATMOX,FREFRX + INTEGER IATMOX + LOGICAL FREFRX +*KEND. + + DOUBLE PRECISION HEIGH,OOO,SE,TEMP1,TEMP2,TEMP3,THICK, + * TTIME,ZE,ZS,ZX + INTEGER I,IA,J,L + SAVE + EXTERNAL HEIGH,THICK + CHARACTER*1 MARK +C----------------------------------------------------------------------- + +C SAY HELLO + WRITE(MONIOU,112) + 112 FORMAT(/' ',80('A')// + *' OOO OOO OOOO OOOO OO O O O '/ + *' O O O O O O O O OO O O O O '/ + *' O O O O O O OO O O O O '/ + *' O O O O O OOOO OO OO O O'/ + *' O O O OOOO O OO O O OOOOOOO'/ + *' O O O O O O O O OO O O O O'/ + *' OOO OOO O O OOOO OO O O O O'// + *' COSMIC RAY SIMULATION FOR KASCADE'// + *' A PROGRAM TO SIMULATE EXTENSIVE AIR SHOWERS IN ATMOSPHERE'// + *' BASED ON A PROGRAM OF P.K.F. GRIEDER, UNIVERSITY BERN,', + *' SWITZERLAND'/ + *' VENUS MODEL ACCORDING TO K. WERNER, UNIVERSITY NANTES, FRANCE'/ + *' HDPM MODEL ACCORDING TO J.N. CAPDEVIELLE, COLLEGE DE FRANCE,', + *' PARIS, FRANCE'/ + *' GHEISHA ROUTINES ACCORDING TO H. FESEFELDT, RWTH AACHEN,', + *' GERMANY'/ + *' EGS4 ACCORDING TO W.R. NELSON, H. HIRAYAMA, D.W.O. ROGERS,', + *' SLAC, STANFORD, USA'/ + *' NKG FORMULAS FOR FAST SIMULATION OF EL.MAG. PARTICLES'// + *' REFERENCES: D. HECK, J.KNAPP, J.N. CAPDEVIELLE, G. SCHATZ,', + * ' T. THOUW,'/' REPORT FZKA 6019 (1998)'/ + *' J. KNAPP, D. HECK, G. SCHATZ, REPORT FZKA', + * ' 5828 (1996)'/ + *' SEE ALSO WEB PAGE http://www-ik3.fzk.de/', + * '~heck/corsika'//) + + MARK = '1' + + WRITE(MONIOU,912) VERNUM,MARK,VERDAT + 912 FORMAT(' INSTITUT FUER KERNPHYSIK '/ + * ' FORSCHUNGSZENTRUM KARLSRUHE'/ + * ' POSTFACH 3640'/ + * ' D-76021 KARLSRUHE'/ + * ' GERMANY'// + * ' IN CASE OF PROBLEMS CONTACT: DIETER HECK '/ + * ' E-MAIL: DIETER.HECK@IK.FZK.DE'/ + * ' FAX: (49) 7247-82-4075 '/ + * ' PHONE: (49) 7247-82-3777 '// + * ' NUMBER OF VERSION : ',F6.3,A1/ + * ' DATE OF VERSION : ',A18 /) + + WRITE(MONIOU,*) 'VERSION GENERATED FOR UNIX OR COMPATIBLE SYSTEMS' + WRITE(MONIOU,*) '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^' + WRITE(MONIOU,*) ' (RECL IS DEFINED IN BYTES)' + WRITE(MONIOU,*) ' WITH TIMERC DATE ROUTINE' + + WRITE(MONIOU,*) ' ' + + WRITE(MONIOU,1413) + 1413 FORMAT(/' INTERFACE FOR EXTERNAL ATMOSPHERIC PROFILES ENABLED'/ + * ' ==================================================='/) + WRITE(MONIOU,*) ' ' + WRITE(MONIOU,141) + 141 FORMAT(/' CHERENKOV RADIATION IS GENERATED'/ + * ' ================================'/) + WRITE(MONIOU,*) ' ' + WRITE(MONIOU,119) + 119 FORMAT(/' CURVED VERSION WITH SLIDING PLANAR ATMOSPHERE'/ + * ' ============================================='/) + WRITE(MONIOU,1432) + 1432 FORMAT(/' PRIMARY DIRECTION IS SELECTED FROM VIEWING CONE'/ + * ' ==============================================='/) + WRITE(MONIOU,*) 'ZENITH ANGLE DEPENDENCE FOR FLAT DETECTOR ARRAY' + WRITE(MONIOU,*) ' ' + WRITE(MONIOU,*) ' ' +C + +C INITIALIZE ARRAY WITH PARTICLE MASSES + CALL PAMAF + +C READ RUN STEERING DATA CARDS + CALL DATAC + + IF ( FREFRX ) WRITE(MONIOU,144) + 144 FORMAT(/' ATMOSPHERIC REFRACTION IS TAKEN INTO ACCOUNT'/ + * ' ============================================'/) + WRITE(MONIOU,1441) + 1441 FORMAT(/) + +C ORDERING OF OBSERVATION LEVELS FROM TOP TO BOTTOM + IF ( NOBSLV .GT. 1 ) THEN + 215 CONTINUE + DO 11 I = 2,NOBSLV + IF ( OBSLEV(I) .GT. OBSLEV(I-1) ) THEN + OOO = OBSLEV(I) + OBSLEV(I) = OBSLEV(I-1) + OBSLEV(I-1) = OOO + GOTO 215 + ENDIF + 11 CONTINUE + ENDIF + +C PREPARE ATMOSPHERIC MODEL + IF ( MODATM .LT. 0 .OR. MODATM .GT. 16 ) THEN + WRITE(MONIOU,*) 'START: MODATM < 0 OR > 16 NOT POSSIBLE! STOP' + WRITE(MONIOU,*) 'PLEASE READ THE USERS GUIDE' + WRITE(MONIOU,*) 'SEE KEYWORD: ATMOD' + STOP + ENDIF +C SET LOWER BOUNDARIES OF THE AIR LAYERS + IF ( LAYNEW ) THEN +C TAKE THE BOUNDARIES READ IN + I = 0 + ELSE +C TAKE THE DEFAULT BOUNDARIES + I = LAYNO(MODATM) + ENDIF +C SET THE SELECTED ATMOSPHERE AND LAYERS + DO L = 1,5 + HLAY(L) = HLAY0(L,I) + AATM(L) = AATM0(L,MODATM) + BATM(L) = BATM0(L,MODATM) + CATM(L) = CATM0(L,MODATM) + DATM(L) = 1.D0 / CATM(L) + ENDDO + +C SET THE ATMOSPHERIC MODEL NUMBER, READING AN EXTERNAL FILE IF NEEDED. +C PARAMETERS FOR TAKING REFRACTION INTO ACCOUNT ARE CALCULATED EVEN +C FOR CORSIKA BUILT-IN MODELS. + IF ( IATMOX .GE. 1 .OR. FREFRX ) THEN + CALL ATMSET(IATMOX,OBSLEV(NOBSLV)) + ENDIF +C FOR AN EXTERNAL ATMOSPHERE, FIT PARAMETERS USED IN CORSIKA-EGS PART. + IF ( IATMOX .GE. 1 ) THEN + IF ( LAYNEW ) THEN + CALL ATMFIT(-5,HLAY,AATM,BATM,CATM) + ELSE + CALL ATMFIT(5,HLAY,AATM,BATM,CATM) + ENDIF + DO L = 1,5 + DATM(L) = 1.D0 / CATM(L) + ENDDO + ENDIF +C CALCULATE THICKNESS AT LOWER BOUNDARIES OF AIR LAYERS + DO 100 L = 1,5 + THICKL(L) = THICK(HLAY(L)) + 100 CONTINUE + HLAY(6) = HEIGH(0.D0) + IF ( DEBUG ) WRITE(MDEBUG,99) + $ (L,HLAY(L),THICKL(L),L=1,5),HLAY(6) + 99 FORMAT(' START : ATMOSPHERIC LAYERS',/, + $ ' NR. HLAY (CM) THICKL (G/CM**2)',/, + $ 5(8X,I3,' ',F11.2,' ',F12.5,/), + $ 8X,' 6 ',F11.2,' 0.00000') + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + +C CLEARS BUFFERS FOR HEADER AND FILLS IN PERMANENT INFORMATION + DO 889 L = 1,MAXBUF + EVTH(L) = 0. + EVTE(L) = 0. + RUNH(L) = 0. + RUNE(L) = 0. + DATAB(L) = 0. + ARRAYLONG(L) = 0. + DATAB2(L) = 0. + 889 CONTINUE + + +C PERMANENT INFORMATION +C CHARACTER STRINGS + CRUNH = 'RUNH' + CRUNE = 'RUNE' + CEVTH = 'EVTH' + CEVTE = 'EVTE' + CLONG = 'LONG' + + RUNH(2) = NRRUN + RUNE(2) = NRRUN + EVTH(44) = NRRUN + +C DATE OF RUN + WRITE(MONIOU,101) + 101 FORMAT(/' ',10('='),' START OF RUN ',55('=')/) + CALL PRTIME(TTIME) + RUNH(3) = TTIME + EVTH(45) = TTIME + +C VERSION OF PROGRAM + RUNH(4) = VERNUM + EVTH(46) = VERNUM + +C----------------------------------------------------------------------- +C INITIALIZATION FOR RANDOM NUMBER GENERATOR + IF ( FEGS .AND. NSEQ .LT. 2 ) NSEQ = 2 +C CHERENKOV SELECTION DEMANDS ALWAYS EGS CALCULATION + FEGS = .TRUE. +C IN CASE OF CHERENKOV CALCULATIONS THE 3. RANDOM SEQUENCE IS NEEDED + IF ( NSEQ .LT. 3 ) NSEQ = 3 + DO 281 I = 1,NSEQ + IF ( .NOT. DEBUG .AND. .NOT. DEBDEL .AND. + * (ISEED(2,I) .GT. 1000 .OR. ISEED(3,I) .GT. 0) ) THEN + WRITE(MONIOU,2811) I +2811 FORMAT(/' #########################################'/ + * ' ## IMPROPER INITIALIZATION OF RANDOM ##'/ + * ' ## NUMBER GENERATOR SEQUENCE',I6,' ##'/ + * ' ## IS EXTREMELY TIME CONSUMING ##'/ + * ' ## PLEASE READ THE USERS GUIDE ##'/ + * ' ## SEE KEYWORD: SEED ##'/ + * ' #########################################'/) + ELSE + ENDIF + CALL RMMAQ( ISEED(1,I), I, 'S' ) + 281 CONTINUE + KNOR = .TRUE. + + WRITE(MONIOU,158) (L,(ISEED(J,L),J=1,3),L=1,NSEQ) + 158 FORMAT (' RANDOM NUMBER GENERATOR AT BEGIN OF RUN :'/ + * (' SEQUENCE = ',I2,' SEED = ',I9,' CALLS = ',I9, + * ' BILLIONS = ',I9)) + +C----------------------------------------------------------------------- +C READ CROSS-SECTIONS AND PROBABILITIES FOR NUCLEUS-NUCLEUS COLLISIONS + OPEN(UNIT=NUCNUC,FILE='NUCNUCCS',STATUS='OLD') + READ(NUCNUC,500) SIGN30,SIGN45,SIGN60,SIGO30,SIGO45,SIGO60, + * SIGA30,SIGA45,SIGA60 + READ(NUCNUC,500) (PNOA30(I,1),I=1,1540),(PNOA45(I,1),I=1,1540), + * (PNOA60(I,1),I=1,1540),(PNOA30(I,2),I=1,1540), + * (PNOA45(I,2),I=1,1540),(PNOA60(I,2),I=1,1540), + * (PNOA30(I,3),I=1,1540),(PNOA45(I,3),I=1,1540), + * (PNOA60(I,3),I=1,1540) + 500 FORMAT( 5E16.10 ) + CLOSE(UNIT=NUCNUC) + +C INELASTIC CROSS-SECTIONS FOR PROJECTICLE WITH MASS NUMBER IA + DO 501 IA = 1,56 + SIG30A(IA) = COMPOS(1)*SIGN30(IA) + COMPOS(2)*SIGO30(IA) + * + COMPOS(3)*SIGA30(IA) + SIG45A(IA) = COMPOS(1)*SIGN45(IA) + COMPOS(2)*SIGO45(IA) + * + COMPOS(3)*SIGA45(IA) + SIG60A(IA) = COMPOS(1)*SIGN60(IA) + COMPOS(2)*SIGO60(IA) + * + COMPOS(3)*SIGA60(IA) + + IF (DEBUG) WRITE(MDEBUG,544) IA,SIG30A(IA),SIG45A(IA),SIG60A(IA) + 544 FORMAT(' START : CROSS-SECTIONS A-AIR : A=',I2,1P,3E14.6) + 501 CONTINUE + + WRITE(MONIOU,503) + 503 FORMAT (//' ',10('='),' INTERACTION MODELS ',49('=')) +C HIGH ENERGY HADRONIC INTERACTION MODEL + IF ( FVENUS ) THEN + WRITE(MONIOU,*) 'VENUS TREATS HIGH ENERGY HADRONIC INTERACTIONS' + CALL VENINI + IF ( FVENSG ) THEN + WRITE(MONIOU,*) + WRITE(MONIOU,*) 'VENUS CROSS-SECTIONS ARE TAKEN' + CALL VENSIGINI + ENDIF + ELSE + IF ( FVENSG ) THEN + WRITE(MONIOU,*) + WRITE(MONIOU,*) 'VENUS CROSS-SECTIONS ARE TAKEN' + CALL VENSIGINI + ENDIF + WRITE(MONIOU,1506) + ENDIF +1506 FORMAT(' HDPM ROUTINES TREAT HIGH ENERGY HADRONIC INTERACTIONS') + + + IF ( .NOT. FVENUS ) THEN +C INPUT FLAGS FOR HDPM OPTIONS + WRITE(MONIOU,*) 'HDPM GENERATOR SPECIFICATIONS ARE:' + IF ( NFLAIN .EQ. 0 ) THEN + WRITE(MONIOU,*) ' RANDOM NUMBER OF INTERACTIONS IN AIR TARGET' + IF ( NFLDIF .EQ. 0 ) THEN + WRITE(MONIOU,*) ' NO DIFFRACTIVE SECOND INTERACTIONS' + ELSE + WRITE(MONIOU,*) ' DIFFRACTIVE SECOND INTERACTIONS' + ENDIF + ELSE + WRITE(MONIOU,*) ' FIXED NUMBER OF INTERACTIONS IN AIR TARGET' + ENDIF + IF ( NFLPI0 .EQ. 0 ) THEN + WRITE(MONIOU,*) ' RAPIDITY OF PI0 ACCORDING TO COLLIDER DATA' + ELSE + WRITE(MONIOU,*) ' RAPIDITY OF PI0 SAME AS THAT OF CHARGED' + ENDIF + IF ( NFLPIF .EQ. 0 ) THEN + WRITE(MONIOU,*) ' NO FLUCTUATIONS OF NUMBER OF PI0' + ELSE + WRITE(MONIOU,*) ' FLUCTUATIONS OF NUMBER OF PI0 AS MEASURED ', + * 'AT THE COLLIDER' + ENDIF + IF ( NFLCHE .EQ. 0 ) THEN + WRITE(MONIOU,*) ' CHARGE EXCHANGE INTERACTION POSSIBLE ' + ELSE + WRITE(MONIOU,*) ' NO CHARGE EXCHANGE INTERACTION POSSIBLE ' + ENDIF + ENDIF + IF ( NFRAGM .EQ. 0 ) THEN + WRITE(MONIOU,*) ' TOTAL FRAGMENTION OF PRIMARY NUCLEUS IN ', + * 'FIRST INTERACTION' + ELSEIF ( NFRAGM .EQ. 1 ) THEN + WRITE(MONIOU,*) ' NO FRAGMENTATION, NO EVAPORATION OF REMAINDER' + ELSEIF ( NFRAGM .EQ. 2 ) THEN + WRITE(MONIOU,1504) +1504 FORMAT(' NO FRAGMENTATION, EVAPORATION OF REMAINDER ', + * ' (PT AFTER JACEE)') + ELSEIF ( NFRAGM .EQ. 3 ) THEN + WRITE(MONIOU,1505) +1505 FORMAT(' NO FRAGMENTATION, EVAPORATION OF REMAINDER ', + * ' (PT AFTER GOLDHABER)') + ELSEIF ( NFRAGM .EQ. 4 ) THEN + WRITE(MONIOU,1507) +1507 FORMAT(' NO FRAGMENTATION, EVAPORATION OF REMAINDER ', + * ' (WITH PT = 0.)') + ELSE + NFRAGM = 4 + WRITE(MONIOU,1507) + ENDIF + WRITE(MONIOU,*) + +C LOW ENERGY HADRONIC INTERACTION MODEL + WRITE(MONIOU,*) 'GHEISHA TREATS LOW ENERGY HADRONIC ', + * 'INTERACTIONS' + CALL CGHINI + +C WRITE HADRONIC STEERING FLAGS TO RUNHEADER + RUNH(270) = NFLAIN + RUNH(271) = NFLDIF + RUNH(272) = NFLPI0 + 100. * NFLPIF + RUNH(273) = NFLCHE + 100. * NFRAGM + + EVTH(65) = NFLAIN + EVTH(66) = NFLDIF + EVTH(67) = NFLPI0 + EVTH(68) = NFLPIF + EVTH(69) = NFLCHE + EVTH(70) = NFRAGM + + HILOECM = SQRT(2.D0*PAMA(14)*(PAMA(14) + HILOELB)) + IF ( DEBUG ) THEN + WRITE(MDEBUG,1509) HILOELB,HILOECM + 1509 FORMAT(' START: HIGH ENERGY INTERACTION MODEL USED ABOVE ', + * F8.3,' GEV LAB ENERGY OR',/ + * 50X,F8.3,' GEV CM ENERGY') + ELSE + WRITE(MONIOU,1510) HILOELB,HILOECM + 1510 FORMAT(' HIGH ENERGY INTERACTION MODEL USED ABOVE ', + * F8.3,' GEV LAB ENERGY OR',/ + * 43X,F8.3,' GEV CM ENERGY') + ENDIF + +C----------------------------------------------------------------------- +C INITIALIZE CONSTANTS FOR MUON MULTIPLE SCATTERING (MOLIERE) +C SEE SUBROUT. GMOLI OF GEANT321 (CERN) + IF ( FMOLI ) THEN + TEMP1 = COMPOS(1) * 7.D0 * 8.D0 + TEMP2 = COMPOS(2) * 8.D0 * 9.D0 + TEMP3 = COMPOS(3) * 18.D0 * 19.D0 + ZS = TEMP1 + TEMP2 + TEMP3 + ZE = (-TB3)*(TEMP1*LOG(7.D0)+TEMP2*LOG(8.D0)+TEMP3*LOG(18.D0)) + ZX = TEMP1*LOG(1.D0 + 3.34D0 * ( 7.D0/C(50))**2) + * +TEMP2*LOG(1.D0 + 3.34D0 * ( 8.D0/C(50))**2) + * +TEMP3*LOG(1.D0 + 3.34D0 * (18.D0/C(50))**2) +C NOTE: CHC IS DEFINED DIFFERENT FROM GEANT WITHOUT DENSITY + CHC = 0.39612D-3 * SQRT(ZS/AVERAW) +C NOTE: OMC IS DEFINED DIFFERENT FROM GEANT WITHOUT DENSITY + OMC = 6702.33D0 * (ZS/AVERAW) * EXP( (ZE-ZX)/ZS ) + EVTH(146) = 1. + WRITE(MONIOU,*) 'MUON MULTIPLE SCATTERING AFTER MOLIERE' + ELSE + EVTH(146) = 0. + WRITE(MONIOU,*)'MUON MULTIPLE SCATTERING IN GAUSS APPROXIMATION' + ENDIF + +C----------------------------------------------------------------------- +C INPUT STEERING FLAGS FOR ELECTROMAGNETIC PART + WRITE(MONIOU,*) + IF ( FNKG ) THEN + WRITE(MONIOU,121) + 121 FORMAT(' ######################################################' + * ,/, ' # SIMULATION WITH NKG NOT POSSIBLE IN CURVED VERSION #' + * ,/, ' ######################################################' + * ,/ ) + FNKG = .FALSE. + ENDIF + IF ( FEGS ) THEN + WRITE(MONIOU,*) 'ELECTROMAGNETIC COMPONENT SIMULATED WITH EGS4' + WRITE(MONIOU,*) + ENDIF + IF ( .NOT. (FNKG .OR. FEGS) ) WRITE(MONIOU,*) + * 'ELECTROMAGNETIC COMPONENT IS NOT SIMULATED' + IF ( FEGS ) THEN + IF ( STEPFC .GT. 10.D0 .OR. STEPFC .LE. 0.D0 ) THEN + WRITE(MONIOU,*) 'STEP LENGTH FACTOR FOR ELECTRON MULTIPLE ', + * 'SCATTERING =',SNGL(STEPFC),' NOT CORRECT' + WRITE(MONIOU,*) 'PLEASE READ THE USERS GUIDE' + WRITE(MONIOU,*) 'SEE KEYWORD: STEPFC' + STOP + ENDIF + IF ( STEPFC .LT. 10.D0 ) WRITE(MONIOU,*)'STEP LENGTH ', + * 'FACTOR FOR ELECTRON MULTIPLE SCATTERING =',SNGL(STEPFC) +C INITIALIZE EGS4 PACKAGE + CALL EGSINI + ENDIF +C WRITE STEERING FLAGS FOR ELECTROMAGNETIC PART AS REAL TO HEADER + IF ( FNKG ) THEN + RUNH(20) = 1. + EVTH(74) = 1. + ELSE + RUNH(20) = 0. + EVTH(74) = 0. + ENDIF + IF ( FEGS ) THEN + RUNH(19) = 1. + EVTH(73) = 1. + ELSE + RUNH(19) = 0. + EVTH(73) = 0. + ENDIF + + EVTH(95) = STEPFC + +C PROGRAM CONFIGURATIONS FOR EVENT HEADER + EVTH(75) = 1. + IF ( FVENUS ) THEN + EVTH(76) = 1. + ELSE + EVTH(76) = 0. + ENDIF + EVTH(139) = 0. + EVTH(140) = 0. + EVTH(141) = 0. + EVTH(142) = 0. + EVTH(143) = 0. + EVTH(144) = 0. + IF ( FVENSG ) THEN + EVTH(145) = 1. + ELSE + EVTH(145) = 0. + ENDIF + EVTH(153) = VUECON(1) + EVTH(154) = VUECON(2) +C --------------------------------------------------------- +C ELEMENT 77 OF EVENT HEADER HAS THE FOLLOWING CONTENTS IF +C CONVERTED TO AN INTEGER WITH SUITABLE ROUNDING APPLIED: +C BIT 1: CERENKOV OPTION COMPILED IN +C 2: IACT OPTION COMPILED IN +C 3: CEFFIC OPTION COMPILED IN +C 4: ATMEXT OPTION COMPILED IN +C 5: ATMEXT OPTION USED WITH REFRACTION ENABLED +C 6: VOLUMEDET OPTION COMPILED IN +C 7: CURVED OPTION COMPILED IN (SEE ALSO EVTH(79)) +C 11-21: TABLE NUMBER FOR EXTERNAL ATMOSPHERE TABLE +C (BUT LIMITED TO 1023 IF THE NUMBER IS LARGER) +C -------------------------------------------------------- + EVTH(77) = 1. + EVTH(77) = EVTH(77) + 8. + IF ( FREFRX ) EVTH(77) = EVTH(77) + 16. + EVTH(77) = EVTH(77) + 1024. * MIN(IATMOX,1023) + EVTH(77) = EVTH(77) + 64. + EVTH(78) = 0. + EVTH(79) = 2. + EVTH(80) = 3. + + +C----------------------------------------------------------------------- +C PHYSICAL CONSTANTS + PI = 2.D0 * ACOS(0.D0) + PI2 = 4.D0 * ACOS(0.D0) + OB3 = 1.D0/3.D0 + TB3 = 2.D0/3.D0 + ENEPER = EXP(1.D0) + C(6) = ( PAMA(5) / PAMA(11) )**2 + C(7) = ( PAMA(5) / PAMA(8) )**2 + C(8) = ( PAMA(5)**2 + PAMA(2)**2 ) * 0.5D0 / PAMA(5) + C(20) = 10.D0 * C(21) + C(27) = COS( C(26) ) + C(29) = COS( C(28) ) +C CALCULATE CONSTANT FOR MAXIMAL HORIZONTAL RANGE WITHIN LOCAL SYSTEM + C(4) = (C(2)-C(3)) / THICK(0.D0) +C EXTEND ANGULAR CUT UP TO HORIZONTAL FOR CURVED VERSION + C(29) = 1.D-15 + C(45) = PAMA(8) * PAMA(14) * 2.D0 + C(46) = PAMA(8)**2 + PAMA(14)**2 + C(48) = (PAMA(8)**2 + PAMA(5)**2) / (2.D0*PAMA(8)*PAMA(5)) + C(49) = SQRT(C(48)**2 - 1.D0) / C(48) + + CKA(13) = 2.D0 * PAMA(11) * PAMA(14) + CKA(14) = PAMA(11)**2 + PAMA(14)**2 + CKA(17) = SQRT( ( (PAMA(11)**2 + PAMA(5)**2) + * / (2.D0*PAMA(11)) )**2 - PAMA(5)**2 ) + CKA(18) = SQRT( ( (PAMA(11)**2 + PAMA(8)**2 - PAMA(7)**2) + * / (2.D0*PAMA(11)) )**2 - PAMA(8)**2 ) + CKA(28) = SQRT(1.D0 + CKA(17)**2/PAMA(5)**2) + CKA(29) = SQRT(1.D0 - 1.D0/CKA(28)**2) + CKA(30) = SQRT(1.D0 + CKA(18)**2/PAMA(8)**2) + CKA(31) = SQRT(1.D0 - 1.D0/CKA(30)**2) + CKA(41) = PAMA(16) + CKA(42) = (PAMA(11)**2 + PAMA(7)**2 - PAMA(8)**2) / + * (2.D0*PAMA(11)*PAMA(7)) + CKA(43) = CKA(41) / (2.D0*PAMA(7)) + CKA(44) = SQRT(1.D0 - 1.D0/CKA(43)**2) + CKA(45) = CKA(41) / (2.D0*PAMA(8)) + CKA(46) = SQRT(1.D0 - 1.D0/CKA(45)**2) + +C SET CONSTANTS FOR MUON BREMSSTRAHLUNG +C SET BCUT WELL BELOW 21 MEV +* BCUT = MIN( ELCUT(3), 100.D0*PAMA(5) ) +C BCUT IS FIXED, AS PARAMETRIZATION IN BOX2 IS INDEPENDENT OF BCUT. + BCUT = 0.002044D0 + CMUON(7) = 7.D0**OB3 + CMUON(8) = 8.D0**OB3 + CMUON(9) = 18.D0**OB3 + CMUON(1) = LOG( 189.D0 * PAMA(5) / (CMUON(7)*PAMA(2)) ) + CMUON(2) = LOG( 189.D0 * PAMA(5) / (CMUON(8)*PAMA(2)) ) + CMUON(3) = LOG( 189.D0 * PAMA(5) / (CMUON(9)*PAMA(2)) ) + * + LOG( TB3/CMUON(9) ) + SE = SQRT(EXP(1.D0)) + CMUON(4) = 189.D0 * SE*PAMA(5)**2/(2.D0*PAMA(2)*CMUON(7)) + CMUON(5) = 189.D0 * SE*PAMA(5)**2/(2.D0*PAMA(2)*CMUON(8)) + CMUON(6) = 189.D0 * SE*PAMA(5)**2/(2.D0*PAMA(2)*CMUON(9)) + CMUON(10) = 0.75D0 * PAMA(5) * SE + CMUON(7) = CMUON(7) * CMUON(10) + CMUON(8) = CMUON(8) * CMUON(10) + CMUON(9) = CMUON(9) * CMUON(10) + CMUON(11) = LOG( BCUT/PAMA(5) ) + +C----------------------------------------------------------------------- +C FILL CONSTANTS IN RUN HEADER + DO 3001 L = 1,50 + RUNH(24+L) = C(L) + RUNH(154+L) = 0. + RUNH(204+L) = 0. + 3001 CONTINUE + DO 3002 L = 1,20 + RUNH(74+L) = 0. + 3002 CONTINUE + DO 3003 L = 1,40 + RUNH(94+L) = CKA(L) + 3003 CONTINUE + DO 3004 L = 1,5 + RUNH(134+L) = CETA(L) + 3004 CONTINUE + DO 3005 L = 1,11 + RUNH(139+L) = CSTRBA(L) + 3005 CONTINUE + DO 3007 L = 1,5 + RUNH(254+L) = AATM(L) + RUNH(259+L) = BATM(L) + RUNH(264+L) = CATM(L) + 3007 CONTINUE + + CALL STAEND + + RETURN + END +*CMZ : 14/06/2000 14.56.21 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE STRDEC + +C----------------------------------------------------------------------- +C STR(ANGE BARYON) DEC(AY) +C +C ROUTINE TREATES DECAY OF STRANGE BARYONS (LAMBDA, SIGMA, XI, OMEGA) +C DECAY WITH FULL KINEMATIC, ENERGY AND MOMENTA CONSERVED +C THIS SUBROUTINE IS CALLED FORM NUCINT +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STRBAR. + COMMON /STRBAR/ CSTRBA + DOUBLE PRECISION CSTRBA(11) +*KEND. + + INTEGER I + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' STRDEC: CURPAR=',1P,9E10.3) + + IF ( ITYPE .EQ. 18 ) THEN + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. CSTRBA(5) ) THEN +C DECAY LAMBDA ---> P + PI(-) + CALL DECAY1( ITYPE, 14, 9 ) + ELSE +C DECAY LAMBDA ---> N + PI(0) + CALL DECAY1( ITYPE, 13, 7 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 19 ) THEN + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. CSTRBA(6) ) THEN +C DECAY SIGMA(+) ---> P + PI(0) + CALL DECAY1( ITYPE, 14, 7 ) + ELSE +C DECAY SIGMA(+) ---> N + PI(+) + CALL DECAY1( ITYPE, 13, 8 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 20 .OR. ITYPE .EQ. 28 ) THEN +C DECAY SIGMA(0) ---> LAMBDA + GAMMA +C DECAY ANTI-SIGMA(0) ---> ANTI-LAMBDA + GAMMA + CALL DECAY1( ITYPE, ITYPE-2, 1 ) + + ELSEIF ( ITYPE .EQ. 21 ) THEN +C DECAY SIGMA(-) ---> N + PI(-) + CALL DECAY1( ITYPE, 13, 9 ) + + ELSEIF ( ITYPE .EQ. 22 .OR. ITYPE .EQ. 30 ) THEN +C DECAY XI(0) ---> LAMBDA + PI(0) +C DECAY ANTI-XI(0) ---> ANTI-LAMBDA + PI(0) + CALL DECAY1( ITYPE, ITYPE-4, 7 ) + + ELSEIF ( ITYPE .EQ. 23 ) THEN +C DECAY XI(-) ---> LAMBDA + PI(-) + CALL DECAY1( ITYPE, 18, 9 ) + + ELSEIF ( ITYPE .EQ. 24 .OR. ITYPE .EQ. 32 ) THEN + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. CSTRBA(10) ) THEN +C DECAY OMEGA(-) ---> LAMBDA + K(-) +C DECAY ANTI-OMEGA(+) ---> ANTI-LAMBDA + K(+) + CALL DECAY1( ITYPE, ITYPE-6, 15-ITYPE/8 ) + ELSEIF ( RD(1) .LT. CSTRBA(11) ) THEN +C DECAY OMEGA(-) ---> XI(0) + PI(-) +C DECAY ANTI-OMEGA(+) ---> ANTI-XI(0) + PI(+) + CALL DECAY1( ITYPE, ITYPE-2, 12-ITYPE/8 ) + ELSE +C DECAY OMEGA(-) ---> XI(-) + PI(0) +C DECAY ANTI-OMEGA(+) ---> ANTI-XI(+) + PI(0) + CALL DECAY1( ITYPE, ITYPE-1, 7 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 26 ) THEN + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. CSTRBA(5) ) THEN +C DECAY ANTI-LAMBDA ---> ANTI-P + PI(+) + CALL DECAY1( ITYPE, 15, 8 ) + ELSE +C DECAY ANTI-LAMBDA ---> ANTI-N + PI(0) + CALL DECAY1( ITYPE, 25, 7 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 27 ) THEN + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. CSTRBA(6) ) THEN +C DECAY ANTI-SIGMA(-) ---> ANTI-P + PI(0) + CALL DECAY1( ITYPE, 15, 7 ) + ELSE +C DECAY ANTI-SIGMA(-) ---> ANTI-N + PI(-) + CALL DECAY1( ITYPE, 25, 9 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 29 ) THEN +C DECAY ANTI-SIGMA(+) ---> ANTI-N + PI(+) + CALL DECAY1( ITYPE, 25, 8 ) + + ELSEIF ( ITYPE .EQ. 31 ) THEN +C DECAY ANTI-XI(+) ---> ANTI-LAMBDA + PI(+) + CALL DECAY1( ITYPE, 26, 8 ) + + ELSE + WRITE(MONIOU,444) (CURPAR(I),I=1,9) + WRITE(MONIOU,*) 'STRDEC: UNFORESEEN PARTICLE CODE =',ITYPE + ENDIF + IRET1 = 1 + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + DOUBLE PRECISION FUNCTION THICK( ARG ) + +C----------------------------------------------------------------------- +C THICK(NESS OF ATMOSPHERE) +C +C CALCULATES THICKNESS (G/CM**2) OF ATMOSPHERE DEPENDING ON HEIGHT (CM) +C THIS FUNCTION IS CALLED FROM AAMAIN, BOX2, BOX3, EM, INPRM, MUBREM, +C MUDECY, MUPRPR, MUTRAC, NRANGC, NUCINT, PRANGC, START, UPDATC, +C UPDATE, EGS4, ELECTR, HOWFAR, PHOTON, ININKG, NKG, AND CERENK. +C ARGUMENT: +C ARG = HEIGHT IN CM +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,ATMOSX. +C EXTERNAL ATMOSPHERIC MODELS + COMMON /ATMOSX/ IATMOX,FREFRX + INTEGER IATMOX + LOGICAL FREFRX +*KEND. + + DOUBLE PRECISION ARG + SAVE + DOUBLE PRECISION THICKX + EXTERNAL THICKX +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'THICK : ARG=',SNGL(ARG) + + IF ( IATMOX .GE. 1 ) THEN + THICK = THICKX(ARG) + RETURN + ENDIF + + IF ( ARG .LT. HLAY(2) ) THEN + THICK = AATM(1) + BATM(1) * EXP ( (-ARG) * DATM(1) ) + ELSEIF ( ARG .LT. HLAY(3) ) THEN + THICK = AATM(2) + BATM(2) * EXP ( (-ARG) * DATM(2) ) + ELSEIF ( ARG .LT. HLAY(4) ) THEN + THICK = AATM(3) + BATM(3) * EXP ( (-ARG) * DATM(3) ) + ELSEIF ( ARG .LT. HLAY(5) ) THEN + THICK = AATM(4) + BATM(4) * EXP ( (-ARG) * DATM(4) ) + ELSE + THICK = AATM(5) - ARG * DATM(5) + ENDIF + + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : F. SCHROEDER UNI WUPPERTAL 17/09/98 +C======================================================================= + + DOUBLE PRECISION FUNCTION THICKC(ARG) + +C----------------------------------------------------------------------- +C THICK(NESS IN CASE OF) C(URVED ATMOSPHERE) +C +C CALCULATES OF ATMOSPHERIC THICKNESS AT INTERACTION POINT IN CURVED +C COORDINATE SYSTEM AFTER TRANSPORTING THE PARTICLE CHI G/CM**2 +C THIS FUNCTION IS CALLED FROM AAMAIN. +C ARGUMENT: +C ARG = PENETRATED MATTER THICKNESS IN CURVED ATMOSPHERE (G/CM**2) +C +C DESIGN : F. SCHROEDER UNI WUPPERTAL +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ARG,CHIC,CHIMAX,CHICNEW,COSDIF,COSPHI,COSTAPNEW, + * COSTHENEW,DISTN2,DISTO2,DL,HEIGH,HNEW,HOLD, + * RADIUS,SIGNE,SINI,SINPHI, + * TRANSNEW,WORK,XNEW,YNEW + INTEGER IL + SAVE + EXTERNAL HEIGH +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'THICKC: ARG=',SNGL(ARG),'H=',SNGL(H) + +C START VALUES + CHIC = ARG + HNEW = H + XNEW = X + YNEW = Y + THICKC = THICKH + DISTN2 = XNEW**2 + YNEW**2 + COSPHI = COS(PHI) + SINPHI = SIN(PHI) + COSTHENEW = COSTHE + COSTAPNEW = COSTAP + +C CHOPPING OF TOTAL PATH LENGTH CHITOT INTO SMALLER PIECES AND +C TRANSPORT IN LOCAL PLANE SYSTEM. STEP LENGTH LIMITATION DEPENDS ON +C THICKNESS OF STARTING POINT. THIS NEEDS A LOOP OVER ALL SMALL PIECES +C OF STEP WHICH ENDS AT MAXIMAL HORIZONTAL STEP + + 2 CONTINUE +C LOOK WITHIN WHICH LAYER THE PARTICLE STARTS + IF ( HNEW .LE. HLAY(2) ) THEN + IL = 1 + ELSEIF ( HNEW .LE. HLAY(3) ) THEN + IL = 2 + ELSEIF ( HNEW .LE. HLAY(4) ) THEN + IL = 3 + ELSE + IL = 4 + ENDIF +C LOOK FOR MAXIMAL STEP OF CHICNEW, ONLY IF NOT CLOSE TO VERTICAL + IF ( COSTHENEW .LT. 0.98D0 ) THEN + SINI = DATM(IL) / SQRT(1.D0 - COSTHENEW**2) + WORK = C(4) * THICKC + C(3) + IF ( HNEW .LT. HLAY(5) ) THEN + CHIMAX = ( THICKC - AATM(IL) ) * SINI * + * ( WORK + 0.5D0*COSTHENEW*SINI * WORK**2 ) + ELSE + CHIMAX = WORK * SINI * DATM(5)/DATM(IL) + ENDIF + IF ( CHIC .GE. CHIMAX ) THEN + CHICNEW = CHIMAX + ELSE + CHICNEW = CHIC + ENDIF + ELSE + CHICNEW = CHIC + ENDIF + +C ACTUAL VALUES + THICKC = THICKC + COSTHENEW * CHICNEW + CHIC = CHIC - CHICNEW + IF ( DEBUG ) WRITE(MDEBUG,*) 'THICKC: CHIC,THICKC=', + * SNGL(CHIC),SNGL(THICKC) + +C IN CASE COMPLETE PARTICLE TRACK LENGTH IS CHIC, STOP THE LOOP + IF ( CHIC .GT. 0.D0 ) THEN +C NEW COORDINATE FRAME + HOLD = HNEW +C NEW HEIGHT IN OLD COORDINATE FRAME + HNEW = HEIGH(THICKC) + DL = (HOLD - HNEW) * COSTHENEW + TRANSNEW = DL * SQRT( 1.D0 - COSTHENEW**2 ) +C NEW ACTUAL HEIGHT AT NEW THICKNESS GRADIENT +C (CALCULATED WITH PARAMETERS OF OLD COORDINATE FRAME) + HNEW = SQRT( TRANSNEW**2 + (C(1)+HNEW)**2 ) - C(1) + IF ( HNEW .LT. OBSLEV(1) -1.D5 ) RETURN + COSDIF = ( (C(1)+HNEW)**2 + (C(1)+HOLD)**2 - DL**2 ) / + * ( 2.D0 * (C(1)+HNEW) * (C(1)+HOLD) ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'THICKC: HNEW,COSDIF=', + * SNGL(HNEW),SNGL(COSDIF) + COSDIF = MIN (1.D0, COSDIF) +C DIRECTION OF PARTICLE RELATIV TO SHOWER CORE + DISTO2 = DISTN2 + IF ( COSDIF .LT. 1.D0 ) THEN + RADIUS = DL * SQRT( (1.D0-COSTAPNEW**2)/(1.D0-COSDIF**2) ) + * * C(1) * ACOS(COSDIF)/(C(1)+HNEW) + ELSE + RADIUS = DL * SQRT( 1.D0 - COSTAPNEW**2 ) + ENDIF + XNEW = XNEW + RADIUS * COSPHI + YNEW = YNEW + RADIUS * SINPHI + DISTN2 = XNEW**2 + YNEW**2 + IF ( DISTO2 .GT. DISTN2 ) THEN + SIGNE = +1.D0 + ELSE + SIGNE = -1.D0 + ENDIF +C COSINE OF THE ZENITH ANGLE IN THE NEW FRAME + COSTHENEW = MIN( 1.D0, ( COSTHENEW * COSDIF - SIGNE * + * SQRT( (1.D0-COSTHENEW**2) * (1.D0-COSDIF**2) ) ) ) + IF (DEBUG) WRITE(MDEBUG,*) 'THICKC: COSTHENEW=',SNGL(COSTHENEW) + IF ( COSTHENEW .GT. C(29) ) GOTO 2 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'THICKC: THICKC=',SNGL(THICKC) + + RETURN + END +*CMZ : 23/11/2000 09.03.51 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE TOBUF( A,IFL ) + +C----------------------------------------------------------------------- +C (WRITE) TO BUF(FER) +C +C WRITES UP TO NSUBBL DATA BLOCKS TO OUTPUT BUFFER AND PUTS THE FULL +C BUFFER TO TAPE +C THIS SUBROUTINE IS CALLED FROM AAMAIN, ELECTR, PHOTON, INPRM, OUTEND, +C OUTPT1, OUTPT2, AND PHOTON. +C ARGUMENTS: +C A = ARRAY TO BE WRITTEN TO TAPE +C IFL = STARTING OF FINAL OUTPUT +C = 0 NORMAL BLOCK +C = 1 NORMAL BLOCK WITH END OF OUTPUT +C = 2 ONLY END OF OUTPUT +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,RECORD. + COMMON /RECORD/ IRECOR + INTEGER IRECOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + +C NSUBBL IS NUMBER OF SUBBLOCKS IN ONE OUTPUT RECORD + INTEGER NSUBBL + PARAMETER (NSUBBL=21) + REAL A(*) +C (OUTPUT RECORD LENGTH = NSUBBL * 39 * 7 * 4 BYTES <= 22932 ) +C OUTPUT BUFFER FOR PARTICLE OUTPUT + REAL OUTBUF(MAXBUF,NSUBBL) +C IBLK IS COUNTER FOR SUBBLOCKS + INTEGER I,IBLK,IFL,K + SAVE + DATA IBLK / 0 / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'TOBUF : IFL =',IFL + +C COPY TO BUFFER + IF ( IFL .LE. 1 ) THEN + IBLK = IBLK + 1 + DO 1 I = 1,MAXBUF + OUTBUF(I,IBLK) = A(I) + 1 CONTINUE + ENDIF + +C WRITE TO TAPE IF BLOCK IS FULL OR IF IFL IS 1 + IF ( IFL .GE. 1 .OR. IBLK .EQ. NSUBBL ) THEN + NRECS = NRECS + 1 + NBLKS = NBLKS + IBLK + IF ( FPAROUT ) THEN +c------changed--add-and-comand +cxx WRITE(MPATAP) ((OUTBUF(I,K),I=1,MAXBUF),K=1,NSUBBL) +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c WRITE(PATAPE) ((OUTBUF(I,K),I=1,MAXBUF),K=1,NSUBBL) + call jcdatsave(outbuf) +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c------changed--add-and-comand + + ENDIF + IRECOR = IRECOR + MAXBUF * NSUBBL + IBLK = 0 + DO 2 K = 1,NSUBBL + DO 2 I = 1,MAXBUF + OUTBUF(I,K) = 0.0 + 2 CONTINUE + ENDIF + + RETURN + END +*CMZ : 25/02/2002 15.28.14 by D. HECK IK FZK KARLSRUHE +*-- Author : Johannes Knapp, IEKP U Karlsruhe 26/01/97 +C======================================================================= + + SUBROUTINE TSTACK + +C----------------------------------------------------------------------- +C T(O) STACK +C +C ADDS PARTICLE TO INTERMEDIATE STACK UNTIL REACTION IS FINISHED +C ONLY PARTICLES ABOVE ENERGY CUT ARE TAKEN TO STACK +C THIS SUBROUTINE IS CALLED FROM MANY ROUTINES ALL OVER THE PROGRAM. +C +C DESIGN : J. KNAPP, IEKP U KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,THNVAR. + COMMON /THNVAR/ STACKINT, + * INT_ICOUNT,MODETHN,THINNING + INTEGER MAXICOUNT + PARAMETER (MAXICOUNT=40000) + DOUBLE PRECISION STACKINT(16,MAXICOUNT) + INTEGER INT_ICOUNT,MODETHN + LOGICAL THINNING +*KEND. + + INTEGER I,J + SAVE +C----------------------------------------------------------------------- + + INT_ICOUNT = INT_ICOUNT + 1 + IF ( DEBUG ) WRITE(MDEBUG,1) INT_ICOUNT,(SECPAR(J),J=1,9) + 1 FORMAT(' TSTACK:',I7,1X,1P,8E10.3,0P,F10.0) + + IF ( INT_ICOUNT .GT. MAXICOUNT ) THEN + WRITE(MONIOU,10) MAXICOUNT + 10 FORMAT(' TSTACK: TOO MANY SECONDARIES FOR THIS REACTION', + * ' EXCEEDED ',I7,' A T T E N T I O N PARTICLE IS LOST') + INT_ICOUNT = INT_ICOUNT - 1 + RETURN + ENDIF + +C CALCULATE APPROPRIATE KINETIC ENERGY CUT AND APPLY IT + IF ( SECPAR(1) .EQ. 5.D0 .OR. SECPAR(1) .EQ. 6.D0 ) THEN +C ---MUONS--- + IF ( (SECPAR(2) - 1.D0)*PAMA(5) .LT. ELCUT(2) ) THEN + FMUORG = .FALSE. + IF (DEBUG) WRITE(MDEBUG,*) 'TSTACK: PARTICLE BELOW ', + * 'ENERGY CUT' + INT_ICOUNT = INT_ICOUNT - 1 + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + SECPAR(2) * PAMA(5) + ENDIF + RETURN + ENDIF + + ELSEIF ( SECPAR(1) .EQ. 2.D0 .OR. SECPAR(1) .EQ. 3.D0 ) THEN +C ---ELECTRONS--- + IF ( (SECPAR(2) - 1.D0)*PAMA(2) .LT. ELCUT(3) ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'TSTACK: PARTICLE BELOW ', + * 'ENERGY CUT' + INT_ICOUNT = INT_ICOUNT - 1 + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( SECPAR(1) .EQ. 2.D0 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + * + (SECPAR(2)+1.D0) * PAMA(2) + ELSE + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + * + (SECPAR(2)-1.D0) * PAMA(2) + ENDIF + ENDIF + RETURN + ENDIF + + ELSEIF ( SECPAR(1) .EQ. 1.D0 ) THEN +C ---GAMMAS--- + IF ( SECPAR(2) .LT. ELCUT(4) ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'TSTACK: PARTICLE BELOW ', + * 'ENERGY CUT' + INT_ICOUNT = INT_ICOUNT - 1 + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + SECPAR(2) + ENDIF + RETURN + ENDIF + + ELSEIF (SECPAR(1) .GE. 100.D0 ) THEN +C ---NUCLEI---, CUTTED IF ENERGY/NUCLEON BELOW CUT + IF ( (SECPAR(2)-1.D0)*PAMA(NINT(SECPAR(1))) + * .LT. ELCUT(1)*NINT(SECPAR(1)/100.D0) ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'TSTACK: PARTICLE BELOW ', + * 'ENERGY CUT' + INT_ICOUNT = INT_ICOUNT - 1 + IF ( LLONGI ) THEN +C ADD KINETIC ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + * + ( SECPAR(2)*PAMA(NINT(SECPAR(1))) + * - RESTMS(NINT(SECPAR(1))) ) + ENDIF + RETURN + ENDIF + + ELSE +C ---HADRONS--- + IF ( (SECPAR(2)-1.D0)*PAMA(NINT(SECPAR(1))) .LT. ELCUT(1) ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'TSTACK: PARTICLE BELOW ', + * 'ENERGY CUT' + INT_ICOUNT = INT_ICOUNT - 1 + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT +C IN CASE OF NUCLEONS TAKE ONLY KINETIC ENERGY +C IN CASE OF ANTINUCLEONS TAKE RELEASABLE ENERGY + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + * + ( SECPAR(2) * PAMA(NINT(SECPAR(1))) + * - RESTMS(NINT(SECPAR(1))) ) + ENDIF + RETURN + ENDIF + + ENDIF + +C WRITE PARTICLE ABOVE CUT TO INTERMEDIATE STACK + DO I = 1,MAXLEN + STACKINT(I,INT_ICOUNT) = SECPAR(I) + ENDDO + + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : Johannes Knapp, IEKP U Karlsruhe 26/01/97 +C======================================================================= + + SUBROUTINE TSTEND + +C----------------------------------------------------------------------- +C T(O) ST(ACK) END (OF REACTION) +C +C MOVE INTERMEDIATE REACTION STACK TO THE REAL STACK +C AND PERFORM THINNING, IF SELECTED +C THIS SUBROUTINE IS CALLED FROM AAMAIN, BOX3, AND PIGEN. +C +C DESIGN : J. KNAPP, IEKP U KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,RESON. + COMMON /RESON/ RDRES,RESRAN,IRESPAR + REAL RDRES(2),RESRAN(30000) + INTEGER IRESPAR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,THNVAR. + COMMON /THNVAR/ STACKINT, + * INT_ICOUNT,MODETHN,THINNING + INTEGER MAXICOUNT + PARAMETER (MAXICOUNT=40000) + DOUBLE PRECISION STACKINT(16,MAXICOUNT) + INTEGER INT_ICOUNT,MODETHN + LOGICAL THINNING +*KEND. + + INTEGER I,K + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,1) INT_ICOUNT + 1 FORMAT(' TSTEND: TRANSFER INTERNAL REACTION STACK', + * ' WITH ',I6,' PARTICLES ') + + IF ( INT_ICOUNT .LE. 0 ) RETURN + +C PUT ALL PARTICLES FROM INTERMEDIATE STACK TO REAL STACK + DO K = 1,INT_ICOUNT + DO I = 1,MAXLEN + SECPAR(I) = STACKINT(I,K) + STACKINT(I,K) = 0.D0 + ENDDO + CALL TSTOUT + ENDDO + + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : Johannes Knapp, IEKP U Karlsruhe 26/01/97 +C======================================================================= + + SUBROUTINE TSTOUT + +C----------------------------------------------------------------------- +C T(O) ST(ACK) OUT +C +C MAKE OUTPUT AFTER ONE INTERACTION HAS FINISHED +C ADDS PARTICLE TO STACK AND WRITES IT TO DISK IF NECESSARY +C THIS SUBROUTINE IS CALLED FORM MPPROP, PIGEN1, PIGEN2, RHOGEN, +C AND TSTEND +C +C DESIGN : J. KNAPP, IEKP U KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,ETHMAP. + COMMON /ETHMAP/ ECTMAP,ELEFT + DOUBLE PRECISION ECTMAP,ELEFT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKF. + COMMON /STACKF/ STACK,MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT, + * NTO,NFROM + INTEGER MAXSTK + PARAMETER (MAXSTK = 16*256*2) + DOUBLE PRECISION STACK(MAXSTK) + INTEGER MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM +*KEND. + + INTEGER I,ISTK,J + SAVE + DATA ISTK / MAXSTK / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,666) ICOUNT,(SECPAR(J),J=1,9) + 666 FORMAT(' TSTOUT:',I7,1X,1P,8E10.3,0P,F10.0) + + IF ( MSTACKP .GE. ISTK ) THEN + WRITE(MEXST,REC=NOUREC+1) (STACK(I),I= 1,ISTK/2) + WRITE(MEXST,REC=NOUREC+2) (STACK(I),I=ISTK/2+1,ISTK ) + NOUREC = NOUREC + 2 + NSHIFT = NSHIFT + 2 + MSTACKP = 0 + ENDIF + + NTO = NTO + 1 + ICOUNT = ICOUNT + 1 + + DO 2 J = 1,MAXLEN + STACK(MSTACKP+J) = SECPAR(J) + 2 CONTINUE + MSTACKP = MSTACKP + MAXLEN + IF ( SECPAR(1) .LE. 1.D0 ) THEN + ELEFT = ELEFT + SECPAR(2) + ELSE + ELEFT = ELEFT + SECPAR(2) * PAMA(NINT(SECPAR(1))) + ENDIF + + RETURN + END +*CMZ : 05/03/2002 08.55.01 by D. HECK IK FZK KARLSRUHE +*-- Author : F. SCHROEDER UNI WUPPERTAL 17/11/98 +C======================================================================= + + SUBROUTINE UPDATC(IPASC,FLAGMU,fmfb) + +C----------------------------------------------------------------------- +C UPDAT(ES PARTICLE PARAMETERS IN A) C(URVED ATMOSPHERE) +C +C IN THE CASE THE HORIZONTAL COMPONENT OF THE TRACK IS TO LONG (> 20KM) +C THE PARTICLE TRACK IS CHOPPED IN SEVERAL SHORTER TRACKS. +C FOR EACH OF THESE CHOPPED TRACKS SUBR. UPDATE IS CALLED. +C THIS SUBROUTINE IS CALLED FROM AAMAIN, BOX3, AND MUTRAC. +C ARGUMENTS: +C IPASC = 0 TRANSPORT LEADS TO END OF RANGE OF PARTICLE +C 1 TRANSPORT LEADS TO OBSERVATION LEVEL +C FLAGMU FLAG INDICATING THE TRACKING OF MUONS +C +C DESIGN : F. SCHROEDER UNI WUPPERTAL +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MAGNET. + COMMON /MAGNET/ BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT + DOUBLE PRECISION BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,CORFRAM, IF=CURVED. + COMMON /CORFRAM/ DETSYS + LOGICAL DETSYS +*KEND. + + DOUBLE PRECISION ARG,AUXIL,AUXILSQ,AUX2SQ,CHIC,CHIMAX,CHIN,CORR, + * COSDIF,COSTHENEW,DISTN2,DISTO2,DSTEFF, + * EDEPB,EDEPN,EDEP1,EFRST,GAMMAOLD,GAMMAN, + * HEIGH,HNEW,HOLD,SIGNE,SINDIF,SINI,SINTEA,STEPLC, + * STEPLO,STEPT,THCKHN,THCKHO,THICK,THICKHOLD, + * TRANS2,WORK,XNEW,XOLD,YNEW,YOLD + INTEGER I,IL,IPASC,LPCT1,LPCT2 + LOGICAL FLAGMU +c-----changed--add + logical fmfb +c-----changed--add + DOUBLE PRECISION HNEWO + SAVE + EXTERNAL HEIGH,THICK +C----------------------------------------------------------------------- + + IF (DEBUG) WRITE(MDEBUG,457) (CURPAR(I),I=1,9),FLAGMU + 457 FORMAT(' UPDATC: CURPAR=',1P,9E10.3,0P/ + * ' FLAGMU=',L2) + +C NOTE: ARG = PENETRATED MATTER THICKNESS HAS TO BE A CONSTANT +C FOR THE WHOLE PARTICLE UPDATING +C => LOOP OVER PIECES OF ARG (ALSO CONSTANTS FOR UPDATE) +C START VALUES FOR LOOP OVER PENETRATED MATTER THICKNESS + IRET2 = 0 +C STORE THE THICKNES CHI TO BE TRANSPORTED + CHIC = CHI + ARG = CHI +C STORE THE PATH LENGTH STEPL DO BE TRANSPORTED + IF ( FLAGMU ) THEN + STEPLC = STEPL + ELSE + STEPLC = 0.D0 + ENDIF + STEPLO = 0.D0 + HNEW = H + THCKHN = THICKH + XNEW = X + YNEW = Y + SINTEA = SQRT(1.D0 - COSTEA**2) + IF ( LLONGI ) THEN + GAMMAOLD = GAMMA + THICKHOLD = THICKH + LPCT1 = INT(THICKHOLD*THSTPI + 1.D0) + ENDIF +C CHOPPING OF TOTAL PATH LENGTH CHIC INTO SMALLER PIECES AND +C TRANSPORT IN LOCAL PLANE SYSTEMS. STEP LENGTH LIMITATION DEPENDS ON +C THICKNESS OF STARTING POINT. LOOP OVER ALL SMALL PIECES OF STEP + + 2 CONTINUE +C SAVE OLD LOCAL HEIGHT FOR TRANSFORMATION AFTER UPDATE + HOLD = HNEW + XOLD = XNEW + YOLD = YNEW + DISTO2 = XNEW**2 + YNEW**2 + IF (DEBUG) WRITE(MDEBUG,*) 'UPDATC: CHIC,HOLD,THCKHN=', + * SNGL(CHIC),SNGL(HOLD),SNGL(THCKHN) +C LOOK WITHIN WHICH LAYER THE PARTICLE STARTS + IF ( HOLD .LE. HLAY(2) ) THEN + IL = 1 + ELSEIF ( HOLD .LE. HLAY(3) ) THEN + IL = 2 + ELSEIF ( HOLD .LE. HLAY(4) ) THEN + IL = 3 + ELSE + IL = 4 + ENDIF +C LOOK FOR MAXIMAL STEP OF CHICNEW, ONLY IF NOT CLOSE TO VERTICAL +C BEFORE ENTERING NEW ATMOSPHERIC LAYER + IF ( COSTHE .LT. 0.98D0 ) THEN + SINI = DATM(IL) / SQRT(1.D0 - COSTHE**2) +* IF ( DEBUG ) WRITE(MDEBUG,*) 'UPDATC: SINI=',SINI + WORK = C(4) * THCKHN + C(3) + IF ( HOLD .LT. HLAY(5) ) THEN + CHIMAX = ( THCKHN - AATM(IL) ) * SINI * + * ( WORK + 0.5D0*COSTHE*SINI * WORK**2 ) + ELSE + CHIMAX = WORK * SINI * DATM(5)/DATM(IL) + ENDIF + IF (DEBUG) WRITE(MDEBUG,301) CHIMAX + 301 FORMAT(' UPDATC: CHIMAX=',F10.5,' TO NEXT ATMOSPHERIC BOUNDARY') + IF ( CHIC .GE. CHIMAX ) THEN + CHIN = CHIMAX + ELSE + CHIN = CHIC + ENDIF + ELSE + CHIN = CHIC + ENDIF + +C CALCULATE VALUES FOR UPDATE + THCKHO = THCKHN + THCKHN = THCKHO + CHIN * COSTHE + HNEW = HEIGH(THCKHN) + IF ( HNEW .GT. HOLD ) THEN +C MAKE A SMALL STEP OF 0.1 CM DEEPER INTO THE ATMOSPHERE + HNEW = HOLD - 0.1D0 + THCKHN = THICK(HNEW) + ENDIF + +C CHECK WETHER PARTICLE PASSES OBSERVATION LEVEL + IF ( HNEW .LE. OBSLEV(1) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,558) COSTHE,H,X,Y + 558 FORMAT(' UPDATC: UNCORR COSTHE,H,X,Y=',1P,4E17.10,0P) +C CORRECT PARTICLE COORDINATES FOR DETECTOR SYSTEM +C FIRST CALCULATE COSTAP AND HAPP IN OLD SYSTEM + AUXILSQ = SQRT(X**2 + Y**2) + COSTEA = COS(AUXILSQ/C(1)) + COSTEA = MIN( 1.D0, COSTEA ) + HAPP = (C(1)+HOLD) * COSTEA - C(1) +C REJECT PARTICLE WHICH TRAVERSES BELOW OBSERVATION LEVEL MEASURED +C IN THE DETECTOR FRAME + IF ( HAPP .LT. OBSLEV(1) ) GOTO 200 +C REGARD WHETHER PARTICLE IS MOVING TOWARDS DETECTOR +C EFFECTIVE DISTANCE TO DETECTOR CENTER IS DISTANCE TO POINT +C OF FLIGHT PATH PROJECTION WHICH COMES CLOSEST TO DETECTOR CENTER + DSTEFF = -( COS(PHI)*X + SIN(PHI)*Y ) +C CALCULATE CORRECTION ANGLE DIF FROM EFFECTIVE DISTANCE + SINDIF = SIN(DSTEFF/C(1)) + COSDIF = SQRT( 1.D0 - SINDIF**2 ) + COSTHENEW = COSTHE*COSDIF - SQRT(1.D0-COSTHE**2)*SINDIF + IF (DEBUG) WRITE(MDEBUG,*) 'UPDATC: COSDIF,COSTHENEW=', + * COSDIF,COSTHENEW + COSTHE = MIN( 1.D0, COSTHENEW ) +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( COSTHE .LE. C(29) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,556) (CURPAR(I),I=1,9) + 556 FORMAT(' UPDATC: KILL 1=',1P,10E10.3) + GOTO 200 + ENDIF +C ANGLE DIF MIGHT BE LARGE (DUE TO CUT ON HAPP) + X = (HAPP+C(1))*TAN(X/C(1)) + Y = (HAPP+C(1))*TAN(Y/C(1)) + H = HAPP + IF ( DEBUG ) WRITE(MDEBUG,559) COSTHE,H,X,Y + 559 FORMAT(' UPDATC: CORREC COSTHE,H,X,Y=',1P,4E17.10,0P) + HNEW = OBSLEV(1) + THCKHN = THCKOB(1) + IPASC = 1 + DETSYS = .TRUE. + ELSE + IPASC = 0 + DETSYS = .FALSE. + ENDIF + HNEWO = HNEW + +C CALL UPDATE WITH NEW INPUT PARAMETERS ( HNEW,THCKHN,CURPAR(..) ) + CHI = CHIN +c-----changed--add + CALL UPDATE( HNEW,THCKHN,0,fmfb ) +c-----changed--add + CHIN = CHI +C DECREMENT THE THICKNESS STILL TO BE TRAVERSED + CHIC = CHIC - CHI +C INCREMENT STEPLO BY THE LENGTH PERFORMED IN UPDATE + IF ( FLAGMU ) STEPLO = STEPLO + STEPL + IF (DEBUG) WRITE(MDEBUG,*) 'UPDATC: CHIC,CHIN=',CHIC,CHIN + IF ( IRET2 .NE. 0 ) THEN + IF ( IRETE ) THEN +C PARTICLE SUFFERED FROM ENERGY CUT + GOTO 150 + ELSE +C PARTICLE SUFFERED FROM ANGULAR CUT + GOTO 200 + ENDIF + ENDIF + +C KILL PARTICLE AS IT HAS BEEN STOPPED (MODIFIED HNEW IN UPDATE) +C (NORMALLY BEDCAUSE OF ENERGY CUT) +C IF ( HNEW .NE. HNEWO ) THEN +C IRET2 = 1 +C IRETE = .TRUE. +C GOTO 150 +C ENDIF +C FOR CHARGED PARTICLES COSINE OF ZENITH ANGLE IS CALCULATED IN UPDATE. +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( OUTPAR(3) .LE. C(29) ) GOTO 200 + +C FILL CURPAR WITH ACTUAL VALUES OF PARTICLE AFTER TRANSPORT IN UPDATE +C OUTPAR(13-16) IS NOT MODIFIED IN UPDATE + DO I = 2,8 + CURPAR(I) = OUTPAR(I) + ENDDO + THICKH = THCKHN + + IF ( IPASC .EQ. 0 ) THEN +C TRACK ENDS NOT AT OBSERVATION LEVEL +C HORIZONTAL COMPONENT OF TRACK LENGTH SQUARED + TRANS2 = (X-XOLD)**2 + (Y-YOLD)**2 +C TRANSPORT AT MINIMUM 1 MM + TRANS2 = MAX(TRANS2,0.01D0) +C NEW COORDINATE FRAME, NEW ACTUAL HEIGHT AT NEW THICKNESS GRADIENT +C (CALCULATED WITH PARAMETERS OF OLD COORDINATE FRAME) + AUXIL = SQRT( TRANS2 + (C(1)+H)**2 ) + HNEW = AUXIL - C(1) + IF ( HNEW .GE. HLAY(6) ) THEN +C KILL PARTICLE WHICH LEAVES ATMOSPHERE + IF ( DEBUG ) WRITE(MDEBUG,*) 'UPDATC: HNEW=',HNEW,' KILL' + GOTO 200 + ENDIF + THCKHN = THICK(HNEW) +C CALCULATE ANGLE DIFFERENCE BETWEEN OLD AND NEW FRAME + SINDIF = SQRT(TRANS2) / AUXIL + COSDIF = (C(1)+H) / AUXIL + IF ( DEBUG ) WRITE(MDEBUG,560) COSDIF,SINDIF,H,HNEW + 560 FORMAT(' UPDATC: COSDIF,SINDIF,H,HNEW=',2F18.15,1P,2E17.9) + COSDIF = MIN(1.D0,COSDIF) +C X AND Y HAVWE TO BE TRANSFORMED INTO 'EARTH'-COORDINATES (SPHERE) +C BEFORE THE COMPARISON WITH DISTO2 IS DONE. +C TRANSPORT DISTANCE IS CORRECTED TO GET DISTANCE AT EARTHS SURFACE + CORR = C(1)*ASIN(SINDIF)/( (C(1)+HNEW)*SINDIF ) + XNEW = XOLD + (X-XOLD)*CORR + X = XNEW + YNEW = YOLD + (Y-YOLD)*CORR + Y = YNEW + H = HNEW + +C NEW DISTANCE FROM PARTICLE TO DETECTOR CENTER + DISTN2 = X**2 + Y**2 +C COMPARE NEW AND OLD DISTANCE TO DETECTOR CENTER + IF ( DISTN2 .LT. DISTO2 ) THEN +C PARTICLE MOVES TOWARDS DETECTOR CENTER + SIGNE = +1.D0 + ELSE + SIGNE = -1.D0 + IF (DEBUG) WRITE(MDEBUG,*) 'UPDATC: SIGNE=',SIGNE + ENDIF + +C IN FIRST ORDER APPROXIMATION COSTHE AND COSDIF ARE IN THE SAME PLANE +C OF PARTICLE MOVEMENT, THEREFORE THE ANGLES MAY BE ADDED DIRECTLY + COSTHENEW = COSTHE*COSDIF - SIGNE*SINDIF*SQRT(1.D0-COSTHE**2) + COSTHE = MIN( 1.D0, COSTHENEW ) +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( COSTHE .LE. C(29) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,555) (CURPAR(I),I=1,9) + 555 FORMAT(' UPDATC: KILL 0=',1P,10E10.3) + GOTO 200 + ENDIF + + IF ( DEBUG ) WRITE(MDEBUG,562) COSTEA,HAPP + 562 FORMAT(' UPDATC: COSTEA,HAPP=',F18.15,1P,E17.9) + IF ( DEBUG ) WRITE(MDEBUG,557) (CURPAR(I),I=1,9) + 557 FORMAT(' UPDATC: STPEND=',1P,9E10.3,0P/) +C WE ARE NOT YET AT DETECTOR. + IF ( FDECAY ) THEN +C IS WHOLE CHIC OR STEPLC TRAVERSED ? + IF ( CHIC .GT. 1.D-10 .AND. STEPLO .LT. STEPLC ) GOTO 2 + ELSE +C IS WHOLE CHIC TRAVERSED ? + IF ( CHIC .GT. 1.D-10 ) GOTO 2 + ENDIF +C RESTORE CHI IN COMMON CUPPAR FOR CORRECT USE IN MUTRAC + CHI = ARG - CHIC +C RESTORE STEPL IN COMMON MUMULT FOR CORRECT USE IN MUTRAC + IF ( FLAGMU ) STEPL = STEPLO + IF ( DEBUG ) WRITE(MDEBUG,*) 'MUTRAC: CHI,STEPL=', + * SNGL(CHI),SNGL(STEPL) + +C CALCULATE ANGLES IN THE NEW FRAME + AUXILSQ = SQRT(X**2 + Y**2) + COSTEA = COS(AUXILSQ/C(1)) + COSTEA = MIN( 1.D0, COSTEA ) + HAPP = (C(1)+HNEW) * COSTEA - C(1) +C REJECT PARTICLE WHICH TRAVERSES BELOW OBSERVATION LEVEL MEASURED +C IN THE DETECTOR FRAME + IF ( HAPP .LT. OBSLEV(1) ) GOTO 200 + AUX2SQ = SQRT( (C(1)+HNEW)**2*(1.D0 - COSTEA**2) + * + (HAPP-OBSLEV(1))**2 ) + COSTAP = (HAPP-OBSLEV(1)) / AUX2SQ + IF ( DEBUG ) WRITE(MDEBUG,*) 'UPDATC: COSTAP=',COSTAP + COSTAP = MIN( 1.D0, COSTAP ) + OUTPAR(3) = COSTHE + OUTPAR(5) = H + OUTPAR(7) = X + OUTPAR(8) = Y + ENDIF + + 150 IF ( LLONGI ) THEN +C THE PARTICLE IS TRACKED FROM THICKHOLD DOWN TO THCKHN + LPCT2 = INT(THCKHN*THSTPI) + IF ( SIGNUM(ITYPE) .NE. 0.D0 ) THEN + GAMMAN = OUTPAR(2) +C TOTAL PATH LENGTH IN UNITS OF LONGI BINS + STEPT = (THCKHN - THICKHOLD)*THSTPI +C CHARGED PARTICLES SUFFER IONIZATION LOSS. +C WE ASSUME HOMOGENEOUS ENERGY DEPOSIT ALONG PATH + IF ( STEPT .GT. 0.D0 ) THEN +C IONIZATION ENERGY DEPOSED IN EACH BIN + EDEPB = PAMA(ITYPE) * (GAMMAOLD - GAMMAN) / STEPT + ELSE + EDEPB = 0.D0 + ENDIF +C ENERGY DEPOSIT IN FIRST BIN + EDEP1 = EDEPB * (DBLE(LPCT1) - THICKHOLD*THSTPI) +C ENERGY AT FIRST BIN BOUNDARY + EFRST = PAMA(ITYPE) * GAMMAOLD - EDEP1 + IF ( LPCT2. LT. LPCT1 ) THEN + EDEPN = EDEPB * (THCKHN*THSTPI - DBLE(LPCT1)) + ELSE + IF ( IPASC .EQ. 0 ) THEN + EDEPN = MAX( 0.D0, EDEPB * (THCKHN*THSTPI - DBLE(LPCT2)) ) + ELSE +C PARTICLE ARRIVED AT DETECTOR + LPCT2 = NSTEP + EDEPN = 0.D0 + ENDIF + ENDIF + +C NOW FILL FIRST AND LAST+1 BIN, THEN LOOP OVER THE BINS BETWEEN + IF ( ITYPE .EQ. 5 ) THEN +C MUON(+) LONGITUDIAL DEVELOPMENT FOR DEPOSIT, ENERGY, PARTICLES + DLONG(LPCT1 ,4) = DLONG(LPCT1 ,4) + EDEP1 + DLONG(LPCT2+1,4) = DLONG(LPCT2+1,4) + EDEPN + IF ( LPCT2 .GE. LPCT1 ) THEN + ELONG(LPCT2,4) = ELONG(LPCT2,4) + * + (EFRST-(LPCT2-LPCT1)*EDEPB) + PLONG(LPCT2,4) = PLONG(LPCT2,4) + 1.D0 + ENDIF + ELSEIF ( ITYPE .EQ. 6 ) THEN +C MUON(-) LONGITUDIAL DEVELOPMENT FOR DEPOSIT, ENERGY, PARTICLES + DLONG(LPCT1 ,4) = DLONG(LPCT1 ,4) + EDEP1 + DLONG(LPCT2+1,4) = DLONG(LPCT2+1,4) + EDEPN + IF ( LPCT2 .GE. LPCT1 ) THEN + ELONG(LPCT2,5) = ELONG(LPCT2,5) + * + (EFRST-(LPCT2-LPCT1)*EDEPB) + PLONG(LPCT2,5) = PLONG(LPCT2,5) + 1.D0 + ENDIF + ELSEIF ( ITYPE .LT. 100 ) THEN +C CHARGED HADRON LONGITUDIAL DEVELOPMENT FOR DEPOSIT, ENERGY, PARTICLES + DLONG(LPCT1 ,6) = DLONG(LPCT1 ,6) + EDEP1 + DLONG(LPCT2+1,6) = DLONG(LPCT2+1,6) + EDEPN + IF ( LPCT2 .GE. LPCT1 ) THEN + ELONG(LPCT2,6)=ELONG(LPCT2,6)+(EFRST-(LPCT2-LPCT1)*EDEPB) + ELONG(LPCT2,7)=ELONG(LPCT2,7)+(EFRST-(LPCT2-LPCT1)*EDEPB) + PLONG(LPCT2,6) = PLONG(LPCT2,6) + 1.D0 + PLONG(LPCT2,7) = PLONG(LPCT2,7) + 1.D0 + ENDIF + ELSE +C NUCLEI LONGITUDIAL DEVELOPMENT FOR DEPOSIT, ENERGY, PARTICLES + DLONG(LPCT1 ,6) = DLONG(LPCT1 ,6) + EDEP1 + DLONG(LPCT2+1,6) = DLONG(LPCT2+1,6) + EDEPN + IF ( LPCT2 .GE. LPCT1 ) THEN + ELONG(LPCT2,8)=ELONG(LPCT2,8)+(EFRST-(LPCT2-LPCT1)*EDEPB) + PLONG(LPCT2,8) = PLONG(LPCT2,8) + 1.D0 + ENDIF + ENDIF + +C LOOP OVER ALL LONGITUDINAL BINS + IF ( LPCT2 .GT. LPCT1 ) THEN + DO IL = LPCT1,LPCT2-1 + IF ( ITYPE .EQ. 5 ) THEN +C MUON(+) LONGITUDIAL DEVELOPMENT FOR DEPOSIT, ENERGY, PARTICLES + DLONG(IL+1,4) = DLONG(IL+1,4) + EDEPB + ELONG(IL,4) = ELONG(IL,4) + (EFRST-(IL-LPCT1)*EDEPB) + PLONG(IL,4) = PLONG(IL,4) + 1.D0 + ELSEIF ( ITYPE .EQ. 6 ) THEN +C MUON(-) LONGITUDIAL DEVELOPMENT FOR DEPOSIT, ENERGY, PARTICLES + DLONG(IL+1,4) = DLONG(IL+1,4) + EDEPB + ELONG(IL,5) = ELONG(IL,5) + (EFRST-(IL-LPCT1)*EDEPB) + PLONG(IL,5) = PLONG(IL,5) + 1.D0 + ELSEIF ( ITYPE .LT. 100 ) THEN +C CHARGED HADRON LONGITUDIAL DEVELOPMENT FOR DEPOSIT, ENERGY, PARTICLES + DLONG(IL+1,6) = DLONG(IL+1,6) + EDEPB + ELONG(IL,6) = ELONG(IL,6) + (EFRST-(IL-LPCT1)*EDEPB) + ELONG(IL,7) = ELONG(IL,7) + (EFRST-(IL-LPCT1)*EDEPB) + PLONG(IL,6) = PLONG(IL,6) + 1.D0 + PLONG(IL,7) = PLONG(IL,7) + 1.D0 + ELSE +C NUCLEI LONGITUDIAL DEVELOPMENT FOR DEPOSIT, ENERGY, PARTICLES + DLONG(IL+1,6) = DLONG(IL+1,6) + EDEPB + ELONG(IL,8) = ELONG(IL,8) + (EFRST-(IL-LPCT1)*EDEPB) + PLONG(IL,8) = PLONG(IL,8) + 1.D0 + ENDIF + ENDDO + ENDIF + ELSE +C NEUTRAL PARTICLES +C LONGITUDINAL DISTRIBUTIONS FOR NEUTRAL HADRONS WITHOUT NEUTRINOS +C THE PARTICLE IS TRACKED FROM THICKH DOWN TO THCKHN +C COUNT THE PARTICLES FOR THE LONGITUDINAL DEVELOPMENT + IF ( (ITYPE.GE. 7 .AND. ITYPE.LE.32) .OR. + * (ITYPE.GE.71 .AND. ITYPE.LE.74) ) THEN + IF ( IPASC .NE. 0 ) THEN +C PARTICLE ARRIVES AT DETECTOR + LPCT2 = NSTEP + ENDIF + DO IL = LPCT1,LPCT2 + ELONG(IL,6) = ELONG(IL,6) + GAMMA * PAMA(ITYPE) + PLONG(IL,6) = PLONG(IL,6) + 1.D0 + ENDDO + ENDIF + ENDIF + IF ( IRET2 .NE. 0 .AND. IRETE ) THEN +C FILL REMAINING CUTTED ENERGY INTO LONGI BIN AT CUTTING POINT + LHEIGH = LPCT2 + IF ( ITYPE .EQ. 5 .OR. ITYPE .EQ. 6 ) THEN + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + GAMMAN*PAMA(5) + ELSE + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAMMAN*PAMA(ITYPE) + * - RESTMS(ITYPE) + ENDIF +C ELIMINATE PARTICLE FALLING BELOW ENERGY CUT + RETURN + ENDIF + ENDIF +C ELIMINATE PARTICLE FALLING BELOW ENERGY CUT + IF ( IRET2 .NE. 0 .AND. IRETE ) RETURN + +C- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + +C TRANSPORT TO END OF TRACK + IF ( IPASC .EQ. 0 ) THEN + ALEVEL = H + BETA = SQRT( GAMMA**2 - 1.D0 ) / GAMMA + THICKH = THCKHN + ELSE +C TRANSPORT TO OBSERVATION LEVEL AND BRING TO OUTPUT +C COORDINATE SYSTEM AT END OF TRACK HAS TO BE DETECTOR FRAME + LEVL = 1 + CALL OUTPT1 + ENDIF + + RETURN + + 200 CONTINUE +C TREATMENT OF KILLED PARTICLES +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT, IF PARTICLE IS CUTTED + IF ( LLONGI ) THEN +C PARTICLE SUFFERED FROM ANGULAR CUT + IF ( ITYPE .EQ. 5 .OR. ITYPE .EQ. 6 ) THEN + DLONG(LPCT1,5) = DLONG(LPCT1,5) + GAMMAOLD * PAMA(5) + ELSE + DLONG(LPCT1,7) = DLONG(LPCT1,7) + GAMMAOLD * PAMA(ITYPE) + * - RESTMS(ITYPE) + ENDIF + ENDIF + 201 IRET2 = 1 + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE UPDATE( HNEW,THCKHN,IPAS,fmfb ) + +C----------------------------------------------------------------------- +C UPDATE(S PARTICLE PARAMETERS) +C +C UPDATES PARTICLE PARAMETERS TO OBSERVATION LEVEL WITH NUMBER IPAS +C OR TO POINT OF INTERACTION OR DECAY (IPAS=0) +C FOR CHARGED PARTICLES THE ENERGY LOSS IS COMPUTED FOR THE WHOLE STEP, +C SUBDIVIDED BY THE BOUNDARIES OF THE ATMOSPHERIC LAYERS. +CCCTHE PARTICLE IS FLYING THE 1ST HALF (DH/2) WITH INITIAL ENERGY +C THE PARTICLE IS FLYING THE 1ST HALF (CHI/2) WITH INITIAL ENERGY +C AND ANGLE AND THE 2ND HALF WITH FINAL ENERGY AND ANGLE. +C THE TIME CALCULATION FOLLOWS THIS SIMPLIFICATION. +C CHARGED PARTICLES ARE DEFLECTED IN THE EARTH MAGNETIC FIELD. +C THE ANGLE OF DEFLECTION BY MULTIPLE SCATTERING IS COMPUTED ONLY +C FOR MUONS AND ONLY ONCE FOR THE WHOLE STEP AT HALF THICKNESS. +C IF PARTICLES COME TO REST BY STOPPING, THEIR PATH TO THE STOPPING +C POINT IS CALCULATED. +C CHERENKOV RADIATION IS CALCULATED ONLY FOR LOWEST OBSERVATION LEVEL +C THIS SUBROUTINE IS CALLED FROM AAMAIN, BOX3, MUTRAC +C AND UPDATC. +C ARGUMENTS: +C HNEW = ALTITUDE OF PARTICLE AFTER UPDATE +C THCKHN = THICKNESS OF HNEW +C IPAS = 0 TRANSPORT TO END OF RANGE OF PARTICLE +C .NE. 0 TRANSPORT TO PASSAGE OF OBSERVATION LEVEL IPAS +C +C REDESIGN: D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MAGNET. + COMMON /MAGNET/ BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT + DOUBLE PRECISION BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,CORFRAM, IF=CURVED. + COMMON /CORFRAM/ DETSYS + LOGICAL DETSYS +*KEND. + + DOUBLE PRECISION ALPHA1,ALPHA2,BETAN,DENS,DH,DR,DTHICK,ELOSS, + * FNORM1,FNORM2,F1COS1,F1COS2,F1SIN1,F1SIN2, + * GAMMAN,GAMSQ,GLCUT,GMSQM1,HEIGH,HMIDDL, + * HNEW,OMEGA,PHI1,RADINV,RANNOR, + * SINTH1,SINTH2,SN,SN1,SN2,SN3,SN4, + * SNMIDDL1,SNMIDDL2,THICK, + * THCKHN,THICKMDL,USW,U10,U12,U20,U22,V,VVV, + * V10,V12,V20,V22,W10,W12,W20,W22 + INTEGER I,IL,IPAS + LOGICAL CFLAG,MUS + DOUBLE PRECISION GAM0,TH0 + DOUBLE PRECISION CHIT,DT,GAMK,HNEWC,RATIO,THCKHC + INTEGER ILAY + LOGICAL TCRNKV,TFLAG +c-----changed--add + logical fmfb +c-----changed--add + DOUBLE PRECISION AUXIL,CORR,DX,DY,SINDIF,TRANS2 + SAVE + EXTERNAL HEIGH,RANNOR,THICK + DOUBLE PRECISION XBEG,YBEG,ZBEG,TBEG,EBEG,XEND,YEND,ZEND,TEND, + * EEND,TPART,XPART,YPART,ZPART,WTPART,CTEA + DATA CFLAG /.TRUE./ +C----------------------------------------------------------------------- + + IF (DEBUG) WRITE(MDEBUG,457) (CURPAR(I),I=1,9),HNEW + 457 FORMAT(' UPDATE: CURPAR=',1P,9E10.3/ + * ' TO HEIGHT ',0P,F13.1) + + IRET2 = 1 + IRETE = .FALSE. +C TOTAL HEIGHT DIFFERENCE + DH = MAX( H - HNEW, 1.D-10 ) +C ATMOSPHERE THICKNESS TRAVERSED + DTHICK = MAX( 0.D0, (THCKHN - THICKH) / COSTHE ) +C TOTAL PATH FOR UNDEFLECTED PARTICLE + SN = DH / COSTHE +C GEOMETRICAL MIDDLE +CDH HMIDDL = H - 0.5D0*DH +C MIDDLE OF THICKNESS + THICKMDL = THICKH + 0.5D0*DTHICK*COSTHE + HMIDDL = HEIGH(THICKMDL) + + SNMIDDL1 = ((H-HMIDDL))/COSTHE + SNMIDDL2 = SN - SNMIDDL1 + SN1 = 0.5D0 * SNMIDDL1 + + +C CALCULATE KINETIC ENERGY CUT + IF ( ITYPE .EQ. 5 .OR. ITYPE .EQ. 6 ) THEN + MUS = .TRUE. + GLCUT = ELCUT(2) / PAMA(ITYPE) + 1.D0 + ELSE + MUS = .FALSE. + GLCUT = ELCUT(1) / PAMA(ITYPE) + 1.D0 + ENDIF + +C CALCULATE THE ENERGY LOSS FOR CHARGED PARTICLES + IF ( SIGNUM(ITYPE) .NE. 0.D0 ) THEN +C LOOK WITHIN WHICH LAYER THE PARTICLE STARTS + IF ( H .LE. HLAY(2) ) THEN + ILAY = 1 + TH0 = THICKH + ELSEIF ( H .LE. HLAY(3) ) THEN + ILAY = 2 + TH0 = THICKH + ELSEIF ( H .LE. HLAY(4) ) THEN + ILAY = 3 + TH0 = THICKH + ELSE + ILAY = 4 + TH0 = MAX( THICKH, THICKL(5) ) + ENDIF +C SET START VALUES FOR ITERATION + GAM0 = GAMMA + IL = ILAY + 1 CONTINUE + GAM0 = MAX( GAM0, 1.0001D0 ) + GAMSQ = GAM0**2 + GMSQM1 = GAMSQ - 1.D0 +C ENERGY LOSS BY IONIZATION + ELOSS = SIGNUM(ITYPE)**2 * C(22) * + * ( GAMSQ * (LOG(GMSQM1) + C(23)) / GMSQM1 - 1.D0 ) +C LOOK WETHER PARTICLE PENETRATES LAYER BOUNDARY + IF ( THICKL(IL) .LT. THCKHN .AND. IL .GT. 1 ) THEN +C CALCULATE NEW START VALUES AT LAYER BOUNDARY + GAM0 = GAM0 - ELOSS * (THICKL(IL) - TH0) + * / (PAMA(ITYPE)*COSTHE) + IF ( GAM0 .LE. 1.D0 ) THEN + GAMMAN = 1.0001D0 + GOTO 3 + ENDIF + TH0 = THICKL(IL) + IL = IL - 1 + GOTO 1 + ENDIF +C GAMMA VALUE FOR CHARGED PARTICLES AT END OF STEP + GAMMAN = GAM0 - ELOSS * (THCKHN-TH0) / (PAMA(ITYPE)*COSTHE) + 3 CONTINUE + + ELSE +C NO LOSS FOR NEUTRAL PARTICLES + GAMMAN = GAMMA + ENDIF + + IF ( LLONGI .OR. CFLAG ) THEN +C PARTICLE HAS TO BE TRACKED TO THE CUTOFF ENERGY FOR CHERENKOV PHOTONS +C OR FOR LONGITUDINAL DISTRIBUTIONS (AS NEUTRAL DO NOT LOOSE ENERGY IN +C UPDATE, THIS CONDITION IS FULFILLED BY CHARGED PARTICLES ONLY) + IF ( SIGNUM(ITYPE) .NE. 0.D0 .AND. GAMMAN .LT. GLCUT ) THEN + GAMMAN = 0.9D0 + GLCUT * 0.1D0 + +C SET START VALUES FOR ITERATION + IL = ILAY + CHIT = 0.D0 + GAM0 = GAMMA + TH0 = MAX( THICKH, THICKL(5) ) + 2 CONTINUE + GAM0 = MAX( GAM0, 1.0001D0 ) + GAMSQ = GAM0**2 + GMSQM1 = GAMSQ - 1.D0 +C ENERGY LOSS BY IONIZATION + ELOSS = SIGNUM(ITYPE)**2 * C(22) * + * ( GAMSQ * (LOG(GMSQM1) + C(23)) / GMSQM1 -1.D0 ) + ELOSS = ELOSS / (PAMA(ITYPE) * COSTHE) + GAMK = GAM0 - ELOSS * (THICKL(IL) - TH0) +C LOOK WETHER PARTICLE PENETRATES LAYER BOUNDARY + IF ( GAMMAN .LT. GAMK .AND. IL. GT. 1 ) THEN +C CALCULATE PORTION OF RANGE AND NEW START VALUES AT LAYER BOUNDARY + CHIT = CHIT + (THICKL(IL) - TH0) / COSTHE + GAM0 = GAMK + TH0 = THICKL(IL) + IL = IL - 1 + GOTO 2 + ENDIF +C PENETRATED MATTER THICKNESS + CHI = CHIT + (GAM0 - GAMMAN) / (ELOSS*COSTHE) + IF ( DEBUG ) WRITE(MDEBUG,*) 'UPDATE: GAMMAN,CHI=', + * SNGL(GAMMAN),SNGL(CHI) +C CALCULATE CORRECTED PATH PARAMETERS + THCKHC = THICKH + COSTHE * CHI + HNEWC = HEIGH(THCKHC) + DT = SN / (C(25) * BETA * GAMMA) + RATIO = .5D0 * (H-HNEWC) / DH + DH = MAX( H - HNEWC, 1.D-10 ) + SN = DH / COSTHE +C GEOMETRICAL MIDDLE +CDH HMIDDL = H - 0.5D0*DH +C MIDDLE OF THICKNESS + THICKMDL = THICKH + 0.5D0*CHI*COSTHE + HMIDDL = HEIGH(THICKMDL) + SNMIDDL1 = ((H-HMIDDL))/COSTHE + SNMIDDL2 = SN - SNMIDDL1 + SN1 = 0.5D0 * SNMIDDL1 + TFLAG = .TRUE. + ELSE + TFLAG = .FALSE. + ENDIF + ELSE + IF ( GAMMAN .LT. GLCUT ) THEN +C REJECT ALL PARTICLES IF BELOW KINETIC ENERGY CUT + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'UPDATE: PARTICLE ',ITYPE,' BELOW ENERGY CUT' + IRETE = .TRUE. + RETURN + ENDIF + ENDIF + +C----------------------------------------------------------------------- + IF ( IPAS .EQ. 0 ) THEN +C UPDATE TO THE END POINT OF THE TRACK + + IF ( MUS ) THEN +C COULOMB SCATTERING ANGLE (FOR MUONS ONLY) + IF ( FMOLI ) THEN +C TREAT MUON MULTIPLE SCATTERING BY MOLIERE THEORY (SEE GEANT) +C CALCULATE AVERAGE DENSITY AND NUMBER OF SCATTERING (OMEGA) + DENS = COSTHE * CHI/DH + OMEGA = OMC * CHI / BETA**2 + IF ( OMEGA .LE. 20.D0 ) THEN +C FEW SCATTERING EVENTS, APPLY PLURAL COULOMB SCATTERING + CALL MUCOUL(OMEGA,DENS) + ELSE +C ENOUGH SCATTERING EVENTS, APPLY MOLIERE'S THEORY + CALL MMOLIE(OMEGA,DENS) + ENDIF + ELSE +C TREAT MUON MULTIPLE SCATTERING BY GAUSS DISTRIBUTION + VSCAT = RANNOR( 0.D0, C(30) * SQRT( CHI/C(21) ) + * / (PAMA(5) * GAMMA * BETA**2) ) + ENDIF + CALL RMMAR( RD,1,1 ) + PHISCT = RD(1) * PI2 + V = VSCAT + IF (DEBUG) WRITE(MDEBUG,*) 'UPDATE: VSCAT=',SNGL(VSCAT), + * ' PHISCT=',SNGL(PHISCT) + ENDIF + + IF ( LLONGI .OR. CFLAG ) THEN + IF ( TFLAG ) THEN + HNEW = HNEWC + THCKHN = THCKHC + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'UPDATE: CHANGED HNEW =',SNGL(HNEW) + ENDIF +C CHERENKOV RADIATION: LOOK, WHETHER PATH ENDS ABOVE LOWEST OBSERV.LEVEL + TCRNKV = .TRUE. + ENDIF + +C UPDATE TO THE OBSERVATION LEVELS + ELSE + IF ( MUS ) THEN +C COULOMB SCATTERING ANGLE (FOR MUONS ONLY) + V = VSCAT * SQRT( DTHICK / CHI ) + ENDIF + IF ( LLONGI .OR. CFLAG ) THEN +C CHERENKOV RADIATION: LOOK, WHETHER LOWEST OBSERVATION LEVEL + IF ( IPAS .EQ. NOBSLV ) THEN + TCRNKV = .TRUE. + ELSE + TCRNKV = .FALSE. + ENDIF + ENDIF + ENDIF + + IF ( LLONGI .OR. CFLAG ) THEN +C REJECT ALL PARTICLES IF BELOW KINETIC ENERGY CUT + IF ( GAMMAN .LT. GLCUT .AND. .NOT.TCRNKV ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'UPDATE: PARTICLE ',ITYPE, + * ' BELOW ENERGY CUT, CHERENKOV LIGHT NOT CALCULATED' + OUTPAR(2) = GAMMAN + IRETE = .TRUE. + RETURN + ENDIF + ENDIF + +C----------------------------------------------------------------------- +C TRANSPORT CHARGED PARTICLES THE FIRST PORTION OF STEP + IF ( SIGNUM(ITYPE) .NE. 0.D0 ) THEN +C CHARGED PARTICLES SUFFER IONIZATION LOSS, DEFLECTION IN MAGNETIC +C FIELD AND MUONS IN ADDITION DO MULTIPLE COULOMB SCATTERING. +C DEFLECTION IN EARTH MAGNETIC FIELD ON FIRST HALF OF STEP +c--------changed---add + if(fmfb) then +cc ALPHA1 = SIGNUM(ITYPE) * +cc * MIN( 1.D0, 2.D0*SN1*BNORMC /(PAMA(ITYPE)*BETA*GAMMA) ) + SINTH1 = SQRT( 1.D0 - COSTHE**2 ) + U10 = SINTH1 * COS(-PHI) + V10 = SINTH1 * SIN(-PHI) + W10 = COSTHE +cc FNORM1 = 1.D0 - 0.5D0*ALPHA1**2 * (1.D0 - 0.75D0*ALPHA1**2) +cc F1COS1 = ( 1.D0 - FNORM1 ) * COSB +cc F1SIN1 = ( 1.D0 - FNORM1 ) * SINB +cc VVV = V10 * ALPHA1 * FNORM1 +cc USW = U10 * SINB - W10 * COSB +cc U12 = U10 - F1SIN1 * USW + VVV * SINB +cc V12 = FNORM1 * ( V10 - ALPHA1 * USW ) +cc W12 = W10 + F1COS1 * USW - VVV * COSB + U12 = U10 + V12 = V10 + W12 = W10 + + + RADINV = 1.5D0 - 0.5D0 * ( U12**2 + V12**2 + W12**2 ) + W12 = MIN( 1.D0, RADINV * W12 ) + IF ( W12 .LE. C(29) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'UPDATE: PARTICLE ',ITYPE,' BELOW ANGLE CUT 1' + IRETE = .FALSE. + RETURN + ENDIF + SN2 = SN1 * COSTHE / W12 + U12 = RADINV * U12 + V12 = RADINV * V12 + IF ( U12 .NE. 0.D0 .OR. V12 .NE. 0.D0 ) THEN + PHI1 = -ATAN2( V12, U12 ) + ELSE + PHI1 = 0.D0 + ENDIF + + else +c--------changed---add + ALPHA1 = SIGNUM(ITYPE) * + * MIN( 1.D0, 2.D0*SN1*BNORMC /(PAMA(ITYPE)*BETA*GAMMA) ) + SINTH1 = SQRT( 1.D0 - COSTHE**2 ) + U10 = SINTH1 * COS(-PHI) + V10 = SINTH1 * SIN(-PHI) + W10 = COSTHE + FNORM1 = 1.D0 - 0.5D0*ALPHA1**2 * (1.D0 - 0.75D0*ALPHA1**2) + F1COS1 = ( 1.D0 - FNORM1 ) * COSB + F1SIN1 = ( 1.D0 - FNORM1 ) * SINB + VVV = V10 * ALPHA1 * FNORM1 + USW = U10 * SINB - W10 * COSB + U12 = U10 - F1SIN1 * USW + VVV * SINB + V12 = FNORM1 * ( V10 - ALPHA1 * USW ) + W12 = W10 + F1COS1 * USW - VVV * COSB + RADINV = 1.5D0 - 0.5D0 * ( U12**2 + V12**2 + W12**2 ) + W12 = MIN( 1.D0, RADINV * W12 ) + IF ( W12 .LE. C(29) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'UPDATE: PARTICLE ',ITYPE,' BELOW ANGLE CUT 1' + IRETE = .FALSE. + RETURN + ENDIF + SN2 = SN1 * COSTHE / W12 + U12 = RADINV * U12 + V12 = RADINV * V12 + IF ( U12 .NE. 0.D0 .OR. V12 .NE. 0.D0 ) THEN + PHI1 = -ATAN2( V12, U12 ) + ELSE + PHI1 = 0.D0 + ENDIF +c--------changed---add + endif +c--------changed---add +C CHERENKOV RADIATION: FILL PARTICLE COORDINATES + IF ( TCRNKV ) THEN +C ..BEG ARE THE COORDINATES AT BEGIN OF THIS STEP +C ..PART ARE THE COORDINATES AT END OF THIS STEP + IF ( .NOT. DETSYS ) THEN +C TRANSFORM INTO DETECTOR FRAME +C FIRST CALCULATE STEP TO X AND Y ALONG EARTH SURFACE + DX = +SN1 * U10 + SN2 * U12 + DY = -SN1 * V10 - SN2 * V12 + TRANS2 = DX**2 + DY**2 + AUXIL = SQRT( TRANS2 + (C(1)+HMIDDL)**2 ) + SINDIF = SQRT(TRANS2) / AUXIL + IF ( SINDIF .GT. 0.D0 ) THEN + CORR = C(1) * ASIN(SINDIF) / (AUXIL*SINDIF) + ELSE + CORR = 1.D0 + ENDIF + XPART = X + DX*CORR + YPART = Y + DY*CORR +C CALCULATE ANGLE BETWEEN THE ACTUAL LOCAL AND THE APPARENT COORDINATE +C SYSTEM (IMPORTANT FOR DECIDING IN CERENK IF FIRST OR SECOND CALL +C AND TO CALCULATE THE INTERMEDIATE DIF ANGLE) + AUXIL = SQRT( X**2 + Y**2 ) + CTEA = COS( AUXIL/C(1) ) +C NOW TRANSFORM THEM IN DETECTOR FRAME. ATTENTION: ANGLE MIGHT BE +C VERY LARGE, THEREFORE APPROXIMATION TAN(X) EQUAL X IS NOT ALLOWED! +C SINCE X = X(HAPP), DON'T TRANSFORM X AND Y HERE BUT IN CERENK + XBEG = X + YBEG = Y + ELSE + CTEA = 1.D0 + XBEG = X + YBEG = Y + XPART = X + SN1 * U10 + SN2 * U12 + YPART = Y - SN1 * V10 - SN2 * V12 + ENDIF + TPART = T + ( SN1 + SN2 ) / ( C(25) * BETA ) +CDH ZPART = H - DH * 0.5D0 + ZPART = HMIDDL +C SET OTHER FUNCTION ARGUMENTS + TBEG = T + ZBEG = H + EBEG = PAMA(ITYPE)*GAMMA + TEND = TPART + XEND = XPART + YEND = YPART + ZEND = ZPART + EEND = PAMA(ITYPE)*GAMMAN + WTPART = 1.D0 + CALL CERENK(SN1+SN2,U12,-V12,W12,EBEG,EEND-0.5D0*(EEND-EBEG), + * XBEG,YBEG,ZBEG,XEND,YEND,ZEND,TBEG,TEND, + * PAMA(ITYPE),SIGNUM(ITYPE),WTPART,CTEA) + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C CHANGE DIRECTION BY COULOMB SCATTERING (FOR MUONS ONLY) + IF ( MUS ) THEN +C BEFORE SCATTERING : DIRECTION COSINES ARE U12,V12,W12 + CALL ADDANG( W12,PHI1, COS(V),PHISCT, W20,PHI1 ) + IF ( W20 .LE. C(29) ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'UPDATE: MUON BELOW ANGLE CUT' + IRETE = .FALSE. + RETURN + ENDIF + SINTH2 = SQRT( 1.D0 - W20**2 ) + U20 = SINTH2 * COS( -PHI1 ) + V20 = SINTH2 * SIN( -PHI1 ) +C AFTER SCATTERING : DIRECTION COSINES ARE U20,V20,W20 + IF ( HNEW .GT. OBSLEV(1) ) THEN +C CORRECT ARRIVAL HEIGHT ACCORDING TO INTERACTION OR DECAY + IF ( FDECAY ) THEN +C IN CASE OF DECAY THE PATH LENGTH SNMIDDL2 IS KEPT CONSTANT + HNEW = HMIDDL - SNMIDDL2 * W20 + THCKHN = THICK(HNEW) + CHI = 0.5D0 * CHI + (THCKHN - THICKMDL)/W20 + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'UPDATE: DECAY HNEW=',SNGL(HNEW),' CH=',SNGL(CHI) + CHI = MAX( CHI, 1.D-20) + ELSE +C IN CASE OF INTERACTION THE PENETRATED MATTER IS KEPT CONSTANT + THCKHN = THICKMDL + 0.5D0*CHI*W20 + HNEW = HEIGH(THCKHN) + SNMIDDL2 = (HMIDDL - HNEW)/W20 + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'UPDATE: INTERACT HNEW=',SNGL(HNEW),' SNMIDDL2=',SNMIDDL2 + ENDIF + STEPL = SNMIDDL1 + SNMIDDL2 + SN3 = 0.5D0 * SNMIDDL2 + ELSE +C KEEP ARRIVAL HEIGHT AND SNMIDDL2, PARTICLE ARRIVES AT OBSERV. LEVEL + SN3 = 0.5D0 * SNMIDDL2 * COSTHE / W20 + ENDIF + ELSE + U20 = U12 + V20 = V12 + W20 = W12 + SN3 = 0.5D0 * SNMIDDL2 * COSTHE / W20 + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C TRANSPORT CHARGED PARTICLES THE SECOND PORTION OF STEP +C NEW PATH LENGTH, NEW BETA VALUE BECAUSE OF IONIZATION ENERGY LOSS + BETAN = SQRT( GAMMAN**2 - 1.D0 ) / GAMMAN +C DEFLECTION IN EARTH MAGNETIC FIELD ON SECOND HALF OF STEP +c--------changed---add + if(fmfb) then + +cc ALPHA2 = SIGNUM(ITYPE) * +cc * MIN(1.D0,2.D0*SN3*BNORMC / (PAMA(ITYPE)*BETAN*GAMMAN)) +cc FNORM2 = 1.D0 - 0.5D0*ALPHA2**2 * (1.D0 - 0.75D0*ALPHA2**2) +cc F1SIN2 = ( 1.D0 - FNORM2 ) * SINB +cc F1COS2 = ( 1.D0 - FNORM2 ) * COSB +cc VVV = V20 * ALPHA2 * FNORM2 +cc USW = U20 * SINB - W20 * COSB +cc U22 = U20 - F1SIN2 * USW + VVV * SINB +cc V22 = FNORM2 * ( V20 - ALPHA2 * USW ) +cc W22 = W20 + F1COS2 * USW - VVV * COSB + U22 = U20 + V22 = V20 + W22 = W20 + + + RADINV = 1.5D0 - 0.5D0 * ( U22**2 + V22**2 + W22**2 ) + W22 = MIN( 1.D0, RADINV * W22 ) + IF ( W22 .LE. C(29) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'UPDATE: PARTICLE ',ITYPE,' BELOW ANGLE CUT 2' + IRETE = .FALSE. + RETURN + ENDIF + SN4 = SN3 * W20 / W22 + U22 = RADINV * U22 + V22 = RADINV * V22 + + else +c--changed---add + + ALPHA2 = SIGNUM(ITYPE) * + * MIN(1.D0,2.D0*SN3*BNORMC / (PAMA(ITYPE)*BETAN*GAMMAN)) + FNORM2 = 1.D0 - 0.5D0*ALPHA2**2 * (1.D0 - 0.75D0*ALPHA2**2) + F1SIN2 = ( 1.D0 - FNORM2 ) * SINB + F1COS2 = ( 1.D0 - FNORM2 ) * COSB + VVV = V20 * ALPHA2 * FNORM2 + USW = U20 * SINB - W20 * COSB + U22 = U20 - F1SIN2 * USW + VVV * SINB + V22 = FNORM2 * ( V20 - ALPHA2 * USW ) + W22 = W20 + F1COS2 * USW - VVV * COSB + RADINV = 1.5D0 - 0.5D0 * ( U22**2 + V22**2 + W22**2 ) + W22 = MIN( 1.D0, RADINV * W22 ) + IF ( W22 .LE. C(29) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'UPDATE: PARTICLE ',ITYPE,' BELOW ANGLE CUT 2' + IRETE = .FALSE. + RETURN + ENDIF + SN4 = SN3 * W20 / W22 + U22 = RADINV * U22 + V22 = RADINV * V22 +c--changed---add + endif +c--changed---add + + OUTPAR(3) = W22 + IF ( U22 .NE. 0.D0 .OR. V22 .NE. 0.D0 ) THEN + OUTPAR(4) = -ATAN2( V22, U22 ) + ELSE + OUTPAR(4) = 0.D0 + ENDIF +C UPDATE COORDINATES AND TIME TO THE END OF DISTANCE + IF ( (LLONGI .OR. CFLAG) .AND. TFLAG ) THEN + OUTPAR(6) = T + DT* ( RATIO*GAMMA + (1.D0-RATIO)*GAMMAN) + ELSE + OUTPAR(6) = T + (SN1 + SN2)/(BETA *C(25)) + + * (SN3 + SN4)/(BETAN*C(25)) + ENDIF + OUTPAR(7) = X + SN1*U10 + SN2*U12 + SN3*U20 + SN4*U22 + OUTPAR(8) = Y - SN1*V10 - SN2*V12 - SN3*V20 - SN4*V22 +C CHERENKOV RADIATION: FILL PARTICLE COORDINATES + IF ( TCRNKV ) THEN + IF ( .NOT. DETSYS ) THEN +C RESAVE OLD COORDINATES DUE TO DIFFERENT DEFINITION IN CERENK +C (COORDINATES WERE TRANSFORMED IN CERENK) + XEND = XPART + YEND = YPART + ZEND = ZPART +C TRANSFORM INTO DETECTOR FRAME +C FIRST CALCULATE STEP TO X AND Y ALONG EARTH SURFACE + DX = +SN1*U10 + SN2*U12 + SN3*U20 + SN4*U22 + DY = -SN1*V10 - SN2*V12 - SN3*V20 - SN4*V22 + TRANS2 = DX**2 + DY**2 + AUXIL = SQRT( TRANS2 + (C(1)+HNEW)**2 ) + SINDIF = SQRT(TRANS2) / AUXIL + IF ( SINDIF .GT. 0.D0 ) THEN + CORR = C(1)*ASIN(SINDIF)/(AUXIL*SINDIF) + ELSE + CORR = 1.D0 + ENDIF + XPART = X + DX*CORR + YPART = Y + DY*CORR +C CALCULATE EARTH ANGLE BETWEEN THE ACTUAL LOCAL AND THE +C APPARENT COORDINATE SYSTEM (SEE ABOVE) + AUXIL = SQRT( X**2 + Y**2 ) + CTEA = COS( AUXIL/C(1) ) +C NOW TRANSFORM THEM IN DETECTOR FRAME. ATTENTION: ANGLE MIGHT BE +C VERY LARGE, THEREFORE APPROXIMATION TAN(X) EQUAL X IS NOT ALLOWED! +C DON'T TRANSFORM X AND Y HERE BUT IN CERENK (SEE ABOVE) +C XBEG=XEND(LAST PART) AND YBEG=YEND(LAST PART) ARE SET ABOVE + ELSE + CTEA = 1.D0 + XPART = OUTPAR(7) + YPART = OUTPAR(8) + ENDIF + ZPART = HNEW + TPART = OUTPAR(6) +C SET OTHER FUNCTION ARGUMENTS (FORMER END IS NOW THE BEGIN) + TBEG = TEND + XBEG = XEND + YBEG = YEND + ZBEG = ZEND + TEND = TPART + XEND = XPART + YEND = YPART + ZEND = ZPART + WTPART = 1.D0 + CALL CERENK(SN3+SN4,U22,-V22,W22,EBEG+0.5*(EEND-EBEG),EEND, + * XBEG,YBEG,ZBEG,XEND,YEND,ZEND,TBEG,TEND, + * PAMA(ITYPE),SIGNUM(ITYPE),WTPART,CTEA) + ENDIF +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + +C REJECT PARTICLES AFTER PRODUCTION OF CHERENKOV LIGHT +C AND LONGITUDINAL DEVELOPMENT + IF ( (LLONGI .OR. CFLAG) .AND. TCRNKV ) THEN + IF ( GAMMAN .LT. GLCUT ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'UPDATE: PARTICLE ',ITYPE, + * ' BELOW ENERGY CUT AFTER CREATION OF CHERENKOV LIGHT' + OUTPAR(2) = GAMMAN + IRETE = .TRUE. + RETURN + ENDIF + ENDIF + +C----------------------------------------------------------------------- + ELSE +C NEUTRAL PARTICLES +C NO COULOMB SCATTERING, NO DEFLECTION IN MAGNETIC FIELD + +C HORIZONTAL PATH LENGTH + DR = SN * SQRT( 1.D0 - COSTHE**2 ) +C UPDATE COORDINATES AND TIME + OUTPAR(3) = COSTHE + OUTPAR(4) = PHI + OUTPAR(6) = T + SN / ( C(25) * BETA ) + OUTPAR(7) = X + DR * COS(PHI) + OUTPAR(8) = Y + DR * SIN(PHI) + + ENDIF + +C----------------------------------------------------------------------- + OUTPAR( 1) = CURPAR(1) + OUTPAR( 2) = GAMMAN + OUTPAR( 5) = HNEW + OUTPAR( 9) = GEN + OUTPAR(10) = ALEVEL + + IF (DEBUG) WRITE(MDEBUG,458) (OUTPAR(I),I=1,9) + 458 FORMAT(' UPDATE: OUTPAR=',1P,8E10.3,0P,F10.0) + + +C REGULAR END OF UPDATE + IRET2 = 0 + RETURN + END +*CMZ : 27/02/2002 16.27.14 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 27/04/94 +C======================================================================= + + SUBROUTINE VAPOR(MAPROJ,INEW,JFIN,ITYP,PFRX,PFRY) + +C----------------------------------------------------------------------- +C (E)VAPOR(ATION OF NUCLEONS AND ALPHA PARTICLES FROM FRAGMENT) +C +C TREATES THE REMAINING UNFRAGMENTED NUCLEUS +C EVAPORATION FOLLOWING CAMPI APPROXIMATION +C SEE: X. CAMPI AND J. HUEFNER, PHYS.REV. C24 (1981) 2199 +C AND J.J. GAIMARD, THESE UNIVERSITE PARIS 7, (1990) +C THIS SUBROUTINE IS CALLED FROM SDPM AND VSTORE. +C ARGUMENTS INPUT: +C MAPROJ = NUMBER OF NUCLEONS OF PROJECTILE +C INEW = PARTICLE TYPE OF SPECTATOR FRAGMENT +C ARGUMENTS OUTPUT: +C JFIN = NUMBER OF FRAGMENTS +C ITYP(1:JFIN) = NATURE (PARTICLE CODE) OF FRAGMENTS (GEANT) +C PFRX(1:JFIN) = TRANSVERSE MOMENTUM OF FRAGMENTS IN X-DIRECTION +C PFRY(1:JFIN) = TRANSVERSE MOMENTUM OF FRAGMENTS IN Y-DIRECTION +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION PFR(60),PFRX(60),PFRY(60) + DOUBLE PRECISION AFIN,AGLH,APRF,BGLH,EEX,PHIFR,RANNOR,SPFRX,SPFRY + INTEGER ITYP(60),IARM,INEW,ITYPRM,INRM,IS,IZRM,JC,JFIN, + * K,L,LS,MAPROJ,MF,NFIN,NINTA,NNUC,NPRF,NNSTEP + SAVE + EXTERNAL RANNOR +C----------------------------------------------------------------------- + + IF (DEBUG) WRITE(MDEBUG,*) 'VAPOR : MAPROJ,INEW = ',MAPROJ,INEW + + ITYPRM = INEW + NPRF = INEW/100 + NINTA = MAPROJ - NPRF + IF ( NINTA .EQ. 0 ) THEN +C NO NUCLEON HAS INTERACTED + JFIN = 1 + PFR(1) = 0.D0 + ITYP(1) = INEW + IF (DEBUG) WRITE(MDEBUG,*) 'VAPOR : JFIN,NINTA= ',JFIN,NINTA + RETURN + ENDIF + +C EXCITATION ENERGY EEX OF PREFRAGMENT +C SEE: J.J. GAIMARD, THESE UNIVERSITE PARIS 7, (1990), CHPT. 4.2 + EEX = 0.D0 + CALL RMMAR(RD,2*NINTA,1) + DO 22 L = 1,NINTA + IF ( RD(NINTA+L) .LT. RD(L) ) RD(L) = 1. - RD(L) + EEX = EEX + RD(L) + 22 CONTINUE +C DEPTH OF WOODS-SAXON POTENTIAL TO FERMI SURFACE IS 0.040 GEV + IF (DEBUG) WRITE(MDEBUG,*)'VAPOR : EEX = ',SNGL(EEX*0.04D0),' GEV' +C EVAPORATION: EACH EVAPORATION STEP NEEDS ABOUT 0.020 GEV, THEREFORE +C NNSTEP IS EEX * 0.04/0.02 = EEX * 2. + NNSTEP = INT(EEX*2.D0) + + IF ( NNSTEP .LE. 0 ) THEN +C EXCITATION ENERGY TOO SMALL, NO EVAPORATION + JFIN = 1 + PFR(1) = 0.D0 + ITYP(1) = INEW + IF (DEBUG) WRITE(MDEBUG,*) 'VAPOR : JFIN,EEX = ',JFIN,SNGL(EEX) + RETURN + ENDIF + +C AFIN IS ATOMIC NUMBER OF FINAL NUCLEUS + APRF = FLOAT(NPRF) + AFIN = APRF - 1.6D0 * FLOAT(NNSTEP) + NFIN = MAX( INT(AFIN+0.5D0), 0 ) +C CORRESPONDS TO DEFINITION; FRAGMENTATION-EVAPORATION +C CONVOLUTION EMU07 /MODEL ABRASION EVAPORATION (JNC FZK APRIL 94) +C NNUC IS NUMBER OF EVAPORATING NUCLEONS + NNUC = NPRF - NFIN + IF ( DEBUG ) WRITE(MDEBUG,*) 'VAPOR : NFIN,NNUC = ',NFIN,NNUC + JC = 0 + + IF ( NNUC .LE. 0 ) THEN +C NO EVAPORATION + JFIN = 1 + PFR(1) = 0.D0 + ITYP(1) = INEW + RETURN + + ELSEIF ( NNUC .GE. 4 ) THEN +C EVAPORATION WITH FORMATION OF ALPHA PARTICLES POSSIBLE +C IARM, IZRM, INRM ARE NUMBER OF NUCLEONS, PROTONS, NEUTRONS OF +C REMAINDER + DO 31 LS = 1,NNSTEP + IARM = ITYPRM/100 + IF ( IARM .LE. 0 ) GOTO 100 + IZRM = MOD(ITYPRM,100) + INRM = IARM - IZRM + JC = JC + 1 + CALL RMMAR(RD,2,1) + IF ( RD(1).LT.0.2 .AND. IZRM.GE.2 .AND. INRM.GE.2 ) THEN + ITYP(JC) = 402 + NNUC = NNUC - 4 + ITYPRM = ITYPRM - 402 + ELSE + IF ( RD(2)*(IZRM+INRM) .LT. IZRM ) THEN + ITYP(JC) = 14 + ITYPRM = ITYPRM - 101 + ELSE + ITYP(JC) = 13 + ITYPRM = ITYPRM - 100 + ENDIF + NNUC = NNUC - 1 + ENDIF + IF ( NNUC .LE. 0 ) GOTO 50 + 31 CONTINUE + ENDIF + + IF ( NNUC .LT. 4 ) THEN +C EVAPORATION WITHOUT FORMATION OF ALPHA PARTICLES + CALL RMMAR(RD,NNUC,1) + DO 32 IS = 1,NNUC + IARM = ITYPRM/100 + IF ( IARM .LE. 0 ) GOTO 100 + IZRM = MOD(ITYPRM,100) + JC = JC + 1 + IF ( RD(IS)*IARM .LT. IZRM ) THEN + ITYP(JC) = 14 + ITYPRM = ITYPRM - 101 + ELSE + ITYP(JC) = 13 + ITYPRM = ITYPRM - 100 + ENDIF + 32 CONTINUE + ENDIF + + 50 CONTINUE + JC = JC + 1 + IF ( ITYPRM .GT. 101 ) THEN + ITYP(JC) = ITYPRM + ELSEIF ( ITYPRM .EQ. 101 ) THEN + ITYP(JC) = 14 + ELSEIF ( ITYPRM .EQ. 100 ) THEN + ITYP(JC) = 13 + ELSE + JC = JC - 1 + IF ( ITYPRM .NE. 0 ) WRITE(MONIOU,*) + * 'VAPOR : ILLEGAL PARTICLE ITYPRM =',ITYPRM + ENDIF + + 100 JFIN = JC + IF (DEBUG) WRITE(MDEBUG,*) 'VAPOR : NO ITYP PFR' + IF ( NFRAGM .EQ. 2 ) THEN +C EVAPORATION WITH PT AFTER PARAMETRIZED JACEE DATA + DO 150 MF = 1,JFIN + PFR(MF) = RANNOR(0.088D0,0.044D0) + IF ( DEBUG ) WRITE(MDEBUG,*) MF,ITYP(MF),SNGL(PFR(MF)) + 150 CONTINUE + ELSEIF ( NFRAGM .EQ. 3 ) THEN +C EVAPORATION WITH PT AFTER GOLDHABER'S MODEL (PHYS.LETT.53B(1974)306) + DO 160 MF = 1,JFIN + K = MAX( 1, ITYP(MF)/100 ) + BGLH = K * (MAPROJ - K) / FLOAT(MAPROJ-1) +C THE VALUE 0.103 [GEV] IS SIGMA(0)=P(FERMI)/SQRT(5.) +* AGLH = 0.103D0 * SQRT( BGLH ) +C THE VALUE 0.090 [GEV] IS EXPERIMENTALLY DETERMINED SIGMA(0) + AGLH = 0.090D0 * SQRT( BGLH ) + PFR(MF) = RANNOR(0.D0,AGLH) + IF ( DEBUG ) WRITE(MDEBUG,*) MF,ITYP(MF),SNGL(PFR(MF)) + 160 CONTINUE + ELSE +C EVAPORATION WITHOUT TRANSVERSE MOMENTUM + DO 165 MF = 1,JFIN + PFR(MF) = 0.D0 + IF ( DEBUG ) WRITE(MDEBUG,*) MF,ITYP(MF),SNGL(PFR(MF)) + 165 CONTINUE + ENDIF +C CALCULATE RESIDUAL TRANSVERSE MOMENTUM + SPFRX = 0.D0 + SPFRY = 0.D0 + CALL RMMAR(RD,JFIN,1) + DO 170 MF = 1,JFIN + PHIFR = PI * RD(MF) + PFRX(MF) = PFR(MF) * COS(PHIFR) + PFRY(MF) = PFR(MF) * SIN(PHIFR) + SPFRY = SPFRY + PFRY(MF) + SPFRX = SPFRX + PFRX(MF) + 170 CONTINUE +C CORRECT ALL TRANSVERSE MOMENTA FOR MOMENTUM CONSERVATION + SPFRX = SPFRX / JFIN + SPFRY = SPFRY / JFIN + DO 180 MF = 1,JFIN + PFRX(MF) = PFRX(MF) - SPFRX + PFRY(MF) = PFRY(MF) - SPFRY + 180 CONTINUE + + IF (DEBUG) WRITE(MDEBUG,*) 'VAPOR : NINTA,JFIN= ',NINTA,JFIN + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE ANNIH +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C ANNIH(ILATION OF E+) +C +C GAMMA SPECTRUM FOR TWO GAMMA IN-FLIGHT POSITRON ANNIHILATION. +C USING SCHEME BASED ON HEITLER'S P269-270 FORMULAE +C THIS ROUTINE SHOULD GIVE THE CORRECT DISTRIBUTION, BUT MORE +C THOUGHT COULD BE PUT INTO DEVISING A FASTER SCHEME. HOWEVER, +C SINCE POSITRON ANNIHILATION IN FLIGHT IS RELATIVELY INFREQUENT +C THIS MAY NOT BE WORTHWHILE. +C THIS SUBROUTINE IS CALLED FROM ELECTR. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION A,AI,EP,EP0I,G,P,PESG1,PESG2,PAVIP,POT,REJF,T + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' ANNIH : NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + PAVIP = E(NP)+PRM + A = PAVIP*RMI + AI = 1.D0/A + G = A - 1.D0 + T = G - 1.D0 + P = SQRT(A*T) + POT = P/T + EP0I = (A+P) + 331 CONTINUE +C SAMPLE 1/EP FROM EP=1./EP0I TO 1.0-1./EP0I + CALL RMMAR(RD,2,2) + EP = EXP(DBLE(RD(1))*LOG(EP0I-1.D0))/EP0I +C NOW DECIDE WHETHER TO ACCEPT + REJF = 1.D0 - EP + AI*AI*(2.D0*G-1.D0/EP) + IF ( RD(2) .GT. REJF ) GOTO 331 +C THIS COMPLETES SAMPLING OF A DISTRIBUTION WHICH IS ASYMMETRIC +C ABOUT EP=1/2, BUT WHICH WHEN SYMMETRIZED IS THE SYMMETRIC +C ANNIHILATION DISTRIBUTION. PICK EP IN (1/2,1-EP0). + PESG1 = PAVIP*MAX(EP,1.D0-EP) + E(NP) = PESG1 + E(NP+1) = PAVIP-E(NP) + PESG2 = E(NP+1) +C SET UP ANGLES OF HIGHER ENERGY GAMMA + IQ(NP) = 1 + COSTHE = (PESG1-PRM)*POT/PESG1 + SINTHE = SQRT(MAX( 0.D0, 1.D0-COSTHE**2 )) + CALL UPHI(2,1) + NP = NP+1 +C SET UP ANGLES OF LOWER ENERGY GAMMA + IQ(NP) = 1 + COSTHE = (PESG2-PRM)*POT/PESG2 + SINTHE = SQRT(MAX( 0.D0, 1.D0-COSTHE**2 )) + CALL UPHI(3,2) + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE AUSGAB + +C----------------------------------------------------------------------- +C WE USE AUSGAB TO FILL OUTPAR WITH PARTICLE COORDINATES. +C THIS SUBROUTINE IS CALLED FROM ELECTR AND PHOTON. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEND. + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION ANGLEX,ANGLEZ,XX,YY,ZZ + SAVE +C----------------------------------------------------------------------- + +C ANGLE WITH RESPECT TO X AXIS + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF +C PARTICLE IS WRITTEN IN OUTPUT BUFFER ARRAY + OUTPAR(1) = IQ(NP) + OUTPAR(2) = E(NP)*0.001D0 + OUTPAR(3) = MIN( 1.D0, W(NP) ) + OUTPAR(4) = ANGLEX + OUTPAR(5) =-Z(NP) + OUTPAR(6) = TIM(NP) + OUTPAR(7) = X(NP) + OUTPAR(8) =-Y(NP) + OUTPAR(9) = IGEN(NP) + OUTPAR(10) = ALEVEL + LEVL = IOBS(NP) + CALL OUTPT1 + IF ( FEGSDB ) THEN + WRITE(MDEBUG,*) 'AUSGAB: NP=',NP,' IR=',IR(NP),' IOBS=',IOBS(NP) + XX = X(NP) + YY =-Y(NP) + ZZ =-Z(NP) + ANGLEZ = W(NP) + WRITE(MDEBUG,170) IQ(NP),E(NP)*.001D0,ANGLEZ,ANGLEX,ZZ, + * TIM(NP)*1.D3,XX,YY,IGEN(NP) + 170 FORMAT(' AUSGAB:',13X,I4,1P,E11.3,0P,1X,F7.4,1X,F7.4,1X,F9.0, + * F9.6,1X,1P,E11.4,1X,E11.4,1X,I3 + * ) + ENDIF + RETURN + END +*CMZ : 18/02/2002 16.47.35 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE AUSGB2 + +C----------------------------------------------------------------------- +C IN CASE OF DEBUGGING WE PRINT THE PARTICLE COORDINATES. +C THIS SUBROUTINE IS CALLED FROM MANY EGS-ROUTINES. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEND. + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION ANGLEX,ANGLEZ,XX,YY,ZZ + SAVE +C----------------------------------------------------------------------- + +C ANGLE WITH RESPECT TO X AXIS + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF + XX = X(NP) + YY =-Y(NP) + ZZ =-Z(NP) + ANGLEZ = W(NP) + WRITE(MDEBUG,170) IQ(NP),E(NP)*.001D0,ANGLEZ,ANGLEX,ZZ, + * TIM(NP)*1.0D3,XX,YY,IGEN(NP) + 170 FORMAT(' AUSGB2:',13X,I4,1P,E11.3,0P,1X,F8.5,1X,F7.4,1X,F9.0, + * 1X,F9.6,1X,1P,E11.4,1X,E11.4,0P,1X,I3 + * ) + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE BHABHA +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C BHABHA (SCATTERING) +C +C DISCRETE BHABHA SCATTERING (A CALL TO THIS ROUTINE) HAS BEEN +C ARBITRARILY DEFINED AND CALCULATED TO MEAN BHABHA SCATTERINGS +C WHICH IMPART TO THE SECONDARY ELECTRON SUFFICIENT ENERGY THAT +C IT BE TRANSPORTED DISCRETELY, I.E. E=AE OR T=TE. IT IS NOT +C GUARANTEED THAT THE FINAL POSITRON WILL HAVE THIS MUCH ENERGY +C HOWEVER. THE EXACT BHABHA DIFFERENTIAL CROSS-SECTION IS USED. +C THIS SUBROUTINE IS CALLED FROM ELECTR. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + +* DOUBLE PRECISION BETAI2,BR,B1,B2,B3,B4,DCOSTH,EP0,EP0C,E0,E02,H1, + DOUBLE PRECISION BETA2,BR,B1,B2,B3,B4,DCOSTH,EP0,EP0C,E0,E02,H1, + * PEIP,PEKIN,PEKINI,PEKSE2,PESE1,PESE2,REJF2, + * T0,YY,Y2,YP,YP2 + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' BHABHA: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + PEIP = E(NP) +C KINETIC ENERGY OF INCIDENT POSITRON + PEKIN = PEIP-PRM + PEKINI= 1.D0/PEKIN + T0 = PEKIN*RMI + E0 = T0+1.D0 + YY = 1.D0/(T0+2.D0) + E02 = E0**2 +C CORRECTED 18.12.98 +* BETAI2= E02/(E02-1.D0) + BETA2 = (E02-1.D0)/E02 + EP0 = TE*PEKINI + EP0C = 1.D0-EP0 + Y2 = YY*YY + YP = 1.D0-2.D0*YY + YP2 = YP**2 + B4 = YP2*YP + B3 = B4+YP2 + B2 = YP*(3.D0+Y2) + B1 = 2.D0-Y2 + 341 CONTINUE +C SAMPLE BR FROM MINIMUM(EP0) TO 1 + CALL RMMAR(RD,2,2) + BR = EP0/(1.D0-EP0C*RD(1)) +C CORRECTED 18.12.98 +* REJF2 = EP0C*(BETAI2-BR*(B1-BR*(B2-BR*(B3-BR*B4)))) + REJF2 = (1.D0-BETA2*BR*(B1-BR*(B2-BR*(B3-BR*B4)))) + IF ( RD(2) .GT. REJF2 ) GOTO 341 + IF ( BR .LT. 0.5D0 ) THEN + IQ(NP+1) = 3 + ELSE +C IF E- GOT MORE THAN E+, MOVE THE E+ POINTER AND REFLECT B + IQ(NP) = 3 + IQ(NP+1) = 2 + BR = 1.D0-BR + ENDIF + BR = MAX( 0.D0, BR ) +C DIVIDE UP THE ENERGY + PEKSE2 = BR*PEKIN + PESE1 = PEIP-PEKSE2 + PESE2 = PEKSE2+PRM + E(NP) = PESE1 + E(NP+1)= PESE2 +C DETERMINE ANGLES FROM KINEMATICS + H1 = (PEIP+PRM)*PEKINI +C DIRECTION COSINE CHANGE FOR 'OLD' ELECTRON + DCOSTH = MIN( 1.D0, H1*(PESE1-PRM)/(PESE1+PRM) ) + SINTHE = SQRT(1.D0-DCOSTH) + COSTHE = SQRT(DCOSTH) + CALL UPHI(2,1) + NP = NP+1 + DCOSTH = MIN( 1.D0, H1*(PESE2-PRM)/(PESE2+PRM) ) + SINTHE =-SQRT(1.D0-DCOSTH) + COSTHE = SQRT(DCOSTH) + CALL UPHI(3,2) + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE BREMS +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C BREMS(STRAHLUNG GENERATION) +C +C FOR ELECTRON ENERGY GREATER THAN 5.0 MEV, THE BETHE-HEITLER +C CROSS-SECTION IS EMPLOYED. +C THIS SUBROUTINE IS CALLED FROM ELECTR. +C----------------------------------------------------------------------- + + IMPLICIT NONE + COMMON /BREMPR/ PWR2I,DL1,DL2,DL3,DL4,DL5,DL6,DELCM,ALPHI,BPAR, + * DELPOS + DOUBLE PRECISION PWR2I(60) + REAL DL1(6),DL2(6),DL3(6),DL4(6),DL5(6),DL6(6), + * DELCM,ALPHI(2),BPAR(2),DELPOS(2) +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION ABREMS,AI2LN2,BR,DEL,DELTA,P,PEIE,PESG,PESE, + * REJF,T + INTEGER IDISTR,LVL,LVL0,LVX + SAVE + DATA AI2LN2/0.721347521D0/ +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' BREMS : NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + PEIE = E(NP) + NP = NP+1 +C DECIDE WHICH DISTRIBUTION TO USE + IF ( PEIE .LT. 50.D0 ) THEN +C (B-H IS USED 1.5 TO 50 MEV) + LVX = 1 + LVL0 = 0 + ELSE +C (B-H COULOMB CORRECTED IS USED ABOVE 50 MEV) + LVX = 2 + LVL0 = 3 + ENDIF +C TWO TIMES AI2LN2 = 1.442695041 + ABREMS = DBLE(INT(1.442695041D0*LOG(PEIE*API))) +C THE METHOD OF BUTCHER AND MESSEL FOR SAMPLING A CLASS OF FACTORIZABLE +C FREQUENCY DISTRIBUTIONS IS USED. OUR 'BR' VARIABLE IS THE SAME AS +C THEIR 'EPSILON' VARIABLE. (SEE BUTCHER AND MESSEL,NUCL.PHYS.,VOL.20, +C PP23,24. COMPUTE NUMBER OF SUBDISTRIBUTIONS NEEDED TO PRODUCE PHOTONS +C OF MINIMUM DISCRETE TRANSPORT ENRGY AP, IN CASE THE (1-BR)/BR +C PART OF THE DISTRIBUTION IS USED. + 351 CONTINUE + CALL RMMAR(RD,3,2) +C DECIDE WHETHER TO SAMPLE FROM (1-BR)/BR OR 2*BR PART OF DISTRIBUTION + IF ( (ABREMS*ALPHI(LVX)+0.5D0)*RD(1) .GE. 0.5D0 ) THEN +C USE THE (1-BR)/BR PART. WHICH SUBDISTRIBUTION? + IDISTR = ABREMS*RD(2) +C THIS CHOOSES IDISTR AT RANDOM FROM SET (0,1,2, ..., NBREMS-1) + P = PWR2I(IDISTR+1) +C SELECT SCREENING REJECTION FUNCTION +C LVL=1 UNCOULOMB CORRECTED A(DELTA) +C LVL=2 UNCOULOMB CORRECTED B(DELTA) +C LVL=3 UNCOULOMB CORRECTED C(DELTA) +C LVL=4 COULOMB CORRECTED A(DELTA) +C LVL=5 COULOMB CORRECTED B(DELTA) +C LVL=6 COULOMB CORRECTED C(DELTA) + LVL = LVL0+1 +C USE A(DELTA), EITHER BORN OR COULOMB CORRECTED, DEPENDING ON +C WHETHER LVL HAS BEEN PREVIOUSLY SET TO 0 OR 3. +C ALL SUBDISTRIBUTIONS ARE SAMPLED BY FIRST SAMPLING FROM +C (1./LOG(2.))*(1.-BR)/BR IF 0.5 .LE. BR .LE. 1. +C 1./LOG(2.) IF BR.LT. 0.5 +C AND THEN TAKING BR = BR*P +C AI2LN2 IS ACTUALLY 1./(2.*LOG(2.)), WHICH IS THE PROBABILITY +C THAT BR IS LESS THAN 0.5 IN THE ELEMENTARY DISTRIBUTION ABOVE. + IF ( RD(3) .GE. AI2LN2 ) THEN + 361 CONTINUE + CALL RMMAR(RD,3,2) + BR = 1.D0-0.5D0*MAX(RD(2),RD(3)) + IF ( BR*RD(1) .GT. 0.5D0 ) GOTO 361 + ELSE + CALL RMMAR(RD,1,2) + BR = RD(1)*0.5D0 + ENDIF + BR = BR*P + ELSE + BR = MAX(RD(2),RD(3)) +C USE B(DELTA) FOR SCREENING FUNCTION + LVL = LVL0+2 + ENDIF +C NOW ATTRIBUTE ENERGIES TO THE PARTICLES + PESG = PEIE*BR +C AP IS SELECTED IN PROGRAM PEGS (ESTABLISHING CROSS-SECTION FILE) +C MINIMUM HARDNESS REQUIREMENT, CORRESPONDING TO LOWER BOUND +C CHOICE FOR TOTAL CROSS-SECTION INTEGRAL + IF ( PESG .LT. AP ) GOTO 351 + PESE = PEIE-PESG +C THE ELECTRON MUST HAVE A MINIMUM ENERGY EQUAL TO 0.511 MEV + IF ( PESE .LT. PRM ) GOTO 351 +C DEFINITION OF DELTA IS DELTA=136.0*EXP(ZG)*RM*EE/(E*(1.0-EE)) +C =DELCM*EE/(E*(1.0-EE))=DELCM*DEL +C WHERE E=ELECTRON INCIDENT ENERGY(MEV), AND EE=(PHOTON ENERGY)/E +C ZG IS DEFINED IN THE PROGRAM SHINP, AND IS A WEIGHTED AVERAGE +C OF LOG(Z**(-1./3.)) OVER THE VARIOUS TYPES OF ATOMS IN THE +C MOLECULE (BUTCHER AND MESSEL, OP.CIT., P.17-19,22-24). + DEL = BR/PESE +C A(DELTA) AND B(DELTA) MUST ALWAYS BE POSITIVE + IF ( DEL .GE. DELPOS(LVX) ) GOTO 351 + DELTA = DELCM*DEL + IF ( DELTA .LT. 1.D0 ) THEN + REJF = DL1(LVL)+DELTA*(DL2(LVL)+DELTA*DL3(LVL)) + ELSE + REJF = DL4(LVL)+DL5(LVL)*LOG(DELTA+DL6(LVL)) + ENDIF + CALL RMMAR(RD,1,2) +C SCREENING REJECTION + IF ( RD(1) .GT. REJF ) GOTO 351 + THETA = PRM/PEIE + CALL UPHI(1,3) +C ATTRIBUTE PARTICLE ENERGIES AND PROPERTIES + IF ( PESG .LE. PESE ) THEN + IQ(NP ) = 1 + E(NP) = PESG + E(NP-1) = PESE + ELSE + IQ(NP) = IQ(NP-1) + IQ(NP-1)= 1 + E(NP) = PESE + E(NP-1) = PESG +C INTERCHANGE STACK POSITION OF ELECTRON AND PHOTON + T = U(NP) + U(NP) = U(NP-1) + U(NP-1) = T + T = V(NP) + V(NP) = V(NP-1) + V(NP-1) = T + T = W(NP) + W(NP) = W(NP-1) + W(NP-1) = T + ENDIF + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE COMPT +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C COMPT(ON SCATTERING) +C +C BUTCHER AND MESSEL'S CROSS-SECTION EXPRESSION IS USED +C (BUTCHER AND MESSEL, OP.CIT., P. 17-19,25), BUT THE +C 1/EPSILON PART IS NOT SAMPLED IN THE WAY THAT THEY DO. +C THIS ROUTINE CALLS THEIR 'EPSILON' VARIABLE BY THE NAME 'BR'. +C BR=FINAL PHOTON ENERGY /INITIAL PHOTON ENERGY. +C BR0 = MINIMUM BR = 1./(1.+2.*(E(NP)/PRM)) +C MAXIMUM BR IS 1. +C BUTCHER AND MESSEL'S EXPRESSION FOR THE DIFFERENTIAL CROSS- +C SECTION IS PROPORTIONAL TO +C (1./BR+BR)*(1.-BR*SINTHE**2/(1.+BR*BR)) +C WE SHALL SAMPLE FROM THE FIRST FACTOR FROM THE INTERVAL (BR0,1) +C AND USE THE SECOND FACTOR AS A REJECTION FUNCTION. +C THIS SUBROUTINE IS CALLED FROM PHOTON. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION ALPH1,ALPH2,A1MIBR,BR,BRP,BR0,BR0I,EGP, + * PEIG,PESG,PESE,PSQ,SUMALP,T,TEMP + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' COMPT : NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + PEIG = E(NP) + EGP = PEIG*RMI + BR0I = 1.D0+2.D0*EGP + BR0 = 1.D0/BR0I + ALPH1 = LOG(BR0I) + ALPH2 = EGP*(BR0I+1.D0)*BR0**2 + SUMALP = ALPH1+ALPH2 + + 371 CONTINUE + CALL RMMAR(RD,3,2) +C WHICH PART OF 1./BR + BR TO SAMPLE FROM ? + IF ( ALPH1 .GE. SUMALP*RD(1) ) THEN +C USE 1/BR PART OF DISTRIBUTION + BR = EXP(ALPH1*RD(2))*BR0 + ELSE +C USE LINEAR ( BR ) PART OF DISTRIBUTION + BRP = RD(2) + IF ( EGP .GE. (EGP+1.D0)*RD(3) ) THEN + CALL RMMAR(RD(4),1,2) + BRP = MAX(RD(2),RD(4)) + ENDIF + BR = ((BR0I-1.D0)*BRP+1.D0)*BR0 + ENDIF +C BR=FINAL PHOTON ENERGY FRACTION + PESG = BR*PEIG +C THE COMPTON ANGLES FOR PHOTON AND RECOIL ELECTRON ARE UNIQUELY +C DETERMINED BY THE CONSERVATION LAWS + A1MIBR = 1.D0-BR + TEMP = PRM*A1MIBR/PESG + SINTHE = MAX( 0.D0, TEMP*(2.D0-TEMP) ) + CALL RMMAR(RD,1,2) + IF ( (1.D0-RD(1))*(1.D0+BR**2) .LT. BR*SINTHE ) GOTO 371 + SINTHE = SQRT(SINTHE) + COSTHE = 1.D0-TEMP +C NOW FILL IN THE PARTICLE PROPERTIES + PESE = PEIG-PESG+PRM + CALL UPHI(2,1) + NP = NP+1 +C MOMENTUM SQUARED OF ELECTRON + PSQ = PESE*PESE-RMSQ + IF ( PSQ .LE. 0.D0 ) THEN + COSTHE = 0.D0 + SINTHE = -1.D0 + ELSE + COSTHE = (PESE+PESG)*A1MIBR/SQRT(PSQ) + SINTHE = -SQRT(MAX( 0.D0, 1.0-COSTHE**2 )) + ENDIF + CALL UPHI(3,2) + IF ( PESE .LE. PESG ) THEN + IQ(NP) = 3 + E(NP) = PESE + E(NP-1) = PESG + ELSE +C SORT PARTICLES ON STACK WITH DESCENDING ENERGY + IQ(NP) = 1 + IQ(NP-1)= 3 + E(NP) = PESG + E(NP-1) = PESE + T = U(NP) + U(NP) = U(NP-1) + U(NP-1) = T + T = V(NP) + V(NP) = V(NP-1) + V(NP-1) = T + T = W(NP) + W(NP) = W(NP-1) + W(NP-1) = T + ENDIF + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 18/06/99 +C======================================================================= + + SUBROUTINE CORNEC + +C----------------------------------------------------------------------- +C CO(O)R(DINATE) (I)N(ITIALIZATION FOR) E(M IN A) C(URVED ATMOSPHERE) +C +C INITIALIZES ALL IMPORTANT COORDINATES FOR ONE OBSERVATION LEVEL +C ROUTINE DETERMINES STARTING PARAMETERS AT HEIGHT GIVEN BY THICK0 FOR +C A COORDINATE SYSTEM WHICH IS FIXED IN (X,Y) AT THE ASSUMED DETECTOR +C POSITION AND IN Z AT SEA LEVEL. +C THIS SUBROUTINE IS CALLED FROM ELECTR AND PHOTON. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + + DOUBLE PRECISION DIST,DIAG,TANPHI,TEA + SAVE +C----------------------------------------------------------------------- + + IF (DEBUG) WRITE(MDEBUG,*) 'CORNEC: -Z(NP),WAP(NP),U(NP),V(NP)=', + * SNGL(-Z(NP)),SNGL(WAP(NP)),SNGL(U(NP)),SNGL(V(NP)) + +C NOTE : ANGLES WAP, U, AND V ARE APPARENT ANGLES OF PRIMARY AT +C THE EDGE OF THE ATMOSPHERE SEEN FROM THE +C DETECTOR POSITION X=Y=0, Z=-OBSLEV(1) +C FOR CALCULATIONS: WAP = COSINE OF APPARENT ZENITH ANGLE THETAP +C WAP IS SET IN SUBR. EGS4 + +C DISTANCE DIAG BETWEEN DETECTOR POSITION X=Y=0, Z =-OBSLEV(1) AND +C STARTING POINT + DIAG = SQRT( (C(1)-Z(NP))**2 + * -(C(1)+OBSLEV(1))**2 *(1.D0-WAP(NP)**2) ) + * - (C(1)+OBSLEV(1)) * WAP(NP) + +C APPARENT HEIGHT ZAP IS PARTICLE Z-COORDINATE IN DETECTOR SYSTEM + ZAP(NP) = -OBSLEV(1) - DIAG * WAP(NP) + +C CALCULATING COSINE OF THETA_EARTH COSTEA, COSINE OF ZENITH ANGLE BY +C TAKING A COORDINATE FRAME CENTERED IN THE MIDDLE OF EARTH + WA(NP) = (C(1)-ZAP(NP)) / (C(1)-Z(NP)) + IF ( DEBUG ) WRITE(MDEBUG,*) 'CORNEC:-ZAP(NP),WA(NP),DIAG =', + * SNGL(-ZAP(NP)),WA(NP),SNGL(DIAG) + WA(NP) = MIN( 1.D0, WA(NP) ) +C TRANSFORM THE APPARENT ANGLE SEEN FROM DETECTOR POSITION TO LOCAL +C ANGLES RELATIVE TO THE VERTICAL TO THE MIDDLE OF EARTH +C NOTE : LOCAL ZENITH ANGLE = DIFFERENCE OF APPARENT ZENITH ANGLE AND +C THETA_EARTH + W(NP) = (DIAG + (C(1)+OBSLEV(1))*WAP(NP))/(C(1)-Z(NP)) + W(NP) = MIN( 1.D0, W(NP) ) + IF ( U(NP) .NE. 0.D0 ) THEN + TANPHI= V(NP) / U(NP) + U(NP) = SIGN(1.D0,U(NP))*SQRT((1.D0-W(NP)**2)/(1.D0+TANPHI**2)) + V(NP) = TANPHI * U(NP) + ELSE + IF ( V(NP) .NE. 0.D0 ) + * V(NP) = SIGN(1.D0,V(NP)) * SQRT( 1.D0 - W(NP)**2 ) + ENDIF + +C DISTANCE DIST BETWEEN THE DETECTOR POSITION X=0, Y=0 +C AND THE ACTUAL INTERACTION POINT MEASURED ON THE EARTH'S SURFACE + TEA = ACOS(WA(NP)) + DIST = C(1) * TEA + +C CONCERNING TRANSFORMATION OF AZIMUTH ANGLE PHI +C NOTE : THE COORDINATE SYTEMS ONLY DIFFER IN A SHIFT ALONG THE Z-AXIS +C OR A ROTATION ALONG THE ZENITH ANGLE. BOTH TRANSFORMATIONS +C JUST CHANGE THETA AND NOT PHI (THETA AND PHI ARE ORTHOGONAL +C COORDINATES, THUS LINEAR INDEPENDENT). + +C X,Y-COORDINATES SEEN FROM THE DETECTOR POSITION (X=Y=0) +C PHIP IS DEFINED HERE IN OBSPAR, BUT IS NOT SENSIBEL TO USE IN THIS +C ROUTINE; WE HAVE TO TAKE NOT PHI OF PRIMARY, BUT FROM CURRENT +C PARTICLE. TAKE NEW LOCAL DIRECTION COSINES (SEE ABOVE) + IF ( W(NP) .LT. 1.D0 ) THEN + X(NP) = -DIST * U(NP) / SQRT( 1.D0 - W(NP)**2 ) + Y(NP) = -DIST * V(NP) / SQRT( 1.D0 - W(NP)**2 ) + ELSE + X(NP) = -DIST * U(NP) + Y(NP) = -DIST * V(NP) + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'CORNEC: X(NP),Y(NP),W(NP),DIST =', + * SNGL(X(NP)),SNGL(Y(NP)),SNGL(W(NP)),SNGL(DIST) +C NOW ALL PARAMETERS ARE FILLED INTO STACKE + + RETURN + END +*CMZ : 20/02/2002 09.17.35 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE EGS4( EEIN ) + +C----------------------------------------------------------------------- +C E(LECTRON) G(AMMA) S(HOWER) +C +C TREATS ELECTROMAGNETIC SUBSHOWER +C THIS SUBROUTINE IS CALLED FROM EM. +C ARGUMENT: +C EEIN = (R8) INCOMING PARTICLE ENERGY (GEV) +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEND. + COMMON /GEOMEGS/ ZALTIT,BOUND,OBSLVL,NEWOBS + DOUBLE PRECISION ZALTIT,BOUND(6),OBSLVL(10) + INTEGER NEWOBS +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEND. + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PION/ PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT + DOUBLE PRECISION PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION EEIN,SITHET,THICK + INTEGER IDET,K + SAVE + EXTERNAL THICK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'EGS4 :' +C FILL IN STARTING COORDINATES + NP = 1 + TIM(1) = SECPAR(6) + X(1) = SECPAR(7) + Y(1) =-SECPAR(8) +C STARTS IN HEIGHT 'Z' DOWNWARDS + Z(1) =-SECPAR(5) + IF ( LLONGI ) LPCTE(1)=MIN(NSTEP,INT(THICK(SECPAR(5))*THSTPI)+1) + SITHET = SQRT(1.D0-SECPAR(3)**2) +C START DIRECTION COSINES + U(NP) = SITHET*COS(-SECPAR(4)) + V(NP) = SITHET*SIN(-SECPAR(4)) + W(NP) = SECPAR(3) + ZAP(NP) =-SECPAR(14) + WAP(NP) = SECPAR(15) + WA(NP) = SECPAR(16) + IGEN(1) = GEN +C CONVERSION GEV --> MEV + E(1) = EEIN*1000.D0 +C CHECK ENERGY RANGE + IQ(1) = NINT(SECPAR(1)) + IF ( IQ(1) .EQ. 1 ) THEN + IF ( E(1) .GT. UP ) THEN + CALL AUSGB2 + WRITE(KMPO,91) EEIN + 91 FORMAT(' EGS4 : ENERGY OF GAMMA =',1P,E10.3,' GEV TOO HIGH') + STOP + ENDIF + ELSE + IF ( E(1) .GT. UE ) THEN + CALL AUSGB2 + WRITE(KMPO,92) EEIN + 92 FORMAT(' EGS4 : ENERGY OF ELECTRON/POSITRON =',1P,E10.3, + * ' GEV TOO HIGH') + STOP + ENDIF + ENDIF + DNEAR(1) = 0.D0 + DO 101 K = 1,5 +C DETERMINE START REGION + IF ( -BOUND(K).LE.Z(1) .AND. -BOUND(K+1).GT.Z(1) ) THEN + IR(1) = K+1 + GOTO 110 + ENDIF + 101 CONTINUE + CALL AUSGB2 + WRITE(KMPO,120) (-0.01)*Z(1) + 120 FORMAT (' EGS4 : START VALUE OF Z=',1P,E11.4,' M NOT IN ', + * 'ATMOSPHERE') + RETURN + 110 CONTINUE + DO 111 IDET = 1,NOBSLV +C DETERMINE NEXT OBSERVATION LEVEL + IF ( -Z(1) .GE. OBSLVL(IDET) ) THEN + IOBS(1) = IDET + GOTO 130 + ENDIF + 111 CONTINUE + CALL AUSGB2 + WRITE(KMPO,140) (-0.01)*Z(1),OBSLVL(NOBSLV)*0.01 + 140 FORMAT(' EGS4 : START VALUE OF Z= ',E11.4, ' M BELOW LOWEST ', + * 'DETECTOR AT',E11.4,' M') + RETURN + 130 CONTINUE +C NEWOBS IS THE NEXT OBSERVATION LEVEL + NEWOBS = IOBS(NP) + CALL SHOWER + IF ( DEBUG ) WRITE(MDEBUG,*) 'EGS4 : EGS-STACK EMPTY, EXIT' + RETURN + END +*CMZ : 12/10/2001 14.53.55 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + BLOCK DATA EGS4BD +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C INITIALIZES GENERAL DATA OF EGS4 +C----------------------------------------------------------------------- + + IMPLICIT NONE + COMMON /BOUNDS/ ECUT,PCUT,VACDST + DOUBLE PRECISION ECUT(6),PCUT(6),VACDST + COMMON /ELECIN/ EKE0,EKE1,XR0,TEFF0,BLCC,XCC,ESIG0,ESIG1,PSIG0, + * PSIG1,EDEDX0,EDEDX1,PDEDX0,PDEDX1,EBR10,EBR11, + * PBR10,PBR11,PBR20,PBR21,TMXS0,TMXS1,ERANG0, + * ERANG1,PRANG0,PRANG1,STERNCOR + REAL EKE0,EKE1,XR0,TEFF0,BLCC,XCC, + * ESIG0(500),ESIG1(500),PSIG0(500),PSIG1(500), + * EDEDX0(500),EDEDX1(500),PDEDX0(500),PDEDX1(500), + * EBR10(500),EBR11(500),PBR10(500),PBR11(500), + * PBR20(500),PBR21(500),TMXS0(500),TMXS1(500), + * ERANG0(1),ERANG1(1),PRANG0(1),PRANG1(1),STERNCOR +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,EPCONT. + COMMON /EPCONT/ EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW,EKE,ELKE,BETA2,GLE,TSCAT, + * IDISC,IROLD,IRNEW + DOUBLE PRECISION EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW, EKE,ELKE,BETA2,GLE,TSCAT + INTEGER IDISC,IROLD,IRNEW + +*KEND. + COMMON /MEDIA/ RLDU,RLDUI,RHO,RLC,NMED,MSGE,MGE,MSEKE,MEKE, + * MLEKE,MCMFP,MRANGE,IRAYLM + DOUBLE PRECISION RLDU,RLDUI + REAL RHO,RLC + INTEGER NMED,MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE, + * IRAYLM + COMMON /MEDIAC/ MEDIA + CHARACTER MEDIA*24 + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) + COMMON /MULTS/ B0G21,B1G21,G210,G211,G212, + * B0G22,B1G22,G220,G221,G222, + * B0G31,B1G31,G310,G311,G312, + * B0G32,B1G32,G320,G321,G322, + * B0BGB,B1BGB,BGB0,BGB1,BGB2,NBGB + DOUBLE PRECISION B0G21,B1G21,G210(7),G211(7),G212(7), + * B0G22,B1G22,G220(8),G221(8),G222(8), + * B0G31,B1G31,G310(11),G311(11),G312(11), + * B0G32,B1G32,G320(25),G321(25),G322(25), + * B0BGB,B1BGB,BGB0(8),BGB1(8),BGB2(8) + INTEGER NBGB + COMMON /PATHCM/ B0PTH,B1PTH,PTH0,PTH1,PTH2,NPTH + DOUBLE PRECISION B0PTH,B1PTH,PTH0(6),PTH1(6),PTH2(6) + INTEGER NPTH + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + CHARACTER MEDIA1*24 + EQUIVALENCE (MEDIA1,MEDIA) +C----------------------------------------------------------------------- + DATA NCLOCK/0/,JCLOCK/2147483647/ + DATA ECUT/6*0.D0/,PCUT/6*0.D0/,VACDST/1.D9/ + DATA RHOFAC/1.D0/ + DATA NMED/1/,MEDIA1/'NAI '/ + DATA IRAYLM/1*0/ + DATA KMPI/12/,KMPO/8/,DUNIT/1.D0/,NOSCAT/0/ + DATA MED/6*1/,RHOR/6*0.D0/,IRAYLR/6*0/ + DATA B0G21/ 2.0000D0/,B1G21/ 5.0000D0/ + DATA G210(1),G211(1),G212(1)/-9.9140D-04, 2.7672D+00,-1.1544D+00/ + DATA G210(2),G211(2),G212(2)/-9.9140D-04, 2.7672D+00,-1.1544D+00/ + DATA G210(3),G211(3),G212(3)/-7.1017D-02, 3.4941D+00,-3.0773D+00/ + DATA G210(4),G211(4),G212(4)/-7.3556D-02, 3.5487D+00,-3.1989D+00/ + DATA G210(5),G211(5),G212(5)/ 3.6658D-01, 2.1162D+00,-2.0311D+00/ + DATA G210(6),G211(6),G212(6)/ 1.4498D+00,-5.9717D-01,-3.2951D-01/ + DATA G210(7),G211(7),G212(7)/ 1.4498D+00,-5.9717D-01,-3.2951D-01/ + DATA B0G22/ 2.0000D0/,B1G22/ 6.0000D0/ + DATA G220(1),G221(1),G222(1)/-5.2593D-04, 1.4285D+00,-1.2670D+00/ + DATA G220(2),G221(2),G222(2)/-5.2593D-04, 1.4285D+00,-1.2670D+00/ + DATA G220(3),G221(3),G222(3)/-6.4819D-02, 2.2033D+00,-3.6399D+00/ + DATA G220(4),G221(4),G222(4)/ 3.7427D-02, 1.6630D+00,-2.9362D+00/ + DATA G220(5),G221(5),G222(5)/ 6.1955D-01,-6.2713D-01,-6.7859D-01/ + DATA G220(6),G221(6),G222(6)/ 1.7584D+00,-4.0390D+00, 1.8810D+00/ + DATA G220(7),G221(7),G222(7)/ 2.5694D+00,-6.0484D+00, 3.1256D+00/ + DATA G220(8),G221(8),G222(8)/ 2.5694D+00,-6.0484D+00, 3.1256D+00/ + DATA B0G31/ 2.0000D0/,B1G31/ 9.0000D0/ + DATA G310(1),G311(1),G312(1)/ 4.9437D-01, 1.9124D-02, 1.8375D+00/ + DATA G310(2),G311(2),G312(2)/ 4.9437D-01, 1.9124D-02, 1.8375D+00/ + DATA G310(3),G311(3),G312(3)/ 5.3251D-01,-6.1555D-01, 4.5595D+00/ + DATA G310(4),G311(4),G312(4)/ 6.6810D-01,-2.2056D+00, 8.9293D+00/ + DATA G310(5),G311(5),G312(5)/-3.8262D+00, 2.5528D+01,-3.3862D+01/ + DATA G310(6),G311(6),G312(6)/ 4.2335D+00,-1.0604D+01, 6.6702D+00/ + DATA G310(7),G311(7),G312(7)/ 5.0694D+00,-1.4208D+01, 1.0456D+01/ + DATA G310(8),G311(8),G312(8)/ 1.4563D+00,-3.3275D+00, 2.2601D+00/ + DATA G310(9),G311(9),G312(9)/-3.2852D-01, 1.2938D+00,-7.3254D-01/ + DATA G310(10),G311(10),G312(10)/-2.2489D-1, 1.0713D+0,-6.1358D-1/ + DATA G310(11),G311(11),G312(11)/-2.2489D-1, 1.0713D+0,-6.1358D-1/ + DATA B0G32/ 2.0000D0/,B1G32/ 2.3000D1/ + DATA G320(1),G321(1),G322(1)/ 2.9907D-05, 4.7318D-01, 6.5921D-01/ + DATA G320(2),G321(2),G322(2)/ 2.9907D-05, 4.7318D-01, 6.5921D-01/ + DATA G320(3),G321(3),G322(3)/ 2.5820D-03, 3.5853D-01, 1.9776D+00/ + DATA G320(4),G321(4),G322(4)/-5.3270D-03, 4.9418D-01, 1.4528D+00/ + DATA G320(5),G321(5),G322(5)/-6.6341D-02, 1.4422D+00,-2.2407D+00/ + DATA G320(6),G321(6),G322(6)/-3.6027D-01, 4.7190D+00,-1.1380D+01/ + DATA G320(7),G321(7),G322(7)/-2.7953D+00, 2.6694D+01,-6.0986D+01/ + DATA G320(8),G321(8),G322(8)/-3.6091D+00, 3.4125D+01,-7.7512D+01/ + DATA G320(9),G321(9),G322(9)/ 1.2491D+01,-7.1103D+01, 9.4496D+01/ + DATA G320(10),G321(10),G322(10)/ 1.9637D+1,-1.1371D+2, 1.5794D+2/ + DATA G320(11),G321(11),G322(11)/ 2.1692D+0,-2.5019D+1, 4.5340D+1/ + DATA G320(12),G321(12),G322(12)/-1.6682D+1, 6.2067D+1,-5.5257D+1/ + DATA G320(13),G321(13),G322(13)/-2.1539D+1, 8.2651D+1,-7.7065D+1/ + DATA G320(14),G321(14),G322(14)/-1.4344D+1, 5.5193D+1,-5.0867D+1/ + DATA G320(15),G321(15),G322(15)/-5.4990D+0, 2.3874D+1,-2.3140D+1/ + DATA G320(16),G321(16),G322(16)/ 3.1029D+0,-4.4708D+0, 2.1318D-1/ + DATA G320(17),G321(17),G322(17)/ 6.0961D+0,-1.3670D+1, 7.2823D+0/ + DATA G320(18),G321(18),G322(18)/ 8.6179D+0,-2.0950D+1, 1.2536D+1/ + DATA G320(19),G321(19),G322(19)/ 7.5064D+0,-1.7956D+1, 1.0520D+1/ + DATA G320(20),G321(20),G322(20)/ 5.9838D+0,-1.4065D+1, 8.0342D+0/ + DATA G320(21),G321(21),G322(21)/ 4.4959D+0,-1.0456D+1, 5.8462D+0/ + DATA G320(22),G321(22),G322(22)/ 3.2847D+0,-7.6709D+0, 4.2445D+0/ + DATA G320(23),G321(23),G322(23)/ 1.9514D+0,-4.7505D+0, 2.6452D+0/ + DATA G320(24),G321(24),G322(24)/ 4.8808D-1,-1.6910D+0, 1.0459D+0/ + DATA G320(25),G321(25),G322(25)/ 4.8808D-1,-1.6910D+0, 1.0459D+0/ + DATA NBGB/ 8/,B0BGB/ 1.5714D0/,B1BGB/ 2.1429D-1/ + DATA BGB0(1),BGB1(1),BGB2(1)/-1.0724D+00, 2.8203D+00,-3.5669D-01/ + DATA BGB0(2),BGB1(2),BGB2(2)/ 3.7136D-01, 1.4560D+00,-2.8072D-02/ + DATA BGB0(3),BGB1(3),BGB2(3)/ 1.1396D+00, 1.1910D+00,-5.2070D-03/ + DATA BGB0(4),BGB1(4),BGB2(4)/ 1.4908D+00, 1.1267D+00,-2.2565D-03/ + DATA BGB0(5),BGB1(5),BGB2(5)/ 1.7342D+00, 1.0958D+00,-1.2705D-03/ + DATA BGB0(6),BGB1(6),BGB2(6)/ 1.9233D+00, 1.0773D+00,-8.1806D-04/ + DATA BGB0(7),BGB1(7),BGB2(7)/ 2.0791D+00, 1.0649D+00,-5.7197D-04/ + DATA BGB0(8),BGB1(8),BGB2(8)/ 2.0791D+00, 1.0649D+00,-5.7197D-04/ + DATA NPTH/ 6/,B0PTH/ 2.0000D0/,B1PTH/ 1.8182D1/ + DATA PTH0(1),PTH1(1),PTH2(1)/ 1.0000D+00, 9.8875D-01, 2.5026D+00/ + DATA PTH0(2),PTH1(2),PTH2(2)/ 1.0000D+00, 9.8875D-01, 2.5026D+00/ + DATA PTH0(3),PTH1(3),PTH2(3)/ 1.0060D+00, 7.8657D-01, 4.2387D+00/ + DATA PTH0(4),PTH1(4),PTH2(4)/ 1.0657D+00,-2.5051D-01, 8.7681D+00/ + DATA PTH0(5),PTH1(5),PTH2(5)/ 1.6971D+00,-7.5600D+00, 2.9946D+01/ + DATA PTH0(6),PTH1(6),PTH2(6)/ 1.6971D+00,-7.5600D+00, 2.9946D+01/ + END +*CMZ : 12/12/2001 11.52.56 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 03/02/97 +C======================================================================= + + SUBROUTINE EGSINI + +C----------------------------------------------------------------------- +C E(LECTRON) G(AMMA) S(HOWER) INI(TIALIZATION) +C +C INITIALIZES EGS4 PACKAGE +C THIS SUBROUTINE IS CALLED FROM START. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEND. + COMMON /BOUNDS/ ECUT,PCUT,VACDST + DOUBLE PRECISION ECUT(6),PCUT(6),VACDST +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEND. + COMMON /ELECIN/ EKE0,EKE1,XR0,TEFF0,BLCC,XCC,ESIG0,ESIG1,PSIG0, + * PSIG1,EDEDX0,EDEDX1,PDEDX0,PDEDX1,EBR10,EBR11, + * PBR10,PBR11,PBR20,PBR21,TMXS0,TMXS1,ERANG0, + * ERANG1,PRANG0,PRANG1,STERNCOR + REAL EKE0,EKE1,XR0,TEFF0,BLCC,XCC, + * ESIG0(500),ESIG1(500),PSIG0(500),PSIG1(500), + * EDEDX0(500),EDEDX1(500),PDEDX0(500),PDEDX1(500), + * EBR10(500),EBR11(500),PBR10(500),PBR11(500), + * PBR20(500),PBR21(500),TMXS0(500),TMXS1(500), + * ERANG0(1),ERANG1(1),PRANG0(1),PRANG1(1),STERNCOR + COMMON /GEOMEGS/ ZALTIT,BOUND,OBSLVL,NEWOBS + DOUBLE PRECISION ZALTIT,BOUND(6),OBSLVL(10) + INTEGER NEWOBS + COMMON /LAYER/ HBARO,HBAROI + DOUBLE PRECISION HBARO(6),HBAROI(6) + COMMON /MEDIA/ RLDU,RLDUI,RHO,RLC,NMED,MSGE,MGE,MSEKE,MEKE, + * MLEKE,MCMFP,MRANGE,IRAYLM + DOUBLE PRECISION RLDU,RLDUI + REAL RHO,RLC + INTEGER NMED,MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE, + * IRAYLM + COMMON /MEDIAC/ MEDIA + CHARACTER MEDIA*24 + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) + COMMON /MUON/ PRRMMU,RMMUT2 + DOUBLE PRECISION PRRMMU,RMMUT2 +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PION/ PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT + DOUBLE PRECISION PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION ECUTMIN,HEIGH + INTEGER I,IDET,IRL,JREG,KREG + CHARACTER MEDARR*24 + LOGICAL LAVAIL + SAVE + EXTERNAL HEIGH + DATA MEDARR/'AIR-NTP '/ +C----------------------------------------------------------------------- + +C INITIALIZATION BEFORE THE FIRST CALL OF EGS4 + IF ( DEBUG ) THEN + WRITE(MDEBUG,*) 'EGSINI:' + KMPO = MDEBUG + ELSE + KMPO = MONIOU + ENDIF + WRITE(KMPO,10) + 10 FORMAT (/' START EGS4 AIR SHOWER SUBROUTINE VERSION (JUN 99)'/) +C SET PARTICLE MASSES AND PHYSICAL CONSTANTS + PRM = PAMA(2)*1.D3 + RMSQ = PRM**2 + RMI = 1.D0/PRM + PRMT2 = 2.D0*PRM + PRRMMU = PAMA(5)*1.D3 + RMMUT2 = 2.D0*PRRMMU + PICMAS = PAMA(8)*1.D3 + PI0MAS = PAMA(7)*1.D3 + PI0MSQ = PI0MAS**2 + AMASKC = PAMA(11)*1.D3 + AMASK0 = PAMA(10)*1.D3 + AMASPR = PAMA(14)*1.D3 + AMASNT = PAMA(13)*1.D3 +C INVERSE OF VELOCITY OF LIGHT + VCI = 1.D0/C(25) + PI = 2.D0 * ACOS(0.D0) + TWOPI = 2.D0 * PI +C PION-PRODUCTION THRESHOLD (MEV) + PITHR = 152.D0 +C NMED AND DUNIT DEFAULT TO 1,I.E. ONE MEDIUM AND WE WORK IN CM + MEDIUM=1 + DO I = 1,24 + MEDIA(I:I)=MEDARR(I:I) + ENDDO +C BOUNDARY 1: TOP OF ATMOSPHERE (SEE SUBR. HOWFAR) + BOUND(1) = HEIGH(0.D0) +C BOUNDARY 6: 1CM BELOW LOWEST AIR LAYER + BOUND(6) = HLAY(1) - 1.D0 + MED(1) = 0 + MED(6) = 0 +C VACUUM IN REGIONS 1 AND 6, AIR IN REGION 2 TO 5 + DO IRL = 2,5 + MED(IRL) = 1 +C PARAMETERS OF ATMOSPHERE ARE TAKEN FROM CORSIKAPROGRAM + BOUND(IRL) = HLAY(6-IRL) + HBARO(IRL) = CATM(6-IRL) + HBAROI(IRL) = 1.D0/HBARO(IRL) + RHOR(IRL) = BATM(6-IRL)*HBAROI(IRL) +C NEEDED FOR REGION 2 TO 5 SINCE NO TRANSPORT ELSEWHERE +C ECUT IS TOTAL ENERGY +C TERMINATE ELECTRON HISTORIES AT ECUT (GEV TO MEV CONVERTED) + ECUT(IRL) = 1000.D0*ELCUT(3)+PRM +C TERMINATE PHOTON HISTORIES AT PCUT (GEV TO MEV CONVERTED) + PCUT(IRL) = 1000.D0*ELCUT(4) + ENDDO +C LOOK FOR MINIMUM ENERGY CUT TO SELECT OPTIMAL EGSDATA SET + ECUTMIN = MIN(1000.D0*ELCUT(3), 1000.D0*ELCUT(3)) + 33 CONTINUE + IF ( ECUTMIN .GE. 3.D0 ) THEN + INQUIRE(FILE='EGSDAT3_3.',EXIST=LAVAIL) + IF ( LAVAIL ) THEN + OPEN(UNIT=KMPI,FILE='EGSDAT3_3.',STATUS='OLD') + WRITE(KMPO,*) 'DATASET EGSDAT3_3. AVAILABLE' + STERNCOR = 0.0 + ELSE + ECUTMIN = 1.1D0 + WRITE(KMPO,*) + * 'DATASET EGSDAT3_3. BEST SUITED BUT NOT AVAILABLE' + GOTO 33 + ENDIF + ELSEIF ( ECUTMIN .GE. 1.D0 ) THEN + INQUIRE(FILE='EGSDAT3_1.',EXIST=LAVAIL) + IF ( LAVAIL ) THEN + OPEN(UNIT=KMPI,FILE='EGSDAT3_1.',STATUS='OLD') + WRITE(KMPO,*) 'DATASET EGSDAT3_1. AVAILABLE' + STERNCOR = 6.0 + ELSE + ECUTMIN = 0.5D0 + WRITE(KMPO,*) + * 'DATASET EGSDAT3_1. BEST SUITED BUT NOT AVAILABLE' + GOTO 33 + ENDIF + ELSEIF ( ECUTMIN .GE. 0.4D0 ) THEN + INQUIRE(FILE='EGSDAT3_.4',EXIST=LAVAIL) + IF ( LAVAIL ) THEN + OPEN(UNIT=KMPI,FILE='EGSDAT3_.4',STATUS='OLD') + WRITE(KMPO,*) 'DATASET EGSDAT3_.4 AVAILABLE' + STERNCOR = 10.0 + ELSE + ECUTMIN = 0.26D0 + WRITE(KMPO,*) + * 'DATASET EGSDAT3_.4 BEST SUITED BUT NOT AVAILABLE' + GOTO 33 + ENDIF + ELSEIF ( ECUTMIN .GE. 0.25D0 ) THEN + INQUIRE(FILE='EGSDAT3_.25',EXIST=LAVAIL) + IF ( LAVAIL ) THEN + OPEN(UNIT=KMPI,FILE='EGSDAT3_.25',STATUS='OLD') + WRITE(KMPO,*) 'DATASET EGSDAT3_.25 AVAILABLE' + STERNCOR = 11.0 + ELSE + ECUTMIN = 0.16D0 + WRITE(KMPO,*) + * 'DATASET EGSDAT3_.25 BEST SUITED BUT NOT AVAILABLE' + GOTO 33 + ENDIF + ELSEIF ( ECUTMIN .GE. 0.15D0 ) THEN + INQUIRE(FILE='EGSDAT3_.15',EXIST=LAVAIL) + IF ( LAVAIL ) THEN + OPEN(UNIT=KMPI,FILE='EGSDAT3_.15',STATUS='OLD') + WRITE(KMPO,*) 'DATASET EGSDAT3_.15 AVAILABLE' + STERNCOR = 12.5 + ELSE + ECUTMIN = 0.06D0 + WRITE(KMPO,*) + * 'DATASET EGSDAT3_.15 BEST SUITED BUT NOT AVAILABLE' + GOTO 33 + ENDIF + ELSEIF ( ECUTMIN .GE. 0.05D0 ) THEN + INQUIRE(FILE='EGSDAT3_.05',EXIST=LAVAIL) + IF ( LAVAIL ) THEN + OPEN(UNIT=KMPI,FILE='EGSDAT3_.05',STATUS='OLD') + WRITE(KMPO,*) 'DATASET EGSDAT3_.05 AVAILABLE' + STERNCOR = 15.0 + ELSE + ECUTMIN = 0.04D0 + WRITE(KMPO,*) + * 'DATASET EGSDAT3_.05 BEST SUITED BUT NOT AVAILABLE' + GOTO 33 + ENDIF + ELSE + INQUIRE(FILE='EGSDAT3_.05',EXIST=LAVAIL) + IF ( LAVAIL ) THEN + OPEN(UNIT=KMPI,FILE='EGSDAT3_.05',STATUS='OLD') + WRITE(KMPO,*) 'ONLY DATASET EGSDAT3_.05 AVAILABLE' + STERNCOR = 15.0 + ELSE + WRITE(KMPO,*) 'NO DATASET EGSDAT3_???? AVAILABLE' + STOP + ENDIF + ENDIF +C PICK UP CROSS-SECTION DATA FOR AIR-NTP FROM UNIT KMPI=12 + CALL HATCH + CLOSE(UNIT=KMPI) +C INVERTED PHOTON THRESHOLD + API = 1.D0/AP + WRITE(KMPO,40) (AE-PRM)*.001,AP*.001,ECUT(2)*.001,PCUT(2)*.001 + 40 FORMAT (' ELECTRONS CAN BE CREATED AND ANY ELECTRON FOLLOWED DO', + * 'WN TO'/T38,F15.5,' GEV KINETIC ENERGY'/' GAMMAS CAN BE CREATED', + * ' AND ANY GAMMA FOLLOWED DOWN TO'/T38,F15.5,' GEV ENERGY'/' ELE', + * 'CTRON HISTORIES ARE TERMINATED AT',F15.5,' GEV'/' GAMMA HISTO', + * 'RIES ARE TERMINATED AT ',F15.5,' GEV'/) +** IF ( DEBUG ) WRITE(KMPO,50) +**50 FORMAT (10X,' PART|TOT.ENERGY|ANGLE Z|ANGLE X|ALTITUDE|', +** * ' TIME | POS. X | POS. Y |GENER|',/,11X,'ICLE|', +** * ' (GEV) |COSTHET| (RAD) | (CM) | (MSEC) | (CM) |', +** * ' (CM) |ATION|') +C CALCULATE THE LAYER THICKNESS BELOW EACH DETECTOR + DO 61 IDET = 1,NOBSLV +C NECESSARY BECAUSE OF DOUBLE PRECIS. + OBSLVL(IDET) = OBSLEV(IDET) + DO 71 JREG = 2,5 + IF ( OBSLVL(IDET) .GE. BOUND(JREG) ) THEN + KREG = JREG + GOTO 80 + ENDIF + 71 CONTINUE + WRITE(KMPO,90) IDET,OBSLVL(IDET)*0.01 + 90 FORMAT (' EGSINI:', ' DETECTOR ',I2,' AT ',E10.3,' M IS OUT ', + * 'OF ATMOSPHERE') + STOP + 80 CONTINUE + 61 CONTINUE + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE ELECTR(IRCODE) +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C ELECTR(ONS NAD POSITRONS ARE TREATED) +C +C TREATS THE ELECTRON/POSITRON TRANSPORT +C FOR PATH LENGTH CORRECTION BECAUSE OF BAROMETRIC ATMOSPHERE SEE +C INTERNAL REPORT OF D.HECK,(1989) +C THIS SUBROUTINE IS CALLED FROM SHOWER. +C ARGUMENT: +C IRCODE = RETURN CODE : 1 NORMAL RETURN +C 2 IF POSSIBLY STACK IS EMPTY +C----------------------------------------------------------------------- + + IMPLICIT NONE + COMMON /BOUNDS/ ECUT,PCUT,VACDST + DOUBLE PRECISION ECUT(6),PCUT(6),VACDST +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,CEREN1. + COMMON /CEREN1/ CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR,LCERFI + DOUBLE PRECISION CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR + LOGICAL LCERFI +*KEEP,CORFRAM, IF=CURVED. + COMMON /CORFRAM/ DETSYS + LOGICAL DETSYS +*KEND. + COMMON /ELECIN/ EKE0,EKE1,XR0,TEFF0,BLCC,XCC,ESIG0,ESIG1,PSIG0, + * PSIG1,EDEDX0,EDEDX1,PDEDX0,PDEDX1,EBR10,EBR11, + * PBR10,PBR11,PBR20,PBR21,TMXS0,TMXS1,ERANG0, + * ERANG1,PRANG0,PRANG1,STERNCOR + REAL EKE0,EKE1,XR0,TEFF0,BLCC,XCC, + * ESIG0(500),ESIG1(500),PSIG0(500),PSIG1(500), + * EDEDX0(500),EDEDX1(500),PDEDX0(500),PDEDX1(500), + * EBR10(500),EBR11(500),PBR10(500),PBR11(500), + * PBR20(500),PBR21(500),TMXS0(500),TMXS1(500), + * ERANG0(1),ERANG1(1),PRANG0(1),PRANG1(1),STERNCOR +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,EPCONT. + COMMON /EPCONT/ EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW,EKE,ELKE,BETA2,GLE,TSCAT, + * IDISC,IROLD,IRNEW + DOUBLE PRECISION EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW, EKE,ELKE,BETA2,GLE,TSCAT + INTEGER IDISC,IROLD,IRNEW + +*KEND. + COMMON /GEOMEGS/ ZALTIT,BOUND,OBSLVL,NEWOBS + DOUBLE PRECISION ZALTIT,BOUND(6),OBSLVL(10) + INTEGER NEWOBS + COMMON /LAYER/ HBARO,HBAROI + DOUBLE PRECISION HBARO(6),HBAROI(6) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MAGNET. + COMMON /MAGNET/ BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT + DOUBLE PRECISION BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT +*KEND. + COMMON /MEDIA/ RLDU,RLDUI,RHO,RLC,NMED,MSGE,MGE,MSEKE,MEKE, + * MLEKE,MCMFP,MRANGE,IRAYLM + DOUBLE PRECISION RLDU,RLDUI + REAL RHO,RLC + INTEGER NMED,MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE, + * IRAYLM + COMMON /MEDIAC/ MEDIA + CHARACTER MEDIA*24 + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) + COMMON /MUON/ PRRMMU,RMMUT2 + DOUBLE PRECISION PRRMMU,RMMUT2 +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PATHCM/ B0PTH,B1PTH,PTH0,PTH1,PTH2,NPTH + DOUBLE PRECISION B0PTH,B1PTH,PTH0(6),PTH1(6),PTH2(6) + INTEGER NPTH +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION A,ALPHA,ALTEXP,B,BETA3,CC, + * COSDEL,DE,DEDX,DEDX0,DEMFP,DISC,EBR1,EDEPB, + * EDEPN,EDEP1,EFRST,EKEF,EKEOLD,ERELS,FLIP,FNORM, + * F1SIN,F1COS,PBR1,PBR2,PEIE,PHI,PTH,RADINV,RANGE, + * RHOFI,SIG,SIGF,SIG0,SINDEL,SINPSI,SINPS2,SITHET, + * STEPT,THCKHN,THCKHO,THICK,TMXS,TUSTPC, + * TVSTPC,UMEAN,US,USTEPU,USTEP0,USW,U0, + * VMEAN,VS,VSTP,VSTEPU,V0,V1,WMEAN,W0,ZOLD + INTEGER IDR,IRCODE,IRL,I,IPTH,I1, + * LELEC,LELKE,LPCT1,LPCT2,NSTPCN + DOUBLE PRECISION CTEA,EBEG,EEND,TBEG,TEND, + * XBEG,XEND,YBEG,YEND,ZBEG,ZEND + DOUBLE PRECISION AUXIL,AUXILSQ,AUX2SQ,CORR,COSDIF,COSTHENEW, + * DISTN2,DISTO2,DSTEFF,PHIC,SIGNE,SINDIF, + * TANPHI,TRANS2,XOLD,YOLD,ZNEW + INTEGER IPASC + SAVE + EXTERNAL THICK + DATA NSTPCN/0/ +C----------------------------------------------------------------------- + + IF ( DEBUG ) THEN + NCLOCK = NCLOCK+1 + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP),NCLOCK + 1 FORMAT(' ELECTR: NP=',I3,' IR=',I3,' IOBS=',I3,' NCLOCK=',I12) + CALL AUSGB2 + ELSE + IF ( NCLOCK .GE. JCLOCK ) THEN + FEGSDB = .TRUE. + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP),NCLOCK + CALL AUSGB2 + ENDIF + IF ( MOD(NCLOCK,1000) .EQ. 0 ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP),NCLOCK + ENDIF + ENDIF + ENDIF + + NEWOBS = IOBS(NP) + IRCODE = 1 + IROLD = IR(NP) + IRL = IR(NP) + MEDIUM = MED(IRL) + +C START WITH A NEW ELECTRON: LELEC = -1 FOR E-, LELEC =+1 FOR E+ + 380 CONTINUE + LELEC = 5-2*IQ(NP) + PEIE = E(NP) + IF ( PEIE .LE. ECUT(IRL) ) GOTO 390 + MEDIUM = MED(IRL) + + 401 CONTINUE + IF ( MEDIUM .NE. 0 ) THEN +C WE USE EKE = KIN. ENERGY OF ELECTRON, ELKE = LOGARITHM OF EKE + EKE = PEIE-PRM + ELKE = LOG(EKE) + CALL RMMAR(RD,1,2) + DEMFP = MAX( -LOG(DBLE(RD(1))), 1.D-6 ) +C LOOK FOR CROSS-SECTION TO DETERMINE RANGE + LELKE = EKE1*ELKE+EKE0 + IF ( LELEC .LT. 0 ) THEN + SIG0 = ESIG1(LELKE)*ELKE+ESIG0(LELKE) + ELSE + SIG0 = PSIG1(LELKE)*ELKE+PSIG0(LELKE) + ENDIF + ENDIF + 451 CONTINUE + + IF ( MEDIUM .EQ. 0 ) THEN +C WE ARE IN VACUUM + TSTEP = VACDST + USTEP = TSTEP + TUSTEP = USTEP + ALTEXP = 1.D0 + ELSE +C WE ARE IN AIR +C COMPUTE SIZE OF MAXIMUM ACCEPTABLE STEP, WHICH IS LIMITED BY +C MULTIPLE SCATTERING OR OTHER APPROXIMATIONS. + RHOFAC = RHOR(IRL)/RHO + RHOFI = 1.D0/RHOFAC + SIG = SIG0*RHOFAC + IF ( SIG .LE. 0.D0 ) THEN +C THIS CAN HAPPEN IF THE THRESHOLD FOR BREMS, (AP+RM), IS GREATER +C THAN AE. MOLLER THRESHOLD IS 2*AE-RM. IF SIG IS ZERO, WE ARE BELOW +C THE THRESHOLDS FOR BOTH BREMSSTRAHLUNG AND MOLLER. IN THIS CASE WE +C WILL JUST LOSE ENERGY BY IONIZATION LOSS UNTIL WE GO BELOW CUT-OFF. +C DO NOT ASSUME RANGE IS AVAILABLE, SO JUST ASK FOR STEP SAME AS +C VACUUM. ELECTRON TRANSPORT WILL REDUCE INTO LITTLE STEPS + TSTEP = VACDST + ELSE + TSTEP = DEMFP/SIG + ENDIF + TMXS = TMXS1(LELKE)*ELKE+TMXS0(LELKE) + TMXS = MIN( TMXS, STEPFC*200.D0*DBLE(TEFF0) ) + TMXS = TMXS*RHOFI + TUSTEP = MIN( TSTEP, TMXS ) +C EVALUATE IONIZATION ENERGY LOSS + IF ( LELEC .LT. 0 ) THEN + DEDX0 = EDEDX1(LELKE)*ELKE+EDEDX0(LELKE) + ELSE + DEDX0 = PDEDX1(LELKE)*ELKE+PDEDX0(LELKE) + ENDIF +C STERNHEIMER CORRECTION OF DENSITY DEPENDENT IONISATION ENERGY LOSS +C DEDX. SATURATION VALUE OF DEDX AT HIGH ENERGIES IS PRESSURE DEPENDENT +C AND SATURATES AT LOWER VALUES FOR HIGHER PRESSURE. THEREFORE THE +C CROSS-SECTION FILE IS ESTABLISHED WITH GAS PRESSURE OF 1.E-6 ATM +C (CORRESPONDING TO ABOUT 100 KM HIGHT IN ATMOSPHERE). THE CORRECTION +C INTRODUCED GIVES VALUES ABOUT 3% TO HIGH IN TRANSITION REGION TO +C SATURATION. THE PARAMETRISATION IS ONLY VALID FOR U.S. STANDARD ATMOS. + DEDX = RHOFAC*MIN( DEDX0, + * (86.65D0-STERNCOR-Z(NP)*8.D-6)*RLDUI ) + RANGE = (PEIE-ECUT(IRL)+0.001D0)/DEDX + BETA2 = MAX( 1.D-8, 1.D0-RMSQ/(PEIE*PEIE) ) +C THE FACTOR 0.094315=2./E_S WITH E_S = 21.2MEV + BETA3 = PEIE*BETA2*0.094315D0 + TSCAT = RLDU*BETA3**2 + TSCAT = TSCAT*RHOFI + TUSTEP = MIN( TUSTEP, 0.3D0*TSCAT, RANGE ) +C RATIO GIVES TEH NUMBER OF SCATTERS ALONG STEP + RATIO = TUSTEP/TSCAT + USTEP = TUSTEP*(1.D0-RATIO) +C USTEPU IS STEP LENGTH WITHOUT CORRECTION FOR DENSITY GRADIENT + USTEPU = USTEP + ALTEXP = EXP((-Z(NP))*HBAROI(IRL)) + USTEP = USTEP*ALTEXP + DISC = W(NP)*USTEP*HBAROI(IRL) + IF ( ABS(DISC) .LT. .0000007D0 ) THEN + USTEP = USTEP*(1.D0-.5D0*DISC*(1.D0-.666666666666667D0*DISC* + * (1.D0-.75D0*DISC*(1.D0-.8D0*DISC)))) + ELSEIF ( DISC .GT. -1.D0 ) THEN + USTEP = USTEP*LOG(DISC+1.D0)/DISC + ELSE + USTEP = VACDST + ENDIF +C USTEP IS STEP LENGTH WITH CORRECTION FOR DENSITY GRADIENT + TUSTPC = USTEP/(1.D0-RATIO) + ENDIF + IRNEW = IR(NP) + IDISC = 0 + USTEP0 = USTEP +C REDUCE STEPSIZE, IF PARTICLE COILS WITH ANGLES >0.2 RAD (=11.4 DEG.) +C IN MAGNETIC FIELD + USTEP = MIN( USTEP, BLIMIT*PEIE ) +C LOOK HOW FAR WE CAN GO + IF ( USTEP .GT. DNEAR(NP) ) CALL HOWFAR + IF ( IDISC .GT. 0 ) GOTO 420 + IF ( USTEP .LE. 0.D0 ) THEN + IF ( USTEP .LT. -1.D-4 ) THEN +C NEGATIVE USTEP---PROBABLE TRUNCATION PROBLEM AT A BOUNDARY, WHICH +C MEANS WE ARE NOT IN THE REGION WE THINK WE ARE IN. THE DEFAULT MACRO +C ASSUMES THAT USER HAS SET IRNEW TO THE REGION WE ARE REALLY MOST +C LIKELY TO BE IN. A MESSAGE IS WRITTEN OUT WHENEVER USTEP IS LESS +C THAN -1.E-4 + WRITE(KMPO,460) USTEP + 460 FORMAT(' ELECTR: NEGATIVE USTEP=',G20.10,' CM') + WRITE(KMPO,470) Z(NP),DNEAR(NP),IR(NP),IRNEW,W(NP) + 470 FORMAT (' Z=',G15.7, ' DNEAR=',G15.7,' IR=',I5, ' IRNEW=',I5, + * ' W=',G15.7) + NSTPCN = NSTPCN+1 + IF ( NSTPCN .GE. 20 ) THEN + CALL AUSGB2 + WRITE(KMPO,480) NSTPCN + 480 FORMAT (' ELECTR: PROGRAM STOPPED BECAUSE OF FREQUENT NEGA', + * 'TIVE USTEP, COUNTER = ',I5) + STOP + ENDIF + ENDIF + USTEP = 0.D0 + ENDIF + IF ( IDISC .LT. 0 ) THEN +C PARTICLE WILL CROSS THE DETECTOR LEVEL + ZOLD = Z(NP) + XOLD = X(NP) + YOLD = Y(NP) + DISTO2 = X(NP)**2 + Y(NP)**2 + IF ( FEGSDB ) THEN + WRITE(MDEBUG,*) 'ELECTR: WE APPROACH DETECTOR' + CALL AUSGB2 + ENDIF + AUXILSQ = SQRT(DISTO2) + WA(NP) = COS(AUXILSQ/C(1)) + WA(NP) = MIN( 1.D0, WA(NP) ) + ZAP(NP) = - (C(1)-Z(NP)) * WA(NP) + C(1) +C REGARD WHETHER PARTICLE IS MOVING TOWARDS DETECTOR +C EFFECTIVE DISTANCE TO DETECTOR CENTER IS DISTANCE TO POINT +C OF FLIGHT PATH PROJECTION WHICH COMES CLOSEST TO DETECTOR CENTER + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + PHIC = -ATAN2(V(NP),U(NP)) + ELSE + PHIC = 0.D0 + ENDIF + DSTEFF = -( COS(PHIC)*X(NP) + SIN(PHIC)*Y(NP) ) +C CALCULATE CORRECTION ANGLE DIF FROM EFFECTIVE DISTANCE DSTEFF + SINDIF = SIN(DSTEFF/C(1)) + COSDIF = SQRT( 1.D0 - SINDIF**2) + COSTHENEW = W(NP)*COSDIF - SQRT(1.D0-W(NP)**2)*SINDIF + IF ( FEGSDB ) WRITE(MDEBUG,*) 'ELECTR: COSDIF,COSTHENEW=', + * SNGL(COSDIF),SNGL(COSTHENEW) + W(NP) = MIN( 1.D0, COSTHENEW ) +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) GOTO 420 +C ANGLE DIF (= DSTEFF/C(1)) MIGHT BE LARGE DUE TO CUT ON HAPP + X(NP) = (-ZAP(NP) + C(1)) * TAN(X(NP)/C(1)) + Y(NP) = (-ZAP(NP) + C(1)) * TAN(Y(NP)/C(1)) + Z(NP) = ZAP(NP) + IF ( U(NP) .NE. 0.D0 ) THEN + TANPHI= V(NP)/U(NP) + U(NP) = SIGN(1.D0,U(NP)) * + * SQRT((1.D0-W(NP)**2)/(1.D0+TANPHI**2)) + V(NP) = TANPHI * U(NP) + ELSE + IF ( V(NP) .NE. 0.D0 ) + * V(NP) = SIGN(1.D0,V(NP)) * SQRT( 1.D0 - W(NP)**2 ) + ENDIF + USTEP = -(Z(NP)+OBSLEV(1))/W(NP) + IF ( FEGSDB ) THEN + WRITE(MDEBUG,*) 'ELECTR: CORR. FOR DET. ARRIVAL:USTEP=',USTEP + CALL AUSGB2 + ENDIF + IPASC = 1 + DETSYS = .TRUE. + ELSE + DETSYS = .FALSE. +C PARTICLE MOVES TO END OF ITS RANGE, WE DO NOT YET APPROACH DETECTOR + IPASC = 0 + ZOLD = Z(NP) + XOLD = X(NP) + YOLD = Y(NP) + DISTO2= X(NP)**2 + Y(NP)**2 + ENDIF +C FILL IN CHERENKOV COORDINATES AT BEGIN OF STEP + EBEG = PEIE*1.D-3 + EEND = PEIE*1.D-3 + XBEG = X(NP) + YBEG = -Y(NP) + ZBEG = -Z(NP) + TBEG = TIM(NP) + +C WE ARE IN VACUUM OR MAKE A ZERO STEP + IF ( USTEP .EQ. 0.D0 .OR. MEDIUM .EQ. 0 ) THEN + IF ( USTEP .NE. 0.D0 ) THEN + VSTEP = USTEP + TVSTEP = VSTEP +C WE ARE IN VACUUM, NO ENERGY LOSS + EDEP = 0.D0 + TVSTPC = TVSTEP +C CHARGED PARTICLE TRANSPORT IN EARTH MAGNETIC FIELD +C SEE ALSO SLAC-265, P. 127 FF + ALPHA = VSTEP*LELEC*BNORM/PEIE + TVSTPC = TVSTPC*(1.D0+0.04166667D0*ALPHA**2) + U0 = U(NP) + V0 = V(NP) + W0 = W(NP) + FNORM = 1.D0-0.5D0*ALPHA**2*(1.D0-0.75D0*ALPHA**2) + F1SIN = (1.D0-FNORM)*SINB + F1COS = (1.D0-FNORM)*COSB + V1 = V0*ALPHA*FNORM + USW = U0*SINB-W0*COSB + U(NP) = U0-F1SIN*USW+V1*SINB + V(NP) = FNORM*(V0-ALPHA*USW) + W(NP) = W0+F1COS*USW-V1*COSB + RADINV= 1.5D0-0.5D0*(U(NP)**2+V(NP)**2+W(NP)**2) + U(NP) = U(NP)*RADINV + V(NP) = V(NP)*RADINV + W(NP) = W(NP)*RADINV + UMEAN = 0.5D0*(U0+U(NP)) + VMEAN = 0.5D0*(V0+V(NP)) + WMEAN = 0.5D0*(W0+W(NP)) + X(NP) = X(NP) + VSTEP*UMEAN + Y(NP) = Y(NP) + VSTEP*VMEAN + Z(NP) = Z(NP) + VSTEP*WMEAN + IF ( IPASC .EQ. 0 ) THEN +C NORMAL STEP TO END OF PARTICLE RANGE, WE DO NOT YET APPROACH DETECTOR + W(NP) = MIN( 1.D0, W(NP) ) +C HORIZONTAL COMPONENT OF TRACK LENGTH SQUARED + TRANS2 = (X(NP)-XOLD)**2 + (Y(NP)-YOLD)**2 +C TRANSPORT AT MINIMUM .001 MM + TRANS2 = MAX( TRANS2, 0.00001D0 ) +C NEW COORDINATE FRAME, NEW ACTUAL HEIGHT AT NEW THICKNESS GRADIENT +C (CALCULATED WITH PARAMETERS OF OLD COORDINATE FRAME) + AUXIL = SQRT( TRANS2 + (C(1)-Z(NP))**2 ) + ZNEW = C(1) - AUXIL +C CALCULATE ANGLE DIFFERENCE BETWEEN OLD AND NEW FRAME + SINDIF = SQRT(TRANS2) / AUXIL + COSDIF = (C(1)-Z(NP)) / AUXIL + IF ( FEGSDB ) WRITE(MDEBUG,560) COSDIF,SINDIF,-Z(NP),-ZNEW + 560 FORMAT(/' ELECTR: COSDIF,SINDIF,Z,ZNEW=',2F18.15,1P,2E17.9) + COSDIF = MIN( 1.D0, COSDIF ) +C CORRECTED X AND Y HAVE TO BE CALCULATED BEFORE DISTN2 +C TRANSPORT DISTANCE IS CORRECTED TO GET DISTANCE AT EARTH' SURFACE + CORR = C(1)*ASIN(SINDIF)/( (C(1)-ZNEW)*SINDIF ) + X(NP) = XOLD + (X(NP)-XOLD)*CORR + Y(NP) = YOLD + (Y(NP)-YOLD)*CORR + Z(NP) = ZNEW +C NEW DISTANCE FROM PARTICLE TO DETECTOR CENTER + DISTN2 = X(NP)**2 + Y(NP)**2 +C COMPARE NEW AND OLD DISTANCE TO DETECTOR CENTER + IF ( DISTN2 .LT. DISTO2 ) THEN +C PARTICLE MOVES TOWARDS DETECTOR CENTER + SIGNE = +1.D0 + ELSE + SIGNE = -1.D0 + IF ( FEGSDB ) WRITE(MDEBUG,*) 'ELECTR: SIGNE=',SIGNE + ENDIF +C IN FIRST ORDER APPROXIMATION W(NP) AND COSDIF ARE IN THE SAME PLANE +C OF PARTICLE MOVEMENT, THEREFORE THE ANGLES MAY BE ADDED DIRECTLY + COSTHENEW = W(NP)*COSDIF - SIGNE*SINDIF*SQRT(1.D0-W(NP)**2) + W(NP) = MIN( 1.D0, COSTHENEW ) +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) GOTO 420 + IF ( FEGSDB ) THEN + WRITE(MDEBUG,562) WA(NP),-ZAP(NP) + 562 FORMAT(' ELECTR: WA,-ZAP=',F18.15,1P,E17.9) + WRITE(MDEBUG,557) U(NP),V(NP),W(NP),X(NP),-Y(NP),-Z(NP) + 557 FORMAT(' ELECTR: STEPEND=',1P,6E10.3,0P) + ENDIF +C CALCULATE ANGLES IN THE NEW FRAME + AUXILSQ = SQRT(X(NP)**2 + Y(NP)**2) + WA(NP) = COS(AUXILSQ/C(1)) + WA(NP) = MIN( 1.D0, WA(NP) ) + ZAP(NP) = -(C(1)-ZNEW) * WA(NP) + C(1) + AUX2SQ = SQRT( (C(1)-ZNEW)**2*(1.D0 - WA(NP)**2) + * + (-ZAP(NP)-OBSLEV(1))**2 ) + WAP(NP) = -(OBSLEV(1)+ZAP(NP)) / AUX2SQ + IF ( FEGSDB ) WRITE(MDEBUG,*) 'ELECTR: WAP=',WAP(NP) +C KILL PARTICLES, WHICH ARE BELOW DETECTOR SURFACE +C CUT ON APPARENT HEIGHT + IF ( -ZAP(NP) .LE. OBSLEV(1) ) GOTO 420 + WAP(NP) = MIN( 1.D0, WAP(NP) ) + IF ( U(NP) .NE. 0.D0 ) THEN + TANPHI= V(NP) / U(NP) + U(NP) = SIGN(1.D0,U(NP)) * + * SQRT( (1.D0-W(NP)**2)/(1.D0+TANPHI**2) ) + V(NP) = TANPHI * U(NP) + ELSE + IF ( V(NP) .NE. 0.D0 ) + * V(NP) = SIGN(1.D0,V(NP)) * SQRT( 1.D0 - W(NP)**2 ) + ENDIF + ENDIF + TIM(NP) = TIM(NP) + TVSTPC*VCI/SQRT(1.D0-(PRM/E(NP))**2) +C NO CHERENKOV PHOTONS, WE ARE IN VACUUM +C ADD ELECTRONS TO THE LONGITUDINAL DEVELOPMENT +C FIND FIRST THE EQUIVALENT LEVELS + IF ( LLONGI ) THEN +C IF STARTING POINT BELOW LOWEST LEVEL THEN DON'T CHECK + IF ( HLONG(NSTEP) .LE. -ZOLD ) THEN + LPCT1 = LPCTE(NP) +C Z NEW IS PROBABLY ONLY LITTLE BELOW Z OLD, THEREFORE INCREMENTAL SEARCH + DO I1 = LPCT1,NSTEP + IF ( HLONG(I1) .LT. -Z(NP) ) GOTO 6003 + ENDDO + I1 = NSTEP + 1 + 6003 CONTINUE + LPCT2 = I1 - 1 +C STORE END POINT AS POSSIBLE STARTPOINT OF NEXT TRACK + LPCTE(NP) = LPCT2 + 1 + DO I = LPCT1,LPCT2 + PLONG(I,IQ(NP)) = PLONG(I,IQ(NP)) + 1.D0 + ENDDO + IF ( IDISC .LT. 0 ) + * PLONG(LPCT2+1,IQ(NP)) = PLONG(LPCT2+1,IQ(NP)) + 1.D0 +C WE ARE IN VACUUM NO ENERGY LOSS. RELEASABLE ENERGY ERELS [GEV] + ERELS = 1.D-3*( E(NP) - DBLE(2*IQ(NP)-5) * PRM ) +C NOW FILL FIRST AND LAST BINS, THEN LOOP OVER THE BINS BETWEEN + IF ( LPCT2 .LT. NSTEP ) THEN + IF ( IDISC .LT. 0 ) THEN + ELONG(LPCT2+1,IQ(NP)) = ELONG(LPCT2+1,IQ(NP)) + ERELS + ENDIF + ENDIF + IF ( LPCT2 .GE. LPCT1 ) THEN + ELONG(LPCT2,IQ(NP)) = ELONG(LPCT2,IQ(NP)) + ERELS + ENDIF +C LOOP OVER ALL LONGITUDINAL BINS + IF ( LPCT2 .GT. LPCT1 ) THEN + DO I = LPCT1,LPCT2-1 + ELONG(I,IQ(NP)) = ELONG(I,IQ(NP)) + ERELS + ENDDO + ENDIF + ENDIF +C END LONGITUDINAL DISTRIBUTION FILLING + ENDIF + + DNEAR(NP) = DNEAR(NP)-VSTEP + IROLD = IR(NP) +C END OF STEP IN VACUUM + ENDIF + IR(NP) = IRNEW + IRL = IRNEW + MEDIUM = MED(IRL) + IF ( PEIE .LE. ECUT(IRL) ) GOTO 390 +C KILL UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) GOTO 420 + IF ( USTEP .NE. 0.D0 ) THEN + IF ( NEWOBS .GT. IOBS(NP) ) THEN + CALL AUSGAB + IOBS(NP) = NEWOBS + ENDIF + ENDIF + GOTO 401 + ENDIF + +C WE ARE IN NORMAL MEDIUM WITH NORMAL STEP + VSTEP = USTEP + IF ( USTEP .EQ. USTEP0 ) THEN + TVSTEP = TUSTEP + TVSTPC = TUSTPC + ELSE +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) GOTO 420 +C PATH LENGTH CORRECTION FOR BAROMETRIC AIR + VSTEPU = VSTEP + DISC = W(NP)*VSTEPU*HBAROI(IRL) + IF ( DISC .NE. 0.D0 ) THEN + VSTEPU = VSTEPU*(EXP(DISC)-1.D0)/(DISC*ALTEXP) + ENDIF +C PATH LENGTH CORRECTION FOR MULTIPLE SCATTERING + VSTP = VSTEPU/TSCAT + IPTH = B0PTH+B1PTH*VSTP + IPTH = MAX( IPTH, 1 ) + IF ( IPTH .GT. NPTH ) THEN + CALL AUSGB2 + WRITE(KMPO,490) VSTP,IPTH,NPTH + 490 FORMAT (' ELECTR: OUT OF BOUNDS IPTH: VSTP,IPTH,NPTH=' , 1P , + * G15.6,2I10) + STOP + ENDIF + PTH = PTH0(IPTH)+VSTP*(PTH1(IPTH)+VSTP*PTH2(IPTH)) + TVSTEP = PTH*VSTEPU + TVSTPC = PTH*VSTEP + ENDIF +C DEFLECTION IN MAGNETIC FIELD + ALPHA = VSTEP*LELEC*BNORM/PEIE + TVSTPC = TVSTPC*(1.D0+0.04166667D0*ALPHA**2) +C NOW TAKE IONIZATION LOSSES INTO ACCOUNT + DE = DEDX*TVSTEP + EDEP = DE + EKEF = EKE-DE + EOLD = PEIE + ENEW = EOLD-DE +C NOW CHANGE ANGLE BECAUSE OF MULTIPLE SCATTERING + CALL MSCAT +C WE NOW KNOW DISTANCE AND AMOUNT OF ENERGY LOSS FOR THIS STEP, +C AND THE ANGLE BY WHICH THE ELECTRON WILL BE SCATTERED. + U0 = U(NP) + V0 = V(NP) + W0 = W(NP) +C NOW TRANSPORT, DEDUCT ENERGY LOSS, DO MULTIPLE SCATTER AND +C DEFLECT IN MAGNETIC FIELD + FNORM = 1.D0-0.5D0*ALPHA**2*(1.D0-0.75D0*ALPHA**2) + F1SIN = (1.D0-FNORM)*SINB + F1COS = (1.D0-FNORM)*COSB + V1 = V0*ALPHA*FNORM + USW = U0*SINB-W0*COSB + U(NP) = U0-F1SIN*USW+V1*SINB + V(NP) = FNORM*(V0-ALPHA*USW) + W(NP) = W0+F1COS*USW-V1*COSB +C MAGNETIC DEFLECTION IS APPROXIMATION, THEREFORE RENORMALIZE U, V, W + RADINV= 1.5D0-0.5D0*(U(NP)**2+V(NP)**2+W(NP)**2) + U(NP) = U(NP)*RADINV + V(NP) = V(NP)*RADINV + W(NP) = W(NP)*RADINV + UMEAN = 0.5D0*(U0+U(NP)) + VMEAN = 0.5D0*(V0+V(NP)) + WMEAN = 0.5D0*(W0+W(NP)) + X(NP) = X(NP) + VSTEP*UMEAN + Y(NP) = Y(NP) + VSTEP*VMEAN + Z(NP) = Z(NP) + VSTEP*WMEAN + IF ( IPASC .EQ. 0 ) THEN +C WE TRANSPORT THE PARTICLE TO END OF IT'S RANGE, NORMAL STEP + W(NP) = MIN( 1.D0, W(NP) ) +C HORIZONTAL COMPONENT OF TRACK LENGTH SQUARED + TRANS2 = (X(NP)-XOLD)**2 + (Y(NP)-YOLD)**2 +C TRANSPORT AT MINIMUM .001 MM + TRANS2 = MAX( TRANS2, 0.00001D0 ) +C NEW COORDINATE FRAME, NEW ACTUAL HEIGHT AT NEW THICKNESS GRADIENT +C (CALCULATED WITH PARAMETERS OF OLD COORDINATE FRAME) + AUXIL = SQRT( TRANS2 + (C(1)-Z(NP))**2 ) + ZNEW = C(1) - AUXIL +C CALCULATE ANGLE DIFFERENCE BETWEEN OLD AND NEW FRAME + SINDIF = SQRT(TRANS2) / AUXIL + COSDIF = (C(1)-Z(NP)) / AUXIL + IF ( FEGSDB ) WRITE(MDEBUG,560) COSDIF,SINDIF,-Z(NP),-ZNEW + COSDIF = MIN( 1.D0, COSDIF ) +C CORRECTED X AND Y HAVE TO BE CALCULATED BEFORE DISTN2 +C TRANSPORT DISTANCE IS CORRECTED TO GET DISTANCE AT EARTH' SURFACE + CORR = C(1)*ASIN(SINDIF)/( (C(1)-ZNEW)*SINDIF ) + X(NP) = XOLD + (X(NP)-XOLD)*CORR + Y(NP) = YOLD + (Y(NP)-YOLD)*CORR + Z(NP) = ZNEW +C NEW DISTANCE FROM PARTICLE TO DETECTOR CENTER + DISTN2 = X(NP)**2 + Y(NP)**2 +C COMPARE NEW AND OLD DISTANCE TO DETECTOR CENTER + IF ( DISTN2 .LT. DISTO2 ) THEN +C PARTICLE MOVES TOWARDS DETECTOR CENTER + SIGNE = +1.D0 + ELSE + SIGNE = -1.D0 + IF ( FEGSDB ) WRITE(MDEBUG,*) 'ELECTR: SIGNE=',SIGNE + ENDIF +C IN FIRST ORDER APPROXIMATION W(NP) AND COSDIF ARE IN THE SAME PLANE +C OF PARTICLE MOVEMENT, THEREFORE THE ANGLES MAY BE ADDED DIRECTLY + COSTHENEW = W(NP)*COSDIF - SIGNE*SINDIF*SQRT(1.D0-W(NP)**2) + W(NP) = MIN( 1.D0, COSTHENEW ) +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) GOTO 420 + IF ( FEGSDB ) THEN + WRITE(MDEBUG,562) WA(NP),-ZAP(NP) + WRITE(MDEBUG,557) U(NP),V(NP),W(NP),X(NP),-Y(NP),-Z(NP) + ENDIF +C CALCULATE ANGLES IN THE NEW FRAME + AUXILSQ = SQRT(X(NP)**2 + Y(NP)**2) + WA(NP) = COS(AUXILSQ/C(1)) + WA(NP) = MIN( 1.D0, WA(NP) ) + ZAP(NP) = -(C(1)-ZNEW) * WA(NP) + C(1) + AUX2SQ = SQRT( (C(1)-ZNEW)**2*(1.D0 - WA(NP)**2) + * + (-ZAP(NP)-OBSLEV(1))**2 ) + WAP(NP) = -(OBSLEV(1)+ZAP(NP)) / AUX2SQ + IF ( FEGSDB ) WRITE(MDEBUG,*) 'ELECTR: WAP=',WAP(NP) +C LOOK WETHER PARTICLE IS ALREADY ON DETECTOR SURFACE +C CUT ON APPARENT HEIGHT + IF ( -ZAP(NP) .LE. OBSLEV(1) ) GOTO 420 + WAP(NP) = MIN( 1.D0, WAP(NP) ) + + IF ( U(NP) .NE. 0.D0 ) THEN + TANPHI= V(NP) / U(NP) + U(NP) = SIGN(1.D0,U(NP)) * + * SQRT((1.D0-W(NP)**2)/(1.D0+TANPHI**2)) + V(NP) = TANPHI * U(NP) + ELSE + IF ( V(NP) .NE. 0.D0 ) + * V(NP) = SIGN(1.D0,V(NP)) * SQRT( 1.D0 - W(NP)**2 ) + ENDIF + ENDIF + TIM(NP) = TIM(NP) + TVSTPC*VCI/SQRT(1.D0-(PRM/E(NP))**2) +C FILL IN CHERENKOV COORDINATES AT END OF STEP + IF ( .NOT. DETSYS ) THEN +C WE ARE NOT IN LOCAL SYSTEM OF DETECTOR + TRANS2 = VSTEP**2 * (UMEAN**2 + VMEAN**2) +C TAKE HEIGHT AT END POINT OF TRACK + AUXIL = SQRT( TRANS2 + (C(1)+(-Z(NP)))**2 ) + SINDIF = SQRT( TRANS2 )/AUXIL + IF ( SINDIF .GT. 0.D0 ) THEN + CORR = C(1) * ASIN(SINDIF) / (AUXIL*SINDIF) + ELSE + CORR = 1.D0 + ENDIF + XEND = XBEG + UMEAN * VSTEP * CORR + YEND = YBEG - VMEAN * VSTEP * CORR +C CALCULATE EARTH ANGLE BETWEEN THE ACTUAL LOCAL AND THE +C APPARENT COORDINATE SYSTEM + AUXIL = SQRT( XBEG**2 + YBEG**2 ) + CTEA = COS( AUXIL/C(1) ) + ELSE +C HERE WE ARE IN LOCAL DETECTOR SYSTEM + XEND = X(NP) + YEND = -Y(NP) + ENDIF + ZEND = -Z(NP) + TEND = TIM(NP) + EEND = (PEIE - EDEP)*1.D-3 +C GENERATE CHERENKOV PHOTONS + IF ( FNPRIM ) CALL CERENK(TVSTPC,UMEAN,-VMEAN,WMEAN,EBEG,EEND, + * XBEG,YBEG,ZBEG,XEND,YEND,ZEND,TBEG,TEND,PRM*1.D-3,1.D0, + * 1.D0,CTEA) +C ADD ELECTRONS TO THE LONGITUDINAL DEVELOPMENT +C FIND FIRST THE EQUIVALENT LEVELS + IF ( LLONGI ) THEN +C IF STARTING POINT BELOW LOWEST LEVEL THEN DON'T CHECK + IF ( HLONG(NSTEP) .LE. -ZOLD ) THEN + LPCT1 = LPCTE(NP) +C Z NEW IS PROBABLY ONLY LITTLE BELOW Z OLD, THEREFORE INCREMENTAL SEARCH + DO I1 = LPCT1,NSTEP + IF ( HLONG(I1) .LT. -Z(NP) ) GOTO 6103 + ENDDO + I1 = NSTEP + 1 + 6103 CONTINUE + LPCT2 = I1 - 1 +C STORE END POINT AS POSSIBLE STARTPOINT OF NEXT TRACK + LPCTE(NP) = LPCT2 + 1 + DO I = LPCT1,LPCT2 + PLONG(I,IQ(NP)) = PLONG(I,IQ(NP)) + 1.D0 + ENDDO + IF ( IDISC .LT. 0 ) + * PLONG(LPCT2+1,IQ(NP)) = PLONG(LPCT2+1,IQ(NP)) + 1.D0 +C TOTAL PATH LENGTH STEPT IN UNITS OF LONGI BINS + THCKHO = THICK(-ZOLD) + THCKHN = THICK(-Z(NP)) + STEPT = (THCKHN - THCKHO)*THSTPI +C RELEASABLE ENERGY [IN GEV] + ERELS = 1.D-3*( E(NP) - DBLE(2*IQ(NP)-5) * PRM ) +C WE ASSUME HOMOGENEOUS ENERGY DEPOSIT ALONG PATH +C IONIZATION E(NERGY) DEP(OSED IN EACH) B(IN) [IN GEV] + IF ( STEPT .GT. 0.D0 ) THEN + EDEPB = EDEP*1.D-3/STEPT + ELSE + EDEPB = 0.D0 + ENDIF +C ENERGY DEPOSIT IN FIRST BIN + EDEP1 = EDEPB * (DBLE(LPCT1) - THCKHO*THSTPI) +C ENERGY AT FIRST BIN BOUNDARY + EFRST = ERELS - EDEP1 + IF ( LPCT2. LT. LPCT1 ) THEN + EDEPN = EDEPB * (THCKHN*THSTPI - DBLE(LPCT1)) + ELSE + EDEPN = MAX( 0.D0, EDEPB*(THCKHN*THSTPI - DBLE(LPCT2)) ) + ENDIF +C NOW FILL FIRST AND LAST+1 BIN, THEN LOOP OVER THE BINS BETWEEN + DLONG(LPCT1 ,2) = DLONG(LPCT1 ,2) + EDEP1 + IF ( LPCT2 .LT. NSTEP ) THEN + DLONG(LPCT2+1,2) = DLONG(LPCT2+1,2) + EDEPN + IF ( IDISC .LT. 0 ) THEN + ELONG(LPCT2+1,IQ(NP)) = ELONG(LPCT2+1,IQ(NP)) + * + MAX( 0.D0, (EFRST-(LPCT2+1-LPCT1)*EDEPB) ) + ENDIF + ENDIF + IF ( LPCT2 .GE. LPCT1 ) THEN + ELONG(LPCT2,IQ(NP)) = ELONG(LPCT2,IQ(NP)) + * + MAX( 0.D0, (EFRST-(LPCT2-LPCT1)*EDEPB) ) + ENDIF +C LOOP OVER ALL LONGITUDINAL BINS + IF ( LPCT2 .GT. LPCT1 ) THEN + DO I = LPCT1,LPCT2-1 + DLONG(I+1,2) = DLONG(I+1,2) + EDEPB + ELONG(I,IQ(NP)) = ELONG(I,IQ(NP)) + * + MAX( 0.D0, (EFRST-(I-LPCT1)*EDEPB) ) + ENDDO + ENDIF +C END LONGITUDINAL DISTRIBUTION FILLING + ENDIF + ENDIF + + DNEAR(NP) = DNEAR(NP)-VSTEP + IROLD = IR(NP) +C NOW ADD ANGLE OF MULTIPLE SCATTERING (SEE ALSO SUBR. UPHI) + CALL RMMAR(RD,1,2) + PHI = RD(1)*TWOPI + SINPHI = SIN(PHI) + COSPHI = COS(PHI) + A = U(NP) + B = V(NP) + CC = W(NP) + SINPS2 = A**2+B**2 + IF ( SINPS2 .LT. 1.D-20 ) THEN + U(NP) = SINTHE*COSPHI + V(NP) = SINTHE*SINPHI + W(NP) = CC*COSTHE + ELSE + SINPSI = SQRT(SINPS2) + US = SINTHE*COSPHI + VS = SINTHE*SINPHI + SINDEL = B*(1.D0/SINPSI) + COSDEL = A*(1.D0/SINPSI) + U(NP) = CC*COSDEL*US-SINDEL*VS+A*COSTHE + V(NP) = CC*SINDEL*US+COSDEL*VS+B*COSTHE + W(NP) = (-SINPSI)*US+CC*COSTHE + ENDIF +C UPDATE ENERGY + PEIE = PEIE-EDEP + E(NP) = PEIE + IF ( PEIE .LE. ECUT(IRL) ) GOTO 390 + MEDOLD = MEDIUM + IF ( MEDIUM .NE. 0 ) THEN +C UPDATE KINETIC ENERGY + EKEOLD = EKE + EKE = PEIE-PRM + ELKE = LOG(EKE) + LELKE = EKE1*ELKE+EKE0 + ENDIF + IF ( IRNEW .NE. IROLD ) THEN +C LAYER HAS CHANGED + IR(NP) = IRNEW + IRL = IRNEW + MEDIUM = MED(IRL) + ENDIF + IF ( PEIE .LE. ECUT(IRL) ) GOTO 390 +C KILL UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) GOTO 420 +C LOOK FOR OBSERVATION LEVEL AND GIVE TO OUTPUT + IF ( NEWOBS .GT. IOBS(NP) ) THEN + CALL AUSGAB + IOBS(NP) = NEWOBS + ENDIF + IF ( IDISC .LT. 0 ) GOTO 420 + IF ( MEDIUM .NE. MEDOLD ) GOTO 401 + DEMFP = MAX( 0.D0, DEMFP-TVSTEP*SIG ) +C SKIP BACK IF STEP LENGTH NOT YET TOTALLY EXHAUSTED + IF ( DEMFP .GE. 1.D-6 ) GOTO 451 +C COMPUTE FINAL SIGMA TO SEE IF RESAMPLE IS NEEDED. +C THIS WILL TAKE THE ENERGY VARIATION OF THE SIGMA INTO +C ACCOUNT USING THE FICTITIOUS SIGMA METHOD. + IF ( LELEC .LT. 0 ) THEN + SIGF = ESIG1(LELKE)*ELKE+ESIG0(LELKE) + ELSE + SIGF = PSIG1(LELKE)*ELKE+PSIG0(LELKE) + ENDIF + CALL RMMAR(RD,1,2) + IF ( RD(1) .GT. SIGF/SIG0 ) GOTO 401 + + IF ( .NOT. FNPRIM ) THEN +C DETERMINE THE ALTITUDE OF THE FIRST INTERACTION + IF ( .NOT. TMARGIN ) THEN + X(1) = 0.D0 + Y(1) = 0.D0 + ENDIF + IF ( FIX1I ) THEN +C IF HEIGHT OF FIRST INTERACTION IS FIXED, TAKE STARTING ANGLES OF +C PRIMARY PARTICLE + Z(1) = -FIXHEI + NP = 1 + LPCTE(1) = MIN(NSTEP,INT(THICK(FIXHEI)*THSTPI)+1) + SITHET = SQRT(1.D0-SECPAR(3)**2) + U(1) = SITHET*COS(-SECPAR(4)) + V(1) = SITHET*SIN(-SECPAR(4)) + W(1) = SECPAR(3) + ENDIF + EVTH(6) = 0. + IF ( TMARGIN ) THEN +C NEGATIVE FIRST INTERACTION HEIGHT,IF TRACKING STARTS AT ATMOS. MARGIN + EVTH(7) = Z(1) + ELSE + EVTH(7) = -Z(1) + ENDIF + CALL TOBUF(EVTH,0) +C OUTPUT OF EVENTHEADER TO THE CHERENKOV FILE + IF ( LCERFI ) CALL TOBUFC( EVTH,0 ) + CALL CORNEC + TIM(1) = 0.D0 + FNPRIM = .TRUE. + IF ( FPRINT ) THEN + WRITE(KMPO,*) ' FIRST INTERACTION AT ',ABS(EVTH(7)*0.01),' M' + ENDIF + ENDIF + +C NOW SAMPLE ELECTRON INTERACTION, LOOK FOR BRANCHING RATIOS + IF ( LELEC .LT. 0 ) THEN + EBR1 = EBR11(LELKE)*ELKE+EBR10(LELKE) + CALL RMMAR(RD,1,2) + IF ( RD(1) .LE. EBR1 ) THEN +C MAKE BREMSSTRAHLUNG + GOTO 500 + ELSE + IF ( E(NP) .LE. THMOLL ) THEN + IF ( EBR1 .LE. 0.D0 ) GOTO 380 + GOTO 500 + ENDIF +C MOLLER SCATTERING + CALL MOLLER + ENDIF +C ELECTRON IS LOWEST ENERGY - FOLLOW IT + GOTO 380 + ENDIF + + PBR1 = PBR11(LELKE)*ELKE+PBR10(LELKE) + CALL RMMAR(RD,1,2) + IF ( RD(1) .LT. PBR1 ) THEN +C BREMSSTRAHLUNG + GOTO 500 + ENDIF + PBR2 = PBR21(LELKE)*ELKE+PBR20(LELKE) + IF ( RD(1) .LT. PBR2 ) THEN +C BHABHA SCATTERING + CALL BHABHA + ELSE +C ANNIHILATION + CALL ANNIH + RETURN + ENDIF + GOTO 380 + + 500 CONTINUE +C BREMSSTRAHLUNG + CALL BREMS + IF ( IQ(NP) .EQ. 1 ) THEN +C PHOTON ON TOP OF STACK + RETURN + ELSE +C ELECTRON ON TOP OF STACK + GOTO 380 + ENDIF + +C ENERGY DEPOSIT FOR ELECTRON BELOW CUT + 390 IF ( PEIE .GT. AE ) THEN + IDR = 1 + IF ( LELEC .LT. 0 ) THEN + EDEP = PEIE-PRM + ELSE + EDEP = PEIE-PRM + ENDIF + ELSE + IDR = 2 + EDEP = PEIE-PRM + ENDIF + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS + DLONG(LPCTE(NP),3) = DLONG(LPCTE(NP),3) + EDEP*1.D-3 + ENDIF + IF ( LELEC .GT. 0 ) THEN +C IT'S A POSITRON. PRODUCE ANNIHILATION GAMMAS IF EDEP < PEI + IF ( EDEP .LT. PEIE ) THEN + CALL RMMAR(RD,2,2) + COSTHE = RD(1) + FLIP = RD(2) + IF ( FLIP .LE. 0.5D0 ) COSTHE = -COSTHE + SINTHE = SQRT( MAX( 0.D0, 1.0-COSTHE**2 ) ) + E(NP) = PRM + IQ(NP) = 1 + U(NP) = 0.D0 + V(NP) = 0.D0 + W(NP) = 1.D0 +C UPHI WILL PICK RANDOM AZIMUTHAL ANGLE + CALL UPHI(2,1) + NP = NP+1 + E(NP) = PRM + IQ(NP) = 1 + X(NP) = X(NP-1) + Y(NP) = Y(NP-1) + Z(NP) = Z(NP-1) + LPCTE(NP) = LPCTE(NP-1) + IR(NP) = IR(NP-1) + DNEAR(NP) = DNEAR(NP-1) + TIM(NP) = TIM(NP-1) + IGEN(NP) = IGEN(NP-1) + IOBS(NP) = IOBS(NP-1) +C SECOND GAMMA IN OPPOSITE DIRECTION + U(NP) = -U(NP-1) + V(NP) = -V(NP-1) + W(NP) = -W(NP-1) + ZAP(NP)= ZAP(NP-1) + WAP(NP)= WAP(NP-1) + WA(NP) = WA(NP-1) + RETURN + ENDIF + ENDIF + NP = NP-1 + IRCODE = 2 + RETURN + +C ELECTRON IS ELEMINATED BECAUSE OF CUT + 420 IF ( LELEC .LT. 0 ) THEN + EDEP = PEIE-PRM + ELSE + EDEP = PEIE+PRM + ENDIF + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS + DLONG(LPCTE(NP),3) = DLONG(LPCTE(NP),3) + EDEP*1.D-3 + ENDIF + IRCODE = 2 + NP = NP-1 + RETURN + END +*CMZ : 12/10/2001 14.53.55 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE HATCH +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C HATCH (THE CROSS-SECTION FILE) +C +C SETUP WHICH THE USER IS EXPECTED TO DO BEFORE CALLING HATCH IS: +C 1. SET 'NMED' TO THE NUMBER OF MEDIA TO BE USED. +C 2. SET THE ARRAY 'MEDIA', WHICH CONTAINS THE NAMES OF THE +C MEDIA THAT ARE DESIRED. THE CHARACTER FORMAT IS A1, SO +C THAT MEDIA(IB,IM) CONTAINS THE IB'TH BYTE OF THE NAME OF +C THE IM'TH MEDIUM IN A1 FORMAT. +C 3. SET 'DUNIT', THE DISTANCE UNIT TO BE USED. +C DUNIT.GT.0 MEANS VALUE OF DUNIT IS LENGTH OF DISTANCE UNIT +C CENTIMETERS. DUNIT.LT.0 MEANS USE THE RADIATION LENGTH OF +C THE ABS(DUNIT)'TH MEDIUM FOR THE DISTANCE UNIT. +C 4. FILL THE ARRAY 'MED' WITH THE MEDIUM INDICES FOR THE +C REGIONS. +C 5. FILL ARRAYS 'ECUT' AND 'PCUT' WITH THE ELECTRON AND PHOTON +C CUT-OFF ENERGIES FOR EACH REGION RESPECTIVELY. SETUP WILL +C RAISE THESE IF NECESSARY TO MAKE THEM AT LEAST AS LARGE AS +C THE REGION'S MEDIUM'S AE AND AP RESPECTIVELY. +C 6. FILL 'MED' ARRAY. MED(IR) IS THE MEDIUM INDEX FOR REGION +C IR. A ZERO MEDIUM INDEX MEANS THE REGION IS IN A VACUUM. +C 7. FILL THE ARRAY 'IRAYLR' WITH 1 FOR EACH REGION IN WHICH +C RAYLEIGH (COHERENT) SCATTERING IS TO BE INCLUDED. +C THIS SUBROUTINE IS CALLED FROM EGSINI. +C----------------------------------------------------------------------- + + IMPLICIT NONE + COMMON /BOUNDS/ ECUT,PCUT,VACDST + DOUBLE PRECISION ECUT(6),PCUT(6),VACDST + COMMON /BREMPR/ PWR2I,DL1,DL2,DL3,DL4,DL5,DL6,DELCM,ALPHI,BPAR, + * DELPOS + DOUBLE PRECISION PWR2I(60) + REAL DL1(6),DL2(6),DL3(6),DL4(6),DL5(6),DL6(6), + * DELCM,ALPHI(2),BPAR(2),DELPOS(2) + COMMON /ELECIN/ EKE0,EKE1,XR0,TEFF0,BLCC,XCC,ESIG0,ESIG1,PSIG0, + * PSIG1,EDEDX0,EDEDX1,PDEDX0,PDEDX1,EBR10,EBR11, + * PBR10,PBR11,PBR20,PBR21,TMXS0,TMXS1,ERANG0, + * ERANG1,PRANG0,PRANG1,STERNCOR + REAL EKE0,EKE1,XR0,TEFF0,BLCC,XCC, + * ESIG0(500),ESIG1(500),PSIG0(500),PSIG1(500), + * EDEDX0(500),EDEDX1(500),PDEDX0(500),PDEDX1(500), + * EBR10(500),EBR11(500),PBR10(500),PBR11(500), + * PBR20(500),PBR21(500),TMXS0(500),TMXS1(500), + * ERANG0(1),ERANG1(1),PRANG0(1),PRANG1(1),STERNCOR + COMMON /MEDIA/ RLDU,RLDUI,RHO,RLC,NMED,MSGE,MGE,MSEKE,MEKE, + * MLEKE,MCMFP,MRANGE,IRAYLM + DOUBLE PRECISION RLDU,RLDUI + REAL RHO,RLC + INTEGER NMED,MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE, + * IRAYLM + COMMON /MEDIAC/ MEDIA + CHARACTER MEDIA*24 + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) + COMMON /PHOTIN/ EBINDA,GE0,GE1,GMFP0,GMFP1,GBR10,GBR11, + * GBR20,GBR21,GBR30,GBR31,GBR40,GBR41, + * RCO0,RCO1,RSCT0,RSCT1,COHE0,COHE1,MPGEM,NGR + REAL EBINDA,GE0,GE1,GMFP0(500),GMFP1(500), + * GBR10(500),GBR11(500),GBR20(500),GBR21(500), + * GBR30(500),GBR31(500),GBR40(500),GBR41(500), + * RCO0,RCO1,RSCT0(100),RSCT1(100),COHE0(500), + * COHE1(500) + INTEGER MPGEM(1),NGR +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION DFACT,DFACTI,DUNITR,DUNITO,P + INTEGER I,IB,IE,IL,IM,IRAYL,I1ST,JR,LMDL,LMDN,LOK,MD, + * NCMFP,NE,NEKE,NGE,NGRIM,NLEKE,NM,NRANGE, + * NSEKE,NSGE + CHARACTER MBUF*72,MDLABL*8 + SAVE + DATA MDLABL/' MEDIUM='/,LMDL/8/,LMDN/24/,DUNITO/1.D0/ + DATA I1ST/1/ +C----------------------------------------------------------------------- + + 510 FORMAT(1X,14I5) + 520 FORMAT(1X,1P,5E14.5) + 530 FORMAT(A72) + IF ( I1ST .NE. 0 ) THEN + I1ST = 0 +C NOW FILL IN POWER OF TWO TABLE. PWR2I(I)=1/2**(I-1) + P = 1.D0 + DO 651 I = 1,60 + PWR2I(I) = P + P = P*.5D0 + 651 CONTINUE + ENDIF + +C FILL IRAYLM ARRAY BASED ON IRAYLR INPUTS + DO 661 IM = 1,NMED + 670 CONTINUE + DO 671 I = 1,6 + IF ( IRAYLR(I).EQ.1 .AND. MED(I).EQ.IM ) THEN +C REGION I = MEDIUM IM AND WE WANT RAYLEIGH SCATTERING, SO +C SET FLAG TO PICK UP DATA FOR MEDIUM IM AND TRY NEXT MEDIUM. + IRAYLM = 1 + GOTO 672 + ENDIF + 671 CONTINUE + 672 CONTINUE + 661 CONTINUE +C NOW SEARCH FILE FOR DATA FOR REQUESTED MATERIALS + REWIND KMPI + NM = 0 + DO 681 IM = 1,NMED + LOK = 0 + IF ( IRAYLM .EQ. 1 ) THEN + WRITE(KMPO,690) IM + 690 FORMAT(' RAYLEIGH OPTION REQUESTED FOR MEDIUM NUMBER',I3,/) + ENDIF + 681 CONTINUE + + 701 CONTINUE +C MEDIUM HEADER SEARCH LOOP, FIRST LOOK FOR MEDIUM HEADER + READ(KMPI,530,END=720) MBUF + DO 731 IB = 1,LMDL + IF ( MBUF(IB:IB) .NE. MDLABL(IB:IB) ) GOTO 701 + 731 CONTINUE +C HEADER MATCHES. NOW SEE IF IT IS ONE OF REQUESTED MEDIA + DO 741 IM = 1,NMED + DO 751 IB = 1,LMDN + IL = LMDL+IB + IF ( MBUF(IL:IL) .NE. MEDIA(IB:IB) ) GOTO 741 + IF ( IB .EQ. LMDN ) GOTO 712 + 751 CONTINUE + 741 CONTINUE + GOTO 701 + 712 CONTINUE + +C 'IM' IS THE INDEX OF THE MEDIUM READY TO BE READ + IF ( LOK .NE. 0 ) GOTO 701 + LOK = 1 + NM = NM+1 +C NOW READY TO READ IN DATA FOR THIS MEDIUM + WRITE(KMPO,760) IM,MBUF + 760 FORMAT(' DATA FOR MEDIUM #',I3,', WHICH IS:',A72) + READ(KMPI,770) (MBUF(I:I),I=1,5),RHO,NE + 770 FORMAT(5A1,5X,F11.0,4X,I2) + WRITE(KMPO,780) (MBUF(I:I),I=1,5),RHO,NE + 780 FORMAT(5A1,',RHO=',1P,G11.4, ',NE=',I2,',COMPOSITION IS :') + DO 791 IE = 1,NE + READ(KMPI,530) MBUF + WRITE(KMPO,530) MBUF + 791 CONTINUE +C MEDIA AND THRESH + READ(KMPI,520)RLC,AE,AP,UE,UP + TE = AE-PRM + THMOLL = TE*2.D0 + PRM +C ACTUAL ARRAY SIZES FROM PEGS + READ(KMPI,510)MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE,IRAYL + NSGE = MSGE + NGE = MGE + NSEKE = MSEKE + NEKE = MEKE + NLEKE = MLEKE + NCMFP = MCMFP + NRANGE = MRANGE +C BREMPR + READ(KMPI,520) (DL1(I),DL2(I),DL3(I),DL4(I),DL5(I),DL6(I),I=1,6) + READ(KMPI,520) DELCM,(ALPHI(I),BPAR(I),DELPOS(I),I=1,2) +C ELECIN + READ(KMPI,520) XR0,TEFF0,BLCC,XCC + READ(KMPI,520) EKE0,EKE1 + READ(KMPI,520) (ESIG0(I),ESIG1(I),PSIG0(I),PSIG1(I),EDEDX0(I), + * EDEDX1(I),PDEDX0(I),PDEDX1(I),EBR10(I),EBR11(I),PBR10(I), + * PBR11(I),PBR20(I),PBR21(I),TMXS0(I),TMXS1(I),I=1,NEKE) +C PHOTIN + READ(KMPI,520) EBINDA,GE0,GE1 + READ(KMPI,520) (GMFP0(I),GMFP1(I),GBR10(I),GBR11(I),GBR20(I), + * GBR21(I),GBR30(I),GBR31(I),GBR40(I),GBR41(I),I=1,NGE) + IF ( IRAYLM.EQ.1 .AND. IRAYL.NE.1 ) THEN + WRITE(KMPO,800) IM + 800 FORMAT(' STOPPED IN HATCH: REQUESTED RAYLEIGH OPTION FOR MEDIUM' + * ,I3/ ' BUT RAYLEIGH DATA NOT INCLUDED IN DATA CREATED BY PEGS.') + STOP + ENDIF + IF ( IRAYL .EQ. 1 ) THEN + READ(KMPI,510) NGR + NGRIM = NGR + READ(KMPI,520) RCO0,RCO1 + READ(KMPI,520) (RSCT0(I),RSCT1(I),I=1,NGRIM) + READ(KMPI,520) (COHE0(I),COHE1(I),I=1,NGE) + IF ( IRAYLM .NE. 1 ) THEN + WRITE(KMPO,810) IM + 810 FORMAT(' RAYLEIGH DATA AVAILABLE FOR MEDIUM',I3,' BUT OPTION', + * ' NOT REQUESTED.',/) + ENDIF + ENDIF +C THAT'S ALL FOR THIS MEDIUM + IF ( NM .LT. NMED ) GOTO 701 + +C WE NOW HAVE DATA FOR ALL MEDIA REQUESTED. NOW DO DISTANCE UNIT +C CHANGE. DATA FROM PEGS IS IN UNITS OF RADIATION LENGTHS. EGS IS +C RUN IN UNITS OF 'DUNIT' CENTIMETERS, IF DUNIT.GT.0 OR IN UNITS OF +C RLC(-DUNIT) CENTIMETERS IF DUNIT.LT.0. THAT IS, A NEGATIVE DUNIT +C MEANS UNIT IS TO BE THE RADIATION LENGTH OF THE MEDIUM WHOSE INDEX +C IS -DUNIT + DUNITR = DUNIT + IF ( DUNIT .LT. 0.D0 ) THEN + MD = MAX(1,MIN(1,INT(-DUNIT))) + DUNIT = RLC + ENDIF + IF ( DUNIT .NE. 1.D0 ) THEN + WRITE(KMPO,820) DUNITR,DUNIT + 820 FORMAT(' DUNIT REQUESTED&USED ARE:',1P,2E14.5,'(CM.)') + ENDIF + DO 831 IM = 1,NMED +C CONVERTS RADIATION LENGTH TO DUNITS + DFACT = RLC/DUNIT +C CONVERTS (RADIATION LENGTH)**-1 TO DUNITS**-1 + DFACTI = 1.D0/DFACT + I = 1 + GOTO 843 + 841 I = I+1 + 843 IF ( I-(MEKE) .GT. 0 ) GOTO 842 + ESIG0(I) = ESIG0(I)*DFACTI + ESIG1(I) = ESIG1(I)*DFACTI + PSIG0(I) = PSIG0(I)*DFACTI + PSIG1(I) = PSIG1(I)*DFACTI + EDEDX0(I) = EDEDX0(I)*DFACTI + EDEDX1(I) = EDEDX1(I)*DFACTI + PDEDX0(I) = PDEDX0(I)*DFACTI + PDEDX1(I) = PDEDX1(I)*DFACTI + TMXS0(I) = TMXS0(I)*DFACT + TMXS1(I) = TMXS1(I)*DFACT + GOTO 841 + 842 CONTINUE + I = 1 + GOTO 853 + 851 I = I+1 + 853 IF ( I-(MLEKE) .GT. 0 ) GOTO 852 + ERANG0(I) = ERANG0(I)*DFACT + ERANG1(I) = ERANG1(I)*DFACT + PRANG0(I) = PRANG0(I)*DFACT + PRANG1(I) = PRANG1(I)*DFACT + GOTO 851 + 852 CONTINUE + TEFF0 = TEFF0*DFACT + BLCC = BLCC*DFACTI + XCC = XCC*SQRT(DFACTI) + RLDU = RLC/DUNIT + RLDUI = 1.D0/RLDU + I = 1 + GOTO 863 + 861 I = I+1 + 863 IF ( I-(MGE) .GT. 0 ) GOTO 862 + GMFP0(I) = GMFP0(I)*DFACT + GMFP1(I) = GMFP1(I)*DFACT + GOTO 861 + 862 CONTINUE + 831 CONTINUE +C SCALE VACDST. UNDO PREVIOUS SCALE, THEN DO NEW. + VACDST = VACDST*DUNITO/DUNIT +C SAVE OLD DUNIT + DUNITO = DUNIT + +C NOW MAKE SURE ECUT AND PCUT ARE NOT LOWER THAN ANY AE OR AP +C ALSO SET DEFAULT DENSITIES + DO 871 JR = 1,6 + MD = MED(JR) + IF ( (MD .GE. 1) .AND. (MD .LE. NMED) ) THEN + ECUT(JR) = MAX(ECUT(JR),DBLE(AE),DBLE(AP+1.1D0*PRM)) + PCUT(JR) = MAX(PCUT(JR),DBLE(AP)) +C USE STANDARD DENSITY FOR REGIONS NOT SPECIALLY SET UP + IF ( RHOR(JR) .EQ. 0.D0 ) RHOR(JR)=RHO + ENDIF + 871 CONTINUE +C SETUP IS NOW COMPLETE + + IF ( NMED .EQ. 1 ) THEN + WRITE(KMPO,880) + 880 FORMAT(' EGS SUCCESSFULLY ''HATCHED'' FOR ONE MEDIUM.') + ELSE + WRITE(KMPO,890) NMED + 890 FORMAT(' EGS SUCCESSFULLY ''HATCHED'' FOR ',I5,' MEDIA.') + ENDIF + RETURN + 720 WRITE(KMPO,900) KMPI + 900 FORMAT(' END OF FILE ON UNIT ',I2,//,' PROGRAM STOPPED IN HATCH', + * ' BECAUSE THE'/ ' FOLLOWING NAMES WERE NOT RECOGNIZED:',/) + DO 911 IM = 1,NMED + IF ( LOK .NE. 1 ) THEN + WRITE(KMPO,920) (MEDIA(I:I),I=1,LMDN) + 920 FORMAT(40X,'''',24A1,'''') + ENDIF + 911 CONTINUE + STOP + END +*CMZ : 18/09/2001 09.00.42 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE HOWFAR + +C----------------------------------------------------------------------- +C HOW FAR (COMES THE PARTICLE) + +C THE FOLLOWING IS A GENERAL SPECIFICATION OF HOWFAR: +C GIVEN A PARTICLE AT (X,Y,Z) IN REGION IR AND GOING IN DIRECTION +C (U,V,W), THIS ROUTINE ANSWERS THE QUESTION, CAN THE PARTICLE GO +C A DISTANCE USTEP WITHOUT CROSSING A BOUNDARY OR OBSERVATION LEVEL? +C IF YES, IT CALCULATES DNEAR AND RETURNS. +C IF NO, IT SETS USTEP=DISTANCE TO BOUNDARY OR DETECTOR IN +C IN THE CURRENT DIRECTION. +C IT SETS IRNEW TO THE REGION NUMBER ON THE FAR SIDE +C OF THE BOUNDARY (THIS CAN BE MESSY IN GENERAL!); +C IT SETS NEWOBS TO THE DETECTOR NUMBER NEXT AFTER THE +C DETECTOR JUST PASSING. +C THE USER CAN TERMINATE A HISTORY BY SETTING IDISC>0. +C HERE WE TERMINATE ALL PARTICLES GOING UPWARD OR HORIZONTALLY. +C THE USER CAN TRANSPORT AND TERMINATE THE LAST PARTICLE BY SETTING +C IDISC<0. HERE WE TRANSPORT AND TERMINATE ALL PARTICLES WHICH ENTER +C REGION 6 OR HAVE PASSED THE LAST OBSERVATION LEVEL. +C********************************************************************* +C ELECTRON OR PHOTON POSITIVE Z-DIRECTION (W>0) IS DOWNWARDS +C | +C | REGION 1 (VACUUM) +C V +C--------------------------- STARTING PLANE AT -BOUND(1) = -ZALTIT +C +C REGION 2 (AIR WITH EXPONENTIALLY +C INCREASING DENSITY) +C +C--------------------------- BOUNDARY AT -BOUND(2) +C +C REGION 3 (AIR WITH EXPONENTIALLY +C INCREASING DENSITY) +C +C--------------------------- BOUNDARY AT -BOUND(3) +C +C REGION 4 (AIR WITH EXPONENTIALLY +C INCREASING DENSITY) +C +C--------------------------- BOUNDARY AT -BOUND(4) +C +C REGION 5 (AIR WITH EXPONENTIALLY +C INCREASING DENSITY) +C +C--------------------------- BOUNDARY AT -BOUND(5) (SEA LEVEL) +C////////////|///////// +C////////////|///////// REGION 6 (VACUUM) +C////////////V///////// +C ELECTRON OR PHOTON +C--------------------------- BOUNDARY AT -BOUND(6) +C +C********************************************************************* +C THIS SUBROUTINE IS CALLED FROM ELECTR AND PHOTON. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,EPCONT. + COMMON /EPCONT/ EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW,EKE,ELKE,BETA2,GLE,TSCAT, + * IDISC,IROLD,IRNEW + DOUBLE PRECISION EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW, EKE,ELKE,BETA2,GLE,TSCAT + INTEGER IDISC,IROLD,IRNEW + +*KEND. + COMMON /GEOMEGS/ ZALTIT,BOUND,OBSLVL,NEWOBS + DOUBLE PRECISION ZALTIT,BOUND(6),OBSLVL(10) + INTEGER NEWOBS +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + + DOUBLE PRECISION TVAL + INTEGER IRL,NOBS + DOUBLE PRECISION AUXIL,BOUNDC,CAP,CEARTH,OBSGLOB, + * RADHOR,STEPMX,S2B,THICK + INTEGER IBFLAG + EXTERNAL THICK + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' HOWFAR: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + IF ( IR(NP).GT.1 .AND. IR(NP).LT.6 ) THEN +C WE ARE IN THE ATMOSPHERE - CHECK THE GEOMETRY + IRL = IR(NP) +C GOING FORWARD - CONSIDER FIRST SINCE MOST FREQUENT + NOBS = IOBS(NP) + IF ( W(NP) .GT. C(29) ) THEN +C WE ARE GOING DOWNWARD +C STEPMX IS MAX HORIZONTAL STEP, BEFORE TRANSITION TO NEXT LOCAL +C COORDINATE FRAME MUST BE PERFORMED + RADHOR = MAX( U(NP)**2 + V(NP)**2, 0.001D0 ) + AUXIL = C(4) * THICK(-Z(NP)) + C(3) + STEPMX = AUXIL / SQRT(RADHOR) +C JUST SHORTEN USTEP + IF ( STEPMX .LT. USTEP ) USTEP = STEPMX +C TVAL IS DISTANCE TO NEXT BOUNDARY OR OBSERVATION LEVEL IN THIS +C DIRECTION. INTRODUCE 'GLOBAL OBSERVATION LEVEL' +C (IN CURVED VERSION JUST ONE OBSERVATION LEVEL) + CEARTH = COS( SQRT( X(NP)**2 + Y(NP)**2 )/C(1) ) + OBSGLOB = ( C(1) + OBSLEV(1) ) / CEARTH - C(1) + CAP = W(NP)*CEARTH-SQRT((1.D0-W(NP))*(1.D0-CEARTH)) +C CALCULATE REAL STEP LENGHT TO NEXT BOUNDARY S2B +C (DUE TO TRANSFORMING INTO NEW LOCAL FRAME AT THIS POINT) + IF ( (BOUND(IRL)+C(1))**2 .GE. + * (C(1)-Z(NP))**2*(1.D0-W(NP)**2) ) THEN + S2B = (C(1)-Z(NP))*W(NP) - SQRT( (BOUND(IRL)+C(1))**2 + * - (C(1)-Z(NP))**2 * (1.D0-W(NP)**2) ) + TVAL = MIN( S2B, (-Z(NP)-OBSGLOB)/W(NP) ) + IBFLAG = 0 + ELSE +C PARTICLE WITH THIS ZENITH ANGLE AND HEIGHT WILL NEVER REACH THE +C BOUNDARY (SPHERE AROUND EARTH), BUT IT MAY REACH THE GLOBAL OBSLEV +C (LINE IN DETECTOR SYSTEM). DON'T CUT AT THIS STAGE. + IBFLAG = 1 + IF ( CAP .GT. 0.D0 ) THEN + TVAL = (-Z(NP)-OBSGLOB)/W(NP) + ELSE + TVAL = USTEP + 1.D0 + ENDIF + ENDIF + IF ( TVAL .GT. USTEP ) THEN +C CAN TAKE CURRENTLY REQUESTED STEP. DNEAR HAS TO BE DISTANCE TO NEXT +C BOUNDARY OR OBSLEV. KEEP DNEAR SMALL => CHECK CROSSING OF LAYER +C BOUNDARY MORE OFTEN + IF ( IBFLAG .NE. 0 ) THEN + DNEAR(NP) = USTEP*W(NP) + ELSE + DNEAR(NP) = TVAL*W(NP) + ENDIF + ELSE +C GO TO DETECTOR OR BOUNDARY, WHICH IS CLOSER + USTEP = MAX(TVAL,0.0001D0) +C CALCULATE THE RIGHT BOUND BOUNDC CONSIDERING THE TRANSFORMATION IN +C A NEW LOCAL FRAME + IF ( IBFLAG .NE. 0 ) THEN +C IF S2B IS NOT DEFINED , BOUNDC IS NOT REACHED. IN THIS CASE BOUNDC +C WILL NEVER BEEN REACHED + BOUNDC = -9999999.9999D0 + ELSE + BOUNDC = -Z(NP) - S2B*W(NP) + ENDIF + IF ( BOUNDC .GE. OBSGLOB ) THEN +C PARTICLE CROSSES BOUNDARY + IRNEW = IRL+1 +C PARTICLE LEAVES AIR + IF ( IRNEW .GE. 6 ) IDISC = -1 + ENDIF + IF ( BOUNDC .LE. OBSGLOB ) THEN +C PARTICLE CROSSES DETECTOR + NEWOBS = NOBS + 1 +C MAKE A VERY SMALL STEP TO AVOID HANGUP OF PROGRAM + IF ( USTEP .LE. 0.D0 ) USTEP = 0.0001D0 +C TRANSPORT PARTICLE TO FINAL DETECTOR LEVEL AND DISCARD IT + IF ( NEWOBS .GT. NOBSLV ) IDISC = -1 + ENDIF + ENDIF +C END OF 'PARTICLE GOING DOWNWARD' + + ELSE +C GOING UPWARD IN ATMOSPHERE OR MOVING HORIZONTALLY +C DISCARD PARTICLE + IDISC = 1 + RETURN + ENDIF +C END OF ATMOSPHERE REGION CASE + + ELSEIF ( IR(NP) .EQ. 6 ) THEN +C TERMINATE THIS HISTORY, IT IS PAST THE ATMOSPHERE + IDISC = 1 +C WE ARE IN THE REGION WITH SOURCE ABOVE AIR + ELSEIF ( IR(NP) .EQ. 1 ) THEN + IF ( W(NP) .GT. C(29) ) THEN +C IT MUST BE A SOURCE PARTICLE ON BOUNDARY 1 + USTEP = 0.0001D0 + IRNEW = 2 + ELSE +C IT IS A REFLECTED PARTICLE, DISCARD IT + IDISC = 1 + ENDIF +C END REGION 1 CASE + ENDIF + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE MOLLER +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C MOLLER (SCATTERING) +C +C DISCRETE MOLLER SCATTERING (A CALL TO THIS ROUTINE) HAS BEEN +C ARBITRARILY DEFINED AND CALCULATED TO MEAN MOLLER SCATTERINGS +C WHICH IMPART TO THE SECONDARY ELECTRON SUFFICIENT ENERGY THAT +C IT BE TRANSPORTED DISCRETELY. THE THRESHOLD TO TRANSPORT AN +C ELECTRON DISCRETELY IS A TOTAL ENERGY OF AE OR A KINETIC ENERGY +C OF TE=AE-PRM. SINCE THE KINETIC ENERGY TRANSFER IS ALWAYS, BY +C DEFINITION, LESS THAN HALF OF THE INCIDENT KINETIC ENERGY, THIS +C IMPLIES THAT THE INCIDENT ENERGY, EIE, MUST BE LARGER THAN +C THMOLL=TE*2+PRM. THE REST OF THE COLLISION CONTRIBUTION IS +C SUBTRACTED CONTINUOUSLY FROM THE ELECTRON AS IONIZATION +C LOSS DURING TRANSPORT. +C THIS SUBROUTINE IS CALLED FROM ELECTR. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + +* DOUBLE PRECISION AUXIL,BETAI2,BR,EP0,E0,E02,EXTRAE,DCOSTH,G1,G2, + DOUBLE PRECISION AUXIL,BR,EP0,E0,E02,EXTRAE,DCOSTH,GMAX,G2, + * G3,H1,PEIE,PEKIN,PEKINI,PEKSE2,PESE1,PESE2, + * R,REJF4,T0 + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' MOLLER: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + PEIE = E(NP) + PEKIN = PEIE-PRM + PEKINI = 1.D0/PEKIN + T0 = PEKIN*RMI + E0 = T0+1.D0 + EXTRAE = PEIE - THMOLL + E02 = E0**2 +* BETAI2 = E02/(E02-1.0) +C CORRECTED 18.12.98 + EP0 = TE*PEKINI +* G1 = (1.D0-2.D0*EP0)*BETAI2 + G2 = T0**2*(1.D0/E02) + G3 = (2.D0*T0+1.D0)*(1.D0/E02) + GMAX = (1.D0+1.25D0*G2) + +C H.H.NAGEL HAS CONSTRUCTED A FACTORIZATION OF THE FREQUENCY DISTRI- +C BUTION FUNCTION FOR THE MOLLER DIFFERENTIAL CROSS-SECTION USED AS +C SUGGESTED BY BUTCHER AND MESSEL. (H.H.NAGEL, OP.CIT., P. 53-55) +C HOWEVER, A MUCH SIMPLER SAMPLING METHOD WHICH DOES NOT BECOME VERY +C INEFFICIENT NEAR THMOLL IS THE FOLLOWING: LET BR=EKS/EKIN, WHERE +C EKS IS KINETIC ENERGY TRANSFERED TO THE SECONDARY ELECTRON AND EKIN +C IS THE INCIDENT KINETIC ENERGY. +C MODIFIED (7 FEB 1974) TO USE THE TRUE MOLLER CROSS-SECTION. THAT IS, +C INSTEAD OF THE E+ E- AVERAGE GIVEN IN ROSSI FORMULA USED BY NAGEL. +C THE SAMPLING SCHEME IS THAT USED BY MESSEL AND CRAWFORD +C (EPSDF 1970 P.13) FIRST SAMPLE (1/BR**2) OVER (TE/EKIN,1/2) . + 931 CONTINUE + CALL RMMAR(RD,2,2) + AUXIL = (PEKIN-EXTRAE*RD(1)) + IF ( AUXIL .EQ. 0.D0 ) GOTO 931 + BR = TE/AUXIL +C USE MESSEL AND CRAWFORDS REJECTION FUNCTION. + R = BR/(1.D0-BR) +* REJF4 = G1*(1.D0+G2*BR*BR+R*(R-G3)) +* IF ( RD(2) .GT. REJF4 ) GOTO 931 +C CORRECTED 18.12.98 + REJF4 = (1.D0+G2*BR**2+R*(R-G3)) + IF ( RD(2)*GMAX .GT. REJF4 ) GOTO 931 + PEKSE2 = BR*PEKIN + PESE1 = PEIE-PEKSE2 + PESE2 = PEKSE2+PRM + E(NP) = PESE1 +C SINCE BR.LE.0.5, E(NP+1) MUST BE .LE. E(NP) + E(NP+1)= PESE2 + H1 = (PEIE+PRM)*PEKINI +C MOLLER ANGLES ARE UNIQUELY DETERMINED BY KINEMATICS + DCOSTH = MIN( 1.D0, H1*(PESE1-PRM)/(PESE1+PRM) ) +C DIRECTION COSINE CHANGE FOR 'OLD' ELECTRON + SINTHE = SQRT(1.D0-DCOSTH) + COSTHE = SQRT(DCOSTH) + CALL UPHI(2,1) +C RELATED CHANGE AND (X,Y,Z) SETUP FOR 'NEW' ELECTRON + NP = NP+1 + IQ(NP) = 3 + DCOSTH = MIN( 1.D0, H1*(PESE2-PRM)/(PESE2+PRM) ) + SINTHE =-SQRT(1.D0-DCOSTH) + COSTHE = SQRT(DCOSTH) + CALL UPHI(3,2) + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE MPPROP + +C----------------------------------------------------------------------- +C M(UON) P(ION) PROP(AGATION) +C +C MOVES MUONS AND PIONS FROM EGS-STACK TO CORSIKA-STACK. +C THIS SUBROUTINE IS CALLED FROM SHOWER. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEND. + COMMON /MUON/ PRRMMU,RMMUT2 + DOUBLE PRECISION PRRMMU,RMMUT2 +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PION/ PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT + DOUBLE PRECISION PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + + DOUBLE PRECISION AMASS,ANGLEX,CUT + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' MPPROP: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + +C SET MASS AND CUT PARAMETER OF PARTICLE UNDER CONSIDERATION + IF ( IQ(NP) .LT. 7 ) THEN + AMASS = PRRMMU + CUT = ELCUT(2)*1000.D0 + ELSEIF ( IQ(NP) .EQ. 7 ) THEN + AMASS = PI0MAS + CUT = ELCUT(1)*1000.D0 + POLART = 1.D0 + POLARF = 0.D0 + ELSE + AMASS = PICMAS + CUT = ELCUT(1)*1000.D0 + POLART = 1.D0 + POLARF = 0.D0 + ENDIF +C USE PARTICLE ONLY IF ABOVE CUT AND INSIDE ACCEPTANCE CONE + IF ( E(NP)-AMASS.GT.CUT .AND. W(NP).GT.C(29) ) THEN +* IF ( W(NP) .GT. C(29) ) THEN +C ANGLE WITH RESPECT TO X AXIS + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF +C FILL MUON/PION COORDINATES INTO CORSIKA-STACK + SECPAR(1) = IQ(NP) + SECPAR(2) = E(NP)/AMASS + SECPAR(3) = MIN( 1.D0, W(NP) ) + SECPAR(4) = ANGLEX + SECPAR(5) = -Z(NP) + SECPAR(6) = TIM(NP) + SECPAR(7) = X(NP) + SECPAR(8) = -Y(NP) + SECPAR(9) = IGEN(NP) + SECPAR(10) = -Z(NP) + SECPAR(11) = POLART + SECPAR(12) = POLARF + SECPAR(14) = -ZAP(NP) + SECPAR(15) = WAP(NP) + SECPAR(16) = WA(NP) +C ADD MUON/PION TO CORSIKA-STACK + CALL TSTOUT + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS OF MUONS/HADRONS + IF ( IQ(NP) .LE. 6 ) THEN + DLONG(LPCTE(NP),5) = DLONG(LPCTE(NP),5)+E(NP)*1.D-3 + ELSE + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7)+E(NP)*1.D-3 + ENDIF + ENDIF + ENDIF +C ELIMINATE MUON/PION FROM EGS-STACK + POLART = -POLART + POLARF = POLARF+PI + NP = NP-1 + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE MSCAT +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C M(ULTIPLE) SCAT(TERING) +C +C DETERMINES ANGLE OF MULTPLIE SCATTERING +C THIS SUBROUTINE IS CALLED FROM ELECTR. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEND. + COMMON /ELECIN/ EKE0,EKE1,XR0,TEFF0,BLCC,XCC,ESIG0,ESIG1,PSIG0, + * PSIG1,EDEDX0,EDEDX1,PDEDX0,PDEDX1,EBR10,EBR11, + * PBR10,PBR11,PBR20,PBR21,TMXS0,TMXS1,ERANG0, + * ERANG1,PRANG0,PRANG1,STERNCOR + REAL EKE0,EKE1,XR0,TEFF0,BLCC,XCC, + * ESIG0(500),ESIG1(500),PSIG0(500),PSIG1(500), + * EDEDX0(500),EDEDX1(500),PDEDX0(500),PDEDX1(500), + * EBR10(500),EBR11(500),PBR10(500),PBR11(500), + * PBR20(500),PBR21(500),TMXS0(500),TMXS1(500), + * ERANG0(1),ERANG1(1),PRANG0(1),PRANG1(1),STERNCOR +*KEEP,EPCONT. + COMMON /EPCONT/ EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW,EKE,ELKE,BETA2,GLE,TSCAT, + * IDISC,IROLD,IRNEW + DOUBLE PRECISION EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW, EKE,ELKE,BETA2,GLE,TSCAT + INTEGER IDISC,IROLD,IRNEW + +*KEND. + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) + COMMON /MULTS/ B0G21,B1G21,G210,G211,G212, + * B0G22,B1G22,G220,G221,G222, + * B0G31,B1G31,G310,G311,G312, + * B0G32,B1G32,G320,G321,G322, + * B0BGB,B1BGB,BGB0,BGB1,BGB2,NBGB + DOUBLE PRECISION B0G21,B1G21,G210(7),G211(7),G212(7), + * B0G22,B1G22,G220(8),G221(8),G222(8), + * B0G31,B1G31,G310(11),G311(11),G312(11), + * B0G32,B1G32,G320(25),G321(25),G322(25), + * B0BGB,B1BGB,BGB0(8),BGB1(8),BGB2(8) + INTEGER NBGB +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION B,BI,BLC,BMD,BM1,BM2,ETA,G21,G22,G2,G31,G32,G3, + * OMEGA0,VSTEFF,THR,XR + INTEGER IB,I21,I22,I31,I32 + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' MSCAT : NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + +C ACCOUNT FOR ALTERED DENSITY + VSTEFF = TVSTEP*RHOFAC +C GET MOLIERE'S LOWER CASE B PARAMETER, BLC + OMEGA0 = BLCC*VSTEFF/BETA2 + IF ( OMEGA0 .LE. 1.D0 ) THEN + SINTHE = 0.D0 + COSTHE = 1.D0 + THETA = 0.D0 + NOSCAT = NOSCAT+1 + RETURN + ENDIF + BLC = LOG(OMEGA0) +C NOW CONVERT TO MOLIERE'S BIG B; 1.30685=2-LN 2, 1.530394=2/(2-LN 2) + IF ( BLC .LE. 1.306852820D0 ) THEN +C BELOW TRANSCENDENTAL LIMIT + B = 1.530394218D0*BLC + ELSE + IB = B0BGB+BLC*B1BGB + IF ( IB .GT. NBGB ) THEN + WRITE(KMPO,940) IB + 940 FORMAT('MSCAT: NBGB*SQRT(B); +C BUT <*CHI-SUB-C*>=XCC(MEDIUM)*SQRT(VSTEFF)/(E*BETA2) + XR = XCC*SQRT(MAX( 0.D0, VSTEFF*B ))/(EOLD*BETA2) +C NOW SET B-INVERSE, BI THAT WILL BE USED IN SAMPLING +C BI MUST NOT BE LARGER THAN 1./LAMBDA=1/2 + IF ( B .GT. 2.D0 ) THEN + BI = 1.D0/B + BMD = 1.D0/(1.D0+1.75D0*BI) + BM1 = (1.D0-2.D0*BI)*BMD + BM2 = (1.0+0.025*BI)*BMD + ELSE + BI = 0.5D0 + BM1 = (1.D0-2.D0/B)*0.533333333333D0 + BM2 = 0.54D0 + ENDIF + +C THIS LOOP IS FOR BETHE CORRECTION FACTOR REJECTION OR OTHER REJECTION + 951 CONTINUE + CALL RMMAR(RD,1,2) + IF ( RD(1) .LE. BM1 ) THEN +C GAUSSIAN, F0 + CALL RMMAR(RD(2),1,2) +* IF ( RD(2) .EQ. 0.D0 ) RD(2) = 1.E-30 + THR = SQRT(MAX( 0.D0, -LOG(DBLE(RD(2))) )) + ELSEIF ( RD(1) .LE. BM2 ) THEN +C TAIL, F3 + CALL RMMAR(RD(2),3,2) + ETA = MAX(RD(2),RD(3)) +C NOW EVALUATE REJECTION FUNCTION, G3(ETA) + I31 = B0G31+ETA*B1G31 + G31 = G310(I31)+ETA*(G311(I31)+ETA*G312(I31)) + I32 = B0G32+ETA*B1G32 + G32 = G320(I32)+ETA*(G321(I32)+ETA*G322(I32)) + G3 = G31+G32*BI + IF ( RD(4) .GT. G3 ) GOTO 951 + THR = 1.D0/ETA + ELSE +C CENTRAL CORRECTION, F2 + CALL RMMAR(RD(2),2,2) + THR = RD(2) +C COMPUTE REJECTION FUNCTION, G2 + I21 = B0G21+THR*B1G21 + G21 = G210(I21)+THR*(G211(I21)+THR*G212(I21)) + I22 = B0G22+THR*B1G22 + G22 = G220(I22)+THR*(G221(I22)+THR*G222(I22)) + G2 = G21+G22*BI + IF ( RD(3) .GT. G2 ) GOTO 951 + ENDIF +C THR IS NOW THE REDUCED ANGLE. NOW GET THE REAL ANGLE + THETA = THR*XR + IF ( THETA .GE. PI ) GOTO 951 + SINTHE = SIN(THETA) + CALL RMMAR(RD,1,2) +C BETHE CORRECTION FACTOR + IF ( RD(1)**2*THETA .GT. SINTHE ) GOTO 951 + COSTHE = COS(THETA) + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE MUPAIR + +C----------------------------------------------------------------------- +C MU(ON) PAIR (FORMATION) +C +C IN ANALOGY WITH THE SUBR. PAIR. +C FOR A PHOTON ENERGY LESS THAN 434 MEV, THE APPROXIMATION IS +C MADE THAT THE ENERGY OF ONE POSITIVE OR NEGATIVE MUON IS +C UNIFORMLY DISTRIBUTED IN THE INTERVAL (PRRMMU, PEIG/2) = +C (MUON REST MASS, PHOTON ENERGY/2). +C FOR PHOTON ENERGY ABOVE 434 MEV THE +C COULOMB CORRECTED BETHE-HEITLER CROSS-SECTION IS USED. +C (BUTCHER AND MESSEL, OP. CIT., P. 17-19, 22). +C THIS MAY BE INCORRECT +C THIS SUBROUTINE IS CALLED FROM PHOTON. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE + COMMON /BREMPR/ PWR2I,DL1,DL2,DL3,DL4,DL5,DL6,DELCM,ALPHI,BPAR, + * DELPOS + DOUBLE PRECISION PWR2I(60) + REAL DL1(6),DL2(6),DL3(6),DL4(6),DL5(6),DL6(6), + * DELCM,ALPHI(2),BPAR(2),DELPOS(2) +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEND. + COMMON /MUON/ PRRMMU,RMMUT2 + DOUBLE PRECISION PRRMMU,RMMUT2 + COMMON /NKGSUB/ XXOLD,YYOLD,ZZOLD + DOUBLE PRECISION XXOLD,YYOLD,ZZOLD +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION ANGLEX,BR,DEL,DELTA,ENERN,PEIG,PESE1,PESE2,REJF + INTEGER LVL,LVL0,LVX + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' MUPAIR: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'MUPAIR: E=',E(NP)*.001D0 + + IGEN(NP) = IGEN(NP) + 1 +C PRECISE ENERGY OF INCIDENT GAMMA + PEIG = E(NP) +C SUBTRACT EM SUBSHOWER FROM NKG CALCULATION + IF ( FNKG ) THEN + SECPAR(1) = 1.D0 + SECPAR(3) = MIN( 1.D0, W(NP) ) + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF + SECPAR(4) = ANGLEX + SECPAR(5) = -ZZOLD + SECPAR(7) = XXOLD + SECPAR(8) = -YYOLD + ENERN = (-1.D-3)*PEIG + CALL NKG(ENERN) + ENDIF +C ENERGY OF INCIDENT GAMMA + IF ( PEIG .LE. 434.D0 ) THEN +C BELOW 434.MEV, WE ASSUME UNIFORM ENERGY +C DISTRIBUTION OF THE MUON #2 IN THE INTERVAL (PRRMMU, PEIG/2). +C SEE ALSO SLAC-265, P.49 FOR FURTHER DISCUSSION. + CALL RMMAR(RD,1,2) + PESE2 = (PEIG*0.5D0-PRRMMU)*RD(1)+PRRMMU + ELSE +C ABOVE 434.MEV, MUST SAMPLE +C COULOMB CORRECTED(LVX=2,LVL=4,6) CROSS-SECTIONS. +C SEE RELATED COMMENTS IN BREMS. + LVX = 2 + LVL0 = 3 + 181 CONTINUE +C RETRY IF REJECTED BECAUSE DEL OUT OF RANGE, OR BY SCREENING +C WE'LL NEED AT LEAST ONE RANDOM NUMBER + CALL RMMAR(RD,2,2) +C NOW DECIDE WHICH OF THE TWO SUBDISTRIBUTIONS TO USE. + IF ( RD(2) .GE. BPAR(LVX) ) THEN +C USE THE SUBDISTRIBUTION THAT IS PROPORTIONAL TO +C 12*(BR-0.5)**2. IT USES A(DELTA) FOR SCREENING FUNCTION + LVL = LVL0+1 + CALL RMMAR(RD(3),2,2) +C FROM SYMMETRY, ONLY NEED TO SAMPLE BR IN INTERVAL (0,.5) +* BR = 0.5D0*(1.D0-MAX(RD(3),RD(4),RD(1))) +C MODIFIED BY D. HECK (JAN 10, 2002) TO GIVE BETTER CONTINUITY FOR +C SMALL BR VALUES IN CONNECTION WITH RMMAR RANDOM GENERATOR + BR = 0.5D0 * MIN( RD(3), RD(4), RD(1) ) + ELSE +C USE THE SUBDISTRIBUTION THAT IS PROPORTIONAL TO 1,I.E. +C UNIFORM.IT USES C(DELTA) FOR A SCREENING REJECT FUNCTION + LVL = LVL0+3 + BR = RD(1)*0.5D0 + ENDIF +C THE SCREENING FUNCTIONS ARE FUNCTIONS OF DELTA=DELCM*DEL, +C WHERE DELCM= 136.D0*EXP(ZG)*PRM (SAME AS FOR BREMS) +C AND WHERE DEL=1./(EG0*BR*(1.0-BR)) +C WITH EG0 = INCIDENT PHOTON ENERGY AND BR=ENERGY FRACTION. +C TO AVOID DIVISION BY ZERO +* IF ( BR .EQ. 0.D0 ) GOTO 181 +C CORRECTED JAN. 11, 1999 + IF ( BR*PEIG .LT. PRRMMU ) GOTO 181 + DEL = 1.D0/(PEIG*BR*(1.D0-BR)) + IF ( DEL .GE. (PRM/PRRMMU)*DELPOS(LVX) ) GOTO 181 +C NEXT TRY +C THE PRECEDING CONDITION ENSURES THAT A(DELTA) AND C(DELTA) +C WILL BE POSITIVE. IF IT IS NOT SATISFIED,LOOP BACK AND TRY +C ANOTHER SAMPLE. + DELTA = (PRRMMU*RMI)*DELCM*DEL + IF ( DELTA .LT. 1.D0 ) THEN + REJF = DL1(LVL)+DELTA*(DL2(LVL)+DELTA*DL3(LVL)) + ELSE + REJF = DL4(LVL)+DL5(LVL)*LOG(DELTA+DL6(LVL)) + ENDIF +C RANDOM NUMBER FOR SCREENING REJECTION + CALL RMMAR(RD,1,2) +C RETRY UNTIL ACCEPTED + IF ( RD(1) .GT. REJF ) GOTO 181 +C BR=PRODUCT ENERGY FRACTION +C ENERGY OF SECONDARY 'MUON' #2 + PESE2 = BR*PEIG +C END OF PEIG.GT.434 ELSE + ENDIF +C ENERGY GOING TO LOWER SECONDARY HAS NOW BEEN DETERMINED +C PRECISE ENERGY OF SECONDARY 'MUON' 2 +C PRECISE ENERGY OF SECONDARY 'MUON' 1 + PESE1 = PEIG-PESE2 + E(NP) = PESE1 + E(NP+1) = PESE2 +C THIS AVERAGE ANGLE OF EMISSION FOR BOTH PAIR PRODUCTION AND +C BREMSSTRAHLUNG IS MUCH SMALLER THAN THE AVERAGE ANGLE OF +C MULTIPLE SCATTERING FOR DELTA T TRANSPORT=0.01 R.L. +C THE INITIAL AND FINAL MOMENTA ARE COPLANAR +C SET UP A NEW 'MUON' + THETA = PRRMMU/PEIG + CALL UPHI(1,1) +C SET UP A NEW 'MUON' + NP = NP+1 + SINTHE = -SINTHE + CALL UPHI(3,2) +C NOW RANDOMLY DECIDED WHICH IS POSITIVE MUON, AND SET +C CHARGES ACCORDINGLY + CALL RMMAR(RD,3,2) + IF ( RD(1) .LE. 0.5 ) THEN +C POSITIVE MUON ON TOP + IQ(NP) = 5 + IQ(NP-1) = 6 + ELSE +C NEGATIVE MUON ON TOP + IQ(NP) = 6 + IQ(NP-1) = 5 + ENDIF + POLART = 2.D0*RD(2) -1.D0 + POLARF = TWOPI*RD(3) + RETURN + END +*CMZ : 10/01/2002 17.03.41 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE PAIR + +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C PAIR (FORMATION) +C +C FOR A PHOTON ENERGY LESS THAN 2.1 MEV, THE APPROXIMATION IS +C MADE THAT ONE PAIR ELECTRON (OR POSITRON) HAS ONLY ITS REST +C MASS ENERGY. FOR PHOTON ENERGY BETWEEN 2.1 MEV AND 50 MEV THE +C BETHE-HEITLER CROSS-SECTION IS EMPLOYED. ABOVE 50 MEV THE +C COULOMB CORRECTED BETHE-HEITLER CROSS-SECTION IS USED. +C (BUTCHER AND MESSEL, OP. CIT., P. 17-19, 22). +C THIS SUBROUTINE IS CALLED FROM PHOTON. +C----------------------------------------------------------------------- + + IMPLICIT NONE + COMMON /BREMPR/ PWR2I,DL1,DL2,DL3,DL4,DL5,DL6,DELCM,ALPHI,BPAR, + * DELPOS + DOUBLE PRECISION PWR2I(60) + REAL DL1(6),DL2(6),DL3(6),DL4(6),DL5(6),DL6(6), + * DELCM,ALPHI(2),BPAR(2),DELPOS(2) +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION BR,DEL,DELTA,PEIG,PESE1,PESE2,REJF + INTEGER LVL,LVL0,LVX + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' PAIR : NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + PEIG = E(NP) + IF ( PEIG .LE. 2.1D0 ) THEN +C BELOW 2.1 MEV, USE APPROXIMATION + PESE2 = PRM + ELSE +C ABOVE 2.1 MEV, MUST SAMPLE. DECIDE WHETHER TO USE +C BETHE-HEITLER (LVX=1,LVL=1,3) OR COULOMB CORRECTED (LVX=2,LVL=4,6) +C CROSS-SECTIONS. SEE RELATED COMMENTS IN BREMS. + IF ( PEIG .LT. 50.D0 ) THEN + LVX = 1 + LVL0 = 0 + ELSE + LVX = 2 + LVL0 = 3 + ENDIF + + 961 CONTINUE +C RETRY IF REJECTED BECAUSE DEL OUT OF RANGE, OR BY SCREENING +C WE'LL NEED AT LEAST ONE RANDOM NUMBER +C NOW DECIDE WHICH OF THE TWO SUBDISTRIBUTIONS TO USE + CALL RMMAR(RD,2,2) + IF ( RD(2) .GE. BPAR(LVX) ) THEN +C USE THE SUBDISTRIBUTION THAT IS PROPORTIONAL TO 12*(BR-0.5)**2. +C IT USES A(DELTA) FOR SCREENING FUNCTION. + LVL = LVL0+1 + CALL RMMAR(RD(3),2,2) +C FROM SYMMETRY, ONLY NEED TO SAMPLE BR IN INTERVAL (0,.5) +* BR = 0.5D0*(1.D0-MAX(RD(3),RD(4),RD(1))) +C MODIFIED BY D. HECK (JAN 10, 2002) TO GIVE BETTER CONTINUITY FOR +C SMALL BR VALUES IN CONNECTION WITH RMMAR RANDOM GENERATOR + BR = 0.5D0 * MIN( RD(3), RD(4), RD(1) ) + ELSE +C USE THE SUBDISTRIBUTION THAT IS PROPORTIONAL TO 1, I.E. UNIFORM. +C IT USES C(DELTA) FOR A SCREENING REJECTION FUNCTION. + LVL = LVL0+3 + BR = RD(1)*0.5D0 + ENDIF +C THE SCREENING FUNCTIONS ARE FUNCTIONS OF DELTA=DELCM*DEL, +C WHERE DELCM= 136.0*EXP(ZG)*RM (SAME AS FOR BREMS) +C AND WHERE DEL=1./(EG0*BR*(1.0-BR)) +C WITH EG0 = INCIDENT PHOTON ENERGY AND BR=ENERGY FRACTION. +C AVOID DIVISION BY ZERO: +* IF ( BR .EQ. 0.D0 ) GOTO 961 +C CORRECTED 18.12.98 + IF ( BR*PEIG .LT. PRM ) GOTO 961 + DEL = 1.D0/(PEIG*BR*(1.D0-BR)) + IF ( DEL .GE. DELPOS(LVX) ) GOTO 961 +C THE PRECEDING CONDITION ENSURES THAT A(DELTA) AND C(DELTA) WILL BE +C POSITIVE. IF IT IS NOT SATISFIED, LOOP BACK AND TRY ANOTHER SAMPLE. + DELTA = DELCM*DEL + IF ( DELTA .LT. 1.D0 ) THEN + REJF = DL1(LVL)+DELTA*(DL2(LVL)+DELTA*DL3(LVL)) + ELSE + REJF = DL4(LVL)+DL5(LVL)*LOG(DELTA+DL6(LVL)) + ENDIF + CALL RMMAR(RD,1,2) + IF ( RD(1) .GT. REJF ) GOTO 961 +C BR=PRODUCT ENERGY FRACTION + PESE2 = BR*PEIG + ENDIF + PESE1 = PEIG-PESE2 + E(NP) = PESE1 + E(NP+1)= PESE2 +C THIS AVERAGE ANGLE OF EMISSION FOR BOTH PAIR PRODUCTION AND +C BREMSSTRAHLUNG IS MUCH SMALLER THAN THE AVERAGE ANGLE OF +C MULTIPLE SCATTERING FOR DELTA T TRANSPORT=0.01 R.L.. THE INITIAL AND +C FINAL MOMENTA ARE COPLANAR. SET UP A NEW 'ELECTRON' + THETA = PRM/PEIG + CALL UPHI(1,1) + NP = NP+1 + SINTHE =-SINTHE + CALL UPHI(3,2) +C NOW RANDOMLY DECIDED WHICH IS POSITRON, AND SET CHARGES ACCORDINGLY + CALL RMMAR(RD,1,2) + IF ( RD(1) .LE. 0.5 ) THEN + IQ(NP) = 2 + IQ(NP-1) = 3 + ELSE + IQ(NP) = 3 + IQ(NP-1) = 2 + ENDIF + RETURN + END +*CMZ : 18/09/2001 13.38.55 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE PHOTO +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C PHOTO (EFFECT) +C +C TREATS PHOTO EFFECT +C THIS SUBROUTINE IS CALLED FORM PHOTON +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,EPCONT. + COMMON /EPCONT/ EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW,EKE,ELKE,BETA2,GLE,TSCAT, + * IDISC,IROLD,IRNEW + DOUBLE PRECISION EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW, EKE,ELKE,BETA2,GLE,TSCAT + INTEGER IDISC,IROLD,IRNEW + +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEND. + COMMON /PHOTIN/ EBINDA,GE0,GE1,GMFP0,GMFP1,GBR10,GBR11, + * GBR20,GBR21,GBR30,GBR31,GBR40,GBR41, + * RCO0,RCO1,RSCT0,RSCT1,COHE0,COHE1,MPGEM,NGR + REAL EBINDA,GE0,GE1,GMFP0(500),GMFP1(500), + * GBR10(500),GBR11(500),GBR20(500),GBR21(500), + * GBR30(500),GBR31(500),GBR40(500),GBR41(500), + * RCO0,RCO1,RSCT0(100),RSCT1(100),COHE0(500), + * COHE1(500) + INTEGER MPGEM(1),NGR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION PEIG + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' PHOTO : NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + PEIG = E(NP) + IF ( E(NP) .LE. EBINDA ) THEN +C PHOTON IS COMPLETELY ABSORBED + EDEP = PEIG + IBLOBE = 1 + ELSE +C ASSUME ELECTRON WENT IN DIRECTION OF THE PHOTON WITH ITS ENERGY, LESS +C THE BINDING ENERGY. + EDEP = EBINDA +C BINDING ENERGY WILL BE DEPOSITED LOCALLY + E(NP) = EDEP + IBLOBE = 0 +C FLAG INDICATING WHETHER ENERGY BELOW BINDING ENERGY + ENDIF + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS + DLONG(LPCTE(NP),1) = DLONG(LPCTE(NP),1) + EDEP*1.D-3 + ENDIF + IF ( IBLOBE .EQ. 1 ) THEN + E(NP) = 0.D0 + RETURN + ENDIF + IQ(NP) = 3 +C SET ELECTRON ENERGY + E(NP) = PEIG-EDEP+PRM + RETURN + END +*CMZ : 28/01/2002 09.50.31 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE PHOTON(IRCODE) +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C PHOTON (IS TREATED) +C +C TREATS THE PHOTON TRANSPORT +C FOR PATH LENGTH CORRECTION BECAUSE OF BAROMETRIC ATMOSPHERE SEE +C INTERNAL REPORT OF D.HECK,(1989) +C THIS SUBROUTINE IS CALLED FROM SHOWER. +C ARGUMENT: +C IRCODE = RETURN CODE : 1 NORMAL RETURN +C 2 IF POSSIBLY STACK IS EMPTY +C----------------------------------------------------------------------- + + IMPLICIT NONE + COMMON /BOUNDS/ ECUT,PCUT,VACDST + DOUBLE PRECISION ECUT(6),PCUT(6),VACDST +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,CEREN1. + COMMON /CEREN1/ CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR,LCERFI + DOUBLE PRECISION CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR + LOGICAL LCERFI +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,EPCONT. + COMMON /EPCONT/ EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW,EKE,ELKE,BETA2,GLE,TSCAT, + * IDISC,IROLD,IRNEW + DOUBLE PRECISION EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW, EKE,ELKE,BETA2,GLE,TSCAT + INTEGER IDISC,IROLD,IRNEW + +*KEND. + COMMON /GEOMEGS/ ZALTIT,BOUND,OBSLVL,NEWOBS + DOUBLE PRECISION ZALTIT,BOUND(6),OBSLVL(10) + INTEGER NEWOBS + COMMON /LAYER/ HBARO,HBAROI + DOUBLE PRECISION HBARO(6),HBAROI(6) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEND. + COMMON /MEDIA/ RLDU,RLDUI,RHO,RLC,NMED,MSGE,MGE,MSEKE,MEKE, + * MLEKE,MCMFP,MRANGE,IRAYLM + DOUBLE PRECISION RLDU,RLDUI + REAL RHO,RLC + INTEGER NMED,MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE, + * IRAYLM + COMMON /MEDIAC/ MEDIA + CHARACTER MEDIA*24 + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) + COMMON /MUON/ PRRMMU,RMMUT2 + DOUBLE PRECISION PRRMMU,RMMUT2 + COMMON /NKGSUB/ XXOLD,YYOLD,ZZOLD + DOUBLE PRECISION XXOLD,YYOLD,ZZOLD +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PHOTIN/ EBINDA,GE0,GE1,GMFP0,GMFP1,GBR10,GBR11, + * GBR20,GBR21,GBR30,GBR31,GBR40,GBR41, + * RCO0,RCO1,RSCT0,RSCT1,COHE0,COHE1,MPGEM,NGR + REAL EBINDA,GE0,GE1,GMFP0(500),GMFP1(500), + * GBR10(500),GBR11(500),GBR20(500),GBR21(500), + * GBR30(500),GBR31(500),GBR40(500),GBR41(500), + * RCO0,RCO1,RSCT0(100),RSCT1(100),COHE0(500), + * COHE1(500) + INTEGER MPGEM(1),NGR + COMMON /PION/ PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT + DOUBLE PRECISION PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION ALTEXP,COHFAC,CSQTHE,DISC,DPMFP, + * GBR1,GBR2,GBR3,GBR4,GMFP,GMFPR0,PEIG,Q2, + * REJF,RHOFI,SITHET,THICK,USTEPU,X2,ZOLD + INTEGER IRCODE,IRL,I,IDR,I1, + * LGLE,LPCT1,LPCT2,LXXX + DOUBLE PRECISION AUXIL,AUXILSQ,AUX2SQ,CORR,COSDIF,COSTHENEW, + * DISTN2,DISTO2,DSTEFF,PHI,SIGNE,SINDIF, + * TANPHI,TRANS2,XOLD,YOLD,ZNEW + INTEGER IPASC + SAVE + EXTERNAL THICK +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' PHOTON: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + NEWOBS = IOBS(NP) + IRCODE = 1 + PEIG = E(NP) + IRL = IR(NP) + MEDIUM = MED(IRL) + IF ( PEIG .LE. PCUT(IRL) ) GOTO 970 + 980 CONTINUE + XXOLD = X(NP) + YYOLD = Y(NP) + ZZOLD = Z(NP) + 981 CONTINUE +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) THEN + IDISC = 1 + GOTO 1000 + ENDIF + GLE = LOG(PEIG) + + +C HERE SAMPLE MEAN FREE PATH TO TRANSPORT BEFORE INTERACTING + CALL RMMAR(RD,1,2) + DPMFP = -LOG(DBLE(RD(1))) + IROLD = IR(NP) + 1031 CONTINUE + IF ( MEDIUM .NE. 0 ) THEN + LGLE = GE1*GLE+GE0 + GMFPR0 = GMFP1(LGLE)*GLE+GMFP0(LGLE) + ENDIF + 1041 CONTINUE + IF ( MEDIUM .EQ. 0 ) THEN +C WE ARE IN VACUUM + TSTEP = VACDST + ALTEXP = 1.D0 + ELSE +C WE ARE IN AIR LAYER + RHOFAC = RHOR(IRL)/RHO + RHOFI = 1.D0/RHOFAC + GMFP = GMFPR0*RHOFI +C DENSITY CORRECTION OF MEAN FREE PATH + IF ( IRAYLR(IRL) .EQ. 1 ) THEN + COHFAC = COHE1(LGLE)*GLE+COHE0(LGLE) + GMFP = GMFP*COHFAC + ENDIF + TSTEP = GMFP*DPMFP + ALTEXP = EXP((-Z(NP))*HBAROI(IRL)) + TSTEP = TSTEP*ALTEXP + DISC = W(NP)*TSTEP*HBAROI(IRL) + IF ( ABS(DISC) .LT. .0000007D0 ) THEN + TSTEP = TSTEP*(1.D0-.5D0*DISC*(1.D0-.666666666666667D0*DISC* + * (1.D0-.75D0*DISC*(1.D0-.8D0*DISC)))) + ELSEIF ( DISC .GT. -1.D0 ) THEN + TSTEP = TSTEP*LOG(DISC+1.D0)/DISC + ELSE + TSTEP = VACDST + ENDIF + ENDIF + IRNEW = IR(NP) + IDISC = 0 + USTEP = TSTEP + TUSTEP = USTEP +C LOOK HOW FAR WE CAN GO + IF ( USTEP .GT. DNEAR(NP) ) CALL HOWFAR + IF ( IDISC .GT. 0 ) GOTO 1000 + IF ( IDISC .LT. 0 ) THEN +C PARTICLE WILL CROSS THE DETECTOR LEVEL + ZOLD = Z(NP) + XOLD = X(NP) + YOLD = Y(NP) + DISTO2 = X(NP)**2 + Y(NP)**2 + IF ( FEGSDB ) THEN + WRITE(MDEBUG,*) 'PHOTON: WE APPROACH DETECTOR' + CALL AUSGB2 + ENDIF + AUXILSQ = SQRT(DISTO2) + WA(NP) = COS(AUXILSQ/C(1)) + WA(NP) = MIN( 1.D0, WA(NP) ) + ZAP(NP) = - (C(1)-Z(NP)) * WA(NP) + C(1) +C REGARD WHETHER PARTICLE IS MOVING TOWARDS DETECTOR +C EFFECTIVE DISTANCE TO DETECTOR CENTER IS DISTANCE TO POINT +C OF FLIGHT PATH PROJECTION WHICH COMES CLOSEST TO DETECTOR CENTER + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + PHI = -ATAN2(V(NP),U(NP)) + ELSE + PHI = 0.D0 + ENDIF + DSTEFF = -( COS(PHI)*X(NP) + SIN(PHI)*Y(NP) ) +C ANGLE DIF MIGHT BE LARGE (DUE TO CUT ON APPARTENT HEIGHT) +C CALCULATE CORRECTION ANGLE DIF FROM EFFECTIVE DISTANCE + SINDIF = SIN( DSTEFF/C(1) ) + COSDIF = SQRT( 1.D0 - SINDIF**2 ) + COSTHENEW = W(NP)*COSDIF - SQRT(1.D0-W(NP)**2)*SINDIF + IF ( FEGSDB ) WRITE(MDEBUG,*) 'PHOTON: COSDIF,COSTHENEW=', + * SNGL(COSDIF),SNGL(COSTHENEW) + W(NP) = MIN( 1.D0, COSTHENEW ) +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) THEN + IDISC = 1 + GOTO 1000 + ENDIF +C ANGLE DIF MIGHT BE LARGE (DUE TO CUT ON APPARENT HEIGHT) + X(NP) = ((-ZAP(NP))+C(1)) * TAN(X(NP)/C(1)) + Y(NP) = ((-ZAP(NP))+C(1)) * TAN(Y(NP)/C(1)) + Z(NP) = ZAP(NP) + IF ( U(NP) .NE. 0.D0 ) THEN + TANPHI= V(NP)/U(NP) + U(NP) = SIGN(1.D0,U(NP)) * + * SQRT((1.D0-W(NP)**2)/(1.D0+TANPHI**2)) + V(NP) = TANPHI * U(NP) + ELSE + IF ( V(NP) .NE. 0.D0 ) + * V(NP) = SIGN(1.D0,V(NP)) * SQRT( 1.D0 - W(NP)**2 ) + ENDIF + USTEP = -(Z(NP)+OBSLEV(1))/W(NP) + IF ( FEGSDB ) THEN + WRITE(MDEBUG,*) 'PHOTON: CORR. FOR DET. ARRIVAL:USTEP=',USTEP + CALL AUSGB2 + ENDIF + IPASC = 1 + ELSE +C NORMAL TRANSPORT STEP FAR AWAY FROM DETECTOR + IPASC = 0 + ZOLD = Z(NP) + XOLD = X(NP) + YOLD = Y(NP) + DISTO2 = X(NP)**2 + Y(NP)**2 + ENDIF + VSTEP = USTEP + TVSTEP = VSTEP +C NO ENERGY DEPOSITION ON PHOTON TRANSPORT + EDEP = 0.D0 + USTEPU = USTEP + DISC = W(NP)*USTEPU*HBAROI(IRL) + IF ( DISC .NE. 0.D0 ) THEN + USTEPU = USTEPU*(EXP(DISC)-1.D0)/(DISC*ALTEXP) + ENDIF + X(NP) = X(NP)+U(NP)*USTEP + Y(NP) = Y(NP)+V(NP)*USTEP + Z(NP) = Z(NP)+W(NP)*USTEP + TIM(NP) = TIM(NP)+TVSTEP*VCI + IF ( IPASC .EQ. 0 ) THEN +C NORMAL TRANSPORT STEP FAR AWAY FROM DETECTOR +C HORIZONTAL COMPONENT OF TRACK LENGTH SQUARED + TRANS2 = (X(NP)-XOLD)**2 + (Y(NP)-YOLD)**2 +C TRANSPORT AT MINIMUM .001 MM + TRANS2 = MAX( TRANS2, 0.00001D0 ) +C NEW COORDINATE FRAME, NEW ACTUAL HEIGHT AT NEW THICKNESS GRADIENT +C (CALCULATED WITH PARAMETERS OF OLD COORDINATE FRAME) + AUXIL = SQRT( TRANS2 + (C(1)-Z(NP))**2 ) + ZNEW = C(1) - AUXIL +C CALCULATE ANGLE DIFFERENCE BETWEEN OLD AND NEW FRAME + SINDIF = SQRT(TRANS2) / AUXIL + COSDIF = (C(1)-Z(NP)) / AUXIL + IF ( FEGSDB ) WRITE(MDEBUG,560) COSDIF,SINDIF,-Z(NP),-ZNEW + 560 FORMAT(/' PHOTON: COSDIF,SINDIF,-Z,-ZNEW=',2F18.15,1P,2E17.9) + COSDIF = MIN( 1.D0, COSDIF ) +C CORRECTED X AND Y HAVE TO BE CALCULATED BEFORE DISTN2 +C TRANSPORT DISTANCE IS CORRECTED TO GET DISTANCE AT EARTH' SURFACE + CORR = C(1) * ASIN(SINDIF) / ( (C(1)-ZNEW)*SINDIF ) + X(NP) = XOLD + (X(NP)-XOLD) * CORR + Y(NP) = YOLD + (Y(NP)-YOLD) * CORR + Z(NP) = ZNEW +C NEW DISTANCE FROM PARTICLE TO DETECTOR CENTER + DISTN2 = X(NP)**2 + Y(NP)**2 +C COMPARE NEW AND OLD DISTANCE TO DETECTOR CENTER + IF ( DISTN2 .LT. DISTO2 ) THEN +C PARTICLE MOVES TOWARDS DETECTOR CENTER + SIGNE = +1.D0 + ELSE + SIGNE = -1.D0 + IF ( FEGSDB ) WRITE(MDEBUG,*) 'PHOTON: SIGNE=',SIGNE + ENDIF +C IN FIRST ORDER APPROXIMATION W(NP) AND COSDIF ARE IN THE SAME PLANE +C OF PARTICLE MOVEMENT, THEREFORE THE ANGLES MAY BE ADDED DIRECTLY + COSTHENEW = W(NP)*COSDIF - SIGNE*SINDIF*SQRT(1.D0-W(NP)**2) + W(NP) = MIN( 1.D0, COSTHENEW ) +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) THEN + IDISC = 1 + GOTO 1000 + ENDIF + IF ( FEGSDB ) THEN + WRITE(MDEBUG,562) WA(NP),-ZAP(NP) + 562 FORMAT(' PHOTON: WA,-ZAP=',F18.15,1P,E17.9) + WRITE(MDEBUG,557) U(NP),V(NP),W(NP),X(NP),Y(NP),Z(NP) + 557 FORMAT(' PHOTON: STEPEND=',1P,6E10.3,0P) + ENDIF +C CALCULATE ANGLES IN THE NEW FRAME + AUXILSQ = SQRT(X(NP)**2 + Y(NP)**2) + WA(NP) = COS( AUXILSQ/C(1) ) + WA(NP) = MIN( 1.D0, WA(NP) ) + ZAP(NP) = -(C(1)-ZNEW) * WA(NP) + C(1) + AUX2SQ = SQRT( (C(1)-ZNEW)**2*(1.D0 - WA(NP)**2) + * + (-ZAP(NP)-OBSLEV(1))**2 ) + WAP(NP) = -(OBSLEV(1)+ZAP(NP)) / AUX2SQ + IF ( FEGSDB ) WRITE(MDEBUG,*) 'PHOTON: WAP=',WAP(NP) + WAP(NP) = MIN( 1.D0, WAP(NP) ) + IF ( U(NP) .NE. 0.D0 ) THEN + TANPHI= V(NP)/U(NP) + U(NP) = SIGN(1.D0,U(NP)) * + * SQRT((1.D0-W(NP)**2)/(1.D0+TANPHI**2)) + V(NP) = TANPHI * U(NP) + ELSE + IF ( V(NP) .NE. 0.D0 ) + * V(NP) = SIGN(1.D0,V(NP)) * SQRT( 1.D0 - W(NP)**2 ) + ENDIF + ENDIF +C ADD PHOTONS TO THE LONGITUDINAL DEVELOPMENT + IF ( LLONGI ) THEN +C FIND FIRST THE EQUIVALENT LEVELS +C IF STARTING POINT BELOW LOWEST LEVEL THEN DON'T CHECK + IF ( HLONG(NSTEP) .LE. -ZOLD ) THEN + LPCT1 = LPCTE(NP) +C Z NEW IS PROBABLY ONLY LITTLE BELOW Z OLD, THEREFORE INCREMENTAL SEARCH + DO I1 = LPCT1,NSTEP + IF ( HLONG(I1) .LT. -Z(NP) ) GOTO 6003 + ENDDO + I1 = NSTEP + 1 + 6003 CONTINUE + LPCT2 = I1 - 1 +C STORE END POINT AS POSSIBLE STARTPOINT OF NEXT TRACK + LPCTE(NP) = LPCT2 + 1 + IF ( IDISC .LT. 0 ) LPCT2 = LPCT2+1 + DO I = LPCT1,LPCT2 + PLONG(I,1) = PLONG(I,1) + 1.D0 + ELONG(I,1) = ELONG(I,1) + E(NP)*1.D-3 + ENDDO + ENDIF + ENDIF + +C DEDUCT FROM DISTANCE TO NEAREST BOUNDARY + DNEAR(NP) = DNEAR(NP)-USTEP + IF ( MEDIUM .NE. 0 ) THEN + DPMFP = MAX( 0.D0, DPMFP-USTEPU/GMFP ) + ENDIF + IROLD = IR(NP) + MEDOLD = MEDIUM + IF ( IRNEW .NE. IROLD ) THEN +C CHANGE OF LAYER + IR(NP) = IRNEW + IRL = IRNEW + MEDIUM = MED(IRL) + IF ( PEIG .LE. PCUT(IRL) ) GOTO 970 + ENDIF +C KILL UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) THEN + IDISC = 1 + GOTO 1000 + ENDIF +C LOOK FOR OBSERVATION LEVEL AND GIVE TO OUTPUT + IF ( NEWOBS .GT. IOBS(NP) ) THEN + CALL AUSGAB + IOBS(NP) = NEWOBS + ENDIF + IF ( IDISC .LT. 0 ) GOTO 1000 + IF ( MEDIUM .NE. MEDOLD ) GOTO 1031 +C SKIP BACK IF STEP LENGTH NOT YET TOTALLY EXHAUSTED + IF ( MEDIUM .NE. 0 .AND. DPMFP .LE. 1.D-6 ) GOTO 1032 + GOTO 1041 + + 1032 CONTINUE +C RAYLEIGH SCATTERING + IF ( IRAYLR(IRL) .EQ. 1 ) THEN + CALL RMMAR(RD,1,2) + IF ( RD(1) .LE. 1.D0-COHFAC ) THEN + 1050 CONTINUE + CALL RMMAR(RD,1,2) + LXXX = RCO1*RD(1)+RCO0 + X2 = RSCT1(LXXX)*RD(1)+RSCT0(LXXX) + Q2 = X2*RMSQ*.23547885D-02 + COSTHE = 1.D0-Q2/(2.D0*E(NP)**2) + IF ( ABS(COSTHE) .GT. 1.D0 ) GOTO 1050 + CSQTHE = COSTHE**2 + REJF = (1.D0+CSQTHE)*.5D0 + CALL RMMAR(RD,1,2) + IF ( RD(1) .GT. REJF ) GOTO 1050 + SINTHE = SQRT( MAX( 0.D0, 1.D0-CSQTHE ) ) + CALL UPHI(2,1) + GOTO 981 + ENDIF + ENDIF + + IF ( .NOT. FNPRIM ) THEN +C DETERMINE THE ALTITUDE OF THE FIRST INTERACTION + IF ( .NOT. TMARGIN ) THEN + X(1) = 0.D0 + Y(1) = 0.D0 + ENDIF + IF ( FIX1I ) THEN +C IF HEIGHT OF FIRST INTERACTION IS FIXED, TAKE STARTING ANGLES OF +C PRIMARY PARTICLE + Z(1) = -FIXHEI + NP = 1 + LPCTE(1) = MIN(NSTEP,INT(THICK(FIXHEI)*THSTPI)+1) + SITHET = SQRT(1.D0-SECPAR(3)**2) + U(1) = SITHET*COS(-SECPAR(4)) + V(1) = SITHET*SIN(-SECPAR(4)) + W(1) = SECPAR(3) + ENDIF + EVTH(6) = 0. + IF ( TMARGIN ) THEN +C NEGATIVE FIRST INTERACTION HEIGHT,IF TRACKING STARTS AT ATMOS. MARGIN + EVTH(7) = Z(1) + ELSE + EVTH(7) = -Z(1) + ENDIF + CALL TOBUF(EVTH,0) +C OUTPUT OF EVENTHEADER TO THE CHERENKOV FILE + IF ( LCERFI ) CALL TOBUFC( EVTH,0 ) + CALL CORNEC + TIM(1) = 0.D0 + FNPRIM = .TRUE. + IF ( FPRINT ) THEN + WRITE(KMPO,*) ' FIRST INTERACTION AT ',ABS(EVTH(7)*0.01),' M' + ENDIF + ENDIF + +C THIS RANDOM NUMBER DETERMINES WHICH INTERACTION + CALL RMMAR(RD,1,2) + GBR4 = GBR41(LGLE)*GLE+GBR40(LGLE) + IF ( RD(1) .GE. GBR4 .AND. E(NP) .GT. PRMT2 ) THEN +C E+E- PAIR FORMATION + CALL PAIR + RETURN + ENDIF + + GBR3 = GBR31(LGLE)*GLE+GBR30(LGLE) + IF ( RD(1) .GE. GBR3 ) THEN +C COMPTON SCATTERING + CALL COMPT + IF ( IQ(NP) .NE. 1 ) RETURN + GOTO 1060 + ENDIF + + GBR1 = GBR11(LGLE)*GLE+GBR10(LGLE) + IF ( RD(1) .LE. GBR1 .AND. E(NP) .GT. RMMUT2 ) THEN +C MU+MU- PAIR FORMATION + CALL MUPAIR + RETURN + ENDIF + + GBR2 = GBR21(LGLE)*GLE+GBR20(LGLE) + IF ( RD(1) .LE. GBR2 .AND. E(NP) .GT. PITHR ) THEN +C PHOTONUCLEAR REACTION + CALL PIGEN + IF ( NP .EQ. 0 ) THEN + IRCODE = 2 + RETURN + ENDIF + RETURN + ELSE +C PHOTO EFFECT + CALL PHOTO + IF ( NP .EQ. 0 ) THEN + IRCODE = 2 + RETURN + ENDIF + IF ( IQ(NP) .EQ. 3 ) RETURN + ENDIF + + 1060 PEIG = E(NP) +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) THEN + IDISC = 1 + GOTO 1000 + ENDIF + IF ( PEIG .GE. PCUT(IRL) ) GOTO 980 + + 970 IF ( PEIG .GT. AP ) THEN + IDR = 1 + ELSE + IDR = 2 + ENDIF + EDEP = PEIG + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS + DLONG(LPCTE(NP),1) = DLONG(LPCTE(NP),1) + EDEP*1.D-3 + ENDIF + IRCODE = 2 + NP = NP-1 + RETURN + + 1000 EDEP = PEIG + IF ( LLONGI .AND. IDISC .GT. 0 ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS + DLONG(LPCTE(NP),1) = DLONG(LPCTE(NP),1) + EDEP*1.D-3 + ENDIF + IRCODE = 2 + NP = NP-1 + RETURN + END +*CMZ : 11/01/2002 09.25.09 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PIGEN + +C----------------------------------------------------------------------- +C PI(ON) GEN(ERATION) +C +C THIS SUBROUTINE STEERS THE PHOTONUCLEAR REACTION: +C FOR PRODUCTION OF 1 PION, PIGEN1 IS CALLED. +C FOR PRODUCTION OF 2 PIONS, PIGEN2 IS CALLED. +C AT HIGHER ENERGIES SDPM IS CALLED FOR PRODUCTION OF MORE PARTICLES +C OR RHOGEN IS CALLED FOR PRODUCTION OF RHO OR OMEGA MESON +C THIS SUBROUTINE IS CALLED FROM PHOTON. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEND. + COMMON /NKGSUB/ XXOLD,YYOLD,ZZOLD + DOUBLE PRECISION XXOLD,YYOLD,ZZOLD +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEEP,THNVAR. + COMMON /THNVAR/ STACKINT, + * INT_ICOUNT,MODETHN,THINNING + INTEGER MAXICOUNT + PARAMETER (MAXICOUNT=40000) + DOUBLE PRECISION STACKINT(16,MAXICOUNT) + INTEGER INT_ICOUNT,MODETHN + LOGICAL THINNING +*KEND. + + DOUBLE PRECISION ANGLEX,ENERN,PEIG,REGPAR(MAXLEN),REGGEN,REGLVL + DOUBLE PRECISION AUXIL,ECMVM,VMFRAC + INTEGER K + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' PIGEN : NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'PIGEN : E=',E(NP)*.001D0 + +C INCREASE AGE, WE HAVE HADRONIC INTERACTION + IGEN(NP) = IGEN(NP)+1 + SECPAR(9) = IGEN(NP) + SECPAR(10) =-Z(NP) + SECPAR(14) = -ZAP(NP) + SECPAR(15) = WAP(NP) + SECPAR(16) = WA(NP) + PEIG = E(NP) + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF +C SUBTRACT EM SUBSHOWER FROM NKG CALCULATION +C WITH CORRECTION FOR ORIGIN OF GAMMA (MARCH 10, 1998) + IF ( FNKG ) THEN + SECPAR(1) = 1.D0 + + SECPAR(3) = MIN( 1.D0, W(NP) ) + SECPAR(4) = ANGLEX + SECPAR(5) = -ZZOLD + SECPAR(7) = XXOLD + SECPAR(8) = -YYOLD + ENERN = (-1.D-3)*PEIG + CALL NKG(ENERN) + IF ( DEBUG ) WRITE(MDEBUG,*) 'PIGEN : NKG SUBTRACTED' + ENDIF + CALL RMMAR(RD,1,2) + IF ( RD(1) .GT. (PEIG-400.D0)*0.001D0 ) THEN +C FOR ENERGIES BETWEEN 400 MEV AND 1400 MEV (=1000+400) DECIDE +C BY CHANCE WHETHER ONE OR TWO PIONS ARE GENERATED +C PIGEN1 TREATS THE PRODUCTION OF 1 PION + INT_ICOUNT = 0 + CALL PIGEN1 + CALL TSTEND + ELSEIF ( RD(1) .GT. (PEIG-2000.D0)*0.001D0 ) THEN +C FOR ENERGIES BETWEEN 2000MEV AND 3000MEV (=1000+2000) DECIDE +C BY CHANCE WHETHER 2 (PIGEN2) OR MORE PIONS (SDPM) ARE GENERATED +C PIGEN2 TREATS THE PRODUCTION OF 2 PIONS + INT_ICOUNT = 0 + CALL PIGEN2 + CALL TSTEND + ELSE +C SAVE CURPAR PARTICLE INTO REGISTER REGPAR + DO K = 1,MAXLEN + REGPAR(K) = CURPAR(K) + ENDDO + REGGEN = GEN + REGLVL = ALEVEL +C FOR ENERGIES ABOVE 2 GEV TAKE BY CHANCE DIFFRACTIVE INTERACTION +C LEADING TO A RHO (90%) OR OMEGA (10%) BY CALLING RHOGEN +C FIRST CALCULATE REST MASS OF AVERAGE AIR TARGET (MASS # 14.6) + AUXIL = 7.3D0 * (PAMA(13)+PAMA(14)) +C ENERGY IN CM SYSTEM (GEV) + ECMVM = SQRT( AUXIL*(AUXIL + 2.D0*PEIG*0.001D0) ) +C THE FRACTION IS THE RATIO OF VECTOR MESON PRODUCTION CROSS-SECTION +C (TO BE CALCULATED ACCORDING R. ENGEL ET AL., PHYS. REV. D55 +C (1997) 6957) TO TOTAL PHOTONUCLEAR CROSS-SECTION +C (SEE T. STANEV ET AL., PHYS. REV. D32 (1985) 1244) +C THE FRACTION LEADING TO A RHO (90%) OR OMEGA (10%) IS FITTED BY + VMFRAC = .11195D0 * ECMVM**0.0870D0 + .51892D0/(ECMVM**1.2891D0) + CALL RMMAR(RD,1,2) + IF ( FEGSDB ) WRITE(MDEBUG,*) 'PIGEN : VMFRAC,RD=', + * SNGL(VMFRAC),RD(1) + IF ( RD(1) .LT. VMFRAC ) THEN + INT_ICOUNT = 0 + CALL RHOGEN + CALL TSTEND + ELSE +C AT HIGHER ENERGIES MORE THAN 2 PIONS ARE GENERATED BY HIGH ENERGY +C HADRONIC INTERACTION MODEL +C FILL CURRENT EGS4-PARTICLE INTO CURPAR + ITYPE = 1 + CURPAR(1) = 1.D0 + CURPAR(2) = PEIG*1.D-3 + CURPAR(3) = MIN( 1.D0, W(NP) ) + CURPAR(4) = ANGLEX + CURPAR(5) =-Z(NP) + CURPAR(6) = TIM(NP) + CURPAR(7) = X(NP) + CURPAR(8) =-Y(NP) + CURPAR(9) = 0.D0 + CURPAR(10) = 1.D0 + CURPAR(12) = SQRT(PAMA(14)*(PAMA(14)+PEIG*2.D-3)) + CURPAR(11) = (PEIG*1.D-3+PAMA(14))/CURPAR(12) + GEN = IGEN(NP) + ALEVEL =-Z(NP) + EKINL = CURPAR(2) + CURPAR(14) = -ZAP(NP) + SECPAR(14) = -ZAP(NP) + CURPAR(15) = WAP(NP) + SECPAR(15) = WAP(NP) + CURPAR(16) = WA(NP) + SECPAR(16) = WA(NP) +C ELIMINATE GAMMA FROM EGS-STACK + NP = NP-1 +C HDPM, VENUS, NEXUS, SIBYLL, QGSJET, DPMJET GIVE ALL PARTICLES TO +C SECPAR. COPY VERTEX COORDINATES INTO SECPAR FOR SECONDARIES + DO K = 5,8 + SECPAR(K) = CURPAR(K) + ENDDO + + INT_ICOUNT = 0 + CALL SDPM + CALL TSTEND +C END OF MANY PION GENERATION + ENDIF +C RESTORE CURPAR PARTICLE FROM REGPAR + DO K = 1,MAXLEN + CURPAR(K) = REGPAR(K) + ENDDO + GEN = REGGEN + ALEVEL = REGLVL + ENDIF + RETURN + END +*CMZ : 28/02/2002 13.12.11 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PIGEN1 + +C----------------------------------------------------------------------- +C PI(ON) GEN(ERATION) 1 (PION) +C +C THIS SUBROUT. DESCRIBES THE PHOTONUCLEAR REACTION +C GAMMA + NUCLEON -----> PION + NUCLEON +C THIS SUBROUTINE IS CALLED FROM PIGEN. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PION/ PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT + DOUBLE PRECISION PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + + DOUBLE PRECISION AMASS2,AMAS2I,AMASS3,AMASS4,AMOM3,AMOM4,ANGLEX, + * BETA,BRATIO,B3CM,B3CM2,COSTE3,ED,ENUCL, + * ESQ,ETH,E3CM,GAMMA,G3, + * PEIG,PEOP,PT,PTRANS,P3CM,W0,W0I,W0S,W0SI + SAVE + EXTERNAL PTRANS +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' PIGEN1: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'PIGEN1: E=',E(NP)*.001D0 + + PEIG = E(NP) +C NUMBERS AT THE VARIABLES MEAN : +C 1 INCOMING GAMMA RAY +C 2 HIT NUCLEON +C 3 PRODUCED PION +C 4 RECOILING NUCLEON +C LOOK WHICH TYPE OF REACTION + CALL RMMAR(RD,2,2) +C 0.49923 IS THE FRACTION OF PROTONS IN AIR + IF ( RD(1) .LE. 0.49923 ) THEN +C HIT NUCLEON IS PROTON + AMASS2 = AMASPR +C 33% CHANCE FOR CHARGE EXCHANGE + IF ( RD(2) .LE. 0.3333333 ) THEN +C PI(+) + NEUTRON PRODUCED + IQ(NP) = 8 + IQ(NP+1) = 13 + ELSE +C PI(0) + PROTON PRODUCED + IQ(NP) = 7 + IQ(NP+1) = 14 + ENDIF + ELSE +C HIT NUCLEON IS NEUTRON + AMASS2 = AMASNT +C 33% CHANCE FOR CHARGE EXCHANGE + IF ( RD(2) .LE. 0.3333333 ) THEN +C PI(-) + PROTON PRODUCED + IQ(NP) = 9 + IQ(NP+1) = 14 + ELSE +C PI(0) + NEUTRON PRODUCED + IQ(NP) = 7 + IQ(NP+1) = 13 + ENDIF + ENDIF + AMAS2I = 1.D0/AMASS2 +C NOTE: THE ENERGIES IN EGS ARE IN MEV, IN CORSIKA IN GEV + AMASS3 = PAMA(IQ(NP))*1.D3 + AMASS4 = PAMA(IQ(NP+1))*1.D3 +C TOTAL LABORATORY ENERGY AND ITS INVERSE + W0 = PEIG+AMASS2 + W0I = 1.D0/W0 +C TOTAL.C.M. ENERGY AND INVERSE OF TOTAL C.M.ENERGY + W0S = SQRT(AMASS2*(AMASS2+2.D0*PEIG)) + W0SI = 1.D0/W0S +C THRESHOLD ENERGY + ETH = 0.5D0*((AMASS3+AMASS4)**2-AMASS2**2)*AMAS2I +C BETA,GAMMA, ESQ, BRATIO, G3 ARE AUXILIARY QUANTITIES + BETA = PEIG*W0I + GAMMA = W0*W0SI + ED = 0.5D0*((AMASS3-AMASS4)**2-AMASS2**2)*AMAS2I + ESQ = SQRT((PEIG-ETH)*(PEIG-ED)) + BRATIO = PEIG/ESQ + G3 = W0I*BRATIO*(PEIG-ETH+AMASS3*AMAS2I*(AMASS3+AMASS4)) +C C.M. ENERGY OF PION + E3CM = G3*AMASS2*GAMMA/BRATIO +C C.M. PION MOMENTUM + P3CM = AMASS2*W0SI*ESQ + B3CM2 = P3CM**2/(P3CM**2+AMASS3**2) + B3CM = SQRT(B3CM2) +C DETERMINE THETA IN C.M. SYSTEM BY CHANCE. + + IF ( PEIG .LE. 900.D0 ) THEN +C PHOTON ENERGY IS BELOW 900 MEV + 210 CONTINUE + CALL RMMAR(RD,2,2) + IF ( IQ(NP) .EQ. 7 ) THEN +C NEUTRAL PION EMITTED, TAKE PURE +C DIPOLE RADIATION: W(COSTH) = 1-3/5*COSTH**2 + COSTE3 = 2.D0*RD(1)-1.D0 + IF ( RD(2) .GT. 1.D0-0.6D0*COSTE3**2 ) GOTO 210 + ELSE +C CHARGED PION EMITTED, TAKE MODIFIED DIPOLE RADIATION +C WITH ASYMMETRY TERM 1/(1-BETACM*COSTE3)**2 + COSTE3 = 1.D0/B3CM - 1.D0/(RD(1)*2.D0*B3CM2/(1.D0-B3CM2) + * + B3CM/(1.D0+B3CM)) + IF ( RD(2)*2.5D0 .GT. 1.D0+COSTE3*(-1.8D0 + COSTE3* + * (.65D0 + COSTE3*(.34D0 -.18D0*COSTE3 ))) ) GOTO 210 + ENDIF + + ELSEIF ( PEIG .LE. 1300.D0 ) THEN +C PHOTON ENERGY BETWEEN 900 AND 1300 MEV + 220 CONTINUE + CALL RMMAR(RD,2,2) + IF ( IQ(NP) .EQ. 7 ) THEN +C NEUTRAL PION EMITTED, TAKE PURE QUADRUPOLE +C RADIATION: W(COSTH) = 1+6*COSTH**2-5*COSTH**4 + COSTE3 = 2.D0*RD(1)-1.D0 + IF ( 2.8D0*RD(2) .GT. + * 1.D0+6.D0*COSTE3**2-5.D0*COSTE3**4 ) GOTO 220 + ELSE +C CHARGED PION EMITTED, TAKE MODIFIED QUADRUPOLE +C RADIATION WITH ASYMMETRY TERM: 1/(1-BETACM*COSTE3)**2 + COSTE3 = 1.D0/B3CM - 1.D0/(RD(1)*2.D0*B3CM2/(1.D0-B3CM2) + * + B3CM/(1.D0+B3CM)) + IF ( 13.2D0*RD(2) .GT. 1.D0 + COSTE3*(-2.18D0 + COSTE3*(7.20D0 + * + COSTE3*(-2.55D0 + COSTE3*(-15.39D0 + COSTE3*(6.36D0 + * + COSTE3*(13.80D0 - COSTE3*8.235D0)))))) ) GOTO 220 + ENDIF + + ELSE +C ABOVE 1300 MEV THE ANGULAR DISTRIBUTION IS DETERMINED +C BY THE TRANSVERSE MOMENTUM OF THE PION + PT = 1.D3*PTRANS() + COSTE3 = SQRT(MAX( 0.D0, P3CM**2-PT**2 ))/P3CM + ENDIF +C PRECISE ENERGY OUTGOING PION = PEOP + PEOP = GAMMA*(E3CM+BETA*P3CM*COSTE3) +C ENERGY OF OUTGOING PION IN STACK POSITION NP + E(NP) = PEOP +C MOMENTUM OF OUTGOING PION = AMOM3 +C COSTHE AND SINTHE ARE ANGLES IN LAB SYSTEM FOR PARTICLE 3 (PION) +C SEE SLAC-265, P. 52 + AMOM3 = SQRT(MAX( 0.D0, PEOP**2-AMASS3**2 )) + IF ( AMOM3 .GT. 0.D0 ) THEN + COSTHE = (AMASS4**2 - AMASS2**2 - AMASS3**2 + 2.D0*PEOP*W0 + * - 2.D0*PEIG*AMASS2)/(2.D0*PEIG*AMOM3) + ELSE + COSTHE = 1.D0 + ENDIF + SINTHE = SQRT(MAX( 0.0D0, 1.D0-COSTHE**2 )) + CALL UPHI(2,1) +C TOTAL ENERGY OF RECOILING NUCLEON = ENUCL + ENUCL = W0-PEOP + IF ( ENUCL-AMASS4 .GT. ELCUT(1)*1000.D0 ) THEN +C RECOIL ENERGY IS TOO LARGE, MUST TREAT THE NUCLEON + NP = NP+1 + E(NP) = ENUCL +C MOMENTUM OF RECOIL NUCLEON + AMOM4 = SQRT(ENUCL**2-AMASS4**2) +C COSTHE AND SINTHE ARE ANGLES IN LAB SYSTEM FOR RECOIL NUCLEON +C SEE SLAC-265, P. 52 + COSTHE = (AMASS3**2 - AMASS2**2 - AMASS4**2 + 2.D0*ENUCL*W0 + * - 2.D0*PEIG*AMASS2)/(2.D0*PEIG*AMOM4) + SINTHE = -SQRT(MAX( 0.0D0, 1.D0-COSTHE**2 )) + CALL UPHI(3,2) + IF ( E(NP)-AMASS4 .GT. ELCUT(1)*1000.D0 ) THEN + IF ( W(NP) .GT. C(29) ) THEN +C ANGLE WITH RESPECT TO X AXIS + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF +C ADD NUCLEON TO CORSIKA STACK + SECPAR(1) = IQ(NP) + SECPAR(2) = E(NP)/AMASS4 + SECPAR(3) = MIN( 1.D0, W(NP) ) + SECPAR(4) = ANGLEX + SECPAR(5) = -Z(NP) + SECPAR(6) = TIM(NP) + SECPAR(7) = X(NP) + SECPAR(8) = -Y(NP) + SECPAR(11) = 1.D0 + SECPAR(12) = 0.D0 + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS OF NUCLEON + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7) + * + (E(NP)-AMASS4) * 1.D-3 + ENDIF + ENDIF + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS OF NUCLEON + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7) + * + (E(NP)-AMASS4) * 1.D-3 + ENDIF + ENDIF +C ELIMINATE NUCLEON FROM EGS-STACK + NP = NP-1 + ENDIF +C END OF RECOIL NUCLEON TREATMENT CASE + RETURN + END +*CMZ : 11/01/2002 09.25.09 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PIGEN2 + +C----------------------------------------------------------------------- +C PI(ON) GEN(ERATION) 2 (PIONS) +C +C THIS SUBROUT. DESCRIBES THE PHOTONUCLEAR REACTION +C GAMMA + NUCLEON -----> PION + PION + NUCLEON +C THIS SUBROUTINE IS CALLED FROM PIGEN. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PION/ PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT + DOUBLE PRECISION PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + + DOUBLE PRECISION AMASS2,AMASS3,AMASS4,AMASS5,AM34SQ,AM35SQ,AM34I, + * ANGLEX,AUXA,AUXB,AUX1,AUX2,AUX2A,AUX3,AUX4, + * AUX4A,AUX5,AUX6,AUX7,AUX8,BETA,COSA,COSB, + * COSFI3,COSPSI,COS3CM,COS4CM,COS5CM,DISCR, + * ECM,ENUCL,E3CM,E4CM,E5CM,E3STAR,E5STAR, + * GAMMA,HELP,PEIG,P3CM,P4CM,P5CM, + * P3SQ,P4SQ,P5SQ,ROOT1,ROOT2,SINA,SINB, + * SINFI3,SINPSI,SINT4,SINT4I,SINT5,SINT5I,SIN3CM, + * PSI,PTRANS,PT3 + INTEGER IHELP + SAVE + EXTERNAL PTRANS +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' PIGEN2: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'PIGEN2: E=',E(NP)*.001D0 + + PEIG = E(NP) +C NUMBERS AT THE VARIABLES MEAN : +C 1 INCOMING GAMMA RAY +C 2 HIT NUCLEON +C 3 FIRST PRODUCED PION +C 4 SECOND PRODUCED PION +C 5 RECOILING NUCLEON + CALL RMMAR(RD,2,2) +C LOOK WHICH TYPE OF REACTION +C 0.49923 IS THE FRACTION OF PROTONS IN AIR + IF ( RD(1) .LE. 0.49923 ) THEN +C HIT NUCLEON IS PROTON + AMASS2 = AMASPR +C BRANCHING FOR COLLISION WITH PROTON + IF ( RD(2) .LE. 0.3 ) THEN +C PI(0) + PI(0) + PROTON + IQ(NP) = 7 + IQ(NP+1) = 7 + IQ(NP+2) = 14 + ELSEIF ( RD(2) .LE. 0.6 ) THEN +C PI(+) + PI(-) + PROTON + IQ(NP) = 8 + IQ(NP+1) = 9 + IQ(NP+2) = 14 + ELSE +C PI(+) + PI(0) + NEUTRON + IQ(NP) = 8 + IQ(NP+1) = 7 + IQ(NP+2) = 13 + ENDIF + ELSE +C HIT NUCLEON IS NEUTRON +C BRANCHING FOR COLLISION WITH NEUTRON + AMASS2 = AMASNT + IF ( RD(2) .LE. 0.3 ) THEN +C PI(0) + PI(0) + NEUTRON + IQ(NP) = 7 + IQ(NP+1) = 7 + IQ(NP+2) = 13 + ELSEIF ( RD(2) .LE. 0.6 ) THEN +C PI(+) + PI(-) + NEUTRON + IQ(NP) = 8 + IQ(NP+1) = 9 + IQ(NP+2) = 13 + ELSE +C PI(-) + PI(0) + PROTON + IQ(NP) = 9 + IQ(NP+1) = 7 + IQ(NP+2) = 14 + ENDIF + ENDIF +C CALCULATE AUXILIARY PARAMETERS + ECM = SQRT(AMASS2*(AMASS2+2.D0*PEIG)) +C NOTE: THE ENERGIES IN EGS ARE IN MEV, IN CORSIKA IN GEV +C HERE ALL ENERGIES ARE USED IN MEV + AMASS3 = PAMA(IQ(NP))*1.D3 + AMASS4 = PAMA(IQ(NP+1))*1.D3 + AMASS5 = PAMA(IQ(NP+2))*1.D3 + AUX1 = (AMASS3+AMASS4)**2 + AUX2A = (ECM - AMASS5)**2 + AUX2 = AUX2A-AUX1 + AUX3 = (AMASS3+AMASS5)**2 + AUX4A = (ECM - AMASS4)**2 + AUX4 = AUX4A-AUX3 + AUX5 = AMASS3**2-AMASS4**2 + AUX6 = ECM**2-AMASS5**2 + AUX7 = 0.5D0/ECM + AUX8 = (ECM - AMASS3)**2 + BETA = PEIG/(AMASS2+PEIG) + GAMMA = 2.D0*(PEIG+AMASS2)*AUX7 + 230 CONTINUE + CALL RMMAR(RD,2,2) +C ARE INVARIANT MASS SQUARES INSIDE BOUNDARY OF DALITZ PLOT? + AM34SQ = AUX2*RD(1)+AUX1 + AM35SQ = AUX4*RD(2)+AUX3 + AM34I = 0.5D0/SQRT(AM34SQ) + E3STAR = (AUX5+AM34SQ)*AM34I + E5STAR = (AUX6-AM34SQ)*AM34I + ROOT1 = SQRT(MAX( 0.D0, E3STAR**2-AMASS3**2 )) + ROOT2 = SQRT(MAX( 0.D0, E5STAR**2-AMASS5**2 )) +C REJECT RANDOM NUMBERS, IF NOT INSIDE KINEMATIC BOUNDARY + DISCR = AM35SQ-(E3STAR+E5STAR)**2 + IF ( DISCR .GT. -((ROOT1-ROOT2)**2) ) GOTO 230 + IF ( DISCR .LT. -((ROOT1+ROOT2)**2) ) GOTO 230 +C E3CM,E4CM,E5CM ARE ENERGIES IN C.M. SYSTEM + E4CM = (ECM**2+AMASS4**2-AM35SQ)*AUX7 + E5CM = (ECM**2+AMASS5**2-AM34SQ)*AUX7 +C NOW TAKE PION WITH HIGHEST ENERGY AS PARTICLE 3 + E3CM = ECM-E4CM-E5CM + IF ( E4CM .GT. E3CM ) THEN +C INTERCHANGE PARTICLE 3 AND 4 + HELP = E3CM + E3CM = E4CM + E4CM = HELP + HELP = AMASS3 + AMASS3 = AMASS4 + AMASS4 = HELP + IHELP = IQ(NP) + IQ(NP) = IQ(NP+1) + IQ(NP+1) = IHELP + ENDIF +C P3CM,P4CM,P5CM ARE MOMENTA IN C.M. SYSTEM +C P3SQ,P4SQ,P5SQ ARE SQUARED MOMENTA IN C.M. SYSTEM + P3SQ = E3CM**2-AMASS3**2 + P3CM = SQRT(MAX( 0.D0, P3SQ )) + P4SQ = E4CM**2-AMASS4**2 + P4CM = SQRT(MAX( 0.D0, P4SQ )) + P5SQ = E5CM**2-AMASS5**2 + P5CM = SQRT(MAX( 0.D0, P5SQ )) + COSA = (P5SQ-P3SQ-P4SQ)/(2.D0*P3CM*P4CM) + SINA =-SQRT(MAX( 0.D0, 1.D0-COSA**2 )) + COSB = (P4SQ-P3SQ-P5SQ)/(2.D0*P3CM*P5CM) + SINB = SQRT(MAX( 0.D0, 1.D0-COSB**2 )) +C NOW SELECT THE THREE INDEPENDENT ANGLES IN C.M. SYSTEM + PT3 = 1.D3*PTRANS() + SIN3CM = MIN( 1.D0, PT3/P3CM ) + COS3CM = SQRT(1.D0-SIN3CM**2) + CALL RMMAR(RD,1,2) + PSI = TWOPI*RD(1) + SINPSI = SIN(PSI) + COSPSI = COS(PSI) +C THIRD INDEPENDENT ANGLE PHI IS CHOOSEN LATER IN SUBR. UPHI +C NOW MAKE LORENTZ TRANSFORMATION FOR PARTICLE 3 (PION) + E(NP) = GAMMA*(E3CM+BETA*P3CM*COS3CM) +C COSTHE AND SINTHE ARE ANGLES IN LAB SYSTEM FOR PARTICLE 3 (PION) + COSTHE = MIN((BETA*E3CM+P3CM*COS3CM)*GAMMA/SQRT(MAX(0.D0,E(NP)**2 + * -AMASS3**2)),1.D0) + SINTHE = SQRT(MAX( 0.D0, 1.D0-COSTHE**2 )) +C SINPHI AND COSPHI ARE NOW SET IN SUBR. UPHI + CALL UPHI(2,1) + SINFI3 = SINPHI + COSFI3 = COSPHI +C NOW MAKE LORENTZ TRANSFORMATION FOR PARTICLE 4 = PION + COS4CM = COS3CM*COSA-SIN3CM*COSPSI*SINA + NP = NP+1 + E(NP) = GAMMA*(E4CM+BETA*P4CM*COS4CM) + SINT4 = SQRT(MAX( 0.D0, 1.D0-COS4CM**2 )) + IF ( SINT4 .NE. 0.D0 ) THEN + SINT4I = 1.D0/SINT4 + AUXA = COS3CM*COSPSI*SINA+SIN3CM*COSA +C COSPHI AND SINPHI ARE IN LAB SYSTEM FOR PARTICLE 4 (PION) + COSPHI = (COSFI3*AUXA-SINFI3*SINPSI*SINA)*SINT4I + SINPHI = (SINFI3*AUXA+COSFI3*SINPSI*SINA)*SINT4I + ELSE + COSPHI = 0.D0 + SINPHI = 1.D0 + ENDIF +C COSTHE AND SINTHE ARE IN LAB SYSTEM FOR PARTICLE 4 (PION) + COSTHE = MIN((BETA*E4CM+P4CM*COS4CM)*GAMMA/SQRT(MAX(0.D0,E(NP)**2 + * -AMASS4**2)),1.D0) + SINTHE = SQRT(MAX( 0.0D0, 1.D0-COSTHE**2 )) + CALL UPHI(3,2) +C NOW MAKE LORENTZ TRANSFORMATION FOR PARTICLE 5 = RECOIL NUCLEON + COS5CM = COS3CM*COSB-SIN3CM*COSPSI*SINB + ENUCL = GAMMA*(E5CM+BETA*P5CM*COS5CM) + NP = NP+1 + E(NP) = ENUCL + SINT5 = SQRT(MAX( 0.D0, 1.D0-COS5CM**2 )) + IF ( SINT5 .NE. 0.D0 ) THEN + SINT5I = 1.D0/SINT5 + AUXB = COS3CM*COSPSI*SINB+SIN3CM*COSB +C COSPHI AND SINPHI ARE IN LAB SYSTEM FOR PART. 5 (NUCLEON) + COSPHI = (COSFI3*AUXB-SINFI3*SINPSI*SINB)*SINT5I + SINPHI = (SINFI3*AUXB+COSFI3*SINPSI*SINB)*SINT5I + ELSE + COSPHI = 0.D0 + SINPHI = 1.D0 + ENDIF +C COSTHE AND SINTHE ARE IN LAB SYSTEM FOR PARTICLE 5 (NUCLEON) + COSTHE=MIN((BETA*E5CM+P5CM*COS5CM)*GAMMA/SQRT(ENUCL**2-AMASS5**2) + * , 1.D0) + SINTHE = SQRT(MAX( 0.0D0, 1.D0-COSTHE**2 )) + CALL UPHI(3,2) + IF ( E(NP)-AMASS5 .GT. ELCUT(1)*1000.D0 ) THEN + IF ( W(NP) .GT. C(29) ) THEN +C ANGLE WITH RESPECT TO X AXIS + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF +C ADD NUCLEON TO CORSIKA STACK + SECPAR(1) = IQ(NP) + SECPAR(2) = E(NP)/AMASS5 + SECPAR(3) = MIN( 1.D0, W(NP) ) + SECPAR(4) = ANGLEX + SECPAR(5) =-Z(NP) + SECPAR(6) = TIM(NP) + SECPAR(7) = X(NP) + SECPAR(8) =-Y(NP) + SECPAR(11) = 1.D0 + SECPAR(12) = 0.D0 + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7) + * + (E(NP)-AMASS5) * 1.D-3 + ENDIF + ENDIF + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7) + * + (E(NP)-AMASS5) * 1.D-3 + ENDIF + ENDIF +C ELIMINATE NUCLEON FROM EGS-STACK + NP = NP-1 +C END OF RECOIL NUCLEON TREATMENT CASE + +C STORE SECOND PION TO CORSIKA STACK + CALL PIPROP +C STORE FIRST PION TO CORSIKA STACK + CALL PIPROP + + RETURN + END +*CMZ : 11/01/2002 09.25.09 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK FZK KARLSRUHE 01/09/2001 +C======================================================================= + + SUBROUTINE PIPROP + +C----------------------------------------------------------------------- +C PI(ON) PROP(AGATION) +C +C MOVES PIONS FROM EGS-STACK TO CORSIKA-STACK. +C THIS SUBROUTINE IS CALLED FROM PIGEN2. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEND. + COMMON /MUON/ PRRMMU,RMMUT2 + DOUBLE PRECISION PRRMMU,RMMUT2 +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PION/ PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT + DOUBLE PRECISION PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + + DOUBLE PRECISION AMASS,ANGLEX,CUT + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' PIPROP: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + +C SET MASS AND CUT PARAMETER OF PARTICLE UNDER CONSIDERATION + IF ( IQ(NP) .EQ. 7 ) THEN + AMASS = PI0MAS + CUT = ELCUT(1)*1000.D0 + POLART = 1.D0 + POLARF = 0.D0 + ELSE + AMASS = PICMAS + CUT = ELCUT(1)*1000.D0 + POLART = 1.D0 + POLARF = 0.D0 + ENDIF +C USE PARTICLE ONLY IF INSIDE ACCEPTANCE CONE + IF ( W(NP) .GT. C(29) ) THEN +C ANGLE WITH RESPECT TO X AXIS + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF +C FILL PION COORDINATES INTO CORSIKA-STACK + SECPAR(1) = IQ(NP) + SECPAR(2) = E(NP)/AMASS + SECPAR(3) = MIN( 1.D0, W(NP) ) + SECPAR(4) = ANGLEX + SECPAR(5) = -Z(NP) + SECPAR(6) = TIM(NP) + SECPAR(7) = X(NP) + SECPAR(8) = -Y(NP) + SECPAR(9) = IGEN(NP) + SECPAR(10) = -Z(NP) + SECPAR(11) = POLART + SECPAR(12) = POLARF + SECPAR(14) = -ZAP(NP) + SECPAR(15) = WAP(NP) + SECPAR(16) = WA(NP) +C ADD PION TO CORSIKA-STACK + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS OF HADRONS + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7)+E(NP)*1.D-3 + ENDIF + ENDIF +C ELIMINATE PION FROM EGS-STACK + NP = NP-1 + RETURN + END +*CMZ : 11/01/2002 09.25.09 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 28/06/99 +C======================================================================= + + SUBROUTINE RHOGEN + +C----------------------------------------------------------------------- +C RHO GEN(ERATION BY PHOTONUCLEAR REACTION) +C +C THIS SUBROUT. DESCRIBES THE PHOTONUCLEAR REACTION +C GAMMA + NUCLEON -----> RHO + NUCLEON (90%) +C GAMMA + NUCLEON -----> OMEGA + NUCLEON (10%) +C HIGHER MASS VECTOR MESONS ARE OMITTED. THE RATIO FOR PRODUCTION +C OF RHO AND OMEGA IS ASSUMED TO BE 9:1 +C LITERATURE: A. DONNACHIE & G. SHAW, ELECTROMAGNETIC INTERACTIONS OF +C HADRONS (PLENUM PRESS, NEW YORK, 1978) +C A. MUECKE ET AL., SOPHIA: MONTE CARLO SIMULATIONS OF +C PHOTOHADRONIC PROCESSES IN ASTROPHYSICS, +C COMPUT. PHYS. COMMUN. (1999) IN PRESS +C THIS SUBROUTINE IS CALLED FROM PIGEN. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PION/ PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT + DOUBLE PRECISION PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RESON. + COMMON /RESON/ RDRES,RESRAN,IRESPAR + REAL RDRES(2),RESRAN(30000) + INTEGER IRESPAR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + + DOUBLE PRECISION AMASS2,AMAS2I,AMAS2S,AMASS3,AMASS4,AMOM3,AMOM4, + * ANGLEX,AUX3,BDIFF,BETA,BRATIO, + * ED,ENUCL,ESQ,ETH,E3CM,E2,E4, + * GAMMA,G3,PCM2,PCM4,PEIG,PEOM,PLNG3,P3CM, + * T,TMAX,TMIN,W0,W0I,W0S,W0SI + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' RHOGEN: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'RHOGEN: E=',E(NP)*.001D0 + + PEIG = E(NP) +C NUMBERS AT THE VARIABLES MEAN : +C 1 INCOMING GAMMA RAY +C 2 HIT NUCLEON +C 3 PRODUCED MESON +C 4 RECOILING NUCLEON +C LOOK WHICH TYPE OF REACTION + CALL RMMAR(RD,3,2) +C 0.49923 IS THE FRACTION OF PROTONS IN AIR + IF ( RD(1) .LE. 0.49923 ) THEN +C HIT NUCLEON IS PROTON + IQ(NP+1) = 14 + AMASS2 = AMASPR + ELSE +C HIT NUCLEON IS NEUTRON + IQ(NP+1) = 13 + AMASS2 = AMASNT + ENDIF + AMAS2I = 1.D0/AMASS2 + AMAS2S = AMASS2**2 + IF ( RD(2) .LT. 0.1 ) THEN +C PRESENTLY WE ARE ONLY TAKING INTO ACCOUNT RHO AND OMEGA MESON. +C PHI MESON IS NEGLECTED +C 10% CHANCE FOR OMEGA MESON + IQ(NP) = 50 + ELSE +C GENERATED MESON IS RHO(0) + IQ(NP) = 51 + ENDIF +C NOTE: THE ENERGIES IN EGS ARE IN MEV, IN CORSIKA IN GEV + AMASS3 = PAMA(IQ(NP))*1.D3 + AMASS4 = PAMA(IQ(NP+1))*1.D3 +C TOTAL LABORATORY ENERGY AND ITS INVERSE + W0 = PEIG+AMASS2 + W0I = 1.D0/W0 +C TOTAL.C.M. ENERGY AND INVERSE OF TOTAL C.M.ENERGY + W0S = SQRT(AMASS2*(AMASS2+2.D0*PEIG)) + W0SI = 1.D0/W0S +C THRESHOLD ENERGY + ETH = 0.5D0*((AMASS3+AMASS4)**2-AMAS2S)*AMAS2I +C BETA, GAMMA, ESQ, BRATIO, G3 ARE AUXILIARY QUANTITIES + BETA = PEIG*W0I + GAMMA = W0*W0SI + ED = 0.5D0*((AMASS3-AMASS4)**2-AMAS2S)*AMAS2I + ESQ = SQRT((PEIG-ETH)*(PEIG-ED)) + BRATIO = PEIG/ESQ + G3 = W0I*(PEIG-ETH+AMASS3*AMAS2I*(AMASS3+AMASS4)) +C C.M. ENERGY OF MESON + E3CM = G3*AMASS2*GAMMA +C C.M. MESON MOMENTUM + P3CM = AMASS2*W0SI*ESQ +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C THE FOLLOWING SELECTION OF TRANSFERRED MOMENTUM IS IN ANALOGY WITH +C PROGRAM SOPHIA (SUBROUT. GAMMA_H OF R. ENGEL). ANGULAR DISTRIBUTION +C IS ACCORDING D(SIGMA)/DT = EXP( B_DIFFRACTIVE * T) +C WITH B_DIFFRACTIVE = 8 GEV^-2 = 8*10-6 [MEV^-2] + BDIFF = 8.D-6 +C AUXILIAR QUANTITIES AUX3, E2, E4, PCM2, PCM4 + AUX3 = 0.5D0 * AMASS3**2 * W0SI + E2 = 0.5D0 * (W0S + AMAS2S * W0SI) + E4 = E2 - AUX3 + PCM2 = SQRT(E2**2 - AMAS2S) + PCM4 = SQRT(E4**2 - AMAS2S) +C BOUNDARIES FOR MOMENTUM TRANSFER TMIN AND TMAX + TMIN = AUX3**2 - (PCM2 + PCM4)**2 + TMAX = AUX3**2 - (PCM2 - PCM4)**2 + IF (FEGSDB) WRITE(MDEBUG,*) 'RHOGEN: E2,E4,PCM2,PCM4,TMIN,TMAX=', + * SNGL(E2*0.001),SNGL(E4*0.001),SNGL(PCM2*0.001), + * SNGL(PCM4*0.001),SNGL(TMIN*0.001),SNGL(TMAX*0.001) +C SELECT THE MOMENTUM TRANSFER T BY CHANCE + T = RD(3)*(EXP(BDIFF*TMAX)-EXP(BDIFF*TMIN))+EXP(BDIFF*TMIN) + T = LOG(T) / BDIFF +C KINEMATIC CALCULATION OF LONGITUDINAL MOMENTUM + PLNG3 = (E2*E4 + 0.5D0*T - AMAS2S) / PCM2 + PLNG3 = ABS(PLNG3) +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C PRECISE ENERGY OUTGOING MESON = PEOM + PEOM = GAMMA*(E3CM+BETA*PLNG3) + IF ( FEGSDB ) WRITE(MDEBUG,*) 'RHOGEN: RD,T,PLNG3,PEOM=', + * RD(3),SNGL(T*0.001),SNGL(PLNG3*0.001),SNGL(PEOM*0.001) +C ENERGY OF OUTGOING MESON IN STACK POSITION NP + E(NP) = PEOM +C MOMENTUM OF OUTGOING MESON = AMOM3 +C COSTHE AND SINTHE ARE ANGLES IN LAB SYSTEM FOR PARTICLE 3 (MESON) +C SEE SLAC-265, P. 52 + AMOM3 = SQRT(MAX( 0.D0, PEOM**2-AMASS3**2 )) + IF ( AMOM3 .GT. 0.D0 ) THEN + COSTHE = (AMASS4**2 - AMAS2S - AMASS3**2 + 2.D0*PEOM*W0 + * - 2.D0*PEIG*AMASS2)/(2.D0*PEIG*AMOM3) + ELSE + COSTHE = 1.D0 + ENDIF + SINTHE = SQRT(MAX( 0.0D0, 1.D0-COSTHE**2 )) + CALL UPHI(2,1) +C TOTAL ENERGY OF RECOILING NUCLEON ( = ENUCL) + ENUCL = W0-PEOM + NP = NP+1 + E(NP) = ENUCL + IF ( ENUCL-AMASS4 .GT. ELCUT(1)*1000.D0 ) THEN +C RECOIL ENERGY IS TOO LARGE, MUST TREAT THE NUCLEON +C MOMENTUM OF RECOIL NUCLEON + AMOM4 = SQRT(ENUCL**2-AMASS4**2) +C COSTHE AND SINTHE ARE ANGLES IN LAB SYSTEM FOR RECOIL NUCLEON +C SEE SLAC-265, P. 52 + COSTHE = (AMASS3**2 - AMAS2S - AMASS4**2 + 2.D0*ENUCL*W0 + * - 2.D0*PEIG*AMASS2)/(2.D0*PEIG*AMOM4) + SINTHE = -SQRT(MAX( 0.0D0, 1.D0-COSTHE**2 )) + CALL UPHI(3,2) + IF ( W(NP) .GT. C(29) ) THEN +C ANGLE WITH RESPECT TO X AXIS + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF +C ADD NUCLEON TO CORSIKA STACK + SECPAR(1) = IQ(NP) + SECPAR(2) = E(NP)/AMASS4 + SECPAR(3) = MIN( 1.D0, W(NP) ) + SECPAR(4) = ANGLEX + SECPAR(5) = -Z(NP) + SECPAR(6) = TIM(NP) + SECPAR(7) = X(NP) + SECPAR(8) = -Y(NP) + SECPAR(11) = 1.D0 + SECPAR(12) = 0.D0 + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS TO NUCLEON + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7) + * + (E(NP)-AMASS4) * 1.D-3 + ENDIF + ENDIF +C ELIMINATE NUCLEON FROM EGS-STACK + NP = NP-1 + IF ( NP .LE. 0 ) RETURN + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS TO NUCLEON + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7) + * + (E(NP)-AMASS4) * 1.D-3 + ENDIF +C ELIMINATE NUCLEON FROM EGS-STACK + NP = NP-1 +C END OF RECOIL NUCLEON TREATMENT CASE + ENDIF +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + IF ( IQ(NP) .GE. 50 ) THEN +C NOW TREAT THE VECTOR MESON + IF ( W(NP) .GT. C(29) ) THEN +C ANGLE WITH RESPECT TO X AXIS + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF + IF ( IQ(NP) .EQ. 50 ) THEN +C ADD OMEGA MESON TO CORSIKA-STACK (TO BE TREATED IN RESDEC) + SECPAR(1) = IQ(NP) + SECPAR(2) = E(NP)/AMASS3 + SECPAR(3) = MIN( 1.D0, W(NP) ) + SECPAR(4) = ANGLEX + SECPAR(5) = -Z(NP) + SECPAR(6) = TIM(NP) + SECPAR(7) = X(NP) + SECPAR(8) = -Y(NP) + SECPAR(9) = IGEN(NP) + SECPAR(10) = -Z(NP) + SECPAR(11) = POLART + SECPAR(12) = POLARF + SECPAR(14) = -ZAP(NP) + SECPAR(15) = WAP(NP) + SECPAR(16) = WA(NP) + IRESPAR = IRESPAR + 1 + IF ( IRESPAR .GE. 30000 ) THEN + WRITE(MONIOU,*) + * 'RHOGEN: STACK OF RESDEC RANDOM NUMBERS FULL' + IRESPAR = 29999 + ENDIF +C STORE DUMMY RANDOM NUMBER FOR TREATMENT OF OMEGA0 IN RESDEC + RESRAN(IRESPAR) = 0.5 + CALL TSTACK +C FINALLY OMEGA WILL BE TREATED IN OMEGDC (OMEGA DECAY ROUTINE) +C WITH CORRECT ANGULAR DISTRIBUTION +* CALL OMEGDC + ELSEIF ( IQ(NP) .EQ. 51 ) THEN +C FILL VECTOR MESON COORDINATES INTO CORSIKA-STACK +C (CURPAR HAS BEEN SAVED IN PIGEN) + ITYPE = IQ(NP) + CURPAR(1) = IQ(NP) + CURPAR(2) = E(NP)/AMASS3 + CURPAR(3) = MIN( 1.D0, W(NP) ) + CURPAR(4) = ANGLEX + CURPAR(5) = -Z(NP) + CURPAR(6) = TIM(NP) + CURPAR(7) = X(NP) + CURPAR(8) = -Y(NP) + CURPAR(9) = IGEN(NP) + CURPAR(10) = -Z(NP) + CURPAR(11) = POLART + CURPAR(12) = POLARF + CURPAR(14) = -ZAP(NP) + CURPAR(15) = WAP(NP) + CURPAR(16) = WA(NP) +C RHO(0) DECAYS WITH DIPOLE CHARACTERISTIC IN RHO0DC + + CALL RHO0DC + ELSE + WRITE(MONIOU,*) 'RHOGEN: WRONG PARTICLE CODE=',IQ(NP) + STOP + ENDIF + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS OF HADRONS + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7)+E(NP)*1.D-3 + ENDIF + ENDIF +C ELIMINATE VECTOR MESON FROM EGS-STACK + NP = NP-1 + ENDIF + + RETURN + END +*CMZ : 18/09/2001 13.38.55 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE SHOWER + +C----------------------------------------------------------------------- +C SHOWER (STEERING) +C +C THIS ROUTINE LOOKS, WHAT IS ON TOP OF EGS-STACK, AND CALLS THE +C APPROPRIATE ROUTINE TO TREAT THIS PARTICLE. +C THIS SUBROUTINE IS CALLED FROM EGS4. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEND. + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + + INTEGER IRCODE + SAVE +C----------------------------------------------------------------------- + +C TAKE FIRST PARTICLE IN STACK + NP = 1 + +C DECIDE WHAT IS ON TOP OF STACK + 261 CONTINUE + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP),IQ(NP) + 1 FORMAT(' SHOWER: NP=',I3,' IR=',I3,' IOBS=',I3,' IQ=',I3) + CALL AUSGB2 + ENDIF +C JUMP TO PARTICLE IN QUESTION. THE FOLLOWING PARTICLE IDENTIFICATION +C IS MADE BY THE VALUE OF IQ(NP) (ACCORDING TO CORSIKA) +C IQ = 1 PHOTON +C = 2 POSITRON E (+) +C = 3 ELECTRON E (-) +C = 5 POSITIVE MUON (+) +C = 6 NEGATIVE MUON (-) +C = 7 NEUTRAL PION (0) +C = 8 POSITIVE PION (+) +C = 9 NEGATIVE PION (-) +C = OTHER VALUE, JUMP TO ERROR MESSAGE + + GOTO (270,280,280,290, 300,300,300,300,300) (IQ(NP)) +C IQ OUT OF RANGE? + 290 WRITE(KMPO,320) IQ(NP) + 320 FORMAT(' SHOWER: PARTICLE TYPE ',I5,' NOT IDENTIFIED') + CALL AUSGB2 + NP = NP-1 + GOTO 262 + +C PARTICLE IS MUON OR PION + 300 CALL MPPROP + GOTO 262 + +C PARTICLE IS PHOTON + 270 CALL PHOTON(IRCODE) +C PHOTON DISCARDED ? + IF ( IRCODE .EQ. 2 ) GOTO 262 + IF ( IQ(NP) .LT. 2 .OR. IQ(NP) .GT. 3 ) GOTO 261 + +C PARTICLE IS ELECTRON OR POSITRON + 280 CALL ELECTR(IRCODE) +C ELECTRON DISCARDED ? + IF ( IRCODE .EQ. 2 ) GOTO 262 + IF ( IQ(NP) .EQ. 1 ) GOTO 270 +C LOOP BACK UP TO PARTICLE SELECTION + GOTO 261 + + 262 CONTINUE +C CHECK TO SEE IF ANYTHING LEFT ON STACK + IF ( NP .GT. 0 ) GOTO 261 +C NOTHING ON STACK, SO JUMP OUT OF LOOP + + RETURN + END +*CMZ : 18/12/2001 10.00.42 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE UPHI(IENTRY,LVL) +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C U(NIFORM) PHI (DISTRIBUTION) +C +C SET COORDINATES FOR NEW PARTICLE OR RESET DIRECTION COSINES OF +C OLD ONE. GENERATE RANDOM AZIMUTH SELECTION AND REPLACE THE +C DIRECTION COSINES WITH THEIR NEW VALUES. +C THIS SUBROUTINE IS CALLED FROM ANNIH, BHABHA, BREMS, COMPT, ELECTR, +C MOLLER, MUPAIR, PAIR, PHOTON, PIGEN1, PIGEN2, RHOGEN. +C ARGUMENTS: +C IENTRY = 1 THETA IS KNOWN, DETERMINE SINTHE,COSTHE AND PHI +C 2 SINTHE AND COSTHE ARE KNOWN, SELECT PHI AT RANDOM +C 3 SINTHE, COSTHE NAD PHI ARE KNOWN +C LVL = 1 OLD PARTICLE, SAVE ITS DIRECTION AND ADJUST IT +C 2 NEW PARTICLE. ADJUST DIRECTION USING SAVED A,B,C +C 3 BREMSSTRAHLUNG GAMMA. SAVE ELECTRON DIRECTION AND ADJUST +C GAMMA DIRECTION +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EPCONT. + COMMON /EPCONT/ EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW,EKE,ELKE,BETA2,GLE,TSCAT, + * IDISC,IROLD,IRNEW + DOUBLE PRECISION EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW, EKE,ELKE,BETA2,GLE,TSCAT + INTEGER IDISC,IROLD,IRNEW + +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + + DOUBLE PRECISION A,B,C,COSDEL,PHI,SINDEL,SINPSI,SINPS2,US,VS + INTEGER IENTRY,LVL + SAVE +C----------------------------------------------------------------------- + + IF ( IENTRY .EQ. 2 ) GOTO 1070 + IF ( IENTRY .EQ. 3 ) GOTO 1080 + 1090 CONTINUE + SINTHE = SIN(THETA) + COSTHE = COS(THETA) +C USE THE FOLLOWING ENTRY IF SINTHE AND COSTHE ARE ALREADY KNOWN. +C SELECT PHI UNIFORMLY OVER THE INTERVAL (0,TWO PI). + 1070 CALL RMMAR(RD,1,2) + PHI = RD(1)*TWOPI + SINPHI = SIN(PHI) + COSPHI = COS(PHI) +C USE THE FOLLOWING ENTRY FOR THE SECOND OF TWO PARTICLES WHEN WE +C KNOW TWO PARTICLES HAVE A RELATIONSHIP IN THEIR CORRECTIONS. +C NOTE: SINTHE AND COSTHE CAN BE CHANGED OUTSIDE THROUGH COMMON. +C LVL IS A PARAMETER TELLING WHICH PARTICLES TO WORK WITH. +C THETA (SINTHE AND COSTHE) ARE ALWAYS RELATIVE TO THE DIRECTION +C OF THE INCIDENT PARTICLE BEFORE ITS DIRECTION WAS ADJUSTED. +C THUS WHEN TWO PARTICLES NEED TO HAVE THEIR DIRECTIONS COMPUTED, +C THE ORIGINAL INCIDENT DIRECTION IS SAVED IN THE VARIABLE A,B,C +C SO THAT IT CAN BE USED ON BOTH CALLS. +C LVL=1 -- OLD PARTICLE, SAVE ITS DIRECTION AND ADJUST IT +C LVL=2 -- NEW PARTICLE. ADJUST DIRECTION USING SAVED A,B,C +C LVL=3 -- BREMSSTRAHLUNG GAMMA. SAVE ELECTRON DIRECTION (NEXT +C TO TOP OF STACK), AND THEN ADJUST GAMMA DIRECTION. + 1080 IF ( LVL .EQ. 2 ) GOTO 1100 + IF ( LVL .EQ. 3 ) GOTO 1110 + 1120 A = U(NP) + B = V(NP) + C = W(NP) + GOTO 1130 + + 1110 A = U(NP-1) + B = V(NP-1) + C = W(NP-1) + +C SEE H.H. NAGEL DISSERTATION FOR COORDINATE SYSTEM DESCRIPTION. +C A ROTATION IS PERFORMED TO TRANSFORM DIRECTION COSINES OF THE +C PARTICLE BACK TO THE PHYSICAL FRAME (FROM THE TRANSPORT FRAME) + 1100 X(NP) = X(NP-1) + Y(NP) = Y(NP-1) + Z(NP) = Z(NP-1) + LPCTE(NP) = LPCTE(NP-1) + IR(NP) = IR(NP-1) + DNEAR(NP) = DNEAR(NP-1) + TIM(NP) = TIM(NP-1) + IGEN(NP) = IGEN(NP-1) + IOBS(NP) = IOBS(NP-1) + ZAP(NP) = ZAP(NP-1) + WAP(NP) = WAP(NP-1) + WA(NP) = WA(NP-1) + 1130 SINPS2 = A*A+B*B +C SMALL POLAR ANGLE CASE, NO ROTATION IS NEEDED + IF ( SINPS2 .LT. 1.D-20 ) THEN + U(NP) = SINTHE*COSPHI + V(NP) = SINTHE*SINPHI + W(NP) = C*COSTHE + ELSE +C LARGE POLAR ANGLE CASE + SINPSI = SQRT(SINPS2) + US = SINTHE*COSPHI + VS = SINTHE*SINPHI + SINDEL = B*(1.D0/SINPSI) + COSDEL = A*(1.D0/SINPSI) + U(NP) = C*COSDEL*US-SINDEL*VS+A*COSTHE + V(NP) = C*SINDEL*US+COSDEL*VS+B*COSTHE + W(NP) = (-SINPSI)*US+C*COSTHE + ENDIF + RETURN + END +*CMZ : 28/02/2002 10.19.53 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE AGE( R,S ) + +C----------------------------------------------------------------------- +C AGE +C +C CALCULATES LONGITUDINAL AGE PARAMETER +C ORIGINALLY DEVELOPED BY: J. KEMPA, UNIVERSITY OF LODZ, POLAND +C THIS SUBROUTINE IS CALLED FROM AVAGE. +C ARGUMENTS: +C R = AVERAGED AGE PARAMETER +C S = LONGITUDINAL AGE PARAMETER OF TOTAL SHOWER +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION A,B,C,R,R1,R2,R3,R4,R5,S + SAVE + DATA R1 / 1.9096D-02 /, R2 / 1.7964D-01 /, R3 / 5.3644D-01 /, + * R4 / 1.0332D0 /, R5 / 1.4856D0 / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'AGE : R=',SNGL(R) + + R = MAX( R, R1 ) + R = MIN( R, R5 ) + + IF ( R .LT. R2 ) THEN + A = 3.109121D-1 + B = 2.146465D-1 + C = -5.451040D-3 + ELSEIF ( R .LT. R3 ) THEN + A = 3.666449D-1 + B = 1.639189D-1 + C = 5.970362D-3 + ELSEIF ( R .LT. R4 ) THEN + A = 1.459842D-1 + B = 6.317027D-1 + C = -2.420241D-1 + ELSEIF ( R .LE. R5 ) THEN + A = -3.375703D-1 + B = 2.090333D0 + C = -1.343802D0 + ENDIF + + S = ( SQRT(B**2 - 4.D0 * A * (C-R)) - B ) / ( 2.D0 * A ) + + IF ( DEBUG ) WRITE(MDEBUG,*) 'AGE : S=',SNGL(S) + + RETURN + END +*CMZ : 23/11/2000 10.59.37 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE AVAGE + +C----------------------------------------------------------------------- +C AVE(ERAGE) AGE +C +C CALCULATES AVERAGE AGE AS A FUNCTION OF RADIUS +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,NKGI. + COMMON /NKGI/ SEL,SELLG,STH,ZEL,ZELLG,ZSL,DIST, + * DISX,DISY,DISXY,DISYX,DLAX,DLAY,DLAXY,DLAYX, + * OBSATI,RADNKG,RMOL,TLEV,TLEVCM,IALT + DOUBLE PRECISION SEL(10),SELLG(10),STH(10),ZEL(10),ZELLG(10), + * ZSL(10),DIST(10), + * DISX(-10:10),DISY(-10:10), + * DISXY(-10:10,2),DISYX(-10:10,2), + * DLAX (-10:10,2),DLAY (-10:10,2), + * DLAXY(-10:10,2),DLAYX(-10:10,2), + * OBSATI(2),RADNKG,RMOL(2),TLEV(10),TLEVCM(10) + INTEGER IALT(2) +*KEEP,NKGS. + COMMON /NKGS/ CZX,CZY,CZXY,CZYX,SAH,SL,ZNE + DOUBLE PRECISION CZX(-10:10,2),CZY(-10:10,2),CZXY(-10:10,2), + * CZYX(-10:10,2),SAH(10),SL(10),ZNE(10) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AJ,BJ,CJ,DF(10),SJ(10),SLLG,TH,ZF + INTEGER I,ID,IL,IOL,J,K,L + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'AVAGE :' + + IF ( FPRINT ) WRITE(MONIOU,1110) ISHOWNO,ELCUT(3),ELCUT(4) + 1110 FORMAT (/' ---------- NKG - OUTPUT OF SHOWER NO ',I10, + * ' --------------------------------'/ + * ' ELECTRON/PHOTON THRESHOLD AT ',F10.5,' /',F10.5,' GEV') + +C LOOP OVER ALL DISTANCES WHERE ELECTRON NUMBER IS CALCULATED + DO 302 K = 1,2 + IF ( OBSATI(K) .GE. 0.D0 ) THEN + DO 301 ID = -10,10 + DLAX (ID,K) = DLAX (ID,K) + CZX (ID,K) + DLAY (ID,K) = DLAY (ID,K) + CZY (ID,K) + DLAXY(ID,K) = DLAXY(ID,K) + CZXY(ID,K) + DLAYX(ID,K) = DLAYX(ID,K) + CZYX(ID,K) + 301 CONTINUE + ENDIF + 302 CONTINUE + +C CALCULATE LONGITUDINAL SHOWER DEVELOPMENT + DO 311 IL = 1,IALT(1) + IF ( SL(IL) .GT. 0.D0 ) THEN + SEL(IL) = SEL(IL) + SL(IL) + SLLG = LOG10(SL(IL)) + SELLG(IL) = SELLG(IL) + SLLG + ZEL(IL) = ZEL(IL) + SL(IL)**2 + ZELLG(IL) = ZELLG(IL) + SLLG**2 + ZF = ZNE(IL)/SL(IL) + CALL AGE( ZF,TH ) +C AGE PARAMETERS AVERAGED ON ALL SUBCASCADES AT THIS LEVEL + SAH(IL) = TH + STH(IL) = STH(IL) + TH + ZSL(IL) = ZSL(IL) + TH**2 + ELSE + SL(IL) = 0.D0 + SAH(IL) = 0.D0 + ENDIF + EVTE(175+IL) = SL(IL) + EVTE(185+IL) = SAH(IL) + EVTE(215+IL) = TLEV(IL) + EVTE(225+IL) = TLEVCM(IL) + 311 CONTINUE + +C PRINT LONGITUDINAL SHOWER DEVELOPMENT + IF ( FPRINT ) WRITE(MONIOU,229) + * (I,TLEV(I),TLEVCM(I),SL(I),SAH(I),I=1,IALT(1)) + 229 FORMAT( + * /' LEVEL',2X,'THICKNESS',8X,'HEIGHT',5X,'ELECT. NUMBER',7X,'AGE' + * /' NO. ',2X,' G/CM**2',8X,' CM'/ + * (' ',I4,F12.0,2X,F12.0,1X,F17.3,F10.3) ) + + DO 312 IOL = 1,2 + IF ( OBSATI(IOL) .LT. 0.D0 ) GOTO 312 +C DETERMINE LOCAL AGE PARAMETER + DO 50 J = 1,9 + IF ( CZX(J+1,IOL).GT.0.D0 .AND. CZX(-J-1,IOL).GT.0.D0 .AND. + * CZXY(J+1,IOL).GT.0.D0 .AND. CZXY(-J-1,IOL).GT.0.D0 .AND. + * CZYX(J+1,IOL).GT.0.D0 .AND. CZYX(-J-1,IOL).GT.0.D0 .AND. + * CZY(J+1,IOL).GT.0.D0 .AND. CZY(-J-1,IOL).GT.0.D0 ) THEN + AJ = 0.125D0 * ( + * CZX(J,IOL) /CZX(J+1,IOL) + CZX(-J,IOL) /CZX(-J-1,IOL) + * + CZXY(J,IOL)/CZXY(J+1,IOL)+ CZXY(-J,IOL)/CZXY(-J-1,IOL) + * + CZYX(J,IOL)/CZYX(J+1,IOL)+ CZYX(-J,IOL)/CZYX(-J-1,IOL) + * + CZY(J,IOL) /CZY(J+1,IOL) + CZY(-J,IOL) /CZY(-J-1,IOL) ) + ELSE + AJ = 0.D0 + ENDIF + IF ( AJ .GT. 0.D0 ) THEN + BJ = DIST(J) / DIST(J+1) + CJ = (DIST(J)+RMOL(IOL)) / (DIST(J+1)+RMOL(IOL)) + SJ(J) = LOG(AJ * BJ**2 * CJ**4.5D0) / LOG(BJ * CJ) + DF(J) = 0.5D0 * (DIST(J) + DIST(J+1)) + ELSE + SJ(J) = 0.D0 + DF(J) = 0.D0 + ENDIF + 50 CONTINUE + + DO L = 1,10 + EVTE(165+IOL*40+L) = SJ(L) + ENDDO + + IF ( FPRINT ) THEN +C WRITE LOCAL AGE PARAMETER + WRITE(MONIOU,60) IOL,OBSATI(IOL), (I,DF(I),SJ(I),I=1,9) + 60 FORMAT(/' RADIAL BIN DISTANCE(CM) LOCAL AGE AT LEVEL NO.', + * I4,' AT HEIGHT:',F10.0,' CM'/ + * (' ',I10,' ',F10.0,' ',F10.3 ) ) + +C PRINT LATERAL ELECTRON DISTRIBUTION + WRITE(MONIOU,507) IOL,OBSATI(IOL) + 507 FORMAT(/' LATERAL ELECTRON DENSITY (/CM**2) AT LEVEL NO.', + * I4,' AT HEIGHT:',F10.0,' CM'/ + * ' --------------------------------------------------', + * '---------------------------'/ + * ' DIST (CM) CZX CZXY ', + * ' CZY CZYX ') + WRITE(MONIOU,508) (DISX(I),CZX(I,IOL),CZXY(I,IOL), + * CZY(I,IOL),CZYX(I,IOL),I=-10,10) + 508 FORMAT(' ',0P,F10.0,1P,4E15.5) + WRITE(MONIOU,*)' ' + ENDIF + + 312 CONTINUE + + DO L = 1,10 + EVTE(195+L) = DIST(L) + EVTE(235+L) = DF(L) + ENDDO + +C WRITE NKG - SHOWER INFORMATION TO EVENT END BLOCK + DO 353 L = 1,21 + EVTE( 7+L) = CZX (-11+L,1) + EVTE( 28+L) = CZY (-11+L,1) + EVTE( 49+L) = CZXY(-11+L,1) + EVTE( 70+L) = CZYX(-11+L,1) + EVTE( 91+L) = CZX (-11+L,2) + EVTE(112+L) = CZY (-11+L,2) + EVTE(133+L) = CZXY(-11+L,2) + EVTE(154+L) = CZYX(-11+L,2) + 353 CONTINUE + + RETURN + END +*CMZ : 14/06/2000 14.40.12 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + DOUBLE PRECISION FUNCTION GAM( Z ) + +C----------------------------------------------------------------------- +C GAM(MA FUNCTION) +C +C EULER'S GAMMA FUNCTION +C THE INTERNAL PRECISION OF THIS FUNCTION IS ONLY SINGLE PRECISION. +C THIS FUNCION IS CALLED FROM NKG. +C ARGUMENT: +C Z = ARGUMENT OF GAMMA FUNCTION (0 < Z < 57) +C----------------------------------------------------------------------- + + IMPLICIT NONE + + DOUBLE PRECISION U,Y,YY,Z + SAVE +C----------------------------------------------------------------------- + +C CALCULATE CORRESPONDING FUNCTION VALUE IN INTERVAL 1 ... 2 + Y = MOD(Z,1.D0) + YY = Y + 1.D0 + +C PARAMETRIZATION FOR VALUES IN INTERVAL 1 ... 2 + GAM = 1.D0 + Y*(-0.5771017D0 + Y*(0.9858540D0+ + * Y*(-0.8764218D0 + Y*(0.8328212D0+ + * Y*(-0.5684729D0 + Y*(0.2548205D0+ + * Y*(-0.0514993D0 ))))))) + +C GET FUNCTION VALUE IN DESIRED INTERVAL BY ITERATION + IF ( Z .LT. 1.D0 ) THEN +C GAMMA(Z-1) IS GAMMA(Z) / (Z-1) + GAM = GAM / Z + ELSE +C GAMMA(Z+1) IS GAMMA(Z) * Z + DO 1 U = YY, Z-1.D0, 1.D0 + GAM = GAM * U + 1 CONTINUE + ENDIF + + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE ININKG + +C----------------------------------------------------------------------- +C INI(TIALIZE) NKG +C +C INITIALIZES ARRAYS FOR NKG CALCULATING VARIABLES +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,NKGI. + COMMON /NKGI/ SEL,SELLG,STH,ZEL,ZELLG,ZSL,DIST, + * DISX,DISY,DISXY,DISYX,DLAX,DLAY,DLAXY,DLAYX, + * OBSATI,RADNKG,RMOL,TLEV,TLEVCM,IALT + DOUBLE PRECISION SEL(10),SELLG(10),STH(10),ZEL(10),ZELLG(10), + * ZSL(10),DIST(10), + * DISX(-10:10),DISY(-10:10), + * DISXY(-10:10,2),DISYX(-10:10,2), + * DLAX (-10:10,2),DLAY (-10:10,2), + * DLAXY(-10:10,2),DLAYX(-10:10,2), + * OBSATI(2),RADNKG,RMOL(2),TLEV(10),TLEVCM(10) + INTEGER IALT(2) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION DEPTH,HEIGH,RHOF,RMGCM,THICK + INTEGER I,IL,K,KL + SAVE + EXTERNAL HEIGH,RHOF,THICK + DATA RMGCM / 9.6D0 / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'ININKG:' + +C SET LATERAL DISTRIBUTION DISTANCES + IF ( RADNKG .LE. 100.D0 ) THEN + WRITE(MONIOU,*) 'ININKG: RADNKG=',RADNKG,' CM TOO SMALL ' + RADNKG = 200.D2 + WRITE(MONIOU,*) ' RADNKG CORRECTED TO ',RADNKG,' CM' + ENDIF + EVTH(147) = RADNKG + DO I = 1,10 + DIST(I) = 100.D0 * 10.D0**(LOG10(RADNKG/100.D0)*0.1D0*I) + DISX(I) = DIST(I) + DISX(-I) = -DIST(I) + ENDDO + DISX(0) = 0.D0 + +C MOLIERE RADIUS FOR COULOMB SCATTERING ; EQUIVALENT TO 9.6 G/CM**2 +C OBSERVATION LEVELS AND CORRESPONDING MOLIERE RADII (IN CM) FOR NKG + OBSATI(1) = OBSLEV(NOBSLV) + RMOL (1) = RMGCM / RHOF(OBSATI(1)) + IF ( NOBSLV .GT. 1 ) THEN + OBSATI(2) = OBSLEV(NOBSLV-1) + RMOL (2) = RMGCM / RHOF(OBSATI(2)) + ELSE + OBSATI(2) = -1.D0 + RMOL (2) = 0.D0 + IALT (2) = 0 + ENDIF + +C CALCULATE COORDINATES OF POINTS ON THE X AND Y AXIS AND THE TWO +C DIAGONAL LINES Y IS X AND Y IS -X + DO 3333 KL = -10,10 + DISY (KL) = DISX (KL) + DISXY(KL,1) = DISX (KL) / SQRT(2.D0) + DISXY(KL,2) = DISXY(KL,1) + DISYX(KL,1) = DISXY(KL,1) + DISYX(KL,2) = -DISXY(KL,2) + 3333 CONTINUE +C CLEAR ARRAY FOR LATERAL ELECTRON DISTR. (AVERAGE OVER ALL SHOWERS) + DO 45 K = 1,2 + DO 45 I = -10,10 + DLAX (I,K) = 0.D0 + DLAY (I,K) = 0.D0 + DLAXY(I,K) = 0.D0 + DLAYX(I,K) = 0.D0 + 45 CONTINUE +C CLEAR ARRAY FOR AGE PARAMETER CALCULATION (AVERAGE OVER ALL SHOWERS) + DO 17 I = 1,10 + SEL(I) = 0.D0 + SELLG(I) = 0.D0 + STH(I) = 0.D0 + ZELLG(I) = 0.D0 + ZEL(I) = 0.D0 + ZSL(I) = 0.D0 + 17 CONTINUE + +C LAST OBSERVATION LEVEL DEPTH IS GIVEN IN G/CM**2 + DEPTH = THICK(OBSATI(1)) + IALT(1) = MIN( 10, INT(DEPTH/102.D0)+1 ) +C CALCULATE 10 LEVELS AT EACH 100 G/CM**2 + DO 111 IL = 1,IALT(1)-1 + TLEV (IL) = 100.D0 * IL + TLEVCM(IL) = HEIGH(TLEV(IL)) + 111 CONTINUE +C FOR LAST LEVEL NOT IL*100 BUT OBSERVATION LEVEL + TLEV (IALT(1)) = DEPTH + TLEVCM(IALT(1)) = OBSATI(1) +C SECOND OBSERVATION LEVEL ? + IF ( OBSATI(2) .GE. 0.D0 ) THEN + DEPTH = THICK(OBSATI(2)) + IALT(2) = INT(DEPTH/102.D0) + 1 + IF ( IALT(2) .GE. IALT(1) ) IALT(2) = MAX( 1, IALT(1)-1 ) + TLEV (IALT(2)) = DEPTH + TLEVCM(IALT(2)) = OBSATI(2) + ENDIF + + RETURN + END +*CMZ : 23/11/2000 10.59.37 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE MITAGE + +C----------------------------------------------------------------------- +C MIT(TELWERT) AGE (AVERAGE AGE) +C +C CALCULATES AVERAGE DISTRIBUTION FOR NKG FUNCTION OVER ALL SHOWERS +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,NKGI. + COMMON /NKGI/ SEL,SELLG,STH,ZEL,ZELLG,ZSL,DIST, + * DISX,DISY,DISXY,DISYX,DLAX,DLAY,DLAXY,DLAYX, + * OBSATI,RADNKG,RMOL,TLEV,TLEVCM,IALT + DOUBLE PRECISION SEL(10),SELLG(10),STH(10),ZEL(10),ZELLG(10), + * ZSL(10),DIST(10), + * DISX(-10:10),DISY(-10:10), + * DISXY(-10:10,2),DISYX(-10:10,2), + * DLAX (-10:10,2),DLAY (-10:10,2), + * DLAXY(-10:10,2),DLAYX(-10:10,2), + * OBSATI(2),RADNKG,RMOL(2),TLEV(10),TLEVCM(10) + INTEGER IALT(2) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AJ,ATH,BJ,CJ,DF(10),RISH,SELEC,SELCLG,SJ(10), + * ZEC,ZECLG,ZSE + INTEGER I,ID,J,K,LI + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'MITAGE:' + + WRITE(MONIOU,349) ELCUT(3),ELCUT(4) + 349 FORMAT(/' ========== NKG - AVERAGE VALUES OF ALL SHOWERS ', + * '==============================='/ + * ' ELECTRON/PHOTON THRESHOLDS AT ',F10.5,' /',F10.5,' GEV'// + * ' LEVEL THICKNESS HEIGHT DEV', + * ' DEV DEV'/ + * ' NO. (G/CM**2) (M) ' ) + +C NORMALIZE AVERAGE ELECTRON DENSITIES + RISH = 1.D0 / ISHW + DO 161 K = 1,2 + IF ( OBSATI(K) .GE. 0.D0 ) THEN + DO 162 ID = -10,10 + DLAX (ID,K) = DLAX (ID,K) * RISH + DLAY (ID,K) = DLAY (ID,K) * RISH + DLAXY(ID,K) = DLAXY(ID,K) * RISH + DLAYX(ID,K) = DLAYX(ID,K) * RISH + 162 CONTINUE + ENDIF + 161 CONTINUE + + DO 16 LI = 1,IALT(1) +C ELECTRON NUMBER + SELEC = SEL(LI) * RISH +C LOG10 ELECTRON NUMBER + SELCLG = SELLG(LI) * RISH +C AVERAGE LONGITUDINAL AGE + ATH = STH(LI) * RISH + IF ( ISHW .GT. 1 ) THEN +C ELECTRON NUMBER + ZEC = SQRT( MAX( 0.D0, (ZEL(LI) - SEL(LI)**2*RISH)/ + * (ISHW-1.D0) ) ) +C LOG10 ELECTRON NUMBER + ZECLG = SQRT( MAX( 0.D0, (ZELLG(LI) - SELLG(LI)**2*RISH)/ + * (ISHW-1.D0) ) ) +C AVERAGE LONGITUDINAL AGE + ZSE = SQRT( MAX( 0.D0, (ZSL(LI) - STH(LI)**2*RISH)/ + * (ISHW-1.D0) ) ) + ELSE + ZEC = 0.D0 + ZECLG = 0.D0 + ZSE = 0.D0 + ENDIF +C WRITE ELECTRON INFORMATION FOR ALL NKG LEVELS (LONG. DEVELOPMENT) + WRITE(MONIOU,219) LI,TLEV(LI),TLEVCM(LI)*0.01, + * SELEC,ZEC,SELCLG,ZECLG,ATH,ZSE + 219 FORMAT (' ',I4,F10.0,F11.2,1X,2F15.0,3X,2F12.5,F13.3,F9.3) + 16 CONTINUE + + DO 520 K = 1,2 + IF ( OBSATI(K) .LT. 0.D0 ) GOTO 520 +C DETERMINE LOCAL AGE PARAMETER + DO 50 J = 1,9 + IF ( DLAX(J+1,K).GT.0.D0 .AND. DLAX(-J-1,K).GT.0.D0 .AND. + * DLAXY(J+1,K).GT.0.D0 .AND. DLAXY(-J-1,K).GT.0.D0 .AND. + * DLAYX(J+1,K).GT.0.D0 .AND. DLAYX(-J-1,K).GT.0.D0 .AND. + * DLAY(J+1,K).GT.0.D0 .AND. DLAY(-J-1,K).GT.0.D0 ) THEN + AJ = 0.125D0 * ( + * DLAX(J,K) /DLAX(J+1,K) + DLAX(-J,K) /DLAX(-J-1,K) + * + DLAXY(J,K)/DLAXY(J+1,K) + DLAXY(-J,K)/DLAXY(-J-1,K) + * + DLAYX(J,K)/DLAYX(J+1,K) + DLAYX(-J,K)/DLAYX(-J-1,K) + * + DLAY(J,K) /DLAY(J+1,K) + DLAY(-J,K) /DLAY(-J-1,K)) + ELSE + AJ = 0.D0 + ENDIF + IF ( AJ .GT. 0.D0 ) THEN + BJ = DIST(J) / DIST(J+1) + CJ = (DIST(J)+RMOL(K)) / (DIST(J+1)+RMOL(K)) + SJ(J) = LOG(AJ * BJ**2 * CJ**4.5D0) / LOG(BJ * CJ) + DF(J) = 0.5D0* (DIST(J) + DIST(J+1)) + ELSE + SJ(J) = 0.D0 + DF(J) = 0.D0 + ENDIF + 50 CONTINUE + +C WRITE LOCAL AGE PARAMETER + WRITE(MONIOU,60) K,OBSATI(K), (I,DF(I),SJ(I),I=1,9) + 60 FORMAT(/' RADIAL BIN DISTANCE(CM) LOCAL AGE AT LEVEL NO.', + * I4,' AT HEIGHT:',F10.0,' CM'/ + * (' ',I9,' ',F10.0,' ',F10.3 ) ) + +C WRITE LATERAL ELECTRON DISTRIBUTION + WRITE(MONIOU,507) K,OBSATI(K) + 507 FORMAT(/' AVERAGE ELECTRON DENSITY (/CM**2) FOR LEVEL NO.', + * I4,' AT HEIGHT:',F10.0,' CM'/ + * ' ==================================================', + * '=========================='/ + * ' DIST (CM) DLAX DLAXY ', + * ' DLAY DLAYX') + WRITE(MONIOU,508) (DISX(I),DLAX(I,K),DLAXY(I,K), + * DLAY(I,K),DLAYX(I,K),I=-10,10) + 508 FORMAT(' ',0P,F10.0,1P,4E15.5) + WRITE(MONIOU,*)' ' + + + 520 CONTINUE + + + RETURN + END +*CMZ : 07/01/2002 13.20.15 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE NKG( ENERN ) + +C----------------------------------------------------------------------- +C N(ISHIMURA) K(AMATA) G(REISEN) +C +C CALCULATES ELECTROMAGNETIC COMPONENT OF SHOWERS USING THE ANALYTIC +C NKG FORMULAS, INCLUDING ELECTRON ENERGY THRESHOLD ELCUT(3) +C SEE J.N. CAPDEVIELLE, 22ND ICRC, DUBLIN 1991, CONTRIB. HE 3.5.10 +C THIS SUBROUTINE IS CALLED FROM EM. +C ARGUMENT: +C ENERN = ENERGY OF ELECTRON/PHOTON GENERATING A SUBSHOWER +C NEGATIVE FOR SUBSHOWERS TO BE SUBTRACTED AFTER +C PHOTONUCLEAR REACTION +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,NKGI. + COMMON /NKGI/ SEL,SELLG,STH,ZEL,ZELLG,ZSL,DIST, + * DISX,DISY,DISXY,DISYX,DLAX,DLAY,DLAXY,DLAYX, + * OBSATI,RADNKG,RMOL,TLEV,TLEVCM,IALT + DOUBLE PRECISION SEL(10),SELLG(10),STH(10),ZEL(10),ZELLG(10), + * ZSL(10),DIST(10), + * DISX(-10:10),DISY(-10:10), + * DISXY(-10:10,2),DISYX(-10:10,2), + * DLAX (-10:10,2),DLAY (-10:10,2), + * DLAXY(-10:10,2),DLAYX(-10:10,2), + * OBSATI(2),RADNKG,RMOL(2),TLEV(10),TLEVCM(10) + INTEGER IALT(2) +*KEEP,NKGS. + COMMON /NKGS/ CZX,CZY,CZXY,CZYX,SAH,SL,ZNE + DOUBLE PRECISION CZX(-10:10,2),CZY(-10:10,2),CZXY(-10:10,2), + * CZYX(-10:10,2),SAH(10),SL(10),ZNE(10) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AE,AS,ASE,AUXIL,BS,CCP,CPC,CPCP,CPH,CSGA, + * DE,DISTL,ECRI,ECR1,ECR2,ENERN,GAM,GRCUT, + * G1,G2,G3,S,SC1,SC2,SIGNE,SM,SMRM, + * SQRZ1I,SQZC1I,SQZC2I,SS2,SS45,TEX,THICK,THICKP, + * XMOL,XNE,XS,X0,YM,YS,ZC1,ZC2,ZG1,ZG2,ZG3,Z1 + INTEGER IL,IOL,M + SAVE + EXTERNAL GAM,THICK +C X0 IS RADIATON LENGTH IN AIR (G/CM**2) +C (SEE ALSO MIKOCKI ET AL. J.PHYS.G.:NUCL.PART.PHYS. 17 (1991) 1303 ) +C GRCUT IS GREISEN CUT OFF, ECRI IS CRITICAL ENERGY IN AIR +C ECR2 IS 0.4 * ECRI +CDH DATA X0 / 37.1D0 /, GRCUT / 0.1D0 /, ECRI / 0.082D0 / +CDH DATA ECR2 / 0.0328D0 / + DATA X0 / 36.66D0 /, GRCUT / 0.1D0 /, ECRI / 0.086D0 / + DATA ECR2 / 0.0344D0 / +C----------------------------------------------------------------------- + + IF (DEBUG) WRITE(MDEBUG,*)'NKG : ',SNGL(SECPAR(1)),SNGL(ENERN) + +C CHECK WETHER SUBSHOWER IS SUBTRACTED + IF ( ENERN .GE. 0.D0 ) THEN + SIGNE = +1.D0 + ELSE + ENERN = -ENERN + SIGNE = -1.D0 + ENDIF + +C ENERGY CUT OFF IN GREISEN FORMULA +C (EM PARTICLE BELOW THIS CUT CAN NOT PRODUCE A SHOWER) + IF ( ENERN .LT. GRCUT ) RETURN +C DON'T CALCULATE NKG FOR BACKWARD GOING PARTICLES + IF ( SECPAR(3) .LE. 0.D0 ) RETURN +C DON'T CALCULATE NKG IF PARTICLE BELOW THE LOWEST OBSERVATION LEVEL + IF ( SECPAR(5) .LT. OBSATI(1) ) RETURN + + Z1 = LOG(ENERN / ECRI) + SQRZ1I = 1.D0 / SQRT(Z1) + +C THIS CUT IS ONLY IMPORTANT FOR ELCUT > .0672 + ECR1 = ECR2 + ELCUT(3) + IF ( ENERN .LT. ECR1 ) RETURN + ZC1 = LOG(ENERN / ECR1) + SQZC1I = 1.D0 / SQRT(ZC1) +C LOG(ENERN/ECR2) IS LOG(ENERN / ECRI) - LOG(0.4) + ZC2 = Z1 + 0.916290732D0 + SQZC2I = 1.D0 / SQRT(ZC2) + THICKP = THICK(SECPAR(5)) + +C LOOP OVER LEVELS + DO 14 IL = 1,IALT(1) +C DISREGARD LEVELS ABOVE THE PARTICLE + IF ( TLEVCM(IL) .GT. SECPAR(5) ) GOTO 14 +C DISTANCE IN G/CM**2 .... (ALONG PHOTON-AXIS) IN RADIATION LENGTHS + XMOL = (TLEV(IL) - THICKP) / ( X0 * SECPAR(3) ) +C CORRECT DEPTH FOR SUBSHOWERS TO BE SUBTRACTED BY 9/7 +C CORRECTION IS ALREADY DONE IN PIGEN (D.H. MARCH 10, 1998) +CDH IF ( SIGNE .LT. 0.D0 ) XMOL = XMOL + 1.285714286D0 +C XMOL IS DEPTH IN RADIATION LENGTHS +C RESPECT THE DIFFERENT DEVELOPMENT OF ELECTRON-INDUCED SUBSHOWERS +C BY 0.6 RADIATION LENGTH (D.H. MAY 2001) +C SEE J. NISHIMURA, HANDBUCH DER PHYSIK XLVI/2 (1967) 27 + IF ( SECPAR(1) .NE. 1.D0 ) XMOL = XMOL + 0.6D0 + IF ( XMOL .GT. 60.D0 .OR. XMOL .LT. 1.D0 ) GOTO 14 +C S IS AGE PARAMETER + S = 3.D0 * XMOL / (XMOL + 2.D0 * Z1) + IF ( S .LE. 0.2D0 ) GOTO 14 + SC1 = 3.D0 * XMOL / (XMOL + 2.D0 * ZC1) + SC2 = 3.D0 * XMOL / (XMOL + 2.D0 * ZC2) +C ELECTRON NUMBER AT OBSERVATION LEVEL + CPH = .31D0 * EXP( XMOL * (1.D0 - 1.5D0 * LOG(S) ) ) * SQRZ1I + CPC = EXP( XMOL * ( 1.D0 - 1.5D0 * LOG(SC1) ) ) * SQZC1I + CCP = EXP( XMOL * ( 1.D0 - 1.5D0 * LOG(SC2) ) ) * SQZC2I + CPCP = SIGNE * CPH * CPC / CCP +C INTERMEDIATE FACTORS FOR LATERAL DISTRIBUTION AND AGE PARAMETER + AE = 4.D0 * EXP( 0.915D0 * (S - 1.D0) ) / S + DE = ( 1.D0 + S ) / ( 1.15D0 + 0.15D0 * S ) + ASE = AE**DE + ZG3 = GAM( (S + 2.D0) * DE ) + IF ( ZG3 .LE. 0.D0 ) GOTO 14 + ZG1 = GAM(S * DE) + ZG2 = GAM( (S + 1.D0) * DE ) + AUXIL = 4.D0 / (S * ASE) + XNE = CPCP * ( ZG2 + AUXIL * ZG3 ) / ( ASE * (ZG1 + AUXIL*ZG2) ) +C SUM OF N_E AT FIXED LEVEL + ZNE(IL) = ZNE(IL) + XNE + SL(IL) = SL(IL) + CPCP + +C CALCULATE THE ELECTRON LATERAL DISTRIBUTION FOR THE 2 SELECTED +C OBSERVATION LEVELS + IF ( IL .EQ. IALT(1) ) THEN + IOL = 1 + ELSEIF ( IL .EQ. IALT(2) ) THEN + IOL = 2 + ELSE + GOTO 14 + ENDIF + +C CALCULATION OF LATERAL ELECTRON DISTRIBUTION + IF ( SC1 .GE. 2.25D0 ) GOTO 14 + G1 = GAM(4.5D0 - SC1) + G2 = GAM(SC1) + G3 = GAM(4.5D0 - 2.D0 * SC1) +C DISTANCE IN CM BETWEEN PHOTON INITIATION AND OBSERVATION (VERTICAL) + DISTL = SECPAR(5) - TLEVCM(IL) +C MODULATION BY AGE PARAMETER FOLLOWING LAGUTIN & UCHAIKIN +C (AGE PARAMETER LIES BETWEEN 0.2 AND 2.25) + SM = 0.78D0 - 0.21D0 * SC1 + SMRM = 1.D0 / ( SM * RMOL(IOL) ) + + CSGA = CPCP * SMRM**2 * G1 / ( PI2 * G2 * G3 ) + SS2 = SC1 - 2.D0 + SS45 = SC1 - 4.5D0 + AS = SIN( SECPAR(4) ) + BS = COS( SECPAR(4) ) + TEX = DISTL * SQRT( 1.D0 - SECPAR(3)**2 ) / SECPAR(3) +C DISTANCE TO THE CENTER OF THE CASCADE (IN CM) + XS = SECPAR(7) + TEX * BS - XOFF(NOBSLV+1-IOL) + YS = SECPAR(8) + TEX * AS - YOFF(NOBSLV+1-IOL) + +C NKG-FORMULA +C LOOP OVER ALL LATERAL DISTANCES GETTING THE DENSITY IN MOLIERE UNITS + DO 171 M = -10,10 + IF ( M .EQ. 0 ) GOTO 171 +C X DIRECTION + YM = SMRM * MAX( SQRT((DISX(M)-XS)**2 + YS**2), 1.D0 ) + CZX (M,IOL) = CZX (M,IOL) + CSGA * YM**SS2 * (YM+1.D0)**SS45 +C Y DIRECTION + YM = SMRM * MAX( SQRT(XS**2 + (DISY(M)-YS)**2), 1.D0 ) + CZY (M,IOL) = CZY (M,IOL) + CSGA * YM**SS2 * (YM+1.D0)**SS45 +C XY DIRECTION + YM = SMRM * + * MAX( SQRT((DISXY(M,1)-XS)**2 + (DISXY(M,2)-YS)**2), 1.D0 ) + CZXY(M,IOL) = CZXY(M,IOL) + CSGA * YM**SS2 * (YM+1.D0)**SS45 +C YX DIRECTION + YM = SMRM * + * MAX( SQRT((DISYX(M,1)-XS)**2 + (DISYX(M,2)-YS)**2), 1.D0 ) + CZYX(M,IOL) = CZYX(M,IOL) + CSGA * YM**SS2 * (YM+1.D0)**SS45 + 171 CONTINUE + + 14 CONTINUE + + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE STANKG + +C----------------------------------------------------------------------- +C STA(RT) NKG +C +C INITIALIZES ARRAYS FOR SINGLE SHOWERS NKG CALCULATED VARIABLES +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,NKGS. + COMMON /NKGS/ CZX,CZY,CZXY,CZYX,SAH,SL,ZNE + DOUBLE PRECISION CZX(-10:10,2),CZY(-10:10,2),CZXY(-10:10,2), + * CZYX(-10:10,2),SAH(10),SL(10),ZNE(10) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER I,K + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'STANKG:' + +C CLEAR ARRAYS FOR AGE PARAMETER CALCULATION FOR EACH SHOWER + DO 17 I = 1,10 + SAH(I) = 0.D0 + SL (I) = 0.D0 + ZNE(I) = 0.D0 + 17 CONTINUE +C CLEAR LATERAL ELECTRON DISTRIBUTION COUNTERS FOR EACH SHOWER + DO 45 K = 1,2 + DO 45 I = -10,10 + CZX (I,K) = 0.D0 + CZY (I,K) = 0.D0 + CZXY(I,K) = 0.D0 + CZYX(I,K) = 0.D0 + 45 CONTINUE + + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE CGHEI + +C----------------------------------------------------------------------- +C C(ORSIKA) GHE(ISHA) I(NTERFACE) +C +C MAIN STEERING SUBROUT. FOR HADRON PACKAGE GHEISHA *** +C THIS SUBROUTINE IS CALLED FROM NUCINT. +C +C ORIGIN : F.CARMINATI, H.FESEFELDT (SUBROUT. GHESIG) +C REDESIGN: P. GABRIEL IK1 FZK KARLSRUHE +C----------------------------------------------------------------------- + +*KEEP,CGCOMP. + PARAMETER (KK=3) + COMMON/CGCOMP/ ACOMP,ZCOMP,WCOMP + REAL ACOMP(KK),ZCOMP(KK),WCOMP(KK) +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,ELADPM. + COMMON /ELADPM/ ELMEAN,ELMEAA,IELDPM,IELDPA + DOUBLE PRECISION ELMEAN(40),ELMEAA(40) + INTEGER IELDPM(40,13),IELDPA(40,13) +*KEEP,ELASTY. + COMMON /ELASTY/ ELAST + DOUBLE PRECISION ELAST +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,ISTA. + COMMON /ISTA/ IFINET,IFINNU,IFINKA,IFINPI,IFINHY + INTEGER IFINET,IFINNU,IFINKA,IFINPI,IFINHY +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEND. + + DOUBLE PRECISION ELASTI,ELABOR,ETOT,PLX,PLY,PLZ,PLSQ,PLTOT,RMASSK + + COMMON/GSECTI/ AIEL(20),AIIN(20),AIFI(20),AICA(20),ALAM,K0FLAG + INTEGER K0FLAG + REAL AIEL,AIIN,AIFI,AICA,ALAM + +C --- GHEISHA COMMONS --- + PARAMETER (MXGKGH=100) + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) + + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) + + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM + + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) + + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT + + +C --- "NEVENT" CHANGED TO "KEVENT" IN COMMON /CURPAR/ DUE TO CLASH --- +C --- WITH VARIABLE "NEVENT" IN GEANT COMMON --- + + PARAMETER (MXGKCU=MXGKGH) + COMMON /CURPAR/ WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,KEVENT,SHFLAG, + $ ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + $ RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + $ ATNO2,ZNO2 + +C --- "IPART" CHANGED TO "KPART" IN COMMON /RESULT/ DUE TO CLASH --- +C --- WITH VARIABLE "IPART" IN GEANT COMMON --- + + COMMON /RESULT/ XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + $ USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,KPART,IND, + $ LCALO,ICEL,SINL,COSL,SINP,COSP, + $ XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + $ XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT + +C --- "ABSL(21)" CHANGED TO "ABSLTH(21)" IN COMMON /MAT/ DUE TO CLASH --- +C --- WITH VARIABLE "ABSL" IN GEANT COMMON --- + + COMMON /MAT/ LMAT, + $ DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSLTH(21), + $ CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + $ MATID(21),MATID1(21,24),PARMAT(21,10), + $ IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + $ ATNO1(21,10),ZNO1(21,10) + +* DIMENSION IPELOS(35) + REAL EMAX,EEESQ + + DIMENSION RNDM(1) + +C --- DIMENSION STMTS. FOR GEANT/GHEISHA PARTICLE CODE CONVERSIONS --- +C --- KIPART(I)=GHEISHA CODE CORRESPONDING TO GEANT CODE I --- +C --- IKPART(I)=GEANT CODE CORRESPONDING TO GHEISHA CODE I --- + + DIMENSION KIPART(48),IKPART(35) +C --- ANGLES FOR NEW COUPLING WITH CORSIKA D. HECK DEC. 2000 + DOUBLE PRECISION PHIRAN,PHIG,THETG + + SAVE + +C --- DATA STMTS. FOR GEANT/GHEISHA PARTICLE CODE CONVERSIONS --- +C --- KIPART(I)=GHEISHA CODE CORRESPONDING TO GEANT CODE I --- +C --- IKPART(I)=GEANT CODE CORRESPONDING TO GHEISHA CODE I --- + + DATA KIPART/ + $ 1, 3, 4, 2, 5, 6, 8, 7, + $ 9, 12, 10, 13, 16, 14, 15, 11, + $ 35, 18, 20, 21, 22, 26, 27, 33, + $ 17, 19, 23, 24, 25, 28, 29, 34, + $ 35, 35, 35, 35, 35, 35, 35, 35, + $ 35, 35, 35, 35, 30, 31, 32, 35/ + + DATA IKPART/ + $ 1, 4, 2, 3, 5, 6, 8, 7, + $ 9, 11, 16, 10, 12, 14, 15, 13, + $ 25, 18, 26, 19, 20, 21, 27, 28, + $ 29, 22, 23, 30, 31, 45, 46, 47, + $ 24, 32, 48/ + + +C --- DENOTE STABLE PARTICLES ACCORDING TO GHEISHA CODE --- +C --- STABLE : GAMMA, NEUTRINO, ELECTRON, PROTON AND HEAVY FRAGMENTS --- +C --- WHEN STOPPING THESE PARTICLES ONLY LOOSE THEIR KINETIC ENERGY --- +* DATA IPELOS/ +* $ 1, 1, 0, 1, 0, 0, 0, 0, +* $ 0, 0, 0, 0, 0, 1, 0, 0, +* $ 0, 0, 0, 0, 0, 0, 0, 0, +* $ 0, 0, 0, 0, 0, 1, 1, 1, +* $ 0, 0, 1/ + +C --- LOWERBOUND OF KINETIC ENERGY BIN IN N CROSS-SECTION TABLES --- + DATA TEKLOW /0.0001/ + +C --- KINETIC ENERGY TO SWITCH FROM "CASN" TO "GNSLWD" FOR N CASCADE --- + DATA SWTEKN /0.05/ +C----------------------------------------------------------------------- + IF ( DEBUG ) WRITE(MDEBUG,445) (CURPAR(I),I=1,9) + 445 FORMAT(' CGHEI : CURPAR=',1P,9E10.3) + + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'CGHEI : E = ',CURPAR(2)*PAMA(NINT(CURPAR(1))) + +C --- DEFINE PARTICLE TYPE + IF ( ITYPE .LE. 48 ) THEN + IPART = ITYPE + ELSEIF ( ITYPE .EQ. 201 ) THEN + IPART = 45 + ELSEIF ( ITYPE .EQ. 301 ) THEN + IPART = 46 + ELSEIF ( ITYPE .EQ. 402 ) THEN + IPART = 47 + ELSE + WRITE(MONIOU,444) (CURPAR(I),I=1,9) + 444 FORMAT(' CGHEI : CURPAR=',1P,9E10.3) + WRITE(MONIOU,7795) ITYPE + 7795 FORMAT (//,' *CGHEI* ILLEGAL PARTICLE TYPE OCCURS =',I5) + IPART = 48 + ENDIF + + NETEST=IKPART(KPART) + IF ( NETEST .EQ. IPART ) GOTO 9004 + + WRITE(MONIOU,8881) IPART,KPART + 8881 FORMAT(' *CGHEI* IPART,KPART = ',2(I3,1X)/ + $ ' *CGHEI* ======> PARTICLE TYPES DO NOT MATCH <=======') + STOP + + 9004 CONTINUE + KPART = KIPART(IPART) + KKPART = KPART + +C --- TRANSPORT THE TRACK NUMBER TO GHEISHA AND INITIALIZE SOME NUMBERS +C --- NTK=ITRA ITRA = CURRENT TRACK NUMBER IN GEANT (GCKINE) + NTK = 0 + INTCT = 0.0 + NEXT = 1 + NTOT = 0 + INT = 0 + TOF = 0.0 + +C --- RESET ITYPE + SECPAR(1) = 0. + +C --- FILL RESULT COMMON FOR THIS TRACK WITH CORSIKA VALUES --- + + AMAS = RMASS(KPART) + NCH = RCHARG(KPART) + 107 XEND = CURPAR(7) + YEND = CURPAR(8) + ZEND = CURPAR(5) + USERW = 0.0 + + AMASQ=AMAS*AMAS + EN = CURPAR(2) * ABS(AMAS) + EK = ABS ( EN - ABS(AMAS) ) + ENOLD = EN + EMAX = 0. + ETOT = 0.D0 + P = SQRT ( EN*EN - AMASQ ) + ELABOR = EN + +C OLD COUPLING OF GHEISHA WITH CORSIKA +C SINL = -CURPAR(3) +C PHI = CURPAR(4) +C SINP = SIN(PHI) +C COSP = COS(PHI) +C COSL = SQRT ( ABS(1.-SINL**2) ) +C NEW COUPLING WITH CORSIKA D. HECK DEC. 2000 +C WE ASSUME MOVEMENT ALONG Z AXIS. AFTER COLLISION WE ROTATE THE +C INTERACTION PLANE AROUND Z AT RANDOM TO ELIMINATE PREFERENCES OF PHI + SINL = -1. + COSL = 0. + SINP = 0. + COSP = 1. + PX = COSL * COSP + PY = COSL * SINP + PZ = SINL + + CALL GRNDM(RNDM,1) + PHIRAN = RNDM(1) * TWPI + +C --- SET GHEISHA INDEX FOR THE CURRENT MEDIUM ALWAYS TO 1 --- + IND = 1 + +C --- TRANSFER GLOBAL MATERIAL CONSTANTS FOR CURRENT MEDIUM --- +C --- DETAILED DATA FOR COMPOUNDS IS OBTAINED VIA SUBROUT. COMPO --- + ATNO(IND+1) = 14.56 + ZNO(IND+1) = 7.265 + DEN(IND+1) = 0.0 + RADLTH(IND+1)= 0.0 + ABSLTH(IND+1)= 0.0 + +C --- SETUP PARMAT FOR PHYSICS STEERING --- + PARMAT(IND+1,10)=0.0 + + 5 CONTINUE + +C --- INDICATE LIGHT (<= PI) AND HEAVY PARTICLES (HISTORICALLY) --- +C --- CALIM CODE --- + J = 2 + TEST = RMASS(7)-0.001 + IF ( ABS(AMAS) .LT. TEST ) J=1 + +C *** DIVISION INTO VARIOUS INTERACTION CHANNELS DENOTED BY "INT" *** +C THE CONVENTION FOR "INT" IS THE FOLLOWING + +C INT = -1 REACTION CROSS-SECTIONS NOT YET TABULATED/PROGRAMMED +C = 0 NO INTERACTION +C = 1 ELEASTIC SCATTERING +C = 2 INELASTIC SCATTERING +C = 3 NUCLEAR FISSION WITH INELEASTIC SCATTERING +C = 4 NEUTRON CAPTURE +C INT = 3, 4 SHOULD BE DELETED FOR AIR TARGET + +C --- INTACT CODE --- + ALAM1 = 0.0 + CALL GRNDM(RNDM,1) + RAT = RNDM(1)*ALAM + ATNO2 = 14.56 + ZNO2 = 7.265 + + DO 6 K = 1,KK + ATNO2 = ACOMP(K) + ZNO2 = ZCOMP(K) + +C --- TRY FOR ELASTIC SCATTERING --- + INT = 1 + ALAM1 = ALAM1+AIEL(K) + IF ( RAT .LT. ALAM1 ) GOTO 8 + +C --- TRY FOR INELASTIC SCATTERING --- + INT = 2 + ALAM1 = ALAM1+AIIN(K) + IF ( RAT .LT. ALAM1 ) GOTO 8 + +C --- TRY FOR NEUTRON CAPTURE --- + INT = 4 + ALAM1 = ALAM1+AICA(K) + IF ( RAT .LT. ALAM1 ) GOTO 8 + + 6 CONTINUE + +C --- NO REACTION SELECTED ==> ELASTIC SCATTERING --- + INT = 1 + +C *** TAKE ACTION ACCORDING TO SELECTED REACTION CHANNEL *** +C --- FOLLOWING CODE IS A TRANSLATION OF "CALIM" INTO GEANT JARGON --- + + 8 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,1001) INT + 1001 FORMAT(' *CGHEI* INTERACTION TYPE CHOSEN INT = ',I3) + + IF ( INT .NE. 4 ) GOTO 10 + +C --- NEUTRON CAPTURE --- + IF ( NPRT(9) ) WRITE(MDEBUG,2000) + 2000 FORMAT(' *CGHEI* SUBROUT. CAPTUR WILL BE CALLED') + CALL CAPTUR(NOPT) + GOTO 40 + + 10 CONTINUE + +C --- ELASTIC AND INELASTIC SCATTERING --- + PV(1,MXGKPV) = P*PX + PV(2,MXGKPV) = P*PY + PV(3,MXGKPV) = P*PZ + PV(4,MXGKPV) = EN + PV(5,MXGKPV) = AMAS + PV(6,MXGKPV) = NCH + PV(7,MXGKPV) = TOF + PV(8,MXGKPV) = KPART + PV(9,MXGKPV) = 0. + PV(10,MXGKPV)= USERW + +C --- ADDITIONAL PARAMETERS TO SIMULATE FERMI MOTION AND EVAPORATION --- + DO 111 JENP = 1,10 + ENP(JENP) = 0. + 111 CONTINUE + ENP(5) = EK + ENP(6) = EN + ENP(7) = P + + IF ( INT .NE. 1 ) GOTO 12 + +C *** ELASTIC SCATTERING PROCESSES *** + +C --- ONLY NUCLEAR INTERACTIONS FOR HEAVY FRAGMENTS --- + IF ( (KPART .GE. 30) .AND. (KPART .LE. 32) ) GOTO 35 + +C --- NORMAL ELASTIC SCATTERING FOR LIGHT MEDIA --- + IF ( ATNO2 .LT. 1.5 ) GOTO 35 + +C --- COHERENT ELASTIC SCATTERING FOR HEAVY MEDIA --- + IF ( NPRT(9) ) WRITE(MDEBUG,2002) + 2002 FORMAT(' *CGHEI* SUBROUT. COSCAT WILL BE CALLED') + CALL COSCAT + GOTO 40 + +C *** NON-ELASTIC SCATTERING PROCESSES *** + 12 CONTINUE + +C --- ONLY NUCLEAR INTERACTIONS FOR HEAVY FRAGMENTS --- + IF ( (KPART .GE. 30) .AND. (KPART .LE. 32) ) GOTO 35 + +C *** USE SOMETIMES NUCLEAR REACTION SUBROUT. "NUCREC" FOR LOW ENERGY +C *** PROTON AND NEUTRON SCATTERING *** + CALL GRNDM(RNDM,1) + TEST1 = RNDM(1) + TEST2 = 4.5*(EK-0.01) + IF ( (KPART .EQ. 14) .AND. (TEST1 .GT. TEST2) ) GOTO 85 + IF ( (KPART .EQ. 16) .AND. (TEST1 .GT. TEST2) ) GOTO 86 + +C *** FERMI MOTION AND EVAPORATION *** + TKIN = CINEMA(EK) + PV(9,MXGKPV) = TKIN + ENP(5) = EK+TKIN +C --- CHECK FOR LOWERBOUND OF EKIN IN CROSS-SECTION TABLES --- + IF ( ENP(5) .LE. TEKLOW ) ENP(5)=TEKLOW + ENP(6) = ENP(5)+ABS(AMAS) + ENP(7) = (ENP(6)-AMAS)*(ENP(6)+AMAS) + ENP(7) = SQRT(ABS(ENP(7))) + TKIN = FERMIG(ENP(5)) + ENP(5) = ENP(5)+TKIN +C --- CHECK FOR LOWERBOUND OF EKIN IN CROSS-SECTION TABLES --- + IF ( ENP(5) .LE. TEKLOW ) ENP(5)=TEKLOW + ENP(6) = ENP(5)+ABS(AMAS) + ENP(7) = (ENP(6)-AMAS)*(ENP(6)+AMAS) + ENP(7) = SQRT(ABS(ENP(7))) + TKIN = EXNU(ENP(5)) + ENP(5) = ENP(5)-TKIN +C --- CHECK FOR LOWERBOUND OF EKIN IN CROSS-SECTION TABLES --- + IF ( ENP(5) .LE. TEKLOW ) ENP(5)=TEKLOW + ENP(6) = ENP(5)+ABS(AMAS) + ENP(7) = (ENP(6)-AMAS)*(ENP(6)+AMAS) + ENP(7) = SQRT(ABS(ENP(7))) + +C *** IN CASE OF ENERGY ABOVE CUT-OFF LET THE PARTICLE CASCADE *** + IF ( ENP(5) .GT. ELCUT(1) ) GOTO 35 + +C --- SECOND CHANCE FOR ANTI-BARYONS DUE TO POSSIBLE ANNIHILATION --- + IF ( (AMAS .GE. 0.0) .OR. (KPART .LE. 14) ) GOTO 13 + ANNI = 1.3*P + IF ( ANNI .GT. 0.4 ) ANNI=0.4 + CALL GRNDM(RNDM,1) + TEST = RNDM(1) + IF ( TEST .GT. ANNI ) GOTO 35 + +C *** PARTICLE WITH ENERGY BELOW CUT-OFF *** +C --- ==> ONLY NUCLEAR EVAPORATION AND QUASI-ELASTIC SCATTERING --- + 13 CONTINUE + + IF ( NPRT(9) ) WRITE(MDEBUG,1002) + * KPART,EK,EN,P,ENP(5),ENP(6),ENP(7) + 1002 FORMAT(' *CGHEI* ENERGY BELOW CUT-OFF FOR GHEISHA PARTICLE ',I3/ + $ ' EK,EN,P,ENP(5),ENP(6),ENP(7) = ',6(G12.5,1X)) + + IF ( (KPART .NE. 14) .AND. (KPART .NE. 16) ) GOTO 14 + IF ( KPART .EQ. 16 ) GOTO 86 + +C --- SLOW PROTON --- + 85 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2003) EK,KPART + 2003 FORMAT(' *CGHEI* SUBROUT. NUCREC WILL BE CALLED', + $ ' EK = ',G12.5,' GEV KPART = ',I3) + CALL NUCREC(NOPT,2) + + IF ( NOPT .NE. 0 ) GOTO 50 + + IF ( NPRT(9) ) WRITE(MDEBUG,2004) EK,KPART + 2004 FORMAT(' *CGHEI* SUBROUT. COSCAT WILL BE CALLED', + $ ' EK = ',G12.5,' GEV KPART = ',I3) + CALL COSCAT + GOTO 40 + +C --- SLOW NEUTRON --- + 86 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2015) + NUCFLG = 0 + CALL GNSLWD(NUCFLG,INT,NFL,TEKLOW) + IF ( NUCFLG .NE. 0 ) GOTO 50 + GOTO 40 + +C --- OTHER SLOW PARTICLES --- + 14 CONTINUE + IPA(1) = KPART +C --- DECIDE FOR PROTON OR NEUTRON TARGET --- + IPA(2) = 16 + CALL GRNDM(RNDM,1) + TEST1 = RNDM(1) + TEST2 = ZNO2/ATNO2 + IF ( TEST1 .LT. TEST2 ) IPA(2) = 14 + AVERN = 0.0 + NFL = 1 + IF ( IPA(2) .EQ. 16 ) NFL = 2 + IPPP = KPART + IF ( NPRT(9) ) WRITE(MDEBUG,2005) + 2005 FORMAT(' *CGHEI* SUBROUT. TWOB WILL BE CALLED') + CALL TWOB(IPPP,NFL,AVERN) + GOTO 40 + +C --- INITIALIZATION OF CASCADE QUANTITIES --- + 35 CONTINUE + +C *** CASCADE GENERATION *** +C --- CALCULATE FINAL STATE MULTIPLICITY AND LONGITUDINAL AND --- +C --- TRANSVERSE MOMENTUM DISTRIBUTIONS --- + +C --- FIXED PARTICLE TYPE TO STEER THE CASCADE --- + KKPART = KPART + +C --- NO CASCADE FOR LEPTONS --- + IF ( KKPART .LE. 6 ) GOTO 9999 + +C *** WHAT TO DO WITH "NEW PARTICLES" FOR GHEISHA ?????? *** +C --- RETURN FOR THE TIME BEING --- + IF ( KKPART .GE. 35 ) GOTO 9999 + +C --- CASCADE OF HEAVY FRAGMENTS + IF ( (KKPART .GE. 30) .AND. (KKPART .LE. 32) ) GOTO 390 + +C --- INITIALIZE THE IPA ARRAY --- +* CALL VZERO(IPA(1),MXGKCU) +CDH + DO III = 1, MXGKCU + IPA(III) = 0 + ENDDO + + +C --- CASCADE OF OMEGA - AND OMEGA - BAR --- + IF ( KKPART .EQ. 33 ) GOTO 330 + IF ( KKPART .EQ. 34 ) GOTO 331 + + NVEPAR = KKPART-17 + IF ( NVEPAR .LE. 0 ) GOTO 15 + GOTO (318,319,320,321,322,323,324,325,326,327,328,329),NVEPAR + + 15 CONTINUE + NVEPAR = KKPART-6 + GOTO (307,308,309,310,311,312,313,314,315,316,317,318),NVEPAR + +C --- PI+ CASCADE --- + 307 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2006) + 2006 FORMAT(' *CGHEI* SUBROUT. CASPIP WILL BE CALLED') + CALL CASPIP(J,INT,NFL) + GOTO 40 + +C --- PI0 ==> NO CASCADE --- + 308 CONTINUE + GOTO 40 + +C --- PI- CASCADE --- + 309 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2007) + 2007 FORMAT(' *CGHEI* SUBROUT. CASPIM WILL BE CALLED') + CALL CASPIM(J,INT,NFL) + GOTO 40 + +C --- K+ CASCADE --- + 310 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2008) + 2008 FORMAT(' *CGHEI* SUBROUT. CASKP WILL BE CALLED') + CALL CASKP(J,INT,NFL) + GOTO 40 + +C --- K0 CASCADE --- + 311 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2009) + 2009 FORMAT(' *CGHEI* SUBROUT. CASK0 WILL BE CALLED') + CALL CASK0(J,INT,NFL) + GOTO 40 + +C --- K0 BAR CASCADE --- + 312 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2010) + 2010 FORMAT(' *CGHEI* SUBROUT. CASK0B WILL BE CALLED') + CALL CASK0B(J,INT,NFL) + GOTO 40 + +C --- K- CASCADE --- + 313 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2011) + 2011 FORMAT(' *CGHEI* SUBROUT. CASKM WILL BE CALLED') + CALL CASKM(J,INT,NFL) + GOTO 40 + +C --- PROTON CASCADE --- + 314 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2012) + 2012 FORMAT(' *CGHEI* SUBROUT. CASP WILL BE CALLED') + CALL CASP(J,INT,NFL) + GOTO 40 + +C --- PROTON BAR CASCADE --- + 315 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2013) + 2013 FORMAT(' *CGHEI* SUBROUT. CASPB WILL BE CALLED') + CALL CASPB(J,INT,NFL) + GOTO 40 + +C --- NEUTRON CASCADE --- + 316 CONTINUE + NUCFLG = 0 + IF ( EK .GT. SWTEKN ) THEN + CALL CASN(J,INT,NFL) + IF ( NPRT(9) ) WRITE(MDEBUG,2014) + 2014 FORMAT(' *CGHEI* SUBROUT. CASN WILL BE CALLED') + ELSE + CALL GNSLWD(NUCFLG,INT,NFL,TEKLOW) + IF ( NPRT(9) ) WRITE(MDEBUG,2015) + 2015 FORMAT(' *CGHEI* SUBROUT. GNSLWD WILL BE CALLED') + ENDIF + IF ( NUCFLG .NE. 0 ) GOTO 50 + GOTO 40 + +C --- NEUTRON BAR CASCADE --- + 317 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2016) + 2016 FORMAT(' *CGHEI* SUBROUT. CASNB WILL BE CALLED') + CALL CASNB(J,INT,NFL) + GOTO 40 + +C --- LAMBDA CASCADE --- + 318 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2017) + 2017 FORMAT(' *CGHEI* SUBROUT. CASL0 WILL BE CALLED') + CALL CASL0(J,INT,NFL) + GOTO 40 + +C --- LAMBDA BAR CASCADE --- + 319 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2018) + 2018 FORMAT(' *CGHEI* SUBROUT. CASAL0 WILL BE CALLED') + CALL CASAL0(J,INT,NFL) + GOTO 40 + +C --- SIGMA + CASCADE --- + 320 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2019) + 2019 FORMAT(' *CGHEI* SUBROUT. CASSP WILL BE CALLED') + CALL CASSP(J,INT,NFL) + GOTO 40 + +C --- SIGMA 0 ==> NO CASCADE --- + 321 CONTINUE + GOTO 40 + +C --- SIGMA - CASCADE --- + 322 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2020) + 2020 FORMAT(' *CGHEI* SUBROUT. CASSM WILL BE CALLED') + CALL CASSM(J,INT,NFL) + GOTO 40 + +C --- SIGMA + BAR CASCADE --- + 323 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2021) + 2021 FORMAT(' *CGHEI* SUBROUT. CASASP WILL BE CALLED') + CALL CASASP(J,INT,NFL) + GOTO 40 + +C --- SIGMA 0 BAR ==> NO CASCADE --- + 324 CONTINUE + GOTO 40 + +C --- SIGMA - BAR CASCADE --- + 325 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2022) + 2022 FORMAT(' *CGHEI* SUBROUT. CASASM WILL BE CALLED') + CALL CASASM(J,INT,NFL) + GOTO 40 + +C --- XI 0 CASCADE --- + 326 CONTINUE + IF ( NPRT(9) ) PRINT 2023 + 2023 FORMAT(' *CGHEI* SUBROUT. CASX0 WILL BE CALLED') + CALL CASX0(J,INT,NFL) + GOTO 40 + +C --- XI - CASCADE --- + 327 CONTINUE + IF ( NPRT(9) ) PRINT 2024 + 2024 FORMAT(' *CGHEI* SUBROUT. CASXM WILL BE CALLED') + CALL CASXM(J,INT,NFL) + GOTO 40 + +C --- XI 0 BAR CASCADE --- + 328 CONTINUE + IF ( NPRT(9) ) PRINT 2025 + 2025 FORMAT(' *CGHEI* SUBROUT. CASAX0 WILL BE CALLED') + CALL CASAX0(J,INT,NFL) + GOTO 40 + +C --- XI - BAR CASCADE --- + 329 CONTINUE + IF ( NPRT(9) ) PRINT 2026 + 2026 FORMAT(' *CGHEI* SUBROUT. CASAXM WILL BE CALLED') + CALL CASAXM(J,INT,NFL) + GOTO 40 + +C --- OMEGA - CASCADE --- + 330 CONTINUE + IF ( NPRT(9) ) PRINT 2027 + 2027 FORMAT(' *CGHEI* SUBROUT. CASOM WILL BE CALLED') + CALL CASOM(J,INT,NFL) + GOTO 40 + +C --- OMEGA - BAR CASCADE --- + 331 CONTINUE + IF ( NPRT(9) ) PRINT 2028 + 2028 FORMAT(' *CGHEI* SUBROUT. CASAOM WILL BE CALLED') + CALL CASAOM(J,INT,NFL) + GOTO 40 + +C --- HEAVY FRAGMENT CASCADE --- + 390 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2090) + 2090 FORMAT(' *CGHEI* SUBROUT. CASFRG WILL BE CALLED') + NUCFLG = 0 + CALL CASFRG(NUCFLG,INT,NFL) + IF ( NUCFLG .NE. 0 ) GOTO 50 + +C *** CHECK WHETHER THERE ARE NEW PARTICLES GENERATED *** + 40 CONTINUE + IF ( (NTOT .NE. 0) .OR. (KKPART .NE. KPART) ) GOTO 50 + + 50 CONTINUE + + NVEDUM=KIPART(IPART) + IF ( NPRT(9) ) WRITE(MDEBUG,1004)NTOT,IPART,KPART,KKPART,NVEDUM + 1004 FORMAT(' *CGHEI* SEC. GEN. NTOT,IPART,KPART,KKPART,KIPART = ', + $ 5(I3,1X)) + +C --- INITIAL PARTICLE TYPE HAS BEEN CHANGED ==> PUT NEW TYPE ON --- +C --- THE TEMPORARY STACK --- + +C --- MAKE CHOICE BETWEEN K0 LONG / K0 SHORT --- + IF ( (KPART .NE. 11) .AND. (KPART .NE. 12) ) GOTO 52 + CALL GRNDM(RNDM,1) + KPART = 11.5+RNDM(1) + + 52 CONTINUE + +C --- IN CASE THE NEW PARTICLE IS A NEUTRINO ==> FORGET IT --- + IF ( KPART .EQ. 2 ) GOTO 60 + +C --- PUT CURRENT GHEISHA PARTICLE ON THE CORSIKA STACK +C --- ( IF SURVIVING ANGLE CUT ! ) + NGKINE = 1 + +C --- CALCULATE ELASTICITY + IF ( EN .GT. EMAX ) THEN + EMAX = EN + ENDIF + + ITY=IKPART(KPART) +C OLD COUPLING +C SECPAR(3) = -PZ +C IF ( SECPAR(3) .GT. C(29) ) THEN + + IF ( ITY .LT. 45 ) THEN + SECPAR(1) = DBLE(ITY) + ELSEIF ( ITY .EQ. 45 ) THEN + SECPAR(1) = 201.D0 + ELSEIF ( ITY .EQ. 46 ) THEN + SECPAR(1) = 301.D0 + ELSEIF ( ITY .EQ. 47 ) THEN + SECPAR(1) = 402.D0 + ENDIF + IF ( ABS(AMAS) .LT. 1.E-9 ) THEN + SECPAR(2) = EN + ELSE + SECPAR(2) = DBLE(EN) / DBLE(ABS(AMAS)) + ENDIF + IF ( ITY .EQ. 13 .OR. ITY .EQ. 14 ) THEN + ETOT = ETOT + (SECPAR(2) - 1.D0) * PAMA(ITY) + ELSEIF ( ITY .EQ. 15 .OR. ITY .EQ. 25 ) THEN + ETOT = ETOT + (SECPAR(2) + 1.D0) * PAMA(ITY) + ELSE + ETOT = ETOT + EN + ENDIF +C NEW COUPLING WITH CORSIKA D. HECK DEC. 2000 + THETG = -PZ + IF ( PX .NE. 0. .OR. PY .NE. 0. ) THEN + PHIG = ATAN2( DBLE(PY), DBLE(PX) ) + PHIRAN + ELSE + PHIG = 0.D0 + PHIRAN + ENDIF + CALL ADDANG( CURPAR(3),CURPAR(4),THETG,PHIG, SECPAR(3),SECPAR(4)) +C CHECK WETHER PARTICLE SURVIVES ANGULAR CUT + IF ( SECPAR(3) .GT. C(29) ) THEN + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( ITY .EQ. 1 ) THEN + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + EN + ELSEIF ( ITY .EQ. 2 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + EN + PAMA(2) + ELSEIF ( ITY .EQ. 3 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + EN - PAMA(2) + ELSEIF ( ITY .EQ. 5 .OR. ITY .EQ. 6 ) THEN + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + EN + ELSEIF ( ITY .GE. 7 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + EN - RESTMS(ITY) + ENDIF + ENDIF + ENDIF + +C *** CHECK WHETHER SECONDARIES HAVE BEEN GENERATED AND COPY THEM *** +C *** ALSO ON THE GEANT STACK *** + 60 CONTINUE + +C --- ALL QUANTITIES ARE TAKEN FROM THE GHEISHA STACK WHERE THE --- +C --- CONVENTION IS THE FOLLOWING --- +C +C EVE(INDEX+ 1)= X +C EVE(INDEX+ 2)= Y +C EVE(INDEX+ 3)= Z +C EVE(INDEX+ 4)= NCAL +C EVE(INDEX+ 5)= NCELL +C EVE(INDEX+ 6)= MASS +C EVE(INDEX+ 7)= CHARGE +C EVE(INDEX+ 8)= TOF +C EVE(INDEX+ 9)= PX +C EVE(INDEX+10)= PY +C EVE(INDEX+11)= PZ +C EVE(INDEX+12)= TYPE + + IF ( NTOT .LE. 0 ) GOTO 9999 + +C --- ONE OR MORE SECONDARIES HAVE BEEN GENERATED --- + DO 61 L = 1,NTOT + INDEX = (L-1)*12 + JND = EVE(INDEX+12) + +C --- MAKE CHOICE BETWEEN K0 LONG / K0 SHORT --- + IF ( (JND .NE. 11) .AND. (JND .NE. 12) ) GOTO 63 + CALL GRNDM(RNDM,1) + JND = 11.5+RNDM(1) + +C --- FORGET ABOUT NEUTRINOS --- + 63 CONTINUE + IF ( JND .EQ. 2 ) GOTO 61 + +C --- SWITCH TO CORSIKA QUANTITIES --- + ITY = IKPART(JND) + IF (NPRT(9)) WRITE(MDEBUG,1006) ITY,NGKINE,L,(EVE(INDEX+J),J=1,12) + 1006 FORMAT(' *CGHEI* GEANT PART. ',I3,' ALSO PUT ONTO STACK AT', + $ ' POS. ',I3/ + $ ' EVE(',I2,') = ',(' ',10G12.5)) + + PLX = EVE(INDEX+9) + PLY = EVE(INDEX+10) + PLZ = EVE(INDEX+11) + PLSQ = PLX**2 + PLY**2 + PLZ**2 + PLTOT = SQRT (PLSQ) + RMASSK = ABS(RMASS(JND)) + +C FIND HIGHEST ENERGY PARTICLE FOR ELASTICITY + EEESQ = PLSQ + RMASSK**2 + IF ( EEESQ .GT. EMAX**2 ) THEN + EMAX = SQRT(EEESQ) + ENDIF + +C --- APPLY ANGLE CUT AND +C --- ADD PARTICLE TO THE CORSIKA STACK (RESTRICTED TO 100) --- + IF ( PLTOT .LE. 1.D-10 ) GOTO 61 +C SECPAR(3) = (-PLZ) / PLTOT + THETG = (-PLZ) / PLTOT + IF ( RMASSK .LT. 1.D-9 ) THEN + SECPAR(2) = PLTOT + ELSE + SECPAR(2) = SQRT (PLSQ+RMASSK**2) / RMASSK + ENDIF + IF ( ITY .LT. 45 ) THEN + SECPAR(1) = DBLE(ITY) + ELSEIF ( ITY .EQ. 45 ) THEN + SECPAR(1) = 201.D0 + ELSEIF ( ITY .EQ. 46 ) THEN + SECPAR(1) = 301.D0 + ELSEIF ( ITY .EQ. 47 ) THEN + SECPAR(1) = 402.D0 + ELSE + SECPAR(1) = 0.D0 + WRITE(MONIOU,*) '*CGHEI* ILLEGAL PARTICLE TYPE',ITY + ENDIF +C --- COUNTERS FOR FIRST INTERACTION + ITY = SECPAR(1) + IF ( ITY .EQ. 1 ) THEN + ETOT = ETOT + SQRT(EEESQ) + ELSEIF ( ITY .EQ. 13 .OR. ITY .EQ. 14 ) THEN + ETOT = ETOT + (SECPAR(2) - 1.D0) * PAMA(ITY) + ELSEIF ( ITY .EQ. 15 .OR. ITY .EQ. 25 ) THEN + ETOT = ETOT + (SECPAR(2) + 1.D0) * PAMA(ITY) + ELSE + ETOT = ETOT + SECPAR(2) * PAMA(ITY) + ENDIF + IF ( FIRSTI ) THEN + IF ( ITY .EQ. 7 .OR. ITY .EQ. 8 .OR. + * ITY .EQ. 9 ) THEN + IFINPI = IFINPI + 1 + ELSEIF ( ITY .EQ. 13 .OR. ITY .EQ. 14 .OR. + * ITY .EQ. 15 .OR. ITY .EQ. 25 ) THEN + IFINNU = IFINNU + 1 + ELSEIF ( ITY .EQ. 10 .OR. ITY .EQ. 11 .OR. + * ITY .EQ. 12 .OR. ITY .EQ. 16 ) THEN + IFINKA = IFINKA + 1 + ELSEIF ( ITY .EQ. 17 ) THEN + IFINET = IFINET + 1 + ELSEIF ( (ITY .GE. 18 .AND. ITY .LE. 24) .OR. + * (ITY .GE. 26 .AND. ITY .LE. 32) ) THEN + IFINHY = IFINHY + 1 + ENDIF + ENDIF + +C OLD COUPLING +C IF ( SECPAR(3) .GT. C(29) ) THEN +C NEW COUPLING WITH CORSIKA D. HECK DEC. 2000 + IF ( NGKINE .GE. MXGKGH ) GOTO 9999 + NGKINE = NGKINE+1 + IF ( PLX .NE. 0.D0 .OR. PLY .NE. 0.D0 ) THEN + PHIG = ATAN2( PLY, PLX ) + PHIRAN + ELSE + PHIG = 0.D0 + PHIRAN + ENDIF + CALL ADDANG( CURPAR(3),CURPAR(4),THETG,PHIG, SECPAR(3),SECPAR(4)) +C CHECK WETHER PARTICLE SURVIVES ANGULAR CUT + IF ( SECPAR(3) .GT. C(29) ) THEN + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( ITY .EQ. 1 ) THEN + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + SECPAR(2) + ELSEIF ( ITY .EQ. 2 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + * + (SECPAR(2)+1.D0)*PAMA(2) + ELSEIF ( ITY .EQ. 3 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + * + (SECPAR(2)-1.D0)*PAMA(2) + ELSEIF ( ITY .EQ. 5 .OR. ITY .EQ. 6 ) THEN + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + SECPAR(2)*PAMA(5) + ELSEIF ( ITY .GE. 7 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + SECPAR(2)*PAMA(ITY) + * - RESTMS(ITY) + ENDIF + ENDIF + ENDIF + + 61 CONTINUE + +C --- COUNTER FOR ENERGY-MULTIPLICITY MATRIX + MSMM = MSMM + NTOT + +C --- FILL ELASTICITY IN MATRICES + ELASTI = EMAX/ENOLD + MELL = MIN ( 1.D0+10.D0* MAX( 0.D0, ELASTI ) , 11.D0 ) + MEN = MIN ( 4.D0+ 3.D0*LOG10(MAX( .1D0, EKINL )), 40.D0 ) + IELDPM(MEN,MELL) = IELDPM(MEN,MELL) + 1 + IELDPA(MEN,MELL) = IELDPA(MEN,MELL) + 1 + IF ( ELASTI .LT. 1. ) THEN + ELMEAN(MEN) = ELMEAN(MEN) + ELASTI + ELMEAA(MEN) = ELMEAA(MEN) + ELASTI + ENDIF + + IF ( FIRSTI ) THEN + TARG1I = ATNO2 + SIG1I = SIGAIR + ELAST = ELASTI + FIRSTI = .FALSE. + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*)'CGHEI : EXIT WITH ETOT=',SNGL(ETOT) + + 9999 CONTINUE +C --- LIMIT THE VALUE OF NGKINE IN CASE OF OVERFLOW --- + NGKINE = MIN(NGKINE,MXGKGH) + + RETURN + END +*CMZ : 28/02/2002 11.42.37 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE CGHINI + +C----------------------------------------------------------------------- +C C(ORSIKA) GH(EISHA) INI(TIALIZATION) +C INITIALIZATION OF RELEVANT GHEISHA VARIABLES +C THIS SUBROUTINE IS CALLED FROM START. +C +C ORIGIN : GHEISHA SUBROUT. "GHEINI", F.CARMINATI +C REDESIGN: P. GABRIEL IK1 FZK KARLSRUHE +C----------------------------------------------------------------------- + +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,CGCOMP. + PARAMETER (KK=3) + COMMON/CGCOMP/ ACOMP,ZCOMP,WCOMP + REAL ACOMP(KK),ZCOMP(KK),WCOMP(KK) +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + COMMON/GSECTI/ AIEL(20),AIIN(20),AIFI(20),AICA(20),ALAM,K0FLAG + INTEGER K0FLAG + REAL AIEL,AIIN,AIFI,AICA,ALAM + +C --- GHEISHA COMMONS --- +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) + + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) + + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM + + PARAMETER (MXGKGH=100) + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) + + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT + + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) + +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU + + +C --- "NEVENT" CHANGED TO "KEVENT" IN COMMON /CURPAR/ DUE TO CLASH --- +C --- WITH VARIABLE "NEVENT" IN GEANT COMMON --- + + PARAMETER (MXGKCU=MXGKGH) + COMMON /CURPAR/ WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,KEVENT,SHFLAG, + $ ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + $ RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + $ ATNO2,ZNO2 + + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'CGHINI:' + +C --- INITIALIZE COMPOSITION OF AIR + WCOMP(1) = COMPOS(1) + WCOMP(2) = COMPOS(2) + WCOMP(3) = COMPOS(3) + ACOMP(1) = 14. + ACOMP(2) = 16. + ACOMP(3) = 40. + ZCOMP(1) = 7. + ZCOMP(2) = 8. + ZCOMP(3) = 18. + +C --- SET GHEISHA I/O UNITS TO THE SAME AS FOR CORSIKA -- + INBCD = MONIIN + NEWBCD = MONIOU + IF ( DEBUG .OR. DEBDEL ) NEWBCD = MDEBUG + +C --- INITIALIZE ALL GHEISHA PRINT FLAGS AS FALSE --- +C --- ACTIVATION IS DONE BY "DEBUG" STEERING CARD --- + DO 11 J = 1,10 + NPRT(J)=.FALSE. + 11 CONTINUE + IF ( DEBUG .AND. GHEISDB ) THEN + NPRT(4)=.TRUE. + NPRT(9)=.TRUE. + ELSE + NPRT(4)=.FALSE. + NPRT(9)=.FALSE. + ENDIF + LPRT=.FALSE. + DO 12 I = 1,MXGKPV + DO 12 J = 1,10 + PV(J,I)=0. + 12 CONTINUE + +C --- INITIALIZE KGINIT ARRAY --- + DO 20 J = 1,50 + KGINIT(J)=0 + 20 CONTINUE + +C --- INITIALIZE SOME CUT-OFF PARAMETERS WITH GEANT VALUES --- + TOFCUT=1.0E+20 + NSIZE=MXEVEN + K0FLAG=0 + CENG(3)=0. + CENG(4)=0. + +C --- INITIALIZE PI, 2*PI, PI/2 AND PARTICLE PARAMETERS --- + PI=ACOS(-1.0) + TWPI=2.0*PI + PIBTW=PI/2.0 +C *** GAMMA *** + RMASS(1)=PAMA(1) + RCHARG(1)=0.0 +C *** NEUTRINO *** + RMASS(2)=PAMA(4) + RCHARG(2)=0.0 +C *** E+ *** + RMASS(3)=PAMA(2) + RCHARG(3)=1.0 +C *** E- *** + RMASS(4)=PAMA(3) + RCHARG(4)=-1.0 +C *** MU+ *** + RMASS(5)=PAMA(5) + RCHARG(5)=1.0 +C *** MU- *** + RMASS(6)=PAMA(6) + RCHARG(6)=-1.0 +C *** PI+ *** + RMASS(7)=PAMA(8) + RCHARG(7)=1.0 + CT=780.4 +C *** PI0 *** + RMASS(8)=PAMA(7) + RCHARG(8)=0.0 +C *** PI- *** + RMASS(9)=PAMA(9) + RCHARG(9)=-1.0 +C *** K+ *** + RMASS(10)=PAMA(11) + RCHARG(10)=1.0 + CTKCH=370.9 +C *** K0 SHORT (==> K0) *** + RMASS(11)=PAMA(16) + RCHARG(11)=0.0 + CTK0=2.675 +C *** K0 LONG (==> K0 BAR) *** + RMASS(12)=-PAMA(10) + RCHARG(12)=0.0 +C *** K- *** + RMASS(13)=PAMA(12) + RCHARG(13)=-1.0 +C *** P *** + RMASS(14)=PAMA(14) + RCHARG(14)=1.0 +C *** P BAR *** + RMASS(15)=-PAMA(15) + RCHARG(15)=-1.0 +C *** N *** + RMASS(16)=PAMA(13) + RCHARG(16)=0.0 +C *** N BAR *** + RMASS(17)=-PAMA(25) + RCHARG(17)=0.0 +C *** L0 *** + RMASS(18)=PAMA(18) + RCHARG(18)=0.0 + CTL0=7.89 +C *** L0 BAR *** + RMASS(19)=-PAMA(26) + RCHARG(19)=0.0 +C *** S+ *** + RMASS(20)=PAMA(19) + RCHARG(20)=1.0 + CTSP=2.40 +C *** S0 *** + RMASS(21)=PAMA(20) + RCHARG(21)=0.0 +C *** S- *** + RMASS(22)=PAMA(21) + RCHARG(22)=-1.0 + CTSM=4.44 +C *** S+ BAR *** + RMASS(23)=-PAMA(27) + RCHARG(23)=-1.0 +C *** S0 BAR *** + RMASS(24)=-PAMA(28) + RCHARG(24)=0.0 +C *** S- BAR *** + RMASS(25)=-PAMA(29) + RCHARG(25)=1.0 +C *** XI0 *** + RMASS(26)=PAMA(22) + RCHARG(26)=0.0 + CTX0=8.69 +C *** XI- *** + RMASS(27)=PAMA(23) + RCHARG(27)=-1.0 + CTXM=4.92 +C *** XI0 BAR *** + RMASS(28)=-PAMA(30) + RCHARG(28)=0.0 + CTX0=8.69 +C *** XI- BAR *** + RMASS(29)=-PAMA(31) + RCHARG(29)=1.0 +C *** DEUTERON *** + RMASS(30)=PAMA(45) + RCHARG(30)=1.0 +C *** TRITON *** + RMASS(31)=PAMA(46) + RCHARG(31)=1.0 +C *** ALPHA *** + RMASS(32)=PAMA(47) + RCHARG(32)=2.0 +C *** OMEGA- *** + RMASS(33)=PAMA(24) + RCHARG(33)=-1.0 +C *** OMEGA- BAR *** + RMASS(34)=-PAMA(32) + RCHARG(34)=1.0 +C *** NEW PARTICLE (GEANTINO) *** + RMASS(35)=0.0 + RCHARG(35)=0.0 + + IF ( NPRT(9) ) + $ WRITE(MDEBUG,1000) (I,RMASS(I),RCHARG(I),I=1,33), + $ CT,CTKCH,CTK0,CTL0,CTSP,CTSM,CTX0,CTXM + 1000 FORMAT(' *CGHINI* === GHEISHA PARTICLE PROPERTIES ==='/ + $ '0INDEX',5X,'MASS (GEV)',5X,'CHARGE'/1H / + $ 33(1H ,1X,I3,5X,F11.6,6X,F5.2/), + $ '0PI +- CT = ',G12.5,' K +- CT = ',G12.5/ + $ ' K0 CT = ',G12.5,' L0 CT = ',G12.5/ + $ ' S+ CT = ',G12.5,' S- CT = ',G12.5/ + $ ' X0 CT = ',G12.5,' X- CT = ',G12.5) + + MP = RMASS(14) + MPI = RMASS(7) + MMU = RMASS(5) + MEL = RMASS(3) + MKCH = RMASS(10) + MK0 = RMASS(11) + SMP = MP**2 + SMPI = MPI**2 + SMU = MMU**2 + ML0 = RMASS(18) + MSP = RMASS(20) + MS0 = RMASS(21) + MSM = RMASS(22) + MX0 = RMASS(26) + MXM = RMASS(27) + +C --- LOAD LIMITS FOR INTRINSIC FUNCTION ARGUMENTS --- + EXPXL = -82.0 + EXPXU = 82.0 + + IF ( NPRT(9) ) WRITE(MDEBUG,1001) EXPXL,EXPXU + 1001 FORMAT(' *GHEINI* === INTRINSIC FUNCTION BOUNDARIES ==='/ + $ ' EXPXL,EXPXU = ',2(G12.5,1X)) + + RETURN + END +*CMZ : 28/02/2002 11.42.37 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + DOUBLE PRECISION FUNCTION CGHSIG( PPART,EKIN,LPART ) + +C----------------------------------------------------------------------- +C C(ORSIKA) GH(EISHA) SIG(MA) +C +C CALCULATION OF THE PROBABILITIES FOR (IN)ELASTIC INTERACTIONS *** +C THIS FUNCTION IS CALLED FROM BOX2. +C ARGUMENTS: +C PPART = R*4 PARTICLE MOMENTUM (GEV) +C EKIN = R*4 KINETIC ENERGY (GEV) +C LPART = PARTICLE TYPE +C +C ORIGIN : F.CARMINATI, H.FESEFELDT (SUBROUT. GHESIG) +C REDESIGN: P. GABRIEL IK1 FZK KARLSRUHE +C----------------------------------------------------------------------- +C *** IPART DENOTES THE GHEISHA PARTICLE INDEX *** +C +C CONVENTION : +C +C PARTICLE IPART +C ------------------------------ +C GAMMA 1 +C NEUTRINO 2 +C POSITRON 3 +C ELECTRON 4 +C MUON + 5 +C MUON - 6 +C PION + 7 +C PION 0 8 +C PION - 9 +C KAON + 10 +C KAON 0 S 11 +C KAON 0 L 12 +C KAON - 13 +C PROTON 14 +C PROTON BAR 15 +C NEUTRON 16 +C NEUTRON BAR 17 +C LAMBDA 18 +C LAMBDA BAR 19 +C SIGMA + 20 +C SIGMA 0 21 +C SIGMA - 22 +C SIGMA + BAR 23 +C SIGMA 0 BAR 24 +C SIGMA - BAR 25 +C XSI 0 26 +C XSI - 27 +C XSI 0 BAR 28 +C XSI - BAR 29 +C DEUTERON 30 +C TRITON 31 +C ALPHA 32 +C OMEGA - 33 +C OMEGA - BAR 34 +C NEW PARTICLES 35 +C +C----------------------------------------------------------------------- + +*KEEP,CGCOMP. + PARAMETER (KK=3) + COMMON/CGCOMP/ ACOMP,ZCOMP,WCOMP + REAL ACOMP(KK),ZCOMP(KK),WCOMP(KK) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + COMMON/GSECTI/ AIEL(20),AIIN(20),AIFI(20),AICA(20),ALAM,K0FLAG + INTEGER K0FLAG + REAL AIEL,AIIN,AIFI,AICA,ALAM + +C --- GHEISHA COMMONS --- + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT + + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT + + + DIMENSION ALPHA(35),ALPHAC(41),IPART2(7),CSA(4) + DIMENSION PARTEL(35),PARTIN(35),INTRC(35) +* DIMENSION ICORR(35) + +C --- DIMENSION STATEMENTS FOR CROSS-SECTION DATA --- + DIMENSION PLAB(41),CSEL(35,41),CSIN(35,41),CSPIEL(3,41), + $ CSPIIN(3,41),CSPNEL(3,41),CSPNIN(3,41), + $ ELAB(17),CNLWAT(15),CNLWEL(15,17),CNLWIN(15,17), + $ CSCAP(100) + +C --- DIMENSION STMTS. FOR GEANT/GHEISHA PARTICLE CODE CONVERSIONS --- +C --- KIPART(I)=GHEISHA CODE CORRESPONDING TO GEANT CODE I --- +C --- IKPART(I)=GEANT CODE CORRESPONDING TO GHEISHA CODE I --- + + DIMENSION KIPART(48) +* DIMENSION IKPART(35) + + SAVE + +C --- CROSS-SECTION DATA BY "PCSDAT" 01-FEB-1989 --- + DATA PLAB / + $ 0.00000E+00, 0.10000 , 0.15000 , 0.20000 , 0.25000 , + $ 0.30000 , 0.35000 , 0.40000 , 0.45000 , 0.50000 , + $ 0.55000 , 0.60000 , 0.65000 , 0.70000 , 0.75000 , + $ 0.80000 , 0.85000 , 0.90000 , 0.95000 , 1.0000 , + $ 1.1000 , 1.2000 , 1.3000 , 1.4000 , 1.5000 , + $ 1.6000 , 1.8000 , 2.0000 , 2.2000 , 2.4000 , + $ 2.6000 , 2.8000 , 3.0000 , 4.0000 , 5.0000 , + $ 6.0000 , 8.0000 , 10.000 , 20.000 , 100.00 , + $ 1000.0 / + +C ELASTIC SCATTERING CROSS-SECTIONS ON FREE PROTONS +C GAMMA, NEUTRINO, POSITRON, ELECTRON, MU(+), MU(-) + DATA ((CSEL(I,J),I=1,6),J=1,41) / 246 * 0. / +C PI(0) + DATA (CSEL( 8,J),J=1,41) / 41 * 0. / +C SIGMA(0) + DATA (CSEL(21,J),J=1,41) / 41 * 0. / +C SIGMA(0)_BAR + DATA (CSEL(24,J),J=1,41) / 41 * 0. / +C DEUTERIUM, TRITIUM, ALPHA + DATA ((CSEL(I,J),I=30,32),J=1,41) / 123 * 0. / +C NEW PARTICLES + DATA (CSEL(35,J),J=1,41) / 41 * 0. / +C PI(+) + DATA (CSEL( 7,J),J=1,41) / + $ 0.00000E+00, 6.0000 , 20.000 , 71.000 , 155.00 , + $ 195.00 , 130.00 , 78.000 , 60.000 , 32.000 , + $ 23.500 , 18.500 , 15.000 , 12.500 , 10.000 , + $ 9.1000 , 8.6000 , 8.8000 , 9.5000 , 10.600 , + $ 13.000 , 15.500 , 17.100 , 17.200 , 16.200 , + $ 15.000 , 12.300 , 10.200 , 9.0000 , 8.0000 , + $ 7.3000 , 6.8000 , 6.5000 , 5.8000 , 5.4000 , + $ 5.2000 , 5.0000 , 4.9000 , 3.8000 , 3.2000 , + $ 3.5000 / +C PI(-) + DATA (CSEL( 9,J),J=1,41) / + $ 0.00000E+00, 1.0000 , 3.0000 , 8.0000 , 18.000 , + $ 25.000 , 27.500 , 12.300 , 10.600 , 11.000 , + $ 12.500 , 14.500 , 17.000 , 19.400 , 19.800 , + $ 16.800 , 14.000 , 14.800 , 20.000 , 26.100 , + $ 19.500 , 15.000 , 12.800 , 11.500 , 10.500 , + $ 9.8000 , 8.8000 , 8.2000 , 7.8000 , 7.5000 , + $ 7.2000 , 7.0000 , 6.8000 , 6.1000 , 5.7000 , + $ 5.4000 , 4.9000 , 4.6000 , 4.0000 , 3.3000 , + $ 3.5000 / +C K(+) + DATA (CSEL(10,J),J=1,41) / + $ 10.000 , 11.200 , 11.300 , 11.400 , 11.500 , + $ 11.600 , 11.800 , 12.000 , 12.100 , 12.200 , + $ 12.300 , 12.400 , 12.500 , 12.500 , 12.500 , + $ 12.400 , 12.300 , 12.200 , 12.000 , 11.800 , + $ 11.200 , 11.500 , 9.9000 , 9.4000 , 8.8000 , + $ 8.4000 , 7.5000 , 6.9000 , 6.3000 , 5.9000 , + $ 5.5000 , 5.2000 , 5.0000 , 4.0000 , 3.5000 , + $ 3.3000 , 3.1000 , 3.1000 , 3.0000 , 2.5000 , + $ 3.0000 / +C K(0) SHORT + DATA (CSEL(11,J),J=1,41) / + $ 10.000 , 11.200 , 11.300 , 11.400 , 11.500 , + $ 11.600 , 11.800 , 12.000 , 12.100 , 12.200 , + $ 12.300 , 12.400 , 12.500 , 12.500 , 12.500 , + $ 12.400 , 12.300 , 12.200 , 12.000 , 11.800 , + $ 11.200 , 11.500 , 9.9000 , 9.4000 , 8.8000 , + $ 8.4000 , 7.5000 , 6.9000 , 6.3000 , 5.9000 , + $ 5.5000 , 5.2000 , 5.0000 , 4.0000 , 3.5000 , + $ 3.3000 , 3.1000 , 3.1000 , 3.0000 , 2.5000 , + $ 3.0000 / +C K(0) LONG + DATA (CSEL(12,J),J=1,41) / + $ 160.83 , 82.800 , 58.575 , 43.683 , 34.792 , + $ 28.650 , 24.367 , 20.917 , 18.192 , 16.300 , + $ 14.608 , 13.017 , 12.250 , 11.700 , 12.017 , + $ 14.075 , 15.842 , 16.433 , 16.042 , 15.008 , + $ 12.575 , 10.708 , 9.2000 , 8.0167 , 7.2833 , + $ 7.0750 , 6.6333 , 6.1250 , 5.6583 , 5.2750 , + $ 4.9333 , 4.6250 , 4.4583 , 3.7333 , 3.3833 , + $ 3.1833 , 2.9833 , 2.7500 , 2.3667 , 2.2000 , + $ 2.6000 / +C K(-) + DATA (CSEL(13,J),J=1,41) / + $ 300.00 , 140.00 , 97.000 , 70.000 , 55.000 , + $ 45.000 , 37.000 , 31.000 , 26.000 , 23.000 , + $ 20.000 , 17.000 , 15.500 , 14.500 , 14.700 , + $ 18.500 , 22.000 , 23.000 , 22.500 , 20.700 , + $ 16.500 , 14.000 , 11.500 , 9.6000 , 8.6000 , + $ 8.5000 , 8.3000 , 7.6000 , 7.0000 , 6.4000 , + $ 5.9000 , 5.5000 , 5.3000 , 4.4000 , 4.1000 , + $ 3.9000 , 3.7000 , 3.3000 , 2.6000 , 2.5000 , + $ 3.0000 / +C PROTON + DATA (CSEL(14,J),J=1,41) / + $ 1100.0 , 115.00 , 105.00 , 100.00 , 56.000 , + $ 40.000 , 27.000 , 22.000 , 21.000 , 20.000 , + $ 20.000 , 20.000 , 20.500 , 21.000 , 22.000 , + $ 23.000 , 24.000 , 24.000 , 24.400 , 24.500 , + $ 25.000 , 25.500 , 26.000 , 26.500 , 27.000 , + $ 27.000 , 26.000 , 23.000 , 21.500 , 20.000 , + $ 19.000 , 18.000 , 17.000 , 13.000 , 11.500 , + $ 10.300 , 9.4000 , 9.0000 , 8.8000 , 7.0000 , + $ 7.5000 / +C PROTON_BAR + DATA (CSEL(15,J),J=1,41) / + $ 200.00 , 163.00 , 141.00 , 120.00 , 111.00 , + $ 99.500 , 92.500 , 86.500 , 82.000 , 78.000 , + $ 74.000 , 71.000 , 67.500 , 65.000 , 62.500 , + $ 59.700 , 58.100 , 56.300 , 54.700 , 52.700 , + $ 50.000 , 48.400 , 47.000 , 46.000 , 45.200 , + $ 42.800 , 39.200 , 36.300 , 32.800 , 30.400 , + $ 28.100 , 26.300 , 24.500 , 19.250 , 16.840 , + $ 14.600 , 12.340 , 11.210 , 8.8500 , 7.5000 , + $ 7.5000 / +C NEUTRON + DATA (CSEL(16,J),J=1,41) / + $ 4200.0 , 440.00 , 420.00 , 400.00 , 230.00 , + $ 160.00 , 105.00 , 80.000 , 62.000 , 50.000 , + $ 45.000 , 41.000 , 38.000 , 36.000 , 35.000 , + $ 34.000 , 33.000 , 32.000 , 31.500 , 31.000 , + $ 30.500 , 30.000 , 29.500 , 29.000 , 28.500 , + $ 28.000 , 26.000 , 23.000 , 21.500 , 20.000 , + $ 19.000 , 18.000 , 17.000 , 13.000 , 11.500 , + $ 10.300 , 9.4000 , 9.0000 , 8.8000 , 7.0000 , + $ 7.5000 / +C NEUTRON_BAR + DATA (CSEL(17,J),J=1,41) / + $ 185.88 , 133.23 , 119.37 , 102.86 , 93.102 , + $ 82.752 , 76.205 , 71.008 , 67.366 , 64.096 , + $ 60.891 , 58.501 , 55.735 , 53.773 , 51.839 , + $ 49.671 , 48.485 , 47.045 , 45.803 , 44.306 , + $ 42.623 , 41.786 , 41.115 , 40.630 , 40.129 , + $ 38.242 , 35.233 , 32.662 , 29.639 , 27.573 , + $ 25.536 , 23.948 , 22.356 , 17.723 , 15.614 , + $ 13.653 , 11.675 , 10.653 , 8.6198 , 7.4464 , + $ 7.4821 / +C LAMBDA + DATA (CSEL(18,J),J=1,41) / + $ 1100.0 , 115.00 , 105.00 , 100.00 , 56.000 , + $ 40.000 , 27.000 , 22.000 , 21.000 , 20.000 , + $ 20.000 , 19.067 , 19.333 , 19.500 , 19.833 , + $ 20.567 , 21.800 , 22.900 , 23.869 , 23.809 , + $ 22.161 , 21.488 , 19.732 , 19.433 , 19.345 , + $ 19.029 , 18.121 , 16.280 , 15.258 , 14.280 , + $ 13.644 , 12.963 , 12.316 , 9.5333 , 8.4333 , + $ 7.5728 , 6.9696 , 6.7518 , 6.6175 , 5.6000 , + $ 6.1145 / +C LAMBDA_BAR + DATA (CSEL(19,J),J=1,41) / + $ 157.65 , 73.701 , 76.096 , 68.571 , 57.305 , + $ 49.257 , 43.616 , 40.024 , 38.098 , 36.287 , + $ 34.674 , 33.105 , 31.712 , 30.685 , 29.613 , + $ 28.602 , 28.336 , 28.075 , 27.786 , 27.215 , + $ 26.380 , 26.146 , 25.108 , 24.783 , 24.360 , + $ 23.219 , 21.431 , 20.095 , 18.382 , 17.267 , + $ 16.100 , 15.175 , 14.271 , 11.573 , 10.305 , + $ 9.1471 , 8.0149 , 7.4349 , 6.2499 , 5.8928 , + $ 6.0774 / +C SIGMA(+) + DATA (CSEL(20,J),J=1,41) / + $ 1100.0 , 115.00 , 105.00 , 100.00 , 56.000 , + $ 40.000 , 27.000 , 22.000 , 21.000 , 20.000 , + $ 20.000 , 19.067 , 19.333 , 19.500 , 19.833 , + $ 20.567 , 21.800 , 22.900 , 23.869 , 23.809 , + $ 22.161 , 21.488 , 19.732 , 19.433 , 19.345 , + $ 19.029 , 18.121 , 16.280 , 15.258 , 14.280 , + $ 13.644 , 12.963 , 12.316 , 9.5333 , 8.4333 , + $ 7.5728 , 6.9696 , 6.7518 , 6.6175 , 5.6000 , + $ 6.1145 / +C SIGMA(-) + DATA (CSEL(22,J),J=1,41) / + $ 1100.0 , 115.00 , 105.00 , 100.00 , 56.000 , + $ 40.000 , 27.000 , 22.000 , 21.000 , 20.000 , + $ 20.000 , 19.067 , 19.333 , 19.500 , 19.833 , + $ 20.567 , 21.800 , 22.900 , 23.869 , 23.809 , + $ 22.161 , 21.488 , 19.732 , 19.433 , 19.345 , + $ 19.029 , 18.121 , 16.280 , 15.258 , 14.280 , + $ 13.644 , 12.963 , 12.316 , 9.5333 , 8.4333 , + $ 7.5728 , 6.9696 , 6.7518 , 6.6175 , 5.6000 , + $ 6.1145 / +C SIGMA(+)_BAR + DATA (CSEL(23,J),J=1,41) / + $ 185.88 , 133.23 , 119.37 , 102.86 , 93.102 , + $ 82.752 , 76.205 , 71.008 , 67.366 , 64.096 , + $ 60.891 , 58.104 , 55.241 , 53.140 , 50.934 , + $ 48.660 , 47.566 , 46.585 , 45.581 , 44.003 , + $ 41.134 , 39.374 , 36.878 , 35.523 , 34.503 , + $ 32.334 , 29.365 , 27.370 , 24.705 , 22.921 , + $ 21.229 , 19.879 , 18.559 , 14.625 , 12.758 , + $ 11.041 , 9.3440 , 8.5484 , 6.7104 , 6.0000 , + $ 6.1131 / +C SIGMA(-)_BAR + DATA (CSEL(25,J),J=1,41) / + $ 157.65 , 73.701 , 76.096 , 68.571 , 57.305 , + $ 49.257 , 43.616 , 40.024 , 38.098 , 36.287 , + $ 34.674 , 33.105 , 31.712 , 30.685 , 29.613 , + $ 28.602 , 28.336 , 28.075 , 27.786 , 27.215 , + $ 26.380 , 26.146 , 25.108 , 24.783 , 24.360 , + $ 23.219 , 21.431 , 20.095 , 18.382 , 17.267 , + $ 16.100 , 15.175 , 14.271 , 11.573 , 10.305 , + $ 9.1471 , 8.0149 , 7.4349 , 6.2499 , 5.8928 , + $ 6.0774 / +C XI(0) + DATA (CSEL(26,J),J=1,41) / + $ 1100.0 , 115.00 , 105.00 , 100.00 , 56.000 , + $ 40.000 , 27.000 , 22.000 , 21.000 , 20.000 , + $ 20.000 , 18.133 , 18.167 , 18.000 , 17.667 , + $ 18.133 , 19.600 , 21.800 , 23.338 , 23.118 , + $ 19.323 , 17.476 , 13.464 , 12.367 , 11.691 , + $ 11.057 , 10.242 , 9.5593 , 9.0151 , 8.5591 , + $ 8.2884 , 7.9253 , 7.6311 , 6.0667 , 5.3667 , + $ 4.8456 , 4.5392 , 4.5036 , 4.4351 , 4.2000 , + $ 4.7289 / +C XI(-) + DATA (CSEL(27,J),J=1,41) / + $ 1100.0 , 115.00 , 105.00 , 100.00 , 56.000 , + $ 40.000 , 27.000 , 22.000 , 21.000 , 20.000 , + $ 20.000 , 18.133 , 18.167 , 18.000 , 17.667 , + $ 18.133 , 19.600 , 21.800 , 23.338 , 23.118 , + $ 19.323 , 17.476 , 13.464 , 12.367 , 11.691 , + $ 11.057 , 10.242 , 9.5593 , 9.0151 , 8.5591 , + $ 8.2884 , 7.9253 , 7.6311 , 6.0667 , 5.3667 , + $ 4.8456 , 4.5392 , 4.5036 , 4.4351 , 4.2000 , + $ 4.7289 / +C XI(0)_BAR + DATA (CSEL(28,J),J=1,41) / + $ 157.65 , 73.701 , 76.096 , 68.571 , 57.305 , + $ 49.257 , 43.616 , 40.024 , 38.098 , 36.287 , + $ 34.674 , 32.708 , 31.218 , 30.052 , 28.707 , + $ 27.591 , 27.417 , 27.615 , 27.564 , 26.913 , + $ 24.891 , 23.734 , 20.871 , 19.677 , 18.734 , + $ 17.311 , 15.563 , 14.803 , 13.448 , 12.615 , + $ 11.794 , 11.106 , 10.474 , 8.4745 , 7.4498 , + $ 6.5350 , 5.6835 , 5.3300 , 4.3406 , 4.4464 , + $ 4.7083 / +C XI(-)_BAR + DATA (CSEL(29,J),J=1,41) / + $ 143.53 , 43.935 , 54.462 , 51.429 , 39.407 , + $ 32.510 , 27.321 , 24.532 , 23.465 , 22.383 , + $ 21.566 , 20.209 , 19.453 , 18.825 , 18.046 , + $ 17.562 , 17.802 , 18.360 , 18.667 , 18.519 , + $ 17.514 , 17.120 , 14.985 , 14.306 , 13.663 , + $ 12.753 , 11.596 , 11.165 , 10.287 , 9.7882 , + $ 9.2294 , 8.7539 , 8.3300 , 6.9480 , 6.2234 , + $ 5.5881 , 5.0189 , 4.7733 , 4.1104 , 4.3929 , + $ 4.6905 / +C OMEGA(-) + DATA (CSEL(33,J),J=1,41) / + $ 1100.0 , 115.00 , 105.00 , 100.00 , 56.000 , + $ 40.000 , 27.000 , 22.000 , 21.000 , 20.000 , + $ 20.000 , 18.133 , 18.167 , 18.000 , 17.667 , + $ 18.133 , 19.600 , 21.800 , 23.338 , 23.118 , + $ 19.323 , 17.476 , 13.464 , 12.367 , 11.691 , + $ 11.057 , 10.242 , 9.5593 , 9.0151 , 8.5591 , + $ 8.2884 , 7.9253 , 7.6311 , 6.0667 , 5.3667 , + $ 4.8456 , 4.5392 , 4.5036 , 4.4351 , 4.2000 , + $ 4.7289 / +C OMEGA(-)_BAR + DATA (CSEL(34,J),J=1,41) / + $ 143.53 , 43.935 , 54.462 , 51.429 , 39.407 , + $ 32.510 , 27.321 , 24.532 , 23.465 , 22.383 , + $ 21.566 , 20.209 , 19.453 , 18.825 , 18.046 , + $ 17.562 , 17.802 , 18.360 , 18.667 , 18.519 , + $ 17.514 , 17.120 , 14.985 , 14.306 , 13.663 , + $ 12.753 , 11.596 , 11.165 , 10.287 , 9.7882 , + $ 9.2294 , 8.7539 , 8.3300 , 6.9480 , 6.2234 , + $ 5.5881 , 5.0189 , 4.7733 , 4.1104 , 4.3929 , + $ 4.6905 / + +C INELASTIC CROSS-SECTIONS ON FREE PROTONS +C GAMMA, NEUTRINO, POSITRON, ELECTRON, MU(+), MU(-) + DATA ((CSIN(I,J),I=1,6),J=1,41) / 246 * 0. / +C PI(0) + DATA (CSIN( 8,J),J=1,41) / 41 * 0. / +C SIGMA(0) + DATA (CSIN(21,J),J=1,41) / 41 * 0. / +C SIGMA(0)_BAR + DATA (CSIN(24,J),J=1,41) / 41 * 0. / +C DEUTERIUM, TRITIUM, ALPHA + DATA ((CSIN(I,J),I=30,32),J=1,41) / 123 * 0. / +C NEW PARTICLES + DATA (CSIN(35,J),J=1,41) / 41 * 0. / +C PI(+) + DATA (CSIN( 7,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.50000 , 1.2000 , 1.7000 , + $ 2.2500 , 3.0000 , 3.6000 , 4.5000 , 5.4000 , + $ 6.3000 , 8.6000 , 9.0000 , 10.000 , 11.500 , + $ 14.000 , 17.000 , 19.500 , 22.000 , 24.000 , + $ 21.500 , 18.500 , 19.000 , 20.500 , 22.200 , + $ 23.000 , 23.300 , 23.000 , 21.000 , 20.500 , + $ 20.200 , 20.100 , 20.000 , 20.000 , 20.000 , + $ 21.000 / +C PI(-) + DATA (CSIN( 9,J),J=1,41) / + $ 0.00000E+00, 3.0000 , 9.2000 , 20.500 , 36.500 , + $ 45.000 , 28.000 , 19.500 , 15.500 , 14.200 , + $ 15.500 , 17.500 , 20.000 , 23.000 , 26.000 , + $ 20.000 , 23.000 , 26.500 , 32.000 , 35.000 , + $ 28.500 , 22.000 , 22.500 , 23.500 , 24.000 , + $ 24.500 , 26.000 , 27.500 , 27.500 , 27.000 , + $ 26.500 , 25.500 , 25.000 , 23.000 , 22.500 , + $ 22.200 , 22.000 , 22.000 , 21.200 , 20.700 , + $ 21.000 / +C K(+) + DATA (CSIN(10,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.50000 , 1.5000 , 2.7000 , 3.8000 , 4.8000 , + $ 6.5000 , 7.6000 , 8.4000 , 9.0000 , 9.4000 , + $ 9.8000 , 10.500 , 11.000 , 11.500 , 11.800 , + $ 12.200 , 12.400 , 12.600 , 13.200 , 13.500 , + $ 13.700 , 14.000 , 14.200 , 14.500 , 16.400 , + $ 17.000 / +C K(0) SHORT + DATA (CSIN(11,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.50000 , 1.5000 , 2.7000 , 3.8000 , 4.8000 , + $ 6.5000 , 7.6000 , 8.4000 , 9.0000 , 9.4000 , + $ 9.8000 , 10.500 , 11.000 , 11.500 , 11.800 , + $ 12.200 , 12.400 , 12.600 , 13.200 , 13.500 , + $ 13.700 , 14.000 , 14.200 , 14.500 , 16.400 , + $ 17.000 / +C K(0) LONG + DATA (CSIN(12,J),J=1,41) / + $ 266.67 , 133.33 , 83.333 , 57.083 , 44.500 , + $ 33.250 , 24.583 , 20.833 , 18.333 , 16.083 , + $ 15.625 , 15.083 , 14.833 , 15.083 , 15.833 , + $ 17.042 , 18.958 , 20.758 , 22.533 , 22.825 , + $ 21.250 , 18.567 , 17.767 , 18.100 , 19.933 , + $ 20.783 , 21.225 , 21.000 , 20.558 , 20.258 , + $ 20.017 , 19.767 , 19.600 , 19.183 , 18.850 , + $ 18.575 , 18.350 , 18.175 , 17.808 , 17.558 , + $ 19.250 / +C K(-) + DATA (CSIN(13,J),J=1,41) / + $ 400.00 , 200.00 , 120.00 , 81.000 , 62.000 , + $ 47.000 , 35.000 , 28.000 , 24.000 , 21.000 , + $ 19.500 , 19.000 , 18.800 , 19.000 , 20.000 , + $ 21.000 , 23.000 , 25.000 , 27.000 , 27.500 , + $ 25.500 , 22.000 , 20.800 , 21.000 , 23.000 , + $ 24.000 , 24.000 , 23.800 , 23.000 , 22.500 , + $ 22.000 , 21.600 , 21.400 , 21.000 , 20.500 , + $ 20.200 , 19.800 , 19.500 , 18.600 , 17.500 , + $ 20.000 / +C PROTON + DATA (CSIN(14,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.10000 , 1.5000 , + $ 7.0000 , 12.000 , 17.000 , 19.500 , 20.500 , + $ 22.000 , 23.500 , 24.800 , 25.800 , 26.500 , + $ 27.000 , 27.500 , 28.000 , 30.000 , 31.000 , + $ 32.000 , 32.500 , 32.500 , 33.000 , 33.500 , + $ 34.000 / +C PROTON_BAR + DATA (CSIN(15,J),J=1,41) / + $ 1500.0 , 1160.0 , 310.00 , 230.00 , 178.00 , + $ 153.00 , 134.00 , 124.00 , 113.00 , 106.00 , + $ 101.00 , 96.000 , 92.000 , 89.000 , 87.000 , + $ 84.000 , 81.000 , 78.500 , 76.500 , 75.000 , + $ 72.000 , 70.000 , 68.000 , 64.500 , 63.000 , + $ 62.000 , 61.000 , 59.500 , 58.500 , 56.500 , + $ 56.500 , 56.000 , 55.500 , 52.000 , 50.000 , + $ 48.000 , 45.000 , 44.000 , 39.200 , 34.500 , + $ 34.500 / +C NEUTRON + DATA (CSIN(16,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.10000 , 1.5000 , + $ 7.0000 , 12.000 , 17.000 , 19.500 , 20.500 , + $ 22.000 , 23.500 , 24.800 , 25.800 , 26.500 , + $ 27.000 , 27.500 , 28.000 , 30.000 , 31.000 , + $ 32.000 , 32.500 , 32.500 , 33.000 , 33.500 , + $ 34.000 / +C NEUTRON_BAR + DATA (CSIN(17,J),J=1,41) / + $ 1394.1 , 948.17 , 262.43 , 197.14 , 149.30 , + $ 127.25 , 110.39 , 101.79 , 92.834 , 87.104 , + $ 83.109 , 79.099 , 75.965 , 73.627 , 72.161 , + $ 69.889 , 67.595 , 65.595 , 64.057 , 63.054 , + $ 61.377 , 60.434 , 59.485 , 56.970 , 55.931 , + $ 55.398 , 54.827 , 53.538 , 52.861 , 51.247 , + $ 51.344 , 50.992 , 50.644 , 47.876 , 46.358 , + $ 44.887 , 42.577 , 41.815 , 38.180 , 34.254 , + $ 34.418 / +C LAMBDA + DATA (CSIN(18,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.97815E-01, 1.4577 , + $ 6.2052 , 10.112 , 12.902 , 14.300 , 14.688 , + $ 15.505 , 16.379 , 17.554 , 18.309 , 18.920 , + $ 19.389 , 19.804 , 20.284 , 22.000 , 22.733 , + $ 23.527 , 24.097 , 24.382 , 24.816 , 26.800 , + $ 27.719 / +C LAMBDA_BAR + DATA (CSIN(19,J),J=1,41) / + $ 1182.4 , 524.50 , 167.30 , 131.43 , 91.895 , + $ 75.743 , 63.184 , 57.376 , 52.502 , 49.313 , + $ 47.326 , 44.762 , 43.222 , 42.015 , 41.221 , + $ 40.244 , 39.504 , 39.145 , 38.860 , 38.731 , + $ 37.987 , 37.814 , 36.326 , 34.750 , 33.953 , + $ 33.635 , 33.349 , 32.938 , 32.785 , 32.092 , + $ 32.373 , 32.312 , 32.329 , 31.261 , 30.597 , + $ 30.073 , 29.228 , 29.182 , 27.683 , 27.107 , + $ 27.956 / +C SIGMA(+) + DATA (CSIN(20,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.97815E-01, 1.4577 , + $ 6.2052 , 10.112 , 12.902 , 14.300 , 14.688 , + $ 15.505 , 16.379 , 17.554 , 18.309 , 18.920 , + $ 19.389 , 19.804 , 20.284 , 22.000 , 22.733 , + $ 23.527 , 24.097 , 24.382 , 24.816 , 26.800 , + $ 27.719 / +C SIGMA(-) + DATA (CSIN(22,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.97815E-01, 1.4577 , + $ 6.2052 , 10.112 , 12.902 , 14.300 , 14.688 , + $ 15.505 , 16.379 , 17.554 , 18.309 , 18.920 , + $ 19.389 , 19.804 , 20.284 , 22.000 , 22.733 , + $ 23.527 , 24.097 , 24.382 , 24.816 , 26.800 , + $ 27.719 / +C SIGMA(+)_BAR + DATA (CSIN(23,J),J=1,41) / + $ 1394.1 , 948.17 , 262.43 , 197.14 , 149.30 , + $ 127.25 , 110.39 , 101.79 , 92.834 , 87.104 , + $ 83.109 , 78.563 , 75.292 , 72.760 , 70.900 , + $ 68.467 , 66.314 , 64.955 , 63.746 , 62.623 , + $ 59.233 , 56.946 , 53.355 , 49.810 , 48.090 , + $ 46.839 , 45.695 , 44.863 , 44.062 , 42.599 , + $ 42.684 , 42.328 , 42.041 , 39.508 , 37.880 , + $ 36.299 , 34.075 , 33.553 , 29.723 , 27.600 , + $ 28.120 / +C SIGMA(-)_BAR + DATA (CSIN(25,J),J=1,41) / + $ 1182.4 , 524.50 , 167.30 , 131.43 , 91.895 , + $ 75.743 , 63.184 , 57.376 , 52.502 , 49.313 , + $ 47.326 , 44.762 , 43.222 , 42.015 , 41.221 , + $ 40.244 , 39.504 , 39.145 , 38.860 , 38.731 , + $ 37.987 , 37.814 , 36.326 , 34.750 , 33.953 , + $ 33.635 , 33.349 , 32.938 , 32.785 , 32.092 , + $ 32.373 , 32.312 , 32.329 , 31.261 , 30.597 , + $ 30.073 , 29.228 , 29.182 , 27.683 , 27.107 , + $ 27.956 / +C XI(0) + DATA (CSIN(26,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.95639E-01, 1.4154 , + $ 5.4104 , 8.2240 , 8.8031 , 9.1000 , 8.8761 , + $ 9.0095 , 9.2576 , 10.307 , 10.818 , 11.341 , + $ 11.778 , 12.108 , 12.569 , 14.000 , 14.467 , + $ 15.054 , 15.694 , 16.263 , 16.632 , 20.100 , + $ 21.438 / +C XI(-) + DATA (CSIN(27,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.95639E-01, 1.4154 , + $ 5.4104 , 8.2240 , 8.8031 , 9.1000 , 8.8761 , + $ 9.0095 , 9.2576 , 10.307 , 10.818 , 11.341 , + $ 11.778 , 12.108 , 12.569 , 14.000 , 14.467 , + $ 15.054 , 15.694 , 16.263 , 16.632 , 20.100 , + $ 21.438 / +C XI(0)_BAR + DATA (CSIN(28,J),J=1,41) / + $ 1182.4 , 524.50 , 167.30 , 131.43 , 91.895 , + $ 75.743 , 63.184 , 57.376 , 52.502 , 49.313 , + $ 47.326 , 44.225 , 42.549 , 41.148 , 39.960 , + $ 38.822 , 38.223 , 38.505 , 38.549 , 38.301 , + $ 35.843 , 34.326 , 30.196 , 27.590 , 26.112 , + $ 25.076 , 24.217 , 24.264 , 23.985 , 23.445 , + $ 23.713 , 23.647 , 23.726 , 22.892 , 22.119 , + $ 21.485 , 20.726 , 20.921 , 19.226 , 20.454 , + $ 21.658 / +C XI(-)_BAR + DATA (CSIN(29,J),J=1,41) / + $ 1076.5 , 312.66 , 119.74 , 98.571 , 63.193 , + $ 49.990 , 39.579 , 35.168 , 32.335 , 30.417 , + $ 29.434 , 27.325 , 26.514 , 25.775 , 25.120 , + $ 24.711 , 24.818 , 25.600 , 26.106 , 26.355 , + $ 25.220 , 24.760 , 21.681 , 20.060 , 19.044 , + $ 18.474 , 18.044 , 18.301 , 18.347 , 18.192 , + $ 18.557 , 18.639 , 18.870 , 18.769 , 18.478 , + $ 18.372 , 18.302 , 18.735 , 18.206 , 20.207 , + $ 21.576 / +C OMEGA(-) + DATA (CSIN(33,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.95639E-01, 1.4154 , + $ 5.4104 , 8.2240 , 8.8031 , 9.1000 , 8.8761 , + $ 9.0095 , 9.2576 , 10.307 , 10.818 , 11.341 , + $ 11.778 , 12.108 , 12.569 , 14.000 , 14.467 , + $ 15.054 , 15.694 , 16.263 , 16.632 , 20.100 , + $ 21.438 / +C OMEGA(-)_BAR + DATA (CSIN(34,J),J=1,41) / + $ 1076.5 , 312.66 , 119.74 , 98.571 , 63.193 , + $ 49.990 , 39.579 , 35.168 , 32.335 , 30.417 , + $ 29.434 , 27.325 , 26.514 , 25.775 , 25.120 , + $ 24.711 , 24.818 , 25.600 , 26.106 , 26.355 , + $ 25.220 , 24.760 , 21.681 , 20.060 , 19.044 , + $ 18.474 , 18.044 , 18.301 , 18.347 , 18.192 , + $ 18.557 , 18.639 , 18.870 , 18.769 , 18.478 , + $ 18.372 , 18.302 , 18.735 , 18.206 , 20.207 , + $ 21.576 / + +C ELASTIC CROSS-SECTION FOR MEDI WITH PIONS +C ALUMINIUM + DATA (CSPIEL( 1,J),J=1,41) / + $ 0.00000E+00, 350.00 , 580.00 , 600.00 , 550.00 , + $ 450.00 , 410.00 , 370.00 , 340.00 , 230.00 , + $ 220.00 , 205.00 , 180.00 , 155.00 , 145.00 , + $ 140.00 , 160.00 , 195.00 , 235.00 , 250.00 , + $ 270.00 , 280.00 , 300.00 , 300.00 , 290.00 , + $ 285.00 , 265.00 , 240.00 , 230.00 , 222.00 , + $ 204.00 , 196.00 , 190.00 , 170.00 , 170.00 , + $ 160.00 , 150.00 , 140.00 , 120.00 , 80.000 , + $ 80.000 / +C COPPER + DATA (CSPIEL( 2,J),J=1,41) / + $ 0.00000E+00, 700.00 , 1000.0 , 1200.0 , 1300.0 , + $ 1300.0 , 1250.0 , 1250.0 , 1100.0 , 1000.0 , + $ 940.00 , 740.00 , 700.00 , 670.00 , 660.00 , + $ 670.00 , 680.00 , 700.00 , 735.00 , 800.00 , + $ 810.00 , 820.00 , 820.00 , 810.00 , 800.00 , + $ 800.00 , 700.00 , 600.00 , 500.00 , 470.00 , + $ 440.00 , 410.00 , 380.00 , 330.00 , 330.00 , + $ 330.00 , 330.00 , 330.00 , 285.00 , 240.00 , + $ 240.00 / +C LEAD + DATA (CSPIEL( 3,J),J=1,41) / + $ 0.00000E+00, 1700.0 , 2200.0 , 2200.0 , 1800.0 , + $ 1300.0 , 1200.0 , 900.00 , 900.00 , 1000.0 , + $ 1100.0 , 1300.0 , 1400.0 , 1420.0 , 1490.0 , + $ 1560.0 , 1580.0 , 1690.0 , 1795.0 , 2000.0 , + $ 2070.0 , 2140.0 , 2050.0 , 2010.0 , 1970.0 , + $ 1880.0 , 1690.0 , 1500.0 , 1420.0 , 1390.0 , + $ 1350.0 , 1360.0 , 1370.0 , 1280.0 , 1290.0 , + $ 1295.0 , 1250.0 , 1200.0 , 1050.0 , 900.00 , + $ 900.00 / +C INELASTIC CROSS-SECTION FOR MEDIA WITH PIONS +C ALIMINUIM + DATA (CSPIIN( 1,J),J=1,41) / + $ 0.00000E+00, 200.00 , 320.00 , 500.00 , 600.00 , + $ 600.00 , 590.00 , 530.00 , 510.00 , 470.00 , + $ 430.00 , 425.00 , 420.00 , 425.00 , 425.00 , + $ 430.00 , 430.00 , 435.00 , 435.00 , 440.00 , + $ 430.00 , 430.00 , 420.00 , 420.00 , 420.00 , + $ 415.00 , 415.00 , 410.00 , 410.00 , 408.00 , + $ 406.00 , 404.00 , 400.00 , 380.00 , 340.00 , + $ 340.00 , 340.00 , 340.00 , 340.00 , 340.00 , + $ 340.00 / +C COPPER + DATA (CSPIIN( 2,J),J=1,41) / + $ 0.00000E+00, 400.00 , 800.00 , 1000.0 , 1100.0 , + $ 1200.0 , 1150.0 , 1050.0 , 1000.0 , 900.00 , + $ 860.00 , 860.00 , 850.00 , 850.00 , 840.00 , + $ 830.00 , 820.00 , 810.00 , 805.00 , 800.00 , + $ 800.00 , 800.00 , 800.00 , 800.00 , 800.00 , + $ 800.00 , 800.00 , 800.00 , 800.00 , 780.00 , + $ 760.00 , 740.00 , 720.00 , 720.00 , 700.00 , + $ 690.00 , 680.00 , 670.00 , 665.00 , 660.00 , + $ 660.00 / +C LEAD + DATA (CSPIIN( 3,J),J=1,41) / + $ 0.00000E+00, 1000.0 , 1900.0 , 2600.0 , 2900.0 , + $ 3000.0 , 2800.0 , 2600.0 , 2500.0 , 2300.0 , + $ 2200.0 , 2000.0 , 1900.0 , 1880.0 , 1860.0 , + $ 1840.0 , 1820.0 , 1810.0 , 1805.0 , 1800.0 , + $ 1780.0 , 1760.0 , 1750.0 , 1740.0 , 1730.0 , + $ 1720.0 , 1710.0 , 1700.0 , 1680.0 , 1660.0 , + $ 1650.0 , 1640.0 , 1630.0 , 1620.0 , 1610.0 , + $ 1605.0 , 1600.0 , 1600.0 , 1550.0 , 1500.0 , + $ 1500.0 / +C ELASTIC CROSS-SECTION FOR MEDI WITH NUCLEONS +C ALUMINIUM + DATA (CSPNEL( 1,J),J=1,41) / + $ 2100.0 , 1800.0 , 1500.0 , 1050.0 , 900.00 , + $ 950.00 , 800.00 , 650.00 , 570.00 , 390.00 , + $ 300.00 , 240.00 , 230.00 , 230.00 , 220.00 , + $ 220.00 , 225.00 , 225.00 , 240.00 , 240.00 , + $ 290.00 , 330.00 , 335.00 , 350.00 , 355.00 , + $ 370.00 , 350.00 , 330.00 , 310.00 , 290.00 , + $ 270.00 , 265.00 , 260.00 , 230.00 , 210.00 , + $ 210.00 , 200.00 , 200.00 , 190.00 , 180.00 , + $ 180.00 / +C COPPER + DATA (CSPNEL( 2,J),J=1,41) / + $ 3800.0 , 2900.0 , 1850.0 , 1550.0 , 1450.0 , + $ 1520.0 , 1460.0 , 1300.0 , 1140.0 , 880.00 , + $ 700.00 , 620.00 , 540.00 , 560.00 , 460.00 , + $ 460.00 , 470.00 , 470.00 , 480.00 , 480.00 , + $ 580.00 , 600.00 , 610.00 , 620.00 , 620.00 , + $ 620.00 , 590.00 , 580.00 , 460.00 , 440.00 , + $ 420.00 , 400.00 , 480.00 , 430.00 , 380.00 , + $ 380.00 , 380.00 , 380.00 , 380.00 , 380.00 , + $ 380.00 / +C LEAD + DATA (CSPNEL( 3,J),J=1,41) / + $ 7000.0 , 6000.0 , 4500.0 , 3350.0 , 2700.0 , + $ 3000.0 , 3550.0 , 3970.0 , 3280.0 , 2490.0 , + $ 2100.0 , 1510.0 , 1440.0 , 1370.0 , 1370.0 , + $ 1370.0 , 1400.0 , 1400.0 , 1420.0 , 1420.0 , + $ 1440.0 , 1460.0 , 1460.0 , 1450.0 , 1450.0 , + $ 1470.0 , 1400.0 , 1400.0 , 1380.0 , 1370.0 , + $ 1360.0 , 1350.0 , 1340.0 , 1330.0 , 1320.0 , + $ 1310.0 , 1305.0 , 1300.0 , 1300.0 , 1300.0 , + $ 1300.0 / +C INELASTIC CROSS-SECTION FOR MEDI WITH NUCLEONS +C ALUMINIUM + DATA (CSPNIN( 1,J),J=1,41) / + $ 0.00000E+00, 200.00 , 400.00 , 800.00 , 800.00 , + $ 550.00 , 500.00 , 450.00 , 430.00 , 410.00 , + $ 400.00 , 390.00 , 380.00 , 370.00 , 370.00 , + $ 370.00 , 365.00 , 365.00 , 360.00 , 360.00 , + $ 360.00 , 360.00 , 365.00 , 370.00 , 375.00 , + $ 380.00 , 400.00 , 410.00 , 420.00 , 430.00 , + $ 440.00 , 440.00 , 440.00 , 440.00 , 440.00 , + $ 440.00 , 440.00 , 440.00 , 440.00 , 440.00 , + $ 440.00 / +C COPPER + DATA (CSPNIN( 2,J),J=1,41) / + $ 0.00000E+00, 400.00 , 950.00 , 1050.0 , 1050.0 , + $ 980.00 , 940.00 , 900.00 , 860.00 , 820.00 , + $ 800.00 , 780.00 , 760.00 , 740.00 , 740.00 , + $ 740.00 , 730.00 , 730.00 , 720.00 , 720.00 , + $ 720.00 , 720.00 , 730.00 , 740.00 , 750.00 , + $ 760.00 , 800.00 , 820.00 , 820.00 , 820.00 , + $ 820.00 , 820.00 , 820.00 , 820.00 , 820.00 , + $ 820.00 , 820.00 , 820.00 , 820.00 , 820.00 , + $ 820.00 / +C LEAD + DATA (CSPNIN( 3,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 500.00 , 1450.0 , 1700.0 , + $ 1800.0 , 1750.0 , 1730.0 , 1720.0 , 1710.0 , + $ 1700.0 , 1690.0 , 1660.0 , 1630.0 , 1630.0 , + $ 1630.0 , 1600.0 , 1600.0 , 1580.0 , 1580.0 , + $ 1580.0 , 1580.0 , 1600.0 , 1630.0 , 1650.0 , + $ 1670.0 , 1760.0 , 1800.0 , 1800.0 , 1800.0 , + $ 1800.0 , 1800.0 , 1800.0 , 1800.0 , 1800.0 , + $ 1800.0 , 1800.0 , 1800.0 , 1800.0 , 1800.0 , + $ 1800.0 / + DATA ELAB / + $ 0.10000E-03, 0.20000E-03, 0.30000E-03, 0.40000E-03, 0.50000E-03, + $ 0.70000E-03, 0.10000E-02, 0.20000E-02, 0.30000E-02, 0.40000E-02, + $ 0.50000E-02, 0.70000E-02, 0.10000E-01, 0.15000E-01, 0.20000E-01, + $ 0.25000E-01, 0.32700E-01/ +C TABLES FOR VARIOUS ATOMIC WEIGHTS + DATA CNLWAT / + $ 1.0000 , 16.000 , 27.000 , 56.000 , 59.000 , + $ 64.000 , 91.000 , 112.00 , 119.00 , 127.00 , + $ 137.00 , 181.00 , 207.00 , 209.00 , 238.00 / + DATA (CNLWEL( 1,J),J=1,17) / + $ 6000.0 , 5500.0 , 5200.0 , 4900.0 , 4800.0 , + $ 4400.0 , 4000.0 , 2900.0 , 2200.0 , 1800.0 , + $ 1400.0 , 1100.0 , 900.00 , 700.00 , 600.00 , + $ 560.00 , 520.00 / + DATA (CNLWEL( 2,J),J=1,17) / + $ 5400.0 , 5050.0 , 4800.0 , 4600.0 , 4399.0 , + $ 4090.0 , 3700.0 , 2600.0 , 1950.0 , 1600.0 , + $ 1300.0 , 900.00 , 700.00 , 800.00 , 1050.0 , + $ 1250.0 , 1320.0 / + DATA (CNLWEL( 3,J),J=1,17) / + $ 5500.0 , 5150.0 , 4900.0 , 4699.0 , 4490.0 , + $ 4150.0 , 3750.0 , 2790.0 , 2100.0 , 1650.0 , + $ 1300.0 , 950.00 , 800.00 , 860.00 , 1000.0 , + $ 1090.0 , 1080.0 / + DATA (CNLWEL( 4,J),J=1,17) / + $ 5499.0 , 4970.0 , 4450.0 , 4080.0 , 3750.0 , + $ 3380.0 , 2900.0 , 2400.0 , 2380.0 , 2350.0 , + $ 2300.0 , 2100.0 , 1720.0 , 1370.0 , 1200.0 , + $ 1060.0 , 870.00 / + DATA (CNLWEL( 5,J),J=1,17) / + $ 5399.0 , 4710.0 , 4180.0 , 3760.0 , 3460.0 , + $ 3150.0 , 2730.0 , 2270.0 , 1850.0 , 1850.0 , + $ 2130.0 , 2330.0 , 2120.0 , 1640.0 , 1310.0 , + $ 1100.0 , 1050.0 / + DATA (CNLWEL( 6,J),J=1,17) / + $ 5099.0 , 4405.0 , 3825.0 , 3455.0 , 3125.0 , + $ 2695.0 , 2350.0 , 1850.0 , 1580.0 , 1820.0 , + $ 2050.0 , 2210.0 , 2000.0 , 1590.0 , 1310.0 , + $ 1120.0 , 1040.0 / + DATA (CNLWEL( 7,J),J=1,17) / + $ 6290.0 , 5960.0 , 5640.0 , 5370.0 , 5150.0 , + $ 4800.0 , 4250.0 , 3150.0 , 2470.0 , 2100.0 , + $ 2230.0 , 2420.0 , 2450.0 , 2050.0 , 1760.0 , + $ 1550.0 , 1330.0 / + DATA (CNLWEL( 8,J),J=1,17) / + $ 6885.0 , 6650.0 , 6350.0 , 6150.0 , 6000.0 , + $ 5700.0 , 5360.0 , 4250.0 , 2800.0 , 1870.0 , + $ 1810.0 , 1820.0 , 2170.0 , 2450.0 , 2150.0 , + $ 1700.0 , 1390.0 / + DATA (CNLWEL( 9,J),J=1,17) / + $ 6600.0 , 6500.0 , 6400.0 , 6249.0 , 6190.0 , + $ 5950.0 , 5520.0 , 4250.0 , 2750.0 , 1900.0 , + $ 1850.0 , 1950.0 , 2340.0 , 2800.0 , 2540.0 , + $ 2100.0 , 1760.0 / + DATA (CNLWEL(10,J),J=1,17) / + $ 7400.0 , 7200.0 , 6999.0 , 6840.0 , 6655.0 , + $ 6320.0 , 5820.0 , 4400.0 , 2850.0 , 2000.0 , + $ 1800.0 , 1800.0 , 2150.0 , 2600.0 , 2350.0 , + $ 1950.0 , 2100.0 / + DATA (CNLWEL(11,J),J=1,17) / + $ 7900.0 , 7700.0 , 7499.0 , 7390.0 , 7202.0 , + $ 6810.0 , 6360.0 , 4920.0 , 3450.0 , 2600.0 , + $ 2200.0 , 1950.0 , 2300.0 , 2800.0 , 2650.0 , + $ 2250.0 , 2050.0 / + DATA (CNLWEL(12,J),J=1,17) / + $ 7900.0 , 7750.0 , 7699.0 , 7590.0 , 7450.0 , + $ 7200.0 , 6850.0 , 5650.0 , 4400.0 , 3700.0 , + $ 3400.0 , 2800.0 , 2700.0 , 3100.0 , 3250.0 , + $ 3100.0 , 2750.0 / + DATA (CNLWEL(13,J),J=1,17) / + $ 6100.0 , 5950.0 , 5750.0 , 5599.0 , 5440.0 , + $ 5200.0 , 4800.0 , 4300.0 , 5800.0 , 5750.0 , + $ 4800.0 , 3420.0 , 2650.0 , 3200.0 , 3650.0 , + $ 3500.0 , 2980.0 / + DATA (CNLWEL(14,J),J=1,17) / + $ 6100.0 , 5950.0 , 5750.0 , 5599.0 , 5440.0 , + $ 5200.0 , 4800.0 , 4300.0 , 5800.0 , 5750.0 , + $ 4800.0 , 3420.0 , 2650.0 , 3200.0 , 3650.0 , + $ 3500.0 , 2980.0 / + DATA (CNLWEL(15,J),J=1,17) / + $ 6600.0 , 6350.0 , 6100.0 , 5899.0 , 5690.0 , + $ 5300.0 , 4850.0 , 4450.0 , 5650.0 , 5700.0 , + $ 4950.0 , 3850.0 , 3050.0 , 3050.0 , 3460.0 , + $ 3650.0 , 3340.0 / + DATA (CNLWIN( 1,J),J=1,17) / 17*0.0E+00 / + DATA (CNLWIN( 2,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.0000 , + $ 10.000 , 50.000 , 100.00 , 200.00 , 300.00 , + $ 400.00 , 600.00 , 700.00 , 750.00 , 700.00 , + $ 700.00 , 680.00 / + DATA (CNLWIN( 3,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.0000 , 10.000 , + $ 50.000 , 100.00 , 260.00 , 450.00 , 600.00 , + $ 700.00 , 800.00 , 900.00 , 940.00 , 900.00 , + $ 860.00 , 820.00 / + DATA (CNLWIN( 4,J),J=1,17) / + $ 1.0000 , 80.000 , 200.00 , 320.00 , 400.00 , + $ 520.00 , 700.00 , 1000.0 , 1120.0 , 1200.0 , + $ 1200.0 , 1200.0 , 1180.0 , 1130.0 , 1100.0 , + $ 1090.0 , 1080.0 / + DATA (CNLWIN( 5,J),J=1,17) / + $ 1.0000 , 90.000 , 220.00 , 340.00 , 420.00 , + $ 550.00 , 720.00 , 1080.0 , 1300.0 , 1400.0 , + $ 1420.0 , 1420.0 , 1380.0 , 1260.0 , 1190.0 , + $ 1150.0 , 1100.0 / + DATA (CNLWIN( 6,J),J=1,17) / + $ 1.0000 , 95.000 , 225.00 , 345.00 , 425.00 , + $ 555.00 , 750.00 , 1150.0 , 1500.0 , 1680.0 , + $ 1700.0 , 1690.0 , 1550.0 , 1360.0 , 1240.0 , + $ 1180.0 , 1120.0 / + DATA (CNLWIN( 7,J),J=1,17) / + $ 10.000 , 140.00 , 260.00 , 380.00 , 450.00 , + $ 600.00 , 750.00 , 1200.0 , 1580.0 , 1800.0 , + $ 1820.0 , 1830.0 , 1800.0 , 1750.0 , 1690.0 , + $ 1650.0 , 1620.0 / + DATA (CNLWIN( 8,J),J=1,17) / + $ 15.000 , 150.00 , 300.00 , 400.00 , 500.00 , + $ 650.00 , 840.00 , 1500.0 , 2100.0 , 2130.0 , + $ 2140.0 , 2130.0 , 2080.0 , 2000.0 , 1950.0 , + $ 1900.0 , 1860.0 / + DATA (CNLWIN( 9,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.0000 , 10.000 , + $ 150.00 , 380.00 , 1000.0 , 1650.0 , 2100.0 , + $ 2100.0 , 2100.0 , 2060.0 , 1950.0 , 1860.0 , + $ 1800.0 , 1740.0 / + DATA (CNLWIN(10,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 1.0000 , 10.000 , 45.000 , + $ 180.00 , 380.00 , 1050.0 , 1900.0 , 2300.0 , + $ 2300.0 , 2200.0 , 2150.0 , 2000.0 , 1900.0 , + $ 1800.0 , 1750.0 / + DATA (CNLWIN(11,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 1.0000 , 10.000 , 48.000 , + $ 190.00 , 390.00 , 1080.0 , 2000.0 , 2400.0 , + $ 2400.0 , 2300.0 , 2200.0 , 2100.0 , 1950.0 , + $ 1850.0 , 1800.0 / + DATA (CNLWIN(12,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 1.0000 , 10.000 , 50.000 , + $ 200.00 , 400.00 , 1100.0 , 2100.0 , 2500.0 , + $ 2500.0 , 2450.0 , 2300.0 , 2100.0 , 2000.0 , + $ 1900.0 , 1850.0 / + DATA (CNLWIN(13,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.0000 , 10.000 , + $ 100.00 , 350.00 , 900.00 , 1400.0 , 2000.0 , + $ 2300.0 , 2380.0 , 2400.0 , 2300.0 , 2250.0 , + $ 2200.0 , 2120.0 / + DATA (CNLWIN(14,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.0000 , 10.000 , + $ 100.00 , 350.00 , 900.00 , 1400.0 , 2000.0 , + $ 2300.0 , 2380.0 , 2400.0 , 2300.0 , 2250.0 , + $ 2200.0 , 2120.0 / + DATA (CNLWIN(15,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.0000 , 10.000 , + $ 100.00 , 400.00 , 950.00 , 1600.0 , 2200.0 , + $ 2550.0 , 2750.0 , 2700.0 , 2600.0 , 2540.0 , + $ 2450.0 , 2360.0 / + DATA (CSCAP(J),J=1,50) / + $ 6.0000 , 5.7000 , 5.5000 , 5.3000 , 5.2000 , + $ 5.1000 , 5.0000 , 4.9000 , 4.8000 , 4.8000 , + $ 4.8000 , 4.8000 , 4.8000 , 4.8000 , 4.8000 , + $ 4.8000 , 4.9000 , 5.0000 , 5.2000 , 5.5000 , + $ 6.0000 , 6.7000 , 7.5000 , 8.5000 , 10.000 , + $ 12.000 , 14.500 , 19.000 , 26.500 , 40.000 , + $ 75.000 , 120.00 , 180.00 , 260.00 , 360.00 , + $ 330.00 , 60.000 , 7.0000 , 9.5000 , 20.000 , + $ 75.000 , 140.00 , 250.00 , 360.00 , 480.00 , + $ 580.00 , 590.00 , 500.00 , 300.00 , 100.00 / + DATA (CSCAP(J),J=51,100) / + $ 200.00 , 300.00 , 400.00 , 470.00 , 500.00 , + $ 430.00 , 100.00 , 20.000 , 22.000 , 40.000 , + $ 560.00 , 950.00 , 1000.0 , 1000.0 , 1000.0 , + $ 990.00 , 920.00 , 860.00 , 790.00 , 740.00 , + $ 650.00 , 600.00 , 540.00 , 470.00 , 440.00 , + $ 390.00 , 360.00 , 340.00 , 320.00 , 310.00 , + $ 280.00 , 2.0000 , 2.5000 , 6.0000 , 13.000 , + $ 38.000 , 65.000 , 140.00 , 280.00 , 300.00 , + $ 430.00 , 580.00 , 650.00 , 800.00 , 920.00 , + $ 1100.0 , 1250.0 , 1400.0 , 1550.0 , 1700.0 / +C --- END OF CROSS-SECTION DATA STATEMENTS --- + +C --- DATA STMTS. FOR GEANT/GHEISHA PARTICLE CODE CONVERSIONS --- +C --- KIPART(I)=GHEISHA CODE CORRESPONDING TO GEANT CODE I --- +C --- IKPART(I)=GEANT CODE CORRESPONDING TO GHEISHA CODE I --- + + DATA KIPART/ + $ 1, 3, 4, 2, 5, 6, 8, 7, + $ 9, 12, 10, 13, 16, 14, 15, 11, + $ 35, 18, 20, 21, 22, 26, 27, 33, + $ 17, 19, 23, 24, 25, 28, 29, 34, + $ 35, 35, 35, 35, 35, 35, 35, 35, + $ 35, 35, 35, 35, 30, 31, 32, 35/ + +* DATA IKPART/ +* $ 1, 4, 2, 3, 5, 6, 8, 7, +* $ 9, 11, 16, 10, 12, 14, 15, 13, +* $ 25, 18, 26, 19, 20, 21, 27, 28, +* $ 29, 22, 23, 30, 31, 45, 46, 47, +* $ 24, 32, 48/ + + +C PARAMETER (ONETHR=1./3.) + DATA ONETHR / .33333333/ + DATA ALPHA / 6*0.7, + + 0.75 ,0.75 ,0.75 , + + 0.76,0.76 ,0.76 ,0.76 , + + 0.685,0.63 ,0.685,0.63,0.685,0.63, + + 3*0.685,3*0.63,2*0.685,2*0.63, + + 3*0.7,0.685,0.63,0.7/ + DATA ALPHAC /1.2,1.2,1.2,1.15,0.90,0.91,0.98,1.06,1.10,1.11, + + 1.10,1.08,1.05,1.01,0.985,0.962,0.945,0.932, + + 0.925,0.920,0.920,0.921,0.922,0.923,0.928,0.931, + + 0.940,0.945,0.950,0.955,0.958,0.962,0.965,0.976, + + 0.982,0.988,0.992,1.010,1.020,1.030,1.040/ + DATA PARTEL/6*0.,29*1./ + DATA PARTIN/6*0.,1.00,0.00,1.05,1.20,1.35,1.30,1.20,1.00,1.30, + + 1.00,1.30,1.00,1.30,1.00,1.00,1.00,1.30,1.30,1.30, + + 1.00,1.00,1.30,1.30,1.00,1.,1.,1.,1.3,1./ +* DATA ICORR /14*1, 0, 1, 0, 1, 0, 3*1, 3*0, 2*1, 2*0, 4*1, 2*0/ +C-- SET INTRC TO 0 FOR IPART = 26-29, 33, 34 ( XI'S AND OMEGA'S ) +C-DH- DATA INTRC /6*0, 1, 0, 12*1, 0, 2*2, 0, 1, 4*0, 3*1, 3*0 / +C-- RESET INTRC FOR IPART = 26-29, 33, 34 ( XI'S AND OMEGA'S ) + DATA INTRC /6*0, 1, 0, 12*1, 0, 2*2, 0, 10*1, 0/ + +C CROSS-SECTIONS ON NUCLEUS ARE KNOWN ONLY FOR PIONS AND PROTONS. +C THE GENERAL LAW SIGMA(A)=1.25*SIGMA(TOT,PROTON)*A**ALPHA IS VALID +C ONLY FOR MOMENTA > 2 GEV.THE PARAMETRIZATION DONE HERE GIVES ONLY +C A BEHAVIOUR AVERAGED OVER MOMENTA AND PARTICLE TYPES. +C FOR A DETECTOR WITH ONLY A FEW MATERIALS IT'S OF COURSE MUCHBETTER +C TO USE TABLES OF THE MEASURED CROSS-SECTIONS . +C FOR ELEMENTS WITH THE FOLLOWING ATOMIC NUMBERS MEASURED CROSS- +C SECTIONS ARE AVAILABLE (SEE "PCSDATA"). + +C H AL CU PB + DATA CSA /1. ,27.00 ,63.54 ,207.19 / + DATA IPART2/9,8,7,11,10,13,12/ + SAVE ALPHA,ALPHAC,PARTEL,PARTIN,CSA,IPART2,INTRC + +C----------------------------------------------------------------------- + + IF ( DEBUG .AND. GHEISDB ) THEN + WRITE(MDEBUG,*) 'CGHSIG:' + NPRT(4)=.TRUE. + NPRT(9)=.TRUE. + ELSE + NPRT(4)=.FALSE. + NPRT(9)=.FALSE. + ENDIF + +C --- INITIALIZE CGHSIG AND SWITCH TO GHEISHA PARTICLE CODE --- + CGHSIG=0.0 + IF ( LPART .LE. 48 ) THEN + IPART = KIPART(LPART) + ELSEIF ( LPART .EQ. 201 ) THEN + IPART = 30 + ELSEIF ( LPART .EQ. 301 ) THEN + IPART = 31 + ELSEIF ( LPART .EQ. 402 ) THEN + IPART = 32 + ELSE + GOTO 160 + ENDIF + +C --- NO INTERACTION FOR GAMMAS, NEUTRINOS, ELECTRONS, POSITRONS, MUONS, +C --- NEUTRAL PIONS, NEUTRAL SIGMAS AND ANTISIGMAS AND NEW PARTICLES. + IF ( INTRC(IPART) .EQ. 0 ) GOTO 160 + P = PPART + EK = EKIN + +C --- INITIALIZE THE CROSS-SECTIONS WITH 0.0 --- + DO 10 K = 1,KK + AIEL(K) = 0.0 + AIIN(K) = 0.0 + AICA(K) = 0.0 + 10 CONTINUE +C + IF ( (IPART .GE. 30) .AND. (IPART .LE. 32) ) THEN + +C --- TAKE GEOMETRICAL CROSS-SECTIONS FOR INELASTIC SCATTERING --- +C --- OF DEUTERONS, TRITONS AND ALPHAS --- + IF ( IPART .EQ. 30 ) THEN + APART = 2.0**ONETHR + ELSEIF ( IPART .EQ. 31 ) THEN + APART = 3.0**ONETHR + ELSEIF ( IPART .EQ. 32 ) THEN + APART = 4.0**ONETHR + ENDIF + DO 20 K = 1,KK + AIIN(K) = 49.0*(APART+ACOMP(K)**ONETHR)**2 + 20 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,10000) + + ELSEIF ( (IPART .EQ. 16) .AND. (EK .LE. 0.0327) ) THEN + +C --- USE TABLES FOR LOW ENERGY NEUTRONS --- +C --- GET ENERGY BIN --- + JE2 = 17 + DO 30 J = 2,17 + IF ( EK .LT. ELAB(J) ) THEN + JE2 = J + GOTO 40 + ENDIF + 30 CONTINUE + + 40 JE1 = JE2-1 + EKX = MAX(EK,1.0E-9) + DELAB = ELAB(JE2)-ELAB(JE1) + DO 70 K = 1,KK + +C --- GET A BIN --- + JA2 = 15 + DO 50 J = 2,15 + IF ( ACOMP(K) .LT. CNLWAT(J) ) THEN + JA2=J + GOTO 60 + ENDIF + 50 CONTINUE + + 60 JA1 = JA2-1 + DNLWAT = CNLWAT(JA2)-CNLWAT(JA1) + +C --- USE LINEAR INTERPOLATION OR EXTRAPOLATION BY Y=RCE*X+RCA*X+B --- + +C --- ELASTIC CROSS-SECTION --- +C --- E INTERPOLATION OR EXTRAPOLATION AT JA1 --- + DY = CNLWEL(JA1,JE2)-CNLWEL(JA1,JE1) + RCE = DY/DELAB +C --- A INTERPOLATION OR EXTRAPOLATION AT JE1 --- + DY = CNLWEL(JA2,JE1)-CNLWEL(JA1,JE1) + RCA = DY/DNLWAT + B = CNLWEL(JA1,JE1)-RCE*ELAB(JE1)-RCA*CNLWAT(JA1) + AIEL(K) = RCE*EK+RCA*ACOMP(K)+B + +C --- INELASTIC CROSS-SECTION --- +C --- E INTERPOLATION OR EXTRAPOLATION AT JA1 --- + DY = CNLWIN(JA1,JE2)-CNLWIN(JA1,JE1) + RCE = DY/DELAB +C --- A INTERPOLATION OR EXTRAPOLATION AT JE1 --- + DY = CNLWIN(JA2,JE1)-CNLWIN(JA1,JE1) + RCA = DY/DNLWAT + B = CNLWIN(JA1,JE1)-RCE*ELAB(JE1)-RCA*CNLWAT(JA1) + AIIN(K) = RCE*EK+RCA*ACOMP(K)+B + + IZNO = ZCOMP(K)+0.01 + AICA(K) = 11.12*CSCAP(IZNO)/(EKX*1.0E6)**0.577 + 70 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,10100) + ELSE + +C --- USE PARAMETRIZATION OF CROSS-SECTION DATA FOR ALL OTHER CASES --- + + IF ( NPRT(9) ) WRITE(MDEBUG,10200) + +C --- GET MOMENTUM BIN --- + J = 40 + DO 80 I = 2,41 + IF (P .LT. PLAB(I)) THEN + J = I - 1 + GOTO 90 + ENDIF + 80 CONTINUE + +C --- START WITH CROSS-SECTIONS FOR SCATTERING ON FREE PROTONS --- +C --- USE LINEAR INTERPOLATION OR EXTRAPOLATION BY Y=RC*X+B --- + 90 DX = PLAB(J+1)-PLAB(J) +C --- ELASTIC CROSS-SECTION --- + DY = CSEL(IPART,J+1)-CSEL(IPART,J) + RC = DY/DX + B = CSEL(IPART,J)-RC*PLAB(J) + AIELIN = RC*P+B +C --- INELASTIC CROSS-SECTION --- + DY = CSIN(IPART,J+1)-CSIN(IPART,J) + RC = DY/DX + B = CSIN(IPART,J)-RC*PLAB(J) + AIININ = RC*P+B + ALPH = ALPHA(IPART) + IF ( IPART .LT. 14 ) THEN + DY = ALPHAC(J+1)-ALPHAC(J) + RC = DY/DX + B = ALPHAC(J)-RC*PLAB(J) + CORFAC = RC*P+B + ALPH = ALPH*CORFAC + + IPART3 = IPART2(IPART-6) + +C --- ELASTIC CROSS-SECTION --- + DY = CSEL(IPART3,J+1)-CSEL(IPART3,J) + RC = DY/DX + B = CSEL(IPART3,J)-RC*PLAB(J) + XSECEL = RC*P+B +C --- INELASTIC CROSS-SECTION --- + DY = CSIN(IPART3,J+1)-CSIN(IPART3,J) + RC = DY/DX + B = CSIN(IPART3,J)-RC*PLAB(J) + XSECIN = RC*P+B + + ENDIF + +C NO MAKE CROSS-SECTIONS FOR COMPONENT K OF COMPOSITION + DO 100 K = 1,KK + AIEL(K) = AIELIN + AIIN(K) = AIININ + + IF ( ACOMP(K) .GE. 1.5 ) THEN + +C --- A-DEPENDENCE FROM PARAMETRIZATION --- + CREL = 1.0 + CRIN = 1.0 +C --- GET MEDIUM BIN 1=HYDR. 2=AL 3=CU 4=PB --- + I = 3 + IF ( ACOMP(K) .LT. 50.0 ) I = 2 + IF ( ACOMP(K) .GT. 100.0 ) I = 4 + IF ( (IPART .EQ. 14) .OR. (IPART .EQ. 16) ) THEN + +C --- PROTONS AND NEUTRONS --- + +C --- ELASTIC CROSS-SECTION --- + DY = CSPNEL(I-1,J+1)-CSPNEL(I-1,J) + RC = DY/DX + B = CSPNEL(I-1,J)-RC*PLAB(J) + XSECEL = RC*P+B +C --- INELASTIC CROSS-SECTION --- + DY = CSPNIN(I-1,J+1)-CSPNIN(I-1,J) + RC = DY/DX + B = CSPNIN(I-1,J)-RC*PLAB(J) + XSECIN = RC*P+B + IF ( AIEL(K) .GE. 0.001 ) CREL = XSECEL/(0.36*AIEL(K)* + + CSA(I)**1.17) + AITOT = AIEL(K)+AIIN(K) + IF ( AITOT .GE. 0.001 ) CRIN = XSECIN/(AITOT*CSA(I)** + + ALPH) + + ELSEIF ( IPART .LT. 15 ) THEN + +C --- CALCULATE CORRECTION FACTORS FROM VALUES ON AL,CU,PB FOR ALL --- +C --- MESONS USE LINEAR INTERPOLATION OR EXTRAPOLATION BY Y=RC*X+B --- +C --- NOTE THAT DATA IS ONLY AVAILABLE FOR PIONS AND PROTONS + WGCH = 0.5 + IF ( ACOMP(K) .LT. 20.0 ) + + WGCH = 0.5+0.5*EXP(-(ACOMP(K)-1.0)) + AIEL(K) = WGCH*AIEL(K)+(1.0-WGCH)*XSECEL + AIIN(K) = WGCH*AIIN(K)+(1.0-WGCH)*XSECIN + +C --- THIS SECTION NOT FOR KAONS --- + IF ( IPART .LT. 10 ) THEN + +C --- ELASTIC CROSS-SECTION --- + DY = CSPIEL(I-1,J+1)-CSPIEL(I-1,J) + RC = DY/DX + B = CSPIEL(I-1,J)-RC*PLAB(J) + XSPIEL =R C*P+B +C --- INELASTIC CROSS-SECTION --- + DY = CSPIIN(I-1,J+1)-CSPIIN(I-1,J) + RC = DY/DX + B = CSPIIN(I-1,J)-RC*PLAB(J) + XSPIIN = RC*P+B + + IF ( AIEL(K) .GE. 0.001 ) CREL = XSPIEL/ + + (0.36* AIEL(K)*CSA(I)**1.17) + AITOT = AIEL(K)+AIIN(K) + IF ( AITOT .GE. 0.001 ) CRIN = XSPIIN/(AITOT*CSA(I) + + **ALPH) + ENDIF + ENDIF + AIIN(K) = CRIN*(AIIN(K)+AIEL(K))*ACOMP(K)**ALPH + AIEL(K) = CREL*0.36*AIEL(K)*ACOMP(K)**1.17 + AIEL(K) = AIEL(K)*PARTEL(IPART) + AIIN(K) = AIIN(K)*PARTIN(IPART) + ENDIF + 100 CONTINUE + + ENDIF + +C --- CALCULATE INTERACTION PROBABILITY --- + + ALAM = 0.0 + DO 150 K = 1,KK + AIEL(K) = AIEL(K)*WCOMP(K) + AIIN(K) = AIIN(K)*WCOMP(K) + AICA(K) = AICA(K)*WCOMP(K) + ALAM = ALAM + AIEL(K) + AIIN(K) + AICA(K) + 150 CONTINUE + +C --- PASS THE CROSS-SECTION (MBARN) TO CORSIKA --- + CGHSIG = ALAM + + GOTO 999 + +C --- PRINTOUT OF SKIPPED PARTICLES IN CASE OF INTERFACE DEBUG --- + 160 IF ( NPRT(9) ) WRITE(MDEBUG,10300) IPART +10000 FORMAT(' *CGHSIG* GEOM X-SECT. FOR INEL. SCAT. OF D,T AND ALPHA') +10100 FORMAT(' *CGHSIG* X-SECT. FROM LOW ENERGY NEUTRON TABLES') +10200 FORMAT(' *CGHSIG* X-SECT. FROM PARAMETRIZATION OF DATA') +10300 FORMAT(' *CGHSIG* GHEISHA PARTICLE ',I3,' SKIPPED') + 999 RETURN + END +*CMZ : 28/02/2002 11.42.37 by D. HECK IK FZK KARLSRUHE +*-- Author : CERN PROGLIB# M103 +C======================================================================= + + SUBROUTINE FLPSOR(A,N) + +C----------------------------------------------------------------------- +C CERN PROGLIB# M103 FLPSOR .VERSION KERNFOR 3.15 820113 +C ORIG. 29/04/78 +C----------------------------------------------------------------------- +C SORT THE ONE-DIMENSIONAL FLOATING POINT ARRAY A(1),...,A(N) BY +C INCREASING VALUES +C +C PROGRAM M103 TAKEN FROM CERN PROGRAM LIBRARY, 29-APR-78 +C----------------------------------------------------------------------- + + DIMENSION A(*) + COMMON /SLATE/ LT(20),RT(20) + INTEGER R,RT + SAVE +C----------------------------------------------------------------------- + + LEVEL = 1 + LT(1) = 1 + RT(1) = N + 10 L = LT(LEVEL) + R = RT(LEVEL) + LEVEL = LEVEL-1 + 20 IF (R .GT. L ) GOTO 200 + IF ( LEVEL ) 50,50,10 +C +C SUBDIVIDE THE INTERVAL L,R +C L : LOWER LIMIT OF THE INTERVAL (INPUT) +C R : UPPER LIMIT OF THE INTERVAL (INPUT) +C J : UPPER LIMIT OF LOWER SUB-INTERVAL (OUTPUT) +C I : LOWER LIMIT OF UPPER SUB-INTERVAL (OUTPUT) +C + 200 I = L + J = R + M = (L+R)/2 + X = A(M) + 220 IF ( A(I) .GE. X ) GOTO 230 + I = I+1 + GOTO 220 + 230 IF ( A(J) .LE. X ) GOTO 231 + J = J-1 + GOTO 230 +C + 231 IF ( I .GT. J ) GOTO 232 + W = A(I) + A(I) = A(J) + A(J) = W + I = I+1 + J = J-1 + IF ( I .LE. J ) GOTO 220 +C + 232 LEVEL = LEVEL+1 + IF ( (R-I) .GE. (J-L) ) GOTO 30 + LT(LEVEL) = L + RT(LEVEL) = J + L = I + GOTO 20 + 30 LT(LEVEL) = I + RT(LEVEL) = R + R = J + GOTO 20 + 50 RETURN + END +*CMZ : 03/11/2000 12.13.41 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + REAL FUNCTION GARNDM( ) + +C----------------------------------------------------------------------- +C 1 EXPONENTIALLY DISTRIBUTED RANDOM NUMBER +C----------------------------------------------------------------------- + + REAL RD(1) + SAVE +C----------------------------------------------------------------------- + + CALL RMMAR(RD,1,1) + GARNDM = -LOG(RD(1)) + RETURN + END +*CMZ : 28/02/2002 11.42.37 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE GRANOR(A,B) + +C----------------------------------------------------------------------- +C G(HEISHA) RA(NDOM NUMBERS WITH) NOR(MAL DISTRIBUTION) +C TWO GAUSSIAN DISTRIBUTED RANDOM NUMBERS (MEAN=0, SIGMA=1) +C +C RANDOM NUMBER GENERATORS USED BY THE GHEISHA ROUTINES +C ADAPTED FOR USE WITH THE CORSIKA RANDOM NUMBER GENERATORS +C +C DESIGN : J. KNAPP IK1 FZK KARLSRUHE +C----------------------------------------------------------------------- + + REAL RD(2) + SAVE +C----------------------------------------------------------------------- + + CALL RMMAR(RD,2,1) + U1 = SQRT((-2.)*LOG(RD(1))) + U2 = RD(2) * 6.28318530718 + A = COS(U2) * U1 + B = SIN(U2) * U1 + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : CERN PROGLIB# V113 +C======================================================================= + + SUBROUTINE GRNDM(RVEC,LENV) + +C----------------------------------------------------------------------- +C G(HEISHA) R(A)ND(O)M (NUMBER GENERATOR) +C +C THIS ROUTINE IS IDENTICAL TO RMMAR +C DESCRIPTION OF ALGORITHM SEE SUBROUT. RMMAR +C THIS SUBROUTINE IS CALLED FROM GHEISHA ROUTINES. +C ARGUMENTS: +C RVEC = VECTOR FIELD TO BE FILLED WITH RANDOM NUMBERS +C LENV = LENGTH OF VECTOR (# OF RANDNUMBERS TO BE GENERATED) +C +C CERN PROGLIB# V113 RMMAR .VERSION KERNFOR 1.0 +C ORIG. 01/03/89 FCA + FJ +C----------------------------------------------------------------------- + + REAL RVEC(*) + COMMON /RANMA2/ IU(1030),JSEQ + COMMON /RANMA3/ TWOM24,TWOM48,CD,CM,CINT,MODCNS + INTEGER I97(0:1030),J97(0:1030),NTOT(0:1030),NTOT2(0:1030), + * IJKL(0:1030) + REAL U(1030),C(0:1030) + EQUIVALENCE (IJKL(0),IU(1)),(NTOT(0),IU(2)),(NTOT2(0),IU(3)) + EQUIVALENCE (U(1),IU(4)),(C(0),IU(101)),(I97(0),IU(102)) + EQUIVALENCE (J97(0),IU(103)) + SAVE +C----------------------------------------------------------------------- + + ISEQ = 1 + IF ( ISEQ .GT. 0 ) JSEQ = ISEQ + IBASE = (JSEQ-1)*103 + + DO 100 IVEC = 1,LENV + UNI = U(IBASE+I97(IBASE))-U(IBASE+J97(IBASE)) + IF ( UNI .LT. 0. ) UNI = UNI+1. + U(IBASE+I97(IBASE)) = UNI + I97(IBASE) = I97(IBASE)-1 + IF ( I97(IBASE) .EQ. 0 ) I97(IBASE) = 97 + J97(IBASE) = J97(IBASE)-1 + IF ( J97(IBASE) .EQ. 0 ) J97(IBASE) = 97 + C(IBASE) = C(IBASE) - CD + IF ( C(IBASE) .LT. 0. ) C(IBASE) = C(IBASE)+CM + UNI = UNI-C(IBASE) + IF ( UNI .LT. 0. ) UNI = UNI+1. +C REPLACE EXACT ZEROES BY UNIFORM DISTR. *2**-24 + IF ( UNI .EQ. 0. ) THEN + UNI = TWOM24*U(2) +C AN EXACT ZERO HERE IS VERY UNLIKELY, BUT LET'S BE SAFE. + IF ( UNI .EQ. 0. ) UNI = TWOM48 + ENDIF + RVEC(IVEC) = UNI + 100 CONTINUE + + NTOT(IBASE) = NTOT(IBASE) + LENV + IF ( NTOT(IBASE) .GE. MODCNS ) THEN + NTOT2(IBASE) = NTOT2(IBASE) + 1 + NTOT(IBASE) = NTOT(IBASE) - MODCNS + ENDIF + + RETURN + END +*CMZ : 18/10/2000 09.15.12 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE AVEPT( ECM,SLOG ) + +C----------------------------------------------------------------------- +C AVE(RAGE) PT (TRANSVERSE MOMENTUM) +C +C CALCULATES AVERAGE RATIO PT(PARTICLE)/PT(PION) DEPENDING ON ENERGY +C THE DEPENDENCE OF PT ON ENERGY IS DONE IN SUBROUT. PTRAM/PTRAN +C THIS SUBROUTINE IS CALLED FROM HDPM. +C ARGUMENTS: +C ECM = ENERGY IN THE CM SYSTEM +C SLOG = LOG(S) ( = LOG(ECM**2) ) +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,AVPT. + COMMON /AVPT/ AVPT,AVPK,AVPN,AVPH,AVPE + DOUBLE PRECISION AVPT,AVPK,AVPN,AVPH,AVPE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ECM,SLOG + SAVE +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'AVEPT : ECM =',SNGL(ECM) + +C AVERAGE TRANSVERSE MOMENTUM + +C ... FOR PIONS (=AVPT) + IF ( ECM .LT. 132.D0 ) THEN + AVPT = 0.3D0 + 6.272D-3 * SLOG + ELSE + AVPT = ( 0.442105D0 + 0.016276D0 * SLOG )**2 + ENDIF + +C ... FOR KAONS (=AVPK) + IF ( ECM .LT. 131.D0 ) THEN + AVPK = 1.27D0 * AVPT + ELSE + AVPK = (0.403146D0 + 0.0281D0 * SLOG)**2 + ENDIF + +C ... FOR NUCLEONS (=AVPN) + IF ( ECM .LT. 102.D0 ) THEN + AVPN = 1.39D0 * AVPT + ELSE + AVPN = (0.389873D0 + 0.034127D0 * SLOG)**2 + ENDIF + +C SET AVERAGE PT RELATED TO AVERAGE PT FOR PIONS +C ... FOR STRANGE BARYONS (=AVPH) + AVPH = 1.3D0 * (1.45D0 * AVPN - 0.45D0 * AVPK) / AVPT +C ... FOR ETA MESONS (=AVPE) + AVPE = 1.3D0 * (0.88D0 * AVPK + 0.12D0 * AVPN) / AVPT + AVPK = 1.3D0 * AVPK / AVPT + AVPN = 1.3D0 * AVPN / AVPT + AVPT = 1.3D0 + + IF ( DEBUG ) WRITE(MDEBUG,100) + * SNGL(AVPT),SNGL(AVPK),SNGL(AVPN),SNGL(AVPH),SNGL(AVPE) + 100 FORMAT(' AVEPT : AVPT,AVPK,AVPN,AVPH,AVPE=',5F12.5) + + RETURN + END +*CMZ : 11/07/2000 10.08.31 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE DIFRAC( NRETFL ) + +C----------------------------------------------------------------------- +C (SINGLE) DIF(F)RAC(TION) +C +C SETS PARAMETERS FOR HDPM IN CASE OF SINGLE DIFFRACTION +C THIS SUBROUTINE IS CALLED FROM HDPM. +C ARGUMENT: +C NRETFL = 0 CORRECT ENDING OF SUBROUTINE +C = 1 INCORRECT ENDING OF SUBROUTINE +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,LEPAR. + COMMON /LEPAR/ LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS + INTEGER LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'DIFRAC:' + +C DECIDE FIRST, WHETHER PROJECTILE OR TARGET DIFFRACTION + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LE. 0.5 ) THEN +C PROJECTILE DIFFRACTON, TARGET DIFFRACTION FLAG IS NOT SET + NFTARD = 0 +C MASS OF INCOMING PARTICLE AND PI(0) MASS +C PI(0) IS MINIMAL OUTCOME OF SECONDARIES IN DIFRAC + XM0 = ( PAMA(LEPAR1) + PAMA(7) )**2 + ELSE +C TARGET DIFFRACTON, SET TARGET DIFFRACTION FLAG + NFTARD = 1 +C MASS OF NUCLEON AND PI(0) MASS +C PI(0) IS MINIMAL OUTCOME OF SECONDARIES IN DIFRAC + XM0 = ( PAMA(LEPAR2) + PAMA(7) )**2 + ENDIF +C MAXIMAL DIFFRACTIVE MASS, FACTOR 0.15 GIVEN BY COHERENCE CONDITION + XMX = 0.15D0 * S + +C THROW MAXIMAL 200 TIMES TO GET A GOOD DIFFRACTIVE MASS + NCDIFL = 0 + 7 CONTINUE +C GET DIFFRACTIVE MASS + CALL RMMAR( RD,2,1 ) +C GET S (=ECM**2) (WHY THIS WAY OF THROWING ???) + SDIF = (XMX/XM0)**RD(1) * XM0 + + IF ( SDIF .LE. XM0 ) THEN + IF ( NCDIFL .LE. 200 ) THEN + NCDIFL = NCDIFL + 1 + GOTO 7 + ELSE +C SET RETURN FLAG TO ERROR + NRETFL = 1 + RETURN + ENDIF + ENDIF + +C DISTRIBUTION OF DIFFRACTIVE MASS FLATTENS OFF FOR DIFFRACTIVE +C MASS SQUARED .LE. 2 GEV + IF ( SDIF .LE. 2.D0 ) THEN +C----- SO GEHT DAS NICHT!! 16.12.91 D.H. + SDIF = RD(2) * (2.D0 - XM0) + XM0 + ENDIF +C SQRT(S) IS ECM + ECMDIF = SQRT(SDIF) +C LOG(S), LOG(S)**2 + DLOG = LOG(SDIF) + DLOGSQ = DLOG**2 + IF ( DEBUG ) WRITE(MDEBUG,*) 'DIFRAC: SDIF,ECMDIF,NFTARD=', + * SNGL(SDIF),SNGL(ECMDIF),NFTARD + +C RAPIDITY IN CMS OF DIFFRACTIVE SYSTEM +C TO CALCULATE DMLOG, SUBTRACT SUM OF MASS SQUARES FROM SDIF +C PI(0) MASS SQUARED IS 0.0182. + IF ( NFTARD .EQ. 0 ) THEN + YY0 = LOG(ECMDPM/ECMDIF) + DMLOG = LOG(SDIF - 0.0182D0 - PAMA(LEPAR1)**2) + ELSE + YY0 = -LOG(ECMDPM/ECMDIF) + DMLOG = LOG(SDIF - 0.0182D0 - PAMA(LEPAR2)**2) + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'DIFRAC: YY0,DMLOG=', + * SNGL(YY0),SNGL(DMLOG) +C CENTRAL RAPIDITY DENSITY IN CMS OF DIFFRACTIVE SYSTEM +C PARAMETRISATION SEE CAPDEVIELLE,J.PHYS.G:NUCL.PHYS.16(1990)1539 EQ.7 +C WE USE ONLY THE LOW-ENERGY PART OF THE PARAMETRISATION, AS SDIF DOES +C NOT REACH THE HIGHER VALUES + DC0 = 0.82D0 * (SDIF**0.107D0) + +C THERE ARE 3 ENERGY DEPENDENT FORMULAS FOR AVERAGE CHARGED +C MULTIPLICITY ( AVCH1 ); +C PARAMETRISATIONS SEE CAPDEVIELLE,J.PHYS.G:NUCL.PHYS.16(1990)1539 EQ.8 + IF ( ECMDIF .LE. 187.5D0 ) THEN +C CHARGED MULTIPLICITY (M**2 IN PLACE OF S) + AVCH1 = 0.57D0 + 0.584D0*DLOG + 0.127D0*DLOGSQ + ELSEIF ( ECMDIF .LE. 945.5D0 ) THEN + AVCH1 = -6.55D0 + 6.89D0 * SDIF**0.131D0 + ELSE + AVCH1 = 3.4D0 * SDIF**0.17D0 + ENDIF +C PARAMETRISATION IS BASED ON COLLIDER DATA WHERE PROTON AND ANTIPROTON +C ARE INCLUDED. LOWER LIMIT FOR AVERAGE CHARGED MULTIPLICITY IS 1. + AVCH1 = MAX( 1.D0, AVCH1 ) + +C CENTER OF GAUSSIAN 1ST+2ND STRING OF FRAGMENTATION SYSTEM + POSC2 = 0.146D0 * DMLOG + 0.072D0 +C WIDTH OF GAUSSIAN 1ST+2ND STRING OF FRAGMENTATION SYSTEM + WIDC2 = 0.120D0 * DMLOG + 0.180D0 +C INTERACTION FACTOR GNU FOR INTERACTION WITH NUCLEUS; + IF ( NFLAIN .EQ. 0 ) THEN + GNU = 1.D0 + AVCH3 = 0.D0 + POSC3 = 0.D0 + WIDC3 = 1.D0 + ELSE +C NEW PARAMETRIZATION OF J.N.CAPDEVIELLE (MARCH 93) + GNU = (0.4826D0 + 3.522D-2 * DLOG) * TAR**0.31D0 +C CENTER OF GAUSSIAN FOR 3RD STRING (FROM TARGET) + POSC3 = +3.D0 - 2.575D0 * EXP( (-0.081756452D0) * GNU ) +C WIDTH OF GAUSSIAN FOR 3RD STRING (FROM TARGET) + WIDC3 = 1.2338466D0 + 0.078969916D0 * LOG(GNU) + IF ( ECMDIF .LE. 137.D0 ) THEN + AVCH3 = 0.57D0 * AVCH1 * (GNU-1.D0) + ELSE + AVCH3 = 0.5D0 * AVCH1 * (GNU-1.D0) + ENDIF + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,100) + * SNGL(POSC2),SNGL(WIDC2),SNGL(POSC3),SNGL(WIDC3) + 100 FORMAT(' DIFRAC: POSC2,WIDC2,POSC3,WIDC3=',4F12.7) +C AVERAGE CHARGED, INCLUDING THOSE FROM TARGET + AVCH = AVCH1 + AVCH3 +C THE FOLOWING PROCEDURE IS TO PRODUCE PHOTONS FROM UNKNOWN NEUTRAL +C DECAYS FOLLOWING CORRELATION WITH CHARGED PARTICLES BASED ON +C PHOTON EXCESS AT COLLIDER EXPERIMENTS. SEUGP IS +C PROBLEM OF THE RISE OF THE UNKNOWN ETA PRODUCTION CROSS-SECTION +C IS SOLVED WITH PARAMETRISATION OF UA5 (Z. PHYS. C43 (1989) 75) + IF ( ECMDIF .LE. 103.D0 ) THEN + SEUGP = -1.27D0 + 0.52D0 * DLOG + 0.148D0 * DLOGSQ + ELSE +C AT HIGH DIFFRACTIVE MASS USE PARAMETRISATION OF THOUW ???? + SEUGP = -18.7D0 + 11.55D0 * SDIF**0.1195D0 + ENDIF + SEUGP = MAX( 0.5D0, SEUGP ) + IF ( DEBUG ) WRITE(MDEBUG,110) + * SNGL(DC0),SNGL(AVCH1),SNGL(AVCH3),SNGL(AVCH),SNGL(SEUGP) + 110 FORMAT(' DIFRAC: DC0,AVCH1,AVCH3,AVCH,SEUGP=',5F12.6) + +C SET RETURN FLAG TO OK + NRETFL = 0 + RETURN + END +*CMZ : 28/02/2002 12.02.13 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + DOUBLE PRECISION FUNCTION DPFUNC( ENER ) + +C----------------------------------------------------------------------- +C D(IFFRACTION) P(ORTION) FUNC(TION) +C +C CALCULATES THE FRACTION OF DIFFRACTION +C THIS FUNCTION IS CALLED FROM HDPM. +C ARGUMNENT: +C ENER = C.M. ENERGY +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ENER + SAVE +C----------------------------------------------------------------------- + +C FUNCTION DPFUNC IS DUMMY + DPFUNC = 0.15D0 + + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'DPFUNC: ENER=',SNGL(ENER),' DPFUNC=',SNGL(DPFUNC) + + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE HDPM + +C----------------------------------------------------------------------- +C H(ADRONIC) D(UAL) P(ARTON) M(ODEL) +C +C GENERATOR OF HADRONIC COLLISION INSPIRED BY DUAL PARTON MODEL +C THIS SUBROUTINE IS CALLED FROM SDPM. +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,ELADPM. + COMMON /ELADPM/ ELMEAN,ELMEAA,IELDPM,IELDPA + DOUBLE PRECISION ELMEAN(40),ELMEAA(40) + INTEGER IELDPM(40,13),IELDPA(40,13) +*KEEP,ELASTY. + COMMON /ELASTY/ ELAST + DOUBLE PRECISION ELAST +*KEEP,INDICE. + COMMON /INDICE/ NNUCN,NKA0,NHYPN,NETA,NETAS,NPIZER, + * NNC,NKC,NHC,NPC,NCH,NNN,NKN,NHN,NET,NPN + INTEGER NNUCN(2:3),NKA0(2:3),NHYPN(2:3),NETA(2:3,1:4), + * NETAS(2:3),NPIZER(2:3), + * NNC,NKC,NHC,NPC,NCH,NNN,NKN,NHN,NET,NPN +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,ISTA. + COMMON /ISTA/ IFINET,IFINNU,IFINKA,IFINPI,IFINHY + INTEGER IFINET,IFINNU,IFINKA,IFINPI,IFINHY +*KEEP,LEPAR. + COMMON /LEPAR/ LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS + INTEGER LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEEP,NEWPAR. + COMMON /NEWPAR/ EA,PT2,PX,PY,TMAS,YR,ITYP, + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT + DOUBLE PRECISION EA(3000),PT2(3000),PX(3000),PY(3000),TMAS(3000), + * YR(3000) + INTEGER ITYP(3000), + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RATIOS. + COMMON /RATIOS/ RPI0R,RPIER,RPEKR,RPEKNR,PPICH,PPINCH,PPNKCH, + * ISEL,NEUTOT,NTOTEM + DOUBLE PRECISION RPI0R,RPIER,RPEKR,RPEKNR,PPICH,PPINCH,PPNKCH + INTEGER ISEL,NEUTOT,NTOTEM +*KEEP,RESON. + COMMON /RESON/ RDRES,RESRAN,IRESPAR + REAL RDRES(2),RESRAN(30000) + INTEGER IRESPAR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEND. + + DOUBLE PRECISION DPFUNC,RANNOR + SAVE + EXTERNAL DPFUNC,RANNOR +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' HDPM : CURPAR=',1P,9E10.3) + +C SET ANTI-LEADER TO PROTON OR NEUTRON; TARGET IS ALWAYS NUCLEON + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LE. CONTNE(LT) ) THEN + ITAR = 13 + ELSE + ITAR = 14 + ENDIF + + +C CALCULATE LAB AND CM ENERGY + IF ( ITYPE .NE. 1 ) THEN + ELAB = PAMA(ITYPE) * GAMMA + PLAB = ELAB * BETA + S = PAMA(ITYPE)**2 + PAMA(ITAR)**2 + 2.D0*PAMA(ITAR)*ELAB + ELSE +C FOR GAMMA-INDUCED REACTION TAKE PI(0) AS LEADING PARTICLE + ITYPE = 7 + ELAB = GAMMA + PLAB = ELAB + S = PAMA(ITAR)**2 + 2.D0*PAMA(ITAR)*ELAB + ENDIF + + ECMDPM = SQRT(S) + IF ( DEBUG ) WRITE(MDEBUG,*) 'HDPM : ITYPE,ELAB,PLAB,S,ECMDPM=', + * ITYPE,SNGL(ELAB),SNGL(PLAB),SNGL(S),SNGL(ECMDPM) + +C LN(S), LN(S)**2 AND RAPIDITY OF C. M. SYSTEM IN LAB + SLOG = LOG(S) + SLOGSQ = SLOG**2 + SMLOG = LOG( 2.D0 * PAMA(ITAR) * ELAB ) + ELABLG = LOG(ELAB) + EPLUSP = ELAB + PLAB +* YCM = 0.5D0 * LOG( (ELAB+PAMA(ITAR)+PLAB)/(ELAB+PAMA(ITAR)-PLAB) ) + YCM = 0.5D0 * LOG( (EPLUSP**2 +PAMA(ITAR)*EPLUSP)/ + * (PAMA(ITYPE)**2+PAMA(ITAR)*EPLUSP) ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'HDPM : SLOG,SLOGSQ,YCM=', + * SNGL(SLOG),SNGL(SLOGSQ),SNGL(YCM) + +C----------------------------------------------------------------------- +C RETURN POINT IF CALCULATION OF PARTICLES GOES WRONG + 1 CONTINUE + + IF ( ITYPE .NE. 7 ) THEN +C CHOOSE NUMBER OF INTERACTIONS IN TARGET + CALL TARINT + ELSE +C FOR GAMMA-INDUCED REACTIONS TAKE ALWAYS ONE COLLISION + GNU = 1.D0 + ENDIF + +C----------------------------------------------------------------------- +C NO DIFFRACTION IF +C OR THE NUMBER OF INTERACTIONS IN TARGET IS CHOSEN RANDOMLY +C AND MORE THAN ONE INTERACTION TAKES PLACE +C OR PRIMARY PARTICLE IS GAMMA (PI0) +C NOW NFLDIF DECIDES WHETHER DIFFRACTIVE PROCESS POSSIBLE OR NOT + IF ( ( NFLAIN.EQ.0 .AND. GNU.GT.1.D0 .AND. NFLDIF.EQ.0 ) + * .OR. ( ITYPE .EQ. 7 ) ) THEN + IDIF = 0 + ELSE +C SET DIFFRACTION FLAG IF RANDOM NUMBER < PROBABILITY + CALL RMMAR( RD,1,1 ) +C IDIF IS 0 : NO DIFFRACTION ; IDIF IS 1 : DIFFRACTION +C DIFFRACTION RISES WITH ENERGY AND SATURATES AT 10000 GEV +C ### DAS TUT ES ABER NICHT: ES IST KONSTANT 0.15 (SIEHE DPFUNC) !!!! + IF ( RD(1) .GT. DPFUNC(ECMDPM) ) THEN + IDIF = 0 + ELSE + IDIF = 1 + ENDIF + ENDIF + + +C PRINTOUT FOR DEBUG + IF ( DEBUG ) THEN + WRITE(MDEBUG,*) ' DIFFRACTIVE INTERACTION (0/1) = ',IDIF + ENDIF + +C SET COUNTER FOR REPEAT TO 0 + NREPRD = 0 + +C GENERATION OF INTERACTION + 1919 CONTINUE + +C FLAG TO CHECK NUMBER OF SECONDARIES; +C IS CHANGED TO 1 IF SECONDARY MULTIPLICITY IS LOW + ISEL = 0 +C SET LEADING PARTICLE TO INCOMING PARTICLE AND ANTI-LEADER TO NUCLEON +C (AS IT COMES FROM TARGET NUCLEUS) BOTH MAY BE CHANGED BY LEPACX + LEPAR1 = ITYPE + LEPAR2 = ITAR + + IF ( IDIF .EQ. 0 ) THEN +C----------------------------------------------------------------------- +C NON SINGLE DIFFRACTIVE PROCESS STARTS HERE + + CALL NSD +C CHARGE EXCHANGE ENABLED? EXCHANGE LEADER AND ANTI-LEADER + LASTPI = 0 + NRESPC = 0 + NRESPN = 0 + NCPLUS = 0 + IF ( NFLCHE .EQ. 0 ) THEN + CALL LEPACX( ECMDPM,ELABLG,LEPAR1,1 ) + CALL LEPACX( ECMDPM,ELABLG,LEPAR2,2 ) + ENDIF + 1921 CONTINUE + CALL RNEGBI( NCH,AVCH,ECMDPM ) +C NCH IS # OF ALL CHARGED PARTICLES INCLUDING EXCESS FROM TARGET + IF ( NCH .LT. 1 ) THEN + IF ( LEPAR1 .LT. 50 .OR. LEPAR2 .LT. 50 ) THEN + NREPRD = NREPRD + 1 + IF ( NREPRD .GT. 10 ) GOTO 1 + GOTO 1921 + ELSE +C INTERACTION IS ONLY RESONANCE PRODUCTION + ISEL = 1 + ENDIF + ENDIF +C WIDTH PLATEAU FOR CLUSTERS AND FOR CALCULATION OF CENTR.RAP.DENSITY + DELRAP = 0.6722D0 * (2.95D0 + 0.0302D0 * SLOG) +C SET RSLOG FOR CALCULATION OF PARTICLE RATIOS + RSLOG = SLOG +C AVERAGE TRANSVERSE MOMENTUM + CALL AVEPT( ECMDPM,SLOG ) + + ELSE +C----------------------------------------------------------------------- +C SINGLE DIFFRACTIVE PROCESS STARTS HERE + + 1920 CONTINUE + CALL DIFRAC( NRETDF ) + IF ( NRETDF .EQ. 1 ) GOTO 1 +C CHARGE EXCHANGE ENABLED? EXCHANGE CHARGE OF DIFFRACTING PARTICLE + LASTPI = 0 + NRESPC = 0 + NRESPN = 0 + NCPLUS = 0 + IF ( NFLCHE .EQ. 0 ) THEN + IF ( YY0 .GT. 0.D0 ) THEN +C PROJECTILE DIFFRACTION + CALL LEPACX( ECMDIF,DMLOG,LEPAR1,1 ) + ELSE +C TARGET DIFFRACTION + CALL LEPACX( ECMDIF,DMLOG,LEPAR2,2 ) + ENDIF + ENDIF +C FLUCTUATION OF MULTIPLICITY ACCORDING TO NEG.BIN. DISTRIBUTION + CALL RNEGBI( NCH,AVCH,ECMDIF ) +C REPEAT CALCULATION AS SOMETHING WENT WRONG + IF ( NCH .LT. 1 ) THEN + IF ( (YY0 .GT. 0.D0 .AND. LEPAR1 .LT. 50) .OR. + * (YY0 .LT. 0.D0 .AND. LEPAR2 .LT. 50) ) THEN + NREPRD = NREPRD + 1 + IF ( NREPRD .GT. 10 ) GOTO 1 + GOTO 1920 + ELSE +C DIFFRACTIVE INTERACTION IS ONLY RESONANCE PRODUCTION + ISEL = 1 + ENDIF + ENDIF +C SET RSLOG FOR CALCULATION OF PARTICLE RATIOS + RSLOG = DLOG +C HERE WE USE ECMDPM, BECAUSE THE MOMENTUM TRANSFER IS DEPENDENT +C ON THE ENERGY OF THE TOTAL SYSTEM AND NOT ON THE DIFFRACTING MASS + CALL AVEPT( ECMDPM,SLOG ) + + ENDIF + +C----------------------------------------------------------------------- +C NOW FOR NSD AND DIFFRACTIVE PROCESSES + +C IN CASE OF LOW MULTIPLICITY SET FLAG ISEL + IF ( NCH .LE. 2 ) ISEL=1 +C FNCH IS FLUCTUATING TOT.NUMBER OF CHARGED PARTICLES FOR ALL 3 STRINGS + FNCH = DBLE(NCH) +C RATIO ALL CHARGED PARTICLES WITH FLUCTUATION/WITHOUT FLUCTUATION + XZ = FNCH / AVCH +C FNCH3 IS FLUCTUATING NUMBER OF CHARGED PARTICLES FOR 3RD STRING + FNCH3 = XZ * AVCH3 +C FNCH2 IS FLUCTUATING NUMBER OF CHARGED PARTICLES 1ST AND 2ND STRING + FNCH2 = FNCH - FNCH3 +C RC3TO2 IS RATIO (CHARGED 3RD STRING)/(CHARGED 1ST AND 2ND STRING) + IF ( FNCH2 .NE. 0.D0 ) THEN + RC3TO2 = FNCH3 / FNCH2 + ELSE + RC3TO2 = 0.D0 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) ' FNCH,FNCH2,FNCH3,RC3TO2=', + * SNGL(FNCH),SNGL(FNCH2),SNGL(FNCH3),SNGL(RC3TO2) + +C IS NUMBER OF NEUTRALS FLUCTUATING AS NUMBER OF CHARGED ? + IF ( NFLPIF .EQ. 0 .OR. IDIF .EQ. 1 .OR. ECMDPM .LT. 60.D0 ) THEN +C SET NUMBER OF GAMMAS ACCORDING TO NEG. BIN. VARIABLE XZ +C AS NUMBER OF NEUTRALS FLUCTUATES AS CHARGED. + SEUGF = SEUGP * XZ + ZG = XZ + ELSE +C NFLPIF IS 1 MEANS: # OF PI(0) FLUCTUATES AS MEASURED AT COLLIDER + IF ( ECMDPM .LT. 200.D0 ) THEN + SEUGF = SEUGP * XZ +* SEUGF = (0.0786D0*SLOG-0.010D0)*FNCH2 + (0.391D0*SLOG+0.305D0) + ELSE +C DETERMINE NEW NUMBER OF GAMMAS WITH FLUCTUATION AROUND SEUGP*XZ + AGR = EXP(-XZ) + DGR = SEUGP * XZ * (0.9823D0 - 0.3756D0 * AGR) + SGS = DGR * (0.14718D0 + 2.53213D0 * AGR) + 723 CONTINUE + SEUGF = 0.88D0 * RANNOR(DGR,SGS) + IF ( SEUGF .LT. 1.D0 ) GOTO 723 + ENDIF +C SET NEGATIVE BINOMIAL VARIABLE ZG FOR GAMMAS + ZG = SEUGF / SEUGP + ENDIF + SEUGF = MAX( 1.D0, SEUGF ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'HDPM :XZ,ZG,SEUGF=', + * SNGL(XZ),SNGL(ZG),SNGL(SEUGF) + +C----------------------------------------------------------------------- +C RATIO ALL-NUCLEON/ALL-CHARGED +C PARAMETRISATION FROM UA5, NUCL. PHYS. B291 (1987) 445 EQ.(2.4) + RNUCCH = MAX( 0.D0, -0.008D0 + 0.00865D0 * RSLOG ) +C NUMBER FOR DIRECT NEUTRON/ANTINEUTRON PRODUCTION 1ST AND 2ND STRING +C MULTIPLY BY 0.5 BECAUSE RATIO RNUCCH GIVES (ALL-NUCL)/(ALL-CHARGED) +C AND HERE ONLY THE NEUTRON-ANTINEUTRONS ARE COUNTED + FNUCN = 0.5D0 * RNUCCH * FNCH2 +C RATIO (ALL CHARGED SIGMAS)/(ALL CHARGED) IS 1/3 OF ALL STRANGE BARYON +C PARAMETRISATION FORM UA5, NUCL. PHYS. B291 (1987) 445 EQ.(2.5) + RHYPCH = MAX( 0.D0, (-0.007D0 + 0.0028D0 * RSLOG) * OB3 ) +C NEUTRAL STRANGE BARYONS ARE DOUBLE OF CHARGED STRANGE BARYONS + FHYPN = 2.D0 * RHYPCH * FNCH2 +C CORRECT NUMBER OF GAMMAS FROM NEUTRAL HYPERON DECAY S0-->L+GAMMA + SEUGFC = MAX( 0.D0, SEUGF - 0.5D0 * FHYPN ) +C RATIO CHARGED-KAON/CHARGED PIONS +C PARAMETRISATION FROM UA5, NUCL. PHYS. B291 (1987) 445 EQ.(2.7) + RKPI = MAX (0.D0, 0.024D0 + 0.0062D0 * RSLOG ) +C RKCH IS RATIO (CHARGED-KAON)/(ALL-CHARGED) DERIVED FROM RKPI; +C THE FACTOR 0.5 IN FRONT OF RNUCCH IS BECAUSE ONLY HALF OF NUCLEONS +C ARE P/PBAR. THE 1.17 IS AN APROXIMATE CONVERSION FACTOR FROM +C (ALL-NUCL)/(ALL-CHARGED) TO (ALL-NUCL)/(CHARGED-PI), WHICH IS A BIT +C ENERGY DEPENDENT (1.14 ...1.21) SEE GEICH-GIMBEL TABLE 7.1 + RKCH = RKPI / (1.D0 + RKPI + (0.5D0*RNUCCH+RHYPCH) * 1.17D0) +C K0/K0-BAR FOR 1ST AND 2ND STRING +C NEUTRAL KAONS ARE PRODUCED WITH THE SAME RATE AS CHARGED KAONS + FKA0 = RKCH * FNCH2 +C RATIO ETA/PI(0) IS ASSUMED TO BE INDEPENDENT OF ENERGY = 0.19 +C SEE: ANSORGE ET AL. (UA5-COLLABORATION) Z.PHYS.C43(1989)75 +* RETPI0 = 0.19D0 +C RATIO ETA/PI(0) IS ASSUMED TO BE DEPENDENT ON ENERGY +C SEE: GEICH-GIMBEL,INT.J.MOD.PHYS.A4(1989)1527 TAB.7.1 +C HECK'S FIT: RETPI0 IS 0.06 + 0.006*RSLOG + 0.0011*RSLOG**2 + RETPI0 = 0.06D0 + 0.006D0 * RSLOG + 0.0011D0 * RSLOG**2 +C AUXIL1 IS FRACTION OF PI(0)/(PI(0)+ETA) + AUXIL1 = 1.D0 / (1.D0 + RETPI0) +C NUMBER OF GAMMAS FROM PI(0) IS 2, FROM ETA IS 3.216 IN AVERAGE; +C AUXIL2 IS NUMBER OF GAMMA-PRODUCING-PARTICLES: PI(0) AND ETA + AUXIL2 = SEUGFC / ( AUXIL1 * 2.D0 + (1.D0 - AUXIL1) * 3.216D0 ) + FETA = (1.D0 - AUXIL1) * AUXIL2 + FPI0 = AUXIL1 * AUXIL2 +C CORRECT FPI0 BY DECAYS OF STRANGE BARYONS; NEUTRAL: FHYPN*0.357 +C CHARGED: 0.5*FNCH2*RHYPCH*0.5157; IT YIELDS FHYPN*(0.357+0.12893) + FPI0 = MAX( 0.D0, FPI0 - FHYPN * 0.486D0 ) +C SUMMED NEUTRAL PARTICLES FOR 1ST AND 2ND STRING + FNEUT2 = FNUCN + FKA0 + FHYPN + FETA + FPI0 +C NEUTRAL PARTICLES FROM 3RD STRING + FNEUT3 = RC3TO2 * FNEUT2 +C TOTAL NUMBER OF NEUTRALS + FNEUT = FNEUT2 + FNEUT3 + NEUTOT = NINT( FNEUT ) +C CALCULATE TOTAL NUMBER OF PARTICLES TO BE CREATED + NTOTEM = NCH + NEUTOT + IF ( DEBUG ) WRITE(MDEBUG,*) + * ' FNUCN,FKA0,FHYPN,FETA,FPI0,FNEUT2,FNEUT3,NTOTEM=', + * SNGL(FNUCN),SNGL(FKA0),SNGL(FHYPN),SNGL(FETA),SNGL(FPI0), + * SNGL(FNEUT2),SNGL(FNEUT3),NTOTEM +C LIMIT OF SECONDARIES PRODUCED (GIVEN BY SIZE OF ARRAY : 3000) +C LIMIT IS ARRAY SIZE - SIZE OF LARGEST TARGET NUCLEUS(40) + IF ( NTOTEM .GE. 2956 ) THEN + WRITE(MONIOU,*) 'HDPM : REJECT EVENT WITH ',NTOTEM, + * ' SECONDARIES' + GOTO 1 + ENDIF +C SPECIAL TREATMENT IF MULTIPLICITY IS TOO LOW + IF ( NTOTEM .LE. 3 ) ISEL = 1 + +C FRACTION OF THE VARIOUS NEUTRAL PARTICLES (NN, K(0), L+S0 AS PAIRS) +C NORMALIZE WITH THE SUM OF ALL NEUTRAL PARTICLES + FNORML = 1.D0 / ( 0.5D0 * (FNUCN+FKA0+FHYPN) + FETA + FPI0 ) + RNUCNR = FNUCN * FNORML * 0.5D0 + RKA0R = FKA0 * FNORML * 0.5D0 + RHYPNR = FHYPN * FNORML * 0.5D0 + RETAR = FETA * FNORML + RPI0R = FPI0 * FNORML +C CUMULATED RATIOS (NN, K(0), LAMBDA+SIGMA0 AS PAIRS) + RPIER = RPI0R + RETAR + RPEKR = RPIER + RKA0R + RPEKNR = RPEKR + RNUCNR +C THEN THE REMAINDER (1-RPEKNR) MUST BE NEUTRAL HYPERON PAIRS + IF ( DEBUG ) WRITE(MDEBUG,*) + * ' RPI0R,RETAR,RKA0R,RNUCNR,RHYPNR,FNORML=', + * SNGL(RPI0R),SNGL(RETAR),SNGL(RKA0R),SNGL(RNUCNR),SNGL(RHYPNR), + * SNGL(FNORML) + +C PROBABILITY TO PRODUCE CHARGED PIONS IS PROBABILITY NOT TO PRODUCE +C CHARGED KAONS OR PROTONS OR CHARGED HYPERONS, WHERE PROTON/ANTIPROTON +C IS HALF OF (ALL-NUCL)/(ALL-CHARGED) + AUXIL = RKCH + 0.5D0 * RNUCCH + RHYPCH + AUXIL3 = 1.D0 - AUXIL +C RENORMALIZATION AS P/P_BAR, K+-, AND HYPERONS ARE PRODUCED IN PAIRS +C AUXIL2 IS INVERSE OF NORMALISATION + AUXIL2 = 1.D0 / (1.D0 - 0.5D0 * AUXIL) +C CUMULATED PROBABILITIES (PP, K+-, SIGMA+- AS PAIRS) + PPICH = AUXIL3 * AUXIL2 + PPINCH = PPICH + 0.25D0 * RNUCCH * AUXIL2 + PPNKCH = PPINCH + 0.5D0 * RKCH * AUXIL2 +C THEN THE REMAINDER (1-PPNKCH) MUST BE CHARGED HYPERON PAIRS + IF ( DEBUG ) WRITE(MDEBUG,*) ' PPICH,PPINCH,PPNKCH=', + * SNGL(PPICH),SNGL(PPINCH),SNGL(PPNKCH) + +C NOW SELECT HOW MANY PARTICLES OF EACH TYPE ARE PRODUCED + CALL PARNUM( INUMFL ) + IF ( INUMFL .NE. 0 ) GOTO 1919 + +C DEFINE PARTICLE NUMBERS WHERE SPECIAL RAPIDITY IS CALCULATED +C FOR PARTICLES FROM TARGET (THIRD STRING) + PPP = RC3TO2 / (1.D0+RC3TO2) +C NUMBER OF PARTICLES IN PROTON ANTIPROTON PAIRS FROM TARGET + ITA = NINT(PPP * 2.D0 * NNC) +C NUMBER OF PARTICLES IN K+ K- PAIRS FROM TARGET + ITB = NINT(PPP * 2.D0 * NKC) +C NUMBER OF PARTICLES IN SIGMA+ SIGMA- PAIRS FROM TARGET + ITC = NINT(PPP * 2.D0 * NHC) +C NUMBER OF PI+ PI- FROM TARGET + ITD = NINT(PPP * NPC ) +C CALCULATE BOUNDARIES + IA1 = 2 + IA2 = IA1 + ITA + IB1 = IA1 + 2 * NNC + IB2 = IB1 + ITB + IC1 = IB1 + 2 * NKC + IC2 = IC1 + ITC + ID1 = IC1 + 2 * NHC + ID2 = ID1 + ITD + IE1 = ID1 + NPC +C NUMBER OF PARTICLES IN NEUTRON ANTINEUTRON PAIRS FROM TARGET + IE2 = IE1 + 2 * NNUCN(3) + IF1 = IE1 + 2 * NNN +C NUMBER OF PARTICLES IN K0S K0L PAIRS FROM TARGET + IF2 = IF1 + 2 * NKA0(3) + IG1 = IF1 + 2 * NKN +C NUMBER OF PARTICLES IN NEUTRAL HYPERON PAIRS FROM TARGET + IG2 = IG1 + 2 * NHYPN(3) + IH1 = IG1 + 2 * NHN +C NUMBER OF ETA FROM TARGET + IH2 = IH1 + NETAS(3) + II1 = IH1 + NET +C NUMBER OF PI(0) FROM TARGET + II2 = II1 + NPIZER(3) + IJ1 = II1 + NPN + IF ( DEBUG ) THEN + WRITE(MDEBUG,*) ' CHARGED FROM TARGET:',ITA,ITB,ITC,ITD + WRITE(MDEBUG,*) ' NEUTRAL FROM TARGET:', + * 2*NNUCN(3),2*NKA0(3),2*NHYPN(3),NETAS(3),NPIZER(3) + WRITE(MDEBUG,*) ' NTOTEM,IJ1=',NTOTEM,IJ1 + ENDIF +C REDEFINE TOTAL NUMBER OF SECONDARY PARTICLES : NTOTEM +C BY CHARGE EXCHANGE AND RESONANCE FORMATION THIS NUMBER MAY BE ALTERED + NTOTEM = IJ1 - 2 + +C----------------------------------------------------------------------- +C RATIO OF RAPIDITY DENSITY TO MEAN PSEUDORAPIDITY IN CENTER +C PARAMETRISATION SEE CAPDEVIELLE, J.PHYS.G:NUCL.PHYS.15(1989)909,EQ.6 + IF ( XZ .LT. 1.5D0 ) THEN + RDS = (0.24396D0 + 0.70150424D0 * XZ)**2 + ELSE + RDS = (0.55685D0 + 0.48664753D0 * XZ)**2 + ENDIF +C CALCULATE NOW: DN/DY AT Y = 0; DC0 IS AVERAGE PSEUDORAPIDITY DENSITY +C TRAP IS RATIO (RAPID.DENS.)/(PSEUDORAP.DENS.) IN CENTER OF RAPIDITY + TRAP = 1.25D0 + IF ( IDIF .EQ. 0 .AND. ECMDPM .GT. 19.4D0 ) + * TRAP = MAX( 1.D0, 1.28852D0 - 0.0065D0 * SMLOG ) + DCN2 = DC0 * RDS * TRAP + IF ( DEBUG ) WRITE(MDEBUG,*) ' RDS,TRAP,DCN2=', + * SNGL(RDS),SNGL(TRAP),SNGL(DCN2) +C AMPLITUDE OF GAUSSIAN 1ST AND 2ND STRING + ATG2 = FNCH2 / (5.0132566D0 * WIDC2) +C NEW DEFINITION OF POSITION BASED ON SEMI INCLUSIVE DATA + SQ2 = 2.D0 * ATG2 / DCN2 +C FINAL POSITION OF GAUSSIAN; WIDTH WIDC2 IS UNCHANGED + IF ( SQ2 .GT. 1.D0 ) POSC2 = WIDC2 * SQRT( 2.D0*LOG(SQ2) ) +C DENSITY OF CHARGED IN EXCESS FROM TARGET IN CENTER OF RAPIDITY + DCN3 = 0.5D0 * (GNU - 1.D0) * DCN2 + IF ( DEBUG ) WRITE(MDEBUG,*) ' SQ2,POSC2,DCN3=', + * SNGL(SQ2),SNGL(POSC2),SNGL(DCN3) + IF ( DCN3 .GT. 0.D0 ) THEN +C AMPLITUDE 3RD GAUSSIAN + ATG3 = FNCH3 / (5.0132566D0 * WIDC3) +C AMPLITUDE IS DIVIDED BY DENSITY FOR GETTING CENTER OF 3RD GAUSSIAN + SQ3 = 2.D0 * ATG3 / DCN3 +C CHECK IF ADDITIVE MULTIPLICITY IS TOO LOW + IF ( SQ3 .GT. 1.D0 ) POSC3 = WIDC3 * SQRT( 2.D0*LOG(SQ3) ) + IF (DEBUG) WRITE(MDEBUG,*)' SQ3,POSC3=',SNGL(SQ3),SNGL(POSC3) + ENDIF + +C NFLPI0 .EQ. 0 MEANS TREAT PI(0) RAPIDITY ACCORDING TO COLLIDER DATA + IF ( NFLPI0 .EQ. 0 ) THEN +C RATIO OF RAPIDITY DENSITY TO MEAN PSEUDORAPIDITY AT CENTER WITH Z<1.5 + IF ( ZG .LT. 1.5D0 ) THEN + RDG = (0.24396D0 + 0.70150424D0 * ZG)**2 + ELSE + RDG = (0.55685D0 + 0.48664753D0 * ZG)**2 + ENDIF +C GAMMAS USE RATIO TRAG TO CALCULATE RATIO OF RAPIDITY TO +C PSEUDO RAPIDITY DENSITY IN CENTER (TRAG = 1.1 * 0.5 ). +C FACTOR 0.5 COMES FROM RATIO NEUTRAL/CHARGED, AS WE USE DC0, WHICH +C IS AVERAGE PSEUDORAPIDITY DENSITY FOR CHARGED PIONS + TRAG = 0.55D0 + IF ( IDIF .EQ. 0 ) THEN + IF ( ECMDPM .GT. 19.4D0 ) + * TRAG = MAX( 0.4D0, 0.6658D0 - 0.01954D0 * SMLOG ) + IF ( ECMDPM .LE. 50.D0 ) THEN + DCG = DC0 * RDG * TRAG + ELSEIF ( ECMDPM .LE. 200.D0 ) THEN + DCG = DC0 * RDG * TRAG * (1.D0 + 0.18D0 * LOG(ECMDPM/50.D0)) + ELSE + DCG = DC0 * RDG * TRAG * 1.25D0 + ENDIF + ELSE + DCG = DC0 * RDG * TRAG + ENDIF +C DEFINE WIDTH OF STRINGS FOR NEUTRAL PIONS AND ETAS + WIDN2 = WIDC2 * MIN( 1.D0, 1.12275D0 - 0.0208D0 * RSLOG ) +C NEW DEFINITION OF CENTER OF GAUSSIAN BASED ON SEMI INCLUSIVE DATA +C USING AMPLITUDE OF THE GAUSSIAN FOR NEUTRALS + AUXIL = 2.D0 / (5.0132566D0 * WIDN2 * DCG) +C TOTAL MULTIPLICITY USED FOR 1ST AND 2ND STRING OF PI(0) AND ETA +C IS GIVEN BY THEIR NUMBERS. ANALOGOUS FOR 3RD STRING + SP2 = DBLE ( NPIZER(2)+NETAS(2)) * AUXIL +C FINAL CENTER OF GAUSSIANS FOR PI(0) AND ETA (WIDC2 IS UNCHANGED) + IF ( SP2 .GT. 1.D0 ) THEN + POSN2 = WIDN2 * SQRT( 2.D0 * LOG(SP2) ) + ELSE + POSN2 = POSC2 + ENDIF + WIDN3 = WIDN2 + SP3 = DBLE(NPIZER(3)+NETAS(3)) * AUXIL + IF ( SP3 .GT. 1.D0 ) THEN + POSN3 = WIDN3 * SQRT( 2.D0 * LOG(SP3) ) + ELSE + POSN3 = POSC3 + ENDIF + ELSE +C NFLPI0 .EQ. 1 MEANS RAPIDITY OF PI(0) AND ETA SAME AS THAT OF CHARGED + POSN2 = POSC2 + WIDN2 = WIDC2 + POSN3 = POSC3 + WIDN3 = WIDC3 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) + * ' ZG,RDG,DCG,SP2,SP3,POSN2,POSN3,WIDN2 =', + * SNGL(ZG),SNGL(RDG),SNGL(DCG),SNGL(SP2),SNGL(SP3),SNGL(POSN2), + * SNGL(POSN3),SNGL(WIDN2) + +C----------------------------------------------------------------------- + NREPR1 = 0 +C RETURN POINT. NUMBERS OF PARTICLES REMAIN UNCHANGED FOR NEXT TRY, +C BUT INDIVIDUAL RAPIDITIES GET NEW VALUES. +C START FROM BEGINNING IF NO MATCH AFTER 20 TRIES + 30 CONTINUE + NREPR1 = NREPR1 + 1 + IF ( NREPR1 .GT. 20 ) THEN + IF ( IDIF .EQ. 1 .AND. NREPRD .LE. 10 ) GOTO 1919 + GOTO 1 + ENDIF + +C FOR TOTAL NUMBER OF PARTICLES ADD 2 FOR LEADER AND ANTILEADER + NTOT = NTOTEM + 2 + +C PRODUCTION OF INDIVIDUAL RAPIDITIES FOR ALL SECONDARY PARTICLES + CALL PARRAP +CC IF ( DEBUG ) THEN +CC WRITE(MDEBUG,*) ' RAPIDITIES:' +CC WRITE(MDEBUG,134) (I,YR(I), I=3,NTOT) +C134 FORMAT(' ',1P, (1X, I4, 5X, G13.6 )) +CC ENDIF + + +C CALCULATION OF CENTRAL RAPIDITY WITHOUT (ANTI)LEADER +C MULTIPLICITY IN CENTER OF RAPIDITY DISTRIBUTION + IZN = 0.D0 + IF ( IDIF .EQ. 0 ) THEN + DO 111 I = 3,NTOT + IF ( ABS(YR(I)) .LT. DELRAP ) IZN = IZN + 1 + 111 CONTINUE + IF ( IZN .LT. 1 ) THEN + IF ( ISEL .EQ. 0 ) GOTO 30 +C IN CASE OF FEW PARTICLES, SET PARTICLE NUMBER IN PLATEAU TO 1 + IZN = 1 + ENDIF +C CENTRAL RAPIDITY DENSITY FOR CHARGED PARTICLES + IF ( NTOTEM .GE. 1 ) THEN + ZNC = MAX( 1.1D0, DBLE(NCH)*IZN/(DBLE(NTOTEM)*2.D0*DELRAP) ) + ELSE + ZNC = 1.1D0 + ENDIF + ELSE +C DIFFRACTION: SHIFT RAPIDITIES + TAKE CENT.RAP.DENS. FROM PARAMETRISAT + DO 112 I = 3,NTOT + YR(I) = YR(I) + YY0 + 112 CONTINUE + ZNC = MAX( 1.1D0, DCN2 ) + ENDIF + +C ZN ACCOUNTS FOR THE RISE OF PT WITH CENTRAL RAP.DENSITY. THE FORMULA +C IS A FIT TO UA1 VALUES OF ARNISON ET AL, PHYS.LETT.B118(1982)167 +C REGARD, THAT OUR ZN IS DEFINED DIFFERENT FROM LITERATURE N BY 1 +C - - - - - - +C MODIFICATION AFTER J.N. CAPDEVIELLE, (DEC.96) +* IF ( ECMDPM .LE. 500.D0 ) THEN +* ZN = MAX( 1.00001D0, 3.669D0 / ZNC**0.435D0 + 6.4D0 ) +* ELSE +C TAKE INTO ACCOUNT THE RESULTS OF UA1/MIMI EXPERIMENT +C FOR SMALL CENTR. RAP. DENS. RHOC < 3.00 (MIMI)(TO BE USED IN PTRAM) + IF ( ZNC .LT. 3.D0 ) THEN + PTAVE = 0.0033D0 * (ZNC-1.56D0)**2 + 0.406D0 + ELSE +C FOR LARGE CENTR. RAP. DENSITIES + PTAVE = ZNC*0.010853D0 + 0.3828D0 + ENDIF + ZN = 2.64D0/PTAVE + 3.D0 +* ENDIF +C - - - - - - +C NOW SET PARTICLE TYPE AND TRANSV. MOMENTA FOR NEW PARTICLES IN PPARAM +C SET ALSO TRANSVERSE MASS FOR ALL PARTICLES (INCL. LEADER+ANTILEADER) + CALL PPARAM + + IF ( IDIF .EQ. 0 ) THEN +C NOW SET THE RAPIDITY OF THE ANTILEADER ACCORDING TO THE DISTRIBUTION +C IN THE FEYNMAN X VARIABLE; SET THE RAPIDITY OF LEADER TO CONSUME +C THE REMAINDER OF ENERGY + CALL LEDENY( LEDEFL ) + IF ( LEDEFL .NE. 0 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) ' LEDEFL=',LEDEFL + GOTO 30 + ENDIF + +C CALCULATE FOR SINGLE COLLISION SYSTEM C.M. ENERGY + RAPIDITY SHIFT + IF ( GNU .LE. 1.D0 ) THEN + JGNU = 0.D0 + DYGNU = 0.D0 + ECMJAD = ECMDPM + ELSE +C MULTIPLE COLLISION IN TARGET + JGNU = NINT(GNU-1.D0) +C ADD ADDITIONALLY INTERACTING +C TARGET NUCLEONS TO GET CORRECT JADACH FILTERING +C CHOSE RANDOMLY WHETHER PROTON OR NEUTRON + CALL RMMAR( RD,JGNU,1 ) + IPR = 0 + INE = 0 + TARMAS = PAMA(ITYP(2)) + DO 114 I = 1,JGNU + NTOT = NTOT + 1 + IF ( RD(I) .LE. .5D0 ) THEN + ITYP(NTOT) = 13 + INE = INE + 1 + ELSE + ITYP(NTOT) = 14 + IPR = IPR + 1 + ENDIF + TMAS(NTOT) = PAMA(ITYP(NTOT)) + TARMAS = TARMAS + TMAS(NTOT) + EA(NTOT) = TMAS(NTOT) + PX(NTOT) = 0.D0 + PY(NTOT) = 0.D0 + PT2(NTOT) = 0.D0 + 114 CONTINUE + +C CALCULATE C.M. ENERGY + RAPIDITY SHIFT +* YCMGNU = 0.5D0 * LOG( (ELAB+TARMAS+PLAB)/(ELAB+TARMAS-PLAB) ) + YCMGNU = 0.5D0 * LOG( (EPLUSP**2 +TARMAS*EPLUSP)/ + * (PAMA(ITYPE)**2+TARMAS*EPLUSP) ) + DYGNU = YCM - YCMGNU + +C CALCULATE RAPIDITIES OF ADDITIONALLY INTERACTING TARGET NUCLEONS +C IN THE CM SYSTEM OF NUCLEON-NUCLEON SYSTEM + DO 115 I = NTOT-JGNU+1,NTOT + YR(I) = - YCM + 115 CONTINUE +C SHIFT RAPIDITIES INTO CM SYSTEM OF GNU+1 MASSES + DO 113 I = 1,NTOT + YR(I) = YR(I) + DYGNU + 113 CONTINUE + +C CENTER OF MASS ENERGY OF 1 PROJECTILE AND GNU TARGET NUCLEONS TO +C BE USED IN THE JADACH FILTER. + ECMJAD = SQRT( PAMA(ITYPE)**2 + TARMAS**2 + 2.D0*TARMAS*ELAB ) + + ENDIF + + ELSE +C IN CASE OF DIFFRACTION SET THE RAPIDITY OF LEADER AND ANTILEADER +C IN SUBROUT. LEADDF + DYGNU = 0.D0 + ECMJAD = ECMDPM + CALL LEADDF( IFLGLD ) + IF ( IFLGLD .NE. 0 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) ' IFLGLD=',IFLGLD + GOTO 30 + ENDIF + ENDIF + +C CORRECT THE RAPIDITIES TO CONSERVE LONGITUDINAL MOMENTA AND ENERGY +C USING THE ALGORITHM OF JADACH (SIMPLIFIED VERSION BY R. ATTALLAH) + CALL JADACH( ECMJAD,JADFLG ) + IF ( JADFLG .NE. 0 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) ' JADFLG=', JADFLG + IF ( JADFLG .GT. 0 ) GOTO 30 + IF ( JADFLG .LT. 0 ) THEN + NREPRD = NREPRD + 1 + IF ( NREPRD .GT. 10 ) GOTO 1 + GOTO 1919 + ENDIF + ENDIF + + +C CALCULATE LAB ENERGIES OF SECONDARY PARTICLES FROM THE RAPIDITIES +C INCLUDING THE ADDITIONAL TARGET NUCLEONS + ETOT = 0.D0 + DO 135 I = 1,NTOT + YR(I) = YR(I) + YCM - DYGNU + EA(I) = TMAS(I) * COSH( YR(I) ) + ETOT = ETOT + EA(I) + 135 CONTINUE + + IF ( DEBUG ) WRITE(MDEBUG,136) + * (I,ITYP(I),PX(I),PY(I),YR(I),EA(I),I=1,NTOT) + 136 FORMAT(' NO ITYP PX PY YR EA'/ + * (' ',I4,I3,1X,1P,4G13.6) ) + +C----------------------------------------------------------------------- +C LOOP OVER ALL SECONDARY PARTICLES AND THE LEADING PARTICLE + +C PROCESS LOOP + DO 140 J = 1,NTOT +C REJECTION OF BACKWARD GOING PARTICLES + IF ( YR(J) .LE. 0.D0 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'HDPM : YR REJECT PARTICLE ',J + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + EA(J) + ENDIF + GOTO 140 + ENDIF +C CALCULATE THE PROPERTIES OF ALL SECONDARIES +C PARTICLE TYPE + SECPAR(1) = ITYP(J) +C CALCULATE GAMMA FACTOR + SECPAR(2) = EA(J) / PAMA(ITYP(J)) +C TOTAL MOMENTUM SQUARED + PTM = EA(J)**2 - PAMA(ITYP(J))**2 + IF ( PT2(J) .GT. PTM ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'HDPM : PT REJECT PARTICLE ',J + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + EA(J) + ENDIF + GOTO 140 + ENDIF +C EMISSION ZENITH ANGLE AGAINST TRAJECTORY OF PROJECTILE + IF ( PTM .EQ. 0.D0 ) THEN + COSTET = 1.D0 + ELSE + COSTET = SQRT( 1.D0 - PT2(J) / PTM ) + ENDIF +C EMISSION AZIMUTH ANGLE + IF ( PX(J) .NE. 0.D0 .OR. PY(J) .NE. 0.D0 ) THEN + PHIJ = ATAN2( PY(J), PX(J) ) + ELSE + PHIJ = 0.D0 + ENDIF + CALL ADDANG( COSTHE,PHI, COSTET,PHIJ, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .LT. C(29) ) THEN +C OMIT UPWARD GOING PARTICLES + IF (DEBUG) WRITE(MDEBUG,*) 'HDPM : ANGLE REJECT PARTICLE ',J + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + EA(J) + ENDIF + GOTO 140 + ENDIF +C PUT SECONDARY PARTICLES ON STACK, IF NOT GOING UPWARDS + IF ( J .GT. 2 ) THEN + CALL TSTACK + ELSE +C PUT LEADER OR ANTI-LEADER ON STACK, IF NOT GOING UPWARDS + IF ( ITYP(J) .GT. 50 ) THEN +C LEADER OR ANTI LEADER ARE RESONANCES AND DECAY + IRESPAR = IRESPAR + 1 + IF ( IRESPAR .GE. 30000 ) THEN + WRITE(MONIOU,*) + * 'HDPM : STACK OF RESDEC RANDOM NUMBERS FULL' + IRESPAR = 29999 + ENDIF + RESRAN(IRESPAR) = RDRES(J) +C COUNTER FOR ENERGY-MULTIPLICITY MATRIX + MSMM = MSMM + 1 + ENDIF + CALL TSTACK + +C CALCULATE ELASTICITY FROM ENERGY OF LEADER (REST OF RESONANCE DECAY) + IF ( J. EQ. 1 ) ELASTI = SECPAR(2)*PAMA(NINT(SECPAR(1)))/ELAB + ENDIF +C COUNTERS FOR FIRST INTERACTION + IF ( FIRSTI ) THEN + IF ( SECPAR(1) .EQ. 7.D0 .OR. SECPAR(1) .EQ. 8.D0 + * .OR. SECPAR(1) .EQ. 9.D0 ) THEN + IFINPI = IFINPI + 1 + ELSEIF ( SECPAR(1) .EQ. 13.D0 .OR. SECPAR(1) .EQ. 14.D0 + * .OR. SECPAR(1) .EQ. 15.D0 .OR. SECPAR(1) .EQ. 25.D0 ) THEN + IFINNU = IFINNU + 1 + ELSEIF ( SECPAR(1) .EQ. 10.D0 .OR. SECPAR(1) .EQ. 11.D0 + * .OR. SECPAR(1) .EQ. 12.D0 .OR. SECPAR(1) .EQ. 16.D0 ) THEN + IFINKA = IFINKA + 1 + ELSEIF ( SECPAR(1) .GE. 71.D0 .AND. SECPAR(1) .LE. 74.D0) THEN + IFINET = IFINET + 1 + ELSEIF ((SECPAR(1) .GE. 18.D0 .AND. SECPAR(1) .LE. 24.D0) + * .OR. (SECPAR(1) .GE. 26.D0 .AND. SECPAR(1) .LE. 32.D0))THEN + IFINHY = IFINHY + 1 + ENDIF + ENDIF + + 140 CONTINUE + +C COUNTER FOR ENERGY-MULTIPLICITY MATRIX + MSMM = MSMM + NTOT - 2 + +C FILL ELASTICITY IN MATRICES + MEL = MIN ( 1.D0+10.D0* MAX( 0.D0, ELASTI ) , 11.D0 ) + MEN = MIN ( 4.D0+ 3.D0*LOG10(MAX( .1D0, EKINL )), 40.D0 ) + IELDPM(MEN,MEL) = IELDPM(MEN,MEL) + 1 + IELDPA(MEN,MEL) = IELDPA(MEN,MEL) + 1 + IF ( ELASTI .LT. 1.D0 ) THEN + ELMEAN(MEN) = ELMEAN(MEN) + ELASTI + ELMEAA(MEN) = ELMEAA(MEN) + ELASTI + ENDIF + + IF ( FIRSTI ) THEN + TARG1I = TAR + SIG1I = SIGAIR + ELAST = ELASTI + FIRSTI = .FALSE. + ENDIF + + IF ( DEBUG ) WRITE(MDEBUG,*) 'HDPM : ELAST=',SNGL(ELASTI), + * SNGL(ETOT),SNGL(ELAB) + + RETURN + END +*CMZ : 28/09/2001 16.38.22 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE JADACH( ECMJAD,JADFLG ) + +C----------------------------------------------------------------------- +C JADACH (FILTER) +C +C ADJUSTS THE RAPIDITIES OF ALL SECONDARIES SUCH THAT +C ENERGY AND LONGITUDINAL MOMENTUM ARE CONSERVED AT THE SAME TIME +C THE ALGORITHM IS TAKEN FROM S.JADACH, COM.PHYS.COMM. 9 (1975) 297 +C THE ROUTINE MUST BE CALLED AFTER THE PT IS CONSERVED AND BEFORE +C THE TRANSFORMATION TO THE LAB SYSTEM IS DONE +C THIS SUBROUTINE IS CALLED FROM HDPM. +C ARGUMENTS: +C ECMJAD = CM ENERGY IN THE PROJECTILE -- GNU*NUCLEONS SYSTEM +C JADFLG = 0 JADACH FILTER CORRECTLY ENDED +C = 1 BAD RAPIDITIES, SELECT RAPIDITIES AGAIN +C =-1 SUM OF TRANSVERSE MASSES EXCEEDS AVAILABLE CM ENERGY +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,NEWPAR. + COMMON /NEWPAR/ EA,PT2,PX,PY,TMAS,YR,ITYP, + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT + DOUBLE PRECISION EA(3000),PT2(3000),PX(3000),PY(3000),TMAS(3000), + * YR(3000) + INTEGER ITYP(3000), + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DIMENSION YRJAD(3000) + SAVE + DATA EPS / 1.D-7 / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'JADACH: NTOT=',NTOT + + JADFLG = 0 + +C SUM UP TRANSVERSE MOMENTA AND COMPARE WITH AVAILABLE C.M.ENERGY + STMAS = 0.D0 + ECMI = 1.D0 / ECMJAD + DO 4 I = 1,NTOT + STMAS = STMAS + TMAS(I) + YRJAD(I) = YR(I) + 4 CONTINUE + REST = ( ECMJAD - STMAS ) * ECMI + IF ( REST .LE. 0.D0 ) THEN +C SUMMED TRANSVERSE MASS > AVAILABLE C.M. ENERGY + JADFLG = -1 + RETURN + ENDIF + FACT = 1.5D0 / REST + AA = 1.D0 + DIFOLD = 0.D0 + JCOUNT = 0 +C OPTIMIZATION LOOP TO DEFINE PARAMETER AA + 1 CONTINUE + JCOUNT = JCOUNT + 1 + IF ( JCOUNT .GE. 50 ) GOTO 999 +C FORM SUMS S1 AND S2 + S1 = 0.D0 + S2 = 0.D0 + DO 5 I = 1,NTOT + EXPO = EXP( AA * YR(I) ) + S1 = S1 + TMAS(I) * ECMI * EXPO + S2 = S2 + TMAS(I) * ECMI / EXPO + 5 CONTINUE + DIFF = 0.1D0 * LOG(S1*S2) +C ACCELERATING OF CONVERGENCE IF NO CHANGE OF SIGN IN DIFF + IF ( DIFOLD*DIFF .GE. 0.D0 ) DIFF = DIFF * FACT + DIFOLD = DIFF + IF ( DEBUG ) WRITE(MDEBUG,*) ' DIFF=',SNGL(DIFF) + AA = AA * MAX( 0.1D0, (1.D0 - DIFF) ) + IF ( ABS(DIFF) .GT. EPS ) GOTO 1 + +C ITERATION HAS CONVERGED, CALCULATE PARAMETER BB + BB = 0.5D0 * LOG(S2/S1) + + IF ( DEBUG ) WRITE(MDEBUG,110) JCOUNT,STMAS,REST + 110 FORMAT(' JCOUNT, STMAS, REST = ',I5,2E13.5,/ + * ' NUM ITYP TMAS YR(OLD) YR(NEW)') +C CORRECT RAPIDITIES + DO 10 I = 1,NTOT + YR(I) = AA * YR(I) + BB + IF ( DEBUG ) WRITE(MDEBUG,111) I,ITYP(I),TMAS(I),YRJAD(I),YR(I) + 111 FORMAT(' ',I4,I6,F12.5,2F16.8) +C IMPOSSIBLE RAPIDITY, DETERMINE AGAIN THE RAPIDITIES + IF ( ABS(YR(I)) .GT. LOG(ECMJAD/PAMA(ITYP(I))) ) GOTO 999 + 10 CONTINUE + RETURN + +C ERROR EXIT + 999 JADFLG = 1 +C NO CONVERGENCE AFTER 50 ITERATIONS OR IMPOSSIBLE RAPIDITY + RETURN + END +*CMZ : 14/06/2000 14.29.37 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE LEADDF( IFLGLD ) + +C----------------------------------------------------------------------- +C LEAD(ING PARTICLE RAPIDITY FOR) D(I)F(FFRACTING SYSTEM) +C +C SELECTS THE RAPIDITY OF THE (ANTI)LEADING PARTICLES IN CASE OF +C DIFFRACTION. THE NON-DIFFRACTING (ANTI)LEADER GETS ITS RAPIDITY +C FROM THE REMAINDER ENERGY, THE DIFFRACTING (ANTI)LEADER GETS ITS +C RAPIDITY FROM THE GAUSSIAN (STRING) OF THE DECAYING DIFFRACTIVE MASS. +C THIS SUBROUTINE IS CALLED FROM HDPM. +C ARGUMENT: +C IFLGLD = 0 RAPIDITY SELECTION SUCCESSFUL +C = 1 RAPIDITY SELECTION NOT SUCCESSFULL +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,LEPAR. + COMMON /LEPAR/ LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS + INTEGER LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS +*KEEP,NEWPAR. + COMMON /NEWPAR/ EA,PT2,PX,PY,TMAS,YR,ITYP, + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT + DOUBLE PRECISION EA(3000),PT2(3000),PX(3000),PY(3000),TMAS(3000), + * YR(3000) + INTEGER ITYP(3000), + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION RANNOR + SAVE + EXTERNAL RANNOR +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEADDF: LEPAR1,LEPAR2=', + * LEPAR1,LEPAR2 + + IF ( YY0 .GT. 0.D0 ) THEN +C PROJECTILE DIFFRACTION; CALCULATE TARGET RAPIDITY USING TARGET +C ENERGY ECMTAR AND LONGITUDINAL MOMENTUM PCMTAR THE IN C.M. SYSTEM + ECMTAR = (ECMDPM**2 - ECMDIF**2 + TMAS(2)**2) / (2.D0 * ECMDPM) + PTLSQ = ECMTAR**2 - TMAS(2)**2 + IF ( PTLSQ .LE. 0.D0 ) THEN + IFLGLD = 1 + RETURN + ENDIF + PCMTAR = SQRT(PTLSQ) +* YR(2) = (-0.5D0) * LOG( (ECMTAR+PCMTAR) / (ECMTAR-PCMTAR) ) + YR(2) = - LOG( (ECMTAR+PCMTAR) / TMAS(2) ) +C RAPIDITY OF DIFFRACTING PROJECTILE + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .GE. 0.5 ) THEN + YR(1) = RANNOR( POSC2, WIDC2 ) + YY0 + ELSE + YR(1) = RANNOR(-POSC2, WIDC2 ) + YY0 + ENDIF + + ELSE +C TARGET DIFFRACTION; CALCULATE PROJECTILE RAPIDITY USING PROJECTILE +C ENERGY ECMPRO AND LONGITUDINAL MOMENTUM PLPRO IN THE C.M. SYSTEM + ECMPRO = (ECMDPM**2 -ECMDIF**2 +TMAS(1)**2) / (2.D0*ECMDPM) + PPLSQ = ECMPRO**2 - TMAS(1)**2 + IF ( PPLSQ .LE. 0.D0 ) THEN + IFLGLD = 1 + RETURN + ENDIF + PCMPRO = SQRT(PPLSQ) +* YR(1) = 0.5D0 * LOG( (ECMPRO+PCMPRO) / (ECMPRO-PCMPRO) ) + YR(1) = LOG( (ECMPRO+PCMPRO) / TMAS(1) ) +C RAPIDITY OF DIFFRACTING TARGET NUCLEON + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .GE. 0.5 ) THEN + YR(2) = RANNOR( POSC2, WIDC2 ) + YY0 + ELSE + YR(2) = RANNOR(-POSC2, WIDC2 ) + YY0 + ENDIF + ENDIF + + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEADDF: YR(2),YR(1)=', + * SNGL(YR(2)),SNGL(YR(1)) + IFLGLD = 0 + RETURN + END +*CMZ : 14/06/2000 14.29.37 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE LEDENY( LEDEFL ) + +C----------------------------------------------------------------------- +C LE(A)D(ER'S) EN(ERG)Y +C +C SELECTS THE FEYNMAN X OF THE ANTILEADING PARTICLES FROM A THEORETICAL +C DISTRIBUTION AND CALCULATES THE RAPIDITY FROM IT +C CALCULATE THE RAPIDITY OF THE LEADER FROM THE REMAINDER OF ENERGY +C THIS SUBROUTINE IS CALLED FROM HDPM. +C ARGUMENT: +C LEDEFL = 0 CORRECT ENDING OF LEDENY +C = 1 NOT CORRECT ENDING OF LEDENY +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,LEPAR. + COMMON /LEPAR/ LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS + INTEGER LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS +*KEEP,NEWPAR. + COMMON /NEWPAR/ EA,PT2,PX,PY,TMAS,YR,ITYP, + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT + DOUBLE PRECISION EA(3000),PT2(3000),PX(3000),PY(3000),TMAS(3000), + * YR(3000) + INTEGER ITYP(3000), + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,VKIN. + COMMON /VKIN/ BETACM + DOUBLE PRECISION BETACM +*KEND. + + SAVE + DATA SL / 3.D0 / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEDENY: ITYPE,ITAR=',ITYPE,ITAR + +C BETACM IS AVAILABLE IN COMMON /VKIN/ BUT NOT FOR PHOTOPRODUCTION + IF ( ITYPE .EQ. 7 ) BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) + +C MOMENTUM OF INCOMING TARGET IN CM SYSTEM + PNT = PAMA(ITAR) * GCM * BETACM + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEDENY: PNT=',SNGL(PNT) + +C GET FEYNMAN X FOR ANTILEADER DEPENDING ON ENERGY +C DISCRIPTION OF THE FEYNMAN X DISTRIBUTION DEPENDING ON ENERGY +C DN/DXF = SL*XF 0 < XF < X1 +C DN/DXF = SL*X1 X1 < XF < X2 +C DN/DXF = SL*X1 * EXP(-AL*(XF-X2)) X2 < XF < 1 + + IF ( ECMDPM .LT. 13.76D0 ) THEN + X1 = 0.20D0 + X2 = 0.65D0 + AL = 1.265D0 + ELSEIF ( ECMDPM .LT. 5580.D0 ) THEN + X1 = 0.716D0 + 0.00543D0 * SMLOG + X2 = 0.8175D0 - 0.032D0 * SMLOG + AL = 1.14D0 + 0.022D0 * SMLOG + ELSE + X1 = 0.265D0 + X2 = 0.265D0 + AL = 1.14D0 + 0.022D0*SMLOG + ENDIF + +C CALCULATE THE INTEGRALS OVER THE THREE PARTS OF THE FUNCTION + AA = 0.5D0 * SL * X1**2 + BB = SL * X1 * (X2 - X1) + CC = SL * X1 / AL * ( 1.D0 - EXP( AL*(X2-1.D0) ) ) +C NORMALIZE TO 1 + TT = 1.D0 / (AA + BB + CC) + CC = CC * TT + AA = AA * TT + BB = BB * TT + AB = AA + BB + + CALL RMMAR( RD,1,1 ) +C GET XF FOR ANTILEADER + IF ( RD(1) .LE. AA ) THEN + XF = SQRT( RD(1)*2.D0 / (SL*TT) ) + ELSEIF ( RD(1) .LE. AB ) THEN + XF = (RD(1)-AA) / (SL*X1*TT) + X1 + ELSE + XF = X2 - LOG( 1.D0 - (RD(1)-AB)*AL/(SL*X1*TT) ) / AL + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEDENY: XF(TARGET)=',SNGL(XF) + +C CONVERT FEYNMAN X INTO RAPIDITY FOR ANTILEADER + PLAL = PNT * XF * PAMA(LEPAR2) / PAMA(ITAR) + EA(2) = SQRT(PLAL**2 + TMAS(2)**2) +* YR(2) = (-0.5D0) * LOG( (EA(2)+PLAL)/(EA(2)-PLAL) ) + YR(2) = - LOG( (EA(2)+PLAL)/TMAS(2) ) + +C CALCULATE THE REMAINDER OF ENERGY AND LONG. MOMENTUM OF LEADER +C THIS HOLDS ALSO FOR MULTIPLE COLLISIONS (GNU > 1) + ESUM = 0.D0 + DO 10 I = 2,NTOT + EA(I) = TMAS(I) * COSH( YR(I) + YCM ) + ESUM = ESUM + EA(I) + 10 CONTINUE + EA(1) = ELAB + PAMA(ITAR) - ESUM + IF ( EA(1) .LE. TMAS(1) ) THEN + LEDEFL = 1 + RETURN + ENDIF + PLLBSQ = EA(1)**2 - TMAS(1)**2 + PLLB = SQRT( PLLBSQ ) +* YR(1) = 0.5D0 * LOG( (EA(1) + PLLB) / (EA(1) - PLLB) ) - YCM + YR(1) = LOG( (EA(1) + PLLB) / TMAS(1) ) - YCM + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEDENY: EA(1),YR(2),YR(1)=', + * SNGL(EA(1)),SNGL(YR(2)),SNGL(YR(1)) + LEDEFL = 0 + RETURN + END +*CMZ : 15/06/2000 14.13.19 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE LEPACX( ECMCE,SDMLOG,LEPART,IPART ) + +C----------------------------------------------------------------------- +C LE(ADING) PA(RTICLE) C(HARGE) (E)X(CHANGE) +C +C CONSIDERS CHARGE EXCHANGE POSSIBILITY OF (ANTI)LEADING PARTICLE +C CONSIDERS RESONANCE EXCITATION WITHOUT/WITH CHARGE EXCHANGE +C LASTPI INCREASED: CREATE ONE CHARGED PION FOR CHARGE CONSERVATION +C LASTPI UNCHANGED: NO CHARGE EXCHANGE +C LASTPI DECREASED: CANCEL ONE CHARGED PION FOR CHARGE CONSERVATION +C NRESPC INCREASED BY 1, IF PI(+-) WILL BE GENERATED BY RESON. DECAY +C NRESPN INCREASED BY 1, IF PI(0) WILL BE GENERATED BY RESON. DECAY +C NCPLUS INCREASED BY 1, IF POSITIVE CHARGE IS CREATED +C NCPLUS DECREASED BY 1, IF NEGATIVE CHARGE IS CREATED +C THIS SUBROUTINE IS CALLED FROM HDPM. +C ARGUMENTS: +C ECMCE = ENERGY FOR CHARGE EXCHANGE (ECMDPM OR ECMDIF) +C SDMLOG = ELABLG FOR NSD, DMLOG FOR DIFFRACTION +C LEPART = PARTICLE CODE OF (ANTI)LEADER EXCHANGING CHARGE +C IPART = PARTICLE NUMBER IN ARRAY OF SECONDARY PARTICLES +C = 1 FOR LEADER, = 2 FOR ANTI-LEADER +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,LEPAR. + COMMON /LEPAR/ LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS + INTEGER LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RESON. + COMMON /RESON/ RDRES,RESRAN,IRESPAR + REAL RDRES(2),RESRAN(30000) + INTEGER IRESPAR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: LEPART=',LEPART + +C SET PROBABILITIES FOR RESONANCE PRODUCTION (PRESPR) AND FOR +C CHARGE EXCHANGE OR RESONANCE PRODUCTION (PCEXRS) + IF ( ECMCE .LE. 19.4D0 ) THEN + PCEXRS = 0.45D0 + PRESPR = 0.35D0 + ELSEIF ( ECMCE .LT. 968.5D0 ) THEN + PCEXRS = 0.45D0 + 0.034509D0 * (SDMLOG - 5.29832D0) + PRESPR = 0.0881897D0 * (SDMLOG - 5.29832D0) + ELSE + PCEXRS = 0.72D0 + PRESPR = 0.69D0 + ENDIF + PRESPR = MAX( 0.35D0, PRESPR ) + IF ( LEPART .EQ. 7 ) THEN +C ASSUME 50% CHARGE EXCHANGE FOR GAMMA INITIATED INTERACTION + PCEXRS = 0.5D0 + PRESPR = 0.D0 + ENDIF + +C THROW RANDOM NUMBER TO LOOK FOR RES. PRODUCTION OR CHARGE EXCHANGE + CALL RMMAR( RD,2,1 ) + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C RESONANCE IS FORMED. IF ADDITIONAL CHARGE EXCHANGE, THEN SET LASTPI + IF ( RD(1) .LE. PRESPR ) THEN + +C FIRST FOR NUCLEONS (AS MOST FREQUENT) + IF ( LEPART .EQ. 13 ) THEN + IF ( RD(2) .LE. 0.5 ) THEN +C NEUTRON ----> DELTA(-) + LEPART = 57 + NRESPC = NRESPC + 1 + NCPLUS = NCPLUS - 1 + ELSEIF ( RD(2) .GT. TB3 ) THEN +C NEUTRON ----> DELTA(0) + LEPART = 56 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + ELSE + NRESPC = NRESPC + 1 + LASTPI = LASTPI - 1 + ENDIF + ELSE +C NEUTRON ----> DELTA(+) + LEPART = 55 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + LASTPI = LASTPI - 1 + ELSE + NRESPC = NRESPC + 1 + ENDIF + NCPLUS = NCPLUS + 1 + ENDIF + ELSEIF ( LEPART .EQ. 14 ) THEN + IF ( RD(2) .LE. 0.5 ) THEN +C PROTON ----> DELTA(++) + LEPART = 54 + NRESPC = NRESPC + 1 + NCPLUS = NCPLUS + 1 + ELSEIF ( RD(2) .GT. TB3 ) THEN +C PROTON ----> DELTA(+) + LEPART = 55 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + ELSE + NRESPC = NRESPC + 1 + LASTPI = LASTPI + 1 + ENDIF + ELSE +C PROTON ----> DELTA(0) + LEPART = 56 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + LASTPI = LASTPI + 1 + ELSE + NRESPC = NRESPC + 1 + ENDIF + NCPLUS = NCPLUS - 1 + ENDIF + +C NOW FOR PIONS + ELSEIF ( LEPART .EQ. 8 .OR. LEPART .EQ. 9 ) THEN + IF ( RD(2) .LE. 0.5 ) THEN +C PI(+-) ----> RHO(+-) + LEPART = LEPART + 44 + NRESPN = NRESPN + 1 + ELSE +C PI(+-) ----> RHO(0) ( ----> PI(+) + PI(-) ) + NCPLUS = NCPLUS + 2 * LEPART - 17 + LEPART = 51 + NRESPC = NRESPC + 1 + ENDIF + +C NOW FOR KAONS + ELSEIF ( LEPART .EQ. 11 .OR. LEPART .EQ. 12 ) THEN + IF ( RD(2) .LE. 0.5 ) THEN +C K(+-) ----> K*(+-) + LEPART = LEPART + 52 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + ELSE + NRESPC = NRESPC + 1 + LASTPI = LASTPI + 1 + ENDIF + ELSE +C K(+) ----> K*(0) +C K(-) ----> ANTI-K*(0) + CALL RMMAR( RDRES(IPART),1,1 ) + NCPLUS = NCPLUS + 2 * LEPART - 23 + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPC = NRESPC + 1 + ELSE + NRESPN = NRESPN + 1 + LASTPI = LASTPI + 1 + ENDIF + LEPART = 3*LEPART + 29 + ENDIF + ELSEIF ( LEPART .EQ. 10 .OR. LEPART .EQ. 16 ) THEN + IF ( RD(2) .LE. 0.5 ) THEN +C K(0) ----> (ANTI) K*(0) + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LE. 0.5 ) THEN + LEPART = 62 + ELSE + LEPART = 65 + ENDIF + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPC = NRESPC + 1 + LASTPI = LASTPI - 1 + ELSE + NRESPN = NRESPN + 1 + ENDIF + ELSE +C K(0) ----> K*(+-) + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LE. 0.5 ) THEN + LEPART = 63 + NCPLUS = NCPLUS + 1 + ELSE + LEPART = 64 + NCPLUS = NCPLUS - 1 + ENDIF + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + LASTPI = LASTPI - 1 + ELSE + NRESPC = NRESPC + 1 + ENDIF + ENDIF + +C NOW FOR ANTINUCLEONS + ELSEIF ( LEPART .EQ. 25 ) THEN + IF ( RD(2) .LE. 0.5 ) THEN +C ANTINEUTRON ----> ANTI-DELTA(0) + LEPART = 60 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + ELSE + NRESPC = NRESPC + 1 + LASTPI = LASTPI - 1 + ENDIF + ELSEIF ( RD(2) .GT. TB3 ) THEN +C ANTINEUTRON ----> ANTI-DELTA(+) + LEPART = 61 + NRESPC = NRESPC + 1 + NCPLUS = NCPLUS + 1 + ELSE +C ANTINEUTRON ----> ANTI-DELTA(-) + LEPART = 59 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + LASTPI = LASTPI - 1 + ELSE + NRESPC = NRESPC + 1 + ENDIF + NCPLUS = NCPLUS - 1 + ENDIF + ELSEIF ( LEPART .EQ. 15 ) THEN + IF ( RD(2) .LE. 0.5 ) THEN +C ANTIPROTON ----> ANTI-DELTA(--) + LEPART = 58 + NRESPC = NRESPC + 1 + NCPLUS = NCPLUS - 1 + ELSEIF ( RD(2) .GT. TB3 ) THEN +C ANTIPROTON ----> ANTI-DELTA(-) + LEPART = 59 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + ELSE + NRESPC = NRESPC + 1 + LASTPI = LASTPI + 1 + ENDIF + ELSE +C ANTIPROTON ----> ANTI-DELTA(0) + LEPART = 60 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + LASTPI = LASTPI + 1 + ELSE + NRESPC = NRESPC + 1 + ENDIF + NCPLUS = NCPLUS + 1 + ENDIF + + ELSEIF ( LEPART .EQ. 7 ) THEN +C NO RESONANCE FORMATION FOR INDUCING GAMMA RADIATION + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: NO EXCHANGE' + + ELSEIF ( (LEPART .GE. 18 .AND. LEPART .LE. 24) .OR. + * (LEPART .GE. 26 .AND. LEPART .LE. 32) ) THEN +C NO RESONANCE FORMATION FOR STRANGE BARYONS + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: NO EXCHANGE' + + ELSEIF ( LEPART .EQ. 17 ) THEN +C NO RESONANCE FORMATION FOR INDUCING ETA + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: NO EXCHANGE' + + ELSEIF ( LEPART .GE. 71 .AND. LEPART .LE. 74 ) THEN +C NO RESONANCE FORMATION FOR INDUCING ETA + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: NO EXCHANGE' + + ELSE + WRITE(MONIOU,100) LEPART + 100 FORMAT(1H ,'LEPACX: UNIDENTIFIED PARTICLE CODE= ',I4, + * ' FOR RESONANCE FORMATION') + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,102) + * LEPART,LASTPI,NRESPC,NRESPN,NCPLUS + 102 FORMAT(' LEPACX: LEPART,LASTPI,NRESPC,NRESPN,NCPLUS=',5I5) + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C CHARGE EXCHANGE WITHOUT RESONANCE FORMATION + ELSEIF ( RD(1) .LE. PCEXRS ) THEN + +C FIRST FOR NUCLEONS (AS MOST FREQUENT) + IF ( LEPART .EQ. 13 ) THEN +C NEUTRON ( + PI(+) ) ----> PROTON ( + PI(0) ) + LEPART = 14 + LASTPI = LASTPI - 1 + NCPLUS = NCPLUS + 1 + ELSEIF ( LEPART .EQ. 14 ) THEN +C PROTON ( + PI(0) ) ----> NEUTRON ( + PI(+) ) + LEPART = 13 + LASTPI = LASTPI + 1 + NCPLUS = NCPLUS - 1 + +C NOW FOR PIONS + ELSEIF ( LEPART .EQ. 8 .OR. LEPART .EQ. 9 ) THEN +C PI(+-) ----> PI(0) + NCPLUS = NCPLUS + 2 * LEPART - 17 + LEPART = 7 + LASTPI = LASTPI + 1 + +C NOW FOR KAONS + ELSEIF ( LEPART .EQ. 11 .OR. LEPART .EQ. 12 ) THEN +C K(+-) ----> K(0) (S OR L) + NCPLUS = NCPLUS + 2 * LEPART - 23 + IF ( RD(2) .LE. 0.5 ) THEN + LEPART = 10 + ELSE + LEPART = 16 + ENDIF + LASTPI = LASTPI + 1 + ELSEIF ( LEPART .EQ. 10 .OR. LEPART .EQ. 16 ) THEN +C K(0) ----> K(+-) + IF ( RD(2) .LE. 0.5 ) THEN + LEPART = 11 + NCPLUS = NCPLUS + 1 + ELSE + LEPART = 12 + NCPLUS = NCPLUS - 1 + ENDIF + LASTPI = LASTPI - 1 + +C NOW FOR ANTINUCLEONS + ELSEIF ( LEPART .EQ. 25 ) THEN +C ANTINEUTRON ( + PI(-) ) ----> ANTIPROTON ( + PI(0) ) + LEPART = 15 + LASTPI = LASTPI - 1 + NCPLUS = NCPLUS - 1 + ELSEIF ( LEPART .EQ. 15 ) THEN +C ANTIPROTON ( + PI(0) ) ----> ANTINEUTRON ( + PI(-) ) + LEPART = 25 + LASTPI = LASTPI + 1 + NCPLUS = NCPLUS + 1 + +C NOW FOR GAMMA INDUCED REACTIONS (ITYPE=7) + ELSEIF ( LEPART .EQ. 7 ) THEN +C TEST IF CHARGE EXCHANGE REACTION FOR PI(0) +C PI(0) ----> PI(+-) + IF ( RD(2) .LE. 0.5 ) THEN + LEPART = 8 + NCPLUS = NCPLUS + 1 + ELSE + LEPART = 9 + NCPLUS = NCPLUS - 1 + ENDIF + LASTPI = LASTPI - 1 + + ELSEIF ( (LEPART .GE. 18 .AND. LEPART .LE. 24) .OR. + * (LEPART .GE. 26 .AND. LEPART .LE. 32) ) THEN +C NO CHARGE EXCHANGE FOR STRANGE BARYONS + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: NO EXCHANGE' + + ELSEIF ( LEPART .EQ. 17 ) THEN +C NO CHARGE EXCHANGE FOR INDUCING ETA + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: NO EXCHANGE' + + ELSEIF ( LEPART .GE. 71 .AND. LEPART .LE. 74 ) THEN +C NO CHARGE EXCHANGE FOR INDUCING ETA + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: NO EXCHANGE' + + ELSE + WRITE(MONIOU,101) LEPART + 101 FORMAT(1H ,'LEPACX: UNIDENTIFIED PARTICLE CODE= ',I4, + * ' FOR CHARGE EXCHANGE') + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: LEPART,LASTPI,NCPLUS=', + * LEPART,LASTPI,NCPLUS + ELSE + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: NO EXCHANGE' + ENDIF + + RETURN + END +*CMZ : 11/07/2000 10.08.31 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE NSD + +C----------------------------------------------------------------------- +C N(ON) S(INGLE) D(IFFRACTION CASE) +C +C SETS PARAMETERS FOR HDPM IN CASE OF NON-SINGLE-DIFFRACTION EVENT +C THIS SUBROUTINE IS CALLED FROM HDPM. +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'NSD :' + +C CENTRAL RAPIDITY DENSITY ( RHO ) FOR NSD REACTION +C PARAMETRISATION SEE CAPDEVIELLE,J.PHYS.G:NUCL.PHYS.16(1990)1539 EQ.7 + IF ( ECMDPM .LE. 680.D0 ) THEN + DC0 = 0.82D0 * (S**0.107D0) + ELSE + DC0 = 0.64D0 * (S**0.126D0) + ENDIF +C THERE ARE 3 ENERGY DEPENDENT FORMULAS FOR AVERAGE CHARGED +C MULTIPLICITY ( AVCH0 ); +C PARAMETRISATIONS SEE CAPDEVIELLE,J.PHYS.G:NUCL.PHYS.16(1990)1539 EQ.8 + IF ( ECMDPM .LE. 187.5D0 ) THEN + AVCH0 = 0.57D0 + 0.584D0 * SLOG + 0.127D0 * SLOGSQ + ELSEIF ( ECMDPM .LT. 945.5D0 ) THEN + AVCH0 = -6.55D0 + 6.89D0 * S**0.131D0 + ELSE + AVCH0 = 3.4D0 * S**0.17D0 + ENDIF +C MINIMUM AVERAGE CHARGED MULTIPLICITY IS 1 + AVCH0 = MAX( 1.D0, AVCH0 ) +C EXCESS OF CHARGED PARTICLES WHICH COME FROM AIR TARGET + IF ( ECMDPM .LE. 137.D0 ) THEN + AVCH3 = 0.57D0 * AVCH0 * (GNU - 1.D0) + ELSE + AVCH3 = 0.5D0 * AVCH0 * (GNU - 1.D0) + ENDIF +C AVERAGE NUMBER OF ALL CHARGED + AVCH = AVCH0 + AVCH3 +C THE FOLOWING PROCEDURE IS TO PRODUCE PHOTONS FROM UNKNOWN NEUTRAL +C DECAYS FOLLOWING CORRELATION WITH CHARGED PARTICLES BASED ON PHOTON +C EXCESS AT COLLIDER EXPERIMENTS. SEUGP IS +C PARAMETRISATION OF UA5: ANSORGE ET AL., Z.PHYS.C43 (1989) 75 + IF ( ECMDPM .LE. 103.D0 ) THEN + SEUGP = -1.27D0 + 0.52D0 * SLOG + 0.148D0 * SLOGSQ + ELSE +C PROBLEM OF THE RISE OF THE UNKNOWN ETA PRODUCTION CROSS-SECTION +C IS SOLVED WITH THOUW'S PARAMETRISATION OF UA5 DATA: + SEUGP = -18.7D0 + 11.55D0 * S**0.1195D0 + ENDIF + SEUGP = MAX( 0.5D0, SEUGP ) + IF ( DEBUG ) WRITE(MDEBUG,100) + * SNGL(DC0),SNGL(AVCH0),SNGL(AVCH3),SNGL(AVCH),SNGL(SEUGP) + 100 FORMAT(' NSD : DC0,AVCH0,AVCH3,AVCH,SEUGP=',5F12.7) + +C CENTER OF GAUSSIAN FOR CHARGED SECONDARIES 1ST AND 2ND STRING +C NEEDED FOR SOME CALCULATION ; FINAL POSITION CALCULATED LATER + POSC2 = 0.146D0 * SMLOG + 0.072D0 +C WIDTH OF GAUSSIAN FOR CHARGED SECONDARIES 1ST AND 2ND STRING + WIDC2 = 0.12D0 * SMLOG + 0.18D0 + IF ( GNU .LE. 1.D0 ) THEN + POSC3 = 0.D0 + WIDC3 = 1.D0 + ELSE +C CENTER OF GAUSSIAN 3RD STRING (TARGET CONTRIB. FOR PROJECTILE-AIR) + POSC3 = 3.D0 - 2.575D0 * EXP( (-0.081756452D0) * GNU ) +C WIDTH OF GAUSSIAN FOR 3RD STRING + WIDC3 = 1.2338466D0 + 0.078969916D0 * LOG(GNU) + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,110) + * SNGL(POSC2),SNGL(WIDC2),SNGL(POSC3),SNGL(WIDC3) + 110 FORMAT(' NSD : POSC2,WIDC2,POSC3,WIDC3=',4F12.7) + + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PARNUM( INUMFL ) + +C----------------------------------------------------------------------- +C PART(ICLE TYPE) NUM(BERS) +C +C DETERMINES THE NUMBERS OF SECONDARY PARTICLES FOR EACH TYPE +C THIS SUBROUTINE IS CALLED FROM HDPM. +C ARGUMENT: +C INUMFL = 0 CORRECT DETERMINATION OF PARTICLE NUMBERS +C = 1 SOMETHING WENT WRONG WITH NEUTRAL PARTICLE NUMBERS +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,EDECAY. + COMMON /EDECAY/ CETA + DOUBLE PRECISION CETA(5) +*KEEP,INDICE. + COMMON /INDICE/ NNUCN,NKA0,NHYPN,NETA,NETAS,NPIZER, + * NNC,NKC,NHC,NPC,NCH,NNN,NKN,NHN,NET,NPN + INTEGER NNUCN(2:3),NKA0(2:3),NHYPN(2:3),NETA(2:3,1:4), + * NETAS(2:3),NPIZER(2:3), + * NNC,NKC,NHC,NPC,NCH,NNN,NKN,NHN,NET,NPN +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,LEPAR. + COMMON /LEPAR/ LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS + INTEGER LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RATIOS. + COMMON /RATIOS/ RPI0R,RPIER,RPEKR,RPEKNR,PPICH,PPINCH,PPNKCH, + * ISEL,NEUTOT,NTOTEM + DOUBLE PRECISION RPI0R,RPIER,RPEKR,RPEKNR,PPICH,PPINCH,PPNKCH + INTEGER ISEL,NEUTOT,NTOTEM +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + REAL RDETA + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'PARNUM: NCH,NEUTOT,NTOTEM=', + * NCH,NEUTOT,NTOTEM + + INUMFL = 0 +C RESET PARTICLE NUMBERS + NNC = 0 + NKC = 0 + NHC = 0 + NPC = 0 +C ISEL IS 1 MEANS VERY LOW MULTIPLICITY +C CREATE ONLY PIONS (TO RISKY TO CREATE OTHER PARTICLES) + IF ( ISEL .EQ. 1 ) THEN + NNN = 0 + NKN = 0 + NET = 0 + NHN = 0 + NPN = 0 + NNUCN(2) = 0 + NKA0(2) = 0 + NHYPN(2) = 0 + NETAS(2) = 0 + NPIZER(2) = 0 +C CREATE RANDOM NUMBERS + CALL RMMAR( RD,NTOTEM,1 ) + DO 1000 I = 1,NTOTEM + IF ( RD(I) .LE. TB3 ) THEN + NPC = NPC + 1 + ELSE + NPN = NPN + 1 + ENDIF + 1000 CONTINUE +C NO NEUTRAL PARTICLES FOR THE 3RD STRING EXCEPT EVENTUALLY PI(0) + NNUCN(3) = 0 + NKA0(3) = 0 + NHYPN(3) = 0 + NETAS(3) = 0 + NPIZER(3) = MAX( 0, NINT(RC3TO2/(1.D0+RC3TO2)*DBLE(NPN)) ) + IF ( DEBUG ) WRITE(MDEBUG,*) ' ISEL=1, NTOTEM=',NTOTEM + + ELSE + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C NOW THE CASE OF HAVING ENOUGH PARTICLES TO BE ABLE TO CREATE +C KAONS, NUCLEONS, AND HYPERONS TOO. + +C ...FOR NEUTRALS + NCOUNT = 0 +C BEGIN OF REJECT LOOP + 1002 K = 1 + CALL RMMAR( RD,NEUTOT+3,1 ) +C DETERMINE NUMBER OF PI(0), ETA, K0S/K0 PAIRS, NEUTRON/ANTINEUTRON +C PAIRS, AND NEUTRAL HYPERON PAIRS AND SUM UP THE GAMMAS +C FOR 1ST + 2ND STRING: J IS 2; FOR 3RD STRING: J IS 3 + SGAMMA = 0.D0 + DO 1010 J = 2,3 + NNUCN(J) = 0 + NKA0(J) = 0 + NHYPN(J) = 0 + NETA(J,1) = 0 + NETA(J,2) = 0 + NETA(J,3) = 0 + NETA(J,4) = 0 + NPIZER(J) = 0 + IF ( J .EQ. 2 ) THEN +C SET BOUNDARY FOR GAMMA SUM + GABOU = SEUGF + NNTOT = INT(FNEUT2) +C CALCULATE BOUNDARY NNTOT OF PARTICLE LOOP RATHER AT RANDOM THAN BY +C ROUNDING OF FNEUT2 TO AVOID DIGITIZING EFFECTS ON THE NEUTRAL +C PARTICLE COMPOSITION AT COLLISIONS WITH LOW MULTIPLICITY + IF ( NNTOT+RD(NEUTOT+2) .GE. FNEUT2 ) NNTOT = NNTOT+1 + ELSE + IF ( RC3TO2 .LE. 0.D0 ) GOTO 1010 + GABOU = GABOU + SEUGF* RC3TO2 + NNTOT = INT(FNEUT) + IF ( NNTOT+RD(NEUTOT+3) .GE. FNEUT ) NNTOT = NNTOT+1 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) ' J,NNTOT=',J,NNTOT +C START NEUTRAL PARTICLE PRODUCTION LOOP + 1003 CONTINUE + IF ( K .LT. NNTOT ) THEN + RNDM = RD(K) + ELSEIF ( K .EQ. NNTOT ) THEN +C RENORMALIZE THE RANDOM NUMBER, THAT ONLY PI(0) OR ETA IS PRODUCED +C BUT PAIR PRODUCTION BECOMES IMPOSSIBLE + RNDM = RD(K) * RPIER + ELSEIF ( K .GT. NNTOT ) THEN + GOTO 1010 + ENDIF + IF ( RNDM .LE. RPI0R ) THEN +C PI(0) + SGAMMA = SGAMMA + 2.D0 + NPIZER(J) = NPIZER(J) + 1 + K = K + 1 + + ELSEIF ( RNDM .LE. RPIER ) THEN +C ETA + CALL RMMAR( RDETA,1,1 ) + IF ( RDETA .LE. CETA(1) ) THEN + SGAMMA = SGAMMA + 2.D0 + NETA(J,1) = NETA(J,1) + 1 + ELSEIF ( RDETA .LE. CETA(2) ) THEN + SGAMMA = SGAMMA + 6.D0 + NETA(J,2) = NETA(J,2) + 1 + ELSEIF ( RDETA .LE. CETA(3) ) THEN + SGAMMA = SGAMMA + 2.D0 + NETA(J,3) = NETA(J,3) + 1 + ELSE + SGAMMA = SGAMMA + 1.D0 + NETA(J,4) = NETA(J,4) + 1 + ENDIF + K = K + 1 + + ELSEIF ( RNDM .LE. RPEKR ) THEN +C K0S/K0L PAIR; RPEKR IS NORMALIZED FOR K0 PAIR FORMATION +C THE UA5 GAMMA YIELD DOES NOT INCLUDE GAMMAS FROM K DECAY !!! +C SEE: ANSORGE ET AL., Z. PHYS. C43 (1989) 75 + NKA0(J) = NKA0(J) + 1 + K = K + 2 + ELSEIF ( RNDM .LE. RPEKNR ) THEN +C NEUTRON-ANTINEUTRON PAIR + NNUCN(J) = NNUCN(J) + 1 + K = K + 2 + ELSE +C HYPERON-ANTIHYPERON PAIR +C AVERAGE NEUTRAL HYPERON PAIR L0 --> .357*2 GAMMAS = 0.714 GAMMAS +C S0 --> L0 + 1 GAMMA = 1.714 GAMMAS +C THEY ARE INCLUDED IN UA5 GAMMA MULTIPLICITIES, THEREFORE COUNT + SGAMMA = SGAMMA + 2.428D0 + NHYPN(J) = NHYPN(J) + 1 + K = K + 2 + ENDIF + GOTO 1003 + 1010 CONTINUE + IF ( DEBUG ) WRITE(MDEBUG,1020) ( 2*NNUCN(J),2*NKA0(J), + * 2*NHYPN(J),NETA(J,1),NETA(J,2),NETA(J,3),NETA(J,4), + * NPIZER(J),J=2,3 ), NNTOT,GABOU,SGAMMA,SGAMMA/GABOU + 1020 FORMAT(' PARNUM: NEUTRALS (1.,2.STRING)=',8I5,/ + * ' NEUTRALS (3. STRING) =',8I5,/ + * ' NNTOT,SEUGF2+3,SGAMMA,RATIO=',I6,3(2X,F10.5)) +C REJECT ALL NEUTRALS, IF SUM OF GAMMAS DEVIATES BY MORE THAN SIGMA + IF ( (SGAMMA - GABOU)**2 .GT. GABOU ) THEN + NCOUNT = NCOUNT + 1 +C AFTER 20 TRIES SET FLAG INUMFL TO 1 AND RETURN + IF ( NCOUNT .LE. 20 ) GOTO 1002 + INUMFL = 1 + RETURN + ENDIF +C ALL NEUTRALS + NNN = NNUCN(2) + NNUCN(3) + NKN = NKA0(2) + NKA0(3) + NHN = NHYPN(2) + NHYPN(3) + NETAS(2) = NETA(2,1) + NETA(2,2) + NETA(2,3) + NETA(2,4) + NETAS(3) = NETA(3,1) + NETA(3,2) + NETA(3,3) + NETA(3,4) + NET = NETAS(2) + NETAS(3) + NPN = NPIZER(2) + NPIZER(3) + +C ...FOR CHARGED + I = 1 + CALL RMMAR( RD,NCH-1,1 ) +C START CHARGED PARTICLE PRODUCTION LOOP + 1101 CONTINUE + RNDM = RD(I) + IF ( RNDM .LT. PPICH ) THEN +C PI(+-) + NPC = NPC + 1 + I = I + 1 + ELSEIF ( RNDM .LT. PPINCH ) THEN +C PROTON/ANTIPROTON PAIR + NNC = NNC + 1 + I = I + 2 + ELSEIF ( RNDM .LT. PPNKCH ) THEN +C KAON(+,-) PAIR + NKC = NKC + 1 + I = I + 2 + ELSE +C CHARGED HYPERON/ANTIHYPERON PAIR + NHC = NHC + 1 + I = I + 2 + ENDIF + IF ( I .LT. NCH ) THEN + GOTO 1101 + ELSEIF ( I .EQ. NCH ) THEN +C ONLY 1 CHARGED PARTICLE TO BE PRODUCED WHICH IS PI(+-) + NPC = NPC + 1 + ENDIF +C CORRECT CHARGED PION NUMBER FOR DECAY OF ETA'S + NCORR = 2 * ( NETA(2,3) + NETA(2,4) + NETA(3,3) + NETA(3,4) ) + NPC = MAX( 0, NPC - NCORR ) + IF ( DEBUG ) WRITE(MDEBUG,*) ' NPC,NPN,NCORR,LASTPI=', + * NPC,NPN,NCORR,LASTPI + ENDIF +C CORRECT NUMBER OF CHARGED AND NEUTRAL PIONS FOR RESONANCE DECAY +C (NRESPC, NRESPN) + NPC = MAX( 0, NPC - NRESPC + LASTPI ) +C INCREASE NPN ADDITIONALLY BY 1 TO MEET UA5 DATA, WHICH REPRODUCE ON +C AVERAGE ONE EXCHANGED CHARGE (LASTPI = +1). + NPN = MAX( 0, NPN - NRESPN - LASTPI + 1 ) +C TOTAL NUMBER OF CHARGED PARTICLES + NCH = (NNC + NKC + NHC) * 2 + NPC +C NOW ALL PARTICLES ARE DETERMINED + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'PARNUM: TOT.CHARGED=',2*NNC,2*NKC,2*NHC,NPC, + * 'PARNUM: TOT.NEUTRAL=',2*NNN,2*NKN,2*NHN,NET,NPN + + RETURN + END +*CMZ : 14/06/2000 14.29.37 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PARRAP + +C----------------------------------------------------------------------- +C PAR(TICLE) RAP(IDITY) +C +C ROUTINE GIVES THE NEW PARTICLES OF HDPM THEIR RAPIDITIES +C THIS SUBROUTINE IS CALLED FROM HDPM. +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,NEWPAR. + COMMON /NEWPAR/ EA,PT2,PX,PY,TMAS,YR,ITYP, + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT + DOUBLE PRECISION EA(3000),PT2(3000),PX(3000),PY(3000),TMAS(3000), + * YR(3000) + INTEGER ITYP(3000), + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + REAL RAND(3000) + SAVE + DOUBLE PRECISION RANNOR + EXTERNAL RANNOR +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'PARRAP: NTOT=',NTOT + +C PROTON ANTIPROTON PAIRS + CALL RMMAR( RAND(3),IJ1-2,1 ) + DO 1013 K = 3,IB1 +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + IF ( K .LE. IA2 ) THEN + YR(K) = RANNOR(-POSC3,WIDC3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSC2,WIDC2) + ELSE + YR(K) = RANNOR(-POSC2,WIDC2) + ENDIF + ENDIF + 1013 CONTINUE + +C K+ K- PAIRS + DO 1014 K = IB1+1,IC1 + IF ( K .LE. IB2 ) THEN +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + YR(K) = RANNOR(-POSC3,WIDC3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSC2,WIDC2) + ELSE + YR(K) = RANNOR(-POSC2,WIDC2) + ENDIF + ENDIF + 1014 CONTINUE + +C CHARGED HYPERON PAIRS + DO 1015 K = IC1+1,ID1 + IF ( K .LE. IC2 ) THEN +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + YR(K) = RANNOR(-POSC3,WIDC3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSC2,WIDC2) + ELSE + YR(K) = RANNOR(-POSC2,WIDC2) + ENDIF + ENDIF + 1015 CONTINUE + +C PI +- + DO 1017 K = ID1+1,IE1 + IF ( K .LE. ID2 ) THEN +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + YR(K) = RANNOR(-POSC3,WIDC3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSC2,WIDC2) + ELSE + YR(K) = RANNOR(-POSC2,WIDC2) + ENDIF + ENDIF + 1017 CONTINUE + +C NEUTRON ANTINEUTRON PAIRS + DO 1021 K = IE1+1,IF1 + IF ( K .LE. IE2 ) THEN +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + YR(K) = RANNOR(-POSC3,WIDC3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSC2,WIDC2) + ELSE + YR(K) = RANNOR(-POSC2,WIDC2) + ENDIF + ENDIF + 1021 CONTINUE + +C K0L K0S PAIRS + DO 1022 K = IF1+1,IG1 + IF ( K .LE. IF2 ) THEN +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + YR(K) = RANNOR(-POSC3,WIDC3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSC2,WIDC2) + ELSE + YR(K) = RANNOR(-POSC2,WIDC2) + ENDIF + ENDIF + 1022 CONTINUE + +C NEUTRAL HYPERON PAIRS + DO 1023 K = IG1+1,IH1 + IF ( K .LE. IG2 ) THEN +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + YR(K) = RANNOR(-POSC3,WIDC3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSC2,WIDC2) + ELSE + YR(K) = RANNOR(-POSC2,WIDC2) + ENDIF + ENDIF + 1023 CONTINUE + +C ETA + DO 1025 K = IH1+1,II1 + IF ( K .LE. IH2 ) THEN +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + YR(K) = RANNOR(-POSN3,WIDN3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSN2,WIDN2) + ELSE + YR(K) = RANNOR(-POSN2,WIDN2) + ENDIF + ENDIF + 1025 CONTINUE + +C PI(0) + DO 1026 K = II1+1,IJ1 + IF ( K .LE. II2 ) THEN +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + YR(K) = RANNOR(-POSN3,WIDN3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSN2,WIDN2) + ELSE + YR(K) = RANNOR(-POSN2,WIDN2) + ENDIF + ENDIF + 1026 CONTINUE + + RETURN + END +*CMZ : 02/11/2000 13.39.47 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PPARAM + +C----------------------------------------------------------------------- +C P(ARTICLE) PARAM(ETERS) +C +C SETS PARAMETERS (PARTICLE TYP, TRANSVERSE MOMENTUM) +C OF SECONDARY PARTICLES IN HDPM +C THIS SUBROUTINE IS CALLED FROM HDPM. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C CHANGES : J.N. CAPDEVIELLE CDF PARIS +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,AVPT. + COMMON /AVPT/ AVPT,AVPK,AVPN,AVPH,AVPE + DOUBLE PRECISION AVPT,AVPK,AVPN,AVPH,AVPE +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,INDICE. + COMMON /INDICE/ NNUCN,NKA0,NHYPN,NETA,NETAS,NPIZER, + * NNC,NKC,NHC,NPC,NCH,NNN,NKN,NHN,NET,NPN + INTEGER NNUCN(2:3),NKA0(2:3),NHYPN(2:3),NETA(2:3,1:4), + * NETAS(2:3),NPIZER(2:3), + * NNC,NKC,NHC,NPC,NCH,NNN,NKN,NHN,NET,NPN +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,LEPAR. + COMMON /LEPAR/ LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS + INTEGER LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS +*KEEP,NEWPAR. + COMMON /NEWPAR/ EA,PT2,PX,PY,TMAS,YR,ITYP, + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT + DOUBLE PRECISION EA(3000),PT2(3000),PX(3000),PY(3000),TMAS(3000), + * YR(3000) + INTEGER ITYP(3000), + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'PPARAM: NTOT,NPC,NCPLUS=', + * NTOT,NPC,NCPLUS + +C FILL PARTICLES INTO ARRAYS, CALCULATE PT AND SUM UP + SPX = 0.D0 + SPY = 0.D0 + NPART = 3 +C PROTON ANTIPROTON PAIRS + DO 1003 K = 1,NNC + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. 0.5 ) THEN + ITYP(NPART) = 14 + ITYP(NPART+1) = 15 + ELSE + ITYP(NPART) = 15 + ITYP(NPART+1) = 14 + ENDIF + CALL PTRAM( ZN,AVPN,PX(NPART),PY(NPART) ) + CALL PTRAM( ZN,AVPN,PX(NPART+1),PY(NPART+1) ) + SPX = SPX + PX(NPART) + PX(NPART+1) + SPY = SPY + PY(NPART) + PY(NPART+1) + NPART = NPART + 2 + 1003 CONTINUE +C K+ K- PAIRS + DO 1004 K = 1,NKC + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. 0.5 ) THEN + ITYP(NPART) = 11 + ITYP(NPART+1) = 12 + ELSE + ITYP(NPART) = 12 + ITYP(NPART+1) = 11 + ENDIF + CALL PTRAM( ZN,AVPK,PX(NPART),PY(NPART) ) + CALL PTRAM( ZN,AVPK,PX(NPART+1),PY(NPART+1) ) + SPX = SPX + PX(NPART) + PX(NPART+1) + SPY = SPY + PY(NPART) + PY(NPART+1) + NPART = NPART + 2 + 1004 CONTINUE +C SIGMA PAIRS + DO 1005 K = 1,NHC + CALL RMMAR( RD,2,1 ) + IF ( RD(1) .LT. 0.5 ) THEN + IF ( RD(2) .LT. 0.5 ) THEN + ITYP(NPART) = 19 + ITYP(NPART+1) = 27 + ELSE + ITYP(NPART) = 27 + ITYP(NPART+1) = 19 + ENDIF + ELSE + IF ( RD(2) .LT. 0.5 ) THEN + ITYP(NPART) = 21 + ITYP(NPART+1) = 29 + ELSE + ITYP(NPART) = 29 + ITYP(NPART+1) = 21 + ENDIF + ENDIF + CALL PTRAM( ZN,AVPH,PX(NPART),PY(NPART) ) + CALL PTRAM( ZN,AVPH,PX(NPART+1),PY(NPART+1) ) + SPX = SPX + PX(NPART) + PX(NPART+1) + SPY = SPY + PY(NPART) + PY(NPART+1) + NPART = NPART + 2 + 1005 CONTINUE + +C DECIDE WITH WHICH CHARGED PION TO START WITH +C NUMBER OF PIONS MAY BE ODD IN THE CASE IF ISEL IS 1 + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .GT. 0.5 ) THEN + NPIOCH = 0 + ELSE + NPIOCH = 1 + ENDIF + NPOS = NCPLUS +C PI +- + DO 1007 K = 1,NPC + IF ( NPC-K+1 .LE. NPOS ) THEN + NPIOCH = 1 + IF ( DEBUG ) WRITE(MDEBUG,*) ' NPC,K,NPOS,NPIOCH=', + * NPC,K,NPOS,NPIOCH + ELSEIF ( NPC-K+1 .LE. -NPOS ) THEN + NPIOCH = 0 + IF ( DEBUG ) WRITE(MDEBUG,*) ' NPC,K,-NPOS,NPIOCH=', + * NPC,K,-NPOS,NPIOCH + ENDIF + IF ( NPIOCH .EQ. 0 ) THEN + ITYP(NPART) = 8 + NPIOCH = 1 + NPOS = NPOS + 1 + ELSE + ITYP(NPART) = 9 + NPIOCH = 0 + NPOS = NPOS - 1 + ENDIF + CALL PTRAM( ZN,AVPT,PX(NPART),PY(NPART) ) + SPX = SPX + PX(NPART) + SPY = SPY + PY(NPART) + NPART = NPART + 1 + 1007 CONTINUE +C NEUTRON ANTINEUTRON PAIRS + DO 1008 K = 1,NNN + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. 0.5 ) THEN + ITYP(NPART) = 13 + ITYP(NPART+1) = 25 + ELSE + ITYP(NPART) = 25 + ITYP(NPART+1) = 13 + ENDIF + CALL PTRAM( ZN,AVPN,PX(NPART),PY(NPART) ) + CALL PTRAM( ZN,AVPN,PX(NPART+1),PY(NPART+1) ) + SPX = SPX + PX(NPART) + PX(NPART+1) + SPY = SPY + PY(NPART) + PY(NPART+1) + NPART = NPART + 2 + 1008 CONTINUE +C K0L K0S PAIRS + DO 1009 K = 1,NKN + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. 0.5 ) THEN + ITYP(NPART) = 10 + ITYP(NPART+1) = 16 + ELSE + ITYP(NPART) = 16 + ITYP(NPART+1) = 10 + ENDIF + CALL PTRAM( ZN,AVPK,PX(NPART),PY(NPART) ) + CALL PTRAM( ZN,AVPK,PX(NPART+1),PY(NPART+1) ) + SPX = SPX + PX(NPART) + PX(NPART+1) + SPY = SPY + PY(NPART) + PY(NPART+1) + NPART = NPART + 2 + 1009 CONTINUE +C LAMDA/SIGMA0 PAIRS + DO 1010 K = 1,NHN + CALL RMMAR( RD,2,1 ) + IF ( RD(1) .LT. 0.5 ) THEN + IF ( RD(2) .LT. 0.5 ) THEN + ITYP(NPART) = 18 + ITYP(NPART+1) = 28 + ELSE + ITYP(NPART) = 28 + ITYP(NPART+1) = 18 + ENDIF + ELSE + IF ( RD(2) .LT. 0.5 ) THEN + ITYP(NPART) = 26 + ITYP(NPART+1) = 20 + ELSE + ITYP(NPART) = 20 + ITYP(NPART+1) = 26 + ENDIF + ENDIF +C ----- CHANGE BY JNC DEC.96) +* IF ( ECMDPM .LE. 500.D0 ) THEN +* CALL PTRAN( ZN,AVPH,PX(NPART),PY(NPART) ) +* CALL PTRAN( ZN,AVPH,PX(NPART+1),PY(NPART+1) ) +* ELSE + CALL PTRAM( ZN,AVPH,PX(NPART),PY(NPART) ) + CALL PTRAM( ZN,AVPH,PX(NPART+1),PY(NPART+1) ) +* ENDIF + SPX = SPX + PX(NPART) + PX(NPART+1) + SPY = SPY + PY(NPART) + PY(NPART+1) + NPART = NPART + 2 + 1010 CONTINUE +C ETA + DO 1013 K = 1,NET +C FIRST FOR ETAS FROM THIRD STRING + IF ( K .LE. NETA(3,1) ) THEN + ITYP(NPART) = 71 + ELSEIF ( K .LE. NETA(3,1)+NETA(3,2) ) THEN + ITYP(NPART) = 72 + ELSEIF ( K .LE. NETA(3,1)+NETA(3,2)+NETA(3,3) ) THEN + ITYP(NPART) = 73 + ELSEIF ( K .LE. NETA(3,1)+NETA(3,2)+NETA(3,3)+NETA(3,4)) THEN + ITYP(NPART) = 74 +C NOW FOR ETAS FROM FIRST AND SECOND STRING + ELSEIF ( K .LE. NETAS(3)+NETA(2,1) ) THEN + ITYP(NPART) = 71 + ELSEIF ( K .LE. NETAS(3)+NETA(2,1)+NETA(2,2) ) THEN + ITYP(NPART) = 72 + ELSEIF ( K .LE. NETAS(3)+NETA(2,1)+NETA(2,2)+NETA(2,3) ) THEN + ITYP(NPART) = 73 + ELSE + ITYP(NPART) = 74 + ENDIF +C ----- CHANGE BY JNC DEC.96) + IF ( ECMDPM .LE. 500.D0 ) THEN + CALL PTRAN( ZN,AVPE,PX(NPART),PY(NPART) ) + ELSE + CALL PTRAM( ZN,AVPE,PX(NPART),PY(NPART) ) + ENDIF + SPX = SPX + PX(NPART) + SPY = SPY + PY(NPART) + NPART = NPART + 1 + 1013 CONTINUE +C PI(0) + DO 1014 K = 1,NPN + ITYP(NPART) = 7 +C ----- CHANGE BY JNC DEC.96) + IF ( ECMDPM .LE. 500.D0 ) THEN + CALL PTRAN( ZN,AVPT,PX(NPART),PY(NPART) ) + ELSE + CALL PTRAM( ZN,AVPT,PX(NPART),PY(NPART) ) + ENDIF + SPX = SPX + PX(NPART) + SPY = SPY + PY(NPART) + NPART = NPART + 1 + 1014 CONTINUE + +C ANTILEADER (FROM TARGET, THEREFORE ALWAYS NUCLEON OR DELTA RESONANCE) + ITYP(2) = LEPAR2 +C ----- CHANGE BY JNC DEC.96) + IF ( ECMDPM .LE. 500.D0 ) THEN + CALL PTRAN( ZN,AVPN,PX(2),PY(2) ) + ELSE + CALL PTRAM( ZN,AVPN,PX(2),PY(2) ) + ENDIF + +C FIRST PARTICLE IS LEADING PARTICLE + ITYP(1) = LEPAR1 + IF ( (LEPAR1 .GE. 7 .AND. LEPAR1 .LE. 9) .OR. + * (LEPAR1 .GE. 51 .AND. LEPAR1 .LE. 53) ) THEN +C LEADING PARTICLE IS PION OR RHO RESONANCE + AVERPT = AVPT +C LEADING PARTICLE IS KAON OR KAON RESONANCE + ELSEIF ( LEPAR1 .EQ. 10 .OR. LEPAR1 .EQ. 11 .OR. + * LEPAR1 .EQ. 12 .OR. LEPAR1 .EQ. 16 .OR. + * (LEPAR1 .GE. 62 .AND. LEPAR1 .LE. 68) ) THEN + AVERPT = AVPK + ELSE +C LEADING PARTICLE IS NUCLEON OR ANTINUCLEON OR DELTA RESONANCE +C OR STRANGE BARYON + AVERPT = AVPN + ENDIF +C ----- CHANGE BY JNC DEC.96) + IF ( ECMDPM .LE. 500.D0 ) THEN + CALL PTRAN( ZN,AVERPT,PX(1),PY(1) ) + ELSE + CALL PTRAM( ZN,AVERPT,PX(1),PY(1) ) + ENDIF + SPX = SPX + PX(1) + PX(2) + SPY = SPY + PY(1) + PY(2) + +C AVERAGE EXCESS PT PER PARTICLE + SPX = SPX / NTOT + SPY = SPY / NTOT + +C RENORMALIZATION OF PT AND CALCULATION OF TRANSVERSE MASSES + DO 130 I = 1,NTOT + PX(I) = PX(I) - SPX + PY(I) = PY(I) - SPY + PT2(I) = PX(I)**2 + PY(I)**2 + TMAS(I) = SQRT( PAMA(ITYP(I))**2 + PT2(I) ) + 130 CONTINUE + + RETURN + END +*CMZ : 28/02/2002 12.02.13 by D. HECK IK FZK KARLSRUHE +*-- Author : J.N. Capdevielle CdF Paris/France 26/11/96 +C======================================================================= + + SUBROUTINE PTRAM( ZN,FACT,PTX,PTY ) + +C----------------------------------------------------------------------- +C TRA(NSVERSE MOMENTUM FROM) M(IMI EXPERIMENT) +C +C GENERATION OF TRANSVERSE MOMENTUM FOR PARTICLES IN HDPM GENERATOR +C SEE RESULTS FROM UA1/MIMI/96 +C SOME CONSTANTS CHANGED FROM MATHEMATICAL SOLUTION BY DICHOTOMY TO +C TO TAKE INTO ACCOUNT EFFECT OF REJECTIONS. (TESTIFIED AT VS=630 GEV +C ONLY) SEE J.N. CAPDEVIELLE, 24TH ICRC, ROMA 1995, RAPPORTEUR TALK +C NUOV. CIM. C19 (1996) 623 +C AND J.N. CAPDEVIELLE, 9TH ISVHECRI, KARLSRUHE 1996 +C NUCL.PHYS.B (CONF.PROC.) 52B (1997) 146 +C THIS SUBROUTINE IS CALLED FROM PPARAM. +C ARGUMENTS: +C ZN = POWER OF TRANSV.MOMENTUM FUNCTION, DEP. ON CENT.RAP.DENSITY +C FACT = FACTOR TAKING INTO ACCOUNT PARTICLE SPEC. TRANSV.MOMENTUM +C PTX = TRANSVERSE MOMENTUM IN X DIRECTION +C PTY = TRANSVERSE MOMENTUM IN Y DIRECTION +C +C DESIGN : J.N. CAPDEVIELLE CDF PARIS +C CHANGES : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + SAVE +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'PTRAM : ZN=',SNGL(ZN) + +C TWO RANDOM NUMBERS + CALL RMMAR( RD,2,1 ) +C GENERATE + ALFA = -0.05D0 + B = ZN-1.D0 + A = RD(1)/B + U = 0.D0 + DO 5 J = 1,1000 + F1 = A * (U+1.D0)**B - 1.D0/B + IF ( F1 .GE. U ) GOTO 15 + U = U + 0.05D0 + 5 CONTINUE + 15 BETA = U + ALFA = U - 0.05D0 + IF ( F1-U .EQ. 0.D0 ) GOTO 30 + I = 0 + 14 U = 0.5D0 * (ALFA+BETA) + I = I + 1 + F = A * (U+1.D0)**B - 1.D0/B - U + IF ( F .EQ. 0.D0 ) GOTO 30 + IF ( ABS(U-BETA) .LE. 1.D-4 ) GOTO 30 + FA = A * (ALFA+1.D0)**B - ALFA - 1.D0/B + FB = B * (BETA+1.D0)**B - BETA - 1.D0/B + IF ( F*FA .GE. 0.D0 ) THEN + ALFA = U + ELSE + BETA = U + ENDIF + GOTO 14 + + 30 XPT = 0.9154D0 * U +C 2*PI*RANDOM NUMBER FOR ANGLE PHI + Z = PI2 * RD(2) + PTX = XPT * FACT * COS(Z) + PTY = XPT * FACT * SIN(Z) + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'PTRAM : RD(1,2),XPT=', +CC * RD(1),RD(2),SNGL(XPT) + + RETURN + END +*CMZ : 14/06/2000 14.29.37 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PTRAN( ZN,FACT,PTX,PTY ) + +C----------------------------------------------------------------------- +C TRAN(SVERSE MOMENTUM) +C +C GENERATION OF TRANSVERSE MOMENTUM FOR PARTICLES IN HDPM +C THIS SUBROUTINE IS CALLED FROM PPARAM. +C ARGUMENTS: +C ZN = POWER OF TRANSV.MOMENTUM FUNCTION, DEP. ON CENT.RAP.DENSITY +C FACT = FACTOR TAKING INTO ACCOUNT PARTICLE SPEC. TRANSV.MOMENTUM +C PTX = TRANSVERSE MOMENTUM IN X DIRECTION +C PTY = TRANSVERSE MOMENTUM IN Y DIRECTION +C +C DESIGN : T. THOUW IK3 FZK KARLSRUHE +C CHANGES : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + SAVE +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'PTRAN : ZN=',SNGL(ZN) + +C TWO RANDOM NUMBERS + CALL RMMAR( RD,2,1 ) +C GENERATE (REFERENCE??) + B = ZN * (ZN - 1.D0) + ZZ = SQRT(1.D0/RD(1) - 1.D0) + XPT = ZZ * SQRT(2.D0/B) + 11 CONTINUE + IF ( XPT .LT. 0.5D-3 ) GOTO 22 + X1 = 1.D0 + XPT + XB = X1**ZN + XC = 1.D0 + ZN * XPT + ZA = SQRT(XB/XC - 1.D0) + XD = (ZZ - ZA) * (X1 * 2.D0 * ZA * XC**2 ) / ( B * XPT * XB ) + XPT = XPT + XD + IF ( ABS(XD) .GT. 1.D-3 ) GOTO 11 + 22 CONTINUE + +C 2*PI*RANDOM NUMBER FOR ANGLE PHI + Z = PI2 * RD(2) + PTX = XPT * FACT * COS(Z) + PTY = XPT * FACT * SIN(Z) + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'PTRAN : RD(1,2),XPT=', +CC * RD(1),RD(2),SNGL(XPT) + + RETURN + END +*CMZ : 24/10/2000 15.41.00 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE RESDEC + +C----------------------------------------------------------------------- +C RES(ONANCE) DEC(AY) +C +C ROUTINE TREATES DECAY OF THE RESONANCES RHO, K*, AND DELTA +C THE DECAY MODE IS SELECTED BY THE RANDOM NUMBER RESRAN, WHICH IS +C SET IN THE SUBROUT. HDPM/LEPACX, WHERE THE RESONANCE IS FORMED +C DECAY WITH FULL KINEMATIC, ENERGY AND MOMENTA CONSERVED +C THIS SUBROUTINE IS CALLED FROM BOX3. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DECAY. + COMMON /DECAY/ GAM345,COS345,PHI345 + DOUBLE PRECISION GAM345(3),COS345(3),PHI345(3) +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RESON. + COMMON /RESON/ RDRES,RESRAN,IRESPAR + REAL RDRES(2),RESRAN(30000) + INTEGER IRESPAR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER I,KK,M3,M4 + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' RESDEC: CURPAR=',1P,9E10.3) + +C COPY VERTEX COORDINATES INTO SECPAR + DO 141 KK = 5,8 + SECPAR(KK) = CURPAR(KK) + 141 CONTINUE + SECPAR( 9) = GEN + SECPAR(10) = ALEVEL + SECPAR(14) = CURPAR(14) + SECPAR(15) = CURPAR(15) + SECPAR(16) = CURPAR(16) + + BETA = SQRT( GAMMA**2 - 1.D0 ) / GAMMA + + IF ( IRESPAR .LE. 0 ) THEN + WRITE(MONIOU,*) 'RESDEC: IRESPAR .LE. 0, CORRECTED' + IRESPAR = 1 + ENDIF +C----------------------------------------------------------------------- +C TREAT FIRST NUCLEON RESONANCES, AS MOST FREQUENT + IF ( ITYPE .EQ. 54 ) THEN +C DECAY DELTA(++) ----> P + PI(+) + CALL DECAY1( ITYPE, 14, 8 ) + + ELSEIF ( ITYPE .EQ. 55 .OR. ITYPE .EQ. 56 ) THEN +C DECAY DELTA(+) OR DECAY DELTA(0) + + IF ( RESRAN(IRESPAR) .LE. TB3 ) THEN +C DECAY DELTA(+) ----> P + PI(0) +C DECAY DELTA(0) ----> N + PI(0) + M3 = 69 - ITYPE + CALL DECAY1( ITYPE, M3, 7 ) + + ELSE +C DECAY DELTA(+) ----> N + PI(+) +C DECAY DELTA(0) ----> P + PI(-) + M3 = ITYPE - 42 + M4 = M3 - 5 + CALL DECAY1( ITYPE, M3, M4 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 57 ) THEN +C DECAY DELTA(-) ----> N + PI(-) + CALL DECAY1( ITYPE, 13, 9 ) + +C----------------------------------------------------------------------- +C RHO RESONANCES + + ELSEIF ( ITYPE .EQ. 51 ) THEN +C DECAY RHO(0) ----> PI(+) + PI(-) + CALL DECAY1( ITYPE, 8, 9 ) + + ELSEIF ( ITYPE .EQ. 52 .OR. ITYPE .EQ. 53 ) THEN +C DECAY RHO(+,-) ----> PI(+,-) + PI(0) + M3 = ITYPE - 44 + CALL DECAY1( ITYPE, M3, 7 ) + +C----------------------------------------------------------------------- +C OMEGA MESON RESONANCE (COMES FROM PHOTONUCLEAR REACTION) + + ELSEIF ( ITYPE .EQ. 50 ) THEN + CALL RMMAR(RD,1,1) + IF ( RD(1) .LE. 0.8924 ) THEN +C DECAY OMEGA ----> PI(+) + PI(-) + PI(0) +C (UNIFORM PHASE SPACE DISTRIBUTION IS ASSUMED FOR THIS DECAY) + CALL DECAY6 ( PAMA(50), PAMA(8), PAMA(9), PAMA(7), + * 0.D0,0.D0,0.D0, 1.D0, 2) + DO I = 1,3 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + IF ( I .EQ. 3 ) THEN + SECPAR(1) = 7.D0 + ELSE + SECPAR(1) = 7 + I + ENDIF + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( I .EQ. 3 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I)*PAMA(7) + ELSE + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I)*PAMA(8) + ENDIF + ENDIF + ENDIF + ENDDO + ELSEIF ( RD(1) .LE. 0.9778 ) THEN +C DECAY OMEGA ----> PI(0) + GAMMA + CALL DECAY1 ( ITYPE, 7, 1 ) + ELSE +C DECAY OMEGA ----> PI(+) + PI(-) + CALL DECAY1( ITYPE, 8, 9 ) + ENDIF + +C----------------------------------------------------------------------- +C EXCITED KAON RESONANCES + + ELSEIF ( ITYPE .EQ. 62 ) THEN +C DECAY K*(0) ----> 2/3: K(+) + PI(-) +C ----> 1/3: K0(L,S) + PI(0) + IF ( RESRAN(IRESPAR) .LE. TB3 ) THEN + CALL DECAY1( ITYPE, 11, 9 ) + ELSEIF ( RESRAN(IRESPAR) .LE. .8333333 ) THEN + CALL DECAY1( ITYPE, 10, 7 ) + ELSE + CALL DECAY1( ITYPE, 16, 7 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 65 ) THEN +C DECAY ANTI-K*(0) ----> 2/3: K(-) + PI(+) +C ----> 1/3: K0(L,S) + PI(0) + IF ( RESRAN(IRESPAR) .LE. TB3 ) THEN + CALL DECAY1( ITYPE, 12, 8 ) + ELSEIF ( RESRAN(IRESPAR) .LE. .8333333 ) THEN + CALL DECAY1( ITYPE, 10, 7 ) + ELSE + CALL DECAY1( ITYPE, 16, 7 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 63 .OR. ITYPE .EQ. 64 ) THEN +C DECAY K*(+-) ----> 2/3: K(+-) + PI(0) +C ----> 1/3: K0(L,S) + PI(+-) + IF ( RESRAN(IRESPAR) .LE. TB3 ) THEN + CALL DECAY1( ITYPE, ITYPE-52, 7 ) + ELSEIF ( RESRAN(IRESPAR) .LE. .8333333 ) THEN + CALL DECAY1( ITYPE, 10, ITYPE-55 ) + ELSE + CALL DECAY1( ITYPE, 16, ITYPE-55 ) + ENDIF + +C----------------------------------------------------------------------- +C ANTI-NUCLEON RESONANCES + + ELSEIF ( ITYPE .EQ. 58 ) THEN +C DECAY ANTI-DELTA(--) ----> ANTI-P + PI(-) + CALL DECAY1( ITYPE, 15, 9 ) + + ELSEIF ( ITYPE .EQ. 59 .OR. ITYPE .EQ. 60 ) THEN +C DECAY ANTI-DELTA(-) OR DECAY ANTI-DELTA(0) + + IF ( RESRAN(IRESPAR) .LE. TB3 ) THEN +C DECAY ANTI-DELTA(-) ----> ANTI-P + PI(0) +C DECAY ANTI-DELTA(0) ----> ANTI-N + PI(0) + M3 = 15 + (ITYPE - 59) * 10 + CALL DECAY1( ITYPE, M3, 7 ) + + ELSE +C DECAY ANTI-DELTA(-) ----> ANTI-N + PI(-) +C DECAY ANTI-DELTA(0) ----> ANTI-P + PI(+) + M3 = 15 + (60 - ITYPE) * 10 + M4 = 68 - ITYPE + CALL DECAY1( ITYPE, M3, M4 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 61 ) THEN +C DECAY ANTI-DELTA(+) ----> ANTI-N + PI(+) + CALL DECAY1( ITYPE, 25, 8 ) + +C----------------------------------------------------------------------- + ELSE + WRITE(MONIOU,444) (CURPAR(I),I=1,9) + WRITE(MONIOU,*) 'RESDEC: UNFORESEEN PARTICLE CODE =',ITYPE + ENDIF + IRESPAR = IRESPAR - 1 + + RETURN + END +*CMZ : 14/06/2000 14.29.37 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE RNEGBI( N,XN,ECM ) + +C----------------------------------------------------------------------- +C R(ANDOM NUMBER WITH) NEG(ATIVE) BI(NOMIAL DISTRIBUTION) +C +C RANDOM NUMBER GENERATOR FOR INTEGER NUMBERS DISTRIBUTED ACCORDING TO +C A NEGATIVE BINOMIAL DISTRIBUTION WITH PARAMETERS AND K +C DELIVERS ONLY EVEN NUMBERS AS CHARGE MUST BE CONSERVED +C THIS SUBROUTINE IS CALLED FROM HDPM. +C ARGUMENTS: +C XN = AVERAGE VALUE OF N +C ECM = CENTER OF MASS ENERGY +C N = RANDOM NUMBER DISTRIBUTED WITH NEG. BIN. DISTR. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ECM,P,PN,Q,R,SUM,XI,XK,XN + INTEGER N + SAVE +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'RNEGBI: XN,ECM=',SNGL(XN),SNGL(ECM) + +C PARAMETRIZATION OF PARAMETER K OF NEG.BIN. DISTRIBUTION ACCORDING +C TO UA5 COLLABORATION, PHYS. LETT. 167B (1986) 476 + XK = 1.D0 / ( -0.104D0 + 0.058D0 * LOG(ECM) ) +C OTHER PARAMETERS + R = XN / XK + Q = 1.D0 / (1.D0 + R) + P = R * Q + +C VALUES FOR N EQUAL 0 + 1 CONTINUE + N = 0 + PN = Q**XK + SUM = PN +C GET UNIFORM RANDOM NUMBER + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LE. SUM ) GOTO 100 +C COMPARE WITH SUM OVER P(N) + DO 2 XI = 1.D0, 1350.D0 + PN = PN * P * (XK - 1.D0 + XI) / XI + SUM = SUM + PN + IF ( RD(1) .LE. SUM ) THEN + N = XI + GOTO 100 + ENDIF + 2 CONTINUE + N = 1350 + + 100 CONTINUE + IF ( MOD(N,2) .NE. 0 .AND. N .NE. 1 ) GOTO 1 +CC IF (DEBUG) WRITE(MDEBUG,*)'RNEGBI: RD(1),N,=',RD(1),N,SNGL(XN) + + RETURN + END +*CMZ : 14/06/2000 14.29.37 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE TARINT + +C----------------------------------------------------------------------- +C TAR(GET) INT(ERACTIONS) +C +C ROUTINE DETERMINES HOW MANY INTERACTIONS OCCUR IN TARGET +C THIS SUBROUTINE IS CALLED FROM HDPM. +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,GNUPR. + COMMON /GNUPR/ SE14,SE16,SE40 + DOUBLE PRECISION SE14(3,14),SE16(3,16),SE40(3,40) +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEND. + + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'TARINT: ITYPE,TAR,NFLAIN', + * ITYPE,SNGL(TAR),NFLAIN + +C NFLAIN EQUAL 0 : NUMBER OF INTERACTIONS IN TARGET CHOSEN RANDOMLY + IF ( NFLAIN .EQ. 0 ) THEN +C SIGMA IS ALREADY CALCULATED IN BOX2 + DELSIG = SIGMA - 45.D0 + DSIGSQ = DELSIG**2 + +C CHOOSE RANDOM NUMBER + CALL RMMAR( RD,1,1 ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'TARINT: DELSIG,DSIGSQ,RD(1),TAR=', + * SNGL(DELSIG),SNGL(DSIGSQ),RD(1),SNGL(TAR) + +C DO INTERACTION WITH CHOSEN TARGET ( N, O, AR ) + PROB = 0.D0 +C TREAT INTERACTION WITH NITROGEN TARGET + IF ( TAR .EQ. 14.D0 ) THEN +C SUM OF PROBABILITIES FOR COLLISION WITH NITROGEN TARGET + DO 6151 JL = 1,14 + PROB = PROB + + * SE14(1,JL) + SE14(2,JL)*DELSIG + SE14(3,JL)*DSIGSQ + IF ( RD(1) .LE. PROB ) GOTO 7332 + 6151 CONTINUE + +C TREAT INTERACTION WITH OXYGEN TARGET + ELSEIF ( TAR .EQ. 16.D0 ) THEN +C SUM OF PROBABILITIES FOR COLLISION WITH OXYGEN TARGET + DO 6152 JL = 1,16 + PROB = PROB + + * SE16(1,JL) + SE16(2,JL)*DELSIG + SE16(3,JL)*DSIGSQ + IF ( RD(1) .LE. PROB ) GOTO 7332 + 6152 CONTINUE + +C TREAT INTERACTION WITH ARGON TARGET + ELSEIF ( TAR .EQ. 40.D0 ) THEN +C SUM OF PROBABILITIES FOR COLLISION WITH ARGON TARGET + DO 6153 JL = 1,40 + PROB = PROB + + * SE40(1,JL) + SE40(2,JL)*DELSIG + SE40(3,JL)*DSIGSQ + IF ( RD(1) .LE. PROB ) GOTO 7332 + 6153 CONTINUE + ELSE + WRITE(MONIOU,*) 'TARINT: UNKNOWN TARGET = ',SNGL(TAR) + ENDIF + JL = 1 + +C NUMBER OF COLLISIONS IN TARGET + 7332 CONTINUE + GNU = DBLE(JL) + + ELSE +C NFLAIN EQUAL 1 : AVERAGE NUMBER OF INTERACTIONS IN TARGET IS TAKEN +C NEW PARAMETRIZATION OF J.N.CAPDEVIELLE (MARCH 93) + GNU = (0.4826D0 + 3.522D-2 * SLOG) * TAR**0.31D0 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'TARINT: # COLLISIONS IN TARGET=',SNGL(GNU) + + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : CERN PROGLIB# V113 +C======================================================================= + + FUNCTION RANGEN() + +C----------------------------------------------------------------------- +C RAN(DOM NUMBER) GEN(ERATOR) +C +C SEE SUBROUT. RMMAR +C THIS FUNCTION IS CALLED FROM MANY VENUS ROUTINES. +C +C CERN PROGLIB# V113 RMMAR .VERSION KERNFOR 1.0 +C ORIG. 01/03/89 FCA + FJ +C +C CHANGES : D. HECK IK3 FZK KARLSRUHE +C DATE : FEB 02, 1994 +C----------------------------------------------------------------------- + +C REAL RVEC(1) + COMMON /RANMA2/ IU(1030),JSEQ + COMMON /RANMA3/ TWOM24,TWOM48,CD,CM,CINT,MODCNS + INTEGER I97(0:1030),J97(0:1030),NTOT(0:1030) + INTEGER NTOT2(0:1030),IJKL(0:1030) + REAL U(97),C(0:1030) + EQUIVALENCE (IJKL(0),IU(1)),(NTOT(0),IU(2)),(NTOT2(0),IU(3)) + EQUIVALENCE (U(1),IU(4)),(C(0),IU(101)),(I97(0),IU(102)) + EQUIVALENCE (J97(0),IU(103)) + SAVE +C----------------------------------------------------------------------- + +C ISEQ = 1 + LENV = 1 +C IF ( ISEQ .GT. 0 ) JSEQ = ISEQ +C IBASE = (JSEQ-1)*103 + IBASE = 0 + + IVEC = 1 +C DO 100 IVEC = 1,LENV + UNI = U( +I97(IBASE))-U( +J97(IBASE)) + IF ( UNI .LT. 0. ) UNI = UNI+1. + U( +I97(IBASE)) = UNI + I97(IBASE) = I97(IBASE)-1 + IF ( I97(IBASE) .EQ. 0 ) I97(IBASE) = 97 + J97(IBASE) = J97(IBASE)-1 + IF ( J97(IBASE) .EQ. 0 ) J97(IBASE) = 97 + C(IBASE) = C(IBASE) - CD + IF ( C(IBASE) .LT. 0. ) C(IBASE) = C(IBASE)+CM + UNI = UNI-C(IBASE) + IF ( UNI .LT. 0. ) UNI = UNI+1. +C REPLACE EXACT ZEROES BY UNIFORM DISTR. *2**-24 + IF ( UNI .EQ. 0. ) THEN + UNI = TWOM24*U(2) +C AN EXACT ZERO HERE IS VERY UNLIKELY, BUT LET'S BE SAFE. + IF ( UNI .EQ. 0. ) UNI = TWOM48 + ENDIF + RANGEN = UNI + 100 CONTINUE + + NTOT(IBASE) = NTOT(IBASE) + LENV + IF ( NTOT(IBASE) .GE. MODCNS ) THEN + NTOT2(IBASE) = NTOT2(IBASE) + 1 + NTOT(IBASE) = NTOT(IBASE) - MODCNS + ENDIF + + RETURN + END +*CMZ : 28/02/2002 12.36.15 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE UTQSEA(X1,X2,X3) + +C----------------------------------------------------------------------- +C UT(ILITY ROUTINE) SEA (QUARK STRUCTURE FUNCTION) +C +C SEA QUARK STRUCTURE FUNCTION INTEGRAL +C RETURNS INTEGRAL (XSE(1)->XSE(I)) OF FU(Z) DZ +C THIS SUBROUTINE IS CALLED FROM VENLNK. +C ARGUMENTS: +C X1 = +C X2 = +C X3 = +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + PARAMETER (NSTRU=2049) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /STRU2/ DELTA0,DELTA1,QSEH(NSTRU),QSEPI(NSTRU) + * ,QVAH(NSTRU),QVAPI(NSTRU),XSE(NSTRU),XVA(NSTRU) + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'UTQSEA:' + + X0 = 0. + N = NSTRU + IF ( ISH .GE. 90 ) THEN + IF ( X1.LT.X0 .OR. X2.LT.X1 .OR. X3.LT.X2 ) THEN + CALL UTMSG('UTQSEA') + WRITE(IFCH,*) ' XI=',X0,X1,X2,X3 + CALL UTMSGF + ENDIF + ENDIF + I1 = N/3 + I2 = 2*N/3 + FAC1 = (X1-X0)/FLOAT(I1-1) + DO 11 I = 1,I1-1 + XSE(I)=(I-1.)*FAC1+X0 + 11 CONTINUE + FAC2 = (X2-X1)/FLOAT(I2-I1) + DO 12 I = I1,I2-1 + XSE(I)=FLOAT(I-I1)*FAC2 +X1 + 12 CONTINUE + FAC3 = (X3-X2)/FLOAT(N-I2) + DO 13 I = I2,N + XSE(I)=MIN( FLOAT(I-I2)*FAC3 +X2, 0.99999999 ) + 13 CONTINUE + + XCUT2 = XCUT**2 + XCUT4 = XCUT2**2 + XCUT6 = XCUT2*XCUT4 + CUTLOG = LOG(XCUT) +C COEFFICIENTS FOR HADRONIC SEA QUARK STRUCTURE FUNCTION + AH0 = -8. + 37.333333*XCUT2 - 29.866667*XCUT4 + 3.65714286*XCUT6 + AH1 = 14. - 26.25*XCUT2 + 8.75*XCUT4 - 0.2734375*XCUT6 + AH2 = -18.666667 + 14.933333*XCUT2 - 1.82857143*XCUT4 + AH3 = 17.5 - 5.8333333*XCUT2 + 0.182291667*XCUT4 + AH4 = -11.2 + 1.37142857*XCUT2 + AH5 = 4.6666667 - 0.14583333*XCUT2 + AH6 = -1.14285714 + AH7 = 0.125 + QAH = 1. - AH1 * XCUT2 + AHCUT = AH0 * XCUT +C COEFFICIENTS FOR PIONIC SEA QUARK STRUCTURE FUNCTION + API0 = -5. + 6.6666667*XCUT2 - 0.53333333*XCUT4 + API1 = 5. - 1.875*XCUT2 + API2 = -3.3333333 + 0.26666667*XCUT2 + API3 = 1.25 + API4 = -0.2 + QAPI = 1. - API1 * XCUT2 + APICUT = API0 * XCUT + + QSEH(1) = 0. + QSEPI(1) = 0. + DO 2 I = 2,N + Z = XSE(I) + ROOT = SQRT(Z**2 + XCUT2) + ROOTLG = LOG( Z + ROOT ) - CUTLOG + QSEH(I) = 1.265 * ( QAH * ROOTLG - AHCUT + * + ROOT * (AH0 + Z*(AH1 + Z*(AH2 + Z*(AH3 + * + Z*(AH4 + Z*(AH5 + Z*(AH6 + Z*AH7))))))) ) + QSEPI(I) = 0.9 * ( QAPI * ROOTLG - APICUT + * + ROOT * (API0+Z*(API1+Z*(API2+Z*(API3+Z*API4)))) ) + 2 CONTINUE + + RETURN + END +*CMZ : 14/06/2000 14.17.24 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE UTQVAL(Q,NEND) + +C----------------------------------------------------------------------- +C UT(ILITY ROUTINE) VAL(ENCE QUARK STRUCTURE FUNCTION) +C +C VALENCE QUARK STRUCTURE FUNCTION +C RETURNS INTEGRAL (XVA(1)->XVA(I)) FU(Z) DZ +C THIS INTEGRAL IS ONLY CALCULATED FOR SMALL VALUES OF XVA UP TO 25 +C TIMES THE VALUE OF XCUT. FOR LARGER VALUES THE TABULATED VALUES OF +C DATASET 'VENUSDAT' ARE TAKEN AND CORRECTED BY THE CONSTANT SHIFT +C DELTA0 (FOR HADRONS) OR DELTA1 (FOR PIONS). +C THIS SUBROUTINE IS CALLED FROM VENLNK. +C ARGUMENTS: +C Q = INTEGRAL VALUE +C NEND = POINTER TO LAST ARGUMENT +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + PARAMETER (NSTRU=2049) + COMMON /CIPIO/ IPIO + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /STRU2/ DELTA0,DELTA1,QSEH(NSTRU),QSEPI(NSTRU) + * ,QVAH(NSTRU),QVAPI(NSTRU),XSE(NSTRU),XVA(NSTRU) + + DIMENSION Y0(9),Y1(9),Q(NEND) + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'UTQVAL: IPIO,NEND=',IPIO,NEND + + XCUT2 = XCUT**2 + Q(1) = 0. + Z = XVA(1) + DENOMI = 1. / SQRT(Z**2 + XCUT2) + + IF ( IPIO .EQ. 0 ) THEN +C CALCULATE THE FIRST NEND VALUES OF STRUCTURE FUNCTION FOR HADRONS + Y0(1) = 0. + DO 3 I = 2,NEND + FACT = (XVA(I) - Z) * 0.125 + DO 2 J = 2,8 + Z = Z + FACT + DENOMI = 1. / SQRT(Z**2 + XCUT2) + Y0(J) = (1.-Z)**3.46 * Z**.419 * (2.74793064*Z + 0.62452969) + * * DENOMI + 2 CONTINUE + Z = XVA(I) + DENOMI = 1. / SQRT(Z**2 + XCUT2) + Y0(9) = (1.-Z)**3.46 * Z**.419 * (2.74793064*Z + 0.62452969) + * * DENOMI +C INTEGRATION AFTER BODE'S RULE (ABRAMOWITZ + STEGUN, HANDBOOK OF +C MATHEMATICAL FUNCTIONS, DOVER PUBLICATIONS (1970), FORMULA 25.4.18) + Q(I) = 2.8218694E-4 * FACT * ( 989. * (Y0(1) + Y0(9)) + * + 5888. * (Y0(2) + Y0(8)) - 928. * (Y0(3) + Y0(7)) + * + 10496. * (Y0(4) + Y0(6)) - 4540. * Y0(5) ) + * + Q(I-1) + Y0(1) = Y0(9) + 3 CONTINUE + + ELSE +C CALCULATE THE FIRST NEND VALUES OF STRUCTURE FUNCTION FOR PIONS + Y1(1) = 0. + DO 5 I = 2,NEND + FACT = (XVA(I) - Z) * 0.125 + DO 4 J = 2,8 + Z = Z + FACT + DENOMI = 1. / SQRT(Z**2 + XCUT2) + Y1(J) = (1.-Z)**0.7 * Z**.4 * DENOMI + 4 CONTINUE + Z = XVA(I) + DENOMI = 1. / SQRT(Z**2 + XCUT2) + Y1(9) = (1.-Z)**0.7 * Z**.4 * DENOMI +C INTEGRATION AFTER BODE'S RULE (ABRAMOWITZ + STEGUN, HANDBOOK OF +C MATHEMATICAL FUNCTIONS, DOVER PUBLICATIONS (1970), FORMULA 25.4.18) + Q(I) = 2.8218694E-4 * FACT * ( 989. * (Y1(1) + Y1(9)) + * + 5888. * (Y1(2) + Y1(8)) - 928. * (Y1(3) + Y1(7)) + * + 10496. * (Y1(4) + Y1(6)) - 4540. * Y1(5) ) + * * 0.1730725 + Q(I-1) + Y1(1) = Y1(9) + 5 CONTINUE + ENDIF + + RETURN + END +*CMZ : 14/04/2000 12.25.46 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + BLOCK DATA VENDAT + +C----------------------------------------------------------------------- +C VEN(US) DAT(A INITIALIZATION) +C +C INITIALIZES DATA FOR VENUS LINK +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + COMMON /VENLIN/ PTQ1,PTQ2,PTQ3,QMUST1,QMUST2,QMUST3 + * ,IDTABL(100) + + DATA IDTABL/ + * 10, -12, 12, 0, -14, 14, 110, 120, -120, -20, + * 130, -130, 1220, 1120,-1120, 20, 220, 2130, 1130, 1230, + * 2230, 1330, 2330, 3331,-1220,-2130,-1130,-1230,-2230,-1330, + *-2330,-3331, -16, 16, -240, 240, -140, 140, -340, 340, + * 2140, 0, 0, 0, 0, 0, 0, 0, 0, 0, + * 111, 121, -121, 1111, 1121, 1221, 2221,-1111,-1121,-1221, + *-2221, 231, 131, -131, -231, 11, -11, 13, -13, 0, + * 220, 220, 220, 220, 0, 25*0 / + + END +*CMZ : 28/02/2002 12.36.15 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE VENINI + +C----------------------------------------------------------------------- +C VEN(US) INI(TIALIZATION) +C +C FIRST INITIALIZATION OF VENUS ARRAYS AND PARAMETERS +C THIS SUBROUTINE IS CALLED FROM START. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,VENPAR. + COMMON /VENPAR/ PARVAL,NPARAM,PARCHA + REAL PARVAL(100) + INTEGER NPARAM + CHARACTER*6 PARCHA(100) +*KEEP,VENUS. + COMMON /VENUS/ ISH00,IVERVN,MTAR99,FVENUS,FVENSG + INTEGER ISH00,IVERVN,MTAR99 + LOGICAL FVENUS,FVENSG +*KEND. + + PARAMETER (KOLLMX=2500) + PARAMETER (MXEPS=10) + PARAMETER (MXTAU=4) + PARAMETER (MXVOL=10) + PARAMETER (NGAU=129) + PARAMETER (NDEP=129) + PARAMETER (NDET=129) + PARAMETER (NPTF=129) + PARAMETER (NPTJ=129) + PARAMETER (NSTRU=2049) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CDEN/ MASSNR,RMX,R0 + COMMON /CGAU/ QGAU(NGAU),XGAU(NGAU) + COMMON /CIUTOT/ IUTOTC,IUTOTE + COMMON /CJINTC/ CLUST(MXTAU,MXVOL,MXEPS) + COMMON /CJINTD/ VOLSUM(MXTAU),VO2SUM(MXTAU),NCLSUM(MXTAU) + COMMON /CLEP/ ICINPU,IDSCAT + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /COL/ BIMP,BMAX,COORD(4,KOLLMX),DISTCE(KOLLMX) + * ,QDEP(NDEP),QDET14(NDET),QDET16(NDET),QDET40(NDET) + * ,QDET99(NDET),RMPROJ,RMTARG(4),XDEP(NDEP) + * ,XDET14(NDET),XDET16(NDET),XDET40(NDET) + * ,XDET99(NDET) + * ,KOLL,LTARG,NORD(KOLLMX),NPROJ,NRPROJ(KOLLMX) + * ,NRTARG(KOLLMX),NTARG + COMMON /CPTF/ FPTFS,FPTFSS,FPTFU,FPTFUS,FPTFUU + * ,QPTFS(NPTF),QPTFSS(NPTF),QPTFU(NPTF),QPTFUS(NPTF) + * ,QPTFUU(NPTF),XPTF(NPTF) + COMMON /CPTJ/ QPTJ(NPTJ),XPTJ(NPTJ) + COMMON /CPTLU/ NPTLU + COMMON /CQUAMA / QUAMA + DOUBLE PRECISION SEEDC,SEEDI + COMMON /CSEED/ SEEDC,SEEDI + COMMON /CVSN/ IVERSN + COMMON /EPSCR/ EPSCRI + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /NEVNT/ NEVNT + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /PARO3/ ASUHAX(7),ASUHAY(7),OMEGA,SIGPPD,SIGPPE,UENTRO + * ,IWZZZZ + COMMON /PARO4/ GRICEL,GRIDEL,GRIGAM,GRIRSQ,GRISLO + COMMON /PARO5/ DELEPS,DELVOL + COMMON /QUARKM/ SMAS,SSMAS,USMAS,UUMAS + COMMON /STRU2/ DELTA0,DELTA1,QSEH(NSTRU),QSEPI(NSTRU) + * ,QVAH(NSTRU),QVAPI(NSTRU),XSE(NSTRU),XVA(NSTRU) + COMMON /VENLIN/ PTQ1,PTQ2,PTQ3,QMUST1,QMUST2,QMUST3 + * ,IDTABL(100) + + SAVE + EXTERNAL SDENSI,SGAU,SPTF,SPTJ +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'VENINI:' + + IFMT = MONIOU + IFCH = MDEBUG + ICHOIC = 2 + NEVNT = 0 + +C VERSION NUMBER +C -------------- + IVERSN=4125 + IVERVN=IVERSN + +C FRAGMENTATION PARAMETERS/OPTIONS +C -------------------------------- +C PROB. FOR U OR D QUARK PRODUCTION ( =(1-P_STRANGE)/2 ): + PUD=0.455 +C QQ-QQBAR PROBABILITY + PDIQUA=0.12 +C SPIN PROBABILITIES (FOR LIGHT AND HEAVY FLAVOURS): + PSPINL=0.50 + PSPINH=0.75 +C ISOSPIN PROBABILITY: + PISPN=0.50 +C OPTION FOR P_T DISTRIBUTION (1=EXPONENTIAL,2=GAUSSIAN): + IOPTF=1 +C AVERAGE P_TRANSVERSE + PTF=0.40 +C STRING TENSION: + TENSN=1.0 +C STRING DECAY PARAMETER + PAREA=.60 +C THRESHOLD RESONANCE -> STRING + DELREM=1.0 +C CUTOFF FOR KMAXOR BEYOND WHICH PDIQ=0 IN SR JSPLIT + KUTDIQ=4 +C OPTION FOR BREAKING PROCEDURE (1=AMOR,2=SAMBA) + IOPBRK=1 + +C PROTON-PROTON PARAMETERS/OPTIONS +C -------------------------------- +C OPTION FOR QUARK P_T DISTRIBUTION (1=EXPONENTIAL,2=GAUSSIAN,3=POWE + IOPTQ=2 +C MEAN TRANSVERSE MOMENTUM OF QUARKS +C (Q1+Q2*LN(E)+Q3*LN(E)**2, E=SQRT(S)): + PTQ1=0.260 + PTQ2=0. + PTQ3=0. +C PROBABILITY FOR SEMIHARD INTERACTION (NOT USED IF NEGATIVE): +C PHARD=-1.0 +C CUTOFF PARAMETER FOR P_T DISTR. FOR SEMIHARD INTERACTIONS: + PTH=1.0 +C EFFECTIVE RATIO OF STRANGE SEA OVER U SEA: + RSTRAS=0. +C EFFECTIVE CUTOFF MASS IN STRUCTURE FUNCTIONS: + CUTMSQ=2.0 + CUTMSS=0.001 +C VALENCE QUARK FRACTION IN CASE OF DIFFRACTIVE INTERACTION + PVALEN=0.30 +C PHASE SPACE PARAMETERS: + DELMSS=0.300 + +C GRIBOV-REGGE-THEORY PARAMETERS +C ------------------------------ +C GAMMA (IN FM**2): + GRIGAM=3.64*0.04 +C R**2(IN FM**2): + GRIRSQ=3.56*0.04 +C DELTA=INTERCEPT OF REGGE TRAJECTORY-1: + GRIDEL=0.07 +C SLOPE OF REGGE TRAJECTORY (IN FM**2): + GRISLO=0.25*0.04 +C C (DETERMINES RELATIVE WEIGHT OF ELASTIC AND DIFFR CROSS-SCTN): + GRICEL=1.5 + +C NUCLEUS-NUCLEUS PARAMETERS +C -------------------------- +C HARD CORE DISTANCE: + CORE=0.8 +C JPSI NUCLEON CROSS-SECTION (FM**2): + SIGJ=0.2 + +C RESCATTERING PARAMETERS +C ----------------------- +C REACTION TIME: + TAUREA=1.5 +C OVERLAP PARAMETER (NOT USED IF NEGATIVE) + OVERLP=-1.0 +C BARYON RADIUS: + RADIAC=0.65 +C MESON RADIUS: + RADIAS=0.35 +C CRITICAL ENERGY DENSITY (<0 TO AVOID SECONDARY INTERACTIONS): + EPSCRI=1.0 +C BARYON ENERGY DENSITY + EPSBAR=2.0 +C INTERACTION MASS: + AMSIAC=0.8 +C OPTION TO CALL JINTA1 (1) OR JINTA2 (2) + IOJINT=2 +C PRINT OPTIONS + AMPRIF=0. + DELVOL=1.0 + DELEPS=1.0 + +C CLUSTER DECAY PARAMETERS/OPTIONS +C -------------------------------- +C CORRELATION LENGTH +C (CORLEN>1.0: FIRST FIX SHORT CLUSTER BREAKING + CORLEN=1.0 +C MINIMUM MASS + AMUSEG=3.0 +C BAG CONSTANT -1/4 + BAG4RT=0.200 +C OPTION FOR ENTROPY CALCULATION: +C IOPENT=0: ZERO ENTROPY +C IOPENT=1: OSCILLATOR MODEL (0 FOR K.LE.UENTRO) +C IOPENT=2: FERMI GAS WITH CONST VOLUME (0 FOR K.LE.UENTRO) +C IOPENT=3: FERMI GAS WITH CONST DENSITY (0 FOR K.LE.UENTRO) +C IOPENT=4: FERMI GAS WITH CONST VOLUME - NEW (0 FOR K.LE.UENTRO) +C IOPENT=5: RESONANCE GAS (HAGEDORN) (0 FOR U.LE.UENTRO) + IOPENT=5 + UENTRO=4.0 + KENTRO=100000 +C DECAY TIME (COMOVING FRAME): + TAUNLL=1.0 +C OSCILLATOR QUANTUM + OMEGA=0.500 + +C PRESENTLY NOT USED +C ------------------ + +C CLUSTER DECAY INITIALIZATIONS +C ----------------------------- +C AVERAGE HADRON MASSES, TWO LOWEST MULTIPLETS (IF POSSIBLE): +C N/DELTA,LAMBDA/SIGMA,XI,OMEGA,PI/RHO,KAON,DELTA: + ASUHAX(1)=1.134 + ASUHAX(2)=1.301 + ASUHAX(3)=1.461 + ASUHAX(4)=1.673 + ASUHAX(5)=0.6125 + ASUHAX(6)=0.7915 + ASUHAX(7)=1.2320 +C LOWEST MASSES: + ASUHAY(1)=0.940 + ASUHAY(2)=1.200 + ASUHAY(3)=1.322 + ASUHAY(4)=1.673 + ASUHAY(5)=0.1400 + ASUHAY(6)=0.4977 + ASUHAY(7)=1.2320 + +C TECHNICAL PARAMETERS +C -------------------- +C DELTA_ZETA FOR /C4PTL/...WEIPTL() + DLZETA=0.5 +C MIN TAU FOR SPACE-TIME EVOLUTION: + TAUMIN=0. +C MAX TAU FOR SPACE-TIME EVOLUTION + TAUMAX=10.0 +C TAU STEPS FOR SPACE-TIME EVOTUTION (46+40) + NUMTAU=51 +C RANGE FOR PT DISTRIBUTION + PTMX=6.0 +C RANGE FOR GAUSS DISTRIBUTION + GAUMX=8.0 +C PARAMETER DETERMINING RANGE FOR DENSITY DISTRIBUTION + FCTRMX=10.0 +C TRY-AGAIN PARAMETER + NTRYMX=10 +C MAX TIME FOR JPSI EVOLUTION + TAUMX=20.0 +C TIME STEPS FOR JPSI EVOLUTION + NSTTAU=100 + +C OPTIONS +C ------- +C OPTION FOR MINIMUM ENERGY IN SJCGAM: +C IOPENU = 1 : SUM OF HADRON MASSES +C IOPENU = 2 : BAG MODEL CURVE WITH MINIMUM AT NONZERO STRANGEN. + IOPENU=1 +C PARAMETER THETA IN BERGER/JAFFE MASS FORMULA + THEMAS=0.51225 +C SEA PROBABILITY (IF .LT. 0. THEN CALCULATED FROM STRUCTURE FNCTS) + PROSEA=-1.0 +C INELASTIC PP CROSS-SECTION (FM**2) +C (IF NEGATIVE: CALCULATED FROM GRIBOV-REGGE-THEORY): +CDH SIGPPI=-1.0 +C MULTISTRING PARAMETER (Q1+Q2*LN(E)+Q3*LN(E)**2, E=SQRT(S)): +C (NOT USED IF RACPRO IS CALLED WITH 'GRI'-OPTION (DEFAULT)) + QMUST1=0.50 + QMUST2=0. + QMUST3=0. +C ENTRO() CALCULATED (1) OR FROM DATA (2) + IENTRO=2 +C DUAL PARTON MODEL (1) OR NOT (ELSE) + IDPM=0 +C ANTIQUARK COLOR EXCHANGE (1) OR NOT (0): + IAQU=1 +C MINIMUM NUMBER OF VALENCE QUARKS: + NEQMN=-5 +C MAXIMUM NUMBER OF VALENCE QUARKS: + NEQMX=5 +C UPPER LIMIT FOR RAPIDITY INTERVAL FOR INTERMITTENCY ANALYSIS + YMXIMI=2.0 +C CLEAN /CPTL/ IF NCLEAN > 0 (EVERY NCLEAN_TH TIME STEP) + NCLEAN=0 +C TRAFO FROM PP-CM INTO LAB-SYSTEM (1) OR NOT (.NE.1) + LABSYS=1 +C MAXIMUM NUMBER OF COLLISIONS: + NCOLMX=1000 +C MAXIMUM RESONANCE SPIN (SPIN IN A GENARAL SENSE: MOD(/ID/,10)) + MAXRES=99999 +C MOMENTUM RESCALING (1=YES): + IRESCL=1 +C NUE ENERGY + ELEPTI=43.00 +C MUE ENERGY + ELEPTO=26.24 +C MUE ANGLE + ANGMUE=3.9645/180.*3.1415926 +C JPSI TO BE PRODUCED (1) OR NOT (0): + JPSI=0 +C JPSI FINAL STATE INTERACTION (1) OR NOT (0): + JPSIFI=0 +C COLLISION TRIGGER (ONLY COLL BETWEEN KO1 AND KO2 ARE USED): + KO1KO2=00009999 +C PRINT OPTION: +C ISH=14: CALL UTTIMA +C ISH=15: PRINTS PTLS READ FROM DATA FILE IN SR VEANLY +C ISH=16: PRINTS SEA PROB. +C ISH=17: PRINTS RANDOM NUMBERS +C ISH=18: SR JCLUDE, NO-PHASE-SPACE CLUSTERS +C ISH=19: SR AINITL, CALL SMASSP +C ISH=20: SR VEANLY, PRINTS EVT NR IF EVT IS ACCEPTED +C ISH=21: CREATES HISTOGRAM FOR SEA DISTRIBUTION +C ISH=22: SR JFRADE, MSG AFTER CALL UTCLEA +C ISH=23: CALL JINTFP +C ISH=24: CALL JINTCL +C ISH=25: CALL JCHPRT +C ISH=90,91,92,93,94,95: MORE AND MORE DETAILED MESSAGES. + IF ( DEBUG ) THEN + ISH = ISH00 + ELSE + ISH = 0 + ENDIF +C PRINT OPTION: +C ISHSUB=IJMN, IJ SPECIFIES LOCATION WHERE ISH=MN. +C IJ=01: SR JCLUDE +C IJ=02: SR JETGEN +C IJ=03: SR JFRADE, STARTING BEFORE FRAGMENTATION +C IJ=04: SR JDECAY +C IJ=05: SR JDECAX +C IJ=06: SR NUCOLL +C IJ=07: SR NUCOGE+- +C IJ=08: SR ASTORE +C IJ=09: SR JFRADE, STARTING AFTER FRAGMENTATION +C IJ=10: SR JFRADE, STARTING BEFORE DECAY +C IJ=11: SR JFRADE, STARTING AFTER INTERACTIONS +C IJ=12: SR JCENTR, ENTRO() IN DATA FORMAT +C IJ=13: SR JCENTP +C IJ=14: SR JDECAX IF CLUSTER DECAY +C IJ=15: SR JSPLIT +C IJ=16: SR JFRADE +C IJ=17: SR RACPRO +C IJ=18: SR UTCLEA +C IJ=19: SR JINTA1, JINTA2, AFTER CALL UTCLEA +C IJ=20: SR JDECAS +C IJ=21: SR JDECAS (WITHOUT JDECAX) + ISHSUB=0 +C PRINT OPTION: +C IF ISHEVT.NE.0: FOR EVT#.NE.ISHEVT ISH IS SET TO 0 + ISHEVT=0 +C PRINT MARKS BETWEEN WHOM ISH IS SET TO ISH(INIT): + IPAGI=0 +C VERIFY OPTION FOR INPUT READING: + IVI=1 +C MAXIMUM IMPACT PARAMETER (BMAXIM=0=>CENTRAL): + BMAXIM=10000. +C MINIMUM IMPACT PARAMETER: + BMINIM=0. +C STORE ONLY STABLE PTL (0) OR ALSO PARENTS (1): + ISTMAX=0 +C RANDOM GENERATOR SEED + SEEDI=ISEED(1,1) + SEEDC=ISEED(2,1)+1.D9*ISEED(3,1) +C SUPPRESSION (1) OR NOT OF MESSAGES + ISUP=0 +C SUPPRESSION OF CALLING JFRADE (0). JFRADE=FRAGM+DECAY+RESCATTERING + IFRADE=1 +C.. DECAY SUPPRESSION. NDECAY SPECIFIES WHICH RESONANCES ARE NOT DECAY +C.. 0000001 : ALL RESONANCES +C.. 0000010 : K_SHORT/LONG (+-20) +C.. 0000100 : LAMBDA (+-2130) +C.. 0001000 : SIGMA (+-1130,+-2230) +C.. 0010000 : CASCADE (+-2330,+-1330) +C.. 0100000 : OMEGA (+-3331) +C.. 1000000 : PI0 (110) + NDECAY=1111110 +C.. DECAY SUPPRESSION. NDECAX SPECIFIES WHICH RESONANCES ARE NOT DECAY +C.. 0000001 : JPSI +C.. 0000010 : K_ZERO (+-230) +C.. 0000100 : DELTA (+-1111,+-1121,+-1221,+-2221) +C.. 0001000 : RHO,OMEGA,PHI (111,+-121,221,331) +C.. 0010000 : ETA (220) +C.. 0100000 : ETAPRIME (330) +C.. 1000000 : A0 (112), A+- (+-122) + NDECAX=0010000 +C.. DECAY SUPPRESSION. NDECAW SPECIFIES WHICH RESONANCES ARE NOT DECAY +C.. 0000001 : F0 (332) +C.. 0000010 : K* (+-131,+-231) + NDECAW=0 +C FILL ZZZZ HISTOGRAMS (1) OR NOT (0) +C IWZZZZ=0 +C FILL INTERMITTENCY HISTOGRAMS (1) OR NOT (0) +C IMIHIS=0 +C FILL SPACE-TIME HISTOGRAMS (1) OR NOT (0) + ISPHIS=0 +C FILL CLUSTER HISTOGRAMS (1) OR NOT (0) +C ICLHIS=0 +C FILL JPSI HISTOGRAMS (1) OR NOT (0) +C IJPHIS=0 +C RHO/RHO+PHI RATIO + RHOPHI=0.5 +C WSPA: ALL PTLS (1) OR ONLY INTERACTING PTLS (ELSE) + ISPALL=1 +C TMIN IN WSPA + WTMINI=-3.0 +C T-STEP IN WSPA + WTSTEP=1.0 +C ONLY CENTRAL POINT (1) OR LONGITUDINAL DISTRIBUTION (ELSE) IN WSPA + IWCENT=0 +C QUARK MASSES + SMAS=0. + UUMAS=0. + USMAS=0. + SSMAS=0. + +C CONSTANTS (PROTON MASS, PION MASS, PI, INFINITE) +C --------- +C PROM=0.94 + PROM=PAMA(14) +C PIOM=0.14 + PIOM=PAMA(8) + PI=3.141592654 + AINFIN=1.E+30 + +C INITIALIZATIONS +C --------------- + LAPROJ = 0 + MAPROJ = 0 + LATARG = 0 + MAPROJ = 0 + IDPROJ = 1120 + IDTARG = 1120 + DO 6 I = 1,99 + PROB(I) = 0. + ICBAC(I,1) = 0 + ICBAC(I,2) = 0 + ICFOR(I,1) = 0 + ICFOR(I,2) = 0 + 6 CONTINUE + PNLL = 0. + +C FEW INITIALIZATIONS FOR CROSS-SECTION CALCULATIONS +C -------------------------------------------------- + + IMSG=0 + JERR=0 + NTEVT=0 + NREVT=0 + NAEVT=0 + NRSTR=0 + NRPTL=0 + INOIAC=0 + ILAMAS=0 + NPTLU=0 + DO 44 ITAU = 1,MXTAU + VOLSUM(ITAU)=0. + VO2SUM(ITAU)=0. + NCLSUM(ITAU)=0 + 44 CONTINUE + DO 43 IEPS = 1,MXEPS + DO 43 IVOL = 1,MXVOL + DO 43 ITAU = 1,MXTAU + CLUST(ITAU,IVOL,IEPS) = 0. + 43 CONTINUE + IUTOTC=0 + IUTOTE=0 + + IF ( NPARAM .GT. 0 ) THEN + DO 3 N = 1,NPARAM + CALL UTLOW6(PARCHA(N)) + IF ( DEBUG ) WRITE(MDEBUG,*) PARCHA(N),PARVAL(N) + IF ( PARCHA(N) .EQ. 'AMPRIF' ) THEN + AMPRIF = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'AMSIAC' ) THEN + AMSIAC = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'AMUSEG' ) THEN + AMUSEG = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ANGMUE' ) THEN + ANGMUE = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'BAG4RT' ) THEN + BAG4RT = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'BMAXIM' ) THEN + BMAXIM = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'BMINIM' ) THEN + BMINIM = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'CORE ' ) THEN + CORE = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'CORLEN' ) THEN + CORLEN = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'CUTMSQ' ) THEN + CUTMSQ = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'CUTMSS' ) THEN + CUTMSS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'DELEPS' ) THEN + DELEPS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'DELMSS' ) THEN + DELMSS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'DELREM' ) THEN + DELREM = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'DELVOL' ) THEN + DELVOL = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ELEPTI' ) THEN + ELEPTI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ELEPTO' ) THEN + ELEPTO = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'EPSCRI' ) THEN + EPSCRI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'FCTRMX' ) THEN + FCTRMX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'GAUMX ' ) THEN + GAUMX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'GRICEL' ) THEN + GRICEL = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'GRIDEL' ) THEN + GRIDEL = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'GRIGAM' ) THEN + GRIGAM = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'GRIRSQ' ) THEN + GRIRSQ = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'GRISLO' ) THEN + GRISLO = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IAQU ' ) THEN + IAQU = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ICLHIS' ) THEN + ICLHIS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IDPM ' ) THEN + IDPM = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IENTRO' ) THEN + IENTRO = NINT(PARVAL(N)) + ELSEIF ( PARCHA(N) .EQ. 'IFRADE' ) THEN + IFRADE = NINT(PARVAL(N)) + ELSEIF ( PARCHA(N) .EQ. 'IJPHIS' ) THEN + IJPHIS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IMIHIS' ) THEN + IMIHIS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IOJINT' ) THEN + IOJINT = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IOPBRK' ) THEN + IOPBRK = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IOPENT' ) THEN + IOPENT = PARVAL(N) + IOPENT = MOD(IOPENT,10) + ELSEIF ( PARCHA(N) .EQ. 'IOPENU' ) THEN + IOPENU = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IOPTF ' ) THEN + IOPTF = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IOPTQ ' ) THEN + IOPTQ = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IPAGI ' ) THEN + IPAGI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IRESCL' ) THEN + IRESCL = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ISH ' ) THEN + ISH = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ISHEVT' ) THEN + ISHEVT = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ISHSUB' ) THEN + ISHSUB = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ISPALL' ) THEN + ISPALL = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ISPHIS' ) THEN + ISPHIS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ISTMAX' ) THEN + ISTMAX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ISUP ' ) THEN + ISUP = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IVERSN' ) THEN + IVERSN = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IVI ' ) THEN + IVI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IWCENT' ) THEN + IWCENT = NINT(PARVAL(N)) + ELSEIF ( PARCHA(N) .EQ. 'IWZZZZ' ) THEN + IWZZZZ = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'JPSI ' ) THEN + JPSI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'JPSIFI' ) THEN + JPSIFI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'KENTRO' ) THEN + KENTRO = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'KO1KO2' ) THEN + KO1KO2 = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'KUTDIQ' ) THEN + KUTDIQ = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'LABSYS' ) THEN + LABSYS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'MAXRES' ) THEN + MAXRES = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'NCLEAN' ) THEN + NCLEAN = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'NCOLMX' ) THEN + NCOLMX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'NDECAW' ) THEN + NDECAW = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'NDECAX' ) THEN + NDECAX = NINT(PARVAL(N)) + ELSEIF ( PARCHA(N) .EQ. 'NDECAY' ) THEN + NDECAY = NINT(PARVAL(N)) + ELSEIF ( PARCHA(N) .EQ. 'NEQMN ' ) THEN + NEQMN = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'NEQMX ' ) THEN + NEQMX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'NSTTAU' ) THEN + NSTTAU = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'NTRYMX' ) THEN + NTRYMX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'NUMTAU' ) THEN + NUMTAU = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'OVERLP' ) THEN + OVERLP = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PAREA ' ) THEN + PAREA = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PDIQUA' ) THEN + PDIQUA = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PISPN ' ) THEN + PISPN = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PROSEA' ) THEN + PROSEA = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PSPINH' ) THEN + PSPINH = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PSPINL' ) THEN + PSPINL = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PTF ' ) THEN + PTF = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PTH ' ) THEN + PTH = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PHARD ' ) THEN + PHARD = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PTMX ' ) THEN + PTMX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PTQ1 ' ) THEN + PTQ1 = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PTQ2 ' ) THEN + PTQ2 = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PTQ3 ' ) THEN + PTQ3 = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PUD ' ) THEN + PUD = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PVALEN' ) THEN + PVALEN = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'QMUST ' ) THEN + CALL UTSTOP('VENINI: *** QMUST NOT USED ANYMORE! *** ') + ELSEIF ( PARCHA(N) .EQ. 'QMUST1' ) THEN + QMUST1 = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'QMUST2' ) THEN + QMUST2 = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'QMUST3' ) THEN + QMUST3 = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'RADIAC' ) THEN + RADIAC = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'RADIAS' ) THEN + RADIAS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'RHOPHI' ) THEN + RHOPHI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'RSTRAS' ) THEN + RSTRAS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'SEEDI ' ) THEN + SEEDI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'SIGJ ' ) THEN + SIGJ = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'SIGPPI' ) THEN + SIGPPI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'SMAS ' ) THEN + SMAS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'SSMAS ' ) THEN + SSMAS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'TAUMAX' ) THEN + TAUMAX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'TAUMIN' ) THEN + TAUMIN = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'TAUMX ' ) THEN + TAUMX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'TAUNLL' ) THEN + TAUNLL = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'TAUREA' ) THEN + TAUREA = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'TENSN ' ) THEN + TENSN = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'THEMAS' ) THEN + THEMAS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'UENTRO' ) THEN + UENTRO = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'USMAS ' ) THEN + USMAS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'UUMAS ' ) THEN + UUMAS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'WPROJ ' ) THEN + WPROJ = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'WTARG ' ) THEN + WTARG = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'WTMINI' ) THEN + WTMINI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'WTSTEP' ) THEN + WTSTEP = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'YMXIMI' ) THEN + YMXIMI = PARVAL(N) + ENDIF + 3 CONTINUE + ENDIF + + IF ( ISPHIS .EQ. 1 ) LABSYS = 0 + IF ( IDPM .EQ. 1 ) THEN + IAQU = 0 + NEQMN = 2 + NEQMX = 3 + ENDIF + IF ( IOPENU .EQ. 2 ) THEN + CALL SMASSI(THEMAS) + IF ( ISH .EQ. 19 ) THEN + CALL SMASSP + CALL UTSTOP(' VENINI: ') + ENDIF + ENDIF + + IF ( IOJINT .EQ. 2 ) THEN + IF ( EPSCRI .LT. 0. ) THEN + RADIAC = 0. + RADIAS = 0. + ELSEIF ( EPSCRI .GT. 0. ) THEN + VOLBAR = PROM/EPSBAR*PI*0.25 +CDH RADIAC = (VOLBAR*0.5/PI)**0.3333333 + VOLMES = 0.455/EPSCRI*PI*0.25 +CDH RADIAS = (VOLMES*0.5/PI)**0.3333333 + ELSE + CALL UTSTOP('EPSCRI MUST NOT BE 0. ') + ENDIF + ENDIF + + CALL JDECIN(.FALSE.) +C INITIALIZE ALL PT DISTRIBUTIONS + CX = PTMX + QUAMA = 0. + IF ( IOPTF .EQ. 1 ) THEN + ROOT = SQRT(PTMX**2+QUAMA**2) + AUXIL = 2./PTF + BPTFU = (+0.25)*PTF**2*EXP((-AUXIL)*QUAMA)*(AUXIL*QUAMA+1.) + FPTFU = (-0.25)*PTF**2*EXP((-AUXIL)*ROOT)*(AUXIL*ROOT+1.)+BPTFU + CALL UTQUAF(SPTF,NPTF,XPTF,QPTFU,0.,.33*CX,.66*CX,CX) +C DO 199 N = 1,NPTF +C WRITE(IFCH,*) 'N,X,Q=',N,XPTF(N),QPTFU(N) +C199 CONTINUE + ELSE + AUXIL = 0.25*PI/PTF**2 + BPTFU = (+EXP((-AUXIL)* QUAMA**2))*0.5/AUXIL + FPTFU = (-EXP((-AUXIL)*(QUAMA**2+PTMX**2)))*0.5/AUXIL+BPTFU + ENDIF + + QUAMA = SMAS + IF ( QUAMA .NE. 0. ) THEN + IF ( IOPTF .EQ. 1 ) THEN + ROOT = SQRT(PTMX**2+SMAS**2) + AUXIL = 2./PTF + BPTFS = (+0.25)*PTF**2*EXP((-AUXIL)*SMAS)*(AUXIL*SMAS+1.) + FPTFS = (-0.25)*PTF**2*EXP((-AUXIL)*ROOT)*(AUXIL*ROOT+1.)+ + * BPTFS + CALL UTQUAF(SPTF,NPTF,XPTF,QPTFS,0.,.33*CX,.66*CX,CX) + ELSE + AUXIL = 0.25*PI/PTF**2 + BPTFS = (+EXP((-AUXIL)* SMAS**2))*0.5/AUXIL + FPTFS = (-EXP((-AUXIL)*(SMAS**2+PTMX**2)))*0.5/AUXIL+BPTFS + ENDIF + ELSE + DO 201 N = 1,NPTF + QPTFS(N) = QPTFU(N) + 201 CONTINUE + FPTFS = FPTFU + ENDIF + + QUAMA = UUMAS + IF ( QUAMA .NE. 0. ) THEN + IF ( IOPTF .EQ. 1 ) THEN + ROOT = SQRT(PTMX**2+UUMAS**2) + AUXIL = 2./PTF + BPTFUU = (+0.25)*PTF**2*EXP((-AUXIL)*UUMAS)*(AUXIL*UUMAS+1.) + FPTFUU = (-0.25)*PTF**2*EXP((-AUXIL)*ROOT)*(AUXIL*ROOT+1.)+ + * BPTFUU + CALL UTQUAF(SPTF,NPTF,XPTF,QPTFUU,0.,.33*CX,.66*CX,CX) + ELSE + AUXIL = 0.25*PI/PTF**2 + BPTFUU = EXP((-AUXIL)* UUMAS**2)*0.5/AUXIL + FPTFUU = (-EXP((-AUXIL)*(UUMAS**2+PTMX**2)))*0.5/AUXIL+BPTFUU + ENDIF + ELSE + DO 202 N = 1,NPTF + QPTFUU(N) = QPTFU(N) + 202 CONTINUE + FPTFUU = FPTFU + ENDIF + + QUAMA = USMAS + IF ( QUAMA .NE. 0. ) THEN + IF ( IOPTF .EQ. 1 ) THEN + ROOT = SQRT(PTMX**2+USMAS**2) + AUXIL = 2./PTF + BPTFUS = 0.25*PTF**2*EXP((-AUXIL)*USMAS)*(AUXIL*USMAS+1.) + FPTFUS = (-0.25)*PTF**2*EXP((-AUXIL)*ROOT)*(AUXIL*ROOT+1.)+ + * BPTFUS + CALL UTQUAF(SPTF,NPTF,XPTF,QPTFUS,0.,.33*CX,.66*CX,CX) + ELSE + AUXIL = 0.25*PI/PTF**2 + BPTFUS = EXP((-AUXIL)* USMAS**2)*0.5/AUXIL + FPTFUS = (-EXP((-AUXIL)*(USMAS**2+PTMX**2)))*0.5/AUXIL+BPTFUS + ENDIF + ELSE + DO 203 N = 1,NPTF + QPTFUS(N) = QPTFU(N) + 203 CONTINUE + FPTFUS = FPTFU + ENDIF + + QUAMA = SSMAS + IF ( QUAMA .NE. 0. ) THEN + IF ( IOPTF .EQ. 1 ) THEN + ROOT = SQRT(PTMX**2+SSMAS**2) + AUXIL = 2./PTF + BPTFSS = (+0.25)*PTF**2*EXP((-AUXIL)*SSMAS)*(AUXIL*SSMAS+1.) + FPTFSS = (-0.25)*PTF**2*EXP((-AUXIL)*ROOT)*(AUXIL*ROOT+1.)+ + * BPTFSS + CALL UTQUAF(SPTF,NPTF,XPTF,QPTFSS,0.,.33*CX,.66*CX,CX) + ELSE + AUXIL = 0.25*PI/PTF**2 + BPTFSS = EXP((-AUXIL)* SSMAS**2)*0.5/AUXIL + FPTFSS =(-EXP((-AUXIL)*(SSMAS**2+PTMX**2)))*0.5/AUXIL+BPTFSS + ENDIF + ELSE + DO 204 N = 1,NPTF + QPTFSS(N) = QPTFU(N) + 204 CONTINUE + FPTFSS = FPTFU + ENDIF + +C INITIALIZE FUNCTIONS FOR JPSI GENERATION + IF ( JPSI .EQ. 1 ) THEN + CX = GAUMX + CALL UTQUAF(SGAU,NGAU,XGAU,QGAU,0.,.33*CX,.66*CX,CX) + CX = PTMX + CALL UTQUAF(SPTJ,NPTJ,XPTJ,QPTJ,0.,.33*CX,.66*CX,CX) + ENDIF + +C INITIALIZE DENSITY DISTRIBUTION INTEGRALS FOR NITROGEN, OXYGEN, ARGON + MASSNR = 14. + R0 = 1.19*MASSNR**(.3333333) -1.61*MASSNR**(-.3333333) + CX = R0+FCTRMX*0.54 + RMTARG(1) = CX + CALL UTQUAF(SDENSI,NDET,XDET14,QDET14,0.,.33*CX,.66*CX,CX) + + MASSNR = 16. + R0 = 1.19*MASSNR**(.3333333) -1.61*MASSNR**(-.3333333) + CX = R0+FCTRMX*0.54 + RMTARG(2) = CX + CALL UTQUAF(SDENSI,NDET,XDET16,QDET16,0.,.33*CX,.66*CX,CX) + + MASSNR = 40. + R0 = 1.19*MASSNR**(.3333333) -1.61*MASSNR**(-.3333333) + CX = R0+FCTRMX*0.54 + RMTARG(3) = CX + CALL UTQUAF(SDENSI,NDET,XDET40,QDET40,0.,.33*CX,.66*CX,CX) + +C QDET99 AND XDET99 ARE NOT INITIALIZED + MTAR99 = 0 + + OPEN(UNIT=14,FILE='VENUSDAT',STATUS='OLD') + READ(14,*)(IDUMMY, XVA(I), QVAH(I), QVAPI(I), I=1,2049) + CLOSE(UNIT=14) + + WRITE(IFMT,105) FLOAT(IVERSN)/1000. + 105 FORMAT( + * ' !-----------------------------------------------------!' + */' ! V(ERY) E(NERGETIC) NU(CLEAR) S(CATTERING) !' + */' ! VENUS',F6.3,5X,'- K. WERNER !' + */' ! SUBROUTINE TURBOVERSION D. HECK !' + */' !-----------------------------------------------------!') + RETURN + END +*CMZ : 28/02/2002 12.36.15 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE VENLNK + +C----------------------------------------------------------------------- +C VEN(US) L(I)NK (TO CORSIKA) +C +C LINKS VENUS PACKAGE TO CORSIKA, NEEDS FIRST CALL OF VENINI +C THIS SUBROUTINE IS CALLED FROM SDPM. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,VENUS. + COMMON /VENUS/ ISH00,IVERVN,MTAR99,FVENUS,FVENSG + INTEGER ISH00,IVERVN,MTAR99 + LOGICAL FVENUS,FVENSG +*KEND. + + PARAMETER (KOLLMX=2500) + PARAMETER (MXEPS=10) + PARAMETER (NDEP=129) + PARAMETER (NDET=129) + PARAMETER (NPRBMS=20) + PARAMETER (NPTQ=129) + PARAMETER (NSTRU=2049) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CDEN/ MASSNR,RMX,R0 + COMMON /CIPIO/ IPIO + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /COL/ BIMP,BMAX,COORD(4,KOLLMX),DISTCE(KOLLMX) + * ,QDEP(NDEP),QDET14(NDET),QDET16(NDET),QDET40(NDET) + * ,QDET99(NDET),RMPROJ,RMTARG(4),XDEP(NDEP) + * ,XDET14(NDET),XDET16(NDET),XDET40(NDET) + * ,XDET99(NDET) + * ,KOLL,LTARG,NORD(KOLLMX),NPROJ,NRPROJ(KOLLMX) + * ,NRTARG(KOLLMX),NTARG + COMMON /CPRBMS/ PRBMS(NPRBMS) + COMMON /CPTQ/ QPTH(NPTQ),QPTQ(NPTQ),XPTQ(NPTQ),QPTQMX,QPTHMX + DOUBLE PRECISION SEEDC,SEEDI + COMMON /CSEED/ SEEDC,SEEDI + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /NEVNT/ NEVNT + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /PARO3/ ASUHAX(7),ASUHAY(7),OMEGA,SIGPPD,SIGPPE,UENTRO + * ,IWZZZZ + COMMON /PARO4/ GRICEL,GRIDEL,GRIGAM,GRIRSQ,GRISLO + COMMON /PARO5/ DELEPS,DELVOL + COMMON /QUARKM/ SMAS,SSMAS,USMAS,UUMAS + COMMON /STRU/ QSEP(NSTRU),QSET(NSTRU),QVAP(NSTRU) + * ,QVAT(NSTRU),XCUTAR,XSTRU(NSTRU) + * ,IDTG + COMMON /STRU2/ DELTA0,DELTA1,QSEH(NSTRU),QSEPI(NSTRU) + * ,QVAH(NSTRU),QVAPI(NSTRU),XSE(NSTRU),XVA(NSTRU) + + DOUBLE PRECISION ERRER,VALUE + INTEGER IFLAG + + COMMON /VENLIN/ PTQ1,PTQ2,PTQ3,QMUST1,QMUST2,QMUST3 + * ,IDTABL(100) + + SAVE + EXTERNAL SDENSI,SPTQ,SSE0,SVA0,SVA1 +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'VENLNK: TAR',SNGL(TAR) + + NSTRUC = NSTRU + IF ( DEBUG ) THEN + ISH = ISH00 + ELSE + ISH = 0 + ENDIF + NEVNT = ISHOWNO +C SET RANDOM NUMBER GENERATOR STATUS + SEEDC=ISEED(2,1)+1.D9*ISEED(3,1) +C CALCULATE ENERGY IN LAB SYSTEM FOR ELASTICITY FOR VARIOUS PROJECTILES + IF ( ITYPE .EQ. 1 ) THEN +C TREAT PHOTON PROJECTILES (FROM EGS) + CALL RMMAR(RD,1,1) + IF ( RD(1) .LE. 0.5 ) THEN + ITYPE = 7 + ELSE + ITYPE = 17 + ENDIF + ELAB = CURPAR(2) + CURPAR(2) = ELAB / PAMA(ITYPE) + ELSEIF ( ITYPE .LT. 100 ) THEN +C TREAT ORDINARY PROJECTILES + ELAB = CURPAR(2) * PAMA(ITYPE) + ELSE +C TREAT NUCLEI PROJECTILES + NPROT = MOD(ITYPE,100) + NNEUT = ITYPE/100 - NPROT + ELAB = CURPAR(2) * ( PAMA(14)*NPROT + PAMA(13)*NNEUT ) + ENDIF +C SET TARGET PARAMETERS + MATARG = NINT(TAR) + IDTARG = 1120 + AMTARG = PAMA(14) + IF ( TAR. EQ. 14.D0 ) THEN + LTARG = 1 + LATARG = 7 + ELSEIF ( TAR .EQ. 16.D0 ) THEN + LTARG = 2 + LATARG = 8 + ELSEIF ( TAR .EQ. 40.D0 ) THEN + LTARG = 3 + LATARG = 18 + ELSE + WRITE(MONIOU,*) 'VENLNK: UNDEFINED TARGET TAR=',SNGL(TAR) + ENDIF + +C FOR THE CASE OF AN ARBITRARY TARGET (NOT AIR) + IF ( LTARG .GT. 3 ) THEN + MASSNR = MATARG + IF ( MASSNR .GT. 1 ) THEN + IF ( MASSNR .NE. MTAR99 ) THEN + R0 = 1.19*MASSNR**(.3333333) -1.61*MASSNR**(-.3333333) + CX = R0+FCTRMX*0.54 + RMTARG(4) = CX + CALL UTQUAF(SDENSI,NDET,XDET99,QDET99,0.,.33*CX,.66*CX,CX) + MTAR99 = MATARG + ENDIF + ELSE + RMTARG(4) = 0. + ENDIF + ENDIF + +C SET PROJECTILE PARAMETERS + IF ( ITYPE .LT. 100 ) THEN + IDPROJ = IDTABL(ITYPE) + IF ( IDPROJ .EQ. 20 .OR. IDPROJ .EQ. -20 ) THEN +C TREAT NEUTRAL KAONS (K(0)S AND K(0)L) + CALL RMMAR(RD,1,1) + IF ( RD(1) .LE. 0.5 ) THEN + IDPROJ = 230 + ELSE + IDPROJ = -230 + ENDIF + ELSEIF ( IDPROJ .EQ. 2130 ) THEN +C VENUS CANNOT TREAT LAMBDA, TAKE INSTEAD SIGMA(0)) + IDPROJ = 1230 + ELSEIF ( IDPROJ .EQ. -2130 ) THEN +C VENUS CANNOT TREAT ANTI-LAMBDA, TAKE INSTEAD ANTI-SIGMA(0)) + IDPROJ = -1230 + ENDIF +C ALL OTHER PARTICLE CODES UNCHANGED + CALL IDMASS(IDPROJ,AMPROJ) + LAPROJ = -1 + MAPROJ = 1 + PNLL = CURPAR(2)*AMPROJ + ELSE +C PROJECTILE IS NUCLEUS + IDPROJ = 1120 + CALL IDMASS(IDPROJ,AMPROJ) + LAPROJ = MOD(ITYPE,100) + MAPROJ = ITYPE/100 + PNLL = CURPAR(2)*(PAMA(14)+PAMA(13))*0.5 + ENDIF + + IF ( ABS(IDPROJ) .LT. 1000 ) THEN + IF ( ABS(IDPROJ) .EQ. 230 .OR. ABS(IDPROJ) .EQ. 130 ) THEN +C DIFFRACTIVE PROBABILITY FOR KAON PROJECTILES + WPROJ = 0.24 + ELSE +C DIFFRACTIVE PROBABILITY FOR PION PROJECTILES + WPROJ = 0.20 + ENDIF + ELSE +C DIFFRACTIVE PROBABILITY FOR BARYON PROJECTILES + WPROJ = 0.32 + ENDIF +C DIFFRACTIVE PROBABILITY FOR TARGET (ALWAYS NUCLEONS) + WTARG = 0.32 + + ENGY = SQRT( 2.*SQRT(PNLL**2+AMPROJ**2)*AMTARG+AMTARG**2 + * +AMPROJ**2 ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'VENLNK: ELAB = ',PNLL, + * ' ENGY = ',ENGY +CDH IF ( ENGY .LT. 12. ) THEN + IF ( ENGY .LT. 9.5 ) THEN + WRITE(IFMT,*) 'VENLNK: ENGY, IDPROJ=',ENGY,IDPROJ + CALL UTSTOP('VENLNK: INCIDENT ENERGY TOO SMALL ') + ENDIF + ENGYI = ENGY + PNLLI = PNLL + IF ( PNLL .LT. 1.E2 * AMPROJ ) THEN + TRM = SQRT(PNLL**2+AMPROJ**2) + ENGY = SQRT((TRM+AMTARG-PNLL)*(TRM+AMTARG+PNLL)) + ELSE + TRM = AMPROJ**2*0.5/PNLL+AMTARG + ENGY = SQRT(TRM*(2.*PNLL+TRM)) + ENDIF + D1 = ABS(PNLLI-PNLL)/PNLL + D2 = ABS(ENGYI-ENGY)/ENGY + IF ( D1 .GT. 1.E-3 .OR. D2 .GT. 1.E-3 ) THEN + IF ( ISH .GE. 0 ) THEN + CALL UTMSG('VENLNK') + WRITE(IFCH,*) '***** PNLL,PNLLI:',PNLL,PNLLI + WRITE(IFCH,*) '***** ENGY,ENGYI:',ENGY,ENGYI + CALL UTMSGF + ENDIF + ENDIF + S = ENGY**2 + SROOTI = 1./ENGY + PNLLX = UTPCM(ENGY,AMPROJ,AMTARG) + YHAHA = LOG((SQRT(PNLL**2+S)+PNLL)/ENGY) + YPJTL = LOG((SQRT(PNLL**2+AMPROJ**2)+PNLL)/AMPROJ) + IF ( ISH .GE. 91 ) WRITE(IFCH,*) 'VENLNK: YPJTL=',YPJTL + + ENGYLG = LOG(ENGY) + QMUST = QMUST1+QMUST2*ENGYLG+QMUST3*ENGYLG**2 + PTQ = PTQ1+PTQ2*ENGYLG+PTQ3*ENGYLG**2 +CDH PHARD = 0.030+0.12*(LOG10(S)-LOG10(30.**2)) + PHARD = 0.030+0.12*(LOG10(S)-2.9542425) + PHARD = MIN(1.,PHARD) + PHARD = MAX(0.030,PHARD) + +C PROJECTILE + XCUT = CUTMSQ*SROOTI + XCUT2 = XCUT**2 + IF ( ABS(IDPROJ) .GE. 1000 ) THEN +C STRUCTURE FUNCTION INTEGRAL FOR BARYONS OF PROJECTILE + IPIO = 0 + CALL UINTEG(VALUE,SSE0,0.D0,1.D0,0.D0,1.D-5,1,ERRER,IFLAG) + IF ( IFLAG .GT. 3 .AND. ISH .GT. 0 ) + * WRITE(IFCH,*) 'VENLNK: SSE0:IFLAG=',IFLAG + QSEPC = VALUE + CALL UINTEG(VALUE,SVA0,0.D0,1.D0,0.D0,1.D-5,1,ERRER,IFLAG) + IF ( IFLAG .GT. 3 .AND. ISH .GT. 0 ) + * WRITE(IFCH,*) 'VENLNK: SVA0:IFLAG=',IFLAG + QVAPC = VALUE + ELSE +C STRUCTURE FUNCTION INTEGRAL FOR MESONS OF PROJECTILE + IPIO = 1 + A0 = -5.0 + 6.6666667*XCUT2 - 0.53333333*XCUT2**2 + A1 = 5.0 - 1.875*XCUT2 + A2 = -3.3333333 + 0.26666667*XCUT2 + A3 = 1.25 + A4 = -0.2 + ROOT = SQRT(XCUT2+1.) + QSEPC = 0.9*( (1.-XCUT2*A1)*( LOG(1.+ROOT)-LOG(XCUT) ) + * - XCUT*A0 + ROOT*(A0+A1+A2+A3+A4) ) + CALL UINTEG(VALUE,SVA1,0.D0,1.D0,0.D0,1.D-5,1,ERRER,IFLAG) + IF ( IFLAG .GT. 3 .AND. ISH .GT. 0 ) + * WRITE(IFCH,*) 'VENLNK: SVA1:IFLAG=',IFLAG + QVAPC = VALUE + ENDIF + IDTG = IPIO + +C TARGET + IF ( IDTG .EQ. 1 ) THEN + IF ( ABS(IDTARG) .GE. 1000 ) THEN +C STRUCTURE FUNCTION INTEGRAL FOR BARYONS OF TARGET + IPIO = 0 + CALL UINTEG(VALUE,SSE0,0.D0,1.D0,0.D0,1.D-5,1,ERRER,IFLAG) + IF ( IFLAG .GT. 3 .AND. ISH .GT. 0 ) + * WRITE(IFCH,*) 'VENLNK: SSE0:IFLAG=',IFLAG + QSETC = VALUE + CALL UINTEG(VALUE,SVA0,0.D0,1.D0,0.D0,1.D-5,1,ERRER,IFLAG) + IF ( IFLAG .GT. 3 .AND. ISH .GT. 0 ) + * WRITE(IFCH,*) 'VENLNK: SVA0:IFLAG=',IFLAG + QVATC = VALUE + ELSE + IPIO=1 + QVATC = QVAPC + QSETC = QSEPC + ENDIF + ELSE + IF ( ABS(IDTARG) .GE. 1000 ) THEN + IPIO = 0 + QVATC = QVAPC + QSETC = QSEPC + ELSE +C STRUCTURE FUNCTION INTEGRAL FOR BARYONS OF TARGET + IPIO=1 + A0 = -5.0 + 6.6666667*XCUT2 - 0.53333333*XCUT2**2 + A1 = 5.0 - 1.875*XCUT2 + A2 = -3.3333333 + 0.26666667*XCUT2 + A3 = 1.25 + A4 = -0.2 + ROOT = SQRT(XCUT2+1.) + QSETC = 0.9*( (1.-XCUT2*A1)*( LOG(1.+ROOT)-LOG(XCUT) ) + * - XCUT*A0 + ROOT*(A0+A1+A2+A3+A4) ) + CALL UINTEG(VALUE,SVA1,0.D0,1.D0,0.D0,1.D-5,1,ERRER,IFLAG) + IF ( IFLAG .GT. 3 .AND. ISH .GT. 0 ) + * WRITE(IFCH,*) 'VENLNK: SVA1:IFLAG=',IFLAG + QVATC = VALUE + ENDIF + ENDIF + IF ( ISH .EQ. 16 .OR. DEBUG ) THEN + WRITE(IFCH,301) QVAPC, QSEPC, QVATC, QSETC + 301 FORMAT(' VENLNK: QVAPC, QSEPC, QVATC, QSETC=',4(F10.7,2X)) + ENDIF + + IF ( PROSEA .GE. 0. ) THEN + QVAPC = 1.0 + QVATC = 1.0 + QSEPC = PROSEA + QSETC = PROSEA + ENDIF + + XCUT = CUTMSS*SROOTI + XCUTAR = XCUT + B = MIN( 0.05, XCUT*500. ) + A = MIN( 0.2*B, XCUT*100. ) + PNLLLG = LOG(PNLL) + DELTA0 = EXP(-2.791922 - 0.2091742 * PNLLLG) + DELTA1 = EXP(-3.885293 - 0.2029558 * PNLLLG) + CALL UTQSEA(A,B,1.) + IF ( XCUT .LT. 0.04 ) THEN + NEND=1.+REAL(NSTRUC)*2./PI*ACOS(1.-2./PI*ACOS(1.-25.*XCUT)) + ELSE + NEND = NSTRUC + ENDIF + + IF ( ABS(IDPROJ) .GE. 1000 ) THEN + IPIO = 0 + DO 203 N = 1,NSTRUC + QSEP(N) = QSEH(N) + 203 CONTINUE + DO 2031 N = NEND,NSTRUC + QVAP(N) = QVAH(N) - DELTA0 + 2031 CONTINUE + ELSE + IPIO = 1 + DO 204 N = 1,NSTRUC + QSEP(N) = QSEPI(N) + 204 CONTINUE + DO 2041 N = NEND,NSTRUC + QVAP(N) = QVAPI(N) - DELTA1 + 2041 CONTINUE + ENDIF + CALL UTQVAL(QVAP,NEND) + + IF ( IDTG .EQ. 0 ) THEN + IF ( ABS(IDTARG) .GE. 1000 ) THEN + IPIO = 0 + DO 205 N = 1,NSTRUC + QSET(N) = QSEP(N) + QVAT(N) = QVAP(N) + 205 CONTINUE + ELSE + IPIO = 1 + DO 209 N = 1,NSTRUC + QSET(N) = QSEPI(N) + 209 CONTINUE + DO 2091 N = NEND,NSTRUC + QVAT(N) = QVAPI(N) - DELTA1 + 2091 CONTINUE + CALL UTQVAL(QVAT,NEND) + ENDIF + + ELSE + IF ( ABS(IDTARG) .GE. 1000 ) THEN + IPIO = 0 + DO 210 N = 1,NSTRUC + QSET(N) = QSEH(N) + 210 CONTINUE + DO 2101 N = NEND,NSTRUC + QVAT(N) = QVAH(N) - DELTA0 + 2101 CONTINUE + CALL UTQVAL(QVAT,NEND) + + ELSE + IPIO = 1 + DO 216 N = 1,NSTRUC + QSET(N) = QSEP(N) + QVAT(N) = QVAP(N) + 216 CONTINUE + ENDIF + ENDIF + + IF ( ISH .EQ. 21 ) THEN + CALL UTHSEA + CALL UTSTOP(' VENLNK: ') + ENDIF + + QPTHMX = 0.5/PTH**2-PTH**2/(2.*(PTH**2+PTMX**2)**2) + IF ( IOPTQ .EQ. 2 ) THEN + QPTQMX = 1. - EXP((-PI)*PTMX**2/(4.*PTQ**2) ) + ELSEIF ( IOPTQ .EQ. 3 ) THEN + QPTQMX = 1. - PTQ**2/(PTQ**2+PTMX**2) + ELSE + CX = PTMX + CALL UTQUAF(SPTQ,NPTQ,XPTQ,QPTQ,0.,.33*CX,.66*CX,CX) + ENDIF + + SIGPPI = -1.0 +C CALCULATE ENERGY DEPENDENT CROSS-SECTION FOR BARYONS + CALL RACPRO('GRI',QMUST,NPRBMS,PRBMS) + IF ( ABS(IDPROJ) .LE. 120 .OR. ABS(IDPROJ) .EQ. 220 ) THEN +C CROSS-SECTION FOR PIONS (OR ETA FOR PHOTONS FROM EGS) + SIGPPI = SIGPPI * 0.6667 + ELSEIF ( ABS(IDPROJ) .EQ. 130 .OR. ABS(IDPROJ) .EQ. 230 ) THEN +C CROSS-SECTION FOR KAONS + SIGPPI = SIGPPI * 0.5541 + ENDIF + + MASSNR = MAPROJ + RMPROJ = 0. + IF ( MASSNR .GT. 1 ) THEN + R0 = 1.19*MASSNR**(.3333333) -1.61*MASSNR**(-.3333333) + CX = R0+FCTRMX*0.54 + RMPROJ = CX + CALL UTQUAF(SDENSI,NDEP,XDEP,QDEP,0.,.33*CX,.66*CX,CX) + ENDIF + + IF ( IDPM .EQ. 1 ) THEN + QSEPC = 0. + QSETC = 0. + ENDIF + BMAX = RMPROJ+RMTARG(LTARG) + + IF ( ISH .GE. 91 ) WRITE(IFCH,*) 'VENLNK: AVENUS IS NOW CALLED' + CALL AVENUS + +C NOW BRING PARTICLES TO CORSIKA STACK + CALL VSTORE + + IF ( ISH .GE. 91 ) WRITE(IFCH,*) 'VENLNK: (EXIT)' + RETURN + END +*CMZ : 11/07/2000 10.08.31 by D. HECK IK3 FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 21/11/96 +C======================================================================= + + SUBROUTINE VENSIG(ELAB,ITYPV) + +C----------------------------------------------------------------------- +C VEN(US) SIG(MAS) +C +C CALCULATES INELASTIC HADRON-AIR CROSS-SECTIONS FOR VENUS MODEL +C NUCLEUS-AIR CROSS-SECTIONS ARE DETERMINED BY P-P CROSS-SECTIONS AND +C THE CORSIKA GLAUBER TABLES (SEE BOX2) +C THIS SUBROUTINE IS CALLED FROM BOX2. +C ARGUMENTS: +C ELAB = LABORATORY ENERGY (IN GEV) +C ITYPV = HADRON TYPE: 1 = NUCLEON, 2 = PION, 3 = KAON +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEEP,VENSSG. + COMMON /VENSSG/ FRNVKL,FRNVPIL,FRNVPL,FRNOVKL,FRNOVPIL,FRNOVPL, + * SGVKL,SGVPIL,SGVPL,SVPPL + DOUBLE PRECISION FRNVKL(11), FRNVPIL(11), FRNVPL(11), + * FRNOVKL(11),FRNOVPIL(11),FRNOVPL(11), + * SGVKL(11),SGVPIL(11),SGVPL(11),SVPPL(11) +*KEND. + + DOUBLE PRECISION DELTAE,ELAB,SECT,WK(3),YE + INTEGER I,ITYPV,JE + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'VENSIG: ELAB=',SNGL(ELAB), + * ' ITYPV=',ITYPV + +C DETERMINE ENERGY INTERVAL FOR INTERPOLATION + YE = DLOG10(ELAB) + IF ( YE .LT. 1.D0 ) YE = 1.D0 + JE = INT(YE) + IF ( JE .GT. 9 ) JE = 9 + DELTAE = YE - JE + WK(3) = DELTAE * (DELTAE-1.D0) * .5D0 + WK(1) = 1.D0 - DELTAE + WK(3) + WK(2) = DELTAE - 2.D0 * WK(3) + + IF ( ITYPV .EQ. 1 ) THEN +C FOR BARYON PROJECTILES + SECT = 0.D0 + DO 16 I = 1,3 + SECT = SECT + SGVPL(JE+I-1)*WK(I) + 16 CONTINUE + SIGAIR = EXP(SECT) + SECT = 0.D0 + DO 17 I = 1,3 + SECT = SECT + FRNVPL(JE+I-1)*WK(I) + 17 CONTINUE + FRACTN = EXP(SECT) + SECT = 0.D0 + DO 18 I = 1,3 + SECT = SECT + FRNOVPL(JE+I-1)*WK(I) + 18 CONTINUE + FRCTNO = EXP(SECT) + SIGMA = 0.D0 + + ELSEIF ( ITYPV .EQ. 2 ) THEN +C FOR PION PROJECTILES + SECT = 0.D0 + DO 26 I = 1,3 + SECT = SECT + SGVPIL(JE+I-1)*WK(I) + 26 CONTINUE + SIGAIR = EXP(SECT) + SECT = 0.D0 + DO 27 I = 1,3 + SECT = SECT + FRNVPIL(JE+I-1)*WK(I) + 27 CONTINUE + FRACTN = EXP(SECT) + SECT = 0.D0 + DO 28 I = 1,3 + SECT = SECT + FRNOVPIL(JE+I-1)*WK(I) + 28 CONTINUE + FRCTNO = EXP(SECT) + SIGMA = 0.D0 + + ELSEIF ( ITYPV .EQ. 3 ) THEN +C FOR KAON PROJECTILES + SECT = 0.D0 + DO 36 I = 1,3 + SECT = SECT + SGVKL(JE+I-1)*WK(I) + 36 CONTINUE + SIGAIR = EXP(SECT) + SECT = 0.D0 + DO 37 I = 1,3 + SECT = SECT + FRNVKL(JE+I-1)*WK(I) + 37 CONTINUE + FRACTN = EXP(SECT) + SECT = 0.D0 + DO 38 I = 1,3 + SECT = SECT + FRNOVKL(JE+I-1)*WK(I) + 38 CONTINUE + FRCTNO = EXP(SECT) + SIGMA = 0.D0 + + ELSEIF ( ITYPV .GE. 100 ) THEN +C FOR NUCLEUS PROJECTILES DETERMINE ONLY NN CROSS-SECTION + SIGAIR = 0.D0 + FRACTN = 0.D0 + FRCTNO = 0.D0 + SIGMA = 0.D0 + DO 47 I = 1,3 + SIGMA = SIGMA + SVPPL(JE+I-1)*WK(I) + 47 CONTINUE + SIGMA = EXP(SIGMA) + + ELSE + WRITE(MONIOU,444) (CURPAR(I),I=1,9) + 444 FORMAT(' VENSIG: CURPAR=',1P,9E10.3) + WRITE(MONIOU,*) 'VENSIG: ILLEGAL PROJECTILE TYP =',ITYPV + STOP + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'VENSIG: SIGMA=',SNGL(SIGMA), + * ' SIGAIR=',SNGL(SIGAIR) + + RETURN + END +*CMZ : 11/07/2000 10.08.31 by D. HECK IK3 FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 21/11/96 +C======================================================================= + + SUBROUTINE VENSIGINI + +C----------------------------------------------------------------------- +C VEN(US) SIG(MAS) INI(TIALIZATION) +C +C INITIALIZES INELASTIC CROSS-SECTION +C THIS SUBROUTINE IS CALLED FROM START. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,VENSSG. + COMMON /VENSSG/ FRNVKL,FRNVPIL,FRNVPL,FRNOVKL,FRNOVPIL,FRNOVPL, + * SGVKL,SGVPIL,SGVPL,SVPPL + DOUBLE PRECISION FRNVKL(11), FRNVPIL(11), FRNVPL(11), + * FRNOVKL(11),FRNOVPIL(11),FRNOVPL(11), + * SGVKL(11),SGVPIL(11),SGVPL(11),SVPPL(11) +*KEND. + + DOUBLE PRECISION AI,ELAB(11),FRNVK(11),FRNVPI(11),FRNVP(11), + * FRNOVK(11),FRNOVPI(11),FRNOVP(11), + * SIGP(11),SIGPI(11),SIGK(11), SPP(11) + INTEGER I + SAVE +C THE CROSS-SECTION TABLES START AT ELAB=10., 100., 1000., .... +C BUT AFTERWARDS IS USED ONLY ABOVE 80 GEV +C PROTON AIR INELASTIC CROSS-SECTION + DATA SIGP /0.241E+03, + * 0.264E+03,0.287E+03,0.311E+03,0.334E+03,0.358E+03, + * 0.381E+03,0.405E+03,0.429E+03,0.454E+03,0.478E+03/ +C PION AIR INELASTIC CROSS-SECTION + DATA SIGPI/0.182E+03, + * 0.201E+03,0.222E+03,0.242E+03,0.263E+03,0.284E+03, + * 0.303E+03,0.323E+03,0.346E+03,0.363E+03,0.386E+03/ +C KAON AIR INELASTIC CROSS-SECTION + DATA SIGK /0.157E+03, + * 0.176E+03,0.195E+03,0.215E+03,0.234E+03,0.253E+03, + * 0.270E+03,0.290E+03,0.311E+03,0.328E+03,0.348E+03/ +C PROTON NITROGEN INELASTIC CROSS-SECTION + DATA FRNVP /0.184E+03, + * 0.202E+03,0.219E+03,0.239E+03,0.255E+03,0.276E+03, + * 0.289E+03,0.311E+03,0.329E+03,0.349E+03,0.368E+03/ +C PION NITROGEN INELASTIC CROSS-SECTION + DATA FRNVPI/0.137E+03, + * 0.153E+03,0.169E+03,0.185E+03,0.201E+03,0.217E+03, + * 0.232E+03,0.246E+03,0.265E+03,0.278E+03,0.296E+03/ +C KAON NITROGEN INELASTIC CROSS-SECTION + DATA FRNVK /0.119E+03, + * 0.134E+03,0.149E+03,0.164E+03,0.179E+03,0.194E+03, + * 0.207E+03,0.221E+03,0.239E+03,0.251E+03,0.266E+03/ +C PROTON NITROGEN+OXYGEN INELASTIC CROSS-SECTION + DATA FRNOVP /0.238E+03, + * 0.261E+03,0.284E+03,0.309E+03,0.331E+03,0.357E+03, + * 0.375E+03,0.401E+03,0.424E+03,0.450E+03,0.474E+03/ +C PION NITROGEN+OXYGEN INELASTIC CROSS-SECTION + DATA FRNOVPI/0.178E+03, + * 0.199E+03,0.220E+03,0.240E+03,0.261E+03,0.281E+03, + * 0.300E+03,0.319E+03,0.343E+03,0.360E+03,0.382E+03/ +C KAON NITROGEN+OXYGEN INELASTIC CROSS-SECTION + DATA FRNOVK /0.157E+03, + * 0.175E+03,0.193E+03,0.212E+03,0.232E+03,0.251E+03, + * 0.268E+03,0.287E+03,0.308E+03,0.325E+03,0.345E+03/ +C PROTON PROTON INELASTIC CROSS-SECTION +* DATA SPP / 24.705D0, +* * 28.749D0,33.001D0,37.675D0,42.785D0,48.348D0, +* * 54.381D0,60.897D0,67.905D0,75.415D0,83.433D0 / +C PROTON PROTON INELASTIC CROSS-SECTION (INCLUDING DIFFRACTION) +C (MODIFIED APR 2ND, 1997) + DATA SPP / 27.444D0, + * 31.599D0,36.382D0,41.693D0,47.555D0,54.000D0, + * 61.059D0,68.756D0,77.113D0,86.146D0,95.870D0 / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'VENSIGINI: START' + +C FORM LOGARITH OF THE CROSS-SECTIONS FOR BETTER INTERPOLATION + DO 10 I = 1,11 + SGVPL(I) = LOG(SIGP(I)) + SGVPIL(I) = LOG(SIGPI(I)) + SGVKL(I) = LOG(SIGK(I)) + FRNVKL(I) = LOG(FRNVK(I)) + FRNVPIL(I) = LOG(FRNVPI(I)) + FRNVPL(I) = LOG(FRNVP(I)) + FRNOVKL(I) = LOG(FRNOVK(I)) + FRNOVPIL(I) = LOG(FRNOVPI(I)) + FRNOVPL(I) = LOG(FRNOVP(I)) + SVPPL(I) = LOG(SPP(I)) + 10 CONTINUE + IF ( DEBUG ) THEN + WRITE(MDEBUG,25) + 25 FORMAT(' LOGARITHMS OF THE INELASTIC CROSS-SECTIONS (MBARN)'/ + * ' ELAB(GEV) SIG(P,P) ', + * 'SIG(P,AIR) SG(PI,AIR) SIG(K,AIR)') + DO 30 I = 1,11 + AI = FLOAT(I) + ELAB(I) = 10.D0**AI + WRITE(MDEBUG,26) ELAB(I),SVPPL(I), + * SGVPL(I),SGVPIL(I),SGVKL(I) + 26 FORMAT(1X,1P,E9.3,4(1X,E10.4)) + 30 CONTINUE + WRITE(MDEBUG,*) 'VENSIGINI: END' + ENDIF + + RETURN + END +*CMZ : 28/02/2002 12.36.16 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE VSTORE + +C----------------------------------------------------------------------- +C V(ENUS PARTICLES) STORE (INTO CORSIKA STACK) +C +C STORES VENUS OUTPUT PARTICLES INTO CORSIKA STACK +C THIS SUBROUTINE IS CALLED FROM VENLNK. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,ELADPM. + COMMON /ELADPM/ ELMEAN,ELMEAA,IELDPM,IELDPA + DOUBLE PRECISION ELMEAN(40),ELMEAA(40) + INTEGER IELDPM(40,13),IELDPA(40,13) +*KEEP,ELASTY. + COMMON /ELASTY/ ELAST + DOUBLE PRECISION ELAST +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,ISTA. + COMMON /ISTA/ IFINET,IFINNU,IFINKA,IFINPI,IFINHY + INTEGER IFINET,IFINNU,IFINKA,IFINPI,IFINHY +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEND. + + PARAMETER (KOLLMX=2500) + PARAMETER (MXPTL=70000) + PARAMETER (MXSTR=3000) + PARAMETER (NDEP=129) + PARAMETER (NDET=129) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CEVT/ BIMEVT,COLEVT,EGYEVT,PHIEVT,PMXEVT + * ,KOLEVT,NEVT,NPJEVT,NTGEVT + COMMON /COL/ BIMP,BMAX,COORD(4,KOLLMX),DISTCE(KOLLMX) + * ,QDEP(NDEP),QDET14(NDET),QDET16(NDET),QDET40(NDET) + * ,QDET99(NDET),RMPROJ,RMTARG(4),XDEP(NDEP) + * ,XDET14(NDET),XDET16(NDET),XDET40(NDET) + * ,XDET99(NDET) + * ,KOLL,LTARG,NORD(KOLLMX),NPROJ,NRPROJ(KOLLMX) + * ,NRTARG(KOLLMX),NTARG + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /CSTR/ PSTR(5,MXSTR),ROTSTR(3,MXSTR),XORSTR(4,MXSTR) + * ,ICSTR(4,MXSTR),IORSTR(MXSTR),IRLSTR(MXSTR),NSTR + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /PARO3/ ASUHAX(7),ASUHAY(7),OMEGA,SIGPPD,SIGPPE,UENTRO + * ,IWZZZZ + + DOUBLE PRECISION EA,ELASTI,EMAX,COSTET,PHIV,PL2,PT2,PTM +CC DOUBLE PRECISION GAMMAX + DOUBLE PRECISION PFRX(60),PFRY(60) + INTEGER ITYP(60),NRPTLA(MXPTL) + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'VSTORE:' + +C NUMBER OF SPECTATORS OF REMAINING NUCLEUS IS NREST + NREST = ITYPE/100 - NPJEVT + IREST = ITYPE + NNEW = 0 + INEW = 0 + ETOT = 0. + ELASTI = 0. + NZNEW = 0 + NNNEW = 0 + KNEW = 0 + + LEVT = 1 + LPTL = 3 + NPTLS = 0 + DO 1 I = 1,NPTL + NRPTLA(I) = -999 + IF ( ISTPTL(I) .GT. ISTMAX ) GOTO 1 + NPTLS = NPTLS+1 + NRPTLA(I) = NPTLS + 1 CONTINUE + +C EVENT VARIABLES: +C LEVT................... RECORD LABEL (LEVT=1) +C NREVT.................. EVENT NUMBER +C NPTLS ................. NUMBER OF (STORED!) PARTICLES PER EVENT +C BIMEVT ................ IMPACT PARAMETER +C KOLEVT,COLEVT ......... REAL/EFFECTIVE # OF COLLISIONS +C PMXEVT ................ REFERENCE MOMENTUM +C EGYEVT ................ PP CM ENERGY (HAD) OR STRING ENERGY (STR) +C NPJEVT,NTGEVT ......... # OF PROJ/TARG PARTICIPANTS + + GNU = KOLEVT + GNU = COLEVT +CC GAMMAX = 0.D0 + EMAX = 0.D0 + +C PARTICLE LOOP + DO 5 I = 1,NPTL + IF ( NRPTLA(I) .LE. 0 ) GOTO 5 + +C PARTICLE VARIABLES: +C LPTL ......... RECORD LABEL (LPTL=3) +C NREVT ........ EVENT NUMBER +C NRPTL ........ PARTICLE NUMBER +C I ............ ORIGINAL PTL NUMBER +C IDPTL ........ PARTICLE ID +C PPTL ......... 5-MOMENTUM (PX,PY,PZ,EN,MASS) IN LAB +C IOPTL ........ ORIGIN (-999:PARENT NOT STORED, -1,0:NO PARENT) +C JOPTL ........ ORIGIN (SECOND PARENT) +C ISTPTL ....... STABLE (=0) OR NOT (=1) +C XORPTL ....... SPACE-TIME POINT (X,Y,Z,T) ON PTL TRACK (PP-CM) +C TIVPTL ....... TIME INTERVAL OF EXISTENCE +C NQJPTL ....... QUARK NUMBERS OF JETS + +C ELIMINATE TARGET SPECTATORS + IF ( PPTL(3,I) .EQ. 0. ) GOTO 5 + +C ELIMINATE BACKWARD GOING PARTICLES + IF ( .NOT. LLONGI .AND. PPTL(3,I) .LT. 0. ) GOTO 5 +C CONVERT PARTICLE CODE VEN(US) ---> C(O)RS(IKA) +C MOST FREQUENT PARTICLES COME FIRST + KODVEN = IDPTL(I) +C MESONS + IF ( KODVEN .EQ. 110 ) THEN + KODCRS = 7 + ELSEIF ( KODVEN .EQ. 120 ) THEN + KODCRS = 8 + ELSEIF ( KODVEN .EQ. -120 ) THEN + KODCRS = 9 + ELSEIF ( KODVEN .EQ. 220 ) THEN + KODCRS = 17 +C NUCLEONS + ELSEIF ( KODVEN .EQ. 1220 ) THEN + KODCRS = 13 + ELSEIF ( KODVEN .EQ. 1120 ) THEN + KODCRS = 14 + ELSEIF ( KODVEN .EQ. -1120 ) THEN + KODCRS = 15 + ELSEIF ( KODVEN .EQ. -1220 ) THEN + KODCRS = 25 +C STRANGE MESONS + ELSEIF ( KODVEN .EQ. -20 ) THEN + KODCRS = 10 + ELSEIF ( KODVEN .EQ. 130 ) THEN + KODCRS = 11 + ELSEIF ( KODVEN .EQ. -130 ) THEN + KODCRS = 12 + ELSEIF ( KODVEN .EQ. 20 ) THEN + KODCRS = 16 +C STRANGE BARYONS + ELSEIF ( KODVEN .EQ. 2130 ) THEN + KODCRS = 18 + ELSEIF ( KODVEN .EQ. 1130 ) THEN + KODCRS = 19 + ELSEIF ( KODVEN .EQ. 1230 ) THEN + KODCRS = 20 + ELSEIF ( KODVEN .EQ. 2230 ) THEN + KODCRS = 21 + ELSEIF ( KODVEN .EQ. 1330 ) THEN + KODCRS = 22 + ELSEIF ( KODVEN .EQ. 2330 ) THEN + KODCRS = 23 + ELSEIF ( KODVEN .EQ. 3331 ) THEN + KODCRS = 24 + ELSEIF ( KODVEN .EQ. -2130 ) THEN + KODCRS = 26 + ELSEIF ( KODVEN .EQ. -1130 ) THEN + KODCRS = 27 + ELSEIF ( KODVEN .EQ. -1230 ) THEN + KODCRS = 28 + ELSEIF ( KODVEN .EQ. -2230 ) THEN + KODCRS = 29 + ELSEIF ( KODVEN .EQ. -1330 ) THEN + KODCRS = 30 + ELSEIF ( KODVEN .EQ. -2330 ) THEN + KODCRS = 31 + ELSEIF ( KODVEN .EQ. -3331 ) THEN + KODCRS = 32 +C LEPTONS + ELSEIF ( KODVEN .EQ. 10 ) THEN + KODCRS = 1 + ELSEIF ( KODVEN .EQ. -12 ) THEN + KODCRS = 2 + ELSEIF ( KODVEN .EQ. 12 ) THEN + KODCRS = 3 + ELSEIF ( KODVEN .EQ. -14 ) THEN + KODCRS = 5 + ELSEIF ( KODVEN .EQ. 14 ) THEN + KODCRS = 6 +C NEUTRINOS ARE SKIPPED + ELSEIF ( KODVEN .EQ. 11 ) THEN + GOTO 55 + ELSEIF ( KODVEN .EQ. -11 ) THEN + GOTO 55 + ELSEIF ( KODVEN .EQ. 13 ) THEN + GOTO 55 + ELSEIF ( KODVEN .EQ. -13 ) THEN + GOTO 55 + ELSE + WRITE(MONIOU,*)'VSTORE: UNKNOWN PARTICLE CODE IDPTL=',IDPTL(I) + GOTO 5 + ENDIF + SECPAR(1) = KODCRS + +C ELIMINATE BACKWARD GOING PARTICLES + IF ( LLONGI .AND. PPTL(3,I) .LT. 0. ) GOTO 56 + + IF ( KODCRS .NE. 1 .AND. KODCRS .LE. 65 ) THEN +C ORDINARY SECONDARY PARTICLES + SECPAR(2) = PPTL(4,I)/PAMA(KODCRS) +C LOOK FOR SPECTATOR NUCLEONS + IF ( KODCRS .EQ. 13 .OR. KODCRS .EQ. 14 ) THEN +C ELIMINATE TARGET SPECTATORS + IF ( SECPAR(2) .LE. 1.002D0 ) GOTO 5 +C TREAT PROJECTILE SPECTATORS + IF ( SECPAR(2) .GT. 0.999D0*GAMMA .AND. + * SECPAR(2) .LT. 1.001D0*GAMMA .AND. + * PPTL(1,I).EQ.0. .AND. PPTL(2,I).EQ.0. ) THEN + IF ( NFRAGM .NE. 0 ) THEN +C COMPOSE PROJECTILE SPECTATORS TO REMAINING NUCLEUS + NREST = NREST - 1 + NNEW = NNEW + 1 + IF ( KODCRS .EQ. 14 ) THEN + INEW = INEW + 101 + IREST = IREST - 101 + ELSEIF ( KODCRS .EQ. 13 ) THEN + INEW = INEW + 100 + IREST = IREST - 100 + ENDIF + GOTO 5 + ENDIF +C DISREGARD PROJECTILE SPECTATORS FOR ELASTICITY + GOTO 7 + ENDIF + ENDIF + +CC IF ( SECPAR(2) .GT. GAMMAX ) THEN +CC GAMMAX = SECPAR(2) +C CALCULATE ELASTICITY FROM ENERGY OF FASTEST PARTICLE (LEADER) +CC ELASTI = GAMMAX * PAMA(KODCRS) / ELAB +CC ENDIF + IF ( SECPAR(2)*PAMA(KODCRS) .GT. EMAX ) THEN + EMAX = SECPAR(2)*PAMA(KODCRS) +C CALCULATE ELASTICITY FROM MOST ENERGETIC PARTICLE (LEADER) + ELASTI = EMAX * MAPROJ / ELAB + ENDIF + ELSE +C GAMMAS AND NEUTRINOS + SECPAR(2) = PPTL(4,I) + ENDIF + +C COUNTER FOR ENERGY-MULTIPLICITY MATRIX + MSMM = MSMM + 1 + +C DETERMINE ANGLES FROM LONGITUDINAL AND TRANSVERSAL MOMENTA + 7 CONTINUE + PT2 = DBLE(PPTL(1,I))**2 + DBLE(PPTL(2,I))**2 + PL2 = DBLE(PPTL(3,I))**2 + + IF ( PL2+PT2 .LE. 0.D0 ) THEN + COSTET = 0.D0 + ELSE + COSTET = PPTL(3,I) / SQRT(PL2+PT2) + ENDIF + COSTET = MAX( MIN(COSTET, 1.D0), -1.D0 ) + IF ( PPTL(1,I) .NE. 0. .OR. PPTL(2,I) .NE. 0. ) THEN + PHIV = ATAN2( DBLE(PPTL(2,I)), DBLE(PPTL(1,I)) ) + ELSE + PHIV = 0.D0 + ENDIF + + +C COUNTERS FOR FIRST INTERACTION + IF ( FIRSTI ) THEN + IF ( SECPAR(1) .EQ. 7.D0 .OR. SECPAR(1) .EQ. 8.D0 + * .OR. SECPAR(1) .EQ. 9.D0 ) THEN + IFINPI = IFINPI + 1 + ELSEIF ( SECPAR(1) .EQ. 13.D0 .OR. SECPAR(1) .EQ. 14.D0 + * .OR. SECPAR(1) .EQ. 15.D0 .OR. SECPAR(1) .EQ. 25.D0 ) THEN + IFINNU = IFINNU + 1 + ELSEIF ( SECPAR(1) .EQ. 10.D0 .OR. SECPAR(1) .EQ. 11.D0 + * .OR. SECPAR(1) .EQ. 12.D0 .OR. SECPAR(1) .EQ. 16.D0 ) THEN + IFINKA = IFINKA + 1 + ELSEIF ( SECPAR(1) .EQ. 17.D0 ) THEN + IFINET = IFINET + 1 + ELSEIF ((SECPAR(1) .GE. 18.D0 .AND. SECPAR(1) .LE. 24.D0) + * .OR. (SECPAR(1) .GE. 26.D0 .AND. SECPAR(1) .LE. 32.D0))THEN + IFINHY = IFINHY + 1 + ENDIF + ENDIF + + ETOT = ETOT + PPTL(4,I) + CALL ADDANG( COSTHE,PHI, COSTET,PHIV, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GE. C(29) ) THEN + CALL TSTACK + GOTO 5 + ELSE + GOTO 56 + ENDIF + + 55 IF ( LLONGI ) THEN +C ADD NEUTRINO ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,9) = DLONG(LHEIGH,9) + PPTL(4,I) + ENDIF + GOTO 5 + + 56 IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( KODCRS .LE. 3 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + PPTL(4,I) + ELSEIF ( KODCRS .EQ. 5 .OR. KODCRS .EQ. 6 ) THEN + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + PPTL(4,I) + ELSE + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + PPTL(4,I) + * - RESTMS(KODCRS) + ENDIF + ENDIF + + 5 CONTINUE + + IF ( DEBUG ) WRITE(MDEBUG,*) 'VSTORE: NTGEVT,ETOT =',NTGEVT,ETOT + + IF ( NFRAGM .NE. 0 .AND. INEW .GT. 0 ) THEN +C TREAT REMAINING NUCLEUS + IF ( DEBUG ) WRITE(MDEBUG,150) INEW,(CURPAR(I),I=2,8) + 150 FORMAT(' VSTORE: REMNNT=',1P,I10,7E10.3) + SECPAR(2) = CURPAR(2) + SECPAR(3) = CURPAR(3) + SECPAR(4) = CURPAR(4) + + IF ( INEW .EQ. 100 ) THEN +C REMAINING NUCLEUS IS SINGLE NEUTRON + SECPAR(1) = 13.D0 + CALL TSTACK + ETOT = ETOT + SECPAR(2) * PAMA(13) + GOTO 140 + + ELSEIF ( INEW .EQ. 101 ) THEN +C REMAINING NUCLEUS IS SINGLE PROTON + SECPAR(1) = 14.D0 + CALL TSTACK + ETOT = ETOT + SECPAR(2) * PAMA(14) + GOTO 140 + + ELSEIF ( NFRAGM .GE. 2 ) THEN +C REMAINING NUCLEUS IS EVAPORATING NUCLEONS AND ALPHA PARTICLES + NZNEW = MOD(INEW,100) + NNNEW = INEW/100 - NZNEW + JFIN = 0 + CALL VAPOR(MAPROJ,INEW,JFIN,ITYP,PFRX,PFRY) + IF ( JFIN .EQ. 0 ) GOTO 139 +C LOOP TO TREAT THE REMANENTS OF THE DESINTEGRATED FRAGMENT + KNEW = 0 + DO 135 J = 1,JFIN + EA = GAMMA * PAMA(ITYP(J)) + IF (DEBUG) WRITE(MDEBUG,*) 'VSTORE: J,ITYP,EA=',J,ITYP(J),EA +C MOMENTA SQUARED + PTM = EA**2 - PAMA(ITYP(J))**2 + PT2 = PFRX(J)**2 + PFRY(J)**2 + IF ( PT2 .GE. PTM ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'VSTORE: PT REJECT PARTICLE',J + GOTO 135 + ENDIF + IF ( PTM .GT. 0.D0 ) THEN + COSTET = SQRT( 1.D0 - PT2/PTM ) + ELSE + COSTET = 1.D0 + ENDIF + IF ( PFRX(J) .NE. 0.D0 .OR. PFRY(J) .NE. 0.D0 ) THEN + PHIV = ATAN2( PFRY(J), PFRX(J) ) + ELSE + PHIV = 0.D0 + ENDIF + CALL ADDANG( COSTHE,PHI, COSTET,PHIV, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GE. C(29) ) THEN + IF ( J .LT. JFIN ) THEN + SECPAR(1) = ITYP(J) + CALL TSTACK + ELSE + KNEW = ITYP(JFIN) + ENDIF + ELSE + IF(DEBUG)WRITE(MDEBUG,*) 'VSTORE: ANGLE REJECT PARTICLE',J + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + EA + ENDIF + ENDIF + 135 CONTINUE + + ELSEIF ( NFRAGM .EQ. 1 ) THEN +C REMAINING NUCLEUS IS ONE FRAGMENT + NZNEW = MOD(INEW,100) + NNNEW = INEW/100 - NZNEW + KNEW = INEW + ENDIF + + IF ( KNEW/100 .EQ. 5 ) THEN +C REMAINING NUCLEUS: MASS 5 CANNOT BE TREATED IN BOX2 + IF ( MOD(KNEW,100) .GE. 3 ) THEN +C MASS 5: SPLIT OFF ONE PROTON + SECPAR(1) = 14.D0 + CALL TSTACK + KNEW = KNEW - 101 + ELSE +C MASS 5: SPLIT OFF ONE NEUTRON + SECPAR(1) = 13.D0 + CALL TSTACK + KNEW = KNEW - 100 + ENDIF + ELSEIF ( KNEW/100 .EQ. 8 ) THEN +C REMAINING NUCLEUS: MASS 8 CANNOT BE TREATED IN BOX2 + IF ( MOD(KNEW,100) .GE. 5 ) THEN +C MASS 8: SPLIT OFF ONE PROTON + SECPAR(1) = 14.D0 + CALL TSTACK + KNEW = KNEW - 101 + ELSEIF ( MOD(KNEW,100) .LE. 3 ) THEN +C MASS 8: SPLIT OFF ONE NEUTRON + SECPAR(1) = 13.D0 + CALL TSTACK + KNEW = KNEW - 100 + ELSE +C MASS 8: SPLIT OFF ONE ALPHA PARTICLE + SECPAR(1) = 402.D0 + CALL TSTACK + KNEW = KNEW - 402 + ENDIF + ENDIF + + SECPAR(1) = KNEW + CALL TSTACK + ENDIF + + 139 ETOT = ETOT + SECPAR(2)*(PAMA(13)*NNNEW + PAMA(14)*NZNEW) + 140 CONTINUE + IF ( DEBUG ) WRITE(MDEBUG,*) 'VSTORE: ELASTI,ETOT,ELAB=', + * SNGL(ELASTI),ETOT,ELAB + +C FILL ELASTICITY IN MATRICES + MEL = MIN ( 1.D0+10.D0* MAX( 0.D0, ELASTI ) , 11.D0 ) + MEN = MIN ( 4.D0+ 3.D0*LOG10(MAX( .1D0, EKINL )), 40.D0 ) + IELDPM(MEN,MEL) = IELDPM(MEN,MEL) + 1 + IELDPA(MEN,MEL) = IELDPA(MEN,MEL) + 1 + IF ( ELASTI .LT. 1.D0 ) THEN + ELMEAN(MEN) = ELMEAN(MEN) + ELASTI + ELMEAA(MEN) = ELMEAA(MEN) + ELASTI + ENDIF + + IF ( FIRSTI ) THEN + TARG1I = TAR + SIG1I = SIGAIR + ELAST = ELASTI + FIRSTI = .FALSE. + ENDIF + + RETURN + END +*CMZ : 28/02/2002 12.41.48 by D. HECK IK FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE CERENK(STEPCR,UMEAN,VMEAN,WMEAN,EBEG,EEND,XBEG,YBEG, + * ZBEG,XEND,YEND,ZEND,TBEG,TEND,AMASS,CHARGE,WTTHIN,CTEA) + +C----------------------------------------------------------------------- +C C(H)ERENK(OV RADIATION FROM ALL KINDS OF CHARGED PARTICLES) +C +C CREATION OF CHERENKOV PHOTONS ALONG THE TRACKS OF CHARGED PARTICLES. +C CHERENKOV RADIATION IS ONLY CALCULATED FOR THE LOWEST OBSERVATION +C LEVEL. ALL PARAMETERS OF THE PARTICLE TRACK STEP ARE PASSED AS +C ARGUMENTS. +C THIS SUBROUTINE IS CALLED FROM ELECTR AND UPDATE.. +C ARGUMENTS (ALL DOUBLE PRECISION): +C STEPCR = STEP LENGTH FOR THE PARTICLE [CM] +C UMEAN = DIRECTION COSINE TO X AXIS (STEP AVERAGE) +C VMEAN = DIRECTION COSINE TO Y AXIS (STEP AVERAGE) +C WMEAN = DIRECTION COSINE TO -Z AXIS (STEP AVERAGE) +C EBEG = ENERGY [GEV] AT BEGINNING OF STEP +C EEND = ENERGY [GEV] AT END OF STEP +C XBEG = X POSITION [CM] AT BEGINNING OF STEP +C XEND = X POSITION [CM] AT END OF STEP +C YBEG = Y POSITION [CM] AT BEGINNING OF STEP +C YEND = Y POSITION [CM] AT END OF STEP +C ZBEG = Z POSITION [CM] AT BEGINNING OF STEP +C ZEND = Z POSITION [CM] AT END OF STEP +C AMASS = PARTICLE MASS [GEV/C**2] +C CHARGE = CHARGE NUMBER (OR NEGATIVE - WE NEED ONLY THE SQUARE OF IT) +C WTTHIN = PARTICLE WEIGHT FOR THINNING VERSION, ELSE 1. +C CTEA = COSINE OF EARTH ANGLE IN CURVED VERSION, ELSE 1. +C +C THIS IMPLEMENTATION WRITTEN BY +C K. BERNLOEHR MPIK HEIDELBERG (1998) +C THIS SUBROUTINE IS BASED IN PART ON THE FORMER CHERENKOV ROUTINES +C CERENE AND CERENH ORIGINALLY WRITTEN BY +C M. ROZANSKA UNIVERSITY OF KRAKOW +C S. MARTINEZ UNIVERSITY OF MADRID +C F. ARQUEROS UNIVERSITY OF MADRID +C AND SUBSEQUENTLY MODIFIED BY +C D. HECK IK3 FZK KARLSRUHE +C R. ATTALLAH UNIVERSITY OF PERPIGNAN +C +C EXTERNAL IACT (IMAGING ATMOSPHERIC CHERENKOV TECHNIQUE) FUNCTIONS +C FOR COLLECTING PHOTON BUNCHES AT ARBITRARY TELESCOPE LOCATIONS +C WRITTEN (IN C) BY +C K. BERNLOEHR MPIK HEIDELBERG (1997) +C AND AVAILABLE SEPARATELY. +C THE SAME APPLIES TO FUNCTIONS FOR TABULATED ATMOSPHERIC MODELS AND +C FUNCTIONS TO ACCOUNT FOR THE ATMOSPHERIC REFRACTION. +C +C----------------------------------------------------------------------- +c-----changed-add-comand +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + parameter (xct=1) + parameter (yct=2) + parameter (zct=3) + parameter (ctthet=4) + parameter (ctphi=5) + parameter (ctdiam=6) + parameter (ctfoc=7) +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + +c IMPLICIT NONE +cx------------ + +c IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MAGANG. + COMMON /MAGANG/ ARRANG,ARRANR,COSANG,SINANG + DOUBLE PRECISION ARRANG,ARRANR,COSANG,SINANG +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEEP,CEREN1. + COMMON /CEREN1/ CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR,LCERFI + DOUBLE PRECISION CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR + LOGICAL LCERFI +*KEEP,CEREN2. + COMMON /CEREN2/ ACERX,ACERY,CERXOS,CERYOS, + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT, + * PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS, + * NCERX,NCERY,ICERML + DOUBLE PRECISION ACERX,ACERY,CERXOS(20),CERYOS(20), + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT + DOUBLE PRECISION PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS + INTEGER NCERX,NCERY,ICERML +*KEEP,ATMOSX. +C EXTERNAL ATMOSPHERIC MODELS + COMMON /ATMOSX/ IATMOX,FREFRX + INTEGER IATMOX + LOGICAL FREFRX +*KEEP,CORFRAM, IF=CURVED. + COMMON /CORFRAM/ DETSYS + LOGICAL DETSYS +*KEND. +*keep,certel. + common /certel/ cormxd,cord,coralp,ctpars,omega, + + photn,photnp,phpt,pht,vphot, + + vchi,veta,vzeta,vchim,vetam,vzetam, + + lambda,mu,nu,nctels,ncph,phip1,thetap1 + double precision cormxd,cord,coralp,ctpars(20,7),omega(20,3,3), + + photn(3),photnp(3),phpt(3),pht,vphot(3), + + vchi(3),veta(3),vzeta(3),vchim,vetam,vzetam, + + lambda,mu,nu + integer nctels,ncph(5) + double precision xg,yg,zg,xgp,ygp,zgp,up,vp,wp,xpcut,ypcut,zpcut + double precision thetap1,phip1 + equivalence (photn(1) ,xg) ,(photn(2) ,yg) ,(photn(3) ,zg) , + + (photnp(1),xgp) ,(photnp(2),ygp) ,(photnp(3),zgp), + + (phpt(1) ,xpcut),(phpt(2) ,ypcut),(phpt(3) ,zpcut), + + (vphot(1) ,up) ,(vphot(2) ,vp) ,(vphot(3) ,wp) + + character *72 ctfile +*keep,graal1. + common /graal1/ wavelength ! (nm) + real wavelength +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +cxx -------- + double precision dist2 + integer imov,ntt,nct,nx + double precision xx,yy,r +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +C-changes---add +C JOK SLIGHT CHANGE HERE BECAUSE WEMIS IS NOW IN COMMON CERENK2 + DOUBLE PRECISION PHICER,SINPSI,SINPS2,UEMIS2, + * VEMIS2, XCER2,XEMIS,YCER2,YEMIS + DOUBLE PRECISION STEPCR + DOUBLE PRECISION UMEAN,VMEAN,WMEAN + DOUBLE PRECISION EBEG,EEND + DOUBLE PRECISION XBEG,YBEG,ZBEG,XEND,YEND,ZEND + DOUBLE PRECISION TBEG,TEND,AMASS,CHARGE,WTTHIN,CTEA + DOUBLE PRECISION BETAE,BETAI,CTHETA,ETA1,ETA1I,ETA1E,STHETA + DOUBLE PRECISION BETAM,ETA1M + DOUBLE PRECISION TC11,TC21,TC12,TC22,TC32,TC13,TC23,TC33 + DOUBLE PRECISION BETA,BETAN,BETANI,DBETAN,ENER + DOUBLE PRECISION ETALI,ETALE,DETAL,CINTEN + DOUBLE PRECISION PHOTCT,PSTEP,PATHL,XSTEP,YSTEP,ZSTEP,ZEM + DOUBLE PRECISION DEDPL,STHET2, SINPHI,COSPHI + DOUBLE PRECISION BEMX,STCP,STSP,TEMIS,TSTEP + DOUBLE PRECISION THKBEG,DTHKLG +C WLFLAG PHOTON/PHOTO-ELECTRON FLAG (OR WAVELENGTH IN NANOMETER) + DOUBLE PRECISION WLFLAG + SAVE +C FOR WLFLAG = 0.D0: OUTPUT DATA ARE PHOTON BUNCHES + PARAMETER (WLFLAG = 0.D0 ) + INTEGER MAXRDM + PARAMETER ( MAXRDM = 100 ) + REAL RDM(MAXRDM) + INTEGER LOOPFL,IRDM,NRDM + INTEGER ISTC,NSTEPC + DOUBLE PRECISION XCER1,YCER1,XXX,YYY,DXXX,DYYY + INTEGER I + DOUBLE PRECISION REFIDX + EXTERNAL REFIDX + DOUBLE PRECISION RHOF,THICK + EXTERNAL RHOF,THICK + DOUBLE PRECISION AUXILSQ,CDDIF,CDIFA,CDIFB,CUMEAN,CVMEAN, + * CWMEAN,DISTIP,ETA2,RDIST,SDIFB,STHE,STHE2, + * SWEMIS,TOFIP,ZAPP,ZHBEG,ZHEM,ZHEND,ZHSTEP + EXTERNAL DISTIP,TOFIP +C----------------------------------------------------------------------- + + IF ( FEGSDB ) WRITE(MDEBUG,*) 'CERENK: EBEG=',EBEG,' AMASS=',AMASS + +C SKIP PARTICLES OUT OF ZENITH ANGULAR CUT (WITH WMEAN>0 DOWNWARDS). +C NOTE: USUALLY C(29) IS 0, I.E. UPWARD GOING PARTICLES ARE REJECTED. + IF ( WMEAN .LT. C(29) .OR. STEPCR .LE. 0.D0 ) RETURN + +C LOOK WETHER CHERENKOV CONDITION IS FULFILLED FOR THIS STEP. + BETAI = SQRT( 1.D0 - (AMASS/EBEG)**2 ) + BETAE = SQRT( 1.D0 - (AMASS/EEND)**2 ) + +C REFRACTIVE INDEX PARAMETRISATION: N=1+ETA = ETA1 + IF ( IATMOX .GE. 1 ) THEN + ETA1I = REFIDX(ZBEG) + ETA1E = REFIDX(ZEND) + ELSE + ETA1I = 1.D0 + ETADSN * RHOF(ZBEG) + ETA1E = 1.D0 + ETADSN * RHOF(ZEND) + ENDIF + IF ( BETAI*ETA1I.LT.1.D0 .AND. BETAE*ETA1E.LT.1.D0 ) RETURN + BETAM = SQRT( 1.D0 - (AMASS*2.D0/(EBEG+EEND))**2 ) + IF ( IATMOX .GE. 1 ) THEN + ETA1M = REFIDX(0.5D0 * (ZBEG+ZEND)) + ELSE + ETA1M = 1.D0 + ETADSN * RHOF(0.5D0 * (ZBEG+ZEND)) + ENDIF + + BEMX = MAX( BETAE*ETA1E, BETAI*ETA1I ) + CINTEN = CYIELD * CHARGE**2 + PHOTCT = CINTEN * STEPCR * (1.D0 - 1.D0/BEMX**2) + NSTEPC = PHOTCT / CERSIZ + 1 + IF ( NSTEPC .LT. 1 ) RETURN +C TRANSFORM ALL COORDINATES INTO DETECTOR FRAME (IF NOT DONE UNTIL NOW) +C XBEG, XEND, YBEG, YEND ARE TRANSFORMED IN UPDATE (OR PARTLY IN UPDATC) + IF ( .NOT. DETSYS ) THEN +C FIRST TRANSFORM ANGLES INTO DETECTOR FRAME +C (ROTATE LOCAL FRAME WITH EARTH ANGLE DIF) + CDIFB = CTEA + CDIFB = MIN( 1.D0, CDIFB ) + SDIFB = SQRT( 1.D0 - CTEA**2 ) + SDIFB = MIN( 1.D0, SDIFB ) + STHE = SQRT(UMEAN**2 + VMEAN**2) + IF ( STHE .GT. 0.D0 ) THEN + CUMEAN = UMEAN/STHE + CVMEAN = VMEAN/STHE + CUMEAN = WMEAN*SDIFB*CUMEAN + CDIFB*STHE*CUMEAN + CVMEAN = WMEAN*SDIFB*CVMEAN + CDIFB*STHE*CVMEAN + CWMEAN = WMEAN*CDIFB - SDIFB*STHE + ELSE + CUMEAN = WMEAN*SDIFB*UMEAN + CVMEAN = WMEAN*SDIFB*VMEAN + CWMEAN = WMEAN*CDIFB + ENDIF + IF ( FEGSDB ) WRITE(MDEBUG,*) 'CERENK: CURVED; CWMEAN=',CWMEAN + IF ( CWMEAN .LT. C(29) ) RETURN +C ZBEG, ZEND IN DETECTOR FRAME (ZHBEG, ZHEND) +C ACTUAL EARTH ANGLE + AUXILSQ = SQRT( XBEG**2 + YBEG**2 ) + CDIFA = COS( AUXILSQ/C(1) ) + IF ( CDIFA .GT. CTEA ) THEN +C TRANSFORM FIRST INTO THE INTERMEDIATE LOCAL SYSTEM + CDDIF = CTEA*CDIFA + SQRT( (1.D0-CTEA**2)*(1.D0-CDIFA**2) ) + ZBEG = (ZBEG+C(1)) / CDDIF - C(1) + ZEND = (ZEND+C(1)) / CDDIF - C(1) + ENDIF + ZHBEG = (ZBEG+C(1)) * CDIFA - C(1) + IF ( ZHBEG .LE. OBSLEV(1) ) RETURN +C TAKE EARTH ANGLE OF END POINT OF PART OF TRACK FOR CALCULATING ZHEND + AUXILSQ = SQRT( XEND**2 + YEND**2) + ZHEND = (ZEND+C(1)) * COS(AUXILSQ/C(1)) - C(1) +C NOW TRANSFORM CURVED COORDINATES INTO FLAT COORDINATE FRAME +C TAKING THE NOW AVAILABLE VALUES OF HAPP (X = X(HAPP)) + XBEG = (ZHBEG+C(1)) * TAN(XBEG/C(1)) + YBEG = (ZHBEG+C(1)) * TAN(YBEG/C(1)) + XEND = (ZHEND+C(1)) * TAN(XEND/C(1)) + YEND = (ZHEND+C(1)) * TAN(YEND/C(1)) + ENDIF + +C NOW CHECK WHICH KIND OF CALCULATING (BETA*N) FOR EACH SUB-STEP +C IS LIKELY TO BE THE MOST EFFICIENT. +C CASE 0: ONLY ONE STEP - WE HAVE ALREADY THE NUMBERS AT MID-STEP. + IF ( NSTEPC .EQ. 1 ) THEN + LOOPFL = 0 +C CASE 1: LINEAR INTERPOLATION OF (BETA*N) IF THE RELATIVE ERROR ON +C THE LIGHT INTENSITY IN THE MIDDLE IS LESS THAN 1E-3 (THEN THE ERROR +C ON THE IMPACT POINT FOR VERTICAL INCIDENCE IS LESS THAN ABOUT 5 CM). + ELSEIF ( (BETAE*ETA1E).GT.1D0 .AND. (BETAI*ETA1I).GT.1D0 .AND. + * (BETAM*ETA1M).GT.1D0 .AND. + * ABS((2.D0-1.D0/(BETAI*ETA1I)**2-1.D0/(BETAE*ETA1E)**2)/ + * (1.D0-1.D0/(BETAM*ETA1M)**2)-2.D0) .LT. 2.D-3*WMEAN ) THEN + LOOPFL = 1 + DBETAN = (BETAE*ETA1E-BETAI*ETA1I) / STEPCR + BETANI = BETAI * ETA1I + DEDPL = (EEND-EBEG) / STEPCR +C CASE 2: LOGARITHMIC INTERPOLATION OF (N-1) IS GOOD ENOUGH FOR +C ERRORS ON THE IMPACT POINT BEING LESS THAN 10 CM. +C BETA IS CALCULATED EXPLICITLY ASSUMING CONSTANT ENERGY LOSS. +C NOTE THAT WE USE CONSTANT ENERGY LOSS PER CENTIMETER RATHER THAN +C PER UNIT G/CM**2 FOR EFFICIENCY REASONS. THE POSSIBLE DIFFERENCE +C OF ENERGY AT MIDDLE OF STEP SHOULD BE INSIGNIFICANT IN ALMOST +C ANY CASE. + ELSEIF ( ABS((ETA1I-1.D0)*(ETA1E-1.D0)/(ETA1M-1.D0)**2 - 1.D0) + * .LT. (10.D0/ZBEG*WMEAN)**2 ) THEN + LOOPFL = 2 + ETALI = LOG(ETA1I-1.D0) + ETALE = LOG(ETA1E-1.D0) + DETAL = (ETALE-ETALI) / STEPCR + DEDPL = (EEND-EBEG) / STEPCR + ELSE +C CASE 3: BOTH N AND BETA HAVE TO BE CALCULATED IN FULL DETAIL. + LOOPFL = 3 + DEDPL = (EEND-EBEG) / STEPCR + ENDIF + +C VARIOUS START VALUES AND STEP LENGTHS FOR SUB-STEP LOOP + PSTEP = STEPCR * (1.D0/DBLE(NSTEPC)) + PATHL = (-0.5D0)*PSTEP + XSTEP = (XEND-XBEG) * (1.D0/DBLE(NSTEPC)) + YSTEP = (YEND-YBEG) * (1.D0/DBLE(NSTEPC)) + TSTEP = (TEND-TBEG) * (1.D0/DBLE(NSTEPC)) + XEMIS = XBEG - 0.5D0*XSTEP + YEMIS = YBEG - 0.5D0*YSTEP + TEMIS = TBEG - 0.5D0*TSTEP + ZSTEP = (ZEND-ZBEG) * (1.D0/DBLE(NSTEPC)) + ZEM = ZBEG - 0.5D0*ZSTEP +C THE TC.. ELEMENTS ARE DESCRIBED FURTHER DOWN. + IF ( .NOT. DETSYS ) THEN + ZHSTEP = (ZHEND-ZHBEG) * (1.D0/DBLE(NSTEPC)) + ZHEM = ZHBEG - 0.5D0*ZHSTEP + IF ( ZHEM .LE. OBSLEV(1) ) RETURN + SINPS2 = CUMEAN**2 + CVMEAN**2 + IF ( SINPS2 .LT. 1.D-20 ) SINPS2 = 1.D-20 + SINPSI = SQRT(SINPS2) + TC11 = CVMEAN*(1.D0/SINPSI) + TC12 = CUMEAN*CWMEAN*(1.D0/SINPSI) + TC13 = CUMEAN + TC21 = (-CUMEAN)*(1.D0/SINPSI) + TC22 = CVMEAN*CWMEAN*(1.D0/SINPSI) + TC23 = CVMEAN + TC32 = -SINPSI + TC33 = CWMEAN + ELSE + SINPS2 = UMEAN**2 + VMEAN**2 + IF ( SINPS2 .LT. 1.D-20 ) SINPS2 = 1.D-20 + SINPSI = SQRT(SINPS2) + TC11 = VMEAN*(1.D0/SINPSI) + TC12 = UMEAN*WMEAN*(1.D0/SINPSI) + TC13 = UMEAN + TC21 = (-UMEAN)*(1.D0/SINPSI) + TC22 = VMEAN*WMEAN*(1.D0/SINPSI) + TC23 = VMEAN + TC32 = -SINPSI + TC33 = WMEAN + ENDIF + +C SINCE EXPONENTIAL ATMOSPHERIC LAYERS ARE ASSUMED, A LOGARITHMIC +C INTERPOLATION OF THE ATMOSPHERIC THICKNESS CAN BE APPLIED. + IF ( NSTEPC .GT. 3 ) THEN + THKBEG = MAX( 1.D-3, THICK(ZBEG)) + DTHKLG = LOG(THICK(ZEND)/THKBEG) / STEPCR + ENDIF + +C DON'T GET RANDOM NUMBERS ONE-BY-ONE BUT IN LARGER CHUNKS. + NRDM = NSTEPC + IRDM = 0 + IF ( NRDM .GT. MAXRDM ) THEN + CALL RMMAR(RDM,MAXRDM,3) + ELSE + CALL RMMAR(RDM,NRDM,3) + ENDIF + +C LOOP OVER THE NUMBER OF SUB-STEPS WITH CONSTANT PARTICLE DIRECTION +C BUT CONTINUOUS ENERGY LOSS AND REFRACTION INDEX CHANGE ACCOUNTED FOR. +C SINCE ACTUAL VELOCITY CHANGES OF PARTICLES EMITTING CHERENKOV LIGHT +C IN THE ATMOSPHERE ARE VERY SMALL, CONSTANT STEPS IN (X,Y,Z,T) ARE USED. + DO 1000 ISTC = 1,NSTEPC + PATHL = PATHL + PSTEP + XEMIS = XEMIS + XSTEP + YEMIS = YEMIS + YSTEP + ZEM = ZEM + ZSTEP + TEMIS = TEMIS + TSTEP + IF ( .NOT. DETSYS ) THEN + ZHEM = ZHEM + ZHSTEP + IF ( ZHEM .LE. OBSLEV(1) ) RETURN + ENDIF + +C DEPENDING ON CONDITIONS USE THE FASTEST METHOD TO GET (BETA*N). + IF ( LOOPFL .EQ. 1 ) THEN +C THE MOST FREQUENT AND SIMPLEST CASE (WELL ABOVE THRESHOLD). + BETAN = BETANI + DBETAN*PATHL + ELSEIF ( NSTEPC .EQ. 1 ) THEN +C THIS CASE IS USALLY ENCOUNTERED NEAR THRESHOLD. + BETAN = BETAM*ETA1M + ELSEIF ( LOOPFL .EQ. 2 ) THEN +C THIS CASE IS ALSO USALLY ENCOUNTERED NEAR THRESHOLD. + ETA1 = 1.D0 + EXP(ETALI+DETAL*PATHL) + ENER = EBEG + DEDPL*PATHL + BETA = SQRT(1.D0-(AMASS/ENER)**2) + BETAN = BETA*ETA1 + ELSE +C THIS MOST GENERAL CASE IS RARELY ENCOUNTERED. + IF ( IATMOX .GE. 1 ) THEN + ETA1 = REFIDX(ZEM) + ELSE + ETA1 = 1.D0 + ETADSN * RHOF(ZEM) + ENDIF + ENER = EBEG + DEDPL*PATHL + BETA = SQRT(1.D0-(AMASS/ENER)**2) + BETAN = BETA*ETA1 + ENDIF + IF ( FEGSDB ) WRITE(MDEBUG,*) + * 'CERENK: LOOPFL=',LOOPFL,' BETAN=',BETAN + CTHETA = 1.D0 / BETAN + STHET2 = 1.D0 - CTHETA**2 +C PARTICLE IS BELOW ENERGY THRESHOLD IF THE EMISSION ANGLE IS <=0 + IF ( CTHETA .GT. 1.D0 .OR. STHET2 .LE. 0.D0 ) THEN + NRDM = NRDM - 1 + GOTO 1000 + ENDIF +C NUMBER OF EMITTED PHOTONS IN THIS SUB-STEP + PHOTCM = (CINTEN*PSTEP) * STHET2 + STHETA = SQRT(STHET2) +C ASSUME EMISSION POINT OF ALL PHOTONS IN THE MIDDLE OF THE STEP +C SAVE EMMISION HEIGHT SEEN FROM THE DETECTOR + IF ( .NOT. DETSYS ) THEN + ZEMIS = ZHEM + ZAPP = ZHEM + ELSE + ZEMIS = ZEM + ZAPP = ZEM + ENDIF + +C CALCULATE PHOTON DIRECTION IN THE CORSIKA COORDINATE FRAME +C +C NOTE: TO DERIVE THESE EQUATIONS YOU SHOULD FIRST DERIVE A MATRIX (T) +C WHICH ROTATES THE PARTICLE DIRECTION (U, V, W) TO (0, 0, 1): +C +C ( V/SQRT(U**2+V**2) -U/SQRT(U**2+V**2) 0 ) +C (T) = ( UW/SQRT(U**2+V**2) VW/SQRT(U**2+V**2) -SQRT(U**2+V**2) ) +C ( U V W ) +C +C CHERENKOV EMISSION IN THIS ROTATED COORDINATE SYSTEM IS DESCRIBED BY +C A MATRIX (C): +C +C ( COS(PHI) -SIN(PHI) 0 ) ( COS(THETA) 0 SIN(THETA) ) +C (C) = ( SIN(PHI) COS(PHI) 0 ) ( 0 1 0 ) +C ( 0 0 1 ) ( -SIN(THETA) 0 COS(THETA) ) +C +C WHERE THETA IS THE CHERENKOV OPENING ANGLE AND PHI IS RANDOM. +C THE RESULT IS (T_T)**-1 (C) (0,0,1): +C +C (0) +C (T_T)**-1 (C) (0) = +C (1) +C +C ( V/S*SIN(T)*COS(PHI)+U*W/S*SIN(T)*SIN(PHI)+U*COS(T) ) +C = (-U/S*SIN(T)*COS(PHI)+V*W/S*SIN(T)*SIN(PHI)+V*COS(T) ) +C ( -S*SIN(T)*SIN(PHI)+W*COS(T) ) +C +C WITH S = SQRT(U**2+V**2) AND T=THETA. THE CONSTANT PARTS ARE CALCULATED +C AS TC11 ... TC33 BEFORE THE '1000' LOOP. + +C DON'T GET RANDOM NUMBERS ONE-BY-ONE BUT IN LARGER CHUNKS FROM SEQ. 3 + IRDM = IRDM + 1 + IF ( IRDM .GT. MAXRDM ) THEN + IF ( NRDM .GT. MAXRDM ) THEN + CALL RMMAR(RDM,MAXRDM,3) + NRDM = NRDM - MAXRDM + ELSE + CALL RMMAR(RDM,NRDM,3) + NRDM = 0 + ENDIF + IRDM = 1 + ENDIF + PHICER = RDM(IRDM) * PI2 + SINPHI = SIN(PHICER) + COSPHI = COS(PHICER) + + IF ( SINPS2 .LE. 1.D-12 ) THEN + UEMIS2 = STHETA * COSPHI + VEMIS2 = STHETA * SINPHI + WEMIS = CTHETA + IF ( WMEAN .LT. 0.D0 ) WEMIS = -CTHETA + ELSE + STCP = STHETA * COSPHI + STSP = STHETA * SINPHI + UEMIS2 = TC11*STCP + TC12*STSP + TC13*CTHETA + VEMIS2 = TC21*STCP + TC22*STSP + TC23*CTHETA + WEMIS = TC32*STSP + TC33*CTHETA + ENDIF + IF ( FEGSDB ) WRITE(MDEBUG,*) 'CERENK: UEMIS2,VEMIS2,WEMIS=', + * UEMIS2,VEMIS2,WEMIS +C EMISSION ANGLE WITHIN ZENITH ANGULAR CUT? + IF ( WEMIS .LT. C(29) ) GOTO 1000 + WEMIS = MIN( 1.D0, WEMIS ) + +C CALCULATE OFFSET FROM SHOWER AXIS AT THE DETECTOR LEVEL. +C CALCULATE NEW DETECTOR COORDINATES BY INTERPOLATING BETWEEN +C TABULATED VALUES WHICH WERE NUMERICALLY INTEGRATED +C TAKING INTO ACCOUNT ATMOSPHERIC REFRACTION IN A CURVED GEOMETRY + STHE = SQRT(UEMIS2**2 + VEMIS2**2) + RDIST = DISTIP( WEMIS, ZAPP) + IF ( FEGSDB ) WRITE(MDEBUG,*) 'CERENK: WEMIS,ZEM,STHE,RDIST=', + * WEMIS,ZEM,STHE,RDIST + IF ( STHE .GT. 0.D0 ) THEN +C UEMIS2=COSPHI, VEMIS2=SINPHI + XCER2 = XEMIS + RDIST * UEMIS2/STHE + YCER2 = YEMIS + RDIST * VEMIS2/STHE + ELSE + XCER2 = XEMIS + YCER2 = YEMIS + ENDIF + +C ADD THE CHERENKOV PHOTONS TO THE LONGITUDINAL DEVELOPMENT. + IF ( LLONGI ) THEN + IF ( AMASS .LT. 1.D-3 ) THEN + CALL CERLDE + ELSE + CALL CERLDH + ENDIF + ENDIF + +C TAKE THE ROTATION RELATIVE TO MAGNETIC NORTH INTO ACCOUNT + XCER = XCER2 * COSANG + YCER2 * SINANG + YCER = YCER2 * COSANG - XCER2 * SINANG + UEMIS = UEMIS2 * COSANG + VEMIS2 * SINANG + VEMIS = VEMIS2 * COSANG - UEMIS2 * SINANG + IF ( FEGSDB ) WRITE(MDEBUG,*) 'CERENK: UEMIS,VEMIS,PHOTCM=', + * SNGL(UEMIS),SNGL(VEMIS),SNGL(PHOTCM) +C ONLY PHOTON BUNCHES INSIDE CHERENKOV ARRAY + +c--changes--add +c IF ( ABS(XCER) .LT. XCMAXS .AND. ABS(YCER) .LT. YCMAXS ) THEN + IF ( AMASS .LT. 1.D-3 ) THEN + CERELE = CERELE + PHOTCM + ELSE + CERHAD = CERHAD + PHOTCM + ENDIF + + DO 7001 I = 1,ICERML + DO 101 NCT=1,NCTELS + XCER1 = XCER - CERXOS(I) - CTPARS(NCT,XCT) +c XXX = XCER1 * DCERXI + FCERX +c DXXX = ABS( XXX - NINT(XXX) ) +c IF ( DXXX .LE. EPSX ) THEN +c IF ( XCER1.LT.-XCMAX .OR. XCER1.GT.XCMAX ) GOTO 7001 + YCER1 = YCER - CERYOS(I) - CTPARS(NCT,YCT) +c YYY = YCER1 * DCERYI + FCERY +c DYYY = ABS( YYY - NINT(YYY) ) +c IF ( DYYY .LE. EPSY ) THEN +c IF ( YCER1.LT.-YCMAX .OR. YCER1.GT.YCMAX ) GOTO 7001 +c + xx=xcer1*dcos(phip1)-ycer1*dsin(phip1) + yy=xcer1*dsin(phip1)+ycer1*dcos(phip1) + dist2=dsqrt((xx*dcos(thetap1))**2+yy**2+1.d-10) +c +c IF (dist2.GT.(CTPARS(NCT,CTDIAM)/2.)) GOTO 7001 +c +c Fixed by AM, 24/7/2002, to allow use of CERTEL option with more +c than one telescope: +c + IF (dist2.LT.(CTPARS(NCT,CTDIAM)/2.)) GOTO 102 + + 101 continue + +c If photon is not within reach of any of the telescopes, skip it: + GOTO 7001 + +c--changes +C BUNCH FALLS ON A DETECTOR, CALCULATE ARRIVAL TIME (NSEC) + 102 IF ( FREFRX ) THEN +C CALCULATE TIME OF FLIGHT BY INTERPOLATING BETWEEN TABULATED VALUES + CARTIM = TEMIS * 1.D9 + TOFIP(WEMIS,ZAPP) + ELSE +C CALCULATE TIME OF FLIGHT BY INTERPOLATING BETWEEN TABULATED VALUES + CARTIM = TEMIS * 1.D9 + TOFIP(WEMIS,ZAPP) + ENDIF +C CORRECT ZENITH ANGLE DUE TO ATMOSPHERIC REFRACTION FOR OUTPUT + IF ( IATMOX .GE. 1 ) THEN + ETA2 = REFIDX( OBSLEV(1) ) + ELSE + ETA2 = 1.D0 + ETADSN * RHOF( OBSLEV(1) ) + ENDIF + SWEMIS = 1.D0 - WEMIS**2 + SWEMIS = (ETA1/ETA2)**2 * SWEMIS + WEMIS = MIN( 1.D0, SQRT(1.D0 - SWEMIS) ) +C NOW CORRECT ALSO THE OTHER DIRECTION COSINE + STHE = SQRT( VEMIS**2 + UEMIS**2 ) + STHE2 = SQRT( 1.D0 - WEMIS**2 ) + VEMIS = VEMIS/STHE * STHE2 + UEMIS = UEMIS/STHE * STHE2 +c-changes +c CALL OUTPT2 +c GOTO 1000 +c ENDIF +c ENDIF + + +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +C GENERATE RANDOM WAVELENGTH FOR SINGLE C-PHOTON. + CALL RMMAR( RD,1,3 ) + WAVELENGTH = 1. / (1/WAVLGL - + + RD(1)/(WAVLGL*WAVLGU/(WAVLGU-WAVLGL))) +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + if(amass.lt.5.11d-4) then + nx=2 + else + nx=itype + endif +c write(moniou,*) itype,nx,amass + CALL OUTPT2(nx,I) +c CALL OUTPT2(NCT,I) + + GOTO 1000 + + 7001 CONTINUE +cxx ENDIF + 1000 CONTINUE + + RETURN + END +*CMZ : 19/10/2000 11.44.20 by D. HECK IK3 FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE CERLDE + +C----------------------------------------------------------------------- +C C(H)ER(ENKOV) L(ONGITUNAL) D(EVELOPMENT FOR) E(LECTRONS & POSITRONS) +C +C THIS SUBROUTINE IS CALLED FROM CERENK. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CEREN2. + COMMON /CEREN2/ ACERX,ACERY,CERXOS,CERYOS, + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT, + * PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS, + * NCERX,NCERY,ICERML + DOUBLE PRECISION ACERX,ACERY,CERXOS(20),CERYOS(20), + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT + DOUBLE PRECISION PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS + INTEGER NCERX,NCERY,ICERML +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + + INTEGER I1,LPCT1 + SAVE +C----------------------------------------------------------------------- + +C IF STARTING POINT IS BELOW LOWEST LEVEL THEN DON'T CHECK. + IF ( HLONG(NSTEP) .LE. ZEMIS ) THEN +C FIND FIRST THE EQUIVALENT LEVELS + LPCT1 = LPCTE(NP) +C ZEMIS IS ONLY LITTLE BELOW Z OLD, THEREFORE INCREMENTAL SEARCH. +C (REMEMBER: LPCTE IS AT START OF ELECTRON STEP) + DO 6002 I1 = LPCT1,NSTEP + IF ( HLONG(I1) .LT. ZEMIS ) GOTO 6003 + 6002 CONTINUE + I1 = NSTEP + 1 + 6003 CONTINUE + +C PHOTONS ENTER THE VERTICAL DISTRIBUTION ONLY IN THE STEP WHERE THEY +C WERE EMITTED. THIS IS FAR MORE EFFICIENT THAN OLD, INTEGRATED MODE. + PLONG(I1,9) = PLONG(I1,9) + PHOTCM + + ENDIF + RETURN + END +*CMZ : 19/10/2000 11.45.12 by D. HECK IK3 FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE CERLDH + +C----------------------------------------------------------------------- +C C(H)ER(ENKOV) L(ONGITUNAL) D(EVELOPMENT FOR) H(ADRONS & MUONS) +C +C THIS SUBROUTINE IS CALLED FROM CERENK. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CEREN2. + COMMON /CEREN2/ ACERX,ACERY,CERXOS,CERYOS, + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT, + * PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS, + * NCERX,NCERY,ICERML + DOUBLE PRECISION ACERX,ACERY,CERXOS(20),CERYOS(20), + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT + DOUBLE PRECISION PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS + INTEGER NCERX,NCERY,ICERML +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEND. + + INTEGER I1,I2,II + SAVE +C----------------------------------------------------------------------- + +C IF STARTING POINT BELOW LOWEST LEVEL THEN DON'T CHECK + IF ( HLONG(NSTEP) .LE. ZEMIS ) THEN +C FIND FIRST THE EQUIVALENT LEVELS + I1 = 0 + I2 = NSTEP + 6001 CONTINUE + II = (I1+I2)/2 + IF ( HLONG(II) .LT. ZEMIS ) THEN + I2 = II + ELSE + I1 = II + ENDIF + IF ( I2-I1 .GT. 1 ) GOTO 6001 +C PHOTONS ENTER THE VERTICAL DISTRIBUTION ONLY IN THE STEP WHERE THEY +C WERE EMITTED. THIS IS FAR MORE EFFICIENT THAN OLD, INTEGRATED MODE. + PLONG(I2,9) = PLONG(I2,9) + PHOTCM + + ENDIF + RETURN + END +*CMZ : 18/12/2001 11.46.20 by D. HECK IK FZK KARLSRUHE +*-- Author : F. SCHROEDER UNI WUPPERTAL 30/06/99 +C======================================================================= + + DOUBLE PRECISION FUNCTION DISTIP(THEAP,HEAPP) + +C----------------------------------------------------------------------- +C DIST(ANCE) I(NTER)P(OLATION) +C +C DETERMINES CHANGE IN DISTANCE FROM SHOWER CORE BY INTERPOLATING +C BETWEEN VALUES OF A TWO DIMENSIONAL TABLE TAKING INTO ACCOUNT BENDING +C OF THE CHERENKOV LIGHT IN CURVED ATMOSPHERE. +C THIS FUNCTION IS CALLED FROM CERENK. +C ARGUMENTS: +C THEAP = COSINE OF EMISSION ANGLE IN DEG OF CHERENKOV PHOTON +C SEEN FROM THE DETECTOR +C HEAPP = EMISSION HEIGHT IN CM OF CHERENKOV PHOTON +C SEEN FROM THE DETECTOR IN CM +C +C DESIGN : F. SCHROEDER UNI WUPPERTAL +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,RTABLE, IF=CURVED. + COMMON /RTABLE/ DISTEF, TOF + INTEGER MHEIGH,NTHETA + PARAMETER ( MHEIGH = 453 ) ! NUMBER OF VALUES IN HEIGHT + PARAMETER ( NTHETA = 361 ) ! NUMBER OF VALUES IN THETA + DOUBLE PRECISION DISTEF(NTHETA,MHEIGH),TOF(NTHETA,MHEIGH) +*KEND. + + DOUBLE PRECISION ADIST,BDIST,B,FACT,HEAPP,HEAPP2,HM,HM1,OBS, + * THEAP,THEAP2,THN,THN1 + INTEGER M,M1,M2,N,N1,N2 + LOGICAL FIRST + SAVE + DATA FIRST /.TRUE. / +C----------------------------------------------------------------------- + + IF ( FIRST ) THEN + FACT = 90.D0/ACOS(0.D0) + FIRST = .FALSE. +C TRANSFORM OBSLEV(1) IN UNITS OF KM + OBS = OBSLEV(1) * 1.D-5 + ENDIF + +C TRANSFORM INPUT PARAMETERS IN BETTER UNITS + THEAP2 = ACOS( THEAP ) * FACT * 4.D0 ! NOW THETA IN DEG*4 + HEAPP2 = HEAPP * 1.D-5 * 4.D0 ! AND HEIGHT IN KM*4 + +C DISTIP = DISTIP(THEAP, HEAPP) = DISTEF(N, M) (N*M-MATRIX) +C MONOTONIC ASCENDING ORDER: +C THEAP: [0- 90] DEG => THEAP(1) = 0 DEG, THEAP(NTHETA) = 90 DEG +C HEAPP: [0-113] KM => HEAPP(1) = 0 KM, HEAPP(MHEIGH) = 113 KM + +C GET NUMBERS (APPARENT THETA) (N-1,N) WHICH ARE NEAREST TO THEAP + N2 = INT(THEAP2) + N1 = N2 + 1 + N = N2 + 2 +C GET NUMBERS (APPARENT HEIGHT) (M-1,M) WHICH ARE NEAREST TO HEAPP + M2 = INT(HEAPP2) + M1 = M2 + 1 + M = M2 + 2 + +C NOW PERFORM LINEAR INTERPOLATION OF DISTEF BETWEEN TABULATED VALUES +C HEAPP(M) = (M-1) [KM] +C THEAP(N) = (N-1) [DEG] + THN = DBLE(N1) + THN1 = DBLE(N2) + HM = DBLE(M1) + HM1 = DBLE(M2) + IF ( HM1 .LT. OBS ) HM1 = OBS + +C INTERPOLATE BETWEEN DISTEF(N-1, M-1) AND DISTEF(N-1,M) + B = ( DISTEF(N1, M) - DISTEF(N1, M1) ) / ( HM - HM1 ) + ADIST = B * ( HEAPP2 - HM1 ) + DISTEF(N1,M1) +C INTERPOLATE BETWEEN DISTEF(N, M-1) AND DISTEF(N,M) + B = ( DISTEF(N, M) - DISTEF(N, M1) ) / ( HM - HM1 ) + BDIST = B * ( HEAPP2 - HM1 ) + DISTEF(N,M1) +C INTERPOLATE BETWEEN ADIST=DISTEF(N-1,M_MEAN) +C AND BDIST=DISTEF(N,M_MEAN) + B = ( BDIST - ADIST ) / ( THN - THN1 ) + DISTIP = B * ( THEAP2 - THN1 ) + ADIST + + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE GETBUS( IPARTI,ENERGYP,THETAP,CERSZE ) + +C----------------------------------------------------------------------- +C GET BU(NCH) S(IZE) +C +C CALCULATES OPTIMAL BUNCH SIZE FOR CHERENKOV PHOTONS. CHERENKOV PHOTONS +C ARE GROUPED IN BUNCHES IN ORDER TO ACCELERATE COMPUTING TIME. +C HOWEVER, WE SET A MAXIMAL VALUE FOR THE GROUPING OF CHERENKOV PHOTONS +C SO THAT WE GET AT LEAST 100 BUNCHES/M**2 AT A CHERENKOV FLUX OF 3000 +C PHOTONS/M**2. THIS IS THE MINIMUM CHERENKOV FLUX WHICH CAN BE +C DISTINGUISHED FROM THE NIGHT SKY LIGHT BACKGROUND IN THE HEGRA +C EXPERIMENT AT THE ISLAND LA PALMA. SO THE PARAMETRIZATION OF THE +C CHERENKOV BUNCH AS CALCULATED IN THIS SUBROUTINE IS VALID FOR +C OBSERVATION LEVELS SIMILAR TO THAT OF THE HEGRA EXPERIMENT. +C FOR A GIVEN PRIMARY PARTICLE, INCIDENT ENERGY AND ANGLE, AN +C OPTIMAL BUNCH SIZE IS CALCULATED BY INTERPOLATION IN A TABLE, +C WHERE WE HAVE CHOSEN AN ENERGY RANGE UP TO 1000 TEV, INCIDENT +C ANGLES 0 AND 40 DEGREES, AND 4 TYPES OF PRIMARIS: GAMMAS, +C PROTONS, NITROGEN, AND IRON. +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C ARGUMENTS: +C IPARTI = TYPE OF PRIMARY PARTICLE +C ENERGYP= PARTICLES ENERGY IN GEV +C THETAP = ANGLE IN RAD +C CERSZE = SIZE OF CHERENKOV BUNCH +C +C AUTHORS : S. MARTINEZ UNIVERSITY OF MADRID +C F. ARQUEROS UNIVERSITY OF MADRID +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ANGLE(2),ENGAM(3),ENHAD(3),ENNIT(2), + * SIFE(3,2),SIGAM(3,2),SINIT(2),SIPRO(3,2) + DOUBLE PRECISION CERSZE,ENERGY,ENERGYP,THETA,THETAP + DOUBLE PRECISION CERS1F,CERS1P,S1,S2 + INTEGER I,IANFE,IANP,IATNUM,IPARTI,I1,I2 + + DATA ANGLE / 0.D0, 40.D0 / + DATA ENGAM / 100.D0, 200.D0, 500.D0 / + DATA ENHAD / 100.D0, 200.D0, 1000.D0 / + DATA ENNIT / 200.D0, 1000.D0 / + DATA ( SIFE (I,1),I=1,3 ) / 30.D0, 30.D0, 140.D0 / + DATA ( SIFE (I,2),I=1,3 ) / 30.D0, 30.D0, 110.D0 / + DATA ( SIGAM(I,1),I=1,3 ) / 30.D0, 45.D0, 100.D0 / + DATA ( SIGAM(I,2),I=1,3 ) / 30.D0, 40.D0, 100.D0 / + DATA SINIT / 30.D0, 150.D0 / + DATA ( SIPRO(I,1),I=1,3 ) / 30.D0, 30.D0, 120.D0 / + DATA ( SIPRO(I,2),I=1,3 ) / 30.D0, 30.D0, 160.D0 / + DATA IANP / 1 /, IANFE / 26 / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,100) IPARTI,ENERGYP,THETAP + 100 FORMAT(' GETBUS: INPUT PARTICLE = ',I5,1P,2E10.3) + +C DEFAULT VALUE + CERSZE = 100.D0 + + ENERGY = 1.D-3*ENERGYP + IF ( ENERGY .LE. 100.D0 ) THEN + CERSZE = 30.D0 + IF ( DEBUG ) WRITE(MDEBUG,101) CERSZE + RETURN + ENDIF + + THETA = THETAP / PI * 180.D0 + +C----------------------------------------------------------------------- +C PHOTON, ELECTRON OR POSITRON AS PRIMARY PARTICLE + IF ( IPARTI .LE. 3 ) THEN +C FIND ENERGY BIN FOR INTERPOLATION + IF ( ENERGY .LE. ENGAM(2) ) THEN + I1 = 1 + I2 = 2 + ELSE + I1 = 2 + I2 = 3 + ENDIF + S1 = SIGAM(I1,1) + (ENERGY - ENGAM(I1)) + * / (ENGAM(I2) - ENGAM(I1)) + * * (SIGAM(I2,1) - SIGAM(I1,1)) + S2 = SIGAM(I1,2) + (ENERGY - ENGAM(I1)) + * / (ENGAM(I2) - ENGAM(I1)) + * * (SIGAM(I2,2) - SIGAM(I1,2)) + CERSZE = S1 + (THETA-ANGLE(1))/(ANGLE(2)-ANGLE(1)) * (S2-S1) + IF ( DEBUG ) WRITE(MDEBUG,101) CERSZE + RETURN + ENDIF + +C----------------------------------------------------------------------- +C NITROGEN AS PRIMARY PARTICLE AND VERTICAL INCIDENCE +CJOK WHY SPECIAL TREATMENT FOR NITROGEN ???? +CJOK WHY ONLY VERTICAL INCIDENCE ???? + IF ( IPARTI .EQ. 1407 .AND. ABS(THETA) .LT. 1.D-1 ) THEN + IF ( ENERGY .LT. 200.D0 ) THEN + CERSZE = 30.D0 + ELSE + CERSZE = SINIT(1) + (ENERGY-ENNIT(1)) + * / (ENNIT(2)-ENNIT(1)) * (SINIT(2)-SINIT(1)) + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,101) CERSZE + RETURN + ENDIF + +C----------------------------------------------------------------------- +C GET THE ATOMIC NUMBER OF THE NUCLEUS +C Z IS 1, IF PROTON + IF ( IPARTI .EQ. 14 ) THEN + IATNUM = 1 +C REST OF POSSIBLE NUCLEI + ELSEIF ( IPARTI .GT. 100 ) THEN + IATNUM = MOD(IPARTI,100) + IF ( IATNUM .GT. 26 ) THEN + WRITE(MONIOU,*) 'GETBUS: UNEXPECTED PARTICLE CODE',IPARTI + RETURN + ENDIF + ELSE + WRITE(MONIOU,*) 'GETBUS: UNEXPECTED PARTICLE CODE',IPARTI + RETURN + ENDIF + +C FIND ENERGY BIN FOR INTERPOLATION IN CASE OF HADRONIC PRIMARY + IF ( ENERGY .LE. ENHAD(2) ) THEN + I1 = 1 + I2 = 2 + ELSE + I1 = 2 + I2 = 3 + ENDIF + +C INTERPOLATION FOR HADRONS + S1 = SIPRO(I1,1) + (ENERGY-ENHAD(I1)) + * / (ENHAD(I2)-ENHAD(I1)) * (SIPRO(I2,1)-SIPRO(I1,1)) + S2 = SIPRO(I1,2) + (ENERGY-ENHAD(I1)) + * / (ENHAD(I2)-ENHAD(I1)) * (SIPRO(I2,2)-SIPRO(I1,2)) + CERS1P = S1 + (THETA-ANGLE(1)) / (ANGLE(2)-ANGLE(1)) * (S2-S1) + + S1 = SIFE(I1,1) + (ENERGY-ENHAD(I1)) / (ENHAD(I2)-ENHAD(I1)) + * * (SIFE(I2,1)-SIFE(I1,1)) + S2 = SIFE(I1,2) + (ENERGY-ENHAD(I1)) / (ENHAD(I2)-ENHAD(I1)) + * * (SIFE(I2,2)-SIFE(I1,2)) + CERS1F = S1 + (THETA-ANGLE(1)) / (ANGLE(2)-ANGLE(1)) * (S2-S1) + + CERSZE = CERS1P + (IATNUM-IANP) * (CERS1F-CERS1P) / (IANFE-IANP) + + IF ( DEBUG ) WRITE(MDEBUG,101) CERSZE + 101 FORMAT(' GETBUS: BUNCH SIZE = ',1P,1E10.3) + + RETURN + END +*CMZ : 14/09/2000 08.40.31 by D. HECK IK3 FZK KARLSRUHE +*-- Author : F. SCHROEDER UNI WUPPERTAL 09/04/99 +C======================================================================= + + SUBROUTINE INRTAB + +C----------------------------------------------------------------------- +C IN(IT) R(EFRACTION) TAB(LE) +C +C INITIALIZES TABLE FOR INTERPOLATION OF DISTANCE FROM SHOWER CORE +C AND TIME OF FLIGHT OF THE CHERENKOV PHOTON +C NUMERICAL CALCULATION OF DISTANCE FROM SHOWER CORE AND TIME OF FLIGHT +C FOR DISCRETE ZENITH ANGLES AND HEIGHT DIFFERENCES TAKING INTO ACCOUNT +C BENDING OF THE CHERENKOV LIGHT IN A CURVED ATMOSPHERE +C THIS SUBROUTINE IS CALLED FROM INPRM. +C ARGUMENTS: +C OBS = HEIGHT OF OBSERVATION LEVEL IN CM +C +C DESIGN : F. SCHROEDER UNI WUPPERTAL +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RTABLE, IF=CURVED. + COMMON /RTABLE/ DISTEF, TOF + INTEGER MHEIGH,NTHETA + PARAMETER ( MHEIGH = 453 ) ! NUMBER OF VALUES IN HEIGHT + PARAMETER ( NTHETA = 361 ) ! NUMBER OF VALUES IN THETA + DOUBLE PRECISION DISTEF(NTHETA,MHEIGH),TOF(NTHETA,MHEIGH) +*KEEP,ATMOSX. +C EXTERNAL ATMOSPHERIC MODELS + COMMON /ATMOSX/ IATMOX,FREFRX + INTEGER IATMOX + LOGICAL FREFRX +*KEND. + + DOUBLE PRECISION DDIST,DHAPP,DHELP,DLEN,DT,ETADSN,HE,HAPPST,HEAPP, + * HST,HSTM,HSTOLD,R,RHE, + * RHST,RHSTM,THEAP,THAPP1,THAPP2,VLIGHTI + INTEGER I,M,N,NSTEPS + SAVE + DOUBLE PRECISION REFIDX + EXTERNAL REFIDX + DOUBLE PRECISION RHOF + EXTERNAL RHOF +C NUMBER OF STEPS FOR NUMERIC INTEGRATION + DATA NSTEPS/ 1000 / +C----------------------------------------------------------------------- + + ETADSN = 0.00028232D0 / RHOF(0.D0) +C INVERSE OF VELOCITY OF LIGHT IN CM/NS + VLIGHTI = 1.D9/C(25) +C EARTH RADIUS IN CM + R = C(1) +C DISTEF = DISTEF(THEAP, HEAPP) = DISTEF(N, M) (N*M-MATRIX) +C TOF = TOF(THEAP, HEAPP) = TOF(N, M) (N*M-MATRIX) +C MONOTONIC ASCENDING ORDER: +C THEAP: [0- 90] DEG => THEAP(1) = 0 DEG, THEAP(NTHETA) = 90 DEG +C HEAPP: [0-113] KM => HEAPP(1) = 0 KM, HEAPP(MHEIGH) = 113 KM +C THEAP = EMISSION ANGLE OF CHERENKOV PHOTON SEEN FROM THE DETECTOR +C HEAPP = EMISSION HEIGHT OF CHERENKOV PHOTON SEEN FROM THE DETECTOR + + DO N = 1, NTHETA + DO M = 1, MHEIGH +C APPARENT EMISSION ANGLE IN RAD * 1/4 + THEAP = DBLE(N-1) * .25D0 * PI / 180.D0 +C APPARENT EMISSION HEIGHT IN CM * 1/4 + HEAPP = DBLE(M-1) * .25D0 * 1.D5 + IF ( HEAPP .LE. OBSLEV(1) .OR. + * THEAP .GT. 89.0D0*PI/180.D0 ) THEN + DISTEF(N,M) = 0.D0 ! NO CALCULATION OF DISTEF AND TOF + TOF(N, M) = 0.D0 ! IF EMISSION HEIGHT IS UNDER + GOTO 100 ! OBSERVATION LEVEL + ENDIF +C LOCAL EMISSION HEIGHT FOR INDEX OF REFRACTION + DHELP = (HEAPP-OBSLEV(1)) * TAN(THEAP) + HE = -R + SQRT( DHELP**2 + (R+HEAPP)**2 ) + IF ( IATMOX .GE. 1 ) THEN + RHE = REFIDX( HE ) + ELSE + RHE = 1.D0 + ETADSN * RHOF(HE) + ENDIF +C SMALL CHANGE IN HEAPP FOR NUMERICAL INTEGRATION + DHAPP = (HEAPP-OBSLEV(1))/DBLE(NSTEPS) +C START VALUES FOR NUMERICAL INTEGRATION +C PERFORM CALCULATION IN APPARENT COORDINATES + LOCAL HEIGHT +C FOR THE INDEX OF REFRACTION + HST = HE + HAPPST = HEAPP + THAPP2 = THEAP + DISTEF(N,M) = 0.D0 + TOF(N, M) = 0.D0 + DO I = 1, NSTEPS + HAPPST = HAPPST - DHAPP + DHELP = (HAPPST-OBSLEV(1)) * TAN(THAPP2) + HSTOLD = HST + HST = -R + SQRT( DHELP**2 + (R+HAPPST)**2 ) + HSTM = HST + 0.5D0 * (HSTOLD-HST) + IF ( IATMOX .GE. 1 ) THEN + RHST = REFIDX( HST ) + RHSTM = REFIDX( HSTM ) + ELSE + RHST = 1.D0 + ETADSN * RHOF(HST) + RHSTM = 1.D0 + ETADSN * RHOF(HSTM) + ENDIF + THAPP1 = THAPP2 + THAPP2 = ASIN( RHE/RHST * SIN(THEAP) ) + DDIST = DHAPP * TAN(0.5D0*(THAPP1 + THAPP2)) + DLEN = DHAPP / COS(0.5D0*(THAPP1 + THAPP2)) + DT = DLEN * RHSTM * VLIGHTI + DISTEF(N, M) = DISTEF(N,M) + DDIST + TOF(N, M) = TOF(N, M) + DT + ENDDO + 100 CONTINUE + ENDDO + ENDDO + + RETURN + END +*CMZ : 18/10/2000 09.15.12 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE OUTND2 + +C----------------------------------------------------------------------- +C OUT(PUT AT E)ND (OF SHOWER) +C +C WRITE REST OF PARTICLES TO OUTPUT BUFFER +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,CEREN2. + COMMON /CEREN2/ ACERX,ACERY,CERXOS,CERYOS, + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT, + * PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS, + * NCERX,NCERY,ICERML + DOUBLE PRECISION ACERX,ACERY,CERXOS(20),CERYOS(20), + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT + DOUBLE PRECISION PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS + INTEGER NCERX,NCERY,ICERML +*KEEP,CEREN3. + COMMON /CEREN3/ CERCNT,DATAB2,NRECER,LHCER + INTEGER MAXBF2 + PARAMETER ( MAXBF2 = 39 * 7 ) + DOUBLE PRECISION CERCNT + REAL DATAB2(MAXBF2) + INTEGER NRECER,LHCER +*KEND. + + INTEGER I +C----------------------------------------------------------------------- + + IF ( LHCER .GT. 0 ) THEN + IF ( FPAROUT ) CALL TOBUFC( DATAB2,0 ) +C CLEAR DATAB2 BUFFER + DO 2 I = 1,MAXBF2 + DATAB2(I) = 0. + 2 CONTINUE + ENDIF + LHCER = 0 + + WRITE(MONIOU,*) 'CERCNT = ',SNGL( CERCNT ) + CERCNT = 0.D0 + + RETURN + END +*CMZ : 28/02/2002 12.41.48 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE OUTPT2(J,IMOV) +c---changed--name + +C----------------------------------------------------------------------- +C (WRITE CHERENKOV RADIATION) OUTP(U)T +C +C OUTPUT SUBROUT. FOR CHERENKOV PHOTONS +C THIS SUBROUTINE IS CALLED FROM CERENK. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,CEREN1. + COMMON /CEREN1/ CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR,LCERFI + DOUBLE PRECISION CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR + LOGICAL LCERFI +*KEEP,CEREN2. + COMMON /CEREN2/ ACERX,ACERY,CERXOS,CERYOS, + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT, + * PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS, + * NCERX,NCERY,ICERML + DOUBLE PRECISION ACERX,ACERY,CERXOS(20),CERYOS(20), + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT + DOUBLE PRECISION PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS + INTEGER NCERX,NCERY,ICERML +*KEEP,CEREN3. + COMMON /CEREN3/ CERCNT,DATAB2,NRECER,LHCER + INTEGER MAXBF2 + PARAMETER ( MAXBF2 = 39 * 7 ) + DOUBLE PRECISION CERCNT + REAL DATAB2(MAXBF2) + INTEGER NRECER,LHCER +*KEND. +c-----changed-add +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + COMMON /GRAAL1/ WAVELENGTH ! (NM) + REAL WAVELENGTH +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +*KEND. + + INTEGER J,IMOV +cxx-------------------- +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c-----changed-add + + INTEGER I + LOGICAL ROUT + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) WRITE(MDEBUG,3) + * PHOTCM,XCER,YCER,UEMIS,VEMIS,CARTIM,ZEMIS + 3 FORMAT(' OUTPT2: ',1P,8E10.3) + ROUT = .TRUE. + +C WRITE A BLOCK OF 39 PARTICLES TO THE CHERENKOV OUTPUT BUFFER AND +C CLEAR FIELD + CERCNT = CERCNT + PHOTCM + IF ( LCERFI ) THEN + IF ( ROUT ) THEN +c------changed--add -adn comand +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c DATAB2(LHCER+1) = PHOTCM +cc DATAB2(LHCER+1) = WAVELENGTH + J*1000. + DATAB2(LHCER+1) = J*100000. + IMOV*1000. + WAVELENGTH +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c------changed--add -adn comand + DATAB2(LHCER+2) = XCER + DATAB2(LHCER+3) = YCER + DATAB2(LHCER+4) = UEMIS + DATAB2(LHCER+5) = VEMIS + DATAB2(LHCER+6) = CARTIM + DATAB2(LHCER+7) = ZEMIS + LHCER = LHCER + 7 + IF ( LHCER .GE. MAXBF2 ) THEN + IF ( FPAROUT ) CALL TOBUFC( DATAB2,0 ) + DO 1 I = 1,MAXBF2 + DATAB2(I) = 0. + 1 CONTINUE + LHCER = 0 + ENDIF + ENDIF + ELSE +C WRITE A BLOCK OF 39 PARTICLES TO THE PARTICLE OUTPUT BUFFER AND +C CLEAR FIELD + IF ( ROUT ) THEN + DATAB(LH+1) = 99.E5 + NINT(PHOTCM)*10. + 1. + DATAB(LH+2) = XCER + DATAB(LH+3) = YCER + DATAB(LH+4) = UEMIS + DATAB(LH+5) = VEMIS + DATAB(LH+6) = CARTIM + DATAB(LH+7) = ZEMIS + LH = LH + 7 + NOPART = NOPART + 1 + IF ( LH .GE. MAXBUF ) THEN + IF ( FPAROUT ) CALL TOBUF( DATAB,0 ) + DO 2 I = 1,MAXBUF + DATAB(I) = 0. + 2 CONTINUE + LH = 0 + ENDIF + ENDIF + ENDIF + + RETURN + END +*CMZ : 25/04/2001 09.21.09 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 06/10/95 +C======================================================================= + + SUBROUTINE SELCOR(XX,YY) + +C----------------------------------------------------------------------- +C SEL(ECT) COR(E LOCATION) +C +C SELECT A QUASI RANDOM CORE LOCATION +C THIS SUBROUTINE IS CALLED FROM INPRM. +C ARGUMENTS: +C XX = X-VALUE OF QUASI-RANDOM CORE LOCATION +C YY = Y-VALUE OF QUASI-RANDOM CORE LOCATION +C +C DESIGN : J. KNAPP IK1 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CEREN2. + COMMON /CEREN2/ ACERX,ACERY,CERXOS,CERYOS, + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT, + * PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS, + * NCERX,NCERY,ICERML + DOUBLE PRECISION ACERX,ACERY,CERXOS(20),CERYOS(20), + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT + DOUBLE PRECISION PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS + INTEGER NCERX,NCERY,ICERML +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION RND(2),XX,YY + INTEGER I + LOGICAL FIRST + SAVE + DATA FIRST /.TRUE./ +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'SELCOR:' + +C INITIALIZE SOBOL NUMBER GENERATOR + IF ( FIRST ) THEN + FIRST = .FALSE. + CALL SOBSEQ(-2,RND) +C CALL THE RANDOM GENERATOR MANY TIMES ACCORDING SEED OF THIRD SEQUENCE +C TO PREVENT STARTING WITH IDENTICAL NUMBER FOR DIFFERENT RUNS + DO I = 1,ISEED(1,3) + CALL SOBSEQ(1,RND) + ENDDO + ENDIF +C TAKE A PAIR OF QUASI RANDOM NUMBERS + CALL SOBSEQ(2,RND) +c--------change + XX = ySCATT * (2.D0*RND(1)-1.D0) + YY = YSCATT * (2.D0*RND(2)-1.D0) + + IF (DEBUG) WRITE(MDEBUG,*) 'SELCOR: CORE LOCATION X=',XX,' Y=',YY + RETURN + END +*CMZ : 25/04/2001 09.21.09 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 06/10/95 +C======================================================================= + + SUBROUTINE SOBSEQ(N,XX) + +C----------------------------------------------------------------------- +C SOB(OL) SEQ(UENCE) +C +C SOBOL QUASI RANDOM NUMBER GENERATOR +C REFERENCE : NUMERICAL RECIPES, W.H. PRESS ET AL., +C CAMBRIDGE UNIVERSITY PRESS, 1992 ISBN 0 521 43064 X +C THIS SUBROUTINE IS CALLED FROM SELCOR. +C ARGUMENTS: +C N = NUMBER OF QUASI-RANDOM NUMBERS +C XX = ARRAY CONTAINING THE RANDOM NUMBERS +C +C THIS ROUTINE USES `LOGICAL AND' AND `EXCLUSIVE OR' SYSTEM FUNCTIONS +C `IAND' AND `IEOR' WHICH ARE NON-STANDARD FORTRAN FUNCTIONS !! +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION XX(*),FAC + INTEGER N,MAXBIT,MAXDIM + PARAMETER ( MAXBIT = 30, MAXDIM = 6 ) + INTEGER I,IM,IN,IPP,J,K,L,IP(MAXDIM),IU(MAXDIM,MAXBIT), + * IV(MAXBIT*MAXDIM),IX(MAXDIM),MDEG(MAXDIM) + EQUIVALENCE (IV,IU) + SAVE + DATA IP /0,1,1,2,1,4/, MDEG /1,2,3,3,4,4/, IX /6*0/, + * IV /6*1,3,1,3,3,1,1,5,7,7,3,3,5,15,11,5,15,13,9, + * 156*0/ +C----------------------------------------------------------------------- + + IF ( N .LT. 0 ) THEN + DO 14 K = 1,MAXDIM + DO 11 J = 1,MDEG(K) + IU(K,J) = IU(K,J)*2**(MAXBIT-J) + 11 CONTINUE + DO 13 J = MDEG(K)+1,MAXBIT + IPP = IP(K) + I = IU(K,J-MDEG(K)) +C IEOR IS A NON-STANDARD FORTRAN SYSTEM FUNCTION MAKING `EXCLUSIVE OR' + I = IEOR(I,I/2**MDEG(K)) + DO 12 L = MDEG(K)-1,1,-1 +C IAND IS A NON-STANDARD FORTRAN SYSTEM FUNCTION MAKING `LOGICAL AND' + IF ( IAND(IPP,1) .NE. 0 ) I = IEOR(I,IU(K,J-L)) + IPP = IPP/2 + 12 CONTINUE + IU(K,J) = I + 13 CONTINUE + 14 CONTINUE + FAC = 1.D0/(2.D0**MAXBIT) + IN = 0 + ELSE + IM = IN + DO 15 J = 1,MAXBIT +C IAND IS A NON-STANDARD FORTRAN SYSTEM FUNCTION MAKING `LOGICAL AND' + IF ( IAND(IM,1) .EQ. 0 ) GOTO 1 + IM = IM/2 + 15 CONTINUE + WRITE(MONIOU,*)'MAXBIT =',MAXBIT,' TOO SMALL IN SOBSEQ' + STOP + 1 IM = (J-1)*MAXDIM + DO 16 K = 1,MIN(N,MAXDIM) +C IEOR IS A NON-STANDARD FORTRAN SYSTEM FUNCTION MAKING `EXCLUSIVE OR' + IX(K) = IEOR(IX(K),IV(IM+K)) + XX(K) = IX(K)*FAC + 16 CONTINUE + IN = IN+1 + ENDIF + RETURN + END +*CMZ : 30/01/2001 17.27.18 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE TOBUFC( A,IFL ) + +C----------------------------------------------------------------------- +C (WRITE) TO BUF(FER) C(HERENKOV DATA) +C +C COPY TO BUFFER CHERENKOV DATA +C THIS SUBROUTINE IS CALLED FROM AAMAIN, INPRM, ELECTR, PHOTON, OUTND2, +C AND OUTPT2. +C ARGUMENTS: +C A = ARRAY TO BE WRITTEN TO TAPE +C IFL = STARTING OF FINAL OUTPUT +C = 0 NORMAL BLOCK +C = 1 NORMAL BLOCK WITH END OF OUTPUT +C = 2 ONLY END OF OUTPUT +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,CEREN3. + COMMON /CEREN3/ CERCNT,DATAB2,NRECER,LHCER + INTEGER MAXBF2 + PARAMETER ( MAXBF2 = 39 * 7 ) + DOUBLE PRECISION CERCNT + REAL DATAB2(MAXBF2) + INTEGER NRECER,LHCER +*KEND. + +C NSUBBL IS NUMBER OF SUBBLOCKS IN ONE OUTPUT RECORD + INTEGER NSUBBL + PARAMETER ( NSUBBL = 21 ) + REAL A(*) +C (OUTPUT RECORD LENGTH = NSUBBL * 39 * 7 * 4 BYTES <= 22932 ) +C OUTPUT BUFFER FOR CHERENKOV OUTPUT + REAL OUTBF2(MAXBF2,NSUBBL) +C IBLK2 IS COUNTER FOR SUBBLOCKS OF CHERENKOV OUTPUT + INTEGER I,IBLK2,IFL,K + SAVE + DATA IBLK2 / 0 / +C----------------------------------------------------------------------- + + IF ( IFL .LE. 1 ) THEN + IBLK2 = IBLK2 + 1 + DO 3 I = 1,MAXBF2 + OUTBF2(I,IBLK2) = A(I) + 3 CONTINUE + ENDIF + +C WRITE TO TAPE IF BLOCK IS FULL OR IF IFL IS 1 + IF ( IFL .GE. 1 .OR. IBLK2 .EQ. NSUBBL ) THEN + NRECER = NRECER + 1 +c-----changed---add------command +cxx WRITE(MCETAP) ((OUTBF2(I,K),I=1,MAXBF2),K=1,NSUBBL) +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c WRITE(CETAPE) ((OUTBF2(I,K),I=1,MAXBF2),K=1,NSUBBL) + call jccersave(outbf2) +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c-----changed---add------command + IBLK2 = 0 + DO 4 K = 1,NSUBBL + DO 4 I = 1,MAXBF2 + OUTBF2(I,K) = 0.0 + 4 CONTINUE + ENDIF + + RETURN + END +*CMZ : 14/06/2000 14.14.41 by D. HECK IK3 FZK KARLSRUHE +*-- Author : F. SCHROEDER UNI WUPPERTAL 01/07/99 +C======================================================================= + + DOUBLE PRECISION FUNCTION TOFIP(THEAP,HEAPP) + +C----------------------------------------------------------------------- +C T(IME) O(F) F(LIGHT) I(NTER)P(OLATION) +C +C DETERMINES TIME OF FLIGHT OF CHERENKOV PHOTON BY INTERPOLATING +C BETWEEN VALUES OF A TWO DIMENSIONAL TABLE TAKING INTO ACCOUNT +C BENDING OF THE CHERENKOV LIGHT IN A CURVED ATMOSPHERE +C THIS SUBROUTINE IS CALLED FROM CERENK. +C ARGUMENTS: +C THEAP = COSINE OF EMISSION ANGLE OF CHERENKOV PHOTON +C SEEN FROM THE DETECTOR +C HEAPP = EMISSION HEIGHT IN CM OF CHERENKOV PHOTON +C SEEN FROM THE DETECTOR +C +C DESIGN : F. SCHROEDER UNI WUPPERTAL +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,RTABLE, IF=CURVED. + COMMON /RTABLE/ DISTEF, TOF + INTEGER MHEIGH,NTHETA + PARAMETER ( MHEIGH = 453 ) ! NUMBER OF VALUES IN HEIGHT + PARAMETER ( NTHETA = 361 ) ! NUMBER OF VALUES IN THETA + DOUBLE PRECISION DISTEF(NTHETA,MHEIGH),TOF(NTHETA,MHEIGH) +*KEND. + + DOUBLE PRECISION ATOF,BTOF,B,FACT,HEAPP,HEAPP2,HM,HM1,OBS, + * THEAP,THEAP2,THN,THN1 + INTEGER M,M1,M2,N,N1,N2 + LOGICAL FIRST + SAVE + DATA FIRST /.TRUE. / +C----------------------------------------------------------------------- + + IF ( FIRST ) THEN + FACT = 90.D0/ACOS(0.D0) + FIRST = .FALSE. +C TRANSFORM ALSO OBSLEV(1) IN UNITS OF KM + OBS = OBSLEV(1) * 1.D-5 + ENDIF +C TRANSFORM INPUT PARAMETERS IN BETTER UNITS + THEAP2 = ACOS( THEAP ) * FACT * 4.D0 ! NOW THETA IN DEG*4 + HEAPP2 = HEAPP * 1.D-5 * 4.D0 ! AND HEIGHT IN KM*4 + +C TOF = TOF(THEAP, HEAPP) = TOF(N, M) (N*M-MATRIX) +C MONOTONIC ASCENDING ORDER: +C THEAP: [0- 90] DEG => THEAP(1) = 0 DEG, THEAP(NTHETA) = 90 DEG +C HEAPP: [0-113] KM => HEAPP(1) = 0 KM, HEAPP(MHEIGH) = 113 KM + +C GET NUMBERS (APPARENT THETA) (N-1,N) WHICH ARE NEAREST TO THEAP + N2 = INT(THEAP2) + N1 = N2 + 1 + N = N2 + 2 +C GET NUMBERS (APPARENT HEIGHT) (M-1,M) WHICH ARE NEAREST TO HEAPP + M2 = INT(HEAPP2) + M1 = M2 + 1 + M = M2 + 2 +C NOW PERFORM LINEAR INTERPOLATION OF TOF BETWEEN TABULATED VALUES +C HEAPP(M) = (M-1) [KM] +C THEAP(N) = (N-1) [DEG] + THN = DBLE(N1) + THN1 = DBLE(N2) + HM = DBLE(M1) + HM1 = DBLE(M2) + IF ( HM1 .LT. OBS ) HM1 = OBS + +C INTERPOLATE BETWEEN TOF(N-1, M-1) AND TOF(N-1,M) + B = ( TOF(N1, M) - TOF(N1, M1) ) / ( HM - HM1 ) + ATOF = B * ( HEAPP2 - HM1 ) + TOF(N1,M1) +C INTERPOLATE BETWEEN TOF(N, M-1) AND TOF(N,M) + B = ( TOF(N, M) - TOF(N, M1) ) / ( HM - HM1 ) + BTOF = B * ( HEAPP2 - HM1 ) + TOF(N,M1) +C INTERPOLATE BETWEEN ATOF = TOF(N-1,M_MEAN) +C AND BTOF = TOF(N,M_MEAN) + B = ( BTOF - ATOF ) / ( THN - THN1 ) + TOFIP = B * ( THEAP2 - THN1 ) + ATOF + + RETURN + END Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/c614nx-osf.f =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/c614nx-osf.f (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/c614nx-osf.f (revision 1444) @@ -0,0 +1,34625 @@ +*CMZ : 05/03/2002 08.29.07 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C====================================================================== + + PROGRAM AAMAIN + +C----------------------------------------------------------------------- +C MAIN PROGRAM +C +C SIMULATION OF EXTENSIVE AIR SHOWERS +C PREPARES INITIALIZATIONS +C GENERATES SHOWERS IN THE SHOWER LOOP +C TREATES PARTICLES IN THE PARTICLE LOOP +C PERFORMS PRINTING OF TABLES AT END OF SHOWER AND AT END OF RUN +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +c-----changed--add +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + parameter (xct=1) + parameter (yct=2) + parameter (zct=3) + parameter (ctthet=4) + parameter (ctphi=5) + parameter (ctdiam=6) + parameter (ctfoc=7) +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c-----changed--add +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW,flag +c-----changed--add + logical fmfb +c-----changed--add +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,CHISTA. + COMMON /CHISTA/ IHYCHI,IKACHI,IMUCHI,INNCHI,INUCHI,IPICHI + INTEGER IHYCHI(124),IKACHI(124),IMUCHI(124), + * INNCHI(124),INUCHI(124),IPICHI(124) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,CURVE. + COMMON /CURVE/ CHAPAR,DEP,ERR,NSTP + DOUBLE PRECISION CHAPAR(1200),DEP(1200),ERR(1200) + INTEGER NSTP +*KEEP,ELADPM. + COMMON /ELADPM/ ELMEAN,ELMEAA,IELDPM,IELDPA + DOUBLE PRECISION ELMEAN(40),ELMEAA(40) + INTEGER IELDPM(40,13),IELDPA(40,13) +*KEEP,ELASTY. + COMMON /ELASTY/ ELAST + DOUBLE PRECISION ELAST +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,ISTA. + COMMON /ISTA/ IFINET,IFINNU,IFINKA,IFINPI,IFINHY + INTEGER IFINET,IFINNU,IFINKA,IFINPI,IFINHY +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MAGNET. + COMMON /MAGNET/ BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT + DOUBLE PRECISION BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT +*KEEP,MPARTI. + COMMON /MPARTI/ MPARTO + DOUBLE PRECISION MPARTO(10,25),MPHOTO(10),MPOSIT(10),MELECT(10), + * MNU(10),MMUP(10),MMUM(10),MPI0(10),MPIP(10), + * MPIM(10),MK0L(10),MKPL(10),MKMI(10),MNEUTR(10), + * MPROTO(10),MPROTB(10),MK0S(10),MHYP(10), + * MNEUTB(10),MDEUT(10),MTRIT(10),MALPHA(10), + * MOTHER(10),MMUOND + EQUIVALENCE (MPARTO(1, 1),MPHOTO(1)), (MPARTO(1, 2),MPOSIT(1)), + * (MPARTO(1, 3),MELECT(1)), (MPARTO(1, 4),MNU(1)) , + * (MPARTO(1, 5),MMUP(1)) , (MPARTO(1, 6),MMUM(1)) , + * (MPARTO(1, 7),MPI0(1)) , (MPARTO(1, 8),MPIP(1)) , + * (MPARTO(1, 9),MPIM(1)) , (MPARTO(1,10),MK0L(1)) , + * (MPARTO(1,11),MKPL(1)) , (MPARTO(1,12),MKMI(1)) , + * (MPARTO(1,13),MNEUTR(1)), (MPARTO(1,14),MPROTO(1)), + * (MPARTO(1,15),MPROTB(1)), (MPARTO(1,16),MK0S(1)) , + * (MPARTO(1,18),MHYP(1)) , (MPARTO(1,19),MDEUT(1)) , + * (MPARTO(1,20),MTRIT(1)) , (MPARTO(1,21),MALPHA(1)), + * (MPARTO(1,22),MOTHER(1)), (MPARTO(1,25),MNEUTB(1)), + * (MPARTO(1,23),MMUOND) +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,NCOUNT. + COMMON /NCOUNT/ NCOUN + INTEGER NCOUN(8) +*KEEP,NKGI. + COMMON /NKGI/ SEL,SELLG,STH,ZEL,ZELLG,ZSL,DIST, + * DISX,DISY,DISXY,DISYX,DLAX,DLAY,DLAXY,DLAYX, + * OBSATI,RADNKG,RMOL,TLEV,TLEVCM,IALT + DOUBLE PRECISION SEL(10),SELLG(10),STH(10),ZEL(10),ZELLG(10), + * ZSL(10),DIST(10), + * DISX(-10:10),DISY(-10:10), + * DISXY(-10:10,2),DISYX(-10:10,2), + * DLAX (-10:10,2),DLAY (-10:10,2), + * DLAXY(-10:10,2),DLAYX(-10:10,2), + * OBSATI(2),RADNKG,RMOL(2),TLEV(10),TLEVCM(10) + INTEGER IALT(2) +*KEEP,NKGS. + COMMON /NKGS/ CZX,CZY,CZXY,CZYX,SAH,SL,ZNE + DOUBLE PRECISION CZX(-10:10,2),CZY(-10:10,2),CZXY(-10:10,2), + * CZYX(-10:10,2),SAH(10),SL(10),ZNE(10) +*KEEP,NPARTI. + COMMON /NPARTI/ NPARTO + DOUBLE PRECISION NPARTO(10,25),NPHOTO(10),NPOSIT(10),NELECT(10), + * NNU(10),NMUP(10),NMUM(10),NPI0(10),NPIP(10), + * NPIM(10),NK0L(10),NKPL(10),NKMI(10),NNEUTR(10), + * NPROTO(10),NPROTB(10),NK0S(10),NHYP(10), + * NNEUTB(10),NDEUT(10),NTRIT(10),NALPHA(10), + * NOTHER(10),NMUOND + EQUIVALENCE (NPARTO(1, 1),NPHOTO(1)), (NPARTO(1, 2),NPOSIT(1)), + * (NPARTO(1, 3),NELECT(1)), (NPARTO(1, 4),NNU(1)) , + * (NPARTO(1, 5),NMUP(1)) , (NPARTO(1, 6),NMUM(1)) , + * (NPARTO(1, 7),NPI0(1)) , (NPARTO(1, 8),NPIP(1)) , + * (NPARTO(1, 9),NPIM(1)) , (NPARTO(1,10),NK0L(1)) , + * (NPARTO(1,11),NKPL(1)) , (NPARTO(1,12),NKMI(1)) , + * (NPARTO(1,13),NNEUTR(1)), (NPARTO(1,14),NPROTO(1)), + * (NPARTO(1,15),NPROTB(1)), (NPARTO(1,16),NK0S(1)) , + * (NPARTO(1,18),NHYP(1)) , (NPARTO(1,19),NDEUT(1)) , + * (NPARTO(1,20),NTRIT(1)) , (NPARTO(1,21),NALPHA(1)), + * (NPARTO(1,22),NOTHER(1)), (NPARTO(1,25),NNEUTB(1)), + * (NPARTO(1,23),NMUOND) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,PRIMSP. + COMMON /PRIMSP/ PSLOPE,LLIMIT,ULIMIT,LL,UL,SLEX,ISPEC + DOUBLE PRECISION PSLOPE,LLIMIT,ULIMIT,LL,UL,SLEX + INTEGER ISPEC +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RECORD. + COMMON /RECORD/ IRECOR + INTEGER IRECOR +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,RESON. + COMMON /RESON/ RDRES,RESRAN,IRESPAR + REAL RDRES(2),RESRAN(30000) + INTEGER IRESPAR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEEP,STACKF. + COMMON /STACKF/ STACK,MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT, + * NTO,NFROM + INTEGER MAXSTK + PARAMETER (MAXSTK = 16*256*2) + DOUBLE PRECISION STACK(MAXSTK) + INTEGER MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM +*KEEP,STATI. + COMMON /STATI/ SABIN,SBBIN,INBIN,IPBIN,IKBIN,IHBIN + DOUBLE PRECISION SABIN(40),SBBIN(40) + INTEGER INBIN(40),IPBIN(40),IKBIN(40),IHBIN(40) +*KEEP,TABLES. + INTEGER IEBIN, ITBIN, IDBIN + PARAMETER (IEBIN=40,ITBIN=30,IDBIN=20) + COMMON /TABLES/ G_ARRAY, E_ARRAY, M_ARRAY, + * EBOFF,EBFAC,TBOFF,TBFAC,DBOFF,DBFAC + REAL G_ARRAY(IEBIN,ITBIN,IDBIN) + REAL E_ARRAY(IEBIN,ITBIN,IDBIN) + REAL M_ARRAY(IEBIN,ITBIN,IDBIN) + REAL EBOFF,EBFAC,TBOFF,TBFAC,DBOFF,DBFAC + REAL EBMIN,EBMAX,TBMIN,TBMAX,DBMIN,DBMAX + PARAMETER (EBMIN=1.E-4,EBMAX=1.E4) + PARAMETER (TBMIN=10.,TBMAX=1.E4) + PARAMETER (DBMIN=5.E3,DBMAX=5.E5) +*KEEP,THNVAR. + COMMON /THNVAR/ STACKINT, + * INT_ICOUNT,MODETHN,THINNING + INTEGER MAXICOUNT + PARAMETER (MAXICOUNT=40000) + DOUBLE PRECISION STACKINT(16,MAXICOUNT) + INTEGER INT_ICOUNT,MODETHN + LOGICAL THINNING +*KEEP,VERS. + COMMON /VERS/ VERNUM,MVDATE,VERDAT + DOUBLE PRECISION VERNUM + INTEGER MVDATE + CHARACTER*18 VERDAT +*KEEP,CEREN1. + COMMON /CEREN1/ CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR,LCERFI + DOUBLE PRECISION CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR + LOGICAL LCERFI +*KEEP,CEREN2. + COMMON /CEREN2/ ACERX,ACERY,CERXOS,CERYOS, + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT, + * PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS, + * NCERX,NCERY,ICERML + DOUBLE PRECISION ACERX,ACERY,CERXOS(20),CERYOS(20), + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT + DOUBLE PRECISION PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS + INTEGER NCERX,NCERY,ICERML +*KEEP,CEREN3. + COMMON /CEREN3/ CERCNT,DATAB2,NRECER,LHCER + INTEGER MAXBF2 + PARAMETER ( MAXBF2 = 39 * 7 ) + DOUBLE PRECISION CERCNT + REAL DATAB2(MAXBF2) + INTEGER NRECER,LHCER +*KEND. +c----add -changed +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +*keep,certel. + common /certel/ cormxd,cord,coralp,ctpars,omega, + + photn,photnp,phpt,pht,vphot, + + vchi,veta,vzeta,vchim,vetam,vzetam, + + lambda,mu,nu,nctels,ncph,phip1,thetap1 + double precision cormxd,cord,coralp,ctpars(20,7),omega(20,3,3), + + photn(3),photnp(3),phpt(3),pht,vphot(3), + + vchi(3),veta(3),vzeta(3),vchim,vetam,vzetam, + + lambda,mu,nu + integer nctels,ncph(5) + double precision xg,yg,zg,xgp,ygp,zgp,up,vp,wp,xpcut,ypcut,zpcut + double precision thetap1,phip1 + equivalence (photn(1) ,xg) ,(photn(2) ,yg) ,(photn(3) ,zg) , + + (photnp(1),xgp) ,(photnp(2),ygp) ,(photnp(3),zgp), + + (phpt(1) ,xpcut),(phpt(2) ,ypcut),(phpt(3) ,zpcut), + + (vphot(1) ,up) ,(vphot(2) ,vp) ,(vphot(3) ,wp) + +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c Angles for the "spinning" of a particle around the +c main axis of the CT + common /spinang/ spinxi + double precision spinxi +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c----add -changed + + DOUBLE PRECISION JNBIN(40),JPBIN(40),JKBIN(40),JHBIN(40) + DOUBLE PRECISION CHI2,FPARAM(6) + DOUBLE PRECISION MPART2(10,25),MPHOT2(10),MPOSI2(10),MELEC2(10), + * MNU2(10),MMUP2(10),MMUM2(10),MPI02(10),MPIP2(10), + * MPIM2(10),MK0L2(10),MKPL2(10),MKMI2(10), + * MNETR2(10),MPROT2(10),MPRTB2(10),MK0S2(10), + * MHYP2(10),MNETB2(10),MDEUT2(10),MTRIT2(10), + * MALPH2(10),MOTH2(10) + EQUIVALENCE (MPART2(1, 1),MPHOT2(1)), (MPART2(1, 2),MPOSI2(1)), + * (MPART2(1, 3),MELEC2(1)), (MPART2(1, 4),MNU2(1)) , + * (MPART2(1, 5),MMUP2(1)) , (MPART2(1, 6),MMUM2(1)) , + * (MPART2(1, 7),MPI02(1)) , (MPART2(1, 8),MPIP2(1)) , + * (MPART2(1, 9),MPIM2(1)) , (MPART2(1,10),MK0L2(1)) , + * (MPART2(1,11),MKPL2(1)) , (MPART2(1,12),MKMI2(1)) , + * (MPART2(1,13),MNETR2(1)), (MPART2(1,14),MPROT2(1)), + * (MPART2(1,15),MPRTB2(1)), (MPART2(1,16),MK0S2(1)) , + * (MPART2(1,18),MHYP2(1)) , (MPART2(1,19),MDEUT2(1)), + * (MPART2(1,20),MTRIT2(1)), (MPART2(1,21),MALPH2(1)), + * (MPART2(1,22),MOTH2 (1)), (MPART2(1,25),MNETB2(1)) + DOUBLE PRECISION THICK + INTEGER LPCT0,LPCT1 + EXTERNAL BLOCK1,EGS4BD,HEIGH,THICK + DOUBLE PRECISION DL,DIAG,FIXHAPP,THCKHN,THICKC + EXTERNAL THICKC + DOUBLE PRECISION XVC1,XVC2,YVC1,YVC2,ZVC1,ZVC2 +C VARIABLES BEING USED FOR RUNTIME + REAL TDIFF + INTEGER ILEFTA,ILEFTB + EXTERNAL TIMER +c-----changed---add +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + double precision ctdiams(20) +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + double precision theprim, phiprim + double precision spinthe, spinphi +c double precision thetap1,phip1 + +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c-----changed--add +C----------------------------------------------------------------------- + + + CERELE = 0.D0 + CERHAD = 0.D0 + NRECER = 0 +C INITIALIZE AND READ RUN STEERING CARDS + CALL START + + IF ( CERSIZ .LE. 0.D0 ) THEN + ICRSIZ = 0 + ELSE + ICRSIZ = 1 + ENDIF + +C RESET COUNTER FOR WORDS WRITTEN TO TAPE + IRECOR = 0 + +C RESET COUNTER FOR AVERAGE HEIGHT OF 1ST INTERACTION + CHISUM = 0.D0 + CHISM2 = 0.D0 + +C SET ARRAYS FOR SCALES OF KINETIC ENERGY-INTERACTION TABLE + SABIN(1) = 0.D0 + SBBIN(1) = 0.1D0 + DO 13 J = 2,40 + SABIN(J) = 10.D0**((J-5.D0)/3.D0) + SBBIN(J) = 10.D0**((J-4.D0)/3.D0) + 13 CONTINUE + +C CHECK AND SET PRIMARY PARAMETERS + CALL INPRM + +C INITIALIZE NKG ROUTINES + CALL ININKG + +C RESET COUNTERS FOR NUCLEON, PION AND KAON TABLE FOR ALL SHOWERS +C RESET ENERGY-MULTIPLICITY & ENERGY-ELASTICITY MATRIX FOR ALL SHOWERS + DO 17 J = 1,40 + JNBIN(J) = 0.D0 + JPBIN(J) = 0.D0 + JKBIN(J) = 0.D0 + JHBIN(J) = 0.D0 + ELMEAA(J) = 0.D0 + DO 17 L = 1,13 + MULTOT(J,L) = 0 + IELDPA(J,L) = 0 + 17 CONTINUE + +C RESET ARRAYS FOR INTERACTION LENGTH STATISTICS + DO 90 J = 1,124 + IHYCHI(J) = 0 + IKACHI(J) = 0 + IMUCHI(J) = 0 + INUCHI(J) = 0 + IPICHI(J) = 0 + INNCHI(J) = 0 + 90 CONTINUE + +C RESET ARRAY FOR MEAN VALUES AND STANDARD DEVIATION + DO 477 K = 1,25 + DO 477 J = 1,10 + MPARTO(J,K) = 0.D0 + MPART2(J,K) = 0.D0 + 477 CONTINUE + +C RESET ARRAYS FOR AVERAGE LONGITUDINAL DISTRIBUTION + IF ( LLONGI ) THEN + LPCT0 = NSTEP + LPCT1 = 1 + DO J = 0,NSTEP + DO K = 1,9 + AELONG(J,K) = 0.D0 + APLONG(J,K) = 0.D0 + SELONG(J,K) = 0.D0 + SPLONG(J,K) = 0.D0 + ENDDO + DO K = 1,9 + ADLONG(J,K) = 0.D0 + SDLONG(J,K) = 0.D0 + ENDDO + ENDDO + ENDIF + +C STEERING OF PRINTOUT OF RANDOM GENERATOR SEEDS + IPROUT = MIN(100,NSHOW/20) + IPROUT = MAX(1,IPROUT) + +C TIME AT BEGINNING + CALL TIMER( ILEFTA ) +c-----changed--add +cxxc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +cxx ILEFTA = 0 +cxxc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +CBC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +C +C Modified by C. Bigongiari 2001 Jan 16 +C +C +Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + print *,'JCIO::========================================' + print *,'JCIO:: Initializing JCIO system for advanced' + print *,'JCIO:: saving of data.' + print *,'JCIO::========================================' +C +Cc- initialize jcio system +C + call jcinitio(dsn,nrrun) +Cc- create file run###### +C call jcstartrun(runh) +Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +C +C- Modified JCSTARTRUN creates cer###### and dat###### files ! +C +C ###### is the RUN number ! +C + + call jcstartrun(RUNH) + +C +C- write Run Header on cer and dat files +C + CALL TOBUF(RUNH,0) + IF ( LCERFI ) CALL TOBUFC(RUNH,0) + +C +CBC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +c------changed--add +C----------------------------------------------------------------------- +C----------------------------------------------------------------------- +C LOOP OVER SHOWERS + DO 2 ISHW = 1,NSHOW + + ISHOWNO = ISHOWNO + 1 + I = ISHW + IF ( ISHW .LE. MAXPRT ) THEN + FPRINT = .TRUE. + ELSE + FPRINT = .FALSE. + ENDIF + +C ENTRY POINT IF COLLISION WAS NOT ACCEPTED IN INTTEST + 2222 CONTINUE + +C FIRST INTERACTION DATA + FIRSTI = .TRUE. + IFINET = 0 + IFINNU = 0 + IFINKA = 0 + IFINPI = 0 + IFINHY = 0 + ELAST = 0.D0 + THICK1 = 0.D0 + TARG1I = 0.D0 + SIGAIR = 0.D0 + SIG1I = 0.D0 + +C RESET COUNTERS + DO 447 K = 1,25 + DO 447 J = 1,10 + NPARTO(J,K) = 0.D0 + 447 CONTINUE + +C RESET ARRAY FOR LONGITUDINAL DISTRIBUTION PER SHOWER + IF ( LLONGI ) THEN + DO 479 K = 1,9 + DO J = 0,NSTEP + DLONG(J,K) = 0.D0 + ELONG(J,K) = 0.D0 + PLONG(J,K) = 0.D0 + ENDDO + 479 CONTINUE + ENDIF + + NRECS = 0 + NBLKS = 0 + DO 922 KKK = 1,10 + AVNREJ(KKK) = 0.D0 + 922 CONTINUE + IRESPAR = 0 + +C RESET COUNTERS FOR NUCLEON, PION AND KAON TABLE FOR SHOWER +C RESET ENERGY-MULTIPLICITY & ENERGY-ELASTICITY MATRIX FOR SHOWER + DO 11 J = 1,40 + INBIN(J) = 0 + IPBIN(J) = 0 + IKBIN(J) = 0 + IHBIN(J) = 0 + ELMEAN(J) = 0.D0 + DO 11 L = 1,13 + MULTMA(J,L) = 0 + IELDPM(J,L) = 0 + 11 CONTINUE + +C RESET PARTICLE TABLES + IF ( FTABOUT ) THEN + DO IIE = 1,IEBIN + DO IIT = 1,ITBIN + DO IID = 1,IDBIN + G_ARRAY(IIE,IIT,IID) = 0. + E_ARRAY(IIE,IIT,IID) = 0. + M_ARRAY(IIE,IIT,IID) = 0. + ENDDO + ENDDO + ENDDO + ENDIF + +C INITIALIZE PARTICLE STACK + CALL ISTACK +C RESET STACKINT + DO J = 1,MAXICOUNT + DO K = 1,MAXLEN + STACKINT(K,J) = 0.D0 + ENDDO + ENDDO + IRET1 = 0 + +C INITIALIZE EVENT HEADER AND END FOR EACH EVENT + DO 2123 L = 2,43 + EVTH(L) = 0. + 2123 CONTINUE + DO 123 L = 2,MAXBUF + EVTE(L) = 0. + 123 CONTINUE + +C SHOWER BEGIN PRINTOUT + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,105) ISHOWNO + 105 FORMAT ('1',10('='),' SHOWER NO ',I10,' ',47('=')/) + +C RANDOM GENERATOR STATUS AT BEGINNING OF SHOWER CALCULATION + EVTH(13) = NSEQ + DO 45 L = 1,NSEQ + CALL RMMAQ( ISEED(1,L), L, 'R' ) +C SEED + EVTH(11+L*3) = ISEED(1,L) +C NUMBER OF CALLS + EVTH(12+L*3) = MOD ( ISEED(2,L), 1000000 ) +C NUMBER OF MILLIONS + EVTH(13+L*3) = ISEED(3,L)*1000 + INT( ISEED(2,L)/1000000 ) + 45 CONTINUE + IF ( FPRINT .OR. DEBUG .OR. MOD(ISHW-1,IPROUT).EQ.0 ) THEN + CALL PRTIME(TTIME) + WRITE(MONIOU,158) ISHOWNO,(L,(ISEED(J,L),J=1,3),L=1,NSEQ) + 158 FORMAT(' AND RANDOM NUMBER GENERATOR AT BEGIN OF EVENT :',I8, + * /,(' SEQUENCE = ',I2,' SEED = ',I9 ,' CALLS = ',I9, + * ' BILLIONS = ',I9)) + ENDIF +C RESET KNOR + KNOR = .TRUE. + +C GET FULL RANDOM GENERATOR STATUS (103 WORDS PER SEQUENCE) +CC DO 495 L = 1,NSEQ +CC CALL RMMAQ( ISEED(1,L), L, 'RV' ) +CC WRITE(MONIOU,658) L,(ISEED(J,L),J=1,103) +CC658 FORMAT ( ' FULL RANDOM NUMBER GENERATOR STATUS ', +CC * 'FOR SEQUENCE ',I2,/(' ',10I11)) +CC495 CONTINUE + +C GET PRIMARY ENERGY INTO PRMPAR(2) + IF ( ISPEC .EQ. 0 ) THEN + PRMPAR(2) = LLIMIT + ELSE + CALL RMMAR( RD,1,1 ) + IF ( PSLOPE .NE. -1.D0 ) THEN + PRMPAR(2) = ( RD(1)*UL + ( 1.D0-RD(1) )*LL )**SLEX + ELSE + PRMPAR(2) = LLIMIT * LL**RD(1) + ENDIF + IF ( FPRINT .OR. DEBUG .OR. MOD(ISHW-1,IPROUT).EQ.0 ) + * WRITE(MONIOU,*) 'PRIMARY ENERGY = ',PRMPAR(2),' GEV' + ENDIF +C IF YOU WANT TO USE KINETIC ENERGY IN PRIMARY SPECTRUM +C YOU HAVE TO ADD THE PRIMARY'S REST MASS: +cc PRMPAR(2) = PRMPAR(2) + PAMA(NINT(PRMPAR(1))) +c-------------changes---add + THETAP1 = THETPR(1) + PHIP1 = PHIPR(1) +c-------------changes---add + + + +C GET PRIMARY ANGLES OF INCIDENCE + IF ( FIXINC ) THEN + THETAP = THETPR(1) + PHIP = PHIPR(1) + IF ( VUECON(2) .GT. 0.D0 ) THEN +C THROW UNIFORMLY DISTRIBUTED DIRECTION IN VIEWING CONE OR CONE RING +C FOR NOW + 46 CALL RMMAR( RD,3,1 ) + CT1 = COS(VUECON(1)) + CT2 = COS(VUECON(2)) + CTT = RD(2) * ( CT2 - CT1 ) + CT1 + THETAP = ACOS(CTT) + PHIP = RD(1) * PI2 +C TEMPORARY CARTESIAN COORDINATES + XVC1 = COS(PHIP)*SIN(THETAP) + YVC1 = SIN(PHIP)*SIN(THETAP) + ZVC1 = COS(THETAP) +C ROTATE AROUND Y AXIS + XVC2 = XVC1*COS(THETPR(1)) + ZVC1*SIN(THETPR(1)) + YVC2 = YVC1 + ZVC2 = ZVC1*COS(THETPR(1)) - XVC1*SIN(THETPR(1)) +C FOR A HORIZONTAL TARGET, THE COS(THETA) WEIGHT IS OBTAINED BY +C THROWING THE DICE ANOTHER TIME. + IF ( RD(3) .GT. ZVC2 ) GOTO 46 + THETAP = ACOS(ZVC2) + IF ( THETAP .GT. 88.D0*(PI/180.D0) ) GOTO 46 + PHIP = ATAN2(YVC2,XVC2) + PHIPR(1) + IF ( PHIP .GT. PI2 ) PHIP = PHIP - PI2 + IF ( PHIP .LT. 0.D0 ) PHIP = PHIP + PI2 + ENDIF + +C COSINE OF APPARENT ZENIT ANGLE IS PUT IN PRMPAR(15) +C (COSINE OF LOCAL ZENIT ANGLE IS IN PRMPAR(3)) + PRMPAR(15) = COS(THETAP) + ELSE +C CHOOSE ANGLES AT RANDOM WITH EQUAL FLUX FOR ALL DIRECTIONS +C WITH HORIZONTAL DETECTOR ARRAY (SEE: O.C. ALLKOFER & P.K.F. GRIEDER, +C COSMIC RAYS ON EARTH, IN: PHYSICS DATA 25/1, H.BEHRENS & G.EBEL ED., +C (FACHINFORMATIONSZENTRUM KARLSRUHE, GERMANY, 1983) CHPT. 1.1.2) + CALL RMMAR( RD,3,1 ) + CT1 = SIN(THETPR(1))**2 + CT2 = SIN(THETPR(2))**2 + CTT = SQRT( 1.D0 - RD(2)*(CT2 - CT1) - CT1 ) + THETAP = ACOS(CTT) + PHIP = RD(1) * ( PHIPR(2) - PHIPR(1) ) + PHIPR(1) +C CALCULATION IS THE SAME AS IN THE CASE OF A FLAT ATMOSPHERE BECAUSE +C FOR THIS CALCULATION THE APPARENT ANGLES AT DETECTOR ARE NEEDED. +C COSINE OF APPARENT ZENITH ANGLE IS PUT IN PRMPAR(15) = COSTAP + PRMPAR(15) = CTT + ENDIF + PRMPAR(4) = PHIP + IF ( FPRINT .OR. DEBUG .OR. MOD(ISHW-1,IPROUT).EQ.0 ) THEN + IF ( VUECON(2) .GT. 0.D0 ) WRITE(MONIOU,669) THETAP,PHIP + 669 FORMAT(' PRIMARY ANGLES ARE: THETA = ',F6.4,' RAD AND ', + * ' PHI = ',F6.4,' RAD') + ENDIF + +C DEFINE HEIGHT FOR START AT THICK0 (IN G/CM**2) +C WHICH IS 112.8 KM FOR THICK0 = 0 + PRMPAR(5) = HEIGH(THICK0) + IF ( LLONGI ) LPCT0 = MIN( INT(THICK0*THSTPI), LPCT0 ) + +C CALCULATE COORDINATE CORRECTION FOR TOP OF ATMOSPHERE +C ALL CALCULATIONS FOR CURPAR ARE MADE IN CORINC +C (COSTHE, HAPP, COSTEA). (X, Y) FOR SHOWER CORE = (0,0) + H = PRMPAR(5) + CURPAR(15) = PRMPAR(15) + CALL CORINC + +C COUNTER FOR PARTICLE OUTPUT + LH = 0 +C COUNTER FOR CHERENKOV OUTPUT + IF ( LCERFI ) LHCER = 0 +C CALCULATE BUNCH SIZE FOR CHERENKOV PHOTONS IF NOT SET IN DATAC + IF ( ICRSIZ .EQ. 0 ) THEN + CALL GETBUS( NINT(PRMPAR(1)),PRMPAR(2),PRMPAR(3),CERSIZ ) + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,*) + * 'CHERENKOV BUNCH SIZE IS CALCULATED TO=',CERSIZ + ENDIF + IF ( ICERML .GE. 1 ) THEN + DO 4438 III = 1,ICERML +c--changes--add +c 5226 CALL SELCOR(CERXOS(III),CERYOS(III)) + if(yscatt.eq.xscatt) then + cerxos(iii)=yscatt/dcos(thetap1)*dcos(phip1) + ceryos(iii)=yscatt/dcos(thetap1)*dsin(phip1) + else + 5226 CALL RMMAR( RD,2,3 ) + CERXOS(III) = 2.0*YSCATT*(RD(1)-0.5)/dcos(thetap1) + CERYOS(III) = 2.0*YSCATT*(RD(2)-0.5)/dcos(thetap1) + xx=cerxos(iii)*dcos(phip1)-ceryos(iii)*dsin(phip1) + yy=cerxos(iii)*dsin(phip1)+ceryos(iii)*dcos(phip1) + r=dsqrt((xx*dcos(thetap1))**2+yy**2+1.d-7) + +c R=SQRT(CERXOS(I)**2+CERYOS(I)**2) + IF ((R.LT.XSCATT).OR.(R.GT.YSCATT)) GOTO 5226 + endif +c--changes--add + + WRITE(MONIOU,4437) ISHW,III,CERXOS(III),CERYOS(III) + 4437 FORMAT(' CORE OF EVENT ',I5,' (SCATT# ',I2, + * ') AT ',F12.2,9X,F12.2,' CM') + 4438 CONTINUE + ENDIF + DO 480 III = 1,20 + EVTH( 98+III) = CERXOS(III) + EVTH(118+III) = CERYOS(III) + 480 CONTINUE +C GET GAMMA FACTOR FROM ENERGY +C FOR MASSLESS PRIMARIES PRMPAR(2) STAYS = ENERGY + IF ( PAMA(NINT(PRMPAR(1))) .NE. 0.D0 ) + * PRMPAR(2) = PRMPAR(2) / PAMA(NINT(PRMPAR(1))) + +C SET PRIMARY TO CURRENT PARTICLE + DO J = 1,8 + CURPAR(J) = PRMPAR(J) + NCOUN(J) = 0 + ENDDO +C CALCULATE FIRST INTERACTION POINT IF HADRONIC + GEN = 0.D0 + H = HEIGH(THICK0) + CALL BOX2 + IF ( FIX1I ) THEN +C CALCULATE GEOMETRIC PATH LENGHT TO FIXED FIRST INTERACTION POINT IN +C DETECTOR FRAME (DUE TO DIFFERENCES IN H AND FIXHEI (POSSIBLY VERY +C DIFFERENT COORDINATE FRAMES) AND TAKE NRANGC FOR GETTING CHI IN A +C CURVED ATMOSPHERE + DIAG = SQRT( (C(1)+FIXHEI)**2 - (C(1)+OBSLEV(1))**2 + * * (1.D0-PRMPAR(15)**2) ) - (C(1)+OBSLEV(1))*PRMPAR(15) + FIXHAPP = OBSLEV(1) + DIAG * PRMPAR(15) + DL = (HAPP - FIXHAPP) / PRMPAR(15) + CALL NRANGC(DL) + H = FIXHEI + FDECAY = .FALSE. + + ELSE +C CHI IS GIVEN BY BOX2 + THICKH = THICK0 + THCKHN = THICKC(CHI) + H = HEIGH(THCKHN) + H = MAX( H, HLAY(1) - 100.D0 ) + ENDIF + HEIGHP = H + THICK1 = THICK(H) + IF ( CURPAR(1) .GT. 3.D0 .OR. .NOT. FEGS ) THEN + CHISUM = CHISUM + CHI + CHISM2 = CHISM2 + CHI**2 + ENDIF + ALEVEL = H + +C STORE PRIMARY COORDINATES FOR ADDITIONAL MUON INFORMATION + IF ( FMUADD ) THEN + IF ( CURPAR(1) .EQ. 5 .OR. CURPAR(1) .EQ. 6 ) THEN + DO J = 1,MAXLEN + AMUPAR(J) = CURPAR(J) + ENDDO + AMUPAR(5) = PRMPAR(5) + IF ( DEBUG ) WRITE(MDEBUG,*) 'AAMAIN: MUON STORED IN AMUPAR' + FMUORG = .TRUE. + ELSE + FMUORG = .FALSE. + ENDIF + ENDIF + +C SET TARGET FLAG IF SELECTED FOR FIRST INTERACTION + IF ( N1STTR .GT. 0 ) THEN + FIXTAR = .TRUE. + FDECAY = .FALSE. + EVTH(6) = REAL(N1STTR) + ELSE + FIXTAR = .FALSE. + EVTH(6) = 0. + ENDIF + +C INITIALIZE ARRAYS FOR NKG FOR EACH SHOWER + IF ( FNKG ) CALL STANKG + +C STORE FIRST PARTICLE IN HEADER AND PRINT IT OUT + EVTH( 2) = REAL(ISHOWNO) + EVTH( 3) = CURPAR(1) + IF ( PAMA(NINT(CURPAR(1))) .EQ. 0.D0 ) THEN +C PRIMARY ENERGY FOR MASSLESS PARTICLES (PHOTONS, NEUTRINOS) + E00 = GAMMA + E00PN = GAMMA + INUCL = 1 + ELSE + E00 = GAMMA * PAMA(NINT(CURPAR(1))) + INUCL = INT(MAX(1.D0,CURPAR(1)/100.D0)) + E00PN = E00 / INUCL + ENDIF + EVTH(148) = 0. + EVTH(149) = 0. + EVTH(150) = 0. + EVTH(151) = 0. + EVTH(152) = 0. + + IF ( FEGS ) THEN +C PARAMETER FOR ELECTRON AND PHOTON REJECT (CONVERT ENERGY TO MEV) + EONCUT = .5D-9*SQRT(E00*1000.D0) + CUTLN = LOG(EONCUT) + ENDIF + EVTH( 4) = E00 + EVTH( 5) = THICK0 + EVTH( 7) = HEIGHP + PTOT0 = SQRT( E00**2 - PAMA(NINT(CURPAR(1)))**2 ) + PTOT0N = PTOT0 / INUCL + +C PUT APPARENT ANGLES (SEEN FROM DETECTOR) INTO EVENT HEADER + ST = SQRT(1.D0-COSTAP**2) + EVTH(10) = PTOT0 * COSTAP + THETA = ACOS(COSTAP) + EVTH( 8) = PTOT0 * ST * COS(PHI) + EVTH( 9) = PTOT0 * ST * SIN(PHI) + EVTH(11) = THETA + EVTH(12) = PHI +C WRITE ENERGY AND ANGLES OF PRIMARY TO DBASE FILE FOR THE FIRST SHOWER + IF ( FDBASE .AND. ISHW .EQ. 1 ) THEN + WRITE(MDBASE,668) E00, THETA*180.D0/PI, PHI*180.D0/PI + 668 FORMAT(1P,'#energy_prim#',E14.7,'#theta_prim#',E14.7, + * '#phi_prim#',E14.7) + CLOSE(UNIT=MDBASE) + ENDIF + EVTH(85) = CERSIZ + + IF ( DEBUG .OR. FPRINT ) THEN + WRITE(MONIOU,*) + ENDIF + IF ( CURPAR(1) .GT. 3.D0 ) THEN + IF ( DEBUG ) THEN + WRITE(MONIOU,102) (CURPAR(J),J = 1,8) + 102 FORMAT (' PRIMARY PARAMETERS AT FIRST INTERACTION POINT'/ + * 16X,1P,8E10.3) + ELSEIF ( FPRINT ) THEN + WRITE(MONIOU,1021) (CURPAR(J),J = 1,8) + 1021 FORMAT (' PRIMARY PARAMETERS AT FIRST INTERACTION POINT'/ + * 1X,1P,8E10.3) + ENDIF + ELSE + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,132) + 132 FORMAT (/' PRIMARY PARTICLE IS ELECTROMAGNETIC') + ENDIF + +C WRITE EVENT HEADER INTO BUFFER +C FOR EM PARTICLES EVTH IS WRITTEN TO BUFFER IN EGS (IF ACTIVE) + IF ( EVTH(3) .GT. 3.0 .OR. .NOT. FEGS ) THEN +C NEGATIVE FIRST INTERACTIN HEIGHT, IF TRACKING STARTS AT ATMOS. MARGIN + CALL TOBUF ( EVTH,0 ) + IF ( LCERFI ) CALL TOBUFC( EVTH,0 ) + ENDIF + +C PRINT HEADER FOR HIGH ENERGY PARTICLES + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,103) + 103 FORMAT(/' TYPE GAMMA COSTHETA ', + * ' PHI HEIGHT TIME X-CM Y-CM ', + * ' GEN ALEVEL E ON STACK'/) + NOPART = 0 + + + + IF ( CURPAR(1) .LE. 3.D0 .OR. + * (CURPAR(1) .EQ. 5.D0 .OR. CURPAR(1) .EQ. 6.D0) ) THEN +C GIVE PARTICLE TO EGS OR NKG IF ELECTROMAGNETIC +C AND TAKE THEN NEXT PARTICLE FROM STACK +C FLAG FOR NO PRIMARY INTERACTION IS SET FOR ALL BUT ELM. PRIMARIES + IF ( CURPAR(1) .LE. 3.D0 ) THEN +C EM PARTICLES + FNPRIM = .FALSE. + BNORMC = BNORM*1.D-3 + ELSE +C MUONS + FNPRIM = .TRUE. + H = PRMPAR(5) + IF ( TMARGIN ) BNORMC = BNORM*1.D-3 + ENDIF +c-----changed--add + fmfb=.true. + CALL BOX3(fmfb) + fmfb=.false. +c-----changed--add + BNORMC = BNORM*1.D-3 + IF ( FEGS ) THEN + CHISUM = CHISUM + THICK(ABS(DBLE(EVTH(7)))) + CHISM2 = CHISM2 + THICK(ABS(DBLE(EVTH(7))))**2 + ENDIF + FIRSTI = .FALSE. + GOTO 4 + + ELSE +C HADRONIC PARTICLES + FNPRIM = .TRUE. +C CHECK OBSERVATION LEVEL PASSAGE AND UPDATE PARTICLE COORDINATES + HNEW = H +C FOR SUBR. UPDATE WE NEED THE START ALTITUDE H + H = HEIGH(THICK0) + +C TRACK THE PARTICLE WHEN ENTERING THE ATMOSPHERE + FLAG = .FALSE. +c--changed---add + fmfb=.true. + CALL UPDATC(IPAS,FLAG,fmfb) + fmfb=.false. +c--changed---add + +C ELIMINATE PARTICLE IF BELOW CUTS BY JUMP TO LABEL 4 + IF ( IRET2 .NE. 0 ) GOTO 4 + IF ( IPAS .EQ. 0 ) THEN +C PARTICLE DID NOT REACH OBSERVATION LEVEL +C START CLOCK AT FIRST INTERACTION (MAGNETIC FIELD IS SET IN INPRM) + CURPAR(6) = 0.D0 +C JUMP INTO NORMAL PARTICLE TREATMENT FOR HADRONS + GOTO 6 + ENDIF + + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'AAMAIN: PRIMARY REACHED LOWEST OBSERVATION LEVEL' + GOTO 4 + ENDIF + + +C----------------------------------------------------------------------- +C NORMAL CYCLE + 7 CONTINUE + +C IF ENERGY IS TOO SMALL, TAKE NEXT PARTICLE BY JUMP TO LABEL 4 + IF ( GAMMA .LE. 1.D0 ) THEN + IF ( CURPAR(1) .NE. 1.D0 ) THEN + IF ( CURPAR(1).EQ.5.D0 .OR. CURPAR(1).EQ.6.D0 ) + * FMUORG = .FALSE. + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + LHEIGH = INT(THICK(H)*THSTPI + 1.D0) + IF ( ITYPE .EQ. 2 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + (GAMMA+1.D0)*PAMA(2) + ELSEIF ( ITYPE .EQ. 3 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + (GAMMA-1.D0)*PAMA(2) + ELSEIF ( ITYPE .EQ. 5 .OR. ITYPE .EQ. 6 ) THEN + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + GAMMA * PAMA(5) + ELSEIF ( ITYPE .GE. 7 .AND. ITYPE .LE. 74 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAMMA * PAMA(ITYPE) + * - RESTMS(ITYPE) + ENDIF + ENDIF + GOTO 4 + ENDIF +C SPECIAL TREATMENT FOR PHOTONS + ITYPE = 1 + CHI = 0.D0 + GOTO 5 + ENDIF + +C DETERMINE PLACE OF NEXT INTERACTION + CALL BOX2 + +C CHECK PASSAGE THROUGH OBSERVATION LEVELS AND TRACK PARTICLES TO THE +C PLACE OF INTERACTION + 5 CONTINUE + IRET1 = 0 + CALL BOX3(fmfb) + IF ( IRET1 .NE. 0 ) GOTO 4 + + 6 CONTINUE + IRET1 = 0 + MSMM = 0 + +C INCREMENT PARTICLE GENERATION AND PROCESS NUCLEAR INTERACTION + GEN = GEN + 1.D0 +C INITIALIZE INTERMEDIATE STACK FOR ONE REACTION + INT_ICOUNT = 0 + CALL NUCINT +C TRANSFER INTERMEDIATE STACK FOR ONE REACTION + CALL TSTEND + +C ENERGY - MULTIPLICITY STATISTICS + IF ( EKINL .LE. 0.1D0 ) THEN + MEN = 1 + ELSE + MEN = 4.D0 + 3.D0 * LOG10(EKINL) + MEN = MIN( MEN, 40 ) + ENDIF + IF ( MSMM .LE. 1 ) THEN + MMU = 1 + ELSE + MMU = 1.D0 + 3.D0 * LOG10(DBLE(MSMM)) + MMU = MIN( MMU, 13 ) + ENDIF + MULTMA(MEN,MMU) = MULTMA(MEN,MMU) + 1 + MULTOT(MEN,MMU) = MULTOT(MEN,MMU) + 1 + IF ( DEBUG ) WRITE(MDEBUG,*) 'AAMAIN: EKINL,MSMM=', + * SNGL(EKINL),MSMM + + IF ( IRET1 .EQ. 0 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,666) (CURPAR(II),II=1,9) + 666 FORMAT(' AAMAIN: CURPAR=',1P,9E10.3) + GOTO 7 + ENDIF + +C GET NEXT PARTICLE FROM STACK, IF IRET=1 ALL PARTICLES ARE DONE + 4 CONTINUE + IRET1 = 0 + CALL FSTACK + IF ( FMUADD ) THEN + IF ( (CURPAR(1) .EQ. 5 .OR. CURPAR(1) .EQ. 6) + * .AND. IRET1 .EQ. 0 .AND. .NOT. FMUORG ) THEN + DO J = 1,MAXLEN + AMUPAR(J) = CURPAR(J) + ENDDO + IF ( DEBUG ) WRITE(MDEBUG,*) 'AAMAIN: MUON STORED IN AMUPAR' + FMUORG = .TRUE. + ENDIF + ENDIF + +C STACK IS EMPTY, IF IRET1 IS 1 + IF ( IRET1 .EQ. 0 ) GOTO 7 + +C----------------------------------------------------------------------- +C FINISH SHOWER AND PRINT INFORMATION + CALL OUTEND + +* IF ( DEBUG ) WRITE(MDEBUG,442) NPARTO +*442 FORMAT(' AAMAIN: NPARTO='/(' ',10F10.0)) + + IF ( FPRINT .OR. DEBUG ) THEN + IOBSLV = MIN( 5, NOBSLV ) + WRITE(MONIOU,54) (K,K=1,IOBSLV) + 54 FORMAT (/' PARTICLES AT DETECTOR LEVEL :'/ + * ' FOR LEVEL ', 5I13) + WRITE(MONIOU,55) (OBSLEV(K),K=1,IOBSLV) + 55 FORMAT ( ' HEIGHT IN CM ',1P, 5E13.3/) + WRITE(MONIOU,555) (THCKOB(K),K=1,IOBSLV) + 555 FORMAT ( ' HEIGHT IN G/CM**2 ',1P, 5E13.3/) + WRITE(MONIOU,776) 'PROTONS ',(NPROTO(K),K=1,IOBSLV) + WRITE(MONIOU,776) 'ANTIPROTONS ',(NPROTB(K),K=1,IOBSLV) + WRITE(MONIOU,776) 'NEUTRONS ',(NNEUTR(K),K=1,IOBSLV) + WRITE(MONIOU,776) 'ANTINEUTRONS ',(NNEUTB(K),K=1,IOBSLV) + WRITE(MONIOU,775) 'PHOTONS ',(NPHOTO(K),K=1,IOBSLV) + WRITE(MONIOU,775) 'ELECTRONS ',(NELECT(K),K=1,IOBSLV) + WRITE(MONIOU,775) 'POSITRONS ',(NPOSIT(K),K=1,IOBSLV) + WRITE(MONIOU,776) 'MU - ',(NMUM (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'MU + ',(NMUP (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'PI 0 ',(NPI0 (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'PI - ',(NPIM (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'PI + ',(NPIP (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'K0L ',(NK0L (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'K0S ',(NK0S (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'K - ',(NKMI (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'K + ',(NKPL (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'STR. BARYONS ',(NHYP (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'DEUTERONS ',(NDEUT (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'TRITONS ',(NTRIT (K),K=1,IOBSLV) + WRITE(MONIOU,776) 'ALPHAS ',(NALPHA(K),K=1,IOBSLV) + WRITE(MONIOU,776) 'OTHER PARTIC.',(NOTHER(K),K=1,IOBSLV) + WRITE(MONIOU,*) + WRITE(MONIOU,776) 'DECAYED MUONS',NMUOND + 775 FORMAT(' NO OF ',A13, '= ',1P,5E13.6,0P) + 776 FORMAT(' NO OF ',A13, '= ',5F13.0) + + IF ( NOBSLV .GT. 5 ) THEN + IOBSLV = NOBSLV + WRITE(MONIOU,54) (K,K=6,IOBSLV) + WRITE(MONIOU,55) (OBSLEV(K),K=6,IOBSLV) + WRITE(MONIOU,555) (THCKOB(K),K=6,IOBSLV) + WRITE(MONIOU,776) 'PROTONS ',(NPROTO(K),K=6,IOBSLV) + WRITE(MONIOU,776) 'ANTIPROTONS ',(NPROTB(K),K=6,IOBSLV) + WRITE(MONIOU,776) 'NEUTRONS ',(NNEUTR(K),K=6,IOBSLV) + WRITE(MONIOU,776) 'ANTINEUTRONS ',(NNEUTB(K),K=6,IOBSLV) + WRITE(MONIOU,775) 'PHOTONS ',(NPHOTO(K),K=6,IOBSLV) + WRITE(MONIOU,775) 'ELECTRONS ',(NELECT(K),K=6,IOBSLV) + WRITE(MONIOU,775) 'POSITRONS ',(NPOSIT(K),K=6,IOBSLV) + WRITE(MONIOU,776) 'MU - ',(NMUM (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'MU + ',(NMUP (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'PI 0 ',(NPI0 (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'PI - ',(NPIM (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'PI + ',(NPIP (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'K0L ',(NK0L (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'K0S ',(NK0S (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'K - ',(NKMI (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'K + ',(NKPL (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'STR. BARYONS ',(NHYP (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'DEUTERONS ',(NDEUT (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'TRITONS ',(NTRIT (K),K=6,IOBSLV) + WRITE(MONIOU,776) 'ALPHAS ',(NALPHA(K),K=6,IOBSLV) + WRITE(MONIOU,776) 'OTHER PARTIC.',(NOTHER(K),K=6,IOBSLV) + WRITE(MONIOU,*) + ENDIF + ENDIF + +C ADD UP FOR MEAN VALUES + DO 779 K = 1,25 + DO 779 J = 1,10 + MPARTO(J,K) = MPARTO(J,K) + NPARTO(J,K) + MPART2(J,K) = MPART2(J,K) + NPARTO(J,K)**2 + 779 CONTINUE + EVTE(2) = ISHOWNO + IOBSLV = NOBSLV + DO 335 K = 1,IOBSLV + EVTE(3) = EVTE(3) + NPHOTO(K) + EVTE(4) = EVTE(4) + NELECT(K) + NPOSIT(K) + EVTE(5) = EVTE(5) + NPROTO(K) + NPROTB(K) + NNEUTR(K) + + * NNEUTB(K) + NPI0(K) + NPIM(K) + NPIP(K) + NK0L(K) + + * NK0S(K) + NKMI(K) + NKPL(K) + NHYP(K) + + * NDEUT(K) + NTRIT(K) + NALPHA(K) + NOTHER(K) + EVTE(6) = EVTE(6) + NMUP(K) + NMUM(K) + 335 CONTINUE + EVTE(7) = NOPART + + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,110) + * IFINNU,IFINPI,IFINET,IFINKA,IFINHY, + * IFINNU+IFINPI+IFINET+IFINKA+IFINHY, + * ELAST,THICK1,SIG1I,TARG1I + 110 FORMAT(/ + * ' NO OF NUCLEONS PRODUCED IN FIRST HADR. INTERACTION =',I10/ + * ' NO OF PIONS PRODUCED IN FIRST HADR. INTERACTION =',I10/ + * ' NO OF ETAS PRODUCED IN FIRST HADR. INTERACTION =',I10/ + * ' NO OF KAONS PRODUCED IN FIRST HADR. INTERACTION =',I10/ + * ' NO OF S.BARYONS PRODUCED IN FIRST HADR. INTERACTION =',I10/ + * ' TOTAL MULTIPLICITY OF FIRST HADR. INTERACTION =',I10/ + * ' ELASTICITY OF FIRST HADR. INTERACTION =',F10.4/ + * ' VERTICAL DEPTH (G/CM**2) OF FIRST HADR. INTERACTION =',F10.4/ + * ' CROSS-SECTION MILLIBARN OF FIRST HADR. INTERACTION =',F10.4/ + * ' TARGET MASS NUMBER OF FIRST HADR. INTERACTION =',F10.4/) + +C PRINT OUT NKG RESULT FOR ONE SHOWER IF SELECTED + IF ( FNKG ) CALL AVAGE +c--------changed------add +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c calculated here again, 'cos it's rewrite I dont know where + LPCT1 = INT( THICK0 * THSTPI ) + LPCT2 = INT( (THICK0 + PRMPAR(3)*CHI) * THSTPI ) + LPCT2 = MIN(NSTEP,LPCT2) +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c-------changed ---add--- + + + IF ( LLONGI ) THEN +C TREAT LONGITUDINAL DISTRIBUTIONS + DO 980 J = 0,NSTEP +C ADD UP ENERGY DEPOSIT AND IONIZATION FOR SUM + DLONG(J,9) = DLONG(J,1)+DLONG(J,2)+DLONG(J,3)+DLONG(J,4) + * +DLONG(J,5)+DLONG(J,6)+DLONG(J,7)+DLONG(J,8) +C ADD ELECTRONS, POSITRONS, MUONS AND NUCLEI TO THE CHARGED PARTICLES + ELONG(J,7) = ELONG(J,7) + ELONG(J,2) + ELONG(J,3) + * + ELONG(J,4) + ELONG(J,5) + ELONG(J,8) +C ADD UP ALL ENERGIES FOR SUM + ELONG(J,9) = ELONG(J,1) + ELONG(J,2) + ELONG(J,3) + * + ELONG(J,4) + ELONG(J,5) + ELONG(J,6) + ELONG(J,8) +C ADD ALL CHARGED PARTICLES TO CHARGED SUM + PLONG(J,7) = PLONG(J,7) + PLONG(J,2) + PLONG(J,3) + * + PLONG(J,4) + PLONG(J,5) + PLONG(J,8) +C ADD UP FOR MEAN VALUES OF LONGITUDINAL DISTRIBUTION + DO K = 1,9 + AELONG(J,K) = AELONG(J,K) + ELONG(J,K) + SELONG(J,K) = SELONG(J,K) + ELONG(J,K)**2 + APLONG(J,K) = APLONG(J,K) + PLONG(J,K) + SPLONG(J,K) = SPLONG(J,K) + PLONG(J,K)**2 + ENDDO + DO K = 1,9 + ADLONG(J,K) = ADLONG(J,K) + DLONG(J,K) + SDLONG(J,K) = SDLONG(J,K) + DLONG(J,K)**2 + ENDDO + 980 CONTINUE + +C PRINT LONGITUDINAL DISTRIBUTIONS PER SHOWER + IF ( FPRINT .OR. DEBUG ) THEN + WRITE(MONIOU,910) THSTEP, + * 'GAMMAS','POSITRONS','ELECTRONS','MU+','MU-','HADRONS', + * 'CHARGED','NUCLEI','CHERENKOV', + * (J*THSTEP,(PLONG(J,K),K=1,9),J=LPCT1,NSTEP) + 910 FORMAT(/' ---------- LONGITUDINAL PARTICLE DISTRIBUTION IN ' + * ,'STEPS OF ',F5.0,' G/CM**2 ',50(1H-)/ + * ' DEPTH ',3A14,3A12,A12,A11,A12/ + * (' ',F6.0,F15.0,2F14.0,3F12.0,F14.0,F11.0,1P,E12.5,0P) ) +CJOK ADAPTED FOR HEAT CALCULATION +C910 FORMAT(/ +C * ' LONGITUDINAL DISTRIBUTION IN STEPS OF ',F5.0,' G/CM**2' +C * /' ',92('=')/' DEPTH',8A10,A12/1P +C * (' ',0P,F6.0,1P,9E11.4)) +CJOK +C ENERGY DISTRIBUTION + WRITE(MONIOU,908) THSTEP, + * 'GAMMAS','POSITRONS','ELECTRONS','MU+','MU-','HADRONS', + * 'CHARGED','NUCLEI','SUM', + * (J*THSTEP,(ELONG(J,K),K=1,9),J=LPCT1,NSTEP) + 908 FORMAT(/' ---------- LONGITUDINAL ENERGY DISTRIBUTION ', + * '[GEV] IN STEPS OF ',F5.0,' G/CM**2 ',47(1H-)/ + * ' DEPTH',9(A12,1X)/ (' ',F6.0,1P,9E13.5,0P) ) +C ENERGY DEPOSIT + WRITE(MONIOU,909) THSTEP, + * ' GAMMA ','EM IONIZ','EM CUT','MU IONIZ','MU CUT', + * 'HADR IONIZ','HADR CUT','NEUTRINO ',' SUM', + * ((2*J-1)*.5*THSTEP,(DLONG(J,K),K=1,9), + * J=MAX(1,LPCT1),NSTEP-1) + 909 FORMAT(/' ---------- LONGITUDINAL ENERGY DEPOSIT [GEV] IN ', + * 'STEPS OF ',F5.0,' G/CM**2 ',51(1H-)/ + * ' DEPTH ',3A14,6A12,/,(' ',F6.1,1X,3F14.1,5F12.1,F13.1)) + WRITE(MONIOU,9091) (2*NSTEP-1)*.5*THSTEP, + * (DLONG(NSTEP,K),K=1,9) + 9091 FORMAT(' ',F6.1,1X,1P,3E14.7,5E12.5,E13.6) + DLONGSUM = 0.D0 + DO K = 1,9 + DO J = 0,NSTEP + DLONG(1170,K) = DLONG(1170,K) + DLONG(J,K) + ENDDO + IF ( K .NE. 9 ) DLONGSUM = DLONGSUM + DLONG(1170,K) + ENDDO + WRITE(MONIOU,907) (DLONG(1170,K),K=1,8) + 907 FORMAT(' ',20X,' LONGITUDINAL ENERGY SUM [GEV] ',/ + * ,' ',7X,1P,3E14.7,5E12.5) + WRITE(MONIOU,919) DLONGSUM + DO K = 1,9 + DLONG(1170,K) = 0.D0 + ENDDO + ENDIF +C WRITE OUT LONGITUDINAL DISTRIBUTION + IF ( FLONGOUT ) THEN + WRITE(MLONGOUT,211) NSTEP,THSTEP,ISHOWNO, + * 'GAMMAS','POSITRONS','ELECTRONS','MU+','MU-','HADRONS', + * 'CHARGED','NUCLEI','CHERENKOV' +C +C DO NOT CHANGE THIS FORMAT, AS THE CorsTo Root PROGRAM DEPENDS ON IT +C + 211 FORMAT(' LONGITUDINAL DISTRIBUTION IN ',I5, + * ' VERTICAL STEPS OF ',F5.0,' G/CM**2 FOR SHOWER ', + * I7,/,' DEPTH',9(A11,1X) ) + DO J = 1, NSTEP + WRITE(MLONGOUT,212) J*THSTEP,(PLONG(J,K),K=1,9) +C +C DO NOT CHANGE THIS FORMAT, AS THE CorsTo Root PROGRAM DEPENDS ON IT +C + 212 FORMAT(' ',F5.0,1P,9(E12.5),0P) + ENDDO + WRITE(MLONGOUT,213) NSTEP,THSTEP,ISHOWNO, + * 'GAMMA ','EM IONIZ','EM CUT','MU IONIZ','MU CUT', + * 'HADR IONIZ','HADR CUT','NEUTRINO ',' SUM ' +C +C DO NOT CHANGE THIS FORMAT, AS THE CorsTo Root PROGRAM DEPENDS ON IT +C + 213 FORMAT(' LONGITUDINAL ENERGY DEPOSIT IN ',I5, + * ' VERTICAL STEPS OF ',F5.0,' G/CM**2 FOR SHOWER ', + * I7,/,' DEPTH ',3A11,6A12) + DO J = 1, NSTEP + DEPSTEP = (2*J-1)*.5*THSTEP + WRITE(MLONGOUT,214) DEPSTEP, + * (DLONG(J,K),K=1,9) +C +C DO NOT CHANGE THIS FORMAT, AS THE CorsTo Root PROGRAM DEPENDS ON IT +C + 214 FORMAT(' ',F6.1,1P,9(E12.5),0P) + ENDDO + ELSE +C FILL THE PERMANENT VALUES OF LONGITUDINAL FIELDS: + ARRAYLONG(2) = EVTH(2) !SHOWER NUMBER + ARRAYLONG(3) = EVTH(3) !PRIMARY PARTICLE + ARRAYLONG(4) = EVTH(4) !PRIMARY ENERGY + ARRAYLONG(7) = THICK(DBLE(EVTH(7))) !THICKNESS FIRST INTERACT + ARRAYLONG(8) = EVTH(11) !ZENITH ANGLE + ARRAYLONG(9) = EVTH(12) !AZIMUTH ANGLE + ARRAYLONG(10) = EVTH(61) !ENERGY CUT HADRONS + ARRAYLONG(11) = EVTH(62) !ENERGY CUT MUONS + ARRAYLONG(12) = EVTH(63) !ENERGY CUT ELECTRONS + ARRAYLONG(13) = EVTH(64) !ENERGY CUT GAMMAS + +C CALCULATE HOW MANY BLOCKS MUST BE WRITTEN + JJEND = INT( (NSTEP-1)/26 ) + 1 + ARRAYLONG(5) = JJEND + 100*NSTEP !TOTAL # OF LONGI BLOCKS +C ! & NUMBER OF STEPS +C WRITE THE BLOCKS + DO JJ = 1, JJEND +C SET ACTUAL BLOCK NUMBER + ARRAYLONG(6) = JJ !CURRENT NUMBER OF BLOCK +C FILL THE BLOCK WITH ACTUAL VALUES + DO J = 1, 26 + JPLUS = 10*(J-1) + JJJ = J + 26 * (JJ-1) + IF ( JJJ .LE. NSTEP ) THEN +C FILL IN THE THICKNESS VALUES + ARRAYLONG(14+JPLUS) = JJJ * THSTEP + DO K = 1, 9 +C FILL IN THE PARTICLE NUMBERS + ARRAYLONG(14+JPLUS+K) = PLONG(JJJ,K) + ENDDO + ELSE +C FILL THE END OF LAST BLOCK WITH ZEROS + DO K = 1, 10 + ARRAYLONG(13+JPLUS+K) = 0. + ENDDO + ENDIF + ENDDO +C NOW WRITE OUT THE BLOCK + CALL TOBUF(ARRAYLONG,0) +* WRITE(MONIOU,3333)JJ,ARRAYLONG +*3333 FORMAT( 1X,I5,3(1X,E10.5),/,(10(1X,E10.5)) ) + ENDDO + ENDIF + + IF ( FLGFIT ) THEN + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,*) ' ' +C PERFORM FIT TO THE LONGITUDINAL DISTRIBUTION OF ALL CHARGED PARTICLES +C IF EGS IS SELECTED THIS IS THE DISTRIBUTION WHICH IS TO BE TAKEN + IF ( FEGS ) THEN + DO 930 J = 0,NSTEP-LPCT1 + DEP(J+1) = (J+LPCT1)*THSTEP + CHAPAR(J+1) = MAX( PLONG(J+LPCT1,7), 0.D0 ) + 930 CONTINUE + NSTP = NSTEP + 1 - LPCT1 + IF ( FPRINT .OR. DEBUG ) + * WRITE(MONIOU,8229) 'ALL CHARGED PARTICLES' + 8229 FORMAT(' FIT OF THE HILLAS CURVE ', + * ' N(T) = P1*((T-P2)/(P3-P2))**((P3-P2)/(P4+P5*T+P6*T**2))', + * ' * EXP((P3-T)/(P4+P5*T+P6*T**2))'/ + * ' TO LONGITUDINAL DISTRIBUTION OF ',A35) + IF ( FLONGOUT ) + * WRITE(MLONGOUT,8229) 'ALL CHARGED PARTICLES' +C IF NKG IS SELECTED ONLY THE ELECTRON DISTRIBUTION IS AVAILABLE + ELSEIF ( FNKG ) THEN + DEP(1) = 0.D0 + CHAPAR(1) = 0.D0 + DO 931 J = 1,IALT(1) + DEP(J+1) = TLEV(J) + CHAPAR(J+1) = MAX( SL(J), 0.D0 ) + 931 CONTINUE + NSTP = IALT(1) + 1 + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,8229)'NKG ELECTRONS' + IF ( FLONGOUT ) + * WRITE(MLONGOUT,8229)'NKG ELECTRONS' +C IF NONE IS SELECTED IT DOES NOT REALLY MAKE SENSE TO FIT +C BUT LET'S TAKE THEN ALL CHARGED WHICH ARE MUONS AND HADRONS + ELSE + DO 932 J = 0,NSTEP-LPCT1 + DEP(J+1) = (J+LPCT1)*THSTEP + CHAPAR(J+1) = MAX( PLONG(J+LPCT1,7), 0.D0 ) + 932 CONTINUE + NSTP = NSTEP + 1 - LPCT1 + IF ( FPRINT .OR. DEBUG ) + * WRITE(MONIOU,8229) 'MUONS AND CHARGED HADRONS' + IF ( FLONGOUT ) + * WRITE(MLONGOUT,8229) 'MUONS AND CHARGED HADRONS' + ENDIF + IF ( NSTP .GT. 6 ) THEN +C THERE ARE MORE THAN 6 STEP VALUES, A FIT SHOULD BE POSSIBLE. +C DO THE FIT: NPAR AND FPARAM GIVE THE NUMBER OF PARAMETERS USED +C AND THE FINAL VALUES FOR THE PARAMETERS. CHISQ GIVES THE CHI**2/DOF +C FOR THE FIT. + CALL LONGFT(FPARAM,CHI2) + IF ( FPRINT .OR. DEBUG ) THEN + IF ( FPARAM(1) .GT. 0.D0 ) THEN + WRITE(MONIOU,8230) + * FPARAM,CHI2,CHI2/SQRT(FPARAM(1))*100.D0 + 8230 FORMAT(' PARAMETERS = ',1P,6E12.4/ + * ' CHI**2/DOF = ',E11.4/ + * ' AV. DEVIATION IN % = ',E11.4,0P/) + ELSE + WRITE(MONIOU,8231) FPARAM,CHI2 + 8231 FORMAT(' PARAMETERS = ',1P,6E12.4/ + * ' CHI**2/DOF = ',E11.4,0P//) + ENDIF + ENDIF + IF ( FLONGOUT ) THEN + IF ( FPARAM(1) .GT. 0.D0 ) THEN + WRITE(MLONGOUT,8230) FPARAM,CHI2, + * CHI2/SQRT(FPARAM(1))*100.D0 + ELSE + WRITE(MLONGOUT,8231) FPARAM,CHI2 + ENDIF + ENDIF +C STORE RESULT IN END EVENT BLOCK + DO 933 K = 1,6 + EVTE(255+K) = FPARAM(K) + 933 CONTINUE + EVTE(262) = CHI2 + ELSE + WRITE(MONIOU,*) 'NO LONGI. FIT POSSIBLE, ', + * ' NSTP = ',NSTP,' TOO SMALL.' + DO 934 K = 1,6 + EVTE(255+K) = 0. + 934 CONTINUE + EVTE(262) = 0. + ENDIF + ENDIF + ENDIF +c----changed---add +CBC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +C +C Modified by C. Bigongiari 2001 Jan 16 +C +C +Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c Saves statistics to sta###### file +cxxand many lines with comand - simply keep output like in standart +CBC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +c---changed--add + +C WRITE SHOWER END TO OUTPUT BUFFER + CALL TOBUF( EVTE,0 ) + IF ( LCERFI ) THEN + CALL OUTND2 + CALL TOBUFC( EVTE,0 ) + ENDIF + + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,*) + * 'CHERENKOV PH. FROM ELECTRONS = ',SNGL(CERELE), + * ' CHERENKOV PH. FROM HADRONS = ',SNGL(CERHAD) + CERELE = 0.D0 + CERHAD = 0.D0 + NRECER = 0 + +C STORE TABLES + IF ( FTABOUT ) THEN + WRITE(MTABOUT) G_ARRAY,E_ARRAY,M_ARRAY +C STORE LONG DISTRIBUTION OF CHARGED PARTICLES + IF ( LLONGI ) THEN + WRITE(MTABOUT) THSTEP,NSTEP,(PLONG(II,7),II=1,NSTEP) + ENDIF + ENDIF + + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,210) ISHOWNO + 210 FORMAT(/' END OF SHOWER NO ',I10) + + DO 19 J = 1,40 + JNBIN(J) = JNBIN(J) + INBIN(J) + JPBIN(J) = JPBIN(J) + IPBIN(J) + JKBIN(J) = JKBIN(J) + IKBIN(J) + JHBIN(J) = JHBIN(J) + IHBIN(J) + 19 CONTINUE + + 2 CONTINUE +C END OF SHOWER LOOP + +C----------------------------------------------------------------------- + 992 CONTINUE + + WRITE(MONIOU,*) ' ' + CALL PRTIME(TTIME) + DO L = 1,NSEQ + CALL RMMAQ( ISEED(1,L), L, 'R' ) + ENDDO + WRITE(MONIOU,159) ISHOWNO,(L,(ISEED(J,L),J=1,3),L=1,NSEQ) + 159 FORMAT(' AND RANDOM NUMBER GENERATOR AT END OF EVENT :',I8, + * /,(' SEQUENCE = ',I2,' SEED = ',I9 ,' CALLS = ',I9, + * ' BILLIONS = ',I9)) + +C RESET NUMBER OF SHOWERS TO CORRECT VALUE + ISHW = I + + RUNE(3) = REAL(ISHW) + TDIFF = ILEFTB - ILEFTA + +C WRITE RUN END TO OUTPUT BUFFER AND FINISH OUTPUT +c---------changed------add +CBC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +C +C Modified by C. Bigongiari 2001 Jan 16 +C +Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +Cc CALL TOBUF ( RUNE,1 ) +C call jcendrun(rune) +Cc IF ( LCERFI ) CALL TOBUFC( RUNE,1 ) +Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +C +C- write Run End +CBC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++C +c---------changed------add + CALL TOBUF ( RUNE,1 ) + IF ( LCERFI ) CALL TOBUFC( RUNE,1 ) +C TIME SINCE BEGINNING NO VALID INFORMATION + CALL TIMER( ILEFTB ) + TDIFF = ILEFTB - ILEFTA + +C MEAN VALUE FOR FIRST INTERACTION ALTITUDE (G/CM**2) + IF ( ISHW .GT. 1 ) THEN + CHISM2 = SQRT( ABS(CHISM2-CHISUM**2/ISHW) / (ISHW-1) ) + CHISUM = CHISUM / ISHW + ELSE + CHISM2 = 0.D0 + ENDIF + +C OUTPUTS FOR ALL SHOWERS + WRITE(MONIOU,201) ISHW,TDIFF,TDIFF/ISHW,IRECOR,IRECOR/ISHW, + * CHISUM,CHISM2 + 201 FORMAT('1',10('='),' RUN SUMMARY ',56('=')// + * ' NUMBER OF GENERATED EVENTS = ',I10,/ + * ' TOTAL TIME USED = ',F12.0,' SEC'/ + * ' TIME PER EVENT = ',F14.2,' SEC'/ + * ' TOTAL SPACE ON MPATAP USED = ',I12,' WORDS'/ + * ' SPACE PER EVENT ON MPATAP = ',I12,' WORDS'/ + * ' AVERAGE HEIGHT OF 1ST INT. = ',F10.3,' +-',F10.3,' G/CM**2'/) + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + IF ( ISHW .GT. 1 ) THEN +C DO PRINTING OF AVERAGES ONLY IF MORE THAN 1 SHOWER IS SIMULATED +C ENERGY - MULTIPLICITY MATRIX FOR ALL SHOWERS + WRITE(MONIOU,209) (K,K=1,13),(J,(MULTOT(J,K),K=1,13), + * 10**((J-4.)/3.),10**((J-3.)/3.),J=1,39), + * 1,(INT(10**((K-1.)/3.)+1),K = 2,13), + * 2,(INT(10**((K )/3.) ),K = 2,13) + 209 FORMAT(//' ENERGY - MULTIPLICITY MATRIX FOR ALL SHOWERS'/ + * ' ENERGY RUNS VERTICALLY, MULTIPLICITY HORIZONTALLY'//, + * ' ',6X,5I10,3I8,5I6,' ENERGY RANGE (GEV)'/ + * 39(/' ',I4,1X,I11,4I10,3I8,5I6,1X,1P,2E10.1,0P)// + * ' MULT. ',5I10,3I8,5I6,4X,'LOWER BIN LIMIT'/ + * ' RANGE ',5I10,3I8,5I6,4X,'UPPER BIN LIMIT') + + +C GET MEAN OF ELASTICITY FOR ENERGY BINS + DO 3377 J = 1,40 + NELMEA = 0 + DO 3378 K = 1,10 + NELMEA = NELMEA + IELDPA(J,K) + 3378 CONTINUE + IF ( NELMEA .NE. 0 ) ELMEAA(J) = ELMEAA(J) / NELMEA + 3377 CONTINUE + +C PRINT ENERGY - ELASTICITY MATRIX FOR ALL SHOWERS + WRITE(MONIOU,408) (K,K=1,10), (J,(IELDPA(J,K),K=1,10), + * ELMEAA(J),10**((J-4.D0)/3.D0),10**((J-3.)/3.D0),J=1,39), + * ((K-1)*0.1D0,K=1,10),(K*0.1D0,K=1,10) + 408 FORMAT (//' ENERGY - ELASTICITY MATRIX FOR ALL SHOWERS'/ + * ' ENERGY RUNS VERTICALLY, ELASTICITY HORIZONTALLY'// + * ' ',5X,7I9,3I10,' MEAN EL. ENERGY RANGE (GEV)'/ + * 39(/' ',I4,1X,7I9,3I10,2X,1P,E10.3,2E10.1,0P)// + * ' ELA. ',7F9.2,3F10.2,5X,'LOWER BIN LIMIT'/ + * ' RANGE',7F9.2,3F10.2,5X,'UPPER BIN LIMIT') + + WRITE(MONIOU,204) + 204 FORMAT (//' INTERACTIONS PER KINETIC ENERGY INTERVAL FOR ALL', + * ' SHOWERS'//' BIN LOWER LIMIT UPPER LIMIT ', + * 'NUCLEON PIONS KAONS S.BARYONS ', + * ' TOTAL'/ 12X,'IN GEV',9X,'IN GEV',7X, + * ' EVENTS EVENTS EVENTS EVENTS '//) + WRITE(MONIOU,207) (J,SABIN(J),SBBIN(J),JNBIN(J),JPBIN(J), + * JKBIN(J),JHBIN(J),JNBIN(J)+JPBIN(J)+JKBIN(J)+JHBIN(J),J=1,40) + 207 FORMAT(' ',I5,1P,2E15.4,0P,F14.0,3F14.0,F15.0) + +C CALCULATE MEAN VALUES AND STANDARD DEVIATIONS OF PARTICLE NUMBERS + IF ( ISHW .GT. 1 ) THEN + DO 879 K = 1,25 + IOBSLV = NOBSLV + DO J = 1,IOBSLV + MPART2(J,K) = SQRT( ABS(MPART2(J,K)-MPARTO(J,K)**2/ISHW) + * /(ISHW-1) ) + MPARTO(J,K) = MPARTO(J,K)/ISHW + ENDDO + 879 CONTINUE + ELSE + DO 881 K = 1,25 + IOBSLV = NOBSLV + DO J = 1,IOBSLV + MPART2(J,K) = 0.D0 + ENDDO + 881 CONTINUE + ENDIF + +C PRINT MEAN VALUES AND STANDARD DEVIATIONS OF PARTICLE NUMBERS + IOBSLV = MIN( 3, NOBSLV ) + WRITE(MONIOU,854) (K,K=1,IOBSLV) + 854 FORMAT (/ ' AVERAGE NUMBER OF PARTICLES PER EVENT :'/ + * ' FROM LEVEL NUMBER ', 3(10X,I10,10X) ) + WRITE(MONIOU,855) (OBSLEV(K),K=1,IOBSLV) + 855 FORMAT ( ' HEIGHT IN CM',1P,3(20X,E10.3)/) + WRITE(MONIOU,856) (THCKOB(K),K=1,IOBSLV) + 856 FORMAT ( ' HEIGHT IN G/CM**2',1P,3(14X,E10.3,6X)/) + + WRITE(MONIOU,778)'PROTONS ',(MPROTO(K),MPROT2(K),K=1,IOBSLV) + WRITE(MONIOU,778)'ANTIPROTONS ',(MPROTB(K),MPRTB2(K),K=1,IOBSLV) + WRITE(MONIOU,778)'NEUTRONS ',(MNEUTR(K),MNETR2(K),K=1,IOBSLV) + WRITE(MONIOU,778)'ANTINEUTRONS',(MNEUTB(K),MNETB2(K),K=1,IOBSLV) + WRITE(MONIOU,777)'PHOTONS ',(MPHOTO(K),MPHOT2(K),K=1,IOBSLV) + WRITE(MONIOU,777)'ELECTRONS ',(MELECT(K),MELEC2(K),K=1,IOBSLV) + WRITE(MONIOU,777)'POSITRONS ',(MPOSIT(K),MPOSI2(K),K=1,IOBSLV) + WRITE(MONIOU,778)'MU - ',(MMUM (K),MMUM2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'MU + ',(MMUP (K),MMUP2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'PI 0 ',(MPI0 (K),MPI02 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'PI - ',(MPIM (K),MPIM2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'PI + ',(MPIP (K),MPIP2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'K0L ',(MK0L (K),MK0L2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'K0S ',(MK0S (K),MK0S2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'K - ',(MKMI (K),MKMI2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'K + ',(MKPL (K),MKPL2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'STR. BARYONS',(MHYP (K),MHYP2 (K),K=1,IOBSLV) + WRITE(MONIOU,778)'DEUTERONS ',(MDEUT (K),MDEUT2(K),K=1,IOBSLV) + WRITE(MONIOU,778)'TRITONS ',(MTRIT (K),MTRIT2(K),K=1,IOBSLV) + WRITE(MONIOU,778)'ALPHAS ',(MALPHA(K),MALPH2(K),K=1,IOBSLV) + WRITE(MONIOU,778)'OTHER PART. ',(MOTHER(K),MOTH2 (K),K=1,IOBSLV) + WRITE(MONIOU,*) + WRITE(MONIOU,778) 'DECAYED MUONS',MMUOND + 777 FORMAT(' NO OF ',A12,' = ',1P,3(E13.6,' +-',E13.6,' '),0P) + 778 FORMAT(' NO OF ',A12,' = ',3(F13.1,' +-',F13.1,' ')) + + IF ( NOBSLV .GT. 3 ) THEN + IOBSLV = MIN( 6, NOBSLV ) + WRITE(MONIOU,854) (K,K=4,IOBSLV) + WRITE(MONIOU,855) (OBSLEV(K),K=4,IOBSLV) + WRITE(MONIOU,856) (THCKOB(K),K=4,IOBSLV) + WRITE(MONIOU,778)'PROTONS ',(MPROTO(K),MPROT2(K),K=4,IOBSLV) + WRITE(MONIOU,778)'ANTIPROTONS ',(MPROTB(K),MPRTB2(K),K=4,IOBSLV) + WRITE(MONIOU,778)'NEUTRONS ',(MNEUTR(K),MNETR2(K),K=4,IOBSLV) + WRITE(MONIOU,778)'ANTINEUTRONS',(MNEUTB(K),MNETB2(K),K=4,IOBSLV) + WRITE(MONIOU,777)'PHOTONS ',(MPHOTO(K),MPHOT2(K),K=4,IOBSLV) + WRITE(MONIOU,777)'ELECTRONS ',(MELECT(K),MELEC2(K),K=4,IOBSLV) + WRITE(MONIOU,777)'POSITRONS ',(MPOSIT(K),MPOSI2(K),K=4,IOBSLV) + WRITE(MONIOU,778)'MU - ',(MMUM (K),MMUM2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'MU + ',(MMUP (K),MMUP2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'PI 0 ',(MPI0 (K),MPI02 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'PI - ',(MPIM (K),MPIM2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'PI + ',(MPIP (K),MPIP2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'K0L ',(MK0L (K),MK0L2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'K0S ',(MK0S (K),MK0S2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'K - ',(MKMI (K),MKMI2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'K + ',(MKPL (K),MKPL2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'STR. BARYONS',(MHYP (K),MHYP2 (K),K=4,IOBSLV) + WRITE(MONIOU,778)'DEUTERONS ',(MDEUT (K),MDEUT2(K),K=4,IOBSLV) + WRITE(MONIOU,778)'TRITONS ',(MTRIT (K),MTRIT2(K),K=4,IOBSLV) + WRITE(MONIOU,778)'ALPHAS ',(MALPHA(K),MALPH2(K),K=4,IOBSLV) + WRITE(MONIOU,778)'OTHER PART. ',(MOTHER(K),MOTH2 (K),K=4,IOBSLV) + WRITE(MONIOU,*) + + IF ( NOBSLV .GT. 6 ) THEN + IOBSLV = MIN( 9, NOBSLV ) + WRITE(MONIOU,854) (K,K=7,IOBSLV) + WRITE(MONIOU,855) (OBSLEV(K),K=7,IOBSLV) + WRITE(MONIOU,856) (THCKOB(K),K=7,IOBSLV) + WRITE(MONIOU,778)'PROTONS ',(MPROTO(K),MPROT2(K),K=7,IOBSLV) + WRITE(MONIOU,778)'ANTIPROTONS ',(MPROTB(K),MPRTB2(K),K=7,IOBSLV) + WRITE(MONIOU,778)'NEUTRONS ',(MNEUTR(K),MNETR2(K),K=7,IOBSLV) + WRITE(MONIOU,778)'ANTINEUTRONS',(MNEUTB(K),MNETB2(K),K=7,IOBSLV) + WRITE(MONIOU,777)'PHOTONS ',(MPHOTO(K),MPHOT2(K),K=7,IOBSLV) + WRITE(MONIOU,777)'ELECTRONS ',(MELECT(K),MELEC2(K),K=7,IOBSLV) + WRITE(MONIOU,777)'POSITRONS ',(MPOSIT(K),MPOSI2(K),K=7,IOBSLV) + WRITE(MONIOU,778)'MU - ',(MMUM (K),MMUM2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'MU + ',(MMUP (K),MMUP2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'PI 0 ',(MPI0 (K),MPI02 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'PI - ',(MPIM (K),MPIM2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'PI + ',(MPIP (K),MPIP2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'K0L ',(MK0L (K),MK0L2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'K0S ',(MK0S (K),MK0S2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'K - ',(MKMI (K),MKMI2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'K + ',(MKPL (K),MKPL2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'STR. BARYONS',(MHYP (K),MHYP2 (K),K=7,IOBSLV) + WRITE(MONIOU,778)'DEUTERONS ',(MDEUT (K),MDEUT2(K),K=7,IOBSLV) + WRITE(MONIOU,778)'TRITONS ',(MTRIT (K),MTRIT2(K),K=7,IOBSLV) + WRITE(MONIOU,778)'ALPHAS ',(MALPHA(K),MALPH2(K),K=7,IOBSLV) + WRITE(MONIOU,778)'OTHER PART. ',(MOTHER(K),MOTH2 (K),K=7,IOBSLV) + WRITE(MONIOU,*) + + IF ( NOBSLV .GT. 9 ) THEN + IOBSLV = MIN( 10, NOBSLV ) + WRITE(MONIOU,854) (K,K=9,IOBSLV) + WRITE(MONIOU,855) (OBSLEV(K),K=9,IOBSLV) + WRITE(MONIOU,856) (THCKOB(K),K=9,IOBSLV) + WRITE(MONIOU,778)'PROTONS ',(MPROTO(K),MPROT2(K),K=9,IOBSLV) + WRITE(MONIOU,778)'ANTIPROTONS ',(MPROTB(K),MPRTB2(K),K=9,IOBSLV) + WRITE(MONIOU,778)'NEUTRONS ',(MNEUTR(K),MNETR2(K),K=9,IOBSLV) + WRITE(MONIOU,778)'ANTINEUTRONS',(MNEUTB(K),MNETB2(K),K=9,IOBSLV) + WRITE(MONIOU,777)'PHOTONS ',(MPHOTO(K),MPHOT2(K),K=9,IOBSLV) + WRITE(MONIOU,777)'ELECTRONS ',(MELECT(K),MELEC2(K),K=9,IOBSLV) + WRITE(MONIOU,777)'POSITRONS ',(MPOSIT(K),MPOSI2(K),K=9,IOBSLV) + WRITE(MONIOU,778)'MU - ',(MMUM (K),MMUM2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'MU + ',(MMUP (K),MMUP2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'PI 0 ',(MPI0 (K),MPI02 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'PI - ',(MPIM (K),MPIM2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'PI + ',(MPIP (K),MPIP2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'K0L ',(MK0L (K),MK0L2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'K0S ',(MK0S (K),MK0S2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'K - ',(MKMI (K),MKMI2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'K + ',(MKPL (K),MKPL2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'STR. BARYONS',(MHYP (K),MHYP2 (K),K=9,IOBSLV) + WRITE(MONIOU,778)'DEUTERONS ',(MDEUT (K),MDEUT2(K),K=9,IOBSLV) + WRITE(MONIOU,778)'TRITONS ',(MTRIT (K),MTRIT2(K),K=9,IOBSLV) + WRITE(MONIOU,778)'ALPHAS ',(MALPHA(K),MALPH2(K),K=9,IOBSLV) + WRITE(MONIOU,778)'OTHER PART. ',(MOTHER(K),MOTH2 (K),K=9,IOBSLV) + WRITE(MONIOU,*) + ENDIF + + ENDIF + ENDIF + +C PRINT OUT NKG RESULT FOR ALL SHOWERS IF SELECTED + IF ( FNKG ) CALL MITAGE + +C CALCULATE MEAN VALUES AND SIGMAS OF LONGITUDINAL DISTRIBUTION + IF ( LLONGI ) THEN + IF ( ISHW .GT. 1 ) THEN + DO J = 0,NSTEP + DO K = 1,9 + SDLONG(J,K) = SQRT( MAX( 0.D0, + * (SDLONG(J,K)-ADLONG(J,K)**2/ISHW)/(ISHW-1) ) ) + ADLONG(J,K) = ADLONG(J,K)/ISHW + ENDDO + DO K = 1,9 + SELONG(J,K) = SQRT( MAX( 0.D0, + * (SELONG(J,K)-AELONG(J,K)**2/ISHW)/(ISHW-1) ) ) + AELONG(J,K) = AELONG(J,K)/ISHW + SPLONG(J,K) = SQRT( MAX( 0.D0, + * (SPLONG(J,K)-APLONG(J,K)**2/ISHW)/(ISHW-1) ) ) + APLONG(J,K) = APLONG(J,K)/ISHW + ENDDO + ENDDO + ELSE + DO J = 0,NSTEP + DO K = 1,9 + SDLONG(J,K) = 0.D0 + ENDDO + DO K = 1,9 + SELONG(J,K) = 0.D0 + SPLONG(J,K) = 0.D0 + ENDDO + ENDDO + ENDIF + +C PRINT AVERAGE LONGITUDINAL PARTICLE DISTRIBUTIONS + WRITE(MONIOU,911) THSTEP, + * 'GAMMAS ','POSITRONS','ELECTRONS','MU+ ','MU- ', + * (J*THSTEP,(APLONG(J,K),SPLONG(J,K),K=1,5),J=LPCT0,NSTEP) + 911 FORMAT(/' AVERAGE LONGITUDINAL PARTICLE DISTRIBUTION IN ', + * 'STEPS OF ',F5.0,' G/CM**2 '/' ',132('=')/ + * ' DEPTH',6X,A9,16X,2(A10,17X),A9,16X,A9 // + * (' ',F5.0,1X,1P,E10.4,'+-',E10.4,0P,1X,F13.0,'+-',F12.0, + * 1X,F13.0,'+-',F12.0,1X,F10.0,'+-',F11.0, + * 1X,F10.0,'+-',F11.0 )) + WRITE(MONIOU,912) THSTEP, + * 'HADRONS','CHARGED','NUCLEI','CHERENKOV', + * (J*THSTEP,(APLONG(J,K),SPLONG(J,K),K=6,9),J=LPCT0,NSTEP) + 912 FORMAT(/' AVERAGE LONGITUDINAL PARTICLE DISTRIBUTION IN ', + * 'STEPS OF ',F5.0,' G/CM**2 '/' ',118('=')/ + * ' DEPTH',8X,A9,17X,A10,17X,A9,21X,A9 // + * (' ',F5.0,1X,F11.1,'+-',F11.1,1X,F13.0,'+-',F13.0, + * 2X,F10.1,'+-',F10.1,1X,1P,E16.6,'+-',E16.6,0P)) +C PRINT AVERAGE LONGITUDINAL ENERGY DISTRIBUTIONS + WRITE(MONIOU,915) THSTEP, + * 'GAMMAS ','POSITRONS','ELECTRONS','MU+ ','MU- ', + * (J*THSTEP,(AELONG(J,K),SELONG(J,K),K=1,5),J=LPCT0,NSTEP) + 915 FORMAT(/' AVERAGE LONGITUDINAL ENERGY DISTRIBUTION [GEV] ', + * 'IN STEPS OF ',F5.0,' G/CM**2 '/' ',131('=')/ + * ' DEPTH',6X,A9,4(16X,A9),// + * (' ',F5.0,1X,1P,5(1X,E11.5,'+-',E11.5),0P)) + WRITE(MONIOU,916) THSTEP, + * 'HADRONS','CHARGED','NUCLEI','ENERGYSUM', + * (J*THSTEP,(AELONG(J,K),SELONG(J,K),K=6,9),J=LPCT0,NSTEP) + 916 FORMAT(/' AVERAGE LONGITUDINAL ENERGY DISTRIBUTION [GEV] ', + * 'IN STEPS OF ',F5.0,' G/CM**2 '/' ',110('=')/ + * ' DEPTH',7X,3(A8,17X),2X,A10, // (' ',F5.0,1X,1P, + * 3(1X,E11.5,'+-',E11.5),1X,E13.7,'+-',E13.7,0P)) +C PRINT AVERAGE LONGITUDINAL ENERGY DEPOSIT + ADLONGSUM = 0.D0 + DO K = 1,9 + DO J = 0,NSTEP + ADLONG(1170,K) = ADLONG(1170,K) + ADLONG(J,K) + ENDDO + IF ( K .NE. 9 ) ADLONGSUM = ADLONGSUM + ADLONG(1170,K) + ENDDO + WRITE(MONIOU,913) THSTEP, + * 'GAMMA ', 'EM IONIZ','EM CUT','MU IONIZ','MU CUT', + * ((2*J-1)*.5*THSTEP,(ADLONG(J,K),SDLONG(J,K),K=1,5), + * J=LPCT0+1,NSTEP) + 913 FORMAT(/' AVERAGE LONGITUDINAL ENERGY DEPOSIT [GEV] IN ', + * 'STEPS OF ', F5.0,' G/CM**2 '/' ',132('=')/ + * ' DEPTH',6X,A11,14X,2(A10,17X),A9,16X,A9 // + * (' ',F6.1, F10.0,'+-',F10.0,1X,F13.0,'+-',F12.0, + * 1X,F13.0,'+-',F12.0,1X,F10.0,'+-',F11.0, + * 1X,F10.0,'+-',F11.0 )) + WRITE(MONIOU,917) (ADLONG(1170,K),K=1,5) + 917 FORMAT(' ',20X,'AVERAGE LONGITUDINAL ENERGY SUM [GEV] '/ + * ' ',4X,F13.1,13X,F13.1,14X,F14.1,12X,F13.1,11X,F13.1) + WRITE(MONIOU,914) THSTEP, + * 'HADR IONIZ','HADR CUT','NEUTRINO',' SUM', + * ((2*J-1)*.5*THSTEP,(ADLONG(J,K),SDLONG(J,K),K=6,9), + * J=LPCT0+1,NSTEP) + 914 FORMAT(/' AVERAGE LONGITUDINAL ENERGY DEPOSIT [GEV] IN ', + * 'STEPS OF ',F5.0,' G/CM**2 '/' ',112('=')/ + * ' DEPTH',7X,A10,16X,A10,16X,A10,15X,A9 // + * (' ',F6.1, F11.1,'+-',F11.1,1X,F13.0,'+-',F13.0, + * 2X,F10.1,'+-',F10.1,1X,F13.1,'+-',F13.1)) + WRITE(MONIOU,918) (ADLONG(1170,K),K=6,8) + 918 FORMAT(' ',20X,'AVERAGE LONGITUDINAL ENERGY SUM [GEV] ', + * /,' ',4X,F13.1,14X,F14.1,14X,F12.1) + WRITE(MONIOU,919) ADLONGSUM + 919 FORMAT(' ',20X,' ENERGY SUM = ',1P,E15.7,0P,' GEV') + + IF ( FLGFIT ) THEN +C PERFORM FIT TO THE LONGITUDINAL DISTRIBUTION OF ALL CHARGED PARTICLES +C IF EGS IS SELECTED THIS IS THE DISTRIBUTION WHICH IS TO BE TAKEN + IF ( FEGS ) THEN + DO 730 J = 0,NSTEP-LPCT0 + DEP(J+1) = (J+LPCT0)*THSTEP + CHAPAR(J+1) = MAX( APLONG(J+LPCT0,7), 0.D0 ) + 730 CONTINUE + NSTP = NSTEP + 1 - LPCT0 + WRITE(MONIOU,8229) 'AVERAGE ALL CHARGED PARTICLES' +C IF NKG IS SELECTED ONLY THE ELECTRON DISTRIBUTION IS AVAILABLE + ELSEIF ( FNKG ) THEN + DEP(1) = 0.D0 + CHAPAR(1) = 0.D0 + DO 731 J = 1,IALT(1) + DEP(J+1) = TLEV(J) + CHAPAR(J+1) = MAX( SEL(J)/ISHW, 0.D0 ) + 731 CONTINUE + NSTP = IALT(1) + 1 + WRITE(MONIOU,8229) 'AVERAGE NKG ELECTRONS' +C IF NONE IS SELECTED IT DOES NOT REALLY MAKE SENSE TO FIT +C BUT LET'S TAKE THEN ALL CHARGED WHICH ARE MUONS AND HADRONS + ELSE + DO 732 J = 0,NSTEP-LPCT0 + DEP(J+1) = (J+LPCT0)*THSTEP + CHAPAR(J+1) = MAX( APLONG(J+LPCT0,7), 0.D0 ) + 732 CONTINUE + NSTP = NSTEP + 1 - LPCT0 + WRITE(MONIOU,8229) 'AVERAGE MUONS AND CHARGED HADRONS' + ENDIF + IF ( NSTP .GT. 6 ) THEN +C THERE ARE MORE THAN 6 STEP VALUES, A FIT SHOULD BE POSSIBLE. +C DO THE FIT: NPAR AND FPARAM GIVE THE NUMBER OF PARAMETERS USED +C AND THE FINAL VALUES FOR THE PARAMETERS. CHISQ GIVES THE CHI**2/DOF +C FOR THE FIT. + CALL LONGFT(FPARAM,CHI2) + IF ( FPARAM(1) .GT. 0.D0 ) THEN + WRITE(MONIOU,8230) FPARAM,CHI2, + * CHI2/SQRT(FPARAM(1))*100.D0 + ELSE + WRITE(MONIOU,8231) FPARAM,CHI2 + ENDIF + ELSE + WRITE(MONIOU,*) 'NO LONGI. FIT POSSIBLE, ', + * ' NSTP = ',NSTP,' TOO SMALL.' + ENDIF + ENDIF + ENDIF + + ENDIF +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + +C CONTROL PRINT OUTPUT OF CONSTANTS + IF ( DEBUG ) THEN + CALL STAEND + WRITE(MDEBUG,*) 'AAMAIN: STAEND CALLED' + ENDIF +c------changed ---add +CBC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +C +C Modified by C. Bigongiari 2001 Jan 16 +C +Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +C call jcenddata(runh,rune) +Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +C +C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +c------changed---add + + WRITE(MONIOU,*) ' ' + CALL PRTIME(TTIME) + WRITE(MONIOU,101) + 101 FORMAT (/' ',10('='),' END OF RUN ',48('=')) + +C CLOSE ALL OPEN UNITS + IF ( MONIOU .NE. 6 ) CLOSE(MONIOU) + IF ( MDEBUG .NE. 6 ) CLOSE(MDEBUG) + CLOSE(MEXST) + IF ( FPAROUT ) CLOSE(MPATAP) + IF ( FTABOUT ) CLOSE(MTABOUT) + IF ( FLONGOUT .AND. LLONGI ) CLOSE(MLONGOUT) + IF ( LCERFI ) CLOSE(MCETAP) + + STOP + END +*CMZ : 06/11/2000 10.53.24 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE ADDANG( COST0,PHI0, COST,PHI, COST1,PHI1 ) + +C----------------------------------------------------------------------- +C ADD(ITION OF) ANG(LES) +C +C ADDITION OF ANGLES IS DONE BY SEQUENTIAL ROTATIONS : +C 1. ROTATE VECTOR AROUND Z AXIS BY -PHI0 +C 2. ROTATE VECTOR AROUND Y AXIS BY -THETA0 NOW VECTOR IS (0,0,1) +C +C 3. ROTATE VECTOR AROUND Y AXIS BY THETA ANGLES TO BE ADDED +C 4. ROTATE VECTOR AROUND Z AXIS BY PHI +C +C 5. ROTATE VECTOR AROUND Y AXIS BY THETA0 +C 6. ROTATE VECTOR AROUND Z AXIS BY -PHI0 +C NOW VECTOR IS (X,Y,Z) WITH COST1 = Z +C AND TAN(PHI1) = Y/X +C THIS SUBROUTINE IS CALLED FROM MANY ROUTINES. +C ARGUMENTS: +C COST0 = COSINE THETA OF PARTICLE BEFORE +C PHI0 = PHI OF PARTICLE BEFORE +C COST = COSINE THETA OF ANGLE TO ADD +C PHI = PHI OF ANGLE TO ADD +C COST1 = COSINE THETA OF PARTICLE AFTER ADDITION OF ANGLES +C PHI1 = PHI THETA OF PARTICLE AFTER ADDITION OF ANGLES +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION A,COST,COST0,COST1,CPHI,CPHI0,PHI,PHI0,PHI1, + * SINT,SINT0,SPHI,SPHI0,XXX,YYY,ZZZ + SAVE +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'ADDANG:' + + SINT0 = SQRT(1.D0-COST0**2) + SINT = SQRT(1.D0-COST **2) + SPHI0 = SIN(PHI0) + CPHI0 = COS(PHI0) + SPHI = SIN(PHI) + CPHI = COS(PHI) + + A = COST0 * CPHI * SINT + COST * SINT0 + XXX = A * CPHI0 - SPHI0 * SINT * SPHI + YYY = A * SPHI0 + CPHI0 * SINT * SPHI + ZZZ = COST * COST0 - SINT0 * SINT * CPHI + +C GET NEW COSINE(THETA) AND PHI + COST1 = MIN(ZZZ, 1.D0) + IF ( YYY .EQ. 0.D0 .AND. XXX .EQ. 0.D0 ) THEN + PHI1 = 0.D0 + ELSE + PHI1 = ATAN2( YYY, XXX ) + ENDIF + + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE ADDANI( COST0,PHI0, COST1,PHI1, DCTH,DPHI ) + +C----------------------------------------------------------------------- +C ADD(ITION OF) AN(GLES) I(NVERTED) +C +C GIVEN TWO DIRECTIONS (0 AND 1) IN A COMMON SYSTEM OF REFERENCE. +C FIND DCTH AND DPHI SUCH, THAT THE SUBROUT. ADDANG TRANSFORMS +C (COST0,PHI0) BY ADDING (DCTH,DPHI) INTO (COST1,PHI1). +C CALCULATION IS DONE BY SEQUENTIAL ROTATIONS : +C 1. ROTATE VECTOR AROUND Z AXIS BY -PHI1 +C 2. ROTATE VECTOR AROUND Y AXIS BY -THETA1 +C NOW VECTOR IS (X,Y,Z) WITH DCTH = Z +C AND TAN(DPHI) = Y/X +C THIS SUBROUTINE IS CALLED FROM MUDECY. +C ARGUMENTS: +C COST0 = COSINE THETA OF PARTICLE BEFORE +C PHI0 = PHI OF PARTICLE BEFORE +C COST1 = COSINE THETA OF PARTICLE +C PHI1 = PHI OF PARTICLE +C DCTH = COSINE THETA OF ANGLE +C DPHI = PHI OF ANGLE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION COST0,COST1,CP,CP1,CT,CT1,DCTH,DPHI,PHI0,PHI1, + * SP,SP1,ST,ST1,X,XX,Y,YY,Z,ZZ + SAVE +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'ADDANI:' + + CT = COST0 + ST = SQRT(1.D0-CT**2) + CP = COS(PHI0) + SP = SIN(PHI0) + CT1 = COST1 + ST1 = SQRT(1.D0-CT1**2) + CP1 = COS(PHI1) + SP1 = SIN(PHI1) + + X = ST1 * CP1 + Y = ST1 * SP1 + Z = CT1 + + XX = CT*CP*X + CT*SP*Y - ST*Z + YY = (-SP) *X + CP *Y + ZZ = ST*CP*X + ST*SP*Y + CT*Z + +C GET NEW COSINE(THETA) AND PHI + DCTH = ZZ + IF ( YY .NE. 0.D0 .OR. XX .NE. 0.D0 ) THEN + DPHI = ATAN2( YY, XX ) + ELSE + DPHI = 0.D0 + ENDIF + + RETURN + END +*CMZ : 28/02/2002 13.08.19 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 16/05/95 +C======================================================================= + + SUBROUTINE AMOEBA(P,Y,MP,NP,NDIM,FTOL,FUNK,ITER,IFLAG) + +C----------------------------------------------------------------------- +C +C FITTING ROUTINE +C REFERENCE : NUMERICAL RECIPES, W.H. PRESS ET AL., +C CAMBRIDGE UNIVERSITY PRESS, 1992 ISBN 0 521 43064 X +C ADAPTED FOR DOUBLE PRECISION +C THIS SUBROUTINE IS CALLED FROM LONGFT. +C ARGUMENTS: +C P = ARRAY (NPAR+1,NPAR) WITH PARAMETERS FOR FIT +C Y = ARRAY WITH ERRORS +C MP = NUMBER NPAR+1 +C NDIM = NUMBER NPAR OF FREE VARIABLES +C FTOL = TOLERANCE OF FIT +C FUNK = EXTERNAL FUNKTION (GIVING DERIVATIVES) +C ITER = ITERATION COUNTER +C IFLAG = ERROR FLAG +C +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER ITMAX,NMAX +C MAXIMUM NUMBER OF TRIAL PER CALL + PARAMETER (ITMAX=5000) + PARAMETER (NMAX=20) + INTEGER MP,NP + DOUBLE PRECISION FTOL,P(MP,NP),PSUM(NMAX), + * RTOL,SUM,SWAP,Y(MP),YSAVE,YTRY + INTEGER I,IFLAG,IHI,ILO,INHI,ITER,J,M,N,NDIM + DOUBLE PRECISION AMOTRY,FUNK + SAVE + EXTERNAL AMOTRY,FUNK +C USES AMOTRY,FUNK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'AMOEBA:' + + IFLAG = 0 + ITER = 0 + 1 DO 12 N = 1,NDIM + SUM = 0.D0 + DO 11 M = 1,NDIM+1 + SUM = SUM + P(M,N) + 11 CONTINUE + PSUM(N) = SUM + 12 CONTINUE + 2 ILO = 1 + IF ( Y(1) .GT. Y(2) ) THEN + IHI = 1 + INHI = 2 + ELSE + IHI = 2 + INHI = 1 + ENDIF + DO 13 I = 1,NDIM+1 + IF ( Y(I) .LE. Y(ILO) ) ILO = I + IF ( Y(I) .GT. Y(IHI) ) THEN + INHI = IHI + IHI = I + ELSEIF ( Y(I) .GT. Y(INHI) ) THEN + IF ( I .NE. IHI ) INHI = I + ENDIF + 13 CONTINUE + RTOL = 2.D0*ABS(Y(IHI)-Y(ILO))/(ABS(Y(IHI))+ABS(Y(ILO))) + IF ( RTOL .LT. FTOL ) THEN + SWAP = Y(1) + Y(1) = Y(ILO) + Y(ILO) = SWAP + DO 14 N = 1,NDIM + SWAP = P(1,N) + P(1,N) = P(ILO,N) + P(ILO,N) = SWAP + 14 CONTINUE + RETURN + ENDIF + IF ( ITER .GE.ITMAX ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'AMOEBA: ITMAX EXCEEDED IN AMOEBA' + IFLAG = 1 + RETURN + ENDIF + ITER = ITER + 2 + YTRY = AMOTRY(P,Y,PSUM,MP,NP,NDIM,FUNK,IHI,-1.0D0) + IF ( YTRY .LE. Y(ILO) ) THEN + YTRY = AMOTRY(P,Y,PSUM,MP,NP,NDIM,FUNK,IHI,2.0D0) + ELSEIF ( YTRY .GE. Y(INHI) ) THEN + YSAVE = Y(IHI) + YTRY = AMOTRY(P,Y,PSUM,MP,NP,NDIM,FUNK,IHI,0.5D0) + IF ( YTRY .GE. YSAVE ) THEN + DO 16 I = 1,NDIM+1 + IF ( I .NE. ILO ) THEN + DO 15 J = 1,NDIM + PSUM(J) = 0.5D0 * (P(I,J) + P(ILO,J)) + P(I,J) = PSUM(J) + 15 CONTINUE + Y(I) = FUNK(PSUM) + ENDIF + 16 CONTINUE + ITER = ITER + NDIM + GOTO 1 + ENDIF + ELSE + ITER = ITER - 1 + ENDIF + GOTO 2 + END +C======================================================================= + + DOUBLE PRECISION FUNCTION AMOTRY(P,Y,PSUM,MP,NP,NDIM,FUNK,IHI,FAC) + +C----------------------------------------------------------------------- +C +C REFERENCE : NUMERICAL RECIPES, W.H. PRESS ET AL., +C CAMBRIDGE UNIVERSITY PRESS, 1992 ISBN 0 521 43064 X +C ADAPTED FOR DOUBLE PRECISION +C USES EXTERNAL FUNCTION FUNK +C THIS FUNCTION IS CALLED FROM AMOEBA. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER MP,NP,NMAX + PARAMETER (NMAX=20) + DOUBLE PRECISION FAC,P(MP,NP),PSUM(NP),Y(MP),FUNK + DOUBLE PRECISION FAC1,FAC2,YTRY,PTRY(NMAX) + INTEGER IHI,NDIM,J + SAVE + EXTERNAL FUNK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'AMOTRY:' + + FAC1 = (1.D0-FAC)/NDIM + FAC2 = FAC1-FAC + DO 11 J = 1,NDIM + PTRY(J) = PSUM(J) * FAC1 - P(IHI,J) * FAC2 + 11 CONTINUE + YTRY = FUNK(PTRY) + IF ( YTRY .LT. Y(IHI) ) THEN + Y(IHI) = YTRY + DO 12 J = 1,NDIM + PSUM(J) = PSUM(J) - P(IHI,J) + PTRY(J) + P(IHI,J) = PTRY(J) + 12 CONTINUE + ENDIF + AMOTRY = YTRY + RETURN + END +*CMZ : 05/03/2002 08.29.24 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + BLOCK DATA BLOCK1 + +C----------------------------------------------------------------------- +C +C INITIALIZES DATA +C THIS ROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,EDECAY. + COMMON /EDECAY/ CETA + DOUBLE PRECISION CETA(5) +*KEEP,GNUPR. + COMMON /GNUPR/ SE14,SE16,SE40 + DOUBLE PRECISION SE14(3,14),SE16(3,16),SE40(3,40) +*KEEP,KAONS. + COMMON /KAONS/ CKA + DOUBLE PRECISION CKA(80) +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,NKGI. + COMMON /NKGI/ SEL,SELLG,STH,ZEL,ZELLG,ZSL,DIST, + * DISX,DISY,DISXY,DISYX,DLAX,DLAY,DLAXY,DLAYX, + * OBSATI,RADNKG,RMOL,TLEV,TLEVCM,IALT + DOUBLE PRECISION SEL(10),SELLG(10),STH(10),ZEL(10),ZELLG(10), + * ZSL(10),DIST(10), + * DISX(-10:10),DISY(-10:10), + * DISXY(-10:10,2),DISYX(-10:10,2), + * DLAX (-10:10,2),DLAY (-10:10,2), + * DLAXY(-10:10,2),DLAYX(-10:10,2), + * OBSATI(2),RADNKG,RMOL(2),TLEV(10),TLEVCM(10) + INTEGER IALT(2) +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKF. + COMMON /STACKF/ STACK,MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT, + * NTO,NFROM + INTEGER MAXSTK + PARAMETER (MAXSTK = 16*256*2) + DOUBLE PRECISION STACK(MAXSTK) + INTEGER MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM +*KEEP,STRBAR. + COMMON /STRBAR/ CSTRBA + DOUBLE PRECISION CSTRBA(11) +*KEEP,VERS. + COMMON /VERS/ VERNUM,MVDATE,VERDAT + DOUBLE PRECISION VERNUM + INTEGER MVDATE + CHARACTER*18 VERDAT +*KEEP,CEREN3. + COMMON /CEREN3/ CERCNT,DATAB2,NRECER,LHCER + INTEGER MAXBF2 + PARAMETER ( MAXBF2 = 39 * 7 ) + DOUBLE PRECISION CERCNT + REAL DATAB2(MAXBF2) + INTEGER NRECER,LHCER +*KEND. + +C----------------------------------------------------------------------- +C AIR + DATA COMPOS / 0.78479D0, 0.21052D0, 0.00469D0 / + DATA PROBTA / 0.78479D0, 0.99531D0, 1.00000D0 / + DATA AVERAW / 14.543D0 / +C VALUE OF AVOGADRO REVISED SEPT. 2000 BY D.H. + DATA AVOGAD / 6.02214199D-4 / + +C ATMOS (U.S.STANDARD IS DEFAULT) + DATA AATM / -186.5562D0, -94.919D0, 0.61289D0,0.D0,.01128292D0 / + DATA BATM / 1222.6562D0,1144.9069D0,1305.5948D0,540.1778D0,1.D0 / + DATA CATM / 994186.38D0,878153.55D0,636143.04D0,772170.16D0,1.D9/ + + DATA ((AATM0(I,J),I=1,5),J=0,16) + * /-186.5562D0, -94.919D0 ,.61289D0 , 0.D0 , .01128292D0 , + * -186.5562D0, -94.919D0 ,.61289D0 , 0.D0 , .01128292D0 , + * -118.1277D0,-154.258D0 ,.4191499D0, 5.4094056D-4, .01128292D0 , + * -195.837264D0,-50.4128778D0,.345594007D0,5.46207D-4,.01128292D0, + * -253.95047D0,-128.97714D0,.353207D0 , 5.526876D-4 , .01128292D0 , + * -208.12899D0,-120.26179D0,.31167036D0,5.591489D-4 , .01128292D0 , + * -77.875723D0,-214.96818D0,.3721868D0, 5.5309816D-4, .01128292D0 , + * -242.56651D0,-103.21398D0,.3349752D0, 5.527485D-4 , .01128292D0 , + * -195.34842D0,-71.997323D0,.3378142D0, 5.48224D-4 , .01128292D0 , + * 0.D0 , 0.D0 , 0.D0, 0.D-4 , .01128292D0 , + * 0.D0 , 0.D0 , 0.D0, 0.D-4 , .01128292D0 , + * -137.656D0, -37.9610D0, .222659D0,-6.16201D-4 , .00207722D0 , + * -163.331D0, -65.3713D0, .402903D0,-4.79198D-4 , .00188667D0 , + * -142.801D0, -70.1538D0, 1.14855D0,-9.10269D-4 , .00152236D0 , + * -128.601D0, -39.5548D0, 1.13088D0,-26.4960D-4 , .00192534D0 , + * -113.139D0, -79.0635D0,-54.3888D0, 0.00000D0 , .4210330D-2 , + * - 59.0293D0, -21.5794D0,-7.14839D0, 0.00000D0 , .1901750D-3 / + DATA ((BATM0(I,J),I=1,5),J=0,16) + * / 1222.6562D0, 1144.9069D0, 1305.5948D0, 540.1778D0, 1.D0 , + * 1222.6562D0, 1144.9069D0, 1305.5948D0, 540.1778D0, 1.D0 , + * 1173.9861D0, 1205.7625D0, 1386.7807D0, 555.8935D0, 1.D0 , + * 1240.48D0 , 1117.85D0 , 1210.9D0 , 608.2128D0, 1.D0 , + * 1285.2782D0, 1173.1616D0, 1320.4561D0, 680.6803D0, 1.D0 , + * 1251.474D0 , 1173.321D0 , 1307.826D0 , 763.1139D0, 1.D0 , + * 1103.3362D0, 1226.5761D0, 1382.6933D0, 685.6073D0, 1.D0 , + * 1262.7013D0, 1139.0249D0, 1270.2886D0, 681.4061D0, 1.D0 , + * 1210.4D0 , 1103.8629D0, 1215.3545D0, 629.7611D0, 1.D0 , + * 0.D0 , 0.D0 , 0.D0 , 0.D0 , 1.D0 , + * 0.D0 , 0.D0 , 0.D0 , 0.D0 , 1.D0 , + * 1130.74D0, 1052.05D0, 1137.21D0, 442.512D0, 1.D0 , + * 1183.70D0, 1108.06D0, 1424.02D0, 207.595D0, 1.D0 , + * 1177.19D0, 1125.11D0, 1304.77D0, 433.823D0, 1.D0 , + * 1139.99D0, 1073.82D0, 1052.96D0, 492.503D0, 1.D0 , + * 1133.10D0, 1101.20D0, 1085.00D0, 1098.00D0, 1.D0 , + * 1079.00D0, 1071.90D0, 1182.00D0, 1647.10D0, 1.D0 / + DATA ((CATM0(I,J),I=1,5),J=0,16) + * / 994186.38D0, 878153.55D0, 636143.04D0, 772170.16D0, 1.D9 , + * 994186.38D0, 878153.55D0, 636143.04D0, 772170.16D0, 1.D9 , + * 919546.D0 , 963267.92D0, 614315.D0 , 739059.6D0 , 1.D9 , + * 933697.D0 , 765229.D0 , 636790.D0 , 733793.8D0 , 1.D9 , + * 1088310.D0 , 935485.D0 , 635137.D0 , 727312.6D0 , 1.D9 , + * 1032310.D0 , 925528.D0 , 645330.D0 , 720851.4D0 , 1.D9 , + * 932077.D0 ,1109960.D0 , 630217.D0 , 726901.3D0 , 1.D9 , + * 1059360.D0 , 888814.D0 , 639902.D0 , 727251.8D0 , 1.D9 , + * 970276.D0 , 820946.D0 , 639074.D0 , 731776.5D0 , 1.D9 , + * 0.D0 , 0.D0 , 0.D0 , 0.D0 , 1.D9 , + * 0.D0 , 0.D0 , 0.D0 , 0.D0 , 1.D9 , + * 867358.D0 , 741208.D0 , 633846.D0 , 759850.D0,5.4303203D9, + * 875221.D0 , 753213.D0 , 545846.D0 , 793043.D0,5.9787908D9, + * 861745.D0 , 765925.D0 , 581351.D0 , 775155.D0,7.4095699D9, + * 861913.D0 , 744955.D0 , 675928.D0 , 829627.D0,5.8587010D9, + * 861730.D0 , 826340.D0 , 790950.D0 , 682800.D0,2.6798156D9, + * 764170.D0 , 699910.D0 , 635650.D0 , 551010.D0,59.329575D9/ + DATA (LAYNO(J), J=0,16) + * / 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 2, 3 / + DATA (HLAY(I),I=1,5) + * / -5779.5D2 , 4.D5 , 1.D6 , 4.D6, 1.D7 / + DATA ((HLAY0(I,J),I=1,5),J=0,3) + * / -5779.5D2 , 4.D5 , 1.D6 , 4.D6, 1.D7 , + * -5779.5D2 , 4.D5 , 1.D6 , 4.D6, 1.D7 , + * 0.D0 , 2.66667D5 , 5.33333D5 , 8.D5, 1.D7 , + * 0.D0 , 6.66667D5 ,13.33333D0 , 20.D5, 1.D7 / +C CEREN3 + DATA CERCNT / 0.D0 / +C CONSTA + DATA PI / 3.141592653589793D0 / + DATA PI2 / 6.283185307179586D0 / + DATA OB3 / 0.333333333333333D0 / + DATA TB3 / 0.666666666666666D0 / +C ENEPER IS CALCULATED IN START: ENEPER = EXP(1.D0) +C DATA FOR MUPART: CUTOFF FOR BREMSSTRAHLUNG AT 3 MEV + DATA BCUT /0.003D0/ +C DATA FOR REST: AVERAGE ATOMIC WEIGHT, NEUTRON CONTENTS OF N,O,AR + DATA TAR / 14.6D0 /, CONTNE / 0.5D0, 0.5D0, 0.55D0 /, LT / 1 / +C KAON CONSTANTS +C REVISED SEPT. 2000 BY D. HECK + DATA CKA / 0.0D0, 0.1D0, 1.2386D-8, 1.2386D-8, 0.8935D-10, + * 5.17D-8, 0.25D0, 0.5D0, 0.75D0, 1.0D0, + * 0.5D0, 0.2D0, 0.0D0, 0.0D0, 149.6D0, + * 149.6D0,0.236D0, 0.206D0, 0.135D0, 0.222D0, + * 0.5D0, 0.0D0, 0.635D0, 0.686D0, 0.8734D0, + * 0.6598D0,.3884D0, 0.0D0, 0.0D0, 0.0D0, + * 0.0D0, 0.0D0, 0.0D0, 0.0D0, 1.0D0, + * 1.0D5, 0.0D0, 0.0D0, 0.0D0, 0.0D0, + * 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, + * 0.0D0,0.8468D0, 0.9027D0, 0.9509D0, 0.9827D0, + * -0.2154D0, 0.012D0,-0.0101D0, 1.27D0, 0.652D0, + * 0.057D0, 0.0D0, 1.84D0, 0.0D0, 1.0D0, + * 0.678D0, 0.076D0, 0.0099D0, 2.22D0, 0.0288D0, + * 0.0D0,1.288D-2, 0.031D0, 0.006D0, 1.194D-2, + * 0.0288D0, 0.0D0, 1.310D-2, 0.034D0, 0.025D0, + * 1.241D-2, 0.0D0, 0.0D0, 0.0D0, 0.0D0 / +C DATA FOR ETA DECAY + DATA CETA / 0.3960D0, 0.7206D0, 0.9522D0, -1.07D0, 2.07D0 / +C DATA FOR STRANGE BARYON DECAY + DATA CSTRBA / 2.632D-10,0.8018D-10, 7.4D-20, 1.479D-10,0.6409D0, + * 0.5163D0, 2.90D-10, 1.639D-10, 0.821D-10, 0.678D0, + * 0.914D0 / +C PARPAR + DATA C /6371315.D2, 6.0D5, 20.0D5, 0.0D0, 0.0D0, + * 0.0D0, 0.0D0, 0.0D0, 2.5D0, 2.07D0, + * 8.2D0, 0.1D0, 0.0D0, 0.0D0, 0.0D0, + * 88.0D0, 110.D0, 2.6033D-8, 2.19703D-6, 0.0D0, + * 37.7D0, 1.532873D-4, 9.386417D0, 2.D-3, 29.9792458D9, + * 1.0D0, 0.0D0, 1.57D0, 0.0D0, 0.021D0, + * 88.0D0, 110.0D0, 0.0D0, 2.0D1, 0.0D0, + * 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, + * 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, + * 0.0D0, 0.0D0, 0.0D0, 0.0D0,137.0359998D0 / +C RUNPAR,STACKF + DATA MONIIN / 5 /, MONIOU / 6 /, MPATAP / 90 /, MEXST / 96 /, + * MDEBUG / 6 /, NUCNUC / 11 /, MDBASE / 45 /, MTABOUT / 46 /, + * MLONGOUT / 48 / + * ,MCETAP / 91 / +C UNRELEASABLE ENERGY (REST MASS) FOR THINNING + DATA RESTMS/ 0., -.511D-3, .511D-3, 0., .105658 , + * .105658 , 0., 0., 0., 0., + * 0., 0., .939566 , .93827 , 0. , + * 0., 0., .939 , .939 , .939 , + * .939 , .939 , .939 , .939 , 0. , + * 0. , 0. , 0. , 0. , 0. , + * 0. , 0. , 0., 0., 0., + * 0., 0., 0., 0., 0., + * 0., 0., 0., 0., 0., + * 0., 0., 0., 0., 0., + * 0., 0., 0., .939 , .939 , + * .939 , .939 , 0. , 0. , 0. , + * 0. , 0., 0., 0., 0., + * 0., 0., 0., 0., 0., + * 0., 0., 0., 0., 0., + * 5925*0.D0/ +C GNUPR (NEW VERSION OCT 1991) +C NITROGEN TARGET 14 + DATA ((SE14(I,J),I=1,3),J=1,14) + * / 0.472000D+00,-0.426710D-02, 0.726439D-04, + * 0.230324D+00,-0.989733D-03,-0.807077D-05, + * 0.138623D+00, 0.609624D-03,-0.401675D-04, + * 0.827139D-01, 0.135103D-02,-0.360236D-04, + * 0.445693D-01, 0.137582D-02,-0.137674D-04, + * 0.206106D-01, 0.998620D-03, 0.422867D-05, + * 0.792756D-02, 0.559858D-03, 0.957875D-05, + * 0.247793D-02, 0.247480D-03, 0.701650D-05, + * 0.615535D-03, 0.860096D-04, 0.324410D-05, + * 0.118279D-03, 0.230732D-04, 0.104282D-05, + * 0.169210D-04, 0.461424D-05, 0.235175D-06, + * 0.169481D-05, 0.647634D-06, 0.358189D-07, + * 0.105988D-06, 0.568994D-07, 0.332920D-08, + * 0.311374D-08, 0.235385D-08, 0.143213D-09/ +C OXYGEN TARGET 16 + DATA ((SE16(I,J), I=1,3),J=1,16) + * /0.475002D+00,-0.434401D-02, 0.734217D-04, + * 0.230261D+00,-0.966152D-03,-0.982228D-05, + * 0.137372D+00, 0.642454D-03,-0.408490D-04, + * 0.813380D-01, 0.135241D-02,-0.354835D-04, + * 0.437870D-01, 0.135776D-02,-0.134429D-04, + * 0.204919D-01, 0.988538D-03, 0.398723D-05, + * 0.812995D-02, 0.567070D-03, 0.942943D-05, + * 0.269031D-02, 0.263160D-03, 0.728079D-05, + * 0.732711D-03, 0.993722D-04, 0.366933D-05, + * 0.161940D-03, 0.303662D-04, 0.134776D-05, + * 0.285325D-04, 0.740356D-05, 0.371648D-06, + * 0.390910D-05, 0.140655D-05, 0.768260D-07, + * 0.401145D-06, 0.200620D-06, 0.116200D-07, + * 0.290010D-07, 0.202033D-07, 0.121929D-08, + * 0.131709D-08, 0.128046D-08, 0.795482D-10, + * 0.282645D-10, 0.384068D-10, 0.243535D-11/ +C ARGON TARGET 40 + DATA ((SE40(I,J),I=1,3),J=1,18) + * / 0.318084D+00,-0.352566D-02, 0.829469D-04, + * 0.193581D+00,-0.238538D-02, 0.404919D-04, + * 0.148699D+00,-0.118791D-02,-0.130378D-04, + * 0.117201D+00, 0.966097D-04,-0.536044D-04, + * 0.876737D-01, 0.106482D-02,-0.612882D-04, + * 0.600279D-01, 0.150343D-02,-0.412273D-04, + * 0.370180D-01, 0.147347D-02,-0.130096D-04, + * 0.204422D-01, 0.117625D-02, 0.743960D-05, + * 0.101003D-01, 0.807913D-03, 0.155153D-04, + * 0.447163D-02, 0.489622D-03, 0.146804D-04, + * 0.177806D-02, 0.265260D-03, 0.102802D-04, + * 0.636671D-03, 0.129412D-03, 0.591434D-05, + * 0.205809D-03, 0.571042D-04, 0.291674D-05, + * 0.601981D-04, 0.228546D-04, 0.126074D-05, + * 0.159631D-04, 0.831226D-05, 0.484001D-06, + * 0.384379D-05, 0.275100D-05, 0.166440D-06, + * 0.841490D-06, 0.829259D-06, 0.515615D-07, + * 0.167633D-06, 0.227810D-06, 0.144446D-07/ + DATA((SE40(I,J),I=1,3),J=19,36) + * /0.304029D-07, 0.570494D-07, 0.366843D-08, + * 0.502077D-08, 0.130224D-07, 0.845876D-09, + * 0.754786D-09, 0.270844D-08, 0.177211D-09, + * 0.103229D-09, 0.512862D-09, 0.337323D-10, + * 0.128308D-10, 0.883149D-10, 0.583066D-11, + * 0.144721D-11, 0.138082D-10, 0.914113D-12, + * 0.147837D-12, 0.195621D-11, 0.129757D-12, + * 0.136429D-13, 0.250465D-12, 0.166371D-13, + * 0.113379D-14, 0.288894D-13, 0.192092D-14, + * 0.845213D-16, 0.299003D-14, 0.198959D-15, + * 0.562496D-17, 0.276346D-15, 0.183981D-16, + * 0.332222D-18, 0.226723D-16, 0.151001D-17, + * 0.172872D-19, 0.163915D-17, 0.109200D-18, + * 0.785321D-21, 0.103480D-18, 0.689517D-20, + * 0.307886D-22, 0.563885D-20, 0.375787D-21, + * 0.102630D-23, 0.261299D-21, 0.174154D-22, + * 0.285163D-25, 0.100944D-22, 0.672832D-24, + * 0.642589D-27, 0.316302D-24, 0.210839D-25/ + DATA((SE40(I,J),I=1,3),J=37,40) + * /0.112817D-28, 0.772286D-26, 0.514807D-27, + * 0.144773D-30, 0.137838D-27, 0.918858D-29, + * 0.120779D-32, 0.159956D-29, 0.106632D-30, + * 0.491605D-35, 0.905709D-32, 0.603784D-33/ + +C VERSION NUMBER AND DATE OF RELEASE + DATA VERNUM / 6.014 / + DATA MVDATE / 20020305 / +C -YYYYMMDD- + DATA VERDAT / 'MARCH 05, 2002' / +C ----+----+----+--- + END +*CMZ : 28/02/2002 13.08.19 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE BOX2 + +C----------------------------------------------------------------------- +C +C DETERMINES POINT OF INTERACTION OR DECAY FOR ANY PARTICLE +C HEAVY PRIMARIES AND STRANGE BARYONS INCLUDED +C ANNIHILATION CROSS-SECTION INCLUDED +C PRECISE MEAN FREE PATH FOR DECAYING PARTICLES +C HAS INTERACTION LENGTH STATISTICS INCLUDED +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,CHISTA. + COMMON /CHISTA/ IHYCHI,IKACHI,IMUCHI,INNCHI,INUCHI,IPICHI + INTEGER IHYCHI(124),IKACHI(124),IMUCHI(124), + * INNCHI(124),INUCHI(124),IPICHI(124) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,KAONS. + COMMON /KAONS/ CKA + DOUBLE PRECISION CKA(80) +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,NCSNCS. + COMMON /NCSNCS/ SIGN30,SIGN45,SIGN60,SIGO30,SIGO45,SIGO60, + * SIGA30,SIGA45,SIGA60,PNOA30,PNOA45,PNOA60, + * SIG30A,SIG45A,SIG60A + DOUBLE PRECISION SIGN30(56),SIGN45(56),SIGN60(56), + * SIGO30(56),SIGO45(56),SIGO60(56), + * SIGA30(56),SIGA45(56),SIGA60(56), + * PNOA30(1540,3),PNOA45(1540,3),PNOA60(1540,3), + * SIG30A(56),SIG45A(56),SIG60A(56) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEEP,STRBAR. + COMMON /STRBAR/ CSTRBA + DOUBLE PRECISION CSTRBA(11) +*KEEP,VENUS. + COMMON /VENUS/ ISH00,IVERVN,MTAR99,FVENUS,FVENSG + INTEGER ISH00,IVERVN,MTAR99 + LOGICAL FVENUS,FVENSG +*KEND. + + DOUBLE PRECISION CHIBRM,CHIPRM,CHIINT,CHI1,CHI2,CKA2,COR1,DH, + * EKIN,ELAB,ELABLG,ELABT,FRAPTN,FRPTNO, + * HEIGH,PLAB,PLABLG,SIGBRM,SIGPRM, + * SIG45,S45SQ,S4530,THICK + REAL GBRSGM,GPRSGM + INTEGER I,IA,IHY,IP,KA,MU,NI,NU + DOUBLE PRECISION HNEW + SAVE + DOUBLE PRECISION CGHSIG + EXTERNAL CGHSIG + EXTERNAL HEIGH,THICK,GBRSGM,GPRSGM +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' BOX2 : CURPAR=',1P,9E10.3) + ITYPE = CURPAR(1) + +C PHOTONS AND ELECTRONS ETA ARE TREATED SEPARATELY (SEE BOX3) + IF ( ITYPE .LE. 3 ) THEN + CHI = 0.D0 + RETURN + ENDIF + +C----------------------------------------------------------------------- +C RESONANCES ARE TREATED SEPARATELY (SEE BOX3) + IF ( ITYPE .GE. 50 .AND. ITYPE .LE. 65 ) THEN + CHI = 0.D0 + RETURN + ENDIF + + BETA = SQRT( GAMMA**2 - 1.D0 ) / GAMMA + THICKH = THICK(H) + ELAB = PAMA(ITYPE) * GAMMA + +C----------------------------------------------------------------------- +C MU + , MU - DECAYS AFTER ITS LIFE TIME +C MUON INTERACTS BY BREMSSTRAHLUNG OR PAIR PRODUCTION + IF ( ITYPE .EQ. 5 .OR. ITYPE .EQ. 6 ) THEN + CALL RMMAR( RD,3,1 ) + COR1 = (-LOG(RD(1))) * C(25) * C(19) + CALL PRANGC(COR1,.TRUE.,HNEW) + DH = MAX( H - HNEW, 0.D0 ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(1),CHIDEC=', + * ITYPE,RD(1),SNGL(CHI) + IF ( GAMMA .LE. 200.D0 ) THEN + FDECAY = .TRUE. + + ELSE +C AT HIGHER ENERGIES CHECK FOR MUON BREMSSTRAHLUNG AND PAIR PRODUCTION + ELABLG = LOG(ELAB) +C CALCULATE MUON BREMSSTRAHLUNG CROSS-SECTION FOR AIR + IF ( ELAB .LE. 1.D5 ) THEN + FRACTN = COMPOS(1)*GBRSGM( 7.,SNGL(ELAB)) + FRCTNO = FRACTN + COMPOS(2)*GBRSGM( 8.,SNGL(ELAB)) + SIGBRM = FRCTNO + COMPOS(3)*GBRSGM(18.,SNGL(ELAB)) + ELSE +C PRELIMINARY PARAMETRIZED FOR ULTRAHIGH ENERGIES (JAN 2000) + SIGBRM = EXP( ELABLG*0.046816D0 - 7.80342D0 ) + FRACTN = SIGBRM * 0.78D0 + FRCTNO = SIGBRM * 0.99D0 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : SIGBRM=',SNGL(SIGBRM) +C CALCULATE + CHIBRM = (-LOG(RD(2))) * AVERAW / (AVOGAD * SIGBRM) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(2),CHIBRM=', + * ITYPE,RD(2),SNGL(CHIBRM) + CHI1 = MIN( CHIBRM, CHI ) + + IF ( ELAB .LE. 1.D5 ) THEN +C CALCULATE MUON PAIR PRODUCTION CROSS-SECTION FOR AIR + FRAPTN = COMPOS(1)*GPRSGM( 7.,SNGL(ELAB)) + FRPTNO = FRAPTN + COMPOS(2)*GPRSGM( 8.,SNGL(ELAB)) + SIGPRM = FRPTNO + COMPOS(3)*GPRSGM(18.,SNGL(ELAB)) + ELSE +C PRELIMINARY PARAMETRIZED FOR ULTRAHIGH ENERGIES (JAN 2000) + SIGPRM = EXP( ELABLG*0.136048D0 - 3.70468D0 ) + FRAPTN = SIGPRM * 0.78D0 + FRPTNO = SIGPRM * 0.99D0 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : SIGPRM=',SNGL(SIGPRM) +C CALCULATE MEAN FREE PATH FOR PAIR PRODUCTION + CHIPRM = (-LOG(RD(3))) * AVERAW / (AVOGAD * SIGPRM) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(3),CHIPRM=', + * ITYPE,RD(3),SNGL(CHIPRM) + CHI2 = MIN( CHIPRM, CHI1 ) + IF ( CHI2 .EQ. CHI ) THEN + FDECAY = .TRUE. + ELSEIF ( CHI2 .EQ. CHIBRM ) THEN + FDECAY = .FALSE. + FMUBRM = .TRUE. +C TARGET IS CHOSEN AT RANDOM FOR MUON BREMSSTRAHLUNG + CALL RMMAR( RD,1,1 ) + IF ( RD(1)*SIGBRM .LE. FRACTN ) THEN +C BREMSSTRAHLUNG WITH NITROGEN + LT = 1 + TAR = 14.D0 + ELSEIF ( RD(1)*SIGBRM .LE. FRCTNO ) THEN +C BREMSSTRAHLUNG WITH OXYGEN + LT = 2 + TAR = 16.D0 + ELSE +C BREMSSTRAHLUNG WITH ARGON + LT = 3 + TAR = 40.D0 + ENDIF + ELSEIF ( CHI2 .EQ. CHIPRM ) THEN + FDECAY = .FALSE. + FMUBRM = .FALSE. +C TARGET IS CHOSEN AT RANDOM FOR MUON PAIR PRODUCTION + CALL RMMAR( RD,1,1 ) + IF ( RD(1)*SIGPRM .LE. FRAPTN ) THEN +C PAIR PRODUCTION WITH NITROGEN + LT = 1 + TAR = 14.D0 + ELSEIF ( RD(1)*SIGPRM .LE. FRPTNO ) THEN +C PAIR PRODUCTION WITH OXYGEN + LT = 2 + TAR = 16.D0 + ELSE +C PAIR PRODUCTION WITH ARGON + LT = 3 + TAR = 40.D0 + ENDIF + ENDIF + CHI = CHI2 + ENDIF + +C DECAY LENGTH STATISTICS + MU = 1.D0 + DH * 1.D-4 / COSTHE + MU = MIN( MU, 123 ) + IMUCHI( MU) = IMUCHI( MU) + 1 + IMUCHI(124) = IMUCHI(124) + 1 + +C----------------------------------------------------------------------- +C CHARGED PIONS + ELSEIF ( ITYPE .EQ. 8 .OR. ITYPE .EQ. 9 ) THEN + PLAB = ELAB * BETA +C CALCULATION OF CROSS-SECTION IN THE GHEISHA ROUTINES + IF ( ELAB .LE. HILOELB ) THEN + EKIN = ELAB - PAMA(ITYPE) + USELOW = .TRUE. + SIGAIR = CGHSIG(SNGL(PLAB),SNGL(EKIN),ITYPE) + GHESIG = .TRUE. + ELSE + USELOW = .FALSE. + GHESIG = .FALSE. + IF ( FVENSG .AND. (ELAB .GE. HILOELB) ) THEN + CALL VENSIG(ELAB,2) + ELSE +C SIGMA IS ENERGY DEPENDENT INELASTIC PION-NUCLEON CROSS-SECTION + IF ( PLAB .LE. 5.D0 ) THEN + SIGMA = 20.64D0 + ELSEIF ( PLAB .LT. 1.D3 ) THEN + PLABLG = LOG(PLAB) +C INELASTIC CROSS-SECTIONS FROM PARTICLE DATA GROUP +C (A.BALDINI ET AL., LANDOLT-BOERNSTEIN NEW SERIES I/12A (1987) 193) + SIGMA = 24.3D0 - 12.3D0 * PLAB**(-1.91D0) + * + 0.324D0 * PLABLG**2 - 2.44D0 * PLABLG + ELSE +C FACTOR 0.6667 GIVES RATIO BETWEEN PION AND NUCLEON CROSS-SECTION + SIGMA = 19.87D0 * ELAB**.079D0 * 0.6667D0 + ENDIF +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER 1 + SIGAIR = (1.D0 - 2.D0 * S45SQ) * SIG45A(1) + * +(S45SQ - S4530) * SIG30A(1) + * +(S45SQ + S4530) * SIG60A(1) + ENDIF + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : SIGMA,SIGAIR,GHESIG=', + * SNGL(SIGMA),SNGL(SIGAIR),GHESIG + + CALL RMMAR( RD,2,1 ) +C MEAN FREE PATH FOR INTERACTION (CHIINT) OR DECAY (CHI) + CHIINT = (-LOG(RD(1))) * AVERAW / (AVOGAD * SIGAIR) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(1),CHIINT=', + * ITYPE,RD(1),SNGL(CHIINT) + COR1 = (-LOG(RD(2))) * C(25) * C(18) + CALL PRANGC(COR1,.FALSE.,HNEW) + CHI = MAX( CHI, 0.D0 ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(2),CHIDEC=', + * ITYPE,RD(2),SNGL(CHI) + CHI = MIN( CHIINT, CHI ) + IF ( CHI .LT. CHIINT ) THEN + FDECAY = .TRUE. + ELSE + FDECAY = .FALSE. + ENDIF + +C INTERACTION LENGTH STATISTICS + IP = 1.D0 + CHI * 0.1D0 + IP = MIN( IP, 123 ) + IPICHI( IP) = IPICHI( IP) + 1 + IPICHI(124) = IPICHI(124) + 1 + +C----------------------------------------------------------------------- +C NEUTRAL PIONS + ELSEIF ( ITYPE .EQ. 7 ) THEN +C LOW ENERGY PIONS ARE NOT TRACKED AND DECAY + IF ( ELAB .LT. 1.D5 ) THEN + FDECAY = .TRUE. + CHI = 0.D0 + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,CHI,FDECAY=', + * ITYPE,SNGL(CHI),FDECAY + ELSE +C PION IS HIGH ENERGY AND MUST BE TRACKED + PLAB = ELAB * BETA + GHESIG = .FALSE. + IF ( FVENSG ) THEN + CALL VENSIG(ELAB,2) + ELSE +C SIGMA IS ENERGY DEPENDENT INELASTIC PION-NUCLEON CROSS-SECTION +C FACTOR 0.6667 GIVES RATIO BETWEEN PION AND NUCLEON CROSS-SECTION + SIGMA = 19.87D0 * ELAB**.079D0 * 0.6667D0 +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER 1 + SIGAIR = (1.D0 - 2.D0 * S45SQ) * SIG45A(1) + * +(S45SQ - S4530) * SIG30A(1) + * +(S45SQ + S4530) * SIG60A(1) + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'BOX2 : SIGMA,SIGAIR=',SNGL(SIGMA),SNGL(SIGAIR) + + CALL RMMAR( RD,2,1 ) +C MEAN FREE PATH FOR INTERACTION (CHIINT) OR DECAY (CHI) + CHIINT = (-LOG(RD(1))) * AVERAW / (AVOGAD * SIGAIR) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(1),CHIINT=', + * ITYPE,RD(1),SNGL(CHIINT) + COR1 = (-LOG(RD(2))) * C(25) * 8.4D-17 + CALL NRANGC(COR1*BETA*GAMMA) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(2),CHIDEC=', + * ITYPE,RD(2),SNGL(CHI) + CHI = MIN( CHIINT, CHI ) + IF ( CHI .LT. CHIINT ) THEN + FDECAY = .TRUE. + ELSE + FDECAY = .FALSE. + ENDIF + ENDIF + +C INTERACTION LENGTH STATISTICS + IP = 1.D0 + CHI * 0.1D0 + IP = MIN( IP, 123 ) + IPICHI( IP) = IPICHI( IP) + 1 + IPICHI(124) = IPICHI(124) + 1 + +C----------------------------------------------------------------------- +C NUCLEONS AND ANTINUCLEONS + ELSEIF ( ITYPE .EQ. 13 .OR. ITYPE .EQ. 14 .OR. + * ITYPE .EQ. 15 .OR. ITYPE .EQ. 25 ) THEN + PLAB = ELAB * BETA +C CALCULATION OF CROSS-SECTION IN THE GHEISHA ROUTINES + IF ( ELAB .LE. HILOELB ) THEN + EKIN = ELAB - PAMA(ITYPE) + USELOW = .TRUE. + SIGAIR = CGHSIG(SNGL(PLAB),SNGL(EKIN),ITYPE) + GHESIG = .TRUE. + ELSE + USELOW = .FALSE. + GHESIG = .FALSE. + IF ( FVENSG .AND. (ELAB .GE. HILOELB) ) THEN + CALL VENSIG(ELAB,1) + ELSE +C SIGMA IS ENERGY DEPENDENT INELASTIC NUCLEON-NUCLEON CROSS-SECTION + IF ( PLAB .LT. 1.D1 ) THEN + SIGMA = 29.9D0 + ELSEIF ( PLAB .LT. 1.D3 ) THEN + PLABLG = LOG(PLAB) +C INELASTIC CROSS-SECTIONS FROM PARTICLE DATA GROUP +C (A.BALDINI ET AL., LANDOLT-BOERNSTEIN NEW SERIES I/12B (1987) 150) + SIGMA = 30.9D0 - 28.9D0 * PLAB**(-2.46D0) + * + 0.192D0 * PLABLG**2 - 0.835D0 * PLABLG + ELSE + SIGMA = 19.87D0 * ELAB**.079D0 + ENDIF + +C ADD ANNIHILATION CROSS-SECTION FOR ANTI-NUCLEONS + IF ( ITYPE .EQ. 15 .OR. ITYPE .EQ. 25 ) THEN +C ANNIHILATION CROSS-SECTIONS FROM PARTICLE DATA GROUP +C (A.BALDINI ET AL., LANDOLT-BOERNSTEIN NEW SERIES I/12B (1987) 286) + SIGANN = 0.532D0 + 0.634D2 * PLAB**(-0.71D0) + SIGMA = MIN( 120.D0, SIGMA + SIGANN ) + ENDIF +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER 1 + SIGAIR = (1.D0 - 2.D0 * S45SQ) * SIG45A(1) + * +(S45SQ - S4530) * SIG30A(1) + * +(S45SQ + S4530) * SIG60A(1) + ENDIF + IF ( ITYPE .EQ. 15 .OR. ITYPE .EQ. 25 ) THEN +C TAKE ANNIHILATION AS ADDITION TO HADR. INTERACT. CROSS-SECTION + SIGANN = 2.25D2 * PLAB**(-0.625D0) + SIGAIR = SIGAIR + SIGANN + FRACTN = FRACTN + PROBTA(1) * SIGANN + FRCTNO = FRCTNO + PROBTA(2) * SIGANN + ENDIF + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : SIGMA,SIGAIR,GHESIG=', + * SNGL(SIGMA),SNGL(SIGAIR),GHESIG + +C MEAN FREE PATH FROM MOLECULAR WEIGHT, AVOGADRO'S CONSTANT AND SIGMA + CALL RMMAR( RD,1,1 ) + CHI = (-LOG(RD(1))) * AVERAW / (AVOGAD * SIGAIR) + FDECAY = .FALSE. + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(1),CHI=', + * ITYPE,RD(1),SNGL(CHI) + +C INTERACTION LENGTH STATISTICS + NU = 1.D0 + CHI * 0.1D0 + NU = MIN( NU, 123 ) + INUCHI( NU) = INUCHI( NU) + 1 + INUCHI(124) = INUCHI(124) + 1 + +C----------------------------------------------------------------------- +C KAONS (PARTICLE TYPES 10,11,12,16) + ELSEIF ( ITYPE .EQ. 10 .OR. ITYPE .EQ. 11 .OR. + * ITYPE .EQ. 12 .OR. ITYPE .EQ. 16 ) THEN + PLAB = ELAB * BETA +C CALCULATION OF CROSS-SECTION IN THE GHEISHA ROUTINES + IF ( ELAB .LE. HILOELB ) THEN + EKIN = ELAB - PAMA(ITYPE) + USELOW = .TRUE. + SIGAIR = CGHSIG(SNGL(PLAB),SNGL(EKIN),ITYPE) + GHESIG = .TRUE. + ELSE + USELOW = .FALSE. + GHESIG = .FALSE. + IF ( FVENSG .AND. (ELAB .GE. HILOELB) ) THEN + CALL VENSIG(ELAB,3) + ELSE +C SIGMA IS ENERGY DEPENDENT INELASTIC KAON-NUCLEON CROSS-SECTION + IF ( PLAB .LE. 1.D1 ) THEN + SIGMA = 14.11D0 + ELSEIF ( PLAB .LT. 1.D3 ) THEN + PLABLG = LOG(PLAB) +C INELASTIC CROSS-SECTIONS FROM PARTICLE DATA GROUP +C (A.BALDINI ET AL., LANDOLT-BOERNSTEIN NEW SERIES I/12B (1987) 56) + SIGMA = 12.3D0 - 7.77D0 * PLAB**(-2.12D0) + * + 0.0326D0 * PLABLG**2 + 0.738D0 * PLABLG + ELSE +C FACTOR 0.5541 GIVES RATIO BETWEEN KAON AND NUCLEON CROSS-SECTION + SIGMA = 19.87D0 * ELAB**.079D0 * 0.5541D0 + ENDIF +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER 1 + SIGAIR = (1.D0 - 2.D0 * S45SQ) * SIG45A(1) + * +(S45SQ - S4530) * SIG30A(1) + * +(S45SQ + S4530) * SIG60A(1) + ENDIF + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : SIGMA,SIGAIR,GHESIG=', + * SNGL(SIGMA),SNGL(SIGAIR),GHESIG + + CALL RMMAR( RD,2,1 ) +C MEAN FREE PATH FOR INTERACTION (CHIINT) OR DECAY (CHI) + CHIINT = (-LOG(RD(1))) * AVERAW / (AVOGAD * SIGAIR) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(1),CHIINT=', + * ITYPE,RD(1),SNGL(CHIINT) + + IF ( ITYPE .EQ. 16 ) THEN + CKA2 = CKA(5) + ELSEIF ( ITYPE .EQ. 10 ) THEN + CKA2 = CKA(6) + ELSE + CKA2 = CKA(3) + ENDIF + COR1 = (-LOG(RD(2))) * C(25) * CKA2 + IF ( SIGNUM(ITYPE) .EQ. 0.D0 ) THEN +C NEUTRAL KAONS + CALL NRANGC(COR1*BETA*GAMMA) + ELSE +C CHARGED KAONS + CALL PRANGC(COR1,.FALSE.,HNEW) + CHI = MAX( CHI, 0.D0 ) + ENDIF + + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(2),CHIDEC=', + * ITYPE,RD(2),SNGL(CHI) + CHI = MIN( CHIINT, CHI ) + IF ( CHI .LT. CHIINT ) THEN + FDECAY = .TRUE. + ELSE + FDECAY = .FALSE. + ENDIF + +C INTERACTION LENGTH STATISTICS + KA = 1.D0 + CHI * 0.1D0 + KA = MIN( KA, 123 ) + IKACHI( KA) = IKACHI( KA) + 1 + IKACHI(124) = IKACHI(124) + 1 + +C----------------------------------------------------------------------- +C ETA MESONS + ELSEIF ( ITYPE .EQ. 17 .OR. + * (ITYPE .GE. 71 .AND. ITYPE .LE. 74 ) ) THEN +C LOW ENERGY ETA MESONS ARE NOT TRACKED AND DECAY + IF ( ELAB .LT. 1.D7 ) THEN + FDECAY = .TRUE. + CHI = 0.D0 + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,CHI,FDECAY=', + * ITYPE,SNGL(CHI),FDECAY + ELSE +C ETA IS HIGH ENERGY AND MUST BE TRACKED. WE TAKE PION CROSS-SECTIONS + PLAB = ELAB * BETA + GHESIG = .FALSE. + IF ( FVENSG ) THEN + CALL VENSIG(ELAB,2) + ELSE +C SIGMA IS ENERGY DEPENDENT INELASTIC PION-NUCLEON CROSS-SECTION +C FACTOR 0.6667 GIVES RATIO BETWEEN PION AND NUCLEON CROSS-SECTION + SIGMA = 19.87D0 * ELAB**.079D0 * 0.6667D0 +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER 1 + SIGAIR = (1.D0 - 2.D0 * S45SQ) * SIG45A(1) + * +(S45SQ - S4530) * SIG30A(1) + * +(S45SQ + S4530) * SIG60A(1) + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'BOX2 : SIGMA,SIGAIR=',SNGL(SIGMA),SNGL(SIGAIR) + + CALL RMMAR( RD,2,1 ) +C MEAN FREE PATH FOR INTERACTION (CHIINT) OR DECAY (CHI) + CHIINT = (-LOG(RD(1))) * AVERAW / (AVOGAD * SIGAIR) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(1),CHIINT=', + * ITYPE,RD(1),SNGL(CHIINT) + COR1 = (-LOG(RD(2))) * C(25) * 5.531D-19 + CALL NRANGC(COR1*BETA*GAMMA) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(2),CHIDEC=', + * ITYPE,RD(2),SNGL(CHI) + CHI = MIN( CHIINT, CHI ) + IF ( CHI .LT. CHIINT ) THEN + FDECAY = .TRUE. + ELSE + FDECAY = .FALSE. + ENDIF + ENDIF + +C INTERACTION LENGTH STATISTICS + IP = 1.D0 + CHI * 0.1D0 + IP = MIN( IP, 123 ) + IPICHI( IP) = IPICHI( IP) + 1 + IPICHI(124) = IPICHI(124) + 1 + +C----------------------------------------------------------------------- +C STRANGE BARYONS ( LAMBDA, SIGMA(+,0,-),XI(0,-), OMEGA- ) + ELSEIF ( (ITYPE .GE. 18 .AND. ITYPE .LE. 24) .OR. + * (ITYPE .GE. 26 .AND. ITYPE .LE. 32) ) THEN + PLAB = ELAB * BETA +C CALCULATION OF CROSS-SECTION IN THE GHEISHA ROUTINES + IF ( ELAB .LE. HILOELB ) THEN + EKIN = ELAB - PAMA(ITYPE) + USELOW = .TRUE. + SIGAIR = CGHSIG(SNGL(PLAB),SNGL(EKIN),ITYPE) +C SET CROSS-SECTION VALUE TO A SMALL NUMBER FOR SIGMA0 AND ANTI SIGMA0 + IF ( ITYPE .EQ. 20 .OR. ITYPE .EQ. 28 ) THEN + SIGAIR = 1.D-3 + ENDIF + GHESIG = .TRUE. + ELSE + USELOW = .FALSE. + GHESIG = .FALSE. +C CROSS-SECTION FOR BARYONS IS ASSUMED TO BE THE SAME AS FOR NUCLEONS + IF ( FVENSG .AND. (ELAB .GE. HILOELB) ) THEN + CALL VENSIG(ELAB,1) + ELSE +C SIGMA IS ENERGY DEPENDENT INELASTIC NUCLEON-NUCLEON CROSS-SECTION + IF ( PLAB .LT. 1.D1 ) THEN + SIGMA = 29.9D0 + ELSEIF ( PLAB .LT. 1.D3 ) THEN + PLABLG = LOG(PLAB) +C INELASTIC CROSS-SECTIONS FROM PARTICLE DATA GROUP +C (A.BALDINI ET AL., LANDOLT-BOERNSTEIN NEW SERIES I/12B (1987) 150) + SIGMA = 30.9D0 - 28.9D0 * PLAB**(-2.46D0) + * + 0.192D0 * PLABLG**2 - 0.835D0 * PLABLG + ELSE + SIGMA = 19.87D0 * ELAB**.079D0 + ENDIF +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER 1 + SIGAIR = (1.D0 - 2.D0 * S45SQ) * SIG45A(1) + * +(S45SQ - S4530) * SIG30A(1) + * +(S45SQ + S4530) * SIG60A(1) + ENDIF + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : SIGMA,SIGAIR,GHESIG=', + * SNGL(SIGMA),SNGL(SIGAIR),GHESIG + + CALL RMMAR( RD,2,1 ) +C MEAN FREE PATH FOR INTERACTION (CHIINT) OR DECAY (CHI) + IF ( ITYPE .GE. 18 .AND. ITYPE .LE. 21 ) THEN + COR1 = (-LOG(RD(2))) * C(25) * CSTRBA(ITYPE-17) + ELSEIF ( ITYPE .GE. 22 .AND. ITYPE .LE. 24 ) THEN + COR1 = (-LOG(RD(2))) * C(25) * CSTRBA(ITYPE-15) + ELSEIF ( ITYPE .GE. 26 .AND. ITYPE .LE. 29 ) THEN + COR1 = (-LOG(RD(2))) * C(25) * CSTRBA(ITYPE-25) + ELSEIF ( ITYPE .GE. 30 .AND. ITYPE .LE. 32 ) THEN + COR1 = (-LOG(RD(2))) * C(25) * CSTRBA(ITYPE-23) + ENDIF + IF ( SIGNUM(ITYPE) .EQ. 0.D0 ) THEN +C NEUTRAL STRANGE BARYONS + CALL NRANGC(COR1*BETA*GAMMA) + ELSE +C CHARGED STRANGE BARYONS + CALL PRANGC(COR1,.FALSE.,HNEW) + CHI = MAX( CHI, 0.D0 ) + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(2),CHIDEC=', + * ITYPE,RD(2),SNGL(CHI) + CHIINT = (-LOG(RD(1))) * AVERAW / (AVOGAD * SIGAIR) + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(1),CHIINT=', + * ITYPE,RD(1),SNGL(CHIINT) + CHI = MIN( CHIINT, CHI ) + IF ( CHI .LT. CHIINT ) THEN + FDECAY = .TRUE. + ELSE + FDECAY = .FALSE. + ENDIF +C GHEISHA CANNOT TREAT SIGMA0 AND ANTI-SIGMA0, LET THEM DECAY + IF (GHESIG .AND. (ITYPE.EQ.20 .OR. ITYPE.EQ.28))FDECAY = .TRUE. + +C INTERACTION LENGTH STATISTICS + IHY = 1.D0 + CHI * 0.1D0 + IHY = MIN( IHY, 123 ) + IHYCHI(IHY) = IHYCHI(IHY) + 1 + IHYCHI(124) = IHYCHI(124) + 1 + +C----------------------------------------------------------------------- +C HEAVY PRIMARIES ( ITYPE = 100 * A + Z , FE -> ITYPE = 5626 ) +C ( APPEARING AT FIRST INTERACTION AND AS REMANENTS OF THE PRIMARY ) + ELSEIF ( ITYPE .GT. 100 ) THEN + IA = ITYPE / 100 + IF ( IA .GT. 56 ) THEN + WRITE(MONIOU,*) 'BOX2 : UNEXPECTED PARTICLE TYPE=',ITYPE + WRITE(MONIOU,*) 'PLEASE READ THE USERS GUIDE' + WRITE(MONIOU,*) 'SEE KEYWORD: PRMPAR' + STOP + ENDIF +C MEAN FREE PATH OF THE HEAVY PRIMARY IS DEDUCED FROM THAT OF A NUCLEON +C ONLY INELASTIC SCATTERING AT INTERACTIONS WITH HEAVY PRIMARY/FRAGMENT + ELAB = (PAMA(13) + PAMA(14)) * 0.5D0 * GAMMA + PLAB = ELAB * BETA +C CALCULATION OF CROSS-SECTION IN THE GHEISHA ROUTINES + ELABT = ELAB * IA + IF ( ELAB .LE. HILOELB ) THEN + USELOW = .TRUE. +C GHEISHA CANNOT TREAT NUCLEI + GHESIG = .FALSE. + ELSE + USELOW = .FALSE. + GHESIG = .FALSE. + ENDIF + IF ( FVENSG .AND. (ELAB .GE. HILOELB) ) THEN + CALL VENSIG(ELAB,ITYPE) + ELSE + IF ( GHESIG ) GOTO 333 +C SIGMA IS ENERGY DEPENDENT INELASTIC NUCLEON-NUCLEON CROSS-SECTION + IF ( PLAB .LT. 1.D1 ) THEN + SIGMA = 29.9D0 + ELSEIF ( PLAB .LT. 1.D3 ) THEN + PLABLG = LOG(PLAB) +C INELASTIC CROSS-SECTIONS FROM PARTICLE DATA GROUP +C (A.BALDINI ET AL., LANDOLT-BOERNSTEIN NEW SERIES I/12B (1987) 150) + SIGMA = 30.9D0 - 28.9D0 * PLAB**(-2.46D0) + * + 0.192D0 * PLABLG**2 - 0.835D0 * PLABLG + ELSE + SIGMA = 19.87D0 * ELAB**.079D0 + ENDIF + ENDIF +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER IA + SIGAIR = (1.D0 - 2.D0 * S45SQ) * SIG45A(IA) + * +(S45SQ - S4530) * SIG30A(IA) + * +(S45SQ + S4530) * SIG60A(IA) + 333 CONTINUE + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : SIGMA,SIGAIR,GHESIG=', + * SNGL(SIGMA),SNGL(SIGAIR),GHESIG + +C CHECK SIGAIR FOR CORRECT CROSS-SECTION + IF ( SIGAIR .LE. 0.D0 ) THEN + WRITE(MONIOU,*) 'BOX2: SIGAIR=0.D0, PROGRAM STOPPED ', + * ' (UNALLOWED COMBINATION OF PRIMARY WITH CROSS-SECTION)' + WRITE(MONIOU,*) 'PLEASE READ THE USERS GUIDE' + WRITE(MONIOU,*) 'SEE KEYWORD: PRMPAR' + STOP + ENDIF + + CALL RMMAR( RD,1,1 ) +C MEAN FREE PATH FROM MOLECULAR WEIGHT, AVOGADRO'S CONSTANT AND SIGMA + CHI = (-LOG(RD(1))) * AVERAW / (AVOGAD * SIGAIR) + FDECAY = .FALSE. + IF ( DEBUG ) WRITE(MDEBUG,*) 'BOX2 : ITYPE,RD(1),CHI=', + * ITYPE,RD(1),SNGL(CHI) + +C INTERACTION LENGTH STATISTICS + NI = 1.D0 + CHI * 0.1D0 + NI = MIN( NI, 123 ) + INNCHI( NI) = INNCHI( NI) + 1 + INNCHI(124) = INNCHI(124) + 1 + +C----------------------------------------------------------------------- +C ERROR IN PARTICLE CODE + ELSE + WRITE(MONIOU,*) 'BOX2 : UNEXPECTED PARTICLE TYPE=',ITYPE + WRITE(MONIOU,*) 'PLEASE READ THE USERS GUIDE' + WRITE(MONIOU,*) 'SEE KEYWORD: PRMPAR' + STOP + ENDIF + + RETURN + END +*CMZ : 05/03/2002 08.56.36 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE BOX3(fmfb) + +C----------------------------------------------------------------------- +C +C CHECKS PASSAGE THROUGH OBSERVATION LEVEL(S) +C IRET1=1 KILLS PARTICLE +C IRET2=1 PARTICLE HAS BEEN CUTTED IN UPDATE +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,THNVAR. + COMMON /THNVAR/ STACKINT, + * INT_ICOUNT,MODETHN,THINNING + INTEGER MAXICOUNT + PARAMETER (MAXICOUNT=40000) + DOUBLE PRECISION STACKINT(16,MAXICOUNT) + INTEGER INT_ICOUNT,MODETHN + LOGICAL THINNING +c-----changed--add + logical fmfb +c-----changed--add +*KEND. + + DOUBLE PRECISION THICK + INTEGER I,IRET3 + SAVE + LOGICAL FLAG + EXTERNAL THICK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' BOX3 : CURPAR=',1P,9E10.3) + + IF ( ITYPE .EQ. 5 .OR. ITYPE .EQ. 6 ) THEN +C MUONS ARE TRACKED WITHIN SUBR. MUTRAC + INT_ICOUNT = 0 + CALL MUTRAC(fmfb) + CALL TSTEND + IRET1 = 1 + RETURN + + ELSEIF ( ITYPE .LE. 3 ) THEN +C ELECTRONS OR PHOTONS ARE TREATED IN SUBR. EM + CALL EM + IRET1 = 1 + RETURN + + ELSEIF ( ITYPE .GE. 50 .AND. ITYPE .LE. 65 ) THEN +C RESONANCES DECAY WITHIN SUBR. RESDEC + IF (LLONGI) LHEIGH = INT(THICK(H)*THSTPI + 1.D0) + INT_ICOUNT = 0 + CALL RESDEC + CALL TSTEND + IRET1 = 1 + RETURN + + ENDIF + +C FOR ALL THE OTHER PARTICLES THE PLACE OF NEXT INTERACTION WAS +C DETERMINED IN BOX2 +C UPDATE PARTICLE TO INTERACTION POINT OR OBSERVATION LEVEL, +C WHICHEVER IS CLOSER + FLAG = .FALSE. +c-----changed--add + CALL UPDATC(IRET3,FLAG,fmfb) +c-----changed--add + IF (DEBUG) WRITE(MDEBUG,*) 'BOX3 : IRET1,2,3=', + * IRET1,IRET2,IRET3 + IF ( IRET2 .NE. 0 ) THEN +C PARTICLE CUTTED BEFORE INTERACTION POINT +C LONGITUDINAL DEPOSIT IS ALREADY DONE IN UPDATC + IRET1 = 1 + RETURN + ELSE +C KILL PARTICLE AS IT IS AT DETECTOR LEVEL + IF ( IRET3 .NE. 0 ) THEN + IRET1 = 1 + RETURN + ELSE +C STORE PARTICLE FOR FURTHER TREATMENT + DO I = 1,8 + CURPAR(I) = OUTPAR(I) + ENDDO + ALEVEL = H + BETA = SQRT( GAMMA**2 - 1.D0 ) / GAMMA + ENDIF + + ENDIF + RETURN + END +*CMZ : 23/10/2000 14.43.21 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 16/05/95 +C======================================================================= + + DOUBLE PRECISION FUNCTION CHISQ(F) + +C----------------------------------------------------------------------- +C CHI SQ(UARE) +C +C THIS FUNCTION CALCULATES THE CHI**2 OBTAINED WITH THE HILLAS +C FUNCTION AND THE FIT SUBROUT. AMOEBA USING THE PARAMETER SET F +C SEE: T.K. GAISSER & A.M. HILLAS, PROC. XV ICRC, PLOVDIV, BULGARIA, +C VOL. 8 (1977) 353 +C THIS FUNCTION IS CALLED FROM LONGFT AND AMOEBA. +C ARGUMETS: +C F(1) = HEIGHT AT MAXIMUM +C F(2) = SHOWER STARTING POINT +C F(3) = T AT MAXIMUM +C F(4) = WIDTH PARAMETER 1 +C F(5) = WIDTH PARAMETER 2 T +C F(6) = WIDTH PARAMETER 3 T**2 +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CURVE. + COMMON /CURVE/ CHAPAR,DEP,ERR,NSTP + DOUBLE PRECISION CHAPAR(1200),DEP(1200),ERR(1200) + INTEGER NSTP +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AUXIL,BALL,BASE,EXPO,F(6),T,WIDTH + INTEGER I + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'CHISQ : PARAMETERS,NSTP =', + * (SNGL(F(I)),I=1,6),NSTP + +C EXCLUDE PATHOLOGICAL PARAMETER SETTINGS + IF ( F(1) .LE. 0.D0 .OR. F(2) .GE. F(3) .OR. + * (F(4).LE.0.D0 .AND. F(5).EQ.0.D0 .AND. F(6).EQ.0.D0) ) THEN + CHISQ = 1.D16 + RETURN + ENDIF + + CHISQ = 0.D0 +C LOOP OVER THE LONGITUDINAL DISTRIBUTION + DO 1 I = 1,NSTP + T = DEP(I) + IF ( T .GT. F(2) ) THEN + BASE = (T-F(2)) / (F(3)-F(2)) + WIDTH = F(4) + T*F(5) + T**2*F(6) + IF ( WIDTH .LT. 1.D-20 ) THEN + CHISQ = CHISQ + 1.D16 + GOTO 1 + ENDIF + EXPO = (F(3)-F(2)) / WIDTH + AUXIL = (F(3)-T) / WIDTH + IF ( ABS(AUXIL) .GT. 20.D0 ) THEN + CHISQ = CHISQ + 1.D16 + GOTO 1 + ENDIF + BALL = F(1) * BASE ** EXPO * EXP(AUXIL) + ELSE + BALL = 0.D0 + ENDIF + CHISQ = CHISQ + ((BALL-CHAPAR(I))/ERR(I))**2 + 1 CONTINUE + CHISQ = CHISQ / (NSTP-6) + + IF ( DEBUG ) WRITE(MDEBUG,*) 'CHISQ : CHI**2 =',SNGL(CHISQ) + + RETURN + END +*CMZ : 23/10/2000 14.43.21 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 16/05/95 +C======================================================================= + + DOUBLE PRECISION FUNCTION CHISQ1(F) + +C----------------------------------------------------------------------- +C CHI SQ(UARE FOR THE) 1(ST FIT FUNCTION)) +C +C THIS FUNCTION CALCULATES THE CHI**2 OBTAINED WITH THE HILLAS +C FUNCTION AND THE FIT SUBROUT. AMOEBA USING THE PARAMETER SET F +C SEE: T.K. GAISSER & A.M. HILLAS, PROC. XV ICRC, PLOVDIV, BULGARIA, +C VOL. 8 (1977) 353 +C THIS FUNCTION IS CALLED FROM LONGFT AND AMOEBA. +C ARGUMETS: +C F(1) = HEIGHT AT MAXIMUM +C F(2) = SHOWER STARTING POINT +C F(3) = T AT MAXIMUM +C F(4) = WIDTH PARAMETER +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CURVE. + COMMON /CURVE/ CHAPAR,DEP,ERR,NSTP + DOUBLE PRECISION CHAPAR(1200),DEP(1200),ERR(1200) + INTEGER NSTP +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AUXIL,BALL,BASE,EXPO,F(6),T + INTEGER I + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*)'CHISQ1: PARAMETERS,NSTP =', + * (SNGL(F(I)),I=1,4),NSTP + +C EXCLUDE PATHOLOGICAL PARAMETER SETTINGS + IF ( F(1) .LE. 0.D0 .OR. F(2) .GE. F(3) .OR. + * F(4) .LE. 0.D0 ) THEN + CHISQ1 = 1.D16 + RETURN + ENDIF + + CHISQ1 = 0.D0 +C LOOP OVER THE LONGITUDINAL DISTRIBUTION + DO 1 I = 1,NSTP + T = DEP(I) + IF ( T .GT. F(2) ) THEN + BASE = (T-F(2)) / (F(3)-F(2)) + AUXIL = F(4) + IF ( AUXIL .LT. 1.D-20 ) THEN + CHISQ1 = CHISQ1 + 1.D16 + GOTO 1 + ENDIF + EXPO = (F(3)-F(2)) / AUXIL + AUXIL = (F(3)-T) / AUXIL + IF ( ABS(AUXIL) .GT. 20.D0 ) THEN + CHISQ1 = CHISQ1 + 1.D16 + GOTO 1 + ENDIF + BALL = F(1) * BASE ** EXPO * EXP(AUXIL) + ELSE + BALL = 0.D0 + ENDIF + CHISQ1 = CHISQ1 + ((BALL-CHAPAR(I))/ERR(I))**2 + 1 CONTINUE + CHISQ1 = CHISQ1 / (NSTP-4) + + IF ( DEBUG ) WRITE(MDEBUG,*) 'CHISQ1 : CHI**2 =',SNGL(CHISQ1) + + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : F. SCHROEDER UNI WUPPERTAL 18/11/98 +C======================================================================= + + SUBROUTINE CORINC + +C----------------------------------------------------------------------- +C CO(O)R(DINATE) IN(ITIALIZATION FOR A) C(URVED ATMOSPHERE) +C +C INITIALIZES ALL IMPORTANT COORDINATES FOR ONE OBSERVATION LEVEL +C ROUTINE DETERMINES STARTING PARAMETERS AT HEIGHT GIVEN BY THICK0 FOR +C A COORDINATE SYSTEM WHICH IS FIXED IN (X,Y) AT THE ASSUMED DETECTOR +C POSITION AND IN Z AT SEA LEVEL. +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C +C AUTHOR : F. SCHROEDER UNI WUPPERTAL +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION DIST,DIAG,TEA + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'CORINC: H,COSTAP,PHI =', + * SNGL(H),SNGL(COSTAP),SNGL(PHIP) + +C NOTE : ANGLES THETAP AND PHIP ARE APPARENT ANGLES OF PRIMARY AT +C THE EDGE OF THE ATMOSPHERE SEEN FROM THE +C DETECTOR POSITION X=Y=0, Z=OBSLEV(1) +C FOR CALCULATIONS: COSTAP = COSINE OF APPARENT ZENITH ANGLE THETAP +C COSTAP IS SET IN AAMAIN BY EQUIVALENCE WITH CURPAR(15) + +C DISTANCE DIAG BETWEEN DETECTOR POSITION X=Y=0, Z = OBSLEV(1) AND +C STARTING POINT + DIAG = SQRT( (C(1)+H)**2 - (C(1)+OBSLEV(1))**2 *(1.D0-COSTAP**2) ) + * - (C(1)+OBSLEV(1)) * COSTAP + +C APPARENT HEIGHT HAPP IS PARTICLE Z-COORDINATE IN DETECTOR SYSTEM + HAPP = OBSLEV(1) + DIAG * COSTAP + +C CALCULATING COSINE OF THETA_EARTH COSTEA, COSINE OF ZENITH ANGLE BY +C TAKING A COORDINATE FRAME CENTERED IN THE MIDDLE OF EARTH + COSTEA = (C(1)+HAPP) / (C(1)+H) + IF ( DEBUG ) WRITE(MDEBUG,*) 'CORINC: HAPP,COSTEA,DIAG =', + * SNGL(HAPP),COSTEA,SNGL(DIAG) + COSTEA = MIN( 1.D0, COSTEA ) +C TRANSFORM THE APPARENT ANGLE SEEN FROM DETECTOR POSITION TO LOCAL +C ANGLES RELATIVE TO THE VERTICAL TO THE MIDDLE OF EARTH +C NOTE : LOCAL ZENITH ANGLE = DIFFERENCE OF APPARENT ZENITH ANGLE AND +C THETA_EARTH + COSTHE = (DIAG + (C(1)+OBSLEV(1))*COSTAP)/(C(1)+H) + +C DISTANCE DIST BETWEEN THE DETECTOR POSITION X=0, Y=0 +C AND THE ACTUAL INTERACTION POINT MEASURED ON THE EARTH'S SURFACE + TEA = ACOS(COSTEA) + DIST = C(1) * TEA + +C CONCERNING TRANSFORMATION OF AZIMUTH ANGLE PHI +C NOTE : THE COORDINATE SYTEMS ONLY DIFFER IN A SHIFT ALONG THE Z-AXIS +C OR A ROTATION ALONG THE ZENITH ANGLE. BOTH TRANSFORMATIONS +C JUST CHANGE THETA AND NOT PHI (THETA AND PHI ARE ORTHOGONAL +C COORDINATES, THUS LINEAR INDEPENDENT). + +C X,Y-COORDINATES SEEN FROM THE DETECTOR POSITION (X=Y=0) + X = -DIST * COS( PHIP ) + Y = -DIST * SIN( PHIP ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'CORINC: X,Y,COSTHE,DIST =', + * SNGL(X),SNGL(Y),SNGL(COSTHE),SNGL(DIST) + +C FILL PARAMETERS IN PRMPAR + PRMPAR(3) = COSTHE + PRMPAR(7) = X + PRMPAR(8) = Y +C WE HAVE EQUIVALENCES FOR HAPP AND COSTEA +C CURPAR(14) = HAPP +C CURPAR(16) = COSTEA + + RETURN + END +*CMZ : 28/02/2002 13.08.19 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE DATAC + +C----------------------------------------------------------------------- +C DATA C(ARDS) +C +C READS DATA CARDS FROM UNIT 5 TO STEER RUN. +C READING IS FREE FORMAT WITH BLANK AS SEPARATOR. +C EACH KEYWORD STARTS ON A NEW LINE LEFTSHIFTED. +C THIS SUBROUTINE IS CALLED FROM START. +C----------------------------------------------------------------------- +c------changed-------add and comand +c IMPLICIT NONE +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c All this lines are under test +c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + parameter (xct=1) + parameter (yct=2) + parameter (zct=3) + parameter (ctthet=4) + parameter (ctphi=5) + parameter (ctdiam=6) + parameter (ctfoc=7) +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c------changed-------add and comand + +c IMPLICIT NONE +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,ETHMAP. + COMMON /ETHMAP/ ECTMAP,ELEFT + DOUBLE PRECISION ECTMAP,ELEFT +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MAGANG. + COMMON /MAGANG/ ARRANG,ARRANR,COSANG,SINANG + DOUBLE PRECISION ARRANG,ARRANR,COSANG,SINANG +*KEEP,MAGNET. + COMMON /MAGNET/ BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT + DOUBLE PRECISION BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,NKGI. + COMMON /NKGI/ SEL,SELLG,STH,ZEL,ZELLG,ZSL,DIST, + * DISX,DISY,DISXY,DISYX,DLAX,DLAY,DLAXY,DLAYX, + * OBSATI,RADNKG,RMOL,TLEV,TLEVCM,IALT + DOUBLE PRECISION SEL(10),SELLG(10),STH(10),ZEL(10),ZELLG(10), + * ZSL(10),DIST(10), + * DISX(-10:10),DISY(-10:10), + * DISXY(-10:10,2),DISYX(-10:10,2), + * DLAX (-10:10,2),DLAY (-10:10,2), + * DLAXY(-10:10,2),DLAYX(-10:10,2), + * OBSATI(2),RADNKG,RMOL(2),TLEV(10),TLEVCM(10) + INTEGER IALT(2) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PRIMSP. + COMMON /PRIMSP/ PSLOPE,LLIMIT,ULIMIT,LL,UL,SLEX,ISPEC + DOUBLE PRECISION PSLOPE,LLIMIT,ULIMIT,LL,UL,SLEX + INTEGER ISPEC +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,VENPAR. + COMMON /VENPAR/ PARVAL,NPARAM,PARCHA + REAL PARVAL(100) + INTEGER NPARAM + CHARACTER*6 PARCHA(100) +*KEEP,VENUS. + COMMON /VENUS/ ISH00,IVERVN,MTAR99,FVENUS,FVENSG + INTEGER ISH00,IVERVN,MTAR99 + LOGICAL FVENUS,FVENSG +*KEEP,CEREN1. + COMMON /CEREN1/ CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR,LCERFI + DOUBLE PRECISION CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR + LOGICAL LCERFI +*KEEP,CEREN2. + COMMON /CEREN2/ ACERX,ACERY,CERXOS,CERYOS, + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT, + * PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS, + * NCERX,NCERY,ICERML + DOUBLE PRECISION ACERX,ACERY,CERXOS(20),CERYOS(20), + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT + DOUBLE PRECISION PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS + INTEGER NCERX,NCERY,ICERML +*KEEP,ATMOSX. +C EXTERNAL ATMOSPHERIC MODELS + COMMON /ATMOSX/ IATMOX,FREFRX + INTEGER IATMOX + LOGICAL FREFRX +*KEND. +c------changed-----add +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c All this lines are under test +c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +*keep,certel. + common /certel/ cormxd,cord,coralp,ctpars,omega, + + photn,photnp,phpt,pht,vphot, + + vchi,veta,vzeta,vchim,vetam,vzetam, + + lambda,mu,nu,nctels,ncph,phip1,thetap1 + double precision cormxd,cord,coralp,ctpars(20,7),omega(20,3,3), + + photn(3),photnp(3),phpt(3),pht,vphot(3), + + vchi(3),veta(3),vzeta(3),vchim,vetam,vzetam, + + lambda,mu,nu + integer nctels,ncph(5) + double precision xg,yg,zg,xgp,ygp,zgp,up,vp,wp,xpcut,ypcut,zpcut + double precision thetap1,phip1 + equivalence (photn(1) ,xg) ,(photn(2) ,yg) ,(photn(3) ,zg) , + + (photnp(1),xgp) ,(photnp(2),ygp) ,(photnp(3),zgp), + + (phpt(1) ,xpcut),(phpt(2) ,ypcut),(phpt(3) ,zpcut), + + (vphot(1) ,up) ,(vphot(2) ,vp) ,(vphot(3) ,wp) + + character *72 ctfile + + character *6 keyw +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c Angles for the "spinning" of a particle around the +c main axis of the CT + common /spinang/ spinxi + double precision spinxi +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + integer m,nct +cxx---------------- +c------changed-----add + + DOUBLE PRECISION R1,R2 + INTEGER I,IE,IOBSLV,IS,ISEQ,MMM,MONNEW,NNTYP,NUMERR + INTEGER LENVAL + INTEGER IPARAM + CHARACTER LINE*132,TAB*1 + SAVE +C----------------------------------------------------------------------- + +C WRITE TITEL + WRITE(MONIOU,999) + 999 FORMAT(' ',10('='),' USERS RUN DIRECTIVES FOR THIS SIMULATION ', + * 27('=')/) +C SET TABULATOR + TAB = CHAR(9) + +C DEFAULT VALUES FOR ALL RUN PARAMETERS + ISEQ = 0 + NSEQ = 2 + ISEED(1,1) = 1 + ISEED(2,1) = 0 + ISEED(3,1) = 0 + ISEED(1,2) = 2 + ISEED(2,2) = 0 + ISEED(3,2) = 0 + ISEED(1,3) = 3 + ISEED(2,3) = 0 + ISEED(3,3) = 0 + NRRUN = 1 + ISHOWNO = 0 + LLIMIT = 1.D4 + ULIMIT = 1.D4 + PSLOPE = 0.D0 + PRMPAR(1) = 14.D0 + THETPR(1) = 0.D0 + THETPR(2) = 0.D0 + PHIPR(1) = 0.D0 + PHIPR(2) = 0.D0 + NSHOW = 10 + IOBSLV = 0 + NOBSLV = 1 + OBSLEV(1) = 110.D2 + MODATM = 1 + LAYNEW = .FALSE. + ELCUT(1) = 0.3D0 + ELCUT(2) = 0.3D0 + ELCUT(3) = 0.003D0 + ELCUT(4) = 0.003D0 + ECTMAP = 1.D4 + NFLAIN = 0 + NFLDIF = 0 + NFLPI0 = 0 + NFLPIF = 0 + NFLCHE = 0 + NFRAGM = 2 + FNKG = .TRUE. + FMOLI = .TRUE. + FMUADD = .FALSE. + FEGS = .FALSE. + FPAROUT = .TRUE. + FTABOUT = .FALSE. + STEPFC = 1.D0 + MAXPRT = 10 + BX = 20.40D0 + BZ = 43.23D0 + ARRANG = 0.D0 + LLONGI = .FALSE. + THSTEP = 20.D0 + FLGFIT = .FALSE. + FLONGOUT= .FALSE. + RADNKG = 200.D2 +C BORDER BETWEEN LOW AND HIGH ENERGY INTERACTION MODELS +C SET BY DEFAULT TO ELAB = 80 GEV + HILOELB = 80.D0 + GHEISH = .TRUE. + GHEISDB = .FALSE. + FDBASE = .FALSE. + DEBUG = .FALSE. + DEBDEL = .FALSE. + NDEBDL = 100000000 + THICK0 = 0.D0 + FIX1I = .FALSE. + FIXHEI = 0.D0 + DSN = 'anynameupto64characters ' + TMARGIN = .FALSE. + HOST = ' ' + USER = ' ' + STEPFC = 1.D0 + WAVLGL = 300.D0 + WAVLGU = 450.D0 + CERSIZ = 0.D0 + NCERX = 27 + NCERY = 27 + DCERX = 1500.D0 + DCERY = 1500.D0 + ACERX = 100.D0 + ACERY = 100.D0 + LCERFI = .TRUE. + ICERML = 1 + XSCATT = 0.D0 + YSCATT = 0.D0 + DO 554 I = 1,20 + CERXOS(I) = 0.D0 + CERYOS(I) = 0.D0 + 554 CONTINUE + IATMOX = 0 + FREFRX = .FALSE. + FVENUS = .TRUE. + ISH00 = 91 + IPARAM = 0 + NPARAM = 0 + DO 555 I = 1,100 + PARVAL(I) = 0. + 555 CONTINUE + FVENSG = .TRUE. + VUECON(1) = 0.D0 + VUECON(2) = 0.D0 + +C----------------------------------------------------------------------- +C OPEN DATASET FOR COMMANDS + IF ( MONIIN .NE. 5 ) THEN + OPEN(UNIT=MONIIN,FILE='INPUTS',STATUS='OLD',FORM='FORMATTED') + WRITE(MONIOU,*) 'DATA CARDS FOR RUN STEERING ARE ', + * 'EXPECTED FROM UNIT',MONIIN + ELSE + WRITE(MONIOU,*) 'DATA CARDS FOR RUN STEERING ARE ', + * 'EXPECTED FROM STANDARD INPUT' + ENDIF + NUMERR = 0 +C----------------------------------------------------------------------- + 1 CONTINUE + +C ERASE 'LINE' BY FILLING WITH BLANKS + LINE = ' ' + +C GET A NEW INPUT LINE AND PRINT IT + READ(MONIIN,500,END=1000) LINE + 500 FORMAT(A) + DO 10 IE = LEN(LINE),1,-1 + IF ( LINE(IE:IE).NE.' ' ) GOTO 11 + 10 CONTINUE + 11 CONTINUE +C CHECK FOR HORIZONTAL TABS AND ELIMINATE THEM + DO I = 1,IE + IF ( LINE(I:I) .EQ. TAB ) THEN + LINE(I:I) = ' ' + ENDIF + ENDDO +C ECHO WRITE THE INPUT LINE + IF ( DEBUG ) THEN + WRITE(MDEBUG,501) LINE(1:IE) + 501 FORMAT(' DATAC : ',A) + ELSE + WRITE(MONIOU,502) LINE(1:IE) + 502 FORMAT(' ',A) + ENDIF + +C CONVERT LOWER CASE CHARACTERS TO UPPER CASE + DO 3 I = 1,5 + CALL LOWUP(LINE(I:I)) + 3 CONTINUE + IF ( LINE(1:4).NE.'HOST' .AND. LINE(1:4).NE.'USER' ) THEN + CALL LOWUP(LINE(6:6)) + IF ( LINE(1:6).NE.'DIRECT' .AND. LINE(1:6).NE.'HISTDS' + * ) THEN + DO 4 I = 7,LEN(LINE) + CALL LOWUP(LINE(I:I)) + 4 CONTINUE + ENDIF + ENDIF + +C----------------------------------------------------------------------- +C INTERPRET KEYWORD AND READ PARAMETERS + IS = 0 + +C DUMMY LINE (MAY BE USED FOR COMMENTS) NO ACTION + IF ( LINE(1:6) .EQ. ' ' ) THEN + ELSEIF ( LINE(1:1) .EQ. '*' ) THEN + ELSEIF ( LINE(1:2) .EQ. 'C ' ) THEN + +C GET ANGLE (DEGREES) BETWEEN ARRAY X-DIRCTION AND MAGNETIC NORD + ELSEIF ( LINE(1:6) .EQ. 'ARRANG' ) THEN + CALL DTCDBL(LINE,IS,ARRANG,'ARRANG',1) + +C GET INTERNAL ATMOSPHERIC MODEL NUMBER + ELSEIF ( LINE(1:5) .EQ. 'ATMOD' ) THEN + CALL DTCINT(LINE,IS,MODATM,'ATMOD',1) + +C READ ATMOSPHERIC PARAMETERS AATM(.,0) + ELSEIF ( LINE(1:4) .EQ. 'ATMA' ) THEN + CALL DTCDBL(LINE,IS,AATM0(1,0),'ATMA',1) + CALL DTCDBL(LINE,IS,AATM0(2,0),'ATMA',2) + CALL DTCDBL(LINE,IS,AATM0(3,0),'ATMA',3) + CALL DTCDBL(LINE,IS,AATM0(4,0),'ATMA',4) + AATM0(5,0) = .01128292D0 + IF ( MODATM .EQ. 10 ) THEN + AATM0(1,10) = AATM0(1,0) + AATM0(2,10) = AATM0(2,0) + AATM0(3,10) = AATM0(3,0) + AATM0(4,10) = AATM0(4,0) + CALL DTCDBL(LINE,IS,AATM0(5,10),'ATMA',5) + ENDIF + +C READ ATMOSPHERIC PARAMETERS BATM(.,0) + ELSEIF ( LINE(1:4) .EQ. 'ATMB' ) THEN + CALL DTCDBL(LINE,IS,BATM0(1,0),'ATMB',1) + CALL DTCDBL(LINE,IS,BATM0(2,0),'ATMB',2) + CALL DTCDBL(LINE,IS,BATM0(3,0),'ATMB',3) + CALL DTCDBL(LINE,IS,BATM0(4,0),'ATMB',4) + BATM0(5,0) = 1.D0 + IF ( MODATM .EQ. 10 ) THEN + BATM0(1,10) = BATM0(1,0) + BATM0(2,10) = BATM0(2,0) + BATM0(3,10) = BATM0(3,0) + BATM0(4,10) = BATM0(4,0) + ENDIF + +C READ ATMOSPHERIC PARAMETERS CATM(.,0) + ELSEIF ( LINE(1:4) .EQ. 'ATMC' ) THEN + CALL DTCDBL(LINE,IS,CATM0(1,0),'ATMC',1) + CALL DTCDBL(LINE,IS,CATM0(2,0),'ATMC',2) + CALL DTCDBL(LINE,IS,CATM0(3,0),'ATMC',3) + CALL DTCDBL(LINE,IS,CATM0(4,0),'ATMC',4) + CATM0(5,0) = 1.D9 + IF ( MODATM .EQ. 10 ) THEN + CATM0(1,10) = CATM0(1,0) + CATM0(2,10) = CATM0(2,0) + CATM0(3,10) = CATM0(3,0) + CATM0(4,10) = CATM0(4,0) + CALL DTCDBL(LINE,IS,CATM0(5,10),'ATMC',5) + ENDIF + +C READ ATMOSPHERIC LAYER BOUNDARIES HLAY0(.,0) + ELSEIF ( LINE(1:6) .EQ. 'ATMLAY' ) THEN + CALL DTCDBL(LINE,IS,HLAY0(2,0),'ATMLAY',1) + CALL DTCDBL(LINE,IS,HLAY0(3,0),'ATMLAY',2) + CALL DTCDBL(LINE,IS,HLAY0(4,0),'ATMLAY',3) + CALL DTCDBL(LINE,IS,HLAY0(5,0),'ATMLAY',4) + HLAY0(1,0) = 0.D0 + LAYNEW = .TRUE. + +C SET EXTERNAL ATMOSPHERIC MODEL (MOST USEFUL FOR CHERENKOV LIGHT) +C AND DETERMINE IF ATMOSPHERIC REFRACTION SHOULD BE ACCOUNTED FOR. + ELSEIF ( LINE(1:10) .EQ. 'ATMOSPHERE' ) THEN + CALL DTCINT(LINE,IS,IATMOX,'ATMOSPHERE',1) + CALL DTCLOG(LINE,IS,FREFRX,'ATMOSPHERE',2) + +C GET CHERENKOV ARRAY SPECIFICATIONS + ELSEIF ( LINE(1:6) .EQ. 'CERARY' ) THEN + CALL DTCINT(LINE,IS,NCERX,'CERARY',1) + CALL DTCINT(LINE,IS,NCERY,'CERARY',2) + CALL DTCDBL(LINE,IS,DCERX,'CERARY',3) + CALL DTCDBL(LINE,IS,DCERY,'CERARY',4) + CALL DTCDBL(LINE,IS,ACERX,'CERARY',5) + CALL DTCDBL(LINE,IS,ACERY,'CERARY',6) + +C GET CHERENKOV OUTPUT FLAG + ELSEIF ( LINE(1:6) .EQ. 'CERFIL' ) THEN + CALL DTCLOG(LINE,IS,LCERFI,'CERFIL',1) + +C GET MAXIMUM BUNCH SIZE FOR CHERENKOV PHOTONS + ELSEIF ( LINE(1:6) .EQ. 'CERSIZ' ) THEN + CALL DTCDBL(LINE,IS,CERSIZ,'CERSIZ',1) + +C GET CHERENKOV EVENT SCATTERING INFORMATION + ELSEIF ( LINE(1:5) .EQ. 'CSCAT' ) THEN + CALL DTCINT(LINE,IS,ICERML,'CSCAT',1) + CALL DTCDBL(LINE,IS,XSCATT,'CSCAT',2) + CALL DTCDBL(LINE,IS,YSCATT,'CSCAT',3) + +C GET CHERENKOV WAVELENGTH BAND + ELSEIF ( LINE(1:6) .EQ. 'CWAVLG' ) THEN + CALL DTCDBL(LINE,IS,R1,'CWAVLG',1) + CALL DTCDBL(LINE,IS,R2,'CWAVLG',2) + WAVLGL = MIN( R1, R2 ) + WAVLGU = MAX( R1, R2 ) + +C GET DATABASE FLAG + ELSEIF ( LINE(1:6) .EQ. 'DATBAS' ) THEN + CALL DTCLOG(LINE,IS,FDBASE,'DATBAS',1) + +C GET DEBUG FLAG AND DELAYED DEBUG PARAMETERS + ELSEIF ( LINE(1:5) .EQ. 'DEBUG' ) THEN + CALL DTCLOG(LINE,IS,DEBUG,'DEBUG',1) + CALL DTCINT(LINE,IS,MMM,'DEBUG',2) + CALL DTCLOG(LINE,IS,DEBDEL,'DEBUG',3) + CALL DTCINT(LINE,IS,NDEBDL,'DEBUG',4) + IF ( MMM .LE. 0 .OR. MMM .GT. 99 ) THEN + MDEBUG = 6 + ELSE + MDEBUG = MMM + ENDIF + +C GET OUTPUT DIRECTORY FOR CALCULATIONS ON UNIX-STATION + ELSEIF ( LINE(1:6) .EQ. 'DIRECT' ) THEN + CALL DTCCHR(LINE,IS,DSN,'DIRECT',1,LENVAL) + +C GET ENERGY CUTS FOR PARTICLE PRINTOUT + ELSEIF ( LINE(1:6) .EQ. 'ECTMAP' ) THEN + CALL DTCDBL(LINE,IS,ECTMAP,'ECTMAP',1) + +C GET ENERGY CUTS FOR HADRONS, MUONS, ELECTRONS, AND PHOTONS + ELSEIF ( LINE(1:5) .EQ. 'ECUTS' ) THEN + CALL DTCDBL(LINE,IS,ELCUT(1),'ECUTS',1) + CALL DTCDBL(LINE,IS,ELCUT(2),'ECUTS',2) + CALL DTCDBL(LINE,IS,ELCUT(3),'ECUTS',3) + CALL DTCDBL(LINE,IS,ELCUT(4),'ECUTS',4) + +C GET COUNTER FOR START OF EGS DEBUGGUNG + ELSEIF ( LINE(1:6) .EQ. 'EGSDEB' ) THEN + CALL DTCINT(LINE,IS,JCLOCK,'EGSDEB',1) + +C GET FLAGS FOR ELECTROMAGNETIC OPTIONS (NKG, EGS) + ELSEIF ( LINE(1:6) .EQ. 'ELMFLG' ) THEN + CALL DTCLOG(LINE,IS,FNKG,'ELMFLG',1) + CALL DTCLOG(LINE,IS,FEGS,'ELMFLG',2) + +C GET ENERGY RANGE OF PRIMARY PARTICLE + ELSEIF ( LINE(1:6) .EQ. 'ERANGE' ) THEN + CALL DTCDBL(LINE,IS,LLIMIT,'ERANGE',1) + CALL DTCDBL(LINE,IS,ULIMIT,'ERANGE',2) + +C GET SLOPE OF ENERGY SPECTRUM OF PRIMARY PARTICLE + ELSEIF ( LINE(1:6) .EQ. 'ESLOPE' ) THEN + CALL DTCDBL(LINE,IS,PSLOPE,'ESLOPE',1) + +C GET FIRST EVENT NUMBER + ELSEIF ( LINE(1:5) .EQ. 'EVTNR' ) THEN + CALL DTCINT(LINE,IS,ISHOWNO,'EVTNR',1) + ISHOWNO = MAX( ISHOWNO-1, 0 ) +c------changed-----add----- +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c get cerenkov file name with cts array specifications + elseif ( LINE(1:6) .eq. 'CERTEL' ) then + read(line(7:),'(I10)') nctels + d2r = 3.1415926535897932385/180.0 + do 1967 nct=1,nctels + read(moniin,*) (ctpars(nct,m),m=1,7) + ct = cos(ctpars(nct,ctthet)*d2r) + st = sin(ctpars(nct,ctthet)*d2r) + cp = cos(ctpars(nct,ctphi)*d2r) + sp = sin(ctpars(nct,ctphi)*d2r) + omega(nct,1,1) = cp + omega(nct,1,2) = sp + omega(nct,1,3) = 0.0 + omega(nct,2,1) = -ct*sp + omega(nct,2,2) = ct*cp + omega(nct,2,3) = st + omega(nct,3,1) = st*sp + omega(nct,3,2) = -st*cp + omega(nct,3,3) = ct +c write(moniou,*) nct,(ctpars(nct,m),m=1,7) + 1967 continue +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c---------changed-------add + +C END OF DATA CARD INPUT + ELSEIF ( LINE(1:4) .EQ. 'EXIT' ) THEN + IF ( DEBUG ) THEN + WRITE(MDEBUG,*) 'DATAC : END OF DATACARD INPUT' + ELSE + WRITE(MONIOU,*) + WRITE(MONIOU,*) 'END OF DATACARD INPUT' + ENDIF + GOTO 1001 + +C GET FIXED HEIGHT (G/CM**2) OF PARTICLE START + ELSEIF ( LINE(1:6) .EQ. 'FIXCHI' ) THEN + CALL DTCDBL(LINE,IS,THICK0,'FIXCHI',1) + +C GET FIXED HEIGHT OF FIRST INTERACTION AND FIRST TARGET + ELSEIF ( LINE(1:6) .EQ. 'FIXHEI' ) THEN + CALL DTCDBL(LINE,IS,FIXHEI,'FIXHEI',1) + CALL DTCINT(LINE,IS,N1STTR,'FIXHEI',2) + IF ( FIXHEI .GT. 0. ) FIX1I = .TRUE. + +C GET FLAG FOR GHEISHA DEBUG + ELSEIF ( LINE(1:6) .EQ. 'GHEIDB' ) THEN + CALL DTCLOG(LINE,IS,GHEISDB,'GHEIDB',1) + +C GET FLAGS FOR HADRON INTERACTION OPTIONS + ELSEIF ( LINE(1:6) .EQ. 'HADFLG' ) THEN + CALL DTCINT(LINE,IS,NFLAIN,'HADFLG',1) + CALL DTCINT(LINE,IS,NFLDIF,'HADFLG',2) + CALL DTCINT(LINE,IS,NFLPI0,'HADFLG',3) + CALL DTCINT(LINE,IS,NFLPIF,'HADFLG',4) + CALL DTCINT(LINE,IS,NFLCHE,'HADFLG',5) + CALL DTCINT(LINE,IS,NFRAGM,'HADFLG',6) + +C GET NAME OF HOST COMPUTER + ELSEIF ( LINE(1:4) .EQ. 'HOST' ) THEN + CALL DTCCHR(LINE,IS,HOST,'HOST',1,LENVAL) + +C GET PARAMETER FOR LONGITUDINAL DEVELOPMENT + ELSEIF ( LINE(1:5) .EQ. 'LONGI' ) THEN + CALL DTCLOG(LINE,IS,LLONGI,'LONGI',1) + CALL DTCDBL(LINE,IS,THSTEP,'LONGI',2) + CALL DTCLOG(LINE,IS,FLGFIT,'LONGI',3) + CALL DTCLOG(LINE,IS,FLONGOUT,'LONGI',4) + +C GET PARAMETERS OF MAGNETIC FIELD + ELSEIF ( LINE(1:6) .EQ. 'MAGNET' ) THEN + CALL DTCDBL(LINE,IS,BX,'MAGNET',1) + CALL DTCDBL(LINE,IS,BZ,'MAGNET',2) + +C GET NUMBER OF EVENTS TO BE PRINTED + ELSEIF ( LINE(1:6) .EQ. 'MAXPRT' ) THEN + CALL DTCINT(LINE,IS,MAXPRT,'MAXPRT',1) + IF ( MAXPRT .LT. 0 ) MAXPRT = 10 + +C GET FLAG FOR ADDITIONAL MUON INFORMATION ON MPATAP + ELSEIF ( LINE(1:6) .EQ. 'MUADDI' ) THEN + CALL DTCLOG(LINE,IS,FMUADD,'MUADDI',1) + +C GET FLAG FOR MUON MULTIPLE SCATTERING (T=MOLIERE, F=GAUSS) + ELSEIF ( LINE(1:6) .EQ. 'MUMULT' ) THEN + CALL DTCLOG(LINE,IS,FMOLI,'MUMULT',1) + +C GET NUMBER OF SHOWERS TO BE PRODUCED + ELSEIF ( LINE(1:5) .EQ. 'NSHOW' ) THEN + CALL DTCINT(LINE,IS,NSHOW,'NSHOW',1) + IF ( NSHOW .LE. 0 ) NSHOW = 1 + +C GET HEIGHT OF OBSERVATION LEVELS + ELSEIF ( LINE(1:6) .EQ. 'OBSLEV' ) THEN + IOBSLV = IOBSLV + 1 + IF ( IOBSLV .LE. 1 ) THEN + CALL DTCDBL(LINE,IS,OBSLEV(IOBSLV),'OBSLEV',1) + NOBSLV = IOBSLV + ELSE + WRITE(MONIOU,*) 'DATAC : ONLY ONE OBSERVATION LEVEL ,', + * 'POSSIBLE IN CURVED VERSION' + STOP + ENDIF + +C GET NEW MONITOR OUTPUT UNIT + ELSEIF ( LINE(1:6) .EQ. 'OUTPUT' ) THEN + CALL DTCINT(LINE,IS,MONNEW,'OUTPUT',1) + WRITE(MONIOU,593) MONIOU,MONNEW + 593 FORMAT(' ATTENTION'/' ========='/ + * ' LOGFILE OUTPUT REDIRECTED FROM UNIT ',I3, + * ' TO UNIT ',I3) + MONIOU = MONNEW + +C GET FLAGS FOR PARTICLE AND TABLE OUTPUT + ELSEIF ( LINE(1:6) .EQ. 'PAROUT' ) THEN + CALL DTCLOG(LINE,IS,FPAROUT,'PAROUT',1) + CALL DTCLOG(LINE,IS,FTABOUT,'PAROUT',2) + +C GET PHI OF PRIMARY PARTICLE + ELSEIF ( LINE(1:4) .EQ. 'PHIP' ) THEN + CALL DTCDBL(LINE,IS,R1,'PHIP',1) + CALL DTCDBL(LINE,IS,R2,'PHIP',2) + PHIPR(1) = MIN( R1, R2 ) + PHIPR(2) = MAX( R1, R2 ) + +C GET TYPE OF PRIMARY PARTICLE + ELSEIF ( LINE(1:6) .EQ. 'PRMPAR' ) THEN + CALL DTCINT(LINE,IS,NNTYP,'PRMPAR',1) + PRMPAR(1) = NNTYP + +C GET WIDTH OF NKG LATERAL DISTRIBUTION + ELSEIF ( LINE(1:6) .EQ. 'RADNKG' ) THEN + CALL DTCDBL(LINE,IS,RADNKG,'RADNKG',1) + +C GET RUN NUMBER + ELSEIF ( LINE(1:5) .EQ. 'RUNNR' ) THEN + CALL DTCINT(LINE,IS,NRRUN,'RUNNR',1) + NRRUN = ABS(NRRUN) + +C GET SEEDS OF RANDOM NUMBER SEQUENCES + ELSEIF ( LINE(1:4) .EQ. 'SEED' ) THEN + ISEQ = ISEQ + 1 + IF ( ISEQ .LE. 10 ) THEN + CALL DTCINT(LINE,IS,ISEED(1,ISEQ),'SEED',1) + CALL DTCINT(LINE,IS,ISEED(2,ISEQ),'SEED',2) + CALL DTCINT(LINE,IS,ISEED(3,ISEQ),'SEED',3) + NSEQ = ISEQ + ELSE + WRITE(MONIOU,*) 'DATAC : TOO MANY RANDOM GENERATOR SEEDS,', + * ' IGNORE IT' + ENDIF + +C GET FACTOR FOR ELECTRON'S MULTIPLE SCATTERING LENGTH + ELSEIF ( LINE(1:6) .EQ. 'STEPFC' ) THEN + CALL DTCDBL(LINE,IS,STEPFC,'STEPFC',1) + +C GET THETA OF PRIMARY PARTICLE + ELSEIF ( LINE(1:6) .EQ. 'THETAP' ) THEN + CALL DTCDBL(LINE,IS,R1,'THETAP',1) + CALL DTCDBL(LINE,IS,R2,'THETAP',2) + THETPR(1) = MIN( R1, R2 ) + THETPR(2) = MAX( R1, R2 ) + +C GET NAME OF USER + ELSEIF ( LINE(1:4) .EQ. 'USER' ) THEN + CALL DTCCHR(LINE,IS,USER,'USER',1,LENVAL) + +C GET VENUS PARAMETER WITH CODE WORD AND VALUE + ELSEIF ( LINE(1:6) .EQ. 'VENPAR' ) THEN + IPARAM = IPARAM + 1 + IF ( IPARAM .LE. 100 ) THEN + CALL DTCCHR(LINE,IS,PARCHA(IPARAM),'VENPAR',1,LENVAL) + CALL DTCRL(LINE,IS,PARVAL(IPARAM),'VENPAR',2) + NPARAM = IPARAM + ELSE + WRITE(MONIOU,*) 'DATAC : TOO MANY VENUS PARAMETERS,', + * ' IGNORE IT' + ENDIF + +C GET CROSS-SECTION FLAG FOR VENUS HADRONIC INTERACTION MODEL + ELSEIF ( LINE(1:6) .EQ. 'VENSIG' ) THEN + CALL DTCLOG(LINE,IS,FVENSG,'VENSIG',1) + +C GET FLAG FOR VENUS HIGH ENERGY HADRONIC INTERACTION MODEL +C GET PARAMETER ISH00 FOR AMOUNT OF VENUS DEBUG + ELSEIF ( LINE(1:5) .EQ. 'VENUS' ) THEN + CALL DTCLOG(LINE,IS,FVENUS,'VENUS',1) + CALL DTCINT(LINE,IS,ISH00,'VENUS',2) + +C GET CIRCULAR ANGLE RANGE FROM (FIXED) THETA AND PHI DIRECTION +C WHERE SIMULATED SHOWER DIRECTION SHOULD BE. + ELSEIF (LINE(1:8) .EQ. 'VIEWCONE' ) THEN + CALL DTCDBL(LINE,IS,R1,'VIEWCONE',1) + CALL DTCDBL(LINE,IS,R2,'VIEWCONE',2) + VUECON(1) = MIN(R1,R2) + VUECON(2) = MAX(R1,R2) + +C ILLEGAL KEYWORD + ELSE + IE = INDEX(LINE,' ') + IF ( IE.LE.0 ) IE = LEN(LINE)+1 + WRITE(MONIOU,*) 'DATAC : UNKNOWN KEYWORD : ',LINE(1:IE-1) + NUMERR = NUMERR + 1 + ENDIF + + IF ( LINE(1:1) .EQ. '!' ) NUMERR = NUMERR + 1 + + GOTO 1 + +C----------------------------------------------------------------------- + 1000 CONTINUE + IF ( DEBUG ) THEN + WRITE(MDEBUG,*) 'DATAC : NO MORE DIRECTIVES FOUND' + ELSE + WRITE(MONIOU,*) '*** NO MORE DIRECTIVES FOUND ***' + ENDIF + + 1001 IF ( NUMERR .GT. 0 ) THEN + WRITE(MONIOU,9000) NUMERR + 9000 FORMAT(1X,I3,' SYNTAX ERROR(S) IN INPUT DATA CARDS.') + STOP 'BAD DATA CARDS' + ENDIF + + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE DECAY1( M0,M3,M4 ) + +C----------------------------------------------------------------------- +C DECAY (INTO TWO PARTICLES) +C +C TWO PARTICLE DECAY WITH FULL KINEMATIC; ENERGY AND MOMENTA CONSERVED +C THIS SUBROUTINE IS CALLED FROM KDECAY, RESDEC, AND STRDEC. +C ARGUMENTS: +C M0 = TYPE OF DECAYING PARTICLE +C M3 = TYPE OF FIRST PRODUCT PARTICLE (HADRON) +C M4 = TYPE OF SECOND PRODUCT PARTICLE (HADRON OR GAMMA) +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AUX1,AUX2,AUX2A,AUX3,AUX4,COSTCM,COSTH3,COSTH4, + * GAMMA3,GAMMA4,PHI4,WORK1,WORK2 + INTEGER I,M0,M3,M4 + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) BETA,M0,M3,M4 + 444 FORMAT(' DECAY1: BETA,M0,M3,M4=',1P,E10.3,3I5) + +C PARTICLE COORDINATES 5..10 ARE COPIED INTO SECPAR IN CALLING PROGRAM +C CALCULATE AUXILIARY QUANTITIES + AUX1 = ( ( PAMA(M0)**2 + PAMA(M3)**2 - PAMA(M4)**2 ) + * / (2.D0*PAMA(M0)) )**2 - PAMA(M3)**2 + AUX2 = 1.D0 + AUX1 / PAMA(M3)**2 + AUX2A = SQRT(AUX2) + AUX3 = SQRT( 1.D0 - 1.D0 / AUX2 ) + + WORK1 = GAMMA * AUX2A + WORK2 = AUX3 * BETA * WORK1 + +C DETERMINE POLAR ANGLE IN CM SYSTEM + CALL RMMAR( RD,2,1 ) + COSTCM = 2.D0 * RD(1) - 1.D0 + GAMMA3 = WORK1 + WORK2 * COSTCM +C SECOND PRODUCT PARTICLE WITH NONVANISHING REST MASS + IF ( PAMA(M4) .NE. 0.D0 ) THEN + GAMMA4 = (PAMA(M0)*GAMMA - PAMA(M3)*GAMMA3) / PAMA(M4) + AUX4 = (PAMA(M0)**2 + PAMA(M4)**2 - PAMA(M3)**2 ) + * / (2.D0*PAMA(M0)*PAMA(M4)) + COSTH4 = MIN( 1.D0, (GAMMA*GAMMA4 - AUX4) + * / (BETA * GAMMA * SQRT(GAMMA4**2 - 1.D0)) ) + ELSE +C SECOND PRODUCT PARTICLE IS GAMMA; THEN GAMMA4 IS THE ENERGY + GAMMA4 = PAMA(M0)*GAMMA - PAMA(M3)*GAMMA3 + COSTH4 = MIN( 1.D0, (BETA - COSTCM)/(1.D0 - BETA*COSTCM) ) + ENDIF + PHI4 = RD(2)*PI2 + CALL ADDANG( COSTHE,PHI, COSTH4,PHI4, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = M4 + SECPAR(2) = GAMMA4 + IF ( DEBUG ) WRITE(MDEBUG,445) (SECPAR(I),I=1,9) + 445 FORMAT(' DECAY1: SECPAR=',1P,8E10.3,0P,F10.0) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( M4 .EQ. 1 ) THEN + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + GAMMA4 + ELSE + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAMMA4 * PAMA(M4) + ENDIF + ENDIF + ENDIF +C FIRST PRODUCT PARTICLE + COSTH3 = MIN( 1.D0, (GAMMA * GAMMA3 - AUX2A) + * / (BETA * GAMMA * SQRT(GAMMA3**2 - 1.D0)) ) + CALL ADDANG( COSTHE,PHI, COSTH3,PHI4+PI, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = M3 + SECPAR(2) = GAMMA3 + IF ( DEBUG ) WRITE(MDEBUG,445) (SECPAR(I),I=1,9) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( M3 .EQ. 13 .OR. M3 .EQ. 14 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + (GAMMA3-1.D0)*PAMA(M3) + ELSEIF ( M3 .EQ. 15 .OR. M3 .EQ. 25 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + (GAMMA3+1.D0)*PAMA(M3) + ELSE + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAMMA3 * PAMA(M3) + ENDIF + ENDIF + ENDIF + + RETURN + END +*CMZ : 13/06/2001 15.08.42 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE DECAY6(AM0,AM3,AM4,AM5,PARAMA,PARAMB,PARAMC,AMPMX,MODE) + +C----------------------------------------------------------------------- +C DECAY (INTO 3 PARTICLES) +C +C TREATES DECAY INTO 3 PARTICLES; FULLY CONSERVING ENERGY AND MOMENTA +C KINEMATIC RANGE PARAMETRISATION SEE PHYS. LETT. 204B (1988) 90-91 +C FOR LEPTONIC KAON DACAY: THE POLARIZATION OF THE MUON AND +C THE NEUTRINO PRODUCTION IS INCLUDED. +C THIS SUBROUTINE IS CALLED FROM ETADEC, KDECAY, PI0DEC, AND RESDEC. +C ARGUMENTS: +C AM0 = MASS OF DECAYING PARTICLE +C AM3, AM4, AM5 = MASSES OF RESULTING PARTICLES +C PARAMA = DALITZ AMPLITUDE PARAMETER (SEE BELOW) +C PARAMB = DALITZ AMPLITUDE PARAMETER (SEE BELOW) +C PARAMC = DALITZ AMPLITUDE PARAMETER (SEE BELOW) +C AMPMX = MAXIMUM AMPLITUDE OF DALITZ PLOT +C MODE = 1 FOR DECAY KAON ----> 3 PIONS +C = 2 FOR DECAY ETA ----> 3 PIONS OR 2 PIONS + GAMMA +C FOR DECAY PI(0) ----> ELECTRON + POSITRON + GAMMA +C = 3 FOR DECAY KAON ----> PION + MUON + NEUTRINO +C = 4 FOR DECAY KAON ----> PION + ELECTRON + NEUTRINO +C +C AMPLITUDE PARAMETERS PARAMA, PARAMB, PARAMC ARE DEPENDENT ON MODE: +C FOR MODE=1: PARAMA = G DALITZ AMPLITUDE PARAMETRISATION SEE +C PARAMB = H PHYS. LETT. 204B (1988) 181 - 193 +C PARAMC = K +C +C FOR MODE=2: PARAMA = A DALITZ AMPLITUDE PARAMETRISATION SEE +C PARAMB = DUMMY PHYS. LETT. 204B (1988) 173 - 175; +C PARAMC = DUMMY J.G. LAYTER ET.AL. PHYS.REV.D7(1973)2565 +C +C FOR MODE>2: PARAMA = LAMBDA-PLUS DALITZ AMPLITUDE PARAMETRISATION +C PARAMB = LAMBDA-ZERO SEE PHYS. LETT. 204B (1988) +C PARAMC = DUMMY 182 - 194 +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DECAY. + COMMON /DECAY/ GAM345,COS345,PHI345 + DOUBLE PRECISION GAM345(3),COS345(3),PHI345(3) +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ABYM,AMPLI,AMPMX,AM0,AM3,AM34I,AM34SQ,AM35SQ, + * AM4,AM5,APARAL,APERPN,AUXA,AUXB,AUX1,AUX2,AUX2A, + * AUX3,AUX4,AUX4A,AUX5,AUX6,AUX7,AUX8,AUX10,AUX12, + * AUX14,BBYM,BOFQ,CM0SQ,CM3SQ,CM3SQI,CM4SQ,CM5SQ, + * COSALF,COSBET,COSFI4,COSFI5,COSOME,COSPHI, + * COSPSI,COS3CM,COS4CM,COS5CM, + * DISCR,EPIPRM,E3CM,E3STAR,E4CM,E5CM,E5STAR,FACT, + * GRLAMD,OMEGA,PA,PARAMA,PARAMB,PARAMC,PB,PC,PSI, + * P3CM,P3SQ,P4CM,P4SQ,P5CM,P5SQ,ROOT1,ROOT2, + * SINALF,SINBET,SINFI4,SINFI5,SINOMG,SINPHI,SINPSI, + * SINT4,SINT4I,SINT5I,SIN3CM,S0,TBYMSS,XIT,XI0 + INTEGER MODE + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) AM0,AM3,AM4,AM5 + 444 FORMAT(' DECAY6: AM0',1P,E10.3,' AM3',E10.3,' AM4',E10.3, + * ' AM5',E10.3) + +C CALCULATE AUXILIARY QUANTITIES + CM0SQ = AM0**2 + CM3SQ = AM3**2 + CM4SQ = AM4**2 + CM5SQ = AM5**2 + AUX1 = (AM3 + AM4)**2 + AUX2A = (AM0 - AM5)**2 + AUX2 = AUX2A - AUX1 + AUX3 = (AM3 + AM5)**2 + AUX4A = (AM0 - AM4)**2 + AUX4 = AUX4A - AUX3 + AUX5 = CM3SQ - CM4SQ + AUX6 = CM0SQ - CM5SQ + AUX7 = 0.5D0 / AM0 + IF ( MODE .EQ. 1 ) THEN + AUX8 = (AM0 - AM3)**2 + S0 = OB3 * ( CM0SQ + CM3SQ + CM4SQ + CM5SQ ) + AUX10 = 1.D0 / PAMA(8)**2 + ELSEIF ( MODE .EQ. 2 ) THEN + AUX14 = 1.D0 / (AM0 - AM3 - AM4 - AM5) + ELSEIF ( MODE .EQ. 3 .OR. MODE .EQ. 4 ) THEN + CM3SQI = 1.D0 / CM3SQ + AUX12 = (CM0SQ + CM3SQ - CM4SQ) * AUX7 +C XI0 IS XI(0); GRLAMD IS GREAT LAMBDA + XI0 = ( CM0SQ - CM3SQ) * CM3SQI * (PARAMB - PARAMA) + GRLAMD = (-XI0) * PARAMA + ELSE + WRITE(MONIOU,*) 'DECAY6: UNEXPECTED MODE =',MODE + RETURN + ENDIF + + 100 CALL RMMAR( RD,3,1 ) +C ARE INVARIANT MASS SQUARES INSIDE BOUNDARY OF DALITZ PLOT? + AM34SQ = AUX2 * RD(1) + AUX1 + AM35SQ = AUX4 * RD(2) + AUX3 + AM34I = 0.5D0 / SQRT(AM34SQ) + E3STAR = (AUX5 + AM34SQ) * AM34I + E5STAR = (AUX6 - AM34SQ) * AM34I + ROOT1 = SQRT(E3STAR**2 - CM3SQ ) + ROOT2 = SQRT(E5STAR**2 - CM5SQ ) + DISCR = AM35SQ - (E3STAR + E5STAR)**2 +C REJECT RANDOM NUMBERS, IF OUTSIDE KINEMATIC BOUNDARY OF DALITZ PLOT + IF ( DISCR .GT. -((ROOT1 - ROOT2)**2) ) GOTO 100 + IF ( DISCR .LT. -((ROOT1 + ROOT2)**2) ) GOTO 100 +C E3CM, E4CM, E5CM ARE ENERGIES IN THE C. M. SYSTEM + E4CM = (CM0SQ + CM4SQ - AM35SQ) * AUX7 + E5CM = (CM0SQ + CM5SQ - AM34SQ) * AUX7 + E3CM = AM0 - E4CM - E5CM + + IF ( MODE .EQ. 1 ) THEN + FACT = AUX10 * (AUX2A - 2.D0*AM0*(E5CM-AM5) - S0) +C AMPLITUDE OF SQUARED MATRIX ELEMENT (SEE PHYS. LETT. B204 (1988) 181) + AMPLI = 1.D0 + PARAMA*FACT + PARAMB*FACT**2 + PARAMC*( AUX10 + * * ( AUX4A -AUX8 -2.D0*(E4CM-AM4-E3CM+AM3)*AM0 ) )**2 + + ELSEIF ( MODE .EQ. 2 ) THEN +C AMPLITUDE OF SQUARED MATRIX ELEMENT (SEE PHYS. LETT. B204 (1988) 173) +C REF: J. G. LAYTER ET AL., PHYS. REV. D7 (1973) 2565 + AMPLI = 1.D0 + PARAMA * ( 3.D0 * (E5CM - AM5) * AUX14 - 1.D0 ) + + ELSE +C EPIPRM IS (ENERGY OF PION)PRIMED + EPIPRM = AUX12 - E3CM +C PA, PB, AND PC ARE THE A, B, AND C PARAMETERS + PA = AM0 * ( 2.D0 * E4CM * E5CM - AM0 * EPIPRM ) + * + CM4SQ * ( 0.25D0 * EPIPRM - E5CM ) + PB = CM4SQ * ( E5CM - 0.5D0 * EPIPRM ) + PC = CM4SQ * EPIPRM * 0.25D0 +C TBYMSS IS T DIVIDED BY MASS SQUARE OF PION + TBYMSS = (CM0SQ + CM3SQ - 2.D0 * AM0 * E3CM) * CM3SQI +C XIT IS XI(T) + XIT = XI0 + GRLAMD*TBYMSS +C AMPLITUDE OF SQUARED MATRIX ELEMENT (PHYS. LETT. B204 (1988) 183) + AMPLI = (1.D0 + PARAMA*TBYMSS)**2 * ( PA + XIT*PB + XIT**2 *PC ) + ENDIF + +C REJECT RANDOM NUMBERS, IF RD(3) IS LARGER THAN DALITZ PLOT AMPLITUDE + IF ( RD(3)*AMPMX .GT. AMPLI ) GOTO 100 + + IF (DEBUG) WRITE(MDEBUG,*) 'DECAY6: E3CM,E4CM,E5CM=', + * SNGL(E3CM),SNGL(E4CM),SNGL(E5CM) +C P3CM, P4CM, P5CM ARE MOMENTA IN THE C.M. SYSTEM +C P3SQ, P4SQ, P5SQ ARE SQUARED MOMENTA IN C.M. SYSTEM + P5SQ = E5CM**2 - CM5SQ + P5CM = SQRT(P5SQ) + P4SQ = E4CM**2 - CM4SQ + P4CM = SQRT(P4SQ) + P3SQ = E3CM**2 - CM3SQ + P3CM = SQRT(P3SQ) +C ANGLE ALFA AND BETA ARE BETWEEN PARTICLE 3 AND 4 RSP. 3 AND 5 + COSALF = (P5SQ - P3SQ - P4SQ) / (2.D0 * P3CM * P4CM) + SINALF = -SQRT( MAX(0.D0, 1.D0 - COSALF**2) ) + COSBET = (P4SQ - P3SQ - P5SQ) / (2.D0 * P3CM * P5CM) + SINBET = SQRT( MAX(0.D0, 1.D0 - COSBET**2) ) +C NOW SELECT RANDOM NUMBERS FOR THREE INDEPENDENT ANGLES IN CM-SYSTEM +C COS3CM AND PHI ARE ANGLES OF PARTICLE 3 RELATIVE TO DECAYING PARTICLE + CALL RMMAR( RD,3,1 ) + COS3CM = 2.D0*RD(1) - 1.D0 + SIN3CM = SQRT( MAX(0.D0, 1.D0 - COS3CM**2) ) + PHI345(1) = PI2 * RD(2) + COSPHI = COS( PHI345(1) ) + SINPHI = SIN( PHI345(1) ) +C ANGLE PSI GIVES ROTATION OF PLANE (3,4,5) RELATIVE TO PLANE (1,3) + PSI = PI2 * RD(3) + COSPSI = COS(PSI) + SINPSI = SIN(PSI) +C CALCULATE ALL NEEDED POLAR AND AZIMUTHAL ANGLES IN THE CM-SYSTEM + COS4CM = COS3CM * COSALF - SIN3CM * COSPSI * SINALF + IF ( ABS(COS4CM) .LT. 1.D0 ) THEN + SINT4 = SQRT(1.D0 - COS4CM**2) + SINT4I = 1.D0 / SINT4 + AUXA = COS3CM * COSPSI * SINALF + SIN3CM * COSALF + COSFI4 = (COSPHI*AUXA-SINPHI*SINPSI*SINALF) * SINT4I + PHI345(2) = ACOS( MAX( -1.D0, MIN( 1.D0, COSFI4 ) ) ) + SINFI4 = (SINPHI*AUXA+COSPHI*SINPSI*SINALF) * SINT4I + IF ( SINFI4 .LE. 0.D0 ) PHI345(2) = PI2 - PHI345(2) + ELSE + PHI345(2) = 0.D0 + ENDIF +C CALCULATE GAMMA FACTORS AND POLAR ANGLES IN LABORATORY SYSTEM + GAM345(1) = GAMMA * (E3CM + BETA * P3CM * COS3CM) / AM3 + COS345(1) = MIN( 1.D0, (BETA * E3CM + P3CM * COS3CM) * GAMMA + * / ( AM3 * SQRT(GAM345(1)**2 - 1.D0) ) ) + GAM345(2) = GAMMA * (E4CM + BETA * P4CM * COS4CM) / AM4 + COS345(2) = MIN( 1.D0, (BETA * E4CM + P4CM * COS4CM) * GAMMA + * / ( AM4 * SQRT(GAM345(2)**2 - 1.D0) ) ) +C CALCULATE PARAMETERS OF PARTICLE 5, IF NEEDED + IF ( MODE .LE. 2 ) THEN + COS5CM = COS3CM * COSBET - SIN3CM * COSPSI * SINBET + IF ( ABS(COS5CM) .LT. 1.D0 ) THEN + SINT5I = 1.D0 / SQRT(1.D0 - COS5CM**2) + AUXB = COS3CM * COSPSI * SINBET + SIN3CM * COSBET + COSFI5 = (COSPHI*AUXB-SINPHI*SINPSI*SINBET) * SINT5I + PHI345(3) = ACOS( MAX( -1.D0, MIN( 1.D0, COSFI5 ) ) ) + SINFI5 = (SINPHI*AUXB+COSPHI*SINPSI*SINBET) * SINT5I + IF ( SINFI5 .LE. 0.D0 ) PHI345(3) = PI2 - PHI345(3) + ELSE + PHI345(3) = 0.D0 + ENDIF + IF ( AM5 .NE. 0.D0 ) THEN + GAM345(3) = GAMMA * (E5CM + BETA * P5CM * COS5CM) / AM5 + COS345(3) = MIN( 1.D0, (BETA * E5CM + P5CM * COS5CM) * GAMMA + * / ( AM5 * SQRT(GAM345(3)**2 - 1.D0) ) ) + ELSE +C IF PARTICLE 5 IS GAMMA RAY OR NEUTRINO, THEN GAM345(3) IS THE ENERGY + GAM345(3) = GAMMA * (E5CM + BETA * P5CM * COS5CM) + COS345(3) = MIN( 1.D0, (BETA * E5CM + P5CM * COS5CM) * GAMMA + * / GAM345(3) ) + ENDIF + ENDIF + + IF ( MODE .EQ. 3 ) THEN +C CALCULATION OF MUON POLARIZATION. WE FOLLOW THE DESCRIPTION OF +C L. JAUNEAU, IN: METHODS IN SUBNUCLEAR PHYSICS, VOL. 3, M. NIKOLIC ED. +C (GORDON + BREACH, NEW YORK, 1969), P. 123 +C SEE ALSO: L.M. CHOUNET ET AL., PHYS. REP. 4 (1972) 199, APPENDIX 1. +C SEE ALSO: N. CABBIBO, A. MAKSYMOWICZ, PHYS. LETT. 9 (1964) 352 +C (CORRECTIONS IN: PHYS. LETT. 11 (1964) 360; 14 (1965) 72) +C WE DEFINE BOFQ (READ: B OF Q), WHICH IS -B(Q**2)*4 + BOFQ = 1.D0 - XIT +C ABYM AND BBYM (READ A BY M; B BY M) ARE THE QUANTITIES A/M AND B/M + ABYM = AM0 * ( BOFQ * EPIPRM - 2.D0 * E5CM ) + BBYM = CM0SQ + 0.25D0 * CM4SQ * BOFQ**2 - BOFQ * AM0 * E4CM +C NOW CALCULATE THE COMPONENTS APARAL (PARALLEL TO MU DIRECTION) AND +C APERPN (PERPENDICULAR TO MU DIRECTION) USING QUANTITIES DEFINED IN +C KAON REST SYSTEM. NOTE OUR DEFINITION OF SINALF (ALWAYS WITH NEGATIVE +C SIGN) OPPOSITE TO CABBIBO'S SIN(PSI) AND JAUNEAU'S SIN(THETA) + APARAL = (-P3CM)*AM4*BBYM*COSALF - P4CM * ( AM0*ABYM - BBYM * + * ( P3CM*SINALF*(E4CM-AM4)/P4CM + AM0 - E3CM ) ) + APERPN = P3CM*AM4*BBYM*SINALF +C NOW NORMALIZE THE PARALLEL COMPONENT OF POLARIZATION; POLART IS +C COSINE OF THE ANGLE BETWEEN MUON MOMENTUM AND POLARISATION + POLART = APARAL / SQRT(APARAL**2 + APERPN**2) +C THE POLARIZATION VECTOR LIES IN THE PLANE OF MOMENTA (PION,MUON). +C OMEGA IS THE ANGLE BY WHICH THE DECAY PLANE (PION,MUON) IS ROTATET +C AROUND THE DIRECTION OF MUON RELATIVE TO THE PLANE (KAON,MUON) + IF ( ABS(COS4CM) .LT. 1.D0 .AND. SINALF .NE. 0.D0 ) THEN + COSOME = (COS4CM*COSALF - COS3CM)*SINT4I/SINALF + OMEGA = ACOS( MAX( -1.D0, MIN( 1.D0, COSOME ) ) ) + IF ( SINFI4 .NE. 0.D0 ) THEN + SINOMG = ( COSFI4 * ( COSALF - COS3CM*COS4CM ) * SINT4I + * - SIN3CM * COSPHI ) / (SINALF*SINFI4) + IF ( SINOMG .LT. 0.D0 ) OMEGA = PI2 - OMEGA + ENDIF + ELSE + OMEGA = 0.D0 + ENDIF + POLARF = OMEGA + ENDIF + + RETURN + END +*CMZ : 28/02/2002 10.53.59 by D. HECK IK FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE DTCCHR (LINE,IS,CVAL,KEYWRD,IKEY,LENVAL) + +C----------------------------------------------------------------------- +C D(A)T(A) C(ARD) CH(A)R(ACTER) +C +C READ CHARACTER PARAMETER FROM DATA CARD CHARACTER STRING +C ERRORS ARE INDICATED BY WRITING A '!' IN LINE(1:1) +C THIS SUBROUTINE IS CALLED FROM DATAC. +C ARGUMETNS: +C LINE = CHARACTER STRING OF INPUT LINE +C IS = POINTER FOR START OF INTERPRETATION OF 'LINE' +C CVAL = CHARACTER STRING TO BE RETURNED +C KEYWORD= KEYWORD AT BEGIN OF LINE +C IKEY = NUMBER OF ARGUMENT AFTER KEYWORD +C LENVAL = LENGTH OF CHARACTER STRING TO BE RETURNED +C +C AUTHOR: K. BERNLOEHR MPIK HEIDELBERG 1998 +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER I,IE,IKEY,IQUOTE,IS,L,LENVAL + CHARACTER CVAL*(*),KEYWRD*(*),LINE*(*) + SAVE +C----------------------------------------------------------------------- + + IF ( IS.LE.0 ) IS = LEN(KEYWRD) + + L = LEN(LINE) + DO 10 I = IS+1,L + IF ( LINE(I:I) .NE. ' ' ) GOTO 11 + 10 CONTINUE + 11 IF ( I.GT.L .OR. LINE(I:I).EQ.'!' .OR. LINE(I:I).EQ.' ') THEN + IF ( IKEY .LE. 1 ) THEN + WRITE(MONIOU,6000) KEYWRD + 6000 FORMAT(1X,'DATACARD ',A,' HAS NO PARAMETER(S)') + ELSE + WRITE(MONIOU,6001) KEYWRD,IKEY + 6001 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2,' IS MISSING') + ENDIF + CVAL = ' ' + LINE(1:1) = '!' + LENVAL = 0 + RETURN + ENDIF + IF ( LINE(I:I) .EQ. '''' ) THEN + IQUOTE = 1 + IS = I+1 + ELSEIF ( LINE(I:I) .EQ. '"' ) THEN + IQUOTE = 2 + IS = I+1 + ELSE + IQUOTE = 0 + IS = I + ENDIF + DO 20 I = IS,L + IF ( IQUOTE .EQ. 1 ) THEN + IF ( LINE(I:I) .EQ. '''' ) GOTO 21 + ELSEIF ( IQUOTE .EQ. 2 ) THEN + IF ( LINE(I:I) .EQ. '"' ) GOTO 21 + ELSE + IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) GOTO 21 + ENDIF + 20 CONTINUE + 21 IE = I + IF ( IQUOTE .EQ. 1 ) THEN + IF ( LINE(I:I) .EQ. '''' ) THEN + IE = I-1 + LINE(I:I) = ' ' + ENDIF + ELSEIF ( IQUOTE .EQ. 2 ) THEN + IF ( LINE(I:I) .EQ. '"' ) THEN + IE = I-1 + LINE(I:I) = ' ' + ENDIF + ELSEIF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) THEN + IE = I-1 + ENDIF +* WRITE(*,6666) KEYWRD,IKEY,IS,IE,LINE(IS:IE) +*6666 FORMAT(1X,'DTCCHR : ',A,' #',I3,I4,I4,': ',A) + + CVAL = LINE(IS:IE) + LENVAL = IE-IS+1 + IF ( LEN(CVAL) .LT. IE-IS+1 ) THEN + WRITE(MONIOU,6002) + * KEYWRD,IKEY,IE-IS+1,LEN(CVAL),CVAL + 6002 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2,' IS TOO LONG AND HAS', + * ' BEEN TRUNCATED FROM',I4,' TO',I4,':'/5X,'''',A,'''') + LINE(1:1) = '!' + LENVAL = LEN(CVAL) + ENDIF + + IS = IE + + IF ( DEBUG ) WRITE(MDEBUG,6667) CVAL + 6667 FORMAT(1X,'DTCCHR : VALUE = ''',A,'''') + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE DTCDBL (LINE,IS,DVAL,KEYWRD,IKEY) + +C----------------------------------------------------------------------- +C D(A)T(A) C(ARD) D(OU)BL(E PRECISION) +C +C READ DOUBLE PRECISION PARAMETER FROM DATA CARD CHARACTER STRING +C ERRORS ARE INDICATED BY WRITING A '!' IN LINE(1:1) +C THIS SUBROUTINE IS CALLED FROM DATAC. +C ARGUMETNS: +C LINE = CHARACTER STRING OF INPUT LINE +C IS = POINTER FOR START OF INTERPRETATION OF 'LINE' +C DVAL = DOUBLE PRECISION VARIABLE TO BE RETURNED +C KEYWORD= KEYWORD AT BEGIN OF LINE +C IKEY = NUMBER OF ARGUMENT AFTER KEYWORD +C +C AUTHOR: K. BERNLOEHR MPIK HEIDELBERG 1998 +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION DVAL + INTEGER I,IE,IKEY,IS,L + CHARACTER CFMTR*8,KEYWRD*(*),LINE*(*) + SAVE +C----------------------------------------------------------------------- + + IF ( IS.LE.0 ) IS = LEN(KEYWRD) + + L = LEN(LINE) + DO 10 I = IS+1,L + IF ( LINE(I:I) .NE. ' ' ) GOTO 11 + 10 CONTINUE + 11 IF ( I.GT.L .OR. LINE(I:I).EQ.'!' .OR. LINE(I:I).EQ.' ') THEN + IF ( IKEY .LE. 1 ) THEN + WRITE(MONIOU,6000) KEYWRD + 6000 FORMAT(1X,'DATACARD ',A,' HAS NO PARAMETER(S)') + ELSE + WRITE(MONIOU,6001) KEYWRD,IKEY + 6001 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2,' IS MISSING') + ENDIF + DVAL = 0.D0 + LINE(1:1) = '!' + RETURN + ENDIF + IS = I + DO 20 I = IS+1,L + IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) GOTO 21 + 20 CONTINUE + 21 IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) THEN + IE = I-1 + ELSE + IE = I + ENDIF +* WRITE(*,*) 'DTCDBL : ',KEYWRD,' #',IKEY,IS,IE,': ',LINE(IS:IE) + IF ( IE-IS+1 .LT. 10 ) THEN + CFMTR = '(F .0)' + WRITE(CFMTR(3:3),'(I1)') IE-IS+1 + ELSE + CFMTR = '(F .0)' + WRITE(CFMTR(3:4),'(I2)') IE-IS+1 + ENDIF + READ(LINE(IS:IE),CFMTR,ERR=999) DVAL + + IS = IE + + IF ( DEBUG ) WRITE(MDEBUG,*) 'DTCDBL : VALUE = ',DVAL + RETURN + + 999 WRITE(MONIOU,6002) KEYWRD,IKEY,LINE(IS:IE) + 6002 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2, + * ' IS INVALID: ',A) + LINE(1:1) = '!' + DVAL = 0.D0 + IS = IE + + IF ( DEBUG ) WRITE(MDEBUG,*) 'DTCDBL : VALUE = ',DVAL + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE DTCINT (LINE,IS,IVAL,KEYWRD,IKEY) + +C----------------------------------------------------------------------- +C D(A)T(A) C(ARD) INT(EGER) +C +C READ INTEGER PARAMETER FROM DATA CARD CHARACTER STRING +C ERRORS ARE INDICATED BY WRITING A '!' IN LINE(1:1) +C THIS SUBROUTINE IS CALLED FROM DATAC. +C ARGUMETNS: +C LINE = CHARACTER STRING OF INPUT LINE +C IS = POINTER FOR START OF INTERPRETATION OF 'LINE' +C IVAL = INTEGER VARIABLE TO BE RETURNED +C KEYWORD= KEYWORD AT BEGIN OF LINE +C IKEY = NUMBER OF ARGUMENT AFTER KEYWORD +C +C AUTHOR: K. BERNLOEHR MPIK HEIDELBERG 1998 +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER I,IE,IKEY,IS,IVAL,L + CHARACTER CFMTI*8,KEYWRD*(*),LINE*(*) + SAVE +C----------------------------------------------------------------------- + + IF ( IS .LE. 0 ) IS = LEN(KEYWRD) + + L = LEN(LINE) + DO 10 I = IS+1,L + IF ( LINE(I:I) .NE. ' ' ) GOTO 11 + 10 CONTINUE + 11 IF ( I.GT.L .OR. LINE(I:I).EQ.'!' .OR. LINE(I:I).EQ.' ' ) THEN + IF ( IKEY.LE.1 ) THEN + WRITE(MONIOU,6000) KEYWRD + 6000 FORMAT(1X,'DATACARD ',A,' HAS NO PARAMETER(S)') + ELSE + WRITE(MONIOU,6001) KEYWRD,IKEY + 6001 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2,' IS MISSING') + ENDIF + IVAL = 0 + LINE(1:1) = '!' + RETURN + ENDIF + IS = I + DO 20 I = IS+1,L + IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) GOTO 21 + 20 CONTINUE + 21 IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) THEN + IE = I-1 + ELSE + IE = I + ENDIF +* WRITE(*,*) 'DTCINT : ',KEYWRD,' #',IKEY,IS,IE,': ',LINE(IS:IE) + DO 30 I = IS,IE + IF ( (ICHAR(LINE(I:I)) .LT. ICHAR('0') .OR. + * ICHAR(LINE(I:I)) .GT. ICHAR('9')) .AND. + * (LINE(I:I) .NE. '-' .OR. I .NE. IS) ) THEN + WRITE(MONIOU,6002) KEYWRD,IKEY,LINE(IS:IE) + 6002 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2, + * ' IS NOT INTEGER: ',A) + IS = IE + IVAL = 0 + LINE(1:1) = '!' + RETURN + ENDIF + 30 CONTINUE + IF ( IE-IS+1 .LT. 10 ) THEN + CFMTI = '(I )' + WRITE(CFMTI(3:3),'(I1)') IE-IS+1 + ELSE + CFMTI = '(I )' + WRITE(CFMTI(3:4),'(I2)') IE-IS+1 + ENDIF + READ(LINE(IS:IE),CFMTI) IVAL + + IS = IE + + IF ( DEBUG ) WRITE(MDEBUG,*) 'DTCINT : VALUE = ',IVAL + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE DTCLOG (LINE,IS,LVAL,KEYWRD,IKEY) + +C----------------------------------------------------------------------- +C D(A)T(A) C(ARD) LOG(ICAL) +C +C READ LOGICAL PARAMETER FROM DATA CARD CHARACTER STRING. +C MAKE USE OF UPPERCASE CONVERSION OF DATA CARDS. +C FOR 'T' YOU CAN ALSO USE 'TRUE', '.TRUE.', 'Y', 'YES', 'ON', '1'. +C FOR 'F' YOU CAN ALSO USE 'FALSE', '.FALSE.', 'N', 'NO', 'OFF', '0'. +C ERRORS ARE INDICATED BY WRITING A '!' IN LINE(1:1) +C THIS SUBROUTINE IS CALLED FROM DATAC. +C ARGUMETNS: +C LINE = CHARACTER STRING OF INPUT LINE +C IS = POINTER FOR START OF INTERPRETATION OF 'LINE' +C LVAL = LOGICAL TO BE RETURNED +C KEYWORD= KEYWORD AT BEGIN OF LINE +C IKEY = NUMBER OF ARGUMENT AFTER KEYWORD +C +C AUTHOR: K. BERNLOEHR MPIK HEIDELBERG 1998 +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER I,IE,IKEY,IS,L + LOGICAL LVAL + CHARACTER KEYWRD*(*),LINE*(*) + SAVE +C----------------------------------------------------------------------- + + IF ( IS .LE. 0 ) IS = LEN(KEYWRD) + + L = LEN(LINE) + DO 10 I = IS+1,L + IF ( LINE(I:I) .NE. ' ' ) GOTO 11 + 10 CONTINUE + 11 IF ( I.GT.L .OR. LINE(I:I).EQ.'!' .OR. LINE(I:I).EQ.' ' ) THEN + IF ( IKEY .LE. 1 ) THEN + WRITE(MONIOU,6000) KEYWRD + 6000 FORMAT(1X,'DATACARD ',A,' HAS NO PARAMETER(S)') + ELSE + WRITE(MONIOU,6001) KEYWRD,IKEY + 6001 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2,' IS MISSING') + ENDIF + IS = IE + LVAL = .FALSE. + LINE(1:1) = '!' + RETURN + ENDIF + IS = I + DO 20 I = IS+1,L + IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) GOTO 21 + 20 CONTINUE + 21 IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) THEN + IE = I-1 + ELSE + IE = I + ENDIF + +* WRITE(*,*) 'DTCLOG : ',KEYWRD,' #',IKEY,IS,IE,': ',LINE(IS:IE) + IF ( LINE(IS:IE) .EQ. 'T' .OR. LINE(IS:IE) .EQ. 'TRUE' + * .OR. LINE(IS:IE) .EQ. '.TRUE.' + * .OR. LINE(IS:IE) .EQ. 'Y' .OR. LINE(IS:IE) .EQ. 'YES' + * .OR. LINE(IS:IE) .EQ. 'ON' .OR. LINE(IS:IE) .EQ. '1' ) THEN + LVAL = .TRUE. + ELSEIF ( LINE(IS:IE) .EQ. 'F' .OR. LINE(IS:IE) .EQ. 'FALSE' + * .OR. LINE(IS:IE) .EQ. '.FALSE.' + * .OR. LINE(IS:IE) .EQ. 'N' .OR. LINE(IS:IE) .EQ. 'NO' + * .OR. LINE(IS:IE) .EQ. 'OFF' .OR. LINE(IS:IE) .EQ. '0' ) THEN + LVAL = .FALSE. + ELSE + WRITE(MONIOU,6002) KEYWRD,IKEY,LINE(IS:IE) + 6002 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2, + * ' IS INVALID: ',A) + LVAL = .FALSE. + LINE(1:1) = '!' + ENDIF + + IS = IE + + IF ( DEBUG ) WRITE(MDEBUG,*) 'DTCLOG : VALUE = ',LVAL + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE DTCRL (LINE,IS,RVAL,KEYWRD,IKEY) + +C----------------------------------------------------------------------- +C D(A)T(A) C(ARD) R(EA)L +C +C READ REAL PARAMETER FROM DATA CARD CHARACTER STRING +C ERRORS ARE INDICATED BY WRITING A '!' IN LINE(1:1) +C THIS SUBROUTINE IS CALLED FROM DATAC. +C ARGUMETNS: +C LINE = CHARACTER STRING OF INPUT LINE +C IS = POINTER FOR START OF INTERPRETATION OF 'LINE' +C RVAL = REAL VARIABLE TO BE RETURNED +C KEYWORD= KEYWORD AT BEGIN OF LINE +C IKEY = NUMBER OF ARGUMENT AFTER KEYWORD +C +C AUTHOR: K. BERNLOEHR MPIK HEIDELBERG 1998 +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + REAL RVAL + INTEGER I,IE,IKEY,IS,L + CHARACTER CFMTR*8,LINE*(*),KEYWRD*(*) + SAVE +C----------------------------------------------------------------------- + + IF ( IS .LE. 0 ) IS = LEN(KEYWRD) + + L = LEN(LINE) + DO 10 I = IS+1,L + IF ( LINE(I:I).NE.' ' ) GOTO 11 + 10 CONTINUE + 11 IF ( I.GT.L .OR. LINE(I:I).EQ.'!' .OR. LINE(I:I).EQ.' ' ) THEN + IF ( IKEY.LE.1 ) THEN + WRITE(MONIOU,6000) KEYWRD + 6000 FORMAT(1X,'DATACARD ',A,' HAS NO PARAMETER(S)') + ELSE + WRITE(MONIOU,6001) KEYWRD,IKEY + 6001 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2,' IS MISSING') + ENDIF + RVAL = 0. + LINE(1:1) = '!' + RETURN + ENDIF + IS = I + DO 20 I = IS+1,L + IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) GOTO 21 + 20 CONTINUE + 21 IF ( LINE(I:I) .EQ. ' ' .OR. LINE(I:I) .EQ. '!' ) THEN + IE = I-1 + ELSE + IE = I + ENDIF +* WRITE(*,*) 'DTCRL : ',KEYWRD,' #',IKEY,IS,IE,': ',LINE(IS:IE) + IF ( IE-IS+1 .LT. 10 ) THEN + CFMTR = '(F .0)' + WRITE(CFMTR(3:3),'(I1)') IE-IS+1 + ELSE + CFMTR = '(F .0)' + WRITE(CFMTR(3:4),'(I2)') IE-IS+1 + ENDIF + READ(LINE(IS:IE),CFMTR,ERR=999) RVAL + + IF ( DEBUG ) WRITE(MDEBUG,*) 'DTCRL : VALUE = ',RVAL + IS = IE + + RETURN + + 999 WRITE(MONIOU,6002) KEYWRD,IKEY,LINE(IS:IE) + 6002 FORMAT(1X,'DATACARD ',A,' PARAMETER',I2, + * ' IS INVALID: ',A) + RVAL = 0. + LINE(1:1) = '!' + IS = IE + + IF ( DEBUG ) WRITE(MDEBUG,*) 'DTCRL : VALUE = ',RVAL + RETURN + END +*CMZ : 24/10/2000 15.40.59 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE EM + +C----------------------------------------------------------------------- +C E(LECTRO) M(AGNETIC PARTICLES) +C +C ROUTINE FOR TREATING EM PARTICLES +C THIS SUBROUTINE IS CALLED FROM BOX3. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ENER,THICK + INTEGER I + SAVE + EXTERNAL THICK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' EM : CURPAR=',1P,8E10.3,0P,F6.0) + +C GET CORRECT PARTICLE ENERGY + IF ( ITYPE .EQ. 1 ) THEN + ENER = CURPAR(2) + ELSEIF ( ITYPE .EQ. 2 .OR. ITYPE .EQ. 3 ) THEN + ENER = CURPAR(2) * PAMA(2) + ELSE + WRITE(MONIOU,*) 'EM : WRONG PARTICLE CODE =',ITYPE + RETURN + ENDIF + +C COPY PARTICLE COORDINATES INTO SECPAR + DO 101 I = 1,8 + SECPAR(I) = CURPAR(I) + 101 CONTINUE + SECPAR( 9) = GEN + SECPAR(10) = ALEVEL + SECPAR(14) = CURPAR(14) + SECPAR(15) = CURPAR(15) + SECPAR(16) = CURPAR(16) + +C CALL NKG IF SELECTED + IF ( FNKG ) THEN + CALL NKG( ENER ) + ENDIF + +C CALL EGS4 IF SELECTED ( PARTICLE IS TAKEN IN EGS FROM COMMON ) + IF ( FEGS ) THEN + CALL EGS4( ENER ) + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + LHEIGH = INT(THICK(H)*THSTPI + 1.D0) + IF ( SECPAR(1) .EQ. 1.D0 ) THEN + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + ENER + ELSEIF ( SECPAR(2) .EQ. 2.D0 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + (ENER+PAMA(2)) + ELSE + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + (ENER-PAMA(2)) + ENDIF + ENDIF + ENDIF + + RETURN + END +*CMZ : 14/06/2000 15.06.16 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE ETADEC + +C----------------------------------------------------------------------- +C ETA DEC(AY) +C +C ROUTINE TREATES DECAY OF ETA +C DECAY WITH FULL KINEMATIC, ENERGY AND MOMENTA CONSERVED +C THIS SUBROUTINE IS CALLED FROM NUCINT. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DECAY. + COMMON /DECAY/ GAM345,COS345,PHI345 + DOUBLE PRECISION GAM345(3),COS345(3),PHI345(3) +*KEEP,EDECAY. + COMMON /EDECAY/ CETA + DOUBLE PRECISION CETA(5) +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AUX1,AUX2,COSTH1,COSTH2,EETA2,FI1 + INTEGER I + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' ETADEC: CURPAR=',1P,9E10.3) + +C SELECT MODE OF DECAY, IF NOT ALREADY SELECTED BY THE PARTICLE TYPE + IF ( ITYPE .EQ. 17 ) THEN + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LE. CETA(1) ) THEN + ITYPE = 71 + ELSEIF ( RD(1) .LE. CETA(2) ) THEN + ITYPE = 72 + ELSEIF ( RD(1) .LE. CETA(3) ) THEN + ITYPE = 73 + ELSE + ITYPE = 74 + ENDIF + ENDIF + +C DECAY OF ETA WITH 4 MODES +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C DECAY ETA ----> GAMMA + GAMMA + IF ( ITYPE .EQ. 71 ) THEN + EETA2 = 0.5D0 * GAMMA * PAMA(17) + CALL RMMAR( RD,2,1 ) + AUX1 = 1.D0 + BETA * RD(1) + AUX2 = 1.D0 - BETA * RD(1) + COSTH1 = (BETA + RD(1)) / AUX1 + COSTH2 = (BETA - RD(1)) / AUX2 + + SECPAR(1) = 1.D0 +C FIRST GAMMA (WITH HIGHER ENERGY) + FI1 = PI2 * RD(2) + SECPAR(2) = AUX1 * EETA2 + CALL ADDANG( COSTHE,PHI, COSTH1,FI1, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + SECPAR(2) + ENDIF + ENDIF +C SECOND GAMMA (WITH LOWER ENERGY) + SECPAR(2) = AUX2 * EETA2 + CALL ADDANG( COSTHE,PHI, COSTH2,FI1+PI, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + SECPAR(2) + ENDIF + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C DECAY ETA ----> PI(0) + PI(0) + PI(0) + ELSEIF ( ITYPE .EQ. 72 ) THEN + CALL DECAY6( PAMA(17), PAMA(7),PAMA(7),PAMA(7), + * 0.D0,0.D0,0.D0, 1.D0, 2 ) + SECPAR(1) = 7.D0 + DO 340 I = 1,3 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I) * PAMA(7) + ENDIF + ENDIF + 340 CONTINUE + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C DECAY ETA ----> PI(-) + PI(+) + PI(0) + ELSEIF ( ITYPE .EQ. 73 ) THEN + CALL DECAY6( PAMA(17), PAMA(8),PAMA(8),PAMA(7), + * CETA(4),0.D0,0.D0, CETA(5), 2 ) + DO 360 I = 1,3 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = 10 - I + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I)*PAMA(10-I) + ENDIF + ENDIF + 360 CONTINUE + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C DECAY ETA ----> PI(+) + PI(-) + GAMMA + ELSEIF ( ITYPE .EQ. 74 ) THEN + CALL DECAY6( PAMA(17), PAMA(8),PAMA(8),0.D0, + * 0.D0,0.D0,0.D0, 1.D0, 2 ) + DO 380 I = 1,3 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + IF ( I .EQ. 3 ) THEN + SECPAR(1) = 1.D0 + ELSE + SECPAR(1) = 7 + I + ENDIF + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( I .EQ. 3 ) THEN + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + GAM345(I) + ELSE + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I)*PAMA(8) + ENDIF + ENDIF + ENDIF + 380 CONTINUE + + ELSE + WRITE(MONIOU,*) 'ETADEC: UNEXPECTED PARTICLE CODE ITYPE=',ITYPE + ENDIF + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE FSTACK + +C----------------------------------------------------------------------- +C F(ROM) STACK +C +C GETS PARTICLE FROM STACK AND READS FROM DISK IF NECESSARY +C THIS SUBROUTINE IS CALLED FORM AAMAIN +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,ETHMAP. + COMMON /ETHMAP/ ECTMAP,ELEFT + DOUBLE PRECISION ECTMAP,ELEFT +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKF. + COMMON /STACKF/ STACK,MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT, + * NTO,NFROM + INTEGER MAXSTK + PARAMETER (MAXSTK = 16*256*2) + DOUBLE PRECISION STACK(MAXSTK) + INTEGER MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM +*KEND. + + INTEGER I,ISTK,J + SAVE + DATA ISTK / MAXSTK / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,220) ICOUNT-1 + 220 FORMAT(' FSTACK:',I7) + +C STACK EMPTY, SOMETHING TO BE READ FROM DISK ? + IF ( MSTACKP .EQ. 0 ) THEN + IF ( NOUREC .EQ. 0 ) THEN + IF ( FPRINT .OR. DEBUG ) WRITE(MONIOU,224) NTO,NFROM + 224 FORMAT(/' NO MORE SECONDARIES FOUND ON STACK'/ + * ' ',I10,' PARTICLES WRITTEN TO STACK'/ + * ' ',I10,' PARTICLES READ FROM STACK' ) + CURPAR(1) = 0.D0 + IRET1 = 1 + RETURN + ENDIF +C READ LAST BLOCK OF 256 PARTICLES FROM SCRATCH FILE + READ(MEXST,REC=NOUREC) (STACK(I),I=1,ISTK/2) + NOUREC = NOUREC - 1 + MSTACKP = ISTK/2 + ENDIF + + NFROM = NFROM + 1 + ICOUNT = ICOUNT - 1 + +C PUT PARTICLE FROM STACK INTO CURPAR + MSTACKP = MSTACKP - MAXLEN + DO 5 J = 1,8 + CURPAR(J) = STACK(MSTACKP+J) + 5 CONTINUE + GEN = STACK(MSTACKP+ 9) + ALEVEL = STACK(MSTACKP+10) + POLART = STACK(MSTACKP+11) + POLARF = STACK(MSTACKP+12) + CURPAR(14) = STACK(MSTACKP+14) + CURPAR(15) = STACK(MSTACKP+15) + CURPAR(16) = STACK(MSTACKP+16) + IF ( PAMA(NINT(CURPAR(1))) .NE. 0.D0 ) THEN + ELEFT = ELEFT - CURPAR(2)*PAMA(NINT(CURPAR(1))) + ELSE + ELEFT = ELEFT - CURPAR(2) + ENDIF + + IF ( DEBUG ) WRITE(MDEBUG,667) ICOUNT,(CURPAR(J),J=1,8) + 667 FORMAT('+ ',I7,1X,1P,8E10.3) + + RETURN + END +*CMZ : 11/07/2000 10.08.30 by D. HECK IK3 FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 25/09/96 +C======================================================================= + + REAL FUNCTION GBRSGM(Z,E) + +C----------------------------------------------------------------------- +C CALCULATES MUON BREMSSTRAHLUNG CROSS-SECTIONS +C +C THIS SUBROUTINE IS TAKEN FROM GEANT321 PACKAGE (WITH MODIFICATIONS) +C CALCULATES CROSS-SECTION IN CURRENT MATERIAL FOR DISCRETE(HARD) MUON +C BREMSSTRAHLUNG. (SIG IN BARN/ATOM) +C FOR A DESCRIPTION SEE: CERN PROGRAM LIBRARY LONG WRITEUP W5013 (1993) +C THIS FUNCTION IS CALLED FROM BOX2. +C ARGUMENTS: +C Z (R4) = ATOMIC NUMBER OF PENETRATET MATERIAL +C E (R4) = TOTAL ENERGY OF MUON +C +C AUTHOR : L.URBAN +C MODIFIED: D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + REAL C(52),AKSI,ALFA,E,ECMAX,FAC,GAM, + * S,SS,X,XX,YY,Z + INTEGER I,J,K + SAVE + DATA AKSI/2.30/, ALFA/1.06/, GAM/0.63/ + DATA C/ 0.949313E-07,-0.819600E-07, 0.529075E-07,-0.832023E-08 + + , 0.539299E-09,-0.127042E-10,-0.165784E-08,-0.307788E-07 + + , 0.977905E-08,-0.113658E-08, 0.574481E-10,-0.106221E-11 + + , 0.968339E-09,-0.108640E-08,-0.177634E-09, 0.889497E-10 + + ,-0.876878E-11, 0.264303E-12, 0.216263E-08,-0.152680E-08 + + , 0.380989E-09,-0.455274E-10, 0.264172E-11,-0.596016E-13 + + , 0.444927E-09,-0.272978E-09, 0.645634E-10,-0.748783E-11 + + , 0.424890E-12,-0.940837E-14, 0.162289E-10,-0.362486E-11 + + ,-0.576652E-12, 0.211269E-12,-0.185482E-13, 0.522065E-15 + + ,-0.215590E-09, 0.112204E-09,-0.819133E-11, 0.145128E-12 + + ,-0.206029E-09, 0.559940E-10,-0.483350E-11, 0.134252E-12 + + ,-0.368469E-10, 0.999457E-11,-0.904967E-12, 0.272717E-13 + + ,-0.303446E-11, 0.853429E-12,-0.785466E-13, 0.236435E-14/ +C----------------------------------------------------------------------- + + GBRSGM = 0. + IF ( E-PAMA(5) .LE. BCUT ) RETURN + ECMAX = E - CMUON(10) * Z**0.333333 + IF ( ECMAX .LE. BCUT ) RETURN + X = LOG(E/PAMA(5)) + + S = 0. + YY = 1. + DO 30 I = 1,6 + XX = 1. + DO 20 J = 1,6 + K = 6*I + J - 6 + S = S + C(K) * XX * YY + XX = XX * X + 20 CONTINUE + YY = YY * CMUON(11) + 30 CONTINUE + SS = 0. + YY = 1. + DO 50 I = 1,4 + XX = 1. + DO 40 J = 1,4 + K = 4*I + J + 32 + SS = SS + C(K) * XX * YY + XX = XX * X + 40 CONTINUE + YY = YY * CMUON(11) + 50 CONTINUE + S = S + Z * SS + IF ( S .LE. 0. ) RETURN + + FAC = LOG(ECMAX/BCUT) + IF ( FAC .LE. 0. ) RETURN + FAC = Z * ( Z + AKSI * (1.+GAM*LOG(Z)) ) * FAC**ALFA + GBRSGM = FAC * S + + IF ( DEBUG ) WRITE(MDEBUG,444) Z,E,GBRSGM + 444 FORMAT(' GBRSGM: Z=',F3.0,' E=',1P,E10.4,' GBRSGM=',E10.4) + + 99 RETURN + END +*CMZ : 11/07/2000 10.08.30 by D. HECK IK3 FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 02/10/96 +C======================================================================= + + REAL FUNCTION GPRSGM(Z,E) + +C----------------------------------------------------------------------- +C G(EANT) P(AI)R S(I)GM(A) +C CALCULATES MUON PAIR PRODUCTION CROSS-SECTIONS +C +C THIS SUBROUTINE IS TAKEN FROM GEANT321 PACKAGE (WITH MODIFICATIONS) +C CALCULATES CROSS-SECTION IN CURRENT MATERIAL FOR DISCRETE(HARD) MUON +C PAIR PRODUCTION. (SIG IN BARN/ATOM) +C FOR A DESCRIPTION SEE: CERN PROGRAM LIBRARY LONG WRITEUP W5013 (1993) +C THIS SUBROUTINE IS CALLED FROM BOX2. +C ARGUMENTS: +C Z (R4) = ATOMIC NUMBER OF PENETRATET MATERIAL +C E (R4) = TOTAL ENERGY OF MUON +C +C AUTHOR : L.URBAN +C MODIFIED: D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + REAL C(100),C1(60),C2(40),AKSI,ALFA,E,ECMAX,ECMIN,FAC,GAM, + * S,SS,VS,X,XX,Y,YY,Z,CUT + INTEGER I,J,K + EQUIVALENCE (C(1),C1(1)),(C(61),C2(1)) + SAVE + + DATA AKSI/1.16/,ALFA/3.46/,GAM/0.06/,VS/0.019/ + DATA ECMIN/2.044E-3/ + DATA C1/0.230181E-08,-0.280842E-08, 0.137525E-08,-0.156503E-09 + + , 0.728088E-11,-0.122631E-12, 0.133014E-08,-0.160591E-09 + + ,-0.390814E-09, 0.314492E-10, 0.251296E-12,-0.574223E-13 + + , 0.604923E-09,-0.560766E-09, 0.660253E-09,-0.103474E-09 + + , 0.621338E-11,-0.135273E-12, 0.103739E-09, 0.710290E-09 + + ,-0.544755E-10,-0.211241E-11, 0.286443E-12,-0.644602E-14 + + , 0.332492E-09,-0.484785E-10, 0.126921E-10,-0.165217E-11 + + , 0.845273E-13,-0.143180E-14,-0.112267E-13, 0.113308E-11 + + , 0.292577E-12,-0.733441E-13, 0.475747E-14,-0.976279E-16 + + ,-0.112856E-07, 0.936398E-08,-0.291882E-08, 0.422266E-09 + + ,-0.279042E-10, 0.678485E-12, 0.112383E-07,-0.964400E-08 + + , 0.313121E-08,-0.440224E-09, 0.278668E-10,-0.643012E-12 + + ,-0.414131E-08, 0.355112E-08,-0.115035E-08, 0.158539E-09 + + ,-0.976788E-11, 0.216911E-12, 0.521380E-09,-0.442265E-09 + + , 0.141753E-09,-0.190826E-10, 0.114038E-11,-0.242085E-13/ + DATA C2/0.572943E-10,-0.296824E-10, 0.630217E-11,-0.623179E-12 + + , 0.211467E-13,-0.143579E-10,-0.137247E-11, 0.118670E-11 + + ,-0.793091E-13, 0.124745E-14,-0.269884E-10, 0.125314E-10 + + ,-0.239259E-11, 0.181151E-12,-0.470277E-14,-0.342454E-11 + + , 0.976666E-12,-0.236792E-12, 0.213290E-13,-0.607799E-15 + + ,-0.748844E-12, 0.178214E-12,-0.226827E-13, 0.148441E-14 + + ,-0.367972E-16, 0.840330E-12, 0.820025E-11,-0.294797E-11 + + , 0.294669E-12,-0.970294E-14,-0.830636E-12,-0.309273E-11 + + , 0.124169E-11,-0.135879E-12, 0.481683E-14, 0.438223E-12 + + , 0.259162E-12,-0.149284E-12, 0.180170E-13,-0.677948E-15/ +C----------------------------------------------------------------------- + + GPRSGM=0. + CUT = BCUT + IF ( ECMIN .GT. BCUT ) CUT=ECMIN + + ECMAX = E - CMUON(10) * Z**OB3 + IF ( ECMAX .LE. CUT ) RETURN + X = LOG(E/PAMA(5)) + Y = LOG( CUT/(VS*E) ) + + S = 0. + YY = 1. + DO 30 I = 1,2 + XX = 1. + DO 20 J = 1,6 + K = 6*I + J - 6 + S = S + C(K) * XX * YY + XX = XX * X + 20 CONTINUE + YY = YY * Y + 30 CONTINUE + DO 50 I = 3,6 + XX = 1. + DO 40 J = 1,6 + K = 6*I + J - 6 + IF ( Y .LE. 0. ) THEN + S = S + C(K) * XX * YY + ELSE + S = S + C(K+24) * XX * YY + ENDIF + XX = XX * X + 40 CONTINUE + YY = YY * Y + 50 CONTINUE + SS = 0. + YY = 1. + DO 70 I = 1,2 + XX = 1. + DO 60 J = 1,5 + K = 5*I + J + 55 + SS = SS + C(K) * XX * YY + XX = XX * X + 60 CONTINUE + YY = YY * Y + 70 CONTINUE + DO 90 I = 3,5 + XX = 1. + DO 80 J = 1,5 + K = 5*I + J + 55 + IF ( Y .LE. 0. ) THEN + SS = SS + C(K) * XX * YY + ELSE + SS = SS + C(K+15) * XX * YY + ENDIF + XX = XX * X + 80 CONTINUE + YY = YY * Y + 90 CONTINUE + + S = S + Z * SS + IF ( S .LE. 0. ) RETURN +C DE/DX SHOULD BE MONOTON INCREASING AS A +C FUNCTION OF THE CUT +C SOLUTION: LIN. INTERPOLATION FOR 0.2*ECMAX DEBUG INFORMATION WRITTEN TO UNIT ',I3//) + +C----------------------------------------------------------------------- +C CHECK CORRECTNESS OF RUN NUMBER + IF ( NRRUN .GT. 999999 ) THEN + WRITE(MONIOU,*)'RUN NUMBER = ',NRRUN,' EXCEEDS 999999, STOP' + STOP + ENDIF +c--------changed----command up to line labeld 5791 +cxx------------ +cxx call tobuf(runh,0) and tobufc(runh,0) are now in main program + +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c Next block of code is obsolete. +c Now it's used "jcio" routines (C) +C------------------------------------- + +cxxC OUTPUT FILES SHOULD NORMALLY NOT EXIST BEFORE THE RUN STARTS + RQSTAT = 'NEW' +cC OPEN OUTPUT DATA SET FOR RUN +c IBL = INDEX(DSN,' ') +c DSN(IBL:73) = 'DAT000000' +c WRITE(DSN(IBL+3:IBL+8),'(I6)') NRRUN +c DO 274 L = IBL+3,IBL+8 +c IF ( DSN(L:L) .EQ. ' ' ) DSN(L:L) = '0' +c 274 CONTINUE +c IF ( FTABOUT ) THEN +c DSNTAB=DSN +c DSNTAB(IBL+9:IBL+12) = '.tab' +c ENDIF +c IF ( FLONGOUT .AND. LLONGI ) THEN +c IF ( DSN(1:9) .EQ. '/dev/null' ) THEN +c DSNLONG(1:9) = DSN(10:18) +c DSNLONG(10:14) = '.long ' +c ELSE +c DSNLONG = DSN +c DSNLONG(IBL+9:IBL+13) = '.long' +c ENDIF +c ENDIF +c IF ( DSN(1:9) .EQ. '/dev/null' ) THEN +c DSN = '/dev/null' +c RQSTAT = 'UNKNOWN' +c ELSE +cC ON LINUX WITH G77 AN EXISTING FILE CAUSES A CORE DUMP -> FIRST INQUIRE +c INQUIRE(FILE=DSN,EXIST=FEXIST) +c IF ( FEXIST ) THEN +c IBL = INDEX(DSN,' ') +c IF ( IBL .LE. 1 ) IBL = LEN(DSN)+1 +c WRITE(MONIOU,5791) DSN(1:IBL-1) + 5791 FORMAT(/' FILE ',A,' ALREADY EXISTS. RENAME OR REMOVE IT', + * ' OR CHANGE ''DIRECT'' DATA CARD AND TRY AGAIN.') +c STOP 'FATAL PROBLEM' +c ENDIF +c ENDIF +cC OPEN DATASET FOR PARTICLE OUTPUT +c IF ( FPAROUT ) THEN +c OPEN(UNIT=MPATAP,FILE=DSN,STATUS=RQSTAT, +c * FORM='UNFORMATTED',ACCESS='SEQUENTIAL') +c WRITE(MONIOU,579) DSN +c 579 FORMAT(/' PARTICLE OUTPUT TO FILE : ',A79) +c ENDIF +cC OPEN DATASET FOR TABLE OUTPUT +c IF ( FTABOUT ) THEN +c OPEN(UNIT=MTABOUT,FILE=DSNTAB,STATUS=RQSTAT, +c * FORM='UNFORMATTED',ACCESS='SEQUENTIAL') +c WRITE(MONIOU,578) DSNTAB, +c * IEBIN,EBMIN,EBMAX, +c * ITBIN,TBMIN,TBMAX, +c * IDBIN,DBMIN,DBMAX +c 578 FORMAT(/' TABLE OUTPUT TO FILE : ',A79/ +c * ' ENERGY : ',I2,' BINS, RANGE :',1P,2E10.2,' GEV'/ +c * ' TIME : ',I2,' BINS, RANGE :',1P,2E10.2,' NS'/ +c * ' RADIUS : ',I2,' BINS, RANGE :',1P,2E10.2,' CM') +c WRITE(MTABOUT) IEBIN,EBMIN,EBMAX +c WRITE(MTABOUT) ITBIN,TBMIN,TBMAX +c WRITE(MTABOUT) IDBIN,DBMIN,DBMAX +c EBOFF = LOG10(EBMIN) +c EBFAC = 1./(LOG10(EBMAX/EBMIN)/IEBIN) +c TBOFF = LOG10(TBMIN) +c TBFAC = 1./(LOG10(TBMAX/TBMIN)/ITBIN) +c DBOFF = LOG10(DBMIN) +c DBFAC = 1./(LOG10(DBMAX/DBMIN)/IDBIN) +c ENDIF +c IF ( FLONGOUT .AND. LLONGI ) THEN +c OPEN(UNIT=MLONGOUT,FILE=DSNLONG,STATUS=RQSTAT, +c * FORM='FORMATTED',ACCESS='SEQUENTIAL') +c WRITE(MONIOU,5781) DSNLONG +c 5781 FORMAT(' LONGITUDINAL OUTPUT TO FILE: ',A79) +c ENDIF +c +cC WRITE RUNHEADER TO OUTPUT BUFFER +c CALL TOBUF( RUNH,0 ) +c +cC OPEN OUTPUT DATA SET FOR CHERENKOV PHOTONS +c IF ( LCERFI ) THEN +c DSN(IBL:73) = 'CER000000' +c WRITE(DSN(IBL+3:IBL+8),'(I6)') NRRUN +c DO 249 L = IBL+3,IBL+8 +c IF ( DSN(L:L) .EQ. ' ' ) DSN(L:L) = '0' +c 249 CONTINUE +c IF ( DSN(1:9) .EQ. '/dev/null' ) THEN +c DSN = '/dev/null' +c RQSTAT = 'UNKNOWN' +c ELSE +cC ON LINUX WITH G77 AN EXISTING FILE CAUSES A CORE DUMP -> FIRST INQUIRE +c INQUIRE(FILE=DSN,EXIST=FEXIST) +c IF ( FEXIST ) THEN +c IBL = INDEX(DSN,' ') +c IF ( IBL .LE. 1 ) IBL = LEN(DSN)+1 +c WRITE(MONIOU,5791) DSN(1:IBL-1) +c STOP 'FATAL PROBLEM' +c ENDIF +c ENDIF +c OPEN(UNIT=MCETAP,FILE=DSN,STATUS=RQSTAT, +c * FORM='UNFORMATTED',ACCESS='SEQUENTIAL') +c WRITE(MONIOU,580) DSN +c 580 FORMAT(' CHERENKOV OUTPUT TO FILE : ',A79) +c CALL TOBUFC( RUNH,0 ) +c ELSE +c WRITE(MONIOU,580) DSN +c ENDIF +cC RESET DSN +c DSN(IBL:73) = ' ' +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c------changed - command above +c---------change to alpha - remove c*** and command some lines +C OPEN THE EXTERNAL STACK +C BLOCKS OF 32448 BYTES = 4056 REAL*8 = 312 PARTICLES FOR THINNING +C BLOCKS OF 32640 BYTES = 4080 REAL*8 = 340 PARTICLES FOR STANDARD +C FOR MOST FORTRAN COMPILERS ON UNIX-LIKE SYSTEMS (GNU g77, HP, +C IBM RS6000) IT IS NECESSARY TO USE THE NUMBER OF BYTES FOR THE RECL +C PARAMETER. +C FOR DEC UNIX (COMPAQ Tru64) MACHINES WITH f77 COMPILER (UNLESS USING +C THE '-assume bytrecl' COMPILER OPTION) AND SOME OTHER MACHINES THE +C RECL PARAMETER IS THE NUMBER OF (4-BYTE) WORDS. + + CALL RCLCHK(MEXST,4,L) +c*** CALL RCLCHK(MEXST,1,L) + IF ( L .NE. 0 ) THEN + WRITE(MONIOU,*) 'FATAL ERROR:',L, + * ' RECL HANDLING NOT AS EXPECTED' + STOP + ENDIF + OPEN(UNIT=MEXST,STATUS='SCRATCH', +c*** * FORM='UNFORMATTED',ACCESS='DIRECT',RECL=4*MAXSTK) +c------changed to alpha + * FORM='UNFORMATTED',ACCESS='DIRECT',RECL=MAXSTK) +c------changed to alpha +C----------------------------------------------------------------------- +C----------------------------------------------------------------------- +C WRITE DATA SET FOR INFORMATION BANK + IF ( FDBASE ) THEN +C OPEN OUTPUT DATA SET FOR RUN + IBL = INDEX(DSN,' ') +C IF NORMAL OUTPUT DISABLED BUT 'DATBAS T', TRY CURRENT DIRECTORY. + IF ( DSN(1:9) .EQ. '/dev/null' ) IBL = 1 + DSN(IBL:79) = 'DAT000000.dbase' + WRITE(DSN(IBL+3:IBL+8),'(I6)') NRRUN + DO 275 L = IBL+3,IBL+8 + IF ( DSN(L:L) .EQ. ' ' ) DSN(L:L) = '0' + 275 CONTINUE + IF ( DSN(1:9) .EQ. '/dev/null' ) THEN + DSN = '/dev/null' + RQSTAT = 'UNKNOWN' + ELSE +C ON LINUX WITH G77 AN EXISTING FILE CAUSES A CORE DUMP -> FIRST INQUIRE + INQUIRE(FILE=DSN,EXIST=FEXIST) + IF ( FEXIST ) THEN + IBL = INDEX(DSN,' ') + IF ( IBL .LE. 1 ) IBL = LEN(DSN)+1 + WRITE(MONIOU,5791) DSN(1:IBL-1) + STOP 'FATAL PROBLEM' + ENDIF + ENDIF + OPEN(UNIT=MDBASE,FILE=DSN,STATUS=RQSTAT) + WRITE(MONIOU,581) DSN + 581 FORMAT(/' DBASE OUTPUT TO FILE : ',A79) +C RESET DSN + DSN(IBL+9:IBL+14) = ' ' + + LSTDSN(1:3) = 'LST' + LSTDSN(4:9) = DSN(IBL+3:IBL+8) +C RESET DSN TO '/dev/null' AS IT WAS BEFORE. + IF ( IBL .EQ. 1 ) DSN = '/dev/null' + + VERVEN = FLOAT(IVERVN)/1000.D0 + IF ( LLONGI ) THEN + ILONG = 1 + ELSE + ILONG = 0 + ENDIF + ISO = 0 +C SET DPMFLAG (0=HDPM, 1=VENUS, 2=SIBYLL, 3=QGSJET, 4=DPMJET, 5=NEXUS) + IF ( EVTH(76) .EQ. 1. ) THEN + IDPM = 1 + ELSEIF ( EVTH(76) .EQ. 2. ) THEN + IDPM = 2 + ELSEIF ( EVTH(76) .EQ. 3. ) THEN + IDPM = 3 + ELSEIF ( EVTH(76) .EQ. 4. ) THEN + IDPM = 4 + ELSEIF ( EVTH(76) .EQ. 5. ) THEN + IDPM = 5 + ELSE + IDPM = 0 + ENDIF +C INCREMENT DPMFLAG FOR VARIOUS CROSS-SECTIONS +C BY (0=HDPM-SIG, 10=VENUSSIG, 20=SIBYLLSIG, 30=QGSSIG, 40=DPMJETSIG, +C 50=NEXUSSIG) + IF ( EVTH(145) .EQ. 1. ) THEN + IDPM = IDPM + 10 + ELSEIF ( EVTH(145) .EQ. 2. ) THEN + IDPM = IDPM + 50 + ELSEIF ( EVTH(140) .NE. 0. ) THEN + IDPM = IDPM + 20 + ELSEIF ( EVTH(142) .NE. 0. ) THEN + IDPM = IDPM + 30 + ELSEIF ( EVTH(144) .NE. 0. ) THEN + IDPM = IDPM + 40 + ENDIF + MARK = '1' + ILTHIN = 0 + EFRAC = 0.D0 + IF ( FREFRX ) THEN + IFREFRX = 1 + ELSE + IFREFRX = 0 + ENDIF + + WRITE(MDBASE,666) VERNUM,MARK,MVDATE,SNGL(VERVEN), + $ INT(RUNH(3))+20000000, + $ INT(EVTH(80)),INT(EVTH(79)),INT(EVTH(78)), + $ MOD(INT(EVTH(77)),10),INT(RUNH(2)), + $ INT(PRMPAR(1)),LLIMIT,ULIMIT, + $ PSLOPE,INT(RUNH(20)),INT(RUNH(19)),INT(EVTH(76)), + $ INT(EVTH(75)),ISO,IDPM, + $ NFLAIN,NFLDIF,NFLPI0,NFLPIF,NFLCHE,NFRAGM, + $ ILONG,THSTEP,BX, + $ BZ,NOBSLV + 666 FORMAT('#version#',F6.3,A1,'#versiondate#',I9, + $ '#modelversion#',F8.3,'#rundate#',I9,/, + $ '#computer#',I2,'#curved#',I2,'#neutrino#',I2, + $ '#cerenkov#',I2,'#runnumber#',I7,/, + $ '#primary#',I5,'#e_range_l#',1P,E14.7,'#e_range_u#',E14.7,/, + $ '#slope#',E15.7,0P,'#nkg#',I2,'#egs#',I2,/, + $ '#model#',I2,'#gheisha#',I2,'#isobar#',I2, + $ '#model+crossect#',I3,/, + $ '#hadflag1#',I2,'#hadflag2#',I2,'#hadflag3#',I2, + $ '#hadflag4#',I2,'#hadflag5#',I2,'#hadflag6#',I2,/, + $ '#longi#',I2,'#longistep#',1P,E14.7,'#magnetx#',E15.7,/, + $ '#magnetz#',E15.7,0P,'#nobslev#',I3) + + WRITE(MDBASE,669) OBSLEV(1),OBSLEV(2),OBSLEV(3), + $ OBSLEV(4),OBSLEV(5),OBSLEV(6), + $ OBSLEV(7),OBSLEV(8),OBSLEV(9), + $ OBSLEV(10),ELCUT(1),ELCUT(2), + $ ELCUT(3), ELCUT(4),EVTH(81), + $ EVTH(82),EVTH(83),EVTH(84), + $ FIXHEI,N1STTR,THICK0, + $ STEPFC,ARRANG,INT(EVTH(94)),NSEQ, + $ ISEED(1,1),ISEED(2,1),ISEED(3,1), + $ ISEED(1,2),ISEED(2,2),ISEED(3,2), + $ ISEED(1,3),ISEED(2,3),ISEED(3,3), + $ 0,DSN, + $ LSTDSN,' ARC000.01',' ARC000.01', + $ NSHOW,HOST,USER + $ ,IATMOX,IFREFRX + $ ,VUECON(1)*(180.D0/PI),VUECON(2)*(180.D0/PI) + 669 FORMAT(1P,'#obslev1#',E15.7,'#obslev2#',E15.7, + $ '#obslev3#',E15.7,/, + $ '#obslev4#',E15.7,'#obslev5#',E15.7,'#obslev6#',E15.7,/, + $ '#obslev7#',E15.7,'#obslev8#',E15.7,'#obslev9#',E15.7,/, + $ '#obslev10#',E15.7,'#hcut#',E14.7,'#mcut#',E14.7,/, + $ '#ecut#',E14.7,'#gcut#',E14.7,'#theta_l#',E14.7,/, + $ '#theta_u#',E14.7,'#phi_l#',E15.7,'#phi_u#',E15.7,/, + $ '#fixhei#',E14.7,'#n1sttr#',0P,I3,1P,'#fixchi#',E14.7,/, + $ '#stepfc#',E14.7,'#arrang#',E15.7,0P,'#muaddi#',I2, + $ '#nseq#',I2,/, + $ '#seq1seed1#',I9,'#seq1seed2#',I9,'#seq1seed3#',I9,/, + $ '#seq2seed1#',I9,'#seq2seed2#',I9,'#seq2seed3#',I9,/, + $ '#seq3seed1#',I9,'#seq3seed2#',I9,'#seq3seed3#',I9,/, + $ '#size#',I10,/,'#dsn_events#',A59,/, + $ '#dsn_prtout# ',A9,'#tape_name#',A10,'#backup#',A10,/, + $ '#howmanyshowers#',I10,'#host#',A20,'#user#',A20 + $ ,/,'#atmosphere#',I3,'#refract#',I2 + $ ,/,1P,'#viewcon_l#',E14.7,'#viewcon_u#',E14.7,0P + $ ) + WRITE(MDBASE,670) ILTHIN,EFRAC + 670 FORMAT('#thinning#',I2,'#thinnlev_had#',1P,E14.7,0P) + +C RESET DSN + DSN(IBL:IBL+14) = ' ' +C THE MDBASE FILE IS CLOSED IN AAMAIN + ENDIF + + WRITE(MONIOU,*) 'NUMBER OF SHOWERS TO GENERATE =',NSHOW + WRITE(MONIOU,*) + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE ISTACK + +C----------------------------------------------------------------------- +C I(NITIALIZE) STACK +C +C PREPARES STACK AND EXTERNAL DISK FILE +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ETHMAP. + COMMON /ETHMAP/ ECTMAP,ELEFT + DOUBLE PRECISION ECTMAP,ELEFT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKF. + COMMON /STACKF/ STACK,MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT, + * NTO,NFROM + INTEGER MAXSTK + PARAMETER (MAXSTK = 16*256*2) + DOUBLE PRECISION STACK(MAXSTK) + INTEGER MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM +*KEND. + + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'ISTACK:' + + NTO = 0 + NFROM = 0 + NOUREC = 0 + NSHIFT = 0 + MSTACKP = 0 + ELEFT = 0.D0 + ICOUNT = 1 + RETURN + END +*CMZ : 31/01/2001 10.50.55 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE KDECAY( IGO ) + +C----------------------------------------------------------------------- +C K(AON) DECAY +C +C KAON DECAYS WITH FULL KINEMATIC, ENERGY AND MOMENTA CONSERVED +C ALL SECONDARY PARTICLES ARE WRITTEN TO STACK +C THIS SUBROUTINE IS CALLED FROM NUCINT. +C ARGUMENT: (TO CHARACTERIZE THE DECAYING KAON) +C IGO = 1 K+ +C = 2 K- +C = 3 K0S +C = 4 K0L +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DECAY. + COMMON /DECAY/ GAM345,COS345,PHI345 + DOUBLE PRECISION GAM345(3),COS345(3),PHI345(3) +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,KAONS. + COMMON /KAONS/ CKA + DOUBLE PRECISION CKA(80) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION BETA3,COSTCM,COSTH3,GAMMA3,GAMMA4,PHI3,RA, + * WORK1,WORK2 + INTEGER I,ICHARG,IGO,M3 + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' KDECAY: CURPAR=',1P,9E10.3) + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C DECAY OF K(+,-) (6 MODES) + + IF ( IGO .LE. 2 ) THEN + 21 CALL RMMAR( RD,1,1 ) + RA = RD(1) + +C DECAY K(+,-) ----> MU(+,-) + NEUTRINO + IF ( RA .LE. CKA(23) ) THEN +C NEUTRINO IS DROPPED + WORK1 = CKA(28) * GAMMA + WORK2 = CKA(29) * BETA * WORK1 + CALL RMMAR( RD,2,1 ) + COSTCM = RD(1) * 2.D0 - 1.D0 +C MU(+,-) + GAMMA3 = WORK1 + COSTCM * WORK2 + BETA3 = SQRT( 1.D0 - 1.D0 / GAMMA3**2 ) + COSTH3 = MIN( 1.D0, (GAMMA * GAMMA3 - CKA(28)) + * / (BETA * GAMMA * BETA3 * GAMMA3) ) + PHI3 = RD(2) * PI2 + CALL ADDANG( COSTHE,PHI, COSTH3,PHI3, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = 4 + IGO + SECPAR(2) = GAMMA3 +C DIRECTION OF PION IN THE MUON CM SYSTEM (= DIRECTION OF POLARIZATION) +C SEE: G. BARR ET AL., PHYS. REV. D39 (1989) 3532, EQ. 5 +C POLART IS COS OF ANGLE BETWEEN KAON AND LABORATORY IN THE MU CM +C POLARF IS ANGLE PHI AROUND THE LAB DIRECTION IN THE MU CM +C POLART, POLARF WITH RESPECT TO THE MU DIRECTION IN THE LAB SYSTEM + POLART = ( 2.D0*PAMA(11)*GAMMA*C(6) / (PAMA(5)*GAMMA3) + * - C(6) - 1.D0 ) / ( BETA3 * (1.D0-C(6)) ) + POLARF = PHI3 - PI +C PION DIRECTION IS DIRECTION OF POLARIZATION FOR K+, OPPOSITE FOR K- + IF ( ITYPE .EQ. 12 ) THEN + POLART = -POLART + POLARF = POLARF + PI + ENDIF +C GET THE POLARIZATION DIRECTION IN THE MU CM RELATIVE TO THE CORSIKA +C COORDINATE SYSTEM + CALL ADDANG( SECPAR(3),SECPAR(4), POLART,POLARF, + * POLART,POLARF ) + SECPAR(11) = POLART + SECPAR(12) = POLARF + CALL TSTACK + SECPAR(11) = 0.D0 + SECPAR(12) = 0.D0 + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + GAMMA3 * PAMA(5) + ENDIF + ENDIF + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + GAMMA4 = PAMA(11) * GAMMA - PAMA(5) * GAMMA3 + DLONG(LHEIGH,8) = DLONG(LHEIGH,8) + GAMMA4 + ENDIF + +C DECAY K(+,-) ----> PI(+,-) + PI(0) + ELSEIF ( RA .LE. CKA(47) ) THEN + M3 = ITYPE - 3 + CALL DECAY1( ITYPE, M3, 7 ) + +C DECAY K(+,-) ----> PI(+,-) + PI(+,-) + PI(-,+) + ELSEIF ( RA. LE. CKA(48) ) THEN + CALL DECAY6( PAMA(11), PAMA(8),PAMA(8),PAMA(8), + * CKA(51),CKA(52),CKA(53), CKA(54), 1 ) +C PI(+,-) AND PI(+,-) AND THIRD (ODD) PI(-,+) + DO 230 I = 1,3 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + IF ( I .EQ. 3 ) THEN + SECPAR(1) = 10 - IGO + ELSE + SECPAR(1) = 7 + IGO + ENDIF + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I) * PAMA(8) + ENDIF + ENDIF + 230 CONTINUE + +C DECAY K(+,-) ----> PI(0) + E(+,-) + NEUTRINO + ELSEIF ( RA. LE. CKA(49) ) THEN + CALL DECAY6( PAMA(11), PAMA(7),PAMA(2),0.D0, + * CKA(65),CKA(66),0.D0, CKA(67), 4 ) +C PI(0) AND E(+,-) / NEUTRINO IS DROPPED + DO 250 I = 1,2 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + IF ( I .EQ. 1 ) THEN + SECPAR(1) = 7.D0 + ELSE + SECPAR(1) = 1 + IGO + ENDIF + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( I .EQ. 1 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7)+GAM345(1)*PAMA(7) + ELSE + IF ( IGO .EQ. 1 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + * + (GAM345(2)+1.D0) * PAMA(2) + ELSE + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + * + (GAM345(2)-1.D0) * PAMA(2) + ENDIF + ENDIF + ENDIF + ENDIF + 250 CONTINUE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + GAM345(3)=GAMMA*PAMA(11)-GAM345(1)*PAMA(7)-GAM345(2)*PAMA(2) + DLONG(LHEIGH,8) = DLONG(LHEIGH,8) + GAM345(3) + ENDIF + +C DECAY K(+,-) ----> PI(0) + MU(+,-) + NEUTRINO + ELSEIF ( RA. LE. CKA(50) ) THEN + CALL DECAY6( PAMA(11), PAMA(7),PAMA(5),0.D0, + * CKA(68),CKA(69),0.D0, CKA(70), 3 ) +C PI(0) AND MU(+,-) / NEUTRINO IS DROPPED + DO 260 I = 1,2 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(2) = GAM345(I) + IF ( I .EQ. 1 ) THEN + SECPAR(1) = 7.D0 + ELSE + SECPAR(1) = 4 + IGO + IF ( SECPAR(1) .EQ. 6.D0 ) THEN +C INVERT POLARIZATION DIRECTION FOR MU(-) + POLART = -POLART + POLARF = POLARF + PI + ENDIF +C GET THE POLARIZATION DIRECTION IN THE MU CM RELATIVE TO THE CORSIKA +C COORDINATE SYSTEM + CALL ADDANG( SECPAR(3),SECPAR(4), POLART, POLARF, + * POLART,POLARF ) + SECPAR(11) = POLART + SECPAR(12) = POLARF + ENDIF + CALL TSTACK + SECPAR(11) = 0.D0 + SECPAR(12) = 0.D0 + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( I .EQ. 1 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7)+GAM345(2)*PAMA(7) + ELSE + DLONG(LHEIGH,5) = DLONG(LHEIGH,5)+GAM345(2)*PAMA(5) + ENDIF + ENDIF + ENDIF + 260 CONTINUE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + GAM345(3)=GAMMA*PAMA(11)-GAM345(1)*PAMA(7)-GAM345(2)*PAMA(5) + DLONG(LHEIGH,8) = DLONG(LHEIGH,8) + GAM345(3) + ENDIF + +C DECAY K(+,-) ----> PI(0) + PI(0) + PI(+,-) + ELSE + CALL DECAY6( PAMA(11), PAMA(7),PAMA(7),PAMA(8), + * CKA(55),CKA(56),CKA(57), CKA(58), 1 ) +C PI(0)'S AND PI(+,-) + DO 270 I = 1,3 + IF ( I .EQ. 3 ) THEN + SECPAR(1) = 7 + IGO + ELSE + SECPAR(1) = 7.D0 + ENDIF + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + GAMMA4 = GAM345(I) * PAMA(NINT(SECPAR(1))) + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAMMA4 + ENDIF + ENDIF + 270 CONTINUE + + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C DECAY OF K0S (2 MODES) + ELSEIF ( IGO .EQ. 3 ) THEN + + CALL RMMAR( RD,1,1 ) +C DECAY K0S ----> PI(+) + PI(-) + IF ( RD(1) .LE. CKA(24) ) THEN + CALL DECAY1( ITYPE, 8, 9 ) + +C DECAY K0S ----> PI(0) + PI(0) + ELSE + CALL DECAY1( ITYPE, 7, 7 ) + + ENDIF + +C- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C DECAY OF K0L (4 MODES) + ELSEIF ( IGO .EQ. 4 ) THEN + CALL RMMAR( RD,1,1 ) + RA = RD(1) + +C DECAY K0L ----> PI(+,-) + E(-,+) + NEUTRINO + IF ( RA .LE. CKA(27) ) THEN + CALL DECAY6( PAMA(10), PAMA(8),PAMA(2),0.D0, + * CKA(71),CKA(72),0.D0, CKA(73), 4 ) + CALL RMMAR( RD,1,1 ) +C CHARGE ASYMMETRY PREFERS FORMATION OF PI(-) + ICHARG = INT(1.5016 + RD(1)) +C PI(+,-) AND E(-,+) / NEUTRINO IS DROPPED + DO 420 I = 1,2 + SECPAR(1) = 10 - 3*I - (2*I-3)*ICHARG + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( LLONGI ) THEN + IF ( I .EQ. 1 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(1)*PAMA(8) + ELSE + IF ( SECPAR(1) .EQ. 2.D0 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + * + (GAM345(2)+1.D0) * PAMA(2) + ELSE + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + * + (GAM345(2)-1.D0) * PAMA(2) + ENDIF + ENDIF + ENDIF + ENDIF + 420 CONTINUE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + GAM345(3)=GAMMA*PAMA(10)-GAM345(1)*PAMA(8)-GAM345(2)*PAMA(2) + DLONG(LHEIGH,8) = DLONG(LHEIGH,8) + GAM345(3) + ENDIF + +C DECAY K0L ----> PI(+,-) + MU(-,+) + NEUTRINO + ELSEIF ( RA .LE. CKA(26) ) THEN + CALL DECAY6( PAMA(10), PAMA(8),PAMA(5),0.D0, + * CKA(74),CKA(75),0.D0, CKA(76), 3 ) + CALL RMMAR( RD,1,1 ) +C CHARGE ASYMMETRY PREFERS FORMATION OF PI(-) + ICHARG = INT(1.5016 + RD(1)) +C PI(+,-) AND MU(-,+) / NEUTRINO IS DROPPED + DO 430 I = 1,2 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(2) = GAM345(I) + IF ( I .EQ. 1 ) THEN + SECPAR(1) = 7 + ICHARG + ELSEIF ( I .EQ. 2 ) THEN + SECPAR(1) = 7 - ICHARG + IF ( SECPAR(1) .EQ. 6.D0 ) THEN +C INVERT POLARIZATION DIRECTION FOR MU(-) + POLART = -POLART + POLARF = POLARF + PI + ENDIF +C GET THE POLARIZATION DIRECTION IN THE MU CM RELATIVE TO THE CORSIKA +C COORDINATE SYSTEM + CALL ADDANG( SECPAR(3),SECPAR(4), POLART,POLARF, + * POLART,POLARF ) + SECPAR(11) = POLART + SECPAR(12) = POLARF + ENDIF + CALL TSTACK + SECPAR(11) = 0.D0 + SECPAR(12) = 0.D0 + ELSE +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( LLONGI ) THEN + IF ( I .EQ. 1 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(1)*PAMA(8) + ELSE + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + GAM345(2)*PAMA(5) + ENDIF + ENDIF + ENDIF + 430 CONTINUE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + GAM345(3)=GAMMA*PAMA(10)-GAM345(1)*PAMA(8)-GAM345(2)*PAMA(5) + DLONG(LHEIGH,8) = DLONG(LHEIGH,8) + GAM345(3) + ENDIF + +C DECAY K0L ----> PI(0) + PI(0) + PI(0) + ELSEIF ( RA .LE. CKA(25) ) THEN +C SEE: S.V. SOMALWAR ET AL., PHYS.REV.LET. 68(1992)2580 + CALL DECAY6( PAMA(10), PAMA(7),PAMA(7),PAMA(7), + * CKA(59),-.0033D0,CKA(59), CKA(60), 1 ) +C PI(0)'S + SECPAR(1) = 7.D0 + DO 440 I = 1,3 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I) * PAMA(7) + ENDIF + ENDIF + 440 CONTINUE + +C DECAY K0L ----> PI(+) + PI(-) + PI(0) + ELSE + CALL DECAY6( PAMA(10), PAMA(8),PAMA(8),PAMA(7), + * CKA(61),CKA(62),CKA(63), CKA(64), 1 ) +C PI(+) AND PI(-) AND PI(0) + DO 450 I = 1,3 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + IF ( I .EQ. 3 ) THEN + SECPAR(1) = 7.D0 + ELSE + SECPAR(1) = 7 + I + ENDIF + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( I .EQ. 3 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I)*PAMA(7) + ELSE + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I)*PAMA(8) + ENDIF + ENDIF + ENDIF + 450 CONTINUE + + ENDIF + ENDIF + +C KILL CURRENT PARTICLE + IRET1 = 1 + + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 16/05/95 +C======================================================================= + + SUBROUTINE LONGFT(FPARAM,CHI2) + +C----------------------------------------------------------------------- +C LONG(ITUDINAL) F(I)T +C +C THIS ROUTINE PERFORMS A FIT TO THE LONGITUDINAL DISTRIBUTION OF AN +C AIR SHOWER. DUE TO THE LARGE PARTICLE NUMBERS IN AN AIR SHOWER THE +C STATISTICAL ERRORS ON THE PARTICLE NUMBER AT A GIVEN LEVEL ARE +C MINUTE. THIS LEADS TO RATHER LARGE CHI**2/DOF FOR THE FITS EVEN IF +C THE FITTED FUNCTION MATCHES THE POINTS BETTER THAN SAY 1%. +C KEEP IN MIND THAT FITTING IS A DIFFICULT TASK AND THE RESULTS DO NOT +C NECESSARILY REPRESENT THE ABOLUTE MINIMUM OR EVEN A GOOD +C APPROXIMATION. +C +C IN A FIRST STEP A 4 PARAMETER FIT IS TRIED BASED ON M. HILLAS' CURVE +C WITH WIDTH PARAMETER LAMBDA : +C N(T) = NMAX * ((T-T0)/(TMAX-T0))**((TMAX-T0)/P) * EXP((TMAX-T)/P) +C WITH: +C NMAX = PARTICLE NUMBER AT TMAX +C T = DEPTH IN G/CM**2 +C T0 = STARTING DEPTH OF SHOWER +C TMAX = DEPTH OF SHOWER MAXIMUM +C P = WIDTH PARAMETER LAMBDA +C +C IN A SECOND STEP WE REFINE THE FIT WITH THE START VALUES FROM THE 4 +C PARAMETER FIT AND USE A 6 PARAMETER FIT BASED ON M. HILLAS' CURVE +C REPLACING HIS WIDTH PARAMETER LAMBDA BY A POLYNOMIAL OF 3. DEGREE. +C N(T) = NMAX * ((T-T0)/(TMAX-T0))**((TMAX-T0)/(P1+P2*T+P3*T**2)) +C * EXP((TMAX-T)/(P1+P2*T+P3*T**2)) +C WITH: +C NMAX = PARTICLE NUMBER AT TMAX +C T = DEPTH IN G/CM**2 +C T0 = STARTING DEPTH OF SHOWER +C TMAX = DEPTH OF SHOWER MAXIMUM +C P1 .. P3 = PARAMETERS OF A POLYNOMIAL DESCRIBING THE WIDTH +C +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C ARGUMENTS: +C FPARAM = ARRAY WITH THE FINAL FITTED PARAMETERSTHE 6 PARAMETER +C CHI2 = CHI SQUARED +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CURVE. + COMMON /CURVE/ CHAPAR,DEP,ERR,NSTP + DOUBLE PRECISION CHAPAR(1200),DEP(1200),ERR(1200) + INTEGER NSTP +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER NPAR + PARAMETER (NPAR=6) + DOUBLE PRECISION F(NPAR),FPARAM(NPAR),CHI2,CHISQ,CHISQ1 + DOUBLE PRECISION P(NPAR+1,NPAR),Y(NPAR+1),EPS + DOUBLE PRECISION P1(NPAR-1,NPAR-2),FPARAM1(NPAR-2),CHI21 + DOUBLE PRECISION HALFW,T0,TMAX,NMAX,FAC + INTEGER I,II,ILOWER,IMAX,IUPPER,J,JJ,K,ITER,IFLAG + SAVE + EXTERNAL CHISQ,CHISQ1 +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'LONGFT:' + +C FIND GOOD START VALUES FOR XMAX AND FMAX + NMAX = 0.D0 + TMAX = 400.D0 + DO I = 1,NSTP + ERR(I) = MAX( 1.D0, SQRT(CHAPAR(I)) ) + IF ( CHAPAR(I) .GT. NMAX ) THEN + NMAX = CHAPAR(I) + TMAX = DEP(I) + IMAX = I + ENDIF + ENDDO +C STARTVALUE FOR X0 IS ABOUT WHERE MORE THAN 1 PARTICLE SHOWS UP + II = 1 + DO I = 1,NSTP + IF ( CHAPAR(I) .GT. 1.D0 ) GOTO 1 + II = I + ENDDO +C OBVIOUSLY WE HAVE NO PARTICLES IN THE DISTRIBUTION + WRITE(MONIOU,*) + * 'LONGFT: NO PARTICLES IN LONGITUDINAL DISTRIBUTION' + WRITE (MONIOU,*)' NO FIT POSSIBLE' + DO I = 1,NPAR + FPARAM(I) = 0.D0 + ENDDO + CHI2 = 0.D0 + RETURN + + 1 CONTINUE + IF ( II .GT. 1 ) THEN + T0 = 0.5 * ( DEP(II) + DEP(II-1) ) + ELSE + T0 = DEP(II) + ENDIF +C FIND A START VALUE FOR THE WIDTH PARAMETER AT HALF OF MAXIMUM + IF ( NSTP .GT. 10 ) THEN + DO I = 1,IMAX + IF ( CHAPAR(I) .GT. 0.5D0*NMAX ) THEN + IUPPER = I + GOTO 31 + ENDIF + ENDDO + IUPPER = IMAX - 1 + 31 CONTINUE + DO I = IMAX, NSTP + IF ( CHAPAR(I) .LT. 0.5D0*NMAX ) THEN + ILOWER = I + GOTO 32 + ENDIF + ENDDO + ILOWER = NSTP - 1 + 32 CONTINUE + HALFW = (DEP(ILOWER) - DEP(IUPPER)) /3.9D0 + ELSE +C IF WE HAVE ONLY A FEW POINTS, TAKE AN AVERAGE VALUE FOR THE WIDTH + HALFW = 70.D0 + ENDIF + +C----------------------------------------------------------------------- +C FIT IS PERFORMED WITH THE SUBROUT. AMOEBA FROM: +C NUMERICAL RECIPES, W.H. PRESS ET AL., +C CAMBRIDGE UNIVERSITY PRESS, 1992 ISBN 0 521 43064 X +C SEE THERE HOW IT HAS TO BE USED. + +C WE FIRST FIT THE GAISSER-HILLAS CURVE WITH SIMPLE WIDTH PARAMETER +C THERFORE THE NUMBER OF FREE PARAMETERS IS SET TO 4 = NPAR-2 +C CREATE A SET OF NPAR-1 STARTING VERTICES +C HERE IS THE FIRST ONE + P1(1,1) = NMAX + P1(1,2) = T0 + P1(1,3) = TMAX + P1(1,4) = HALFW + IF (DEBUG) WRITE(MDEBUG,*) 'LONGFT: START VALS=',(P1(1,I),I=1,4) + +C LOOP OVER FITTING ROUTINE (2 TIMES 3 FITS WITH VARYING PRECISION) + DO J = 1,2 + DO JJ = 1,3 +C START WITH CRUDE PRECISION AND IMPROVE STEP BY STEP +C AFTER THREE STEPS ENLARGE AGAIN + EPS = 10.D0**(-3.D0-JJ*0.5D0) + FAC = 1.D0 + 2.D0**(2.1D0*(1.D0-JJ)) +C GO AS WELL IN DIFFERENT DIRECTIONS + IF ( J .EQ. 2 ) FAC = 1.D0/FAC +C GET OTHER NPAR-2 STARTING VERTICES FROM THE STARTING POINT BY +C VARIATION OF ONLY ONE OF THE COORDINATE VALUES + DO I = 2,NPAR-1 + DO K = 1,NPAR-2 + P1(I,K) = P1(1,K) + ENDDO + IF ( P1(I,I-1) .EQ. 0.D0 ) THEN + P1(I,I-1) = 1.D0 + ELSE + P1(I,I-1) = P1(I,I-1) * FAC + ENDIF + ENDDO + IF (DEBUG) WRITE(MDEBUG,*) 'LONGFT: TRIAL1,FAC,EPS ', + * J,FAC,EPS +C CALCULATE FUNCTION VALUES AT THE START VERTICES + DO I = 1,NPAR-1 + DO K = 1,NPAR-2 + F(K) = P1(I,K) + ENDDO + Y(I) = CHISQ1(F) + ENDDO +C PERFORM A FIT + CALL AMOEBA(P1,Y,NPAR-1,NPAR-2,NPAR-2,EPS,CHISQ1,ITER,IFLAG) + IF ( DEBUG ) THEN + WRITE(MDEBUG,*) 'LONGFT: ITER1/IFLAG=',ITER,IFLAG + WRITE(MDEBUG,*) 'LONGFT: PARAMETERS1=',(SNGL(P1(1,K)),K=1,4) + WRITE(MDEBUG,*) 'LONGFT: CHISQ2 =',Y(1) + ENDIF + +C STORE CHI**2 AT FIRST TRIAL OR AT IMPROVED RESULT + IF ( J .EQ. 1 .OR. Y(1) .LT. CHI2 ) THEN + DO 8 I=1,NPAR-2 + FPARAM1(I) = P1(1,I) + 8 CONTINUE + CHI21 = Y(1) + ENDIF +C END OF LOOPS OVER THE FITTING ROUTINE + ENDDO + ENDDO + IF (DEBUG) WRITE(MDEBUG,*) 'LONGFIT: INTERMEDIATE PARAMETERS ARE', + * (SNGL(FPARAM1(I)),I=1,4),CHI21 +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C CREATE A SET OF NPAR+1 STARTING VERTICES +C HERE IS THE FIRST ONE (THE FIRST FOUR PARAMETERS REMAIN UNCHANGED) +C EXPERIENCE SHOWS, THAT THE FIFTH PARAMETER IS USUALLY NEGATIVE + P(1,1) = FPARAM1(1) + P(1,2) = FPARAM1(2) + P(1,3) = FPARAM1(3) + P(1,4) = FPARAM1(4) +** P(1,5) = -0.01D0 ! GIVES SOMETIMES EXTREMELY BAD FITS (OCT. 00 DH) + P(1,5) = 0.D0 + P(1,6) = 0.D0 + +C LOOP OVER THE FITTING ROUTINE (2 TIMES 5 FITS WITH VARYING PRECISION) + DO J = 1,2 + DO JJ = 1,5 +C START WITH CRUDE PRECISION AND IMPROVE STEP BY STEP +C AFTER FIVE STEPS ENLARGE AGAIN + EPS = 10.D0**(-3.D0-JJ*0.5D0) + FAC = 1.D0 + 2.D0**(2.1D0*(1.D0-JJ)) +C GO AS WELL IN DIFFERENT DIRECTIONS + IF ( J .EQ. 2 ) FAC = 1.D0/FAC +C GET OTHER NPAR STARTING VERTICES FROM THE STARTING POINT BY VARIATION +C OF ONLY ONE OF THE COORDINATE VALUES + DO I = 2,NPAR+1 + DO K = 1,NPAR + P(I,K) = P(1,K) + ENDDO + IF ( P(I,I-1) .EQ. 0.D0 ) THEN + P(I,I-1) = 1.D0 + ELSE + P(I,I-1) = P(I,I-1) * FAC + ENDIF + ENDDO + IF (DEBUG) WRITE(MDEBUG,*) 'LONGFT: TRIAL,FAC,EPS ',J, + * SNGL(FAC),SNGL(EPS) +C CALCULATE FUNCTION VALUES AT THE START VERTICES + DO I = 1,NPAR+1 + DO K = 1,NPAR + F(K) = P(I,K) + ENDDO + Y(I) = CHISQ(F) + ENDDO +C PERFORM A FIT + CALL AMOEBA(P,Y,NPAR+1,NPAR,NPAR,EPS,CHISQ,ITER,IFLAG) + IF ( DEBUG ) THEN + WRITE(MDEBUG,*) 'LONGFT: ITER/IFLAG=',ITER,IFLAG + WRITE(MDEBUG,*) 'LONGFT: PARAMETERS=',(SNGL(P(1,K)),K=1,6) + WRITE(MDEBUG,*) 'LONGFT: CHISQ =',SNGL(Y(1)) + ENDIF +C STORE VALUES AT FIRST TRIAL OR AT IMPROVED RESULT + IF ( J .EQ. 1 .OR. Y(1) .LT. CHI2 ) THEN + DO I = 1,NPAR + FPARAM(I) = P(1,I) + ENDDO + CHI2 = Y(1) + ENDIF +C END OF LOOPS OVER THE FITTING ROUTINE + ENDDO + ENDDO + + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE LOWUP(CHAR) + +C----------------------------------------------------------------------- +C (CONVERTS) LOW(ER CASE CHARACTER TO) UP(PER CASE CHARACTER) +C +C THIS SUBROUTINE IS CALLED FROM DATAC. +C ARGUMENT: +C CHAR = CHARACTER TO BE CONVERTED +C +C REDESIGN : K. BERNLOEHR MPIK HEIDELBERG 1998 +C----------------------------------------------------------------------- + + IMPLICIT NONE + + INTEGER IDX + CHARACTER*1 CHAR + CHARACTER LOWCHR*26, UPRCHR*26 + SAVE + DATA UPRCHR/'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/ + DATA LOWCHR/'abcdefghijklmnopqrstuvwxyz'/ +C----------------------------------------------------------------------- + + IDX = INDEX(LOWCHR,CHAR) + IF ( IDX .NE. 0 ) CHAR = UPRCHR(IDX:IDX) + + RETURN + END +*CMZ : 28/02/2002 13.12.11 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 15/10/96 +C======================================================================= + + SUBROUTINE MMOL4(Y,X,VAL,ARG,EPS,IER) + +C----------------------------------------------------------------------- +C M(UON) MOL(IERE SCATTERING) 4 (POINT CONTINUED FRACT. INTERPOLATION) +C +C ROUTINE TAKEN FROM IBM SCIENTIFIC SUBROUT. PACKAGE +C ROUTINE TAKEN FROM GEANT321 (CERN) +C 4 POINT CONTINUED FRACTION INTERPOLATION +C THIS SUBROUTINE IS CALLED FROM MMOLIE. +C ARGUMENTS: +C Y = INTERPOLATED VALUE FOR THE ARGUMENT X +C X = ARGUMENT FOR Y +C VAL = VALUE ARRAY +C ARG = ARGUMENT ARRAY +C EPS = DESIRED ACCURACY +C IER = OUTPUT ERROR PARAMETER +C 0 ACCURACY O.K. +C 1 ACCURACY CAN NOT BE TESTED IN 4TH ORDER INTERPOLATION +C 2 TWO IDENTICAL ELEMENTS IN THE ARGUMENT ARRAY +C----------------------------------------------------------------------- + + IMPLICIT NONE + + REAL ARG(4),AUX,DELT,EPS,H,P1,P2,P3,Q1,Q2,Q3,VAL(4),X,Y,Z + INTEGER I,II,III,IER,J,JEND + SAVE +C----------------------------------------------------------------------- + + IER = 1 + Y = VAL(1) + P2 = 1. + P3 = Y + Q2 = 0. + Q3 = 1. + DO 16 I = 2,4 + II = 0 + P1 = P2 + P2 = P3 + Q1 = Q2 + Q2 = Q3 + Z = Y + JEND = I - 1 + 3 AUX = VAL(I) + DO 10 J = 1,JEND + H = VAL(I) - VAL(J) + IF ( ABS(H) .GT. 1.E-6*ABS(VAL(I)) ) GOTO 9 + IF ( ARG(I) .EQ. ARG(J) ) GOTO 17 + IF ( J .LT. JEND ) GOTO 8 + II = II + 1 + III = I + II + IF ( III .GT. 4 ) GOTO 19 + VAL(I) = VAL(III) + VAL(III) = AUX + AUX = ARG(I) + ARG(I) = ARG(III) + ARG(III) = AUX + GOTO 3 + 8 VAL(I) = 1.E36 + GOTO 10 + 9 VAL(I) = ( ARG(I)-ARG(J) ) / H + 10 CONTINUE + P3 = VAL(I) * P2 + ( X - ARG(I-1) ) * P1 + Q3 = VAL(I) * Q2 + ( X - ARG(I-1) ) * Q1 + IF ( Q3. NE. 0. ) THEN + Y = P3 / Q3 + ELSE + Y = 1.E36 + ENDIF + DELT = ABS(Z-Y) + IF ( DELT .LE. EPS ) GOTO 19 + 16 CONTINUE + RETURN + 17 IER = 2 + RETURN + 19 IER = 0 + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 15/10/96 +C======================================================================= + + SUBROUTINE MMOLIE(OMEGA,DENS) + +C----------------------------------------------------------------------- +C M(UON) MOLIE(RE MULTIPLE SCATTERING) +C +C TREATES MOLIERE MULTIPLE SCATTERING FOR MUONS +C CORRECTED FOR FINITE ANGLE SCATTERING +C THIS SUBROUTINE IS IN ANALOGY WITH SUBROUT. GMOLIE +C (AUTHOR: M.S.DIXIT, NRCC, OTTAWA) OF GEANT321 +C SEE CERN PROGRAM LIBRARY LONG WRITEUP W5013 +C THIS SUBROUTINE IS CALLED FROM UPDATE. +C ARGUMENTS: +C OMEGA = NUMBER OF SCATTERINGS FOR THE STEP +C DENS = LOCAL DENSITY +C +C REDESIGN: D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION TINT(40),B,BINV,CHIC,CNST,DB,DENS,OMEGA,SINTH, + * TEST,TMP + REAL ARG(4),F0I(40),F1I(40),F2I(40), + * THRED(40),VAL(4),F,THRI,XINT + INTEGER IER,JA,L,M,NA,NA3,NA3M,NMAX + SAVE + + DATA THRED/ 0.00, 0.10, 0.20, 0.30 + + , 0.40, 0.50, 0.60, 0.70 + + , 0.80, 0.90, 1.00, 1.10 + + , 1.20, 1.30, 1.40, 1.50 + + , 1.60, 1.70, 1.80, 1.90 + + , 2.00, 2.20, 2.40, 2.60 + + , 2.80, 3.00, 3.20, 3.40 + + , 3.60, 3.80, 4.00, 5.00 + + , 6.00, 7.00, 8.00, 9.00 + + , 10.00,11.00,12.00,13.00 / + DATA F0I/ + + 0.000000E+00 ,0.995016E-02 ,0.392106E-01 ,0.860688E-01 + + ,0.147856E+00 ,0.221199E+00 ,0.302324E+00 ,0.387374E+00 + + ,0.472708E+00 ,0.555142E+00 ,0.632121E+00 ,0.701803E+00 + + ,0.763072E+00 ,0.815480E+00 ,0.859142E+00 ,0.894601E+00 + + ,0.922695E+00 ,0.944424E+00 ,0.960836E+00 ,0.972948E+00 + + ,0.981684E+00 ,0.992093E+00 ,0.996849E+00 ,0.998841E+00 + + ,0.999606E+00 ,0.999877E+00 ,0.999964E+00 ,0.999990E+00 + + ,0.999998E+00 ,0.999999E+00 ,0.100000E+01 ,0.100000E+01 + + ,0.100000E+01 ,0.100000E+01 ,0.100000E+01 ,0.100000E+01 + + ,1.000000E+00 ,1.000000E+00 ,1.000000E+00 ,1.000000E+00 / + DATA F1I/ + + 0.000000E+00, 0.414985E-02, 0.154894E-01, 0.310312E-01 + + , 0.464438E-01, 0.569008E-01, 0.580763E-01, 0.468264E-01 + + , 0.217924E-01,-0.163419E-01,-0.651205E-01,-0.120503E+00 + + ,-0.178272E+00,-0.233580E+00,-0.282442E+00,-0.321901E+00 + + ,-0.350115E+00,-0.366534E+00,-0.371831E+00,-0.367378E+00 + + ,-0.354994E+00,-0.314803E+00,-0.266539E+00,-0.220551E+00 + + ,-0.181546E+00,-0.150427E+00,-0.126404E+00,-0.107830E+00 + + ,-0.933106E-01,-0.817375E-01,-0.723389E-01,-0.436650E-01 + + ,-0.294700E-01,-0.212940E-01,-0.161406E-01,-0.126604E-01 + + ,-0.102042E-01,-0.840465E-02,-0.704261E-02,-0.598886E-02/ + DATA F2I/ + + 0.000000 , 0.121500E-01, 0.454999E-01, 0.913000E-01 + + , 0.137300E+00, 0.171400E+00, 0.183900E+00, 0.170300E+00 + + , 0.132200E+00, 0.763000E-01, 0.126500E-01,-0.473500E-01 + + ,-0.936000E-01,-0.119750E+00,-0.123450E+00,-0.106300E+00 + + ,-0.732800E-01,-0.312400E-01, 0.128450E-01, 0.528800E-01 + + , 0.844100E-01, 0.114710E+00, 0.106200E+00, 0.765830E-01 + + , 0.435800E-01, 0.173950E-01, 0.695001E-03,-0.809500E-02 + + ,-0.117355E-01,-0.125449E-01,-0.120280E-01,-0.686530E-02 + + ,-0.385275E-02,-0.231115E-02,-0.147056E-02,-0.982480E-03 + + ,-0.682440E-03,-0.489715E-03,-0.361190E-03,-0.272582E-03/ +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'MMOLIE: OMEGA=',SNGL(OMEGA), + * ' DENS=',SNGL(DENS) + +C COMPUTE VSCAT ANGLE FROM MOLIERE DISTRIBUTION + VSCAT = 0.D0 + IF ( OMEGA .LE. ENEPER ) RETURN + CNST = LOG(OMEGA) + B = 5.D0 + DO 10 L = 1,10 + IF ( ABS(B) .LT. 1.D-10 ) THEN + B = 1.D-10 + ENDIF + DB = - ((B - LOG(ABS(B)) - CNST)/(1.D0 - 1.D0/B)) + B = B + DB + IF ( ABS(DB) .LE. 0.0001D0 ) GOTO 20 + 10 CONTINUE + RETURN + 20 CONTINUE + IF ( B .LE. 0.D0 ) RETURN +C CHC IS DEFINED DIFFERENTLY FROM GEANT + CHIC = CHC*SQRT(CHI)/(PAMA(5)*GAMMA*BETA**2) + BINV = 1.D0/B + TINT(1) = 0.D0 + DO 30 JA = 2,4 + TINT(JA) = F0I(JA) + ( F1I(JA) + F2I(JA)*BINV ) * BINV + 30 CONTINUE + NMAX = 4 + 40 CONTINUE + CALL RMMAR(RD,2,1) + XINT = RD(2) + DO 50 NA = 3,40 + IF ( NA .GT. NMAX ) THEN + TINT(NA) = F0I(NA) + ( F1I(NA) + F2I(NA)*BINV ) * BINV + NMAX = NA + ENDIF + IF ( XINT .LE. TINT(NA-1) ) GOTO 60 + 50 CONTINUE + IF ( XINT .LE. TINT(40) ) THEN + NA = 40 + GOTO 60 + ELSE + TMP = 1.D0 - ( 1.D0 - B*(1.D0-XINT) )**5 + IF ( TMP .LE. 0.D0 ) GOTO 40 + THRI = 5.D0 / TMP + GOTO 80 + ENDIF + 60 CONTINUE + NA = MAX(NA-1,3) + NA3 = NA-3 + DO 70 M = 1,4 + NA3M = NA3 + M + ARG(M) = TINT(NA3M) + VAL(M) = THRED(NA3M)**2 + 70 CONTINUE + F = THRED(NA) * .02D0 + CALL MMOL4(THRI,XINT,VAL,ARG,F,IER) + 80 CONTINUE + VSCAT = CHIC * SQRT( ABS(B*THRI) ) + IF ( VSCAT .GT. PI ) GOTO 40 + SINTH = SIN(VSCAT) + TEST = VSCAT * (RD(1))**2 + IF ( TEST .GT. SINTH ) GOTO 40 + + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 15/10/96 +C======================================================================= + + SUBROUTINE MPOISS(AMEAN,NPRAN) + +C----------------------------------------------------------------------- +C M(UON COULOMB SCATTERING) POISS(ON DISTRIBUTION) +C +C GENERATES A RANDOM NUMBER POISSON DISTRIBUTED WITH MEAN VALUE AMEAN. +C THIS SUBROUTINE IS IN ANALOGY WITH SUBROUT. GPOISS. +C (AUTHOR: L. URBAN) OF GEANT321 +C SEE CERN PROGRAM LIBRARY LONG WRITEUP W5013. +C THIS SUBROUTINE IS CALLED FROM MUCOUL. +C ARGUMENTS: +C AMEAN = MEAN VALUE OF RANDOM NUMBER +C NPRAN = RANDOM NUMBER POISSON DISTRIBUTED +C +C REDESIGN: D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AMEAN,AN,HMXINT,P,PLIM,RR,S,X + INTEGER NPRAN + SAVE + DATA PLIM/16.D0/,HMXINT/2.D9/ +C----------------------------------------------------------------------- + +C PROTECTION AGAINST NEGATIVE MEAN VALUES + AN = 0.D0 + IF ( AMEAN .GT. 0.D0 ) THEN + IF ( AMEAN .LE. PLIM ) THEN + CALL RMMAR(RD,1,1) + P = EXP(-AMEAN) + S = P + IF ( RD(1) .LE. S ) GOTO 20 + 10 AN = AN + 1.D0 + P = P * AMEAN / AN + S = S + P + IF ( S .LT. RD(1) .AND. P .GT. 1.D-30 ) GOTO 10 + ELSE + CALL RMMAR(RD,2,1) + RR = SQRT( (-2.D0)*LOG(RD(1)) ) + X = RR * COS( PI2 * RD(2) ) + AN = MIN( MAX( AMEAN+X*SQRT(AMEAN), 0.D0 ), HMXINT ) + ENDIF + ENDIF + 20 NPRAN = AN + + RETURN + END +*CMZ : 28/02/2002 13.12.11 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 25/09/96 +C======================================================================= + + SUBROUTINE MUBREM + +C----------------------------------------------------------------------- +C MU(ON) BREM(SSTRAHLUNG) +C +C TREATES MUON BREMSSTRAHLUNG (WITHOUT POLARISATION EFFECTS) +C IN ANALOGY WITH SUBROUT. GBREMM FROM GEANT WRITTEN BY L. URBAN +C EXPLANATIONS SEE CERN PROGRM LIBRARY LONG WRITEUP W5013 +C THIS SUBROUTINE IS CALLED FROM MUTRAC. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ALFA1,BETA1,COSTH3,CREJ,D,F1, + * EKIN,EMUON,PHI3,SCREJ,SINTH3,THETA3,U,UMAX, + * V,VC,VM,V1,W1,Z,THICK + INTEGER I + SAVE + EXTERNAL THICK + DATA ALFA1/0.625D0/ +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' MUBREM: CURPAR=',1P,9E10.3) + +C COPY VERTEX COORDINATES TO SECPAR + DO 11 I = 5,8 + SECPAR(I) = CURPAR(I) + 11 CONTINUE + SECPAR( 9) = GEN + SECPAR(14) = CURPAR(14) + SECPAR(15) = CURPAR(15) + SECPAR(16) = CURPAR(16) + IF ( LLONGI ) LHEIGH = INT(THICK(H)*THSTPI + 1.D0) + +C TOTAL AND KINETIC ENERGY OF MUON + EMUON = PAMA(5) * GAMMA + EKIN = EMUON - PAMA(5) + IF ( EKIN .LE. BCUT ) THEN +C MUON ENERGY IS TOO LOW TO PRODUCE BREMSSTRAHLUNG + SECPAR(2) = CURPAR(2) + GOTO 900 + ENDIF + VC = BCUT/EMUON + VM = 1.D0 - CMUON(6+LT)/EMUON + IF ( VM .LE. 0.D0 ) THEN +C MAXIMUM OF BREMSSTRAHLUNG SPECTRUM IS NEGATIVE, NO BREMSSTRAHLUNG + SECPAR(2) = CURPAR(2) + GOTO 900 + ENDIF + CREJ = CMUON(3+LT)/EMUON + + 50 CALL RMMAR(RD,2,1) + V = VC*(VM/VC)**RD(1) + V1 = 1.D0 - V +C COMPUTE REJECTION FUNCTION + F1 = CMUON(LT) - LOG(1.D0 + CREJ*V/V1) + SCREJ = (V1 + 0.75D0*V*V)*F1/CMUON(LT) + IF ( RD(2) .GT. SCREJ ) GOTO 50 + +C PHOTON ENERGY + SECPAR(2) = EMUON * V + +C RADIATED GAMMA BELOW CUT? + IF ( SECPAR(2) .LE. ELCUT(4) ) THEN + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + SECPAR(2) + ENDIF +C REDUCE ENERGY OF MUON + GOTO 800 + ENDIF + +C SET MATERIAL CONSTANTS CMUON(.) ACCORDING TO +C TARGET INDEX LT (1=N, 2=O, 3=AR) WHICH HAS BEEN SET IN BOX2 + IF ( LT .EQ. 1 ) THEN + Z = 7.D0 + ELSEIF ( LT .EQ. 2 ) THEN + Z = 8.D0 + ELSE + Z = 18.D0 + ENDIF + +C GENERATE EMITTED PHOTON ANGLES WITH RESPECT TO MUON DIRECTION +C PHI IS GENERATED ISOTROPICALLY AND THETA IS ASSIGNED A UNIVERSAL +C ANGULAR DISTRIBUTION WITH D=D(Z,E,V) +C THIS FUNCTION APPROXIMATES THE REAL DISTRIBUTION FUNCTION WHICH CAN +C BE FOUND IN: YUNG-SU TSAI, REV. MOD. PHYS. 46(1974)815 +C +ERRATUM: REV. MOD. PHYS. 49(1977)421 + D = 0.13D0 *(0.8D0 + 1.3D0/Z) * (100.D0 + 1.D0/EMUON) * (1.D0 + V) + W1 = 9.D0 / (9.D0 + D) + UMAX = EMUON * PI / PAMA(5) +10 CALL RMMAR(RD,3,1) + IF ( RD(1) .LE. W1 ) THEN + BETA1 = ALFA1 + ELSE + BETA1 = 3.D0 * ALFA1 + ENDIF + U = -(( LOG(RD(2) * RD(3)) ) / BETA1) +C CUT: THETA SHOULD BE .LE. PI ! +C THIS CONDITION DEPENDS ON E IN THE CASE OF D=CONST TOO! + IF ( U .GE. UMAX ) GOTO 10 + + THETA3 = U * PAMA(ITYPE) / EMUON + COSTH3 = COS( THETA3 ) + SINTH3 = SIN( THETA3 ) + CALL RMMAR(RD,1,1) + + PHI3 = PI2 * RD(1) + CALL ADDANG( COSTHE,PHI, COSTH3,PHI3, SECPAR(3),SECPAR(4)) + IF ( SECPAR(3) .GT. C(29) ) THEN +C WRITE BREMSSTRAHLUNG PHOTON TO STACK + SECPAR( 1) = 1.D0 + SECPAR(10) = H + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + SECPAR(2) + ENDIF + + ENDIF + +C REDUCE ENERGY OF MUON + 800 CONTINUE + EMUON = EMUON * V1 + SECPAR(2) = EMUON/PAMA(5) + + 900 CONTINUE +C WRITE MUON TO STACK + SECPAR( 1) = CURPAR(1) + SECPAR( 3) = CURPAR(3) + SECPAR( 4) = CURPAR(4) + SECPAR(10) = ALEVEL + CALL TSTACK + + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 15/10/96 +C======================================================================= + + SUBROUTINE MUCOUL(OMEGA,DENS) + +C----------------------------------------------------------------------- +C MU(ON) COUL(OMB SCATTERING OF SINGLE SCATTERING EVENTS) +C +C TREATES SINGLE COULOMB SCATTERING FOR MUONS IN SMALL ANGLE +C APPROXIMATION. +C THIS SUBROUTINE IS IN ANALOGY WITH SUBROUT. GMCOUL +C (AUTHOR: G. LYNCH, LBL) OF GEANT321 +C SEE CERN PROGRAM LIBRARY LONG WRITEUP W5013 +C THIS SUBROUTINE IS CALLED FROM UPDATE. +C ARGUMENTS: +C OMEGA = NUMBER OF SCATTERINGS FOR THE STEP +C DENS = LOCAL DENSITY +C +C REDESIGN: D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION DENS,OMCF,OMEGA,OMEGA0,PHIS,SUMX,SUMY, + * THET,THMIN2 + INTEGER I,NSCMX,NSCA + SAVE + DATA OMCF/1.167D0/,NSCMX/50/ +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'MUCOUL: OMEGA=',SNGL(OMEGA), + * ' DENS=',SNGL(DENS) + +C COMPUTE NUMBER OF SCATTERS (POISSON DISTR. WITH MEAN OMEGA0) + OMEGA0 = OMCF*OMEGA + CALL MPOISS (OMEGA0,NSCA) + IF ( NSCA .LE. 0 ) THEN + VSCAT = 0.D0 + RETURN + ENDIF + NSCA = MIN(NSCA,NSCMX) + CALL RMMAR(RD,2*NSCA,1) + +C THMIN2 IS THE SCREENING ANGLE + THMIN2 = CHC**2/( OMCF*OMC * (PAMA(5)*BETA*GAMMA)**2 ) + + SUMX = 0.D0 + SUMY = 0.D0 + DO 12 I = 1,NSCA + THET = SQRT( THMIN2*((1./RD(I)) - 1.) ) + PHIS = PI2 * RD(NSCA+I) + SUMX = SUMX + THET*COS(PHIS) + SUMY = SUMY + THET*SIN(PHIS) + 12 CONTINUE + VSCAT = SQRT(SUMX**2 + SUMY**2) + + RETURN + END +*CMZ : 28/02/2002 13.12.11 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE MUDECY + +C----------------------------------------------------------------------- +C MU(ON) DEC(A)Y +C +C TREATES DECAY OF MUON INTO ELECTRON (INCLUDING POLARISATION EFFECTS) +C INCLUDING NEUTRINOS, IF SELECTED +C THIS SUBROUTINE IS CALLED FROM MUTRAC. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AUX2,COSDE,COSTH3,COS3CM,COS3C1,COS3C2, + * E3CM,GAMMA3,GAMMA4,PHI3CM,PHI3C2,PHI31, + * P3CM,THICK,XI + INTEGER I + SAVE + EXTERNAL THICK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' MUDECY: CURPAR=',1P,9E10.3) + +C COPY VERTEX COORDINATES TO SECPAR + DO 4 I = 5,8 + SECPAR(I) = CURPAR(I) + 4 CONTINUE + SECPAR( 9) = GEN + SECPAR(10) = ALEVEL + SECPAR(14) = CURPAR(14) + SECPAR(15) = CURPAR(15) + SECPAR(16) = CURPAR(16) + IF ( LLONGI ) LHEIGH = INT(THICK(H)*THSTPI + 1.D0) + +C MUON DECAYS INTO ELECTRON AND NEUTRINOS + XI = 2*ITYPE - 11 +C ELECTRON ENERGY SPECTRUM N(E) * DE = CONST * E**2 * (3/2*E0-E) * DE +C IS GAINED BY THE REJECTION/REFLECTION METHOD + 6 CALL RMMAR( RD,4,1 ) + IF ( RD(1)**2*(3.-RD(1)*2.) .LT. RD(2) ) RD(1) = 1.-RD(1) + E3CM = PAMA(2) + RD(1) * ( C(8) - PAMA(2) ) + IF ( E3CM .GT. 0.5D0*PAMA(5) ) GOTO 6 + P3CM = SQRT( E3CM**2 - PAMA(2)**2 ) +C NOW DETERMINE COS3C1 AND PHI31 BY RANDOM SELECTION +C WITH RESPECT TO THE POLARIZATION DIRECTION OF THE MUON IN THE MU CM +C GIVEN BY POLART, POLARF + COSDE = 2.D0 * RD(4) - 1.D0 + AUX2 = ( 1. - 2.*RD(1) ) / ( 3. - 2.*RD(1) ) + IF ( ABS(AUX2) .GT. 1.D-2 ) THEN + COS3C1 = XI*(SQRT(1.D0-(2.D0*COSDE-AUX2)*AUX2) - 1.D0) / AUX2 + ELSE + COS3C1 = (-XI) * COSDE + ENDIF + PHI31 = RD(3)*PI2 + +C NOW ADD ELECTRON EMISSION ANGLE COS3C1 TO THE POLARISATION DIRECTION +C TO GET THE DIRECTION (RELATIVE TO THE CORSIKA COORDINATE SYSTEM) + CALL ADDANG( POLART,POLARF, COS3C1,PHI31, COS3C2,PHI3C2 ) +C GET THE ELECTRON DIRECTION RELATIVE TO THE MUON LAB DIRECTION + CALL ADDANI( CURPAR(3),CURPAR(4), COS3C2,PHI3C2, COS3CM,PHI3CM ) +C LORENTZ TRANSFORMATION TO THE LAB SYSTEM + GAMMA3 = GAMMA * ( E3CM + BETA * P3CM * COS3CM ) / PAMA(2) + COSTH3 = MIN( 1.D0, GAMMA * (P3CM * COS3CM + BETA * E3CM) / + * (PAMA(2) * SQRT(GAMMA3**2 - 1.D0)) ) + CALL ADDANG( CURPAR(3),CURPAR(4), COSTH3,PHI3CM, + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = ITYPE - 3 + SECPAR(2) = GAMMA3 + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( ITYPE .EQ. 5 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + (GAMMA3+1.D0) * PAMA(2) + ELSE + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + (GAMMA3-1.D0) * PAMA(2) + ENDIF + ENDIF + ENDIF + POLART = 0.D0 + POLARF = 0.D0 + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + GAMMA4 = GAMMA * PAMA(5) - GAMMA3 * PAMA(2) + DLONG(LHEIGH,8) = DLONG(LHEIGH,8) + GAMMA4 + ENDIF + + RETURN + END +*CMZ : 05/07/2001 13.19.11 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 04/10/96 +C======================================================================= + + SUBROUTINE MUPRPR + +C----------------------------------------------------------------------- +C MU(ON) P(AI)R PR(ODUCTION) +C +C TREATES MUON PAIR PRODUCTION (WITHOUT POLARISATION EFFECTS) +C IN ANALOGY WITH SUBROUTINE SUBROUT. FROM GEANT WRITTEN BY L. URBAN +C EXPLANATIONS SEE CERN PROGRM LIBRARY LONG WRITEUP W5013 +C THIS SUBROUTINE IS CALLED FROM MUTRAC. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AA,ALE,ALFA,AL10T,A1,A1R,B,BETA1,CC,C1,C2, + * COSTH3,EKIN,EMUON,ENEG,EPOS,EPP, + * PHI3,R0,R0MAX,SCREJ,THICK, + * V,VC,VMAX,VMIN,V0,Z + INTEGER I + SAVE + EXTERNAL THICK + DATA AL10T/9.212D0/ +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' MUPRPR: CURPAR=',1P,9E10.3) + +C COPY VERTEX COORDINATES TO SECPAR + DO 11 I = 5,8 + SECPAR(I) = CURPAR(I) + 11 CONTINUE + SECPAR( 9) = GEN + SECPAR(14) = CURPAR(14) + SECPAR(15) = CURPAR(15) + SECPAR(16) = CURPAR(16) + IF ( LLONGI ) LHEIGH = INT(THICK(H)*THSTPI + 1.D0) + +C SET MATERIAL CONSTANTS CMUON(.) ACCORDING TO +C TARGET INDEX LT (1=N, 2=O, 3=AR) WHICH HAS BEEN SET IN BOX2 + IF ( LT .EQ. 1 ) THEN + Z = 7.D0 + ELSEIF ( LT .EQ. 2 ) THEN + Z = 8.D0 + ELSE + Z = 18.D0 + ENDIF +C TOTAL AND KINETIC ENERGY OF MUON + EMUON = PAMA(5) * GAMMA + EKIN = EMUON - PAMA(5) + IF ( EKIN .LE. BCUT ) GOTO 900 +C + VMIN = 4.D0 * PAMA(2) / EMUON + VMAX = 1.D0 - CMUON(10) * Z**OB3 / EMUON + IF ( VMAX .LE. VMIN ) GOTO 900 + VC = BCUT / EMUON + ALE = LOG(EMUON) + ALFA = 1.D0 + ALE/AL10T + V0 = 0.18D0 * (4.D0 + ALE/AL10T) * ALFA * (ALFA*VMIN)**TB3 + BETA1 = 0.1D0 * (1.D0 + 3.D0 * ALE/AL10T) + B = 0.9D0 / (1.D0 + 0.4D0*ALE + 0.022D0*ALE**2) + AA = 1.D0 + 2.D0 * B * LOG(VC/V0) + IF ( AA .LE. 1.D0 ) AA = 1.05D0 + A1 = 1.D0 - AA + CC = EXP((-0.25D0)*A1*A1/B) + A1R = 1.D0 / A1 + C1 = VMAX**A1 + C2 = VC**A1 +C SAMPLE ENERGY FRACTION V AND RO + 50 CALL RMMAR(RD,2,1) + V = ( RD(1)*C1 + (1.-RD(1))*C2 )**A1R + IF ( V .LE. VMIN ) GOTO 50 + IF ( V .LT. V0 ) THEN + SCREJ = CC * ( (V-VMIN)/(V0-VMIN) )**BETA * (V0/V)**A1 + ELSE + SCREJ = CC * (V0/V)**( A1 + B*LOG(V/V0) ) + ENDIF + IF ( RD(2) .GT. SCREJ ) GOTO 50 + R0MAX = SCREJ * ( 1.D0 - 6.D0 *PAMA(5)/( EMUON**2 * (1.D0-V) ) ) + CALL RMMAR(RD,2,1) + R0 = R0MAX * (2.*RD(1)-1.) +C ENERGIES + EPP = V * EMUON + EPOS = 0.5D0 * EPP * (1.D0 + R0) + ENEG = EPP - EPOS +C ANGLES + COSTH3 = COS( PAMA(5)/EMUON ) + PHI3 = PI2 * RD(2) +C POSITRON + IF ( EPOS .GT. BCUT+PAMA(2) ) THEN + CALL ADDANG( COSTHE,PHI, COSTH3,PHI3, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR( 1) = 2.D0 + SECPAR( 2) = EPOS/PAMA(2) + SECPAR(10) = H + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + EPOS + PAMA(2) + ENDIF + ENDIF + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + EPOS + PAMA(2) + ENDIF + ENDIF +C ELECTRON + IF ( ENEG .GT. BCUT+PAMA(2) ) THEN + CALL ADDANG( COSTHE,PHI, COSTH3,-PHI3, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR( 1) = 3.D0 + SECPAR( 2) = ENEG/PAMA(2) + SECPAR(10) = H + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + ENEG - PAMA(2) + ENDIF + ENDIF + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + ENEG - PAMA(2) + ENDIF + ENDIF +C REDUCE ENERGY OF MUON + 60 CONTINUE + GAMMA = (EMUON - EPP)/ PAMA(5) + + 900 CONTINUE +C WRITE MUON TO STACK + SECPAR( 1) = CURPAR(1) + SECPAR( 2) = GAMMA + SECPAR( 3) = CURPAR(3) + SECPAR( 4) = CURPAR(4) + SECPAR(10) = ALEVEL + CALL TSTACK + + RETURN + END +*CMZ : 05/03/2002 08.29.07 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 25/09/96 +C======================================================================= + + SUBROUTINE MUTRAC(fmfb) + +C----------------------------------------------------------------------- +C MU(ON) TRAC(KING) +C +C TRACKS THE MUON REGARDING MAX. STEP LENGTH FOR MULTIPLE SCATTERING +C CHECKS PASSAGE THROUGH OBSERVATION LEVELS +C IRET1=1 KILLS PARTICLE +C IRET2=1 PARTICLE HAS BEEN CUTTED IN UPDATE +C THIS SUBROUTINE IS CALLED FROM BOX3. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,NPARTI. + COMMON /NPARTI/ NPARTO + DOUBLE PRECISION NPARTO(10,25),NPHOTO(10),NPOSIT(10),NELECT(10), + * NNU(10),NMUP(10),NMUM(10),NPI0(10),NPIP(10), + * NPIM(10),NK0L(10),NKPL(10),NKMI(10),NNEUTR(10), + * NPROTO(10),NPROTB(10),NK0S(10),NHYP(10), + * NNEUTB(10),NDEUT(10),NTRIT(10),NALPHA(10), + * NOTHER(10),NMUOND + EQUIVALENCE (NPARTO(1, 1),NPHOTO(1)), (NPARTO(1, 2),NPOSIT(1)), + * (NPARTO(1, 3),NELECT(1)), (NPARTO(1, 4),NNU(1)) , + * (NPARTO(1, 5),NMUP(1)) , (NPARTO(1, 6),NMUM(1)) , + * (NPARTO(1, 7),NPI0(1)) , (NPARTO(1, 8),NPIP(1)) , + * (NPARTO(1, 9),NPIM(1)) , (NPARTO(1,10),NK0L(1)) , + * (NPARTO(1,11),NKPL(1)) , (NPARTO(1,12),NKMI(1)) , + * (NPARTO(1,13),NNEUTR(1)), (NPARTO(1,14),NPROTO(1)), + * (NPARTO(1,15),NPROTB(1)), (NPARTO(1,16),NK0S(1)) , + * (NPARTO(1,18),NHYP(1)) , (NPARTO(1,19),NDEUT(1)) , + * (NPARTO(1,20),NTRIT(1)) , (NPARTO(1,21),NALPHA(1)), + * (NPARTO(1,22),NOTHER(1)), (NPARTO(1,25),NNEUTB(1)), + * (NPARTO(1,23),NMUOND) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AUX,CHITOT,STPTOT + INTEGER I,IRET3 + LOGICAL FSCAT + LOGICAL FLAG +c-----changed--add + logical fmfb +c-----changed--add + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' MUTRAC: CURPAR=',1P,9E10.3) + +C THE PLACE OF NEXT INTERACTION WAS DETERMINED IN BOX2 +C KEEP TOTAL STEP LENGTH UNTIL DECAY OR INTERACTION OCCURS + CHITOT = CHI + IF ( FDECAY ) THEN + STPTOT = STEPL + ENDIF + + 10 CONTINUE + +C CALCULATE MAX STEP SIZE (10 RAD. LENGTH) FOR MULTIPLE SCATTERING +C THE MAXIMUM STEP SIZE DEPENDS ON THE ENERGY TO GET ARRIVAL TIMES +C WITH UNCERTAINTIES SMALLER THAN 1 NSEC + AUX = MIN( 10.D0, 0.015D0*GAMMA ) + CHI = MIN( AUX*C(21), CHITOT ) + + IF ( CHI .GE. CHITOT ) THEN + FSCAT = .FALSE. + IF (DEBUG) WRITE(MDEBUG,*) 'MUTRAC: CHI=',SNGL(CHI) + ELSE + FSCAT = .TRUE. + IF (DEBUG) WRITE(MDEBUG,*) 'MUTRAC: C(XX)=',SNGL(AUX*C(21)) + ENDIF + +C UPDATE PARTICLE TO INTERACTION POINT OR OBSERVATION LEVEL, +C WHICHEVER IS CLOSER + FLAG = .TRUE. +c-----changed--add + CALL UPDATC(IRET3,FLAG,fmfb) +c-----changed--add +C IRET3 = 1 MEANS PARTCLE HAS PASSED OBSERVATION LEVEL + IF ( DEBUG ) WRITE(MDEBUG,*) 'MUTRAC: IRET1,2,3=', + * IRET1,IRET2,IRET3 + IF ( IRET2 .NE. 0 ) THEN +C MUON CUTTED BEFORE INTERACTION POINT +C LONGITUDINAL DEPOSIT IS ALREADY DONE IN UPDATC + IRET1 = 1 + FMUORG = .FALSE. + RETURN + ELSE + IF ( IRET3 .EQ. 0 ) THEN +C STORE MUON FOR FURTHER TREATMENT + DO I = 1,8 + CURPAR(I) = OUTPAR(I) + ENDDO + BETA = SQRT( GAMMA**2 - 1.D0 ) / GAMMA + ELSE +C KILL PARTICLE AS IT IS AT DETECTOR LEVEL + IRET1 = 1 + FMUORG = .FALSE. + RETURN + ENDIF + ENDIF + + IF ( FDECAY ) THEN +C MUON DECAYS AT END OF PATH (MUDECY WRITES EM-PARTICLE TO STACK) + IF ( FSCAT ) THEN +C CHITOT IS THE MATERIAL STILL TO BE TRACKED +C STPTOT IS THE PATHLENGTH STILL TO BE TRACKED + STPTOT = STPTOT - STEPL + CHITOT = CHITOT - CHI + IF ( CHITOT.GT.0.D0 .AND. STPTOT.GT.0.D0 ) GOTO 11 + ENDIF + ALEVEL = H + CALL MUDECY + NMUOND = NMUOND + 1.D0 + FMUORG = .FALSE. + + ELSE +C MUON UNDERGOES BREMSSTR/PAIRPR AT END OF PATH +C (MUBREM/MUPRPR WRITE EM-PARTICLES AND MUON TO STACK) + IF ( FSCAT ) THEN +C MUON HAS MADE MULTIPLE SCATTERING +C CHITOT IS THE MATERIAL STILL TO BE TRACKED + CHITOT = CHITOT - CHI + IF ( CHITOT .GT. 0.D0 ) GOTO 11 + ENDIF + IF ( FMUBRM ) THEN + CALL MUBREM + ELSE + CALL MUPRPR + ENDIF + ENDIF + IRET1 = 1 + RETURN + + 11 CONTINUE + IF ( DEBUG ) WRITE(MDEBUG,457) (CURPAR(I),I=1,9) + 457 FORMAT(' MUTRAC: SCATTER',1P,9E10.3) + GOTO 10 + + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : F. SCHROEDER UNI WUPPERTAL 17/09/98 +C======================================================================= + + SUBROUTINE NRANGC(ARG) + +C----------------------------------------------------------------------- +C N(EUTRAL PARTICLE) RANGE C(URVED ATMOSPHERE) +C +C DETERMINES PENETRATED MATTER CHI FOR NEUTRAL PARTICLES +C TAKING INTO ACCOUNT A CURVED ATMOSPHERE +C THIS SUBROUTINE IS CALLED FROM AAMAIN AND BOX2. +C ARGUMENT: +C ARG = GEOMETRIC LENGTH OF PARTICLE TRACK +C +C DESIGN : F. SCHROEDER UNI WUPPERTAL +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ARG,ARGNEW,COSDIF,COSPHI,COSTAPNEW,COSTHENEW, + * DH,DISTN2,DISTO2,HOLD,HNEW,RADIUS,SIGNE, + * SINPHI,SINTHENEW,THICK,TRANS,TRANSNEW,XNEW,YNEW + SAVE + EXTERNAL THICK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) ARG,THICKH + 444 FORMAT(' NRANGC: ARG=',1P,E10.3,' THICKH=',E10.3) + +C START VALUES + CHI = 0.D0 + HNEW = H + XNEW = X + YNEW = Y + COSPHI = COS( PHI ) + SINPHI = SIN( PHI ) + DISTN2 = XNEW**2 + YNEW**2 + COSTHENEW = COSTHE + COSTAPNEW = COSTAP + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C LOOP OVER PIECES OF ARG (EACH IN ITS LOCAL FLAT COORDINATE FRAME) + 2 CONTINUE + SINTHENEW = SQRT( 1.D0 - COSTHENEW**2 ) + TRANS = ARG * SINTHENEW +C MAXIMAL HORIZONTAL STEP (DEPENDS ON THICKNESS AT PARTICLE ALTITUDE) + TRANSNEW = MIN( TRANS, C(4) * THICKH + C(3) ) + IF (DEBUG) WRITE(MDEBUG,*) 'NRANGC: TRANSNEW=',SNGL(TRANSNEW) + + IF ( SINTHENEW .LE. 0.D0 ) THEN +C PARTICLE TRACK IS VERTICAL + ARGNEW = ARG + ELSE + ARGNEW = TRANSNEW / SINTHENEW + ENDIF + DH = ARGNEW * COSTHENEW + IF ( HNEW-DH .LE. HLAY(1) ) THEN + CHI = CHI + (THICKL(1) - THICK(HNEW)) / COSTHENEW + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'NRANGC: HNEW,CHI= ',SNGL(HLAY(1)),SNGL(CHI) + RETURN + ENDIF + CHI = CHI + (THICK(HNEW-DH) - THICK(HNEW)) / COSTHENEW +C ACTUAL VALUES + ARG = ARG - ARGNEW + IF (DEBUG) WRITE(MDEBUG,*) 'NRANGC: ARG,CHI=',SNGL(ARG),SNGL(CHI) + +C LOOP UNTIL COMPLETE PARTICLE TRACK LENGTHS IS TRANSFORMED INTO CHI + IF ( ARG .GT. 0.D0 ) THEN +C NEW COORDINATE FRAME + HOLD = HNEW +C NEW HEIGHT IN OLD COORDINATE FRAME + HNEW = HNEW - DH +C NEW ACTUAL HEIGHT AT NEW THICKNESS GRADIENT +C (CALCULATED WITH PARAMETERS OF OLD COORDINATE FRAME) + HNEW = SQRT( TRANSNEW**2 + (C(1)+HNEW)**2 ) - C(1) +C TERMINATE PROCESS IF PARTICLE WELL BELOW OBSERVATION LEVEL + IF ( HNEW .LT. OBSLEV(1) - 1.D5 ) THEN + RETURN + ENDIF + COSDIF = ( (C(1)+HNEW)**2 + (C(1)+HOLD)**2 - ARGNEW**2 ) / + * ( 2.D0 * (C(1)+HNEW) * (C(1)+HOLD) ) + IF (DEBUG) WRITE(MDEBUG,*) 'NRANGC: HNEW,COSDIF=', + * SNGL(HNEW),SNGL(COSDIF) + COSDIF = MIN(1.D0,COSDIF) +C DIRECTION OF PARTICLE RELATIVE TO DETECTOR CENTER + DISTO2 = DISTN2 + IF ( COSDIF .LT. 1.D0 ) THEN + RADIUS = ARGNEW * SQRT( (1.D0-COSTAPNEW**2)/(1.D0-COSDIF**2) ) + * * C(1) * ACOS(COSDIF)/(C(1)+HNEW) + ELSE + RADIUS = ARGNEW * SQRT( 1.D0-COSTAPNEW**2 ) + ENDIF + XNEW = XNEW + RADIUS * COSPHI + YNEW = YNEW + RADIUS * SINPHI + DISTN2 = XNEW**2 + YNEW**2 + IF ( DISTO2 .GT. DISTN2 ) THEN + SIGNE = +1.D0 + ELSE + SIGNE = -1.D0 + ENDIF +C COSINE OF NEW LOCAL ZENITH ANGLE + COSTHENEW = MIN( 1.D0, ( COSTHENEW * COSDIF - SIGNE * + * SQRT( (1.D0-COSTHENEW**2) * (1.D0-COSDIF**2) ) ) ) + IF (DEBUG) WRITE(MDEBUG,*) 'NRANGC: COSTHENEW=',COSTHENEW +C TERMINATE PROCESS IF PARTICLE BECOMES UPWARD GOING + IF ( COSTHENEW .LE. C(29) ) RETURN + GOTO 2 + ENDIF + + RETURN + END +*CMZ : 03/09/2001 11.12.38 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE NUCINT + +C----------------------------------------------------------------------- +C NUC(LEAR) INT(ERACTION) +C +C SELECTS TYPE OF INTERACTION PROCESS ACCORDING TO ECM +C HEAVY PRIMARIES AND STRANGE BARYONS INCLUDED +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,KAONS. + COMMON /KAONS/ CKA + DOUBLE PRECISION CKA(80) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEEP,STATI. + COMMON /STATI/ SABIN,SBBIN,INBIN,IPBIN,IKBIN,IHBIN + DOUBLE PRECISION SABIN(40),SBBIN(40) + INTEGER INBIN(40),IPBIN(40),IKBIN(40),IHBIN(40) +*KEEP,VKIN. + COMMON /VKIN/ BETACM + DOUBLE PRECISION BETACM +*KEND. + + DOUBLE PRECISION BETA3,COSMU,COSTCM,COSTH3,ETOT,GAMMA3, + * PHIMU,PHI3,THICK,WORK1,WORK2 + INTEGER I,IGO,KJ + SAVE + EXTERNAL THICK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' NUCINT: CURPAR=',1P,9E10.3) + +C COPY VERTEX COORDINATES INTO SECPAR + DO 10 I = 5,8 + SECPAR(I) = CURPAR(I) + 10 CONTINUE +C SET GENERATION AND LEVEL OF LAST INTERACTION + SECPAR( 9) = GEN + SECPAR(10) = ALEVEL +C RESET POLARIZATION, NOT USED FOR PARTICLES OTHER THAN MUONS YET + SECPAR(11) = 0.D0 + SECPAR(12) = 0.D0 + SECPAR(14) = CURPAR(14) + SECPAR(15) = CURPAR(15) + SECPAR(16) = CURPAR(16) + THICKH = THICK(H) + IF ( LLONGI ) LHEIGH = INT(THICKH * THSTPI + 1.D0) + +C CALCULATE KIN. ENERGY BIN + EKINL = PAMA(ITYPE) * ( GAMMA - 1.D0 ) + ETOT = PAMA(ITYPE) * GAMMA + IF ( EKINL .GE. .1D0 ) THEN + KJ = INT( MIN( 40.D0, 5.D0 + 3.D0*LOG10(EKINL) ) ) + ELSE + KJ = 1 + ENDIF + +C----------------------------------------------------------------------- +C CHARGED PION INCIDENT + IF ( ITYPE .EQ. 8 .OR. ITYPE .EQ. 9 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'NUCINT: PION EKINL=',SNGL(EKINL), + * ' ETOT=',ETOT + IPBIN(KJ) = IPBIN(KJ) + 1 + +C DECAY OR INTERACTION FOR CHARGED PIONS ? + IF ( FDECAY ) THEN +C INCREMENT GENERATION COUNTER TO DIFFERENTIATE BETWEEN MUONS FROM +C DECAYS (K-DECAY: GEN=NORMAL, PI-DECAY: GEN INCREASED BY 50) + SECPAR( 9) = SECPAR( 9) + 50.D0 +C DECAY PI(+,-) ----> MU(+,-) + (ANTI)-NEUTRINO(MU) + WORK1 = C(48) * GAMMA + WORK2 = C(49) * BETA * WORK1 + CALL RMMAR( RD,2,1 ) + COSTCM = 2.D0 * RD(1) - 1.D0 + GAMMA3 = WORK1 + COSTCM * WORK2 + BETA3 = SQRT( 1.D0 - 1.D0 / GAMMA3**2 ) + COSTH3 = MIN( 1.D0, ( GAMMA * GAMMA3 - C(48) ) + * /( BETA * GAMMA * BETA3 * GAMMA3 ) ) + PHI3 = PI2 * RD(2) +C NEUTRINO IS DROPPED + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + SECPAR(2) = PAMA(8) * GAMMA - PAMA(5) * GAMMA3 + DLONG(LHEIGH,8) = DLONG(LHEIGH,8) + SECPAR(2) + ENDIF + +C MUON + CALL ADDANG( COSTHE,PHI, COSTH3,PHI3, COSMU,PHIMU ) + IF ( COSMU .GT. C(29) ) THEN +C DIRECTION OF PION IN THE MUON CM SYSTEM (= DIRECTION OF POLARIZATION) +C SEE: G. BARR ET AL., PHYS. REV. D39 (1989) 3532, EQ. 5 +C POLART IS COS OF ANGLE BETWEEN PION AND LABORATORY IN THE MU CM +C POLARF IS ANGLE PHI AROUND THE LAB DIRECTION IN THE MU CM +C POLART, POLARF ARE WITH RESPECT TO THE MU DIRECTION IN THE LAB SYSTEM + POLART = ( 2.D0*PAMA(8)*GAMMA*C(7)/(PAMA(5)*GAMMA3) + * - C(7) - 1.D0 ) / ( BETA3 * (1.D0 - C(7)) ) + POLARF = PHI3 - PI +C PION DIRECTION IS DIRECTION OF POLARIZATION FOR PI+, OPPOSITE FOR PI- + IF ( ITYPE .EQ. 9 ) THEN + POLART = -POLART + POLARF = POLARF + PI + ENDIF +C GET THE POLARIZATION DIRECTION IN THE MU CM RELATIVE TO THE CORSIKA +C COORDINATE SYSTEM + CALL ADDANG( COSMU,PHIMU, POLART,POLARF, POLART,POLARF ) +C MUON IS WRITTEN TO STACK + SECPAR( 1) = CURPAR(1) - 3.D0 + SECPAR( 2) = GAMMA3 + SECPAR( 3) = COSMU + SECPAR( 4) = PHIMU + SECPAR(11) = POLART + SECPAR(12) = POLARF + CALL TSTACK + SECPAR(11) = 0.D0 + SECPAR(12) = 0.D0 + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + GAMMA3 * PAMA(5) + ENDIF + ENDIF + IRET1 = 1 + RETURN + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C CHARGED PION INTERACTS + +C CALCULATE GAMMA, BETA AND ENERGY IN CENTER OF MASS + ECM = SQRT( C(45) * GAMMA + C(46) ) + GCM = (PAMA(ITYPE) * GAMMA + PAMA(14)) / ECM + BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) + +C LOW ENERGY HADRONIC INTERACTIONS +C CHECK IF WE USE LOW ENERGY HADRONIC INTERACTION MODEL + IF ( USELOW ) THEN +C USE GHEISHA IF THE CROSS-SECTION HAS BEEN CALCULATED FOR GHEISHA + CALL CGHEI + ELSE + CALL SDPM + ENDIF +C----------------------------------------------------------------------- +C PI(0) INCIDENT + ELSEIF ( ITYPE .EQ. 7 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'NUCINT: PI(0) EKINL=',SNGL(EKINL), + * ' ETOT=',ETOT + IPBIN(KJ) = IPBIN(KJ) + 1 + +C DECAY OR INTERACTION FOR PIONS ? + IF ( FDECAY ) THEN + CALL PI0DEC + ELSE +C FOR INTERACTION THE ENERGY MUST BE VERY HIGH +C CALCULATE GAMMA, BETA AND ENERGY IN CENTER OF MASS + ECM = SQRT( 2.D0 * PAMA(14) * PAMA(7) * GAMMA + * + PAMA(14)**2 +PAMA(7)**2 ) + GCM = (PAMA(7) * GAMMA + PAMA(14)) / ECM + BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) +C HIGH ENERGY INTERACTION MODEL + CALL SDPM + ENDIF + +C----------------------------------------------------------------------- +C NUCLEON OR ANTINUCLEON INCIDENT + ELSEIF ( ITYPE .EQ. 13 .OR. ITYPE .EQ. 14 .OR. + * ITYPE .EQ. 15 .OR. ITYPE .EQ. 25 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'NUCINT: NUCL EKINL=',SNGL(EKINL), + * ' ETOT=',ETOT +C CALCULATE GAMMA, BETA AND ENERGY IN CENTER OF MASS + GCM = SQRT( GAMMA * 0.5D0 + 0.5D0 ) + ECM = PAMA(ITYPE) * GCM * 2.D0 + BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) + INBIN(KJ) = INBIN(KJ) + 1 + +C LOW ENERGY HADRONIC INTERACTIONS +C CHECK IF WE USE LOW ENERGY HADRONIC INTERACTION MODEL + IF ( USELOW ) THEN +C USE GHEISHA IF THE CROSS-SECTION HAS BEEN CALCULATED FOR GHEISHA + CALL CGHEI + ELSE + CALL SDPM + ENDIF + +C----------------------------------------------------------------------- +C KAON INCIDENT + ELSEIF ( ITYPE .EQ. 11 .OR. ITYPE .EQ. 12 .OR. + * ITYPE .EQ. 10 .OR. ITYPE .EQ. 16 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'NUCINT: KAON EKINL=',SNGL(EKINL), + * ' ETOT=',ETOT + IKBIN(KJ) = IKBIN(KJ) + 1 + +C DECAY OR INTERACTION FOR KAONS ? + IF ( FDECAY ) THEN +C KAON DECAYS. DETERMINE DECAY MODE FOR KAONS AND SET LIFE TIME + IF ( ITYPE .EQ. 10 ) THEN +C K(0,L)-MESON + IGO = 4 + ELSEIF ( ITYPE .EQ. 11 ) THEN +C K(+)-MESON + IGO = 1 + ELSEIF ( ITYPE .EQ. 12 ) THEN +C K(-)-MESON + IGO = 2 + ELSE +C K(0,S)-MESON + IGO = 3 + ENDIF + CALL KDECAY( IGO ) + RETURN + + ELSE +C- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C KAON INTERACTS +C CALCULATE GAMMA, BETA AND ENERGY IN CENTER OF MASS + ECM = SQRT( CKA(13) * GAMMA + CKA(14) ) + GCM = ( PAMA(ITYPE) * GAMMA + PAMA(14) ) / ECM + BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) +C LOW ENERGY HADRONIC INTERACTIONS +C CHECK IF WE USE LOW ENERGY HADRONIC INTERACTION MODEL + IF ( USELOW ) THEN +C USE GHEISHA IF THE CROSS-SECTION HAS BEEN CALCULATED FOR GHEISHA + CALL CGHEI + ELSE + CALL SDPM + ENDIF + ENDIF + +C----------------------------------------------------------------------- +C ETA INCIDENT + ELSEIF ( ITYPE .EQ. 17 .OR. + * (ITYPE .GE. 71 .AND. ITYPE .LE. 74) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'NUCINT: ETA EKINL=',SNGL(EKINL), + * ' ETOT=',ETOT + IPBIN(KJ) = IPBIN(KJ) + 1 + +C DECAY OR INTERACTION FOR ETAS ? + IF ( FDECAY ) THEN + CALL ETADEC + ELSE + CURPAR(1) = 17.D0 + ITYPE = 17 +C FOR INTERACTION THE ENERGY MUST BE VERY HIGH +C CALCULATE GAMMA, BETA AND ENERGY IN CENTER OF MASS + ECM = SQRT( 2.D0 * PAMA(14) * PAMA(17) * GAMMA + * + PAMA(14)**2 +PAMA(17)**2 ) + GCM = (PAMA(17) * GAMMA + PAMA(14)) / ECM + BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) +C HIGH ENERGY INTERACTION MODEL + CALL SDPM + ENDIF + +C----------------------------------------------------------------------- +C STRANGE BARYON (LAMDA, SIGMA) INCIDENT + ELSEIF ( (ITYPE .GE. 18 .AND. ITYPE .LE. 24) .OR. + * (ITYPE .GE. 26 .AND. ITYPE .LE. 32) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'NUCINT: SBAR EKINL=',SNGL(EKINL), + * ' ETOT=',ETOT + IHBIN(KJ) = IHBIN(KJ) + 1 +C DECAY OR INTERACTION FOR STRANGE BARYONS? + IF ( FDECAY ) THEN + CALL STRDEC + RETURN + ENDIF +C CALCULATE GAMMA, BETA AND ENERGY IN CENTER OF MASS + ECM = SQRT( 2.D0 * PAMA(ITYPE) * PAMA(14) * GAMMA + * + PAMA(ITYPE)**2 + PAMA(14)**2 ) + GCM = ( PAMA(ITYPE) * GAMMA + PAMA(14)) / ECM + BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) +C LOW ENERGY HADRONIC INTERACTIONS +C CHECK IF WE USE LOW ENERGY HADRONIC INTERACTION MODEL + IF ( USELOW ) THEN +C USE GHEISHA IF THE CROSS-SECTION HAS BEEN CALCULATED FOR GHEISHA + CALL CGHEI + ELSE +C VENUS TREATS STRANGE BARYONS + CALL SDPM + ENDIF + +C----------------------------------------------------------------------- +C HEAVY PRIMARY INCIDENT + ELSEIF ( ITYPE .GT. 100 ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'NUCINT: HEAVY PRIMARY EKINL=', + * SNGL(EKINL),' ETOT=',ETOT +C USE GHEISHA IF THE CROSS-SECTION HAS BEEN CALCULATED FOR GHEISHA +C CHECK IF WE USE LOW ENERGY HADRONIC INTERACTION MODEL + IF ( USELOW ) THEN +C USE GHEISHA IF THE CROSS-SECTION HAS BEEN CALCULATED FOR GHEISHA +C (THIS MIGHT BE THE CASE FOR DEUTERONS, TRITONS AND ALPHAS) + IF ( GHESIG ) THEN + CALL CGHEI + ELSE + CALL SDPM + ENDIF + ELSE + CALL SDPM + ENDIF + +C----------------------------------------------------------------------- +C ILLEGAL PARTICLE + ELSE + WRITE(MONIOU,444) (CURPAR(I),I=1,9) + WRITE(MONIOU,*) 'NUCINT: ILLEGAL PARTICLE = ',ITYPE + STOP + ENDIF + +C----------------------------------------------------------------------- +C KILL PARTICLE + IRET1 = 1 + + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE OUTEND + +C----------------------------------------------------------------------- +C OUT(PUT AT) END (OF SHOWER) +C +C WRITE REST OF PARTICLES TO OUTPUT BUFFER +C PRINTS INTERACTION LENGTHS STATISTICS +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,CHISTA. + COMMON /CHISTA/ IHYCHI,IKACHI,IMUCHI,INNCHI,INUCHI,IPICHI + INTEGER IHYCHI(124),IKACHI(124),IMUCHI(124), + * INNCHI(124),INUCHI(124),IPICHI(124) +*KEEP,ELADPM. + COMMON /ELADPM/ ELMEAN,ELMEAA,IELDPM,IELDPA + DOUBLE PRECISION ELMEAN(40),ELMEAA(40) + INTEGER IELDPM(40,13),IELDPA(40,13) +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEEP,NCOUNT. + COMMON /NCOUNT/ NCOUN + INTEGER NCOUN(8) +*KEEP,NPARTI. + COMMON /NPARTI/ NPARTO + DOUBLE PRECISION NPARTO(10,25),NPHOTO(10),NPOSIT(10),NELECT(10), + * NNU(10),NMUP(10),NMUM(10),NPI0(10),NPIP(10), + * NPIM(10),NK0L(10),NKPL(10),NKMI(10),NNEUTR(10), + * NPROTO(10),NPROTB(10),NK0S(10),NHYP(10), + * NNEUTB(10),NDEUT(10),NTRIT(10),NALPHA(10), + * NOTHER(10),NMUOND + EQUIVALENCE (NPARTO(1, 1),NPHOTO(1)), (NPARTO(1, 2),NPOSIT(1)), + * (NPARTO(1, 3),NELECT(1)), (NPARTO(1, 4),NNU(1)) , + * (NPARTO(1, 5),NMUP(1)) , (NPARTO(1, 6),NMUM(1)) , + * (NPARTO(1, 7),NPI0(1)) , (NPARTO(1, 8),NPIP(1)) , + * (NPARTO(1, 9),NPIM(1)) , (NPARTO(1,10),NK0L(1)) , + * (NPARTO(1,11),NKPL(1)) , (NPARTO(1,12),NKMI(1)) , + * (NPARTO(1,13),NNEUTR(1)), (NPARTO(1,14),NPROTO(1)), + * (NPARTO(1,15),NPROTB(1)), (NPARTO(1,16),NK0S(1)) , + * (NPARTO(1,18),NHYP(1)) , (NPARTO(1,19),NDEUT(1)) , + * (NPARTO(1,20),NTRIT(1)) , (NPARTO(1,21),NALPHA(1)), + * (NPARTO(1,22),NOTHER(1)), (NPARTO(1,25),NNEUTB(1)), + * (NPARTO(1,23),NMUOND) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RECORD. + COMMON /RECORD/ IRECOR + INTEGER IRECOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKF. + COMMON /STACKF/ STACK,MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT, + * NTO,NFROM + INTEGER MAXSTK + PARAMETER (MAXSTK = 16*256*2) + DOUBLE PRECISION STACK(MAXSTK) + INTEGER MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM +*KEEP,STATI. + COMMON /STATI/ SABIN,SBBIN,INBIN,IPBIN,IKBIN,IHBIN + DOUBLE PRECISION SABIN(40),SBBIN(40) + INTEGER INBIN(40),IPBIN(40),IKBIN(40),IHBIN(40) +*KEND. + + INTEGER I + INTEGER J,K,NELMEA + SAVE +C----------------------------------------------------------------------- + + IF ( LH .GT. 0 ) THEN + IF ( FPAROUT ) CALL TOBUF( DATAB,0 ) + DO 2 I = 1,MAXBUF + DATAB(I) = 0. + 2 CONTINUE + ENDIF + LH = 0 + + IF ( FPRINT .OR. DEBUG ) THEN + WRITE(MONIOU,101) NSHIFT,NOPART + 101 FORMAT(' ',I10,' SHIFTS TO EXTERNAL STACK'/ + * ' ',I10,' PARTICLES WRITTEN TO MPATAP') + ENDIF + + IF ( FPRINT ) THEN +C PRINT ENERGY - MULTIPLICITY MATRIX + WRITE(MONIOU,209) ISHOWNO,(K,K=1,13), + * (J,(MULTMA(J,K),K=1,13),10**((J-4.)/3.),10**((J-3.)/3.),J=1,39), + * 1,(INT(10**((K-1.)/3.)+1 ),K = 2,13), + * 2,(INT(10**((K )/3.) ),K = 2,13) + 209 FORMAT(//' ENERGY - MULTIPLICITY MATRIX OF SHOWER NO ',I10/ + * ' ENERGY RUNS VERTICALLY, MULTIPLICITY HORIZONTALLY'// + * ' ',5X,5I10,3I8,5I6,' ENERGY RANGE (GEV)'/ + * 39(/' ',I4,1X,5I10,3I8,5I6,2X,1P,2E10.1,0P)// + * ' MULT.',5I10,3I8,5I6,5X,'LOWER BIN LIMIT'/ + * ' RANGE',5I10,3I8,5I6,5X,'UPPER BIN LIMIT') + ENDIF + + +C GET MEAN OF ELASTICITY FOR ENERGY BINS + DO 3377 J = 1,40 + NELMEA = 0 + DO 3378 K = 1,10 + NELMEA = NELMEA + IELDPM(J,K) + 3378 CONTINUE + IF ( NELMEA .NE. 0 ) ELMEAN(J) = ELMEAN(J) / NELMEA + 3377 CONTINUE + + IF ( FPRINT ) THEN +C PRINT ENERGY - ELASTICITY MATRIX + WRITE(MONIOU,408) ISHOWNO,(K,K=1,10), + * (J,(IELDPM(J,K),K=1,10), + * ELMEAN(J),10**((J-4.)/3.),10**((J-3.)/3.),J=1,39), + * ((K-1)*0.1,K=1,10),(K*0.1,K=1,10) + 408 FORMAT (//' ENERGY - ELASTICITY MATRIX OF SHOWER NO ',I10/ + * ' ENERGY RUNS VERTICALLY, ELASTICITY HORIZONTALLY'// + * ' ',5X,8I9,2I10,' MEAN EL. ENERGY RANGE (GEV)'/ + * 39(/' ',I4,1X,8I9,2I10,2X,1P,E10.3,2E10.1,0P)// + * ' ELA. ',8F9.2,2F10.2,5X,'LOWER BIN LIMIT'/ + * ' RANGE',8F9.2,2F10.2,5X,'UPPER BIN LIMIT') + + WRITE(MONIOU,204) ISHOWNO + 204 FORMAT(//' INTERACTIONS PER KINETIC ENERGY INTERVAL OF SHOWER', + * ' NO ',I10//) + + WRITE(MONIOU,205) + 205 FORMAT(' BIN LOWER LIMIT UPPER LIMIT ', + * ' NUCLEON PIONS KAONS S.BARYONS TOTAL'/ + * ' IN GEV IN GEV ', + * ' EVENTS EVENTS EVENTS EVENTS '/) + WRITE(MONIOU,207) (I,SABIN(I),SBBIN(I),INBIN(I),IPBIN(I), + * IKBIN(I),IHBIN(I),INBIN(I)+IPBIN(I)+IKBIN(I)+IHBIN(I),I=1,40) + 207 FORMAT(' ',I5,1P,2E15.4,0P,1X,5I11) + + WRITE(MONIOU,301) + 301 FORMAT (//' INTERACTION LENGTH STATISTICS: ', + * ' 1 BIN CORRESPONDS TO 10 G/CM**2 OR 100M FOR MUONS'// + * ' BIN LAMBDA NU LAMBDA PI LAMBDA KA ', + * 'LAMBDA HY LAMBDA MU LAMBDA NUCLEUS'/) + WRITE(MONIOU,303) (I,INUCHI(I),IPICHI(I),IKACHI(I),IHYCHI(I), + * IMUCHI(I),INNCHI(I),I=1,124) + 303 FORMAT (' ',I4,6I12) + + WRITE(MONIOU,105) IRECOR + 105 FORMAT (/' NO OF WORDS WRITTEN TO PARTICLE TAPE UP TO NOW =', + * I10) + ENDIF + + RETURN + END +*CMZ : 28/02/2002 13.08.19 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE OUTPT1 + +C----------------------------------------------------------------------- +C (WRITE PARTICLE) OUTP(U)T 1 +C +C WRITES 39 PARTICLE RECORDS PER PHYSICAL RECORD +C TABULATES PARAMETERS OF ALL HIGH ENERGY PARTICLES WITH +C LORENTZ FACTOR LARGER THAN ECTMAP +C THIS SUBROUTINE IS CALLED FROM AAMAIN, BOX3, MUTRAC, UPDATC, +C AND AUSGAB. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,ETHMAP. + COMMON /ETHMAP/ ECTMAP,ELEFT + DOUBLE PRECISION ECTMAP,ELEFT +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MAGANG. + COMMON /MAGANG/ ARRANG,ARRANR,COSANG,SINANG + DOUBLE PRECISION ARRANG,ARRANR,COSANG,SINANG +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,NPARTI. + COMMON /NPARTI/ NPARTO + DOUBLE PRECISION NPARTO(10,25),NPHOTO(10),NPOSIT(10),NELECT(10), + * NNU(10),NMUP(10),NMUM(10),NPI0(10),NPIP(10), + * NPIM(10),NK0L(10),NKPL(10),NKMI(10),NNEUTR(10), + * NPROTO(10),NPROTB(10),NK0S(10),NHYP(10), + * NNEUTB(10),NDEUT(10),NTRIT(10),NALPHA(10), + * NOTHER(10),NMUOND + EQUIVALENCE (NPARTO(1, 1),NPHOTO(1)), (NPARTO(1, 2),NPOSIT(1)), + * (NPARTO(1, 3),NELECT(1)), (NPARTO(1, 4),NNU(1)) , + * (NPARTO(1, 5),NMUP(1)) , (NPARTO(1, 6),NMUM(1)) , + * (NPARTO(1, 7),NPI0(1)) , (NPARTO(1, 8),NPIP(1)) , + * (NPARTO(1, 9),NPIM(1)) , (NPARTO(1,10),NK0L(1)) , + * (NPARTO(1,11),NKPL(1)) , (NPARTO(1,12),NKMI(1)) , + * (NPARTO(1,13),NNEUTR(1)), (NPARTO(1,14),NPROTO(1)), + * (NPARTO(1,15),NPROTB(1)), (NPARTO(1,16),NK0S(1)) , + * (NPARTO(1,18),NHYP(1)) , (NPARTO(1,19),NDEUT(1)) , + * (NPARTO(1,20),NTRIT(1)) , (NPARTO(1,21),NALPHA(1)), + * (NPARTO(1,22),NOTHER(1)), (NPARTO(1,25),NNEUTB(1)), + * (NPARTO(1,23),NMUOND) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,TABLES. + INTEGER IEBIN, ITBIN, IDBIN + PARAMETER (IEBIN=40,ITBIN=30,IDBIN=20) + COMMON /TABLES/ G_ARRAY, E_ARRAY, M_ARRAY, + * EBOFF,EBFAC,TBOFF,TBFAC,DBOFF,DBFAC + REAL G_ARRAY(IEBIN,ITBIN,IDBIN) + REAL E_ARRAY(IEBIN,ITBIN,IDBIN) + REAL M_ARRAY(IEBIN,ITBIN,IDBIN) + REAL EBOFF,EBFAC,TBOFF,TBFAC,DBOFF,DBFAC + REAL EBMIN,EBMAX,TBMIN,TBMAX,DBMIN,DBMAX + PARAMETER (EBMIN=1.E-4,EBMAX=1.E4) + PARAMETER (TBMIN=10.,TBMAX=1.E4) + PARAMETER (DBMIN=5.E3,DBMAX=5.E5) +*KEND. + + DOUBLE PRECISION AUGM,ETOT,PTOT,STT,XADDMU,YADDMU + REAL EE,TT,RR,TF + INTEGER IIE,IIT,IID + INTEGER I,IGG,III,NCOUNT + LOGICAL ROUT + SAVE + DATA NCOUNT /0/,AUGM/1.D0/ +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (OUTPAR(I),I=1,9),LEVL + 444 FORMAT(' OUTPT1: OUTPAR=',1P,8E10.3,0P,F10.0,I5) + + +C PRINT OUT PARTICLE IF IT IS ABOVE THE CUT + IF ( FPRINT .OR. DEBUG .OR. DEBDEL ) THEN + IF ( OUTPAR(2) .GE. ECTMAP ) THEN + WRITE(MONIOU,3) (OUTPAR(I),I=1,10),ELEFT + 3 FORMAT(' OUTPT1: ',1P,8E10.3,0P,F6.0,1P,2E10.3) + IF ( DEBDEL ) THEN + NCOUNT = NCOUNT + 1 + WRITE(MDEBUG,*) 'OUTPT1: NCOUNT = ',NCOUNT + IF ( NCOUNT .GE. NDEBDL ) DEBUG = .TRUE. + IF ( NCOUNT .GE. NDEBDL+2 ) DEBUG = .FALSE. + ENDIF + ENDIF + ENDIF + +C COUNT PARTICLES SPECIFIED BY THEIR PARTICLE CODE < 25 + III = NINT(OUTPAR(1)) + IF ( III .LT. 18 ) THEN + NPARTO(LEVL,III) = NPARTO(LEVL,III) + AUGM + ELSEIF ( III .EQ. 25 ) THEN + NNEUTB(LEVL) = NNEUTB(LEVL) + AUGM + ELSEIF ( (III .GE. 18 .AND. III .LE. 24) .OR. + * (III .GE. 26 .AND. III .LE. 32) ) THEN + NHYP(LEVL) = NHYP(LEVL) + AUGM + ELSEIF ( III .EQ. 201 ) THEN + NDEUT(LEVL) = NDEUT(LEVL) + AUGM + ELSEIF ( III .EQ. 301 ) THEN + NTRIT(LEVL) = NTRIT(LEVL) + AUGM + ELSEIF ( III .EQ. 402 ) THEN + NALPHA(LEVL) = NALPHA(LEVL) + AUGM + ELSE + WRITE(MONIOU,*) 'OUTPT1: PARTICLE ON OBSLEV ',LEVL,' ID= ',III + NOTHER(LEVL) = NOTHER(LEVL) + AUGM + ENDIF + + IF ( LLONGI .AND. LEVL.EQ.NOBSLV ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT IN LAST BIN NSTEP + LHEIGH = NSTEP + IF ( III .EQ. 1 ) THEN + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + OUTPAR(2) * AUGM + ELSEIF ( III .EQ. 2 ) THEN +C REMEMBER: FOR EM-PARTICLES OUTPAR(2) CONTAINS ENERGY IN GEV + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + (OUTPAR(2)+PAMA(2))*AUGM + ELSEIF ( III .EQ. 3 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + (OUTPAR(2)-PAMA(2))*AUGM + ELSEIF ( III .EQ. 5 .OR. III .EQ. 6 ) THEN + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + * + OUTPAR(2)*PAMA(5)*AUGM + ELSEIF ( III .EQ. 13 .AND. III .EQ. 14 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + * + (OUTPAR(2)-1.D0)*PAMA(III)*AUGM + ELSEIF ( III .EQ. 15 .AND. III .EQ. 25 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + * + (OUTPAR(2)+1.D0)*PAMA(III)*AUGM + ELSE + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + * + OUTPAR(2)*PAMA(III)*AUGM + ENDIF + ENDIF + + ROUT = .TRUE. + +C TREATE ADDITIONAL INFORMATION OF MUONS +C THE COORDINATES OF MUON ORIGIN ARE STORED IN AMUPAR(.) + IF ( ROUT ) THEN + IF ( FMUADD .AND. (III .EQ. 5 .OR. III .EQ. 6) ) THEN + IGG = MIN( OUTPAR(9), 99.D0 ) + DATAB(LH+1) = (III + 70) * 1000 + IGG*10 + MOD(LEVL,10) + PTOT = PAMA(III) * SQRT( AMUPAR(2)**2 - 1.D0 ) + DATAB(LH+4) = PTOT * AMUPAR(15) + XADDMU = AMUPAR(7) + YADDMU = AMUPAR(8) + STT = SQRT( 1.D0 - AMUPAR(15)**2 ) + DATAB(LH+2) = PTOT * STT * COS( AMUPAR(4) + ARRANR ) + DATAB(LH+3) = PTOT * STT * SIN( AMUPAR(4) + ARRANR ) + DATAB(LH+5) = XADDMU * COSANG + YADDMU * SINANG + DATAB(LH+6) = YADDMU * COSANG - XADDMU * SINANG + DATAB(LH+7) = AMUPAR(5) + IF ( DEBUG ) WRITE(MDEBUG,445) (DATAB(LH+I),I=1,7) + 445 FORMAT(' OUTPT1: MUADDI=',1P,7E10.3) + LH = LH + 7 + +C WRITE A BLOCK OF 39 PARTICLES TO OUTPUT BUFFER AND CLEAR FIELD + IF ( LH .GE. MAXBUF ) THEN + IF ( FPAROUT ) CALL TOBUF( DATAB,0 ) + DO 1 I = 1,MAXBUF + DATAB(I) = 0. + 1 CONTINUE + LH = 0 + ENDIF + ENDIF + +C COPY PARTICLE TO DATAB FIELD + IGG = MIN( OUTPAR(9), 99.D0 ) + DATAB(LH+1) = III*1000 + IGG*10 + MOD(LEVL,10) + IF ( OUTPAR(1) .LE. 3.D0 ) THEN + ETOT = OUTPAR(2) + ELSE + ETOT = PAMA(III) * OUTPAR(2) + ENDIF + PTOT = SQRT( ETOT**2 - PAMA(III)**2 ) + STT = SQRT( 1.D0 - OUTPAR(3)**2 ) + DATAB(LH+2) = PTOT * STT * COS( OUTPAR(4) + ARRANR ) + DATAB(LH+3) = PTOT * STT * SIN( OUTPAR(4) + ARRANR ) + DATAB(LH+4) = PTOT * OUTPAR(3) + DATAB(LH+5) = OUTPAR(7) * COSANG + OUTPAR(8) * SINANG + DATAB(LH+6) = OUTPAR(8) * COSANG - OUTPAR(7) * SINANG + DATAB(LH+7) = OUTPAR(6) * 1.E9 + ENDIF + + IF ( FTABOUT ) THEN +C CALCULATE TIME DELAY (IN NS) WITH RESPECT TO SPHERICAL SHOWER +C FRONT AT POINT (X,Y) + TF = SQRT( (HEIGHP- OBSLEV(LEVL))**2 + + * (OUTPAR(7)+XOFF(LEVL))**2 + + * (OUTPAR(8)+YOFF(LEVL))**2 ) / (C(25)*1.D-9) + TT = OUTPAR(6)*1.D9 - TF + IF ( OUTPAR(1) .LE. 3.D0 ) THEN + ETOT = OUTPAR(2) + ELSE + ETOT = PAMA(III) * OUTPAR(2) + ENDIF + EE = ETOT + RR = SQRT(OUTPAR(7)**2 + OUTPAR(8)**2) + EE = MAX(EBMIN,EE) + TT = MAX(TBMIN,TT) + RR = MAX(DBMIN,RR) +C GET CORRECT BIN + IIE = (LOG10(EE) - EBOFF)*EBFAC + 1. + IIT = (LOG10(TT) - TBOFF)*TBFAC + 1. + IID = (LOG10(RR) - DBOFF)*DBFAC + 1. + IIE = MIN(IIE,IEBIN) + IIE = MAX(IIE,1) + IIT = MIN(IIT,ITBIN) + IIT = MAX(IIT,1) + IID = MIN(IID,IDBIN) + IID = MAX(IID,1) + + IF ( III .EQ. 1 ) THEN + G_ARRAY(IIE,IIT,IID) = G_ARRAY(IIE,IIT,IID) + AUGM + ELSEIF ( III .LE. 3 ) THEN + E_ARRAY(IIE,IIT,IID) = E_ARRAY(IIE,IIT,IID) + AUGM + ELSEIF ( III .EQ. 5 .OR. III .EQ. 6 ) THEN + M_ARRAY(IIE,IIT,IID) = M_ARRAY(IIE,IIT,IID) + AUGM + ENDIF + ENDIF + +C WRITE A BLOCK OF 39 PARTICLES TO OUTPUT BUFFER AND CLEAR FIELD + IF ( ROUT ) THEN +C COUNT PARTICLES, THAT ARE WRITTEN TO TAPE + NOPART = NOPART + 1 + + LH = LH + 7 + +C WRITE A BLOCK OF 39 PARTICLES TO OUTPUT BUFFER AND CLEAR FIELD + IF ( LH .GE. MAXBUF ) THEN + IF ( FPAROUT ) CALL TOBUF( DATAB,0 ) + DO 2 I = 1,MAXBUF + DATAB(I) = 0. + 2 CONTINUE + LH = 0 + ENDIF + ENDIF + + RETURN + END +*CMZ : 25/02/2002 15.28.14 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PAMAF + +C----------------------------------------------------------------------- +C PA(RTICLE) MA(SS) F(ILLING) +C +C FILLS PARTICLE MASS FOR PARTICLE IP IN ARRAY PAMA +C RESONANCES AND STRANGE BARYONS INCLUDED +C PARTICLE MASSES ACCORDING TO GEANT TABLE, +C TAKEN FROM THE PERIODIC TABLE +C OR CALCULATED WITH THE MASS FORMULA OF WEIZSAECKER +C THIS SUBROUTINE IS CALLED FROM START. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEND. + + DOUBLE PRECISION CHARGE(75),MASSES(75) +C* DOUBLE PRECISION AMUS(59,14),BIND,B1,B2,B3,B4,B5,SS + INTEGER IA,IC,IN,IP +C* INTEGER I,L + SAVE +C----------------------------------------------------------------------- + +C MASSES REVISED SEPT 2000 BY D. HECK + DATA MASSES / + * 0.D0 ,.510998902D-3,.510998902D-3, 0.0D0 ,.105658357D0, + * .105658357D0, .1349766D0, .13957018D0,.13957018D0 , 0.497672D0 , + * 0.493677D0 , 0.493677D0 ,.93956533D0 ,.93827200D0 ,.93827200D0 , + * 0.497672D0 , 0.54730D0 , 1.115683D0 , 1.18937D0 , 1.192642D0 , + * 1.197449D0 , 1.31483D0 , 1.32131D0 , 1.67245D0 ,.93956533D0 , + * 1.115683D0 , 1.18937D0 , 1.192642D0 , 1.197449D0 , 1.31483D0 , + * 1.32131D0 , 1.67245D0 , 1.7841D0 , 1.7841D0 , 1.8693D0 , + * 1.8693D0 , 1.8645D0 , 1.8645D0 , 1.9693D0 , 1.9693D0 , + * 2.2852D0 , 80.6D0 , 80.6D0 , 91.161D0 , 1.877D0 , + * 2.817D0 , 3.755D0 , 0.0D0 , 0.0D0 , 0.78257D0 , + * 0.7690D0 , 0.7665D0 , 0.7665D0 , 1.2305D0 , 1.2318D0 , + * 1.2331D0 , 1.2344D0 , 1.2309D0 , 1.2323D0 , 1.2336D0 , + * 1.2349D0 , 0.89610D0 , 0.89166D0 , 0.89166D0 , 0.89610D0 , + * 0.0D0 , 0.0D0 , 0.0D0 , 0.0D0 , 0.0D0 , + * 0.54730D0 , 0.54730D0 , 0.54730D0 , 0.54730D0 , 0.0D0 / + + DATA CHARGE / + * 0.D0,+1.D0,-1.D0, 0.D0,+1.D0,-1.D0, 0.D0,+1.D0,-1.D0, 0.D0, + * +1.D0,-1.D0, 0.D0,+1.D0,-1.D0, 0.D0, 0.D0, 0.D0,+1.D0, 0.D0, + * -1.D0, 0.D0,-1.D0,-1.D0, 0.D0, 0.D0,-1.D0, 0.D0,+1.D0, 0.D0, + * +1.D0,+1.D0,+1.D0,-1.D0,+1.D0,-1.D0, 0.D0, 0.D0,+1.D0,-1.D0, + * +1.D0,+1.D0,-1.D0, 0.D0,+1.D0,+1.D0,+2.D0, 0.D0, 0.D0, 0.D0, + * 0.D0,+1.D0,-1.D0,+2.D0,+1.D0, 0.D0,-1.D0,-2.D0,-1.D0, 0.D0, + * +1.D0, 0.D0,+1.D0,-1.D0, 0.D0, 0.D0, 0.D0, 0.D0, 0.D0, 0.D0, + * 0.D0, 0.D0, 0.D0, 0.D0, 0.D0 / + +C ISOTOPE MASSES CALCULATED FROM: ATOMIC DATA AND NUCL.DATA TABLES 39 +C (1988) 289, (WAPSTRA'S VALUES, CORRECTED FOR ELECTRON MASSES) +C* DATA ((AMUS(I,L),I=1,59),L=1,7) / +C* * 1.8756D0, 2.8089D0, 57*0.D0, +C* * 2.8083D0, 3.7273D0, 4.6678D0, 5.6054D0, 6.5454D0, 54*0.D0, +C* * 2*0.D0 , 5.6014D0, 6.5337D0, 7.4712D0, 8.4067D0, +C* * 9.3471D0, 10.2856D0, 51*0.D0, +C* * 2*0.D0 , 6.5341D0, 7.4547D0, 8.3926D0, 9.3253D0, +C* * 10.2644D0, 11.2008D0, 51*0.D0, +C* * 2*0.D0 , 7.4722D0, 8.3932D0, 9.3243D0, 10.2524D0, +C* * 11.1886D0, 12.1232D0, 13.0618D0, 13.9986D0, 49*0.D0, +C* * 2*0.D0 , 8.4091D0, 9.3274D0, 10.2538D0, 11.1747D0, 12.1093D0, +C* * 13.0406D0, 13.9790D0, 14.9143D0, 15.8531D0, 48*0.D0, +C* * 4*0.D0 , 11.1915D0, 12.1110D0, 13.0400D0, 13.9687D0, 14.9057D0, +C* * 15.8394D0, 16.7761D0, 17.7104D0, 47*0.D0/ +C* DATA ((AMUS(I,L),I=1,59),L=8,14) / +C* * 4*0.D0, 12.1282D0, 13.0446D0, 13.9709D0, 14.8948D0, 15.8302D0, +C* * 16.7617D0, 17.6973D0, 18.6293D0, 19.5650D0, 46*0.D0, +C* * 7*0.D0, 15.8325D0, 16.7629D0, 17.6920D0, 18.6429D0, 19.5564D0, +C* * 20.4907D0, 21.4227D0, 22.3587D0, 44*0.D0, +C* * 6*0.D0, 15.8464D0, 16.7668D0, 17.6947D0, 18.6174D0, 19.5502D0, +C* * 20.4794D0, 21.4137D0, 22.3444D0, 23.2839D0, 24.2138D0, 43*0.D0, +C* * 8*0.D0, 18.6308D0, 19.5532D0, 20.4817D0, 21.4088D0, 22.3414D0, +C* * 23.2720D0, 24.2059D0, 25.1387D0, 26.0746D0, 27.0099D0, +C* * 27.9469D0, 28.8820D0, 29.8173D0, 30.7546D0, 31.6913D0, 36*0.D0, +C* * 7*0.D0, 18.6410D0, 19.5658D0, 20.4860D0, 21.4124D0, 22.3354D0, +C* * 23.2676D0, 24.1961D0, 25.1292D0, 26.0602D0, 26.9961D0, +C* * 27.9291D0, 28.8660D0, 29.7994D0, 30.7376D0, 38*0.D0, +C* * 9*0.D0, 21.4241D0, 22.3488D0, 23.2714D0, 24.1996D0, 25.1261D0, +C* * 26.0579D0, 26.9880D0, 27.9218D0, 28.8541D0, 29.7894D0, +C* * 30.7233D0, 31.6599D0, 32.5944D0, 33.5316D0, 36*0.D0, +C* * 9*0.D0, 22.3591D0, 23.2836D0, 24.2041D0, 25.1304D0, 26.0527D0, +C* * 26.9838D0, 27.9128D0, 28.8457D0, 29.7761D0, 30.7111D0, +C* * 31.6431D0, 32.5803D0, 33.5128D0, 34.4505D0, 35.3837D0, 35*0.D0/ +C----------------------------------------------------------------------- + +C GEANT PARTICLES INCLUDING RHO, K*, AND DELTA + DO 1 IP = 1,75 + PAMA (IP) = MASSES(IP) + SIGNUM(IP) = CHARGE(IP) + 1 CONTINUE + +C RESET REST OF THE ARRAY + DO 2 IP = 76,6000 + PAMA (IP) = 0.D0 + SIGNUM(IP) = 0.D0 + 2 CONTINUE + + DO 3 IA = 1,59 + DO 3 IC = 1,IA + IN = IA - IC + IP = IA * 100 + IC +C* IF ( IC .LE. 14 ) THEN +C MASSES FROM MASS TABLE FOR ISOTOPES +C* IF ( IN .EQ. 0 ) THEN +C* PAMA(IP) = IC * PAMA(14) +C* ELSE +C* PAMA(IP) = AMUS(IN,IC) +C* ENDIF +C SIMPLE SUM OF PROTON AND NEUTRON MASSES +C* IF ( PAMA(IP) .EQ. 0.D0 ) +C* * PAMA(IP) = IC * PAMA(14) + IN * PAMA(13) +C* ELSE +C WEIZSAECKERS MASS FORMULA GIVES BINDING ENERGY IN MEV +C* B1 = 14.1D0 * IA +C* B2 = (-13.D0) * IA**TB3 +C* B3 = (-0.595D0) * IC**2 / IA**OB3 +C* B4 = (-19.D0) * (IC-IN)**2 / IA +C* B5 = 33.5D0 / IA**0.75D0 +C* IF ( MOD(IC,2) .EQ. 0 .AND. MOD(IN,2) .EQ. 0 ) THEN +C* SS = 1.D0 +C* ELSEIF ( MOD(IC,2) .EQ. 1 .AND. MOD(IN,2) .EQ. 1 ) THEN +C* SS = -1.D0 +C* ELSE +C* SS = 0.D0 +C* ENDIF +C* BIND = (B1 + B2 + B3 + B4 + SS*B5)* 1.D-3 +C* BIND = MAX( 0.D0, BIND ) +C* PAMA(IP) = IN * MASSES(13) + IC * MASSES(14) - BIND +C* ENDIF + +C DO NOT USE BINDING ENERGY EFFECTS + PAMA(IP) = IN * MASSES(13) + IC * MASSES(14) + +C NUCLEI ARE ASSUMED TO BE FULLY IONIZED + SIGNUM(IP) = +IC + 3 CONTINUE + +C MASSES OF MULTINEUTRON CLUSTERS + DO 4 IN = 1,59 + IP = 100 * IN + PAMA (IP) = IN * PAMA(13) + SIGNUM(IP) = 0.D0 + 4 CONTINUE +C REST MASS OF LIGHT NUCLEI (DEUTERIUM, TRITIUM, ALPHA) + RESTMS(201) = RESTMS(13) + RESTMS(14) + RESTMS(301) = 2.D0 * RESTMS(13) + RESTMS(14) + RESTMS(402) = 2.D0 * RESTMS(13) + 2.D0 * RESTMS(14) + + RETURN + END +*CMZ : 25/09/2000 16.46.23 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PI0DEC + +C----------------------------------------------------------------------- +C PI 0 DEC(AY) +C +C DECAY OF PI0 INTO 2 GAMMAS OR INTO E(+) + E(-) + GAMMA +C THIS SUBROUTINE IS CALLED FROM NUCINT. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DECAY. + COMMON /DECAY/ GAM345,COS345,PHI345 + DOUBLE PRECISION GAM345(3),COS345(3),PHI345(3) +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AUX1,AUX2,COSTH1,COSTH2,EPITO2,FI1 + INTEGER I + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' PI0DEC: CURPAR=',1P,9E10.3) + +C LOOK FOR DECAY MODE + CALL RMMAR (RD,3,1) + +C DECAY PI(0) ----> GAMMA + GAMMA + IF ( RD(3) .LT. 0.98798 ) THEN +C HALF OF TOTAL ENERGY OF THE PION = EPITO2 + EPITO2 = 0.5D0 * GAMMA * PAMA(7) + AUX1 = 1.D0 + BETA * RD(1) + AUX2 = 1.D0 - BETA * RD(1) + COSTH1 = (BETA + RD(1)) / AUX1 + COSTH2 = (BETA - RD(1)) / AUX2 + +C FIRST GAMMA (WITH HIGHER ENERGY) + FI1 = PI2 * RD(2) +C ENERGY OF GAMMA + SECPAR(2) = AUX1 * EPITO2 + CALL ADDANG( COSTHE,PHI, COSTH1,FI1, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = 1.D0 + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + SECPAR(2) + ENDIF + ENDIF + +C SECOND GAMMA (WITH LOWER ENERGY) +C ENERGY OF GAMMA + SECPAR(2) = AUX2 * EPITO2 + CALL ADDANG( COSTHE,PHI, COSTH2,FI1+PI, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = 1.D0 + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + SECPAR(2) + ENDIF + ENDIF + +C DECAY PI(0) ----> E(-) + E(+) + GAMMA (DALITZ DECAY) +C (UNIFORM PHASE SPACE DISTRIBUTION IS ASSUMED FOR THIS DECAY) + ELSE + CALL DECAY6( PAMA(7), PAMA(2), PAMA(2), 0.D0, + * 0.D0,0.D0,0.D0, 1.D0, 2) + DO 11 I = 1,3 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = FLOAT(4 - I) + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( I .EQ. 1 ) THEN + DLONG(LHEIGH,3)=DLONG(LHEIGH,3)+(GAM345(I)-1.D0)*PAMA(2) + ELSEIF ( I .EQ. 2 ) THEN + DLONG(LHEIGH,3)=DLONG(LHEIGH,3)+(GAM345(I)+1.D0)*PAMA(2) + ELSE + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + GAM345(I) + ENDIF + ENDIF + ENDIF + 11 CONTINUE + + ENDIF + + RETURN + END +*CMZ : 01/03/2002 11.13.53 by D. HECK IK FZK KARLSRUHE +*-- Author : F. SCHROEDER UNI WUPPERTAL 17/09/98 +C======================================================================= + + SUBROUTINE PRANGC(ARG,FLAGMU,HNEW) + +C----------------------------------------------------------------------- +C (DECAYING) P(ARTICLE'S) RANG(E IN A) C(URVED ATMOSPHERE) +C +C DETERMINES MEAN FREE PATH FOR DECAYING PARTICLES IN CURVED +C ATMOSPHERE INCLUDING IONIZATION ENERGY LOSS PRECISELY. +C CALCULATE TOTAL PATH LENGTH FOR MUONS. +C THIS SUBROUTINE IS CALLED FROM BOX2. +C ARGUMENTS: +C ARG = -LOG(RANDOM NUMBER) * SPEED OF LIGHT * LIFETIME +C FLAGMU = MUON FLAG (T FOR MUONS, F ELSE) +C HNEW = HEIGHT AFTER TOTAL STEP LENGTH +C +C DESIGN : F. SCHROEDER UNI WUPPERTAL +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AK,ARG,ARG0,ARGNEW,AUXIL,BETANEW,BK,CHIT,CHIT2, + * COSDIF,COSPHI,COSTAPNEW,COSTHENEW,DISTN2,DISTO2, + * DK,DL,ELOSS,GAMK,GAMNEW,GAMSQ,GAM0,GMSQM1, + * HEIGH,HNEW,HOLD,H0,RADIUS,SIGNE,SINPHI,SINTHENEW, + * TH0,THICK,THNEW,THOLD,TRANS,TRANSNEW,XNEW,YNEW + INTEGER ILAY + LOGICAL FLAGMU + SAVE + EXTERNAL HEIGH,THICK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) ARG,THICKH + 444 FORMAT(' PRANGC: -LOG(RD)*C*TAU = ',1P,E10.3,' THICKH=',E10.3) + +C START VALUES + CHI = 0.D0 + HNEW = H + GAM0 = GAMMA + TH0 = THICKH + XNEW = X + YNEW = Y + BETANEW = BETA + COSTHENEW = COSTHE + COSTAPNEW = COSTAP + STEPL = 0.D0 + COSPHI = COS(PHI) + SINPHI = SIN(PHI) + DISTN2 = XNEW**2 + YNEW**2 + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C LOOP OVER PIECES OF ARG (EACH IN ITS LOCAL FLAT COORDINATE FRAME) + 1 CONTINUE +C STORE OLD VALUE OF THICKNESS + THOLD = TH0 + SINTHENEW = SQRT( MAX( 1.D0-COSTHENEW**2, 0.D0 ) ) +C CALCULATE UPPER LIMIT FOR TRANSVERSAL LENGTH (IMPORTANT TO DO A CUT, +C 'UPPER LIMIT' BECAUSE GAM0 BECOMES SMALLER DUE TO IONISATION LOSS) + AUXIL = GAM0 * BETANEW * SINTHENEW + TRANS = ARG * AUXIL +C MAXIMAL HORIZONTAL STEP (DEPENDS ON THICKNESS AT PARTICLE ALTITUDE) + TRANSNEW = MIN( TRANS, C(4) * THOLD + C(3) ) + + IF ( SINTHENEW .EQ. 0.D0 ) THEN +C STEP IN VERTICAL DIRECTION + ARGNEW = ARG + ELSE + ARGNEW = TRANSNEW / AUXIL + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'PRANGC: TH0,ARGNEW,TRANSNEW=', + * SNGL(TH0),SNGL(ARGNEW),SNGL(TRANSNEW) +C LOOK WITHIN WHICH LAYER THE PARTICLE STARTS + IF ( HNEW .LE. HLAY(2) ) THEN + ILAY = 1 + ELSEIF ( HNEW .LE. HLAY(3) ) THEN + ILAY = 2 + ELSEIF ( HNEW .LE. HLAY(4) ) THEN + ILAY = 3 + ELSE + ILAY = 4 + TH0 = MAX( TH0, THICKL(5) ) + ENDIF + +C SET START VALUES FOR ITERATION OVER THE AIR LAYERS + ARG0 = ARGNEW + CHIT = 0.D0 + H0 = HNEW +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + 2 CONTINUE + GAM0 = MAX( GAM0, 1.0001D0 ) + GAMSQ = GAM0**2 + GMSQM1 = GAMSQ - 1.D0 +C ENERGY LOSS BY IONIZATION + ELOSS = SIGNUM(ITYPE)**2 * C(22) * + * ( GAMSQ * (LOG(GMSQM1) + C(23)) / GMSQM1 - 1.D0 ) + ELOSS = ELOSS / (PAMA(ITYPE) * COSTHENEW ) + BK = ELOSS * (TH0 - AATM(ILAY)) + DK = GAM0 + BK + AK = ARG0 * DK * COSTHENEW * DATM(ILAY) + IF ( AK .GT. 0.D0 ) THEN + IF ( AK .LT. 174.D0 ) THEN +C LIMIT FOR EXPONENT (ON IBM COMPUTER) + GAMNEW = MAX( GAM0 * DK / ( GAM0 + BK * EXP(AK) ), 1.0001D0 ) + ELSE + GAMNEW = 1.0001D0 + ENDIF + GAMK = GAM0 - ELOSS * ( THICKL(ILAY) - TH0) + ELSE + GAMK = 1.D0 + GAMNEW = 1.0001D0 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'PRANGC: GAMNEW,GAMK=', + * SNGL(GAMNEW),SNGL(GAMK) +C LOOK WETHER PARTICLE PENETRATES LAYER BOUNDARY OR DECAYS BEFORE + IF ( GAMNEW .LT. GAMK .AND. ILAY. GT. 1 ) THEN +C CALCULATE PORTION OF RANGE AND NEW START VALUES AT LAYER BOUNDARY + ARG0 = ARG0 - ( H0 - HLAY(ILAY) + CATM(ILAY) * LOG(GAM0/GAMK) ) + * / (DK * COSTHENEW) + CHIT = CHIT + (THICKL(ILAY) - TH0) / COSTHENEW + IF ( FLAGMU ) STEPL = STEPL + (H0 - HLAY(ILAY))/COSTHENEW + GAM0 = GAMK + H0 = HLAY(ILAY) + TH0 = THICKL(ILAY) + ILAY = ILAY - 1 + GOTO 2 + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C PENETRATED MATTER THICKNESS + CHIT2 = (GAM0 - GAMNEW) / (ELOSS*COSTHENEW) + CHIT = CHIT + CHIT2 + IF ( TH0 + CHIT*COSTHENEW .GT. THICKL(1) ) THEN + CHI = CHI + (THICKL(1) - TH0)/COSTHENEW + HNEW = HLAY(1) + IF ( FLAGMU ) STEPL = STEPL + (H0 - HLAY(1))/COSTHENEW + IF ( DEBUG ) WRITE(MDEBUG,*) 'PRANGC: CHI = ',SNGL(CHI) + GOTO 100 + ENDIF + IF ( FLAGMU ) STEPL = STEPL + ( H0 - HEIGH(TH0+CHIT2) )/COSTHENEW +C ACTUAL VALUES + CHI = CHI + CHIT + ARG = ARG - ARGNEW +C ACTUAL VALUE OF GAM0 IS CALCULATED IN THE LOOP ABOVE + GAM0 = GAMNEW + IF ( DEBUG ) WRITE(MDEBUG,11) CHI,CHIT,ARG + 11 FORMAT(' PRANGC: CHI,CHIT,ARG=',1P,3(E10.3, 1X),0P) +C LOOP UNTIL THE COMPLETE PARTICLE TRACK LENGTHS IS TRANSFORMED IN CHI + BETANEW = SQRT( GAMNEW**2 - 1.D0 ) / GAMNEW + +C CALCULATE REAL TRANSNEW AND REAL GEOMETRIC LENGHT DL WHICH CROSSED +C THE PARTICLE WITH GIVEN ARGNEW. (GAMMA (= GAM0) HAS CHANGED DUE TO +C IONIZATION LOSS). BECAUSE OF CUT ON TRANS AND ON ARG, IT IS POSSIBLE +C TO CALCULATE WITHIN A FLAT ATMOSPHERE + THNEW = THOLD + COSTHENEW * CHIT + HOLD = HNEW +C NEW HEIGHT IN OLD COORDINATE FRAME + HNEW = HEIGH( THNEW ) + DL = ( HOLD - HNEW ) / COSTHENEW + TRANSNEW = DL * SINTHENEW +C NEW COORDINATE FRAME FOR NEXT STEP IN TRANSNEW +C NEW ACTUAL HEIGHT AT NEW THICKNESS GRADIENT +C (CALCULATED WITH PARAMETERS OF OLD COORDINATE FRAME) + HNEW = SQRT( TRANSNEW**2 + (C(1)+HNEW)**2 ) - C(1) +C TERMINATE PROCESS IF WELL BELOW OBSERVATION LEVEL + IF ( HNEW .LT. OBSLEV(1) - 1.D5 ) THEN +CDH 21.02.2002 +* IF ( HNEW .LT. MIN( OBSLEV(1) - 1.D5, +* * OBSLEV(1)-2.D0*C(2)*COSTHENEW/SINTHENEW ) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'PRANGC: HNEW,CHI,ARG,STEPL=', + * SNGL(HNEW),SNGL(CHI),SNGL(ARG),SNGL(STEPL) + GOTO 100 + ENDIF +C TERMINATE PROCESS IF PARTICLE IS STOPPED + IF ( GAM0 .LE. 1.0001D0 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'PRANGC: HNEW,GAM0,CHI,ARG,STEPL=', + * SNGL(HNEW),SNGL(GAM0),SNGL(CHI),SNGL(ARG),SNGL(STEPL) + GOTO 100 + ENDIF + COSDIF = ( (C(1)+HNEW)**2 + (C(1)+HOLD)**2 - DL**2 ) / + * ( 2.D0 * (C(1)+HNEW) * (C(1)+HOLD) ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'PRANGC: HNEW,COSDIF=', + * SNGL(HNEW),SNGL(COSDIF) + COSDIF = MIN(1.D0,COSDIF) +C DIRECTION OF PARTICLE RELATIVE TO DETECTOR CENTER + DISTO2 = DISTN2 + IF ( COSDIF .LT. 1.D0 ) THEN + RADIUS = DL * SQRT( (1.D0-COSTAPNEW**2)/(1.D0-COSDIF**2) ) + * * C(1) * ACOS(COSDIF)/(C(1)+HNEW) + ELSE + RADIUS = DL * SQRT( 1.D0 - COSTAPNEW**2 ) + ENDIF + XNEW = XNEW + RADIUS * COSPHI + YNEW = YNEW + RADIUS * SINPHI + DISTN2 = XNEW**2 + YNEW**2 + IF ( DISTO2 .GT. DISTN2 ) THEN + SIGNE = +1.D0 + ELSE + SIGNE = -1.D0 + ENDIF +C COSINE OF ZENITH ANGLE IN THE NEW FRAME + COSTHENEW = MIN( 1.D0, ( COSTHENEW * COSDIF - SIGNE * + * SQRT( (1.D0-COSTHENEW**2) * (1.D0-COSDIF**2) ) ) ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'PRANGC: COSTHENEW =',COSTHENEW +C TERMINATE PROCESS IF PARTICLE BECOMES UPWARD GOING + IF ( COSTHENEW .LE. C(29) ) GOTO 100 + TH0 = THICK(HNEW) +C NEXT STEP IF ARG NOT COMPLETELY TRANSFORMED INTO CHI + IF ( ARG .GT. 0.D0 ) GOTO 1 + + 100 CONTINUE + IF ( DEBUG ) THEN + IF ( FLAGMU ) THEN + WRITE(MDEBUG,*) 'PRANGC: HNEW,STEPL=',SNGL(HNEW),SNGL(STEPL) + ELSE + WRITE(MDEBUG,*) 'PRANGC: HNEW=',SNGL(HNEW) + ENDIF + ENDIF + + RETURN + END +*CMZ : 20/06/2000 15.00.27 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 14/07/95 +C======================================================================= + + SUBROUTINE PRANGE(ARG) + +C----------------------------------------------------------------------- +C (DECAYING) P(ARTICLE'S) RANGE +C +C DETERMINES MEAN FREE PATH FOR DECAYING PARTICLES +C INCLUDING IONIZATION ENERGY LOSS, +C FOR EACH LAYER OF THE ATMOSOHERE SEPARATELY +C PRECISELY +C THIS SUBROUTINE IS CALLED FROM BOX2. +C ARGUMENT: +C ARG = -LOG(RANDOM NUMBER) * SPEED OF LIGHT * LIFETIME +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AK,ARG,ARG0,BK,CHIT,DK,ELOSS, + * GAMK,GAMNEW,GAMSQ,GAM0,GMSQM1,H0,TH0 + INTEGER ILAY + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) ARG,THICKH + 444 FORMAT(' PRANGE: -LOG(RD)*C*TAU = ',1P,E10.3,' THICKH=',E10.3) + +C LOOK WITHIN WHICH LAYER THE PARTICLE STARTS + IF ( H .LE. HLAY(2) ) THEN + ILAY = 1 + TH0 = THICKH + ELSEIF ( H .LE. HLAY(3) ) THEN + ILAY = 2 + TH0 = THICKH + ELSEIF ( H .LE. HLAY(4) ) THEN + ILAY = 3 + TH0 = THICKH + ELSE + ILAY = 4 + TH0 = MAX( THICKH, THICKL(5) ) + ENDIF +C SET START VALUES FOR ITERATION + ARG0 = ARG + CHIT = 0.D0 + GAM0 = GAMMA + H0 = H + + 2 CONTINUE + GAM0 = MAX( GAM0, 1.0001D0 ) + GAMSQ = GAM0**2 + GMSQM1 = GAMSQ - 1.D0 +C ENERGY LOSS BY IONIZATION + ELOSS = SIGNUM(ITYPE)**2 * C(22) * + * ( GAMSQ * (LOG(GMSQM1) + C(23)) / GMSQM1 - 1.D0 ) + ELOSS = ELOSS / (PAMA(ITYPE) * COSTHE ) + BK = ELOSS * (TH0 - AATM(ILAY)) + DK = GAM0 + BK + AK = ARG0 * DK * COSTHE * DATM(ILAY) + IF ( AK .GT. 0.D0 ) THEN + IF ( AK .LT. 174.D0 ) THEN +C LIMIT FOR EXPONENT (ON IBM COMPUTER) + GAMNEW = MAX( GAM0 * DK / ( GAM0 + BK * EXP(AK) ), 1.0001D0 ) + ELSE + GAMNEW = 1.0001D0 + ENDIF + GAMK = GAM0 - ELOSS * ( THICKL(ILAY) - TH0) + ELSE + GAMK = 1.D0 + GAMNEW = 1.0001D0 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'PRANGE: GAMNEW,GAMK=', + * SNGL(GAMNEW),SNGL(GAMK) +C LOOK WETHER PARTICLE PENETRATES LAYER BOUNDARY OR DECAYS BEFORE + IF ( GAMNEW .LT. GAMK .AND. ILAY. GT. 1 ) THEN +C CALCULATE PORTION OF RANGE AND NEW START VALUES AT LAYER BOUNDARY + ARG0 = ARG0 - ( H0 - HLAY(ILAY) + CATM(ILAY) * LOG(GAM0/GAMK) ) + * / (DK * COSTHE) + CHIT = CHIT + (THICKL(ILAY) - TH0) / COSTHE + GAM0 = GAMK + H0 = HLAY(ILAY) + TH0 = THICKL(ILAY) + ILAY = ILAY - 1 + GOTO 2 + ENDIF +C PENETRATED MATTER THICKNESS + CHI = CHIT + (GAM0 - GAMNEW) / (ELOSS*COSTHE) + IF ( DEBUG ) WRITE(MDEBUG,445) CHI + 445 FORMAT(' PRANGE: CHI = ',1P,E10.3) + + RETURN + END +*CMZ : 19/10/2001 08.34.39 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 26/06/95 +C======================================================================= + + SUBROUTINE PRTIME(TTIME) + +C----------------------------------------------------------------------- +C PR(INT) TIME +C +C PRINTS PRESENT DATE AND TIME AND GIVES IT IN A FORMAT SUITED FOR THE +C RUNHEADER AND EVENTHEADER +C THIS SUBROUTINE IS CALLED FROM AAMAIN AND START. +C ARGUMENT: +C TTIME = TIME (YYMMDD) +C +C IF OUR DATE ROUTINE DOES NOT FIT TO YOUR COMPUTER, PLEASE REPLACE +C IT BY A SUITABLE ROUTINE OF YOUR SYSTEM +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION TTIME + CHARACTER*8 YYYYMMDD + CHARACTER*10 HHMMSS + INTEGER IYEAR,MONTH,IDAY,IHOUR,IMINU,ISEC + SAVE +C----------------------------------------------------------------------- + +C COMPILERS WITH OLD DATE FUNCTIONS ONLY HAVE TO CALL SEKDAT HERE + CALL SEKDAT( IYEAR,MONTH,IDAY,IHOUR,IMINU,ISEC ) + WRITE(MONIOU,100) IDAY,MONTH,IYEAR,IHOUR,IMINU,ISEC + TTIME = MOD(IYEAR,100)*10000 + MONTH*100 + IDAY + 100 FORMAT(' PRESENT TIME : ',I2.2,'.',I2.2,'.',I4,I4.2,':',I2.2, + * ':',I2.2,' UTC') + RETURN + END +*CMZ : 03/11/2000 16.13.44 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + DOUBLE PRECISION FUNCTION PTRANS() + +C----------------------------------------------------------------------- +C TRANS(VERSE MOMENTUM) +C +C RANDOM SELECTION OF TRANSVERSE MOMENTUM +C DISTRIBUTION IS OF FORM X*EXP(-X) +C THIS FUNCTION IS CALLED FROM PIGEN1, PIGEN2. +C +C CHANGES : J. KNAPP IK1 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION GX(0:50),HX(0:50),DX,SUMI,TT,X,XX,ZZ + INTEGER I,IMAX + LOGICAL FIRST + SAVE +C DX IS STEPSIZE FOR APPROXIMATING CURVE + DATA FIRST / .TRUE. /, DX / 0.5D0 / +C----------------------------------------------------------------------- + +C IF ( DEBUG ) WRITE(MDEBUG,*) 'PTRANS:' + +C COMPUTE FUNCTION VALUES AND INTEGRAL OF STEP FUNCTION H(X) +C APPROXIMATING Y(X) = X * EXP(1-X) WITH H(X) > Y(X) + IF ( FIRST ) THEN + FIRST = .FALSE. + IMAX = C(34) / DX + GX(0) = 0.D0 + HX(0) = DX*EXP(1.D0-DX) + DO 2 I = 1,IMAX + X = I*DX + IF ( X .LT. 1.D0 ) X = X + DX + HX(I) = X*EXP(1.D0-X) + GX(I) = GX(I-1) + HX(I-1) + 2 CONTINUE + SUMI = 1.D0 / GX(IMAX) + DO 3 I = 1,IMAX + GX(I) = GX(I) * SUMI + 3 CONTINUE + ENDIF + +C----------------------------------------------------------------------- +C GET RANDOM VARIABLE DISTRIBUTED AS HX(X) + 11 CONTINUE + CALL RMMAR( RD,2,1 ) + I = 0 + 1 CONTINUE + I = I+1 + IF ( GX(I) .LT. RD(1) ) GOTO 1 + XX = ( (RD(1)-GX(I-1))/(GX(I)-GX(I-1)) + I-1 ) * DX + ZZ = HX(I-1) +C GET RANDOM VARIABLE DISTRIBUTED AS Y(X) BY REJECTION METHOD + TT = XX * EXP(1.-XX) + IF ( RD(2)*ZZ .GT. TT ) GOTO 11 + +C GET REQUIRED PEAK VALUE + PTRANS = XX * C(12) + IF ( DEBUG ) WRITE(MDEBUG,*) 'PTRANS: PT = ',SNGL(PTRANS) + + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + DOUBLE PRECISION FUNCTION RANNOR( A,B ) + +C----------------------------------------------------------------------- +C RAN(DOM NUMBER) NOR(MALLY DISTRIBUTED) +C +C GENERATES NORMAL DISTRIBUTED RANDOM NUMBER +C DELIVERS 2 UNCORRELATED RANDOM NUMBERS, +C THEREFORE RANDOM CALLS ARE ONLY NECESSARY EVERY SECOND TIME. +C REFERENCE : NUMERICAL RECIPES, W.H. PRESS ET AL., +C CAMBRIDGE UNIVERSITY PRESS, 1992 ISBN 0 521 43064 X +C THIS FUNCTION IS CALLED FROM HDPM, LEADDF, PARRAP, QGSTOR, +C UPDATE, AND VAPOR. +C ARGUMENTS: +C A = MEAN VALUE +C B = STANDARD DEVIATION +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION A,B,RR + SAVE +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,100) SNGL(A),SNGL(B) +CC100 FORMAT(' RANNOR: A,B=',1P,2E10.3) + IF ( KNOR ) THEN + 1 CONTINUE + CALL RMMAR( RD,2,1 ) + U1 = 2.D0*RD(1) - 1.D0 + U2 = 2.D0*RD(2) - 1.D0 + RR = U1**2 + U2**2 + IF ( RR .GE. 1.D0 .OR. RR .EQ. 0.D0 ) GOTO 1 + FAC = SQRT( (-2.D0) * LOG(RR) / RR ) + + RANNOR = FAC * U1 * B + A + KNOR = .FALSE. + ELSE + RANNOR = FAC * U2 * B + A + KNOR = .TRUE. + ENDIF +CC IF ( DEBUG ) WRITE(MDEBUG,101) RANNOR +CC101 FORMAT('+',34X,' RANNOR =',1P,E12.5) + + RETURN + END +*CMZ : 14/06/2000 14.56.21 by D. HECK IK3 FZK KARLSRUHE +*-- Author : Konrad Bernloehr, Uni Hamburg 30/08/99 +C======================================================================= + + SUBROUTINE RCLCHK( MUNIT,NLREC,IERR ) + +C----------------------------------------------------------------------- +C R(E)C(ORD)L(ENGTH PARAMETER) CH(EC)K +C +C CHECK IF THE RECL PARAMETER FOR OPENING UNFORMATTED DIRECT-ACCESS +C FILES IS INTERPRETED AS IT SHOULD +C THIS SUBROUTINE IS CALLED FROM INPRM. +C ARGUMENTS: +C MUNIT = UNIT NUMBER FOR TEMPORARY FILE +C NLREC = 1 FOR RECL IN BYTES, 4 FOR RECL IN 4-BYTE WORDS +C IERR = ERROR INDICATOR +C +C DESIGN: K. BERNLOEHR UNI HAMBURG 1999 +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER IERR,MUNIT,NLREC + INTEGER IDAT(5) + SAVE +C----------------------------------------------------------------------- + + IERR = 0 + + OPEN(UNIT=MUNIT,STATUS='SCRATCH', + * FORM='UNFORMATTED',ACCESS='DIRECT',RECL=16/NLREC) +C IF NLREC=4 BUT RECL COUNTED IN BYTES, THE '990' STATEMENT +C WILL TYPICALLY BE JUMPED TO, AS A RESULT OF A WRITE ERROR. + WRITE(MUNIT,REC=1,ERR=990) 1,2,3,4 + WRITE(MUNIT,REC=3,ERR=990) 9,10,11,12 + WRITE(MUNIT,REC=2,ERR=990) 5,6,7,8 +C IF NLREC=4 BUT RECL IS COUNTED IN BYTES AND NO WRITE +C ERROR WAS REPORTED, RECORDS SHOULD HAVE OVERLAPED AND +C THE DATA IS CORRUPTED. + READ(MUNIT,REC=1) IDAT(1),IDAT(2),IDAT(3),IDAT(4) + IF ( IDAT(1) .NE. 1 .OR. IDAT(2) .NE. 2 .OR. + * IDAT(3) .NE. 3 .OR. IDAT(4) .NE. 4 ) IERR = 1 + READ(MUNIT,REC=2) IDAT(1),IDAT(2),IDAT(3),IDAT(4) + IF ( IDAT(1) .NE. 5 .OR. IDAT(2) .NE. 6 .OR. + * IDAT(3) .NE. 7 .OR. IDAT(4) .NE. 8 ) IERR = IERR + 2 + READ(MUNIT,REC=3) IDAT(1),IDAT(2),IDAT(3),IDAT(4) + IF ( IDAT(1) .NE. 9 .OR. IDAT(2) .NE. 10 .OR. + * IDAT(3) .NE. 11 .OR. IDAT(4) .NE. 12 ) IERR = IERR + 4 + +C IF NLREC=1 BUT RECL COUNTED IN WORDS IS USUALLY NOT CAUGHT BY +C THIS ROUTINE, BUT SHOULD BE RATHER HARMLESS. THE ONLY BAD +C EFFECT EXPECTED IS THAT THE EXTERNAL STACK FILE WILL BE FOUR +C TIMES AS LARGE AS NEEDED. + +C WELL, LET'S TRY TO CATCH THAT ONE AS WELL (READ ERROR IS O.K.) + + READ(MUNIT,REC=1,ERR=900) IDAT(1),IDAT(2),IDAT(3),IDAT(4),IDAT(5) + WRITE(MONIOU,*) ' ' + WRITE(MONIOU,*) 'THE HANDLING OF UNFORMATTED DIRECT-ACCESS FILES', + * ' ON YOUR MACHINE SEEMS TO' + WRITE(MONIOU,*) 'BE NOT AS EXPECTED. THE TEMPORARY CORSIKA ', + * 'EXTERNAL STACK FILE MAY BECOME' + WRITE(MONIOU,*) 'LARGER THAN NEEDED BUT NO DATA CORRUPTION IS ', + * 'EXPECTED THERE.' + WRITE(MONIOU,*) 'PERHAPS YOU USED THE BYTERECL OPTION FOR ', + * 'EXTRACTING CORSIKA BUT DO NOT NEED IT.' + WRITE(MONIOU,*) ' ' + + IERR = -1 + RETURN + + 900 CLOSE(MUNIT) + + IF ( IERR .NE. 0 ) THEN + WRITE(MONIOU,*) ' ' + WRITE(MONIOU,*) 'THE HANDLING OF UNFORMATTED DIRECT-ACCESS ', + * 'FILES ON YOUR MACHINE IS NOT AS' + WRITE(MONIOU,*) 'EXPECTED. THIS MAY WELL LEAD TO CORRUPTION ', + * 'OF THE CORSIKA EXTERNAL STACK.' + WRITE(MONIOU,*) 'PERHAPS THIS PROBLEM IS DUE TO A MISSING ', + * 'BYTERECL OPTION FOR EXTRACTING' + WRITE(MONIOU,*) 'CORSIKA FROM THE CMZ FILE. IT MAY ALSO BE ', + * 'DUE TO USING COMPILER FLAGS' + WRITE(MONIOU,*) 'INAPPROPRIATE FOR THE CORSIKA VERSION ', + * 'EXTRACTED.' + WRITE(MONIOU,*) ' ' + ENDIF + + RETURN + + 990 IERR = 99 + GOTO 900 + + END +*CMZ : 09/11/2000 14.19.13 by D. HECK IK3 FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 16/07/99 +C======================================================================= + + SUBROUTINE RHO0DC + +C----------------------------------------------------------------------- +C RHO(0) D(E)C(AY) +C +C TWO PARTICLE DECAY WITH FULL KINEMATIC; ENERGY AND MOMENTA CONSERVED +C RHO(0) DECAYS INTO PI(+) + PI(-) WITH DIPOLE CHARACTERISTIC +C THIS SUBROUTINE IS CALLED FROM RHOGEN. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + + DOUBLE PRECISION AUX2A,BETA,COSTCM,COSTH3,COSTH4, + * GAMMA3,GAMMA4,PHI4,WORK1,WORK2 + INTEGER I + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' RHO0DC: CURPAR=',1P,8E10.3,0P,F10.0) + +C COPY VERTEX COORDINATES INTO SECPAR + DO 10 I = 5,8 + SECPAR(I) = CURPAR(I) + 10 CONTINUE +C SET GENERATION AND LEVEL OF LAST INTERACTION + SECPAR( 9) = GEN + SECPAR(10) = ALEVEL +C RESET POLARIZATION, NOT USED FOR PARTICLES OTHER THAN MUONS YET + SECPAR(11) = 0.D0 + SECPAR(12) = 0.D0 + SECPAR(14) = CURPAR(14) + SECPAR(15) = CURPAR(15) + SECPAR(16) = CURPAR(16) + +C CALCULATE AUXILIARY QUANTITIES + BETA = SQRT( CURPAR(2)**2 - 1.D0 ) / CURPAR(2) + AUX2A = 0.5D0 * PAMA(51) / PAMA(8) + WORK1 = CURPAR(2) * AUX2A + WORK2 = BETA * CURPAR(2) * SQRT( AUX2A**2 - 1.D0 ) + +C DETERMINE POLAR ANGLE IN CM SYSTEM WITH DIPOLE CHARACTERISTICS +C PURE DIPOLE RADIATION: W(COSTH) = 1-3/5*COSTH**2 + 210 CONTINUE + CALL RMMAR( RD,2,1 ) + COSTCM = 2.D0 * RD(1) - 1.D0 + +C PARAMETRIZATION FROM H1 COLLAB. [NUCL.PYS. B463(1996)3] +C THIS PARAMETRIZATION SEEMS UNPHYSICALLY, AS IT RESULTS IN +C NEGATIVE RATE IN FORWARD OR BACKWARD DIRECTION +C IF ( RD(2) .GT. 1.D0 - 1.1982D0 * COSTCM**2 ) GOTO 210 +C PARAMETRIZATION FROM ZEUSS COLLAB. [Z.PHYS. C69(1995)39] + IF ( RD(2) .GT. 1.D0 - 0.8836D0 * COSTCM**2 ) GOTO 210 + + GAMMA3 = WORK1 + WORK2 * COSTCM +C SECOND PRODUCT PARTICLE IS PI(-) + GAMMA4 = CURPAR(2) * (PAMA(51)/PAMA(8)) - GAMMA3 + COSTH4 = MIN( 1.D0, (CURPAR(2)*GAMMA4 - AUX2A) + * / (BETA * CURPAR(2) * SQRT(GAMMA4**2 - 1.D0)) ) + CALL RMMAR( RD,1,1 ) + PHI4 = RD(1)*PI2 + CALL ADDANG(CURPAR(3),CURPAR(4), COSTH4,PHI4, SECPAR(3),SECPAR(4)) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = 9.D0 + SECPAR(2) = GAMMA4 + IF ( DEBUG ) WRITE(MDEBUG,445) (SECPAR(I),I=1,9) + 445 FORMAT(' RHO0DC: SECPAR=',1P,8E10.3,0P,F10.0) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7) + GAMMA4 * PAMA(8) + ENDIF + ENDIF +C FIRST PRODUCT PARTICLE IS PI(+) + COSTH3 = MIN( 1.D0, (CURPAR(2) * GAMMA3 - AUX2A) + * / (BETA * CURPAR(2) * SQRT(GAMMA3**2 - 1.D0)) ) + CALL ADDANG( CURPAR(3),CURPAR(4), COSTH3,PHI4+PI, + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + SECPAR(1) = 8.D0 + SECPAR(2) = GAMMA3 + IF ( DEBUG ) WRITE(MDEBUG,445) (SECPAR(I),I=1,9) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7) + GAMMA3 * PAMA(8) + ENDIF + ENDIF + + RETURN + END +*CMZ : 20/06/2000 15.00.27 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + DOUBLE PRECISION FUNCTION RHOF( ARG ) + +C----------------------------------------------------------------------- +C RHO (DENSITY) F(UNCTION) +C +C CALCULATES DENSITY (G/CM**3) OF ATMOSPHERE DEPENDING ON HEIGHT (CM) +C THIS FUNCTION IS CALLED FROM BOX2, LPMEFFECT, ININKG, CERENK, +C AND INRTAB. +C ARGUMENT: +C ARG = HEIGHT IN CM +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,ATMOSX. +C EXTERNAL ATMOSPHERIC MODELS + COMMON /ATMOSX/ IATMOX,FREFRX + INTEGER IATMOX + LOGICAL FREFRX +*KEND. + + DOUBLE PRECISION ARG + DOUBLE PRECISION RHOFX + EXTERNAL RHOFX + SAVE +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'RHOF : ARG=',SNGL(ARG) + + IF ( IATMOX .GE. 1 ) THEN + RHOF = RHOFX(ARG) + RETURN + ENDIF + + IF ( ARG .LT. HLAY(2) ) THEN + RHOF = BATM(1) * DATM(1) * EXP ( (-ARG) * DATM(1) ) + ELSEIF ( ARG .LT. HLAY(3) ) THEN + RHOF = BATM(2) * DATM(2) * EXP ( (-ARG) * DATM(2) ) + ELSEIF ( ARG .LT. HLAY(4) ) THEN + RHOF = BATM(3) * DATM(3) * EXP ( (-ARG) * DATM(3) ) + ELSEIF ( ARG .LT. HLAY(5) ) THEN + RHOF = BATM(4) * DATM(4) * EXP ( (-ARG) * DATM(4) ) + ELSE + RHOF = DATM(5) + ENDIF + + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE RMMAQ( ISEED,ISEQ,CHOPT ) + +C----------------------------------------------------------------------- +C R(ANDO)M (NUMBER GENERATOR OF) MA(RSAGLIA TYPE INITIALIZATION) +C +C ROUTINE FOR INITIALIZATION OF RMMAR +C THIS SUBROUTINE IS CALLED FROM AAMAIN AND START. +C ARGUMENTS: +C ISEED = SEED TO INITIALIZE A SEQUENCE +C ISEQ = # OF RANDOM SEQUENCE +C CHOPT = CHARACTER TO STEER INITIALIZE OPTIONS +C +C CERN PROGLIB# V113 RMMAQ .VERSION KERNFOR 1.0 +C ORIG. 01/03/89 FCA + FJ +C----------------------------------------------------------------------- + + COMMON /RANMA2/ IU(1030),JSEQ + COMMON /RANMA3/ TWOM24,TWOM48,CD,CM,CINT,MODCNS + INTEGER I97(0:1030),J97(0:1030),NTOT(0:1030),NTOT2(0:1030), + * IJKL(0:1030) + REAL U(1030),C(0:1030),UU(1030) + EQUIVALENCE (IJKL(0),IU(1)),(NTOT(0),IU(2)),(NTOT2(0),IU(3)) + EQUIVALENCE (U(1),IU(4)),(C(0),IU(101)),(I97(0),IU(102)) + EQUIVALENCE (J97(0),IU(103)) + INTEGER ISEED(*) + CHARACTER CHOPT*(*), CCHOPT*12 + LOGICAL FIRST + SAVE UU,FIRST,CCHOPT + DATA FIRST / .TRUE. / +C----------------------------------------------------------------------- + + IF ( FIRST ) THEN + TWOM24 = 2.**(-24) + TWOM48 = 2.**(-48) + CD = 7654321.*TWOM24 + CM = 16777213.*TWOM24 + CINT = 362436.*TWOM24 + MODCNS = 1000000000 + FIRST = .FALSE. + ENDIF + + CCHOPT = CHOPT + IF ( CCHOPT .EQ. ' ' ) THEN + ISEED(1) = 54217137 + ISEED(2) = 0 + ISEED(3) = 0 + CCHOPT = 'S' + JSEQ = 1 + ENDIF + + IF ( INDEX(CCHOPT,'S') .NE. 0 ) THEN + IF ( ISEQ .GT. 0 ) JSEQ = ISEQ + IBASE = (JSEQ-1)*103 + IF ( INDEX(CCHOPT,'V') .NE. 0 ) THEN + DO 10 JJ = 1,103 + IU(IBASE+JJ) = ISEED(JJ) + 10 CONTINUE + ELSE + IJKL(IBASE) = ISEED(1) + NTOT(IBASE) = ISEED(2) + NTOT2(IBASE) = ISEED(3) + IJ = IJKL(IBASE) / 30082 + KL = IJKL(IBASE) - 30082*IJ + I = MOD(IJ/177, 177) + 2 + J = MOD(IJ, 177) + 2 + K = MOD(KL/169, 178) + 1 + L = MOD(KL, 169) + DO 30 II = 1,97 + S = 0. + T = .5 + DO 20 JJ = 1,24 + M = MOD(MOD(I*J,179)*K, 179) + I = J + J = K + K = M + L = MOD(53*L+1, 169) + IF ( MOD(L*M,64) .GE. 32 ) S = S+T + T = 0.5*T + 20 CONTINUE + UU(II) = S + 30 CONTINUE + CC = CINT + II97 = 97 + IJ97 = 33 +C COMPLETE INITIALIZATION BY SKIPPING (NTOT2*MODCNS+NTOT) RANDOMNUMBERS + NITER = MODCNS + DO 50 LOOP2 = 1,NTOT2(IBASE)+1 + IF ( LOOP2 .GT. NTOT2(IBASE) ) NITER = NTOT(IBASE) + DO 40 IDUM = 1,NITER + UNI = UU(II97)-UU(IJ97) + IF ( UNI .LT. 0. ) UNI = UNI+1. + UU(II97) = UNI + II97 = II97-1 + IF ( II97 .EQ. 0 ) II97 = 97 + IJ97 = IJ97-1 + IF ( IJ97 .EQ. 0 ) IJ97 = 97 + CC = CC - CD + IF ( CC .LT. 0. ) CC = CC+CM + 40 CONTINUE + 50 CONTINUE + I97(IBASE) = II97 + J97(IBASE) = IJ97 + C(IBASE) = CC + DO 60 JJ = 1,97 + U(IBASE+JJ) = UU(JJ) + 60 CONTINUE + ENDIF + ELSEIF ( INDEX(CCHOPT,'R') .NE. 0 ) THEN + IF ( ISEQ .GT. 0 ) THEN + JSEQ = ISEQ + ELSE + ISEQ = JSEQ + ENDIF + IBASE = (JSEQ-1)*103 + IF ( INDEX(CCHOPT,'V') .NE. 0 ) THEN + NCOPY = 103 + ELSE + NCOPY = 3 + ENDIF + DO 70 JJ = 1,NCOPY + ISEED(JJ) = IU(IBASE+JJ) + 70 CONTINUE + ENDIF + RETURN + END +*CMZ : 28/02/2002 13.08.19 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE RMMAR( RVEC,LENV,ISEQ ) + +C----------------------------------------------------------------------- +C R(ANDO)M (NUMBER GENERATOR OF) MAR(SAGLIA TYPE) +C +C THESE ROUTINES (RMMAR,RMMAQ) ARE TAKEN FROM THE CERN LIBRARIES +C DESCRIPTION OF ALGORITHM SEE THERE +C THIS SUBROUTINE IS CALLED FROM MANY ROUTINES. +C ARGUMENTS: +C RVEC = VECTOR FIELD TO BE FILLED WITH RANDOM NUMBERS +C LENV = LENGTH OF VECTOR (# OF RANDNUMBERS TO BE GENERATED) +C ISEQ = # OF RANDOM SEQUENCE +C +C CERN PROGLIB# V113 RMMAR .VERSION KERNFOR 1.0 +C ORIG. 01/03/89 FCA + FJ +C----------------------------------------------------------------------- + + REAL RVEC(*) + COMMON /RANMA2/ IU(1030),JSEQ + COMMON /RANMA3/ TWOM24,TWOM48,CD,CM,CINT,MODCNS + INTEGER I97(0:1030),J97(0:1030),NTOT(0:1030),NTOT2(0:1030), + * IJKL(0:1030) + REAL U(1030),C(0:1030) + EQUIVALENCE (IJKL(0),IU(1)),(NTOT(0),IU(2)),(NTOT2(0),IU(3)) + EQUIVALENCE (U(1),IU(4)),(C(0),IU(101)),(I97(0),IU(102)) + EQUIVALENCE (J97(0),IU(103)) + SAVE +C----------------------------------------------------------------------- + + IF ( ISEQ .GT. 0 ) JSEQ = ISEQ + IBASE = (JSEQ-1)*103 + + DO 100 IVEC = 1,LENV + UNI = U(IBASE+I97(IBASE))-U(IBASE+J97(IBASE)) + IF ( UNI .LT. 0. ) UNI = UNI+1. + U(IBASE+I97(IBASE)) = UNI + I97(IBASE) = I97(IBASE)-1 + IF ( I97(IBASE) .EQ. 0 ) I97(IBASE) = 97 + J97(IBASE) = J97(IBASE)-1 + IF ( J97(IBASE) .EQ. 0 ) J97(IBASE) = 97 + C(IBASE) = C(IBASE) - CD + IF ( C(IBASE) .LT. 0. ) C(IBASE) = C(IBASE)+CM + UNI = UNI-C(IBASE) + IF ( UNI .LT. 0. ) UNI = UNI+1. +C REPLACE EXACT ZEROES BY UNIFORM DISTR. *2**-24 + IF ( UNI .EQ. 0. ) THEN + UNI = TWOM24*U(2) +C AN EXACT ZERO HERE IS VERY UNLIKELY, BUT LET'S BE SAFE. + IF ( UNI .EQ. 0. ) UNI = TWOM48 + ENDIF + RVEC(IVEC) = UNI + 100 CONTINUE + + NTOT(IBASE) = NTOT(IBASE) + LENV + IF ( NTOT(IBASE) .GE. MODCNS ) THEN + NTOT2(IBASE) = NTOT2(IBASE) + 1 + NTOT(IBASE) = NTOT(IBASE) - MODCNS + ENDIF + + RETURN + END +*CMZ : 28/02/2002 13.12.11 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 27/04/94 +C======================================================================= + + SUBROUTINE SDPM + +C----------------------------------------------------------------------- +C S(TARTING) D(UAL) P(ARTON) M(ODEL) +C +C THIS ROUTINE DETERMINES THE TARGET NUCLEUS. +C IT CALLS ALSO THE VARIOUS INTERACTION MODELS. +C FOR HDPM, THIS ROUTINE LOOKS, HOW MANY NUCLEONS INTERACT AND WHICH +C RESIDUAL FRAGMENT OF THE PROJECTILE NUCLEUS REMAINS. +C THIS SUBROUTINE IS CALLED FROM NUCINT AND PIGEN. +C +C REDESIGN: D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,ISTA. + COMMON /ISTA/ IFINET,IFINNU,IFINKA,IFINPI,IFINHY + INTEGER IFINET,IFINNU,IFINKA,IFINPI,IFINHY +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEEP,NCSNCS. + COMMON /NCSNCS/ SIGN30,SIGN45,SIGN60,SIGO30,SIGO45,SIGO60, + * SIGA30,SIGA45,SIGA60,PNOA30,PNOA45,PNOA60, + * SIG30A,SIG45A,SIG60A + DOUBLE PRECISION SIGN30(56),SIGN45(56),SIGN60(56), + * SIGO30(56),SIGO45(56),SIGO60(56), + * SIGA30(56),SIGA45(56),SIGA60(56), + * PNOA30(1540,3),PNOA45(1540,3),PNOA60(1540,3), + * SIG30A(56),SIG45A(56),SIG60A(56) +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEEP,VKIN. + COMMON /VKIN/ BETACM + DOUBLE PRECISION BETACM +*KEEP,VENUS. + COMMON /VENUS/ ISH00,IVERVN,MTAR99,FVENUS,FVENSG + INTEGER ISH00,IVERVN,MTAR99 + LOGICAL FVENUS,FVENSG +*KEND. + + DOUBLE PRECISION PFRX(60),PFRY(60) + DOUBLE PRECISION COSTET,EA,P,PHIV,PTM,PT2, + * SIGMAA,SIGMAN,SIGMAO,SIG45,S45SQ,S4530 + DOUBLE PRECISION CGHSIG + DOUBLE PRECISION EKIN + + INTEGER ITYP(60),I,IA,IANEW,INACTA,INACTZ,INDEX,INEUTR, + * IZ,IZNEW,J,JFIN,KNEW,L,LL,NPRPRO,NNEPRO + SAVE + EXTERNAL CGHSIG +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' SDPM : CURPAR=',1P,9E10.3) + +C IA IS MASS NUMBER OF PROJECTILE + IA = ITYPE / 100 + IF ( IA .GT. 56 ) THEN + WRITE(MONIOU,444) (CURPAR(I),I=1,9) + WRITE(MONIOU,*) 'SDPM : NOT FORESEEN PARTICLE TYPE=',ITYPE + STOP + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C TREATMENT OF GAMMAS COMING FROM EGS4 (PIGEN) + IF ( ITYPE .EQ. 1 ) THEN +C RATIOS OF CROSS-SECTIONS GO LIKE A**0.91 +C 14**0.91 = 11.04; 16**0.91 = 12.47; 40**0.91 = 28.70 + FRACTN = COMPOS(1) * 11.04019D0 + FRCTNO = FRACTN + COMPOS(2) * 12.46663D0 + SIGAIR = FRCTNO + COMPOS(3) * 28.69952D0 +C TARGET IS CHOSEN AT RANDOM + CALL RMMAR( RD,1,1 ) + IF ( RD(1)*SIGAIR .LE. FRACTN ) THEN +C INTERACTION WITH NITROGEN + LT = 1 + TAR = 14.D0 + ELSEIF ( RD(1)*SIGAIR .LE. FRCTNO ) THEN +C INTERACTION WITH OXYGEN + LT = 2 + TAR = 16.D0 + ELSE +C INTERACTION WITH ARGON + LT = 3 + TAR = 40.D0 + ENDIF + +C GAMMAS ARE TREATED BY VENUS, IF SUFFICIENT ENERGY + IF ( FVENUS .AND. CURPAR(2) .GT. HILOELB ) THEN + CALL VENLNK + ELSE + CALL HDPM + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C NORMAL HADRON PROJECTILE + ELSEIF ( ITYPE .LT. 100 ) THEN + +C WITH WHAT KIND OF TARGET DOES PROJECTILE INTERACT? + IF ( FIXTAR ) THEN +C TARGET OF FIRST INTERACTION IS FIXED + LT = N1STTR + IF ( N1STTR .EQ. 1 ) THEN + TAR = 14.D0 + ELSEIF ( N1STTR .EQ. 2 ) THEN + TAR = 16.D0 + ELSE + TAR = 40.D0 + ENDIF + FIXTAR = .FALSE. +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 + ELSE +C TARGET IS CHOSEN AT RANDOM ACCORDING TO CROSS-SECTION +C SIGAIR, FRACTN, FRCTNO HAVE BEEN DETERMINED IN BOX2/VENSIG + IF ( FVENSG ) GOTO 333 +C SIGMA IS ENERGY DEPENDENT INELASTIC NUCLEON-NUCLEON CROSS-SECTION +C AND IS SET IN BOX2 +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS FOR PROJECTICLE WITH MASS NUMBER 1 + SIGMAN = (1.D0 - 2.D0 * S45SQ) * SIGN45(1) + * +(S45SQ - S4530) * SIGN30(1) + * +(S45SQ + S4530) * SIGN60(1) + FRACTN = COMPOS(1) * SIGMAN + SIGMAO = (1.D0 - 2.D0 * S45SQ) * SIGO45(1) + * +(S45SQ - S4530) * SIGO30(1) + * +(S45SQ + S4530) * SIGO60(1) + FRCTNO = FRACTN + COMPOS(2) * SIGMAO + SIGMAA = (1.D0 - 2.D0 * S45SQ) * SIGA45(1) + * +(S45SQ - S4530) * SIGA30(1) + * +(S45SQ + S4530) * SIGA60(1) +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER 1 + SIGAIR = FRCTNO + COMPOS(3)*SIGMAA + 333 CONTINUE + CALL RMMAR( RD,1,1 ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'SDPM : FRACTN=',SNGL(FRACTN), + * ' FRCTNO=',SNGL(FRCTNO),' RD=',RD(1) + IF ( RD(1)*SIGAIR .LE. FRACTN ) THEN +C INTERACTION WITH NITROGEN + LT = 1 + TAR = 14.D0 + ELSEIF ( RD(1)*SIGAIR .LE. FRCTNO ) THEN +C INTERACTION WITH OXYGEN + LT = 2 + TAR = 16.D0 + ELSE +C INTERACTION WITH ARGON + LT = 3 + TAR = 40.D0 + ENDIF + ENDIF + + IF ( FVENUS ) THEN +C MESONS, NUCLEONS AND STRANGE BARYONS ARE TREATED BY VENUS (JAN 95) + IF ( ITYPE .GE. 7 .AND. ITYPE .LE. 32 ) THEN + CALL VENLNK + ELSE + CALL HDPM + ENDIF + ELSE + CALL HDPM + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C HEAVY PRIMARY INCIDENT WITH IA NUCLEONS + ELSEIF ( IA .LE. 56 ) THEN + + IZ = MOD(ITYPE,100) +C WITH WHAT KIND OF TARGET DOES PROJECTILE INTERACT? + IF ( FIXTAR ) THEN +C TARGET OF FIRST INTERACTION IS FIXED + LT = N1STTR + IF ( N1STTR .EQ. 1 ) THEN + TAR = 14.D0 + ELSEIF ( N1STTR .EQ. 2 ) THEN + TAR = 16.D0 + ELSE + TAR = 40.D0 + ENDIF + FIXTAR = .FALSE. + CALL RMMAR( RD,2,1 ) +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 + ELSE +C ONLY INELASTIC INTERACTIONS WITH HEAVY PRIMARY/FRAGMENT +C SIGMA IS ENERGY DEPENDENT INELASTIC NUCLEON-NUCLEON CROSS-SECTION +C AND IS SET IN BOX2/VENSIG +C AUXIL. QUANTITIES FOR INTERPOLATION + SIG45 = SIGMA - 45.D0 + S45SQ = SIG45**2 / 450.D0 + S4530 = SIG45 / 30.D0 +C INELASTIC CROSS-SECTIONS FOR PROJECTICLE WITH MASS NUMBER IA + SIGMAN = (1.D0 - 2.D0 * S45SQ) * SIGN45(IA) + * +(S45SQ - S4530) * SIGN30(IA) + * +(S45SQ + S4530) * SIGN60(IA) + FRACTN = COMPOS(1) * SIGMAN + SIGMAO = (1.D0 - 2.D0 * S45SQ) * SIGO45(IA) + * +(S45SQ - S4530) * SIGO30(IA) + * +(S45SQ + S4530) * SIGO60(IA) + FRCTNO = FRACTN + COMPOS(2) * SIGMAO + SIGMAA = (1.D0 - 2.D0 * S45SQ) * SIGA45(IA) + * +(S45SQ - S4530) * SIGA30(IA) + * +(S45SQ + S4530) * SIGA60(IA) +C INELASTIC CROSS-SECTIONS OF AIR FOR PROJECTILE WITH MASS NUMBER IA + SIGAIR = FRCTNO +COMPOS(3)*SIGMAA + 334 CONTINUE +C TARGET IS CHOSEN AT RANDOM + CALL RMMAR( RD,2,1 ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'SDPM : FRACTN=',SNGL(FRACTN), + * ' FRCTNO=',SNGL(FRCTNO),' RD=',RD(1) + IF ( RD(1)*SIGAIR .LE. FRACTN ) THEN +C INTERACTION WITH NITROGEN + LT = 1 + TAR = 14.D0 + ELSEIF ( RD(1)*SIGAIR .LE. FRCTNO ) THEN +C INTERACTION WITH OXYGEN + LT = 2 + TAR = 16.D0 + ELSE +C INTERACTION WITH ARGON + LT = 3 + TAR = 40.D0 + ENDIF + ENDIF +C TREAT NUCLEUS BY VENUS, IF SELECTED AND ENERGY/NUCLEON HIGH ENOUGH + IF ( FVENUS .AND. PAMA(ITYPE)*GAMMA .GT. HILOELB*IA ) THEN + CALL VENLNK + RETURN + ENDIF + +C TREATMENT OF NUCLEUS-NUCLEUS INTERACTION IN HDPM BY SUPERPOSITION +C +C INDEX CALCULATION 1 P( I*(I-3)*0.5+J+1 ) +C IZ IS NUMBER OF PROTONS IN PROJECTILE +C LT IS INDEX FOR TARGET 1 = N, 2 = O, 3 = AR +C INACTA IS NUMBER OF INTERACTING NUCLEONS +C INACTZ IS NUMBER OF INTERACTING PROTONS + +C LOOK, HOW MANY NUCLEONS INTERACT + DO 100 J = 1,IA-1 + INACTA = J + INDEX = IA * (IA-3) * 0.5 + 1 + J + P = ( 1.D0 - S45SQ *2.D0 ) * PNOA45(INDEX,LT) + * +( S45SQ - S4530 ) * PNOA30(INDEX,LT) + * +( S45SQ + S4530 ) * PNOA60(INDEX,LT) + IF ( RD(2) .LT. P ) GOTO 110 + 100 CONTINUE +C ALL NUCLEONS INTERACT (INACTA EQUAL IA) + INACTA = INACTA + 1 + + 110 CONTINUE + IANEW = IA - INACTA + +C REMAINING PROJECTILE WITH IANEW NUCLEONS + DO 120 L = 2,4 + SECPAR(L) = CURPAR(L) + 120 CONTINUE + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C PROJECTILE NUCLEUS FRAGMENTS COMPLETELY, WRITE SPECTATOR NUCLEONS +C ONTO STACK + IF ( NFRAGM .EQ. 0 ) THEN +C LOOK, HOW MANY PROTONS AND NEUTRONS ARE FORMED + IZNEW = IANEW / 2.15D0 + 0.7D0 + INEUTR = IANEW - IZNEW + INACTZ = MAX( IZ-IZNEW, 0 ) + + IF ( IZNEW .GT. 0 ) THEN +C PROTONS + SECPAR(1) = 14.D0 + DO 300 L = 1,IZNEW + CALL TSTACK + 300 CONTINUE + ENDIF + IF ( INEUTR .GT. 0 ) THEN +C NEUTRONS + SECPAR(1) = 13.D0 + DO 310 L = 1,INEUTR + CALL TSTACK + 310 CONTINUE + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C NO FRAGMENTATION, BUT SUCCESSIVE ABRASION OF PROJECTILE NUCLEUS + ELSE + IF ( DEBUG ) WRITE( MDEBUG,111 ) TAR,INACTA,IANEW + 111 FORMAT(' SDPM : TARGET=',F4.0,' INACTA=',I4,' IANEW=',I4) + +C ALL NUCLEONS INTERACT, NO RESIDUAL NUCLEUS + IF ( IANEW .EQ. 0 ) THEN + INACTZ = IZ + IF ( DEBUG ) WRITE(MDEBUG,554) (CURPAR(I),I=1,9) + 554 FORMAT(' SDPM : CURPAR=',1P,9E10.3) + KNEW = 0 + +C REMAINING NUCLEUS IS A NUCLEON + ELSEIF ( IANEW .EQ. 1 ) THEN + CALL RMMAR( RD,1,1 ) + IZNEW = NINT(RD(1)) + INACTZ = IZ - IZNEW + KNEW = 13 + IZNEW + +C REMAINING NUCLEUS GETS A CHARGE WHICH IS ABOUT HALF THE MASS NUMBER + ELSEIF ( IANEW .GT. 1 ) THEN + IZNEW = FLOAT(IANEW) / 2.15D0 + 0.7D0 + INACTZ = MAX( IZ - IZNEW, 0 ) + KNEW = IANEW*100 + IZNEW + +C REMAINING NUCLEUS DEEXCITES BY EVAPORATION OF NUCLEONS/ALPHA PARTCLS. + IF ( NFRAGM .GE. 2 ) THEN + JFIN=0 + CALL VAPOR(IA,KNEW,JFIN,ITYP,PFRX,PFRY) + IF ( JFIN .LE. 0 ) GOTO 190 + KNEW = 0 + DO 135 J = 1,JFIN + EA = GAMMA * PAMA(ITYP(J)) + IF (DEBUG) WRITE(MDEBUG,*) 'SDPM : J,ITYP,EA=', + * J,ITYP,SNGL(EA) + PTM = EA**2 - PAMA(ITYP(J))**2 + PT2 = PFRX(J)**2 + PFRY(J)**2 + IF ( PT2 .GE. PTM ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'SDPM : PT REJECT ',J + GOTO 135 + ENDIF + IF ( PTM .GT. 0.D0 ) THEN + COSTET = SQRT( 1.D0 - PT2/PTM ) + ELSE + COSTET = 1.D0 + ENDIF + IF ( PFRX(J) .NE. 0.D0 .OR. PFRY(J) .NE. 0.D0 ) THEN + PHIV = ATAN2( PFRY(J), PFRX(J) ) + ELSE + PHIV = 0.D0 + ENDIF + CALL ADDANG( COSTHE,PHI, COSTET,PHIV, + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + IF ( J .LT. JFIN ) THEN + SECPAR(1) = ITYP(J) + CALL TSTACK + ELSE + KNEW = ITYP(JFIN) + IANEW = KNEW/100 + ENDIF + ELSE + IF (DEBUG) WRITE(MDEBUG,*) 'SDPM : ANGLE REJECT ',J + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + EA + ENDIF + ENDIF + 135 CONTINUE + ENDIF + ENDIF + +C REMAINING NUCLEUS: MASS 5 CANNOT BE TREATED IN BOX2 + IF ( KNEW/100 .EQ. 5 ) THEN + IF ( MOD(KNEW,100) .GE. 3 ) THEN +C MASS 5: SPLIT OFF ONE PROTON + SECPAR(1) = 14.D0 + CALL TSTACK + KNEW = KNEW - 101 + ELSE +C MASS 5: SPLIT OFF ONE NEUTRON + SECPAR(1) = 13.D0 + CALL TSTACK + KNEW = KNEW - 100 + ENDIF + +C REMAINING NUCLEUS: MASS 8 CANNOT BE TREATED IN BOX2 + ELSEIF ( KNEW/100 .EQ. 8 ) THEN + IF ( MOD(KNEW,100) .GE. 5 ) THEN +C MASS 8: SPLIT OFF ONE PROTON + SECPAR(1) = 14.D0 + CALL TSTACK + KNEW = KNEW - 101 + ELSEIF ( MOD(KNEW,100) .LE. 3 ) THEN +C MASS 8: SPLIT OFF ONE NEUTRON + SECPAR(1) = 13.D0 + CALL TSTACK + KNEW = KNEW - 100 + ELSE +C MASS 8: SPLIT OFF ONE ALPHA PARTICLE + SECPAR(1) = 402.D0 + CALL TSTACK + KNEW = KNEW - 402 + ENDIF + ENDIF + + IF ( KNEW .GT. 0 ) THEN + SECPAR(1) = KNEW + CALL TSTACK + IF ( DEBUG ) WRITE(MDEBUG,555) (SECPAR(I),I=1,9) + 555 FORMAT (' SDPM : SECPAR=',1P,8E10.3,0P,F10.0) + ENDIF + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C HERE THE REACTING NUCLEONS ARE TREATED + 190 NPRPRO = INACTZ + NNEPRO = INACTA - INACTZ + IF ( DEBUG ) WRITE(MDEBUG,*) 'SDPM : REACTING PROTONS=', + * NPRPRO,' NEUTRONS=',NNEPRO + +C TREAT INTERACTING NEUTRONS FROM PROJECTILE + IF ( NNEPRO .GE. 1 ) THEN + CURPAR(1) = 13.D0 + ITYPE = 13 +C CALCULATE GAMMA, BETA AND ENERGY IN CENTER OF MASS + GCM = SQRT( GAMMA * 0.5D0 + 0.5D0 ) + ECM = PAMA(ITYPE) * GCM * 2.D0 + BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) + DO 200 LL = 1,NNEPRO + IF ( ECM .LE. HILOECM ) THEN +C USE GHEISHA AND CALCULATE THE CROSS-SECTION FOR GHEISHA + ELAB = PAMA(ITYPE) * GAMMA + PLAB = ELAB * BETA + EKIN = ELAB - PAMA(ITYPE) + SIGAIR = CGHSIG(SNGL(PLAB),SNGL(EKIN),ITYPE) + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'SDPM : SIGAIR=',SNGL(SIGAIR) + CALL CGHEI + ELSE +C DUAL PARTON MODEL + CALL HDPM + ENDIF + 200 CONTINUE + ENDIF + +C TREAT INTERACTING PROTONS FROM PROJECTILE IN SUBROUT. HDPM + IF ( NPRPRO .GE. 1 ) THEN + CURPAR(1) = 14.D0 + ITYPE = 14 +C CALCULATE GAMMA, BETA AND ENERGY IN CENTER OF MASS + GCM = SQRT( GAMMA * 0.5D0 + 0.5D0 ) + ECM = PAMA(ITYPE) * GCM * 2.D0 + BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) + DO 210 LL = 1,NPRPRO + IF ( ECM .LE. HILOECM ) THEN +C USE GHEISHA AND CALCULATE THE CROSS-SECTION FOR GHEISHA + ELAB = PAMA(ITYPE) * GAMMA + PLAB = ELAB * BETA + EKIN = ELAB - PAMA(ITYPE) + SIGAIR = CGHSIG(SNGL(PLAB),SNGL(EKIN),ITYPE) + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'SDPM : SIGAIR=',SNGL(SIGAIR) + CALL CGHEI + ELSE +C DUAL PARTON MODEL + CALL HDPM + ENDIF + 210 CONTINUE + ENDIF + +C ALL PARTICLES, INCLUDING THE LEADING ONE, ARE NOW WRITTEN TO STACK + + ELSE + WRITE(MONIOU,444) (CURPAR(I),I=1,9) + WRITE(MONIOU,*) 'SDPM : NOT FORESEEN PARTICLE TYPE=',ITYPE + STOP + ENDIF + + RETURN + END +*CMZ : 15/06/2000 16.19.29 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE SEKDAT( IJAHR,IMONA,ITAGE,ISTUN,IMINU,ISEKU ) + +C----------------------------------------------------------------------- +C SEK(UNDEN) DAT(UM) +C +C GIVES TIME AND DATE ON UNIX IN UNIVERSAL TIME (UT) ON +C UNIX(-LIKE) SYSTEMS. +C LINKING WITH EXTRA TIMER FUNCTION MAY BE REQUIRED. +C THIS SUBROUTINE IS CALLED FROM PRTIME. +C ARGUMENTS: +C IJAHR = YEAR +C IMONA = MONTH +C ITAGE = DAY +C ISTUN = HOUR +C IMINU = MINUTE +C ISEKU = SECOND +C +C DESIGN : J. OEHLSCHLAEGER IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE + + REAL RJAHR + INTEGER I,IJAHR,ILANG,ILEAP,IMINU,IMONA,ISECO,ISEKU, + * ISTUN,ITAGE + INTEGER IMONS(13,4) + SAVE + DATA IMONS/ 0,31,59,90,120,151,181,212,243,273,304,334,365, + + 0,31,60,91,121,152,182,213,244,274,305,335,366, + + 0,31,28,31, 30, 31, 30, 31, 31, 30, 31, 30, 31, + + 0,31,29,31, 30, 31, 30, 31, 31, 30, 31, 30, 31 / +C----------------------------------------------------------------------- + + CALL TIMER( ISECO ) +C SECONDS, MINUTS, HOURS, YEAR + ISEKU = MOD(ISECO,60) + ISECO = ISECO/60 + IMINU = MOD(ISECO,60) + ISECO = ISECO/60 + ISTUN = MOD(ISECO,24) + ISECO = ISECO/24 + ITAGE = ISECO + RJAHR = 2.73785E-3*ITAGE+1.4E-3 + IJAHR = 1970 + INT(RJAHR) +C LEAP DAYS + ILEAP = 0 + ILANG = 1 + DO 1 I = 1970,IJAHR + IF ( (MOD(I,4) .EQ. 0 .AND. MOD(I,100) .NE. 0 ) + + .OR. MOD(I,400) .EQ. 0 ) THEN + ILEAP = ILEAP + 1 + IF ( I .EQ. IJAHR ) THEN + ILANG = 2 + ILEAP = ILEAP - 1 + ENDIF + ENDIF + 1 CONTINUE + ITAGE = ITAGE - INT(RJAHR)*365 - ILEAP + 1 + IF ( I .EQ. IJAHR+4 .AND. ITAGE .LT. IMONS(3,2) ) ITAGE=ITAGE+1 +C MONTH AND DAY + DO 2 I = 2,13 + IF ( IMONS(I,ILANG) .GT. ITAGE ) GOTO 3 + 2 CONTINUE + 3 CONTINUE + IMONA = I-1 + ITAGE = ITAGE-IMONS(IMONA,ILANG) + IF ( ITAGE .EQ. 0 ) THEN + ITAGE = IMONS(IMONA,2+ILANG) + IMONA = IMONA - 1 + ENDIF + RETURN + END +*CMZ : 01/03/2002 14.34.22 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE STAEND + +C----------------------------------------------------------------------- +C STA(RT) END +C +C SUBROUTINE FOR GETTING THE CONTROL PRINTOUT OF THE CONSTANT ARRAYS +C PRINT CONTROL OUTPUT +C THIS SUBROUTINE IS CALLED FROM AAMAIN AND START. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,EDECAY. + COMMON /EDECAY/ CETA + DOUBLE PRECISION CETA(5) +*KEEP,KAONS. + COMMON /KAONS/ CKA + DOUBLE PRECISION CKA(80) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STRBAR. + COMMON /STRBAR/ CSTRBA + DOUBLE PRECISION CSTRBA(11) +*KEEP,ATMOSX. +C EXTERNAL ATMOSPHERIC MODELS + COMMON /ATMOSX/ IATMOX,FREFRX + INTEGER IATMOX + LOGICAL FREFRX +*KEND. + + DOUBLE PRECISION HEIGH + INTEGER I + SAVE + EXTERNAL HEIGH +C----------------------------------------------------------------------- + +C PRINT CONTROL OUTPUT + WRITE(MONIOU,103) (C(I),I=1,50) + 103 FORMAT (//' ',10('='),' CONSTANTS AND PARAMETERS ',43('=') + * //' PHYSICAL CONSTANTS C(1) TO C(50)', + * / (1P,4(E15.8,1X),E15.8) ) + WRITE(MONIOU,110) (CKA(I),I=1,80) + 110 FORMAT (//' CONSTANTS FOR KAONS CKA(1) TO CKA(80)' + * / (1P,4(E15.8,1X),E15.8) ) + WRITE(MONIOU,114) (CETA(I),I=1,5) + 114 FORMAT (//' CONSTANTS FOR ETAS CETA(1) TO CETA(5)' + * / (1P,4(E15.8,1X),E15.8) ) + WRITE(MONIOU,115) (CSTRBA(I),I=1,11) + 115 FORMAT (//' CONSTANTS FOR STRANGE BARYONS CSTRBA(1) TO ', + * 'CSTRBA(11)'/ (1P,4(E15.8,1X),E15.8) ) + + WRITE(MONIOU,200) + 200 FORMAT(//' ',10('='),' ATMOSPHERE ', 57('=')/ ) + IF ( IATMOX .GE. 1 ) THEN + WRITE(MONIOU,299) IATMOX + 299 FORMAT(' ( EXTERNAL ATMOSPHERE FROM TABLE',I3,' AS FITTED )'/) + ELSEIF ( MODATM .EQ. 0 ) THEN + WRITE(MONIOU,300) + 300 FORMAT(' ( ATMOSPHERE GIVEN BY INPUT (LAYER 5 UNCHANGED)') + ELSEIF ( MODATM .EQ. 1 ) THEN + WRITE(MONIOU,301) + 301 FORMAT(' ( US STANDARD ATMOSPHERE PARAMETRIZED BY LINSLEY )') + ELSEIF ( MODATM .EQ. 2 ) THEN + WRITE(MONIOU,302) + 302 FORMAT(' ( ATMOSPHERE AT115 PARAMETRIZED BY H. ULRICH )') + ELSEIF ( MODATM .EQ. 3 ) THEN + WRITE(MONIOU,303) + 303 FORMAT(' ( ATMOSPHERE AT223 PARAMETRIZED BY H. ULRICH )') + ELSEIF ( MODATM .EQ. 4 ) THEN + WRITE(MONIOU,304) + 304 FORMAT(' ( ATMOSPHERE AT511 PARAMETRIZED BY H. ULRICH )') + ELSEIF ( MODATM .EQ. 5 ) THEN + WRITE(MONIOU,305) + 305 FORMAT(' ( ATMOSPHERE AT616 PARAMETRIZED BY H. ULRICH )') + ELSEIF ( MODATM .EQ. 6 ) THEN + WRITE(MONIOU,306) + 306 FORMAT(' ( ATMOSPHERE AT822 PARAMETRIZED BY H. ULRICH )') + ELSEIF ( MODATM .EQ. 7 ) THEN + WRITE(MONIOU,307) + 307 FORMAT(' ( ATMOSPHERE AT1014 PARAMETRIZED BY H. ULRICH )') + ELSEIF ( MODATM .EQ. 8 ) THEN + WRITE(MONIOU,308) + 308 FORMAT(' ( ATMOSPHERE AT1224 PARAMETRIZED BY H. ULRICH )') + ELSEIF ( MODATM .EQ. 9 ) THEN + WRITE(MONIOU,309) + 309 FORMAT(' ( ATMOSPHERE GIVEN BY INPUT (LAYER 5 UNCHANGED)') + ELSEIF ( MODATM .EQ. 10 ) THEN + WRITE(MONIOU,310) + 310 FORMAT(' ( ATMOSPHERE GIVEN BY INPUT (LAYER 5 CHANGED) )') + ELSEIF ( MODATM .EQ. 11 ) THEN + WRITE(MONIOU,311) + 311 FORMAT(' ( SOUTH POLE ATMOSPHERE FOR 97MAR31 (MSIS-90-E) )') + ELSEIF ( MODATM .EQ. 12 ) THEN + WRITE(MONIOU,312) + 312 FORMAT(' ( SOUTH POLE ATMOSPHERE FOR 97JUL01 (MSIS-90-E) )') + ELSEIF ( MODATM .EQ. 13 ) THEN + WRITE(MONIOU,313) + 313 FORMAT(' ( SOUTH POLE ATMOSPHERE FOR 97OCT01 (MSIS-90-E) )') + ELSEIF ( MODATM .EQ. 14 ) THEN + WRITE(MONIOU,314) + 314 FORMAT(' ( SOUTH POLE ATMOSPHERE FOR 97DEC31 (MSIS-90-E) )') + ELSEIF ( MODATM .EQ. 15 ) THEN + WRITE(MONIOU,315) + 315 FORMAT(' ( SOUTH POLE ATMOSPHERE FOR JANUARY, LIPARI(GS) )') + ELSEIF ( MODATM .EQ. 16 ) THEN + WRITE(MONIOU,316) + 316 FORMAT(' ( SOUTH POLE ATMOSPHERE FOR AUGUST, LIPARI(GS) )') + + ENDIF + WRITE(MONIOU,400) (HLAY(I)*1.D-6,HLAY(I+1)*1.D-6, + * AATM(I),BATM(I),CATM(I)*1.E-5,I=1,4), + * HLAY(5)*1.D-6,HLAY(6)*1.D-6, AATM(5),CATM(5)*1.E-5 + 400 FORMAT(' HEIGHT H IN KM GIVES THICKNESS OF ATMOSPHERE T IN ', + * 'G/CM**2'/1P,' H = ',F5.1,'...',F5.1,' KM ---> T = ', + * E12.5,' +',E11.4,' * EXP( -H /',E11.4,')'/ + * ' H = ',F5.1,'...',F5.1,' KM ---> T = ', + * E12.5,' +',E11.4,' * EXP( -H /',E11.4,')'/ + * ' H = ',F5.1,'...',F5.1,' KM ---> T = ', + * E12.5,' +',E11.4,' * EXP( -H /',E11.4,')'/ + * ' H = ',F5.1,'...',F5.1,' KM ---> T = ', + * E12.5,' +',E11.4,' * EXP( -H /',E11.4,')'/ + * ' H = ',F5.1,'...',F5.1,' KM ---> T = ', + * E12.5,' - H /',E11.4 ) + + RETURN + END +*CMZ : 01/03/2002 14.34.22 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE START + +C----------------------------------------------------------------------- +C START +C +C PRINTS HEADER AND ALL SELECTED OPTIONS +C PERFORMS INITIALIZATIONS AND CHECKS AT THE BEGINNING OF RUN. +C CALLS DATAC TO READ IN DATA CARDS. +C INITIALIZES ATMOSPHERIC MODELS +C CHECKS AND INITIALIZES SELECTED HADRONIC INTERACTION MODEL. +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,EDECAY. + COMMON /EDECAY/ CETA + DOUBLE PRECISION CETA(5) +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,ETHMAP. + COMMON /ETHMAP/ ECTMAP,ELEFT + DOUBLE PRECISION ECTMAP,ELEFT +*KEEP,KAONS. + COMMON /KAONS/ CKA + DOUBLE PRECISION CKA(80) +*KEEP,MAGNET. + COMMON /MAGNET/ BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT + DOUBLE PRECISION BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,NCSNCS. + COMMON /NCSNCS/ SIGN30,SIGN45,SIGN60,SIGO30,SIGO45,SIGO60, + * SIGA30,SIGA45,SIGA60,PNOA30,PNOA45,PNOA60, + * SIG30A,SIG45A,SIG60A + DOUBLE PRECISION SIGN30(56),SIGN45(56),SIGN60(56), + * SIGO30(56),SIGO45(56),SIGO60(56), + * SIGA30(56),SIGA45(56),SIGA60(56), + * PNOA30(1540,3),PNOA45(1540,3),PNOA60(1540,3), + * SIG30A(56),SIG45A(56),SIG60A(56) +*KEEP,NKGI. + COMMON /NKGI/ SEL,SELLG,STH,ZEL,ZELLG,ZSL,DIST, + * DISX,DISY,DISXY,DISYX,DLAX,DLAY,DLAXY,DLAYX, + * OBSATI,RADNKG,RMOL,TLEV,TLEVCM,IALT + DOUBLE PRECISION SEL(10),SELLG(10),STH(10),ZEL(10),ZELLG(10), + * ZSL(10),DIST(10), + * DISX(-10:10),DISY(-10:10), + * DISXY(-10:10,2),DISYX(-10:10,2), + * DLAX (-10:10,2),DLAY (-10:10,2), + * DLAXY(-10:10,2),DLAYX(-10:10,2), + * OBSATI(2),RADNKG,RMOL(2),TLEV(10),TLEVCM(10) + INTEGER IALT(2) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,PRIMSP. + COMMON /PRIMSP/ PSLOPE,LLIMIT,ULIMIT,LL,UL,SLEX,ISPEC + DOUBLE PRECISION PSLOPE,LLIMIT,ULIMIT,LL,UL,SLEX + INTEGER ISPEC +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKF. + COMMON /STACKF/ STACK,MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT, + * NTO,NFROM + INTEGER MAXSTK + PARAMETER (MAXSTK = 16*256*2) + DOUBLE PRECISION STACK(MAXSTK) + INTEGER MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM +*KEEP,STRBAR. + COMMON /STRBAR/ CSTRBA + DOUBLE PRECISION CSTRBA(11) +*KEEP,VERS. + COMMON /VERS/ VERNUM,MVDATE,VERDAT + DOUBLE PRECISION VERNUM + INTEGER MVDATE + CHARACTER*18 VERDAT +*KEEP,VENUS. + COMMON /VENUS/ ISH00,IVERVN,MTAR99,FVENUS,FVENSG + INTEGER ISH00,IVERVN,MTAR99 + LOGICAL FVENUS,FVENSG +*KEEP,CEREN3. + COMMON /CEREN3/ CERCNT,DATAB2,NRECER,LHCER + INTEGER MAXBF2 + PARAMETER ( MAXBF2 = 39 * 7 ) + DOUBLE PRECISION CERCNT + REAL DATAB2(MAXBF2) + INTEGER NRECER,LHCER +*KEEP,ATMOSX. +C EXTERNAL ATMOSPHERIC MODELS + COMMON /ATMOSX/ IATMOX,FREFRX + INTEGER IATMOX + LOGICAL FREFRX +*KEND. + + DOUBLE PRECISION HEIGH,OOO,SE,TEMP1,TEMP2,TEMP3,THICK, + * TTIME,ZE,ZS,ZX + INTEGER I,IA,J,L + SAVE + EXTERNAL HEIGH,THICK + CHARACTER*1 MARK +C----------------------------------------------------------------------- + +C SAY HELLO + WRITE(MONIOU,112) + 112 FORMAT(/' ',80('A')// + *' OOO OOO OOOO OOOO OO O O O '/ + *' O O O O O O O O OO O O O O '/ + *' O O O O O O OO O O O O '/ + *' O O O O O OOOO OO OO O O'/ + *' O O O OOOO O OO O O OOOOOOO'/ + *' O O O O O O O O OO O O O O'/ + *' OOO OOO O O OOOO OO O O O O'// + *' COSMIC RAY SIMULATION FOR KASCADE'// + *' A PROGRAM TO SIMULATE EXTENSIVE AIR SHOWERS IN ATMOSPHERE'// + *' BASED ON A PROGRAM OF P.K.F. GRIEDER, UNIVERSITY BERN,', + *' SWITZERLAND'/ + *' VENUS MODEL ACCORDING TO K. WERNER, UNIVERSITY NANTES, FRANCE'/ + *' HDPM MODEL ACCORDING TO J.N. CAPDEVIELLE, COLLEGE DE FRANCE,', + *' PARIS, FRANCE'/ + *' GHEISHA ROUTINES ACCORDING TO H. FESEFELDT, RWTH AACHEN,', + *' GERMANY'/ + *' EGS4 ACCORDING TO W.R. NELSON, H. HIRAYAMA, D.W.O. ROGERS,', + *' SLAC, STANFORD, USA'/ + *' NKG FORMULAS FOR FAST SIMULATION OF EL.MAG. PARTICLES'// + *' REFERENCES: D. HECK, J.KNAPP, J.N. CAPDEVIELLE, G. SCHATZ,', + * ' T. THOUW,'/' REPORT FZKA 6019 (1998)'/ + *' J. KNAPP, D. HECK, G. SCHATZ, REPORT FZKA', + * ' 5828 (1996)'/ + *' SEE ALSO WEB PAGE http://www-ik3.fzk.de/', + * '~heck/corsika'//) + + MARK = '1' + + WRITE(MONIOU,912) VERNUM,MARK,VERDAT + 912 FORMAT(' INSTITUT FUER KERNPHYSIK '/ + * ' FORSCHUNGSZENTRUM KARLSRUHE'/ + * ' POSTFACH 3640'/ + * ' D-76021 KARLSRUHE'/ + * ' GERMANY'// + * ' IN CASE OF PROBLEMS CONTACT: DIETER HECK '/ + * ' E-MAIL: DIETER.HECK@IK.FZK.DE'/ + * ' FAX: (49) 7247-82-4075 '/ + * ' PHONE: (49) 7247-82-3777 '// + * ' NUMBER OF VERSION : ',F6.3,A1/ + * ' DATE OF VERSION : ',A18 /) + + WRITE(MONIOU,*) 'VERSION GENERATED FOR UNIX OR COMPATIBLE SYSTEMS' + WRITE(MONIOU,*) '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^' + WRITE(MONIOU,*) ' (RECL IS DEFINED IN BYTES)' + WRITE(MONIOU,*) ' WITH TIMERC DATE ROUTINE' + + WRITE(MONIOU,*) ' ' + + WRITE(MONIOU,1413) + 1413 FORMAT(/' INTERFACE FOR EXTERNAL ATMOSPHERIC PROFILES ENABLED'/ + * ' ==================================================='/) + WRITE(MONIOU,*) ' ' + WRITE(MONIOU,141) + 141 FORMAT(/' CHERENKOV RADIATION IS GENERATED'/ + * ' ================================'/) + WRITE(MONIOU,*) ' ' + WRITE(MONIOU,119) + 119 FORMAT(/' CURVED VERSION WITH SLIDING PLANAR ATMOSPHERE'/ + * ' ============================================='/) + WRITE(MONIOU,1432) + 1432 FORMAT(/' PRIMARY DIRECTION IS SELECTED FROM VIEWING CONE'/ + * ' ==============================================='/) + WRITE(MONIOU,*) 'ZENITH ANGLE DEPENDENCE FOR FLAT DETECTOR ARRAY' + WRITE(MONIOU,*) ' ' + WRITE(MONIOU,*) ' ' +C + +C INITIALIZE ARRAY WITH PARTICLE MASSES + CALL PAMAF + +C READ RUN STEERING DATA CARDS + CALL DATAC + + IF ( FREFRX ) WRITE(MONIOU,144) + 144 FORMAT(/' ATMOSPHERIC REFRACTION IS TAKEN INTO ACCOUNT'/ + * ' ============================================'/) + WRITE(MONIOU,1441) + 1441 FORMAT(/) + +C ORDERING OF OBSERVATION LEVELS FROM TOP TO BOTTOM + IF ( NOBSLV .GT. 1 ) THEN + 215 CONTINUE + DO 11 I = 2,NOBSLV + IF ( OBSLEV(I) .GT. OBSLEV(I-1) ) THEN + OOO = OBSLEV(I) + OBSLEV(I) = OBSLEV(I-1) + OBSLEV(I-1) = OOO + GOTO 215 + ENDIF + 11 CONTINUE + ENDIF + +C PREPARE ATMOSPHERIC MODEL + IF ( MODATM .LT. 0 .OR. MODATM .GT. 16 ) THEN + WRITE(MONIOU,*) 'START: MODATM < 0 OR > 16 NOT POSSIBLE! STOP' + WRITE(MONIOU,*) 'PLEASE READ THE USERS GUIDE' + WRITE(MONIOU,*) 'SEE KEYWORD: ATMOD' + STOP + ENDIF +C SET LOWER BOUNDARIES OF THE AIR LAYERS + IF ( LAYNEW ) THEN +C TAKE THE BOUNDARIES READ IN + I = 0 + ELSE +C TAKE THE DEFAULT BOUNDARIES + I = LAYNO(MODATM) + ENDIF +C SET THE SELECTED ATMOSPHERE AND LAYERS + DO L = 1,5 + HLAY(L) = HLAY0(L,I) + AATM(L) = AATM0(L,MODATM) + BATM(L) = BATM0(L,MODATM) + CATM(L) = CATM0(L,MODATM) + DATM(L) = 1.D0 / CATM(L) + ENDDO + +C SET THE ATMOSPHERIC MODEL NUMBER, READING AN EXTERNAL FILE IF NEEDED. +C PARAMETERS FOR TAKING REFRACTION INTO ACCOUNT ARE CALCULATED EVEN +C FOR CORSIKA BUILT-IN MODELS. + IF ( IATMOX .GE. 1 .OR. FREFRX ) THEN + CALL ATMSET(IATMOX,OBSLEV(NOBSLV)) + ENDIF +C FOR AN EXTERNAL ATMOSPHERE, FIT PARAMETERS USED IN CORSIKA-EGS PART. + IF ( IATMOX .GE. 1 ) THEN + IF ( LAYNEW ) THEN + CALL ATMFIT(-5,HLAY,AATM,BATM,CATM) + ELSE + CALL ATMFIT(5,HLAY,AATM,BATM,CATM) + ENDIF + DO L = 1,5 + DATM(L) = 1.D0 / CATM(L) + ENDDO + ENDIF +C CALCULATE THICKNESS AT LOWER BOUNDARIES OF AIR LAYERS + DO 100 L = 1,5 + THICKL(L) = THICK(HLAY(L)) + 100 CONTINUE + HLAY(6) = HEIGH(0.D0) + IF ( DEBUG ) WRITE(MDEBUG,99) + $ (L,HLAY(L),THICKL(L),L=1,5),HLAY(6) + 99 FORMAT(' START : ATMOSPHERIC LAYERS',/, + $ ' NR. HLAY (CM) THICKL (G/CM**2)',/, + $ 5(8X,I3,' ',F11.2,' ',F12.5,/), + $ 8X,' 6 ',F11.2,' 0.00000') + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + +C CLEARS BUFFERS FOR HEADER AND FILLS IN PERMANENT INFORMATION + DO 889 L = 1,MAXBUF + EVTH(L) = 0. + EVTE(L) = 0. + RUNH(L) = 0. + RUNE(L) = 0. + DATAB(L) = 0. + ARRAYLONG(L) = 0. + DATAB2(L) = 0. + 889 CONTINUE + + +C PERMANENT INFORMATION +C CHARACTER STRINGS + CRUNH = 'RUNH' + CRUNE = 'RUNE' + CEVTH = 'EVTH' + CEVTE = 'EVTE' + CLONG = 'LONG' + + RUNH(2) = NRRUN + RUNE(2) = NRRUN + EVTH(44) = NRRUN + +C DATE OF RUN + WRITE(MONIOU,101) + 101 FORMAT(/' ',10('='),' START OF RUN ',55('=')/) + CALL PRTIME(TTIME) + RUNH(3) = TTIME + EVTH(45) = TTIME + +C VERSION OF PROGRAM + RUNH(4) = VERNUM + EVTH(46) = VERNUM + +C----------------------------------------------------------------------- +C INITIALIZATION FOR RANDOM NUMBER GENERATOR + IF ( FEGS .AND. NSEQ .LT. 2 ) NSEQ = 2 +C CHERENKOV SELECTION DEMANDS ALWAYS EGS CALCULATION + FEGS = .TRUE. +C IN CASE OF CHERENKOV CALCULATIONS THE 3. RANDOM SEQUENCE IS NEEDED + IF ( NSEQ .LT. 3 ) NSEQ = 3 + DO 281 I = 1,NSEQ + IF ( .NOT. DEBUG .AND. .NOT. DEBDEL .AND. + * (ISEED(2,I) .GT. 1000 .OR. ISEED(3,I) .GT. 0) ) THEN + WRITE(MONIOU,2811) I +2811 FORMAT(/' #########################################'/ + * ' ## IMPROPER INITIALIZATION OF RANDOM ##'/ + * ' ## NUMBER GENERATOR SEQUENCE',I6,' ##'/ + * ' ## IS EXTREMELY TIME CONSUMING ##'/ + * ' ## PLEASE READ THE USERS GUIDE ##'/ + * ' ## SEE KEYWORD: SEED ##'/ + * ' #########################################'/) + ELSE + ENDIF + CALL RMMAQ( ISEED(1,I), I, 'S' ) + 281 CONTINUE + KNOR = .TRUE. + + WRITE(MONIOU,158) (L,(ISEED(J,L),J=1,3),L=1,NSEQ) + 158 FORMAT (' RANDOM NUMBER GENERATOR AT BEGIN OF RUN :'/ + * (' SEQUENCE = ',I2,' SEED = ',I9,' CALLS = ',I9, + * ' BILLIONS = ',I9)) + +C----------------------------------------------------------------------- +C READ CROSS-SECTIONS AND PROBABILITIES FOR NUCLEUS-NUCLEUS COLLISIONS + OPEN(UNIT=NUCNUC,FILE='NUCNUCCS',STATUS='OLD') + READ(NUCNUC,500) SIGN30,SIGN45,SIGN60,SIGO30,SIGO45,SIGO60, + * SIGA30,SIGA45,SIGA60 + READ(NUCNUC,500) (PNOA30(I,1),I=1,1540),(PNOA45(I,1),I=1,1540), + * (PNOA60(I,1),I=1,1540),(PNOA30(I,2),I=1,1540), + * (PNOA45(I,2),I=1,1540),(PNOA60(I,2),I=1,1540), + * (PNOA30(I,3),I=1,1540),(PNOA45(I,3),I=1,1540), + * (PNOA60(I,3),I=1,1540) + 500 FORMAT( 5E16.10 ) + CLOSE(UNIT=NUCNUC) + +C INELASTIC CROSS-SECTIONS FOR PROJECTICLE WITH MASS NUMBER IA + DO 501 IA = 1,56 + SIG30A(IA) = COMPOS(1)*SIGN30(IA) + COMPOS(2)*SIGO30(IA) + * + COMPOS(3)*SIGA30(IA) + SIG45A(IA) = COMPOS(1)*SIGN45(IA) + COMPOS(2)*SIGO45(IA) + * + COMPOS(3)*SIGA45(IA) + SIG60A(IA) = COMPOS(1)*SIGN60(IA) + COMPOS(2)*SIGO60(IA) + * + COMPOS(3)*SIGA60(IA) + + IF (DEBUG) WRITE(MDEBUG,544) IA,SIG30A(IA),SIG45A(IA),SIG60A(IA) + 544 FORMAT(' START : CROSS-SECTIONS A-AIR : A=',I2,1P,3E14.6) + 501 CONTINUE + + WRITE(MONIOU,503) + 503 FORMAT (//' ',10('='),' INTERACTION MODELS ',49('=')) +C HIGH ENERGY HADRONIC INTERACTION MODEL + IF ( FVENUS ) THEN + WRITE(MONIOU,*) 'VENUS TREATS HIGH ENERGY HADRONIC INTERACTIONS' + CALL VENINI + IF ( FVENSG ) THEN + WRITE(MONIOU,*) + WRITE(MONIOU,*) 'VENUS CROSS-SECTIONS ARE TAKEN' + CALL VENSIGINI + ENDIF + ELSE + IF ( FVENSG ) THEN + WRITE(MONIOU,*) + WRITE(MONIOU,*) 'VENUS CROSS-SECTIONS ARE TAKEN' + CALL VENSIGINI + ENDIF + WRITE(MONIOU,1506) + ENDIF +1506 FORMAT(' HDPM ROUTINES TREAT HIGH ENERGY HADRONIC INTERACTIONS') + + + IF ( .NOT. FVENUS ) THEN +C INPUT FLAGS FOR HDPM OPTIONS + WRITE(MONIOU,*) 'HDPM GENERATOR SPECIFICATIONS ARE:' + IF ( NFLAIN .EQ. 0 ) THEN + WRITE(MONIOU,*) ' RANDOM NUMBER OF INTERACTIONS IN AIR TARGET' + IF ( NFLDIF .EQ. 0 ) THEN + WRITE(MONIOU,*) ' NO DIFFRACTIVE SECOND INTERACTIONS' + ELSE + WRITE(MONIOU,*) ' DIFFRACTIVE SECOND INTERACTIONS' + ENDIF + ELSE + WRITE(MONIOU,*) ' FIXED NUMBER OF INTERACTIONS IN AIR TARGET' + ENDIF + IF ( NFLPI0 .EQ. 0 ) THEN + WRITE(MONIOU,*) ' RAPIDITY OF PI0 ACCORDING TO COLLIDER DATA' + ELSE + WRITE(MONIOU,*) ' RAPIDITY OF PI0 SAME AS THAT OF CHARGED' + ENDIF + IF ( NFLPIF .EQ. 0 ) THEN + WRITE(MONIOU,*) ' NO FLUCTUATIONS OF NUMBER OF PI0' + ELSE + WRITE(MONIOU,*) ' FLUCTUATIONS OF NUMBER OF PI0 AS MEASURED ', + * 'AT THE COLLIDER' + ENDIF + IF ( NFLCHE .EQ. 0 ) THEN + WRITE(MONIOU,*) ' CHARGE EXCHANGE INTERACTION POSSIBLE ' + ELSE + WRITE(MONIOU,*) ' NO CHARGE EXCHANGE INTERACTION POSSIBLE ' + ENDIF + ENDIF + IF ( NFRAGM .EQ. 0 ) THEN + WRITE(MONIOU,*) ' TOTAL FRAGMENTION OF PRIMARY NUCLEUS IN ', + * 'FIRST INTERACTION' + ELSEIF ( NFRAGM .EQ. 1 ) THEN + WRITE(MONIOU,*) ' NO FRAGMENTATION, NO EVAPORATION OF REMAINDER' + ELSEIF ( NFRAGM .EQ. 2 ) THEN + WRITE(MONIOU,1504) +1504 FORMAT(' NO FRAGMENTATION, EVAPORATION OF REMAINDER ', + * ' (PT AFTER JACEE)') + ELSEIF ( NFRAGM .EQ. 3 ) THEN + WRITE(MONIOU,1505) +1505 FORMAT(' NO FRAGMENTATION, EVAPORATION OF REMAINDER ', + * ' (PT AFTER GOLDHABER)') + ELSEIF ( NFRAGM .EQ. 4 ) THEN + WRITE(MONIOU,1507) +1507 FORMAT(' NO FRAGMENTATION, EVAPORATION OF REMAINDER ', + * ' (WITH PT = 0.)') + ELSE + NFRAGM = 4 + WRITE(MONIOU,1507) + ENDIF + WRITE(MONIOU,*) + +C LOW ENERGY HADRONIC INTERACTION MODEL + WRITE(MONIOU,*) 'GHEISHA TREATS LOW ENERGY HADRONIC ', + * 'INTERACTIONS' + CALL CGHINI + +C WRITE HADRONIC STEERING FLAGS TO RUNHEADER + RUNH(270) = NFLAIN + RUNH(271) = NFLDIF + RUNH(272) = NFLPI0 + 100. * NFLPIF + RUNH(273) = NFLCHE + 100. * NFRAGM + + EVTH(65) = NFLAIN + EVTH(66) = NFLDIF + EVTH(67) = NFLPI0 + EVTH(68) = NFLPIF + EVTH(69) = NFLCHE + EVTH(70) = NFRAGM + + HILOECM = SQRT(2.D0*PAMA(14)*(PAMA(14) + HILOELB)) + IF ( DEBUG ) THEN + WRITE(MDEBUG,1509) HILOELB,HILOECM + 1509 FORMAT(' START: HIGH ENERGY INTERACTION MODEL USED ABOVE ', + * F8.3,' GEV LAB ENERGY OR',/ + * 50X,F8.3,' GEV CM ENERGY') + ELSE + WRITE(MONIOU,1510) HILOELB,HILOECM + 1510 FORMAT(' HIGH ENERGY INTERACTION MODEL USED ABOVE ', + * F8.3,' GEV LAB ENERGY OR',/ + * 43X,F8.3,' GEV CM ENERGY') + ENDIF + +C----------------------------------------------------------------------- +C INITIALIZE CONSTANTS FOR MUON MULTIPLE SCATTERING (MOLIERE) +C SEE SUBROUT. GMOLI OF GEANT321 (CERN) + IF ( FMOLI ) THEN + TEMP1 = COMPOS(1) * 7.D0 * 8.D0 + TEMP2 = COMPOS(2) * 8.D0 * 9.D0 + TEMP3 = COMPOS(3) * 18.D0 * 19.D0 + ZS = TEMP1 + TEMP2 + TEMP3 + ZE = (-TB3)*(TEMP1*LOG(7.D0)+TEMP2*LOG(8.D0)+TEMP3*LOG(18.D0)) + ZX = TEMP1*LOG(1.D0 + 3.34D0 * ( 7.D0/C(50))**2) + * +TEMP2*LOG(1.D0 + 3.34D0 * ( 8.D0/C(50))**2) + * +TEMP3*LOG(1.D0 + 3.34D0 * (18.D0/C(50))**2) +C NOTE: CHC IS DEFINED DIFFERENT FROM GEANT WITHOUT DENSITY + CHC = 0.39612D-3 * SQRT(ZS/AVERAW) +C NOTE: OMC IS DEFINED DIFFERENT FROM GEANT WITHOUT DENSITY + OMC = 6702.33D0 * (ZS/AVERAW) * EXP( (ZE-ZX)/ZS ) + EVTH(146) = 1. + WRITE(MONIOU,*) 'MUON MULTIPLE SCATTERING AFTER MOLIERE' + ELSE + EVTH(146) = 0. + WRITE(MONIOU,*)'MUON MULTIPLE SCATTERING IN GAUSS APPROXIMATION' + ENDIF + +C----------------------------------------------------------------------- +C INPUT STEERING FLAGS FOR ELECTROMAGNETIC PART + WRITE(MONIOU,*) + IF ( FNKG ) THEN + WRITE(MONIOU,121) + 121 FORMAT(' ######################################################' + * ,/, ' # SIMULATION WITH NKG NOT POSSIBLE IN CURVED VERSION #' + * ,/, ' ######################################################' + * ,/ ) + FNKG = .FALSE. + ENDIF + IF ( FEGS ) THEN + WRITE(MONIOU,*) 'ELECTROMAGNETIC COMPONENT SIMULATED WITH EGS4' + WRITE(MONIOU,*) + ENDIF + IF ( .NOT. (FNKG .OR. FEGS) ) WRITE(MONIOU,*) + * 'ELECTROMAGNETIC COMPONENT IS NOT SIMULATED' + IF ( FEGS ) THEN + IF ( STEPFC .GT. 10.D0 .OR. STEPFC .LE. 0.D0 ) THEN + WRITE(MONIOU,*) 'STEP LENGTH FACTOR FOR ELECTRON MULTIPLE ', + * 'SCATTERING =',SNGL(STEPFC),' NOT CORRECT' + WRITE(MONIOU,*) 'PLEASE READ THE USERS GUIDE' + WRITE(MONIOU,*) 'SEE KEYWORD: STEPFC' + STOP + ENDIF + IF ( STEPFC .LT. 10.D0 ) WRITE(MONIOU,*)'STEP LENGTH ', + * 'FACTOR FOR ELECTRON MULTIPLE SCATTERING =',SNGL(STEPFC) +C INITIALIZE EGS4 PACKAGE + CALL EGSINI + ENDIF +C WRITE STEERING FLAGS FOR ELECTROMAGNETIC PART AS REAL TO HEADER + IF ( FNKG ) THEN + RUNH(20) = 1. + EVTH(74) = 1. + ELSE + RUNH(20) = 0. + EVTH(74) = 0. + ENDIF + IF ( FEGS ) THEN + RUNH(19) = 1. + EVTH(73) = 1. + ELSE + RUNH(19) = 0. + EVTH(73) = 0. + ENDIF + + EVTH(95) = STEPFC + +C PROGRAM CONFIGURATIONS FOR EVENT HEADER + EVTH(75) = 1. + IF ( FVENUS ) THEN + EVTH(76) = 1. + ELSE + EVTH(76) = 0. + ENDIF + EVTH(139) = 0. + EVTH(140) = 0. + EVTH(141) = 0. + EVTH(142) = 0. + EVTH(143) = 0. + EVTH(144) = 0. + IF ( FVENSG ) THEN + EVTH(145) = 1. + ELSE + EVTH(145) = 0. + ENDIF + EVTH(153) = VUECON(1) + EVTH(154) = VUECON(2) +C --------------------------------------------------------- +C ELEMENT 77 OF EVENT HEADER HAS THE FOLLOWING CONTENTS IF +C CONVERTED TO AN INTEGER WITH SUITABLE ROUNDING APPLIED: +C BIT 1: CERENKOV OPTION COMPILED IN +C 2: IACT OPTION COMPILED IN +C 3: CEFFIC OPTION COMPILED IN +C 4: ATMEXT OPTION COMPILED IN +C 5: ATMEXT OPTION USED WITH REFRACTION ENABLED +C 6: VOLUMEDET OPTION COMPILED IN +C 7: CURVED OPTION COMPILED IN (SEE ALSO EVTH(79)) +C 11-21: TABLE NUMBER FOR EXTERNAL ATMOSPHERE TABLE +C (BUT LIMITED TO 1023 IF THE NUMBER IS LARGER) +C -------------------------------------------------------- + EVTH(77) = 1. + EVTH(77) = EVTH(77) + 8. + IF ( FREFRX ) EVTH(77) = EVTH(77) + 16. + EVTH(77) = EVTH(77) + 1024. * MIN(IATMOX,1023) + EVTH(77) = EVTH(77) + 64. + EVTH(78) = 0. + EVTH(79) = 2. + EVTH(80) = 3. + + +C----------------------------------------------------------------------- +C PHYSICAL CONSTANTS + PI = 2.D0 * ACOS(0.D0) + PI2 = 4.D0 * ACOS(0.D0) + OB3 = 1.D0/3.D0 + TB3 = 2.D0/3.D0 + ENEPER = EXP(1.D0) + C(6) = ( PAMA(5) / PAMA(11) )**2 + C(7) = ( PAMA(5) / PAMA(8) )**2 + C(8) = ( PAMA(5)**2 + PAMA(2)**2 ) * 0.5D0 / PAMA(5) + C(20) = 10.D0 * C(21) + C(27) = COS( C(26) ) + C(29) = COS( C(28) ) +C CALCULATE CONSTANT FOR MAXIMAL HORIZONTAL RANGE WITHIN LOCAL SYSTEM + C(4) = (C(2)-C(3)) / THICK(0.D0) +C EXTEND ANGULAR CUT UP TO HORIZONTAL FOR CURVED VERSION + C(29) = 1.D-15 + C(45) = PAMA(8) * PAMA(14) * 2.D0 + C(46) = PAMA(8)**2 + PAMA(14)**2 + C(48) = (PAMA(8)**2 + PAMA(5)**2) / (2.D0*PAMA(8)*PAMA(5)) + C(49) = SQRT(C(48)**2 - 1.D0) / C(48) + + CKA(13) = 2.D0 * PAMA(11) * PAMA(14) + CKA(14) = PAMA(11)**2 + PAMA(14)**2 + CKA(17) = SQRT( ( (PAMA(11)**2 + PAMA(5)**2) + * / (2.D0*PAMA(11)) )**2 - PAMA(5)**2 ) + CKA(18) = SQRT( ( (PAMA(11)**2 + PAMA(8)**2 - PAMA(7)**2) + * / (2.D0*PAMA(11)) )**2 - PAMA(8)**2 ) + CKA(28) = SQRT(1.D0 + CKA(17)**2/PAMA(5)**2) + CKA(29) = SQRT(1.D0 - 1.D0/CKA(28)**2) + CKA(30) = SQRT(1.D0 + CKA(18)**2/PAMA(8)**2) + CKA(31) = SQRT(1.D0 - 1.D0/CKA(30)**2) + CKA(41) = PAMA(16) + CKA(42) = (PAMA(11)**2 + PAMA(7)**2 - PAMA(8)**2) / + * (2.D0*PAMA(11)*PAMA(7)) + CKA(43) = CKA(41) / (2.D0*PAMA(7)) + CKA(44) = SQRT(1.D0 - 1.D0/CKA(43)**2) + CKA(45) = CKA(41) / (2.D0*PAMA(8)) + CKA(46) = SQRT(1.D0 - 1.D0/CKA(45)**2) + +C SET CONSTANTS FOR MUON BREMSSTRAHLUNG +C SET BCUT WELL BELOW 21 MEV +* BCUT = MIN( ELCUT(3), 100.D0*PAMA(5) ) +C BCUT IS FIXED, AS PARAMETRIZATION IN BOX2 IS INDEPENDENT OF BCUT. + BCUT = 0.002044D0 + CMUON(7) = 7.D0**OB3 + CMUON(8) = 8.D0**OB3 + CMUON(9) = 18.D0**OB3 + CMUON(1) = LOG( 189.D0 * PAMA(5) / (CMUON(7)*PAMA(2)) ) + CMUON(2) = LOG( 189.D0 * PAMA(5) / (CMUON(8)*PAMA(2)) ) + CMUON(3) = LOG( 189.D0 * PAMA(5) / (CMUON(9)*PAMA(2)) ) + * + LOG( TB3/CMUON(9) ) + SE = SQRT(EXP(1.D0)) + CMUON(4) = 189.D0 * SE*PAMA(5)**2/(2.D0*PAMA(2)*CMUON(7)) + CMUON(5) = 189.D0 * SE*PAMA(5)**2/(2.D0*PAMA(2)*CMUON(8)) + CMUON(6) = 189.D0 * SE*PAMA(5)**2/(2.D0*PAMA(2)*CMUON(9)) + CMUON(10) = 0.75D0 * PAMA(5) * SE + CMUON(7) = CMUON(7) * CMUON(10) + CMUON(8) = CMUON(8) * CMUON(10) + CMUON(9) = CMUON(9) * CMUON(10) + CMUON(11) = LOG( BCUT/PAMA(5) ) + +C----------------------------------------------------------------------- +C FILL CONSTANTS IN RUN HEADER + DO 3001 L = 1,50 + RUNH(24+L) = C(L) + RUNH(154+L) = 0. + RUNH(204+L) = 0. + 3001 CONTINUE + DO 3002 L = 1,20 + RUNH(74+L) = 0. + 3002 CONTINUE + DO 3003 L = 1,40 + RUNH(94+L) = CKA(L) + 3003 CONTINUE + DO 3004 L = 1,5 + RUNH(134+L) = CETA(L) + 3004 CONTINUE + DO 3005 L = 1,11 + RUNH(139+L) = CSTRBA(L) + 3005 CONTINUE + DO 3007 L = 1,5 + RUNH(254+L) = AATM(L) + RUNH(259+L) = BATM(L) + RUNH(264+L) = CATM(L) + 3007 CONTINUE + + CALL STAEND + + RETURN + END +*CMZ : 14/06/2000 14.56.21 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE STRDEC + +C----------------------------------------------------------------------- +C STR(ANGE BARYON) DEC(AY) +C +C ROUTINE TREATES DECAY OF STRANGE BARYONS (LAMBDA, SIGMA, XI, OMEGA) +C DECAY WITH FULL KINEMATIC, ENERGY AND MOMENTA CONSERVED +C THIS SUBROUTINE IS CALLED FORM NUCINT +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STRBAR. + COMMON /STRBAR/ CSTRBA + DOUBLE PRECISION CSTRBA(11) +*KEND. + + INTEGER I + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' STRDEC: CURPAR=',1P,9E10.3) + + IF ( ITYPE .EQ. 18 ) THEN + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. CSTRBA(5) ) THEN +C DECAY LAMBDA ---> P + PI(-) + CALL DECAY1( ITYPE, 14, 9 ) + ELSE +C DECAY LAMBDA ---> N + PI(0) + CALL DECAY1( ITYPE, 13, 7 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 19 ) THEN + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. CSTRBA(6) ) THEN +C DECAY SIGMA(+) ---> P + PI(0) + CALL DECAY1( ITYPE, 14, 7 ) + ELSE +C DECAY SIGMA(+) ---> N + PI(+) + CALL DECAY1( ITYPE, 13, 8 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 20 .OR. ITYPE .EQ. 28 ) THEN +C DECAY SIGMA(0) ---> LAMBDA + GAMMA +C DECAY ANTI-SIGMA(0) ---> ANTI-LAMBDA + GAMMA + CALL DECAY1( ITYPE, ITYPE-2, 1 ) + + ELSEIF ( ITYPE .EQ. 21 ) THEN +C DECAY SIGMA(-) ---> N + PI(-) + CALL DECAY1( ITYPE, 13, 9 ) + + ELSEIF ( ITYPE .EQ. 22 .OR. ITYPE .EQ. 30 ) THEN +C DECAY XI(0) ---> LAMBDA + PI(0) +C DECAY ANTI-XI(0) ---> ANTI-LAMBDA + PI(0) + CALL DECAY1( ITYPE, ITYPE-4, 7 ) + + ELSEIF ( ITYPE .EQ. 23 ) THEN +C DECAY XI(-) ---> LAMBDA + PI(-) + CALL DECAY1( ITYPE, 18, 9 ) + + ELSEIF ( ITYPE .EQ. 24 .OR. ITYPE .EQ. 32 ) THEN + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. CSTRBA(10) ) THEN +C DECAY OMEGA(-) ---> LAMBDA + K(-) +C DECAY ANTI-OMEGA(+) ---> ANTI-LAMBDA + K(+) + CALL DECAY1( ITYPE, ITYPE-6, 15-ITYPE/8 ) + ELSEIF ( RD(1) .LT. CSTRBA(11) ) THEN +C DECAY OMEGA(-) ---> XI(0) + PI(-) +C DECAY ANTI-OMEGA(+) ---> ANTI-XI(0) + PI(+) + CALL DECAY1( ITYPE, ITYPE-2, 12-ITYPE/8 ) + ELSE +C DECAY OMEGA(-) ---> XI(-) + PI(0) +C DECAY ANTI-OMEGA(+) ---> ANTI-XI(+) + PI(0) + CALL DECAY1( ITYPE, ITYPE-1, 7 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 26 ) THEN + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. CSTRBA(5) ) THEN +C DECAY ANTI-LAMBDA ---> ANTI-P + PI(+) + CALL DECAY1( ITYPE, 15, 8 ) + ELSE +C DECAY ANTI-LAMBDA ---> ANTI-N + PI(0) + CALL DECAY1( ITYPE, 25, 7 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 27 ) THEN + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. CSTRBA(6) ) THEN +C DECAY ANTI-SIGMA(-) ---> ANTI-P + PI(0) + CALL DECAY1( ITYPE, 15, 7 ) + ELSE +C DECAY ANTI-SIGMA(-) ---> ANTI-N + PI(-) + CALL DECAY1( ITYPE, 25, 9 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 29 ) THEN +C DECAY ANTI-SIGMA(+) ---> ANTI-N + PI(+) + CALL DECAY1( ITYPE, 25, 8 ) + + ELSEIF ( ITYPE .EQ. 31 ) THEN +C DECAY ANTI-XI(+) ---> ANTI-LAMBDA + PI(+) + CALL DECAY1( ITYPE, 26, 8 ) + + ELSE + WRITE(MONIOU,444) (CURPAR(I),I=1,9) + WRITE(MONIOU,*) 'STRDEC: UNFORESEEN PARTICLE CODE =',ITYPE + ENDIF + IRET1 = 1 + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + DOUBLE PRECISION FUNCTION THICK( ARG ) + +C----------------------------------------------------------------------- +C THICK(NESS OF ATMOSPHERE) +C +C CALCULATES THICKNESS (G/CM**2) OF ATMOSPHERE DEPENDING ON HEIGHT (CM) +C THIS FUNCTION IS CALLED FROM AAMAIN, BOX2, BOX3, EM, INPRM, MUBREM, +C MUDECY, MUPRPR, MUTRAC, NRANGC, NUCINT, PRANGC, START, UPDATC, +C UPDATE, EGS4, ELECTR, HOWFAR, PHOTON, ININKG, NKG, AND CERENK. +C ARGUMENT: +C ARG = HEIGHT IN CM +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,ATMOSX. +C EXTERNAL ATMOSPHERIC MODELS + COMMON /ATMOSX/ IATMOX,FREFRX + INTEGER IATMOX + LOGICAL FREFRX +*KEND. + + DOUBLE PRECISION ARG + SAVE + DOUBLE PRECISION THICKX + EXTERNAL THICKX +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'THICK : ARG=',SNGL(ARG) + + IF ( IATMOX .GE. 1 ) THEN + THICK = THICKX(ARG) + RETURN + ENDIF + + IF ( ARG .LT. HLAY(2) ) THEN + THICK = AATM(1) + BATM(1) * EXP ( (-ARG) * DATM(1) ) + ELSEIF ( ARG .LT. HLAY(3) ) THEN + THICK = AATM(2) + BATM(2) * EXP ( (-ARG) * DATM(2) ) + ELSEIF ( ARG .LT. HLAY(4) ) THEN + THICK = AATM(3) + BATM(3) * EXP ( (-ARG) * DATM(3) ) + ELSEIF ( ARG .LT. HLAY(5) ) THEN + THICK = AATM(4) + BATM(4) * EXP ( (-ARG) * DATM(4) ) + ELSE + THICK = AATM(5) - ARG * DATM(5) + ENDIF + + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : F. SCHROEDER UNI WUPPERTAL 17/09/98 +C======================================================================= + + DOUBLE PRECISION FUNCTION THICKC(ARG) + +C----------------------------------------------------------------------- +C THICK(NESS IN CASE OF) C(URVED ATMOSPHERE) +C +C CALCULATES OF ATMOSPHERIC THICKNESS AT INTERACTION POINT IN CURVED +C COORDINATE SYSTEM AFTER TRANSPORTING THE PARTICLE CHI G/CM**2 +C THIS FUNCTION IS CALLED FROM AAMAIN. +C ARGUMENT: +C ARG = PENETRATED MATTER THICKNESS IN CURVED ATMOSPHERE (G/CM**2) +C +C DESIGN : F. SCHROEDER UNI WUPPERTAL +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ARG,CHIC,CHIMAX,CHICNEW,COSDIF,COSPHI,COSTAPNEW, + * COSTHENEW,DISTN2,DISTO2,DL,HEIGH,HNEW,HOLD, + * RADIUS,SIGNE,SINI,SINPHI, + * TRANSNEW,WORK,XNEW,YNEW + INTEGER IL + SAVE + EXTERNAL HEIGH +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'THICKC: ARG=',SNGL(ARG),'H=',SNGL(H) + +C START VALUES + CHIC = ARG + HNEW = H + XNEW = X + YNEW = Y + THICKC = THICKH + DISTN2 = XNEW**2 + YNEW**2 + COSPHI = COS(PHI) + SINPHI = SIN(PHI) + COSTHENEW = COSTHE + COSTAPNEW = COSTAP + +C CHOPPING OF TOTAL PATH LENGTH CHITOT INTO SMALLER PIECES AND +C TRANSPORT IN LOCAL PLANE SYSTEM. STEP LENGTH LIMITATION DEPENDS ON +C THICKNESS OF STARTING POINT. THIS NEEDS A LOOP OVER ALL SMALL PIECES +C OF STEP WHICH ENDS AT MAXIMAL HORIZONTAL STEP + + 2 CONTINUE +C LOOK WITHIN WHICH LAYER THE PARTICLE STARTS + IF ( HNEW .LE. HLAY(2) ) THEN + IL = 1 + ELSEIF ( HNEW .LE. HLAY(3) ) THEN + IL = 2 + ELSEIF ( HNEW .LE. HLAY(4) ) THEN + IL = 3 + ELSE + IL = 4 + ENDIF +C LOOK FOR MAXIMAL STEP OF CHICNEW, ONLY IF NOT CLOSE TO VERTICAL + IF ( COSTHENEW .LT. 0.98D0 ) THEN + SINI = DATM(IL) / SQRT(1.D0 - COSTHENEW**2) + WORK = C(4) * THICKC + C(3) + IF ( HNEW .LT. HLAY(5) ) THEN + CHIMAX = ( THICKC - AATM(IL) ) * SINI * + * ( WORK + 0.5D0*COSTHENEW*SINI * WORK**2 ) + ELSE + CHIMAX = WORK * SINI * DATM(5)/DATM(IL) + ENDIF + IF ( CHIC .GE. CHIMAX ) THEN + CHICNEW = CHIMAX + ELSE + CHICNEW = CHIC + ENDIF + ELSE + CHICNEW = CHIC + ENDIF + +C ACTUAL VALUES + THICKC = THICKC + COSTHENEW * CHICNEW + CHIC = CHIC - CHICNEW + IF ( DEBUG ) WRITE(MDEBUG,*) 'THICKC: CHIC,THICKC=', + * SNGL(CHIC),SNGL(THICKC) + +C IN CASE COMPLETE PARTICLE TRACK LENGTH IS CHIC, STOP THE LOOP + IF ( CHIC .GT. 0.D0 ) THEN +C NEW COORDINATE FRAME + HOLD = HNEW +C NEW HEIGHT IN OLD COORDINATE FRAME + HNEW = HEIGH(THICKC) + DL = (HOLD - HNEW) * COSTHENEW + TRANSNEW = DL * SQRT( 1.D0 - COSTHENEW**2 ) +C NEW ACTUAL HEIGHT AT NEW THICKNESS GRADIENT +C (CALCULATED WITH PARAMETERS OF OLD COORDINATE FRAME) + HNEW = SQRT( TRANSNEW**2 + (C(1)+HNEW)**2 ) - C(1) + IF ( HNEW .LT. OBSLEV(1) -1.D5 ) RETURN + COSDIF = ( (C(1)+HNEW)**2 + (C(1)+HOLD)**2 - DL**2 ) / + * ( 2.D0 * (C(1)+HNEW) * (C(1)+HOLD) ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'THICKC: HNEW,COSDIF=', + * SNGL(HNEW),SNGL(COSDIF) + COSDIF = MIN (1.D0, COSDIF) +C DIRECTION OF PARTICLE RELATIV TO SHOWER CORE + DISTO2 = DISTN2 + IF ( COSDIF .LT. 1.D0 ) THEN + RADIUS = DL * SQRT( (1.D0-COSTAPNEW**2)/(1.D0-COSDIF**2) ) + * * C(1) * ACOS(COSDIF)/(C(1)+HNEW) + ELSE + RADIUS = DL * SQRT( 1.D0 - COSTAPNEW**2 ) + ENDIF + XNEW = XNEW + RADIUS * COSPHI + YNEW = YNEW + RADIUS * SINPHI + DISTN2 = XNEW**2 + YNEW**2 + IF ( DISTO2 .GT. DISTN2 ) THEN + SIGNE = +1.D0 + ELSE + SIGNE = -1.D0 + ENDIF +C COSINE OF THE ZENITH ANGLE IN THE NEW FRAME + COSTHENEW = MIN( 1.D0, ( COSTHENEW * COSDIF - SIGNE * + * SQRT( (1.D0-COSTHENEW**2) * (1.D0-COSDIF**2) ) ) ) + IF (DEBUG) WRITE(MDEBUG,*) 'THICKC: COSTHENEW=',SNGL(COSTHENEW) + IF ( COSTHENEW .GT. C(29) ) GOTO 2 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'THICKC: THICKC=',SNGL(THICKC) + + RETURN + END +*CMZ : 23/11/2000 09.03.51 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE TOBUF( A,IFL ) + +C----------------------------------------------------------------------- +C (WRITE) TO BUF(FER) +C +C WRITES UP TO NSUBBL DATA BLOCKS TO OUTPUT BUFFER AND PUTS THE FULL +C BUFFER TO TAPE +C THIS SUBROUTINE IS CALLED FROM AAMAIN, ELECTR, PHOTON, INPRM, OUTEND, +C OUTPT1, OUTPT2, AND PHOTON. +C ARGUMENTS: +C A = ARRAY TO BE WRITTEN TO TAPE +C IFL = STARTING OF FINAL OUTPUT +C = 0 NORMAL BLOCK +C = 1 NORMAL BLOCK WITH END OF OUTPUT +C = 2 ONLY END OF OUTPUT +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,RECORD. + COMMON /RECORD/ IRECOR + INTEGER IRECOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + +C NSUBBL IS NUMBER OF SUBBLOCKS IN ONE OUTPUT RECORD + INTEGER NSUBBL + PARAMETER (NSUBBL=21) + REAL A(*) +C (OUTPUT RECORD LENGTH = NSUBBL * 39 * 7 * 4 BYTES <= 22932 ) +C OUTPUT BUFFER FOR PARTICLE OUTPUT + REAL OUTBUF(MAXBUF,NSUBBL) +C IBLK IS COUNTER FOR SUBBLOCKS + INTEGER I,IBLK,IFL,K + SAVE + DATA IBLK / 0 / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'TOBUF : IFL =',IFL + +C COPY TO BUFFER + IF ( IFL .LE. 1 ) THEN + IBLK = IBLK + 1 + DO 1 I = 1,MAXBUF + OUTBUF(I,IBLK) = A(I) + 1 CONTINUE + ENDIF + +C WRITE TO TAPE IF BLOCK IS FULL OR IF IFL IS 1 + IF ( IFL .GE. 1 .OR. IBLK .EQ. NSUBBL ) THEN + NRECS = NRECS + 1 + NBLKS = NBLKS + IBLK + IF ( FPAROUT ) THEN +c------changed--add-and-comand +cxx WRITE(MPATAP) ((OUTBUF(I,K),I=1,MAXBUF),K=1,NSUBBL) +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c WRITE(PATAPE) ((OUTBUF(I,K),I=1,MAXBUF),K=1,NSUBBL) + call jcdatsave(outbuf) +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c------changed--add-and-comand + + ENDIF + IRECOR = IRECOR + MAXBUF * NSUBBL + IBLK = 0 + DO 2 K = 1,NSUBBL + DO 2 I = 1,MAXBUF + OUTBUF(I,K) = 0.0 + 2 CONTINUE + ENDIF + + RETURN + END +*CMZ : 25/02/2002 15.28.14 by D. HECK IK FZK KARLSRUHE +*-- Author : Johannes Knapp, IEKP U Karlsruhe 26/01/97 +C======================================================================= + + SUBROUTINE TSTACK + +C----------------------------------------------------------------------- +C T(O) STACK +C +C ADDS PARTICLE TO INTERMEDIATE STACK UNTIL REACTION IS FINISHED +C ONLY PARTICLES ABOVE ENERGY CUT ARE TAKEN TO STACK +C THIS SUBROUTINE IS CALLED FROM MANY ROUTINES ALL OVER THE PROGRAM. +C +C DESIGN : J. KNAPP, IEKP U KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,THNVAR. + COMMON /THNVAR/ STACKINT, + * INT_ICOUNT,MODETHN,THINNING + INTEGER MAXICOUNT + PARAMETER (MAXICOUNT=40000) + DOUBLE PRECISION STACKINT(16,MAXICOUNT) + INTEGER INT_ICOUNT,MODETHN + LOGICAL THINNING +*KEND. + + INTEGER I,J + SAVE +C----------------------------------------------------------------------- + + INT_ICOUNT = INT_ICOUNT + 1 + IF ( DEBUG ) WRITE(MDEBUG,1) INT_ICOUNT,(SECPAR(J),J=1,9) + 1 FORMAT(' TSTACK:',I7,1X,1P,8E10.3,0P,F10.0) + + IF ( INT_ICOUNT .GT. MAXICOUNT ) THEN + WRITE(MONIOU,10) MAXICOUNT + 10 FORMAT(' TSTACK: TOO MANY SECONDARIES FOR THIS REACTION', + * ' EXCEEDED ',I7,' A T T E N T I O N PARTICLE IS LOST') + INT_ICOUNT = INT_ICOUNT - 1 + RETURN + ENDIF + +C CALCULATE APPROPRIATE KINETIC ENERGY CUT AND APPLY IT + IF ( SECPAR(1) .EQ. 5.D0 .OR. SECPAR(1) .EQ. 6.D0 ) THEN +C ---MUONS--- + IF ( (SECPAR(2) - 1.D0)*PAMA(5) .LT. ELCUT(2) ) THEN + FMUORG = .FALSE. + IF (DEBUG) WRITE(MDEBUG,*) 'TSTACK: PARTICLE BELOW ', + * 'ENERGY CUT' + INT_ICOUNT = INT_ICOUNT - 1 + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + SECPAR(2) * PAMA(5) + ENDIF + RETURN + ENDIF + + ELSEIF ( SECPAR(1) .EQ. 2.D0 .OR. SECPAR(1) .EQ. 3.D0 ) THEN +C ---ELECTRONS--- + IF ( (SECPAR(2) - 1.D0)*PAMA(2) .LT. ELCUT(3) ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'TSTACK: PARTICLE BELOW ', + * 'ENERGY CUT' + INT_ICOUNT = INT_ICOUNT - 1 + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( SECPAR(1) .EQ. 2.D0 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + * + (SECPAR(2)+1.D0) * PAMA(2) + ELSE + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + * + (SECPAR(2)-1.D0) * PAMA(2) + ENDIF + ENDIF + RETURN + ENDIF + + ELSEIF ( SECPAR(1) .EQ. 1.D0 ) THEN +C ---GAMMAS--- + IF ( SECPAR(2) .LT. ELCUT(4) ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'TSTACK: PARTICLE BELOW ', + * 'ENERGY CUT' + INT_ICOUNT = INT_ICOUNT - 1 + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + SECPAR(2) + ENDIF + RETURN + ENDIF + + ELSEIF (SECPAR(1) .GE. 100.D0 ) THEN +C ---NUCLEI---, CUTTED IF ENERGY/NUCLEON BELOW CUT + IF ( (SECPAR(2)-1.D0)*PAMA(NINT(SECPAR(1))) + * .LT. ELCUT(1)*NINT(SECPAR(1)/100.D0) ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'TSTACK: PARTICLE BELOW ', + * 'ENERGY CUT' + INT_ICOUNT = INT_ICOUNT - 1 + IF ( LLONGI ) THEN +C ADD KINETIC ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + * + ( SECPAR(2)*PAMA(NINT(SECPAR(1))) + * - RESTMS(NINT(SECPAR(1))) ) + ENDIF + RETURN + ENDIF + + ELSE +C ---HADRONS--- + IF ( (SECPAR(2)-1.D0)*PAMA(NINT(SECPAR(1))) .LT. ELCUT(1) ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'TSTACK: PARTICLE BELOW ', + * 'ENERGY CUT' + INT_ICOUNT = INT_ICOUNT - 1 + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT +C IN CASE OF NUCLEONS TAKE ONLY KINETIC ENERGY +C IN CASE OF ANTINUCLEONS TAKE RELEASABLE ENERGY + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + * + ( SECPAR(2) * PAMA(NINT(SECPAR(1))) + * - RESTMS(NINT(SECPAR(1))) ) + ENDIF + RETURN + ENDIF + + ENDIF + +C WRITE PARTICLE ABOVE CUT TO INTERMEDIATE STACK + DO I = 1,MAXLEN + STACKINT(I,INT_ICOUNT) = SECPAR(I) + ENDDO + + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : Johannes Knapp, IEKP U Karlsruhe 26/01/97 +C======================================================================= + + SUBROUTINE TSTEND + +C----------------------------------------------------------------------- +C T(O) ST(ACK) END (OF REACTION) +C +C MOVE INTERMEDIATE REACTION STACK TO THE REAL STACK +C AND PERFORM THINNING, IF SELECTED +C THIS SUBROUTINE IS CALLED FROM AAMAIN, BOX3, AND PIGEN. +C +C DESIGN : J. KNAPP, IEKP U KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,MUPART. + COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG + DOUBLE PRECISION AMUPAR(16),BCUT,CMUON(11) + LOGICAL FMUBRM,FMUORG +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,RESON. + COMMON /RESON/ RDRES,RESRAN,IRESPAR + REAL RDRES(2),RESRAN(30000) + INTEGER IRESPAR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,THNVAR. + COMMON /THNVAR/ STACKINT, + * INT_ICOUNT,MODETHN,THINNING + INTEGER MAXICOUNT + PARAMETER (MAXICOUNT=40000) + DOUBLE PRECISION STACKINT(16,MAXICOUNT) + INTEGER INT_ICOUNT,MODETHN + LOGICAL THINNING +*KEND. + + INTEGER I,K + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,1) INT_ICOUNT + 1 FORMAT(' TSTEND: TRANSFER INTERNAL REACTION STACK', + * ' WITH ',I6,' PARTICLES ') + + IF ( INT_ICOUNT .LE. 0 ) RETURN + +C PUT ALL PARTICLES FROM INTERMEDIATE STACK TO REAL STACK + DO K = 1,INT_ICOUNT + DO I = 1,MAXLEN + SECPAR(I) = STACKINT(I,K) + STACKINT(I,K) = 0.D0 + ENDDO + CALL TSTOUT + ENDDO + + RETURN + END +*CMZ : 27/02/2002 16.27.13 by D. HECK IK FZK KARLSRUHE +*-- Author : Johannes Knapp, IEKP U Karlsruhe 26/01/97 +C======================================================================= + + SUBROUTINE TSTOUT + +C----------------------------------------------------------------------- +C T(O) ST(ACK) OUT +C +C MAKE OUTPUT AFTER ONE INTERACTION HAS FINISHED +C ADDS PARTICLE TO STACK AND WRITES IT TO DISK IF NECESSARY +C THIS SUBROUTINE IS CALLED FORM MPPROP, PIGEN1, PIGEN2, RHOGEN, +C AND TSTEND +C +C DESIGN : J. KNAPP, IEKP U KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,ETHMAP. + COMMON /ETHMAP/ ECTMAP,ELEFT + DOUBLE PRECISION ECTMAP,ELEFT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKF. + COMMON /STACKF/ STACK,MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT, + * NTO,NFROM + INTEGER MAXSTK + PARAMETER (MAXSTK = 16*256*2) + DOUBLE PRECISION STACK(MAXSTK) + INTEGER MSTACKP,MEXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM +*KEND. + + INTEGER I,ISTK,J + SAVE + DATA ISTK / MAXSTK / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,666) ICOUNT,(SECPAR(J),J=1,9) + 666 FORMAT(' TSTOUT:',I7,1X,1P,8E10.3,0P,F10.0) + + IF ( MSTACKP .GE. ISTK ) THEN + WRITE(MEXST,REC=NOUREC+1) (STACK(I),I= 1,ISTK/2) + WRITE(MEXST,REC=NOUREC+2) (STACK(I),I=ISTK/2+1,ISTK ) + NOUREC = NOUREC + 2 + NSHIFT = NSHIFT + 2 + MSTACKP = 0 + ENDIF + + NTO = NTO + 1 + ICOUNT = ICOUNT + 1 + + DO 2 J = 1,MAXLEN + STACK(MSTACKP+J) = SECPAR(J) + 2 CONTINUE + MSTACKP = MSTACKP + MAXLEN + IF ( SECPAR(1) .LE. 1.D0 ) THEN + ELEFT = ELEFT + SECPAR(2) + ELSE + ELEFT = ELEFT + SECPAR(2) * PAMA(NINT(SECPAR(1))) + ENDIF + + RETURN + END +*CMZ : 05/03/2002 08.55.01 by D. HECK IK FZK KARLSRUHE +*-- Author : F. SCHROEDER UNI WUPPERTAL 17/11/98 +C======================================================================= + + SUBROUTINE UPDATC(IPASC,FLAGMU,fmfb) + +C----------------------------------------------------------------------- +C UPDAT(ES PARTICLE PARAMETERS IN A) C(URVED ATMOSPHERE) +C +C IN THE CASE THE HORIZONTAL COMPONENT OF THE TRACK IS TO LONG (> 20KM) +C THE PARTICLE TRACK IS CHOPPED IN SEVERAL SHORTER TRACKS. +C FOR EACH OF THESE CHOPPED TRACKS SUBR. UPDATE IS CALLED. +C THIS SUBROUTINE IS CALLED FROM AAMAIN, BOX3, AND MUTRAC. +C ARGUMENTS: +C IPASC = 0 TRANSPORT LEADS TO END OF RANGE OF PARTICLE +C 1 TRANSPORT LEADS TO OBSERVATION LEVEL +C FLAGMU FLAG INDICATING THE TRACKING OF MUONS +C +C DESIGN : F. SCHROEDER UNI WUPPERTAL +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MAGNET. + COMMON /MAGNET/ BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT + DOUBLE PRECISION BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,CORFRAM, IF=CURVED. + COMMON /CORFRAM/ DETSYS + LOGICAL DETSYS +*KEND. + + DOUBLE PRECISION ARG,AUXIL,AUXILSQ,AUX2SQ,CHIC,CHIMAX,CHIN,CORR, + * COSDIF,COSTHENEW,DISTN2,DISTO2,DSTEFF, + * EDEPB,EDEPN,EDEP1,EFRST,GAMMAOLD,GAMMAN, + * HEIGH,HNEW,HOLD,SIGNE,SINDIF,SINI,SINTEA,STEPLC, + * STEPLO,STEPT,THCKHN,THCKHO,THICK,THICKHOLD, + * TRANS2,WORK,XNEW,XOLD,YNEW,YOLD + INTEGER I,IL,IPASC,LPCT1,LPCT2 + LOGICAL FLAGMU +c-----changed--add + logical fmfb +c-----changed--add + DOUBLE PRECISION HNEWO + SAVE + EXTERNAL HEIGH,THICK +C----------------------------------------------------------------------- + + IF (DEBUG) WRITE(MDEBUG,457) (CURPAR(I),I=1,9),FLAGMU + 457 FORMAT(' UPDATC: CURPAR=',1P,9E10.3,0P/ + * ' FLAGMU=',L2) + +C NOTE: ARG = PENETRATED MATTER THICKNESS HAS TO BE A CONSTANT +C FOR THE WHOLE PARTICLE UPDATING +C => LOOP OVER PIECES OF ARG (ALSO CONSTANTS FOR UPDATE) +C START VALUES FOR LOOP OVER PENETRATED MATTER THICKNESS + IRET2 = 0 +C STORE THE THICKNES CHI TO BE TRANSPORTED + CHIC = CHI + ARG = CHI +C STORE THE PATH LENGTH STEPL DO BE TRANSPORTED + IF ( FLAGMU ) THEN + STEPLC = STEPL + ELSE + STEPLC = 0.D0 + ENDIF + STEPLO = 0.D0 + HNEW = H + THCKHN = THICKH + XNEW = X + YNEW = Y + SINTEA = SQRT(1.D0 - COSTEA**2) + IF ( LLONGI ) THEN + GAMMAOLD = GAMMA + THICKHOLD = THICKH + LPCT1 = INT(THICKHOLD*THSTPI + 1.D0) + ENDIF +C CHOPPING OF TOTAL PATH LENGTH CHIC INTO SMALLER PIECES AND +C TRANSPORT IN LOCAL PLANE SYSTEMS. STEP LENGTH LIMITATION DEPENDS ON +C THICKNESS OF STARTING POINT. LOOP OVER ALL SMALL PIECES OF STEP + + 2 CONTINUE +C SAVE OLD LOCAL HEIGHT FOR TRANSFORMATION AFTER UPDATE + HOLD = HNEW + XOLD = XNEW + YOLD = YNEW + DISTO2 = XNEW**2 + YNEW**2 + IF (DEBUG) WRITE(MDEBUG,*) 'UPDATC: CHIC,HOLD,THCKHN=', + * SNGL(CHIC),SNGL(HOLD),SNGL(THCKHN) +C LOOK WITHIN WHICH LAYER THE PARTICLE STARTS + IF ( HOLD .LE. HLAY(2) ) THEN + IL = 1 + ELSEIF ( HOLD .LE. HLAY(3) ) THEN + IL = 2 + ELSEIF ( HOLD .LE. HLAY(4) ) THEN + IL = 3 + ELSE + IL = 4 + ENDIF +C LOOK FOR MAXIMAL STEP OF CHICNEW, ONLY IF NOT CLOSE TO VERTICAL +C BEFORE ENTERING NEW ATMOSPHERIC LAYER + IF ( COSTHE .LT. 0.98D0 ) THEN + SINI = DATM(IL) / SQRT(1.D0 - COSTHE**2) +* IF ( DEBUG ) WRITE(MDEBUG,*) 'UPDATC: SINI=',SINI + WORK = C(4) * THCKHN + C(3) + IF ( HOLD .LT. HLAY(5) ) THEN + CHIMAX = ( THCKHN - AATM(IL) ) * SINI * + * ( WORK + 0.5D0*COSTHE*SINI * WORK**2 ) + ELSE + CHIMAX = WORK * SINI * DATM(5)/DATM(IL) + ENDIF + IF (DEBUG) WRITE(MDEBUG,301) CHIMAX + 301 FORMAT(' UPDATC: CHIMAX=',F10.5,' TO NEXT ATMOSPHERIC BOUNDARY') + IF ( CHIC .GE. CHIMAX ) THEN + CHIN = CHIMAX + ELSE + CHIN = CHIC + ENDIF + ELSE + CHIN = CHIC + ENDIF + +C CALCULATE VALUES FOR UPDATE + THCKHO = THCKHN + THCKHN = THCKHO + CHIN * COSTHE + HNEW = HEIGH(THCKHN) + IF ( HNEW .GT. HOLD ) THEN +C MAKE A SMALL STEP OF 0.1 CM DEEPER INTO THE ATMOSPHERE + HNEW = HOLD - 0.1D0 + THCKHN = THICK(HNEW) + ENDIF + +C CHECK WETHER PARTICLE PASSES OBSERVATION LEVEL + IF ( HNEW .LE. OBSLEV(1) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,558) COSTHE,H,X,Y + 558 FORMAT(' UPDATC: UNCORR COSTHE,H,X,Y=',1P,4E17.10,0P) +C CORRECT PARTICLE COORDINATES FOR DETECTOR SYSTEM +C FIRST CALCULATE COSTAP AND HAPP IN OLD SYSTEM + AUXILSQ = SQRT(X**2 + Y**2) + COSTEA = COS(AUXILSQ/C(1)) + COSTEA = MIN( 1.D0, COSTEA ) + HAPP = (C(1)+HOLD) * COSTEA - C(1) +C REJECT PARTICLE WHICH TRAVERSES BELOW OBSERVATION LEVEL MEASURED +C IN THE DETECTOR FRAME + IF ( HAPP .LT. OBSLEV(1) ) GOTO 200 +C REGARD WHETHER PARTICLE IS MOVING TOWARDS DETECTOR +C EFFECTIVE DISTANCE TO DETECTOR CENTER IS DISTANCE TO POINT +C OF FLIGHT PATH PROJECTION WHICH COMES CLOSEST TO DETECTOR CENTER + DSTEFF = -( COS(PHI)*X + SIN(PHI)*Y ) +C CALCULATE CORRECTION ANGLE DIF FROM EFFECTIVE DISTANCE + SINDIF = SIN(DSTEFF/C(1)) + COSDIF = SQRT( 1.D0 - SINDIF**2 ) + COSTHENEW = COSTHE*COSDIF - SQRT(1.D0-COSTHE**2)*SINDIF + IF (DEBUG) WRITE(MDEBUG,*) 'UPDATC: COSDIF,COSTHENEW=', + * COSDIF,COSTHENEW + COSTHE = MIN( 1.D0, COSTHENEW ) +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( COSTHE .LE. C(29) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,556) (CURPAR(I),I=1,9) + 556 FORMAT(' UPDATC: KILL 1=',1P,10E10.3) + GOTO 200 + ENDIF +C ANGLE DIF MIGHT BE LARGE (DUE TO CUT ON HAPP) + X = (HAPP+C(1))*TAN(X/C(1)) + Y = (HAPP+C(1))*TAN(Y/C(1)) + H = HAPP + IF ( DEBUG ) WRITE(MDEBUG,559) COSTHE,H,X,Y + 559 FORMAT(' UPDATC: CORREC COSTHE,H,X,Y=',1P,4E17.10,0P) + HNEW = OBSLEV(1) + THCKHN = THCKOB(1) + IPASC = 1 + DETSYS = .TRUE. + ELSE + IPASC = 0 + DETSYS = .FALSE. + ENDIF + HNEWO = HNEW + +C CALL UPDATE WITH NEW INPUT PARAMETERS ( HNEW,THCKHN,CURPAR(..) ) + CHI = CHIN +c-----changed--add + CALL UPDATE( HNEW,THCKHN,0,fmfb ) +c-----changed--add + CHIN = CHI +C DECREMENT THE THICKNESS STILL TO BE TRAVERSED + CHIC = CHIC - CHI +C INCREMENT STEPLO BY THE LENGTH PERFORMED IN UPDATE + IF ( FLAGMU ) STEPLO = STEPLO + STEPL + IF (DEBUG) WRITE(MDEBUG,*) 'UPDATC: CHIC,CHIN=',CHIC,CHIN + IF ( IRET2 .NE. 0 ) THEN + IF ( IRETE ) THEN +C PARTICLE SUFFERED FROM ENERGY CUT + GOTO 150 + ELSE +C PARTICLE SUFFERED FROM ANGULAR CUT + GOTO 200 + ENDIF + ENDIF + +C KILL PARTICLE AS IT HAS BEEN STOPPED (MODIFIED HNEW IN UPDATE) +C (NORMALLY BEDCAUSE OF ENERGY CUT) +C IF ( HNEW .NE. HNEWO ) THEN +C IRET2 = 1 +C IRETE = .TRUE. +C GOTO 150 +C ENDIF +C FOR CHARGED PARTICLES COSINE OF ZENITH ANGLE IS CALCULATED IN UPDATE. +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( OUTPAR(3) .LE. C(29) ) GOTO 200 + +C FILL CURPAR WITH ACTUAL VALUES OF PARTICLE AFTER TRANSPORT IN UPDATE +C OUTPAR(13-16) IS NOT MODIFIED IN UPDATE + DO I = 2,8 + CURPAR(I) = OUTPAR(I) + ENDDO + THICKH = THCKHN + + IF ( IPASC .EQ. 0 ) THEN +C TRACK ENDS NOT AT OBSERVATION LEVEL +C HORIZONTAL COMPONENT OF TRACK LENGTH SQUARED + TRANS2 = (X-XOLD)**2 + (Y-YOLD)**2 +C TRANSPORT AT MINIMUM 1 MM + TRANS2 = MAX(TRANS2,0.01D0) +C NEW COORDINATE FRAME, NEW ACTUAL HEIGHT AT NEW THICKNESS GRADIENT +C (CALCULATED WITH PARAMETERS OF OLD COORDINATE FRAME) + AUXIL = SQRT( TRANS2 + (C(1)+H)**2 ) + HNEW = AUXIL - C(1) + IF ( HNEW .GE. HLAY(6) ) THEN +C KILL PARTICLE WHICH LEAVES ATMOSPHERE + IF ( DEBUG ) WRITE(MDEBUG,*) 'UPDATC: HNEW=',HNEW,' KILL' + GOTO 200 + ENDIF + THCKHN = THICK(HNEW) +C CALCULATE ANGLE DIFFERENCE BETWEEN OLD AND NEW FRAME + SINDIF = SQRT(TRANS2) / AUXIL + COSDIF = (C(1)+H) / AUXIL + IF ( DEBUG ) WRITE(MDEBUG,560) COSDIF,SINDIF,H,HNEW + 560 FORMAT(' UPDATC: COSDIF,SINDIF,H,HNEW=',2F18.15,1P,2E17.9) + COSDIF = MIN(1.D0,COSDIF) +C X AND Y HAVWE TO BE TRANSFORMED INTO 'EARTH'-COORDINATES (SPHERE) +C BEFORE THE COMPARISON WITH DISTO2 IS DONE. +C TRANSPORT DISTANCE IS CORRECTED TO GET DISTANCE AT EARTHS SURFACE + CORR = C(1)*ASIN(SINDIF)/( (C(1)+HNEW)*SINDIF ) + XNEW = XOLD + (X-XOLD)*CORR + X = XNEW + YNEW = YOLD + (Y-YOLD)*CORR + Y = YNEW + H = HNEW + +C NEW DISTANCE FROM PARTICLE TO DETECTOR CENTER + DISTN2 = X**2 + Y**2 +C COMPARE NEW AND OLD DISTANCE TO DETECTOR CENTER + IF ( DISTN2 .LT. DISTO2 ) THEN +C PARTICLE MOVES TOWARDS DETECTOR CENTER + SIGNE = +1.D0 + ELSE + SIGNE = -1.D0 + IF (DEBUG) WRITE(MDEBUG,*) 'UPDATC: SIGNE=',SIGNE + ENDIF + +C IN FIRST ORDER APPROXIMATION COSTHE AND COSDIF ARE IN THE SAME PLANE +C OF PARTICLE MOVEMENT, THEREFORE THE ANGLES MAY BE ADDED DIRECTLY + COSTHENEW = COSTHE*COSDIF - SIGNE*SINDIF*SQRT(1.D0-COSTHE**2) + COSTHE = MIN( 1.D0, COSTHENEW ) +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( COSTHE .LE. C(29) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,555) (CURPAR(I),I=1,9) + 555 FORMAT(' UPDATC: KILL 0=',1P,10E10.3) + GOTO 200 + ENDIF + + IF ( DEBUG ) WRITE(MDEBUG,562) COSTEA,HAPP + 562 FORMAT(' UPDATC: COSTEA,HAPP=',F18.15,1P,E17.9) + IF ( DEBUG ) WRITE(MDEBUG,557) (CURPAR(I),I=1,9) + 557 FORMAT(' UPDATC: STPEND=',1P,9E10.3,0P/) +C WE ARE NOT YET AT DETECTOR. + IF ( FDECAY ) THEN +C IS WHOLE CHIC OR STEPLC TRAVERSED ? + IF ( CHIC .GT. 1.D-10 .AND. STEPLO .LT. STEPLC ) GOTO 2 + ELSE +C IS WHOLE CHIC TRAVERSED ? + IF ( CHIC .GT. 1.D-10 ) GOTO 2 + ENDIF +C RESTORE CHI IN COMMON CUPPAR FOR CORRECT USE IN MUTRAC + CHI = ARG - CHIC +C RESTORE STEPL IN COMMON MUMULT FOR CORRECT USE IN MUTRAC + IF ( FLAGMU ) STEPL = STEPLO + IF ( DEBUG ) WRITE(MDEBUG,*) 'MUTRAC: CHI,STEPL=', + * SNGL(CHI),SNGL(STEPL) + +C CALCULATE ANGLES IN THE NEW FRAME + AUXILSQ = SQRT(X**2 + Y**2) + COSTEA = COS(AUXILSQ/C(1)) + COSTEA = MIN( 1.D0, COSTEA ) + HAPP = (C(1)+HNEW) * COSTEA - C(1) +C REJECT PARTICLE WHICH TRAVERSES BELOW OBSERVATION LEVEL MEASURED +C IN THE DETECTOR FRAME + IF ( HAPP .LT. OBSLEV(1) ) GOTO 200 + AUX2SQ = SQRT( (C(1)+HNEW)**2*(1.D0 - COSTEA**2) + * + (HAPP-OBSLEV(1))**2 ) + COSTAP = (HAPP-OBSLEV(1)) / AUX2SQ + IF ( DEBUG ) WRITE(MDEBUG,*) 'UPDATC: COSTAP=',COSTAP + COSTAP = MIN( 1.D0, COSTAP ) + OUTPAR(3) = COSTHE + OUTPAR(5) = H + OUTPAR(7) = X + OUTPAR(8) = Y + ENDIF + + 150 IF ( LLONGI ) THEN +C THE PARTICLE IS TRACKED FROM THICKHOLD DOWN TO THCKHN + LPCT2 = INT(THCKHN*THSTPI) + IF ( SIGNUM(ITYPE) .NE. 0.D0 ) THEN + GAMMAN = OUTPAR(2) +C TOTAL PATH LENGTH IN UNITS OF LONGI BINS + STEPT = (THCKHN - THICKHOLD)*THSTPI +C CHARGED PARTICLES SUFFER IONIZATION LOSS. +C WE ASSUME HOMOGENEOUS ENERGY DEPOSIT ALONG PATH + IF ( STEPT .GT. 0.D0 ) THEN +C IONIZATION ENERGY DEPOSED IN EACH BIN + EDEPB = PAMA(ITYPE) * (GAMMAOLD - GAMMAN) / STEPT + ELSE + EDEPB = 0.D0 + ENDIF +C ENERGY DEPOSIT IN FIRST BIN + EDEP1 = EDEPB * (DBLE(LPCT1) - THICKHOLD*THSTPI) +C ENERGY AT FIRST BIN BOUNDARY + + EFRST = PAMA(ITYPE) * GAMMAOLD - EDEP1 + IF ( LPCT2. LT. LPCT1 ) THEN + EDEPN = EDEPB * (THCKHN*THSTPI - DBLE(LPCT1)) + ELSE + IF ( IPASC .EQ. 0 ) THEN + EDEPN = MAX( 0.D0, EDEPB * (THCKHN*THSTPI - DBLE(LPCT2)) ) + ELSE +C PARTICLE ARRIVED AT DETECTOR + LPCT2 = NSTEP + EDEPN = 0.D0 + ENDIF + ENDIF + +C NOW FILL FIRST AND LAST+1 BIN, THEN LOOP OVER THE BINS BETWEEN + IF ( ITYPE .EQ. 5 ) THEN +C MUON(+) LONGITUDIAL DEVELOPMENT FOR DEPOSIT, ENERGY, PARTICLES + DLONG(LPCT1 ,4) = DLONG(LPCT1 ,4) + EDEP1 + DLONG(LPCT2+1,4) = DLONG(LPCT2+1,4) + EDEPN + IF ( LPCT2 .GE. LPCT1 ) THEN + ELONG(LPCT2,4) = ELONG(LPCT2,4) + * + (EFRST-(LPCT2-LPCT1)*EDEPB) + PLONG(LPCT2,4) = PLONG(LPCT2,4) + 1.D0 + ENDIF + ELSEIF ( ITYPE .EQ. 6 ) THEN +C MUON(-) LONGITUDIAL DEVELOPMENT FOR DEPOSIT, ENERGY, PARTICLES + DLONG(LPCT1 ,4) = DLONG(LPCT1 ,4) + EDEP1 + DLONG(LPCT2+1,4) = DLONG(LPCT2+1,4) + EDEPN + IF ( LPCT2 .GE. LPCT1 ) THEN + ELONG(LPCT2,5) = ELONG(LPCT2,5) + * + (EFRST-(LPCT2-LPCT1)*EDEPB) + PLONG(LPCT2,5) = PLONG(LPCT2,5) + 1.D0 + ENDIF + ELSEIF ( ITYPE .LT. 100 ) THEN +C CHARGED HADRON LONGITUDIAL DEVELOPMENT FOR DEPOSIT, ENERGY, PARTICLES + DLONG(LPCT1 ,6) = DLONG(LPCT1 ,6) + EDEP1 + DLONG(LPCT2+1,6) = DLONG(LPCT2+1,6) + EDEPN + IF ( LPCT2 .GE. LPCT1 ) THEN + ELONG(LPCT2,6)=ELONG(LPCT2,6)+(EFRST-(LPCT2-LPCT1)*EDEPB) + ELONG(LPCT2,7)=ELONG(LPCT2,7)+(EFRST-(LPCT2-LPCT1)*EDEPB) + PLONG(LPCT2,6) = PLONG(LPCT2,6) + 1.D0 + PLONG(LPCT2,7) = PLONG(LPCT2,7) + 1.D0 + ENDIF + ELSE +C NUCLEI LONGITUDIAL DEVELOPMENT FOR DEPOSIT, ENERGY, PARTICLES + DLONG(LPCT1 ,6) = DLONG(LPCT1 ,6) + EDEP1 + DLONG(LPCT2+1,6) = DLONG(LPCT2+1,6) + EDEPN + IF ( LPCT2 .GE. LPCT1 ) THEN + ELONG(LPCT2,8)=ELONG(LPCT2,8)+(EFRST-(LPCT2-LPCT1)*EDEPB) + PLONG(LPCT2,8) = PLONG(LPCT2,8) + 1.D0 + ENDIF + ENDIF + +C LOOP OVER ALL LONGITUDINAL BINS + IF ( LPCT2 .GT. LPCT1 ) THEN + DO IL = LPCT1,LPCT2-1 + IF ( ITYPE .EQ. 5 ) THEN +C MUON(+) LONGITUDIAL DEVELOPMENT FOR DEPOSIT, ENERGY, PARTICLES + DLONG(IL+1,4) = DLONG(IL+1,4) + EDEPB + ELONG(IL,4) = ELONG(IL,4) + (EFRST-(IL-LPCT1)*EDEPB) + PLONG(IL,4) = PLONG(IL,4) + 1.D0 + ELSEIF ( ITYPE .EQ. 6 ) THEN +C MUON(-) LONGITUDIAL DEVELOPMENT FOR DEPOSIT, ENERGY, PARTICLES + DLONG(IL+1,4) = DLONG(IL+1,4) + EDEPB + ELONG(IL,5) = ELONG(IL,5) + (EFRST-(IL-LPCT1)*EDEPB) + PLONG(IL,5) = PLONG(IL,5) + 1.D0 + ELSEIF ( ITYPE .LT. 100 ) THEN +C CHARGED HADRON LONGITUDIAL DEVELOPMENT FOR DEPOSIT, ENERGY, PARTICLES + DLONG(IL+1,6) = DLONG(IL+1,6) + EDEPB + ELONG(IL,6) = ELONG(IL,6) + (EFRST-(IL-LPCT1)*EDEPB) + ELONG(IL,7) = ELONG(IL,7) + (EFRST-(IL-LPCT1)*EDEPB) + PLONG(IL,6) = PLONG(IL,6) + 1.D0 + PLONG(IL,7) = PLONG(IL,7) + 1.D0 + ELSE +C NUCLEI LONGITUDIAL DEVELOPMENT FOR DEPOSIT, ENERGY, PARTICLES + DLONG(IL+1,6) = DLONG(IL+1,6) + EDEPB + ELONG(IL,8) = ELONG(IL,8) + (EFRST-(IL-LPCT1)*EDEPB) + PLONG(IL,8) = PLONG(IL,8) + 1.D0 + ENDIF + ENDDO + ENDIF + ELSE +C NEUTRAL PARTICLES +C LONGITUDINAL DISTRIBUTIONS FOR NEUTRAL HADRONS WITHOUT NEUTRINOS +C THE PARTICLE IS TRACKED FROM THICKH DOWN TO THCKHN +C COUNT THE PARTICLES FOR THE LONGITUDINAL DEVELOPMENT + IF ( (ITYPE.GE. 7 .AND. ITYPE.LE.32) .OR. + * (ITYPE.GE.71 .AND. ITYPE.LE.74) ) THEN + IF ( IPASC .NE. 0 ) THEN +C PARTICLE ARRIVES AT DETECTOR + LPCT2 = NSTEP + ENDIF + DO IL = LPCT1,LPCT2 + ELONG(IL,6) = ELONG(IL,6) + GAMMA * PAMA(ITYPE) + PLONG(IL,6) = PLONG(IL,6) + 1.D0 + ENDDO + ENDIF + ENDIF + IF ( IRET2 .NE. 0 .AND. IRETE ) THEN +C FILL REMAINING CUTTED ENERGY INTO LONGI BIN AT CUTTING POINT + LHEIGH = LPCT2 + IF ( ITYPE .EQ. 5 .OR. ITYPE .EQ. 6 ) THEN + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + GAMMAN*PAMA(5) + ELSE + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAMMAN*PAMA(ITYPE) + * - RESTMS(ITYPE) + ENDIF +C ELIMINATE PARTICLE FALLING BELOW ENERGY CUT + RETURN + ENDIF + ENDIF +C ELIMINATE PARTICLE FALLING BELOW ENERGY CUT + IF ( IRET2 .NE. 0 .AND. IRETE ) RETURN + +C- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + +C TRANSPORT TO END OF TRACK + IF ( IPASC .EQ. 0 ) THEN + ALEVEL = H + BETA = SQRT( GAMMA**2 - 1.D0 ) / GAMMA + THICKH = THCKHN + ELSE +C TRANSPORT TO OBSERVATION LEVEL AND BRING TO OUTPUT +C COORDINATE SYSTEM AT END OF TRACK HAS TO BE DETECTOR FRAME + LEVL = 1 + CALL OUTPT1 + ENDIF + + RETURN + + 200 CONTINUE +C TREATMENT OF KILLED PARTICLES +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT, IF PARTICLE IS CUTTED + IF ( LLONGI ) THEN +C PARTICLE SUFFERED FROM ANGULAR CUT + IF ( ITYPE .EQ. 5 .OR. ITYPE .EQ. 6 ) THEN + DLONG(LPCT1,5) = DLONG(LPCT1,5) + GAMMAOLD * PAMA(5) + ELSE + DLONG(LPCT1,7) = DLONG(LPCT1,7) + GAMMAOLD * PAMA(ITYPE) + * - RESTMS(ITYPE) + ENDIF + ENDIF + 201 IRET2 = 1 + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE UPDATE( HNEW,THCKHN,IPAS,fmfb ) + +C----------------------------------------------------------------------- +C UPDATE(S PARTICLE PARAMETERS) +C +C UPDATES PARTICLE PARAMETERS TO OBSERVATION LEVEL WITH NUMBER IPAS +C OR TO POINT OF INTERACTION OR DECAY (IPAS=0) +C FOR CHARGED PARTICLES THE ENERGY LOSS IS COMPUTED FOR THE WHOLE STEP, +C SUBDIVIDED BY THE BOUNDARIES OF THE ATMOSPHERIC LAYERS. +CCCTHE PARTICLE IS FLYING THE 1ST HALF (DH/2) WITH INITIAL ENERGY +C THE PARTICLE IS FLYING THE 1ST HALF (CHI/2) WITH INITIAL ENERGY +C AND ANGLE AND THE 2ND HALF WITH FINAL ENERGY AND ANGLE. +C THE TIME CALCULATION FOLLOWS THIS SIMPLIFICATION. +C CHARGED PARTICLES ARE DEFLECTED IN THE EARTH MAGNETIC FIELD. +C THE ANGLE OF DEFLECTION BY MULTIPLE SCATTERING IS COMPUTED ONLY +C FOR MUONS AND ONLY ONCE FOR THE WHOLE STEP AT HALF THICKNESS. +C IF PARTICLES COME TO REST BY STOPPING, THEIR PATH TO THE STOPPING +C POINT IS CALCULATED. +C CHERENKOV RADIATION IS CALCULATED ONLY FOR LOWEST OBSERVATION LEVEL +C THIS SUBROUTINE IS CALLED FROM AAMAIN, BOX3, MUTRAC +C AND UPDATC. +C ARGUMENTS: +C HNEW = ALTITUDE OF PARTICLE AFTER UPDATE +C THCKHN = THICKNESS OF HNEW +C IPAS = 0 TRANSPORT TO END OF RANGE OF PARTICLE +C .NE. 0 TRANSPORT TO PASSAGE OF OBSERVATION LEVEL IPAS +C +C REDESIGN: D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,IRET. + COMMON /IRET/ IRET1,IRET2,IRETE + INTEGER IRET1,IRET2 + LOGICAL IRETE +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MAGNET. + COMMON /MAGNET/ BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT + DOUBLE PRECISION BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT +*KEEP,MUMULT. + COMMON /MUMULT/ CHC,OMC,PHISCT,STEPL,VSCAT,FMOLI + DOUBLE PRECISION CHC,OMC,PHISCT,STEPL,VSCAT + LOGICAL FMOLI +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,CORFRAM, IF=CURVED. + COMMON /CORFRAM/ DETSYS + LOGICAL DETSYS +*KEND. + + DOUBLE PRECISION ALPHA1,ALPHA2,BETAN,DENS,DH,DR,DTHICK,ELOSS, + * FNORM1,FNORM2,F1COS1,F1COS2,F1SIN1,F1SIN2, + * GAMMAN,GAMSQ,GLCUT,GMSQM1,HEIGH,HMIDDL, + * HNEW,OMEGA,PHI1,RADINV,RANNOR, + * SINTH1,SINTH2,SN,SN1,SN2,SN3,SN4, + * SNMIDDL1,SNMIDDL2,THICK, + * THCKHN,THICKMDL,USW,U10,U12,U20,U22,V,VVV, + * V10,V12,V20,V22,W10,W12,W20,W22 + INTEGER I,IL,IPAS + LOGICAL CFLAG,MUS + DOUBLE PRECISION GAM0,TH0 + DOUBLE PRECISION CHIT,DT,GAMK,HNEWC,RATIO,THCKHC + INTEGER ILAY + LOGICAL TCRNKV,TFLAG +c-----changed--add + logical fmfb +c-----changed--add + DOUBLE PRECISION AUXIL,CORR,DX,DY,SINDIF,TRANS2 + SAVE + EXTERNAL HEIGH,RANNOR,THICK + DOUBLE PRECISION XBEG,YBEG,ZBEG,TBEG,EBEG,XEND,YEND,ZEND,TEND, + * EEND,TPART,XPART,YPART,ZPART,WTPART,CTEA + DATA CFLAG /.TRUE./ +C----------------------------------------------------------------------- + + IF (DEBUG) WRITE(MDEBUG,457) (CURPAR(I),I=1,9),HNEW + 457 FORMAT(' UPDATE: CURPAR=',1P,9E10.3/ + * ' TO HEIGHT ',0P,F13.1) + + IRET2 = 1 + IRETE = .FALSE. +C TOTAL HEIGHT DIFFERENCE + DH = MAX( H - HNEW, 1.D-10 ) +C ATMOSPHERE THICKNESS TRAVERSED + DTHICK = MAX( 0.D0, (THCKHN - THICKH) / COSTHE ) +C TOTAL PATH FOR UNDEFLECTED PARTICLE + SN = DH / COSTHE +C GEOMETRICAL MIDDLE +CDH HMIDDL = H - 0.5D0*DH +C MIDDLE OF THICKNESS + THICKMDL = THICKH + 0.5D0*DTHICK*COSTHE + HMIDDL = HEIGH(THICKMDL) + + SNMIDDL1 = ((H-HMIDDL))/COSTHE + SNMIDDL2 = SN - SNMIDDL1 + SN1 = 0.5D0 * SNMIDDL1 + + +C CALCULATE KINETIC ENERGY CUT + IF ( ITYPE .EQ. 5 .OR. ITYPE .EQ. 6 ) THEN + MUS = .TRUE. + GLCUT = ELCUT(2) / PAMA(ITYPE) + 1.D0 + ELSE + MUS = .FALSE. + GLCUT = ELCUT(1) / PAMA(ITYPE) + 1.D0 + ENDIF + +C CALCULATE THE ENERGY LOSS FOR CHARGED PARTICLES + IF ( SIGNUM(ITYPE) .NE. 0.D0 ) THEN +C LOOK WITHIN WHICH LAYER THE PARTICLE STARTS + IF ( H .LE. HLAY(2) ) THEN + ILAY = 1 + TH0 = THICKH + ELSEIF ( H .LE. HLAY(3) ) THEN + ILAY = 2 + TH0 = THICKH + ELSEIF ( H .LE. HLAY(4) ) THEN + ILAY = 3 + TH0 = THICKH + ELSE + ILAY = 4 + TH0 = MAX( THICKH, THICKL(5) ) + ENDIF +C SET START VALUES FOR ITERATION + GAM0 = GAMMA + IL = ILAY + 1 CONTINUE + GAM0 = MAX( GAM0, 1.0001D0 ) + GAMSQ = GAM0**2 + GMSQM1 = GAMSQ - 1.D0 +C ENERGY LOSS BY IONIZATION + ELOSS = SIGNUM(ITYPE)**2 * C(22) * + * ( GAMSQ * (LOG(GMSQM1) + C(23)) / GMSQM1 - 1.D0 ) +C LOOK WETHER PARTICLE PENETRATES LAYER BOUNDARY + IF ( THICKL(IL) .LT. THCKHN .AND. IL .GT. 1 ) THEN +C CALCULATE NEW START VALUES AT LAYER BOUNDARY + GAM0 = GAM0 - ELOSS * (THICKL(IL) - TH0) + * / (PAMA(ITYPE)*COSTHE) + IF ( GAM0 .LE. 1.D0 ) THEN + GAMMAN = 1.0001D0 + GOTO 3 + ENDIF + TH0 = THICKL(IL) + IL = IL - 1 + GOTO 1 + ENDIF +C GAMMA VALUE FOR CHARGED PARTICLES AT END OF STEP + GAMMAN = GAM0 - ELOSS * (THCKHN-TH0) / (PAMA(ITYPE)*COSTHE) + 3 CONTINUE + + ELSE +C NO LOSS FOR NEUTRAL PARTICLES + GAMMAN = GAMMA + ENDIF + + IF ( LLONGI .OR. CFLAG ) THEN +C PARTICLE HAS TO BE TRACKED TO THE CUTOFF ENERGY FOR CHERENKOV PHOTONS +C OR FOR LONGITUDINAL DISTRIBUTIONS (AS NEUTRAL DO NOT LOOSE ENERGY IN +C UPDATE, THIS CONDITION IS FULFILLED BY CHARGED PARTICLES ONLY) + IF ( SIGNUM(ITYPE) .NE. 0.D0 .AND. GAMMAN .LT. GLCUT ) THEN + GAMMAN = 0.9D0 + GLCUT * 0.1D0 + +C SET START VALUES FOR ITERATION + IL = ILAY + CHIT = 0.D0 + GAM0 = GAMMA + TH0 = MAX( THICKH, THICKL(5) ) + 2 CONTINUE + GAM0 = MAX( GAM0, 1.0001D0 ) + GAMSQ = GAM0**2 + GMSQM1 = GAMSQ - 1.D0 +C ENERGY LOSS BY IONIZATION + ELOSS = SIGNUM(ITYPE)**2 * C(22) * + * ( GAMSQ * (LOG(GMSQM1) + C(23)) / GMSQM1 -1.D0 ) + ELOSS = ELOSS / (PAMA(ITYPE) * COSTHE) + GAMK = GAM0 - ELOSS * (THICKL(IL) - TH0) +C LOOK WETHER PARTICLE PENETRATES LAYER BOUNDARY + IF ( GAMMAN .LT. GAMK .AND. IL. GT. 1 ) THEN +C CALCULATE PORTION OF RANGE AND NEW START VALUES AT LAYER BOUNDARY + CHIT = CHIT + (THICKL(IL) - TH0) / COSTHE + GAM0 = GAMK + TH0 = THICKL(IL) + IL = IL - 1 + GOTO 2 + ENDIF +C PENETRATED MATTER THICKNESS + CHI = CHIT + (GAM0 - GAMMAN) / (ELOSS*COSTHE) + IF ( DEBUG ) WRITE(MDEBUG,*) 'UPDATE: GAMMAN,CHI=', + * SNGL(GAMMAN),SNGL(CHI) +C CALCULATE CORRECTED PATH PARAMETERS + THCKHC = THICKH + COSTHE * CHI + HNEWC = HEIGH(THCKHC) + DT = SN / (C(25) * BETA * GAMMA) + RATIO = .5D0 * (H-HNEWC) / DH + DH = MAX( H - HNEWC, 1.D-10 ) + SN = DH / COSTHE +C GEOMETRICAL MIDDLE +CDH HMIDDL = H - 0.5D0*DH +C MIDDLE OF THICKNESS + THICKMDL = THICKH + 0.5D0*CHI*COSTHE + HMIDDL = HEIGH(THICKMDL) + SNMIDDL1 = ((H-HMIDDL))/COSTHE + SNMIDDL2 = SN - SNMIDDL1 + SN1 = 0.5D0 * SNMIDDL1 + TFLAG = .TRUE. + ELSE + TFLAG = .FALSE. + ENDIF + ELSE + IF ( GAMMAN .LT. GLCUT ) THEN +C REJECT ALL PARTICLES IF BELOW KINETIC ENERGY CUT + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'UPDATE: PARTICLE ',ITYPE,' BELOW ENERGY CUT' + IRETE = .TRUE. + RETURN + ENDIF + ENDIF + +C----------------------------------------------------------------------- + IF ( IPAS .EQ. 0 ) THEN +C UPDATE TO THE END POINT OF THE TRACK + + IF ( MUS ) THEN +C COULOMB SCATTERING ANGLE (FOR MUONS ONLY) + IF ( FMOLI ) THEN +C TREAT MUON MULTIPLE SCATTERING BY MOLIERE THEORY (SEE GEANT) +C CALCULATE AVERAGE DENSITY AND NUMBER OF SCATTERING (OMEGA) + DENS = COSTHE * CHI/DH + OMEGA = OMC * CHI / BETA**2 + IF ( OMEGA .LE. 20.D0 ) THEN +C FEW SCATTERING EVENTS, APPLY PLURAL COULOMB SCATTERING + CALL MUCOUL(OMEGA,DENS) + ELSE +C ENOUGH SCATTERING EVENTS, APPLY MOLIERE'S THEORY + CALL MMOLIE(OMEGA,DENS) + ENDIF + ELSE +C TREAT MUON MULTIPLE SCATTERING BY GAUSS DISTRIBUTION + VSCAT = RANNOR( 0.D0, C(30) * SQRT( CHI/C(21) ) + * / (PAMA(5) * GAMMA * BETA**2) ) + ENDIF + CALL RMMAR( RD,1,1 ) + PHISCT = RD(1) * PI2 + V = VSCAT + IF (DEBUG) WRITE(MDEBUG,*) 'UPDATE: VSCAT=',SNGL(VSCAT), + * ' PHISCT=',SNGL(PHISCT) + ENDIF + + IF ( LLONGI .OR. CFLAG ) THEN + IF ( TFLAG ) THEN + HNEW = HNEWC + THCKHN = THCKHC + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'UPDATE: CHANGED HNEW =',SNGL(HNEW) + ENDIF +C CHERENKOV RADIATION: LOOK, WHETHER PATH ENDS ABOVE LOWEST OBSERV.LEVEL + TCRNKV = .TRUE. + ENDIF + +C UPDATE TO THE OBSERVATION LEVELS + ELSE + IF ( MUS ) THEN +C COULOMB SCATTERING ANGLE (FOR MUONS ONLY) + V = VSCAT * SQRT( DTHICK / CHI ) + ENDIF + IF ( LLONGI .OR. CFLAG ) THEN +C CHERENKOV RADIATION: LOOK, WHETHER LOWEST OBSERVATION LEVEL + IF ( IPAS .EQ. NOBSLV ) THEN + TCRNKV = .TRUE. + ELSE + TCRNKV = .FALSE. + ENDIF + ENDIF + ENDIF + + IF ( LLONGI .OR. CFLAG ) THEN +C REJECT ALL PARTICLES IF BELOW KINETIC ENERGY CUT + IF ( GAMMAN .LT. GLCUT .AND. .NOT.TCRNKV ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'UPDATE: PARTICLE ',ITYPE, + * ' BELOW ENERGY CUT, CHERENKOV LIGHT NOT CALCULATED' + OUTPAR(2) = GAMMAN + IRETE = .TRUE. + RETURN + ENDIF + ENDIF + +C----------------------------------------------------------------------- +C TRANSPORT CHARGED PARTICLES THE FIRST PORTION OF STEP + IF ( SIGNUM(ITYPE) .NE. 0.D0 ) THEN +C CHARGED PARTICLES SUFFER IONIZATION LOSS, DEFLECTION IN MAGNETIC +C FIELD AND MUONS IN ADDITION DO MULTIPLE COULOMB SCATTERING. +C DEFLECTION IN EARTH MAGNETIC FIELD ON FIRST HALF OF STEP +c--------changed---add + if(fmfb) then +cc ALPHA1 = SIGNUM(ITYPE) * +cc * MIN( 1.D0, 2.D0*SN1*BNORMC /(PAMA(ITYPE)*BETA*GAMMA) ) + SINTH1 = SQRT( 1.D0 - COSTHE**2 ) + U10 = SINTH1 * COS(-PHI) + V10 = SINTH1 * SIN(-PHI) + W10 = COSTHE +cc FNORM1 = 1.D0 - 0.5D0*ALPHA1**2 * (1.D0 - 0.75D0*ALPHA1**2) +cc F1COS1 = ( 1.D0 - FNORM1 ) * COSB +cc F1SIN1 = ( 1.D0 - FNORM1 ) * SINB +cc VVV = V10 * ALPHA1 * FNORM1 +cc USW = U10 * SINB - W10 * COSB +cc U12 = U10 - F1SIN1 * USW + VVV * SINB +cc V12 = FNORM1 * ( V10 - ALPHA1 * USW ) +cc W12 = W10 + F1COS1 * USW - VVV * COSB + U12 = U10 + V12 = V10 + W12 = W10 + + + RADINV = 1.5D0 - 0.5D0 * ( U12**2 + V12**2 + W12**2 ) + W12 = MIN( 1.D0, RADINV * W12 ) + IF ( W12 .LE. C(29) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'UPDATE: PARTICLE ',ITYPE,' BELOW ANGLE CUT 1' + IRETE = .FALSE. + RETURN + ENDIF + SN2 = SN1 * COSTHE / W12 + U12 = RADINV * U12 + V12 = RADINV * V12 + IF ( U12 .NE. 0.D0 .OR. V12 .NE. 0.D0 ) THEN + PHI1 = -ATAN2( V12, U12 ) + ELSE + PHI1 = 0.D0 + ENDIF + + else +c--------changed---add + ALPHA1 = SIGNUM(ITYPE) * + * MIN( 1.D0, 2.D0*SN1*BNORMC /(PAMA(ITYPE)*BETA*GAMMA) ) + SINTH1 = SQRT( 1.D0 - COSTHE**2 ) + U10 = SINTH1 * COS(-PHI) + V10 = SINTH1 * SIN(-PHI) + W10 = COSTHE + FNORM1 = 1.D0 - 0.5D0*ALPHA1**2 * (1.D0 - 0.75D0*ALPHA1**2) + F1COS1 = ( 1.D0 - FNORM1 ) * COSB + F1SIN1 = ( 1.D0 - FNORM1 ) * SINB + VVV = V10 * ALPHA1 * FNORM1 + USW = U10 * SINB - W10 * COSB + U12 = U10 - F1SIN1 * USW + VVV * SINB + V12 = FNORM1 * ( V10 - ALPHA1 * USW ) + W12 = W10 + F1COS1 * USW - VVV * COSB + RADINV = 1.5D0 - 0.5D0 * ( U12**2 + V12**2 + W12**2 ) + W12 = MIN( 1.D0, RADINV * W12 ) + IF ( W12 .LE. C(29) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'UPDATE: PARTICLE ',ITYPE,' BELOW ANGLE CUT 1' + IRETE = .FALSE. + RETURN + ENDIF + SN2 = SN1 * COSTHE / W12 + U12 = RADINV * U12 + V12 = RADINV * V12 + IF ( U12 .NE. 0.D0 .OR. V12 .NE. 0.D0 ) THEN + PHI1 = -ATAN2( V12, U12 ) + ELSE + PHI1 = 0.D0 + ENDIF +c--------changed---add + endif +c--------changed---add +C CHERENKOV RADIATION: FILL PARTICLE COORDINATES + IF ( TCRNKV ) THEN +C ..BEG ARE THE COORDINATES AT BEGIN OF THIS STEP +C ..PART ARE THE COORDINATES AT END OF THIS STEP + IF ( .NOT. DETSYS ) THEN +C TRANSFORM INTO DETECTOR FRAME +C FIRST CALCULATE STEP TO X AND Y ALONG EARTH SURFACE + DX = +SN1 * U10 + SN2 * U12 + DY = -SN1 * V10 - SN2 * V12 + TRANS2 = DX**2 + DY**2 + AUXIL = SQRT( TRANS2 + (C(1)+HMIDDL)**2 ) + SINDIF = SQRT(TRANS2) / AUXIL + IF ( SINDIF .GT. 0.D0 ) THEN + CORR = C(1) * ASIN(SINDIF) / (AUXIL*SINDIF) + ELSE + CORR = 1.D0 + ENDIF + XPART = X + DX*CORR + YPART = Y + DY*CORR +C CALCULATE ANGLE BETWEEN THE ACTUAL LOCAL AND THE APPARENT COORDINATE +C SYSTEM (IMPORTANT FOR DECIDING IN CERENK IF FIRST OR SECOND CALL +C AND TO CALCULATE THE INTERMEDIATE DIF ANGLE) + AUXIL = SQRT( X**2 + Y**2 ) + CTEA = COS( AUXIL/C(1) ) +C NOW TRANSFORM THEM IN DETECTOR FRAME. ATTENTION: ANGLE MIGHT BE +C VERY LARGE, THEREFORE APPROXIMATION TAN(X) EQUAL X IS NOT ALLOWED! +C SINCE X = X(HAPP), DON'T TRANSFORM X AND Y HERE BUT IN CERENK + XBEG = X + YBEG = Y + ELSE + CTEA = 1.D0 + XBEG = X + YBEG = Y + XPART = X + SN1 * U10 + SN2 * U12 + YPART = Y - SN1 * V10 - SN2 * V12 + ENDIF + TPART = T + ( SN1 + SN2 ) / ( C(25) * BETA ) +CDH ZPART = H - DH * 0.5D0 + ZPART = HMIDDL +C SET OTHER FUNCTION ARGUMENTS + TBEG = T + ZBEG = H + EBEG = PAMA(ITYPE)*GAMMA + TEND = TPART + XEND = XPART + YEND = YPART + ZEND = ZPART + EEND = PAMA(ITYPE)*GAMMAN + WTPART = 1.D0 + CALL CERENK(SN1+SN2,U12,-V12,W12,EBEG,EEND-0.5D0*(EEND-EBEG), + * XBEG,YBEG,ZBEG,XEND,YEND,ZEND,TBEG,TEND, + * PAMA(ITYPE),SIGNUM(ITYPE),WTPART,CTEA) + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C CHANGE DIRECTION BY COULOMB SCATTERING (FOR MUONS ONLY) + IF ( MUS ) THEN +C BEFORE SCATTERING : DIRECTION COSINES ARE U12,V12,W12 + CALL ADDANG( W12,PHI1, COS(V),PHISCT, W20,PHI1 ) + IF ( W20 .LE. C(29) ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'UPDATE: MUON BELOW ANGLE CUT' + IRETE = .FALSE. + RETURN + ENDIF + SINTH2 = SQRT( 1.D0 - W20**2 ) + U20 = SINTH2 * COS( -PHI1 ) + V20 = SINTH2 * SIN( -PHI1 ) +C AFTER SCATTERING : DIRECTION COSINES ARE U20,V20,W20 + IF ( HNEW .GT. OBSLEV(1) ) THEN +C CORRECT ARRIVAL HEIGHT ACCORDING TO INTERACTION OR DECAY + IF ( FDECAY ) THEN +C IN CASE OF DECAY THE PATH LENGTH SNMIDDL2 IS KEPT CONSTANT + HNEW = HMIDDL - SNMIDDL2 * W20 + THCKHN = THICK(HNEW) + CHI = 0.5D0 * CHI + (THCKHN - THICKMDL)/W20 + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'UPDATE: DECAY HNEW=',SNGL(HNEW),' CH=',SNGL(CHI) + CHI = MAX( CHI, 1.D-20) + ELSE +C IN CASE OF INTERACTION THE PENETRATED MATTER IS KEPT CONSTANT + THCKHN = THICKMDL + 0.5D0*CHI*W20 + HNEW = HEIGH(THCKHN) + SNMIDDL2 = (HMIDDL - HNEW)/W20 + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'UPDATE: INTERACT HNEW=',SNGL(HNEW),' SNMIDDL2=',SNMIDDL2 + ENDIF + STEPL = SNMIDDL1 + SNMIDDL2 + SN3 = 0.5D0 * SNMIDDL2 + ELSE +C KEEP ARRIVAL HEIGHT AND SNMIDDL2, PARTICLE ARRIVES AT OBSERV. LEVEL + SN3 = 0.5D0 * SNMIDDL2 * COSTHE / W20 + ENDIF + ELSE + U20 = U12 + V20 = V12 + W20 = W12 + SN3 = 0.5D0 * SNMIDDL2 * COSTHE / W20 + ENDIF + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C TRANSPORT CHARGED PARTICLES THE SECOND PORTION OF STEP +C NEW PATH LENGTH, NEW BETA VALUE BECAUSE OF IONIZATION ENERGY LOSS + BETAN = SQRT( GAMMAN**2 - 1.D0 ) / GAMMAN +C DEFLECTION IN EARTH MAGNETIC FIELD ON SECOND HALF OF STEP +c--------changed---add + if(fmfb) then + +cc ALPHA2 = SIGNUM(ITYPE) * +cc * MIN(1.D0,2.D0*SN3*BNORMC / (PAMA(ITYPE)*BETAN*GAMMAN)) +cc FNORM2 = 1.D0 - 0.5D0*ALPHA2**2 * (1.D0 - 0.75D0*ALPHA2**2) +cc F1SIN2 = ( 1.D0 - FNORM2 ) * SINB +cc F1COS2 = ( 1.D0 - FNORM2 ) * COSB +cc VVV = V20 * ALPHA2 * FNORM2 +cc USW = U20 * SINB - W20 * COSB +cc U22 = U20 - F1SIN2 * USW + VVV * SINB +cc V22 = FNORM2 * ( V20 - ALPHA2 * USW ) +cc W22 = W20 + F1COS2 * USW - VVV * COSB + U22 = U20 + V22 = V20 + W22 = W20 + + + RADINV = 1.5D0 - 0.5D0 * ( U22**2 + V22**2 + W22**2 ) + W22 = MIN( 1.D0, RADINV * W22 ) + IF ( W22 .LE. C(29) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'UPDATE: PARTICLE ',ITYPE,' BELOW ANGLE CUT 2' + IRETE = .FALSE. + RETURN + ENDIF + SN4 = SN3 * W20 / W22 + U22 = RADINV * U22 + V22 = RADINV * V22 + + else +c--changed---add + + ALPHA2 = SIGNUM(ITYPE) * + * MIN(1.D0,2.D0*SN3*BNORMC / (PAMA(ITYPE)*BETAN*GAMMAN)) + FNORM2 = 1.D0 - 0.5D0*ALPHA2**2 * (1.D0 - 0.75D0*ALPHA2**2) + F1SIN2 = ( 1.D0 - FNORM2 ) * SINB + F1COS2 = ( 1.D0 - FNORM2 ) * COSB + VVV = V20 * ALPHA2 * FNORM2 + USW = U20 * SINB - W20 * COSB + U22 = U20 - F1SIN2 * USW + VVV * SINB + V22 = FNORM2 * ( V20 - ALPHA2 * USW ) + W22 = W20 + F1COS2 * USW - VVV * COSB + RADINV = 1.5D0 - 0.5D0 * ( U22**2 + V22**2 + W22**2 ) + W22 = MIN( 1.D0, RADINV * W22 ) + IF ( W22 .LE. C(29) ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'UPDATE: PARTICLE ',ITYPE,' BELOW ANGLE CUT 2' + IRETE = .FALSE. + RETURN + ENDIF + SN4 = SN3 * W20 / W22 + U22 = RADINV * U22 + V22 = RADINV * V22 +c--changed---add + endif +c--changed---add + + OUTPAR(3) = W22 + IF ( U22 .NE. 0.D0 .OR. V22 .NE. 0.D0 ) THEN + OUTPAR(4) = -ATAN2( V22, U22 ) + ELSE + OUTPAR(4) = 0.D0 + ENDIF +C UPDATE COORDINATES AND TIME TO THE END OF DISTANCE + IF ( (LLONGI .OR. CFLAG) .AND. TFLAG ) THEN + OUTPAR(6) = T + DT* ( RATIO*GAMMA + (1.D0-RATIO)*GAMMAN) + ELSE + OUTPAR(6) = T + (SN1 + SN2)/(BETA *C(25)) + + * (SN3 + SN4)/(BETAN*C(25)) + ENDIF + OUTPAR(7) = X + SN1*U10 + SN2*U12 + SN3*U20 + SN4*U22 + OUTPAR(8) = Y - SN1*V10 - SN2*V12 - SN3*V20 - SN4*V22 +C CHERENKOV RADIATION: FILL PARTICLE COORDINATES + IF ( TCRNKV ) THEN + IF ( .NOT. DETSYS ) THEN +C RESAVE OLD COORDINATES DUE TO DIFFERENT DEFINITION IN CERENK +C (COORDINATES WERE TRANSFORMED IN CERENK) + XEND = XPART + YEND = YPART + ZEND = ZPART +C TRANSFORM INTO DETECTOR FRAME +C FIRST CALCULATE STEP TO X AND Y ALONG EARTH SURFACE + DX = +SN1*U10 + SN2*U12 + SN3*U20 + SN4*U22 + DY = -SN1*V10 - SN2*V12 - SN3*V20 - SN4*V22 + TRANS2 = DX**2 + DY**2 + AUXIL = SQRT( TRANS2 + (C(1)+HNEW)**2 ) + SINDIF = SQRT(TRANS2) / AUXIL + IF ( SINDIF .GT. 0.D0 ) THEN + CORR = C(1)*ASIN(SINDIF)/(AUXIL*SINDIF) + ELSE + CORR = 1.D0 + ENDIF + XPART = X + DX*CORR + YPART = Y + DY*CORR +C CALCULATE EARTH ANGLE BETWEEN THE ACTUAL LOCAL AND THE +C APPARENT COORDINATE SYSTEM (SEE ABOVE) + AUXIL = SQRT( X**2 + Y**2 ) + CTEA = COS( AUXIL/C(1) ) +C NOW TRANSFORM THEM IN DETECTOR FRAME. ATTENTION: ANGLE MIGHT BE +C VERY LARGE, THEREFORE APPROXIMATION TAN(X) EQUAL X IS NOT ALLOWED! +C DON'T TRANSFORM X AND Y HERE BUT IN CERENK (SEE ABOVE) +C XBEG=XEND(LAST PART) AND YBEG=YEND(LAST PART) ARE SET ABOVE + ELSE + CTEA = 1.D0 + XPART = OUTPAR(7) + YPART = OUTPAR(8) + ENDIF + ZPART = HNEW + TPART = OUTPAR(6) +C SET OTHER FUNCTION ARGUMENTS (FORMER END IS NOW THE BEGIN) + TBEG = TEND + XBEG = XEND + YBEG = YEND + ZBEG = ZEND + TEND = TPART + XEND = XPART + YEND = YPART + ZEND = ZPART + WTPART = 1.D0 + CALL CERENK(SN3+SN4,U22,-V22,W22,EBEG+0.5*(EEND-EBEG),EEND, + * XBEG,YBEG,ZBEG,XEND,YEND,ZEND,TBEG,TEND, + * PAMA(ITYPE),SIGNUM(ITYPE),WTPART,CTEA) + ENDIF +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + +C REJECT PARTICLES AFTER PRODUCTION OF CHERENKOV LIGHT +C AND LONGITUDINAL DEVELOPMENT + IF ( (LLONGI .OR. CFLAG) .AND. TCRNKV ) THEN + IF ( GAMMAN .LT. GLCUT ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'UPDATE: PARTICLE ',ITYPE, + * ' BELOW ENERGY CUT AFTER CREATION OF CHERENKOV LIGHT' + OUTPAR(2) = GAMMAN + IRETE = .TRUE. + RETURN + ENDIF + ENDIF + +C----------------------------------------------------------------------- + ELSE +C NEUTRAL PARTICLES +C NO COULOMB SCATTERING, NO DEFLECTION IN MAGNETIC FIELD + +C HORIZONTAL PATH LENGTH + DR = SN * SQRT( 1.D0 - COSTHE**2 ) +C UPDATE COORDINATES AND TIME + OUTPAR(3) = COSTHE + OUTPAR(4) = PHI + OUTPAR(6) = T + SN / ( C(25) * BETA ) + OUTPAR(7) = X + DR * COS(PHI) + OUTPAR(8) = Y + DR * SIN(PHI) + + ENDIF + +C----------------------------------------------------------------------- + OUTPAR( 1) = CURPAR(1) + OUTPAR( 2) = GAMMAN + OUTPAR( 5) = HNEW + OUTPAR( 9) = GEN + OUTPAR(10) = ALEVEL + + IF (DEBUG) WRITE(MDEBUG,458) (OUTPAR(I),I=1,9) + 458 FORMAT(' UPDATE: OUTPAR=',1P,8E10.3,0P,F10.0) + + +C REGULAR END OF UPDATE + IRET2 = 0 + RETURN + END +*CMZ : 27/02/2002 16.27.14 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 27/04/94 +C======================================================================= + + SUBROUTINE VAPOR(MAPROJ,INEW,JFIN,ITYP,PFRX,PFRY) + +C----------------------------------------------------------------------- +C (E)VAPOR(ATION OF NUCLEONS AND ALPHA PARTICLES FROM FRAGMENT) +C +C TREATES THE REMAINING UNFRAGMENTED NUCLEUS +C EVAPORATION FOLLOWING CAMPI APPROXIMATION +C SEE: X. CAMPI AND J. HUEFNER, PHYS.REV. C24 (1981) 2199 +C AND J.J. GAIMARD, THESE UNIVERSITE PARIS 7, (1990) +C THIS SUBROUTINE IS CALLED FROM SDPM AND VSTORE. +C ARGUMENTS INPUT: +C MAPROJ = NUMBER OF NUCLEONS OF PROJECTILE +C INEW = PARTICLE TYPE OF SPECTATOR FRAGMENT +C ARGUMENTS OUTPUT: +C JFIN = NUMBER OF FRAGMENTS +C ITYP(1:JFIN) = NATURE (PARTICLE CODE) OF FRAGMENTS (GEANT) +C PFRX(1:JFIN) = TRANSVERSE MOMENTUM OF FRAGMENTS IN X-DIRECTION +C PFRY(1:JFIN) = TRANSVERSE MOMENTUM OF FRAGMENTS IN Y-DIRECTION +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION PFR(60),PFRX(60),PFRY(60) + DOUBLE PRECISION AFIN,AGLH,APRF,BGLH,EEX,PHIFR,RANNOR,SPFRX,SPFRY + INTEGER ITYP(60),IARM,INEW,ITYPRM,INRM,IS,IZRM,JC,JFIN, + * K,L,LS,MAPROJ,MF,NFIN,NINTA,NNUC,NPRF,NNSTEP + SAVE + EXTERNAL RANNOR +C----------------------------------------------------------------------- + + IF (DEBUG) WRITE(MDEBUG,*) 'VAPOR : MAPROJ,INEW = ',MAPROJ,INEW + + ITYPRM = INEW + NPRF = INEW/100 + NINTA = MAPROJ - NPRF + IF ( NINTA .EQ. 0 ) THEN +C NO NUCLEON HAS INTERACTED + JFIN = 1 + PFR(1) = 0.D0 + ITYP(1) = INEW + IF (DEBUG) WRITE(MDEBUG,*) 'VAPOR : JFIN,NINTA= ',JFIN,NINTA + RETURN + ENDIF + +C EXCITATION ENERGY EEX OF PREFRAGMENT +C SEE: J.J. GAIMARD, THESE UNIVERSITE PARIS 7, (1990), CHPT. 4.2 + EEX = 0.D0 + CALL RMMAR(RD,2*NINTA,1) + DO 22 L = 1,NINTA + IF ( RD(NINTA+L) .LT. RD(L) ) RD(L) = 1. - RD(L) + EEX = EEX + RD(L) + 22 CONTINUE +C DEPTH OF WOODS-SAXON POTENTIAL TO FERMI SURFACE IS 0.040 GEV + IF (DEBUG) WRITE(MDEBUG,*)'VAPOR : EEX = ',SNGL(EEX*0.04D0),' GEV' +C EVAPORATION: EACH EVAPORATION STEP NEEDS ABOUT 0.020 GEV, THEREFORE +C NNSTEP IS EEX * 0.04/0.02 = EEX * 2. + NNSTEP = INT(EEX*2.D0) + + IF ( NNSTEP .LE. 0 ) THEN +C EXCITATION ENERGY TOO SMALL, NO EVAPORATION + JFIN = 1 + PFR(1) = 0.D0 + ITYP(1) = INEW + IF (DEBUG) WRITE(MDEBUG,*) 'VAPOR : JFIN,EEX = ',JFIN,SNGL(EEX) + RETURN + ENDIF + +C AFIN IS ATOMIC NUMBER OF FINAL NUCLEUS + APRF = FLOAT(NPRF) + AFIN = APRF - 1.6D0 * FLOAT(NNSTEP) + NFIN = MAX( INT(AFIN+0.5D0), 0 ) +C CORRESPONDS TO DEFINITION; FRAGMENTATION-EVAPORATION +C CONVOLUTION EMU07 /MODEL ABRASION EVAPORATION (JNC FZK APRIL 94) +C NNUC IS NUMBER OF EVAPORATING NUCLEONS + NNUC = NPRF - NFIN + IF ( DEBUG ) WRITE(MDEBUG,*) 'VAPOR : NFIN,NNUC = ',NFIN,NNUC + JC = 0 + + IF ( NNUC .LE. 0 ) THEN +C NO EVAPORATION + JFIN = 1 + PFR(1) = 0.D0 + ITYP(1) = INEW + RETURN + + ELSEIF ( NNUC .GE. 4 ) THEN +C EVAPORATION WITH FORMATION OF ALPHA PARTICLES POSSIBLE +C IARM, IZRM, INRM ARE NUMBER OF NUCLEONS, PROTONS, NEUTRONS OF +C REMAINDER + DO 31 LS = 1,NNSTEP + IARM = ITYPRM/100 + IF ( IARM .LE. 0 ) GOTO 100 + IZRM = MOD(ITYPRM,100) + INRM = IARM - IZRM + JC = JC + 1 + CALL RMMAR(RD,2,1) + IF ( RD(1).LT.0.2 .AND. IZRM.GE.2 .AND. INRM.GE.2 ) THEN + ITYP(JC) = 402 + NNUC = NNUC - 4 + ITYPRM = ITYPRM - 402 + ELSE + IF ( RD(2)*(IZRM+INRM) .LT. IZRM ) THEN + ITYP(JC) = 14 + ITYPRM = ITYPRM - 101 + ELSE + ITYP(JC) = 13 + ITYPRM = ITYPRM - 100 + ENDIF + NNUC = NNUC - 1 + ENDIF + IF ( NNUC .LE. 0 ) GOTO 50 + 31 CONTINUE + ENDIF + + IF ( NNUC .LT. 4 ) THEN +C EVAPORATION WITHOUT FORMATION OF ALPHA PARTICLES + CALL RMMAR(RD,NNUC,1) + DO 32 IS = 1,NNUC + IARM = ITYPRM/100 + IF ( IARM .LE. 0 ) GOTO 100 + IZRM = MOD(ITYPRM,100) + JC = JC + 1 + IF ( RD(IS)*IARM .LT. IZRM ) THEN + ITYP(JC) = 14 + ITYPRM = ITYPRM - 101 + ELSE + ITYP(JC) = 13 + ITYPRM = ITYPRM - 100 + ENDIF + 32 CONTINUE + ENDIF + + 50 CONTINUE + JC = JC + 1 + IF ( ITYPRM .GT. 101 ) THEN + ITYP(JC) = ITYPRM + ELSEIF ( ITYPRM .EQ. 101 ) THEN + ITYP(JC) = 14 + ELSEIF ( ITYPRM .EQ. 100 ) THEN + ITYP(JC) = 13 + ELSE + JC = JC - 1 + IF ( ITYPRM .NE. 0 ) WRITE(MONIOU,*) + * 'VAPOR : ILLEGAL PARTICLE ITYPRM =',ITYPRM + ENDIF + + 100 JFIN = JC + IF (DEBUG) WRITE(MDEBUG,*) 'VAPOR : NO ITYP PFR' + IF ( NFRAGM .EQ. 2 ) THEN +C EVAPORATION WITH PT AFTER PARAMETRIZED JACEE DATA + DO 150 MF = 1,JFIN + PFR(MF) = RANNOR(0.088D0,0.044D0) + IF ( DEBUG ) WRITE(MDEBUG,*) MF,ITYP(MF),SNGL(PFR(MF)) + 150 CONTINUE + ELSEIF ( NFRAGM .EQ. 3 ) THEN +C EVAPORATION WITH PT AFTER GOLDHABER'S MODEL (PHYS.LETT.53B(1974)306) + DO 160 MF = 1,JFIN + K = MAX( 1, ITYP(MF)/100 ) + BGLH = K * (MAPROJ - K) / FLOAT(MAPROJ-1) +C THE VALUE 0.103 [GEV] IS SIGMA(0)=P(FERMI)/SQRT(5.) +* AGLH = 0.103D0 * SQRT( BGLH ) +C THE VALUE 0.090 [GEV] IS EXPERIMENTALLY DETERMINED SIGMA(0) + AGLH = 0.090D0 * SQRT( BGLH ) + PFR(MF) = RANNOR(0.D0,AGLH) + IF ( DEBUG ) WRITE(MDEBUG,*) MF,ITYP(MF),SNGL(PFR(MF)) + 160 CONTINUE + ELSE +C EVAPORATION WITHOUT TRANSVERSE MOMENTUM + DO 165 MF = 1,JFIN + PFR(MF) = 0.D0 + IF ( DEBUG ) WRITE(MDEBUG,*) MF,ITYP(MF),SNGL(PFR(MF)) + 165 CONTINUE + ENDIF +C CALCULATE RESIDUAL TRANSVERSE MOMENTUM + SPFRX = 0.D0 + SPFRY = 0.D0 + CALL RMMAR(RD,JFIN,1) + DO 170 MF = 1,JFIN + PHIFR = PI * RD(MF) + PFRX(MF) = PFR(MF) * COS(PHIFR) + PFRY(MF) = PFR(MF) * SIN(PHIFR) + SPFRY = SPFRY + PFRY(MF) + SPFRX = SPFRX + PFRX(MF) + 170 CONTINUE +C CORRECT ALL TRANSVERSE MOMENTA FOR MOMENTUM CONSERVATION + SPFRX = SPFRX / JFIN + SPFRY = SPFRY / JFIN + DO 180 MF = 1,JFIN + PFRX(MF) = PFRX(MF) - SPFRX + PFRY(MF) = PFRY(MF) - SPFRY + 180 CONTINUE + + IF (DEBUG) WRITE(MDEBUG,*) 'VAPOR : NINTA,JFIN= ',NINTA,JFIN + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE ANNIH +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C ANNIH(ILATION OF E+) +C +C GAMMA SPECTRUM FOR TWO GAMMA IN-FLIGHT POSITRON ANNIHILATION. +C USING SCHEME BASED ON HEITLER'S P269-270 FORMULAE +C THIS ROUTINE SHOULD GIVE THE CORRECT DISTRIBUTION, BUT MORE +C THOUGHT COULD BE PUT INTO DEVISING A FASTER SCHEME. HOWEVER, +C SINCE POSITRON ANNIHILATION IN FLIGHT IS RELATIVELY INFREQUENT +C THIS MAY NOT BE WORTHWHILE. +C THIS SUBROUTINE IS CALLED FROM ELECTR. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION A,AI,EP,EP0I,G,P,PESG1,PESG2,PAVIP,POT,REJF,T + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' ANNIH : NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + PAVIP = E(NP)+PRM + A = PAVIP*RMI + AI = 1.D0/A + G = A - 1.D0 + T = G - 1.D0 + P = SQRT(A*T) + POT = P/T + EP0I = (A+P) + 331 CONTINUE +C SAMPLE 1/EP FROM EP=1./EP0I TO 1.0-1./EP0I + CALL RMMAR(RD,2,2) + EP = EXP(DBLE(RD(1))*LOG(EP0I-1.D0))/EP0I +C NOW DECIDE WHETHER TO ACCEPT + REJF = 1.D0 - EP + AI*AI*(2.D0*G-1.D0/EP) + IF ( RD(2) .GT. REJF ) GOTO 331 +C THIS COMPLETES SAMPLING OF A DISTRIBUTION WHICH IS ASYMMETRIC +C ABOUT EP=1/2, BUT WHICH WHEN SYMMETRIZED IS THE SYMMETRIC +C ANNIHILATION DISTRIBUTION. PICK EP IN (1/2,1-EP0). + PESG1 = PAVIP*MAX(EP,1.D0-EP) + E(NP) = PESG1 + E(NP+1) = PAVIP-E(NP) + PESG2 = E(NP+1) +C SET UP ANGLES OF HIGHER ENERGY GAMMA + IQ(NP) = 1 + COSTHE = (PESG1-PRM)*POT/PESG1 + SINTHE = SQRT(MAX( 0.D0, 1.D0-COSTHE**2 )) + CALL UPHI(2,1) + NP = NP+1 +C SET UP ANGLES OF LOWER ENERGY GAMMA + IQ(NP) = 1 + COSTHE = (PESG2-PRM)*POT/PESG2 + SINTHE = SQRT(MAX( 0.D0, 1.D0-COSTHE**2 )) + CALL UPHI(3,2) + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE AUSGAB + +C----------------------------------------------------------------------- +C WE USE AUSGAB TO FILL OUTPAR WITH PARTICLE COORDINATES. +C THIS SUBROUTINE IS CALLED FROM ELECTR AND PHOTON. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEND. + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION ANGLEX,ANGLEZ,XX,YY,ZZ + SAVE +C----------------------------------------------------------------------- + +C ANGLE WITH RESPECT TO X AXIS + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF +C PARTICLE IS WRITTEN IN OUTPUT BUFFER ARRAY + OUTPAR(1) = IQ(NP) + OUTPAR(2) = E(NP)*0.001D0 + OUTPAR(3) = MIN( 1.D0, W(NP) ) + OUTPAR(4) = ANGLEX + OUTPAR(5) =-Z(NP) + OUTPAR(6) = TIM(NP) + OUTPAR(7) = X(NP) + OUTPAR(8) =-Y(NP) + OUTPAR(9) = IGEN(NP) + OUTPAR(10) = ALEVEL + LEVL = IOBS(NP) + CALL OUTPT1 + IF ( FEGSDB ) THEN + WRITE(MDEBUG,*) 'AUSGAB: NP=',NP,' IR=',IR(NP),' IOBS=',IOBS(NP) + XX = X(NP) + YY =-Y(NP) + ZZ =-Z(NP) + ANGLEZ = W(NP) + WRITE(MDEBUG,170) IQ(NP),E(NP)*.001D0,ANGLEZ,ANGLEX,ZZ, + * TIM(NP)*1.D3,XX,YY,IGEN(NP) + 170 FORMAT(' AUSGAB:',13X,I4,1P,E11.3,0P,1X,F7.4,1X,F7.4,1X,F9.0, + * F9.6,1X,1P,E11.4,1X,E11.4,1X,I3 + * ) + ENDIF + RETURN + END +*CMZ : 18/02/2002 16.47.35 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE AUSGB2 + +C----------------------------------------------------------------------- +C IN CASE OF DEBUGGING WE PRINT THE PARTICLE COORDINATES. +C THIS SUBROUTINE IS CALLED FROM MANY EGS-ROUTINES. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEND. + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION ANGLEX,ANGLEZ,XX,YY,ZZ + SAVE +C----------------------------------------------------------------------- + +C ANGLE WITH RESPECT TO X AXIS + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF + XX = X(NP) + YY =-Y(NP) + ZZ =-Z(NP) + ANGLEZ = W(NP) + WRITE(MDEBUG,170) IQ(NP),E(NP)*.001D0,ANGLEZ,ANGLEX,ZZ, + * TIM(NP)*1.0D3,XX,YY,IGEN(NP) + 170 FORMAT(' AUSGB2:',13X,I4,1P,E11.3,0P,1X,F8.5,1X,F7.4,1X,F9.0, + * 1X,F9.6,1X,1P,E11.4,1X,E11.4,0P,1X,I3 + * ) + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE BHABHA +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C BHABHA (SCATTERING) +C +C DISCRETE BHABHA SCATTERING (A CALL TO THIS ROUTINE) HAS BEEN +C ARBITRARILY DEFINED AND CALCULATED TO MEAN BHABHA SCATTERINGS +C WHICH IMPART TO THE SECONDARY ELECTRON SUFFICIENT ENERGY THAT +C IT BE TRANSPORTED DISCRETELY, I.E. E=AE OR T=TE. IT IS NOT +C GUARANTEED THAT THE FINAL POSITRON WILL HAVE THIS MUCH ENERGY +C HOWEVER. THE EXACT BHABHA DIFFERENTIAL CROSS-SECTION IS USED. +C THIS SUBROUTINE IS CALLED FROM ELECTR. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + +* DOUBLE PRECISION BETAI2,BR,B1,B2,B3,B4,DCOSTH,EP0,EP0C,E0,E02,H1, + DOUBLE PRECISION BETA2,BR,B1,B2,B3,B4,DCOSTH,EP0,EP0C,E0,E02,H1, + * PEIP,PEKIN,PEKINI,PEKSE2,PESE1,PESE2,REJF2, + * T0,YY,Y2,YP,YP2 + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' BHABHA: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + PEIP = E(NP) +C KINETIC ENERGY OF INCIDENT POSITRON + PEKIN = PEIP-PRM + PEKINI= 1.D0/PEKIN + T0 = PEKIN*RMI + E0 = T0+1.D0 + YY = 1.D0/(T0+2.D0) + E02 = E0**2 +C CORRECTED 18.12.98 +* BETAI2= E02/(E02-1.D0) + BETA2 = (E02-1.D0)/E02 + EP0 = TE*PEKINI + EP0C = 1.D0-EP0 + Y2 = YY*YY + YP = 1.D0-2.D0*YY + YP2 = YP**2 + B4 = YP2*YP + B3 = B4+YP2 + B2 = YP*(3.D0+Y2) + B1 = 2.D0-Y2 + 341 CONTINUE +C SAMPLE BR FROM MINIMUM(EP0) TO 1 + CALL RMMAR(RD,2,2) + BR = EP0/(1.D0-EP0C*RD(1)) +C CORRECTED 18.12.98 +* REJF2 = EP0C*(BETAI2-BR*(B1-BR*(B2-BR*(B3-BR*B4)))) + REJF2 = (1.D0-BETA2*BR*(B1-BR*(B2-BR*(B3-BR*B4)))) + IF ( RD(2) .GT. REJF2 ) GOTO 341 + IF ( BR .LT. 0.5D0 ) THEN + IQ(NP+1) = 3 + ELSE +C IF E- GOT MORE THAN E+, MOVE THE E+ POINTER AND REFLECT B + IQ(NP) = 3 + IQ(NP+1) = 2 + BR = 1.D0-BR + ENDIF + BR = MAX( 0.D0, BR ) +C DIVIDE UP THE ENERGY + PEKSE2 = BR*PEKIN + PESE1 = PEIP-PEKSE2 + PESE2 = PEKSE2+PRM + E(NP) = PESE1 + E(NP+1)= PESE2 +C DETERMINE ANGLES FROM KINEMATICS + H1 = (PEIP+PRM)*PEKINI +C DIRECTION COSINE CHANGE FOR 'OLD' ELECTRON + DCOSTH = MIN( 1.D0, H1*(PESE1-PRM)/(PESE1+PRM) ) + SINTHE = SQRT(1.D0-DCOSTH) + COSTHE = SQRT(DCOSTH) + CALL UPHI(2,1) + NP = NP+1 + DCOSTH = MIN( 1.D0, H1*(PESE2-PRM)/(PESE2+PRM) ) + SINTHE =-SQRT(1.D0-DCOSTH) + COSTHE = SQRT(DCOSTH) + CALL UPHI(3,2) + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE BREMS +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C BREMS(STRAHLUNG GENERATION) +C +C FOR ELECTRON ENERGY GREATER THAN 5.0 MEV, THE BETHE-HEITLER +C CROSS-SECTION IS EMPLOYED. +C THIS SUBROUTINE IS CALLED FROM ELECTR. +C----------------------------------------------------------------------- + + IMPLICIT NONE + COMMON /BREMPR/ PWR2I,DL1,DL2,DL3,DL4,DL5,DL6,DELCM,ALPHI,BPAR, + * DELPOS + DOUBLE PRECISION PWR2I(60) + REAL DL1(6),DL2(6),DL3(6),DL4(6),DL5(6),DL6(6), + * DELCM,ALPHI(2),BPAR(2),DELPOS(2) +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION ABREMS,AI2LN2,BR,DEL,DELTA,P,PEIE,PESG,PESE, + * REJF,T + INTEGER IDISTR,LVL,LVL0,LVX + SAVE + DATA AI2LN2/0.721347521D0/ +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' BREMS : NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + PEIE = E(NP) + NP = NP+1 +C DECIDE WHICH DISTRIBUTION TO USE + IF ( PEIE .LT. 50.D0 ) THEN +C (B-H IS USED 1.5 TO 50 MEV) + LVX = 1 + LVL0 = 0 + ELSE +C (B-H COULOMB CORRECTED IS USED ABOVE 50 MEV) + LVX = 2 + LVL0 = 3 + ENDIF +C TWO TIMES AI2LN2 = 1.442695041 + ABREMS = DBLE(INT(1.442695041D0*LOG(PEIE*API))) +C THE METHOD OF BUTCHER AND MESSEL FOR SAMPLING A CLASS OF FACTORIZABLE +C FREQUENCY DISTRIBUTIONS IS USED. OUR 'BR' VARIABLE IS THE SAME AS +C THEIR 'EPSILON' VARIABLE. (SEE BUTCHER AND MESSEL,NUCL.PHYS.,VOL.20, +C PP23,24. COMPUTE NUMBER OF SUBDISTRIBUTIONS NEEDED TO PRODUCE PHOTONS +C OF MINIMUM DISCRETE TRANSPORT ENRGY AP, IN CASE THE (1-BR)/BR +C PART OF THE DISTRIBUTION IS USED. + 351 CONTINUE + CALL RMMAR(RD,3,2) +C DECIDE WHETHER TO SAMPLE FROM (1-BR)/BR OR 2*BR PART OF DISTRIBUTION + IF ( (ABREMS*ALPHI(LVX)+0.5D0)*RD(1) .GE. 0.5D0 ) THEN +C USE THE (1-BR)/BR PART. WHICH SUBDISTRIBUTION? + IDISTR = ABREMS*RD(2) +C THIS CHOOSES IDISTR AT RANDOM FROM SET (0,1,2, ..., NBREMS-1) + P = PWR2I(IDISTR+1) +C SELECT SCREENING REJECTION FUNCTION +C LVL=1 UNCOULOMB CORRECTED A(DELTA) +C LVL=2 UNCOULOMB CORRECTED B(DELTA) +C LVL=3 UNCOULOMB CORRECTED C(DELTA) +C LVL=4 COULOMB CORRECTED A(DELTA) +C LVL=5 COULOMB CORRECTED B(DELTA) +C LVL=6 COULOMB CORRECTED C(DELTA) + LVL = LVL0+1 +C USE A(DELTA), EITHER BORN OR COULOMB CORRECTED, DEPENDING ON +C WHETHER LVL HAS BEEN PREVIOUSLY SET TO 0 OR 3. +C ALL SUBDISTRIBUTIONS ARE SAMPLED BY FIRST SAMPLING FROM +C (1./LOG(2.))*(1.-BR)/BR IF 0.5 .LE. BR .LE. 1. +C 1./LOG(2.) IF BR.LT. 0.5 +C AND THEN TAKING BR = BR*P +C AI2LN2 IS ACTUALLY 1./(2.*LOG(2.)), WHICH IS THE PROBABILITY +C THAT BR IS LESS THAN 0.5 IN THE ELEMENTARY DISTRIBUTION ABOVE. + IF ( RD(3) .GE. AI2LN2 ) THEN + 361 CONTINUE + CALL RMMAR(RD,3,2) + BR = 1.D0-0.5D0*MAX(RD(2),RD(3)) + IF ( BR*RD(1) .GT. 0.5D0 ) GOTO 361 + ELSE + CALL RMMAR(RD,1,2) + BR = RD(1)*0.5D0 + ENDIF + BR = BR*P + ELSE + BR = MAX(RD(2),RD(3)) +C USE B(DELTA) FOR SCREENING FUNCTION + LVL = LVL0+2 + ENDIF +C NOW ATTRIBUTE ENERGIES TO THE PARTICLES + PESG = PEIE*BR +C AP IS SELECTED IN PROGRAM PEGS (ESTABLISHING CROSS-SECTION FILE) +C MINIMUM HARDNESS REQUIREMENT, CORRESPONDING TO LOWER BOUND +C CHOICE FOR TOTAL CROSS-SECTION INTEGRAL + IF ( PESG .LT. AP ) GOTO 351 + PESE = PEIE-PESG +C THE ELECTRON MUST HAVE A MINIMUM ENERGY EQUAL TO 0.511 MEV + IF ( PESE .LT. PRM ) GOTO 351 +C DEFINITION OF DELTA IS DELTA=136.0*EXP(ZG)*RM*EE/(E*(1.0-EE)) +C =DELCM*EE/(E*(1.0-EE))=DELCM*DEL +C WHERE E=ELECTRON INCIDENT ENERGY(MEV), AND EE=(PHOTON ENERGY)/E +C ZG IS DEFINED IN THE PROGRAM SHINP, AND IS A WEIGHTED AVERAGE +C OF LOG(Z**(-1./3.)) OVER THE VARIOUS TYPES OF ATOMS IN THE +C MOLECULE (BUTCHER AND MESSEL, OP.CIT., P.17-19,22-24). + DEL = BR/PESE +C A(DELTA) AND B(DELTA) MUST ALWAYS BE POSITIVE + IF ( DEL .GE. DELPOS(LVX) ) GOTO 351 + DELTA = DELCM*DEL + IF ( DELTA .LT. 1.D0 ) THEN + REJF = DL1(LVL)+DELTA*(DL2(LVL)+DELTA*DL3(LVL)) + ELSE + REJF = DL4(LVL)+DL5(LVL)*LOG(DELTA+DL6(LVL)) + ENDIF + CALL RMMAR(RD,1,2) +C SCREENING REJECTION + IF ( RD(1) .GT. REJF ) GOTO 351 + THETA = PRM/PEIE + CALL UPHI(1,3) +C ATTRIBUTE PARTICLE ENERGIES AND PROPERTIES + IF ( PESG .LE. PESE ) THEN + IQ(NP ) = 1 + E(NP) = PESG + E(NP-1) = PESE + ELSE + IQ(NP) = IQ(NP-1) + IQ(NP-1)= 1 + E(NP) = PESE + E(NP-1) = PESG +C INTERCHANGE STACK POSITION OF ELECTRON AND PHOTON + T = U(NP) + U(NP) = U(NP-1) + U(NP-1) = T + T = V(NP) + V(NP) = V(NP-1) + V(NP-1) = T + T = W(NP) + W(NP) = W(NP-1) + W(NP-1) = T + ENDIF + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE COMPT +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C COMPT(ON SCATTERING) +C +C BUTCHER AND MESSEL'S CROSS-SECTION EXPRESSION IS USED +C (BUTCHER AND MESSEL, OP.CIT., P. 17-19,25), BUT THE +C 1/EPSILON PART IS NOT SAMPLED IN THE WAY THAT THEY DO. +C THIS ROUTINE CALLS THEIR 'EPSILON' VARIABLE BY THE NAME 'BR'. +C BR=FINAL PHOTON ENERGY /INITIAL PHOTON ENERGY. +C BR0 = MINIMUM BR = 1./(1.+2.*(E(NP)/PRM)) +C MAXIMUM BR IS 1. +C BUTCHER AND MESSEL'S EXPRESSION FOR THE DIFFERENTIAL CROSS- +C SECTION IS PROPORTIONAL TO +C (1./BR+BR)*(1.-BR*SINTHE**2/(1.+BR*BR)) +C WE SHALL SAMPLE FROM THE FIRST FACTOR FROM THE INTERVAL (BR0,1) +C AND USE THE SECOND FACTOR AS A REJECTION FUNCTION. +C THIS SUBROUTINE IS CALLED FROM PHOTON. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION ALPH1,ALPH2,A1MIBR,BR,BRP,BR0,BR0I,EGP, + * PEIG,PESG,PESE,PSQ,SUMALP,T,TEMP + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' COMPT : NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + PEIG = E(NP) + EGP = PEIG*RMI + BR0I = 1.D0+2.D0*EGP + BR0 = 1.D0/BR0I + ALPH1 = LOG(BR0I) + ALPH2 = EGP*(BR0I+1.D0)*BR0**2 + SUMALP = ALPH1+ALPH2 + + 371 CONTINUE + CALL RMMAR(RD,3,2) +C WHICH PART OF 1./BR + BR TO SAMPLE FROM ? + IF ( ALPH1 .GE. SUMALP*RD(1) ) THEN +C USE 1/BR PART OF DISTRIBUTION + BR = EXP(ALPH1*RD(2))*BR0 + ELSE +C USE LINEAR ( BR ) PART OF DISTRIBUTION + BRP = RD(2) + IF ( EGP .GE. (EGP+1.D0)*RD(3) ) THEN + CALL RMMAR(RD(4),1,2) + BRP = MAX(RD(2),RD(4)) + ENDIF + BR = ((BR0I-1.D0)*BRP+1.D0)*BR0 + ENDIF +C BR=FINAL PHOTON ENERGY FRACTION + PESG = BR*PEIG +C THE COMPTON ANGLES FOR PHOTON AND RECOIL ELECTRON ARE UNIQUELY +C DETERMINED BY THE CONSERVATION LAWS + A1MIBR = 1.D0-BR + TEMP = PRM*A1MIBR/PESG + SINTHE = MAX( 0.D0, TEMP*(2.D0-TEMP) ) + CALL RMMAR(RD,1,2) + IF ( (1.D0-RD(1))*(1.D0+BR**2) .LT. BR*SINTHE ) GOTO 371 + SINTHE = SQRT(SINTHE) + COSTHE = 1.D0-TEMP +C NOW FILL IN THE PARTICLE PROPERTIES + PESE = PEIG-PESG+PRM + CALL UPHI(2,1) + NP = NP+1 +C MOMENTUM SQUARED OF ELECTRON + PSQ = PESE*PESE-RMSQ + IF ( PSQ .LE. 0.D0 ) THEN + COSTHE = 0.D0 + SINTHE = -1.D0 + ELSE + COSTHE = (PESE+PESG)*A1MIBR/SQRT(PSQ) + SINTHE = -SQRT(MAX( 0.D0, 1.0-COSTHE**2 )) + ENDIF + CALL UPHI(3,2) + IF ( PESE .LE. PESG ) THEN + IQ(NP) = 3 + E(NP) = PESE + E(NP-1) = PESG + ELSE +C SORT PARTICLES ON STACK WITH DESCENDING ENERGY + IQ(NP) = 1 + IQ(NP-1)= 3 + E(NP) = PESG + E(NP-1) = PESE + T = U(NP) + U(NP) = U(NP-1) + U(NP-1) = T + T = V(NP) + V(NP) = V(NP-1) + V(NP-1) = T + T = W(NP) + W(NP) = W(NP-1) + W(NP-1) = T + ENDIF + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 18/06/99 +C======================================================================= + + SUBROUTINE CORNEC + +C----------------------------------------------------------------------- +C CO(O)R(DINATE) (I)N(ITIALIZATION FOR) E(M IN A) C(URVED ATMOSPHERE) +C +C INITIALIZES ALL IMPORTANT COORDINATES FOR ONE OBSERVATION LEVEL +C ROUTINE DETERMINES STARTING PARAMETERS AT HEIGHT GIVEN BY THICK0 FOR +C A COORDINATE SYSTEM WHICH IS FIXED IN (X,Y) AT THE ASSUMED DETECTOR +C POSITION AND IN Z AT SEA LEVEL. +C THIS SUBROUTINE IS CALLED FROM ELECTR AND PHOTON. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + + DOUBLE PRECISION DIST,DIAG,TANPHI,TEA + SAVE +C----------------------------------------------------------------------- + + IF (DEBUG) WRITE(MDEBUG,*) 'CORNEC: -Z(NP),WAP(NP),U(NP),V(NP)=', + * SNGL(-Z(NP)),SNGL(WAP(NP)),SNGL(U(NP)),SNGL(V(NP)) + +C NOTE : ANGLES WAP, U, AND V ARE APPARENT ANGLES OF PRIMARY AT +C THE EDGE OF THE ATMOSPHERE SEEN FROM THE +C DETECTOR POSITION X=Y=0, Z=-OBSLEV(1) +C FOR CALCULATIONS: WAP = COSINE OF APPARENT ZENITH ANGLE THETAP +C WAP IS SET IN SUBR. EGS4 + +C DISTANCE DIAG BETWEEN DETECTOR POSITION X=Y=0, Z =-OBSLEV(1) AND +C STARTING POINT + DIAG = SQRT( (C(1)-Z(NP))**2 + * -(C(1)+OBSLEV(1))**2 *(1.D0-WAP(NP)**2) ) + * - (C(1)+OBSLEV(1)) * WAP(NP) + +C APPARENT HEIGHT ZAP IS PARTICLE Z-COORDINATE IN DETECTOR SYSTEM + ZAP(NP) = -OBSLEV(1) - DIAG * WAP(NP) + +C CALCULATING COSINE OF THETA_EARTH COSTEA, COSINE OF ZENITH ANGLE BY +C TAKING A COORDINATE FRAME CENTERED IN THE MIDDLE OF EARTH + WA(NP) = (C(1)-ZAP(NP)) / (C(1)-Z(NP)) + IF ( DEBUG ) WRITE(MDEBUG,*) 'CORNEC:-ZAP(NP),WA(NP),DIAG =', + * SNGL(-ZAP(NP)),WA(NP),SNGL(DIAG) + WA(NP) = MIN( 1.D0, WA(NP) ) +C TRANSFORM THE APPARENT ANGLE SEEN FROM DETECTOR POSITION TO LOCAL +C ANGLES RELATIVE TO THE VERTICAL TO THE MIDDLE OF EARTH +C NOTE : LOCAL ZENITH ANGLE = DIFFERENCE OF APPARENT ZENITH ANGLE AND +C THETA_EARTH + W(NP) = (DIAG + (C(1)+OBSLEV(1))*WAP(NP))/(C(1)-Z(NP)) + W(NP) = MIN( 1.D0, W(NP) ) + IF ( U(NP) .NE. 0.D0 ) THEN + TANPHI= V(NP) / U(NP) + U(NP) = SIGN(1.D0,U(NP))*SQRT((1.D0-W(NP)**2)/(1.D0+TANPHI**2)) + V(NP) = TANPHI * U(NP) + ELSE + IF ( V(NP) .NE. 0.D0 ) + * V(NP) = SIGN(1.D0,V(NP)) * SQRT( 1.D0 - W(NP)**2 ) + ENDIF + +C DISTANCE DIST BETWEEN THE DETECTOR POSITION X=0, Y=0 +C AND THE ACTUAL INTERACTION POINT MEASURED ON THE EARTH'S SURFACE + TEA = ACOS(WA(NP)) + DIST = C(1) * TEA + +C CONCERNING TRANSFORMATION OF AZIMUTH ANGLE PHI +C NOTE : THE COORDINATE SYTEMS ONLY DIFFER IN A SHIFT ALONG THE Z-AXIS +C OR A ROTATION ALONG THE ZENITH ANGLE. BOTH TRANSFORMATIONS +C JUST CHANGE THETA AND NOT PHI (THETA AND PHI ARE ORTHOGONAL +C COORDINATES, THUS LINEAR INDEPENDENT). + +C X,Y-COORDINATES SEEN FROM THE DETECTOR POSITION (X=Y=0) +C PHIP IS DEFINED HERE IN OBSPAR, BUT IS NOT SENSIBEL TO USE IN THIS +C ROUTINE; WE HAVE TO TAKE NOT PHI OF PRIMARY, BUT FROM CURRENT +C PARTICLE. TAKE NEW LOCAL DIRECTION COSINES (SEE ABOVE) + IF ( W(NP) .LT. 1.D0 ) THEN + X(NP) = -DIST * U(NP) / SQRT( 1.D0 - W(NP)**2 ) + Y(NP) = -DIST * V(NP) / SQRT( 1.D0 - W(NP)**2 ) + ELSE + X(NP) = -DIST * U(NP) + Y(NP) = -DIST * V(NP) + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'CORNEC: X(NP),Y(NP),W(NP),DIST =', + * SNGL(X(NP)),SNGL(Y(NP)),SNGL(W(NP)),SNGL(DIST) +C NOW ALL PARAMETERS ARE FILLED INTO STACKE + + RETURN + END +*CMZ : 20/02/2002 09.17.35 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE EGS4( EEIN ) + +C----------------------------------------------------------------------- +C E(LECTRON) G(AMMA) S(HOWER) +C +C TREATS ELECTROMAGNETIC SUBSHOWER +C THIS SUBROUTINE IS CALLED FROM EM. +C ARGUMENT: +C EEIN = (R8) INCOMING PARTICLE ENERGY (GEV) +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEND. + COMMON /GEOMEGS/ ZALTIT,BOUND,OBSLVL,NEWOBS + DOUBLE PRECISION ZALTIT,BOUND(6),OBSLVL(10) + INTEGER NEWOBS +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEND. + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PION/ PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT + DOUBLE PRECISION PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION EEIN,SITHET,THICK + INTEGER IDET,K + SAVE + EXTERNAL THICK +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'EGS4 :' +C FILL IN STARTING COORDINATES + NP = 1 + TIM(1) = SECPAR(6) + X(1) = SECPAR(7) + Y(1) =-SECPAR(8) +C STARTS IN HEIGHT 'Z' DOWNWARDS + Z(1) =-SECPAR(5) + IF ( LLONGI ) LPCTE(1)=MIN(NSTEP,INT(THICK(SECPAR(5))*THSTPI)+1) + SITHET = SQRT(1.D0-SECPAR(3)**2) +C START DIRECTION COSINES + U(NP) = SITHET*COS(-SECPAR(4)) + V(NP) = SITHET*SIN(-SECPAR(4)) + W(NP) = SECPAR(3) + ZAP(NP) =-SECPAR(14) + WAP(NP) = SECPAR(15) + WA(NP) = SECPAR(16) + IGEN(1) = GEN +C CONVERSION GEV --> MEV + E(1) = EEIN*1000.D0 +C CHECK ENERGY RANGE + IQ(1) = NINT(SECPAR(1)) + IF ( IQ(1) .EQ. 1 ) THEN + IF ( E(1) .GT. UP ) THEN + CALL AUSGB2 + WRITE(KMPO,91) EEIN + 91 FORMAT(' EGS4 : ENERGY OF GAMMA =',1P,E10.3,' GEV TOO HIGH') + STOP + ENDIF + ELSE + IF ( E(1) .GT. UE ) THEN + CALL AUSGB2 + WRITE(KMPO,92) EEIN + 92 FORMAT(' EGS4 : ENERGY OF ELECTRON/POSITRON =',1P,E10.3, + * ' GEV TOO HIGH') + STOP + ENDIF + ENDIF + DNEAR(1) = 0.D0 + DO 101 K = 1,5 +C DETERMINE START REGION + IF ( -BOUND(K).LE.Z(1) .AND. -BOUND(K+1).GT.Z(1) ) THEN + IR(1) = K+1 + GOTO 110 + ENDIF + 101 CONTINUE + CALL AUSGB2 + WRITE(KMPO,120) (-0.01)*Z(1) + 120 FORMAT (' EGS4 : START VALUE OF Z=',1P,E11.4,' M NOT IN ', + * 'ATMOSPHERE') + RETURN + 110 CONTINUE + DO 111 IDET = 1,NOBSLV +C DETERMINE NEXT OBSERVATION LEVEL + IF ( -Z(1) .GE. OBSLVL(IDET) ) THEN + IOBS(1) = IDET + GOTO 130 + ENDIF + 111 CONTINUE + CALL AUSGB2 + WRITE(KMPO,140) (-0.01)*Z(1),OBSLVL(NOBSLV)*0.01 + 140 FORMAT(' EGS4 : START VALUE OF Z= ',E11.4, ' M BELOW LOWEST ', + * 'DETECTOR AT',E11.4,' M') + RETURN + 130 CONTINUE +C NEWOBS IS THE NEXT OBSERVATION LEVEL + NEWOBS = IOBS(NP) + CALL SHOWER + IF ( DEBUG ) WRITE(MDEBUG,*) 'EGS4 : EGS-STACK EMPTY, EXIT' + RETURN + END +*CMZ : 12/10/2001 14.53.55 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + BLOCK DATA EGS4BD +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C INITIALIZES GENERAL DATA OF EGS4 +C----------------------------------------------------------------------- + + IMPLICIT NONE + COMMON /BOUNDS/ ECUT,PCUT,VACDST + DOUBLE PRECISION ECUT(6),PCUT(6),VACDST + COMMON /ELECIN/ EKE0,EKE1,XR0,TEFF0,BLCC,XCC,ESIG0,ESIG1,PSIG0, + * PSIG1,EDEDX0,EDEDX1,PDEDX0,PDEDX1,EBR10,EBR11, + * PBR10,PBR11,PBR20,PBR21,TMXS0,TMXS1,ERANG0, + * ERANG1,PRANG0,PRANG1,STERNCOR + REAL EKE0,EKE1,XR0,TEFF0,BLCC,XCC, + * ESIG0(500),ESIG1(500),PSIG0(500),PSIG1(500), + * EDEDX0(500),EDEDX1(500),PDEDX0(500),PDEDX1(500), + * EBR10(500),EBR11(500),PBR10(500),PBR11(500), + * PBR20(500),PBR21(500),TMXS0(500),TMXS1(500), + * ERANG0(1),ERANG1(1),PRANG0(1),PRANG1(1),STERNCOR +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,EPCONT. + COMMON /EPCONT/ EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW,EKE,ELKE,BETA2,GLE,TSCAT, + * IDISC,IROLD,IRNEW + DOUBLE PRECISION EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW, EKE,ELKE,BETA2,GLE,TSCAT + INTEGER IDISC,IROLD,IRNEW + +*KEND. + COMMON /MEDIA/ RLDU,RLDUI,RHO,RLC,NMED,MSGE,MGE,MSEKE,MEKE, + * MLEKE,MCMFP,MRANGE,IRAYLM + DOUBLE PRECISION RLDU,RLDUI + REAL RHO,RLC + INTEGER NMED,MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE, + * IRAYLM + COMMON /MEDIAC/ MEDIA + CHARACTER MEDIA*24 + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) + COMMON /MULTS/ B0G21,B1G21,G210,G211,G212, + * B0G22,B1G22,G220,G221,G222, + * B0G31,B1G31,G310,G311,G312, + * B0G32,B1G32,G320,G321,G322, + * B0BGB,B1BGB,BGB0,BGB1,BGB2,NBGB + DOUBLE PRECISION B0G21,B1G21,G210(7),G211(7),G212(7), + * B0G22,B1G22,G220(8),G221(8),G222(8), + * B0G31,B1G31,G310(11),G311(11),G312(11), + * B0G32,B1G32,G320(25),G321(25),G322(25), + * B0BGB,B1BGB,BGB0(8),BGB1(8),BGB2(8) + INTEGER NBGB + COMMON /PATHCM/ B0PTH,B1PTH,PTH0,PTH1,PTH2,NPTH + DOUBLE PRECISION B0PTH,B1PTH,PTH0(6),PTH1(6),PTH2(6) + INTEGER NPTH + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + CHARACTER MEDIA1*24 + EQUIVALENCE (MEDIA1,MEDIA) +C----------------------------------------------------------------------- + DATA NCLOCK/0/,JCLOCK/2147483647/ + DATA ECUT/6*0.D0/,PCUT/6*0.D0/,VACDST/1.D9/ + DATA RHOFAC/1.D0/ + DATA NMED/1/,MEDIA1/'NAI '/ + DATA IRAYLM/1*0/ + DATA KMPI/12/,KMPO/8/,DUNIT/1.D0/,NOSCAT/0/ + DATA MED/6*1/,RHOR/6*0.D0/,IRAYLR/6*0/ + DATA B0G21/ 2.0000D0/,B1G21/ 5.0000D0/ + DATA G210(1),G211(1),G212(1)/-9.9140D-04, 2.7672D+00,-1.1544D+00/ + DATA G210(2),G211(2),G212(2)/-9.9140D-04, 2.7672D+00,-1.1544D+00/ + DATA G210(3),G211(3),G212(3)/-7.1017D-02, 3.4941D+00,-3.0773D+00/ + DATA G210(4),G211(4),G212(4)/-7.3556D-02, 3.5487D+00,-3.1989D+00/ + DATA G210(5),G211(5),G212(5)/ 3.6658D-01, 2.1162D+00,-2.0311D+00/ + DATA G210(6),G211(6),G212(6)/ 1.4498D+00,-5.9717D-01,-3.2951D-01/ + DATA G210(7),G211(7),G212(7)/ 1.4498D+00,-5.9717D-01,-3.2951D-01/ + DATA B0G22/ 2.0000D0/,B1G22/ 6.0000D0/ + DATA G220(1),G221(1),G222(1)/-5.2593D-04, 1.4285D+00,-1.2670D+00/ + DATA G220(2),G221(2),G222(2)/-5.2593D-04, 1.4285D+00,-1.2670D+00/ + DATA G220(3),G221(3),G222(3)/-6.4819D-02, 2.2033D+00,-3.6399D+00/ + DATA G220(4),G221(4),G222(4)/ 3.7427D-02, 1.6630D+00,-2.9362D+00/ + DATA G220(5),G221(5),G222(5)/ 6.1955D-01,-6.2713D-01,-6.7859D-01/ + DATA G220(6),G221(6),G222(6)/ 1.7584D+00,-4.0390D+00, 1.8810D+00/ + DATA G220(7),G221(7),G222(7)/ 2.5694D+00,-6.0484D+00, 3.1256D+00/ + DATA G220(8),G221(8),G222(8)/ 2.5694D+00,-6.0484D+00, 3.1256D+00/ + DATA B0G31/ 2.0000D0/,B1G31/ 9.0000D0/ + DATA G310(1),G311(1),G312(1)/ 4.9437D-01, 1.9124D-02, 1.8375D+00/ + DATA G310(2),G311(2),G312(2)/ 4.9437D-01, 1.9124D-02, 1.8375D+00/ + DATA G310(3),G311(3),G312(3)/ 5.3251D-01,-6.1555D-01, 4.5595D+00/ + DATA G310(4),G311(4),G312(4)/ 6.6810D-01,-2.2056D+00, 8.9293D+00/ + DATA G310(5),G311(5),G312(5)/-3.8262D+00, 2.5528D+01,-3.3862D+01/ + DATA G310(6),G311(6),G312(6)/ 4.2335D+00,-1.0604D+01, 6.6702D+00/ + DATA G310(7),G311(7),G312(7)/ 5.0694D+00,-1.4208D+01, 1.0456D+01/ + DATA G310(8),G311(8),G312(8)/ 1.4563D+00,-3.3275D+00, 2.2601D+00/ + DATA G310(9),G311(9),G312(9)/-3.2852D-01, 1.2938D+00,-7.3254D-01/ + DATA G310(10),G311(10),G312(10)/-2.2489D-1, 1.0713D+0,-6.1358D-1/ + DATA G310(11),G311(11),G312(11)/-2.2489D-1, 1.0713D+0,-6.1358D-1/ + DATA B0G32/ 2.0000D0/,B1G32/ 2.3000D1/ + DATA G320(1),G321(1),G322(1)/ 2.9907D-05, 4.7318D-01, 6.5921D-01/ + DATA G320(2),G321(2),G322(2)/ 2.9907D-05, 4.7318D-01, 6.5921D-01/ + DATA G320(3),G321(3),G322(3)/ 2.5820D-03, 3.5853D-01, 1.9776D+00/ + DATA G320(4),G321(4),G322(4)/-5.3270D-03, 4.9418D-01, 1.4528D+00/ + DATA G320(5),G321(5),G322(5)/-6.6341D-02, 1.4422D+00,-2.2407D+00/ + DATA G320(6),G321(6),G322(6)/-3.6027D-01, 4.7190D+00,-1.1380D+01/ + DATA G320(7),G321(7),G322(7)/-2.7953D+00, 2.6694D+01,-6.0986D+01/ + DATA G320(8),G321(8),G322(8)/-3.6091D+00, 3.4125D+01,-7.7512D+01/ + DATA G320(9),G321(9),G322(9)/ 1.2491D+01,-7.1103D+01, 9.4496D+01/ + DATA G320(10),G321(10),G322(10)/ 1.9637D+1,-1.1371D+2, 1.5794D+2/ + DATA G320(11),G321(11),G322(11)/ 2.1692D+0,-2.5019D+1, 4.5340D+1/ + DATA G320(12),G321(12),G322(12)/-1.6682D+1, 6.2067D+1,-5.5257D+1/ + DATA G320(13),G321(13),G322(13)/-2.1539D+1, 8.2651D+1,-7.7065D+1/ + DATA G320(14),G321(14),G322(14)/-1.4344D+1, 5.5193D+1,-5.0867D+1/ + DATA G320(15),G321(15),G322(15)/-5.4990D+0, 2.3874D+1,-2.3140D+1/ + DATA G320(16),G321(16),G322(16)/ 3.1029D+0,-4.4708D+0, 2.1318D-1/ + DATA G320(17),G321(17),G322(17)/ 6.0961D+0,-1.3670D+1, 7.2823D+0/ + DATA G320(18),G321(18),G322(18)/ 8.6179D+0,-2.0950D+1, 1.2536D+1/ + DATA G320(19),G321(19),G322(19)/ 7.5064D+0,-1.7956D+1, 1.0520D+1/ + DATA G320(20),G321(20),G322(20)/ 5.9838D+0,-1.4065D+1, 8.0342D+0/ + DATA G320(21),G321(21),G322(21)/ 4.4959D+0,-1.0456D+1, 5.8462D+0/ + DATA G320(22),G321(22),G322(22)/ 3.2847D+0,-7.6709D+0, 4.2445D+0/ + DATA G320(23),G321(23),G322(23)/ 1.9514D+0,-4.7505D+0, 2.6452D+0/ + DATA G320(24),G321(24),G322(24)/ 4.8808D-1,-1.6910D+0, 1.0459D+0/ + DATA G320(25),G321(25),G322(25)/ 4.8808D-1,-1.6910D+0, 1.0459D+0/ + DATA NBGB/ 8/,B0BGB/ 1.5714D0/,B1BGB/ 2.1429D-1/ + DATA BGB0(1),BGB1(1),BGB2(1)/-1.0724D+00, 2.8203D+00,-3.5669D-01/ + DATA BGB0(2),BGB1(2),BGB2(2)/ 3.7136D-01, 1.4560D+00,-2.8072D-02/ + DATA BGB0(3),BGB1(3),BGB2(3)/ 1.1396D+00, 1.1910D+00,-5.2070D-03/ + DATA BGB0(4),BGB1(4),BGB2(4)/ 1.4908D+00, 1.1267D+00,-2.2565D-03/ + DATA BGB0(5),BGB1(5),BGB2(5)/ 1.7342D+00, 1.0958D+00,-1.2705D-03/ + DATA BGB0(6),BGB1(6),BGB2(6)/ 1.9233D+00, 1.0773D+00,-8.1806D-04/ + DATA BGB0(7),BGB1(7),BGB2(7)/ 2.0791D+00, 1.0649D+00,-5.7197D-04/ + DATA BGB0(8),BGB1(8),BGB2(8)/ 2.0791D+00, 1.0649D+00,-5.7197D-04/ + DATA NPTH/ 6/,B0PTH/ 2.0000D0/,B1PTH/ 1.8182D1/ + DATA PTH0(1),PTH1(1),PTH2(1)/ 1.0000D+00, 9.8875D-01, 2.5026D+00/ + DATA PTH0(2),PTH1(2),PTH2(2)/ 1.0000D+00, 9.8875D-01, 2.5026D+00/ + DATA PTH0(3),PTH1(3),PTH2(3)/ 1.0060D+00, 7.8657D-01, 4.2387D+00/ + DATA PTH0(4),PTH1(4),PTH2(4)/ 1.0657D+00,-2.5051D-01, 8.7681D+00/ + DATA PTH0(5),PTH1(5),PTH2(5)/ 1.6971D+00,-7.5600D+00, 2.9946D+01/ + DATA PTH0(6),PTH1(6),PTH2(6)/ 1.6971D+00,-7.5600D+00, 2.9946D+01/ + END +*CMZ : 12/12/2001 11.52.56 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 03/02/97 +C======================================================================= + + SUBROUTINE EGSINI + +C----------------------------------------------------------------------- +C E(LECTRON) G(AMMA) S(HOWER) INI(TIALIZATION) +C +C INITIALIZES EGS4 PACKAGE +C THIS SUBROUTINE IS CALLED FROM START. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ATMOS. + COMMON /ATMOS/ AATM,AATM0,BATM,BATM0,CATM,CATM0,DATM,MODATM + DOUBLE PRECISION AATM(5),AATM0(5,0:16),BATM(5),BATM0(5,0:16), + * CATM(5),CATM0(5,0:16),DATM(5) + INTEGER MODATM +*KEEP,ATMOS2. + COMMON /ATMOS2/ HLAY,HLAY0,THICKL,LAYNO,LAYNEW + DOUBLE PRECISION HLAY(6),HLAY0(5,0:4),THICKL(5) + INTEGER LAYNO(0:16) + LOGICAL LAYNEW +*KEND. + COMMON /BOUNDS/ ECUT,PCUT,VACDST + DOUBLE PRECISION ECUT(6),PCUT(6),VACDST +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEND. + COMMON /ELECIN/ EKE0,EKE1,XR0,TEFF0,BLCC,XCC,ESIG0,ESIG1,PSIG0, + * PSIG1,EDEDX0,EDEDX1,PDEDX0,PDEDX1,EBR10,EBR11, + * PBR10,PBR11,PBR20,PBR21,TMXS0,TMXS1,ERANG0, + * ERANG1,PRANG0,PRANG1,STERNCOR + REAL EKE0,EKE1,XR0,TEFF0,BLCC,XCC, + * ESIG0(500),ESIG1(500),PSIG0(500),PSIG1(500), + * EDEDX0(500),EDEDX1(500),PDEDX0(500),PDEDX1(500), + * EBR10(500),EBR11(500),PBR10(500),PBR11(500), + * PBR20(500),PBR21(500),TMXS0(500),TMXS1(500), + * ERANG0(1),ERANG1(1),PRANG0(1),PRANG1(1),STERNCOR + COMMON /GEOMEGS/ ZALTIT,BOUND,OBSLVL,NEWOBS + DOUBLE PRECISION ZALTIT,BOUND(6),OBSLVL(10) + INTEGER NEWOBS + COMMON /LAYER/ HBARO,HBAROI + DOUBLE PRECISION HBARO(6),HBAROI(6) + COMMON /MEDIA/ RLDU,RLDUI,RHO,RLC,NMED,MSGE,MGE,MSEKE,MEKE, + * MLEKE,MCMFP,MRANGE,IRAYLM + DOUBLE PRECISION RLDU,RLDUI + REAL RHO,RLC + INTEGER NMED,MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE, + * IRAYLM + COMMON /MEDIAC/ MEDIA + CHARACTER MEDIA*24 + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) + COMMON /MUON/ PRRMMU,RMMUT2 + DOUBLE PRECISION PRRMMU,RMMUT2 +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PION/ PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT + DOUBLE PRECISION PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION ECUTMIN,HEIGH + INTEGER I,IDET,IRL,JREG,KREG + CHARACTER MEDARR*24 + LOGICAL LAVAIL + SAVE + EXTERNAL HEIGH + DATA MEDARR/'AIR-NTP '/ +C----------------------------------------------------------------------- + +C INITIALIZATION BEFORE THE FIRST CALL OF EGS4 + IF ( DEBUG ) THEN + WRITE(MDEBUG,*) 'EGSINI:' + KMPO = MDEBUG + ELSE + KMPO = MONIOU + ENDIF + WRITE(KMPO,10) + 10 FORMAT (/' START EGS4 AIR SHOWER SUBROUTINE VERSION (JUN 99)'/) +C SET PARTICLE MASSES AND PHYSICAL CONSTANTS + PRM = PAMA(2)*1.D3 + RMSQ = PRM**2 + RMI = 1.D0/PRM + PRMT2 = 2.D0*PRM + PRRMMU = PAMA(5)*1.D3 + RMMUT2 = 2.D0*PRRMMU + PICMAS = PAMA(8)*1.D3 + PI0MAS = PAMA(7)*1.D3 + PI0MSQ = PI0MAS**2 + AMASKC = PAMA(11)*1.D3 + AMASK0 = PAMA(10)*1.D3 + AMASPR = PAMA(14)*1.D3 + AMASNT = PAMA(13)*1.D3 +C INVERSE OF VELOCITY OF LIGHT + VCI = 1.D0/C(25) + PI = 2.D0 * ACOS(0.D0) + TWOPI = 2.D0 * PI +C PION-PRODUCTION THRESHOLD (MEV) + PITHR = 152.D0 +C NMED AND DUNIT DEFAULT TO 1,I.E. ONE MEDIUM AND WE WORK IN CM + MEDIUM=1 + DO I = 1,24 + MEDIA(I:I)=MEDARR(I:I) + ENDDO +C BOUNDARY 1: TOP OF ATMOSPHERE (SEE SUBR. HOWFAR) + BOUND(1) = HEIGH(0.D0) +C BOUNDARY 6: 1CM BELOW LOWEST AIR LAYER + BOUND(6) = HLAY(1) - 1.D0 + MED(1) = 0 + MED(6) = 0 +C VACUUM IN REGIONS 1 AND 6, AIR IN REGION 2 TO 5 + DO IRL = 2,5 + MED(IRL) = 1 +C PARAMETERS OF ATMOSPHERE ARE TAKEN FROM CORSIKAPROGRAM + BOUND(IRL) = HLAY(6-IRL) + HBARO(IRL) = CATM(6-IRL) + HBAROI(IRL) = 1.D0/HBARO(IRL) + RHOR(IRL) = BATM(6-IRL)*HBAROI(IRL) +C NEEDED FOR REGION 2 TO 5 SINCE NO TRANSPORT ELSEWHERE +C ECUT IS TOTAL ENERGY +C TERMINATE ELECTRON HISTORIES AT ECUT (GEV TO MEV CONVERTED) + ECUT(IRL) = 1000.D0*ELCUT(3)+PRM +C TERMINATE PHOTON HISTORIES AT PCUT (GEV TO MEV CONVERTED) + PCUT(IRL) = 1000.D0*ELCUT(4) + ENDDO +C LOOK FOR MINIMUM ENERGY CUT TO SELECT OPTIMAL EGSDATA SET + ECUTMIN = MIN(1000.D0*ELCUT(3), 1000.D0*ELCUT(3)) + 33 CONTINUE + IF ( ECUTMIN .GE. 3.D0 ) THEN + INQUIRE(FILE='EGSDAT3_3.',EXIST=LAVAIL) + IF ( LAVAIL ) THEN + OPEN(UNIT=KMPI,FILE='EGSDAT3_3.',STATUS='OLD') + WRITE(KMPO,*) 'DATASET EGSDAT3_3. AVAILABLE' + STERNCOR = 0.0 + ELSE + ECUTMIN = 1.1D0 + WRITE(KMPO,*) + * 'DATASET EGSDAT3_3. BEST SUITED BUT NOT AVAILABLE' + GOTO 33 + ENDIF + ELSEIF ( ECUTMIN .GE. 1.D0 ) THEN + INQUIRE(FILE='EGSDAT3_1.',EXIST=LAVAIL) + IF ( LAVAIL ) THEN + OPEN(UNIT=KMPI,FILE='EGSDAT3_1.',STATUS='OLD') + WRITE(KMPO,*) 'DATASET EGSDAT3_1. AVAILABLE' + STERNCOR = 6.0 + ELSE + ECUTMIN = 0.5D0 + WRITE(KMPO,*) + * 'DATASET EGSDAT3_1. BEST SUITED BUT NOT AVAILABLE' + GOTO 33 + ENDIF + ELSEIF ( ECUTMIN .GE. 0.4D0 ) THEN + INQUIRE(FILE='EGSDAT3_.4',EXIST=LAVAIL) + IF ( LAVAIL ) THEN + OPEN(UNIT=KMPI,FILE='EGSDAT3_.4',STATUS='OLD') + WRITE(KMPO,*) 'DATASET EGSDAT3_.4 AVAILABLE' + STERNCOR = 10.0 + ELSE + ECUTMIN = 0.26D0 + WRITE(KMPO,*) + * 'DATASET EGSDAT3_.4 BEST SUITED BUT NOT AVAILABLE' + GOTO 33 + ENDIF + ELSEIF ( ECUTMIN .GE. 0.25D0 ) THEN + INQUIRE(FILE='EGSDAT3_.25',EXIST=LAVAIL) + IF ( LAVAIL ) THEN + OPEN(UNIT=KMPI,FILE='EGSDAT3_.25',STATUS='OLD') + WRITE(KMPO,*) 'DATASET EGSDAT3_.25 AVAILABLE' + STERNCOR = 11.0 + ELSE + ECUTMIN = 0.16D0 + WRITE(KMPO,*) + * 'DATASET EGSDAT3_.25 BEST SUITED BUT NOT AVAILABLE' + GOTO 33 + ENDIF + ELSEIF ( ECUTMIN .GE. 0.15D0 ) THEN + INQUIRE(FILE='EGSDAT3_.15',EXIST=LAVAIL) + IF ( LAVAIL ) THEN + OPEN(UNIT=KMPI,FILE='EGSDAT3_.15',STATUS='OLD') + WRITE(KMPO,*) 'DATASET EGSDAT3_.15 AVAILABLE' + STERNCOR = 12.5 + ELSE + ECUTMIN = 0.06D0 + WRITE(KMPO,*) + * 'DATASET EGSDAT3_.15 BEST SUITED BUT NOT AVAILABLE' + GOTO 33 + ENDIF + ELSEIF ( ECUTMIN .GE. 0.05D0 ) THEN + INQUIRE(FILE='EGSDAT3_.05',EXIST=LAVAIL) + IF ( LAVAIL ) THEN + OPEN(UNIT=KMPI,FILE='EGSDAT3_.05',STATUS='OLD') + WRITE(KMPO,*) 'DATASET EGSDAT3_.05 AVAILABLE' + STERNCOR = 15.0 + ELSE + ECUTMIN = 0.04D0 + WRITE(KMPO,*) + * 'DATASET EGSDAT3_.05 BEST SUITED BUT NOT AVAILABLE' + GOTO 33 + ENDIF + ELSE + INQUIRE(FILE='EGSDAT3_.05',EXIST=LAVAIL) + IF ( LAVAIL ) THEN + OPEN(UNIT=KMPI,FILE='EGSDAT3_.05',STATUS='OLD') + WRITE(KMPO,*) 'ONLY DATASET EGSDAT3_.05 AVAILABLE' + STERNCOR = 15.0 + ELSE + WRITE(KMPO,*) 'NO DATASET EGSDAT3_???? AVAILABLE' + STOP + ENDIF + ENDIF +C PICK UP CROSS-SECTION DATA FOR AIR-NTP FROM UNIT KMPI=12 + CALL HATCH + CLOSE(UNIT=KMPI) +C INVERTED PHOTON THRESHOLD + API = 1.D0/AP + WRITE(KMPO,40) (AE-PRM)*.001,AP*.001,ECUT(2)*.001,PCUT(2)*.001 + 40 FORMAT (' ELECTRONS CAN BE CREATED AND ANY ELECTRON FOLLOWED DO', + * 'WN TO'/T38,F15.5,' GEV KINETIC ENERGY'/' GAMMAS CAN BE CREATED', + * ' AND ANY GAMMA FOLLOWED DOWN TO'/T38,F15.5,' GEV ENERGY'/' ELE', + * 'CTRON HISTORIES ARE TERMINATED AT',F15.5,' GEV'/' GAMMA HISTO', + * 'RIES ARE TERMINATED AT ',F15.5,' GEV'/) +** IF ( DEBUG ) WRITE(KMPO,50) +**50 FORMAT (10X,' PART|TOT.ENERGY|ANGLE Z|ANGLE X|ALTITUDE|', +** * ' TIME | POS. X | POS. Y |GENER|',/,11X,'ICLE|', +** * ' (GEV) |COSTHET| (RAD) | (CM) | (MSEC) | (CM) |', +** * ' (CM) |ATION|') +C CALCULATE THE LAYER THICKNESS BELOW EACH DETECTOR + DO 61 IDET = 1,NOBSLV +C NECESSARY BECAUSE OF DOUBLE PRECIS. + OBSLVL(IDET) = OBSLEV(IDET) + DO 71 JREG = 2,5 + IF ( OBSLVL(IDET) .GE. BOUND(JREG) ) THEN + KREG = JREG + GOTO 80 + ENDIF + 71 CONTINUE + WRITE(KMPO,90) IDET,OBSLVL(IDET)*0.01 + 90 FORMAT (' EGSINI:', ' DETECTOR ',I2,' AT ',E10.3,' M IS OUT ', + * 'OF ATMOSPHERE') + STOP + 80 CONTINUE + 61 CONTINUE + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE ELECTR(IRCODE) +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C ELECTR(ONS NAD POSITRONS ARE TREATED) +C +C TREATS THE ELECTRON/POSITRON TRANSPORT +C FOR PATH LENGTH CORRECTION BECAUSE OF BAROMETRIC ATMOSPHERE SEE +C INTERNAL REPORT OF D.HECK,(1989) +C THIS SUBROUTINE IS CALLED FROM SHOWER. +C ARGUMENT: +C IRCODE = RETURN CODE : 1 NORMAL RETURN +C 2 IF POSSIBLY STACK IS EMPTY +C----------------------------------------------------------------------- + + IMPLICIT NONE + COMMON /BOUNDS/ ECUT,PCUT,VACDST + DOUBLE PRECISION ECUT(6),PCUT(6),VACDST +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,CEREN1. + COMMON /CEREN1/ CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR,LCERFI + DOUBLE PRECISION CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR + LOGICAL LCERFI +*KEEP,CORFRAM, IF=CURVED. + COMMON /CORFRAM/ DETSYS + LOGICAL DETSYS +*KEND. + COMMON /ELECIN/ EKE0,EKE1,XR0,TEFF0,BLCC,XCC,ESIG0,ESIG1,PSIG0, + * PSIG1,EDEDX0,EDEDX1,PDEDX0,PDEDX1,EBR10,EBR11, + * PBR10,PBR11,PBR20,PBR21,TMXS0,TMXS1,ERANG0, + * ERANG1,PRANG0,PRANG1,STERNCOR + REAL EKE0,EKE1,XR0,TEFF0,BLCC,XCC, + * ESIG0(500),ESIG1(500),PSIG0(500),PSIG1(500), + * EDEDX0(500),EDEDX1(500),PDEDX0(500),PDEDX1(500), + * EBR10(500),EBR11(500),PBR10(500),PBR11(500), + * PBR20(500),PBR21(500),TMXS0(500),TMXS1(500), + * ERANG0(1),ERANG1(1),PRANG0(1),PRANG1(1),STERNCOR +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,EPCONT. + COMMON /EPCONT/ EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW,EKE,ELKE,BETA2,GLE,TSCAT, + * IDISC,IROLD,IRNEW + DOUBLE PRECISION EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW, EKE,ELKE,BETA2,GLE,TSCAT + INTEGER IDISC,IROLD,IRNEW + +*KEND. + COMMON /GEOMEGS/ ZALTIT,BOUND,OBSLVL,NEWOBS + DOUBLE PRECISION ZALTIT,BOUND(6),OBSLVL(10) + INTEGER NEWOBS + COMMON /LAYER/ HBARO,HBAROI + DOUBLE PRECISION HBARO(6),HBAROI(6) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MAGNET. + COMMON /MAGNET/ BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT + DOUBLE PRECISION BX,BZ,BVAL,BNORMC,BNORM,COSB,SINB,BLIMIT +*KEND. + COMMON /MEDIA/ RLDU,RLDUI,RHO,RLC,NMED,MSGE,MGE,MSEKE,MEKE, + * MLEKE,MCMFP,MRANGE,IRAYLM + DOUBLE PRECISION RLDU,RLDUI + REAL RHO,RLC + INTEGER NMED,MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE, + * IRAYLM + COMMON /MEDIAC/ MEDIA + CHARACTER MEDIA*24 + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) + COMMON /MUON/ PRRMMU,RMMUT2 + DOUBLE PRECISION PRRMMU,RMMUT2 +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PATHCM/ B0PTH,B1PTH,PTH0,PTH1,PTH2,NPTH + DOUBLE PRECISION B0PTH,B1PTH,PTH0(6),PTH1(6),PTH2(6) + INTEGER NPTH +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION A,ALPHA,ALTEXP,B,BETA3,CC, + * COSDEL,DE,DEDX,DEDX0,DEMFP,DISC,EBR1,EDEPB, + * EDEPN,EDEP1,EFRST,EKEF,EKEOLD,ERELS,FLIP,FNORM, + * F1SIN,F1COS,PBR1,PBR2,PEIE,PHI,PTH,RADINV,RANGE, + * RHOFI,SIG,SIGF,SIG0,SINDEL,SINPSI,SINPS2,SITHET, + * STEPT,THCKHN,THCKHO,THICK,TMXS,TUSTPC, + * TVSTPC,UMEAN,US,USTEPU,USTEP0,USW,U0, + * VMEAN,VS,VSTP,VSTEPU,V0,V1,WMEAN,W0,ZOLD + INTEGER IDR,IRCODE,IRL,I,IPTH,I1, + * LELEC,LELKE,LPCT1,LPCT2,NSTPCN + DOUBLE PRECISION CTEA,EBEG,EEND,TBEG,TEND, + * XBEG,XEND,YBEG,YEND,ZBEG,ZEND + DOUBLE PRECISION AUXIL,AUXILSQ,AUX2SQ,CORR,COSDIF,COSTHENEW, + * DISTN2,DISTO2,DSTEFF,PHIC,SIGNE,SINDIF, + * TANPHI,TRANS2,XOLD,YOLD,ZNEW + INTEGER IPASC + SAVE + EXTERNAL THICK + DATA NSTPCN/0/ +C----------------------------------------------------------------------- + + IF ( DEBUG ) THEN + NCLOCK = NCLOCK+1 + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP),NCLOCK + 1 FORMAT(' ELECTR: NP=',I3,' IR=',I3,' IOBS=',I3,' NCLOCK=',I12) + CALL AUSGB2 + ELSE + IF ( NCLOCK .GE. JCLOCK ) THEN + FEGSDB = .TRUE. + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP),NCLOCK + CALL AUSGB2 + ENDIF + IF ( MOD(NCLOCK,1000) .EQ. 0 ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP),NCLOCK + ENDIF + ENDIF + ENDIF + + NEWOBS = IOBS(NP) + IRCODE = 1 + IROLD = IR(NP) + IRL = IR(NP) + MEDIUM = MED(IRL) + +C START WITH A NEW ELECTRON: LELEC = -1 FOR E-, LELEC =+1 FOR E+ + 380 CONTINUE + LELEC = 5-2*IQ(NP) + PEIE = E(NP) + IF ( PEIE .LE. ECUT(IRL) ) GOTO 390 + MEDIUM = MED(IRL) + + 401 CONTINUE + IF ( MEDIUM .NE. 0 ) THEN +C WE USE EKE = KIN. ENERGY OF ELECTRON, ELKE = LOGARITHM OF EKE + EKE = PEIE-PRM + ELKE = LOG(EKE) + CALL RMMAR(RD,1,2) + DEMFP = MAX( -LOG(DBLE(RD(1))), 1.D-6 ) +C LOOK FOR CROSS-SECTION TO DETERMINE RANGE + LELKE = EKE1*ELKE+EKE0 + IF ( LELEC .LT. 0 ) THEN + SIG0 = ESIG1(LELKE)*ELKE+ESIG0(LELKE) + ELSE + SIG0 = PSIG1(LELKE)*ELKE+PSIG0(LELKE) + ENDIF + ENDIF + 451 CONTINUE + + IF ( MEDIUM .EQ. 0 ) THEN +C WE ARE IN VACUUM + TSTEP = VACDST + USTEP = TSTEP + TUSTEP = USTEP + ALTEXP = 1.D0 + ELSE +C WE ARE IN AIR +C COMPUTE SIZE OF MAXIMUM ACCEPTABLE STEP, WHICH IS LIMITED BY +C MULTIPLE SCATTERING OR OTHER APPROXIMATIONS. + RHOFAC = RHOR(IRL)/RHO + RHOFI = 1.D0/RHOFAC + SIG = SIG0*RHOFAC + IF ( SIG .LE. 0.D0 ) THEN +C THIS CAN HAPPEN IF THE THRESHOLD FOR BREMS, (AP+RM), IS GREATER +C THAN AE. MOLLER THRESHOLD IS 2*AE-RM. IF SIG IS ZERO, WE ARE BELOW +C THE THRESHOLDS FOR BOTH BREMSSTRAHLUNG AND MOLLER. IN THIS CASE WE +C WILL JUST LOSE ENERGY BY IONIZATION LOSS UNTIL WE GO BELOW CUT-OFF. +C DO NOT ASSUME RANGE IS AVAILABLE, SO JUST ASK FOR STEP SAME AS +C VACUUM. ELECTRON TRANSPORT WILL REDUCE INTO LITTLE STEPS + TSTEP = VACDST + ELSE + TSTEP = DEMFP/SIG + ENDIF + TMXS = TMXS1(LELKE)*ELKE+TMXS0(LELKE) + TMXS = MIN( TMXS, STEPFC*200.D0*DBLE(TEFF0) ) + TMXS = TMXS*RHOFI + TUSTEP = MIN( TSTEP, TMXS ) +C EVALUATE IONIZATION ENERGY LOSS + IF ( LELEC .LT. 0 ) THEN + DEDX0 = EDEDX1(LELKE)*ELKE+EDEDX0(LELKE) + ELSE + DEDX0 = PDEDX1(LELKE)*ELKE+PDEDX0(LELKE) + ENDIF +C STERNHEIMER CORRECTION OF DENSITY DEPENDENT IONISATION ENERGY LOSS +C DEDX. SATURATION VALUE OF DEDX AT HIGH ENERGIES IS PRESSURE DEPENDENT +C AND SATURATES AT LOWER VALUES FOR HIGHER PRESSURE. THEREFORE THE +C CROSS-SECTION FILE IS ESTABLISHED WITH GAS PRESSURE OF 1.E-6 ATM +C (CORRESPONDING TO ABOUT 100 KM HIGHT IN ATMOSPHERE). THE CORRECTION +C INTRODUCED GIVES VALUES ABOUT 3% TO HIGH IN TRANSITION REGION TO +C SATURATION. THE PARAMETRISATION IS ONLY VALID FOR U.S. STANDARD ATMOS. + DEDX = RHOFAC*MIN( DEDX0, + * (86.65D0-STERNCOR-Z(NP)*8.D-6)*RLDUI ) + RANGE = (PEIE-ECUT(IRL)+0.001D0)/DEDX + BETA2 = MAX( 1.D-8, 1.D0-RMSQ/(PEIE*PEIE) ) +C THE FACTOR 0.094315=2./E_S WITH E_S = 21.2MEV + BETA3 = PEIE*BETA2*0.094315D0 + TSCAT = RLDU*BETA3**2 + TSCAT = TSCAT*RHOFI + TUSTEP = MIN( TUSTEP, 0.3D0*TSCAT, RANGE ) +C RATIO GIVES TEH NUMBER OF SCATTERS ALONG STEP + RATIO = TUSTEP/TSCAT + USTEP = TUSTEP*(1.D0-RATIO) +C USTEPU IS STEP LENGTH WITHOUT CORRECTION FOR DENSITY GRADIENT + USTEPU = USTEP + ALTEXP = EXP((-Z(NP))*HBAROI(IRL)) + USTEP = USTEP*ALTEXP + DISC = W(NP)*USTEP*HBAROI(IRL) + IF ( ABS(DISC) .LT. .0000007D0 ) THEN + USTEP = USTEP*(1.D0-.5D0*DISC*(1.D0-.666666666666667D0*DISC* + * (1.D0-.75D0*DISC*(1.D0-.8D0*DISC)))) + ELSEIF ( DISC .GT. -1.D0 ) THEN + USTEP = USTEP*LOG(DISC+1.D0)/DISC + ELSE + USTEP = VACDST + ENDIF +C USTEP IS STEP LENGTH WITH CORRECTION FOR DENSITY GRADIENT + TUSTPC = USTEP/(1.D0-RATIO) + ENDIF + IRNEW = IR(NP) + IDISC = 0 + USTEP0 = USTEP +C REDUCE STEPSIZE, IF PARTICLE COILS WITH ANGLES >0.2 RAD (=11.4 DEG.) +C IN MAGNETIC FIELD + USTEP = MIN( USTEP, BLIMIT*PEIE ) +C LOOK HOW FAR WE CAN GO + IF ( USTEP .GT. DNEAR(NP) ) CALL HOWFAR + IF ( IDISC .GT. 0 ) GOTO 420 + IF ( USTEP .LE. 0.D0 ) THEN + IF ( USTEP .LT. -1.D-4 ) THEN +C NEGATIVE USTEP---PROBABLE TRUNCATION PROBLEM AT A BOUNDARY, WHICH +C MEANS WE ARE NOT IN THE REGION WE THINK WE ARE IN. THE DEFAULT MACRO +C ASSUMES THAT USER HAS SET IRNEW TO THE REGION WE ARE REALLY MOST +C LIKELY TO BE IN. A MESSAGE IS WRITTEN OUT WHENEVER USTEP IS LESS +C THAN -1.E-4 + WRITE(KMPO,460) USTEP + 460 FORMAT(' ELECTR: NEGATIVE USTEP=',G20.10,' CM') + WRITE(KMPO,470) Z(NP),DNEAR(NP),IR(NP),IRNEW,W(NP) + 470 FORMAT (' Z=',G15.7, ' DNEAR=',G15.7,' IR=',I5, ' IRNEW=',I5, + * ' W=',G15.7) + NSTPCN = NSTPCN+1 + IF ( NSTPCN .GE. 20 ) THEN + CALL AUSGB2 + WRITE(KMPO,480) NSTPCN + 480 FORMAT (' ELECTR: PROGRAM STOPPED BECAUSE OF FREQUENT NEGA', + * 'TIVE USTEP, COUNTER = ',I5) + STOP + ENDIF + ENDIF + USTEP = 0.D0 + ENDIF + IF ( IDISC .LT. 0 ) THEN +C PARTICLE WILL CROSS THE DETECTOR LEVEL + ZOLD = Z(NP) + XOLD = X(NP) + YOLD = Y(NP) + DISTO2 = X(NP)**2 + Y(NP)**2 + IF ( FEGSDB ) THEN + WRITE(MDEBUG,*) 'ELECTR: WE APPROACH DETECTOR' + CALL AUSGB2 + ENDIF + AUXILSQ = SQRT(DISTO2) + WA(NP) = COS(AUXILSQ/C(1)) + WA(NP) = MIN( 1.D0, WA(NP) ) + ZAP(NP) = - (C(1)-Z(NP)) * WA(NP) + C(1) +C REGARD WHETHER PARTICLE IS MOVING TOWARDS DETECTOR +C EFFECTIVE DISTANCE TO DETECTOR CENTER IS DISTANCE TO POINT +C OF FLIGHT PATH PROJECTION WHICH COMES CLOSEST TO DETECTOR CENTER + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + PHIC = -ATAN2(V(NP),U(NP)) + ELSE + PHIC = 0.D0 + ENDIF + DSTEFF = -( COS(PHIC)*X(NP) + SIN(PHIC)*Y(NP) ) +C CALCULATE CORRECTION ANGLE DIF FROM EFFECTIVE DISTANCE DSTEFF + SINDIF = SIN(DSTEFF/C(1)) + COSDIF = SQRT( 1.D0 - SINDIF**2) + COSTHENEW = W(NP)*COSDIF - SQRT(1.D0-W(NP)**2)*SINDIF + IF ( FEGSDB ) WRITE(MDEBUG,*) 'ELECTR: COSDIF,COSTHENEW=', + * SNGL(COSDIF),SNGL(COSTHENEW) + W(NP) = MIN( 1.D0, COSTHENEW ) +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) GOTO 420 +C ANGLE DIF (= DSTEFF/C(1)) MIGHT BE LARGE DUE TO CUT ON HAPP + X(NP) = (-ZAP(NP) + C(1)) * TAN(X(NP)/C(1)) + Y(NP) = (-ZAP(NP) + C(1)) * TAN(Y(NP)/C(1)) + Z(NP) = ZAP(NP) + IF ( U(NP) .NE. 0.D0 ) THEN + TANPHI= V(NP)/U(NP) + U(NP) = SIGN(1.D0,U(NP)) * + * SQRT((1.D0-W(NP)**2)/(1.D0+TANPHI**2)) + V(NP) = TANPHI * U(NP) + ELSE + IF ( V(NP) .NE. 0.D0 ) + * V(NP) = SIGN(1.D0,V(NP)) * SQRT( 1.D0 - W(NP)**2 ) + ENDIF + USTEP = -(Z(NP)+OBSLEV(1))/W(NP) + IF ( FEGSDB ) THEN + WRITE(MDEBUG,*) 'ELECTR: CORR. FOR DET. ARRIVAL:USTEP=',USTEP + CALL AUSGB2 + ENDIF + IPASC = 1 + DETSYS = .TRUE. + ELSE + DETSYS = .FALSE. +C PARTICLE MOVES TO END OF ITS RANGE, WE DO NOT YET APPROACH DETECTOR + IPASC = 0 + ZOLD = Z(NP) + XOLD = X(NP) + YOLD = Y(NP) + DISTO2= X(NP)**2 + Y(NP)**2 + ENDIF +C FILL IN CHERENKOV COORDINATES AT BEGIN OF STEP + EBEG = PEIE*1.D-3 + EEND = PEIE*1.D-3 + XBEG = X(NP) + YBEG = -Y(NP) + ZBEG = -Z(NP) + TBEG = TIM(NP) + +C WE ARE IN VACUUM OR MAKE A ZERO STEP + IF ( USTEP .EQ. 0.D0 .OR. MEDIUM .EQ. 0 ) THEN + IF ( USTEP .NE. 0.D0 ) THEN + VSTEP = USTEP + TVSTEP = VSTEP +C WE ARE IN VACUUM, NO ENERGY LOSS + EDEP = 0.D0 + TVSTPC = TVSTEP +C CHARGED PARTICLE TRANSPORT IN EARTH MAGNETIC FIELD +C SEE ALSO SLAC-265, P. 127 FF + ALPHA = VSTEP*LELEC*BNORM/PEIE + TVSTPC = TVSTPC*(1.D0+0.04166667D0*ALPHA**2) + U0 = U(NP) + V0 = V(NP) + W0 = W(NP) + FNORM = 1.D0-0.5D0*ALPHA**2*(1.D0-0.75D0*ALPHA**2) + F1SIN = (1.D0-FNORM)*SINB + F1COS = (1.D0-FNORM)*COSB + V1 = V0*ALPHA*FNORM + USW = U0*SINB-W0*COSB + U(NP) = U0-F1SIN*USW+V1*SINB + V(NP) = FNORM*(V0-ALPHA*USW) + W(NP) = W0+F1COS*USW-V1*COSB + RADINV= 1.5D0-0.5D0*(U(NP)**2+V(NP)**2+W(NP)**2) + U(NP) = U(NP)*RADINV + V(NP) = V(NP)*RADINV + W(NP) = W(NP)*RADINV + UMEAN = 0.5D0*(U0+U(NP)) + VMEAN = 0.5D0*(V0+V(NP)) + WMEAN = 0.5D0*(W0+W(NP)) + X(NP) = X(NP) + VSTEP*UMEAN + Y(NP) = Y(NP) + VSTEP*VMEAN + Z(NP) = Z(NP) + VSTEP*WMEAN + IF ( IPASC .EQ. 0 ) THEN +C NORMAL STEP TO END OF PARTICLE RANGE, WE DO NOT YET APPROACH DETECTOR + W(NP) = MIN( 1.D0, W(NP) ) +C HORIZONTAL COMPONENT OF TRACK LENGTH SQUARED + TRANS2 = (X(NP)-XOLD)**2 + (Y(NP)-YOLD)**2 +C TRANSPORT AT MINIMUM .001 MM + TRANS2 = MAX( TRANS2, 0.00001D0 ) +C NEW COORDINATE FRAME, NEW ACTUAL HEIGHT AT NEW THICKNESS GRADIENT +C (CALCULATED WITH PARAMETERS OF OLD COORDINATE FRAME) + AUXIL = SQRT( TRANS2 + (C(1)-Z(NP))**2 ) + ZNEW = C(1) - AUXIL +C CALCULATE ANGLE DIFFERENCE BETWEEN OLD AND NEW FRAME + SINDIF = SQRT(TRANS2) / AUXIL + COSDIF = (C(1)-Z(NP)) / AUXIL + IF ( FEGSDB ) WRITE(MDEBUG,560) COSDIF,SINDIF,-Z(NP),-ZNEW + 560 FORMAT(/' ELECTR: COSDIF,SINDIF,Z,ZNEW=',2F18.15,1P,2E17.9) + COSDIF = MIN( 1.D0, COSDIF ) +C CORRECTED X AND Y HAVE TO BE CALCULATED BEFORE DISTN2 +C TRANSPORT DISTANCE IS CORRECTED TO GET DISTANCE AT EARTH' SURFACE + CORR = C(1)*ASIN(SINDIF)/( (C(1)-ZNEW)*SINDIF ) + X(NP) = XOLD + (X(NP)-XOLD)*CORR + Y(NP) = YOLD + (Y(NP)-YOLD)*CORR + Z(NP) = ZNEW +C NEW DISTANCE FROM PARTICLE TO DETECTOR CENTER + DISTN2 = X(NP)**2 + Y(NP)**2 +C COMPARE NEW AND OLD DISTANCE TO DETECTOR CENTER + IF ( DISTN2 .LT. DISTO2 ) THEN +C PARTICLE MOVES TOWARDS DETECTOR CENTER + SIGNE = +1.D0 + ELSE + SIGNE = -1.D0 + IF ( FEGSDB ) WRITE(MDEBUG,*) 'ELECTR: SIGNE=',SIGNE + ENDIF +C IN FIRST ORDER APPROXIMATION W(NP) AND COSDIF ARE IN THE SAME PLANE +C OF PARTICLE MOVEMENT, THEREFORE THE ANGLES MAY BE ADDED DIRECTLY + COSTHENEW = W(NP)*COSDIF - SIGNE*SINDIF*SQRT(1.D0-W(NP)**2) + W(NP) = MIN( 1.D0, COSTHENEW ) +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) GOTO 420 + IF ( FEGSDB ) THEN + WRITE(MDEBUG,562) WA(NP),-ZAP(NP) + 562 FORMAT(' ELECTR: WA,-ZAP=',F18.15,1P,E17.9) + WRITE(MDEBUG,557) U(NP),V(NP),W(NP),X(NP),-Y(NP),-Z(NP) + 557 FORMAT(' ELECTR: STEPEND=',1P,6E10.3,0P) + ENDIF +C CALCULATE ANGLES IN THE NEW FRAME + AUXILSQ = SQRT(X(NP)**2 + Y(NP)**2) + WA(NP) = COS(AUXILSQ/C(1)) + WA(NP) = MIN( 1.D0, WA(NP) ) + ZAP(NP) = -(C(1)-ZNEW) * WA(NP) + C(1) + AUX2SQ = SQRT( (C(1)-ZNEW)**2*(1.D0 - WA(NP)**2) + * + (-ZAP(NP)-OBSLEV(1))**2 ) + WAP(NP) = -(OBSLEV(1)+ZAP(NP)) / AUX2SQ + IF ( FEGSDB ) WRITE(MDEBUG,*) 'ELECTR: WAP=',WAP(NP) +C KILL PARTICLES, WHICH ARE BELOW DETECTOR SURFACE +C CUT ON APPARENT HEIGHT + IF ( -ZAP(NP) .LE. OBSLEV(1) ) GOTO 420 + WAP(NP) = MIN( 1.D0, WAP(NP) ) + IF ( U(NP) .NE. 0.D0 ) THEN + TANPHI= V(NP) / U(NP) + U(NP) = SIGN(1.D0,U(NP)) * + * SQRT( (1.D0-W(NP)**2)/(1.D0+TANPHI**2) ) + V(NP) = TANPHI * U(NP) + ELSE + IF ( V(NP) .NE. 0.D0 ) + * V(NP) = SIGN(1.D0,V(NP)) * SQRT( 1.D0 - W(NP)**2 ) + ENDIF + ENDIF + TIM(NP) = TIM(NP) + TVSTPC*VCI/SQRT(1.D0-(PRM/E(NP))**2) +C NO CHERENKOV PHOTONS, WE ARE IN VACUUM +C ADD ELECTRONS TO THE LONGITUDINAL DEVELOPMENT +C FIND FIRST THE EQUIVALENT LEVELS + IF ( LLONGI ) THEN +C IF STARTING POINT BELOW LOWEST LEVEL THEN DON'T CHECK + IF ( HLONG(NSTEP) .LE. -ZOLD ) THEN + LPCT1 = LPCTE(NP) +C Z NEW IS PROBABLY ONLY LITTLE BELOW Z OLD, THEREFORE INCREMENTAL SEARCH + DO I1 = LPCT1,NSTEP + IF ( HLONG(I1) .LT. -Z(NP) ) GOTO 6003 + ENDDO + I1 = NSTEP + 1 + 6003 CONTINUE + LPCT2 = I1 - 1 +C STORE END POINT AS POSSIBLE STARTPOINT OF NEXT TRACK + LPCTE(NP) = LPCT2 + 1 + DO I = LPCT1,LPCT2 + PLONG(I,IQ(NP)) = PLONG(I,IQ(NP)) + 1.D0 + ENDDO + IF ( IDISC .LT. 0 ) + * PLONG(LPCT2+1,IQ(NP)) = PLONG(LPCT2+1,IQ(NP)) + 1.D0 +C WE ARE IN VACUUM NO ENERGY LOSS. RELEASABLE ENERGY ERELS [GEV] + ERELS = 1.D-3*( E(NP) - DBLE(2*IQ(NP)-5) * PRM ) +C NOW FILL FIRST AND LAST BINS, THEN LOOP OVER THE BINS BETWEEN + IF ( LPCT2 .LT. NSTEP ) THEN + IF ( IDISC .LT. 0 ) THEN + ELONG(LPCT2+1,IQ(NP)) = ELONG(LPCT2+1,IQ(NP)) + ERELS + ENDIF + ENDIF + IF ( LPCT2 .GE. LPCT1 ) THEN + ELONG(LPCT2,IQ(NP)) = ELONG(LPCT2,IQ(NP)) + ERELS + ENDIF +C LOOP OVER ALL LONGITUDINAL BINS + IF ( LPCT2 .GT. LPCT1 ) THEN + DO I = LPCT1,LPCT2-1 + ELONG(I,IQ(NP)) = ELONG(I,IQ(NP)) + ERELS + ENDDO + ENDIF + ENDIF +C END LONGITUDINAL DISTRIBUTION FILLING + ENDIF + + DNEAR(NP) = DNEAR(NP)-VSTEP + IROLD = IR(NP) +C END OF STEP IN VACUUM + ENDIF + IR(NP) = IRNEW + IRL = IRNEW + MEDIUM = MED(IRL) + IF ( PEIE .LE. ECUT(IRL) ) GOTO 390 +C KILL UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) GOTO 420 + IF ( USTEP .NE. 0.D0 ) THEN + IF ( NEWOBS .GT. IOBS(NP) ) THEN + CALL AUSGAB + IOBS(NP) = NEWOBS + ENDIF + ENDIF + GOTO 401 + ENDIF + +C WE ARE IN NORMAL MEDIUM WITH NORMAL STEP + VSTEP = USTEP + IF ( USTEP .EQ. USTEP0 ) THEN + TVSTEP = TUSTEP + TVSTPC = TUSTPC + ELSE +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) GOTO 420 +C PATH LENGTH CORRECTION FOR BAROMETRIC AIR + VSTEPU = VSTEP + DISC = W(NP)*VSTEPU*HBAROI(IRL) + IF ( DISC .NE. 0.D0 ) THEN + VSTEPU = VSTEPU*(EXP(DISC)-1.D0)/(DISC*ALTEXP) + ENDIF +C PATH LENGTH CORRECTION FOR MULTIPLE SCATTERING + VSTP = VSTEPU/TSCAT + IPTH = B0PTH+B1PTH*VSTP + IPTH = MAX( IPTH, 1 ) + IF ( IPTH .GT. NPTH ) THEN + CALL AUSGB2 + WRITE(KMPO,490) VSTP,IPTH,NPTH + 490 FORMAT (' ELECTR: OUT OF BOUNDS IPTH: VSTP,IPTH,NPTH=' , 1P , + * G15.6,2I10) + STOP + ENDIF + PTH = PTH0(IPTH)+VSTP*(PTH1(IPTH)+VSTP*PTH2(IPTH)) + TVSTEP = PTH*VSTEPU + TVSTPC = PTH*VSTEP + ENDIF +C DEFLECTION IN MAGNETIC FIELD + ALPHA = VSTEP*LELEC*BNORM/PEIE + TVSTPC = TVSTPC*(1.D0+0.04166667D0*ALPHA**2) +C NOW TAKE IONIZATION LOSSES INTO ACCOUNT + DE = DEDX*TVSTEP + EDEP = DE + EKEF = EKE-DE + EOLD = PEIE + ENEW = EOLD-DE +C NOW CHANGE ANGLE BECAUSE OF MULTIPLE SCATTERING + CALL MSCAT +C WE NOW KNOW DISTANCE AND AMOUNT OF ENERGY LOSS FOR THIS STEP, +C AND THE ANGLE BY WHICH THE ELECTRON WILL BE SCATTERED. + U0 = U(NP) + V0 = V(NP) + W0 = W(NP) +C NOW TRANSPORT, DEDUCT ENERGY LOSS, DO MULTIPLE SCATTER AND +C DEFLECT IN MAGNETIC FIELD + FNORM = 1.D0-0.5D0*ALPHA**2*(1.D0-0.75D0*ALPHA**2) + F1SIN = (1.D0-FNORM)*SINB + F1COS = (1.D0-FNORM)*COSB + V1 = V0*ALPHA*FNORM + USW = U0*SINB-W0*COSB + U(NP) = U0-F1SIN*USW+V1*SINB + V(NP) = FNORM*(V0-ALPHA*USW) + W(NP) = W0+F1COS*USW-V1*COSB +C MAGNETIC DEFLECTION IS APPROXIMATION, THEREFORE RENORMALIZE U, V, W + RADINV= 1.5D0-0.5D0*(U(NP)**2+V(NP)**2+W(NP)**2) + U(NP) = U(NP)*RADINV + V(NP) = V(NP)*RADINV + W(NP) = W(NP)*RADINV + UMEAN = 0.5D0*(U0+U(NP)) + VMEAN = 0.5D0*(V0+V(NP)) + WMEAN = 0.5D0*(W0+W(NP)) + X(NP) = X(NP) + VSTEP*UMEAN + Y(NP) = Y(NP) + VSTEP*VMEAN + Z(NP) = Z(NP) + VSTEP*WMEAN + IF ( IPASC .EQ. 0 ) THEN +C WE TRANSPORT THE PARTICLE TO END OF IT'S RANGE, NORMAL STEP + W(NP) = MIN( 1.D0, W(NP) ) +C HORIZONTAL COMPONENT OF TRACK LENGTH SQUARED + TRANS2 = (X(NP)-XOLD)**2 + (Y(NP)-YOLD)**2 +C TRANSPORT AT MINIMUM .001 MM + TRANS2 = MAX( TRANS2, 0.00001D0 ) +C NEW COORDINATE FRAME, NEW ACTUAL HEIGHT AT NEW THICKNESS GRADIENT +C (CALCULATED WITH PARAMETERS OF OLD COORDINATE FRAME) + AUXIL = SQRT( TRANS2 + (C(1)-Z(NP))**2 ) + ZNEW = C(1) - AUXIL +C CALCULATE ANGLE DIFFERENCE BETWEEN OLD AND NEW FRAME + SINDIF = SQRT(TRANS2) / AUXIL + COSDIF = (C(1)-Z(NP)) / AUXIL + IF ( FEGSDB ) WRITE(MDEBUG,560) COSDIF,SINDIF,-Z(NP),-ZNEW + COSDIF = MIN( 1.D0, COSDIF ) +C CORRECTED X AND Y HAVE TO BE CALCULATED BEFORE DISTN2 +C TRANSPORT DISTANCE IS CORRECTED TO GET DISTANCE AT EARTH' SURFACE + CORR = C(1)*ASIN(SINDIF)/( (C(1)-ZNEW)*SINDIF ) + X(NP) = XOLD + (X(NP)-XOLD)*CORR + Y(NP) = YOLD + (Y(NP)-YOLD)*CORR + Z(NP) = ZNEW +C NEW DISTANCE FROM PARTICLE TO DETECTOR CENTER + DISTN2 = X(NP)**2 + Y(NP)**2 +C COMPARE NEW AND OLD DISTANCE TO DETECTOR CENTER + IF ( DISTN2 .LT. DISTO2 ) THEN +C PARTICLE MOVES TOWARDS DETECTOR CENTER + SIGNE = +1.D0 + ELSE + SIGNE = -1.D0 + IF ( FEGSDB ) WRITE(MDEBUG,*) 'ELECTR: SIGNE=',SIGNE + ENDIF +C IN FIRST ORDER APPROXIMATION W(NP) AND COSDIF ARE IN THE SAME PLANE +C OF PARTICLE MOVEMENT, THEREFORE THE ANGLES MAY BE ADDED DIRECTLY + COSTHENEW = W(NP)*COSDIF - SIGNE*SINDIF*SQRT(1.D0-W(NP)**2) + W(NP) = MIN( 1.D0, COSTHENEW ) +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) GOTO 420 + IF ( FEGSDB ) THEN + WRITE(MDEBUG,562) WA(NP),-ZAP(NP) + WRITE(MDEBUG,557) U(NP),V(NP),W(NP),X(NP),-Y(NP),-Z(NP) + ENDIF +C CALCULATE ANGLES IN THE NEW FRAME + AUXILSQ = SQRT(X(NP)**2 + Y(NP)**2) + WA(NP) = COS(AUXILSQ/C(1)) + WA(NP) = MIN( 1.D0, WA(NP) ) + ZAP(NP) = -(C(1)-ZNEW) * WA(NP) + C(1) + AUX2SQ = SQRT( (C(1)-ZNEW)**2*(1.D0 - WA(NP)**2) + * + (-ZAP(NP)-OBSLEV(1))**2 ) + WAP(NP) = -(OBSLEV(1)+ZAP(NP)) / AUX2SQ + IF ( FEGSDB ) WRITE(MDEBUG,*) 'ELECTR: WAP=',WAP(NP) +C LOOK WETHER PARTICLE IS ALREADY ON DETECTOR SURFACE +C CUT ON APPARENT HEIGHT + IF ( -ZAP(NP) .LE. OBSLEV(1) ) GOTO 420 + WAP(NP) = MIN( 1.D0, WAP(NP) ) + + IF ( U(NP) .NE. 0.D0 ) THEN + TANPHI= V(NP) / U(NP) + U(NP) = SIGN(1.D0,U(NP)) * + * SQRT((1.D0-W(NP)**2)/(1.D0+TANPHI**2)) + V(NP) = TANPHI * U(NP) + ELSE + IF ( V(NP) .NE. 0.D0 ) + * V(NP) = SIGN(1.D0,V(NP)) * SQRT( 1.D0 - W(NP)**2 ) + ENDIF + ENDIF + TIM(NP) = TIM(NP) + TVSTPC*VCI/SQRT(1.D0-(PRM/E(NP))**2) +C FILL IN CHERENKOV COORDINATES AT END OF STEP + IF ( .NOT. DETSYS ) THEN +C WE ARE NOT IN LOCAL SYSTEM OF DETECTOR + TRANS2 = VSTEP**2 * (UMEAN**2 + VMEAN**2) +C TAKE HEIGHT AT END POINT OF TRACK + AUXIL = SQRT( TRANS2 + (C(1)+(-Z(NP)))**2 ) + SINDIF = SQRT( TRANS2 )/AUXIL + IF ( SINDIF .GT. 0.D0 ) THEN + CORR = C(1) * ASIN(SINDIF) / (AUXIL*SINDIF) + ELSE + CORR = 1.D0 + ENDIF + XEND = XBEG + UMEAN * VSTEP * CORR + YEND = YBEG - VMEAN * VSTEP * CORR +C CALCULATE EARTH ANGLE BETWEEN THE ACTUAL LOCAL AND THE +C APPARENT COORDINATE SYSTEM + AUXIL = SQRT( XBEG**2 + YBEG**2 ) + CTEA = COS( AUXIL/C(1) ) + ELSE +C HERE WE ARE IN LOCAL DETECTOR SYSTEM + XEND = X(NP) + YEND = -Y(NP) + ENDIF + ZEND = -Z(NP) + TEND = TIM(NP) + EEND = (PEIE - EDEP)*1.D-3 +C GENERATE CHERENKOV PHOTONS + IF ( FNPRIM ) CALL CERENK(TVSTPC,UMEAN,-VMEAN,WMEAN,EBEG,EEND, + * XBEG,YBEG,ZBEG,XEND,YEND,ZEND,TBEG,TEND,PRM*1.D-3,1.D0, + * 1.D0,CTEA) +C ADD ELECTRONS TO THE LONGITUDINAL DEVELOPMENT +C FIND FIRST THE EQUIVALENT LEVELS + IF ( LLONGI ) THEN +C IF STARTING POINT BELOW LOWEST LEVEL THEN DON'T CHECK + IF ( HLONG(NSTEP) .LE. -ZOLD ) THEN + LPCT1 = LPCTE(NP) +C Z NEW IS PROBABLY ONLY LITTLE BELOW Z OLD, THEREFORE INCREMENTAL SEARCH + DO I1 = LPCT1,NSTEP + IF ( HLONG(I1) .LT. -Z(NP) ) GOTO 6103 + ENDDO + I1 = NSTEP + 1 + 6103 CONTINUE + LPCT2 = I1 - 1 +C STORE END POINT AS POSSIBLE STARTPOINT OF NEXT TRACK + LPCTE(NP) = LPCT2 + 1 + DO I = LPCT1,LPCT2 + PLONG(I,IQ(NP)) = PLONG(I,IQ(NP)) + 1.D0 + ENDDO + IF ( IDISC .LT. 0 ) + * PLONG(LPCT2+1,IQ(NP)) = PLONG(LPCT2+1,IQ(NP)) + 1.D0 +C TOTAL PATH LENGTH STEPT IN UNITS OF LONGI BINS + THCKHO = THICK(-ZOLD) + THCKHN = THICK(-Z(NP)) + STEPT = (THCKHN - THCKHO)*THSTPI +C RELEASABLE ENERGY [IN GEV] + ERELS = 1.D-3*( E(NP) - DBLE(2*IQ(NP)-5) * PRM ) +C WE ASSUME HOMOGENEOUS ENERGY DEPOSIT ALONG PATH +C IONIZATION E(NERGY) DEP(OSED IN EACH) B(IN) [IN GEV] + IF ( STEPT .GT. 0.D0 ) THEN + EDEPB = EDEP*1.D-3/STEPT + ELSE + EDEPB = 0.D0 + ENDIF +C ENERGY DEPOSIT IN FIRST BIN + EDEP1 = EDEPB * (DBLE(LPCT1) - THCKHO*THSTPI) +C ENERGY AT FIRST BIN BOUNDARY + EFRST = ERELS - EDEP1 + IF ( LPCT2. LT. LPCT1 ) THEN + EDEPN = EDEPB * (THCKHN*THSTPI - DBLE(LPCT1)) + ELSE + EDEPN = MAX( 0.D0, EDEPB*(THCKHN*THSTPI - DBLE(LPCT2)) ) + ENDIF +C NOW FILL FIRST AND LAST+1 BIN, THEN LOOP OVER THE BINS BETWEEN + DLONG(LPCT1 ,2) = DLONG(LPCT1 ,2) + EDEP1 + IF ( LPCT2 .LT. NSTEP ) THEN + DLONG(LPCT2+1,2) = DLONG(LPCT2+1,2) + EDEPN + IF ( IDISC .LT. 0 ) THEN + ELONG(LPCT2+1,IQ(NP)) = ELONG(LPCT2+1,IQ(NP)) + * + MAX( 0.D0, (EFRST-(LPCT2+1-LPCT1)*EDEPB) ) + ENDIF + ENDIF + IF ( LPCT2 .GE. LPCT1 ) THEN + ELONG(LPCT2,IQ(NP)) = ELONG(LPCT2,IQ(NP)) + * + MAX( 0.D0, (EFRST-(LPCT2-LPCT1)*EDEPB) ) + ENDIF +C LOOP OVER ALL LONGITUDINAL BINS + IF ( LPCT2 .GT. LPCT1 ) THEN + DO I = LPCT1,LPCT2-1 + DLONG(I+1,2) = DLONG(I+1,2) + EDEPB + ELONG(I,IQ(NP)) = ELONG(I,IQ(NP)) + * + MAX( 0.D0, (EFRST-(I-LPCT1)*EDEPB) ) + ENDDO + ENDIF +C END LONGITUDINAL DISTRIBUTION FILLING + ENDIF + ENDIF + + DNEAR(NP) = DNEAR(NP)-VSTEP + IROLD = IR(NP) +C NOW ADD ANGLE OF MULTIPLE SCATTERING (SEE ALSO SUBR. UPHI) + CALL RMMAR(RD,1,2) + PHI = RD(1)*TWOPI + SINPHI = SIN(PHI) + COSPHI = COS(PHI) + A = U(NP) + B = V(NP) + CC = W(NP) + SINPS2 = A**2+B**2 + IF ( SINPS2 .LT. 1.D-20 ) THEN + U(NP) = SINTHE*COSPHI + V(NP) = SINTHE*SINPHI + W(NP) = CC*COSTHE + ELSE + SINPSI = SQRT(SINPS2) + US = SINTHE*COSPHI + VS = SINTHE*SINPHI + SINDEL = B*(1.D0/SINPSI) + COSDEL = A*(1.D0/SINPSI) + U(NP) = CC*COSDEL*US-SINDEL*VS+A*COSTHE + V(NP) = CC*SINDEL*US+COSDEL*VS+B*COSTHE + W(NP) = (-SINPSI)*US+CC*COSTHE + ENDIF +C UPDATE ENERGY + PEIE = PEIE-EDEP + E(NP) = PEIE + IF ( PEIE .LE. ECUT(IRL) ) GOTO 390 + MEDOLD = MEDIUM + IF ( MEDIUM .NE. 0 ) THEN +C UPDATE KINETIC ENERGY + EKEOLD = EKE + EKE = PEIE-PRM + ELKE = LOG(EKE) + LELKE = EKE1*ELKE+EKE0 + ENDIF + IF ( IRNEW .NE. IROLD ) THEN +C LAYER HAS CHANGED + IR(NP) = IRNEW + IRL = IRNEW + MEDIUM = MED(IRL) + ENDIF + IF ( PEIE .LE. ECUT(IRL) ) GOTO 390 +C KILL UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) GOTO 420 +C LOOK FOR OBSERVATION LEVEL AND GIVE TO OUTPUT + IF ( NEWOBS .GT. IOBS(NP) ) THEN + CALL AUSGAB + IOBS(NP) = NEWOBS + ENDIF + IF ( IDISC .LT. 0 ) GOTO 420 + IF ( MEDIUM .NE. MEDOLD ) GOTO 401 + DEMFP = MAX( 0.D0, DEMFP-TVSTEP*SIG ) +C SKIP BACK IF STEP LENGTH NOT YET TOTALLY EXHAUSTED + IF ( DEMFP .GE. 1.D-6 ) GOTO 451 +C COMPUTE FINAL SIGMA TO SEE IF RESAMPLE IS NEEDED. +C THIS WILL TAKE THE ENERGY VARIATION OF THE SIGMA INTO +C ACCOUNT USING THE FICTITIOUS SIGMA METHOD. + IF ( LELEC .LT. 0 ) THEN + SIGF = ESIG1(LELKE)*ELKE+ESIG0(LELKE) + ELSE + SIGF = PSIG1(LELKE)*ELKE+PSIG0(LELKE) + ENDIF + CALL RMMAR(RD,1,2) + IF ( RD(1) .GT. SIGF/SIG0 ) GOTO 401 + + IF ( .NOT. FNPRIM ) THEN +C DETERMINE THE ALTITUDE OF THE FIRST INTERACTION + IF ( .NOT. TMARGIN ) THEN + X(1) = 0.D0 + Y(1) = 0.D0 + ENDIF + IF ( FIX1I ) THEN +C IF HEIGHT OF FIRST INTERACTION IS FIXED, TAKE STARTING ANGLES OF +C PRIMARY PARTICLE + Z(1) = -FIXHEI + NP = 1 + LPCTE(1) = MIN(NSTEP,INT(THICK(FIXHEI)*THSTPI)+1) + SITHET = SQRT(1.D0-SECPAR(3)**2) + U(1) = SITHET*COS(-SECPAR(4)) + V(1) = SITHET*SIN(-SECPAR(4)) + W(1) = SECPAR(3) + ENDIF + EVTH(6) = 0. + IF ( TMARGIN ) THEN +C NEGATIVE FIRST INTERACTION HEIGHT,IF TRACKING STARTS AT ATMOS. MARGIN + EVTH(7) = Z(1) + ELSE + EVTH(7) = -Z(1) + ENDIF + CALL TOBUF(EVTH,0) +C OUTPUT OF EVENTHEADER TO THE CHERENKOV FILE + IF ( LCERFI ) CALL TOBUFC( EVTH,0 ) + CALL CORNEC + TIM(1) = 0.D0 + FNPRIM = .TRUE. + IF ( FPRINT ) THEN + WRITE(KMPO,*) ' FIRST INTERACTION AT ',ABS(EVTH(7)*0.01),' M' + ENDIF + ENDIF + +C NOW SAMPLE ELECTRON INTERACTION, LOOK FOR BRANCHING RATIOS + IF ( LELEC .LT. 0 ) THEN + EBR1 = EBR11(LELKE)*ELKE+EBR10(LELKE) + CALL RMMAR(RD,1,2) + IF ( RD(1) .LE. EBR1 ) THEN +C MAKE BREMSSTRAHLUNG + GOTO 500 + ELSE + IF ( E(NP) .LE. THMOLL ) THEN + IF ( EBR1 .LE. 0.D0 ) GOTO 380 + GOTO 500 + ENDIF +C MOLLER SCATTERING + CALL MOLLER + ENDIF +C ELECTRON IS LOWEST ENERGY - FOLLOW IT + GOTO 380 + ENDIF + + PBR1 = PBR11(LELKE)*ELKE+PBR10(LELKE) + CALL RMMAR(RD,1,2) + IF ( RD(1) .LT. PBR1 ) THEN +C BREMSSTRAHLUNG + GOTO 500 + ENDIF + PBR2 = PBR21(LELKE)*ELKE+PBR20(LELKE) + IF ( RD(1) .LT. PBR2 ) THEN +C BHABHA SCATTERING + CALL BHABHA + ELSE +C ANNIHILATION + CALL ANNIH + RETURN + ENDIF + GOTO 380 + + 500 CONTINUE +C BREMSSTRAHLUNG + CALL BREMS + IF ( IQ(NP) .EQ. 1 ) THEN +C PHOTON ON TOP OF STACK + RETURN + ELSE +C ELECTRON ON TOP OF STACK + GOTO 380 + ENDIF + +C ENERGY DEPOSIT FOR ELECTRON BELOW CUT + 390 IF ( PEIE .GT. AE ) THEN + IDR = 1 + IF ( LELEC .LT. 0 ) THEN + EDEP = PEIE-PRM + ELSE + EDEP = PEIE-PRM + ENDIF + ELSE + IDR = 2 + EDEP = PEIE-PRM + ENDIF + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS + DLONG(LPCTE(NP),3) = DLONG(LPCTE(NP),3) + EDEP*1.D-3 + ENDIF + IF ( LELEC .GT. 0 ) THEN +C IT'S A POSITRON. PRODUCE ANNIHILATION GAMMAS IF EDEP < PEI + IF ( EDEP .LT. PEIE ) THEN + CALL RMMAR(RD,2,2) + COSTHE = RD(1) + FLIP = RD(2) + IF ( FLIP .LE. 0.5D0 ) COSTHE = -COSTHE + SINTHE = SQRT( MAX( 0.D0, 1.0-COSTHE**2 ) ) + E(NP) = PRM + IQ(NP) = 1 + U(NP) = 0.D0 + V(NP) = 0.D0 + W(NP) = 1.D0 +C UPHI WILL PICK RANDOM AZIMUTHAL ANGLE + CALL UPHI(2,1) + NP = NP+1 + E(NP) = PRM + IQ(NP) = 1 + X(NP) = X(NP-1) + Y(NP) = Y(NP-1) + Z(NP) = Z(NP-1) + LPCTE(NP) = LPCTE(NP-1) + IR(NP) = IR(NP-1) + DNEAR(NP) = DNEAR(NP-1) + TIM(NP) = TIM(NP-1) + IGEN(NP) = IGEN(NP-1) + IOBS(NP) = IOBS(NP-1) +C SECOND GAMMA IN OPPOSITE DIRECTION + U(NP) = -U(NP-1) + V(NP) = -V(NP-1) + W(NP) = -W(NP-1) + ZAP(NP)= ZAP(NP-1) + WAP(NP)= WAP(NP-1) + WA(NP) = WA(NP-1) + RETURN + ENDIF + ENDIF + NP = NP-1 + IRCODE = 2 + RETURN + +C ELECTRON IS ELEMINATED BECAUSE OF CUT + 420 IF ( LELEC .LT. 0 ) THEN + EDEP = PEIE-PRM + ELSE + EDEP = PEIE+PRM + ENDIF + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS + DLONG(LPCTE(NP),3) = DLONG(LPCTE(NP),3) + EDEP*1.D-3 + ENDIF + IRCODE = 2 + NP = NP-1 + RETURN + END +*CMZ : 12/10/2001 14.53.55 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE HATCH +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C HATCH (THE CROSS-SECTION FILE) +C +C SETUP WHICH THE USER IS EXPECTED TO DO BEFORE CALLING HATCH IS: +C 1. SET 'NMED' TO THE NUMBER OF MEDIA TO BE USED. +C 2. SET THE ARRAY 'MEDIA', WHICH CONTAINS THE NAMES OF THE +C MEDIA THAT ARE DESIRED. THE CHARACTER FORMAT IS A1, SO +C THAT MEDIA(IB,IM) CONTAINS THE IB'TH BYTE OF THE NAME OF +C THE IM'TH MEDIUM IN A1 FORMAT. +C 3. SET 'DUNIT', THE DISTANCE UNIT TO BE USED. +C DUNIT.GT.0 MEANS VALUE OF DUNIT IS LENGTH OF DISTANCE UNIT +C CENTIMETERS. DUNIT.LT.0 MEANS USE THE RADIATION LENGTH OF +C THE ABS(DUNIT)'TH MEDIUM FOR THE DISTANCE UNIT. +C 4. FILL THE ARRAY 'MED' WITH THE MEDIUM INDICES FOR THE +C REGIONS. +C 5. FILL ARRAYS 'ECUT' AND 'PCUT' WITH THE ELECTRON AND PHOTON +C CUT-OFF ENERGIES FOR EACH REGION RESPECTIVELY. SETUP WILL +C RAISE THESE IF NECESSARY TO MAKE THEM AT LEAST AS LARGE AS +C THE REGION'S MEDIUM'S AE AND AP RESPECTIVELY. +C 6. FILL 'MED' ARRAY. MED(IR) IS THE MEDIUM INDEX FOR REGION +C IR. A ZERO MEDIUM INDEX MEANS THE REGION IS IN A VACUUM. +C 7. FILL THE ARRAY 'IRAYLR' WITH 1 FOR EACH REGION IN WHICH +C RAYLEIGH (COHERENT) SCATTERING IS TO BE INCLUDED. +C THIS SUBROUTINE IS CALLED FROM EGSINI. +C----------------------------------------------------------------------- + + IMPLICIT NONE + COMMON /BOUNDS/ ECUT,PCUT,VACDST + DOUBLE PRECISION ECUT(6),PCUT(6),VACDST + COMMON /BREMPR/ PWR2I,DL1,DL2,DL3,DL4,DL5,DL6,DELCM,ALPHI,BPAR, + * DELPOS + DOUBLE PRECISION PWR2I(60) + REAL DL1(6),DL2(6),DL3(6),DL4(6),DL5(6),DL6(6), + * DELCM,ALPHI(2),BPAR(2),DELPOS(2) + COMMON /ELECIN/ EKE0,EKE1,XR0,TEFF0,BLCC,XCC,ESIG0,ESIG1,PSIG0, + * PSIG1,EDEDX0,EDEDX1,PDEDX0,PDEDX1,EBR10,EBR11, + * PBR10,PBR11,PBR20,PBR21,TMXS0,TMXS1,ERANG0, + * ERANG1,PRANG0,PRANG1,STERNCOR + REAL EKE0,EKE1,XR0,TEFF0,BLCC,XCC, + * ESIG0(500),ESIG1(500),PSIG0(500),PSIG1(500), + * EDEDX0(500),EDEDX1(500),PDEDX0(500),PDEDX1(500), + * EBR10(500),EBR11(500),PBR10(500),PBR11(500), + * PBR20(500),PBR21(500),TMXS0(500),TMXS1(500), + * ERANG0(1),ERANG1(1),PRANG0(1),PRANG1(1),STERNCOR + COMMON /MEDIA/ RLDU,RLDUI,RHO,RLC,NMED,MSGE,MGE,MSEKE,MEKE, + * MLEKE,MCMFP,MRANGE,IRAYLM + DOUBLE PRECISION RLDU,RLDUI + REAL RHO,RLC + INTEGER NMED,MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE, + * IRAYLM + COMMON /MEDIAC/ MEDIA + CHARACTER MEDIA*24 + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) + COMMON /PHOTIN/ EBINDA,GE0,GE1,GMFP0,GMFP1,GBR10,GBR11, + * GBR20,GBR21,GBR30,GBR31,GBR40,GBR41, + * RCO0,RCO1,RSCT0,RSCT1,COHE0,COHE1,MPGEM,NGR + REAL EBINDA,GE0,GE1,GMFP0(500),GMFP1(500), + * GBR10(500),GBR11(500),GBR20(500),GBR21(500), + * GBR30(500),GBR31(500),GBR40(500),GBR41(500), + * RCO0,RCO1,RSCT0(100),RSCT1(100),COHE0(500), + * COHE1(500) + INTEGER MPGEM(1),NGR +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION DFACT,DFACTI,DUNITR,DUNITO,P + INTEGER I,IB,IE,IL,IM,IRAYL,I1ST,JR,LMDL,LMDN,LOK,MD, + * NCMFP,NE,NEKE,NGE,NGRIM,NLEKE,NM,NRANGE, + * NSEKE,NSGE + CHARACTER MBUF*72,MDLABL*8 + SAVE + DATA MDLABL/' MEDIUM='/,LMDL/8/,LMDN/24/,DUNITO/1.D0/ + DATA I1ST/1/ +C----------------------------------------------------------------------- + + 510 FORMAT(1X,14I5) + 520 FORMAT(1X,1P,5E14.5) + 530 FORMAT(A72) + IF ( I1ST .NE. 0 ) THEN + I1ST = 0 +C NOW FILL IN POWER OF TWO TABLE. PWR2I(I)=1/2**(I-1) + P = 1.D0 + DO 651 I = 1,60 + PWR2I(I) = P + P = P*.5D0 + 651 CONTINUE + ENDIF + +C FILL IRAYLM ARRAY BASED ON IRAYLR INPUTS + DO 661 IM = 1,NMED + 670 CONTINUE + DO 671 I = 1,6 + IF ( IRAYLR(I).EQ.1 .AND. MED(I).EQ.IM ) THEN +C REGION I = MEDIUM IM AND WE WANT RAYLEIGH SCATTERING, SO +C SET FLAG TO PICK UP DATA FOR MEDIUM IM AND TRY NEXT MEDIUM. + IRAYLM = 1 + GOTO 672 + ENDIF + 671 CONTINUE + 672 CONTINUE + 661 CONTINUE +C NOW SEARCH FILE FOR DATA FOR REQUESTED MATERIALS + REWIND KMPI + NM = 0 + DO 681 IM = 1,NMED + LOK = 0 + IF ( IRAYLM .EQ. 1 ) THEN + WRITE(KMPO,690) IM + 690 FORMAT(' RAYLEIGH OPTION REQUESTED FOR MEDIUM NUMBER',I3,/) + ENDIF + 681 CONTINUE + + 701 CONTINUE +C MEDIUM HEADER SEARCH LOOP, FIRST LOOK FOR MEDIUM HEADER + READ(KMPI,530,END=720) MBUF + DO 731 IB = 1,LMDL + IF ( MBUF(IB:IB) .NE. MDLABL(IB:IB) ) GOTO 701 + 731 CONTINUE +C HEADER MATCHES. NOW SEE IF IT IS ONE OF REQUESTED MEDIA + DO 741 IM = 1,NMED + DO 751 IB = 1,LMDN + IL = LMDL+IB + IF ( MBUF(IL:IL) .NE. MEDIA(IB:IB) ) GOTO 741 + IF ( IB .EQ. LMDN ) GOTO 712 + 751 CONTINUE + 741 CONTINUE + GOTO 701 + 712 CONTINUE + +C 'IM' IS THE INDEX OF THE MEDIUM READY TO BE READ + IF ( LOK .NE. 0 ) GOTO 701 + LOK = 1 + NM = NM+1 +C NOW READY TO READ IN DATA FOR THIS MEDIUM + WRITE(KMPO,760) IM,MBUF + 760 FORMAT(' DATA FOR MEDIUM #',I3,', WHICH IS:',A72) + READ(KMPI,770) (MBUF(I:I),I=1,5),RHO,NE + 770 FORMAT(5A1,5X,F11.0,4X,I2) + WRITE(KMPO,780) (MBUF(I:I),I=1,5),RHO,NE + 780 FORMAT(5A1,',RHO=',1P,G11.4, ',NE=',I2,',COMPOSITION IS :') + DO 791 IE = 1,NE + READ(KMPI,530) MBUF + WRITE(KMPO,530) MBUF + 791 CONTINUE +C MEDIA AND THRESH + READ(KMPI,520)RLC,AE,AP,UE,UP + TE = AE-PRM + THMOLL = TE*2.D0 + PRM +C ACTUAL ARRAY SIZES FROM PEGS + READ(KMPI,510)MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE,IRAYL + NSGE = MSGE + NGE = MGE + NSEKE = MSEKE + NEKE = MEKE + NLEKE = MLEKE + NCMFP = MCMFP + NRANGE = MRANGE +C BREMPR + READ(KMPI,520) (DL1(I),DL2(I),DL3(I),DL4(I),DL5(I),DL6(I),I=1,6) + READ(KMPI,520) DELCM,(ALPHI(I),BPAR(I),DELPOS(I),I=1,2) +C ELECIN + READ(KMPI,520) XR0,TEFF0,BLCC,XCC + READ(KMPI,520) EKE0,EKE1 + READ(KMPI,520) (ESIG0(I),ESIG1(I),PSIG0(I),PSIG1(I),EDEDX0(I), + * EDEDX1(I),PDEDX0(I),PDEDX1(I),EBR10(I),EBR11(I),PBR10(I), + * PBR11(I),PBR20(I),PBR21(I),TMXS0(I),TMXS1(I),I=1,NEKE) +C PHOTIN + READ(KMPI,520) EBINDA,GE0,GE1 + READ(KMPI,520) (GMFP0(I),GMFP1(I),GBR10(I),GBR11(I),GBR20(I), + * GBR21(I),GBR30(I),GBR31(I),GBR40(I),GBR41(I),I=1,NGE) + IF ( IRAYLM.EQ.1 .AND. IRAYL.NE.1 ) THEN + WRITE(KMPO,800) IM + 800 FORMAT(' STOPPED IN HATCH: REQUESTED RAYLEIGH OPTION FOR MEDIUM' + * ,I3/ ' BUT RAYLEIGH DATA NOT INCLUDED IN DATA CREATED BY PEGS.') + STOP + ENDIF + IF ( IRAYL .EQ. 1 ) THEN + READ(KMPI,510) NGR + NGRIM = NGR + READ(KMPI,520) RCO0,RCO1 + READ(KMPI,520) (RSCT0(I),RSCT1(I),I=1,NGRIM) + READ(KMPI,520) (COHE0(I),COHE1(I),I=1,NGE) + IF ( IRAYLM .NE. 1 ) THEN + WRITE(KMPO,810) IM + 810 FORMAT(' RAYLEIGH DATA AVAILABLE FOR MEDIUM',I3,' BUT OPTION', + * ' NOT REQUESTED.',/) + ENDIF + ENDIF +C THAT'S ALL FOR THIS MEDIUM + IF ( NM .LT. NMED ) GOTO 701 + +C WE NOW HAVE DATA FOR ALL MEDIA REQUESTED. NOW DO DISTANCE UNIT +C CHANGE. DATA FROM PEGS IS IN UNITS OF RADIATION LENGTHS. EGS IS +C RUN IN UNITS OF 'DUNIT' CENTIMETERS, IF DUNIT.GT.0 OR IN UNITS OF +C RLC(-DUNIT) CENTIMETERS IF DUNIT.LT.0. THAT IS, A NEGATIVE DUNIT +C MEANS UNIT IS TO BE THE RADIATION LENGTH OF THE MEDIUM WHOSE INDEX +C IS -DUNIT + DUNITR = DUNIT + IF ( DUNIT .LT. 0.D0 ) THEN + MD = MAX(1,MIN(1,INT(-DUNIT))) + DUNIT = RLC + ENDIF + IF ( DUNIT .NE. 1.D0 ) THEN + WRITE(KMPO,820) DUNITR,DUNIT + 820 FORMAT(' DUNIT REQUESTED&USED ARE:',1P,2E14.5,'(CM.)') + ENDIF + DO 831 IM = 1,NMED +C CONVERTS RADIATION LENGTH TO DUNITS + DFACT = RLC/DUNIT +C CONVERTS (RADIATION LENGTH)**-1 TO DUNITS**-1 + DFACTI = 1.D0/DFACT + I = 1 + GOTO 843 + 841 I = I+1 + 843 IF ( I-(MEKE) .GT. 0 ) GOTO 842 + ESIG0(I) = ESIG0(I)*DFACTI + ESIG1(I) = ESIG1(I)*DFACTI + PSIG0(I) = PSIG0(I)*DFACTI + PSIG1(I) = PSIG1(I)*DFACTI + EDEDX0(I) = EDEDX0(I)*DFACTI + EDEDX1(I) = EDEDX1(I)*DFACTI + PDEDX0(I) = PDEDX0(I)*DFACTI + PDEDX1(I) = PDEDX1(I)*DFACTI + TMXS0(I) = TMXS0(I)*DFACT + TMXS1(I) = TMXS1(I)*DFACT + GOTO 841 + 842 CONTINUE + I = 1 + GOTO 853 + 851 I = I+1 + 853 IF ( I-(MLEKE) .GT. 0 ) GOTO 852 + ERANG0(I) = ERANG0(I)*DFACT + ERANG1(I) = ERANG1(I)*DFACT + PRANG0(I) = PRANG0(I)*DFACT + PRANG1(I) = PRANG1(I)*DFACT + GOTO 851 + 852 CONTINUE + TEFF0 = TEFF0*DFACT + BLCC = BLCC*DFACTI + XCC = XCC*SQRT(DFACTI) + RLDU = RLC/DUNIT + RLDUI = 1.D0/RLDU + I = 1 + GOTO 863 + 861 I = I+1 + 863 IF ( I-(MGE) .GT. 0 ) GOTO 862 + GMFP0(I) = GMFP0(I)*DFACT + GMFP1(I) = GMFP1(I)*DFACT + GOTO 861 + 862 CONTINUE + 831 CONTINUE +C SCALE VACDST. UNDO PREVIOUS SCALE, THEN DO NEW. + VACDST = VACDST*DUNITO/DUNIT +C SAVE OLD DUNIT + DUNITO = DUNIT + +C NOW MAKE SURE ECUT AND PCUT ARE NOT LOWER THAN ANY AE OR AP +C ALSO SET DEFAULT DENSITIES + DO 871 JR = 1,6 + MD = MED(JR) + IF ( (MD .GE. 1) .AND. (MD .LE. NMED) ) THEN + ECUT(JR) = MAX(ECUT(JR),DBLE(AE),DBLE(AP+1.1D0*PRM)) + PCUT(JR) = MAX(PCUT(JR),DBLE(AP)) +C USE STANDARD DENSITY FOR REGIONS NOT SPECIALLY SET UP + IF ( RHOR(JR) .EQ. 0.D0 ) RHOR(JR)=RHO + ENDIF + 871 CONTINUE +C SETUP IS NOW COMPLETE + + IF ( NMED .EQ. 1 ) THEN + WRITE(KMPO,880) + 880 FORMAT(' EGS SUCCESSFULLY ''HATCHED'' FOR ONE MEDIUM.') + ELSE + WRITE(KMPO,890) NMED + 890 FORMAT(' EGS SUCCESSFULLY ''HATCHED'' FOR ',I5,' MEDIA.') + ENDIF + RETURN + 720 WRITE(KMPO,900) KMPI + 900 FORMAT(' END OF FILE ON UNIT ',I2,//,' PROGRAM STOPPED IN HATCH', + * ' BECAUSE THE'/ ' FOLLOWING NAMES WERE NOT RECOGNIZED:',/) + DO 911 IM = 1,NMED + IF ( LOK .NE. 1 ) THEN + WRITE(KMPO,920) (MEDIA(I:I),I=1,LMDN) + 920 FORMAT(40X,'''',24A1,'''') + ENDIF + 911 CONTINUE + STOP + END +*CMZ : 18/09/2001 09.00.42 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE HOWFAR + +C----------------------------------------------------------------------- +C HOW FAR (COMES THE PARTICLE) + +C THE FOLLOWING IS A GENERAL SPECIFICATION OF HOWFAR: +C GIVEN A PARTICLE AT (X,Y,Z) IN REGION IR AND GOING IN DIRECTION +C (U,V,W), THIS ROUTINE ANSWERS THE QUESTION, CAN THE PARTICLE GO +C A DISTANCE USTEP WITHOUT CROSSING A BOUNDARY OR OBSERVATION LEVEL? +C IF YES, IT CALCULATES DNEAR AND RETURNS. +C IF NO, IT SETS USTEP=DISTANCE TO BOUNDARY OR DETECTOR IN +C IN THE CURRENT DIRECTION. +C IT SETS IRNEW TO THE REGION NUMBER ON THE FAR SIDE +C OF THE BOUNDARY (THIS CAN BE MESSY IN GENERAL!); +C IT SETS NEWOBS TO THE DETECTOR NUMBER NEXT AFTER THE +C DETECTOR JUST PASSING. +C THE USER CAN TERMINATE A HISTORY BY SETTING IDISC>0. +C HERE WE TERMINATE ALL PARTICLES GOING UPWARD OR HORIZONTALLY. +C THE USER CAN TRANSPORT AND TERMINATE THE LAST PARTICLE BY SETTING +C IDISC<0. HERE WE TRANSPORT AND TERMINATE ALL PARTICLES WHICH ENTER +C REGION 6 OR HAVE PASSED THE LAST OBSERVATION LEVEL. +C********************************************************************* +C ELECTRON OR PHOTON POSITIVE Z-DIRECTION (W>0) IS DOWNWARDS +C | +C | REGION 1 (VACUUM) +C V +C--------------------------- STARTING PLANE AT -BOUND(1) = -ZALTIT +C +C REGION 2 (AIR WITH EXPONENTIALLY +C INCREASING DENSITY) +C +C--------------------------- BOUNDARY AT -BOUND(2) +C +C REGION 3 (AIR WITH EXPONENTIALLY +C INCREASING DENSITY) +C +C--------------------------- BOUNDARY AT -BOUND(3) +C +C REGION 4 (AIR WITH EXPONENTIALLY +C INCREASING DENSITY) +C +C--------------------------- BOUNDARY AT -BOUND(4) +C +C REGION 5 (AIR WITH EXPONENTIALLY +C INCREASING DENSITY) +C +C--------------------------- BOUNDARY AT -BOUND(5) (SEA LEVEL) +C////////////|///////// +C////////////|///////// REGION 6 (VACUUM) +C////////////V///////// +C ELECTRON OR PHOTON +C--------------------------- BOUNDARY AT -BOUND(6) +C +C********************************************************************* +C THIS SUBROUTINE IS CALLED FROM ELECTR AND PHOTON. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,EPCONT. + COMMON /EPCONT/ EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW,EKE,ELKE,BETA2,GLE,TSCAT, + * IDISC,IROLD,IRNEW + DOUBLE PRECISION EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW, EKE,ELKE,BETA2,GLE,TSCAT + INTEGER IDISC,IROLD,IRNEW + +*KEND. + COMMON /GEOMEGS/ ZALTIT,BOUND,OBSLVL,NEWOBS + DOUBLE PRECISION ZALTIT,BOUND(6),OBSLVL(10) + INTEGER NEWOBS +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + + DOUBLE PRECISION TVAL + INTEGER IRL,NOBS + DOUBLE PRECISION AUXIL,BOUNDC,CAP,CEARTH,OBSGLOB, + * RADHOR,STEPMX,S2B,THICK + INTEGER IBFLAG + EXTERNAL THICK + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' HOWFAR: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + IF ( IR(NP).GT.1 .AND. IR(NP).LT.6 ) THEN +C WE ARE IN THE ATMOSPHERE - CHECK THE GEOMETRY + IRL = IR(NP) +C GOING FORWARD - CONSIDER FIRST SINCE MOST FREQUENT + NOBS = IOBS(NP) + IF ( W(NP) .GT. C(29) ) THEN +C WE ARE GOING DOWNWARD +C STEPMX IS MAX HORIZONTAL STEP, BEFORE TRANSITION TO NEXT LOCAL +C COORDINATE FRAME MUST BE PERFORMED + RADHOR = MAX( U(NP)**2 + V(NP)**2, 0.001D0 ) + AUXIL = C(4) * THICK(-Z(NP)) + C(3) + STEPMX = AUXIL / SQRT(RADHOR) +C JUST SHORTEN USTEP + IF ( STEPMX .LT. USTEP ) USTEP = STEPMX +C TVAL IS DISTANCE TO NEXT BOUNDARY OR OBSERVATION LEVEL IN THIS +C DIRECTION. INTRODUCE 'GLOBAL OBSERVATION LEVEL' +C (IN CURVED VERSION JUST ONE OBSERVATION LEVEL) + CEARTH = COS( SQRT( X(NP)**2 + Y(NP)**2 )/C(1) ) + OBSGLOB = ( C(1) + OBSLEV(1) ) / CEARTH - C(1) + CAP = W(NP)*CEARTH-SQRT((1.D0-W(NP))*(1.D0-CEARTH)) +C CALCULATE REAL STEP LENGHT TO NEXT BOUNDARY S2B +C (DUE TO TRANSFORMING INTO NEW LOCAL FRAME AT THIS POINT) + IF ( (BOUND(IRL)+C(1))**2 .GE. + * (C(1)-Z(NP))**2*(1.D0-W(NP)**2) ) THEN + S2B = (C(1)-Z(NP))*W(NP) - SQRT( (BOUND(IRL)+C(1))**2 + * - (C(1)-Z(NP))**2 * (1.D0-W(NP)**2) ) + TVAL = MIN( S2B, (-Z(NP)-OBSGLOB)/W(NP) ) + IBFLAG = 0 + ELSE +C PARTICLE WITH THIS ZENITH ANGLE AND HEIGHT WILL NEVER REACH THE +C BOUNDARY (SPHERE AROUND EARTH), BUT IT MAY REACH THE GLOBAL OBSLEV +C (LINE IN DETECTOR SYSTEM). DON'T CUT AT THIS STAGE. + IBFLAG = 1 + IF ( CAP .GT. 0.D0 ) THEN + TVAL = (-Z(NP)-OBSGLOB)/W(NP) + ELSE + TVAL = USTEP + 1.D0 + ENDIF + ENDIF + IF ( TVAL .GT. USTEP ) THEN +C CAN TAKE CURRENTLY REQUESTED STEP. DNEAR HAS TO BE DISTANCE TO NEXT +C BOUNDARY OR OBSLEV. KEEP DNEAR SMALL => CHECK CROSSING OF LAYER +C BOUNDARY MORE OFTEN + IF ( IBFLAG .NE. 0 ) THEN + DNEAR(NP) = USTEP*W(NP) + ELSE + DNEAR(NP) = TVAL*W(NP) + ENDIF + ELSE +C GO TO DETECTOR OR BOUNDARY, WHICH IS CLOSER + USTEP = MAX(TVAL,0.0001D0) +C CALCULATE THE RIGHT BOUND BOUNDC CONSIDERING THE TRANSFORMATION IN +C A NEW LOCAL FRAME + IF ( IBFLAG .NE. 0 ) THEN +C IF S2B IS NOT DEFINED , BOUNDC IS NOT REACHED. IN THIS CASE BOUNDC +C WILL NEVER BEEN REACHED + BOUNDC = -9999999.9999D0 + ELSE + BOUNDC = -Z(NP) - S2B*W(NP) + ENDIF + IF ( BOUNDC .GE. OBSGLOB ) THEN +C PARTICLE CROSSES BOUNDARY + IRNEW = IRL+1 +C PARTICLE LEAVES AIR + IF ( IRNEW .GE. 6 ) IDISC = -1 + ENDIF + IF ( BOUNDC .LE. OBSGLOB ) THEN +C PARTICLE CROSSES DETECTOR + NEWOBS = NOBS + 1 +C MAKE A VERY SMALL STEP TO AVOID HANGUP OF PROGRAM + IF ( USTEP .LE. 0.D0 ) USTEP = 0.0001D0 +C TRANSPORT PARTICLE TO FINAL DETECTOR LEVEL AND DISCARD IT + IF ( NEWOBS .GT. NOBSLV ) IDISC = -1 + ENDIF + ENDIF +C END OF 'PARTICLE GOING DOWNWARD' + + ELSE +C GOING UPWARD IN ATMOSPHERE OR MOVING HORIZONTALLY +C DISCARD PARTICLE + IDISC = 1 + RETURN + ENDIF +C END OF ATMOSPHERE REGION CASE + + ELSEIF ( IR(NP) .EQ. 6 ) THEN +C TERMINATE THIS HISTORY, IT IS PAST THE ATMOSPHERE + IDISC = 1 +C WE ARE IN THE REGION WITH SOURCE ABOVE AIR + ELSEIF ( IR(NP) .EQ. 1 ) THEN + IF ( W(NP) .GT. C(29) ) THEN +C IT MUST BE A SOURCE PARTICLE ON BOUNDARY 1 + USTEP = 0.0001D0 + IRNEW = 2 + ELSE +C IT IS A REFLECTED PARTICLE, DISCARD IT + IDISC = 1 + ENDIF +C END REGION 1 CASE + ENDIF + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE MOLLER +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C MOLLER (SCATTERING) +C +C DISCRETE MOLLER SCATTERING (A CALL TO THIS ROUTINE) HAS BEEN +C ARBITRARILY DEFINED AND CALCULATED TO MEAN MOLLER SCATTERINGS +C WHICH IMPART TO THE SECONDARY ELECTRON SUFFICIENT ENERGY THAT +C IT BE TRANSPORTED DISCRETELY. THE THRESHOLD TO TRANSPORT AN +C ELECTRON DISCRETELY IS A TOTAL ENERGY OF AE OR A KINETIC ENERGY +C OF TE=AE-PRM. SINCE THE KINETIC ENERGY TRANSFER IS ALWAYS, BY +C DEFINITION, LESS THAN HALF OF THE INCIDENT KINETIC ENERGY, THIS +C IMPLIES THAT THE INCIDENT ENERGY, EIE, MUST BE LARGER THAN +C THMOLL=TE*2+PRM. THE REST OF THE COLLISION CONTRIBUTION IS +C SUBTRACTED CONTINUOUSLY FROM THE ELECTRON AS IONIZATION +C LOSS DURING TRANSPORT. +C THIS SUBROUTINE IS CALLED FROM ELECTR. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + +* DOUBLE PRECISION AUXIL,BETAI2,BR,EP0,E0,E02,EXTRAE,DCOSTH,G1,G2, + DOUBLE PRECISION AUXIL,BR,EP0,E0,E02,EXTRAE,DCOSTH,GMAX,G2, + * G3,H1,PEIE,PEKIN,PEKINI,PEKSE2,PESE1,PESE2, + * R,REJF4,T0 + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' MOLLER: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + PEIE = E(NP) + PEKIN = PEIE-PRM + PEKINI = 1.D0/PEKIN + T0 = PEKIN*RMI + E0 = T0+1.D0 + EXTRAE = PEIE - THMOLL + E02 = E0**2 +* BETAI2 = E02/(E02-1.0) +C CORRECTED 18.12.98 + EP0 = TE*PEKINI +* G1 = (1.D0-2.D0*EP0)*BETAI2 + G2 = T0**2*(1.D0/E02) + G3 = (2.D0*T0+1.D0)*(1.D0/E02) + GMAX = (1.D0+1.25D0*G2) + +C H.H.NAGEL HAS CONSTRUCTED A FACTORIZATION OF THE FREQUENCY DISTRI- +C BUTION FUNCTION FOR THE MOLLER DIFFERENTIAL CROSS-SECTION USED AS +C SUGGESTED BY BUTCHER AND MESSEL. (H.H.NAGEL, OP.CIT., P. 53-55) +C HOWEVER, A MUCH SIMPLER SAMPLING METHOD WHICH DOES NOT BECOME VERY +C INEFFICIENT NEAR THMOLL IS THE FOLLOWING: LET BR=EKS/EKIN, WHERE +C EKS IS KINETIC ENERGY TRANSFERED TO THE SECONDARY ELECTRON AND EKIN +C IS THE INCIDENT KINETIC ENERGY. +C MODIFIED (7 FEB 1974) TO USE THE TRUE MOLLER CROSS-SECTION. THAT IS, +C INSTEAD OF THE E+ E- AVERAGE GIVEN IN ROSSI FORMULA USED BY NAGEL. +C THE SAMPLING SCHEME IS THAT USED BY MESSEL AND CRAWFORD +C (EPSDF 1970 P.13) FIRST SAMPLE (1/BR**2) OVER (TE/EKIN,1/2) . + 931 CONTINUE + CALL RMMAR(RD,2,2) + AUXIL = (PEKIN-EXTRAE*RD(1)) + IF ( AUXIL .EQ. 0.D0 ) GOTO 931 + BR = TE/AUXIL +C USE MESSEL AND CRAWFORDS REJECTION FUNCTION. + R = BR/(1.D0-BR) +* REJF4 = G1*(1.D0+G2*BR*BR+R*(R-G3)) +* IF ( RD(2) .GT. REJF4 ) GOTO 931 +C CORRECTED 18.12.98 + REJF4 = (1.D0+G2*BR**2+R*(R-G3)) + IF ( RD(2)*GMAX .GT. REJF4 ) GOTO 931 + PEKSE2 = BR*PEKIN + PESE1 = PEIE-PEKSE2 + PESE2 = PEKSE2+PRM + E(NP) = PESE1 +C SINCE BR.LE.0.5, E(NP+1) MUST BE .LE. E(NP) + E(NP+1)= PESE2 + H1 = (PEIE+PRM)*PEKINI +C MOLLER ANGLES ARE UNIQUELY DETERMINED BY KINEMATICS + DCOSTH = MIN( 1.D0, H1*(PESE1-PRM)/(PESE1+PRM) ) +C DIRECTION COSINE CHANGE FOR 'OLD' ELECTRON + SINTHE = SQRT(1.D0-DCOSTH) + COSTHE = SQRT(DCOSTH) + CALL UPHI(2,1) +C RELATED CHANGE AND (X,Y,Z) SETUP FOR 'NEW' ELECTRON + NP = NP+1 + IQ(NP) = 3 + DCOSTH = MIN( 1.D0, H1*(PESE2-PRM)/(PESE2+PRM) ) + SINTHE =-SQRT(1.D0-DCOSTH) + COSTHE = SQRT(DCOSTH) + CALL UPHI(3,2) + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE MPPROP + +C----------------------------------------------------------------------- +C M(UON) P(ION) PROP(AGATION) +C +C MOVES MUONS AND PIONS FROM EGS-STACK TO CORSIKA-STACK. +C THIS SUBROUTINE IS CALLED FROM SHOWER. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEND. + COMMON /MUON/ PRRMMU,RMMUT2 + DOUBLE PRECISION PRRMMU,RMMUT2 +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PION/ PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT + DOUBLE PRECISION PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + + DOUBLE PRECISION AMASS,ANGLEX,CUT + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' MPPROP: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + +C SET MASS AND CUT PARAMETER OF PARTICLE UNDER CONSIDERATION + IF ( IQ(NP) .LT. 7 ) THEN + AMASS = PRRMMU + CUT = ELCUT(2)*1000.D0 + ELSEIF ( IQ(NP) .EQ. 7 ) THEN + AMASS = PI0MAS + CUT = ELCUT(1)*1000.D0 + POLART = 1.D0 + POLARF = 0.D0 + ELSE + AMASS = PICMAS + CUT = ELCUT(1)*1000.D0 + POLART = 1.D0 + POLARF = 0.D0 + ENDIF +C USE PARTICLE ONLY IF ABOVE CUT AND INSIDE ACCEPTANCE CONE + IF ( E(NP)-AMASS.GT.CUT .AND. W(NP).GT.C(29) ) THEN +* IF ( W(NP) .GT. C(29) ) THEN +C ANGLE WITH RESPECT TO X AXIS + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF +C FILL MUON/PION COORDINATES INTO CORSIKA-STACK + SECPAR(1) = IQ(NP) + SECPAR(2) = E(NP)/AMASS + SECPAR(3) = MIN( 1.D0, W(NP) ) + SECPAR(4) = ANGLEX + SECPAR(5) = -Z(NP) + SECPAR(6) = TIM(NP) + SECPAR(7) = X(NP) + SECPAR(8) = -Y(NP) + SECPAR(9) = IGEN(NP) + SECPAR(10) = -Z(NP) + SECPAR(11) = POLART + SECPAR(12) = POLARF + SECPAR(14) = -ZAP(NP) + SECPAR(15) = WAP(NP) + SECPAR(16) = WA(NP) +C ADD MUON/PION TO CORSIKA-STACK + CALL TSTOUT + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS OF MUONS/HADRONS + IF ( IQ(NP) .LE. 6 ) THEN + DLONG(LPCTE(NP),5) = DLONG(LPCTE(NP),5)+E(NP)*1.D-3 + ELSE + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7)+E(NP)*1.D-3 + ENDIF + ENDIF + ENDIF +C ELIMINATE MUON/PION FROM EGS-STACK + POLART = -POLART + POLARF = POLARF+PI + NP = NP-1 + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE MSCAT +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C M(ULTIPLE) SCAT(TERING) +C +C DETERMINES ANGLE OF MULTPLIE SCATTERING +C THIS SUBROUTINE IS CALLED FROM ELECTR. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEND. + COMMON /ELECIN/ EKE0,EKE1,XR0,TEFF0,BLCC,XCC,ESIG0,ESIG1,PSIG0, + * PSIG1,EDEDX0,EDEDX1,PDEDX0,PDEDX1,EBR10,EBR11, + * PBR10,PBR11,PBR20,PBR21,TMXS0,TMXS1,ERANG0, + * ERANG1,PRANG0,PRANG1,STERNCOR + REAL EKE0,EKE1,XR0,TEFF0,BLCC,XCC, + * ESIG0(500),ESIG1(500),PSIG0(500),PSIG1(500), + * EDEDX0(500),EDEDX1(500),PDEDX0(500),PDEDX1(500), + * EBR10(500),EBR11(500),PBR10(500),PBR11(500), + * PBR20(500),PBR21(500),TMXS0(500),TMXS1(500), + * ERANG0(1),ERANG1(1),PRANG0(1),PRANG1(1),STERNCOR +*KEEP,EPCONT. + COMMON /EPCONT/ EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW,EKE,ELKE,BETA2,GLE,TSCAT, + * IDISC,IROLD,IRNEW + DOUBLE PRECISION EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW, EKE,ELKE,BETA2,GLE,TSCAT + INTEGER IDISC,IROLD,IRNEW + +*KEND. + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) + COMMON /MULTS/ B0G21,B1G21,G210,G211,G212, + * B0G22,B1G22,G220,G221,G222, + * B0G31,B1G31,G310,G311,G312, + * B0G32,B1G32,G320,G321,G322, + * B0BGB,B1BGB,BGB0,BGB1,BGB2,NBGB + DOUBLE PRECISION B0G21,B1G21,G210(7),G211(7),G212(7), + * B0G22,B1G22,G220(8),G221(8),G222(8), + * B0G31,B1G31,G310(11),G311(11),G312(11), + * B0G32,B1G32,G320(25),G321(25),G322(25), + * B0BGB,B1BGB,BGB0(8),BGB1(8),BGB2(8) + INTEGER NBGB +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION B,BI,BLC,BMD,BM1,BM2,ETA,G21,G22,G2,G31,G32,G3, + * OMEGA0,VSTEFF,THR,XR + INTEGER IB,I21,I22,I31,I32 + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' MSCAT : NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + +C ACCOUNT FOR ALTERED DENSITY + VSTEFF = TVSTEP*RHOFAC +C GET MOLIERE'S LOWER CASE B PARAMETER, BLC + OMEGA0 = BLCC*VSTEFF/BETA2 + IF ( OMEGA0 .LE. 1.D0 ) THEN + SINTHE = 0.D0 + COSTHE = 1.D0 + THETA = 0.D0 + NOSCAT = NOSCAT+1 + RETURN + ENDIF + BLC = LOG(OMEGA0) +C NOW CONVERT TO MOLIERE'S BIG B; 1.30685=2-LN 2, 1.530394=2/(2-LN 2) + IF ( BLC .LE. 1.306852820D0 ) THEN +C BELOW TRANSCENDENTAL LIMIT + B = 1.530394218D0*BLC + ELSE + IB = B0BGB+BLC*B1BGB + IF ( IB .GT. NBGB ) THEN + WRITE(KMPO,940) IB + 940 FORMAT('MSCAT: NBGB*SQRT(B); +C BUT <*CHI-SUB-C*>=XCC(MEDIUM)*SQRT(VSTEFF)/(E*BETA2) + XR = XCC*SQRT(MAX( 0.D0, VSTEFF*B ))/(EOLD*BETA2) +C NOW SET B-INVERSE, BI THAT WILL BE USED IN SAMPLING +C BI MUST NOT BE LARGER THAN 1./LAMBDA=1/2 + IF ( B .GT. 2.D0 ) THEN + BI = 1.D0/B + BMD = 1.D0/(1.D0+1.75D0*BI) + BM1 = (1.D0-2.D0*BI)*BMD + BM2 = (1.0+0.025*BI)*BMD + ELSE + BI = 0.5D0 + BM1 = (1.D0-2.D0/B)*0.533333333333D0 + BM2 = 0.54D0 + ENDIF + +C THIS LOOP IS FOR BETHE CORRECTION FACTOR REJECTION OR OTHER REJECTION + 951 CONTINUE + CALL RMMAR(RD,1,2) + IF ( RD(1) .LE. BM1 ) THEN +C GAUSSIAN, F0 + CALL RMMAR(RD(2),1,2) +* IF ( RD(2) .EQ. 0.D0 ) RD(2) = 1.E-30 + THR = SQRT(MAX( 0.D0, -LOG(DBLE(RD(2))) )) + ELSEIF ( RD(1) .LE. BM2 ) THEN +C TAIL, F3 + CALL RMMAR(RD(2),3,2) + ETA = MAX(RD(2),RD(3)) +C NOW EVALUATE REJECTION FUNCTION, G3(ETA) + I31 = B0G31+ETA*B1G31 + G31 = G310(I31)+ETA*(G311(I31)+ETA*G312(I31)) + I32 = B0G32+ETA*B1G32 + G32 = G320(I32)+ETA*(G321(I32)+ETA*G322(I32)) + G3 = G31+G32*BI + IF ( RD(4) .GT. G3 ) GOTO 951 + THR = 1.D0/ETA + ELSE +C CENTRAL CORRECTION, F2 + CALL RMMAR(RD(2),2,2) + THR = RD(2) +C COMPUTE REJECTION FUNCTION, G2 + I21 = B0G21+THR*B1G21 + G21 = G210(I21)+THR*(G211(I21)+THR*G212(I21)) + I22 = B0G22+THR*B1G22 + G22 = G220(I22)+THR*(G221(I22)+THR*G222(I22)) + G2 = G21+G22*BI + IF ( RD(3) .GT. G2 ) GOTO 951 + ENDIF +C THR IS NOW THE REDUCED ANGLE. NOW GET THE REAL ANGLE + THETA = THR*XR + IF ( THETA .GE. PI ) GOTO 951 + SINTHE = SIN(THETA) + CALL RMMAR(RD,1,2) +C BETHE CORRECTION FACTOR + IF ( RD(1)**2*THETA .GT. SINTHE ) GOTO 951 + COSTHE = COS(THETA) + RETURN + END +*CMZ : 11/01/2002 09.25.08 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE MUPAIR + +C----------------------------------------------------------------------- +C MU(ON) PAIR (FORMATION) +C +C IN ANALOGY WITH THE SUBR. PAIR. +C FOR A PHOTON ENERGY LESS THAN 434 MEV, THE APPROXIMATION IS +C MADE THAT THE ENERGY OF ONE POSITIVE OR NEGATIVE MUON IS +C UNIFORMLY DISTRIBUTED IN THE INTERVAL (PRRMMU, PEIG/2) = +C (MUON REST MASS, PHOTON ENERGY/2). +C FOR PHOTON ENERGY ABOVE 434 MEV THE +C COULOMB CORRECTED BETHE-HEITLER CROSS-SECTION IS USED. +C (BUTCHER AND MESSEL, OP. CIT., P. 17-19, 22). +C THIS MAY BE INCORRECT +C THIS SUBROUTINE IS CALLED FROM PHOTON. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE + COMMON /BREMPR/ PWR2I,DL1,DL2,DL3,DL4,DL5,DL6,DELCM,ALPHI,BPAR, + * DELPOS + DOUBLE PRECISION PWR2I(60) + REAL DL1(6),DL2(6),DL3(6),DL4(6),DL5(6),DL6(6), + * DELCM,ALPHI(2),BPAR(2),DELPOS(2) +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEND. + COMMON /MUON/ PRRMMU,RMMUT2 + DOUBLE PRECISION PRRMMU,RMMUT2 + COMMON /NKGSUB/ XXOLD,YYOLD,ZZOLD + DOUBLE PRECISION XXOLD,YYOLD,ZZOLD +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION ANGLEX,BR,DEL,DELTA,ENERN,PEIG,PESE1,PESE2,REJF + INTEGER LVL,LVL0,LVX + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' MUPAIR: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'MUPAIR: E=',E(NP)*.001D0 + + IGEN(NP) = IGEN(NP) + 1 +C PRECISE ENERGY OF INCIDENT GAMMA + PEIG = E(NP) +C SUBTRACT EM SUBSHOWER FROM NKG CALCULATION + IF ( FNKG ) THEN + SECPAR(1) = 1.D0 + SECPAR(3) = MIN( 1.D0, W(NP) ) + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF + SECPAR(4) = ANGLEX + SECPAR(5) = -ZZOLD + SECPAR(7) = XXOLD + SECPAR(8) = -YYOLD + ENERN = (-1.D-3)*PEIG + CALL NKG(ENERN) + ENDIF +C ENERGY OF INCIDENT GAMMA + IF ( PEIG .LE. 434.D0 ) THEN +C BELOW 434.MEV, WE ASSUME UNIFORM ENERGY +C DISTRIBUTION OF THE MUON #2 IN THE INTERVAL (PRRMMU, PEIG/2). +C SEE ALSO SLAC-265, P.49 FOR FURTHER DISCUSSION. + CALL RMMAR(RD,1,2) + PESE2 = (PEIG*0.5D0-PRRMMU)*RD(1)+PRRMMU + ELSE +C ABOVE 434.MEV, MUST SAMPLE +C COULOMB CORRECTED(LVX=2,LVL=4,6) CROSS-SECTIONS. +C SEE RELATED COMMENTS IN BREMS. + LVX = 2 + LVL0 = 3 + 181 CONTINUE +C RETRY IF REJECTED BECAUSE DEL OUT OF RANGE, OR BY SCREENING +C WE'LL NEED AT LEAST ONE RANDOM NUMBER + CALL RMMAR(RD,2,2) +C NOW DECIDE WHICH OF THE TWO SUBDISTRIBUTIONS TO USE. + IF ( RD(2) .GE. BPAR(LVX) ) THEN +C USE THE SUBDISTRIBUTION THAT IS PROPORTIONAL TO +C 12*(BR-0.5)**2. IT USES A(DELTA) FOR SCREENING FUNCTION + LVL = LVL0+1 + CALL RMMAR(RD(3),2,2) +C FROM SYMMETRY, ONLY NEED TO SAMPLE BR IN INTERVAL (0,.5) +* BR = 0.5D0*(1.D0-MAX(RD(3),RD(4),RD(1))) +C MODIFIED BY D. HECK (JAN 10, 2002) TO GIVE BETTER CONTINUITY FOR +C SMALL BR VALUES IN CONNECTION WITH RMMAR RANDOM GENERATOR + BR = 0.5D0 * MIN( RD(3), RD(4), RD(1) ) + ELSE +C USE THE SUBDISTRIBUTION THAT IS PROPORTIONAL TO 1,I.E. +C UNIFORM.IT USES C(DELTA) FOR A SCREENING REJECT FUNCTION + LVL = LVL0+3 + BR = RD(1)*0.5D0 + ENDIF +C THE SCREENING FUNCTIONS ARE FUNCTIONS OF DELTA=DELCM*DEL, +C WHERE DELCM= 136.D0*EXP(ZG)*PRM (SAME AS FOR BREMS) +C AND WHERE DEL=1./(EG0*BR*(1.0-BR)) +C WITH EG0 = INCIDENT PHOTON ENERGY AND BR=ENERGY FRACTION. +C TO AVOID DIVISION BY ZERO +* IF ( BR .EQ. 0.D0 ) GOTO 181 +C CORRECTED JAN. 11, 1999 + IF ( BR*PEIG .LT. PRRMMU ) GOTO 181 + DEL = 1.D0/(PEIG*BR*(1.D0-BR)) + IF ( DEL .GE. (PRM/PRRMMU)*DELPOS(LVX) ) GOTO 181 +C NEXT TRY +C THE PRECEDING CONDITION ENSURES THAT A(DELTA) AND C(DELTA) +C WILL BE POSITIVE. IF IT IS NOT SATISFIED,LOOP BACK AND TRY +C ANOTHER SAMPLE. + DELTA = (PRRMMU*RMI)*DELCM*DEL + IF ( DELTA .LT. 1.D0 ) THEN + REJF = DL1(LVL)+DELTA*(DL2(LVL)+DELTA*DL3(LVL)) + ELSE + REJF = DL4(LVL)+DL5(LVL)*LOG(DELTA+DL6(LVL)) + ENDIF +C RANDOM NUMBER FOR SCREENING REJECTION + CALL RMMAR(RD,1,2) +C RETRY UNTIL ACCEPTED + IF ( RD(1) .GT. REJF ) GOTO 181 +C BR=PRODUCT ENERGY FRACTION +C ENERGY OF SECONDARY 'MUON' #2 + PESE2 = BR*PEIG +C END OF PEIG.GT.434 ELSE + ENDIF +C ENERGY GOING TO LOWER SECONDARY HAS NOW BEEN DETERMINED +C PRECISE ENERGY OF SECONDARY 'MUON' 2 +C PRECISE ENERGY OF SECONDARY 'MUON' 1 + PESE1 = PEIG-PESE2 + E(NP) = PESE1 + E(NP+1) = PESE2 +C THIS AVERAGE ANGLE OF EMISSION FOR BOTH PAIR PRODUCTION AND +C BREMSSTRAHLUNG IS MUCH SMALLER THAN THE AVERAGE ANGLE OF +C MULTIPLE SCATTERING FOR DELTA T TRANSPORT=0.01 R.L. +C THE INITIAL AND FINAL MOMENTA ARE COPLANAR +C SET UP A NEW 'MUON' + THETA = PRRMMU/PEIG + CALL UPHI(1,1) +C SET UP A NEW 'MUON' + NP = NP+1 + SINTHE = -SINTHE + CALL UPHI(3,2) +C NOW RANDOMLY DECIDED WHICH IS POSITIVE MUON, AND SET +C CHARGES ACCORDINGLY + CALL RMMAR(RD,3,2) + IF ( RD(1) .LE. 0.5 ) THEN +C POSITIVE MUON ON TOP + IQ(NP) = 5 + IQ(NP-1) = 6 + ELSE +C NEGATIVE MUON ON TOP + IQ(NP) = 6 + IQ(NP-1) = 5 + ENDIF + POLART = 2.D0*RD(2) -1.D0 + POLARF = TWOPI*RD(3) + RETURN + END +*CMZ : 10/01/2002 17.03.41 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE PAIR + +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C PAIR (FORMATION) +C +C FOR A PHOTON ENERGY LESS THAN 2.1 MEV, THE APPROXIMATION IS +C MADE THAT ONE PAIR ELECTRON (OR POSITRON) HAS ONLY ITS REST +C MASS ENERGY. FOR PHOTON ENERGY BETWEEN 2.1 MEV AND 50 MEV THE +C BETHE-HEITLER CROSS-SECTION IS EMPLOYED. ABOVE 50 MEV THE +C COULOMB CORRECTED BETHE-HEITLER CROSS-SECTION IS USED. +C (BUTCHER AND MESSEL, OP. CIT., P. 17-19, 22). +C THIS SUBROUTINE IS CALLED FROM PHOTON. +C----------------------------------------------------------------------- + + IMPLICIT NONE + COMMON /BREMPR/ PWR2I,DL1,DL2,DL3,DL4,DL5,DL6,DELCM,ALPHI,BPAR, + * DELPOS + DOUBLE PRECISION PWR2I(60) + REAL DL1(6),DL2(6),DL3(6),DL4(6),DL5(6),DL6(6), + * DELCM,ALPHI(2),BPAR(2),DELPOS(2) +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION BR,DEL,DELTA,PEIG,PESE1,PESE2,REJF + INTEGER LVL,LVL0,LVX + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' PAIR : NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + PEIG = E(NP) + IF ( PEIG .LE. 2.1D0 ) THEN +C BELOW 2.1 MEV, USE APPROXIMATION + PESE2 = PRM + ELSE +C ABOVE 2.1 MEV, MUST SAMPLE. DECIDE WHETHER TO USE +C BETHE-HEITLER (LVX=1,LVL=1,3) OR COULOMB CORRECTED (LVX=2,LVL=4,6) +C CROSS-SECTIONS. SEE RELATED COMMENTS IN BREMS. + IF ( PEIG .LT. 50.D0 ) THEN + LVX = 1 + LVL0 = 0 + ELSE + LVX = 2 + LVL0 = 3 + ENDIF + + 961 CONTINUE +C RETRY IF REJECTED BECAUSE DEL OUT OF RANGE, OR BY SCREENING +C WE'LL NEED AT LEAST ONE RANDOM NUMBER +C NOW DECIDE WHICH OF THE TWO SUBDISTRIBUTIONS TO USE + CALL RMMAR(RD,2,2) + IF ( RD(2) .GE. BPAR(LVX) ) THEN +C USE THE SUBDISTRIBUTION THAT IS PROPORTIONAL TO 12*(BR-0.5)**2. +C IT USES A(DELTA) FOR SCREENING FUNCTION. + LVL = LVL0+1 + CALL RMMAR(RD(3),2,2) +C FROM SYMMETRY, ONLY NEED TO SAMPLE BR IN INTERVAL (0,.5) +* BR = 0.5D0*(1.D0-MAX(RD(3),RD(4),RD(1))) +C MODIFIED BY D. HECK (JAN 10, 2002) TO GIVE BETTER CONTINUITY FOR +C SMALL BR VALUES IN CONNECTION WITH RMMAR RANDOM GENERATOR + BR = 0.5D0 * MIN( RD(3), RD(4), RD(1) ) + ELSE +C USE THE SUBDISTRIBUTION THAT IS PROPORTIONAL TO 1, I.E. UNIFORM. +C IT USES C(DELTA) FOR A SCREENING REJECTION FUNCTION. + LVL = LVL0+3 + BR = RD(1)*0.5D0 + ENDIF +C THE SCREENING FUNCTIONS ARE FUNCTIONS OF DELTA=DELCM*DEL, +C WHERE DELCM= 136.0*EXP(ZG)*RM (SAME AS FOR BREMS) +C AND WHERE DEL=1./(EG0*BR*(1.0-BR)) +C WITH EG0 = INCIDENT PHOTON ENERGY AND BR=ENERGY FRACTION. +C AVOID DIVISION BY ZERO: +* IF ( BR .EQ. 0.D0 ) GOTO 961 +C CORRECTED 18.12.98 + IF ( BR*PEIG .LT. PRM ) GOTO 961 + DEL = 1.D0/(PEIG*BR*(1.D0-BR)) + IF ( DEL .GE. DELPOS(LVX) ) GOTO 961 +C THE PRECEDING CONDITION ENSURES THAT A(DELTA) AND C(DELTA) WILL BE +C POSITIVE. IF IT IS NOT SATISFIED, LOOP BACK AND TRY ANOTHER SAMPLE. + DELTA = DELCM*DEL + IF ( DELTA .LT. 1.D0 ) THEN + REJF = DL1(LVL)+DELTA*(DL2(LVL)+DELTA*DL3(LVL)) + ELSE + REJF = DL4(LVL)+DL5(LVL)*LOG(DELTA+DL6(LVL)) + ENDIF + CALL RMMAR(RD,1,2) + IF ( RD(1) .GT. REJF ) GOTO 961 +C BR=PRODUCT ENERGY FRACTION + PESE2 = BR*PEIG + ENDIF + PESE1 = PEIG-PESE2 + E(NP) = PESE1 + E(NP+1)= PESE2 +C THIS AVERAGE ANGLE OF EMISSION FOR BOTH PAIR PRODUCTION AND +C BREMSSTRAHLUNG IS MUCH SMALLER THAN THE AVERAGE ANGLE OF +C MULTIPLE SCATTERING FOR DELTA T TRANSPORT=0.01 R.L.. THE INITIAL AND +C FINAL MOMENTA ARE COPLANAR. SET UP A NEW 'ELECTRON' + THETA = PRM/PEIG + CALL UPHI(1,1) + NP = NP+1 + SINTHE =-SINTHE + CALL UPHI(3,2) +C NOW RANDOMLY DECIDED WHICH IS POSITRON, AND SET CHARGES ACCORDINGLY + CALL RMMAR(RD,1,2) + IF ( RD(1) .LE. 0.5 ) THEN + IQ(NP) = 2 + IQ(NP-1) = 3 + ELSE + IQ(NP) = 3 + IQ(NP-1) = 2 + ENDIF + RETURN + END +*CMZ : 18/09/2001 13.38.55 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE PHOTO +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C PHOTO (EFFECT) +C +C TREATS PHOTO EFFECT +C THIS SUBROUTINE IS CALLED FORM PHOTON +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,EPCONT. + COMMON /EPCONT/ EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW,EKE,ELKE,BETA2,GLE,TSCAT, + * IDISC,IROLD,IRNEW + DOUBLE PRECISION EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW, EKE,ELKE,BETA2,GLE,TSCAT + INTEGER IDISC,IROLD,IRNEW + +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEND. + COMMON /PHOTIN/ EBINDA,GE0,GE1,GMFP0,GMFP1,GBR10,GBR11, + * GBR20,GBR21,GBR30,GBR31,GBR40,GBR41, + * RCO0,RCO1,RSCT0,RSCT1,COHE0,COHE1,MPGEM,NGR + REAL EBINDA,GE0,GE1,GMFP0(500),GMFP1(500), + * GBR10(500),GBR11(500),GBR20(500),GBR21(500), + * GBR30(500),GBR31(500),GBR40(500),GBR41(500), + * RCO0,RCO1,RSCT0(100),RSCT1(100),COHE0(500), + * COHE1(500) + INTEGER MPGEM(1),NGR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION PEIG + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' PHOTO : NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + PEIG = E(NP) + IF ( E(NP) .LE. EBINDA ) THEN +C PHOTON IS COMPLETELY ABSORBED + EDEP = PEIG + IBLOBE = 1 + ELSE +C ASSUME ELECTRON WENT IN DIRECTION OF THE PHOTON WITH ITS ENERGY, LESS +C THE BINDING ENERGY. + EDEP = EBINDA +C BINDING ENERGY WILL BE DEPOSITED LOCALLY + E(NP) = EDEP + IBLOBE = 0 +C FLAG INDICATING WHETHER ENERGY BELOW BINDING ENERGY + ENDIF + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS + DLONG(LPCTE(NP),1) = DLONG(LPCTE(NP),1) + EDEP*1.D-3 + ENDIF + IF ( IBLOBE .EQ. 1 ) THEN + E(NP) = 0.D0 + RETURN + ENDIF + IQ(NP) = 3 +C SET ELECTRON ENERGY + E(NP) = PEIG-EDEP+PRM + RETURN + END +*CMZ : 28/01/2002 09.50.31 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE PHOTON(IRCODE) +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C PHOTON (IS TREATED) +C +C TREATS THE PHOTON TRANSPORT +C FOR PATH LENGTH CORRECTION BECAUSE OF BAROMETRIC ATMOSPHERE SEE +C INTERNAL REPORT OF D.HECK,(1989) +C THIS SUBROUTINE IS CALLED FROM SHOWER. +C ARGUMENT: +C IRCODE = RETURN CODE : 1 NORMAL RETURN +C 2 IF POSSIBLY STACK IS EMPTY +C----------------------------------------------------------------------- + + IMPLICIT NONE + COMMON /BOUNDS/ ECUT,PCUT,VACDST + DOUBLE PRECISION ECUT(6),PCUT(6),VACDST +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,CEREN1. + COMMON /CEREN1/ CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR,LCERFI + DOUBLE PRECISION CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR + LOGICAL LCERFI +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,EPCONT. + COMMON /EPCONT/ EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW,EKE,ELKE,BETA2,GLE,TSCAT, + * IDISC,IROLD,IRNEW + DOUBLE PRECISION EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW, EKE,ELKE,BETA2,GLE,TSCAT + INTEGER IDISC,IROLD,IRNEW + +*KEND. + COMMON /GEOMEGS/ ZALTIT,BOUND,OBSLVL,NEWOBS + DOUBLE PRECISION ZALTIT,BOUND(6),OBSLVL(10) + INTEGER NEWOBS + COMMON /LAYER/ HBARO,HBAROI + DOUBLE PRECISION HBARO(6),HBAROI(6) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEND. + COMMON /MEDIA/ RLDU,RLDUI,RHO,RLC,NMED,MSGE,MGE,MSEKE,MEKE, + * MLEKE,MCMFP,MRANGE,IRAYLM + DOUBLE PRECISION RLDU,RLDUI + REAL RHO,RLC + INTEGER NMED,MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE, + * IRAYLM + COMMON /MEDIAC/ MEDIA + CHARACTER MEDIA*24 + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) + COMMON /MUON/ PRRMMU,RMMUT2 + DOUBLE PRECISION PRRMMU,RMMUT2 + COMMON /NKGSUB/ XXOLD,YYOLD,ZZOLD + DOUBLE PRECISION XXOLD,YYOLD,ZZOLD +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PHOTIN/ EBINDA,GE0,GE1,GMFP0,GMFP1,GBR10,GBR11, + * GBR20,GBR21,GBR30,GBR31,GBR40,GBR41, + * RCO0,RCO1,RSCT0,RSCT1,COHE0,COHE1,MPGEM,NGR + REAL EBINDA,GE0,GE1,GMFP0(500),GMFP1(500), + * GBR10(500),GBR11(500),GBR20(500),GBR21(500), + * GBR30(500),GBR31(500),GBR40(500),GBR41(500), + * RCO0,RCO1,RSCT0(100),RSCT1(100),COHE0(500), + * COHE1(500) + INTEGER MPGEM(1),NGR + COMMON /PION/ PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT + DOUBLE PRECISION PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /THRESH/ RMSQ,API,TE,THMOLL,AP,AE,UP,UE + DOUBLE PRECISION RMSQ,API,TE,THMOLL + REAL AP,AE,UP,UE + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + COMMON /USEFUL/ PRM,PRMT2,RMI,VCI,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PRM,PRMT2,RMI,VCI + INTEGER MEDIUM,MEDOLD,IBLOBE + + DOUBLE PRECISION ALTEXP,COHFAC,CSQTHE,DISC,DPMFP, + * GBR1,GBR2,GBR3,GBR4,GMFP,GMFPR0,PEIG,Q2, + * REJF,RHOFI,SITHET,THICK,USTEPU,X2,ZOLD + INTEGER IRCODE,IRL,I,IDR,I1, + * LGLE,LPCT1,LPCT2,LXXX + DOUBLE PRECISION AUXIL,AUXILSQ,AUX2SQ,CORR,COSDIF,COSTHENEW, + * DISTN2,DISTO2,DSTEFF,PHI,SIGNE,SINDIF, + * TANPHI,TRANS2,XOLD,YOLD,ZNEW + INTEGER IPASC + SAVE + EXTERNAL THICK +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' PHOTON: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + + NEWOBS = IOBS(NP) + IRCODE = 1 + PEIG = E(NP) + IRL = IR(NP) + MEDIUM = MED(IRL) + IF ( PEIG .LE. PCUT(IRL) ) GOTO 970 + 980 CONTINUE + XXOLD = X(NP) + YYOLD = Y(NP) + ZZOLD = Z(NP) + 981 CONTINUE +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) THEN + IDISC = 1 + GOTO 1000 + ENDIF + GLE = LOG(PEIG) + + +C HERE SAMPLE MEAN FREE PATH TO TRANSPORT BEFORE INTERACTING + CALL RMMAR(RD,1,2) + DPMFP = -LOG(DBLE(RD(1))) + IROLD = IR(NP) + 1031 CONTINUE + IF ( MEDIUM .NE. 0 ) THEN + LGLE = GE1*GLE+GE0 + GMFPR0 = GMFP1(LGLE)*GLE+GMFP0(LGLE) + ENDIF + 1041 CONTINUE + IF ( MEDIUM .EQ. 0 ) THEN +C WE ARE IN VACUUM + TSTEP = VACDST + ALTEXP = 1.D0 + ELSE +C WE ARE IN AIR LAYER + RHOFAC = RHOR(IRL)/RHO + RHOFI = 1.D0/RHOFAC + GMFP = GMFPR0*RHOFI +C DENSITY CORRECTION OF MEAN FREE PATH + IF ( IRAYLR(IRL) .EQ. 1 ) THEN + COHFAC = COHE1(LGLE)*GLE+COHE0(LGLE) + GMFP = GMFP*COHFAC + ENDIF + TSTEP = GMFP*DPMFP + ALTEXP = EXP((-Z(NP))*HBAROI(IRL)) + TSTEP = TSTEP*ALTEXP + DISC = W(NP)*TSTEP*HBAROI(IRL) + IF ( ABS(DISC) .LT. .0000007D0 ) THEN + TSTEP = TSTEP*(1.D0-.5D0*DISC*(1.D0-.666666666666667D0*DISC* + * (1.D0-.75D0*DISC*(1.D0-.8D0*DISC)))) + ELSEIF ( DISC .GT. -1.D0 ) THEN + TSTEP = TSTEP*LOG(DISC+1.D0)/DISC + ELSE + TSTEP = VACDST + ENDIF + ENDIF + IRNEW = IR(NP) + IDISC = 0 + USTEP = TSTEP + TUSTEP = USTEP +C LOOK HOW FAR WE CAN GO + IF ( USTEP .GT. DNEAR(NP) ) CALL HOWFAR + IF ( IDISC .GT. 0 ) GOTO 1000 + IF ( IDISC .LT. 0 ) THEN +C PARTICLE WILL CROSS THE DETECTOR LEVEL + ZOLD = Z(NP) + XOLD = X(NP) + YOLD = Y(NP) + DISTO2 = X(NP)**2 + Y(NP)**2 + IF ( FEGSDB ) THEN + WRITE(MDEBUG,*) 'PHOTON: WE APPROACH DETECTOR' + CALL AUSGB2 + ENDIF + AUXILSQ = SQRT(DISTO2) + WA(NP) = COS(AUXILSQ/C(1)) + WA(NP) = MIN( 1.D0, WA(NP) ) + ZAP(NP) = - (C(1)-Z(NP)) * WA(NP) + C(1) +C REGARD WHETHER PARTICLE IS MOVING TOWARDS DETECTOR +C EFFECTIVE DISTANCE TO DETECTOR CENTER IS DISTANCE TO POINT +C OF FLIGHT PATH PROJECTION WHICH COMES CLOSEST TO DETECTOR CENTER + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + PHI = -ATAN2(V(NP),U(NP)) + ELSE + PHI = 0.D0 + ENDIF + DSTEFF = -( COS(PHI)*X(NP) + SIN(PHI)*Y(NP) ) +C ANGLE DIF MIGHT BE LARGE (DUE TO CUT ON APPARTENT HEIGHT) +C CALCULATE CORRECTION ANGLE DIF FROM EFFECTIVE DISTANCE + SINDIF = SIN( DSTEFF/C(1) ) + COSDIF = SQRT( 1.D0 - SINDIF**2 ) + COSTHENEW = W(NP)*COSDIF - SQRT(1.D0-W(NP)**2)*SINDIF + IF ( FEGSDB ) WRITE(MDEBUG,*) 'PHOTON: COSDIF,COSTHENEW=', + * SNGL(COSDIF),SNGL(COSTHENEW) + W(NP) = MIN( 1.D0, COSTHENEW ) +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) THEN + IDISC = 1 + GOTO 1000 + ENDIF +C ANGLE DIF MIGHT BE LARGE (DUE TO CUT ON APPARENT HEIGHT) + X(NP) = ((-ZAP(NP))+C(1)) * TAN(X(NP)/C(1)) + Y(NP) = ((-ZAP(NP))+C(1)) * TAN(Y(NP)/C(1)) + Z(NP) = ZAP(NP) + IF ( U(NP) .NE. 0.D0 ) THEN + TANPHI= V(NP)/U(NP) + U(NP) = SIGN(1.D0,U(NP)) * + * SQRT((1.D0-W(NP)**2)/(1.D0+TANPHI**2)) + V(NP) = TANPHI * U(NP) + ELSE + IF ( V(NP) .NE. 0.D0 ) + * V(NP) = SIGN(1.D0,V(NP)) * SQRT( 1.D0 - W(NP)**2 ) + ENDIF + USTEP = -(Z(NP)+OBSLEV(1))/W(NP) + IF ( FEGSDB ) THEN + WRITE(MDEBUG,*) 'PHOTON: CORR. FOR DET. ARRIVAL:USTEP=',USTEP + CALL AUSGB2 + ENDIF + IPASC = 1 + ELSE +C NORMAL TRANSPORT STEP FAR AWAY FROM DETECTOR + IPASC = 0 + ZOLD = Z(NP) + XOLD = X(NP) + YOLD = Y(NP) + DISTO2 = X(NP)**2 + Y(NP)**2 + ENDIF + VSTEP = USTEP + TVSTEP = VSTEP +C NO ENERGY DEPOSITION ON PHOTON TRANSPORT + EDEP = 0.D0 + USTEPU = USTEP + DISC = W(NP)*USTEPU*HBAROI(IRL) + IF ( DISC .NE. 0.D0 ) THEN + USTEPU = USTEPU*(EXP(DISC)-1.D0)/(DISC*ALTEXP) + ENDIF + X(NP) = X(NP)+U(NP)*USTEP + Y(NP) = Y(NP)+V(NP)*USTEP + Z(NP) = Z(NP)+W(NP)*USTEP + TIM(NP) = TIM(NP)+TVSTEP*VCI + IF ( IPASC .EQ. 0 ) THEN +C NORMAL TRANSPORT STEP FAR AWAY FROM DETECTOR +C HORIZONTAL COMPONENT OF TRACK LENGTH SQUARED + TRANS2 = (X(NP)-XOLD)**2 + (Y(NP)-YOLD)**2 +C TRANSPORT AT MINIMUM .001 MM + TRANS2 = MAX( TRANS2, 0.00001D0 ) +C NEW COORDINATE FRAME, NEW ACTUAL HEIGHT AT NEW THICKNESS GRADIENT +C (CALCULATED WITH PARAMETERS OF OLD COORDINATE FRAME) + AUXIL = SQRT( TRANS2 + (C(1)-Z(NP))**2 ) + ZNEW = C(1) - AUXIL +C CALCULATE ANGLE DIFFERENCE BETWEEN OLD AND NEW FRAME + SINDIF = SQRT(TRANS2) / AUXIL + COSDIF = (C(1)-Z(NP)) / AUXIL + IF ( FEGSDB ) WRITE(MDEBUG,560) COSDIF,SINDIF,-Z(NP),-ZNEW + 560 FORMAT(/' PHOTON: COSDIF,SINDIF,-Z,-ZNEW=',2F18.15,1P,2E17.9) + COSDIF = MIN( 1.D0, COSDIF ) +C CORRECTED X AND Y HAVE TO BE CALCULATED BEFORE DISTN2 +C TRANSPORT DISTANCE IS CORRECTED TO GET DISTANCE AT EARTH' SURFACE + CORR = C(1) * ASIN(SINDIF) / ( (C(1)-ZNEW)*SINDIF ) + X(NP) = XOLD + (X(NP)-XOLD) * CORR + Y(NP) = YOLD + (Y(NP)-YOLD) * CORR + Z(NP) = ZNEW +C NEW DISTANCE FROM PARTICLE TO DETECTOR CENTER + DISTN2 = X(NP)**2 + Y(NP)**2 +C COMPARE NEW AND OLD DISTANCE TO DETECTOR CENTER + IF ( DISTN2 .LT. DISTO2 ) THEN +C PARTICLE MOVES TOWARDS DETECTOR CENTER + SIGNE = +1.D0 + ELSE + SIGNE = -1.D0 + IF ( FEGSDB ) WRITE(MDEBUG,*) 'PHOTON: SIGNE=',SIGNE + ENDIF +C IN FIRST ORDER APPROXIMATION W(NP) AND COSDIF ARE IN THE SAME PLANE +C OF PARTICLE MOVEMENT, THEREFORE THE ANGLES MAY BE ADDED DIRECTLY + COSTHENEW = W(NP)*COSDIF - SIGNE*SINDIF*SQRT(1.D0-W(NP)**2) + W(NP) = MIN( 1.D0, COSTHENEW ) +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) THEN + IDISC = 1 + GOTO 1000 + ENDIF + IF ( FEGSDB ) THEN + WRITE(MDEBUG,562) WA(NP),-ZAP(NP) + 562 FORMAT(' PHOTON: WA,-ZAP=',F18.15,1P,E17.9) + WRITE(MDEBUG,557) U(NP),V(NP),W(NP),X(NP),Y(NP),Z(NP) + 557 FORMAT(' PHOTON: STEPEND=',1P,6E10.3,0P) + ENDIF +C CALCULATE ANGLES IN THE NEW FRAME + AUXILSQ = SQRT(X(NP)**2 + Y(NP)**2) + WA(NP) = COS( AUXILSQ/C(1) ) + WA(NP) = MIN( 1.D0, WA(NP) ) + ZAP(NP) = -(C(1)-ZNEW) * WA(NP) + C(1) + AUX2SQ = SQRT( (C(1)-ZNEW)**2*(1.D0 - WA(NP)**2) + * + (-ZAP(NP)-OBSLEV(1))**2 ) + WAP(NP) = -(OBSLEV(1)+ZAP(NP)) / AUX2SQ + IF ( FEGSDB ) WRITE(MDEBUG,*) 'PHOTON: WAP=',WAP(NP) + WAP(NP) = MIN( 1.D0, WAP(NP) ) + IF ( U(NP) .NE. 0.D0 ) THEN + TANPHI= V(NP)/U(NP) + U(NP) = SIGN(1.D0,U(NP)) * + * SQRT((1.D0-W(NP)**2)/(1.D0+TANPHI**2)) + V(NP) = TANPHI * U(NP) + ELSE + IF ( V(NP) .NE. 0.D0 ) + * V(NP) = SIGN(1.D0,V(NP)) * SQRT( 1.D0 - W(NP)**2 ) + ENDIF + ENDIF +C ADD PHOTONS TO THE LONGITUDINAL DEVELOPMENT + IF ( LLONGI ) THEN +C FIND FIRST THE EQUIVALENT LEVELS +C IF STARTING POINT BELOW LOWEST LEVEL THEN DON'T CHECK + IF ( HLONG(NSTEP) .LE. -ZOLD ) THEN + LPCT1 = LPCTE(NP) +C Z NEW IS PROBABLY ONLY LITTLE BELOW Z OLD, THEREFORE INCREMENTAL SEARCH + DO I1 = LPCT1,NSTEP + IF ( HLONG(I1) .LT. -Z(NP) ) GOTO 6003 + ENDDO + I1 = NSTEP + 1 + 6003 CONTINUE + LPCT2 = I1 - 1 +C STORE END POINT AS POSSIBLE STARTPOINT OF NEXT TRACK + LPCTE(NP) = LPCT2 + 1 + IF ( IDISC .LT. 0 ) LPCT2 = LPCT2+1 + DO I = LPCT1,LPCT2 + PLONG(I,1) = PLONG(I,1) + 1.D0 + ELONG(I,1) = ELONG(I,1) + E(NP)*1.D-3 + ENDDO + ENDIF + ENDIF + +C DEDUCT FROM DISTANCE TO NEAREST BOUNDARY + DNEAR(NP) = DNEAR(NP)-USTEP + IF ( MEDIUM .NE. 0 ) THEN + DPMFP = MAX( 0.D0, DPMFP-USTEPU/GMFP ) + ENDIF + IROLD = IR(NP) + MEDOLD = MEDIUM + IF ( IRNEW .NE. IROLD ) THEN +C CHANGE OF LAYER + IR(NP) = IRNEW + IRL = IRNEW + MEDIUM = MED(IRL) + IF ( PEIG .LE. PCUT(IRL) ) GOTO 970 + ENDIF +C KILL UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) THEN + IDISC = 1 + GOTO 1000 + ENDIF +C LOOK FOR OBSERVATION LEVEL AND GIVE TO OUTPUT + IF ( NEWOBS .GT. IOBS(NP) ) THEN + CALL AUSGAB + IOBS(NP) = NEWOBS + ENDIF + IF ( IDISC .LT. 0 ) GOTO 1000 + IF ( MEDIUM .NE. MEDOLD ) GOTO 1031 +C SKIP BACK IF STEP LENGTH NOT YET TOTALLY EXHAUSTED + IF ( MEDIUM .NE. 0 .AND. DPMFP .LE. 1.D-6 ) GOTO 1032 + GOTO 1041 + + 1032 CONTINUE +C RAYLEIGH SCATTERING + IF ( IRAYLR(IRL) .EQ. 1 ) THEN + CALL RMMAR(RD,1,2) + IF ( RD(1) .LE. 1.D0-COHFAC ) THEN + 1050 CONTINUE + CALL RMMAR(RD,1,2) + LXXX = RCO1*RD(1)+RCO0 + X2 = RSCT1(LXXX)*RD(1)+RSCT0(LXXX) + Q2 = X2*RMSQ*.23547885D-02 + COSTHE = 1.D0-Q2/(2.D0*E(NP)**2) + IF ( ABS(COSTHE) .GT. 1.D0 ) GOTO 1050 + CSQTHE = COSTHE**2 + REJF = (1.D0+CSQTHE)*.5D0 + CALL RMMAR(RD,1,2) + IF ( RD(1) .GT. REJF ) GOTO 1050 + SINTHE = SQRT( MAX( 0.D0, 1.D0-CSQTHE ) ) + CALL UPHI(2,1) + GOTO 981 + ENDIF + ENDIF + + IF ( .NOT. FNPRIM ) THEN +C DETERMINE THE ALTITUDE OF THE FIRST INTERACTION + IF ( .NOT. TMARGIN ) THEN + X(1) = 0.D0 + Y(1) = 0.D0 + ENDIF + IF ( FIX1I ) THEN +C IF HEIGHT OF FIRST INTERACTION IS FIXED, TAKE STARTING ANGLES OF +C PRIMARY PARTICLE + Z(1) = -FIXHEI + NP = 1 + LPCTE(1) = MIN(NSTEP,INT(THICK(FIXHEI)*THSTPI)+1) + SITHET = SQRT(1.D0-SECPAR(3)**2) + U(1) = SITHET*COS(-SECPAR(4)) + V(1) = SITHET*SIN(-SECPAR(4)) + W(1) = SECPAR(3) + ENDIF + EVTH(6) = 0. + IF ( TMARGIN ) THEN +C NEGATIVE FIRST INTERACTION HEIGHT,IF TRACKING STARTS AT ATMOS. MARGIN + EVTH(7) = Z(1) + ELSE + EVTH(7) = -Z(1) + ENDIF + CALL TOBUF(EVTH,0) +C OUTPUT OF EVENTHEADER TO THE CHERENKOV FILE + IF ( LCERFI ) CALL TOBUFC( EVTH,0 ) + CALL CORNEC + TIM(1) = 0.D0 + FNPRIM = .TRUE. + IF ( FPRINT ) THEN + WRITE(KMPO,*) ' FIRST INTERACTION AT ',ABS(EVTH(7)*0.01),' M' + ENDIF + ENDIF + +C THIS RANDOM NUMBER DETERMINES WHICH INTERACTION + CALL RMMAR(RD,1,2) + GBR4 = GBR41(LGLE)*GLE+GBR40(LGLE) + IF ( RD(1) .GE. GBR4 .AND. E(NP) .GT. PRMT2 ) THEN +C E+E- PAIR FORMATION + CALL PAIR + RETURN + ENDIF + + GBR3 = GBR31(LGLE)*GLE+GBR30(LGLE) + IF ( RD(1) .GE. GBR3 ) THEN +C COMPTON SCATTERING + CALL COMPT + IF ( IQ(NP) .NE. 1 ) RETURN + GOTO 1060 + ENDIF + + GBR1 = GBR11(LGLE)*GLE+GBR10(LGLE) + IF ( RD(1) .LE. GBR1 .AND. E(NP) .GT. RMMUT2 ) THEN +C MU+MU- PAIR FORMATION + CALL MUPAIR + RETURN + ENDIF + + GBR2 = GBR21(LGLE)*GLE+GBR20(LGLE) + IF ( RD(1) .LE. GBR2 .AND. E(NP) .GT. PITHR ) THEN +C PHOTONUCLEAR REACTION + CALL PIGEN + IF ( NP .EQ. 0 ) THEN + IRCODE = 2 + RETURN + ENDIF + RETURN + ELSE +C PHOTO EFFECT + CALL PHOTO + IF ( NP .EQ. 0 ) THEN + IRCODE = 2 + RETURN + ENDIF + IF ( IQ(NP) .EQ. 3 ) RETURN + ENDIF + + 1060 PEIG = E(NP) +C KILL HORIZONTAL OR UPWARD GOING PARTICLES + IF ( W(NP) .LE. C(29) ) THEN + IDISC = 1 + GOTO 1000 + ENDIF + IF ( PEIG .GE. PCUT(IRL) ) GOTO 980 + + 970 IF ( PEIG .GT. AP ) THEN + IDR = 1 + ELSE + IDR = 2 + ENDIF + EDEP = PEIG + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS + DLONG(LPCTE(NP),1) = DLONG(LPCTE(NP),1) + EDEP*1.D-3 + ENDIF + IRCODE = 2 + NP = NP-1 + RETURN + + 1000 EDEP = PEIG + IF ( LLONGI .AND. IDISC .GT. 0 ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS + DLONG(LPCTE(NP),1) = DLONG(LPCTE(NP),1) + EDEP*1.D-3 + ENDIF + IRCODE = 2 + NP = NP-1 + RETURN + END +*CMZ : 11/01/2002 09.25.09 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PIGEN + +C----------------------------------------------------------------------- +C PI(ON) GEN(ERATION) +C +C THIS SUBROUTINE STEERS THE PHOTONUCLEAR REACTION: +C FOR PRODUCTION OF 1 PION, PIGEN1 IS CALLED. +C FOR PRODUCTION OF 2 PIONS, PIGEN2 IS CALLED. +C AT HIGHER ENERGIES SDPM IS CALLED FOR PRODUCTION OF MORE PARTICLES +C OR RHOGEN IS CALLED FOR PRODUCTION OF RHO OR OMEGA MESON +C THIS SUBROUTINE IS CALLED FROM PHOTON. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEND. + COMMON /NKGSUB/ XXOLD,YYOLD,ZZOLD + DOUBLE PRECISION XXOLD,YYOLD,ZZOLD +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEEP,THNVAR. + COMMON /THNVAR/ STACKINT, + * INT_ICOUNT,MODETHN,THINNING + INTEGER MAXICOUNT + PARAMETER (MAXICOUNT=40000) + DOUBLE PRECISION STACKINT(16,MAXICOUNT) + INTEGER INT_ICOUNT,MODETHN + LOGICAL THINNING +*KEND. + + DOUBLE PRECISION ANGLEX,ENERN,PEIG,REGPAR(MAXLEN),REGGEN,REGLVL + DOUBLE PRECISION AUXIL,ECMVM,VMFRAC + INTEGER K + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' PIGEN : NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'PIGEN : E=',E(NP)*.001D0 + +C INCREASE AGE, WE HAVE HADRONIC INTERACTION + IGEN(NP) = IGEN(NP)+1 + SECPAR(9) = IGEN(NP) + SECPAR(10) =-Z(NP) + SECPAR(14) = -ZAP(NP) + SECPAR(15) = WAP(NP) + SECPAR(16) = WA(NP) + PEIG = E(NP) + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF +C SUBTRACT EM SUBSHOWER FROM NKG CALCULATION +C WITH CORRECTION FOR ORIGIN OF GAMMA (MARCH 10, 1998) + IF ( FNKG ) THEN + SECPAR(1) = 1.D0 + SECPAR(3) = MIN( 1.D0, W(NP) ) + SECPAR(4) = ANGLEX + SECPAR(5) = -ZZOLD + SECPAR(7) = XXOLD + SECPAR(8) = -YYOLD + ENERN = (-1.D-3)*PEIG + CALL NKG(ENERN) + IF ( DEBUG ) WRITE(MDEBUG,*) 'PIGEN : NKG SUBTRACTED' + ENDIF + CALL RMMAR(RD,1,2) + IF ( RD(1) .GT. (PEIG-400.D0)*0.001D0 ) THEN +C FOR ENERGIES BETWEEN 400 MEV AND 1400 MEV (=1000+400) DECIDE +C BY CHANCE WHETHER ONE OR TWO PIONS ARE GENERATED +C PIGEN1 TREATS THE PRODUCTION OF 1 PION + INT_ICOUNT = 0 + CALL PIGEN1 + CALL TSTEND + ELSEIF ( RD(1) .GT. (PEIG-2000.D0)*0.001D0 ) THEN +C FOR ENERGIES BETWEEN 2000MEV AND 3000MEV (=1000+2000) DECIDE +C BY CHANCE WHETHER 2 (PIGEN2) OR MORE PIONS (SDPM) ARE GENERATED +C PIGEN2 TREATS THE PRODUCTION OF 2 PIONS + INT_ICOUNT = 0 + CALL PIGEN2 + CALL TSTEND + ELSE +C SAVE CURPAR PARTICLE INTO REGISTER REGPAR + DO K = 1,MAXLEN + REGPAR(K) = CURPAR(K) + ENDDO + REGGEN = GEN + REGLVL = ALEVEL +C FOR ENERGIES ABOVE 2 GEV TAKE BY CHANCE DIFFRACTIVE INTERACTION +C LEADING TO A RHO (90%) OR OMEGA (10%) BY CALLING RHOGEN +C FIRST CALCULATE REST MASS OF AVERAGE AIR TARGET (MASS # 14.6) + AUXIL = 7.3D0 * (PAMA(13)+PAMA(14)) +C ENERGY IN CM SYSTEM (GEV) + ECMVM = SQRT( AUXIL*(AUXIL + 2.D0*PEIG*0.001D0) ) +C THE FRACTION IS THE RATIO OF VECTOR MESON PRODUCTION CROSS-SECTION +C (TO BE CALCULATED ACCORDING R. ENGEL ET AL., PHYS. REV. D55 +C (1997) 6957) TO TOTAL PHOTONUCLEAR CROSS-SECTION +C (SEE T. STANEV ET AL., PHYS. REV. D32 (1985) 1244) +C THE FRACTION LEADING TO A RHO (90%) OR OMEGA (10%) IS FITTED BY + VMFRAC = .11195D0 * ECMVM**0.0870D0 + .51892D0/(ECMVM**1.2891D0) + CALL RMMAR(RD,1,2) + IF ( FEGSDB ) WRITE(MDEBUG,*) 'PIGEN : VMFRAC,RD=', + * SNGL(VMFRAC),RD(1) + IF ( RD(1) .LT. VMFRAC ) THEN + INT_ICOUNT = 0 + CALL RHOGEN + CALL TSTEND + ELSE +C AT HIGHER ENERGIES MORE THAN 2 PIONS ARE GENERATED BY HIGH ENERGY +C HADRONIC INTERACTION MODEL +C FILL CURRENT EGS4-PARTICLE INTO CURPAR + ITYPE = 1 + CURPAR(1) = 1.D0 + CURPAR(2) = PEIG*1.D-3 + CURPAR(3) = MIN( 1.D0, W(NP) ) + CURPAR(4) = ANGLEX + CURPAR(5) =-Z(NP) + CURPAR(6) = TIM(NP) + CURPAR(7) = X(NP) + CURPAR(8) =-Y(NP) + CURPAR(9) = 0.D0 + CURPAR(10) = 1.D0 + CURPAR(12) = SQRT(PAMA(14)*(PAMA(14)+PEIG*2.D-3)) + CURPAR(11) = (PEIG*1.D-3+PAMA(14))/CURPAR(12) + GEN = IGEN(NP) + ALEVEL =-Z(NP) + EKINL = CURPAR(2) + CURPAR(14) = -ZAP(NP) + SECPAR(14) = -ZAP(NP) + CURPAR(15) = WAP(NP) + SECPAR(15) = WAP(NP) + CURPAR(16) = WA(NP) + SECPAR(16) = WA(NP) +C ELIMINATE GAMMA FROM EGS-STACK + NP = NP-1 +C HDPM, VENUS, NEXUS, SIBYLL, QGSJET, DPMJET GIVE ALL PARTICLES TO +C SECPAR. COPY VERTEX COORDINATES INTO SECPAR FOR SECONDARIES + DO K = 5,8 + SECPAR(K) = CURPAR(K) + ENDDO + + INT_ICOUNT = 0 + CALL SDPM + CALL TSTEND +C END OF MANY PION GENERATION + ENDIF +C RESTORE CURPAR PARTICLE FROM REGPAR + DO K = 1,MAXLEN + CURPAR(K) = REGPAR(K) + ENDDO + GEN = REGGEN + ALEVEL = REGLVL + ENDIF + RETURN + END +*CMZ : 28/02/2002 13.12.11 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PIGEN1 + +C----------------------------------------------------------------------- +C PI(ON) GEN(ERATION) 1 (PION) +C +C THIS SUBROUT. DESCRIBES THE PHOTONUCLEAR REACTION +C GAMMA + NUCLEON -----> PION + NUCLEON +C THIS SUBROUTINE IS CALLED FROM PIGEN. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PION/ PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT + DOUBLE PRECISION PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + + DOUBLE PRECISION AMASS2,AMAS2I,AMASS3,AMASS4,AMOM3,AMOM4,ANGLEX, + * BETA,BRATIO,B3CM,B3CM2,COSTE3,ED,ENUCL, + * ESQ,ETH,E3CM,GAMMA,G3, + * PEIG,PEOP,PT,PTRANS,P3CM,W0,W0I,W0S,W0SI + SAVE + EXTERNAL PTRANS +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' PIGEN1: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'PIGEN1: E=',E(NP)*.001D0 + + PEIG = E(NP) +C NUMBERS AT THE VARIABLES MEAN : +C 1 INCOMING GAMMA RAY +C 2 HIT NUCLEON +C 3 PRODUCED PION +C 4 RECOILING NUCLEON +C LOOK WHICH TYPE OF REACTION + CALL RMMAR(RD,2,2) +C 0.49923 IS THE FRACTION OF PROTONS IN AIR + IF ( RD(1) .LE. 0.49923 ) THEN +C HIT NUCLEON IS PROTON + AMASS2 = AMASPR +C 33% CHANCE FOR CHARGE EXCHANGE + IF ( RD(2) .LE. 0.3333333 ) THEN +C PI(+) + NEUTRON PRODUCED + IQ(NP) = 8 + IQ(NP+1) = 13 + ELSE +C PI(0) + PROTON PRODUCED + IQ(NP) = 7 + IQ(NP+1) = 14 + ENDIF + ELSE +C HIT NUCLEON IS NEUTRON + AMASS2 = AMASNT +C 33% CHANCE FOR CHARGE EXCHANGE + IF ( RD(2) .LE. 0.3333333 ) THEN +C PI(-) + PROTON PRODUCED + IQ(NP) = 9 + IQ(NP+1) = 14 + ELSE +C PI(0) + NEUTRON PRODUCED + IQ(NP) = 7 + IQ(NP+1) = 13 + ENDIF + ENDIF + AMAS2I = 1.D0/AMASS2 +C NOTE: THE ENERGIES IN EGS ARE IN MEV, IN CORSIKA IN GEV + AMASS3 = PAMA(IQ(NP))*1.D3 + AMASS4 = PAMA(IQ(NP+1))*1.D3 +C TOTAL LABORATORY ENERGY AND ITS INVERSE + W0 = PEIG+AMASS2 + W0I = 1.D0/W0 +C TOTAL.C.M. ENERGY AND INVERSE OF TOTAL C.M.ENERGY + W0S = SQRT(AMASS2*(AMASS2+2.D0*PEIG)) + W0SI = 1.D0/W0S +C THRESHOLD ENERGY + ETH = 0.5D0*((AMASS3+AMASS4)**2-AMASS2**2)*AMAS2I +C BETA,GAMMA, ESQ, BRATIO, G3 ARE AUXILIARY QUANTITIES + BETA = PEIG*W0I + GAMMA = W0*W0SI + ED = 0.5D0*((AMASS3-AMASS4)**2-AMASS2**2)*AMAS2I + ESQ = SQRT((PEIG-ETH)*(PEIG-ED)) + BRATIO = PEIG/ESQ + G3 = W0I*BRATIO*(PEIG-ETH+AMASS3*AMAS2I*(AMASS3+AMASS4)) +C C.M. ENERGY OF PION + E3CM = G3*AMASS2*GAMMA/BRATIO +C C.M. PION MOMENTUM + P3CM = AMASS2*W0SI*ESQ + B3CM2 = P3CM**2/(P3CM**2+AMASS3**2) + B3CM = SQRT(B3CM2) +C DETERMINE THETA IN C.M. SYSTEM BY CHANCE. + + IF ( PEIG .LE. 900.D0 ) THEN +C PHOTON ENERGY IS BELOW 900 MEV + 210 CONTINUE + CALL RMMAR(RD,2,2) + IF ( IQ(NP) .EQ. 7 ) THEN +C NEUTRAL PION EMITTED, TAKE PURE +C DIPOLE RADIATION: W(COSTH) = 1-3/5*COSTH**2 + COSTE3 = 2.D0*RD(1)-1.D0 + IF ( RD(2) .GT. 1.D0-0.6D0*COSTE3**2 ) GOTO 210 + ELSE +C CHARGED PION EMITTED, TAKE MODIFIED DIPOLE RADIATION +C WITH ASYMMETRY TERM 1/(1-BETACM*COSTE3)**2 + COSTE3 = 1.D0/B3CM - 1.D0/(RD(1)*2.D0*B3CM2/(1.D0-B3CM2) + * + B3CM/(1.D0+B3CM)) + IF ( RD(2)*2.5D0 .GT. 1.D0+COSTE3*(-1.8D0 + COSTE3* + * (.65D0 + COSTE3*(.34D0 -.18D0*COSTE3 ))) ) GOTO 210 + ENDIF + + ELSEIF ( PEIG .LE. 1300.D0 ) THEN +C PHOTON ENERGY BETWEEN 900 AND 1300 MEV + 220 CONTINUE + CALL RMMAR(RD,2,2) + IF ( IQ(NP) .EQ. 7 ) THEN +C NEUTRAL PION EMITTED, TAKE PURE QUADRUPOLE +C RADIATION: W(COSTH) = 1+6*COSTH**2-5*COSTH**4 + COSTE3 = 2.D0*RD(1)-1.D0 + IF ( 2.8D0*RD(2) .GT. + * 1.D0+6.D0*COSTE3**2-5.D0*COSTE3**4 ) GOTO 220 + ELSE +C CHARGED PION EMITTED, TAKE MODIFIED QUADRUPOLE +C RADIATION WITH ASYMMETRY TERM: 1/(1-BETACM*COSTE3)**2 + COSTE3 = 1.D0/B3CM - 1.D0/(RD(1)*2.D0*B3CM2/(1.D0-B3CM2) + * + B3CM/(1.D0+B3CM)) + IF ( 13.2D0*RD(2) .GT. 1.D0 + COSTE3*(-2.18D0 + COSTE3*(7.20D0 + * + COSTE3*(-2.55D0 + COSTE3*(-15.39D0 + COSTE3*(6.36D0 + * + COSTE3*(13.80D0 - COSTE3*8.235D0)))))) ) GOTO 220 + ENDIF + + ELSE +C ABOVE 1300 MEV THE ANGULAR DISTRIBUTION IS DETERMINED +C BY THE TRANSVERSE MOMENTUM OF THE PION + PT = 1.D3*PTRANS() + COSTE3 = SQRT(MAX( 0.D0, P3CM**2-PT**2 ))/P3CM + ENDIF +C PRECISE ENERGY OUTGOING PION = PEOP + PEOP = GAMMA*(E3CM+BETA*P3CM*COSTE3) +C ENERGY OF OUTGOING PION IN STACK POSITION NP + E(NP) = PEOP +C MOMENTUM OF OUTGOING PION = AMOM3 +C COSTHE AND SINTHE ARE ANGLES IN LAB SYSTEM FOR PARTICLE 3 (PION) +C SEE SLAC-265, P. 52 + AMOM3 = SQRT(MAX( 0.D0, PEOP**2-AMASS3**2 )) + IF ( AMOM3 .GT. 0.D0 ) THEN + COSTHE = (AMASS4**2 - AMASS2**2 - AMASS3**2 + 2.D0*PEOP*W0 + * - 2.D0*PEIG*AMASS2)/(2.D0*PEIG*AMOM3) + ELSE + COSTHE = 1.D0 + ENDIF + SINTHE = SQRT(MAX( 0.0D0, 1.D0-COSTHE**2 )) + CALL UPHI(2,1) +C TOTAL ENERGY OF RECOILING NUCLEON = ENUCL + ENUCL = W0-PEOP + IF ( ENUCL-AMASS4 .GT. ELCUT(1)*1000.D0 ) THEN +C RECOIL ENERGY IS TOO LARGE, MUST TREAT THE NUCLEON + NP = NP+1 + E(NP) = ENUCL +C MOMENTUM OF RECOIL NUCLEON + AMOM4 = SQRT(ENUCL**2-AMASS4**2) +C COSTHE AND SINTHE ARE ANGLES IN LAB SYSTEM FOR RECOIL NUCLEON +C SEE SLAC-265, P. 52 + COSTHE = (AMASS3**2 - AMASS2**2 - AMASS4**2 + 2.D0*ENUCL*W0 + * - 2.D0*PEIG*AMASS2)/(2.D0*PEIG*AMOM4) + SINTHE = -SQRT(MAX( 0.0D0, 1.D0-COSTHE**2 )) + CALL UPHI(3,2) + IF ( E(NP)-AMASS4 .GT. ELCUT(1)*1000.D0 ) THEN + IF ( W(NP) .GT. C(29) ) THEN +C ANGLE WITH RESPECT TO X AXIS + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF +C ADD NUCLEON TO CORSIKA STACK + SECPAR(1) = IQ(NP) + SECPAR(2) = E(NP)/AMASS4 + SECPAR(3) = MIN( 1.D0, W(NP) ) + SECPAR(4) = ANGLEX + SECPAR(5) = -Z(NP) + SECPAR(6) = TIM(NP) + SECPAR(7) = X(NP) + SECPAR(8) = -Y(NP) + SECPAR(11) = 1.D0 + SECPAR(12) = 0.D0 + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS OF NUCLEON + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7) + * + (E(NP)-AMASS4) * 1.D-3 + ENDIF + ENDIF + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS OF NUCLEON + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7) + * + (E(NP)-AMASS4) * 1.D-3 + ENDIF + ENDIF +C ELIMINATE NUCLEON FROM EGS-STACK + NP = NP-1 + ENDIF +C END OF RECOIL NUCLEON TREATMENT CASE + RETURN + END +*CMZ : 11/01/2002 09.25.09 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PIGEN2 + +C----------------------------------------------------------------------- +C PI(ON) GEN(ERATION) 2 (PIONS) +C +C THIS SUBROUT. DESCRIBES THE PHOTONUCLEAR REACTION +C GAMMA + NUCLEON -----> PION + PION + NUCLEON +C THIS SUBROUTINE IS CALLED FROM PIGEN. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PION/ PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT + DOUBLE PRECISION PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + + DOUBLE PRECISION AMASS2,AMASS3,AMASS4,AMASS5,AM34SQ,AM35SQ,AM34I, + * ANGLEX,AUXA,AUXB,AUX1,AUX2,AUX2A,AUX3,AUX4, + * AUX4A,AUX5,AUX6,AUX7,AUX8,BETA,COSA,COSB, + * COSFI3,COSPSI,COS3CM,COS4CM,COS5CM,DISCR, + * ECM,ENUCL,E3CM,E4CM,E5CM,E3STAR,E5STAR, + * GAMMA,HELP,PEIG,P3CM,P4CM,P5CM, + * P3SQ,P4SQ,P5SQ,ROOT1,ROOT2,SINA,SINB, + * SINFI3,SINPSI,SINT4,SINT4I,SINT5,SINT5I,SIN3CM, + * PSI,PTRANS,PT3 + INTEGER IHELP + SAVE + EXTERNAL PTRANS +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' PIGEN2: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'PIGEN2: E=',E(NP)*.001D0 + + PEIG = E(NP) +C NUMBERS AT THE VARIABLES MEAN : +C 1 INCOMING GAMMA RAY +C 2 HIT NUCLEON +C 3 FIRST PRODUCED PION +C 4 SECOND PRODUCED PION +C 5 RECOILING NUCLEON + CALL RMMAR(RD,2,2) +C LOOK WHICH TYPE OF REACTION +C 0.49923 IS THE FRACTION OF PROTONS IN AIR + IF ( RD(1) .LE. 0.49923 ) THEN +C HIT NUCLEON IS PROTON + AMASS2 = AMASPR +C BRANCHING FOR COLLISION WITH PROTON + IF ( RD(2) .LE. 0.3 ) THEN +C PI(0) + PI(0) + PROTON + IQ(NP) = 7 + IQ(NP+1) = 7 + IQ(NP+2) = 14 + ELSEIF ( RD(2) .LE. 0.6 ) THEN +C PI(+) + PI(-) + PROTON + IQ(NP) = 8 + IQ(NP+1) = 9 + IQ(NP+2) = 14 + ELSE +C PI(+) + PI(0) + NEUTRON + IQ(NP) = 8 + IQ(NP+1) = 7 + IQ(NP+2) = 13 + ENDIF + ELSE +C HIT NUCLEON IS NEUTRON +C BRANCHING FOR COLLISION WITH NEUTRON + AMASS2 = AMASNT + IF ( RD(2) .LE. 0.3 ) THEN +C PI(0) + PI(0) + NEUTRON + IQ(NP) = 7 + IQ(NP+1) = 7 + IQ(NP+2) = 13 + ELSEIF ( RD(2) .LE. 0.6 ) THEN +C PI(+) + PI(-) + NEUTRON + IQ(NP) = 8 + IQ(NP+1) = 9 + IQ(NP+2) = 13 + ELSE +C PI(-) + PI(0) + PROTON + IQ(NP) = 9 + IQ(NP+1) = 7 + IQ(NP+2) = 14 + ENDIF + ENDIF +C CALCULATE AUXILIARY PARAMETERS + ECM = SQRT(AMASS2*(AMASS2+2.D0*PEIG)) +C NOTE: THE ENERGIES IN EGS ARE IN MEV, IN CORSIKA IN GEV +C HERE ALL ENERGIES ARE USED IN MEV + AMASS3 = PAMA(IQ(NP))*1.D3 + AMASS4 = PAMA(IQ(NP+1))*1.D3 + AMASS5 = PAMA(IQ(NP+2))*1.D3 + AUX1 = (AMASS3+AMASS4)**2 + AUX2A = (ECM - AMASS5)**2 + AUX2 = AUX2A-AUX1 + AUX3 = (AMASS3+AMASS5)**2 + AUX4A = (ECM - AMASS4)**2 + AUX4 = AUX4A-AUX3 + AUX5 = AMASS3**2-AMASS4**2 + AUX6 = ECM**2-AMASS5**2 + AUX7 = 0.5D0/ECM + AUX8 = (ECM - AMASS3)**2 + BETA = PEIG/(AMASS2+PEIG) + GAMMA = 2.D0*(PEIG+AMASS2)*AUX7 + 230 CONTINUE + CALL RMMAR(RD,2,2) +C ARE INVARIANT MASS SQUARES INSIDE BOUNDARY OF DALITZ PLOT? + AM34SQ = AUX2*RD(1)+AUX1 + AM35SQ = AUX4*RD(2)+AUX3 + AM34I = 0.5D0/SQRT(AM34SQ) + E3STAR = (AUX5+AM34SQ)*AM34I + E5STAR = (AUX6-AM34SQ)*AM34I + ROOT1 = SQRT(MAX( 0.D0, E3STAR**2-AMASS3**2 )) + ROOT2 = SQRT(MAX( 0.D0, E5STAR**2-AMASS5**2 )) +C REJECT RANDOM NUMBERS, IF NOT INSIDE KINEMATIC BOUNDARY + DISCR = AM35SQ-(E3STAR+E5STAR)**2 + IF ( DISCR .GT. -((ROOT1-ROOT2)**2) ) GOTO 230 + IF ( DISCR .LT. -((ROOT1+ROOT2)**2) ) GOTO 230 +C E3CM,E4CM,E5CM ARE ENERGIES IN C.M. SYSTEM + E4CM = (ECM**2+AMASS4**2-AM35SQ)*AUX7 + E5CM = (ECM**2+AMASS5**2-AM34SQ)*AUX7 +C NOW TAKE PION WITH HIGHEST ENERGY AS PARTICLE 3 + E3CM = ECM-E4CM-E5CM + IF ( E4CM .GT. E3CM ) THEN +C INTERCHANGE PARTICLE 3 AND 4 + HELP = E3CM + E3CM = E4CM + E4CM = HELP + HELP = AMASS3 + AMASS3 = AMASS4 + AMASS4 = HELP + IHELP = IQ(NP) + IQ(NP) = IQ(NP+1) + IQ(NP+1) = IHELP + ENDIF +C P3CM,P4CM,P5CM ARE MOMENTA IN C.M. SYSTEM +C P3SQ,P4SQ,P5SQ ARE SQUARED MOMENTA IN C.M. SYSTEM + P3SQ = E3CM**2-AMASS3**2 + P3CM = SQRT(MAX( 0.D0, P3SQ )) + P4SQ = E4CM**2-AMASS4**2 + P4CM = SQRT(MAX( 0.D0, P4SQ )) + P5SQ = E5CM**2-AMASS5**2 + P5CM = SQRT(MAX( 0.D0, P5SQ )) + COSA = (P5SQ-P3SQ-P4SQ)/(2.D0*P3CM*P4CM) + SINA =-SQRT(MAX( 0.D0, 1.D0-COSA**2 )) + COSB = (P4SQ-P3SQ-P5SQ)/(2.D0*P3CM*P5CM) + SINB = SQRT(MAX( 0.D0, 1.D0-COSB**2 )) +C NOW SELECT THE THREE INDEPENDENT ANGLES IN C.M. SYSTEM + PT3 = 1.D3*PTRANS() + SIN3CM = MIN( 1.D0, PT3/P3CM ) + COS3CM = SQRT(1.D0-SIN3CM**2) + CALL RMMAR(RD,1,2) + PSI = TWOPI*RD(1) + SINPSI = SIN(PSI) + COSPSI = COS(PSI) +C THIRD INDEPENDENT ANGLE PHI IS CHOOSEN LATER IN SUBR. UPHI +C NOW MAKE LORENTZ TRANSFORMATION FOR PARTICLE 3 (PION) + E(NP) = GAMMA*(E3CM+BETA*P3CM*COS3CM) +C COSTHE AND SINTHE ARE ANGLES IN LAB SYSTEM FOR PARTICLE 3 (PION) + COSTHE = MIN((BETA*E3CM+P3CM*COS3CM)*GAMMA/SQRT(MAX(0.D0,E(NP)**2 + * -AMASS3**2)),1.D0) + SINTHE = SQRT(MAX( 0.D0, 1.D0-COSTHE**2 )) +C SINPHI AND COSPHI ARE NOW SET IN SUBR. UPHI + CALL UPHI(2,1) + SINFI3 = SINPHI + COSFI3 = COSPHI +C NOW MAKE LORENTZ TRANSFORMATION FOR PARTICLE 4 = PION + COS4CM = COS3CM*COSA-SIN3CM*COSPSI*SINA + NP = NP+1 + E(NP) = GAMMA*(E4CM+BETA*P4CM*COS4CM) + SINT4 = SQRT(MAX( 0.D0, 1.D0-COS4CM**2 )) + IF ( SINT4 .NE. 0.D0 ) THEN + SINT4I = 1.D0/SINT4 + AUXA = COS3CM*COSPSI*SINA+SIN3CM*COSA +C COSPHI AND SINPHI ARE IN LAB SYSTEM FOR PARTICLE 4 (PION) + COSPHI = (COSFI3*AUXA-SINFI3*SINPSI*SINA)*SINT4I + SINPHI = (SINFI3*AUXA+COSFI3*SINPSI*SINA)*SINT4I + ELSE + COSPHI = 0.D0 + SINPHI = 1.D0 + ENDIF +C COSTHE AND SINTHE ARE IN LAB SYSTEM FOR PARTICLE 4 (PION) + COSTHE = MIN((BETA*E4CM+P4CM*COS4CM)*GAMMA/SQRT(MAX(0.D0,E(NP)**2 + * -AMASS4**2)),1.D0) + SINTHE = SQRT(MAX( 0.0D0, 1.D0-COSTHE**2 )) + CALL UPHI(3,2) +C NOW MAKE LORENTZ TRANSFORMATION FOR PARTICLE 5 = RECOIL NUCLEON + COS5CM = COS3CM*COSB-SIN3CM*COSPSI*SINB + ENUCL = GAMMA*(E5CM+BETA*P5CM*COS5CM) + NP = NP+1 + E(NP) = ENUCL + SINT5 = SQRT(MAX( 0.D0, 1.D0-COS5CM**2 )) + IF ( SINT5 .NE. 0.D0 ) THEN + SINT5I = 1.D0/SINT5 + AUXB = COS3CM*COSPSI*SINB+SIN3CM*COSB +C COSPHI AND SINPHI ARE IN LAB SYSTEM FOR PART. 5 (NUCLEON) + COSPHI = (COSFI3*AUXB-SINFI3*SINPSI*SINB)*SINT5I + SINPHI = (SINFI3*AUXB+COSFI3*SINPSI*SINB)*SINT5I + ELSE + COSPHI = 0.D0 + SINPHI = 1.D0 + ENDIF +C COSTHE AND SINTHE ARE IN LAB SYSTEM FOR PARTICLE 5 (NUCLEON) + COSTHE=MIN((BETA*E5CM+P5CM*COS5CM)*GAMMA/SQRT(ENUCL**2-AMASS5**2) + * , 1.D0) + SINTHE = SQRT(MAX( 0.0D0, 1.D0-COSTHE**2 )) + CALL UPHI(3,2) + IF ( E(NP)-AMASS5 .GT. ELCUT(1)*1000.D0 ) THEN + IF ( W(NP) .GT. C(29) ) THEN +C ANGLE WITH RESPECT TO X AXIS + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF +C ADD NUCLEON TO CORSIKA STACK + SECPAR(1) = IQ(NP) + SECPAR(2) = E(NP)/AMASS5 + SECPAR(3) = MIN( 1.D0, W(NP) ) + SECPAR(4) = ANGLEX + SECPAR(5) =-Z(NP) + SECPAR(6) = TIM(NP) + SECPAR(7) = X(NP) + SECPAR(8) =-Y(NP) + SECPAR(11) = 1.D0 + SECPAR(12) = 0.D0 + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7) + * + (E(NP)-AMASS5) * 1.D-3 + ENDIF + ENDIF + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7) + * + (E(NP)-AMASS5) * 1.D-3 + ENDIF + ENDIF +C ELIMINATE NUCLEON FROM EGS-STACK + NP = NP-1 +C END OF RECOIL NUCLEON TREATMENT CASE + +C STORE SECOND PION TO CORSIKA STACK + CALL PIPROP +C STORE FIRST PION TO CORSIKA STACK + CALL PIPROP + + RETURN + END +*CMZ : 11/01/2002 09.25.09 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK FZK KARLSRUHE 01/09/2001 +C======================================================================= + + SUBROUTINE PIPROP + +C----------------------------------------------------------------------- +C PI(ON) PROP(AGATION) +C +C MOVES PIONS FROM EGS-STACK TO CORSIKA-STACK. +C THIS SUBROUTINE IS CALLED FROM PIGEN2. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEND. + COMMON /MUON/ PRRMMU,RMMUT2 + DOUBLE PRECISION PRRMMU,RMMUT2 +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PION/ PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT + DOUBLE PRECISION PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + + DOUBLE PRECISION AMASS,ANGLEX,CUT + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' PIPROP: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + +C SET MASS AND CUT PARAMETER OF PARTICLE UNDER CONSIDERATION + IF ( IQ(NP) .EQ. 7 ) THEN + AMASS = PI0MAS + CUT = ELCUT(1)*1000.D0 + POLART = 1.D0 + POLARF = 0.D0 + ELSE + AMASS = PICMAS + CUT = ELCUT(1)*1000.D0 + POLART = 1.D0 + POLARF = 0.D0 + ENDIF +C USE PARTICLE ONLY IF INSIDE ACCEPTANCE CONE + IF ( W(NP) .GT. C(29) ) THEN +C ANGLE WITH RESPECT TO X AXIS + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF +C FILL PION COORDINATES INTO CORSIKA-STACK + SECPAR(1) = IQ(NP) + SECPAR(2) = E(NP)/AMASS + SECPAR(3) = MIN( 1.D0, W(NP) ) + SECPAR(4) = ANGLEX + SECPAR(5) = -Z(NP) + SECPAR(6) = TIM(NP) + SECPAR(7) = X(NP) + SECPAR(8) = -Y(NP) + SECPAR(9) = IGEN(NP) + SECPAR(10) = -Z(NP) + SECPAR(11) = POLART + SECPAR(12) = POLARF + SECPAR(14) = -ZAP(NP) + SECPAR(15) = WAP(NP) + SECPAR(16) = WA(NP) +C ADD PION TO CORSIKA-STACK + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS OF HADRONS + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7)+E(NP)*1.D-3 + ENDIF + ENDIF +C ELIMINATE PION FROM EGS-STACK + NP = NP-1 + RETURN + END +*CMZ : 11/01/2002 09.25.09 by D. HECK IK FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 28/06/99 +C======================================================================= + + SUBROUTINE RHOGEN + +C----------------------------------------------------------------------- +C RHO GEN(ERATION BY PHOTONUCLEAR REACTION) +C +C THIS SUBROUT. DESCRIBES THE PHOTONUCLEAR REACTION +C GAMMA + NUCLEON -----> RHO + NUCLEON (90%) +C GAMMA + NUCLEON -----> OMEGA + NUCLEON (10%) +C HIGHER MASS VECTOR MESONS ARE OMITTED. THE RATIO FOR PRODUCTION +C OF RHO AND OMEGA IS ASSUMED TO BE 9:1 +C LITERATURE: A. DONNACHIE & G. SHAW, ELECTROMAGNETIC INTERACTIONS OF +C HADRONS (PLENUM PRESS, NEW YORK, 1978) +C A. MUECKE ET AL., SOPHIA: MONTE CARLO SIMULATIONS OF +C PHOTOHADRONIC PROCESSES IN ASTROPHYSICS, +C COMPUT. PHYS. COMMUN. (1999) IN PRESS +C THIS SUBROUTINE IS CALLED FROM PIGEN. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEND. + COMMON /PION/ PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT + DOUBLE PRECISION PI0MSQ,PITHR,PICMAS,PI0MAS,AMASK0,AMASKC,AMASPR, + * AMASNT +*KEEP,POLAR. + COMMON /POLAR/ POLART,POLARF + DOUBLE PRECISION POLART,POLARF +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RESON. + COMMON /RESON/ RDRES,RESRAN,IRESPAR + REAL RDRES(2),RESRAN(30000) + INTEGER IRESPAR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,REJECT. + COMMON /REJECT/ AVNREJ,ALTMIN,ANEXP,THICKA,THICKD,CUTLN,EONCUT, + * FNPRIM + DOUBLE PRECISION AVNREJ(10),ALTMIN(10),ANEXP(10),THICKA(10), + * THICKD(10),CUTLN,EONCUT + LOGICAL FNPRIM +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + + DOUBLE PRECISION AMASS2,AMAS2I,AMAS2S,AMASS3,AMASS4,AMOM3,AMOM4, + * ANGLEX,AUX3,BDIFF,BETA,BRATIO, + * ED,ENUCL,ESQ,ETH,E3CM,E2,E4, + * GAMMA,G3,PCM2,PCM4,PEIG,PEOM,PLNG3,P3CM, + * T,TMAX,TMIN,W0,W0I,W0S,W0SI + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP) + 1 FORMAT(' RHOGEN: NP=',I3,' IR=',I3,' IOBS=',I3) + CALL AUSGB2 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'RHOGEN: E=',E(NP)*.001D0 + + PEIG = E(NP) +C NUMBERS AT THE VARIABLES MEAN : +C 1 INCOMING GAMMA RAY +C 2 HIT NUCLEON +C 3 PRODUCED MESON +C 4 RECOILING NUCLEON +C LOOK WHICH TYPE OF REACTION + CALL RMMAR(RD,3,2) +C 0.49923 IS THE FRACTION OF PROTONS IN AIR + IF ( RD(1) .LE. 0.49923 ) THEN +C HIT NUCLEON IS PROTON + IQ(NP+1) = 14 + AMASS2 = AMASPR + ELSE +C HIT NUCLEON IS NEUTRON + IQ(NP+1) = 13 + AMASS2 = AMASNT + ENDIF + AMAS2I = 1.D0/AMASS2 + AMAS2S = AMASS2**2 + IF ( RD(2) .LT. 0.1 ) THEN +C PRESENTLY WE ARE ONLY TAKING INTO ACCOUNT RHO AND OMEGA MESON. +C PHI MESON IS NEGLECTED +C 10% CHANCE FOR OMEGA MESON + IQ(NP) = 50 + ELSE +C GENERATED MESON IS RHO(0) + IQ(NP) = 51 + ENDIF +C NOTE: THE ENERGIES IN EGS ARE IN MEV, IN CORSIKA IN GEV + AMASS3 = PAMA(IQ(NP))*1.D3 + AMASS4 = PAMA(IQ(NP+1))*1.D3 +C TOTAL LABORATORY ENERGY AND ITS INVERSE + W0 = PEIG+AMASS2 + W0I = 1.D0/W0 +C TOTAL.C.M. ENERGY AND INVERSE OF TOTAL C.M.ENERGY + W0S = SQRT(AMASS2*(AMASS2+2.D0*PEIG)) + W0SI = 1.D0/W0S +C THRESHOLD ENERGY + ETH = 0.5D0*((AMASS3+AMASS4)**2-AMAS2S)*AMAS2I +C BETA, GAMMA, ESQ, BRATIO, G3 ARE AUXILIARY QUANTITIES + BETA = PEIG*W0I + GAMMA = W0*W0SI + ED = 0.5D0*((AMASS3-AMASS4)**2-AMAS2S)*AMAS2I + ESQ = SQRT((PEIG-ETH)*(PEIG-ED)) + BRATIO = PEIG/ESQ + G3 = W0I*(PEIG-ETH+AMASS3*AMAS2I*(AMASS3+AMASS4)) +C C.M. ENERGY OF MESON + E3CM = G3*AMASS2*GAMMA +C C.M. MESON MOMENTUM + P3CM = AMASS2*W0SI*ESQ +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C THE FOLLOWING SELECTION OF TRANSFERRED MOMENTUM IS IN ANALOGY WITH +C PROGRAM SOPHIA (SUBROUT. GAMMA_H OF R. ENGEL). ANGULAR DISTRIBUTION +C IS ACCORDING D(SIGMA)/DT = EXP( B_DIFFRACTIVE * T) +C WITH B_DIFFRACTIVE = 8 GEV^-2 = 8*10-6 [MEV^-2] + BDIFF = 8.D-6 +C AUXILIAR QUANTITIES AUX3, E2, E4, PCM2, PCM4 + AUX3 = 0.5D0 * AMASS3**2 * W0SI + E2 = 0.5D0 * (W0S + AMAS2S * W0SI) + E4 = E2 - AUX3 + PCM2 = SQRT(E2**2 - AMAS2S) + PCM4 = SQRT(E4**2 - AMAS2S) +C BOUNDARIES FOR MOMENTUM TRANSFER TMIN AND TMAX + TMIN = AUX3**2 - (PCM2 + PCM4)**2 + TMAX = AUX3**2 - (PCM2 - PCM4)**2 + IF (FEGSDB) WRITE(MDEBUG,*) 'RHOGEN: E2,E4,PCM2,PCM4,TMIN,TMAX=', + * SNGL(E2*0.001),SNGL(E4*0.001),SNGL(PCM2*0.001), + * SNGL(PCM4*0.001),SNGL(TMIN*0.001),SNGL(TMAX*0.001) +C SELECT THE MOMENTUM TRANSFER T BY CHANCE + T = RD(3)*(EXP(BDIFF*TMAX)-EXP(BDIFF*TMIN))+EXP(BDIFF*TMIN) + T = LOG(T) / BDIFF +C KINEMATIC CALCULATION OF LONGITUDINAL MOMENTUM + PLNG3 = (E2*E4 + 0.5D0*T - AMAS2S) / PCM2 + PLNG3 = ABS(PLNG3) +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C PRECISE ENERGY OUTGOING MESON = PEOM + PEOM = GAMMA*(E3CM+BETA*PLNG3) + IF ( FEGSDB ) WRITE(MDEBUG,*) 'RHOGEN: RD,T,PLNG3,PEOM=', + * RD(3),SNGL(T*0.001),SNGL(PLNG3*0.001),SNGL(PEOM*0.001) +C ENERGY OF OUTGOING MESON IN STACK POSITION NP + E(NP) = PEOM +C MOMENTUM OF OUTGOING MESON = AMOM3 +C COSTHE AND SINTHE ARE ANGLES IN LAB SYSTEM FOR PARTICLE 3 (MESON) +C SEE SLAC-265, P. 52 + AMOM3 = SQRT(MAX( 0.D0, PEOM**2-AMASS3**2 )) + IF ( AMOM3 .GT. 0.D0 ) THEN + COSTHE = (AMASS4**2 - AMAS2S - AMASS3**2 + 2.D0*PEOM*W0 + * - 2.D0*PEIG*AMASS2)/(2.D0*PEIG*AMOM3) + ELSE + COSTHE = 1.D0 + ENDIF + SINTHE = SQRT(MAX( 0.0D0, 1.D0-COSTHE**2 )) + CALL UPHI(2,1) +C TOTAL ENERGY OF RECOILING NUCLEON ( = ENUCL) + ENUCL = W0-PEOM + NP = NP+1 + E(NP) = ENUCL + IF ( ENUCL-AMASS4 .GT. ELCUT(1)*1000.D0 ) THEN +C RECOIL ENERGY IS TOO LARGE, MUST TREAT THE NUCLEON +C MOMENTUM OF RECOIL NUCLEON + AMOM4 = SQRT(ENUCL**2-AMASS4**2) +C COSTHE AND SINTHE ARE ANGLES IN LAB SYSTEM FOR RECOIL NUCLEON +C SEE SLAC-265, P. 52 + COSTHE = (AMASS3**2 - AMAS2S - AMASS4**2 + 2.D0*ENUCL*W0 + * - 2.D0*PEIG*AMASS2)/(2.D0*PEIG*AMOM4) + SINTHE = -SQRT(MAX( 0.0D0, 1.D0-COSTHE**2 )) + CALL UPHI(3,2) + IF ( W(NP) .GT. C(29) ) THEN +C ANGLE WITH RESPECT TO X AXIS + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF +C ADD NUCLEON TO CORSIKA STACK + SECPAR(1) = IQ(NP) + SECPAR(2) = E(NP)/AMASS4 + SECPAR(3) = MIN( 1.D0, W(NP) ) + SECPAR(4) = ANGLEX + SECPAR(5) = -Z(NP) + SECPAR(6) = TIM(NP) + SECPAR(7) = X(NP) + SECPAR(8) = -Y(NP) + SECPAR(11) = 1.D0 + SECPAR(12) = 0.D0 + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS TO NUCLEON + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7) + * + (E(NP)-AMASS4) * 1.D-3 + ENDIF + ENDIF +C ELIMINATE NUCLEON FROM EGS-STACK + NP = NP-1 + IF ( NP .LE. 0 ) RETURN + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS TO NUCLEON + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7) + * + (E(NP)-AMASS4) * 1.D-3 + ENDIF +C ELIMINATE NUCLEON FROM EGS-STACK + NP = NP-1 +C END OF RECOIL NUCLEON TREATMENT CASE + ENDIF +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + IF ( IQ(NP) .GE. 50 ) THEN +C NOW TREAT THE VECTOR MESON + IF ( W(NP) .GT. C(29) ) THEN +C ANGLE WITH RESPECT TO X AXIS + IF ( U(NP) .NE. 0.D0 .OR. V(NP) .NE. 0.D0 ) THEN + ANGLEX = -ATAN2(V(NP),U(NP)) + ELSE + ANGLEX = 0.D0 + ENDIF + IF ( IQ(NP) .EQ. 50 ) THEN +C ADD OMEGA MESON TO CORSIKA-STACK (TO BE TREATED IN RESDEC) + SECPAR(1) = IQ(NP) + SECPAR(2) = E(NP)/AMASS3 + SECPAR(3) = MIN( 1.D0, W(NP) ) + SECPAR(4) = ANGLEX + SECPAR(5) = -Z(NP) + SECPAR(6) = TIM(NP) + SECPAR(7) = X(NP) + SECPAR(8) = -Y(NP) + SECPAR(9) = IGEN(NP) + SECPAR(10) = -Z(NP) + SECPAR(11) = POLART + SECPAR(12) = POLARF + SECPAR(14) = -ZAP(NP) + SECPAR(15) = WAP(NP) + SECPAR(16) = WA(NP) + IRESPAR = IRESPAR + 1 + IF ( IRESPAR .GE. 30000 ) THEN + WRITE(MONIOU,*) + * 'RHOGEN: STACK OF RESDEC RANDOM NUMBERS FULL' + IRESPAR = 29999 + ENDIF +C STORE DUMMY RANDOM NUMBER FOR TREATMENT OF OMEGA0 IN RESDEC + RESRAN(IRESPAR) = 0.5 + CALL TSTACK +C FINALLY OMEGA WILL BE TREATED IN OMEGDC (OMEGA DECAY ROUTINE) +C WITH CORRECT ANGULAR DISTRIBUTION +* CALL OMEGDC + ELSEIF ( IQ(NP) .EQ. 51 ) THEN +C FILL VECTOR MESON COORDINATES INTO CORSIKA-STACK +C (CURPAR HAS BEEN SAVED IN PIGEN) + ITYPE = IQ(NP) + CURPAR(1) = IQ(NP) + CURPAR(2) = E(NP)/AMASS3 + CURPAR(3) = MIN( 1.D0, W(NP) ) + CURPAR(4) = ANGLEX + CURPAR(5) = -Z(NP) + CURPAR(6) = TIM(NP) + CURPAR(7) = X(NP) + CURPAR(8) = -Y(NP) + CURPAR(9) = IGEN(NP) + CURPAR(10) = -Z(NP) + CURPAR(11) = POLART + CURPAR(12) = POLARF + CURPAR(14) = -ZAP(NP) + CURPAR(15) = WAP(NP) + CURPAR(16) = WA(NP) +C RHO(0) DECAYS WITH DIPOLE CHARACTERISTIC IN RHO0DC + + CALL RHO0DC + ELSE + WRITE(MONIOU,*) 'RHOGEN: WRONG PARTICLE CODE=',IQ(NP) + STOP + ENDIF + ELSE + IF ( LLONGI ) THEN +C CUTTED ENERGY TO LONGITUDINAL ENERGY SUMS OF HADRONS + DLONG(LPCTE(NP),7) = DLONG(LPCTE(NP),7)+E(NP)*1.D-3 + ENDIF + ENDIF +C ELIMINATE VECTOR MESON FROM EGS-STACK + NP = NP-1 + ENDIF + + RETURN + END +*CMZ : 18/09/2001 13.38.55 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE SHOWER + +C----------------------------------------------------------------------- +C SHOWER (STEERING) +C +C THIS ROUTINE LOOKS, WHAT IS ON TOP OF EGS-STACK, AND CALLS THE +C APPROPRIATE ROUTINE TO TREAT THIS PARTICLE. +C THIS SUBROUTINE IS CALLED FROM EGS4. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEND. + COMMON /MISC/ DUNIT,RHOR,KMPI,KMPO,NOSCAT,MED,IRAYLR + DOUBLE PRECISION DUNIT,RHOR(6) + INTEGER KMPI,KMPO,NOSCAT,MED(6),IRAYLR(6) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + + INTEGER IRCODE + SAVE +C----------------------------------------------------------------------- + +C TAKE FIRST PARTICLE IN STACK + NP = 1 + +C DECIDE WHAT IS ON TOP OF STACK + 261 CONTINUE + IF ( FEGSDB ) THEN + WRITE(MDEBUG,1) NP,IR(NP),IOBS(NP),IQ(NP) + 1 FORMAT(' SHOWER: NP=',I3,' IR=',I3,' IOBS=',I3,' IQ=',I3) + CALL AUSGB2 + ENDIF +C JUMP TO PARTICLE IN QUESTION. THE FOLLOWING PARTICLE IDENTIFICATION +C IS MADE BY THE VALUE OF IQ(NP) (ACCORDING TO CORSIKA) +C IQ = 1 PHOTON +C = 2 POSITRON E (+) +C = 3 ELECTRON E (-) +C = 5 POSITIVE MUON (+) +C = 6 NEGATIVE MUON (-) +C = 7 NEUTRAL PION (0) +C = 8 POSITIVE PION (+) +C = 9 NEGATIVE PION (-) +C = OTHER VALUE, JUMP TO ERROR MESSAGE + + GOTO (270,280,280,290, 300,300,300,300,300) (IQ(NP)) +C IQ OUT OF RANGE? + 290 WRITE(KMPO,320) IQ(NP) + 320 FORMAT(' SHOWER: PARTICLE TYPE ',I5,' NOT IDENTIFIED') + CALL AUSGB2 + NP = NP-1 + GOTO 262 + +C PARTICLE IS MUON OR PION + 300 CALL MPPROP + GOTO 262 + +C PARTICLE IS PHOTON + 270 CALL PHOTON(IRCODE) +C PHOTON DISCARDED ? + IF ( IRCODE .EQ. 2 ) GOTO 262 + IF ( IQ(NP) .LT. 2 .OR. IQ(NP) .GT. 3 ) GOTO 261 + +C PARTICLE IS ELECTRON OR POSITRON + 280 CALL ELECTR(IRCODE) +C ELECTRON DISCARDED ? + IF ( IRCODE .EQ. 2 ) GOTO 262 + IF ( IQ(NP) .EQ. 1 ) GOTO 270 +C LOOP BACK UP TO PARTICLE SELECTION + GOTO 261 + + 262 CONTINUE +C CHECK TO SEE IF ANYTHING LEFT ON STACK + IF ( NP .GT. 0 ) GOTO 261 +C NOTHING ON STACK, SO JUMP OUT OF LOOP + + RETURN + END +*CMZ : 18/12/2001 10.00.42 by D. HECK IK FZK KARLSRUHE +*-- Author : STANFORD LINEAR ACCELERATOR CENTER +C======================================================================= +C STANFORD LINEAR ACCELERATOR CENTER + SUBROUTINE UPHI(IENTRY,LVL) +C VERSION 4.00 -- 26 JAN 1986/1900 +C----------------------------------------------------------------------- +C U(NIFORM) PHI (DISTRIBUTION) +C +C SET COORDINATES FOR NEW PARTICLE OR RESET DIRECTION COSINES OF +C OLD ONE. GENERATE RANDOM AZIMUTH SELECTION AND REPLACE THE +C DIRECTION COSINES WITH THEIR NEW VALUES. +C THIS SUBROUTINE IS CALLED FROM ANNIH, BHABHA, BREMS, COMPT, ELECTR, +C MOLLER, MUPAIR, PAIR, PHOTON, PIGEN1, PIGEN2, RHOGEN. +C ARGUMENTS: +C IENTRY = 1 THETA IS KNOWN, DETERMINE SINTHE,COSTHE AND PHI +C 2 SINTHE AND COSTHE ARE KNOWN, SELECT PHI AT RANDOM +C 3 SINTHE, COSTHE NAD PHI ARE KNOWN +C LVL = 1 OLD PARTICLE, SAVE ITS DIRECTION AND ADJUST IT +C 2 NEW PARTICLE. ADJUST DIRECTION USING SAVED A,B,C +C 3 BREMSSTRAHLUNG GAMMA. SAVE ELECTRON DIRECTION AND ADJUST +C GAMMA DIRECTION +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,EPCONT. + COMMON /EPCONT/ EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW,EKE,ELKE,BETA2,GLE,TSCAT, + * IDISC,IROLD,IRNEW + DOUBLE PRECISION EDEP,RATIO,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, + * RHOFAC,EOLD,ENEW, EKE,ELKE,BETA2,GLE,TSCAT + INTEGER IDISC,IROLD,IRNEW + +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + COMMON /UPHIOT/ THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + DOUBLE PRECISION THETA,SINTHE,COSTHE,SINPHI,COSPHI,PI,TWOPI + + DOUBLE PRECISION A,B,C,COSDEL,PHI,SINDEL,SINPSI,SINPS2,US,VS + INTEGER IENTRY,LVL + SAVE +C----------------------------------------------------------------------- + + IF ( IENTRY .EQ. 2 ) GOTO 1070 + IF ( IENTRY .EQ. 3 ) GOTO 1080 + 1090 CONTINUE + SINTHE = SIN(THETA) + COSTHE = COS(THETA) +C USE THE FOLLOWING ENTRY IF SINTHE AND COSTHE ARE ALREADY KNOWN. +C SELECT PHI UNIFORMLY OVER THE INTERVAL (0,TWO PI). + 1070 CALL RMMAR(RD,1,2) + PHI = RD(1)*TWOPI + SINPHI = SIN(PHI) + COSPHI = COS(PHI) +C USE THE FOLLOWING ENTRY FOR THE SECOND OF TWO PARTICLES WHEN WE +C KNOW TWO PARTICLES HAVE A RELATIONSHIP IN THEIR CORRECTIONS. +C NOTE: SINTHE AND COSTHE CAN BE CHANGED OUTSIDE THROUGH COMMON. +C LVL IS A PARAMETER TELLING WHICH PARTICLES TO WORK WITH. +C THETA (SINTHE AND COSTHE) ARE ALWAYS RELATIVE TO THE DIRECTION +C OF THE INCIDENT PARTICLE BEFORE ITS DIRECTION WAS ADJUSTED. +C THUS WHEN TWO PARTICLES NEED TO HAVE THEIR DIRECTIONS COMPUTED, +C THE ORIGINAL INCIDENT DIRECTION IS SAVED IN THE VARIABLE A,B,C +C SO THAT IT CAN BE USED ON BOTH CALLS. +C LVL=1 -- OLD PARTICLE, SAVE ITS DIRECTION AND ADJUST IT +C LVL=2 -- NEW PARTICLE. ADJUST DIRECTION USING SAVED A,B,C +C LVL=3 -- BREMSSTRAHLUNG GAMMA. SAVE ELECTRON DIRECTION (NEXT +C TO TOP OF STACK), AND THEN ADJUST GAMMA DIRECTION. + 1080 IF ( LVL .EQ. 2 ) GOTO 1100 + IF ( LVL .EQ. 3 ) GOTO 1110 + 1120 A = U(NP) + B = V(NP) + C = W(NP) + GOTO 1130 + + 1110 A = U(NP-1) + B = V(NP-1) + C = W(NP-1) + +C SEE H.H. NAGEL DISSERTATION FOR COORDINATE SYSTEM DESCRIPTION. +C A ROTATION IS PERFORMED TO TRANSFORM DIRECTION COSINES OF THE +C PARTICLE BACK TO THE PHYSICAL FRAME (FROM THE TRANSPORT FRAME) + 1100 X(NP) = X(NP-1) + Y(NP) = Y(NP-1) + Z(NP) = Z(NP-1) + LPCTE(NP) = LPCTE(NP-1) + IR(NP) = IR(NP-1) + DNEAR(NP) = DNEAR(NP-1) + TIM(NP) = TIM(NP-1) + IGEN(NP) = IGEN(NP-1) + IOBS(NP) = IOBS(NP-1) + ZAP(NP) = ZAP(NP-1) + WAP(NP) = WAP(NP-1) + WA(NP) = WA(NP-1) + 1130 SINPS2 = A*A+B*B +C SMALL POLAR ANGLE CASE, NO ROTATION IS NEEDED + IF ( SINPS2 .LT. 1.D-20 ) THEN + U(NP) = SINTHE*COSPHI + V(NP) = SINTHE*SINPHI + W(NP) = C*COSTHE + ELSE +C LARGE POLAR ANGLE CASE + SINPSI = SQRT(SINPS2) + US = SINTHE*COSPHI + VS = SINTHE*SINPHI + SINDEL = B*(1.D0/SINPSI) + COSDEL = A*(1.D0/SINPSI) + U(NP) = C*COSDEL*US-SINDEL*VS+A*COSTHE + V(NP) = C*SINDEL*US+COSDEL*VS+B*COSTHE + W(NP) = (-SINPSI)*US+C*COSTHE + ENDIF + RETURN + END +*CMZ : 28/02/2002 10.19.53 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE AGE( R,S ) + +C----------------------------------------------------------------------- +C AGE +C +C CALCULATES LONGITUDINAL AGE PARAMETER +C ORIGINALLY DEVELOPED BY: J. KEMPA, UNIVERSITY OF LODZ, POLAND +C THIS SUBROUTINE IS CALLED FROM AVAGE. +C ARGUMENTS: +C R = AVERAGED AGE PARAMETER +C S = LONGITUDINAL AGE PARAMETER OF TOTAL SHOWER +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION A,B,C,R,R1,R2,R3,R4,R5,S + SAVE + DATA R1 / 1.9096D-02 /, R2 / 1.7964D-01 /, R3 / 5.3644D-01 /, + * R4 / 1.0332D0 /, R5 / 1.4856D0 / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'AGE : R=',SNGL(R) + + R = MAX( R, R1 ) + R = MIN( R, R5 ) + + IF ( R .LT. R2 ) THEN + A = 3.109121D-1 + B = 2.146465D-1 + C = -5.451040D-3 + ELSEIF ( R .LT. R3 ) THEN + A = 3.666449D-1 + B = 1.639189D-1 + C = 5.970362D-3 + ELSEIF ( R .LT. R4 ) THEN + A = 1.459842D-1 + B = 6.317027D-1 + C = -2.420241D-1 + ELSEIF ( R .LE. R5 ) THEN + A = -3.375703D-1 + B = 2.090333D0 + C = -1.343802D0 + ENDIF + + S = ( SQRT(B**2 - 4.D0 * A * (C-R)) - B ) / ( 2.D0 * A ) + + IF ( DEBUG ) WRITE(MDEBUG,*) 'AGE : S=',SNGL(S) + + RETURN + END +*CMZ : 23/11/2000 10.59.37 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE AVAGE + +C----------------------------------------------------------------------- +C AVE(ERAGE) AGE +C +C CALCULATES AVERAGE AGE AS A FUNCTION OF RADIUS +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,NKGI. + COMMON /NKGI/ SEL,SELLG,STH,ZEL,ZELLG,ZSL,DIST, + * DISX,DISY,DISXY,DISYX,DLAX,DLAY,DLAXY,DLAYX, + * OBSATI,RADNKG,RMOL,TLEV,TLEVCM,IALT + DOUBLE PRECISION SEL(10),SELLG(10),STH(10),ZEL(10),ZELLG(10), + * ZSL(10),DIST(10), + * DISX(-10:10),DISY(-10:10), + * DISXY(-10:10,2),DISYX(-10:10,2), + * DLAX (-10:10,2),DLAY (-10:10,2), + * DLAXY(-10:10,2),DLAYX(-10:10,2), + * OBSATI(2),RADNKG,RMOL(2),TLEV(10),TLEVCM(10) + INTEGER IALT(2) +*KEEP,NKGS. + COMMON /NKGS/ CZX,CZY,CZXY,CZYX,SAH,SL,ZNE + DOUBLE PRECISION CZX(-10:10,2),CZY(-10:10,2),CZXY(-10:10,2), + * CZYX(-10:10,2),SAH(10),SL(10),ZNE(10) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AJ,BJ,CJ,DF(10),SJ(10),SLLG,TH,ZF + INTEGER I,ID,IL,IOL,J,K,L + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'AVAGE :' + + IF ( FPRINT ) WRITE(MONIOU,1110) ISHOWNO,ELCUT(3),ELCUT(4) + 1110 FORMAT (/' ---------- NKG - OUTPUT OF SHOWER NO ',I10, + * ' --------------------------------'/ + * ' ELECTRON/PHOTON THRESHOLD AT ',F10.5,' /',F10.5,' GEV') + +C LOOP OVER ALL DISTANCES WHERE ELECTRON NUMBER IS CALCULATED + DO 302 K = 1,2 + IF ( OBSATI(K) .GE. 0.D0 ) THEN + DO 301 ID = -10,10 + DLAX (ID,K) = DLAX (ID,K) + CZX (ID,K) + DLAY (ID,K) = DLAY (ID,K) + CZY (ID,K) + DLAXY(ID,K) = DLAXY(ID,K) + CZXY(ID,K) + DLAYX(ID,K) = DLAYX(ID,K) + CZYX(ID,K) + 301 CONTINUE + ENDIF + 302 CONTINUE + +C CALCULATE LONGITUDINAL SHOWER DEVELOPMENT + DO 311 IL = 1,IALT(1) + IF ( SL(IL) .GT. 0.D0 ) THEN + SEL(IL) = SEL(IL) + SL(IL) + SLLG = LOG10(SL(IL)) + SELLG(IL) = SELLG(IL) + SLLG + ZEL(IL) = ZEL(IL) + SL(IL)**2 + ZELLG(IL) = ZELLG(IL) + SLLG**2 + ZF = ZNE(IL)/SL(IL) + CALL AGE( ZF,TH ) +C AGE PARAMETERS AVERAGED ON ALL SUBCASCADES AT THIS LEVEL + SAH(IL) = TH + STH(IL) = STH(IL) + TH + ZSL(IL) = ZSL(IL) + TH**2 + ELSE + SL(IL) = 0.D0 + SAH(IL) = 0.D0 + ENDIF + EVTE(175+IL) = SL(IL) + EVTE(185+IL) = SAH(IL) + EVTE(215+IL) = TLEV(IL) + EVTE(225+IL) = TLEVCM(IL) + 311 CONTINUE + +C PRINT LONGITUDINAL SHOWER DEVELOPMENT + IF ( FPRINT ) WRITE(MONIOU,229) + * (I,TLEV(I),TLEVCM(I),SL(I),SAH(I),I=1,IALT(1)) + 229 FORMAT( + * /' LEVEL',2X,'THICKNESS',8X,'HEIGHT',5X,'ELECT. NUMBER',7X,'AGE' + * /' NO. ',2X,' G/CM**2',8X,' CM'/ + * (' ',I4,F12.0,2X,F12.0,1X,F17.3,F10.3) ) + + DO 312 IOL = 1,2 + IF ( OBSATI(IOL) .LT. 0.D0 ) GOTO 312 +C DETERMINE LOCAL AGE PARAMETER + DO 50 J = 1,9 + IF ( CZX(J+1,IOL).GT.0.D0 .AND. CZX(-J-1,IOL).GT.0.D0 .AND. + * CZXY(J+1,IOL).GT.0.D0 .AND. CZXY(-J-1,IOL).GT.0.D0 .AND. + * CZYX(J+1,IOL).GT.0.D0 .AND. CZYX(-J-1,IOL).GT.0.D0 .AND. + * CZY(J+1,IOL).GT.0.D0 .AND. CZY(-J-1,IOL).GT.0.D0 ) THEN + AJ = 0.125D0 * ( + * CZX(J,IOL) /CZX(J+1,IOL) + CZX(-J,IOL) /CZX(-J-1,IOL) + * + CZXY(J,IOL)/CZXY(J+1,IOL)+ CZXY(-J,IOL)/CZXY(-J-1,IOL) + * + CZYX(J,IOL)/CZYX(J+1,IOL)+ CZYX(-J,IOL)/CZYX(-J-1,IOL) + * + CZY(J,IOL) /CZY(J+1,IOL) + CZY(-J,IOL) /CZY(-J-1,IOL) ) + ELSE + AJ = 0.D0 + ENDIF + IF ( AJ .GT. 0.D0 ) THEN + BJ = DIST(J) / DIST(J+1) + CJ = (DIST(J)+RMOL(IOL)) / (DIST(J+1)+RMOL(IOL)) + SJ(J) = LOG(AJ * BJ**2 * CJ**4.5D0) / LOG(BJ * CJ) + DF(J) = 0.5D0 * (DIST(J) + DIST(J+1)) + ELSE + SJ(J) = 0.D0 + DF(J) = 0.D0 + ENDIF + 50 CONTINUE + + DO L = 1,10 + EVTE(165+IOL*40+L) = SJ(L) + ENDDO + + IF ( FPRINT ) THEN +C WRITE LOCAL AGE PARAMETER + WRITE(MONIOU,60) IOL,OBSATI(IOL), (I,DF(I),SJ(I),I=1,9) + 60 FORMAT(/' RADIAL BIN DISTANCE(CM) LOCAL AGE AT LEVEL NO.', + * I4,' AT HEIGHT:',F10.0,' CM'/ + * (' ',I10,' ',F10.0,' ',F10.3 ) ) + +C PRINT LATERAL ELECTRON DISTRIBUTION + WRITE(MONIOU,507) IOL,OBSATI(IOL) + 507 FORMAT(/' LATERAL ELECTRON DENSITY (/CM**2) AT LEVEL NO.', + * I4,' AT HEIGHT:',F10.0,' CM'/ + * ' --------------------------------------------------', + * '---------------------------'/ + * ' DIST (CM) CZX CZXY ', + * ' CZY CZYX ') + WRITE(MONIOU,508) (DISX(I),CZX(I,IOL),CZXY(I,IOL), + * CZY(I,IOL),CZYX(I,IOL),I=-10,10) + 508 FORMAT(' ',0P,F10.0,1P,4E15.5) + WRITE(MONIOU,*)' ' + ENDIF + + 312 CONTINUE + + DO L = 1,10 + EVTE(195+L) = DIST(L) + EVTE(235+L) = DF(L) + ENDDO + +C WRITE NKG - SHOWER INFORMATION TO EVENT END BLOCK + DO 353 L = 1,21 + EVTE( 7+L) = CZX (-11+L,1) + EVTE( 28+L) = CZY (-11+L,1) + EVTE( 49+L) = CZXY(-11+L,1) + EVTE( 70+L) = CZYX(-11+L,1) + EVTE( 91+L) = CZX (-11+L,2) + EVTE(112+L) = CZY (-11+L,2) + EVTE(133+L) = CZXY(-11+L,2) + EVTE(154+L) = CZYX(-11+L,2) + 353 CONTINUE + + RETURN + END +*CMZ : 14/06/2000 14.40.12 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + DOUBLE PRECISION FUNCTION GAM( Z ) + +C----------------------------------------------------------------------- +C GAM(MA FUNCTION) +C +C EULER'S GAMMA FUNCTION +C THE INTERNAL PRECISION OF THIS FUNCTION IS ONLY SINGLE PRECISION. +C THIS FUNCION IS CALLED FROM NKG. +C ARGUMENT: +C Z = ARGUMENT OF GAMMA FUNCTION (0 < Z < 57) +C----------------------------------------------------------------------- + + IMPLICIT NONE + + DOUBLE PRECISION U,Y,YY,Z + SAVE +C----------------------------------------------------------------------- + +C CALCULATE CORRESPONDING FUNCTION VALUE IN INTERVAL 1 ... 2 + Y = MOD(Z,1.D0) + YY = Y + 1.D0 + +C PARAMETRIZATION FOR VALUES IN INTERVAL 1 ... 2 + GAM = 1.D0 + Y*(-0.5771017D0 + Y*(0.9858540D0+ + * Y*(-0.8764218D0 + Y*(0.8328212D0+ + * Y*(-0.5684729D0 + Y*(0.2548205D0+ + * Y*(-0.0514993D0 ))))))) + +C GET FUNCTION VALUE IN DESIRED INTERVAL BY ITERATION + IF ( Z .LT. 1.D0 ) THEN +C GAMMA(Z-1) IS GAMMA(Z) / (Z-1) + GAM = GAM / Z + ELSE +C GAMMA(Z+1) IS GAMMA(Z) * Z + DO 1 U = YY, Z-1.D0, 1.D0 + GAM = GAM * U + 1 CONTINUE + ENDIF + + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE ININKG + +C----------------------------------------------------------------------- +C INI(TIALIZE) NKG +C +C INITIALIZES ARRAYS FOR NKG CALCULATING VARIABLES +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,NKGI. + COMMON /NKGI/ SEL,SELLG,STH,ZEL,ZELLG,ZSL,DIST, + * DISX,DISY,DISXY,DISYX,DLAX,DLAY,DLAXY,DLAYX, + * OBSATI,RADNKG,RMOL,TLEV,TLEVCM,IALT + DOUBLE PRECISION SEL(10),SELLG(10),STH(10),ZEL(10),ZELLG(10), + * ZSL(10),DIST(10), + * DISX(-10:10),DISY(-10:10), + * DISXY(-10:10,2),DISYX(-10:10,2), + * DLAX (-10:10,2),DLAY (-10:10,2), + * DLAXY(-10:10,2),DLAYX(-10:10,2), + * OBSATI(2),RADNKG,RMOL(2),TLEV(10),TLEVCM(10) + INTEGER IALT(2) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION DEPTH,HEIGH,RHOF,RMGCM,THICK + INTEGER I,IL,K,KL + SAVE + EXTERNAL HEIGH,RHOF,THICK + DATA RMGCM / 9.6D0 / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'ININKG:' + +C SET LATERAL DISTRIBUTION DISTANCES + IF ( RADNKG .LE. 100.D0 ) THEN + WRITE(MONIOU,*) 'ININKG: RADNKG=',RADNKG,' CM TOO SMALL ' + RADNKG = 200.D2 + WRITE(MONIOU,*) ' RADNKG CORRECTED TO ',RADNKG,' CM' + ENDIF + EVTH(147) = RADNKG + DO I = 1,10 + DIST(I) = 100.D0 * 10.D0**(LOG10(RADNKG/100.D0)*0.1D0*I) + DISX(I) = DIST(I) + DISX(-I) = -DIST(I) + ENDDO + DISX(0) = 0.D0 + +C MOLIERE RADIUS FOR COULOMB SCATTERING ; EQUIVALENT TO 9.6 G/CM**2 +C OBSERVATION LEVELS AND CORRESPONDING MOLIERE RADII (IN CM) FOR NKG + OBSATI(1) = OBSLEV(NOBSLV) + RMOL (1) = RMGCM / RHOF(OBSATI(1)) + IF ( NOBSLV .GT. 1 ) THEN + OBSATI(2) = OBSLEV(NOBSLV-1) + RMOL (2) = RMGCM / RHOF(OBSATI(2)) + ELSE + OBSATI(2) = -1.D0 + RMOL (2) = 0.D0 + IALT (2) = 0 + ENDIF + +C CALCULATE COORDINATES OF POINTS ON THE X AND Y AXIS AND THE TWO +C DIAGONAL LINES Y IS X AND Y IS -X + DO 3333 KL = -10,10 + DISY (KL) = DISX (KL) + DISXY(KL,1) = DISX (KL) / SQRT(2.D0) + DISXY(KL,2) = DISXY(KL,1) + DISYX(KL,1) = DISXY(KL,1) + DISYX(KL,2) = -DISXY(KL,2) + 3333 CONTINUE +C CLEAR ARRAY FOR LATERAL ELECTRON DISTR. (AVERAGE OVER ALL SHOWERS) + DO 45 K = 1,2 + DO 45 I = -10,10 + DLAX (I,K) = 0.D0 + DLAY (I,K) = 0.D0 + DLAXY(I,K) = 0.D0 + DLAYX(I,K) = 0.D0 + 45 CONTINUE +C CLEAR ARRAY FOR AGE PARAMETER CALCULATION (AVERAGE OVER ALL SHOWERS) + DO 17 I = 1,10 + SEL(I) = 0.D0 + SELLG(I) = 0.D0 + STH(I) = 0.D0 + ZELLG(I) = 0.D0 + ZEL(I) = 0.D0 + ZSL(I) = 0.D0 + 17 CONTINUE + +C LAST OBSERVATION LEVEL DEPTH IS GIVEN IN G/CM**2 + DEPTH = THICK(OBSATI(1)) + IALT(1) = MIN( 10, INT(DEPTH/102.D0)+1 ) +C CALCULATE 10 LEVELS AT EACH 100 G/CM**2 + DO 111 IL = 1,IALT(1)-1 + TLEV (IL) = 100.D0 * IL + TLEVCM(IL) = HEIGH(TLEV(IL)) + 111 CONTINUE +C FOR LAST LEVEL NOT IL*100 BUT OBSERVATION LEVEL + TLEV (IALT(1)) = DEPTH + TLEVCM(IALT(1)) = OBSATI(1) +C SECOND OBSERVATION LEVEL ? + IF ( OBSATI(2) .GE. 0.D0 ) THEN + DEPTH = THICK(OBSATI(2)) + IALT(2) = INT(DEPTH/102.D0) + 1 + IF ( IALT(2) .GE. IALT(1) ) IALT(2) = MAX( 1, IALT(1)-1 ) + TLEV (IALT(2)) = DEPTH + TLEVCM(IALT(2)) = OBSATI(2) + ENDIF + + RETURN + END +*CMZ : 23/11/2000 10.59.37 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE MITAGE + +C----------------------------------------------------------------------- +C MIT(TELWERT) AGE (AVERAGE AGE) +C +C CALCULATES AVERAGE DISTRIBUTION FOR NKG FUNCTION OVER ALL SHOWERS +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,NKGI. + COMMON /NKGI/ SEL,SELLG,STH,ZEL,ZELLG,ZSL,DIST, + * DISX,DISY,DISXY,DISYX,DLAX,DLAY,DLAXY,DLAYX, + * OBSATI,RADNKG,RMOL,TLEV,TLEVCM,IALT + DOUBLE PRECISION SEL(10),SELLG(10),STH(10),ZEL(10),ZELLG(10), + * ZSL(10),DIST(10), + * DISX(-10:10),DISY(-10:10), + * DISXY(-10:10,2),DISYX(-10:10,2), + * DLAX (-10:10,2),DLAY (-10:10,2), + * DLAXY(-10:10,2),DLAYX(-10:10,2), + * OBSATI(2),RADNKG,RMOL(2),TLEV(10),TLEVCM(10) + INTEGER IALT(2) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AJ,ATH,BJ,CJ,DF(10),RISH,SELEC,SELCLG,SJ(10), + * ZEC,ZECLG,ZSE + INTEGER I,ID,J,K,LI + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'MITAGE:' + + WRITE(MONIOU,349) ELCUT(3),ELCUT(4) + 349 FORMAT(/' ========== NKG - AVERAGE VALUES OF ALL SHOWERS ', + * '==============================='/ + * ' ELECTRON/PHOTON THRESHOLDS AT ',F10.5,' /',F10.5,' GEV'// + * ' LEVEL THICKNESS HEIGHT DEV', + * ' DEV DEV'/ + * ' NO. (G/CM**2) (M) ' ) + +C NORMALIZE AVERAGE ELECTRON DENSITIES + RISH = 1.D0 / ISHW + DO 161 K = 1,2 + IF ( OBSATI(K) .GE. 0.D0 ) THEN + DO 162 ID = -10,10 + DLAX (ID,K) = DLAX (ID,K) * RISH + DLAY (ID,K) = DLAY (ID,K) * RISH + DLAXY(ID,K) = DLAXY(ID,K) * RISH + DLAYX(ID,K) = DLAYX(ID,K) * RISH + 162 CONTINUE + ENDIF + 161 CONTINUE + + DO 16 LI = 1,IALT(1) +C ELECTRON NUMBER + SELEC = SEL(LI) * RISH +C LOG10 ELECTRON NUMBER + SELCLG = SELLG(LI) * RISH +C AVERAGE LONGITUDINAL AGE + ATH = STH(LI) * RISH + IF ( ISHW .GT. 1 ) THEN +C ELECTRON NUMBER + ZEC = SQRT( MAX( 0.D0, (ZEL(LI) - SEL(LI)**2*RISH)/ + * (ISHW-1.D0) ) ) +C LOG10 ELECTRON NUMBER + ZECLG = SQRT( MAX( 0.D0, (ZELLG(LI) - SELLG(LI)**2*RISH)/ + * (ISHW-1.D0) ) ) +C AVERAGE LONGITUDINAL AGE + ZSE = SQRT( MAX( 0.D0, (ZSL(LI) - STH(LI)**2*RISH)/ + * (ISHW-1.D0) ) ) + ELSE + ZEC = 0.D0 + ZECLG = 0.D0 + ZSE = 0.D0 + ENDIF +C WRITE ELECTRON INFORMATION FOR ALL NKG LEVELS (LONG. DEVELOPMENT) + WRITE(MONIOU,219) LI,TLEV(LI),TLEVCM(LI)*0.01, + * SELEC,ZEC,SELCLG,ZECLG,ATH,ZSE + 219 FORMAT (' ',I4,F10.0,F11.2,1X,2F15.0,3X,2F12.5,F13.3,F9.3) + 16 CONTINUE + + DO 520 K = 1,2 + IF ( OBSATI(K) .LT. 0.D0 ) GOTO 520 +C DETERMINE LOCAL AGE PARAMETER + DO 50 J = 1,9 + IF ( DLAX(J+1,K).GT.0.D0 .AND. DLAX(-J-1,K).GT.0.D0 .AND. + * DLAXY(J+1,K).GT.0.D0 .AND. DLAXY(-J-1,K).GT.0.D0 .AND. + * DLAYX(J+1,K).GT.0.D0 .AND. DLAYX(-J-1,K).GT.0.D0 .AND. + * DLAY(J+1,K).GT.0.D0 .AND. DLAY(-J-1,K).GT.0.D0 ) THEN + AJ = 0.125D0 * ( + * DLAX(J,K) /DLAX(J+1,K) + DLAX(-J,K) /DLAX(-J-1,K) + * + DLAXY(J,K)/DLAXY(J+1,K) + DLAXY(-J,K)/DLAXY(-J-1,K) + * + DLAYX(J,K)/DLAYX(J+1,K) + DLAYX(-J,K)/DLAYX(-J-1,K) + * + DLAY(J,K) /DLAY(J+1,K) + DLAY(-J,K) /DLAY(-J-1,K)) + ELSE + AJ = 0.D0 + ENDIF + IF ( AJ .GT. 0.D0 ) THEN + BJ = DIST(J) / DIST(J+1) + CJ = (DIST(J)+RMOL(K)) / (DIST(J+1)+RMOL(K)) + SJ(J) = LOG(AJ * BJ**2 * CJ**4.5D0) / LOG(BJ * CJ) + DF(J) = 0.5D0* (DIST(J) + DIST(J+1)) + ELSE + SJ(J) = 0.D0 + DF(J) = 0.D0 + ENDIF + 50 CONTINUE + +C WRITE LOCAL AGE PARAMETER + WRITE(MONIOU,60) K,OBSATI(K), (I,DF(I),SJ(I),I=1,9) + 60 FORMAT(/' RADIAL BIN DISTANCE(CM) LOCAL AGE AT LEVEL NO.', + * I4,' AT HEIGHT:',F10.0,' CM'/ + * (' ',I9,' ',F10.0,' ',F10.3 ) ) + +C WRITE LATERAL ELECTRON DISTRIBUTION + WRITE(MONIOU,507) K,OBSATI(K) + 507 FORMAT(/' AVERAGE ELECTRON DENSITY (/CM**2) FOR LEVEL NO.', + * I4,' AT HEIGHT:',F10.0,' CM'/ + * ' ==================================================', + * '=========================='/ + * ' DIST (CM) DLAX DLAXY ', + * ' DLAY DLAYX') + WRITE(MONIOU,508) (DISX(I),DLAX(I,K),DLAXY(I,K), + * DLAY(I,K),DLAYX(I,K),I=-10,10) + 508 FORMAT(' ',0P,F10.0,1P,4E15.5) + WRITE(MONIOU,*)' ' + + + 520 CONTINUE + + + RETURN + END +*CMZ : 07/01/2002 13.20.15 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE NKG( ENERN ) + +C----------------------------------------------------------------------- +C N(ISHIMURA) K(AMATA) G(REISEN) +C +C CALCULATES ELECTROMAGNETIC COMPONENT OF SHOWERS USING THE ANALYTIC +C NKG FORMULAS, INCLUDING ELECTRON ENERGY THRESHOLD ELCUT(3) +C SEE J.N. CAPDEVIELLE, 22ND ICRC, DUBLIN 1991, CONTRIB. HE 3.5.10 +C THIS SUBROUTINE IS CALLED FROM EM. +C ARGUMENT: +C ENERN = ENERGY OF ELECTRON/PHOTON GENERATING A SUBSHOWER +C NEGATIVE FOR SUBSHOWERS TO BE SUBTRACTED AFTER +C PHOTONUCLEAR REACTION +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,NKGI. + COMMON /NKGI/ SEL,SELLG,STH,ZEL,ZELLG,ZSL,DIST, + * DISX,DISY,DISXY,DISYX,DLAX,DLAY,DLAXY,DLAYX, + * OBSATI,RADNKG,RMOL,TLEV,TLEVCM,IALT + DOUBLE PRECISION SEL(10),SELLG(10),STH(10),ZEL(10),ZELLG(10), + * ZSL(10),DIST(10), + * DISX(-10:10),DISY(-10:10), + * DISXY(-10:10,2),DISYX(-10:10,2), + * DLAX (-10:10,2),DLAY (-10:10,2), + * DLAXY(-10:10,2),DLAYX(-10:10,2), + * OBSATI(2),RADNKG,RMOL(2),TLEV(10),TLEVCM(10) + INTEGER IALT(2) +*KEEP,NKGS. + COMMON /NKGS/ CZX,CZY,CZXY,CZYX,SAH,SL,ZNE + DOUBLE PRECISION CZX(-10:10,2),CZY(-10:10,2),CZXY(-10:10,2), + * CZYX(-10:10,2),SAH(10),SL(10),ZNE(10) +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION AE,AS,ASE,AUXIL,BS,CCP,CPC,CPCP,CPH,CSGA, + * DE,DISTL,ECRI,ECR1,ECR2,ENERN,GAM,GRCUT, + * G1,G2,G3,S,SC1,SC2,SIGNE,SM,SMRM, + * SQRZ1I,SQZC1I,SQZC2I,SS2,SS45,TEX,THICK,THICKP, + * XMOL,XNE,XS,X0,YM,YS,ZC1,ZC2,ZG1,ZG2,ZG3,Z1 + INTEGER IL,IOL,M + SAVE + EXTERNAL GAM,THICK +C X0 IS RADIATON LENGTH IN AIR (G/CM**2) +C (SEE ALSO MIKOCKI ET AL. J.PHYS.G.:NUCL.PART.PHYS. 17 (1991) 1303 ) +C GRCUT IS GREISEN CUT OFF, ECRI IS CRITICAL ENERGY IN AIR +C ECR2 IS 0.4 * ECRI +CDH DATA X0 / 37.1D0 /, GRCUT / 0.1D0 /, ECRI / 0.082D0 / +CDH DATA ECR2 / 0.0328D0 / + DATA X0 / 36.66D0 /, GRCUT / 0.1D0 /, ECRI / 0.086D0 / + DATA ECR2 / 0.0344D0 / +C----------------------------------------------------------------------- + + IF (DEBUG) WRITE(MDEBUG,*)'NKG : ',SNGL(SECPAR(1)),SNGL(ENERN) + +C CHECK WETHER SUBSHOWER IS SUBTRACTED + IF ( ENERN .GE. 0.D0 ) THEN + SIGNE = +1.D0 + ELSE + ENERN = -ENERN + SIGNE = -1.D0 + ENDIF + +C ENERGY CUT OFF IN GREISEN FORMULA +C (EM PARTICLE BELOW THIS CUT CAN NOT PRODUCE A SHOWER) + IF ( ENERN .LT. GRCUT ) RETURN +C DON'T CALCULATE NKG FOR BACKWARD GOING PARTICLES + IF ( SECPAR(3) .LE. 0.D0 ) RETURN +C DON'T CALCULATE NKG IF PARTICLE BELOW THE LOWEST OBSERVATION LEVEL + IF ( SECPAR(5) .LT. OBSATI(1) ) RETURN + + Z1 = LOG(ENERN / ECRI) + SQRZ1I = 1.D0 / SQRT(Z1) + +C THIS CUT IS ONLY IMPORTANT FOR ELCUT > .0672 + ECR1 = ECR2 + ELCUT(3) + IF ( ENERN .LT. ECR1 ) RETURN + ZC1 = LOG(ENERN / ECR1) + SQZC1I = 1.D0 / SQRT(ZC1) +C LOG(ENERN/ECR2) IS LOG(ENERN / ECRI) - LOG(0.4) + ZC2 = Z1 + 0.916290732D0 + SQZC2I = 1.D0 / SQRT(ZC2) + THICKP = THICK(SECPAR(5)) + +C LOOP OVER LEVELS + DO 14 IL = 1,IALT(1) +C DISREGARD LEVELS ABOVE THE PARTICLE + IF ( TLEVCM(IL) .GT. SECPAR(5) ) GOTO 14 +C DISTANCE IN G/CM**2 .... (ALONG PHOTON-AXIS) IN RADIATION LENGTHS + XMOL = (TLEV(IL) - THICKP) / ( X0 * SECPAR(3) ) +C CORRECT DEPTH FOR SUBSHOWERS TO BE SUBTRACTED BY 9/7 +C CORRECTION IS ALREADY DONE IN PIGEN (D.H. MARCH 10, 1998) +CDH IF ( SIGNE .LT. 0.D0 ) XMOL = XMOL + 1.285714286D0 +C XMOL IS DEPTH IN RADIATION LENGTHS +C RESPECT THE DIFFERENT DEVELOPMENT OF ELECTRON-INDUCED SUBSHOWERS +C BY 0.6 RADIATION LENGTH (D.H. MAY 2001) +C SEE J. NISHIMURA, HANDBUCH DER PHYSIK XLVI/2 (1967) 27 + IF ( SECPAR(1) .NE. 1.D0 ) XMOL = XMOL + 0.6D0 + IF ( XMOL .GT. 60.D0 .OR. XMOL .LT. 1.D0 ) GOTO 14 +C S IS AGE PARAMETER + S = 3.D0 * XMOL / (XMOL + 2.D0 * Z1) + IF ( S .LE. 0.2D0 ) GOTO 14 + SC1 = 3.D0 * XMOL / (XMOL + 2.D0 * ZC1) + SC2 = 3.D0 * XMOL / (XMOL + 2.D0 * ZC2) +C ELECTRON NUMBER AT OBSERVATION LEVEL + CPH = .31D0 * EXP( XMOL * (1.D0 - 1.5D0 * LOG(S) ) ) * SQRZ1I + CPC = EXP( XMOL * ( 1.D0 - 1.5D0 * LOG(SC1) ) ) * SQZC1I + CCP = EXP( XMOL * ( 1.D0 - 1.5D0 * LOG(SC2) ) ) * SQZC2I + CPCP = SIGNE * CPH * CPC / CCP +C INTERMEDIATE FACTORS FOR LATERAL DISTRIBUTION AND AGE PARAMETER + AE = 4.D0 * EXP( 0.915D0 * (S - 1.D0) ) / S + DE = ( 1.D0 + S ) / ( 1.15D0 + 0.15D0 * S ) + ASE = AE**DE + ZG3 = GAM( (S + 2.D0) * DE ) + IF ( ZG3 .LE. 0.D0 ) GOTO 14 + ZG1 = GAM(S * DE) + ZG2 = GAM( (S + 1.D0) * DE ) + AUXIL = 4.D0 / (S * ASE) + XNE = CPCP * ( ZG2 + AUXIL * ZG3 ) / ( ASE * (ZG1 + AUXIL*ZG2) ) +C SUM OF N_E AT FIXED LEVEL + ZNE(IL) = ZNE(IL) + XNE + SL(IL) = SL(IL) + CPCP + +C CALCULATE THE ELECTRON LATERAL DISTRIBUTION FOR THE 2 SELECTED +C OBSERVATION LEVELS + IF ( IL .EQ. IALT(1) ) THEN + IOL = 1 + ELSEIF ( IL .EQ. IALT(2) ) THEN + IOL = 2 + ELSE + GOTO 14 + ENDIF + +C CALCULATION OF LATERAL ELECTRON DISTRIBUTION + IF ( SC1 .GE. 2.25D0 ) GOTO 14 + G1 = GAM(4.5D0 - SC1) + G2 = GAM(SC1) + G3 = GAM(4.5D0 - 2.D0 * SC1) +C DISTANCE IN CM BETWEEN PHOTON INITIATION AND OBSERVATION (VERTICAL) + DISTL = SECPAR(5) - TLEVCM(IL) +C MODULATION BY AGE PARAMETER FOLLOWING LAGUTIN & UCHAIKIN +C (AGE PARAMETER LIES BETWEEN 0.2 AND 2.25) + SM = 0.78D0 - 0.21D0 * SC1 + SMRM = 1.D0 / ( SM * RMOL(IOL) ) + + CSGA = CPCP * SMRM**2 * G1 / ( PI2 * G2 * G3 ) + SS2 = SC1 - 2.D0 + SS45 = SC1 - 4.5D0 + AS = SIN( SECPAR(4) ) + BS = COS( SECPAR(4) ) + TEX = DISTL * SQRT( 1.D0 - SECPAR(3)**2 ) / SECPAR(3) +C DISTANCE TO THE CENTER OF THE CASCADE (IN CM) + XS = SECPAR(7) + TEX * BS - XOFF(NOBSLV+1-IOL) + YS = SECPAR(8) + TEX * AS - YOFF(NOBSLV+1-IOL) + +C NKG-FORMULA +C LOOP OVER ALL LATERAL DISTANCES GETTING THE DENSITY IN MOLIERE UNITS + DO 171 M = -10,10 + IF ( M .EQ. 0 ) GOTO 171 +C X DIRECTION + YM = SMRM * MAX( SQRT((DISX(M)-XS)**2 + YS**2), 1.D0 ) + CZX (M,IOL) = CZX (M,IOL) + CSGA * YM**SS2 * (YM+1.D0)**SS45 +C Y DIRECTION + YM = SMRM * MAX( SQRT(XS**2 + (DISY(M)-YS)**2), 1.D0 ) + CZY (M,IOL) = CZY (M,IOL) + CSGA * YM**SS2 * (YM+1.D0)**SS45 +C XY DIRECTION + YM = SMRM * + * MAX( SQRT((DISXY(M,1)-XS)**2 + (DISXY(M,2)-YS)**2), 1.D0 ) + CZXY(M,IOL) = CZXY(M,IOL) + CSGA * YM**SS2 * (YM+1.D0)**SS45 +C YX DIRECTION + YM = SMRM * + * MAX( SQRT((DISYX(M,1)-XS)**2 + (DISYX(M,2)-YS)**2), 1.D0 ) + CZYX(M,IOL) = CZYX(M,IOL) + CSGA * YM**SS2 * (YM+1.D0)**SS45 + 171 CONTINUE + + 14 CONTINUE + + RETURN + END +*CMZ : 18/10/2000 09.15.11 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE STANKG + +C----------------------------------------------------------------------- +C STA(RT) NKG +C +C INITIALIZES ARRAYS FOR SINGLE SHOWERS NKG CALCULATED VARIABLES +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,NKGS. + COMMON /NKGS/ CZX,CZY,CZXY,CZYX,SAH,SL,ZNE + DOUBLE PRECISION CZX(-10:10,2),CZY(-10:10,2),CZXY(-10:10,2), + * CZYX(-10:10,2),SAH(10),SL(10),ZNE(10) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER I,K + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'STANKG:' + +C CLEAR ARRAYS FOR AGE PARAMETER CALCULATION FOR EACH SHOWER + DO 17 I = 1,10 + SAH(I) = 0.D0 + SL (I) = 0.D0 + ZNE(I) = 0.D0 + 17 CONTINUE +C CLEAR LATERAL ELECTRON DISTRIBUTION COUNTERS FOR EACH SHOWER + DO 45 K = 1,2 + DO 45 I = -10,10 + CZX (I,K) = 0.D0 + CZY (I,K) = 0.D0 + CZXY(I,K) = 0.D0 + CZYX(I,K) = 0.D0 + 45 CONTINUE + + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE CGHEI + +C----------------------------------------------------------------------- +C C(ORSIKA) GHE(ISHA) I(NTERFACE) +C +C MAIN STEERING SUBROUT. FOR HADRON PACKAGE GHEISHA *** +C THIS SUBROUTINE IS CALLED FROM NUCINT. +C +C ORIGIN : F.CARMINATI, H.FESEFELDT (SUBROUT. GHESIG) +C REDESIGN: P. GABRIEL IK1 FZK KARLSRUHE +C----------------------------------------------------------------------- + +*KEEP,CGCOMP. + PARAMETER (KK=3) + COMMON/CGCOMP/ ACOMP,ZCOMP,WCOMP + REAL ACOMP(KK),ZCOMP(KK),WCOMP(KK) +*KEEP,ELABCT. + COMMON /ELABCT/ ELCUT + DOUBLE PRECISION ELCUT(4) +*KEEP,ELADPM. + COMMON /ELADPM/ ELMEAN,ELMEAA,IELDPM,IELDPA + DOUBLE PRECISION ELMEAN(40),ELMEAA(40) + INTEGER IELDPM(40,13),IELDPA(40,13) +*KEEP,ELASTY. + COMMON /ELASTY/ ELAST + DOUBLE PRECISION ELAST +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,ISTA. + COMMON /ISTA/ IFINET,IFINNU,IFINKA,IFINPI,IFINHY + INTEGER IFINET,IFINNU,IFINKA,IFINPI,IFINHY +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEND. + + DOUBLE PRECISION ELASTI,ELABOR,ETOT,PLX,PLY,PLZ,PLSQ,PLTOT,RMASSK + + COMMON/GSECTI/ AIEL(20),AIIN(20),AIFI(20),AICA(20),ALAM,K0FLAG + INTEGER K0FLAG + REAL AIEL,AIIN,AIFI,AICA,ALAM + +C --- GHEISHA COMMONS --- + PARAMETER (MXGKGH=100) + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) + + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) + + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM + + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) + + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT + + +C --- "NEVENT" CHANGED TO "KEVENT" IN COMMON /CURPAR/ DUE TO CLASH --- +C --- WITH VARIABLE "NEVENT" IN GEANT COMMON --- + + PARAMETER (MXGKCU=MXGKGH) + COMMON /CURPAR/ WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,KEVENT,SHFLAG, + $ ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + $ RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + $ ATNO2,ZNO2 + +C --- "IPART" CHANGED TO "KPART" IN COMMON /RESULT/ DUE TO CLASH --- +C --- WITH VARIABLE "IPART" IN GEANT COMMON --- + + COMMON /RESULT/ XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + $ USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,KPART,IND, + $ LCALO,ICEL,SINL,COSL,SINP,COSP, + $ XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + $ XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT + +C --- "ABSL(21)" CHANGED TO "ABSLTH(21)" IN COMMON /MAT/ DUE TO CLASH --- +C --- WITH VARIABLE "ABSL" IN GEANT COMMON --- + + COMMON /MAT/ LMAT, + $ DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSLTH(21), + $ CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + $ MATID(21),MATID1(21,24),PARMAT(21,10), + $ IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + $ ATNO1(21,10),ZNO1(21,10) + +* DIMENSION IPELOS(35) + REAL EMAX,EEESQ + + DIMENSION RNDM(1) + +C --- DIMENSION STMTS. FOR GEANT/GHEISHA PARTICLE CODE CONVERSIONS --- +C --- KIPART(I)=GHEISHA CODE CORRESPONDING TO GEANT CODE I --- +C --- IKPART(I)=GEANT CODE CORRESPONDING TO GHEISHA CODE I --- + + DIMENSION KIPART(48),IKPART(35) +C --- ANGLES FOR NEW COUPLING WITH CORSIKA D. HECK DEC. 2000 + DOUBLE PRECISION PHIRAN,PHIG,THETG + + SAVE + +C --- DATA STMTS. FOR GEANT/GHEISHA PARTICLE CODE CONVERSIONS --- +C --- KIPART(I)=GHEISHA CODE CORRESPONDING TO GEANT CODE I --- +C --- IKPART(I)=GEANT CODE CORRESPONDING TO GHEISHA CODE I --- + + DATA KIPART/ + $ 1, 3, 4, 2, 5, 6, 8, 7, + $ 9, 12, 10, 13, 16, 14, 15, 11, + $ 35, 18, 20, 21, 22, 26, 27, 33, + $ 17, 19, 23, 24, 25, 28, 29, 34, + $ 35, 35, 35, 35, 35, 35, 35, 35, + $ 35, 35, 35, 35, 30, 31, 32, 35/ + + DATA IKPART/ + $ 1, 4, 2, 3, 5, 6, 8, 7, + $ 9, 11, 16, 10, 12, 14, 15, 13, + $ 25, 18, 26, 19, 20, 21, 27, 28, + $ 29, 22, 23, 30, 31, 45, 46, 47, + $ 24, 32, 48/ + + +C --- DENOTE STABLE PARTICLES ACCORDING TO GHEISHA CODE --- +C --- STABLE : GAMMA, NEUTRINO, ELECTRON, PROTON AND HEAVY FRAGMENTS --- +C --- WHEN STOPPING THESE PARTICLES ONLY LOOSE THEIR KINETIC ENERGY --- +* DATA IPELOS/ +* $ 1, 1, 0, 1, 0, 0, 0, 0, +* $ 0, 0, 0, 0, 0, 1, 0, 0, +* $ 0, 0, 0, 0, 0, 0, 0, 0, +* $ 0, 0, 0, 0, 0, 1, 1, 1, +* $ 0, 0, 1/ + +C --- LOWERBOUND OF KINETIC ENERGY BIN IN N CROSS-SECTION TABLES --- + DATA TEKLOW /0.0001/ + +C --- KINETIC ENERGY TO SWITCH FROM "CASN" TO "GNSLWD" FOR N CASCADE --- + DATA SWTEKN /0.05/ +C----------------------------------------------------------------------- + IF ( DEBUG ) WRITE(MDEBUG,445) (CURPAR(I),I=1,9) + 445 FORMAT(' CGHEI : CURPAR=',1P,9E10.3) + + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'CGHEI : E = ',CURPAR(2)*PAMA(NINT(CURPAR(1))) + +C --- DEFINE PARTICLE TYPE + IF ( ITYPE .LE. 48 ) THEN + IPART = ITYPE + ELSEIF ( ITYPE .EQ. 201 ) THEN + IPART = 45 + ELSEIF ( ITYPE .EQ. 301 ) THEN + IPART = 46 + ELSEIF ( ITYPE .EQ. 402 ) THEN + IPART = 47 + ELSE + WRITE(MONIOU,444) (CURPAR(I),I=1,9) + 444 FORMAT(' CGHEI : CURPAR=',1P,9E10.3) + WRITE(MONIOU,7795) ITYPE + 7795 FORMAT (//,' *CGHEI* ILLEGAL PARTICLE TYPE OCCURS =',I5) + IPART = 48 + ENDIF + + NETEST=IKPART(KPART) + IF ( NETEST .EQ. IPART ) GOTO 9004 + + WRITE(MONIOU,8881) IPART,KPART + 8881 FORMAT(' *CGHEI* IPART,KPART = ',2(I3,1X)/ + $ ' *CGHEI* ======> PARTICLE TYPES DO NOT MATCH <=======') + STOP + + 9004 CONTINUE + KPART = KIPART(IPART) + KKPART = KPART + +C --- TRANSPORT THE TRACK NUMBER TO GHEISHA AND INITIALIZE SOME NUMBERS +C --- NTK=ITRA ITRA = CURRENT TRACK NUMBER IN GEANT (GCKINE) + NTK = 0 + INTCT = 0.0 + NEXT = 1 + NTOT = 0 + INT = 0 + TOF = 0.0 + +C --- RESET ITYPE + SECPAR(1) = 0. + +C --- FILL RESULT COMMON FOR THIS TRACK WITH CORSIKA VALUES --- + + AMAS = RMASS(KPART) + NCH = RCHARG(KPART) + 107 XEND = CURPAR(7) + YEND = CURPAR(8) + ZEND = CURPAR(5) + USERW = 0.0 + + AMASQ=AMAS*AMAS + EN = CURPAR(2) * ABS(AMAS) + EK = ABS ( EN - ABS(AMAS) ) + ENOLD = EN + EMAX = 0. + ETOT = 0.D0 + P = SQRT ( EN*EN - AMASQ ) + ELABOR = EN + +C OLD COUPLING OF GHEISHA WITH CORSIKA +C SINL = -CURPAR(3) +C PHI = CURPAR(4) +C SINP = SIN(PHI) +C COSP = COS(PHI) +C COSL = SQRT ( ABS(1.-SINL**2) ) +C NEW COUPLING WITH CORSIKA D. HECK DEC. 2000 +C WE ASSUME MOVEMENT ALONG Z AXIS. AFTER COLLISION WE ROTATE THE +C INTERACTION PLANE AROUND Z AT RANDOM TO ELIMINATE PREFERENCES OF PHI + SINL = -1. + COSL = 0. + SINP = 0. + COSP = 1. + PX = COSL * COSP + PY = COSL * SINP + PZ = SINL + + CALL GRNDM(RNDM,1) + PHIRAN = RNDM(1) * TWPI + +C --- SET GHEISHA INDEX FOR THE CURRENT MEDIUM ALWAYS TO 1 --- + IND = 1 + +C --- TRANSFER GLOBAL MATERIAL CONSTANTS FOR CURRENT MEDIUM --- +C --- DETAILED DATA FOR COMPOUNDS IS OBTAINED VIA SUBROUT. COMPO --- + ATNO(IND+1) = 14.56 + ZNO(IND+1) = 7.265 + DEN(IND+1) = 0.0 + RADLTH(IND+1)= 0.0 + ABSLTH(IND+1)= 0.0 + +C --- SETUP PARMAT FOR PHYSICS STEERING --- + PARMAT(IND+1,10)=0.0 + + 5 CONTINUE + +C --- INDICATE LIGHT (<= PI) AND HEAVY PARTICLES (HISTORICALLY) --- +C --- CALIM CODE --- + J = 2 + TEST = RMASS(7)-0.001 + IF ( ABS(AMAS) .LT. TEST ) J=1 + +C *** DIVISION INTO VARIOUS INTERACTION CHANNELS DENOTED BY "INT" *** +C THE CONVENTION FOR "INT" IS THE FOLLOWING + +C INT = -1 REACTION CROSS-SECTIONS NOT YET TABULATED/PROGRAMMED +C = 0 NO INTERACTION +C = 1 ELEASTIC SCATTERING +C = 2 INELASTIC SCATTERING +C = 3 NUCLEAR FISSION WITH INELEASTIC SCATTERING +C = 4 NEUTRON CAPTURE +C INT = 3, 4 SHOULD BE DELETED FOR AIR TARGET + +C --- INTACT CODE --- + ALAM1 = 0.0 + CALL GRNDM(RNDM,1) + RAT = RNDM(1)*ALAM + ATNO2 = 14.56 + ZNO2 = 7.265 + + DO 6 K = 1,KK + ATNO2 = ACOMP(K) + ZNO2 = ZCOMP(K) + +C --- TRY FOR ELASTIC SCATTERING --- + INT = 1 + ALAM1 = ALAM1+AIEL(K) + IF ( RAT .LT. ALAM1 ) GOTO 8 + +C --- TRY FOR INELASTIC SCATTERING --- + INT = 2 + ALAM1 = ALAM1+AIIN(K) + IF ( RAT .LT. ALAM1 ) GOTO 8 + +C --- TRY FOR NEUTRON CAPTURE --- + INT = 4 + ALAM1 = ALAM1+AICA(K) + IF ( RAT .LT. ALAM1 ) GOTO 8 + + 6 CONTINUE + +C --- NO REACTION SELECTED ==> ELASTIC SCATTERING --- + INT = 1 + +C *** TAKE ACTION ACCORDING TO SELECTED REACTION CHANNEL *** +C --- FOLLOWING CODE IS A TRANSLATION OF "CALIM" INTO GEANT JARGON --- + + 8 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,1001) INT + 1001 FORMAT(' *CGHEI* INTERACTION TYPE CHOSEN INT = ',I3) + + IF ( INT .NE. 4 ) GOTO 10 + +C --- NEUTRON CAPTURE --- + IF ( NPRT(9) ) WRITE(MDEBUG,2000) + 2000 FORMAT(' *CGHEI* SUBROUT. CAPTUR WILL BE CALLED') + CALL CAPTUR(NOPT) + GOTO 40 + + 10 CONTINUE + +C --- ELASTIC AND INELASTIC SCATTERING --- + PV(1,MXGKPV) = P*PX + PV(2,MXGKPV) = P*PY + PV(3,MXGKPV) = P*PZ + PV(4,MXGKPV) = EN + PV(5,MXGKPV) = AMAS + PV(6,MXGKPV) = NCH + PV(7,MXGKPV) = TOF + PV(8,MXGKPV) = KPART + PV(9,MXGKPV) = 0. + PV(10,MXGKPV)= USERW + +C --- ADDITIONAL PARAMETERS TO SIMULATE FERMI MOTION AND EVAPORATION --- + DO 111 JENP = 1,10 + ENP(JENP) = 0. + 111 CONTINUE + ENP(5) = EK + ENP(6) = EN + ENP(7) = P + + IF ( INT .NE. 1 ) GOTO 12 + +C *** ELASTIC SCATTERING PROCESSES *** + +C --- ONLY NUCLEAR INTERACTIONS FOR HEAVY FRAGMENTS --- + IF ( (KPART .GE. 30) .AND. (KPART .LE. 32) ) GOTO 35 + +C --- NORMAL ELASTIC SCATTERING FOR LIGHT MEDIA --- + IF ( ATNO2 .LT. 1.5 ) GOTO 35 + +C --- COHERENT ELASTIC SCATTERING FOR HEAVY MEDIA --- + IF ( NPRT(9) ) WRITE(MDEBUG,2002) + 2002 FORMAT(' *CGHEI* SUBROUT. COSCAT WILL BE CALLED') + CALL COSCAT + GOTO 40 + +C *** NON-ELASTIC SCATTERING PROCESSES *** + 12 CONTINUE + +C --- ONLY NUCLEAR INTERACTIONS FOR HEAVY FRAGMENTS --- + IF ( (KPART .GE. 30) .AND. (KPART .LE. 32) ) GOTO 35 + +C *** USE SOMETIMES NUCLEAR REACTION SUBROUT. "NUCREC" FOR LOW ENERGY +C *** PROTON AND NEUTRON SCATTERING *** + CALL GRNDM(RNDM,1) + TEST1 = RNDM(1) + TEST2 = 4.5*(EK-0.01) + IF ( (KPART .EQ. 14) .AND. (TEST1 .GT. TEST2) ) GOTO 85 + IF ( (KPART .EQ. 16) .AND. (TEST1 .GT. TEST2) ) GOTO 86 + +C *** FERMI MOTION AND EVAPORATION *** + TKIN = CINEMA(EK) + PV(9,MXGKPV) = TKIN + ENP(5) = EK+TKIN +C --- CHECK FOR LOWERBOUND OF EKIN IN CROSS-SECTION TABLES --- + IF ( ENP(5) .LE. TEKLOW ) ENP(5)=TEKLOW + ENP(6) = ENP(5)+ABS(AMAS) + ENP(7) = (ENP(6)-AMAS)*(ENP(6)+AMAS) + ENP(7) = SQRT(ABS(ENP(7))) + TKIN = FERMIG(ENP(5)) + ENP(5) = ENP(5)+TKIN +C --- CHECK FOR LOWERBOUND OF EKIN IN CROSS-SECTION TABLES --- + IF ( ENP(5) .LE. TEKLOW ) ENP(5)=TEKLOW + ENP(6) = ENP(5)+ABS(AMAS) + ENP(7) = (ENP(6)-AMAS)*(ENP(6)+AMAS) + ENP(7) = SQRT(ABS(ENP(7))) + TKIN = EXNU(ENP(5)) + ENP(5) = ENP(5)-TKIN +C --- CHECK FOR LOWERBOUND OF EKIN IN CROSS-SECTION TABLES --- + IF ( ENP(5) .LE. TEKLOW ) ENP(5)=TEKLOW + ENP(6) = ENP(5)+ABS(AMAS) + ENP(7) = (ENP(6)-AMAS)*(ENP(6)+AMAS) + ENP(7) = SQRT(ABS(ENP(7))) + +C *** IN CASE OF ENERGY ABOVE CUT-OFF LET THE PARTICLE CASCADE *** + IF ( ENP(5) .GT. ELCUT(1) ) GOTO 35 + +C --- SECOND CHANCE FOR ANTI-BARYONS DUE TO POSSIBLE ANNIHILATION --- + IF ( (AMAS .GE. 0.0) .OR. (KPART .LE. 14) ) GOTO 13 + ANNI = 1.3*P + IF ( ANNI .GT. 0.4 ) ANNI=0.4 + CALL GRNDM(RNDM,1) + TEST = RNDM(1) + IF ( TEST .GT. ANNI ) GOTO 35 + +C *** PARTICLE WITH ENERGY BELOW CUT-OFF *** +C --- ==> ONLY NUCLEAR EVAPORATION AND QUASI-ELASTIC SCATTERING --- + 13 CONTINUE + + IF ( NPRT(9) ) WRITE(MDEBUG,1002) + * KPART,EK,EN,P,ENP(5),ENP(6),ENP(7) + 1002 FORMAT(' *CGHEI* ENERGY BELOW CUT-OFF FOR GHEISHA PARTICLE ',I3/ + $ ' EK,EN,P,ENP(5),ENP(6),ENP(7) = ',6(G12.5,1X)) + + IF ( (KPART .NE. 14) .AND. (KPART .NE. 16) ) GOTO 14 + IF ( KPART .EQ. 16 ) GOTO 86 + +C --- SLOW PROTON --- + 85 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2003) EK,KPART + 2003 FORMAT(' *CGHEI* SUBROUT. NUCREC WILL BE CALLED', + $ ' EK = ',G12.5,' GEV KPART = ',I3) + CALL NUCREC(NOPT,2) + + IF ( NOPT .NE. 0 ) GOTO 50 + + IF ( NPRT(9) ) WRITE(MDEBUG,2004) EK,KPART + 2004 FORMAT(' *CGHEI* SUBROUT. COSCAT WILL BE CALLED', + $ ' EK = ',G12.5,' GEV KPART = ',I3) + CALL COSCAT + GOTO 40 + +C --- SLOW NEUTRON --- + 86 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2015) + NUCFLG = 0 + CALL GNSLWD(NUCFLG,INT,NFL,TEKLOW) + IF ( NUCFLG .NE. 0 ) GOTO 50 + GOTO 40 + +C --- OTHER SLOW PARTICLES --- + 14 CONTINUE + IPA(1) = KPART +C --- DECIDE FOR PROTON OR NEUTRON TARGET --- + IPA(2) = 16 + CALL GRNDM(RNDM,1) + TEST1 = RNDM(1) + TEST2 = ZNO2/ATNO2 + IF ( TEST1 .LT. TEST2 ) IPA(2) = 14 + AVERN = 0.0 + NFL = 1 + IF ( IPA(2) .EQ. 16 ) NFL = 2 + IPPP = KPART + IF ( NPRT(9) ) WRITE(MDEBUG,2005) + 2005 FORMAT(' *CGHEI* SUBROUT. TWOB WILL BE CALLED') + CALL TWOB(IPPP,NFL,AVERN) + GOTO 40 + +C --- INITIALIZATION OF CASCADE QUANTITIES --- + 35 CONTINUE + +C *** CASCADE GENERATION *** +C --- CALCULATE FINAL STATE MULTIPLICITY AND LONGITUDINAL AND --- +C --- TRANSVERSE MOMENTUM DISTRIBUTIONS --- + +C --- FIXED PARTICLE TYPE TO STEER THE CASCADE --- + KKPART = KPART + +C --- NO CASCADE FOR LEPTONS --- + IF ( KKPART .LE. 6 ) GOTO 9999 + +C *** WHAT TO DO WITH "NEW PARTICLES" FOR GHEISHA ?????? *** +C --- RETURN FOR THE TIME BEING --- + IF ( KKPART .GE. 35 ) GOTO 9999 + +C --- CASCADE OF HEAVY FRAGMENTS + IF ( (KKPART .GE. 30) .AND. (KKPART .LE. 32) ) GOTO 390 + +C --- INITIALIZE THE IPA ARRAY --- +* CALL VZERO(IPA(1),MXGKCU) +CDH + DO III = 1, MXGKCU + IPA(III) = 0 + ENDDO + + +C --- CASCADE OF OMEGA - AND OMEGA - BAR --- + IF ( KKPART .EQ. 33 ) GOTO 330 + IF ( KKPART .EQ. 34 ) GOTO 331 + + NVEPAR = KKPART-17 + IF ( NVEPAR .LE. 0 ) GOTO 15 + GOTO (318,319,320,321,322,323,324,325,326,327,328,329),NVEPAR + + 15 CONTINUE + NVEPAR = KKPART-6 + GOTO (307,308,309,310,311,312,313,314,315,316,317,318),NVEPAR + +C --- PI+ CASCADE --- + 307 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2006) + 2006 FORMAT(' *CGHEI* SUBROUT. CASPIP WILL BE CALLED') + CALL CASPIP(J,INT,NFL) + GOTO 40 + +C --- PI0 ==> NO CASCADE --- + 308 CONTINUE + GOTO 40 + +C --- PI- CASCADE --- + 309 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2007) + 2007 FORMAT(' *CGHEI* SUBROUT. CASPIM WILL BE CALLED') + CALL CASPIM(J,INT,NFL) + GOTO 40 + +C --- K+ CASCADE --- + 310 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2008) + 2008 FORMAT(' *CGHEI* SUBROUT. CASKP WILL BE CALLED') + CALL CASKP(J,INT,NFL) + GOTO 40 + +C --- K0 CASCADE --- + 311 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2009) + 2009 FORMAT(' *CGHEI* SUBROUT. CASK0 WILL BE CALLED') + CALL CASK0(J,INT,NFL) + GOTO 40 + +C --- K0 BAR CASCADE --- + 312 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2010) + 2010 FORMAT(' *CGHEI* SUBROUT. CASK0B WILL BE CALLED') + CALL CASK0B(J,INT,NFL) + GOTO 40 + +C --- K- CASCADE --- + 313 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2011) + 2011 FORMAT(' *CGHEI* SUBROUT. CASKM WILL BE CALLED') + CALL CASKM(J,INT,NFL) + GOTO 40 + +C --- PROTON CASCADE --- + 314 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2012) + 2012 FORMAT(' *CGHEI* SUBROUT. CASP WILL BE CALLED') + CALL CASP(J,INT,NFL) + GOTO 40 + +C --- PROTON BAR CASCADE --- + 315 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2013) + 2013 FORMAT(' *CGHEI* SUBROUT. CASPB WILL BE CALLED') + CALL CASPB(J,INT,NFL) + GOTO 40 + +C --- NEUTRON CASCADE --- + 316 CONTINUE + NUCFLG = 0 + IF ( EK .GT. SWTEKN ) THEN + CALL CASN(J,INT,NFL) + IF ( NPRT(9) ) WRITE(MDEBUG,2014) + 2014 FORMAT(' *CGHEI* SUBROUT. CASN WILL BE CALLED') + ELSE + CALL GNSLWD(NUCFLG,INT,NFL,TEKLOW) + IF ( NPRT(9) ) WRITE(MDEBUG,2015) + 2015 FORMAT(' *CGHEI* SUBROUT. GNSLWD WILL BE CALLED') + ENDIF + IF ( NUCFLG .NE. 0 ) GOTO 50 + GOTO 40 + +C --- NEUTRON BAR CASCADE --- + 317 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2016) + 2016 FORMAT(' *CGHEI* SUBROUT. CASNB WILL BE CALLED') + CALL CASNB(J,INT,NFL) + GOTO 40 + +C --- LAMBDA CASCADE --- + 318 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2017) + 2017 FORMAT(' *CGHEI* SUBROUT. CASL0 WILL BE CALLED') + CALL CASL0(J,INT,NFL) + GOTO 40 + +C --- LAMBDA BAR CASCADE --- + 319 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2018) + 2018 FORMAT(' *CGHEI* SUBROUT. CASAL0 WILL BE CALLED') + CALL CASAL0(J,INT,NFL) + GOTO 40 + +C --- SIGMA + CASCADE --- + 320 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2019) + 2019 FORMAT(' *CGHEI* SUBROUT. CASSP WILL BE CALLED') + CALL CASSP(J,INT,NFL) + GOTO 40 + +C --- SIGMA 0 ==> NO CASCADE --- + 321 CONTINUE + GOTO 40 + +C --- SIGMA - CASCADE --- + 322 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2020) + 2020 FORMAT(' *CGHEI* SUBROUT. CASSM WILL BE CALLED') + CALL CASSM(J,INT,NFL) + GOTO 40 + +C --- SIGMA + BAR CASCADE --- + 323 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2021) + 2021 FORMAT(' *CGHEI* SUBROUT. CASASP WILL BE CALLED') + CALL CASASP(J,INT,NFL) + GOTO 40 + +C --- SIGMA 0 BAR ==> NO CASCADE --- + 324 CONTINUE + GOTO 40 + +C --- SIGMA - BAR CASCADE --- + 325 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2022) + 2022 FORMAT(' *CGHEI* SUBROUT. CASASM WILL BE CALLED') + CALL CASASM(J,INT,NFL) + GOTO 40 + +C --- XI 0 CASCADE --- + 326 CONTINUE + IF ( NPRT(9) ) PRINT 2023 + 2023 FORMAT(' *CGHEI* SUBROUT. CASX0 WILL BE CALLED') + CALL CASX0(J,INT,NFL) + GOTO 40 + +C --- XI - CASCADE --- + 327 CONTINUE + IF ( NPRT(9) ) PRINT 2024 + 2024 FORMAT(' *CGHEI* SUBROUT. CASXM WILL BE CALLED') + CALL CASXM(J,INT,NFL) + GOTO 40 + +C --- XI 0 BAR CASCADE --- + 328 CONTINUE + IF ( NPRT(9) ) PRINT 2025 + 2025 FORMAT(' *CGHEI* SUBROUT. CASAX0 WILL BE CALLED') + CALL CASAX0(J,INT,NFL) + GOTO 40 + +C --- XI - BAR CASCADE --- + 329 CONTINUE + IF ( NPRT(9) ) PRINT 2026 + 2026 FORMAT(' *CGHEI* SUBROUT. CASAXM WILL BE CALLED') + CALL CASAXM(J,INT,NFL) + GOTO 40 + +C --- OMEGA - CASCADE --- + 330 CONTINUE + IF ( NPRT(9) ) PRINT 2027 + 2027 FORMAT(' *CGHEI* SUBROUT. CASOM WILL BE CALLED') + CALL CASOM(J,INT,NFL) + GOTO 40 + +C --- OMEGA - BAR CASCADE --- + 331 CONTINUE + IF ( NPRT(9) ) PRINT 2028 + 2028 FORMAT(' *CGHEI* SUBROUT. CASAOM WILL BE CALLED') + CALL CASAOM(J,INT,NFL) + GOTO 40 + +C --- HEAVY FRAGMENT CASCADE --- + 390 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,2090) + 2090 FORMAT(' *CGHEI* SUBROUT. CASFRG WILL BE CALLED') + NUCFLG = 0 + CALL CASFRG(NUCFLG,INT,NFL) + IF ( NUCFLG .NE. 0 ) GOTO 50 + +C *** CHECK WHETHER THERE ARE NEW PARTICLES GENERATED *** + 40 CONTINUE + IF ( (NTOT .NE. 0) .OR. (KKPART .NE. KPART) ) GOTO 50 + + 50 CONTINUE + + NVEDUM=KIPART(IPART) + IF ( NPRT(9) ) WRITE(MDEBUG,1004)NTOT,IPART,KPART,KKPART,NVEDUM + 1004 FORMAT(' *CGHEI* SEC. GEN. NTOT,IPART,KPART,KKPART,KIPART = ', + $ 5(I3,1X)) + +C --- INITIAL PARTICLE TYPE HAS BEEN CHANGED ==> PUT NEW TYPE ON --- +C --- THE TEMPORARY STACK --- + +C --- MAKE CHOICE BETWEEN K0 LONG / K0 SHORT --- + IF ( (KPART .NE. 11) .AND. (KPART .NE. 12) ) GOTO 52 + CALL GRNDM(RNDM,1) + KPART = 11.5+RNDM(1) + + 52 CONTINUE + +C --- IN CASE THE NEW PARTICLE IS A NEUTRINO ==> FORGET IT --- + IF ( KPART .EQ. 2 ) GOTO 60 + +C --- PUT CURRENT GHEISHA PARTICLE ON THE CORSIKA STACK +C --- ( IF SURVIVING ANGLE CUT ! ) + NGKINE = 1 + +C --- CALCULATE ELASTICITY + IF ( EN .GT. EMAX ) THEN + EMAX = EN + ENDIF + + ITY=IKPART(KPART) +C OLD COUPLING +C SECPAR(3) = -PZ +C IF ( SECPAR(3) .GT. C(29) ) THEN + + IF ( ITY .LT. 45 ) THEN + SECPAR(1) = DBLE(ITY) + ELSEIF ( ITY .EQ. 45 ) THEN + SECPAR(1) = 201.D0 + ELSEIF ( ITY .EQ. 46 ) THEN + SECPAR(1) = 301.D0 + ELSEIF ( ITY .EQ. 47 ) THEN + SECPAR(1) = 402.D0 + ENDIF + IF ( ABS(AMAS) .LT. 1.E-9 ) THEN + SECPAR(2) = EN + ELSE + SECPAR(2) = DBLE(EN) / DBLE(ABS(AMAS)) + ENDIF + IF ( ITY .EQ. 13 .OR. ITY .EQ. 14 ) THEN + ETOT = ETOT + (SECPAR(2) - 1.D0) * PAMA(ITY) + ELSEIF ( ITY .EQ. 15 .OR. ITY .EQ. 25 ) THEN + ETOT = ETOT + (SECPAR(2) + 1.D0) * PAMA(ITY) + ELSE + ETOT = ETOT + EN + ENDIF +C NEW COUPLING WITH CORSIKA D. HECK DEC. 2000 + THETG = -PZ + IF ( PX .NE. 0. .OR. PY .NE. 0. ) THEN + PHIG = ATAN2( DBLE(PY), DBLE(PX) ) + PHIRAN + ELSE + PHIG = 0.D0 + PHIRAN + ENDIF + CALL ADDANG( CURPAR(3),CURPAR(4),THETG,PHIG, SECPAR(3),SECPAR(4)) +C CHECK WETHER PARTICLE SURVIVES ANGULAR CUT + IF ( SECPAR(3) .GT. C(29) ) THEN + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( ITY .EQ. 1 ) THEN + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + EN + ELSEIF ( ITY .EQ. 2 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + EN + PAMA(2) + ELSEIF ( ITY .EQ. 3 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + EN - PAMA(2) + ELSEIF ( ITY .EQ. 5 .OR. ITY .EQ. 6 ) THEN + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + EN + ELSEIF ( ITY .GE. 7 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + EN - RESTMS(ITY) + ENDIF + ENDIF + ENDIF + +C *** CHECK WHETHER SECONDARIES HAVE BEEN GENERATED AND COPY THEM *** +C *** ALSO ON THE GEANT STACK *** + 60 CONTINUE + +C --- ALL QUANTITIES ARE TAKEN FROM THE GHEISHA STACK WHERE THE --- +C --- CONVENTION IS THE FOLLOWING --- +C +C EVE(INDEX+ 1)= X +C EVE(INDEX+ 2)= Y +C EVE(INDEX+ 3)= Z +C EVE(INDEX+ 4)= NCAL +C EVE(INDEX+ 5)= NCELL +C EVE(INDEX+ 6)= MASS +C EVE(INDEX+ 7)= CHARGE +C EVE(INDEX+ 8)= TOF +C EVE(INDEX+ 9)= PX +C EVE(INDEX+10)= PY +C EVE(INDEX+11)= PZ +C EVE(INDEX+12)= TYPE + + IF ( NTOT .LE. 0 ) GOTO 9999 + +C --- ONE OR MORE SECONDARIES HAVE BEEN GENERATED --- + DO 61 L = 1,NTOT + INDEX = (L-1)*12 + JND = EVE(INDEX+12) + +C --- MAKE CHOICE BETWEEN K0 LONG / K0 SHORT --- + IF ( (JND .NE. 11) .AND. (JND .NE. 12) ) GOTO 63 + CALL GRNDM(RNDM,1) + JND = 11.5+RNDM(1) + +C --- FORGET ABOUT NEUTRINOS --- + 63 CONTINUE + IF ( JND .EQ. 2 ) GOTO 61 + +C --- SWITCH TO CORSIKA QUANTITIES --- + ITY = IKPART(JND) + IF (NPRT(9)) WRITE(MDEBUG,1006) ITY,NGKINE,L,(EVE(INDEX+J),J=1,12) + 1006 FORMAT(' *CGHEI* GEANT PART. ',I3,' ALSO PUT ONTO STACK AT', + $ ' POS. ',I3/ + $ ' EVE(',I2,') = ',(' ',10G12.5)) + + PLX = EVE(INDEX+9) + PLY = EVE(INDEX+10) + PLZ = EVE(INDEX+11) + PLSQ = PLX**2 + PLY**2 + PLZ**2 + PLTOT = SQRT (PLSQ) + RMASSK = ABS(RMASS(JND)) + +C FIND HIGHEST ENERGY PARTICLE FOR ELASTICITY + EEESQ = PLSQ + RMASSK**2 + IF ( EEESQ .GT. EMAX**2 ) THEN + EMAX = SQRT(EEESQ) + ENDIF + +C --- APPLY ANGLE CUT AND +C --- ADD PARTICLE TO THE CORSIKA STACK (RESTRICTED TO 100) --- + IF ( PLTOT .LE. 1.D-10 ) GOTO 61 +C SECPAR(3) = (-PLZ) / PLTOT + THETG = (-PLZ) / PLTOT + IF ( RMASSK .LT. 1.D-9 ) THEN + SECPAR(2) = PLTOT + ELSE + SECPAR(2) = SQRT (PLSQ+RMASSK**2) / RMASSK + ENDIF + IF ( ITY .LT. 45 ) THEN + SECPAR(1) = DBLE(ITY) + ELSEIF ( ITY .EQ. 45 ) THEN + SECPAR(1) = 201.D0 + ELSEIF ( ITY .EQ. 46 ) THEN + SECPAR(1) = 301.D0 + ELSEIF ( ITY .EQ. 47 ) THEN + SECPAR(1) = 402.D0 + ELSE + SECPAR(1) = 0.D0 + WRITE(MONIOU,*) '*CGHEI* ILLEGAL PARTICLE TYPE',ITY + ENDIF +C --- COUNTERS FOR FIRST INTERACTION + ITY = SECPAR(1) + IF ( ITY .EQ. 1 ) THEN + ETOT = ETOT + SQRT(EEESQ) + ELSEIF ( ITY .EQ. 13 .OR. ITY .EQ. 14 ) THEN + ETOT = ETOT + (SECPAR(2) - 1.D0) * PAMA(ITY) + ELSEIF ( ITY .EQ. 15 .OR. ITY .EQ. 25 ) THEN + ETOT = ETOT + (SECPAR(2) + 1.D0) * PAMA(ITY) + ELSE + ETOT = ETOT + SECPAR(2) * PAMA(ITY) + ENDIF + IF ( FIRSTI ) THEN + IF ( ITY .EQ. 7 .OR. ITY .EQ. 8 .OR. + * ITY .EQ. 9 ) THEN + IFINPI = IFINPI + 1 + ELSEIF ( ITY .EQ. 13 .OR. ITY .EQ. 14 .OR. + * ITY .EQ. 15 .OR. ITY .EQ. 25 ) THEN + IFINNU = IFINNU + 1 + ELSEIF ( ITY .EQ. 10 .OR. ITY .EQ. 11 .OR. + * ITY .EQ. 12 .OR. ITY .EQ. 16 ) THEN + IFINKA = IFINKA + 1 + ELSEIF ( ITY .EQ. 17 ) THEN + IFINET = IFINET + 1 + ELSEIF ( (ITY .GE. 18 .AND. ITY .LE. 24) .OR. + * (ITY .GE. 26 .AND. ITY .LE. 32) ) THEN + IFINHY = IFINHY + 1 + ENDIF + ENDIF + +C OLD COUPLING +C IF ( SECPAR(3) .GT. C(29) ) THEN +C NEW COUPLING WITH CORSIKA D. HECK DEC. 2000 + IF ( NGKINE .GE. MXGKGH ) GOTO 9999 + NGKINE = NGKINE+1 + IF ( PLX .NE. 0.D0 .OR. PLY .NE. 0.D0 ) THEN + PHIG = ATAN2( PLY, PLX ) + PHIRAN + ELSE + PHIG = 0.D0 + PHIRAN + ENDIF + CALL ADDANG( CURPAR(3),CURPAR(4),THETG,PHIG, SECPAR(3),SECPAR(4)) +C CHECK WETHER PARTICLE SURVIVES ANGULAR CUT + IF ( SECPAR(3) .GT. C(29) ) THEN + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( ITY .EQ. 1 ) THEN + DLONG(LHEIGH,1) = DLONG(LHEIGH,1) + SECPAR(2) + ELSEIF ( ITY .EQ. 2 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + * + (SECPAR(2)+1.D0)*PAMA(2) + ELSEIF ( ITY .EQ. 3 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + * + (SECPAR(2)-1.D0)*PAMA(2) + ELSEIF ( ITY .EQ. 5 .OR. ITY .EQ. 6 ) THEN + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + SECPAR(2)*PAMA(5) + ELSEIF ( ITY .GE. 7 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + SECPAR(2)*PAMA(ITY) + * - RESTMS(ITY) + ENDIF + ENDIF + ENDIF + + 61 CONTINUE + +C --- COUNTER FOR ENERGY-MULTIPLICITY MATRIX + MSMM = MSMM + NTOT + +C --- FILL ELASTICITY IN MATRICES + ELASTI = EMAX/ENOLD + MELL = MIN ( 1.D0+10.D0* MAX( 0.D0, ELASTI ) , 11.D0 ) + MEN = MIN ( 4.D0+ 3.D0*LOG10(MAX( .1D0, EKINL )), 40.D0 ) + IELDPM(MEN,MELL) = IELDPM(MEN,MELL) + 1 + IELDPA(MEN,MELL) = IELDPA(MEN,MELL) + 1 + IF ( ELASTI .LT. 1. ) THEN + ELMEAN(MEN) = ELMEAN(MEN) + ELASTI + ELMEAA(MEN) = ELMEAA(MEN) + ELASTI + ENDIF + + IF ( FIRSTI ) THEN + TARG1I = ATNO2 + SIG1I = SIGAIR + ELAST = ELASTI + FIRSTI = .FALSE. + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*)'CGHEI : EXIT WITH ETOT=',SNGL(ETOT) + + 9999 CONTINUE +C --- LIMIT THE VALUE OF NGKINE IN CASE OF OVERFLOW --- + NGKINE = MIN(NGKINE,MXGKGH) + + RETURN + END +*CMZ : 28/02/2002 11.42.37 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE CGHINI + +C----------------------------------------------------------------------- +C C(ORSIKA) GH(EISHA) INI(TIALIZATION) +C INITIALIZATION OF RELEVANT GHEISHA VARIABLES +C THIS SUBROUTINE IS CALLED FROM START. +C +C ORIGIN : GHEISHA SUBROUT. "GHEINI", F.CARMINATI +C REDESIGN: P. GABRIEL IK1 FZK KARLSRUHE +C----------------------------------------------------------------------- + +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,CGCOMP. + PARAMETER (KK=3) + COMMON/CGCOMP/ ACOMP,ZCOMP,WCOMP + REAL ACOMP(KK),ZCOMP(KK),WCOMP(KK) +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + COMMON/GSECTI/ AIEL(20),AIIN(20),AIFI(20),AICA(20),ALAM,K0FLAG + INTEGER K0FLAG + REAL AIEL,AIIN,AIFI,AICA,ALAM + +C --- GHEISHA COMMONS --- +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) + + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) + + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM + + PARAMETER (MXGKGH=100) + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) + + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT + + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) + +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU + + +C --- "NEVENT" CHANGED TO "KEVENT" IN COMMON /CURPAR/ DUE TO CLASH --- +C --- WITH VARIABLE "NEVENT" IN GEANT COMMON --- + + PARAMETER (MXGKCU=MXGKGH) + COMMON /CURPAR/ WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,KEVENT,SHFLAG, + $ ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + $ RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + $ ATNO2,ZNO2 + + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'CGHINI:' + +C --- INITIALIZE COMPOSITION OF AIR + WCOMP(1) = COMPOS(1) + WCOMP(2) = COMPOS(2) + WCOMP(3) = COMPOS(3) + ACOMP(1) = 14. + ACOMP(2) = 16. + ACOMP(3) = 40. + ZCOMP(1) = 7. + ZCOMP(2) = 8. + ZCOMP(3) = 18. + +C --- SET GHEISHA I/O UNITS TO THE SAME AS FOR CORSIKA -- + INBCD = MONIIN + NEWBCD = MONIOU + IF ( DEBUG .OR. DEBDEL ) NEWBCD = MDEBUG + +C --- INITIALIZE ALL GHEISHA PRINT FLAGS AS FALSE --- +C --- ACTIVATION IS DONE BY "DEBUG" STEERING CARD --- + DO 11 J = 1,10 + NPRT(J)=.FALSE. + 11 CONTINUE + IF ( DEBUG .AND. GHEISDB ) THEN + NPRT(4)=.TRUE. + NPRT(9)=.TRUE. + ELSE + NPRT(4)=.FALSE. + NPRT(9)=.FALSE. + ENDIF + LPRT=.FALSE. + DO 12 I = 1,MXGKPV + DO 12 J = 1,10 + PV(J,I)=0. + 12 CONTINUE + +C --- INITIALIZE KGINIT ARRAY --- + DO 20 J = 1,50 + KGINIT(J)=0 + 20 CONTINUE + +C --- INITIALIZE SOME CUT-OFF PARAMETERS WITH GEANT VALUES --- + TOFCUT=1.0E+20 + NSIZE=MXEVEN + K0FLAG=0 + CENG(3)=0. + CENG(4)=0. + +C --- INITIALIZE PI, 2*PI, PI/2 AND PARTICLE PARAMETERS --- + PI=ACOS(-1.0) + TWPI=2.0*PI + PIBTW=PI/2.0 +C *** GAMMA *** + RMASS(1)=PAMA(1) + RCHARG(1)=0.0 +C *** NEUTRINO *** + RMASS(2)=PAMA(4) + RCHARG(2)=0.0 +C *** E+ *** + RMASS(3)=PAMA(2) + RCHARG(3)=1.0 +C *** E- *** + RMASS(4)=PAMA(3) + RCHARG(4)=-1.0 +C *** MU+ *** + RMASS(5)=PAMA(5) + RCHARG(5)=1.0 +C *** MU- *** + RMASS(6)=PAMA(6) + RCHARG(6)=-1.0 +C *** PI+ *** + RMASS(7)=PAMA(8) + RCHARG(7)=1.0 + CT=780.4 +C *** PI0 *** + RMASS(8)=PAMA(7) + RCHARG(8)=0.0 +C *** PI- *** + RMASS(9)=PAMA(9) + RCHARG(9)=-1.0 +C *** K+ *** + RMASS(10)=PAMA(11) + RCHARG(10)=1.0 + CTKCH=370.9 +C *** K0 SHORT (==> K0) *** + RMASS(11)=PAMA(16) + RCHARG(11)=0.0 + CTK0=2.675 +C *** K0 LONG (==> K0 BAR) *** + RMASS(12)=-PAMA(10) + RCHARG(12)=0.0 +C *** K- *** + RMASS(13)=PAMA(12) + RCHARG(13)=-1.0 +C *** P *** + RMASS(14)=PAMA(14) + RCHARG(14)=1.0 +C *** P BAR *** + RMASS(15)=-PAMA(15) + RCHARG(15)=-1.0 +C *** N *** + RMASS(16)=PAMA(13) + RCHARG(16)=0.0 +C *** N BAR *** + RMASS(17)=-PAMA(25) + RCHARG(17)=0.0 +C *** L0 *** + RMASS(18)=PAMA(18) + RCHARG(18)=0.0 + CTL0=7.89 +C *** L0 BAR *** + RMASS(19)=-PAMA(26) + RCHARG(19)=0.0 +C *** S+ *** + RMASS(20)=PAMA(19) + RCHARG(20)=1.0 + CTSP=2.40 +C *** S0 *** + RMASS(21)=PAMA(20) + RCHARG(21)=0.0 +C *** S- *** + RMASS(22)=PAMA(21) + RCHARG(22)=-1.0 + CTSM=4.44 +C *** S+ BAR *** + RMASS(23)=-PAMA(27) + RCHARG(23)=-1.0 +C *** S0 BAR *** + RMASS(24)=-PAMA(28) + RCHARG(24)=0.0 +C *** S- BAR *** + RMASS(25)=-PAMA(29) + RCHARG(25)=1.0 +C *** XI0 *** + RMASS(26)=PAMA(22) + RCHARG(26)=0.0 + CTX0=8.69 +C *** XI- *** + RMASS(27)=PAMA(23) + RCHARG(27)=-1.0 + CTXM=4.92 +C *** XI0 BAR *** + RMASS(28)=-PAMA(30) + RCHARG(28)=0.0 + CTX0=8.69 +C *** XI- BAR *** + RMASS(29)=-PAMA(31) + RCHARG(29)=1.0 +C *** DEUTERON *** + RMASS(30)=PAMA(45) + RCHARG(30)=1.0 +C *** TRITON *** + RMASS(31)=PAMA(46) + RCHARG(31)=1.0 +C *** ALPHA *** + RMASS(32)=PAMA(47) + RCHARG(32)=2.0 +C *** OMEGA- *** + RMASS(33)=PAMA(24) + RCHARG(33)=-1.0 +C *** OMEGA- BAR *** + RMASS(34)=-PAMA(32) + RCHARG(34)=1.0 +C *** NEW PARTICLE (GEANTINO) *** + RMASS(35)=0.0 + RCHARG(35)=0.0 + + IF ( NPRT(9) ) + $ WRITE(MDEBUG,1000) (I,RMASS(I),RCHARG(I),I=1,33), + $ CT,CTKCH,CTK0,CTL0,CTSP,CTSM,CTX0,CTXM + 1000 FORMAT(' *CGHINI* === GHEISHA PARTICLE PROPERTIES ==='/ + $ '0INDEX',5X,'MASS (GEV)',5X,'CHARGE'/1H / + $ 33(1H ,1X,I3,5X,F11.6,6X,F5.2/), + $ '0PI +- CT = ',G12.5,' K +- CT = ',G12.5/ + $ ' K0 CT = ',G12.5,' L0 CT = ',G12.5/ + $ ' S+ CT = ',G12.5,' S- CT = ',G12.5/ + $ ' X0 CT = ',G12.5,' X- CT = ',G12.5) + + MP = RMASS(14) + MPI = RMASS(7) + MMU = RMASS(5) + MEL = RMASS(3) + MKCH = RMASS(10) + MK0 = RMASS(11) + SMP = MP**2 + SMPI = MPI**2 + SMU = MMU**2 + ML0 = RMASS(18) + MSP = RMASS(20) + MS0 = RMASS(21) + MSM = RMASS(22) + MX0 = RMASS(26) + MXM = RMASS(27) + +C --- LOAD LIMITS FOR INTRINSIC FUNCTION ARGUMENTS --- + EXPXL = -82.0 + EXPXU = 82.0 + + IF ( NPRT(9) ) WRITE(MDEBUG,1001) EXPXL,EXPXU + 1001 FORMAT(' *GHEINI* === INTRINSIC FUNCTION BOUNDARIES ==='/ + $ ' EXPXL,EXPXU = ',2(G12.5,1X)) + + RETURN + END +*CMZ : 28/02/2002 11.42.37 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + DOUBLE PRECISION FUNCTION CGHSIG( PPART,EKIN,LPART ) + +C----------------------------------------------------------------------- +C C(ORSIKA) GH(EISHA) SIG(MA) +C +C CALCULATION OF THE PROBABILITIES FOR (IN)ELASTIC INTERACTIONS *** +C THIS FUNCTION IS CALLED FROM BOX2. +C ARGUMENTS: +C PPART = R*4 PARTICLE MOMENTUM (GEV) +C EKIN = R*4 KINETIC ENERGY (GEV) +C LPART = PARTICLE TYPE +C +C ORIGIN : F.CARMINATI, H.FESEFELDT (SUBROUT. GHESIG) +C REDESIGN: P. GABRIEL IK1 FZK KARLSRUHE +C----------------------------------------------------------------------- +C *** IPART DENOTES THE GHEISHA PARTICLE INDEX *** +C +C CONVENTION : +C +C PARTICLE IPART +C ------------------------------ +C GAMMA 1 +C NEUTRINO 2 +C POSITRON 3 +C ELECTRON 4 +C MUON + 5 +C MUON - 6 +C PION + 7 +C PION 0 8 +C PION - 9 +C KAON + 10 +C KAON 0 S 11 +C KAON 0 L 12 +C KAON - 13 +C PROTON 14 +C PROTON BAR 15 +C NEUTRON 16 +C NEUTRON BAR 17 +C LAMBDA 18 +C LAMBDA BAR 19 +C SIGMA + 20 +C SIGMA 0 21 +C SIGMA - 22 +C SIGMA + BAR 23 +C SIGMA 0 BAR 24 +C SIGMA - BAR 25 +C XSI 0 26 +C XSI - 27 +C XSI 0 BAR 28 +C XSI - BAR 29 +C DEUTERON 30 +C TRITON 31 +C ALPHA 32 +C OMEGA - 33 +C OMEGA - BAR 34 +C NEW PARTICLES 35 +C +C----------------------------------------------------------------------- + +*KEEP,CGCOMP. + PARAMETER (KK=3) + COMMON/CGCOMP/ ACOMP,ZCOMP,WCOMP + REAL ACOMP(KK),ZCOMP(KK),WCOMP(KK) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + COMMON/GSECTI/ AIEL(20),AIIN(20),AIFI(20),AICA(20),ALAM,K0FLAG + INTEGER K0FLAG + REAL AIEL,AIIN,AIFI,AICA,ALAM + +C --- GHEISHA COMMONS --- + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT + + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT + + + DIMENSION ALPHA(35),ALPHAC(41),IPART2(7),CSA(4) + DIMENSION PARTEL(35),PARTIN(35),INTRC(35) +* DIMENSION ICORR(35) + +C --- DIMENSION STATEMENTS FOR CROSS-SECTION DATA --- + DIMENSION PLAB(41),CSEL(35,41),CSIN(35,41),CSPIEL(3,41), + $ CSPIIN(3,41),CSPNEL(3,41),CSPNIN(3,41), + $ ELAB(17),CNLWAT(15),CNLWEL(15,17),CNLWIN(15,17), + $ CSCAP(100) + +C --- DIMENSION STMTS. FOR GEANT/GHEISHA PARTICLE CODE CONVERSIONS --- +C --- KIPART(I)=GHEISHA CODE CORRESPONDING TO GEANT CODE I --- +C --- IKPART(I)=GEANT CODE CORRESPONDING TO GHEISHA CODE I --- + + DIMENSION KIPART(48) +* DIMENSION IKPART(35) + + SAVE + +C --- CROSS-SECTION DATA BY "PCSDAT" 01-FEB-1989 --- + DATA PLAB / + $ 0.00000E+00, 0.10000 , 0.15000 , 0.20000 , 0.25000 , + $ 0.30000 , 0.35000 , 0.40000 , 0.45000 , 0.50000 , + $ 0.55000 , 0.60000 , 0.65000 , 0.70000 , 0.75000 , + $ 0.80000 , 0.85000 , 0.90000 , 0.95000 , 1.0000 , + $ 1.1000 , 1.2000 , 1.3000 , 1.4000 , 1.5000 , + $ 1.6000 , 1.8000 , 2.0000 , 2.2000 , 2.4000 , + $ 2.6000 , 2.8000 , 3.0000 , 4.0000 , 5.0000 , + $ 6.0000 , 8.0000 , 10.000 , 20.000 , 100.00 , + $ 1000.0 / + +C ELASTIC SCATTERING CROSS-SECTIONS ON FREE PROTONS +C GAMMA, NEUTRINO, POSITRON, ELECTRON, MU(+), MU(-) + DATA ((CSEL(I,J),I=1,6),J=1,41) / 246 * 0. / +C PI(0) + DATA (CSEL( 8,J),J=1,41) / 41 * 0. / +C SIGMA(0) + DATA (CSEL(21,J),J=1,41) / 41 * 0. / +C SIGMA(0)_BAR + DATA (CSEL(24,J),J=1,41) / 41 * 0. / +C DEUTERIUM, TRITIUM, ALPHA + DATA ((CSEL(I,J),I=30,32),J=1,41) / 123 * 0. / +C NEW PARTICLES + DATA (CSEL(35,J),J=1,41) / 41 * 0. / +C PI(+) + DATA (CSEL( 7,J),J=1,41) / + $ 0.00000E+00, 6.0000 , 20.000 , 71.000 , 155.00 , + $ 195.00 , 130.00 , 78.000 , 60.000 , 32.000 , + $ 23.500 , 18.500 , 15.000 , 12.500 , 10.000 , + $ 9.1000 , 8.6000 , 8.8000 , 9.5000 , 10.600 , + $ 13.000 , 15.500 , 17.100 , 17.200 , 16.200 , + $ 15.000 , 12.300 , 10.200 , 9.0000 , 8.0000 , + $ 7.3000 , 6.8000 , 6.5000 , 5.8000 , 5.4000 , + $ 5.2000 , 5.0000 , 4.9000 , 3.8000 , 3.2000 , + $ 3.5000 / +C PI(-) + DATA (CSEL( 9,J),J=1,41) / + $ 0.00000E+00, 1.0000 , 3.0000 , 8.0000 , 18.000 , + $ 25.000 , 27.500 , 12.300 , 10.600 , 11.000 , + $ 12.500 , 14.500 , 17.000 , 19.400 , 19.800 , + $ 16.800 , 14.000 , 14.800 , 20.000 , 26.100 , + $ 19.500 , 15.000 , 12.800 , 11.500 , 10.500 , + $ 9.8000 , 8.8000 , 8.2000 , 7.8000 , 7.5000 , + $ 7.2000 , 7.0000 , 6.8000 , 6.1000 , 5.7000 , + $ 5.4000 , 4.9000 , 4.6000 , 4.0000 , 3.3000 , + $ 3.5000 / +C K(+) + DATA (CSEL(10,J),J=1,41) / + $ 10.000 , 11.200 , 11.300 , 11.400 , 11.500 , + $ 11.600 , 11.800 , 12.000 , 12.100 , 12.200 , + $ 12.300 , 12.400 , 12.500 , 12.500 , 12.500 , + $ 12.400 , 12.300 , 12.200 , 12.000 , 11.800 , + $ 11.200 , 11.500 , 9.9000 , 9.4000 , 8.8000 , + $ 8.4000 , 7.5000 , 6.9000 , 6.3000 , 5.9000 , + $ 5.5000 , 5.2000 , 5.0000 , 4.0000 , 3.5000 , + $ 3.3000 , 3.1000 , 3.1000 , 3.0000 , 2.5000 , + $ 3.0000 / +C K(0) SHORT + DATA (CSEL(11,J),J=1,41) / + $ 10.000 , 11.200 , 11.300 , 11.400 , 11.500 , + $ 11.600 , 11.800 , 12.000 , 12.100 , 12.200 , + $ 12.300 , 12.400 , 12.500 , 12.500 , 12.500 , + $ 12.400 , 12.300 , 12.200 , 12.000 , 11.800 , + $ 11.200 , 11.500 , 9.9000 , 9.4000 , 8.8000 , + $ 8.4000 , 7.5000 , 6.9000 , 6.3000 , 5.9000 , + $ 5.5000 , 5.2000 , 5.0000 , 4.0000 , 3.5000 , + $ 3.3000 , 3.1000 , 3.1000 , 3.0000 , 2.5000 , + $ 3.0000 / +C K(0) LONG + DATA (CSEL(12,J),J=1,41) / + $ 160.83 , 82.800 , 58.575 , 43.683 , 34.792 , + $ 28.650 , 24.367 , 20.917 , 18.192 , 16.300 , + $ 14.608 , 13.017 , 12.250 , 11.700 , 12.017 , + $ 14.075 , 15.842 , 16.433 , 16.042 , 15.008 , + $ 12.575 , 10.708 , 9.2000 , 8.0167 , 7.2833 , + $ 7.0750 , 6.6333 , 6.1250 , 5.6583 , 5.2750 , + $ 4.9333 , 4.6250 , 4.4583 , 3.7333 , 3.3833 , + $ 3.1833 , 2.9833 , 2.7500 , 2.3667 , 2.2000 , + $ 2.6000 / +C K(-) + DATA (CSEL(13,J),J=1,41) / + $ 300.00 , 140.00 , 97.000 , 70.000 , 55.000 , + $ 45.000 , 37.000 , 31.000 , 26.000 , 23.000 , + $ 20.000 , 17.000 , 15.500 , 14.500 , 14.700 , + $ 18.500 , 22.000 , 23.000 , 22.500 , 20.700 , + $ 16.500 , 14.000 , 11.500 , 9.6000 , 8.6000 , + $ 8.5000 , 8.3000 , 7.6000 , 7.0000 , 6.4000 , + $ 5.9000 , 5.5000 , 5.3000 , 4.4000 , 4.1000 , + $ 3.9000 , 3.7000 , 3.3000 , 2.6000 , 2.5000 , + $ 3.0000 / +C PROTON + DATA (CSEL(14,J),J=1,41) / + $ 1100.0 , 115.00 , 105.00 , 100.00 , 56.000 , + $ 40.000 , 27.000 , 22.000 , 21.000 , 20.000 , + $ 20.000 , 20.000 , 20.500 , 21.000 , 22.000 , + $ 23.000 , 24.000 , 24.000 , 24.400 , 24.500 , + $ 25.000 , 25.500 , 26.000 , 26.500 , 27.000 , + $ 27.000 , 26.000 , 23.000 , 21.500 , 20.000 , + $ 19.000 , 18.000 , 17.000 , 13.000 , 11.500 , + $ 10.300 , 9.4000 , 9.0000 , 8.8000 , 7.0000 , + $ 7.5000 / +C PROTON_BAR + DATA (CSEL(15,J),J=1,41) / + $ 200.00 , 163.00 , 141.00 , 120.00 , 111.00 , + $ 99.500 , 92.500 , 86.500 , 82.000 , 78.000 , + $ 74.000 , 71.000 , 67.500 , 65.000 , 62.500 , + $ 59.700 , 58.100 , 56.300 , 54.700 , 52.700 , + $ 50.000 , 48.400 , 47.000 , 46.000 , 45.200 , + $ 42.800 , 39.200 , 36.300 , 32.800 , 30.400 , + $ 28.100 , 26.300 , 24.500 , 19.250 , 16.840 , + $ 14.600 , 12.340 , 11.210 , 8.8500 , 7.5000 , + $ 7.5000 / +C NEUTRON + DATA (CSEL(16,J),J=1,41) / + $ 4200.0 , 440.00 , 420.00 , 400.00 , 230.00 , + $ 160.00 , 105.00 , 80.000 , 62.000 , 50.000 , + $ 45.000 , 41.000 , 38.000 , 36.000 , 35.000 , + $ 34.000 , 33.000 , 32.000 , 31.500 , 31.000 , + $ 30.500 , 30.000 , 29.500 , 29.000 , 28.500 , + $ 28.000 , 26.000 , 23.000 , 21.500 , 20.000 , + $ 19.000 , 18.000 , 17.000 , 13.000 , 11.500 , + $ 10.300 , 9.4000 , 9.0000 , 8.8000 , 7.0000 , + $ 7.5000 / +C NEUTRON_BAR + DATA (CSEL(17,J),J=1,41) / + $ 185.88 , 133.23 , 119.37 , 102.86 , 93.102 , + $ 82.752 , 76.205 , 71.008 , 67.366 , 64.096 , + $ 60.891 , 58.501 , 55.735 , 53.773 , 51.839 , + $ 49.671 , 48.485 , 47.045 , 45.803 , 44.306 , + $ 42.623 , 41.786 , 41.115 , 40.630 , 40.129 , + $ 38.242 , 35.233 , 32.662 , 29.639 , 27.573 , + $ 25.536 , 23.948 , 22.356 , 17.723 , 15.614 , + $ 13.653 , 11.675 , 10.653 , 8.6198 , 7.4464 , + $ 7.4821 / +C LAMBDA + DATA (CSEL(18,J),J=1,41) / + $ 1100.0 , 115.00 , 105.00 , 100.00 , 56.000 , + $ 40.000 , 27.000 , 22.000 , 21.000 , 20.000 , + $ 20.000 , 19.067 , 19.333 , 19.500 , 19.833 , + $ 20.567 , 21.800 , 22.900 , 23.869 , 23.809 , + $ 22.161 , 21.488 , 19.732 , 19.433 , 19.345 , + $ 19.029 , 18.121 , 16.280 , 15.258 , 14.280 , + $ 13.644 , 12.963 , 12.316 , 9.5333 , 8.4333 , + $ 7.5728 , 6.9696 , 6.7518 , 6.6175 , 5.6000 , + $ 6.1145 / +C LAMBDA_BAR + DATA (CSEL(19,J),J=1,41) / + $ 157.65 , 73.701 , 76.096 , 68.571 , 57.305 , + $ 49.257 , 43.616 , 40.024 , 38.098 , 36.287 , + $ 34.674 , 33.105 , 31.712 , 30.685 , 29.613 , + $ 28.602 , 28.336 , 28.075 , 27.786 , 27.215 , + $ 26.380 , 26.146 , 25.108 , 24.783 , 24.360 , + $ 23.219 , 21.431 , 20.095 , 18.382 , 17.267 , + $ 16.100 , 15.175 , 14.271 , 11.573 , 10.305 , + $ 9.1471 , 8.0149 , 7.4349 , 6.2499 , 5.8928 , + $ 6.0774 / +C SIGMA(+) + DATA (CSEL(20,J),J=1,41) / + $ 1100.0 , 115.00 , 105.00 , 100.00 , 56.000 , + $ 40.000 , 27.000 , 22.000 , 21.000 , 20.000 , + $ 20.000 , 19.067 , 19.333 , 19.500 , 19.833 , + $ 20.567 , 21.800 , 22.900 , 23.869 , 23.809 , + $ 22.161 , 21.488 , 19.732 , 19.433 , 19.345 , + $ 19.029 , 18.121 , 16.280 , 15.258 , 14.280 , + $ 13.644 , 12.963 , 12.316 , 9.5333 , 8.4333 , + $ 7.5728 , 6.9696 , 6.7518 , 6.6175 , 5.6000 , + $ 6.1145 / +C SIGMA(-) + DATA (CSEL(22,J),J=1,41) / + $ 1100.0 , 115.00 , 105.00 , 100.00 , 56.000 , + $ 40.000 , 27.000 , 22.000 , 21.000 , 20.000 , + $ 20.000 , 19.067 , 19.333 , 19.500 , 19.833 , + $ 20.567 , 21.800 , 22.900 , 23.869 , 23.809 , + $ 22.161 , 21.488 , 19.732 , 19.433 , 19.345 , + $ 19.029 , 18.121 , 16.280 , 15.258 , 14.280 , + $ 13.644 , 12.963 , 12.316 , 9.5333 , 8.4333 , + $ 7.5728 , 6.9696 , 6.7518 , 6.6175 , 5.6000 , + $ 6.1145 / +C SIGMA(+)_BAR + DATA (CSEL(23,J),J=1,41) / + $ 185.88 , 133.23 , 119.37 , 102.86 , 93.102 , + $ 82.752 , 76.205 , 71.008 , 67.366 , 64.096 , + $ 60.891 , 58.104 , 55.241 , 53.140 , 50.934 , + $ 48.660 , 47.566 , 46.585 , 45.581 , 44.003 , + $ 41.134 , 39.374 , 36.878 , 35.523 , 34.503 , + $ 32.334 , 29.365 , 27.370 , 24.705 , 22.921 , + $ 21.229 , 19.879 , 18.559 , 14.625 , 12.758 , + $ 11.041 , 9.3440 , 8.5484 , 6.7104 , 6.0000 , + $ 6.1131 / +C SIGMA(-)_BAR + DATA (CSEL(25,J),J=1,41) / + $ 157.65 , 73.701 , 76.096 , 68.571 , 57.305 , + $ 49.257 , 43.616 , 40.024 , 38.098 , 36.287 , + $ 34.674 , 33.105 , 31.712 , 30.685 , 29.613 , + $ 28.602 , 28.336 , 28.075 , 27.786 , 27.215 , + $ 26.380 , 26.146 , 25.108 , 24.783 , 24.360 , + $ 23.219 , 21.431 , 20.095 , 18.382 , 17.267 , + $ 16.100 , 15.175 , 14.271 , 11.573 , 10.305 , + $ 9.1471 , 8.0149 , 7.4349 , 6.2499 , 5.8928 , + $ 6.0774 / +C XI(0) + DATA (CSEL(26,J),J=1,41) / + $ 1100.0 , 115.00 , 105.00 , 100.00 , 56.000 , + $ 40.000 , 27.000 , 22.000 , 21.000 , 20.000 , + $ 20.000 , 18.133 , 18.167 , 18.000 , 17.667 , + $ 18.133 , 19.600 , 21.800 , 23.338 , 23.118 , + $ 19.323 , 17.476 , 13.464 , 12.367 , 11.691 , + $ 11.057 , 10.242 , 9.5593 , 9.0151 , 8.5591 , + $ 8.2884 , 7.9253 , 7.6311 , 6.0667 , 5.3667 , + $ 4.8456 , 4.5392 , 4.5036 , 4.4351 , 4.2000 , + $ 4.7289 / +C XI(-) + DATA (CSEL(27,J),J=1,41) / + $ 1100.0 , 115.00 , 105.00 , 100.00 , 56.000 , + $ 40.000 , 27.000 , 22.000 , 21.000 , 20.000 , + $ 20.000 , 18.133 , 18.167 , 18.000 , 17.667 , + $ 18.133 , 19.600 , 21.800 , 23.338 , 23.118 , + $ 19.323 , 17.476 , 13.464 , 12.367 , 11.691 , + $ 11.057 , 10.242 , 9.5593 , 9.0151 , 8.5591 , + $ 8.2884 , 7.9253 , 7.6311 , 6.0667 , 5.3667 , + $ 4.8456 , 4.5392 , 4.5036 , 4.4351 , 4.2000 , + $ 4.7289 / +C XI(0)_BAR + DATA (CSEL(28,J),J=1,41) / + $ 157.65 , 73.701 , 76.096 , 68.571 , 57.305 , + $ 49.257 , 43.616 , 40.024 , 38.098 , 36.287 , + $ 34.674 , 32.708 , 31.218 , 30.052 , 28.707 , + $ 27.591 , 27.417 , 27.615 , 27.564 , 26.913 , + $ 24.891 , 23.734 , 20.871 , 19.677 , 18.734 , + $ 17.311 , 15.563 , 14.803 , 13.448 , 12.615 , + $ 11.794 , 11.106 , 10.474 , 8.4745 , 7.4498 , + $ 6.5350 , 5.6835 , 5.3300 , 4.3406 , 4.4464 , + $ 4.7083 / +C XI(-)_BAR + DATA (CSEL(29,J),J=1,41) / + $ 143.53 , 43.935 , 54.462 , 51.429 , 39.407 , + $ 32.510 , 27.321 , 24.532 , 23.465 , 22.383 , + $ 21.566 , 20.209 , 19.453 , 18.825 , 18.046 , + $ 17.562 , 17.802 , 18.360 , 18.667 , 18.519 , + $ 17.514 , 17.120 , 14.985 , 14.306 , 13.663 , + $ 12.753 , 11.596 , 11.165 , 10.287 , 9.7882 , + $ 9.2294 , 8.7539 , 8.3300 , 6.9480 , 6.2234 , + $ 5.5881 , 5.0189 , 4.7733 , 4.1104 , 4.3929 , + $ 4.6905 / +C OMEGA(-) + DATA (CSEL(33,J),J=1,41) / + $ 1100.0 , 115.00 , 105.00 , 100.00 , 56.000 , + $ 40.000 , 27.000 , 22.000 , 21.000 , 20.000 , + $ 20.000 , 18.133 , 18.167 , 18.000 , 17.667 , + $ 18.133 , 19.600 , 21.800 , 23.338 , 23.118 , + $ 19.323 , 17.476 , 13.464 , 12.367 , 11.691 , + $ 11.057 , 10.242 , 9.5593 , 9.0151 , 8.5591 , + $ 8.2884 , 7.9253 , 7.6311 , 6.0667 , 5.3667 , + $ 4.8456 , 4.5392 , 4.5036 , 4.4351 , 4.2000 , + $ 4.7289 / +C OMEGA(-)_BAR + DATA (CSEL(34,J),J=1,41) / + $ 143.53 , 43.935 , 54.462 , 51.429 , 39.407 , + $ 32.510 , 27.321 , 24.532 , 23.465 , 22.383 , + $ 21.566 , 20.209 , 19.453 , 18.825 , 18.046 , + $ 17.562 , 17.802 , 18.360 , 18.667 , 18.519 , + $ 17.514 , 17.120 , 14.985 , 14.306 , 13.663 , + $ 12.753 , 11.596 , 11.165 , 10.287 , 9.7882 , + $ 9.2294 , 8.7539 , 8.3300 , 6.9480 , 6.2234 , + $ 5.5881 , 5.0189 , 4.7733 , 4.1104 , 4.3929 , + $ 4.6905 / + +C INELASTIC CROSS-SECTIONS ON FREE PROTONS +C GAMMA, NEUTRINO, POSITRON, ELECTRON, MU(+), MU(-) + DATA ((CSIN(I,J),I=1,6),J=1,41) / 246 * 0. / +C PI(0) + DATA (CSIN( 8,J),J=1,41) / 41 * 0. / +C SIGMA(0) + DATA (CSIN(21,J),J=1,41) / 41 * 0. / +C SIGMA(0)_BAR + DATA (CSIN(24,J),J=1,41) / 41 * 0. / +C DEUTERIUM, TRITIUM, ALPHA + DATA ((CSIN(I,J),I=30,32),J=1,41) / 123 * 0. / +C NEW PARTICLES + DATA (CSIN(35,J),J=1,41) / 41 * 0. / +C PI(+) + DATA (CSIN( 7,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.50000 , 1.2000 , 1.7000 , + $ 2.2500 , 3.0000 , 3.6000 , 4.5000 , 5.4000 , + $ 6.3000 , 8.6000 , 9.0000 , 10.000 , 11.500 , + $ 14.000 , 17.000 , 19.500 , 22.000 , 24.000 , + $ 21.500 , 18.500 , 19.000 , 20.500 , 22.200 , + $ 23.000 , 23.300 , 23.000 , 21.000 , 20.500 , + $ 20.200 , 20.100 , 20.000 , 20.000 , 20.000 , + $ 21.000 / +C PI(-) + DATA (CSIN( 9,J),J=1,41) / + $ 0.00000E+00, 3.0000 , 9.2000 , 20.500 , 36.500 , + $ 45.000 , 28.000 , 19.500 , 15.500 , 14.200 , + $ 15.500 , 17.500 , 20.000 , 23.000 , 26.000 , + $ 20.000 , 23.000 , 26.500 , 32.000 , 35.000 , + $ 28.500 , 22.000 , 22.500 , 23.500 , 24.000 , + $ 24.500 , 26.000 , 27.500 , 27.500 , 27.000 , + $ 26.500 , 25.500 , 25.000 , 23.000 , 22.500 , + $ 22.200 , 22.000 , 22.000 , 21.200 , 20.700 , + $ 21.000 / +C K(+) + DATA (CSIN(10,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.50000 , 1.5000 , 2.7000 , 3.8000 , 4.8000 , + $ 6.5000 , 7.6000 , 8.4000 , 9.0000 , 9.4000 , + $ 9.8000 , 10.500 , 11.000 , 11.500 , 11.800 , + $ 12.200 , 12.400 , 12.600 , 13.200 , 13.500 , + $ 13.700 , 14.000 , 14.200 , 14.500 , 16.400 , + $ 17.000 / +C K(0) SHORT + DATA (CSIN(11,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.50000 , 1.5000 , 2.7000 , 3.8000 , 4.8000 , + $ 6.5000 , 7.6000 , 8.4000 , 9.0000 , 9.4000 , + $ 9.8000 , 10.500 , 11.000 , 11.500 , 11.800 , + $ 12.200 , 12.400 , 12.600 , 13.200 , 13.500 , + $ 13.700 , 14.000 , 14.200 , 14.500 , 16.400 , + $ 17.000 / +C K(0) LONG + DATA (CSIN(12,J),J=1,41) / + $ 266.67 , 133.33 , 83.333 , 57.083 , 44.500 , + $ 33.250 , 24.583 , 20.833 , 18.333 , 16.083 , + $ 15.625 , 15.083 , 14.833 , 15.083 , 15.833 , + $ 17.042 , 18.958 , 20.758 , 22.533 , 22.825 , + $ 21.250 , 18.567 , 17.767 , 18.100 , 19.933 , + $ 20.783 , 21.225 , 21.000 , 20.558 , 20.258 , + $ 20.017 , 19.767 , 19.600 , 19.183 , 18.850 , + $ 18.575 , 18.350 , 18.175 , 17.808 , 17.558 , + $ 19.250 / +C K(-) + DATA (CSIN(13,J),J=1,41) / + $ 400.00 , 200.00 , 120.00 , 81.000 , 62.000 , + $ 47.000 , 35.000 , 28.000 , 24.000 , 21.000 , + $ 19.500 , 19.000 , 18.800 , 19.000 , 20.000 , + $ 21.000 , 23.000 , 25.000 , 27.000 , 27.500 , + $ 25.500 , 22.000 , 20.800 , 21.000 , 23.000 , + $ 24.000 , 24.000 , 23.800 , 23.000 , 22.500 , + $ 22.000 , 21.600 , 21.400 , 21.000 , 20.500 , + $ 20.200 , 19.800 , 19.500 , 18.600 , 17.500 , + $ 20.000 / +C PROTON + DATA (CSIN(14,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.10000 , 1.5000 , + $ 7.0000 , 12.000 , 17.000 , 19.500 , 20.500 , + $ 22.000 , 23.500 , 24.800 , 25.800 , 26.500 , + $ 27.000 , 27.500 , 28.000 , 30.000 , 31.000 , + $ 32.000 , 32.500 , 32.500 , 33.000 , 33.500 , + $ 34.000 / +C PROTON_BAR + DATA (CSIN(15,J),J=1,41) / + $ 1500.0 , 1160.0 , 310.00 , 230.00 , 178.00 , + $ 153.00 , 134.00 , 124.00 , 113.00 , 106.00 , + $ 101.00 , 96.000 , 92.000 , 89.000 , 87.000 , + $ 84.000 , 81.000 , 78.500 , 76.500 , 75.000 , + $ 72.000 , 70.000 , 68.000 , 64.500 , 63.000 , + $ 62.000 , 61.000 , 59.500 , 58.500 , 56.500 , + $ 56.500 , 56.000 , 55.500 , 52.000 , 50.000 , + $ 48.000 , 45.000 , 44.000 , 39.200 , 34.500 , + $ 34.500 / +C NEUTRON + DATA (CSIN(16,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.10000 , 1.5000 , + $ 7.0000 , 12.000 , 17.000 , 19.500 , 20.500 , + $ 22.000 , 23.500 , 24.800 , 25.800 , 26.500 , + $ 27.000 , 27.500 , 28.000 , 30.000 , 31.000 , + $ 32.000 , 32.500 , 32.500 , 33.000 , 33.500 , + $ 34.000 / +C NEUTRON_BAR + DATA (CSIN(17,J),J=1,41) / + $ 1394.1 , 948.17 , 262.43 , 197.14 , 149.30 , + $ 127.25 , 110.39 , 101.79 , 92.834 , 87.104 , + $ 83.109 , 79.099 , 75.965 , 73.627 , 72.161 , + $ 69.889 , 67.595 , 65.595 , 64.057 , 63.054 , + $ 61.377 , 60.434 , 59.485 , 56.970 , 55.931 , + $ 55.398 , 54.827 , 53.538 , 52.861 , 51.247 , + $ 51.344 , 50.992 , 50.644 , 47.876 , 46.358 , + $ 44.887 , 42.577 , 41.815 , 38.180 , 34.254 , + $ 34.418 / +C LAMBDA + DATA (CSIN(18,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.97815E-01, 1.4577 , + $ 6.2052 , 10.112 , 12.902 , 14.300 , 14.688 , + $ 15.505 , 16.379 , 17.554 , 18.309 , 18.920 , + $ 19.389 , 19.804 , 20.284 , 22.000 , 22.733 , + $ 23.527 , 24.097 , 24.382 , 24.816 , 26.800 , + $ 27.719 / +C LAMBDA_BAR + DATA (CSIN(19,J),J=1,41) / + $ 1182.4 , 524.50 , 167.30 , 131.43 , 91.895 , + $ 75.743 , 63.184 , 57.376 , 52.502 , 49.313 , + $ 47.326 , 44.762 , 43.222 , 42.015 , 41.221 , + $ 40.244 , 39.504 , 39.145 , 38.860 , 38.731 , + $ 37.987 , 37.814 , 36.326 , 34.750 , 33.953 , + $ 33.635 , 33.349 , 32.938 , 32.785 , 32.092 , + $ 32.373 , 32.312 , 32.329 , 31.261 , 30.597 , + $ 30.073 , 29.228 , 29.182 , 27.683 , 27.107 , + $ 27.956 / +C SIGMA(+) + DATA (CSIN(20,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.97815E-01, 1.4577 , + $ 6.2052 , 10.112 , 12.902 , 14.300 , 14.688 , + $ 15.505 , 16.379 , 17.554 , 18.309 , 18.920 , + $ 19.389 , 19.804 , 20.284 , 22.000 , 22.733 , + $ 23.527 , 24.097 , 24.382 , 24.816 , 26.800 , + $ 27.719 / +C SIGMA(-) + DATA (CSIN(22,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.97815E-01, 1.4577 , + $ 6.2052 , 10.112 , 12.902 , 14.300 , 14.688 , + $ 15.505 , 16.379 , 17.554 , 18.309 , 18.920 , + $ 19.389 , 19.804 , 20.284 , 22.000 , 22.733 , + $ 23.527 , 24.097 , 24.382 , 24.816 , 26.800 , + $ 27.719 / +C SIGMA(+)_BAR + DATA (CSIN(23,J),J=1,41) / + $ 1394.1 , 948.17 , 262.43 , 197.14 , 149.30 , + $ 127.25 , 110.39 , 101.79 , 92.834 , 87.104 , + $ 83.109 , 78.563 , 75.292 , 72.760 , 70.900 , + $ 68.467 , 66.314 , 64.955 , 63.746 , 62.623 , + $ 59.233 , 56.946 , 53.355 , 49.810 , 48.090 , + $ 46.839 , 45.695 , 44.863 , 44.062 , 42.599 , + $ 42.684 , 42.328 , 42.041 , 39.508 , 37.880 , + $ 36.299 , 34.075 , 33.553 , 29.723 , 27.600 , + $ 28.120 / +C SIGMA(-)_BAR + DATA (CSIN(25,J),J=1,41) / + $ 1182.4 , 524.50 , 167.30 , 131.43 , 91.895 , + $ 75.743 , 63.184 , 57.376 , 52.502 , 49.313 , + $ 47.326 , 44.762 , 43.222 , 42.015 , 41.221 , + $ 40.244 , 39.504 , 39.145 , 38.860 , 38.731 , + $ 37.987 , 37.814 , 36.326 , 34.750 , 33.953 , + $ 33.635 , 33.349 , 32.938 , 32.785 , 32.092 , + $ 32.373 , 32.312 , 32.329 , 31.261 , 30.597 , + $ 30.073 , 29.228 , 29.182 , 27.683 , 27.107 , + $ 27.956 / +C XI(0) + DATA (CSIN(26,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.95639E-01, 1.4154 , + $ 5.4104 , 8.2240 , 8.8031 , 9.1000 , 8.8761 , + $ 9.0095 , 9.2576 , 10.307 , 10.818 , 11.341 , + $ 11.778 , 12.108 , 12.569 , 14.000 , 14.467 , + $ 15.054 , 15.694 , 16.263 , 16.632 , 20.100 , + $ 21.438 / +C XI(-) + DATA (CSIN(27,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.95639E-01, 1.4154 , + $ 5.4104 , 8.2240 , 8.8031 , 9.1000 , 8.8761 , + $ 9.0095 , 9.2576 , 10.307 , 10.818 , 11.341 , + $ 11.778 , 12.108 , 12.569 , 14.000 , 14.467 , + $ 15.054 , 15.694 , 16.263 , 16.632 , 20.100 , + $ 21.438 / +C XI(0)_BAR + DATA (CSIN(28,J),J=1,41) / + $ 1182.4 , 524.50 , 167.30 , 131.43 , 91.895 , + $ 75.743 , 63.184 , 57.376 , 52.502 , 49.313 , + $ 47.326 , 44.225 , 42.549 , 41.148 , 39.960 , + $ 38.822 , 38.223 , 38.505 , 38.549 , 38.301 , + $ 35.843 , 34.326 , 30.196 , 27.590 , 26.112 , + $ 25.076 , 24.217 , 24.264 , 23.985 , 23.445 , + $ 23.713 , 23.647 , 23.726 , 22.892 , 22.119 , + $ 21.485 , 20.726 , 20.921 , 19.226 , 20.454 , + $ 21.658 / +C XI(-)_BAR + DATA (CSIN(29,J),J=1,41) / + $ 1076.5 , 312.66 , 119.74 , 98.571 , 63.193 , + $ 49.990 , 39.579 , 35.168 , 32.335 , 30.417 , + $ 29.434 , 27.325 , 26.514 , 25.775 , 25.120 , + $ 24.711 , 24.818 , 25.600 , 26.106 , 26.355 , + $ 25.220 , 24.760 , 21.681 , 20.060 , 19.044 , + $ 18.474 , 18.044 , 18.301 , 18.347 , 18.192 , + $ 18.557 , 18.639 , 18.870 , 18.769 , 18.478 , + $ 18.372 , 18.302 , 18.735 , 18.206 , 20.207 , + $ 21.576 / +C OMEGA(-) + DATA (CSIN(33,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.95639E-01, 1.4154 , + $ 5.4104 , 8.2240 , 8.8031 , 9.1000 , 8.8761 , + $ 9.0095 , 9.2576 , 10.307 , 10.818 , 11.341 , + $ 11.778 , 12.108 , 12.569 , 14.000 , 14.467 , + $ 15.054 , 15.694 , 16.263 , 16.632 , 20.100 , + $ 21.438 / +C OMEGA(-)_BAR + DATA (CSIN(34,J),J=1,41) / + $ 1076.5 , 312.66 , 119.74 , 98.571 , 63.193 , + $ 49.990 , 39.579 , 35.168 , 32.335 , 30.417 , + $ 29.434 , 27.325 , 26.514 , 25.775 , 25.120 , + $ 24.711 , 24.818 , 25.600 , 26.106 , 26.355 , + $ 25.220 , 24.760 , 21.681 , 20.060 , 19.044 , + $ 18.474 , 18.044 , 18.301 , 18.347 , 18.192 , + $ 18.557 , 18.639 , 18.870 , 18.769 , 18.478 , + $ 18.372 , 18.302 , 18.735 , 18.206 , 20.207 , + $ 21.576 / + +C ELASTIC CROSS-SECTION FOR MEDI WITH PIONS +C ALUMINIUM + DATA (CSPIEL( 1,J),J=1,41) / + $ 0.00000E+00, 350.00 , 580.00 , 600.00 , 550.00 , + $ 450.00 , 410.00 , 370.00 , 340.00 , 230.00 , + $ 220.00 , 205.00 , 180.00 , 155.00 , 145.00 , + $ 140.00 , 160.00 , 195.00 , 235.00 , 250.00 , + $ 270.00 , 280.00 , 300.00 , 300.00 , 290.00 , + $ 285.00 , 265.00 , 240.00 , 230.00 , 222.00 , + $ 204.00 , 196.00 , 190.00 , 170.00 , 170.00 , + $ 160.00 , 150.00 , 140.00 , 120.00 , 80.000 , + $ 80.000 / +C COPPER + DATA (CSPIEL( 2,J),J=1,41) / + $ 0.00000E+00, 700.00 , 1000.0 , 1200.0 , 1300.0 , + $ 1300.0 , 1250.0 , 1250.0 , 1100.0 , 1000.0 , + $ 940.00 , 740.00 , 700.00 , 670.00 , 660.00 , + $ 670.00 , 680.00 , 700.00 , 735.00 , 800.00 , + $ 810.00 , 820.00 , 820.00 , 810.00 , 800.00 , + $ 800.00 , 700.00 , 600.00 , 500.00 , 470.00 , + $ 440.00 , 410.00 , 380.00 , 330.00 , 330.00 , + $ 330.00 , 330.00 , 330.00 , 285.00 , 240.00 , + $ 240.00 / +C LEAD + DATA (CSPIEL( 3,J),J=1,41) / + $ 0.00000E+00, 1700.0 , 2200.0 , 2200.0 , 1800.0 , + $ 1300.0 , 1200.0 , 900.00 , 900.00 , 1000.0 , + $ 1100.0 , 1300.0 , 1400.0 , 1420.0 , 1490.0 , + $ 1560.0 , 1580.0 , 1690.0 , 1795.0 , 2000.0 , + $ 2070.0 , 2140.0 , 2050.0 , 2010.0 , 1970.0 , + $ 1880.0 , 1690.0 , 1500.0 , 1420.0 , 1390.0 , + $ 1350.0 , 1360.0 , 1370.0 , 1280.0 , 1290.0 , + $ 1295.0 , 1250.0 , 1200.0 , 1050.0 , 900.00 , + $ 900.00 / +C INELASTIC CROSS-SECTION FOR MEDIA WITH PIONS +C ALIMINUIM + DATA (CSPIIN( 1,J),J=1,41) / + $ 0.00000E+00, 200.00 , 320.00 , 500.00 , 600.00 , + $ 600.00 , 590.00 , 530.00 , 510.00 , 470.00 , + $ 430.00 , 425.00 , 420.00 , 425.00 , 425.00 , + $ 430.00 , 430.00 , 435.00 , 435.00 , 440.00 , + $ 430.00 , 430.00 , 420.00 , 420.00 , 420.00 , + $ 415.00 , 415.00 , 410.00 , 410.00 , 408.00 , + $ 406.00 , 404.00 , 400.00 , 380.00 , 340.00 , + $ 340.00 , 340.00 , 340.00 , 340.00 , 340.00 , + $ 340.00 / +C COPPER + DATA (CSPIIN( 2,J),J=1,41) / + $ 0.00000E+00, 400.00 , 800.00 , 1000.0 , 1100.0 , + $ 1200.0 , 1150.0 , 1050.0 , 1000.0 , 900.00 , + $ 860.00 , 860.00 , 850.00 , 850.00 , 840.00 , + $ 830.00 , 820.00 , 810.00 , 805.00 , 800.00 , + $ 800.00 , 800.00 , 800.00 , 800.00 , 800.00 , + $ 800.00 , 800.00 , 800.00 , 800.00 , 780.00 , + $ 760.00 , 740.00 , 720.00 , 720.00 , 700.00 , + $ 690.00 , 680.00 , 670.00 , 665.00 , 660.00 , + $ 660.00 / +C LEAD + DATA (CSPIIN( 3,J),J=1,41) / + $ 0.00000E+00, 1000.0 , 1900.0 , 2600.0 , 2900.0 , + $ 3000.0 , 2800.0 , 2600.0 , 2500.0 , 2300.0 , + $ 2200.0 , 2000.0 , 1900.0 , 1880.0 , 1860.0 , + $ 1840.0 , 1820.0 , 1810.0 , 1805.0 , 1800.0 , + $ 1780.0 , 1760.0 , 1750.0 , 1740.0 , 1730.0 , + $ 1720.0 , 1710.0 , 1700.0 , 1680.0 , 1660.0 , + $ 1650.0 , 1640.0 , 1630.0 , 1620.0 , 1610.0 , + $ 1605.0 , 1600.0 , 1600.0 , 1550.0 , 1500.0 , + $ 1500.0 / +C ELASTIC CROSS-SECTION FOR MEDI WITH NUCLEONS +C ALUMINIUM + DATA (CSPNEL( 1,J),J=1,41) / + $ 2100.0 , 1800.0 , 1500.0 , 1050.0 , 900.00 , + $ 950.00 , 800.00 , 650.00 , 570.00 , 390.00 , + $ 300.00 , 240.00 , 230.00 , 230.00 , 220.00 , + $ 220.00 , 225.00 , 225.00 , 240.00 , 240.00 , + $ 290.00 , 330.00 , 335.00 , 350.00 , 355.00 , + $ 370.00 , 350.00 , 330.00 , 310.00 , 290.00 , + $ 270.00 , 265.00 , 260.00 , 230.00 , 210.00 , + $ 210.00 , 200.00 , 200.00 , 190.00 , 180.00 , + $ 180.00 / +C COPPER + DATA (CSPNEL( 2,J),J=1,41) / + $ 3800.0 , 2900.0 , 1850.0 , 1550.0 , 1450.0 , + $ 1520.0 , 1460.0 , 1300.0 , 1140.0 , 880.00 , + $ 700.00 , 620.00 , 540.00 , 560.00 , 460.00 , + $ 460.00 , 470.00 , 470.00 , 480.00 , 480.00 , + $ 580.00 , 600.00 , 610.00 , 620.00 , 620.00 , + $ 620.00 , 590.00 , 580.00 , 460.00 , 440.00 , + $ 420.00 , 400.00 , 480.00 , 430.00 , 380.00 , + $ 380.00 , 380.00 , 380.00 , 380.00 , 380.00 , + $ 380.00 / +C LEAD + DATA (CSPNEL( 3,J),J=1,41) / + $ 7000.0 , 6000.0 , 4500.0 , 3350.0 , 2700.0 , + $ 3000.0 , 3550.0 , 3970.0 , 3280.0 , 2490.0 , + $ 2100.0 , 1510.0 , 1440.0 , 1370.0 , 1370.0 , + $ 1370.0 , 1400.0 , 1400.0 , 1420.0 , 1420.0 , + $ 1440.0 , 1460.0 , 1460.0 , 1450.0 , 1450.0 , + $ 1470.0 , 1400.0 , 1400.0 , 1380.0 , 1370.0 , + $ 1360.0 , 1350.0 , 1340.0 , 1330.0 , 1320.0 , + $ 1310.0 , 1305.0 , 1300.0 , 1300.0 , 1300.0 , + $ 1300.0 / +C INELASTIC CROSS-SECTION FOR MEDI WITH NUCLEONS +C ALUMINIUM + DATA (CSPNIN( 1,J),J=1,41) / + $ 0.00000E+00, 200.00 , 400.00 , 800.00 , 800.00 , + $ 550.00 , 500.00 , 450.00 , 430.00 , 410.00 , + $ 400.00 , 390.00 , 380.00 , 370.00 , 370.00 , + $ 370.00 , 365.00 , 365.00 , 360.00 , 360.00 , + $ 360.00 , 360.00 , 365.00 , 370.00 , 375.00 , + $ 380.00 , 400.00 , 410.00 , 420.00 , 430.00 , + $ 440.00 , 440.00 , 440.00 , 440.00 , 440.00 , + $ 440.00 , 440.00 , 440.00 , 440.00 , 440.00 , + $ 440.00 / +C COPPER + DATA (CSPNIN( 2,J),J=1,41) / + $ 0.00000E+00, 400.00 , 950.00 , 1050.0 , 1050.0 , + $ 980.00 , 940.00 , 900.00 , 860.00 , 820.00 , + $ 800.00 , 780.00 , 760.00 , 740.00 , 740.00 , + $ 740.00 , 730.00 , 730.00 , 720.00 , 720.00 , + $ 720.00 , 720.00 , 730.00 , 740.00 , 750.00 , + $ 760.00 , 800.00 , 820.00 , 820.00 , 820.00 , + $ 820.00 , 820.00 , 820.00 , 820.00 , 820.00 , + $ 820.00 , 820.00 , 820.00 , 820.00 , 820.00 , + $ 820.00 / +C LEAD + DATA (CSPNIN( 3,J),J=1,41) / + $ 0.00000E+00, 0.00000E+00, 500.00 , 1450.0 , 1700.0 , + $ 1800.0 , 1750.0 , 1730.0 , 1720.0 , 1710.0 , + $ 1700.0 , 1690.0 , 1660.0 , 1630.0 , 1630.0 , + $ 1630.0 , 1600.0 , 1600.0 , 1580.0 , 1580.0 , + $ 1580.0 , 1580.0 , 1600.0 , 1630.0 , 1650.0 , + $ 1670.0 , 1760.0 , 1800.0 , 1800.0 , 1800.0 , + $ 1800.0 , 1800.0 , 1800.0 , 1800.0 , 1800.0 , + $ 1800.0 , 1800.0 , 1800.0 , 1800.0 , 1800.0 , + $ 1800.0 / + DATA ELAB / + $ 0.10000E-03, 0.20000E-03, 0.30000E-03, 0.40000E-03, 0.50000E-03, + $ 0.70000E-03, 0.10000E-02, 0.20000E-02, 0.30000E-02, 0.40000E-02, + $ 0.50000E-02, 0.70000E-02, 0.10000E-01, 0.15000E-01, 0.20000E-01, + $ 0.25000E-01, 0.32700E-01/ +C TABLES FOR VARIOUS ATOMIC WEIGHTS + DATA CNLWAT / + $ 1.0000 , 16.000 , 27.000 , 56.000 , 59.000 , + $ 64.000 , 91.000 , 112.00 , 119.00 , 127.00 , + $ 137.00 , 181.00 , 207.00 , 209.00 , 238.00 / + DATA (CNLWEL( 1,J),J=1,17) / + $ 6000.0 , 5500.0 , 5200.0 , 4900.0 , 4800.0 , + $ 4400.0 , 4000.0 , 2900.0 , 2200.0 , 1800.0 , + $ 1400.0 , 1100.0 , 900.00 , 700.00 , 600.00 , + $ 560.00 , 520.00 / + DATA (CNLWEL( 2,J),J=1,17) / + $ 5400.0 , 5050.0 , 4800.0 , 4600.0 , 4399.0 , + $ 4090.0 , 3700.0 , 2600.0 , 1950.0 , 1600.0 , + $ 1300.0 , 900.00 , 700.00 , 800.00 , 1050.0 , + $ 1250.0 , 1320.0 / + DATA (CNLWEL( 3,J),J=1,17) / + $ 5500.0 , 5150.0 , 4900.0 , 4699.0 , 4490.0 , + $ 4150.0 , 3750.0 , 2790.0 , 2100.0 , 1650.0 , + $ 1300.0 , 950.00 , 800.00 , 860.00 , 1000.0 , + $ 1090.0 , 1080.0 / + DATA (CNLWEL( 4,J),J=1,17) / + $ 5499.0 , 4970.0 , 4450.0 , 4080.0 , 3750.0 , + $ 3380.0 , 2900.0 , 2400.0 , 2380.0 , 2350.0 , + $ 2300.0 , 2100.0 , 1720.0 , 1370.0 , 1200.0 , + $ 1060.0 , 870.00 / + DATA (CNLWEL( 5,J),J=1,17) / + $ 5399.0 , 4710.0 , 4180.0 , 3760.0 , 3460.0 , + $ 3150.0 , 2730.0 , 2270.0 , 1850.0 , 1850.0 , + $ 2130.0 , 2330.0 , 2120.0 , 1640.0 , 1310.0 , + $ 1100.0 , 1050.0 / + DATA (CNLWEL( 6,J),J=1,17) / + $ 5099.0 , 4405.0 , 3825.0 , 3455.0 , 3125.0 , + $ 2695.0 , 2350.0 , 1850.0 , 1580.0 , 1820.0 , + $ 2050.0 , 2210.0 , 2000.0 , 1590.0 , 1310.0 , + $ 1120.0 , 1040.0 / + DATA (CNLWEL( 7,J),J=1,17) / + $ 6290.0 , 5960.0 , 5640.0 , 5370.0 , 5150.0 , + $ 4800.0 , 4250.0 , 3150.0 , 2470.0 , 2100.0 , + $ 2230.0 , 2420.0 , 2450.0 , 2050.0 , 1760.0 , + $ 1550.0 , 1330.0 / + DATA (CNLWEL( 8,J),J=1,17) / + $ 6885.0 , 6650.0 , 6350.0 , 6150.0 , 6000.0 , + $ 5700.0 , 5360.0 , 4250.0 , 2800.0 , 1870.0 , + $ 1810.0 , 1820.0 , 2170.0 , 2450.0 , 2150.0 , + $ 1700.0 , 1390.0 / + DATA (CNLWEL( 9,J),J=1,17) / + $ 6600.0 , 6500.0 , 6400.0 , 6249.0 , 6190.0 , + $ 5950.0 , 5520.0 , 4250.0 , 2750.0 , 1900.0 , + $ 1850.0 , 1950.0 , 2340.0 , 2800.0 , 2540.0 , + $ 2100.0 , 1760.0 / + DATA (CNLWEL(10,J),J=1,17) / + $ 7400.0 , 7200.0 , 6999.0 , 6840.0 , 6655.0 , + $ 6320.0 , 5820.0 , 4400.0 , 2850.0 , 2000.0 , + $ 1800.0 , 1800.0 , 2150.0 , 2600.0 , 2350.0 , + $ 1950.0 , 2100.0 / + DATA (CNLWEL(11,J),J=1,17) / + $ 7900.0 , 7700.0 , 7499.0 , 7390.0 , 7202.0 , + $ 6810.0 , 6360.0 , 4920.0 , 3450.0 , 2600.0 , + $ 2200.0 , 1950.0 , 2300.0 , 2800.0 , 2650.0 , + $ 2250.0 , 2050.0 / + DATA (CNLWEL(12,J),J=1,17) / + $ 7900.0 , 7750.0 , 7699.0 , 7590.0 , 7450.0 , + $ 7200.0 , 6850.0 , 5650.0 , 4400.0 , 3700.0 , + $ 3400.0 , 2800.0 , 2700.0 , 3100.0 , 3250.0 , + $ 3100.0 , 2750.0 / + DATA (CNLWEL(13,J),J=1,17) / + $ 6100.0 , 5950.0 , 5750.0 , 5599.0 , 5440.0 , + $ 5200.0 , 4800.0 , 4300.0 , 5800.0 , 5750.0 , + $ 4800.0 , 3420.0 , 2650.0 , 3200.0 , 3650.0 , + $ 3500.0 , 2980.0 / + DATA (CNLWEL(14,J),J=1,17) / + $ 6100.0 , 5950.0 , 5750.0 , 5599.0 , 5440.0 , + $ 5200.0 , 4800.0 , 4300.0 , 5800.0 , 5750.0 , + $ 4800.0 , 3420.0 , 2650.0 , 3200.0 , 3650.0 , + $ 3500.0 , 2980.0 / + DATA (CNLWEL(15,J),J=1,17) / + $ 6600.0 , 6350.0 , 6100.0 , 5899.0 , 5690.0 , + $ 5300.0 , 4850.0 , 4450.0 , 5650.0 , 5700.0 , + $ 4950.0 , 3850.0 , 3050.0 , 3050.0 , 3460.0 , + $ 3650.0 , 3340.0 / + DATA (CNLWIN( 1,J),J=1,17) / 17*0.0E+00 / + DATA (CNLWIN( 2,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.0000 , + $ 10.000 , 50.000 , 100.00 , 200.00 , 300.00 , + $ 400.00 , 600.00 , 700.00 , 750.00 , 700.00 , + $ 700.00 , 680.00 / + DATA (CNLWIN( 3,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.0000 , 10.000 , + $ 50.000 , 100.00 , 260.00 , 450.00 , 600.00 , + $ 700.00 , 800.00 , 900.00 , 940.00 , 900.00 , + $ 860.00 , 820.00 / + DATA (CNLWIN( 4,J),J=1,17) / + $ 1.0000 , 80.000 , 200.00 , 320.00 , 400.00 , + $ 520.00 , 700.00 , 1000.0 , 1120.0 , 1200.0 , + $ 1200.0 , 1200.0 , 1180.0 , 1130.0 , 1100.0 , + $ 1090.0 , 1080.0 / + DATA (CNLWIN( 5,J),J=1,17) / + $ 1.0000 , 90.000 , 220.00 , 340.00 , 420.00 , + $ 550.00 , 720.00 , 1080.0 , 1300.0 , 1400.0 , + $ 1420.0 , 1420.0 , 1380.0 , 1260.0 , 1190.0 , + $ 1150.0 , 1100.0 / + DATA (CNLWIN( 6,J),J=1,17) / + $ 1.0000 , 95.000 , 225.00 , 345.00 , 425.00 , + $ 555.00 , 750.00 , 1150.0 , 1500.0 , 1680.0 , + $ 1700.0 , 1690.0 , 1550.0 , 1360.0 , 1240.0 , + $ 1180.0 , 1120.0 / + DATA (CNLWIN( 7,J),J=1,17) / + $ 10.000 , 140.00 , 260.00 , 380.00 , 450.00 , + $ 600.00 , 750.00 , 1200.0 , 1580.0 , 1800.0 , + $ 1820.0 , 1830.0 , 1800.0 , 1750.0 , 1690.0 , + $ 1650.0 , 1620.0 / + DATA (CNLWIN( 8,J),J=1,17) / + $ 15.000 , 150.00 , 300.00 , 400.00 , 500.00 , + $ 650.00 , 840.00 , 1500.0 , 2100.0 , 2130.0 , + $ 2140.0 , 2130.0 , 2080.0 , 2000.0 , 1950.0 , + $ 1900.0 , 1860.0 / + DATA (CNLWIN( 9,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.0000 , 10.000 , + $ 150.00 , 380.00 , 1000.0 , 1650.0 , 2100.0 , + $ 2100.0 , 2100.0 , 2060.0 , 1950.0 , 1860.0 , + $ 1800.0 , 1740.0 / + DATA (CNLWIN(10,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 1.0000 , 10.000 , 45.000 , + $ 180.00 , 380.00 , 1050.0 , 1900.0 , 2300.0 , + $ 2300.0 , 2200.0 , 2150.0 , 2000.0 , 1900.0 , + $ 1800.0 , 1750.0 / + DATA (CNLWIN(11,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 1.0000 , 10.000 , 48.000 , + $ 190.00 , 390.00 , 1080.0 , 2000.0 , 2400.0 , + $ 2400.0 , 2300.0 , 2200.0 , 2100.0 , 1950.0 , + $ 1850.0 , 1800.0 / + DATA (CNLWIN(12,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 1.0000 , 10.000 , 50.000 , + $ 200.00 , 400.00 , 1100.0 , 2100.0 , 2500.0 , + $ 2500.0 , 2450.0 , 2300.0 , 2100.0 , 2000.0 , + $ 1900.0 , 1850.0 / + DATA (CNLWIN(13,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.0000 , 10.000 , + $ 100.00 , 350.00 , 900.00 , 1400.0 , 2000.0 , + $ 2300.0 , 2380.0 , 2400.0 , 2300.0 , 2250.0 , + $ 2200.0 , 2120.0 / + DATA (CNLWIN(14,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.0000 , 10.000 , + $ 100.00 , 350.00 , 900.00 , 1400.0 , 2000.0 , + $ 2300.0 , 2380.0 , 2400.0 , 2300.0 , 2250.0 , + $ 2200.0 , 2120.0 / + DATA (CNLWIN(15,J),J=1,17) / + $ 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.0000 , 10.000 , + $ 100.00 , 400.00 , 950.00 , 1600.0 , 2200.0 , + $ 2550.0 , 2750.0 , 2700.0 , 2600.0 , 2540.0 , + $ 2450.0 , 2360.0 / + DATA (CSCAP(J),J=1,50) / + $ 6.0000 , 5.7000 , 5.5000 , 5.3000 , 5.2000 , + $ 5.1000 , 5.0000 , 4.9000 , 4.8000 , 4.8000 , + $ 4.8000 , 4.8000 , 4.8000 , 4.8000 , 4.8000 , + $ 4.8000 , 4.9000 , 5.0000 , 5.2000 , 5.5000 , + $ 6.0000 , 6.7000 , 7.5000 , 8.5000 , 10.000 , + $ 12.000 , 14.500 , 19.000 , 26.500 , 40.000 , + $ 75.000 , 120.00 , 180.00 , 260.00 , 360.00 , + $ 330.00 , 60.000 , 7.0000 , 9.5000 , 20.000 , + $ 75.000 , 140.00 , 250.00 , 360.00 , 480.00 , + $ 580.00 , 590.00 , 500.00 , 300.00 , 100.00 / + DATA (CSCAP(J),J=51,100) / + $ 200.00 , 300.00 , 400.00 , 470.00 , 500.00 , + $ 430.00 , 100.00 , 20.000 , 22.000 , 40.000 , + $ 560.00 , 950.00 , 1000.0 , 1000.0 , 1000.0 , + $ 990.00 , 920.00 , 860.00 , 790.00 , 740.00 , + $ 650.00 , 600.00 , 540.00 , 470.00 , 440.00 , + $ 390.00 , 360.00 , 340.00 , 320.00 , 310.00 , + $ 280.00 , 2.0000 , 2.5000 , 6.0000 , 13.000 , + $ 38.000 , 65.000 , 140.00 , 280.00 , 300.00 , + $ 430.00 , 580.00 , 650.00 , 800.00 , 920.00 , + $ 1100.0 , 1250.0 , 1400.0 , 1550.0 , 1700.0 / +C --- END OF CROSS-SECTION DATA STATEMENTS --- + +C --- DATA STMTS. FOR GEANT/GHEISHA PARTICLE CODE CONVERSIONS --- +C --- KIPART(I)=GHEISHA CODE CORRESPONDING TO GEANT CODE I --- +C --- IKPART(I)=GEANT CODE CORRESPONDING TO GHEISHA CODE I --- + + DATA KIPART/ + $ 1, 3, 4, 2, 5, 6, 8, 7, + $ 9, 12, 10, 13, 16, 14, 15, 11, + $ 35, 18, 20, 21, 22, 26, 27, 33, + $ 17, 19, 23, 24, 25, 28, 29, 34, + $ 35, 35, 35, 35, 35, 35, 35, 35, + $ 35, 35, 35, 35, 30, 31, 32, 35/ + +* DATA IKPART/ +* $ 1, 4, 2, 3, 5, 6, 8, 7, +* $ 9, 11, 16, 10, 12, 14, 15, 13, +* $ 25, 18, 26, 19, 20, 21, 27, 28, +* $ 29, 22, 23, 30, 31, 45, 46, 47, +* $ 24, 32, 48/ + + +C PARAMETER (ONETHR=1./3.) + DATA ONETHR / .33333333/ + DATA ALPHA / 6*0.7, + + 0.75 ,0.75 ,0.75 , + + 0.76,0.76 ,0.76 ,0.76 , + + 0.685,0.63 ,0.685,0.63,0.685,0.63, + + 3*0.685,3*0.63,2*0.685,2*0.63, + + 3*0.7,0.685,0.63,0.7/ + DATA ALPHAC /1.2,1.2,1.2,1.15,0.90,0.91,0.98,1.06,1.10,1.11, + + 1.10,1.08,1.05,1.01,0.985,0.962,0.945,0.932, + + 0.925,0.920,0.920,0.921,0.922,0.923,0.928,0.931, + + 0.940,0.945,0.950,0.955,0.958,0.962,0.965,0.976, + + 0.982,0.988,0.992,1.010,1.020,1.030,1.040/ + DATA PARTEL/6*0.,29*1./ + DATA PARTIN/6*0.,1.00,0.00,1.05,1.20,1.35,1.30,1.20,1.00,1.30, + + 1.00,1.30,1.00,1.30,1.00,1.00,1.00,1.30,1.30,1.30, + + 1.00,1.00,1.30,1.30,1.00,1.,1.,1.,1.3,1./ +* DATA ICORR /14*1, 0, 1, 0, 1, 0, 3*1, 3*0, 2*1, 2*0, 4*1, 2*0/ +C-- SET INTRC TO 0 FOR IPART = 26-29, 33, 34 ( XI'S AND OMEGA'S ) +C-DH- DATA INTRC /6*0, 1, 0, 12*1, 0, 2*2, 0, 1, 4*0, 3*1, 3*0 / +C-- RESET INTRC FOR IPART = 26-29, 33, 34 ( XI'S AND OMEGA'S ) + DATA INTRC /6*0, 1, 0, 12*1, 0, 2*2, 0, 10*1, 0/ + +C CROSS-SECTIONS ON NUCLEUS ARE KNOWN ONLY FOR PIONS AND PROTONS. +C THE GENERAL LAW SIGMA(A)=1.25*SIGMA(TOT,PROTON)*A**ALPHA IS VALID +C ONLY FOR MOMENTA > 2 GEV.THE PARAMETRIZATION DONE HERE GIVES ONLY +C A BEHAVIOUR AVERAGED OVER MOMENTA AND PARTICLE TYPES. +C FOR A DETECTOR WITH ONLY A FEW MATERIALS IT'S OF COURSE MUCHBETTER +C TO USE TABLES OF THE MEASURED CROSS-SECTIONS . +C FOR ELEMENTS WITH THE FOLLOWING ATOMIC NUMBERS MEASURED CROSS- +C SECTIONS ARE AVAILABLE (SEE "PCSDATA"). + +C H AL CU PB + DATA CSA /1. ,27.00 ,63.54 ,207.19 / + DATA IPART2/9,8,7,11,10,13,12/ + SAVE ALPHA,ALPHAC,PARTEL,PARTIN,CSA,IPART2,INTRC + +C----------------------------------------------------------------------- + + IF ( DEBUG .AND. GHEISDB ) THEN + WRITE(MDEBUG,*) 'CGHSIG:' + NPRT(4)=.TRUE. + NPRT(9)=.TRUE. + ELSE + NPRT(4)=.FALSE. + NPRT(9)=.FALSE. + ENDIF + +C --- INITIALIZE CGHSIG AND SWITCH TO GHEISHA PARTICLE CODE --- + CGHSIG=0.0 + IF ( LPART .LE. 48 ) THEN + IPART = KIPART(LPART) + ELSEIF ( LPART .EQ. 201 ) THEN + IPART = 30 + ELSEIF ( LPART .EQ. 301 ) THEN + IPART = 31 + ELSEIF ( LPART .EQ. 402 ) THEN + IPART = 32 + ELSE + GOTO 160 + ENDIF + +C --- NO INTERACTION FOR GAMMAS, NEUTRINOS, ELECTRONS, POSITRONS, MUONS, +C --- NEUTRAL PIONS, NEUTRAL SIGMAS AND ANTISIGMAS AND NEW PARTICLES. + IF ( INTRC(IPART) .EQ. 0 ) GOTO 160 + P = PPART + EK = EKIN + +C --- INITIALIZE THE CROSS-SECTIONS WITH 0.0 --- + DO 10 K = 1,KK + AIEL(K) = 0.0 + AIIN(K) = 0.0 + AICA(K) = 0.0 + 10 CONTINUE +C + IF ( (IPART .GE. 30) .AND. (IPART .LE. 32) ) THEN + +C --- TAKE GEOMETRICAL CROSS-SECTIONS FOR INELASTIC SCATTERING --- +C --- OF DEUTERONS, TRITONS AND ALPHAS --- + IF ( IPART .EQ. 30 ) THEN + APART = 2.0**ONETHR + ELSEIF ( IPART .EQ. 31 ) THEN + APART = 3.0**ONETHR + ELSEIF ( IPART .EQ. 32 ) THEN + APART = 4.0**ONETHR + ENDIF + DO 20 K = 1,KK + AIIN(K) = 49.0*(APART+ACOMP(K)**ONETHR)**2 + 20 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,10000) + + ELSEIF ( (IPART .EQ. 16) .AND. (EK .LE. 0.0327) ) THEN + +C --- USE TABLES FOR LOW ENERGY NEUTRONS --- +C --- GET ENERGY BIN --- + JE2 = 17 + DO 30 J = 2,17 + IF ( EK .LT. ELAB(J) ) THEN + JE2 = J + GOTO 40 + ENDIF + 30 CONTINUE + + 40 JE1 = JE2-1 + EKX = MAX(EK,1.0E-9) + DELAB = ELAB(JE2)-ELAB(JE1) + DO 70 K = 1,KK + +C --- GET A BIN --- + JA2 = 15 + DO 50 J = 2,15 + IF ( ACOMP(K) .LT. CNLWAT(J) ) THEN + JA2=J + GOTO 60 + ENDIF + 50 CONTINUE + + 60 JA1 = JA2-1 + DNLWAT = CNLWAT(JA2)-CNLWAT(JA1) + +C --- USE LINEAR INTERPOLATION OR EXTRAPOLATION BY Y=RCE*X+RCA*X+B --- + +C --- ELASTIC CROSS-SECTION --- +C --- E INTERPOLATION OR EXTRAPOLATION AT JA1 --- + DY = CNLWEL(JA1,JE2)-CNLWEL(JA1,JE1) + RCE = DY/DELAB +C --- A INTERPOLATION OR EXTRAPOLATION AT JE1 --- + DY = CNLWEL(JA2,JE1)-CNLWEL(JA1,JE1) + RCA = DY/DNLWAT + B = CNLWEL(JA1,JE1)-RCE*ELAB(JE1)-RCA*CNLWAT(JA1) + AIEL(K) = RCE*EK+RCA*ACOMP(K)+B + +C --- INELASTIC CROSS-SECTION --- +C --- E INTERPOLATION OR EXTRAPOLATION AT JA1 --- + DY = CNLWIN(JA1,JE2)-CNLWIN(JA1,JE1) + RCE = DY/DELAB +C --- A INTERPOLATION OR EXTRAPOLATION AT JE1 --- + DY = CNLWIN(JA2,JE1)-CNLWIN(JA1,JE1) + RCA = DY/DNLWAT + B = CNLWIN(JA1,JE1)-RCE*ELAB(JE1)-RCA*CNLWAT(JA1) + AIIN(K) = RCE*EK+RCA*ACOMP(K)+B + + IZNO = ZCOMP(K)+0.01 + AICA(K) = 11.12*CSCAP(IZNO)/(EKX*1.0E6)**0.577 + 70 CONTINUE + IF ( NPRT(9) ) WRITE(MDEBUG,10100) + ELSE + +C --- USE PARAMETRIZATION OF CROSS-SECTION DATA FOR ALL OTHER CASES --- + + IF ( NPRT(9) ) WRITE(MDEBUG,10200) + +C --- GET MOMENTUM BIN --- + J = 40 + DO 80 I = 2,41 + IF (P .LT. PLAB(I)) THEN + J = I - 1 + GOTO 90 + ENDIF + 80 CONTINUE + +C --- START WITH CROSS-SECTIONS FOR SCATTERING ON FREE PROTONS --- +C --- USE LINEAR INTERPOLATION OR EXTRAPOLATION BY Y=RC*X+B --- + 90 DX = PLAB(J+1)-PLAB(J) +C --- ELASTIC CROSS-SECTION --- + DY = CSEL(IPART,J+1)-CSEL(IPART,J) + RC = DY/DX + B = CSEL(IPART,J)-RC*PLAB(J) + AIELIN = RC*P+B +C --- INELASTIC CROSS-SECTION --- + DY = CSIN(IPART,J+1)-CSIN(IPART,J) + RC = DY/DX + B = CSIN(IPART,J)-RC*PLAB(J) + AIININ = RC*P+B + ALPH = ALPHA(IPART) + IF ( IPART .LT. 14 ) THEN + DY = ALPHAC(J+1)-ALPHAC(J) + RC = DY/DX + B = ALPHAC(J)-RC*PLAB(J) + CORFAC = RC*P+B + ALPH = ALPH*CORFAC + + IPART3 = IPART2(IPART-6) + +C --- ELASTIC CROSS-SECTION --- + DY = CSEL(IPART3,J+1)-CSEL(IPART3,J) + RC = DY/DX + B = CSEL(IPART3,J)-RC*PLAB(J) + XSECEL = RC*P+B +C --- INELASTIC CROSS-SECTION --- + DY = CSIN(IPART3,J+1)-CSIN(IPART3,J) + RC = DY/DX + B = CSIN(IPART3,J)-RC*PLAB(J) + XSECIN = RC*P+B + + ENDIF + +C NO MAKE CROSS-SECTIONS FOR COMPONENT K OF COMPOSITION + DO 100 K = 1,KK + AIEL(K) = AIELIN + AIIN(K) = AIININ + + IF ( ACOMP(K) .GE. 1.5 ) THEN + +C --- A-DEPENDENCE FROM PARAMETRIZATION --- + CREL = 1.0 + CRIN = 1.0 +C --- GET MEDIUM BIN 1=HYDR. 2=AL 3=CU 4=PB --- + I = 3 + IF ( ACOMP(K) .LT. 50.0 ) I = 2 + IF ( ACOMP(K) .GT. 100.0 ) I = 4 + IF ( (IPART .EQ. 14) .OR. (IPART .EQ. 16) ) THEN + +C --- PROTONS AND NEUTRONS --- + +C --- ELASTIC CROSS-SECTION --- + DY = CSPNEL(I-1,J+1)-CSPNEL(I-1,J) + RC = DY/DX + B = CSPNEL(I-1,J)-RC*PLAB(J) + XSECEL = RC*P+B +C --- INELASTIC CROSS-SECTION --- + DY = CSPNIN(I-1,J+1)-CSPNIN(I-1,J) + RC = DY/DX + B = CSPNIN(I-1,J)-RC*PLAB(J) + XSECIN = RC*P+B + IF ( AIEL(K) .GE. 0.001 ) CREL = XSECEL/(0.36*AIEL(K)* + + CSA(I)**1.17) + AITOT = AIEL(K)+AIIN(K) + IF ( AITOT .GE. 0.001 ) CRIN = XSECIN/(AITOT*CSA(I)** + + ALPH) + + ELSEIF ( IPART .LT. 15 ) THEN + +C --- CALCULATE CORRECTION FACTORS FROM VALUES ON AL,CU,PB FOR ALL --- +C --- MESONS USE LINEAR INTERPOLATION OR EXTRAPOLATION BY Y=RC*X+B --- +C --- NOTE THAT DATA IS ONLY AVAILABLE FOR PIONS AND PROTONS + WGCH = 0.5 + IF ( ACOMP(K) .LT. 20.0 ) + + WGCH = 0.5+0.5*EXP(-(ACOMP(K)-1.0)) + AIEL(K) = WGCH*AIEL(K)+(1.0-WGCH)*XSECEL + AIIN(K) = WGCH*AIIN(K)+(1.0-WGCH)*XSECIN + +C --- THIS SECTION NOT FOR KAONS --- + IF ( IPART .LT. 10 ) THEN + +C --- ELASTIC CROSS-SECTION --- + DY = CSPIEL(I-1,J+1)-CSPIEL(I-1,J) + RC = DY/DX + B = CSPIEL(I-1,J)-RC*PLAB(J) + XSPIEL =R C*P+B +C --- INELASTIC CROSS-SECTION --- + DY = CSPIIN(I-1,J+1)-CSPIIN(I-1,J) + RC = DY/DX + B = CSPIIN(I-1,J)-RC*PLAB(J) + XSPIIN = RC*P+B + + IF ( AIEL(K) .GE. 0.001 ) CREL = XSPIEL/ + + (0.36* AIEL(K)*CSA(I)**1.17) + AITOT = AIEL(K)+AIIN(K) + IF ( AITOT .GE. 0.001 ) CRIN = XSPIIN/(AITOT*CSA(I) + + **ALPH) + ENDIF + ENDIF + AIIN(K) = CRIN*(AIIN(K)+AIEL(K))*ACOMP(K)**ALPH + AIEL(K) = CREL*0.36*AIEL(K)*ACOMP(K)**1.17 + AIEL(K) = AIEL(K)*PARTEL(IPART) + AIIN(K) = AIIN(K)*PARTIN(IPART) + ENDIF + 100 CONTINUE + + ENDIF + +C --- CALCULATE INTERACTION PROBABILITY --- + + ALAM = 0.0 + DO 150 K = 1,KK + AIEL(K) = AIEL(K)*WCOMP(K) + AIIN(K) = AIIN(K)*WCOMP(K) + AICA(K) = AICA(K)*WCOMP(K) + ALAM = ALAM + AIEL(K) + AIIN(K) + AICA(K) + 150 CONTINUE + +C --- PASS THE CROSS-SECTION (MBARN) TO CORSIKA --- + CGHSIG = ALAM + + GOTO 999 + +C --- PRINTOUT OF SKIPPED PARTICLES IN CASE OF INTERFACE DEBUG --- + 160 IF ( NPRT(9) ) WRITE(MDEBUG,10300) IPART +10000 FORMAT(' *CGHSIG* GEOM X-SECT. FOR INEL. SCAT. OF D,T AND ALPHA') +10100 FORMAT(' *CGHSIG* X-SECT. FROM LOW ENERGY NEUTRON TABLES') +10200 FORMAT(' *CGHSIG* X-SECT. FROM PARAMETRIZATION OF DATA') +10300 FORMAT(' *CGHSIG* GHEISHA PARTICLE ',I3,' SKIPPED') + 999 RETURN + END +*CMZ : 28/02/2002 11.42.37 by D. HECK IK FZK KARLSRUHE +*-- Author : CERN PROGLIB# M103 +C======================================================================= + + SUBROUTINE FLPSOR(A,N) + +C----------------------------------------------------------------------- +C CERN PROGLIB# M103 FLPSOR .VERSION KERNFOR 3.15 820113 +C ORIG. 29/04/78 +C----------------------------------------------------------------------- +C SORT THE ONE-DIMENSIONAL FLOATING POINT ARRAY A(1),...,A(N) BY +C INCREASING VALUES +C +C PROGRAM M103 TAKEN FROM CERN PROGRAM LIBRARY, 29-APR-78 +C----------------------------------------------------------------------- + + DIMENSION A(*) + COMMON /SLATE/ LT(20),RT(20) + INTEGER R,RT + SAVE +C----------------------------------------------------------------------- + + LEVEL = 1 + LT(1) = 1 + RT(1) = N + 10 L = LT(LEVEL) + R = RT(LEVEL) + LEVEL = LEVEL-1 + 20 IF (R .GT. L ) GOTO 200 + IF ( LEVEL ) 50,50,10 +C +C SUBDIVIDE THE INTERVAL L,R +C L : LOWER LIMIT OF THE INTERVAL (INPUT) +C R : UPPER LIMIT OF THE INTERVAL (INPUT) +C J : UPPER LIMIT OF LOWER SUB-INTERVAL (OUTPUT) +C I : LOWER LIMIT OF UPPER SUB-INTERVAL (OUTPUT) +C + 200 I = L + J = R + M = (L+R)/2 + X = A(M) + 220 IF ( A(I) .GE. X ) GOTO 230 + I = I+1 + GOTO 220 + 230 IF ( A(J) .LE. X ) GOTO 231 + J = J-1 + GOTO 230 +C + 231 IF ( I .GT. J ) GOTO 232 + W = A(I) + A(I) = A(J) + A(J) = W + I = I+1 + J = J-1 + IF ( I .LE. J ) GOTO 220 +C + 232 LEVEL = LEVEL+1 + IF ( (R-I) .GE. (J-L) ) GOTO 30 + LT(LEVEL) = L + RT(LEVEL) = J + L = I + GOTO 20 + 30 LT(LEVEL) = I + RT(LEVEL) = R + R = J + GOTO 20 + 50 RETURN + END +*CMZ : 03/11/2000 12.13.41 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + REAL FUNCTION GARNDM( ) + +C----------------------------------------------------------------------- +C 1 EXPONENTIALLY DISTRIBUTED RANDOM NUMBER +C----------------------------------------------------------------------- + + REAL RD(1) + SAVE +C----------------------------------------------------------------------- + + CALL RMMAR(RD,1,1) + GARNDM = -LOG(RD(1)) + RETURN + END +*CMZ : 28/02/2002 11.42.37 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE GRANOR(A,B) + +C----------------------------------------------------------------------- +C G(HEISHA) RA(NDOM NUMBERS WITH) NOR(MAL DISTRIBUTION) +C TWO GAUSSIAN DISTRIBUTED RANDOM NUMBERS (MEAN=0, SIGMA=1) +C +C RANDOM NUMBER GENERATORS USED BY THE GHEISHA ROUTINES +C ADAPTED FOR USE WITH THE CORSIKA RANDOM NUMBER GENERATORS +C +C DESIGN : J. KNAPP IK1 FZK KARLSRUHE +C----------------------------------------------------------------------- + + REAL RD(2) + SAVE +C----------------------------------------------------------------------- + + CALL RMMAR(RD,2,1) + U1 = SQRT((-2.)*LOG(RD(1))) + U2 = RD(2) * 6.28318530718 + A = COS(U2) * U1 + B = SIN(U2) * U1 + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : CERN PROGLIB# V113 +C======================================================================= + + SUBROUTINE GRNDM(RVEC,LENV) + +C----------------------------------------------------------------------- +C G(HEISHA) R(A)ND(O)M (NUMBER GENERATOR) +C +C THIS ROUTINE IS IDENTICAL TO RMMAR +C DESCRIPTION OF ALGORITHM SEE SUBROUT. RMMAR +C THIS SUBROUTINE IS CALLED FROM GHEISHA ROUTINES. +C ARGUMENTS: +C RVEC = VECTOR FIELD TO BE FILLED WITH RANDOM NUMBERS +C LENV = LENGTH OF VECTOR (# OF RANDNUMBERS TO BE GENERATED) +C +C CERN PROGLIB# V113 RMMAR .VERSION KERNFOR 1.0 +C ORIG. 01/03/89 FCA + FJ +C----------------------------------------------------------------------- + + REAL RVEC(*) + COMMON /RANMA2/ IU(1030),JSEQ + COMMON /RANMA3/ TWOM24,TWOM48,CD,CM,CINT,MODCNS + INTEGER I97(0:1030),J97(0:1030),NTOT(0:1030),NTOT2(0:1030), + * IJKL(0:1030) + REAL U(1030),C(0:1030) + EQUIVALENCE (IJKL(0),IU(1)),(NTOT(0),IU(2)),(NTOT2(0),IU(3)) + EQUIVALENCE (U(1),IU(4)),(C(0),IU(101)),(I97(0),IU(102)) + EQUIVALENCE (J97(0),IU(103)) + SAVE +C----------------------------------------------------------------------- + + ISEQ = 1 + IF ( ISEQ .GT. 0 ) JSEQ = ISEQ + IBASE = (JSEQ-1)*103 + + DO 100 IVEC = 1,LENV + UNI = U(IBASE+I97(IBASE))-U(IBASE+J97(IBASE)) + IF ( UNI .LT. 0. ) UNI = UNI+1. + U(IBASE+I97(IBASE)) = UNI + I97(IBASE) = I97(IBASE)-1 + IF ( I97(IBASE) .EQ. 0 ) I97(IBASE) = 97 + J97(IBASE) = J97(IBASE)-1 + IF ( J97(IBASE) .EQ. 0 ) J97(IBASE) = 97 + C(IBASE) = C(IBASE) - CD + IF ( C(IBASE) .LT. 0. ) C(IBASE) = C(IBASE)+CM + UNI = UNI-C(IBASE) + IF ( UNI .LT. 0. ) UNI = UNI+1. +C REPLACE EXACT ZEROES BY UNIFORM DISTR. *2**-24 + IF ( UNI .EQ. 0. ) THEN + UNI = TWOM24*U(2) +C AN EXACT ZERO HERE IS VERY UNLIKELY, BUT LET'S BE SAFE. + IF ( UNI .EQ. 0. ) UNI = TWOM48 + ENDIF + RVEC(IVEC) = UNI + 100 CONTINUE + + NTOT(IBASE) = NTOT(IBASE) + LENV + IF ( NTOT(IBASE) .GE. MODCNS ) THEN + NTOT2(IBASE) = NTOT2(IBASE) + 1 + NTOT(IBASE) = NTOT(IBASE) - MODCNS + ENDIF + + RETURN + END +*CMZ : 18/10/2000 09.15.12 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE AVEPT( ECM,SLOG ) + +C----------------------------------------------------------------------- +C AVE(RAGE) PT (TRANSVERSE MOMENTUM) +C +C CALCULATES AVERAGE RATIO PT(PARTICLE)/PT(PION) DEPENDING ON ENERGY +C THE DEPENDENCE OF PT ON ENERGY IS DONE IN SUBROUT. PTRAM/PTRAN +C THIS SUBROUTINE IS CALLED FROM HDPM. +C ARGUMENTS: +C ECM = ENERGY IN THE CM SYSTEM +C SLOG = LOG(S) ( = LOG(ECM**2) ) +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,AVPT. + COMMON /AVPT/ AVPT,AVPK,AVPN,AVPH,AVPE + DOUBLE PRECISION AVPT,AVPK,AVPN,AVPH,AVPE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ECM,SLOG + SAVE +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'AVEPT : ECM =',SNGL(ECM) + +C AVERAGE TRANSVERSE MOMENTUM + +C ... FOR PIONS (=AVPT) + IF ( ECM .LT. 132.D0 ) THEN + AVPT = 0.3D0 + 6.272D-3 * SLOG + ELSE + AVPT = ( 0.442105D0 + 0.016276D0 * SLOG )**2 + ENDIF + +C ... FOR KAONS (=AVPK) + IF ( ECM .LT. 131.D0 ) THEN + AVPK = 1.27D0 * AVPT + ELSE + AVPK = (0.403146D0 + 0.0281D0 * SLOG)**2 + ENDIF + +C ... FOR NUCLEONS (=AVPN) + IF ( ECM .LT. 102.D0 ) THEN + AVPN = 1.39D0 * AVPT + ELSE + AVPN = (0.389873D0 + 0.034127D0 * SLOG)**2 + ENDIF + +C SET AVERAGE PT RELATED TO AVERAGE PT FOR PIONS +C ... FOR STRANGE BARYONS (=AVPH) + AVPH = 1.3D0 * (1.45D0 * AVPN - 0.45D0 * AVPK) / AVPT +C ... FOR ETA MESONS (=AVPE) + AVPE = 1.3D0 * (0.88D0 * AVPK + 0.12D0 * AVPN) / AVPT + AVPK = 1.3D0 * AVPK / AVPT + AVPN = 1.3D0 * AVPN / AVPT + AVPT = 1.3D0 + + IF ( DEBUG ) WRITE(MDEBUG,100) + * SNGL(AVPT),SNGL(AVPK),SNGL(AVPN),SNGL(AVPH),SNGL(AVPE) + 100 FORMAT(' AVEPT : AVPT,AVPK,AVPN,AVPH,AVPE=',5F12.5) + + RETURN + END +*CMZ : 11/07/2000 10.08.31 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE DIFRAC( NRETFL ) + +C----------------------------------------------------------------------- +C (SINGLE) DIF(F)RAC(TION) +C +C SETS PARAMETERS FOR HDPM IN CASE OF SINGLE DIFFRACTION +C THIS SUBROUTINE IS CALLED FROM HDPM. +C ARGUMENT: +C NRETFL = 0 CORRECT ENDING OF SUBROUTINE +C = 1 INCORRECT ENDING OF SUBROUTINE +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,LEPAR. + COMMON /LEPAR/ LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS + INTEGER LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'DIFRAC:' + +C DECIDE FIRST, WHETHER PROJECTILE OR TARGET DIFFRACTION + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LE. 0.5 ) THEN +C PROJECTILE DIFFRACTON, TARGET DIFFRACTION FLAG IS NOT SET + NFTARD = 0 +C MASS OF INCOMING PARTICLE AND PI(0) MASS +C PI(0) IS MINIMAL OUTCOME OF SECONDARIES IN DIFRAC + XM0 = ( PAMA(LEPAR1) + PAMA(7) )**2 + ELSE +C TARGET DIFFRACTON, SET TARGET DIFFRACTION FLAG + NFTARD = 1 +C MASS OF NUCLEON AND PI(0) MASS +C PI(0) IS MINIMAL OUTCOME OF SECONDARIES IN DIFRAC + XM0 = ( PAMA(LEPAR2) + PAMA(7) )**2 + ENDIF +C MAXIMAL DIFFRACTIVE MASS, FACTOR 0.15 GIVEN BY COHERENCE CONDITION + XMX = 0.15D0 * S + +C THROW MAXIMAL 200 TIMES TO GET A GOOD DIFFRACTIVE MASS + NCDIFL = 0 + 7 CONTINUE +C GET DIFFRACTIVE MASS + CALL RMMAR( RD,2,1 ) +C GET S (=ECM**2) (WHY THIS WAY OF THROWING ???) + SDIF = (XMX/XM0)**RD(1) * XM0 + + IF ( SDIF .LE. XM0 ) THEN + IF ( NCDIFL .LE. 200 ) THEN + NCDIFL = NCDIFL + 1 + GOTO 7 + ELSE +C SET RETURN FLAG TO ERROR + NRETFL = 1 + RETURN + ENDIF + ENDIF + +C DISTRIBUTION OF DIFFRACTIVE MASS FLATTENS OFF FOR DIFFRACTIVE +C MASS SQUARED .LE. 2 GEV + IF ( SDIF .LE. 2.D0 ) THEN +C----- SO GEHT DAS NICHT!! 16.12.91 D.H. + SDIF = RD(2) * (2.D0 - XM0) + XM0 + ENDIF +C SQRT(S) IS ECM + ECMDIF = SQRT(SDIF) +C LOG(S), LOG(S)**2 + DLOG = LOG(SDIF) + DLOGSQ = DLOG**2 + IF ( DEBUG ) WRITE(MDEBUG,*) 'DIFRAC: SDIF,ECMDIF,NFTARD=', + * SNGL(SDIF),SNGL(ECMDIF),NFTARD + +C RAPIDITY IN CMS OF DIFFRACTIVE SYSTEM +C TO CALCULATE DMLOG, SUBTRACT SUM OF MASS SQUARES FROM SDIF +C PI(0) MASS SQUARED IS 0.0182. + IF ( NFTARD .EQ. 0 ) THEN + YY0 = LOG(ECMDPM/ECMDIF) + DMLOG = LOG(SDIF - 0.0182D0 - PAMA(LEPAR1)**2) + ELSE + YY0 = -LOG(ECMDPM/ECMDIF) + DMLOG = LOG(SDIF - 0.0182D0 - PAMA(LEPAR2)**2) + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'DIFRAC: YY0,DMLOG=', + * SNGL(YY0),SNGL(DMLOG) +C CENTRAL RAPIDITY DENSITY IN CMS OF DIFFRACTIVE SYSTEM +C PARAMETRISATION SEE CAPDEVIELLE,J.PHYS.G:NUCL.PHYS.16(1990)1539 EQ.7 +C WE USE ONLY THE LOW-ENERGY PART OF THE PARAMETRISATION, AS SDIF DOES +C NOT REACH THE HIGHER VALUES + DC0 = 0.82D0 * (SDIF**0.107D0) + +C THERE ARE 3 ENERGY DEPENDENT FORMULAS FOR AVERAGE CHARGED +C MULTIPLICITY ( AVCH1 ); +C PARAMETRISATIONS SEE CAPDEVIELLE,J.PHYS.G:NUCL.PHYS.16(1990)1539 EQ.8 + IF ( ECMDIF .LE. 187.5D0 ) THEN +C CHARGED MULTIPLICITY (M**2 IN PLACE OF S) + AVCH1 = 0.57D0 + 0.584D0*DLOG + 0.127D0*DLOGSQ + ELSEIF ( ECMDIF .LE. 945.5D0 ) THEN + AVCH1 = -6.55D0 + 6.89D0 * SDIF**0.131D0 + ELSE + AVCH1 = 3.4D0 * SDIF**0.17D0 + ENDIF +C PARAMETRISATION IS BASED ON COLLIDER DATA WHERE PROTON AND ANTIPROTON +C ARE INCLUDED. LOWER LIMIT FOR AVERAGE CHARGED MULTIPLICITY IS 1. + AVCH1 = MAX( 1.D0, AVCH1 ) + +C CENTER OF GAUSSIAN 1ST+2ND STRING OF FRAGMENTATION SYSTEM + POSC2 = 0.146D0 * DMLOG + 0.072D0 +C WIDTH OF GAUSSIAN 1ST+2ND STRING OF FRAGMENTATION SYSTEM + WIDC2 = 0.120D0 * DMLOG + 0.180D0 +C INTERACTION FACTOR GNU FOR INTERACTION WITH NUCLEUS; + IF ( NFLAIN .EQ. 0 ) THEN + GNU = 1.D0 + AVCH3 = 0.D0 + POSC3 = 0.D0 + WIDC3 = 1.D0 + ELSE +C NEW PARAMETRIZATION OF J.N.CAPDEVIELLE (MARCH 93) + GNU = (0.4826D0 + 3.522D-2 * DLOG) * TAR**0.31D0 +C CENTER OF GAUSSIAN FOR 3RD STRING (FROM TARGET) + POSC3 = +3.D0 - 2.575D0 * EXP( (-0.081756452D0) * GNU ) +C WIDTH OF GAUSSIAN FOR 3RD STRING (FROM TARGET) + WIDC3 = 1.2338466D0 + 0.078969916D0 * LOG(GNU) + IF ( ECMDIF .LE. 137.D0 ) THEN + AVCH3 = 0.57D0 * AVCH1 * (GNU-1.D0) + ELSE + AVCH3 = 0.5D0 * AVCH1 * (GNU-1.D0) + ENDIF + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,100) + * SNGL(POSC2),SNGL(WIDC2),SNGL(POSC3),SNGL(WIDC3) + 100 FORMAT(' DIFRAC: POSC2,WIDC2,POSC3,WIDC3=',4F12.7) +C AVERAGE CHARGED, INCLUDING THOSE FROM TARGET + AVCH = AVCH1 + AVCH3 +C THE FOLOWING PROCEDURE IS TO PRODUCE PHOTONS FROM UNKNOWN NEUTRAL +C DECAYS FOLLOWING CORRELATION WITH CHARGED PARTICLES BASED ON +C PHOTON EXCESS AT COLLIDER EXPERIMENTS. SEUGP IS +C PROBLEM OF THE RISE OF THE UNKNOWN ETA PRODUCTION CROSS-SECTION +C IS SOLVED WITH PARAMETRISATION OF UA5 (Z. PHYS. C43 (1989) 75) + IF ( ECMDIF .LE. 103.D0 ) THEN + SEUGP = -1.27D0 + 0.52D0 * DLOG + 0.148D0 * DLOGSQ + ELSE +C AT HIGH DIFFRACTIVE MASS USE PARAMETRISATION OF THOUW ???? + SEUGP = -18.7D0 + 11.55D0 * SDIF**0.1195D0 + ENDIF + SEUGP = MAX( 0.5D0, SEUGP ) + IF ( DEBUG ) WRITE(MDEBUG,110) + * SNGL(DC0),SNGL(AVCH1),SNGL(AVCH3),SNGL(AVCH),SNGL(SEUGP) + 110 FORMAT(' DIFRAC: DC0,AVCH1,AVCH3,AVCH,SEUGP=',5F12.6) + +C SET RETURN FLAG TO OK + NRETFL = 0 + RETURN + END +*CMZ : 28/02/2002 12.02.13 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + DOUBLE PRECISION FUNCTION DPFUNC( ENER ) + +C----------------------------------------------------------------------- +C D(IFFRACTION) P(ORTION) FUNC(TION) +C +C CALCULATES THE FRACTION OF DIFFRACTION +C THIS FUNCTION IS CALLED FROM HDPM. +C ARGUMNENT: +C ENER = C.M. ENERGY +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ENER + SAVE +C----------------------------------------------------------------------- + +C FUNCTION DPFUNC IS DUMMY + DPFUNC = 0.15D0 + + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'DPFUNC: ENER=',SNGL(ENER),' DPFUNC=',SNGL(DPFUNC) + + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE HDPM + +C----------------------------------------------------------------------- +C H(ADRONIC) D(UAL) P(ARTON) M(ODEL) +C +C GENERATOR OF HADRONIC COLLISION INSPIRED BY DUAL PARTON MODEL +C THIS SUBROUTINE IS CALLED FROM SDPM. +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,ELADPM. + COMMON /ELADPM/ ELMEAN,ELMEAA,IELDPM,IELDPA + DOUBLE PRECISION ELMEAN(40),ELMEAA(40) + INTEGER IELDPM(40,13),IELDPA(40,13) +*KEEP,ELASTY. + COMMON /ELASTY/ ELAST + DOUBLE PRECISION ELAST +*KEEP,INDICE. + COMMON /INDICE/ NNUCN,NKA0,NHYPN,NETA,NETAS,NPIZER, + * NNC,NKC,NHC,NPC,NCH,NNN,NKN,NHN,NET,NPN + INTEGER NNUCN(2:3),NKA0(2:3),NHYPN(2:3),NETA(2:3,1:4), + * NETAS(2:3),NPIZER(2:3), + * NNC,NKC,NHC,NPC,NCH,NNN,NKN,NHN,NET,NPN +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,ISTA. + COMMON /ISTA/ IFINET,IFINNU,IFINKA,IFINPI,IFINHY + INTEGER IFINET,IFINNU,IFINKA,IFINPI,IFINHY +*KEEP,LEPAR. + COMMON /LEPAR/ LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS + INTEGER LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEEP,NEWPAR. + COMMON /NEWPAR/ EA,PT2,PX,PY,TMAS,YR,ITYP, + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT + DOUBLE PRECISION EA(3000),PT2(3000),PX(3000),PY(3000),TMAS(3000), + * YR(3000) + INTEGER ITYP(3000), + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RATIOS. + COMMON /RATIOS/ RPI0R,RPIER,RPEKR,RPEKNR,PPICH,PPINCH,PPNKCH, + * ISEL,NEUTOT,NTOTEM + DOUBLE PRECISION RPI0R,RPIER,RPEKR,RPEKNR,PPICH,PPINCH,PPNKCH + INTEGER ISEL,NEUTOT,NTOTEM +*KEEP,RESON. + COMMON /RESON/ RDRES,RESRAN,IRESPAR + REAL RDRES(2),RESRAN(30000) + INTEGER IRESPAR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEND. + + DOUBLE PRECISION DPFUNC,RANNOR + SAVE + EXTERNAL DPFUNC,RANNOR +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' HDPM : CURPAR=',1P,9E10.3) + +C SET ANTI-LEADER TO PROTON OR NEUTRON; TARGET IS ALWAYS NUCLEON + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LE. CONTNE(LT) ) THEN + ITAR = 13 + ELSE + ITAR = 14 + ENDIF + + +C CALCULATE LAB AND CM ENERGY + IF ( ITYPE .NE. 1 ) THEN + ELAB = PAMA(ITYPE) * GAMMA + PLAB = ELAB * BETA + S = PAMA(ITYPE)**2 + PAMA(ITAR)**2 + 2.D0*PAMA(ITAR)*ELAB + ELSE +C FOR GAMMA-INDUCED REACTION TAKE PI(0) AS LEADING PARTICLE + ITYPE = 7 + ELAB = GAMMA + PLAB = ELAB + S = PAMA(ITAR)**2 + 2.D0*PAMA(ITAR)*ELAB + ENDIF + + ECMDPM = SQRT(S) + IF ( DEBUG ) WRITE(MDEBUG,*) 'HDPM : ITYPE,ELAB,PLAB,S,ECMDPM=', + * ITYPE,SNGL(ELAB),SNGL(PLAB),SNGL(S),SNGL(ECMDPM) + +C LN(S), LN(S)**2 AND RAPIDITY OF C. M. SYSTEM IN LAB + SLOG = LOG(S) + SLOGSQ = SLOG**2 + SMLOG = LOG( 2.D0 * PAMA(ITAR) * ELAB ) + ELABLG = LOG(ELAB) + EPLUSP = ELAB + PLAB +* YCM = 0.5D0 * LOG( (ELAB+PAMA(ITAR)+PLAB)/(ELAB+PAMA(ITAR)-PLAB) ) + YCM = 0.5D0 * LOG( (EPLUSP**2 +PAMA(ITAR)*EPLUSP)/ + * (PAMA(ITYPE)**2+PAMA(ITAR)*EPLUSP) ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'HDPM : SLOG,SLOGSQ,YCM=', + * SNGL(SLOG),SNGL(SLOGSQ),SNGL(YCM) + +C----------------------------------------------------------------------- +C RETURN POINT IF CALCULATION OF PARTICLES GOES WRONG + 1 CONTINUE + + IF ( ITYPE .NE. 7 ) THEN +C CHOOSE NUMBER OF INTERACTIONS IN TARGET + CALL TARINT + ELSE +C FOR GAMMA-INDUCED REACTIONS TAKE ALWAYS ONE COLLISION + GNU = 1.D0 + ENDIF + +C----------------------------------------------------------------------- +C NO DIFFRACTION IF +C OR THE NUMBER OF INTERACTIONS IN TARGET IS CHOSEN RANDOMLY +C AND MORE THAN ONE INTERACTION TAKES PLACE +C OR PRIMARY PARTICLE IS GAMMA (PI0) +C NOW NFLDIF DECIDES WHETHER DIFFRACTIVE PROCESS POSSIBLE OR NOT + IF ( ( NFLAIN.EQ.0 .AND. GNU.GT.1.D0 .AND. NFLDIF.EQ.0 ) + * .OR. ( ITYPE .EQ. 7 ) ) THEN + IDIF = 0 + ELSE +C SET DIFFRACTION FLAG IF RANDOM NUMBER < PROBABILITY + CALL RMMAR( RD,1,1 ) +C IDIF IS 0 : NO DIFFRACTION ; IDIF IS 1 : DIFFRACTION +C DIFFRACTION RISES WITH ENERGY AND SATURATES AT 10000 GEV +C ### DAS TUT ES ABER NICHT: ES IST KONSTANT 0.15 (SIEHE DPFUNC) !!!! + IF ( RD(1) .GT. DPFUNC(ECMDPM) ) THEN + IDIF = 0 + ELSE + IDIF = 1 + ENDIF + ENDIF + + +C PRINTOUT FOR DEBUG + IF ( DEBUG ) THEN + WRITE(MDEBUG,*) ' DIFFRACTIVE INTERACTION (0/1) = ',IDIF + ENDIF + +C SET COUNTER FOR REPEAT TO 0 + NREPRD = 0 + +C GENERATION OF INTERACTION + 1919 CONTINUE + +C FLAG TO CHECK NUMBER OF SECONDARIES; +C IS CHANGED TO 1 IF SECONDARY MULTIPLICITY IS LOW + ISEL = 0 +C SET LEADING PARTICLE TO INCOMING PARTICLE AND ANTI-LEADER TO NUCLEON +C (AS IT COMES FROM TARGET NUCLEUS) BOTH MAY BE CHANGED BY LEPACX + LEPAR1 = ITYPE + LEPAR2 = ITAR + + IF ( IDIF .EQ. 0 ) THEN +C----------------------------------------------------------------------- +C NON SINGLE DIFFRACTIVE PROCESS STARTS HERE + + CALL NSD +C CHARGE EXCHANGE ENABLED? EXCHANGE LEADER AND ANTI-LEADER + LASTPI = 0 + NRESPC = 0 + NRESPN = 0 + NCPLUS = 0 + IF ( NFLCHE .EQ. 0 ) THEN + CALL LEPACX( ECMDPM,ELABLG,LEPAR1,1 ) + CALL LEPACX( ECMDPM,ELABLG,LEPAR2,2 ) + ENDIF + 1921 CONTINUE + CALL RNEGBI( NCH,AVCH,ECMDPM ) +C NCH IS # OF ALL CHARGED PARTICLES INCLUDING EXCESS FROM TARGET + IF ( NCH .LT. 1 ) THEN + IF ( LEPAR1 .LT. 50 .OR. LEPAR2 .LT. 50 ) THEN + NREPRD = NREPRD + 1 + IF ( NREPRD .GT. 10 ) GOTO 1 + GOTO 1921 + ELSE +C INTERACTION IS ONLY RESONANCE PRODUCTION + ISEL = 1 + ENDIF + ENDIF +C WIDTH PLATEAU FOR CLUSTERS AND FOR CALCULATION OF CENTR.RAP.DENSITY + DELRAP = 0.6722D0 * (2.95D0 + 0.0302D0 * SLOG) +C SET RSLOG FOR CALCULATION OF PARTICLE RATIOS + RSLOG = SLOG +C AVERAGE TRANSVERSE MOMENTUM + CALL AVEPT( ECMDPM,SLOG ) + + ELSE +C----------------------------------------------------------------------- +C SINGLE DIFFRACTIVE PROCESS STARTS HERE + + 1920 CONTINUE + CALL DIFRAC( NRETDF ) + IF ( NRETDF .EQ. 1 ) GOTO 1 +C CHARGE EXCHANGE ENABLED? EXCHANGE CHARGE OF DIFFRACTING PARTICLE + LASTPI = 0 + NRESPC = 0 + NRESPN = 0 + NCPLUS = 0 + IF ( NFLCHE .EQ. 0 ) THEN + IF ( YY0 .GT. 0.D0 ) THEN +C PROJECTILE DIFFRACTION + CALL LEPACX( ECMDIF,DMLOG,LEPAR1,1 ) + ELSE +C TARGET DIFFRACTION + CALL LEPACX( ECMDIF,DMLOG,LEPAR2,2 ) + ENDIF + ENDIF +C FLUCTUATION OF MULTIPLICITY ACCORDING TO NEG.BIN. DISTRIBUTION + CALL RNEGBI( NCH,AVCH,ECMDIF ) +C REPEAT CALCULATION AS SOMETHING WENT WRONG + IF ( NCH .LT. 1 ) THEN + IF ( (YY0 .GT. 0.D0 .AND. LEPAR1 .LT. 50) .OR. + * (YY0 .LT. 0.D0 .AND. LEPAR2 .LT. 50) ) THEN + NREPRD = NREPRD + 1 + IF ( NREPRD .GT. 10 ) GOTO 1 + GOTO 1920 + ELSE +C DIFFRACTIVE INTERACTION IS ONLY RESONANCE PRODUCTION + ISEL = 1 + ENDIF + ENDIF +C SET RSLOG FOR CALCULATION OF PARTICLE RATIOS + RSLOG = DLOG +C HERE WE USE ECMDPM, BECAUSE THE MOMENTUM TRANSFER IS DEPENDENT +C ON THE ENERGY OF THE TOTAL SYSTEM AND NOT ON THE DIFFRACTING MASS + CALL AVEPT( ECMDPM,SLOG ) + + ENDIF + +C----------------------------------------------------------------------- +C NOW FOR NSD AND DIFFRACTIVE PROCESSES + +C IN CASE OF LOW MULTIPLICITY SET FLAG ISEL + IF ( NCH .LE. 2 ) ISEL=1 +C FNCH IS FLUCTUATING TOT.NUMBER OF CHARGED PARTICLES FOR ALL 3 STRINGS + FNCH = DBLE(NCH) +C RATIO ALL CHARGED PARTICLES WITH FLUCTUATION/WITHOUT FLUCTUATION + XZ = FNCH / AVCH +C FNCH3 IS FLUCTUATING NUMBER OF CHARGED PARTICLES FOR 3RD STRING + FNCH3 = XZ * AVCH3 +C FNCH2 IS FLUCTUATING NUMBER OF CHARGED PARTICLES 1ST AND 2ND STRING + FNCH2 = FNCH - FNCH3 +C RC3TO2 IS RATIO (CHARGED 3RD STRING)/(CHARGED 1ST AND 2ND STRING) + IF ( FNCH2 .NE. 0.D0 ) THEN + RC3TO2 = FNCH3 / FNCH2 + ELSE + RC3TO2 = 0.D0 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) ' FNCH,FNCH2,FNCH3,RC3TO2=', + * SNGL(FNCH),SNGL(FNCH2),SNGL(FNCH3),SNGL(RC3TO2) + +C IS NUMBER OF NEUTRALS FLUCTUATING AS NUMBER OF CHARGED ? + IF ( NFLPIF .EQ. 0 .OR. IDIF .EQ. 1 .OR. ECMDPM .LT. 60.D0 ) THEN +C SET NUMBER OF GAMMAS ACCORDING TO NEG. BIN. VARIABLE XZ +C AS NUMBER OF NEUTRALS FLUCTUATES AS CHARGED. + SEUGF = SEUGP * XZ + ZG = XZ + ELSE +C NFLPIF IS 1 MEANS: # OF PI(0) FLUCTUATES AS MEASURED AT COLLIDER + IF ( ECMDPM .LT. 200.D0 ) THEN + SEUGF = SEUGP * XZ +* SEUGF = (0.0786D0*SLOG-0.010D0)*FNCH2 + (0.391D0*SLOG+0.305D0) + ELSE +C DETERMINE NEW NUMBER OF GAMMAS WITH FLUCTUATION AROUND SEUGP*XZ + AGR = EXP(-XZ) + DGR = SEUGP * XZ * (0.9823D0 - 0.3756D0 * AGR) + SGS = DGR * (0.14718D0 + 2.53213D0 * AGR) + 723 CONTINUE + SEUGF = 0.88D0 * RANNOR(DGR,SGS) + IF ( SEUGF .LT. 1.D0 ) GOTO 723 + ENDIF +C SET NEGATIVE BINOMIAL VARIABLE ZG FOR GAMMAS + ZG = SEUGF / SEUGP + ENDIF + SEUGF = MAX( 1.D0, SEUGF ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'HDPM :XZ,ZG,SEUGF=', + * SNGL(XZ),SNGL(ZG),SNGL(SEUGF) + +C----------------------------------------------------------------------- +C RATIO ALL-NUCLEON/ALL-CHARGED +C PARAMETRISATION FROM UA5, NUCL. PHYS. B291 (1987) 445 EQ.(2.4) + RNUCCH = MAX( 0.D0, -0.008D0 + 0.00865D0 * RSLOG ) +C NUMBER FOR DIRECT NEUTRON/ANTINEUTRON PRODUCTION 1ST AND 2ND STRING +C MULTIPLY BY 0.5 BECAUSE RATIO RNUCCH GIVES (ALL-NUCL)/(ALL-CHARGED) +C AND HERE ONLY THE NEUTRON-ANTINEUTRONS ARE COUNTED + FNUCN = 0.5D0 * RNUCCH * FNCH2 +C RATIO (ALL CHARGED SIGMAS)/(ALL CHARGED) IS 1/3 OF ALL STRANGE BARYON +C PARAMETRISATION FORM UA5, NUCL. PHYS. B291 (1987) 445 EQ.(2.5) + RHYPCH = MAX( 0.D0, (-0.007D0 + 0.0028D0 * RSLOG) * OB3 ) +C NEUTRAL STRANGE BARYONS ARE DOUBLE OF CHARGED STRANGE BARYONS + FHYPN = 2.D0 * RHYPCH * FNCH2 +C CORRECT NUMBER OF GAMMAS FROM NEUTRAL HYPERON DECAY S0-->L+GAMMA + SEUGFC = MAX( 0.D0, SEUGF - 0.5D0 * FHYPN ) +C RATIO CHARGED-KAON/CHARGED PIONS +C PARAMETRISATION FROM UA5, NUCL. PHYS. B291 (1987) 445 EQ.(2.7) + RKPI = MAX (0.D0, 0.024D0 + 0.0062D0 * RSLOG ) +C RKCH IS RATIO (CHARGED-KAON)/(ALL-CHARGED) DERIVED FROM RKPI; +C THE FACTOR 0.5 IN FRONT OF RNUCCH IS BECAUSE ONLY HALF OF NUCLEONS +C ARE P/PBAR. THE 1.17 IS AN APROXIMATE CONVERSION FACTOR FROM +C (ALL-NUCL)/(ALL-CHARGED) TO (ALL-NUCL)/(CHARGED-PI), WHICH IS A BIT +C ENERGY DEPENDENT (1.14 ...1.21) SEE GEICH-GIMBEL TABLE 7.1 + RKCH = RKPI / (1.D0 + RKPI + (0.5D0*RNUCCH+RHYPCH) * 1.17D0) +C K0/K0-BAR FOR 1ST AND 2ND STRING +C NEUTRAL KAONS ARE PRODUCED WITH THE SAME RATE AS CHARGED KAONS + FKA0 = RKCH * FNCH2 +C RATIO ETA/PI(0) IS ASSUMED TO BE INDEPENDENT OF ENERGY = 0.19 +C SEE: ANSORGE ET AL. (UA5-COLLABORATION) Z.PHYS.C43(1989)75 +* RETPI0 = 0.19D0 +C RATIO ETA/PI(0) IS ASSUMED TO BE DEPENDENT ON ENERGY +C SEE: GEICH-GIMBEL,INT.J.MOD.PHYS.A4(1989)1527 TAB.7.1 +C HECK'S FIT: RETPI0 IS 0.06 + 0.006*RSLOG + 0.0011*RSLOG**2 + RETPI0 = 0.06D0 + 0.006D0 * RSLOG + 0.0011D0 * RSLOG**2 +C AUXIL1 IS FRACTION OF PI(0)/(PI(0)+ETA) + AUXIL1 = 1.D0 / (1.D0 + RETPI0) +C NUMBER OF GAMMAS FROM PI(0) IS 2, FROM ETA IS 3.216 IN AVERAGE; +C AUXIL2 IS NUMBER OF GAMMA-PRODUCING-PARTICLES: PI(0) AND ETA + AUXIL2 = SEUGFC / ( AUXIL1 * 2.D0 + (1.D0 - AUXIL1) * 3.216D0 ) + FETA = (1.D0 - AUXIL1) * AUXIL2 + FPI0 = AUXIL1 * AUXIL2 +C CORRECT FPI0 BY DECAYS OF STRANGE BARYONS; NEUTRAL: FHYPN*0.357 +C CHARGED: 0.5*FNCH2*RHYPCH*0.5157; IT YIELDS FHYPN*(0.357+0.12893) + FPI0 = MAX( 0.D0, FPI0 - FHYPN * 0.486D0 ) +C SUMMED NEUTRAL PARTICLES FOR 1ST AND 2ND STRING + FNEUT2 = FNUCN + FKA0 + FHYPN + FETA + FPI0 +C NEUTRAL PARTICLES FROM 3RD STRING + FNEUT3 = RC3TO2 * FNEUT2 +C TOTAL NUMBER OF NEUTRALS + FNEUT = FNEUT2 + FNEUT3 + NEUTOT = NINT( FNEUT ) +C CALCULATE TOTAL NUMBER OF PARTICLES TO BE CREATED + NTOTEM = NCH + NEUTOT + IF ( DEBUG ) WRITE(MDEBUG,*) + * ' FNUCN,FKA0,FHYPN,FETA,FPI0,FNEUT2,FNEUT3,NTOTEM=', + * SNGL(FNUCN),SNGL(FKA0),SNGL(FHYPN),SNGL(FETA),SNGL(FPI0), + * SNGL(FNEUT2),SNGL(FNEUT3),NTOTEM +C LIMIT OF SECONDARIES PRODUCED (GIVEN BY SIZE OF ARRAY : 3000) +C LIMIT IS ARRAY SIZE - SIZE OF LARGEST TARGET NUCLEUS(40) + IF ( NTOTEM .GE. 2956 ) THEN + WRITE(MONIOU,*) 'HDPM : REJECT EVENT WITH ',NTOTEM, + * ' SECONDARIES' + GOTO 1 + ENDIF +C SPECIAL TREATMENT IF MULTIPLICITY IS TOO LOW + IF ( NTOTEM .LE. 3 ) ISEL = 1 + +C FRACTION OF THE VARIOUS NEUTRAL PARTICLES (NN, K(0), L+S0 AS PAIRS) +C NORMALIZE WITH THE SUM OF ALL NEUTRAL PARTICLES + FNORML = 1.D0 / ( 0.5D0 * (FNUCN+FKA0+FHYPN) + FETA + FPI0 ) + RNUCNR = FNUCN * FNORML * 0.5D0 + RKA0R = FKA0 * FNORML * 0.5D0 + RHYPNR = FHYPN * FNORML * 0.5D0 + RETAR = FETA * FNORML + RPI0R = FPI0 * FNORML +C CUMULATED RATIOS (NN, K(0), LAMBDA+SIGMA0 AS PAIRS) + RPIER = RPI0R + RETAR + RPEKR = RPIER + RKA0R + RPEKNR = RPEKR + RNUCNR +C THEN THE REMAINDER (1-RPEKNR) MUST BE NEUTRAL HYPERON PAIRS + IF ( DEBUG ) WRITE(MDEBUG,*) + * ' RPI0R,RETAR,RKA0R,RNUCNR,RHYPNR,FNORML=', + * SNGL(RPI0R),SNGL(RETAR),SNGL(RKA0R),SNGL(RNUCNR),SNGL(RHYPNR), + * SNGL(FNORML) + +C PROBABILITY TO PRODUCE CHARGED PIONS IS PROBABILITY NOT TO PRODUCE +C CHARGED KAONS OR PROTONS OR CHARGED HYPERONS, WHERE PROTON/ANTIPROTON +C IS HALF OF (ALL-NUCL)/(ALL-CHARGED) + AUXIL = RKCH + 0.5D0 * RNUCCH + RHYPCH + AUXIL3 = 1.D0 - AUXIL +C RENORMALIZATION AS P/P_BAR, K+-, AND HYPERONS ARE PRODUCED IN PAIRS +C AUXIL2 IS INVERSE OF NORMALISATION + AUXIL2 = 1.D0 / (1.D0 - 0.5D0 * AUXIL) +C CUMULATED PROBABILITIES (PP, K+-, SIGMA+- AS PAIRS) + PPICH = AUXIL3 * AUXIL2 + PPINCH = PPICH + 0.25D0 * RNUCCH * AUXIL2 + PPNKCH = PPINCH + 0.5D0 * RKCH * AUXIL2 +C THEN THE REMAINDER (1-PPNKCH) MUST BE CHARGED HYPERON PAIRS + IF ( DEBUG ) WRITE(MDEBUG,*) ' PPICH,PPINCH,PPNKCH=', + * SNGL(PPICH),SNGL(PPINCH),SNGL(PPNKCH) + +C NOW SELECT HOW MANY PARTICLES OF EACH TYPE ARE PRODUCED + CALL PARNUM( INUMFL ) + IF ( INUMFL .NE. 0 ) GOTO 1919 + +C DEFINE PARTICLE NUMBERS WHERE SPECIAL RAPIDITY IS CALCULATED +C FOR PARTICLES FROM TARGET (THIRD STRING) + PPP = RC3TO2 / (1.D0+RC3TO2) +C NUMBER OF PARTICLES IN PROTON ANTIPROTON PAIRS FROM TARGET + ITA = NINT(PPP * 2.D0 * NNC) +C NUMBER OF PARTICLES IN K+ K- PAIRS FROM TARGET + ITB = NINT(PPP * 2.D0 * NKC) +C NUMBER OF PARTICLES IN SIGMA+ SIGMA- PAIRS FROM TARGET + ITC = NINT(PPP * 2.D0 * NHC) +C NUMBER OF PI+ PI- FROM TARGET + ITD = NINT(PPP * NPC ) +C CALCULATE BOUNDARIES + IA1 = 2 + IA2 = IA1 + ITA + IB1 = IA1 + 2 * NNC + IB2 = IB1 + ITB + IC1 = IB1 + 2 * NKC + IC2 = IC1 + ITC + ID1 = IC1 + 2 * NHC + ID2 = ID1 + ITD + IE1 = ID1 + NPC +C NUMBER OF PARTICLES IN NEUTRON ANTINEUTRON PAIRS FROM TARGET + IE2 = IE1 + 2 * NNUCN(3) + IF1 = IE1 + 2 * NNN +C NUMBER OF PARTICLES IN K0S K0L PAIRS FROM TARGET + IF2 = IF1 + 2 * NKA0(3) + IG1 = IF1 + 2 * NKN +C NUMBER OF PARTICLES IN NEUTRAL HYPERON PAIRS FROM TARGET + IG2 = IG1 + 2 * NHYPN(3) + IH1 = IG1 + 2 * NHN +C NUMBER OF ETA FROM TARGET + IH2 = IH1 + NETAS(3) + II1 = IH1 + NET +C NUMBER OF PI(0) FROM TARGET + II2 = II1 + NPIZER(3) + IJ1 = II1 + NPN + IF ( DEBUG ) THEN + WRITE(MDEBUG,*) ' CHARGED FROM TARGET:',ITA,ITB,ITC,ITD + WRITE(MDEBUG,*) ' NEUTRAL FROM TARGET:', + * 2*NNUCN(3),2*NKA0(3),2*NHYPN(3),NETAS(3),NPIZER(3) + WRITE(MDEBUG,*) ' NTOTEM,IJ1=',NTOTEM,IJ1 + ENDIF +C REDEFINE TOTAL NUMBER OF SECONDARY PARTICLES : NTOTEM +C BY CHARGE EXCHANGE AND RESONANCE FORMATION THIS NUMBER MAY BE ALTERED + NTOTEM = IJ1 - 2 + +C----------------------------------------------------------------------- +C RATIO OF RAPIDITY DENSITY TO MEAN PSEUDORAPIDITY IN CENTER +C PARAMETRISATION SEE CAPDEVIELLE, J.PHYS.G:NUCL.PHYS.15(1989)909,EQ.6 + IF ( XZ .LT. 1.5D0 ) THEN + RDS = (0.24396D0 + 0.70150424D0 * XZ)**2 + ELSE + RDS = (0.55685D0 + 0.48664753D0 * XZ)**2 + ENDIF +C CALCULATE NOW: DN/DY AT Y = 0; DC0 IS AVERAGE PSEUDORAPIDITY DENSITY +C TRAP IS RATIO (RAPID.DENS.)/(PSEUDORAP.DENS.) IN CENTER OF RAPIDITY + TRAP = 1.25D0 + IF ( IDIF .EQ. 0 .AND. ECMDPM .GT. 19.4D0 ) + * TRAP = MAX( 1.D0, 1.28852D0 - 0.0065D0 * SMLOG ) + DCN2 = DC0 * RDS * TRAP + IF ( DEBUG ) WRITE(MDEBUG,*) ' RDS,TRAP,DCN2=', + * SNGL(RDS),SNGL(TRAP),SNGL(DCN2) +C AMPLITUDE OF GAUSSIAN 1ST AND 2ND STRING + ATG2 = FNCH2 / (5.0132566D0 * WIDC2) +C NEW DEFINITION OF POSITION BASED ON SEMI INCLUSIVE DATA + SQ2 = 2.D0 * ATG2 / DCN2 +C FINAL POSITION OF GAUSSIAN; WIDTH WIDC2 IS UNCHANGED + IF ( SQ2 .GT. 1.D0 ) POSC2 = WIDC2 * SQRT( 2.D0*LOG(SQ2) ) +C DENSITY OF CHARGED IN EXCESS FROM TARGET IN CENTER OF RAPIDITY + DCN3 = 0.5D0 * (GNU - 1.D0) * DCN2 + IF ( DEBUG ) WRITE(MDEBUG,*) ' SQ2,POSC2,DCN3=', + * SNGL(SQ2),SNGL(POSC2),SNGL(DCN3) + IF ( DCN3 .GT. 0.D0 ) THEN +C AMPLITUDE 3RD GAUSSIAN + ATG3 = FNCH3 / (5.0132566D0 * WIDC3) +C AMPLITUDE IS DIVIDED BY DENSITY FOR GETTING CENTER OF 3RD GAUSSIAN + SQ3 = 2.D0 * ATG3 / DCN3 +C CHECK IF ADDITIVE MULTIPLICITY IS TOO LOW + IF ( SQ3 .GT. 1.D0 ) POSC3 = WIDC3 * SQRT( 2.D0*LOG(SQ3) ) + IF (DEBUG) WRITE(MDEBUG,*)' SQ3,POSC3=',SNGL(SQ3),SNGL(POSC3) + ENDIF + +C NFLPI0 .EQ. 0 MEANS TREAT PI(0) RAPIDITY ACCORDING TO COLLIDER DATA + IF ( NFLPI0 .EQ. 0 ) THEN +C RATIO OF RAPIDITY DENSITY TO MEAN PSEUDORAPIDITY AT CENTER WITH Z<1.5 + IF ( ZG .LT. 1.5D0 ) THEN + RDG = (0.24396D0 + 0.70150424D0 * ZG)**2 + ELSE + RDG = (0.55685D0 + 0.48664753D0 * ZG)**2 + ENDIF +C GAMMAS USE RATIO TRAG TO CALCULATE RATIO OF RAPIDITY TO +C PSEUDO RAPIDITY DENSITY IN CENTER (TRAG = 1.1 * 0.5 ). +C FACTOR 0.5 COMES FROM RATIO NEUTRAL/CHARGED, AS WE USE DC0, WHICH +C IS AVERAGE PSEUDORAPIDITY DENSITY FOR CHARGED PIONS + TRAG = 0.55D0 + IF ( IDIF .EQ. 0 ) THEN + IF ( ECMDPM .GT. 19.4D0 ) + * TRAG = MAX( 0.4D0, 0.6658D0 - 0.01954D0 * SMLOG ) + IF ( ECMDPM .LE. 50.D0 ) THEN + DCG = DC0 * RDG * TRAG + ELSEIF ( ECMDPM .LE. 200.D0 ) THEN + DCG = DC0 * RDG * TRAG * (1.D0 + 0.18D0 * LOG(ECMDPM/50.D0)) + ELSE + DCG = DC0 * RDG * TRAG * 1.25D0 + ENDIF + ELSE + DCG = DC0 * RDG * TRAG + ENDIF +C DEFINE WIDTH OF STRINGS FOR NEUTRAL PIONS AND ETAS + WIDN2 = WIDC2 * MIN( 1.D0, 1.12275D0 - 0.0208D0 * RSLOG ) +C NEW DEFINITION OF CENTER OF GAUSSIAN BASED ON SEMI INCLUSIVE DATA +C USING AMPLITUDE OF THE GAUSSIAN FOR NEUTRALS + AUXIL = 2.D0 / (5.0132566D0 * WIDN2 * DCG) +C TOTAL MULTIPLICITY USED FOR 1ST AND 2ND STRING OF PI(0) AND ETA +C IS GIVEN BY THEIR NUMBERS. ANALOGOUS FOR 3RD STRING + SP2 = DBLE ( NPIZER(2)+NETAS(2)) * AUXIL +C FINAL CENTER OF GAUSSIANS FOR PI(0) AND ETA (WIDC2 IS UNCHANGED) + IF ( SP2 .GT. 1.D0 ) THEN + POSN2 = WIDN2 * SQRT( 2.D0 * LOG(SP2) ) + ELSE + POSN2 = POSC2 + ENDIF + WIDN3 = WIDN2 + SP3 = DBLE(NPIZER(3)+NETAS(3)) * AUXIL + IF ( SP3 .GT. 1.D0 ) THEN + POSN3 = WIDN3 * SQRT( 2.D0 * LOG(SP3) ) + ELSE + POSN3 = POSC3 + ENDIF + ELSE +C NFLPI0 .EQ. 1 MEANS RAPIDITY OF PI(0) AND ETA SAME AS THAT OF CHARGED + POSN2 = POSC2 + WIDN2 = WIDC2 + POSN3 = POSC3 + WIDN3 = WIDC3 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) + * ' ZG,RDG,DCG,SP2,SP3,POSN2,POSN3,WIDN2 =', + * SNGL(ZG),SNGL(RDG),SNGL(DCG),SNGL(SP2),SNGL(SP3),SNGL(POSN2), + * SNGL(POSN3),SNGL(WIDN2) + +C----------------------------------------------------------------------- + NREPR1 = 0 +C RETURN POINT. NUMBERS OF PARTICLES REMAIN UNCHANGED FOR NEXT TRY, +C BUT INDIVIDUAL RAPIDITIES GET NEW VALUES. +C START FROM BEGINNING IF NO MATCH AFTER 20 TRIES + 30 CONTINUE + NREPR1 = NREPR1 + 1 + IF ( NREPR1 .GT. 20 ) THEN + IF ( IDIF .EQ. 1 .AND. NREPRD .LE. 10 ) GOTO 1919 + GOTO 1 + ENDIF + +C FOR TOTAL NUMBER OF PARTICLES ADD 2 FOR LEADER AND ANTILEADER + NTOT = NTOTEM + 2 + +C PRODUCTION OF INDIVIDUAL RAPIDITIES FOR ALL SECONDARY PARTICLES + CALL PARRAP +CC IF ( DEBUG ) THEN +CC WRITE(MDEBUG,*) ' RAPIDITIES:' +CC WRITE(MDEBUG,134) (I,YR(I), I=3,NTOT) +C134 FORMAT(' ',1P, (1X, I4, 5X, G13.6 )) +CC ENDIF + + +C CALCULATION OF CENTRAL RAPIDITY WITHOUT (ANTI)LEADER +C MULTIPLICITY IN CENTER OF RAPIDITY DISTRIBUTION + IZN = 0.D0 + IF ( IDIF .EQ. 0 ) THEN + DO 111 I = 3,NTOT + IF ( ABS(YR(I)) .LT. DELRAP ) IZN = IZN + 1 + 111 CONTINUE + IF ( IZN .LT. 1 ) THEN + IF ( ISEL .EQ. 0 ) GOTO 30 +C IN CASE OF FEW PARTICLES, SET PARTICLE NUMBER IN PLATEAU TO 1 + IZN = 1 + ENDIF +C CENTRAL RAPIDITY DENSITY FOR CHARGED PARTICLES + IF ( NTOTEM .GE. 1 ) THEN + ZNC = MAX( 1.1D0, DBLE(NCH)*IZN/(DBLE(NTOTEM)*2.D0*DELRAP) ) + ELSE + ZNC = 1.1D0 + ENDIF + ELSE +C DIFFRACTION: SHIFT RAPIDITIES + TAKE CENT.RAP.DENS. FROM PARAMETRISAT + DO 112 I = 3,NTOT + YR(I) = YR(I) + YY0 + 112 CONTINUE + ZNC = MAX( 1.1D0, DCN2 ) + ENDIF + +C ZN ACCOUNTS FOR THE RISE OF PT WITH CENTRAL RAP.DENSITY. THE FORMULA +C IS A FIT TO UA1 VALUES OF ARNISON ET AL, PHYS.LETT.B118(1982)167 +C REGARD, THAT OUR ZN IS DEFINED DIFFERENT FROM LITERATURE N BY 1 +C - - - - - - +C MODIFICATION AFTER J.N. CAPDEVIELLE, (DEC.96) +* IF ( ECMDPM .LE. 500.D0 ) THEN +* ZN = MAX( 1.00001D0, 3.669D0 / ZNC**0.435D0 + 6.4D0 ) +* ELSE +C TAKE INTO ACCOUNT THE RESULTS OF UA1/MIMI EXPERIMENT +C FOR SMALL CENTR. RAP. DENS. RHOC < 3.00 (MIMI)(TO BE USED IN PTRAM) + IF ( ZNC .LT. 3.D0 ) THEN + PTAVE = 0.0033D0 * (ZNC-1.56D0)**2 + 0.406D0 + ELSE +C FOR LARGE CENTR. RAP. DENSITIES + PTAVE = ZNC*0.010853D0 + 0.3828D0 + ENDIF + ZN = 2.64D0/PTAVE + 3.D0 +* ENDIF +C - - - - - - +C NOW SET PARTICLE TYPE AND TRANSV. MOMENTA FOR NEW PARTICLES IN PPARAM +C SET ALSO TRANSVERSE MASS FOR ALL PARTICLES (INCL. LEADER+ANTILEADER) + CALL PPARAM + + IF ( IDIF .EQ. 0 ) THEN +C NOW SET THE RAPIDITY OF THE ANTILEADER ACCORDING TO THE DISTRIBUTION +C IN THE FEYNMAN X VARIABLE; SET THE RAPIDITY OF LEADER TO CONSUME +C THE REMAINDER OF ENERGY + CALL LEDENY( LEDEFL ) + IF ( LEDEFL .NE. 0 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) ' LEDEFL=',LEDEFL + GOTO 30 + ENDIF + +C CALCULATE FOR SINGLE COLLISION SYSTEM C.M. ENERGY + RAPIDITY SHIFT + IF ( GNU .LE. 1.D0 ) THEN + JGNU = 0.D0 + DYGNU = 0.D0 + ECMJAD = ECMDPM + ELSE +C MULTIPLE COLLISION IN TARGET + JGNU = NINT(GNU-1.D0) +C ADD ADDITIONALLY INTERACTING +C TARGET NUCLEONS TO GET CORRECT JADACH FILTERING +C CHOSE RANDOMLY WHETHER PROTON OR NEUTRON + CALL RMMAR( RD,JGNU,1 ) + IPR = 0 + INE = 0 + TARMAS = PAMA(ITYP(2)) + DO 114 I = 1,JGNU + NTOT = NTOT + 1 + IF ( RD(I) .LE. .5D0 ) THEN + ITYP(NTOT) = 13 + INE = INE + 1 + ELSE + ITYP(NTOT) = 14 + IPR = IPR + 1 + ENDIF + TMAS(NTOT) = PAMA(ITYP(NTOT)) + TARMAS = TARMAS + TMAS(NTOT) + EA(NTOT) = TMAS(NTOT) + PX(NTOT) = 0.D0 + PY(NTOT) = 0.D0 + PT2(NTOT) = 0.D0 + 114 CONTINUE + +C CALCULATE C.M. ENERGY + RAPIDITY SHIFT +* YCMGNU = 0.5D0 * LOG( (ELAB+TARMAS+PLAB)/(ELAB+TARMAS-PLAB) ) + YCMGNU = 0.5D0 * LOG( (EPLUSP**2 +TARMAS*EPLUSP)/ + * (PAMA(ITYPE)**2+TARMAS*EPLUSP) ) + DYGNU = YCM - YCMGNU + +C CALCULATE RAPIDITIES OF ADDITIONALLY INTERACTING TARGET NUCLEONS +C IN THE CM SYSTEM OF NUCLEON-NUCLEON SYSTEM + DO 115 I = NTOT-JGNU+1,NTOT + YR(I) = - YCM + 115 CONTINUE +C SHIFT RAPIDITIES INTO CM SYSTEM OF GNU+1 MASSES + DO 113 I = 1,NTOT + YR(I) = YR(I) + DYGNU + 113 CONTINUE + +C CENTER OF MASS ENERGY OF 1 PROJECTILE AND GNU TARGET NUCLEONS TO +C BE USED IN THE JADACH FILTER. + ECMJAD = SQRT( PAMA(ITYPE)**2 + TARMAS**2 + 2.D0*TARMAS*ELAB ) + + ENDIF + + ELSE +C IN CASE OF DIFFRACTION SET THE RAPIDITY OF LEADER AND ANTILEADER +C IN SUBROUT. LEADDF + DYGNU = 0.D0 + ECMJAD = ECMDPM + CALL LEADDF( IFLGLD ) + IF ( IFLGLD .NE. 0 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) ' IFLGLD=',IFLGLD + GOTO 30 + ENDIF + ENDIF + +C CORRECT THE RAPIDITIES TO CONSERVE LONGITUDINAL MOMENTA AND ENERGY +C USING THE ALGORITHM OF JADACH (SIMPLIFIED VERSION BY R. ATTALLAH) + CALL JADACH( ECMJAD,JADFLG ) + IF ( JADFLG .NE. 0 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) ' JADFLG=', JADFLG + IF ( JADFLG .GT. 0 ) GOTO 30 + IF ( JADFLG .LT. 0 ) THEN + NREPRD = NREPRD + 1 + IF ( NREPRD .GT. 10 ) GOTO 1 + GOTO 1919 + ENDIF + ENDIF + + +C CALCULATE LAB ENERGIES OF SECONDARY PARTICLES FROM THE RAPIDITIES +C INCLUDING THE ADDITIONAL TARGET NUCLEONS + ETOT = 0.D0 + DO 135 I = 1,NTOT + YR(I) = YR(I) + YCM - DYGNU + EA(I) = TMAS(I) * COSH( YR(I) ) + ETOT = ETOT + EA(I) + 135 CONTINUE + + IF ( DEBUG ) WRITE(MDEBUG,136) + * (I,ITYP(I),PX(I),PY(I),YR(I),EA(I),I=1,NTOT) + 136 FORMAT(' NO ITYP PX PY YR EA'/ + * (' ',I4,I3,1X,1P,4G13.6) ) + +C----------------------------------------------------------------------- +C LOOP OVER ALL SECONDARY PARTICLES AND THE LEADING PARTICLE + +C PROCESS LOOP + DO 140 J = 1,NTOT +C REJECTION OF BACKWARD GOING PARTICLES + IF ( YR(J) .LE. 0.D0 ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'HDPM : YR REJECT PARTICLE ',J + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + EA(J) + ENDIF + GOTO 140 + ENDIF +C CALCULATE THE PROPERTIES OF ALL SECONDARIES +C PARTICLE TYPE + SECPAR(1) = ITYP(J) +C CALCULATE GAMMA FACTOR + SECPAR(2) = EA(J) / PAMA(ITYP(J)) +C TOTAL MOMENTUM SQUARED + PTM = EA(J)**2 - PAMA(ITYP(J))**2 + IF ( PT2(J) .GT. PTM ) THEN + IF ( DEBUG ) WRITE(MDEBUG,*) 'HDPM : PT REJECT PARTICLE ',J + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + EA(J) + ENDIF + GOTO 140 + ENDIF +C EMISSION ZENITH ANGLE AGAINST TRAJECTORY OF PROJECTILE + IF ( PTM .EQ. 0.D0 ) THEN + COSTET = 1.D0 + ELSE + COSTET = SQRT( 1.D0 - PT2(J) / PTM ) + ENDIF +C EMISSION AZIMUTH ANGLE + IF ( PX(J) .NE. 0.D0 .OR. PY(J) .NE. 0.D0 ) THEN + PHIJ = ATAN2( PY(J), PX(J) ) + ELSE + PHIJ = 0.D0 + ENDIF + CALL ADDANG( COSTHE,PHI, COSTET,PHIJ, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .LT. C(29) ) THEN +C OMIT UPWARD GOING PARTICLES + IF (DEBUG) WRITE(MDEBUG,*) 'HDPM : ANGLE REJECT PARTICLE ',J + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + EA(J) + ENDIF + GOTO 140 + ENDIF +C PUT SECONDARY PARTICLES ON STACK, IF NOT GOING UPWARDS + IF ( J .GT. 2 ) THEN + CALL TSTACK + ELSE +C PUT LEADER OR ANTI-LEADER ON STACK, IF NOT GOING UPWARDS + IF ( ITYP(J) .GT. 50 ) THEN +C LEADER OR ANTI LEADER ARE RESONANCES AND DECAY + IRESPAR = IRESPAR + 1 + IF ( IRESPAR .GE. 30000 ) THEN + WRITE(MONIOU,*) + * 'HDPM : STACK OF RESDEC RANDOM NUMBERS FULL' + IRESPAR = 29999 + ENDIF + RESRAN(IRESPAR) = RDRES(J) +C COUNTER FOR ENERGY-MULTIPLICITY MATRIX + MSMM = MSMM + 1 + ENDIF + CALL TSTACK + +C CALCULATE ELASTICITY FROM ENERGY OF LEADER (REST OF RESONANCE DECAY) + IF ( J. EQ. 1 ) ELASTI = SECPAR(2)*PAMA(NINT(SECPAR(1)))/ELAB + ENDIF +C COUNTERS FOR FIRST INTERACTION + IF ( FIRSTI ) THEN + IF ( SECPAR(1) .EQ. 7.D0 .OR. SECPAR(1) .EQ. 8.D0 + * .OR. SECPAR(1) .EQ. 9.D0 ) THEN + IFINPI = IFINPI + 1 + ELSEIF ( SECPAR(1) .EQ. 13.D0 .OR. SECPAR(1) .EQ. 14.D0 + * .OR. SECPAR(1) .EQ. 15.D0 .OR. SECPAR(1) .EQ. 25.D0 ) THEN + IFINNU = IFINNU + 1 + ELSEIF ( SECPAR(1) .EQ. 10.D0 .OR. SECPAR(1) .EQ. 11.D0 + * .OR. SECPAR(1) .EQ. 12.D0 .OR. SECPAR(1) .EQ. 16.D0 ) THEN + IFINKA = IFINKA + 1 + ELSEIF ( SECPAR(1) .GE. 71.D0 .AND. SECPAR(1) .LE. 74.D0) THEN + IFINET = IFINET + 1 + ELSEIF ((SECPAR(1) .GE. 18.D0 .AND. SECPAR(1) .LE. 24.D0) + * .OR. (SECPAR(1) .GE. 26.D0 .AND. SECPAR(1) .LE. 32.D0))THEN + IFINHY = IFINHY + 1 + ENDIF + ENDIF + + 140 CONTINUE + +C COUNTER FOR ENERGY-MULTIPLICITY MATRIX + MSMM = MSMM + NTOT - 2 + +C FILL ELASTICITY IN MATRICES + MEL = MIN ( 1.D0+10.D0* MAX( 0.D0, ELASTI ) , 11.D0 ) + MEN = MIN ( 4.D0+ 3.D0*LOG10(MAX( .1D0, EKINL )), 40.D0 ) + IELDPM(MEN,MEL) = IELDPM(MEN,MEL) + 1 + IELDPA(MEN,MEL) = IELDPA(MEN,MEL) + 1 + IF ( ELASTI .LT. 1.D0 ) THEN + ELMEAN(MEN) = ELMEAN(MEN) + ELASTI + ELMEAA(MEN) = ELMEAA(MEN) + ELASTI + ENDIF + + IF ( FIRSTI ) THEN + TARG1I = TAR + SIG1I = SIGAIR + ELAST = ELASTI + FIRSTI = .FALSE. + ENDIF + + IF ( DEBUG ) WRITE(MDEBUG,*) 'HDPM : ELAST=',SNGL(ELASTI), + * SNGL(ETOT),SNGL(ELAB) + + RETURN + END +*CMZ : 28/09/2001 16.38.22 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE JADACH( ECMJAD,JADFLG ) + +C----------------------------------------------------------------------- +C JADACH (FILTER) +C +C ADJUSTS THE RAPIDITIES OF ALL SECONDARIES SUCH THAT +C ENERGY AND LONGITUDINAL MOMENTUM ARE CONSERVED AT THE SAME TIME +C THE ALGORITHM IS TAKEN FROM S.JADACH, COM.PHYS.COMM. 9 (1975) 297 +C THE ROUTINE MUST BE CALLED AFTER THE PT IS CONSERVED AND BEFORE +C THE TRANSFORMATION TO THE LAB SYSTEM IS DONE +C THIS SUBROUTINE IS CALLED FROM HDPM. +C ARGUMENTS: +C ECMJAD = CM ENERGY IN THE PROJECTILE -- GNU*NUCLEONS SYSTEM +C JADFLG = 0 JADACH FILTER CORRECTLY ENDED +C = 1 BAD RAPIDITIES, SELECT RAPIDITIES AGAIN +C =-1 SUM OF TRANSVERSE MASSES EXCEEDS AVAILABLE CM ENERGY +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,NEWPAR. + COMMON /NEWPAR/ EA,PT2,PX,PY,TMAS,YR,ITYP, + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT + DOUBLE PRECISION EA(3000),PT2(3000),PX(3000),PY(3000),TMAS(3000), + * YR(3000) + INTEGER ITYP(3000), + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DIMENSION YRJAD(3000) + SAVE + DATA EPS / 1.D-7 / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'JADACH: NTOT=',NTOT + + JADFLG = 0 + +C SUM UP TRANSVERSE MOMENTA AND COMPARE WITH AVAILABLE C.M.ENERGY + STMAS = 0.D0 + ECMI = 1.D0 / ECMJAD + DO 4 I = 1,NTOT + STMAS = STMAS + TMAS(I) + YRJAD(I) = YR(I) + 4 CONTINUE + REST = ( ECMJAD - STMAS ) * ECMI + IF ( REST .LE. 0.D0 ) THEN +C SUMMED TRANSVERSE MASS > AVAILABLE C.M. ENERGY + JADFLG = -1 + RETURN + ENDIF + FACT = 1.5D0 / REST + AA = 1.D0 + DIFOLD = 0.D0 + JCOUNT = 0 +C OPTIMIZATION LOOP TO DEFINE PARAMETER AA + 1 CONTINUE + JCOUNT = JCOUNT + 1 + IF ( JCOUNT .GE. 50 ) GOTO 999 +C FORM SUMS S1 AND S2 + S1 = 0.D0 + S2 = 0.D0 + DO 5 I = 1,NTOT + EXPO = EXP( AA * YR(I) ) + S1 = S1 + TMAS(I) * ECMI * EXPO + S2 = S2 + TMAS(I) * ECMI / EXPO + 5 CONTINUE + DIFF = 0.1D0 * LOG(S1*S2) +C ACCELERATING OF CONVERGENCE IF NO CHANGE OF SIGN IN DIFF + IF ( DIFOLD*DIFF .GE. 0.D0 ) DIFF = DIFF * FACT + DIFOLD = DIFF + IF ( DEBUG ) WRITE(MDEBUG,*) ' DIFF=',SNGL(DIFF) + AA = AA * MAX( 0.1D0, (1.D0 - DIFF) ) + IF ( ABS(DIFF) .GT. EPS ) GOTO 1 + +C ITERATION HAS CONVERGED, CALCULATE PARAMETER BB + BB = 0.5D0 * LOG(S2/S1) + + IF ( DEBUG ) WRITE(MDEBUG,110) JCOUNT,STMAS,REST + 110 FORMAT(' JCOUNT, STMAS, REST = ',I5,2E13.5,/ + * ' NUM ITYP TMAS YR(OLD) YR(NEW)') +C CORRECT RAPIDITIES + DO 10 I = 1,NTOT + YR(I) = AA * YR(I) + BB + IF ( DEBUG ) WRITE(MDEBUG,111) I,ITYP(I),TMAS(I),YRJAD(I),YR(I) + 111 FORMAT(' ',I4,I6,F12.5,2F16.8) +C IMPOSSIBLE RAPIDITY, DETERMINE AGAIN THE RAPIDITIES + IF ( ABS(YR(I)) .GT. LOG(ECMJAD/PAMA(ITYP(I))) ) GOTO 999 + 10 CONTINUE + RETURN + +C ERROR EXIT + 999 JADFLG = 1 +C NO CONVERGENCE AFTER 50 ITERATIONS OR IMPOSSIBLE RAPIDITY + RETURN + END +*CMZ : 14/06/2000 14.29.37 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE LEADDF( IFLGLD ) + +C----------------------------------------------------------------------- +C LEAD(ING PARTICLE RAPIDITY FOR) D(I)F(FFRACTING SYSTEM) +C +C SELECTS THE RAPIDITY OF THE (ANTI)LEADING PARTICLES IN CASE OF +C DIFFRACTION. THE NON-DIFFRACTING (ANTI)LEADER GETS ITS RAPIDITY +C FROM THE REMAINDER ENERGY, THE DIFFRACTING (ANTI)LEADER GETS ITS +C RAPIDITY FROM THE GAUSSIAN (STRING) OF THE DECAYING DIFFRACTIVE MASS. +C THIS SUBROUTINE IS CALLED FROM HDPM. +C ARGUMENT: +C IFLGLD = 0 RAPIDITY SELECTION SUCCESSFUL +C = 1 RAPIDITY SELECTION NOT SUCCESSFULL +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,LEPAR. + COMMON /LEPAR/ LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS + INTEGER LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS +*KEEP,NEWPAR. + COMMON /NEWPAR/ EA,PT2,PX,PY,TMAS,YR,ITYP, + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT + DOUBLE PRECISION EA(3000),PT2(3000),PX(3000),PY(3000),TMAS(3000), + * YR(3000) + INTEGER ITYP(3000), + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION RANNOR + SAVE + EXTERNAL RANNOR +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEADDF: LEPAR1,LEPAR2=', + * LEPAR1,LEPAR2 + + IF ( YY0 .GT. 0.D0 ) THEN +C PROJECTILE DIFFRACTION; CALCULATE TARGET RAPIDITY USING TARGET +C ENERGY ECMTAR AND LONGITUDINAL MOMENTUM PCMTAR THE IN C.M. SYSTEM + ECMTAR = (ECMDPM**2 - ECMDIF**2 + TMAS(2)**2) / (2.D0 * ECMDPM) + PTLSQ = ECMTAR**2 - TMAS(2)**2 + IF ( PTLSQ .LE. 0.D0 ) THEN + IFLGLD = 1 + RETURN + ENDIF + PCMTAR = SQRT(PTLSQ) +* YR(2) = (-0.5D0) * LOG( (ECMTAR+PCMTAR) / (ECMTAR-PCMTAR) ) + YR(2) = - LOG( (ECMTAR+PCMTAR) / TMAS(2) ) +C RAPIDITY OF DIFFRACTING PROJECTILE + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .GE. 0.5 ) THEN + YR(1) = RANNOR( POSC2, WIDC2 ) + YY0 + ELSE + YR(1) = RANNOR(-POSC2, WIDC2 ) + YY0 + ENDIF + + ELSE +C TARGET DIFFRACTION; CALCULATE PROJECTILE RAPIDITY USING PROJECTILE +C ENERGY ECMPRO AND LONGITUDINAL MOMENTUM PLPRO IN THE C.M. SYSTEM + ECMPRO = (ECMDPM**2 -ECMDIF**2 +TMAS(1)**2) / (2.D0*ECMDPM) + PPLSQ = ECMPRO**2 - TMAS(1)**2 + IF ( PPLSQ .LE. 0.D0 ) THEN + IFLGLD = 1 + RETURN + ENDIF + PCMPRO = SQRT(PPLSQ) +* YR(1) = 0.5D0 * LOG( (ECMPRO+PCMPRO) / (ECMPRO-PCMPRO) ) + YR(1) = LOG( (ECMPRO+PCMPRO) / TMAS(1) ) +C RAPIDITY OF DIFFRACTING TARGET NUCLEON + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .GE. 0.5 ) THEN + YR(2) = RANNOR( POSC2, WIDC2 ) + YY0 + ELSE + YR(2) = RANNOR(-POSC2, WIDC2 ) + YY0 + ENDIF + ENDIF + + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEADDF: YR(2),YR(1)=', + * SNGL(YR(2)),SNGL(YR(1)) + IFLGLD = 0 + RETURN + END +*CMZ : 14/06/2000 14.29.37 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE LEDENY( LEDEFL ) + +C----------------------------------------------------------------------- +C LE(A)D(ER'S) EN(ERG)Y +C +C SELECTS THE FEYNMAN X OF THE ANTILEADING PARTICLES FROM A THEORETICAL +C DISTRIBUTION AND CALCULATES THE RAPIDITY FROM IT +C CALCULATE THE RAPIDITY OF THE LEADER FROM THE REMAINDER OF ENERGY +C THIS SUBROUTINE IS CALLED FROM HDPM. +C ARGUMENT: +C LEDEFL = 0 CORRECT ENDING OF LEDENY +C = 1 NOT CORRECT ENDING OF LEDENY +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,LEPAR. + COMMON /LEPAR/ LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS + INTEGER LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS +*KEEP,NEWPAR. + COMMON /NEWPAR/ EA,PT2,PX,PY,TMAS,YR,ITYP, + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT + DOUBLE PRECISION EA(3000),PT2(3000),PX(3000),PY(3000),TMAS(3000), + * YR(3000) + INTEGER ITYP(3000), + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,VKIN. + COMMON /VKIN/ BETACM + DOUBLE PRECISION BETACM +*KEND. + + SAVE + DATA SL / 3.D0 / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEDENY: ITYPE,ITAR=',ITYPE,ITAR + +C BETACM IS AVAILABLE IN COMMON /VKIN/ BUT NOT FOR PHOTOPRODUCTION + IF ( ITYPE .EQ. 7 ) BETACM = SQRT( 1.D0 - 1.D0 / GCM**2 ) + +C MOMENTUM OF INCOMING TARGET IN CM SYSTEM + PNT = PAMA(ITAR) * GCM * BETACM + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEDENY: PNT=',SNGL(PNT) + +C GET FEYNMAN X FOR ANTILEADER DEPENDING ON ENERGY +C DISCRIPTION OF THE FEYNMAN X DISTRIBUTION DEPENDING ON ENERGY +C DN/DXF = SL*XF 0 < XF < X1 +C DN/DXF = SL*X1 X1 < XF < X2 +C DN/DXF = SL*X1 * EXP(-AL*(XF-X2)) X2 < XF < 1 + + IF ( ECMDPM .LT. 13.76D0 ) THEN + X1 = 0.20D0 + X2 = 0.65D0 + AL = 1.265D0 + ELSEIF ( ECMDPM .LT. 5580.D0 ) THEN + X1 = 0.716D0 + 0.00543D0 * SMLOG + X2 = 0.8175D0 - 0.032D0 * SMLOG + AL = 1.14D0 + 0.022D0 * SMLOG + ELSE + X1 = 0.265D0 + X2 = 0.265D0 + AL = 1.14D0 + 0.022D0*SMLOG + ENDIF + +C CALCULATE THE INTEGRALS OVER THE THREE PARTS OF THE FUNCTION + AA = 0.5D0 * SL * X1**2 + BB = SL * X1 * (X2 - X1) + CC = SL * X1 / AL * ( 1.D0 - EXP( AL*(X2-1.D0) ) ) +C NORMALIZE TO 1 + TT = 1.D0 / (AA + BB + CC) + CC = CC * TT + AA = AA * TT + BB = BB * TT + AB = AA + BB + + CALL RMMAR( RD,1,1 ) +C GET XF FOR ANTILEADER + IF ( RD(1) .LE. AA ) THEN + XF = SQRT( RD(1)*2.D0 / (SL*TT) ) + ELSEIF ( RD(1) .LE. AB ) THEN + XF = (RD(1)-AA) / (SL*X1*TT) + X1 + ELSE + XF = X2 - LOG( 1.D0 - (RD(1)-AB)*AL/(SL*X1*TT) ) / AL + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEDENY: XF(TARGET)=',SNGL(XF) + +C CONVERT FEYNMAN X INTO RAPIDITY FOR ANTILEADER + PLAL = PNT * XF * PAMA(LEPAR2) / PAMA(ITAR) + EA(2) = SQRT(PLAL**2 + TMAS(2)**2) +* YR(2) = (-0.5D0) * LOG( (EA(2)+PLAL)/(EA(2)-PLAL) ) + YR(2) = - LOG( (EA(2)+PLAL)/TMAS(2) ) + +C CALCULATE THE REMAINDER OF ENERGY AND LONG. MOMENTUM OF LEADER +C THIS HOLDS ALSO FOR MULTIPLE COLLISIONS (GNU > 1) + ESUM = 0.D0 + DO 10 I = 2,NTOT + EA(I) = TMAS(I) * COSH( YR(I) + YCM ) + ESUM = ESUM + EA(I) + 10 CONTINUE + EA(1) = ELAB + PAMA(ITAR) - ESUM + IF ( EA(1) .LE. TMAS(1) ) THEN + LEDEFL = 1 + RETURN + ENDIF + PLLBSQ = EA(1)**2 - TMAS(1)**2 + PLLB = SQRT( PLLBSQ ) +* YR(1) = 0.5D0 * LOG( (EA(1) + PLLB) / (EA(1) - PLLB) ) - YCM + YR(1) = LOG( (EA(1) + PLLB) / TMAS(1) ) - YCM + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEDENY: EA(1),YR(2),YR(1)=', + * SNGL(EA(1)),SNGL(YR(2)),SNGL(YR(1)) + LEDEFL = 0 + RETURN + END +*CMZ : 15/06/2000 14.13.19 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE LEPACX( ECMCE,SDMLOG,LEPART,IPART ) + +C----------------------------------------------------------------------- +C LE(ADING) PA(RTICLE) C(HARGE) (E)X(CHANGE) +C +C CONSIDERS CHARGE EXCHANGE POSSIBILITY OF (ANTI)LEADING PARTICLE +C CONSIDERS RESONANCE EXCITATION WITHOUT/WITH CHARGE EXCHANGE +C LASTPI INCREASED: CREATE ONE CHARGED PION FOR CHARGE CONSERVATION +C LASTPI UNCHANGED: NO CHARGE EXCHANGE +C LASTPI DECREASED: CANCEL ONE CHARGED PION FOR CHARGE CONSERVATION +C NRESPC INCREASED BY 1, IF PI(+-) WILL BE GENERATED BY RESON. DECAY +C NRESPN INCREASED BY 1, IF PI(0) WILL BE GENERATED BY RESON. DECAY +C NCPLUS INCREASED BY 1, IF POSITIVE CHARGE IS CREATED +C NCPLUS DECREASED BY 1, IF NEGATIVE CHARGE IS CREATED +C THIS SUBROUTINE IS CALLED FROM HDPM. +C ARGUMENTS: +C ECMCE = ENERGY FOR CHARGE EXCHANGE (ECMDPM OR ECMDIF) +C SDMLOG = ELABLG FOR NSD, DMLOG FOR DIFFRACTION +C LEPART = PARTICLE CODE OF (ANTI)LEADER EXCHANGING CHARGE +C IPART = PARTICLE NUMBER IN ARRAY OF SECONDARY PARTICLES +C = 1 FOR LEADER, = 2 FOR ANTI-LEADER +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,LEPAR. + COMMON /LEPAR/ LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS + INTEGER LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RESON. + COMMON /RESON/ RDRES,RESRAN,IRESPAR + REAL RDRES(2),RESRAN(30000) + INTEGER IRESPAR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: LEPART=',LEPART + +C SET PROBABILITIES FOR RESONANCE PRODUCTION (PRESPR) AND FOR +C CHARGE EXCHANGE OR RESONANCE PRODUCTION (PCEXRS) + IF ( ECMCE .LE. 19.4D0 ) THEN + PCEXRS = 0.45D0 + PRESPR = 0.35D0 + ELSEIF ( ECMCE .LT. 968.5D0 ) THEN + PCEXRS = 0.45D0 + 0.034509D0 * (SDMLOG - 5.29832D0) + PRESPR = 0.0881897D0 * (SDMLOG - 5.29832D0) + ELSE + PCEXRS = 0.72D0 + PRESPR = 0.69D0 + ENDIF + PRESPR = MAX( 0.35D0, PRESPR ) + IF ( LEPART .EQ. 7 ) THEN +C ASSUME 50% CHARGE EXCHANGE FOR GAMMA INITIATED INTERACTION + PCEXRS = 0.5D0 + PRESPR = 0.D0 + ENDIF + +C THROW RANDOM NUMBER TO LOOK FOR RES. PRODUCTION OR CHARGE EXCHANGE + CALL RMMAR( RD,2,1 ) + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C RESONANCE IS FORMED. IF ADDITIONAL CHARGE EXCHANGE, THEN SET LASTPI + IF ( RD(1) .LE. PRESPR ) THEN + +C FIRST FOR NUCLEONS (AS MOST FREQUENT) + IF ( LEPART .EQ. 13 ) THEN + IF ( RD(2) .LE. 0.5 ) THEN +C NEUTRON ----> DELTA(-) + LEPART = 57 + NRESPC = NRESPC + 1 + NCPLUS = NCPLUS - 1 + ELSEIF ( RD(2) .GT. TB3 ) THEN +C NEUTRON ----> DELTA(0) + LEPART = 56 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + ELSE + NRESPC = NRESPC + 1 + LASTPI = LASTPI - 1 + ENDIF + ELSE +C NEUTRON ----> DELTA(+) + LEPART = 55 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + LASTPI = LASTPI - 1 + ELSE + NRESPC = NRESPC + 1 + ENDIF + NCPLUS = NCPLUS + 1 + ENDIF + ELSEIF ( LEPART .EQ. 14 ) THEN + IF ( RD(2) .LE. 0.5 ) THEN +C PROTON ----> DELTA(++) + LEPART = 54 + NRESPC = NRESPC + 1 + NCPLUS = NCPLUS + 1 + ELSEIF ( RD(2) .GT. TB3 ) THEN +C PROTON ----> DELTA(+) + LEPART = 55 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + ELSE + NRESPC = NRESPC + 1 + LASTPI = LASTPI + 1 + ENDIF + ELSE +C PROTON ----> DELTA(0) + LEPART = 56 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + LASTPI = LASTPI + 1 + ELSE + NRESPC = NRESPC + 1 + ENDIF + NCPLUS = NCPLUS - 1 + ENDIF + +C NOW FOR PIONS + ELSEIF ( LEPART .EQ. 8 .OR. LEPART .EQ. 9 ) THEN + IF ( RD(2) .LE. 0.5 ) THEN +C PI(+-) ----> RHO(+-) + LEPART = LEPART + 44 + NRESPN = NRESPN + 1 + ELSE +C PI(+-) ----> RHO(0) ( ----> PI(+) + PI(-) ) + NCPLUS = NCPLUS + 2 * LEPART - 17 + LEPART = 51 + NRESPC = NRESPC + 1 + ENDIF + +C NOW FOR KAONS + ELSEIF ( LEPART .EQ. 11 .OR. LEPART .EQ. 12 ) THEN + IF ( RD(2) .LE. 0.5 ) THEN +C K(+-) ----> K*(+-) + LEPART = LEPART + 52 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + ELSE + NRESPC = NRESPC + 1 + LASTPI = LASTPI + 1 + ENDIF + ELSE +C K(+) ----> K*(0) +C K(-) ----> ANTI-K*(0) + CALL RMMAR( RDRES(IPART),1,1 ) + NCPLUS = NCPLUS + 2 * LEPART - 23 + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPC = NRESPC + 1 + ELSE + NRESPN = NRESPN + 1 + LASTPI = LASTPI + 1 + ENDIF + LEPART = 3*LEPART + 29 + ENDIF + ELSEIF ( LEPART .EQ. 10 .OR. LEPART .EQ. 16 ) THEN + IF ( RD(2) .LE. 0.5 ) THEN +C K(0) ----> (ANTI) K*(0) + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LE. 0.5 ) THEN + LEPART = 62 + ELSE + LEPART = 65 + ENDIF + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPC = NRESPC + 1 + LASTPI = LASTPI - 1 + ELSE + NRESPN = NRESPN + 1 + ENDIF + ELSE +C K(0) ----> K*(+-) + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LE. 0.5 ) THEN + LEPART = 63 + NCPLUS = NCPLUS + 1 + ELSE + LEPART = 64 + NCPLUS = NCPLUS - 1 + ENDIF + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + LASTPI = LASTPI - 1 + ELSE + NRESPC = NRESPC + 1 + ENDIF + ENDIF + +C NOW FOR ANTINUCLEONS + ELSEIF ( LEPART .EQ. 25 ) THEN + IF ( RD(2) .LE. 0.5 ) THEN +C ANTINEUTRON ----> ANTI-DELTA(0) + LEPART = 60 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + ELSE + NRESPC = NRESPC + 1 + LASTPI = LASTPI - 1 + ENDIF + ELSEIF ( RD(2) .GT. TB3 ) THEN +C ANTINEUTRON ----> ANTI-DELTA(+) + LEPART = 61 + NRESPC = NRESPC + 1 + NCPLUS = NCPLUS + 1 + ELSE +C ANTINEUTRON ----> ANTI-DELTA(-) + LEPART = 59 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + LASTPI = LASTPI - 1 + ELSE + NRESPC = NRESPC + 1 + ENDIF + NCPLUS = NCPLUS - 1 + ENDIF + ELSEIF ( LEPART .EQ. 15 ) THEN + IF ( RD(2) .LE. 0.5 ) THEN +C ANTIPROTON ----> ANTI-DELTA(--) + LEPART = 58 + NRESPC = NRESPC + 1 + NCPLUS = NCPLUS - 1 + ELSEIF ( RD(2) .GT. TB3 ) THEN +C ANTIPROTON ----> ANTI-DELTA(-) + LEPART = 59 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + ELSE + NRESPC = NRESPC + 1 + LASTPI = LASTPI + 1 + ENDIF + ELSE +C ANTIPROTON ----> ANTI-DELTA(0) + LEPART = 60 + CALL RMMAR( RDRES(IPART),1,1 ) + IF ( RDRES(IPART) .LE. TB3 ) THEN + NRESPN = NRESPN + 1 + LASTPI = LASTPI + 1 + ELSE + NRESPC = NRESPC + 1 + ENDIF + NCPLUS = NCPLUS + 1 + ENDIF + + ELSEIF ( LEPART .EQ. 7 ) THEN +C NO RESONANCE FORMATION FOR INDUCING GAMMA RADIATION + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: NO EXCHANGE' + + ELSEIF ( (LEPART .GE. 18 .AND. LEPART .LE. 24) .OR. + * (LEPART .GE. 26 .AND. LEPART .LE. 32) ) THEN +C NO RESONANCE FORMATION FOR STRANGE BARYONS + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: NO EXCHANGE' + + ELSEIF ( LEPART .EQ. 17 ) THEN +C NO RESONANCE FORMATION FOR INDUCING ETA + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: NO EXCHANGE' + + ELSEIF ( LEPART .GE. 71 .AND. LEPART .LE. 74 ) THEN +C NO RESONANCE FORMATION FOR INDUCING ETA + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: NO EXCHANGE' + + ELSE + WRITE(MONIOU,100) LEPART + 100 FORMAT(1H ,'LEPACX: UNIDENTIFIED PARTICLE CODE= ',I4, + * ' FOR RESONANCE FORMATION') + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,102) + * LEPART,LASTPI,NRESPC,NRESPN,NCPLUS + 102 FORMAT(' LEPACX: LEPART,LASTPI,NRESPC,NRESPN,NCPLUS=',5I5) + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C CHARGE EXCHANGE WITHOUT RESONANCE FORMATION + ELSEIF ( RD(1) .LE. PCEXRS ) THEN + +C FIRST FOR NUCLEONS (AS MOST FREQUENT) + IF ( LEPART .EQ. 13 ) THEN +C NEUTRON ( + PI(+) ) ----> PROTON ( + PI(0) ) + LEPART = 14 + LASTPI = LASTPI - 1 + NCPLUS = NCPLUS + 1 + ELSEIF ( LEPART .EQ. 14 ) THEN +C PROTON ( + PI(0) ) ----> NEUTRON ( + PI(+) ) + LEPART = 13 + LASTPI = LASTPI + 1 + NCPLUS = NCPLUS - 1 + +C NOW FOR PIONS + ELSEIF ( LEPART .EQ. 8 .OR. LEPART .EQ. 9 ) THEN +C PI(+-) ----> PI(0) + NCPLUS = NCPLUS + 2 * LEPART - 17 + LEPART = 7 + LASTPI = LASTPI + 1 + +C NOW FOR KAONS + ELSEIF ( LEPART .EQ. 11 .OR. LEPART .EQ. 12 ) THEN +C K(+-) ----> K(0) (S OR L) + NCPLUS = NCPLUS + 2 * LEPART - 23 + IF ( RD(2) .LE. 0.5 ) THEN + LEPART = 10 + ELSE + LEPART = 16 + ENDIF + LASTPI = LASTPI + 1 + ELSEIF ( LEPART .EQ. 10 .OR. LEPART .EQ. 16 ) THEN +C K(0) ----> K(+-) + IF ( RD(2) .LE. 0.5 ) THEN + LEPART = 11 + NCPLUS = NCPLUS + 1 + ELSE + LEPART = 12 + NCPLUS = NCPLUS - 1 + ENDIF + LASTPI = LASTPI - 1 + +C NOW FOR ANTINUCLEONS + ELSEIF ( LEPART .EQ. 25 ) THEN +C ANTINEUTRON ( + PI(-) ) ----> ANTIPROTON ( + PI(0) ) + LEPART = 15 + LASTPI = LASTPI - 1 + NCPLUS = NCPLUS - 1 + ELSEIF ( LEPART .EQ. 15 ) THEN +C ANTIPROTON ( + PI(0) ) ----> ANTINEUTRON ( + PI(-) ) + LEPART = 25 + LASTPI = LASTPI + 1 + NCPLUS = NCPLUS + 1 + +C NOW FOR GAMMA INDUCED REACTIONS (ITYPE=7) + ELSEIF ( LEPART .EQ. 7 ) THEN +C TEST IF CHARGE EXCHANGE REACTION FOR PI(0) +C PI(0) ----> PI(+-) + IF ( RD(2) .LE. 0.5 ) THEN + LEPART = 8 + NCPLUS = NCPLUS + 1 + ELSE + LEPART = 9 + NCPLUS = NCPLUS - 1 + ENDIF + LASTPI = LASTPI - 1 + + ELSEIF ( (LEPART .GE. 18 .AND. LEPART .LE. 24) .OR. + * (LEPART .GE. 26 .AND. LEPART .LE. 32) ) THEN +C NO CHARGE EXCHANGE FOR STRANGE BARYONS + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: NO EXCHANGE' + + ELSEIF ( LEPART .EQ. 17 ) THEN +C NO CHARGE EXCHANGE FOR INDUCING ETA + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: NO EXCHANGE' + + ELSEIF ( LEPART .GE. 71 .AND. LEPART .LE. 74 ) THEN +C NO CHARGE EXCHANGE FOR INDUCING ETA + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: NO EXCHANGE' + + ELSE + WRITE(MONIOU,101) LEPART + 101 FORMAT(1H ,'LEPACX: UNIDENTIFIED PARTICLE CODE= ',I4, + * ' FOR CHARGE EXCHANGE') + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: LEPART,LASTPI,NCPLUS=', + * LEPART,LASTPI,NCPLUS + ELSE + IF ( DEBUG ) WRITE(MDEBUG,*) 'LEPACX: NO EXCHANGE' + ENDIF + + RETURN + END +*CMZ : 11/07/2000 10.08.31 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE NSD + +C----------------------------------------------------------------------- +C N(ON) S(INGLE) D(IFFRACTION CASE) +C +C SETS PARAMETERS FOR HDPM IN CASE OF NON-SINGLE-DIFFRACTION EVENT +C THIS SUBROUTINE IS CALLED FROM HDPM. +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'NSD :' + +C CENTRAL RAPIDITY DENSITY ( RHO ) FOR NSD REACTION +C PARAMETRISATION SEE CAPDEVIELLE,J.PHYS.G:NUCL.PHYS.16(1990)1539 EQ.7 + IF ( ECMDPM .LE. 680.D0 ) THEN + DC0 = 0.82D0 * (S**0.107D0) + ELSE + DC0 = 0.64D0 * (S**0.126D0) + ENDIF +C THERE ARE 3 ENERGY DEPENDENT FORMULAS FOR AVERAGE CHARGED +C MULTIPLICITY ( AVCH0 ); +C PARAMETRISATIONS SEE CAPDEVIELLE,J.PHYS.G:NUCL.PHYS.16(1990)1539 EQ.8 + IF ( ECMDPM .LE. 187.5D0 ) THEN + AVCH0 = 0.57D0 + 0.584D0 * SLOG + 0.127D0 * SLOGSQ + ELSEIF ( ECMDPM .LT. 945.5D0 ) THEN + AVCH0 = -6.55D0 + 6.89D0 * S**0.131D0 + ELSE + AVCH0 = 3.4D0 * S**0.17D0 + ENDIF +C MINIMUM AVERAGE CHARGED MULTIPLICITY IS 1 + AVCH0 = MAX( 1.D0, AVCH0 ) +C EXCESS OF CHARGED PARTICLES WHICH COME FROM AIR TARGET + IF ( ECMDPM .LE. 137.D0 ) THEN + AVCH3 = 0.57D0 * AVCH0 * (GNU - 1.D0) + ELSE + AVCH3 = 0.5D0 * AVCH0 * (GNU - 1.D0) + ENDIF +C AVERAGE NUMBER OF ALL CHARGED + AVCH = AVCH0 + AVCH3 +C THE FOLOWING PROCEDURE IS TO PRODUCE PHOTONS FROM UNKNOWN NEUTRAL +C DECAYS FOLLOWING CORRELATION WITH CHARGED PARTICLES BASED ON PHOTON +C EXCESS AT COLLIDER EXPERIMENTS. SEUGP IS +C PARAMETRISATION OF UA5: ANSORGE ET AL., Z.PHYS.C43 (1989) 75 + IF ( ECMDPM .LE. 103.D0 ) THEN + SEUGP = -1.27D0 + 0.52D0 * SLOG + 0.148D0 * SLOGSQ + ELSE +C PROBLEM OF THE RISE OF THE UNKNOWN ETA PRODUCTION CROSS-SECTION +C IS SOLVED WITH THOUW'S PARAMETRISATION OF UA5 DATA: + SEUGP = -18.7D0 + 11.55D0 * S**0.1195D0 + ENDIF + SEUGP = MAX( 0.5D0, SEUGP ) + IF ( DEBUG ) WRITE(MDEBUG,100) + * SNGL(DC0),SNGL(AVCH0),SNGL(AVCH3),SNGL(AVCH),SNGL(SEUGP) + 100 FORMAT(' NSD : DC0,AVCH0,AVCH3,AVCH,SEUGP=',5F12.7) + +C CENTER OF GAUSSIAN FOR CHARGED SECONDARIES 1ST AND 2ND STRING +C NEEDED FOR SOME CALCULATION ; FINAL POSITION CALCULATED LATER + POSC2 = 0.146D0 * SMLOG + 0.072D0 +C WIDTH OF GAUSSIAN FOR CHARGED SECONDARIES 1ST AND 2ND STRING + WIDC2 = 0.12D0 * SMLOG + 0.18D0 + IF ( GNU .LE. 1.D0 ) THEN + POSC3 = 0.D0 + WIDC3 = 1.D0 + ELSE +C CENTER OF GAUSSIAN 3RD STRING (TARGET CONTRIB. FOR PROJECTILE-AIR) + POSC3 = 3.D0 - 2.575D0 * EXP( (-0.081756452D0) * GNU ) +C WIDTH OF GAUSSIAN FOR 3RD STRING + WIDC3 = 1.2338466D0 + 0.078969916D0 * LOG(GNU) + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,110) + * SNGL(POSC2),SNGL(WIDC2),SNGL(POSC3),SNGL(WIDC3) + 110 FORMAT(' NSD : POSC2,WIDC2,POSC3,WIDC3=',4F12.7) + + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PARNUM( INUMFL ) + +C----------------------------------------------------------------------- +C PART(ICLE TYPE) NUM(BERS) +C +C DETERMINES THE NUMBERS OF SECONDARY PARTICLES FOR EACH TYPE +C THIS SUBROUTINE IS CALLED FROM HDPM. +C ARGUMENT: +C INUMFL = 0 CORRECT DETERMINATION OF PARTICLE NUMBERS +C = 1 SOMETHING WENT WRONG WITH NEUTRAL PARTICLE NUMBERS +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,EDECAY. + COMMON /EDECAY/ CETA + DOUBLE PRECISION CETA(5) +*KEEP,INDICE. + COMMON /INDICE/ NNUCN,NKA0,NHYPN,NETA,NETAS,NPIZER, + * NNC,NKC,NHC,NPC,NCH,NNN,NKN,NHN,NET,NPN + INTEGER NNUCN(2:3),NKA0(2:3),NHYPN(2:3),NETA(2:3,1:4), + * NETAS(2:3),NPIZER(2:3), + * NNC,NKC,NHC,NPC,NCH,NNN,NKN,NHN,NET,NPN +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,LEPAR. + COMMON /LEPAR/ LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS + INTEGER LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RATIOS. + COMMON /RATIOS/ RPI0R,RPIER,RPEKR,RPEKNR,PPICH,PPINCH,PPNKCH, + * ISEL,NEUTOT,NTOTEM + DOUBLE PRECISION RPI0R,RPIER,RPEKR,RPEKNR,PPICH,PPINCH,PPNKCH + INTEGER ISEL,NEUTOT,NTOTEM +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + REAL RDETA + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'PARNUM: NCH,NEUTOT,NTOTEM=', + * NCH,NEUTOT,NTOTEM + + INUMFL = 0 +C RESET PARTICLE NUMBERS + NNC = 0 + NKC = 0 + NHC = 0 + NPC = 0 +C ISEL IS 1 MEANS VERY LOW MULTIPLICITY +C CREATE ONLY PIONS (TO RISKY TO CREATE OTHER PARTICLES) + IF ( ISEL .EQ. 1 ) THEN + NNN = 0 + NKN = 0 + NET = 0 + NHN = 0 + NPN = 0 + NNUCN(2) = 0 + NKA0(2) = 0 + NHYPN(2) = 0 + NETAS(2) = 0 + NPIZER(2) = 0 +C CREATE RANDOM NUMBERS + CALL RMMAR( RD,NTOTEM,1 ) + DO 1000 I = 1,NTOTEM + IF ( RD(I) .LE. TB3 ) THEN + NPC = NPC + 1 + ELSE + NPN = NPN + 1 + ENDIF + 1000 CONTINUE +C NO NEUTRAL PARTICLES FOR THE 3RD STRING EXCEPT EVENTUALLY PI(0) + NNUCN(3) = 0 + NKA0(3) = 0 + NHYPN(3) = 0 + NETAS(3) = 0 + NPIZER(3) = MAX( 0, NINT(RC3TO2/(1.D0+RC3TO2)*DBLE(NPN)) ) + IF ( DEBUG ) WRITE(MDEBUG,*) ' ISEL=1, NTOTEM=',NTOTEM + + ELSE + +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +C NOW THE CASE OF HAVING ENOUGH PARTICLES TO BE ABLE TO CREATE +C KAONS, NUCLEONS, AND HYPERONS TOO. + +C ...FOR NEUTRALS + NCOUNT = 0 +C BEGIN OF REJECT LOOP + 1002 K = 1 + CALL RMMAR( RD,NEUTOT+3,1 ) +C DETERMINE NUMBER OF PI(0), ETA, K0S/K0 PAIRS, NEUTRON/ANTINEUTRON +C PAIRS, AND NEUTRAL HYPERON PAIRS AND SUM UP THE GAMMAS +C FOR 1ST + 2ND STRING: J IS 2; FOR 3RD STRING: J IS 3 + SGAMMA = 0.D0 + DO 1010 J = 2,3 + NNUCN(J) = 0 + NKA0(J) = 0 + NHYPN(J) = 0 + NETA(J,1) = 0 + NETA(J,2) = 0 + NETA(J,3) = 0 + NETA(J,4) = 0 + NPIZER(J) = 0 + IF ( J .EQ. 2 ) THEN +C SET BOUNDARY FOR GAMMA SUM + GABOU = SEUGF + NNTOT = INT(FNEUT2) +C CALCULATE BOUNDARY NNTOT OF PARTICLE LOOP RATHER AT RANDOM THAN BY +C ROUNDING OF FNEUT2 TO AVOID DIGITIZING EFFECTS ON THE NEUTRAL +C PARTICLE COMPOSITION AT COLLISIONS WITH LOW MULTIPLICITY + IF ( NNTOT+RD(NEUTOT+2) .GE. FNEUT2 ) NNTOT = NNTOT+1 + ELSE + IF ( RC3TO2 .LE. 0.D0 ) GOTO 1010 + GABOU = GABOU + SEUGF* RC3TO2 + NNTOT = INT(FNEUT) + IF ( NNTOT+RD(NEUTOT+3) .GE. FNEUT ) NNTOT = NNTOT+1 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) ' J,NNTOT=',J,NNTOT +C START NEUTRAL PARTICLE PRODUCTION LOOP + 1003 CONTINUE + IF ( K .LT. NNTOT ) THEN + RNDM = RD(K) + ELSEIF ( K .EQ. NNTOT ) THEN +C RENORMALIZE THE RANDOM NUMBER, THAT ONLY PI(0) OR ETA IS PRODUCED +C BUT PAIR PRODUCTION BECOMES IMPOSSIBLE + RNDM = RD(K) * RPIER + ELSEIF ( K .GT. NNTOT ) THEN + GOTO 1010 + ENDIF + IF ( RNDM .LE. RPI0R ) THEN +C PI(0) + SGAMMA = SGAMMA + 2.D0 + NPIZER(J) = NPIZER(J) + 1 + K = K + 1 + + ELSEIF ( RNDM .LE. RPIER ) THEN +C ETA + CALL RMMAR( RDETA,1,1 ) + IF ( RDETA .LE. CETA(1) ) THEN + SGAMMA = SGAMMA + 2.D0 + NETA(J,1) = NETA(J,1) + 1 + ELSEIF ( RDETA .LE. CETA(2) ) THEN + SGAMMA = SGAMMA + 6.D0 + NETA(J,2) = NETA(J,2) + 1 + ELSEIF ( RDETA .LE. CETA(3) ) THEN + SGAMMA = SGAMMA + 2.D0 + NETA(J,3) = NETA(J,3) + 1 + ELSE + SGAMMA = SGAMMA + 1.D0 + NETA(J,4) = NETA(J,4) + 1 + ENDIF + K = K + 1 + + ELSEIF ( RNDM .LE. RPEKR ) THEN +C K0S/K0L PAIR; RPEKR IS NORMALIZED FOR K0 PAIR FORMATION +C THE UA5 GAMMA YIELD DOES NOT INCLUDE GAMMAS FROM K DECAY !!! +C SEE: ANSORGE ET AL., Z. PHYS. C43 (1989) 75 + NKA0(J) = NKA0(J) + 1 + K = K + 2 + ELSEIF ( RNDM .LE. RPEKNR ) THEN +C NEUTRON-ANTINEUTRON PAIR + NNUCN(J) = NNUCN(J) + 1 + K = K + 2 + ELSE +C HYPERON-ANTIHYPERON PAIR +C AVERAGE NEUTRAL HYPERON PAIR L0 --> .357*2 GAMMAS = 0.714 GAMMAS +C S0 --> L0 + 1 GAMMA = 1.714 GAMMAS +C THEY ARE INCLUDED IN UA5 GAMMA MULTIPLICITIES, THEREFORE COUNT + SGAMMA = SGAMMA + 2.428D0 + NHYPN(J) = NHYPN(J) + 1 + K = K + 2 + ENDIF + GOTO 1003 + 1010 CONTINUE + IF ( DEBUG ) WRITE(MDEBUG,1020) ( 2*NNUCN(J),2*NKA0(J), + * 2*NHYPN(J),NETA(J,1),NETA(J,2),NETA(J,3),NETA(J,4), + * NPIZER(J),J=2,3 ), NNTOT,GABOU,SGAMMA,SGAMMA/GABOU + 1020 FORMAT(' PARNUM: NEUTRALS (1.,2.STRING)=',8I5,/ + * ' NEUTRALS (3. STRING) =',8I5,/ + * ' NNTOT,SEUGF2+3,SGAMMA,RATIO=',I6,3(2X,F10.5)) +C REJECT ALL NEUTRALS, IF SUM OF GAMMAS DEVIATES BY MORE THAN SIGMA + IF ( (SGAMMA - GABOU)**2 .GT. GABOU ) THEN + NCOUNT = NCOUNT + 1 +C AFTER 20 TRIES SET FLAG INUMFL TO 1 AND RETURN + IF ( NCOUNT .LE. 20 ) GOTO 1002 + INUMFL = 1 + RETURN + ENDIF +C ALL NEUTRALS + NNN = NNUCN(2) + NNUCN(3) + NKN = NKA0(2) + NKA0(3) + NHN = NHYPN(2) + NHYPN(3) + NETAS(2) = NETA(2,1) + NETA(2,2) + NETA(2,3) + NETA(2,4) + NETAS(3) = NETA(3,1) + NETA(3,2) + NETA(3,3) + NETA(3,4) + NET = NETAS(2) + NETAS(3) + NPN = NPIZER(2) + NPIZER(3) + +C ...FOR CHARGED + I = 1 + CALL RMMAR( RD,NCH-1,1 ) +C START CHARGED PARTICLE PRODUCTION LOOP + 1101 CONTINUE + RNDM = RD(I) + IF ( RNDM .LT. PPICH ) THEN +C PI(+-) + NPC = NPC + 1 + I = I + 1 + ELSEIF ( RNDM .LT. PPINCH ) THEN +C PROTON/ANTIPROTON PAIR + NNC = NNC + 1 + I = I + 2 + ELSEIF ( RNDM .LT. PPNKCH ) THEN +C KAON(+,-) PAIR + NKC = NKC + 1 + I = I + 2 + ELSE +C CHARGED HYPERON/ANTIHYPERON PAIR + NHC = NHC + 1 + I = I + 2 + ENDIF + IF ( I .LT. NCH ) THEN + GOTO 1101 + ELSEIF ( I .EQ. NCH ) THEN +C ONLY 1 CHARGED PARTICLE TO BE PRODUCED WHICH IS PI(+-) + NPC = NPC + 1 + ENDIF +C CORRECT CHARGED PION NUMBER FOR DECAY OF ETA'S + NCORR = 2 * ( NETA(2,3) + NETA(2,4) + NETA(3,3) + NETA(3,4) ) + NPC = MAX( 0, NPC - NCORR ) + IF ( DEBUG ) WRITE(MDEBUG,*) ' NPC,NPN,NCORR,LASTPI=', + * NPC,NPN,NCORR,LASTPI + ENDIF +C CORRECT NUMBER OF CHARGED AND NEUTRAL PIONS FOR RESONANCE DECAY +C (NRESPC, NRESPN) + NPC = MAX( 0, NPC - NRESPC + LASTPI ) +C INCREASE NPN ADDITIONALLY BY 1 TO MEET UA5 DATA, WHICH REPRODUCE ON +C AVERAGE ONE EXCHANGED CHARGE (LASTPI = +1). + NPN = MAX( 0, NPN - NRESPN - LASTPI + 1 ) +C TOTAL NUMBER OF CHARGED PARTICLES + NCH = (NNC + NKC + NHC) * 2 + NPC +C NOW ALL PARTICLES ARE DETERMINED + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'PARNUM: TOT.CHARGED=',2*NNC,2*NKC,2*NHC,NPC, + * 'PARNUM: TOT.NEUTRAL=',2*NNN,2*NKN,2*NHN,NET,NPN + + RETURN + END +*CMZ : 14/06/2000 14.29.37 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PARRAP + +C----------------------------------------------------------------------- +C PAR(TICLE) RAP(IDITY) +C +C ROUTINE GIVES THE NEW PARTICLES OF HDPM THEIR RAPIDITIES +C THIS SUBROUTINE IS CALLED FROM HDPM. +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,NEWPAR. + COMMON /NEWPAR/ EA,PT2,PX,PY,TMAS,YR,ITYP, + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT + DOUBLE PRECISION EA(3000),PT2(3000),PX(3000),PY(3000),TMAS(3000), + * YR(3000) + INTEGER ITYP(3000), + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + REAL RAND(3000) + SAVE + DOUBLE PRECISION RANNOR + EXTERNAL RANNOR +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'PARRAP: NTOT=',NTOT + +C PROTON ANTIPROTON PAIRS + CALL RMMAR( RAND(3),IJ1-2,1 ) + DO 1013 K = 3,IB1 +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + IF ( K .LE. IA2 ) THEN + YR(K) = RANNOR(-POSC3,WIDC3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSC2,WIDC2) + ELSE + YR(K) = RANNOR(-POSC2,WIDC2) + ENDIF + ENDIF + 1013 CONTINUE + +C K+ K- PAIRS + DO 1014 K = IB1+1,IC1 + IF ( K .LE. IB2 ) THEN +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + YR(K) = RANNOR(-POSC3,WIDC3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSC2,WIDC2) + ELSE + YR(K) = RANNOR(-POSC2,WIDC2) + ENDIF + ENDIF + 1014 CONTINUE + +C CHARGED HYPERON PAIRS + DO 1015 K = IC1+1,ID1 + IF ( K .LE. IC2 ) THEN +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + YR(K) = RANNOR(-POSC3,WIDC3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSC2,WIDC2) + ELSE + YR(K) = RANNOR(-POSC2,WIDC2) + ENDIF + ENDIF + 1015 CONTINUE + +C PI +- + DO 1017 K = ID1+1,IE1 + IF ( K .LE. ID2 ) THEN +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + YR(K) = RANNOR(-POSC3,WIDC3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSC2,WIDC2) + ELSE + YR(K) = RANNOR(-POSC2,WIDC2) + ENDIF + ENDIF + 1017 CONTINUE + +C NEUTRON ANTINEUTRON PAIRS + DO 1021 K = IE1+1,IF1 + IF ( K .LE. IE2 ) THEN +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + YR(K) = RANNOR(-POSC3,WIDC3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSC2,WIDC2) + ELSE + YR(K) = RANNOR(-POSC2,WIDC2) + ENDIF + ENDIF + 1021 CONTINUE + +C K0L K0S PAIRS + DO 1022 K = IF1+1,IG1 + IF ( K .LE. IF2 ) THEN +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + YR(K) = RANNOR(-POSC3,WIDC3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSC2,WIDC2) + ELSE + YR(K) = RANNOR(-POSC2,WIDC2) + ENDIF + ENDIF + 1022 CONTINUE + +C NEUTRAL HYPERON PAIRS + DO 1023 K = IG1+1,IH1 + IF ( K .LE. IG2 ) THEN +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + YR(K) = RANNOR(-POSC3,WIDC3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSC2,WIDC2) + ELSE + YR(K) = RANNOR(-POSC2,WIDC2) + ENDIF + ENDIF + 1023 CONTINUE + +C ETA + DO 1025 K = IH1+1,II1 + IF ( K .LE. IH2 ) THEN +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + YR(K) = RANNOR(-POSN3,WIDN3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSN2,WIDN2) + ELSE + YR(K) = RANNOR(-POSN2,WIDN2) + ENDIF + ENDIF + 1025 CONTINUE + +C PI(0) + DO 1026 K = II1+1,IJ1 + IF ( K .LE. II2 ) THEN +C GENERATION OF RAPIDITY FOR EXTRA PARTICLES FROM TARGET. + YR(K) = RANNOR(-POSN3,WIDN3) + ELSE +C GENERATION OF RAPIDITY FOR PARTICLES FROM PP-COLLISION AND PROJECTILE + IF ( RAND(K) .LE. 0.5 ) THEN + YR(K) = RANNOR(POSN2,WIDN2) + ELSE + YR(K) = RANNOR(-POSN2,WIDN2) + ENDIF + ENDIF + 1026 CONTINUE + + RETURN + END +*CMZ : 02/11/2000 13.39.47 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PPARAM + +C----------------------------------------------------------------------- +C P(ARTICLE) PARAM(ETERS) +C +C SETS PARAMETERS (PARTICLE TYP, TRANSVERSE MOMENTUM) +C OF SECONDARY PARTICLES IN HDPM +C THIS SUBROUTINE IS CALLED FROM HDPM. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C CHANGES : J.N. CAPDEVIELLE CDF PARIS +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,AVPT. + COMMON /AVPT/ AVPT,AVPK,AVPN,AVPH,AVPE + DOUBLE PRECISION AVPT,AVPK,AVPN,AVPH,AVPE +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,INDICE. + COMMON /INDICE/ NNUCN,NKA0,NHYPN,NETA,NETAS,NPIZER, + * NNC,NKC,NHC,NPC,NCH,NNN,NKN,NHN,NET,NPN + INTEGER NNUCN(2:3),NKA0(2:3),NHYPN(2:3),NETA(2:3,1:4), + * NETAS(2:3),NPIZER(2:3), + * NNC,NKC,NHC,NPC,NCH,NNN,NKN,NHN,NET,NPN +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,LEPAR. + COMMON /LEPAR/ LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS + INTEGER LEPAR1,LEPAR2,LASTPI,NRESPC,NRESPN,NCPLUS +*KEEP,NEWPAR. + COMMON /NEWPAR/ EA,PT2,PX,PY,TMAS,YR,ITYP, + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT + DOUBLE PRECISION EA(3000),PT2(3000),PX(3000),PY(3000),TMAS(3000), + * YR(3000) + INTEGER ITYP(3000), + * IA1,IA2,IB1,IB2,IC1,IC2,ID1,ID2,IE1,IE2,IF1,IF2, + * IG1,IG2,IH1,IH2,II1,II2,IJ1,NTOT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'PPARAM: NTOT,NPC,NCPLUS=', + * NTOT,NPC,NCPLUS + +C FILL PARTICLES INTO ARRAYS, CALCULATE PT AND SUM UP + SPX = 0.D0 + SPY = 0.D0 + NPART = 3 +C PROTON ANTIPROTON PAIRS + DO 1003 K = 1,NNC + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. 0.5 ) THEN + ITYP(NPART) = 14 + ITYP(NPART+1) = 15 + ELSE + ITYP(NPART) = 15 + ITYP(NPART+1) = 14 + ENDIF + CALL PTRAM( ZN,AVPN,PX(NPART),PY(NPART) ) + CALL PTRAM( ZN,AVPN,PX(NPART+1),PY(NPART+1) ) + SPX = SPX + PX(NPART) + PX(NPART+1) + SPY = SPY + PY(NPART) + PY(NPART+1) + NPART = NPART + 2 + 1003 CONTINUE +C K+ K- PAIRS + DO 1004 K = 1,NKC + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. 0.5 ) THEN + ITYP(NPART) = 11 + ITYP(NPART+1) = 12 + ELSE + ITYP(NPART) = 12 + ITYP(NPART+1) = 11 + ENDIF + CALL PTRAM( ZN,AVPK,PX(NPART),PY(NPART) ) + CALL PTRAM( ZN,AVPK,PX(NPART+1),PY(NPART+1) ) + SPX = SPX + PX(NPART) + PX(NPART+1) + SPY = SPY + PY(NPART) + PY(NPART+1) + NPART = NPART + 2 + 1004 CONTINUE +C SIGMA PAIRS + DO 1005 K = 1,NHC + CALL RMMAR( RD,2,1 ) + IF ( RD(1) .LT. 0.5 ) THEN + IF ( RD(2) .LT. 0.5 ) THEN + ITYP(NPART) = 19 + ITYP(NPART+1) = 27 + ELSE + ITYP(NPART) = 27 + ITYP(NPART+1) = 19 + ENDIF + ELSE + IF ( RD(2) .LT. 0.5 ) THEN + ITYP(NPART) = 21 + ITYP(NPART+1) = 29 + ELSE + ITYP(NPART) = 29 + ITYP(NPART+1) = 21 + ENDIF + ENDIF + CALL PTRAM( ZN,AVPH,PX(NPART),PY(NPART) ) + CALL PTRAM( ZN,AVPH,PX(NPART+1),PY(NPART+1) ) + SPX = SPX + PX(NPART) + PX(NPART+1) + SPY = SPY + PY(NPART) + PY(NPART+1) + NPART = NPART + 2 + 1005 CONTINUE + +C DECIDE WITH WHICH CHARGED PION TO START WITH +C NUMBER OF PIONS MAY BE ODD IN THE CASE IF ISEL IS 1 + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .GT. 0.5 ) THEN + NPIOCH = 0 + ELSE + NPIOCH = 1 + ENDIF + NPOS = NCPLUS +C PI +- + DO 1007 K = 1,NPC + IF ( NPC-K+1 .LE. NPOS ) THEN + NPIOCH = 1 + IF ( DEBUG ) WRITE(MDEBUG,*) ' NPC,K,NPOS,NPIOCH=', + * NPC,K,NPOS,NPIOCH + ELSEIF ( NPC-K+1 .LE. -NPOS ) THEN + NPIOCH = 0 + IF ( DEBUG ) WRITE(MDEBUG,*) ' NPC,K,-NPOS,NPIOCH=', + * NPC,K,-NPOS,NPIOCH + ENDIF + IF ( NPIOCH .EQ. 0 ) THEN + ITYP(NPART) = 8 + NPIOCH = 1 + NPOS = NPOS + 1 + ELSE + ITYP(NPART) = 9 + NPIOCH = 0 + NPOS = NPOS - 1 + ENDIF + CALL PTRAM( ZN,AVPT,PX(NPART),PY(NPART) ) + SPX = SPX + PX(NPART) + SPY = SPY + PY(NPART) + NPART = NPART + 1 + 1007 CONTINUE +C NEUTRON ANTINEUTRON PAIRS + DO 1008 K = 1,NNN + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. 0.5 ) THEN + ITYP(NPART) = 13 + ITYP(NPART+1) = 25 + ELSE + ITYP(NPART) = 25 + ITYP(NPART+1) = 13 + ENDIF + CALL PTRAM( ZN,AVPN,PX(NPART),PY(NPART) ) + CALL PTRAM( ZN,AVPN,PX(NPART+1),PY(NPART+1) ) + SPX = SPX + PX(NPART) + PX(NPART+1) + SPY = SPY + PY(NPART) + PY(NPART+1) + NPART = NPART + 2 + 1008 CONTINUE +C K0L K0S PAIRS + DO 1009 K = 1,NKN + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LT. 0.5 ) THEN + ITYP(NPART) = 10 + ITYP(NPART+1) = 16 + ELSE + ITYP(NPART) = 16 + ITYP(NPART+1) = 10 + ENDIF + CALL PTRAM( ZN,AVPK,PX(NPART),PY(NPART) ) + CALL PTRAM( ZN,AVPK,PX(NPART+1),PY(NPART+1) ) + SPX = SPX + PX(NPART) + PX(NPART+1) + SPY = SPY + PY(NPART) + PY(NPART+1) + NPART = NPART + 2 + 1009 CONTINUE +C LAMDA/SIGMA0 PAIRS + DO 1010 K = 1,NHN + CALL RMMAR( RD,2,1 ) + IF ( RD(1) .LT. 0.5 ) THEN + IF ( RD(2) .LT. 0.5 ) THEN + ITYP(NPART) = 18 + ITYP(NPART+1) = 28 + ELSE + ITYP(NPART) = 28 + ITYP(NPART+1) = 18 + ENDIF + ELSE + IF ( RD(2) .LT. 0.5 ) THEN + ITYP(NPART) = 26 + ITYP(NPART+1) = 20 + ELSE + ITYP(NPART) = 20 + ITYP(NPART+1) = 26 + ENDIF + ENDIF +C ----- CHANGE BY JNC DEC.96) +* IF ( ECMDPM .LE. 500.D0 ) THEN +* CALL PTRAN( ZN,AVPH,PX(NPART),PY(NPART) ) +* CALL PTRAN( ZN,AVPH,PX(NPART+1),PY(NPART+1) ) +* ELSE + CALL PTRAM( ZN,AVPH,PX(NPART),PY(NPART) ) + CALL PTRAM( ZN,AVPH,PX(NPART+1),PY(NPART+1) ) +* ENDIF + SPX = SPX + PX(NPART) + PX(NPART+1) + SPY = SPY + PY(NPART) + PY(NPART+1) + NPART = NPART + 2 + 1010 CONTINUE +C ETA + DO 1013 K = 1,NET +C FIRST FOR ETAS FROM THIRD STRING + IF ( K .LE. NETA(3,1) ) THEN + ITYP(NPART) = 71 + ELSEIF ( K .LE. NETA(3,1)+NETA(3,2) ) THEN + ITYP(NPART) = 72 + ELSEIF ( K .LE. NETA(3,1)+NETA(3,2)+NETA(3,3) ) THEN + ITYP(NPART) = 73 + ELSEIF ( K .LE. NETA(3,1)+NETA(3,2)+NETA(3,3)+NETA(3,4)) THEN + ITYP(NPART) = 74 +C NOW FOR ETAS FROM FIRST AND SECOND STRING + ELSEIF ( K .LE. NETAS(3)+NETA(2,1) ) THEN + ITYP(NPART) = 71 + ELSEIF ( K .LE. NETAS(3)+NETA(2,1)+NETA(2,2) ) THEN + ITYP(NPART) = 72 + ELSEIF ( K .LE. NETAS(3)+NETA(2,1)+NETA(2,2)+NETA(2,3) ) THEN + ITYP(NPART) = 73 + ELSE + ITYP(NPART) = 74 + ENDIF +C ----- CHANGE BY JNC DEC.96) + IF ( ECMDPM .LE. 500.D0 ) THEN + CALL PTRAN( ZN,AVPE,PX(NPART),PY(NPART) ) + ELSE + CALL PTRAM( ZN,AVPE,PX(NPART),PY(NPART) ) + ENDIF + SPX = SPX + PX(NPART) + SPY = SPY + PY(NPART) + NPART = NPART + 1 + 1013 CONTINUE +C PI(0) + DO 1014 K = 1,NPN + ITYP(NPART) = 7 +C ----- CHANGE BY JNC DEC.96) + IF ( ECMDPM .LE. 500.D0 ) THEN + CALL PTRAN( ZN,AVPT,PX(NPART),PY(NPART) ) + ELSE + CALL PTRAM( ZN,AVPT,PX(NPART),PY(NPART) ) + ENDIF + SPX = SPX + PX(NPART) + SPY = SPY + PY(NPART) + NPART = NPART + 1 + 1014 CONTINUE + +C ANTILEADER (FROM TARGET, THEREFORE ALWAYS NUCLEON OR DELTA RESONANCE) + ITYP(2) = LEPAR2 +C ----- CHANGE BY JNC DEC.96) + IF ( ECMDPM .LE. 500.D0 ) THEN + CALL PTRAN( ZN,AVPN,PX(2),PY(2) ) + ELSE + CALL PTRAM( ZN,AVPN,PX(2),PY(2) ) + ENDIF + +C FIRST PARTICLE IS LEADING PARTICLE + ITYP(1) = LEPAR1 + IF ( (LEPAR1 .GE. 7 .AND. LEPAR1 .LE. 9) .OR. + * (LEPAR1 .GE. 51 .AND. LEPAR1 .LE. 53) ) THEN +C LEADING PARTICLE IS PION OR RHO RESONANCE + AVERPT = AVPT +C LEADING PARTICLE IS KAON OR KAON RESONANCE + ELSEIF ( LEPAR1 .EQ. 10 .OR. LEPAR1 .EQ. 11 .OR. + * LEPAR1 .EQ. 12 .OR. LEPAR1 .EQ. 16 .OR. + * (LEPAR1 .GE. 62 .AND. LEPAR1 .LE. 68) ) THEN + AVERPT = AVPK + ELSE +C LEADING PARTICLE IS NUCLEON OR ANTINUCLEON OR DELTA RESONANCE +C OR STRANGE BARYON + AVERPT = AVPN + ENDIF +C ----- CHANGE BY JNC DEC.96) + IF ( ECMDPM .LE. 500.D0 ) THEN + CALL PTRAN( ZN,AVERPT,PX(1),PY(1) ) + ELSE + CALL PTRAM( ZN,AVERPT,PX(1),PY(1) ) + ENDIF + SPX = SPX + PX(1) + PX(2) + SPY = SPY + PY(1) + PY(2) + +C AVERAGE EXCESS PT PER PARTICLE + SPX = SPX / NTOT + SPY = SPY / NTOT + +C RENORMALIZATION OF PT AND CALCULATION OF TRANSVERSE MASSES + DO 130 I = 1,NTOT + PX(I) = PX(I) - SPX + PY(I) = PY(I) - SPY + PT2(I) = PX(I)**2 + PY(I)**2 + TMAS(I) = SQRT( PAMA(ITYP(I))**2 + PT2(I) ) + 130 CONTINUE + + RETURN + END +*CMZ : 28/02/2002 12.02.13 by D. HECK IK FZK KARLSRUHE +*-- Author : J.N. Capdevielle CdF Paris/France 26/11/96 +C======================================================================= + + SUBROUTINE PTRAM( ZN,FACT,PTX,PTY ) + +C----------------------------------------------------------------------- +C TRA(NSVERSE MOMENTUM FROM) M(IMI EXPERIMENT) +C +C GENERATION OF TRANSVERSE MOMENTUM FOR PARTICLES IN HDPM GENERATOR +C SEE RESULTS FROM UA1/MIMI/96 +C SOME CONSTANTS CHANGED FROM MATHEMATICAL SOLUTION BY DICHOTOMY TO +C TO TAKE INTO ACCOUNT EFFECT OF REJECTIONS. (TESTIFIED AT VS=630 GEV +C ONLY) SEE J.N. CAPDEVIELLE, 24TH ICRC, ROMA 1995, RAPPORTEUR TALK +C NUOV. CIM. C19 (1996) 623 +C AND J.N. CAPDEVIELLE, 9TH ISVHECRI, KARLSRUHE 1996 +C NUCL.PHYS.B (CONF.PROC.) 52B (1997) 146 +C THIS SUBROUTINE IS CALLED FROM PPARAM. +C ARGUMENTS: +C ZN = POWER OF TRANSV.MOMENTUM FUNCTION, DEP. ON CENT.RAP.DENSITY +C FACT = FACTOR TAKING INTO ACCOUNT PARTICLE SPEC. TRANSV.MOMENTUM +C PTX = TRANSVERSE MOMENTUM IN X DIRECTION +C PTY = TRANSVERSE MOMENTUM IN Y DIRECTION +C +C DESIGN : J.N. CAPDEVIELLE CDF PARIS +C CHANGES : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + SAVE +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'PTRAM : ZN=',SNGL(ZN) + +C TWO RANDOM NUMBERS + CALL RMMAR( RD,2,1 ) +C GENERATE + ALFA = -0.05D0 + B = ZN-1.D0 + A = RD(1)/B + U = 0.D0 + DO 5 J = 1,1000 + F1 = A * (U+1.D0)**B - 1.D0/B + IF ( F1 .GE. U ) GOTO 15 + U = U + 0.05D0 + 5 CONTINUE + 15 BETA = U + ALFA = U - 0.05D0 + IF ( F1-U .EQ. 0.D0 ) GOTO 30 + I = 0 + 14 U = 0.5D0 * (ALFA+BETA) + I = I + 1 + F = A * (U+1.D0)**B - 1.D0/B - U + IF ( F .EQ. 0.D0 ) GOTO 30 + IF ( ABS(U-BETA) .LE. 1.D-4 ) GOTO 30 + FA = A * (ALFA+1.D0)**B - ALFA - 1.D0/B + FB = B * (BETA+1.D0)**B - BETA - 1.D0/B + IF ( F*FA .GE. 0.D0 ) THEN + ALFA = U + ELSE + BETA = U + ENDIF + GOTO 14 + + 30 XPT = 0.9154D0 * U +C 2*PI*RANDOM NUMBER FOR ANGLE PHI + Z = PI2 * RD(2) + PTX = XPT * FACT * COS(Z) + PTY = XPT * FACT * SIN(Z) + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'PTRAM : RD(1,2),XPT=', +CC * RD(1),RD(2),SNGL(XPT) + + RETURN + END +*CMZ : 14/06/2000 14.29.37 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE PTRAN( ZN,FACT,PTX,PTY ) + +C----------------------------------------------------------------------- +C TRAN(SVERSE MOMENTUM) +C +C GENERATION OF TRANSVERSE MOMENTUM FOR PARTICLES IN HDPM +C THIS SUBROUTINE IS CALLED FROM PPARAM. +C ARGUMENTS: +C ZN = POWER OF TRANSV.MOMENTUM FUNCTION, DEP. ON CENT.RAP.DENSITY +C FACT = FACTOR TAKING INTO ACCOUNT PARTICLE SPEC. TRANSV.MOMENTUM +C PTX = TRANSVERSE MOMENTUM IN X DIRECTION +C PTY = TRANSVERSE MOMENTUM IN Y DIRECTION +C +C DESIGN : T. THOUW IK3 FZK KARLSRUHE +C CHANGES : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + SAVE +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'PTRAN : ZN=',SNGL(ZN) + +C TWO RANDOM NUMBERS + CALL RMMAR( RD,2,1 ) +C GENERATE (REFERENCE??) + B = ZN * (ZN - 1.D0) + ZZ = SQRT(1.D0/RD(1) - 1.D0) + XPT = ZZ * SQRT(2.D0/B) + 11 CONTINUE + IF ( XPT .LT. 0.5D-3 ) GOTO 22 + X1 = 1.D0 + XPT + XB = X1**ZN + XC = 1.D0 + ZN * XPT + ZA = SQRT(XB/XC - 1.D0) + XD = (ZZ - ZA) * (X1 * 2.D0 * ZA * XC**2 ) / ( B * XPT * XB ) + XPT = XPT + XD + IF ( ABS(XD) .GT. 1.D-3 ) GOTO 11 + 22 CONTINUE + +C 2*PI*RANDOM NUMBER FOR ANGLE PHI + Z = PI2 * RD(2) + PTX = XPT * FACT * COS(Z) + PTY = XPT * FACT * SIN(Z) + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'PTRAN : RD(1,2),XPT=', +CC * RD(1),RD(2),SNGL(XPT) + + RETURN + END +*CMZ : 24/10/2000 15.41.00 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE RESDEC + +C----------------------------------------------------------------------- +C RES(ONANCE) DEC(AY) +C +C ROUTINE TREATES DECAY OF THE RESONANCES RHO, K*, AND DELTA +C THE DECAY MODE IS SELECTED BY THE RANDOM NUMBER RESRAN, WHICH IS +C SET IN THE SUBROUT. HDPM/LEPACX, WHERE THE RESONANCE IS FORMED +C DECAY WITH FULL KINEMATIC, ENERGY AND MOMENTA CONSERVED +C THIS SUBROUTINE IS CALLED FROM BOX3. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DECAY. + COMMON /DECAY/ GAM345,COS345,PHI345 + DOUBLE PRECISION GAM345(3),COS345(3),PHI345(3) +*KEEP,GENER. + COMMON /GENER/ GEN,ALEVEL + DOUBLE PRECISION GEN,ALEVEL +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RESON. + COMMON /RESON/ RDRES,RESRAN,IRESPAR + REAL RDRES(2),RESRAN(30000) + INTEGER IRESPAR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + INTEGER I,KK,M3,M4 + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,444) (CURPAR(I),I=1,9) + 444 FORMAT(' RESDEC: CURPAR=',1P,9E10.3) + +C COPY VERTEX COORDINATES INTO SECPAR + DO 141 KK = 5,8 + SECPAR(KK) = CURPAR(KK) + 141 CONTINUE + SECPAR( 9) = GEN + SECPAR(10) = ALEVEL + SECPAR(14) = CURPAR(14) + SECPAR(15) = CURPAR(15) + SECPAR(16) = CURPAR(16) + + BETA = SQRT( GAMMA**2 - 1.D0 ) / GAMMA + + IF ( IRESPAR .LE. 0 ) THEN + WRITE(MONIOU,*) 'RESDEC: IRESPAR .LE. 0, CORRECTED' + IRESPAR = 1 + ENDIF +C----------------------------------------------------------------------- +C TREAT FIRST NUCLEON RESONANCES, AS MOST FREQUENT + IF ( ITYPE .EQ. 54 ) THEN +C DECAY DELTA(++) ----> P + PI(+) + CALL DECAY1( ITYPE, 14, 8 ) + + ELSEIF ( ITYPE .EQ. 55 .OR. ITYPE .EQ. 56 ) THEN +C DECAY DELTA(+) OR DECAY DELTA(0) + + IF ( RESRAN(IRESPAR) .LE. TB3 ) THEN +C DECAY DELTA(+) ----> P + PI(0) +C DECAY DELTA(0) ----> N + PI(0) + M3 = 69 - ITYPE + CALL DECAY1( ITYPE, M3, 7 ) + + ELSE +C DECAY DELTA(+) ----> N + PI(+) +C DECAY DELTA(0) ----> P + PI(-) + M3 = ITYPE - 42 + M4 = M3 - 5 + CALL DECAY1( ITYPE, M3, M4 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 57 ) THEN +C DECAY DELTA(-) ----> N + PI(-) + CALL DECAY1( ITYPE, 13, 9 ) + +C----------------------------------------------------------------------- +C RHO RESONANCES + + ELSEIF ( ITYPE .EQ. 51 ) THEN +C DECAY RHO(0) ----> PI(+) + PI(-) + CALL DECAY1( ITYPE, 8, 9 ) + + ELSEIF ( ITYPE .EQ. 52 .OR. ITYPE .EQ. 53 ) THEN +C DECAY RHO(+,-) ----> PI(+,-) + PI(0) + M3 = ITYPE - 44 + CALL DECAY1( ITYPE, M3, 7 ) + +C----------------------------------------------------------------------- +C OMEGA MESON RESONANCE (COMES FROM PHOTONUCLEAR REACTION) + + ELSEIF ( ITYPE .EQ. 50 ) THEN + CALL RMMAR(RD,1,1) + IF ( RD(1) .LE. 0.8924 ) THEN +C DECAY OMEGA ----> PI(+) + PI(-) + PI(0) +C (UNIFORM PHASE SPACE DISTRIBUTION IS ASSUMED FOR THIS DECAY) + CALL DECAY6 ( PAMA(50), PAMA(8), PAMA(9), PAMA(7), + * 0.D0,0.D0,0.D0, 1.D0, 2) + DO I = 1,3 + CALL ADDANG( COSTHE,PHI, COS345(I),PHI345(I), + * SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GT. C(29) ) THEN + IF ( I .EQ. 3 ) THEN + SECPAR(1) = 7.D0 + ELSE + SECPAR(1) = 7 + I + ENDIF + SECPAR(2) = GAM345(I) + CALL TSTACK + ELSE + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( I .EQ. 3 ) THEN + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I)*PAMA(7) + ELSE + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + GAM345(I)*PAMA(8) + ENDIF + ENDIF + ENDIF + ENDDO + ELSEIF ( RD(1) .LE. 0.9778 ) THEN +C DECAY OMEGA ----> PI(0) + GAMMA + CALL DECAY1 ( ITYPE, 7, 1 ) + ELSE +C DECAY OMEGA ----> PI(+) + PI(-) + CALL DECAY1( ITYPE, 8, 9 ) + ENDIF + +C----------------------------------------------------------------------- +C EXCITED KAON RESONANCES + + ELSEIF ( ITYPE .EQ. 62 ) THEN +C DECAY K*(0) ----> 2/3: K(+) + PI(-) +C ----> 1/3: K0(L,S) + PI(0) + IF ( RESRAN(IRESPAR) .LE. TB3 ) THEN + CALL DECAY1( ITYPE, 11, 9 ) + ELSEIF ( RESRAN(IRESPAR) .LE. .8333333 ) THEN + CALL DECAY1( ITYPE, 10, 7 ) + ELSE + CALL DECAY1( ITYPE, 16, 7 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 65 ) THEN +C DECAY ANTI-K*(0) ----> 2/3: K(-) + PI(+) +C ----> 1/3: K0(L,S) + PI(0) + IF ( RESRAN(IRESPAR) .LE. TB3 ) THEN + CALL DECAY1( ITYPE, 12, 8 ) + ELSEIF ( RESRAN(IRESPAR) .LE. .8333333 ) THEN + CALL DECAY1( ITYPE, 10, 7 ) + ELSE + CALL DECAY1( ITYPE, 16, 7 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 63 .OR. ITYPE .EQ. 64 ) THEN +C DECAY K*(+-) ----> 2/3: K(+-) + PI(0) +C ----> 1/3: K0(L,S) + PI(+-) + IF ( RESRAN(IRESPAR) .LE. TB3 ) THEN + CALL DECAY1( ITYPE, ITYPE-52, 7 ) + ELSEIF ( RESRAN(IRESPAR) .LE. .8333333 ) THEN + CALL DECAY1( ITYPE, 10, ITYPE-55 ) + ELSE + CALL DECAY1( ITYPE, 16, ITYPE-55 ) + ENDIF + +C----------------------------------------------------------------------- +C ANTI-NUCLEON RESONANCES + + ELSEIF ( ITYPE .EQ. 58 ) THEN +C DECAY ANTI-DELTA(--) ----> ANTI-P + PI(-) + CALL DECAY1( ITYPE, 15, 9 ) + + ELSEIF ( ITYPE .EQ. 59 .OR. ITYPE .EQ. 60 ) THEN +C DECAY ANTI-DELTA(-) OR DECAY ANTI-DELTA(0) + + IF ( RESRAN(IRESPAR) .LE. TB3 ) THEN +C DECAY ANTI-DELTA(-) ----> ANTI-P + PI(0) +C DECAY ANTI-DELTA(0) ----> ANTI-N + PI(0) + M3 = 15 + (ITYPE - 59) * 10 + CALL DECAY1( ITYPE, M3, 7 ) + + ELSE +C DECAY ANTI-DELTA(-) ----> ANTI-N + PI(-) +C DECAY ANTI-DELTA(0) ----> ANTI-P + PI(+) + M3 = 15 + (60 - ITYPE) * 10 + M4 = 68 - ITYPE + CALL DECAY1( ITYPE, M3, M4 ) + ENDIF + + ELSEIF ( ITYPE .EQ. 61 ) THEN +C DECAY ANTI-DELTA(+) ----> ANTI-N + PI(+) + CALL DECAY1( ITYPE, 25, 8 ) + +C----------------------------------------------------------------------- + ELSE + WRITE(MONIOU,444) (CURPAR(I),I=1,9) + WRITE(MONIOU,*) 'RESDEC: UNFORESEEN PARTICLE CODE =',ITYPE + ENDIF + IRESPAR = IRESPAR - 1 + + RETURN + END +*CMZ : 14/06/2000 14.29.37 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE RNEGBI( N,XN,ECM ) + +C----------------------------------------------------------------------- +C R(ANDOM NUMBER WITH) NEG(ATIVE) BI(NOMIAL DISTRIBUTION) +C +C RANDOM NUMBER GENERATOR FOR INTEGER NUMBERS DISTRIBUTED ACCORDING TO +C A NEGATIVE BINOMIAL DISTRIBUTION WITH PARAMETERS AND K +C DELIVERS ONLY EVEN NUMBERS AS CHARGE MUST BE CONSERVED +C THIS SUBROUTINE IS CALLED FROM HDPM. +C ARGUMENTS: +C XN = AVERAGE VALUE OF N +C ECM = CENTER OF MASS ENERGY +C N = RANDOM NUMBER DISTRIBUTED WITH NEG. BIN. DISTR. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ECM,P,PN,Q,R,SUM,XI,XK,XN + INTEGER N + SAVE +C----------------------------------------------------------------------- + +CC IF ( DEBUG ) WRITE(MDEBUG,*) 'RNEGBI: XN,ECM=',SNGL(XN),SNGL(ECM) + +C PARAMETRIZATION OF PARAMETER K OF NEG.BIN. DISTRIBUTION ACCORDING +C TO UA5 COLLABORATION, PHYS. LETT. 167B (1986) 476 + XK = 1.D0 / ( -0.104D0 + 0.058D0 * LOG(ECM) ) +C OTHER PARAMETERS + R = XN / XK + Q = 1.D0 / (1.D0 + R) + P = R * Q + +C VALUES FOR N EQUAL 0 + 1 CONTINUE + N = 0 + PN = Q**XK + SUM = PN +C GET UNIFORM RANDOM NUMBER + CALL RMMAR( RD,1,1 ) + IF ( RD(1) .LE. SUM ) GOTO 100 +C COMPARE WITH SUM OVER P(N) + DO 2 XI = 1.D0, 1350.D0 + PN = PN * P * (XK - 1.D0 + XI) / XI + SUM = SUM + PN + IF ( RD(1) .LE. SUM ) THEN + N = XI + GOTO 100 + ENDIF + 2 CONTINUE + N = 1350 + + 100 CONTINUE + IF ( MOD(N,2) .NE. 0 .AND. N .NE. 1 ) GOTO 1 +CC IF (DEBUG) WRITE(MDEBUG,*)'RNEGBI: RD(1),N,=',RD(1),N,SNGL(XN) + + RETURN + END +*CMZ : 14/06/2000 14.29.37 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE TARINT + +C----------------------------------------------------------------------- +C TAR(GET) INT(ERACTIONS) +C +C ROUTINE DETERMINES HOW MANY INTERACTIONS OCCUR IN TARGET +C THIS SUBROUTINE IS CALLED FROM HDPM. +C----------------------------------------------------------------------- + + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,GNUPR. + COMMON /GNUPR/ SE14,SE16,SE40 + DOUBLE PRECISION SE14(3,14),SE16(3,16),SE40(3,40) +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEND. + + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'TARINT: ITYPE,TAR,NFLAIN', + * ITYPE,SNGL(TAR),NFLAIN + +C NFLAIN EQUAL 0 : NUMBER OF INTERACTIONS IN TARGET CHOSEN RANDOMLY + IF ( NFLAIN .EQ. 0 ) THEN +C SIGMA IS ALREADY CALCULATED IN BOX2 + DELSIG = SIGMA - 45.D0 + DSIGSQ = DELSIG**2 + +C CHOOSE RANDOM NUMBER + CALL RMMAR( RD,1,1 ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'TARINT: DELSIG,DSIGSQ,RD(1),TAR=', + * SNGL(DELSIG),SNGL(DSIGSQ),RD(1),SNGL(TAR) + +C DO INTERACTION WITH CHOSEN TARGET ( N, O, AR ) + PROB = 0.D0 +C TREAT INTERACTION WITH NITROGEN TARGET + IF ( TAR .EQ. 14.D0 ) THEN +C SUM OF PROBABILITIES FOR COLLISION WITH NITROGEN TARGET + DO 6151 JL = 1,14 + PROB = PROB + + * SE14(1,JL) + SE14(2,JL)*DELSIG + SE14(3,JL)*DSIGSQ + IF ( RD(1) .LE. PROB ) GOTO 7332 + 6151 CONTINUE + +C TREAT INTERACTION WITH OXYGEN TARGET + ELSEIF ( TAR .EQ. 16.D0 ) THEN +C SUM OF PROBABILITIES FOR COLLISION WITH OXYGEN TARGET + DO 6152 JL = 1,16 + PROB = PROB + + * SE16(1,JL) + SE16(2,JL)*DELSIG + SE16(3,JL)*DSIGSQ + IF ( RD(1) .LE. PROB ) GOTO 7332 + 6152 CONTINUE + +C TREAT INTERACTION WITH ARGON TARGET + ELSEIF ( TAR .EQ. 40.D0 ) THEN +C SUM OF PROBABILITIES FOR COLLISION WITH ARGON TARGET + DO 6153 JL = 1,40 + PROB = PROB + + * SE40(1,JL) + SE40(2,JL)*DELSIG + SE40(3,JL)*DSIGSQ + IF ( RD(1) .LE. PROB ) GOTO 7332 + 6153 CONTINUE + ELSE + WRITE(MONIOU,*) 'TARINT: UNKNOWN TARGET = ',SNGL(TAR) + ENDIF + JL = 1 + +C NUMBER OF COLLISIONS IN TARGET + 7332 CONTINUE + GNU = DBLE(JL) + + ELSE +C NFLAIN EQUAL 1 : AVERAGE NUMBER OF INTERACTIONS IN TARGET IS TAKEN +C NEW PARAMETRIZATION OF J.N.CAPDEVIELLE (MARCH 93) + GNU = (0.4826D0 + 3.522D-2 * SLOG) * TAR**0.31D0 + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) + * 'TARINT: # COLLISIONS IN TARGET=',SNGL(GNU) + + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : CERN PROGLIB# V113 +C======================================================================= + + FUNCTION RANGEN() + +C----------------------------------------------------------------------- +C RAN(DOM NUMBER) GEN(ERATOR) +C +C SEE SUBROUT. RMMAR +C THIS FUNCTION IS CALLED FROM MANY VENUS ROUTINES. +C +C CERN PROGLIB# V113 RMMAR .VERSION KERNFOR 1.0 +C ORIG. 01/03/89 FCA + FJ +C +C CHANGES : D. HECK IK3 FZK KARLSRUHE +C DATE : FEB 02, 1994 +C----------------------------------------------------------------------- + +C REAL RVEC(1) + COMMON /RANMA2/ IU(1030),JSEQ + COMMON /RANMA3/ TWOM24,TWOM48,CD,CM,CINT,MODCNS + INTEGER I97(0:1030),J97(0:1030),NTOT(0:1030) + INTEGER NTOT2(0:1030),IJKL(0:1030) + REAL U(97),C(0:1030) + EQUIVALENCE (IJKL(0),IU(1)),(NTOT(0),IU(2)),(NTOT2(0),IU(3)) + EQUIVALENCE (U(1),IU(4)),(C(0),IU(101)),(I97(0),IU(102)) + EQUIVALENCE (J97(0),IU(103)) + SAVE +C----------------------------------------------------------------------- + +C ISEQ = 1 + LENV = 1 +C IF ( ISEQ .GT. 0 ) JSEQ = ISEQ +C IBASE = (JSEQ-1)*103 + IBASE = 0 + + IVEC = 1 +C DO 100 IVEC = 1,LENV + UNI = U( +I97(IBASE))-U( +J97(IBASE)) + IF ( UNI .LT. 0. ) UNI = UNI+1. + U( +I97(IBASE)) = UNI + I97(IBASE) = I97(IBASE)-1 + IF ( I97(IBASE) .EQ. 0 ) I97(IBASE) = 97 + J97(IBASE) = J97(IBASE)-1 + IF ( J97(IBASE) .EQ. 0 ) J97(IBASE) = 97 + C(IBASE) = C(IBASE) - CD + IF ( C(IBASE) .LT. 0. ) C(IBASE) = C(IBASE)+CM + UNI = UNI-C(IBASE) + IF ( UNI .LT. 0. ) UNI = UNI+1. +C REPLACE EXACT ZEROES BY UNIFORM DISTR. *2**-24 + IF ( UNI .EQ. 0. ) THEN + UNI = TWOM24*U(2) +C AN EXACT ZERO HERE IS VERY UNLIKELY, BUT LET'S BE SAFE. + IF ( UNI .EQ. 0. ) UNI = TWOM48 + ENDIF + RANGEN = UNI + 100 CONTINUE + + NTOT(IBASE) = NTOT(IBASE) + LENV + IF ( NTOT(IBASE) .GE. MODCNS ) THEN + NTOT2(IBASE) = NTOT2(IBASE) + 1 + NTOT(IBASE) = NTOT(IBASE) - MODCNS + ENDIF + + RETURN + END +*CMZ : 28/02/2002 12.36.15 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE UTQSEA(X1,X2,X3) + +C----------------------------------------------------------------------- +C UT(ILITY ROUTINE) SEA (QUARK STRUCTURE FUNCTION) +C +C SEA QUARK STRUCTURE FUNCTION INTEGRAL +C RETURNS INTEGRAL (XSE(1)->XSE(I)) OF FU(Z) DZ +C THIS SUBROUTINE IS CALLED FROM VENLNK. +C ARGUMENTS: +C X1 = +C X2 = +C X3 = +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + PARAMETER (NSTRU=2049) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /STRU2/ DELTA0,DELTA1,QSEH(NSTRU),QSEPI(NSTRU) + * ,QVAH(NSTRU),QVAPI(NSTRU),XSE(NSTRU),XVA(NSTRU) + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'UTQSEA:' + + X0 = 0. + N = NSTRU + IF ( ISH .GE. 90 ) THEN + IF ( X1.LT.X0 .OR. X2.LT.X1 .OR. X3.LT.X2 ) THEN + CALL UTMSG('UTQSEA') + WRITE(IFCH,*) ' XI=',X0,X1,X2,X3 + CALL UTMSGF + ENDIF + ENDIF + I1 = N/3 + I2 = 2*N/3 + FAC1 = (X1-X0)/FLOAT(I1-1) + DO 11 I = 1,I1-1 + XSE(I)=(I-1.)*FAC1+X0 + 11 CONTINUE + FAC2 = (X2-X1)/FLOAT(I2-I1) + DO 12 I = I1,I2-1 + XSE(I)=FLOAT(I-I1)*FAC2 +X1 + 12 CONTINUE + FAC3 = (X3-X2)/FLOAT(N-I2) + DO 13 I = I2,N + XSE(I)=MIN( FLOAT(I-I2)*FAC3 +X2, 0.99999999 ) + 13 CONTINUE + + XCUT2 = XCUT**2 + XCUT4 = XCUT2**2 + XCUT6 = XCUT2*XCUT4 + CUTLOG = LOG(XCUT) +C COEFFICIENTS FOR HADRONIC SEA QUARK STRUCTURE FUNCTION + AH0 = -8. + 37.333333*XCUT2 - 29.866667*XCUT4 + 3.65714286*XCUT6 + AH1 = 14. - 26.25*XCUT2 + 8.75*XCUT4 - 0.2734375*XCUT6 + AH2 = -18.666667 + 14.933333*XCUT2 - 1.82857143*XCUT4 + AH3 = 17.5 - 5.8333333*XCUT2 + 0.182291667*XCUT4 + AH4 = -11.2 + 1.37142857*XCUT2 + AH5 = 4.6666667 - 0.14583333*XCUT2 + AH6 = -1.14285714 + AH7 = 0.125 + QAH = 1. - AH1 * XCUT2 + AHCUT = AH0 * XCUT +C COEFFICIENTS FOR PIONIC SEA QUARK STRUCTURE FUNCTION + API0 = -5. + 6.6666667*XCUT2 - 0.53333333*XCUT4 + API1 = 5. - 1.875*XCUT2 + API2 = -3.3333333 + 0.26666667*XCUT2 + API3 = 1.25 + API4 = -0.2 + QAPI = 1. - API1 * XCUT2 + APICUT = API0 * XCUT + + QSEH(1) = 0. + QSEPI(1) = 0. + DO 2 I = 2,N + Z = XSE(I) + ROOT = SQRT(Z**2 + XCUT2) + ROOTLG = LOG( Z + ROOT ) - CUTLOG + QSEH(I) = 1.265 * ( QAH * ROOTLG - AHCUT + * + ROOT * (AH0 + Z*(AH1 + Z*(AH2 + Z*(AH3 + * + Z*(AH4 + Z*(AH5 + Z*(AH6 + Z*AH7))))))) ) + QSEPI(I) = 0.9 * ( QAPI * ROOTLG - APICUT + * + ROOT * (API0+Z*(API1+Z*(API2+Z*(API3+Z*API4)))) ) + 2 CONTINUE + + RETURN + END +*CMZ : 14/06/2000 14.17.24 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE UTQVAL(Q,NEND) + +C----------------------------------------------------------------------- +C UT(ILITY ROUTINE) VAL(ENCE QUARK STRUCTURE FUNCTION) +C +C VALENCE QUARK STRUCTURE FUNCTION +C RETURNS INTEGRAL (XVA(1)->XVA(I)) FU(Z) DZ +C THIS INTEGRAL IS ONLY CALCULATED FOR SMALL VALUES OF XVA UP TO 25 +C TIMES THE VALUE OF XCUT. FOR LARGER VALUES THE TABULATED VALUES OF +C DATASET 'VENUSDAT' ARE TAKEN AND CORRECTED BY THE CONSTANT SHIFT +C DELTA0 (FOR HADRONS) OR DELTA1 (FOR PIONS). +C THIS SUBROUTINE IS CALLED FROM VENLNK. +C ARGUMENTS: +C Q = INTEGRAL VALUE +C NEND = POINTER TO LAST ARGUMENT +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + PARAMETER (NSTRU=2049) + COMMON /CIPIO/ IPIO + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /STRU2/ DELTA0,DELTA1,QSEH(NSTRU),QSEPI(NSTRU) + * ,QVAH(NSTRU),QVAPI(NSTRU),XSE(NSTRU),XVA(NSTRU) + + DIMENSION Y0(9),Y1(9),Q(NEND) + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'UTQVAL: IPIO,NEND=',IPIO,NEND + + XCUT2 = XCUT**2 + Q(1) = 0. + Z = XVA(1) + DENOMI = 1. / SQRT(Z**2 + XCUT2) + + IF ( IPIO .EQ. 0 ) THEN +C CALCULATE THE FIRST NEND VALUES OF STRUCTURE FUNCTION FOR HADRONS + Y0(1) = 0. + DO 3 I = 2,NEND + FACT = (XVA(I) - Z) * 0.125 + DO 2 J = 2,8 + Z = Z + FACT + DENOMI = 1. / SQRT(Z**2 + XCUT2) + Y0(J) = (1.-Z)**3.46 * Z**.419 * (2.74793064*Z + 0.62452969) + * * DENOMI + 2 CONTINUE + Z = XVA(I) + DENOMI = 1. / SQRT(Z**2 + XCUT2) + Y0(9) = (1.-Z)**3.46 * Z**.419 * (2.74793064*Z + 0.62452969) + * * DENOMI +C INTEGRATION AFTER BODE'S RULE (ABRAMOWITZ + STEGUN, HANDBOOK OF +C MATHEMATICAL FUNCTIONS, DOVER PUBLICATIONS (1970), FORMULA 25.4.18) + Q(I) = 2.8218694E-4 * FACT * ( 989. * (Y0(1) + Y0(9)) + * + 5888. * (Y0(2) + Y0(8)) - 928. * (Y0(3) + Y0(7)) + * + 10496. * (Y0(4) + Y0(6)) - 4540. * Y0(5) ) + * + Q(I-1) + Y0(1) = Y0(9) + 3 CONTINUE + + ELSE +C CALCULATE THE FIRST NEND VALUES OF STRUCTURE FUNCTION FOR PIONS + Y1(1) = 0. + DO 5 I = 2,NEND + FACT = (XVA(I) - Z) * 0.125 + DO 4 J = 2,8 + Z = Z + FACT + DENOMI = 1. / SQRT(Z**2 + XCUT2) + Y1(J) = (1.-Z)**0.7 * Z**.4 * DENOMI + 4 CONTINUE + Z = XVA(I) + DENOMI = 1. / SQRT(Z**2 + XCUT2) + Y1(9) = (1.-Z)**0.7 * Z**.4 * DENOMI +C INTEGRATION AFTER BODE'S RULE (ABRAMOWITZ + STEGUN, HANDBOOK OF +C MATHEMATICAL FUNCTIONS, DOVER PUBLICATIONS (1970), FORMULA 25.4.18) + Q(I) = 2.8218694E-4 * FACT * ( 989. * (Y1(1) + Y1(9)) + * + 5888. * (Y1(2) + Y1(8)) - 928. * (Y1(3) + Y1(7)) + * + 10496. * (Y1(4) + Y1(6)) - 4540. * Y1(5) ) + * * 0.1730725 + Q(I-1) + Y1(1) = Y1(9) + 5 CONTINUE + ENDIF + + RETURN + END +*CMZ : 14/04/2000 12.25.46 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + BLOCK DATA VENDAT + +C----------------------------------------------------------------------- +C VEN(US) DAT(A INITIALIZATION) +C +C INITIALIZES DATA FOR VENUS LINK +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + + COMMON /VENLIN/ PTQ1,PTQ2,PTQ3,QMUST1,QMUST2,QMUST3 + * ,IDTABL(100) + + DATA IDTABL/ + * 10, -12, 12, 0, -14, 14, 110, 120, -120, -20, + * 130, -130, 1220, 1120,-1120, 20, 220, 2130, 1130, 1230, + * 2230, 1330, 2330, 3331,-1220,-2130,-1130,-1230,-2230,-1330, + *-2330,-3331, -16, 16, -240, 240, -140, 140, -340, 340, + * 2140, 0, 0, 0, 0, 0, 0, 0, 0, 0, + * 111, 121, -121, 1111, 1121, 1221, 2221,-1111,-1121,-1221, + *-2221, 231, 131, -131, -231, 11, -11, 13, -13, 0, + * 220, 220, 220, 220, 0, 25*0 / + + END +*CMZ : 28/02/2002 12.36.15 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE VENINI + +C----------------------------------------------------------------------- +C VEN(US) INI(TIALIZATION) +C +C FIRST INITIALIZATION OF VENUS ARRAYS AND PARAMETERS +C THIS SUBROUTINE IS CALLED FROM START. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + +*KEEP,AIR. + COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD + DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,VENPAR. + COMMON /VENPAR/ PARVAL,NPARAM,PARCHA + REAL PARVAL(100) + INTEGER NPARAM + CHARACTER*6 PARCHA(100) +*KEEP,VENUS. + COMMON /VENUS/ ISH00,IVERVN,MTAR99,FVENUS,FVENSG + INTEGER ISH00,IVERVN,MTAR99 + LOGICAL FVENUS,FVENSG +*KEND. + + PARAMETER (KOLLMX=2500) + PARAMETER (MXEPS=10) + PARAMETER (MXTAU=4) + PARAMETER (MXVOL=10) + PARAMETER (NGAU=129) + PARAMETER (NDEP=129) + PARAMETER (NDET=129) + PARAMETER (NPTF=129) + PARAMETER (NPTJ=129) + PARAMETER (NSTRU=2049) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CDEN/ MASSNR,RMX,R0 + COMMON /CGAU/ QGAU(NGAU),XGAU(NGAU) + COMMON /CIUTOT/ IUTOTC,IUTOTE + COMMON /CJINTC/ CLUST(MXTAU,MXVOL,MXEPS) + COMMON /CJINTD/ VOLSUM(MXTAU),VO2SUM(MXTAU),NCLSUM(MXTAU) + COMMON /CLEP/ ICINPU,IDSCAT + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /COL/ BIMP,BMAX,COORD(4,KOLLMX),DISTCE(KOLLMX) + * ,QDEP(NDEP),QDET14(NDET),QDET16(NDET),QDET40(NDET) + * ,QDET99(NDET),RMPROJ,RMTARG(4),XDEP(NDEP) + * ,XDET14(NDET),XDET16(NDET),XDET40(NDET) + * ,XDET99(NDET) + * ,KOLL,LTARG,NORD(KOLLMX),NPROJ,NRPROJ(KOLLMX) + * ,NRTARG(KOLLMX),NTARG + COMMON /CPTF/ FPTFS,FPTFSS,FPTFU,FPTFUS,FPTFUU + * ,QPTFS(NPTF),QPTFSS(NPTF),QPTFU(NPTF),QPTFUS(NPTF) + * ,QPTFUU(NPTF),XPTF(NPTF) + COMMON /CPTJ/ QPTJ(NPTJ),XPTJ(NPTJ) + COMMON /CPTLU/ NPTLU + COMMON /CQUAMA / QUAMA + DOUBLE PRECISION SEEDC,SEEDI + COMMON /CSEED/ SEEDC,SEEDI + COMMON /CVSN/ IVERSN + COMMON /EPSCR/ EPSCRI + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /NEVNT/ NEVNT + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /PARO3/ ASUHAX(7),ASUHAY(7),OMEGA,SIGPPD,SIGPPE,UENTRO + * ,IWZZZZ + COMMON /PARO4/ GRICEL,GRIDEL,GRIGAM,GRIRSQ,GRISLO + COMMON /PARO5/ DELEPS,DELVOL + COMMON /QUARKM/ SMAS,SSMAS,USMAS,UUMAS + COMMON /STRU2/ DELTA0,DELTA1,QSEH(NSTRU),QSEPI(NSTRU) + * ,QVAH(NSTRU),QVAPI(NSTRU),XSE(NSTRU),XVA(NSTRU) + COMMON /VENLIN/ PTQ1,PTQ2,PTQ3,QMUST1,QMUST2,QMUST3 + * ,IDTABL(100) + + SAVE + EXTERNAL SDENSI,SGAU,SPTF,SPTJ +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'VENINI:' + + IFMT = MONIOU + IFCH = MDEBUG + ICHOIC = 2 + NEVNT = 0 + +C VERSION NUMBER +C -------------- + IVERSN=4125 + IVERVN=IVERSN + +C FRAGMENTATION PARAMETERS/OPTIONS +C -------------------------------- +C PROB. FOR U OR D QUARK PRODUCTION ( =(1-P_STRANGE)/2 ): + PUD=0.455 +C QQ-QQBAR PROBABILITY + PDIQUA=0.12 +C SPIN PROBABILITIES (FOR LIGHT AND HEAVY FLAVOURS): + PSPINL=0.50 + PSPINH=0.75 +C ISOSPIN PROBABILITY: + PISPN=0.50 +C OPTION FOR P_T DISTRIBUTION (1=EXPONENTIAL,2=GAUSSIAN): + IOPTF=1 +C AVERAGE P_TRANSVERSE + PTF=0.40 +C STRING TENSION: + TENSN=1.0 +C STRING DECAY PARAMETER + PAREA=.60 +C THRESHOLD RESONANCE -> STRING + DELREM=1.0 +C CUTOFF FOR KMAXOR BEYOND WHICH PDIQ=0 IN SR JSPLIT + KUTDIQ=4 +C OPTION FOR BREAKING PROCEDURE (1=AMOR,2=SAMBA) + IOPBRK=1 + +C PROTON-PROTON PARAMETERS/OPTIONS +C -------------------------------- +C OPTION FOR QUARK P_T DISTRIBUTION (1=EXPONENTIAL,2=GAUSSIAN,3=POWE + IOPTQ=2 +C MEAN TRANSVERSE MOMENTUM OF QUARKS +C (Q1+Q2*LN(E)+Q3*LN(E)**2, E=SQRT(S)): + PTQ1=0.260 + PTQ2=0. + PTQ3=0. +C PROBABILITY FOR SEMIHARD INTERACTION (NOT USED IF NEGATIVE): +C PHARD=-1.0 +C CUTOFF PARAMETER FOR P_T DISTR. FOR SEMIHARD INTERACTIONS: + PTH=1.0 +C EFFECTIVE RATIO OF STRANGE SEA OVER U SEA: + RSTRAS=0. +C EFFECTIVE CUTOFF MASS IN STRUCTURE FUNCTIONS: + CUTMSQ=2.0 + CUTMSS=0.001 +C VALENCE QUARK FRACTION IN CASE OF DIFFRACTIVE INTERACTION + PVALEN=0.30 +C PHASE SPACE PARAMETERS: + DELMSS=0.300 + +C GRIBOV-REGGE-THEORY PARAMETERS +C ------------------------------ +C GAMMA (IN FM**2): + GRIGAM=3.64*0.04 +C R**2(IN FM**2): + GRIRSQ=3.56*0.04 +C DELTA=INTERCEPT OF REGGE TRAJECTORY-1: + GRIDEL=0.07 +C SLOPE OF REGGE TRAJECTORY (IN FM**2): + GRISLO=0.25*0.04 +C C (DETERMINES RELATIVE WEIGHT OF ELASTIC AND DIFFR CROSS-SCTN): + GRICEL=1.5 + +C NUCLEUS-NUCLEUS PARAMETERS +C -------------------------- +C HARD CORE DISTANCE: + CORE=0.8 +C JPSI NUCLEON CROSS-SECTION (FM**2): + SIGJ=0.2 + +C RESCATTERING PARAMETERS +C ----------------------- +C REACTION TIME: + TAUREA=1.5 +C OVERLAP PARAMETER (NOT USED IF NEGATIVE) + OVERLP=-1.0 +C BARYON RADIUS: + RADIAC=0.65 +C MESON RADIUS: + RADIAS=0.35 +C CRITICAL ENERGY DENSITY (<0 TO AVOID SECONDARY INTERACTIONS): + EPSCRI=1.0 +C BARYON ENERGY DENSITY + EPSBAR=2.0 +C INTERACTION MASS: + AMSIAC=0.8 +C OPTION TO CALL JINTA1 (1) OR JINTA2 (2) + IOJINT=2 +C PRINT OPTIONS + AMPRIF=0. + DELVOL=1.0 + DELEPS=1.0 + +C CLUSTER DECAY PARAMETERS/OPTIONS +C -------------------------------- +C CORRELATION LENGTH +C (CORLEN>1.0: FIRST FIX SHORT CLUSTER BREAKING + CORLEN=1.0 +C MINIMUM MASS + AMUSEG=3.0 +C BAG CONSTANT -1/4 + BAG4RT=0.200 +C OPTION FOR ENTROPY CALCULATION: +C IOPENT=0: ZERO ENTROPY +C IOPENT=1: OSCILLATOR MODEL (0 FOR K.LE.UENTRO) +C IOPENT=2: FERMI GAS WITH CONST VOLUME (0 FOR K.LE.UENTRO) +C IOPENT=3: FERMI GAS WITH CONST DENSITY (0 FOR K.LE.UENTRO) +C IOPENT=4: FERMI GAS WITH CONST VOLUME - NEW (0 FOR K.LE.UENTRO) +C IOPENT=5: RESONANCE GAS (HAGEDORN) (0 FOR U.LE.UENTRO) + IOPENT=5 + UENTRO=4.0 + KENTRO=100000 +C DECAY TIME (COMOVING FRAME): + TAUNLL=1.0 +C OSCILLATOR QUANTUM + OMEGA=0.500 + +C PRESENTLY NOT USED +C ------------------ + +C CLUSTER DECAY INITIALIZATIONS +C ----------------------------- +C AVERAGE HADRON MASSES, TWO LOWEST MULTIPLETS (IF POSSIBLE): +C N/DELTA,LAMBDA/SIGMA,XI,OMEGA,PI/RHO,KAON,DELTA: + ASUHAX(1)=1.134 + ASUHAX(2)=1.301 + ASUHAX(3)=1.461 + ASUHAX(4)=1.673 + ASUHAX(5)=0.6125 + ASUHAX(6)=0.7915 + ASUHAX(7)=1.2320 +C LOWEST MASSES: + ASUHAY(1)=0.940 + ASUHAY(2)=1.200 + ASUHAY(3)=1.322 + ASUHAY(4)=1.673 + ASUHAY(5)=0.1400 + ASUHAY(6)=0.4977 + ASUHAY(7)=1.2320 + +C TECHNICAL PARAMETERS +C -------------------- +C DELTA_ZETA FOR /C4PTL/...WEIPTL() + DLZETA=0.5 +C MIN TAU FOR SPACE-TIME EVOLUTION: + TAUMIN=0. +C MAX TAU FOR SPACE-TIME EVOLUTION + TAUMAX=10.0 +C TAU STEPS FOR SPACE-TIME EVOTUTION (46+40) + NUMTAU=51 +C RANGE FOR PT DISTRIBUTION + PTMX=6.0 +C RANGE FOR GAUSS DISTRIBUTION + GAUMX=8.0 +C PARAMETER DETERMINING RANGE FOR DENSITY DISTRIBUTION + FCTRMX=10.0 +C TRY-AGAIN PARAMETER + NTRYMX=10 +C MAX TIME FOR JPSI EVOLUTION + TAUMX=20.0 +C TIME STEPS FOR JPSI EVOLUTION + NSTTAU=100 + +C OPTIONS +C ------- +C OPTION FOR MINIMUM ENERGY IN SJCGAM: +C IOPENU = 1 : SUM OF HADRON MASSES +C IOPENU = 2 : BAG MODEL CURVE WITH MINIMUM AT NONZERO STRANGEN. + IOPENU=1 +C PARAMETER THETA IN BERGER/JAFFE MASS FORMULA + THEMAS=0.51225 +C SEA PROBABILITY (IF .LT. 0. THEN CALCULATED FROM STRUCTURE FNCTS) + PROSEA=-1.0 +C INELASTIC PP CROSS-SECTION (FM**2) +C (IF NEGATIVE: CALCULATED FROM GRIBOV-REGGE-THEORY): +CDH SIGPPI=-1.0 +C MULTISTRING PARAMETER (Q1+Q2*LN(E)+Q3*LN(E)**2, E=SQRT(S)): +C (NOT USED IF RACPRO IS CALLED WITH 'GRI'-OPTION (DEFAULT)) + QMUST1=0.50 + QMUST2=0. + QMUST3=0. +C ENTRO() CALCULATED (1) OR FROM DATA (2) + IENTRO=2 +C DUAL PARTON MODEL (1) OR NOT (ELSE) + IDPM=0 +C ANTIQUARK COLOR EXCHANGE (1) OR NOT (0): + IAQU=1 +C MINIMUM NUMBER OF VALENCE QUARKS: + NEQMN=-5 +C MAXIMUM NUMBER OF VALENCE QUARKS: + NEQMX=5 +C UPPER LIMIT FOR RAPIDITY INTERVAL FOR INTERMITTENCY ANALYSIS + YMXIMI=2.0 +C CLEAN /CPTL/ IF NCLEAN > 0 (EVERY NCLEAN_TH TIME STEP) + NCLEAN=0 +C TRAFO FROM PP-CM INTO LAB-SYSTEM (1) OR NOT (.NE.1) + LABSYS=1 +C MAXIMUM NUMBER OF COLLISIONS: + NCOLMX=1000 +C MAXIMUM RESONANCE SPIN (SPIN IN A GENARAL SENSE: MOD(/ID/,10)) + MAXRES=99999 +C MOMENTUM RESCALING (1=YES): + IRESCL=1 +C NUE ENERGY + ELEPTI=43.00 +C MUE ENERGY + ELEPTO=26.24 +C MUE ANGLE + ANGMUE=3.9645/180.*3.1415926 +C JPSI TO BE PRODUCED (1) OR NOT (0): + JPSI=0 +C JPSI FINAL STATE INTERACTION (1) OR NOT (0): + JPSIFI=0 +C COLLISION TRIGGER (ONLY COLL BETWEEN KO1 AND KO2 ARE USED): + KO1KO2=00009999 +C PRINT OPTION: +C ISH=14: CALL UTTIMA +C ISH=15: PRINTS PTLS READ FROM DATA FILE IN SR VEANLY +C ISH=16: PRINTS SEA PROB. +C ISH=17: PRINTS RANDOM NUMBERS +C ISH=18: SR JCLUDE, NO-PHASE-SPACE CLUSTERS +C ISH=19: SR AINITL, CALL SMASSP +C ISH=20: SR VEANLY, PRINTS EVT NR IF EVT IS ACCEPTED +C ISH=21: CREATES HISTOGRAM FOR SEA DISTRIBUTION +C ISH=22: SR JFRADE, MSG AFTER CALL UTCLEA +C ISH=23: CALL JINTFP +C ISH=24: CALL JINTCL +C ISH=25: CALL JCHPRT +C ISH=90,91,92,93,94,95: MORE AND MORE DETAILED MESSAGES. + IF ( DEBUG ) THEN + ISH = ISH00 + ELSE + ISH = 0 + ENDIF +C PRINT OPTION: +C ISHSUB=IJMN, IJ SPECIFIES LOCATION WHERE ISH=MN. +C IJ=01: SR JCLUDE +C IJ=02: SR JETGEN +C IJ=03: SR JFRADE, STARTING BEFORE FRAGMENTATION +C IJ=04: SR JDECAY +C IJ=05: SR JDECAX +C IJ=06: SR NUCOLL +C IJ=07: SR NUCOGE+- +C IJ=08: SR ASTORE +C IJ=09: SR JFRADE, STARTING AFTER FRAGMENTATION +C IJ=10: SR JFRADE, STARTING BEFORE DECAY +C IJ=11: SR JFRADE, STARTING AFTER INTERACTIONS +C IJ=12: SR JCENTR, ENTRO() IN DATA FORMAT +C IJ=13: SR JCENTP +C IJ=14: SR JDECAX IF CLUSTER DECAY +C IJ=15: SR JSPLIT +C IJ=16: SR JFRADE +C IJ=17: SR RACPRO +C IJ=18: SR UTCLEA +C IJ=19: SR JINTA1, JINTA2, AFTER CALL UTCLEA +C IJ=20: SR JDECAS +C IJ=21: SR JDECAS (WITHOUT JDECAX) + ISHSUB=0 +C PRINT OPTION: +C IF ISHEVT.NE.0: FOR EVT#.NE.ISHEVT ISH IS SET TO 0 + ISHEVT=0 +C PRINT MARKS BETWEEN WHOM ISH IS SET TO ISH(INIT): + IPAGI=0 +C VERIFY OPTION FOR INPUT READING: + IVI=1 +C MAXIMUM IMPACT PARAMETER (BMAXIM=0=>CENTRAL): + BMAXIM=10000. +C MINIMUM IMPACT PARAMETER: + BMINIM=0. +C STORE ONLY STABLE PTL (0) OR ALSO PARENTS (1): + ISTMAX=0 +C RANDOM GENERATOR SEED + SEEDI=ISEED(1,1) + SEEDC=ISEED(2,1)+1.D9*ISEED(3,1) +C SUPPRESSION (1) OR NOT OF MESSAGES + ISUP=0 +C SUPPRESSION OF CALLING JFRADE (0). JFRADE=FRAGM+DECAY+RESCATTERING + IFRADE=1 +C.. DECAY SUPPRESSION. NDECAY SPECIFIES WHICH RESONANCES ARE NOT DECAY +C.. 0000001 : ALL RESONANCES +C.. 0000010 : K_SHORT/LONG (+-20) +C.. 0000100 : LAMBDA (+-2130) +C.. 0001000 : SIGMA (+-1130,+-2230) +C.. 0010000 : CASCADE (+-2330,+-1330) +C.. 0100000 : OMEGA (+-3331) +C.. 1000000 : PI0 (110) + NDECAY=1111110 +C.. DECAY SUPPRESSION. NDECAX SPECIFIES WHICH RESONANCES ARE NOT DECAY +C.. 0000001 : JPSI +C.. 0000010 : K_ZERO (+-230) +C.. 0000100 : DELTA (+-1111,+-1121,+-1221,+-2221) +C.. 0001000 : RHO,OMEGA,PHI (111,+-121,221,331) +C.. 0010000 : ETA (220) +C.. 0100000 : ETAPRIME (330) +C.. 1000000 : A0 (112), A+- (+-122) + NDECAX=0010000 +C.. DECAY SUPPRESSION. NDECAW SPECIFIES WHICH RESONANCES ARE NOT DECAY +C.. 0000001 : F0 (332) +C.. 0000010 : K* (+-131,+-231) + NDECAW=0 +C FILL ZZZZ HISTOGRAMS (1) OR NOT (0) +C IWZZZZ=0 +C FILL INTERMITTENCY HISTOGRAMS (1) OR NOT (0) +C IMIHIS=0 +C FILL SPACE-TIME HISTOGRAMS (1) OR NOT (0) + ISPHIS=0 +C FILL CLUSTER HISTOGRAMS (1) OR NOT (0) +C ICLHIS=0 +C FILL JPSI HISTOGRAMS (1) OR NOT (0) +C IJPHIS=0 +C RHO/RHO+PHI RATIO + RHOPHI=0.5 +C WSPA: ALL PTLS (1) OR ONLY INTERACTING PTLS (ELSE) + ISPALL=1 +C TMIN IN WSPA + WTMINI=-3.0 +C T-STEP IN WSPA + WTSTEP=1.0 +C ONLY CENTRAL POINT (1) OR LONGITUDINAL DISTRIBUTION (ELSE) IN WSPA + IWCENT=0 +C QUARK MASSES + SMAS=0. + UUMAS=0. + USMAS=0. + SSMAS=0. + +C CONSTANTS (PROTON MASS, PION MASS, PI, INFINITE) +C --------- +C PROM=0.94 + PROM=PAMA(14) +C PIOM=0.14 + PIOM=PAMA(8) + PI=3.141592654 + AINFIN=1.E+30 + +C INITIALIZATIONS +C --------------- + LAPROJ = 0 + MAPROJ = 0 + LATARG = 0 + MAPROJ = 0 + IDPROJ = 1120 + IDTARG = 1120 + DO 6 I = 1,99 + PROB(I) = 0. + ICBAC(I,1) = 0 + ICBAC(I,2) = 0 + ICFOR(I,1) = 0 + ICFOR(I,2) = 0 + 6 CONTINUE + PNLL = 0. + +C FEW INITIALIZATIONS FOR CROSS-SECTION CALCULATIONS +C -------------------------------------------------- + + IMSG=0 + JERR=0 + NTEVT=0 + NREVT=0 + NAEVT=0 + NRSTR=0 + NRPTL=0 + INOIAC=0 + ILAMAS=0 + NPTLU=0 + DO 44 ITAU = 1,MXTAU + VOLSUM(ITAU)=0. + VO2SUM(ITAU)=0. + NCLSUM(ITAU)=0 + 44 CONTINUE + DO 43 IEPS = 1,MXEPS + DO 43 IVOL = 1,MXVOL + DO 43 ITAU = 1,MXTAU + CLUST(ITAU,IVOL,IEPS) = 0. + 43 CONTINUE + IUTOTC=0 + IUTOTE=0 + + IF ( NPARAM .GT. 0 ) THEN + DO 3 N = 1,NPARAM + CALL UTLOW6(PARCHA(N)) + IF ( DEBUG ) WRITE(MDEBUG,*) PARCHA(N),PARVAL(N) + IF ( PARCHA(N) .EQ. 'AMPRIF' ) THEN + AMPRIF = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'AMSIAC' ) THEN + AMSIAC = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'AMUSEG' ) THEN + AMUSEG = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ANGMUE' ) THEN + ANGMUE = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'BAG4RT' ) THEN + BAG4RT = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'BMAXIM' ) THEN + BMAXIM = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'BMINIM' ) THEN + BMINIM = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'CORE ' ) THEN + CORE = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'CORLEN' ) THEN + CORLEN = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'CUTMSQ' ) THEN + CUTMSQ = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'CUTMSS' ) THEN + CUTMSS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'DELEPS' ) THEN + DELEPS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'DELMSS' ) THEN + DELMSS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'DELREM' ) THEN + DELREM = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'DELVOL' ) THEN + DELVOL = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ELEPTI' ) THEN + ELEPTI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ELEPTO' ) THEN + ELEPTO = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'EPSCRI' ) THEN + EPSCRI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'FCTRMX' ) THEN + FCTRMX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'GAUMX ' ) THEN + GAUMX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'GRICEL' ) THEN + GRICEL = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'GRIDEL' ) THEN + GRIDEL = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'GRIGAM' ) THEN + GRIGAM = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'GRIRSQ' ) THEN + GRIRSQ = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'GRISLO' ) THEN + GRISLO = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IAQU ' ) THEN + IAQU = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ICLHIS' ) THEN + ICLHIS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IDPM ' ) THEN + IDPM = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IENTRO' ) THEN + IENTRO = NINT(PARVAL(N)) + ELSEIF ( PARCHA(N) .EQ. 'IFRADE' ) THEN + IFRADE = NINT(PARVAL(N)) + ELSEIF ( PARCHA(N) .EQ. 'IJPHIS' ) THEN + IJPHIS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IMIHIS' ) THEN + IMIHIS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IOJINT' ) THEN + IOJINT = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IOPBRK' ) THEN + IOPBRK = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IOPENT' ) THEN + IOPENT = PARVAL(N) + IOPENT = MOD(IOPENT,10) + ELSEIF ( PARCHA(N) .EQ. 'IOPENU' ) THEN + IOPENU = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IOPTF ' ) THEN + IOPTF = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IOPTQ ' ) THEN + IOPTQ = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IPAGI ' ) THEN + IPAGI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IRESCL' ) THEN + IRESCL = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ISH ' ) THEN + ISH = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ISHEVT' ) THEN + ISHEVT = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ISHSUB' ) THEN + ISHSUB = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ISPALL' ) THEN + ISPALL = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ISPHIS' ) THEN + ISPHIS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ISTMAX' ) THEN + ISTMAX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'ISUP ' ) THEN + ISUP = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IVERSN' ) THEN + IVERSN = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IVI ' ) THEN + IVI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'IWCENT' ) THEN + IWCENT = NINT(PARVAL(N)) + ELSEIF ( PARCHA(N) .EQ. 'IWZZZZ' ) THEN + IWZZZZ = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'JPSI ' ) THEN + JPSI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'JPSIFI' ) THEN + JPSIFI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'KENTRO' ) THEN + KENTRO = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'KO1KO2' ) THEN + KO1KO2 = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'KUTDIQ' ) THEN + KUTDIQ = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'LABSYS' ) THEN + LABSYS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'MAXRES' ) THEN + MAXRES = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'NCLEAN' ) THEN + NCLEAN = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'NCOLMX' ) THEN + NCOLMX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'NDECAW' ) THEN + NDECAW = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'NDECAX' ) THEN + NDECAX = NINT(PARVAL(N)) + ELSEIF ( PARCHA(N) .EQ. 'NDECAY' ) THEN + NDECAY = NINT(PARVAL(N)) + ELSEIF ( PARCHA(N) .EQ. 'NEQMN ' ) THEN + NEQMN = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'NEQMX ' ) THEN + NEQMX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'NSTTAU' ) THEN + NSTTAU = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'NTRYMX' ) THEN + NTRYMX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'NUMTAU' ) THEN + NUMTAU = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'OVERLP' ) THEN + OVERLP = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PAREA ' ) THEN + PAREA = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PDIQUA' ) THEN + PDIQUA = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PISPN ' ) THEN + PISPN = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PROSEA' ) THEN + PROSEA = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PSPINH' ) THEN + PSPINH = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PSPINL' ) THEN + PSPINL = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PTF ' ) THEN + PTF = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PTH ' ) THEN + PTH = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PHARD ' ) THEN + PHARD = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PTMX ' ) THEN + PTMX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PTQ1 ' ) THEN + PTQ1 = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PTQ2 ' ) THEN + PTQ2 = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PTQ3 ' ) THEN + PTQ3 = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PUD ' ) THEN + PUD = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'PVALEN' ) THEN + PVALEN = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'QMUST ' ) THEN + CALL UTSTOP('VENINI: *** QMUST NOT USED ANYMORE! *** ') + ELSEIF ( PARCHA(N) .EQ. 'QMUST1' ) THEN + QMUST1 = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'QMUST2' ) THEN + QMUST2 = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'QMUST3' ) THEN + QMUST3 = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'RADIAC' ) THEN + RADIAC = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'RADIAS' ) THEN + RADIAS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'RHOPHI' ) THEN + RHOPHI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'RSTRAS' ) THEN + RSTRAS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'SEEDI ' ) THEN + SEEDI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'SIGJ ' ) THEN + SIGJ = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'SIGPPI' ) THEN + SIGPPI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'SMAS ' ) THEN + SMAS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'SSMAS ' ) THEN + SSMAS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'TAUMAX' ) THEN + TAUMAX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'TAUMIN' ) THEN + TAUMIN = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'TAUMX ' ) THEN + TAUMX = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'TAUNLL' ) THEN + TAUNLL = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'TAUREA' ) THEN + TAUREA = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'TENSN ' ) THEN + TENSN = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'THEMAS' ) THEN + THEMAS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'UENTRO' ) THEN + UENTRO = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'USMAS ' ) THEN + USMAS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'UUMAS ' ) THEN + UUMAS = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'WPROJ ' ) THEN + WPROJ = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'WTARG ' ) THEN + WTARG = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'WTMINI' ) THEN + WTMINI = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'WTSTEP' ) THEN + WTSTEP = PARVAL(N) + ELSEIF ( PARCHA(N) .EQ. 'YMXIMI' ) THEN + YMXIMI = PARVAL(N) + ENDIF + 3 CONTINUE + ENDIF + + IF ( ISPHIS .EQ. 1 ) LABSYS = 0 + IF ( IDPM .EQ. 1 ) THEN + IAQU = 0 + NEQMN = 2 + NEQMX = 3 + ENDIF + IF ( IOPENU .EQ. 2 ) THEN + CALL SMASSI(THEMAS) + IF ( ISH .EQ. 19 ) THEN + CALL SMASSP + CALL UTSTOP(' VENINI: ') + ENDIF + ENDIF + + IF ( IOJINT .EQ. 2 ) THEN + IF ( EPSCRI .LT. 0. ) THEN + RADIAC = 0. + RADIAS = 0. + ELSEIF ( EPSCRI .GT. 0. ) THEN + VOLBAR = PROM/EPSBAR*PI*0.25 +CDH RADIAC = (VOLBAR*0.5/PI)**0.3333333 + VOLMES = 0.455/EPSCRI*PI*0.25 +CDH RADIAS = (VOLMES*0.5/PI)**0.3333333 + ELSE + CALL UTSTOP('EPSCRI MUST NOT BE 0. ') + ENDIF + ENDIF + + CALL JDECIN(.FALSE.) +C INITIALIZE ALL PT DISTRIBUTIONS + CX = PTMX + QUAMA = 0. + IF ( IOPTF .EQ. 1 ) THEN + ROOT = SQRT(PTMX**2+QUAMA**2) + AUXIL = 2./PTF + BPTFU = (+0.25)*PTF**2*EXP((-AUXIL)*QUAMA)*(AUXIL*QUAMA+1.) + FPTFU = (-0.25)*PTF**2*EXP((-AUXIL)*ROOT)*(AUXIL*ROOT+1.)+BPTFU + CALL UTQUAF(SPTF,NPTF,XPTF,QPTFU,0.,.33*CX,.66*CX,CX) +C DO 199 N = 1,NPTF +C WRITE(IFCH,*) 'N,X,Q=',N,XPTF(N),QPTFU(N) +C199 CONTINUE + ELSE + AUXIL = 0.25*PI/PTF**2 + BPTFU = (+EXP((-AUXIL)* QUAMA**2))*0.5/AUXIL + FPTFU = (-EXP((-AUXIL)*(QUAMA**2+PTMX**2)))*0.5/AUXIL+BPTFU + ENDIF + + QUAMA = SMAS + IF ( QUAMA .NE. 0. ) THEN + IF ( IOPTF .EQ. 1 ) THEN + ROOT = SQRT(PTMX**2+SMAS**2) + AUXIL = 2./PTF + BPTFS = (+0.25)*PTF**2*EXP((-AUXIL)*SMAS)*(AUXIL*SMAS+1.) + FPTFS = (-0.25)*PTF**2*EXP((-AUXIL)*ROOT)*(AUXIL*ROOT+1.)+ + * BPTFS + CALL UTQUAF(SPTF,NPTF,XPTF,QPTFS,0.,.33*CX,.66*CX,CX) + ELSE + AUXIL = 0.25*PI/PTF**2 + BPTFS = (+EXP((-AUXIL)* SMAS**2))*0.5/AUXIL + FPTFS = (-EXP((-AUXIL)*(SMAS**2+PTMX**2)))*0.5/AUXIL+BPTFS + ENDIF + ELSE + DO 201 N = 1,NPTF + QPTFS(N) = QPTFU(N) + 201 CONTINUE + FPTFS = FPTFU + ENDIF + + QUAMA = UUMAS + IF ( QUAMA .NE. 0. ) THEN + IF ( IOPTF .EQ. 1 ) THEN + ROOT = SQRT(PTMX**2+UUMAS**2) + AUXIL = 2./PTF + BPTFUU = (+0.25)*PTF**2*EXP((-AUXIL)*UUMAS)*(AUXIL*UUMAS+1.) + FPTFUU = (-0.25)*PTF**2*EXP((-AUXIL)*ROOT)*(AUXIL*ROOT+1.)+ + * BPTFUU + CALL UTQUAF(SPTF,NPTF,XPTF,QPTFUU,0.,.33*CX,.66*CX,CX) + ELSE + AUXIL = 0.25*PI/PTF**2 + BPTFUU = EXP((-AUXIL)* UUMAS**2)*0.5/AUXIL + FPTFUU = (-EXP((-AUXIL)*(UUMAS**2+PTMX**2)))*0.5/AUXIL+BPTFUU + ENDIF + ELSE + DO 202 N = 1,NPTF + QPTFUU(N) = QPTFU(N) + 202 CONTINUE + FPTFUU = FPTFU + ENDIF + + QUAMA = USMAS + IF ( QUAMA .NE. 0. ) THEN + IF ( IOPTF .EQ. 1 ) THEN + ROOT = SQRT(PTMX**2+USMAS**2) + AUXIL = 2./PTF + BPTFUS = 0.25*PTF**2*EXP((-AUXIL)*USMAS)*(AUXIL*USMAS+1.) + FPTFUS = (-0.25)*PTF**2*EXP((-AUXIL)*ROOT)*(AUXIL*ROOT+1.)+ + * BPTFUS + CALL UTQUAF(SPTF,NPTF,XPTF,QPTFUS,0.,.33*CX,.66*CX,CX) + ELSE + AUXIL = 0.25*PI/PTF**2 + BPTFUS = EXP((-AUXIL)* USMAS**2)*0.5/AUXIL + FPTFUS = (-EXP((-AUXIL)*(USMAS**2+PTMX**2)))*0.5/AUXIL+BPTFUS + ENDIF + ELSE + DO 203 N = 1,NPTF + QPTFUS(N) = QPTFU(N) + 203 CONTINUE + FPTFUS = FPTFU + ENDIF + + QUAMA = SSMAS + IF ( QUAMA .NE. 0. ) THEN + IF ( IOPTF .EQ. 1 ) THEN + ROOT = SQRT(PTMX**2+SSMAS**2) + AUXIL = 2./PTF + BPTFSS = (+0.25)*PTF**2*EXP((-AUXIL)*SSMAS)*(AUXIL*SSMAS+1.) + FPTFSS = (-0.25)*PTF**2*EXP((-AUXIL)*ROOT)*(AUXIL*ROOT+1.)+ + * BPTFSS + CALL UTQUAF(SPTF,NPTF,XPTF,QPTFSS,0.,.33*CX,.66*CX,CX) + ELSE + AUXIL = 0.25*PI/PTF**2 + BPTFSS = EXP((-AUXIL)* SSMAS**2)*0.5/AUXIL + FPTFSS =(-EXP((-AUXIL)*(SSMAS**2+PTMX**2)))*0.5/AUXIL+BPTFSS + ENDIF + ELSE + DO 204 N = 1,NPTF + QPTFSS(N) = QPTFU(N) + 204 CONTINUE + FPTFSS = FPTFU + ENDIF + +C INITIALIZE FUNCTIONS FOR JPSI GENERATION + IF ( JPSI .EQ. 1 ) THEN + CX = GAUMX + CALL UTQUAF(SGAU,NGAU,XGAU,QGAU,0.,.33*CX,.66*CX,CX) + CX = PTMX + CALL UTQUAF(SPTJ,NPTJ,XPTJ,QPTJ,0.,.33*CX,.66*CX,CX) + ENDIF + +C INITIALIZE DENSITY DISTRIBUTION INTEGRALS FOR NITROGEN, OXYGEN, ARGON + MASSNR = 14. + R0 = 1.19*MASSNR**(.3333333) -1.61*MASSNR**(-.3333333) + CX = R0+FCTRMX*0.54 + RMTARG(1) = CX + CALL UTQUAF(SDENSI,NDET,XDET14,QDET14,0.,.33*CX,.66*CX,CX) + + MASSNR = 16. + R0 = 1.19*MASSNR**(.3333333) -1.61*MASSNR**(-.3333333) + CX = R0+FCTRMX*0.54 + RMTARG(2) = CX + CALL UTQUAF(SDENSI,NDET,XDET16,QDET16,0.,.33*CX,.66*CX,CX) + + MASSNR = 40. + R0 = 1.19*MASSNR**(.3333333) -1.61*MASSNR**(-.3333333) + CX = R0+FCTRMX*0.54 + RMTARG(3) = CX + CALL UTQUAF(SDENSI,NDET,XDET40,QDET40,0.,.33*CX,.66*CX,CX) + +C QDET99 AND XDET99 ARE NOT INITIALIZED + MTAR99 = 0 + + OPEN(UNIT=14,FILE='VENUSDAT',STATUS='OLD') + READ(14,*)(IDUMMY, XVA(I), QVAH(I), QVAPI(I), I=1,2049) + CLOSE(UNIT=14) + + WRITE(IFMT,105) FLOAT(IVERSN)/1000. + 105 FORMAT( + * ' !-----------------------------------------------------!' + */' ! V(ERY) E(NERGETIC) NU(CLEAR) S(CATTERING) !' + */' ! VENUS',F6.3,5X,'- K. WERNER !' + */' ! SUBROUTINE TURBOVERSION D. HECK !' + */' !-----------------------------------------------------!') + RETURN + END +*CMZ : 28/02/2002 12.36.15 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE VENLNK + +C----------------------------------------------------------------------- +C VEN(US) L(I)NK (TO CORSIKA) +C +C LINKS VENUS PACKAGE TO CORSIKA, NEEDS FIRST CALL OF VENINI +C THIS SUBROUTINE IS CALLED FROM SDPM. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,VENUS. + COMMON /VENUS/ ISH00,IVERVN,MTAR99,FVENUS,FVENSG + INTEGER ISH00,IVERVN,MTAR99 + LOGICAL FVENUS,FVENSG +*KEND. + + PARAMETER (KOLLMX=2500) + PARAMETER (MXEPS=10) + PARAMETER (NDEP=129) + PARAMETER (NDET=129) + PARAMETER (NPRBMS=20) + PARAMETER (NPTQ=129) + PARAMETER (NSTRU=2049) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CDEN/ MASSNR,RMX,R0 + COMMON /CIPIO/ IPIO + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /COL/ BIMP,BMAX,COORD(4,KOLLMX),DISTCE(KOLLMX) + * ,QDEP(NDEP),QDET14(NDET),QDET16(NDET),QDET40(NDET) + * ,QDET99(NDET),RMPROJ,RMTARG(4),XDEP(NDEP) + * ,XDET14(NDET),XDET16(NDET),XDET40(NDET) + * ,XDET99(NDET) + * ,KOLL,LTARG,NORD(KOLLMX),NPROJ,NRPROJ(KOLLMX) + * ,NRTARG(KOLLMX),NTARG + COMMON /CPRBMS/ PRBMS(NPRBMS) + COMMON /CPTQ/ QPTH(NPTQ),QPTQ(NPTQ),XPTQ(NPTQ),QPTQMX,QPTHMX + DOUBLE PRECISION SEEDC,SEEDI + COMMON /CSEED/ SEEDC,SEEDI + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /NEVNT/ NEVNT + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /PARO3/ ASUHAX(7),ASUHAY(7),OMEGA,SIGPPD,SIGPPE,UENTRO + * ,IWZZZZ + COMMON /PARO4/ GRICEL,GRIDEL,GRIGAM,GRIRSQ,GRISLO + COMMON /PARO5/ DELEPS,DELVOL + COMMON /QUARKM/ SMAS,SSMAS,USMAS,UUMAS + COMMON /STRU/ QSEP(NSTRU),QSET(NSTRU),QVAP(NSTRU) + * ,QVAT(NSTRU),XCUTAR,XSTRU(NSTRU) + * ,IDTG + COMMON /STRU2/ DELTA0,DELTA1,QSEH(NSTRU),QSEPI(NSTRU) + * ,QVAH(NSTRU),QVAPI(NSTRU),XSE(NSTRU),XVA(NSTRU) + + DOUBLE PRECISION ERRER,VALUE + INTEGER IFLAG + + COMMON /VENLIN/ PTQ1,PTQ2,PTQ3,QMUST1,QMUST2,QMUST3 + * ,IDTABL(100) + + SAVE + EXTERNAL SDENSI,SPTQ,SSE0,SVA0,SVA1 +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'VENLNK: TAR',SNGL(TAR) + + NSTRUC = NSTRU + IF ( DEBUG ) THEN + ISH = ISH00 + ELSE + ISH = 0 + ENDIF + NEVNT = ISHOWNO +C SET RANDOM NUMBER GENERATOR STATUS + SEEDC=ISEED(2,1)+1.D9*ISEED(3,1) +C CALCULATE ENERGY IN LAB SYSTEM FOR ELASTICITY FOR VARIOUS PROJECTILES + IF ( ITYPE .EQ. 1 ) THEN +C TREAT PHOTON PROJECTILES (FROM EGS) + CALL RMMAR(RD,1,1) + IF ( RD(1) .LE. 0.5 ) THEN + ITYPE = 7 + ELSE + ITYPE = 17 + ENDIF + ELAB = CURPAR(2) + CURPAR(2) = ELAB / PAMA(ITYPE) + ELSEIF ( ITYPE .LT. 100 ) THEN +C TREAT ORDINARY PROJECTILES + ELAB = CURPAR(2) * PAMA(ITYPE) + ELSE +C TREAT NUCLEI PROJECTILES + NPROT = MOD(ITYPE,100) + NNEUT = ITYPE/100 - NPROT + ELAB = CURPAR(2) * ( PAMA(14)*NPROT + PAMA(13)*NNEUT ) + ENDIF +C SET TARGET PARAMETERS + MATARG = NINT(TAR) + IDTARG = 1120 + AMTARG = PAMA(14) + IF ( TAR. EQ. 14.D0 ) THEN + LTARG = 1 + LATARG = 7 + ELSEIF ( TAR .EQ. 16.D0 ) THEN + LTARG = 2 + LATARG = 8 + ELSEIF ( TAR .EQ. 40.D0 ) THEN + LTARG = 3 + LATARG = 18 + ELSE + WRITE(MONIOU,*) 'VENLNK: UNDEFINED TARGET TAR=',SNGL(TAR) + ENDIF + +C FOR THE CASE OF AN ARBITRARY TARGET (NOT AIR) + IF ( LTARG .GT. 3 ) THEN + MASSNR = MATARG + IF ( MASSNR .GT. 1 ) THEN + IF ( MASSNR .NE. MTAR99 ) THEN + R0 = 1.19*MASSNR**(.3333333) -1.61*MASSNR**(-.3333333) + CX = R0+FCTRMX*0.54 + RMTARG(4) = CX + CALL UTQUAF(SDENSI,NDET,XDET99,QDET99,0.,.33*CX,.66*CX,CX) + MTAR99 = MATARG + ENDIF + ELSE + RMTARG(4) = 0. + ENDIF + ENDIF + +C SET PROJECTILE PARAMETERS + IF ( ITYPE .LT. 100 ) THEN + IDPROJ = IDTABL(ITYPE) + IF ( IDPROJ .EQ. 20 .OR. IDPROJ .EQ. -20 ) THEN +C TREAT NEUTRAL KAONS (K(0)S AND K(0)L) + CALL RMMAR(RD,1,1) + IF ( RD(1) .LE. 0.5 ) THEN + IDPROJ = 230 + ELSE + IDPROJ = -230 + ENDIF + ELSEIF ( IDPROJ .EQ. 2130 ) THEN +C VENUS CANNOT TREAT LAMBDA, TAKE INSTEAD SIGMA(0)) + IDPROJ = 1230 + ELSEIF ( IDPROJ .EQ. -2130 ) THEN +C VENUS CANNOT TREAT ANTI-LAMBDA, TAKE INSTEAD ANTI-SIGMA(0)) + IDPROJ = -1230 + ENDIF +C ALL OTHER PARTICLE CODES UNCHANGED + CALL IDMASS(IDPROJ,AMPROJ) + LAPROJ = -1 + MAPROJ = 1 + PNLL = CURPAR(2)*AMPROJ + ELSE +C PROJECTILE IS NUCLEUS + IDPROJ = 1120 + CALL IDMASS(IDPROJ,AMPROJ) + LAPROJ = MOD(ITYPE,100) + MAPROJ = ITYPE/100 + PNLL = CURPAR(2)*(PAMA(14)+PAMA(13))*0.5 + ENDIF + + IF ( ABS(IDPROJ) .LT. 1000 ) THEN + IF ( ABS(IDPROJ) .EQ. 230 .OR. ABS(IDPROJ) .EQ. 130 ) THEN +C DIFFRACTIVE PROBABILITY FOR KAON PROJECTILES + WPROJ = 0.24 + ELSE +C DIFFRACTIVE PROBABILITY FOR PION PROJECTILES + WPROJ = 0.20 + ENDIF + ELSE +C DIFFRACTIVE PROBABILITY FOR BARYON PROJECTILES + WPROJ = 0.32 + ENDIF +C DIFFRACTIVE PROBABILITY FOR TARGET (ALWAYS NUCLEONS) + WTARG = 0.32 + + ENGY = SQRT( 2.*SQRT(PNLL**2+AMPROJ**2)*AMTARG+AMTARG**2 + * +AMPROJ**2 ) + IF ( DEBUG ) WRITE(MDEBUG,*) 'VENLNK: ELAB = ',PNLL, + * ' ENGY = ',ENGY +CDH IF ( ENGY .LT. 12. ) THEN + IF ( ENGY .LT. 9.5 ) THEN + WRITE(IFMT,*) 'VENLNK: ENGY, IDPROJ=',ENGY,IDPROJ + CALL UTSTOP('VENLNK: INCIDENT ENERGY TOO SMALL ') + ENDIF + ENGYI = ENGY + PNLLI = PNLL + IF ( PNLL .LT. 1.E2 * AMPROJ ) THEN + TRM = SQRT(PNLL**2+AMPROJ**2) + ENGY = SQRT((TRM+AMTARG-PNLL)*(TRM+AMTARG+PNLL)) + ELSE + TRM = AMPROJ**2*0.5/PNLL+AMTARG + ENGY = SQRT(TRM*(2.*PNLL+TRM)) + ENDIF + D1 = ABS(PNLLI-PNLL)/PNLL + D2 = ABS(ENGYI-ENGY)/ENGY + IF ( D1 .GT. 1.E-3 .OR. D2 .GT. 1.E-3 ) THEN + IF ( ISH .GE. 0 ) THEN + CALL UTMSG('VENLNK') + WRITE(IFCH,*) '***** PNLL,PNLLI:',PNLL,PNLLI + WRITE(IFCH,*) '***** ENGY,ENGYI:',ENGY,ENGYI + CALL UTMSGF + ENDIF + ENDIF + S = ENGY**2 + SROOTI = 1./ENGY + PNLLX = UTPCM(ENGY,AMPROJ,AMTARG) + YHAHA = LOG((SQRT(PNLL**2+S)+PNLL)/ENGY) + YPJTL = LOG((SQRT(PNLL**2+AMPROJ**2)+PNLL)/AMPROJ) + IF ( ISH .GE. 91 ) WRITE(IFCH,*) 'VENLNK: YPJTL=',YPJTL + + ENGYLG = LOG(ENGY) + QMUST = QMUST1+QMUST2*ENGYLG+QMUST3*ENGYLG**2 + PTQ = PTQ1+PTQ2*ENGYLG+PTQ3*ENGYLG**2 +CDH PHARD = 0.030+0.12*(LOG10(S)-LOG10(30.**2)) + PHARD = 0.030+0.12*(LOG10(S)-2.9542425) + PHARD = MIN(1.,PHARD) + PHARD = MAX(0.030,PHARD) + +C PROJECTILE + XCUT = CUTMSQ*SROOTI + XCUT2 = XCUT**2 + IF ( ABS(IDPROJ) .GE. 1000 ) THEN +C STRUCTURE FUNCTION INTEGRAL FOR BARYONS OF PROJECTILE + IPIO = 0 + CALL UINTEG(VALUE,SSE0,0.D0,1.D0,0.D0,1.D-5,1,ERRER,IFLAG) + IF ( IFLAG .GT. 3 .AND. ISH .GT. 0 ) + * WRITE(IFCH,*) 'VENLNK: SSE0:IFLAG=',IFLAG + QSEPC = VALUE + CALL UINTEG(VALUE,SVA0,0.D0,1.D0,0.D0,1.D-5,1,ERRER,IFLAG) + IF ( IFLAG .GT. 3 .AND. ISH .GT. 0 ) + * WRITE(IFCH,*) 'VENLNK: SVA0:IFLAG=',IFLAG + QVAPC = VALUE + ELSE +C STRUCTURE FUNCTION INTEGRAL FOR MESONS OF PROJECTILE + IPIO = 1 + A0 = -5.0 + 6.6666667*XCUT2 - 0.53333333*XCUT2**2 + A1 = 5.0 - 1.875*XCUT2 + A2 = -3.3333333 + 0.26666667*XCUT2 + A3 = 1.25 + A4 = -0.2 + ROOT = SQRT(XCUT2+1.) + QSEPC = 0.9*( (1.-XCUT2*A1)*( LOG(1.+ROOT)-LOG(XCUT) ) + * - XCUT*A0 + ROOT*(A0+A1+A2+A3+A4) ) + CALL UINTEG(VALUE,SVA1,0.D0,1.D0,0.D0,1.D-5,1,ERRER,IFLAG) + IF ( IFLAG .GT. 3 .AND. ISH .GT. 0 ) + * WRITE(IFCH,*) 'VENLNK: SVA1:IFLAG=',IFLAG + QVAPC = VALUE + ENDIF + IDTG = IPIO + +C TARGET + IF ( IDTG .EQ. 1 ) THEN + IF ( ABS(IDTARG) .GE. 1000 ) THEN +C STRUCTURE FUNCTION INTEGRAL FOR BARYONS OF TARGET + IPIO = 0 + CALL UINTEG(VALUE,SSE0,0.D0,1.D0,0.D0,1.D-5,1,ERRER,IFLAG) + IF ( IFLAG .GT. 3 .AND. ISH .GT. 0 ) + * WRITE(IFCH,*) 'VENLNK: SSE0:IFLAG=',IFLAG + QSETC = VALUE + CALL UINTEG(VALUE,SVA0,0.D0,1.D0,0.D0,1.D-5,1,ERRER,IFLAG) + IF ( IFLAG .GT. 3 .AND. ISH .GT. 0 ) + * WRITE(IFCH,*) 'VENLNK: SVA0:IFLAG=',IFLAG + QVATC = VALUE + ELSE + IPIO=1 + QVATC = QVAPC + QSETC = QSEPC + ENDIF + ELSE + IF ( ABS(IDTARG) .GE. 1000 ) THEN + IPIO = 0 + QVATC = QVAPC + QSETC = QSEPC + ELSE +C STRUCTURE FUNCTION INTEGRAL FOR BARYONS OF TARGET + IPIO=1 + A0 = -5.0 + 6.6666667*XCUT2 - 0.53333333*XCUT2**2 + A1 = 5.0 - 1.875*XCUT2 + A2 = -3.3333333 + 0.26666667*XCUT2 + A3 = 1.25 + A4 = -0.2 + ROOT = SQRT(XCUT2+1.) + QSETC = 0.9*( (1.-XCUT2*A1)*( LOG(1.+ROOT)-LOG(XCUT) ) + * - XCUT*A0 + ROOT*(A0+A1+A2+A3+A4) ) + CALL UINTEG(VALUE,SVA1,0.D0,1.D0,0.D0,1.D-5,1,ERRER,IFLAG) + IF ( IFLAG .GT. 3 .AND. ISH .GT. 0 ) + * WRITE(IFCH,*) 'VENLNK: SVA1:IFLAG=',IFLAG + QVATC = VALUE + ENDIF + ENDIF + IF ( ISH .EQ. 16 .OR. DEBUG ) THEN + WRITE(IFCH,301) QVAPC, QSEPC, QVATC, QSETC + 301 FORMAT(' VENLNK: QVAPC, QSEPC, QVATC, QSETC=',4(F10.7,2X)) + ENDIF + + IF ( PROSEA .GE. 0. ) THEN + QVAPC = 1.0 + QVATC = 1.0 + QSEPC = PROSEA + QSETC = PROSEA + ENDIF + + XCUT = CUTMSS*SROOTI + XCUTAR = XCUT + B = MIN( 0.05, XCUT*500. ) + A = MIN( 0.2*B, XCUT*100. ) + PNLLLG = LOG(PNLL) + DELTA0 = EXP(-2.791922 - 0.2091742 * PNLLLG) + DELTA1 = EXP(-3.885293 - 0.2029558 * PNLLLG) + CALL UTQSEA(A,B,1.) + IF ( XCUT .LT. 0.04 ) THEN + NEND=1.+REAL(NSTRUC)*2./PI*ACOS(1.-2./PI*ACOS(1.-25.*XCUT)) + ELSE + NEND = NSTRUC + ENDIF + + IF ( ABS(IDPROJ) .GE. 1000 ) THEN + IPIO = 0 + DO 203 N = 1,NSTRUC + QSEP(N) = QSEH(N) + 203 CONTINUE + DO 2031 N = NEND,NSTRUC + QVAP(N) = QVAH(N) - DELTA0 + 2031 CONTINUE + ELSE + IPIO = 1 + DO 204 N = 1,NSTRUC + QSEP(N) = QSEPI(N) + 204 CONTINUE + DO 2041 N = NEND,NSTRUC + QVAP(N) = QVAPI(N) - DELTA1 + 2041 CONTINUE + ENDIF + CALL UTQVAL(QVAP,NEND) + + IF ( IDTG .EQ. 0 ) THEN + IF ( ABS(IDTARG) .GE. 1000 ) THEN + IPIO = 0 + DO 205 N = 1,NSTRUC + QSET(N) = QSEP(N) + QVAT(N) = QVAP(N) + 205 CONTINUE + ELSE + IPIO = 1 + DO 209 N = 1,NSTRUC + QSET(N) = QSEPI(N) + 209 CONTINUE + DO 2091 N = NEND,NSTRUC + QVAT(N) = QVAPI(N) - DELTA1 + 2091 CONTINUE + CALL UTQVAL(QVAT,NEND) + ENDIF + + ELSE + IF ( ABS(IDTARG) .GE. 1000 ) THEN + IPIO = 0 + DO 210 N = 1,NSTRUC + QSET(N) = QSEH(N) + 210 CONTINUE + DO 2101 N = NEND,NSTRUC + QVAT(N) = QVAH(N) - DELTA0 + 2101 CONTINUE + CALL UTQVAL(QVAT,NEND) + + ELSE + IPIO = 1 + DO 216 N = 1,NSTRUC + QSET(N) = QSEP(N) + QVAT(N) = QVAP(N) + 216 CONTINUE + ENDIF + ENDIF + + IF ( ISH .EQ. 21 ) THEN + CALL UTHSEA + CALL UTSTOP(' VENLNK: ') + ENDIF + + QPTHMX = 0.5/PTH**2-PTH**2/(2.*(PTH**2+PTMX**2)**2) + IF ( IOPTQ .EQ. 2 ) THEN + QPTQMX = 1. - EXP((-PI)*PTMX**2/(4.*PTQ**2) ) + ELSEIF ( IOPTQ .EQ. 3 ) THEN + QPTQMX = 1. - PTQ**2/(PTQ**2+PTMX**2) + ELSE + CX = PTMX + CALL UTQUAF(SPTQ,NPTQ,XPTQ,QPTQ,0.,.33*CX,.66*CX,CX) + ENDIF + + SIGPPI = -1.0 +C CALCULATE ENERGY DEPENDENT CROSS-SECTION FOR BARYONS + CALL RACPRO('GRI',QMUST,NPRBMS,PRBMS) + IF ( ABS(IDPROJ) .LE. 120 .OR. ABS(IDPROJ) .EQ. 220 ) THEN +C CROSS-SECTION FOR PIONS (OR ETA FOR PHOTONS FROM EGS) + SIGPPI = SIGPPI * 0.6667 + ELSEIF ( ABS(IDPROJ) .EQ. 130 .OR. ABS(IDPROJ) .EQ. 230 ) THEN +C CROSS-SECTION FOR KAONS + SIGPPI = SIGPPI * 0.5541 + ENDIF + + MASSNR = MAPROJ + RMPROJ = 0. + IF ( MASSNR .GT. 1 ) THEN + R0 = 1.19*MASSNR**(.3333333) -1.61*MASSNR**(-.3333333) + CX = R0+FCTRMX*0.54 + RMPROJ = CX + CALL UTQUAF(SDENSI,NDEP,XDEP,QDEP,0.,.33*CX,.66*CX,CX) + ENDIF + + IF ( IDPM .EQ. 1 ) THEN + QSEPC = 0. + QSETC = 0. + ENDIF + BMAX = RMPROJ+RMTARG(LTARG) + + IF ( ISH .GE. 91 ) WRITE(IFCH,*) 'VENLNK: AVENUS IS NOW CALLED' + CALL AVENUS + +C NOW BRING PARTICLES TO CORSIKA STACK + CALL VSTORE + + IF ( ISH .GE. 91 ) WRITE(IFCH,*) 'VENLNK: (EXIT)' + RETURN + END +*CMZ : 11/07/2000 10.08.31 by D. HECK IK3 FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 21/11/96 +C======================================================================= + + SUBROUTINE VENSIG(ELAB,ITYPV) + +C----------------------------------------------------------------------- +C VEN(US) SIG(MAS) +C +C CALCULATES INELASTIC HADRON-AIR CROSS-SECTIONS FOR VENUS MODEL +C NUCLEUS-AIR CROSS-SECTIONS ARE DETERMINED BY P-P CROSS-SECTIONS AND +C THE CORSIKA GLAUBER TABLES (SEE BOX2) +C THIS SUBROUTINE IS CALLED FROM BOX2. +C ARGUMENTS: +C ELAB = LABORATORY ENERGY (IN GEV) +C ITYPV = HADRON TYPE: 1 = NUCLEON, 2 = PION, 3 = KAON +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEEP,VENSSG. + COMMON /VENSSG/ FRNVKL,FRNVPIL,FRNVPL,FRNOVKL,FRNOVPIL,FRNOVPL, + * SGVKL,SGVPIL,SGVPL,SVPPL + DOUBLE PRECISION FRNVKL(11), FRNVPIL(11), FRNVPL(11), + * FRNOVKL(11),FRNOVPIL(11),FRNOVPL(11), + * SGVKL(11),SGVPIL(11),SGVPL(11),SVPPL(11) +*KEND. + + DOUBLE PRECISION DELTAE,ELAB,SECT,WK(3),YE + INTEGER I,ITYPV,JE + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'VENSIG: ELAB=',SNGL(ELAB), + * ' ITYPV=',ITYPV + +C DETERMINE ENERGY INTERVAL FOR INTERPOLATION + YE = DLOG10(ELAB) + IF ( YE .LT. 1.D0 ) YE = 1.D0 + JE = INT(YE) + IF ( JE .GT. 9 ) JE = 9 + DELTAE = YE - JE + WK(3) = DELTAE * (DELTAE-1.D0) * .5D0 + WK(1) = 1.D0 - DELTAE + WK(3) + WK(2) = DELTAE - 2.D0 * WK(3) + + IF ( ITYPV .EQ. 1 ) THEN +C FOR BARYON PROJECTILES + SECT = 0.D0 + DO 16 I = 1,3 + SECT = SECT + SGVPL(JE+I-1)*WK(I) + 16 CONTINUE + SIGAIR = EXP(SECT) + SECT = 0.D0 + DO 17 I = 1,3 + SECT = SECT + FRNVPL(JE+I-1)*WK(I) + 17 CONTINUE + FRACTN = EXP(SECT) + SECT = 0.D0 + DO 18 I = 1,3 + SECT = SECT + FRNOVPL(JE+I-1)*WK(I) + 18 CONTINUE + FRCTNO = EXP(SECT) + SIGMA = 0.D0 + + ELSEIF ( ITYPV .EQ. 2 ) THEN +C FOR PION PROJECTILES + SECT = 0.D0 + DO 26 I = 1,3 + SECT = SECT + SGVPIL(JE+I-1)*WK(I) + 26 CONTINUE + SIGAIR = EXP(SECT) + SECT = 0.D0 + DO 27 I = 1,3 + SECT = SECT + FRNVPIL(JE+I-1)*WK(I) + 27 CONTINUE + FRACTN = EXP(SECT) + SECT = 0.D0 + DO 28 I = 1,3 + SECT = SECT + FRNOVPIL(JE+I-1)*WK(I) + 28 CONTINUE + FRCTNO = EXP(SECT) + SIGMA = 0.D0 + + ELSEIF ( ITYPV .EQ. 3 ) THEN +C FOR KAON PROJECTILES + SECT = 0.D0 + DO 36 I = 1,3 + SECT = SECT + SGVKL(JE+I-1)*WK(I) + 36 CONTINUE + SIGAIR = EXP(SECT) + SECT = 0.D0 + DO 37 I = 1,3 + SECT = SECT + FRNVKL(JE+I-1)*WK(I) + 37 CONTINUE + FRACTN = EXP(SECT) + SECT = 0.D0 + DO 38 I = 1,3 + SECT = SECT + FRNOVKL(JE+I-1)*WK(I) + 38 CONTINUE + FRCTNO = EXP(SECT) + SIGMA = 0.D0 + + ELSEIF ( ITYPV .GE. 100 ) THEN +C FOR NUCLEUS PROJECTILES DETERMINE ONLY NN CROSS-SECTION + SIGAIR = 0.D0 + FRACTN = 0.D0 + FRCTNO = 0.D0 + SIGMA = 0.D0 + DO 47 I = 1,3 + SIGMA = SIGMA + SVPPL(JE+I-1)*WK(I) + 47 CONTINUE + SIGMA = EXP(SIGMA) + + ELSE + WRITE(MONIOU,444) (CURPAR(I),I=1,9) + 444 FORMAT(' VENSIG: CURPAR=',1P,9E10.3) + WRITE(MONIOU,*) 'VENSIG: ILLEGAL PROJECTILE TYP =',ITYPV + STOP + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,*) 'VENSIG: SIGMA=',SNGL(SIGMA), + * ' SIGAIR=',SNGL(SIGAIR) + + RETURN + END +*CMZ : 11/07/2000 10.08.31 by D. HECK IK3 FZK KARLSRUHE +*-- Author : D. HECK IK3 FZK KARLSRUHE 21/11/96 +C======================================================================= + + SUBROUTINE VENSIGINI + +C----------------------------------------------------------------------- +C VEN(US) SIG(MAS) INI(TIALIZATION) +C +C INITIALIZES INELASTIC CROSS-SECTION +C THIS SUBROUTINE IS CALLED FROM START. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,VENSSG. + COMMON /VENSSG/ FRNVKL,FRNVPIL,FRNVPL,FRNOVKL,FRNOVPIL,FRNOVPL, + * SGVKL,SGVPIL,SGVPL,SVPPL + DOUBLE PRECISION FRNVKL(11), FRNVPIL(11), FRNVPL(11), + * FRNOVKL(11),FRNOVPIL(11),FRNOVPL(11), + * SGVKL(11),SGVPIL(11),SGVPL(11),SVPPL(11) +*KEND. + + DOUBLE PRECISION AI,ELAB(11),FRNVK(11),FRNVPI(11),FRNVP(11), + * FRNOVK(11),FRNOVPI(11),FRNOVP(11), + * SIGP(11),SIGPI(11),SIGK(11), SPP(11) + INTEGER I + SAVE +C THE CROSS-SECTION TABLES START AT ELAB=10., 100., 1000., .... +C BUT AFTERWARDS IS USED ONLY ABOVE 80 GEV +C PROTON AIR INELASTIC CROSS-SECTION + DATA SIGP /0.241E+03, + * 0.264E+03,0.287E+03,0.311E+03,0.334E+03,0.358E+03, + * 0.381E+03,0.405E+03,0.429E+03,0.454E+03,0.478E+03/ +C PION AIR INELASTIC CROSS-SECTION + DATA SIGPI/0.182E+03, + * 0.201E+03,0.222E+03,0.242E+03,0.263E+03,0.284E+03, + * 0.303E+03,0.323E+03,0.346E+03,0.363E+03,0.386E+03/ +C KAON AIR INELASTIC CROSS-SECTION + DATA SIGK /0.157E+03, + * 0.176E+03,0.195E+03,0.215E+03,0.234E+03,0.253E+03, + * 0.270E+03,0.290E+03,0.311E+03,0.328E+03,0.348E+03/ +C PROTON NITROGEN INELASTIC CROSS-SECTION + DATA FRNVP /0.184E+03, + * 0.202E+03,0.219E+03,0.239E+03,0.255E+03,0.276E+03, + * 0.289E+03,0.311E+03,0.329E+03,0.349E+03,0.368E+03/ +C PION NITROGEN INELASTIC CROSS-SECTION + DATA FRNVPI/0.137E+03, + * 0.153E+03,0.169E+03,0.185E+03,0.201E+03,0.217E+03, + * 0.232E+03,0.246E+03,0.265E+03,0.278E+03,0.296E+03/ +C KAON NITROGEN INELASTIC CROSS-SECTION + DATA FRNVK /0.119E+03, + * 0.134E+03,0.149E+03,0.164E+03,0.179E+03,0.194E+03, + * 0.207E+03,0.221E+03,0.239E+03,0.251E+03,0.266E+03/ +C PROTON NITROGEN+OXYGEN INELASTIC CROSS-SECTION + DATA FRNOVP /0.238E+03, + * 0.261E+03,0.284E+03,0.309E+03,0.331E+03,0.357E+03, + * 0.375E+03,0.401E+03,0.424E+03,0.450E+03,0.474E+03/ +C PION NITROGEN+OXYGEN INELASTIC CROSS-SECTION + DATA FRNOVPI/0.178E+03, + * 0.199E+03,0.220E+03,0.240E+03,0.261E+03,0.281E+03, + * 0.300E+03,0.319E+03,0.343E+03,0.360E+03,0.382E+03/ +C KAON NITROGEN+OXYGEN INELASTIC CROSS-SECTION + DATA FRNOVK /0.157E+03, + * 0.175E+03,0.193E+03,0.212E+03,0.232E+03,0.251E+03, + * 0.268E+03,0.287E+03,0.308E+03,0.325E+03,0.345E+03/ +C PROTON PROTON INELASTIC CROSS-SECTION +* DATA SPP / 24.705D0, +* * 28.749D0,33.001D0,37.675D0,42.785D0,48.348D0, +* * 54.381D0,60.897D0,67.905D0,75.415D0,83.433D0 / +C PROTON PROTON INELASTIC CROSS-SECTION (INCLUDING DIFFRACTION) +C (MODIFIED APR 2ND, 1997) + DATA SPP / 27.444D0, + * 31.599D0,36.382D0,41.693D0,47.555D0,54.000D0, + * 61.059D0,68.756D0,77.113D0,86.146D0,95.870D0 / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'VENSIGINI: START' + +C FORM LOGARITH OF THE CROSS-SECTIONS FOR BETTER INTERPOLATION + DO 10 I = 1,11 + SGVPL(I) = LOG(SIGP(I)) + SGVPIL(I) = LOG(SIGPI(I)) + SGVKL(I) = LOG(SIGK(I)) + FRNVKL(I) = LOG(FRNVK(I)) + FRNVPIL(I) = LOG(FRNVPI(I)) + FRNVPL(I) = LOG(FRNVP(I)) + FRNOVKL(I) = LOG(FRNOVK(I)) + FRNOVPIL(I) = LOG(FRNOVPI(I)) + FRNOVPL(I) = LOG(FRNOVP(I)) + SVPPL(I) = LOG(SPP(I)) + 10 CONTINUE + IF ( DEBUG ) THEN + WRITE(MDEBUG,25) + 25 FORMAT(' LOGARITHMS OF THE INELASTIC CROSS-SECTIONS (MBARN)'/ + * ' ELAB(GEV) SIG(P,P) ', + * 'SIG(P,AIR) SG(PI,AIR) SIG(K,AIR)') + DO 30 I = 1,11 + AI = FLOAT(I) + ELAB(I) = 10.D0**AI + WRITE(MDEBUG,26) ELAB(I),SVPPL(I), + * SGVPL(I),SGVPIL(I),SGVKL(I) + 26 FORMAT(1X,1P,E9.3,4(1X,E10.4)) + 30 CONTINUE + WRITE(MDEBUG,*) 'VENSIGINI: END' + ENDIF + + RETURN + END +*CMZ : 28/02/2002 12.36.16 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE VSTORE + +C----------------------------------------------------------------------- +C V(ENUS PARTICLES) STORE (INTO CORSIKA STACK) +C +C STORES VENUS OUTPUT PARTICLES INTO CORSIKA STACK +C THIS SUBROUTINE IS CALLED FROM VENLNK. +C +C DESIGN : D. HECK IK3 FZK KARLSRUHE +C----------------------------------------------------------------------- + +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,DPMFLG. + COMMON /DPMFLG/ NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM + INTEGER NFLAIN,NFLDIF,NFLPI0,NFLCHE,NFLPIF,NFRAGM +*KEEP,ELADPM. + COMMON /ELADPM/ ELMEAN,ELMEAA,IELDPM,IELDPA + DOUBLE PRECISION ELMEAN(40),ELMEAA(40) + INTEGER IELDPM(40,13),IELDPA(40,13) +*KEEP,ELASTY. + COMMON /ELASTY/ ELAST + DOUBLE PRECISION ELAST +*KEEP,INTER. + COMMON /INTER/ AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN, + * IDIF,ITAR + DOUBLE PRECISION AVCH,AVCH3,DC0,DLOG,DMLOG,ECMDIF,ECMDPM,ELAB, + * FNEUT,FNEUT2,GNU,PLAB,POSC2,POSC3,POSN2,POSN3, + * RC3TO2,S,SEUGF,SEUGP,SLOG,SLOGSQ,SMLOG, + * WIDC2,WIDC3,WIDN2,WIDN3,YCM,YY0,ZN + INTEGER IDIF,ITAR +*KEEP,ISTA. + COMMON /ISTA/ IFINET,IFINNU,IFINKA,IFINPI,IFINHY + INTEGER IFINET,IFINNU,IFINKA,IFINPI,IFINHY +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MULT. + COMMON /MULT/ EKINL,MSMM,MULTMA,MULTOT + DOUBLE PRECISION EKINL + INTEGER MSMM,MULTMA(40,13),MULTOT(40,13) +*KEEP,PAM. + COMMON /PAM/ PAMA,SIGNUM,RESTMS + DOUBLE PRECISION PAMA(6000),SIGNUM(6000),RESTMS(6000) +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,PARPAE. + DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM + * ,WEIGHT + * ,HAPP,COSTAP,COSTEA + EQUIVALENCE (CURPAR(2), GAMMA ), (CURPAR(3), COSTHE), + * (CURPAR(4), PHI ), (CURPAR(5), H ), + * (CURPAR(6), T ), (CURPAR(7), X ), + * (CURPAR(8), Y ), (CURPAR(9), CHI ), + * (CURPAR(10),BETA ), (CURPAR(11),GCM ), + * (CURPAR(12),ECM ) + * ,(CURPAR(13),WEIGHT) + * ,(CURPAR(14),HAPP ), (CURPAR(15),COSTAP), + * (CURPAR(16),COSTEA) +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,REST. + COMMON /REST/ CONTNE,TAR,LT + DOUBLE PRECISION CONTNE(3),TAR + INTEGER LT +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,SIGM. + COMMON /SIGM/ SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO + DOUBLE PRECISION SIGMA,SIGANN,SIGAIR,FRACTN,FRCTNO +*KEND. + + PARAMETER (KOLLMX=2500) + PARAMETER (MXPTL=70000) + PARAMETER (MXSTR=3000) + PARAMETER (NDEP=129) + PARAMETER (NDET=129) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CEVT/ BIMEVT,COLEVT,EGYEVT,PHIEVT,PMXEVT + * ,KOLEVT,NEVT,NPJEVT,NTGEVT + COMMON /COL/ BIMP,BMAX,COORD(4,KOLLMX),DISTCE(KOLLMX) + * ,QDEP(NDEP),QDET14(NDET),QDET16(NDET),QDET40(NDET) + * ,QDET99(NDET),RMPROJ,RMTARG(4),XDEP(NDEP) + * ,XDET14(NDET),XDET16(NDET),XDET40(NDET) + * ,XDET99(NDET) + * ,KOLL,LTARG,NORD(KOLLMX),NPROJ,NRPROJ(KOLLMX) + * ,NRTARG(KOLLMX),NTARG + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /CSTR/ PSTR(5,MXSTR),ROTSTR(3,MXSTR),XORSTR(4,MXSTR) + * ,ICSTR(4,MXSTR),IORSTR(MXSTR),IRLSTR(MXSTR),NSTR + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /PARO3/ ASUHAX(7),ASUHAY(7),OMEGA,SIGPPD,SIGPPE,UENTRO + * ,IWZZZZ + + DOUBLE PRECISION EA,ELASTI,EMAX,COSTET,PHIV,PL2,PT2,PTM +CC DOUBLE PRECISION GAMMAX + DOUBLE PRECISION PFRX(60),PFRY(60) + INTEGER ITYP(60),NRPTLA(MXPTL) + SAVE +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'VSTORE:' + +C NUMBER OF SPECTATORS OF REMAINING NUCLEUS IS NREST + NREST = ITYPE/100 - NPJEVT + IREST = ITYPE + NNEW = 0 + INEW = 0 + ETOT = 0. + ELASTI = 0. + NZNEW = 0 + NNNEW = 0 + KNEW = 0 + + LEVT = 1 + LPTL = 3 + NPTLS = 0 + DO 1 I = 1,NPTL + NRPTLA(I) = -999 + IF ( ISTPTL(I) .GT. ISTMAX ) GOTO 1 + NPTLS = NPTLS+1 + NRPTLA(I) = NPTLS + 1 CONTINUE + +C EVENT VARIABLES: +C LEVT................... RECORD LABEL (LEVT=1) +C NREVT.................. EVENT NUMBER +C NPTLS ................. NUMBER OF (STORED!) PARTICLES PER EVENT +C BIMEVT ................ IMPACT PARAMETER +C KOLEVT,COLEVT ......... REAL/EFFECTIVE # OF COLLISIONS +C PMXEVT ................ REFERENCE MOMENTUM +C EGYEVT ................ PP CM ENERGY (HAD) OR STRING ENERGY (STR) +C NPJEVT,NTGEVT ......... # OF PROJ/TARG PARTICIPANTS + + GNU = KOLEVT + GNU = COLEVT +CC GAMMAX = 0.D0 + EMAX = 0.D0 + +C PARTICLE LOOP + DO 5 I = 1,NPTL + IF ( NRPTLA(I) .LE. 0 ) GOTO 5 + +C PARTICLE VARIABLES: +C LPTL ......... RECORD LABEL (LPTL=3) +C NREVT ........ EVENT NUMBER +C NRPTL ........ PARTICLE NUMBER +C I ............ ORIGINAL PTL NUMBER +C IDPTL ........ PARTICLE ID +C PPTL ......... 5-MOMENTUM (PX,PY,PZ,EN,MASS) IN LAB +C IOPTL ........ ORIGIN (-999:PARENT NOT STORED, -1,0:NO PARENT) +C JOPTL ........ ORIGIN (SECOND PARENT) +C ISTPTL ....... STABLE (=0) OR NOT (=1) +C XORPTL ....... SPACE-TIME POINT (X,Y,Z,T) ON PTL TRACK (PP-CM) +C TIVPTL ....... TIME INTERVAL OF EXISTENCE +C NQJPTL ....... QUARK NUMBERS OF JETS + +C ELIMINATE TARGET SPECTATORS + IF ( PPTL(3,I) .EQ. 0. ) GOTO 5 + +C ELIMINATE BACKWARD GOING PARTICLES + IF ( .NOT. LLONGI .AND. PPTL(3,I) .LT. 0. ) GOTO 5 +C CONVERT PARTICLE CODE VEN(US) ---> C(O)RS(IKA) +C MOST FREQUENT PARTICLES COME FIRST + KODVEN = IDPTL(I) +C MESONS + IF ( KODVEN .EQ. 110 ) THEN + KODCRS = 7 + ELSEIF ( KODVEN .EQ. 120 ) THEN + KODCRS = 8 + ELSEIF ( KODVEN .EQ. -120 ) THEN + KODCRS = 9 + ELSEIF ( KODVEN .EQ. 220 ) THEN + KODCRS = 17 +C NUCLEONS + ELSEIF ( KODVEN .EQ. 1220 ) THEN + KODCRS = 13 + ELSEIF ( KODVEN .EQ. 1120 ) THEN + KODCRS = 14 + ELSEIF ( KODVEN .EQ. -1120 ) THEN + KODCRS = 15 + ELSEIF ( KODVEN .EQ. -1220 ) THEN + KODCRS = 25 +C STRANGE MESONS + ELSEIF ( KODVEN .EQ. -20 ) THEN + KODCRS = 10 + ELSEIF ( KODVEN .EQ. 130 ) THEN + KODCRS = 11 + ELSEIF ( KODVEN .EQ. -130 ) THEN + KODCRS = 12 + ELSEIF ( KODVEN .EQ. 20 ) THEN + KODCRS = 16 +C STRANGE BARYONS + ELSEIF ( KODVEN .EQ. 2130 ) THEN + KODCRS = 18 + ELSEIF ( KODVEN .EQ. 1130 ) THEN + KODCRS = 19 + ELSEIF ( KODVEN .EQ. 1230 ) THEN + KODCRS = 20 + ELSEIF ( KODVEN .EQ. 2230 ) THEN + KODCRS = 21 + ELSEIF ( KODVEN .EQ. 1330 ) THEN + KODCRS = 22 + ELSEIF ( KODVEN .EQ. 2330 ) THEN + KODCRS = 23 + ELSEIF ( KODVEN .EQ. 3331 ) THEN + KODCRS = 24 + ELSEIF ( KODVEN .EQ. -2130 ) THEN + KODCRS = 26 + ELSEIF ( KODVEN .EQ. -1130 ) THEN + KODCRS = 27 + ELSEIF ( KODVEN .EQ. -1230 ) THEN + KODCRS = 28 + ELSEIF ( KODVEN .EQ. -2230 ) THEN + KODCRS = 29 + ELSEIF ( KODVEN .EQ. -1330 ) THEN + KODCRS = 30 + ELSEIF ( KODVEN .EQ. -2330 ) THEN + KODCRS = 31 + ELSEIF ( KODVEN .EQ. -3331 ) THEN + KODCRS = 32 +C LEPTONS + ELSEIF ( KODVEN .EQ. 10 ) THEN + KODCRS = 1 + ELSEIF ( KODVEN .EQ. -12 ) THEN + KODCRS = 2 + ELSEIF ( KODVEN .EQ. 12 ) THEN + KODCRS = 3 + ELSEIF ( KODVEN .EQ. -14 ) THEN + KODCRS = 5 + ELSEIF ( KODVEN .EQ. 14 ) THEN + KODCRS = 6 +C NEUTRINOS ARE SKIPPED + ELSEIF ( KODVEN .EQ. 11 ) THEN + GOTO 55 + ELSEIF ( KODVEN .EQ. -11 ) THEN + GOTO 55 + ELSEIF ( KODVEN .EQ. 13 ) THEN + GOTO 55 + ELSEIF ( KODVEN .EQ. -13 ) THEN + GOTO 55 + ELSE + WRITE(MONIOU,*)'VSTORE: UNKNOWN PARTICLE CODE IDPTL=',IDPTL(I) + GOTO 5 + ENDIF + SECPAR(1) = KODCRS + +C ELIMINATE BACKWARD GOING PARTICLES + IF ( LLONGI .AND. PPTL(3,I) .LT. 0. ) GOTO 56 + + IF ( KODCRS .NE. 1 .AND. KODCRS .LE. 65 ) THEN +C ORDINARY SECONDARY PARTICLES + SECPAR(2) = PPTL(4,I)/PAMA(KODCRS) +C LOOK FOR SPECTATOR NUCLEONS + IF ( KODCRS .EQ. 13 .OR. KODCRS .EQ. 14 ) THEN +C ELIMINATE TARGET SPECTATORS + IF ( SECPAR(2) .LE. 1.002D0 ) GOTO 5 +C TREAT PROJECTILE SPECTATORS + IF ( SECPAR(2) .GT. 0.999D0*GAMMA .AND. + * SECPAR(2) .LT. 1.001D0*GAMMA .AND. + * PPTL(1,I).EQ.0. .AND. PPTL(2,I).EQ.0. ) THEN + IF ( NFRAGM .NE. 0 ) THEN +C COMPOSE PROJECTILE SPECTATORS TO REMAINING NUCLEUS + NREST = NREST - 1 + NNEW = NNEW + 1 + IF ( KODCRS .EQ. 14 ) THEN + INEW = INEW + 101 + IREST = IREST - 101 + ELSEIF ( KODCRS .EQ. 13 ) THEN + INEW = INEW + 100 + IREST = IREST - 100 + ENDIF + GOTO 5 + ENDIF +C DISREGARD PROJECTILE SPECTATORS FOR ELASTICITY + GOTO 7 + ENDIF + ENDIF + +CC IF ( SECPAR(2) .GT. GAMMAX ) THEN +CC GAMMAX = SECPAR(2) +C CALCULATE ELASTICITY FROM ENERGY OF FASTEST PARTICLE (LEADER) +CC ELASTI = GAMMAX * PAMA(KODCRS) / ELAB +CC ENDIF + IF ( SECPAR(2)*PAMA(KODCRS) .GT. EMAX ) THEN + EMAX = SECPAR(2)*PAMA(KODCRS) +C CALCULATE ELASTICITY FROM MOST ENERGETIC PARTICLE (LEADER) + ELASTI = EMAX * MAPROJ / ELAB + ENDIF + ELSE +C GAMMAS AND NEUTRINOS + SECPAR(2) = PPTL(4,I) + ENDIF + +C COUNTER FOR ENERGY-MULTIPLICITY MATRIX + MSMM = MSMM + 1 + +C DETERMINE ANGLES FROM LONGITUDINAL AND TRANSVERSAL MOMENTA + 7 CONTINUE + PT2 = DBLE(PPTL(1,I))**2 + DBLE(PPTL(2,I))**2 + PL2 = DBLE(PPTL(3,I))**2 + + IF ( PL2+PT2 .LE. 0.D0 ) THEN + COSTET = 0.D0 + ELSE + COSTET = PPTL(3,I) / SQRT(PL2+PT2) + ENDIF + COSTET = MAX( MIN(COSTET, 1.D0), -1.D0 ) + IF ( PPTL(1,I) .NE. 0. .OR. PPTL(2,I) .NE. 0. ) THEN + PHIV = ATAN2( DBLE(PPTL(2,I)), DBLE(PPTL(1,I)) ) + ELSE + PHIV = 0.D0 + ENDIF + + +C COUNTERS FOR FIRST INTERACTION + IF ( FIRSTI ) THEN + IF ( SECPAR(1) .EQ. 7.D0 .OR. SECPAR(1) .EQ. 8.D0 + * .OR. SECPAR(1) .EQ. 9.D0 ) THEN + IFINPI = IFINPI + 1 + ELSEIF ( SECPAR(1) .EQ. 13.D0 .OR. SECPAR(1) .EQ. 14.D0 + * .OR. SECPAR(1) .EQ. 15.D0 .OR. SECPAR(1) .EQ. 25.D0 ) THEN + IFINNU = IFINNU + 1 + ELSEIF ( SECPAR(1) .EQ. 10.D0 .OR. SECPAR(1) .EQ. 11.D0 + * .OR. SECPAR(1) .EQ. 12.D0 .OR. SECPAR(1) .EQ. 16.D0 ) THEN + IFINKA = IFINKA + 1 + ELSEIF ( SECPAR(1) .EQ. 17.D0 ) THEN + IFINET = IFINET + 1 + ELSEIF ((SECPAR(1) .GE. 18.D0 .AND. SECPAR(1) .LE. 24.D0) + * .OR. (SECPAR(1) .GE. 26.D0 .AND. SECPAR(1) .LE. 32.D0))THEN + IFINHY = IFINHY + 1 + ENDIF + ENDIF + + ETOT = ETOT + PPTL(4,I) + CALL ADDANG( COSTHE,PHI, COSTET,PHIV, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GE. C(29) ) THEN + CALL TSTACK + GOTO 5 + ELSE + GOTO 56 + ENDIF + + 55 IF ( LLONGI ) THEN +C ADD NEUTRINO ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,9) = DLONG(LHEIGH,9) + PPTL(4,I) + ENDIF + GOTO 5 + + 56 IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + IF ( KODCRS .LE. 3 ) THEN + DLONG(LHEIGH,3) = DLONG(LHEIGH,3) + PPTL(4,I) + ELSEIF ( KODCRS .EQ. 5 .OR. KODCRS .EQ. 6 ) THEN + DLONG(LHEIGH,5) = DLONG(LHEIGH,5) + PPTL(4,I) + ELSE + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + PPTL(4,I) + * - RESTMS(KODCRS) + ENDIF + ENDIF + + 5 CONTINUE + + IF ( DEBUG ) WRITE(MDEBUG,*) 'VSTORE: NTGEVT,ETOT =',NTGEVT,ETOT + + IF ( NFRAGM .NE. 0 .AND. INEW .GT. 0 ) THEN +C TREAT REMAINING NUCLEUS + IF ( DEBUG ) WRITE(MDEBUG,150) INEW,(CURPAR(I),I=2,8) + 150 FORMAT(' VSTORE: REMNNT=',1P,I10,7E10.3) + SECPAR(2) = CURPAR(2) + SECPAR(3) = CURPAR(3) + SECPAR(4) = CURPAR(4) + + IF ( INEW .EQ. 100 ) THEN +C REMAINING NUCLEUS IS SINGLE NEUTRON + SECPAR(1) = 13.D0 + CALL TSTACK + ETOT = ETOT + SECPAR(2) * PAMA(13) + GOTO 140 + + ELSEIF ( INEW .EQ. 101 ) THEN +C REMAINING NUCLEUS IS SINGLE PROTON + SECPAR(1) = 14.D0 + CALL TSTACK + ETOT = ETOT + SECPAR(2) * PAMA(14) + GOTO 140 + + ELSEIF ( NFRAGM .GE. 2 ) THEN +C REMAINING NUCLEUS IS EVAPORATING NUCLEONS AND ALPHA PARTICLES + NZNEW = MOD(INEW,100) + NNNEW = INEW/100 - NZNEW + JFIN = 0 + CALL VAPOR(MAPROJ,INEW,JFIN,ITYP,PFRX,PFRY) + IF ( JFIN .EQ. 0 ) GOTO 139 +C LOOP TO TREAT THE REMANENTS OF THE DESINTEGRATED FRAGMENT + KNEW = 0 + DO 135 J = 1,JFIN + EA = GAMMA * PAMA(ITYP(J)) + IF (DEBUG) WRITE(MDEBUG,*) 'VSTORE: J,ITYP,EA=',J,ITYP(J),EA +C MOMENTA SQUARED + PTM = EA**2 - PAMA(ITYP(J))**2 + PT2 = PFRX(J)**2 + PFRY(J)**2 + IF ( PT2 .GE. PTM ) THEN + IF (DEBUG) WRITE(MDEBUG,*) 'VSTORE: PT REJECT PARTICLE',J + GOTO 135 + ENDIF + IF ( PTM .GT. 0.D0 ) THEN + COSTET = SQRT( 1.D0 - PT2/PTM ) + ELSE + COSTET = 1.D0 + ENDIF + IF ( PFRX(J) .NE. 0.D0 .OR. PFRY(J) .NE. 0.D0 ) THEN + PHIV = ATAN2( PFRY(J), PFRX(J) ) + ELSE + PHIV = 0.D0 + ENDIF + CALL ADDANG( COSTHE,PHI, COSTET,PHIV, SECPAR(3),SECPAR(4) ) + IF ( SECPAR(3) .GE. C(29) ) THEN + IF ( J .LT. JFIN ) THEN + SECPAR(1) = ITYP(J) + CALL TSTACK + ELSE + KNEW = ITYP(JFIN) + ENDIF + ELSE + IF(DEBUG)WRITE(MDEBUG,*) 'VSTORE: ANGLE REJECT PARTICLE',J + IF ( LLONGI ) THEN +C ADD ENERGY TO LONGITUDINAL ENERGY DEPOSIT + DLONG(LHEIGH,7) = DLONG(LHEIGH,7) + EA + ENDIF + ENDIF + 135 CONTINUE + + ELSEIF ( NFRAGM .EQ. 1 ) THEN +C REMAINING NUCLEUS IS ONE FRAGMENT + NZNEW = MOD(INEW,100) + NNNEW = INEW/100 - NZNEW + KNEW = INEW + ENDIF + + IF ( KNEW/100 .EQ. 5 ) THEN +C REMAINING NUCLEUS: MASS 5 CANNOT BE TREATED IN BOX2 + IF ( MOD(KNEW,100) .GE. 3 ) THEN +C MASS 5: SPLIT OFF ONE PROTON + SECPAR(1) = 14.D0 + CALL TSTACK + KNEW = KNEW - 101 + ELSE +C MASS 5: SPLIT OFF ONE NEUTRON + SECPAR(1) = 13.D0 + CALL TSTACK + KNEW = KNEW - 100 + ENDIF + ELSEIF ( KNEW/100 .EQ. 8 ) THEN +C REMAINING NUCLEUS: MASS 8 CANNOT BE TREATED IN BOX2 + IF ( MOD(KNEW,100) .GE. 5 ) THEN +C MASS 8: SPLIT OFF ONE PROTON + SECPAR(1) = 14.D0 + CALL TSTACK + KNEW = KNEW - 101 + ELSEIF ( MOD(KNEW,100) .LE. 3 ) THEN +C MASS 8: SPLIT OFF ONE NEUTRON + SECPAR(1) = 13.D0 + CALL TSTACK + KNEW = KNEW - 100 + ELSE +C MASS 8: SPLIT OFF ONE ALPHA PARTICLE + SECPAR(1) = 402.D0 + CALL TSTACK + KNEW = KNEW - 402 + ENDIF + ENDIF + + SECPAR(1) = KNEW + CALL TSTACK + ENDIF + + 139 ETOT = ETOT + SECPAR(2)*(PAMA(13)*NNNEW + PAMA(14)*NZNEW) + 140 CONTINUE + IF ( DEBUG ) WRITE(MDEBUG,*) 'VSTORE: ELASTI,ETOT,ELAB=', + * SNGL(ELASTI),ETOT,ELAB + +C FILL ELASTICITY IN MATRICES + MEL = MIN ( 1.D0+10.D0* MAX( 0.D0, ELASTI ) , 11.D0 ) + MEN = MIN ( 4.D0+ 3.D0*LOG10(MAX( .1D0, EKINL )), 40.D0 ) + IELDPM(MEN,MEL) = IELDPM(MEN,MEL) + 1 + IELDPA(MEN,MEL) = IELDPA(MEN,MEL) + 1 + IF ( ELASTI .LT. 1.D0 ) THEN + ELMEAN(MEN) = ELMEAN(MEN) + ELASTI + ELMEAA(MEN) = ELMEAA(MEN) + ELASTI + ENDIF + + IF ( FIRSTI ) THEN + TARG1I = TAR + SIG1I = SIGAIR + ELAST = ELASTI + FIRSTI = .FALSE. + ENDIF + + RETURN + END +*CMZ : 28/02/2002 12.41.48 by D. HECK IK FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE CERENK(STEPCR,UMEAN,VMEAN,WMEAN,EBEG,EEND,XBEG,YBEG, + * ZBEG,XEND,YEND,ZEND,TBEG,TEND,AMASS,CHARGE,WTTHIN,CTEA) + +C----------------------------------------------------------------------- +C C(H)ERENK(OV RADIATION FROM ALL KINDS OF CHARGED PARTICLES) +C +C CREATION OF CHERENKOV PHOTONS ALONG THE TRACKS OF CHARGED PARTICLES. +C CHERENKOV RADIATION IS ONLY CALCULATED FOR THE LOWEST OBSERVATION +C LEVEL. ALL PARAMETERS OF THE PARTICLE TRACK STEP ARE PASSED AS +C ARGUMENTS. +C THIS SUBROUTINE IS CALLED FROM ELECTR AND UPDATE.. +C ARGUMENTS (ALL DOUBLE PRECISION): +C STEPCR = STEP LENGTH FOR THE PARTICLE [CM] +C UMEAN = DIRECTION COSINE TO X AXIS (STEP AVERAGE) +C VMEAN = DIRECTION COSINE TO Y AXIS (STEP AVERAGE) +C WMEAN = DIRECTION COSINE TO -Z AXIS (STEP AVERAGE) +C EBEG = ENERGY [GEV] AT BEGINNING OF STEP +C EEND = ENERGY [GEV] AT END OF STEP +C XBEG = X POSITION [CM] AT BEGINNING OF STEP +C XEND = X POSITION [CM] AT END OF STEP +C YBEG = Y POSITION [CM] AT BEGINNING OF STEP +C YEND = Y POSITION [CM] AT END OF STEP +C ZBEG = Z POSITION [CM] AT BEGINNING OF STEP +C ZEND = Z POSITION [CM] AT END OF STEP +C AMASS = PARTICLE MASS [GEV/C**2] +C CHARGE = CHARGE NUMBER (OR NEGATIVE - WE NEED ONLY THE SQUARE OF IT) +C WTTHIN = PARTICLE WEIGHT FOR THINNING VERSION, ELSE 1. +C CTEA = COSINE OF EARTH ANGLE IN CURVED VERSION, ELSE 1. +C +C THIS IMPLEMENTATION WRITTEN BY +C K. BERNLOEHR MPIK HEIDELBERG (1998) +C THIS SUBROUTINE IS BASED IN PART ON THE FORMER CHERENKOV ROUTINES +C CERENE AND CERENH ORIGINALLY WRITTEN BY +C M. ROZANSKA UNIVERSITY OF KRAKOW +C S. MARTINEZ UNIVERSITY OF MADRID +C F. ARQUEROS UNIVERSITY OF MADRID +C AND SUBSEQUENTLY MODIFIED BY +C D. HECK IK3 FZK KARLSRUHE +C R. ATTALLAH UNIVERSITY OF PERPIGNAN +C +C EXTERNAL IACT (IMAGING ATMOSPHERIC CHERENKOV TECHNIQUE) FUNCTIONS +C FOR COLLECTING PHOTON BUNCHES AT ARBITRARY TELESCOPE LOCATIONS +C WRITTEN (IN C) BY +C K. BERNLOEHR MPIK HEIDELBERG (1997) +C AND AVAILABLE SEPARATELY. +C THE SAME APPLIES TO FUNCTIONS FOR TABULATED ATMOSPHERIC MODELS AND +C FUNCTIONS TO ACCOUNT FOR THE ATMOSPHERIC REFRACTION. +C +C----------------------------------------------------------------------- +c-----changed-add-comand +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + parameter (xct=1) + parameter (yct=2) + parameter (zct=3) + parameter (ctthet=4) + parameter (ctphi=5) + parameter (ctdiam=6) + parameter (ctfoc=7) +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + +c IMPLICIT NONE +cx------------ + +c IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,MAGANG. + COMMON /MAGANG/ ARRANG,ARRANR,COSANG,SINANG + DOUBLE PRECISION ARRANG,ARRANR,COSANG,SINANG +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEEP,CEREN1. + COMMON /CEREN1/ CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR,LCERFI + DOUBLE PRECISION CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR + LOGICAL LCERFI +*KEEP,CEREN2. + COMMON /CEREN2/ ACERX,ACERY,CERXOS,CERYOS, + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT, + * PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS, + * NCERX,NCERY,ICERML + DOUBLE PRECISION ACERX,ACERY,CERXOS(20),CERYOS(20), + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT + DOUBLE PRECISION PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS + INTEGER NCERX,NCERY,ICERML +*KEEP,ATMOSX. +C EXTERNAL ATMOSPHERIC MODELS + COMMON /ATMOSX/ IATMOX,FREFRX + INTEGER IATMOX + LOGICAL FREFRX +*KEEP,CORFRAM, IF=CURVED. + COMMON /CORFRAM/ DETSYS + LOGICAL DETSYS +*KEND. +*keep,certel. + common /certel/ cormxd,cord,coralp,ctpars,omega, + + photn,photnp,phpt,pht,vphot, + + vchi,veta,vzeta,vchim,vetam,vzetam, + + lambda,mu,nu,nctels,ncph,phip1,thetap1 + double precision cormxd,cord,coralp,ctpars(20,7),omega(20,3,3), + + photn(3),photnp(3),phpt(3),pht,vphot(3), + + vchi(3),veta(3),vzeta(3),vchim,vetam,vzetam, + + lambda,mu,nu + integer nctels,ncph(5) + double precision xg,yg,zg,xgp,ygp,zgp,up,vp,wp,xpcut,ypcut,zpcut + double precision thetap1,phip1 + equivalence (photn(1) ,xg) ,(photn(2) ,yg) ,(photn(3) ,zg) , + + (photnp(1),xgp) ,(photnp(2),ygp) ,(photnp(3),zgp), + + (phpt(1) ,xpcut),(phpt(2) ,ypcut),(phpt(3) ,zpcut), + + (vphot(1) ,up) ,(vphot(2) ,vp) ,(vphot(3) ,wp) + + character *72 ctfile +*keep,graal1. + common /graal1/ wavelength ! (nm) + real wavelength +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +cxx -------- + double precision dist2 + integer imov,ntt,nct,nx + double precision xx,yy,r +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +C-changes---add +C JOK SLIGHT CHANGE HERE BECAUSE WEMIS IS NOW IN COMMON CERENK2 + DOUBLE PRECISION PHICER,SINPSI,SINPS2,UEMIS2, + * VEMIS2, XCER2,XEMIS,YCER2,YEMIS + DOUBLE PRECISION STEPCR + DOUBLE PRECISION UMEAN,VMEAN,WMEAN + DOUBLE PRECISION EBEG,EEND + DOUBLE PRECISION XBEG,YBEG,ZBEG,XEND,YEND,ZEND + DOUBLE PRECISION TBEG,TEND,AMASS,CHARGE,WTTHIN,CTEA + DOUBLE PRECISION BETAE,BETAI,CTHETA,ETA1,ETA1I,ETA1E,STHETA + DOUBLE PRECISION BETAM,ETA1M + DOUBLE PRECISION TC11,TC21,TC12,TC22,TC32,TC13,TC23,TC33 + DOUBLE PRECISION BETA,BETAN,BETANI,DBETAN,ENER + DOUBLE PRECISION ETALI,ETALE,DETAL,CINTEN + DOUBLE PRECISION PHOTCT,PSTEP,PATHL,XSTEP,YSTEP,ZSTEP,ZEM + DOUBLE PRECISION DEDPL,STHET2, SINPHI,COSPHI + DOUBLE PRECISION BEMX,STCP,STSP,TEMIS,TSTEP + DOUBLE PRECISION THKBEG,DTHKLG +C WLFLAG PHOTON/PHOTO-ELECTRON FLAG (OR WAVELENGTH IN NANOMETER) + DOUBLE PRECISION WLFLAG + SAVE +C FOR WLFLAG = 0.D0: OUTPUT DATA ARE PHOTON BUNCHES + PARAMETER (WLFLAG = 0.D0 ) + INTEGER MAXRDM + PARAMETER ( MAXRDM = 100 ) + REAL RDM(MAXRDM) + INTEGER LOOPFL,IRDM,NRDM + INTEGER ISTC,NSTEPC + DOUBLE PRECISION XCER1,YCER1,XXX,YYY,DXXX,DYYY + INTEGER I + DOUBLE PRECISION REFIDX + EXTERNAL REFIDX + DOUBLE PRECISION RHOF,THICK + EXTERNAL RHOF,THICK + DOUBLE PRECISION AUXILSQ,CDDIF,CDIFA,CDIFB,CUMEAN,CVMEAN, + * CWMEAN,DISTIP,ETA2,RDIST,SDIFB,STHE,STHE2, + * SWEMIS,TOFIP,ZAPP,ZHBEG,ZHEM,ZHEND,ZHSTEP + EXTERNAL DISTIP,TOFIP +C----------------------------------------------------------------------- + + IF ( FEGSDB ) WRITE(MDEBUG,*) 'CERENK: EBEG=',EBEG,' AMASS=',AMASS + +C SKIP PARTICLES OUT OF ZENITH ANGULAR CUT (WITH WMEAN>0 DOWNWARDS). +C NOTE: USUALLY C(29) IS 0, I.E. UPWARD GOING PARTICLES ARE REJECTED. + IF ( WMEAN .LT. C(29) .OR. STEPCR .LE. 0.D0 ) RETURN + +C LOOK WETHER CHERENKOV CONDITION IS FULFILLED FOR THIS STEP. + BETAI = SQRT( 1.D0 - (AMASS/EBEG)**2 ) + BETAE = SQRT( 1.D0 - (AMASS/EEND)**2 ) + +C REFRACTIVE INDEX PARAMETRISATION: N=1+ETA = ETA1 + IF ( IATMOX .GE. 1 ) THEN + ETA1I = REFIDX(ZBEG) + ETA1E = REFIDX(ZEND) + ELSE + ETA1I = 1.D0 + ETADSN * RHOF(ZBEG) + ETA1E = 1.D0 + ETADSN * RHOF(ZEND) + ENDIF + IF ( BETAI*ETA1I.LT.1.D0 .AND. BETAE*ETA1E.LT.1.D0 ) RETURN + BETAM = SQRT( 1.D0 - (AMASS*2.D0/(EBEG+EEND))**2 ) + IF ( IATMOX .GE. 1 ) THEN + ETA1M = REFIDX(0.5D0 * (ZBEG+ZEND)) + ELSE + ETA1M = 1.D0 + ETADSN * RHOF(0.5D0 * (ZBEG+ZEND)) + ENDIF + + BEMX = MAX( BETAE*ETA1E, BETAI*ETA1I ) + CINTEN = CYIELD * CHARGE**2 + PHOTCT = CINTEN * STEPCR * (1.D0 - 1.D0/BEMX**2) + NSTEPC = PHOTCT / CERSIZ + 1 + IF ( NSTEPC .LT. 1 ) RETURN +C TRANSFORM ALL COORDINATES INTO DETECTOR FRAME (IF NOT DONE UNTIL NOW) +C XBEG, XEND, YBEG, YEND ARE TRANSFORMED IN UPDATE (OR PARTLY IN UPDATC) + IF ( .NOT. DETSYS ) THEN +C FIRST TRANSFORM ANGLES INTO DETECTOR FRAME +C (ROTATE LOCAL FRAME WITH EARTH ANGLE DIF) + CDIFB = CTEA + CDIFB = MIN( 1.D0, CDIFB ) + SDIFB = SQRT( 1.D0 - CTEA**2 ) + SDIFB = MIN( 1.D0, SDIFB ) + STHE = SQRT(UMEAN**2 + VMEAN**2) + IF ( STHE .GT. 0.D0 ) THEN + CUMEAN = UMEAN/STHE + CVMEAN = VMEAN/STHE + CUMEAN = WMEAN*SDIFB*CUMEAN + CDIFB*STHE*CUMEAN + CVMEAN = WMEAN*SDIFB*CVMEAN + CDIFB*STHE*CVMEAN + CWMEAN = WMEAN*CDIFB - SDIFB*STHE + ELSE + CUMEAN = WMEAN*SDIFB*UMEAN + CVMEAN = WMEAN*SDIFB*VMEAN + CWMEAN = WMEAN*CDIFB + ENDIF + IF ( FEGSDB ) WRITE(MDEBUG,*) 'CERENK: CURVED; CWMEAN=',CWMEAN + IF ( CWMEAN .LT. C(29) ) RETURN +C ZBEG, ZEND IN DETECTOR FRAME (ZHBEG, ZHEND) +C ACTUAL EARTH ANGLE + AUXILSQ = SQRT( XBEG**2 + YBEG**2 ) + CDIFA = COS( AUXILSQ/C(1) ) + IF ( CDIFA .GT. CTEA ) THEN +C TRANSFORM FIRST INTO THE INTERMEDIATE LOCAL SYSTEM + CDDIF = CTEA*CDIFA + SQRT( (1.D0-CTEA**2)*(1.D0-CDIFA**2) ) + ZBEG = (ZBEG+C(1)) / CDDIF - C(1) + ZEND = (ZEND+C(1)) / CDDIF - C(1) + ENDIF + ZHBEG = (ZBEG+C(1)) * CDIFA - C(1) + IF ( ZHBEG .LE. OBSLEV(1) ) RETURN +C TAKE EARTH ANGLE OF END POINT OF PART OF TRACK FOR CALCULATING ZHEND + AUXILSQ = SQRT( XEND**2 + YEND**2) + ZHEND = (ZEND+C(1)) * COS(AUXILSQ/C(1)) - C(1) +C NOW TRANSFORM CURVED COORDINATES INTO FLAT COORDINATE FRAME +C TAKING THE NOW AVAILABLE VALUES OF HAPP (X = X(HAPP)) + XBEG = (ZHBEG+C(1)) * TAN(XBEG/C(1)) + YBEG = (ZHBEG+C(1)) * TAN(YBEG/C(1)) + XEND = (ZHEND+C(1)) * TAN(XEND/C(1)) + YEND = (ZHEND+C(1)) * TAN(YEND/C(1)) + ENDIF + +C NOW CHECK WHICH KIND OF CALCULATING (BETA*N) FOR EACH SUB-STEP +C IS LIKELY TO BE THE MOST EFFICIENT. +C CASE 0: ONLY ONE STEP - WE HAVE ALREADY THE NUMBERS AT MID-STEP. + IF ( NSTEPC .EQ. 1 ) THEN + LOOPFL = 0 +C CASE 1: LINEAR INTERPOLATION OF (BETA*N) IF THE RELATIVE ERROR ON +C THE LIGHT INTENSITY IN THE MIDDLE IS LESS THAN 1E-3 (THEN THE ERROR +C ON THE IMPACT POINT FOR VERTICAL INCIDENCE IS LESS THAN ABOUT 5 CM). + ELSEIF ( (BETAE*ETA1E).GT.1D0 .AND. (BETAI*ETA1I).GT.1D0 .AND. + * (BETAM*ETA1M).GT.1D0 .AND. + * ABS((2.D0-1.D0/(BETAI*ETA1I)**2-1.D0/(BETAE*ETA1E)**2)/ + * (1.D0-1.D0/(BETAM*ETA1M)**2)-2.D0) .LT. 2.D-3*WMEAN ) THEN + LOOPFL = 1 + DBETAN = (BETAE*ETA1E-BETAI*ETA1I) / STEPCR + BETANI = BETAI * ETA1I + DEDPL = (EEND-EBEG) / STEPCR +C CASE 2: LOGARITHMIC INTERPOLATION OF (N-1) IS GOOD ENOUGH FOR +C ERRORS ON THE IMPACT POINT BEING LESS THAN 10 CM. +C BETA IS CALCULATED EXPLICITLY ASSUMING CONSTANT ENERGY LOSS. +C NOTE THAT WE USE CONSTANT ENERGY LOSS PER CENTIMETER RATHER THAN +C PER UNIT G/CM**2 FOR EFFICIENCY REASONS. THE POSSIBLE DIFFERENCE +C OF ENERGY AT MIDDLE OF STEP SHOULD BE INSIGNIFICANT IN ALMOST +C ANY CASE. + ELSEIF ( ABS((ETA1I-1.D0)*(ETA1E-1.D0)/(ETA1M-1.D0)**2 - 1.D0) + * .LT. (10.D0/ZBEG*WMEAN)**2 ) THEN + LOOPFL = 2 + ETALI = LOG(ETA1I-1.D0) + ETALE = LOG(ETA1E-1.D0) + DETAL = (ETALE-ETALI) / STEPCR + DEDPL = (EEND-EBEG) / STEPCR + ELSE +C CASE 3: BOTH N AND BETA HAVE TO BE CALCULATED IN FULL DETAIL. + LOOPFL = 3 + DEDPL = (EEND-EBEG) / STEPCR + ENDIF + +C VARIOUS START VALUES AND STEP LENGTHS FOR SUB-STEP LOOP + PSTEP = STEPCR * (1.D0/DBLE(NSTEPC)) + PATHL = (-0.5D0)*PSTEP + XSTEP = (XEND-XBEG) * (1.D0/DBLE(NSTEPC)) + YSTEP = (YEND-YBEG) * (1.D0/DBLE(NSTEPC)) + TSTEP = (TEND-TBEG) * (1.D0/DBLE(NSTEPC)) + XEMIS = XBEG - 0.5D0*XSTEP + YEMIS = YBEG - 0.5D0*YSTEP + TEMIS = TBEG - 0.5D0*TSTEP + ZSTEP = (ZEND-ZBEG) * (1.D0/DBLE(NSTEPC)) + ZEM = ZBEG - 0.5D0*ZSTEP +C THE TC.. ELEMENTS ARE DESCRIBED FURTHER DOWN. + IF ( .NOT. DETSYS ) THEN + ZHSTEP = (ZHEND-ZHBEG) * (1.D0/DBLE(NSTEPC)) + ZHEM = ZHBEG - 0.5D0*ZHSTEP + IF ( ZHEM .LE. OBSLEV(1) ) RETURN + SINPS2 = CUMEAN**2 + CVMEAN**2 + IF ( SINPS2 .LT. 1.D-20 ) SINPS2 = 1.D-20 + SINPSI = SQRT(SINPS2) + TC11 = CVMEAN*(1.D0/SINPSI) + TC12 = CUMEAN*CWMEAN*(1.D0/SINPSI) + TC13 = CUMEAN + TC21 = (-CUMEAN)*(1.D0/SINPSI) + TC22 = CVMEAN*CWMEAN*(1.D0/SINPSI) + TC23 = CVMEAN + TC32 = -SINPSI + TC33 = CWMEAN + ELSE + SINPS2 = UMEAN**2 + VMEAN**2 + IF ( SINPS2 .LT. 1.D-20 ) SINPS2 = 1.D-20 + SINPSI = SQRT(SINPS2) + TC11 = VMEAN*(1.D0/SINPSI) + TC12 = UMEAN*WMEAN*(1.D0/SINPSI) + TC13 = UMEAN + TC21 = (-UMEAN)*(1.D0/SINPSI) + TC22 = VMEAN*WMEAN*(1.D0/SINPSI) + TC23 = VMEAN + TC32 = -SINPSI + TC33 = WMEAN + ENDIF + +C SINCE EXPONENTIAL ATMOSPHERIC LAYERS ARE ASSUMED, A LOGARITHMIC +C INTERPOLATION OF THE ATMOSPHERIC THICKNESS CAN BE APPLIED. + IF ( NSTEPC .GT. 3 ) THEN + THKBEG = MAX( 1.D-3, THICK(ZBEG)) + DTHKLG = LOG(THICK(ZEND)/THKBEG) / STEPCR + ENDIF + +C DON'T GET RANDOM NUMBERS ONE-BY-ONE BUT IN LARGER CHUNKS. + NRDM = NSTEPC + IRDM = 0 + IF ( NRDM .GT. MAXRDM ) THEN + CALL RMMAR(RDM,MAXRDM,3) + ELSE + CALL RMMAR(RDM,NRDM,3) + ENDIF + +C LOOP OVER THE NUMBER OF SUB-STEPS WITH CONSTANT PARTICLE DIRECTION +C BUT CONTINUOUS ENERGY LOSS AND REFRACTION INDEX CHANGE ACCOUNTED FOR. +C SINCE ACTUAL VELOCITY CHANGES OF PARTICLES EMITTING CHERENKOV LIGHT +C IN THE ATMOSPHERE ARE VERY SMALL, CONSTANT STEPS IN (X,Y,Z,T) ARE USED. + DO 1000 ISTC = 1,NSTEPC + PATHL = PATHL + PSTEP + XEMIS = XEMIS + XSTEP + YEMIS = YEMIS + YSTEP + ZEM = ZEM + ZSTEP + TEMIS = TEMIS + TSTEP + IF ( .NOT. DETSYS ) THEN + ZHEM = ZHEM + ZHSTEP + IF ( ZHEM .LE. OBSLEV(1) ) RETURN + ENDIF + +C DEPENDING ON CONDITIONS USE THE FASTEST METHOD TO GET (BETA*N). + IF ( LOOPFL .EQ. 1 ) THEN +C THE MOST FREQUENT AND SIMPLEST CASE (WELL ABOVE THRESHOLD). + BETAN = BETANI + DBETAN*PATHL + ELSEIF ( NSTEPC .EQ. 1 ) THEN +C THIS CASE IS USALLY ENCOUNTERED NEAR THRESHOLD. + BETAN = BETAM*ETA1M + ELSEIF ( LOOPFL .EQ. 2 ) THEN +C THIS CASE IS ALSO USALLY ENCOUNTERED NEAR THRESHOLD. + ETA1 = 1.D0 + EXP(ETALI+DETAL*PATHL) + ENER = EBEG + DEDPL*PATHL + BETA = SQRT(1.D0-(AMASS/ENER)**2) + BETAN = BETA*ETA1 + ELSE +C THIS MOST GENERAL CASE IS RARELY ENCOUNTERED. + IF ( IATMOX .GE. 1 ) THEN + ETA1 = REFIDX(ZEM) + ELSE + ETA1 = 1.D0 + ETADSN * RHOF(ZEM) + ENDIF + ENER = EBEG + DEDPL*PATHL + BETA = SQRT(1.D0-(AMASS/ENER)**2) + BETAN = BETA*ETA1 + ENDIF + IF ( FEGSDB ) WRITE(MDEBUG,*) + * 'CERENK: LOOPFL=',LOOPFL,' BETAN=',BETAN + CTHETA = 1.D0 / BETAN + STHET2 = 1.D0 - CTHETA**2 +C PARTICLE IS BELOW ENERGY THRESHOLD IF THE EMISSION ANGLE IS <=0 + IF ( CTHETA .GT. 1.D0 .OR. STHET2 .LE. 0.D0 ) THEN + NRDM = NRDM - 1 + GOTO 1000 + ENDIF +C NUMBER OF EMITTED PHOTONS IN THIS SUB-STEP + PHOTCM = (CINTEN*PSTEP) * STHET2 + STHETA = SQRT(STHET2) +C ASSUME EMISSION POINT OF ALL PHOTONS IN THE MIDDLE OF THE STEP +C SAVE EMMISION HEIGHT SEEN FROM THE DETECTOR + IF ( .NOT. DETSYS ) THEN + ZEMIS = ZHEM + ZAPP = ZHEM + ELSE + ZEMIS = ZEM + ZAPP = ZEM + ENDIF + +C CALCULATE PHOTON DIRECTION IN THE CORSIKA COORDINATE FRAME +C +C NOTE: TO DERIVE THESE EQUATIONS YOU SHOULD FIRST DERIVE A MATRIX (T) +C WHICH ROTATES THE PARTICLE DIRECTION (U, V, W) TO (0, 0, 1): +C +C ( V/SQRT(U**2+V**2) -U/SQRT(U**2+V**2) 0 ) +C (T) = ( UW/SQRT(U**2+V**2) VW/SQRT(U**2+V**2) -SQRT(U**2+V**2) ) +C ( U V W ) +C +C CHERENKOV EMISSION IN THIS ROTATED COORDINATE SYSTEM IS DESCRIBED BY +C A MATRIX (C): +C +C ( COS(PHI) -SIN(PHI) 0 ) ( COS(THETA) 0 SIN(THETA) ) +C (C) = ( SIN(PHI) COS(PHI) 0 ) ( 0 1 0 ) +C ( 0 0 1 ) ( -SIN(THETA) 0 COS(THETA) ) +C +C WHERE THETA IS THE CHERENKOV OPENING ANGLE AND PHI IS RANDOM. +C THE RESULT IS (T_T)**-1 (C) (0,0,1): +C +C (0) +C (T_T)**-1 (C) (0) = +C (1) +C +C ( V/S*SIN(T)*COS(PHI)+U*W/S*SIN(T)*SIN(PHI)+U*COS(T) ) +C = (-U/S*SIN(T)*COS(PHI)+V*W/S*SIN(T)*SIN(PHI)+V*COS(T) ) +C ( -S*SIN(T)*SIN(PHI)+W*COS(T) ) +C +C WITH S = SQRT(U**2+V**2) AND T=THETA. THE CONSTANT PARTS ARE CALCULATED +C AS TC11 ... TC33 BEFORE THE '1000' LOOP. + +C DON'T GET RANDOM NUMBERS ONE-BY-ONE BUT IN LARGER CHUNKS FROM SEQ. 3 + IRDM = IRDM + 1 + IF ( IRDM .GT. MAXRDM ) THEN + IF ( NRDM .GT. MAXRDM ) THEN + CALL RMMAR(RDM,MAXRDM,3) + NRDM = NRDM - MAXRDM + ELSE + CALL RMMAR(RDM,NRDM,3) + NRDM = 0 + ENDIF + IRDM = 1 + ENDIF + PHICER = RDM(IRDM) * PI2 + SINPHI = SIN(PHICER) + COSPHI = COS(PHICER) + + IF ( SINPS2 .LE. 1.D-12 ) THEN + UEMIS2 = STHETA * COSPHI + VEMIS2 = STHETA * SINPHI + WEMIS = CTHETA + IF ( WMEAN .LT. 0.D0 ) WEMIS = -CTHETA + ELSE + STCP = STHETA * COSPHI + STSP = STHETA * SINPHI + UEMIS2 = TC11*STCP + TC12*STSP + TC13*CTHETA + VEMIS2 = TC21*STCP + TC22*STSP + TC23*CTHETA + WEMIS = TC32*STSP + TC33*CTHETA + ENDIF + IF ( FEGSDB ) WRITE(MDEBUG,*) 'CERENK: UEMIS2,VEMIS2,WEMIS=', + * UEMIS2,VEMIS2,WEMIS +C EMISSION ANGLE WITHIN ZENITH ANGULAR CUT? + IF ( WEMIS .LT. C(29) ) GOTO 1000 + WEMIS = MIN( 1.D0, WEMIS ) + +C CALCULATE OFFSET FROM SHOWER AXIS AT THE DETECTOR LEVEL. +C CALCULATE NEW DETECTOR COORDINATES BY INTERPOLATING BETWEEN +C TABULATED VALUES WHICH WERE NUMERICALLY INTEGRATED +C TAKING INTO ACCOUNT ATMOSPHERIC REFRACTION IN A CURVED GEOMETRY + STHE = SQRT(UEMIS2**2 + VEMIS2**2) + RDIST = DISTIP( WEMIS, ZAPP) + IF ( FEGSDB ) WRITE(MDEBUG,*) 'CERENK: WEMIS,ZEM,STHE,RDIST=', + * WEMIS,ZEM,STHE,RDIST + IF ( STHE .GT. 0.D0 ) THEN +C UEMIS2=COSPHI, VEMIS2=SINPHI + XCER2 = XEMIS + RDIST * UEMIS2/STHE + YCER2 = YEMIS + RDIST * VEMIS2/STHE + ELSE + XCER2 = XEMIS + YCER2 = YEMIS + ENDIF + +C ADD THE CHERENKOV PHOTONS TO THE LONGITUDINAL DEVELOPMENT. + IF ( LLONGI ) THEN + IF ( AMASS .LT. 1.D-3 ) THEN + CALL CERLDE + ELSE + CALL CERLDH + ENDIF + ENDIF + +C TAKE THE ROTATION RELATIVE TO MAGNETIC NORTH INTO ACCOUNT + XCER = XCER2 * COSANG + YCER2 * SINANG + YCER = YCER2 * COSANG - XCER2 * SINANG + UEMIS = UEMIS2 * COSANG + VEMIS2 * SINANG + VEMIS = VEMIS2 * COSANG - UEMIS2 * SINANG + IF ( FEGSDB ) WRITE(MDEBUG,*) 'CERENK: UEMIS,VEMIS,PHOTCM=', + * SNGL(UEMIS),SNGL(VEMIS),SNGL(PHOTCM) +C ONLY PHOTON BUNCHES INSIDE CHERENKOV ARRAY + +c--changes--add +c IF ( ABS(XCER) .LT. XCMAXS .AND. ABS(YCER) .LT. YCMAXS ) THEN + IF ( AMASS .LT. 1.D-3 ) THEN + CERELE = CERELE + PHOTCM + ELSE + CERHAD = CERHAD + PHOTCM + ENDIF + + DO 7001 I = 1,ICERML + DO 101 NCT=1,NCTELS + XCER1 = XCER - CERXOS(I) - CTPARS(NCT,XCT) +c XXX = XCER1 * DCERXI + FCERX +c DXXX = ABS( XXX - NINT(XXX) ) +c IF ( DXXX .LE. EPSX ) THEN +c IF ( XCER1.LT.-XCMAX .OR. XCER1.GT.XCMAX ) GOTO 7001 + YCER1 = YCER - CERYOS(I) - CTPARS(NCT,YCT) +c YYY = YCER1 * DCERYI + FCERY +c DYYY = ABS( YYY - NINT(YYY) ) +c IF ( DYYY .LE. EPSY ) THEN +c IF ( YCER1.LT.-YCMAX .OR. YCER1.GT.YCMAX ) GOTO 7001 +c + xx=xcer1*dcos(phip1)-ycer1*dsin(phip1) + yy=xcer1*dsin(phip1)+ycer1*dcos(phip1) + dist2=dsqrt((xx*dcos(thetap1))**2+yy**2+1.d-10) +c +c IF (dist2.GT.(CTPARS(NCT,CTDIAM)/2.)) GOTO 7001 +c +c Fixed by AM, 24/7/2002, to allow use of CERTEL option with more +c than one telescope: +c + IF (dist2.LT.(CTPARS(NCT,CTDIAM)/2.)) GOTO 102 + + 101 continue + +c If photon is not within reach of any of the telescopes, skip it: + GOTO 7001 + +c--changes +C BUNCH FALLS ON A DETECTOR, CALCULATE ARRIVAL TIME (NSEC) + 102 IF ( FREFRX ) THEN +C CALCULATE TIME OF FLIGHT BY INTERPOLATING BETWEEN TABULATED VALUES + CARTIM = TEMIS * 1.D9 + TOFIP(WEMIS,ZAPP) + ELSE +C CALCULATE TIME OF FLIGHT BY INTERPOLATING BETWEEN TABULATED VALUES + CARTIM = TEMIS * 1.D9 + TOFIP(WEMIS,ZAPP) + ENDIF +C CORRECT ZENITH ANGLE DUE TO ATMOSPHERIC REFRACTION FOR OUTPUT + IF ( IATMOX .GE. 1 ) THEN + ETA2 = REFIDX( OBSLEV(1) ) + ELSE + ETA2 = 1.D0 + ETADSN * RHOF( OBSLEV(1) ) + ENDIF + SWEMIS = 1.D0 - WEMIS**2 + SWEMIS = (ETA1/ETA2)**2 * SWEMIS + WEMIS = MIN( 1.D0, SQRT(1.D0 - SWEMIS) ) +C NOW CORRECT ALSO THE OTHER DIRECTION COSINE + STHE = SQRT( VEMIS**2 + UEMIS**2 ) + STHE2 = SQRT( 1.D0 - WEMIS**2 ) + VEMIS = VEMIS/STHE * STHE2 + UEMIS = UEMIS/STHE * STHE2 +c-changes +c CALL OUTPT2 +c GOTO 1000 +c ENDIF +c ENDIF + + +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +C GENERATE RANDOM WAVELENGTH FOR SINGLE C-PHOTON. + CALL RMMAR( RD,1,3 ) + WAVELENGTH = 1. / (1/WAVLGL - + + RD(1)/(WAVLGL*WAVLGU/(WAVLGU-WAVLGL))) +C>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + if(amass.lt.5.11d-4) then + nx=2 + else + nx=itype + endif +c write(moniou,*) itype,nx,amass + CALL OUTPT2(nx,I) +c CALL OUTPT2(NCT,I) + + GOTO 1000 + + 7001 CONTINUE +cxx ENDIF + 1000 CONTINUE + + RETURN + END +*CMZ : 19/10/2000 11.44.20 by D. HECK IK3 FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE CERLDE + +C----------------------------------------------------------------------- +C C(H)ER(ENKOV) L(ONGITUNAL) D(EVELOPMENT FOR) E(LECTRONS & POSITRONS) +C +C THIS SUBROUTINE IS CALLED FROM CERENK. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CEREN2. + COMMON /CEREN2/ ACERX,ACERY,CERXOS,CERYOS, + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT, + * PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS, + * NCERX,NCERY,ICERML + DOUBLE PRECISION ACERX,ACERY,CERXOS(20),CERYOS(20), + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT + DOUBLE PRECISION PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS + INTEGER NCERX,NCERY,ICERML +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEEP,STACKE. + COMMON /STACKE/ E,TIM,U,V,W,X,Y,Z,DNEAR, + * ZAP,WAP,WA, + * IQ,IGEN,IR,IOBS,LPCTE,NP + DOUBLE PRECISION E(60),TIM(60),U(60),V(60),W(60), + * X(60),Y(60),Z(60),DNEAR(60) + * ,ZAP(60),WAP(60),WA(60) + INTEGER IQ(60),IGEN(60),IR(60),IOBS(60),LPCTE(60),NP +*KEND. + + INTEGER I1,LPCT1 + SAVE +C----------------------------------------------------------------------- + +C IF STARTING POINT IS BELOW LOWEST LEVEL THEN DON'T CHECK. + IF ( HLONG(NSTEP) .LE. ZEMIS ) THEN +C FIND FIRST THE EQUIVALENT LEVELS + LPCT1 = LPCTE(NP) +C ZEMIS IS ONLY LITTLE BELOW Z OLD, THEREFORE INCREMENTAL SEARCH. +C (REMEMBER: LPCTE IS AT START OF ELECTRON STEP) + DO 6002 I1 = LPCT1,NSTEP + IF ( HLONG(I1) .LT. ZEMIS ) GOTO 6003 + 6002 CONTINUE + I1 = NSTEP + 1 + 6003 CONTINUE + +C PHOTONS ENTER THE VERTICAL DISTRIBUTION ONLY IN THE STEP WHERE THEY +C WERE EMITTED. THIS IS FAR MORE EFFICIENT THAN OLD, INTEGRATED MODE. + PLONG(I1,9) = PLONG(I1,9) + PHOTCM + + ENDIF + RETURN + END +*CMZ : 19/10/2000 11.45.12 by D. HECK IK3 FZK KARLSRUHE +*-- Author : K. BERNLOEHR MPIK HEIDELBERG 15/06/98 +C======================================================================= + + SUBROUTINE CERLDH + +C----------------------------------------------------------------------- +C C(H)ER(ENKOV) L(ONGITUNAL) D(EVELOPMENT FOR) H(ADRONS & MUONS) +C +C THIS SUBROUTINE IS CALLED FROM CERENK. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CEREN2. + COMMON /CEREN2/ ACERX,ACERY,CERXOS,CERYOS, + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT, + * PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS, + * NCERX,NCERY,ICERML + DOUBLE PRECISION ACERX,ACERY,CERXOS(20),CERYOS(20), + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT + DOUBLE PRECISION PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS + INTEGER NCERX,NCERY,ICERML +*KEEP,LONGI. + COMMON /LONGI/ ADLONG,AELONG,APLONG,DLONG,ELONG,HLONG,PLONG, + * SDLONG,SELONG,SPLONG,THSTEP,THSTPI, + * LHEIGH,NSTEP,LLONGI,FLGFIT + DOUBLE PRECISION ADLONG(0:1170,9),AELONG(0:1170,9), + * APLONG(0:1170,9),DLONG(0:1170,9),ELONG(0:1170,9), + * HLONG(0:1170),PLONG(0:1170,9),SDLONG(0:1170,9), + * SELONG(0:1170,9),SPLONG(0:1170,9),THSTEP,THSTPI + INTEGER LHEIGH,NSTEP + LOGICAL LLONGI,FLGFIT +*KEND. + + INTEGER I1,I2,II + SAVE +C----------------------------------------------------------------------- + +C IF STARTING POINT BELOW LOWEST LEVEL THEN DON'T CHECK + IF ( HLONG(NSTEP) .LE. ZEMIS ) THEN +C FIND FIRST THE EQUIVALENT LEVELS + I1 = 0 + I2 = NSTEP + 6001 CONTINUE + II = (I1+I2)/2 + IF ( HLONG(II) .LT. ZEMIS ) THEN + I2 = II + ELSE + I1 = II + ENDIF + IF ( I2-I1 .GT. 1 ) GOTO 6001 +C PHOTONS ENTER THE VERTICAL DISTRIBUTION ONLY IN THE STEP WHERE THEY +C WERE EMITTED. THIS IS FAR MORE EFFICIENT THAN OLD, INTEGRATED MODE. + PLONG(I2,9) = PLONG(I2,9) + PHOTCM + + ENDIF + RETURN + END +*CMZ : 18/12/2001 11.46.20 by D. HECK IK FZK KARLSRUHE +*-- Author : F. SCHROEDER UNI WUPPERTAL 30/06/99 +C======================================================================= + + DOUBLE PRECISION FUNCTION DISTIP(THEAP,HEAPP) + +C----------------------------------------------------------------------- +C DIST(ANCE) I(NTER)P(OLATION) +C +C DETERMINES CHANGE IN DISTANCE FROM SHOWER CORE BY INTERPOLATING +C BETWEEN VALUES OF A TWO DIMENSIONAL TABLE TAKING INTO ACCOUNT BENDING +C OF THE CHERENKOV LIGHT IN CURVED ATMOSPHERE. +C THIS FUNCTION IS CALLED FROM CERENK. +C ARGUMENTS: +C THEAP = COSINE OF EMISSION ANGLE IN DEG OF CHERENKOV PHOTON +C SEEN FROM THE DETECTOR +C HEAPP = EMISSION HEIGHT IN CM OF CHERENKOV PHOTON +C SEEN FROM THE DETECTOR IN CM +C +C DESIGN : F. SCHROEDER UNI WUPPERTAL +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,RTABLE, IF=CURVED. + COMMON /RTABLE/ DISTEF, TOF + INTEGER MHEIGH,NTHETA + PARAMETER ( MHEIGH = 453 ) ! NUMBER OF VALUES IN HEIGHT + PARAMETER ( NTHETA = 361 ) ! NUMBER OF VALUES IN THETA + DOUBLE PRECISION DISTEF(NTHETA,MHEIGH),TOF(NTHETA,MHEIGH) +*KEND. + + DOUBLE PRECISION ADIST,BDIST,B,FACT,HEAPP,HEAPP2,HM,HM1,OBS, + * THEAP,THEAP2,THN,THN1 + INTEGER M,M1,M2,N,N1,N2 + LOGICAL FIRST + SAVE + DATA FIRST /.TRUE. / +C----------------------------------------------------------------------- + + IF ( FIRST ) THEN + FACT = 90.D0/ACOS(0.D0) + FIRST = .FALSE. +C TRANSFORM OBSLEV(1) IN UNITS OF KM + OBS = OBSLEV(1) * 1.D-5 + ENDIF + +C TRANSFORM INPUT PARAMETERS IN BETTER UNITS + THEAP2 = ACOS( THEAP ) * FACT * 4.D0 ! NOW THETA IN DEG*4 + HEAPP2 = HEAPP * 1.D-5 * 4.D0 ! AND HEIGHT IN KM*4 + +C DISTIP = DISTIP(THEAP, HEAPP) = DISTEF(N, M) (N*M-MATRIX) +C MONOTONIC ASCENDING ORDER: +C THEAP: [0- 90] DEG => THEAP(1) = 0 DEG, THEAP(NTHETA) = 90 DEG +C HEAPP: [0-113] KM => HEAPP(1) = 0 KM, HEAPP(MHEIGH) = 113 KM + +C GET NUMBERS (APPARENT THETA) (N-1,N) WHICH ARE NEAREST TO THEAP + N2 = INT(THEAP2) + N1 = N2 + 1 + N = N2 + 2 +C GET NUMBERS (APPARENT HEIGHT) (M-1,M) WHICH ARE NEAREST TO HEAPP + M2 = INT(HEAPP2) + M1 = M2 + 1 + M = M2 + 2 + +C NOW PERFORM LINEAR INTERPOLATION OF DISTEF BETWEEN TABULATED VALUES +C HEAPP(M) = (M-1) [KM] +C THEAP(N) = (N-1) [DEG] + THN = DBLE(N1) + THN1 = DBLE(N2) + HM = DBLE(M1) + HM1 = DBLE(M2) + IF ( HM1 .LT. OBS ) HM1 = OBS + +C INTERPOLATE BETWEEN DISTEF(N-1, M-1) AND DISTEF(N-1,M) + B = ( DISTEF(N1, M) - DISTEF(N1, M1) ) / ( HM - HM1 ) + ADIST = B * ( HEAPP2 - HM1 ) + DISTEF(N1,M1) +C INTERPOLATE BETWEEN DISTEF(N, M-1) AND DISTEF(N,M) + B = ( DISTEF(N, M) - DISTEF(N, M1) ) / ( HM - HM1 ) + BDIST = B * ( HEAPP2 - HM1 ) + DISTEF(N,M1) +C INTERPOLATE BETWEEN ADIST=DISTEF(N-1,M_MEAN) +C AND BDIST=DISTEF(N,M_MEAN) + B = ( BDIST - ADIST ) / ( THN - THN1 ) + DISTIP = B * ( THEAP2 - THN1 ) + ADIST + + RETURN + END +*CMZ : 28/02/2002 13.08.20 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE GETBUS( IPARTI,ENERGYP,THETAP,CERSZE ) + +C----------------------------------------------------------------------- +C GET BU(NCH) S(IZE) +C +C CALCULATES OPTIMAL BUNCH SIZE FOR CHERENKOV PHOTONS. CHERENKOV PHOTONS +C ARE GROUPED IN BUNCHES IN ORDER TO ACCELERATE COMPUTING TIME. +C HOWEVER, WE SET A MAXIMAL VALUE FOR THE GROUPING OF CHERENKOV PHOTONS +C SO THAT WE GET AT LEAST 100 BUNCHES/M**2 AT A CHERENKOV FLUX OF 3000 +C PHOTONS/M**2. THIS IS THE MINIMUM CHERENKOV FLUX WHICH CAN BE +C DISTINGUISHED FROM THE NIGHT SKY LIGHT BACKGROUND IN THE HEGRA +C EXPERIMENT AT THE ISLAND LA PALMA. SO THE PARAMETRIZATION OF THE +C CHERENKOV BUNCH AS CALCULATED IN THIS SUBROUTINE IS VALID FOR +C OBSERVATION LEVELS SIMILAR TO THAT OF THE HEGRA EXPERIMENT. +C FOR A GIVEN PRIMARY PARTICLE, INCIDENT ENERGY AND ANGLE, AN +C OPTIMAL BUNCH SIZE IS CALCULATED BY INTERPOLATION IN A TABLE, +C WHERE WE HAVE CHOSEN AN ENERGY RANGE UP TO 1000 TEV, INCIDENT +C ANGLES 0 AND 40 DEGREES, AND 4 TYPES OF PRIMARIS: GAMMAS, +C PROTONS, NITROGEN, AND IRON. +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C ARGUMENTS: +C IPARTI = TYPE OF PRIMARY PARTICLE +C ENERGYP= PARTICLES ENERGY IN GEV +C THETAP = ANGLE IN RAD +C CERSZE = SIZE OF CHERENKOV BUNCH +C +C AUTHORS : S. MARTINEZ UNIVERSITY OF MADRID +C F. ARQUEROS UNIVERSITY OF MADRID +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION ANGLE(2),ENGAM(3),ENHAD(3),ENNIT(2), + * SIFE(3,2),SIGAM(3,2),SINIT(2),SIPRO(3,2) + DOUBLE PRECISION CERSZE,ENERGY,ENERGYP,THETA,THETAP + DOUBLE PRECISION CERS1F,CERS1P,S1,S2 + INTEGER I,IANFE,IANP,IATNUM,IPARTI,I1,I2 + + DATA ANGLE / 0.D0, 40.D0 / + DATA ENGAM / 100.D0, 200.D0, 500.D0 / + DATA ENHAD / 100.D0, 200.D0, 1000.D0 / + DATA ENNIT / 200.D0, 1000.D0 / + DATA ( SIFE (I,1),I=1,3 ) / 30.D0, 30.D0, 140.D0 / + DATA ( SIFE (I,2),I=1,3 ) / 30.D0, 30.D0, 110.D0 / + DATA ( SIGAM(I,1),I=1,3 ) / 30.D0, 45.D0, 100.D0 / + DATA ( SIGAM(I,2),I=1,3 ) / 30.D0, 40.D0, 100.D0 / + DATA SINIT / 30.D0, 150.D0 / + DATA ( SIPRO(I,1),I=1,3 ) / 30.D0, 30.D0, 120.D0 / + DATA ( SIPRO(I,2),I=1,3 ) / 30.D0, 30.D0, 160.D0 / + DATA IANP / 1 /, IANFE / 26 / +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,100) IPARTI,ENERGYP,THETAP + 100 FORMAT(' GETBUS: INPUT PARTICLE = ',I5,1P,2E10.3) + +C DEFAULT VALUE + CERSZE = 100.D0 + + ENERGY = 1.D-3*ENERGYP + IF ( ENERGY .LE. 100.D0 ) THEN + CERSZE = 30.D0 + IF ( DEBUG ) WRITE(MDEBUG,101) CERSZE + RETURN + ENDIF + + THETA = THETAP / PI * 180.D0 + +C----------------------------------------------------------------------- +C PHOTON, ELECTRON OR POSITRON AS PRIMARY PARTICLE + IF ( IPARTI .LE. 3 ) THEN +C FIND ENERGY BIN FOR INTERPOLATION + IF ( ENERGY .LE. ENGAM(2) ) THEN + I1 = 1 + I2 = 2 + ELSE + I1 = 2 + I2 = 3 + ENDIF + S1 = SIGAM(I1,1) + (ENERGY - ENGAM(I1)) + * / (ENGAM(I2) - ENGAM(I1)) + * * (SIGAM(I2,1) - SIGAM(I1,1)) + S2 = SIGAM(I1,2) + (ENERGY - ENGAM(I1)) + * / (ENGAM(I2) - ENGAM(I1)) + * * (SIGAM(I2,2) - SIGAM(I1,2)) + CERSZE = S1 + (THETA-ANGLE(1))/(ANGLE(2)-ANGLE(1)) * (S2-S1) + IF ( DEBUG ) WRITE(MDEBUG,101) CERSZE + RETURN + ENDIF + +C----------------------------------------------------------------------- +C NITROGEN AS PRIMARY PARTICLE AND VERTICAL INCIDENCE +CJOK WHY SPECIAL TREATMENT FOR NITROGEN ???? +CJOK WHY ONLY VERTICAL INCIDENCE ???? + IF ( IPARTI .EQ. 1407 .AND. ABS(THETA) .LT. 1.D-1 ) THEN + IF ( ENERGY .LT. 200.D0 ) THEN + CERSZE = 30.D0 + ELSE + CERSZE = SINIT(1) + (ENERGY-ENNIT(1)) + * / (ENNIT(2)-ENNIT(1)) * (SINIT(2)-SINIT(1)) + ENDIF + IF ( DEBUG ) WRITE(MDEBUG,101) CERSZE + RETURN + ENDIF + +C----------------------------------------------------------------------- +C GET THE ATOMIC NUMBER OF THE NUCLEUS +C Z IS 1, IF PROTON + IF ( IPARTI .EQ. 14 ) THEN + IATNUM = 1 +C REST OF POSSIBLE NUCLEI + ELSEIF ( IPARTI .GT. 100 ) THEN + IATNUM = MOD(IPARTI,100) + IF ( IATNUM .GT. 26 ) THEN + WRITE(MONIOU,*) 'GETBUS: UNEXPECTED PARTICLE CODE',IPARTI + RETURN + ENDIF + ELSE + WRITE(MONIOU,*) 'GETBUS: UNEXPECTED PARTICLE CODE',IPARTI + RETURN + ENDIF + +C FIND ENERGY BIN FOR INTERPOLATION IN CASE OF HADRONIC PRIMARY + IF ( ENERGY .LE. ENHAD(2) ) THEN + I1 = 1 + I2 = 2 + ELSE + I1 = 2 + I2 = 3 + ENDIF + +C INTERPOLATION FOR HADRONS + S1 = SIPRO(I1,1) + (ENERGY-ENHAD(I1)) + * / (ENHAD(I2)-ENHAD(I1)) * (SIPRO(I2,1)-SIPRO(I1,1)) + S2 = SIPRO(I1,2) + (ENERGY-ENHAD(I1)) + * / (ENHAD(I2)-ENHAD(I1)) * (SIPRO(I2,2)-SIPRO(I1,2)) + CERS1P = S1 + (THETA-ANGLE(1)) / (ANGLE(2)-ANGLE(1)) * (S2-S1) + + S1 = SIFE(I1,1) + (ENERGY-ENHAD(I1)) / (ENHAD(I2)-ENHAD(I1)) + * * (SIFE(I2,1)-SIFE(I1,1)) + S2 = SIFE(I1,2) + (ENERGY-ENHAD(I1)) / (ENHAD(I2)-ENHAD(I1)) + * * (SIFE(I2,2)-SIFE(I1,2)) + CERS1F = S1 + (THETA-ANGLE(1)) / (ANGLE(2)-ANGLE(1)) * (S2-S1) + + CERSZE = CERS1P + (IATNUM-IANP) * (CERS1F-CERS1P) / (IANFE-IANP) + + IF ( DEBUG ) WRITE(MDEBUG,101) CERSZE + 101 FORMAT(' GETBUS: BUNCH SIZE = ',1P,1E10.3) + + RETURN + END +*CMZ : 14/09/2000 08.40.31 by D. HECK IK3 FZK KARLSRUHE +*-- Author : F. SCHROEDER UNI WUPPERTAL 09/04/99 +C======================================================================= + + SUBROUTINE INRTAB + +C----------------------------------------------------------------------- +C IN(IT) R(EFRACTION) TAB(LE) +C +C INITIALIZES TABLE FOR INTERPOLATION OF DISTANCE FROM SHOWER CORE +C AND TIME OF FLIGHT OF THE CHERENKOV PHOTON +C NUMERICAL CALCULATION OF DISTANCE FROM SHOWER CORE AND TIME OF FLIGHT +C FOR DISCRETE ZENITH ANGLES AND HEIGHT DIFFERENCES TAKING INTO ACCOUNT +C BENDING OF THE CHERENKOV LIGHT IN A CURVED ATMOSPHERE +C THIS SUBROUTINE IS CALLED FROM INPRM. +C ARGUMENTS: +C OBS = HEIGHT OF OBSERVATION LEVEL IN CM +C +C DESIGN : F. SCHROEDER UNI WUPPERTAL +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CONSTA. + COMMON /CONSTA/ PI,PI2,OB3,TB3,ENEPER + DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,PARPAR. + COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C, + * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL + DOUBLE PRECISION CURPAR(16),SECPAR(16),PRMPAR(16),OUTPAR(16), + * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH + INTEGER ITYPE,LEVL +*KEEP,RTABLE, IF=CURVED. + COMMON /RTABLE/ DISTEF, TOF + INTEGER MHEIGH,NTHETA + PARAMETER ( MHEIGH = 453 ) ! NUMBER OF VALUES IN HEIGHT + PARAMETER ( NTHETA = 361 ) ! NUMBER OF VALUES IN THETA + DOUBLE PRECISION DISTEF(NTHETA,MHEIGH),TOF(NTHETA,MHEIGH) +*KEEP,ATMOSX. +C EXTERNAL ATMOSPHERIC MODELS + COMMON /ATMOSX/ IATMOX,FREFRX + INTEGER IATMOX + LOGICAL FREFRX +*KEND. + + DOUBLE PRECISION DDIST,DHAPP,DHELP,DLEN,DT,ETADSN,HE,HAPPST,HEAPP, + * HST,HSTM,HSTOLD,R,RHE, + * RHST,RHSTM,THEAP,THAPP1,THAPP2,VLIGHTI + INTEGER I,M,N,NSTEPS + SAVE + DOUBLE PRECISION REFIDX + EXTERNAL REFIDX + DOUBLE PRECISION RHOF + EXTERNAL RHOF +C NUMBER OF STEPS FOR NUMERIC INTEGRATION + DATA NSTEPS/ 1000 / +C----------------------------------------------------------------------- + + ETADSN = 0.00028232D0 / RHOF(0.D0) +C INVERSE OF VELOCITY OF LIGHT IN CM/NS + VLIGHTI = 1.D9/C(25) +C EARTH RADIUS IN CM + R = C(1) +C DISTEF = DISTEF(THEAP, HEAPP) = DISTEF(N, M) (N*M-MATRIX) +C TOF = TOF(THEAP, HEAPP) = TOF(N, M) (N*M-MATRIX) +C MONOTONIC ASCENDING ORDER: +C THEAP: [0- 90] DEG => THEAP(1) = 0 DEG, THEAP(NTHETA) = 90 DEG +C HEAPP: [0-113] KM => HEAPP(1) = 0 KM, HEAPP(MHEIGH) = 113 KM +C THEAP = EMISSION ANGLE OF CHERENKOV PHOTON SEEN FROM THE DETECTOR +C HEAPP = EMISSION HEIGHT OF CHERENKOV PHOTON SEEN FROM THE DETECTOR + + DO N = 1, NTHETA + DO M = 1, MHEIGH +C APPARENT EMISSION ANGLE IN RAD * 1/4 + THEAP = DBLE(N-1) * .25D0 * PI / 180.D0 +C APPARENT EMISSION HEIGHT IN CM * 1/4 + HEAPP = DBLE(M-1) * .25D0 * 1.D5 + IF ( HEAPP .LE. OBSLEV(1) .OR. + * THEAP .GT. 89.0D0*PI/180.D0 ) THEN + DISTEF(N,M) = 0.D0 ! NO CALCULATION OF DISTEF AND TOF + TOF(N, M) = 0.D0 ! IF EMISSION HEIGHT IS UNDER + GOTO 100 ! OBSERVATION LEVEL + ENDIF +C LOCAL EMISSION HEIGHT FOR INDEX OF REFRACTION + DHELP = (HEAPP-OBSLEV(1)) * TAN(THEAP) + HE = -R + SQRT( DHELP**2 + (R+HEAPP)**2 ) + IF ( IATMOX .GE. 1 ) THEN + RHE = REFIDX( HE ) + ELSE + RHE = 1.D0 + ETADSN * RHOF(HE) + ENDIF +C SMALL CHANGE IN HEAPP FOR NUMERICAL INTEGRATION + DHAPP = (HEAPP-OBSLEV(1))/DBLE(NSTEPS) +C START VALUES FOR NUMERICAL INTEGRATION +C PERFORM CALCULATION IN APPARENT COORDINATES + LOCAL HEIGHT +C FOR THE INDEX OF REFRACTION + HST = HE + HAPPST = HEAPP + THAPP2 = THEAP + DISTEF(N,M) = 0.D0 + TOF(N, M) = 0.D0 + DO I = 1, NSTEPS + HAPPST = HAPPST - DHAPP + DHELP = (HAPPST-OBSLEV(1)) * TAN(THAPP2) + HSTOLD = HST + HST = -R + SQRT( DHELP**2 + (R+HAPPST)**2 ) + HSTM = HST + 0.5D0 * (HSTOLD-HST) + IF ( IATMOX .GE. 1 ) THEN + RHST = REFIDX( HST ) + RHSTM = REFIDX( HSTM ) + ELSE + RHST = 1.D0 + ETADSN * RHOF(HST) + RHSTM = 1.D0 + ETADSN * RHOF(HSTM) + ENDIF + THAPP1 = THAPP2 + THAPP2 = ASIN( RHE/RHST * SIN(THEAP) ) + DDIST = DHAPP * TAN(0.5D0*(THAPP1 + THAPP2)) + DLEN = DHAPP / COS(0.5D0*(THAPP1 + THAPP2)) + DT = DLEN * RHSTM * VLIGHTI + DISTEF(N, M) = DISTEF(N,M) + DDIST + TOF(N, M) = TOF(N, M) + DT + ENDDO + 100 CONTINUE + ENDDO + ENDDO + + RETURN + END +*CMZ : 18/10/2000 09.15.12 by D. HECK IK3 FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE OUTND2 + +C----------------------------------------------------------------------- +C OUT(PUT AT E)ND (OF SHOWER) +C +C WRITE REST OF PARTICLES TO OUTPUT BUFFER +C THIS SUBROUTINE IS CALLED FROM AAMAIN. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,CEREN2. + COMMON /CEREN2/ ACERX,ACERY,CERXOS,CERYOS, + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT, + * PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS, + * NCERX,NCERY,ICERML + DOUBLE PRECISION ACERX,ACERY,CERXOS(20),CERYOS(20), + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT + DOUBLE PRECISION PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS + INTEGER NCERX,NCERY,ICERML +*KEEP,CEREN3. + COMMON /CEREN3/ CERCNT,DATAB2,NRECER,LHCER + INTEGER MAXBF2 + PARAMETER ( MAXBF2 = 39 * 7 ) + DOUBLE PRECISION CERCNT + REAL DATAB2(MAXBF2) + INTEGER NRECER,LHCER +*KEND. + + INTEGER I +C----------------------------------------------------------------------- + + IF ( LHCER .GT. 0 ) THEN + IF ( FPAROUT ) CALL TOBUFC( DATAB2,0 ) +C CLEAR DATAB2 BUFFER + DO 2 I = 1,MAXBF2 + DATAB2(I) = 0. + 2 CONTINUE + ENDIF + LHCER = 0 + + WRITE(MONIOU,*) 'CERCNT = ',SNGL( CERCNT ) + CERCNT = 0.D0 + + RETURN + END +*CMZ : 28/02/2002 12.41.48 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE OUTPT2(J,IMOV) +c---changed--name + +C----------------------------------------------------------------------- +C (WRITE CHERENKOV RADIATION) OUTP(U)T +C +C OUTPUT SUBROUT. FOR CHERENKOV PHOTONS +C THIS SUBROUTINE IS CALLED FROM CERENK. +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,EGSDEB. + COMMON /EGSDEB/ JCLOCK,NCLOCK,FEGSDB + INTEGER JCLOCK,NCLOCK + LOGICAL FEGSDB +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,CEREN1. + COMMON /CEREN1/ CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR,LCERFI + DOUBLE PRECISION CERELE,CERHAD,ETADSN,WAVLGL,WAVLGU,CYIELD, + * CERSIZ,CERNOR + LOGICAL LCERFI +*KEEP,CEREN2. + COMMON /CEREN2/ ACERX,ACERY,CERXOS,CERYOS, + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT, + * PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS, + * NCERX,NCERY,ICERML + DOUBLE PRECISION ACERX,ACERY,CERXOS(20),CERYOS(20), + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT + DOUBLE PRECISION PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS + INTEGER NCERX,NCERY,ICERML +*KEEP,CEREN3. + COMMON /CEREN3/ CERCNT,DATAB2,NRECER,LHCER + INTEGER MAXBF2 + PARAMETER ( MAXBF2 = 39 * 7 ) + DOUBLE PRECISION CERCNT + REAL DATAB2(MAXBF2) + INTEGER NRECER,LHCER +*KEND. +c-----changed-add +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + COMMON /GRAAL1/ WAVELENGTH ! (NM) + REAL WAVELENGTH +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +*KEND. + + INTEGER J,IMOV +cxx-------------------- +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c-----changed-add + + INTEGER I + LOGICAL ROUT + SAVE +C----------------------------------------------------------------------- + + IF ( FEGSDB ) WRITE(MDEBUG,3) + * PHOTCM,XCER,YCER,UEMIS,VEMIS,CARTIM,ZEMIS + 3 FORMAT(' OUTPT2: ',1P,8E10.3) + ROUT = .TRUE. + +C WRITE A BLOCK OF 39 PARTICLES TO THE CHERENKOV OUTPUT BUFFER AND +C CLEAR FIELD + CERCNT = CERCNT + PHOTCM + IF ( LCERFI ) THEN + IF ( ROUT ) THEN +c------changed--add -adn comand +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c DATAB2(LHCER+1) = PHOTCM +cc DATAB2(LHCER+1) = WAVELENGTH + J*1000. + DATAB2(LHCER+1) = J*100000. + IMOV*1000. + WAVELENGTH +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c------changed--add -adn comand + DATAB2(LHCER+2) = XCER + DATAB2(LHCER+3) = YCER + DATAB2(LHCER+4) = UEMIS + DATAB2(LHCER+5) = VEMIS + DATAB2(LHCER+6) = CARTIM + DATAB2(LHCER+7) = ZEMIS + LHCER = LHCER + 7 + IF ( LHCER .GE. MAXBF2 ) THEN + IF ( FPAROUT ) CALL TOBUFC( DATAB2,0 ) + DO 1 I = 1,MAXBF2 + DATAB2(I) = 0. + 1 CONTINUE + LHCER = 0 + ENDIF + ENDIF + ELSE +C WRITE A BLOCK OF 39 PARTICLES TO THE PARTICLE OUTPUT BUFFER AND +C CLEAR FIELD + IF ( ROUT ) THEN + DATAB(LH+1) = 99.E5 + NINT(PHOTCM)*10. + 1. + DATAB(LH+2) = XCER + DATAB(LH+3) = YCER + DATAB(LH+4) = UEMIS + DATAB(LH+5) = VEMIS + DATAB(LH+6) = CARTIM + DATAB(LH+7) = ZEMIS + LH = LH + 7 + NOPART = NOPART + 1 + IF ( LH .GE. MAXBUF ) THEN + IF ( FPAROUT ) CALL TOBUF( DATAB,0 ) + DO 2 I = 1,MAXBUF + DATAB(I) = 0. + 2 CONTINUE + LH = 0 + ENDIF + ENDIF + ENDIF + + RETURN + END +*CMZ : 25/04/2001 09.21.09 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 06/10/95 +C======================================================================= + + SUBROUTINE SELCOR(XX,YY) + +C----------------------------------------------------------------------- +C SEL(ECT) COR(E LOCATION) +C +C SELECT A QUASI RANDOM CORE LOCATION +C THIS SUBROUTINE IS CALLED FROM INPRM. +C ARGUMENTS: +C XX = X-VALUE OF QUASI-RANDOM CORE LOCATION +C YY = Y-VALUE OF QUASI-RANDOM CORE LOCATION +C +C DESIGN : J. KNAPP IK1 FZK KARLSRUHE +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,CEREN2. + COMMON /CEREN2/ ACERX,ACERY,CERXOS,CERYOS, + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT, + * PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS, + * NCERX,NCERY,ICERML + DOUBLE PRECISION ACERX,ACERY,CERXOS(20),CERYOS(20), + * DCERX,DCERXI,DCERY,DCERYI,EPSX,EPSY,FCERX,FCERY, + * WL,XCMAX,XCMAXS,XSCATT,YCMAX,YCMAXS,YSCATT + DOUBLE PRECISION PHOTCM,XCER,YCER,UEMIS,VEMIS,WEMIS,CARTIM,ZEMIS + INTEGER NCERX,NCERY,ICERML +*KEEP,RANDPA. + COMMON /RANDPA/ FAC,U1,U2,RD,NSEQ,ISEED,KNOR + DOUBLE PRECISION FAC,U1,U2 + REAL RD(3000) + INTEGER ISEED(103,10),NSEQ + LOGICAL KNOR +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION RND(2),XX,YY + INTEGER I + LOGICAL FIRST + SAVE + DATA FIRST /.TRUE./ +C----------------------------------------------------------------------- + + IF ( DEBUG ) WRITE(MDEBUG,*) 'SELCOR:' + +C INITIALIZE SOBOL NUMBER GENERATOR + IF ( FIRST ) THEN + FIRST = .FALSE. + CALL SOBSEQ(-2,RND) +C CALL THE RANDOM GENERATOR MANY TIMES ACCORDING SEED OF THIRD SEQUENCE +C TO PREVENT STARTING WITH IDENTICAL NUMBER FOR DIFFERENT RUNS + DO I = 1,ISEED(1,3) + CALL SOBSEQ(1,RND) + ENDDO + ENDIF +C TAKE A PAIR OF QUASI RANDOM NUMBERS + CALL SOBSEQ(2,RND) +c--------change + XX = ySCATT * (2.D0*RND(1)-1.D0) + YY = YSCATT * (2.D0*RND(2)-1.D0) + + IF (DEBUG) WRITE(MDEBUG,*) 'SELCOR: CORE LOCATION X=',XX,' Y=',YY + RETURN + END +*CMZ : 25/04/2001 09.21.09 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 06/10/95 +C======================================================================= + + SUBROUTINE SOBSEQ(N,XX) + +C----------------------------------------------------------------------- +C SOB(OL) SEQ(UENCE) +C +C SOBOL QUASI RANDOM NUMBER GENERATOR +C REFERENCE : NUMERICAL RECIPES, W.H. PRESS ET AL., +C CAMBRIDGE UNIVERSITY PRESS, 1992 ISBN 0 521 43064 X +C THIS SUBROUTINE IS CALLED FROM SELCOR. +C ARGUMENTS: +C N = NUMBER OF QUASI-RANDOM NUMBERS +C XX = ARRAY CONTAINING THE RANDOM NUMBERS +C +C THIS ROUTINE USES `LOGICAL AND' AND `EXCLUSIVE OR' SYSTEM FUNCTIONS +C `IAND' AND `IEOR' WHICH ARE NON-STANDARD FORTRAN FUNCTIONS !! +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEND. + + DOUBLE PRECISION XX(*),FAC + INTEGER N,MAXBIT,MAXDIM + PARAMETER ( MAXBIT = 30, MAXDIM = 6 ) + INTEGER I,IM,IN,IPP,J,K,L,IP(MAXDIM),IU(MAXDIM,MAXBIT), + * IV(MAXBIT*MAXDIM),IX(MAXDIM),MDEG(MAXDIM) + EQUIVALENCE (IV,IU) + SAVE + DATA IP /0,1,1,2,1,4/, MDEG /1,2,3,3,4,4/, IX /6*0/, + * IV /6*1,3,1,3,3,1,1,5,7,7,3,3,5,15,11,5,15,13,9, + * 156*0/ +C----------------------------------------------------------------------- + + IF ( N .LT. 0 ) THEN + DO 14 K = 1,MAXDIM + DO 11 J = 1,MDEG(K) + IU(K,J) = IU(K,J)*2**(MAXBIT-J) + 11 CONTINUE + DO 13 J = MDEG(K)+1,MAXBIT + IPP = IP(K) + I = IU(K,J-MDEG(K)) +C IEOR IS A NON-STANDARD FORTRAN SYSTEM FUNCTION MAKING `EXCLUSIVE OR' + I = IEOR(I,I/2**MDEG(K)) + DO 12 L = MDEG(K)-1,1,-1 +C IAND IS A NON-STANDARD FORTRAN SYSTEM FUNCTION MAKING `LOGICAL AND' + IF ( IAND(IPP,1) .NE. 0 ) I = IEOR(I,IU(K,J-L)) + IPP = IPP/2 + 12 CONTINUE + IU(K,J) = I + 13 CONTINUE + 14 CONTINUE + FAC = 1.D0/(2.D0**MAXBIT) + IN = 0 + ELSE + IM = IN + DO 15 J = 1,MAXBIT +C IAND IS A NON-STANDARD FORTRAN SYSTEM FUNCTION MAKING `LOGICAL AND' + IF ( IAND(IM,1) .EQ. 0 ) GOTO 1 + IM = IM/2 + 15 CONTINUE + WRITE(MONIOU,*)'MAXBIT =',MAXBIT,' TOO SMALL IN SOBSEQ' + STOP + 1 IM = (J-1)*MAXDIM + DO 16 K = 1,MIN(N,MAXDIM) +C IEOR IS A NON-STANDARD FORTRAN SYSTEM FUNCTION MAKING `EXCLUSIVE OR' + IX(K) = IEOR(IX(K),IV(IM+K)) + XX(K) = IX(K)*FAC + 16 CONTINUE + IN = IN+1 + ENDIF + RETURN + END +*CMZ : 30/01/2001 17.27.18 by D. HECK IK FZK KARLSRUHE +*-- Author : The CORSIKA development group 21/04/94 +C======================================================================= + + SUBROUTINE TOBUFC( A,IFL ) + +C----------------------------------------------------------------------- +C (WRITE) TO BUF(FER) C(HERENKOV DATA) +C +C COPY TO BUFFER CHERENKOV DATA +C THIS SUBROUTINE IS CALLED FROM AAMAIN, INPRM, ELECTR, PHOTON, OUTND2, +C AND OUTPT2. +C ARGUMENTS: +C A = ARRAY TO BE WRITTEN TO TAPE +C IFL = STARTING OF FINAL OUTPUT +C = 0 NORMAL BLOCK +C = 1 NORMAL BLOCK WITH END OF OUTPUT +C = 2 ONLY END OF OUTPUT +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,BUFFS. + COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,ARRAYLONG,LH + INTEGER MAXBUF,MAXLEN + PARAMETER (MAXLEN=16) + PARAMETER (MAXBUF=39*7) + REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF), + * RUNE(MAXBUF),DATAB(MAXBUF),ARRAYLONG(MAXBUF) + INTEGER LH + CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE,CLONG + EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE) + EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE) + EQUIVALENCE (ARRAYLONG(1),CLONG) +*KEEP,RUNPAR. + COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I, + * STEPFC,NRRUN,NSHOW,MPATAP,MONIIN, + * MONIOU,MDEBUG,NUCNUC,MTABOUT,MLONGOUT, + * MCETAP, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE, + * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN + COMMON /RUNPAC/ DSN,DSNTAB,DSNLONG,HOST,USER + DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB,SIG1I,TARG1I,STEPFC + INTEGER NRRUN,NSHOW,MPATAP,MONIIN,MONIOU,MDEBUG,NUCNUC, + * ISHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL, + * N1STTR,MDBASE,MTABOUT,MLONGOUT + INTEGER MCETAP + CHARACTER*79 DSN,DSNTAB,DSNLONG + CHARACTER*20 HOST,USER + LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR, + * FIX1I,FMUADD,FNKG,FPRINT,FDBASE,FPAROUT,FTABOUT, + * FLONGOUT,GHEISH,GHESIG,GHEISDB,USELOW,TMARGIN +*KEEP,CEREN3. + COMMON /CEREN3/ CERCNT,DATAB2,NRECER,LHCER + INTEGER MAXBF2 + PARAMETER ( MAXBF2 = 39 * 7 ) + DOUBLE PRECISION CERCNT + REAL DATAB2(MAXBF2) + INTEGER NRECER,LHCER +*KEND. + +C NSUBBL IS NUMBER OF SUBBLOCKS IN ONE OUTPUT RECORD + INTEGER NSUBBL + PARAMETER ( NSUBBL = 21 ) + REAL A(*) +C (OUTPUT RECORD LENGTH = NSUBBL * 39 * 7 * 4 BYTES <= 22932 ) +C OUTPUT BUFFER FOR CHERENKOV OUTPUT + REAL OUTBF2(MAXBF2,NSUBBL) +C IBLK2 IS COUNTER FOR SUBBLOCKS OF CHERENKOV OUTPUT + INTEGER I,IBLK2,IFL,K + SAVE + DATA IBLK2 / 0 / +C----------------------------------------------------------------------- + + IF ( IFL .LE. 1 ) THEN + IBLK2 = IBLK2 + 1 + DO 3 I = 1,MAXBF2 + OUTBF2(I,IBLK2) = A(I) + 3 CONTINUE + ENDIF + +C WRITE TO TAPE IF BLOCK IS FULL OR IF IFL IS 1 + IF ( IFL .GE. 1 .OR. IBLK2 .EQ. NSUBBL ) THEN + NRECER = NRECER + 1 +c-----changed---add------command +cxx WRITE(MCETAP) ((OUTBF2(I,K),I=1,MAXBF2),K=1,NSUBBL) +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c WRITE(CETAPE) ((OUTBF2(I,K),I=1,MAXBF2),K=1,NSUBBL) + call jccersave(outbf2) +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c-----changed---add------command + IBLK2 = 0 + DO 4 K = 1,NSUBBL + DO 4 I = 1,MAXBF2 + OUTBF2(I,K) = 0.0 + 4 CONTINUE + ENDIF + + RETURN + END +*CMZ : 14/06/2000 14.14.41 by D. HECK IK3 FZK KARLSRUHE +*-- Author : F. SCHROEDER UNI WUPPERTAL 01/07/99 +C======================================================================= + + DOUBLE PRECISION FUNCTION TOFIP(THEAP,HEAPP) + +C----------------------------------------------------------------------- +C T(IME) O(F) F(LIGHT) I(NTER)P(OLATION) +C +C DETERMINES TIME OF FLIGHT OF CHERENKOV PHOTON BY INTERPOLATING +C BETWEEN VALUES OF A TWO DIMENSIONAL TABLE TAKING INTO ACCOUNT +C BENDING OF THE CHERENKOV LIGHT IN A CURVED ATMOSPHERE +C THIS SUBROUTINE IS CALLED FROM CERENK. +C ARGUMENTS: +C THEAP = COSINE OF EMISSION ANGLE OF CHERENKOV PHOTON +C SEEN FROM THE DETECTOR +C HEAPP = EMISSION HEIGHT IN CM OF CHERENKOV PHOTON +C SEEN FROM THE DETECTOR +C +C DESIGN : F. SCHROEDER UNI WUPPERTAL +C----------------------------------------------------------------------- + + IMPLICIT NONE +*KEEP,OBSPAR. + COMMON /OBSPAR/ OBSLEV,THCKOB,XOFF,YOFF,HEIGHP,THETAP,PHIP, + * THETPR,PHIPR, + * VUECON, + * NOBSLV + DOUBLE PRECISION OBSLEV(10),THCKOB(10),XOFF(10),YOFF(10), + * HEIGHP,THETAP,THETPR(2),PHIP,PHIPR(2) + DOUBLE PRECISION VUECON(2) + INTEGER NOBSLV +*KEEP,RTABLE, IF=CURVED. + COMMON /RTABLE/ DISTEF, TOF + INTEGER MHEIGH,NTHETA + PARAMETER ( MHEIGH = 453 ) ! NUMBER OF VALUES IN HEIGHT + PARAMETER ( NTHETA = 361 ) ! NUMBER OF VALUES IN THETA + DOUBLE PRECISION DISTEF(NTHETA,MHEIGH),TOF(NTHETA,MHEIGH) +*KEND. + + DOUBLE PRECISION ATOF,BTOF,B,FACT,HEAPP,HEAPP2,HM,HM1,OBS, + * THEAP,THEAP2,THN,THN1 + INTEGER M,M1,M2,N,N1,N2 + LOGICAL FIRST + SAVE + DATA FIRST /.TRUE. / +C----------------------------------------------------------------------- + + IF ( FIRST ) THEN + FACT = 90.D0/ACOS(0.D0) + FIRST = .FALSE. +C TRANSFORM ALSO OBSLEV(1) IN UNITS OF KM + OBS = OBSLEV(1) * 1.D-5 + ENDIF +C TRANSFORM INPUT PARAMETERS IN BETTER UNITS + THEAP2 = ACOS( THEAP ) * FACT * 4.D0 ! NOW THETA IN DEG*4 + HEAPP2 = HEAPP * 1.D-5 * 4.D0 ! AND HEIGHT IN KM*4 + +C TOF = TOF(THEAP, HEAPP) = TOF(N, M) (N*M-MATRIX) +C MONOTONIC ASCENDING ORDER: +C THEAP: [0- 90] DEG => THEAP(1) = 0 DEG, THEAP(NTHETA) = 90 DEG +C HEAPP: [0-113] KM => HEAPP(1) = 0 KM, HEAPP(MHEIGH) = 113 KM + +C GET NUMBERS (APPARENT THETA) (N-1,N) WHICH ARE NEAREST TO THEAP + N2 = INT(THEAP2) + N1 = N2 + 1 + N = N2 + 2 +C GET NUMBERS (APPARENT HEIGHT) (M-1,M) WHICH ARE NEAREST TO HEAPP + M2 = INT(HEAPP2) + M1 = M2 + 1 + M = M2 + 2 +C NOW PERFORM LINEAR INTERPOLATION OF TOF BETWEEN TABULATED VALUES +C HEAPP(M) = (M-1) [KM] +C THEAP(N) = (N-1) [DEG] + THN = DBLE(N1) + THN1 = DBLE(N2) + HM = DBLE(M1) + HM1 = DBLE(M2) + IF ( HM1 .LT. OBS ) HM1 = OBS + +C INTERPOLATE BETWEEN TOF(N-1, M-1) AND TOF(N-1,M) + B = ( TOF(N1, M) - TOF(N1, M1) ) / ( HM - HM1 ) + ATOF = B * ( HEAPP2 - HM1 ) + TOF(N1,M1) +C INTERPOLATE BETWEEN TOF(N, M-1) AND TOF(N,M) + B = ( TOF(N, M) - TOF(N, M1) ) / ( HM - HM1 ) + BTOF = B * ( HEAPP2 - HM1 ) + TOF(N,M1) +C INTERPOLATE BETWEEN ATOF = TOF(N-1,M_MEAN) +C AND BTOF = TOF(N,M_MEAN) + B = ( BTOF - ATOF ) / ( THN - THN1 ) + TOFIP = B * ( THEAP2 - THN1 ) + ATOF + + RETURN + END Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/eventio.c =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/eventio.c (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/eventio.c (revision 1444) @@ -0,0 +1,3846 @@ +/** + * @file eventio.c + * @short Basic functions for eventio data format. + * + * @author Konrad Bernloehr + * @date 1991 to 2000 + * $Date: 2002-07-25 17:52:42 $ + * $Revision: 1.1 $ + +@verbatim + ================ General comments to eventio.c ====================== + + 'eventio.c' provides an interface for an (almost) machine-independent + way to write and read event data, configuration data and Monte Carlo data. + Byte ordering of the data is unimportant and data written in both + byte orders are correctly read on any supported architecture. + Usually the data is written to/read from a file (or separate files for + different data types) to be opened before calling any eventio function. + Other ways to 'save' data (e.g. into memory or via dedicated networking + procedures can easily be incorporated by assigning an input and/or + output function to an I/O buffer instead of a file handle or pointer. + The data structure is designed to allow reading of a mixture of + different types of items from a single file. For this purpose, 'items' + (see below) should not be interspersed with low-level material and, + therefore, low-level functions should not be called from anywhere + outside eventio.c. + + ----------------------------------------------------------------------- + + An 'item' has the following structure: + + Component Type Content Description + --------- ---- ------- ----------- + sync-tag long 0xD41F8A37 Signature of start of any item + (only for top item, not for sub-items). + type/version long ... Item type (bits 0 to 15), reserved bits + (16 to 19), and version of this item + type (bits 20 to 31). + ident long ... Unique identification number of the + item or -1. + length long ... No. of bytes following for this item + (bits 0 to 29) and a flag indicating + whether the item consists entirely of + sub-items with known length (bit 30). + Bit 31 must be 0. The bytes needed + to pad the item to the next 4-byte + boundary are included in the length. + data ... ... Item data (may consist of elementary + data and of sub-items) + + Field 'sync-tag': + The sync-tag is used to check that input is still synchronized. + In the case of a synchronisation failure, all data should be skipped + up to the next occurence of that byte combination or its reverse. + The byte ordering of the sync-tag defines also the byte ordering + of all data in the item. Only byte orders 0-1-2-3 and 3-2-1-0 are + accepted at present. + + Field 'type/version': + This field consists of a type number in bits 0 to 15 (values + 0 to 65535), reserved bits 16 to 19 (must be 0), and an item + version number in bits 20 to 31 (values 0 to 4095). Whenever the + format of an item changes in a way which is incompatible with + older reading software the version number has to be increased. + + Field 'ident': + Items of the same type can be distinguished if an identification + number is supplied. Negative values are interpreted as 'no ident + supplied'. + + Field 'length': + Each item and sub-item must have the number of bytes in its + data area, including padding bytes, in bits 0 to 30 of this field. + If an item consists entirely of sub-items and no atomic data, it can + be searched for a specific type of sub-item without having to 'decode' + (read from the buffer) any of the sub-items. Such an item is kind of + a directory of sub-items and is marked by setting bit 30 of the + length field on. The longest possible item length is thus (2^30 - 1). + Note that the length field specifies the length of the rest of the + item but not the sync-tag, type/version number, and length fields. + All (sub-) items are padded to make the total length a multiple of 4 + bytes and the no. of padded bytes must be included in 'length'. + + Data: + Data of an item may be either sub-items or atomic data. An item may + even consist of a mixture of both but in that case the sub-items + are not accessible via 'directory' functions and can be processed + only when the item data is 'decoded' by its corresponding 'read_...' + function. + The beginning of the data field is aligned on a 4-byte boundary to + allow efficient access to data if the byte order needs not to be + changed and if the data itself obeys the required alignment. + + ----------------------------------------------------------------------- + + The 'atomic' data types are kept as close as possible to internal + data types. This data is only byte-aligned unless all atomic data + of an item obeys a 2-byte or 4-byte alignement. + Note that the ANSI C internal type int32_t typically corresponds to + both 'int' and 'long' on 32-bit machines but to 'int' only on + 64-bit machines and to 'long' only on 16-bit systems. + Use the int32_t/uint32_t etc. types where the same length of + internal variables is required. + 64-bit integers are not yet implemented in eventio. + + Type Int. type Size (bytes) Comments + ---- --------- ------------ -------- + byte [u]int8_t 1 Character or very short integer. + short [u]int16_t 2 Short integer (signed or unsigned). + long [u]int32_t 4 Long integer (signed or unsigned). + int64 [u]int64_t 8 Caution: not available on all systems. + string - 2+length Preceded by 2-byte length of string. + long str. - 4+length Preceded by 4-byte length of string. + real float 4 32-bit IEEE floating point number with + the same byte order as a long integer. + double double 8 64-bit IEEE floating point number. + + The byte-ordering of integers in input data is defined by that of + the sync-tag (magic number) preceding top-level items. Therefore, + the byte-ordering in a top-level item may differ from the ordering + in a previous item. For output data the default ordering is so far to + have the least-significant bytes first. This is the natural byte + order on Mips R3000 and higher (under Ultrix), DEC Alpha, VAX, and Intel + (80)x86 CPUs but the inverse of the natural byte order on Motorola 680x0, + RS6000, PowerPC, and Sparc CPUs. The ordering may change without + notice and without changing version numbers. Except for performance + considerations, the byte-ordering should not be relevant as long as + only the 0-1-2-3 and 3-2-1-0 orders are considered, and byte ordering + of floating point numbers is the same as for long integers. + Byte ordering for writing may be changed during run-time with the + 'byte_order' element of the I/O buffer structure. + Note that on CPUs with non-IEEE floating point format like VAX writing + and reading of floating point numbers is likely to be less efficient + than on IEEE-format CPUs. + + Note that if an 'int' variable is written via 'put_short()' + and then read again via 'get_short()' not only the + upper two bytes (on a 32-bit machine) are lost but + also the sign bit is propagated from bit 15 to the + upper 16 bits. Similarly, if a 'long' variable is written + via 'put_long()' and later read via 'get_long()' on a + 64-bit-machine, not only the upper 4 bytes are lost but + also the sign in bit 31 is propagated to the upper 32 bits. + + ----------------------------------------------------------------------- + + Do not modify this file to include project-specific things! + + ==================================================================== +@endverbatim +*/ + +#include "initial.h" /* This file includes others as required. */ +#define NO_FOREIGN_PROTOTYPES 1 +#include "io_basic.h" /* This file includes others as required. */ +#ifndef FSTAT_NOT_AVAILABLE +#include +#include +#endif +#ifdef OS_UNIX +#include +#endif + +#define IO_BUFFER_MINIMUM_SIZE 32L + +/* Author: Konrad Bernloehr */ + +/* #define READ_BYTES(fd,buf,nb) read(fd,buf,nb) */ +/* #define READ_BYTES(fd,buf,nb) fread(buf,1,nb,&_iob[fd]) */ +#define READ_BYTES(fd,buf,nb) ((fd==0) ? \ + fread((void *)buf,(size_t)1,(size_t)nb,stdin) : read(fd,buf,(size_t)nb)) + +/* ----------------------- allocate_io_buffer ------------------ */ +/** + * @short Dynamic allocation of an I/O buffer. + * + * Dynamic allocation of an I/O buffer. The actual length of + * the buffer is passed as an argument. + * The buffer descriptor is initialized. + * + * @param buflen The length of the actual buffer in bytes. + * A safety margin of 4 bytes is added. + * + * @return Pointer to I/O buffer or NULL if allocation failed. + */ + +#ifdef ANSI_C +IO_BUFFER *allocate_io_buffer (size_t buflen) +#else +IO_BUFFER *allocate_io_buffer (buflen) + size_t buflen; +#endif +{ + IO_BUFFER *buf; + + if ( sizeof(BYTE) != 1 ) + { + Error("Sizes of bytes is not as expected."); + Error("You better modify the sources and recompile."); + Error("No buffers will be allocated."); + return NULL; + } + + if ( sizeof(int16_t) != 2 || sizeof(int32_t) != 4 ) + { + Error("Sizes of 16-bit and 32-bit integers are not as expected."); + Error("You better modify the sources and recompile."); + Error("No buffers will be allocated."); + return NULL; + } + if ( sizeof(uint16_t) != 2 || sizeof(uint32_t) != 4 ) + { + Error("Sizes of 16-bit and 32-bit unsigned integers are not as expected."); + Error("You better modify the sources and recompile."); + Error("No buffers will be allocated."); + return NULL; + } +#ifdef SIXTY_FOUR_BITS + if ( sizeof(long) != 8 ) + { + Error("Size of long integers is not 64 bits as expected."); + Error("You better modify the sources and recompile."); + Error("No buffers will be allocated."); + return NULL; + } +#else + if ( sizeof(long) != 4 ) + { + Error("Size of long integers is not 32 bits as expected."); + Error("You better modify the sources and recompile."); + Error("No buffers will be allocated."); + return NULL; + } +#endif + + if ( (buf = (IO_BUFFER *) malloc(sizeof(IO_BUFFER))) == + (IO_BUFFER *) NULL ) + { + Warning("Allocating I/O buffer failed"); + return(buf); + } + + if ( buflen <= 0 ) + buflen = IO_BUFFER_INITIAL_LENGTH; + else if ( buflen < IO_BUFFER_MINIMUM_SIZE ) + buflen = IO_BUFFER_MINIMUM_SIZE; + + /* If the allocation of the actual buffer fails, free the desciptor again */ + if ( (buf->buffer = (BYTE *) malloc((size_t)(buflen+4))) == (BYTE *) NULL ) + { + char msg[256]; + (void) sprintf(msg,"Allocating %ld bytes for I/O buffer failed", + (long)((size_t)(buflen+4))); + Warning(msg); + free((void *)buf); + return((IO_BUFFER *) NULL); + } + + buf->is_allocated = 1; + + buf->buflen = buf->w_remaining = buflen; + buf->r_remaining = 0; + buf->data = buf->buffer; + buf->item_start_offset[0] = 0; + buf->item_level = 0; + buf->input_fileno = buf->output_fileno = -1; + buf->input_file = buf->output_file = (FILE *) NULL; + buf->regular = 0; + buf->user_function = NULL; + buf->item_length[0] = buf->sub_item_length[0] = 0; + buf->data_pending = -1; + buf->min_length = buflen; + buf->max_length = IO_BUFFER_MAXIMUM_LENGTH; + +#if ( defined(CPU_68K) || defined(CPU_RS6000) || defined(CPU_PowerPC) ) +# ifndef REVERSE_BYTE_ORDER + buf->byte_order = 1; /* Reverse byte order by default */ +# else + buf->byte_order = 0; /* Natural byte order if wanted */ +# endif +#else +# ifndef REVERSE_BYTE_ORDER + buf->byte_order = 0; /* Write with native byte order */ +# else + buf->byte_order = 1; /* Reverse byte order if wanted */ +# endif +#endif + + return(buf); +} + +/* ---------------------- extend_io_buffer ------------------------- */ +/** + * @short Extend the dynamically allocated I/O buffer. + * + * Extend the dynamically allocated I/O buffer and if an item + * has been started and the argument 'next_byte' is smaller + * than 256 that argument will be appended as the next + * byte to the buffer. + * + * @param iobuf The I/O buffer descriptor + * @param next_byte The value of the next byte or >= 256 + * @param increment The no. of bytes by which to increase + * the buffer beyond the current point. + * If there is remaining space for + * writing, the buffer is extended by + * less than 'increment'. + * + * @return next_byte (modulo 256) if successful, -1 for failure + */ + +#ifdef ANSI_C +int extend_io_buffer (IO_BUFFER *iobuf, unsigned next_byte, long increment) +#else +int extend_io_buffer (iobuf, next_byte, increment) + IO_BUFFER *iobuf; + unsigned next_byte; + long increment; +#endif +{ + long new_length, offset, remaining; + BYTE *tptr; + static long last_failed_length; + + /* NULL argument passed? */ + if ( iobuf == (IO_BUFFER *) NULL ) + return -1; + /* No buffer content? */ + if ( iobuf->buffer == (BYTE *) NULL ) + return -1; + /* Was the buffer obtained by other means than allocate_io_buffer()? */ + if ( !iobuf->is_allocated ) + return -1; + if ( increment < 1048576 && iobuf->buflen >= 8388608 ) + increment = 1048576; + else if ( increment < 262144 && iobuf->buflen >= 2097152 ) + increment = 262144; + else if ( increment < 131072 && iobuf->buflen >= 1048567 ) + increment = 131072; + else if ( increment < 8192 ) + increment = 8192; + if ( iobuf->item_level > 0 ) + { + remaining = iobuf->buflen - (long) (iobuf->data-iobuf->buffer); + if ( remaining >= increment ) + { + iobuf->w_remaining += increment; + if ( next_byte < 256 ) + *(iobuf->data++) = (BYTE) next_byte; + return((int)next_byte&0xff); + } + else if ( increment > remaining ) + increment -= remaining; + } + + /* If the reallocation fails give a warning but not each time if */ + /* this function is called many times in an output loop before the */ + /* buffer status is actually checked. */ + if ( (new_length = iobuf->buflen + increment) > iobuf->max_length ) + { + /* The following comparison is not strictly multi-threading safe */ + /* but is not considered a problem since it can only result in */ + /* too many warning messages and is only encountered in rare cases. */ + if ( iobuf->buflen != last_failed_length ) + { + char msg[256]; + last_failed_length = iobuf->buflen; + (void) sprintf(msg, + "Cannot extend I/O buffer of length %ld by another %ld bytes", + iobuf->buflen+4,increment); + Warning(msg); + } + iobuf->w_remaining = -1; + return -1; + } + offset = iobuf->data - iobuf->buffer; + + if ( (tptr = (BYTE *) + realloc((void *)iobuf->buffer,(size_t)(new_length+4))) == + (BYTE *) NULL ) + { + char msg[256]; + (void) sprintf(msg, + "Insufficient memory for extending I/O block to %ld bytes", + (long) ((size_t)(new_length+4))); + Warning(msg); + iobuf->w_remaining = -1; + return -1; + } + else + { + char msg[256]; + sprintf(msg,"I/O block extended by %ld to %ld bytes", + increment,new_length+4); + Information(msg); + iobuf->buffer = tptr; + iobuf->data = iobuf->buffer + offset; + iobuf->buflen = new_length; + iobuf->w_remaining += increment; + if ( iobuf->item_level > 0 && next_byte < 256 ) + *(iobuf->data++) = (BYTE) next_byte; + } + + return (int)(next_byte&0xff); +} + +/* ----------------------- free_io_buffer ---------------------- */ +/** + * @short Free an I/O buffer that has been allocated at run-time. + * + * Free an I/O buffer that has been allocated at + * run-time (e.g. by a call to allocate_io_buf()). + * + * @param iobuf The buffer descriptor to be de-allocated. + * + * @return (none) + */ + +#ifdef ANSI_C +void free_io_buffer (IO_BUFFER *iobuf) +#else +void free_io_buffer (iobuf) + IO_BUFFER *iobuf; +#endif +{ + if ( iobuf != (IO_BUFFER *) NULL ) + { + if ( iobuf->buffer != (BYTE *) NULL && iobuf->is_allocated ) + free((void *)iobuf->buffer); + free((void *)iobuf); + } +} + +/* --------------------- put_vector_of_byte -------------------- */ +/** + * Put a vector of bytes into an I/O buffer. + * + * @param vec Byte data vector. + * @param num Number of bytes to be put. + * @param iobuf I/O buffer descriptor. + * + * @return (none) + */ + +#ifdef ANSI_C +void put_vector_of_byte (BYTE *vec, int num, IO_BUFFER *iobuf) +#else +void put_vector_of_byte (vec, num, iobuf) + BYTE *vec; + int num; + IO_BUFFER *iobuf; +#endif +{ + if ( num <= 0 ) + return; + + if ( (iobuf->w_remaining-=num) < 0 ) + if ( extend_io_buffer(iobuf,256,(IO_BUFFER_LENGTH_INCREMENT)) < 0 ) + return; + + if ( vec == (BYTE *) NULL ) + memset((void *)iobuf->data,0,(size_t)num); + else + COPY_BYTES((void *)iobuf->data,(void *)vec,(size_t)num); + + iobuf->data += num; +} + +/* --------------------- get_vector_of_byte -------------------- */ +/** + * Get a vector of bytes from an I/O buffer. + * + * @param vec -- Byte data vector. + * @param num -- Number of bytes to get. + * @param iobuf -- I/O buffer descriptor. + * + * @return (none) + */ + +#ifdef ANSI_C +void get_vector_of_byte (BYTE *vec, int num, IO_BUFFER *iobuf) +#else +void get_vector_of_byte (vec, num, iobuf) + BYTE *vec; + int num; + IO_BUFFER *iobuf; +#endif +{ + if ( num <= 0 ) + return; + + if ( (iobuf->r_remaining-=num) < 0 ) + return; + + if ( vec != (BYTE *) NULL ) + COPY_BYTES((void *)vec,(void *)iobuf->data,(size_t)num); + iobuf->data += num; +} + +/* -------------------------- put_short ------------------------ */ +/** + * @short Put a two-byte integer on an I/O buffer. + * + * Put a two-byte integer on an I/O buffer with least + * significant byte first. Should be machine independent + * as long as 'short' and 'unsigned short' are 16-bit integers, + * the two's complement is used for negative numbers, and + * the '>>' operator does a logical shift with unsigned short. + * Although the 'num' argument is a 4-byte integer on most + * machines, the value shoud be in the range -32768 to 32767. + * + * @param num The number to be saved. Should fit into a + * short integer and will be truncated otherwise. + * @param iobuf The output buffer descriptor. + * + * @return (none) + */ + +#ifdef ANSI_C +void put_short(int num, IO_BUFFER *iobuf) +#else +void put_short(num,iobuf) + int num; + IO_BUFFER *iobuf; +#endif +{ + union + { + int16_t sval; + BYTE cval[2]; + } val[2]; + + if ( (iobuf->w_remaining-=2) < 0 ) + if ( extend_io_buffer(iobuf,256,IO_BUFFER_LENGTH_INCREMENT) < 0 ) + return; + + if ( iobuf->byte_order == 0) + val[1].sval = (int16_t) num; + else + { + val[0].sval = (int16_t) num; + val[1].cval[0] = val[0].cval[1]; + val[1].cval[1] = val[0].cval[0]; + } + + COPY_BYTES((void *)iobuf->data,(void *)&val[1].sval,(size_t)2); + iobuf->data += 2; +} + +/* ---------------------- put_vector_of_short --------------------- */ +/** + * @short Put a vector of 2-byte integers on an I/O buffer. + * + * Put a vector of 2-byte integers on an I/O buffer. This may be + * relaced by a more efficient but machine-dependent version later. + * May be called by a number of elements equal to 0. In this + * case, nothing is done. + */ + +#ifdef ANSI_C +void put_vector_of_short (short *vec, int num, IO_BUFFER *iobuf) +#else +void put_vector_of_short (vec, num, iobuf) + short *vec; + int num; + IO_BUFFER *iobuf; +#endif +{ + REGISTER int i; + + if ( vec == (short *) NULL ) + { + for (i=0; iw_remaining-=2) < 0 ) + if ( extend_io_buffer(iobuf,256,IO_BUFFER_LENGTH_INCREMENT) < 0 ) + return; + + if ( iobuf->byte_order == 0) + { + COPY_BYTES((void *)iobuf->data,(void *)(uval+i),(size_t)2); + } + else + { + val[0].uval = uval[i]; + val[1].cval[0] = val[0].cval[1]; + val[1].cval[1] = val[0].cval[0]; + COPY_BYTES((void *)iobuf->data,(void *)&val[1].uval,(size_t)2); + } + + iobuf->data += 2; + } +} + +/* ----------------- get_vector_of_uint16 ---------------------- */ +/** + * @short Get a vector of unsigned shorts from an I/O buffer. + * + * Get a vector of unsigned shorts from an I/O buffer with least + * significant byte first. The values are in the range 0 to 65535. + * The function should be used where sign propagation is of concern. + * + * @param uval The vector where the values should be loaded. + * @param num The number of elements to load. + * @param iobuf The output buffer descriptor. + * + * @return (none) + */ + +#ifdef ANSI_C +void get_vector_of_uint16 (uint16_t *uval, int num, IO_BUFFER *iobuf) +#else +void get_vector_of_uint16 (uval,num,iobuf) + uint16_t *uval; + int num; + IO_BUFFER *iobuf; +#endif +{ + int i; + union + { + uint16_t uval; + BYTE cval[2]; + } val[2]; + + for (i=0; ir_remaining-=2) < 0 ) + return; + + if ( iobuf->byte_order == 0) + { + COPY_BYTES((void *)(uval+i),(void *)iobuf->data,(size_t)2); + } + else + { + COPY_BYTES((void *)&val[0].uval,(void *)iobuf->data,(size_t)2); + val[1].cval[0] = val[0].cval[1]; + val[1].cval[1] = val[0].cval[0]; + uval[i] = val[1].uval; + } + + iobuf->data += 2; + } +} + +/* --------------------------- get_short ---------------------- */ +/** + * @short Get a two-byte integer from an I/O buffer. + * + * Get a two-byte integer with least significant byte + * first. Should be machine-independent (see put_short()). + */ + +#ifdef ANSI_C +int get_short(IO_BUFFER *iobuf) +#else +int get_short(iobuf) + IO_BUFFER *iobuf; +#endif +{ + + int16_t num; + + union + { + int16_t sval; + BYTE cval[2]; + } val[2]; + + if ( (iobuf->r_remaining-=2) < 0 ) + return -1; + + if ( iobuf->byte_order == 0 ) + COPY_BYTES((void *) &num,(void *) iobuf->data,(size_t)2); + else + { + COPY_BYTES((void *)&val[0].sval,(void *)iobuf->data,(size_t)2); + val[1].cval[0] = val[0].cval[1]; + val[1].cval[1] = val[0].cval[0]; + num = val[1].sval; + } + + iobuf->data += 2; + + /* Note that a sign propagation may happen here */ + return ((int) num); +} + +/* -------------------- get_vector_of_short ------------------ */ +/** + * Get a vector of short integers from I/O buffer. + */ + +#ifdef ANSI_C +void get_vector_of_short (short *vec, int num, IO_BUFFER *iobuf) +#else +void get_vector_of_short (vec, num, iobuf) + short *vec; + int num; + IO_BUFFER *iobuf; +#endif +{ + REGISTER int i; + + if ( vec == (short *) NULL ) + { + if ( (iobuf->r_remaining-=(2*num)) >= 0 ) + iobuf->data += 2*num; + return; + } + + for (i=0; ir_remaining-=(2*num)) >= 0 ) + iobuf->data += 2*num; + return; + } + + for (i=0; iw_remaining-=4) < 0 ) + if ( extend_io_buffer(iobuf,256,IO_BUFFER_LENGTH_INCREMENT) < 0 ) + return; + + if ( iobuf->byte_order == 0 ) + { + ival = (int32_t) num; + COPY_BYTES((void *)iobuf->data,(void *) &ival,(size_t)4); + } + else + { + val[0].lval = (int32_t) num; + val[1].cval[0] = val[0].cval[3]; + val[1].cval[1] = val[0].cval[2]; + val[1].cval[2] = val[0].cval[1]; + val[1].cval[3] = val[0].cval[0]; + COPY_BYTES((void *)iobuf->data,(void *)&val[1].lval,(size_t)4); + } + + iobuf->data += 4; +} + +/* ---------------------- put_vector_of_int32 ------------------ */ +/** + * Put a vector of 32 bit integers into I/O buffer. + */ + +#ifdef ANSI_C +void put_vector_of_int32 (int32_t *vec, int num, IO_BUFFER *iobuf) +#else +void put_vector_of_int32 (vec, num, iobuf) + int32_t *vec; + int num; + IO_BUFFER *iobuf; +#endif +{ + REGISTER int i; + + if ( vec == (int32_t *) NULL ) + { + for (i=0; ir_remaining-=4) < 0 ) + return -1L; + + if ( iobuf->byte_order == 0 ) + COPY_BYTES((void *) &num,(void *)iobuf->data,(size_t)4); + else + { + COPY_BYTES((void *)&val[0].lval,(void *)iobuf->data,(size_t)4); + val[1].cval[0] = val[0].cval[3]; + val[1].cval[1] = val[0].cval[2]; + val[1].cval[2] = val[0].cval[1]; + val[1].cval[3] = val[0].cval[0]; + num = val[1].lval; + } + + iobuf->data += 4; + + return num; +} + +/* ---------------------- get_vector_of_int32 ------------------ */ +/** + * Get a vector of 32 bit integers from I/O buffer. + */ + +#ifdef ANSI_C +void get_vector_of_int32 (int32_t *vec, int num, IO_BUFFER *iobuf) +#else +void get_vector_of_int32 (vec, num, iobuf) + int32_t *vec; + int num; + IO_BUFFER *iobuf; +#endif +{ + REGISTER int i; + + union + { + int32_t lval; + BYTE cval[4]; + } val[2]; + + if ( num <= 0 ) + return; + + if ( (iobuf->r_remaining-=4*num) < 0 ) + return; + + if ( vec == NULL ) + { + iobuf->data += 4*num; + return; + } + + if ( iobuf->byte_order == 0 ) + { + COPY_BYTES((void *) vec,(void *)iobuf->data,(size_t)(4*num)); + iobuf->data += 4*num; + } + else + { + for ( i=0; idata,(size_t)4); + val[1].cval[0] = val[0].cval[3]; + val[1].cval[1] = val[0].cval[2]; + val[1].cval[2] = val[0].cval[1]; + val[1].cval[3] = val[0].cval[0]; + vec[i] = val[1].lval; + iobuf->data += 4; + } + } +} + +/* --------------------------- put_int32 ----------------------- */ +/** + * @short Put a four-byte integer into an I/O buffer. + * + * Write a four-byte integer with least significant bytes + * first. Should be machine independent (see put_short()). + */ + +#ifdef ANSI_C +void put_uint32(uint32_t num, IO_BUFFER *iobuf) +#else +void put_uint32(num,iobuf) + uint32_t num; + IO_BUFFER *iobuf; +#endif +{ + union + { + uint32_t lval; + BYTE cval[4]; + } val[2]; + uint32_t ival; + + if ( (iobuf->w_remaining-=4) < 0 ) + if ( extend_io_buffer(iobuf,256,IO_BUFFER_LENGTH_INCREMENT) < 0 ) + return; + + if ( iobuf->byte_order == 0 ) + { + ival = (uint32_t) num; + COPY_BYTES((void *)iobuf->data,(void *) &ival,(size_t)4); + } + else + { + val[0].lval = (uint32_t) num; + val[1].cval[0] = val[0].cval[3]; + val[1].cval[1] = val[0].cval[2]; + val[1].cval[2] = val[0].cval[1]; + val[1].cval[3] = val[0].cval[0]; + COPY_BYTES((void *)iobuf->data,(void *)&val[1].lval,(size_t)4); + } + + iobuf->data += 4; +} + +/* ---------------------- put_vector_of_uint32 ------------------ */ +/** + * Put a vector of 32 bit integers into I/O buffer. + */ + +#ifdef ANSI_C +void put_vector_of_uint32 (uint32_t *vec, int num, IO_BUFFER *iobuf) +#else +void put_vector_of_uint32 (vec, num, iobuf) + uint32_t *vec; + int num; + IO_BUFFER *iobuf; +#endif +{ + REGISTER int i; + + if ( vec == (uint32_t *) NULL ) + { + for (i=0; ir_remaining-=4) < 0 ) + return -1L; + + if ( iobuf->byte_order == 0 ) + COPY_BYTES((void *) &num,(void *)iobuf->data,(size_t)4); + else + { + COPY_BYTES((void *)&val[0].lval,(void *)iobuf->data,(size_t)4); + val[1].cval[0] = val[0].cval[3]; + val[1].cval[1] = val[0].cval[2]; + val[1].cval[2] = val[0].cval[1]; + val[1].cval[3] = val[0].cval[0]; + num = val[1].lval; + } + + iobuf->data += 4; + + return num; +} + +/* ---------------------- get_vector_of_uint32 ------------------ */ +/** + * Get a vector of 32 bit integers from I/O buffer. + */ + +#ifdef ANSI_C +void get_vector_of_uint32 (uint32_t *vec, int num, IO_BUFFER *iobuf) +#else +void get_vector_of_uint32 (vec, num, iobuf) + uint32_t *vec; + int num; + IO_BUFFER *iobuf; +#endif +{ + REGISTER int i; + + union + { + uint32_t lval; + BYTE cval[4]; + } val[2]; + + if ( num <= 0 ) + return; + + if ( (iobuf->r_remaining-=4*num) < 0 ) + return; + + if ( vec == NULL ) + { + iobuf->data += 4*num; + return; + } + + if ( iobuf->byte_order == 0 ) + { + COPY_BYTES((void *) vec,(void *)iobuf->data,(size_t)(4*num)); + iobuf->data += 4*num; + } + else + { + for ( i=0; idata,(size_t)4); + val[1].cval[0] = val[0].cval[3]; + val[1].cval[1] = val[0].cval[2]; + val[1].cval[2] = val[0].cval[1]; + val[1].cval[3] = val[0].cval[0]; + vec[i] = val[1].lval; + iobuf->data += 4; + } + } +} + +/* --------------------------- put_long ----------------------- */ +/** + * @short Put a four-byte integer taken from a 'long' into an I/O buffer. + * + * Write a four-byte integer with least significant bytes + * first. Should be machine independent (see put_short()). + */ + +#ifdef ANSI_C +void put_long(long num, IO_BUFFER *iobuf) +#else +void put_long(num,iobuf) + long num; + IO_BUFFER *iobuf; +#endif +{ + union + { + int32_t lval; + BYTE cval[4]; + } val[2]; + int32_t ival; + + if ( (iobuf->w_remaining-=4) < 0 ) + if ( extend_io_buffer(iobuf,256,IO_BUFFER_LENGTH_INCREMENT) < 0 ) + return; + + if ( iobuf->byte_order == 0 ) + { + ival = (int32_t) num; + COPY_BYTES((void *)iobuf->data,(void *) &ival,(size_t)4); + } + else + { + val[0].lval = (int32_t) num; + val[1].cval[0] = val[0].cval[3]; + val[1].cval[1] = val[0].cval[2]; + val[1].cval[2] = val[0].cval[1]; + val[1].cval[3] = val[0].cval[0]; + COPY_BYTES((void *)iobuf->data,(void *)&val[1].lval,(size_t)4); + } + + iobuf->data += 4; +} + +/* ---------------------- put_vector_of_long ------------------ */ +/** + * Put a vector of long int as 4-byte integers into an I/O buffer. + */ + +#ifdef ANSI_C +void put_vector_of_long (long *vec, int num, IO_BUFFER *iobuf) +#else +void put_vector_of_long (vec, num, iobuf) + long *vec; + int num; + IO_BUFFER *iobuf; +#endif +{ + REGISTER int i; + + if ( vec == (long *) NULL ) + { + for (i=0; ir_remaining-=4) < 0 ) + return -1L; + + if ( iobuf->byte_order == 0 ) + COPY_BYTES((void *) &num,(void *)iobuf->data,(size_t)4); + else + { + COPY_BYTES((void *)&val[0].lval,(void *)iobuf->data,(size_t)4); + val[1].cval[0] = val[0].cval[3]; + val[1].cval[1] = val[0].cval[2]; + val[1].cval[2] = val[0].cval[1]; + val[1].cval[3] = val[0].cval[0]; + num = val[1].lval; + } + + iobuf->data += 4; + + /* Note that for 64-bit machines a sign propagation may happen here */ + return (long) num; +} + +/* ---------------------- get_vector_of_long ------------------ */ +/** + * Get a vector of 4-byte integers as long int from I/O buffer. + */ + +#ifdef ANSI_C +void get_vector_of_long (long *vec, int num, IO_BUFFER *iobuf) +#else +void get_vector_of_long (vec, num, iobuf) + long *vec; + int num; + IO_BUFFER *iobuf; +#endif +{ + REGISTER int i; + + union + { + int32_t lval; + BYTE cval[4]; + } val[2]; + + if ( num <= 0 ) + return; + + if ( (iobuf->r_remaining-=4*num) < 0 ) + return; + + if ( vec == (long *) NULL ) + { + iobuf->data += 4*num; + return; + } + + if ( iobuf->byte_order == 0 ) + { +#ifdef SIXTY_FOUR_BITS + for ( i=0; idata,(size_t)4); + /* Note the possible sign propagation */ + vec[i] = (long) val[1].lval; + iobuf->data += 4; + } +#else + COPY_BYTES((void *) vec,(void *)iobuf->data,(size_t)(4*num)); + iobuf->data += 4*num; +#endif + } + else + { + for ( i=0; idata,(size_t)4); + val[1].cval[0] = val[0].cval[3]; + val[1].cval[1] = val[0].cval[2]; + val[1].cval[2] = val[0].cval[1]; + val[1].cval[3] = val[0].cval[0]; + /* Note the possible sign propagation on 64-bit machines */ + vec[i] = (long) val[1].lval; + iobuf->data += 4; + } + } +} + +#ifdef HAVE_64BIT_INT + +/* ----------------- put_vector_of_int64 ---------------------- */ +/** + * @short Put a vector of signed 64-bit integers into an I/O buffer. + * + * The function is only available where int64_t/uint64_t data + * types are implemented in the C compiler. + * + * @param uval The vector of values to be saved. + * @param num The number of elements to save. + * @param iobuf The output buffer descriptor. + * + * @return (none) + * + */ + +#ifdef ANSI_C +void put_vector_of_int64 (int64_t *ival, int num, IO_BUFFER *iobuf) +#else +void put_vector_of_int64 (ival,num,iobuf) + int64_t *ival; + int num; + IO_BUFFER *iobuf; +#endif +{ + int i; + union + { + int64_t ival; + BYTE cval[8]; + } val[2]; + + for (i=0; iw_remaining-=8) < 0 ) + if ( extend_io_buffer(iobuf,256,IO_BUFFER_LENGTH_INCREMENT) < 0 ) + return; + + if ( iobuf->byte_order == 0) + { + COPY_BYTES((void *)iobuf->data,(void *)(ival+i),(size_t)8); + } + else + { + val[0].ival = ival[i]; + val[1].cval[0] = val[0].cval[7]; + val[1].cval[1] = val[0].cval[6]; + val[1].cval[2] = val[0].cval[5]; + val[1].cval[3] = val[0].cval[4]; + val[1].cval[4] = val[0].cval[3]; + val[1].cval[5] = val[0].cval[2]; + val[1].cval[6] = val[0].cval[1]; + val[1].cval[7] = val[0].cval[0]; + COPY_BYTES((void *)iobuf->data,(void *)&val[1].ival,(size_t)8); + } + + iobuf->data += 8; + } +} + +/* ----------------- get_vector_of_int64 ---------------------- */ +/** + * @short Get a vector of signed 64-bit integers from an I/O buffer. + * + * The function is only available where int64_t/uint64_t data + * types are implemented in the C compiler. + * + * @param uval The vector where the values should be loaded. + * @param num The number of elements to load. + * @param iobuf The output buffer descriptor. + * + * @return (none) + */ + +#ifdef ANSI_C +void get_vector_of_int64 (int64_t *ival, int num, IO_BUFFER *iobuf) +#else +void get_vector_of_int64 (ival,num,iobuf) + int64_t *ival; + int num; + IO_BUFFER *iobuf; +#endif +{ + int i; + union + { + int64_t ival; + BYTE cval[8]; + } val[2]; + + for (i=0; ir_remaining-=8) < 0 ) + return; + + if ( iobuf->byte_order == 0) + { + COPY_BYTES((void *)(ival+i),(void *)iobuf->data,(size_t)8); + } + else + { + COPY_BYTES((void *)&val[0].ival,(void *)iobuf->data,(size_t)8); + val[1].cval[0] = val[0].cval[7]; + val[1].cval[1] = val[0].cval[6]; + val[1].cval[2] = val[0].cval[5]; + val[1].cval[3] = val[0].cval[4]; + val[1].cval[4] = val[0].cval[3]; + val[1].cval[5] = val[0].cval[2]; + val[1].cval[6] = val[0].cval[1]; + val[1].cval[7] = val[0].cval[0]; + ival[i] = val[1].ival; + } + + iobuf->data += 8; + } +} + +/* ----------------- put_vector_of_uint64 ---------------------- */ +/** + * @short Put a vector of unsigned 64-bit integers into an I/O buffer. + * + * The function is only available where int64_t/uint64_t data + * types are implemented in the C compiler. + * + * @param uval The vector of values to be saved. + * @param num The number of elements to save. + * @param iobuf The output buffer descriptor. + * + * @return (none) + */ + +#ifdef ANSI_C +void put_vector_of_uint64 (uint64_t *uval, int num, IO_BUFFER *iobuf) +#else +void put_vector_of_uint64 (uval,num,iobuf) + uint64_t *uval; + int num; + IO_BUFFER *iobuf; +#endif +{ + int i; + union + { + uint64_t uval; + BYTE cval[8]; + } val[2]; + + for (i=0; iw_remaining-=8) < 0 ) + if ( extend_io_buffer(iobuf,256,IO_BUFFER_LENGTH_INCREMENT) < 0 ) + return; + + if ( iobuf->byte_order == 0) + { + COPY_BYTES((void *)iobuf->data,(void *)(uval+i),(size_t)8); + } + else + { + val[0].uval = uval[i]; + val[1].cval[0] = val[0].cval[7]; + val[1].cval[1] = val[0].cval[6]; + val[1].cval[2] = val[0].cval[5]; + val[1].cval[3] = val[0].cval[4]; + val[1].cval[4] = val[0].cval[3]; + val[1].cval[5] = val[0].cval[2]; + val[1].cval[6] = val[0].cval[1]; + val[1].cval[7] = val[0].cval[0]; + COPY_BYTES((void *)iobuf->data,(void *)&val[1].uval,(size_t)8); + } + + iobuf->data += 8; + } +} + +/* ----------------- get_vector_of_uint64 ---------------------- */ +/** + * @short Get a vector of unsigned 64-bit integers from an I/O buffer. + * + * The function is only available where int64_t/uint64_t data + * types are implemented in the C compiler. + * + * @param uval The vector where the values should be loaded. + * @param num The number of elements to load. + * @param iobuf The output buffer descriptor. + * + * @return (none) + */ + +#ifdef ANSI_C +void get_vector_of_uint64 (uint64_t *uval, int num, IO_BUFFER *iobuf) +#else +void get_vector_of_uint64 (uval,num,iobuf) + uint64_t *uval; + int num; + IO_BUFFER *iobuf; +#endif +{ + int i; + union + { + uint64_t uval; + BYTE cval[8]; + } val[2]; + + for (i=0; ir_remaining-=8) < 0 ) + return; + + if ( iobuf->byte_order == 0) + { + COPY_BYTES((void *)(uval+i),(void *)iobuf->data,(size_t)8); + } + else + { + COPY_BYTES((void *)&val[0].uval,(void *)iobuf->data,(size_t)8); + val[1].cval[0] = val[0].cval[7]; + val[1].cval[1] = val[0].cval[6]; + val[1].cval[2] = val[0].cval[5]; + val[1].cval[3] = val[0].cval[4]; + val[1].cval[4] = val[0].cval[3]; + val[1].cval[5] = val[0].cval[2]; + val[1].cval[6] = val[0].cval[1]; + val[1].cval[7] = val[0].cval[0]; + uval[i] = val[1].uval; + } + + iobuf->data += 8; + } +} + +#endif + +/* ------------------------ put_string --------------------- */ +/** + * @short Put a string of ASCII characters into an I/O buffer. + * + * Put a string of ASCII characters with leading count of + * bytes into an I/O buffer. + * + * @param s The null-terminated ASCII string. + * @param iobuf The I/O buffer descriptor. + * + * @return Length of string + * + */ + +#ifdef ANSI_C +int put_string (char *s, IO_BUFFER *iobuf) +#else +int put_string (s, iobuf) + char *s; + IO_BUFFER *iobuf; +#endif +{ + int len = 0; + + if ( s == (char *) NULL ) + put_short(0,iobuf); + else + { + len = (int) strlen(s); + put_short(len,iobuf); + put_vector_of_byte((BYTE *) s,len,iobuf); + } + + return len; +} + +/* ----------------------- get_string ---------------------- */ +/** + * @short Get a string of ASCII characters from an I/O buffer. + * + * Get a string of ASCII characters with leading count of + * bytes from an I/O buffer. + * + * NOTE: the nmax count does now account for the trailing zero + * byte which will be appended. This was different in an earlier + * version of this function where one additional byte had to + * be available for the trailing zero byte. + * + */ + +#ifdef ANSI_C +int get_string (char *s, int nmax, IO_BUFFER *iobuf) +#else +int get_string (s, nmax, iobuf) + char *s; + int nmax; + IO_BUFFER *iobuf; +#endif +{ + int nbytes, nread; + + nbytes = get_short(iobuf); + nread = (nmax-1 nread ) + { + iobuf->r_remaining -= (nbytes-nread); + iobuf->data += (nbytes-nread); + } + /* Terminate string with null character */ + s[nread] = '\0'; + + return(nbytes); +} + +/* ------------------------ put_long_string --------------------- */ +/** + * @short Put a long string of ASCII characters into an I/O buffer. + * + * Put a long string of ASCII characters with leading count of + * bytes into an I/O buffer. This is expected to work properly + * for strings of more than 32k only on machines with sizeof(int) > 2 + * because 16-bit machines may not be able to represent lengths + * of long strings (as obtained with strlen). + * + * @param s The null-terminated ASCII string. + * @param iobuf The I/O buffer descriptor. + * + * @return Length of string + * + */ + +#ifdef ANSI_C +int put_long_string (char *s, IO_BUFFER *iobuf) +#else +int put_long_string (s, iobuf) + char *s; + IO_BUFFER *iobuf; +#endif +{ + int32_t len = 0; + + if ( s == (char *) NULL ) + put_short(0,iobuf); + else + { + len = (int32_t) strlen(s); + put_int32(len,iobuf); + put_vector_of_byte((BYTE *) s,len,iobuf); + } + + return (int) len; +} + +/* ----------------------- get_long_string ---------------------- */ +/** + * @short Get a long string of ASCII characters from an I/O buffer. + * + * Get a long string of ASCII characters with leading count of + * bytes from an I/O buffer. Strings can be up to 2^31-1 bytes long + * (assuming you have so much memory). + * + * To work properly with strings longer than 32k, a machine with + * sizeof(int) > 2 is actually required. + * + * NOTE: the nmax count does account also for the trailing zero + * byte which will be appended. + * + */ + +#ifdef ANSI_C +int get_long_string (char *s, int nmax, IO_BUFFER *iobuf) +#else +int get_long_string (s, nmax, iobuf) + char *s; + int nmax; + IO_BUFFER *iobuf; +#endif +{ + int32_t nbytes, nread; + + nbytes = get_int32(iobuf); + /* minimum of both */ + nread = (nmax-1 nread ) + { + iobuf->r_remaining -= (nbytes-nread); + iobuf->data += (nbytes-nread); + } + /* Terminate string with null character */ + s[nread] = '\0'; + + return(nbytes); +} + +/* ----------------------- put_real ------------------------ */ +/** + * @short Put a 4-byte floating point number into an I/O buffer. + * + * Put a 'double' (floating point) number in a + * specific but (almost) machine-independent format into + * an I/O buffer. + * Not the full precision of a 'double' is saved but + * a 32 bit IEEE floating point number is written (with the + * same byte ordering as long integers). On machines with + * other floating point format than IEEE the input number + * is converted to a IEEE number first. An optimized (machine- + * specific) version should compute the output data by shift and + * add operations rather than by log(), divide, and multiply + * operations on such non-IEEE-format machines (implemented + * for VAX only). + * + * @param dnum The number to be put into the I/O buffer. + * @param iobuf The I/O buffer descriptor. + * + * @return (none) + * + */ + +#ifdef ANSI_C +void put_real (double dnum, IO_BUFFER *iobuf) +#else +void put_real (dnum, iobuf) + double dnum; + IO_BUFFER *iobuf; +#endif +{ + +#ifdef IEEE_FLOAT_FORMAT + + union + { + float fnum; + int32_t lnum; + } val; + + val.fnum = (float) dnum; + put_int32(val.lnum,iobuf); + +#else +# ifdef VAX_FLOAT_FORMAT + + union + { + float real; + unsigned short words[2]; + } rswapit; + union + { + long lword; + unsigned short words[1]; + } lswapit; + + rswapit.real = (float) (dnum*0.25); + lswapit.words[1] = rswapit.words[0]; + lswapit.words[0] = rswapit.words[1]; + put_long(lswapit.lword,iobuf); + +# else + + unsigned long sign, exponent, mantissa, rnum; + static double log2 = 0.6931471805599453; + static double two23 = 8388608.; + double tnum; + + if ( dnum==0. ) + sign = exponent = mantissa = 0; + else + { + if ( dnum < 0 ) + { + sign = 0x80000000L; + dnum = -1.*dnum; + } + else + sign = 0; + /* Take care to avoid a factor of 2 effect due to tiny round-off */ + /* error with input numbers like 1.99999999 */ + exponent = (unsigned long) (127. + log(dnum)/log2); + tnum = dnum/pow(2.,(double)exponent-127.); + if ( (tnum-1.) * two23 + 0.499 >= two23 ) + { + tnum /= 2; + exponent += 1; + } + mantissa = ((unsigned long) ((tnum-1.) * two23 + 0.499)) & 0x007fffffL; + exponent = (exponent&0xff) << 23; + } + + rnum = sign|exponent|mantissa,iobuf; + put_long(rnum,iobuf); + +# endif +#endif + +} + +/* ------------------ put_vector_of_real ------------------ */ +/** + * Put a vector of doubles as IEEE 'float' numbers into an I/O buffer. + */ + +#ifdef ANSI_C +void put_vector_of_real (double *dvec, int num, IO_BUFFER *iobuf) +#else +void put_vector_of_real (dvec, num, iobuf) + double *dvec; + int num; + IO_BUFFER *iobuf; +#endif +{ + int i; + + if ( dvec == (double *) NULL ) + { + for (i=0; i> 23; + mantissa = (rnum & 0x007fffffL); + + dnum = ((double)mantissa/two23+1.)*pow(2.,(double)exponent-127.); + if ( rnum & 0x80000000L ) + dnum *= -1; + + return(dnum); + +# endif +#endif + +} + +/* ------------------- get_vector_of_real -------------------- */ +/** + * Get a vector of floating point numbers as 'doubles' from an I/O buffer. + */ + +#ifdef ANSI_C +void get_vector_of_real (double *dvec, int num, IO_BUFFER *iobuf) +#else +void get_vector_of_real (dvec, num, iobuf) + double *dvec; + int num; + IO_BUFFER *iobuf; +#endif +{ + int i; + + if ( dvec == (double *) NULL ) + { + if ( (iobuf->r_remaining-=(4*num)) >= 0 ) + iobuf->data += 4*num; + return; + } + + for (i=0; ir_remaining-=(4*num)) >= 0 ) + iobuf->data += 4*num; + return; + } + + for (i=0; iw_remaining-=8) < 0 ) + if ( extend_io_buffer(iobuf,256,IO_BUFFER_LENGTH_INCREMENT) < 0 ) + return; + + if ( iobuf->byte_order == 0 ) + { + COPY_BYTES((void *) iobuf->data, (void *) val[0].cval, (size_t)8); + } + else + { + val[1].cval[0] = val[0].cval[7]; + val[1].cval[1] = val[0].cval[6]; + val[1].cval[2] = val[0].cval[5]; + val[1].cval[3] = val[0].cval[4]; + val[1].cval[4] = val[0].cval[3]; + val[1].cval[5] = val[0].cval[2]; + val[1].cval[6] = val[0].cval[1]; + val[1].cval[7] = val[0].cval[0]; + COPY_BYTES((void *) iobuf->data, (void *) val[1].cval, (size_t)8); + } + + iobuf->data += 8; +} + +/* ------------------ put_vector_of_double ------------------ */ +/** + * @short Put a vector of doubles into an I/O buffer. + * + * Put a vector of 'double' floating point numbers as IEEE + * 'double' numbers into an I/O buffer. + * + */ + +#ifdef ANSI_C +void put_vector_of_double (double *dvec, int num, IO_BUFFER *iobuf) +#else +void put_vector_of_double (dvec, num, iobuf) + double *dvec; + int num; + IO_BUFFER *iobuf; +#endif +{ + int i; + + if ( dvec == (double *) NULL ) + { + for (i=0; ir_remaining-=8) < 0 ) + return -1L; + + if ( iobuf->byte_order == 0 ) + COPY_BYTES((void *) val[1].cval, (void *) iobuf->data, (size_t)8); + else + { + COPY_BYTES((void *) val[0].cval, (void *) iobuf->data, (size_t)8); + val[1].cval[0] = val[0].cval[7]; + val[1].cval[1] = val[0].cval[6]; + val[1].cval[2] = val[0].cval[5]; + val[1].cval[3] = val[0].cval[4]; + val[1].cval[4] = val[0].cval[3]; + val[1].cval[5] = val[0].cval[2]; + val[1].cval[6] = val[0].cval[1]; + val[1].cval[7] = val[0].cval[0]; + } + + iobuf->data += 8; + + return val[1].dnum; +} + +/* ------------------- get_vector_of_double -------------------- */ +/** + * Get a vector of floating point numbers as 'doubles' from an I/O buffer. + */ + +#ifdef ANSI_C +void get_vector_of_double (double *dvec, int num, IO_BUFFER *iobuf) +#else +void get_vector_of_double (dvec, num, iobuf) + double *dvec; + int num; + IO_BUFFER *iobuf; +#endif +{ + int i; + + if ( dvec == (double *) NULL ) + { + if ( (iobuf->r_remaining-=(4*num)) >= 0 ) + iobuf->data += 4*num; + return; + } + + for (i=0; itype ) + return -1; + ilevel = item_header->level = iobuf->item_level; + iobuf->r_remaining = -1; + + if ( ilevel >= MAX_IO_ITEM_LEVEL ) + { + char msg[256]; + (void) sprintf(msg, + "Maximum level of sub-items in I/O Buffer exceeded for item type %ld", + item_header->type); + Warning(msg); + item_header->level = MAX_IO_ITEM_LEVEL - 1; + return -1; + } + + /* When starting a top item, additional work has to be done. */ + if ( ilevel == 0 ) + { + if ( iobuf->buffer == (BYTE *) NULL || + iobuf->buflen < 16 ) + return -1; + iobuf->data = iobuf->buffer; + iobuf->w_remaining = iobuf->buflen; + put_long((long)0xD41F8A37L,iobuf); + } + + if ( iobuf->w_remaining < 12 ) + return -1; + + this_type = (unsigned long) (item_header->type & 0x0000ffffL) | + ((unsigned long) item_header->version << 20); + put_long((long)this_type, iobuf); + + /* Write the identification number as supplied */ + put_long(item_header->ident,iobuf); + + /* The length of the item is stored at the next 4 bytes which cannot */ + /* be done immediately but only when the item or sub-item is completely */ + /* on the buffer. */ + iobuf->item_length[ilevel] = 0; + put_long(0L,iobuf); + + /* Add this item's header length to the sub-item lengths of superiour items. */ + if ( ilevel > 0 ) + iobuf->sub_item_length[ilevel-1] += 12; + + /* Keep track where the data of this item starts. Because the actual */ + /* buffer might be dynamically reallocated and moved, only offsets with */ + /* respect to the beginning of the buffer are saved but no pointers. */ + iobuf->item_start_offset[ilevel] = /* item_header->start_of_data = */ + (long) (iobuf->data-iobuf->buffer); + iobuf->sub_item_length[ilevel] = 0; + + iobuf->item_level++; + + return 0; +} + +/* ------------------------- put_item_end ------------------------- */ +/** + * @short End of putting an item into the output buffer. + * + * When finished with putting an item to the output buffer, + * check for errors and do housekeeping. + * + * @param iobuf The output buffer descriptor. + * @param item_header The item header descriptor. + * + * @return 0 (O.k.) or -1 (error) + * + */ + +#ifdef ANSI_C +int put_item_end (IO_BUFFER *iobuf, IO_ITEM_HEADER *item_header) +#else +int put_item_end (iobuf, item_header) + IO_BUFFER *iobuf; + IO_ITEM_HEADER *item_header; +#endif +{ + int rc; + REGISTER int ilevel; + long length, padding, j; + BYTE *save_data_ptr; + + if ( item_header->level >= iobuf->item_level ) + { + Warning("Attempt to finish putting an item which is no more active"); + return -1; + } + if ( iobuf->item_level <= 0 || item_header->level < 0 ) + return -1; + + /* There might be more than one item level having to be finished. */ + for ( ilevel = (--iobuf->item_level); ilevel>=item_header->level; ilevel-- ) + { + /* The length of the item is the distance of the current write */ + /* position from the beginning of data of the item. */ + length = (long) (iobuf->data - iobuf->buffer) - + iobuf->item_start_offset[ilevel]; + padding = (4 - length%4) % 4; + for ( j=0; jitem_length[ilevel] = length; + /* In order to keep track if an item can be searched for sub-items, */ + /* the sub-item length must be increased also by the no. of bytes padded. */ + iobuf->sub_item_length[ilevel] += padding; + + /* Add this item's length to the sub-item lengths of superiour items. */ + if ( ilevel > 0 ) + iobuf->sub_item_length[ilevel-1] += iobuf->item_length[ilevel]; + + /* Now save the length field at its place right in front of the */ + /* beginning of data of that item. */ + save_data_ptr = iobuf->data; + if ( iobuf->w_remaining < 0 ) + return -1; /* Report error in case of buffer overflow */ + iobuf->w_remaining += 4; + iobuf->data = iobuf->buffer + + (iobuf->item_start_offset[ilevel] - 4); + /* If that item consists entirely of sub-items with known lengths */ + /* set bit 30 of the length field to mark that we can search for */ + /* sub-items in this item. */ + if ( iobuf->item_length[ilevel] == iobuf->sub_item_length[ilevel] ) + put_long(iobuf->item_length[ilevel] | 0x40000000L, iobuf); + else + put_long(iobuf->item_length[ilevel], iobuf); + iobuf->data = save_data_ptr; + } + + rc = 0; + + /* For a top-level item, write the whole data now. */ + if ( (iobuf->item_level=item_header->level) == 0 ) + rc = write_io_block(iobuf); + + return rc; +} + +/* ------------------------- unput_item -------------------------- */ +/** + * @short Undo writing at the present level. + * + * When writing to an I/O buffer, revert anything yet written + * at the present level. If the buffer was extended, the last + * length is kept. + * + * @param iobuf I/O buffer descriptor. + * @param item_header Header of item last read. + * + * @return 0 (ok), -1 (error) + * + */ + +#ifdef ANSI_C +int unput_item (IO_BUFFER *iobuf, IO_ITEM_HEADER *item_header) +#else +int unput_item (iobuf, item_header) + IO_BUFFER *iobuf; + IO_ITEM_HEADER *item_header; +#endif +{ + int old_level; + + /* Have we been in writing mode ? Or was it reading? */ + if ( iobuf->r_remaining != -1 ) + return -1; + /* At what level of nesting was this item created ? */ + old_level = item_header->level; + if ( old_level < 0 || old_level >= MAX_IO_ITEM_LEVEL || + old_level >= iobuf->item_level ) + return -1; + /* Set the data pointer back to before the current item */ + if ( (iobuf->item_level = old_level) == 0 ) + iobuf->data = iobuf->buffer; + else + iobuf->data = iobuf->buffer + + iobuf->item_start_offset[old_level] - 12; + /* The rest of the buffer is available for writing */ + iobuf->w_remaining = iobuf->buflen - + (long) (iobuf->data-iobuf->buffer); + + return 0; +} + +/* ------------------------ get_item_begin ----------------------- */ +/** + * @short Begin reading an item. Reads the header of an item. + * + * Reads the header of an item. If a specific item + * type is requested but a different type is found and the + * length of that item is known, the item is skipped. + * + * @param iobuf The input buffer descriptor. + * @param item_header The item header descriptor. + * + * @return 0 (O.k.), -1 (error), -2 (end-of-buffer) or + * -3 (wrong item type). + * + */ + +#ifdef ANSI_C +int get_item_begin (IO_BUFFER *iobuf, IO_ITEM_HEADER *item_header) +#else +int get_item_begin (iobuf,item_header) + IO_BUFFER *iobuf; + IO_ITEM_HEADER *item_header; +#endif +{ + long sync_tag; + unsigned long this_type; + unsigned long wanted_type; + REGISTER int ilevel; + BYTE *previous_position; + long previous_remaining; + int previous_level, previous_order; + long length; + + if ( iobuf == (IO_BUFFER *) NULL ) + return -1; + + iobuf->w_remaining = -1; + + previous_position = iobuf->data; + previous_remaining = iobuf->r_remaining; + previous_level = ilevel = iobuf->item_level; + previous_order = iobuf->byte_order; + + if ( ilevel >= MAX_IO_ITEM_LEVEL ) + { + Warning("Maximum level of sub-items in I/O Buffer exceeded"); + iobuf->r_remaining = -1; + } + + /* Are we beyond the last sub-item? */ + if ( ilevel > 0 ) + { + /* First check if we are already beyond the top item and then if we */ + /* will be beyond the next smaller level (superiour) item after */ + /* reading this item's header. */ + if ( (long) (iobuf->data-iobuf->buffer) >= iobuf->item_length[0] + 16 || + (long) (iobuf->data-iobuf->buffer) + 12 >= + iobuf->item_start_offset[ilevel-1] + iobuf->item_length[ilevel-1] ) + return -2; + } + /* When starting a top item, additional work has to be done. */ + else if ( ilevel == 0 ) + { + if ( iobuf->data_pending < 0 ) + { + Warning("You must get an I/O block before you can read items"); + return -1; + } + /* Make sure that buffer memory has been allocated. */ + if ( iobuf->buffer == (BYTE *) NULL ) + { + Warning("No memory allocated for I/O buffer"); + return -1; + } + iobuf->data = iobuf->buffer; + iobuf->r_remaining = iobuf->buflen; + + /* Reset the byte-order flag and then check the byte order. */ + iobuf->byte_order = 0; + sync_tag = get_long(iobuf); + +#ifdef SIXTY_FOUR_BITS + if ( (int32_t) sync_tag == (int32_t) 0xD41F8A37 ) + iobuf->byte_order = 0; + else if ( (int32_t) sync_tag == (int32_t) 0x378A1FD4 ) + iobuf->byte_order = 1; +#else + if ( sync_tag == 0xD41F8A37L ) + iobuf->byte_order = 0; + else if ( sync_tag == 0x378A1FD4L ) + iobuf->byte_order = 1; +#endif + else + { + Warning("Invalid byte ordering of input data"); + return -1; + } + } + + /* Remember the requested item type. */ + wanted_type = item_header->type; + /* Extract the actual type and version from the 'type/version' field. */ + this_type = (unsigned long) get_long(iobuf); + item_header->type = this_type & 0x0000ffffL; + item_header->version = (unsigned) (this_type >> 20) & 0xfff; + + /* Extract the identification number */ + item_header->ident = get_long(iobuf); + + /* If bit 30 of length is set the item consists only of sub-items. */ + if ( ((length = get_long(iobuf)) & 0x40000000L) != 0 ) + { + item_header->can_search = 1; + length &= ~0x40000000L; /* Clear bit 30 */ + iobuf->sub_item_length[ilevel] = length; + } + else + { + item_header->can_search = 0; + iobuf->sub_item_length[ilevel] = 0; + } + iobuf->item_length[ilevel] = length; + + /* The present position in the I/O buffer is the start of item data. */ + iobuf->item_start_offset[ilevel] = (long) (iobuf->data - iobuf->buffer); + + /* Only data up to the end of the top item may be read, not up to */ + /* end of the allocated I/O buffer memory. */ + if ( ilevel == 0 ) + iobuf->r_remaining = iobuf->item_length[0]; + + /* If a specified item-type is wanted but a different one is */ + /* found, the previous state is restored. */ + if ( wanted_type > 0 && wanted_type != item_header->type ) + { + iobuf->data = previous_position; + iobuf->r_remaining = previous_remaining; + iobuf->item_level = previous_level; + iobuf->byte_order = previous_order; + return -3; + } + + /* The current item level is saved and then incremented. */ + item_header->level = iobuf->item_level++; + + if ( iobuf->r_remaining < 0 ) + return -1; + + return 0; +} + +/* ------------------------ get_item_end ------------------------- */ +/** + * @short End reading an item. + * + * Finish reading an item. The pointer in the I/O buffer is at + * the end of the item after this call, if succesful. + * + * @param iobuf I/O buffer descriptor. + * @param item_header Header of item last read. + * + * @return 0 (ok), -1 (error) + * + */ + +#ifdef ANSI_C +int get_item_end (IO_BUFFER *iobuf, IO_ITEM_HEADER *item_header) +#else +int get_item_end (iobuf, item_header) + IO_BUFFER *iobuf; + IO_ITEM_HEADER *item_header; +#endif +{ + long length; + REGISTER int ilevel; + + if ( item_header->level != iobuf->item_level-1 ) + { + if ( item_header->level >= iobuf->item_level ) + { + Warning("Attempt to finish getting an item which is not active"); + return 0; /* This item level is (no more) active -- forget it */ + } + else + Warning("Item level is inconsistent"); + } + if (item_header->level >= 0 && item_header->level <= MAX_IO_ITEM_LEVEL) + ilevel = iobuf->item_level = item_header->level; + else + return -1; + + /* If the item has a length specified, check it. */ + if ( iobuf->item_length[ilevel] >= 0 ) + if ( iobuf->item_length[ilevel] != + (length = (long) (iobuf->data - iobuf->buffer) - + iobuf->item_start_offset[ilevel]) ) + { + if ( length > iobuf->item_length[ilevel] ) + { + char msg[256]; + (void) sprintf(msg, + "Actual length of item type %lu exceeds specified length", + item_header->type); + Warning(msg); + } + iobuf->data = iobuf->buffer + + (iobuf->item_start_offset[ilevel] + iobuf->item_length[ilevel]); + } + + /* After having finished a top item no further data may be read. */ + if ( iobuf->item_level == 0 ) + iobuf->r_remaining = -1L; + else + iobuf->r_remaining = iobuf->item_length[0] + 16 - + (long) (iobuf->data - iobuf->buffer); + iobuf->w_remaining = 0; + + return 0; +} + +/* ------------------------- unget_item -------------------------- */ +/** + * @short Go back to the beginning of an item being read. + * + * When reading from an I/O buffer, go back to the beginning of + * an item (more precisely: its header) currently being read. + * + * @param iobuf I/O buffer descriptor. + * @param item_header Header of item last read. + * + * @return 0 (ok), -1 (error) + * + */ + +#ifdef ANSI_C +int unget_item (IO_BUFFER *iobuf, IO_ITEM_HEADER *item_header) +#else +int unget_item (iobuf, item_header) + IO_BUFFER *iobuf; + IO_ITEM_HEADER *item_header; +#endif +{ + int old_level; + + old_level = item_header->level; + if ( old_level < 0 || old_level >= MAX_IO_ITEM_LEVEL || + old_level >= iobuf->item_level ) + return -1; + if ( (iobuf->item_level = old_level) == 0 ) + iobuf->data = iobuf->buffer; + else + iobuf->data = iobuf->buffer + + iobuf->item_start_offset[old_level] - 12; + iobuf->r_remaining = iobuf->item_length[0] + 16 - + (long) (iobuf->data-iobuf->buffer); + iobuf->w_remaining = -1; + + return 0; +} + +/* ------------------------ next_subitem_type ----------------------- */ +/** + * Reads the header of a sub-item and return the type of it. + * + * @param iobuf The input buffer descriptor. + * + * @return >= 0 (O.k.), -1 (error), -2 (end-of-buffer). + */ + +#ifdef ANSI_C +int next_subitem_type (IO_BUFFER *iobuf) +#else +int next_subitem_type (iobuf) + IO_BUFFER *iobuf; +#endif +{ + int this_type; + REGISTER int ilevel; + BYTE *previous_position; + + if ( iobuf == (IO_BUFFER *) NULL ) + return -1; + + previous_position = iobuf->data; + ilevel = iobuf->item_level; + + if ( ilevel >= MAX_IO_ITEM_LEVEL ) + { + Warning("Maximum level of sub-items in I/O Buffer exceeded"); + iobuf->r_remaining = -1; + } + + /* Are we beyond the last sub-item? */ + if ( ilevel > 0 ) + { + /* First check if we are already beyond the top item and then if we */ + /* will be beyond the next smaller level (superiour) item after */ + /* reading this item's header. */ + if ( (long) (iobuf->data-iobuf->buffer) >= iobuf->item_length[0] + 16 || + (long) (iobuf->data-iobuf->buffer) + 12 >= + iobuf->item_start_offset[ilevel-1] + iobuf->item_length[ilevel-1] ) + return -2; + } + /* Not for top-level items */ + else if ( ilevel == 0 ) + return -1; + + /* Extract the actual type and version from the 'type/version' field. */ + this_type = (int) ((unsigned long) get_long(iobuf)) & 0x0000ffffL; + iobuf->data = previous_position; + + return this_type; +} + +/* ------------------------ next_subitem_type ----------------------- */ +/** + * Reads the header of a sub-item and return the length of it. + * + * @param iobuf The input buffer descriptor. + * + * @return >= 0 (O.k.), -1 (error), -2 (end-of-buffer). + */ + +#ifdef ANSI_C +long next_subitem_length (IO_BUFFER *iobuf) +#else +long next_subitem_length (iobuf) + IO_BUFFER *iobuf; +#endif +{ + IO_ITEM_HEADER item_header; + int rc; + long len; + + item_header.type = 0; + if ( (rc = get_item_begin(iobuf,&item_header)) < 0 ) + return rc; + len = iobuf->item_length[iobuf->item_level-1]; + if ( (rc = get_item_end(iobuf,&item_header)) < 0 ) + return rc; + return len; +} + +/* ----------------------- skip_subitem ----------------------------- */ +/** + * When the next sub-item is of no interest, it can be skipped. + * + * @param iobuf I/O buffer descriptor. + * @param item_header Header of item last read. + * + * @return 0 (ok), -1 (error) + * + */ + +#ifdef ANSI_C +int skip_subitem (IO_BUFFER *iobuf) +#else +int skip_subitem (iobuf) + IO_BUFFER *iobuf; +#endif +{ + IO_ITEM_HEADER item_header; + int rc; + + item_header.type = 0; + if ( (rc = get_item_begin(iobuf,&item_header)) < 0 ) + return rc; + return get_item_end(iobuf,&item_header); +} + +/* ---------------------- search_sub_item ------------------------ */ +/** + * @short Search for an item of a specified type. + * + * Search for an item of a specified type, starting at the current + * position in the I/O buffer. After successful action the + * buffer data pointer points to the beginning of the header + * of the first item of that type. If no such item is found, + * it points right after the end of the item of + * the next higher level. + * + * @param iobuf The I/O buffer descriptor. + * @param type The requested item type. + * + * @return 0 (O.k., sub-item was found), + * -1 (error), + * -2 (no such sub-item), + * -3 (cannot skip sub-items), + * + */ + +#ifdef ANSI_C +int search_sub_item (IO_BUFFER *iobuf, IO_ITEM_HEADER *item_header, + IO_ITEM_HEADER *sub_item_header) +#else +int search_sub_item (iobuf, item_header, sub_item_header) + IO_BUFFER *iobuf; + IO_ITEM_HEADER *item_header; + IO_ITEM_HEADER *sub_item_header; +#endif +{ + int rc; + unsigned long type; + int old_level; + + if ( !item_header->can_search ) + return -3; + old_level = item_header->level; + sub_item_header->level = old_level + 1; + type = sub_item_header->type; + + while ( iobuf->r_remaining > 0 ) + { + sub_item_header->type = 0; + rc = get_item_begin(iobuf,sub_item_header); + if ( rc == -1 || rc == -2) + { + iobuf->item_level = old_level + 1; + return(rc); /* Error or end of the item. */ + } + if ( sub_item_header->type == type || type <= 0 ) + { + iobuf->data = iobuf->buffer + + iobuf->item_start_offset[iobuf->item_level-1] - 12; + iobuf->r_remaining = iobuf->item_length[0] + 16 - + (long) (iobuf->data-iobuf->buffer); + iobuf->item_level = old_level + 1; + return 0; /* This is the right type of item. */ + } + if ( iobuf->item_length[iobuf->item_level-1] == -1L ) + return -3; /* Cannot skip because length is unknown. */ + get_item_end(iobuf,sub_item_header); + } + + return -2; +} + +/* ---------------------- rewind_item ----------------------- */ +/** + * @short Go back to the beginning of an item. + * When reading from an I/O buffer, go back to the beginning + * of the data area of an item. This is typically used when + * searching for different types of sub-blocks but processing + * should not depend on the relative order of them. + * + * @param iobuf I/O buffer descriptor. + * @param item_header Header of item last read. + * + * @return 0 (ok), -1 (error) + */ + +#ifdef ANSI_C +int rewind_item (IO_BUFFER *iobuf, IO_ITEM_HEADER *item_header) +#else +int rewind_item (iobuf, item_header) + IO_BUFFER *iobuf; + IO_ITEM_HEADER *item_header; +#endif +{ + int old_level; + + old_level = item_header->level; + if ( old_level < 0 || old_level >= MAX_IO_ITEM_LEVEL || + old_level >= iobuf->item_level ) + return -1; + iobuf->item_level = old_level + 1; + iobuf->data = iobuf->buffer + iobuf->item_start_offset[old_level]; + iobuf->r_remaining = iobuf->item_length[0] + 16 - + (long) (iobuf->data-iobuf->buffer); + iobuf->w_remaining = -1; + + return 0; +} + +/* -------------------- remove_item ----------------------- */ +/** + * @short Remove an item from an I/O buffer. + * + * If writing an item has already started and then some + * condition was found to remove the item again, this is + * the function for it. The item to be removed should be the + * last one written, since anything following it will be forgotten too. + * + * @param iobuf I/O buffer descriptor. + * @param item_header Header of item to be removed. + * + * @return 0 (ok), -1 (error) + */ + +#ifdef ANSI_C +int remove_item (IO_BUFFER *iobuf, IO_ITEM_HEADER *item_header) +#else +int remove_item (iobuf, item_header) + IO_BUFFER *iobuf; + IO_ITEM_HEADER *item_header; +#endif +{ + REGISTER int ilevel, jlevel; + BYTE *save_data_ptr; + long old_length; + + if ( (ilevel = (--iobuf->item_level)) < 0 ) + return -1; + if ( iobuf->item_length[ilevel] < 0 || iobuf->item_length[ilevel] + + iobuf->item_start_offset[ilevel] + > iobuf->buflen ) + return -1; + + old_length = iobuf->item_length[0] + 16; + + for (jlevel=ilevel-1; jlevel>=0; jlevel--) + { + if (iobuf->item_length[jlevel] >= iobuf->item_length[ilevel] ) + iobuf->item_length[jlevel] -= iobuf->item_length[ilevel] + 12; + else + iobuf->item_length[jlevel] = 0; + iobuf->sub_item_length[jlevel] -= iobuf->item_length[ilevel] + 12; + + /* Now save the length field at its place right in front of the */ + /* beginning of data of that item. */ + save_data_ptr = iobuf->data; + iobuf->w_remaining = 4; + iobuf->data = iobuf->buffer + (iobuf->item_start_offset[jlevel] - 4); + /* If that item consists entirely of sub-items with known lengths */ + /* set bit 30 of the length field to mark that we can search for */ + /* sub-items in this item. */ + if ( iobuf->item_length[jlevel] == iobuf->sub_item_length[jlevel] ) + put_long(iobuf->item_length[jlevel] | 0x40000000L, iobuf); + else + put_long(iobuf->item_length[jlevel], iobuf); + iobuf->data = save_data_ptr; + } + + if ( iobuf->item_length[0] > 0 ) + { + memmove((void *)(iobuf->buffer + iobuf->item_start_offset[ilevel] - 12), + (void *)(iobuf->buffer + iobuf->item_start_offset[ilevel] + + iobuf->item_length[ilevel]), (size_t)(old_length - + (iobuf->item_start_offset[ilevel] + iobuf->item_length[ilevel]))); + } + + iobuf->data = iobuf->buffer + /* item_header->start_of_data */ + iobuf->item_start_offset[ilevel] - 4; + item_header->type = 0; + iobuf->item_length[ilevel] = 0; + iobuf->r_remaining = iobuf->item_length[0] + 16 - + (long) (iobuf->data - iobuf->buffer); + iobuf->w_remaining = -1; + + return 0; +} + +/* -------------------- list_sub_items --------------------------- */ +/** + * @short Display the contents of sub-items on standard output. + * + * Display the contents (item types, versions, idents and lengths) + * of sub-items on standard output. + * + * @param iobuf I/O buffer descriptor. + * @param item_header Header of the item from which to show contents. + * @param maxlevel The maximum nesting depth to show contents + * (counted from the top-level item on). + * + * @return 0 (ok), -1 (error) + */ + +#ifdef ANSI_C +int list_sub_items (IO_BUFFER *iobuf, IO_ITEM_HEADER *item_header, + int maxlevel) +#else +int list_sub_items (iobuf, item_header, maxlevel) + IO_BUFFER *iobuf; + IO_ITEM_HEADER *item_header; + int maxlevel; +#endif +{ + IO_ITEM_HEADER sub_item_header; + int rc, i; + char msg[512]; + + if ( iobuf->item_level == 0 ) + { + item_header->type = 0; + get_item_begin(iobuf,item_header); + sprintf(msg,"\nType %4lu, version %u, length %ld", + item_header->type, item_header->version, iobuf->item_length[0]); + Output(msg); + if ( item_header->ident >= 0 ) + { + sprintf(msg," (id %ld = 0x%lx)", + item_header->ident,item_header->ident); + Output(msg); + } + Output("\n"); + } + + if ( maxlevel >= 0 && maxlevel < iobuf->item_level ) + return 0; + if ( (long) (iobuf->data-iobuf->buffer) >= iobuf->item_length[0] + 12 ) + return 0; + + sub_item_header.type = 0; + iobuf->data = iobuf->buffer + + iobuf->item_start_offset[iobuf->item_level-1]; + while ( (rc=search_sub_item(iobuf,item_header,&sub_item_header)) == 0 ) + { + get_item_begin(iobuf,&sub_item_header); + for (i=0; iitem_level-1; i++) + Output(" "); + sprintf(msg,"Type %4lu, version %u, length %ld", + sub_item_header.type, sub_item_header.version, + iobuf->item_length[iobuf->item_level-1]); + Output(msg); + if ( sub_item_header.ident >= 0 ) + { + sprintf(msg," (id %ld = 0x%lx)",sub_item_header.ident, + sub_item_header.ident); + Output(msg); + } + Output("\n"); + if ( sub_item_header.can_search ) + if ( (i=list_sub_items(iobuf,&sub_item_header,maxlevel)) < 0 ) + { + sprintf(msg," (rc=%d)\n",i); + Output(msg); + } + get_item_end(iobuf,&sub_item_header); + sub_item_header.type = 0; + } + if ( iobuf->item_level == 0 ) + Output("\n"); + + if ( item_header->level == 0 ) + get_item_end(iobuf,item_header); + if ( rc == -2 ) + return 0; + else + return rc; +} + +/* ----------------------- reset_io_block ------------------------ */ +/** + * Reset an I/O block to its empty status. + * + * @param iobuf The I/O buffer descriptor. + * + * @return 0 (O.k.), -1 (error) + * + */ + +#ifdef ANSI_C +int reset_io_block (IO_BUFFER *iobuf) +#else +int reset_io_block (iobuf) + IO_BUFFER *iobuf; +#endif +{ + BYTE *tptr; + + if ( iobuf == (IO_BUFFER *) NULL ) + return -1; + iobuf->w_remaining = iobuf->r_remaining = -1L; + iobuf->item_level = 0; + iobuf->item_length[0] = iobuf->sub_item_length[0] = 0; + iobuf->data_pending = -1; + iobuf->data = iobuf->buffer; + if ( iobuf->buflen != iobuf->min_length ) + { + tptr = (BYTE *) realloc((void *)iobuf->buffer, + (size_t)iobuf->min_length); + if ( tptr != (BYTE *) NULL ) + { + iobuf->buffer = tptr; + iobuf->buflen = iobuf->min_length; + } + } + iobuf->data = iobuf->buffer; + iobuf->regular = 0; + return 0; +} + +/* ----------------------- write_io_block ------------------------ */ +/** + * @short Write an I/O block to the block's output. + * + * The complete I/O block is written to the output destination, + * which can be raw I/O (through write), buffered I/O (through + * fwrite) or user-defined I/O (through a user funtion). + * All items must have been closed before. + * + * @param iobuf The I/O buffer descriptor. + * + * @return 0 (O.k.), -1 (error), -2 (item has no data) + * + */ + +#ifdef ANSI_C +int write_io_block (IO_BUFFER *iobuf) +#else +int write_io_block (iobuf) + IO_BUFFER *iobuf; +#endif +{ + int rc; + int length; + + if ( iobuf == (IO_BUFFER *) NULL ) + return -1; +#ifdef OS_MSDOS + if ( (long) (iobuf->data-iobuf->buffer) > 32767 ) + { + Warning("Cannot write item of length exceeding 32767 bytes"); + return -1; + } +#endif + /* length = (int) (iobuf->data-iobuf->buffer); */ + /* Empty top items are not written */ + /* if ( length < 16 ) */ + /* return -2; */ + length = 16 + iobuf->item_length[0]; + + rc = 0; + if ( iobuf->item_level > 0 ) + { + Warning("Output cancelled because item level is not 0"); + rc = -1; + } + else if ( iobuf->item_length[0] < 0L ) + { + Warning("Output cancelled due to invalid length of top item"); + rc = -1; + } + else if ( iobuf->output_fileno >= 0 ) + { + if (write(iobuf->output_fileno,(char *)iobuf->buffer,(size_t)length) == -1 ) + { + Warning("Output error for I/O buffer"); + rc = -1; + } + } + else if ( iobuf->output_file != (FILE *) NULL ) + { + if ( fwrite((void *)iobuf->buffer,(size_t)1,(size_t)length, + iobuf->output_file) != length ) + if ( ferror(iobuf->output_file) ) + { + Warning("Output error for I/O buffer"); + clearerr(iobuf->output_file); + rc = -1; + } + } + else if ( iobuf->user_function != NULL ) + { + rc = (iobuf->user_function)(iobuf->buffer,(long)length,1); + } + else + { + Warning("Output cancelled because no output file/function set."); + rc = -1; + } + + iobuf->data = iobuf->buffer; + iobuf->w_remaining = iobuf->r_remaining = -1L; + + return rc; +} + +/* ----------------------- find_io_block ------------------------ */ +/** + * @short Find the beginning of the next I/O data block in the input. + * + * Read byte for byte from the input file specified + * for the I/O buffer and look for the sync-tag (magic + * number in little-endian or big-endian byte order. + * As long as the input is properly synchronized this + * sync-tag should be found in the first four bytes. + * Otherwise, input data is skipped until the next + * sync-tag is found. After the sync tag 10 more bytes + * (item type, version number, and length field) are read. + * The type of I/O (raw, buffered, or user-defined) depends + * on the settings of the I/O block. + * + * @param iobuf The I/O buffer descriptor. + * @param type The requested item type. + * + * @return 0 (O.k.), -1 (error), or -2 (end-of-file) + * + */ + +#ifdef ANSI_C +int find_io_block (IO_BUFFER *iobuf, IO_ITEM_HEADER *item_header) +#else +int find_io_block (iobuf, item_header) + IO_BUFFER *iobuf; + IO_ITEM_HEADER *item_header; +#endif +{ + long sync_count = 0; + int block_found, byte_number, byte_order; + int rc = 0; +#ifdef ANSI_C_99 + const BYTE sync_tag_byte[] = { 0xD4, 0x1F, 0x8A, 0x37 }; +#else + static BYTE sync_tag_byte[] = { 0xD4, 0x1F, 0x8A, 0x37 }; +#endif + + if ( iobuf == (IO_BUFFER *) NULL || item_header == (IO_ITEM_HEADER *) NULL ) + return -1; + if ( iobuf->data_pending > 0 ) + { + Warning("You forgot to read or skip the data of the previous I/O block"); + return -1; + } + iobuf->item_level = 0; + iobuf->data = iobuf->buffer; + iobuf->w_remaining = iobuf->r_remaining = -1L; + if ( iobuf->buffer == (BYTE *) NULL || iobuf->buflen < 16 ) + { + Warning("Attempt to read data failed due to invalid I/O buffer"); + return -1; + } + if ( iobuf->input_fileno < 0 && iobuf->input_file == (FILE *) NULL && + iobuf->user_function == NULL ) + { + Warning("No file specified from which I/O buffer should be read"); + return -1; + } + + if ( iobuf->input_fileno >= 0 || iobuf->input_file != (FILE *) NULL ) + { + for ( sync_count=(-4L), block_found=byte_number=byte_order=0; + !block_found; sync_count++ ) + { + if ( iobuf->input_fileno >= 0 ) /* Use system read function */ + rc = READ_BYTES(iobuf->input_fileno, + (char *)(iobuf->buffer+byte_number),1L); + else if ( (char) (*(char *)(iobuf->buffer+byte_number) = (char) + getc(iobuf->input_file)) != (char) EOF ) /* Use getc macro */ + rc = 1; + else if ( ferror(iobuf->input_file) ) /* EOF may be valid byte */ + { + clearerr(iobuf->input_file); + rc = -1; + } + else if ( feof(iobuf->input_file) ) + { +#ifdef OS_OS9 + cleareof(iobuf->input_file); +#else + clearerr(iobuf->input_file); +#endif + rc = 0; + } + if ( rc <= 0 ) /* End-of-file or read error */ + { + item_header->type = 0; + iobuf->item_length[0] = 0; + if ( rc == 0 ) /* EOF */ + return -2; + else /* input error */ + return -1; + } + if ( byte_order == 0 ) + { + if ( *iobuf->buffer == (BYTE) sync_tag_byte[0] ) + byte_order = 1; + else if ( *iobuf->buffer == (BYTE) sync_tag_byte[3] ) + byte_order = -1; + else + continue; + byte_number = 1; + } + else if ( byte_order == 1 ) + { + if ( iobuf->buffer[byte_number] != sync_tag_byte[byte_number] ) + { + byte_order = byte_number = 0; + continue; + } + byte_number++; + } + else if ( byte_order == -1 ) + { + if ( iobuf->buffer[byte_number] != sync_tag_byte[3-byte_number] ) + { + byte_order = byte_number = 0; + continue; + } + byte_number++; + } + if ( byte_number == 4 ) + block_found = 1; + } + + if ( iobuf->input_fileno >= 0 ) /* Use system read function */ + rc = READ_BYTES(iobuf->input_fileno,(char *)(iobuf->buffer+4),12L); + else if ( (rc = fread((void *)(iobuf->buffer+4),(size_t)1,(size_t)12, + iobuf->input_file)) == 0 ) + if ( ferror(iobuf->input_file) ) + rc = -1; + if ( rc > 0 && rc != 12 ) + { + char msg[256]; + sprintf(msg, + "Wrong number of bytes were read (%d instead of %d)",rc,12); + Warning(msg); + return -1; + } + } + else if ( iobuf->user_function != NULL ) + { + rc = (iobuf->user_function)(iobuf->buffer,16L,2); + } + + if ( rc <= 0 ) /* End-of-file or read error */ + { + item_header->type = 0; + iobuf->item_length[0] = 0; + item_header->can_search = 0; + if ( rc == 0 ) /* EOF */ + return -2; + else /* input error */ + return -1; + } + + item_header->type = 0; + iobuf->data_pending = 1; + if ( get_item_begin(iobuf,item_header) != 0 ) + return -1; + iobuf->item_level = 0; + + if ( sync_count > 0 ) + { + char msg[256]; + (void) sprintf(msg, + "Synchronization error. %ld bytes of data have been skipped", + sync_count); + Warning(msg); + } + + return 0; +} + +/* ------------------------ read_io_block ------------------------ */ +/** + * @short Read the data of an I/O block from the input. + * + * This function is called for reading data after an I/O data block + * has been found (with find_io_block) on input. + * The type of I/O (raw, buffered, or user-defined) depends + * on the settings of the I/O block. + * + * @param iobuf The I/O buffer descriptor. + * @param item_header The item header descriptor. + * + * @return 0 (O.k.), + * -1 (error), + * -2 (end-of-file), + * -3 (block skipped because it is too large) + * + */ + +#ifdef ANSI_C +int read_io_block (IO_BUFFER *iobuf, IO_ITEM_HEADER *item_header) +#else +int read_io_block (iobuf, item_header) + IO_BUFFER *iobuf; + IO_ITEM_HEADER *item_header; +#endif +{ + int rc = 0; + int length; + + if ( iobuf == (IO_BUFFER *) NULL || item_header == (IO_ITEM_HEADER *) NULL ) + return -1; + + if ( iobuf->data_pending <= 0 ) + { + Warning("You must find an I/O block before you can read it"); + return -1; + } + + if ( iobuf->item_level != 0 || + iobuf->item_length[0] < 0 ) + return -1; +#ifdef OS_MSDOS + if ( iobuf->item_length[0] > 32767 ) + { + Warning("Cannot read item of length exceeding 32767 bytes"); + return -1; + } +#endif + length = (size_t) iobuf->item_length[0]; + + if ( iobuf->buffer == (BYTE *) NULL ) + return -1; + + if ( iobuf->buflen < iobuf->item_length[0]+16 ) + { + if ( extend_io_buffer(iobuf,0, + iobuf->item_length[0]+16-iobuf->buflen) == -1 ) + { + Warning("I/O buffer too small; I/O block is skipped"); + if ( (rc = skip_io_block(iobuf,item_header)) < 0 ) + return rc; + else + return -3; + } + } + + if ( length > 0 ) + { + if ( iobuf->input_fileno >= 0 || iobuf->input_file != (FILE *) NULL ) + { + if ( iobuf->input_fileno >= 0 ) + rc = READ_BYTES(iobuf->input_fileno,(char *)(iobuf->buffer+16),length); + else if ( (rc = fread((void *)(iobuf->buffer+16),(size_t)1,(size_t)length, + iobuf->input_file)) == 0 ) + if ( ferror(iobuf->input_file) ) + rc = -1; + if ( rc > 0 && rc != length ) + { + char msg[256]; + sprintf(msg, + "Wrong number of bytes were read (%d instead of %d)",rc,length); + Warning(msg); + return -1; + } + } + else if ( iobuf->user_function != NULL ) + rc = (iobuf->user_function)(iobuf->buffer+16,(long)length,3); + else + rc = -1; + } + else if ( length < 0 ) + rc = -1; + + if ( rc <= 0 && length != 0 ) /* End-of-file or read error */ + { + item_header->type = 0; + iobuf->item_length[0] = 0; + if ( rc == 0 ) /* EOF */ + return -2; + else /* input error */ + return -1; + } + + iobuf->data_pending = 0; + return 0; +} + +/* ------------------------ skip_io_block ------------------------ */ +/** + * @short Skip the data of an I/O block from the input. + * + * Skip the data of an I/O block from the input + * (after the block's header was read). + * This is the alternative to read_io_block() after having + * found an I/O block with find_io_block but realizing that + * this is a type of block you don't know how to read or + * simply not interested in. + * The type of I/O (raw, buffered, or user-defined) depends + * on the settings of the I/O block. + * + * @param iobuf The I/O buffer descriptor. + * @param item_header The item header descriptor. + * + * @return 0 (O.k.), -1 (error) or -2 (end-of-file) + * + */ + +#ifdef ANSI_C +int skip_io_block (IO_BUFFER *iobuf, IO_ITEM_HEADER *item_header) +#else +int skip_io_block (iobuf, item_header) + IO_BUFFER *iobuf; + IO_ITEM_HEADER *item_header; +#endif +{ + char tbuf[512]; + long nbuf, ibuf, length; + int rbuf, rc = 0; +#ifndef FSTAT_NOT_AVAILABLE + struct stat st; +#endif + + if ( iobuf == (IO_BUFFER *) NULL || item_header == (IO_ITEM_HEADER *) NULL ) + return -1; + if ( iobuf->data_pending <= 0 ) + { + Warning("You must find an I/O block before you can skip it"); + return -1; + } + if ( iobuf->item_level != 0 || iobuf->item_length[0] < 0 ) + return -1; + length = iobuf->item_length[0]; + + if ( iobuf->input_fileno < 0 && iobuf->user_function != NULL ) + return((iobuf->user_function)(iobuf->buffer,length,4)); + +#ifndef FSTAT_NOT_AVAILABLE + if ( iobuf->regular >= 0 ) + { + if ( iobuf->input_fileno > 0 ) + { + if ( iobuf->regular == 0 ) + { + fstat(iobuf->input_fileno,&st); +#ifdef S_IFREG + if ( st.st_mode & S_IFREG ) + iobuf->regular = 1; + else +#endif + iobuf->regular = -1; + } + if ( iobuf->regular == 1 ) + { +#ifdef __USE_LARGEFILE64 + /* Although blocks must be less than 2^31 bytes, we may */ + /* have to take care of large files on 32 bit machines. */ + if ( lseek64(iobuf->input_fileno,(off64_t)length,SEEK_CUR) == -1 ) + return -1; +#else + if ( lseek(iobuf->input_fileno,length,SEEK_CUR) == -1 ) + return -1; +#endif + iobuf->item_length[0] = 0; + iobuf->data_pending = 0; + return 0; + } + } + else if ( iobuf->input_file != (FILE *) NULL ) + { + if ( iobuf->regular == 0 ) + { + fstat(fileno(iobuf->input_file),&st); +#ifdef S_IFREG + if ( st.st_mode & S_IFREG ) + iobuf->regular = 1; + else +#endif + iobuf->regular = -1; + } + if ( iobuf->regular == 1 ) + { +#ifdef __USE_LARGEFILE64 + /* Although blocks must be less than 2^31 bytes, we may */ + /* have to take care of large files on 32 bit machines. */ + if ( fseeko64(iobuf->input_file,(off64_t)length,SEEK_CUR) == -1 ) + return -1; +#else + if ( fseek(iobuf->input_file,length,SEEK_CUR) == -1 ) + return -1; +#endif + iobuf->item_length[0] = 0; + iobuf->data_pending = 0; + return 0; + } + } + } +#endif + + nbuf = length/512; + rbuf = length%512; + if ( iobuf->input_fileno >= 0 ) + { + for ( ibuf=0; ibufinput_fileno,tbuf,512L); + if ( rbuf > 0 ) + rc = READ_BYTES(iobuf->input_fileno,tbuf,rbuf); + } + else if ( iobuf->input_file != (FILE *) NULL ) + { + for ( ibuf=0; ibufinput_file); + if ( rbuf > 0 ) + rc = fread((void *)tbuf,(size_t)1,(size_t)rbuf,iobuf->input_file); + if ( ferror(iobuf->input_file) ) + rc = -1; + } + + if ( rc <= 0 ) /* End-of-file or read error */ + { + item_header->type = 0; + if ( rc == 0 ) /* EOF */ + return -2; + else /* input error */ + return -1; + } + + iobuf->data_pending = 0; + return 0; +} + +/* ---------------------- list_io_blocks ------------------------- */ +/** + * Show the top-level item of an I/O block on standard output. + * + * List type, version, ident, and length) of the top item of all + * I/O blocks in input file onto standard output. + * + * @param iobuf The I/O buffer descriptor. + * @param item_header The item header descriptor. + * + * @return 0 (O.k.), -1 (error) + * + */ + +#ifdef ANSI_C +int list_io_blocks (IO_BUFFER *iobuf) +#else +int list_io_blocks (iobuf) + IO_BUFFER *iobuf; +#endif +{ + IO_ITEM_HEADER item_header; + int rc; + char msg[512]; + + Output("\n"); + + while ( (rc = find_io_block(iobuf,&item_header)) == 0 ) + { + sprintf(msg,"Type %4lu, version %u, length %ld", + item_header.type, item_header.version, iobuf->item_length[0]); + Output(msg); + if ( item_header.ident >= 0 ) + { + sprintf(msg," (id %ld = 0x%lx)", + item_header.ident,item_header.ident); + Output(msg); + } + if ( iobuf->byte_order ) + Output(" with inverse byte order"); + Output("\n"); + if ( (rc = skip_io_block(iobuf,&item_header)) < 0 ) + { + sprintf(msg,"(skip_io_block returned %d)\n\n",rc); + Output(msg); + return rc; + } + } + + if ( rc != -2 ) + { + sprintf(msg,"(find_io_block returned %d)\n\n",rc); + Output(msg); + return rc; + } + else + { + Output("\n"); + return 0; + } +} + +/* ------------------ copy_item_to_io_block -------------------- */ +/** + * Copy a sub-item to another I/O buffer as top-level item. + * + * @param iobuf2 Target I/O buffer descriptor. + * @param iobuf Source I/O buffer descriptor. + * @param item_header Header for the item in iobuf that + * should be copied to iobuf2. + * + * @return 0 (o.k.), -1 (error), -2 (not enough memory etc.) + * + */ + +#ifdef ANSI_C +int copy_item_to_io_block (IO_BUFFER *iobuf2, IO_BUFFER *iobuf, + IO_ITEM_HEADER *item_header) +#else +int copy_item_to_io_block (iobuf2, iobuf, item_header) + IO_BUFFER *iobuf2; + IO_BUFFER *iobuf; + IO_ITEM_HEADER *item_header; +#endif +{ + int length; + int ilevel; + + if ( iobuf == (IO_BUFFER *) NULL || iobuf2 == (IO_BUFFER *) NULL || + item_header == (IO_ITEM_HEADER *) NULL ) + return -1; + if ( iobuf->buffer == (BYTE *) NULL || iobuf2->buffer == (BYTE *) NULL ) + return -1; + + if ( item_header->level != iobuf->item_level-1 ) + { + Warning("Item level is inconsistent"); + return -1; + } + if (iobuf->item_level > 0 && iobuf->item_level <= MAX_IO_ITEM_LEVEL) + ilevel = iobuf->item_level-1; + else + return -1; +#ifdef OS_MSDOS + if ( iobuf->item_length[ilevel] > 32767 ) + { + Warning("Cannot copy item of length exceeding 32767 bytes"); + return -1; + } +#endif + if ( (length = (int) iobuf->item_length[ilevel]) < 0 ) + return -1; + + reset_io_block(iobuf2); + iobuf2->byte_order = iobuf->byte_order; + + if ( iobuf2->buflen < length+16 ) + { + if ( extend_io_buffer(iobuf2,0,length+16-iobuf2->buflen) == -1 ) + { + Warning("I/O buffer too small; item not copied"); + return -2; + } + } + + memcpy((void *)iobuf2->buffer,(void *)iobuf->buffer,(size_t)4); + memcpy((void *)(iobuf2->buffer+4), + (void *)(iobuf->buffer+iobuf->item_start_offset[ilevel]-12), + (size_t)(12+length)); + iobuf2->data = iobuf2->buffer+16+length; + iobuf2->item_length[0] = length; + iobuf2->sub_item_length[0] = iobuf->sub_item_length[ilevel]; + iobuf2->w_remaining = iobuf2->buflen - length - 16; + iobuf2->item_level = 0; + + iobuf->data = iobuf->buffer+iobuf->item_start_offset[ilevel]+length; + iobuf->r_remaining -= length; + + return 0; +} + +/* ---------------- append_io_block_as_item ------------------ */ +/** + * @short Append data from one I/O block into another one. + * + * Append the data from a complete i/o block as an additional + * subitem to another i/o block. + * + * @param iobuf The target I/O buffer descriptor, + * must be 'opened' for 'writing', + * i.e. 'put_item_begin()' must be called. + * @param item_header Item header of the item in + * iobuf which is cuurently being filled. + * @param buffer Data to be filled in. Must be all + * data from an I/O buffer, including the + * 4 signature bytes. + * @param length The length of buffer in bytes. + * + * @return 0 (o.k.), -1 (error), -2 (not enough memory etc.) + * + */ + +#ifdef ANSI_C +int append_io_block_as_item (IO_BUFFER *iobuf, IO_ITEM_HEADER *item_header, + BYTE *buffer, long length) +#else +int append_io_block_as_item (iobuf, item_header, buffer, length) + IO_BUFFER *iobuf; + IO_ITEM_HEADER *item_header; + BYTE *buffer; + long length; +#endif +{ + int i, ilevel; + + if ( iobuf == (IO_BUFFER *) NULL || buffer == (BYTE *) NULL || + item_header == (IO_ITEM_HEADER *) NULL ) + return -1; + if ( iobuf->buffer == (BYTE *) NULL ) + return -1; + + if ( iobuf->item_level <= 0 ) + { + Warning("Cannot append to empty I/O block"); + return -1; + } + ilevel = iobuf->item_level - 1; + if ( iobuf->w_remaining == -1 ) + { + Warning("Cannot append to I/O block"); + return -1; + } + +#ifdef OS_MSDOS + if ( length > 32767 ) + { + Warning("Cannot append block of length exceeding 32767 bytes"); + return -1; + } +#endif + if ( length < 16 ) + return -1; + length -= 4; + + for (i=0; i<4; i++) + if ( iobuf->buffer[i] != buffer[i] ) + { + if ( iobuf->buffer[0] != buffer[3] && + iobuf->buffer[1] != buffer[2] ) + Warning("Data to be appended is not an I/O buffer"); + else + Warning("Cannot append to I/O block with different byte ordering"); + return -1; + } + + if ( iobuf->w_remaining < length ) + { + if ( extend_io_buffer(iobuf,256,length) == -1 ) + { + Warning("I/O buffer too small: nothing appended"); + return -2; + } + } + + memcpy((void *)iobuf->data,(void *)(buffer+4),(size_t)(length)); + iobuf->data += length; + iobuf->w_remaining -= length; + iobuf->item_length[ilevel] += length; + iobuf->sub_item_length[ilevel] += length; + + return 0; +} Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/gheisha600.f =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/gheisha600.f (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/gheisha600.f (revision 1444) @@ -0,0 +1,17807 @@ +*CMZU: 3.16/00 05/11/93 17.20.00 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE ADD(K,L,M) +C +C *** VARIOUS VECTOR OPERATIONS *** +C +C COPIED FROM F14BLO.PAMLIB 23.4.82 +C AUTHOR: V.BLOBEL (UNIVERSITY OF HAMBURG) +C DESYLIB +C +C *** BLANK COMMON REPLACED BY /VECUTY/ TO MATCH GEANT/GHEISHA CODE *** +C *** NOTE THAT P(10,100) HAS BECOME PV(10,200) DUE TO THIS *** +C +C UN-USED ENTRIES REMOVED : +C "PCOP" "PEXC" "PZER" "PWRT" "DOT4" "IMPU" "IMPULI" "ADD3" +C "SUB3" "CROSS" "DOT" "SMUL" "NORZ" "PARPER" "PUNIT" "TRAP" +C +C *** ALL ENTRIES RE-WRITTEN AS SUBROUTINES USING ONLY NECESSARY *** +C *** "DOUBLE PRECISION" STMTS. AND ALL SPECIFIC FUNCTIONS HAVE *** +C *** BEEN CHANGED TO THEIR GENERIC EQUIVALENCES *** +C *** NVE 29-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (22-JUNE-1984) +C +C +C --- PV-ARRAY --- + PARAMETER (MXGKGH=100) + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + DOUBLE PRECISION A,B + SAVE +C + A=PV(4,K)+PV(4,L) + PV(4,M)=A + B=A*A + DO 2 I=1,3 + A=PV(I,K)+PV(I,L) + B=B-A*A + PV(I,M)=A + 2 CONTINUE + PV(5,M)=SIGN(SQRT(ABS(B)),B) + RETURN + END +C--------------------------------------------------------------------- + SUBROUTINE ADD3(K,L,M) +C +C --- PV-ARRAY --- + PARAMETER (MXGKGH=100) + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + DOUBLE PRECISION A + SAVE +C + DO 2 I=1,3 + A=PV(I,K)+PV(I,L) + PV(I,M)=A + 2 CONTINUE + RETURN + END +C--------------------------------------------------------------------- + SUBROUTINE SUB3(K,L,M) +C +C --- PV-ARRAY --- + PARAMETER (MXGKGH=100) + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + DOUBLE PRECISION A + SAVE +C + DO 2 I=1,3 + A=PV(I,K)-PV(I,L) + PV(I,M)=A + 2 CONTINUE + RETURN + END +C--------------------------------------------------------------------- + SUBROUTINE CROSS3(K,L,M) +C + PARAMETER (MXGKGH=100) + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C + DIMENSION G(3) + DOUBLE PRECISION A,B,G + SAVE +C + A=PV(2,K)*PV(3,L) + B=PV(3,K)*PV(2,L) + G(1)=A-B + A=PV(3,K)*PV(1,L) + B=PV(1,K)*PV(3,L) + G(2)=A-B + A=PV(1,K)*PV(2,L) + B=PV(2,K)*PV(1,L) + G(3)=A-B + DO 26 I=1,3 + 26 PV(I,M)=G(I) + RETURN + END +C--------------------------------------------------------------------- + SUBROUTINE SUB(K,L,M) +C +C --- PV-ARRAY --- + PARAMETER (MXGKGH=100) + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + DOUBLE PRECISION A,B + SAVE +C + A=PV(4,K)-PV(4,L) + PV(4,M)=A + B=A*A + DO 4 I=1,3 + A=PV(I,K)-PV(I,L) + B=B-A*A + PV(I,M)=A + 4 CONTINUE + PV(5,M)=SIGN(SQRT(ABS(B)),B) + RETURN + END +C--------------------------------------------------------------------- + SUBROUTINE LOR(K,L,M) +C +C --- PV-ARRAY --- + PARAMETER (MXGKGH=100) + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + DOUBLE PRECISION A,B,C + SAVE +C + A=0.0 + DO 6 I=1,3 + A=A+PV(I,K)*PV(I,L) + 6 CONTINUE + A=(A/(PV(4,L)+PV(5,L))-PV(4,K))/PV(5,L) + B=PV(5,K)*PV(5,K) + DO 8 I=1,3 + C=PV(I,K)+A*PV(I,L) + B=B+C*C + PV(I,M)=C + 8 CONTINUE + PV(4,M)=SQRT(B) + PV(5,M)=PV(5,K) + RETURN + END +C--------------------------------------------------------------------- + SUBROUTINE LENGTX(K,U) +C +C --- PV-ARRAY --- + PARAMETER (MXGKGH=100) + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + DOUBLE PRECISION A,B + SAVE +C + A=0.0 + DO 36 I=1,3 + A=A+PV(I,K)*PV(I,K) + 36 CONTINUE + B=SQRT(A) + U=B + RETURN + END +C--------------------------------------------------------------------- + SUBROUTINE ANG(K,L,U,V) +C +C --- PV-ARRAY --- + PARAMETER (MXGKGH=100) + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + DOUBLE PRECISION A,B,C,D + SAVE +C + A=0.0 + B=0.0 + C=0.0 + DO 38 I=1,3 + A=A+PV(I,K)*PV(I,K) + B=B+PV(I,L)*PV(I,L) + C=C+PV(I,K)*PV(I,L) + 38 CONTINUE + D=SQRT(A*B) + IF (D .NE. 0.0) D=C/D + IF (ABS(D) .GT. 1.D0) D=SIGN(1.D0,D) + U=D + V=ACOS(D) + RETURN + END +C--------------------------------------------------------------------- + SUBROUTINE DEFS(K,L,M) +C +C --- PV-ARRAY --- + PARAMETER (MXGKGH=100) + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + DOUBLE PRECISION A,B + SAVE +C + MX=M + MY=M+1 + MZ=M+2 + DO 52 I=1,3 + F=PV(I,K) + H=PV(I,L) + PV(I,MY)=F + PV(I,MZ)=H + 52 CONTINUE + A=PV(2,MY)*PV(3,MZ) + B=PV(3,MY)*PV(2,MZ) + PV(1,MX)=A-B + A=PV(3,MY)*PV(1,MZ) + B=PV(1,MY)*PV(3,MZ) + PV(2,MX)=A-B + A=PV(1,MY)*PV(2,MZ) + B=PV(2,MY)*PV(1,MZ) + PV(3,MX)=A-B + A=PV(2,MZ)*PV(3,MX) + B=PV(3,MZ)*PV(2,MX) + PV(1,MY)=A-B + A=PV(3,MZ)*PV(1,MX) + B=PV(1,MZ)*PV(3,MX) + PV(2,MY)=A-B + A=PV(1,MZ)*PV(2,MX) + B=PV(2,MZ)*PV(1,MX) + PV(3,MY)=A-B + DO 58 J=MX,MZ + A=0.0 + DO 54 I=1,3 + A=A+PV(I,J)*PV(I,J) + 54 CONTINUE + B=SQRT(A) + IF (B .NE. 0.0) B=1.0/B + DO 56 I=1,3 + PV(I,J)=B*PV(I,J) + 56 CONTINUE + 58 CONTINUE + RETURN + END +C--------------------------------------------------------------------- + SUBROUTINE TRAC(K,L,M) +C +C --- PV-ARRAY --- + PARAMETER (MXGKGH=100) + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + DOUBLE PRECISION B,G(3) + SAVE +C + N=L + DO 62 J=1,3 + B=0.0 + DO 60 I=1,3 + B=B+PV(I,N)*PV(I,K) + 60 CONTINUE + G(J)=B + N=N+1 + 62 CONTINUE + DO 64 I=1,3 + PV(I,M)=G(I) + 64 CONTINUE + RETURN + END +*CMZ : 3.16/00 05/11/93 18.56.07 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + REAL FUNCTION ATOMAS(A,Z) +C +C *** DETERMINATION OF THE ATOMIC MASS *** +C *** NVE 19-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (02-DEC-1986) +C + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C +C + DOUBLE PRECISION AA,ZZ,MASS + SAVE +C +C --- GET ATOMIC (= ELECTRONS INCL.) MASSES (IN MEV) FROM RMASS ARRAY --- +C --- ELECTRON --- + RMEL=RMASS(4)*1000. +C --- PROTON --- + RMP=RMASS(14)*1000. +C --- NEUTRON --- + RMN=RMASS(16)*1000. +C --- DEUTERON --- + RMD=RMASS(30)*1000.+RMEL +C --- ALPHA --- + RMA=RMASS(32)*1000.+2.*RMEL +C + ATOMAS = 0. + AA = A * 1.D0 + ZZ = Z * 1.D0 + IA = IFIX(A + 0.5) + IF(IA.LT.1) RETURN + IZ = IFIX(Z + 0.5) + IF(IZ.LT.0) RETURN + IF(IZ.GT.IA) RETURN + IF(IA.GT.4) GOTO 50 + MASS=0.D0 + GOTO (10,20,50,40),IA + 10 IF(IZ.EQ.0) MASS=RMN + IF(IZ.EQ.1) MASS=RMP+RMEL + GOTO 60 + 20 IF(IZ.NE.1) GOTO 50 + MASS=RMD + GOTO 60 + 40 IF(IZ.NE.2) GOTO 50 + MASS=RMA + GOTO 60 + 50 MASS=(AA-ZZ)*RMN + ZZ*RMP +ZZ*RMEL - 15.67*AA + * + 17.23*(AA**0.6666667) + 93.15*((AA/2.-ZZ)**2)/AA + * +0.6984523*ZZ**2/(AA**0.3333333) + IPP=MOD(IA-IZ,2) + IZZ=MOD(IZ,2) + IF(IPP.NE.IZZ) GOTO 60 + MASS = MASS + (IPP+IZZ- 1)*12.00*(AA**(-0.5)) + 60 ATOMAS = MASS*0.001 + RETURN + END +*CMZU: 3.16/00 05/11/93 17.20.00 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CAPTUR(NOPT) +C +C *** ROUTINE FOR CAPTURE OF NEUTRAL BARYONS *** +C *** NVE 04-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (02-DEC-1986) +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/MAT / LMAT, + * DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSL(21), + * CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + * MATID(21),MATID1(21,24),PARMAT(21,10), + * IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + * ATNO1(21,10),ZNO1(21,10) +C + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + COMMON/ERRCOM/ IER(100) +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + DIMENSION RNDM(3) + SAVE +C + NOPT=1 + IER(81)=IER(81)+1 + PV(1,1)=PX*P + PV(2,1)=PY*P + PV(3,1)=PZ*P + PV(4,1)=EN + PV(5,1)=ABS(AMAS) + PV(6,1)=NCH + PV(7,1)=TOF + PV(8,1)=IPART + PV(9,1)=0. + PV(10,1)=USERW + ND=IND+1 + PV(1,2)=0. + PV(2,2)=0. + PV(3,2)=0. + PV(4,2)=ATOMAS(ATNO(ND),ZNO(ND)) + PV(5,2)=PV(4,2) + PV(6,2)=ZNO(ND) + PV(7,2)=TOF + PV(8,2)=0. + PV(9,2)=0. + PV(10,2)=0. + CALL ADD(1,2,MXGKPV) + PV(1,MXGKPV)=-PV(1,MXGKPV) + PV(2,MXGKPV)=-PV(2,MXGKPV) + PV(3,MXGKPV)=-PV(3,MXGKPV) + CALL NORMAL(RAN) + P=0.0065+RAN*0.0010 + CALL GRNDM(RNDM,3) + COST=-1.+RNDM(1)*2. + SINT=SQRT(ABS(1.-COST*COST)) + PHI=TWPI*RNDM(2) + PV(1,3)=P*SINT*SIN(PHI) + PV(2,3)=P*SINT*COS(PHI) + PV(3,3)=P*COST + PV(4,3)=P + PV(5,3)=0. + PV(6,3)=0. + PV(8,3)=1. + PV(9,3)=0. + PV(10,3)=0. + RAN=RNDM(3) + TOF=TOF-480.*LOG(RAN) + PV(7,3)=TOF + CALL LOR(3,MXGKPV,3) + NT=3 + XP=0.008-P + IF(XP.LT.0.) GOTO 9 + NT=4 + CALL GRNDM(RNDM,2) + COST=-1.+RNDM(1)*2. + SINT=SQRT(ABS(1.-COST*COST)) + PHI=TWPI*RNDM(2) + PV(1,4)=XP*SINT*SIN(PHI) + PV(2,4)=XP*SINT*COS(PHI) + PV(3,4)=XP*COST + PV(4,4)=XP + PV(5,4)=0. + PV(6,4)=0. + PV(7,4)=TOF + PV(8,4)=1. + PV(9,4)=0. + PV(10,4)=0. + CALL LOR(4,MXGKPV,4) + 9 INTCT=INTCT+1. + CALL SETCUR(3) + NTK=NTK+1 + IF(NT.EQ.4) CALL SETTRK(4) + IF(NPRT(4)) + *WRITE(NEWBCD,1002) XEND,YEND,ZEND,EN,XP +1002 FORMAT(' *CAPTUR* NEUTRON CAPTURE POSITION',3(2X,F8.2),2X, + * 'PHOTON ENERGIES',2X,2F8.4) +C + RETURN + END +*CMZ : 3.16/00 05/11/93 19.18.52 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CASAL0(K,INT,NFL) +C +C *** CASCADE OF ANTI-LAMBDA *** +C *** NVE 04-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (13-SEP-1987) +C +C L0B UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT ASSUME NUCLEAR EXCITATION OCCURS AND INPUT PARTICLE +C IS DEGRADED IN ENERGY. NO OTHER PARTICLES PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + REAL N + DIMENSION PMUL1(2,1200),PMUL2(2,400),ANORM1(2,60),ANORM2(2,60), + $ CECH(10),ANHL(25),IIPA(10,2),B(2) + DIMENSION RNDM(2) + SAVE PMUL1,ANORM1,PMUL2,ANORM2 + SAVE + DATA CECH/0.50,0.45,0.40,0.35,0.30,0.25,0.06,0.04,0.005,0./ + DATA ANHL/1.00,1.00,1.00,1.00,1.00,1.00,1.00,1.00,0.97,0.88 + $ ,0.85,0.81,0.75,0.64,0.64,0.55,0.55,0.45,0.47,0.40 + $ ,0.39,0.36,0.33,0.10,0.01/ + DATA IIPA/24,25,14,14,16,23,24,16,16,14, + $ 14,16,19,24,25,14,16,19,24,23/ + DATA B/0.7,0.7/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(1) --- + IF (KGINIT(1) .NE. 0) GO TO 10 + KGINIT(1)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL1(I,J)=0.0 + IF (J .LE. 400) PMUL2(I,J)=0.0 + IF (J .LE. 60) ANORM1(I,J)=0.0 + IF (J .LE. 60) ANORM2(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C** COMPUTE NORMALIZATION CONSTANTS +C** FOR P AS TARGET +C + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 1 NM1=NMM1,NPP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 1 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 1 + PMUL1(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM1(1,NT)=ANORM1(1,NT)+PMUL1(1,L) + 1 CONTINUE +C** FOR N AS TARGET + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LT.1) NMM1=1 + NPP1=NP1+2 + DO 2 NM1=NMM1,NPP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 2 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 2 + PMUL1(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM1(2,NT)=ANORM1(2,NT)+PMUL1(2,L) + 2 CONTINUE + DO 3 I=1,60 + IF(ANORM1(1,I).GT.0.) ANORM1(1,I)=1./ANORM1(1,I) + IF(ANORM1(2,I).GT.0.) ANORM1(2,I)=1./ANORM1(2,I) + 3 CONTINUE + IF(.NOT.NPRT(10)) GOTO 9 + WRITE(NEWBCD,2001) + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + WRITE(NEWBCD,2003) (ANORM1(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL1(NFL,I),I=1,1200) + 4 CONTINUE +C** DO THE SAME FOR ANNIHILATION CHANNELS +C** FOR P AS TARGET +C + 9 L=0 + DO 5 NP1=2,20 + NP=NP1-1 + NM=NP-1 + DO 5 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.400) GOTO 5 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 5 + PMUL2(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM2(1,NT)=ANORM2(1,NT)+PMUL2(1,L) + 5 CONTINUE +C** FOR N AS TARGET + L=0 + DO 6 NP1=1,20 + NP=NP1-1 + NM=NP + DO 6 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.400) GOTO 6 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 6 + PMUL2(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM2(2,NT)=ANORM2(2,NT)+PMUL2(2,L) + 6 CONTINUE + DO 7 I=1,60 + IF(ANORM2(1,I).GT.0.) ANORM2(1,I)=1./ANORM2(1,I) + IF(ANORM2(2,I).GT.0.) ANORM2(2,I)=1./ANORM2(2,I) + 7 CONTINUE + IF(.NOT.NPRT(10)) GOTO 10 + WRITE(NEWBCD,3001) + DO 8 NFL=1,2 + WRITE(NEWBCD,3002) NFL + WRITE(NEWBCD,3003) (ANORM2(NFL,I),I=1,60) + WRITE(NEWBCD,3003) (PMUL2(NFL,I),I=1,400) + 8 CONTINUE +C** CHOOSE PROTON OR NEUTRON AS TARGET + 10 NFL=2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.ZNO2/ATNO2) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-ABS(RMASS(19)) +C** ELASTIC SCATTERING + NP=0 + NM=0 + NZ=0 + IPA(1)=19 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + N=0. + IF(INT.EQ.2) GOTO 20 + IPLAB=IFIX(P*2.5)+1 + IF(IPLAB.GT.10) IPLAB=10 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.CECH(IPLAB)/ATNO2**0.42) GOTO 120 +C** INTRODUCE CHARGE AND STRANGENESS EXCHANGE REACTION +C** LB P --> S0B P, LB P --> S-B N, LB N --> S+B P, LB N --> S0B N +C** LB P --> P LB, LB P --> P S0B, LB P --> N S-B +C** LB N --> N LB, LB N --> N S0B, LB N --> P S+B + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IRN=IFIX(RAN/0.2)+1 + IF(IRN.GT.5) IRN=5 + IRN=IRN+(NFL-1)*5 + IPA(1)=IIPA(IRN,1) + IPA(2)=IIPA(IRN,2) + GOTO 120 +C** ANNIHILATION CHANNELS + 20 IPLAB=IFIX(P*10.)+1 + IF(IPLAB.GT.10) IPLAB=IFIX((P-1.)*5.)+11 + IF(IPLAB.GT.15) IPLAB=IFIX( P-2. )+16 + IF(IPLAB.GT.23) IPLAB=IFIX((P-10.)/10.)+24 + IF(IPLAB.GT.25) IPLAB=25 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.ANHL(IPLAB)) GOTO 19 + EAB=RS + IF (EAB .LE. RMASS(7)+RMASS(10)) GOTO 55 + GOTO 222 +C** CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION IN REACT. + 19 IF (EAB .LE. RMASS(7)) GOTO 55 + ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S)-2*MP + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (30,40),NFL +C** FOR P AS TARGET + 30 L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 31 NM1=NMM1,NPP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 31 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL1(1,L)*ANORM1(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 31 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 40 L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LT.1) NMM1=1 + NPP1=NP1+2 + DO 41 NM1=NMM1,NPP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 41 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL1(2,L)*ANORM1(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 41 CONTINUE + GOTO 80 +C** ANNIHILATION CHANNELS + 222 IPA(1)=0 + IPA(2)=0 + ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S) + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 221 NT=2,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 221 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (230,240),NFL +C** FOR P AS TARGET + 230 L=0 + DO 231 NP1=2,20 + NP=NP1-1 + NM=NP-1 + DO 231 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.400) GOTO 231 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 231 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL2(1,L)*ANORM2(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 120 + 231 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 240 L=0 + DO 241 NP1=1,20 + NP=NP1-1 + NM=NP + DO 241 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.400) GOTO 241 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 241 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL2(2,L)*ANORM2(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 120 + 241 CONTINUE + GOTO 80 + 50 IF(NPRT(4)) + *WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + IF(INT.EQ.1) CALL TWOB(19,NFL,N) + IF(INT.EQ.2) CALL GENXPT(19,NFL,N) + GO TO 9999 + 55 IF(NPRT(4)) + *WRITE(NEWBCD,1001) + GOTO 53 +C** EXCLUSIVE REACTION NOT FOUND,ASSUME ELASTIC SCATTERING + 80 IF(NPRT(4)) + *WRITE(NEWBCD,1004) RS,N + 53 INT=1 + NP=0 + NM=0 + NZ=0 + IPA(1)=19 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + GOTO 120 + 100 DO 101 I=1,60 + 101 IPA(I)=0 + IF(INT.LE.0) GOTO 131 + GOTO (102,112),NFL + 102 NCHT=NP-NM + NCHT=NCHT+2 + IF(NCHT.LE.0) NCHT=1 + IF(NCHT.GT.4) NCHT=4 + GOTO(103,104,105,106),NCHT + 103 IPA(1)=25 + IPA(2)=14 + GOTO 120 + 104 IPA(1)=19 + IPA(2)=14 + CALL GRNDM(RNDM,2) + IF(RNDM(1).LT.0.5) IPA(1)=24 + IF(RNDM(2).LT.0.5) GOTO 120 + IPA(1)=25 + IPA(2)=16 + GOTO 120 + 105 IPA(1)=19 + CALL GRNDM(RNDM,2) + IF(RNDM(1).LT.0.5) IPA(1)=24 + IPA(2)=16 + IF(RNDM(2).LT.0.5) GOTO 120 + IPA(1)=23 + IPA(2)=14 + GOTO 120 + 106 IPA(1)=23 + IPA(2)=16 + GOTO 120 + 112 NCHT=NP-NM + NCHT=NCHT+3 + IF(NCHT.LE.0) NCHT=1 + IF(NCHT.GT.4) NCHT=4 + GOTO(113,114,115,116),NCHT + 113 IPA(1)=25 + IPA(2)=14 + GOTO 120 + 114 IPA(1)=19 + CALL GRNDM(RNDM,2) + IF(RNDM(1).LT.0.5) IPA(1)=24 + IPA(2)=14 + IF(RNDM(2).LT.0.5) GOTO 120 + IPA(1)=25 + IPA(2)=16 + GOTO 120 + 115 IPA(1)=19 + CALL GRNDM(RNDM,2) + IF(RNDM(1).LT.0.5) IPA(1)=24 + IPA(2)=16 + IF(RNDM(2).LT.0.5) GOTO 120 + IPA(1)=23 + IPA(2)=14 + GOTO 120 + 116 IPA(1)=23 + IPA(2)=16 + 120 NT=2 + IF(IPA(1).NE.0) GOTO 119 + IF(NZ.EQ.0) GOTO 118 + IF(NM.EQ.0) GOTO 117 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GOTO 118 + 117 IPA(3)=12 + NZ=NZ-1 + NT=3 + GOTO 119 + 118 IF(NM.EQ.0) GOTO 119 + IPA(3)=13 + NM=NM-1 + NT=3 + 119 IF(NP.EQ.0) GOTO 122 + DO 121 I=1,NP + NT=NT+1 + 121 IPA(NT)=7 + 122 IF(NM.EQ.0) GOTO 124 + DO 123 I=1,NM + NT=NT+1 + 123 IPA(NT)=9 + 124 IF(NZ.EQ.0) GOTO 130 + DO 125 I=1,NZ + NT=NT+1 + 125 IPA(NT)=8 + 130 IF(NPRT(4)) + *WRITE(NEWBCD,2004) NT,(IPA(I),I=1,20) + GOTO 50 + 131 IF(NPRT(4)) + *WRITE(NEWBCD,2005) +C +1001 FORMAT(' *CASAL0* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI-ELASTIC SCATTERING') +1003 FORMAT(' *CASAL0* ANTILAMBDA-INDUCED CASCADE,', + $ 'AVAIL. ENERGY',2X,F8.4,/, + $ 2X,' ',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') +1004 FORMAT(' *CASAL0* ANTILAMBDA-INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION', + $' NOT FOUND TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,/,2X, + $ ' ',2X,F8.4) +2001 FORMAT(' *CASAL0* TABLES FOR MULT. DATA ANTILAMBDA INDUCED ', + $ 'REACTION FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') +2002 FORMAT(' *CASAL0* TARGET PARTICLE FLAG',2X,I5) +2003 FORMAT(1H ,10E12.4) +2004 FORMAT(' *CASAL0* ',I3,2X,'PARTICLES, MASS INDEX ARRAY',2X,20I4) +2005 FORMAT(' *CASAL0* NO PARTICLES PRODUCED') +3001 FORMAT(' *CASAL0* TABLES FOR MULT. DATA ANTIPROTON INDUCED ', + $ 'ANNIHILATION REACTION FOR DEFINITION OF NUMBERS SEE FORTRAN', + $ ' CODING') +3002 FORMAT(' *CASAL0* TARGET PARTICLE FLAG',2X,I5) +3003 FORMAT(1H ,10E12.4) +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.14/16 06/05/91 22.27.53 by Federico Carminati +*-- Author : Nick van Eijndhoven (CERN) 02/02/89 +C--------------------------------------------------------------------- + SUBROUTINE CASAOM(K,INT,NFL) +C +C *** CASCADE OF OMEGA- BAR *** +C *** NVE 17-JAN-1989 CERN GENEVA *** +C +C OMEGA- BAR UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT, ASSUME NUCLEAR EXCITATION OCCURS, DEGRADE INPUT PARTICLE +C IN ENERGY AND NO OTHER PARTICLES ARE PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C + SAVE +C +C *** NOT YET FINISHED ==> TAKE OMEGA- CASCADE INSTEAD *** +C +C --- INITIALIZATION INDICATED BY KGINIT(24) --- + KGINIT(24)=1 +C + IF (NPRT(4)) PRINT 1000 + 1000 FORMAT(' *CASAOM* NOT WRITTEN YET ==> CASOM CALLED INSTEAD') +C + CALL CASOM(K,INT,NFL) +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.16/00 05/11/93 19.19.11 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CASASM(K,INT,NFL) +C +C *** CASCADE OF ANTI SIGMA- *** +C *** NVE 04-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (13-SEP-1987) +C +C S-B UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT ASSUME NUCLEAR EXCITATION OCCURS AND INPUT PARTICLE +C IS DEGRADED IN ENERGY. NO OTHER PARTICLES PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + REAL N + DIMENSION PMUL1(2,1200),PMUL2(2,400),ANORM1(2,60),ANORM2(2,60), + $ CECH(10),ANHL(25),IIPA(10,2),B(2) + DIMENSION RNDM(2) + SAVE PMUL1,ANORM1,PMUL2,ANORM2 + SAVE + DATA CECH/0.50,0.45,0.40,0.35,0.30,0.25,0.06,0.04,0.005,0./ + DATA ANHL/1.00,1.00,1.00,1.00,1.00,1.00,1.00,1.00,0.97,0.88 + $ ,0.85,0.81,0.75,0.64,0.64,0.55,0.55,0.45,0.47,0.40 + $ ,0.39,0.36,0.33,0.10,0.01/ + DATA IIPA/14,14,14,14,14,19,24,16,14,14, + $ 25,25,25,25,25,14,14,25,19,24/ + DATA B/0.7,0.7/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(2) --- + IF (KGINIT(2) .NE. 0) GO TO 10 + KGINIT(2)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL1(I,J)=0.0 + IF (J .LE. 400) PMUL2(I,J)=0.0 + IF (J .LE. 60) ANORM1(I,J)=0.0 + IF (J .LE. 60) ANORM2(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C** COMPUTE NORMALIZATION CONSTANTS +C** FOR P AS TARGET +C + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1 + DO 1 NM1=NMM1,NPP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 1 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 1 + PMUL1(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM1(1,NT)=ANORM1(1,NT)+PMUL1(1,L) + 1 CONTINUE +C** FOR N AS TARGET + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LT.1) NMM1=1 + NPP1=NP1+1 + DO 2 NM1=NMM1,NPP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 2 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 2 + PMUL1(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM1(2,NT)=ANORM1(2,NT)+PMUL1(2,L) + 2 CONTINUE + DO 3 I=1,60 + IF(ANORM1(1,I).GT.0.) ANORM1(1,I)=1./ANORM1(1,I) + IF(ANORM1(2,I).GT.0.) ANORM1(2,I)=1./ANORM1(2,I) + 3 CONTINUE + IF(.NOT.NPRT(10)) GOTO 9 + WRITE(NEWBCD,2001) + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + WRITE(NEWBCD,2003) (ANORM1(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL1(NFL,I),I=1,1200) + 4 CONTINUE +C** DO THE SAME FOR ANNIHILATION CHANNELS +C** FOR P AS TARGET +C + 9 L=0 + DO 5 NP1=3,20 + NP=NP1-1 + NM=NP-2 + DO 5 NZ1=1,20 + NZ=NZ1-1 + IF(NM+NZ.EQ.0) GOTO 5 + L=L+1 + IF(L.GT.400) GOTO 5 + NT=NP+NM+NZ + IF(NT.LE.2.OR.NT.GT.60) GOTO 5 + PMUL2(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM2(1,NT)=ANORM2(1,NT)+PMUL2(1,L) + 5 CONTINUE +C** FOR N AS TARGET + L=0 + DO 6 NP1=2,20 + NP=NP1-1 + NM=NP-1 + DO 6 NZ1=1,20 + NZ=NZ1-1 + IF(NM+NZ.EQ.0) GOTO 6 + L=L+1 + IF(L.GT.400) GOTO 6 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 6 + PMUL2(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM2(2,NT)=ANORM2(2,NT)+PMUL2(2,L) + 6 CONTINUE + DO 7 I=1,60 + IF(ANORM2(1,I).GT.0.) ANORM2(1,I)=1./ANORM2(1,I) + IF(ANORM2(2,I).GT.0.) ANORM2(2,I)=1./ANORM2(2,I) + 7 CONTINUE + IF(.NOT.NPRT(10)) GOTO 10 + WRITE(NEWBCD,3001) + DO 8 NFL=1,2 + WRITE(NEWBCD,3002) NFL + WRITE(NEWBCD,3003) (ANORM2(NFL,I),I=1,60) + WRITE(NEWBCD,3003) (PMUL2(NFL,I),I=1,400) + 8 CONTINUE +C** CHOOSE PROTON OR NEUTRON AS TARGET + 10 NFL=2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.ZNO2/ATNO2) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-ABS(RMASS(25)) +C** ELASTIC SCATTERING + NP=0 + NM=0 + NZ=0 + IPA(1)=25 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + N=0. + IF(INT.EQ.2) GOTO 20 + IPLAB=IFIX(P*2.5)+1 + IF(IPLAB.GT.10) IPLAB=10 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.CECH(IPLAB)/ATNO2**0.42) GOTO 120 +C** INTRODUCE CHARGE AND STRANGENESS EXCHANGE REACTION +C** S-B N --> LB P, S-B N --> S0B P, +C** S-B P --> P S-B +C** S-B N --> N S-B, S-B N --> P LB, S-B N --> P S0B + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IRN=IFIX(RAN/0.2)+1 + IF(IRN.GT.5) IRN=5 + IRN=IRN+(NFL-1)*5 + IPA(1)=IIPA(IRN,1) + IPA(2)=IIPA(IRN,2) + GOTO 120 +C** ANNIHILATION CHANNELS + 20 IPLAB=IFIX(P*10.)+1 + IF(IPLAB.GT.10) IPLAB=IFIX((P-1.)*5.)+11 + IF(IPLAB.GT.15) IPLAB=IFIX( P-2. )+16 + IF(IPLAB.GT.23) IPLAB=IFIX((P-10.)/10.)+24 + IF(IPLAB.GT.25) IPLAB=25 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.ANHL(IPLAB)) GOTO 19 + EAB=RS + IF (EAB .LE. RMASS(7)+RMASS(10)) GOTO 55 + GOTO 222 +C** CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION IN REACT. + 19 IF (EAB .LE. RMASS(7)) GOTO 55 + ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S)-2*MP + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (30,40),NFL +C** FOR P AS TARGET + 30 L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1 + DO 31 NM1=NMM1,NPP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 31 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL1(1,L)*ANORM1(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 31 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 40 L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LT.1) NMM1=1 + NPP1=NP1+1 + DO 41 NM1=NMM1,NPP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 41 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL1(2,L)*ANORM1(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 41 CONTINUE + GOTO 80 +C** ANNIHILATION CHANNELS + 222 IPA(1)=0 + IPA(2)=0 + ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S) + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 221 NT=2,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 221 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (230,240),NFL +C** FOR P AS TARGET + 230 L=0 + DO 231 NP1=3,20 + NP=NP1-1 + NM=NP-2 + DO 231 NZ1=1,20 + NZ=NZ1-1 + IF(NM+NZ.EQ.0) GOTO 231 + L=L+1 + IF(L.GT.400) GOTO 231 + NT=NP+NM+NZ + IF(NT.LE.2.OR.NT.GT.60) GOTO 231 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL2(1,L)*ANORM2(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 120 + 231 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 240 L=0 + DO 241 NP1=2,20 + NP=NP1-1 + NM=NP-1 + DO 241 NZ1=1,20 + NZ=NZ1-1 + IF(NM+NZ.EQ.0) GOTO 241 + L=L+1 + IF(L.GT.400) GOTO 241 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 241 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL2(2,L)*ANORM2(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 120 + 241 CONTINUE + GOTO 80 + 50 IF(NPRT(4)) + *WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + IF(INT.EQ.1) CALL TWOB(25,NFL,N) + IF(INT.EQ.2) CALL GENXPT(25,NFL,N) + GO TO 9999 + 55 IF(NPRT(4)) + *WRITE(NEWBCD,1001) + GOTO 53 +C** EXCLUSIVE REACTION NOT FOUND,ASSUME ELASTIC SCATTERING + 80 IF(NPRT(4)) + *WRITE(NEWBCD,1004) RS,N + 53 INT=1 + NP=0 + NM=0 + NZ=0 + IPA(1)=25 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + GOTO 120 + 100 DO 101 I=1,60 + 101 IPA(I)=0 + IF(INT.LE.0) GOTO 131 + GOTO (102,112),NFL + 102 NCHT=NP-NM + NCHT=NCHT+1 + IF(NCHT.LE.0) NCHT=1 + IF(NCHT.GT.3) NCHT=3 + GOTO(103,104,105),NCHT + 103 IPA(1)=25 + IPA(2)=14 + GOTO 120 + 104 IPA(1)=25 + IPA(2)=16 + CALL GRNDM(RNDM,2) + IF(RNDM(1).LT.0.5) GOTO 120 + IPA(1)=24 + IF(RNDM(2).LT.0.5) IPA(1)=19 + IPA(2)=14 + GOTO 120 + 105 IPA(1)=24 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) IPA(1)=19 + IPA(2)=16 + GOTO 120 + 112 NCHT=NP-NM + NCHT=NCHT+2 + IF(NCHT.LE.0) NCHT=1 + IF(NCHT.GT.3) NCHT=3 + GOTO(113,114,115),NCHT + 113 IPA(1)=25 + IPA(2)=14 + GOTO 120 + 114 IPA(1)=24 + CALL GRNDM(RNDM,2) + IF(RNDM(1).LT.0.5) IPA(1)=19 + IPA(2)=14 + IF(RNDM(2).LT.0.5) GOTO 120 + IPA(1)=25 + IPA(2)=16 + GOTO 120 + 115 IPA(1)=24 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) IPA(1)=19 + IPA(2)=16 + 120 NT=2 + IF(IPA(1).NE.0) GOTO 119 + IF(NZ.EQ.0) GOTO 118 + IF(NM.EQ.0) GOTO 117 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GOTO 118 + 117 IPA(3)=12 + NZ=NZ-1 + NT=3 + GOTO 119 + 118 IF(NM.EQ.0) GOTO 119 + IPA(3)=13 + NM=NM-1 + NT=3 + 119 IF(NP.EQ.0) GOTO 122 + DO 121 I=1,NP + NT=NT+1 + 121 IPA(NT)=7 + 122 IF(NM.EQ.0) GOTO 124 + DO 123 I=1,NM + NT=NT+1 + 123 IPA(NT)=9 + 124 IF(NZ.EQ.0) GOTO 130 + DO 125 I=1,NZ + NT=NT+1 + 125 IPA(NT)=8 + 130 IF(NPRT(4)) + *WRITE(NEWBCD,2004) NT,(IPA(I),I=1,20) + GOTO 50 + 131 IF(NPRT(4)) + *WRITE(NEWBCD,2005) +C +1001 FORMAT(' *CASASM* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI-ELASTIC SCATTERING') +1003 FORMAT(' *CASASM* ANTISIGMA- -INDUCED CASCADE', + $ ' AVAIL. ENERGY',2X,F8.4,/, + $ 2X,' ',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') +1004 FORMAT(' *CASASM* ANTISIGMA- -INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION', + $' NOT FOUND TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,/,2X, + $ ' ',2X,F8.4) +2001 FORMAT(' *CASASM* TABLES FOR MULT. DATA ANTISIGMA- INDUCED ', + $ 'REACTION FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') +2002 FORMAT(' *CASASM* TARGET PARTICLE FLAG',2X,I5) +2003 FORMAT(1H ,10E12.4) +2004 FORMAT(' *CASASM* ',I3,2X,'PARTICLES , MASS INDEX ARRAY',2X,20I4) +2005 FORMAT(' *CASASM* NO PARTICLES PRODUCED') +3001 FORMAT(' *CASASM* TABLES FOR MULT. DATA ANTISIGMA- INDUCED ', + * 'ANNIHILATION REACTION FOR DEFINITION OF NUMBERS SEE FORTRAN', + * ' CODING') +3002 FORMAT(' *CASASM* TARGET PARTICLE FLAG',2X,I5) +3003 FORMAT(1H ,10E12.4) +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.16/00 05/11/93 19.19.31 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CASASP(K,INT,NFL) +C +C *** CASCADE OF ANTI SIGMA+ *** +C *** NVE 04-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (13-SEP-1987) +C +C S+B UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT ASSUME NUCLEAR EXCITATION OCCURS AND INPUT PARTICLE +C IS DEGRADED IN ENERGY. NO OTHER PARTICLES PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + REAL N + DIMENSION PMUL1(2,1200),PMUL2(2,400),ANORM1(2,60),ANORM2(2,60), + $ CECH(10),ANHL(25),IIPA(10,2),B(2) + DIMENSION RNDM(2) + SAVE PMUL1,ANORM1,PMUL2,ANORM2 + SAVE + DATA CECH/0.50,0.45,0.40,0.35,0.30,0.25,0.06,0.04,0.005,0./ + DATA ANHL/1.00,1.00,1.00,1.00,1.00,1.00,1.00,1.00,0.97,0.88 + $ ,0.85,0.81,0.75,0.64,0.64,0.55,0.55,0.45,0.47,0.40 + $ ,0.39,0.36,0.33,0.10,0.01/ + DATA IIPA/19,24,16,16,14,16,16,16,16,16, + $ 16,16,19,24,23,23,23,23,23,23/ + DATA B/0.7,0.7/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(3) --- + IF (KGINIT(3) .NE. 0) GO TO 10 + KGINIT(3)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL1(I,J)=0.0 + IF (J .LE. 400) PMUL2(I,J)=0.0 + IF (J .LE. 60) ANORM1(I,J)=0.0 + IF (J .LE. 60) ANORM2(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C** COMPUTE NORMALIZATION CONSTANTS +C** FOR P AS TARGET +C + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 1 NM1=NMM1,NPP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 1 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 1 + PMUL1(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM1(1,NT)=ANORM1(1,NT)+PMUL1(1,L) + 1 CONTINUE +C** FOR N AS TARGET + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NMM1=NP1 + IF(NMM1.LT.1) NMM1=1 + NPP1=NP1+2 + DO 2 NM1=NMM1,NPP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 2 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 2 + PMUL1(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM1(2,NT)=ANORM1(2,NT)+PMUL1(2,L) + 2 CONTINUE + DO 3 I=1,60 + IF(ANORM1(1,I).GT.0.) ANORM1(1,I)=1./ANORM1(1,I) + IF(ANORM1(2,I).GT.0.) ANORM1(2,I)=1./ANORM1(2,I) + 3 CONTINUE + IF(.NOT.NPRT(10)) GOTO 9 + WRITE(NEWBCD,2001) + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + WRITE(NEWBCD,2003) (ANORM1(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL1(NFL,I),I=1,1200) + 4 CONTINUE +C** DO THE SAME FOR ANNIHILATION CHANNELS +C** FOR P AS TARGET +C + 9 L=0 + DO 5 NP1=2,20 + NP=NP1-1 + NM=NP + DO 5 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.400) GOTO 5 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 5 + PMUL2(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM2(1,NT)=ANORM2(1,NT)+PMUL2(1,L) + 5 CONTINUE +C** FOR N AS TARGET + L=0 + DO 6 NP1=1,20 + NP=NP1-1 + NM=NP+1 + DO 6 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.400) GOTO 6 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 6 + PMUL2(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM2(2,NT)=ANORM2(2,NT)+PMUL2(2,L) + 6 CONTINUE + DO 7 I=1,60 + IF(ANORM2(1,I).GT.0.) ANORM2(1,I)=1./ANORM2(1,I) + IF(ANORM2(2,I).GT.0.) ANORM2(2,I)=1./ANORM2(2,I) + 7 CONTINUE + IF(.NOT.NPRT(10)) GOTO 10 + WRITE(NEWBCD,3001) + DO 8 NFL=1,2 + WRITE(NEWBCD,3002) NFL + WRITE(NEWBCD,3003) (ANORM2(NFL,I),I=1,60) + WRITE(NEWBCD,3003) (PMUL2(NFL,I),I=1,400) + 8 CONTINUE +C** CHOOSE PROTON OR NEUTRON AS TARGET + 10 NFL=2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.ZNO2/ATNO2) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-ABS(RMASS(23)) +C** ELASTIC SCATTERING + NP=0 + NM=0 + NZ=0 + IPA(1)=23 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + N=0. + IF(INT.EQ.2) GOTO 20 + IPLAB=IFIX(P*2.5)+1 + IF(IPLAB.GT.10) IPLAB=10 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.CECH(IPLAB)/ATNO2**0.42) GOTO 120 +C** INTRODUCE CHARGE AND STRANGENESS EXCHANGE REACTION +C** S+B P --> LB N, S+B P --> S0B N, +C** S+B P --> N LB, S+B P --> N S0B, S+B P --> P S+B +C** S+B N --> N S+B + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IRN=IFIX(RAN/0.2)+1 + IF(IRN.GT.5) IRN=5 + IRN=IRN+(NFL-1)*5 + IPA(1)=IIPA(IRN,1) + IPA(2)=IIPA(IRN,2) + GOTO 120 +C** ANNIHILATION CHANNELS + 20 IPLAB=IFIX(P*10.)+1 + IF(IPLAB.GT.10) IPLAB=IFIX((P-1.)*5.)+11 + IF(IPLAB.GT.15) IPLAB=IFIX( P-2. )+16 + IF(IPLAB.GT.23) IPLAB=IFIX((P-10.)/10.)+24 + IF(IPLAB.GT.25) IPLAB=25 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.ANHL(IPLAB)) GOTO 19 + EAB=RS + IF (EAB .LE. RMASS(7)+RMASS(10)) GOTO 55 + GOTO 222 +C** CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION IN REACT. + 19 IF (EAB .LE. RMASS(7)) GOTO 55 + ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S)-2*MP + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (30,40),NFL +C** FOR P AS TARGET + 30 L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 31 NM1=NMM1,NPP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 31 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL1(1,L)*ANORM1(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 31 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 40 L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NMM1=NP1 + IF(NMM1.LT.1) NMM1=1 + NPP1=NP1+2 + DO 41 NM1=NMM1,NPP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 41 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL1(2,L)*ANORM1(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 41 CONTINUE + GOTO 80 +C** ANNIHILATION CHANNELS + 222 IPA(1)=0 + IPA(2)=0 + ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S) + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 221 NT=2,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 221 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (230,240),NFL +C** FOR P AS TARGET + 230 L=0 + DO 231 NP1=2,20 + NP=NP1-1 + NM=NP + DO 231 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.400) GOTO 231 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 231 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL2(1,L)*ANORM2(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 120 + 231 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 240 L=0 + DO 241 NP1=1,20 + NP=NP1-1 + NM=NP+1 + DO 241 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.400) GOTO 241 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 241 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL2(2,L)*ANORM2(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 120 + 241 CONTINUE + GOTO 80 + 50 IF(NPRT(4)) + *WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + IF(INT.EQ.1) CALL TWOB(23,NFL,N) + IF(INT.EQ.2) CALL GENXPT(23,NFL,N) + GO TO 9999 + 55 IF(NPRT(4)) + *WRITE(NEWBCD,1001) + GOTO 53 +C** EXCLUSIVE REACTION NOT FOUND,ASSUME ELASTIC SCATTERING + 80 IF(NPRT(4)) + *WRITE(NEWBCD,1004) RS,N + 53 INT=1 + NP=0 + NM=0 + NZ=0 + IPA(1)=23 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + GOTO 120 + 100 DO 101 I=1,60 + 101 IPA(I)=0 + IF(INT.LE.0) GOTO 131 + GOTO (102,112),NFL + 102 NCHT=NP-NM + NCHT=NCHT+2 + IF(NCHT.LE.0) NCHT=1 + IF(NCHT.GT.3) NCHT=3 + GOTO(103,104,105),NCHT + 103 IPA(1)=24 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) IPA(1)=19 + IPA(2)=14 + GOTO 120 + 104 IPA(1)=23 + IPA(2)=14 + CALL GRNDM(RNDM,2) + IF(RNDM(1).LT.0.5) GOTO 120 + IPA(1)=24 + IF(RNDM(2).LT.0.5) IPA(1)=19 + IPA(2)=16 + GOTO 120 + 105 IPA(1)=23 + IPA(2)=16 + GOTO 120 + 112 NCHT=NP-NM + NCHT=NCHT+3 + IF(NCHT.LE.0) NCHT=1 + IF(NCHT.GT.3) NCHT=3 + GOTO(113,114,115),NCHT + 113 IPA(1)=24 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) IPA(1)=19 + IPA(2)=14 + GOTO 120 + 114 IPA(1)=24 + CALL GRNDM(RNDM,2) + IF(RNDM(1).LT.0.5) IPA(1)=19 + IPA(2)=16 + IF(RNDM(2).LT.0.5) GOTO 120 + IPA(1)=23 + IPA(2)=14 + GOTO 120 + 115 IPA(1)=23 + IPA(2)=16 + 120 NT=2 + IF(IPA(1).NE.0) GOTO 119 + IF(NZ.EQ.0) GOTO 118 + IF(NM.EQ.0) GOTO 117 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GOTO 118 + 117 IPA(3)=12 + NZ=NZ-1 + NT=3 + GOTO 119 + 118 IF(NM.EQ.0) GOTO 119 + IPA(3)=13 + NM=NM-1 + NT=3 + 119 IF(NP.EQ.0) GOTO 122 + DO 121 I=1,NP + NT=NT+1 + 121 IPA(NT)=7 + 122 IF(NM.EQ.0) GOTO 124 + DO 123 I=1,NM + NT=NT+1 + 123 IPA(NT)=9 + 124 IF(NZ.EQ.0) GOTO 130 + DO 125 I=1,NZ + NT=NT+1 + 125 IPA(NT)=8 + 130 IF(NPRT(4)) + *WRITE(NEWBCD,2004) NT,(IPA(I),I=1,20) + GOTO 50 + 131 IF(NPRT(4)) + *WRITE(NEWBCD,2005) +C +1001 FORMAT(' *CASASP* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI-ELASTIC SCATTERING') +1003 FORMAT(' *CASASP* ANTISIGMA+ -INDUCED CASCADE,', + $ ' AVAIL. ENERGY',2X,F8.4,/, + $ 2X,' ',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') +1004 FORMAT(' *CASASP* ANTISIGMA+ -INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION', + $' NOT FOUND TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,/,2X, + $ ' ',2X,F8.4) +2001 FORMAT(' *CASASP* TABLES FOR MULT. DATA ANTISIGMA+ INDUCED ', + $ 'REACTION FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') +2002 FORMAT(' *CASASP* TARGET PARTICLE FLAG',2X,I5) +2003 FORMAT(1H ,10E12.4) +2004 FORMAT(' *CASASP* ',I3,2X,'PARTICLES , MASS INDEX ARRAY',2X,20I4) +2005 FORMAT(' *CASASP* NO PARTICLES PRODUCED') +3001 FORMAT(' *CASASP* TABLES FOR MULT. DATA ANTIPROTON INDUCED ', + $ 'ANNIHILATION REACTION FOR DEFINITION OF NUMBERS SEE FORTRAN', + $ ' CODING') +3002 FORMAT(' *CASASP* TARGET PARTICLE FLAG',2X,I5) +3003 FORMAT(1H ,10E12.4) +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.14/16 06/05/91 22.27.53 by Federico Carminati +*-- Author : Nick van Eijndhoven (CERN) 02/02/89 +C--------------------------------------------------------------------- + SUBROUTINE CASAXM(K,INT,NFL) +C +C *** CASCADE OF XI- BAR *** +C *** NVE 17-JAN-1989 CERN GENEVA *** +C +C XI- BAR UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT, ASSUME NUCLEAR EXCITATION OCCURS, DEGRADE INPUT PARTICLE +C IN ENERGY AND NO OTHER PARTICLES ARE PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C + SAVE +C +C *** NOT YET FINISHED ==> TAKE XI- CASCADE INSTEAD *** +C +C --- INITIALIZATION INDICATED BY KGINIT(22) --- + KGINIT(22)=1 +C + IF (NPRT(4)) PRINT 1000 + 1000 FORMAT(' *CASAXM* NOT WRITTEN YET ==> CASXM CALLED INSTEAD') +C + CALL CASXM(K,INT,NFL) +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.14/16 06/05/91 22.27.53 by Federico Carminati +*-- Author : Nick van Eijndhoven (CERN) 02/02/89 +C--------------------------------------------------------------------- + SUBROUTINE CASAX0(K,INT,NFL) +C +C *** CASCADE OF XI0 BAR *** +C *** NVE 17-JAN-1989 CERN GENEVA *** +C +C XI0 BAR UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT, ASSUME NUCLEAR EXCITATION OCCURS, DEGRADE INPUT PARTICLE +C IN ENERGY AND NO OTHER PARTICLES ARE PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C + SAVE +C +C *** NOT YET FINISHED ==> TAKE XI0 CASCADE INSTEAD *** +C +C --- INITIALIZATION INDICATED BY KGINIT(23) --- + KGINIT(23)=1 +C + IF (NPRT(4)) PRINT 1000 + 1000 FORMAT(' *CASAX0* NOT WRITTEN YET ==> CASX0 CALLED INSTEAD') +C + CALL CASX0(K,INT,NFL) +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.14/16 06/05/91 22.27.50 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CASFRG(NUCFLG,INT,NFL) +C +C *** CASCADE OF HEAVY FRAGMENTS *** +C *** NVE 11-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (02-DEC-1986) +C + SAVE +C --- NUCFLG IS A FLAG TO DENOTE THE NUCREC ACTION --- +C NUCFLG = 0 ==> NO ACTION TAKEN BY NUCREC +C 1 ==> ACTION TAKEN BY NUCREC + NUCFLG=1 + CALL NUCREC(NOPT,2) + IF (NOPT .NE. 0) GO TO 9999 +C + NUCFLG=0 + CALL COSCAT +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.16/00 05/11/93 19.16.15 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CASKM(K,INT,NFL) +C +C *** CASCADE OF K- *** +C *** NVE 04-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (13-SEP-1987) +C +C K- UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT ASSUME NUCLEAR EXCITATION OCCURS AND INPUT PARTICLE +C IS DEGRADED IN ENERGY. NO OTHER PARTICLES PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + REAL N + DIMENSION PMUL(2,1200),ANORM(2,60),CECH(10),CNK0(20),PIY1(4), + $ PIY2(3),IPIY1(2,4),IPIY2(2,3),IPIY3(2,3),B(2) + DIMENSION RNDM(1) + SAVE PMUL,ANORM + SAVE + DATA CECH/1.,1.,1.,0.70,0.60,0.55,0.35,0.25,0.18,0.15/ + DATA CNK0/0.17,0.18,0.17,0.24,0.26,0.20,0.22,0.21,0.34,0.45 + $ ,0.58,0.55,0.36,0.29,0.29,0.32,0.32,0.33,0.33,0.33/ + DATA PIY1/0.67,0.78,0.89,1.00/,PIY2/0.68,0.84,1.00/ + DATA IPIY1/8,18,9,20,8,21,7,22/ + DATA IPIY2/9,18,9,21,8,22/,IPIY3/7,18,8,20,7,21/ + DATA B/0.7,0.7/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(4) --- + IF (KGINIT(4) .NE. 0) GO TO 10 + KGINIT(4)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL(I,J)=0.0 + IF (J .LE. 60) ANORM(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C** COMPUTE NORMALIZATION CONSTANTS +C** FOR P AS TARGET +C + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 1 NM1=NMM1,NPP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 1 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 1 + PMUL(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM(1,NT)=ANORM(1,NT)+PMUL(1,L) + 1 CONTINUE +C** FOR N AS TARGET + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NPP1=NP1+2 + DO 2 NM1=NP1,NPP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 2 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 2 + PMUL(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM(2,NT)=ANORM(2,NT)+PMUL(2,L) + 2 CONTINUE + DO 3 I=1,60 + IF(ANORM(1,I).GT.0.) ANORM(1,I)=1./ANORM(1,I) + IF(ANORM(2,I).GT.0.) ANORM(2,I)=1./ANORM(2,I) + 3 CONTINUE + IF(.NOT.NPRT(10)) GOTO 10 + WRITE(NEWBCD,2001) + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + WRITE(NEWBCD,2003) (ANORM(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL(NFL,I),I=1,1200) + 4 CONTINUE +C** CHOOSE PROTON OR NEUTRON AS TARGET + 10 NFL=2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.ZNO2/ATNO2) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-RMASS(13) +C +C** ELASTIC SCATTERING + NP=0 + NM=0 + NZ=0 + N=0. + IPA(1)=13 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + IF(INT.EQ.2) GOTO 20 + GOTO 100 +C** CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION IN REACT. + 20 IPLAB=IFIX(P*5.)+1 + IF(IPLAB.GT.10) GOTO 22 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.CECH(IPLAB)) GOTO 19 + IF (EAB .LT. RMASS(7)) GOTO 55 + GOTO 22 +C** CHARGE EXCHANGE REACTION (IS INCLUDED IN INELASTIC CROSS SECTION) + 19 IPLAB=IFIX(P*10.)+1 + IF(IPLAB.GT.20) IPLAB=20 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.CNK0(IPLAB)) GOTO 24 + IF(NFL.EQ.1) GOTO 23 +C** FOR K- N REACTION NO K N STRANGENESS EXCHANGE POSSIBLE + INT=1 + IPA(1)=13 + IPA(2)=16 + GOTO 100 + 23 INT=1 + IPA(1)=12 + IPA(2)=16 + GOTO 100 +C** P L, P S REACTIONS + 24 CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IF(RAN.LT.0.25) GOTO 25 + IF(RAN.LT.0.50) GOTO 26 + IF(RAN.LT.0.75) GOTO 27 +C** K- P --> PI0 L OR K- N --> PI- L + IPA(1)=8 + IF(NFL.EQ.2) IPA(1)=9 + IPA(2)=18 + GOTO 100 +C** K- P --> PI- S+ + 25 IPA(1)=9 + IPA(2)=20 + IF(NFL.EQ.1) GOTO 100 + IPA(1)=13 + IPA(2)=16 + GOTO 100 +C** K- P --> PI0 S0 OR K- N --> PI- S0 + 26 IPA(1)=8 + IF(NFL.EQ.2) IPA(1)=9 + IPA(2)=21 + GOTO 100 +C** K- P --> PI+ S- OR K- N --> PI0 S- + 27 IPA(1)=7 + IF(NFL.EQ.2) IPA(1)=8 + IPA(2)=22 + GOTO 100 +C + 22 ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S)-2*MP + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (30,40),NFL +C** FOR P AS TARGET + 30 L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 31 NM1=NMM1,NPP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 31 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(1,L)*ANORM(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 50 + 31 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 40 L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NPP1=NP1+2 + DO 41 NM1=NP1,NPP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 41 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(2,L)*ANORM(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 50 + 41 CONTINUE + GOTO 80 + 50 GOTO (60,65),NFL + 60 IF(NP.EQ.NM) GOTO 61 + IF(NP.EQ.1+NM) GOTO 63 + IPA(1)=12 + IPA(2)=14 + GOTO 90 + 61 CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.75) GOTO 62 + IPA(1)=12 + IPA(2)=16 + GOTO 90 + 62 IPA(1)=13 + IPA(2)=14 + GOTO 90 + 63 IPA(1)=13 + IPA(2)=16 + GOTO 90 + 65 IF(NP.EQ.-1+NM) GOTO 66 + IF(NP.EQ.NM) GOTO 68 + IPA(1)=12 + IPA(2)=16 + GOTO 90 + 66 CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.50) GOTO 67 + IPA(1)=12 + IPA(2)=16 + GOTO 90 + 67 IPA(1)=13 + IPA(2)=14 + GOTO 90 + 68 IPA(1)=13 + IPA(2)=16 +C** PI Y PRODUCTION INSTEAD OF K N + 90 CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GOTO 100 + IF(IPA(1).EQ.13.AND.IPA(2).EQ.16) GOTO 95 + IF(IPA(1).EQ.11.AND.IPA(2).EQ.14) GOTO 95 + IF(IPA(1).EQ.12.AND.IPA(2).EQ.14) GOTO 95 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + DO 91 I=1,4 + IF(RAN.LT.PIY1(I)) GOTO 92 + 91 CONTINUE + GOTO 100 + 92 IPA(1)=IPIY1(1,I) + IPA(2)=IPIY1(2,I) + GOTO 100 + 95 CALL GRNDM(RNDM,1) + RAN=RNDM(1) + DO 96 I=1,3 + IF(RAN.LT.PIY2(I)) GOTO 97 + 96 CONTINUE + GOTO 100 + 97 IF(IPA(2).EQ.14) GOTO 98 + IPA(1)=IPIY2(1,I) + IPA(2)=IPIY2(2,I) + GOTO 100 + 98 IPA(1)=IPIY3(1,I) + IPA(2)=IPIY3(2,I) + GOTO 100 + 70 IF(NPRT(4)) + *WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + CALL STPAIR + IF(INT.EQ.1) CALL TWOB(13,NFL,N) + IF(INT.EQ.2) CALL GENXPT(13,NFL,N) + GO TO 9999 +C** NUCLEAR EXCITATION + 55 IF(NPRT(4)) + *WRITE(NEWBCD,1001) + GOTO 53 +C** EXCLUSIVE REACTION NOT FOUND + 80 IF(NPRT(4)) + *WRITE(NEWBCD,1004) RS,N + 53 INT=1 + NP=0 + NM=0 + NZ=0 + N=0. + IPA(1)=13 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + 100 DO 101 I=3,60 + 101 IPA(I)=0 + IF(INT.LE.0) GOTO 131 + 120 NT=2 + IF(NP.EQ.0) GOTO 122 + DO 121 I=1,NP + NT=NT+1 + 121 IPA(NT)=7 + 122 IF(NM.EQ.0) GOTO 124 + DO 123 I=1,NM + NT=NT+1 + 123 IPA(NT)=9 + 124 IF(NZ.EQ.0) GOTO 130 + DO 125 I=1,NZ + NT=NT+1 + 125 IPA(NT)=8 + 130 IF(NPRT(4)) + *WRITE(NEWBCD,2004) NT,(IPA(I),I=1,20) + DO 132 I=1,NT + IF(IPA(I).NE.12) GOTO 132 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GOTO 132 + IPA(I)=11 + 132 CONTINUE + GOTO 70 + 131 IF(NPRT(4)) + *WRITE(NEWBCD,2005) +C +1001 FORMAT(' *CASKM* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI-ELASTIC SCATTERING') +1003 FORMAT(' *CASKM* KAON- -INDUCED CASCADE,', + $ ' AVAIL. ENERGY',2X,F8.4,/, + $ 2X,' ',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') +1004 FORMAT(' *CASKM* KAON- -INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION NOT FOUND', + $ ' TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,/,2X, + $ ' ',2X,F8.4) +2001 FORMAT(' *CASKM* TABLES FOR MULT. DATA KAON- INDUCED REACTION', + $ ' FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') +2002 FORMAT(' *CASKM* TARGET PARTICLE FLAG',2X,I5) +2003 FORMAT(1H ,10E12.4) +2004 FORMAT(' *CASKM* ',I3,2X,'PARTICLES , MASS INDEX ARRAY',2X,20I4) +2005 FORMAT(' *CASKM* NO PARTICLES PRODUCED') +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.16/00 05/11/93 19.17.03 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CASKP(K,INT,NFL) +C +C *** CASCADE OF K+ *** +C *** NVE 04-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (13-SEP-1987) +C +C K+ UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT ASSUME NUCLEAR EXCITATION OCCURS AND INPUT PARTICLE +C IS DEGRADED IN ENERGY. NO OTHER PARTICLES PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + REAL N + DIMENSION PMUL(2,1200),ANORM(2,60),SUPP(10),CECH(10),B(2) + DIMENSION RNDM(1) + SAVE PMUL,ANORM + SAVE + DATA SUPP/0.,0.4,0.55,0.65,0.75,0.82,0.86,0.90,0.94,0.98/ + DATA CECH/0.33,0.27,0.29,0.31,0.27,0.18,0.13,0.10,0.09,0.07/ + DATA B/0.7,0.7/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(5) --- + IF (KGINIT(5) .NE. 0) GO TO 10 + KGINIT(5)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL(I,J)=0.0 + IF (J .LE. 60) ANORM(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C** COMPUTE NORMALIZATION CONSTANTS +C** FOR P AS TARGET +C + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + DO 1 NM1=NMM1,NP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 1 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 1 + PMUL(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM(1,NT)=ANORM(1,NT)+PMUL(1,L) + 1 CONTINUE +C** FOR N AS TARGET + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 2 NM1=NMM1,NPP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 2 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 2 + PMUL(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM(2,NT)=ANORM(2,NT)+PMUL(2,L) + 2 CONTINUE + DO 3 I=1,60 + IF(ANORM(1,I).GT.0.) ANORM(1,I)=1./ANORM(1,I) + IF(ANORM(2,I).GT.0.) ANORM(2,I)=1./ANORM(2,I) + 3 CONTINUE + IF(.NOT.NPRT(10)) GOTO 10 + WRITE(NEWBCD,2001) + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + WRITE(NEWBCD,2003) (ANORM(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL(NFL,I),I=1,1200) + 4 CONTINUE +C** CHOOSE PROTON OR NEUTRON AS TARGET + 10 NFL=2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.ZNO2/ATNO2) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-RMASS(10) +C +C** ELASTIC SCATTERING + NP=0 + NM=0 + NZ=0 + N=0. + IPA(1)=10 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + IF(INT.EQ.2) GOTO 20 +C** FOR K+ N REACTIONS CHANGE SOME OF THE ELASTIC CROSS SECTION +C** TO K+ N --> K0 P + IF(NFL.EQ.1) GOTO 100 + IPLAB=IFIX(P *5.)+1 + IF(IPLAB.GT.10) IPLAB=10 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.CECH(IPLAB)/ATNO2**0.42) GOTO 100 + IPA(1)=11 + IPA(2)=14 + GOTO 100 +C** CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION IN REACT. + 20 IF (EAB .LE. RMASS(7)) GOTO 55 +C** SUPPRESSION OF HIGH MULTIPLICITY EVENTS AT LOW MOMENTUM + IEAB=IFIX(EAB*5.)+1 + IF(IEAB.GT.10) GOTO 22 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SUPP(IEAB)) GOTO 22 + N=1. + GOTO (23,24),NFL + 23 CONTINUE + TEST=-(1+B(1))**2/(2.0*C**2) + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + W0=EXP(TEST) + WP=EXP(TEST) + WP=WP*2.0 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + NP=0 + NM=0 + NZ=1 + IF(RAN.LT.W0/(W0+WP)) GOTO 50 + NP=1 + NM=0 + NZ=0 + GOTO 50 + 24 CONTINUE + TEST=-(1+B(2))**2/(2.0*C**2) + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + W0=EXP(TEST) + WP=EXP(TEST) + TEST=-(-1+B(2))**2/(2.0*C**2) + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + WM=EXP(TEST) + WT=W0+WP+WM + WP=W0+WP + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + NP=0 + NM=0 + NZ=1 + IF(RAN.LT.W0/WT) GOTO 50 + NP=1 + NM=0 + NZ=0 + IF(RAN.LT.WP/WT) GOTO 50 + NP=0 + NM=1 + NZ=0 + GOTO 50 +C + 22 ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S)-2*MP + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (30,40),NFL +C** FOR P AS TARGET + 30 L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + DO 31 NM1=NMM1,NP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 31 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(1,L)*ANORM(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 50 + 31 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 40 L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 41 NM1=NMM1,NPP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 41 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(2,L)*ANORM(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 50 + 41 CONTINUE + GOTO 80 + 50 GOTO (60,65),NFL + 60 IF(NP.EQ.1+NM) GOTO 61 + IF(NP.EQ.2+NM) GOTO 63 + IPA(1)=10 + IPA(2)=14 + GOTO 100 + 61 CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GOTO 62 + IPA(1)=10 + IPA(2)=16 + GOTO 100 + 62 IPA(1)=11 + IPA(2)=14 + GOTO 100 + 63 IPA(1)=11 + IPA(2)=16 + GOTO 100 + 65 IF(NP.EQ.NM) GOTO 66 + IF(NP.EQ.1+NM) GOTO 68 + IPA(1)=10 + IPA(2)=14 + GOTO 100 + 66 CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.25) GOTO 67 + IPA(1)=10 + IPA(2)=16 + GOTO 100 + 67 IPA(1)=11 + IPA(2)=14 + GOTO 100 + 68 IPA(1)=11 + IPA(2)=16 + GOTO 100 + 70 IF(NPRT(4)) + *WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + CALL STPAIR + IF(INT.EQ.1) CALL TWOB(10,NFL,N) + IF(INT.EQ.2) CALL GENXPT(10,NFL,N) + GO TO 9999 + 55 IF(NPRT(4)) + *WRITE(NEWBCD,1001) + GOTO 53 +C** EXCLUSIVE REACTION NOT FOUND + 80 IF(NPRT(4)) + *WRITE(NEWBCD,1004) RS,N + 53 INT=1 + NP=0 + NM=0 + NZ=0 + N=0. + IPA(1)=10 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + 100 DO 101 I=3,60 + 101 IPA(I)=0 + IF(INT.LE.0) GOTO 131 + 120 NT=2 + IF(NP.EQ.0) GOTO 122 + DO 121 I=1,NP + NT=NT+1 + 121 IPA(NT)=7 + 122 IF(NM.EQ.0) GOTO 124 + DO 123 I=1,NM + NT=NT+1 + 123 IPA(NT)=9 + 124 IF(NZ.EQ.0) GOTO 130 + DO 125 I=1,NZ + NT=NT+1 + 125 IPA(NT)=8 + 130 IF(NPRT(4)) + *WRITE(NEWBCD,2004) NT,(IPA(I),I=1,20) + DO 132 I=1,NT + IF(IPA(I).NE.11) GOTO 132 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GOTO 132 + IPA(I)=12 + 132 CONTINUE + GOTO 70 + 131 IF(NPRT(4)) + *WRITE(NEWBCD,2005) +C +1001 FORMAT(' *CASKP* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI-ELASTIC SCATTERING') +1003 FORMAT(' *CASKP* KAON+ -INDUCED CASCADE,', + $ ' AVAIL. ENERGY',2X,F8.4,/, + $ 2X,' ',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') +1004 FORMAT(' *CASKP* KAON+ -INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION NOT FOUND', + $ 'TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,/,2X, + $ ' ',2X,F8.4) +2001 FORMAT(' *CASKP* TABLES FOR MULT. DATA KAON+ INDUCED REACTION', + $ ' FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') +2002 FORMAT(' *CASKP* TARGET PARTICLE FLAG',2X,I5) +2003 FORMAT(1H ,10E12.4) +2004 FORMAT(' *CASKP* ',I3,2X,'PARTICLES , MASS INDEX ARRAY',2X,20I4) +2005 FORMAT(' *CASKP* NO PARTICLES PRODUCED') +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.16/00 05/11/93 19.17.27 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CASK0(K,INT,NFL) +C +C *** CASCADE OF K0 *** +C *** NVE 04-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (13-SEP-1987) +C +C K0 UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT ASSUME NUCLEAR EXCITATION OCCURS AND INPUT PARTICLE +C IS DEGRADED IN ENERGY. NO OTHER PARTICLES PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + REAL N + DIMENSION PMUL(2,1200),ANORM(2,60),SUPP(10),CECH(10),B(2) + DIMENSION RNDM(1) + SAVE PMUL,ANORM + SAVE + DATA SUPP/0.,0.4,0.55,0.65,0.75,0.82,0.86,0.90,0.94,0.98/ + DATA CECH/0.33,0.27,0.29,0.31,0.27,0.18,0.13,0.10,0.09,0.07/ + DATA B/0.7,0.7/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(6) --- + IF (KGINIT(6) .NE. 0) GO TO 10 + KGINIT(6)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL(I,J)=0.0 + IF (J .LE. 60) ANORM(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C** COMPUTE NORMALIZATION CONSTANTS +C** FOR P AS TARGET +C + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 1 NM1=NMM1,NPP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 1 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 1 + PMUL(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM(1,NT)=ANORM(1,NT)+PMUL(1,L) + 1 CONTINUE +C** FOR N AS TARGET + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + DO 2 NM1=NMM1,NP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 2 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 2 + PMUL(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM(2,NT)=ANORM(2,NT)+PMUL(2,L) + 2 CONTINUE + DO 3 I=1,60 + IF(ANORM(1,I).GT.0.) ANORM(1,I)=1./ANORM(1,I) + IF(ANORM(2,I).GT.0.) ANORM(2,I)=1./ANORM(2,I) + 3 CONTINUE + IF(.NOT.NPRT(10)) GOTO 10 + WRITE(NEWBCD,2001) + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + WRITE(NEWBCD,2003) (ANORM(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL(NFL,I),I=1,1200) + 4 CONTINUE +C** CHOOSE PROTON OR NEUTRON AS TARGET + 10 NFL=2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.ZNO2/ATNO2) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-RMASS(11) +C +C** ELASTIC SCATTERING + NP=0 + NM=0 + NZ=0 + N=0. + IPA(1)=11 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + IF(INT.EQ.2) GOTO 20 +C** FOR K0 P REACTIONS CHANGE SOME OF THE ELASTIC CROSS SECTION +C** TO K0 P --> K+ N + IF(NFL.EQ.2) GOTO 100 + IPLAB=IFIX(P *5.)+1 + IF(IPLAB.GT.10) IPLAB=10 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.CECH(IPLAB)/ATNO2**0.42) GOTO 100 + IPA(1)=10 + IPA(2)=16 + GOTO 100 +C** CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION IN REACT. + 20 IF (EAB .LE. RMASS(7)) GOTO 55 +C** SUPPRESSION OF HIGH MULTIPLICITY EVENTS AT LOW MOMENTUM + IEAB=IFIX(EAB*5.)+1 + IF(IEAB.GT.10) GOTO 22 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SUPP(IEAB)) GOTO 22 + N=1. + GOTO (24,23),NFL + 23 CONTINUE + TEST=-(1+B(1))**2/(2.0*C**2) + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + W0=EXP(TEST) + TEST=-(-1+B(1))**2/(2.0*C**2) + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + WM=EXP(TEST) + W0=W0/2.0 + WM=WM*1.5 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + NP=0 + NM=0 + NZ=1 + IF(RAN.LT.W0/(W0+WM)) GOTO 50 + NP=0 + NM=1 + NZ=0 + GOTO 50 + 24 CONTINUE + TEST=-(1+B(2))**2/(2.0*C**2) + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + W0=EXP(TEST) + WP=EXP(TEST) + TEST=-(-1+B(2))**2/(2.0*C**2) + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + WM=EXP(TEST) + WT=W0+WP+WM + WP=W0+WP + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + NP=0 + NM=0 + NZ=1 + IF(RAN.LT.W0/WT) GOTO 50 + NP=1 + NM=0 + NZ=0 + IF(RAN.LT.WP/WT) GOTO 50 + NP=0 + NM=1 + NZ=0 + GOTO 50 +C + 22 ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S)-2*MP + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (30,40),NFL +C** FOR P AS TARGET + 30 L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 31 NM1=NMM1,NPP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 31 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(1,L)*ANORM(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 50 + 31 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 40 L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + DO 41 NM1=NMM1,NP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 41 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(2,L)*ANORM(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 50 + 41 CONTINUE + GOTO 80 + 50 GOTO (65,60),NFL + 60 IF(NP.EQ.1+NM) GOTO 61 + IF(NP.EQ.2+NM) GOTO 63 + IPA(1)=11 + IPA(2)=16 + GOTO 100 + 61 CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GOTO 62 + IPA(1)=11 + IPA(2)=14 + GOTO 100 + 62 IPA(1)=10 + IPA(2)=16 + GOTO 100 + 63 IPA(1)=10 + IPA(2)=14 + GOTO 100 + 65 IF(NP.EQ.NM) GOTO 66 + IF(NP.EQ.1+NM) GOTO 68 + IPA(1)=11 + IPA(2)=16 + GOTO 100 + 66 CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.25) GOTO 67 + IPA(1)=11 + IPA(2)=14 + GOTO 100 + 67 IPA(1)=10 + IPA(2)=16 + GOTO 100 + 68 IPA(1)=11 + IPA(2)=16 + GOTO 100 + 70 IF(NPRT(4)) + *WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + CALL STPAIR + IF(INT.EQ.1) CALL TWOB(11,NFL,N) + IF(INT.EQ.2) CALL GENXPT(11,NFL,N) + GO TO 9999 + 55 IF(NPRT(4)) + *WRITE(NEWBCD,1001) + GOTO 53 +C** EXCLUSIVE REACTION NOT FOUND + 80 IF(NPRT(4)) + *WRITE(NEWBCD,1004) RS,N + 53 INT=1 + NP=0 + NM=0 + NZ=0 + N=0. + IPA(1)=11 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + 100 DO 101 I=3,60 + 101 IPA(I)=0 + IF(INT.LE.0) GOTO 131 + 120 NT=2 + IF(NP.EQ.0) GOTO 122 + DO 121 I=1,NP + NT=NT+1 + 121 IPA(NT)=7 + 122 IF(NM.EQ.0) GOTO 124 + DO 123 I=1,NM + NT=NT+1 + 123 IPA(NT)=9 + 124 IF(NZ.EQ.0) GOTO 130 + DO 125 I=1,NZ + NT=NT+1 + 125 IPA(NT)=8 + 130 IF(NPRT(4)) + *WRITE(NEWBCD,2004) NT,(IPA(I),I=1,20) + DO 132 I=1,NT + IF(IPA(I).NE.11) GOTO 132 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GOTO 132 + IPA(I)=12 + 132 CONTINUE + GOTO 70 + 131 IF(NPRT(4)) + *WRITE(NEWBCD,2005) +C +1001 FORMAT(' *CASK0* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI-ELASTIC SCATTERING') +1003 FORMAT(' *CASK0* K0 -INDUCED CASCADE,', + $ ' AVAIL. ENERGY',2X,F8.4,/, + $ 2X,' ',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') +1004 FORMAT(' *CASK0* K0 -INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION NOT FOUND', + $ ' TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,/,2X, + $ ' ',2X,F8.4) +2001 FORMAT(' *CASK0* TABLES FOR MULT. DATA K0 INDUCED REACTION', + $ ' FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') +2002 FORMAT(' *CASK0* TARGET PARTICLE FLAG',2X,I5) +2003 FORMAT(1H ,10E12.4) +2004 FORMAT(' *CASK0* ',I3,2X,'PARTICLES , MASS INDEX ARRAY',2X,20I4) +2005 FORMAT(' *CASK0* NO PARTICLES PRODUCED') +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.16/00 05/11/93 19.17.46 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CASK0B(K,INT,NFL) +C +C *** CASCADE OF ANTI K0 *** +C *** NVE 04-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (13-SEP-1987) +C +C K0B UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT ASSUME NUCLEAR EXCITATION OCCURS AND INPUT PARTICLE +C IS DEGRADED IN ENERGY. NO OTHER PARTICLES PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + REAL N + DIMENSION PMUL(2,1200),ANORM(2,60),CECH(10),CNK0(20),PIY1(4), + $ PIY2(3),IPIY1(2,4),IPIY2(2,3),IPIY3(2,3),B(2) + DIMENSION RNDM(1) + SAVE PMUL,ANORM + SAVE + DATA CECH/1.,1.,1.,0.70,0.60,0.55,0.35,0.25,0.18,0.15/ + DATA CNK0/0.17,0.18,0.17,0.24,0.26,0.20,0.22,0.21,0.34,0.45 + $ ,0.58,0.55,0.36,0.29,0.29,0.32,0.32,0.33,0.33,0.33/ + DATA PIY1/0.67,0.78,0.89,1.00/,PIY2/0.68,0.84,1.00/ + DATA IPIY1/8,18,9,20,8,21,7,22/ + DATA IPIY2/9,18,9,21,8,22/,IPIY3/7,18,8,20,7,21/ + DATA B/0.7,0.7/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(7) --- + IF (KGINIT(7) .NE. 0) GO TO 10 + KGINIT(7)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL(I,J)=0.0 + IF (J .LE. 60) ANORM(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C** COMPUTE NORMALIZATION CONSTANTS +C** FOR P AS TARGET +C + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + DO 1 NM1=NMM1,NP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 1 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 1 + PMUL(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM(1,NT)=ANORM(1,NT)+PMUL(1,L) + 1 CONTINUE +C** FOR N AS TARGET + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LT.1) NMM1=1 + NPP1=NP1+1 + DO 2 NM1=NMM1,NPP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 2 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 2 + PMUL(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM(2,NT)=ANORM(2,NT)+PMUL(2,L) + 2 CONTINUE + DO 3 I=1,60 + IF(ANORM(1,I).GT.0.) ANORM(1,I)=1./ANORM(1,I) + IF(ANORM(2,I).GT.0.) ANORM(2,I)=1./ANORM(2,I) + 3 CONTINUE + IF(.NOT.NPRT(10)) GOTO 10 + WRITE(NEWBCD,2001) + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + WRITE(NEWBCD,2003) (ANORM(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL(NFL,I),I=1,1200) + 4 CONTINUE +C** CHOOSE PROTON OR NEUTRON AS TARGET + 10 NFL=2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.ZNO2/ATNO2) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-ABS(RMASS(12)) +C +C** ELASTIC SCATTERING + NP=0 + NM=0 + NZ=0 + N=0. + IPA(1)=12 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + IF(INT.EQ.2) GOTO 20 + GOTO 100 +C** CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION IN REACT. + 20 IPLAB=IFIX(P*5.)+1 + IF(IPLAB.GT.10) GOTO 22 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.CECH(IPLAB)) GOTO 19 + IF (EAB .LT. RMASS(7)) GOTO 55 + GOTO 22 +C** CHARGE EXCHANGE REACTION (IS INCLUDED IN INELASTIC CROSS SECTION) + 19 IPLAB=IFIX(P*10.)+1 + IF(IPLAB.GT.20) IPLAB=20 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.CNK0(IPLAB)) GOTO 24 + IF(NFL.EQ.2) GOTO 23 +C** FOR K0B P REACTION NO K N STRANGENESS EXCHANGE POSSIBLE + INT=1 + IPA(1)=12 + IPA(2)=14 + GOTO 100 + 23 INT=1 + IPA(1)=13 + IPA(2)=14 + GOTO 100 +C** P L, P S REACTIONS + 24 CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IF(RAN.LT.0.25) GOTO 25 + IF(RAN.LT.0.50) GOTO 26 + IF(RAN.LT.0.75) GOTO 27 +C** K0B P --> PI+ L OR K0B N --> PI0 L + IPA(1)=7 + IF(NFL.EQ.2) IPA(1)=8 + IPA(2)=18 + GOTO 100 +C** K0B N --> PI- S+ + 25 IPA(1)=9 + IPA(2)=20 + IF(NFL.EQ.2) GOTO 100 + IPA(1)=12 + IPA(2)=14 + GOTO 100 +C** K0B P --> PI+ S0 OR K0B N --> PI0 S0 + 26 IPA(1)=7 + IF(NFL.EQ.2) IPA(1)=8 + IPA(2)=21 + GOTO 100 +C** K0B N --> PI+ S- + 27 IPA(1)=7 + IPA(2)=22 + IF(NFL.EQ.2) GOTO 100 + IPA(1)=12 + IPA(2)=14 + GOTO 100 +C + 22 ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S)-2*MP + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (30,40),NFL +C** FOR P AS TARGET + 30 L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + DO 31 NM1=NMM1,NP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 31 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(1,L)*ANORM(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 50 + 31 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 40 L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LT.1) NMM1=1 + NPP1=NP1+1 + DO 41 NM1=NMM1,NPP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 41 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(2,L)*ANORM(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 50 + 41 CONTINUE + GOTO 80 + 50 GOTO (65,60),NFL + 60 IF(NP.EQ.NM) GOTO 61 + IF(NP.EQ.1+NM) GOTO 63 + IPA(1)=12 + IPA(2)=14 + GOTO 90 + 61 CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.75) GOTO 62 + IPA(1)=13 + IPA(2)=14 + GOTO 90 + 62 IPA(1)=13 + IPA(2)=14 + GOTO 90 + 63 IPA(1)=13 + IPA(2)=16 + GOTO 90 + 65 IF(NP.EQ.1+NM) GOTO 66 + IF(NP.EQ.NM) GOTO 68 + IPA(1)=13 + IPA(2)=16 + GOTO 90 + 66 CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.50) GOTO 67 + IPA(1)=12 + IPA(2)=16 + GOTO 90 + 67 IPA(1)=13 + IPA(2)=14 + GOTO 90 + 68 IPA(1)=12 + IPA(2)=14 +C** PI Y PRODUCTION INSTEAD OF K N + 90 CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GOTO 100 + IF(IPA(1).EQ.13.AND.IPA(2).EQ.16) GOTO 95 + IF(IPA(1).EQ.11.AND.IPA(2).EQ.14) GOTO 95 + IF(IPA(1).EQ.12.AND.IPA(2).EQ.14) GOTO 95 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + DO 91 I=1,4 + IF(RAN.LT.PIY1(I)) GOTO 92 + 91 CONTINUE + GOTO 100 + 92 IPA(1)=IPIY1(1,I) + IPA(2)=IPIY1(2,I) + GOTO 100 + 95 CALL GRNDM(RNDM,1) + RAN=RNDM(1) + DO 96 I=1,3 + IF(RAN.LT.PIY2(I)) GOTO 97 + 96 CONTINUE + GOTO 100 + 97 IF(IPA(2).EQ.14) GOTO 98 + IPA(1)=IPIY2(1,I) + IPA(2)=IPIY2(2,I) + GOTO 100 + 98 IPA(1)=IPIY3(1,I) + IPA(2)=IPIY3(2,I) + GOTO 100 + 70 IF(NPRT(4)) + *WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + CALL STPAIR + IF(INT.EQ.1) CALL TWOB(12,NFL,N) + IF(INT.EQ.2) CALL GENXPT(12,NFL,N) + GO TO 9999 +C** NUCLEAR EXCITATION + 55 IF(NPRT(4)) + *WRITE(NEWBCD,1001) + GOTO 53 +C** EXCLUSIVE REACTION NOT FOUND + 80 IF(NPRT(4)) + *WRITE(NEWBCD,1004) RS,N + 53 INT=1 + NP=0 + NM=0 + NZ=0 + N=0. + IPA(1)=12 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + 100 DO 101 I=3,60 + 101 IPA(I)=0 + IF(INT.LE.0) GOTO 131 + 120 NT=2 + IF(NP.EQ.0) GOTO 122 + DO 121 I=1,NP + NT=NT+1 + 121 IPA(NT)=7 + 122 IF(NM.EQ.0) GOTO 124 + DO 123 I=1,NM + NT=NT+1 + 123 IPA(NT)=9 + 124 IF(NZ.EQ.0) GOTO 130 + DO 125 I=1,NZ + NT=NT+1 + 125 IPA(NT)=8 + 130 IF(NPRT(4)) + *WRITE(NEWBCD,2004) NT,(IPA(I),I=1,20) + DO 132 I=1,NT + IF(IPA(I).NE.12) GOTO 132 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GOTO 132 + IPA(I)=11 + 132 CONTINUE + GOTO 70 + 131 IF(NPRT(4)) + *WRITE(NEWBCD,2005) +C +1001 FORMAT(' *CASK0B* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI-ELASTIC SCATTERING') +1003 FORMAT(' *CASK0B* K0B -INDUCED CASCADE,', + $ ' AVAIL. ENERGY',2X,F8.4,/, + $ 2X,' ',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') +1004 FORMAT(' *CASK0B* K0B -INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION NOT FOUND', + $ ' TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,/,2X, + $ ' ',2X,F8.4) +2001 FORMAT(' *CASK0B* TABLES FOR MULT. DATA K0B INDUCED REACTION', + $ ' FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') +2002 FORMAT(' *CASK0B* TARGET PARTICLE FLAG',2X,I5) +2003 FORMAT(1H ,10E12.4) +2004 FORMAT(' *CASK0B* ',I3,2X,'PARTICLES , MASS INDEX ARRAY',2X,20I4) +2005 FORMAT(' *CASK0B* NO PARTICLES PRODUCED') +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.16/00 05/11/93 19.19.55 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CASL0(K,INT,NFL) +C +C *** CASCADE OF LAMBDA *** +C *** NVE 04-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (13-SEP-1987) +C +C L0 UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT ASSUME NUCLEAR EXCITATION OCCURS AND INPUT PARTICLE +C IS DEGRADED IN ENERGY. NO OTHER PARTICLES PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + REAL N + DIMENSION PMUL(2,1200),ANORM(2,60),CECH(10),IIPA(10,2),B(2) + DIMENSION RNDM(2) + SAVE PMUL,ANORM + SAVE + DATA CECH/0.50,0.45,0.40,0.35,0.30,0.25,0.06,0.04,0.005,0./ + DATA IIPA/20,21,14,14,16,21,22,16,16,14, + * 16,14,18,21,20,16,14,18,21,22/ + DATA B/0.7,0.7/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(8) --- + IF (KGINIT(8) .NE. 0) GO TO 10 + KGINIT(8)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL(I,J)=0.0 + IF (J .LE. 60) ANORM(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C** COMPUTE NORMALIZATION CONSTANTS +C** FOR N AS TARGET +C + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.0) NMM1=1 + NPP1=NP1+2 + DO 1 NM1=NMM1,NPP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 1 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 1 + PMUL(1,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM(1,NT)=ANORM(1,NT)+PMUL(1,L) + 1 CONTINUE +C** FOR P AS TARGET + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 2 NM1=NMM1,NPP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 2 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 2 + PMUL(2,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM(2,NT)=ANORM(2,NT)+PMUL(2,L) + 2 CONTINUE + DO 3 I=1,60 + IF(ANORM(1,I).GT.0.) ANORM(1,I)=1./ANORM(1,I) + IF(ANORM(2,I).GT.0.) ANORM(2,I)=1./ANORM(2,I) + 3 CONTINUE + IF(.NOT.NPRT(10)) GOTO 10 + WRITE(NEWBCD,2001) + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + WRITE(NEWBCD,2003) (ANORM(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL(NFL,I),I=1,1200) + 4 CONTINUE +C** CHOOSE PROTON OR NEUTRON AS TARGET + 10 NFL=2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.ZNO2/ATNO2) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-RMASS(18) +C** ELASTIC SCATTERING + NP=0 + NM=0 + NZ=0 + N=0. + IPA(1)=18 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + IF(INT.EQ.2) GOTO 20 +C** INTRODUCE CHARGE AND STRANGENESS EXCHANGE REACTIONS +C** LP --> S+N, LP --> S0 P , LN --> S0 N , LN --> S- P +C** LP --> P L, LP --> P S0 , LP --> N S+ +C** LN --> N L, LN --> N S0 , LN --> P S- + IPLAB=IFIX(P*2.5)+1 + IF(IPLAB.GT.10) IPLAB=10 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.CECH(IPLAB)/ATNO2**0.42) GOTO 120 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IRN=IFIX(RAN/0.2)+1 + IF(IRN.GT.5) IRN=5 + IRN=IRN+(NFL-1)*5 + IPA(1)=IIPA(IRN,1) + IPA(2)=IIPA(IRN,2) + GOTO 120 +C** CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION IN REACT. + 20 IF (EAB .LE. RMASS(7)) GOTO 55 + ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S)-MP-MSM + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (40,30),NFL +C** FOR N AS TARGET + 30 L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.0) NMM1=1 + NPP1=NP1+2 + DO 31 NM1=NMM1,NPP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 31 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(1,L)*ANORM(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 31 CONTINUE + GOTO 80 +C** FOR P AS TARGET + 40 L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 41 NM1=NMM1,NPP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 41 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(2,L)*ANORM(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 41 CONTINUE + GOTO 80 + 50 IF(NPRT(4)) + *WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + IF(INT.EQ.1) CALL TWOB(18,NFL,N) + IF(INT.EQ.2) CALL GENXPT(18,NFL,N) + GO TO 9999 + 55 IF(NPRT(4)) + *WRITE(NEWBCD,1001) + GOTO 53 +C** EXCLUSIVE REACTION NOT FOUND + 80 IF(NPRT(4)) + *WRITE(NEWBCD,1004) RS,N + 53 INT=1 + NP=0 + NM=0 + NZ=0 + IPA(1)=18 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + GOTO 120 + 100 DO 101 I=1,60 + 101 IPA(I)=0 + IF(INT.LE.0) GOTO 131 + GOTO (112,102),NFL + 102 NCHT=NP-NM + NCHT=NCHT+3 + IF(NCHT.LE.0) NCHT=1 + IF(NCHT.GT.4) NCHT=4 + GOTO (103,104,105,106),NCHT + 103 IPA(1)=20 + IPA(2)=14 + GOTO 120 + 104 IPA(1)=18 + CALL GRNDM(RNDM,2) + IF(RNDM(1).LT.0.5) IPA(1)=21 + IPA(2)=14 + IF(RNDM(2).LT.0.5) GOTO 120 + IPA(1)=20 + IPA(2)=16 + GOTO 120 + 105 IPA(1)=18 + CALL GRNDM(RNDM,2) + IF(RNDM(1).LT.0.5) IPA(1)=21 + IPA(2)=16 + IF(RNDM(2).LT.0.5) GOTO 120 + IPA(1)=22 + IPA(2)=14 + GOTO 120 + 106 IPA(1)=22 + IPA(2)=16 + GOTO 120 + 112 NCHT=NP-NM + NCHT=NCHT+2 + IF(NCHT.LE.0) NCHT=1 + IF(NCHT.GT.4) NCHT=4 + GOTO (113,114,115,116),NCHT + 113 IPA(1)=20 + IPA(2)=14 + GOTO 120 + 114 IPA(1)=18 + CALL GRNDM(RNDM,2) + IF(RNDM(1).LT.0.5) IPA(1)=21 + IPA(2)=14 + IF(RNDM(2).LT.0.5) GOTO 120 + IPA(1)=20 + IPA(2)=16 + GOTO 120 + 115 IPA(1)=18 + CALL GRNDM(RNDM,2) + IF(RNDM(1).LT.0.5) IPA(1)=21 + IPA(2)=16 + IF(RNDM(2).LT.0.5) GOTO 120 + IPA(1)=22 + IPA(2)=14 + GOTO 120 + 116 IPA(1)=22 + IPA(2)=16 + 120 NT=2 + IF(NP.EQ.0) GOTO 122 + DO 121 I=1,NP + NT=NT+1 + 121 IPA(NT)=7 + 122 IF(NM.EQ.0) GOTO 124 + DO 123 I=1,NM + NT=NT+1 + 123 IPA(NT)=9 + 124 IF(NZ.EQ.0) GOTO 130 + DO 125 I=1,NZ + NT=NT+1 + 125 IPA(NT)=8 + 130 IF(NPRT(4)) + *WRITE(NEWBCD,2004) NT,(IPA(I),I=1,20) + GOTO 50 + 131 IF(NPRT(4)) + *WRITE(NEWBCD,2005) +C +1001 FORMAT(' *CASL0* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI-ELASTIC SCATTERING') +1003 FORMAT(' *CASL0* LAMBDA-INDUCED CASCADE,', + $ ' AVAIL. ENERGY',2X,F8.4,/, + $ 2X,' ',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') +1004 FORMAT(' *CASL0* LAMBDA-INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION NOT FOUND', + $ ' TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,/,2X, + $ ' ',2X,F8.4) +2001 FORMAT(' *CASL0* TABLES FOR MULT. DATA LAMBDA INDUCED REACTION', + $ ' FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') +2002 FORMAT(' *CASL0* TARGET PARTICLE FLAG',2X,I5) +2003 FORMAT(1H ,10E12.4) +2004 FORMAT(' *CASL0* ',I3,2X,'PARTICLES , MASS INDEX ARRAY',2X,20I4) +2005 FORMAT(' *CASL0* NO PARTICLES PRODUCED') +C + 9999 CONTINUE + RETURN + END +*CMZU: 3.16/00 05/11/93 17.20.00 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CASN(K,INT,NFL) +C +C *** CASCADE OF NEUTRON *** +C *** NVE 04-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (13-SEP-1987) +C +C N UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT ASSUME NUCLEAR EXCITATION OCCURS AND INPUT PARTICLE +C IS DEGRADED IN ENERGY. NO OTHER PARTICLES PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C + REAL N + DIMENSION PMUL(2,1200),ANORM(2,60),SUPP(10),CECH(10),B(2) + DIMENSION RNDM(1) + SAVE PMUL,ANORM + SAVE + DATA SUPP/0.,0.4,0.55,0.65,0.75,0.82,0.86,0.90,0.94,0.98/ + DATA CECH/0.50,0.45,0.40,0.35,0.30,0.25,0.06,0.04,0.005,0./ + DATA B/0.35,0.0/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(17) --- + IF (KGINIT(17) .NE. 0) GO TO 10 + KGINIT(17)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL(I,J)=0.0 + IF (J .LE. 60) ANORM(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C** COMPUTE NORMALIZATION CONSTANTS +C** FOR N AS TARGET +C + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NPP1=NP1+2 + DO 1 NM1=NP1,NPP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 1 + NPROT= -NP+NM + NNEUT=2-NPROT + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 1 + PMUL(1,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + NPROTF=NFAC(NPROT) + NNEUTF=NFAC(NNEUT) + PMUL(1,L)=PMUL(1,L)/(NPROTF*NNEUTF) + ANORM(1,NT)=ANORM(1,NT)+PMUL(1,L) + 1 CONTINUE +C** FOR P AS TARGET + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 2 NM1=NMM1,NPP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 2 + NPROT=1-NP+NM + NNEUT=2-NPROT + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 2 + PMUL(2,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + NPROTF=NFAC(NPROT) + NNEUTF=NFAC(NNEUT) + PMUL(2,L)=PMUL(2,L)/(NPROTF*NNEUTF) + ANORM(2,NT)=ANORM(2,NT)+PMUL(2,L) + 2 CONTINUE + DO 3 I=1,60 + IF(ANORM(1,I).GT.0.) ANORM(1,I)=1./ANORM(1,I) + IF(ANORM(2,I).GT.0.) ANORM(2,I)=1./ANORM(2,I) + 3 CONTINUE + IF(.NOT.NPRT(10)) GOTO 10 + WRITE(NEWBCD,2001) + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + WRITE(NEWBCD,2003) (ANORM(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL(NFL,I),I=1,1200) + 4 CONTINUE +C** CHOOSE PROTON OR NEUTRON AS TARGET + 10 NFL=2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.ZNO2/ATNO2) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-RMASS(16) +C** ELASTIC SCATTERING + NP=0 + NM=0 + NZ=0 + N=0. + NCECH=0 + IF(INT.EQ.2) GOTO 20 +C** INTRODUCE CHARGE EXCHANGE REACTION PN --> NP + IF(NFL.EQ.2) GOTO 100 + IPLAB=IFIX(P*2.5)+1 + IF(IPLAB.GT.10) IPLAB=10 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.CECH(IPLAB)/ATNO2**0.42) GOTO 100 + NCECH=1 + GOTO 100 +C** CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION IN REACT. + 20 IF (EAB .LE. RMASS(7)) GOTO 55 +C** SUPPRESSION OF HIGH MULTIPLICITY EVENTS AT LOW MOMENTUM + IEAB=IFIX(EAB*5.)+1 + IF(IEAB.GT.10) GOTO 22 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SUPP(IEAB)) GOTO 22 + N=1. + GOTO (24,23),NFL + 23 CONTINUE + TEST=-(1+B(2))**2/(2.0*C**2) + IF (TEST .GT. EXPXU) TEST=EXPXU + IF (TEST .LT. EXPXL) TEST=EXPXL + W0=EXP(TEST)/2.0 + WM=EXP(TEST) + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + NP=0 + NM=0 + NZ=1 + IF(RAN.LT.W0/(W0+WM)) GOTO 100 + NP=0 + NM=1 + NZ=0 + GOTO 100 + 24 CONTINUE + TEST=-(1+B(1))**2/(2.0*C**2) + IF (TEST .GT. EXPXU) TEST=EXPXU + IF (TEST .LT. EXPXL) TEST=EXPXL + W0=EXP(TEST) + WP=EXP(TEST)/2.0 + TEST=-(-1+B(1))**2/(2.0*C**2) + IF (TEST .GT. EXPXU) TEST=EXPXU + IF (TEST .LT. EXPXL) TEST=EXPXL + WM=EXP(TEST)/2.0 + WT=W0+WP+WM + WP=W0+WP + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + NP=0 + NM=0 + NZ=1 + IF(RAN.LT.W0/WT) GOTO 100 + NP=1 + NM=0 + NZ=0 + IF(RAN.LT.WP/WT) GOTO 100 + NP=0 + NM=1 + NZ=0 + GOTO 100 +C + 22 ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S)-2*MP + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .GT. EXPXU) TEST=EXPXU + IF (TEST .LT. EXPXL) TEST=EXPXL + ANPN=ANPN+PI*NT*EXP(TEST)/(2.0*N*N) + 21 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (40,30),NFL +C** FOR N AS TARGET + 30 L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NPP1=NP1+2 + DO 31 NM1=NP1,NPP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 31 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .GT. EXPXU) TEST=EXPXU + IF (TEST .LT. EXPXL) TEST=EXPXL + DUM1=ANPN*PI*NT*PMUL(1,L)*ANORM(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 31 CONTINUE + GOTO 80 +C** FOR P AS TARGET + 40 L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 41 NM1=NMM1,NPP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 41 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .GT. EXPXU) TEST=EXPXU + IF (TEST .LT. EXPXL) TEST=EXPXL + DUM1=ANPN*PI*NT*PMUL(2,L)*ANORM(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 41 CONTINUE + GOTO 80 + 50 IF(NPRT(4)) + *WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + CALL STPAIR + IF(INT.EQ.1) CALL TWOB(16,NFL,N) + IF(INT.EQ.2) CALL GENXPT(16,NFL,N) + GO TO 9999 + 55 IF(NPRT(4)) + *WRITE(NEWBCD,1001) + GOTO 53 +C** EXCLUSIVE REACTION NOT FOUND + 80 IF(NPRT(4)) + *WRITE(NEWBCD,1004) RS,N + 53 INT=1 + NP=0 + NM=0 + NZ=0 + 100 DO 101 I=1,60 + 101 IPA(I)=0 + IF(INT.LE.0) GOTO 131 + NPROT=1-NP+NM+(1-NFL) + NNEUT=2-NPROT + GOTO (112,102),NFL + 102 GOTO (103,104),INT + 103 IPA(1)=16 + IPA(2)=16 + NT=2 + GOTO 130 + 104 IF(NNEUT.EQ.1) GOTO 105 + IF(NNEUT.EQ.2) GOTO 106 + IPA(1)=14 + IPA(2)=14 + GOTO 120 + 105 IPA(1)=14 + IPA(2)=16 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GOTO 120 + IPA(1)=16 + IPA(2)=14 + GOTO 120 + 106 IPA(1)=16 + IPA(2)=16 + GOTO 120 + 112 GOTO (113,114),INT + 113 IPA(1)=16 + IPA(2)=14 + NT=2 + IF(NCECH.EQ.0) GOTO 130 + IPA(1)=14 + IPA(2)=16 + GOTO 130 + 114 IF(NNEUT.EQ.1) GOTO 115 + IF(NNEUT.EQ.2) GOTO 116 + IPA(1)=14 + IPA(2)=14 + GOTO 120 + 115 IPA(1)=14 + IPA(2)=16 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.33) GOTO 120 + IPA(1)=16 + IPA(2)=14 + GOTO 120 + 116 IPA(1)=16 + IPA(2)=16 + 120 NT=2 + IF(NP.EQ.0) GOTO 122 + DO 121 I=1,NP + NT=NT+1 + 121 IPA(NT)=7 + 122 IF(NM.EQ.0) GOTO 124 + DO 123 I=1,NM + NT=NT+1 + 123 IPA(NT)=9 + 124 IF(NZ.EQ.0) GOTO 130 + DO 125 I=1,NZ + NT=NT+1 + 125 IPA(NT)=8 + 130 IF(NPRT(4)) + *WRITE(NEWBCD,2004) NT,(IPA(I),I=1,20) + GOTO 50 + 131 IF(NPRT(4)) + *WRITE(NEWBCD,2005) +C +1001 FORMAT(' *CASN* CASCADE ENERGETICALLY NOT POSSIBLE NUCLEAR', + * ' EXCITATION',2X,F8.4,2X,'INCIDENT ENERGY LOST') +1003 FORMAT(' *CASN* NEUTRON-INDUCED CASCADE,', + $ ' AVAIL. ENERGY',2X,F8.4,/, + $ 2X,' ',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') +1004 FORMAT(' *CASN* NEUTRON-INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION NOT FOUND', + $ ' TRY ELASTIC SCATTERING',/,' AVAIL. ENERGY',2X,F8.4,/,2X, + $ ' ',2X,F8.4) +2001 FORMAT(' *CASN* TABLES FOR MULT. DATA NEUTRON INDUCED REACTION', + $ ' FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') +2002 FORMAT(' *CASN* TARGET PARTICLE FLAG',2X,I5) +2003 FORMAT(1H ,10E12.4) +2004 FORMAT(' *CASN* ',I3,2X,'PARTICLES , MASS INDEX ARRAY',2X,20I4) +2005 FORMAT(' *CASN* NO PARTICLES PRODUCED') +C + 9999 CONTINUE + RETURN + END +*CMZU: 3.16/00 05/11/93 17.20.00 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CASNB(K,INT,NFL) +C +C *** CASCADE OF ANTI NEUTRON *** +C *** NVE 04-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (13-SEP-1987) +C +C NB UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT ASSUME NUCLEAR EXCITATION OCCURS AND INPUT PARTICLE +C IS DEGRADED IN ENERGY. NO OTHER PARTICLES PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + REAL N + DIMENSION PMUL1(2,1200),PMUL2(2,400),ANORM1(2,60),ANORM2(2,60), + * SUPP(10),CECH(10),ANHL(25),B(2) + DIMENSION RNDM(1) + SAVE PMUL1,ANORM1,PMUL2,ANORM2 + SAVE + DATA SUPP/0.,0.4,0.55,0.65,0.75,0.82,0.86,0.90,0.94,0.98/ + DATA CECH/0.50,0.45,0.40,0.35,0.30,0.25,0.06,0.04,0.005,0./ + DATA ANHL/1.00,1.00,1.00,1.00,1.00,1.00,1.00,1.00,0.97,0.88 + * ,0.85,0.81,0.75,0.64,0.64,0.55,0.55,0.45,0.47,0.40 + * ,0.39,0.36,0.33,0.10,0.01/ + DATA B/0.7,0.7/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(9) --- + IF (KGINIT(9) .NE. 0) GO TO 10 + KGINIT(9)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL1(I,J)=0.0 + IF (J .LE. 400) PMUL2(I,J)=0.0 + IF (J .LE. 60) ANORM1(I,J)=0.0 + IF (J .LE. 60) ANORM2(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C** COMPUTE NORMALIZATION CONSTANTS +C** FOR P AS TARGET +C + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + DO 1 NM1=NMM1,NP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 1 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 1 + PMUL1(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM1(1,NT)=ANORM1(1,NT)+PMUL1(1,L) + 1 CONTINUE +C** FOR N AS TARGET + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LT.1) NMM1=1 + NPP1=NP1+1 + DO 2 NM1=NMM1,NPP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 2 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 2 + PMUL1(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM1(2,NT)=ANORM1(2,NT)+PMUL1(2,L) + 2 CONTINUE + DO 3 I=1,60 + IF(ANORM1(1,I).GT.0.) ANORM1(1,I)=1./ANORM1(1,I) + IF(ANORM1(2,I).GT.0.) ANORM1(2,I)=1./ANORM1(2,I) + 3 CONTINUE + IF(.NOT.NPRT(10)) GOTO 9 + WRITE(NEWBCD,2001) + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + WRITE(NEWBCD,2003) (ANORM1(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL1(NFL,I),I=1,1200) + 4 CONTINUE +C** DO THE SAME FOR ANNIHILATION CHANNELS +C** FOR P AS TARGET +C + 9 L=0 + DO 5 NP1=2,20 + NP=NP1-1 + NM=NP-1 + DO 5 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.400) GOTO 5 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 5 + PMUL2(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM2(1,NT)=ANORM2(1,NT)+PMUL2(1,L) + 5 CONTINUE +C** FOR N AS TARGET + L=0 + DO 6 NP1=1,20 + NP=NP1-1 + NM=NP + DO 6 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.400) GOTO 6 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 6 + PMUL2(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM2(2,NT)=ANORM2(2,NT)+PMUL2(2,L) + 6 CONTINUE + DO 7 I=1,60 + IF(ANORM2(1,I).GT.0.) ANORM2(1,I)=1./ANORM2(1,I) + IF(ANORM2(2,I).GT.0.) ANORM2(2,I)=1./ANORM2(2,I) + 7 CONTINUE + IF(.NOT.NPRT(10)) GOTO 10 + WRITE(NEWBCD,3001) + DO 8 NFL=1,2 + WRITE(NEWBCD,3002) NFL + WRITE(NEWBCD,3003) (ANORM2(NFL,I),I=1,60) + WRITE(NEWBCD,3003) (PMUL2(NFL,I),I=1,400) + 8 CONTINUE +C** CHOOSE PROTON OR NEUTRON AS TARGET + 10 NFL=2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.ZNO2/ATNO2) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-ABS(RMASS(17)) +C** ELASTIC SCATTERING + NCECH=0 + NP=0 + NM=0 + NZ=0 + N=0. + IF(INT.EQ.2) GOTO 20 +C** INTRODUCE CHARGE EXCHANGE REACTION NB N --> PB P + IF(NFL.EQ.1) GOTO 100 + IPLAB=IFIX(P*2.5)+1 + IF(IPLAB.GT.10) IPLAB=10 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.CECH(IPLAB)/ATNO2**0.75) GOTO 100 + NCECH=1 + GOTO 100 +C** ANNIHILATION CHANNELS + 20 IPLAB=IFIX(P*10.)+1 + IF(IPLAB.GT.10) IPLAB=IFIX((P-1.)*5.)+11 + IF(IPLAB.GT.15) IPLAB=IFIX( P-2. )+16 + IF(IPLAB.GT.23) IPLAB=IFIX((P-10.)/10.)+24 + IF(IPLAB.GT.25) IPLAB=25 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.ANHL(IPLAB)) GOTO 19 + EAB=RS + IF (EAB .LE. 2.0*RMASS(7)) GOTO 55 + GOTO 222 +C** CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION IN REACT. + 19 IF (EAB .LE. RMASS(7)) GOTO 55 +C** SUPPRESSION OF HIGH MULTIPLICITY EVENTS AT LOW MOMENTUM + IEAB=IFIX(EAB*5.)+1 + IF(IEAB.GT.10) GOTO 22 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SUPP(IEAB)) GOTO 22 + N=1. + GOTO (23,24),NFL + 23 CONTINUE + TEST=-(1+B(1))**2/(2.0*C**2) + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + W0=EXP(TEST) + WP=EXP(TEST) + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + NP=0 + NM=0 + NZ=1 + IF(RAN.LT.W0/(W0+WP)) GOTO 100 + NP=1 + NM=0 + NZ=0 + GOTO 100 + 24 CONTINUE + TEST=-(1+B(2))**2/(2.0*C**2) + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + W0=EXP(TEST) + WP=EXP(TEST) + TEST=-(-1+B(2))**2/(2.0*C**2) + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + WM=EXP(TEST) + WT=W0+WP+WM + WP=W0+WP + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + NP=0 + NM=0 + NZ=1 + IF(RAN.LT.W0/WT) GOTO 100 + NP=1 + NM=0 + NZ=0 + IF(RAN.LT.WP/WT) GOTO 100 + NP=0 + NM=1 + NZ=0 + GOTO 100 +C + 22 ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S)-2*MP + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GT. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (30,40),NFL +C** FOR P AS TARGET + 30 L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + DO 31 NM1=NMM1,NP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 31 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL1(1,L)*ANORM1(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GT. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 31 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 40 L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LT.1) NMM1=1 + NPP1=NP1+1 + DO 41 NM1=NMM1,NPP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 41 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL1(2,L)*ANORM1(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GT. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 41 CONTINUE + GOTO 80 +C** ANNIHILATION CHANNELS + 222 IPA(1)=0 + IPA(2)=0 + ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S) + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 221 NT=2,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GT. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 221 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (230,240),NFL +C** FOR P AS TARGET + 230 L=0 + DO 231 NP1=2,20 + NP=NP1-1 + NM=NP-1 + DO 231 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.400) GOTO 231 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 231 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL2(1,L)*ANORM2(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GT. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 120 + 231 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 240 L=0 + DO 241 NP1=1,20 + NP=NP1-1 + NM=NP + DO 241 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.400) GOTO 241 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 241 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL2(2,L)*ANORM2(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GT. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 120 + 241 CONTINUE + GOTO 80 + 50 IF(NPRT(4)) + *WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + CALL STPAIR + IF(INT.EQ.1) CALL TWOB(17,NFL,N) + IF(INT.EQ.2) CALL GENXPT(17,NFL,N) + GO TO 9999 + 55 IF(NPRT(4)) + *WRITE(NEWBCD,1001) + GOTO 53 +C** EXCLUSIVE REACTION NOT FOUND,ASSUME ELASTIC SCATTERING + 80 IF(NPRT(4)) + *WRITE(NEWBCD,1004) RS,N + 53 INT=1 + NP=0 + NM=0 + NZ=0 + 100 DO 101 I=1,60 + 101 IPA(I)=0 + IF(INT.LE.0) GOTO 131 + GOTO (102,112),NFL + 102 GOTO (103,104),INT + 103 IPA(1)=17 + IPA(2)=14 + NT=2 + GOTO 130 + 104 IF(NP.EQ.1+NM) GOTO 105 + IF(NP.EQ.2+NM) GOTO 106 + IPA(1)=17 + IPA(2)=14 + GOTO 120 + 105 IPA(1)=15 + IPA(2)=14 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GOTO 120 + IPA(1)=17 + IPA(2)=16 + GOTO 120 + 106 IPA(1)=15 + IPA(2)=16 + GOTO 120 + 112 GOTO (113,114),INT + 113 IPA(1)=17 + IPA(2)=16 + NT=2 + IF(NCECH.EQ.0) GOTO 130 + IPA(1)=15 + IPA(2)=14 + GOTO 130 + 114 IF(NP.EQ. NM) GOTO 115 + IF(NP.EQ.1+NM) GOTO 116 + IPA(1)=17 + IPA(2)=14 + GOTO 120 + 115 IPA(1)=15 + IPA(2)=14 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.33) GOTO 120 + IPA(1)=17 + IPA(2)=16 + GOTO 120 + 116 IPA(1)=15 + IPA(2)=16 + 120 NT=2 + IF(NP.EQ.0) GOTO 122 + DO 121 I=1,NP + NT=NT+1 + 121 IPA(NT)=7 + 122 IF(NM.EQ.0) GOTO 124 + DO 123 I=1,NM + NT=NT+1 + 123 IPA(NT)=9 + 124 IF(NZ.EQ.0) GOTO 130 + DO 125 I=1,NZ + NT=NT+1 + 125 IPA(NT)=8 + 130 IF(NPRT(4)) + *WRITE(NEWBCD,2004) NT,(IPA(I),I=1,20) + GOTO 50 + 131 IF(NPRT(4)) + *WRITE(NEWBCD,2005) +C +1001 FORMAT(' *CASNB* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI- ELASTIC SCATTERING') +1003 FORMAT(' *CASNB* ANTINEUTRON-INDUCED CASCADE,', + $ ' AVAIL. ENERGY',2X,F8.4,/, + $ 2X,' ',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') +1004 FORMAT(' *CASNB* ANTINEUTRON-INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION', + $ ' NOT FOUND TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,/,2X, + $ ' ',2X,F8.4) +2001 FORMAT(' *CASNB* TABLES FOR MULT. DATA ANTINEUTRON INDUCED ', + * 'REACTION FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') +2002 FORMAT(' *CASNB* TARGET PARTICLE FLAG',2X,I5) +2003 FORMAT(1H ,10E12.4) +2004 FORMAT(' *CASNB* ',I3,2X,'PARTICLES , MASS INDEX ARRAY',2X,20I4) +2005 FORMAT(' *CASNB* NO PARTICLES PRODUCED') +3001 FORMAT(' *CASNB* TABLES FOR MULT. DATA ANTIPROTON INDUCED ', + $ 'ANNIHILATION REACTION FOR DEFINITION OF NUMBERS SEE FORTRAN', + $ ' CODING') +3002 FORMAT(' *CASNB* TARGET PARTICLE FLAG',2X,I5) +3003 FORMAT(1H ,10E12.4) +C + 9999 CONTINUE + RETURN + END +*CMZ : 19/07/94 16.36.34 by D. HECK IK3 KFK KARLSRUHE +*-- Author : Nick van Eijndhoven (CERN) 02/02/89 +C--------------------------------------------------------------------- + SUBROUTINE CASOM(K,INT,NFL) +C +C *** CASCADE OF OMEGA- *** +C *** NVE 31-JAN-1989 CERN GENEVA *** +C +C OMEGA- UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT, ASSUME NUCLEAR EXCITATION OCCURS, DEGRADE INPUT PARTICLE +C IN ENERGY AND NO OTHER PARTICLES ARE PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + REAL N + DIMENSION PMUL(2,1200),ANORM(2,60),CECH(10),IIPA(14,2),B(2) + DIMENSION RNDM(1) + SAVE PMUL,ANORM + SAVE + DATA CECH/0.50,0.45,0.40,0.35,0.30,0.25,0.06,0.04,0.005,0./ +C --- ARRAY IIPA DENOTES THE STRANGENESS AND CHARGE EXCHAGE REACTIONS --- +C OM- P --> XI0 S0, OM- P --> S0 XI0 +C OM- P --> XI0 L0, OM- P --> L0 XI0 +C OM- P --> XI- S+, OM- P --> S+ XI- +C XI- P --> P OM- +C OM- N --> XI0 S-, OM- N --> S- XI0 +C OM- N --> XI- L0, OM- N --> L0 XI- +C OM- N --> XI- S0, OM- N --> S0 XI- +C OM- N --> N OM- + DATA IIPA/26,21,26,18,27,20,14, 26,22,27,18,27,21,16, + $ 21,26,18,26,20,27,33, 22,26,18,27,21,27,33/ + DATA B/0.7,0.7/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(21) --- + IF (KGINIT(21) .NE. 0) GO TO 10 + KGINIT(21)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL(I,J)=0.0 + IF (J .LE. 60) ANORM(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C *** COMPUTE NORMALIZATION CONSTANTS *** +C +C --- FOR P TARGET --- + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF (NMM1 .LE. 0) NMM1=1 + NPP1=NP1+1 + DO 1 NM1=NMM1,NPP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF (L .GT. 1200) GO TO 1 + NT=NP+NM+NZ + IF ((NT .LE. 0) .OR. (NT .GT. 60)) GO TO 1 + PMUL(1,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM(1,NT)=ANORM(1,NT)+PMUL(1,L) + 1 CONTINUE +C --- FOR N TARGET --- + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NMM1=NP1 + NPP1=NP1+2 + DO 2 NM1=NMM1,NPP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF (L .GT. 1200) GO TO 2 + NT=NP+NM+NZ + IF ((NT .LE. 0) .OR. (NT .GT. 60)) GO TO 2 + PMUL(2,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM(2,NT)=ANORM(2,NT)+PMUL(2,L) + 2 CONTINUE +C + DO 3 I=1,60 + IF (ANORM(1,I) .GT. 0.) ANORM(1,I)=1./ANORM(1,I) + IF (ANORM(2,I) .GT. 0.) ANORM(2,I)=1./ANORM(2,I) + 3 CONTINUE +C + IF (.NOT. NPRT(10)) GO TO 10 +C + WRITE(NEWBCD,2001) + 2001 FORMAT(' *CASOM* TABLES FOR MULT. DATA OM- INDUCED REACTION', + $ ' FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + 2002 FORMAT(' *CASOM* TARGET PARTICLE FLAG',2X,I5) + WRITE(NEWBCD,2003) (ANORM(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL(NFL,I),I=1,1200) + 2003 FORMAT(1H ,10E12.4) + 4 CONTINUE +C +C --- SELECT TARGET NUCLEON --- + 10 CONTINUE + NFL=2 + CALL GRNDM(RNDM,1) + IF (RNDM(1) .LT. (ZNO2/ATNO2)) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-RMASS(33) +C +C --- RESET STRANGENESS FIXING FLAG --- + NVEFIX=0 +C +C *** ELASTIC SCATTERING *** + NP=0 + NM=0 + NZ=0 + N=0. + IPA(1)=33 + IPA(2)=14 + IF (NFL .EQ. 2) IPA(2)=16 +C + IF (INT .EQ. 2) GO TO 20 +C +C *** INTRODUCE CHARGE AND STRANGENESS EXCHANGE REACTIONS *** + IPLAB=IFIX(P*2.5)+1 + IF (IPLAB .GT. 10) IPLAB=10 + CALL GRNDM(RNDM,1) + IF (RNDM(1) .GT. (CECH(IPLAB)/ATNO2**0.42)) GO TO 120 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IRN=IFIX(RAN*7.)+1 + IF (NFL .EQ. 2) IRN=7+IFIX(RAN*7.)+1 + IF (NFL .EQ. 1) IRN=MAX(IRN,7) + IF (NFL .EQ. 2) IRN=MAX(IRN,14) + IPA(1)=IIPA(IRN,1) + IPA(2)=IIPA(IRN,2) + GO TO 120 +C +C --- CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION --- + 20 CONTINUE + IF (EAB .LE. RMASS(7)) GO TO 55 +C +C --- NO. OF TOTAL PARTICLES VS SQRT(S)-MP-MSM --- + ALEAB=LOG(EAB) + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C +C --- NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION --- + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1./ANPN +C +C --- CHECK FOR TARGET NUCLEON TYPE --- + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GO TO (30,40),NFL +C +C --- PROTON TARGET --- + 30 CONTINUE + L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF (NMM1 .LE. 0) NMM1=1 + NPP1=NP1+1 + DO 31 NM1=NMM1,NPP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF (L .GT. 1200) GO TO 31 + NT=NP+NM+NZ + IF ((NT .LE. 0) .OR. (NT .GT. 60)) GO TO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(1,L)*ANORM(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF (RAN .LT. EXCS) GO TO 100 + 31 CONTINUE + GO TO 80 +C +C --- NEUTRON TARGET --- + 40 CONTINUE + L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NMM1=NP1 + NPP1=NP1+2 + DO 41 NM1=NMM1,NPP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF (L .GT. 1200) GO TO 41 + NT=NP+NM+NZ + IF ((NT .LE. 0) .OR. (NT .GT. 60)) GO TO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(2,L)*ANORM(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF (RAN .LT. EXCS) GO TO 100 + 41 CONTINUE + GO TO 80 +C + 50 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + 1003 FORMAT(' *CASOM* OM- -INDUCED CASCADE,', + $ ' AVAIL. ENERGY',2X,F8.4, + $ 2X,'',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') + IF (INT .EQ. 1) CALL TWOB(33,NFL,N) + IF (INT .EQ. 2) CALL GENXPT(33,NFL,N) + GO TO 9999 +C +C *** ENERGETICALLY NOT POSSIBLE TO PRODUCE ONE EXTRA PION *** + 55 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,1001) + 1001 FORMAT(' *CASOM* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI-ELASTIC SCATTERING') + GO TO 53 +C +C *** EXCLUSIVE REACTION NOT FOUND *** + 80 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,1004) RS,N + 1004 FORMAT(' *CASOM* OM- -INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION NOT FOUND', + $ ' TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,2X, + $ '',2X,F8.4) +C + 53 CONTINUE + INT=1 + NP=0 + NM=0 + NZ=0 + IPA(1)=33 + IPA(2)=14 + IF (NFL .EQ. 2) IPA(2)=16 + GO TO 120 +C +C *** INELASTIC INTERACTION HAS OCCURRED *** +C *** NUMBER OF SECONDARY MESONS DETERMINED BY KNO DISTRIBUTION *** + 100 CONTINUE + DO 101 I=1,60 + IPA(I)=0 + 101 CONTINUE +C + IF (INT .LE. 0) GO TO 131 +C +C --- TAKE TARGET NUCLEON TYPE INTO ACCOUNT --- + GO TO (102,112),NFL +C +C --- PROTON TARGET --- + 102 CONTINUE +C --- CHECK FOR TOTAL CHARGE OF FINAL STATE MESONS TO DETERMINE --- +C --- THE KIND OF BARYONS TO BE PRODUCED TAKING INTO ACCOUNT --- +C --- CHARGE AND STRANGENESS CONSERVATION --- + NCHT=NP-NM + IF (NCHT .LT. 0) GO TO 103 + IF (NCHT .EQ. 0) GO TO 104 + IF (NCHT .GT. 0) GO TO 105 +C + 103 CONTINUE +C --- STRANGENESS MISMATCH ==> TAKE A XI0 AND CORRECT THE STRANGENESS --- +C --- BY REPLACING A PI- BY K- --- +C --- XI0 P --- + IPA(1)=26 + IPA(2)=14 + NVEFIX=1 + IF (NCHT .EQ. -1) GO TO 120 +C --- CHARGE MISMATCH ==> TAKE A S+ AND CORRECT THE STRANGENESS --- +C --- BY REPLACING 2 PI- BY K- --- +C --- S+ P --- + IPA(1)=20 + IPA(2)=14 + NVEFIX=2 + GO TO 120 +C + 104 CONTINUE +C --- OM- P --- + IPA(1)=33 + IPA(2)=14 +C + 105 CONTINUE +C --- OM- N --- + IPA(1)=33 + IPA(2)=16 + GO TO 120 +C +C --- NEUTRON TARGET --- + 112 CONTINUE +C --- CHECK FOR TOTAL CHARGE OF FINAL STATE MESONS TO DETERMINE --- +C --- THE KIND OF BARYONS TO BE PRODUCED TAKING INTO ACCOUNT --- +C --- CHARGE AND STRANGENESS CONSERVATION --- + NCHT=NP-NM + IF (NCHT .LT. -1) GO TO 113 + IF (NCHT .EQ. -1) GO TO 114 + IF (NCHT .GT. -1) GO TO 115 +C + 113 CONTINUE +C --- STRANGENESS MISMATCH ==> TAKE A XI0 AND CORRECT THE STRANGENESS --- +C --- BY REPLACING A PI- BY K- --- +C --- XI0 P --- + IPA(1)=26 + IPA(2)=14 + NVEFIX=1 + IF (NCHT .EQ. -2) GO TO 120 +C --- CHARGE MISMATCH ==> TAKE A S+ AND CORRECT THE STRANGENESS --- +C --- BY REPLACING 2 PI- BY K- --- +C --- S+ P --- + IPA(1)=20 + IPA(2)=14 + NVEFIX=2 + GO TO 120 +C + 114 CONTINUE +C --- OM- P --- + IPA(1)=33 + IPA(2)=14 + GO TO 120 +C + 115 CONTINUE +C --- OM- N --- + IPA(1)=33 + IPA(2)=16 +C +C --- TAKE PIONS FOR ALL SECONDARY MESONS --- + 120 CONTINUE + NT=2 +C + IF (NP .EQ. 0) GO TO 122 +C +C --- PI+ --- + DO 121 I=1,NP + NT=NT+1 + IPA(NT)=7 + 121 CONTINUE +C + 122 CONTINUE + IF (NM .EQ. 0) GO TO 124 +C +C --- PI- --- + DO 123 I=1,NM + NT=NT+1 + IPA(NT)=9 + IF (NVEFIX .GE. 1) IPA(NT)=13 + IF (NPRT(4) .AND. (NVEFIX .GE. 1)) PRINT 3000 + 3000 FORMAT(' *CASOM* K- INTRODUCED') + NVEFIX=NVEFIX-1 + 123 CONTINUE +C + 124 CONTINUE + IF (NZ .EQ. 0) GO TO 130 +C +C --- PI0 --- + DO 125 I=1,NZ + NT=NT+1 + IPA(NT)=8 + 125 CONTINUE +C +C --- ALL SECONDARY PARTICLES HAVE BEEN DEFINED --- +C --- NOW GO FOR MOMENTA AND X VALUES --- + 130 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,2004) NT,(IPA(I),I=1,60) + 2004 FORMAT(' *CASOM* ',I3,' PARTICLES PRODUCED. MASS INDEX ARRAY : '/ + $ 3(1H ,20(I3,1X)/)) + GO TO 50 +C + 131 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,2005) + 2005 FORMAT(' *CASOM* NO PARTICLES PRODUCED') +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.16/00 05/11/93 19.20.14 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CASSM(K,INT,NFL) +C +C *** CASCADE OF SIGMA- *** +C *** NVE 04-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (13-SEP-1987) +C +C S- UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT ASSUME NUCLEAR EXCITATION OCCURS AND INPUT PARTICLE +C IS DEGRADED IN ENERGY. NO OTHER PARTICLES PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + REAL N + DIMENSION PMUL(2,1200),ANORM(2,60),CECH(10),IIPA(10,2),B(2) + DIMENSION RNDM(2) + SAVE PMUL,ANORM + SAVE + DATA CECH/0.50,0.45,0.40,0.35,0.30,0.25,0.06,0.04,0.005,0./ + DATA IIPA/21,18,14,16,16,16,16,16,16,16, + * 16,16,22,21,18,22,22,22,22,22/ + DATA B/0.7,0.7/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(12) --- + IF (KGINIT(12) .NE. 0) GO TO 10 + KGINIT(12)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL(I,J)=0.0 + IF (J .LE. 60) ANORM(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C** COMPUTE NORMALIZATION CONSTANTS +C** FOR P AS TARGET +C + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.0) NMM1=1 + NPP1=NP1+1 + DO 1 NM1=NMM1,NPP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 1 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 1 + PMUL(1,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM(1,NT)=ANORM(1,NT)+PMUL(1,L) + 1 CONTINUE +C** FOR N AS TARGET + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NMM1=NP1 + NPP1=NP1+2 + DO 2 NM1=NMM1,NPP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 2 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 2 + PMUL(2,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM(2,NT)=ANORM(2,NT)+PMUL(2,L) + 2 CONTINUE + DO 3 I=1,60 + IF(ANORM(1,I).GT.0.) ANORM(1,I)=1./ANORM(1,I) + IF(ANORM(2,I).GT.0.) ANORM(2,I)=1./ANORM(2,I) + 3 CONTINUE + IF(.NOT.NPRT(10)) GOTO 10 + WRITE(NEWBCD,2001) + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + WRITE(NEWBCD,2003) (ANORM(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL(NFL,I),I=1,1200) + 4 CONTINUE +C** CHOOSE PROTON OR NEUTRON AS TARGET + 10 NFL=2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.ZNO2/ATNO2) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-RMASS(22) +C** ELASTIC SCATTERING + NP=0 + NM=0 + NZ=0 + N=0. + IPA(1)=22 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + IF(INT.EQ.2) GOTO 20 +C** INTRODUCE CHARGE AND STRANGENESS EXCHANGE REACTIONS +C** S-P --> S0N, S-P --> L N , +C** S-P --> PS-, S-P --> N S0 , S-P --> N L +C** S-N --> NS-, + IPLAB=IFIX(P*2.5)+1 + IF(IPLAB.GT.10) IPLAB=10 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.CECH(IPLAB)/ATNO2**0.42) GOTO 120 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IRN=IFIX(RAN/0.2)+1 + IF(IRN.GT.5) IRN=5 + IRN=IRN+(NFL-1)*5 + IPA(1)=IIPA(IRN,1) + IPA(2)=IIPA(IRN,2) + GOTO 120 +C** CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION IN REACT. + 20 IF (EAB .LE. RMASS(7)) GOTO 55 + ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S)-MP-MSM + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (30,40),NFL +C** FOR P AS TARGET + 30 L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.0) NMM1=1 + NPP1=NP1+1 + DO 31 NM1=NMM1,NPP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 31 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(1,L)*ANORM(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 31 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 40 L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NMM1=NP1 + NPP1=NP1+2 + DO 41 NM1=NMM1,NPP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 41 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(2,L)*ANORM(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 41 CONTINUE + GOTO 80 + 50 IF(NPRT(4)) + *WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + IF(INT.EQ.1) CALL TWOB(22,NFL,N) + IF(INT.EQ.2) CALL GENXPT(22,NFL,N) + GO TO 9999 + 55 IF(NPRT(4)) + *WRITE(NEWBCD,1001) + GOTO 53 +C** EXCLUSIVE REACTION NOT FOUND + 80 IF(NPRT(4)) + *WRITE(NEWBCD,1004) RS,N + 53 INT=1 + NP=0 + NM=0 + NZ=0 + IPA(1)=22 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + GOTO 120 + 100 DO 101 I=1,60 + 101 IPA(I)=0 + IF(INT.LE.0) GOTO 131 + GOTO (102,112),NFL + 102 NCHT=NP-NM + NCHT=NCHT+2 + IF(NCHT.LE.0) NCHT=1 + IF(NCHT.GT.3) NCHT=3 + GOTO (103,104,105),NCHT + 103 IPA(1)=21 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) IPA(1)=18 + IPA(2)=14 + GOTO 120 + 104 IPA(1)=22 + IPA(2)=14 + CALL GRNDM(RNDM,2) + IF(RNDM(1).LT.0.5) GOTO 120 + IPA(1)=21 + IF(RNDM(2).LT.0.5) IPA(1)=18 + IPA(2)=16 + GOTO 120 + 105 IPA(1)=22 + IPA(2)=16 + GOTO 120 + 112 NCHT=NP-NM + NCHT=NCHT+3 + IF(NCHT.LE.0) NCHT=1 + IF(NCHT.GT.3) NCHT=3 + GOTO (113,114,115),NCHT + 113 IPA(1)=21 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) IPA(1)=18 + IPA(2)=14 + GOTO 120 + 114 IPA(1)=21 + CALL GRNDM(RNDM,2) + IF(RNDM(1).LT.0.5) IPA(1)=18 + IPA(2)=16 + IF(RNDM(2).LT.0.5) GOTO 120 + IPA(1)=22 + IPA(2)=14 + GOTO 120 + 115 IPA(1)=22 + IPA(2)=16 + 120 NT=2 + IF(NP.EQ.0) GOTO 122 + DO 121 I=1,NP + NT=NT+1 + 121 IPA(NT)=7 + 122 IF(NM.EQ.0) GOTO 124 + DO 123 I=1,NM + NT=NT+1 + 123 IPA(NT)=9 + 124 IF(NZ.EQ.0) GOTO 130 + DO 125 I=1,NZ + NT=NT+1 + 125 IPA(NT)=8 + 130 IF(NPRT(4)) + *WRITE(NEWBCD,2004) NT,(IPA(I),I=1,20) + GOTO 50 + 131 IF(NPRT(4)) + *WRITE(NEWBCD,2005) +C +1001 FORMAT(' *CASSM* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI-ELASTIC SCATTERING') +1003 FORMAT(' *CASSM* SIGMA- -INDUCED CASCADE,', + $ ' AVAIL. ENERGY',2X,F8.4,/, + $ 2X,' ',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') +1004 FORMAT(' *CASSM* SIGMA- -INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION NOT FOUND', + $ ' TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,/,2X, + $ ' ',2X,F8.4) +2001 FORMAT(' *CASSM* TABLES FOR MULT. DATA SIGMA- INDUCED REACTION', + $ ' FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') +2002 FORMAT(' *CASSM* TARGET PARTICLE FLAG',2X,I5) +2003 FORMAT(1H ,10E12.4) +2004 FORMAT(' *CASSM* ',I3,2X,'PARTICLES , MASS INDEX ARRAY',2X,20I4) +2005 FORMAT(' *CASSM* NO PARTICLES PRODUCED') +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.16/00 05/11/93 19.20.36 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CASSP(K,INT,NFL) +C +C *** CASCADE OF SIGMA+ *** +C *** NVE 04-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (30-NOV-1987) +C +C S+ UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT ASSUME NUCLEAR EXCITATION OCCURS AND INPUT PARTICLE +C IS DEGRADED IN ENERGY. NO OTHER PARTICLES PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + REAL N + DIMENSION PMUL(2,1200),ANORM(2,60),CECH(10),IIPA(10,2),B(2) + DIMENSION RNDM(2) + SAVE PMUL,ANORM + SAVE + DATA CECH/0.50,0.45,0.40,0.35,0.30,0.25,0.06,0.04,0.005,0./ + DATA IIPA/14,14,14,14,14,21,18,16,14,14, + * 20,20,20,20,20,14,14,20,21,18/ + DATA B/0.7,0.7/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(13) --- + IF (KGINIT(13) .NE. 0) GO TO 10 + KGINIT(13)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL(I,J)=0.0 + IF (J .LE. 60) ANORM(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C** COMPUTE NORMALIZATION CONSTANTS +C** FOR P AS TARGET +C + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NMM1=NP1 + IF(NMM1.LE.0) NMM1=1 + NPP1=NP1+2 + DO 1 NM1=NMM1,NPP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 1 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 1 + PMUL(1,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM(1,NT)=ANORM(1,NT)+PMUL(1,L) + 1 CONTINUE +C** FOR N AS TARGET + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 2 NM1=NMM1,NPP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 2 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 2 + PMUL(2,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM(2,NT)=ANORM(2,NT)+PMUL(2,L) + 2 CONTINUE + DO 3 I=1,60 + IF(ANORM(1,I).GT.0.) ANORM(1,I)=1./ANORM(1,I) + IF(ANORM(2,I).GT.0.) ANORM(2,I)=1./ANORM(2,I) + 3 CONTINUE + IF(.NOT.NPRT(10)) GOTO 10 + WRITE(NEWBCD,2001) + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + WRITE(NEWBCD,2003) (ANORM(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL(NFL,I),I=1,1200) + 4 CONTINUE +C** CHOOSE PROTON OR NEUTRON AS TARGET + 10 NFL=2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.ZNO2/ATNO2) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-RMASS(20) +C** ELASTIC SCATTERING + NP=0 + NM=0 + NZ=0 + N=0. + IPA(1)=20 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + IF(INT.EQ.2) GOTO 20 +C** INTRODUCE CHARGE AND STRANGENESS EXCHANGE REACTIONS +C** S+N --> S0 P ,S+N --> L P, +C** S+P --> PS+, +C** S+N --> NS+, S+N --> P S0 , S+N --> P L + IPLAB=IFIX(P*2.5)+1 + IF(IPLAB.GT.10) IPLAB=10 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.CECH(IPLAB)/ATNO2**0.42) GOTO 120 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IRN=IFIX(RAN/0.2)+1 + IF(IRN.GT.5) IRN=5 + IRN=IRN+(NFL-1)*5 + IPA(1)=IIPA(IRN,1) + IPA(2)=IIPA(IRN,2) + GOTO 120 +C** CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION IN REACT. + 20 IF (EAB .LE. RMASS(7)) GOTO 55 + ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S)-MP-MSM + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (30,40),NFL +C** FOR P AS TARGET + 30 L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NMM1=NP1 + IF(NMM1.LE.0) NMM1=1 + NPP1=NP1+2 + DO 31 NM1=NMM1,NPP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 31 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(1,L)*ANORM(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 31 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 40 L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 41 NM1=NMM1,NPP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 41 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(2,L)*ANORM(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 41 CONTINUE + GOTO 80 + 50 IF(NPRT(4)) + *WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + IF(INT.EQ.1) CALL TWOB(20,NFL,N) + IF(INT.EQ.2) CALL GENXPT(20,NFL,N) + GO TO 9999 + 55 IF(NPRT(4)) + *WRITE(NEWBCD,1001) + GOTO 53 +C** EXCLUSIVE REACTION NOT FOUND + 80 IF(NPRT(4)) + *WRITE(NEWBCD,1004) RS,N + 53 INT=1 + NP=0 + NM=0 + NZ=0 + IPA(1)=20 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + GOTO 120 + 100 DO 101 I=1,60 + 101 IPA(I)=0 + IF(INT.LE.0) GOTO 131 + GOTO (102,112),NFL + 102 NCHT=NP-NM + NCHT=NCHT+3 + IF(NCHT.LE.0) NCHT=1 + IF(NCHT.GT.3) NCHT=3 + GOTO (103,104,105),NCHT + 103 IPA(1)=21 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) IPA(1)=18 + IPA(2)=16 + GOTO 120 + 104 IPA(1)=20 + IPA(2)=16 + CALL GRNDM(RNDM,2) + IF(RNDM(1).LT.0.5) GOTO 120 + IPA(1)=21 + IF(RNDM(2).LT.0.5) IPA(1)=18 + IPA(2)=14 + GOTO 120 + 105 IPA(1)=20 + IPA(2)=14 + GOTO 120 + 112 NCHT=NP-NM + NCHT=NCHT+2 + IF(NCHT.LE.0) NCHT=1 + IF(NCHT.GT.3) NCHT=3 + GOTO (113,114,115),NCHT + 113 IPA(1)=20 + IPA(2)=14 + GOTO 120 + 114 IPA(1)=21 + CALL GRNDM(RNDM,2) + IF(RNDM(1).LT.0.5) IPA(1)=18 + IPA(2)=14 + IF(RNDM(2).LT.0.5) GOTO 120 + IPA(1)=20 + IPA(2)=16 + GOTO 120 + 115 IPA(1)=21 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) IPA(1)=18 + IPA(2)=16 + 120 NT=2 + IF(NP.EQ.0) GOTO 122 + DO 121 I=1,NP + NT=NT+1 + 121 IPA(NT)=7 + 122 IF(NM.EQ.0) GOTO 124 + DO 123 I=1,NM + NT=NT+1 + 123 IPA(NT)=9 + 124 IF(NZ.EQ.0) GOTO 130 + DO 125 I=1,NZ + NT=NT+1 + 125 IPA(NT)=8 + 130 IF(NPRT(4)) + *WRITE(NEWBCD,2004) NT,(IPA(I),I=1,20) + GOTO 50 + 131 IF(NPRT(4)) + *WRITE(NEWBCD,2005) +C +1001 FORMAT(' *CASSP* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI-ELASTIC SCATTERING') +1003 FORMAT(' *CASSP* SIGMA+ -INDUCED CASCADE,', + $ ' AVAIL. ENERGY',2X,F8.4,/, + $ 2X,' ',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') +1004 FORMAT(' *CASSP* SIGMA+ -INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION NOT FOUND', + $ ' TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,/,2X, + $ ' ',2X,F8.4) +2001 FORMAT(' *CASSP* TABLES FOR MULT. DATA SIGMA+ INDUCED REACTION', + $ ' FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') +2002 FORMAT(' *CASSP* TARGET PARTICLE FLAG',2X,I5) +2003 FORMAT(1H ,10E12.4) +2004 FORMAT(' *CASSP* ',I3,2X,'PARTICLES , MASS INDEX ARRAY',2X,20I4) +2005 FORMAT(' *CASSP* NO PARTICLES PRODUCED') +C + 9999 CONTINUE + RETURN + END +*CMZU: 3.16/00 05/11/93 17.20.00 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CASP(K,INT,NFL) +C +C *** CASCADE OF PROTON *** +C *** NVE 04-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (13-SEP-1987) +C +C P UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT ASSUME NUCLEAR EXCITATION OCCURS AND INPUT PARTICLE +C IS DEGRADED IN ENERGY. NO OTHER PARTICLES PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + REAL N + DIMENSION PMUL(2,1200),ANORM(2,60),SUPP(10),CECH(10),B(2) + DIMENSION RNDM(1) + SAVE PMUL,ANORM + SAVE + DATA SUPP/0.,0.4,0.55,0.65,0.75,0.82,0.86,0.90,0.94,0.98/ + DATA CECH/0.50,0.45,0.40,0.35,0.30,0.25,0.06,0.04,0.005,0./ + DATA B/0.70,0.35/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(10) --- + IF (KGINIT(10) .NE. 0) GO TO 10 + KGINIT(10)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL(I,J)=0.0 + IF (J .LE. 60) ANORM(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C** COMPUTE NORMALIZATION CONSTANTS +C** FOR P AS TARGET +C + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + DO 1 NM1=NMM1,NP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 1 + NPROT=2-NP+NM + NNEUT=2-NPROT + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 1 + PMUL(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + NPROTF=NFAC(NPROT) + NNEUTF=NFAC(NNEUT) + PMUL(1,L)=PMUL(1,L)/(NPROTF*NNEUTF) + ANORM(1,NT)=ANORM(1,NT)+PMUL(1,L) + 1 CONTINUE +C** FOR N AS TARGET + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 2 NM1=NMM1,NPP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 2 + NPROT=1-NP+NM + NNEUT=2-NPROT + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 2 + PMUL(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + NPROTF=NFAC(NPROT) + NNEUTF=NFAC(NNEUT) + PMUL(2,L)=PMUL(2,L)/(NPROTF*NNEUTF) + ANORM(2,NT)=ANORM(2,NT)+PMUL(2,L) + 2 CONTINUE + DO 3 I=1,60 + IF(ANORM(1,I).GT.0.) ANORM(1,I)=1./ANORM(1,I) + IF(ANORM(2,I).GT.0.) ANORM(2,I)=1./ANORM(2,I) + 3 CONTINUE + IF(.NOT.NPRT(10)) GOTO 10 + WRITE(NEWBCD,2001) + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + WRITE(NEWBCD,2003) (ANORM(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL(NFL,I),I=1,1200) + 4 CONTINUE +C** CHOOSE PROTON OR NEUTRON AS TARGET + 10 NFL=2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.ZNO2/ATNO2) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-RMASS(14) +C** ELASTIC SCATTERING + NCECH=0 + NP=0 + NM=0 + NZ=0 + N=0. + IF(INT.EQ.2) GOTO 20 +C** INTRODUCE CHARGE EXCHANGE REACTION PN --> NP + IF(NFL.EQ.1) GOTO 100 + IPLAB=IFIX(P*2.5)+1 + IF(IPLAB.GT.10) IPLAB=10 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.CECH(IPLAB)/ATNO2**0.42) GOTO 100 + NCECH=1 + GOTO 100 +C** CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION IN REACT. + 20 IF (EAB .LE. RMASS(7)) GOTO 55 +C** SUPPRESSION OF HIGH MULTIPLICITY EVENTS AT LOW MOMENTUM + IEAB=IFIX(EAB*5.)+1 + IF(IEAB.GT.10) GOTO 22 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SUPP(IEAB)) GOTO 22 + N=1. + GOTO (23,24),NFL + 23 CONTINUE + TEST=-(1+B(1))**2/(2.0*C**2) + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + W0=EXP(TEST)/2.0 + WP=EXP(TEST) + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + NP=0 + NM=0 + NZ=1 + IF(RAN.LT.W0/(W0+WP)) GOTO 100 + NP=1 + NM=0 + NZ=0 + GOTO 100 + 24 CONTINUE + TEST=-(1+B(2))**2/(2.0*C**2) + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + W0=EXP(TEST) + WP=EXP(TEST)/2.0 + TEST=-(-1+B(2))**2/(2.0*C**2) + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + WM=EXP(TEST)/2.0 + WT=W0+WP+WM + WP=W0+WP + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + NP=0 + NM=0 + NZ=1 + IF(RAN.LT.W0/WT) GOTO 100 + NP=1 + NM=0 + NZ=0 + IF(RAN.LT.WP/WT) GOTO 100 + NP=0 + NM=1 + NZ=0 + GOTO 100 +C + 22 ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S)-2*MP + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (30,40),NFL +C** FOR P AS TARGET + 30 L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + DO 31 NM1=NMM1,NP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 31 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(1,L)*ANORM(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 31 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 40 L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 41 NM1=NMM1,NPP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 41 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(2,L)*ANORM(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 41 CONTINUE + GOTO 80 + 50 IF(NPRT(4)) + *WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + CALL STPAIR + IF(INT.EQ.1) CALL TWOB(14,NFL,N) + IF(INT.EQ.2) CALL GENXPT(14,NFL,N) + GO TO 9999 + 55 IF(NPRT(4)) + *WRITE(NEWBCD,1001) + GOTO 53 +C** EXCLUSIVE REACTION NOT FOUND,ASSUME ELASTIC SCATTERING + 80 IF(NPRT(4)) + *WRITE(NEWBCD,1004) RS,N + 53 INT=1 + NP=0 + NM=0 + NZ=0 + 100 DO 101 I=1,60 + 101 IPA(I)=0 + IF(INT.LE.0) GOTO 131 + NPROT=2-NP+NM+(1-NFL) + NNEUT=2-NPROT + GOTO (102,112),NFL + 102 GOTO (103,104),INT + 103 IPA(1)=14 + IPA(2)=14 + NT=2 + GOTO 130 + 104 IF(NNEUT.EQ.1) GOTO 105 + IF(NNEUT.EQ.2) GOTO 106 + IPA(1)=14 + IPA(2)=14 + GOTO 120 + 105 IPA(1)=14 + IPA(2)=16 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GOTO 120 + IPA(1)=16 + IPA(2)=14 + GOTO 120 + 106 IPA(1)=16 + IPA(2)=16 + GOTO 120 + 112 GOTO (113,114),INT + 113 IPA(1)=14 + IPA(2)=16 + NT=2 + IF(NCECH.EQ.0) GOTO 130 + IPA(1)=16 + IPA(2)=14 + GOTO 130 + 114 IF(NNEUT.EQ.1) GOTO 115 + IF(NNEUT.EQ.2) GOTO 116 + IPA(1)=14 + IPA(2)=14 + GOTO 120 + 115 IPA(1)=16 + IPA(2)=14 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.33) GOTO 120 + IPA(1)=14 + IPA(2)=16 + GOTO 120 + 116 IPA(1)=16 + IPA(2)=16 + 120 NT=2 + IF(NP.EQ.0) GOTO 122 + DO 121 I=1,NP + NT=NT+1 + 121 IPA(NT)=7 + 122 IF(NM.EQ.0) GOTO 124 + DO 123 I=1,NM + NT=NT+1 + 123 IPA(NT)=9 + 124 IF(NZ.EQ.0) GOTO 130 + DO 125 I=1,NZ + NT=NT+1 + 125 IPA(NT)=8 + 130 IF(NPRT(4)) + *WRITE(NEWBCD,2004) NT,(IPA(I),I=1,20) + GOTO 50 + 131 IF(NPRT(4)) + *WRITE(NEWBCD,2005) +C +1001 FORMAT(' *CASP* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI-ELASTIC SCATTERING') +1003 FORMAT(' *CASP* PROTON-INDUCED CASCADE,', + $ ' AVAIL. ENERGY',2X,F8.4,/, + $ 2X,' ',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') +1004 FORMAT(' *CASP* PROTON-INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION NOT FOUND', + $ ' TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,/,2X, + $ ' ',2X,F8.4) +2001 FORMAT(' *CASP* TABLES FOR MULT. DATA PROTON INDUCED REACTION', + $ ' FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') +2002 FORMAT(' *CASP* TARGET PARTICLE FLAG',2X,I5) +2003 FORMAT(1H ,10E12.4) +2004 FORMAT(' *CASP* ',I3,2X,'PARTICLES , MASS INDEX ARRAY',2X,20I4) +2005 FORMAT(' *CASP* NO PARTICLES PRODUCED') +C + 9999 CONTINUE + RETURN + END +*CMZU: 3.16/00 05/11/93 17.20.00 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CASPB(K,INT,NFL) +C +C *** CASCADE OF ANTI PROTON *** +C *** NVE 04-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (13-SEP-1987) +C +C PB UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT ASSUME NUCLEAR EXCITATION OCCURS AND INPUT PARTICLE +C IS DEGRADED IN ENERGY. NO OTHER PARTICLES PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + REAL N + DIMENSION PMUL1(2,1200),PMUL2(2,400),ANORM1(2,60),ANORM2(2,60), + $ SUPP(10),CECH(20),ANHL(29),B(2) + DIMENSION RNDM(1) + SAVE PMUL1,ANORM1,PMUL2,ANORM2 + SAVE + DATA SUPP/0.,0.4,0.55,0.65,0.75,0.82,0.86,0.90,0.94,0.98/ + DATA CECH/0.14,0.17,0.18,0.18,0.18,0.17,0.17,0.16,0.155,0.145, + * 0.11,0.082,0.065,0.050,0.041,0.035,0.028,0.024,0.010 + * ,0.0/ + DATA ANHL/1.00,1.00,1.00,1.00,1.0,1.00,1.0,1.00,1.00,0.90 + * ,0.6,0.52,0.47,0.44,0.41,0.39,0.37,0.35,0.34,0.24 + * ,0.19,0.15,0.12,0.10,0.09,0.07,0.06,0.05,0./ + DATA B/0.7,0.7/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(11) --- + IF (KGINIT(11) .NE. 0) GO TO 10 + KGINIT(11)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL1(I,J)=0.0 + IF (J .LE. 400) PMUL2(I,J)=0.0 + IF (J .LE. 60) ANORM1(I,J)=0.0 + IF (J .LE. 60) ANORM2(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C** COMPUTE NORMALIZATION CONSTANTS +C** FOR P AS TARGET +C + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 1 NM1=NMM1,NPP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 1 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 1 + PMUL1(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM1(1,NT)=ANORM1(1,NT)+PMUL1(1,L) + 1 CONTINUE +C** FOR N AS TARGET + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NPP1=NP1+2 + DO 2 NM1=NP1,NPP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 2 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 2 + PMUL1(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM1(2,NT)=ANORM1(2,NT)+PMUL1(2,L) + 2 CONTINUE + DO 3 I=1,60 + IF(ANORM1(1,I).GT.0.) ANORM1(1,I)=1./ANORM1(1,I) + IF(ANORM1(2,I).GT.0.) ANORM1(2,I)=1./ANORM1(2,I) + 3 CONTINUE + IF(.NOT.NPRT(10)) GOTO 9 + WRITE(NEWBCD,2001) + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + WRITE(NEWBCD,2003) (ANORM1(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL1(NFL,I),I=1,1200) + 4 CONTINUE +C** DO THE SAME FOR ANNIHILATION CHANNELS +C** FOR P AS TARGET +C + 9 L=0 + DO 5 NP1=1,20 + NP=NP1-1 + NM=NP + DO 5 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.400) GOTO 5 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 5 + PMUL2(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM2(1,NT)=ANORM2(1,NT)+PMUL2(1,L) + 5 CONTINUE +C** FOR N AS TARGET + L=0 + DO 6 NP1=1,20 + NP=NP1-1 + NM=NP+1 + DO 6 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.400) GOTO 6 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 6 + PMUL2(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM2(2,NT)=ANORM2(2,NT)+PMUL2(2,L) + 6 CONTINUE + DO 7 I=1,60 + IF(ANORM2(1,I).GT.0.) ANORM2(1,I)=1./ANORM2(1,I) + IF(ANORM2(2,I).GT.0.) ANORM2(2,I)=1./ANORM2(2,I) + 7 CONTINUE + IF(.NOT.NPRT(10)) GOTO 10 + WRITE(NEWBCD,3001) + DO 8 NFL=1,2 + WRITE(NEWBCD,3002) NFL + WRITE(NEWBCD,3003) (ANORM2(NFL,I),I=1,60) + WRITE(NEWBCD,3003) (PMUL2(NFL,I),I=1,400) + 8 CONTINUE +C** CHOOSE PROTON OR NEUTRON AS TARGET + 10 NFL=2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.ZNO2/ATNO2) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-ABS(RMASS(15)) +C** ELASTIC SCATTERING + NCECH=0 + NP=0 + NM=0 + NZ=0 + N=0. + IF(INT.EQ.2) GOTO 20 +C** INTRODUCE CHARGE EXCHANGE REACTION PB P --> NB N + IF(NFL.EQ.2) GOTO 100 + IPLAB=IFIX(P*10.)+1 + IF(IPLAB.GT.10) IPLAB=IFIX(P)+10 + IF(IPLAB.GT.20) IPLAB=20 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.CECH(IPLAB)/ATNO2**0.75) GOTO 100 + NCECH=1 + GOTO 100 +C** ANNIHILATION CHANNELS + 20 IPLAB=IFIX(P*10.)+1 + IF(IPLAB.GT.10) IPLAB=IFIX(P)+10 + IF(IPLAB.GT.19) IPLAB=IFIX(P/10.)+19 + IF(IPLAB.GT.28) IPLAB=29 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.ANHL(IPLAB)) GOTO 19 + EAB=RS + IF (EAB .LE. 2.0*RMASS(7)) GOTO 55 + GOTO 222 +C** CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION IN REACT. + 19 IF (EAB .LE. RMASS(7)) GOTO 55 +C** SUPPRESSION OF HIGH MULTIPLICITY EVENTS AT LOW MOMENTUM + IEAB=IFIX(EAB*5.)+1 + IF(IEAB.GT.10) GOTO 22 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SUPP(IEAB)) GOTO 22 + N=1. + GOTO (24,23),NFL + 23 CONTINUE + TEST=-(1+B(1))**2/(2.0*C**2) + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + W0=EXP(TEST) + TEST=-(-1+B(1))**2/(2.0*C**2) + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + WM=EXP(TEST) + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + NP=0 + NM=0 + NZ=1 + IF(RAN.LT.W0/(W0+WM)) GOTO 100 + NP=0 + NM=1 + NZ=0 + GOTO 100 + 24 CONTINUE + TEST=-(1+B(2))**2/(2.0*C**2) + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + W0=EXP(TEST) + WP=EXP(TEST) + TEST=-(-1+B(2))**2/(2.0*C**2) + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + WM=EXP(TEST) + WT=W0+WP+WM + WP=W0+WP + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + NP=0 + NM=0 + NZ=1 + IF(RAN.LT.W0/WT) GOTO 100 + NP=1 + NM=0 + NZ=0 + IF(RAN.LT.WP/WT) GOTO 100 + NP=0 + NM=1 + NZ=0 + GOTO 100 +C + 22 ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S)-2*MP + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GT. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (30,40),NFL +C** FOR P AS TARGET + 30 L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 31 NM1=NMM1,NPP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 31 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL1(1,L)*ANORM1(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GT. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 31 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 40 L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NPP1=NP1+2 + DO 41 NM1=NP1,NPP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 41 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL1(2,L)*ANORM1(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GT. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 100 + 41 CONTINUE + GOTO 80 +C** ANNIHILATION CHANNELS + 222 IPA(1)=0 + IPA(2)=0 + ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S) + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 221 NT=2,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GT. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 221 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (230,240),NFL +C** FOR P AS TARGET + 230 L=0 + DO 231 NP1=1,20 + NP=NP1-1 + NM=NP + DO 231 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.400) GOTO 231 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 231 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL2(1,L)*ANORM2(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GT. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 120 + 231 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 240 L=0 + DO 241 NP1=1,20 + NP=NP1-1 + NM=NP+1 + DO 241 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.400) GOTO 241 + NT=NP+NM+NZ + IF(NT.LE.1.OR.NT.GT.60) GOTO 241 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL2(2,L)*ANORM2(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GT. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 120 + 241 CONTINUE + GOTO 80 + 50 IF(NPRT(4)) + *WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + CALL STPAIR + IF(INT.EQ.1) CALL TWOB(15,NFL,N) + IF(INT.EQ.2) CALL GENXPT(15,NFL,N) + GO TO 9999 + 55 IF(NPRT(4)) + *WRITE(NEWBCD,1001) + GOTO 53 +C** EXCLUSIVE REACTION NOT FOUND,ASSUME ELASTIC SCATTERING + 80 IF(NPRT(4)) + *WRITE(NEWBCD,1004)EAB,N + 53 INT=1 + NP=0 + NM=0 + NZ=0 + 100 DO 101 I=1,60 + 101 IPA(I)=0 + IF(INT.LE.0) GOTO 131 + GOTO (112,102),NFL + 102 GOTO (103,104),INT + 103 IPA(1)=15 + IPA(2)=16 + NT=2 + GOTO 130 + 104 IF(NP.EQ.-1+NM) GOTO 105 + IF(NP.EQ. NM) GOTO 106 + IPA(1)=17 + IPA(2)=14 + GOTO 120 + 105 IPA(1)=15 + IPA(2)=14 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GOTO 120 + IPA(1)=17 + IPA(2)=16 + GOTO 120 + 106 IPA(1)=15 + IPA(2)=16 + GOTO 120 + 112 GOTO (113,114),INT + 113 IPA(1)=15 + IPA(2)=14 + NT=2 + IF(NCECH.EQ.0) GOTO 130 + IPA(1)=17 + IPA(2)=16 + GOTO 130 + 114 IF(NP.EQ. NM) GOTO 115 + IF(NP.EQ.1+NM) GOTO 116 + IPA(1)=17 + IPA(2)=14 + GOTO 120 + 115 IPA(1)=17 + IPA(2)=16 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.33) GOTO 120 + IPA(1)=15 + IPA(2)=14 + GOTO 120 + 116 IPA(1)=15 + IPA(2)=16 + 120 NT=2 + IF(NP.EQ.0) GOTO 122 + DO 121 I=1,NP + NT=NT+1 + 121 IPA(NT)=7 + 122 IF(NM.EQ.0) GOTO 124 + DO 123 I=1,NM + NT=NT+1 + 123 IPA(NT)=9 + 124 IF(NZ.EQ.0) GOTO 130 + DO 125 I=1,NZ + NT=NT+1 + 125 IPA(NT)=8 + 130 IF(NPRT(4)) + *WRITE(NEWBCD,2004) NT,(IPA(I),I=1,20) + GOTO 50 + 131 IF(NPRT(4)) + *WRITE(NEWBCD,2005) +C +1001 FORMAT(' *CASPB* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI-ELASTIC SCATTERING') +1003 FORMAT(' *CASPB* ANTIPROTON-INDUCED CASCADE,', + $ ' AVAIL. ENERGY',2X,F8.4,/, + $ 2X,' ',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') +1004 FORMAT(' *CASPB* ANTIPROTON-INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION', + $ ' NOT FOUND TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,/,2X, + $ ' ',2X,F8.4) +2001 FORMAT(' *CASPB* TABLES FOR MULT. DATA ANTIPROTON INDUCED ', + $ 'REACTION FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') +2002 FORMAT(' *CASPB* TARGET PARTICLE FLAG',2X,I5) +2003 FORMAT(1H ,10E12.4) +2004 FORMAT(' *CASPB* ',I3,2X,'PARTICLES , MASS INDEX ARRAY',2X,20I4) +2005 FORMAT(' *CASPB* NO PARTICLES PRODUCED') +3001 FORMAT(' *CASPB* TABLES FOR MULT. DATA ANTIPROTON INDUCED ', + $ ' ANNIHILATION REACTION FOR DEFINITION OF NUMBERS SEE FORTRAN', + $ ' CODING') +3002 FORMAT(' *CASPB* TARGET PARTICLE FLAG',2X,I5) +3003 FORMAT(1H ,10E12.4) +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.16/00 05/11/93 19.15.23 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CASPIM(K,INT,NFL) +C +C *** CASCADE OF PI- *** +C *** NVE 04-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT 13-SEP-1987 +C +C PI- UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT ASSUME NUCLEAR EXCITATION OCCURS AND INPUT PARTICLE +C IS DEGRADED IN ENERGY. NO OTHER PARTICLES PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C + REAL N + DIMENSION PMUL(2,1200),ANORM(2,60),SUPP(10),CECH(10),B(2) + DIMENSION RNDM(1) + SAVE PMUL,ANORM + SAVE + DATA SUPP/0.,0.4,0.55,0.65,0.75,0.82,0.86,0.90,0.94,0.98/ + DATA CECH/1.,0.95,0.79,0.32,0.19,0.16,0.14,0.12,0.10,0.08/ + DATA B/0.7,0.7/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(16) --- + IF (KGINIT(16) .NE. 0) GO TO 10 + KGINIT(16)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL(I,J)=0.0 + IF (J .LE. 60) ANORM(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C *** COMPUTATION OF NORMALIZATION CONSTANTS *** +C +C --- P TARGET --- + L=0 + DO 1100 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF (NMM1 .LE. 1) NMM1=1 + NPP1=NP1+1 +C + DO 1101 NM1=NMM1,NPP1 + NM=NM1-1 +C + DO 1102 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF (L .GT. 1200) GOTO 1199 + NT=NP+NM+NZ + IF (NT .LE. 0) GO TO 1102 + IF (NT .GT. 60) GO TO 1102 + PMUL(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM(1,NT)=ANORM(1,NT)+PMUL(1,L) + 1102 CONTINUE +C + 1101 CONTINUE +C + 1100 CONTINUE +C + 1199 CONTINUE +C +C --- N TARGET --- + L=0 + DO 1200 NP1=1,20 + NP=NP1-1 + NPP1=NP1+2 +C + DO 1201 NM1=NP1,NPP1 + NM=NM1-1 +C + DO 1202 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF (L .GT. 1200) GO TO 1299 + NT=NP+NM+NZ + IF (NT .LE. 0) GO TO 1202 + IF (NT .GT. 60) GO TO 1202 + PMUL(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM(2,NT)=ANORM(2,NT)+PMUL(2,L) + 1202 CONTINUE +C + 1201 CONTINUE +C + 1200 CONTINUE +C + 1299 CONTINUE +C + DO 3 I=1,60 + IF (ANORM(1,I) .GT. 0.0) ANORM(1,I)=1.0/ANORM(1,I) + IF (ANORM(2,I) .GT. 0.0) ANORM(2,I)=1.0/ANORM(2,I) + 3 CONTINUE +C + IF (.NOT. NPRT(10)) GO TO 10 + WRITE(NEWBCD,2001) + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + WRITE(NEWBCD,2003) (ANORM(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL(NFL,I),I=1,1200) + 4 CONTINUE +C +C --- CHOOSE PROTON OR NEUTRON AS TARGET --- + 10 CONTINUE + NFL=2 + CALL GRNDM(RNDM,1) + IF (RNDM(1) .LT. ZNO2/ATNO2) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-RMASS(9) +C +C --- ELASTIC SCATTERING --- + NP=0 + NM=0 + NZ=0 + N=0.0 + IPA(1)=9 + IPA(2)=14 + IF (NFL .EQ. 2) IPA(2)=16 + IF (INT .EQ. 2) GOTO 20 + GOTO 100 +C +C --- CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION IN REACT. + 20 CONTINUE + IF (EAB .LE. RMASS(9)) GO TO 55 +C +C --- SUPPRESSION OF HIGH MULTIPLICITY EVENTS AT LOW MOMENTUM --- + IEAB=IFIX(EAB*5.0)+1 + IF (IEAB .GT. 10) GO TO 22 + CALL GRNDM(RNDM,1) + IF (RNDM(1) .LT. SUPP(IEAB)) GO TO 22 +C +C --- CHARGE EXCHANGE REACTION (IS INCLUDED IN INELASTIC CROSS SECTION) + IPLAB=IFIX(P*5.0)+1 + IF (IPLAB .GT. 10) IPLAB=10 + CALL GRNDM(RNDM,1) + IF (RNDM(1) .GT. CECH(IPLAB)) GO TO 23 +C + IF (NFL .EQ. 1) GOTO 24 +C +C --- N TARGET --- + INT=1 + IPA(1)=9 + IPA(2)=16 + GO TO 100 +C +C --- P TARGET --- + 24 CONTINUE + IPA(1)=8 + IPA(2)=16 + GO TO 100 +C + 23 CONTINUE + N=1.0 +C + IF (NFL .EQ. 1) GO TO 26 +C +C --- N TARGET --- + DUM=-(1+B(2))**2/(2.0*C**2) + IF (DUM .LT. EXPXL) DUM=EXPXL + IF (DUM .GT. EXPXU) DUM=EXPXU + W0=EXP(DUM) + DUM=-(-1+B(2))**2/(2.0*C**2) + IF (DUM .LT. EXPXL) DUM=EXPXL + IF (DUM .GT. EXPXU) DUM=EXPXU + WM=EXP(DUM) + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + NP=0 + NM=0 + NZ=1 + IF (RAN .LT. W0/(W0+WM)) GO TO 50 + NP=0 + NM=1 + NZ=0 + GO TO 50 +C +C --- P TARGET --- + 26 CONTINUE + DUM=-(1+B(1))**2/(2.0*C**2) + IF (DUM .LT. EXPXL) DUM=EXPXL + IF (DUM .GT. EXPXU) DUM=EXPXU + W0=EXP(DUM) + WP=EXP(DUM) + DUM=-(-1+B(1))**2/(2.0*C**2) + IF (DUM .LT. EXPXL) DUM=EXPXL + IF (DUM .GT. EXPXU) DUM=EXPXU + WM=EXP(DUM) + WP=WP*10. + WT=W0+WP+WM + WP=W0+WP + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + NP=0 + NM=0 + NZ=1 + IF (RAN .LT. W0/WT) GO TO 50 + NP=1 + NM=0 + NZ=0 + IF (RAN .LT. WP/WT) GO TO 50 + NP=0 + NM=1 + NZ=0 + GOTO 50 +C + 22 CONTINUE + ALEAB=LOG(EAB) +C +C --- NO. OF TOTAL PARTICLES VS SQRT(S)-2*MP --- + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + $ +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2.0 +C +C --- NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION --- + ANPN=0.0 + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1.0/ANPN +C + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0.0 + IF (NFL .EQ. 2) GO TO 40 +C +C --- P TARGET --- + L=0 + DO 310 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF (NMM1 .LE. 1) NMM1=1 + NPP1=NP1+1 +C + DO 311 NM1=NMM1,NPP1 + NM=NM1-1 +C + DO 312 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF (L .GT. 1200) GO TO 80 + NT=NP+NM+NZ + IF (NT .LE. 0) GO TO 312 + IF (NT .GT. 60) GO TO 312 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(1,L)*ANORM(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF (RAN .LT. EXCS) GOTO 50 + 312 CONTINUE +C + 311 CONTINUE +C + 310 CONTINUE + GOTO 80 +C +C --- N TARGET --- + 40 CONTINUE + L=0 + DO 410 NP1=1,20 + NP=NP1-1 + NPP1=NP1+2 +C + DO 411 NM1=NP1,NPP1 + NM=NM1-1 +C + DO 412 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF (L .GT. 1200) GO TO 80 + NT=NP+NM+NZ + IF (NT .LE. 0) GO TO 412 + IF (NT .GT. 60) GO TO 412 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(2,L)*ANORM(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF (RAN .LT. EXCS) GOTO 50 + 412 CONTINUE +C + 411 CONTINUE +C + 410 CONTINUE + GO TO 80 +C + 50 CONTINUE + IF (NFL .EQ. 2) GO TO 65 +C +C --- P TARGET --- + IF (NP .EQ. NM) GO TO 61 + IF (NP .EQ. 1+NM) GO TO 63 + IPA(1)=8 + IPA(2)=14 + GO TO 100 +C + 61 CONTINUE + CALL GRNDM(RNDM,1) + IF (RNDM(1) .LT. 0.75) GO TO 62 + IPA(1)=8 + IPA(2)=16 + GO TO 100 +C + 62 CONTINUE + IPA(1)=9 + IPA(2)=14 + GO TO 100 +C + 63 CONTINUE + IPA(1)=9 + IPA(2)=16 + GO TO 100 +C +C --- N TARGET --- + 65 CONTINUE + IF (NP .EQ. -1+NM) GO TO 66 + IF (NP .EQ. NM) GO TO 68 + IPA(1)=8 + IPA(2)=16 + GO TO 100 +C + 66 CONTINUE + CALL GRNDM(RNDM,1) + IF (RNDM(1) .LT. 0.50) GO TO 67 + IPA(1)=8 + IPA(2)=16 + GO TO 100 +C + 67 CONTINUE + IPA(1)=9 + IPA(2)=14 + GO TO 100 +C + 68 CONTINUE + IPA(1)=9 + IPA(2)=16 + GO TO 100 +C + 70 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + CALL STPAIR + IF (INT .EQ. 1) CALL TWOB(9,NFL,N) + IF (INT .EQ. 2) CALL GENXPT(9,NFL,N) + GO TO 9999 +C +C --- ENERGETICALLY NOT POSSIBLE TO PRODUCE CASCADE-PARTICLES --- +C --- CONTINUE WITH QUASI-ELASTIC SCATTERING --- + 55 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,1001) + GO TO 53 +C +C --- EXCLUSIVE REACTION NOT FOUND --- + 80 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,1004) RS,N +C + 53 CONTINUE + INT=1 + NP=0 + NM=0 + NZ=0 + N=0.0 + IPA(1)=9 + IPA(2)=14 + IF (NFL .EQ. 2) IPA(2)=16 +C + 100 CONTINUE + DO 101 I=3,60 + IPA(I)=0 + 101 CONTINUE + IF (INT .LE. 0) GO TO 131 +C + 120 CONTINUE + NT=2 + IF (NP .EQ. 0) GO TO 122 + DO 121 I=1,NP + NT=NT+1 + IPA(NT)=7 + 121 CONTINUE +C + 122 CONTINUE + IF (NM .EQ. 0) GO TO 124 + DO 123 I=1,NM + NT=NT+1 + IPA(NT)=9 + 123 CONTINUE +C + 124 CONTINUE + IF (NZ .EQ. 0) GO TO 130 + DO 125 I=1,NZ + NT=NT+1 + IPA(NT)=8 + 125 CONTINUE +C + 130 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,2004) NT,(IPA(I),I=1,20) + IF (IPA(1) .EQ. 7) NP=NP+1 + IF (IPA(1) .EQ. 8) NZ=NZ+1 + IF (IPA(1) .EQ. 9) NM=NM+1 + GO TO 70 +C + 131 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,2005) +C +1001 FORMAT(' *CASPIM* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI-ELASTIC SCATTERING') +1003 FORMAT(' *CASPIM* PION- -INDUCED CASCADE, AVAIL. ENERGY',2X,F8.4, + $ /,2X,' ',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') +1004 FORMAT(' *CASPIM* PION- -INDUCED CASCADE, EXCLUSIVE REACTION', + $ ' NOT FOUND TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,/,2X, + * ' ',2X,F8.4) +2001 FORMAT(' *CASPIM* TABLES FOR MULTIPLICITY DATA PION- INDUCED', + $ 'REACTION FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') +2002 FORMAT(' *CASPIM* TARGET PARTICLE FLAG',2X,I5) +2003 FORMAT(1H ,10E12.4) +2004 FORMAT(' *CASPIM* ',I3,' PARTICLES, MASS INDEX ARRAY ',20I4) +2005 FORMAT(' *CASPIM* NO PARTICLES PRODUCED') +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.16/00 05/11/93 19.15.49 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CASPIP(K,INT,NFL) +C +C *** CASCADE OF PI+ *** +C *** NVE 04-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (18-SEP-1987) +C +C PI+ UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT ASSUME NUCLEAR EXCITATION OCCURS AND INPUT PARTICLE +C IS DEGRADED IN ENERGY. NO OTHER PARTICLES PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C + REAL N + DIMENSION PMUL(2,1200),ANORM(2,60),SUPP(10),CECH(10),B(2) + DIMENSION RNDM(1) + SAVE PMUL,ANORM + SAVE + DATA SUPP/0.,0.2,0.45,0.55,0.65,0.75,0.85,0.90,0.94,0.98/ + DATA CECH/0.33,0.27,0.29,0.31,0.27,0.18,0.13,0.10,0.09,0.07/ + DATA B/0.7,0.7/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(18) --- + IF (KGINIT(18) .NE. 0) GO TO 10 + KGINIT(18)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL(I,J)=0.0 + IF (J .LE. 60) ANORM(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C** COMPUTE NORMALIZATION CONSTANTS +C** FOR P AS TARGET +C + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + DO 1 NM1=NMM1,NP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 1 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 1 + PMUL(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM(1,NT)=ANORM(1,NT)+PMUL(1,L) + 1 CONTINUE +C** FOR N AS TARGET + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 2 NM1=NMM1,NPP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 2 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 2 + PMUL(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM(2,NT)=ANORM(2,NT)+PMUL(2,L) + 2 CONTINUE + DO 3 I=1,60 + IF(ANORM(1,I).GT.0.) ANORM(1,I)=1./ANORM(1,I) + IF(ANORM(2,I).GT.0.) ANORM(2,I)=1./ANORM(2,I) + 3 CONTINUE + IF(.NOT.NPRT(10)) GOTO 10 + WRITE(NEWBCD,2001) + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + WRITE(NEWBCD,2003) (ANORM(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL(NFL,I),I=1,1200) + 4 CONTINUE +C** CHOOSE PROTON OR NEUTRON AS TARGET + 10 NFL=2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.ZNO2/ATNO2) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-RMASS(7) +C +C** ELASTIC SCATTERING + NP=0 + NM=0 + NZ=0 + N=0. + IPA(1)=7 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + IF(INT.EQ.2) GOTO 20 +C** FOR PI+ N REACTIONS CHANGE SOME OF THE ELASTIC CROSS SECTION +C** TO PI+ N --> PI0 P + IF(NFL.EQ.1) GOTO 100 + IPLAB=IFIX(P *5.)+1 + IF(IPLAB.GT.10) IPLAB=10 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.CECH(IPLAB)/ATNO2**0.42) GOTO 100 + IPA(1)=8 + IPA(2)=14 + GOTO 100 +C** CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION IN REACT. + 20 IF (EAB .LE. RMASS(7)) GOTO 55 +C** SUPPRESSION OF HIGH MULTIPLICITY EVENTS AT LOW MOMENTUM + IEAB=IFIX(EAB*5.)+1 + IF(IEAB.GT.10) GOTO 22 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SUPP(IEAB)) GOTO 22 + N=1. + GOTO (23,24),NFL + 23 CONTINUE + TEST=-(1+B(1))**2/(2.0*C**2) + IF (TEST .LE. EXPXL) TEST=EXPXL + IF (TEST .GE. EXPXU) TEST=EXPXU + W0=EXP(TEST) + WP=EXP(TEST) + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + NP=0 + NM=0 + NZ=1 + IF(RAN.LT.W0/(W0+WP)) GOTO 50 + NP=1 + NM=0 + NZ=0 + GOTO 50 + 24 CONTINUE + TEST=-(1+B(2))**2/(2.0*C**2) + IF (TEST .LE. EXPXL) TEST=EXPXL + IF (TEST .GE. EXPXU) TEST=EXPXU + W0=EXP(TEST) + WP=EXP(TEST) + TEST=-(-1+B(2))**2/(2.0*C**2) + IF (TEST .LE. EXPXL) TEST=EXPXL + IF (TEST .GE. EXPXU) TEST=EXPXU + WM=EXP(TEST) + WT=W0+WP+WM + WP=W0+WP + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + NP=0 + NM=0 + NZ=1 + IF(RAN.LT.W0/WT) GOTO 50 + NP=1 + NM=0 + NZ=0 + IF(RAN.LT.WP/WT) GOTO 50 + NP=0 + NM=1 + NZ=0 + GOTO 50 +C + 22 ALEAB=LOG(EAB) +C** NO. OF TOTAL PARTICLES VS SQRT(S)-2*MP + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C** NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LE. EXPXL) TEST=EXPXL + IF (TEST .GE. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1./ANPN +C** P OR N AS TARGET + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GOTO (30,40),NFL +C** FOR P AS TARGET + 30 L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF(NMM1.LE.1) NMM1=1 + DO 31 NM1=NMM1,NP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 31 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LE. EXPXL) TEST=EXPXL + IF (TEST .GE. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(1,L)*ANORM(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 50 + 31 CONTINUE + GOTO 80 +C** FOR N AS TARGET + 40 L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF(NMM1.LE.1) NMM1=1 + NPP1=NP1+1 + DO 41 NM1=NMM1,NPP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF(L.GT.1200) GOTO 41 + NT=NP+NM+NZ + IF(NT.LE.0.OR.NT.GT.60) GOTO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LE. EXPXL) TEST=EXPXL + IF (TEST .GE. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(2,L)*ANORM(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GT. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF(RAN.LT.EXCS) GOTO 50 + 41 CONTINUE + GOTO 80 + 50 GOTO (60,65),NFL + 60 IF(NP.EQ.1+NM) GOTO 61 + IF(NP.EQ.2+NM) GOTO 63 + IPA(1)=7 + IPA(2)=14 + GOTO 100 + 61 CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GOTO 62 + IPA(1)=7 + IPA(2)=16 + GOTO 100 + 62 IPA(1)=8 + IPA(2)=14 + GOTO 100 + 63 IPA(1)=8 + IPA(2)=16 + GOTO 100 + 65 IF(NP.EQ.NM) GOTO 66 + IF(NP.EQ.1+NM) GOTO 68 + IPA(1)=7 + IPA(2)=14 + GOTO 100 + 66 CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.25) GOTO 67 + IPA(1)=7 + IPA(2)=16 + GOTO 100 + 67 IPA(1)=8 + IPA(2)=14 + GOTO 100 + 68 IPA(1)=8 + IPA(2)=16 + GOTO 100 + 70 IF(NPRT(4)) + *WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + CALL STPAIR + IF(INT.EQ.1) CALL TWOB(7,NFL,N) + IF(INT.EQ.2) CALL GENXPT(7,NFL,N) + GO TO 9999 + 55 IF(NPRT(4)) + *WRITE(NEWBCD,1001) + GOTO 53 +C** EXCLUSIVE REACTION NOT FOUND + 80 IF(NPRT(4)) + *WRITE(NEWBCD,1004) RS,N + 53 INT=1 + NP=0 + NM=0 + NZ=0 + N=0. + IPA(1)=7 + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + 100 DO 101 I=3,60 + 101 IPA(I)=0 + IF(INT.LE.0) GOTO 131 + 120 NT=2 + IF(NP.EQ.0) GOTO 122 + DO 121 I=1,NP + NT=NT+1 + 121 IPA(NT)=7 + 122 IF(NM.EQ.0) GOTO 124 + DO 123 I=1,NM + NT=NT+1 + 123 IPA(NT)=9 + 124 IF(NZ.EQ.0) GOTO 130 + DO 125 I=1,NZ + NT=NT+1 + 125 IPA(NT)=8 + 130 IF(NPRT(4)) + *WRITE(NEWBCD,2004) NT,(IPA(I),I=1,20) + IF(IPA(1).EQ.7) NP=NP+1 + IF(IPA(1).EQ.8) NZ=NZ+1 + IF(IPA(1).EQ.9) NM=NM+1 + GOTO 70 + 131 IF(NPRT(4)) + *WRITE(NEWBCD,2005) +C +1001 FORMAT(' *CASPIP* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI-ELASTIC SCATTERING') +1003 FORMAT(' *CASPIP* PION+ -INDUCED CASCADE,', + $ ' AVAIL. ENERGY',2X,F8.4,/, + $ 2X,' ',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') +1004 FORMAT(' *CASPIP* PION+ -INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION NOT FOUND', + $ ' TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,/,2X, + $ ' ',2X,F8.4) +2001 FORMAT(' *CASPIP* TABLES FOR MULT. DATA PION+ INDUCED REACTION', + $ ' FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') +2002 FORMAT(' *CASPIP* TARGET PARTICLE FLAG',2X,I5) +2003 FORMAT(1H ,10E12.4) +2004 FORMAT(' *CASPIP* ',I3,2X,'PARTICLES , MASS INDEX ARRAY',2X,20I4) +2005 FORMAT(' *CASPIP* NO PARTICLES PRODUCED') +C + 9999 CONTINUE + RETURN + END +*CMZ : 19/07/94 16.37.18 by D. HECK IK3 KFK KARLSRUHE +*-- Author : Nick van Eijndhoven (CERN) 02/02/89 +C--------------------------------------------------------------------- + SUBROUTINE CASXM(K,INT,NFL) +C +C *** CASCADE OF XI- *** +C *** NVE 17-JAN-1989 CERN GENEVA *** +C +C XI- UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT, ASSUME NUCLEAR EXCITATION OCCURS, DEGRADE INPUT PARTICLE +C IN ENERGY AND NO OTHER PARTICLES ARE PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + REAL N + DIMENSION PMUL(2,1200),ANORM(2,60),CECH(10),IIPA(12,2),B(2) + DIMENSION RNDM(1) + SAVE PMUL,ANORM + SAVE + DATA CECH/0.50,0.45,0.40,0.35,0.30,0.25,0.06,0.04,0.005,0./ +C --- ARRAY IIPA DENOTES THE STRANGENESS AND CHARGE EXCHAGE REACTIONS --- +C XI- P --> XI0 N, XI- P --> N XI0 +C XI- P --> S0 S0, XI- P --> L0 L0 +C XI- P --> S0 L0, XI- P --> L0 S0 +C XI- P --> P XI- +C XI- N --> N XI- +C XI- N --> S0 S-, XI- N --> S- S0 +C XI- N --> L0 S-, XI- N --> S- L0 + DATA IIPA/26,16,21,18,21,18,14, 16,21,22,18,22, + * 16,26,21,18,18,21,27, 27,22,21,22,18/ + DATA B/0.7,0.7/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(19) --- + IF (KGINIT(19) .NE. 0) GO TO 10 + KGINIT(19)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL(I,J)=0.0 + IF (J .LE. 60) ANORM(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C *** COMPUTE NORMALIZATION CONSTANTS *** +C +C --- FOR P TARGET --- + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF (NMM1 .LE. 0) NMM1=1 + NPP1=NP1+1 + DO 1 NM1=NMM1,NPP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF (L .GT. 1200) GO TO 1 + NT=NP+NM+NZ + IF ((NT .LE. 0) .OR. (NT .GT. 60)) GO TO 1 + PMUL(1,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM(1,NT)=ANORM(1,NT)+PMUL(1,L) + 1 CONTINUE +C --- FOR N TARGET --- + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NMM1=NP1 + NPP1=NP1+2 + DO 2 NM1=NMM1,NPP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF (L .GT. 1200) GO TO 2 + NT=NP+NM+NZ + IF ((NT .LE. 0) .OR. (NT .GT. 60)) GO TO 2 + PMUL(2,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM(2,NT)=ANORM(2,NT)+PMUL(2,L) + 2 CONTINUE +C + DO 3 I=1,60 + IF (ANORM(1,I) .GT. 0.) ANORM(1,I)=1./ANORM(1,I) + IF (ANORM(2,I) .GT. 0.) ANORM(2,I)=1./ANORM(2,I) + 3 CONTINUE +C + IF (.NOT. NPRT(10)) GO TO 10 +C + WRITE(NEWBCD,2001) + 2001 FORMAT(' *CASXM* TABLES FOR MULT. DATA XI- INDUCED REACTION', + $ ' FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + 2002 FORMAT(' *CASXM* TARGET PARTICLE FLAG',2X,I5) + WRITE(NEWBCD,2003) (ANORM(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL(NFL,I),I=1,1200) + 2003 FORMAT(1H ,10E12.4) + 4 CONTINUE +C +C --- SELECT TARGET NUCLEON --- + 10 CONTINUE + NFL=2 + CALL GRNDM(RNDM,1) + IF (RNDM(1) .LT. (ZNO2/ATNO2)) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-RMASS(27) +C +C --- RESET STRANGENESS FIXING FLAG --- + NVEFIX=0 +C +C *** ELASTIC SCATTERING *** + NP=0 + NM=0 + NZ=0 + N=0. + IPA(1)=27 + IPA(2)=14 + IF (NFL .EQ. 2) IPA(2)=16 +C + IF (INT .EQ. 2) GO TO 20 +C +C *** INTRODUCE CHARGE AND STRANGENESS EXCHANGE REACTIONS *** + IPLAB=IFIX(P*2.5)+1 + IF (IPLAB .GT. 10) IPLAB=10 + CALL GRNDM(RNDM,1) + IF (RNDM(1) .GT. (CECH(IPLAB)/ATNO2**0.42)) GO TO 120 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IRN=IFIX(RAN*7.)+1 + IF (NFL .EQ. 2) IRN=7+IFIX(RAN*5.)+1 + IF (NFL .EQ. 1) IRN=MAX(IRN,7) + IF (NFL .EQ. 2) IRN=MAX(IRN,12) + IPA(1)=IIPA(IRN,1) + IPA(2)=IIPA(IRN,2) + GO TO 120 +C +C --- CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION --- + 20 CONTINUE + IF (EAB .LE. RMASS(7)) GO TO 55 +C +C --- NO. OF TOTAL PARTICLES VS SQRT(S)-MP-MSM --- + ALEAB=LOG(EAB) + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C +C --- NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION --- + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1./ANPN +C +C --- CHECK FOR TARGET NUCLEON TYPE --- + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GO TO (30,40),NFL +C +C --- PROTON TARGET --- + 30 CONTINUE + L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF (NMM1 .LE. 0) NMM1=1 + NPP1=NP1+1 + DO 31 NM1=NMM1,NPP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF (L .GT. 1200) GO TO 31 + NT=NP+NM+NZ + IF ((NT .LE. 0) .OR. (NT .GT. 60)) GO TO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(1,L)*ANORM(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF (RAN .LT. EXCS) GO TO 100 + 31 CONTINUE + GO TO 80 +C +C --- NEUTRON TARGET --- + 40 CONTINUE + L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NMM1=NP1 + NPP1=NP1+2 + DO 41 NM1=NMM1,NPP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF (L .GT. 1200) GO TO 41 + NT=NP+NM+NZ + IF ((NT .LE. 0) .OR. (NT .GT. 60)) GO TO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(2,L)*ANORM(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF (RAN .LT. EXCS) GO TO 100 + 41 CONTINUE + GO TO 80 +C + 50 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + 1003 FORMAT(' *CASXM* XI- -INDUCED CASCADE,', + $ ' AVAIL. ENERGY',2X,F8.4, + $ 2X,'',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') + IF (INT .EQ. 1) CALL TWOB(27,NFL,N) + IF (INT .EQ. 2) CALL GENXPT(27,NFL,N) + GO TO 9999 +C +C *** ENERGETICALLY NOT POSSIBLE TO PRODUCE ONE EXTRA PION *** + 55 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,1001) + 1001 FORMAT(' *CASXM* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI-ELASTIC SCATTERING') + GO TO 53 +C +C *** EXCLUSIVE REACTION NOT FOUND *** + 80 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,1004) RS,N + 1004 FORMAT(' *CASXM* XI- -INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION NOT FOUND', + $ ' TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,2X, + $ '',2X,F8.4) +C + 53 CONTINUE + INT=1 + NP=0 + NM=0 + NZ=0 + IPA(1)=27 + IPA(2)=14 + IF (NFL .EQ. 2) IPA(2)=16 + GO TO 120 +C +C *** INELASTIC INTERACTION HAS OCCURRED *** +C *** NUMBER OF SECONDARY MESONS DETERMINED BY KNO DISTRIBUTION *** + 100 CONTINUE + DO 101 I=1,60 + IPA(I)=0 + 101 CONTINUE +C + IF (INT .LE. 0) GO TO 131 +C +C --- TAKE TARGET NUCLEON TYPE INTO ACCOUNT --- + GO TO (102,112),NFL +C +C --- PROTON TARGET --- + 102 CONTINUE +C --- CHECK FOR TOTAL CHARGE OF FINAL STATE MESONS TO DETERMINE --- +C --- THE KIND OF BARYONS TO BE PRODUCED TAKING INTO ACCOUNT --- +C --- CHARGE AND STRANGENESS CONSERVATION --- + NCHT=NP-NM + IF (NCHT .LT. 0) GO TO 103 + IF (NCHT .EQ. 0) GO TO 104 + IF (NCHT .GT. 0) GO TO 105 +C + 103 CONTINUE +C --- XI0 P --- + IPA(1)=26 + IPA(2)=14 + IF (NCHT .EQ. -1) GO TO 120 +C --- CHARGE MISMATCH ==> TAKE A S+ AND CORRECT THE STRANGENESS --- +C --- BY REPLACING A PI- BY K- --- +C --- S+ P --- + IPA(1)=20 + IPA(2)=14 + NVEFIX=1 + GO TO 120 +C + 104 CONTINUE +C --- XI- P --- + IPA(1)=27 + IPA(2)=14 + CALL GRNDM(RNDM,1) + IF (RNDM(1) .LT. 0.5) GO TO 120 +C --- XI0 N --- + IPA(1)=26 + IPA(2)=16 + GO TO 120 +C + 105 CONTINUE +C --- XI- N --- + IPA(1)=27 + IPA(2)=16 + GO TO 120 +C +C --- NEUTRON TARGET --- + 112 CONTINUE +C --- CHECK FOR TOTAL CHARGE OF FINAL STATE MESONS TO DETERMINE --- +C --- THE KIND OF BARYONS TO BE PRODUCED TAKING INTO ACCOUNT --- +C --- CHARGE AND STRANGENESS CONSERVATION --- + NCHT=NP-NM + IF (NCHT .LT. -1) GO TO 113 + IF (NCHT .EQ. -1) GO TO 114 + IF (NCHT .GT. -1) GO TO 115 +C + 113 CONTINUE +C --- XI0 P --- + IPA(1)=26 + IPA(2)=14 + IF (NCHT .EQ. -2) GO TO 120 +C --- CHARGE MISMATCH ==> TAKE A S+ AND CORRECT THE STRANGENESS --- +C --- BY REPLACING A PI- BY K- --- +C --- S+ P --- + IPA(1)=20 + IPA(2)=14 + NVEFIX=1 + GO TO 120 +C + 114 CONTINUE +C --- XI0 N --- + IPA(1)=26 + IPA(2)=16 + CALL GRNDM(RNDM,1) + IF (RNDM(1) .LT. 0.5) GO TO 120 +C --- XI- P --- + IPA(1)=27 + IPA(2)=14 + GO TO 120 +C + 115 CONTINUE +C --- XI- N --- + IPA(1)=27 + IPA(2)=16 +C +C --- TAKE PIONS FOR ALL SECONDARY MESONS --- + 120 CONTINUE + NT=2 +C + IF (NP .EQ. 0) GO TO 122 +C +C --- PI+ --- + DO 121 I=1,NP + NT=NT+1 + IPA(NT)=7 + 121 CONTINUE +C + 122 CONTINUE + IF (NM .EQ. 0) GO TO 124 +C +C --- PI- --- + DO 123 I=1,NM + NT=NT+1 + IPA(NT)=9 + IF (NVEFIX .GE. 1) IPA(NT)=13 + IF (NPRT(4) .AND. (NVEFIX .GE. 1)) PRINT 3000 + 3000 FORMAT(' *CASXM* K- INTRODUCED') + NVEFIX=NVEFIX-1 + 123 CONTINUE +C + 124 CONTINUE + IF (NZ .EQ. 0) GO TO 130 +C +C --- PI0 --- + DO 125 I=1,NZ + NT=NT+1 + IPA(NT)=8 + 125 CONTINUE +C +C --- ALL SECONDARY PARTICLES HAVE BEEN DEFINED --- +C --- NOW GO FOR MOMENTA AND X VALUES --- + 130 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,2004) NT,(IPA(I),I=1,60) + 2004 FORMAT(' *CASXM* ',I3,' PARTICLES PRODUCED. MASS INDEX ARRAY : '/ + $ 3(1H ,20(I3,1X)/)) + GO TO 50 +C + 131 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,2005) + 2005 FORMAT(' *CASXM* NO PARTICLES PRODUCED') +C + 9999 CONTINUE + RETURN + END +*CMZ : 19/07/94 16.37.49 by D. HECK IK3 KFK KARLSRUHE +*-- Author : Nick van Eijndhoven (CERN) 02/02/89 +C--------------------------------------------------------------------- + SUBROUTINE CASX0(K,INT,NFL) +C +C *** CASCADE OF XI0 *** +C *** NVE 20-JAN-1989 CERN GENEVA *** +C +C XI0 UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS. +C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS. +C IF NOT, ASSUME NUCLEAR EXCITATION OCCURS, DEGRADE INPUT PARTICLE +C IN ENERGY AND NO OTHER PARTICLES ARE PRODUCED. +C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/ +C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA. +C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS +C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS. +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + REAL N + DIMENSION PMUL(2,1200),ANORM(2,60),CECH(10),IIPA(12,2),B(2) + DIMENSION RNDM(1) + SAVE PMUL,ANORM + SAVE + DATA CECH/0.50,0.45,0.40,0.35,0.30,0.25,0.06,0.04,0.005,0./ +C --- ARRAY IIPA DENOTES THE STRANGENESS AND CHARGE EXCHAGE REACTIONS --- +C XI0 P --> S+ S0, XI0 P --> S0 S+ +C XI0 P --> S+ L0, XI0 P --> L0 S+ +C XI0 P --> P XI0 +C XI0 N --> S0 S0 +C XI0 N --> L0 L0 +C XI0 N --> XI- P, XI0 N --> P XI- +C XI0 N --> S+ S-, XI0 N --> S- S+ +C XI0 N --> N XI0 + DATA IIPA/20,21,20,18,14, 21,18,27,14,20,22,16, + * 21,20,18,20,26, 21,18,14,27,22,20,26/ + DATA B/0.7,0.7/,C/1.25/ +C +C --- INITIALIZATION INDICATED BY KGINIT(20) --- + IF (KGINIT(20) .NE. 0) GO TO 10 + KGINIT(20)=1 +C +C --- INITIALIZE PMUL AND ANORM ARRAYS --- + DO 9000 J=1,1200 + DO 9001 I=1,2 + PMUL(I,J)=0.0 + IF (J .LE. 60) ANORM(I,J)=0.0 + 9001 CONTINUE + 9000 CONTINUE +C +C *** COMPUTE NORMALIZATION CONSTANTS *** +C +C --- FOR P TARGET --- + L=0 + DO 1 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF (NMM1 .LE. 0) NMM1=1 + NPP1=NP1+1 + DO 1 NM1=NMM1,NPP1 + NM=NM1-1 + DO 1 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF (L .GT. 1200) GO TO 1 + NT=NP+NM+NZ + IF ((NT .LE. 0) .OR. (NT .GT. 60)) GO TO 1 + PMUL(1,L)=PMLTPC(NP,NM,NZ,NT,B(1),C) + ANORM(1,NT)=ANORM(1,NT)+PMUL(1,L) + 1 CONTINUE +C --- FOR N TARGET --- + L=0 + DO 2 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF (NMM1 .LE. 0) NMM1=1 + NPP1=NP1+2 + DO 2 NM1=NMM1,NPP1 + NM=NM1-1 + DO 2 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF (L .GT. 1200) GO TO 2 + NT=NP+NM+NZ + IF ((NT .LE. 0) .OR. (NT .GT. 60)) GO TO 2 + PMUL(2,L)=PMLTPC(NP,NM,NZ,NT,B(2),C) + ANORM(2,NT)=ANORM(2,NT)+PMUL(2,L) + 2 CONTINUE +C + DO 3 I=1,60 + IF (ANORM(1,I) .GT. 0.) ANORM(1,I)=1./ANORM(1,I) + IF (ANORM(2,I) .GT. 0.) ANORM(2,I)=1./ANORM(2,I) + 3 CONTINUE +C + IF (.NOT. NPRT(10)) GO TO 10 +C + WRITE(NEWBCD,2001) + 2001 FORMAT(' *CASX0* TABLES FOR MULT. DATA XI0 INDUCED REACTION', + $ ' FOR DEFINITION OF NUMBERS SEE FORTRAN CODING') + DO 4 NFL=1,2 + WRITE(NEWBCD,2002) NFL + 2002 FORMAT(' *CASX0* TARGET PARTICLE FLAG',2X,I5) + WRITE(NEWBCD,2003) (ANORM(NFL,I),I=1,60) + WRITE(NEWBCD,2003) (PMUL(NFL,I),I=1,1200) + 2003 FORMAT(1H ,10E12.4) + 4 CONTINUE +C +C --- SELECT TARGET NUCLEON --- + 10 CONTINUE + NFL=2 + CALL GRNDM(RNDM,1) + IF (RNDM(1) .LT. (ZNO2/ATNO2)) NFL=1 + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + S=AMASQ+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(8)=AMASQ+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EAB=RS-TARMAS-RMASS(26) +C +C --- RESET STRANGENESS FIXING FLAG --- + NVEFIX=0 +C +C *** ELASTIC SCATTERING *** + NP=0 + NM=0 + NZ=0 + N=0. + IPA(1)=26 + IPA(2)=14 + IF (NFL .EQ. 2) IPA(2)=16 +C + IF (INT .EQ. 2) GO TO 20 +C +C *** INTRODUCE CHARGE AND STRANGENESS EXCHANGE REACTIONS *** + IPLAB=IFIX(P*2.5)+1 + IF (IPLAB .GT. 10) IPLAB=10 + CALL GRNDM(RNDM,1) + IF (RNDM(1) .GT. (CECH(IPLAB)/ATNO2**0.42)) GO TO 120 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IRN=IFIX(RAN*5.)+1 + IF (NFL .EQ. 2) IRN=5+IFIX(RAN*7.)+1 + IF (NFL .EQ. 1) IRN=MAX(IRN,5) + IF (NFL .EQ. 2) IRN=MAX(IRN,12) + IPA(1)=IIPA(IRN,1) + IPA(2)=IIPA(IRN,2) + GO TO 120 +C +C --- CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE ONE EXTRA PION --- + 20 CONTINUE + IF (EAB .LE. RMASS(7)) GO TO 55 +C +C --- NO. OF TOTAL PARTICLES VS SQRT(S)-MP-MSM --- + ALEAB=LOG(EAB) + N=3.62567+0.665843*ALEAB+0.336514*ALEAB*ALEAB + * +0.117712*ALEAB*ALEAB*ALEAB+0.0136912*ALEAB*ALEAB*ALEAB*ALEAB + N=N-2. +C +C --- NORMALIZATION CONSTANT FOR KNO-DISTRIBUTION --- + ANPN=0. + DO 21 NT=1,60 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=PI*NT/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + ANPN=ANPN+ADDNVE + 21 CONTINUE + ANPN=1./ANPN +C +C --- CHECK FOR TARGET NUCLEON TYPE --- + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + EXCS=0. + GO TO (30,40),NFL +C +C --- PROTON TARGET --- + 30 CONTINUE + L=0 + DO 31 NP1=1,20 + NP=NP1-1 + NMM1=NP1-2 + IF (NMM1 .LE. 0) NMM1=1 + NPP1=NP1+1 + DO 31 NM1=NMM1,NPP1 + NM=NM1-1 + DO 31 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF (L .GT. 1200) GO TO 31 + NT=NP+NM+NZ + IF ((NT .LE. 0) .OR. (NT .GT. 60)) GO TO 31 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(1,L)*ANORM(1,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF (RAN .LT. EXCS) GO TO 100 + 31 CONTINUE + GO TO 80 +C +C --- NEUTRON TARGET --- + 40 CONTINUE + L=0 + DO 41 NP1=1,20 + NP=NP1-1 + NMM1=NP1-1 + IF (NMM1 .LE. 0) NMM1=1 + NPP1=NP1+2 + DO 41 NM1=NMM1,NPP1 + NM=NM1-1 + DO 41 NZ1=1,20 + NZ=NZ1-1 + L=L+1 + IF (L .GT. 1200) GO TO 41 + NT=NP+NM+NZ + IF ((NT .LE. 0) .OR. (NT .GT. 60)) GO TO 41 + TEST=-(PI/4.0)*(NT/N)**2 + IF (TEST .LT. EXPXL) TEST=EXPXL + IF (TEST .GT. EXPXU) TEST=EXPXU + DUM1=ANPN*PI*NT*PMUL(2,L)*ANORM(2,NT)/(2.0*N*N) + DUM2=ABS(DUM1) + DUM3=EXP(TEST) + ADDNVE=0.0 + IF (DUM2 .GE. 1.0) ADDNVE=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GE. 1.0E-10)) ADDNVE=DUM1*DUM3 + EXCS=EXCS+ADDNVE + IF (RAN .LT. EXCS) GO TO 100 + 41 CONTINUE + GO TO 80 +C + 50 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,1003) EAB,N,NFL,NP,NM,NZ + 1003 FORMAT(' *CASX0* XI0 -INDUCED CASCADE,', + $ ' AVAIL. ENERGY',2X,F8.4, + $ 2X,'',2X,F8.4,2X,'FROM',4(2X,I3),2X,'PARTICLES') + IF (INT .EQ. 1) CALL TWOB(27,NFL,N) + IF (INT .EQ. 2) CALL GENXPT(27,NFL,N) + GO TO 9999 +C +C *** ENERGETICALLY NOT POSSIBLE TO PRODUCE ONE EXTRA PION *** + 55 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,1001) + 1001 FORMAT(' *CASX0* CASCADE ENERGETICALLY NOT POSSIBLE', + $ ' CONTINUE WITH QUASI-ELASTIC SCATTERING') + GO TO 53 +C +C *** EXCLUSIVE REACTION NOT FOUND *** + 80 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,1004) RS,N + 1004 FORMAT(' *CASX0* XI0 -INDUCED CASCADE,', + $ ' EXCLUSIVE REACTION NOT FOUND', + $ ' TRY ELASTIC SCATTERING AVAIL. ENERGY',2X,F8.4,2X, + $ '',2X,F8.4) +C + 53 CONTINUE + INT=1 + NP=0 + NM=0 + NZ=0 + IPA(1)=26 + IPA(2)=14 + IF (NFL .EQ. 2) IPA(2)=16 + GO TO 120 +C +C *** INELASTIC INTERACTION HAS OCCURRED *** +C *** NUMBER OF SECONDARY MESONS DETERMINED BY KNO DISTRIBUTION *** + 100 CONTINUE + DO 101 I=1,60 + IPA(I)=0 + 101 CONTINUE +C + IF (INT .LE. 0) GO TO 131 +C +C --- TAKE TARGET NUCLEON TYPE INTO ACCOUNT --- + GO TO (102,112),NFL +C +C --- PROTON TARGET --- + 102 CONTINUE +C --- CHECK FOR TOTAL CHARGE OF FINAL STATE MESONS TO DETERMINE --- +C --- THE KIND OF BARYONS TO BE PRODUCED TAKING INTO ACCOUNT --- +C --- CHARGE AND STRANGENESS CONSERVATION --- + NCHT=NP-NM + IF (NCHT .LT. 1) GO TO 103 + IF (NCHT .EQ. 1) GO TO 104 + IF (NCHT .GT. 1) GO TO 105 +C + 103 CONTINUE +C --- XI0 P --- + IPA(1)=26 + IPA(2)=14 + IF (NCHT .EQ. 0) GO TO 120 +C --- CHARGE MISMATCH ==> TAKE A S+ AND CORRECT THE STRANGENESS --- +C --- BY REPLACING A PI- BY K- --- +C --- S+ P --- + IPA(1)=20 + IPA(2)=14 + NVEFIX=1 + GO TO 120 +C + 104 CONTINUE +C --- XI0 N --- + IPA(1)=26 + IPA(2)=16 + CALL GRNDM(RNDM,1) + IF (RNDM(1) .LT. 0.5) GO TO 120 +C --- XI- P --- + IPA(1)=27 + IPA(2)=14 + GO TO 120 +C + 105 CONTINUE +C --- XI- N --- + IPA(1)=27 + IPA(2)=16 + GO TO 120 +C +C --- NEUTRON TARGET --- + 112 CONTINUE +C --- CHECK FOR TOTAL CHARGE OF FINAL STATE MESONS TO DETERMINE --- +C --- THE KIND OF BARYONS TO BE PRODUCED TAKING INTO ACCOUNT --- +C --- CHARGE AND STRANGENESS CONSERVATION --- + NCHT=NP-NM + IF (NCHT .LT. 0) GO TO 113 + IF (NCHT .EQ. 0) GO TO 114 + IF (NCHT .GT. 0) GO TO 115 +C + 113 CONTINUE +C --- XI0 P --- + IPA(1)=26 + IPA(2)=14 + IF (NCHT .EQ. -1) GO TO 120 +C --- CHARGE MISMATCH ==> TAKE A S+ AND CORRECT THE STRANGENESS --- +C --- BY REPLACING A PI- BY K- --- +C --- S+ P --- + IPA(1)=20 + IPA(2)=14 + NVEFIX=1 + GO TO 120 +C + 114 CONTINUE +C --- XI0 N --- + IPA(1)=26 + IPA(2)=16 + CALL GRNDM(RNDM,1) + IF (RNDM(1) .LT. 0.5) GO TO 120 +C --- XI- P --- + IPA(1)=27 + IPA(2)=14 + GO TO 120 +C + 115 CONTINUE +C --- XI- N --- + IPA(1)=27 + IPA(2)=16 +C +C --- TAKE PIONS FOR ALL SECONDARY MESONS --- +C --- REPLACE PI BY K IN CASE OF STRANGENESS TO BE FIXED --- + 120 CONTINUE + NT=2 +C + IF (NP .EQ. 0) GO TO 122 +C +C --- PI+ --- + DO 121 I=1,NP + NT=NT+1 + IPA(NT)=7 + 121 CONTINUE +C + 122 CONTINUE + IF (NM .EQ. 0) GO TO 124 +C +C --- PI- --- + DO 123 I=1,NM + NT=NT+1 + IPA(NT)=9 + IF (NVEFIX .GE. 1) IPA(NT)=13 + IF (NPRT(4) .AND. (NVEFIX .GE. 1)) PRINT 3000 + 3000 FORMAT(' *CASX0* K- INTRODUCED') + NVEFIX=NVEFIX-1 + 123 CONTINUE +C + 124 CONTINUE + IF (NZ .EQ. 0) GO TO 130 +C +C --- PI0 --- + DO 125 I=1,NZ + NT=NT+1 + IPA(NT)=8 + 125 CONTINUE +C +C --- ALL SECONDARY PARTICLES HAVE BEEN DEFINED --- +C --- NOW GO FOR MOMENTA AND X VALUES --- + 130 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,2004) NT,(IPA(I),I=1,60) + 2004 FORMAT(' *CASX0* ',I3,' PARTICLES PRODUCED. MASS INDEX ARRAY : '/ + $ 3(1H ,20(I3,1X)/)) + GO TO 50 +C + 131 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,2005) + 2005 FORMAT(' *CASX0* NO PARTICLES PRODUCED') +C + 9999 CONTINUE + RETURN + END +*CMZU: 3.16/00 05/11/93 17.20.00 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + FUNCTION CINEMA(EK1) +C +C *** INELASTICITY IN NUCLEAR INTERACTIONS AS A FUNCTION *** +C *** OF ATOMIC NUMBER ATNO2 AND KINETIC ENERGY EK1 *** +C *** NVE 12-JUL-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (14-OCT-1987) +C +C THE FUNCTIONAL DEPENDENCE AND THE PARAMETERS HAVE BEEN OBTAINED +C BY STUDY OF VARIOUS NUCLEAR STRUCTURE MODELS. +C BUT: IT IS OF COURSE AN INTERPOLATION AS FUNCTION OF ATOMIC +C NUMBER, FOR CERTAIN NUCLEI A DIFFERENT DESCRIPTION MAY BE +C MORE ADEQUATE. DETAILED TESTS HAVE BEEN PERFORMED FOR +C FE, CU, PB ,U AND SOME MIXTURES LIKE NAI, BGO, CONCRETE. +C + PARAMETER (MXGKGH=100) + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/MAT / LMAT, + * DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSL(21), + * CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + * MATID(21),MATID1(21,24),PARMAT(21,10), + * IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + * ATNO1(21,10),ZNO1(21,10) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C + SAVE +C + CINEMA=0.0 + ND=IND+1 + ALA=LOG(ATNO2) + ALEK1=LOG(EK1) + SIG1=0.50 + SIG2=0.50 + EM=0.2390+0.0408*ALA**2 + IF (EM. GT. 1.0) EM=1.0 + CINEM=0.0019*ALA**3 + IF(CINEM.GT.0.15) CINEM=0.15 + IF (PARMAT(ND,10) .GE. 0.01) CINEM=CINEM*PARMAT(ND,10) +C + IF (ALEK1 .GT. EM) GO TO 1 +C + CORR=-(ALEK1-EM)**2/(2.0*SIG1**2) + IF (CORR .LT. EXPXL) CORR=EXPXL + IF (CORR .GT. EXPXU) CORR=EXPXU + DUM1=-EK1*CINEM + DUM2=ABS(DUM1) + DUM3=EXP(CORR) + CINEMA=0.0 + IF (DUM2 .GE. 1.0) CINEMA=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GT. 1.0E-10)) CINEMA=DUM1*DUM3 + GO TO 2 +C + 1 CONTINUE + CORR=-(ALEK1-EM)**2/(2.0*SIG2**2) + IF (CORR .LT. EXPXL) CORR=EXPXL + IF (CORR .GT. EXPXU) CORR=EXPXU + DUM1=-EK1*CINEM + DUM2=ABS(DUM1) + DUM3=EXP(CORR) + CINEMA=0.0 + IF (DUM2 .GE. 1.0) CINEMA=DUM1*DUM3 + IF ((DUM2 .LT. 1.0) .AND. (DUM3 .GT. 1.0E-10)) CINEMA=DUM1*DUM3 +C + 2 CONTINUE + IF (CINEMA .LT. -EK1) CINEMA=-EK1 +C + RETURN + END +*CMZ : 3.16/00 05/11/93 18.12.42 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE COHERT(IPPP,NFL,AVERN) +C +C *** GENERATION OF X- AND PT- VALUES FOR ALL PRODUCED PARTICLES *** +C +C +C GENERATION OF DIFFRACTION DISSOCIATION AT HIGH ENERGIES +C (NOT USED IN STANDARD VERSION) +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/MAT / LMAT, + * DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSL(21), + * CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + * MATID(21),MATID1(21,24),PARMAT(21,10), + * IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + * ATNO1(21,10),ZNO1(21,10) +C + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + COMMON/ERRCOM/ IER(100) +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + COMMON/GENIN /TECM,AMASS(18),NPG,KGENEV + COMMON/GENOUT/PCM(5,18),WGT +C +C + REAL NUCSUP + DIMENSION SIDE(200),C1PAR(5),G1PAR(5),NUCSUP(5) + DIMENSION RNDM(3) + SAVE + DATA C1PAR/0.6,0.6,0.35,0.15,0.10/ + DATA G1PAR/2.6,2.6,1.8,1.30,1.20/ + DATA NUCSUP/1.0,0.8,0.6,0.5,0.4/ +C DATA CB/3.0/ + DATA CB/0.01/ +C + BPP(X)=5.000+0.300*LOG(X) +C + MX =MXGKPV-20 + MX1=MX+1 + MX2=MX+2 + MX3=MX+3 + MX4=MX+4 + MX5=MX+5 + MX6=MX+6 + MX7=MX+7 + MX8=MX+8 + EK=ENP(5) + EN=ENP(6) + P=ENP(7) + S=ENP(8) + RS=ENP(9) + CFA=0.025*((ATNO2-1.)/120.)*EXP(-(ATNO2-1.)/120.) + IF(P.LT.0.001) GOTO 60 + NT=0 +C** + IREHMF=4 + IF(IABS(IPA(1)).NE.IPART) IREHMF=5 + +C** CHECK MASS-INDICES FOR ALL PARTICLES +C** + DO 1 I=1,100 + IF(IPA(I).EQ.0) GOTO 1 + NT=NT+1 + IPA(NT)=IPA(I) + 1 CONTINUE +* CALL VZERO(IPA(NT+1),MXGKCU-NT) +CDH + DO III = NT+1, MXGKCU + IPA(III) = 0 + ENDDO +C** +C** SET THE EFFECTICE 4-MOMENTUM-VECTOR FOR INTERACTION +C** + PV( 1,MXGKPV-1)=P*PX + PV( 2,MXGKPV-1)=P*PY + PV( 3,MXGKPV-1)=P*PZ + PV( 4,MXGKPV-1)=EN + PV( 5,MXGKPV-1)=AMAS + PV( 6,MXGKPV-1)=NCH + PV( 7,MXGKPV-1)=TOF + PV( 8,MXGKPV-1)=IPART + PV( 9,MXGKPV-1)=0. + PV(10,MXGKPV-1)=USERW + IER(48)=IER(48)+1 +C** +C** DISTRIBUTE PARTICLES IN FORWARD AND BACKWARD HEMISPHERE OF CMS +C** OF THE HADRON NUCLEON INTERACTION +C** + SIDE(1)= 1. + SIDE(2)=-1. + TARG=0. + IFOR=1 + IBACK=1 + DO 3 I=1,NT + IF (I .LE. 2) GO TO 78 + SIDE(I)= -1. + IF (SIDE(I) .LT. 0.) GO TO 76 +C +C --- PARTICLE IN FORWARD HEMISPHERE --- + 77 CONTINUE + IFOR=IFOR+1 + IF (IFOR .LE. 18) GO TO 78 +C +C --- CHANGE IT TO BACKWARD --- + SIDE(I)=-1. + IFOR=IFOR-1 + IBACK=IBACK+1 + GO TO 78 +C +C --- PARTICLE IN BACKWARD HEMISPHERE --- + 76 CONTINUE + IBACK=IBACK+1 + IF (IBACK .LE. 18) GO TO 78 +C +C --- CHANGE IT TO FORWARD --- + SIDE(I)=1. + IBACK=IBACK-1 + IFOR=IFOR+1 +C** +C** SUPPRESSION OF CHARGED PIONS FOR VARIOUS REASONS +C** + 78 IF(IPART.EQ.15.OR.IPART.GE.17) GOTO 3 + IF(ABS(IPA(I)).GE.10) GOTO 3 + IF(ABS(IPA(I)).EQ. 8) GOTO 3 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.(10.-P)/6.) GOTO 3 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.ATNO2/300.) GOTO 3 + IPA(I)=14 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.ZNO2/ATNO2) IPA(I)=16 + TARG=TARG+1. + 3 CONTINUE + TB=2.*IBACK + CALL GRNDM(RNDM,1) + IF(RS.LT.(2.0+RNDM(1))) TB=(2.*IBACK+NT)/2. +C** +C** NUCLEONS + SOME PIONS FROM INTRANUCLEAR CASCADE +C** + AFC=0.312+0.200*LOG(LOG(S)) + XTARG=AFC*(ATNO2**0.33-1.0)*TB + IF(XTARG.LE.0.) XTARG=0.01 + CALL POISSO(XTARG,NTARG) + NT2=NT+NTARG + IF(NT2.LE.MXGKPV-30) GOTO 2 + NT2=MXGKPV-30 + NTARG=NT2-NT + 2 CONTINUE + IF(NPRT(4)) + *WRITE(NEWBCD,3001) NTARG,NT + NT1=NT+1 + IF(NTARG.EQ.0) GOTO 51 + IPX=IFIX(P/3.)+1 + IF(IPX.GT.5) IPX=5 + DO 4 I=NT1,NT2 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IF(RAN.LT.NUCSUP(IPX)) GOTO 52 + CALL GRNDM(RNDM,1) + IPA(I)=-(7+IFIX(RNDM(1)*3.0)) + GOTO 4 + 52 IPA(I)=-16 + PNRAT=1.-ZNO2/ATNO2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.PNRAT) IPA(I)=-14 + TARG=TARG+1. + 4 SIDE(I)=-2. + NT=NT2 +C** +C** CHOOSE MASSES AND CHARGES FOR ALL PARTICLES +C** + 51 DO 5 I=1,NT + IPA1=ABS(IPA(I)) + PV(5,I)=RMASS(IPA1) + PV(6,I)=RCHARG(IPA1) + PV(7,I)=1. + IF(PV(5,I).LT.0.) PV(7,I)=-1. + PV(5,I)=ABS(PV(5,I)) + 5 CONTINUE +C** +C** MARK LEADING STRANGE PARTICLES +C** + LEAD=0 + IF(IPART.LT.10.OR.IPART.EQ.14.OR.IPART.EQ.16) GOTO 6 + IPA1=ABS(IPA(1)) + IF(IPA1.LT.10.OR.IPA1.EQ.14.OR.IPA1.EQ.16) GOTO 531 + LEAD=IPA1 + GOTO 6 + 531 IPA1=ABS(IPA(2)) + IF(IPA1.LT.10.OR.IPA1.EQ.14.OR.IPA1.EQ.16) GOTO 6 + LEAD=IPA1 +C** +C** CHECK AVAILABLE KINETIC ENERGY , CHANGE HEMISPHERE FOR PARTICLES +C** UNTIL IT FITS +C** + 6 IF(NT.LE.1) GOTO 60 + TAVAI=0. + DO 7 I=1,NT + IF(SIDE(I).LT.-1.5) GOTO 7 + TAVAI=TAVAI+ABS(PV(5,I)) + 7 CONTINUE +CJOK MODIFIED ACCORDING TO D.HECK + IF(TAVAI.LT.RS-0.00001) GOTO 12 + IF(NPRT(4)) + $ WRITE(NEWBCD,3002) (IPA(I),I=1,20),(SIDE(I),I=1,20),TAVAI,RS + 3002 FORMAT(' *COHERT* CHECK AVAILABLE ENERGIES'/ + $ 1H ,20I5/1H ,20F5.0/1H ,'TAVAI,RS ',2F10.3) + DO 10 I=1,NT + II=NT-I+1 + IF(SIDE(II).LT.-1.5) GOTO 10 + IF(II.EQ.NT) GOTO 11 + NT1=II+1 + NT2=NT + DO 8 J=NT1,NT2 + IPA(J-1)=IPA(J) + SIDE(J-1)=SIDE(J) + DO 8 K=1,10 + 8 PV(K,J-1)=PV(K,J) + GOTO 11 + 10 CONTINUE + 11 SIDE(NT)=0. + IPA(NT)=0 + NT=NT-1 + GOTO 6 + 12 IF(NT.LE.1) GOTO 60 + B=BPP(ATNO2) + IF(B.LT.CB) B=CB +C** +C** CHOOSE MASSES FOR THE 3 CLUSTER: 1. FORWARD CLUSTER +C** 2. BACKWARD MESON CLUSTER 3. BACKWARD NUCLEON CLUSTER +C** + RMC0=0. + RMD0=0. + RME0=0. + NTC=0 + NTD=0 + NTE=0 + DO 31 I=1,NT + IF(SIDE(I).GT.0.) RMC0=RMC0+ABS(PV(5,I)) + IF(SIDE(I).GT.0.) NTC =NTC +1 + IF(SIDE(I).LT.0..AND.SIDE(I).GT.-1.5) RMD0=RMD0+ABS(PV(5,I)) + IF( SIDE(I).LT.-1.5) RME0=RME0+ABS(PV(5,I)) + IF(SIDE(I).LT.0..AND.SIDE(I).GT.-1.5) NTD =NTD +1 + IF( SIDE(I).LT.-1.5) NTE =NTE +1 + 31 CONTINUE + 32 CALL GRNDM(RNDM,1) + RAN=RNDM(1) + RMC=RMC0 + IF(NTC.LE.1) GOTO 33 + NTC1=NTC + IF(NTC1.GT.5) NTC1=5 + RMC=-LOG(1.-RAN) + GPAR=G1PAR(NTC1) + CPAR=C1PAR(NTC1) + DUMNVE=GPAR + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + RMC=RMC0+RMC**CPAR/DUMNVE + 33 RMD=RMD0 + IF(NTD.LE.1) GOTO 34 + NTD1=NTD + IF(NTD1.GT.5) NTD1=5 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + RMD=-LOG(1.-RAN) + GPAR=G1PAR(NTD1) + CPAR=C1PAR(NTD1) + DUMNVE=GPAR + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + RMD=RMD0+RMD**CPAR/DUMNVE + 34 IF(RMC+RMD.LT.RS) GOTO 35 + IF (RMC.LE.RMC0.AND.RMD.LE.RMD0) THEN + HNRMDC = 0.999*RS/(RMC+RMD) + RMD = RMD*HNRMDC + RMC = RMC*HNRMDC + ELSE + RMC=0.1*RMC0+0.9*RMC + RMD=0.1*RMD0+0.9*RMD + ENDIF + GOTO 34 + 35 IF(NTE.LE.0) GOTO 38 + RME=RME0 + IF(NTE.EQ.1) GOTO 38 + NTE1=NTE + IF(NTE1.GT.5) NTE1=5 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + RME=-LOG(1.-RAN) + GPAR=G1PAR(NTE1) + CPAR=C1PAR(NTE1) + DUMNVE=GPAR + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + RME=RME0+RME**CPAR/DUMNVE +C** +C** SET BEAM , TARGET OF FIRST INTERACTION IN CMS +C** + 38 PV(1,MX1)=0. + PV(2,MX1)=0. + PV(3,MX1)=P + PV(5,MX1)=ABS(AMAS) + PV(4,MX1)=SQRT(P*P+AMAS*AMAS) + PV(1,MX2)=0. + PV(2,MX2)=0. + PV(3,MX2)=0. + PV(4,MX2)=MP + PV(5,MX2)=MP + +C** TRANSFORM INTO CMS. + + CALL ADD(MX1,MX2,MX ) + CALL LOR(MX1,MX ,MX1) + CALL LOR(MX2,MX ,MX2) + PF=(S+RMD*RMD-RMC*RMC)**2 - 4*S*RMD*RMD + IF(PF.LT.0.0001) PF=0.0001 + DUMNVE=2.0*RS + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + PF=SQRT(PF)/DUMNVE + IF(NPRT(4)) WRITE(6,2002) PF,RMC,RMD,RS +C** +C** SET FINAL STATE MASSES AND ENERGIES IN CMS +C** + PV(5,MX3)=RMC + PV(5,MX4)=RMD + PV(4,MX3)=SQRT(PF*PF+PV(5,MX3)*PV(5,MX3)) + PV(4,MX4)=SQRT(PF*PF+PV(5,MX4)*PV(5,MX4)) +C** +C** SET |T| AND |TMIN| +C** + T=-1.0E10 + CALL GRNDM(RNDM,1) + IF (B .NE. 0.0) T=LOG(1.-RNDM(1))/B + CALL LENGTX(MX1,PIN) + TACMIN=(PV(4,MX1)-PV(4,MX3))**2-(PIN-PF)**2 +C** +C** CACULATE (SIN(TETA/2.)**2 AND COS(TETA), SET AZIMUTH ANGLE PHI +C** + DUMNVE=4.0*PIN*PF + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + CTET=-(T-TACMIN)/DUMNVE + CTET=1.0-2.0*CTET + IF (CTET .GT. 1.0) CTET=1.0 + IF (CTET .LT. -1.0) CTET=-1.0 + DUMNVE=1.0-CTET*CTET + IF (DUMNVE .LT. 0.0) DUMNVE=0.0 + STET=SQRT(DUMNVE) + CALL GRNDM(RNDM,1) + PHI=RNDM(1)*TWPI +C** +C** CALCULATE FINAL STATE MOMENTA IN CMS +C** + PV(1,MX3)=PF*STET*SIN(PHI) + PV(2,MX3)=PF*STET*COS(PHI) + PV(3,MX3)=PF*CTET + PV(1,MX4)=-PV(1,MX3) + PV(2,MX4)=-PV(2,MX3) + PV(3,MX4)=-PV(3,MX3) +C** +C** SIMULATE BACKWARD NUCLEON CLUSTER IN LAB. SYSTEM AND TRANSFORM IN +C** CMS. +C** + IF(NTE.EQ.0) GOTO 28 + GA=1.2 + EKIT1=0.04 + EKIT2=0.6 + IF(EK.GT.5.) GOTO 666 + EKIT1=EKIT1*EK**2/25. + EKIT2=EKIT2*EK**2/25. + 666 A=(1.-GA)/(EKIT2**(1.-GA)-EKIT1**(1.-GA)) + DO 29 I=1,NT + IF(SIDE(I).GT.-1.5) GOTO 29 + CALL GRNDM(RNDM,3) + RAN=RNDM(1) + EKIT=(RAN*(1.-GA)/A+EKIT1**(1.-GA))**(1./(1.-GA)) + PV(4,I)=EKIT+PV(5,I) + DUMNVE=ABS(PV(4,I)**2-PV(5,I)**2) + PP=SQRT(DUMNVE) + RAN=RNDM(2) + COST=LOG(2.23*RAN+0.383)/0.96 + IF (COST .LT. -1.0) COST=-1.0 + IF (COST .GT. 1.0) COST=1.0 + DUMNVE=1.0-COST*COST + IF (DUMNVE .LT. 0.0) DUMNVE=0.0 + SINT=SQRT(DUMNVE) + PHI=TWPI*RNDM(3) + PV(1,I)=PP*SINT*SIN(PHI) + PV(2,I)=PP*SINT*COS(PHI) + PV(3,I)=PP*COST + CALL LOR(I,MX ,I) + 29 CONTINUE +C** +C** FRAGMENTATION OF FORWARD CLUSTER AND BACKWARD MESON CLUSTER +C** + 28 PV(1,1)=PV(1,MX3) + PV(2,1)=PV(2,MX3) + PV(3,1)=PV(3,MX3) + PV(4,1)=PV(4,MX3) + PV(1,2)=PV(1,MX4) + PV(2,2)=PV(2,MX4) + PV(3,2)=PV(3,MX4) + PV(4,2)=PV(4,MX4) + DO 17 I=MX5,MX6 + DO 16 J=1,3 + 16 PV(J,I)=-PV(J,I-2) + DO 17 J=4,5 + 17 PV(J,I)= PV(J,I-2) + KGENEV=1 + IF(NTC.LE.1) GOTO 26 + TECM= PV(5,MX3) + NPG=0 + DO 18 I=1,NT + IF(SIDE(I).LT.0.) GOTO 18 + NPG=NPG+1 + AMASS(NPG)=ABS(PV(5,I)) + 18 CONTINUE + IF(NPRT(4)) WRITE(NEWBCD,2004) TECM,NPG,(AMASS(I),I=1,NPG) + CALL PHASP + NPG=0 + DO 19 I=1,NT + IF(SIDE(I).LT.0.) GOTO 19 + NPG=NPG+1 + PV(1,I)=PCM(1,NPG) + PV(2,I)=PCM(2,NPG) + PV(3,I)=PCM(3,NPG) + PV(4,I)=PCM(4,NPG) + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + CALL LOR(I,MX5,I) + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) + 19 CONTINUE + 26 IF(NTD.LE.1) GOTO 27 + TECM= PV(5,MX4) + NPG=0 + DO 20 I=1,NT + IF(SIDE(I).GT.0..OR.SIDE(I).LT.-1.5) GOTO 20 + NPG=NPG+1 + AMASS(NPG)=ABS(PV(5,I)) + 20 CONTINUE + IF(NPRT(4)) WRITE(NEWBCD,2004) TECM,NPG,(AMASS(I),I=1,NPG) + CALL PHASP + NPG=0 + DO 21 I=1,NT + IF(SIDE(I).GT.0..OR.SIDE(I).LT.-1.5) GOTO 21 + NPG=NPG+1 + PV(1,I)=PCM(1,NPG) + PV(2,I)=PCM(2,NPG) + PV(3,I)=PCM(3,NPG) + PV(4,I)=PCM(4,NPG) + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + CALL LOR(I,MX6,I) + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) + 21 CONTINUE +C** +C** LORENTZ TRANSFORMATION IN LAB SYSTEM +C** + 27 TARG=0. + DO 36 I=1,NT + IF(PV(5,I).GT.0.5) TARG=TARG+1. + CALL LOR(I,MX2,I) + 36 CONTINUE + IF(TARG.LT.0.5) TARG=1. +C** +C** SOMETIMES THE LEADING STRANGE PARTICLES ARE LOST , SET THEM BACK +C** + IF(LEAD.EQ.0) GOTO 6085 + DO 6081 I=1,NT + IF(ABS(IPA(I)).EQ.LEAD) GOTO 6085 + 6081 CONTINUE + I=1 + IF(LEAD.GE.14.AND.ABS(IPA(2)).GE.14) I=2 + IF(LEAD.LT.14.AND.ABS(IPA(2)).LT.14) I=2 + IPA(I)=LEAD + EKIN=PV(4,I)-ABS(PV(5,I)) + PV(5,I)=RMASS(LEAD) + PV(7,I)=1. + IF(PV(5,I).LT.0.) PV(7,I)=-1. + PV(5,I)=ABS(PV(5,I)) + PV(6,I)=RCHARG(LEAD) + PV(4,I)=PV(5,I)+EKIN + CALL LENGTX(I,PP) + DUMNVE=ABS(PV(4,I)**2-PV(5,I)**2) + PP1=SQRT(DUMNVE) +C + IF (PP .GE. 1.0E-6) GO TO 8000 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP1*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP1*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP1*COS(RTHNVE) + GO TO 8001 + 8000 CONTINUE + PV(1,I)=PV(1,I)*PP1/PP + PV(2,I)=PV(2,I)*PP1/PP + PV(3,I)=PV(3,I)*PP1/PP + 8001 CONTINUE +C +C** FOR VARIOUS REASONS, THE ENERGY BALANCE IS NOT SUFFICIENT, +C** CHECK THAT, ENERGY BALANCE, ANGLE OF FINAL SYSTEM E.T.C. + 6085 KGENEV=1 + PV(1,MX4)=0. + PV(2,MX4)=0. + PV(3,MX4)=P + PV(4,MX4)=SQRT(P*P+AMAS*AMAS) + PV(5,MX4)=ABS(AMAS) + EKIN0=PV(4,MX4)-PV(5,MX4) + PV(1,MX5)=0. + PV(2,MX5)=0. + PV(3,MX5)=0. + PV(4,MX5)=MP*TARG + PV(5,MX5)=PV(4,MX5) + EKIN=PV(4,MX4)+PV(4,MX5) + I=MX4 + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + I=MX5 + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + CALL ADD(MX4,MX5,MX6) + CALL LOR(MX4,MX6,MX4) + CALL LOR(MX5,MX6,MX5) + TECM=PV(4,MX4)+PV(4,MX5) + NPG=NT + PV(1,MX8)=0. + PV(2,MX8)=0. + PV(3,MX8)=0. + PV(4,MX8)=0. + PV(5,MX8)=0. + EKIN1=0. + DO 598 I=1,NPG + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) + CALL ADD(MX8,I,MX8) + EKIN1=EKIN1+PV(4,I)-PV(5,I) + EKIN=EKIN-PV(5,I) + IF(I.GT.18) GOTO 598 + AMASS(I)=PV(5,I) + 598 CONTINUE + IF(NPG.GT.18) GOTO 597 + CALL PHASP + EKIN=0. + DO 599 I=1,NPG + PV(1,MX7)=PCM(1,I) + PV(2,MX7)=PCM(2,I) + PV(3,MX7)=PCM(3,I) + PV(4,MX7)=PCM(4,I) + PV(5,MX7)=AMASS(I) + CALL LOR(MX7,MX5,MX7) + 599 EKIN=EKIN+PV(4,MX7)-PV(5,MX7) + CALL ANG(MX8,MX4,COST,TETA) + IF(NPRT(4)) WRITE(NEWBCD,2003) TETA,EKIN0,EKIN1,EKIN +C** +C** MAKE SHURE, THAT KINETIC ENERGIES ARE CORRECT +C** THE 3. CLUSTER IS NOT PRODUCED WITHIN PROPER KINEMATICS!!! +C** EKIN= KINETIC ENERGY THEORETICALLY +C** EKIN1= KINETIC ENERGY SIMULATED +C** + 597 EKIN1=0. + IF(EKIN1.EQ.0.) GOTO 600 + PV(1,MX7)=0. + PV(2,MX7)=0. + PV(3,MX7)=0. + PV(4,MX7)=0. + PV(5,MX7)=0. + WGT=EKIN/EKIN1 + EKIN1=0. + DO 602 I=1,NT + EKIN=PV(4,I)-PV(5,I) + EKIN=EKIN*WGT + PV(4,I)=EKIN+PV(5,I) + DUMNVE=ABS(PV(4,I)**2-PV(5,I)**2) + PP=SQRT(DUMNVE) + CALL LENGTX(I,PP1) +C + IF (PP1 .GE. 1.0E-6) GO TO 8002 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP*COS(RTHNVE) + GO TO 8003 + 8002 CONTINUE + PV(1,I)=PV(1,I)*PP/PP1 + PV(2,I)=PV(2,I)*PP/PP1 + PV(3,I)=PV(3,I)*PP/PP1 + 8003 CONTINUE +C + EKIN1=EKIN1+EKIN + CALL ADD(MX7,I,MX7) + 602 CONTINUE + CALL ANG(MX7,MX4,COST,TETA) + IF(NPRT(4)) WRITE(NEWBCD,2003) TETA,EKIN0,EKIN1 +C** +C** ROTATE IN DIRECTION OF Z-AXIS, SEE COMMENTS IN 'GENXPT' +C** + 600 PV(1,MX7)=0. + PV(2,MX7)=0. + PV(3,MX7)=0. + PV(4,MX7)=0. + PV(5,MX7)=0. + DO 596 I=1,NT + CALL ADD(MX7,I,MX7) + 596 CONTINUE +* CALL RANNOR(RAN1,RAN2) + CALL GRNDM(RNDM,2) + RY=RNDM(1) + RZ=RNDM(2) + RX=6.283185*RZ + A1=SQRT(-2.*LOG(RY)) + RAN1=A1*SIN(RX) + RAN2=A1*COS(RX) + PV(1,MX7)=PV(1,MX7)+RAN1*0.020*TARG + PV(2,MX7)=PV(2,MX7)+RAN2*0.020*TARG + CALL DEFS(MX4,MX7,MX8) + PV(1,MX7)=0. + PV(2,MX7)=0. + PV(3,MX7)=0. + PV(4,MX7)=0. + PV(5,MX7)=0. +C DO 595 I=1,NT +C CALL TRAC(I,MX8,I) +C 595 CALL ADD(MX7,I,MX7) +C CALL ANG(MX7,MX4,COST,TETA) + IF(NPRT(4)) WRITE(NEWBCD,2003) TETA +C** +C** ROTATE IN DIRECTION OF PRIMARY PARTICLE +C** + DEKIN=0. + NPIONS=0 + EK1=0. + DO 25 I=1,NT + CALL DEFS1(I,MXGKPV-1,I) + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) + IF(ATNO2.LT.1.5) GOTO 25 + CALL LENGTX(I,PP) + EKIN=PV(4,I)-ABS(PV(5,I)) + CALL NORMAL(RAN) + EKIN=EKIN-CFA*(1.+0.5*RAN) + IF (EKIN .LT. 1.0E-6) EKIN=1.0E-6 + CALL STEEQ(XXH,I) + DEKIN=DEKIN+EKIN*(1.-XXH) + EKIN=EKIN*XXH + IF(ABS(IPA(I)).GE.7.AND.ABS(IPA(I)).LE.9) NPIONS=NPIONS+1 + IF(ABS(IPA(I)).GE.7.AND.ABS(IPA(I)).LE.9) EK1=EK1+EKIN + PP1=SQRT(EKIN*(EKIN+2.*ABS(PV(5,I)))) + PV(4,I)=EKIN+ABS(PV(5,I)) +C + IF (PP .GE. 1.0E-6) GO TO 8004 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP1*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP1*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP1*COS(RTHNVE) + GO TO 8005 + 8004 CONTINUE + PV(1,I)=PV(1,I)*PP1/PP + PV(2,I)=PV(2,I)*PP1/PP + PV(3,I)=PV(3,I)*PP1/PP + 8005 CONTINUE +C + 25 CONTINUE + EK1=0. + IF(EK1.EQ.0.) GOTO 23 + IF(NPIONS.LE.0) GOTO 23 + DEKIN=1.+DEKIN/EK1 + DO 22 I=1,NT + IF(ABS(IPA(I)).LT.7.OR.ABS(IPA(I)).GT.9) GOTO 22 + CALL LENGTX(I,PP) + EKIN=PV(4,I)-ABS(PV(5,I)) + EKIN=EKIN*DEKIN + IF (EKIN .LT. 1.0E-6) EKIN=1.0E-6 + PP1=SQRT(EKIN*(EKIN+2.*ABS(PV(5,I)))) + PV(4,I)=EKIN+ABS(PV(5,I)) +C + IF (PP .GE. 1.0E-6) GO TO 8006 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP1*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP1*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP1*COS(RTHNVE) + GO TO 8007 + 8006 CONTINUE + PV(1,I)=PV(1,I)*PP1/PP + PV(2,I)=PV(2,I)*PP1/PP + PV(3,I)=PV(3,I)*PP1/PP + 8007 CONTINUE +C + 22 CONTINUE + 23 IGEN=0 + IF(ATNO2.LT.1.5) GOTO 40 +C** +C** ADD BLACK TRACK PARTICLES +C** + CALL HIGHAB(SPROB) + TEX=ENP(1) + SPALL=TARG + IF(TEX.LT.0.001) GOTO 445 + BLACK=(1.5+1.25*TARG)*ENP(1)/(ENP(1)+ENP(3)) + CALL POISSO(BLACK,NBL) + IF(NPRT(4)) + *WRITE(NEWBCD,3003) NBL,TEX + IF(IFIX(TARG)+NBL.GT.ATNO2) NBL=ATNO2-TARG + IF(NT+NBL.GT.MXGKPV-2) NBL=MXGKPV-2-NT + IF(NBL.LE.0) GOTO 445 + EKIN=TEX/NBL + EKIN2=0. + CALL STEEP(XX) + DO 441 I=1,NBL + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SPROB) GOTO 441 + IF(NT.EQ.MXGKPV-2) GOTO 441 + IF(EKIN2.GT.TEX) GOTO 443 + CALL GRNDM(RNDM,1) + RAN1=RNDM(1) + CALL NORMAL(RAN2) + EKIN1=-EKIN*LOG(RAN1)-CFA*(1.+0.5*RAN2) + IF(EKIN1.LT.0.0) EKIN1=-0.010*LOG(RAN1) + EKIN1=EKIN1*XX + EKIN2=EKIN2+EKIN1 + IF(EKIN2.GT.TEX) EKIN1=TEX-(EKIN2-EKIN1) + IF (EKIN1 .LT. 0.0) EKIN1=1.0E-6 + IPA1=16 + PNRAT=1.-ZNO2/ATNO2 + CALL GRNDM(RNDM,3) + IF(RNDM(1).GT.PNRAT) IPA1=14 + NT=NT+1 + SPALL=SPALL+1. + COST=-1.0+RNDM(2)*2.0 + DUMNVE=1.0-COST*COST + IF (DUMNVE .LT. 0.0) DUMNVE=0.0 + SINT=SQRT(DUMNVE) + PHI=TWPI*RNDM(3) + IPA(NT)=-IPA1 + SIDE(NT)=-4. + PV(5,NT)=ABS(RMASS(IPA1)) + PV(6,NT)=RCHARG(IPA1) + PV(7,NT)=1. + PV(4,NT)=EKIN1+PV(5,NT) + DUMNVE=ABS(PV(4,NT)**2-PV(5,NT)**2) + PP=SQRT(DUMNVE) + PV(1,NT)=PP*SINT*SIN(PHI) + PV(2,NT)=PP*SINT*COS(PHI) + PV(3,NT)=PP*COST + 441 CONTINUE + 443 IF(ATNO2.LT.10.) GOTO 445 + IF(EK.GT.2.0) GOTO 445 + II=NT+1 + KK=0 + EKA=EK + IF(EKA.GT.1.) EKA=EKA*EKA + IF(EKA.LT.0.1) EKA=0.1 + IKA=3.6*EXP((ZNO2**2/ATNO2-35.56)/6.45)/EKA + IF(IKA.LE.0) GO TO 445 + DO 444 I=1,NT + II=II-1 + IF(IPA(II).NE.-14) GOTO 444 + IPA(II)=-16 + IPA1 = 16 + PV(5,II)=ABS(RMASS(IPA1)) + PV(6,II)=RCHARG(IPA1) + KK=KK+1 + IF(KK.GT.IKA) GOTO 445 + 444 CONTINUE + 445 TEX=ENP(3) + IF(TEX.LT.0.001) GOTO 40 + BLACK=(1.5+1.25*TARG)*ENP(3)/(ENP(1)+ENP(3)) + CALL POISSO(BLACK,NBL) + IF(NT+NBL.GT.MXGKPV-2) NBL=MXGKPV-2-NT + IF(NBL.LE.0) GOTO 40 + EKIN=TEX/NBL + EKIN2=0. + CALL STEEP(XX) + IF(NPRT(4)) + *WRITE(NEWBCD,3004) NBL,TEX + DO 442 I=1,NBL + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SPROB) GOTO 442 + IF(NT.EQ.MXGKPV-2) GOTO 442 + IF(EKIN2.GT.TEX) GOTO 40 + CALL GRNDM(RNDM,1) + RAN1=RNDM(1) + CALL NORMAL(RAN2) + EKIN1=-EKIN*LOG(RAN1)-CFA*(1.+0.5*RAN2) + IF(EKIN1.LT.0.0) EKIN1=-0.005*LOG(RAN1) + EKIN1=EKIN1*XX + EKIN2=EKIN2+EKIN1 + IF(EKIN2.GT.TEX) EKIN1=TEX-(EKIN2-EKIN1) + IF (EKIN1 .LT. 0.0) EKIN1=1.0E-6 + CALL GRNDM(RNDM,3) + COST=-1.0+RNDM(1)*2.0 + DUMNVE=1.0-COST*COST + IF (DUMNVE .LT. 0.0) DUMNVE=0.0 + SINT=SQRT(DUMNVE) + PHI=TWPI*RNDM(2) + RAN=RNDM(3) + IPA(NT+1)=-30 + IF(RAN.GT.0.60) IPA(NT+1)=-31 + IF(RAN.GT.0.90) IPA(NT+1)=-32 + SIDE(NT+1)=-4. + PV(5,NT+1)=(ABS(IPA(NT+1))-28)*MP + SPALL=SPALL+PV(5,NT+1)*1.066 + IF(SPALL.GT.ATNO2) GOTO 40 + NT=NT+1 + PV(6,NT)=1. + IF(IPA(NT).EQ.-32) PV(6,NT)=2. + PV(7,NT)=1. + PV(4,NT)=PV(5,NT)+EKIN1 + DUMNVE=ABS(PV(4,NT)**2-PV(5,NT)**2) + PP=SQRT(DUMNVE) + PV(1,NT)=PP*SINT*SIN(PHI) + PV(2,NT)=PP*SINT*COS(PHI) + PV(3,NT)=PP*COST + 442 CONTINUE +C** +C** STORE ON EVENT COMMON +C** + 40 CALL GRNDM(RNDM,1) + IF(RS.GT.(4.+RNDM(1)*1.)) GOTO 42 + DO 41 I=1,NT + CALL LENGTX(I,ETB) + IF(ETB.LT.P) GOTO 41 + ETF=P + PV(4,I)=SQRT(PV(5,I)**2+ETF**2) + DUMNVE=ETB + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + ETF=ETF/DUMNVE + PV(1,I)=PV(1,I)*ETF + PV(2,I)=PV(2,I)*ETF + PV(3,I)=PV(3,I)*ETF + 41 CONTINUE + 42 EKIN=PV(4,MXGKPV)-ABS(PV(5,MXGKPV)) + EKIN1=PV(4,MXGKPV-1)-ABS(PV(5,MXGKPV-1)) + EKIN2=0. + CALL TDELAY(TOF1) + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + TOF=TOF-TOF1*LOG(RAN) + DO 44 I=1,NT + EKIN2=EKIN2+PV(4,I)-ABS(PV(5,I)) + IF(PV(7,I).LT.0.) PV(5,I)=-PV(5,I) + PV(7,I)=TOF + PV(8,I)=ABS(IPA(I)) + PV(9,I)=0. + 44 PV(10,I)=0. + IF(NPRT(4)) WRITE(NEWBCD,2006) NT,EKIN,ENP(1),ENP(3),EKIN1,EKIN2 + INTCT=INTCT+1. + NMODE=3 + IF(SPALL.LT.0.5.AND.ATNO2.GT.1.5) NMODE=14 + CALL SETCUR(NT) + NTK=NTK+1 + IF(NT.EQ.1) GOTO 300 + DO 50 II=2,NT + I=II-1 + IF(NTOT.LT.NSIZE/12) GOTO 43 + GO TO 9999 + 43 CALL SETTRK(I) + 50 CONTINUE + 300 CONTINUE + GO TO 9999 +C** +C** IT IS NOT POSSIBLE TO PRODUCE A PROPER TWO CLUSTER FINAL STATE. +C** CONTINUE WITH QUASI ELASTIC SCATTERING +C** + 60 IF(NPRT(4)) WRITE(NEWBCD,2005) + DO 61 I=3,MXGKCU + 61 IPA(I)=0 + IPA(1)=IPART + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + CALL TWOB(IPPP,NFL,AVERN) + GO TO 9999 +C + 2000 FORMAT(' *COHERT* CMS PARAMETERS OF FINAL STATE PARTICLES', + $ ' AFTER ',I3,' TRIALS') + 2001 FORMAT(' *COHERT* TRACK',2X,I3,2X,10F8.2,2X,I3,2X,F3.0) + 2002 FORMAT(' *COHERT* MOMENTUM ',F8.3,' MASSES ',2F8.4,' RS ',F8.4) + 2003 FORMAT(' *COHERT* TETA,EKIN0,EKIN1,EKIN ',4F10.4) + 2004 FORMAT(' *COHERT* TECM,NPB,MASSES: ',F10.4,1X,I3,1X,8F10.4/ + $ 1H ,26X,15X,8F10.4) + 2005 FORMAT(' *COHERT* NUMBER OF FINAL STATE PARTICLES', + $ ' LESS THAN 2 ==> CONTINUE WITH 2-BODY SCATTERING') + 2006 FORMAT(' *COHERT* COMP.',1X,I5,1X,5F7.2) + 3001 FORMAT(' *COHERT* NUCLEAR EXCITATION ',I5,' PARTICLES PRODUCED', + $ ' IN ADDITION TO',I5,' NORMAL PARTICLES') + 3003 FORMAT(' *COHERT* ',I3,' BLACK TRACK PARTICLES PRODUCED', + $ ' WITH TOTAL KINETIC ENERGY OF ',F8.3,' GEV') + 3004 FORMAT(' *COHERT* ',I5,' HEAVY FRAGMENTS WITH TOTAL ENERGY OF ', + $ F8.4,' GEV') +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.14/16 06/05/91 22.27.48 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE CORANH(NIHIL,NFL) +C +C *** NUCLEAR INTERACTIONS FOR HEAVY FRAGMENTS *** +C *** NVE 06-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (09-JULY-1987) +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/MAT / LMAT, + * DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSL(21), + * CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + * MATID(21),MATID1(21,24),PARMAT(21,10), + * IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + * ATNO1(21,10),ZNO1(21,10) +C + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + COMMON/ERRCOM/ IER(100) +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C + SAVE +C +C + NIHIL=0 + IF(AMAS.GT.0.) GO TO 9999 + IF(IPART.LT.14) GO TO 9999 + IF(IPA(1).GE.14) GO TO 9999 + IF(IPA(2).GE.14) GO TO 9999 + NIHIL=1 +C** +C** DO NOT BE CONFUSED, THIS HAS NOTHING TO DO WITH RELATIVISTIC +C** KINEMATIC +C + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + EKCOR=1. + IF(EK.GT.1.) EKCOR=1./EK + EK=2.*TARMAS+EK*(1.+EKCOR/ATNO2) + EN=EK+ABS(AMAS) + P =SQRT(ABS(EN*EN-AMAS*AMAS)) + S =AMAS*AMAS+TARMAS**2+2.0*TARMAS*EN + RS=SQRT(S) + ENP(5)=EK + ENP(6)=EN + ENP(7)=P + ENP(8)=S + ENP(9)=RS +C** +C** EVAPORATION +C** + TKIN=EXNU(EK) + ENP(5)=EK-TKIN + IF(ENP(5).LT.0.0001) ENP(5)=0.0001 + ENP(6)=ENP(5)+ABS(AMAS) + ENP(7)=ENP(6)*ENP(6)-AMASQ + ENP(7)=SQRT(ABS(ENP(7))) + ENP(8)=AMASQ+RMASS(14)**2+2.*RMASS(14)*ENP(6) + ENP(9)=SQRT(ENP(8)) +C** CHECK AVAILABLE ENERGY FOR FIRST INTERACTION + IF(ENP(5).GT.CENG(3)) GO TO 9999 + ENP(5)=0. + ENP(6)=ABS(AMAS) + ENP(7)=0. + ENP(8)=4.*RMASS(14)**2 + ENP(9)=2.*RMASS(14) +C + 9999 CONTINUE + RETURN + END +*CMZU: 3.16/00 05/11/93 17.20.00 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE COSCAT +C +C *** MOMENTUM GENERATION FOR COHERENT ELASTIC SCATTERING *** +C *** NVE 13-JUL-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (03-DEC-1986) +C +C APPROXIMATION OF BESSEL FUNCTION FOR TETA(LAB)<=20 DEG. +C IS USED . THE NUCLEAR RADIUS IS TAKEN AS R=1.25*E-13*(A)**1/3FM +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/MAT / LMAT, + * DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSL(21), + * CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + * MATID(21),MATID1(21,24),PARMAT(21,10), + * IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + * ATNO1(21,10),ZNO1(21,10) +C + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + COMMON/ERRCOM/ IER(100) +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + COMMON/COSCOM/AA,BB,CC,DD,RR +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C + EXTERNAL FCTCOS + DIMENSION FF(20),ATNOX(3) + DIMENSION RNDM(1) + SAVE +C + DATA ATNOX/9.,56.,207./ +C +C --- INITIALIZATION INDICATED BY KGINIT(14) --- + IF (KGINIT(14) .NE. 0) GO TO 10 + KGINIT(14)=1 +C + IF(.NOT.NPRT(10)) GOTO 10 + WRITE(NEWBCD,2001) + 2001 FORMAT(1H ,'*COSCAT* DS/DT FOR COHERENT ELASTIC SCATTERING') + DO 3 L=1,3 + WRITE(NEWBCD,2003) ATNOX(L),P + 2003 FORMAT(1H ,'*COSCAT* CALCULATED CROSS SECTIONS FOR A=', + * F5.1,' AND P=',F8.2) + DO 2 I=1,20 + TETA=(I-1)*PI/360. + T=2.*P**2*(1.-COS(TETA*1.D0)) + IF(ATNOX(L).GT.62.) GOTO 4 + FF(I)=TWPI*ATNOX(L)**1.63*EXP(-14.5D0*ATNOX(L)**0.65*T) + * +TWPI*1.4*ATNOX(L)**0.33*EXP(-10.D0*T) + GOTO 2 + 4 FF(I)=TWPI*ATNOX(L)**1.33*EXP(-60.0D0*ATNOX(L)**0.33*T) + * +TWPI*0.4*ATNOX(L)**0.40*EXP(-10.D0*T) + 2 CONTINUE + WRITE(NEWBCD,2004) FF + 2004 FORMAT(1H ,10E12.3) + 3 CONTINUE + 10 IF(P.LT.0.01) GO TO 9999 + IF(ATNO2.LT.0.5) GO TO 9999 + IER(46)=IER(46)+1 + RAN=RANRES(DUM) +* CALL VZERO(IPA(1),MXGKCU) +CDH + DO III = 1, MXGKCU + IPA(III) = 0 + ENDDO + + IPA(1)=IPART + IF(ATNO2.GT.62.) GOTO 11 + AA=ATNO2**1.63 + BB=14.5*ATNO2**0.66 + CC=1.4*ATNO2**0.33 + DD=10. + AA=AA/BB + CC=CC/DD + RR=(AA+CC)*RAN + GOTO 12 + 11 AA=ATNO2**1.33 + BB=60.*ATNO2**0.33 + CC=0.4*ATNO2**0.40 + DD=10. + AA=AA/BB + CC=CC/DD + RR=(AA+CC)*RAN + 12 T1=-LOG(RAN)/BB + T2=-LOG(RAN)/DD + EPS=0.001 + IND1=10 + CALL RTMI(T,VAL,FCTCOS,T1,T2,EPS,IND1,IER1) + IF(IER1.EQ.0) GOTO 14 + T=0.25*(3.*T1+T2) + IER(68)=IER(68)+1 + 14 CALL GRNDM(RNDM,1) + PHI=RNDM(1)*TWPI + RR=0.5*T/P**2 + IF(RR.GT.1.) RR=0. + COST=1.-RR +* SINT=SQRT(MAX((1.-COST)*(1.+COST),0.)) + SINT=SQRT(MAX(RR*(2.-RR),0.)) + IF(SINT.NE.0.) THEN + PV( 1,MXGKPV-1)=P*PX + PV( 2,MXGKPV-1)=P*PY + PV( 3,MXGKPV-1)=P*PZ + PV( 4,MXGKPV-1)=EN + PV( 5,MXGKPV-1)=AMAS + PV( 6,MXGKPV-1)=NCH + PV( 7,MXGKPV-1)=TOF + PV( 8,MXGKPV-1)=IPART + PV( 9,MXGKPV-1)=0. + PV(10,MXGKPV-1)=USERW + PV(1,1)=P*SINT*SIN(PHI) + PV(2,1)=P*SINT*COS(PHI) + PV(3,1)=P*COST + PV(4,1)=EN + PV(5,1)=AMAS + PV(6,1)=NCH + PV(7,1)=TOF + PV(8,1)=IPART + PV(9,1)=0. + PV(10,1)=0. + CALL DEFS1(1,MXGKPV-1,1) + SINL1=SINL + COSL1=COSL + SINP1=SINP + COSP1=COSP + CALL SETCUR(1) + ELSE + SINL1=SINL + COSL1=COSL + SINP1=SINP + COSP1=COSP + ENDIF + IF(NPRT(4)) + *WRITE(NEWBCD,1004) AMAS,P,SINL1,COSL1,SINP1,COSP1,SINL,COSL, + * SINP,COSP,T1,T,T2,IER1 +C + 1004 FORMAT(1H ,'*COSCAT* COHERENT ELASTIC SCATTERING MASS ' + * ,F8.3,' MOMENTUM ' + * ,F8.3/,' DIRECTION ',4F10.4,' CHANGED TO ',4F10.4/ + *1H ,'T1,T,T2 ',3E10.3,' IER1 ',I2) +C + 9999 CONTINUE + RETURN + END +*CMZU: 3.16/00 05/11/93 17.20.00 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE DEFS1(I,J,K) +C +C *** NVE 16-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (15-JAN-1984) +C + PARAMETER (MXGKGH=100) + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C + SAVE +C + DATA PI/3.141592653589793/ +C + PX=PV(1,I) + PY=PV(2,I) + PZ=PV(3,I) + PT2 = PV(1,J)**2+PV(2,J)**2 + IF(PT2.GT.0.) THEN + CALL LENGTX(J,P) + COST=PV(3,J)/P + SINT1=SQRT(ABS((1.-COST)*(1.+COST))) + SINT2=SQRT(PT2)/P + SINT=0.5*(SINT1+SINT2) + PH=PI*0.5 + IF(PV(2,J).LT.0.) PH=PI*1.5 + IF(ABS(PV(1,J)).GT.1.E-6) PH=ATAN2(PV(2,J),PV(1,J)) + COSP=COS(PH) + SINP=SIN(PH) + PV(1,K)= COST*COSP*PX- SINP*PY+SINT*COSP*PZ + PV(2,K)= COST*SINP*PX+ COSP*PY+SINT*SINP*PZ + PV(3,K)=-SINT *PX +COST *PZ + ELSE + PV(1,K)=PX + PV(2,K)=PY + PV(3,K)=PZ +C --- TAKE THE CASE OF THETA=PI INTO ACCOUNT (MR/NVE 27-SEP-1990) --- + IF (PV(3,J) .LT. 0.) PV(3,K)=-PZ + ENDIF + RETURN + END +*CMZ : 3.14/16 10/05/90 17.25.40 BY NICK VAN EIJNDHOVEN (CERN) +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE DLPNUC(A,N) +C +C CALLED BY : PHPNUC +C ORIGIN : H.FESEFELDT +C + IMPLICIT DOUBLE PRECISION (A-H,O-Z) +C + DIMENSION A(N) + DIMENSION LT(20),RT(20) + INTEGER R,RT + SAVE +C + LEVEL=1 + LT(1)=1 + RT(1)=N + 10 L=LT(LEVEL) + R=RT(LEVEL) + LEVEL=LEVEL-1 + 20 IF(R.LE.L) IF(LEVEL) 50,50,10 +C +C SUBDIVIDE THE INTERVAL L,R +C L : LOWER LIMIT OF THE INTERVAL (INPUT) +C R : UPPER LIMIT OF THE INTERVAL (INPUT) +C J : UPPER LIMIT OF LOWER SUB-INTERVAL (OUTPUT) +C I : LOWER LIMIT OF UPPER SUB-INTERVAL (OUTPUT) +C + I=L + J=R + M=(L+R)/2 + X=A(M) + 220 IF(A(I).GE.X) GO TO 230 + I=I+1 + GO TO 220 + 230 IF(A(J).LE.X) GO TO 231 + J=J-1 + GO TO 230 +C + 231 IF(I.GT.J) GO TO 232 + W=A(I) + A(I)=A(J) + A(J)=W + I=I+1 + J=J-1 + IF(I.LE.J) GO TO 220 +C + 232 LEVEL=LEVEL+1 + IF((R-I).GE.(J-L)) GO TO 30 + LT(LEVEL)=L + RT(LEVEL)=J + L=I + GO TO 20 + 30 LT(LEVEL)=I + RT(LEVEL)=R + R=J + GO TO 20 + 50 RETURN + END +*CMZ : 3.14/16 10/05/90 17.25.40 BY NICK VAN EIJNDHOVEN (CERN) +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE DOTNUC(C,S,C2,S2,PR,I) +C + IMPLICIT DOUBLE PRECISION (A-H,O-Z) + DIMENSION PR(50) + SAVE +C + K1 = 5*I - 4 + K2 = K1 + 1 + SA = PR(K1) + SB = PR(K2) + A = SA*C - SB*S + PR(K2) = SA*S + SB*C + K2 = K2 + 1 + B = PR(K2) + PR(K1) = A*C2 - B*S2 + PR(K2) = A*S2 + B*C2 + RETURN + END +*CMZ : 3.14/16 10/05/90 17.25.40 BY NICK VAN EIJNDHOVEN (CERN) +*-- AUTHOR : +C--------------------------------------------------------------------- + FUNCTION DPDNUC(A,B,C) +C +C CALLED BY : PHPNUC +C ORIGIN : H.FESEFELDT +C + IMPLICIT DOUBLE PRECISION (A-H,O-Z) + SAVE +C +C DPDK = SQRT(A*A+(B*B-C*C)**2/(A*A) - 2.0*(B*B+C*C))/2.0 + A2 = A*A + B2 = B*B + C2 = C*C + IF(A2) 21,21,61 + 61 CONTINUE + ARG=A2+(B2-C2)**2/A2-2.0*(B2+C2) + IF (ARG) 21,21,31 + 21 DPDNUC=0.0 + GOTO 41 + 31 CONTINUE + DPDNUC = 0.5*SQRT(A2 + (B2-C2)**2/A2 - 2.0*(B2+C2)) + 41 CONTINUE + RETURN + END +*CMZ : 3.15/01 06/05/91 22.27.46 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + FUNCTION EXNU(EK1) +C +C *** NUCLEAR EVAPORATION AS FUNCTION OF ATOMIC NUMBER ATNO *** +C *** AND KINETIC ENERGY EKIN OF PRIMARY PARTICLE *** +C *** NVE 04-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (10-DEC-1986) +C +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/MAT / LMAT, + * DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSL(21), + * CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + * MATID(21),MATID1(21,24),PARMAT(21,10), + * IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + * ATNO1(21,10),ZNO1(21,10) +C + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + COMMON/ERRCOM/ IER(100) +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + DIMENSION RNDM(2) + SAVE +C + EXNU=0. + IF(ATNO2.LT.1.5) GO TO 9999 + MAGIC=0 + IF(INT(ZNO2+0.1).EQ.82) MAGIC=1 + EKIN1=EK1 + IF(EKIN1.LT.0.1) EKIN1=0.1 + IF(EKIN1.GT.4.) EKIN1=4. +C** 0.35 VALUE AT 1 GEV +C** 0.05 VALUE AT 0.1 GEV + CFA=(0.35-0.05)/2.3 + CFA= 0.35+CFA*LOG(EKIN1) + IF(CFA.LT.0.15) CFA=0.15 + EXNU=7.716*CFA*EXP(-CFA) + ATNO3=ATNO2 + IF(ATNO3.GT.120.) ATNO3=120. + CFA=((ATNO3-1.)/120.)*EXP(-(ATNO3-1.)/120.) + EXNU=EXNU*CFA + FPDIV=1.-0.25*EKIN1**2 + IF(FPDIV.LT.0.50) FPDIV=0.50 + GFA=2.0*((ATNO2-1.)/70.)*EXP(-(ATNO2-1.)/70.) + ENP(1)=EXNU*FPDIV + ENP(3)=EXNU-ENP(1) + 4 CALL NORMAL(RAN1) + CALL NORMAL(RAN2) + IF(MAGIC.EQ.1) THEN + RAN1=0. + RAN2=0. + ENDIF + ENP(1)=ENP(1)*(1.+RAN1*GFA) + IF(ENP(1).LT.0.) ENP(1)=0. + ENP(3)=ENP(3)*(1.+RAN2*GFA) + IF(ENP(3).LT.0.) ENP(3)=0. + 5 EXNU=ENP(1)+ENP(3) + IF(EXNU.LT.EK1) GOTO 10 + CALL GRNDM(RNDM,2) + ENP(1)=ENP(1)*(1.-0.5*RNDM(1)) + ENP(3)=ENP(3)*(1.-0.5*RNDM(2)) + GOTO 5 + 10 CONTINUE + IF (NPRT(4)) + $ WRITE(NEWBCD,1001) XEND,YEND,ZEND,EXNU,ENP(1),ENP(3) + 1001 FORMAT(' *EXNU* NUCLEAR EXCITATION AT X,Y,Z = ',3(G12.5,1X)/ + $ 1H ,7X,'EXNU,ENP(1),ENP(3) = ',3(G12.5,1X)) +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.14/16 13/03/89 14.48.42 BY NICK VAN EIJNDHOVEN (CERN) +*-- AUTHOR : +C--------------------------------------------------------------------- + REAL FUNCTION FCTCOS(T) +C +C *** NVE 01-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (27-OCT-1983) +C + COMMON/COSCOM/AA,BB,CC,DD,RR +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + DOUBLE PRECISION TEST1,TEST2 + SAVE +C + TEST1=-BB*T*1.0D0 + IF (TEST1 .GT. EXPXU) TEST1=EXPXU + IF (TEST1 .LT. EXPXL) TEST1=EXPXL + TEST2=-DD*T*1.0D0 + IF (TEST2 .GT. EXPXU) TEST2=EXPXU + IF (TEST2 .LT. EXPXL) TEST2=EXPXL +C + FCTCOS=AA*EXP(TEST1)+CC*EXP(TEST2)-RR +C + RETURN + END +*CMZ : 3.14/16 13/03/89 14.48.39 BY NICK VAN EIJNDHOVEN (CERN) +*-- AUTHOR : +C--------------------------------------------------------------------- + FUNCTION FERMIG(EK1) +C +C *** NVE 16-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (23-AUG-1985) +C + FERMIG=0. + RETURN + END +*CMZ : 3.16/00 05/11/93 19.05.29 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + FUNCTION FISSIO(EK1) +C +C *** GENERATION OF PHOTONS AND NEUTRONS BY FISSION *** +C *** NVE 04-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (21-MAR-1987) +C +C THE PHYSICS IS BASED ON U(238) +C FOR OTHER MATERIALS EXTRAPOLATIONS ARE USED +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/MAT / LMAT, + * DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSL(21), + * CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + * MATID(21),MATID1(21,24),PARMAT(21,10), + * IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + * ATNO1(21,10),ZNO1(21,10) +C + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + COMMON/ERRCOM/ IER(100) +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C +C --- INITIALIZATION FLAGS FOR VARIOUS GHEISHA ROUTINES --- + COMMON /KGINIT/ KGINIT(50) +C +C + DIMENSION SPNEUT(10) + DIMENSION RNDM(2) + SAVE SPNEUT + SAVE + DATA SPNEUT/10*0./ +C +C --- INITIALIZATION INDICATED BY KGINIT(15) --- + IF (KGINIT(15) .NE. 0) GO TO 10 + KGINIT(15)=1 +C + XX=1.-0.5 + XXX=SQRT(2.29*XX) + SPNEUT(1)=EXP(-XX/0.965)*(EXP(XXX)-EXP(-XXX))/2. + DO 1 I=2,10 + XX=I*1.-0.5 + XXX=SQRT(2.29*XX) + 1 SPNEUT(I)=SPNEUT(I-1)+EXP(-XX/0.965)*(EXP(XXX)-EXP(-XXX))/2. + DO 2 I=1,10 + 2 SPNEUT(I)=SPNEUT(I)/SPNEUT(10) +C** IN THIS ROUTINE WE USE MEV AS UNIT FOR ENERGY AND MOMENTUM + 10 NT=0 + IER(82)=IER(82)+1 + ND=IND+1 + PV( 1,MXGKPV)=PX*P + PV( 2,MXGKPV)=PY*P + PV( 3,MXGKPV)=PZ*P + PV( 4,MXGKPV)=EN + PV( 5,MXGKPV)=ABS(AMAS) + PV( 6,MXGKPV)=NCH + PV( 7,MXGKPV)=TOF + PV( 8,MXGKPV)=IPART + PV( 9,MXGKPV)=0. + PV(10,MXGKPV)=USERW + PV( 1,MXGKPV-1)=0. + PV( 2,MXGKPV-1)=0. + PV( 3,MXGKPV-1)=0. + PV( 4,MXGKPV-1)=ATOMAS(ATNO(ND),ZNO(ND)) + PV( 5,MXGKPV-1)=PV(4,MXGKPV-1) + PV( 6,MXGKPV-1)=ZNO(ND) + PV( 7,MXGKPV-1)=TOF + PV( 8,MXGKPV-1)=0. + PV( 9,MXGKPV-1)=0. + PV(10,MXGKPV-1)=0. + CALL ADD(MXGKPV,MXGKPV-1,MXGKPV-2) + PV(1,MXGKPV-2)=-PV(1,MXGKPV-2) + PV(2,MXGKPV-2)=-PV(2,MXGKPV-2) + PV(3,MXGKPV-2)=-PV(3,MXGKPV-2) +C** NUMBER OF NEUTRONS AND PHOTONS + FISSIO=0. + E1=EK1*1000. + IF(E1.LT.1.0) E1=1.0 + AVERN=2.569+0.559*LOG(E1) +C** TAKE THE FOLLOWING VALUE IF PHOTOFISSION IS NOT INCLUDED + IF(IFIX(PARMAT(IND+1,8)).EQ.0) + *AVERN=2.569+0.900*LOG(E1) + AVERG=9.500+0.600*LOG(E1) + CALL NORMAL(RAN) + NN=IFIX(AVERN+RAN*1.23+0.5) + CALL NORMAL(RAN) + NG=IFIX(AVERG+RAN*3.+0.5) + IF(NN.LT.1) NN=1 + IF(NG.LT.1) NG=1 + EXN=0. + EXG=0. +C** DISTRIBUTE KINETIC ENERGY + DO 15 I=1,NN + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + DO 11 J=1,10 + IF(RAN.LT.SPNEUT(J)) GOTO 12 + 11 CONTINUE + J=10 + 12 CALL GRNDM(RNDM,1) + EKIN=(J-1)*1.+RNDM(1) + EXN=EXN+EKIN + PV(4,I)=EKIN+RMASS(16)*1000. + PV(5,I)=RMASS(16)*1000. + PV(6,I)=0. +C** EMISSION TIME FOR NEUTRONS =0. + PV(7,I)=TOF + PV(8,I)=16. + PV(9,I)=0. + PV(10,I)=0. + 15 CONTINUE + NT=NN + DO 20 I=1,NG + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + NT=NT+1 + PV(4,NT)=-0.87*LOG(RAN) + EXG=EXG+PV(4,NT) + PV(5,NT)=0. + PV(6,NT)=0. +C RAN=RNDM(1) +C** EMISSION TIME FOR PHOTONS= 2.5 E-8 SEC +C PV(7,NT)=TOF-500.*LOG(RAN) +C** CHANGED 30.7.85 + PV(7,NT)=TOF + PV(8,NT)=1. + PV(9,NT)=0. + PV(10,NT)=0. + 20 CONTINUE + IF(NT.EQ.0) GO TO 9999 + EX=EXN+EXG + IF(NPRT(4)) + *WRITE(NEWBCD,2000) ATNO(IND+1),NN,NG,EX + FISSIO=EX/1000. + DO 49 I=1,NT + PV(5,I)=PV(5,I)/1000. + PV(4,I)=PV(4,I)/1000. + CALL GRNDM(RNDM,2) + COST=-1.+2.*RNDM(1) + SINT=SQRT(ABS(1.-COST*COST)) + PHI=RNDM(2)*TWPI + PP=SQRT(ABS(PV(4,I)**2-PV(5,I)**2)) + PV(1,I)=PP*SINT*SIN(PHI) + PV(2,I)=PP*SINT*COS(PHI) + PV(3,I)=PP*COST + CALL LOR(I,MXGKPV-2,I) + 49 CONTINUE + INTCT=INTCT+1. + DO 50 I=1,NT + IF(NTOT.LT.NSIZE/12) GOTO 43 + IER(39)=IER(39)+1 + GO TO 9999 + 43 CALL SETTRK(I) + 50 CONTINUE +C + 2000 FORMAT(1H ,'*FISSIO* NUCLEAR FISSION ON MATERIAL ',F6.1,/, + *' NEUTRONS, PHOTONS PRODUCED= ',2I3,' WITH ',F8.4, + *' MEV TOTAL ENERGY') +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.16/00 05/11/93 19.22.38 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE GENXPT(IPPP,NFL,AVERN) +C +C *** GENERATION OF X- AND PT- VALUES FOR ALL PRODUCED PARTICLES *** +C *** NVE 02-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT 11-OCT-1987 +C +C A SIMPLE SINGLE VARIABLE DESCRIPTION E D3S/DP3= F(Q) WITH +C Q**2 = (M*X)**2 + PT**2 IS USED. FINAL STATE KINEMATIC IS PRODUCED +C BY AN FF-TYPE ITERATIVE CASCADE METHOD +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/MAT / LMAT, + * DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSL(21), + * CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + * MATID(21),MATID1(21,24),PARMAT(21,10), + * IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + * ATNO1(21,10),ZNO1(21,10) +C + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + COMMON/ERRCOM/ IER(100) +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + COMMON/GENIN /TECM,AMASS(18),NPG,KGENEV + COMMON/GENOUT/PCM(5,18),WGT +C +C + REAL MASPAR,LAMB,NUCSUP + DIMENSION MASPAR(8),BP(8),PTEX(8),C1PAR(5),G1PAR(5),TAVAI(2), + $ SIDE(MXGKCU),IAVAI(2),BINL(20),DNDL(20),TWSUP(8), + $ NUCSUP(6),PSUP(6),IPAX(100) + DIMENSION RNDM(3) + SAVE + DATA MASPAR/0.75,0.70,0.65,0.60,0.50,0.40,0.75,0.20/ + DATA BP/3.50,3.50,3.50,6.00,5.00,4.00,3.50,3.50/ + DATA PTEX/1.70,1.70,1.50,1.70,1.40,1.20,1.70,1.20/ + DATA C1PAR/0.6,0.6,0.35,0.15,0.10/ + DATA G1PAR/2.6,2.6,1.80,1.30,1.20/ + DATA BINL/0.,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0,1.11,1.25 + $ ,1.43,1.67,2.0,2.5,3.33,5.00,10.00/ + DATA TWSUP/1.,1.,0.7,0.5,0.3,0.2,0.1,0.0/ + DATA NUCSUP/1.00,0.7,0.5,0.4,0.35,0.3/ + DATA PSUP/3.,6.,20.,50.,100.,1000./ +C +C** + CALL HIGSEL(ISEL) + IF(ISEL.EQ.1) THEN + CALL HIGXPT(IPPP,NFL,AVERN) + RETURN + ENDIF +C** +C** FOR ANNIHILATION INTERACTIONS INTRODUCE PROPER KINEMATICS +C** + CALL CORANH(NIHIL,NFL) +C** +C** +C** CHECK FIRST MASS-INDICES +C** + EK=ENP(5) + EN=ENP(6) + P=ENP(7) + S=ENP(8) + RS=ENP(9) + NT=0 + DO 1 I=1,100 + IF(IPA(I).EQ.0) GOTO 1 + NT=NT+1 + IPA(NT)=IPA(I) + 1 CONTINUE +* CALL VZERO(IPA(NT+1),MXGKCU-NT) +* CALL UCOPY(IPA(1),IPAX(1),100) +CDH + DO III = NT+1, MXGKCU + IPA(III) = 0 + ENDDO + DO III = 1, 100 + IPAX(III) = IPA(III) + ENDDO +C** +C** FOR LOW MULTIPLICITY USE TWO-BODY RESONANCE MODEL OR SINGLE/DOUBLE +C** DIFFRACTION MODEL (--> TWOCLU (--> TWOB (--> COSCAT))) +C** + CFA=0.025*((ATNO2-1.)/120.)*EXP(-(ATNO2-1.)/120.) + IF(NIHIL.GT.0) GOTO 200 + IF(NT.GE.8) GOTO 200 + IF(EK.LT.1.) GOTO 60 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IF(IPART.GE.10.AND.IPART.LE.13.AND.RAN.LT.0.5) GOTO 200 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + WSUP=TWSUP(NT) + IF(RAN.GT.WSUP) GOTO 200 + 60 CONTINUE +* CALL UCOPY(IPAX,IPA,100) +CDH + DO III = 1, 100 + IPA(III) = IPAX(III) + ENDDO + + CALL TWOCLU(IPPP,NFL,AVERN) + GO TO 9999 +C** +C** SET EFFECTIVE 4-MOMENTUM OF PRIMARY PARTICLE +C** + 200 MX =MXGKPV-20 + MX1=MX+1 + MX2=MX+2 + MX3=MX+3 + MX4=MX+4 + MX5=MX+5 + MX6=MX+6 + MX7=MX+7 + MX8=MX+8 + MX9=MX+9 + PV( 1,MXGKPV-1)=P*PX + PV( 2,MXGKPV-1)=P*PY + PV( 3,MXGKPV-1)=P*PZ + PV( 4,MXGKPV-1)=EN + PV( 5,MXGKPV-1)=AMAS + PV( 6,MXGKPV-1)=NCH + PV( 7,MXGKPV-1)=TOF + PV( 8,MXGKPV-1)=IPART + PV( 9,MXGKPV-1)=0. + PV(10,MXGKPV-1)=USERW + IER(49)=IER(49)+1 +C** +C** SOME RANDOMISATION OF ORDER OF FINAL STATE PARTICLES +C** + DO 201 I=3,NT + CALL GRNDM(RNDM,1) + IPX=IFIX(3.+RNDM(1)*(NT-2.)) + IF(IPX.GT.NT) IPX=NT + IPA1=IPA(IPX) + IPA(IPX)=IPA(I) + 201 IPA(I) =IPA1 +C** +C** DISTRIBUTE IN FORWARD AND BACKWARD HEMISPHERE IN CMS +C** + SIDE(1)= 1. + SIDE(2)=-1. + NTB=1 + TARG=0. + IF(IPART.LT.10.OR.IPART.GT.13) GOTO 53 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.7) GOTO 53 + IPA1=IPA(1) + IPA(1)=IPA(2) + IPA(2)=IPA1 + 53 LEAD=0 + IF(IPART.LT.10.OR.IPART.EQ.14.OR.IPART.EQ.16) GOTO 532 + IPA1=ABS(IPA(1)) + IF(IPA1.LT.10.OR.IPA1.EQ.14.OR.IPA1.EQ.16) GOTO 531 + LEAD=IPA1 + GOTO 532 + 531 IPA1=ABS(IPA(2)) + IF(IPA1.LT.10.OR.IPA1.EQ.14.OR.IPA1.EQ.16) GOTO 532 + LEAD=IPA1 + 532 DO 3 I=1,NT + IF(I.LE.2) GOTO 54 + SIDE(I)= 1. + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) SIDE(I)=-1. + IF(SIDE(I).LT.-0.5) NTB=NTB+1 + 54 CONTINUE + 3 CONTINUE + TB=2.*NTB + CALL GRNDM(RNDM,1) + IF(RS.LT.(2.0+RNDM(1))) TB=(2.*NTB+NT)/2. +C** +C** ADD PARTICLES FROM INTRANUCLEAR CASCADE +C** + AFC=0.312+0.200*LOG(LOG(S))+S**1.5/6000. + IF(AFC.GT.0.75) AFC=0.75 + XTARG=AFC*(ATNO2**0.33 -1.0)*TB + IF(XTARG.LE.0.) XTARG=0.01 + CALL POISSO(XTARG,NTARG) + NT2=NT+NTARG + IF(NT2.LE.MX) GOTO 2 + NT2=MX + NTARG=NT2-NT + 2 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,3001) NTARG,NT + NT1=NT+1 + IF(NTARG.EQ.0) GOTO 51 +C** +C** CHECK NUMBER OF EXTRA NUCLEONS AND PIONS +C** + DO 881 IPX=1,6 + IF(P.LE.PSUP(IPX)) GOTO 882 + 881 CONTINUE + IPX=6 + 882 DO 4 I=NT1,NT2 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IF(RAN.LT.NUCSUP(IPX)) GOTO 52 + CALL GRNDM(RNDM,1) + IPA(I)=-(7+IFIX(RNDM(1)*3.0)) + GOTO 4 + 52 IPA(I)=-16 + PNRAT=1.-ZNO2/ATNO2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.PNRAT) IPA(I)=-14 + TARG=TARG+1. + 4 SIDE(I)=-2. + NT=NT2 +C** +C** CHOOSE MASSES AND CHARGES FOR ALL PARTICLES +C** + 51 DO 5 I=1,NT + IPA1=ABS(IPA(I)) + PV(5,I)=RMASS(IPA1) + PV(6,I)=RCHARG(IPA1) + PV(7,I)=1. + IF(PV(5,I).LT.0.) PV(7,I)=-1. + PV(5,I)=ABS(PV(5,I)) + 5 CONTINUE +C** +C** CHECK AVAILABLE KINETIC ENERGY, IN THIS MODEL CONSERVATION OF +C** KINETIC ENERGY IN FORWARD AND BACKWARD HEMISPHERE IS ASSUMED +C** + 6 IF(NT.LE.1) GOTO 60 + TAVAI(1)=RS/2. + TAVAI(2)=(TARG+1.)*RS/2. + IAVAI(1)=0 + IAVAI(2)=0 + DO 7 I=1,NT + L=1 + IF(SIDE(I).LT.0.) L=2 + IAVAI(L)=IAVAI(L)+1 + TAVAI(L)=TAVAI(L)-ABS(PV(5,I)) + 7 CONTINUE + NTH=NT + IF(NTH.GT.10) NTH=10 + IF (NPRT(4)) + $ WRITE(NEWBCD,3002) TAVAI,IAVAI,(IPA(I),SIDE(I),I=1,NTH) + IF(IAVAI(1).LE.0) GOTO 60 + IF(IAVAI(2).LE.0) GOTO 60 + IF(TAVAI(1).GT.0.) GOTO 11 + CALL GRNDM(RNDM,1) + ISKIP=IFIX(RNDM(1)*(IAVAI(1)-1))+1 + IS=0 + DO 10 I=1,NT + II=NT-I+1 + IF(SIDE(II).LT.0.) GOTO 10 + IS=IS+1 + IF(IS.NE.ISKIP) GOTO 10 + IF(II.EQ.NT) GOTO 9 + NT1=II+1 + NT2=NT + DO 8 J=NT1,NT2 + IPA(J-1)=IPA(J) + SIDE(J-1)=SIDE(J) + DO 71 K=1,10 + 71 PV(K,J-1)=PV(K,J) + 8 CONTINUE + GOTO 9 + 10 CONTINUE + 9 IPA(NT)=0 + SIDE(NT)=0. + NT=NT-1 + GOTO 6 + 11 IF(TAVAI(2).GT.0.) GOTO 15 + CALL GRNDM(RNDM,1) + ISKIP=IFIX(RNDM(1)*(IAVAI(2)-1))+1 + IS=0 + DO 14 I=1,NT + II=NT-I+1 + IF(SIDE(II).GT.0.) GOTO 14 + IS=IS+1 + IF(IS.NE.ISKIP) GOTO 14 + IF(SIDE(II).LT.-1.5) NTARG=NTARG-1 + IF(NTARG.LT.0) NTARG=0 + IF(II.EQ.NT) GOTO 13 + NT1=II+1 + NT2=NT + DO 12 J=NT1,NT2 + IPA(J-1)=IPA(J) + SIDE(J-1)=SIDE(J) + DO 74 K=1,10 + 74 PV(K,J-1)=PV(K,J) + 12 CONTINUE + GOTO 13 + 14 CONTINUE + 13 IPA(NT)=0 + SIDE(NT)=0. + NT=NT-1 + GOTO 6 + 15 IF(NT.LE.1) GOTO 60 + IF(NT.EQ.MX) GOTO 29 + NT1=NT+1 + NT2=MX + DO 28 I=NT1,NT2 + 28 IPA(I)=0 + 29 CONTINUE +C** +C** NOW THE PREPARATION IS FINISHED. +C** DEFINE INITIAL STATE VECTORS FOR LORENTZ TRANSFORMATIONS. +C** + PV( 1,MX1)=0. + PV( 2,MX1)=0. + PV( 3,MX1)=P + PV( 4,MX1)=SQRT(P*P+AMAS*AMAS) + PV( 5,MX1)=ABS(AMAS) + PV( 1,MX2)=0. + PV( 2,MX2)=0. + PV( 3,MX2)=0. + PV( 4,MX2)=MP + PV( 5,MX2)=MP + PV( 1,MX4)=0. + PV( 2,MX4)=0. + PV( 3,MX4)=0. + PV( 4,MX4)=MP*(1.+TARG) + PV( 5,MX4)=PV(4,MX4) + PV( 1,MX8)=0. + PV( 2,MX8)=0. + PV( 3,MX8)=0. + PV( 1,MX9)=1. + PV( 2,MX9)=0. + PV( 3,MX9)=0. + CALL ADD(MX1,MX2,MX3) + CALL ADD(MX4,MX1,MX4) + CALL LOR(MX1,MX3,MX1) + CALL LOR(MX2,MX3,MX2) +C** +C** MAIN LOOP FOR 4-MOMENTUM GENERATION , SEE PITHA-REPORT (AACHEN) +C** FOR A DETAILED DESCRIPTION OF THE METHOD. +C** + CALL GRNDM(RNDM,1) + PHI=RNDM(1)*TWPI + EKIN1=0. + EKIN2=0. + DO 39 J=1,10 + PV(J,MX5)=0. + 39 PV(J,MX6)=0. + NPG=0 + TARG1=0. + DO 16 III=1,NT + I=NT-III+1 + IPA1=ABS(IPA(I)) +C** +C** COUNT NUMBER OF BACKWARD NUCLEONS +C** + IF(I.EQ.2) GOTO 301 + IF(SIDE(I).LT.-1.5.AND.IPA1.GE.14) GOTO 301 + GOTO 38 + 301 NPG=NPG+1 + IF(NPG.GT.18) GOTO 38 + SIDE(I)=-3. + TARG1=TARG1+1. + GOTO 16 + 38 J=3 + IF(IPA1.LT.14) J=2 + IF(IPA1.LT.10) J=1 + IF(I.LE.2) J=J+3 + IF(SIDE(I).LT.-1.5) J=7 + IF(J.EQ.7.AND.IPA1.GE.14) J=8 +C** +C** SET PT - AND PHI VALUES, THEY ARE CHANGED SOMEWHAT IN THE ITERATION +C** LOOP, SET MASS PARAMETER FOR LAMBDA FRAGMENTATION MODEL +C** + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + BPP=BP(J) + BPE=PTEX(J) + PT2=-LOG(1.-RAN)/BPP + ASPAR=MASPAR(J) + PT2=PT2**BPE + PT =SQRT(PT2) + IF(PT.LT.0.001) PT=0.001 + PV(1,I)=PT*COS(PHI) + PV(2,I)=PT*SIN(PHI) + PV(10,I)=PT + BINL(1)=0. + RLMAX=1./PV(10,I) + DO 73 J=2,20 + 73 BINL(J)=RLMAX*(J-1)/19. + ET=PV(4,MX1) + IF(SIDE(I).LT.0.) THEN + ET=PV(4,MX2) + ENDIF + DNDL(1)=0. + NTRIAL=0 +C** +C** START OF BIG ITERATION LOOP +C** + 30 NTRIAL=NTRIAL+1 + IF(NTRIAL.GT. 2) GOTO 169 + DO 17 L=2,20 + DNDL(L)=0. + X=(BINL(L)+BINL(L-1))/2. + IF(PV(10,I).LT.0.001) PV(10,I)=0.001 + IF(X.GT.1./PV(10,I)) GOTO 17 + DX=BINL(L)-BINL(L-1) + DNDL(L)=ASPAR/SQRT((1.+(ASPAR*X)**2)**3) + DNDL(L)=ET*DNDL(L)/SQRT((X*PV(10,I)*ET)**2+PV(10,I)**2 + * +PV(5,I)**2) + DNDL(L)=DNDL(L)*DX + 17 DNDL(L)=DNDL(L-1)+DNDL(L) + NTRI=0 + 31 CALL GRNDM(RNDM,1) + RAN=RNDM(1)*DNDL(20) + DO 18 L=2,20 + IF(RAN.LT.DNDL(L)) GOTO 19 + 18 CONTINUE +C** +C** START OF SMALL ITERATION LOOP +C** + 19 NTRI=NTRI+1 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + DX=BINL(L)-BINL(L-1) + LAMB=BINL(L-1)+RAN*DX/2. + X=PV(10,I)*LAMB + IF(X.GT.1.) X=1. + X=X*SIDE(I)/ABS(SIDE(I)) + PV(3,I)=X*ET + PV(4,I)=PV(3,I)**2+PV(10,I)**2+PV(5,I)**2 + PV(4,I)=SQRT(PV(4,I)) + IF(SIDE(I).LT.0.) GOTO 165 + IF(I.GT.2) GOTO 20 + EKIN=TAVAI(1)-EKIN1 + CALL NORMAL(RAN) + IF(EKIN.LT.0.) EKIN=0.04*ABS(RAN) + PV(4,I)=ABS(PV(5,I))+EKIN + RNVE=ABS(PV(4,I)**2-PV(5,I)**2) + PP=SQRT(RNVE) + CALL LENGTX(I,PP1) +C + IF (PP1 .GE. 1.0E-6) GO TO 8000 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP*COS(RTHNVE) + GO TO 8001 + 8000 CONTINUE + PV(1,I)=PV(1,I)*PP/PP1 + PV(2,I)=PV(2,I)*PP/PP1 + PV(3,I)=PV(3,I)*PP/PP1 + 8001 CONTINUE +C + CALL ADD(MX5,I,MX5) + GOTO 16 + 20 EKIN=EKIN1+PV(4,I)-ABS(PV(5,I)) + IF(EKIN.LT.0.95*TAVAI(1)) GOTO 161 + IF(NTRI.GT. 5) GOTO 167 + PV(10,I)=PV(10,I)*0.9 + PV( 1,I)=PV( 1,I)*0.9 + PV( 2,I)=PV( 2,I)*0.9 + DNDL(20)=DNDL(20)*0.9 + IF((TAVAI(2)-ABS(PV(5,I))).LT.0.) GOTO 31 + SIDE(I)=-1. + TAVAI(1)=TAVAI(1)+ABS(PV(5,I)) + TAVAI(2)=TAVAI(2)-ABS(PV(5,I)) + GOTO 31 + 161 CALL ADD(MX5,I,MX5) + EKIN1=EKIN1+PV(4,I)-ABS(PV(5,I)) + GOTO 163 + 165 EKIN=EKIN2+PV(4,I)-ABS(PV(5,I)) + XXX=0.95+0.05*TARG/20. + IF(XXX.GT.0.999) X=0.999 + IF(EKIN.LT.XXX*TAVAI(2)) GOTO 166 + IF(NTRI.GT. 5) GOTO 167 + PV(10,I)=PV(10,I)*0.9 + PV( 1,I)=PV( 1,I)*0.9 + PV( 2,I)=PV( 2,I)*0.9 + DNDL(20)=DNDL(20)*0.9 + IF((TAVAI(1)-ABS(PV(5,I))).LT.0.) GOTO 31 + SIDE(I)=+1. + TAVAI(1)=TAVAI(1)-ABS(PV(5,I)) + TAVAI(2)=TAVAI(2)+ABS(PV(5,I)) + GOTO 31 + 166 CALL ADD(MX6,I,MX6) + EKIN2=EKIN2+PV(4,I)-ABS(PV(5,I)) + 163 CALL ADD(MX5,MX6,MX7) + PV(3,MX7)=0. + CALL ANG(MX7,MX9,COST,PHIS) + IF(PV(2,MX7).LT.0.) PHIS=TWPI-PHIS + CALL NORMAL(RAN) + RAN=RAN*PI/12. + PHI=PHIS+PI+RAN + IF(PHI.GT.TWPI) PHI=PHI-TWPI + IF(PHI.LT.0.) PHI=TWPI-PHI + GOTO 16 +C** +C** PARTICLE MOMENTUM ZERO, REDUCE KINETIC ENERGY OF ALL OTHER +C** + 167 EKIN1=0. + EKIN2=0. + DO 162 J=1,10 + PV(J,MX5)=0. + 162 PV(J,MX6)=0. + II=I+1 + DO 168 L=II,NT + IF(ABS(IPA(L)).GE.14.AND.SIDE(L).LT.0.) GOTO 168 + PV(4,L)=PV(4,L)*0.95+0.05*ABS(PV(5,L)) + IF(PV(4,L).LT.ABS(PV(5,L))) PV(4,L)=ABS(PV(5,L)) + RNVE=ABS(PV(4,L)**2-PV(5,L)**2) + PP=SQRT(RNVE) + CALL LENGTX(L,PP1) +C + IF (PP1 .GE. 1.0E-6) GO TO 8002 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,L)=PP*SIN(RTHNVE)*COS(PHINVE) + PV(2,L)=PP*SIN(RTHNVE)*SIN(PHINVE) + PV(3,L)=PP*COS(RTHNVE) + GO TO 8003 + 8002 CONTINUE + PV(1,L)=PV(1,L)*PP/PP1 + PV(2,L)=PV(2,L)*PP/PP1 + PV(3,L)=PV(3,L)*PP/PP1 + 8003 CONTINUE +C + PV(10,L)=SQRT(PV(1,L)**2+PV(2,L)**2) + IF(SIDE(L).LT.0.) GOTO 164 + EKIN1=EKIN1+PV(4,L)-ABS(PV(5,L)) + CALL ADD(MX5,L,MX5) + GOTO 168 + 164 EKIN2=EKIN2+PV(4,L)-ABS(PV(5,L)) + CALL ADD(MX6,L,MX6) + 168 CONTINUE +C *** NEXT STMT. CHANGED TO PREVENT FROM INFINITE LOOPING *** +C************* GOTO 38 + GO TO 30 +C** +C** SKIP PARTICLE, IF NOT ENOUGH ENERGY +C** + 169 IPA(I)=0 + DO 170 J=1,10 + 170 PV(J,I)=0. + GOTO 163 + 16 CONTINUE + NTRI=0 + II=0 + DO 320 I=1,NT + IF(IPA(I).EQ.0) GOTO 320 + II=II+1 + IPA(II)=IPA(I) + SIDE(II)=SIDE(I) + DO 321 J=1,10 + 321 PV(J,II)=PV(J,I) + 320 CONTINUE + NT=II +C** +C** BACKWARD NUCLEONS PRODUCED WITH A CLUSTER MODEL +C** + CALL LOR(MX4,MX3,MX7) + CALL SUB(MX7,MX5,MX7) + CALL SUB(MX7,MX6,MX7) + IF(TARG1.GT.1.5) GOTO 310 + 322 I=2 + CALL NORMAL(RAN) + EKIN=TAVAI(2)-EKIN2 + EKINM=RS/2.-MP + IF(EKIN.GT.EKINM) EKIN=EKINM + CALL NORMAL(RAN) + IF(EKIN.LT.0.04) EKIN=0.04*ABS(RAN) + PV(4,I)=ABS(PV(5,I))+EKIN + RNVE=ABS(PV(4,I)**2-PV(5,I)**2) + PP=SQRT(RNVE) + CALL LENGTX(MX7,PP1) +C + IF (PP1 .GE. 1.0E-6) GO TO 8004 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP*COS(RTHNVE) + GO TO 8005 + 8004 CONTINUE + PV(1,I)=PV(1,MX7)*PP/PP1 + PV(2,I)=PV(2,MX7)*PP/PP1 + PV(3,I)=PV(3,MX7)*PP/PP1 + 8005 CONTINUE +C + CALL ADD(MX6,I,MX6) + GOTO 330 + 310 ITARG1=IFIX(TARG1+0.1) + IF(ITARG1.GT.5) ITARG1=5 + RMB0=0. + NPG=0 + DO 311 I=1,NT + IF(SIDE(I).GT.-2.5) GOTO 311 + NPG=NPG+1 + RMB0=RMB0+ABS(PV(5,I)) + 311 CONTINUE + IF(NPG.LT.2) GOTO 322 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + RMB=-LOG(1.-RAN) + GPAR=G1PAR(ITARG1) + CPAR=C1PAR(ITARG1) + RMB=RMB0+RMB**CPAR/GPAR + PV(5,MX7)=RMB + IF(PV(5,MX7).GT.PV(4,MX7)) PV(5,MX7)=PV(4,MX7) + RNVE=ABS(PV(4,MX7)**2-PV(5,MX7)**2) + PP=SQRT(RNVE) + CALL LENGTX(MX7,PP1) +C + IF (PP1 .GE. 1.0E-6) GO TO 8006 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,MX7)=PP*SIN(RTHNVE)*COS(PHINVE) + PV(2,MX7)=PP*SIN(RTHNVE)*SIN(PHINVE) + PV(3,MX7)=PP*COS(RTHNVE) + GO TO 8007 + 8006 CONTINUE + PV(1,MX7)=PV(1,MX7)*PP/PP1 + PV(2,MX7)=PV(2,MX7)*PP/PP1 + PV(3,MX7)=PV(3,MX7)*PP/PP1 + 8007 CONTINUE +C + I=MX7 + IF (NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + PV(1,MX7)=-PV(1,MX7) + PV(2,MX7)=-PV(2,MX7) + PV(3,MX7)=-PV(3,MX7) + KGENEV=1 + TECM=PV(5,MX7) + NPG=0 + DO 312 I=1,NT + IF(SIDE(I).GT.-2.5)GOTO 312 + NPG=NPG+1 + AMASS(NPG)=ABS(PV(5,I)) + 312 CONTINUE + CALL PHASP + NPG=0 + DO 314 I=1,NT + IF(SIDE(I).GT.-2.5) GOTO 314 + NPG=NPG+1 + PV(1,I)=PCM(1,NPG) + PV(2,I)=PCM(2,NPG) + PV(3,I)=PCM(3,NPG) + PV(4,I)=PCM(4,NPG) + CALL LOR(I,MX7,I) + CALL ADD(MX6,I,MX6) + 314 CONTINUE + 330 IF (NPRT(4)) + $ WRITE(NEWBCD,2002) NTRIAL,EKIN1,EKIN2,TAVAI(1),TAVAI(2) + 175 IF (.NOT.NPRT(4)) GOTO 36 + CALL ADD(MX5,MX6,MX7) + EKIN1=PV(4,MX1)+PV(4,MX2) + EKIN2=PV(4,MX5)+PV(4,MX6) + WRITE(NEWBCD,2000) EKIN1,EKIN2 + I=MX1 + WRITE(NEWBCD,2001) I,(PV(J,I),J=1,4) + I=MX2 + WRITE(NEWBCD,2001) I,(PV(J,I),J=1,4) + I=MX5 + WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + I=MX6 + WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + DO 37 I=1,NT + 37 WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) +C** +C** LORENTZ TRANSFORMATION IN LAB SYSTEM +C** + 36 IF(NT.LE.2) GOTO 60 + TARG=0. + DO 601 I=1,NT + IF(PV(5,I).GT.0.5) TARG=TARG+1. + CALL LOR(I,MX2,I) + 601 CONTINUE + IF(TARG.LT.0.5) TARG=1. + IF(LEAD.EQ.0) GOTO 6085 + DO 6081 I=1,NT + IF(ABS(IPA(I)).EQ.LEAD) GOTO 6085 + 6081 CONTINUE + I=1 + IF(LEAD.GE.14.AND.ABS(IPA(2)).GE.14) I=2 + IF(LEAD.LT.14.AND.ABS(IPA(2)).LT.14) I=2 + IPA(I)=LEAD + EKIN=PV(4,I)-ABS(PV(5,I)) + PV(5,I)=RMASS(LEAD) + PV(7,I)=1. + IF(PV(5,I).LT.0.) PV(7,I)=-1. + PV(5,I)=ABS(PV(5,I)) + PV(6,I)=RCHARG(LEAD) + PV(4,I)=PV(5,I)+EKIN + CALL LENGTX(I,PP) + RNVE=ABS(PV(4,I)**2-PV(5,I)**2) + PP1=SQRT(RNVE) + PV(1,I)=PP1*PV(1,I)/PP + PV(2,I)=PP1*PV(2,I)/PP + PV(3,I)=PP1*PV(3,I)/PP + 6085 KGENEV=1 + PV(1,MX4)=0. + PV(2,MX4)=0. + PV(3,MX4)=P + PV(4,MX4)=SQRT(P*P+AMAS*AMAS) + PV(5,MX4)=ABS(AMAS) + EKIN0=PV(4,MX4)-PV(5,MX4) + PV(1,MX5)=0. + PV(2,MX5)=0. + PV(3,MX5)=0. + PV(4,MX5)=MP*TARG + PV(5,MX5)=PV(4,MX5) + EKIN=PV(4,MX4)+PV(4,MX5) + I=MX4 + IF (NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + I=MX5 + IF (NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + CALL ADD(MX4,MX5,MX6) + CALL LOR(MX4,MX6,MX4) + CALL LOR(MX5,MX6,MX5) + TECM=PV(4,MX4)+PV(4,MX5) + NPG=NT + PV(1,MX8)=0. + PV(2,MX8)=0. + PV(3,MX8)=0. + PV(4,MX8)=0. + PV(5,MX8)=0. + EKIN1=0. + DO 598 I=1,NPG + IF (NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) + CALL ADD(MX8,I,MX8) + EKIN1=EKIN1+PV(4,I)-PV(5,I) + EKIN=EKIN-PV(5,I) + IF(I.GT.18) GOTO 598 + AMASS(I)=PV(5,I) + 598 CONTINUE + IF(NPG.GT.18) GOTO 597 + CALL PHASP + EKIN=0. + DO 599 I=1,NPG + PV(1,MX7)=PCM(1,I) + PV(2,MX7)=PCM(2,I) + PV(3,MX7)=PCM(3,I) + PV(4,MX7)=PCM(4,I) + PV(5,MX7)=AMASS(I) + CALL LOR(MX7,MX5,MX7) + 599 EKIN=EKIN+PV(4,MX7)-PV(5,MX7) + CALL ANG(MX8,MX4,COST,TETA) + IF (NPRT(4)) WRITE(NEWBCD,2003) TETA,EKIN0,EKIN1,EKIN +C** +C** MAKE SHURE, THAT KINETIC ENERGIES ARE CORRECT. +C** EKIN= KINETIC ENERGY THEORETICALLY +C** EKIN1= KINETIC ENERGY SIMULATED +C** + 597 IF(EKIN1.EQ.0.) GOTO 600 + PV(1,MX7)=0. + PV(2,MX7)=0. + PV(3,MX7)=0. + PV(4,MX7)=0. + PV(5,MX7)=0. + WGT=EKIN/EKIN1 + EKIN1=0. + DO 602 I=1,NT + EKIN=PV(4,I)-PV(5,I) + EKIN=EKIN*WGT + PV(4,I)=EKIN+PV(5,I) + RNVE=ABS(PV(4,I)**2-PV(5,I)**2) + PP=SQRT(RNVE) + CALL LENGTX(I,PP1) +C + IF (PP1 .GE. 1.0E-6) GO TO 8008 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP*COS(RTHNVE) + GO TO 8009 + 8008 CONTINUE + PV(1,I)=PV(1,I)*PP/PP1 + PV(2,I)=PV(2,I)*PP/PP1 + PV(3,I)=PV(3,I)*PP/PP1 + 8009 CONTINUE +C + EKIN1=EKIN1+EKIN + CALL ADD(MX7,I,MX7) + 602 CONTINUE + CALL ANG(MX7,MX4,COST,TETA) + IF (NPRT(4)) WRITE(NEWBCD,2003) TETA,EKIN0,EKIN1 +C** +C** ROTATE IN DIRECTION OF Z-AXIS, THIS DOES DISTURB IN SOME WAY OUR +C** INCLUSIVE DISTRIBUTIONS, BUT IT IS NESSACARY FOR MOMENTUM CONSER- +C** VATION. +C** + 600 PV(1,MX7)=0. + PV(2,MX7)=0. + PV(3,MX7)=0. + PV(4,MX7)=0. + PV(5,MX7)=0. + DO 596 I=1,NT + CALL ADD(MX7,I,MX7) + 596 CONTINUE +C** +C** SOME SMEARING IN TRANSVERSE DIRECTION FROM FERMI MOTION +C** +* CALL RANNOR(RAN1,RAN2) + CALL GRNDM(RNDM,2) + RY=RNDM(1) + RZ=RNDM(2) + RX=6.283185*RZ + A1=SQRT(-2.*LOG(RY)) + RAN1=A1*SIN(RX) + RAN2=A1*COS(RX) + PV(1,MX7)=PV(1,MX7)+RAN1*0.020*TARG + PV(2,MX7)=PV(2,MX7)+RAN2*0.020*TARG + CALL DEFS(MX4,MX7,MX8) + PV(1,MX7)=0. + PV(2,MX7)=0. + PV(3,MX7)=0. + PV(4,MX7)=0. + PV(5,MX7)=0. + DO 595 I=1,NT + CALL TRAC(I,MX8,I) + CALL ADD(MX7,I,MX7) + 595 CONTINUE + CALL ANG(MX7,MX4,COST,TETA) + IF (NPRT(4)) WRITE(NEWBCD,2003) TETA +C** +C** ROTATE IN DIRECTION OF PRIMARY PARTICLE, SUBTRACT BINDING ENERGIES +C** AND MAKE SOME FURTHER CORRECTIONS IF REQUIRED (STEEP, STEEQ) +C** + DEKIN=0. + NPIONS=0 + EK1=0. + DO 21 I=1,NT + CALL DEFS1(I,MXGKPV-1,I) + IF (NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) + IF(ATNO2.LT.1.5) GOTO 21 + CALL LENGTX(I,PP) + EKIN=PV(4,I)-ABS(PV(5,I)) + CALL NORMAL(RAN) + EKIN=EKIN-CFA*(1.+0.5*RAN) + IF (EKIN .LT. 1.0E-6) EKIN=1.0E-6 + CALL STEEQ(XXH,I) + DEKIN=DEKIN+EKIN*(1.-XXH) + EKIN=EKIN*XXH + IF(ABS(IPA(I)).GE.7.AND.ABS(IPA(I)).LE.9) NPIONS=NPIONS+1 + IF(ABS(IPA(I)).GE.7.AND.ABS(IPA(I)).LE.9) EK1=EK1+EKIN + PP1=SQRT(EKIN*(EKIN+2.*ABS(PV(5,I)))) + PV(4,I)=EKIN+ABS(PV(5,I)) +C + IF (PP .GE. 1.0E-6) GO TO 8010 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP1*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP1*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP1*COS(RTHNVE) + GO TO 8011 + 8010 CONTINUE + PV(1,I)=PV(1,I)*PP1/PP + PV(2,I)=PV(2,I)*PP1/PP + PV(3,I)=PV(3,I)*PP1/PP + 8011 CONTINUE +C + 21 CONTINUE + IF(EK1.EQ.0.) GOTO 23 + IF(NPIONS.EQ.0) GOTO 23 + DEKIN=1.+DEKIN/EK1 + DO 22 I=1,NT + IF(ABS(IPA(I)).LT.7.OR.ABS(IPA(I)).GT.9) GOTO 22 + CALL LENGTX(I,PP) + EKIN=PV(4,I)-ABS(PV(5,I)) + EKIN=EKIN*DEKIN + IF (EKIN .LT. 1.0E-6) EKIN=1.0E-6 + PP1=SQRT(EKIN*(EKIN+2.*ABS(PV(5,I)))) + PV(4,I)=EKIN+ABS(PV(5,I)) +C + IF (PP .GE. 1.0E-6) GO TO 8012 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP1*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP1*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP1*COS(RTHNVE) + GO TO 8013 + 8012 CONTINUE + PV(1,I)=PV(1,I)*PP1/PP + PV(2,I)=PV(2,I)*PP1/PP + PV(3,I)=PV(3,I)*PP1/PP + 8013 CONTINUE +C + 22 CONTINUE +C** +C** ADD BLACK TRACK PARTICLES, THE TOTAL NUMBER OF PARTICLES PRODUCED +C** IS RESTRICTED TO 198, THIS MAY HAVE INFLUENCE ON VERY HIGH ENERGY +C** FIRST PROTONS AND NEUTRONS +C** + 23 IF(ATNO2.LT.1.5) GOTO 40 + CALL SELFAB(SPROB) + TEX=ENP(1) + SPALL=TARG + IF(TEX.LT.0.001) GOTO 445 + BLACK=(1.5+1.25*TARG)*ENP(1)/(ENP(1)+ENP(3)) + CALL POISSO(BLACK,NBL) + IF (NPRT(4)) WRITE(NEWBCD,3003) NBL,TEX + IF(IFIX(TARG)+NBL.GT.ATNO2) NBL=ATNO2-TARG + IF(NT+NBL.GT.MXGKPV-10) NBL=MXGKPV-10-NT + IF(NBL.LE.0) GOTO 445 + EKIN=TEX/NBL + EKIN2=0. + CALL STEEP(XX) + DO 441 I=1,NBL + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SPROB) GOTO 441 + IF(NT.EQ.MXGKPV-10) GOTO 441 + IF(EKIN2.GT.TEX) GOTO 443 + CALL GRNDM(RNDM,1) + RAN1=RNDM(1) + CALL NORMAL(RAN2) + EKIN1=-EKIN*LOG(RAN1)-CFA*(1.+0.5*RAN2) + IF(EKIN1.LT.0.0) EKIN1=-0.010*LOG(RAN1) + EKIN1=EKIN1*XX + EKIN2=EKIN2+EKIN1 + IF(EKIN2.GT.TEX) EKIN1=TEX-(EKIN2-EKIN1) + IF (EKIN1 .LT. 0.0) EKIN1=1.0E-6 + IPA1=16 + PNRAT=1.-ZNO2/ATNO2 + CALL GRNDM(RNDM,3) + IF(RNDM(1).GT.PNRAT) IPA1=14 + NT=NT+1 + SPALL=SPALL+1. + COST=-1.+RNDM(2)*2. + SINT=SQRT(ABS(1.-COST*COST)) + PHI=TWPI*RNDM(3) + IPA(NT)=-IPA1 + SIDE(NT)=-4. + PV(5,NT)=ABS(RMASS(IPA1)) + PV(6,NT)=RCHARG(IPA1) + PV(7,NT)=1. + PV(4,NT)=EKIN1+PV(5,NT) + RNVE=ABS(PV(4,NT)**2-PV(5,NT)**2) + PP=SQRT(RNVE) + PV(1,NT)=PP*SINT*SIN(PHI) + PV(2,NT)=PP*SINT*COS(PHI) + PV(3,NT)=PP*COST + 441 CONTINUE + 443 IF(ATNO2.LT.10.) GOTO 445 + IF(EK.GT.2.0) GOTO 445 + II=NT+1 + KK=0 + EKA=EK + IF(EKA.GT.1.) EKA=EKA*EKA + IF(EKA.LT.0.1) EKA=0.1 + IKA=3.6*EXP((ZNO2**2/ATNO2-35.56)/6.45)/EKA + IF(IKA.LE.0) GO TO 445 + DO 444 I=1,NT + II=II-1 + IF(IPA(II).NE.-14) GOTO 444 + IPA(II)=-16 + IPA1 = 16 + PV(5,II)=ABS(RMASS(IPA1)) + PV(6,II)=RCHARG(IPA1) + KK=KK+1 + IF(KK.GT.IKA) GOTO 445 + 444 CONTINUE +C** +C** THEN ALSO DEUTERONS, TRITONS AND ALPHAS +C** + 445 TEX=ENP(3) + IF(TEX.LT.0.001) GOTO 40 + BLACK=(1.5+1.25*TARG)*ENP(3)/(ENP(1)+ENP(3)) + CALL POISSO(BLACK,NBL) + IF(NT+NBL.GT.MXGKPV-10) NBL=MXGKPV-10-NT + IF(NBL.LE.0) GOTO 40 + EKIN=TEX/NBL + EKIN2=0. + CALL STEEP(XX) + IF (NPRT(4)) WRITE(NEWBCD,3004) NBL,TEX + DO 442 I=1,NBL + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SPROB) GOTO 442 + IF(NT.EQ.MXGKPV-10) GOTO 442 + IF(EKIN2.GT.TEX) GOTO 40 + CALL GRNDM(RNDM,1) + RAN1=RNDM(1) + CALL NORMAL(RAN2) + EKIN1=-EKIN*LOG(RAN1)-CFA*(1.+0.5*RAN2) + IF(EKIN1.LT.0.0) EKIN1=-0.010*LOG(RAN1) + EKIN1=EKIN1*XX + EKIN2=EKIN2+EKIN1 + IF(EKIN2.GT.TEX) EKIN1=TEX-(EKIN2-EKIN1) + IF (EKIN1 .LT. 0.0) EKIN1=1.0E-6 + CALL GRNDM(RNDM,3) + COST=-1.+RNDM(1)*2. + SINT=SQRT(ABS(1.-COST*COST)) + PHI=TWPI*RNDM(2) + RAN=RNDM(3) + IPA(NT+1)=-30 + IF(RAN.GT.0.60) IPA(NT+1)=-31 + IF(RAN.GT.0.90) IPA(NT+1)=-32 + SIDE(NT+1)=-4. + PV(5,NT+1)=(ABS(IPA(NT+1))-28)*MP + SPALL=SPALL+PV(5,NT+1)*1.066 + IF(SPALL.GT.ATNO2) GOTO 40 + NT=NT+1 + PV(6,NT)=1. + IF(IPA(NT).EQ.-32) PV(6,NT)=2. + PV(7,NT)=1. + PV(4,NT)=PV(5,NT)+EKIN1 + RNVE=ABS(PV(4,NT)**2-PV(5,NT)**2) + PP=SQRT(RNVE) + PV(1,NT)=PP*SINT*SIN(PHI) + PV(2,NT)=PP*SINT*COS(PHI) + PV(3,NT)=PP*COST + 442 CONTINUE +C** +C** STORE ON EVENT COMMON +C** + 40 CALL GRNDM(RNDM,1) + IF(RS.GT.(4.+RNDM(1))) GOTO 42 + DO 41 I=1,NT + CALL LENGTX(I,ETB) + IF(ETB.LT.P) GOTO 41 + ETF=P + PV(4,I)=SQRT(PV(5,I)**2+ETF**2) + ETF=ETF/ETB + PV(1,I)=PV(1,I)*ETF + PV(2,I)=PV(2,I)*ETF + PV(3,I)=PV(3,I)*ETF + 41 CONTINUE + 42 EKIN=PV(4,MXGKPV)-ABS(PV(5,MXGKPV)) + EKIN1=PV(4,MXGKPV-1)-ABS(PV(5,MXGKPV-1)) + EKIN2=0. + CALL TDELAY(TOF1) + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + TOF=TOF-TOF1*LOG(RAN) + DO 44 I=1,NT + EKIN2=EKIN2+PV(4,I)-ABS(PV(5,I)) + IF(PV(7,I).LT.0.) PV(5,I)=-PV(5,I) + PV(7,I)=TOF + PV(8,I)=ABS(IPA(I)) + PV(9,I)=0. + 44 PV(10,I)=0. + IF (NPRT(4)) WRITE(NEWBCD,2006) NT,EKIN,ENP(1),ENP(3),EKIN1,EKIN2 + INTCT=INTCT+1. + CALL SETCUR(NT) + NTK=NTK+1 + IF(NT.EQ.1) GO TO 9999 + DO 50 II=2,NT + I=II-1 + IF(NTOT.LT.NSIZE/12) GOTO 43 + GO TO 9999 + 43 CALL SETTRK(I) + 50 CONTINUE +C + 2002 FORMAT(' *GENXPT* PRODUCTION OF FINAL STATE KINEMATIC AFTER ',I3, + $ ' TRIALS.',/,' KINETIC ENERGIES ',2F6.2,' OUT OF ',2F6.2) + 2000 FORMAT(' *GENXPT* CMS PARAMETERS OF FINAL STATE PARTICLES,',/, + $ ' ENERGIES IN INITIAL AND FINAL STATE ',2F6.2) + 2001 FORMAT(' *GENXPT* TRACK',2X,I3,2X,10F8.3,2X,I3,2X,F4.0) + 2003 FORMAT(' *GENXPT* TETA,EKIN0,EKIN1,EKIN ',4F10.4) + 2006 FORMAT(' *GENXPT* COMP.',1X,I5,1X,5F7.2) + 3001 FORMAT(' *GENXPT* NUCLEAR EXCITATION',I5, + $ ' PARTICLES PRODUCED IN ADDITION TO ',I5,' NORMAL PARTICLES') + 3002 FORMAT(' *GENXPT* AVAILABLE ENERGIES ',2F10.4, + $ ' FOR ',2I3,' PARTICLES IN BEAM/TARGET FRAGM. REGION', + $ ' WITH IPA/SIDE ARRAY '/ + $ 1H ,5X,10(I3,2X,F3.0,4X)) + 3003 FORMAT(' *GENXPT* ',I3,' BLACK TRACK PARTICLES PRODUCED', + $ ' WITH TOTAL KINETIC ENERGY OF ',F8.3,' GEV') + 3004 FORMAT(' *GENXPT* ',I5,' HEAVY FRAGMENTS PRODUCED', + $ ' WITH TOTAL ENERGY OF',F8.4,' GEV') +C + 9999 CONTINUE +C + RETURN + END +*CMZ : 3.16/00 05/11/93 19.31.20 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE GHEPEC(LEDPAR) +C** +C** MOMENTUM CONSERVATION AT HIGH ENERGIES +C** + PARAMETER (MXGKGH=100) + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + DOUBLE PRECISION AHMF,BHMF + SAVE +C** + IF(LEDPAR.LE.0) RETURN +C** + MX=MXGKPV-10 + MX5=MX+5 + MX6=MX+6 + MX7=MX+7 + MX9=MX+9 +C** +C** APPLY CORRECTION ON LEADING PARTICLE +C** + IF(NPRT(4)) + $ WRITE(NEWBCD,1002) LEDPAR,(PV(J,LEDPAR),J=1,10) +C** + CALL SUB3(MX9,MXGKPV,MX5) + CALL ANG(MXGKPV,LEDPAR,COST,TETA) + CALL LENGTX(LEDPAR,PPP) + PTLED=PPP*SQRT(1.-COST**2) + CALL SUB3(LEDPAR,MX5,LEDPAR) + CALL ANG(MXGKPV,LEDPAR,COST,TETA) + CALL LENGTX(LEDPAR,PPP) + PPP=PPP*COST + CALL LENGTX(MXGKPV,PBEAM) + PV(1,MX6)=PV(1,MXGKPV)*PPP/PBEAM + PV(2,MX6)=PV(2,MXGKPV)*PPP/PBEAM + PV(3,MX6)=PV(3,MXGKPV)*PPP/PBEAM + CALL CROSS3(MXGKPV,LEDPAR,MX7) + CALL CROSS3(MX7,MXGKPV,MX7) + CALL LENGTX(MX7,PPP) +CDH TO AVOID DIVISION BY 0, SET PPP TO A SMALL POSITIVE VALUE + IF ( PPP .LE. 0. ) PPP = 1.E-20 + PV(1,MX7)=PV(1,MX7)*PTLED/PPP + PV(2,MX7)=PV(2,MX7)*PTLED/PPP + PV(3,MX7)=PV(3,MX7)*PTLED/PPP + CALL ADD3(MX6,MX7,LEDPAR) + CALL LENGTX(LEDPAR,PPP) + AHMF=PPP + BHMF=PV(5,LEDPAR) + PV(4,LEDPAR)=DSQRT(AHMF**2+BHMF**2) +C** + IF(NPRT(4)) THEN + WRITE(NEWBCD,1003) LEDPAR,(PV(J,LEDPAR),J=1,10) + ENDIF +C** + RETURN + 1002 FORMAT(1H ,'*GHEPEC* LEADING PARTICLE ',I3,2X,10F8.3) + 1003 FORMAT(1H ,'*GHEPEC* CORRECTED 4-VECT ',I3,2X,10F8.3) + + END +*CMZ : 3.16/00 05/11/93 19.46.20 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE GHETUN(NT) +C** +C** TUNING OF THE HIGH ENERGY COLLISION MODEL: +C** +C** 1. AVOID THAT PI0 IS LEADING PARTICLE. +C** 2. SOME FINE-TUNING FOR THE NUMBER OF PRODUCED PROTONS AND +C** NEUTRONS. +C** 3. INTRODUCE A FLAVOUR DEPENDENT CORRECTION FOR SINGLE PARTICLE +C** SPECTRA. +C** 4. FINE-TUNING OF LEADING PARTICLE SPECTRA AND MOMENTUM +C** CONSERVATION. +C** + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C +C + DOUBLE PRECISION AHMF,BHMF + DIMENSION RNDM(4),SNUM(34),BNUM(34),REDDEC(7) + SAVE + DATA SNUM/9*0.,1.,0.,0.,-1.,4*0.,-1.,1.,-1.,-1.,-1.,1.,1.,1., + $ -2.,-2.,2.,2.,3*0.,-3.,3./ + DATA BNUM/13*0.,1.,-1.,1.,-1.,1.,-1.,1.,1.,1.,-1.,-1.,-1., + $ 1.,1.,-1.,-1.,2.,3.,4.,1.,-1./ +C** + MX=MXGKPV-10 + MX1=MX+1 + MX2=MX+2 + MX3=MX+3 + MX4=MX+4 + MX5=MX+5 + MX6=MX+6 + MX7=MX+7 + MX8=MX+8 + MX9=MX+9 + NT1=NT + IF(NT1.GT.MXGKPV-10) NT1=MXGKPV-10 + NT=NT1 +C + CALL GRNDM(RNDM,1) + IF(EK.LT.(25.+RNDM(1)*75.)) GOTO 15 +C +C** IF PI0 IS THE HIGHEST MOMENTUM PARTICLE, INTERCHANGE IT WITH A +C** CHARGED PION. +C + CALL GRNDM(RNDM,4) + REDEN = -0.7 + 0.29*LOG10(EK) + REDAT = 1. - 0.4000*LOG10(ATNO2) + PMAX = -200. + PMAPIP= -200. + PMAPI0= -200. + PMAPIM= -200. + IPMAX = 0 + MAXPIP= 0 + MAXPI0= 0 + MAXPIM= 0 + IF(RNDM(1).GT.(ATNO2/100.-0.28).AND.ABS(NCH).GT.0.5) THEN + DO 46 I=1,NT1 + IPHMF=IFIX(PV(8,I)+0.1) + CALL LENGTX(I,PPP) + IF(PPP.GT.PMAX) THEN + PMAX=PPP + IPMAX=I + ENDIF + IF(IPHMF.EQ.7) THEN + IF(PPP.GT.PMAPIP) THEN + PMAPIP=PPP + MAXPIP=I + ENDIF + ENDIF + IF(IPHMF.EQ.8) THEN + IF(PPP.GT.PMAPI0) THEN + PMAPI0=PPP + MAXPI0=I + ENDIF + ENDIF + IF(IPHMF.EQ.9) THEN + IF(PPP.GT.PMAPIM) THEN + PMAPIM=PPP + MAXPIM=I + ENDIF + ENDIF + 46 CONTINUE + ENDIF +C** +C** SOME ADDITIONAL TUNING OF THE NUMBER OF GREY TRACK PARTICLES +C** + IF(NT1.GT.2) THEN + DO 47 I=3,NT1 + IPHMF=IFIX(PV(8,I)+0.1) + IF(IPHMF.EQ.14.OR.IPHMF.EQ.16.OR.IPHMF.GE.30) THEN + CALL LENGTX(I,PPP) + IF(PPP.LT.1.5) THEN + IF(RNDM(2).LT.REDEN.OR.RNDM(3).LT.REDAT) THEN + PV(1,I) = 0. + PV(2,I) = 0. + PV(3,I) = 0. + PV(4,I) = ABS(PV(5,I)) + ENDIF + ENDIF + ENDIF + 47 CONTINUE + ENDIF +C** + IF(MAXPI0.EQ.0) GOTO 10 + IF(PMAPI0.LT.PMAX) GOTO 10 + IF(RNDM(4).LT.PMAPI0/P) THEN + IF(NCH.GT.0.5.AND.MAXPIP.NE.0) THEN + DO 49 J=5,10 + PV(J,MX1)=PV(J,MAXPI0) + PV(J,MAXPI0)=PV(J,MAXPIP) + PV(J,MAXPIP)=PV(J,MX1) + 49 CONTINUE + ENDIF + IF(NCH.LT.-0.5.AND.MAXPIM.NE.0) THEN + DO 56 J=5,10 + PV(J,MX1)=PV(J,MAXPI0) + PV(J,MAXPI0)=PV(J,MAXPIM) + PV(J,MAXPIM)=PV(J,MX1) + 56 CONTINUE + ENDIF + ENDIF +C + 10 CONTINUE +C** +C** CHECK TOTAL BARYON- NUMBER AND +C** SKIP ZERO MOMENTUM PARTICLES +C** + BNTOT=-BNUM(IPART)-ATNO2 + DO 57 I=1,NT1 + IPHMF=IFIX(PV(8,I)+0.1) + BNTOT=BNTOT+BNUM(IPHMF) + 57 CONTINUE + BNTOT=1.+BNTOT/ATNO2 + IF(ATNO2.LT.1.5) BNTOT=0. + CALL GRNDM(RNDM,1) + IF(ATNO2.GT.(75.+RNDM(1)*25.)) BNTOT=0. +C** + II=0 + DO 12 I=1,NT1 + CALL LENGTX(I,PPP) + IF(PPP.GT.1.E-6) THEN + IPHMF=IFIX(PV(8,I)+0.1) + IF(BNTOT.GT.0.3) THEN + IF(IPHMF.EQ.14.OR.IPHMF.EQ.16.OR.IPHMF.GE.30) THEN + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5.AND.PPP.LT.1.2) GOTO 12 + ENDIF + ENDIF + II=II+1 + DO 11 J=1,10 + PV(J,II)=PV(J,I) + 11 CONTINUE + ENDIF + 12 CONTINUE + NT1=II + NT=NT1 +C** +C** EXACT MOMENTUM CONSERVATION AND SOME CORRECTIONS FOR SINGLE +C** PARTICLE SPECTRA AT HIGH ENERGIES ONLY +C + 15 PV(1,MX1) = P*PX + PV(2,MX1) = P*PY + PV(3,MX1) = P*PZ + PV(4,MX1) = EN + PV(5,MX1) = ABS(AMAS) + PV(6,MX1) = NCH + PV(1,MX2) = 0. + PV(2,MX2) = 0. + PV(3,MX2) = 0. + PV(4,MX2) = MP + PV(5,MX2) = MP + PV(6,MX2) = 0. +C + IF(NPRT(4)) THEN + WRITE(NEWBCD,2000) + WRITE(NEWBCD,2001) MX1,(PV(J,MX1),J=1,6) + WRITE(NEWBCD,2001) MX2,(PV(J,MX2),J=1,6) + ENDIF +C + DO 58 J=1,10 + PV(J,MX9) = 0. + 58 CONTINUE + CALL ADD(MX1,MX2,MX3) + CALL LOR(MX1,MX3,MX4) + CALL LOR(MX2,MX3,MX5) + LEDPAR=0 + REDPAR=0. + GESPAR=0. + SNUM1=SNUM(IPART) + IF(IPART.EQ.11.OR.IPART.EQ.12) THEN + CALL GRNDM(RNDM,1) + SNUM1=1. + IF(RNDM(1).LT.0.5) SNUM1=-1. + ENDIF + DO 20 I=1,NT1 + IPHMF=IFIX(PV(8,I)+0.1) + IF(IPHMF.LE.6.OR.IPHMF.GT.32) GOTO 19 + CALL LENGTX(I,PPP) + IF(PPP.LT.1.E-3) GOTO 19 + CALL LOR(I,MX3,MX6) + CALL ANG(MX4,MX6,COST,TETA) + SNUM2=SNUM(IPHMF) + IF(IPHMF.EQ.11.OR.IPHMF.EQ.12) THEN + CALL GRNDM(RNDM,1) + SNUM2=1. + IF(RNDM(1).LT.0.5) SNUM2=-1. + ENDIF + IF(COST.GT.0.) THEN + HFMAS=ABS(AMAS) + REDDEC(1)=ABS(HFMAS -ABS(PV(5,I))) + REDDEC(2)=ABS(NCH-PV(6,I)) + REDDEC(3)=ABS(SNUM1 -SNUM2) + REDDEC(4)=ABS(BNUM(IPART)-BNUM(IPHMF)) + ELSE + HFMAS=MP + REDDEC(1)=ABS(HFMAS -ABS(PV(5,I))) + REDDEC(2)=ABS(ZNO2/ATNO2-PV(6,I)) + REDDEC(3)=ABS(SNUM2) + REDDEC(4)=ABS(1.-BNUM(IPHMF)) + ENDIF + REDDEC(6)=REDDEC(1)+REDDEC(2)+REDDEC(3)+REDDEC(4) + SBQWGT=REDDEC(6) + IF(HFMAS.LT.0.2) THEN + SBQWGT=(SBQWGT-2.5)*0.10 + IF(IPHMF.EQ.8) SBQWGT=0.15 + ELSE IF (HFMAS.LT.0.6) THEN + SBQWGT=(SBQWGT-3.0)*0.10 + ELSE + SBQWGT=(SBQWGT-2.0)*0.10 + IF(IPHMF.EQ.8) SBQWGT=0.15 + ENDIF + CALL LENGTX(MX6,PPP) + IF(SBQWGT.GT.0. .AND. PPP.GT.1.E-6) THEN + PLHMF=PPP*COST + PTHMF=PPP*SQRT(1.-COST*COST) + PLHMF=PLHMF*(1.-SBQWGT) + CALL CROSS3(MX4,MX6,MX8) + CALL CROSS3(MX8,MX4,MX8) + CALL LENGTX(MX4,PPP) + PV(1,MX7)=PV(1,MX4)*PLHMF/PPP + PV(2,MX7)=PV(2,MX4)*PLHMF/PPP + PV(3,MX7)=PV(3,MX4)*PLHMF/PPP + CALL LENGTX(MX8,PPP) + PV(1,MX8)=PV(1,MX8)*PTHMF/PPP + PV(2,MX8)=PV(2,MX8)*PTHMF/PPP + PV(3,MX8)=PV(3,MX8)*PTHMF/PPP + CALL ADD3(MX7,MX8,MX6) + CALL LENGTX(MX6,PPP) + AHMF=PPP + BHMF=PV(5,I) + PV(4,MX6)=DSQRT(AHMF**2+BHMF**2) +C + IF(NPRT(4)) + $ WRITE(NEWBCD,3001) I,(PV(J,I),J=1,8),SBQWGT +C + CALL LOR(MX6,MX5,I) +C + IF(NPRT(4)) + $ WRITE(NEWBCD,3001) I,(PV(J,I),J=1,8),SBQWGT + ENDIF +C + IF(IPHMF.EQ.8) GOTO 19 + CALL SUB3(MXGKPV,I,MX8) + CALL LENGTX(MX8,PPP) + REDDEC(5) = PPP/P + REDDEC(7)=REDDEC(5)*2./3. + REDDEC(6)/12. + REDDEC(7) = 1.-REDDEC(7) + IF(REDDEC(7) .LT. 0.) REDDEC(7) = 0. + GESPAR=GESPAR+REDDEC(7) + IF(REDDEC(6).LE.3.75) THEN + IF(REDDEC(7) .GT. REDPAR) THEN + LEDPAR=I + REDPAR=REDDEC(7) + ENDIF + ENDIF + IF(NPRT(4)) + $ WRITE(NEWBCD,2001) I,(PV(J,I),J=1,6),PV(8,I),REDDEC +C + 19 CALL ADD3(MX9,I,MX9) +C + 20 CONTINUE + IF(NPRT(4)) + $ WRITE(NEWBCD,1001) LEDPAR,REDPAR,GESPAR +C** +C** APPLY CORRECTION ON LEADING PARTICLE +C** + CALL GHEPEC(LEDPAR) +C** + RETURN + 1001 FORMAT(1H ,'*GHETUN* ', + $ 'SEARCH FOR LEADING PARTICLE, WEIGHT, TOTAL WEIGHT ', + $ I5,3X,2F10.4) + 2000 FORMAT(1H ,'*GHETUN* MOMENTUM CONSERVATION AT HIGH ENERGIES: ') + 2001 FORMAT(1H ,I3,2X,7F8.3/1H ,5X,7F8.3) + 3001 FORMAT(1H ,I3,2X,5F8.3,F5.1,F8.3,F5.1,F8.3) + END +*CMZU: 3.16/00 01/10/93 08.40.24 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE GNSLWD(NUCFLG,INT,NFL,TEKLOW) +C +C *** NEUTRON TRACKING ROUTINE FOR ENERGIES BELOW THE CUT-OFF. *** +C *** TAKE ONLY ELASTIC SCATTERING, NEUTRON CAPTURE *** +C *** AND NUCLEAR FISSION. *** +C *** NVE 11-MAY-1988 CERN GENEVA *** +C +C CALLED BY : GHEISH +C ORIGIN : H.FESEFELDT (ROUTINE NSLDOW 20-OCT-1987) +C + PARAMETER (MAXMEC=30) + COMMON/GCTRAK/VECT(7),GETOT,GEKIN,VOUT(7),NMEC,LMEC(MAXMEC) + + ,NAMEC(MAXMEC),NSTEP ,MAXNST,DESTEP,DESTEL,SAFETY,SLENG + + ,STEP ,SNEXT ,SFIELD,TOFG ,GEKRAT,UPWGHT,IGNEXT,INWVOL + + ,ISTOP ,IGAUTO,IEKBIN, ILOSL, IMULL,INGOTO,NLDOWN,NLEVIN + + ,NLVSAV,ISTORY + PARAMETER (MAXME1=30) + COMMON/GCTPOL/POLAR(3), NAMEC1(MAXME1) +C +C --- GHEISHA COMMONS --- + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + DIMENSION RNDM(2) + SAVE +C +C --- FLAGS TO INDICATE THE NUCREC ACTION --- +C NUCFLG = 0 ==> NO ACTION BY NUCREC +C 1 ==> ACTION BY NUCREC ==> SPECIAL TREATMENT IN GHEISH + NOPT=0 + NUCFLG=0 +C +C --- IN ORDER TO AVOID TROUBLES CAUSED BY ARITHMETIC INCERTAINTIES, --- +C --- RECALCULATE SOME QUANTITIES. TAKE KINETIC ENERGY EK AS MOST --- +C --- RELEVANT QUANTITY. --- +C +C --- VERY LOW KINETIC ENERGY ==> NEUTRON CAPTURE --- + IF (EK .LT. 1.E-9) GO TO 22 +C + EN=EK+ABS(AMAS) + P=SQRT(ABS(EN*EN-AMAS*AMAS)) + PU=SQRT(PX**2+PY**2+PZ**2) + IF (PU .GE. 1.E-9) GO TO 7 +C + PX=0.0 + PY=0.0 + PZ=0.0 + GO TO 22 +C + 7 CONTINUE + PX=PX/PU + PY=PY/PU + PZ=PZ/PU +C +C --- SELECT PROCESS ACCORDING TO "INT" --- + GO TO (23,23,21,22), INT +C +C *** NUCLEAR FISSION *** + 21 CONTINUE + ISTOP=1 + TKIN=FISSIO(EK) + GO TO 9999 +C +C *** NEUTRON CAPTURE *** + 22 CONTINUE + ISTOP=1 + CALL CAPTUR(NOPT) + GO TO 9999 +C +C *** ELASTIC AND INELASTIC SCATTERING *** + 23 CONTINUE + PV( 1,MXGKPV)=P*PX + PV( 2,MXGKPV)=P*PY + PV( 3,MXGKPV)=P*PZ + PV( 4,MXGKPV)=EN + PV( 5,MXGKPV)=AMAS + PV( 6,MXGKPV)=NCH + PV( 7,MXGKPV)=TOF + PV( 8,MXGKPV)=IPART + PV( 9,MXGKPV)=0.0 + PV(10,MXGKPV)=USERW +C +C --- SPECIAL TREATMENT FOR INELASTIC SCATTERING IN HEAVY MEDIA --- + IF ((INT .EQ. 2) .AND. (ATNO2 .GE. 1.5)) GO TO 29 +C +C *** ELASTIC SCATTERING *** + 30 CONTINUE +C + IF (NPRT(9)) PRINT 1000 + 1000 FORMAT(' *GNSLWD* ELASTIC SCATTERING') +C + DO 24 J=4,9 + PV(J,1)=PV(J,MXGKPV) + 24 CONTINUE + PV(10,1)=0.0 +C +C --- VERY SIMPLE SIMULATION OF SCATTERING ANGLE AND ENERGY --- +C --- NONRELATIVISTIC APPROXIMATION WITH ISOTROPIC ANGULAR --- +C --- DISTRIBUTION IN THE CMS SYSTEM --- + 25 CALL GRNDM(RNDM,2) + RAN=RNDM(1) + COST1=-1.0+2.0*RAN + EKA=1.0+2.0*COST1*ATNO2+ATNO2**2 + IF(EKA.LE.0.) GOTO 25 + COST=(ATNO2*COST1+1.0)/SQRT(EKA) + IF (COST .LT. -1.0) COST=-1.0 + IF (COST .GT. 1.0) COST=1.0 + EKA=EKA/(1.0+ATNO2)**2 + EK=EK*EKA + EN=EK+ABS(AMAS) + P=SQRT(ABS(EN*EN-AMAS*AMAS)) + SINT=SQRT(ABS(1.0-COST*COST)) + PHI=RNDM(2)*TWPI + PV(1,2)=SINT*SIN(PHI) + PV(2,2)=SINT*COS(PHI) + PV(3,2)=COST + CALL DEFS1(2,MXGKPV,2) + PU=SQRT(PV(1,2)**2+PV(2,2)**2+PV(3,2)**2) + PX=PV(1,2)/PU + PY=PV(2,2)/PU + PZ=PV(3,2)/PU + PV(1,1)=PX*P + PV(2,1)=PY*P + PV(3,1)=PZ*P + PV(4,1)=EN +C +C --- STORE BACKSCATTERED PARTICLE FOR ATNO < 4.5 --- + IF (ATNO2 .GT. 4.5) GO TO 27 +C + IF (NPRT(9)) PRINT 1001,ATNO2 + 1001 FORMAT(' *GNSLWD* BACKSCATTERED PARTICLE STORED FOR ATNO ',G12.5) +C + PV(1,2)=PV(1,MXGKPV)-PV(1,1) + PV(2,2)=PV(2,MXGKPV)-PV(2,1) + PV(3,2)=PV(3,MXGKPV)-PV(3,1) + CALL LENGTX(2,PP) + PV(9,2)=0.0 + PV(10,2)=0.0 + PV(7,2)=TOF +C + IF (ATNO2 .GT. 3.5) GO TO 274 + IF (ATNO2 .GT. 2.5) GO TO 273 + IF (ATNO2 .GT. 1.5) GO TO 272 +C + 271 CONTINUE + PV(5,2)=RMASS(14) + PV(4,2)=SQRT(PP*PP+PV(5,2)*PV(5,2)) + PV(6,2)=RCHARG(14) + PV(8,2)=14.0 + GO TO 275 +C + 272 CONTINUE + PV(5,2)=RMASS(30) + PV(4,2)=SQRT(PP*PP+PV(5,2)*PV(5,2)) + PV(6,2)=RCHARG(30) + PV(8,2)=30.0 + GO TO 275 +C + 273 CONTINUE + PV(5,2)=RMASS(31) + PV(4,2)=SQRT(PP*PP+PV(5,2)*PV(5,2)) + PV(6,2)=RCHARG(31) + PV(8,2)=31.0 + GO TO 275 +C + 274 CONTINUE + PV(5,2)=RMASS(32) + PV(4,2)=SQRT(PP*PP+PV(5,2)*PV(5,2)) + PV(6,2)=RCHARG(32) + PV(8,2)=32.0 +C + 275 CONTINUE + INTCT=INTCT+1.0 + CALL SETCUR(1) + NTK=NTK+1 + CALL SETTRK(2) + GO TO 9999 +C +C --- PUT QUANTITIES IN COMMON /RESULT/ --- + 27 CONTINUE + IF (PV(10,1) .NE. 0.0) USERW=PV(10,1) + SINL=PZ + COSL=SQRT(ABS(1.0-SINL*SINL)) + IF (ABS(COSL) .LT. 1.E-10) GO TO 28 +C + SINP=PY/COSL + COSP=PX/COSL + GO TO 9999 +C + 28 CONTINUE + CALL GRNDM(RNDM,1) + PHI=RNDM(1)*TWPI + SINP=SIN(PHI) + COSP=COS(PHI) + GO TO 9999 +C +C *** INELASTIC SCATTERING ON HEAVY NUCLEI *** + 29 CONTINUE +C + IF (NPRT(9)) PRINT 1002 + 1002 FORMAT(' *GNSLWD* INELASTIC SCATTERING ON HEAVY NUCLEUS') +C +C --- DECIDE BETWEEN SPALLATION OR SIMPLE NUCLEAR REACTION --- + CALL GRNDM(RNDM,1) + TEST1=RNDM(1) + TEST2=4.5*(EK-0.01) + IF (TEST1 .GT. TEST2) GO TO 40 +C +C *** SPALLATION *** +C + IF (NPRT(9)) PRINT 1003 + 1003 FORMAT(' *GNSLWD* SPALLATION') +C + PV( 1,MXGKPV)=P*PX + PV( 2,MXGKPV)=P*PY + PV( 3,MXGKPV)=P*PZ + PV( 4,MXGKPV)=EN + PV( 5,MXGKPV)=AMAS + PV( 6,MXGKPV)=NCH + PV( 7,MXGKPV)=TOF + PV( 8,MXGKPV)=IPART + PV( 9,MXGKPV)=0.0 + PV(10,MXGKPV)=USERW +C +C --- FERMI-MOTION AND EVAPORATION --- + TKIN=CINEMA(EK) + ENP(5)=EK+TKIN +C --- CHECK FOR LOWERBOUND OF EKIN IN CROSS-SECTION TABLES --- + IF (ENP(5) .LE. TEKLOW) ENP(5)=TEKLOW + ENP(6)=ENP(5)+ABS(AMAS) + ENP(7)=ENP(6)*ENP(6)-AMASQ + ENP(7)=SQRT(ENP(7)) + TKIN=FERMIG(ENP(5)) + ENP(5)=ENP(5)+TKIN +C --- CHECK FOR LOWERBOUND OF EKIN IN CROSS-SECTION TABLES --- + IF (ENP(5) .LE. TEKLOW) ENP(5)=TEKLOW + ENP(6)=ENP(5)+ABS(AMAS) + ENP(7)=ENP(6)*ENP(6)-AMASQ + ENP(7)=SQRT(ENP(7)) + TKIN=EXNU(ENP(5)) + ENP(5)=ENP(5)-TKIN +C --- CHECK FOR LOWERBOUND OF EKIN IN CROSS-SECTION TABLES --- + IF (ENP(5) .LE. TEKLOW) ENP(5)=TEKLOW + ENP(6)=ENP(5)+ABS(AMAS) + ENP(7)=ENP(6)*ENP(6)-AMASQ + ENP(7)=SQRT(ENP(7)) +C +C --- NEUTRON CASCADE --- + K=2 +* CALL VZERO(IPA(1),MXGKCU) +CDH + DO III = 1, MXGKCU + IPA(III) = 0 + ENDDO + + CALL CASN(K,INT,NFL) + GO TO 9999 +C + 40 CONTINUE + IF (NPRT(9)) PRINT 1004 + 1004 FORMAT(' *GNSLWD* NUCLEAR REACTION') + CALL NUCREC(NOPT,1) + IF (NOPT .NE. 0) NUCFLG=1 + IF (NOPT .EQ. 0) GO TO 30 +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.14/16 29/06/89 11.35.32 BY NICK VAN EIJNDHOVEN (CERN) +*-- AUTHOR : +C--------------------------------------------------------------------- + FUNCTION GPDK(A,B,C) +C +C *** NVE 16-MAR-1988 CERN GENEVA *** +C +C CALLED BY : PHASP +C ORIGIN : H.FESEFELDT (27-OCT-1983) +C +C GPDK = SQRT(A*A+(B*B-C*C)**2/(A*A) - 2.0*(B*B+C*C))/2.0 +C + SAVE +C + A2 = A*A + B2 = B*B + C2 = C*C + IF(A2) 21,21,61 + 61 CONTINUE + ARG=A2+(B2-C2)**2/A2-2.0*(B2+C2) + IF (ARG) 21,21,31 + 21 GPDK=0.0 + GOTO 41 + 31 CONTINUE + GPDK = 0.5*SQRT(ABS(A2 + (B2-C2)**2/A2 - 2.0*(B2+C2))) + 41 CONTINUE + RETURN + END +*CMZ : 3.16/00 05/11/93 19.46.20 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE HIGCLU(IPPP,NFL,AVERN) +C +C *** GENERATION OF X- AND PT- VALUES FOR ALL PRODUCED PARTICLES *** +C *** NVE 01-AUG-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (11-OCT-1987) +C +C A SIMPLE TWO CLUSTER MODEL IS USED +C THIS SHOULD BE SUFFICIENT FOR LOW ENERGY INTERACTIONS +C +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/MAT / LMAT, + * DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSL(21), + * CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + * MATID(21),MATID1(21,24),PARMAT(21,10), + * IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + * ATNO1(21,10),ZNO1(21,10) +C + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + COMMON/ERRCOM/ IER(100) +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + COMMON/GENIN /TECM,AMASS(18),NPG,KGENEV + COMMON/GENOUT/PCM(5,18),WGT +C +C + REAL NUCSUP + DIMENSION SIDE(MXGKCU),C1PAR(5),G1PAR(5),NUCSUP(6) + DIMENSION RNDM(3) + DIMENSION PSUP(6) + SAVE + DATA C1PAR/0.6,0.6,0.35,0.15,0.10/ + DATA G1PAR/2.6,2.6,1.8,1.30,1.20/ + DATA NUCSUP/1.0,0.7,0.5,0.4,0.35,0.3/ + DATA PSUP/3.,6.,20.,50.,100.,1000./ +C DATA CB/3.0/ + DATA CB/0.01/ +C + BPP(X)=4.000+1.600*LOG(X) +C + MX =MXGKPV-20 + MX1=MX+1 + MX2=MX+2 + MX3=MX+3 + MX4=MX+4 + MX5=MX+5 + MX6=MX+6 + MX7=MX+7 + MX8=MX+8 + EK=ENP(5) + EN=ENP(6) + P=ENP(7) + S=ENP(8) + RS=ENP(9) + CFA=0.025*((ATNO2-1.)/120.)*EXP(-(ATNO2-1.)/120.) + IF(P.LT.0.001) GOTO 60 + NT=0 +C** +C** CHECK MASS-INDICES FOR ALL PARTICLES +C** + DO 1 I=1,100 + IF(IPA(I).EQ.0) GOTO 1 + NT=NT+1 + IPA(NT)=IPA(I) + 1 CONTINUE +* CALL VZERO(IPA(NT+1),MXGKCU-NT) +CDH + DO III = NT+1, MXGKCU + IPA(III) = 0 + ENDDO + +C** +C** SET THE EFFECTICE 4-MOMENTUM-VECTOR FOR INTERACTION +C** + PV( 1,MXGKPV-1)=P*PX + PV( 2,MXGKPV-1)=P*PY + PV( 3,MXGKPV-1)=P*PZ + PV( 4,MXGKPV-1)=EN + PV( 5,MXGKPV-1)=AMAS + PV( 6,MXGKPV-1)=NCH + PV( 7,MXGKPV-1)=TOF + PV( 8,MXGKPV-1)=IPART + PV( 9,MXGKPV-1)=0. + PV(10,MXGKPV-1)=USERW + IER(48)=IER(48)+1 +C** +C** DISTRIBUTE PARTICLES IN FORWARD AND BACKWARD HEMISPHERE OF CMS +C** OF THE HADRON NUCLEON INTERACTION +C** + SIDE(1)= 1. + SIDE(2)=-1. + TARG=0. + IFOR=1 + IBACK=1 + DO 3 I=1,NT + IF (I .LE. 2) GO TO 78 + SIDE(I)=1. + CALL GRNDM(RNDM,1) + IF (RNDM(1) .LT. 0.5) SIDE(I)=-1. + IF (SIDE(I) .LT. 0.) GO TO 76 +C +C --- PARTICLE IN FORWARD HEMISPHERE --- + 77 CONTINUE + IFOR=IFOR+1 + IF (IFOR .LE. 18) GO TO 78 +C +C --- CHANGE IT TO BACKWARD --- + SIDE(I)=-1. + IFOR=IFOR-1 + IBACK=IBACK+1 + GO TO 78 +C +C --- PARTICLE IN BACKWARD HEMISPHERE --- + 76 CONTINUE + IBACK=IBACK+1 + IF (IBACK .LE. 18) GO TO 78 +C +C --- CHANGE IT TO FORWARD --- + SIDE(I)=1. + IBACK=IBACK-1 + IFOR=IFOR+1 +C** +C** SUPPRESSION OF CHARGED PIONS FOR VARIOUS REASONS +C** + 78 IF(IPART.EQ.15.OR.IPART.GE.17) GOTO 3 + IF(ABS(IPA(I)).GE.10) GOTO 3 + IF(ABS(IPA(I)).EQ. 8) GOTO 3 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.(10.-P)/6.) GOTO 3 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.ATNO2/300.) GOTO 3 + IPA(I)=14 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.ZNO2/ATNO2) IPA(I)=16 + TARG=TARG+1. + 3 CONTINUE + TB=2.*IBACK + CALL GRNDM(RNDM,1) + IF(RS.LT.(2.0+RNDM(1))) TB=(2.*IBACK+NT)/2. +C** +C** NUCLEONS + SOME PIONS FROM INTRANUCLEAR CASCADE +C** + AFC=0.312+0.200*LOG(LOG(S))+S**1.5/6000. + IF(AFC.GT.0.50) AFC= 0.50 + XTARG=AFC*(ATNO2**0.33-1.0)*TB + IF(XTARG.LE.0.) XTARG=0.01 + DO 881 IPX=1,6 + IF(P.LE.PSUP(IPX)) GOTO 882 + 881 CONTINUE + IPX=6 + 882 XPNHMF = XTARG*NUCSUP(IPX) + XSHHMF = XTARG - XPNHMF + IF(XSHHMF.LT.0.01) XSHHMF=0.01 + IF(XPNHMF.LT.0.01) XPNHMF=0.01 + SSHHMF=0.5*XSHHMF + SPNHMF=0.9*XPNHMF + RSHHMF=SSHHMF**2/XSHHMF + RPNHMF=SPNHMF**2/XPNHMF + IF(RSHHMF.LT.1.1) THEN + CALL POISSO(XSHHMF,NSHHMF) + GOTO 541 + ELSE + RSHHMF=XSHHMF/(RSHHMF-1.) + IF(RSHHMF.LE.20.) THEN + CALL SVGAM7(RSHHMF,XHMF) + ELSE + KRSHMF=IFIX(RSHHMF+0.5) + CALL SVERL2(KRSHMF,XHMF) + ENDIF + XSHHMF=XHMF*XSHHMF/RSHHMF + CALL POISSO(XSHHMF,NSHHMF) + ENDIF + 541 IF(RPNHMF.LE.1.1) THEN + CALL POISSO(XPNHMF,NPNHMF) + GOTO 542 + ELSE + RPNHMF=XPNHMF/(RPNHMF-1.) + IF(RPNHMF.LE.20.) THEN + CALL SVGAM7(RPNHMF,XHMF) + ELSE + KRPHMF=IFIX(RPNHMF+0.5) + CALL SVERL2(KRPHMF,XHMF) + ENDIF + XPNHMF=XHMF*XPNHMF/RPNHMF + CALL POISSO(XPNHMF,NPNHMF) + ENDIF + 542 NTARG=NSHHMF+NPNHMF + NT2=NT+NTARG + IF(NT2.LE.MXGKPV-30) GOTO 2 + NT2=MXGKPV-30 + NTARG=NT2-NT + 2 CONTINUE + IF(NPRT(4)) + *WRITE(NEWBCD,3001) NTARG,NT + NT1=NT+1 + IF(NTARG.EQ.0) GOTO 51 + DO 4 I=NT1,NT2 + IF(NPNHMF.GT.0) GOTO 52 + CALL GRNDM(RNDM,1) + IPA(I)=-(7+IFIX(RNDM(1)*3.0)) +CJOK + SIDE(I)=-2. +CJOK + GOTO 4 + 52 IPA(I)=-16 + PNRAT=1.-ZNO2/ATNO2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.PNRAT) IPA(I)=-14 + TARG=TARG+1. + SIDE(I)=-2. + NPNHMF=NPNHMF-1 + 4 CONTINUE + NT=NT2 +C** +C** CHOOSE MASSES AND CHARGES FOR ALL PARTICLES +C** + 51 DO 5 I=1,NT + IPA1=ABS(IPA(I)) + PV(5,I)=RMASS(IPA1) + PV(6,I)=RCHARG(IPA1) + PV(7,I)=1. + IF(PV(5,I).LT.0.) PV(7,I)=-1. + PV(5,I)=ABS(PV(5,I)) + 5 CONTINUE +C** +C** MARK LEADING STRANGE PARTICLES +C** + LEAD=0 + IF(IPART.LT.10.OR.IPART.EQ.14.OR.IPART.EQ.16) GOTO 6 + IPA1=ABS(IPA(1)) + IF(IPA1.LT.10.OR.IPA1.EQ.14.OR.IPA1.EQ.16) GOTO 531 + LEAD=IPA1 + GOTO 6 + 531 IPA1=ABS(IPA(2)) + IF(IPA1.LT.10.OR.IPA1.EQ.14.OR.IPA1.EQ.16) GOTO 6 + LEAD=IPA1 +C** +C** CHECK AVAILABLE KINETIC ENERGY , CHANGE HEMISPHERE FOR PARTICLES +C** UNTIL IT FITS +C** + 6 IF(NT.LE.1) GOTO 60 + TAVAI=0. + DO 7 I=1,NT + IF(SIDE(I).LT.-1.5) GOTO 7 + TAVAI=TAVAI+ABS(PV(5,I)) + 7 CONTINUE +CJOK MODIFIED ACCORDING TO D.HECK + IF(TAVAI.LT.RS-0.00001) GOTO 12 + IF(NPRT(4)) + $ WRITE(NEWBCD,3002) (IPA(I),I=1,20),(SIDE(I),I=1,20),TAVAI,RS + 3002 FORMAT(' *HIGCLU* CHECK AVAILABLE ENERGIES'/ + $ 1H ,20I5/1H ,20F5.0/1H ,'TAVAI,RS ',2F10.3) + DO 10 I=1,NT + II=NT-I+1 + IF(SIDE(II).LT.-1.5) GOTO 10 + IF(II.EQ.NT) GOTO 11 + NT1=II+1 + NT2=NT + DO 8 J=NT1,NT2 + IPA(J-1)=IPA(J) + SIDE(J-1)=SIDE(J) + DO 8 K=1,10 + 8 PV(K,J-1)=PV(K,J) + GOTO 11 + 10 CONTINUE + 11 SIDE(NT)=0. + IPA(NT)=0 + NT=NT-1 + GOTO 6 + 12 IF(NT.LE.1) GOTO 60 + B=BPP(P) + IF(B.LT.CB) B=CB +C** +C** CHOOSE MASSES FOR THE 3 CLUSTER: 1. FORWARD CLUSTER +C** 2. BACKWARD MESON CLUSTER 3. BACKWARD NUCLEON CLUSTER +C** + RMC0=0. + RMD0=0. + RME0=0. + NTC=0 + NTD=0 + NTE=0 + DO 31 I=1,NT + IF(SIDE(I).GT.0.) RMC0=RMC0+ABS(PV(5,I)) + IF(SIDE(I).GT.0.) NTC =NTC +1 + IF(SIDE(I).LT.0..AND.SIDE(I).GT.-1.5) RMD0=RMD0+ABS(PV(5,I)) + IF( SIDE(I).LT.-1.5) RME0=RME0+ABS(PV(5,I)) + IF(SIDE(I).LT.0..AND.SIDE(I).GT.-1.5) NTD =NTD +1 + IF( SIDE(I).LT.-1.5) NTE =NTE +1 + 31 CONTINUE + 32 CALL GRNDM(RNDM,1) + RAN=RNDM(1) + RMC=RMC0 + IF(NTC.LE.1) GOTO 33 + NTC1=NTC + IF(NTC1.GT.5) NTC1=5 + RMC=-LOG(1.-RAN) + GPAR=G1PAR(NTC1) + CPAR=C1PAR(NTC1) + DUMNVE=GPAR + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + RMC=RMC0+RMC**CPAR/DUMNVE + 33 RMD=RMD0 + IF(NTD.LE.1) GOTO 34 + NTD1=NTD + IF(NTD1.GT.5) NTD1=5 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + RMD=-LOG(1.-RAN) + GPAR=G1PAR(NTD1) + CPAR=C1PAR(NTD1) + DUMNVE=GPAR + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + RMD=RMD0+RMD**CPAR/DUMNVE + 34 IF(RMC+RMD.LE.RS) GOTO 35 + IF (RMC.LE.RMC0.AND.RMD.LE.RMD0) THEN + HNRMDC = 0.999*RS/(RMC+RMD) + RMD = RMD*HNRMDC + RMC = RMC*HNRMDC + ELSE + RMC=0.1*RMC0+0.9*RMC + RMD=0.1*RMD0+0.9*RMD + ENDIF + GOTO 34 + 35 IF(NTE.LE.0) GOTO 38 + RME=RME0 + IF(NTE.EQ.1) GOTO 38 + NTE1=NTE + IF(NTE1.GT.5) NTE1=5 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + RME=-LOG(1.-RAN) + GPAR=G1PAR(NTE1) + CPAR=C1PAR(NTE1) + DUMNVE=GPAR + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + RME=RME0+RME**CPAR/DUMNVE +C** +C** SET BEAM , TARGET OF FIRST INTERACTION IN CMS +C** + 38 PV( 1,MX1) =0. + PV( 2,MX1) =0. + PV( 3,MX1) =P + PV( 5,MX1) =ABS(AMAS) + PV( 4,MX1) =SQRT(P*P+AMAS*AMAS) + PV( 1,MX2) =0. + PV( 2,MX2) =0. + PV( 3,MX2) =0. + PV( 4,MX2) =MP + PV( 5,MX2) =MP + +C** TRANSFORM INTO CMS. + + CALL ADD(MX1,MX2,MX) + CALL LOR(MX1,MX,MX1) + CALL LOR(MX2,MX,MX2) + PF=(S+RMD*RMD-RMC*RMC)**2 - 4*S*RMD*RMD + IF(PF.LT.0.0001) PF=0.0001 + DUMNVE=2.0*RS + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + PF=SQRT(PF)/DUMNVE + IF(NPRT(4)) WRITE(6,2002) PF,RMC,RMD,RS +C** +C** SET FINAL STATE MASSES AND ENERGIES IN CMS +C** + PV(5,MX3) =RMC + PV(5,MX4) =RMD + PV(4,MX3) =SQRT(PF*PF+RMC*RMC) + PV(4,MX4) =SQRT(PF*PF+RMD*RMD) +C** +C** SET |T| AND |TMIN| +C** + T=-1.0E10 + CALL GRNDM(RNDM,1) + IF (B .NE. 0.0) T=LOG(1.-RNDM(1))/B + CALL LENGTX(MX1,PIN) + TACMIN=(PV(4,MX1) -PV(4,MX3))**2 -(PIN-PF)**2 +C** +C** CACULATE (SIN(TETA/2.)**2 AND COS(TETA), SET AZIMUTH ANGLE PHI +C** + DUMNVE=4.0*PIN*PF + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + CTET=-(T-TACMIN)/DUMNVE + CTET=1.0-2.0*CTET + IF (CTET .GT. 1.0) CTET=1.0 + IF (CTET .LT. -1.0) CTET=-1.0 + DUMNVE=1.0-CTET*CTET + IF (DUMNVE .LT. 0.0) DUMNVE=0.0 + STET=SQRT(DUMNVE) + CALL GRNDM(RNDM,1) + PHI=RNDM(1)*TWPI +C** +C** CALCULATE FINAL STATE MOMENTA IN CMS +C** + PV(1,MX3) =PF*STET*SIN(PHI) + PV(2,MX3) =PF*STET*COS(PHI) + PV(3,MX3) =PF*CTET + PV(1,MX4) =-PV(1,MX3) + PV(2,MX4) =-PV(2,MX3) + PV(3,MX4) =-PV(3,MX3) +C** +C** SIMULATE BACKWARD NUCLEON CLUSTER IN LAB. SYSTEM AND TRANSFORM IN +C** CMS. +C** + IF(NTE.EQ.0) GOTO 28 + GA=1.2 + EKIT1=0.04 + EKIT2=0.6 + IF(EK.GT.5.) GOTO 666 + EKIT1=EKIT1*EK**2/25. + EKIT2=EKIT2*EK**2/25. + 666 A=(1.-GA)/(EKIT2**(1.-GA)-EKIT1**(1.-GA)) + DO 29 I=1,NT + IF(SIDE(I).GT.-1.5) GOTO 29 + CALL GRNDM(RNDM,3) + RAN=RNDM(1) + EKIT=(RAN*(1.-GA)/A+EKIT1**(1.-GA))**(1./(1.-GA)) + PV(4,I)=EKIT+PV(5,I) + DUMNVE=ABS(PV(4,I)**2-PV(5,I)**2) + PP=SQRT(DUMNVE) + RAN=RNDM(2) + COST=LOG(2.23*RAN+0.383)/0.96 + IF (COST .LT. -1.0) COST=-1.0 + IF (COST .GT. 1.0) COST=1.0 + DUMNVE=1.0-COST*COST + IF (DUMNVE .LT. 0.0) DUMNVE=0.0 + SINT=SQRT(DUMNVE) + PHI=TWPI*RNDM(3) + PV(1,I)=PP*SINT*SIN(PHI) + PV(2,I)=PP*SINT*COS(PHI) + PV(3,I)=PP*COST + CALL LOR(I,MX,I) + 29 CONTINUE +C** +C** FRAGMENTATION OF FORWARD CLUSTER AND BACKWARD MESON CLUSTER +C** + 28 PV(1,1)=PV(1,MX3) + PV(2,1)=PV(2,MX3) + PV(3,1)=PV(3,MX3) + PV(4,1)=PV(4,MX3) + PV(1,2)=PV(1,MX4) + PV(2,2)=PV(2,MX4) + PV(3,2)=PV(3,MX4) + PV(4,2)=PV(4,MX4) + DO 17 I=MX5,MX6 + DO 16 J=1,3 + 16 PV(J,I)=-PV(J,I-2) + DO 17 J=4,5 + 17 PV(J,I)= PV(J,I-2) + KGENEV=1 + IF(NTC.LE.1) GOTO 26 + TECM=PV(5,MX3) + NPG=0 + DO 18 I=1,NT + IF(SIDE(I).LT.0.) GOTO 18 + IF(NPG.EQ.18) THEN + SIDE(I)=-SIDE(I) + GOTO 18 + ENDIF + NPG=NPG+1 + AMASS(NPG)=ABS(PV(5,I)) + 18 CONTINUE + IF(NPRT(4)) WRITE(NEWBCD,2004) TECM,NPG,(AMASS(I),I=1,NPG) + CALL PHASP + NPG=0 + DO 19 I=1,NT + IF(SIDE(I).LT.0.) GOTO 19 + NPG=NPG+1 + PV(1,I)=PCM(1,NPG) + PV(2,I)=PCM(2,NPG) + PV(3,I)=PCM(3,NPG) + PV(4,I)=PCM(4,NPG) + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + CALL LOR(I,MX5,I) + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) + 19 CONTINUE + 26 IF(NTD.LE.1) GOTO 27 + TECM=PV(5,MX4) + NPG=0 + DO 20 I=1,NT + IF(SIDE(I).GT.0..OR.SIDE(I).LT.-1.5) GOTO 20 + IF(NPG.EQ.18) THEN + SIDE(I)=-2. + PV(4,I)=ABS(PV(5,I)) + DO 48 J=1,3 + PV(J,I)=0. + 48 CONTINUE + GOTO 20 + ENDIF + NPG=NPG+1 + AMASS(NPG)=ABS(PV(5,I)) + 20 CONTINUE + IF(NPRT(4)) WRITE(NEWBCD,2004) TECM,NPG,(AMASS(I),I=1,NPG) + CALL PHASP + NPG=0 + DO 21 I=1,NT + IF(SIDE(I).GT.0..OR.SIDE(I).LT.-1.5) GOTO 21 + NPG=NPG+1 + PV(1,I)=PCM(1,NPG) + PV(2,I)=PCM(2,NPG) + PV(3,I)=PCM(3,NPG) + PV(4,I)=PCM(4,NPG) + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + CALL LOR(I,MX6,I) + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) + 21 CONTINUE +C** +C** LORENTZ TRANSFORMATION IN LAB SYSTEM +C** + 27 TARG=0. + DO 36 I=1,NT + IF(PV(5,I).GT.0.5) TARG=TARG+1. + CALL LOR(I,MX2,I) + 36 CONTINUE + IF(TARG.LT.0.5) TARG=1. +C** +C** SOMETIMES THE LEADING STRANGE PARTICLES ARE LOST , SET THEM BACK +C** + IF(LEAD.EQ.0) GOTO 6085 + DO 6081 I=1,NT + IF(ABS(IPA(I)).EQ.LEAD) GOTO 6085 + 6081 CONTINUE + I=1 + IF(LEAD.GE.14.AND.ABS(IPA(2)).GE.14) I=2 + IF(LEAD.LT.14.AND.ABS(IPA(2)).LT.14) I=2 + IPA(I)=LEAD + EKIN=PV(4,I)-ABS(PV(5,I)) + PV(5,I)=RMASS(LEAD) + PV(7,I)=1. + IF(PV(5,I).LT.0.) PV(7,I)=-1. + PV(5,I)=ABS(PV(5,I)) + PV(6,I)=RCHARG(LEAD) + PV(4,I)=PV(5,I)+EKIN + CALL LENGTX(I,PP) + DUMNVE=ABS(PV(4,I)**2-PV(5,I)**2) + PP1=SQRT(DUMNVE) +C + IF (PP .GE. 1.0E-6) GO TO 8000 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP1*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP1*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP1*COS(RTHNVE) + GO TO 8001 + 8000 CONTINUE + PV(1,I)=PV(1,I)*PP1/PP + PV(2,I)=PV(2,I)*PP1/PP + PV(3,I)=PV(3,I)*PP1/PP + 8001 CONTINUE +C +C** FOR VARIOUS REASONS, THE ENERGY BALANCE IS NOT SUFFICIENT, +C** CHECK THAT, ENERGY BALANCE, ANGLE OF FINAL SYSTEM E.T.C. + 6085 KGENEV=1 + PV(1,MX4) =0. + PV(2,MX4) =0. + PV(3,MX4) =P + PV(4,MX4) =SQRT(P*P+AMAS*AMAS) + PV(5,MX4) =ABS(AMAS) + EKIN0=PV(4,MX4) -PV(5,MX4) + PV(1,MX5) =0. + PV(2,MX5) =0. + PV(3,MX5) =0. + PV(4,MX5) =MP*TARG + PV(5,MX5) =PV(4,MX5) + EKIN=PV(4,MX4) +PV(4,MX5) + I=MX4 + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + I=MX5 + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + CALL ADD(MX4,MX5,MX6) + CALL LOR(MX4,MX6,MX4) + CALL LOR(MX5,MX6,MX5) + TECM=PV(4,MX4) +PV(4,MX5) + NPG=NT + PV(1,MX8) =0. + PV(2,MX8) =0. + PV(3,MX8) =0. + PV(4,MX8) =0. + PV(5,MX8) =0. + EKIN1=0. + DO 598 I=1,NPG + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) + CALL ADD(MX8,I,MX8) + EKIN1=EKIN1+PV(4,I)-PV(5,I) + EKIN=EKIN-PV(5,I) + IF(I.GT.18) GOTO 598 + AMASS(I)=PV(5,I) + 598 CONTINUE + IF(NPG.GT.18) GOTO 597 + CALL PHASP + EKIN=0. + DO 599 I=1,NPG + PV(1,MX7)=PCM(1,I) + PV(2,MX7)=PCM(2,I) + PV(3,MX7)=PCM(3,I) + PV(4,MX7)=PCM(4,I) + PV(5,MX7)=AMASS(I) + CALL LOR(MX7,MX5,MX7) + 599 EKIN=EKIN+PV(4,MX7)-PV(5,MX7) + CALL ANG(MX8,MX4,COST,TETA) + IF(NPRT(4)) WRITE(NEWBCD,2003) TETA,EKIN0,EKIN1,EKIN +C** +C** MAKE SHURE, THAT KINETIC ENERGIES ARE CORRECT +C** THE 3. CLUSTER IS NOT PRODUCED WITHIN PROPER KINEMATICS!!! +C** EKIN= KINETIC ENERGY THEORETICALLY +C** EKIN1= KINETIC ENERGY SIMULATED +C** + 597 IF(EKIN1.EQ.0.) GOTO 600 + PV(1,MX7) =0. + PV(2,MX7) =0. + PV(3,MX7) =0. + PV(4,MX7) =0. + PV(5,MX7) =0. + WGT=EKIN/EKIN1 + EKIN1=0. + DO 602 I=1,NT + EKIN=PV(4,I)-PV(5,I) + EKIN=EKIN*WGT + PV(4,I)=EKIN+PV(5,I) + DUMNVE=ABS(PV(4,I)**2-PV(5,I)**2) + PP=SQRT(DUMNVE) + CALL LENGTX(I,PP1) +C + IF (PP1 .GE. 1.0E-6) GO TO 8002 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP*COS(RTHNVE) + GO TO 8003 + 8002 CONTINUE + PV(1,I)=PV(1,I)*PP/PP1 + PV(2,I)=PV(2,I)*PP/PP1 + PV(3,I)=PV(3,I)*PP/PP1 + 8003 CONTINUE +C + EKIN1=EKIN1+EKIN + CALL ADD(MX7,I,MX7) + 602 CONTINUE + CALL ANG(MX7,MX4,COST,TETA) + IF(NPRT(4)) WRITE(NEWBCD,2003) TETA,EKIN0,EKIN1 +C** +C** ROTATE IN DIRECTION OF Z-AXIS, SEE COMMENTS IN 'GENXPT' +C** + 600 PV(1,MX7)=0. + PV(2,MX7)=0. + PV(3,MX7)=0. + PV(4,MX7)=0. + PV(5,MX7)=0. + DO 596 I=1,NT + CALL ADD(MX7,I,MX7) + 596 CONTINUE +* CALL RANNOR(RAN1,RAN2) + CALL GRNDM(RNDM,2) + RY=RNDM(1) + RZ=RNDM(2) + RX=6.283185*RZ + A1=SQRT(-2.*LOG(RY)) + RAN1=A1*SIN(RX) + RAN2=A1*COS(RX) + PV(1,MX7)=PV(1,MX7)+RAN1*0.020*TARG + PV(2,MX7)=PV(2,MX7)+RAN2*0.020*TARG + CALL DEFS(MX4,MX7,MX8) + PV(1,MX7)=0. + PV(2,MX7)=0. + PV(3,MX7)=0. + PV(4,MX7)=0. + PV(5,MX7)=0. + DO 595 I=1,NT + CALL TRAC(I,MX8,I) + CALL ADD(MX7,I,MX7) + 595 CONTINUE + CALL ANG(MX7,MX4,COST,TETA) + IF(NPRT(4)) WRITE(NEWBCD,2003) TETA +C** +C** ROTATE IN DIRECTION OF PRIMARY PARTICLE +C** + DEKIN=0. + NPIONS=0 + EK1=0. + DO 25 I=1,NT + CALL DEFS1(I,MXGKPV-1,I) + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) + IF(ATNO2.LT.1.5) GOTO 25 + CALL LENGTX(I,PP) + EKIN=PV(4,I)-ABS(PV(5,I)) + CALL NORMAL(RAN) + EKIN=EKIN-CFA*(1.+0.5*RAN) + IF (EKIN .LT. 1.0E-6) EKIN=1.0E-6 + CALL STEEQ(XXH,I) + DEKIN=DEKIN+EKIN*(1.-XXH) + EKIN=EKIN*XXH + IF(ABS(IPA(I)).GE.7.AND.ABS(IPA(I)).LE.9) NPIONS=NPIONS+1 + IF(ABS(IPA(I)).GE.7.AND.ABS(IPA(I)).LE.9) EK1=EK1+EKIN + PP1=SQRT(EKIN*(EKIN+2.*ABS(PV(5,I)))) + PV(4,I)=EKIN+ABS(PV(5,I)) +C + IF (PP .GE. 1.0E-6) GO TO 8004 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP1*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP1*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP1*COS(RTHNVE) + GO TO 8005 + 8004 CONTINUE + PV(1,I)=PV(1,I)*PP1/PP + PV(2,I)=PV(2,I)*PP1/PP + PV(3,I)=PV(3,I)*PP1/PP + 8005 CONTINUE +C + 25 CONTINUE + IF(EK1.EQ.0.) GOTO 23 + IF(NPIONS.LE.0) GOTO 23 + DEKIN=1.+DEKIN/EK1 + DO 22 I=1,NT + IF(ABS(IPA(I)).LT.7.OR.ABS(IPA(I)).GT.9) GOTO 22 + CALL LENGTX(I,PP) + EKIN=PV(4,I)-ABS(PV(5,I)) + EKIN=EKIN*DEKIN + IF (EKIN .LT. 1.0E-6) EKIN=1.0E-6 + PP1=SQRT(EKIN*(EKIN+2.*ABS(PV(5,I)))) + PV(4,I)=EKIN+ABS(PV(5,I)) +C + IF (PP .GE. 1.0E-6) GO TO 8006 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP1*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP1*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP1*COS(RTHNVE) + GO TO 8007 + 8006 CONTINUE + PV(1,I)=PV(1,I)*PP1/PP + PV(2,I)=PV(2,I)*PP1/PP + PV(3,I)=PV(3,I)*PP1/PP + 8007 CONTINUE +C + 22 CONTINUE + 23 IF(ATNO2.LT.1.5) GOTO 40 +C** +C** ADD BLACK TRACK PARTICLES +C** + CALL HIGHAB(SPROB) + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SPROB) GOTO 40 + TEX=ENP(1) + SPALL=TARG + IF(TEX.LT.0.001) GOTO 445 + BLACK=(1.5+1.25*TARG)*ENP(1)/(ENP(1)+ENP(3)) + CALL POISSO(BLACK,NBL) + IF(NPRT(4)) + *WRITE(NEWBCD,3003) NBL,TEX + IF(IFIX(TARG)+NBL.GT.ATNO2) NBL=ATNO2-TARG + IF(NT+NBL.GT.MXGKPV-2) NBL=MXGKPV-2-NT + IF(NBL.LE.0) GOTO 445 + EKIN=TEX/NBL + EKIN2=0. + CALL STEEP(XX) + DO 441 I=1,NBL + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SPROB) GOTO 441 + IF(NT.EQ.MXGKPV-2) GOTO 441 + IF(EKIN2.GT.TEX) GOTO 443 + CALL GRNDM(RNDM,1) + RAN1=RNDM(1) + CALL NORMAL(RAN2) + EKIN1=-EKIN*LOG(RAN1)-CFA*(1.+0.5*RAN2) + IF(EKIN1.LT.0.0) EKIN1=-0.010*LOG(RAN1) + EKIN1=EKIN1*XX + EKIN2=EKIN2+EKIN1 + IF(EKIN2.GT.TEX) EKIN1=TEX-(EKIN2-EKIN1) + IF (EKIN1 .LT. 0.0) EKIN1=1.0E-6 + IPA1=16 + PNRAT=1.-ZNO2/ATNO2 + CALL GRNDM(RNDM,3) + IF(RNDM(1).GT.PNRAT) IPA1=14 + NT=NT+1 + SPALL=SPALL+1. + COST=-1.0+RNDM(2)*2.0 + DUMNVE=1.0-COST*COST + IF (DUMNVE .LT. 0.0) DUMNVE=0.0 + SINT=SQRT(DUMNVE) + PHI=TWPI*RNDM(3) + IPA(NT)=-IPA1 + SIDE(NT)=-4. + PV(5,NT)=ABS(RMASS(IPA1)) + PV(6,NT)=RCHARG(IPA1) + PV(7,NT)=1. + PV(4,NT)=EKIN1+PV(5,NT) + DUMNVE=ABS(PV(4,NT)**2-PV(5,NT)**2) + PP=SQRT(DUMNVE) + PV(1,NT)=PP*SINT*SIN(PHI) + PV(2,NT)=PP*SINT*COS(PHI) + PV(3,NT)=PP*COST + 441 CONTINUE + 443 IF(ATNO2.LT.10.) GOTO 445 + IF(EK.GT.2.0) GOTO 445 + II=NT+1 + KK=0 + EKA=EK + IF(EKA.GT.1.) EKA=EKA*EKA + IF(EKA.LT.0.1) EKA=0.1 + IKA=3.6*EXP((ZNO2**2/ATNO2-35.56)/6.45)/EKA + IF(IKA.LE.0) GO TO 445 + DO 444 I=1,NT + II=II-1 + IF(IPA(II).NE.-14) GOTO 444 + IPA(II)=-16 + IPA1 = 16 + PV(5,II)=ABS(RMASS(IPA1)) + PV(6,II)=RCHARG(IPA1) + KK=KK+1 + IF(KK.GT.IKA) GOTO 445 + 444 CONTINUE + 445 TEX=ENP(3) + IF(TEX.LT.0.001) GOTO 40 + BLACK=(1.5+1.25*TARG)*ENP(3)/(ENP(1)+ENP(3)) + CALL POISSO(BLACK,NBL) + IF(NT+NBL.GT.MXGKPV-2) NBL=MXGKPV-2-NT + IF(NBL.LE.0) GOTO 40 + EKIN=TEX/NBL + EKIN2=0. + CALL STEEP(XX) + IF(NPRT(4)) + *WRITE(NEWBCD,3004) NBL,TEX + DO 442 I=1,NBL + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SPROB) GOTO 442 + IF(NT.EQ.MXGKPV-2) GOTO 442 + IF(EKIN2.GT.TEX) GOTO 40 + CALL GRNDM(RNDM,1) + RAN1=RNDM(1) + CALL NORMAL(RAN2) + EKIN1=-EKIN*LOG(RAN1)-CFA*(1.+0.5*RAN2) + IF(EKIN1.LT.0.0) EKIN1=-0.005*LOG(RAN1) + EKIN1=EKIN1*XX + EKIN2=EKIN2+EKIN1 + IF(EKIN2.GT.TEX) EKIN1=TEX-(EKIN2-EKIN1) + IF (EKIN1 .LT. 0.0) EKIN1=1.0E-6 + CALL GRNDM(RNDM,3) + COST=-1.0+RNDM(1)*2.0 + DUMNVE=1.0-COST*COST + IF (DUMNVE .LT. 0.0) DUMNVE=0.0 + SINT=SQRT(DUMNVE) + PHI=TWPI*RNDM(2) + RAN=RNDM(3) + IPA(NT+1)=-30 + IF(RAN.GT.0.60) IPA(NT+1)=-31 + IF(RAN.GT.0.90) IPA(NT+1)=-32 + SIDE(NT+1)=-4. + PV(5,NT+1)=(ABS(IPA(NT+1))-28)*MP + SPALL=SPALL+PV(5,NT+1)*1.066 + IF(SPALL.GT.ATNO2) GOTO 40 + NT=NT+1 + PV(6,NT)=1. + IF(IPA(NT).EQ.-32) PV(6,NT)=2. + PV(7,NT)=1. + PV(4,NT)=PV(5,NT)+EKIN1 + DUMNVE=ABS(PV(4,NT)**2-PV(5,NT)**2) + PP=SQRT(DUMNVE) + PV(1,NT)=PP*SINT*SIN(PHI) + PV(2,NT)=PP*SINT*COS(PHI) + PV(3,NT)=PP*COST + 442 CONTINUE +C** +C** STORE ON EVENT COMMON +C** + 40 CALL GRNDM(RNDM,1) + IF(RS.GT.(4.+RNDM(1)*1.)) GOTO 42 + DO 41 I=1,NT + CALL LENGTX(I,ETB) + IF(ETB.LT.P) GOTO 41 + ETF=P + PV(4,I)=SQRT(PV(5,I)**2+ETF**2) + DUMNVE=ETB + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + ETF=ETF/DUMNVE + PV(1,I)=PV(1,I)*ETF + PV(2,I)=PV(2,I)*ETF + PV(3,I)=PV(3,I)*ETF + 41 CONTINUE + 42 EKIN=PV(4,MXGKPV)-ABS(PV(5,MXGKPV)) + EKIN1=PV(4,MXGKPV-1)-ABS(PV(5,MXGKPV-1)) + EKIN2=0. + CALL TDELAY(TOF1) + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + TOF=TOF-TOF1*LOG(RAN) + DO 44 I=1,NT + IF(PV(7,I).LT.0.) PV(5,I)=-PV(5,I) + PV(7,I)=TOF + PV(8,I)=ABS(IPA(I)) + PV(9,I)=0. + 44 PV(10,I)=0. + CALL GHETUN(NT) + DO 45 I=1,NT + EKIN2=EKIN2+PV(4,I)-ABS(PV(5,I)) + 45 CONTINUE + EKIN2=(EKIN2-EKIN)/EKIN + IF(NPRT(4)) + $ WRITE(NEWBCD,2006) NT,EKIN,ENP(1),ENP(3),EKIN1,EKIN2 + IF(EKIN2.GT.0.2) GOTO 60 + INTCT=INTCT+1. + NMODE=3 + IF(SPALL.LT.0.5.AND.ATNO2.GT.1.5) NMODE=14 + CALL SETCUR(NT) + NTK=NTK+1 + IF(NT.EQ.1) GOTO 300 + DO 50 II=2,NT + I=II-1 + IF(NTOT.LT.NSIZE/12) GOTO 43 + GO TO 9999 + 43 CALL SETTRK(I) + 50 CONTINUE + 300 CONTINUE + GO TO 9999 +C** +C** IT IS NOT POSSIBLE TO PRODUCE A PROPER TWO CLUSTER FINAL STATE. +C** CONTINUE WITH QUASI ELASTIC SCATTERING +C** + 60 IF(NPRT(4)) WRITE(NEWBCD,2005) + DO 61 I=3,MXGKCU + 61 IPA(I)=0 + IPA(1)=IPART + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + CALL TWOB(IPPP,NFL,AVERN) + GO TO 9999 +C + 2000 FORMAT(' *HIGCLU* CMS PARAMETERS OF FINAL STATE PARTICLES', + $ ' AFTER ',I3,' TRIALS') + 2001 FORMAT(' *HIGCLU* TRACK',2X,I3,2X,10F8.2,2X,I3,2X,F3.0) + 2002 FORMAT(' *HIGCLU* MOMENTUM ',F8.3,' MASSES ',2F8.4,' RS ',F8.4) + 2003 FORMAT(' *HIGCLU* TETA,EKIN0,EKIN1,EKIN ',4F10.4) + 2004 FORMAT(' *HIGCLU* TECM,NPB,MASSES: ',F10.4,1X,I3,1X,8F10.4/ + $ 1H ,26X,15X,8F10.4) + 2005 FORMAT(' *HIGCLU* NUMBER OF FINAL STATE PARTICLES', + $ ' LESS THAN 2 ==> CONTINUE WITH 2-BODY SCATTERING') + 2006 FORMAT(' *HIGCLU* COMP.',1X,I5,1X,5F7.2) + 3001 FORMAT(' *HIGCLU* NUCLEAR EXCITATION ',I5,' PARTICLES PRODUCED', + $ ' IN ADDITION TO',I5,' NORMAL PARTICLES') + 3003 FORMAT(' *HIGCLU* ',I3,' BLACK TRACK PARTICLES PRODUCED', + $ ' WITH TOTAL KINETIC ENERGY OF ',F8.3,' GEV') + 3004 FORMAT(' *HIGCLU* ',I5,' HEAVY FRAGMENTS WITH TOTAL ENERGY OF ', + $ F8.4,' GEV') +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.16/00 05/11/93 18.12.42 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE HIGHAB(SPROB) +C +C *** SELF-ABSORBTION IN HEAVY MOLECULES *** +C *** NVE 16-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (11-OCT-1987) +C +C + PARAMETER (MXGKGH=100) + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C + SAVE +C + SPROB=0. + EKW=PV(4,MXGKPV)-ABS(PV(5,MXGKPV)) + IF(EKW.LT.5.) RETURN + ALEKW=LOG(EKW-4.) + BLEKW=0.25-0.02*LOG(ATNO2) + SPROB=BLEKW*ALEKW + IF(SPROB.GT.1.) SPROB=1. + RETURN + END +*CMZ : 3.16/00 05/11/93 18.12.42 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE HIGSEL(ISEL) +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C +C + DIMENSION RNDM(1) + SAVE +C + CALL GRNDM(RNDM,1) + ISEL=1 + IF(P.LT.25.+RNDM(1)*25.) ISEL=0 + RETURN + END +*CMZ : 3.16/00 05/11/93 19.46.20 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE HIGXPT(IPPP,NFL,AVERN) +C +C *** GENERATION OF X- AND PT- VALUES FOR ALL PRODUCED PARTICLES *** +C *** NVE 02-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT 11-OCT-1987 +C +C A SIMPLE SINGLE VARIABLE DESCRIPTION E D3S/DP3= F(Q) WITH +C Q**2 = (M*X)**2 + PT**2 IS USED. FINAL STATE KINEMATIC IS PRODUCED +C BY AN FF-TYPE ITERATIVE CASCADE METHOD +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/MAT / LMAT, + * DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSL(21), + * CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + * MATID(21),MATID1(21,24),PARMAT(21,10), + * IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + * ATNO1(21,10),ZNO1(21,10) +C + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + COMMON/ERRCOM/ IER(100) +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + COMMON/GENIN /TECM,AMASS(18),NPG,KGENEV + COMMON/GENOUT/PCM(5,18),WGT +C +C +C + REAL MASPAR,LAMB,NUCSUP + DIMENSION MASPAR(8),BP(8),PTEX(8),C1PAR(5),G1PAR(5),TAVAI(2), + $ SIDE(MXGKCU),IAVAI(2),BINL(20),DNDL(20),TWSUP(8), + $ NUCSUP(6),PSUP(6),IPAX(100) + DIMENSION RNDM(3) + SAVE + DATA MASPAR/0.75,0.70,0.65,0.60,0.50,0.40,0.20,0.10/ + DATA BP/4.00,2.50,2.20,3.00,3.00,1.70,3.50,3.50/ + DATA PTEX/1.70,1.70,1.50,1.70,1.40,1.20,1.70,1.20/ + DATA C1PAR/0.6,0.6,0.35,0.15,0.10/ + DATA G1PAR/2.6,2.6,1.80,1.30,1.20/ + DATA BINL/0.,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0,1.11,1.25 + $ ,1.43,1.67,2.0,2.5,3.33,5.00,10.00/ + DATA TWSUP/1.,1.,0.7,0.5,0.3,0.2,0.1,0.0/ + DATA NUCSUP/1.00,0.7,0.5,0.4,0.5,0.5/ + DATA PSUP/3.,6.,20.,50.,100.,1000./ +C +C** +C** FOR ANNIHILATION INTERACTIONS INTRODUCE PROPER KINEMATICS +C** + CALL CORANH(NIHIL,NFL) +C** +C** +C** CHECK FIRST MASS-INDICES +C** + EK=ENP(5) + EN=ENP(6) + P=ENP(7) + S=ENP(8) + RS=ENP(9) + NT=0 + DO 1 I=1,100 + IF(IPA(I).EQ.0) GOTO 1 + NT=NT+1 + IPA(NT)=IPA(I) + 1 CONTINUE +* CALL VZERO(IPA(NT+1),MXGKCU-NT) +* CALL UCOPY(IPA(1),IPAX(1),100) +CDH + DO III = NT+1, MXGKCU + IPA(III) = 0 + ENDDO + DO III = 1, 100 + IPAX(III) = IPA(III) + ENDDO + +C** +C** FOR LOW MULTIPLICITY USE TWO-BODY RESONANCE MODEL OR SINGLE/DOUBLE +C** DIFFRACTION MODEL (--> HIGCLU (--> TWOB (--> COSCAT))) +C** + CFA=0.025*((ATNO2-1.)/120.)*EXP(-(ATNO2-1.)/120.) + IF(NIHIL.GT.0) GOTO 200 + IF(NT.GE.8) GOTO 200 + IF(EK.LT.1.) GOTO 60 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IF(IPART.GE.10.AND.IPART.LE.13.AND.RAN.LT.0.5) GOTO 200 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + WSUP=TWSUP(NT) + IF(RAN.GT.WSUP) GOTO 200 + CALL GRNDM(RNDM,1) + RAN=RNDM(1)*200.+50. + IF(EK.GT.RAN) GOTO 200 + 60 CONTINUE +* CALL UCOPY(IPAX,IPA,100) +CDH + DO III = 1, 100 + IPA(III) = IPAX(III) + ENDDO + + CALL HIGCLU(IPPP,NFL,AVERN) + GO TO 9999 +C** +C** SET EFFECTIVE 4-MOMENTUM OF PRIMARY PARTICLE +C** + 200 MX =MXGKPV-20 + MX1=MX+1 + MX2=MX+2 + MX3=MX+3 + MX4=MX+4 + MX5=MX+5 + MX6=MX+6 + MX7=MX+7 + MX8=MX+8 + MX9=MX+9 + PV( 1,MXGKPV-1)=P*PX + PV( 2,MXGKPV-1)=P*PY + PV( 3,MXGKPV-1)=P*PZ + PV( 4,MXGKPV-1)=EN + PV( 5,MXGKPV-1)=AMAS + PV( 6,MXGKPV-1)=NCH + PV( 7,MXGKPV-1)=TOF + PV( 8,MXGKPV-1)=IPART + PV( 9,MXGKPV-1)=0. + PV(10,MXGKPV-1)=USERW + IER(49)=IER(49)+1 +C** +C** SOME RANDOMISATION OF ORDER OF FINAL STATE PARTICLES +C** + DO 201 I=3,NT + CALL GRNDM(RNDM,1) + IPX=IFIX(3.+RNDM(1)*(NT-2.)) + IF(IPX.GT.NT) IPX=NT + IPA1=IPA(IPX) + IPA(IPX)=IPA(I) + 201 IPA(I) =IPA1 +C** +C** DISTRIBUTE IN FORWARD AND BACKWARD HEMISPHERE IN CMS +C** + SIDE(1)= 1. + SIDE(2)=-1. + NTB=1 + TARG=0. + IF(IPART.LT.10.OR.IPART.GT.13) GOTO 53 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.9) GOTO 53 + IPA1=IPA(1) + IPA(1)=IPA(2) + IPA(2)=IPA1 + 53 LEAD=0 + IF(IPART.LT.10.OR.IPART.EQ.14.OR.IPART.EQ.16) GOTO 532 + IPA1=ABS(IPA(1)) + IF(IPA1.LT.10.OR.IPA1.EQ.14.OR.IPA1.EQ.16) GOTO 531 + LEAD=IPA1 + GOTO 532 + 531 IPA1=ABS(IPA(2)) + IF(IPA1.LT.10.OR.IPA1.EQ.14.OR.IPA1.EQ.16) GOTO 532 + LEAD=IPA1 + 532 DO 3 I=1,NT + IF(I.LE.2) GOTO 54 + SIDE(I)= 1. + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) SIDE(I)=-1. + IF(SIDE(I).LT.-0.5) NTB=NTB+1 + 54 CONTINUE + 3 CONTINUE + TB=2.*NTB + CALL GRNDM(RNDM,1) + IF(RS.LT.(2.0+RNDM(1))) TB=(2.*NTB+NT)/2. +C** +C** ADD PARTICLES FROM INTRANUCLEAR CASCADE +C** + AFC=0.312+0.200*LOG(LOG(S))+S**1.5/6000. + IF(AFC.GT.0.5) AFC=0.5 + XTARG=AFC*(ATNO2**0.33 -1.0)*TB + IF(XTARG.LE.0.) XTARG=0.01 +C** SOME EXTRA STRANGE PARTICLES + XSTRAN=0.030*XTARG + CALL POISSO(XSTRAN,NSTRAN) +C** NUCLEONS AND PIONS + DO 881 IPX=1,6 + IF(P.LE.PSUP(IPX)) GOTO 882 + 881 CONTINUE + IPX = 6 + 882 XPNHMF = XTARG*NUCSUP(IPX) + XSHHMF = XTARG - XPNHMF + IF(XSHHMF.LT.0.01) XSHHMF=0.01 + IF(XPNHMF.LT.0.01) XPNHMF=0.01 + SSHHMF=0.5*XSHHMF + SPNHMF=0.9*XPNHMF + RSHHMF=SSHHMF**2/XSHHMF + RPNHMF=SPNHMF**2/XPNHMF + IF(RSHHMF.LT.1.1) THEN + CALL POISSO(XSHHMF,NSHHMF) + GOTO 541 + ELSE + RSHHMF=XSHHMF/(RSHHMF-1.) + IF(RSHHMF.LE.20.) THEN + CALL SVGAM7(RSHHMF,XHMF) + ELSE + KRSHMF=IFIX(RSHHMF+0.5) + CALL SVERL2(KRSHMF,XHMF) + ENDIF + XSHHMF=XHMF*XSHHMF/RSHHMF + CALL POISSO(XSHHMF,NSHHMF) + ENDIF + 541 IF(RPNHMF.LE.1.1) THEN + CALL POISSO(XPNHMF,NPNHMF) + GOTO 542 + ELSE + RPNHMF=XPNHMF/(RPNHMF-1.) + IF(RPNHMF.LE.20.) THEN + CALL SVGAM7(RPNHMF,XHMF) + ELSE + KRPHMF=IFIX(RPNHMF+0.5) + CALL SVERL2(KRPHMF,XHMF) + ENDIF + XPNHMF=XHMF*XPNHMF/RPNHMF + CALL POISSO(XPNHMF,NPNHMF) + ENDIF + 542 NTARG=NSHHMF+NPNHMF+NSTRAN + NT2=NT+NTARG + IF(NT2.LE.MX) GOTO 2 + NT2=MX + NTARG=NT2-NT + 2 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,3001) NTARG,NT + NT1=NT+1 + IF(NTARG.EQ.0) GOTO 51 +C** +C** CHECK NUMBER OF EXTRA NUCLEONS AND PIONS +C** + DO 4 I=NT1,NT2 + IF(NPNHMF.GT.0) GOTO 52 + IF(NSTRAN.GT.0) GOTO 59 + CALL GRNDM(RNDM,2) + IPA(I)=-(7+IFIX(RNDM(1)*3.0)) + SIDE(I)=-2. + IF(RNDM(2).LT.0.2) THEN + IPA(I)=IABS(IPA(I)) + SIDE(I)=1. + NTARG=NTARG-1 + ENDIF + GOTO 4 + 52 IPA(I)=-16 + PNRAT=1.-ZNO2/ATNO2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.PNRAT) IPA(I)=-14 + TARG=TARG+1. + SIDE(I)=-2. + NPNHMF=NPNHMF-1 + GOTO 4 + 59 CALL GRNDM(RNDM,2) + IPA(I)=-18 + IF(RNDM(1).GT.0.14) IPA(I)=-21 + IF(RNDM(1).GT.0.20) IPA(I)=-10 + IF(RNDM(1).GT.0.43) IPA(I)=-11 + IF(RNDM(1).GT.0.66) IPA(I)=-12 + IF(RNDM(1).GT.0.89) IPA(I)=-13 + SIDE(I)=-2. + IF(RNDM(2).LT.0.2) THEN + IPA(I)=IABS(IPA(I)) + SIDE(I)=1. + NTARG=NTARG-1 + ENDIF + NSTRAN=NSTRAN-1 + 4 CONTINUE + NT=NT2 +C** +C** CHOOSE MASSES AND CHARGES FOR ALL PARTICLES +C** + 51 DO 5 I=1,NT + IPA1=ABS(IPA(I)) + PV(5,I)=RMASS(IPA1) + PV(6,I)=RCHARG(IPA1) + PV(7,I)=1. + IF(PV(5,I).LT.0.) PV(7,I)=-1. + PV(5,I)=ABS(PV(5,I)) + 5 CONTINUE +C** +C** CHECK AVAILABLE KINETIC ENERGY, IN THIS MODEL CONSERVATION OF +C** KINETIC ENERGY IN FORWARD AND BACKWARD HEMISPHERE IS ASSUMED +C** + 6 IF(NT.LE.1) GOTO 60 + TAVAI(1)=RS/2. + TAVAI(2)=(TARG+1.)*RS/2. + IAVAI(1)=0 + IAVAI(2)=0 + DO 7 I=1,NT + L=1 + IF(SIDE(I).LT.0.) L=2 + IAVAI(L)=IAVAI(L)+1 + TAVAI(L)=TAVAI(L)-ABS(PV(5,I)) + 7 CONTINUE + NTH=NT + IF(NTH.GT.10) NTH=10 + IF (NPRT(4)) + $ WRITE(NEWBCD,3002) TAVAI,IAVAI,(IPA(I),SIDE(I),I=1,NTH) + IF(IAVAI(1).LE.0) GOTO 60 + IF(IAVAI(2).LE.0) GOTO 60 + IF(TAVAI(1).GT.0.) GOTO 11 + CALL GRNDM(RNDM,1) + ISKIP=IFIX(RNDM(1)*(IAVAI(1)-1))+1 + IS=0 + DO 10 I=1,NT + II=NT-I+1 + IF(SIDE(II).LT.0.) GOTO 10 + IS=IS+1 + IF(IS.NE.ISKIP) GOTO 10 + IF(II.EQ.NT) GOTO 9 + NT1=II+1 + NT2=NT + DO 8 J=NT1,NT2 + IPA(J-1)=IPA(J) + SIDE(J-1)=SIDE(J) + DO 71 K=1,10 + 71 PV(K,J-1)=PV(K,J) + 8 CONTINUE + GOTO 9 + 10 CONTINUE + 9 IPA(NT)=0 + SIDE(NT)=0. + NT=NT-1 + GOTO 6 + 11 IF(TAVAI(2).GT.0.) GOTO 15 + CALL GRNDM(RNDM,1) + ISKIP=IFIX(RNDM(1)*(IAVAI(2)-1))+1 + IS=0 + DO 14 I=1,NT + II=NT-I+1 + IF(SIDE(II).GT.0.) GOTO 14 + IS=IS+1 + IF(IS.NE.ISKIP) GOTO 14 + IF(SIDE(II).LT.-1.5) NTARG=NTARG-1 + IF(NTARG.LT.0) NTARG=0 + IF(II.EQ.NT) GOTO 13 + NT1=II+1 + NT2=NT + DO 12 J=NT1,NT2 + IPA(J-1)=IPA(J) + SIDE(J-1)=SIDE(J) + DO 74 K=1,10 + 74 PV(K,J-1)=PV(K,J) + 12 CONTINUE + GOTO 13 + 14 CONTINUE + 13 IPA(NT)=0 + SIDE(NT)=0. + NT=NT-1 + GOTO 6 + 15 IF(NT.LE.1) GOTO 60 + IF(NT.EQ.MX) GOTO 29 + NT1=NT+1 + NT2=MX + DO 28 I=NT1,NT2 + 28 IPA(I)=0 + 29 CONTINUE +C** +C** NOW THE PREPARATION IS FINISHED. +C** DEFINE INITIAL STATE VECTORS FOR LORENTZ TRANSFORMATIONS. +C** + PV( 1,MX1)=0. + PV( 2,MX1)=0. + PV( 3,MX1)=P + PV( 4,MX1)=SQRT(P*P+AMAS*AMAS) + PV( 5,MX1)=ABS(AMAS) + PV( 1,MX2)=0. + PV( 2,MX2)=0. + PV( 3,MX2)=0. + PV( 4,MX2)=MP + PV( 5,MX2)=MP + PV( 1,MX4)=0. + PV( 2,MX4)=0. + PV( 3,MX4)=0. + PV( 4,MX4)=MP*(1.+TARG) + PV( 5,MX4)=PV(4,MX4) + PV( 1,MX8)=0. + PV( 2,MX8)=0. + PV( 3,MX8)=0. + PV( 1,MX9)=1. + PV( 2,MX9)=0. + PV( 3,MX9)=0. + CALL ADD(MX1,MX2,MX3) + CALL ADD(MX4,MX1,MX4) + CALL LOR(MX1,MX3,MX1) + CALL LOR(MX2,MX3,MX2) +C** +C** MAIN LOOP FOR 4-MOMENTUM GENERATION , SEE PITHA-REPORT (AACHEN) +C** FOR A DETAILED DESCRIPTION OF THE METHOD. +C** + CALL GRNDM(RNDM,1) + PHI=RNDM(1)*TWPI + EKIN1=0. + EKIN2=0. + DO 39 J=1,10 + PV(J,MX5)=0. + 39 PV(J,MX6)=0. + NPG=0 + RMG0=0. + TARG1=0. + DO 16 III=1,NT + I=NT-III+1 + IPA1=ABS(IPA(I)) +C** +C** COUNT NUMBER OF BACKWARD NUCLEONS +C** + IF(I.EQ.2) THEN + IF(IPA1.GT.16) THEN + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.2) GOTO 301 + ELSE IF(IPA1.GE.14) THEN + GOTO 301 + ENDIF + ENDIF + IF(SIDE(I).GT.-1.5) GOTO 38 + IF(IPA1.EQ.14.OR.IPA1.EQ.16) GOTO 301 + GOTO 38 + 301 NPG=NPG+1 + IF(NPG.GT.18) GOTO 38 + RMG0=RMG0+ABS(PV(5,I)) + SIDE(I)=-3. + TARG1=TARG1+1. + GOTO 16 + 38 J=3 + IF(IPA1.LT.14) J=2 + IF(IPA1.LT.10) J=1 + IF(I.LE.2) J=J+3 + IF(SIDE(I).LT.-1.5) J=7 + IF(J.EQ.7.AND.IPA1.GE.14) J=8 +C** +C** SET PT - AND PHI VALUES, THEY ARE CHANGED SOMEWHAT IN THE ITERATION +C** LOOP, SET MASS PARAMETER FOR LAMBDA FRAGMENTATION MODEL +C** + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + BPP=BP(J) + BPE=PTEX(J) + PT2=-LOG(1.-RAN)/BPP + ASPAR=MASPAR(J) + PT2=PT2**BPE + PT =SQRT(PT2) + IF(PT.LT.0.05) THEN + CALL GRNDM(RNDM,1) + PT=0.3*RNDM(1) + ENDIF + IF(PT.LT.0.001) PT=0.001 + PV(1,I)=PT*COS(PHI) + PV(2,I)=PT*SIN(PHI) + PV(10,I)=PT + BINL(1)=0. + RLMAX=1./PV(10,I) + DO 73 J=2,20 + 73 BINL(J)=RLMAX*(J-1)/19. + ET=PV(4,MX1) + IF(SIDE(I).LT.0.) THEN + ET=PV(4,MX2) + ENDIF + DNDL(1)=0. + NTRIAL=0 +C** +C** START OF BIG ITERATION LOOP +C** + 30 NTRIAL=NTRIAL+1 + IF(NTRIAL.GT. 2) GOTO 169 + DO 17 L=2,20 + DNDL(L)=0. + X=(BINL(L)+BINL(L-1))/2. + IF(PV(10,I).LT.0.001) PV(10,I)=0.001 + IF(X.GT.1./PV(10,I)) GOTO 17 + DX=BINL(L)-BINL(L-1) + DNDL(L)=ASPAR/SQRT((1.+(ASPAR*X)**2)**3) + DNDL(L)=ET*DNDL(L)/SQRT((X*PV(10,I)*ET)**2+PV(10,I)**2 + * +PV(5,I)**2) + DNDL(L)=DNDL(L)*DX + 17 DNDL(L)=DNDL(L-1)+DNDL(L) + NTRI=0 + 31 CALL GRNDM(RNDM,1) + RAN=RNDM(1)*DNDL(20) + DO 18 L=2,20 + IF(RAN.LT.DNDL(L)) GOTO 19 + 18 CONTINUE +C** +C** START OF SMALL ITERATION LOOP +C** + 19 NTRI=NTRI+1 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + DX=BINL(L)-BINL(L-1) + LAMB=BINL(L-1)+RAN*DX/2. + X=PV(10,I)*LAMB + IF(X.GT.1.) X=1. + X=X*SIDE(I)/ABS(SIDE(I)) + PV(3,I)=X*ET + PV(4,I)=PV(3,I)**2+PV(10,I)**2+PV(5,I)**2 + PV(4,I)=SQRT(PV(4,I)) + IF(SIDE(I).LT.0.) GOTO 165 + IF(I.GT.2) GOTO 20 + EKIN=TAVAI(1)-EKIN1 + CALL NORMAL(RAN) + IF(EKIN.LT.0.) EKIN=0.04*ABS(RAN) + PV(4,I)=ABS(PV(5,I))+EKIN + RNVE=ABS(PV(4,I)**2-PV(5,I)**2) + PP=SQRT(RNVE) + CALL LENGTX(I,PP1) +C + IF (PP1 .GE. 1.0E-6) GO TO 8000 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP*COS(RTHNVE) + GO TO 8001 + 8000 CONTINUE + PV(3,I) = PP**2 - PV(10,I)**2 + IF(PV(3,I).LT.0.) PV(3,I)=0. + PV(3,I) = SQRT(PV(3,I))*SIDE(I)/ABS(SIDE(I)) + 8001 CONTINUE +C + CALL ADD(MX5,I,MX5) + GOTO 16 + 20 EKIN=EKIN1+PV(4,I)-ABS(PV(5,I)) + IF(EKIN.LT.0.95*TAVAI(1)) GOTO 161 + IF(NTRI.GT. 5) GOTO 167 + PV(10,I)=PV(10,I)*0.9 + PV( 1,I)=PV( 1,I)*0.9 + PV( 2,I)=PV( 2,I)*0.9 + DNDL(20)=DNDL(20)*0.9 + IF((TAVAI(2)-ABS(PV(5,I))).LT.0.) GOTO 31 + SIDE(I)=-1. + TAVAI(1)=TAVAI(1)+ABS(PV(5,I)) + TAVAI(2)=TAVAI(2)-ABS(PV(5,I)) + GOTO 31 + 161 CALL ADD(MX5,I,MX5) + EKIN1=EKIN1+PV(4,I)-ABS(PV(5,I)) + GOTO 163 + 165 EKIN=EKIN2+PV(4,I)-ABS(PV(5,I)) + XXX=0.95+0.05*TARG/20. + IF(XXX.GT.0.999) X=0.999 + IF(EKIN.LT.XXX*TAVAI(2)) GOTO 166 + IF(NTRI.GT. 5) GOTO 167 + PV(10,I)=PV(10,I)*0.9 + PV( 1,I)=PV( 1,I)*0.9 + PV( 2,I)=PV( 2,I)*0.9 + DNDL(20)=DNDL(20)*0.9 + IF((TAVAI(1)-ABS(PV(5,I))).LT.0.) GOTO 31 + SIDE(I)=+1. + TAVAI(1)=TAVAI(1)-ABS(PV(5,I)) + TAVAI(2)=TAVAI(2)+ABS(PV(5,I)) + GOTO 31 + 166 CALL ADD(MX6,I,MX6) + EKIN2=EKIN2+PV(4,I)-ABS(PV(5,I)) + 163 CALL ADD(MX5,MX6,MX7) + PV(3,MX7)=0. + CALL ANG(MX7,MX9,COST,PHIS) + IF(PV(2,MX7).LT.0.) PHIS=TWPI-PHIS + CALL NORMAL(RAN) + RAN=RAN*PI/12. + PHI=PHIS+PI+RAN + IF(PHI.GT.TWPI) PHI=PHI-TWPI + IF(PHI.LT.0.) PHI=TWPI-PHI + GOTO 16 +C** +C** PARTICLE MOMENTUM ZERO, REDUCE KINETIC ENERGY OF ALL OTHER +C** + 167 EKIN1=0. + EKIN2=0. + DO 162 J=1,10 + PV(J,MX5)=0. + 162 PV(J,MX6)=0. + II=I+1 + DO 168 L=II,NT + IF(ABS(IPA(L)).GE.14.AND.SIDE(L).LT.0.) GOTO 168 + PV(4,L)=PV(4,L)*0.95+0.05*ABS(PV(5,L)) + IF(PV(4,L).LT.ABS(PV(5,L))) PV(4,L)=ABS(PV(5,L)) + RNVE=ABS(PV(4,L)**2-PV(5,L)**2) + PP=SQRT(RNVE) + CALL LENGTX(L,PP1) +C + IF (PP1 .GE. 1.0E-6) GO TO 8002 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,L)=PP*SIN(RTHNVE)*COS(PHINVE) + PV(2,L)=PP*SIN(RTHNVE)*SIN(PHINVE) + PV(3,L)=PP*COS(RTHNVE) + GO TO 8003 + 8002 CONTINUE + PV(1,L)=PV(1,L)*PP/PP1 + PV(2,L)=PV(2,L)*PP/PP1 + PV(3,L)=PV(3,L)*PP/PP1 + 8003 CONTINUE +C + PV(10,L)=SQRT(PV(1,L)**2+PV(2,L)**2) + IF(SIDE(L).LT.0.) GOTO 164 + EKIN1=EKIN1+PV(4,L)-ABS(PV(5,L)) + CALL ADD(MX5,L,MX5) + GOTO 168 + 164 EKIN2=EKIN2+PV(4,L)-ABS(PV(5,L)) + CALL ADD(MX6,L,MX6) + 168 CONTINUE +C *** NEXT STMT. CHANGED TO PREVENT FROM INFINITE LOOPING *** +C************* GOTO 38 + GO TO 30 +C** +C** SKIP PARTICLE, IF NOT ENOUGH ENERGY +C** + 169 IPA(I)=0 + DO 170 J=1,10 + 170 PV(J,I)=0. + GOTO 163 + 16 CONTINUE + NTRI=0 + II=0 + DO 320 I=1,NT + IF(IPA(I).EQ.0) GOTO 320 + II=II+1 + IPA(II)=IPA(I) + SIDE(II)=SIDE(I) + DO 321 J=1,10 + 321 PV(J,II)=PV(J,I) + 320 CONTINUE + NT=II +C** +C** BACKWARD NUCLEONS PRODUCED WITH A CLUSTER MODEL +C** + IF(NPG.EQ.0) GOTO 330 + RMG=RMG0 + IF(NPG.EQ.1) GOTO 310 + NPG1=NPG + IF(NPG1.GT.5) NPG1=5 + CALL GRNDM(RNDM,1) + RMG=-LOG(1.-RNDM(1)) + GPAR=G1PAR(NPG1) + CPAR=C1PAR(NPG1) + DUMNVE=GPAR + IF(DUMNVE.EQ.0.) DUMNVE=1.0E-10 + RMG=RMG0+RMG**CPAR/DUMNVE + 310 GA=1.2 + EKIT1=0.04 + EKIT2=0.6 + IF(EK.GT.5.) GOTO 311 + EKIT1=EKIT1*EK**2/25. + EKIT2=EKIT2*EK**2/25. + 311 A=(1.-GA)/(EKIT2**(1.-GA)-EKIT1**(1.-GA)) + DO 312 I=1,NT + IF(SIDE(I).GT.-2.5) GOTO 312 + CALL GRNDM(RNDM,3) + EKIT=(RNDM(1)*(1.-GA)/A+EKIT1**(1.-GA))**(1./(1.-GA)) + PV(4,I)=EKIT+PV(5,I) + DUMNVE=ABS(PV(4,I)**2-PV(5,I)**2) + PP=SQRT(DUMNVE) + COST=LOG(2.23*RNDM(2)+0.383)/0.96 + IF(COST.LT.-1.) COST=-1. + IF(COST.GT. 1.) COST= 1. + DUMNVE=1.0-COST*COST + IF(DUMNVE.LT.0.0) DUMNVE=0.0 + SINT=SQRT(DUMNVE) + PHI=TWPI*RNDM(3) + PV(1,I)=PP*SINT*SIN(PHI) + PV(2,I)=PP*SINT*COS(PHI) + PV(3,I)=PP*COST + CALL LOR(I,MX3,I) + CALL ADD(MX6,I,MX6) + 312 CONTINUE + 330 IF (NPRT(4)) + $ WRITE(NEWBCD,2002) NTRIAL,EKIN1,EKIN2,TAVAI(1),TAVAI(2) + 175 IF (.NOT.NPRT(4)) GOTO 36 + CALL ADD(MX5,MX6,MX7) + EKIN1=PV(4,MX1)+PV(4,MX2) + EKIN2=PV(4,MX5)+PV(4,MX6) + WRITE(NEWBCD,2000) EKIN1,EKIN2 + I=MX1 + WRITE(NEWBCD,2001) I,(PV(J,I),J=1,4) + I=MX2 + WRITE(NEWBCD,2001) I,(PV(J,I),J=1,4) + I=MX5 + WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + I=MX6 + WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + DO 37 I=1,NT + 37 WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) +C** +C** LORENTZ TRANSFORMATION IN LAB SYSTEM +C** + 36 IF(NT.LE.2) GOTO 60 + TARG=0. + DO 601 I=1,NT + IF(PV(5,I).GT.0.5) TARG=TARG+1. + CALL LOR(I,MX2,I) + 601 CONTINUE + IF(TARG.LT.0.5) TARG=1. + IF(LEAD.EQ.0) GOTO 6085 + DO 6081 I=1,NT + IF(ABS(IPA(I)).EQ.LEAD) GOTO 6085 + 6081 CONTINUE + I=1 + IF(LEAD.GE.14.AND.ABS(IPA(2)).GE.14) I=2 + IF(LEAD.LT.14.AND.ABS(IPA(2)).LT.14) I=2 + IPA(I)=LEAD + EKIN=PV(4,I)-ABS(PV(5,I)) + PV(5,I)=RMASS(LEAD) + PV(7,I)=1. + IF(PV(5,I).LT.0.) PV(7,I)=-1. + PV(5,I)=ABS(PV(5,I)) + PV(6,I)=RCHARG(LEAD) + PV(4,I)=PV(5,I)+EKIN + CALL LENGTX(I,PP) + RNVE=ABS(PV(4,I)**2-PV(5,I)**2) + PP1=SQRT(RNVE) + PV(1,I)=PP1*PV(1,I)/PP + PV(2,I)=PP1*PV(2,I)/PP + PV(3,I)=PP1*PV(3,I)/PP + 6085 KGENEV=1 + PV(1,MX4)=0. + PV(2,MX4)=0. + PV(3,MX4)=P + PV(4,MX4)=SQRT(P*P+AMAS*AMAS) + PV(5,MX4)=ABS(AMAS) + EKIN0=PV(4,MX4)-PV(5,MX4) + PV(1,MX5)=0. + PV(2,MX5)=0. + PV(3,MX5)=0. + PV(4,MX5)=MP*TARG + PV(5,MX5)=PV(4,MX5) + EKIN=PV(4,MX4)+PV(4,MX5) + I=MX4 + IF (NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + I=MX5 + IF (NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + CALL ADD(MX4,MX5,MX6) + CALL LOR(MX4,MX6,MX4) + CALL LOR(MX5,MX6,MX5) + TECM=PV(4,MX4)+PV(4,MX5) + NPG=NT + PV(1,MX8)=0. + PV(2,MX8)=0. + PV(3,MX8)=0. + PV(4,MX8)=0. + PV(5,MX8)=0. + EKIN1=0. + DO 598 I=1,NPG + IF (NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) + CALL ADD(MX8,I,MX8) + EKIN1=EKIN1+PV(4,I)-PV(5,I) + EKIN=EKIN-PV(5,I) + IF(I.GT.18) GOTO 598 + AMASS(I)=PV(5,I) + 598 CONTINUE + IF(NPG.GT.18) GOTO 597 + CALL PHASP + EKIN=0. + DO 599 I=1,NPG + PV(1,MX7)=PCM(1,I) + PV(2,MX7)=PCM(2,I) + PV(3,MX7)=PCM(3,I) + PV(4,MX7)=PCM(4,I) + PV(5,MX7)=AMASS(I) + CALL LOR(MX7,MX5,MX7) + 599 EKIN=EKIN+PV(4,MX7)-PV(5,MX7) + CALL ANG(MX8,MX4,COST,TETA) + IF (NPRT(4)) WRITE(NEWBCD,2003) TETA,EKIN0,EKIN1,EKIN +C** +C** MAKE SHURE, THAT KINETIC ENERGIES ARE CORRECT. +C** EKIN= KINETIC ENERGY THEORETICALLY +C** EKIN1= KINETIC ENERGY SIMULATED +C** + 597 IF(EKIN1.EQ.0.) GOTO 600 + PV(1,MX7)=0. + PV(2,MX7)=0. + PV(3,MX7)=0. + PV(4,MX7)=0. + PV(5,MX7)=0. + WGT=EKIN/EKIN1 + EKIN1=0. + DO 602 I=1,NT + EKIN=PV(4,I)-PV(5,I) + EKIN=EKIN*WGT + PV(4,I)=EKIN+PV(5,I) + RNVE=ABS(PV(4,I)**2-PV(5,I)**2) + PP=SQRT(RNVE) + CALL LENGTX(I,PP1) +C + IF (PP1 .GE. 1.0E-6) GO TO 8008 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP*COS(RTHNVE) + GO TO 8009 + 8008 CONTINUE + PV(1,I)=PV(1,I)*PP/PP1 + PV(2,I)=PV(2,I)*PP/PP1 + PV(3,I)=PV(3,I)*PP/PP1 + 8009 CONTINUE +C + EKIN1=EKIN1+EKIN + CALL ADD(MX7,I,MX7) + 602 CONTINUE + CALL ANG(MX7,MX4,COST,TETA) + IF (NPRT(4)) WRITE(NEWBCD,2003) TETA,EKIN0,EKIN1 +C** +C** ROTATE IN DIRECTION OF Z-AXIS, THIS DOES DISTURB IN SOME WAY OUR +C** INCLUSIVE DISTRIBUTIONS, BUT IT IS NESSACARY FOR MOMENTUM CONSER- +C** VATION. +C** + 600 PV(1,MX7)=0. + PV(2,MX7)=0. + PV(3,MX7)=0. + PV(4,MX7)=0. + PV(5,MX7)=0. + DO 596 I=1,NT + CALL ADD(MX7,I,MX7) + 596 CONTINUE +C** +C** SOME SMEARING IN TRANSVERSE DIRECTION FROM FERMI MOTION +C** +* CALL RANNOR(RAN1,RAN2) + CALL GRNDM(RNDM,2) + RY=RNDM(1) + RZ=RNDM(2) + RX=6.283185*RZ + A1=SQRT(-2.*LOG(RY)) + RAN1=A1*SIN(RX) + RAN2=A1*COS(RX) + PV(1,MX7)=PV(1,MX7)+RAN1*0.020*TARG + PV(2,MX7)=PV(2,MX7)+RAN2*0.020*TARG + CALL DEFS(MX4,MX7,MX8) + PV(1,MX7)=0. + PV(2,MX7)=0. + PV(3,MX7)=0. + PV(4,MX7)=0. + PV(5,MX7)=0. + DO 595 I=1,NT + CALL TRAC(I,MX8,I) + CALL ADD(MX7,I,MX7) + 595 CONTINUE + CALL ANG(MX7,MX4,COST,TETA) + IF (NPRT(4)) WRITE(NEWBCD,2003) TETA +C** +C** ROTATE IN DIRECTION OF PRIMARY PARTICLE, SUBTRACT BINDING ENERGIES +C** AND MAKE SOME FURTHER CORRECTIONS IF REQUIRED (STEEP, STEEQ) +C** + DEKIN=0. + NPIONS=0 + EK1=0. + EK2=0. + DO 21 I=1,NT + CALL DEFS1(I,MXGKPV-1,I) + IF (NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) + IF(ATNO2.LT.1.5) GOTO 21 + CALL LENGTX(I,PP) + EKIN=PV(4,I)-ABS(PV(5,I)) + CALL NORMAL(RAN) + EKIN=EKIN-CFA*(1.+0.5*RAN) + IF (EKIN .LT. 1.0E-6) EKIN=1.0E-6 + CALL STEEQ(XXH,I) + DEKIN=DEKIN+EKIN*(1.-XXH) + EKIN=EKIN*XXH + IF(ABS(IPA(I)).GE.7.AND.ABS(IPA(I)).LE.9) NPIONS=NPIONS+1 + IF(ABS(IPA(I)).GE.7.AND.ABS(IPA(I)).LE.9) EK1=EK1+EKIN + PP1=SQRT(EKIN*(EKIN+2.*ABS(PV(5,I)))) + PV(4,I)=EKIN+ABS(PV(5,I)) +C + IF (PP .GE. 1.0E-6) GO TO 8010 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP1*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP1*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP1*COS(RTHNVE) + GO TO 8011 + 8010 CONTINUE + PV(1,I)=PV(1,I)*PP1/PP + PV(2,I)=PV(2,I)*PP1/PP + PV(3,I)=PV(3,I)*PP1/PP + 8011 CONTINUE +C + 21 CONTINUE + IF(EK1.EQ.0.) GOTO 23 + IF(NPIONS.EQ.0) GOTO 23 + DEKIN=1.+DEKIN/EK1 + DO 22 I=1,NT + IF(ABS(IPA(I)).LT.7.OR.ABS(IPA(I)).GT.9) GOTO 22 + CALL LENGTX(I,PP) + EKIN=PV(4,I)-ABS(PV(5,I)) + EKIN=EKIN*DEKIN + IF (EKIN .LT. 1.0E-6) EKIN=1.0E-6 + PP1=SQRT(EKIN*(EKIN+2.*ABS(PV(5,I)))) + PV(4,I)=EKIN+ABS(PV(5,I)) +C + IF (PP .GE. 1.0E-6) GO TO 8012 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP1*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP1*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP1*COS(RTHNVE) + GO TO 8013 + 8012 CONTINUE + PV(1,I)=PV(1,I)*PP1/PP + PV(2,I)=PV(2,I)*PP1/PP + PV(3,I)=PV(3,I)*PP1/PP + 8013 CONTINUE +C + 22 CONTINUE +C** +C** ADD BLACK TRACK PARTICLES, THE TOTAL NUMBER OF PARTICLES PRODUCED +C** IS RESTRICTED TO 198, THIS MAY HAVE INFLUENCE ON VERY HIGH ENERGY +C** FIRST PROTONS AND NEUTRONS +C** + 23 IF(ATNO2.LT.1.5) GOTO 40 + CALL HIGHAB(SPROB) + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SPROB) GOTO 40 + TEX=ENP(1) + SPALL=TARG + IF(TEX.LT.0.001) GOTO 445 + BLACK=(1.5+1.25*TARG)*ENP(1)/(ENP(1)+ENP(3)) + CALL POISSO(BLACK,NBL) + IF (NPRT(4)) WRITE(NEWBCD,3003) NBL,TEX + IF(IFIX(TARG)+NBL.GT.ATNO2) NBL=ATNO2-TARG + IF(NT+NBL.GT.MXGKPV-10) NBL=MXGKPV-10-NT + IF(NBL.LE.0) GOTO 445 + EKIN=TEX/NBL + EKIN2=0. + CALL STEEP(XX) + DO 441 I=1,NBL + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SPROB) GOTO 441 + IF(NT.EQ.MXGKPV-10) GOTO 441 + IF(EKIN2.GT.TEX) GOTO 443 + CALL GRNDM(RNDM,1) + RAN1=RNDM(1) + CALL NORMAL(RAN2) + EKIN1=-EKIN*LOG(RAN1)-CFA*(1.+0.5*RAN2) + IF(EKIN1.LT.0.0) EKIN1=-0.010*LOG(RAN1) + EKIN1=EKIN1*XX + EKIN2=EKIN2+EKIN1 + IF(EKIN2.GT.TEX) EKIN1=TEX-(EKIN2-EKIN1) + IF (EKIN1 .LT. 0.0) EKIN1=1.0E-6 + IPA1=16 + PNRAT=1.-ZNO2/ATNO2 + CALL GRNDM(RNDM,3) + IF(RNDM(1).GT.PNRAT) IPA1=14 + NT=NT+1 + SPALL=SPALL+1. + COST=-1.+RNDM(2)*2. + SINT=SQRT(ABS(1.-COST*COST)) + PHI=TWPI*RNDM(3) + IPA(NT)=-IPA1 + SIDE(NT)=-4. + PV(5,NT)=ABS(RMASS(IPA1)) + PV(6,NT)=RCHARG(IPA1) + PV(7,NT)=1. + PV(4,NT)=EKIN1+PV(5,NT) + RNVE=ABS(PV(4,NT)**2-PV(5,NT)**2) + PP=SQRT(RNVE) + PV(1,NT)=PP*SINT*SIN(PHI) + PV(2,NT)=PP*SINT*COS(PHI) + PV(3,NT)=PP*COST + 441 CONTINUE + 443 IF(ATNO2.LT.10.) GOTO 445 + IF(EK.GT.2.0) GOTO 445 + II=NT+1 + KK=0 + EKA=EK + IF(EKA.GT.1.) EKA=EKA*EKA + IF(EKA.LT.0.1) EKA=0.1 + IKA=3.6*EXP((ZNO2**2/ATNO2-35.56)/6.45)/EKA + IF(IKA.LE.0) GO TO 445 + DO 444 I=1,NT + II=II-1 + IF(IPA(II).NE.-14) GOTO 444 + IPA(II)=-16 + IPA1 = 16 + PV(5,II)=ABS(RMASS(IPA1)) + PV(6,II)=RCHARG(IPA1) + KK=KK+1 + IF(KK.GT.IKA) GOTO 445 + 444 CONTINUE +C** +C** THEN ALSO DEUTERONS, TRITONS AND ALPHAS +C** + 445 TEX=ENP(3) + IF(TEX.LT.0.001) GOTO 40 + BLACK=(1.5+1.25*TARG)*ENP(3)/(ENP(1)+ENP(3)) + CALL POISSO(BLACK,NBL) + IF(NT+NBL.GT.MXGKPV-10) NBL=MXGKPV-10-NT + IF(NBL.LE.0) GOTO 40 + EKIN=TEX/NBL + EKIN2=0. + CALL STEEP(XX) + IF (NPRT(4)) WRITE(NEWBCD,3004) NBL,TEX + DO 442 I=1,NBL + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SPROB) GOTO 442 + IF(NT.EQ.MXGKPV-10) GOTO 442 + IF(EKIN2.GT.TEX) GOTO 40 + CALL GRNDM(RNDM,1) + RAN1=RNDM(1) + CALL NORMAL(RAN2) + EKIN1=-EKIN*LOG(RAN1)-CFA*(1.+0.5*RAN2) + IF(EKIN1.LT.0.0) EKIN1=-0.010*LOG(RAN1) + EKIN1=EKIN1*XX + EKIN2=EKIN2+EKIN1 + IF(EKIN2.GT.TEX) EKIN1=TEX-(EKIN2-EKIN1) + IF (EKIN1 .LT. 0.0) EKIN1=1.0E-6 + CALL GRNDM(RNDM,3) + COST=-1.+RNDM(1)*2. + SINT=SQRT(ABS(1.-COST*COST)) + PHI=TWPI*RNDM(2) + RAN=RNDM(3) + IPA(NT+1)=-30 + IF(RAN.GT.0.60) IPA(NT+1)=-31 + IF(RAN.GT.0.90) IPA(NT+1)=-32 + SIDE(NT+1)=-4. + PV(5,NT+1)=(ABS(IPA(NT+1))-28)*MP + SPALL=SPALL+PV(5,NT+1)*1.066 + IF(SPALL.GT.ATNO2) GOTO 40 + NT=NT+1 + PV(6,NT)=1. + IF(IPA(NT).EQ.-32) PV(6,NT)=2. + PV(7,NT)=1. + PV(4,NT)=PV(5,NT)+EKIN1 + RNVE=ABS(PV(4,NT)**2-PV(5,NT)**2) + PP=SQRT(RNVE) + PV(1,NT)=PP*SINT*SIN(PHI) + PV(2,NT)=PP*SINT*COS(PHI) + PV(3,NT)=PP*COST + 442 CONTINUE +C** +C** STORE ON EVENT COMMON +C** + 40 CALL GRNDM(RNDM,1) + IF(RS.GT.(4.+RNDM(1))) GOTO 42 + DO 41 I=1,NT + CALL LENGTX(I,ETB) + IF(ETB.LT.P) GOTO 41 + ETF=P + PV(4,I)=SQRT(PV(5,I)**2+ETF**2) + ETF=ETF/ETB + PV(1,I)=PV(1,I)*ETF + PV(2,I)=PV(2,I)*ETF + PV(3,I)=PV(3,I)*ETF + 41 CONTINUE + 42 EKIN=PV(4,MXGKPV)-ABS(PV(5,MXGKPV)) + EKIN1=PV(4,MXGKPV-1)-ABS(PV(5,MXGKPV-1)) + EKIN2=0. + CALL TDELAY(TOF1) + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + TOF=TOF-TOF1*LOG(RAN) + DO 44 I=1,NT + IF(PV(7,I).LT.0.) PV(5,I)=-PV(5,I) + PV(7,I)=TOF + PV(8,I)=ABS(IPA(I)) + PV(9,I)=0. + 44 PV(10,I)=0. + CALL GHETUN(NT) + DO 55 I=1,NT + EKIN2=EKIN2+PV(4,I)-ABS(PV(5,I)) + 55 CONTINUE + EKIN2=(EKIN2-EKIN)/EKIN + IF(NPRT(4)) + $ WRITE(NEWBCD,2006) NT,EKIN,ENP(1),ENP(3),EKIN1,EKIN2 + IF(EKIN2.GT.0.2) GOTO 60 +C** + INTCT=INTCT+1. + CALL SETCUR(NT) + NTK=NTK+1 + IF(NT.EQ.1) GO TO 9999 + DO 50 II=2,NT + I=II-1 + IF(NTOT.LT.NSIZE/12) GOTO 43 + GO TO 9999 + 43 CALL SETTRK(I) + 50 CONTINUE +C + 2002 FORMAT(' *HIGXPT* PRODUCTION OF FINAL STATE KINEMATIC AFTER ',I3, + $ ' TRIALS. KINETIC ENERGIES ',2F6.2,' OUT OF ',2F6.2) + 2000 FORMAT(' *HIGXPT* CMS PARAMETERS OF FINAL STATE PARTICLES,', + $ ' ENERGIES IN INITIAL AND FINAL STATE ',2F6.2) + 2001 FORMAT(' *HIGXPT* TRACK',2X,I3,2X,10F8.3,2X,I3,2X,F4.0) + 2003 FORMAT(' *HIGXPT* TETA,EKIN0,EKIN1,EKIN ',4F10.4) + 2006 FORMAT(' *HIGXPT* COMP.',1X,I5,1X,5F7.2) + 3001 FORMAT(' *HIGXPT* NUCLEAR EXCITATION',I5, + $ ' PARTICLES PRODUCED IN ADDITION TO ',I5,' NORMAL PARTICLES') + 3002 FORMAT(' *HIGXPT* AVAILABLE ENERGIES ',2F10.4, + $ ' FOR ',2I3,' PARTICLES IN BEAM/TARGET FRAGM. REGION', + $ ' WITH IPA/SIDE ARRAY '/ + $ 1H ,5X,10(I3,2X,F3.0,4X)) + 3003 FORMAT(' *HIGXPT* ',I3,' BLACK TRACK PARTICLES PRODUCED', + $ ' WITH TOTAL KINETIC ENERGY OF ',F8.3,' GEV') + 3004 FORMAT(' *HIGXPT* ',I5,' HEAVY FRAGMENTS PRODUCED', + $ ' WITH TOTAL ENERGY OF',F8.4,' GEV') +C + 9999 CONTINUE +C + RETURN + END +*CMZ : 3.14/16 13/03/89 14.48.40 BY NICK VAN EIJNDHOVEN (CERN) +*-- AUTHOR : +C--------------------------------------------------------------------- + INTEGER FUNCTION NFAC(N) +C +C *** NVE 16-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (27-OCT-1983) +C + SAVE +C + NFAC=1. + M=N + IF(M.LE.1) RETURN + IF(M.GT.10) M=10 + DO 1 I=2,M + 1 NFAC=NFAC*I + RETURN + END +*CMZ : 3.14/16 13/03/89 14.48.40 BY NICK VAN EIJNDHOVEN (CERN) +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE NORMAL(RAN) +C +C *** NVE 14-APR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (27-OCT-1983) +C + DIMENSION RNDM(12) + SAVE +C + RAN=-6. + CALL GRNDM(RNDM,12) + DO 1 I=1,12 + RAN=RAN+RNDM(I) + 1 CONTINUE + RETURN + END +*CMZ : 3.16/00 05/11/93 20.30.06 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE NUCREC(NOPT,IREC) +C +C *** NUCLEAR REACTION KINEMATICS AT LOW ENERGIES *** +C *** NVE 18-MAY-1988 CERN GENEVA *** +C +C CALLED BY : GHEISH, GNSLWD +C ORIGIN : H.FESEFELDT (12-FEB-1987) +C +C NOPT=1 N M(A,Z) --> G (G) M(A+1,Z ) NEUTRON CAPTURE +C NOPT=2 N M(A,Z) --> N (G) M(A ,Z ) INELASTIC NEUTRON SCATT. +C NOPT=3 N M(A,Z) --> P (G) M(A ,Z-1) +C NOPT=4 N M(A,Z) --> D (G) M(A-1,Z-1) +C NOPT=5 N M(A,Z) --> T (G) M(A-2,Z-1) +C NOPT=6 N M(A,Z) --> ALP. M(A-3,Z-2) +C NOPT=7 N M(A,Z) --> N N M(A-1,Z ) +C NOPT=8 N M(A,Z) --> N P M(A-1,Z-1) +C NOPT=9 N M(A,Z) --> P P M(A-1,Z-2) +C NOPT=11 P M(A,Z) --> G (G) M(A+1,Z+1) PROTON CAPTURE +C NOPT=12 P M(A,Z) --> N (G) M(A ,Z ) INELASTIC PROTON SCATT. +C NOPT=13 P M(A,Z) --> P (G) M(A ,Z+1) +C NOPT=14 P M(A,Z) --> D (G) M(A-1,Z ) +C NOPT=15 P M(A,Z) --> T (G) M(A-2,Z ) +C NOPT=16 P M(A,Z) --> ALP. M(A-3,Z-1) +C NOPT=17 P M(A,Z) --> N N M(A-1,Z+1) +C NOPT=18 P M(A,Z) --> N P M(A-1,Z ) +C NOPT=19 P M(A,Z) --> P P M(A-1,Z-1) +C SIMILAR FOR D,T,ALPHA SCATTERING ON NUCLEI +C +C NOTE : DOUBLE PRECISION CALCULATIONS ARE VITAL FOR THESE LOW +C ENERGY PROCESSES +C THEREFORE THE VARS OF /GENIO/ ARE DECLARED DOUBLE PRECISION +C ALSO A DOUBLE PRECISION VERSION OF THE PHASE SPACE PACKAGE +C "PHPNUC" HAS BEEN INTRODUCED +C *** HMF 29-AUG-1989 RWTH AACHEN *** +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/MAT / LMAT, + * DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSL(21), + * CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + * MATID(21),MATID1(21,24),PARMAT(21,10), + * IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + * ATNO1(21,10),ZNO1(21,10) +C + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + COMMON/ERRCOM/ IER(100) +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + COMMON/NUCIN /TECM,AMASS(18),NPG,KGENEV + COMMON/NUCOUT/PCM(5,18),WGT + DOUBLE PRECISION TECM,AMASS,PCM,WGT +C +C +C + DIMENSION QVAL(10),TCH(10) + DIMENSION RNDM(2) + SAVE +C +C** PROGRAM RETURNS WITH NOPT=0, IF INELASTIC SCATTERING ENERGETICALLY +C** NOT POSSIBLE, OR IF WRONG PARTICLES ENTER THIS ROUTINE: ONLY FOR +C** PROTONS,NEUTRONS, DEUTERIUM, TRITIUM AND ALPHAS. +C** IF EK > 100 MEV, THIS ROUTINE IS CERTAINLY NOT ADEQUATE. +C + NOPT=0 + IF (IREC .EQ. 0) GO TO 9999 +C + IF (NPRT(9) .AND. (EK .GT. 0.1)) PRINT 9000,EK,IPART + 9000 FORMAT(' *NUCREC* ENERGY TOO HIGH EK = ',G12.5,' GEV ', + $ ' KPART = ',I3) + IF (EK .GT. 0.1) GO TO 9999 +C +C%%% IF(IPART.EQ.16) GOTO 2 +C%%% IF(IPART.EQ.14) GOTO 3 +C%%% IF(IPART.EQ.30) GOTO 4 +C%%% IF(IPART.EQ.31) GOTO 5 +C%%% IF(IPART.EQ.32) GOTO 6 +C%%% GO TO 9999 +C%%% 2 AMAS = ATOMAS(1.,0.) +C%%% GOTO 8 +C%%% 3 AMAS = ATOMAS(1.,1.) +C%%% GOTO 8 +C%%% 4 AMAS = ATOMAS(2.,1.) +C%%% GOTO 8 +C%%% 5 AMAS = ATOMAS(3.,1.) +C%%% GOTO 8 +C%%% 6 AMAS = ATOMAS(4.,2.) +C + IF (IPART .EQ. 16) GO TO 8 + IF (IPART .EQ. 14) GO TO 8 + IF (IPART .EQ. 30) GO TO 8 + IF (IPART .EQ. 31) GO TO 8 + IF( IPART .EQ. 32) GO TO 8 + GO TO 9999 +C** SET BEAM PARTICLE, TAKE EK AS FUNDAMENTAL QUANTITY +C** DUE TO THE DIFFICULT KINEMATIC, ALL MASSES HAVE TO BE ASSIGNED +C** THE BEST MEASURED VALUES. + 8 CONTINUE +* CALL VZERO(QVAL,10) +* CALL VZERO(TCH ,10) +CDH + DO III = 1, 10 + QVAL(III) = 0. + ENDDO + DO III = 1, 10 + TCH(III) = 0. + ENDDO + +C --- GET MASS WHICH MATCHES GEANT --- + AMAS=RMASS(IPART) + EN=EK+ABS(AMAS) + P =SQRT(ABS(EN*EN-AMAS*AMAS)) + PP=SQRT(PX*PX+PY*PY+PZ*PZ) + IF (PP .GT. 1.0E-6) GO TO 8000 + CALL GRNDM(RNDM,2) + PHINVE=TWPI*RNDM(1) + COST=-1.+2.*RNDM(2) + IF (COST .LE. -1.) COST=-1. + IF (COST .GE. 1.) COST= 1. + RTHNVE=ACOS(COST) + PX=SIN(RTHNVE)*COS(PHINVE) + PY=SIN(RTHNVE)*SIN(PHINVE) + PZ=COS(RTHNVE) + PP=1. + 8000 CONTINUE + PX=PX/PP + PY=PY/PP + PZ=PZ/PP +* CALL VZERO(PV,10*MXGKPV) +CDH + DO III = 1, MXGKPV + DO IIII = 1, 10 + PV(IIII,III) = 0. + ENDDO + ENDDO + + PV(1,1) =PX*P + PV(2,1) =PY*P + PV(3,1) =PZ*P + PV(4,1) =EN + PV(5,1) =AMAS + PV(6,1) =NCH + PV(7,1) =TOF + PV(8,1) =IPART + PV(9,1) =0. + PV(10,1)=USERW + PV(1,2) =0. + PV(2,2) =0. + PV(3,2) =0. + PV(4,2) =0. + PV(5,2) =ATOMAS(ATNO2,ZNO2) + PV(6,2) =ZNO2 + PV(7,2) =TOF + PV(8,2) =0. + PV(9,2) =0. + PV(10,2)=0. +C** CALCULATE Q-VALUE OF REACTIONS + IF(IPART.EQ.16) GOTO 20 + IF(IPART.EQ.14) GOTO 30 + IF(IPART.EQ.30) GOTO 40 + IF(IPART.EQ.31) GOTO 50 + IF(IPART.EQ.32) GOTO 60 + 20 PV(5,11)=ATOMAS(ATNO2+1.,ZNO2 ) + PV(6,11)=ZNO2 + PV(5,21)=0. + PV(6,21)=0. + PV(8,21)=1. + PV(5,31)=0. + PV(6,31)=0. + PV(8,31)=1. +C + PV(5,12)=PV(5,2) + PV(6,12)=PV(6,2) + PV(5,22)=RMASS(16) + PV(6,22)=0. + PV(8,22)=16. + PV(5,32)=0. + PV(6,32)=0. + PV(8,32)=1. +C + PV(5,13)=ATOMAS(ATNO2 ,ZNO2-1.) + PV(6,13)=ZNO2-1. + PV(5,23)=RMASS(14) + PV(6,23)=1. + PV(8,23)=14. + PV(5,33)=0. + PV(6,33)=0. + PV(8,33)=1. +C + PV(5,14)=ATOMAS(ATNO2-1.,ZNO2-1.) + PV(6,14)=ZNO2-1. + PV(5,24)=RMASS(30) + PV(6,24)=1. + PV(8,24)=30. + PV(5,34)=0. + PV(6,34)=0. + PV(8,34)=1. +C + PV(5,15)=ATOMAS(ATNO2-2.,ZNO2-1.) + PV(6,15)=ZNO2-1. + PV(5,25)=RMASS(31) + PV(6,25)=1. + PV(8,25)=31. + PV(5,35)=0. + PV(6,35)=0. + PV(8,35)=1. +C + PV(5,16)=ATOMAS(ATNO2-3.,ZNO2-2.) + PV(6,16)=ZNO2-2. + PV(5,26)=RMASS(32) + PV(6,26)=2. + PV(8,26)=32. + PV(5,36)=0. + PV(6,36)=0. + PV(8,36)=1. +C + PV(5,17)=ATOMAS(ATNO2-1.,ZNO2 ) + PV(6,17)=ZNO2 + PV(5,27)=PV(5,22) + PV(6,27)=0. + PV(8,27)=16. + PV(5,37)=PV(5,22) + PV(6,37)=0. + PV(8,37)=16. +C + PV(5,18)=PV(5,14) + PV(6,18)=PV(6,14) + PV(5,28)=PV(5,22) + PV(6,28)=0. + PV(8,28)=16. + PV(5,38)=PV(5,23) + PV(6,38)=1. + PV(8,38)=14. +C + PV(5,19)=ATOMAS(ATNO2-1.,ZNO2-2.) + PV(6,19)=ZNO2-2. + PV(5,29)=PV(5,23) + PV(6,29)=1. + PV(8,29)=14. + PV(5,39)=PV(5,23) + PV(6,39)=1. + PV(8,39)=14. +C + GOTO 70 + 30 PV(5,11)=ATOMAS(ATNO2+1.,ZNO2+1.) + PV(6,11)=ZNO2+1. + PV(5,21)=0. + PV(6,21)=0. + PV(8,21)=1. + PV(5,31)=0. + PV(6,31)=0. + PV(8,31)=1. +C + PV(5,12)=ATOMAS(ATNO2 ,ZNO2+1.) + PV(6,12)=ZNO2+1. + PV(5,22)=RMASS(16) + PV(6,22)=0. + PV(8,22)=16. + PV(5,32)=0. + PV(6,32)=0. + PV(8,32)=1. +C + PV(5,13)=PV(5,2) + PV(6,13)=PV(6,2) + PV(5,23)=RMASS(14) + PV(6,23)=1. + PV(8,23)=14. + PV(5,33)=0. + PV(6,33)=0. + PV(8,33)=1. +C + PV(5,14)=ATOMAS(ATNO2-1.,ZNO2 ) + PV(6,14)=ZNO2 + PV(5,24)=RMASS(30) + PV(6,24)=1. + PV(8,24)=30. + PV(5,34)=0. + PV(6,34)=0. + PV(8,34)=1. +C + PV(5,15)=ATOMAS(ATNO2-2.,ZNO2 ) + PV(6,15)=ZNO2 + PV(5,25)=RMASS(31) + PV(6,25)=1. + PV(8,25)=31. + PV(5,35)=0. + PV(6,35)=0. + PV(8,35)=1. +C + PV(5,16)=ATOMAS(ATNO2-3.,ZNO2-1.) + PV(6,16)=ZNO2-1. + PV(5,26)=RMASS(32) + PV(6,26)=2. + PV(8,26)=32. + PV(5,36)=0. + PV(6,36)=0. + PV(8,36)=1. +C + PV(5,17)=ATOMAS(ATNO2-1.,ZNO2+1.) + PV(6,17)=ZNO2+1. + PV(5,27)=PV(5,22) + PV(6,27)=0. + PV(8,27)=16. + PV(5,37)=PV(5,22) + PV(6,37)=0. + PV(8,37)=16. +C + PV(5,18)=PV(5,14) + PV(6,18)=PV(6,14) + PV(5,28)=PV(5,22) + PV(6,28)=0. + PV(8,28)=16. + PV(5,38)=PV(5,23) + PV(6,38)=1. + PV(8,38)=14. +C + PV(5,19)=ATOMAS(ATNO2-1.,ZNO2-1.) + PV(6,19)=ZNO2-1. + PV(5,29)=PV(5,23) + PV(6,29)=1. + PV(8,29)=14. + PV(5,39)=PV(5,23) + PV(6,39)=1. + PV(8,39)=14. +C + NOPT=10 + GOTO 70 + 40 PV(5,11)=ATOMAS(ATNO2+2.,ZNO2+1.) + PV(6,11)=ZNO2+1. + PV(5,21)=0. + PV(6,21)=0. + PV(8,21)=1. + PV(5,31)=0. + PV(6,31)=0. + PV(8,31)=1. +C + PV(5,12)=ATOMAS(ATNO2+1.,ZNO2+1.) + PV(6,12)=ZNO2+1. + PV(5,22)=RMASS(16) + PV(6,22)=0. + PV(8,22)=16. + PV(5,32)=0. + PV(6,32)=0. + PV(8,32)=1. +C + PV(5,13)=ATOMAS(ATNO2+1.,ZNO2 ) + PV(6,13)=ZNO2 + PV(5,23)=RMASS(14) + PV(6,23)=1. + PV(8,23)=14. + PV(5,33)=0. + PV(6,33)=0. + PV(8,33)=1. +C + PV(5,14)=PV(5,2) + PV(6,14)=PV(6,2) + PV(5,24)=RMASS(30) + PV(6,24)=1. + PV(8,24)=30. + PV(5,34)=0. + PV(6,34)=0. + PV(8,34)=1. +C + PV(5,15)=ATOMAS(ATNO2-1.,ZNO2 ) + PV(6,15)=ZNO2 + PV(5,25)=RMASS(31) + PV(6,25)=1. + PV(8,25)=31. + PV(5,35)=0. + PV(6,35)=0. + PV(8,35)=1. +C + PV(5,16)=ATOMAS(ATNO2-2.,ZNO2-1.) + PV(6,16)=ZNO2-1. + PV(5,26)=RMASS(32) + PV(6,26)=2. + PV(8,26)=32. + PV(5,36)=0. + PV(6,36)=0. + PV(8,36)=1. +C + PV(5,17)=ATOMAS(ATNO2 ,ZNO2+1.) + PV(6,17)=ZNO2+1. + PV(5,27)=PV(5,22) + PV(6,27)=0. + PV(8,27)=16. + PV(5,37)=PV(5,22) + PV(6,37)=0. + PV(8,37)=16. +C + PV(5,18)=PV(5,14) + PV(6,18)=PV(6,14) + PV(5,28)=PV(5,22) + PV(6,28)=0. + PV(8,28)=16. + PV(5,38)=PV(5,23) + PV(6,38)=1. + PV(8,38)=14. +C + PV(5,19)=ATOMAS(ATNO2 ,ZNO2-1.) + PV(6,19)=ZNO2-1. + PV(5,29)=PV(5,23) + PV(6,29)=1. + PV(8,29)=14. + PV(5,39)=PV(5,23) + PV(6,39)=1. + PV(8,39)=14. +C + NOPT=20 + GOTO 70 + 50 PV(5,11)=ATOMAS(ATNO2+3.,ZNO2+1.) + PV(6,11)=ZNO2+1. + PV(5,21)=0. + PV(6,21)=0. + PV(8,21)=1. + PV(5,31)=0. + PV(6,31)=0. + PV(8,31)=1. +C + PV(5,12)=ATOMAS(ATNO2+2.,ZNO2+1.) + PV(6,12)=ZNO2+1. + PV(5,22)=RMASS(16) + PV(6,22)=0. + PV(8,22)=16. + PV(5,32)=0. + PV(6,32)=0. + PV(8,32)=1. +C + PV(5,13)=ATOMAS(ATNO2+2.,ZNO2 ) + PV(6,13)=ZNO2 + PV(5,23)=RMASS(14) + PV(6,23)=1. + PV(8,23)=14. + PV(5,33)=0. + PV(6,33)=0. + PV(8,33)=1. +C + PV(5,14)=ATOMAS(ATNO2+1.,ZNO2 ) + PV(6,14)=ZNO2 + PV(5,24)=RMASS(30) + PV(6,24)=1. + PV(8,24)=30. + PV(5,34)=0. + PV(6,34)=0. + PV(8,34)=1. +C + PV(5,15)=PV(5,2) + PV(6,15)=PV(6,2) + PV(5,25)=RMASS(31) + PV(6,25)=1. + PV(8,25)=31. + PV(5,35)=0. + PV(6,35)=0. + PV(8,35)=1. +C + PV(5,16)=ATOMAS(ATNO2-1.,ZNO2-1.) + PV(6,16)=ZNO2-1. + PV(5,26)=RMASS(32) + PV(6,26)=2. + PV(8,26)=32. + PV(5,36)=0. + PV(6,36)=0. + PV(8,36)=1. +C + PV(5,17)=ATOMAS(ATNO2+1.,ZNO2+1.) + PV(6,17)=ZNO2+1. + PV(5,27)=PV(5,22) + PV(6,27)=0. + PV(8,27)=16. + PV(5,37)=PV(5,22) + PV(6,37)=0. + PV(8,37)=16. +C + PV(5,18)=PV(5,14) + PV(6,18)=PV(6,14) + PV(5,28)=PV(5,22) + PV(6,28)=0. + PV(8,28)=16. + PV(5,38)=PV(5,23) + PV(6,38)=1. + PV(8,38)=14. +C + PV(5,19)=ATOMAS(ATNO2+1.,ZNO2-1.) + PV(6,19)=ZNO2-1. + PV(5,29)=PV(5,23) + PV(6,29)=1. + PV(8,29)=14. + PV(5,39)=PV(5,23) + PV(6,39)=1. + PV(8,39)=14. +C + NOPT=30 + GOTO 70 + 60 PV(5,11)=ATOMAS(ATNO2+4.,ZNO2+2.) + PV(6,11)=ZNO2+2. + PV(5,21)=0. + PV(6,21)=0. + PV(8,21)=1. + PV(5,31)=0. + PV(6,31)=0. + PV(8,31)=1. +C + PV(5,12)=ATOMAS(ATNO2+3.,ZNO2+2.) + PV(6,12)=ZNO2+2. + PV(5,22)=RMASS(16) + PV(6,22)=0. + PV(8,22)=16. + PV(5,32)=0. + PV(6,32)=0. + PV(8,32)=1. +C + PV(5,13)=ATOMAS(ATNO2+3.,ZNO2+1.) + PV(6,13)=ZNO2+1. + PV(5,23)=RMASS(14) + PV(6,23)=1. + PV(8,23)=14. + PV(5,33)=0. + PV(6,33)=0. + PV(8,33)=1. +C + PV(5,14)=ATOMAS(ATNO2+2.,ZNO2+1.) + PV(6,14)=ZNO2+1. + PV(5,24)=RMASS(30) + PV(6,24)=1. + PV(8,24)=30. + PV(5,34)=0. + PV(6,34)=0. + PV(8,34)=1. +C + PV(5,15)=ATOMAS(ATNO2+1.,ZNO2+1.) + PV(6,15)=ZNO2+1. + PV(5,25)=RMASS(31) + PV(6,25)=1. + PV(8,25)=31. + PV(5,35)=0. + PV(6,35)=0. + PV(8,35)=1. +C + PV(5,16)=PV(5,2) + PV(6,16)=PV(6,2) + PV(5,26)=RMASS(32) + PV(6,26)=2. + PV(8,26)=32. + PV(5,36)=0. + PV(6,36)=0. + PV(8,36)=1. +C + PV(5,17)=ATOMAS(ATNO2+2.,ZNO2+2.) + PV(6,17)=ZNO2+2. + PV(5,27)=PV(5,22) + PV(6,27)=0. + PV(8,27)=16. + PV(5,37)=PV(5,22) + PV(6,37)=0. + PV(8,37)=16. +C + PV(5,18)=PV(5,14) + PV(6,18)=PV(6,14) + PV(5,28)=PV(5,22) + PV(6,28)=0. + PV(8,28)=16. + PV(5,38)=PV(5,23) + PV(6,38)=1. + PV(8,38)=14. +C + PV(5,19)=ATOMAS(ATNO2+2.,ZNO2 ) + PV(6,19)=ZNO2 + PV(5,29)=PV(5,23) + PV(6,29)=1. + PV(8,29)=14. + PV(5,39)=PV(5,23) + PV(6,39)=1. + PV(8,39)=14. +C + NOPT=40 + 70 QV =EK+PV(5,2)+PV(5,1) + TC = PV(6,2)+PV(6,1) + QVAL(1)=QV - PV(5,11) + TCH (1)=TC - PV(6,11) + QVAL(2)=QV - PV(5,12) - PV(5,22) + TCH (2)=TC - PV(6,12) - PV(6,22) + QVAL(3)=QV - PV(5,13) - PV(5,23) + TCH (3)=TC - PV(6,13) - PV(6,23) + QVAL(4)=QV - PV(5,14) - PV(5,24) + TCH (4)=TC - PV(6,14) - PV(6,24) + QVAL(5)=QV - PV(5,15) - PV(5,25) + TCH (5)=TC - PV(6,15) - PV(6,25) + QVAL(6)=QV - PV(5,16) - PV(5,26) + TCH (6)=TC - PV(6,16) - PV(6,26) + QVAL(7)=QV - PV(5,17) - PV(5,27) - PV(5,37) + TCH (7)=TC - PV(6,17) - PV(6,27) - PV(6,37) + QVAL(8)=QV - PV(5,18) - PV(5,28) - PV(5,38) + TCH (8)=TC - PV(6,18) - PV(6,28) - PV(6,38) + QVAL(9)=QV - PV(5,19) - PV(5,29) - PV(5,39) + TCH (9)=TC - PV(6,19) - PV(6,29) - PV(6,39) + 74 QV = 0 + IF(IREC.EQ.2) QVAL(1)=0. + IF(IPART.NE.16) GOTO 75 + CALL GRNDM(RNDM,2) + IF(RNDM(1).GT.((ATNO2-1.)/230.)**2) QVAL(1)=0. + EKA=7.9254/ATNO2 + IF(RNDM(2).LT.EK/EKA) GOTO 75 + QVAL(3)=0. + QVAL(4)=0. + QVAL(5)=0. + QVAL(6)=0. + QVAL(9)=0. + 75 DO 71 I=1,9 + IF(PV(5,10+I).LT.0.5) QVAL(I)=0. + IF(QVAL(I).LT.0. ) QVAL(I)=0. + IF(ABS(TCH(I)-0.1).GT.0.5 ) QVAL(I)=0. + QV=QV+QVAL(I) + 71 CONTINUE + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + QV1=0. + DO 72 I=1,9 + IF(QVAL(I).EQ.0.) GOTO 72 + QV1=QV1+QVAL(I)/QV + IF(RAN.LE.QV1) GOTO 73 + 72 CONTINUE +C** REACTION KINEMATICALLY NOT POSSIBLE + NOPT=0 + GO TO 9999 + 73 NOPT=NOPT+I + PV(5,3)=PV(5,10+I) + PV(6,3)=PV(6,10+I) + PV(8,3)=0. + PV(5,4)=PV(5,20+I) + PV(6,4)=PV(6,20+I) + PV(8,4)=PV(8,20+I) + PV(5,5)=PV(5,30+I) + PV(6,5)=PV(6,30+I) + PV(8,5)=PV(8,30+I) + NT=2 + RAN=EK*10. + IF(RAN.GT.0.5) RAN=0.5 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.RAN) NT=3 + IF(MOD(NOPT,10).GE.7) NT=3 +C** CALCULATE CMS ENERGY + 80 PV(4,2)=PV(5,2) + CALL ADD(1,2,MXGKPV) + PV(1,MXGKPV)=-PV(1,MXGKPV) + PV(2,MXGKPV)=-PV(2,MXGKPV) + PV(3,MXGKPV)=-PV(3,MXGKPV) +C** SET QUANTITIES FOR PHASE SPACE ROUTINE IN CMS + TECM=PV(5,MXGKPV) + NPG=NT + KGENEV=1 + DO 81 I=1,NPG + 81 AMASS(I)=PV(5,2+I) +C --- INVOKE DOUBLE PRECISION VERSION OF THE PHASE SPACE PACKAGE --- + CALL PHPNUC + DO 83 I=1,NPG + DO 82 J=1,4 + 82 PV(J,2+I)=PCM(J,I) +C** TRANSFORM INTO LAB.SYSTEM + CALL LOR(2+I,MXGKPV,2+I) + PV(7,2+I)=TOF + 83 CONTINUE +C** SET CHARGES AND PARTICLE INDEX FOR LOW MASS FRAGMENTS + IF (ABS(PV(5,3)-RMASS(14)) .LT. 0.0001) GO TO 84 + IF (ABS(PV(5,3)-RMASS(16)) .LT. 0.0001) GO TO 85 + IF (ABS(PV(5,3)-RMASS(30)) .LT. 0.0001) GO TO 86 + IF (ABS(PV(5,3)-RMASS(31)) .LT. 0.0001) GO TO 87 + IF (ABS(PV(5,3)-RMASS(32)) .LT. 0.0001) GO TO 88 + GOTO 89 + 84 PV(6,3)=1. + PV(8,3)=14. + GOTO 89 + 85 PV(6,3)=0. + PV(8,3)=16. + GOTO 89 + 86 PV(6,3)=1. + PV(8,3)=30. + GOTO 89 + 87 PV(6,3)=1. + PV(8,3)=31. + GOTO 89 + 88 PV(6,3)=2. + PV(8,3)=32. + 89 NTT=2+NT + DO 90 I=1,NTT + IPP=IFIX(PV(8,I)+0.01) + IF(IPP.EQ.0) GOTO 90 + EK=PV(4,I)-PV(5,I) + IF(I.LT.3) GOTO 92 + IF(IPP.LT.30) GOTO 92 + CALL GRNDM(RNDM,1) + EK=EK*0.5*RNDM(1) + 92 IF(EK.LT.1.E-6) EK=1.E-6 + PV(5,I)=RMASS(IPP) + PV(4,I)=EK+PV(5,I) + P=SQRT(ABS(PV(4,I)**2-PV(5,I)**2)) + PP=SQRT(PV(1,I)**2+PV(2,I)**2+PV(3,I)**2) + IF(PP.GT.1.E-6) GOTO 91 + CALL GRNDM(RNDM,2) + PHINVE=TWPI*RNDM(1) + COST=-1.+2.*RNDM(2) + IF (COST .LE. -1.) COST=-1. + IF (COST .GE. 1.) COST= 1. + RTHNVE=ACOS(COST) + PV(1,I)=SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=COS(RTHNVE) + PP=1. + 91 PV(1,I)=PV(1,I)*P/PP + PV(2,I)=PV(2,I)*P/PP + PV(3,I)=PV(3,I)*P/PP + 90 CONTINUE + IF(.NOT.NPRT(4)) GOTO 100 + WRITE(NEWBCD,1000) XEND,YEND,ZEND,IND,NOPT + 1000 FORMAT(' *NUCREC* NUCLEAR REACTION AT (X,Y,Z) ',3(G12.5,1X) + $,/,' MATERIAL ',I5,' NOPT ',I5) + DO 95 I=1,NTT + WRITE(NEWBCD,1001) I,(PV(J,I),J=1,10) + 95 CONTINUE + 1001 FORMAT(1H ,I3,1X,10(G10.3,1X)) + 100 INTCT=INTCT+1. +C** SET INTERACTION MODE ACCORDING TO GHEISHA-CONVENTION +C** N-CAPTURE + IF(PV(8,3).GT.0.) GOTO 110 + CALL SETCUR(4) + NTK=NTK+1 + IF(NT.EQ.3) CALL SETTRK(5) + GO TO 9999 + 110 CONTINUE + CALL SETCUR(4) + NTK=NTK+1 + CALL SETTRK(3) + IF(NT.EQ.3) CALL SETTRK(5) + CALL SETTRK(3) +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.16/00 05/11/93 19.18.25 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE PHASP +C +C *** NVE 29-MAR-1988 CERN GENEVA *** +C +C CALLED BY : NUCREC TWOCLU GENXPT +C ORIGIN : H.FESEFELDT (02-DEC-1986) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + COMMON/GENIN /TECM,AMASS(18),NPG,KGENEV + COMMON/GENOUT/PCM(5,18),WGT +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU +C +C + DOUBLE PRECISION WTMAX,WTMAXQ,WTFC,TWGT,ONE,TEXPXL,TEXPXU + PARAMETER (ONE=1.D0) + LOGICAL LZERO + DIMENSION EMM(18) + DIMENSION RNO(50) + DIMENSION EM(18),PD(18),EMS(18),SM(18),FFQ(18),PCM1(90) + EQUIVALENCE (NT,NPG),(AMASS(1),EM(1)),(PCM1(1),PCM(1,1)) + SAVE KNT + SAVE +C + DATA FFQ/0.,3.141592, 19.73921, 62.01255, 129.8788, 204.0131, + $ 256.3704, 268.4705, 240.9780, 189.2637, + $ 132.1308, 83.0202, 47.4210, 24.8295, + $ 12.0006, 5.3858, 2.2560, 0.8859/ + DATA KNT , TWOPI / 1 , 6.2831853073 / +C +C --- INITIALISE LOCAL ARRAYS AND THE RESULT ARRAY PCM --- + DO 10 JZERO=1,18 + PCM(1,JZERO)=0. + PCM(2,JZERO)=0. + PCM(3,JZERO)=0. + PCM(4,JZERO)=0. + PCM(5,JZERO)=0. + EMM(JZERO) =0. + PD(JZERO) =0. + EMS(JZERO) =0. + SM(JZERO) =0. + 10 CONTINUE +C + KNT = KNT + 1 + IF (.NOT.NPRT(3).AND..NOT.NPRT(4)) GOTO 100 + WRITE(NEWBCD,1200) NPG,TECM,(AMASS(JK),JK=1,NPG) + 100 CONTINUE + 150 IF (NT .LT. 2) GO TO 1001 + IF (NT .GT. 18) GO TO 1002 + NTM1=NT-1 + NTM2=NT-2 + NTNM4 = 3*NT - 4 + EMM(1)=EM(1) + TM=0.0 + DO 200 I=1,NT + EMS(I)=EM(I)**2 + TM=TM+EM(I) + 200 SM(I)=TM + WGT=1. + 210 TECMTM=TECM-TM + IF (TECMTM .LE. 0.0) GO TO 1000 + EMM(NT)=TECM + IF (KGENEV.GT.1) GO TO 400 + EMMAX=TECMTM+EM(1) + EMMIN=0.0 +C +C FOR WEIGHT CALCULATION, FORM SUM OF LOG'S OF TERMS +C INSTEAD OF PRODUCT OF TERMS. NOTE THAT THEREBY WTMAX +C AND WTMAXQ ARE CHANGED IN THEIR CONTENTS; THEY ARE +C CURRENTLY NOT USED OUTSIDE THE RANGE FROM HERE TO +C LABEL 531. WE ALSO NEED TO CHECK FOR ZERO FACTORS NOW. +C NEGATIVE VALUES CANNOT APPEAR AS GPDK ALWAYS RETURNS A +C NONNEGATIVE NUMBER. AS CODED, EVEN THE EXOTIC CASES +C NT<2 (FIRST LOOP NOT EXECUTED) AND NTM1<1 (SECOND LOOP +C NOT EXECUTED) SHOULD BE SAFE AND GIVE THE SAME RESULT +C FOR WTG IN THE END AS THE OLD CODE. +C + WTMAX=0.0 + LZERO=.TRUE. + DO 350 I=2,NT + EMMIN=EMMIN+EM(I-1) + EMMAX=EMMAX+EM(I) + WTFC=GPDK(EMMAX,EMMIN,EM(I)) + IF(WTFC.LE.0.) THEN + LZERO=.FALSE. + GOTO 351 + ENDIF + WTMAX=WTMAX+LOG(WTFC) + 350 CONTINUE + 351 WTMAXQ= EXPXU + IF(LZERO) WTMAXQ= -WTMAX + GO TO 455 + 400 WTMAXQ=LOG(ONE*TECMTM**NTM2*FFQ(NT) / TECM) + 455 CONTINUE + CALL GRNDM(RNO,NTNM4) + IF(NTM2) 900,509,460 + 460 CONTINUE + CALL FLPSOR(RNO,NTM2) + DO 508 J=2,NTM1 + 508 EMM(J)=RNO(J-1)*TECMTM+SM(J) + 509 TWGT=WTMAXQ + IR=NTM2 + LZERO=.TRUE. + DO 530 I=1,NTM1 + PD(I)=GPDK(EMM(I+1),EMM(I),EM(I+1)) + IF(PD(I).LE.0.0) THEN + LZERO=.FALSE. + ELSE + TWGT=TWGT+LOG(ONE*PD(I)) + ENDIF + 530 CONTINUE + 531 WGT=0.0 + IF(LZERO) THEN + TEXPXU=EXPXU + TEXPXL=EXPXL + WGT=EXP(MAX(MIN(TWGT,TEXPXU),TEXPXL)) + ENDIF + PCM(1,1)=0.0 + PCM(2,1)=PD(1) + PCM(3,1)=0.0 + DO 570 I=2,NT + PCM(1,I)=0.0 + PCM(2,I) = -PD(I-1) + PCM(3,I)=0.0 + IR=IR+1 + BANG=TWOPI*RNO(IR) + CB=COS(BANG) + SB=SIN(BANG) + IR=IR+1 + C=2.0*RNO(IR)-1.0 + S=SQRT(ABS(1.0-C*C)) + IF(I.EQ.NT) GO TO 1567 + ESYS=SQRT(PD(I)**2+EMM(I)**2) + BETA=PD(I)/ESYS + GAMA=ESYS/EMM(I) + DO 568 J=1,I + NDX = 5*J - 5 + AA= PCM1(NDX+1)**2 + PCM1(NDX+2)**2 + PCM1(NDX+3)**2 + PCM1(NDX+5) = SQRT(AA) + PCM1(NDX+4) = SQRT(AA+EMS(J)) + CALL ROTES2(C,S,CB,SB,PCM,J) + PSAVE = GAMA*(PCM(2,J)+BETA*PCM(4,J)) + 568 PCM(2,J)=PSAVE + GO TO 570 + 1567 DO 1568 J=1,I + AA=PCM(1,J)**2 + PCM(2,J)**2 + PCM(3,J)**2 + PCM(5,J)=SQRT(AA) + PCM(4,J)=SQRT(AA+EMS(J)) + CALL ROTES2(C,S,CB,SB,PCM,J) + 1568 CONTINUE + 570 CONTINUE + 900 CONTINUE + RETURN + 1000 DO 212 I=1,NPG + PCM(1,I)=0. + PCM(2,I)=0. + PCM(3,I)=0. + PCM(4,I)=AMASS(I) + 212 PCM(5,I)=AMASS(I) + WGT=0. + RETURN + 1001 IF(NPRT(3).OR.NPRT(4)) WRITE(NEWBCD,1101) + GO TO 1050 + 1002 WRITE(NEWBCD,1102) + 1050 WRITE(NEWBCD,1150) KNT + WRITE(NEWBCD,1200) NPG,TECM,(AMASS(JK),JK=1,NPG) + RETURN + 1100 FORMAT(1H ,'*PHASP* AVAILABLE ENERGY NEGATIVE') + 1101 FORMAT(1H ,'*PHASP* LESS THAN 2 OUTGOING PARTICLES') + 1102 FORMAT(1H ,'*PHASP* MORE THAN 18 OUTGOING PARTICLES') + 1150 FORMAT(1H ,'*PHASP* ABOVE ERROR DETECTED IN PHASP AT CALL NUMBER' + $ ,I7) + 1200 FORMAT(1H ,'*PHASP* INPUT DATA TO PHASP. NPG= ' ,I6/ + $ 2X,9H TECM= ,D15.7,18H PARTICLE MASSES=,5D15.7/(42X,5D15.7) + $ ) + END +*CMZ : 3.15/04 30/03/92 16.43.48 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE PHPNUC +C +C *** DOUBLE PRECISION VERSION OF THE PHASE SPACE ROUTINE "PHASP" +C *** THIS ROUTINE MUST BE CALLED BY THE NUCLEAR INTERACTION ROUTINE +C *** "NUCREC" (SEE ALSO COMMENTS THEREIN). THE REASON IS SIMPLY THAT +C *** ENERGY-MOMENTUM CALCULATIONS ARE NOT POSSIBLE WITHIN ONLY +C *** 6 DIGITS OF ACCURACY FOR TOTAL ENERGIES +C *** IN THE ORDER OF HUNDREDS OF GEV (URANIUM NUCLEUS), COMPARED WITH +C *** KINETIC ENERGIES IN THE ORDER OF MEV (NEUTRONS, PROTONS AND +C *** PHOTONS IN THE REACTIONS A(X,Y(GAMMA,GAMMA))A'). IN THE ORIGINAL +C *** GHEISHA8 CODE ALL THESE CALCULATIONS ARE DONE IN DOUBLE PRECISION +C *** HMF 29-AUG-1989 RWTH AACHEN +C +C CALLED BY : NUCREC +C ORIGIN : H.FESEFELDT +C + IMPLICIT DOUBLE PRECISION (A-H,O-Z) + REAL RNDM(1) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + COMMON/NUCIN /TECM,AMASS(18),NPG,KGENEV + COMMON/NUCOUT/PCM(5,18),WGT + DOUBLE PRECISION TECM,AMASS,PCM,WGT +C +C + SAVE KNT, TWOPI, FFQ + DIMENSION EMM(18) + DIMENSION RNO(50) + DIMENSION EM(18),PD(18),EMS(18),SM(18),FFQ(18),PCM1(90) + EQUIVALENCE (NT,NPG),(AMASS(1),EM(1)),(PCM1(1),PCM(1,1)) + SAVE + DATA FFQ/0.,3.141592, 19.73921, 62.01255, 129.8788, 204.0131, + 2 256.3704, 268.4705, 240.9780, 189.2637, + 3 132.1308, 83.0202, 47.4210, 24.8295, + 4 12.0006, 5.3858, 2.2560, 0.8859/ + DATA KNT , TWOPI / 1 , 6.2831853073 / +C +C --- INITIALISE LOCAL ARRAYS AND THE RESULT ARRAY PCM --- +CJOK CALL VZERO(PCM,90) + DO 80 JZERO=1,18 + DO 8080 IJK=1,5 + PCM(IJK,JZERO) = 0.D0 + 8080 CONTINUE + EMM(JZERO)=0. + PD(JZERO) =0. + EMS(JZERO)=0. + SM(JZERO) =0. + 80 CONTINUE +C + KNT = KNT + 1 + IF (.NOT.NPRT(3).AND..NOT.NPRT(4)) GOTO 100 + WRITE(NEWBCD,1200) NPG,TECM,(AMASS(JK),JK=1,NPG) + 100 CONTINUE + 150 IF (NT .LT. 2) GO TO 1001 + IF (NT .GT. 18) GO TO 1002 + NTM1=NT-1 + NTM2=NT-2 + NTP1=NT+1 + NTNM4 = 3*NT - 4 + EMM(1)=EM(1) + TM=0.0 + DO 200 I=1,NT + EMS(I)=EM(I)**2 + TM=TM+EM(I) + 200 SM(I)=TM + WGT=1. + 210 TECMTM=TECM-TM + IF (TECMTM .LE. 0.0) GO TO 1000 + EMM(NT)=TECM + IF (KGENEV.GT.1) GO TO 400 + EMMAX=TECMTM+EM(1) + EMMIN=0.0 + WTMAX=1.0 + DO 350 I=2,NT + EMMIN=EMMIN+EM(I-1) + EMMAX=EMMAX+EM(I) + 350 WTMAX=WTMAX*DPDNUC(EMMAX,EMMIN,EM(I)) + WTMAXQ=1.0/WTMAX + GO TO 455 + 400 WTMAXQ=TECMTM**NTM2*FFQ(NT) / TECM + 455 CONTINUE + DO 457 I= 1, NTNM4 + CALL GRNDM(RNDM,1) + 457 RNO(I) = DBLE(RNDM(1)) + IF(NTM2) 900,509,460 + 460 CONTINUE + CALL DLPNUC(RNO,NTM2) + DO 508 J=2,NTM1 + 508 EMM(J)=RNO(J-1)*(TECMTM)+SM(J) + 509 WGT=WTMAXQ + IR=NTM2 + DO 530 I=1,NTM1 + PD(I)=DPDNUC(EMM(I+1),EMM(I),EM(I+1)) + 530 WGT=WGT*PD(I) + PCM(1,1)=0.0 + PCM(2,1)=PD(1) + PCM(3,1)=0.0 + DO 570 I=2,NT + PCM(1,I)=0.0 + PCM(2,I) = -PD(I-1) + PCM(3,I)=0.0 + IR=IR+1 + BANG=TWOPI*RNO(IR) + CB=COS(BANG) + SB=SIN(BANG) + IR=IR+1 + C=2.0*RNO(IR)-1.0 + S=SQRT(1.0-C*C) + IF(I.EQ.NT) GO TO 1567 + ESYS=SQRT(PD(I)**2+EMM(I)**2) + BETA=PD(I)/ESYS + GAMA=ESYS/EMM(I) + DO 568 J=1,I + NDX = 5*J - 5 + AA= PCM1(NDX+1)**2 + PCM1(NDX+2)**2 + PCM1(NDX+3)**2 + PCM1(NDX+5) = SQRT(AA) + PCM1(NDX+4) = SQRT(AA+EMS(J)) + CALL DOTNUC(C,S,CB,SB,PCM,J) + PSAVE = GAMA*(PCM(2,J)+BETA*PCM(4,J)) + 568 PCM(2,J)=PSAVE + GO TO 570 + 1567 DO 1568 J=1,I + AA=PCM(1,J)**2 + PCM(2,J)**2 + PCM(3,J)**2 + PCM(5,J)=SQRT(AA) + PCM(4,J)=SQRT(AA+EMS(J)) + CALL DOTNUC(C,S,CB,SB,PCM,J) + 1568 CONTINUE + 570 CONTINUE + 900 CONTINUE + RETURN + 1000 DO 212 I=1,NPG + PCM(1,I)=0. + PCM(2,I)=0. + PCM(3,I)=0. + PCM(4,I)=AMASS(I) + 212 PCM(5,I)=AMASS(I) + WGT=0. + RETURN + 1001 IF(NPRT(3).OR.NPRT(4)) WRITE(NEWBCD,1101) + GO TO 1050 + 1002 WRITE(NEWBCD,1102) + 1050 WRITE(NEWBCD,1150) KNT + WRITE(NEWBCD,1200) NPG,TECM,(AMASS(JK),JK=1,NPG) + STOP + 1100 FORMAT(' *PHPNUC* AVAILABLE ENERGY NEGATIVE') + 1101 FORMAT(' *PHPNUC* LESS THAN 2 OUTGOING PARTICLES') + 1102 FORMAT(' *PHPNUC* MORE THAN 18 OUTGOING PARTICLES') + 1150 FORMAT(' *PHPNUC* ABOVE ERROR DETECTED IN PHASP', + $ ' AT CALL NUMBER ',I7) + 1200 FORMAT(' *PHPNUC* INPUT DATA TO PHPNUC. NPG = ',I6/ + $ ' TECM = ',E15.7,' PARTICLE MASSES = ',5E15.7/(42X,5E15.7)) + END +*CMZU: 3.16/00 05/11/93 17.20.00 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + FUNCTION PMLTPC(NP,NM,NZ,N,B,C) +C +C *** NVE 03-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (14-SEP-1987) +C +C --- BOUNDARY LIMITS FOR ARGUMENTS OF INTRINSIC FUNCTIONS --- +C --- XL DENOTES LOWER BOUND WHEREAS XU DENOTES UPPER BOUND --- + COMMON /LIMITS/ EXPXL,EXPXU + SAVE +C + RLNNPF=0. + IF(NP.LE.1) GOTO 2 + DO 1 I=2,NP + 1 RLNNPF=RLNNPF+LOG(I*1.) + 2 RLNNMF=0. + IF(NM.LE.1) GOTO 4 + DO 3 I=2,NM + 3 RLNNMF=RLNNMF+LOG(I*1.) + 4 RLNNZF=0. + IF(NZ.LE.1) GOTO 6 + DO 5 I=2,NZ + 5 RLNNZF=RLNNZF+LOG(I*1.) + 6 PMLTPC=-(NP-NM+NZ+B)**2/(2*(C*N)**2)-RLNNPF-RLNNMF-RLNNZF + IF(PMLTPC.LT.EXPXL) PMLTPC=EXPXL + PMLTPC=EXP(PMLTPC) + RETURN + END +*CMZ : 3.14/16 13/03/89 14.48.41 BY NICK VAN EIJNDHOVEN (CERN) +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE POISSO(XAV,IRAN) +C +C *** GENERATION OF POISSON DISTRIBUTION *** +C *** NVE 16-MAR-1988 CERN GENEVA *** +C + DIMENSION RNDM(1) +C ORIGIN : H.FESEFELDT (27-OCT-1983) +C + SAVE +C +C --- USE NORMAL DISTRIBUTION FOR > 9.9 --- + IF(XAV.GT.9.9) GOTO 2 +C + MM=IFIX(5.*XAV) + IRAN=0 + IF(MM.LE.0) GOTO 3 + R=EXP(-XAV) + CALL GRNDM(RNDM,1) + RAN1=RNDM(1) + IF(RAN1.LE.R) RETURN + RR=R + DO 1 I=1,MM + IRAN=IRAN+1 + IF(I.LE.5) RRR=XAV**I/NFAC(I) +C** STIRLING' S FORMULA FOR LARGE NUMBERS + IF(I.GT.5) RRR=EXP(I*LOG(XAV)-(I+0.5)*LOG(I*1.)+I-0.9189385) + RR=RR+R*RRR + IF(RAN1.LE.RR) RETURN + 1 CONTINUE + RETURN +C** NORMAL DISTRIBUTION WITH SIGMA**2 = + 2 CALL NORMAL(RAN1) + RAN1=XAV+RAN1*SQRT(XAV) + IRAN=IFIX(RAN1) + IF(IRAN.LT.0) IRAN=0 + RETURN +C** FOR VERY SMALL XAV TRY IRAN=1,2,3 + 3 P1=XAV*EXP(-XAV) + P2=XAV*P1/2. + P3=XAV*P2/3. + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IRAN=3 + IF(RAN.LT.P3) RETURN + IRAN=2 + IF(RAN.LT.P2) RETURN + IRAN=1 + IF(RAN.LT.P1) RETURN + IRAN=0 + RETURN + END +*CMZ : 3.14/16 13/03/89 14.48.39 BY NICK VAN EIJNDHOVEN (CERN) +*-- AUTHOR : +C--------------------------------------------------------------------- + FUNCTION RANRES(X) +C +C *** RESTRICTED RANDOM NUMBERS TO BE USED AS ARGUMENT IN LOG ETC... *** +C *** NVE 13-JUL-1988 CERN GENEVA *** +C +C NOTE : 0 < RANRES < 1 + DIMENSION RNDM(1) + SAVE +C + 1 CONTINUE + CALL GRNDM(RNDM,1) + RANRES=RNDM(1) + IF ((RANRES .LE. 0.) .OR. (RANRES .GE. 1.)) GO TO 1 + RETURN + END +*CMZ : 3.14/16 23/05/89 10.04.05 BY NICK VAN EIJNDHOVEN (CERN) +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE ROTES2(C,S,C2,S2,PR,I) +C +C *** NVE 16-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (27-OCT-1983) +C + DIMENSION PR(*) + SAVE +C + K1 = 5*I - 4 + K2 = K1 + 1 + SA = PR(K1) + SB = PR(K2) + A = SA*C - SB*S + PR(K2) = SA*S + SB*C + K2 = K2 + 1 + B = PR(K2) + PR(K1) = A*C2 - B*S2 + PR(K2) = A*S2 + B*C2 + RETURN + END +*CMZ : 3.14/16 13/03/89 14.48.41 BY NICK VAN EIJNDHOVEN (CERN) +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE RTMI(X,F,FCT,XLI,XRI,EPS,IEND,IER) +C +C *** NVE 16-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (27-OCT-1983) +C COPIED FROM R01UTL.SSP.S 23.4.82 +C + SAVE + EXTERNAL FCT +C +C --- PREPARE ITERATION --- + IER=0 + XL=XLI + XR=XRI + X=XL + TOL=X + F=FCT(TOL) + IF(F)1,16,1 + 1 FL=F + X=XR + TOL=X + F=FCT(TOL) + IF(F)2,16,2 + 2 FR=F + IF(SIGN(1.,FL)+SIGN(1.,FR))25,3,25 +C +C BASIC ASSUMPTION FL*FR LESS THAN 0 IS SATISFIED. +C GENERATE TOLERANCE FOR FUNCTION VALUES. + 3 I=0 + TOLF=100.*EPS +C +C +C START ITERATION LOOP + 4 I=I+1 +C +C START BISECTION LOOP + DO 13 K=1,IEND + X=.5*(XL+XR) + TOL=X + F=FCT(TOL) + IF(F)5,16,5 + 5 IF(SIGN(1.,F)+SIGN(1.,FR))7,6,7 +C +C INTERCHANGE XL AND XR IN ORDER TO GET THE SAME SIGN IN F AND FR + 6 TOL=XL + XL=XR + XR=TOL + TOL=FL + FL=FR + FR=TOL + 7 TOL=F-FL + A=F*TOL + A=A+A + IF(A-FR*(FR-FL))8,9,9 + 8 IF(I-IEND)17,17,9 + 9 XR=X + FR=F +C +C TEST ON SATISFACTORY ACCURACY IN BISECTION LOOP + TOL=EPS + A=ABS(XR) + IF(A-1.)11,11,10 + 10 TOL=TOL*A + 11 IF(ABS(XR-XL)-TOL)12,12,13 + 12 IF(ABS(FR-FL)-TOLF)14,14,13 + 13 CONTINUE +C END OF BISECTION LOOP +C +C NO CONVERGENCE AFTER IEND ITERATION STEPS FOLLOWED BY IEND +C SUCCESSIVE STEPS OF BISECTION OR STEADILY INCREASING FUNCTION +C VALUES AT RIGHT BOUNDS. ERROR RETURN. + IER=1 + 14 IF(ABS(FR)-ABS(FL))16,16,15 + 15 X=XL + F=FL + 16 RETURN +C +C COMPUTATION OF ITERATED X-VALUE BY INVERSE PARABOLIC INTERPOLATION + 17 A=FR-F + DX=(X-XL)*FL*(1.+F*(A-TOL)/(A*(FR-FL)))/TOL + XM=X + FM=F + X=XL-DX + TOL=X + F=FCT(TOL) + IF(F)18,16,18 +C +C TEST ON SATISFACTORY ACCURACY IN ITERATION LOOP + 18 TOL=EPS + A=ABS(X) + IF(A-1.)20,20,19 + 19 TOL=TOL*A + 20 IF(ABS(DX)-TOL)21,21,22 + 21 IF(ABS(F)-TOLF)16,16,22 +C +C PREPARATION OF NEXT BISECTION LOOP + 22 IF(SIGN(1.,F)+SIGN(1.,FL))24,23,24 + 23 XR=X + FR=F + GO TO 4 + 24 XL=X + FL=F + XR=XM + FR=FM + GO TO 4 +C END OF ITERATION LOOP +C +C +C ERROR RETURN IN CASE OF WRONG INPUT DATA + 25 IER=2 + RETURN + END +*CMZU: 3.16/00 05/11/93 17.20.00 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE SELFAB(SPROB) +C +C *** SELF-ABSORBTION IN HEAVY MOLECULES *** +C *** NVE 16-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (11-OCT-1987) +C + PARAMETER (MXGKGH=100) + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C + SAVE +C + SPROB=0. + EKW=PV(4,MXGKPV)-ABS(PV(5,MXGKPV)) + IF(EKW.LT.5.) RETURN + ALEKW=LOG(EKW-4.) + SPROB=0.6*ALEKW + IF(SPROB.GT.1.) SPROB=1. + RETURN + END +*CMZ : 3.14/16 13/03/89 14.48.41 BY NICK VAN EIJNDHOVEN (CERN) +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE SETCUR(NTR) +C +C *** STORAGE OF CURRENT TRACK PARAMETERS *** +C *** NVE 16-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (26-JAN-1984) +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/MAT / LMAT, + * DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSL(21), + * CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + * MATID(21),MATID1(21,24),PARMAT(21,10), + * IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + * ATNO1(21,10),ZNO1(21,10) +C + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + COMMON/ERRCOM/ IER(100) +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + DIMENSION RNDM(1) + SAVE +C + CALL LENGTX(NTR,P) + AMAS=PV(5,NTR) + AMASQ=AMAS*AMAS + NCH=PV(6,NTR) + TOF=PV(7,NTR) + IPART=IFIX(PV(8,NTR)+0.1) + IF(PV(10,NTR).NE.0.) USERW=PV(10,NTR) + PX=0. + PY=0. + PZ=0. + IF(P.LT.1.E-10) GOTO 4 + PX=PV(1,NTR)/P + PY=PV(2,NTR)/P + PZ=PV(3,NTR)/P + 4 EN=PV(4,NTR) + EK=EN-ABS(AMAS) + SINL=PZ + COSL=SQRT(ABS(1.-SINL*SINL)) + IF(ABS(COSL).LT.1.E-10) GOTO 1 + SINP=PY/COSL + COSP=PX/COSL + GOTO 2 + 1 CALL GRNDM(RNDM,1) + PHI=RNDM(1)*TWPI + SINP=SIN(PHI) + COSP=COS(PHI) + 2 IF(NPRT(3).OR.NPRT(4).OR.NPRT(5)) + *WRITE(NEWBCD,1001) XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + *USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND,LCALO,ICEL, + *SINL,COSL,SINP,COSP + RETURN + 1001 FORMAT(1H ,'*SETCUR* ','TRACK PARAMETER CHANGED: ', + $ 3F13.2,1X,2F7.0,1X,F8.3,1X,/,' ', + $ F3.0,1X,F6.0,1X,3F6.3,1X,F10.0,1X,F5.0/10X,4F8.3,1X,F8.5,1X,6I5, + $ 4F8.3) + END +*CMZU: 3.16/00 05/11/93 17.20.00 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE SETTRK(NTR) +C +C *** FILL THE STACK VIA COMMON /EVENT/ *** +C *** INSTEAD OF THE USERWORD, THE PARTICLE INDEX IS STORED *** +C *** NVE 01-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (10-NOV-1983) +C + INTEGER MXGKIN + PARAMETER (MXGKIN=100) + COMMON/GCKING/KCASE,NGKINE,GKIN(5,MXGKIN), + + TOFD(MXGKIN),IFLGK(MXGKIN) + INTEGER KCASE,NGKINE ,IFLGK,MXPHOT,NGPHOT + REAL GKIN,TOFD,XPHOT +C + PARAMETER (MXPHOT=800) + COMMON/GCKIN2/NGPHOT,XPHOT(11,MXPHOT) +C + COMMON/GCKIN3/GPOS(3,MXGKIN) + REAL GPOS +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/MAT / LMAT, + * DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSL(21), + * CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + * MATID(21),MATID1(21,24),PARMAT(21,10), + * IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + * ATNO1(21,10),ZNO1(21,10) +C + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + COMMON/ERRCOM/ IER(100) +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C + SAVE +C +C +C --- CHECK PV ARRAY BOUNDARY --- + IF(NTR .LE. MXGKPV) GOTO 10 + PRINT 1000,NTR + 1000 FORMAT(' *SETTRK* NTR = ',I3,' WOULD ADRESS OUTSIDE PV ARRAY'/ + $ ' ===> TRACK WILL NOT BE PUT ON STACK AND WILL BE LOST') + GO TO 9999 +C +C --- CHECK TOTAL NUMBER OF PRODUCED PARTICLES --- + 10 CONTINUE + NVEDUM=NTOT+1 + IF(NVEDUM .LE. MXEVEN) GOTO 20 + IF(NVEDUM .EQ. MXEVEN+1) PRINT 1001, NVEDUM,MXEVEN + 1001 FORMAT(' *SETTRK* STORAGE OF PARTICLE NO. ',I4, 'NOT ALLOWED'/ + $ ' MAXIMUM NUMBER OF GENERATED PARTICLES IS ',I4/ + $ ' ===> FROM NOW ON ALL GENERATED PARTICLES WILL BE DISCARDED') + GO TO 9999 +C +C --- STORE GENERATED PARTICLE ON THE STACK --- + 20 CONTINUE + EVE(NEXT )=XEND + EVE(NEXT+ 1)=YEND + EVE(NEXT+ 2)=ZEND + EVE(NEXT+ 3)=RCA + EVE(NEXT+ 4)=RCE + EVE(NEXT+ 5)=PV(5,NTR) + EVE(NEXT+ 6)=PV(6,NTR) + EVE(NEXT+ 7)=PV(7,NTR) + EVE(NEXT+ 8)=PV(1,NTR) + EVE(NEXT+ 9)=PV(2,NTR) + EVE(NEXT+10)=PV(3,NTR) + EVE(NEXT+11)=PV(8,NTR) + NEXT=NEXT+12 + NTOT=NTOT+1 + NEXT1=NEXT-12 + NEXT2=NEXT-1 + NTOT1=NTOT-1 + IF(NPRT(3).OR.NPRT(4).OR.NPRT(5)) + $ WRITE(NEWBCD,2000) NTOT1,(EVE(I),I=NEXT1,NEXT2) + 2000 FORMAT(' *SETTRK* TRACK ON STACK:',I5,/, + $ 12X,3F12.2,1X,2F7.0,1X, + $ F8.3,1X,F3.0,1X,F6.0,1X,3F8.3,1X,F10.0) +C + 9999 CONTINUE + RETURN + END +*CMZ : 3.14/16 28/09/90 10.10.17 BY NICK VAN EIJNDHOVEN (CERN) +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE STEEP(XX) +C +C *** NVE 16-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (22-FEB-1985) +C + XX=1. + RETURN + END +*CMZU: 3.16/00 05/11/93 17.20.00 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE STEEQ(XXH,IPV) +C +C *** CORRECTIONS FOR SINGLE PARTICLE SPECTRA (SHOWER PARTICLES) *** +C *** NVE 16-MAR-1988 CERN GENEVA +C +C ORIGIN : H.FESEFELDT (06-SEP-1985) +C + PARAMETER (MXGKGH=100) + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C +C + DIMENSION ALEM(7),VAL0(7) + DIMENSION RNDM(1) + SAVE +C** DATA EM/ 4.0 , 10. , 15. , 20. , 30. , 100. , 1000./ + DATA ALEM/ 1.40, 2.30 , 2.70 , 3.00 , 3.40 , 4.60 , 7.00 / + DATA VAL0/ 0.00, 0.40 , 0.48 , 0.51 , 0.54 , 0.60 , 0.65 / +C + XXH=1. +C + IF ((IPART .NE. 7) .AND. (IPART .NE. 9)) GO TO 9999 + IF (ABS(IPA(IPV)) .NE. 8) GO TO 9999 + CALL GRNDM(RNDM,1) + IF (RNDM(1) .GT. LOG(ATNO2)) GO TO 9999 + EKW=PV(4,MXGKPV)-ABS(PV(5,MXGKPV)) + ALEKW=LOG(EKW) + IF (ALEKW .LE. ALEM(1)) GO TO 9999 +C +C --- GET ENERGY BIN --- + DO 1 I=2,7 + IF (ALEKW .LT. ALEM(I)) GO TO 2 + 1 CONTINUE + XXH=VAL0(7) + GO TO 3 +C +C *** USE LINEAR INTERPOLATION OR EXTRAPOLATION BY Y=RC*X+B *** + 2 CONTINUE + I1=I-1 + I2=I + DXNVE=ALEM(I2)-ALEM(I1) + DYNVE=VAL0(I2)-VAL0(I1) + RCNVE=DYNVE/DXNVE + BNVE=VAL0(I1)-RCNVE*ALEM(I1) + XXH=RCNVE*ALEKW+BNVE +C + 3 CONTINUE + XXH=1.-XXH +C + 9999 CONTINUE + RETURN + END +*CMZU: 3.16/00 05/11/93 17.20.00 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE STPAIR +C +C *** STRANGE PARTICLE PAIR PRODUCTION *** +C *** NVE 14-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT 16-DEC-1987 +C +C THE SAME FORMULA FOR VS AVAILABLE ENERGY +C AND VS AVAILABLE ENERGY +C FOR ALL REACTIONS. +C CHOOSE CHARGE COMBINATIONS K+ K- , K+ K0B, K0 K0B OR K0 K- +C K+ Y0, K0 Y+, K0 Y- +C FOR ANTIBARYON INDUCED REACTIONS HALF OF THE CROSS SECTIONS +C KB YB PAIRS ARE PRODUCED +C CHARGE IS NOT CONSERVED , NO EXPERIMENTAL DATA AVAILABLE FOR +C EXCLUSIVE REACTIONS, THEREFORE SOME AVERAGE BEHAVIOUR ASSUMED. +C THE RATIO L/SIGMA IS TAKEN AS 3:1 (FROM EXPERIMENTAL LOW ENERGY) +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/MAT / LMAT, + * DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSL(21), + * CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + * MATID(21),MATID1(21,24),PARMAT(21,10), + * IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + * ATNO1(21,10),ZNO1(21,10) +C + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + COMMON/ERRCOM/ IER(100) +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C +C + REAL KKB,KY + DIMENSION KKB(9),KY(12),IPAKKB(2,9),IPAKY(2,12),IPAKYB(2,12) + DIMENSION AVKKB(12),AVKY(12),AVNNB(12),AVRS(12) + DIMENSION RNDM(1) + SAVE + DATA KKB/0.2500,0.3750,0.5000,0.5625,0.6250,0.6875,0.7500, + * 0.8750,1.000/ + DATA KY /0.200,0.300,0.400,0.550,0.625,0.700,0.800,0.850, + * 0.900,0.950,0.975,1.000/ + DATA IPAKKB/10,13,10,11,10,12,11,11,11,12,12,11,12,12, + * 11,13,12,13/ + DATA IPAKY /18,10,18,11,18,12,20,10,20,11,20,12,21,10, + * 21,11,21,12,22,10,22,11,22,12/ + DATA IPAKYB/19,13,19,12,19,11,23,13,23,12,23,11,24,13, + * 24,12,24,11,25,13,25,12,25,11/ + DATA AVRS/3.,4.,5.,6.,7.,8.,9.,10.,20.,30.,40.,50./ + DATA AVKKB/0.0015,0.005,0.012,0.0285,0.0525,0.075,0.0975, + * 0.123,0.28,0.398,0.495,0.573/ + DATA AVKY /0.005,0.03,0.064,0.095,0.115,0.13,0.145,0.155, + * 0.20,0.205,0.210,0.212/ + DATA AVNNB/0.00001,0.0001,0.0006,0.0025,0.01,0.02,0.04, + $ 0.05,0.12,0.15,0.18,0.20/ +C + IF(IPA(3).LE.0) GO TO 9999 + IER(50)=IER(50)+1 + IPA1=ABS(IPA(1)) + IPA2=ABS(IPA(2)) +C --- PROTECTION AGAINST ANNIHILATION PROCESSES --- + IF ((IPA1 .EQ. 0) .OR. (IPA2 .EQ. 0)) GO TO 9999 + EAB=RS-ABS(RMASS(IPA1))-ABS(RMASS(IPA2)) + IF(EAB.LT.1.) GO TO 9999 +C** +C** CHOOSE RANDOM REPLACEMENT OF PRODUCED KAONS (16.12.87) + DO 111 I=1,60 + IF(IPA(I).EQ.0) GOTO 112 + 111 CONTINUE + 112 I=I-3 + CALL GRNDM(RNDM,1) + I3=3+IFIX(RNDM(1)*I) + 114 CALL GRNDM(RNDM,1) + I4=3+IFIX(RNDM(1)*I) + IF(I.EQ.1) I4=4 + IF(I3.EQ.I4) GOTO 114 +C +C *** CHOOSE RANDOM REPLACEMENT OF PRODUCED KAONS (16.12.87) *** +C --- GET RS BIN --- + DO 1 I=2,12 + IF (RS .LE. AVRS(I)) GO TO 2 + 1 CONTINUE + I1=11 + I2=12 + GO TO 3 +C + 2 CONTINUE + I1=I-1 + I2=I +C +C *** USE LINEAR INTERPOLATION OR EXTRAPOLATION BY Y=RC*X+B *** + 3 CONTINUE + DXNVE=AVRS(I2)-AVRS(I1) + DYNVE=LOG(AVKKB(I2))-LOG(AVKKB(I1)) + RCNVE=DYNVE/DXNVE + BNVE=LOG(AVKKB(I1))-RCNVE*AVRS(I1) + AVK=RCNVE*RS+BNVE + DYNVE=LOG(AVKY(I2))-LOG(AVKY(I1)) + RCNVE=DYNVE/DXNVE + BNVE=LOG(AVKY(I1))-RCNVE*AVRS(I1) + AVY=RCNVE*RS+BNVE + DYNVE=LOG(AVNNB(I2))-LOG(AVNNB(I1)) + RCNVE=DYNVE/DXNVE + BNVE =LOG(AVNNB(I1))-RCNVE*AVRS(I1) + AVN =RCNVE*RS+BNVE +C + AVK=EXP(AVK) + AVY=EXP(AVY) + AVN=EXP(AVN) + IF(AVK+AVY+AVN.LE.0.) GOTO 9999 + IF(IPA1.LT.14) AVY=AVY/2. + IF(IPA2.LT.14) AVY=0. + AVY=AVY+AVK+AVN + AVK= AVK+AVN + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IF(RAN.LT.AVN) GOTO 5 + IF(RAN.LT.AVK) GOTO 10 + IF(RAN.LT.AVY) GOTO 20 + GO TO 9999 + 5 IF((EAB-2.).LT.0.) GO TO 9999 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GO TO 6 + IPA(I3)=14 + IPA(I4)=15 + GOTO 30 + 6 IPA(I3)=16 + IPA(I4)=17 + GOTO 30 + 10 IF((EAB-1.).LT.0.) GO TO 9999 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + DO 11 I=1,9 + IF(RAN.LT.KKB(I)) GOTO 12 + 11 CONTINUE + GO TO 9999 + 12 IPA(I3)=IPAKKB(1,I) + IPA(I4)=IPAKKB(2,I) + GOTO 30 + 20 IF((EAB-1.6).LT.0.) GO TO 9999 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + DO 21 I=1,12 + IF(RAN.LT.KY(I)) GOTO 22 + 21 CONTINUE + GO TO 9999 + 22 IF(IPA(1).LT.14) GOTO 23 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) GOTO 23 + IPA1=ABS(IPA(1)) + IPA(1)=IPAKY(1,I) + IF(IPA1.EQ.15) GOTO 25 + IF(IPA1.EQ.17) GOTO 25 + IF(IPA1.EQ.19) GOTO 25 + IF(IPA1.GT.22) GOTO 25 + GOTO 24 + 25 IPA(1)=IPAKYB(1,I) + IPA(I3)=IPAKYB(2,I) + GOTO 30 + 23 IPA(2)=IPAKY(1,I) + 24 IPA(I3)=IPAKY(2,I) +C** CHECK THE AVAILABLE ENERGY + 30 EAB=RS + IJ=0 + DO 31 I=1,60 + IF(IPA(I).EQ.0) GOTO 31 + IPA1=ABS(IPA(I)) + EAB=EAB-ABS(RMASS(IPA1)) + IJ=IJ+1 + IF(EAB.LT.0.) GOTO 35 + 31 CONTINUE + IF (NPRT(4)) WRITE(NEWBCD,1003) (IPA(J),J=1,IJ) + GO TO 9999 + 35 I=I-1 + L=I-1 + IF(L.LE.0) GO TO 9999 + DO 36 J=I,60 + 36 IPA(J)=0 + IF (NPRT(4)) WRITE(NEWBCD,1002) (IPA(J),J=1,L) +C + 1002 FORMAT(' *STPAIR* KKB/KY PAIR PRODUCTION NOT ENOUGH ENERGY', + $/,' REDUCE NUMBER OF PARTICLES ',2X,20I3) + 1003 FORMAT(' *STPAIR* KKB/KY PAIR PRODUCTION ENERGY SUFFICIENT', + $/ ' NUMBER OF PARTICLES ',2X,20I3) +C + 9999 CONTINUE +C + RETURN + END +*CMZ : 3.16/00 05/11/93 17.50.33 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE SVERL2(M,X) + DIMENSION U(2) + SAVE +C + CALL GRNDM(U,2) + X=0.62666*LOG((1.+U(1))/(1.-U(1))) + IF(U(2).LT.0.5) X=-X + X=M+X*SQRT(M*1.) + RETURN + END +*CMZ : 3.16/00 05/11/93 17.50.33 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE SVGAM7(A,X) + DIMENSION U(2) + REAL LA + SAVE +C + GA=A-1. + LA=SQRT(2.*A-1.) + EP=1.570796327+ATAN(GA/LA) + RO=1.570796327-EP + 1 CALL GRNDM(U,2) + X=GA+LA*TAN(EP*U(1)+RO) +CDH + IF(X.LE.0.) GOTO 1 +C + Y=LOG(1.+((X-GA)/LA)**2) +GA*LOG(X/GA)-X+GA + IF(LOG(U(2)).GT.Y) GOTO 1 + RETURN + END +*CMZU: 3.16/00 05/11/93 17.20.00 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE TDELAY(X) +C +C *** TIME DELAY FOR NUCLEAR REACTIONS *** +C *** NVE 16-MAR-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (01-FEB-1984) +C + PARAMETER (MXGKGH=100) + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + SAVE +C + X=0. + IF(ATNO2.LT.1.5) RETURN + IF(ATNO2.GT.230.) RETURN + IF(EK.GT.0.2) RETURN + X=500.*EXP(-EK/0.04) + RETURN + END +*CMZ : 3.16/00 05/11/93 19.14.52 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE TWOB(IPPP,NFL,AVERN) +C +C *** GENERATION OF MOMENTA FOR ELAST. AND QUASI ELAST. 2 BODY REACT. *** +C *** NVE 04-MAY-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT 15-SEP-1987 +C +C THE SIMPLE FORMULA DS/D|T| = S0* EXP(-B*|T|) IS USED. +C THE B VALUES ARE PARAMETRIZATIONS FROM EXPERIMENTAL DATA . +C NOT AVAILABLE VALUES ARE TAKEN FROM THOSE OF SIMILAR REACTIONS +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/MAT / LMAT, + * DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSL(21), + * CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + * MATID(21),MATID1(21,24),PARMAT(21,10), + * IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + * ATNO1(21,10),ZNO1(21,10) +C + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + COMMON/ERRCOM/ IER(100) +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + DIMENSION RNDM(3) +C + SAVE +C DATA CB/3./ + DATA CB/0.01/ +C +C --- STATEMENT FUNCTIONS --- + BPP(X)=4.225+1.795*LOG(X) +C +C** +C** FOR DIFFRACTION SCATTERING ON HEAVY NUCLEI USE BETTER ROUTINE +C** "COSCAT" +C + TARMAS=RMASS(14) + IF (NFL .EQ. 2) TARMAS=RMASS(16) + ENP(8)=RMASS(IPPP)**2+TARMAS**2+2.0*TARMAS*ENP(6) + ENP(9)=SQRT(ENP(8)) + EK=ENP(5) + EN=ENP(6) + P=ENP(7) + S=ENP(8) + RS=ENP(9) + CFA=0.025*((ATNO2-1.)/120.)*EXP(-(ATNO2-1.)/120.) + IF(ATNO2.LT.1.5) GOTO 500 + IPA1=ABS(IPA(1)) + IPA2=ABS(IPA(2)) + RMC=RMASS(IPA1) + RMD=RMASS(IPA2) + RCHC=RCHARG(IPA1) + RCHD=RCHARG(IPA2) + IF(ABS(RMC-AMAS).GT.0.001) GOTO 500 + RMNVE=RMASS(14) + IF (NFL .EQ. 2) RMNVE=RMASS(16) + IF(ABS(RMD-RMNVE).GT.0.001) GOTO 500 + IF(ABS(RCHC-NCH).GT.0.5) GOTO 500 + IF(NFL.EQ.1.AND.RCHD.LT.0.5) GOTO 500 + IF(NFL.EQ.2.AND.ABS(RCHD).GT.0.5) GOTO 500 + IF(ENP(1).GT.0.0001.OR.ENP(3).GT.0.0001) GOTO 500 + CALL COSCAT + GO TO 9999 +C** +C** SET EFFECTIVE 4-MOMENTUM OF INITIAL PARTICLE +C** + 500 PV( 1,MXGKPV-1)=P*PX + PV( 2,MXGKPV-1)=P*PY + PV( 3,MXGKPV-1)=P*PZ + PV( 4,MXGKPV-1)=EN + PV( 5,MXGKPV-1)=AMAS + PV( 6,MXGKPV-1)=NCH + PV( 7,MXGKPV-1)=TOF + PV( 8,MXGKPV-1)=IPART + PV( 9,MXGKPV-1)=0. + PV(10,MXGKPV-1)=USERW + IER(47)=IER(47)+1 + IF(NPRT(4)) + $ WRITE(NEWBCD,4001) (PV(J,MXGKPV-1),J=1,10),IPA(1),IPA(2) + DO 2 J=1,6 + 2 PV(J,1)=PV(J,MXGKPV-1) + PV(7,1)=1. + IF(PV(5,1).LT.0.) PV(7,1)=-1. + PV(5,1)=ABS(PV(5,1)) + NT=1 +C** +C** TWO-BODY SCATTERING POSSIBLE?? IF NOT, CONTINUE WITH ORIGINAL +C** PARTICLE, BUT SPEND THE NUCLEAR EVAPORATION ENERGY +C** + IF(P.LT.0.1) GOTO 200 + IF(RS.LT.0.01) GOTO 200 +C** +C** CALCULATE SLOPE B FOR ELASTIC SCATTERING ON PROTON/NEUTRON +C** + B=BPP(P) + IF(B.LT.CB) B=CB + IF(ABS(IPA(2)).GT.13) GOTO 9 + IPA(2)=14 + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.0.5) IPA(2)=16 +C** +C** SET MASSES AND MOMENTA FOR FINAL STATE PARTICLES +C** + 9 RMC=RMASS(ABS(IPA(1))) + RMD=RMASS(ABS(IPA(2))) + PV(6,1)=RCHARG(ABS(IPA(1))) + PV(6,2)=RCHARG(ABS(IPA(2))) + PF=(S+RMD*RMD-RMC*RMC)**2 - 4*S*RMD*RMD + IF(NPRT(4)) WRITE(NEWBCD,4002) RMC,RMD,PV(6,1),PV(6,2),RS,S,PF + IF(PF.LT.0.001) GO TO 9999 + PF=SQRT(PF)/(2.*RS) +C** +C** SET BEAM AND TARGET IN CMS +C** + PV(1,3)=0. + PV(2,3)=0. + PV(3,3)=P + PV(5,3)=ABS(AMAS) + PV(4,3)=SQRT(P*P+AMAS*AMAS) + PV(1,4)=0. + PV(2,4)=0. + PV(3,4)=0. + RMNVE=RMASS(14) + IF (NFL .EQ. 2) RMNVE=RMASS(16) + PV(4,4)=RMNVE + PV(5,4)=RMNVE +C** +C** TRANSFORM INTO CMS. +C** + CALL ADD(3,4,10) + CALL LOR(3,10,3) + CALL LOR(4,10,4) +C** +C** SET FINAL STATE MASSES AND ENERGIES IN CMS +C** + PV(5,1)=ABS(RMC) + PV(5,2)=ABS(RMD) + PV(7,1)=1. + PV(7,2)=1. + IF(RMC.LT.0.) PV(7,1)=-1. + IF(RMD.LT.0.) PV(7,2)=-1. + PV(4,1)=SQRT(PF*PF+PV(5,1)*PV(5,1)) + PV(4,2)=SQRT(PF*PF+PV(5,2)*PV(5,2)) +C** +C** SET |T| AND |TMIN| +C** + CALL GRNDM(RNDM,2) + CALL LENGTX(3,PIN) + BTRANG=B*4.*PIN*PF +C** +C** SIMPLY A PROTECTION AGAINST EXPONENT OVERFLOW 1.E20 IS BIG ENOUGH +C** + EXINDT=-1. + IF(BTRANG.LT.46) EXINDT=EXINDT+EXP(-BTRANG) + TDN=LOG(1.+RNDM(1)*EXINDT)/BTRANG +C** +C** CACULATE (SIN(TETA/2.)**2 AND COS(TETA), SET AZIMUTH ANGLE PHI +C** + CTET=1.+2.*TDN + IF(ABS(CTET).GT.1.) CTET=SIGN(1.,CTET) + STET=SQRT((1.-CTET)*(1.+CTET)) + PHI=RNDM(2)*TWPI +C** +C** CALCULATE FINAL STATE MOMENTA IN CMS +C** + PV(1,1)=PF*STET*SIN(PHI) + PV(2,1)=PF*STET*COS(PHI) + PV(3,1)=PF*CTET + PV(1,2)=-PV(1,1) + PV(2,2)=-PV(2,1) + PV(3,2)=-PV(3,1) +C** +C** TRANSFORM INTO LAB +C** + DO 11 I=1,2 + CALL LOR(I,4,I) + CALL DEFS1(I,MXGKPV-1,I) + IF(ATNO2.LT.1.5) GOTO 11 + CALL LENGTX(I,PP) + IF(PP.LT.0.001) GOTO 11 + EKIN=PV(4,I)-ABS(PV(5,I)) + CALL NORMAL(RAN) + EKIN=EKIN-CFA*(1.+0.5*RAN) + IF(EKIN.LT.0.0001) EKIN=0.0001 + PP1=SQRT(EKIN*(EKIN+2.*ABS(PV(5,I)))) + PV(4,I)=EKIN+ABS(PV(5,I)) + PV(1,I)=PV(1,I)*PP1/PP + PV(2,I)=PV(2,I)*PP1/PP + PV(3,I)=PV(3,I)*PP1/PP + 11 CONTINUE + NT=2 +C** +C** ADD BLACK TRACK PARTICLES . +C** HERE THE PROCEDURE IS SOMEWHAT DIFFERENT AS IN 'TWOCLU' AND 'GENXPT' +C** THE REASON IS, THAT WE HAVE TO SIMULATE ALSO THE NUCLEAR REACTIONS +C** AT LOW ENERGIES LIKE A(H,P)B, A(H,P P)B, A(H,N)B E.T.C. +C** + 200 IF(ENP(1).LE.0.0001.AND.ENP(3).LE.0.0001) GOTO 40 + SPALL=0. + TEX=ENP(1) + IF(TEX.LT.0.0001) GOTO 445 + BLACK=TEX/0.02 + CALL POISSO(BLACK,NBL) + IF(NBL.GT.ATNO2) NBL=ATNO2 + IF(ENP(1).GT.0.0001.AND.NBL.LE.0) NBL=1 + IF (NPRT(4)) WRITE(NEWBCD,3003) NBL,TEX + IF(NT+NBL.GT.MXGKPV-2) NBL=MXGKPV-2-NT + IF(NBL.LE.0) GOTO 445 + EKIN=TEX/NBL + EKIN2=0. + CALL STEEP(XX) + DO 441 I=1,NBL + IF(NT.EQ.MXGKPV-2) GOTO 441 + IF(EKIN2.GT.TEX) GOTO 443 + CALL GRNDM(RNDM,1) + RAN1=RNDM(1) + CALL NORMAL(RAN2) + EKIN1=-EKIN*LOG(RAN1)-CFA*(1.+0.5*RAN2) + IF(EKIN1.LT.0.0) EKIN1=-0.010*LOG(RAN1) + EKIN1=EKIN1*XX + EKIN2=EKIN2+EKIN1 + IF(EKIN2.GT.TEX) EKIN1=TEX-(EKIN2-EKIN1) + IF(EKIN1.LT.0.) EKIN1=0.0001 + IPA1=16 + PNRAT=1.-ZNO2/ATNO2 + CALL GRNDM(RNDM,3) + IF(RNDM(1).GT.PNRAT) IPA1=14 + NT=NT+1 + SPALL=SPALL+1. + COST=-1.+RNDM(2)*2. + SINT=SQRT(ABS(1.-COST*COST)) + PHI=TWPI*RNDM(3) + IPA(NT)=-IPA1 + PV(5,NT)=ABS(RMASS(IPA1)) + PV(6,NT)=RCHARG(IPA1) + PV(7,NT)=2. + PV(4,NT)=EKIN1+PV(5,NT) + PP=SQRT(ABS(PV(4,NT)**2-PV(5,NT)**2)) + PV(1,NT)=PP*SINT*SIN(PHI) + PV(2,NT)=PP*SINT*COS(PHI) + PV(3,NT)=PP*COST + 441 CONTINUE + 443 IF(ATNO2.LT.10.) GOTO 445 + IF(EK.GT.2.0) GOTO 445 + II=NT+1 + KK=0 + EKA=EK + IF(EKA.GT.1.) EKA=EKA*EKA + IF(EKA.LT.0.1) EKA=0.1 + IKA=3.6*EXP((ZNO2**2/ATNO2-35.56)/6.45)/EKA + IF(IKA.LE.0) GO TO 445 + DO 444 I=1,NT + II=II-1 + IF(IPA(II).NE.-14) GOTO 444 + IPA(II)=-16 + IPA1 = 16 + PV(5,II)=ABS(RMASS(IPA1)) + PV(6,II)=RCHARG(IPA1) + KK=KK+1 + IF(KK.GT.IKA) GOTO 445 + 444 CONTINUE + 445 TEX=ENP(3) + IF(TEX.LT.0.0001) GOTO 40 + NBL=IFIX(2.*LOG(ATNO2)) + IF(NT+NBL.GT.MXGKPV-2) NBL=MXGKPV-2-NT + IF(NBL.LE.0) GOTO 40 + EKIN=TEX/NBL + EKIN2=0. + CALL STEEP(XX) + IF (NPRT(4)) WRITE(NEWBCD,3004) NBL,TEX + DO 442 I=1,NBL + IF(NT.EQ.MXGKPV-2) GOTO 442 + IF(EKIN2.GT.TEX) GOTO 40 + CALL GRNDM(RNDM,1) + RAN1=RNDM(1) + CALL NORMAL(RAN2) + EKIN1=-EKIN*LOG(RAN1)-CFA*(1.+0.5*RAN2) + IF(EKIN1.LT.0.0) EKIN1=-0.010*LOG(RAN1) + EKIN1=EKIN1*XX + EKIN2=EKIN2+EKIN1 + IF(EKIN2.GT.TEX) EKIN1=TEX-(EKIN2-EKIN1) + IF(EKIN1.LT.0.) EKIN1=0.0001 + CALL GRNDM(RNDM,3) + COST=-1.+RNDM(1)*2. + SINT=SQRT(ABS(1.-COST*COST)) + PHI=TWPI*RNDM(2) + RAN=RNDM(3) + IPA(NT+1)=-30 + IF(RAN.GT.0.60) IPA(NT+1)=-31 + IF(RAN.GT.0.90) IPA(NT+1)=-32 + INVE=ABS(IPA(NT+1)) + PV(5,NT+1)=RMASS(INVE) + SPALL=SPALL+PV(5,NT+1)*1.066 + IF(SPALL.GT.ATNO2) GOTO 40 + NT=NT+1 + PV(6,NT)=RCHARG(INVE) + PV(7,NT)=2. + PV(4,NT)=PV(5,NT)+EKIN1 + PP=SQRT(ABS(PV(4,NT)**2-PV(5,NT)**2)) + PV(1,NT)=PP*SINT*SIN(PHI) + PV(2,NT)=PP*SINT*COS(PHI) + PV(3,NT)=PP*COST + 442 CONTINUE +C** +C** STORE ON EVENT COMMON +C** + 40 EKIN=PV(4,MXGKPV)-ABS(PV(5,MXGKPV)) + EKIN1=PV(4,MXGKPV-1)-ABS(PV(5,MXGKPV-1)) + EKIN2=0. + CALL TDELAY(TOF1) + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + TOF=TOF-TOF1*LOG(RAN) + DO 1 I=1,NT + EKIN2=EKIN2+PV(4,I)-ABS(PV(5,I)) + IF(PV(7,I).LT.0.) PV(5,I)=-PV(5,I) + PV(7,I)=TOF + PV(8,I)=ABS(IPA(I)) + PV(9,I)=0. + 1 PV(10,I)=0. + IF (NPRT(4)) WRITE(NEWBCD,1003) NT,EKIN,EKIN1,EKIN2 + INTCT=INTCT+1. + CALL SETCUR(NT) + NTK=NTK+1 + IF(NT.EQ.1) GO TO 9999 + DO 50 II=2,NT + I=II-1 + IF(NTOT.LT.NSIZE/12) GOTO 43 + RETURN + 43 CALL SETTRK(I) + 50 CONTINUE +C + 1002 FORMAT(' *TWOB* ',5F10.4,10X,5F10.4/1H ,7X,5F10.4,10X,5F10.4/ + $ ' LAB SYSTEM FINAL STATE FOUR VECTORS') + 1003 FORMAT(' *TWOB* COMPARISON',2X,I5,2X,3F10.4) + 4001 FORMAT(' *TWOB* ',10F10.4,2X,2I3) + 4002 FORMAT(' *TWOB* ',7F10.4) + 3003 FORMAT(' *TWOB* ',I3,' BLACK TRACK PARTICLES PRODUCED', + $ ' WITH TOTAL KINETIC ENERGY OF ',F8.3,' GEV') + 3004 FORMAT(' *TWOB* ',I5,' HEAVY FRAGMENTS PRODUCED', + $ ' WITH TOTAL ENERGY OF',F8.4,' GEV') +C + 9999 CONTINUE +C + RETURN + END +*CMZ : 3.16/00 05/11/93 19.46.20 BY FEDERICO CARMINATI +*-- AUTHOR : +C--------------------------------------------------------------------- + SUBROUTINE TWOCLU(IPPP,NFL,AVERN) +C +C *** GENERATION OF X- AND PT- VALUES FOR ALL PRODUCED PARTICLES *** +C *** NVE 01-AUG-1988 CERN GENEVA *** +C +C ORIGIN : H.FESEFELDT (11-OCT-1987) +C +C A SIMPLE TWO CLUSTER MODEL IS USED +C THIS SHOULD BE SUFFICIENT FOR LOW ENERGY INTERACTIONS +C + PARAMETER (MXGKGH=100) + COMMON/CONSTS/ PI,TWPI,PIBTW,MP,MPI,MMU,MEL,MKCH,MK0,SMP,SMPI, + $ SMU,CT,CTKCH,CTK0, + $ ML0,MSP,MS0,MSM,MX0,MXM,CTL0,CTSP,CTSM,CTX0,CTXM, + $ RMASS(35),RCHARG(35) +C + REAL MP,MPI,MMU,MEL,MKCH,MK0, + * ML0,MSP,MS0,MSM,MX0,MXM +C + PARAMETER (MXGKCU=MXGKGH) + COMMON/CURPAR/WEIGHT(10),DDELTN,IFILE,IRUN,NEVT,NEVENT,SHFLAG, + * ITHST,ITTOT,ITLST,IFRND,TOFCUT,CMOM(5),CENG(5), + * RS,S,ENP(10),NP,NM,NN,NR,NO,NZ,IPA(MXGKCU), + * ATNO2,ZNO2 +C + COMMON/RESULT/XEND,YEND,ZEND,RCA,RCE,AMAS,NCH,TOF,PX,PY,PZ, + * USERW,INTCT,P,EN,EK,AMASQ,DELTN,ITK,NTK,IPART,IND, + * LCALO,ICEL,SINL,COSL,SINP,COSP, + * XOLD,YOLD,ZOLD,POLD,PXOLD,PYOLD,PZOLD, + * XSCAT,YSCAT,ZSCAT,PSCAT,PXSCAT,PYSCAT,PZSCAT + REAL NCH,INTCT +C + COMMON/MAT / LMAT, + * DEN(21),RADLTH(21),ATNO(21),ZNO(21),ABSL(21), + * CDEN(21),MDEN(21),X0DEN(21),X1DEN(21),RION(21), + * MATID(21),MATID1(21,24),PARMAT(21,10), + * IFRAT,IFRAC(21),FRAC1(21,10),DEN1(21,10), + * ATNO1(21,10),ZNO1(21,10) +C + PARAMETER (MXEVEN=12*MXGKGH) + COMMON/EVENT / NSIZE,NCUR,NEXT,NTOT,EVE(MXEVEN) +C + COMMON/PRNTFL/INBCD,NEWBCD,INBIN,NEWBIN,NPEVT,NEVTP,LPRT,NPRT(10) + LOGICAL LPRT,NPRT +C + COMMON/ERRCOM/ IER(100) +C + PARAMETER (MXGKPV=MXGKGH) + COMMON /VECUTY/ PV(10,MXGKPV) +C +C + COMMON/GENIN /TECM,AMASS(18),NPG,KGENEV + COMMON/GENOUT/PCM(5,18),WGT +C + REAL NUCSUP + DIMENSION SIDE(MXGKCU),C1PAR(5),G1PAR(5),NUCSUP(5) + DIMENSION RNDM(3) + SAVE + DATA C1PAR/0.6,0.6,0.35,0.15,0.10/ + DATA G1PAR/2.6,2.6,1.8,1.30,1.20/ + DATA NUCSUP/1.0,0.8,0.6,0.5,0.4/ +C DATA CB/3.0/ + DATA CB/0.01/ +C +C + BPP(X)=4.000+1.600*LOG(X) +C + MX =MXGKPV-20 + MX1=MX+1 + MX2=MX+2 + MX3=MX+3 + MX4=MX+4 + MX5=MX+5 + MX6=MX+6 + MX7=MX+7 + MX8=MX+8 + EK=ENP(5) + EN=ENP(6) + P=ENP(7) + S=ENP(8) + RS=ENP(9) + CFA=0.025*((ATNO2-1.)/120.)*EXP(-(ATNO2-1.)/120.) + IF(P.LT.0.001) GOTO 60 + NT=0 +C** +C** CHECK MASS-INDICES FOR ALL PARTICLES +C** + DO 1 I=1,100 + IF(IPA(I).EQ.0) GOTO 1 + NT=NT+1 + IPA(NT)=IPA(I) + 1 CONTINUE +* CALL VZERO(IPA(NT+1),MXGKCU-NT) +CDH + DO III = NT+1, MXGKCU + IPA(III) = 0 + ENDDO +C** +C** SET THE EFFECTICE 4-MOMENTUM-VECTOR FOR INTERACTION +C** + PV( 1,MXGKPV-1)=P*PX + PV( 2,MXGKPV-1)=P*PY + PV( 3,MXGKPV-1)=P*PZ + PV( 4,MXGKPV-1)=EN + PV( 5,MXGKPV-1)=AMAS + PV( 6,MXGKPV-1)=NCH + PV( 7,MXGKPV-1)=TOF + PV( 8,MXGKPV-1)=IPART + PV( 9,MXGKPV-1)=0. + PV(10,MXGKPV-1)=USERW + IER(48)=IER(48)+1 +C** +C** DISTRIBUTE PARTICLES IN FORWARD AND BACKWARD HEMISPHERE OF CMS +C** OF THE HADRON NUCLEON INTERACTION +C** + SIDE(1)= 1. + SIDE(2)=-1. + TARG=0. + IFOR=1 + IBACK=1 + DO 3 I=1,NT + IF (I .LE. 2) GO TO 78 + SIDE(I)=1. + CALL GRNDM(RNDM,1) + IF (RNDM(1) .LT. 0.5) SIDE(I)=-1. + IF (SIDE(I) .LT. 0.) GO TO 76 +C +C --- PARTICLE IN FORWARD HEMISPHERE --- + 77 CONTINUE + IFOR=IFOR+1 + IF (IFOR .LE. 18) GO TO 78 +C +C --- CHANGE IT TO BACKWARD --- + SIDE(I)=-1. + IFOR=IFOR-1 + IBACK=IBACK+1 + GO TO 78 +C +C --- PARTICLE IN BACKWARD HEMISPHERE --- + 76 CONTINUE + IBACK=IBACK+1 + IF (IBACK .LE. 18) GO TO 78 +C +C --- CHANGE IT TO FORWARD --- + SIDE(I)=1. + IBACK=IBACK-1 + IFOR=IFOR+1 +C** +C** SUPPRESSION OF CHARGED PIONS FOR VARIOUS REASONS +C** + 78 IF(IPART.EQ.15.OR.IPART.GE.17) GOTO 3 + IF(ABS(IPA(I)).GE.10) GOTO 3 + IF(ABS(IPA(I)).EQ. 8) GOTO 3 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.(10.-P)/6.) GOTO 3 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.ATNO2/300.) GOTO 3 + IPA(I)=14 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.ZNO2/ATNO2) IPA(I)=16 + TARG=TARG+1. + 3 CONTINUE + TB=2.*IBACK + CALL GRNDM(RNDM,1) + IF(RS.LT.(2.0+RNDM(1))) TB=(2.*IBACK+NT)/2. +C** +C** NUCLEONS + SOME PIONS FROM INTRANUCLEAR CASCADE +C** + AFC=0.312+0.200*LOG(LOG(S)) + XTARG=AFC*(ATNO2**0.33-1.0)*TB + IF(XTARG.LE.0.) XTARG=0.01 + CALL POISSO(XTARG,NTARG) + NT2=NT+NTARG + IF(NT2.LE.MXGKPV-30) GOTO 2 + NT2=MXGKPV-30 + NTARG=NT2-NT + 2 CONTINUE + IF(NPRT(4)) + *WRITE(NEWBCD,3001) NTARG,NT + NT1=NT+1 + IF(NTARG.EQ.0) GOTO 51 + IPX=IFIX(P/3.)+1 + IF(IPX.GT.5) IPX=5 + DO 4 I=NT1,NT2 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + IF(RAN.LT.NUCSUP(IPX)) GOTO 52 + CALL GRNDM(RNDM,1) + IPA(I)=-(7+IFIX(RNDM(1)*3.0)) + GOTO 4 + 52 IPA(I)=-16 + PNRAT=1.-ZNO2/ATNO2 + CALL GRNDM(RNDM,1) + IF(RNDM(1).GT.PNRAT) IPA(I)=-14 + TARG=TARG+1. + 4 SIDE(I)=-2. + NT=NT2 +C** +C** CHOOSE MASSES AND CHARGES FOR ALL PARTICLES +C** + 51 DO 5 I=1,NT + IPA1=ABS(IPA(I)) + PV(5,I)=RMASS(IPA1) + PV(6,I)=RCHARG(IPA1) + PV(7,I)=1. + IF(PV(5,I).LT.0.) PV(7,I)=-1. + PV(5,I)=ABS(PV(5,I)) + 5 CONTINUE +C** +C** MARK LEADING STRANGE PARTICLES +C** + LEAD=0 + IF(IPART.LT.10.OR.IPART.EQ.14.OR.IPART.EQ.16) GOTO 6 + IPA1=ABS(IPA(1)) + IF(IPA1.LT.10.OR.IPA1.EQ.14.OR.IPA1.EQ.16) GOTO 531 + LEAD=IPA1 + GOTO 6 + 531 IPA1=ABS(IPA(2)) + IF(IPA1.LT.10.OR.IPA1.EQ.14.OR.IPA1.EQ.16) GOTO 6 + LEAD=IPA1 +C** +C** CHECK AVAILABLE KINETIC ENERGY , CHANGE HEMISPHERE FOR PARTICLES +C** UNTIL IT FITS +C** + 6 IF(NT.LE.1) GOTO 60 + TAVAI=0. + DO 7 I=1,NT + IF(SIDE(I).LT.-1.5) GOTO 7 + TAVAI=TAVAI+ABS(PV(5,I)) + 7 CONTINUE +CJOK MODIFIED ACCORDING TO D.HECK + IF(TAVAI.LT.RS-0.00001) GOTO 12 + IF(NPRT(4)) + $ WRITE(NEWBCD,3002) (IPA(I),I=1,20),(SIDE(I),I=1,20),TAVAI,RS + 3002 FORMAT(' *TWOCLU* CHECK AVAILABLE ENERGIES'/ + $ 1H ,20I5/1H ,20F5.0/1H ,'TAVAI,RS ',2F10.3) + DO 10 I=1,NT + II=NT-I+1 + IF(SIDE(II).LT.-1.5) GOTO 10 + IF(II.EQ.NT) GOTO 11 + NT1=II+1 + NT2=NT + DO 8 J=NT1,NT2 + IPA(J-1)=IPA(J) + SIDE(J-1)=SIDE(J) + DO 8 K=1,10 + 8 PV(K,J-1)=PV(K,J) + GOTO 11 + 10 CONTINUE + 11 SIDE(NT)=0. + IPA(NT)=0 + NT=NT-1 + GOTO 6 + 12 IF(NT.LE.1) GOTO 60 + B=BPP(P) + IF(B.LT.CB) B=CB +C** +C** CHOOSE MASSES FOR THE 3 CLUSTER: 1. FORWARD CLUSTER +C** 2. BACKWARD MESON CLUSTER 3. BACKWARD NUCLEON CLUSTER +C** + RMC0=0. + RMD0=0. + RME0=0. + NTC=0 + NTD=0 + NTE=0 + DO 31 I=1,NT + IF(SIDE(I).GT.0.) RMC0=RMC0+ABS(PV(5,I)) + IF(SIDE(I).GT.0.) NTC =NTC +1 + IF(SIDE(I).LT.0..AND.SIDE(I).GT.-1.5) RMD0=RMD0+ABS(PV(5,I)) + IF( SIDE(I).LT.-1.5) RME0=RME0+ABS(PV(5,I)) + IF(SIDE(I).LT.0..AND.SIDE(I).GT.-1.5) NTD =NTD +1 + IF( SIDE(I).LT.-1.5) NTE =NTE +1 + 31 CONTINUE + 32 CALL GRNDM(RNDM,1) + RAN=RNDM(1) + RMC=RMC0 + IF(NTC.LE.1) GOTO 33 + NTC1=NTC + IF(NTC1.GT.5) NTC1=5 + RMC=-LOG(1.-RAN) + GPAR=G1PAR(NTC1) + CPAR=C1PAR(NTC1) + DUMNVE=GPAR + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + RMC=RMC0+RMC**CPAR/DUMNVE + 33 RMD=RMD0 + IF(NTD.LE.1) GOTO 34 + NTD1=NTD + IF(NTD1.GT.5) NTD1=5 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + RMD=-LOG(1.-RAN) + GPAR=G1PAR(NTD1) + CPAR=C1PAR(NTD1) + DUMNVE=GPAR + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + RMD=RMD0+RMD**CPAR/DUMNVE + 34 IF(RMC+RMD.LE.RS) GOTO 35 + IF (RMC.LE.RMC0.AND.RMD.LE.RMD0) THEN + HNRMDC = 0.999*RS/(RMC+RMD) + RMD = RMD*HNRMDC + RMC = RMC*HNRMDC + ELSE + RMC=0.1*RMC0+0.9*RMC + RMD=0.1*RMD0+0.9*RMD + ENDIF + GOTO 34 + 35 CONTINUE + IF(NTE.LE.0) GOTO 38 + RME=RME0 + IF(NTE.EQ.1) GOTO 38 + NTE1=NTE + IF(NTE1.GT.5) NTE1=5 + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + RME=-LOG(1.-RAN) + GPAR=G1PAR(NTE1) + CPAR=C1PAR(NTE1) + DUMNVE=GPAR + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + RME=RME0+RME**CPAR/DUMNVE +C** +C** SET BEAM , TARGET OF FIRST INTERACTION IN CMS +C** + 38 PV( 1,MX1) =0. + PV( 2,MX1) =0. + PV( 3,MX1) =P + PV( 5,MX1) =ABS(AMAS) + PV( 4,MX1) =SQRT(P*P+AMAS*AMAS) + PV( 1,MX2) =0. + PV( 2,MX2) =0. + PV( 3,MX2) =0. + PV( 4,MX2) =MP + PV( 5,MX2) =MP + +C** TRANSFORM INTO CMS. + + CALL ADD(MX1,MX2,MX) + CALL LOR(MX1,MX,MX1) + CALL LOR(MX2,MX,MX2) + PF=(S+RMD*RMD-RMC*RMC)**2 - 4*S*RMD*RMD + IF(PF.LT.0.0001) PF=0.0001 + DUMNVE=2.0*RS + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + PF=SQRT(PF)/DUMNVE + IF(NPRT(4)) WRITE(6,2002) PF,RMC,RMD,RS +C** +C** SET FINAL STATE MASSES AND ENERGIES IN CMS +C** + PV(5,MX3) =RMC + PV(5,MX4) =RMD + PV(4,MX3) =SQRT(PF*PF+RMC*RMC) + PV(4,MX4) =SQRT(PF*PF+RMD*RMD) +C** +C** SET |T| AND |TMIN| +C** + T=-1.0E10 + CALL GRNDM(RNDM,1) + IF (B .NE. 0.0) T=LOG(1.-RNDM(1))/B + CALL LENGTX(MX1,PIN) + TACMIN=(PV(4,MX1) -PV(4,MX3))**2 -(PIN-PF)**2 +C** +C** CACULATE (SIN(TETA/2.)**2 AND COS(TETA), SET AZIMUTH ANGLE PHI +C** + DUMNVE=4.0*PIN*PF + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + CTET=-(T-TACMIN)/DUMNVE + CTET=1.0-2.0*CTET + IF (CTET .GT. 1.0) CTET=1.0 + IF (CTET .LT. -1.0) CTET=-1.0 + DUMNVE=1.0-CTET*CTET + IF (DUMNVE .LT. 0.0) DUMNVE=0.0 + STET=SQRT(DUMNVE) + CALL GRNDM(RNDM,1) + PHI=RNDM(1)*TWPI +C** +C** CALCULATE FINAL STATE MOMENTA IN CMS +C** + PV(1,MX3) =PF*STET*SIN(PHI) + PV(2,MX3) =PF*STET*COS(PHI) + PV(3,MX3) =PF*CTET + PV(1,MX4) =-PV(1,MX3) + PV(2,MX4) =-PV(2,MX3) + PV(3,MX4) =-PV(3,MX3) +C** +C** SIMULATE BACKWARD NUCLEON CLUSTER IN LAB. SYSTEM AND TRANSFORM IN +C** CMS. +C** + IF(NTE.EQ.0) GOTO 28 + GA=1.2 + EKIT1=0.04 + EKIT2=0.6 + IF(EK.GT.5.) GOTO 666 + EKIT1=EKIT1*EK**2/25. + EKIT2=EKIT2*EK**2/25. + 666 A=(1.-GA)/(EKIT2**(1.-GA)-EKIT1**(1.-GA)) + DO 29 I=1,NT + IF(SIDE(I).GT.-1.5) GOTO 29 + CALL GRNDM(RNDM,3) + RAN=RNDM(1) + EKIT=(RAN*(1.-GA)/A+EKIT1**(1.-GA))**(1./(1.-GA)) + PV(4,I)=EKIT+PV(5,I) + DUMNVE=ABS(PV(4,I)**2-PV(5,I)**2) + PP=SQRT(DUMNVE) + RAN=RNDM(2) + COST=LOG(2.23*RAN+0.383)/0.96 + IF (COST .LT. -1.0) COST=-1.0 + IF (COST .GT. 1.0) COST=1.0 + DUMNVE=1.0-COST*COST + IF (DUMNVE .LT. 0.0) DUMNVE=0.0 + SINT=SQRT(DUMNVE) + PHI=TWPI*RNDM(3) + PV(1,I)=PP*SINT*SIN(PHI) + PV(2,I)=PP*SINT*COS(PHI) + PV(3,I)=PP*COST + CALL LOR(I,MX,I) + 29 CONTINUE +C** +C** FRAGMENTATION OF FORWARD CLUSTER AND BACKWARD MESON CLUSTER +C** + 28 PV(1,1)=PV(1,MX3) + PV(2,1)=PV(2,MX3) + PV(3,1)=PV(3,MX3) + PV(4,1)=PV(4,MX3) + PV(1,2)=PV(1,MX4) + PV(2,2)=PV(2,MX4) + PV(3,2)=PV(3,MX4) + PV(4,2)=PV(4,MX4) + DO 17 I=MX5,MX6 + DO 16 J=1,3 + 16 PV(J,I)=-PV(J,I-2) + DO 17 J=4,5 + 17 PV(J,I)= PV(J,I-2) + KGENEV=1 + IF(NTC.LE.1) GOTO 26 + TECM=PV(5,MX3) + NPG=0 + DO 18 I=1,NT + IF(SIDE(I).LT.0.) GOTO 18 + IF(NPG.EQ.18) THEN + SIDE(I)=-SIDE(I) + GOTO 18 + ENDIF + NPG=NPG+1 + AMASS(NPG)=ABS(PV(5,I)) + 18 CONTINUE + IF(NPRT(4)) WRITE(NEWBCD,2004) TECM,NPG,(AMASS(I),I=1,NPG) + CALL PHASP + NPG=0 + DO 19 I=1,NT + IF(SIDE(I).LT.0.) GOTO 19 + NPG=NPG+1 + PV(1,I)=PCM(1,NPG) + PV(2,I)=PCM(2,NPG) + PV(3,I)=PCM(3,NPG) + PV(4,I)=PCM(4,NPG) + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + CALL LOR(I,MX5,I) + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) + 19 CONTINUE + 26 IF(NTD.LE.1) GOTO 27 + TECM=PV(5,MX4) + NPG=0 + DO 20 I=1,NT + IF(SIDE(I).GT.0..OR.SIDE(I).LT.-1.5) GOTO 20 + IF(NPG.EQ.18) THEN + SIDE(I)=-2. + PV(4,I)=ABS(PV(5,I)) + DO 24 J=1,3 + PV(J,I)=0. + 24 CONTINUE + GOTO 20 + ENDIF + NPG=NPG+1 + AMASS(NPG)=ABS(PV(5,I)) + 20 CONTINUE + IF(NPRT(4)) WRITE(NEWBCD,2004) TECM,NPG,(AMASS(I),I=1,NPG) + CALL PHASP + NPG=0 + DO 21 I=1,NT + IF(SIDE(I).GT.0..OR.SIDE(I).LT.-1.5) GOTO 21 + NPG=NPG+1 + PV(1,I)=PCM(1,NPG) + PV(2,I)=PCM(2,NPG) + PV(3,I)=PCM(3,NPG) + PV(4,I)=PCM(4,NPG) + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + CALL LOR(I,MX6,I) + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) + 21 CONTINUE +C** +C** LORENTZ TRANSFORMATION IN LAB SYSTEM +C** + 27 TARG=0. + DO 36 I=1,NT + IF(PV(5,I).GT.0.5) TARG=TARG+1. + CALL LOR(I,MX2,I) + 36 CONTINUE + IF(TARG.LT.0.5) TARG=1. +C** +C** SOMETIMES THE LEADING STRANGE PARTICLES ARE LOST , SET THEM BACK +C** + IF(LEAD.EQ.0) GOTO 6085 + DO 6081 I=1,NT + IF(ABS(IPA(I)).EQ.LEAD) GOTO 6085 + 6081 CONTINUE + I=1 + IF(LEAD.GE.14.AND.ABS(IPA(2)).GE.14) I=2 + IF(LEAD.LT.14.AND.ABS(IPA(2)).LT.14) I=2 + IPA(I)=LEAD + EKIN=PV(4,I)-ABS(PV(5,I)) + PV(5,I)=RMASS(LEAD) + PV(7,I)=1. + IF(PV(5,I).LT.0.) PV(7,I)=-1. + PV(5,I)=ABS(PV(5,I)) + PV(6,I)=RCHARG(LEAD) + PV(4,I)=PV(5,I)+EKIN + CALL LENGTX(I,PP) + DUMNVE=ABS(PV(4,I)**2-PV(5,I)**2) + PP1=SQRT(DUMNVE) +C + IF (PP .GE. 1.0E-6) GO TO 8000 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP1*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP1*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP1*COS(RTHNVE) + GO TO 8001 + 8000 CONTINUE + PV(1,I)=PV(1,I)*PP1/PP + PV(2,I)=PV(2,I)*PP1/PP + PV(3,I)=PV(3,I)*PP1/PP + 8001 CONTINUE +C +C** FOR VARIOUS REASONS, THE ENERGY BALANCE IS NOT SUFFICIENT, +C** CHECK THAT, ENERGY BALANCE, ANGLE OF FINAL SYSTEM E.T.C. + 6085 KGENEV=1 + PV(1,MX4) =0. + PV(2,MX4) =0. + PV(3,MX4) =P + PV(4,MX4) =SQRT(P*P+AMAS*AMAS) + PV(5,MX4) =ABS(AMAS) + EKIN0=PV(4,MX4) -PV(5,MX4) + PV(1,MX5) =0. + PV(2,MX5) =0. + PV(3,MX5) =0. + PV(4,MX5) =MP*TARG + PV(5,MX5) =PV(4,MX5) + EKIN=PV(4,MX4) +PV(4,MX5) + I=MX4 + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + I=MX5 + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,5) + CALL ADD(MX4,MX5,MX6) + CALL LOR(MX4,MX6,MX4) + CALL LOR(MX5,MX6,MX5) + TECM=PV(4,MX4) +PV(4,MX5) + NPG=NT + PV(1,MX8) =0. + PV(2,MX8) =0. + PV(3,MX8) =0. + PV(4,MX8) =0. + PV(5,MX8) =0. + EKIN1=0. + DO 598 I=1,NPG + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) + CALL ADD(MX8,I,MX8) + EKIN1=EKIN1+PV(4,I)-PV(5,I) + EKIN=EKIN-PV(5,I) + IF(I.GT.18) GOTO 598 + AMASS(I)=PV(5,I) + 598 CONTINUE + IF(NPG.GT.18) GOTO 597 + CALL PHASP + EKIN=0. + DO 599 I=1,NPG + PV(1,MX7)=PCM(1,I) + PV(2,MX7)=PCM(2,I) + PV(3,MX7)=PCM(3,I) + PV(4,MX7)=PCM(4,I) + PV(5,MX7)=AMASS(I) + CALL LOR(MX7,MX5,MX7) + 599 EKIN=EKIN+PV(4,MX7)-PV(5,MX7) + CALL ANG(MX8,MX4,COST,TETA) + IF(NPRT(4)) WRITE(NEWBCD,2003) TETA,EKIN0,EKIN1,EKIN +C** +C** MAKE SHURE, THAT KINETIC ENERGIES ARE CORRECT +C** THE 3. CLUSTER IS NOT PRODUCED WITHIN PROPER KINEMATICS!!! +C** EKIN= KINETIC ENERGY THEORETICALLY +C** EKIN1= KINETIC ENERGY SIMULATED +C** + 597 IF(EKIN1.EQ.0.) GOTO 600 + PV(1,MX7) =0. + PV(2,MX7) =0. + PV(3,MX7) =0. + PV(4,MX7) =0. + PV(5,MX7) =0. + WGT=EKIN/EKIN1 + EKIN1=0. + DO 602 I=1,NT + EKIN=PV(4,I)-PV(5,I) + EKIN=EKIN*WGT + PV(4,I)=EKIN+PV(5,I) + DUMNVE=ABS(PV(4,I)**2-PV(5,I)**2) + PP=SQRT(DUMNVE) + CALL LENGTX(I,PP1) +C + IF (PP1 .GE. 1.0E-6) GO TO 8002 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP*COS(RTHNVE) + GO TO 8003 + 8002 CONTINUE + PV(1,I)=PV(1,I)*PP/PP1 + PV(2,I)=PV(2,I)*PP/PP1 + PV(3,I)=PV(3,I)*PP/PP1 + 8003 CONTINUE +C + EKIN1=EKIN1+EKIN + CALL ADD(MX7,I,MX7) + 602 CONTINUE + CALL ANG(MX7,MX4,COST,TETA) + IF(NPRT(4)) WRITE(NEWBCD,2003) TETA,EKIN0,EKIN1 +C** +C** ROTATE IN DIRECTION OF Z-AXIS, SEE COMMENTS IN 'GENXPT' +C** + 600 PV(1,MX7)=0. + PV(2,MX7)=0. + PV(3,MX7)=0. + PV(4,MX7)=0. + PV(5,MX7)=0. + DO 596 I=1,NT + CALL ADD(MX7,I,MX7) + 596 CONTINUE +* CALL RANNOR(RAN1,RAN2) + CALL GRNDM(RNDM,2) + RY=RNDM(1) + RZ=RNDM(2) + RX=6.283185*RZ + A1=SQRT(-2.*LOG(RY)) + RAN1=A1*SIN(RX) + RAN2=A1*COS(RX) + PV(1,MX7)=PV(1,MX7)+RAN1*0.020*TARG + PV(2,MX7)=PV(2,MX7)+RAN2*0.020*TARG + CALL DEFS(MX4,MX7,MX8) + PV(1,MX7)=0. + PV(2,MX7)=0. + PV(3,MX7)=0. + PV(4,MX7)=0. + PV(5,MX7)=0. + DO 595 I=1,NT + CALL TRAC(I,MX8,I) + CALL ADD(MX7,I,MX7) + 595 CONTINUE + CALL ANG(MX7,MX4,COST,TETA) + IF(NPRT(4)) WRITE(NEWBCD,2003) TETA +C** +C** ROTATE IN DIRECTION OF PRIMARY PARTICLE +C** + DEKIN=0. + NPIONS=0 + EK1=0. + DO 25 I=1,NT + CALL DEFS1(I,MXGKPV-1,I) + IF(NPRT(4)) WRITE(NEWBCD,2001) I,(PV(J,I),J=1,10),IPA(I),SIDE(I) + IF(ATNO2.LT.1.5) GOTO 25 + CALL LENGTX(I,PP) + EKIN=PV(4,I)-ABS(PV(5,I)) + CALL NORMAL(RAN) + EKIN=EKIN-CFA*(1.+0.5*RAN) + IF (EKIN .LT. 1.0E-6) EKIN=1.0E-6 + CALL STEEQ(XXH,I) + DEKIN=DEKIN+EKIN*(1.-XXH) + EKIN=EKIN*XXH + IF(ABS(IPA(I)).GE.7.AND.ABS(IPA(I)).LE.9) NPIONS=NPIONS+1 + IF(ABS(IPA(I)).GE.7.AND.ABS(IPA(I)).LE.9) EK1=EK1+EKIN + PP1=SQRT(EKIN*(EKIN+2.*ABS(PV(5,I)))) + PV(4,I)=EKIN+ABS(PV(5,I)) +C + IF (PP .GE. 1.0E-6) GO TO 8004 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP1*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP1*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP1*COS(RTHNVE) + GO TO 8005 + 8004 CONTINUE + PV(1,I)=PV(1,I)*PP1/PP + PV(2,I)=PV(2,I)*PP1/PP + PV(3,I)=PV(3,I)*PP1/PP + 8005 CONTINUE +C + 25 CONTINUE + IF(EK1.EQ.0.) GOTO 23 + IF(NPIONS.LE.0) GOTO 23 + DEKIN=1.+DEKIN/EK1 + DO 22 I=1,NT + IF(ABS(IPA(I)).LT.7.OR.ABS(IPA(I)).GT.9) GOTO 22 + CALL LENGTX(I,PP) + EKIN=PV(4,I)-ABS(PV(5,I)) + EKIN=EKIN*DEKIN + IF (EKIN .LT. 1.0E-6) EKIN=1.0E-6 + PP1=SQRT(EKIN*(EKIN+2.*ABS(PV(5,I)))) + PV(4,I)=EKIN+ABS(PV(5,I)) +C + IF (PP .GE. 1.0E-6) GO TO 8006 + CALL GRNDM(RNDM,2) + RTHNVE=PI*RNDM(1) + PHINVE=TWPI*RNDM(2) + PV(1,I)=PP1*SIN(RTHNVE)*COS(PHINVE) + PV(2,I)=PP1*SIN(RTHNVE)*SIN(PHINVE) + PV(3,I)=PP1*COS(RTHNVE) + GO TO 8007 + 8006 CONTINUE + PV(1,I)=PV(1,I)*PP1/PP + PV(2,I)=PV(2,I)*PP1/PP + PV(3,I)=PV(3,I)*PP1/PP + 8007 CONTINUE +C + 22 CONTINUE + 23 IF(ATNO2.LT.1.5) GOTO 40 +C** +C** ADD BLACK TRACK PARTICLES +C** + CALL SELFAB(SPROB) + TEX=ENP(1) + SPALL=TARG + IF(TEX.LT.0.001) GOTO 445 + BLACK=(1.5+1.25*TARG)*ENP(1)/(ENP(1)+ENP(3)) + CALL POISSO(BLACK,NBL) + IF(NPRT(4)) + *WRITE(NEWBCD,3003) NBL,TEX + IF(IFIX(TARG)+NBL.GT.ATNO2) NBL=ATNO2-TARG + IF(NT+NBL.GT.MXGKPV-2) NBL=MXGKPV-2-NT + IF(NBL.LE.0) GOTO 445 + EKIN=TEX/NBL + EKIN2=0. + CALL STEEP(XX) + DO 441 I=1,NBL + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SPROB) GOTO 441 + IF(NT.EQ.MXGKPV-2) GOTO 441 + IF(EKIN2.GT.TEX) GOTO 443 + CALL GRNDM(RNDM,1) + RAN1=RNDM(1) + CALL NORMAL(RAN2) + EKIN1=-EKIN*LOG(RAN1)-CFA*(1.+0.5*RAN2) + IF(EKIN1.LT.0.0) EKIN1=-0.010*LOG(RAN1) + EKIN1=EKIN1*XX + EKIN2=EKIN2+EKIN1 + IF(EKIN2.GT.TEX) EKIN1=TEX-(EKIN2-EKIN1) + IF (EKIN1 .LT. 0.0) EKIN1=1.0E-6 + IPA1=16 + PNRAT=1.-ZNO2/ATNO2 + CALL GRNDM(RNDM,3) + IF(RNDM(1).GT.PNRAT) IPA1=14 + NT=NT+1 + SPALL=SPALL+1. + COST=-1.0+RNDM(2)*2.0 + DUMNVE=1.0-COST*COST + IF (DUMNVE .LT. 0.0) DUMNVE=0.0 + SINT=SQRT(DUMNVE) + PHI=TWPI*RNDM(3) + IPA(NT)=-IPA1 + SIDE(NT)=-4. + PV(5,NT)=ABS(RMASS(IPA1)) + PV(6,NT)=RCHARG(IPA1) + PV(7,NT)=1. + PV(4,NT)=EKIN1+PV(5,NT) + DUMNVE=ABS(PV(4,NT)**2-PV(5,NT)**2) + PP=SQRT(DUMNVE) + PV(1,NT)=PP*SINT*SIN(PHI) + PV(2,NT)=PP*SINT*COS(PHI) + PV(3,NT)=PP*COST + 441 CONTINUE + 443 IF(ATNO2.LT.10.) GOTO 445 + IF(EK.GT.2.0) GOTO 445 + II=NT+1 + KK=0 + EKA=EK + IF(EKA.GT.1.) EKA=EKA*EKA + IF(EKA.LT.0.1) EKA=0.1 + IKA=3.6*EXP((ZNO2**2/ATNO2-35.56)/6.45)/EKA + IF(IKA.LE.0) GO TO 445 + DO 444 I=1,NT + II=II-1 + IF(IPA(II).NE.-14) GOTO 444 + IPA(II)=-16 + IPA1 = 16 + PV(5,II)=ABS(RMASS(IPA1)) + PV(6,II)=RCHARG(IPA1) + KK=KK+1 + IF(KK.GT.IKA) GOTO 445 + 444 CONTINUE + 445 TEX=ENP(3) + IF(TEX.LT.0.001) GOTO 40 + BLACK=(1.5+1.25*TARG)*ENP(3)/(ENP(1)+ENP(3)) + CALL POISSO(BLACK,NBL) + IF(NT+NBL.GT.MXGKPV-2) NBL=MXGKPV-2-NT + IF(NBL.LE.0) GOTO 40 + EKIN=TEX/NBL + EKIN2=0. + CALL STEEP(XX) + IF(NPRT(4)) + *WRITE(NEWBCD,3004) NBL,TEX + DO 442 I=1,NBL + CALL GRNDM(RNDM,1) + IF(RNDM(1).LT.SPROB) GOTO 442 + IF(NT.EQ.MXGKPV-2) GOTO 442 + IF(EKIN2.GT.TEX) GOTO 40 + CALL GRNDM(RNDM,1) + RAN1=RNDM(1) + CALL NORMAL(RAN2) + EKIN1=-EKIN*LOG(RAN1)-CFA*(1.+0.5*RAN2) + IF(EKIN1.LT.0.0) EKIN1=-0.005*LOG(RAN1) + EKIN1=EKIN1*XX + EKIN2=EKIN2+EKIN1 + IF(EKIN2.GT.TEX) EKIN1=TEX-(EKIN2-EKIN1) + IF (EKIN1 .LT. 0.0) EKIN1=1.0E-6 + CALL GRNDM(RNDM,3) + COST=-1.0+RNDM(1)*2.0 + DUMNVE=1.0-COST*COST + IF (DUMNVE .LT. 0.0) DUMNVE=0.0 + SINT=SQRT(DUMNVE) + PHI=TWPI*RNDM(2) + RAN=RNDM(3) + IPA(NT+1)=-30 + IF(RAN.GT.0.60) IPA(NT+1)=-31 + IF(RAN.GT.0.90) IPA(NT+1)=-32 + SIDE(NT+1)=-4. + PV(5,NT+1)=(ABS(IPA(NT+1))-28)*MP + SPALL=SPALL+PV(5,NT+1)*1.066 + IF(SPALL.GT.ATNO2) GOTO 40 + NT=NT+1 + PV(6,NT)=1. + IF(IPA(NT).EQ.-32) PV(6,NT)=2. + PV(7,NT)=1. + PV(4,NT)=PV(5,NT)+EKIN1 + DUMNVE=ABS(PV(4,NT)**2-PV(5,NT)**2) + PP=SQRT(DUMNVE) + PV(1,NT)=PP*SINT*SIN(PHI) + PV(2,NT)=PP*SINT*COS(PHI) + PV(3,NT)=PP*COST + 442 CONTINUE +C** +C** STORE ON EVENT COMMON +C** + 40 CALL GRNDM(RNDM,1) + IF(RS.GT.(4.+RNDM(1)*1.)) GOTO 42 + DO 41 I=1,NT + CALL LENGTX(I,ETB) + IF(ETB.LT.P) GOTO 41 + ETF=P + PV(4,I)=SQRT(PV(5,I)**2+ETF**2) + DUMNVE=ETB + IF (DUMNVE .EQ. 0.0) DUMNVE=1.0E-10 + ETF=ETF/DUMNVE + PV(1,I)=PV(1,I)*ETF + PV(2,I)=PV(2,I)*ETF + PV(3,I)=PV(3,I)*ETF + 41 CONTINUE + 42 EKIN=PV(4,MXGKPV)-ABS(PV(5,MXGKPV)) + EKIN1=PV(4,MXGKPV-1)-ABS(PV(5,MXGKPV-1)) + EKIN2=0. + CALL TDELAY(TOF1) + CALL GRNDM(RNDM,1) + RAN=RNDM(1) + TOF=TOF-TOF1*LOG(RAN) + DO 44 I=1,NT + EKIN2=EKIN2+PV(4,I)-ABS(PV(5,I)) + IF(PV(7,I).LT.0.) PV(5,I)=-PV(5,I) + PV(7,I)=TOF + PV(8,I)=ABS(IPA(I)) + PV(9,I)=0. + 44 PV(10,I)=0. + IF(NPRT(4)) WRITE(NEWBCD,2006) NT,EKIN,ENP(1),ENP(3),EKIN1,EKIN2 + INTCT=INTCT+1. + CALL SETCUR(NT) + NTK=NTK+1 + IF(NT.EQ.1) GOTO 300 + DO 50 II=2,NT + I=II-1 + IF(NTOT.LT.NSIZE/12) GOTO 43 + GO TO 9999 + 43 CALL SETTRK(I) + 50 CONTINUE + 300 CONTINUE + GO TO 9999 +C** +C** IT IS NOT POSSIBLE TO PRODUCE A PROPER TWO CLUSTER FINAL STATE. +C** CONTINUE WITH QUASI ELASTIC SCATTERING +C** + 60 IF(NPRT(4)) WRITE(NEWBCD,2005) + DO 61 I=3,MXGKCU + 61 IPA(I)=0 + IPA(1)=IPART + IPA(2)=14 + IF(NFL.EQ.2) IPA(2)=16 + CALL TWOB(IPPP,NFL,AVERN) + GO TO 9999 +C + 2000 FORMAT(' *TWOCLU* CMS PARAMETERS OF FINAL STATE PARTICLES', + $ ' AFTER ',I3,' TRIALS') + 2001 FORMAT(' *TWOCLU* TRACK',2X,I3,2X,10F8.2,2X,I3,2X,F3.0) + 2002 FORMAT(' *TWOCLU* MOMENTUM ',F8.3,' MASSES ',2F8.4,' RS ',F8.4) + 2003 FORMAT(' *TWOCLU* TETA,EKIN0,EKIN1,EKIN ',4F10.4) + 2004 FORMAT(' *TWOCLU* TECM,NPB,MASSES: ',F10.4,1X,I3,1X,8F10.4/ + $ 1H ,26X,15X,8F10.4) + 2005 FORMAT(' *TWOCLU* NUMBER OF FINAL STATE PARTICLES', + $ ' LESS THAN 2 ==> CONTINUE WITH 2-BODY SCATTERING') + 2006 FORMAT(' *TWOCLU* COMP.',1X,I5,1X,5F7.2) + 3001 FORMAT(' *TWOCLU* NUCLEAR EXCITATION ',I5,' PARTICLES PRODUCED', + $ ' IN ADDITION TO',I5,' NORMAL PARTICLES') + 3003 FORMAT(' *TWOCLU* ',I3,' BLACK TRACK PARTICLES PRODUCED', + $ ' WITH TOTAL KINETIC ENERGY OF ',F8.3,' GEV') + 3004 FORMAT(' *TWOCLU* ',I5,' HEAVY FRAGMENTS WITH TOTAL ENERGY OF ', + $ F8.4,' GEV') +C + 9999 CONTINUE + RETURN + END Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/initial.h =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/initial.h (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/initial.h (revision 1444) @@ -0,0 +1,351 @@ +/* ------------------------------------------------------------------ */ +/** @file initial.h + @short Indentification of the system and including some basic include file. + + @author Konrad Bernloehr + @date 1991 to 2000 + @date $Date: 2002-07-25 17:53:46 $ + @version $Revision: 1.1 $ + + This file identifies a range of supported operating systems + and processor types. As a result, some preprocessor definitions + are made. A basic set of system include files (which may vary + from one system to another) are included. + In addition, compatibility between different systems is improved, + for example between K&R compiler systems and ANSI C compilers + of various flavours. + +@verbatim + Identification of the host operating system (not CPU): + + Supported identifiers are + OS_MSDOS + OS_VAXVMS + OS_UNIX + + variant identifiers like + OS_ULTRIX, OS_LYNX, OS_LINUX, OS_DECUNIX, OS_AIX, OS_HPUX + Note: ULTRIX may be on VAX or MIPS, LINUX on Intel or Alpha, + OS_LYNX on 68K or PowerPC. + OS_OS9 + + You might first reset all identifiers here. + + Then set one or more identifiers according to the system. + + Identification of the CPU architecture: + + Supported CPU identifiers are + CPU_I86 + CPU_VAX + CPU_MIPS + CPU_ALPHA + CPU_68K + CPU_RS6000 + CPU_PowerPC + CPU_HPPA +@endverbatim +*/ + +/* ------------------------------------------------------------------ */ + +#ifdef __cplusplus +extern "C" { +#endif + +#ifndef INITIAL_H__LOADED + +#define INITIAL_H__LOADED 1 + +#ifndef NO_IEEE_FLOAT_FORMAT +#define IEEE_FLOAT_FORMAT 1 +#endif + +#if ( defined(MSDOS) || defined(__MSDOS__) ) /* MS C or Turbo C */ +# define OS_MSDOS 1 +# define CPU_I86 1 +#elif ( defined(vax) && defined(vms) ) /* VAX/VMS (what about OpenVMS?) */ +# define OS_VAXVMS 1 +# define VAX_FLOAT_FORMAT 1 +# undef IEEE_FLOAT_FORMAT +# define CPU_VAX 1 +#elif ( defined(linux) || defined(__linux__) ) /* Linux OS */ +# define OS_UNIX 1 +# define OS_LINUX 1 +# if ( defined(i386) || defined(__i386) ) /* Linux on Intel-like CPU */ +# define CPU_I86 1 +# elif ( defined(__alpha) ) /* Linux on Alpha */ +# define CPU_ALPHA 1 +# endif +#elif ( defined(ultrix) ) /* Ultrix (MIPS or VAX) */ +# define OS_UNIX 1 +# define OS_ULTRIX 1 +# ifndef ULTRIX +# define ULTRIX 1 +# endif +# ifndef vax +# define CPU_MIPS 1 +# else +# define VAX_FLOAT_FORMAT 1 +# undef IEEE_FLOAT_FORMAT +# define CPU_VAX 1 +# endif +#elif ( defined(lynx) || defined(__lynx__) ) /* Lynx-OS */ +# define OS_UNIX 1 +# define OS_LYNX 1 +# if ( defined(_ARCH_PPC) || defined(__powerpc__) ) /* Lynx-OS on PowerPC */ +# define CPU_PowerPC 1 +# elif ( defined(M68K) ) /* Lynx-OS on Motorola 68K */ +# define CPU_68K 1 +# endif +#elif ( defined(AIX) ) /* IBM RS/6000 or PowerPC under AIX */ +# define OS_UNIX 1 +# define OS_AIX 1 +# define CPU_RS6000 1 +# define CPU_PowerPC 1 +#elif ( defined(__osf__) && defined(__alpha) ) /* DEC Unix */ +# define OS_UNIX 1 +# define OS_DECUNIX 1 +# define CPU_ALPHA 1 +# define SIXTY_FOUR_BITS 1 +#elif ( defined(OSK) ) /* OS-9 68k */ +# define OS_OS9 1 +# define CPU_68K 1 +# define FSTAT_NOT_AVAILABLE 1 +#elif ( defined(M68K) ) /* seems to be LynxOS on a 68k */ +# define OS_UNIX 1 +# define OS_LYNX 1 +# define CPU_68K 1 +#elif ( defined(__hpux) ) /* HP-UX */ +# define OS_HPUX 1 +# define OS_UNIX 1 +# ifdef __hppa +# define CPU_HPPA 1 +# endif +#else +# if defined(unix) || defined(__unix) +# define OS_UNIX 1 /* UNIX variant and CPU type are unknown */ +# endif +#endif + +/* On UNIX the version of files extracted from SCCS are available for 'what' */ +#ifdef OS_UNIX +# ifndef lint +# define USING_SCCS 1 +# define USING_SCCS_ID 1 +# endif +#endif + +/* The identifier 'ANSI_C' tells that a compiler supporting ANSI C is used */ +#if defined(__STDC__) /* Usually means 'ANSI C and nothing more than ANSI C' */ +# ifndef ANSI_C +# define ANSI_C 1 +# endif +#endif + +/* On the following systems all known C compilers (should) support ANSI C: */ +#if ( defined(OS_MSDOS) || defined(OS_VAXVMS) || defined(OS_UNIX) ) +# ifndef ANSI_C +# define ANSI_C 1 +# endif +#endif + +/* To test the code the 'ANSI_C' identifier may be reset */ +#ifdef SIMPLE_C +# ifdef ANSI_C +# undef ANSI_C +# endif +#endif + +/* Which types of systems have a VME bus? */ +#if ( defined(OS_OS9) || defined(OS_LYNX) ) +# define VME_BUS 1 +#endif + +/* -------------------------------------------------- */ + +#ifndef NO_INITIAL_INCLUDES + +/* Include standard OS-dependent include files */ +#if ( defined(OS_OS9) || defined(BSD) ) +# include +#else +# include +#endif + +#include +#include +#ifndef M_PI +# define M_PI 3.14159265358979323846 +#endif +#include +#if defined(ANSI_C) || defined(__STDC__) +# include +#endif +#ifdef OS_UNIX +# include +#endif +#ifdef OS_MSDOS +# include +#endif +#endif +/* ^-- end of '#ifndef NO_INITIAL_INCLUDES' */ + +/* -------------------------------------------------- */ + +#if ANSI_C +# define ARGLIST(a) a +#else +# define ARGLIST(a) () +#endif + +/* -------------------------------------------------- */ + +#ifndef NO_INITIAL_MACROS + +#ifndef ANSI_C +# ifndef NULL +# define NULL (void *) 0 +# endif +# ifdef OS_OS9 + typedef unsigned size_t; +# endif +# define ARGLIST(a) () +#endif + +/* Definitions normally found in include files: */ +/* OS-9 include files don't define SEEK_CUR */ +#ifndef SEEK_CUR +# define SEEK_CUR 1 +#endif +/* OS-9 does not provide a isatty() function */ +#ifdef OS_OS9 +# define ISATTY_NOT_AVAILABLE 1 +# define strchr(arg1,arg2) index(arg1,arg2) +char *getenv ARGLIST((char *)); +#endif +#ifdef OS_LYNX +# define memmove(a,b,n) bcopy(b,a,n) + void bcopy ARGLIST((char *b, char *a, int n)); +# define tsleep(t) usleep(10000*t) +#endif + +/* fopen() options needed for portability to MS-DOS */ +#ifdef OS_MSDOS +# define WRITE_TEXT "wt" +# define WRITE_BINARY "wb" +# define READ_TEXT "rt" +# define READ_BINARY "rb" +# define APPEND_TEXT "at" +# define APPEND_BINARY "ab" +#else +# define WRITE_TEXT "w" +# define WRITE_BINARY "w" +# define READ_TEXT "r" +# define READ_BINARY "r" +# define APPEND_TEXT "a" +# define APPEND_BINARY "a" +#endif + +#ifndef __cplusplus + +/* Nearest integer macro */ +#define Nint(a) (((a)>=0.)?((long)(a+0.5)):((long)(a-0.5))) +/* Absolute value independent of data type */ +#define Abs(a) (((a)>=0)?(a):(-1*(a))) +#define Min(a,b) ((a)<(b)?(a):(b)) +#define Max(a,b) ((a)>(b)?(a):(b)) +#ifdef CRT +/* Old names for the above macros as used in CRT code */ +# define NINT(a) Nint(a) +# define ABS(a) Abs(a) +#endif +/* Minimum and maximum macros (same definition as in X11) */ +#ifndef min +# define min(a,b) ((a)<(b)?(a):(b)) +#endif +#ifndef max +# define max(a,b) ((a)>(b)?(a):(b)) +#endif + +#define REGISTER register +#endif +/* ^-- end of '#ifndef __cplusplus' */ +#endif +/* ^-- end of '#ifndef NO_INITIAL_MACROS' */ + +/* -------------------------------------------------- */ + +#define CONST_QUAL + +/* =========== Integer data types ============ */ + +#ifdef __STDC__ +#ifdef __STDC_VERSION__ +#if ( __STDC_VERSION__ >= 199901L ) +#define ANSI_C_99 1 +#undef CONST_QUAL +#define CONST_QUAL const /* Qualifier for constant data */ +#endif +#endif +#endif + +#if defined(ANSI_C) || defined(__STDC__) +# include +#endif + +#if defined(ANSI_C_99) || defined(__int8_t_defined) +/* ANSI C99 (C9x) has the following types specified in stdint.h */ +/* Fairly recent gcc implementations have them as well (in sys/types.h) */ +/* but stdint.h is provided as well and duplication does no harm. */ +# include +/* Older (2.7.x) gcc versions have some of them defined in */ +/* (which is included from ) and the rest */ +/* is slightly different but we have no stdint.h. */ +#elif defined(__BIT_TYPES_DEFINED__) + typedef u_int8_t uint8_t; + typedef u_int16_t uint16_t; + typedef u_int32_t uint32_t; +# else +/* Only for the older compilers we have to declare all the types here. */ +# if !defined(__GNUC__) && !defined(OS_UNIX) + typedef /*signed*/ char int8_t; +#else + typedef signed char int8_t; +#endif + typedef unsigned char uint8_t; + + typedef short int16_t; + typedef unsigned short uint16_t; + +# ifdef OS_MSDOS + typedef long int32_t; + typedef unsigned long uint32_t; +# else + typedef int int32_t; + typedef unsigned int uint32_t; +# endif +# if defined(SIXTY_FOUR_BITS) + typedef long int64_t; + typedef unsigned long uint64_t; +# endif +#endif + +/* This should do it for most other 64 bit systems than DEC Unix */ +#ifndef SIXTY_FOUR_BITS +# ifdef __WORDSIZE +# if __WORDSIZE == 64 +# define SIXTY_FOUR_BITS 1 +# endif +# endif +#endif + +/* Many 32 bit systems have long long int as 64 bit integer */ +#if defined(SIXTY_FOUR_BITS) || ( defined(INT64_MAX) && defined(__GNUC__) ) +# define HAVE_64BIT_INT 1 +#endif + +#ifdef __cplusplus +} +#endif + +#endif Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/input =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/input (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/input (revision 1444) @@ -0,0 +1,39 @@ +RUNNR 1 +PRMPAR 14 particle type +ERANGE 100 1000 energy range +EVTNR 1 number of first shower event +NSHOW 10 number of showers to generate +ESLOPE -2.73 slope of primary energy spectrum +THETAP 0. 0. range of zenith angle (degree) +PHIP 90. 90. range of azimuth angle (degree) +VIEWCONE 0. 5. +DIRECT results/ data directory managed by daemon +SEED 1 3 0 seed values managed by daemon +SEED 6 3 0 seed values managed by daemon +SEED 1 3 0 seed values managed by daemon +OBSLEV 2200.E2 observation level (in cm) +ELMFLG F F em. interaction flags (NKG,EGS) +RADNKG 200.E2 outer radius for NKG lat.dens.determ. +MAGNET 29.5 23.0 magnetic field at LaPalma +VENUS T 0 use venus for high energy hadrons +VENSIG T use VENUS hadronic cross sections +ECUTS 0.3 0.3 0.02 0.02 e.cuts: had, mu, elec y fot +MUADDI F additional info for muons +MUMULT T muon multiple scattering angle +LONGI T 10. T F longit.distr. & step size & fit +MAXPRT 0 max. number of printed events +ECTMAP 1.E4 cut on gamma factor for printout +STEPFC 0.1 mult. scattering step length fact. +DEBUG F 6 F 1000000 debug flag and log.unit for out +CWAVLG 290. 600. Cherenkov wavelength band +CSCAT 1 0. 40000. scatter Cherenkov events +CERSIZ 1. bunch size Cherenkov photons +CERFIL T Cherenkov output to extra file +CERTEL 1 + 0. 0. 0. 0. 0. 20000. 17000. Location and size of each CT +DATBAS T write .dbase file +USER dorota user +atmosphere 6 T +EXIT terminates input + + Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/jcdate.c =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/jcdate.c (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/jcdate.c (revision 1444) @@ -0,0 +1,45 @@ +/*---------------------------------------------------------------------- + jcdate.c : + + Function to get the hour/date of the system + modified 13-10-98, D. Petry + +----------------------------------------------------------------------*/ + +#include +#include +#include + +static int s0=0; + +/*-------------------------------------------------- + jcdate: +--------------------------------------------------*/ +#ifdef JC_UNDERSCORES +void +jcdate_ (int *id, int *it, int *isl1, int *isl2, int *isl3, + int *isl4, int *isl5, int *isl6 ) +#else /* JC_NO_UNDERSCORES */ +void +jcdate (int *id, int *it, int *isl1, int *isl2, int *isl3, + int *isl4, int *isl5, int *isl6 ) +#endif /* JC_UNDERSCORES */ +{ + time_t timesecs; + struct tm *t; + + s0 = (int) time( ×ecs ); + t = gmtime( ×ecs ); + *isl1 = (int) t->tm_year; + *isl2 = (int) t->tm_mon+1; + *isl3 = (int) t->tm_mday; + *isl4 = (int) t->tm_hour; + *isl5 = (int) t->tm_min; + *isl6 = (int) t->tm_sec; + + *id = *isl1 * 10000 + *isl2 * 100 + *isl3; + *it = *isl4 * 10000 + *isl5 * 100 + *isl6; + + return; +} + Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/jcio.c =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/jcio.c (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/jcio.c (revision 1444) @@ -0,0 +1,314 @@ +/*---------------------------------------------------------------------- + jcio.c : + +Rutinas para la gestion de ficheros en CORSIKA 5.20 +Author J.C.Gonzalez + +Las posibilidades que contempla son: + +- Creacion de un fichero de inicio de run: run###### +- Creacion de un fichero de fin de run: end###### +- Creacion de fichero separados para cada cascada, tanto para + particulas como para Cherenkov. Ademas, para la salida Cherenkov se + genera en ficheros separados en caso de que se reutilice la cascada. + Los fichero son por tanto: cer######.# y dat######, donde el indice + del fichero cer va de 0 a 9. +- La grabacion se realiza en C, por lo que no existen marcas de inicio + ni final de bloque en los ficheros. + +Modified by C.Bigongiari 2000 Dec 19. +No more RUN###### and END###### files created. +Three files, CER######, DAT###### and STA###### files, per run instead +of three files per shower. +Now ###### is the RUN NUMBER not the shower number !!! +----------------------------------------------------------------------*/ + +#include +#include + +#define MAXBUF 273 /*- 39*7 -*/ +#define NSUBBL 21 +#define NPLONG 1041 + +static int nshow = 0; +static float timefirst = 0.; +static float timelast = 0.; + +FILE *cetape; +FILE *patape; +FILE *sttape; +/* CBC +FILE *runtape; +FILE *endtape; +CBC*/ +char tpl[100]; +char certpl[100]; +char dattpl[100]; +/* CBC char statpl[100]; */ +char cerfile[100]; +char datfile[100]; +/* CBC +char stafile[100]; +char runfile[100]; +char endfile[100]; +CBC */ + +/*-------------------------------------------------- + jcinitio: + +Define file names +--------------------------------------------------*/ +#ifdef JC_UNDERSCORES +void +jcinitio_ (char *path, int *runnum) +#else /* JC_NO_UNDERSCORES */ +void +jcinitio (char *path, int *runnum) +#endif /* JC_UNDERSCORES */ +{ + register int i = 0; + + while (*(path + (++i)) != ' '); + strncpy (tpl, path, i); + if (*(path + i - 1) != '/') + strcat (tpl, "/"); + + strcpy (certpl, tpl); + strcat (certpl, "cer%06d"); + strcpy (dattpl, tpl); + strcat (dattpl, "dat%06d"); + /* CBC + strcpy (statpl, tpl); + strcat (statpl, "sta%06d"); + */ + /* CBC + sprintf (runfile, "%srun%06d", tpl, *runnum); + sprintf (endfile, "%send%06d", tpl, *runnum); + CBC */ + + sprintf (cerfile, certpl, *runnum); /* Added by CB */ + sprintf (datfile, dattpl, *runnum); /* Added by CB */ +} + +/*-------------------------------------------------- + jcdatsave: + graba un bloque al fichero de particulas +--------------------------------------------------*/ +#ifdef JC_UNDERSCORES +void +jcdatsave_ (float *outbuf) +#else /* JC_NO_UNDERSCORES */ +void +jcdatsave (float *outbuf) +#endif /* JC_UNDERSCORES */ +{ + /* puts("JCIO:: saving particle buffer..."); */ + fwrite (outbuf, sizeof (float) * MAXBUF * NSUBBL, 1, patape); +} + +/*-------------------------------------------------- + jccersave: + graba un bloque al fichero de particulas +--------------------------------------------------*/ +#ifdef JC_UNDERSCORES +void +jccersave_ (float *outbuf) +#else /* JC_NO_UNDERSCORES */ +void +jccersave (float *outbuf) +#endif /* JC_UNDERSCORES */ +{ + /* puts("JCIO:: saving cerenkov buffer..."); */ + fwrite (outbuf, sizeof (float) * MAXBUF * NSUBBL, 1, cetape); +} + +/*-------------------------------------------------- + jcstartrun: + abre el fichero run###### y graba el contenido + +NOW open CER and DAT files +--------------------------------------------------*/ +#ifdef JC_UNDERSCORES +void +jcstartrun_ (void) +#else /* JC_NO_UNDERSCORES */ +void +jcstartrun (void) +#endif /* JC_UNDERSCORES */ +{ + /* CBC + + if ((runtape = fopen (runfile, "wb")) == NULL) { + printf ("JCIO:: Cannot open RUN file %s. Exiting.\n", runfile); + exit (1); + } + CBC */ + + /* puts("JCIO:: saving runheader buffer..."); */ + + /* CBC + fwrite (runh, sizeof (float) * MAXBUF, 1, runtape); + + CBC */ + + /* Following lines up to CBC added by CB */ + + + if ((cetape = fopen (cerfile, "wb")) == NULL) { + printf ("JCIO:: Cannot open CER file %s. Exiting.\n", cerfile); + exit (1); + } + if ((patape = fopen (datfile, "wb")) == NULL) { + printf ("JCIO:: Cannot open DAT file %s. Exiting.\n", datfile); + exit (1); + } + + /* CBC */ +} + +/* WHAT FOLLOWS IS NO MORE USED !!!!!! CB */ + +/*-------------------------------------------------- + jcstartshower: + +Function added by CB +Sets timefirst and timelast variables to their initial value at the beginnng +of new shower +--------------------------------------------------*/ +#ifdef JC_UNDERSCORES +void +jcstartshower_ (float *evth) +#else /* JC_NO_UNDERSCORES */ +void +jcstartshower (float *evth) +#endif /* JC_UNDERSCORES */ +{ + timefirst = 9.0e10; + timelast = -9.0e10; +} + + +/*-------------------------------------------------- + jctime: + va echando cuentas del tiempo de los fotones +--------------------------------------------------*/ +#ifdef JC_UNDERSCORES +void +jctime_ (float *cartim) +#else /* JC_NO_UNDERSCORES */ +void +jctime (float *cartim) +#endif /* JC_UNDERSCORES */ +{ + if (*cartim>timelast) timelast = *cartim; + if (*cartimlvar[i] != (int32_t)data2->lvar[i] ) + { + fprintf(stderr,"Long variable %d does not match: %08lx <--> %08lx\n", + i+1,data1->lvar[i],data2->lvar[i]); + ok = 0; + } + else if ( data1->lvar[i] != data2->lvar[i] ) + care_long = 1; + + for (i=0; i<2; i++) + if ( (int32_t)data1->ilvar[i] != (int32_t)data2->ilvar[i] ) + { + fprintf(stderr,"Int 'l' variable %d does not match: %08x <--> %08x\n", + i+1,data1->ilvar[i],data2->ilvar[i]); + ok = 0; + } + + for (i=0; i<2; i++) + if ( (int16_t)data1->isvar[i] != (int16_t)data2->isvar[i] ) + { + fprintf(stderr,"Int 's' variable %d does not match: %04x <--> %04x\n", + i+1,data1->isvar[i],data2->isvar[i]); + ok = 0; + } + else if ( data1->isvar[i] != data2->isvar[i] ) + care_short = 1; + + for (i=0; i<3; i++) + if ( data1->svar[i] != data2->svar[i] ) + { + fprintf(stderr,"Short variable %d does not match: %04x <--> %04x\n", + i+1,data1->svar[i],data2->svar[i]); + ok = 0; + } + + for (i=0; i<2; i++) + { + float f1, f2; + f1 = (float) data1->fvar[i]; + f2 = (float) data2->fvar[i]; + if ( f1 != f2 ) + { + fprintf(stderr,"Float variable %d does not match: %08x <--> %08x\n", + i+1,*((int *)(&f1)),*((int *)(&f2))); + ok = 0; + } + } + + for (i=0; i<2; i++) + if ( data1->dvar[i] != data2->dvar[i] ) + { + double f1, f2; + f1 = data1->dvar[i]; + f2 = data2->dvar[i]; + fprintf(stderr, + "Double variable %d does not match: %08x%08x <--> %08x%08x\n", + i+1,*((int *)(&f1)),*((int *)((char *)(&f1)+4)), + *((int *)(&f2)),*((int *)((char *)(&f2)+4))); + ok = 0; + } + + for (i=0; i<2; i++) + if ( data1->i8var[i] != data2->i8var[i] ) + { + fprintf(stderr,"Int8 variable %d does not match: %08x <--> %08x\n", + i+1,data1->i8var[i],data2->i8var[i]); + ok = 0; + } + + for (i=0; i<2; i++) + if ( data1->u8var[i] != data2->u8var[i] ) + { + fprintf(stderr,"UInt8 variable %d does not match: %08x <--> %08x\n", + i+1,data1->u8var[i],data2->u8var[i]); + ok = 0; + } + + for (i=0; i<2; i++) + if ( data1->i16var[i] != data2->i16var[i] ) + { + fprintf(stderr,"Int16 variable %d does not match: %08x <--> %08x\n", + i+1,data1->i16var[i],data2->i16var[i]); + ok = 0; + } + + for (i=0; i<2; i++) + if ( data1->u16var[i] != data2->u16var[i] ) + { + fprintf(stderr,"UInt16 variable %d does not match: %08x <--> %08x\n", + i+1,data1->u16var[i],data2->u16var[i]); + ok = 0; + } + + for (i=0; i<2; i++) + if ( data1->i32var[i] != data2->i32var[i] ) + { + fprintf(stderr,"Int32 variable %d does not match: %08x <--> %08x\n", + i+1,data1->i32var[i],data2->i32var[i]); + ok = 0; + } + + for (i=0; i<2; i++) + if ( data1->u32var[i] != data2->u32var[i] ) + { + fprintf(stderr,"UInt32 variable %d does not match: %08x <--> %08x\n", + i+1,data1->u32var[i],data2->u32var[i]); + ok = 0; + } + +#ifdef HAVE_64BIT_INT + for (i=0; i<2; i++) + if ( data1->i64var[i] != data2->i64var[i] ) + { +#ifdef SIXTY_FOUR_BITS + fprintf(stderr,"Int64 variable %d does not match: %016lx <--> %016lx\n", + i+1,data1->i64var[i],data2->i64var[i]); +#else + fprintf(stderr,"Int64 variable %d does not match: %016llx <--> %016llx\n", + i+1,data1->i64var[i],data2->i64var[i]); +#endif + ok = 0; + } + + for (i=0; i<2; i++) + if ( data1->u64var[i] != data2->u64var[i] ) + { +#ifdef SIXTY_FOUR_BITS + fprintf(stderr,"UInt64 variable %d does not match: %016lx <--> %016lx\n", + i+1,data1->u64var[i],data2->u64var[i]); +#else + fprintf(stderr,"UInt64 variable %d does not match: %016llx <--> %016llx\n", + i+1,data1->u64var[i],data2->u64var[i]); +#endif + ok = 0; + } +#endif + + return ok; +} + +/* --------------------- write_test1 ---------------------- */ +/** + * @short Write test data with single-element functions + * + * @param data Pointer to test data structure + * @param iobuf Pointer to I/O buffer + * + * @return 0 (O.K.), <0 (error as for put_item_end()) + * + */ + +int write_test1(data,iobuf) + TEST_DATA *data; + IO_BUFFER *iobuf; +{ + IO_ITEM_HEADER item_header; + + item_header.type = 99; /* test data */ + item_header.version = 0; /* Version 0 (test) */ + item_header.ident = 123; + + put_item_begin(iobuf,&item_header); + + put_long(data->lvar[0],iobuf); + put_long(data->lvar[1],iobuf); + put_long((long)data->ilvar[0],iobuf); + put_long((long)data->ilvar[1],iobuf); + put_short(data->isvar[0],iobuf); + put_short(data->isvar[1],iobuf); + put_short(data->svar[0],iobuf); + put_short(data->svar[1],iobuf); + put_short(data->svar[2],iobuf); + put_real(data->fvar[0],iobuf); + put_real(data->fvar[1],iobuf); + put_double(data->dvar[0],iobuf); + put_double(data->dvar[1],iobuf); + put_byte(data->i8var[0],iobuf); + put_byte(data->i8var[1],iobuf); + put_byte(data->u8var[0],iobuf); + put_byte(data->u8var[1],iobuf); + put_short(data->i16var[0],iobuf); + put_short(data->i16var[1],iobuf); + put_short(data->u16var[0],iobuf); + put_short(data->u16var[1],iobuf); + put_int32(data->i32var[0],iobuf); + put_int32(data->i32var[1],iobuf); + put_uint32(data->u32var[0],iobuf); + put_uint32(data->u32var[1],iobuf); +#ifdef HAVE_64BIT_INT + put_vector_of_int64(&data->i64var[0],1,iobuf); + put_vector_of_int64(&data->i64var[1],1,iobuf); + put_vector_of_uint64(&data->u64var[0],1,iobuf); + put_vector_of_uint64(&data->u64var[1],1,iobuf); +#endif + return(put_item_end(iobuf,&item_header)); +} + +/* ---------------------- read_test1 ---------------------- */ +/** + * @short Read test data with single-element functions + * + * @param data Pointer to test data structure + * @param iobuf Pointer to I/O buffer + * + * @return 0 (ok), <0 (error as for get_item_end()) + * + */ + +int read_test1(data,iobuf) + TEST_DATA *data; + IO_BUFFER *iobuf; +{ + IO_ITEM_HEADER item_header; + + item_header.type = 99; /* test data */ + if ( get_item_begin(iobuf,&item_header) < 0 ) + { + Warning("Missing or invalid test data block."); + return -4; + } + + data->lvar[0] = get_long(iobuf); + data->lvar[1] = get_long(iobuf); + data->ilvar[0] = get_long(iobuf); + data->ilvar[1] = get_long(iobuf); + data->isvar[0] = get_short(iobuf); + data->isvar[1] = get_short(iobuf); + data->svar[0] = get_short(iobuf); + data->svar[1] = get_short(iobuf); + data->svar[2] = get_short(iobuf); + data->fvar[0] = get_real(iobuf); + data->fvar[1] = get_real(iobuf); + data->dvar[0] = get_double(iobuf); + data->dvar[1] = get_double(iobuf); + data->i8var[0] = get_byte(iobuf); + data->i8var[1] = get_byte(iobuf); + data->u8var[0] = get_byte(iobuf); + data->u8var[1] = get_byte(iobuf); + data->i16var[0] = get_short(iobuf); + data->i16var[1] = get_short(iobuf); + data->u16var[0] = get_short(iobuf); + data->u16var[1] = get_short(iobuf); + data->i32var[0] = get_int32(iobuf); + data->i32var[1] = get_int32(iobuf); + data->u32var[0] = get_uint32(iobuf); + data->u32var[1] = get_uint32(iobuf); +#ifdef HAVE_64BIT_INT + get_vector_of_int64(&data->i64var[0],1,iobuf); + get_vector_of_int64(&data->i64var[1],1,iobuf); + get_vector_of_uint64(&data->u64var[0],1,iobuf); + get_vector_of_uint64(&data->u64var[1],1,iobuf); +#endif + + return(get_item_end(iobuf,&item_header)); +} + +/* --------------------- write_test2 ---------------------- */ +/** + * @short Write test data with vector functions as far as possible + * + * @param data Pointer to test data structure + * @param iobuf Pointer to I/O buffer + * + * @return 0 (ok), <0 (error as for put_item_end()) + * + */ + +int write_test2(data,iobuf) + TEST_DATA *data; + IO_BUFFER *iobuf; +{ + IO_ITEM_HEADER item_header; + + item_header.type = 99; /* test data */ + item_header.version = 0; /* Version 0 (test) */ + item_header.ident = 123; + + put_item_begin(iobuf,&item_header); + + put_vector_of_long(data->lvar,2,iobuf); + put_long((long)data->ilvar[0],iobuf); + put_long((long)data->ilvar[1],iobuf); + put_vector_of_int(data->isvar,2,iobuf); + put_vector_of_short(data->svar,3,iobuf); + put_vector_of_real(data->fvar,2,iobuf); + put_vector_of_double(data->dvar,2,iobuf); + put_vector_of_byte((uint8_t *)data->i8var,2,iobuf); + put_vector_of_byte(data->u8var,2,iobuf); + put_vector_of_short(data->i16var,2,iobuf); + put_vector_of_short((int16_t *)data->u16var,2,iobuf); + put_vector_of_int32(data->i32var,2,iobuf); + put_vector_of_uint32(data->u32var,2,iobuf); +#ifdef HAVE_64BIT_INT + put_vector_of_int64(data->i64var,2,iobuf); + put_vector_of_uint64(data->u64var,2,iobuf); +#endif + + return(put_item_end(iobuf,&item_header)); +} + +/* ---------------------- read_test2 ---------------------- */ +/** + * @short Read test data with vector functions as far as possible + * + * @param data Pointer to test data structure + * @param iobuf Pointer to I/O buffer + * + * @return 0 (ok), <0 (error as for get_item_end()) + * + */ + +int read_test2(data,iobuf) + TEST_DATA *data; + IO_BUFFER *iobuf; +{ + IO_ITEM_HEADER item_header; + + item_header.type = 99; /* test data */ + if ( get_item_begin(iobuf,&item_header) < 0 ) + { + Warning("Missing or invalid test data block."); + return -4; + } + + get_vector_of_long(data->lvar,2,iobuf); + data->ilvar[0] = get_long(iobuf); + data->ilvar[1] = get_long(iobuf); + get_vector_of_int(data->isvar,2,iobuf); + get_vector_of_short(data->svar,3,iobuf); + get_vector_of_real(data->fvar,2,iobuf); + get_vector_of_double(data->dvar,2,iobuf); + get_vector_of_byte((uint8_t *)data->i8var,2,iobuf); + get_vector_of_byte(data->u8var,2,iobuf); + get_vector_of_short(data->i16var,2,iobuf); + get_vector_of_short((int16_t *)data->u16var,2,iobuf); + get_vector_of_int32(data->i32var,2,iobuf); + get_vector_of_uint32(data->u32var,2,iobuf); +#ifdef HAVE_64BIT_INT + get_vector_of_int64(data->i64var,2,iobuf); + get_vector_of_uint64(data->u64var,2,iobuf); +#endif + + return(get_item_end(iobuf,&item_header)); +} + +/* ---------------------- perror ------------------------- */ +/** + * @short Replacement for function missing on OS-9 +*/ + +#ifdef OS_OS9 +int perror(text) + char *text; +{ + fprintf(stderr,"%s: Error\n",text); + return 0; +} +#endif + +/* ------------------------ main ------------------------- */ +/** + * @short Main function for I/O test program. + * First writes a test data structure with the vector + * functions, then the same data structure with the + * single-element functions. The output file is then + * closed and reopened for reading. The first structure + * is then read with the single-element functions and + * the second with the vector functions (i.e. the other + * way as done for writing). + * The data from the file is compared with the original + * data, taking the relevant accuracy into account. + * Note that if an 'int' variable is written via 'put_short()' + * and then read again via 'get_short()' not only the + * upper two bytes (on a 32-bit machine) are lost but + * also the sign bit is propagated from bit 15 to the + * upper 16 bits. Similarly, if a 'long' variable is written + * via 'put_long()' and later read via 'get_long()' on a + * 64-bit-machine, not only the upper 4 bytes are lost but + * also the sign in bit 31 is propagated to the upper 32 bits. + */ + +#ifdef ANSI_C +int main (int argc, char **argv) +#else +int main (argc, argv) + int argc; + char **argv; +#endif +{ + IO_BUFFER *iobuf; + IO_ITEM_HEADER item_header; + FILE *output = NULL, *input; + TEST_DATA tdata, cdata1, cdata2; + int ok; + + tdata.lvar[0] = 0x01020304L; tdata.lvar[1] = 0xf1f2f3f4L; + tdata.ilvar[0] = 0x01020304; tdata.ilvar[1] = 0xf1f2f3f4; + tdata.isvar[0] = 0x0102; tdata.isvar[1] = 0xf1f2; + tdata.svar[0] = 0x0102; + tdata.svar[1] = (short) 0xf1f2; + tdata.svar[2] = 0x0a0b; + tdata.fvar[0] = 2.38793926059e-38; + tdata.fvar[1] = -2.40608939547e+30; + tdata.dvar[0] = 2.38793926059674673672e-140; + tdata.dvar[1] = -2.40608939547354636548e+180; + tdata.i8var[0] = 0x1e; tdata.i8var[1] = 0xe1; + tdata.u8var[0] = 0x1e; tdata.u8var[1] = 0xe1; + tdata.i16var[0] = 0x1e2e; tdata.i16var[1] = 0xe2e1; + tdata.u16var[0] = 0x1e2e; tdata.u16var[1] = 0xe2e1; + tdata.i32var[0] = 0x1e2e3e4e; tdata.i32var[1] = 0xe4e3e2e1; + tdata.u32var[0] = 0x1e2e3e4e; tdata.u32var[1] = 0xe4e3e2e1; +#ifdef HAVE_64BIT_INT + tdata.i64var[0] = 0x1a2a3a4a5a6a7a8a; + tdata.i64var[1] = 0xa8a7a6a5a4a3a2a1; + tdata.u64var[0] = 0x1b2b3b4b5b6b7b8b; + tdata.u64var[1] = 0xb8b7b6b5b4b3b2b1; +#endif + + if ( (iobuf = allocate_io_buffer((size_t)1000)) == (IO_BUFFER *) NULL ) + exit(1); + if ( argc > 1 ) + { + if ( (output = fopen(argv[1],WRITE_BINARY)) == (FILE *) NULL ) + { + perror(argv[1]); + exit(1); + } + iobuf->output_file = output; + } + else + { + fprintf(stderr,"Syntax: %s filename\n",argv[0]); + exit(1); + } + + fprintf(stderr,"\nWrite test data to file '%s'.\n",argv[1]); + fprintf(stderr,"Default byte order, using mainly vector functions.\n"); + write_test2(&tdata,iobuf); + fprintf(stderr,"Default byte order, using single-element functions.\n"); + write_test1(&tdata,iobuf); + iobuf->byte_order = 1; + fprintf(stderr,"Reversed byte order, using single-element functions.\n"); + write_test1(&tdata,iobuf); + iobuf->byte_order = 0; + fprintf(stderr,"Normal byte order, using single-element functions.\n"); + write_test1(&tdata,iobuf); + fprintf(stderr,"Write tests done.\n\n"); + + fclose(output); + iobuf->output_file = output = NULL; + if ( (input = fopen(argv[1],READ_BINARY)) == (FILE *) NULL ) + { + perror(argv[1]); + exit(1); + } + iobuf->input_file = input; + ok = 1; + + fprintf(stderr,"Read test data from file '%s'.\n",argv[1]); + + fprintf(stderr,"Default byte order, using single-element functions.\n"); + if ( find_io_block(iobuf,&item_header) < 0 ) + { + Error("*** Finding I/O block 1 failed"); + exit(1); + } + if ( read_io_block(iobuf,&item_header) < 0 ) + { + Error("*** Reading I/O block 1 failed"); + exit(1); + } + if ( read_test1(&cdata1,iobuf) < 0 ) + { + Error("*** Read test 1 failed"); + exit(1); + } + if ( datacmp(&tdata,&cdata1) != 1 ) + { + Error("*** Data from read test 1 does not match."); + ok = 0; + } + + fprintf(stderr,"Default byte order, using mainly vector functions.\n"); + if ( find_io_block(iobuf,&item_header) < 0 ) + { + Error("*** Finding I/O block 1 failed"); + exit(1); + } + if ( read_io_block(iobuf,&item_header) < 0 ) + { + Error("*** Reading I/O block 1 failed"); + exit(1); + } + if ( read_test2(&cdata2,iobuf) < 0 ) + { + Error("*** Read test 2 failed"); + exit(1); + } + if ( datacmp(&tdata,&cdata2) != 1 ) + { + Error("*** Data from read test 2 does not match"); + ok = 0; + } + fprintf(stderr,"Reversed byte order, using single-element functions.\n"); + if ( find_io_block(iobuf,&item_header) < 0 ) + { + Error("*** Finding I/O block 3 failed"); + exit(1); + } + if ( read_io_block(iobuf,&item_header) < 0 ) + { + Error("*** Reading I/O block 3 failed"); + exit(1); + } + if ( read_test1(&cdata1,iobuf) < 0 ) + { + Error("*** Read test 3 failed"); + exit(1); + } + if ( datacmp(&tdata,&cdata1) != 1 ) + { + Error("*** Data from read test 3 does not match."); + ok = 0; + } + + fprintf(stderr,"Normal byte order, using single-element functions.\n"); + if ( find_io_block(iobuf,&item_header) < 0 ) + { + Error("*** Finding I/O block 4 failed"); + exit(1); + } + if ( read_io_block(iobuf,&item_header) < 0 ) + { + Error("*** Reading I/O block 4 failed"); + exit(1); + } + if ( read_test1(&cdata2,iobuf) < 0 ) + { + Error("*** Read test 4 failed"); + exit(1); + } + if ( datacmp(&tdata,&cdata2) != 1 ) + { + Error("*** Data from read test 4 does not match"); + ok = 0; + } + + Information("Read tests done\n"); + + if ( ok ) + Information("Everthing is ok. Congratulations!\n"); + + if ( care_long ) + { + Information("Note: on this machine you should care about the sign propagation"); + Information("of 'LONG' (INT32) data elements to long integer variables.\n"); + } + + if ( care_int ) + { + Information("Note: on this machine you should care about the sign propagation"); + Information("of 'LONG' (INT32) data elements to 32 bit integer variables.\n"); + } + + if ( care_short ) + { + Information("Note: on this machine you should care about the sign propagation"); + Information("of 'SHORT' data elements to integer or long integer variables.\n"); + } + +#ifdef HAVE_64BIT_INT + Information("On this machine you can read and write 64-bit integers but you should"); + Information("be aware that this feature is not available on all systems otherwise"); + Information("supported by eventio."); +#ifdef SIXTY_FOUR_BITS + Information("These 64-bit integers are native types.\n"); +#else + Information("These 64-bit integers are implemented through the C compiler.\n"); +#endif +#else + Information("On this system no 64-bit integers are supported.\n"); +#endif + + return 0; +} + Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/timer.c =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/timer.c (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/timer.c (revision 1444) @@ -0,0 +1,27 @@ +/*CMZ : 18/10/99 17.26.37 by D. HECK IK3 FZK KARLSRUHE*/ +/*-- Author : D. HORN & M. Raabe, DESY 13/01/97*/ +/*====================================================================*/ + +/* subroutine timer( iseco ) */ + +/*--------------------------------------------------------------------*/ +/* c-routine to read out system time in sec. */ +/* To be used in combination with CORSIKA */ +/* for old g77 compiler (version <0.5.21, with gcc 2.7.2.3). */ +/* Not needed with newer g77 compilers. */ +/* To be compiled with g77 -funderscoring */ +/* This subroutine is called from AAMAIN and SEKDAT */ +/* Argument: */ +/* iseco = seconds since 00:00:00 GMT on Jan. 1th 1970 */ +/*--------------------------------------------------------------------*/ + +#include +#include +#include +void timer_(long *UnixSysTime) +{ + int dummy; + struct timeb Time_Struct; + dummy=ftime(&Time_Struct); + *UnixSysTime=Time_Struct.time; +} Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/venus.f =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/venus.f (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/venus.f (revision 1444) @@ -0,0 +1,18024 @@ +C======================================================================= +C +C V E N U S 4.12 +C (VERY ENERGETIC NUCLEAR SCATTERING) +C SUBROUTINE-TURBO-VERSION MAY 04, 1994 +C +C----------------------------------------------------------------------- +C +C AUTHOR: +C ------- +C +C KLAUS WERNER +C +C UNIV. HEIDELBERG, INST. F. THEORETISCHE PHYSIK +C PHILOSOPHENWEG 19, 6900 HEIDELBERG, GERMANY +C WERNER@DHDMPI5.BITNET, WERNER@MINNIE.MPI-HD.MPG.DE, 28877::WERNER +C +C NOW AT: +C UNIVERSITE DE NANTES, SUBATECH - ECOLE DES MINES +C 4, RUE ALFRED KASTLER, F44070 NANTES CEDEX 03, FRANCE +C E-MAIL: WERNER@NANHP2.IN2P3.FR +C FAX: (33) 51 85 84 79 +C TEL: (33) 51 85 84 25 +C +C +C SUBROUTINE-TURBO-VERSION 4.12/5: +C -------------------------------- +C DIETER HECK +C FORSCHUNGSZENTRUM KARLSRUHE, INST. F. KERNPHYSIK 3 +C POSTFACH 3640, D-76021 KARLSRUHE, GERMANY +C E-MAIL: HECK@IK3.FZK.DE +C FAX: 07247-82-4075 +C TEL: 07247-82-3777 +C +C LAST CHANGES: OCT 05, 1995 +C rename of jdcay to jdecayv oct. 18, 1999 by D.H. +C include SAVE statements Sept.26, 2000 by D.H. +C----------------------------------------------------------------------- +C +C VENUS: +C ------ +C +C VENUS IS A MONTE CARLO PROCEDURE TO SIMULATE HADRONIC INTERACTIONS AT +C ULTRARELATIVISTIC ENERGIES (HADRON-HADRON, HADRON-NUCLEUS, NUCLEUS- +C NUCLEUS SCATTERING), AND ALSO INTERACTIONS INVOLVING LEPTONS (E+E- +C ANNIHILATION, LEPTON-NUCLEON, LEPTON-NUCLEUS SCATTERING). +C VENUS IS BASED ON GRIBOV-REGGE THEORY (OF MULTIPLE POMERON EXCHANGE) +C AND CLASSICAL RELATIVISTIC STRING DYNAMICS. A DETAILED DESCRIPTION CA +C BE FOUND IN THE UNIV. HEIDELBERG PREPRINT HD-TVP-93-1 (270 PAGES), +C WHICH IS PUBLISHED IN PHYSICS REPORTS 232 (1993) 87-299. +C +C DISTRIBUTION: +C ------------- +C +C THIS CODE SHOULD NOT BE DISTRIBUTED WITHOUT NOTIFYING THE AUTHOR, IN- +C DICATING WHAT THE CODE IS GOING TO BE USED FOR. DEPENDING ON THE TYPE +C OF REACTION AND THE KIND OF OBSERVABLES ANALYSED, THE SYSTEMATIC UN- +C CERTAINTIES OF THE VENUS SIMULATIONS VARY STRONGLY, AND THIS SHOULD +C BE CLARIFIED BEFORE USING VENUS. +C +C IMPORTANT FEATURES: +C ------------------- +C +C COVARIANT TREATMENT OF SECONDARY INTERACTIONS. EACH PRODUCED PARTICLE +C IS ALLOWED TO REINTERACT WITH OTHER PRODUCED PARTICLES OR WITH +C SPECTATORS. IMPORTANT FOR HADRON-NUCLEUS, NUCLEUS-NUCLEUS AND +C LEPTON-NUCLEUS SCATTERING. +C NO FINAL STATE INTERACTION, IF 'RADIAC' IS SET ZERO. +C +C PARTICIPATION OF ANTIQUARKS (IN ADDITION TO QUARKS) IN THE +C COLOUR EXCHANGE MECHANISM TO FORM STRINGS. +C +C POSSIBILITY OF DIQUARK BREAKUP, LEADING TO MULTI-STRINGS, LIKE +C A FORWARD QUARK LINKED VIA TWO (!) STRINGS TO TWO BACKWARD +C QUARKS (DOUBLE-STRING). SUCH STRINGS FRAGMENT DIFFERENTLY THAN +C QUARK-DIQUARK STRINGS. IN CASE OF THE DOUBLE-STRING, THE FORWARD +C QUARK WILL FRAGMENT VIA TWO BREAKS INTO A LEADING BARYON. +C +C SOPHISTICATED FRAGMENTATION PROCEDURE. SINCE SPACE-TIME +C EVOLUTION IS AN IMPORTANT ISSUE CONCERNING FINAL STATE INTER- +C ACTIONS, IT IS NOT ENOUGH TO HAVE A FRAGMENTATION MODEL WHICH +C WORKS, IT SHOULD HAVE THE RIGHT SPACE-TIME DESCRIPTION! THERE- +C FOR THE FIELD-FEYNMAN MODEL OF EARLIER VERSIONS (<3.00) HAS BEEN +C ABANDONED AND REPLACED BY A VERY POWERFUL AND APPEALING PROCEDURE +C SUGGESTED BY ARTRU/MENNESSIER. +C +C VERY LARGE RESONANCE TABLE, INCLUDING FOR EXAMPLE ALL NUCLEON +C RESONANCES UP TO 2 GEV. THE DECAY TABLE INCLUDES ALSO KSHORT +C AND LAMBDA DECAYS. DECAY SUPPRESSION IS GOVERNED BY THE PARAMETERS +C 'NDECAY' AND 'NDECAX'. SETTING 'NDECAY' TO 1 SUPPRESSES ALL DECAYS. +C FOR FURTHER DETAILS SEARCH FOR 'DECAY SUPPRESSION' IN SUBR. AINITL +C +C FOR VERSION >= 4.01, WE USE GRIBOVS CUT-POMERON PROBABILITIES TO +C DETERMINE THE WEIGHTS FOR MULTI-COLOUR-EXCHANGE. +C +C----------------------------------------------------------------------- +C +C PARTICLE ID (SAME AS ISAJET - SEE ISAJET.DOC, F.E.PAIGE) +C -------------------------------------------------------- +C +C QUARKS AND LEPTONS ARE NUMBERED IN ORDER OF MASS: +C UP=1 DN=2 ST=3 CH=4 BT=5 TP=6 +C NUE=11 E-=12 NUM=13 MU-=14 NUT=15 TAU-=16 +C WITH A NEGATIVE SIGN FOR ANTIPARTICLES. +C ARBITRARY CONVENTIONS ARE: +C GL=9 GM=10 KS=20 KL=-20 W+=80 Z0=90 . +C THE CODE FOR A MESON IS AN INTEGER +-JKL, WHERE J.LE.K ARE THE +C QUARKS AND L IS THE SPIN. THE SIGN IS FOR THE J QUARK. +C FLAVOR SINGLET MESONS ARE ORDERED BY MASS: +C PI0=110 ETA=220 ETAP=330 ETAC=440 . +C SIMILARLY, THE CODE FOR A BARYON IS A COMPOUND INTEGER +-IJKL +C FORMED FROM THE THREE QUARKS I,J,K AND A SPIN LABEL L=0,1. +C THE CODE FOR A DIQUARK IS +-IJ00. +C +C LIST OF IDENT CODES: +C +C IDENT LABEL MASS CHARGE +C 1 UP .30000E+00 .67 +C -1 UB .30000E+00 -.67 +C 2 DN .30000E+00 -.33 +C -2 DB .30000E+00 .33 +C 3 ST .50000E+00 -.33 +C -3 SB .50000E+00 .33 +C 4 CH .16000E+01 .67 +C -4 CB .16000E+01 -.67 +C 5 BT .49000E+01 -.33 +C -5 BB .49000E+01 .33 +C 6 TP .30000E+02 .67 +C -6 TB .30000E+02 -.67 +C +C 9 GL 0. 0.00 +C +C 10 GM 0. 0.00 +C +C 11 NUE 0. 0.00 +C -11 ANUE 0. 0.00 +C 12 E- .51100E-03 -1.00 +C -12 E+ .51100E-03 1.00 +C 13 NUM 0. 0.00 +C -13 ANUM 0. 0.00 +C 14 MU- .10566E+00 -1.00 +C -14 MU+ .10566E+00 1.00 +C 15 NUT 0. 0.00 +C -15 ANUT 0. 0.00 +C 16 TAU- .18070E+01 -1.00 +C -16 TAU+ .18070E+01 1.00 +C +C 20 KS .49767E+00 0.00 +C -20 KL .49767E+00 0.00 +C +C 80 W+ SIN2W=.23 1.00 +C -80 W- SIN2W=.23 -1.00 +C 90 Z0 SIN2W=.23 0.00 +C +C 110 PI0 .13496E+00 0.00 +C 120 PI+ .13957E+00 1.00 +C -120 PI- .13957E+00 -1.00 +C 220 ETA .54880E+00 0.00 +C 130 K+ .49367E+00 1.00 +C -130 K- .49367E+00 -1.00 +C 230 K0 .49767E+00 0.00 +C -230 AK0 .49767E+00 0.00 +C 330 ETAP .95760E+00 0.00 +C 140 AD0 .18633E+01 0.00 +C -140 D0 .18633E+01 0.00 +C 240 D- .18683E+01 -1.00 +C -240 D+ .18683E+01 1.00 +C 340 F- .20300E+01 -1.00 +C -340 F+ .20300E+01 1.00 +C 440 ETAC .29760E+01 0.00 +C +C 111 RHO0 .77000E+00 0.00 +C 121 RHO+ .77000E+00 1.00 +C -121 RHO- .77000E+00 -1.00 +C 221 OMEG .78260E+00 0.00 +C 131 K*+ .88810E+00 1.00 +C -131 K*- .88810E+00 -1.00 +C 231 K*0 .89220E+00 0.00 +C -231 AK*0 .89220E+00 0.00 +C 331 PHI .10196E+01 0.00 +C 141 AD*0 .20060E+01 0.00 +C -141 D*0 .20060E+01 0.00 +C 241 D*- .20086E+01 -1.00 +C -241 D*+ .20086E+01 1.00 +C 341 F*- .21400E+01 -1.00 +C -341 F*+ .21400E+01 1.00 +C 441 JPSI .30970E+01 0.00 +C +C 1120 P .93828E+00 1.00 +C -1120 AP .93828E+00 -1.00 +C 1220 N .93957E+00 0.00 +C -1220 AN .93957E+00 0.00 +C 1130 S+ .11894E+01 1.00 +C -1130 AS- .11894E+01 -1.00 +C 1230 S0 .11925E+01 0.00 +C -1230 AS0 .11925E+01 0.00 +C 2130 L .11156E+01 0.00 +C -2130 AL .11156E+01 0.00 +C 2230 S- .11974E+01 -1.00 +C -2230 AS+ .11974E+01 1.00 +C 1330 XI0 .13149E+01 0.00 +C -1330 AXI0 .13149E+01 0.00 +C 2330 XI- .13213E+01 -1.00 +C -2330 AXI+ .13213E+01 1.00 +C 1140 SC++ .24300E+01 2.00 +C -1140 ASC-- .24300E+01 -2.00 +C 1240 SC+ .24300E+01 1.00 +C -1240 ASC- .24300E+01 -1.00 +C 2140 LC+ .22600E+01 1.00 +C -2140 ALC- .22600E+01 -1.00 +C 2240 SC0 .24300E+01 0.00 +C -2240 ASC0 .24300E+01 0.00 +C 1340 USC. .25000E+01 1.00 +C -1340 AUSC. .25000E+01 -1.00 +C 3140 SUC. .24000E+01 1.00 +C -3140 ASUC. .24000E+01 -1.00 +C 2340 DSC. .25000E+01 0.00 +C -2340 ADSC. .25000E+01 0.00 +C 3240 SDC. .24000E+01 0.00 +C -3240 ASDC. .24000E+01 0.00 +C 3340 SSC. .26000E+01 0.00 +C -3340 ASSC. .26000E+01 0.00 +C 1440 UCC. .35500E+01 2.00 +C -1440 AUCC. .35500E+01 -2.00 +C 2440 DCC. .35500E+01 1.00 +C -2440 ADCC. .35500E+01 -1.00 +C 3440 SCC. .37000E+01 1.00 +C -3440 ASCC. .37000E+01 -1.00 +C +C 1111 DL++ .12320E+01 2.00 +C -1111 ADL-- .12320E+01 -2.00 +C 1121 DL+ .12320E+01 1.00 +C -1121 ADL- .12320E+01 -1.00 +C 1221 DL0 .12320E+01 0.00 +C -1221 ADL0 .12320E+01 0.00 +C 2221 DL- .12320E+01 -1.00 +C -2221 ADL+ .12320E+01 1.00 +C 1131 S*+ .13823E+01 1.00 +C -1131 AS*- .13823E+01 -1.00 +C 1231 S*0 .13820E+01 0.00 +C -1231 AS*0 .13820E+01 0.00 +C 2231 S*- .13875E+01 -1.00 +C -2231 AS*+ .13875E+01 1.00 +C 1331 XI*0 .15318E+01 0.00 +C -1331 AXI*0 .15318E+01 0.00 +C 2331 XI*- .15350E+01 -1.00 +C -2331 AXI*+ .15350E+01 1.00 +C 3331 OM- .16722E+01 -1.00 +C -3331 AOM+ .16722E+01 1.00 +C 1141 UUC* .26300E+01 2.00 +C -1141 AUUC* .26300E+01 -2.00 +C 1241 UDC* .26300E+01 1.00 +C -1241 AUDC* .26300E+01 -1.00 +C 2241 DDC* .26300E+01 0.00 +C -2241 ADDC* .26300E+01 0.00 +C 1341 USC* .27000E+01 1.00 +C -1341 AUSC* .27000E+01 -1.00 +C 2341 DSC* .27000E+01 0.00 +C -2341 ADSC* .27000E+01 0.00 +C 3341 SSC* .28000E+01 0.00 +C -3341 ASSC* .28000E+01 0.00 +C 1441 UCC* .37500E+01 2.00 +C -1441 AUCC* .37500E+01 -2.00 +C 2441 DCC* .37500E+01 1.00 +C -2441 ADCC* .37500E+01 -1.00 +C 3441 SCC* .39000E+01 1.00 +C -3441 ASCC* .39000E+01 -1.00 +C 4441 CCC* .48000E+01 2.00 +C -4441 ACCC* .48000E+01 -2.00 +C----------------------------------------------------------------------- +C +C LIST OF SUBROUTINES AND FUNCTIONS OF SUBROUTINE-TURBO-VERSION 4.12 +C ------------------------------------------------------------------ +C +C AVENUS HAHABS HAPAPA HASI HASTFC HASTFL HASTFR HASTFS +C HASTFW HASTPR HDECMP HRESCL IDCOMJ IDCOMK IDCOMP IDDECO +C IDENCO IDFLAV IDLABL IDMASS IDMIX IDQUAC IDRES IDRESI +C IDSPIN IDTAU IDTRA IDTRAI IDTRB IDTRBI IDTR4 +C JAMBR1 JAMBR2 JAMFRA JCENTD JCENTP JCENTR JCLUDE JDECA +C JDECAYV JDECIN JESTPR JETGEN JFRADE JINTA1 JINTA2 +C JINTCC JINTCE JINTCH JINTCL JINTEL JINTFP JINTFS +C JINTFU JINTPA JRESCL JSPLIT LEPEXP LEPSTR LEPTAR +C NUCINI NUCLCO NUCOGE NUCOLL NUCSTR PVJPSF +C RACPRO RANSTC RANXQ SBET SDENSI SGAM SGAU +C SHOPAR SJCENT SJCEN4 SJCGAM SMASS SMASSI SMASSP SMASST +C SPTF SPTH SPTJ SPTQ SSE0 SSE1 SSPLIT SSPLIX +C STAA STXD STXS STXU STXUS STXZNE STXZPR SVA0 +C SVA1 UINTEG UTACOS UTAMNU UTAMNX UTAMNY UTAMNZ UTAMST +C UTAXIS UTCHM UTCLEA UTHIST UTHSEA UTINVT UTKSIX +C UTKSTR UTLOBO UTLOB2 UTLOC UTMSG UTMSGF UTOVEL UTPAGE +C UTPART UTPCM UTQUAF UTQZ UTREMB UTREPL UTRESM UTREST +C UTROTA UTROT2 UTSTOP UTTAIN UTTAIX UTTAUS UTTAUT UTTUCL +C +C----------------------------------------------------------------------- +C +C SUBROUTINE-TURBO-VERSION 4.12: +C ------------------------------ +C +C IT IS TUNED FOR FASTER CALCULATION, ESPECIALLY IF ENERGY AND +C TARGET ARE VARYING FROM COLLISION TO COLLISION, AS IS THE CASE IN +C THE DEVELOPMENT OF AN AIR SHOWER CASCADE. +C IT NEEDS LINKING ROUTINES FOR INPUT AND OUTPUT AND A RANDOM +C GENERATOR. ALL PARAMETERS MUST BE SET IN THE LINKING ROUTINES. +C FOR CONNECTION WITH THE AIR SHOWER PROGRAM 'CORSIKA', SUCH ROUTINES +C ARE AVAILABLE: +C RANGEN: RANDOM GENERATOR +C UTQSEA: CALC. OF SEA QUARK STRUCTURE FUNCTION INTEGRAL +C UTQVAL: CALC. OF VALENCE QUARK STRUCTURE FUNCTION INTEGRAL +C VENDAT: INITIALIZATION OF PARTICLE ID TABLE +C VENINI: FOR FIRST INITIALIZATION OF PARAMETERS +C VENLNK: FOR INITIALIZATION OF ENERGY DEPENDENT PARAMETERS +C VSTORE: TO STORE THE GENERATED SECONDARY PARTICLES +C +C NOTE: THE COMMONS ARE IN GENERAL DIFFERENT FROM THE UNTUNED +C VENUS VERSION 4.12 +C----------------------------------------------------------------------- +C COPYRIGHT AND ANY OTHER APPROPRIATE LEGAL PROTECTION OF THESE +C COMPUTER PROGRAMS AND ASSOCIATED DOCUMENTATION RESERVED IN ALL +C COUNTRIES OF THE WORLD. +C +C FZK WELCOMES COMMENTS CONCERNING THE VENUS CODE BUT UNDERTAKES NO +C OBLIGATION FOR MAINTENANCE OF THE PROGRAMS, NOR RESPONSIBILITY FOR +C THEIR CORRECTNESS, AND ACCEPTS NO LIABILITY WHATSOEVER RESULTING +C FROM THE USE OF ITS PROGRAMS. +C======================================================================= + + SUBROUTINE AVENUS + +C----------------------------------------------------------------------- +C GENERATES ONE VENUS EVENT +C----------------------------------------------------------------------- + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CEVT/ BIMEVT,COLEVT,EGYEVT,PHIEVT,PMXEVT + * ,KOLEVT,NEVT,NPJEVT,NTGEVT + DOUBLE PRECISION SEEDC,SEEDI + COMMON /CSEED/ SEEDC,SEEDI + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + SAVE +C----------------------------------------------------------------------- + ISH0=ISH + ISHS0=ISHSUB + IF ( ISHEVT .NE. 0 .AND. NREVT+1 .NE. ISHEVT ) THEN + ISH=0 + ISHSUB=0 + ENDIF +CDH IF ( NREVT.EQ.0 .AND. (ISH.EQ.13.OR.ISH.EQ.14) ) CALL UTTIMT +CDH IF ( ISH .EQ. 14 ) CALL UTTIMA('*** AVENUS *** ') + IF ( ISH .EQ. 17 .OR. ISH .GT. 92 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'AVENUS (ENTRY)' + ENDIF + IPAGE=0 + CALL UTPAGE + IF ( ISH .GE. 91 ) + * WRITE(IFCH,113)('-',L=1,79),IPAGE,NREVT+1,SEEDC,('-',L=1,79) +113 FORMAT(/1X,79A1/1X,I5,'.PAGE ' + * ,5X,'EVT:',I4,5X,'SEEDC:',D25.15/1X,79A1/) + IF ( ICHOIC. EQ. 4 .OR. ICHOIC .EQ. 5 ) GOTO 1000 + BIMEVT=-1 + NTEVT0=NTEVT +3 NTEVT=NTEVT0 +2 NTEVT=NTEVT+1 + IF ( ICHOIC .EQ. 1 ) THEN + CALL JETGEN(IER) + IF ( IER .EQ. 1 ) GOTO 3 + ELSEIF ( ICHOIC .EQ. 2 .OR. ICHOIC .EQ. 3 ) THEN + CALL NUCOLL + ENDIF + IF ( ICHOIC .EQ. 1 .OR. ICHOIC .EQ. 2 ) THEN + CALL JFRADE(IER) + IF ( IER. EQ. 1 ) GOTO 3 + ENDIF + IF ( (ICHOIC.EQ.2 .OR. ICHOIC.EQ.3) .AND. NEVT.EQ.0 ) THEN + BIMEVT=-1 + GOTO 2 + ENDIF + IF ( JERR .GT. 0 ) THEN + CALL UTSTOP('AVENUS: JERR > 0 ') + ENDIF + NREVT=NREVT+1 + +1000 CONTINUE +CDH IF ( ISH .EQ. 14 ) CALL UTTIMA(' AVENUS F ') + IF ( ISH .EQ. 17 .OR. ISH .GT. 92 ) THEN + WRITE(IFCH,*)'AVENUS (EXIT)' + ENDIF + ISH=ISH0 + ISHSUB=ISHS0 + RETURN + END +C======================================================================= + + SUBROUTINE HAHABS(PROJ,TARG,IAP,IAT,ISKIP,IRETHH) + +C----------------------------------------------------------------------- +C PERFORMS A BASIC (ONE COLOR EXCHANGE) HADRON-HADRON COLLISION +C----------------------------------------------------------------------- + PARAMETER (KOLLMX=2500) + PARAMETER (MAMX=56) + PARAMETER (MXSTR=3000) + PARAMETER (NDEP=129) + PARAMETER (NDET=129) + PARAMETER (NFLAV=6) + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + PARAMETER (NHA=NSIX+2) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CEVT/ BIMEVT,COLEVT,EGYEVT,PHIEVT,PMXEVT + * ,KOLEVT,NEVT,NPJEVT,NTGEVT + COMMON /CKOL/ KOL + COMMON /CLEAD/ COOAV3,COOAV4,LEAD + COMMON /CNCE/ NCES,NCOLEX + COMMON /CNEW/ KOTRI,NEWCOL,NEWICO + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /COL/ BIMP,BMAX,COORD(4,KOLLMX),DISTCE(KOLLMX) + * ,QDEP(NDEP),QDET14(NDET),QDET16(NDET),QDET40(NDET) + * ,QDET99(NDET),RMPROJ,RMTARG(4),XDEP(NDEP) + * ,XDET14(NDET),XDET16(NDET),XDET40(NDET) + * ,XDET99(NDET) + * ,KOLL,LTARG,NORD(KOLLMX),NPROJ,NRPROJ(KOLLMX) + * ,NRTARG(KOLLMX),NTARG + COMMON /CPROJA/ IPROJ,ITARG,KPROJA(NHA,MAMX),KTARGA(NHA,MAMX) + COMMON /CPZSTR/ ESTRL,PZSTRL,ISEA,ISTRL + COMMON /CSTR/ PSTR(5,MXSTR),ROTSTR(3,MXSTR),XORSTR(4,MXSTR) + * ,ICSTR(4,MXSTR),IORSTR(MXSTR),IRLSTR(MXSTR),NSTR + COMMON /CSTSH/ NSTSH + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + REAL PROJ(NSI,NHA),PSUM(5),PSUMX(5) + * ,SIL(NSI),SILP(NSI),SILT(NSI) + * ,SIX(NSI,NSIX),SIXP(NSI,NSIX),SIXT(NSI,NSIX) + * ,STRAP(NSI,NSIX+1),STRAT(NSI,NSIX+1) + * ,STRLP(NSI,NSIX+1),STRLT(NSI,NSIX+1) + * ,STR0(NSI,NSIX+1),TARG(NSI,NHA) + INTEGER ICVP(2),ICVT(2),JCVP(NFLAV,2),JCVT(NFLAV,2) + CHARACTER XFLAP*3,XFLAT*3,XFLBP*3,XFLBT*3 + SAVE +C----------------------------------------------------------------------- + R=RANGEN() + NTRY=0 + IRETHH=0 + CALL UTREMB(PROJ,TARG,2) + GOTO 9 + +9994 IRET=0 + CALL UTREST(PROJ,TARG,2) + 9 CONTINUE + DO 8 NX=1,NSIX + DO 8 N=1,NSI + SIXP(N,NX)=0. + SIXT(N,NX)=0. + 8 CONTINUE + CALL HDECMP(PROJ,SIL,SIX) + CALL UTKSIX(SIX,KMAXP) + CALL HDECMP(TARG,SIL,SIX) + CALL UTKSIX(SIX,KMAXT) + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,100) ( (PROJ(I,J),I=1,NSI), J=2,KMAXP+2 ) +100 FORMAT ( ' PROJ:',4F13.5,2F8.0/,20(' ',4F13.5,2F8.0/) ) + WRITE(IFCH,102) ( (TARG(I,J),I=1,NSI), J=2,KMAXT+2 ) +102 FORMAT ( ' TARG:',4F13.5,2F8.0/,50(' ',4F13.5,2F8.0/) ) + ENDIF + IF ( ISKIP .EQ. 1 ) GOTO 9999 + +9997 CALL HDECMP(PROJ,SILP,SIXP) + CALL HDECMP(TARG,SILT,SIXT) + 1 ICVP(1)=NINT(PROJ(5,1)) + ICVP(2)=NINT(PROJ(6,1)) + ICVT(1)=NINT(TARG(5,1)) + ICVT(2)=NINT(TARG(6,1)) + CALL HAPAPA(SILP,IFLAP,XFLAP,PTAP,PTAHP,IFLBP,XFLBP,PTBP,PTBHP + * ,NQAQP,ICVP) + CALL HAPAPA(SILT,IFLAT,XFLAT,PTAT,PTAHT,IFLBT,XFLBT,PTBT,PTBHT + * ,NQAQT,ICVT) + IF ( NQAQP*NQAQT .EQ. -1 ) GOTO 1 + +9998 NTRY=NTRY+1 + IF ( NTRY .GT. NTRYMX+1 ) THEN + ISKIP=1 + GOTO 9999 + ENDIF + + CALL HDECMP(PROJ,SILP,SIXP) + CALL HDECMP(TARG,SILT,SIXT) + CALL HASTFS(SILP,SIXP,IFLAP,XFLAP,PTAP,PTAHP + * ,SILT,SIXT,IFLBT,XFLBT,PTBT,PTBHT,STRAP,IRET,1) + IF ( IRET .EQ. 1 ) THEN + ISKIP=1 + GOTO 9999 + ENDIF + IF ( IRET .EQ. 2 ) GOTO 9997 + IF ( IRET .EQ. 3 ) THEN + IF ( XFLBP(1:2) .EQ. 'VA' ) XFLBP(1:2)='SE' + IF ( XFLAT(1:2) .EQ. 'VA' ) XFLAT(1:2)='SE' + IFLAT=IFLBT + IFLBP=IFLAP + GOTO 9998 + ENDIF + IF ( IRET .EQ. 5 ) THEN + IF ( XFLAP(1:2) .EQ. 'SE' .AND. XFLBP(1:2) .EQ. 'SE' ) THEN + IFLBP=-ABS(IFLBP) + IFLAP=IFLBP + ENDIF + IF ( XFLAT(1:2) .EQ. 'SE' .AND. XFLBT(1:2) .EQ. 'SE' ) THEN + IFLAT=-ABS(IFLAT) + IFLBT=IFLAT + ENDIF + GOTO 9998 + ENDIF + CALL HASTFS(SILT,SIXT,IFLAT,XFLAT,PTAT,PTAHT + *,SILP,SIXP,IFLBP,XFLBP,PTBP,PTBHP,STRAT,IRET,2) + IF ( IRET .EQ. 1 ) THEN + ISKIP=1 + GOTO 9999 + ENDIF + IF ( IRET .EQ. 2 ) GOTO 9997 + IF ( IRET .EQ. 3 ) THEN + IF ( XFLAP(1:2) .EQ. 'VA' ) XFLAP(1:2)='SE' + IF ( XFLBT(1:2) .EQ. 'VA' ) XFLBT(1:2)='SE' + IFLBT=IFLAT + IFLAP=IFLBP + GOTO 9998 + ENDIF + IF ( IRET .EQ. 5 ) THEN + IF ( XFLAP(1:2) .EQ. 'SE' .AND. XFLBP(1:2) .EQ. 'SE' ) THEN + IFLAP=-ABS(IFLAP) + IFLBP=IFLAP + ENDIF + IF ( XFLAT(1:2) .EQ. 'SE' .AND. XFLBT(1:2) .EQ. 'SE' ) THEN + IFLBT=-ABS(IFLBT) + IFLAT=IFLBT + ENDIF + GOTO 9998 + ENDIF + + CALL HASTFC(SILP,SIXP,IRET) + IF ( IRET .EQ. 0 ) THEN + CALL HASTFC(SILT,SIXT,IRET) + ELSEIF ( IRET .EQ. 1 ) THEN + IF ( ISH .GE. 91 ) WRITE(IFCH,*)'LIGHT STRING --> REDO HASTFS' + GOTO 9998 + ELSEIF ( IRET .EQ. 2 ) THEN + IF ( ISH .GE. 91 ) WRITE(IFCH,*)'JC>9 --> REDO HAPAPA' + GOTO 9997 + ENDIF + +9999 CONTINUE + IF ( ISKIP .EQ. 1 ) THEN + COLEVT=COLEVT-1./NCOLEX + CALL HDECMP(PROJ,SILP,SIXP) + CALL HDECMP(TARG,SILT,SIXT) + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,*)'SKIP' + CALL HASTFW(SILP,SIXP) + CALL HASTFW(SILT,SIXT) + ENDIF + ENDIF + + CALL HASTFL(SILP,SIXP,STRLP) + CALL HASTFL(SILT,SIXT,STRLT) + + IF ( ISKIP .EQ. 1 ) GOTO 9995 + + CALL IDDECO(ICVP,JCVP) + CALL IDDECO(ICVT,JCVT) + IF ( XFLAP(1:2).EQ.'VA') JCVP(IABS(IFLAP),1)=JCVP(IABS(IFLAP),1)-1 + IF ( XFLBP(1:2).EQ.'VA') JCVP(IABS(IFLBP),2)=JCVP(IABS(IFLBP),2)-1 + IF ( XFLAT(1:2).EQ.'VA') JCVT(IABS(IFLAT),1)=JCVT(IABS(IFLAT),1)-1 + IF ( XFLBT(1:2).EQ.'VA') JCVT(IABS(IFLBT),2)=JCVT(IABS(IFLBT),2)-1 + CALL IDENCO(JCVP,ICVP,IRETEN) + IF ( IRETEN .EQ. 1 ) THEN + CALL UTSTOP('HAPAPA: IDENCO RET CODE = 1 ') + ENDIF + CALL IDENCO(JCVT,ICVT,IRETEN) + IF ( IRETEN .EQ. 1 ) THEN + CALL UTSTOP('HAPAPA: IDENCO RET CODE = 1 ') + ENDIF + + PROJ(5,1)=ICVP(1) + PROJ(6,1)=ICVP(2) + TARG(5,1)=ICVT(1) + TARG(6,1)=ICVT(2) + CALL UTKSIX(SIXP,KMAXPN) + CALL UTKSIX(SIXT,KMAXTN) + IF ( KMAXPN+1 .GT. NSIX ) THEN + CALL UTSTOP('HAHABS: DIMENSION NSIX TOO SMALL ') + ENDIF + IF ( KMAXTN+1 .GT. NSIX ) THEN + CALL UTSTOP('HAHABS: DIMENSION NSIX TOO SMALL ') + ENDIF + KMXP=KMAXPN+1 + KMXT=KMAXTN+1 + DO 5 N=1,NSI + PROJ(N,2)=STRLP(N,1) + TARG(N,2)=STRLT(N,1) + DO 6 J=1,KMXP + PROJ(N,2+J)=SIXP(N,J) + 6 CONTINUE + DO 7 J=1,KMXT + TARG(N,2+J)=SIXT(N,J) + 7 CONTINUE + KPROJA(2,IPROJ)=KOL + IF ( KMAXPN .GT. KMAXP ) THEN + DO 2 K=KMAXP+1,KMAXPN + KPROJA(2+K,IPROJ)=KOL + 2 CONTINUE + ENDIF + KTARGA(2,ITARG)=KOL + IF ( KMAXTN .GT. KMAXT ) THEN + DO 3 K=KMAXT+1,KMAXTN + KTARGA(2+K,ITARG)=KOL + 3 CONTINUE + ENDIF + 5 CONTINUE + + NSTSH=0 + LEAD=0 + ISPLT=0 +11 CALL HASTPR(STRAP,ISPLT) + IF ( ISPLT .NE. 0 ) THEN + CALL UTSTOP('HAHABS: ISPLT /= 0 ') + ENDIF + ISPLT=0 +12 CALL HASTPR(STRAT,ISPLT) + IF ( ISPLT .NE. 0 ) THEN + CALL UTSTOP('HAHABS: ISPLT /= 0 ') + ENDIF + + IF ( KMAXPN .GT. KMAXP ) THEN + PROJ(3,1)=PROJ(3,1)+COORD(3,KOL) + PROJ(4,1)=PROJ(4,1)+COORD(4,KOL) + ENDIF + IF ( KMAXTN .GT. KMAXT ) THEN + TARG(3,1)=TARG(3,1)+COORD(3,KOL) + TARG(4,1)=TARG(4,1)+COORD(4,KOL) + ENDIF + KMAXP=KMAXPN + KMAXT=KMAXTN + +9995 LEAD=1 + +C WRITE LEADING STRING (PROJ) +C --------------------------- + + IF ( IAP .EQ. 1 ) THEN + + IF ( KMAXP .GT. 0 ) THEN + COOAV3=PROJ(3,1)/KMAXP + COOAV4=PROJ(4,1)/KMAXP + ELSE + COOAV3=COORD(3,KOL) + COOAV4=COORD(4,KOL) + ENDIF + CALL UTKSTR(STRLP,KMAXOR) + PZSTRL=0. + ESTRL=0. + ISEA=1 + PSUM(1)=0. + PSUM(2)=0. + PSUM(3)=0. + PSUM(4)=0. + DO 22 K=1,KMAXOR + PSUM(1)=PSUM(1)+STRLP(1,K) + PSUM(2)=PSUM(2)+STRLP(2,K) + PSUM(3)=PSUM(3)+STRLP(3,K) + PSUM(4)=PSUM(4)+STRLP(4,K) + AMPR=0. +C-C IF ( K .EQ. 1 ) AMPR=.94 + PZSTRL=PZSTRL+STRLP(3,K) + ESTRL=ESTRL+SQRT(STRLP(4,K)**2+AMPR**2) + IF (K.GE.2.AND.STRLP(5,K).GT.0..AND.STRLP(6,K).GT.0.) ISEA=0 +22 CONTINUE + PSUM(5)=PSUM(4)**2-PSUM(3)**2-PSUM(2)**2-PSUM(1)**2 + IF ( PSUM(5) .GT. 0. ) PSUM(5)=SQRT(PSUM(5)) + IF ( PZSTRL/PNLLX.GT.1.-0.850/ENGY**2.AND.ISKIP.NE.1 ) GOTO 1002 + ISTRL=0 + IF ( NSTSH .EQ. 0 .AND. ISEA .EQ. 1 .AND. + * PZSTRL/PNLLX .GT. 1.-10.000/ENGY**2 ) ISTRL=1 + DO 23 K=1,KMAXOR + DO 23 I=1,NSI + STR0(I,K)=STRLP(I,K) +23 CONTINUE + NSTR0=NSTR +17 NSTR=NSTR0 + ISPLT=0 +15 CONTINUE + DO 24 K=1,KMAXOR + DO 24 I=1,NSI + STRLP(I,K)=STR0(I,K) +24 CONTINUE +13 CALL HASTPR(STRLP,ISPLT) + IF ( ISPLT .EQ. -1 ) THEN + IF ( ISKIP .EQ. 1 ) GOTO 9996 + GOTO 9994 + ELSEIF ( ISPLT .EQ. -3 ) THEN + GOTO 15 + ELSEIF ( ISPLT .EQ. -4 ) THEN + GOTO 1001 + ELSEIF ( ISPLT .EQ. -5 ) THEN + GOTO 17 + ELSEIF ( ISPLT .GT. 0 ) THEN + GOTO 13 + ENDIF + IF ( NSTR .GT. NSTR0+1 ) THEN + PSUMX(1)=0. + PSUMX(2)=0. + PSUMX(3)=0. + PSUMX(4)=0. + DO 25 J=NSTR0+1,NSTR + PSUMX(1)=PSUMX(1)+PSTR(1,J) + PSUMX(2)=PSUMX(2)+PSTR(2,J) + PSUMX(3)=PSUMX(3)+PSTR(3,J) + PSUMX(4)=PSUMX(4)+PSTR(4,J) +25 CONTINUE + PSUMX(5)=PSUMX(4)**2-PSUMX(3)**2-PSUMX(2)**2-PSUMX(1)**2 + IF ( PSUMX(5) .GT. 0. ) PSUMX(5)=SQRT(PSUMX(5)) +C-C WRITE(6,*)' ' +C-C DO 26 J=NSTR0+1,NSTR +C-C WRITE(6,109) J,(ICSTR(K,J)/100,K=1,4) +C-C * ,SQRT(PSTR(1,J)**2+PSTR(2,J)**2),PSTR(3,J)/PNLLX,PSTR(5,J) +C-C * ,IRLSTR(J) +C-C26 CONTINUE +C-C WRITE(6,*)PSUM +C-C WRITE(6,*)PSUMX + DO 27 J=NSTR0+1,NSTR + PSTR(1,J+NSTR-NSTR0)=PSTR(1,J) + PSTR(2,J+NSTR-NSTR0)=PSTR(2,J) + PSTR(3,J+NSTR-NSTR0)=PSTR(3,J) + PSTR(4,J+NSTR-NSTR0)=PSTR(4,J) +27 CONTINUE + CALL HRESCL(NSTR0+1,NSTR,PSUM,IFAIL) + IF ( IFAIL .GT. 0 ) THEN +C-C WRITE(6,*)'RESCALE FAILED' + DO 28 J=NSTR0+1,NSTR + PSTR(1,J)=PSTR(1,J+NSTR-NSTR0) + PSTR(2,J)=PSTR(2,J+NSTR-NSTR0) + PSTR(3,J)=PSTR(3,J+NSTR-NSTR0) + PSTR(4,J)=PSTR(4,J+NSTR-NSTR0) +28 CONTINUE + ENDIF + PSUMX(1)=0. + PSUMX(2)=0. + PSUMX(3)=0. + PSUMX(4)=0. + DO 29 J=NSTR0+1,NSTR + PSUMX(1)=PSUMX(1)+PSTR(1,J) + PSUMX(2)=PSUMX(2)+PSTR(2,J) + PSUMX(3)=PSUMX(3)+PSTR(3,J) + PSUMX(4)=PSUMX(4)+PSTR(4,J) +29 CONTINUE + PSUMX(5)=PSUMX(4)**2-PSUMX(3)**2-PSUMX(2)**2-PSUMX(1)**2 + IF ( PSUMX(5) .GT. 0. ) PSUMX(5)=SQRT(PSUMX(5)) +C-C DO 30 J=NSTR0+1,NSTR +C-C WRITE(6,109) J,(ICSTR(K,J)/100,K=1,4) +C-C * ,SQRT(PSTR(1,J)**2+PSTR(2,J)**2),PSTR(3,J)/PNLLX,PSTR(5,J) +C-C * ,IRLSTR(J) +C-C30 CONTINUE +C-C WRITE(6,*)PSUM +C-C WRITE(6,*)PSUMX +109 FORMAT(' /CSTR/',I4,3X,4I5,2X,3(E10.3),I4) + ENDIF + + ENDIF + +C WRITE LEADING STRING (TARG) +C --------------------------- + + IF ( IAT .EQ. 1 ) THEN + + IF ( KMAXT .GT. 0 ) THEN + COOAV3=TARG(3,1)/KMAXT + COOAV4=TARG(4,1)/KMAXT + ELSE + COOAV3=COORD(3,KOL) + COOAV4=COORD(4,KOL) + ENDIF + CALL UTKSTR(STRLT,KMAXOR) + PZSTRL=0. + ESTRL=0. + ISEA=1 + PSUM(1)=0. + PSUM(2)=0. + PSUM(3)=0. + PSUM(4)=0. + DO 33 K=1,KMAXOR + PSUM(1)=PSUM(1)+STRLT(1,K) + PSUM(2)=PSUM(2)+STRLT(2,K) + PSUM(3)=PSUM(3)+STRLT(3,K) + PSUM(4)=PSUM(4)+STRLT(4,K) + AMPR=0. +C-C IF ( K .EQ. 1 ) AMPR=.94 + PZSTRL=PZSTRL+STRLT(3,K) + ESTRL=ESTRL+SQRT(STRLT(4,K)**2+AMPR**2) + IF ( K.GE.2.AND.STRLT(5,K).GT.0..AND.STRLT(6,K).GT.0. ) ISEA=0 +33 CONTINUE + PSUM(5)=PSUM(4)**2-PSUM(3)**2-PSUM(2)**2-PSUM(1)**2 + IF ( PSUM(5) .GT. 0. ) PSUM(5)=SQRT(PSUM(5)) + IF ( -PZSTRL/PNLLX.GT.1.-0.850/ENGY**2.AND.ISKIP.NE.1 )GOTO 1002 + ISTRL=0 + IF ( NSTSH .EQ. 0 .AND. ISEA .EQ. 1 .AND. + * -PZSTRL/PNLLX .GT. 1.-10.000/ENGY**2 ) ISTRL=1 + DO 34 K=1,KMAXOR + DO 34 I=1,NSI + STR0(I,K)=STRLT(I,K) +34 CONTINUE + NSTR0=NSTR +18 NSTR=NSTR0 + ISPLT=0 +16 CONTINUE + DO 35 K=1,KMAXOR + DO 35 I=1,NSI + STRLT(I,K)=STR0(I,K) +35 CONTINUE +14 CALL HASTPR(STRLT,ISPLT) + IF ( ISPLT .EQ. -1 ) THEN + IF ( ISKIP .EQ. 1 ) GOTO 9996 + GOTO 9994 + ELSEIF ( ISPLT .EQ. -3 ) THEN + GOTO 16 + ELSEIF ( ISPLT .EQ. -4 ) THEN + GOTO 1001 + ELSEIF ( ISPLT .EQ. -5 ) THEN + GOTO 18 + ELSEIF ( ISPLT .GT. 0 ) THEN + GOTO 14 + ENDIF + IF ( NSTR .GT. NSTR0+1 ) THEN + PSUMX(1)=0. + PSUMX(2)=0. + PSUMX(3)=0. + PSUMX(4)=0. + DO 36 J=NSTR0+1,NSTR + PSUMX(1)=PSUMX(1)+PSTR(1,J) + PSUMX(2)=PSUMX(2)+PSTR(2,J) + PSUMX(3)=PSUMX(3)+PSTR(3,J) + PSUMX(4)=PSUMX(4)+PSTR(4,J) +36 CONTINUE + PSUMX(5)=PSUMX(4)**2-PSUMX(3)**2-PSUMX(2)**2-PSUMX(1)**2 + IF ( PSUMX(5) .GT. 0. ) PSUMX(5)=SQRT(PSUMX(5)) +C-C WRITE(6,*)' ' +C-C DO 37 J=NSTR0+1,NSTR +C-C WRITE(6,109) J,(ICSTR(K,J)/100,K=1,4) +C-C * ,SQRT(PSTR(1,J)**2+PSTR(2,J)**2),PSTR(3,J)/PNLLX,PSTR(5,J) +C-C * ,IRLSTR(J) +C-C37 CONTINUE +C-C WRITE(6,*)PSUM +C-C WRITE(6,*)PSUMX + DO 38 J=NSTR0+1,NSTR + PSTR(1,J+NSTR-NSTR0)=PSTR(1,J) + PSTR(2,J+NSTR-NSTR0)=PSTR(2,J) + PSTR(3,J+NSTR-NSTR0)=PSTR(3,J) + PSTR(4,J+NSTR-NSTR0)=PSTR(4,J) +38 CONTINUE + CALL HRESCL(NSTR0+1,NSTR,PSUM,IFAIL) + IF ( IFAIL .GT. 0 ) THEN +C-C WRITE(6,*)'RESCALE FAILED' + DO 39 J=NSTR0+1,NSTR + PSTR(1,J)=PSTR(1,J+NSTR-NSTR0) + PSTR(2,J)=PSTR(2,J+NSTR-NSTR0) + PSTR(3,J)=PSTR(3,J+NSTR-NSTR0) + PSTR(4,J)=PSTR(4,J+NSTR-NSTR0) +39 CONTINUE + ENDIF + PSUMX(1)=0. + PSUMX(2)=0. + PSUMX(3)=0. + PSUMX(4)=0. + DO 40 J=NSTR0+1,NSTR + PSUMX(1)=PSUMX(1)+PSTR(1,J) + PSUMX(2)=PSUMX(2)+PSTR(2,J) + PSUMX(3)=PSUMX(3)+PSTR(3,J) + PSUMX(4)=PSUMX(4)+PSTR(4,J) +40 CONTINUE + PSUMX(5)=PSUMX(4)**2-PSUMX(3)**2-PSUMX(2)**2-PSUMX(1)**2 + IF ( PSUMX(5) .GT. 0. ) PSUMX(5)=SQRT(PSUMX(5)) +C-C DO 41 J=NSTR0+1,NSTR +C-C WRITE(6,109) J,(ICSTR(K,J)/100,K=1,4) +C-C * ,SQRT(PSTR(1,J)**2+PSTR(2,J)**2),PSTR(3,J)/PNLLX,PSTR(5,J) +C-C * ,IRLSTR(J) +C-C41 CONTINUE +C-C WRITE(6,*)PSUM +C-C WRITE(6,*)PSUMX + ENDIF + + ENDIF + +C EXIT +C ---- + + IF ( ISH .LT. 91 ) RETURN + + WRITE(IFCH,100) ( (PROJ(I,J),I=1,NSI), J=2,KMAXP+2 ) + WRITE(IFCH,102) ( (TARG(I,J),I=1,NSI), J=2,KMAXT+2 ) +101 FORMAT ( ' ',I3,'. TRIAL') + RETURN + +9996 CONTINUE + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'SKIP IMPOSSIBLE, STRL CANT BE STORED' + ENDIF + ISKIP=2 + RETURN + +1001 CONTINUE + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*) + * 'SR HAHABS: NOT JUSTIFIED COMPLETE ABSORPTION -> IRETHH=1' + ENDIF + IRETHH=1 + IF ( ISKIP .EQ. 1 ) GOTO 9996 + RETURN + +1002 CONTINUE + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'SR HAHABS: TOO FAST MULTI-STRING -> IRETHH=1' + ENDIF + IRETHH=1 + IF ( ISKIP .EQ. 1 ) THEN + CALL UTSTOP('HAHABS: ISKIP=1 SHOULD NOT HAPPEN ') + ENDIF + RETURN + END +C======================================================================= + + SUBROUTINE HAPAPA(SIL,IFLA,XFLA,PTA,PTAH,IFLB,XFLB,PTB,PTBH,NQAQ + *,ICV) + +C----------------------------------------------------------------------- +C DETERMINES MOMENTA AND FLAVOR OF PARTICIPATING PARTONS IN A HADRON +C----------------------------------------------------------------------- + PARAMETER (NFLAV=6) + PARAMETER (NPTQ=129) + PARAMETER (NSI=6) + PARAMETER (NSTRU=2049) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CEVT/ BIMEVT,COLEVT,EGYEVT,PHIEVT,PMXEVT + * ,KOLEVT,NEVT,NPJEVT,NTGEVT + COMMON /CNEW/ KOTRI,NEWCOL,NEWICO + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CPTQ/ QPTH(NPTQ),QPTQ(NPTQ),XPTQ(NPTQ),QPTQMX,QPTHMX + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + REAL PROBAB(NFLAV),PROBSU(NFLAV+1),SIL(NSI) + INTEGER ICV(2),ID(2),JC(NFLAV,2),JCV(NFLAV,2) + CHARACTER CHPT*1,XFLA*3,XFLB*3 + SAVE +C----------------------------------------------------------------------- + SGN=SIGN(1.,SIL(3)) + IF ( SGN .GT. 0. ) THEN + QVALC=QVAPC + QSEAC=QSEPC + CHPT='P' + W=WPROJ + ELSE + QVALC=QVATC + QSEAC=QSETC + CHPT='T' + W=WTARG + ENDIF + CALL IDDECO(ICV,JCV) + NVQ=0 + NVA=0 + DO 12 I=1,NFLAV + IF ( ISH.GE.0 .AND. (JCV(I,1).LT.0.OR.JCV(I,2).LT.0) ) THEN + CALL UTMSG('HAHABS') + WRITE(IFCH,*)'***** NEGATIVE JCV' + WRITE(IFCH,*)'JCV:' + WRITE(IFCH,*)JCV + CALL UTMSGF + ENDIF + NVQ=NVQ+JCV(I,1) + NVA=NVA+JCV(I,2) +12 CONTINUE + ID(1)=NINT(SIL(4+1)) + ID(2)=NINT(SIL(4+2)) + CALL IDDECO(ID,JC) + NQU=0 + NAQ=0 + DO 11 I=1,NFLAV + NQU=NQU+JC(I,1) + NAQ=NAQ+JC(I,2) +11 CONTINUE + NEQ=NQU-NAQ + +C DETERMINE NQAQ,IVAL1,IVAL2 +C -------------------------- + NQAQ=0 + IVAL=0 + IF ( RANGEN() .GT. W ) THEN + IF ( NEQ .GT. NEQMN ) THEN + PQ=1. + ELSE + PQ=0. + ENDIF + IF ( NEQ .LT. NEQMX ) THEN + PA=1. + ELSE + PA=0. + ENDIF + SUM=(NVQ*PQ+NVA*PA*IAQU)*QVALC+QSEAC*.5*(PQ+PA*IAQU) + IF ( SUM .EQ. 0. ) GOTO 14 + SUMI = 1./SUM + PVQ=NVQ*PQ*QVALC*SUMI + PVA=NVA*PA*IAQU*QVALC*SUMI + PSQ=.5*PQ*QSEAC*SUMI + PSA=.5*PA*IAQU*QSEAC*SUMI + R=RANGEN() + IF ( R .LT. PVQ+PVA ) IVAL=1 + NQAQ=-1 + IF ( IVAL .EQ. 1 .AND. R .LT. PVQ ) NQAQ=1 + IF ( IVAL .EQ. 0 .AND. R .LT. PVQ+PVA+PSQ ) NQAQ=1 + IF ( NQU-NAQ-NQAQ .LT. NEQMN ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('HAPAPA') + WRITE(IFCH,*)'***** NEQ < NEQMN' + WRITE(IFCH,*)'PVQ/A PSQ/A:',PVQ,PVA,PSQ,PSA + WRITE(IFCH,*)'NQAQ:',NQAQ + CALL UTMSGF + ENDIF + NQAQ=0 + ENDIF + IF ( NQU-NAQ-NQAQ .GT. NEQMX ) THEN + IF ( ISH .GE. 90 ) THEN + IF ( ISH .GE. 91 ) WRITE(IFCH,*)' ' + CALL UTMSG('HAPAPA') + WRITE(IFCH,*)'***** NEQ > NEQMX' + WRITE(IFCH,*)'PVQ/A PSQ/A:',PVQ,PVA,PSQ,PSA + WRITE(IFCH,*)'NQAQ:',NQAQ + IF ( ISH .GE. 91 ) WRITE(IFCH,*)' ' + ENDIF + NQAQ=0 + ENDIF + IF ( NQU-NAQ-NQAQ .LT. NEQMN ) THEN + CALL UTSTOP('HAPAPA: NEQ.LT.NEQMN ') + ENDIF + IF ( NQU-NAQ-NQAQ .GT. NEQMX ) THEN + CALL UTSTOP('HAPAPA: NEQ.GT.NEQMX ') + ENDIF + ENDIF +14 CONTINUE + IVAL1=IVAL + IVAL2=IVAL + IF ( NQAQ .EQ. 0 ) THEN + IVAL1=0 + SUM=NVQ*QVALC+QSEAC*.5 + IF ( SUM .EQ. 0. ) GOTO 15 + SUMI = 1./SUM + PVQ=NVQ*QVALC*SUMI + PSQ=.5*QSEAC*SUMI + R=RANGEN() + IF ( R .LT. PVQ ) IVAL1=1 +15 CONTINUE +C-C IF ( NVQ.GT.0 .AND. RANGEN().LT.PVALEN ) IVAL1=1 + IVAL2=0 + SUM=NVA*IAQU*QVALC+QSEAC*.5*IAQU + IF ( SUM .EQ. 0. ) GOTO 16 + SUMI = 1./SUM + PVA=NVA*IAQU*QVALC*SUMI + PSA=.5*IAQU*QSEAC*SUMI + R=RANGEN() + IF ( R .LT. PVA ) IVAL2=1 +16 CONTINUE +C-C IF ( NVA.GT.0 .AND. RANGEN().LT.PVALEN ) IVAL2=1 + IF ( IVAL1 .EQ. 1 .AND. IVAL2 .EQ. 1 ) THEN + R=RANGEN() + IF ( R .LT. 0.5 ) THEN + IVAL1=0 + ELSE + IVAL2=0 + ENDIF + ENDIF + ENDIF + +C QUARK +C ----- + XFLA='---' + IF ( NQAQ .GE. 0 ) THEN + IF ( IVAL1 .EQ. 1 ) THEN + PROBAB(1)=JCV(1,1) + PROBAB(2)=JCV(2,1) + PROBAB(3)=JCV(3,1) + PROBAB(4)=JCV(4,1) + SU=PROBAB(1)+PROBAB(2)+PROBAB(3)+PROBAB(4) + XFLA='VA'//CHPT + ELSE + PROBAB(1)=1. + PROBAB(2)=1. + PROBAB(3)=RSTRAS + PROBAB(4)=0. + SU=2.+PROBAB(3) + XFLA='SE'//CHPT + ENDIF + PROBSU(1)=0. + PROBSU(2)=1./SU*PROBAB(1) + PROBSU(3)=1./SU*PROBAB(2)+PROBSU(2) + PROBSU(4)=1./SU*PROBAB(3)+PROBSU(3) + PROBSU(5)=1./SU*PROBAB(4)+PROBSU(4) + R=RANGEN() + IF ( R .LE. PROBSU(2) ) THEN + IFLA=1 + ELSEIF ( R .LE. PROBSU(3) ) THEN + IFLA=2 + ELSEIF ( R .LE. PROBSU(4) ) THEN + IFLA=3 + ELSE + IFLA=4 + ENDIF + R=RANGEN() + IF ( IOPTQ .EQ. 2 ) THEN + PTA = SQRT( -4.*PTQ**2/PI * LOG(1.-R*QPTQMX) ) + ELSEIF ( IOPTQ .EQ. 3 ) THEN + PTA = PTQ*SQRT( QPTQMX*R/(1.-QPTQMX*R) ) + ELSE + PTA=UTINVT(NPTQ,XPTQ,QPTQ,R*QPTQ(NPTQ)) + ENDIF + PTAH=PTH*SQRT( 1./SQRT(1.-2.*PTH**2*RANGEN()*QPTHMX) - 1. ) + ENDIF + +C ANTIQUARK +C --------- + XFLB='---' + IF ( NQAQ .LE. 0 ) THEN + IF ( IVAL2 .EQ. 1 ) THEN + PROBAB(1)=JCV(1,2) + PROBAB(2)=JCV(2,2) + PROBAB(3)=JCV(3,2) + PROBAB(4)=JCV(4,2) + SU=PROBAB(1)+PROBAB(2)+PROBAB(3)+PROBAB(4) + XFLB='VA'//CHPT + ELSE + PROBAB(1)=1. + PROBAB(2)=1. + PROBAB(3)=RSTRAS + SU=2.+RSTRAS + PROBAB(4)=0. + XFLB='SE'//CHPT + ENDIF + PROBSU(1)=0. + PROBSU(2)=1./SU*PROBAB(1) + PROBSU(3)=1./SU*PROBAB(2)+PROBSU(2) + PROBSU(4)=1./SU*PROBAB(3)+PROBSU(3) + PROBSU(5)=1./SU*PROBAB(4)+PROBSU(4) + R=RANGEN() + IF ( R .LE. PROBSU(2) ) THEN + IFLB=1 + ELSEIF ( R .LE. PROBSU(3) ) THEN + IFLB=2 + ELSEIF ( R .LE. PROBSU(4) ) THEN + IFLB=3 + ELSE + IFLB=4 + ENDIF + IF ( NQAQ.EQ.0 .AND. IVAL1.EQ.0 .AND. IVAL2.EQ.0 ) IFLB=IFLA +C-C IF ( NQAQ.EQ.0 .AND. IVAL2.EQ.0 ) IFLB=IFLA +C-C IF ( NQAQ.EQ.0 .AND. IVAL1.EQ.0 ) IFLA=IFLB + R=RANGEN() + IF ( IOPTQ .EQ. 2 ) THEN + PTB = SQRT( -4.*PTQ**2/PI * LOG(1.-QPTQMX*R) ) + ELSEIF ( IOPTQ .EQ. 3 ) THEN + PTB = PTQ*SQRT( QPTQMX*R/(1.-QPTQMX*R) ) + ELSE + PTB=UTINVT(NPTQ,XPTQ,QPTQ,R*QPTQ(NPTQ)) + ENDIF + PTBH=PTH*SQRT( 1./SQRT(1.-2.*PTH**2*RANGEN()*QPTHMX) - 1. ) + ENDIF + + IF ( NQAQ.EQ.0 .AND. IVAL1.EQ.0 .AND. IVAL2.EQ.0 ) THEN + IFLA=-IFLA + IFLB=-IFLB + ENDIF + + RETURN + END +C======================================================================= + + SUBROUTINE HASI(QAQ,SIL,IFL,XFL,PT0,PT0H,SI,IRET,JORD,IXFLAB + * ,PTDIFF) + +C----------------------------------------------------------------------- +C DETERMINES STRING INGREDIENTS (=JETS) +C IRET=0: OK +C IRET=1: REMNANT CHANGES DIRECTION +C IRET=2: JC(,)=10 +C----------------------------------------------------------------------- + PARAMETER (NFLAV=6) + PARAMETER (NSI=6) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + REAL PTDIFF(2),SI(NSI),SIL(NSI) + INTEGER IC(2),ID(2),JC(NFLAV,2) + CHARACTER QAQ*5,XFL*3 + SAVE +C----------------------------------------------------------------------- + IRET=0 + IRETX=0 + NTRY=0 + PTDIFF(1)=0. + PTDIFF(2)=0. + IFLA=ABS(IFL) + IF ( XFL .EQ. '000' ) THEN + DO 11 J=3,NSI + SI(J)=0. +11 CONTINUE + ELSE + DO 10 J=1,NSI + SI(J)=0. +10 CONTINUE + ENDIF + IF ( XFL .EQ. '---' ) GOTO 1000 + IF ( JORD .EQ. 1 ) THEN + IF ( QAQ .EQ. 'QUARK' ) THEN + AMS=AMPROJ + ELSEIF ( QAQ .EQ. 'ANTIQ' ) THEN + AMS=AMTARG + ENDIF + ELSEIF ( JORD .EQ. 2 ) THEN + IF ( QAQ .EQ. 'ANTIQ' ) THEN + AMS=AMPROJ + ELSEIF ( QAQ .EQ. 'QUARK' ) THEN + AMS=AMTARG + ENDIF + ENDIF +C-C ENLL=SQRT(AMS**2+PNLLX**2) + ENLL=SIL(4) + SGN=SIGN(1.,SIL(3)) + IF ( RANGEN() .LE. PHARD ) THEN + IHARD=1 + ELSE + IHARD=0 + ENDIF + ID(1)=NINT(SIL(4+1)) + ID(2)=NINT(SIL(4+2)) + CALL IDDECO(ID,JC) +9999 NTRY=NTRY+1 + IF ( NTRY .GT. 20 ) THEN + IRET=1 + GOTO 1000 + ENDIF + IF ( IHARD .EQ. 0 ) THEN + PT=PT0 + IF ( PT .GT. ENLL ) PT=RANGEN()*ENLL + ENMIN=0. + ELSE + PT=PT0H + IF ( PT .GT. ENLL ) PT=RANGEN()*ENLL + ENMIN=PT + ENDIF + PTFULL=PT + LO=0 +51 LO=LO+1 + IF ( XFL .EQ. '000' ) THEN + EN=0. + PT=0. + ELSE + EN=RANSTC(XFL,ENMIN/ENLL)*ENLL + ENDIF + IF ( PT .GT. EN ) THEN + IF ( RANGEN() .LT. 0.5 .AND. LO .LE. 10 ) GOTO 51 + PT=RANGEN()*EN + ENDIF + PHI=2.*PI*RANGEN() + IF ( XFL .NE. '000' ) THEN + SI(1)=PT*COS(PHI) + SI(2)=PT*SIN(PHI) + SI(3)=SGN*SQRT(EN**2-PT**2) + IF ( SI(1).EQ.0. .AND. SI(2).EQ.0. .AND. SI(3).EQ.0. ) THEN + IRETX=1 + IRET=1 + GOTO 1000 + ENDIF +C-C PTDIFF(1)=(PTFULL-PT)*COS(PHI) +C-C PTDIFF(2)=(PTFULL-PT)*SIN(PHI) + ENDIF + IF ( (SIL(3)-SI(3))*SIL(3) .LT. 0. ) THEN + IF ( ISH .GE. 94 ) WRITE(IFCH,*)'SIL,SI,ENLL,EN',SIL,SI,ENLL,EN + GOTO 9999 + ENDIF + SI(4)=SQRT(SI(1)**2+SI(2)**2+SI(3)**2) + IF ( QAQ .EQ. 'QUARK' ) THEN + SI(5)=10**(NFLAV-IFLA) + ELSEIF ( QAQ .EQ. 'ANTIQ' ) THEN + SI(6)=10**(NFLAV-IFLA) + ENDIF + + IF ( IXFLAB .EQ. 0 ) THEN + SIL(1)=SIL(1)-SI(1) + SIL(2)=SIL(2)-SI(2) + SIL(3)=SIL(3)-SI(3) + SIL(4)=SQRT(SIL(1)**2+SIL(2)**2+SIL(3)**2) + ENDIF + + IF ( JC(IFLA,1) .GT. 0 ) THEN + L1=1 + ELSE + L1=0 + ENDIF + IF ( JC(IFLA,2) .GT. 0 ) THEN + L2=1 + ELSE + L2=0 + ENDIF + IF ( QAQ .EQ. 'QUARK' ) THEN + IF ( L1 .EQ. 0 ) THEN + JC(IFLA,2)=JC(IFLA,2)+1 + ELSE + JC(IFLA,1)=JC(IFLA,1)-1 + ENDIF + ELSEIF ( QAQ .EQ. 'ANTIQ' ) THEN + IF ( L2 .EQ. 0 ) THEN + JC(IFLA,1)=JC(IFLA,1)+1 + ELSE + JC(IFLA,2)=JC(IFLA,2)-1 + ENDIF + ENDIF + IF ( JC(IFLA,1) .EQ. 10 .OR. JC(IFLA,2) .EQ. 10 ) GOTO 9998 + CALL IDENCO(JC,IC,IRETEN) + IF ( IRETEN .EQ. 1 ) THEN + CALL UTSTOP('HASI : IDENCO RET CODE = 1 ') + ENDIF + SIL(5)=IC(1) + SIL(6)=IC(2) + GOTO 1000 + +9998 IRET=2 + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('HASI ') + WRITE(IFCH,*)'***** JC(,)=10' + WRITE(IFCH,*)JC + CALL UTMSGF + ENDIF + +1000 CONTINUE + IF ( ISH .GE. 90 .AND. IRETX .EQ. 1 ) THEN + CALL UTMSG('HASI ') + WRITE(IFCH,*)'***** SI(1/2/3)=0' + WRITE(IFCH,*)SI + CALL UTMSGF + ENDIF + IF ( ISH .GE. 93 ) THEN + IF ( IRET .NE. 0 .OR. NTRY .GT. 1 ) + * WRITE(IFCH,*)'IRET=',IRET,' NTRY=',NTRY + IF ( NTRY .GT. 0 ) THEN + WRITE(IFCH,100)XFL,PT0,PT,EN,EN/ENLL +100 FORMAT(' HASI: XFL=',A3 + * ,' PT0=',E10.3,' PT=',E10.3,' EN=',E10.3,' X=',E10.3) + ELSEIF ( NTRY .EQ. 0 ) THEN + WRITE(IFCH,101)XFL +101 FORMAT(1X,'HASI: XFL=',A3) + ENDIF + ENDIF + RETURN + END +C======================================================================= + + SUBROUTINE HASTFC(SIL,SIX,IRET) + +C----------------------------------------------------------------------- +C CHECKS LONG STRINGS +C IRET=0: OK +C IRET=1: MASS .LT. MINIMAL MASS +C IRET=2: JC(,) .GT. 9 +C----------------------------------------------------------------------- + PARAMETER (NFLAV=6) + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CNCE/ NCES,NCOLEX + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + REAL SI(NSI),SIL(NSI),SIX(NSI,NSIX) + INTEGER IC(2),JC(NFLAV,2),JCP(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + IRET=0 + + CALL UTKSIX(SIX,KMAX) + IF ( KMAX .LT. 1 ) GOTO 9000 + + SI(1)=SIL(1) + SI(2)=SIL(2) + SI(3)=SIL(3) + SI(4)=SIL(4) + DO 110 K=1,KMAX + SI(1)=SI(1)+SIX(1,K) + SI(2)=SI(2)+SIX(2,K) + SI(3)=SI(3)+SIX(3,K) + SI(4)=SI(4)+SIX(4,K) +110 CONTINUE + S=SI(4)**2-SI(1)**2-SI(2)**2-SI(3)**2 + + IC(1)=NINT(SIL(5)) + IC(2)=NINT(SIL(6)) + CALL IDDECO(IC,JC) + DO 130 K=1,KMAX + IC(1)=NINT(ABS(SIX(5,K))) + IC(2)=NINT(ABS(SIX(6,K))) + CALL IDDECO(IC,JCP) + DO 120 I=1,NFLAV + JC(I,1)=JC(I,1)+JCP(I,1) + JC(I,2)=JC(I,2)+JCP(I,2) +120 CONTINUE +130 CONTINUE + + DO 125 I=1,NFLAV + IF ( JC(I,1)-JC(I,2) .GE. 10 ) IRET=2 + IF ( JC(I,1)-JC(I,2) .LE. -10 ) IRET=2 +125 CONTINUE + + IF ( IRET .EQ. 2 ) GOTO 9000 + + KEU=JC(1,1)-JC(1,2) + KED=JC(2,1)-JC(2,2) + KES=JC(3,1)-JC(3,2) + KEC=JC(4,1)-JC(4,2) + AMIN=UTAMNU(KEU,KED,KES,KEC,4)*0.5 + +C-C IF ( S .LT. AMIN**2 ) IRET=1 + +9000 CONTINUE + + IF ( ISH .GE. 94 ) THEN + WRITE(IFCH,*)' ' + IF ( IRET .EQ. 0 ) THEN + WRITE(IFCH,*)('-',L=1,79) + ELSE + WRITE(IFCH,*)('#',L=1,79) + ENDIF + WRITE(IFCH,*)'IRET= ',IRET ,' KMAX= ',KMAX,' NREVT= ',NREVT + * ,' NCES= ',NCES + WRITE(IFCH,8004)SIL +8004 FORMAT(' SIL: ',4F13.5,2F8.0) + IF ( KMAX .GT. 0 ) THEN + WRITE(IFCH,8007)(SIX(I,1),I=1,NSI) +8007 FORMAT(' SIX: ',4F13.5,2F8.0) + IF ( KMAX .GT. 1 ) THEN + DO 1 J=2,KMAX + WRITE(IFCH,8008)(SIX(I,J),I=1,NSI) + 1 CONTINUE +8008 FORMAT(' ',4F13.5,2F8.0) + ENDIF + WRITE(IFCH,8005)(SI(I),I=1,4) +8005 FORMAT(' SI: ',4F13.5) + WRITE(IFCH,8006)(SI(I)**2,I=1,4) +8006 FORMAT(' SI^2:',4F13.5) + WRITE(IFCH,*)'JC:' + WRITE(IFCH,*)JC + WRITE(IFCH,*)'KEU,KED,KES,KEC: ',KEU,KED,KES,KEC + WRITE(IFCH,*)'S= ',S,' AMIN**2= ',AMIN**2,' AMIN= ',AMIN + ENDIF + IF ( IRET .NE. 0 ) THEN + WRITE(IFCH,*)('#',L=1,79) + ELSE + WRITE(IFCH,*)('-',L=1,79) + ENDIF + WRITE(IFCH,*)' ' + ENDIF + + IF ( IRET .NE. 0 ) RETURN + IF ( ISH .GE. 91 ) CALL HASTFW (SIL,SIX) + RETURN + END +C======================================================================= + + SUBROUTINE HASTFL(SIL,SIX,STRL) + +C----------------------------------------------------------------------- +C FORMS A LEADING STRING +C----------------------------------------------------------------------- + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + + REAL SIL(NSI),SIX(NSI,NSIX),STRL(NSI,NSIX+1) + SAVE +C----------------------------------------------------------------------- + DO 100 N=1,NSI + STRL(N,1)=SIL(N) + STRL(N,2)=0. +100 CONTINUE + CALL UTKSIX(SIX,KMAX) + IF ( KMAX .EQ. 0 ) RETURN + DO 111 K=1,KMAX + DO 110 N=1,NSI + STRL(N,K+1)=SIX(N,K) +110 CONTINUE +111 CONTINUE + DO 120 N=1,NSI + STRL(N,KMAX+2)=0. +120 CONTINUE + RETURN + END +C======================================================================= + + SUBROUTINE HASTFR(SILA,SILB,SIA,SIB,IRET) + +C----------------------------------------------------------------------- +C SUBTRACTS SIA-SIB FROM SILA-SILB (ONLY MOMENTUM COMPONENTS) +C----------------------------------------------------------------------- + PARAMETER (NSI=6) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + DOUBLE PRECISION A,B,D,DAUXIL,PAB(4),PAM,PAP,PA3,PA4 + * ,PEM,PEP,PIM,PIP,PI3,PI4,PLAB(4) + * ,POT,POX,POY,PUT,PUX,PUY,PYM,PYP,SLA + * ,SSIA(NSI),SSIB(NSI),SSILA(NSI),SSILB(NSI) + REAL SIA(NSI),SIB(NSI),SILA(NSI),SILB(NSI) + SAVE +C----------------------------------------------------------------------- + IRET=0 + DO 12 I=1,4 + SSILB(I)=SILB(I) + SSILA(I)=SILA(I) + PLAB(I)=SSILA(I)+SSILB(I) + SSIB(I)=SIB(I) + SSIA(I)=SIA(I) + PAB(I)=SSIA(I)+SSIB(I) +12 CONTINUE + SLA=SIGN(1.D0, SSILA(3)) + + IF ( ISH.GE.0 .AND. SSIA(3)*SSILA(3) .LT. 0.D0 ) THEN + CALL UTMSG('HASTFR') + WRITE(IFCH,*)'***** SSIA(3)*SSILA(3)<0' + WRITE(IFCH,*)SSIA(3),SSILA(3) + CALL UTMSGF + ENDIF + + A=0.D0 + D=0.D0 + PYP=0.D0 + PYM=0.D0 + PIP=0.D0 + PAM=0.D0 + + POX=SSILA(1)-SSIA(1) + POY=SSILA(2)-SSIA(2) + POT=SQRT(POX**2+POY**2) + PUX=SSILB(1)-SSIB(1) + PUY=SSILB(2)-SSIB(2) + PUT=SQRT(PUX**2+PUY**2) + DAUXIL = SLA*(PLAB(3)-PAB(3)) + PEP= PLAB(4)-PAB(4) + DAUXIL + PEM= PLAB(4)-PAB(4) - DAUXIL + IF ( PEP .LT. 0.D0 ) GOTO 9001 + IF ( PEM .LT. 0.D0 ) GOTO 9001 + A=(PEM*PEP-PUT**2-POT**2)*0.5D0 + D=PUT*POT + DAUXIL = A**2 - D**2 + IF ( DAUXIL .LT. 0.D0 ) GOTO 9001 + B=SQRT(DAUXIL) + PYP=(A+PUT**2-B)/PEM + PYM=(A+POT**2-B)/PEP + IF ( PYP .LT. 0.D0 ) GOTO 9001 + IF ( PYM .LT. 0.D0 ) GOTO 9001 + PIP=PEP-PYP + IF ( PIP .LT. 0.D0 ) GOTO 9001 + PIM=PYM + PAP=PYP + PAM=PEM-PYM + IF ( PAM .LT. 0.D0 ) GOTO 9001 + PI3=(PIP-PIM)*0.5D0*SLA + PI4=(PIP+PIM)*0.5D0 + PA3=(PAP-PAM)*0.5D0*SLA + PA4=(PAP+PAM)*0.5D0 + IF ( PI3*SSILA(3) .LT. 0.D0 ) GOTO 9001 + IF ( PA3*SSILB(3) .LT. 0.D0 ) GOTO 9001 + SSILA(1)=POX + SSILA(2)=POY + SSILA(3)=PI3 + SSILA(4)=PI4 + SSILB(1)=PUX + SSILB(2)=PUY + SSILB(3)=PA3 + SSILB(4)=PA4 + + DO 13 I=1,4 + SILA(I)=SSILA(I) + SILB(I)=SSILB(I) + SIA(I)=SSIA(I) + SIB(I)=SSIB(I) +13 CONTINUE + + IF ( ISH .LT. 90 ) GOTO 9000 + + IF ( ABS(PIP*PIM-POT**2) .GT. 1.D-4 ) THEN + CALL UTMSG('HASTFR') + WRITE(IFCH,*)'***** PIP*PIM /= POT**2' + WRITE(IFCH,*)'PIP*PIM=',PIP*PIM + WRITE(IFCH,*)'POT**2=',POT**2 + WRITE(IFCH,*)'PIP=',PIP + WRITE(IFCH,*)'PIM=',PIM + WRITE(IFCH,*)'POT=',POT + CALL UTMSGF + ENDIF + IF ( ABS(PAP*PAM-PUT**2) .GT. 1.D-4 ) THEN + CALL UTMSG('HASTFR') + WRITE(IFCH,*)'***** PAP*PAM /= PUT**2' + WRITE(IFCH,*)'PAP*PAM=',PAP*PAM + WRITE(IFCH,*)'PUT**2=',PUT**2 + WRITE(IFCH,*)'PAP=',PAP + WRITE(IFCH,*)'PAM=',PAM + WRITE(IFCH,*)'PUT=',PUT + CALL UTMSGF + ENDIF + IF ( ABS(SSILA(4)**2 + * -SSILA(1)**2-SSILA(2)**2-SSILA(3)**2) .GT. 1.D-4 ) THEN + CALL UTMSG('HASTFR') + WRITE(IFCH,*)'***** MASS**2 OF SSILA NONZERO' + WRITE(IFCH,*)'MASS**2=',SSILA(4)**2 + * -SSILA(1)**2-SSILA(2)**2-SSILA(3)**2 + CALL UTMSGF + ENDIF + IF ( ABS(SSILB(4)**2 + * -SSILB(1)**2-SSILB(2)**2-SSILB(3)**2) .GT. 1.D-4 ) THEN + CALL UTMSG('HASTFR') + WRITE(IFCH,*)'***** MASS**2 OF SSILB NONZERO' + WRITE(IFCH,*)'MASS**2=',SSILB(4)**2 + * -SSILB(1)**2-SSILB(2)**2-SSILB(3)**2 + CALL UTMSGF + ENDIF + DO 14 N=1,4 + IF ( ABS(PLAB(N) + * -SSILA(N)-SSILB(N)-SSIA(N)-SSIB(N)) .GT. 1.D-4 ) GOTO 15 +14 CONTINUE + GOTO 16 +15 CONTINUE + CALL UTMSG('HASTFR') + WRITE(IFCH,*)'***** SSILA+SSILB /= SSILA_NEW+SSILB_NEW+SSIA+SSIB' + WRITE(IFCH,*)'SSILA_OLD+SSILB_OLD:' + WRITE(IFCH,*)PLAB + WRITE(IFCH,*)'SSILA_NEW+SSILB_NEW+SSIA+SSIB:' + WRITE(IFCH,*)((SSILA(K)+SSILB(K)+SSIA(K)+SSIB(K)),K=1,4) + WRITE(IFCH,*)'SSILA_NEW:' + WRITE(IFCH,*)(SSILA(N),N=1,4) + WRITE(IFCH,*)'SSILB_NEW:' + WRITE(IFCH,*)(SSILB(N),N=1,4) + WRITE(IFCH,*)'SSIA:' + WRITE(IFCH,*)(SSIA(N),N=1,4) + WRITE(IFCH,*)'SSIB:' + WRITE(IFCH,*)(SSIB(N),N=1,4) + CALL UTMSGF +16 CONTINUE + +9000 RETURN + +9001 IRET=1 + IF ( ISH .LT. 90 ) RETURN + CALL UTMSG('HASTFR') + WRITE(IFCH,*)'STRING SUBTRACTION NOT POSSIBLE' + WRITE(IFCH,*)'SNGL(SSILA):' + WRITE(IFCH,*)(SNGL(SSILA(N)),N=1,4) + WRITE(IFCH,*)'SNGL(SSILB):' + WRITE(IFCH,*)(SNGL(SSILB(N)),N=1,4) + WRITE(IFCH,*)'SNGL(SSIA):' + WRITE(IFCH,*)(SNGL(SSIA(N)),N=1,4) + WRITE(IFCH,*)'SNGL(SSIB):' + WRITE(IFCH,*)(SNGL(SSIB(N)),N=1,4) + WRITE(IFCH,*)'PEP,PEM:',PEP,PEM + WRITE(IFCH,*)'POT,PUT:',POT,PUT + WRITE(IFCH,*)'A,D:',A,D + WRITE(IFCH,*)'A**2-D**2:',A**2-D**2 + WRITE(IFCH,*)'PYP,PYM:',PYP,PYM + WRITE(IFCH,*)'PIP,PAM:',PIP,PAM + WRITE(IFCH,*)'PI3,SILA(3):',PI3,SILA(3) + WRITE(IFCH,*)'PA3,SILB(3):',PA3,SILB(3) + CALL UTMSGF + RETURN + END +C======================================================================= + + SUBROUTINE HASTFS(SILA,SIXA,IFLA,XFLA,PTA,PTAH + * ,SILB,SIXB,IFLB,XFLB,PTB,PTBH ,STR,IRET ,JORD) + +C----------------------------------------------------------------------- +C FORMS A SHORT (=Q-QBAR) STRING +C IRET=0: OK +C IRET=1: IN SR HASI: REMNANT CHANGES DIRECTION OR ZERO SI(). +C IRET=2: IN SR HASI: JC(,)=10 . +C IRET=3: STRING MASS TOO SMALL. NOT 4 , 5 . +C IRET=4: STRING MASS TOO SMALL. EQUAL FLAVOUR,ZERO MOMENTUM,XFL='000'. +C IRET=5: STRING MASS TOO SMALL. VALENCE QUARKS INVOLVED. +C----------------------------------------------------------------------- + PARAMETER (NPTQ=129) + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CPTQ/ QPTH(NPTQ),QPTQ(NPTQ),XPTQ(NPTQ),QPTQMX,QPTHMX + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + REAL PTDIFF(2),SIA(NSI),SIB(NSI),SILA(NSI),SILB(NSI) + * ,SIXA(NSI,NSIX),SIXB(NSI,NSIX),STR(NSI,NSIX+1),STS(NSI,2) + CHARACTER XFLA*3,XFLB*3 + SAVE +C----------------------------------------------------------------------- + DO 50 N=1,NSI + STR(N,1)=0. + STR(N,2)=0. + STR(N,3)=0. +50 CONTINUE + + CALL UTKSIX(SIXA,KMAXA) + CALL UTKSIX(SIXB,KMAXB) + + R=RANGEN() + IF ( IOPTQ .EQ. 2 ) THEN + PT = SQRT( -4.*PTQ**2/PI * LOG(1.-QPTQMX*R) ) + ELSEIF ( IOPTQ .EQ. 3 ) THEN + PT = PTQ*SQRT( QPTQMX*R/(1.-QPTQMX*R) ) + ELSE + PT=UTINVT(NPTQ,XPTQ,QPTQ,R*QPTQ(NPTQ)) + ENDIF + PHI=2.*PI*RANGEN() + SIA(1)=PT*COS(PHI) + SIB(1)=-SIA(1) + SIA(2)=PT*SIN(PHI) + SIB(2)=-SIA(2) + + IXFLAB=0 + IF ( XFLA.NE.'---' .AND. XFLB.NE.'---' .AND. + * (XFLA .NE. '000' .OR. XFLB .NE. '000') ) IXFLAB=1 + CALL HASI('QUARK',SILA,IFLA,XFLA,PTA,PTAH,SIA,IRET,JORD,IXFLAB + * ,PTDIFF) + IF ( IRET .EQ. 1 ) GOTO 9001 + IF ( IRET .EQ. 2 ) GOTO 9002 + SILA(1)=SILA(1)-PTDIFF(1) + SILA(2)=SILA(2)-PTDIFF(2) + SILB(1)=SILB(1)+PTDIFF(1) + SILB(2)=SILB(2)+PTDIFF(2) + CALL HASI('ANTIQ',SILB,IFLB,XFLB,PTB,PTBH,SIB,IRET,JORD,IXFLAB + * ,PTDIFF) + IF ( IRET .EQ. 1 ) GOTO 9001 + IF ( IRET .EQ. 2 ) GOTO 9002 + SILB(1)=SILB(1)-PTDIFF(1) + SILB(2)=SILB(2)-PTDIFF(2) + SILA(1)=SILA(1)+PTDIFF(1) + SILA(2)=SILA(2)+PTDIFF(2) + IF ( SILA(5) .EQ. 0. .AND. SILA(6) .EQ. 0. ) THEN + SILA(5)=100000. + SILA(6)=100000. + ENDIF + IF ( SILB(5) .EQ. 0. .AND. SILB(6) .EQ. 0. ) THEN + SILB(5)=100000. + SILB(6)=100000. + ENDIF + IF ( XFLA .EQ. '000' .AND. XFLB .EQ. '000' ) THEN + GOTO 9003 + ELSEIF ( XFLA .NE. '---' .AND. XFLB .NE. '---' ) THEN + CALL HASTFR(SILA,SILB,SIA,SIB,IRET) + IF ( IRET .EQ. 1 ) GOTO 9003 + DO 65 N=1,NSI + STS(N,1)=SIA(N) + STS(N,2)=SIB(N) +65 CONTINUE + CALL UTAMST(STS,AM,AMIN,IRET) + IF ( IRET .NE. 0 ) GOTO 9003 + DO 70 N=1,NSI + STR(N,1)=SIA(N) + STR(N,2)=SIB(N) +70 CONTINUE + ELSEIF ( XFLA .NE. '---' .AND. XFLB .EQ. '---' ) THEN + IF ( KMAXB+1 .GT. NSIX ) THEN + CALL UTSTOP('HASTFS: NSIX TOO SMALL ') + ENDIF + DO 60 N=1,NSI + SIXB(N,KMAXB+1)=SIA(N) + IF ( KMAXB+2 .LE. NSIX ) SIXB(N,KMAXB+2)=0. +60 CONTINUE + IF ( IFLA .LT. 0 ) THEN + SIXB(5,KMAXB+1)=-SIXB(5,KMAXB+1) + SIXB(6,KMAXB+1)=-SIXB(6,KMAXB+1) + ENDIF + KMAXB=KMAXB+1 + ELSEIF ( XFLA .EQ. '---' .AND. XFLB .NE. '---' ) THEN + IF ( KMAXA+1 .GT. NSIX ) THEN + CALL UTSTOP('HASTFS: NSIX TOO SMALL ') + ENDIF + DO 80 N=1,NSI + SIXA(N,KMAXA+1)=SIB(N) + IF ( KMAXA+2 .LE. NSIX ) SIXA(N,KMAXA+2)=0. +80 CONTINUE + IF ( IFLB .LT. 0 ) THEN + SIXA(5,KMAXA+1)=-SIXA(5,KMAXA+1) + SIXA(6,KMAXA+1)=-SIXA(6,KMAXA+1) + ENDIF + KMAXA=KMAXA+1 + ELSEIF ( XFLA .EQ. '---' .AND. XFLB .EQ. '---' ) THEN +C NO ACTION + ELSE + CALL UTSTOP('HASTFS: IF/ELSE ERROR ') + ENDIF + +9000 IRET=0 + IF ( ISH .GE. 91 ) WRITE(IFCH,102)SIA,XFLA,SIB,XFLB +102 FORMAT(' SIA: ',4F13.5,2F8.0,2X,A3 + * /' SIB: ',4F13.5,2F8.0,2X,A3) + RETURN + +9001 IRET=1 + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,102)SIA,XFLA,SIB,XFLB + WRITE(IFCH,*)'REMNANT CHANGES DIRECTION' + WRITE(IFCH,*)' OR ZERO SI(1/2/3)' + WRITE(IFCH,*)' ' + ENDIF + RETURN + +9002 IRET=2 +C JC(,)=10 + IF ( ISH .GE. 91 ) WRITE(IFCH,102)SIA,XFLA,SIB,XFLB + RETURN + +9003 IRET=3 + IF ( XFLA(1:2) .EQ. 'VA' .OR. XFLB(1:2) .EQ. 'VA' ) GOTO 9005 + WT=ABS(SIA(1)+SIB(1))+ABS(SIA(2)+SIB(2)) + * +ABS(SIA(3)+SIB(3)) + IF ( ABS(IFLA).EQ.ABS(IFLB) .AND. WT.LT.1.E-3 + * .AND. XFLA.EQ.'000' .AND. XFLB.EQ.'000' ) GOTO 9004 + IFLB=SIGN( IABS(IFLA), IFLB) + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,102)SIA,XFLA,SIB,XFLB + WRITE(IFCH,*)'STRING MASS TOO SMALL (3)' + WRITE(IFCH,*)' ' + ENDIF + XFLA='000' + XFLB='000' + RETURN + +9004 IRET=4 + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,102)SIA,XFLA,SIB,XFLB + WRITE(IFCH,*)'STRING MASS TOO SMALL (4)' + WRITE(IFCH,*)' ' + ENDIF + RETURN + +9005 IRET=5 + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,102)SIA,XFLA,SIB,XFLB + WRITE(IFCH,*)'STRING MASS TOO SMALL (5)' + WRITE(IFCH,*)' ' + ENDIF + XFLA(1:2)='SE' + XFLB(1:2)='SE' + RETURN + END +C======================================================================= + + SUBROUTINE HASTFW(SIL,SIX) + +C----------------------------------------------------------------------- + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + REAL SIL(NSI),SIX(NSI,NSIX) + SAVE +C----------------------------------------------------------------------- + CALL UTKSIX(SIX,KMAX) + WRITE(IFCH,103)SIL,((SIX(I,J),I=1,NSI),J=1,KMAX) +103 FORMAT(/' SIL: ',4F13.5,2F8.0/,' SIX: ',4F13.5,2F8.0/ + *,50(' ',4F13.5,2F8.0/)) + RETURN + END +C======================================================================= + + SUBROUTINE HASTPR(STRO,ISPLT) + +C----------------------------------------------------------------------- +C PROCESSES A STRING +C OUT: ISPLT=0 : PROCESSING OF STRO FINISHED +C >0 : HASTPR TO BE REDONE TO PROCESS REDUCED STRING +C -1 : ERROR +C -3 : HASTPR TO BE REDONE WITH NEW EPART,APART +C -4 : HAHA COLLISION TO BE REDONE BEC OF TOO FAST LD PTL +C (ONLY FOR ICHOIC=2) +C -5 : HASTPR TO BE REDONE BECAUSE OF PRODUCED S=3/2 PARTICLE +C----------------------------------------------------------------------- + PARAMETER (KOLLMX=2500) + PARAMETER (MAMX=56) + PARAMETER (MXPTL=70000) + PARAMETER (MXSTR=3000) + PARAMETER (NDEP=129) + PARAMETER (NDET=129) + PARAMETER (NFLAV=6) + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + PARAMETER (NHA=NSIX+2) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CEVT/ BIMEVT,COLEVT,EGYEVT,PHIEVT,PMXEVT + * ,KOLEVT,NEVT,NPJEVT,NTGEVT + COMMON /CJSPLI/ ALEAD,APART,ELEAD,EPART,SGNSIL,JPART,NSCC,NSCCX + COMMON /CKOL/ KOL + COMMON /CLEAD/ COOAV3,COOAV4,LEAD + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CNSUC/ NSUC + COMMON /COL/ BIMP,BMAX,COORD(4,KOLLMX),DISTCE(KOLLMX) + * ,QDEP(NDEP),QDET14(NDET),QDET16(NDET),QDET40(NDET) + * ,QDET99(NDET),RMPROJ,RMTARG(4),XDEP(NDEP) + * ,XDET14(NDET),XDET16(NDET),XDET40(NDET) + * ,XDET99(NDET) + * ,KOLL,LTARG,NORD(KOLLMX),NPROJ,NRPROJ(KOLLMX) + * ,NRTARG(KOLLMX),NTARG + COMMON /CPROJA/ IPROJ,ITARG,KPROJA(NHA,MAMX),KTARGA(NHA,MAMX) + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /CPZSTR/ ESTRL,PZSTRL,ISEA,ISTRL + COMMON /CSTR/ PSTR(5,MXSTR),ROTSTR(3,MXSTR),XORSTR(4,MXSTR) + * ,ICSTR(4,MXSTR),IORSTR(MXSTR),IRLSTR(MXSTR),NSTR + COMMON /CSTSH/ NSTSH + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + DOUBLE PRECISION DAUXIL,PPE,PPM,PPP,PPX,PPY,PPZ,PP1(4),PP2(4) + REAL P1(4),P2(4),STR(NSI,2),STRO(NSI,NSIX+1) + INTEGER IC(2),IC1(2),IC1X(2),IC2(2) + * ,JC(NFLAV,2),JC1(NFLAV,2),JC2(NFLAV,2) + * ,JC3(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + IF ( ISPLT .EQ. -3 ) THEN + JPART=1 + ISPLT=0 + ELSEIF ( ISPLT .EQ. 0 ) THEN + JPART=0 + ENDIF + ISPLT0=ISPLT + + CALL UTKSTR(STRO,KMAX) + +C ZERO STRING +C ----------- + IF ( KMAX .EQ. 0 ) THEN + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,*)'ZERO STRING' + WRITE(IFCH,*)' ' + ENDIF + ISPLT=0 + RETURN + ENDIF + +C PRINT +C ----- + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,105)(STRO(I,1),I=1,4),(NINT(STRO(I,1)),I=5,6) +105 FORMAT(' STR: ',4F13.5,2I8) + IF ( KMAX .GT. 1 ) THEN + DO 8 K=2,KMAX + WRITE(IFCH,104)(STRO(I,K),I=1,4),(NINT(STRO(I,K)),I=5,6) +104 FORMAT(' ',4F13.5,2I8) + 8 CONTINUE + ENDIF + WRITE(IFCH,*)' ' + ENDIF + +C CHECK LEADING OBJECT +C -------------------- + IC1(1)=NINT(STRO(4+1,1)) + IC1(2)=NINT(STRO(4+2,1)) + CALL IDCOMP(IC1,IC1X,JC3,1) + STRO(4+1,1)=IC1X(1) + STRO(4+2,1)=IC1X(2) + CALL IDDECO(IC1X,JC1) + NPA=0 + DO 7 N=1,NFLAV + NPA=NPA+JC1(N,1)+JC1(N,2) + 7 CONTINUE + +C SPLIT STRING +C ------------ + IF ( KMAX .GT. 2 .OR. KMAX.EQ.2 .AND. ISPLT.GT.0 + * .OR. KMAX.EQ.2 .AND. NPA.GT.3 + * .OR. KMAX.EQ.2 .AND. LEAD.EQ.1 ) THEN + IF ( ISPLT .EQ. 0 ) THEN + NSUC=0 + KMAXOR=KMAX + IF ( STRO(3,1) .LT. 0. ) THEN + SGNSIL=-1 + ELSE + SGNSIL=1 + ENDIF + DO 17 N=1,NFLAV + JC2(N,1)=0 + JC2(N,2)=0 +17 CONTINUE + DO 15 K=1,KMAX + IC1(1)=NINT(ABS(STRO(4+1,K))) + IC1(2)=NINT(ABS(STRO(4+2,K))) + CALL IDDECO(IC1,JC1) + DO 16 N=1,NFLAV + JC2(N,1)=JC2(N,1)+JC1(N,1) + JC2(N,2)=JC2(N,2)+JC1(N,2) + IF ( N .GT. 4 .AND. (JC2(N,1).NE.0 .OR. + * JC2(N,2) .NE. 0) ) THEN + CALL UTSTOP('HASTPR: FLAVOUR > 4 ') + ENDIF +16 CONTINUE +15 CONTINUE + KEU=JC2(1,1)-JC2(1,2) + KED=JC2(2,1)-JC2(2,2) + KES=JC2(3,1)-JC2(3,2) + KEC=JC2(4,1)-JC2(4,2) + ALEAD=UTAMNU(KEU,KED,KES,KEC,0) +C-C ALEAD=0. + ELEAD=STRO(4,1) + IF ( JPART .EQ. 0 ) THEN + NSCCX=KMAXOR-1 + NSTR0=NSTR + ELSE + NSCCX=MAX(1,NSCC) + NSTR=NSTR0 + ENDIF + APART=ALEAD/NSCCX + EPART=ELEAD/NSCCX + IF ( ALEAD .GT. ELEAD ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('HASTPR') + WRITE(IFCH,*)'***** ALEAD > ELEAD ==> RET CODE = -1' + WRITE(IFCH,*)'ALEAD=',ALEAD,' ELEAD=',ELEAD + CALL UTMSGF + ENDIF + ISPLT=-1 + RETURN + ENDIF + ENDIF + CALL JSPLIT(STRO,STR,KOLSP,IER,KMAXOR) + IF ( IER .EQ. 1 ) THEN + ISPLT=-1 + RETURN + ELSEIF ( IER .EQ. 3 ) THEN + ISPLT=-3 + RETURN + ENDIF + ISPLT=ISPLT+1 + IF ( IER .EQ. 2 ) THEN + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,*)'MULTISTRING: ABSORPTION OF ONE LEG' + WRITE(IFCH,*)' ' + ENDIF + RETURN + ENDIF + KOLZ=KOLSP + IF ( KOLZ .LT. 1 .OR. KOLZ .GT. KOLLMX ) THEN + WRITE(IFCH,*)'KOLZ=',KOLZ + CALL UTSTOP('HASTPR: KOLZ OUT OF RANGE (1) ') + ENDIF + KIN=1 + ELSE + IF ( ISPLT .GT. 0 ) THEN + KIN=1 + ELSE + KIN=0 + ENDIF + DO 5 N=1,NSI + IF ( N .LE. 4 ) THEN + STR(N,1)=STRO(N,1) + STR(N,2)=STRO(N,2) + ELSE + STR(N,1)=ABS(STRO(N,1)) + STR(N,2)=ABS(STRO(N,2)) + ENDIF + 5 CONTINUE + IF ( ISPLT .GT. 0 ) THEN + IF ( SGNSIL .LT. 0. ) THEN + KOLZ=KTARGA(2,ITARG) + ELSE + KOLZ=KPROJA(2,IPROJ) + ENDIF + ELSEIF ( LEAD .EQ. 1 .AND. KMAX .EQ. 2 ) THEN + IF ( STR(3,1) .LT. 0. ) THEN + KOLZ=KTARGA(2,ITARG) + ELSE + KOLZ=KPROJA(2,IPROJ) + ENDIF + ELSE + KOLZ=KOL + ENDIF + IF ( KOLZ .LT. 1 .OR. KOLZ .GT. KOLLMX ) THEN + IF(ISH.GE.90)THEN + CALL UTMSG('HASTPR') + WRITE(IFCH,*)'***** KOLZ OUT OF RANGE; KOLZ:',KOLZ + * ,' SET TO:',KOL + WRITE(IFCH,105)(STR(I,1),I=1,4),(NINT(STR(I,1)),I=5,6) + WRITE(IFCH,104)(STR(I,2),I=1,4),(NINT(STR(I,2)),I=5,6) + CALL UTMSGF + ENDIF + KOLZ=KOL + ENDIF + ISPLT=0 + ENDIF + +C ADD TWO JETS +C ------------ + IC1(1)=NINT(STR(4+1,1)) + IC1(2)=NINT(STR(4+2,1)) + IC2(1)=NINT(STR(4+1,2)) + IC2(2)=NINT(STR(4+2,2)) + IA1=IC1(1)+IC1(2) + IA2=IC2(1)+IC2(2) + IF ( IA1 .EQ. 0 .AND. IA2 .EQ. 0 ) THEN + WRITE(IFCH,*)'STRO:' + WRITE(IFCH,105)(STRO(I,1),I=1,4),(NINT(STRO(I,1)),I=5,6) + IF ( KMAX .GT. 1 ) THEN + DO 18 K=2,KMAX + WRITE(IFCH,104)(STRO(I,K),I=1,4),(NINT(STRO(I,K)),I=5,6) +18 CONTINUE + ENDIF + WRITE(IFCH,*)'STR:' + WRITE(IFCH,105)(STR(I,1),I=1,4),(NINT(STR(I,1)),I=5,6) + WRITE(IFCH,104)(STR(I,2),I=1,4),(NINT(STR(I,2)),I=5,6) + CALL UTSTOP('HASTPR: STR=0 ') + ENDIF + CALL IDDECO(IC1,JC1) + CALL IDDECO(IC2,JC2) + N1=0 + N2=0 + DO 9 N=1,NFLAV + N1=N1+JC1(N,1)+JC1(N,2) + N2=N2+JC2(N,1)+JC2(N,2) + JC(N,1)=JC1(N,1)+JC2(N,1) + JC(N,2)=JC1(N,2)+JC2(N,2) + IF ( N .GT. 4 .AND. (JC(N,1) .NE. 0 .OR. + * JC(N,2) .NE. 0) ) THEN + CALL UTSTOP ('HASTPR: FLAVOUR > 4 ') + ENDIF + 9 CONTINUE + KEU=JC(1,1)-JC(1,2) + KED=JC(2,1)-JC(2,2) + KES=JC(3,1)-JC(3,2) + KEC=JC(4,1)-JC(4,2) + AMSTR=UTAMNU(KEU,KED,KES,KEC,6) + CALL IDENCO(JC,IC,IRETEN) + IF ( IRETEN .EQ. 1 ) THEN + CALL UTSTOP('HASTPR: IDENCO RET CODE = 1 ') + ENDIF + IDSTR=IDTRA(IC,0,0,3) + +C DETERMINE ROT +C ------------- + PP1(1)=STR(1,1) + PP1(2)=STR(2,1) + PP1(3)=STR(3,1) + PP1(4)=STR(4,1) + PP2(1)=STR(1,2) + PP2(2)=STR(2,2) + PP2(3)=STR(3,2) + PP2(4)=STR(4,2) + PPX=PP1(1)+PP2(1) + PPY=PP1(2)+PP2(2) + PPZ=PP1(3)+PP2(3) + PPP=SQRT(PPX**2+PPY**2+PPZ**2) + IF ( IA1 .NE. 0 .AND. IA2 .NE. 0 ) THEN + PP1(4)=SQRT(PP1(1)**2+PP1(2)**2+PP1(3)**2) + PP2(4)=SQRT(PP2(1)**2+PP2(2)**2+PP2(3)**2) + PPE=PP1(4)+PP2(4) + PPM=SQRT((PPE-PPP)*(PPE+PPP)) + CALL UTLOB2(1,PPX,PPY,PPZ,PPE,PPM,PP1(1),PP1(2),PP1(3),PP1(4)) + CALL UTLOB2(1,PPX,PPY,PPZ,PPE,PPM,PP2(1),PP2(2),PP2(3),PP2(4)) + ELSE + PPE=PP1(4)+PP2(4) + DAUXIL=(PPE-PPP)*(PPE+PPP) + IF ( DAUXIL .GT. 0.D0 ) THEN + PPM=SQRT(DAUXIL) + ELSE + PPM=0.D0 + PPE=PPP + ENDIF + PP1(1)=0.D0 + PP1(2)=0.D0 + PP1(3)=0.D0 + PP1(4)=0.D0 + PP2(1)=0.D0 + PP2(2)=0.D0 + PP2(3)=0.D0 + PP2(4)=0.D0 + ENDIF + PX=PPX + PY=PPY + PZ=PPZ + E=PPE + AM=PPM + P=PPP + P1(1)=PP1(1) + P1(2)=PP1(2) + P1(3)=PP1(3) + P1(4)=PP1(4) + P2(1)=PP2(1) + P2(2)=PP2(2) + P2(3)=PP2(3) + P2(4)=PP2(4) + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,107)(P1(I),I=1,4),IC1 + WRITE(IFCH,107)(P2(I),I=1,4),IC2 +107 FORMAT(' JET: ',4F13.5,2I8) + WRITE(IFCH,*)' ' + ENDIF +CDH IF ( P1(3) .NE. 0. ) THEN +CDH DIRCN=SIGN(1.,P1(3)) +CDH ELSE +CDH DIRCN=1. +CDH ENDIF + +C MASS ADJUSTMENT +C --------------- + AM0=AM + CALL IDRES(IDSTR,AM,IDSTRR,IADJ) + +C DIFFRACTIVE PARTICLE: +C-C IF ( (IA1.EQ.0.OR.IA2.EQ.0) .AND. ISPLT0.EQ.0 ) THEN +C-C IF ( MOD(IDSTRR,10).EQ.0 .AND. RANGEN().LT.0.1 ) THEN +C-C AM=0. +C-C CALL IDRES(IDSTR,AM,IDSTRR,IADJ) +C-C AM=AM+.300 +C-C CALL IDRES(IDSTR,AM,IDSTRR,IADJ) +C-C ENDIF +C-C ENDIF + +C REMNANT: + IF ( (IA1.EQ.0 .OR. IA2.EQ.0) .AND. ISPLT0.GT.0 ) THEN + IF ( NSUC .GT. 0 ) THEN + AM=0. + CALL IDRES(IDSTR,AM,IDSTRR,IADJ) + IF ( N1+N2 .EQ. 2 ) THEN + IF ( RANGEN() .LT. 0.33 ) AM=AM+0.400 + ELSEIF ( MOD(IDSTRR,10) .EQ. 0 ) THEN + IF ( RANGEN() .LT. 0.33 ) AM=AM+0.300 + ELSE + IF ( RANGEN() .GT. 0.33 ) THEN + ISPLT=-5 + RETURN + ENDIF + ENDIF + CALL IDRES(IDSTR,AM,IDSTRR,IADJ) + +C ALL LEGS ABSORBED + ELSEIF ( NSUC .EQ. 0 ) THEN + IF ( ISEA .EQ. 0 ) THEN + ISPLT=-4 + RETURN + ENDIF + AM=0. + IF ( ISTRL .EQ. 1 ) THEN + AM=SQRT(ENGY**2*(1-ABS(PZSTRL)/PNLLX)+.94**2 ) + ELSE + CALL IDRES(IDSTR,AM,IDSTRR,IADJ) + IF ( MOD(IDSTRR,10) .EQ. 0 ) THEN + AM=AM+RANGEN() + ELSE + AM=AM+RANGEN()-0.30 + ENDIF +C-C IF ( MOD(IDSTRR,10).EQ.0.AND.RANGEN().LT.0.33 ) AM=AM+0.30 + ENDIF + CALL IDRES(IDSTR,AM,IDSTRR,IADJ) + ENDIF + ENDIF + +C LEADING STRING = HADRON: + IF ( LEAD.EQ.1 .AND. IA1.NE.0 .AND.IA2.NE.0 + * .AND. ISPLT0.EQ.0 .AND. ISPLT.EQ.0 .AND. IDSTRR.NE.0 ) THEN + AM=0. + CALL IDRES(IDSTR,AM,IDSTRR,IADJ) + IF ( MOD(IDSTRR,10).EQ.0 .AND. RANGEN().LT.0.33 ) AM=AM+0.300 + CALL IDRES(IDSTR,AM,IDSTRR,IADJ) + ENDIF + + IDSTR=IDSTRR + IF ( IDSTR .EQ. 0 .AND. AM .LT. AMSTR ) AM=AMSTR + PPM=AM + E=SQRT(PPP**2+PPM**2) + +C WRITE /CSTR/ +C ------------ + NSTR=NSTR+1 + IF ( NSTR .GT. MXSTR ) THEN + CALL UTSTOP('HASTPR: NSTR>MXSTR ') + ENDIF + IF ( LEAD .EQ. 0 ) NSTSH=1 + NSUC=NSUC+1 + IRLSTR(NSTR)=NSUC + IF ( ISPLT0 .EQ. 0 .AND. ISPLT .EQ. 0 ) IRLSTR(NSTR)=0 + ICSTR(1,NSTR)=IC1(1) + ICSTR(2,NSTR)=IC1(2) + ICSTR(3,NSTR)=IC2(1) + ICSTR(4,NSTR)=IC2(2) + PSTR(1,NSTR)=PX + PSTR(2,NSTR)=PY + PSTR(3,NSTR)=PZ + PSTR(4,NSTR)=E + PSTR(5,NSTR)=AM + ROTSTR(1,NSTR)=P1(1) + ROTSTR(2,NSTR)=P1(2) + ROTSTR(3,NSTR)=P1(3) + IF ( P1(1) .EQ. 0. .AND. P1(2) .EQ. 0. .AND. P1(3) .EQ. 0. ) + * ROTSTR(3,NSTR)=1. + XORSTR(1,NSTR)=COORD(1,KOLZ) + XORSTR(2,NSTR)=COORD(2,KOLZ) + XORSTR(3,NSTR)=COORD(3,KOLZ) + XORSTR(4,NSTR)=COORD(4,KOLZ) + IORSTR(NSTR)=-KOLZ + AMSAC=AMSAC+AM + IF ( ISH .GE. 91 ) THEN + IF ( ISPLT .GT. 0 ) THEN + WRITE(IFCH,*)'SPLIT OFF STRING:' + ELSEIF ( ISPLT0 .GT. 0 ) THEN + WRITE(IFCH,*)'REMAINDER:' + ELSEIF ( LEAD .EQ. 1 ) THEN + WRITE(IFCH,*)'ORDINARY BARYONIC STRING:' + ELSE + WRITE(IFCH,*)'ORDINARY MESONIC STRING:' + ENDIF + WRITE(IFCH,106)NSTR,(ICSTR(K,NSTR)/100,K=1,4) + * ,(PSTR(I,NSTR),I=3,5) +106 FORMAT(/' /CSTR/',I4,3X,4I5,2X,3(E10.3)/) + ENDIF + + RETURN + END +C======================================================================= + + SUBROUTINE HDECMP(BAR,SIL,SIX) + +C----------------------------------------------------------------------- +C DECOMPOSES BAR INTO SIL,SIX +C----------------------------------------------------------------------- + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + PARAMETER (NHA=NSIX+2) + REAL BAR(NSI,NHA),SIL(NSI),SIX(NSI,NSIX) + SAVE +C----------------------------------------------------------------------- + DO 1 N=1,NSI + SIL(N)=BAR(N,2) + 1 CONTINUE + DO 3 M=1,NSIX + SIXSQR=0. + DO 2 N=1,NSI + SIX(N,M)=BAR(N,2+M) + SIXSQR=SIXSQR+SIX(N,M)**2 + 2 CONTINUE + IF ( SIXSQR .LE. 1.E-5 ) RETURN + 3 CONTINUE + RETURN + END +C======================================================================= + + SUBROUTINE HRESCL(J1,J2,PSUM,IFAIL) + +C----------------------------------------------------------------------- +C RESCALES STRING MOMENTA OF STRINGS J1-J2 TO HAVE TOTAL MOM PSUM. +C----------------------------------------------------------------------- + PARAMETER (MXSTR=3000) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CSTR/ PSTR(5,MXSTR),ROTSTR(3,MXSTR),XORSTR(4,MXSTR) + * ,ICSTR(4,MXSTR),IORSTR(MXSTR),IRLSTR(MXSTR),NSTR + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + DOUBLE PRECISION PADD(5),PP(5),PPSUM(5) + REAL PSUM(5) + DATA ERRLIM /.001/ + SAVE +C----------------------------------------------------------------------- + IFAIL=1 + + PPSUM(1)=PSUM(1) + PPSUM(2)=PSUM(2) + PPSUM(3)=PSUM(3) + PPSUM(4)=PSUM(4) + PPSUM(5)=PSUM(5) + + IF ( J1 .GE. J2 ) THEN + CALL UTSTOP('HRESCL: J1 .GE. J2 ') + ENDIF + + PADD(1)=0.D0 + PADD(2)=0.D0 + PADD(3)=0.D0 + PADD(4)=0.D0 + PADD(5)=0.D0 + DO 110 J=J1,J2 + PADD(1)=PADD(1)+PSTR(1,J) + PADD(2)=PADD(2)+PSTR(2,J) + PADD(3)=PADD(3)+PSTR(3,J) + PADD(4)=PADD(4)+PSTR(4,J) + PADD(5)=PADD(5)+PSTR(5,J) +110 CONTINUE + IF ( PADD(5) .GE. PPSUM(5) ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('HRESCL') + WRITE(IFCH,*)'***** SUM OF STR MASSES .GE. PSUM(5)' + DO 1 J=J1,J2 + WRITE(IFCH,109)J,(ICSTR(K,J)/100,K=1,4) + * ,(PSTR(L,J),L=3,5) +109 FORMAT(' /CSTR/',I4,3X,4I5,2X,3(E10.3)) + 1 CONTINUE + WRITE(IFCH,*)'PPSUM(345):',(SNGL(PPSUM(K)),K=3,5) + CALL UTMSGF + ENDIF + RETURN + ENDIF + PADD(5)=PADD(4)**2-PADD(1)**2-PADD(2)**2-PADD(3)**2 + IF ( PADD(5) .LE. 0.D0 ) THEN + DO 2 J=J1,J2 + WRITE(IFCH,108)J,(PSTR(L,J),L=1,5) +108 FORMAT(' /CSTR/',I4,2X,5(E10.3)) + 2 CONTINUE + CALL UTSTOP('HRESCL: MASS**2 OF STRING-SUM NEGATIVE ') + ENDIF + PADD(5)=SQRT(PADD(5)) + +C BOOST STRINGS TO REST +C --------------------- + DO 115 J=J1,J2 + PP(1)=PSTR(1,J) + PP(2)=PSTR(2,J) + PP(3)=PSTR(3,J) + PP(4)=PSTR(4,J) + CALL UTLOB2(1,PADD(1),PADD(2),PADD(3),PADD(4),PADD(5) + * ,PP(1),PP(2),PP(3),PP(4)) + PSTR(1,J)=PP(1) + PSTR(2,J)=PP(2) + PSTR(3,J)=PP(3) + PSTR(4,J)=PP(4) +115 CONTINUE + +C RESCALE MOMENTA IN REST FRAME +C ----------------------------- + SCAL=1. + DO 301 IPASS=1,200 + SUM=0. + DO 310 J=J1,J2 + PSTR(1,J)=SCAL*PSTR(1,J) + PSTR(2,J)=SCAL*PSTR(2,J) + PSTR(3,J)=SCAL*PSTR(3,J) + PSTR(4,J)=SQRT(PSTR(1,J)**2+PSTR(2,J)**2+PSTR(3,J)**2 + * +PSTR(5,J)**2) + SUM=SUM+PSTR(4,J) +310 CONTINUE + SCAL=PSUM(5)/SUM + IF ( ABS(SCAL-1.) .LE. ERRLIM ) GOTO 300 +301 CONTINUE + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('HRESCL') + WRITE(IFCH,*)'***** SCAL=',SCAL + CALL UTMSGF + ENDIF +300 CONTINUE + +C BOOST BACK WITH PPSUM +C --------------------- + DO 315 J=J1,J2 + PP(1)=PSTR(1,J) + PP(2)=PSTR(2,J) + PP(3)=PSTR(3,J) + PP(4)=PSTR(4,J) + CALL UTLOB2(-1,PPSUM(1),PPSUM(2),PPSUM(3),PPSUM(4),PPSUM(5) + * ,PP(1),PP(2),PP(3),PP(4)) + PSTR(1,J)=PP(1) + PSTR(2,J)=PP(2) + PSTR(3,J)=PP(3) + PSTR(4,J)=PP(4) +315 CONTINUE + + IFAIL=0 + RETURN + END +C======================================================================= + + SUBROUTINE IDCOMJ(JC) + +C----------------------------------------------------------------------- +C COMPACTIFIES JC +C----------------------------------------------------------------------- + PARAMETER (NFLAV=6) + INTEGER IC(2),ICX(2),JC(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + CALL IDCOMP(IC,ICX,JC,2) + RETURN + END +C======================================================================= + + SUBROUTINE IDCOMK(IC) + +C----------------------------------------------------------------------- +C COMPACTIFIES IC +C----------------------------------------------------------------------- + PARAMETER (NFLAV=6) + INTEGER IC(2),ICX(2),JC(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + CALL IDCOMP(IC,ICX,JC,1) + IC(1)=ICX(1) + IC(2)=ICX(2) + RETURN + END +C======================================================================= + + SUBROUTINE IDCOMP(IC,ICX,JC,IM) + +C----------------------------------------------------------------------- +C COMPACTIFIES IC,JC +C INPUT: IM (1 OR 2) +C IC (IF IM=1) +C JC (IF IM=2) +C OUTPUT: ICX (IF IM=1) +C JC +C----------------------------------------------------------------------- + PARAMETER (NFLAV=6) + INTEGER IC(2),ICX(2),JC(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + IF ( IM .EQ. 1 ) CALL IDDECO(IC,JC) + ICX(1)=0 + ICX(2)=0 + DO 2 N=1,NFLAV + IF ( JC(N,1) .NE. 0 .OR. JC(N,2) .NE. 0 ) GOTO 1 + 2 CONTINUE + RETURN + 1 L=0 + DO 3 N=1,NFLAV + K=MIN(JC(N,1),JC(N,2)) + JC(N,1)=JC(N,1)-K + JC(N,2)=JC(N,2)-K + IF ( JC(N,1) .LT. 0 .OR. JC(N,2) .LT. 0 ) THEN + CALL UTSTOP('IDCOMP: JC NEGATIVE ') + ENDIF + L=L+JC(N,1)+JC(N,2) + 3 CONTINUE + IF ( L .EQ. 0 ) THEN + JC(1,1)=1 + JC(1,2)=1 + ENDIF + IF ( IM .EQ. 1 ) THEN + CALL IDENCO(JC,ICX,IRETEN) + IF ( IRETEN .EQ. 1 ) THEN + CALL UTSTOP('IDCOMP: IDENCO RET CODE = 1 ') + ENDIF + ENDIF + RETURN + END +C======================================================================= + + SUBROUTINE IDDECO(IC,JC) + +C----------------------------------------------------------------------- +C DECODE PARTICLE ID +C----------------------------------------------------------------------- + PARAMETER (NFLAV=6) + INTEGER IC(2),JC(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + ICI=IC(1) + JC(6,1)=MOD(ICI,10) + JC(5,1)=MOD(ICI/10,10) + JC(4,1)=MOD(ICI/100,10) + JC(3,1)=MOD(ICI/1000,10) + JC(2,1)=MOD(ICI/10000,10) + JC(1,1)=MOD(ICI/100000,10) + ICI=IC(2) + JC(6,2)=MOD(ICI,10) + JC(5,2)=MOD(ICI/10,10) + JC(4,2)=MOD(ICI/100,10) + JC(3,2)=MOD(ICI/1000,10) + JC(2,2)=MOD(ICI/10000,10) + JC(1,2)=MOD(ICI/100000,10) + RETURN + END +C======================================================================= + + SUBROUTINE IDENCO(JC,IC,IRETEN) + +C----------------------------------------------------------------------- +C ENCODE PARTICLE ID +C----------------------------------------------------------------------- + PARAMETER (NFLAV=6) + INTEGER IC(2),JC(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + IRETEN=0 + IC(1)=0 + DO 20 I=1,NFLAV + IF ( JC(I,1) .GE. 10 ) GOTO 22 + IC(1)=IC(1)+JC(I,1)*10**(NFLAV-I) +20 CONTINUE + IC(2)=0 + DO 21 I=1,NFLAV + IF ( JC(I,2) .GE. 10 ) GOTO 22 + IC(2)=IC(2)+JC(I,2)*10**(NFLAV-I) +21 CONTINUE + RETURN +22 IRETEN=1 + IC(1)=0 + IC(2)=0 + RETURN + END +C======================================================================= + + SUBROUTINE IDFLAV(ID,IFL1,IFL2,IFL3,JSPIN,INDEX) + +C----------------------------------------------------------------------- +C UNPACKS THE IDENT CODE ID=+/-IJKL +C +C MESONS-- +C I=0, J<=K, +/- IS SIGN FOR J +C ID=110 FOR PI0, ID=220 FOR ETA, ETC. +C +C BARYONS-- +C I<=J<=K IN GENERAL +C J 9 ') + ENDIF + IDR=ID/10*10+SIGN(J-1,ID) + GOTO 2 + ENDIF + 1 CONTINUE + GOTO 9999 + 2 CONTINUE + + DO 4 K=1,MXMX + IF ( IX .EQ. IDMX(1,K) ) THEN + IF ( J .LT. 1 .OR. J .GT. MXMA-1 ) THEN + CALL UTSTOP('IDRES: INDEX J OUT OF RANGE ') + ENDIF + IF ( IDMX(J+1,K) .NE. 0 ) IDR = SIGN(IDMX(J+1,K),ID) + ENDIF + 4 CONTINUE + + IY=MOD(IABS(IDR),10) + IF ( IY .GT. MAXRES ) THEN + IADJ=0 + IDR=0 + GOTO 9999 + ENDIF + + IF ( IY .NE. 0 .AND. IY .NE. 1 ) GOTO 9999 + + CALL IDMASS(IDR,AM) + IF ( AM .LT. 0. ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'***** ERROR IN IDRES: ' + * ,'NEG MASS RETURNED FROM IDMASS' + WRITE(IFCH,*)'ID,AM(INPUT):',IDI,AMI + WRITE(IFCH,*)'IDR,AM:',IDR,AM + CALL UTSTOP('IDRES: NEG MASS RETURNED FROM IDMASS ') + ENDIF + IADJ=1 + +9999 ID=IDI + IF ( ISH .LT. 93 ) RETURN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'RETURN FROM IDRES. ID,AMI,AM,IDR,IADJ:' + WRITE(IFCH,*)ID,AMI,AM,IDR,IADJ + WRITE(IFCH,*)' ' + RETURN + END +C======================================================================= + + SUBROUTINE IDRESI + +C----------------------------------------------------------------------- +C INITIALIZES /CREMA/ +C----------------------------------------------------------------------- + PARAMETER (MXINDX=1000) + PARAMETER (MXMA=11) + PARAMETER (MXMX=6) + PARAMETER (MXRE=100) + PARAMETER (N=29) + COMMON /CREMA/ REMA(MXRE,MXMA),REWI(MXRE,MXMA) + * ,ICRE1(MXRE,MXMA),ICRE2(MXRE,MXMA) + * ,IDMX(MXMA,MXMX),INDX(MXINDX) + REAL REMAI(N,MXMA),REWII(N,MXMA) + INTEGER ICREI(N,2*MXMA),IDMXI(MXMA,MXMX) + + DATA (IDMXI(J,1),J=1,MXMA)/ 11, 110, 111, 0, 0, 0, 0, 4*0/ + DATA (IDMXI(J,2),J=1,MXMA)/ 22, 220, 330, 331, 0, 0, 0, 4*0/ + DATA (IDMXI(J,3),J=1,MXMA)/123,2130,1230,1231, 0, 0, 0, 4*0/ + DATA (IDMXI(J,4),J=1,MXMA)/124,2140,1240,1241, 0, 0, 0, 4*0/ + DATA (IDMXI(J,5),J=1,MXMA)/134,3140,1340,1341, 0, 0, 0, 4*0/ + DATA (IDMXI(J,6),J=1,MXMA)/234,3240,2340,2341, 0, 0, 0, 4*0/ + DATA ((ICREI(K,M),M=1,2*MXMA),K=1,10)/ + * 111,000000, 9*300000, 11*0, + * 222,000000, 9*030000, 11*0, + * 112, 10*210000, 11*0, + * 122, 10*120000, 11*0, + * 113, 10*201000, 11*0, + * 223, 10*021000, 11*0, + * 123, 10*111000, 11*0, + * 133, 10*102000, 11*0, + * 233, 10*012000, 11*0, + * 333,000000, 9*003000, 11*0/ + DATA ((ICREI(K,M),M=1,2*MXMA),K=11,20)/ + * 114, 10*200100, 11*0, + * 124, 10*110100, 11*0, + * 224, 10*020100, 11*0, + * 134, 10*101100, 11*0, + * 234, 10*011100, 11*0, + * 334, 10*002100, 11*0, + * 144, 10*100200, 11*0, + * 244, 10*010200, 11*0, + * 344, 10*001200, 11*0, + * 444,000000, 9*000300, 11*0/ + DATA ((ICREI(K,M),M=1,2*MXMA),K=21,29)/ + * 11, 10*100000, 0, 10*100000, + * 22, 10*001000, 0, 10*001000, + * 12, 10*100000, 0, 10*010000, + * 13, 10*100000, 0, 10*001000, + * 23, 10*010000, 0, 10*001000, + * 14, 10*100000, 0, 10*000100, + * 24, 10*010000, 0, 10*000100, + * 34, 10*001000, 0, 10*000100, + * 44, 10*000100, 0, 10*000100/ + + DATA ((REMAI(K,M),M=1,MXMA),K=1,10)/ + *111.,0.000,1.425,1.660,1.825,2.000,0.000,0.000,0.000,0.000,0.000, + *222.,0.000,1.425,1.660,1.825,2.000,0.000,0.000,0.000,0.000,0.000, + *112.,1.080,1.315,1.485,1.575,1.645,1.685,1.705,1.825,2.000,0.000, + *122.,1.080,1.315,1.485,1.575,1.645,1.685,1.705,1.825,2.000,0.000, + *113.,1.300,1.500,1.700,1.850,2.000,0.000,0.000,0.000,0.000,0.000, + *223.,1.300,1.500,1.700,1.850,2.000,0.000,0.000,0.000,0.000,0.000, + *123.,1.117,1.300,1.395,1.465,1.540,1.655,1.710,1.800,1.885,2.000, + *133.,1.423,2.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + *233.,1.428,2.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + *333.,0.000,2.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000/ + DATA ((REMAI(K,M),M=1,MXMA),K=11,20)/ + *114.,2.530,2.730,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + *124.,2.345,2.530,2.730,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + *224.,2.530,2.730,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + *134.,2.450,2.600,2.800,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + *234.,2.450,2.600,2.800,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + *334.,2.700,2.900,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + *144.,3.650,3.850,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + *244.,3.650,3.850,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + *344.,3.800,4.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + *444.,0.000,5.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000/ + DATA ((REMAI(K,M),M=1,MXMA),K=21,29)/ + * 11.,0.450,0.950,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + * 22.,0.750,0.965,1.080,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + * 12.,0.450,0.950,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + * 13.,0.700,1.050,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + * 23.,0.700,1.050,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + * 14.,1.935,2.077,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + * 24.,1.938,2.079,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + * 34.,2.085,2.195,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000, + * 44.,3.037,3.158,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000/ + + DATA ((REWII(K,M),M=1,MXMA),K=1,5)/ + *111.,0.000E+00,0.115E+00,0.140E+00,0.250E+00,0.250E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + *222.,0.000E+00,0.115E+00,0.140E+00,0.250E+00,0.250E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + *112.,0.000E+00,0.115E+00,0.200E+00,0.140E+00,0.140E+00, + * 0.145E+00,0.250E+00,0.140E+00,0.250E+00,0.000E+00, + *122.,0.000E+00,0.115E+00,0.200E+00,0.140E+00,0.140E+00, + * 0.145E+00,0.250E+00,0.140E+00,0.250E+00,0.000E+00, + *113.,0.824E-14,0.036E+00,0.080E+00,0.100E+00,0.170E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00/ + DATA ((REWII(K,M),M=1,MXMA),K=6,10)/ + *223.,0.445E-14,0.039E+00,0.080E+00,0.100E+00,0.170E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + *123.,0.250E-14,0.890E-05,0.036E+00,0.040E+00,0.016E+00, + * 0.090E+00,0.080E+00,0.100E+00,0.145E+00,0.170E+00, + *133.,0.227E-14,0.009E+00,0.000E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + *233.,0.400E-14,0.010E+00,0.000E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + *333.,0.000E+00,0.800E-14,0.000E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00/ + DATA ((REWII(K,M),M=1,MXMA),K=11,15)/ + *114.,0.400E-11,0.010E+00,0.000E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + *124.,0.400E-11,0.400E-11,0.010E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + *224.,0.400E-11,0.010E+00,0.010E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + *134.,0.150E-11,0.400E-11,0.010E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + *234.,0.150E-11,0.400E-11,0.010E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00/ + DATA ((REWII(K,M),M=1,MXMA),K=16,20)/ + *334.,0.400E-11,0.010E+00,0.010E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + *144.,0.400E-11,0.010E+00,0.010E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + *244.,0.400E-11,0.010E+00,0.010E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + *344.,0.400E-11,0.010E+00,0.010E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + *444.,0.400E-11,0.010E+00,0.010E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00/ + DATA ((REWII(K,M),M=1,MXMA),K=21,25)/ + * 11.,0.757E-08,0.153E+00,0.057E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + * 22.,0.105E-05,0.210E-03,0.034E+00,0.004E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + * 12.,0.000E+00,0.153E+00,0.057E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + * 13.,0.000E+00,0.051E+00,0.000E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + * 23.,0.197E-02,0.051E+00,0.000E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00/ + DATA ((REWII(K,M),M=1,MXMA),K=26,29)/ + * 14.,0.154E-11,0.002E+00,0.000E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + * 24.,0.615E-12,0.002E+00,0.000E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + * 34.,0.150E-11,0.020E+00,0.000E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00, + * 44.,0.010E+00,0.068E-03,0.000E+00,0.000E+00,0.000E+00, + * 0.000E+00,0.000E+00,0.000E+00,0.000E+00,0.000E+00/ + SAVE +C----------------------------------------------------------------------- + NN=N + DO 3 I=1,MXINDX + INDX(I)=0 + 3 CONTINUE + DO 44 M=1,MXMA + DO 4 K=1,MXRE + REMA(K,M)=0. + 4 CONTINUE +44 CONTINUE + DO 22 I=1,MXMX + DO 2 J=1,MXMA + IDMX(J,I)=IDMXI(J,I) + 2 CONTINUE +22 CONTINUE + + IF ( NN .GT. MXRE ) THEN + CALL UTSTOP('IDRESI: DIMENSION MXRE TOO SMALL ') + ENDIF + DO 1 K=1,N + IX=NINT(REMAI(K,1)) + IX2=NINT(REWII(K,1)) + IX3=ICREI(K,1) + IF ( IX .NE. IX2 ) THEN + CALL UTSTOP('IDRESI: IX /= IX2 ') + ENDIF + IF ( IX .NE. IX3 ) THEN + CALL UTSTOP('IDRESI: IX /= IX3 ') + ENDIF + IF ( IX .LT. 1 .OR. IX .GT. MXINDX ) THEN + CALL UTSTOP('IDRESI: IX OUT OF RANGE. ') + ENDIF + INDX(IX)=K + REMA(K,1)=0. + REWI(K,1)=0. + ICRE1(K,1)=0 + ICRE2(K,1)=0 + DO 5 M=2,MXMA + REMA(K,M)=REMAI(K,M) + REWI(K,M)=REWII(K,M) + ICRE1(K,M)=ICREI(K,M) + ICRE2(K,M)=ICREI(K,MXMA+M) + 5 CONTINUE + 1 CONTINUE + + INDX(33) =INDX(22) + INDX(213)=INDX(123) + INDX(214)=INDX(124) + INDX(314)=INDX(134) + INDX(324)=INDX(234) + + RETURN + END +C======================================================================= + + SUBROUTINE IDSPIN(II,IC,ID,JSPIN) + +C----------------------------------------------------------------------- +C DETERMINES PARTICLE SPIN +C----------------------------------------------------------------------- + PARAMETER (NFLAV=6) + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + + REAL PSPIN1(8) + INTEGER IC(2),JC(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + PSPIN1(1)=PSPINL + PSPIN1(2)=PSPINL + PSPIN1(3)=PSPINL + PSPIN1(4)=PSPINH + PSPIN1(5)=PSPINH + PSPIN1(6)=PSPINH + PSPIN1(7)=PSPINH + PSPIN1(8)=PSPINH + CALL IDDECO(IC,JC) + IHIGH=0 + IF ( II .EQ. 1 ) THEN + DO 4 I=1,NFLAV + IF ( JC(I,1) .NE. 0 ) IHIGH=I + IF ( JC(I,2) .NE. 0 ) IHIGH=I + 4 CONTINUE + ELSE + CALL IDFLAV(ID,I1,I2,I3,IDU1,IDU2) + DO 5 I=1,NFLAV + IF ( I.EQ.ABS(I1) .OR. I .EQ. ABS(I2) + * .OR. I .EQ. ABS(I3) ) IHIGH=I +5 CONTINUE + ENDIF + JSPIN=INT(RANGEN()+PSPIN1(IHIGH)) + RETURN + END +C======================================================================= + + SUBROUTINE IDTAU(ID,P4,P5,TAUGM) + +C----------------------------------------------------------------------- +C RETURNS LIFETIME*GAMMA FOR ID WITH ENERGY P4, MASS P5 +C----------------------------------------------------------------------- + PARAMETER (MXINDX=1000) + PARAMETER (MXMA=11) + PARAMETER (MXMX=6) + PARAMETER (MXRE=100) + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CREMA/ REMA(MXRE,MXMA),REWI(MXRE,MXMA) + * ,ICRE1(MXRE,MXMA),ICRE2(MXRE,MXMA) + * ,IDMX(MXMA,MXMX),INDX(MXINDX) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + SAVE +C----------------------------------------------------------------------- + IDABS = ABS(ID) + IF ( IDABS .LT. 100 .AND. ID .NE. 20 ) THEN + WI=0. + ELSEIF ( ID .EQ. 20 ) THEN + WI=.197/2.675E13 + ELSEIF ( IDABS .LT. 100000000 ) THEN + IX=IDABS/10 + IF ( IX .LT. 1 .OR. IX .GT. MXINDX ) THEN + CALL UTSTOP('IDTAU: IX OUT OF RANGE. ') + ENDIF + II=INDX(IX) + JJ=MOD(IDABS,10)+2 + DO 75 IMX=1,MXMX + DO 76 IMA=2,MXMA + IF ( IDABS .EQ. IDMX(IMA,IMX) ) JJ=IMA +76 CONTINUE +75 CONTINUE + IF ( II.LT.1 .OR. II.GT.MXRE .OR. JJ.LT.1 .OR. JJ.GT.MXMA ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'ID,II,JJ:',ID,' ',II,JJ + CALL UTSTOP('IDTAU: II OR JJ OUT OF RANGE ') + ENDIF + WI=REWI(II,JJ) + ELSE + TAUZ=TAUNLL +C-C TAUZ=MIN( 9./P5**2, TAUZ ) +C-C TAUZ=MAX( .2, TAUZ ) + WI=.197/TAUZ + ENDIF + IF ( WI .EQ. 0. ) THEN + TAU=AINFIN + TAUGM=AINFIN + RETURN + ELSE + TAU=.197/WI + IF ( TAU .GE. AINFIN ) THEN + TAUGM = AINFIN + RETURN + ENDIF + ENDIF + IF ( P5 .EQ. 0. ) THEN + GM=AINFIN + TAUGM=AINFIN + ELSE + GM=P4/P5 + IF ( GM .GE. AINFIN ) THEN + TAUGM = AINFIN + RETURN + ELSE + TAUGM=TAU*GM + ENDIF + ENDIF + RETURN + END +C======================================================================= + + INTEGER FUNCTION IDTRA(IC,IER,IRES,IMIX) + +C----------------------------------------------------------------------- +C TRANFORMS FROM WERNER-ID TO PAIGE-ID +C----------------------------------------------------------------------- + PARAMETER (NIDT=44) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + + INTEGER IC(2),ICM(2),IDT(3,NIDT) + DATA IDT/ + * 100000,000000, 1 ,010000,000000, 2 ,001000,000000, 3 + *,000100,000000, 4 + *,200000,000000,1100 ,110000,000000,1200 ,020000,000000,2200 + *,101000,000000,1300 ,011000,000000,2300 ,002000,000000,3300 + *,100100,000000,1400 ,010100,000000,2400 ,001100,000000,3400 + *,000200,000000,4400 + *,100000,100000, 110 ,100000,010000, 120 ,010000,010000, 220 + *,100000,001000, 130 ,010000,001000, 230 ,001000,001000, 330 + *,100000,000100, 140 ,010000,000100, 240 ,001000,000100, 340 + *,000100,000100, 440 + *,300000,000000,1111 ,210000,000000,1120 ,120000,000000,1220 + *,030000,000000,2221 ,201000,000000,1130 ,111000,000000,1230 + *,021000,000000,2230 ,102000,000000,1330 ,012000,000000,2330 + *,003000,000000,3331 ,200100,000000,1140 ,110100,000000,1240 + *,020100,000000,2240 ,101100,000000,1340 ,011100,000000,2340 + *,002100,000000,3340 ,100200,000000,1440 ,010200,000000,2440 + *,001200,000000,3440 ,000300,000000,4441/ + SAVE +C----------------------------------------------------------------------- + IF ( IC(1) .EQ. 0 .AND. IC(2) .EQ. 0 ) THEN + IDTRA=0 + RETURN + ENDIF + DO 1 I=1,NIDT + IF ( IC(1).EQ.IDT(1,I) .AND. IC(2).EQ.IDT(2,I) ) THEN + IDTRA=IDT(3,I) + GOTO 2 + ENDIF + IF ( IC(2).EQ.IDT(1,I) .AND. IC(1).EQ.IDT(2,I) ) THEN + IDTRA=-IDT(3,I) + GOTO 2 + ENDIF + 1 CONTINUE + IDTRA=0 + 2 CONTINUE + IF ( IDTRA .NE. 0 ) THEN + ISI=SIGN(1,IDTRA) + JSPIN=0 + IF ( MOD(IDTRA,10).EQ.0 .AND. IRES.EQ.1 ) + * CALL IDSPIN(1,IC,IDU,JSPIN) + ELSE + ISI=1 + JSPIN=0 + ENDIF + IF ( IMIX .EQ. 3 ) THEN + IF ( IDTRA .EQ. 220 ) THEN + IDTRA=110 + ELSEIF ( IDTRA .EQ. 330 ) THEN + IDTRA=220 + ENDIF + ELSEIF ( IMIX .EQ. 2 ) THEN + IF ( IDTRA .EQ. 220 ) THEN + IDTRA=110 + ELSEIF ( IDTRA .EQ. 330 ) THEN + IDTRA=110 + ENDIF + ELSEIF ( IMIX .EQ. 1 ) THEN + CALL IDMIX(IC,JSPIN,ICM,IDTRAM) + IF ( IDTRAM .NE. 0 ) IDTRA=IDTRAM + IF ( JSPIN .EQ. 0 ) THEN + IF ( RANGEN() .LT. PISPN ) THEN + IF ( ABS(IDTRA). EQ. 1230 ) THEN + IDTRA=ISI*2130 + ELSEIF ( ABS(IDTRA) .EQ. 1240 ) THEN + IDTRA=ISI*2140 + ELSEIF ( ABS(IDTRA) .EQ. 1340 ) THEN + IDTRA=ISI*3140 + ELSEIF ( ABS(IDTRA) .EQ. 2340 ) THEN + IDTRA=ISI*3240 + ENDIF + ENDIF + ENDIF + ENDIF + + IF ( IDTRA .NE. 0 ) IDTRA=IDTRA+JSPIN*ISI + IF ( IDTRA .NE. 0 ) RETURN + IF ( IER .NE. 1 ) RETURN + JERR=JERR+1 + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'***** ERROR IN IDTRA: UNKNOWN CODE' + WRITE(IFCH,*)'IC = ',IC + WRITE(IFCH,*)' ' + RETURN + END +C======================================================================= + + INTEGER FUNCTION IDTRAI(NUM,ID,IER) + +C----------------------------------------------------------------------- + PARAMETER (NIDT=44) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + INTEGER IDT(3,NIDT) + + DATA IDT/ + * 100000,000000, 1 ,010000,000000, 2 ,001000,000000, 3 + *,000100,000000, 4 + *,200000,000000,1100 ,110000,000000,1200 ,020000,000000,2200 + *,101000,000000,1300 ,011000,000000,2300 ,002000,000000,3300 + *,100100,000000,1400 ,010100,000000,2400 ,001100,000000,3400 + *,000200,000000,4400 + *,100000,100000, 110 ,100000,010000, 120 ,010000,010000, 220 + *,100000,001000, 130 ,010000,001000, 230 ,001000,001000, 330 + *,100000,000100, 140 ,010000,000100, 240 ,001000,000100, 340 + *,000100,000100, 440 + *,300000,000000,1111 ,210000,000000,1120 ,120000,000000,1220 + *,030000,000000,2221 ,201000,000000,1130 ,111000,000000,1230 + *,021000,000000,2230 ,102000,000000,1330 ,012000,000000,2330 + *,003000,000000,3331 ,200100,000000,1140 ,110100,000000,1240 + *,020100,000000,2240 ,101100,000000,1340 ,011100,000000,2340 + *,002100,000000,3340 ,100200,000000,1440 ,010200,000000,2440 + *,001200,000000,3440 ,000300,000000,4441/ + SAVE +C----------------------------------------------------------------------- + IDABS = ABS(ID) + DO 1 I=1,NIDT + IF ( IDABS .EQ. IDT(3,I) ) THEN + IF ( ID .LT. 0 ) THEN + IDTRAI=IDT(3-NUM,I) + ELSE + IDTRAI=IDT(NUM,I) + ENDIF + RETURN + ENDIF +1 CONTINUE + IDTRAI=0 + IF ( IER .NE. 1 ) RETURN + JERR=JERR+1 + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'***** ERROR IN IDTRAI: UNKNOWN CODE' + WRITE(IFCH,*)'ID = ',ID + WRITE(IFCH,*)' ' + RETURN + END +C======================================================================= + + SUBROUTINE IDTRB(IB1,IB2,IB3,IB4,JC) + +C----------------------------------------------------------------------- +C ID TRANSFORMATION IB -> JC +C----------------------------------------------------------------------- + PARAMETER (NFLAV=6) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + INTEGER JC(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + JC(1,1)=IB1/10000 + JC(2,1)=IB2/10000 + JC(3,1)=IB3/10000 + JC(4,1)=IB4/10000 + JC(5,1)=0 + JC(6,1)=0 + JC(1,2)=MOD(IB1,10000) + JC(2,2)=MOD(IB2,10000) + JC(3,2)=MOD(IB3,10000) + JC(4,2)=MOD(IB4,10000) + JC(5,2)=0 + JC(6,2)=0 + RETURN + END +C======================================================================= + + SUBROUTINE IDTRBI(JC,IB1,IB2,IB3,IB4) + +C----------------------------------------------------------------------- + PARAMETER (NFLAV=6) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + INTEGER JC(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + IB1=JC(1,1)*10000+JC(1,2) + IB2=JC(2,1)*10000+JC(2,2) + IB3=JC(3,1)*10000+JC(3,2) + IB4=JC(4,1)*10000+JC(4,2) + IB5=JC(5,1)*10000+JC(5,2) + IB6=JC(6,1)*10000+JC(6,2) + IF ( IB5 .NE. 0 .OR. IB6 .NE. 0 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'***** ERROR IN IDTRBI: BOTTOM OR TOP QUARKS' + WRITE(IFCH,*)'JC:' + WRITE(IFCH,*)JC + CALL UTSTOP('IDTRBI: BOTTOM OR TOP QUARKS ') + ENDIF + RETURN + END +C======================================================================= + + SUBROUTINE IDTR4(ID,IC) + +C----------------------------------------------------------------------- +C TRANSFORMS GENERALIZED PAIGE_ID -> WERNER_ID (FOR < 4 FLV) +C----------------------------------------------------------------------- + PARAMETER (MXINDX=1000) + PARAMETER (MXMA=11) + PARAMETER (MXMX=6) + PARAMETER (MXRE=100) + COMMON /CREMA/ REMA(MXRE,MXMA),REWI(MXRE,MXMA) + * ,ICRE1(MXRE,MXMA),ICRE2(MXRE,MXMA) + * ,IDMX(MXMA,MXMX),INDX(MXINDX) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + INTEGER IC(2) + SAVE +C----------------------------------------------------------------------- + IDABS = ABS(ID) + IF ( IDABS .LT. 100000000 ) THEN + IX=IDABS/10 + IF ( IX .LT. 1 .OR. IX .GT. MXINDX ) GOTO 9999 + II=INDX(IX) + IF ( II .EQ. 0 ) GOTO 9998 + JJ=IDABS-10*IX + 2 + DO 28 IMX=1,MXMX + DO 27 IMA=2,MXMA + IF ( IDABS .EQ. IDMX(IMA,IMX) ) THEN + JJ=IMA + GOTO 29 + ENDIF +27 CONTINUE +28 CONTINUE +29 IF ( ID .GT. 0 ) THEN + IC(1)=ICRE1(II,JJ) + IC(2)=ICRE2(II,JJ) + ELSE + IC(2)=ICRE1(II,JJ) + IC(1)=ICRE2(II,JJ) + ENDIF + IF ( IC(1) .EQ. 100000 .AND. IC(2) .EQ. 100000 + * .AND. RANGEN() .LT. 0.5 ) THEN + IC(1)=010000 + IC(2)=010000 + ENDIF + ELSEIF ( MOD(ID/100000000,10) .EQ. 8 ) THEN + IC(1)=MOD(ID,100000000)/10000*100 + IC(2)=MOD(ID,10000)*100 + ELSE + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'***** ID: ',ID + CALL UTSTOP('IDTR4: UNRECOGNIZED ID ') + ENDIF + RETURN + +9998 WRITE(IFCH,*)' ' + WRITE(IFCH,*)'ID: ',ID + CALL UTSTOP('IDTR4: INDX=0. ') + RETURN + +9999 WRITE(IFCH,*)' ' + WRITE(IFCH,*)'ID: ',ID + CALL UTSTOP('IDTR4: IX OUT OF RANGE. ') + RETURN + END +C======================================================================= + + SUBROUTINE JAMBR1(NS,NSG,IRET) + +C----------------------------------------------------------------------- +C "AMOR" (KOCH+WERNER, 89) +C BREAKS STRING NS ACCORDING TO A-M MODEL. +C NS: POINTS TO THE CURRENT FRAGMENTING STRING. +C NSG: POINTS TO THE LAST PRODUCED SUBSTRING (SUCC INCREASED) +C INPUT: +C PSG(,NS): MOMENTUM OF STRING NS IN PP-CMS +C PJT(,2*NS-1),PJT(,2*NS): MOMENTUM OF END OF STRING NS IN PP-CMS +C OUTPUT: +C XORSG(,NSG): ORIGIN OF SUBSTRING NSG IN PP-CMS +C PJT(,2*NSG-1),PJT(,2*NSG): MOMENTUM OF END OF SUBSTRING NSG IN PP-CMS +C ICJT(,2*NSG-1),ICJT(,2*NSG): IC-CODE OF END OF SUBSTRG NSG IN PP-CMS +C PSG(,NSG): MOMENTUM OF SUBSTRING NSG IN PP-CMS +C XBKPTL(,NPTLC-NPTL2): BREAKPOINT OF NS IN PP-CMS +C ISPTL(,NPTLC-NPTL2): 1 IF STRING NS BREAKS +C----------------------------------------------------------------------- + PARAMETER (MXPC=500) + PARAMETER (MXSG=500) + PARAMETER (MXJT=2*MXSG) + PARAMETER (NFLAV=6) + PARAMETER (NPTF=129) + COMMON /CDELRE/ DELRER + COMMON /CJAMBR/ NPTLC,NPTL2 + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + DOUBLE PRECISION XBKPTL + COMMON /CPC/ XBKPTL(2,MXPC),ISPTL(MXPC) + COMMON /CPTF/ FPTFS,FPTFSS,FPTFU,FPTFUS,FPTFUU + * ,QPTFS(NPTF),QPTFSS(NPTF),QPTFU(NPTF),QPTFUS(NPTF) + * ,QPTFUU(NPTF),XPTF(NPTF) + DOUBLE PRECISION PJT,PSG,ROTSG,XORSG + COMMON /CSG/ PJT(5,MXJT),PSG(5,MXSG),ROTSG(3,MXSG) + * ,XORSG(4,MXSG) + * ,ICJT(2,MXJT),IORSG(MXSG),ISG(MXSG) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /QUARKM/ SMAS,SSMAS,USMAS,UUMAS + + DOUBLE PRECISION DAUXI1,DAUXI2,ETA,EETA,ETAM,ETAP + * ,PM,PP,PT,PX,PY,P0M,P0P,XBK(4),XOR1(4),XOR2(4) + INTEGER IC(2),ICM(2),ICMP(2),ICMS(2) + * ,ICP(2),ICPM(2),ICPS(2),ICX(2),ICY(2) + * ,JC(NFLAV,2) + * ,JCM(NFLAV,2),JCMP(NFLAV,2),JCMS(NFLAV,2) + * ,JCP(NFLAV,2),JCPM(NFLAV,2),JCPS(NFLAV,2) + * ,JCX(NFLAV,2),JCY(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + NCNT3=0 + NSG0=NSG +9993 NSG=NSG0 + + IRET=0 + ICP(1)=ICJT(1,2*NS-1) + ICP(2)=ICJT(2,2*NS-1) + ICM(1)=ICJT(1,2*NS) + ICM(2)=ICJT(2,2*NS) + CALL IDDECO(ICP,JCP) + CALL IDDECO(ICM,JCM) + NP=0 + DO 7 NF=1,NFLAV + JC(NF,1)=JCP(NF,1)+JCM(NF,1) + JC(NF,2)=JCP(NF,2)+JCM(NF,2) + NP=NP+JCP(NF,1)-JCP(NF,2) +7 CONTINUE + CALL IDENCO(JC,IC,IRETEN) + ID=IDTRA(IC,0,0,3) + AMMS=UTAMNX(JCP,JCM) + AM=PSG(5,NS) + +C SPLIT STRING +C ------------ + J1 = 2*NS + J2 = J1-1 + DAUXI1= PJT(4,J1)+PJT(4,J2) + DAUXI2= PJT(3,J1)+PJT(3,J2) + P0P = DAUXI1 + DAUXI2 + P0M = DAUXI1 - DAUXI2 +9994 NCNT3=NCNT3+1 + IF ( NCNT3 .GT. 100 ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JAMBR1') + WRITE(IFCH,*)'***** SPLIT KINEM NOT POSSIBLE.' + WRITE(IFCH,112) + * (ICJT(J,2*NS-1),J=1,2),(ICJT(J,2*NS),J=1,2),PSG(5,NS) +112 FORMAT(1X,2I8,4X,2I8,4X,F7.2) + CALL UTMSGF + ENDIF + IF ( NS .EQ. 1 ) THEN + IRET=9999 + RETURN + ENDIF + IRET=9996 + RETURN + ENDIF + DO 17 NF=1,NFLAV + JCPM(NF,1)=0 + JCPM(NF,2)=0 + JCMP(NF,1)=0 + JCMP(NF,2)=0 +17 CONTINUE + +C DETERMINE FLAVOUR +C ----------------- + NQU=0 + IF ( ISH .GE. 93 ) THEN + WRITE(IFCH,*)'ORDINARY STRING FRAGMENTATION' + WRITE(IFCH,*)' ' + ENDIF + IF ( RANGEN() .LE. PDIQUA ) THEN + NQU=2 + ELSE + NQU=1 + ENDIF + IF ( MOD(NP+NQU,3) .EQ. 0 ) THEN + II=1 + ELSEIF ( MOD(NP-NQU,3) .EQ. 0 ) THEN + II=2 + ELSE + CALL UTSTOP('JAMBR1: NO SINGLET CONSTRUCTION POSSIBLE') + ENDIF + IFLTT=0 + DO 8 N=1,NQU + IFL=INT(RANGEN()/PUD)+1 + IFLTT=IFLTT*10+(IFL+1)/2 + JCPM(IFL,II)=JCPM(IFL,II)+1 + JCMP(IFL,3-II)=JCMP(IFL,3-II)+1 +8 CONTINUE + CALL IDENCO(JCPM,ICPM,IRETEN) + IF ( IRETEN .EQ. 1 ) THEN + CALL UTSTOP('JAMBR1: IDENCO(JCPM... RET.CODE=1 ') + ENDIF + CALL IDENCO(JCMP,ICMP,IRETEN) + IF ( IRETEN .EQ. 1 ) THEN + CALL UTSTOP('JAMBR1: IDENCO(JCMP... RET.CODE=1 ') + ENDIF + DO 25 NF=1,NFLAV + JCPS(NF,1)=JCP(NF,1)+JCPM(NF,1) + JCPS(NF,2)=JCP(NF,2)+JCPM(NF,2) + JCMS(NF,1)=JCM(NF,1)+JCMP(NF,1) + JCMS(NF,2)=JCM(NF,2)+JCMP(NF,2) +25 CONTINUE + CALL IDENCO(JCPS,ICPS,IRETEN) + CALL IDENCO(JCMS,ICMS,IRETEN) + CALL IDCOMK(ICPS) + CALL IDCOMK(ICMS) + +C CALCULATE P+,P-,PT OF STRING BREAKING +C ------------------------------------- + IF ( ISH .GE. 93 ) THEN + WRITE(IFCH,109)ICM(1),ICMP(1),ICPM(1),ICP(1) + * ,ICM(2),ICMP(2),ICPM(2),ICP(2) +109 FORMAT(1X,'FLAVORS:',2(I11,I7)/9X,2(I11,I7)/) + WRITE(IFCH,*)'IFLTT:',IFLTT + WRITE(IFCH,*)' ' + ENDIF + IDP=IDTRA(ICPS,0,0,3) + IDM=IDTRA(ICMS,0,0,3) + AMMP=UTAMNY(JCP,JCPM) + AMMM=UTAMNY(JCM,JCMP) + R = RANGEN() + IF ( IFLTT .EQ .1 ) THEN + IF ( IOPTF .EQ. 1 ) THEN + PT=UTINVT(NPTF,XPTF,QPTFU ,R*QPTFU(NPTF)) +C## WRITE(IFCH,*)'JAMBR1:PT(OLD)=',PT + ELSE + RPT = R*FPTFU + AUXIL=-4.*PTF**2/PI + PT=SQRT(AUXIL*LOG(1.+RPT*2./AUXIL)) + ENDIF + ELSEIF ( IFLTT .EQ. 2 ) THEN + IF ( IOPTF .EQ. 1 ) THEN + PT=UTINVT(NPTF,XPTF,QPTFS ,R*QPTFS(NPTF)) + ELSE + RPT = R*FPTFS + AUXIL=-4.*PTF**2/PI + PT=SQRT(AUXIL*LOG(EXP(SMAS**2/AUXIL)+RPT*2./AUXIL)-SMAS**2) + ENDIF + ELSEIF ( IFLTT .EQ. 11 ) THEN + IF ( IOPTF .EQ. 1 ) THEN + PT=UTINVT(NPTF,XPTF,QPTFUU,R*QPTFUU(NPTF)) + ELSE + RPT = R*FPTFUU + AUXIL=-4.*PTF**2/PI + PT=SQRT(AUXIL*LOG(EXP(UUMAS**2/AUXIL)+RPT*2./AUXIL)-UUMAS**2) + ENDIF + ELSEIF ( IFLTT .EQ. 12 .OR. IFLTT .EQ. 21 ) THEN + IF ( IOPTF .EQ. 1 ) THEN + PT=UTINVT(NPTF,XPTF,QPTFUS,R*QPTFUS(NPTF)) + ELSE + RPT = R*FPTFUS + AUXIL=-4.*PTF**2/PI + PT=SQRT(AUXIL*LOG(EXP(USMAS**2/AUXIL)+RPT*2./AUXIL)-USMAS**2) + ENDIF + ELSEIF ( IFLTT .EQ. 22 ) THEN + IF ( IOPTF .EQ. 1 ) THEN + PT=UTINVT(NPTF,XPTF,QPTFSS,R*QPTFSS(NPTF)) + ELSE + RPT = R*FPTFSS + AUXIL=-4.*PTF**2/PI + PT=SQRT(AUXIL*LOG(EXP(SSMAS**2/AUXIL)+RPT*2./AUXIL)-SSMAS**2) + ENDIF + ENDIF + LO=1 + GOTO 48 +47 LO=LO+1 + PT=RANGEN()*PT +48 CONTINUE + PHI=2.D0*PI*RANGEN() + PX=PT*COS(PHI) + PY=PT*SIN(PHI) + TMMP= (PT**2+AMMP**2) + TMMM= (PT**2+AMMM**2) + AREA=-LOG(RANGEN())/PAREA + AREART = SQRT(AREA) + ETAM=LOG((TMMM +AREA)/(AREART *P0M)) + ETAP=LOG((AREART *P0P)/(TMMP +AREA)) + IF ( ETAM .GT. ETAP ) THEN + IF ( LO .LT. 5 ) GOTO 47 + GOTO 9994 + ENDIF + ETA=ETAM+RANGEN()*(ETAP-ETAM) + AMP=SQRT(P0P*AREART *EXP(-ETA)-AREA-PT**2) + AMM=SQRT(P0M*AREART *EXP( ETA)-AREA-PT**2) + CALL IDRES(IDP,AMP,IDPR,IADJP) + CALL IDRES(IDM,AMM,IDMR,IADJM) + R=RANGEN() + IF ( IDPR .EQ. 110 .AND. R .LT. 0.5 ) THEN + IDP=220 + AMP=.549 + IF ( R .LT. 0.6666667 ) AMP=.958 + CALL IDRES(IDP,AMP,IDPR,IADJP) + IADJP=1 + ENDIF + R=RANGEN() + IF ( IDMR .EQ. 110 .AND. R .LT. 0.5 ) THEN + IDM=220 + AMM=.549 + IF ( R .LT. 0.6666667 ) AMM=.958 + CALL IDRES(IDM,AMM,IDMR,IADJM) + IADJM=1 + ENDIF + TMP2=(PT**2+AMP**2) + TMM2=(PT**2+AMM**2) + IF ( IADJP .EQ. 1 .AND. IADJM .NE. 1 ) THEN + ETA=LOG((AREART *P0P)/(TMP2+AREA)) + IF ( ETA .LT. ETAM ) GOTO 9994 + AMM=SQRT(P0M*AREART *EXP(ETA)-AREA-PT**2) + CALL IDRES(IDM,AMM,IDMR,IADJM) + TMM2=(PT**2+AMM**2) + ENDIF + IF ( IADJP .NE. 1 .AND. IADJM .EQ. 1 ) THEN + ETA=LOG((TMM2+AREA)/(AREART *P0M)) + IF ( ETA .GT. ETAP ) GOTO 9994 + AMP=SQRT(P0P*AREART *EXP(-ETA)-AREA-PT**2) + CALL IDRES(IDP,AMP,IDPR,IADJP) + TMP2=(PT**2+AMP**2) + ENDIF + IF ( IADJP .EQ. 1 .AND. IADJM .EQ. 1 ) THEN + TM=(P0P*P0M-TMM2-TMP2)*0.5 + IF ( TM .LT. 0. ) GOTO 9994 + IF ( TM**2-TMP2*TMM2 .LT. 0. ) GOTO 9994 + AREA=TM-SQRT(TM**2 -TMP2*TMM2) + AREART = SQRT(AREA) + EETA=P0P*AREART/(TMP2+AREA) + IF ( EETA .LE. 0.D0 ) GOTO 9994 + ETA=LOG(EETA) + ENDIF + + PP=AREART*EXP(ETA) + PM=AREART*EXP(-ETA) + IF ( P0P-PP-PT**2/PM .LT. 0.D0 .OR. + * P0M-PM-PT**2/PP .LT. 0.D0 ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JAMBR1') + WRITE(IFCH,*)'***** NEGATIVE JET ENERGY. SPLIT AGAIN.' + IF ( P0P-PP-PT**2/PM .LT. 0.D0 ) + * WRITE(IFCH,*)'P0P: ',P0P,' PP+PT**2/PM: ',PP+PT**2/PM + IF ( P0M-PM-PT**2/PP .LT. 0.D0 ) + * WRITE(IFCH,*)'P0M: ',P0M,' PM+PT**2/PP: ',PM+PT**2/PP + CALL UTMSGF + ENDIF + GOTO 9994 + ENDIF + +C DETERMINE BREAK PNT AND NEW ORIGINS +C ----------------------------------- + XOR1(1)=0.D0 + XOR1(2)=0.D0 + XOR1(3)=PP*0.5D0/TENSN + XOR1(4)=PP*0.5D0/TENSN + IF ( ISH .GE. 93 ) WRITE(IFCH,118)XOR1 +118 FORMAT(' NEW ORIGIN +: ',13X,4F7.2) + CALL UTROT2(-1,ROTSG(1,NS),ROTSG(2,NS),ROTSG(3,NS) + * ,XOR1(1),XOR1(2),XOR1(3)) + CALL UTLOB2(-1,PSG(1,NS),PSG(2,NS),PSG(3,NS),PSG(4,NS),PSG(5,NS) + * ,XOR1(1),XOR1(2),XOR1(3),XOR1(4)) + XOR1(1)=XOR1(1)+XORSG(1,NS) + XOR1(2)=XOR1(2)+XORSG(2,NS) + XOR1(3)=XOR1(3)+XORSG(3,NS) + XOR1(4)=XOR1(4)+XORSG(4,NS) + IF ( ISH .GE. 93 ) WRITE(IFCH,117)XOR1 + XBK(1)=0.D0 + XBK(2)=0.D0 + XBK(3)=0.5D0/TENSN*(PP-PM) + XBK(4)=0.5D0/TENSN*(PP+PM) + IF ( ISH .GE. 93 ) WRITE(IFCH,116)XBK +116 FORMAT(' BREAKING PNT: ',13X,4F7.2) + CALL UTROT2(-1,ROTSG(1,NS),ROTSG(2,NS),ROTSG(3,NS) + * ,XBK(1),XBK(2),XBK(3)) + CALL UTLOB2(-1,PSG(1,NS),PSG(2,NS),PSG(3,NS),PSG(4,NS),PSG(5,NS) + * ,XBK(1),XBK(2),XBK(3),XBK(4)) + XBK(1)=XBK(1)+XORSG(1,NS) + XBK(2)=XBK(2)+XORSG(2,NS) + XBK(3)=XBK(3)+XORSG(3,NS) + XBK(4)=XBK(4)+XORSG(4,NS) + IF ( ISH .GE. 93 ) WRITE(IFCH,117)XBK +117 FORMAT(28X,4F7.2/) + XOR2(1)=0.D0 + XOR2(2)=0.D0 + XOR2(3)=-PM*0.5D0/TENSN + XOR2(4)= PM*0.5D0/TENSN + IF ( ISH .GE. 93 ) WRITE(IFCH,119)XOR2 +119 FORMAT(' NEW ORIGIN -: ',13X,4F7.2) + CALL UTROT2(-1,ROTSG(1,NS),ROTSG(2,NS),ROTSG(3,NS) + * ,XOR2(1),XOR2(2),XOR2(3)) + CALL UTLOB2(-1,PSG(1,NS),PSG(2,NS),PSG(3,NS),PSG(4,NS),PSG(5,NS) + * ,XOR2(1),XOR2(2),XOR2(3),XOR2(4)) + XOR2(1)=XOR2(1)+XORSG(1,NS) + XOR2(2)=XOR2(2)+XORSG(2,NS) + XOR2(3)=XOR2(3)+XORSG(3,NS) + XOR2(4)=XOR2(4)+XORSG(4,NS) + IF ( ISH .GE. 93 ) WRITE(IFCH,117)XOR2 + +C STORE THE TWO SUBSTRINGS +C ------------------------ + NSGB=NSG + DO 9998 M=1,2 + NSG=NSG+1 + IF ( NSG .GT. MXSG ) THEN + CALL UTSTOP('JAMBR1: NSG>MXSG ') + ENDIF + ISG(NSG)=NPTLC + IF ( M .EQ. 1 ) THEN + XORSG(1,NSG)=XOR1(1) + XORSG(2,NSG)=XOR1(2) + XORSG(3,NSG)=XOR1(3) + XORSG(4,NSG)=XOR1(4) + PJT(1,2*NSG-1)=0.D0 + PJT(2,2*NSG-1)=0.D0 + PJT(3,2*NSG-1)=(P0P-PP-PT**2/PM)*0.5D0 + PJT(4,2*NSG-1)=(P0P-PP-PT**2/PM)*0.5D0 + PJT(5,2*NSG-1)=0.D0 + ICJT(1,2*NSG-1)=ICJT(1,2*NS-1) + ICJT(2,2*NSG-1)=ICJT(2,2*NS-1) + PJT(1,2*NSG)=PX + PJT(2,2*NSG)=PY + PJT(3,2*NSG)=(PT**2/PM-PM)*0.5D0 + PJT(4,2*NSG)=(PT**2/PM+PM)*0.5D0 + PJT(5,2*NSG)=0.D0 + ICJT(1,2*NSG)=ICPM(1) + ICJT(2,2*NSG)=ICPM(2) + DO 11 NF=1,NFLAV + JC(NF,1)=JCPS(NF,1) + JC(NF,2)=JCPS(NF,2) +11 CONTINUE + ELSE + XORSG(1,NSG)=XOR2(1) + XORSG(2,NSG)=XOR2(2) + XORSG(3,NSG)=XOR2(3) + XORSG(4,NSG)=XOR2(4) + PJT(1,2*NSG-1)=-PX + PJT(2,2*NSG-1)=-PY + PJT(3,2*NSG-1)=(PP-PT**2/PP)*0.5D0 + PJT(4,2*NSG-1)=(PP+PT**2/PP)*0.5D0 + PJT(5,2*NSG-1)=0.D0 + ICJT(1,2*NSG-1)=ICMP(1) + ICJT(2,2*NSG-1)=ICMP(2) + DO 12 NF=1,NFLAV + JC(NF,1)=JCMS(NF,1) + JC(NF,2)=JCMS(NF,2) +12 CONTINUE + PJT(1,2*NSG)=0.D0 + PJT(2,2*NSG)=0.D0 + PJT(3,2*NSG)=-(P0M-PM-PT**2/PP)*0.5D0 + PJT(4,2*NSG)= (P0M-PM-PT**2/PP)*0.5D0 + PJT(5,2*NSG)=0.D0 + ICJT(1,2*NSG)=ICJT(1,2*NS) + ICJT(2,2*NSG)=ICJT(2,2*NS) + ENDIF + ICX(1)=ICJT(1,2*NSG-1) + ICX(2)=ICJT(2,2*NSG-1) + ICY(1)=ICJT(1,2*NSG) + ICY(2)=ICJT(2,2*NSG) + CALL IDDECO(ICX,JCX) + CALL IDDECO(ICY,JCY) + DO 28 N=1,NFLAV + DO 29 I=1,2 + K=JCX(N,I)+JCY(N,I)-JC(N,I) + IF ( K .LE. 0 ) GOTO 28 + DO 19 L=1,K + JX=JCX(N,I) + JY=JCY(N,I) + IF ( JX .EQ. 0 .AND. JY .GT. 0 ) THEN + JCY(N,I)=JCY(N,I)-1 + ELSEIF ( JX .GT. 0 .AND. JY .EQ. 0 ) THEN + JCX(N,I)=JCX(N,I)-1 + ELSEIF ( JX .GT. 0 .AND. JY .GT. 0 ) THEN + IF ( RANGEN() .LT. 0.5 ) THEN + JCX(N,I)=JCX(N,I)-1 + ELSE + JCY(N,I)=JCY(N,I)-1 + ENDIF + ELSE + WRITE(IFCH,*)('*',LP=1,71) + WRITE(IFCH,*)'***** IC; ',IC + WRITE(IFCH,*)'***** ICX: ',ICX + WRITE(IFCH,*)'***** ICY: ',ICY + WRITE(IFCH,*)'***** N,I,K,L: ',N,I,K,L + WRITE(IFCH,*)'***** JX,JY: ',JX,JY + WRITE(IFCH,*)('*',LP=1,71) + CALL UTSTOP('JAMBR1: ERROR DURING JET COMPACTIFICATN ') + ENDIF +19 CONTINUE +29 CONTINUE +28 CONTINUE + CALL IDENCO(JCX,ICX,IRETEN) + IF ( IRETEN .EQ. 1 ) THEN + CALL UTSTOP('JAMBR1: IDENCO(JCX... RET.CODE=1 ') + ENDIF + CALL IDENCO(JCY,ICY,IRETEN) + IF ( IRETEN .EQ. 1 ) THEN + CALL UTSTOP('JAMBR1: IDENCO(JCY... RET.CODE=1 ') + ENDIF + ICJT(1,2*NSG-1)=ICX(1) + ICJT(2,2*NSG-1)=ICX(2) + ICJT(1,2*NSG) =ICY(1) + ICJT(2,2*NSG) =ICY(2) + IF ( ISH .GE. 93 ) THEN + WRITE(IFCH,108)NSG,NS + * ,(ICJT(J,2*NSG-1),J=1,2),(SNGL(PJT(J,2*NSG-1)),J=1,5) +108 FORMAT(1X,I5,I4,I9,I7,1P,5E10.2) + WRITE(IFCH,108)NSG,NS + * ,(ICJT(J,2*NSG ),J=1,2),(SNGL(PJT(J,2*NSG )),J=1,5) + ENDIF + PSG(1,NSG)=PJT(1,2*NSG-1)+PJT(1,2*NSG) + PSG(2,NSG)=PJT(2,2*NSG-1)+PJT(2,2*NSG) + PSG(3,NSG)=PJT(3,2*NSG-1)+PJT(3,2*NSG) + PSG(4,NSG)=PJT(4,2*NSG-1)+PJT(4,2*NSG) + PSG(5,NSG)= + * SQRT(PSG(4,NSG)**2-PSG(3,NSG)**2-PSG(2,NSG)**2-PSG(1,NSG)**2) + IF ( ISH .GE. 93 ) WRITE(IFCH,110)NSG,NS,(PSG(J,NSG),J=1,5) +110 FORMAT(1X,I5,I4,16X,1P,5E10.2) + CALL UTROT2(-1,ROTSG(1,NS),ROTSG(2,NS),ROTSG(3,NS) + * ,PSG(1,NSG),PSG(2,NSG),PSG(3,NSG)) + CALL UTLOB2(-1,PSG(1,NS),PSG(2,NS),PSG(3,NS),PSG(4,NS),PSG(5,NS) + * ,PSG(1,NSG),PSG(2,NSG),PSG(3,NSG),PSG(4,NSG)) + IORSG(NSG)=NS + IF ( ISH .GE. 93 ) THEN + WRITE(IFCH,102)NSG,IORSG(NSG),(PSG(J,NSG),J=1,5) +102 FORMAT(1X,I5,I4,16X,1P,5E10.2) + WRITE(IFCH,*)' ' + ENDIF + +C-C DO 56 I=1,2 +C-C ICPZ(I)=ICJT(I,2*NSG-1) +C-C56 ICMZ(I)=ICJT(I,2*NSG) +C-C CALL IDDECO(ICPZ,JCPZ) +C-C CALL IDDECO(ICMZ,JCMZ) +C-C DO 57 NF=1,NFLAV +C-C JCZ(NF,1)=JCPZ(NF,1)+JCMZ(NF,1) +C-C57 JCZ(NF,2)=JCPZ(NF,2)+JCMZ(NF,2) +C-C CALL IDENCO(JCZ,ICZ,IRETEN) +C-C IDZ=IDTRA(ICZ,0,0,3) +C-C AMZ=PSG(5,NSG) +C-C CALL IDRES(IDZ,AMZ,IDRZ,IADJ) +C-C IF ( IDRZ.EQ.110 .AND. RANGEN().LT.0.5 ) GOTO 9993 + +9998 CONTINUE + XBKPTL(1,NPTLC-NPTL2)=XBK(3) + XBKPTL(2,NPTLC-NPTL2)=XBK(4) + ISPTL(NPTLC-NPTL2)=1 + + RETURN + END +C======================================================================= + + SUBROUTINE JAMBR2(NS,NSG,IRET) + +C----------------------------------------------------------------------- +C "SAMBA" (SCHOLTEN+WERNER, MAR 92) +C BREAKS STRING NS ACCORDING TO A-M MODEL. +C NS: POINTS TO THE CURRENT FRAGMENTING STRING. +C NSG: POINTS TO THE LAST PRODUCED SUBSTRING (SUCC INCREASED) +C INPUT: +C PSG(,NS): MOMENTUM OF STRING NS IN PP-CMS +C PJT(,2*NS-1),PJT(,2*NS): MOMENTUM OF END OF STRING NS IN PP-CMS +C OUTPUT: +C XORSG(,NSG): ORIGIN OF SUBSTRING NSG IN PP-CMS +C PJT(,2*NSG-1),PJT(,2*NSG): MOMENTUM OF END OF SUBSTRING NSG IN PP-CMS +C ICJT(,2*NSG-1),ICJT(,2*NSG): IC-CODE OF END OF SUBSTRG NSG IN PP-CMS +C PSG(,NSG): MOMENTUM OF SUBSTRING NSG IN PP-CMS +C XBKPTL(,NPTLC-NPTL2): BREAKPOINT OF NS IN PP-CMS +C ISPTL(,NPTLC-NPTL2): 1 IF STRING NS BREAKS +C----------------------------------------------------------------------- + PARAMETER (MXPC=500) + PARAMETER (MXSG=500) + PARAMETER (MXJT=2*MXSG) + PARAMETER (NBRM=99) + PARAMETER (NFLAV=6) + PARAMETER (NPTF=129) + DOUBLE PRECISION XBKPTL + COMMON /CDELRE/ DELRER + COMMON /CJAMBR/ NPTLC,NPTL2 + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CPC/ XBKPTL(2,MXPC),ISPTL(MXPC) + COMMON /CPTF/ FPTFS,FPTFSS,FPTFU,FPTFUS,FPTFUU + * ,QPTFS(NPTF),QPTFSS(NPTF),QPTFU(NPTF),QPTFUS(NPTF) + * ,QPTFUU(NPTF),XPTF(NPTF) + DOUBLE PRECISION PJT,PSG,ROTSG,XORSG + COMMON /CSG/ PJT(5,MXJT),PSG(5,MXSG),ROTSG(3,MXSG) + * ,XORSG(4,MXSG) + * ,ICJT(2,MXJT),IORSG(MXSG),ISG(MXSG) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /QUARKM/ SMAS,SSMAS,USMAS,UUMAS + + DOUBLE PRECISION A,AMAM,AMAX,ANEW,DA,DALFA,DATWID + * ,DAUXIL,DR,DY,DYST,DYT,DY1,DY2,PHI,PM,PP,PT + * ,PW(4),PX,PY,P0M,P0P,RA,RMX,RMY,XBK(4) + * ,XBR,XOR2(4),XP,X2,YBR,YP,YTD,YNEW + REAL PXBRAK(100),PYBRAK(100),XBREAK(100),YBREAK(100) + INTEGER ICM(2),ICMP(2),ICMPBR(2,100),ICMZ(2) + * ,ICP(2),ICPM(2),ICPMBR(2,100),ICPZ(2) + * ,ICZ(2),ITRD(100),JC(NFLAV,2) + * ,JCM(NFLAV,2),JCMP(NFLAV,2),JCMS(NFLAV,2),JCMZ(NFLAV,2) + * ,JCP(NFLAV,2),JCPM(NFLAV,2),JCPZ(NFLAV,2),JCZ(NFLAV,2) + LOGICAL LAST + SAVE +C----------------------------------------------------------------------- + NCNT3=0 + NSG0=NSG +9993 NSG=NSG0 + +C INITIALIZATION +C -------------- + + IRET=0 + ICP(1)=ICJT(1,2*NS-1) + ICP(2)=ICJT(2,2*NS-1) + ICM(1)=ICJT(1,2*NS) + ICM(2)=ICJT(2,2*NS) + ICPMBR(1,1)=ICM(1) + ICPMBR(2,1)=ICM(2) + + CALL IDDECO(ICP,JCP) + CALL IDDECO(ICM,JCM) + NP=0 + DO 7 NF=1,NFLAV + NP=NP+JCP(NF,1)-JCP(NF,2) + 7 CONTINUE + AMMS=UTAMNX(JCP,JCM) + AM=PSG(5,NS) +C + J = 2*NS + DAUXIL= PJT(3,J-1)+PJT(3,J) + P0P=PJT(4,J-1)+PJT(4,J)+DAUXIL + P0M=PJT(4,J-1)+PJT(4,J)-DAUXIL + XT=P0M + YT=P0P +C + DALFA=DBLE(PAREA) +C INITIALIZE + XBREAK(1)=XT + YBREAK(1)=0. + PXBRAK(1)=0. + PYBRAK(1)=0. + +C REDO +C ---- + + NCNT3=0 +9994 NCNT3=NCNT3+1 + IBR=1 + XP=XT + YP=0.D0 + YTD=YT + IF ( NCNT3 .GT. 100 ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JAMBR2') + WRITE(IFCH,*)'***** SPLIT KINEM NOT POSSIBLE.' + WRITE(IFCH,112) + * (ICJT(J,2*NS-1),J=1,2),(ICJT(J,2*NS),J=1,2),PSG(5,NS) +112 FORMAT(1X,2I8,4X,2I8,4X,F7.2) + CALL UTMSGF + ENDIF + IF ( NS .EQ. 1 ) THEN + IRET=9999 + RETURN + ENDIF + IRET=9996 + RETURN + ENDIF + +C SEARCH FOR BREAKPOINTS +C ---------------------- + + 9 CONTINUE + DO 17 NF=1,NFLAV + JCPM(NF,1)=0 + JCPM(NF,2)=0 + JCMP(NF,1)=0 + JCMP(NF,2)=0 +17 CONTINUE + +C ORDINARY STRINGS +C ---------------- +C NQU=0 + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)'ORDINARY STRING FRAGMENTATION' + WRITE(IFCH,*)' ' + ENDIF + IF ( RANGEN() .LE. PDIQUA ) THEN + NQU=2 + ELSE + NQU=1 + ENDIF + IF ( MOD(NP+NQU,3) .EQ. 0 ) THEN + II=1 + ELSEIF ( MOD(NP-NQU,3) .EQ. 0 ) THEN + II=2 + ELSE + CALL UTSTOP('JAMBR2: NO SINGLET CONSTRUCTION POSSIBLE') + ENDIF + IFLTT=0 + DO 18 N=1,NQU + IFL=INT(RANGEN()/PUD)+1 + IFLTT=IFLTT*10+(IFL+1)/2 + JCPM(IFL,II)=JCPM(IFL,II)+1 + JCMP(IFL,3-II)=JCMP(IFL,3-II)+1 +18 CONTINUE + CALL IDENCO(JCPM,ICPM,IRETEN) + IF ( IRETEN .EQ. 1 ) THEN + CALL UTSTOP('JAMBR2: IDENCO(JCPM... RET.CODE=1 ') + ENDIF + CALL IDENCO(JCMP,ICMP,IRETEN) + IF ( IRETEN .EQ. 1 ) THEN + CALL UTSTOP('JAMBR2: IDENCO(JCMP... RET.CODE=1 ') + ENDIF + +C CALCULATE PT OF STRING BREAKING +C ------------------------------------- + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,109)ICM(1),ICMP(1),ICPM(1),ICP(1) + * ,ICM(2),ICMP(2),ICPM(2),ICP(2) +109 FORMAT(1X,'FLAVORS:',2(I11,I7)/9X,2(I11,I7)/) + WRITE(IFCH,*)'IFLTT:',IFLTT + WRITE(IFCH,*)' ' + ENDIF + AMMP=UTAMNY(JCP,JCPM) + AMMM=UTAMNY(JCMP,JCM) + R = RANGEN() + IF ( IFLTT .EQ. 1 ) THEN + IF ( IOPTF .EQ. 1 ) THEN + PT=UTINVT(NPTF,XPTF,QPTFU ,R*QPTFU(NPTF)) +C## WRITE(IFCH,*)'JAMBR2:PT(OLD)=',PT + ELSE + RPT = R*FPTFU + AUXIL=-4.*PTF**2/PI + PT=SQRT(AUXIL*LOG(1.+RPT*2./AUXIL)) + ENDIF + ELSEIF ( IFLTT .EQ. 2 ) THEN + IF ( IOPTF .EQ. 1 ) THEN + PT=UTINVT(NPTF,XPTF,QPTFS ,R*QPTFS(NPTF)) + ELSE + RPT = R*FPTFS + AUXIL=-4.*PTF**2/PI + PT=SQRT(AUXIL*LOG(EXP(SMAS **2/AUXIL)+RPT*2./AUXIL)-SMAS **2) + ENDIF + ELSEIF ( IFLTT .EQ. 11 ) THEN + IF ( IOPTF .EQ. 1 ) THEN + PT=UTINVT(NPTF,XPTF,QPTFUU,R*QPTFUU(NPTF)) + ELSE + RPT = R*FPTFUU + AUXIL=-4.*PTF**2/PI + PT=SQRT(AUXIL*LOG(EXP(UUMAS**2/AUXIL)+RPT*2./AUXIL)-UUMAS**2) + ENDIF + ELSEIF ( IFLTT .EQ. 12 .OR. IFLTT .EQ. 21 ) THEN + IF ( IOPTF .EQ. 1 ) THEN + PT=UTINVT(NPTF,XPTF,QPTFUS,R*QPTFUS(NPTF)) + ELSE + RPT = R*FPTFUS + AUXIL=-4.*PTF**2/PI + PT=SQRT(AUXIL*LOG(EXP(USMAS**2/AUXIL)+RPT*2./AUXIL)-USMAS**2) + ENDIF + ELSEIF ( IFLTT .EQ. 22 ) THEN + IF ( IOPTF .EQ. 1 ) THEN + PT=UTINVT(NPTF,XPTF,QPTFSS,R*QPTFSS(NPTF)) + ELSE + RPT = R*FPTFSS + AUXIL=-4.*PTF**2/PI + PT=SQRT(AUXIL*LOG(EXP(SSMAS**2/AUXIL)+RPT*2./AUXIL)-SSMAS**2) + ENDIF + ENDIF + + IF ( IBR .EQ. 1 ) THEN + RMX=AMMM**2+PT**2 + ELSE + RMX=0.001D0 + ENDIF + RMY=AMMP**2+PT**2 + IF ( RMY .GT. XP*(YTD-YP) ) GOTO 8 + +C SINGLE ARTRU-MENNESSIER BREAK (SAMB) +C ------------------------------------ +C IN: XP,YP,YTD,RMX,RMY +C IN: DALFA +C OUT: XBR,YBR + + DYT=YTD-YP +C Y-STEPPING RANGE + AMAM=1.D0+(RMX-RMY)/(XP*DYT) + A=(1.D0-4.D0*RMX/(AMAM*AMAM*XP*DYT)) + IF ( A .LT. 0.D0 ) GOTO 8 + A=SQRT(A) + DY1=DYT*AMAM*(1.D0-A)*0.5D0 + DY2=DYT*AMAM*(1.D0+A)*0.5D0 + DYST=0.0001D0*(DYT-DY2) + 3 CONTINUE + DR=DBLE(1.-RANGEN()) + AMAX=XP*DYT*A*AMAM+RMX*LOG(DY1/DY2)+RMY*LOG((DYT-DY2)/(DYT-DY1)) + RA=-LOG(DR)/DALFA + IF ( RA .GT. AMAX .AND. IBR .GT. 1 ) GOTO 8 + RA=MOD(RA,AMAX) + DY=DYT*SQRT(RMX)/(SQRT(RMX)+SQRT(RMY)) + DATWID=XP*(DY-DY1)+RMX*LOG(DY1/DY)+RMY*LOG((DYT-DY)/(DYT-DY1)) + ANEW=RA-DATWID + ICOUNT=0 + IF ( ANEW .GT. 0.D0 ) GOTO 1 + 2 CONTINUE + DA=XP - RMX/DY - RMY/(DYT-DY) + YNEW=DY+ANEW/DA + DY=INT(YNEW/DYST)*DYST + IF ( DY .LT. DY1 ) THEN + WRITE(IFCH,*) 'DY,DY1',DY,DY1 + GOTO 4 + ENDIF + ANEW=RA-XP*(DY-DY1)-RMX*LOG(DY1/DY)-RMY*LOG((DYT-DY)/(DYT-DY1)) + IF ( ANEW .LT. 0.D0 ) GOTO 2 + GOTO 4 + 1 CONTINUE + DA=XP - RMX/DY - RMY/(DYT-DY) + YNEW=DY+ANEW/DA + DY=(INT(YNEW/DYST)+1)*DYST + ANEW=RA-XP*(DY-DY1)-RMX*LOG(DY1/DY)-RMY*LOG((DYT-DY)/(DYT-DY1)) + IF ( ANEW .GT. 0.D0 ) GOTO 1 + DY=DY-DYST + ANEW=RA-XP*(DY-DY1)-RMX*LOG(DY1/DY)-RMY*LOG((DYT-DY)/(DYT-DY1)) + 4 CONTINUE + YBR=MIN( DY+RANGEN()*DYST, DY2 ) + X2=(XP-RMX/YBR) + XBR=MIN( ANEW/DYST+RMY/(DYT-YBR), X2 ) +C BETTER: SOLVE FOR YBR FROM ANEW=0 +C FIND XBR FROM HOMOGENEOUS (NOT EXP) DISTR, X1NBRM ') + ENDIF + IBR=IBR+1 + XBREAK(IBR)=XBR + YBREAK(IBR)=YBR + PHI=2.D0*PI*RANGEN() + PXBRAK(IBR)=PT*COS(PHI) + PYBRAK(IBR)=PT*SIN(PHI) + ICPMBR(1,IBR)=ICPM(1) + ICPMBR(2,IBR)=ICPM(2) + ICMPBR(1,IBR)=ICMP(1) + ICMPBR(2,IBR)=ICMP(2) + XP=XBR + YP=YBR + AMLEFT=SQRT(YBR*(XT-XBR)) + AMRIGT=SQRT(XBR*(YT-YBR)) + GOTO 9 + 8 CONTINUE + + IF ( IBR .EQ. 1 ) GOTO 9994 + +C INITIALIZE TAIL END +C ------------------- + XBREAK(IBR+1)=0. + YBREAK(IBR+1)=YT + PXBRAK(IBR+1)=0. + PYBRAK(IBR+1)=0. + ICMPBR(1,IBR+1)=ICP(1) + ICMPBR(2,IBR+1)=ICP(2) + +C PRINT +C ----- + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'ICMPBR(1/2,) X/YBREAK PX/YBREAK:' + DO 52 IB=1,IBR+1 + WRITE(IFCH,100)ICMPBR(1,IB),ICMPBR(2,IB) + * ,XBREAK(IB),YBREAK(IB),PXBRAK(IB),PYBRAK(IB) +100 FORMAT(1X,I10,I10,2E11.3,7X,2E11.3) + WRITE(IFCH,100)ICPMBR(1,IB),ICPMBR(2,IB) +52 CONTINUE + WRITE(IFCH,*)' ' + ENDIF + +C TIME ORDER BREAKPOINTS +C ---------------------- + + T1=0. + DO 203 J=2,IBR + T2=2. + DO 20 I=2,IBR +C T=XBREAK(I)/XT+YBREAK(I)/YT + T=XBREAK(I)*YBREAK(I)/(XT*YT) + IF ( T .LE. T1 .OR. T .GT. T2 ) GOTO 20 + T2=T + NT=I +20 CONTINUE + T1=T2 + ITRD(J)=NT +203 CONTINUE + +C PRINT +C ----- + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'ITRD:' + WRITE(IFCH,*)(ITRD(IB),IB=2,IBR) + WRITE(IFCH,*)' ' + ENDIF + +C CHECK ACCEPTANCE CRITERIUM +C -------------------------- + + NBR=0 + DO 12 J=2,IBR + I=ITRD(J) + XBRI=XBREAK(I) + YBRI=YBREAK(I) +C FIND NEIGHBORING EARLIER BREAK POINTS + IR=IBR+1 + IL=1 + DO 204 JN=2,J + IN=ITRD(JN) + IF ( IN .GT. I .AND. IN .LT. IR ) IR=IN + IF ( IN .LT. I .AND. IN .GT. IL ) IL=IN +204 CONTINUE + PML=(XBREAK(IL)-XBRI) + PPL=(YBRI-YBREAK(IL)) + PMR=(XBRI-XBREAK(IR)) + PPR=(YBREAK(IR)-YBRI) + PX=PXBRAK(I) + PY=PYBRAK(I) + PXL=PX-PXBRAK(IL) + PYL=PY-PYBRAK(IL) + AMMM=PML*PPL-(PXL*PXL+PYL*PYL) + PXR=PXBRAK(IR)-PX + PYR=PYBRAK(IR)-PY + AMMP=PMR*PPR-(PXR*PXR+PYR*PYR) + IF ( AMMP .LE. 0. ) GOTO 13 + IF ( AMMM .LE. 0. ) GOTO 13 + AMMP=SQRT(AMMP) + AMMM=SQRT(AMMM) + AMP=AMMP + AMM=AMMM + CALL UTRESM(ICMPBR(1,IR),ICMPBR(2,IR) + * ,ICPMBR(1,I),ICPMBR(2,I),AMP,IDPR,IADJP,IRETEN) + CALL UTRESM(ICPMBR(1,IL),ICPMBR(2,IL) + * ,ICMPBR(1,I),ICMPBR(2,I),AMM,IDMR,IADJM,IRETEN) + IF ( AMP .GT. AMMP ) GOTO 13 + IF ( AMM .GT. AMMM ) GOTO 13 + PT2=PX*PX+PY*PY + PTL2=PXBRAK(IL)**2+PYBRAK(IL)**2 + PTR2=PXBRAK(IR)**2+PYBRAK(IR)**2 + D=(PML*PPL-PTL2-PT2)*0.5 + D=D*D-PT2*PTL2 + IF ( D .LE. 0. ) GOTO 13 + D=(PMR*PPR-PTR2-PT2)*0.5 + D=D*D-PT2*PTR2 + IF ( D .LE. 0. ) GOTO 13 + NBR=NBR+1 + GOTO 12 +13 CONTINUE + ITRD(J)=-1 + XBREAK(I)=-1. + YBREAK(I)=-1. +12 CONTINUE + IF ( NBR .EQ. 0 ) GOTO 9994 + +C PRINT +C ----- + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'ICMPBR(1/2,) X/YBREAK PX/YBREAK:' + DO 53 IB=1,IBR+1 + WRITE(IFCH,100)ICMPBR(1,IB),ICMPBR(2,IB) + * ,XBREAK(IB),YBREAK(IB),PXBRAK(IB),PYBRAK(IB) + WRITE(IFCH,100)ICPMBR(1,IB),ICPMBR(2,IB) +53 CONTINUE + WRITE(IFCH,*)' ' + ENDIF + +C BUILD NEW STRINGS +C ----------------- + NBREAK=0 + TAUAVE=0. + IL=1 + IN=IL + IR=1 + LAST=.FALSE. +11 CONTINUE + IR=IR+1 + IF ( IR .EQ. IBR+1 ) LAST=.TRUE. + IF ( XBREAK(IR) .LT. 0. ) GOTO 11 + IF ( IN .EQ. 1 ) GOTO 14 +15 CONTINUE + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'IL IN IR: ',IL,IN,IR + WRITE(IFCH,*)' ' + ENDIF + PML=XBREAK(IL)-XBREAK(IN) + PPL=YBREAK(IN)-YBREAK(IL) + PMR=(XBREAK(IN)-XBREAK(IR)) + PPR=(YBREAK(IR)-YBREAK(IN)) + PX=PXBRAK(IN) + PY=PYBRAK(IN) + PXL=PX-PXBRAK(IL) + PYL=PY-PYBRAK(IL) + PTL2=(PXL*PXL+PYL*PYL) + AMM=SQRT(PML*PPL-PTL2) + PXR=PXBRAK(IR)-PX + PYR=PYBRAK(IR)-PY + PTR2=(PXR*PXR+PYR*PYR) + AMP=SQRT(PMR*PPR-PTR2) + CALL UTRESM(ICMPBR(1,IR),ICMPBR(2,IR) + * ,ICPMBR(1,IN),ICPMBR(2,IN),AMP,IDPR,IADJP,IRETEN) + CALL UTRESM(ICPMBR(1,IL),ICPMBR(2,IL) + * ,ICMPBR(1,IN),ICMPBR(2,IN),AMM,IDMR,IADJM,IRETEN) + AREA=PPL*PMR + P0P=PPL+PPR + P0M=PML+PMR + TMM2=(PTL2+AMM**2) + TMP2=(PTR2+AMP**2) + IF(ISH.GE.90)THEN + IF ( TMP2 .GT. PPR*PMR+1.E-4 ) THEN + CALL UTMSG('JAMBR2') + WRITE(IFCH,*)'***** TMP*TMP.GT.PPR*PMR' + WRITE(IFCH,*)'TMP*TMP PPR*PMR: ',TMP2,PPR*PMR + CALL UTMSGF + ENDIF + IF ( TMM2. GT. PPL*PML+1.E-4 ) THEN + CALL UTMSG('JAMBR2') + WRITE(IFCH,*)'***** TMM*TMM.GT.PPL*PML' + WRITE(IFCH,*)'TMM*TMM PPL*PML: ',TMM2,PPL*PML + CALL UTMSGF + ENDIF + ENDIF + ETA=0.5*LOG(PPL/PMR) +C ------ ADJUST P NOT M + IF ( IADJP .EQ. 1 .AND. IADJM .NE. 1 ) THEN + IF ( ISH .GE. 92 ) WRITE(IFCH,*)'ADJUST P NOT M' + ETANEW=LOG((SQRT(AREA)*P0P)/(TMP2+AREA)) + IF ( ETANEW .LT. ETA-1.E-4 ) THEN + CALL UTMSG('JAMBR2') + WRITE(IFCH,*)'***** ETANEW.LT.ETA' + WRITE(IFCH,*)'ETANEW ETA: ',ETANEW,ETA + CALL UTMSGF + ETANEW=ETA + ENDIF + XBREAK(IN)=SQRT(AREA)*EXP(-ETANEW)+XBREAK(IR) + YBREAK(IN)=SQRT(AREA)*EXP(ETANEW)+YBREAK(IL) +C ------ ADJUST M NOT P + ELSEIF ( IADJM .EQ. 1 .AND. IADJP .NE. 1 ) THEN + IF ( ISH .GE. 92 ) WRITE(IFCH,*)'ADJUST M NOT P' + ETANEW=-LOG((SQRT(AREA)*P0M)/(TMM2+AREA)) + IF ( ETANEW .GT. ETA+1.E-4 ) THEN + IF(ISH.GE.90)THEN + CALL UTMSG('JAMBR2') + WRITE(IFCH,*)'***** ETANEW.GT.ETA' + WRITE(IFCH,*)'ETANEW ETA: ',ETANEW,ETA + CALL UTMSGF + ENDIF + ETANEW=ETA + ENDIF + XBREAK(IN)=SQRT(AREA)*EXP(-ETANEW)+XBREAK(IR) + YBREAK(IN)=SQRT(AREA)*EXP(ETANEW)+YBREAK(IL) +C ------ ADJUST BOTH + ELSEIF ( IADJP .EQ. 1 .AND. IADJM .EQ. 1 ) THEN + IF ( ISH .GE. 92 ) WRITE(IFCH,*)'ADJUST BOTH' + D=(P0P*P0M-TMP2-TMM2)**2-4*TMP2*TMM2 + IF ( D .LT. 0. ) THEN + IF(ISH.GE.90)THEN + CALL UTMSG('JAMBR2') + WRITE(IFCH,*)'***** NEGATIVE D' + WRITE(IFCH,*)'D: ',D + CALL UTMSGF + ENDIF + D=0. + ENDIF + D=SQRT(D) + T=P0P*P0M-TMP2+TMM2 + P1=(T+D)/(2.*P0M) + P2=(T-D)/(2.*P0M) + IF ( (P1+P2)*0.5 .GT. PPL ) THEN + P=P2 + ELSE + P=P1 + ENDIF + XBREAK(IN)=P0M-TMM2/P+XBREAK(IR) + YBREAK(IN)=P+YBREAK(IL) + ENDIF +C ------ + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'X/YBREAK:',XBREAK(IN),YBREAK(IN) + WRITE(IFCH,*)' ' + ENDIF + +C WRITE SG +C -------- + NBREAK=NBREAK+1 + TAUAVE=TAUAVE+XBREAK(IN)*YBREAK(IN) + MM=1 + IF ( LAST ) MM=2 + DO 9998 M=1,MM + NSG=NSG+1 + IF ( NSG .GT. MXSG ) THEN + CALL UTSTOP('JAMBR2: NSG>MXSG ') + ENDIF + IF ( ISH .GE. 92 ) WRITE(IFCH,*)'NSG LAST: ',NSG,LAST + ISG(NSG)=NPTLC + IF ( M .EQ. 2 ) THEN + IL=IN + IN=IR + ENDIF + XOR2(1)=0.D0 + XOR2(2)=0.D0 + XOR2(3)=(YBREAK(IL)-XBREAK(IN))*0.5D0/TENSN + XOR2(4)=(YBREAK(IL)+XBREAK(IN))*0.5D0/TENSN + IF ( ISH .GE. 92 ) WRITE(IFCH,119)XOR2 +119 FORMAT(/' ORIGIN: ',13X,4F7.2/) + CALL UTROT2(-1,ROTSG(1,NS),ROTSG(2,NS),ROTSG(3,NS) + * ,XOR2(1),XOR2(2),XOR2(3)) + CALL UTLOB2(-1,PSG(1,NS),PSG(2,NS),PSG(3,NS),PSG(4,NS),PSG(5,NS) + * ,XOR2(1),XOR2(2),XOR2(3),XOR2(4)) + XOR2(1)=XOR2(1)+XORSG(1,NS) + XORSG(1,NSG)=XOR2(1) + XOR2(2)=XOR2(2)+XORSG(2,NS) + XORSG(2,NSG)=XOR2(2) + XOR2(3)=XOR2(3)+XORSG(3,NS) + XORSG(3,NSG)=XOR2(3) + XOR2(4)=XOR2(4)+XORSG(4,NS) + XORSG(4,NSG)=XOR2(4) +C IF ( ISH .GE. 92 ) WRITE(IFCH,117)XOR2 + PP=YBREAK(IN)-YBREAK(IL) + PM=XBREAK(IL)-XBREAK(IN) + PSG(1,NSG)=PXBRAK(IN)-PXBRAK(IL) + PSG(2,NSG)=PYBRAK(IN)-PYBRAK(IL) + PSG(3,NSG)=(PP-PM)*0.5D0 + PSG(4,NSG)=(PP+PM)*0.5D0 + SS=PSG(4,NSG)**2-PSG(3,NSG)**2-PSG(2,NSG)**2-PSG(1,NSG)**2 + PSG(5,NSG)=SQRT(SS) + IF ( ISH .GE. 92 ) WRITE(IFCH,110)NSG,NS,(PSG(J,NSG),J=1,5) +110 FORMAT(1X,I5,I4,16X,1P,5E10.2) + PW(1)=PSG(1,NSG) + PW(2)=PSG(2,NSG) + PW(3)=PSG(3,NSG) + PW(4)=PSG(4,NSG) + CALL UTROT2(-1,ROTSG(1,NS),ROTSG(2,NS),ROTSG(3,NS) + * ,PSG(1,NSG),PSG(2,NSG),PSG(3,NSG)) + CALL UTLOB2(-1,PSG(1,NS),PSG(2,NS),PSG(3,NS),PSG(4,NS),PSG(5,NS) + * ,PSG(1,NSG),PSG(2,NSG),PSG(3,NSG),PSG(4,NSG)) + IORSG(NSG)=NS + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,102)NSG,IORSG(NSG),(PSG(J,NSG),J=1,5) +102 FORMAT(1X,I5,I4,16X,1P,5E10.2) + WRITE(IFCH,*)' ' + ENDIF + +C WRITE JT +C -------- + ICJT(1,2*NSG-1)=ICMPBR(1,IN) + ICJT(2,2*NSG-1)=ICMPBR(2,IN) + DO 41 NF=1,NFLAV +CDH ######## JCMS IST NICHT GESETZT!!!! + JC(NF,1)=JCMS(NF,1) + JC(NF,2)=JCMS(NF,2) +41 CONTINUE + ICJT(1,2*NSG)=ICPMBR(1,IL) + ICJT(2,2*NSG)=ICPMBR(2,IL) + IF ( M .EQ. 2 ) THEN + IDX=IADJP + ELSE + IDX=IADJM + ENDIF + IF ( IDX .EQ. 0 ) THEN + PJT(1,2*NSG-1)=PXBRAK(IN) + PJT(2,2*NSG-1)=PYBRAK(IN) + PTJR2=PXBRAK(IN)**2+PYBRAK(IN)**2 + PTJL2=PXBRAK(IL)**2+PYBRAK(IL)**2 + AA=PM*PP-PTJL2-PTJR2 + AUXIL=SQRT(AA*AA*0.25-PTJL2*PTJR2) + PRM=(AA*0.5+PTJR2-AUXIL)/PP + PLP=(AA*0.5+PTJL2-AUXIL)/PM + PJT(3,2*NSG-1)=(PP-PLP-PRM)*0.5D0 + PJT(4,2*NSG-1)=(PP-PLP+PRM)*0.5D0 + PJT(5,2*NSG-1)=0.D0 + PJT(1,2*NSG)=-PXBRAK(IL) + PJT(2,2*NSG)=-PYBRAK(IL) + PJT(3,2*NSG)=(PLP-PM+PRM)*0.5D0 + PJT(4,2*NSG)=(PLP+PM-PRM)*0.5D0 + PJT(5,2*NSG)=0.D0 + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,108)NSG,NS + * ,(ICJT(J,2*NSG-1),J=1,2),(SNGL(PJT(J,2*NSG-1)),J=1,5) +108 FORMAT(2X,I3,I4,2X,2I7,5(E10.2)) + WRITE(IFCH,108)NSG,NS + * ,(ICJT(J,2*NSG ),J=1,2),(SNGL(PJT(J,2*NSG )),J=1,5) + ENDIF + ERR= (PW(1)-PJT(1,2*NSG-1)-PJT(1,2*NSG))**2 + ERR=ERR+(PW(2)-PJT(2,2*NSG-1)-PJT(2,2*NSG))**2 + ERR=ERR+(PW(3)-PJT(3,2*NSG-1)-PJT(3,2*NSG))**2 + ERR=ERR+(PW(4)-PJT(4,2*NSG-1)-PJT(4,2*NSG))**2 + ENDIF + ICPZ(1)=ICJT(1,2*NSG-1) + ICPZ(2)=ICJT(2,2*NSG-1) + ICMZ(1)=ICJT(1,2*NSG) + ICMZ(2)=ICJT(2,2*NSG) + CALL IDDECO(ICPZ,JCPZ) + CALL IDDECO(ICMZ,JCMZ) + DO 57 NF=1,NFLAV + JCZ(NF,1)=JCPZ(NF,1)+JCMZ(NF,1) + JCZ(NF,2)=JCPZ(NF,2)+JCMZ(NF,2) +57 CONTINUE + CALL IDENCO(JCZ,ICZ,IRETEN) + IDZ=IDTRA(ICZ,0,0,3) + AMZ=PSG(5,NSG) + CALL IDRES(IDZ,AMZ,IDRZ,IADJ) + IF ( IDRZ .EQ. 110 .AND. RANGEN() .LT. 0.5 ) GOTO 9993 +9998 CONTINUE + +14 CONTINUE + IF ( LAST ) GOTO 10 + IL=IN + IN=IR + GOTO 11 +10 CONTINUE +C +C DETERMINE BREAK PNT +C ----------------------------------- + TAUAVE=TAUAVE/NBREAK + XBK(1)=0.D0 + XBK(2)=0.D0 + AUXIL1=SQRT(TAUAVE*YT/XT) + AUXIL2=SQRT(TAUAVE*XT/YT) + XBK(3)=(AUXIL1-AUXIL2)*0.5D0/TENSN + XBK(4)=(AUXIL1+AUXIL2)*0.5D0/TENSN + IF ( ISH .GE. 92 ) WRITE(IFCH,116) XBK +116 FORMAT(' BREAKING PNT: ',13X,4F7.2) + CALL UTROT2(-1,ROTSG(1,NS),ROTSG(2,NS),ROTSG(3,NS) + * ,XBK(1),XBK(2),XBK(3)) + CALL UTLOB2(-1,PSG(1,NS),PSG(2,NS),PSG(3,NS),PSG(4,NS),PSG(5,NS) + * ,XBK(1),XBK(2),XBK(3),XBK(4)) + XBK(1)=XBK(1)+XORSG(1,NS) + XBK(2)=XBK(2)+XORSG(2,NS) + XBK(3)=XBK(3)+XORSG(3,NS) + XBK(4)=XBK(4)+XORSG(4,NS) + IF ( ISH .GE. 92 ) WRITE(IFCH,117)XBK +117 FORMAT(28X,4F7.2/) +C + XBKPTL(1,NPTLC-NPTL2)=XBK(3) + XBKPTL(2,NPTLC-NPTL2)=XBK(4) + ISPTL(NPTLC-NPTL2)=1 + RETURN + END +C======================================================================= + + SUBROUTINE JAMFRA(JS,NEWEVT) + +C----------------------------------------------------------------------- +C FRAGMENTS STRING JS ACCORDING TO A-M MODEL. +C VERSION MAR-92 (CALLS JAMBR1 OR JAMBR2) +C----------------------------------------------------------------------- + PARAMETER (MXPC=500) + PARAMETER (MXPTL=70000) + PARAMETER (MXSG=500) + PARAMETER (MXJT=2*MXSG) + PARAMETER (MXSTR=3000) + PARAMETER (NFLAV=6) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CDELRE/ DELRER + COMMON /CEVT/ BIMEVT,COLEVT,EGYEVT,PHIEVT,PMXEVT + * ,KOLEVT,NEVT,NPJEVT,NTGEVT + COMMON /CJAMBR/ NPTLC,NPTL2 + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + DOUBLE PRECISION XBKPTL + COMMON /CPC/ XBKPTL(2,MXPC),ISPTL(MXPC) + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + DOUBLE PRECISION PJT,PSG,ROTSG,XORSG + COMMON /CSG/ PJT(5,MXJT),PSG(5,MXSG),ROTSG(3,MXSG) + * ,XORSG(4,MXSG) + * ,ICJT(2,MXJT),IORSG(MXSG),ISG(MXSG) + COMMON /CSTR/ PSTR(5,MXSTR),ROTSTR(3,MXSTR),XORSTR(4,MXSTR) + * ,ICSTR(4,MXSTR),IORSTR(MXSTR),IRLSTR(MXSTR),NSTR + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + DOUBLE PRECISION ARM(4),ARP(4),TOR,ZOR + INTEGER IC(2),ICJ1(2),ICJ2(2) + * ,ICM(2),ICP(2),ICUM(2),ICUP(2) + * ,JC(NFLAV,2) ,JCJ1(NFLAV,2),JCJ2(NFLAV,2) + * ,JCM(NFLAV,2),JCP(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + DELREC=0.600 + DELREX=0.050 + NEWEVT=0 + + PSG(1,1)=PSTR(1,JS) + PSG(2,1)=PSTR(2,JS) + PSG(3,1)=PSTR(3,JS) + PSG(4,1)=PSTR(4,JS) + PSG(5,1)=PSTR(5,JS) + ROTSG(1,1)=ROTSTR(1,JS) + ROTSG(2,1)=ROTSTR(2,JS) + ROTSG(3,1)=ROTSTR(3,JS) + XORSG(1,1)=XORSTR(1,JS) + XORSG(2,1)=XORSTR(2,JS) + XORSG(3,1)=XORSTR(3,JS) + XORSG(4,1)=XORSTR(4,JS) + SQRTS=ABS(PSTR(5,JS)) + S=PSTR(5,JS)**2 + ISG(1)=IORSTR(JS) + IORSG(1)=0 + PJT(1,1)=0.D0 + PJT(1,2)=0.D0 + PJT(2,1)=0.D0 + PJT(2,2)=0.D0 + PJT(3,1)=SQRTS*0.5D0 + PJT(3,2)=-SQRTS*0.5D0 + PJT(4,1)=SQRTS*0.5D0 + PJT(4,2)=SQRTS*0.5D0 + PJT(5,1)=0.D0 + PJT(5,2)=0.D0 + IF ( ROTSTR(3,JS) .LT. 0. ) THEN + ICJT(1,1)=ICSTR(3,JS) + ICJT(2,1)=ICSTR(4,JS) + ICJT(1,2)=ICSTR(1,JS) + ICJT(2,2)=ICSTR(2,JS) + ELSE + ICJT(1,1)=ICSTR(1,JS) + ICJT(2,1)=ICSTR(2,JS) + ICJT(1,2)=ICSTR(3,JS) + ICJT(2,2)=ICSTR(4,JS) + ENDIF + ICJ1(1)=ICJT(1,1) + ICJ1(2)=ICJT(2,1) + ICJ2(1)=ICJT(1,2) + ICJ2(2)=ICJT(2,2) + CALL IDDECO(ICJ1,JCJ1) + CALL IDDECO(ICJ2,JCJ2) + NQJ1=0 + NQJ2=0 + DO 4 NF=1,NFLAV + NQJ1=NQJ1+JCJ1(NF,1)-JCJ1(NF,2) + NQJ2=NQJ2+JCJ2(NF,1)-JCJ2(NF,2) +4 CONTINUE + IF ( NQJ1 .GE. 0 ) THEN + IF ( NQJ2 .GE. 0 ) THEN + ISI = 0 + ELSE + ISI = 1 + ENDIF + ELSE + IF ( NQJ2 .GE. 0 ) THEN + ISI = 2 + ELSE + ISI = 3 + ENDIF + ENDIF + NQJSTR=ISI*1000000+ABS(NQJ1)*1000+ABS(NQJ2) + +C ENTRY STRING FRAGMENTATION +C -------------------------- + NPTL2=NPTL + NCNT2=0 +9996 NCNT2=NCNT2+1 + NPTL=NPTL2 + NSG=1 + IF ( NCNT2 .GT. 1000 ) GOTO 1001 + +C ENTRY SUBSTRING PROCESSING +C -------------------------- + NS=0 +9999 NS=NS+1 + IF ( NS .GT. NSG ) GOTO 9997 + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)'ENTRY SUBSTRING PROCESSING' + WRITE(IFCH,*)' ' + WRITE(IFCH,107)NS + * ,(ICJT(J,2*NS-1 ),J=1,2),(SNGL(PJT(J,2*NS-1 )),J=1,5) +107 FORMAT(2X,I3,3X,3X,2I7,5(E10.2)) + WRITE(IFCH,107)NS + * ,(ICJT(J,2*NS ),J=1,2),(SNGL(PJT(J,2*NS )),J=1,5) + WRITE(IFCH,101)NS,(PSG(J,NS),J=1,5) +101 FORMAT(2X,I3,23X,5(E10.2)/) +114 FORMAT(' LEFT BREAKING PNT: ',8X,4F7.2/) + ENDIF + +C DETERMINE ID AND MIN.MASS +C ------------------------- + DELRER=DELREX+RANGEN()*(DELREM-DELREX) + ICP(1)=ICJT(1,2*NS-1) + ICP(2)=ICJT(2,2*NS-1) + ICM(1)=ICJT(1,2*NS) + ICM(2)=ICJT(2,2*NS) + CALL IDCOMK(ICP) + CALL IDCOMK(ICM) + ICJT(1,2*NS-1)=ICP(1) + ICJT(2,2*NS-1)=ICP(2) + ICJT(1,2*NS)=ICM(1) + ICJT(2,2*NS)=ICM(2) + CALL IDDECO(ICP,JCP) + CALL IDDECO(ICM,JCM) + AMMS=UTAMNX(JCM,JCP) + NUBAR=0 + DO 7 NF=1,NFLAV + JC(NF,1)=JCP(NF,1)+JCM(NF,1) + JC(NF,2)=JCP(NF,2)+JCM(NF,2) + IF ( NF .GT. 4 .AND. (JC(NF,1).NE.0 .OR. JC(NF,2).NE.0) ) THEN + CALL UTSTOP('JAMFRA: FLAVOUR > 4 ') + ENDIF + NUBAR=NUBAR+JC(NF,1)-JC(NF,2) +7 CONTINUE + IF ( NS .EQ. 1 ) NUMBAR=NUBAR + CALL IDENCO(JC,IC,IRETEN) + CALL IDCOMK(IC) + ID=IDTRA(IC,0,0,3) + IDK=ID + AM=PSG(5,NS) + IREMN=0 + IF ( ICP(1)+ICP(2) .EQ. 0 .OR. ICM(1)+ICM(2) .EQ. 0 ) IREMN=1 + IF ( AM .GT. AMMS+DELRER .AND. IREMN .EQ. 0 ) ID=0 + +C MASS ADJUSTMENT => FRAGMENT AGAIN +C --------------------------------- + AMC=PSG(5,NS) + CALL IDRES(ID,AMC,IDR,IADJ) + IF ( ABS(AMC-PSG(5,NS)) .GT. 1.E-3 ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JAMFRA') + WRITE(IFCH,*)'***** MASS CHANGED. FRAGMENT AGAIN.' + WRITE(IFCH,*)'MASS BEFORE, AFTER: ',PSG(5,NS),AMC + WRITE(IFCH,*)'IC,ID,IDR: ',IC,ID,IDR + CALL UTMSGF + ENDIF + GOTO 9996 + ENDIF + +C IF MASS < MIN.MASS ==> AGAIN +C ---------------------------- +C-C IF ( IDR.EQ.0.AND.AM.LT.AMMS-1.E-3 ) THEN +C-C IF ( ISH .GE. 90 ) THEN +C-C CALL UTMSG('JAMFRA') +C-C WRITE(IFCH,*)'***** MASS < MIN MASS. ',AM,AMMS +C-C WRITE(IFCH,*)'IDK,ID,IDR,PSG(5,NS):' +C-C WRITE(IFCH,*)IDK,ID,IDR,PSG(5,NS) +C-C WRITE(IFCH,*)'P_JET:' +C-C WRITE(IFCH,107)NS +C-C * ,(ICJT(J,2*NS-1 ),J=1,2),(SNGL(PJT(J,2*NS-1 )),J=1,5) +C-C WRITE(IFCH,107)NS +C-C * ,(ICJT(J,2*NS ),J=1,2),(SNGL(PJT(J,2*NS )),J=1,5) +C-C WRITE(IFCH,*)'P_STR:' +C-C WRITE(IFCH,101)NS,(PSG(J,NS),J=1,5) +C-C CALL UTMSGF +C-C ENDIF +C-C IF ( NS .EQ. 1 ) GOTO 1001 +C-C GOTO 9996 +C-C ENDIF + +C WRITE ON /CPTL/ (1) +C ------------------- + IORI=ISG(NS) + NPTLB=NPTL +9995 NPTL=NPTL+1 + NPTLC=NPTL + IF ( NPTL .GT. MXPTL ) THEN + CALL UTSTOP('JAMFRA: NPTL>MXPTL ') + ENDIF + IF ( NPTL-NPTL2 .GT. MXPC ) THEN + CALL UTSTOP('JAMFRA: NPTL-NPTL2>MXPC ') + ENDIF + + PPTL(1,NPTL)=PSG(1,NS) + PPTL(2,NPTL)=PSG(2,NS) + PPTL(3,NPTL)=PSG(3,NS) + PPTL(4,NPTL)=PSG(4,NS) + PPTL(5,NPTL)=PSG(5,NS) + XORPTL(1,NPTL)=XORSG(1,NS) + XORPTL(2,NPTL)=XORSG(2,NS) + XORPTL(3,NPTL)=XORSG(3,NS) + XORPTL(4,NPTL)=XORSG(4,NS) + XBKPTL(1,NPTL-NPTL2)=AINFIN + XBKPTL(2,NPTL-NPTL2)=AINFIN + TIVPTL(1,NPTL)=-AINFIN + TIVPTL(2,NPTL)=AINFIN + IFRPTL(1,NPTL)=0 + IFRPTL(2,NPTL)=0 + ICLPTL(NPTL)=0 + ISPTL(NPTL-NPTL2)=0 + IORPTL(NPTL)=IORI + JORPTL(NPTL)=0 + IF ( NPTL .GT. NPTL2+1 ) THEN + NQJPTL(NPTL)=-NQJSTR + ELSEIF ( NPTL .EQ. NPTL2+1 ) THEN + NQJPTL(NPTL)= NQJSTR + ENDIF + IDPTL(NPTL)=IDR + IF ( IDR .EQ. 0 ) THEN + IF ( IC(1) .EQ. 0 .AND. IC(2) .EQ. 0 ) THEN + IDPTL(NPTL)=700000000 + CALL IDTRBI(JC,IBPTL(1,NPTL),IBPTL(2,NPTL) + * ,IBPTL(3,NPTL),IBPTL(4,NPTL)) + ELSE + IB5=JC(5,1)*10000+JC(5,2) + IB6=JC(6,1)*10000+JC(6,2) + IF ( IB5 .NE. 0 .OR. IB6 .NE. 0 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'***** ERROR IN JAMFRA: BOTTOM OR TOP QUARKS' + WRITE(IFCH,*)'JC:' + WRITE(IFCH,*)JC + CALL UTSTOP('JAMFRA: BOTTOM OR TOP QUARKS ') + ENDIF + IDPTL(NPTL)=800000000+IC(1)*100+IC(2)/100 + ENDIF + ENDIF + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,115)NPTL,IORPTL(NPTL),IDPTL(NPTL) + * ,(PPTL(J,NPTL),J=1,5) +115 FORMAT(1X,'/CPTL/',I6,I7,I10,5(E10.2)) + IF ( IDPTL(NPTL) .EQ. 700000000 ) + * WRITE(IFCH,*)(IBPTL(I,NPTL),I=1,4) + IF ( ISH .GE. 92 ) WRITE(IFCH,*)' ' + ENDIF + IF ( IDR .NE. 0 ) GOTO 9999 + + NQP=0 + NQM=0 + NAP=0 + NAM=0 + DO 23 NF=1,NFLAV + NQP=NQP+JCP(NF,1) + NQM=NQM+JCM(NF,1) + NAP=NAP+JCP(NF,2) + NAM=NAM+JCM(NF,2) +23 CONTINUE + NP=NQP-NAP + NM=NQM-NAM + JP=NQP+NAP + JM=NQM+NAM + +C QUARK-CLUSTER +C ------------- + IF ( ICP(1)+ICP(2) .EQ. 0 .OR. ICM(1)+ICM(2) .EQ. 0 ) GOTO 78 + IF ( AM .GT. AMMS+DELRER ) GOTO 77 + IF ( IDK .EQ. 0 .AND. AM .GT. AMMS+DELREC ) GOTO 77 + IF ( IDK .NE. 0 .AND. AM .GT. AMMS+DELREX ) GOTO 77 +78 CONTINUE + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)'QUARK-CLUSTER' + WRITE(IFCH,*)' ' + ENDIF + IF ( ICP(1)+ICP(2) .EQ. 0 .AND. ICM(1)+ICM(2) .EQ. 0 ) THEN + CALL UTSTOP('JAMFRA: ZERO STRING. ') + ENDIF + GOTO 9999 +77 CONTINUE + +C JET TRAFOS +C ---------- + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)'JET TRAFOS' + WRITE(IFCH,*)' ' + ENDIF + ARP(1)=PJT(1,2*NS-1) + ARP(2)=PJT(2,2*NS-1) + ARP(3)=PJT(3,2*NS-1) + ARP(4)=PJT(4,2*NS-1) + ARM(1)=PJT(1,2*NS) + ARM(2)=PJT(2,2*NS) + ARM(3)=PJT(3,2*NS) + ARM(4)=PJT(4,2*NS) + IF ( ISH .GE. 90 ) CALL UTCHM(ARP,ARM,1) + NSO=IORSG(NS) + IF ( NSO .GT. 0 ) THEN + CALL UTROT2(-1,ROTSG(1,NSO),ROTSG(2,NSO),ROTSG(3,NSO) + * ,ARP(1),ARP(2),ARP(3)) + CALL UTLOB2(-1,PSG(1,NSO),PSG(2,NSO),PSG(3,NSO),PSG(4,NSO) + * ,PSG(5,NSO),ARP(1),ARP(2),ARP(3),ARP(4)) + CALL UTROT2(-1,ROTSG(1,NSO),ROTSG(2,NSO),ROTSG(3,NSO) + * ,ARM(1),ARM(2),ARM(3)) + CALL UTLOB2(-1,PSG(1,NSO),PSG(2,NSO),PSG(3,NSO),PSG(4,NSO) + * ,PSG(5,NSO),ARM(1),ARM(2),ARM(3),ARM(4)) + IF ( ISH .GE. 90 ) CALL UTCHM(ARP,ARM,2) + CALL UTLOB2(1,PSG(1,NS),PSG(2,NS),PSG(3,NS),PSG(4,NS),PSG(5,NS) + * ,ARP(1),ARP(2),ARP(3),ARP(4)) + CALL UTLOB2(1,PSG(1,NS),PSG(2,NS),PSG(3,NS),PSG(4,NS),PSG(5,NS) + * ,ARM(1),ARM(2),ARM(3),ARM(4)) + IF ( ISH .GE. 90 ) CALL UTCHM(ARP,ARM,3) + ROTSG(1,NS)=(ARP(1)-ARM(1))*0.5D0 + ROTSG(2,NS)=(ARP(2)-ARM(2))*0.5D0 + ROTSG(3,NS)=(ARP(3)-ARM(3))*0.5D0 + CALL UTROT2(1,ROTSG(1,NS),ROTSG(2,NS),ROTSG(3,NS) + * ,ARP(1),ARP(2),ARP(3)) + CALL UTROT2(1,ROTSG(1,NS),ROTSG(2,NS),ROTSG(3,NS) + * ,ARM(1),ARM(2),ARM(3)) + ENDIF + ICUP(1)=ICJT(1,2*NS-1) + ICUP(2)=ICJT(2,2*NS-1) + ICUM(1)=ICJT(1,2*NS) + ICUM(2)=ICJT(2,2*NS) + IF ( ARP(3) .LT. 0.D0 ) THEN + ICJT(1,2*NS-1)=ICUM(1) + ICJT(2,2*NS-1)=ICUM(2) + PJT(1,2*NS-1)=ARM(1) + PJT(2,2*NS-1)=ARM(2) + PJT(3,2*NS-1)=ARM(3) + PJT(4,2*NS-1)=ARM(4) + ICJT(1,2*NS)=ICUP(1) + ICJT(2,2*NS)=ICUP(2) + PJT(1,2*NS)=ARP(1) + PJT(2,2*NS)=ARP(2) + PJT(3,2*NS)=ARP(3) + PJT(4,2*NS)=ARP(4) + ELSE + ICJT(1,2*NS-1)=ICUP(1) + ICJT(2,2*NS-1)=ICUP(2) + PJT(1,2*NS-1)=ARP(1) + PJT(2,2*NS-1)=ARP(2) + PJT(3,2*NS-1)=ARP(3) + PJT(4,2*NS-1)=ARP(4) + ICJT(1,2*NS)=ICUM(1) + ICJT(2,2*NS)=ICUM(2) + PJT(1,2*NS)=ARM(1) + PJT(2,2*NS)=ARM(2) + PJT(3,2*NS)=ARM(3) + PJT(4,2*NS)=ARM(4) + ENDIF + S=PSG(5,NS)**2 + IF ( ISH .GE. 90 ) THEN + + AUXIL=100.*ABS( SNGL(PJT(3,2*NS-1)-PJT(3,2*NS))-ABS(PSG(5,NS)) ) + IF ( AUXIL .GT. 1. .AND. AUXIL .GT. ABS(PSG(5,NS)) ) THEN + CALL UTMSG('JAMFRA') + WRITE(IFCH,*)'***** PZ1-PZ2-SQRT(S) NONZERO' + WRITE(IFCH,*)'VALUE: ' + * ,SNGL(PJT(3,2*NS-1)-PJT(3,2*NS))-SQRT(S) + WRITE(IFCH,*)'SQRT(S): ',SQRT(S) + WRITE(IFCH,*)(SNGL(PJT(I,2*NS-1)),I=1,4) + WRITE(IFCH,*)(SNGL(PJT(I,2*NS)),I=1,4) + CALL UTMSGF + ENDIF + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,103)NS,NSO + * ,(ICJT(J,2*NS-1 ),J=1,2),(SNGL(PJT(J,2*NS-1 )),J=1,5) +103 FORMAT(2X,I3,I3,3X,2I7,5(E10.2)) + WRITE(IFCH,104) + * (ICJT(J,2*NS ),J=1,2),(SNGL(PJT(J,2*NS )),J=1,5) +104 FORMAT(2X,9X,2I7,5(E10.2)/) + ENDIF + ENDIF + + IF ( IOPBRK .EQ. 1 ) THEN + CALL JAMBR1(NS,NSG,IRET) + ELSEIF ( IOPBRK .EQ. 2 ) THEN + CALL JAMBR2(NS,NSG,IRET) + ENDIF + IF ( IRET .EQ. 9996 ) GOTO 9996 + GOTO 9999 + +C WRITE ON /CPTL/ (2) +C ------------------- +9997 CONTINUE + IF ( NPTL .LE. NPTL2 ) THEN + CALL UTSTOP('JAMFRA: NPTL<=NPTL2 ') + ENDIF + IF ( ISH .GE. 91 ) WRITE(IFCH,*)' ' + DO 67 I=NPTL2+1,NPTL + ISTPTL(I)=ISPTL(I-NPTL2) + IO=IORPTL(I) + IF ( IO .GT. 0 ) THEN + IF ( IFRPTL(1,IO) .EQ. 0 ) IFRPTL(1,IO)=I + IFRPTL(2,IO)=I + ELSE + IORPTL(I)=0 + ENDIF + ZOR=XORSG(3,1) + TOR=XORSG(4,1) + R=RANGEN() + TAURAN=-TAUREA*LOG(R) + CALL UTTAIX(I,TAURAN,ZOR,TOR,ZIS,TIS) + TIVPTL(1,I)=MAX(TIS,XORPTL(4,I)) + IF ( ISTPTL(I) .NE. 0 ) THEN + TAUBR=SQRT + * ((XBKPTL(2,I-NPTL2)-TOR)**2-(XBKPTL(1,I-NPTL2)-ZOR)**2) + CALL UTTAIX(I,TAUBR,ZOR,TOR,ZIS,TIS) + TIVPTL(2,I)=TIS + ELSEIF ( IO .GT. 0 ) THEN + TAUBR=SQRT + * ((XBKPTL(2,IO-NPTL2)-TOR)**2-(XBKPTL(1,IO-NPTL2)-ZOR)**2) + CALL UTTAIX(I,TAUBR,XORSG(3,1),XORSG(4,1),ZISBR,TISBR) + CALL IDTAU(IDPTL(I),PPTL(4,I),PPTL(5,I),TAUGM) + TIVPTL(2,I)=TISBR+TAUGM + ELSE + CALL IDTAU(IDPTL(I),PPTL(4,I),PPTL(5,I),TAUGM) + TIVPTL(2,I)=XORPTL(4,I)+TAUGM + ENDIF + IF ( ISH .GE. 92 ) WRITE(IFCH,120)I,IORPTL(I),IDPTL(I) + * ,(SNGL(XBKPTL(J,I-NPTL2)),J=1,2) + * ,(XORPTL(J,I),J=3,4),(TIVPTL(J,I),J=1,2) +120 FORMAT(1X,'/CPTL/',I6,I7,I10 + * ,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2) +67 CONTINUE + +1000 RETURN + +1001 NEWEVT=1 + GOTO 1000 + + END +C======================================================================= + + SUBROUTINE JCENTD + +C---------------------------------------------------------------------- + PARAMETER (KPARX=15) + PARAMETER (NQUAX=12) + COMMON /CENTRO/ ENTRO(1+KPARX,1+NQUAX) + REAL ENTROX(1+KPARX,1+NQUAX) + + DATA (ENTROX( 1,1+N),N=0,12)/ + *.00000E+00,.00000E+00,.00000E+00,.00000E+00,.00000E+00,.00000E+00, + *.00000E+00,.00000E+00,.00000E+00,.00000E+00,.00000E+00,.00000E+00, + *.00000E+00/ + DATA (ENTROX( 4,1+N),N=0,12)/ + *.40254E+01,.59349E+01,.74855E+01,.87464E+01,.98267E+01,.10770E+02, + *.11611E+02,.12368E+02,.13058E+02,.13691E+02,.14277E+02,.14822E+02, + *.15332E+02/ + DATA (ENTROX( 7,1+N),N=0,12)/ + *.61944E+01,.89306E+01,.11114E+02,.12969E+02,.14595E+02,.16054E+02, + *.17380E+02,.18599E+02,.19728E+02,.20780E+02,.21767E+02,.22696E+02, + *.23574E+02/ + DATA (ENTROX(10,1+N),N=0,12)/ + *.68876E+01,.10183E+02,.12855E+02,.15159E+02,.17201E+02,.19046E+02, + *.20734E+02,.22296E+02,.23751E+02,.25115E+02,.26400E+02,.27616E+02, + *.28771E+02/ + DATA (ENTROX(13,1+N),N=0,12)/ + *.61944E+01,.99602E+01,.13068E+02,.15784E+02,.18208E+02,.20406E+02, + *.22425E+02,.24295E+02,.26041E+02,.27681E+02,.29228E+02,.30696E+02, + *.32092E+02/ + DATA (ENTROX(16,1+N),N=0,12)/ + *.40254E+01,.82375E+01,.11781E+02,.14923E+02,.17745E+02,.20311E+02, + *.22669E+02,.24853E+02,.26890E+02,.28803E+02,.30609E+02,.32320E+02, + *.33948E+02/ + SAVE +C---------------------------------------------------------------------- + KPH=KPARX + NQH=NQUAX + DO 2 N=1,1+NQUAX + DO 1 K=1,1+KPARX + ENTRO(K,N)=ENTROX(K,N) +1 CONTINUE +2 CONTINUE + + IF ( KPH .NE. 15 ) THEN + CALL UTSTOP('ICENTD: INSUFFICIENT INITIALIZATION; K') + ENDIF + IF ( NQH .NE. 12 ) THEN + CALL UTSTOP('ICENTD: INSUFFICIENT INITIALIZATION; N') + ENDIF + + RETURN + END +C======================================================================= + + SUBROUTINE JCENTP + +C---------------------------------------------------------------------- +C PLOTS ENTRO(,) AND FTN SJCENT +C---------------------------------------------------------------------- + PARAMETER (KPARX=15) + PARAMETER (NQUAX=12) + COMMON /CENTRO/ ENTRO(1+KPARX,1+NQUAX) + COMMON /CJCENT/ IGX,NSYMX + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + REAL XPLOT(101),YPLOT(101) + INTEGER IPLOT(5) + CHARACTER TEXT*50 + DATA IPLOT/0,0,0,1,1/ + SAVE +C---------------------------------------------------------------------- + ISH0=ISH + IF ( ISHSUB/100 .EQ. 13 ) ISH=MOD(ISHSUB,100) + IF ( ISH .LT. 95 ) GOTO 1000 + + IF ( IPLOT(1) .EQ. 1 ) THEN + TEXT='TITLE IG= NSYM= K= 3,6,9,12,15$ ' + WRITE(TEXT(10:11),122)IGX + WRITE(TEXT(20:21),122)NSYMX +122 FORMAT(I2) + DO 54 KX=1,5 + K=3*KX + DO 55 N=1,13 + XPLOT(N)=N-1 + YPLOT(N)=ENTRO(1+K,N) +55 CONTINUE + CALL UTHIST(0.,12.,0.,40.,1+12,XPLOT,YPLOT,'LIN','LINLIN' + * ,'XAXIS ENERGY / OMEGA $ ' + * ,'YAXIS ENTROPY $ ',TEXT) +54 CONTINUE + ENDIF + + IF ( IPLOT(2) .EQ. 1 ) THEN + TEXT='TITLE IG= NSYM= K= 3,6,9,12,15$ ' + WRITE(TEXT(10:11),122)IGX + WRITE(TEXT(20:21),122)NSYMX + DO 64 KX=1,5 + K=3*KX + DO 65 N=1,13 + XPLOT(N)=(N-1.)/FLOAT(K) + YPLOT(N)=ENTRO(1+K,N)/K +65 CONTINUE + CALL UTHIST(0.,5.,0.,6.,1+12,XPLOT,YPLOT,'LIN','LINLIN' + * ,'XAXIS ENERGY / OMEGA / PARTICLE $ ' + * ,'YAXIS ENTROPY / PARTICLE $ ',TEXT) +64 CONTINUE + ENDIF + + IF ( IPLOT(3) .EQ. 1 ) THEN + DO 62 KX=1,10 + K=3*KX + DO 63 N=0,100 + X=N*0.05 + XPLOT(1+N)=X + YPLOT(1+N)=SJCENT(K,K,K*X)/K +63 CONTINUE + CALL UTHIST(0.,5.,0.,6.,101,XPLOT,YPLOT,'LIN','LINLIN' + * ,'XAXIS ENERGY / OMEGA / PARTICLE $ ' + * ,'YAXIS ENTROPY / PARTICLE $ ' + * ,'TITLE INTER(EXTRA)POLATED $ ') +62 CONTINUE + ENDIF + + IF ( IPLOT(4) .EQ. 1 ) THEN + DO 58 KX=1,10 + K=3*KX + DO 59 N=0,100 + X=N*0.5 + XPLOT(1+N)=X + YPLOT(1+N)=SJCENT(K,K,X) +59 CONTINUE + CALL UTHIST(0.,50.,0.,80.,101,XPLOT,YPLOT,'LIN','LINLIN' + * ,'XAXIS ENERGY / OMEGA $ ' + * ,'YAXIS ENTROPY $ ' + * ,'TITLE INTER(EXTRA)POLATED KU=K $ ') +58 CONTINUE + ENDIF + + IF ( IPLOT(5) .EQ. 1 ) THEN + DO 48 KX=1,10 + K=3*KX + DO 49 N=0,100 + X=N*0.5 + XPLOT(1+N)=X + YPLOT(1+N)=SJCENT(K,0,X) +49 CONTINUE + CALL UTHIST(0.,50.,0.,80.,101,XPLOT,YPLOT,'LIN','LINLIN' + * ,'XAXIS ENERGY / OMEGA $ ' + * ,'YAXIS ENTROPY $ ' + * ,'TITLE INTER(EXTRA)POLATED KU=0 $ ') +48 CONTINUE + ENDIF + +1000 CONTINUE + ISH=ISH0 + RETURN + END +C======================================================================= + + SUBROUTINE JCENTR(NSYM,IG,IDI,INIT) + +C---------------------------------------------------------------------- +C FILLS ARRAY DEGEN(1+K,1+N) CONTAINING +C THE NUMBER OF MIXED SYMMETRIC (BOX OF WIDTH NSYM) +C K-PARTICLE STATES WITH ENERGY N (UNITS OF OMEGA), BASED ON +C OSCILLATOR (DIM: IDI) WAVEFUNCTIONS (ADDIT. DEGENERACY: IG) . +C FILLS ARRAY ENTRO(1+K,1+N) = LOG( DEGEN(1+K,1+N) ) . +C ENTRO(,) WRITTEN IN FORM OF DATA FOR JCENTD IF ISH=95 +C (ISHSUB=12.. SELECTS THIS). +C INIT MUST BE SET 1 FOR THE FIRST CALL OF JCENTR +C (INIT=1 CALLS UTTUCL, UTPART, UTOVEL) +C---------------------------------------------------------------------- + PARAMETER (IOVMAX=100) + PARAMETER (ITAMAX=1000) + PARAMETER (JOVMAX=100) + PARAMETER (KPARX=15) + PARAMETER (KTUMAX=100) + PARAMETER (NQUAX=12) + PARAMETER (JPAMAX=NQUAX*NQUAX*NQUAX) + PARAMETER (KKPMAX=NQUAX*NQUAX*2) + PARAMETER (NSYMAX=20) + PARAMETER (NTUMAX=100) + PARAMETER (NYMAX=1000) + COMMON /CDEGEN/ DEGEN(1+KPARX,1+NQUAX) + COMMON /CENTRO/ ENTRO(1+KPARX,1+NQUAX) + COMMON /CJCENT/ IGX,NSYMX + COMMON /COVEL/ OVEL(1+IOVMAX,1+JOVMAX) + COMMON /CPARTA/ PARTA(NQUAX),IPART(NQUAX,JPAMAX) + DOUBLE PRECISION TUCL + COMMON /CTUCL/ TUCL(1+KTUMAX,1+NTUMAX) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + REAL YOFA(ITAMAX) + INTEGER IYO(NYMAX,KPARX),IYOL(ITAMAX),IYOM(ITAMAX),IYOO(ITAMAX) + * ,IYOR(NSYMAX),IYOX(KPARX),IYOZ(ITAMAX,NSYMAX,2) + * ,JYO(NYMAX),KKK(KPARX) + CHARACTER CIGA*7 + CHARACTER*1 CYOX(1+NQUAX,KPARX),DELI(1+KPARX,1+NQUAX) + SAVE +C---------------------------------------------------------------------- + IF ( INIT .EQ. 1 ) THEN + CALL UTTUCL + CALL UTPART + CALL UTOVEL + ENDIF + + WRITE(IFMT,*)'EXECUTE SR JCENTR ...' + IF ( NSYM .GE. NSYMAX ) THEN + CALL UTSTOP('JCENTR: DIMENSION NSYMAX TOO SMALL ') + ENDIF + IF ( MOD(KPARX,NSYM) .NE. 0 ) THEN + CALL UTSTOP('JCENTR: KPARX SHOULD BE MULTIPLE OF NSYM') + ENDIF + MMAX=1+(KPARX-1)/NSYM + IZERO=0 + NSYMX=NSYM + IGX=IG + +C LOOP OVER ENERGY +C ---------------- + DO 6000 N=0,NQUAX + WRITE(IFMT,*)'SR JCENTR: N=',N + IF ( N .EQ. 0 ) THEN + KKP=1 + ELSE + KKP=-IPART(N,1) + IF ( KKP .GT. KKPMAX ) THEN + CALL UTSTOP('JCENTR: DIMENSION KKPMAX TOO SMALL ') + ENDIF + IF ( -IPART(N,1) .NE. NINT(PARTA(N)) ) THEN + CALL UTSTOP('JCENTR: # OF PARTITIONS DISAGREE ') + ENDIF + ENDIF + IF ( ISH .GE. 93 ) THEN + WRITE(IFCH,103)('-',IC=1,79),N,KKP,('-',IC=1,79) +103 FORMAT(/1X,79A1/7X,'N = ',I2, + * ' ---> ',I4,' PARTITION(S)'/1X,79A1/) + JJ=2 + DO 8 KK=1,KKP + IF ( N .EQ. 0 ) THEN + WRITE(IFCH,102)KK,IZERO + ELSEIF ( N .GT. 0 ) THEN + LL=-IPART(N,JJ) + WRITE(IFCH,102)KK,(IPART(N,I),I=JJ+1,JJ+MIN(20,LL)) +102 FORMAT(2X,I2,'. PARTITION:',3X,20I3) + ENDIF + JJ=JJ+LL+1 + 8 CONTINUE + ENDIF + +C ZERO PARTICLES +C -------------- + DEGEN(1,1+N)=1. + ENTRO(1,1+N)=0. + IF ( N .EQ. NQUAX ) THEN + DELI(1,1+N)='/' + ELSE + DELI(1,1+N)=',' + ENDIF + +C LOOP OVER PARTICLE NUMBER +C ------------------------- + DO 6001 KX=1,KPARX/3 + K=3*KX + IF ( K .GT. KPARX ) THEN + CALL UTSTOP('JCENTR: DIMENSION KPARX TOO SMALL ') + ENDIF + DEGEN(1+K,1+N)=0. + IF ( N .EQ. NQUAX ) THEN + DELI(1+K,1+N)='/' + ELSE + DELI(1+K,1+N)=',' + ENDIF + KKK(K)=KKP + MMAXK=1+(K-1)/NSYM + IF ( K .LT. KPARX ) THEN + DO 5 L=K+1,KPARX + DO 5 NY=1,NYMAX + IYO(NY,L)=-1 + 5 CONTINUE + ENDIF + IF ( ISH.GE.93 ) WRITE(IFCH,100)('-',IC=1,11),K,('-',IC=1,11) +100 FORMAT(/1X,11A1/3X,'K = ',I2/1X,11A1/) + +C LOOP OVER PARTITIONS +C -------------------- + JJ=2 + DO 6002 KK=1,KKP + IF ( N .GT. 0 ) THEN + LL=-IPART(N,JJ) + ELSEIF ( N .EQ. 0 ) THEN + LL=1 + ENDIF + IF ( LL .GT. K ) THEN + KKK(K)=KK-1 + GOTO 6003 + ENDIF + IF ( ISH .GE. 93 ) THEN + IF ( N .EQ. 0 ) THEN + WRITE(IFCH,102)KK,IZERO + ELSEIF ( N .GT. 0 ) THEN + WRITE(IFCH,102)KK,(IPART(N,I),I=JJ+1,JJ+MIN(20,LL)) + ENDIF + WRITE(IFCH,*)' ' + ENDIF + +C CONSTRUCT YOUNG TABLEAUS +C ------------------------ + NY1=1 + NY2=1 + JYO(NY1)=1 + DO 46 L=1,K + IYO(NY1,L)=0 +46 CONTINUE + IF ( N .GT. 0 ) THEN + IYO(NY1,K)=IPART(N,JJ+1) + NY1=NY1-1 +45 NY1=NY1+1 + IF ( JYO(NY1) .EQ. LL ) GOTO 51 + DO 43 LX=1,NSYM + L=NSYM+1-LX + DO 44 MX=1,MMAXK + M=MMAXK+1-MX + IF ( IYO(NY1,(M-1)*NSYM+L) .EQ. 0 ) THEN + IF ( L.EQ.NSYM .OR. (L.NE.NSYM.AND. + * IYO(NY1,(M-1)*NSYM+L+1).NE.0) ) THEN + NY2=NY2+1 + IF ( NY2 .GT. NYMAX ) THEN + CALL UTSTOP + * ('JCENTR: DIMENSION NYMAX TOO SMALL ') + ENDIF + JY=JYO(NY1)+1 + JYO(NY2)=JY + DO 50 LP=1,K + IYO(NY2,LP)=IYO(NY1,LP) +50 CONTINUE + IYO(NY2,(M-1)*NSYM+L)=IPART(N,JJ+JY) + IF ( NY2 .GT. 1 ) THEN + DO 47 NY3=1,NY2-1 + IF ( JYO(NY3) .NE. JYO(NY2) ) GOTO 47 + DO 48 LP=1,K + IF ( IYO(NY3,LP) .NE. IYO(NY2,LP) ) GOTO 47 +48 CONTINUE + NY2=NY2-1 + GOTO 49 +47 CONTINUE +49 CONTINUE + ENDIF + ENDIF + GOTO 43 + ENDIF +44 CONTINUE +43 CONTINUE + GOTO 45 +51 CONTINUE + ENDIF + +C LOOP OVER YOUNG TABLEAUS +C ------------------------ + DO 6005 NY=NY1,NY2 + + IF ( ISH .GE. 93 .AND. NSYM .EQ. 3 ) THEN + WRITE(IFCH,117)NY-NY1+1,((IYO(NY,(M-1)*NSYM+I), + * I=1,NSYM),M=1,1) +117 FORMAT(2X,I2,'. TABLEAU:',5X,3I2) + IF ( MMAXK .GT. 1 ) WRITE(IFCH,110) + * ((IYO(NY,(M-1)*NSYM+I),I=1,NSYM),M=2,MMAXK) +110 FORMAT(19X,3I2) + WRITE(IFCH,*)' ' + ENDIF + +C SELECT NN-SUBTABLEAUS +C --------------------- + DITAB=1 + DO 6004 NN=0,N + IGA=IG*NINT(EXP(TUCL(1+IDI,1+NN))) + + DO 15 L=1,KPARX + IYOX(L)=-1 +15 CONTINUE + DO 11 M=1,MMAXK + MEMP=M-1 + MS=(M-1)*NSYM + DO 11 I=1,NSYM + IF ( IYO(NY,MS+I) .EQ. NN ) GOTO 12 +11 CONTINUE +12 CONTINUE + MMAXKS=MMAXK-MEMP + DO 13 L=MS+1,K + IF ( IYO(NY,L) .EQ. NN ) IYOX(L-MS)=IYO(NY,L) +13 CONTINUE + IF ( NSYM .GT. 1 ) THEN + DO 17 I=1,NSYM-1 + DO 16 M=1,MMAXK + MS=(M-1)*NSYM + IF ( IYOX(MS+1) .NE. -1 ) GOTO 18 +16 CONTINUE + DO 19 M=1,MMAXK + MS=(M-1)*NSYM + DO 20 L=1,NSYM-1 + IYOX(MS+L)=IYOX(MS+L+1) +20 CONTINUE + IYOX(MS+NSYM)=-1 +19 CONTINUE +17 CONTINUE +18 CONTINUE + ENDIF + DO 38 L=1,KPARX + CYOX(1+NN,L)=' ' + IF ( IYOX(L) .GE. 0 ) CYOX(1+NN,L)='X' +38 CONTINUE + +C SKIP FOR EMPTY TABLEAUS +C ----------------------- + DO 21 L=1,K + IF ( IYOX(L) .NE. -1 ) GOTO 22 +21 CONTINUE + GOTO 6004 +22 CONTINUE + +C PRINT +C ----- + IF ( ISH .GE. 93 .AND. NSYM .EQ .3 ) THEN + IF ( IGA.GE. 1.AND.IGA.LT. 10 ) WRITE(CIGA,107)IGA +107 FORMAT('GL(',I1,') ') + IF ( IGA.GT. 10.AND.IGA.LT. 100 ) WRITE(CIGA,108)IGA +108 FORMAT('GL(',I2,') ') + IF ( IGA.GT.100.AND.IGA.LT.1000 ) WRITE(CIGA,109)IGA +109 FORMAT('GL(',I3,')') + WRITE(IFCH,116)NN,((CYOX(1+NN,(M-1)*NSYM+I) + * ,I=1,NSYM),M=1,1),CIGA +116 FORMAT(2X,I2,'-SUBTABLEAU:',3X,3(1X,A1),3X,A7) + IF ( MMAXKS .GT. 1 ) THEN + DO 39 M=2,MMAXKS + WRITE(IFCH,106)(CYOX(1+NN,(M-1)*NSYM+I),I=1,NSYM) +106 FORMAT(19X,3(1X,A1)) +39 CONTINUE + ENDIF + IF ( ISH .GE. 94 ) WRITE(IFCH,*)' ' + ENDIF + +C REDUCTIONS OF TABLEAUS 1+IYOX() +C ------------------------------- + DISUTA=0. + N1=1 + N3=1 + N300=1 + DO 24 I=1,NSYM + MA=0 + ME=0 + DO 25 M=1,MMAXK + IF ( 1+IYOX((M-1)*NSYM+I) .LE. 0 ) GOTO 25 + IF ( MA .EQ. 0 ) MA=M + ME=M +25 CONTINUE + IYOZ(N1,I,1)=MA + IYOZ(N1,I,2)=ME +24 CONTINUE + IYOL(N1)=0 + YOFA(N1)=1. + IYOO(N1)=0 + IYOM(N1)=1 + N1=N1-1 +5000 N1=N1+1 + N30=N3 + IF ( N1.GT.1 .AND. IYOL(N1).GT.IYOL(N1-1) ) N300=N3 + N2=N1 + DO 26 I=1,NSYM + IYOR(I)=MAX(0,IYOZ(N1,I,2)-1) +26 CONTINUE + LEV=IYOL(N1) + FAC=YOFA(N1) + IF ( IGA-1.LE.IOVMAX .AND. LEV.LE.JOVMAX + * .AND. LEV.LE.IGA-1 ) THEN + FACX=EXP(OVEL(IGA,1+LEV)) + IF ( ABS(FACX-FAC) .GT. 1.E-5*FAC ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'N=',N,' K=',K,' KK=',KK + * ,' NY=',NY + WRITE(IFCH,*)'FACX=',FACX,' FAC=',FAC + CALL UTSTOP + * ('JCENTR: BINOMIALS DIFFER ') + ENDIF + ENDIF + IF ( LEV .GT. IGA-1 ) GOTO 5003 + IHEIM=0 + DO 32 I=1,NSYM + IHEI=IYOZ(N1,I,2)-IYOZ(N1,I,1) + IF ( IHEI .GT. IHEIM ) IHEIM=IHEI +32 CONTINUE + IF ( IHEIM .EQ. 0 ) DISUTA=DISUTA+FAC*IYOM(N1) + IF ( ISH.GE.94 .AND. NSYM.EQ.3 ) THEN + WRITE(IFCH,112)N1,(IYOZ(N1,I,1),I=1,NSYM),IYOO(N1) + * ,LEV,FAC,IYOM(N1),IHEIM,DISUTA + * ,(IYOZ(N1,I,2),I=1,NSYM) +112 FORMAT(3X,I3,2X,3I2,2X,'ORI:',I3,3X + * ,'LEV:',I2,3X,'FAC:',F8.1 + * ,3X,'MUL:',I2,3X,'HEI:',I2,3X,'SUM:',F8.1/8X,3I2/) + ENDIF + N2=N2-1 +5001 N2=N2+1 + DO 27 I=1,NSYM + IF ( IYOZ(N2,I,2)-1 .LT. IYOR(I) ) GOTO 27 + IF ( I.LT.NSYM .AND. + * IYOZ(N2,I,2)-1.LT.IYOZ(N2,I+1,2) ) GOTO27 + N3=N3+1 + IF ( N3 .GT. ITAMAX ) THEN + CALL UTSTOP + * ('JCENTR: DIMENSION ITAMAX TOO SMALL ') + ENDIF + IYOL(N3)=IYOL(N1)+1 + YOFA(N3)=( YOFA(N1)*(IGA-IYOL(N3)) )/IYOL(N3) + IYOO(N3)=N1 + IYOM(N3)=IYOM(N1) + DO 28 J=1,NSYM + IYOZ(N3,J,1)=IYOZ(N2,J,1) + IYOZ(N3,J,2)=IYOZ(N2,J,2) +28 CONTINUE + IYOZ(N3,I,2)=IYOZ(N3,I,2)-1 + IF ( IYOZ(N3,I,2) .LT. IYOZ(N3,I,1) ) THEN + IYOZ(N3,I,1)=0 + IYOZ(N3,I,2)=0 + ENDIF + IF ( N30+1 .LT. N3 ) THEN + DO 30 NCH=N30+1,N3-1 + DO 31 IJ=1,NSYM + IF ( IYOZ(NCH,IJ,1).NE.IYOZ(N3,IJ,1) .OR. + * IYOZ(NCH,IJ,2).NE.IYOZ(N3,IJ,2) ) GOTO 30 +31 CONTINUE + N3=N3-1 + GOTO 27 +30 CONTINUE + ENDIF + IF ( ISH .GE. 95 .AND. NSYM .EQ. 3 ) THEN + WRITE(IFCH,113)N1,(IYOZ(N1,IJ,1),IJ=1,NSYM),N2 + * ,(IYOZ(N2,IJ,1),IJ=1,NSYM),N3,(IYOZ(N3,IJ,1),IJ=1,NSYM) + * ,(IYOZ(N1,IJ,2),IJ=1,NSYM) + * ,(IYOZ(N2,IJ,2),IJ=1,NSYM),(IYOZ(N3,IJ,2),IJ=1,NSYM) +113 FORMAT(3X,'N1: ',I2,3X,3I2,4X,'N2: ',I2,3X,3I2,4X + * ,'N3: ',I2,3X,3I2/12X,3I2,13X,3I2,13X,3I2/) + ENDIF +27 CONTINUE + IF ( N2 .EQ. N1 ) N2=N30 + IF ( N2 .LT. N3 ) GOTO 5001 + IF ( N30 .LT. N3 .AND. N300 .LT. N30 ) THEN + N3S=N3 + N3M=N3 + N3=N30 + DO 33 NCH3=N30+1,N3S + N3=N3+1 + DO 34 NCH=N300+1,N30 + DO 35 IJ=1,NSYM + IF ( IYOZ(NCH,IJ,1).NE.IYOZ(N3,IJ,1) .OR. + * IYOZ(NCH,IJ,2).NE.IYOZ(N3,IJ,2) ) GOTO 34 +35 CONTINUE + IYOM(NCH)=IYOM(NCH)+IYOM(N3) + N3=N3-1 + N3M=N3M-1 + IF ( N3+1 .LE. N3M ) THEN + DO 36 NM=N3+1,N3M + IYOL(NM)=IYOL(NM+1) + YOFA(NM)=YOFA(NM+1) + IYOO(NM)=IYOO(NM+1) + IYOM(NM)=IYOM(NM+1) + DO 37 J=1,NSYM + IYOZ(NM,J,1)=IYOZ(NM+1,J,1) + IYOZ(NM,J,2)=IYOZ(NM+1,J,2) +37 CONTINUE +36 CONTINUE + ENDIF + GOTO 33 +34 CONTINUE +33 CONTINUE + ENDIF + IF ( N1 .LT. N3 ) GOTO 5000 +5003 CONTINUE + + DIALT=-99999. + IF ( IYOZ(1,1,1) .EQ. 1 ) THEN + DIALT=1. + DO 40 I=1,NSYM + IF ( IYOZ(1,I,1) .GT. 1 ) THEN + CALL UTSTOP + * ('JCENTR: IYOZ(,,1).GT.1 ') + ELSEIF ( IYOZ(1,I,1) .EQ. 0 ) THEN + GOTO 40 + ENDIF + DO 41 M=1,IYOZ(1,I,2) + HAK=IYOZ(1,I,2)-M+1 + IF ( I .LT. NSYM ) THEN + DO 42 J=I+1,NSYM + IF ( IYOZ(1,J,2) .GE. M ) HAK=HAK+1 +42 CONTINUE + ENDIF + DIALT=DIALT*(IGA+I-M)/HAK +41 CONTINUE +40 CONTINUE + ENDIF + + IF ( DIALT.NE.-99999. .AND. + * ABS(DIALT-DISUTA).GT.1.E-5*DIALT ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'N=',N,' K=',K,' KK=',KK + * ,' NY=',NY + WRITE(IFCH,*)'DISUTA=',DISUTA,' DIALT=',DIALT + CALL UTSTOP + * ('JCENTR: DIMENSIONS DIFFER ') + ENDIF + + IF ( ISH .GE. 93 ) WRITE(IFCH,118)DISUTA +118 FORMAT(28X,'SUBTAB.-DIMENSION:',F8.1/) + + DITAB=DITAB*DISUTA + +6004 CONTINUE + + IF ( ISH .GE. 93 ) WRITE(IFCH,119)DITAB +119 FORMAT(35X,'TABLEAU-DIMENSION:',F11.1/) + + DEGEN(1+K,1+N)=DEGEN(1+K,1+N)+DITAB + +6005 CONTINUE + + JJ=JJ+LL+1 +6002 CONTINUE +6003 CONTINUE + IF ( KKK(K) .EQ. 0 ) THEN + CALL UTSTOP('JCENTR: NO ALLOWED PARTITION ') + ENDIF + ENTRO(1+K,1+N)=-9999999. + IF ( DEGEN(1+K,1+N) .GT. 0. ) + * ENTRO(1+K,1+N)=LOG(DEGEN(1+K,1+N)) + IF ( ISH .GE. 93 ) WRITE(IFCH,120)DEGEN(1+K,1+N) +120 FORMAT(49X,'DEGENERACY:',F11.1/) + +6001 CONTINUE +6000 CONTINUE + + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,121)('-',IC=1,79) +121 FORMAT(1X,79A1) + WRITE(IFCH,*)' DEGENERACY(K,N) IG=',IG,' ' + * ,'NSYM=',NSYM + WRITE(IFCH,121)('-',IC=1,79) + WRITE(IFCH,*)' K:',' 3',' 6',' 9',' 12' + WRITE(IFCH,121)('-',IC=1,79) + DO 52 N=0,NQUAX + WRITE(IFCH,*)N,(DEGEN(1+3*K,1+N),K=1,4) +52 CONTINUE + WRITE(IFCH,*)' ' + WRITE(IFCH,121)('-',IC=1,79) + WRITE(IFCH,*)' ENTROPY(K,N) IG=',IG,' ' + * ,'NSYM=',NSYM + WRITE(IFCH,121)('-',IC=1,79) + WRITE(IFCH,*)' K:',' 3',' 6',' 9',' 12' + WRITE(IFCH,121)('-',IC=1,79) + DO 53 N=0,NQUAX + WRITE(IFCH,*)N,(ENTRO(1+3*K,1+N),K=1,4) +53 CONTINUE + ENDIF + + ISH0=ISH + IF ( ISHSUB/100 .EQ. 12 ) ISH=MOD(ISHSUB,100) + IF ( ISH .GE. 95 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,121)('-',IC=1,79) + WRITE(IFCH,*)' ENTROPY(K,N) IG=',IG + * ,' NSYM=',NSYM + WRITE(IFCH,121)('-',IC=1,79) + WRITE(IFCH,125)KPARX +125 FORMAT(6X,'IF(KPARX.NE.',I2,')'/5X, + * 56H*CALL UTSTOP('JCENTD: INSUFFICIENT INITIALIZATION; K')) + WRITE(IFCH,126)NQUAX +126 FORMAT(6X,'IF(NQUAX.NE.',I2,')'/5X, + * 56H*CALL UTSTOP('JCENTD: INSUFFICIENT INITIALIZATION; N')) + DO 58 KX=0,KPARX/3 + K=3*KX + WRITE(IFCH,123)K+1,NQUAX +123 FORMAT(6X,'DATA (ENTRO(',I2,',1+N),N=0,',I2,')/') + WRITE(IFCH,124)(ENTRO(1+K,1+N),DELI(1+K,1+N), N=0,NQUAX) +124 FORMAT(10(5X,'*',6(E10.5,A1)/)) +58 CONTINUE + ENDIF + ISH=ISH0 + + RETURN + END +C======================================================================= + + SUBROUTINE JCLUDE(IP,IRET) + +C----------------------------------------------------------------------- +C DECAYS CLUSTER IP FROM /CPTL/ . +C REQIRES JCENTR OR JCENTD TO BE CALLED BEFORE. +C----------------------------------------------------------------------- + PARAMETER (IOMAX=54) + PARAMETER (IOMAXM=25) + PARAMETER (MOXMAX=30) + PARAMETER (MOMAX=MOXMAX*IOMAX) + PARAMETER (MXPTL=70000) + PARAMETER (NFLAV=6) + COMMON /CENTEX/ ENTEXP + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /CSCAL/ SCAL + COMMON /CSJCGA/ AMEGAM,AMNULL,ASUHA(7),ENTRPY,NOPHA,NSUHA(7) + COMMON /CTIMEL/ NTC + COMMON /CUTINV/ LUTINV + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + DOUBLE PRECISION PA(5),PE(5),PPT(5) + REAL OO(1+MOMAX),PA0(5),POL(IOMAX) + * ,QO(1+MOMAX),U(3),XO(1+MOMAX),YO(1+MOMAX) + INTEGER ICA(2),IDOL(IOMAX),IDOLIS(IOMAX),IFOLIS(IOMAX) + * ,JCA(NFLAV,2),JCA0(NFLAV,2),JCE(NFLAV,2) + * ,JCO(NFLAV,2),KO(1+MOMAX) + DATA IDOLIS/ + * 110, 120,-120, 220, 130, -130, 230, -230, 330 + * ,1120,-1120,1220,-1220,1130,-1130,1230,-1230,2130,-2130 + * ,2230,-2230,1330,-1330,2330,-2330 + * ,1111,-1111,2221,-2221,3331,-3331 + * ,111, 121,-121, 221, 131, -131, 231, -231, 331 + * ,1121,-1121,1221,-1221,1131,-1131,1231,-1231 + * ,2231,-2231,1331,-1331,2331,-2331/ + DATA IFOLIS/9*1,16*2,6*4,9*3,14*4/ + SAVE +C----------------------------------------------------------------------- + ISH0=ISH + IF ( ISHSUB/100 .EQ. 1 ) ISH=MOD(ISHSUB,100) + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)('-',L=1,79) + WRITE(IFCH,*)' CLUSTER DECAY OF',IP,IDPTL(IP),PPTL(5,IP) + WRITE(IFCH,*)('-',L=1,79) + WRITE(IFCH,*)' ' + ENDIF + DELPOX=.01 + NPTLB=NPTL + LOOP=0 + IRET=0 + IPOXRA=0 + ISTPFL=0 + EBAMIN=1.5 + LOOPMX=20 + NOPHAX=20 + +C ORIGINAL CLUSTER --> PA,JCA +C --------------------------- + +6010 CONTINUE + PA(1)=PPTL(1,IP) + PA(2)=PPTL(2,IP) + PA(3)=PPTL(3,IP) + PA(4)=PPTL(4,IP) + PA(5)=PPTL(5,IP) + CALL IDQUAC(IP,NDU,NDU,NDU,JCA) + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)'INITIAL JCA:' + WRITE(IFCH,*)JCA + ENDIF + CALL IDCOMJ(JCA) + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)'INITIAL JCA AFTER COMPACTIFICATION:' + WRITE(IFCH,*)JCA + ENDIF + + PA0(1)=PA(1) + PA0(2)=PA(2) + PA0(3)=PA(3) + PA0(4)=PA(4) + PA0(5)=PA(5) + NQN=0 + DO 2 NF=1,NFLAV + NQN=NQN+JCA(NF,1)-JCA(NF,2) + JCA0(NF,1)=JCA(NF,1) + JCA0(NF,2)=JCA(NF,2) + 2 CONTINUE + NBA=ABS(NQN)/3 + IF ( NBA .GT. 0 ) THEN + EBA=PA(5)/NBA + ELSE + EBA=AINFIN + ENDIF + ISH00=ISH + +C INITIALIZATION FOR REDO +C ----------------------- + +6001 LOOP=LOOP+1 + IF ( ISH00 .EQ. 90 ) THEN + IF ( LOOP .EQ. LOOPMX ) THEN + ISH=92 + WRITE(IFCH,117)('-',L=1,75),LOOP,ISH +117 FORMAT(//1X,75A1/1X,I2,'. ATTEMPT TO DECAY THIS CLUSTER!' + * /1X,'ISH SET TO: ',I2) + ENDIF + ENDIF + IF ( LOOP .GT. LOOPMX ) THEN + ISH=ISH00 + GOTO 1001 + ENDIF + NOPHA=0 + ISMALL=0 + NPTL=NPTLB + PA(1)=PA0(1) + PA(2)=PA0(2) + PA(3)=PA0(3) + PA(4)=PA0(4) + PA(5)=PA0(5) + DO 3 NF=1,NFLAV + JCA(NF,1)=JCA0(NF,1) + JCA(NF,2)=JCA0(NF,2) + 3 CONTINUE + +C LOOP OVER SEQUENTIAL DECAYS +C --------------------------- + +6002 NPTL=NPTL+1 + IF ( NPTL .GT. MXPTL ) THEN + CALL UTSTOP('JCLUDE: NPTL>MXPTL ') + ENDIF + ISJCA=0 + DO 210 NF=1,NFLAV + ISJCA=ISJCA+ABS(JCA(NF,1))+ABS(JCA(NF,2)) +210 CONTINUE + IF ( ISJCA .EQ. 0 ) THEN + JCA(1,1)=1 + JCA(1,2)=1 + ENDIF + CALL IDCOMJ(JCA) + CALL IDENCO(JCA,ICA,IRETEN) + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,100)(PA(K),K=1,5) +100 FORMAT(1X,'PA:',20X,5(E10.3,1X)) + WRITE(IFCH,116)JCA +116 FORMAT(1X,'JCA: ',6I5/6X,6I5) + ENDIF + + KAU=JCA(1,1)-JCA(1,2) + KAD=JCA(2,1)-JCA(2,2) + KAS=JCA(3,1)-JCA(3,2) + KAC=JCA(4,1)-JCA(4,2) + AMICL=UTAMNU(KAU,KAD,KAS,KAC,5) + + IF ( NOPHA.EQ.NOPHAX .OR. NOPHA.GT.1.AND.PA(5).GT.2.*AMICL ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JCLUDE') + IF ( ISMALL .EQ. 0 ) THEN + WRITE(IFCH,*)'***** NO PHASE SPACE --> REDO DECAY' + ELSEIF ( ISMALL .EQ. 1 ) THEN + WRITE(IFCH,*)'***** SMALL PHASE SP --> REDO DECAY' + ELSE + WRITE(IFCH,*)'***** SMALL/NO PHASE SPACE --> REDO DECAY' + WRITE(IFCH,*)'ISMALL=',ISMALL + ENDIF + WRITE(IFCH,*)'NT=',NTC,' LOOP=',LOOP,' NOPHA=',NOPHA + IF ( ISMALL .EQ. 1 ) + * WRITE(IFCH,*)'YO_HIT=',YOHIT,' YO_MAX=',YOMAX + WRITE(IFCH,*)'M_MIN=',AMICL,' M=',PA(5) + WRITE(IFCH,100)(PA(K),K=1,5) + WRITE(IFCH,116)JCA + CALL UTMSGF + ENDIF + GOTO 6001 + ENDIF + + IF ( NOPHA .GT. 1 ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JCLUDE') + IF ( ISMALL .EQ. 0 ) THEN + WRITE(IFCH,*)'***** NO PHASE SPACE --> INCRS MASS' + ELSEIF ( ISMALL .EQ. 1 ) THEN + WRITE(IFCH,*)'***** SMALL PHASE SP --> INCRS MASS' + ELSE + WRITE(IFCH,*)'***** SMALL/NO PHASE SPACE --> INCRS MASS' + WRITE(IFCH,*)'ISMALL=',ISMALL + ENDIF + WRITE(IFCH,*)'NT=',NTC,' LOOP=',LOOP,' NOPHA=',NOPHA + IF ( ISMALL .EQ. 1 ) + * WRITE(IFCH,*)'YO_HIT=',YOHIT,' YO_MAX=',YOMAX + WRITE(IFCH,*)'M_MIN=',AMICL,' M=',PA(5) + WRITE(IFCH,100)(PA(K),K=1,5) + WRITE(IFCH,116)JCA + ENDIF + PA(5)=PA(5)*1.05 + PA(4)=SQRT(PA(1)**2+PA(2)**2+PA(3)**2+PA(5)**2) + IF ( ISH .GE. 90 ) THEN + WRITE(IFCH,100)(PA(K),K=1,5) + CALL UTMSGF + ENDIF + ENDIF + + IDAR=0 + IF ( NOPHA .EQ. 0 ) THEN + ICH=0 + IF ( IRETEN .EQ. 0 ) THEN + IDA=IDTRA(ICA,0,0,3) + ELSE + IDA=0 + ENDIF + AMA=PA(5) + CALL IDRES(IDA,AMA,IDAR,IADJ) + IF ( IDAR .NE. 0 .AND. EBA .LT. EBAMIN ) THEN + AMA=0. + CALL IDRES(IDA,AMA,IDAR,IADJ) + IF ( MOD(IDAR,10) .NE. 0 .AND. LOOP .LT. LOOPMX/2 ) GOTO 6001 + ENDIF + IF ( IDAR .NE. IDPTL(IP) ) ICH=1 + ENDIF + + IF ( IDAR .NE. 0 ) THEN + IF ( NPTL .GT. NPTLB+1 .OR. ICH .EQ. 1 ) THEN + IDPTL(NPTL)=IDAR + PA(5)=AMA + PA(4)=SQRT(AMA**2+PA(1)**2+PA(2)**2+PA(3)**2) + PPTL(1,NPTL)=PA(1) + PPTL(2,NPTL)=PA(2) + PPTL(3,NPTL)=PA(3) + PPTL(4,NPTL)=PA(4) + PPTL(5,NPTL)=PA(5) + IF ( ISH .GE. 92 ) + * WRITE(IFCH,101)NPTL,IDPTL(NPTL),(PPTL(K,NPTL),K=1,5) +101 FORMAT(1X,'/CPTL/',I6,I11,2X,5(E10.3,1X)) + ELSE + NPTL=NPTL-1 + ENDIF + GOTO 7001 + ENDIF + + AMA=PA(5) + +C LOOP OVER HADRONS +C ----------------- + + MO=1 + PO=0. + XO(1)=0. + QO(1)=0. + YO(1)=0. + OO(1)=0. + KO(1)=0 + IOM=0 + QOL=0. + IF ( ISH .GE. 92 ) WRITE(IFCH,106) +106 FORMAT(' PARTIAL DECAY WIDTHS:') + + DO 6003 IO=1,IOMAX + IF ( EBA .LT. EBAMIN .AND. IO .GT. IOMAXM ) GOTO 6003 + + IDO=IDOLIS(IO) + IOM=IOM+1 + POL(IOM)=PO + IDOL(IOM)=IDO + CALL IDMASS(IDO,AMO) + IDPTL(NPTL)=IDO + CALL IDQUAC(NPTL,NDU,NDU,NDU,JCO) + DO 22 NF=1,NFLAV + JCE(NF,1)=JCA(NF,1)-JCO(NF,1) + JCE(NF,2)=JCA(NF,2)-JCO(NF,2) + IF ( JCE(NF,1) .LT. 0 ) THEN + JCE(NF,2)=JCE(NF,2)-JCE(NF,1) + JCE(NF,1)=0 + ENDIF + IF ( JCE(NF,2) .LT. 0 ) THEN + JCE(NF,1)=JCE(NF,1)-JCE(NF,2) + JCE(NF,2)=0 + ENDIF +22 CONTINUE + DO 13 I=5,NFLAV + IF ( JCE(I,1).NE.0 .OR. JCE(I,2).NE.0 .OR. ISTPFL.GT.0 ) THEN + IF ( ISTPFL .EQ. 2 ) THEN + CALL UTSTOP('JCLUDE: MORE THAN 4 FLAVOURS ') + ENDIF + ISTPFL=ISTPFL+1 + ISH=93 + IF ( ISTPFL .EQ. 2 ) GOTO 6010 + GOTO 6001 + ENDIF +13 CONTINUE + KEU=JCE(1,1)-JCE(1,2) + KED=JCE(2,1)-JCE(2,2) + KES=JCE(3,1)-JCE(3,2) + KEC=JCE(4,1)-JCE(4,2) + +C LOOP OVER HADRON MOMENTA +C ------------------------ + + IF ( MO+MOXMAX .GT. 1+MOMAX ) THEN + CALL UTSTOP('JCLUDE: DIMENSION MOMAX TOO SMALL ') + ENDIF + POX=0. + MOM=MO + POM=PO + QOM=QO(MO) + GAMXM=0. + POXM=0. + GAMY=0. + DELPO=DELPOX + YOINT=0. + + DO 6004 MOX=1,MOXMAX + + MO=MO+1 + DELPO=DELPO*1.2 + POX=POX+DELPO + PO=PO+DELPO + XO(MO)=PO + IF ( MOX .GT. 1 ) THEN + KO(MO)=0 + ELSE + KO(MO)=IDO + ENDIF + GAMX=SJCGAM(KEU,KED,KES,KEC,AMA,AMO,POX,MOX) + YO(MO)=IFOLIS(IO)*DELPO*GAMX + OO(MO)=ENTEXP + YOINT=YOINT+IFOLIS(IO)*DELPO*(GAMX+GAMY)*0.5 + IF ( GAMX .EQ. 0. ) THEN + I6005=1 + ELSE + IF ( GAMX .LT. 1.E-2*GAMXM .AND. GAMXM .GT. 0. + * .AND. MOX .GT. 1 ) THEN + I6005=1 + ELSE + I6005=0 + ENDIF + ENDIF + IF ( ISH.GE.93 .AND. (I6005.EQ.0 .OR. MOX.GT.1) ) THEN + IF ( MOX .EQ. 1 ) + * WRITE(IFCH,109)KEU,KED,KES,NSUHA,AMA,ASUHA,AMNULL,IDO,AMO +109 FORMAT(/' U_D_S:',3I3,' N:',7I5,11X,' A:',F10.2 + * /18X,'M:',7F5.2,' M0:',F6.2,' O:',I5,F5.2 + * /' MO XO POX EO AMA-EO ENTRPY ' + * ,' GAMX YO OO ') + WRITE(IFCH,105)MO,XO(MO),POX,SQRT(POX**2+AMO**2) + * ,AMA-SQRT(POX**2+AMO**2),ENTRPY,GAMX + * ,YO(MO),OO(MO) +105 FORMAT(1X,I5,1X,F6.2,F6.2,2X,F6.2,F6.2 + * ,E12.3,E11.3,E11.3,E11.3) + ENDIF + IF ( I6005 .EQ. 1 ) GOTO 6005 + IF ( GAMX .GT. GAMXM ) THEN + GAMXM=GAMX + POXM=POX + ENDIF + GAMY=GAMX + +6004 CONTINUE + + IF ( ISH .GE. 90 .AND. IPOXRA .EQ. 0 ) THEN + IPOXRA=1 + CALL UTMSG('JCLUDE') + WRITE(IFCH,*)'***** POX-RANGE TOO SMALL' + WRITE(IFCH,100)(PA(K),K=1,5) + WRITE(IFCH,*)'JCA:' + WRITE(IFCH,*)JCA + WRITE(IFCH,*)'POX= ',POX, ' GAMX= ',GAMX + WRITE(IFCH,*)'POXM=',POXM,' GAMXM=',GAMXM + CALL UTMSGF + ENDIF + +6005 CONTINUE + + IF ( YOINT .EQ. 0. ) THEN + IF ( ISH .GE. 94 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'NO PHASE SPACE FOR',IDO + ENDIF + MO=MOM + PO=POM + IOM=IOM-1 + ELSE + IF ( ISH .GE. 92 ) WRITE(IFCH,107)IDO,POXM,YOINT,OO(MO) +107 FORMAT(' IDO,POXM,YOINT,OO:',I6,3X,F5.2,E12.3,E12.3) + ENDIF + +6003 CONTINUE + IF ( ISH .GE. 92 ) WRITE(IFCH,*)' ' + +C NO PHASE SPACE +C -------------- + IF ( IOM .EQ. 0 ) THEN + IF ( ISH .GE. 92 ) WRITE(IFCH,*)'NO PHASE SPACE' + NPTL=NPTL-1 + NOPHA=NOPHA+1 + GOTO 6002 + ENDIF + +C DETERMINE QO(M) +C --------------- + OOMAX=0. + DO 211 M=1,MO + IF ( OO(M) .GT. OOMAX ) OOMAX=OO(M) + 211 CONTINUE + OOX=OOMAX-10. + DO 212 M=1,MO + IF ( OO(M) .LT. OOX ) THEN + YO(M)=0. + ELSE + YO(M)=YO(M)*EXP(OO(M)-OOX) + ENDIF + 212 CONTINUE + QO(1)=0. + DO 213 M=2,MO + IF ( KO(M) .NE. 0 ) YOM=0. + QO(M)=QO(M-1)+(YOM+YO(M))*0.5 + YOM=YO(M) + 213 CONTINUE + YOMAX=0. + DO 214 M=1,MO + IF ( YO(M) .GT. YOMAX ) YOMAX=YO(M) + 214 CONTINUE + + IF ( ISH .GE. 93 ) THEN + IDO=0 + XOX=0. + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'ACCUMULATED DECAY PROBABILITIES:' + WRITE(IFCH,*)' ' + DO 215 M=1,MO + IF ( KO(M) .NE. 0 ) THEN + WRITE(IFCH,*)' ' + IDO=KO(M) + ENDIF + WRITE(IFCH,110)M,IDO,XO(M)-XOX,QO(M) +110 FORMAT(1X,'M,IDO,XO,QO: ',I6,I6,3X,F6.2,E12.3) + IF ( M .LT. MO .AND. KO(M+1) .NE. 0 ) XOX=XO(M) + 215 CONTINUE + ENDIF + +C SELECT RANDOMLY HADRON+MOMENTUM +C ------------------------------- + + LO=0 +24 LO=LO+1 + IF ( LO .GT. 10 ) THEN + IF ( ISH.GE.92 ) WRITE(IFCH,*)'SMALL PHASE SPACE:',YOHIT,YOMAX + NPTL=NPTL-1 + NOPHA=NOPHA+1 + ISMALL=1 + GOTO 6002 + ENDIF + + XOS=UTINVT(MO,XO,QO,RANGEN()*QO(MO)) + MHIT=LUTINV + DO 28 I=2,IOM + IX=I-1 + IF ( XOS .LT. POL(I) ) GOTO 29 +28 CONTINUE + IX=IOM +29 CONTINUE + POS=XOS-POL(IX) + IDS=IDOL(IX) + CALL IDMASS(IDS,AMS) + IDPTL(NPTL)=IDS + + CALL IDQUAC(NPTL,NDU,NDU,NDU,JCO) + DO 26 NF=1,NFLAV + JCE(NF,1)=JCA(NF,1)-JCO(NF,1) + JCE(NF,2)=JCA(NF,2)-JCO(NF,2) + IF ( JCE(NF,1) .LT. 0 ) THEN + JCE(NF,2)=JCE(NF,2)-JCE(NF,1) + JCE(NF,1)=0 + ENDIF + IF ( JCE(NF,2) .LT. 0 ) THEN + JCE(NF,1)=JCE(NF,1)-JCE(NF,2) + JCE(NF,2)=0 + ENDIF +26 CONTINUE + DO 27 I=5,NFLAV + IF ( JCE(I,1) .NE. 0 .OR. JCE(I,2) .NE. 0 ) THEN + CALL UTSTOP('JCLUDE: FLAVOUR > 4 ') + ENDIF +27 CONTINUE + + KEU=JCE(1,1)-JCE(1,2) + KED=JCE(2,1)-JCE(2,2) + KES=JCE(3,1)-JCE(3,2) + KEC=JCE(4,1)-JCE(4,2) + GAMXHT=SJCGAM(KEU,KED,KES,KEC,AMA,AMS,POS,1) + YOHIT=GAMXHT*(XO(MHIT+1)-XO(MHIT))*4. + IF ( YOHIT .LT. 1.E-5 .AND. YOHIT .LT. 1.E-5*YOMAX ) GOTO 24 + + PPTL(5,NPTL)=AMS + U(3)=2.*RANGEN()-1. + PHI=2.*PI*RANGEN() + U(1)=SQRT(1.-U(3)**2)*COS(PHI) + U(2)=SQRT(1.-U(3)**2)*SIN(PHI) + PPT(1)=POS*U(1) + PPTL(1,NPTL)=PPT(1) + PPT(2)=POS*U(2) + PPTL(2,NPTL)=PPT(2) + PPT(3)=POS*U(3) + PPTL(3,NPTL)=PPT(3) + PPT(4)=SQRT(PPTL(5,NPTL)**2+POS**2) + PPTL(4,NPTL)=PPT(4) + IF ( ISH .GE. 93 ) + * WRITE(IFCH,101)NPTL,IDPTL(NPTL),(PPTL(K,NPTL),K=1,5) + CALL UTLOB2(-1,PA(1),PA(2),PA(3),PA(4),PA(5) + * ,PPT(1),PPT(2),PPT(3),PPT(4)) + PPTL(1,NPTL)=PPT(1) + PPTL(2,NPTL)=PPT(2) + PPTL(3,NPTL)=PPT(3) + PPTL(4,NPTL)=PPT(4) + IF ( ISH .GE. 92 ) + * WRITE(IFCH,101)NPTL,IDPTL(NPTL),(PPTL(K,NPTL),K=1,5) + + PE(5)=AMEGAM + PE(1)=-POS*U(1) + PE(2)=-POS*U(2) + PE(3)=-POS*U(3) + PE(4)=SQRT(PE(5)**2+POS**2) + CALL UTLOB2(-1,PA(1),PA(2),PA(3),PA(4),PA(5) + * ,PE(1),PE(2),PE(3),PE(4)) + + PA(1)=PE(1) + PA(2)=PE(2) + PA(3)=PE(3) + PA(4)=PE(4) + PA(5)=PE(5) + DO 23 NF=1,NFLAV + JCA(NF,1)=JCE(NF,1) + JCA(NF,2)=JCE(NF,2) +23 CONTINUE + NOPHA=0 + + GOTO 6002 + +7001 CONTINUE + +C CHECK ENERGY CONSERVATION +C ------------------------- + IF ( NPTL .LE. NPTLB ) GOTO 1000 + + IFAIL=1 + IF ( NPTL .GT. NPTLB+1 ) THEN + ISHRSC=ISH + ISH=0 + CALL JRESCL(NPTLB+1,NPTL,PA0,IFAIL) + ISH=ISHRSC +C-C IF ( IFAIL.NE.0 .AND. ISH.GE.90 ) THEN +C-C CALL UTMSG('JCLUDE') +C-C WRITE(IFCH,*)'***** IFAIL_JRESCL=',IFAIL +C-C CALL UTMSGF +C-C ENDIF + ENDIF + +C-C DO 114 N=NPTLB+1,NPTL +C-C P=PPTL(3,N) +C-C E=PPTL(4,N) +C-C Y=100. +C-C DY=3. +C-C IF ( E-P.NE.0. .AND. E+P.NE.0. ) Y=.5*LOG((E+P)/(E-P))+DY +C-C IDA=ABS(IDPTL(N)) +C-C IF ( IDA.GT.1000 .AND. MOD(IDA,10).NE.0 .AND. Y.LT.10. ) THEN +C-C WRITE(6,*)('-',K=1,69) +C-C P=PPTL(3,IP) +C-C E=PPTL(4,IP) +C-C Y=100. +C-C DY=3. +C-C IF ( E-P.NE.0. .AND. E+P.NE.0. ) Y=.5*LOG((E+P)/(E-P))+DY +C-C WRITE(6,115)IP,IDPTL(IP) +C-C * ,(PPTL(K,IP),K=3,5),Y +C-C WRITE(6,*)'-------> ' +C-C DO 113 M=NPTLB+1,NPTL +C-C P=PPTL(3,M) +C-C E=PPTL(4,M) +C-C Y=100. +C-C DY=3. +C-C IF ( E-P.NE.0. .AND. E+P.NE.0. ) Y=.5*LOG((E+P)/(E-P))+DY +C-C WRITE(6,115)M,IDPTL(M) +C-C * ,(PPTL(K,M),K=3,5),Y +C113 CONTINUE +C-C ENDIF +C114 CONTINUE + 115 FORMAT(1X,'/CPTL/',I6,I10 + *,3(E10.2),2(E10.2)) + + IF ( ISH .GE. 0 ) THEN + PX=0. + PY=0. + PZ=0. + E=0. + DO 10 N=NPTLB+1,NPTL + PX=PX+PPTL(1,N) + PY=PY+PPTL(2,N) + PZ=PZ+PPTL(3,N) + E=E+ PPTL(4,N) +10 CONTINUE + ENDIF + + IF ( ISH .GE. 90 ) THEN + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'CHECK ENERGY CONSERVATION' + DO 11 N=NPTLB+1,NPTL + WRITE(IFCH,101)N,IDPTL(N),(PPTL(K,N),K=1,5) +11 CONTINUE + AM=SQRT(E**2-PX**2-PY**2-PZ**2) + WRITE(IFCH,103)PX,PY,PZ,E,AM +103 FORMAT(1X,'P_SUM: ',15X,5(E10.3,1X)) + WRITE(IFCH,104)(PA0(K),K=1,5) +104 FORMAT(1X,'P_CLU: ',15X,5(E10.3,1X)) + ENDIF + + IF ( IFAIL.EQ.0 .AND. + * (ABS(PX-PA0(1)).GT.1.E-2*ABS(PX).AND.ABS(PX-PA0(1)).GT.1.E-2 + *.OR.ABS(PY-PA0(2)).GT.1.E-2*ABS(PY).AND.ABS(PY-PA0(2)).GT.1.E-2 + *.OR.ABS(PZ-PA0(3)).GT.1.E-2*ABS(PZ).AND.ABS(PZ-PA0(3)).GT.1.E-2 + *.OR.ABS(E -PA0(4)).GT.1.E-2*ABS(E ).AND.ABS(E -PA0(4)).GT.1.E-2) + *.OR. + * IFAIL.NE.0 .AND. + * (ABS(PX-PA0(1)).GT.1.E-2*ABS(PX).AND.ABS(PX-PA0(1)).GT.1.E-2 + *.OR.ABS(PY-PA0(2)).GT.1.E-2*ABS(PY).AND.ABS(PY-PA0(2)).GT.1.E-2 + *.OR.ABS(PZ-PA0(3)).GT.1.E-2*ABS(PZ).AND.ABS(PZ-PA0(3)).GT.1.E-2 + *.OR.ABS(E -PA0(4)).GT.35.E-1*ABS(E ).AND.ABS(E -PA0(4)).GT.35.E-1) + * ) THEN + CALL UTMSG('JCLUDE') + WRITE(IFCH,*)'***** P_SUM /= P_CLU' + WRITE(IFCH,*)'IFAIL_JRESCL:',IFAIL,' SCAL:',SCAL + DO 30 N=NPTLB+1,NPTL + WRITE(IFCH,101)N,IDPTL(N),(PPTL(K,N),K=1,5) +30 CONTINUE + WRITE(IFCH,103)PX,PY,PZ,E + WRITE(IFCH,104)(PA0(K),K=1,4) + CALL UTMSGF + ENDIF + ENDIF + +1000 CONTINUE + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)('-',L=1,25) + WRITE(IFCH,*)' RETURN FROM JCLUDE ' + WRITE(IFCH,*)('-',L=1,25) + WRITE(IFCH,*)' ' + ENDIF + ISH=ISH0 + RETURN + +1001 IRET=1 + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JCLUDE') + WRITE(IFCH,*)'***** CLUSTER DECAY NOT POSSIBLE --> IRET=1' + WRITE(IFCH,100)(PA0(K),K=1,5) + WRITE(IFCH,*)'JCA:' + WRITE(IFCH,*)JCA0 + CALL UTMSGF + ENDIF + RETURN + END +C======================================================================= + + SUBROUTINE JDECA(I,IRET) + +C----------------------------------------------------------------------- +C DECAYS I (CALLS JDECAYV) +C----------------------------------------------------------------------- + PARAMETER (MXPTL=70000) + PARAMETER (NFLAV=6) + COMMON /CCLUDE/ KCLUDE + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + DOUBLE PRECISION DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /CTTAUS/ DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + DOUBLE PRECISION TOR,ZOR + INTEGER JCDU(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + IRET=0 + ISH0=ISH + IF ( ISHSUB/100 .EQ. 5 ) ISH=MOD(ISHSUB,100) + IF ( ISH .GE. 93 ) THEN + WRITE(IFCH,*)('-',L=1,79) + WRITE(IFCH,*)'ENTRY JDECA. DECAY OF',I,IDPTL(I),PPTL(5,I) + ENDIF +CDH CALL IDMASS(111,AMRHO0) +CDH CALL IDMASS(221,AMOMEG) + IOI=IORPTL(I) + IF ( .NOT.( IOI.GT.0 .AND. ABS(IDPTL(IOI)).LT.10000 + * .AND. JORPTL(I).EQ.0 ) ) THEN + IF ( IDPTL(I) .EQ. 111 ) IDPTL(I)=221 + IF ( IDPTL(I) .EQ. 221 .AND. RANGEN() .GT. 0.5 ) IDPTL(I)=111 + ENDIF + IF ( MOD(NDECAY ,10) .EQ.1 ) GOTO 1000 + IDA=ABS(IDPTL(I)) + IF ( MOD(NDECAY/10 ,10) .EQ.1 .AND. IDA .EQ. 20 ) GOTO 1000 + IF ( MOD(NDECAY/100 ,10) .EQ.1 .AND. IDA .EQ.2130 ) GOTO 1000 + IF ( MOD(NDECAY/1000 ,10) .EQ.1 ) THEN + IF ( IDA .EQ.1130 ) GOTO 1000 + IF ( IDA .EQ.2230 ) GOTO 1000 + ENDIF + IF ( MOD(NDECAY/10000 ,10) .EQ.1 ) THEN + IF ( IDA .EQ.2330 ) GOTO 1000 + IF ( IDA .EQ.1330 ) GOTO 1000 + ENDIF + IF ( MOD(NDECAY/100000 ,10) .EQ.1 .AND. IDA .EQ.3331 ) GOTO 1000 + IF ( MOD(NDECAY/1000000,10) .EQ.1 .AND. IDA .EQ. 110 ) GOTO 1000 + IF ( MOD(NDECAX ,10) .EQ.1 .AND. IDA .EQ. 441 ) GOTO 1000 + IF ( MOD(NDECAX/10 ,10) .EQ.1 .AND. IDA .EQ. 230 ) GOTO 1000 + IF ( MOD(NDECAX/100 ,10) .EQ.1 ) THEN + IF ( IDA .EQ.1111 ) GOTO 1000 + IF ( IDA .EQ.1121 ) GOTO 1000 + IF ( IDA .EQ.1221 ) GOTO 1000 + IF ( IDA .EQ.2221 ) GOTO 1000 + ENDIF + + IF ( MOD(NDECAX/1000 ,10) .EQ.1 ) THEN + IF ( IDA .EQ. 111 ) GOTO 1000 + IF ( IDA .EQ. 121 ) GOTO 1000 + IF ( IDA .EQ. 221 ) GOTO 1000 + IF ( IDA .EQ. 331 ) GOTO 1000 + ENDIF + IF ( MOD(NDECAX/10000 ,10) .EQ.1 .AND. IDA .EQ. 220 ) GOTO 1000 + IF ( MOD(NDECAX/100000 ,10) .EQ.1 .AND. IDA .EQ. 330 ) GOTO 1000 + IF ( MOD(NDECAX/1000000,10) .EQ.1 ) THEN + IF ( IDA .EQ. 112 ) GOTO 1000 + IF ( IDA .EQ. 122 ) GOTO 1000 + ENDIF + IF ( MOD(NDECAW ,10) .EQ.1 .AND. IDA .EQ. 332 ) GOTO 1000 + IF ( MOD(NDECAW/10 ,10) .EQ.1 ) THEN + IF ( IDA .EQ. 131 ) GOTO 1000 + IF ( IDA .EQ.-131 ) GOTO 1000 + IF ( IDA .EQ. 231 ) GOTO 1000 + IF ( IDA .EQ.-231 ) GOTO 1000 + ENDIF + T=TIVPTL(2,I) + NPTLB=NPTL + IF ( NPTL .GT. MXPTL-10 ) THEN + CALL UTSTOP('JDECA: MXPTL TOO SMALL ') + ENDIF + ISH=ISH0 + CALL JDECAYV(I,IRET) + IF ( ISHSUB/100 .EQ. 5 ) ISH=MOD(ISHSUB,100) + IF ( IRET .EQ. 1 ) GOTO 1000 + IF ( NPTL .LE. NPTLB ) GOTO 1000 + ISH00=ISH + IF ( ISHSUB/100.EQ.14 .AND. KCLUDE.EQ.1 ) ISH=MOD(ISHSUB,100) + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,101)SNGL(TTAUS) +101 FORMAT(1X,'DECAY AT TAU =',E10.3) + WRITE(IFCH,115)I,IDPTL(I) + * ,(PPTL(K,I),K=3,5),(TIVPTL(K,I),K=1,2) +115 FORMAT(1X,'/CPTL/',I6,I10 + * ,1X,3(E10.2),1X,2(E10.2)) + ENDIF + ISTPTL(I)=1 + IFRPTL(1,I)=NPTLB+1 + IFRPTL(2,I)=NPTL + X=XORPTL(1,I)+(T-XORPTL(4,I))*PPTL(1,I)/PPTL(4,I) + Y=XORPTL(2,I)+(T-XORPTL(4,I))*PPTL(2,I)/PPTL(4,I) + Z=XORPTL(3,I)+(T-XORPTL(4,I))*PPTL(3,I)/PPTL(4,I) + IF ( ISH .GE. 93 ) WRITE(IFCH,*) + * 'LOOP OVER DECAY PRODUCTS ',NPTLB+1,' - ',NPTL,' :' + DO 20 N=NPTLB+1,NPTL + IF ( ISH .GE. 93 ) WRITE(IFCH,*)'PARTICLE: ',N,IDPTL(N) + IORPTL(N)=I + JORPTL(N)=0 + ISTPTL(N)=0 + IFRPTL(1,N)=0 + IFRPTL(2,N)=0 + XORPTL(1,N)=X + XORPTL(2,N)=Y + XORPTL(3,N)=Z + XORPTL(4,N)=T + NQJPTL(N)=NQJPTL(I) + IO=N + 1 IO=IORPTL(IO) + IF ( ISH .GE. 93 ) WRITE(IFCH,*)'IO = ',IO + IF ( IORPTL(IO) .GT. 0 ) GOTO 1 + IF ( ISH.GE. 93 ) WRITE(IFCH,*)'ORIGIN: ',IO,IDPTL(IO) + ZOR=XORPTL(3,IO) + TOR=XORPTL(4,IO) + CALL IDQUAC(IO,NQ,NDU,NDU,JCDU) + R=RANGEN() + TAURAN=-TAUREA*LOG(R) + CALL UTTAIX(N,TAURAN,ZOR,TOR,ZIS,TIS) + TIVPTL(1,N)=MAX(T,TIS) + CALL IDTAU(IDPTL(N),PPTL(4,N),PPTL(5,N),TAUGM) + TIVPTL(2,N)=T+TAUGM + ICLPTL(N)=1 + IF ( ISH .GE. 91 ) WRITE(IFCH,115)N,IDPTL(N) + * ,(PPTL(K,N),K=3,5),(TIVPTL(K,N),K=1,2) +20 CONTINUE + ISH=ISH00 + +1000 CONTINUE + IF ( ISH .GE. 93 ) WRITE(IFCH,*)('-',L=1,79) + ISH=ISH0 + RETURN + END +C======================================================================= + + SUBROUTINE JDECAYV(IP,IRET) + +C----------------------------------------------------------------------- +C DECAYS PARTICLE IP FROM /CPTL/ +C----------------------------------------------------------------------- + PARAMETER (MXDKY=2000) + PARAMETER (MXLOOK=10000) + PARAMETER (MXPTL=70000) + COMMON /CCLUDE/ KCLUDE + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /DKYTAB/ CBR(MXDKY),LOOK(MXLOOK),MODE(5,MXDKY) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /WCO/ WGAM2,WMASS2 + + REAL BETA(3),PGEN(5,5),PREST(4,5) + * ,REDUCE(5),RND(5),U(3) + DATA REDUCE/1.,1.,2.,5.,15./,TWOME/1.022006E-3/ + SAVE +C----------------------------------------------------------------------- +C FCTN DEFINITIONS + DOT(I1,I2)=PREST(4,I1)*PREST(4,I2)-PREST(1,I1)*PREST(1,I2) + * -PREST(2,I1)*PREST(2,I2)-PREST(3,I1)*PREST(3,I2) +C CHARGED W PROPAGATOR. + WPROP(Z)=(Z-WMASS2**2)**2+(WMASS2*WGAM2)**2 +C----------------------------------------------------------------------- + + ISH0=ISH + IF ( ISHSUB/100 .EQ. 4 ) ISH=MOD(ISHSUB,100) + IF ( ISH .GE. 93 ) THEN + WRITE(IFCH,*)('-',L=1,79) + WRITE(IFCH,*)'DECAY OF',IP,IDPTL(IP),PPTL(5,IP) + ENDIF + ISH=ISH0 + + IRET=0 + KCLUDE=0 + +C NO K_LONG DECAY +C --------------- + IF ( IDPTL(IP) .EQ. -20 ) GOTO 1000 + +C CLUSTER DECAY +C ------------- + IF ( ABS(IDPTL(IP)) .GT. 100000000 ) THEN + KCLUDE=1 + CALL JCLUDE(IP,IRET) + GOTO 1000 + ENDIF + + IF ( ISHSUB/100 .EQ. 4 ) ISH=MOD(ISHSUB,100) + IF ( ISH .GE. 93 ) WRITE(IFCH,*)'ORDINARY DECAY' + +C SELECT DECAY MODE +C ----------------- + NTRY=0 + 2 NTRY=NTRY+1 + IF ( NTRY .GT. 100 ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JDECAYV') + WRITE(IFCH,*)'***** DECAY NOT POSSIBLE. IRET = 1.' + WRITE(IFCH,*)'ID,MASS: ',IDPTL(IP),PPTL(5,IP) + CALL UTMSGF + ENDIF + IRET=1 + GOTO 1000 + ENDIF + IDLV1=IDPTL(IP) + AMSS=PPTL(5,IP) + 1 CONTINUE + IPOINT=LOOK(IABS(IDLV1))-1 + IF ( IPOINT .LT. 0 ) GOTO 1000 + TRY=RANGEN() +100 IPOINT=IPOINT+1 + IF ( ISH .GE. 93 ) WRITE(IFCH,*)'IPOINT,CBR,TRY' + * ,IPOINT,CBR(IPOINT),TRY + IF ( TRY .GT. CBR(IPOINT) ) GOTO 100 + NADD=0 + SUM=0. + NSTART=NPTL+1 + DO 110 I=1,5 + IF ( MODE(I,IPOINT) .EQ. 0 ) GOTO 110 + IF ( NPTL+NADD+1 .GT. MXPTL ) GOTO 9999 + NADD=NADD+1 + NEW=NPTL+NADD + IDPTL(NEW)=MODE(I,IPOINT) + IDLV1=IDPTL(NEW) + CALL IDMASS(IDLV1,PPTL(5,NEW)) + SUM=SUM+PPTL(5,NEW) +110 CONTINUE + IF ( NADD .NE. 1 .AND. SUM+1.E-2 .GE. AMSS ) GOTO 2 + NADD1=NADD-1 + DO 120 J=1,5 + PGEN(J,1)=PPTL(J,IP) +120 CONTINUE + PGEN(5,NADD)=PPTL(5,NPTL+NADD) + IF ( NADD .EQ. 1 ) GOTO 700 + IF ( NADD .EQ. 2 ) GOTO 400 + +C USE KROLL-WADA DISTRIBUTION FOR DALITZ DECAYS. +C ---------------------------------------------- + IF ( ISH .GE. 93 ) WRITE(IFCH,*)'>= 3 BODY DECAY' + IF ( .NOT. ( (IDPTL(IP).EQ.110 .OR. IDPTL(IP).EQ.220) .AND. + * ABS(IDPTL(NPTL+2)).EQ.12 ) ) GOTO 130 + NTRY=0 +125 NTRY=NTRY+1 + IF ( NTRY .GT. 10 ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JDECAYV') + WRITE(IFCH,*)'***** NTRY > 10. IRET = 1.' + WRITE(IFCH,*)'AMEE,REE,WTEE',AMEE,REE,WTEE + CALL UTMSGF + ENDIF + IRET=1 + GOTO 1000 + ENDIF + AMEE=TWOME*(PPTL(5,IP)/TWOME)**RANGEN() + REE=(TWOME/AMEE)**2 + WTEE=(1.-(AMEE/PPTL(5,IP))**2)**3*SQRT(1.-REE)*(1.+.5*REE) + IF ( WTEE .LT. RANGEN() ) GOTO 125 + PGEN(5,2)=AMEE + GOTO 400 +130 CONTINUE + +C CALCULATE MAXIMUM PHASE-SPACE WEIGHT +C ------------------------------------ + WTMAX=1./REDUCE(NADD) + SUM1=PGEN(5,1) + SUM2=SUM-PPTL(5,NPTL+1) + DO 200 I=1,NADD1 + WTMAX=WTMAX*UTPCM(SUM1,SUM2,PPTL(5,NPTL+I)) + SUM1=SUM1-PPTL(5,NPTL+I) + SUM2=SUM2-PPTL(5,NPTL+I+1) +200 CONTINUE + +C GENERATE UNIFORM NADD-BODY PHASE SPACE +C -------------------------------------- + NTRY=0 +300 NTRY=NTRY+1 + IF ( NTRY .GT. 10000 ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JDECAYV') + WRITE(IFCH,*)'***** INFINITE LOOP (2). IRET = 1.' + WRITE(IFCH,*)'IP,IDPTL(IP),PPTL(5,IP):' + * ,IP,IDPTL(IP),PPTL(5,IP) + WRITE(IFCH,*)'WT,WTMAX:',WT,WTMAX + WRITE(IFCH,*)'I,PGEN(5,I),PPTL(5,NPTL+I),IDPTL(NPTL+I):' + DO 305 I=1,NADD + WRITE(IFCH,*)I,PGEN(5,I),PPTL(5,NPTL+I),IDPTL(NPTL+I) +305 CONTINUE + CALL UTMSGF + ENDIF + IRET=1 + GOTO 1000 + ENDIF + RND(1)=1. + DO 310 I=2,NADD1 + RNEW=RANGEN() + I1=I-1 + DO 320 JJ1=1,I1 + J=I-JJ1 + JSAVE=J+1 + IF ( RNEW .LE. RND(J) ) GOTO 315 + RND(JSAVE)=RND(J) +320 CONTINUE +315 RND(JSAVE)=RNEW +310 CONTINUE + RND(NADD)=0. + WT=1. + SUM1=SUM + DO 330 I=2,NADD + SUM1=SUM1-PPTL(5,NPTL+I-1) + PGEN(5,I)=SUM1+RND(I)*(PGEN(5,1)-SUM) + A=PGEN(5,I-1) + B=PGEN(5,I) + C=PPTL(5,NPTL+I-1) + WT=WT*UTPCM(A,B,C) +330 CONTINUE + IF ( WT .LT. RANGEN()*WTMAX ) GOTO 300 + +C CARRY OUT TWO-BODY DECAYS IN PGEN FRAMES +C ---------------------------------------- +400 CONTINUE + IF ( ISH .GE. 93 ) WRITE(IFCH,*)'2 BODY DECAY' + DO 410 I=1,NADD1 + QCM=UTPCM(PGEN(5,I),PGEN(5,I+1),PPTL(5,NPTL+I)) + U(3)=2.*RANGEN()-1. + PHI=2.*PI*RANGEN() + U(1)=SQRT(1.-U(3)**2)*COS(PHI) + U(2)=SQRT(1.-U(3)**2)*SIN(PHI) + PPTL(1,NPTL+I)=QCM*U(1) + PGEN(1,I+1)=-PPTL(1,NPTL+I) + PPTL(2,NPTL+I)=QCM*U(2) + PGEN(2,I+1)=-PPTL(2,NPTL+I) + PPTL(3,NPTL+I)=QCM*U(3) + PGEN(3,I+1)=-PPTL(3,NPTL+I) + PPTL(4,NPTL+I)=SQRT(QCM**2+PPTL(5,NPTL+I)**2) + PGEN(4,I+1)=SQRT(QCM**2+PGEN(5,I+1)**2) +410 CONTINUE + PPTL(1,NPTL+NADD)=PGEN(1,NADD) + PPTL(2,NPTL+NADD)=PGEN(2,NADD) + PPTL(3,NPTL+NADD)=PGEN(3,NADD) + PPTL(4,NPTL+NADD)=PGEN(4,NADD) + +C BOOST PGEN FRAMES TO LAB FRAME +C ALSO SAVE MOMENTA IN REST FRAME (LAST FRAME) +C ------------------------------------------------- + DO 500 II=1,NADD1 + I=NADD-II + BETA(1)=1./PGEN(4,I)*PGEN(1,I) + BETA(2)=1./PGEN(4,I)*PGEN(2,I) + BETA(3)=1./PGEN(4,I)*PGEN(3,I) + GAMMA=PGEN(4,I)/PGEN(5,I) + DO 520 K=I,NADD + K1=NPTL+K + BP=BETA(1)*PPTL(1,K1)+BETA(2)*PPTL(2,K1)+BETA(3)*PPTL(3,K1) + AUXIL=GAMMA*(PPTL(4,K1)+BP*GAMMA/(GAMMA+1.)) + PREST(1,K)=PPTL(1,K1) + PPTL(1,K1)=PPTL(1,K1)+BETA(1)*AUXIL + PREST(2,K)=PPTL(2,K1) + PPTL(2,K1)=PPTL(2,K1)+BETA(2)*AUXIL + PREST(3,K)=PPTL(3,K1) + PPTL(3,K1)=PPTL(3,K1)+BETA(3)*AUXIL + PREST(4,K)=PPTL(4,K1) + PPTL(4,K1)=GAMMA*(PPTL(4,K1)+BP) +520 CONTINUE +500 CONTINUE + +C MATRIX ELEMENTS +C --------------- + IF ( NADD .EQ. 3 ) THEN + IF ( IDPTL(IP) .EQ. 221 .OR. IDPTL(IP) .EQ. 331 ) GOTO 610 + IF ( ABS(IDPTL(NPTL+1)) .LT. 20 .AND. + * IDPTL(NPTL+1) .NE. 10 ) GOTO 620 + ENDIF + GOTO 800 + +C OMEG AND PHI DECAY +C USE VECTORS IN REST FRAME +C ------------------------------ +610 WT=(PPTL(5,NPTL+1)*PPTL(5,NPTL+2)*PPTL(5,NPTL+3))**2 + * -(PPTL(5,NPTL+1)*DOT(2,3))**2 + * -(PPTL(5,NPTL+2)*DOT(1,3))**2 + * -(PPTL(5,NPTL+3)*DOT(1,2))**2 + * +2.*DOT(1,2)*DOT(2,3)*DOT(1,3) + IF ( WT .LT. RANGEN()*PPTL(5,IP)**6/108. ) GOTO 300 + GOTO 800 + +C SEMILEPTONIC AND QUARK DECAYS +C USE VECTORS IN REST FRAME, WHERE IP HAS (M,0,0,0) +C INCLUDE W PROPAGATOR +C ------------------------------------------------------ +620 WT=(PPTL(5,IP)*PREST(4,2))*DOT(1,3) + S12=PPTL(5,NPTL+1)**2+PPTL(5,NPTL+2)**2+2.*DOT(1,2) + S12MAX=PPTL(5,IP)**2 + WT=WT*WPROP(S12MAX)/WPROP(S12) + IF ( WT .LT. RANGEN()*PPTL(5,IP)**4/16. ) GOTO 300 + GOTO 800 + +C ONE-PARTICLE DECAYS +C ------------------- +700 CONTINUE + DO 710 J=1,5 + PPTL(J,NPTL+1)=PPTL(J,IP) +710 CONTINUE + +C SWAP PARTICLES AND ANTIPARTICLES IF IDPTL(IP)<0 +C ----------------------------------------------- +800 CONTINUE + IF ( IDPTL(IP).GE.0 .OR. ABS(IDPTL(IP)).EQ.20 ) GOTO 900 + DO 810 I=1,NADD + IDABS=ABS(IDPTL(NPTL+I)) + IFL1=IDABS/1000 + IFL2=MOD(IDABS/100,10) + IFL3=MOD(IDABS/10,10) + IF ( IFL1.EQ.0 .AND. IFL2.NE.0 .AND. IFL2.EQ.IFL3 ) GOTO 810 + IF ( IDABS.EQ.9 .OR. IDABS.EQ.10 .OR. IDABS.EQ.20 ) GOTO 810 + IF ( IDABS.EQ.29 .OR. IDABS.EQ.30 .OR. IDABS.EQ.40 ) GOTO 810 + IDPTL(NPTL+I)=-IDPTL(NPTL+I) +810 CONTINUE + +900 CONTINUE + NPTL=NPTL+NADD + IF ( NPTL .GT. MXPTL ) THEN + CALL UTSTOP('JDECAYV: NPTL>MXPTL ') + ENDIF + NQK=0 + IF ( ABS(IDPTL(NPTL)).LT.10 .OR. MOD(IDPTL(NPTL),100).EQ.0 ) THEN + CALL UTSTOP('JDECAYV: DECAY PTCL IS PARTON ') + ENDIF + +1000 CONTINUE + IF ( ISH .GE. 93 ) WRITE(IFCH,*)('-',L=1,79) + ISH=ISH0 + RETURN + +9999 CALL UTSTOP('JDECAYV: MXPTL TOO SMALL ') + RETURN + END +C======================================================================= + + SUBROUTINE JDECIN(LPRINT) + +C----------------------------------------------------------------------- +C SETS UP /DKYTAB/ +C----------------------------------------------------------------------- + PARAMETER (MXDKY=2000) + PARAMETER (MXLOOK=10000) + PARAMETER (NDECTB=1171) + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /DKYTAB/ CBR(MXDKY),LOOK(MXLOOK),MODE(5,MXDKY) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + LOGICAL NODCAY,NOETA,NOEVOL,NOHADR,NONUNU,NOPI0 + COMMON /NODCAY/ NODCAY,NOETA,NOEVOL,NOHADR,NONUNU,NOPI0 + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /WCO/ WGAM2,WMASS2 + + REAL DECTAB(7,NDECTB) + INTEGER IMODE(6) + CHARACTER*8 IBLANK,IDLABL,LMODE(6),LRES + LOGICAL LPRINT + + DATA IBLANK/' '/ + DATA ((DECTAB(I,J),I=1,7),J= 1, 18)/ + * 110., .98850, 10., 10., 0., 0., 0. + *, 110.,1.00000, 10., 12., -12., 0., 0. + *, 220., .38000, 10., 10., 0., 0., 0. + *, 220., .71000, 110., 110., 110., 0., 0. + *, 220., .94600, 120.,-120., 110., 0., 0. + *, 220., .99500, 120.,-120., 10., 0., 0. + *, 220.,1.00000, 10., 12., -12., 0., 0. + *, 330., .44100, 220., 120.,-120., 0., 0. + *, 330., .66100, 220., 110., 110., 0., 0. + *, 330., .95900, 111., 10., 0., 0., 0. + *, 330., .98000, 221., 10., 0., 0., 0. + *, 330.,1.00000, 10., 10., 0., 0., 0. + *, 121.,1.00000, 120., 110., 0., 0., 0. + *, 111., .99989, 120.,-120., 0., 0., 0. + *, 111., .99993, 12., -12., 0., 0., 0. + *, 111.,1.00000, 14., -14., 0., 0., 0. + *, 221., .89900, 120.,-120., 110., 0., 0. + *, 221., .91200, 120.,-120., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J= 19, 36)/ + * 221., .99992, 110., 10., 0., 0., 0. + *, 221.,1.00000, 12., -12., 0., 0., 0. + *, 331., .48600, 130.,-130., 0., 0., 0. + *, 331., .83700, 230.,-230., 0., 0., 0. + *, 331., .98400, 120.,-120., 110., 0., 0. + *, 331., .99944, 220., 10., 0., 0., 0. + *, 331., .99975, 12., -12., 0., 0., 0. + *, 331.,1.00000, 14., -14., 0., 0., 0. + *, 230., .50000, 20., 0., 0., 0., 0. + *, 230.,1.00000, -20., 0., 0., 0., 0. + *, 131., .66670, 230., 120., 0., 0., 0. + *, 131.,1.00000, 130., 110., 0., 0., 0. + *, 231., .66670, 130.,-120., 0., 0., 0. + *, 231.,1.00000, 230., 110., 0., 0., 0. + *, 240., .11000, 12., -11., 230., 0., 0. + *, 240., .17000, 12., -11., 231., 0., 0. + *, 240., .28000, 14., -13., 230., 0., 0. + *, 240., .34000, 14., -13., 231., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J= 37, 54)/ + * 240., .37800, 230.,-120., 0., 0., 0. + *, 240., .56300, 230.,-121., 0., 0., 0. + *, 240., .60800, 231.,-120., 0., 0., 0. + *, 240., .62100, 230.,-120., 110., 0., 0. + *, 240., .71000, 130.,-120.,-120., 0., 0. + *, 240., .80100, 230.,-120.,-120., 120., 0. + *, 240., .87900, 130.,-120.,-120., 110., 0. + *, 240., .95400, 230.,-120., 110., 110., 0. + *, 240., .96600, 230.,-130., 0., 0., 0. + *, 240., .97600, 331.,-120., 0., 0., 0. + *, 240., .98800,-130., 231., 0., 0., 0. + *, 240.,1.00000,-131., 230., 0., 0., 0. + *, 140., .04500, 12., -11., 130., 0., 0. + *, 140., .07500, 12., -11., 131., 0., 0. + *, 140., .12000, 14., -13., 130., 0., 0. + *, 140., .15000, 14., -13., 131., 0., 0. + *, 140., .20300, 130.,-120., 0., 0., 0. + *, 140., .22700, 230., 110., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J= 55, 72)/ + * 140., .24700, 230., 220., 0., 0., 0. + *, 140., .28900, 230., 221., 0., 0., 0. + *, 140., .45100, 130.,-121., 0., 0., 0. + *, 140., .53600, 131.,-120., 0., 0., 0. + *, 140., .56200, 231., 110., 0., 0., 0. + *, 140., .57600, 230., 111., 0., 0., 0. + *, 140., .58700, 130.,-120., 110., 0., 0. + *, 140., .60300, 230.,-120., 120., 0., 0. + *, 140., .72700, 130.,-120.,-120., 120., 0. + *, 140., .87600, 230.,-120., 120., 110., 0. + *, 140., .96900, 130.,-120., 110., 110., 0. + *, 140.,1.00000, 230., 110., 110., 110., 0. + *, 340., .03250, 12., -11., 220., 0., 0. + *, 340., .06500, 12., -11., 331., 0., 0. + *, 340., .09750, 14., -13., 220., 0., 0. + *, 340., .13000, 14., -13., 331., 0., 0. + *, 340., .17900,-130., 230., 0., 0., 0. + *, 340., .22800,-120., 220., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J= 73, 90)/ + * 340., .33800,-131., 230., 0., 0., 0. + *, 340., .44800,-130., 231., 0., 0., 0. + *, 340., .55800,-120., 331., 0., 0., 0. + *, 340., .57500,-130., 230., 110., 0., 0. + *, 340., .59200,-230., 230.,-120., 0., 0. + *, 340., .69400,-130., 230.,-120., 120., 0. + *, 340., .79600,-130., 230., 110., 110., 0. + *, 340., .89800,-130., 130.,-120., 110., 0. + *, 340.,1.00000,-230., 230.,-120., 110., 0. + *, 241., .64000, 140.,-120., 0., 0., 0. + *, 241., .92000, 240., 110., 0., 0., 0. + *, 241.,1.00000, 240., 10., 0., 0., 0. + *, 141., .55000, 140., 110., 0., 0., 0. + *, 141.,1.00000, 140., 10., 0., 0., 0. + *, 341.,1.00000, 340., 10., 0., 0., 0. + *, 441., .07400, 12., -12., 0., 0., 0. + *, 441., .14800, 14., -14., 0., 0., 0. + *, 441., .15210,-121., 120., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J= 91,108)/ + * 441., .15620, 111., 110., 0., 0., 0. + *, 441., .16020, 121.,-120., 0., 0., 0. + *, 441., .16300,-121., 111., 120., 0., 0. + *, 441., .16580, 121.,-121., 110., 0., 0. + *, 441., .16860, 121., 111.,-120., 0., 0. + *, 441., .28740, 120.,-120., 130.,-130., 0. + *, 441., .40620, 110., 110., 130.,-130., 0. + *, 441., .52500, 120.,-120., 120.,-120., 0. + *, 441., .64380, 120.,-120., 110., 110., 0. + *, 441., .76260, 110., 110., 110., 110., 0. + *, 441., .88130, 120.,-120., 230.,-230., 0. + *, 441.,1.00000, 110., 110., 230., 230., 0. + *, 150., .06000, -12., 11., 140., 0., 0. + *, 150., .12000, -12., 11., 141., 0., 0. + *, 150., .18000, -14., 13., 140., 0., 0. + *, 150., .24000, -14., 13., 141., 0., 0. + *, 150., .25500, -16., 15., 140., 0., 0. + *, 150., .27000, -16., 15., 141., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=109,126)/ + * 150., .28050, 140., 120., 0., 0., 0. + *, 150., .29100, 140., 121., 0., 0., 0. + *, 150., .30150, 141., 120., 0., 0., 0. + *, 150., .31200, 141., 121., 0., 0., 0. + *, 150., .32650, 140.,-340., 0., 0., 0. + *, 150., .34100, 140.,-341., 0., 0., 0. + *, 150., .35550, 141.,-340., 0., 0., 0. + *, 150., .37000, 141.,-341., 0., 0., 0. + *, 150., .39800, 140., 120., 110., 0., 0. + *, 150., .42600, 140., 120., 220., 0., 0. + *, 150., .45400, 140., 120., 111., 0., 0. + *, 150., .48200, 140., 120., 221., 0., 0. + *, 150., .51000, 140., 121., 110., 0., 0. + *, 150., .53800, 140., 121., 220., 0., 0. + *, 150., .56600, 140., 121., 111., 0., 0. + *, 150., .59400, 140., 121., 221., 0., 0. + *, 150., .62200, 141., 120., 110., 0., 0. + *, 150., .65000, 141., 120., 220., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=127,144)/ + * 150., .67800, 141., 120., 111., 0., 0. + *, 150., .70600, 141., 120., 221., 0., 0. + *, 150., .73400, 141., 121., 110., 0., 0. + *, 150., .76200, 141., 121., 220., 0., 0. + *, 150., .79000, 141., 121., 111., 0., 0. + *, 150., .81800, 141., 121., 221., 0., 0. + *, 150., .83200, 140., 130.,-230., 0., 0. + *, 150., .84600, 140., 130.,-231., 0., 0. + *, 150., .86000, 140., 131.,-230., 0., 0. + *, 150., .87400, 140., 131.,-231., 0., 0. + *, 150., .88800, 141., 130.,-230., 0., 0. + *, 150., .90200, 141., 130.,-231., 0., 0. + *, 150., .91600, 141., 131.,-230., 0., 0. + *, 150., .93000, 141., 131.,-231., 0., 0. + *, 150., .93300, 140.,-140., 130., 0., 0. + *, 150., .93600, 140.,-140., 131., 0., 0. + *, 150., .93900, 140.,-141., 130., 0., 0. + *, 150., .94200, 140.,-141., 131., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=145,162)/ + * 150., .94500, 141.,-140., 130., 0., 0. + *, 150., .94800, 141.,-140., 131., 0., 0. + *, 150., .95100, 141.,-141., 130., 0., 0. + *, 150., .95400, 141.,-141., 131., 0., 0. + *, 150., .95700, 140.,-240., 230., 0., 0. + *, 150., .96000, 140.,-240., 231., 0., 0. + *, 150., .96300, 140.,-241., 230., 0., 0. + *, 150., .96600, 140.,-241., 231., 0., 0. + *, 150., .96900, 141.,-240., 230., 0., 0. + *, 150., .97200, 141.,-240., 231., 0., 0. + *, 150., .97500, 141.,-241., 230., 0., 0. + *, 150., .97800, 141.,-241., 231., 0., 0. + *, 150., .97950, 140.,-340., 330., 0., 0. + *, 150., .98100, 140.,-340., 331., 0., 0. + *, 150., .98250, 140.,-341., 331., 0., 0. + *, 150., .98400, 140.,-341., 331., 0., 0. + *, 150., .98550, 141.,-340., 330., 0., 0. + *, 150., .98700, 141.,-340., 331., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=163,180)/ + * 150., .98850, 141.,-341., 331., 0., 0. + *, 150., .99000, 141.,-341., 331., 0., 0. + *, 150., .99200, 441., 130., 110., 0., 0. + *, 150., .99400, 441., 131., 110., 0., 0. + *, 150., .99600, 441., 230., 120., 0., 0. + *, 150., .99800, 441., 231., 120., 0., 0. + *, 150., .99900, 441., 330., 130., 0., 0. + *, 150.,1.00000, 441., 331., 130., 0., 0. + *, 250., .06000, -12., 11., 240., 0., 0. + *, 250., .12000, -12., 11., 241., 0., 0. + *, 250., .18000, -14., 13., 240., 0., 0. + *, 250., .24000, -14., 13., 241., 0., 0. + *, 250., .25500, -16., 15., 240., 0., 0. + *, 250., .27000, -16., 15., 241., 0., 0. + *, 250., .28050, 240., 120., 0., 0., 0. + *, 250., .29100, 240., 121., 0., 0., 0. + *, 250., .30150, 241., 120., 0., 0., 0. + *, 250., .31200, 241., 121., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=181,198)/ + * 250., .32650, 240.,-340., 0., 0., 0. + *, 250., .34100, 240.,-341., 0., 0., 0. + *, 250., .35550, 241.,-340., 0., 0., 0. + *, 250., .37000, 241.,-341., 0., 0., 0. + *, 250., .39800, 240., 120., 110., 0., 0. + *, 250., .42600, 240., 120., 220., 0., 0. + *, 250., .45400, 240., 120., 111., 0., 0. + *, 250., .48200, 240., 120., 221., 0., 0. + *, 250., .51000, 240., 121., 110., 0., 0. + *, 250., .53800, 240., 121., 220., 0., 0. + *, 250., .56600, 240., 121., 111., 0., 0. + *, 250., .59400, 240., 121., 221., 0., 0. + *, 250., .62200, 241., 120., 110., 0., 0. + *, 250., .65000, 241., 120., 220., 0., 0. + *, 250., .67800, 241., 120., 111., 0., 0. + *, 250., .70600, 241., 120., 221., 0., 0. + *, 250., .73400, 241., 121., 110., 0., 0. + *, 250., .76200, 241., 121., 220., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=199,216)/ + * 250., .79000, 241., 121., 111., 0., 0. + *, 250., .81800, 241., 121., 221., 0., 0. + *, 250., .83200, 240., 130.,-230., 0., 0. + *, 250., .84600, 240., 130.,-231., 0., 0. + *, 250., .86000, 240., 131.,-230., 0., 0. + *, 250., .87400, 240., 131.,-231., 0., 0. + *, 250., .88800, 241., 130.,-230., 0., 0. + *, 250., .90200, 241., 130.,-231., 0., 0. + *, 250., .91600, 241., 131.,-230., 0., 0. + *, 250., .93000, 241., 131.,-231., 0., 0. + *, 250., .93300, 240.,-140., 130., 0., 0. + *, 250., .93600, 240.,-140., 131., 0., 0. + *, 250., .93900, 240.,-141., 130., 0., 0. + *, 250., .94200, 240.,-141., 131., 0., 0. + *, 250., .94500, 241.,-140., 130., 0., 0. + *, 250., .94800, 241.,-140., 131., 0., 0. + *, 250., .95100, 241.,-141., 130., 0., 0. + *, 250., .95400, 241.,-141., 131., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=217,234)/ + * 250., .95700, 240.,-240., 230., 0., 0. + *, 250., .96000, 240.,-240., 231., 0., 0. + *, 250., .96300, 240.,-241., 230., 0., 0. + *, 250., .96600, 240.,-241., 231., 0., 0. + *, 250., .96900, 241.,-240., 230., 0., 0. + *, 250., .97200, 241.,-240., 231., 0., 0. + *, 250., .97500, 241.,-241., 230., 0., 0. + *, 250., .97800, 241.,-241., 231., 0., 0. + *, 250., .97950, 240.,-340., 330., 0., 0. + *, 250., .98100, 240.,-340., 331., 0., 0. + *, 250., .98250, 240.,-341., 331., 0., 0. + *, 250., .98400, 240.,-341., 331., 0., 0. + *, 250., .98550, 241.,-340., 330., 0., 0. + *, 250., .98700, 241.,-340., 331., 0., 0. + *, 250., .98850, 241.,-341., 331., 0., 0. + *, 250., .99000, 241.,-341., 331., 0., 0. + *, 250., .99200, 441., 130.,-120., 0., 0. + *, 250., .99400, 441., 131.,-120., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=235,252)/ + * 250., .99600, 441., 230., 220., 0., 0. + *, 250., .99800, 441., 231., 221., 0., 0. + *, 250., .99900, 441., 330., 230., 0., 0. + *, 250.,1.00000, 441., 331., 230., 0., 0. + *, 350., .06000, -12., 11., 340., 0., 0. + *, 350., .12000, -12., 11., 341., 0., 0. + *, 350., .18000, -14., 13., 340., 0., 0. + *, 350., .24000, -14., 13., 341., 0., 0. + *, 350., .25500, -16., 15., 340., 0., 0. + *, 350., .27000, -16., 15., 341., 0., 0. + *, 350., .28050, 340., 120., 0., 0., 0. + *, 350., .29100, 340., 121., 0., 0., 0. + *, 350., .30150, 341., 120., 0., 0., 0. + *, 350., .31200, 341., 121., 0., 0., 0. + *, 350., .32650, 340.,-340., 0., 0., 0. + *, 350., .34100, 340.,-341., 0., 0., 0. + *, 350., .35550, 341.,-340., 0., 0., 0. + *, 350., .37000, 341.,-341., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=253,270)/ + * 350., .39800, 340., 120., 110., 0., 0. + *, 350., .42600, 340., 120., 220., 0., 0. + *, 350., .45400, 340., 120., 111., 0., 0. + *, 350., .48200, 340., 120., 221., 0., 0. + *, 350., .51000, 340., 121., 110., 0., 0. + *, 350., .53800, 340., 121., 220., 0., 0. + *, 350., .56600, 340., 121., 111., 0., 0. + *, 350., .59400, 340., 121., 221., 0., 0. + *, 350., .62200, 341., 120., 110., 0., 0. + *, 350., .65000, 341., 120., 220., 0., 0. + *, 350., .67800, 341., 120., 111., 0., 0. + *, 350., .70600, 341., 120., 221., 0., 0. + *, 350., .73400, 341., 121., 110., 0., 0. + *, 350., .76200, 341., 121., 220., 0., 0. + *, 350., .79000, 341., 121., 111., 0., 0. + *, 350., .81800, 341., 121., 221., 0., 0. + *, 350., .83200, 340., 130.,-230., 0., 0. + *, 350., .84600, 340., 130.,-231., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=271,288)/ + * 350., .86000, 340., 131.,-230., 0., 0. + *, 350., .87400, 340., 131.,-231., 0., 0. + *, 350., .88800, 341., 130.,-230., 0., 0. + *, 350., .90200, 341., 130.,-231., 0., 0. + *, 350., .91600, 341., 131.,-230., 0., 0. + *, 350., .93000, 341., 131.,-231., 0., 0. + *, 350., .93300, 340.,-140., 130., 0., 0. + *, 350., .93600, 340.,-140., 131., 0., 0. + *, 350., .93900, 340.,-141., 130., 0., 0. + *, 350., .94200, 340.,-141., 131., 0., 0. + *, 350., .94500, 341.,-140., 130., 0., 0. + *, 350., .94800, 341.,-140., 131., 0., 0. + *, 350., .95100, 341.,-141., 130., 0., 0. + *, 350., .95400, 341.,-141., 131., 0., 0. + *, 350., .95700, 340.,-240., 230., 0., 0. + *, 350., .96000, 340.,-240., 231., 0., 0. + *, 350., .96300, 340.,-241., 230., 0., 0. + *, 350., .96600, 340.,-241., 231., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=289,306)/ + * 350., .96900, 341.,-240., 230., 0., 0. + *, 350., .97200, 341.,-240., 231., 0., 0. + *, 350., .97500, 341.,-241., 230., 0., 0. + *, 350., .97800, 341.,-241., 231., 0., 0. + *, 350., .97950, 340.,-340., 330., 0., 0. + *, 350., .98100, 340.,-340., 331., 0., 0. + *, 350., .98250, 340.,-341., 331., 0., 0. + *, 350., .98400, 340.,-341., 331., 0., 0. + *, 350., .98550, 341.,-340., 330., 0., 0. + *, 350., .98700, 341.,-340., 331., 0., 0. + *, 350., .98850, 341.,-341., 331., 0., 0. + *, 350., .99000, 341.,-341., 331., 0., 0. + *, 350., .99200, 441., 130.,-130., 0., 0. + *, 350., .99400, 441., 131.,-130., 0., 0. + *, 350., .99600, 441., 230.,-230., 0., 0. + *, 350., .99800, 441., 231.,-230., 0., 0. + *, 350., .99900, 441., 330., 330., 0., 0. + *, 350.,1.00000, 441., 331., 331., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=307,324)/ + * 160., .33330, -1., 2., -5., 0., 0. + *, 160., .66660, -4., 3., -5., 0., 0. + *, 160., .77770, -11., 12., -5., 0., 0. + *, 160., .88880, -13., 14., -5., 0., 0. + *, 160.,1.00000, -15., 16., -5., 0., 0. + *, 260., .33330, -1., 2., -5., 0., 0. + *, 260., .66660, -4., 3., -5., 0., 0. + *, 260., .77770, -11., 12., -5., 0., 0. + *, 260., .88880, -13., 14., -5., 0., 0. + *, 260.,1.00000, -15., 16., -5., 0., 0. + *, 360., .33330, -1., 2., -5., 0., 0. + *, 360., .66660, -4., 3., -5., 0., 0. + *, 360., .77770, -11., 12., -5., 0., 0. + *, 360., .88880, -13., 14., -5., 0., 0. + *, 360.,1.00000, -15., 16., -5., 0., 0. + *, 151.,1.00000, 150., 10., 0., 0., 0. + *, 251.,1.00000, 250., 10., 0., 0., 0. + *, 351.,1.00000, 350., 10., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=325,342)/ + * 161.,1.00000, 160., 10., 0., 0., 0. + *, 261.,1.00000, 260., 10., 0., 0., 0. + *, 361.,1.00000, 360., 10., 0., 0., 0. + *,1230.,1.00000,2130., 10., 0., 0., 0. + *,1111.,1.00000,1120., 120., 0., 0., 0. + *,1121., .66670,1120., 110., 0., 0., 0. + *,1121.,1.00000,1220., 120., 0., 0., 0. + *,1221., .66670,1220., 110., 0., 0., 0. + *,1221.,1.00000,1120.,-120., 0., 0., 0. + *,2221.,1.00000,1220.,-120., 0., 0., 0. + *,1131., .88000,2130., 120., 0., 0., 0. + *,1131., .94000,1130., 110., 0., 0., 0. + *,1131.,1.00000,1230., 120., 0., 0., 0. + *,1231., .88000,2130., 110., 0., 0., 0. + *,1231., .94000,1130.,-120., 0., 0., 0. + *,1231.,1.00000,2230., 120., 0., 0., 0. + *,2231., .88000,2130.,-120., 0., 0., 0. + *,2231., .94000,1230.,-120., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=343,360)/ + * 2231.,1.00000,2230., 110., 0., 0., 0. + *,1331., .66670,2330., 120., 0., 0., 0. + *,1331.,1.00000,1330., 110., 0., 0., 0. + *,2331., .66670,1330.,-120., 0., 0., 0. + *,2331.,1.00000,2330., 110., 0., 0., 0. + *, 16., .18000, 12., -11., 15., 0., 0. + *, 16., .36000, 14., -13., 15., 0., 0. + *, 16., .45100,-120., 15., 0., 0., 0. + *, 16., .66000,-121., 15., 0., 0., 0. + *, 16., .78000, 110., 110.,-120., 15., 0. + *, 16., .83600, 120.,-120.,-120., 15., 0. + *, 16.,1.00000, 120., 110.,-120.,-120., 15. + *,2140., .03750, -12., 11.,2130., 0., 0. + *,2140., .07500, -12., 11.,1231., 0., 0. + *,2140., .11250, -14., 13.,2130., 0., 0. + *,2140., .15000, -14., 13.,1231., 0., 0. + *,2140., .18200,2130., 120., 0., 0., 0. + *,2140., .21300,1230., 110., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=361,378)/ + * 2140., .24400,1120.,-230., 0., 0., 0. + *,2140., .29500,1131., 110., 0., 0., 0. + *,2140., .34600,1231., 120., 0., 0., 0. + *,2140., .39700,1121.,-230., 0., 0., 0. + *,2140., .44800,1111.,-130., 0., 0., 0. + *,2140., .49900,1130., 111., 0., 0., 0. + *,2140., .55000,1230., 121., 0., 0., 0. + *,2140., .60100,1120.,-231., 0., 0., 0. + *,2140., .65800,1120.,-230., 120.,-120., 0. + *,2140., .71500,1120.,-230., 110., 110., 0. + *,2140., .77200,1120.,-130., 120., 110., 0. + *,2140., .82900,1220.,-230., 120., 110., 0. + *,2140., .88600,1220.,-130., 120., 120., 0. + *,2140., .94300,2130., 120., 120.,-120., 0. + *,2140.,1.00000,2130., 120., 110., 110., 0. + *,1140.,1.00000,2140., 120., 0., 0., 0. + *,1240.,1.00000,2140., 110., 0., 0., 0. + *,2240.,1.00000,2140.,-120., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=379,396)/ + * 1340., .03750, -12., 11.,1330., 0., 0. + *,1340., .07500, -12., 11.,1331., 0., 0. + *,1340., .11250, -14., 13.,1330., 0., 0. + *,1340., .15000, -14., 13.,1331., 0., 0. + *,1340., .19900,1330., 120., 0., 0., 0. + *,1340., .24800,1231.,-230., 0., 0., 0. + *,1340., .28800,1330., 120., 0., 0., 0. + *,1340., .32800,1131.,-230., 0., 0., 0. + *,1340., .36800,1330., 121., 0., 0., 0. + *,1340., .40800,1130.,-230., 0., 0., 0. + *,1340., .44800,1330., 120., 110., 0., 0. + *,1340., .48800,2330., 120., 120., 0., 0. + *,1340., .52800,1130.,-130., 120., 0., 0. + *,1340., .56800,1130.,-230., 110., 0., 0. + *,1340., .60800,1230.,-230., 120., 0., 0. + *,1340., .66400,2130.,-230., 120., 110., 0. + *,1340., .72000,2130.,-130., 120., 120., 0. + *,1340., .77600,1130.,-230., 120., 120., 0./ + DATA ((DECTAB(I,J),I=1,7),J=397,414)/ + * 1340., .83200,1130.,-230., 110., 110., 0. + *,1340., .88800,1330., 120., 120.,-120., 0. + *,1340., .94400,1330., 120., 110., 110., 0. + *,1340.,1.00000,2330., 120., 120., 110., 0. + *,3140., .03750, -12., 11.,1330., 0., 0. + *,3140., .07500, -12., 11.,1331., 0., 0. + *,3140., .11250, -14., 13.,1330., 0., 0. + *,3140., .15000, -14., 13.,1331., 0., 0. + *,3140., .19900,1330., 120., 0., 0., 0. + *,3140., .24800,1231.,-230., 0., 0., 0. + *,3140., .28800,1330., 120., 0., 0., 0. + *,3140., .32800,1131.,-230., 0., 0., 0. + *,3140., .36800,1330., 121., 0., 0., 0. + *,3140., .40800,1130.,-230., 0., 0., 0. + *,3140., .44800,1330., 120., 110., 0., 0. + *,3140., .48800,2330., 120., 120., 0., 0. + *,3140., .52800,1130.,-130., 120., 0., 0. + *,3140., .56800,1130.,-230., 110., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=415,432)/ + * 3140., .60800,1230.,-230., 120., 0., 0. + *,3140., .66400,2130.,-230., 120., 110., 0. + *,3140., .72000,2130.,-130., 120., 120., 0. + *,3140., .77600,1130.,-230., 120., 120., 0. + *,3140., .83200,1130.,-230., 110., 110., 0. + *,3140., .88800,1330., 120., 120.,-120., 0. + *,3140., .94400,1330., 120., 110., 110., 0. + *,3140.,1.00000,2330., 120., 120., 110., 0. + *,2340., .03750, -12., 11.,2330., 0., 0. + *,2340., .07500, -12., 11.,2331., 0., 0. + *,2340., .11250, -14., 13.,2330., 0., 0. + *,2340., .15000, -14., 13.,2331., 0., 0. + *,2340., .17500,2330., 120., 0., 0., 0. + *,2340., .20000,1330., 110., 0., 0., 0. + *,2340., .22500,1130.,-130., 0., 0., 0. + *,2340., .25000,1230.,-230., 0., 0., 0. + *,2340., .29500,2331., 120., 0., 0., 0. + *,2340., .34000,1331., 110., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=433,450)/ + * 2340., .38500,1131.,-130., 0., 0., 0. + *,2340., .43000,1231.,-230., 0., 0., 0. + *,2340., .47500,2330., 121., 0., 0., 0. + *,2340., .52000,1330., 111., 0., 0., 0. + *,2340., .56500,1130.,-131., 0., 0., 0. + *,2340., .61000,1230.,-231., 0., 0., 0. + *,2340., .64900,2130.,-230., 120.,-120., 0. + *,2340., .68800,2130.,-230., 110., 110., 0. + *,2340., .72700,2130.,-130., 120., 110., 0. + *,2340., .76600,1130.,-230.,-120., 110., 0. + *,2340., .80500,1130.,-130., 120.,-120., 0. + *,2340., .84400,1130.,-130., 110., 110., 0. + *,2340., .88300,1330., 120.,-120., 110., 0. + *,2340., .92200,1330., 110., 110., 110., 0. + *,2340., .96100,2330., 120., 120.,-120., 0. + *,2340.,1.00000,2330., 120., 110., 110., 0. + *,3240., .03750, -12., 11.,2330., 0., 0. + *,3240., .07500, -12., 11.,2331., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=451,468)/ + * 3240., .11250, -14., 13.,2330., 0., 0. + *,3240., .15000, -14., 13.,2331., 0., 0. + *,3240., .17500,2330., 120., 0., 0., 0. + *,3240., .20000,1330., 110., 0., 0., 0. + *,3240., .22500,1130.,-130., 0., 0., 0. + *,3240., .25000,1230.,-230., 0., 0., 0. + *,3240., .29500,2331., 120., 0., 0., 0. + *,3240., .34000,1331., 110., 0., 0., 0. + *,3240., .38500,1131.,-130., 0., 0., 0. + *,3240., .43000,1231.,-230., 0., 0., 0. + *,3240., .47500,2330., 121., 0., 0., 0. + *,3240., .52000,1330., 111., 0., 0., 0. + *,3240., .56500,1130.,-131., 0., 0., 0. + *,3240., .61000,1230.,-231., 0., 0., 0. + *,3240., .64900,2130.,-230., 120.,-120., 0. + *,3240., .68800,2130.,-230., 110., 110., 0. + *,3240., .72700,2130.,-130., 120., 110., 0. + *,3240., .76600,1130.,-230.,-120., 110., 0./ + DATA ((DECTAB(I,J),I=1,7),J=469,486)/ + * 3240., .80500,1130.,-130., 120.,-120., 0. + *,3240., .84400,1130.,-130., 110., 110., 0. + *,3240., .88300,1330., 120.,-120., 110., 0. + *,3240., .92200,1330., 110., 110., 110., 0. + *,3240., .96100,2330., 120., 120.,-120., 0. + *,3240.,1.00000,2330., 120., 110., 110., 0. + *,3340., .07500, -12., 11.,3331., 0., 0. + *,3340., .15000, -12., 11.,3331., 0., 0. + *,3340., .25000,1330.,-230., 0., 0., 0. + *,3340., .31000,3331., 120., 0., 0., 0. + *,3340., .37000,1331.,-230., 0., 0., 0. + *,3340., .43000,1330.,-231., 0., 0., 0. + *,3340., .49000,2330.,-230., 120., 0., 0. + *,3340., .55000,1330.,-230., 110., 0., 0. + *,3340., .61000,1330.,-130., 120., 0., 0. + *,3340., .67500,3331., 120., 120.,-120., 0. + *,3340., .74000,3331., 120., 110., 110., 0. + *,3340., .80500,1330.,-230., 120.,-120., 0./ + DATA ((DECTAB(I,J),I=1,7),J=487,504)/ + * 3340., .87000,1330.,-230., 110., 110., 0. + *,3340., .93500,2330.,-230., 120., 110., 0. + *,3340.,1.00000,2330.,-130., 120., 120., 0. + *,1141.,1.00000,2140., 120., 0., 0., 0. + *,1241.,1.00000,2140., 110., 0., 0., 0. + *,2241.,1.00000,2140.,-120., 0., 0., 0. + *,1341., .66670,2340., 120., 0., 0., 0. + *,1341.,1.00000,1340., 110., 0., 0., 0. + *,2341., .66670,1340.,-120., 0., 0., 0. + *,2341.,1.00000,2340., 110., 0., 0., 0. + *,3341.,1.00000,3340., 110., 0., 0., 0. + *,1150., .06000, 12., -11.,1140., 0., 0. + *,1150., .12000, 12., -11.,1141., 0., 0. + *,1150., .18000, 14., -13.,1140., 0., 0. + *,1150., .24000, 14., -13.,1141., 0., 0. + *,1150., .25500, 16., -15.,1140., 0., 0. + *,1150., .27000, 16., -15.,1141., 0., 0. + *,1150., .28925,1140.,-120., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=505,522)/ + * 1150., .30850,1140.,-121., 0., 0., 0. + *,1150., .32775,1141.,-120., 0., 0., 0. + *,1150., .34700,1141.,-121., 0., 0., 0. + *,1150., .35775,1140., 340., 0., 0., 0. + *,1150., .36850,1140., 341., 0., 0., 0. + *,1150., .37925,1141., 340., 0., 0., 0. + *,1150., .39000,1141., 341., 0., 0., 0. + *,1150., .42050,1140.,-120., 110., 0., 0. + *,1150., .45100,1140.,-120., 220., 0., 0. + *,1150., .48150,1140.,-120., 111., 0., 0. + *,1150., .51200,1140.,-120., 221., 0., 0. + *,1150., .54250,1140.,-121., 110., 0., 0. + *,1150., .57300,1140.,-121., 220., 0., 0. + *,1150., .60350,1140.,-121., 111., 0., 0. + *,1150., .63400,1140.,-121., 221., 0., 0. + *,1150., .66450,1141.,-120., 110., 0., 0. + *,1150., .69500,1141.,-120., 220., 0., 0. + *,1150., .72550,1141.,-120., 111., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=523,540)/ + * 1150., .75600,1141.,-120., 221., 0., 0. + *,1150., .78650,1141.,-121., 110., 0., 0. + *,1150., .81700,1141.,-121., 220., 0., 0. + *,1150., .84750,1141.,-121., 111., 0., 0. + *,1150., .87800,1141.,-121., 221., 0., 0. + *,1150., .89325,1140.,-130., 230., 0., 0. + *,1150., .90850,1140.,-130., 231., 0., 0. + *,1150., .92375,1140.,-131., 230., 0., 0. + *,1150., .93900,1140.,-131., 231., 0., 0. + *,1150., .95425,1141.,-130., 230., 0., 0. + *,1150., .96950,1141.,-130., 231., 0., 0. + *,1150., .98475,1141.,-131., 230., 0., 0. + *,1150.,1.00000,1141.,-131., 231., 0., 0. + *,1250., .06000, 12., -11.,1240., 0., 0. + *,1250., .12000, 12., -11.,1241., 0., 0. + *,1250., .18000, 14., -13.,1240., 0., 0. + *,1250., .24000, 14., -13.,1241., 0., 0. + *,1250., .25500, 16., -15.,1240., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=541,558)/ + * 1250., .27000, 16., -15.,1241., 0., 0. + *,1250., .28925,1240.,-120., 0., 0., 0. + *,1250., .30850,1240.,-121., 0., 0., 0. + *,1250., .32775,1241.,-120., 0., 0., 0. + *,1250., .34700,1241.,-121., 0., 0., 0. + *,1250., .35775,1240., 340., 0., 0., 0. + *,1250., .36850,1240., 341., 0., 0., 0. + *,1250., .37925,1241., 340., 0., 0., 0. + *,1250., .39000,1241., 341., 0., 0., 0. + *,1250., .42050,1240.,-120., 110., 0., 0. + *,1250., .45100,1240.,-120., 220., 0., 0. + *,1250., .48150,1240.,-120., 111., 0., 0. + *,1250., .51200,1240.,-120., 221., 0., 0. + *,1250., .54250,1240.,-121., 110., 0., 0. + *,1250., .57300,1240.,-121., 220., 0., 0. + *,1250., .60350,1240.,-121., 111., 0., 0. + *,1250., .63400,1240.,-121., 221., 0., 0. + *,1250., .66450,1241.,-120., 110., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=559,576)/ + * 1250., .69500,1241.,-120., 220., 0., 0. + *,1250., .72550,1241.,-120., 111., 0., 0. + *,1250., .75600,1241.,-120., 221., 0., 0. + *,1250., .78650,1241.,-121., 110., 0., 0. + *,1250., .81700,1241.,-121., 220., 0., 0. + *,1250., .84750,1241.,-121., 111., 0., 0. + *,1250., .87800,1241.,-121., 221., 0., 0. + *,1250., .89325,1240.,-130., 230., 0., 0. + *,1250., .90850,1240.,-130., 231., 0., 0. + *,1250., .92375,1240.,-131., 230., 0., 0. + *,1250., .93900,1240.,-131., 231., 0., 0. + *,1250., .95425,1241.,-130., 230., 0., 0. + *,1250., .96950,1241.,-130., 231., 0., 0. + *,1250., .98475,1241.,-131., 230., 0., 0. + *,1250.,1.00000,1241.,-131., 231., 0., 0. + *,1350., .06000, 12., -11.,1340., 0., 0. + *,1350., .12000, 12., -11.,1341., 0., 0. + *,1350., .18000, 14., -13.,1340., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=577,594)/ + * 1350., .24000, 14., -13.,1341., 0., 0. + *,1350., .25500, 16., -15.,1340., 0., 0. + *,1350., .27000, 16., -15.,1341., 0., 0. + *,1350., .28925,1340.,-120., 0., 0., 0. + *,1350., .30850,1340.,-121., 0., 0., 0. + *,1350., .32775,1341.,-120., 0., 0., 0. + *,1350., .34700,1341.,-121., 0., 0., 0. + *,1350., .35775,1340., 340., 0., 0., 0. + *,1350., .36850,1340., 341., 0., 0., 0. + *,1350., .37925,1341., 340., 0., 0., 0. + *,1350., .39000,1341., 341., 0., 0., 0. + *,1350., .42050,1340.,-120., 110., 0., 0. + *,1350., .45100,1340.,-120., 220., 0., 0. + *,1350., .48150,1340.,-120., 111., 0., 0. + *,1350., .51200,1340.,-120., 221., 0., 0. + *,1350., .54250,1340.,-121., 110., 0., 0. + *,1350., .57300,1340.,-121., 220., 0., 0. + *,1350., .60350,1340.,-121., 111., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=595,612)/ + * 1350., .63400,1340.,-121., 221., 0., 0. + *,1350., .66450,1341.,-120., 110., 0., 0. + *,1350., .69500,1341.,-120., 220., 0., 0. + *,1350., .72550,1341.,-120., 111., 0., 0. + *,1350., .75600,1341.,-120., 221., 0., 0. + *,1350., .78650,1341.,-121., 110., 0., 0. + *,1350., .81700,1341.,-121., 220., 0., 0. + *,1350., .84750,1341.,-121., 111., 0., 0. + *,1350., .87800,1341.,-121., 221., 0., 0. + *,1350., .89325,1340.,-130., 230., 0., 0. + *,1350., .90850,1340.,-130., 231., 0., 0. + *,1350., .92375,1340.,-131., 230., 0., 0. + *,1350., .93900,1340.,-131., 231., 0., 0. + *,1350., .95425,1341.,-130., 230., 0., 0. + *,1350., .96950,1341.,-130., 231., 0., 0. + *,1350., .98475,1341.,-131., 230., 0., 0. + *,1350.,1.00000,1341.,-131., 231., 0., 0. + *,2150., .06000, 12., -11.,2140., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=613,630)/ + * 2150., .12000, 12., -11.,1241., 0., 0. + *,2150., .18000, 14., -13.,2140., 0., 0. + *,2150., .24000, 14., -13.,1241., 0., 0. + *,2150., .25500, 16., -15.,2140., 0., 0. + *,2150., .27000, 16., -15.,1241., 0., 0. + *,2150., .28925,2140.,-120., 0., 0., 0. + *,2150., .30850,2140.,-121., 0., 0., 0. + *,2150., .32775,1241.,-120., 0., 0., 0. + *,2150., .34700,1241.,-121., 0., 0., 0. + *,2150., .35775,2140., 340., 0., 0., 0. + *,2150., .36850,2140., 341., 0., 0., 0. + *,2150., .37925,1241., 340., 0., 0., 0. + *,2150., .39000,1241., 341., 0., 0., 0. + *,2150., .42050,2140.,-120., 110., 0., 0. + *,2150., .45100,2140.,-120., 220., 0., 0. + *,2150., .48150,2140.,-120., 111., 0., 0. + *,2150., .51200,2140.,-120., 221., 0., 0. + *,2150., .54250,2140.,-121., 110., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=631,648)/ + * 2150., .57300,2140.,-121., 220., 0., 0. + *,2150., .60350,2140.,-121., 111., 0., 0. + *,2150., .63400,2140.,-121., 221., 0., 0. + *,2150., .66450,1241.,-120., 110., 0., 0. + *,2150., .69500,1241.,-120., 220., 0., 0. + *,2150., .72550,1241.,-120., 111., 0., 0. + *,2150., .75600,1241.,-120., 221., 0., 0. + *,2150., .78650,1241.,-121., 110., 0., 0. + *,2150., .81700,1241.,-121., 220., 0., 0. + *,2150., .84750,1241.,-121., 111., 0., 0. + *,2150., .87800,1241.,-121., 221., 0., 0. + *,2150., .89325,2140.,-130., 230., 0., 0. + *,2150., .90850,2140.,-130., 231., 0., 0. + *,2150., .92375,2140.,-131., 230., 0., 0. + *,2150., .93900,2140.,-131., 231., 0., 0. + *,2150., .95425,1241.,-130., 230., 0., 0. + *,2150., .96950,1241.,-130., 231., 0., 0. + *,2150., .98475,1241.,-131., 230., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=649,666)/ + * 2150.,1.00000,1241.,-131., 231., 0., 0. + *,2250., .06000, 12., -11.,2240., 0., 0. + *,2250., .12000, 12., -11.,2241., 0., 0. + *,2250., .18000, 14., -13.,2240., 0., 0. + *,2250., .24000, 14., -13.,2241., 0., 0. + *,2250., .25500, 16., -15.,2240., 0., 0. + *,2250., .27000, 16., -15.,2241., 0., 0. + *,2250., .28925,2240.,-120., 0., 0., 0. + *,2250., .30850,2240.,-121., 0., 0., 0. + *,2250., .32775,2241.,-120., 0., 0., 0. + *,2250., .34700,2241.,-121., 0., 0., 0. + *,2250., .35775,2240., 340., 0., 0., 0. + *,2250., .36850,2240., 341., 0., 0., 0. + *,2250., .37925,2241., 340., 0., 0., 0. + *,2250., .39000,2241., 341., 0., 0., 0. + *,2250., .42050,2240.,-120., 110., 0., 0. + *,2250., .45100,2240.,-120., 220., 0., 0. + *,2250., .48150,2240.,-120., 111., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=667,684)/ + * 2250., .51200,2240.,-120., 221., 0., 0. + *,2250., .54250,2240.,-121., 110., 0., 0. + *,2250., .57300,2240.,-121., 220., 0., 0. + *,2250., .60350,2240.,-121., 111., 0., 0. + *,2250., .63400,2240.,-121., 221., 0., 0. + *,2250., .66450,2241.,-120., 110., 0., 0. + *,2250., .69500,2241.,-120., 220., 0., 0. + *,2250., .72550,2241.,-120., 111., 0., 0. + *,2250., .75600,2241.,-120., 221., 0., 0. + *,2250., .78650,2241.,-121., 110., 0., 0. + *,2250., .81700,2241.,-121., 220., 0., 0. + *,2250., .84750,2241.,-121., 111., 0., 0. + *,2250., .87800,2241.,-121., 221., 0., 0. + *,2250., .89325,2240.,-130., 230., 0., 0. + *,2250., .90850,2240.,-130., 231., 0., 0. + *,2250., .92375,2240.,-131., 230., 0., 0. + *,2250., .93900,2240.,-131., 231., 0., 0. + *,2250., .95425,2241.,-130., 230., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=685,702)/ + * 2250., .96950,2241.,-130., 231., 0., 0. + *,2250., .98475,2241.,-131., 230., 0., 0. + *,2250.,1.00000,2241.,-131., 231., 0., 0. + *,2350., .06000, 12., -11.,2340., 0., 0. + *,2350., .12000, 12., -11.,2341., 0., 0. + *,2350., .18000, 14., -13.,2340., 0., 0. + *,2350., .24000, 14., -13.,2341., 0., 0. + *,2350., .25500, 16., -15.,2340., 0., 0. + *,2350., .27000, 16., -15.,2341., 0., 0. + *,2350., .28925,2340.,-120., 0., 0., 0. + *,2350., .30850,2340.,-121., 0., 0., 0. + *,2350., .32775,2341.,-120., 0., 0., 0. + *,2350., .34700,2341.,-121., 0., 0., 0. + *,2350., .35775,2340., 340., 0., 0., 0. + *,2350., .36850,2340., 341., 0., 0., 0. + *,2350., .37925,2341., 340., 0., 0., 0. + *,2350., .39000,2341., 341., 0., 0., 0. + *,2350., .42050,2340.,-120., 110., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=703,720)/ + * 2350., .45100,2340.,-120., 220., 0., 0. + *,2350., .48150,2340.,-120., 111., 0., 0. + *,2350., .51200,2340.,-120., 221., 0., 0. + *,2350., .54250,2340.,-121., 110., 0., 0. + *,2350., .57300,2340.,-121., 220., 0., 0. + *,2350., .60350,2340.,-121., 111., 0., 0. + *,2350., .63400,2340.,-121., 221., 0., 0. + *,2350., .66450,2341.,-120., 110., 0., 0. + *,2350., .69500,2341.,-120., 220., 0., 0. + *,2350., .72550,2341.,-120., 111., 0., 0. + *,2350., .75600,2341.,-120., 221., 0., 0. + *,2350., .78650,2341.,-121., 110., 0., 0. + *,2350., .81700,2341.,-121., 220., 0., 0. + *,2350., .84750,2341.,-121., 111., 0., 0. + *,2350., .87800,2341.,-121., 221., 0., 0. + *,2350., .89325,2340.,-130., 230., 0., 0. + *,2350., .90850,2340.,-130., 231., 0., 0. + *,2350., .92375,2340.,-131., 230., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=721,738)/ + * 2350., .93900,2340.,-131., 231., 0., 0. + *,2350., .95425,2341.,-130., 230., 0., 0. + *,2350., .96950,2341.,-130., 231., 0., 0. + *,2350., .98475,2341.,-131., 230., 0., 0. + *,2350.,1.00000,2341.,-131., 231., 0., 0. + *,3150., .06000, 12., -11.,3140., 0., 0. + *,3150., .12000, 12., -11.,1341., 0., 0. + *,3150., .18000, 14., -13.,3140., 0., 0. + *,3150., .24000, 14., -13.,1341., 0., 0. + *,3150., .25500, 16., -15.,3140., 0., 0. + *,3150., .27000, 16., -15.,1341., 0., 0. + *,3150., .28925,3140.,-120., 0., 0., 0. + *,3150., .30850,3140.,-121., 0., 0., 0. + *,3150., .32775,1341.,-120., 0., 0., 0. + *,3150., .34700,1341.,-121., 0., 0., 0. + *,3150., .35775,3140., 340., 0., 0., 0. + *,3150., .36850,3140., 341., 0., 0., 0. + *,3150., .37925,1341., 340., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=739,756)/ + * 3150., .39000,1341., 341., 0., 0., 0. + *,3150., .42050,3140.,-120., 110., 0., 0. + *,3150., .45100,3140.,-120., 220., 0., 0. + *,3150., .48150,3140.,-120., 111., 0., 0. + *,3150., .51200,3140.,-120., 221., 0., 0. + *,3150., .54250,3140.,-121., 110., 0., 0. + *,3150., .57300,3140.,-121., 220., 0., 0. + *,3150., .60350,3140.,-121., 111., 0., 0. + *,3150., .63400,3140.,-121., 221., 0., 0. + *,3150., .66450,1341.,-120., 110., 0., 0. + *,3150., .69500,1341.,-120., 220., 0., 0. + *,3150., .72550,1341.,-120., 111., 0., 0. + *,3150., .75600,1341.,-120., 221., 0., 0. + *,3150., .78650,1341.,-121., 110., 0., 0. + *,3150., .81700,1341.,-121., 220., 0., 0. + *,3150., .84750,1341.,-121., 111., 0., 0. + *,3150., .87800,1341.,-121., 221., 0., 0. + *,3150., .89325,3140.,-130., 230., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=757,774)/ + * 3150., .90850,3140.,-130., 231., 0., 0. + *,3150., .92375,3140.,-131., 230., 0., 0. + *,3150., .93900,3140.,-131., 231., 0., 0. + *,3150., .95425,1341.,-130., 230., 0., 0. + *,3150., .96950,1341.,-130., 231., 0., 0. + *,3150., .98475,1341.,-131., 230., 0., 0. + *,3150.,1.00000,1341.,-131., 231., 0., 0. + *,3250., .06000, 12., -11.,3240., 0., 0. + *,3250., .12000, 12., -11.,2341., 0., 0. + *,3250., .18000, 14., -13.,3240., 0., 0. + *,3250., .24000, 14., -13.,2341., 0., 0. + *,3250., .25500, 16., -15.,3240., 0., 0. + *,3250., .27000, 16., -15.,2341., 0., 0. + *,3250., .28925,3240.,-120., 0., 0., 0. + *,3250., .30850,3240.,-121., 0., 0., 0. + *,3250., .32775,2341.,-120., 0., 0., 0. + *,3250., .34700,2341.,-121., 0., 0., 0. + *,3250., .35775,3240., 340., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=775,792)/ + * 3250., .36850,3240., 341., 0., 0., 0. + *,3250., .37925,2341., 340., 0., 0., 0. + *,3250., .39000,2341., 341., 0., 0., 0. + *,3250., .42050,3240.,-120., 110., 0., 0. + *,3250., .45100,3240.,-120., 220., 0., 0. + *,3250., .48150,3240.,-120., 111., 0., 0. + *,3250., .51200,3240.,-120., 221., 0., 0. + *,3250., .54250,3240.,-121., 110., 0., 0. + *,3250., .57300,3240.,-121., 220., 0., 0. + *,3250., .60350,3240.,-121., 111., 0., 0. + *,3250., .63400,3240.,-121., 221., 0., 0. + *,3250., .66450,2341.,-120., 110., 0., 0. + *,3250., .69500,2341.,-120., 220., 0., 0. + *,3250., .72550,2341.,-120., 111., 0., 0. + *,3250., .75600,2341.,-120., 221., 0., 0. + *,3250., .78650,2341.,-121., 110., 0., 0. + *,3250., .81700,2341.,-121., 220., 0., 0. + *,3250., .84750,2341.,-121., 111., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=793,810)/ + * 3250., .87800,2341.,-121., 221., 0., 0. + *,3250., .89325,3240.,-130., 230., 0., 0. + *,3250., .90850,3240.,-130., 231., 0., 0. + *,3250., .92375,3240.,-131., 230., 0., 0. + *,3250., .93900,3240.,-131., 231., 0., 0. + *,3250., .95425,2341.,-130., 230., 0., 0. + *,3250., .96950,2341.,-130., 231., 0., 0. + *,3250., .98475,2341.,-131., 230., 0., 0. + *,3250.,1.00000,2341.,-131., 231., 0., 0. + *,3350., .06000, 12., -11.,3340., 0., 0. + *,3350., .12000, 12., -11.,3341., 0., 0. + *,3350., .18000, 14., -13.,3340., 0., 0. + *,3350., .24000, 14., -13.,3341., 0., 0. + *,3350., .25500, 16., -15.,3340., 0., 0. + *,3350., .27000, 16., -15.,3341., 0., 0. + *,3350., .28925,3340.,-120., 0., 0., 0. + *,3350., .30850,3340.,-121., 0., 0., 0. + *,3350., .32775,3341.,-120., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=811,828)/ + * 3350., .34700,3341.,-121., 0., 0., 0. + *,3350., .35775,3340., 340., 0., 0., 0. + *,3350., .36850,3340., 341., 0., 0., 0. + *,3350., .37925,3341., 340., 0., 0., 0. + *,3350., .39000,3341., 341., 0., 0., 0. + *,3350., .42050,3340.,-120., 110., 0., 0. + *,3350., .45100,3340.,-120., 220., 0., 0. + *,3350., .48150,3340.,-120., 111., 0., 0. + *,3350., .51200,3340.,-120., 221., 0., 0. + *,3350., .54250,3340.,-121., 110., 0., 0. + *,3350., .57300,3340.,-121., 220., 0., 0. + *,3350., .60350,3340.,-121., 111., 0., 0. + *,3350., .63400,3340.,-121., 221., 0., 0. + *,3350., .66450,3341.,-120., 110., 0., 0. + *,3350., .69500,3341.,-120., 220., 0., 0. + *,3350., .72550,3341.,-120., 111., 0., 0. + *,3350., .75600,3341.,-120., 221., 0., 0. + *,3350., .78650,3341.,-121., 110., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=829,846)/ + * 3350., .81700,3341.,-121., 220., 0., 0. + *,3350., .84750,3341.,-121., 111., 0., 0. + *,3350., .87800,3341.,-121., 221., 0., 0. + *,3350., .89325,3340.,-130., 230., 0., 0. + *,3350., .90850,3340.,-130., 231., 0., 0. + *,3350., .92375,3340.,-131., 230., 0., 0. + *,3350., .93900,3340.,-131., 231., 0., 0. + *,3350., .95425,3341.,-130., 230., 0., 0. + *,3350., .96950,3341.,-130., 231., 0., 0. + *,3350., .98475,3341.,-131., 230., 0., 0. + *,3350.,1.00000,3341.,-131., 231., 0., 0. + *,1160., .33300, 1., -2.,1500., 0., 0. + *,1160., .66700, 4., -3.,1500., 0., 0. + *,1160., .77800, -12., 11.,1500., 0., 0. + *,1160., .88900, -14., 13.,1500., 0., 0. + *,1160.,1.00000, -16., 15.,1500., 0., 0. + *,1260., .33300, 1., -2.,2500., 0., 0. + *,1260., .66700, 4., -3.,2500., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=847,864)/ + * 1260., .77800, -12., 11.,2500., 0., 0. + *,1260., .88900, -14., 13.,2500., 0., 0. + *,1260.,1.00000, -16., 15.,2500., 0., 0. + *,2260., .33300, 1., -2.,2500., 0., 0. + *,2260., .66700, 4., -3.,2500., 0., 0. + *,2260., .77800, -12., 11.,2500., 0., 0. + *,2260., .88900, -14., 13.,2500., 0., 0. + *,2260.,1.00000, -16., 15.,2500., 0., 0. + *,2160., .33300, 1., -2.,1500., 0., 0. + *,2160., .66700, 4., -3.,1500., 0., 0. + *,2160., .77800, -12., 11.,1500., 0., 0. + *,2160., .88900, -14., 13.,1500., 0., 0. + *,2160.,1.00000, -16., 15.,1500., 0., 0. + *,1360., .33300, 1., -2.,3500., 0., 0. + *,1360., .66700, 4., -3.,3500., 0., 0. + *,1360., .77800, -12., 11.,3500., 0., 0. + *,1360., .88900, -14., 13.,3500., 0., 0. + *,1360.,1.00000, -16., 15.,3500., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=865,882)/ + * 2360., .33300, 1., -2.,3500., 0., 0. + *,2360., .66700, 4., -3.,3500., 0., 0. + *,2360., .77800, -12., 11.,3500., 0., 0. + *,2360., .88900, -14., 13.,3500., 0., 0. + *,2360.,1.00000, -16., 15.,3500., 0., 0. + *,3360., .33300, 1., -2.,3500., 0., 0. + *,3360., .66700, 4., -3.,3500., 0., 0. + *,3360., .77800, -12., 11.,3500., 0., 0. + *,3360., .88900, -14., 13.,3500., 0., 0. + *,3360.,1.00000, -16., 15.,3500., 0., 0. + *,1151.,1.00000,1150., 10., 0., 0., 0. + *,1251.,1.00000,1250., 10., 0., 0., 0. + *,2251.,1.00000,2250., 10., 0., 0., 0. + *,1351.,1.00000,1350., 10., 0., 0., 0. + *,2351.,1.00000,2350., 10., 0., 0., 0. + *,3351.,1.00000,3350., 10., 0., 0., 0. + *,1161.,1.00000,1160., 10., 0., 0., 0. + *,1261.,1.00000,1260., 10., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=883,886)/ + * 2261.,1.00000,2260., 10., 0., 0., 0. + *,1361.,1.00000,1360., 10., 0., 0., 0. + *,2361.,1.00000,2360., 10., 0., 0., 0. + *,3361.,1.00000,3360., 10., 0., 0., 0./ +C *--------------------------------------------- +C * DELTA++ RESONANCES +C *--------------------------------------------- + DATA ((DECTAB(I,J),I=1,7),J=887,900)/ +C *--DL++(1620)--------------------------------- + * 1112., .30000,1120., 120., 0., 0., 0. + *,1112., .66000,1111., 110., 0., 0., 0. + *,1112., .90000,1121., 120., 0., 0., 0. + *,1112.,1.00000,1120., 120., 110., 0., 0. +C *--DL++(1700)--------------------------------- + *,1113., .15000,1120., 120., 0., 0., 0. + *,1113., .51000,1111., 110., 0., 0., 0. + *,1113., .75000,1121., 120., 0., 0., 0. + *,1113.,1.00000,1120., 120., 110., 0., 0. +C *--DL++(1925)--------------------------------- + *,1114., .28000,1120., 120., 0., 0., 0. + *,1114., .40600,1111., 110., 0., 0., 0. + *,1114., .49000,1121., 120., 0., 0., 0. + *,1114., .69000,1120., 121., 0., 0., 0. + *,1114., .70000,1130., 130., 0., 0., 0. + *,1114.,1.00000,1122., 120., 0., 0., 0./ +C *--------------------------------------------- +C * DELTA- RESONANCES +C *--------------------------------------------- + DATA ((DECTAB(I,J),I=1,7),J=901,914)/ +C *--DL-(1620)---------------------------------- + * 2222., .30000,1220.,-120., 0., 0., 0. + *,2222., .66000,2221., 110., 0., 0., 0. + *,2222., .90000,1221.,-120., 0., 0., 0. + *,2222.,1.00000,1220., 110.,-120., 0., 0. +C *--DL-(1700)---------------------------------- + *,2223., .15000,1220.,-120., 0., 0., 0. + *,2223., .51000,2221., 110., 0., 0., 0. + *,2223., .75000,1221.,-120., 0., 0., 0. + *,2223.,1.00000,1220., 110.,-120., 0., 0. +C *--DL-(1925)---------------------------------- + *,2224., .28000,1220.,-120., 0., 0., 0. + *,2224., .40600,2221., 110., 0., 0., 0. + *,2224., .49000,1221.,-120., 0., 0., 0. + *,2224., .69000,1220.,-121., 0., 0., 0. + *,2224., .70000,2230., 230., 0., 0., 0. + *,2224.,1.00000,1222.,-120., 0., 0., 0./ +C *--------------------------------------------- +C * N*+ RESONANCES + DELTA+ RESONANCES +C *--------------------------------------------- + DATA ((DECTAB(I,J),I=1,7),J=915,931)/ +C *--N*+(1440)---------------------------------- + * 1122., .20000,1120., 110., 0., 0., 0. + *,1122., .60000,1220., 120., 0., 0., 0. + *,1122., .68000,1111.,-120., 0., 0., 0. + *,1122., .73000,1121., 110., 0., 0., 0. + *,1122., .76000,1221., 120., 0., 0., 0. + *,1122., .84000,1120., 120.,-120., 0., 0. + *,1122., .87000,1120., 110., 110., 0., 0. + *,1122.,1.00000,1220., 120., 110., 0., 0. +C *--N*+(1530)---------------------------------- + *,1123., .17000,1120., 110., 0., 0., 0. + *,1123., .51000,1220., 120., 0., 0., 0. + *,1123., .57000,1111.,-120., 0., 0., 0. + *,1123., .61000,1121., 110., 0., 0., 0. + *,1123., .63000,1221., 120., 0., 0., 0. + *,1123., .67000,1120., 120.,-120., 0., 0. + *,1123., .68000,1120., 110., 110., 0., 0. + *,1123., .75000,1220., 120., 110., 0., 0. + *,1123.,1.00000,1120., 220., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=932,948)/ +C *--DL+(1620)---------------------------------- + * 1124., .20000,1120., 110., 0., 0., 0. + *,1124., .30000,1220., 120., 0., 0., 0. + *,1124., .54000,1111.,-120., 0., 0., 0. + *,1124., .58000,1121., 110., 0., 0., 0. + *,1124., .90000,1221., 120., 0., 0., 0. + *,1124., .96000,1120., 120.,-120., 0., 0. + *,1124.,1.00000,1220., 120., 110., 0., 0. +C *--N*+(1665)---------------------------------- + *,1125., .16700,1120., 110., 0., 0., 0. + *,1125., .49970,1220., 120., 0., 0., 0. + *,1125., .62470,1111.,-120., 0., 0., 0. + *,1125., .70800,1121., 110., 0., 0., 0. + *,1125., .74970,1221., 120., 0., 0., 0. + *,1125., .82080,1120., 120.,-120., 0., 0. + *,1125., .85190,1120., 110., 110., 0., 0. + *,1125., .96300,1220., 120., 110., 0., 0. + *,1125., .97300,1120., 220., 0., 0., 0. + *,1125.,1.00000,2130., 130., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=949,955)/ +C *--DL+(1700)---------------------------------- + * 1126., .10000,1120., 110., 0., 0., 0. + *,1126., .15000,1220., 120., 0., 0., 0. + *,1126., .39000,1111.,-120., 0., 0., 0. + *,1126., .43000,1121., 110., 0., 0., 0. + *,1126., .75000,1221., 120., 0., 0., 0. + *,1126., .91500,1120., 120.,-120., 0., 0. + *,1126.,1.00000,1220., 120., 110., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=956,969)/ +C *--N*+(1710)---------------------------------- + * 1127., .04430,1120., 110., 0., 0., 0. + *,1127., .13290,1220., 120., 0., 0., 0. + *,1127., .23790,1111.,-120., 0., 0., 0. + *,1127., .30790,1121., 110., 0., 0., 0. + *,1127., .34290,1221., 120., 0., 0., 0. + *,1127., .41190,1120., 120.,-120., 0., 0. + *,1127., .48090,1120., 110., 110., 0., 0. + *,1127., .54990,1220., 120., 110., 0., 0. + *,1127., .66070,1120., 220., 0., 0., 0. + *,1127., .72800,2130., 130., 0., 0., 0. + *,1127., .74930,1230., 130., 0., 0., 0. + *,1127., .76000,1130., 230., 0., 0., 0. + *,1127., .84000,1120., 111., 0., 0., 0. + *,1127.,1.00000,1220., 121., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=970,980)/ +C *--DL+(1925)---------------------------------- + * 1128., .18700,1120., 110., 0., 0., 0. + *,1128., .28000,1220., 120., 0., 0., 0. + *,1128., .36400,1111.,-120., 0., 0., 0. + *,1128., .37800,1121., 110., 0., 0., 0. + *,1128., .49000,1221., 120., 0., 0., 0. + *,1128., .62300,1120., 111., 0., 0., 0. + *,1128., .69000,1220., 121., 0., 0., 0. + *,1128., .69350,1130., 230., 0., 0., 0. + *,1128., .69900,1230., 130., 0., 0., 0. + *,1128., .89900,1122., 110., 0., 0., 0. + *,1128.,1.00000,1222., 120., 0., 0., 0./ +C *--------------------------------------------- +C * N*0 RESONANCES + DELTA0 RESONANCES +C *--------------------------------------------- + DATA ((DECTAB(I,J),I=1,7),J=981,997)/ +C *----------N*0(1440)-------------------------- + * 1222., .20000,1220., 110., 0., 0., 0. + *,1222., .60000,1120.,-120., 0., 0., 0. + *,1222., .68000,2221., 120., 0., 0., 0. + *,1222., .73000,1221., 110., 0., 0., 0. + *,1222., .76000,1121.,-120., 0., 0., 0. + *,1222., .84000,1220., 120.,-120., 0., 0. + *,1222., .87000,1220., 110., 110., 0., 0. + *,1222.,1.00000,1120.,-120., 110., 0., 0. +C *----------N*0(1530)-------------------------- + *,1223., .17000,1220., 110., 0., 0., 0. + *,1223., .51000,1120.,-120., 0., 0., 0. + *,1223., .57000,2221., 120., 0., 0., 0. + *,1223., .61000,1221., 110., 0., 0., 0. + *,1223., .63000,1121.,-120., 0., 0., 0. + *,1223., .67000,1220., 120.,-120., 0., 0. + *,1223., .68000,1220., 110., 110., 0., 0. + *,1223., .75000,1120.,-120., 110., 0., 0. + *,1223.,1.00000,1220., 220., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=998,1014)/ +C *----------DL0(1620)-------------------------- + * 1224., .20000,1220., 110., 0., 0., 0. + *,1224., .30000,1120.,-120., 0., 0., 0. + *,1224., .54000,2221., 120., 0., 0., 0. + *,1224., .58000,1221., 110., 0., 0., 0. + *,1224., .90000,1121.,-120., 0., 0., 0. + *,1224., .96500,1220., 120.,-120., 0., 0. + *,1224.,1.00000,1120.,-120., 110., 0., 0. +C *----------N*0(1665)-------------------------- + *,1225., .16700,1220., 110., 0., 0., 0. + *,1225., .49970,1120.,-120., 0., 0., 0. + *,1225., .62470,2221., 120., 0., 0., 0. + *,1225., .70800,1221., 110., 0., 0., 0. + *,1225., .74970,1121.,-120., 0., 0., 0. + *,1225., .82080,1220., 120.,-120., 0., 0. + *,1225., .85190,1220., 110., 110., 0., 0. + *,1225., .96300,1120.,-120., 110., 0., 0. + *,1225., .97300,1220., 220., 0., 0., 0. + *,1225.,1.00000,2130., 230., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=1015,1021)/ +C *----------DL0(1700)-------------------------- + * 1226., .10000,1220., 110., 0., 0., 0. + *,1226., .15000,1120.,-120., 0., 0., 0. + *,1226., .39000,2221., 120., 0., 0., 0. + *,1226., .43000,1221., 110., 0., 0., 0. + *,1226., .75000,1121.,-120., 0., 0., 0. + *,1226., .91500,1220., 120.,-120., 0., 0. + *,1226.,1.00000,1120.,-120., 110., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=1022,1035)/ +C *----------N*0(1710)-------------------------- + * 1227., .04430,1220., 110., 0., 0., 0. + *,1227., .13290,1120.,-120., 0., 0., 0. + *,1227., .23790,2221., 120., 0., 0., 0. + *,1227., .30790,1221., 110., 0., 0., 0. + *,1227., .34290,1121.,-120., 0., 0., 0. + *,1227., .41190,1220., 120.,-120., 0., 0. + *,1227., .48090,1220., 110., 110., 0., 0. + *,1227., .54990,1120.,-120., 110., 0., 0. + *,1227., .66070,1220., 220., 0., 0., 0. + *,1227., .72800,2130., 230., 0., 0., 0. + *,1227., .73870,1230., 230., 0., 0., 0. + *,1227., .76000,2230., 130., 0., 0., 0. + *,1227., .92000,1120.,-121., 0., 0., 0. + *,1227.,1.00000,1220., 111., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=1036,1046)/ +C *----------DL0(1925)-------------------------- + * 1228., .18700,1220., 110., 0., 0., 0. + *,1228., .28000,1120.,-120., 0., 0., 0. + *,1228., .36400,2221., 120., 0., 0., 0. + *,1228., .37800,1221., 110., 0., 0., 0. + *,1228., .49000,1121.,-120., 0., 0., 0. + *,1228., .55700,1220., 111., 0., 0., 0. + *,1228., .69000,1120.,-121., 0., 0., 0. + *,1228., .69350,2230., 130., 0., 0., 0. + *,1228., .70000,1230., 230., 0., 0., 0. + *,1228., .80000,1122.,-120., 0., 0., 0. + *,1228.,1.00000,1222., 110., 0., 0., 0./ +C *--------------------------------------------- +C * LAMBDA RESONANCES + SIGMA0 RESONANCES +C *--------------------------------------------- + DATA ((DECTAB(I,J),I=1,7),J=1047,1059)/ +C *----------LAMBDA(1405)----------------------- + * 1233., .33000,1230., 110., 0., 0., 0. + *,1233., .66000,2230., 120., 0., 0., 0. + *,1233.,1.00000,1130.,-120., 0., 0., 0. +C *----------LAMBDA(1520)----------------------- + *,1234., .22500,1120.,-130., 0., 0., 0. + *,1234., .48000,1220.,-230., 0., 0., 0. + *,1234., .62000,1230., 110., 0., 0., 0. + *,1234., .76000,2230., 120., 0., 0., 0. + *,1234., .90000,1130.,-120., 0., 0., 0. + *,1234., .96000,2130., 120.,-120., 0., 0. + *,1234., .99000,2130., 110., 110., 0., 0. + *,1234., .99330,1130.,-120., 110., 0., 0. + *,1234., .99660,2230., 120., 110., 0., 0. + *,1234.,1.00000,1230., 120.,-120., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=1060,1075)/ +C *----------LAMBDA(1645)----------------------- + * 1235., .10000,1120.,-130., 0., 0., 0. + *,1235., .20000,1220.,-230., 0., 0., 0. + *,1235., .35000,1230., 110., 0., 0., 0. + *,1235., .50000,2230., 120., 0., 0., 0. + *,1235., .65000,1130.,-120., 0., 0., 0. + *,1235., .75000,2130., 120.,-120., 0., 0. + *,1235., .80000,2130., 110., 110., 0., 0. + *,1235., .84500,1130.,-120., 110., 0., 0. + *,1235., .89000,2230., 120., 110., 0., 0. + *,1235., .93500,1230., 120.,-120., 0., 0. + *,1235.,1.00000,2130., 220., 0., 0., 0. +C *----------SIGMA0(1665)----------------------- + *,1236., .10000,1120.,-130., 0., 0., 0. + *,1236., .20000,1220.,-230., 0., 0., 0. + *,1236., .40000,2230., 120., 0., 0., 0. + *,1236., .60000,1130.,-120., 0., 0., 0. + *,1236.,1.00000,2130., 110., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=1076,1084)/ +C *----------SIGMA0(1776)----------------------- + * 1237., .17500,1120.,-130., 0., 0., 0. + *,1237., .35000,1220.,-230., 0., 0., 0. + *,1237., .38750,2230., 120., 0., 0., 0. + *,1237., .42500,1130.,-120., 0., 0., 0. + *,1237., .57500,2130., 110., 0., 0., 0. + *,1237., .60000,2231., 120., 0., 0., 0. + *,1237., .62500,1131.,-120., 0., 0., 0. + *,1237., .75000,1234., 110., 0., 0., 0. + *,1237.,1.00000,1230., 220., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=1085,1094)/ +C *----------LAMBDA(1845)----------------------- + * 1238., .17000,1120.,-130., 0., 0., 0. + *,1238., .34000,1220.,-230., 0., 0., 0. + *,1238., .44000,1230., 110., 0., 0., 0. + *,1238., .54000,2230., 120., 0., 0., 0. + *,1238., .64000,1130.,-120., 0., 0., 0. + *,1238., .70000,1231., 110., 0., 0., 0. + *,1238., .76000,2231., 120., 0., 0., 0. + *,1238., .82000,1131.,-120., 0., 0., 0. + *,1238., .91000,1120.,-131., 0., 0., 0. + *,1238.,1.00000,1220.,-231., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=1095,1106)/ +C *----------SIGMA0(1930)----------------------- + * 1239., .07500,1120.,-130., 0., 0., 0. + *,1239., .15000,1220.,-230., 0., 0., 0. + *,1239., .20000,1121.,-130., 0., 0., 0. + *,1239., .25000,1221.,-230., 0., 0., 0. + *,1239., .32500,1120.,-131., 0., 0., 0. + *,1239., .40000,1220.,-231., 0., 0., 0. + *,1239., .47500,2230., 120., 0., 0., 0. + *,1239., .55000,1130.,-120., 0., 0., 0. + *,1239., .70000,2130., 110., 0., 0., 0. + *,1239., .77500,2231., 120., 0., 0., 0. + *,1239., .85000,1131.,-120., 0., 0., 0. + *,1239.,1.00000,1234., 110., 0., 0., 0./ +C *--------------------------------------------- +C * SIGMA+ RESONANCES +C *--------------------------------------------- + DATA ((DECTAB(I,J),I=1,7),J=1107,1118)/ +C *----------SIGMA+(1665)----------------------- + * 1132., .20000,1120.,-230., 0., 0., 0. + *,1132., .40000,1130., 110., 0., 0., 0. + *,1132., .60000,1230., 120., 0., 0., 0. + *,1132.,1.00000,2130., 120., 0., 0., 0. +C *----------SIGMA+(1776)----------------------- + *,1133., .35000,1120.,-230., 0., 0., 0. + *,1133., .38750,1130., 110., 0., 0., 0. + *,1133., .42500,1230., 120., 0., 0., 0. + *,1133., .57500,2130., 120., 0., 0., 0. + *,1133., .60000,1131., 110., 0., 0., 0. + *,1133., .62500,1231., 120., 0., 0., 0. + *,1133., .75000,1234., 120., 0., 0., 0. + *,1133.,1.00000,1130., 220., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=1119,1128)/ +C *----------SIGMA+(1930)----------------------- + * 1134., .15000,1120.,-230., 0., 0., 0. + *,1134., .22500,1111.,-130., 0., 0., 0. + *,1134., .25000,1121.,-230., 0., 0., 0. + *,1134., .40000,1120.,-231., 0., 0., 0. + *,1134., .47500,1130., 110., 0., 0., 0. + *,1134., .55000,1230., 120., 0., 0., 0. + *,1134., .70000,2130., 120., 0., 0., 0. + *,1134., .77500,1131., 110., 0., 0., 0. + *,1134., .85000,1231., 120., 0., 0., 0. + *,1134.,1.00000,1234., 120., 0., 0., 0./ +C *--------------------------------------------- +C * SIGMA- RESONANCES +C *--------------------------------------------- + DATA ((DECTAB(I,J),I=1,7),J=1129,1140)/ +C *----------SIGMA-(1665)----------------------- + * 2232., .20000,1220.,-130., 0., 0., 0. + *,2232., .40000,2230., 110., 0., 0., 0. + *,2232., .60000,1230.,-120., 0., 0., 0. + *,2232.,1.00000,2130.,-120., 0., 0., 0. +C *----------SIGMA-(1776)----------------------- + *,2233., .35000,1220.,-130., 0., 0., 0. + *,2233., .38750,2230., 110., 0., 0., 0. + *,2233., .42500,1230.,-120., 0., 0., 0. + *,2233., .57500,2130.,-120., 0., 0., 0. + *,2233., .60000,2231., 110., 0., 0., 0. + *,2233., .62500,1231.,-120., 0., 0., 0. + *,2233., .75000,1234.,-120., 0., 0., 0. + *,2233.,1.00000,2230., 220., 0., 0., 0./ + DATA ((DECTAB(I,J),I=1,7),J=1141,1150)/ +C *----------SIGMA-(1930)----------------------- + * 2234., .15000,1220.,-130., 0., 0., 0. + *,2234., .17500,1221.,-130., 0., 0., 0. + *,2234., .25000,2221.,-230., 0., 0., 0. + *,2234., .40000,1220.,-131., 0., 0., 0. + *,2234., .47500,2230., 110., 0., 0., 0. + *,2234., .55000,1230.,-120., 0., 0., 0. + *,2234., .70000,2130.,-120., 0., 0., 0. + *,2234., .77500,2231., 110., 0., 0., 0. + *,2234., .85000,1231.,-120., 0., 0., 0. + *,2234.,1.00000,1234.,-120., 0., 0., 0./ +C *--------------------------------------------- +C * ADDITIONAL MESONRESONANCES +C *--------------------------------------------- + DATA ((DECTAB(I,J),I=1,7),J=1151,1159)/ +C *-----------F0(975)--------------------------- + * 332., .50000, 120.,-120., 0., 0., 0. + *, 332., .75000, 110., 110., 0., 0., 0. + *, 332., .87500, 130.,-130., 0., 0., 0. + *, 332.,1.00000, 230.,-230., 0., 0., 0. +C *-----------A0(980)--------------------------- + *, 112., .56000, 110., 220., 0., 0., 0. + *, 112., .78000, 130.,-130., 0., 0., 0. + *, 112.,1.00000, 230.,-230., 0., 0., 0. +C *-----------A+(980)--------------------------- + *, 122., .60000, 120., 220., 0., 0., 0. + *, 122.,1.00000, 130.,-230., 0., 0., 0./ +C *--------------------------------------------- +C * WEAK BARYON DECAYS +C *--------------------------------------------- + DATA ((DECTAB(I,J),I=1,7),J=1160,1169)/ +C *-----------LAMBDA(1116)---------------------- + * 2130.,0.64200,1120.,-120., 0., 0., 0. + *,2130.,1.00000,1220., 110., 0., 0., 0. +C *-----------SIGMA+(1180)---------------------- + *,1130.,0.51580,1120., 110., 0., 0., 0. + *,1130.,1.00000,1220., 120., 0., 0., 0. +C *-----------SIGMA-(1180)---------------------- + *,2230.,1.00000,1220.,-120., 0., 0., 0. +C *---------KASKADE-(1360)---------------------- + *,2330.,1.00000,2130.,-120., 0., 0., 0. +C *---------KASKADE0(1360)---------------------- + *,1330.,1.00000,2130., 110., 0., 0., 0. +C *---------OMEGA-(1680)------------------------ + *,3331.,0.68000,2130.,-130., 0., 0., 0. + *,3331.,0.82000,1330.,-120., 0., 0., 0. + *,3331.,1.00000,2330., 110., 0., 0., 0./ +C *--------------------------------------------- +C * WEAK MESON DECAYS +C *--------------------------------------------- + DATA ((DECTAB(I,J),I=1,7),J=1170,1171)/ +C *-----------K0S(975)-------------------------- + * 20., .68610, 120.,-120., 0., 0., 0. + *, 20.,1.00000, 110., 110., 0., 0., 0./ +C *--------------------------------------------- + DATA ALFA /0.00729735/, GF /1.16570E-5/, SIN2W /.215/ +C SINW = SQRT(SIN2W), COSW=SQRT(1.-SIN2W) + DATA SINW /.463681/,COSW /.886002/ + SAVE +C----------------------------------------------------------------------- + IF ( IENTRO .EQ. 1 ) THEN + CALL JCENTR(3,6,3,1) + ELSEIF ( IENTRO .EQ. 2 ) THEN + CALL JCENTD + ENDIF + CALL JCENTP + + CALL IDRESI + +C DETERMINE WMASS2,WGAM2 +C ---------------------- + AMW=SQRT(PI*ALFA/(.9304*1.41421356*GF))/SINW + WMASS2=AMW + CALL IDMASS(5,AMLEP5) + CALL IDMASS(6,AMLEP6) + IF ( AMLEP5+AMLEP6 .GT. AMW ) THEN + NGAM=9 + ELSE + NGAM=12 + ENDIF + WGAM2=GF*AMW**3/(6.*PI*1.41421356)*NGAM + + IRD=0 + DO 1 I=1,MXLOOK + LOOK(I)=0 + 1 CONTINUE + DO 2 I=1,MXDKY + MODE(1,I)=0 + MODE(2,I)=0 + MODE(3,I)=0 + MODE(4,I)=0 + MODE(5,I)=0 + CBR(I)=0. + 2 CONTINUE + NODCAY=.FALSE. + NOETA=.FALSE. + NOPI0=.FALSE. + NONUNU=.FALSE. + NOEVOL=.FALSE. + NOHADR=.FALSE. + IF ( LPRINT ) WRITE(IFCH,10) +10 FORMAT('1',30('*')/' *',28X,'*'/ + * ' *',5X,'ISAJET DECAY TABLE',5X,'*'/ + * ' *',28X,'*'/' ',30('*')// + * 6X,'PART',18X,'DECAY MODE',19X,'CUM BR',15X,'IDENT',17X, + * 'DECAY IDENT'/) + LOOP=0 + IOLD=0 + IF ( NODCAY ) RETURN + +200 LOOP=LOOP+1 + IF ( LOOP .GT. MXDKY ) GOTO 9999 +220 CONTINUE + IMODE(1)=0 + IMODE(2)=0 + IMODE(3)=0 + IMODE(4)=0 + IMODE(5)=0 + LMODE(1)=IBLANK + LMODE(2)=IBLANK + LMODE(3)=IBLANK + LMODE(4)=IBLANK + LMODE(5)=IBLANK + IRD=IRD+1 + IF ( IRD .GT. NDECTB ) RETURN + IRES=NINT(DECTAB(1,IRD)) + BR=DECTAB(2,IRD) + IMODE(1)=NINT(DECTAB(2+1,IRD)) + IMODE(2)=NINT(DECTAB(2+2,IRD)) + IMODE(3)=NINT(DECTAB(2+3,IRD)) + IMODE(4)=NINT(DECTAB(2+4,IRD)) + IMODE(5)=NINT(DECTAB(2+5,IRD)) + IF ( NOPI0 .AND. IRES .EQ. 110 ) GOTO 220 + IF ( NOETA .AND. IRES .EQ. 220 ) GOTO 220 + IF ( IRES .EQ. IOLD ) GOTO 230 + IF ( IRES .LT. 0 .OR. IRES .GT. MXLOOK ) THEN + CALL UTSTOP('JDECIN: IRES OUT OF RANGE ') + ENDIF + LOOK(IRES)=LOOP +230 IOLD=IRES + CBR(LOOP)=BR + MODE(1,LOOP)=IMODE(1) + MODE(2,LOOP)=IMODE(2) + MODE(3,LOOP)=IMODE(3) + MODE(4,LOOP)=IMODE(4) + MODE(5,LOOP)=IMODE(5) + IF ( LPRINT ) THEN + IF ( IMODE(1) .NE. 0 ) LMODE(1)=IDLABL(IMODE(1)) + IF ( IMODE(2) .NE. 0 ) LMODE(2)=IDLABL(IMODE(2)) + IF ( IMODE(3) .NE. 0 ) LMODE(3)=IDLABL(IMODE(3)) + IF ( IMODE(4) .NE. 0 ) LMODE(4)=IDLABL(IMODE(4)) + IF ( IMODE(5) .NE. 0 ) LMODE(5)=IDLABL(IMODE(5)) + LRES=IDLABL(IRES) + WRITE(IFCH,20) LRES,(LMODE(K),K=1,5), BR,IRES,(IMODE(K),K=1,5) +20 FORMAT(6X,A5,6X,5(A5,2X),3X,F8.5,15X,I5,4X,5(I5,2X)) + ENDIF + GOTO 200 + +9999 WRITE(IFCH,*)'LOOP=', LOOP + CALL UTSTOP('JDECIN: LOOP > MXDKY ') + RETURN + END +C======================================================================= + + SUBROUTINE JESTPR(IC1,IC2,AM,IER) + +C----------------------------------------------------------------------- +C PROCESSES STRINGS +C----------------------------------------------------------------------- + PARAMETER (KOLLMX=2500) + PARAMETER (MAMX=56) + PARAMETER (MXPTL=70000) + PARAMETER (MXSTR=3000) + PARAMETER (NDEP=129) + PARAMETER (NDET=129) + PARAMETER (NFLAV=6) + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + PARAMETER (NHA=NSIX+2) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CEVT/ BIMEVT,COLEVT,EGYEVT,PHIEVT,PMXEVT + * ,KOLEVT,NEVT,NPJEVT,NTGEVT + COMMON /CKOL/ KOL + COMMON /CLEAD/ COOAV3,COOAV4,LEAD + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /COL/ BIMP,BMAX,COORD(4,KOLLMX),DISTCE(KOLLMX) + * ,QDEP(NDEP),QDET14(NDET),QDET16(NDET),QDET40(NDET) + * ,QDET99(NDET),RMPROJ,RMTARG(4),XDEP(NDEP) + * ,XDET14(NDET),XDET16(NDET),XDET40(NDET) + * ,XDET99(NDET) + * ,KOLL,LTARG,NORD(KOLLMX),NPROJ,NRPROJ(KOLLMX) + * ,NRTARG(KOLLMX),NTARG + COMMON /CPROJA/ IPROJ,ITARG,KPROJA(NHA,MAMX),KTARGA(NHA,MAMX) + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /CPZSTR/ ESTRL,PZSTRL,ISEA,ISTRL + COMMON /CSTR/ PSTR(5,MXSTR),ROTSTR(3,MXSTR),XORSTR(4,MXSTR) + * ,ICSTR(4,MXSTR),IORSTR(MXSTR),IRLSTR(MXSTR),NSTR + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + REAL STRO(NSI,NSIX+1) + INTEGER IC1(2),IC2(2),JC(NFLAV,2),JC1(NFLAV,2),JC2(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + IER=0 + +C PMAX +C ---- + CALL IDDECO(IC1,JC) + NQ=0 + DO 7 NF=1,NFLAV + NQ=NQ+JC(NF,1)-JC(NF,2) + 7 CONTINUE + IF ( ABS(NQ) .GE. 2 ) THEN + AM1MIN=PROM + ELSE + AM1MIN=PIOM + ENDIF + CALL IDDECO(IC2,JC) + NQ=0 + DO 8 NF=1,NFLAV + NQ=NQ+JC(NF,1)-JC(NF,2) + 8 CONTINUE + IF ( ABS(NQ) .GE. 2 ) THEN + AM2MIN=PROM + ELSE + AM2MIN=PIOM + ENDIF + IF ( AM .LE. AM1MIN+AM2MIN ) THEN + PMAX=AM*0.5 + ELSE + PMAX=UTPCM(AM,AM1MIN,AM2MIN) + ENDIF + +C HASTPR +C ------ + IPROJ=1 + ITARG=1 + KPROJA(2,1)=1 + KTARGA(2,1)=1 + KPROJA(3,1)=1 + KTARGA(3,1)=1 + KOL=1 + COORD(1,1)=0. + COORD(2,1)=0. + COORD(3,1)=0. + COORD(4,1)=0. + CALL IDDECO(IC1,JC1) + NPA1=0 + DO 2 N=1,NFLAV + NPA1=NPA1+JC1(N,1)+JC1(N,2) + 2 CONTINUE + CALL IDDECO(IC2,JC2) + NPA2=0 + DO 3 N=1,NFLAV + NPA2=NPA2+JC2(N,1)+JC2(N,2) + 3 CONTINUE + IF ( NPA2 .GT. NPA1 ) THEN + II=2 + ELSE + II=1 + ENDIF + IF ( NPA1 .GT. 1 .OR. NPA2 .GT. 1 ) THEN + LEAD=1 + ELSE + LEAD=0 + ENDIF + + NSTR0=NSTR +17 NSTR=NSTR0 + + DO 15 N=1,NSI + STRO(N,1)=0. + STRO(N,2)=0. + STRO(N,3)=0. +15 CONTINUE + STRO(3,II)=AM*0.5 + STRO(4,II)=AM*0.5 + STRO(5,II)=IC1(1) + STRO(6,II)=IC1(2) + STRO(3,3-II)=-AM*0.5 + STRO(4,3-II)=AM*0.5 + STRO(5,3-II)=IC2(1) + STRO(6,3-II)=IC2(2) + + PZSTRL=STRO(3,1) + ESTRL=STRO(4,1) + PZSTRL=PZSTRL+STRO(3,2) + ESTRL=ESTRL+STRO(4,2) + ISTRL=0 + + CALL UTPAGE + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,110)('-',L=1,79),IPAGE,('-',L=1,79) +110 FORMAT(1X,79A1/1X,I5,'.PAGE ' + * ,'STRING GENERATION'/1X,79A1/) + WRITE(IFCH,105)(STRO(I,1),I=1,4),(NINT(STRO(I,1)),I=5,6) +105 FORMAT(' STR: ',4F13.5,2I8) + WRITE(IFCH,104)(STRO(I,2),I=1,4),(NINT(STRO(I,2)),I=5,6) +104 FORMAT(' ',4F13.5,2I8/) + ENDIF + + ISEA=1 + ISPLT=0 +14 CALL HASTPR(STRO,ISPLT) + IF ( ISPLT .EQ. -1 ) GOTO 9001 + IF ( ISPLT .EQ. -3 ) GOTO 9001 + IF ( ISPLT .EQ. -4 ) THEN + CALL UTSTOP('JESTPR: ISPLT=-4 ') + ENDIF + IF ( ISPLT .EQ. -5 ) GOTO 17 + IF ( ISPLT .GT. 0 ) GOTO 14 + + PMXEVT=PMAX + EGYEVT=AM + + RETURN + +9001 IER=1 + RETURN + END +C======================================================================= + + SUBROUTINE JETGEN(IER) + +C----------------------------------------------------------------------- +C GENERATES STRINGS +C----------------------------------------------------------------------- + PARAMETER (MXPTL=70000) + PARAMETER (MXSTR=3000) + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + PARAMETER (NHA=NSIX+2) + PARAMETER (MAMX=56) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CEVT/ BIMEVT,COLEVT,EGYEVT,PHIEVT,PMXEVT + * ,KOLEVT,NEVT,NPJEVT,NTGEVT + COMMON /CLEP/ ICINPU,IDSCAT + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CNTEVM/ NTEVM + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /CSTR/ PSTR(5,MXSTR),ROTSTR(3,MXSTR),XORSTR(4,MXSTR) + * ,ICSTR(4,MXSTR),IORSTR(MXSTR),IRLSTR(MXSTR),NSTR + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /PARTNR/ PEX,PEY,PEZET,PE0,PX4,PY4,SUMMAS + * ,IC4,IPTNR,JS4,NPS + + REAL TARGA(NSI,NHA,MAMX) + INTEGER ICSTRI(4,18),IC1(2),IC2(2),IC4(2) + + DATA ((ICSTRI(I,J),I=1,4),J=1,8)/ + *100000,000000,110000,000000, + *010000,000000,200000,000000, + *100000,000000,210000,100000, + *010000,000000,210000,010000, + *001000,000000,210000,001000, + *000000,100000,310000,000000, + *000000,010000,220000,000000, + *000000,001000,211000,000000/ + DATA ((ICSTRI(I,J),I=1,4),J=11,18)/ + *100000,000000,020000,000000, + *010000,000000,110000,000000, + *100000,000000,120000,100000, + *010000,000000,120000,010000, + *001000,000000,120000,001000, + *000000,100000,220000,000000, + *000000,010000,130000,000000, + *000000,001000,121000,000000/ + SAVE +C----------------------------------------------------------------------- + ISH0=ISH + IF ( ISHSUB/100 .EQ. 2 ) ISH=MOD(ISHSUB,100) + IF ( ISH .GE. 93 ) THEN + WRITE(IFCH,*)('-',L=1,79) + WRITE(IFCH,*)'STRING GENERATION. SR JETGEN.' + ENDIF + + IER=0 + + NEVT=1 + NSTR=0 + NPTL=0 + + IF ( ICINPU .GE. 1 ) THEN +3 CALL LEPEXP(XBJ,QSQ) + RNU=QSQ/(2.* PROM * XBJ) + WSQ=PROM**2 + 2.* PROM * RNU - QSQ + AMST=SQRT(WSQ) + ELEPTO=ELEPTI-RNU + COSANG=1.-QSQ/(2.*ELEPTI*ELEPTO) + IF ( ISH .GE. 93 ) THEN + WRITE(IFCH,*)'ELEPTI,ELEPTO,RNU: ',ELEPTI,ELEPTO,RNU + WRITE(IFCH,*)'XBJ,QSQ,COSANG=1-QSQ/2/ELEPTI/ELEPTO: ' + * ,XBJ,QSQ,COSANG + ENDIF + IF ( RNU .GT. ELEPTI ) THEN + IF ( ISH .GE. 93 ) WRITE(IFCH,*)'***** Q0 TOO LARGE: ',RNU + GOTO 3 + ENDIF + IF ( COSANG.GT.1. .AND. COSANG.LT.1.001 ) THEN + COSANG=1. + ELSEIF ( COSANG.LT.-1. .OR. COSANG.GT.1. ) THEN + COSANO=COSANG + IF ( COSANG .GE. 0. ) COSANG= 1. + IF ( COSANG .LT. 0. ) COSANG=-1. + IF(ISH.GE.90)THEN + CALL UTMSG('JETGEN') + WRITE(IFCH,*)'***** COSANG OUT OF RANGE' + WRITE(IFCH,*)'ELEPTI,ELEPTO,RNU: ',ELEPTI,ELEPTO,RNU + WRITE(IFCH,*)'XBJ,QSQ,COSANG=1-QSQ/2/ELEPTI/ELEPTO: ' + * ,XBJ,QSQ,COSANO + WRITE(IFCH,*)'COSANG_NEW: ',COSANG + CALL UTMSGF + ENDIF + ENDIF + ANGMUE=ACOS(COSANG) + CALL LEPTAR(XBJ,QSQ,MATARG,LATARG,IDSCAT) + ENDIF + + IF ( MATARG .GT. 0 ) THEN + CALL NUCOGE + NPTL=0 + CALL NUCINI('STR',TARGA,LATARG,MATARG,-1) + CALL NUCSTR(IER) + IF ( IER .EQ. 1 ) GOTO 99999 + ENDIF + + IF ( ICINPU .EQ. 0 ) THEN + R=RANGEN() + PS=0. + DO 1 K=1,99 + PS=PS+PROB(K) + IF ( R .LE. PS ) GOTO 2 + 1 CONTINUE + CALL UTSTOP('JETGEN: NO K FOUND ') + 2 CONTINUE + IC1(1)=ICFOR(K,1) + IC1(2)=ICFOR(K,2) + IC2(1)=ICBAC(K,1) + IC2(2)=ICBAC(K,2) + AMST=ENGY + ELSEIF ( ICINPU .GT. 0 ) THEN + CALL LEPSTR(IDSCAT,XBJ,QSQ,IDS) + IC1(1)=ICSTRI(1,IDS) + IC1(2)=ICSTRI(2,IDS) + IC2(1)=ICSTRI(3,IDS) + IC2(2)=ICSTRI(4,IDS) + ENDIF + CALL JESTPR(IC1,IC2,AMST,IER) + +99999 ISH=ISH0 + RETURN + END +C======================================================================= + + SUBROUTINE JFRADE(IER) + +C----------------------------------------------------------------------- +C PERFORMS STRING FRAGMENTATION/DECAY AND FIN. STATE INTERACTIONS +C----------------------------------------------------------------------- + PARAMETER (KOLLMX=2500) + PARAMETER (MAMX=56) + PARAMETER (MXDKY=2000) + PARAMETER (MXINDX=1000) + PARAMETER (MXLOOK=10000) + PARAMETER (MXMA=11) + PARAMETER (MXMX=6) + PARAMETER (MXPTL=70000) + PARAMETER (MXRE=100) + PARAMETER (MXSTR=3000) + PARAMETER (NDEP=129) + PARAMETER (NDET=129) + PARAMETER (NPRBMS=20) + PARAMETER (NSIX=40) + PARAMETER (NHA=NSIX+2) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CEVT/ BIMEVT,COLEVT,EGYEVT,PHIEVT,PMXEVT + * ,KOLEVT,NEVT,NPJEVT,NTGEVT + COMMON /CKOL/ KOL + COMMON /CNCE/ NCES,NCOLEX + COMMON /CNFR/ NRFRA + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /COL/ BIMP,BMAX,COORD(4,KOLLMX),DISTCE(KOLLMX) + * ,QDEP(NDEP),QDET14(NDET),QDET16(NDET),QDET40(NDET) + * ,QDET99(NDET),RMPROJ,RMTARG(4),XDEP(NDEP) + * ,XDET14(NDET),XDET16(NDET),XDET40(NDET) + * ,XDET99(NDET) + * ,KOLL,LTARG,NORD(KOLLMX),NPROJ,NRPROJ(KOLLMX) + * ,NRTARG(KOLLMX),NTARG + COMMON /CPRBMS / PRBMS(NPRBMS) + COMMON /CPROJA/ IPROJ,ITARG,KPROJA(NHA,MAMX),KTARGA(NHA,MAMX) + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /CREMA/ REMA(MXRE,MXMA),REWI(MXRE,MXMA) + * ,ICRE1(MXRE,MXMA),ICRE2(MXRE,MXMA) + * ,IDMX(MXMA,MXMX),INDX(MXINDX) + COMMON /CSTR/ PSTR(5,MXSTR),ROTSTR(3,MXSTR),XORSTR(4,MXSTR) + * ,ICSTR(4,MXSTR),IORSTR(MXSTR),IRLSTR(MXSTR),NSTR + COMMON /CTIMEL/ NTC + DOUBLE PRECISION DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /CTTAUS/ DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /C2PTL/ AMIPTL(MXPTL),RADPTL(MXPTL),IAAPTL(MXPTL) + COMMON /DIDIB/ NDIDIB + COMMON /DKYTAB/ CBR(MXDKY),LOOK(MXLOOK),MODE(5,MXDKY) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /PARTNR/ PEX,PEY,PEZET,PE0,PX4,PY4,SUMMAS + * ,IC4,IPTNR,JS4,NPS + + DOUBLE PRECISION DIFF,ZFI + REAL PSUM(5) + INTEGER IC4(2) + SAVE +C----------------------------------------------------------------------- +C INITIALIZATION +C -------------- +CDH IF ( ISH .EQ. 13 .OR. ISH .EQ. 14 ) CALL UTTIMA('*** JFRADE *** ') + IER=0 + IRET=0 + ISH0=ISH + IF ( ISHSUB/100 .EQ. 16 ) ISH=MOD(ISHSUB,100) + IF ( NEVT .NE. 1 .OR. IFRADE .EQ. 0 ) GOTO 1000 + NPTLPT=ABS(MAPROJ)+ABS(MATARG) + IF ( ICHOIC .EQ. 1 .OR. ICHOIC .EQ. 4 ) THEN + YCMMAX=LOG(EGYEVT*2.5) + ETAPRO=YCMMAX*.6667 + ETATAR=-ETAPRO + ELSE + ETAPRO=(YPJTL-YHAHA)*.6667 + ETATAR=-YHAHA*.6667 + ENDIF + DETAP=ETAPRO + DETAT=ETATAR + TPRO=COSH(DETAP) + ZPRO=SINH(DETAP) + TTAR=COSH(DETAT) + ZTAR=SINH(DETAT) + +C WRITE +C ----- + CALL UTPAGE + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,110)('-',L=1,79),IPAGE,('-',L=1,79) +110 FORMAT(1X,79A1/1X,I5,'.PAGE ' + * ,'STRINGS BEFORE RESCALING'/1X,79A1/) + DO 9 J=1,NSTR + WRITE(IFCH,109)J,(ICSTR(K,J)/100,K=1,4) + * ,SQRT(PSTR(1,J)**2+PSTR(2,J)**2),PSTR(3,J),PSTR(5,J) + * ,IRLSTR(J) +109 FORMAT(' /CSTR/',I4,3X,4I5,3(E11.3),I4) + 9 CONTINUE + ENDIF + +C STRING RESCALING +C ---------------- + IF ( ICHOIC.LE.2 .AND. NSTR.GT.1 .AND. IRESCL.EQ.1 ) THEN + PSUM(1)=0. + PSUM(2)=0. + IF ( ICHOIC .EQ. 1 ) THEN + PSUM(3)=0. + PSUM(4)=EGYEVT + ELSE + PSUM(3)=(NPJEVT-NTGEVT)*PNLLX + PSUM(4)=NPJEVT*SQRT(AMPROJ**2+PNLLX**2) + * +NTGEVT*SQRT(AMTARG**2+PNLLX**2) + ENDIF + PSUM(5)=SQRT(PSUM(4)**2-PSUM(3)**2) + CALL HRESCL(1,NSTR,PSUM,IFAIL) + IF ( IFAIL .NE. 0 ) GOTO 1001 + ENDIF + +C WRITE +C ----- + CALL UTPAGE + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,111)('-',L=1,79),IPAGE,('-',L=1,79) +111 FORMAT(/1X,79A1/1X,I5,'.PAGE ' + * ,'STRINGS AFTER RESCALING'/1X,79A1/) + DO 10 J=1,NSTR + WRITE(IFCH,109)J,(ICSTR(K,J)/100,K=1,4) + * ,SQRT(PSTR(1,J)**2+PSTR(2,J)**2),PSTR(3,J),PSTR(5,J) + * ,IRLSTR(J) +10 CONTINUE + ENDIF + +C FRAGMENTATION +C ------------- + IF ( ISHSUB/100 .EQ. 3 ) ISH=MOD(ISHSUB,100) +CDH IF ( ISH .EQ. 13 ) CALL UTTIMA(' ') + DO 3 J=1,NSTR + CALL UTPAGE + IF ( ISH .GE. 91 ) WRITE(IFCH,102)('-',L=1,79),IPAGE,J + * ,(ICSTR(K,J),K=1,4),SQRT(PSTR(1,J)**2+PSTR(2,J)**2 + * +PSTR(3,J)**2),PSTR(4,J),PSTR(5,J),('-',L=1,79) +102 FORMAT(/1X,79A1 + * /1X,I5,'.PAGE STR:',I3,4I7,3(E10.2)/1X,79A1/) + CALL JAMFRA(J,NEWEVT) + IF ( NEWEVT .EQ. 1 ) GOTO 10011 + 3 CONTINUE +CDH IF ( ISH .EQ. 13 ) CALL UTTIMA('FRAGMENTATION ') + +C PRINT /CPTL/ +C ------------ + IF ( ISHSUB/100 .EQ. 9 ) ISH=MOD(ISHSUB,100) + CALL UTPAGE + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,104)('-',L=1,79),IPAGE,('-',L=1,79) +104 FORMAT(/1X,79A1/1X,I5,'.PAGE ' + * ,'PTLS AFTER FRAGMENTATION'/1X,79A1/) + DO 18 N=1,NPTL + IF ( N.GT.NPTLPT .OR. ISTPTL(N).NE.0 ) + * WRITE(IFCH,116)IORPTL(N),JORPTL(N),N,IFRPTL(1,N),IFRPTL(2,N) + * ,IDPTL(N),PPTL(3,N),PPTL(4,N),PPTL(5,N),ISTPTL(N) +18 CONTINUE + ENDIF + +C INITIAL DECAY +C ------------- + IF ( ISHSUB/100 .EQ. 10 ) ISH=MOD(ISHSUB,100) + CALL UTPAGE +CDH IF ( ISH.EQ.13 ) CALL UTTIMA(' ') + IF ( RADIAC .GT. 0. ) THEN + TTAUS=TAUMIN + IACN=1 + ELSE + TTAUS=AINFIN + IACN=0 + ENDIF + TTP=TTAUS*TPRO + TTT=TTAUS*TTAR + ZZP=TTAUS*ZPRO + ZZT=TTAUS*ZTAR + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,119)('-',L=1,79),IPAGE,SNGL(TTAUS),('-',L=1,79) +119 FORMAT(/1X,79A1/1X,I5,'.PAGE ' + * ,'DECAY BEFORE TAU =',E10.3/1X,79A1/) + ENDIF + NP1=1 +21 NP2=NPTL + DO 5 I=NP1,NP2 + IF ( TTAUS .LE. 0.D0 ) THEN + DIFF = TIVPTL(2,I) - TTAUS + ELSE + ZFI=XORPTL(3,I)+(TIVPTL(2,I)-XORPTL(4,I))*PPTL(3,I)/PPTL(4,I) + CALL UTTAUT(SNGL(ZFI),TZFI) + DIFF = TIVPTL(2,I) - TZFI + ENDIF + IF ( DIFF .LE. 0. .OR. IACN.EQ.0 ) THEN + IF ( ISTPTL(I) .EQ. 0 ) THEN + CALL JDECA(I,IRET) + IF ( IRET .EQ. 1 ) GOTO 1001 + ENDIF + ENDIF +5 CONTINUE + NP1=NP2+1 + IF ( NP1 .LE. NPTL ) GOTO 21 +CDH IF ( ISH .EQ. 13 ) CALL UTTIMA('DECAY INI ') + +C INTERACTION AND DECAY +C --------------------- + IF ( IACN .EQ. 0 ) GOTO 5000 + CALL UTPAGE + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,118)('-',L=1,79),IPAGE,('-',L=1,79) +118 FORMAT(/1X,79A1/1X,I5,'.PAGE ' + * ,'INTERACTIONS AND DECAY'/1X,79A1/) + ENDIF + DTAUS=1./(NUMTAU-1.)*(TAUMAX-TAUMIN) + DO 23 NT=1,NUMTAU + NTC=NT + TTAUS=TAUMIN+(NT-1.)*DTAUS + TTP=TTAUS*TPRO + TTT=TTAUS*TTAR + ZZP=TTAUS*ZPRO + ZZT=TTAUS*ZTAR + IF ( IOJINT .EQ. 1 ) THEN + CALL JINTA1 + ELSEIF ( IOJINT .EQ. 2 ) THEN + CALL JINTA2 + ENDIF + TTAUS=TTAUS+DTAUS + TTP=TTAUS*TPRO + TTT=TTAUS*TTAR + ZZP=TTAUS*ZPRO + ZZT=TTAUS*ZTAR + NP1=1 +36 NP2=NPTL + DO 37 IP=NP1,NP2 + IF ( TTAUS .LE. 0.D0 ) THEN + DIFF = TIVPTL(2,IP) - TTAUS + ELSE + ZFI=XORPTL(3,IP)+(TIVPTL(2,IP)-XORPTL(4,IP)) + * *PPTL(3,IP)/PPTL(4,IP) + IF ( ZFI .LE. ZZT ) THEN + DIFF = TIVPTL(2,IP) - TTT - (ZFI-ZZT)*ZZT/TTT + ELSEIF ( ZFI .GE. ZZP ) THEN + DIFF = TIVPTL(2,IP) - TTP - (ZFI-ZZP)*ZZP/TTP + ELSE + IF ( TTAUS .LT. AINFIN ) THEN + IF ( TIVPTL(2,IP) .GE. 0. ) THEN + DIFF = TIVPTL(2,IP) + DIFF = DIFF**2 - (TTAUS**2+ZFI**2) + ELSE + DIFF = TIVPTL(2,IP) - SQRT(TTAUS**2+ZFI**2) + ENDIF + ELSE + DIFF = TIVPTL(2,IP) - TTAUS + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JFRADE') + WRITE(IFCH,*)'***** LARGE TTAUS; SET TZ=TTAUS' + WRITE(IFCH,*)'TTAUS=',TTAUS,'ZFI=',ZFI + CALL UTMSGF + ENDIF + ENDIF + ENDIF + ENDIF + + IF ( DIFF .LE. 0. ) THEN + IF ( ISTPTL(IP) .EQ. 0 ) THEN + CALL JDECA(IP,IRET) + IF ( IRET .EQ. 1 ) GOTO 1001 + ENDIF + ENDIF +37 CONTINUE + NP1=NP2+1 + IF ( NP1 .LE. NPTL ) THEN + DO 4 IP=NP1,NPTL + IAAPTL(IP)=1 + 4 CONTINUE + GOTO 36 + ENDIF +CDH IF ( ISH .EQ. 13 ) CALL UTTIMA('DECAY ') +23 CONTINUE + +C FINAL DECAY +C ----------- + CALL UTPAGE + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,120)('-',L=1,79),IPAGE,('-',L=1,79) +120 FORMAT(/1X,79A1/1X,I5,'.PAGE ' + * ,'FINAL DECAY'/1X,79A1/) + ENDIF + NBEF=NPTL +CDH N0BEF=NPTL0 + NAFT=NPTL +CDH N0AFT=NPTL0 + IF ( NCLEAN .GT. 0 ) THEN + CALL UTCLEA(NPTL0) + NAFT=NPTL +CDH N0AFT=NPTL0 + ENDIF + ISHNPT=ISH + IF ( ISHSUB/100 .EQ. 19 ) ISH=MOD(ISHSUB,100) + IF ( ISH .EQ. 22 ) THEN + WRITE(IFMT,131)NBEF,NAFT +131 FORMAT(1X,'BEF FIN DE: NBEF=',I8,4X,'NAFT=',I8) + ENDIF + ISH=ISHNPT + NP1=1 +41 NP2=NPTL + DO 42 IP=NP1,NP2 + IF ( ISTPTL(IP) .EQ. 0 ) THEN + CALL JDECA(IP,IRET) + IF ( IRET .EQ. 1 ) GOTO 1001 + ENDIF +42 CONTINUE + NP1=NP2+1 + IF ( NP1 .LE. NPTL ) THEN + DO 6 IP=NP1,NPTL + IAAPTL(IP)=1 + 6 CONTINUE + GOTO 41 + ENDIF + ISHNPT=ISH + IF ( ISHSUB/100 .EQ. 19 ) ISH=MOD(ISHSUB,100) + IF ( ISH .EQ. 22 ) THEN + WRITE(IFMT,132)NPTL +132 FORMAT(1X,'AFT FIN DE: NPTL=',I8) + ENDIF + ISH=ISHNPT +CDH IF ( ISH .EQ. 13 ) CALL UTTIMA('DECAY FIN ') + +C PRINT /CPTL/ +C ------------ + CALL UTPAGE + IF ( ISHSUB/100 .EQ. 11 ) ISH=MOD(ISHSUB,100) + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,117)('-',L=1,79),IPAGE,('-',L=1,79) +117 FORMAT(/1X,79A1/1X,I5,'.PAGE ' + * ,'PTLS AFTER PERFORMING INTERACTIONS'/1X,79A1/ + * 1X,' IOR',' JOR',4X,' N',4X,'IFR1IFR2',10X,'ID',3X, + * 5X,'PTR',7X,'PZ',4X,'MASS ','IST'/) + DO 34 N=1,NPTL + IF ( N .GT. NPTLPT .OR. ISTPTL(N) .NE. 0 ) + * WRITE(IFCH,116)IORPTL(N),JORPTL(N),N,IFRPTL(1,N),IFRPTL(2,N) + * ,IDPTL(N),SQRT(PPTL(1,N)**2+PPTL(2,N)**2),PPTL(3,N),PPTL(5,N) + * ,ISTPTL(N),IAAPTL(N) +116 FORMAT(1X,I7,I7,4X,I7,4X,I4,I4,I12,3(E10.2),1X,I2,I2) +34 CONTINUE + ENDIF + +C TRAFO -> LAB CM +C --------------- +5000 CONTINUE + IF ( LABSYS .EQ. 1 ) THEN + DO 7 I=1,NPTL + AMT=SQRT(PPTL(5,I)**2+PPTL(1,I)**2+PPTL(2,I)**2) + PZ=PPTL(3,I) + E=PPTL(4,I) + YI=SIGN( LOG((E+ABS(PZ))/AMT), PZ ) + Y=YI+YHAHA + PPTL(3,I)=AMT*SINH(Y) + PPTL(4,I)=AMT*COSH(Y) + 7 CONTINUE + ENDIF + +C FINISH +C ------ + + CALL UTPAGE + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,113)('-',L=1,79),IPAGE,('-',L=1,79) +113 FORMAT(/1X,79A1/1X,I5,'.PAGE ' + * ,'PARTICLE PRODUCTION FINISHED'/1X,79A1/) +CDH ELSEIF ( ISH .EQ. 13 ) THEN +CDH CALL UTTIMA(' ') + ENDIF + GOTO 1000 + +10011 CONTINUE + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JFRADE') + WRITE(IFCH,*)'***** FRAGMENTATION NOT POSSIBLE' + WRITE(IFCH,112)J,(ICSTR(K,J)/100,K=1,4) + * ,(PSTR(L,J),L=1,5) +112 FORMAT( ' STR:',3X,I4,3X,3X,4I5,5F7.2,F7.2) + CALL UTMSGF + ENDIF + IER=1 + GOTO 1000 + +1001 CONTINUE + IER=1 + GOTO 1000 + +1000 CONTINUE + IF ( IER .EQ. 1 ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JFRADE') + WRITE(IFCH,*)'***** REDO EVENT',NREVT+1 + CALL UTMSGF + ENDIF + ENDIF +CDH IF ( ISH .EQ. 14 ) CALL UTTIMA(' JFRADE F ') + ISH=ISH0 + + RETURN + END +C======================================================================= + + SUBROUTINE JINTA1 + +C---------------------------------------------------------------------- +C SECONDARY INTERACTIONS +C---------------------------------------------------------------------- + PARAMETER (KOLLMX=2500) + PARAMETER (MAMX=56) + PARAMETER (MXDKY=2000) + PARAMETER (MXINDX=1000) + PARAMETER (MXLOOK=10000) + PARAMETER (MXMA=11) + PARAMETER (MXMX=6) + PARAMETER (MXPTL=70000) + PARAMETER (MXIFR=MXPTL) + PARAMETER (MXRE=100) + PARAMETER (MXSTR=3000) + PARAMETER (NDEP=129) + PARAMETER (NDET=129) + PARAMETER (NFLAV=6) + PARAMETER (NPRBMS=20) + PARAMETER (NSIX=40) + PARAMETER (NHA=NSIX+2) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CEVT/ BIMEVT,COLEVT,EGYEVT,PHIEVT,PMXEVT + * ,KOLEVT,NEVT,NPJEVT,NTGEVT + COMMON /CIFRIJ/ IFRIJ(MXIFR) + COMMON /CJINT/ BX,BY,RNUP,RNUT,VELP,VELT,XAVER(4),NPTL0 + COMMON /CKOL/ KOL + COMMON /CNCE/ NCES,NCOLEX + COMMON /CNFR/ NRFRA + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /COL/ BIMP,BMAX,COORD(4,KOLLMX),DISTCE(KOLLMX) + * ,QDEP(NDEP),QDET14(NDET),QDET16(NDET),QDET40(NDET) + * ,QDET99(NDET),RMPROJ,RMTARG(4),XDEP(NDEP) + * ,XDET14(NDET),XDET16(NDET),XDET40(NDET) + * ,XDET99(NDET) + * ,KOLL,LTARG,NORD(KOLLMX),NPROJ,NRPROJ(KOLLMX) + * ,NRTARG(KOLLMX),NTARG + COMMON /CPRBMS/ PRBMS(NPRBMS) + COMMON /CPROJA/ IPROJ,ITARG,KPROJA(NHA,MAMX),KTARGA(NHA,MAMX) + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /CREMA/ REMA(MXRE,MXMA),REWI(MXRE,MXMA) + * ,ICRE1(MXRE,MXMA),ICRE2(MXRE,MXMA) + * ,IDMX(MXMA,MXMX),INDX(MXINDX) + COMMON /CSTR/ PSTR(5,MXSTR),ROTSTR(3,MXSTR),XORSTR(4,MXSTR) + * ,ICSTR(4,MXSTR),IORSTR(MXSTR),IRLSTR(MXSTR),NSTR + COMMON /CTIMEL/ NTC + DOUBLE PRECISION DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /CTTAUS/ DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /C2PTL/ AMIPTL(MXPTL),RADPTL(MXPTL),IAAPTL(MXPTL) + COMMON /C4PTL/ OPTL(MXPTL),TPTL(MXPTL),UPTL(MXPTL) + * ,XPTL(MXPTL),YPTL(MXPTL),ZPTL(MXPTL) + COMMON /DIDIB/ NDIDIB + COMMON /DKYTAB/ CBR(MXDKY),LOOK(MXLOOK),MODE(5,MXDKY) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /PARTNR/ PEX,PEY,PEZET,PE0,PX4,PY4,SUMMAS + * ,IC4,IPTNR,JS4,NPS + + DOUBLE PRECISION DD,DERR,TI1,TI2,TT,VV,VVP,VVT,XO3,XO4,ZZ,ZZA + INTEGER IC4(2),JC(NFLAV,2),JCDU(NFLAV,2),JCI(NFLAV,2) + LOGICAL IACPTL(MXPTL+10) + DATA DERR/1.D-2/ + SAVE +C---------------------------------------------------------------------- +C INITIALIZATION FOR NTC=1 +C ------------------------ + IF ( NTC .EQ. 1 ) THEN + IF ( OVERLP.GE.0. .AND. MAPROJ.NE.0 .AND. MATARG.NE.0 ) THEN + IF ( MAPROJ .EQ. 1 ) THEN + RNUP=0. + ELSE + RNUP=1.19*MAPROJ**(0.3333333)-1.61*MAPROJ**(-0.3333333) + ENDIF + IF ( MATARG .EQ. 1 ) THEN + RNUT=0. + ELSE + RNUT=1.19*MATARG**(0.3333333)-1.61*MATARG**(-0.3333333) + ENDIF + RNUP=RNUP+OVERLP + RNUT=RNUT+OVERLP + VELP=PPTL(3,1)/PPTL(4,1) + VELT=PPTL(3,IABS(MAPROJ)+1)/PPTL(4,IABS(MAPROJ)+1) + BX=COS(PHIEVT)*BIMEVT + BY=SIN(PHIEVT)*BIMEVT + ENDIF + NPTL0=NPTL + DO 51 I=1,NPTL0 + IAAPTL(I)=1 + CALL IDQUAC(I,NQI,NDUMMY,NDUMMY,JCI) + IF ( NQI .NE. 0 ) THEN + RADPTL(I)=RADIAC + AMIPTL(I)=PROM+AMSIAC + ELSE + RADPTL(I)=RADIAS + AMIPTL(I)=PIOM+AMSIAC + ENDIF +51 CONTINUE + ENDIF + +C INITIALIZATION FOR EACH NTC +C --------------------------- + NT=NTC + CALL UTPAGE +CDH IF ( ISH .EQ. 13 ) CALL UTTIMA(' ') + NBEF=NPTL +CDH N0BEF=NPTL0 + NAFT=NPTL +CDH N0AFT=NPTL0 + IF ( NCLEAN .GT. 0 ) THEN + IF ( MOD(NT-1,NCLEAN) .EQ. 0 ) THEN + CALL UTCLEA(NPTL0) + NAFT=NPTL +CDH N0AFT=NPTL0 + ENDIF + ENDIF + TAUS=TTAUS + NPTLPT=ABS(MAPROJ)+ABS(MATARG) + IF ( NPTL .GT. NPTL0 ) THEN + DO 52 I=NPTL0+1,NPTL + CALL IDQUAC(I,NQI,NDUMMY,NDUMMY,JCI) + IF ( NQI .NE. 0 ) THEN + RADPTL(I)=RADIAC + AMIPTL(I)=PROM+AMSIAC + ELSE + RADPTL(I)=RADIAS + AMIPTL(I)=PIOM+AMSIAC + ENDIF +52 CONTINUE + ENDIF + DO 44 I=1,NPTL + IF ( ICLPTL(I).EQ.0 .AND. PPTL(5,I).GT.AMIPTL(I) ) THEN + IACPTL(I)=.TRUE. + ELSE + IACPTL(I)=.FALSE. + ENDIF + IF ( IORPTL(I).EQ.-1 ) IACPTL(I)=.TRUE. +C CALL UTTAIN IS REPLACED HERE TO AVOID OVERHEAD +C CALL UTTAIN(I,X,Y,Z,T,N,0) + XO4=XORPTL(4,I) +C* IF ( IOPT .EQ. 0 ) THEN + TI1=TIVPTL(1,I) +C* ELSEIF ( IOPT .EQ. 1 ) THEN +C* TI1=XO4 +C* ENDIF + TI2=TIVPTL(2,I) + IF ( TI1 .GT. TI2 ) GOTO 1009 + PPT4I = 1./PPTL(4,I) + VV=PPTL(3,I)*PPT4I + XO3=XORPTL(3,I) + ZZ=XO3+(TI2-XO4)*VV + IF ( TTAUS .LE. 0.D0 ) THEN + TZ=TTAUS + ELSE + IF ( ZZ .LE. ZZT ) THEN + TZ=TTT+(ZZ-ZZT)*ZZT/TTT + ELSEIF ( ZZ .GE. ZZP ) THEN + TZ=TTP+(ZZ-ZZP)*ZZP/TTP + ELSE + IF ( TTAUS .GE. AINFIN ) THEN + TZ=TTAUS + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JINTA1') + WRITE(IFCH,*)'***** LARGE TTAUS; SET TZ=TTAUS' + WRITE(IFCH,*)'TTAUS=',TTAUS,'ZZ=',ZZ + CALL UTMSGF + ENDIF + ELSE +C*DH TZ=SQRT(TTAUS**2+ZZ**2) + IF ( TI2 .LT. 0.D0 ) GOTO 1002 + IF ( TTAUS**2+ZZ**2 .GE. TI2**2 ) GOTO 1002 + GOTO 1006 + ENDIF + ENDIF + ENDIF + IF ( TZ .GE. TI2 ) GOTO 1002 + 1006 ZZ=XO3+(TI1-XO4)*VV + IF ( TTAUS .GT. 0.D0 ) THEN + IF ( ZZ .LE. ZZT ) THEN + TZ=TTT+(ZZ-ZZT)*ZZT/TTT + ELSEIF ( ZZ .GE. ZZP ) THEN + TZ=TTP+(ZZ-ZZP)*ZZP/TTP + ELSE + IF ( TTAUS .GE. AINFIN ) THEN + TZ=TTAUS + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JINTA1') + WRITE(IFCH,*)'***** LARGE TTAUS; SET TZ=TTAUS' + WRITE(IFCH,*)'TTAUS=',TTAUS,'ZZ=',ZZ + CALL UTMSGF + ENDIF + ELSE +C*DH TZ=SQRT(TTAUS**2+ZZ**2) + IF ( TI1 .LT. 0.D0 ) GOTO 1007 + IF ( TTAUS**2+ZZ**2 .LE. TI1**2 ) GOTO 1001 + GOTO 1007 + ENDIF + ENDIF + ENDIF + IF ( TZ .LE. TI1 ) GOTO 1001 + 1007 IF ( TTAUS .LE. 0.D0 ) THEN + TT=TTAUS + ZZ=XO3+(TT-XO4)*VV + IF ( TT.LT.TI1 .OR. TT.GE.TI2 ) GOTO 1031 + ELSE + ZZA=XO3-XO4*VV + VVT=ZZT/TTT + TT=(TTT+(ZZA-ZZT)*VVT)/(1.D0-VV*VVT) + ZZ=XO3+(TT-XO4)*VV + IF ( ZZ .LE. ZZT ) THEN + IF ( TT.LT.TI1 .OR. TT.GE.TI2 ) GOTO 1032 + GOTO 1000 + ENDIF + VVP=ZZP/TTP + TT=(TTP+(ZZA-ZZP)*VVP)/(1.D0-VV*VVP) + ZZ=XO3+(TT-XO4)*VV + IF ( ZZ .GE. ZZP ) THEN + IF ( TT.LT.TI1 .OR. TT.GE.TI2 ) GOTO 1033 + GOTO 1000 + ENDIF + DD=1.D0-VV**2 + IF ( DD .EQ. 0.D0 ) THEN + TT=-VV*(TTAUS**2+ZZA**2)*0.5D0/ZZA + ELSE + TT=(ZZA*VV+SQRT(ZZA**2+TTAUS**2*DD))/DD + ENDIF + ZZ=XO3+(TT-XO4)*VV + IF ( TT.LT.TI1 .OR. TT.GE.TI2 ) GOTO 1034 + IF ( TT .LT. 0.D0 ) GOTO 1035 + IF ( ZZ.LE.ZZT .OR. ZZ.GE.ZZP ) GOTO 1004 + IF ( ABS(TTAUS**2-(TT+ZZ)*(TT-ZZ)) + * .GT. DERR*TTAUS**2 ) GOTO 1005 + ENDIF + 1000 N=0 + 1011 T=TT + Z=ZZ + X=XORPTL(1,I)+(T-XO4)*PPTL(1,I)*PPT4I + Y=XORPTL(2,I)+(T-XO4)*PPTL(2,I)*PPT4I + GOTO 53 + 1001 N=1 + GOTO 53 + 1002 N=2 + GOTO 53 + 1031 N=31 + GOTO 1003 + + 1032 N=32 + GOTO 1003 + 1033 N=33 + GOTO 1003 + 1034 N=34 + 1003 IF ( ABS(TT-TI1) .LE. DERR*ABS(TT) ) GOTO 1000 + IF ( ABS(TT-TI2) .LE. DERR*ABS(TT) ) GOTO 1000 + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JINTA1') + WRITE(IFCH,*)'***** TI1 < TT < TI2 NOT FULFILLED - ',N + WRITE(IFCH,*)SNGL(TI1),SNGL(TT),SNGL(TI2) + CALL UTMSGF + ENDIF + GOTO 1011 + 1035 CONTINUE + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JINTA1') + WRITE(IFCH,*)'***** TT < 0 ( ',TT,' )' + WRITE(IFCH,*)'VV,DD:',VV,DD + WRITE(IFCH,*)'ZZA,TTAUS:',ZZA,TTAUS + CALL UTMSGF + ENDIF + GOTO 1011 + 1004 N=4 + IF ( ABS(ZZ-ZZT) .LE. DERR*ABS(ZZ) ) GOTO 1000 + IF ( ABS(ZZ-ZZP) .LE. DERR*ABS(ZZ) ) GOTO 1000 + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JINTA1') + WRITE(IFCH,*)'***** ZZT < ZZ < ZZP NOT FULFILLED' + WRITE(IFCH,*)SNGL(ZZT),SNGL(ZZ),SNGL(ZZP) + CALL UTMSGF + ENDIF + GOTO 1011 + 1005 N=5 + IF ( ABS(TTAUS**2-(TT+ZZ)*(TT-ZZ)) .LE. DERR ) GOTO 1000 + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JINTA1') + WRITE(IFCH,*)'***** TTAUS**2 .NE. (TT+ZZ)*(TT-ZZ)' + WRITE(IFCH,*)SNGL(TTAUS**2),SNGL((TT+ZZ)*(TT-ZZ)) + CALL UTMSGF + ENDIF + GOTO 1011 + 1009 N=9 + 53 CONTINUE + + IF ( N.EQ.2 ) THEN + IF ( NCLEAN .GT. 0 ) THEN + IF ( MOD(NT,NCLEAN).EQ.0 ) THEN + ISTPTL(I)=2 + ENDIF + ENDIF + IACPTL(I)=.TRUE. + GOTO 54 + ENDIF + IF ( N.EQ.9 ) THEN + IACPTL(I)=.TRUE. + GOTO 54 + ENDIF + IF ( N.EQ.1 ) THEN + IACPTL(I)=.TRUE. + GOTO 54 + ENDIF + IF ( IAAPTL(I) .EQ. 0 ) THEN + IACPTL(I)=.TRUE. + GOTO 54 + ENDIF + IF ( ISTPTL(I) .EQ. 2 ) IACPTL(I)=.TRUE. + IF ( ABS(IDPTL(I)) .LT. 100 + * .AND. ABS(IDPTL(I)) .NE. 20 ) IACPTL(I)=.TRUE. + IF ( IDPTL(I) .EQ. 441 .AND. JPSIFI .EQ. 0 ) IACPTL(I)=.TRUE. + 54 XPTL(I)=X + YPTL(I)=Y + ZPTL(I)=Z + TPTL(I)=T + IF ( OVERLP.GE.0. .AND. MAPROJ.NE.0 .AND. MATARG.NE.0 ) THEN + IF ( (X-BX*0.5)**2+(Y-BY*0.5)**2+(Z-VELP*TAUS)**2 + * .LT. RNUP**2 .AND. + * (X+BX*0.5)**2+(Y+BY*0.5)**2+(Z-VELT*TAUS)**2 + * .LT. RNUT**2 ) IACPTL(I)=.TRUE. + ENDIF +44 CONTINUE + NPTL0=NPTL + I=0 + +C I LOOP --> 24 +C ------------- +9999 I=I+1 + IF ( IACPTL(I) ) GOTO 24 + J0=NPTLPT+1 + IF ( I .GT. NPTLPT ) J0=I+1 + IF ( I .GT. NPTL0 ) J0=1 + +C J LOOP --> 250 +C ------------- + J = J0-1 +25 J = J+1 + IF ( J .GT. NPTL ) GOTO 24 + IF ( IACPTL(J) ) THEN + IF ( IACPTL(J+1) ) THEN + IF ( IACPTL(J+2) ) THEN + IF ( IACPTL(J+3) ) THEN + IF ( IACPTL(J+4) ) THEN + IF ( IACPTL(J+5) ) THEN + IF ( IACPTL(J+6) ) THEN + IF ( IACPTL(J+7) ) THEN + IF ( IACPTL(J+8) ) THEN + IF ( IACPTL(J+9) ) THEN + IF ( IACPTL(J+10) ) THEN + J=J+10 + GOTO 25 + ELSE + J=J+10 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+9 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+8 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+7 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+6 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+5 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+4 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+3 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+2 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+1 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ENDIF + 26 CONTINUE + RADSQR=(RADPTL(I)+RADPTL(J))**2 + IF ( (ZPTL(I)-ZPTL(J))**2 .GT. RADSQR ) GOTO 25 + IF ( (YPTL(I)-YPTL(J))**2 .GT. RADSQR ) GOTO 25 + IF ( (XPTL(I)-XPTL(J))**2 .GT. RADSQR ) GOTO 25 + IF ( I .EQ. J ) GOTO 25 + IF ( IORPTL(I).GT.0 .AND. IORPTL(J).EQ.IORPTL(I) ) GOTO 25 + IF ( IORPTL(I) .EQ. J ) GOTO 25 + IF ( IORPTL(J) .EQ. I ) GOTO 25 + PDE=(PPTL(3,I)+PPTL(3,J))/(PPTL(4,I)+PPTL(4,J)) + GAM2I=1.-PDE**2 + IF ( GAM2I .EQ. 0. ) GOTO 25 + IF ( (ZPTL(I)-ZPTL(J)-(TPTL(I)-TPTL(J))*PDE)**2 + * .GT. RADSQR*GAM2I ) GOTO 25 + IF ( (XPTL(I)-XPTL(J))**2+(YPTL(I)-YPTL(J))**2+ + * 1./GAM2I*(ZPTL(I)-ZPTL(J)-(TPTL(I)-TPTL(J))*PDE)**2 + * .GT. RADSQR ) GOTO 25 + CALL JINTCC(I,J,IRET) + IF ( IRET .EQ. 1 ) GOTO 25 + + IACTN=0 + NPTL00=NPTL + NSTR00=NSTR + XAVER(1)=(XPTL(I)+XPTL(J))*0.5 + XAVER(2)=(YPTL(I)+YPTL(J))*0.5 + XAVER(3)=(ZPTL(I)+ZPTL(J))*0.5 + XAVER(4)=(TPTL(I)+TPTL(J))*0.5 + + CALL JINTFS(I,J,NQIFUS,JC,AMIM,IRET) + IF ( IRET .EQ. 1 ) GOTO 25 + + CALL JINTCE(I,J,AMIM,IACTN,IRET) + IF ( IRET .EQ. 25 ) GOTO25 + + TIVPTL(2,I)=TPTL(I) + TIVPTL(2,J)=TPTL(J) + ISTPTL(I)=1 + ISTPTL(J)=1 + IACPTL(I)=.TRUE. + IACPTL(J)=.TRUE. + + CALL JINTCH(I,J,KMAX) + DO 30 K=1,KMAX + N=IFRIJ(K) + ISTPTL(N)=2 + IACPTL(N)=.TRUE. +30 CONTINUE + CALL JINTPA(I,J,KMAX) + DO 31 K=1,KMAX + N=IFRIJ(K) + IACPTL(N)=.TRUE. +31 CONTINUE + + IF ( IACTN .EQ. 1 ) THEN + DO 32 N=NPTL00+1,NPTL + IAAPTL(N)=1 + CALL IDQUAC(N,NQI,NDUMMY,NDUMMY,JCDU) + IF ( NQI .EQ. 0 ) THEN + RADPTL(N)=RADIAS + AMIPTL(N)=PIOM+AMSIAC + ELSE + RADPTL(N)=RADIAC + AMIPTL(N)=PROM+AMSIAC + ENDIF + IACPTL(N)=.FALSE. + IF ( PPTL(5,N) .GT. AMIPTL(N) ) IACPTL(N)=.TRUE. + CALL UTTAIN(N,X,Y,Z,T,K,0) + IF ( K.EQ.1 .OR. K.EQ.2 .OR. K.EQ.9 ) IACPTL(N)=.TRUE. + IF ( ABS(IDPTL(N)) .LT. 100 + * .AND. ABS(IDPTL(N)) .NE. 20 ) IACPTL(N)=.TRUE. + XPTL(N)=X + YPTL(N)=Y + ZPTL(N)=Z + TPTL(N)=T + IF ( OVERLP.GE.0. .AND. MAPROJ.NE.0 .AND. MATARG.NE.0 ) THEN + IF ( (X-BX*.5)**2+(Y-BY*.5)**2+(Z-VELP*TAUS)**2 + * .LT. RNUP**2 .AND. + * (X+BX*.5)**2+(Y+BY*.5)**2+(Z-VELT*TAUS)**2 + * .LT. RNUT**2 ) IACPTL(N)=.TRUE. + ENDIF +32 CONTINUE + GOTO 24 + ENDIF + + CALL JINTEL(I,J,AMIM,IACTN) + IF ( IACTN .EQ. 2 ) THEN + DO 33 N=NPTL00+1,NPTL + IF ( N .EQ. NPTL00+1 ) THEN + IJ=I + ELSEIF ( N .EQ. NPTL00+2 ) THEN + IJ=J + ENDIF + RADPTL(N)=RADPTL(IJ) + AMIPTL(N)=AMIPTL(IJ) + XPTL(N)=XAVER(1) + YPTL(N)=XAVER(2) + ZPTL(N)=XAVER(3) + TPTL(N)=XAVER(4) + IACPTL(N)=.FALSE. + IAAPTL(N)=1 +33 CONTINUE + GOTO 24 + ENDIF + + CALL JINTFU(I,J,JC,IACTN) + DO 34 N=NPTL00+1,NPTL + IF ( NQIFUS .EQ. 0 ) THEN + RADPTL(N)=RADIAS + AMIPTL(N)=PIOM+AMSIAC + ELSE + RADPTL(N)=RADIAC + AMIPTL(N)=PROM+AMSIAC + ENDIF + XPTL(N)=XAVER(1) + YPTL(N)=XAVER(2) + ZPTL(N)=XAVER(3) + TPTL(N)=XAVER(4) + IACPTL(N)=.FALSE. + IAAPTL(N)=1 +34 CONTINUE +* GOTO 24 + +*250 GOTO 25 + +24 CONTINUE + IF ( I .LT. NPTL-1 ) GOTO 9999 + + ISHNPT=ISH + IF ( ISHSUB/100 .EQ. 19 ) ISH=MOD(ISHSUB,100) + IF ( ISH .EQ. 22 ) THEN + WRITE(IFMT,131)NT,NBEF,NAFT,NPTL +131 FORMAT(1X,'NT=',I5,4X,'NBEF=',I8,4X,'NAFT=',I8,4X,'NPTL=',I8) + ENDIF + ISH=ISHNPT +CDH IF ( ISH .EQ. 13 ) CALL UTTIMA('INTERACTIONS ') + RETURN + END +C======================================================================= + + SUBROUTINE JINTA2 + +C---------------------------------------------------------------------- +C SECONDARY INTERACTIONS: PERCOLATION--CLUSTER MODEL +C---------------------------------------------------------------------- + PARAMETER (KOLLMX=2500) + PARAMETER (MAMX=56) + PARAMETER (MXDKY=2000) + PARAMETER (MXINDX=1000) + PARAMETER (MXLOOK=10000) + PARAMETER (MXMA=11) + PARAMETER (MXMX=6) + PARAMETER (MXPTL=70000) + PARAMETER (MXIFR=MXPTL) + PARAMETER (MXRE=100) + PARAMETER (MXSTR=3000) + PARAMETER (NDEP=129) + PARAMETER (NDET=129) + PARAMETER (NFLAV=6) + PARAMETER (NPRBMS=20) + PARAMETER (NSIX=40) + PARAMETER (NHA=NSIX+2) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CEVT/ BIMEVT,COLEVT,EGYEVT,PHIEVT,PMXEVT + * ,KOLEVT,NEVT,NPJEVT,NTGEVT + COMMON /CIFRIJ/ IFRIJ(MXIFR) + COMMON /CJINT/ BX,BY,RNUP,RNUT,VELP,VELT,XAVER(4),NPTL0 + COMMON /CKOL/ KOL + COMMON /CNCE/ NCES,NCOLEX + COMMON /CNFR/ NRFRA + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /COL/ BIMP,BMAX,COORD(4,KOLLMX),DISTCE(KOLLMX) + * ,QDEP(NDEP),QDET14(NDET),QDET16(NDET),QDET40(NDET) + * ,QDET99(NDET),RMPROJ,RMTARG(4),XDEP(NDEP) + * ,XDET14(NDET),XDET16(NDET),XDET40(NDET) + * ,XDET99(NDET) + * ,KOLL,LTARG,NORD(KOLLMX),NPROJ,NRPROJ(KOLLMX) + * ,NRTARG(KOLLMX),NTARG + COMMON /CPRBMS/ PRBMS(NPRBMS) + COMMON /CPROJA/ IPROJ,ITARG,KPROJA(NHA,MAMX),KTARGA(NHA,MAMX) + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /CREMA/ REMA(MXRE,MXMA),REWI(MXRE,MXMA) + * ,ICRE1(MXRE,MXMA),ICRE2(MXRE,MXMA) + * ,IDMX(MXMA,MXMX),INDX(MXINDX) + COMMON /CSTR/ PSTR(5,MXSTR),ROTSTR(3,MXSTR),XORSTR(4,MXSTR) + * ,ICSTR(4,MXSTR),IORSTR(MXSTR),IRLSTR(MXSTR),NSTR + COMMON /CTIMEL/ NTC + DOUBLE PRECISION DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /CTTAUS/ DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /C2PTL/ AMIPTL(MXPTL),RADPTL(MXPTL),IAAPTL(MXPTL) + COMMON /C3PTL/ DESPTL(MXPTL),DEZPTL(MXPTL) + COMMON /C4PTL/ OPTL(MXPTL),TPTL(MXPTL),UPTL(MXPTL) + * ,XPTL(MXPTL),YPTL(MXPTL),ZPTL(MXPTL) + COMMON /DIDIB/ NDIDIB + COMMON /DKYTAB/ CBR(MXDKY),LOOK(MXLOOK),MODE(5,MXDKY) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /PARTNR/ PEX,PEY,PEZET,PE0,PX4,PY4,SUMMAS + * ,IC4,IPTNR,JS4,NPS + + INTEGER IC4(2),JC(NFLAV,2),JCDU(NFLAV,2),JCI(NFLAV,2) + LOGICAL IACPTL(MXPTL+10) + SAVE +C---------------------------------------------------------------------- +C INITIALIZATION FOR NTC=1 +C ------------------------ + IF ( NTC .EQ. 1 ) THEN + IF ( OVERLP.GE.0. .AND. MAPROJ.NE.0 .AND. MATARG.NE.0 ) THEN + IF ( MAPROJ .EQ. 1 ) THEN + RNUP=0. + ELSE + RNUP=1.19*MAPROJ**(.3333333)-1.61*MAPROJ**(-.3333333) + ENDIF + RNUP=RNUP+OVERLP + IF ( MATARG .EQ. 1 ) THEN + RNUT=0. + ELSE + RNUT=1.19*MATARG**(.3333333)-1.61*MATARG**(-.3333333) + ENDIF + RNUT=RNUT+OVERLP + VELP=PPTL(3,1)/PPTL(4,1) + VELT=PPTL(3,IABS(MAPROJ)+1)/PPTL(4,IABS(MAPROJ)+1) + BX=COS(PHIEVT)*BIMEVT + BY=SIN(PHIEVT)*BIMEVT + ENDIF + NPTL0=NPTL + DO 51 I=1,NPTL0 + IAAPTL(I)=1 + CALL IDQUAC(I,NQI,NDUMMY,NDUMMY,JCI) + IF ( NQI .EQ. 0 ) THEN + RADPTL(I)=RADIAS + DESPTL(I)=RADIAS + DEZPTL(I)=0. + AMIPTL(I)=PIOM+AMSIAC + ELSE + RADPTL(I)=RADIAC + DESPTL(I)=RADIAC + DEZPTL(I)=0. + AMIPTL(I)=PROM+AMSIAC + ENDIF +51 CONTINUE + ENDIF + +C INITIALIZATION FOR EACH NTC +C --------------------------- + NT=NTC + CALL UTPAGE +CDH IF ( ISH .EQ. 13 ) CALL UTTIMA(' ') + NBEF=NPTL +CDH N0BEF=NPTL0 + NAFT=NPTL +CDH N0AFT=NPTL0 + IF ( NCLEAN .GT. 0 ) THEN + IF ( MOD(NT-1,NCLEAN) .EQ. 0 ) THEN + CALL UTCLEA(NPTL0) + NAFT=NPTL +CDH N0AFT=NPTL0 + ENDIF + ENDIF + TAUS=TTAUS + NPTLPT=ABS(MAPROJ)+ABS(MATARG) + IF ( NPTL .GT. NPTL0 ) THEN + DO 52 I=NPTL0+1,NPTL + CALL IDQUAC(I,NQI,NDUMMY,NDUMMY,JCI) + IF ( NQI .EQ. 0 ) THEN + RADPTL(I)=RADIAS + DESPTL(I)=RADIAS + DEZPTL(I)=0. + AMIPTL(I)=PIOM+AMSIAC + ELSE + RADPTL(I)=RADIAC + DESPTL(I)=RADIAC + DEZPTL(I)=0. + AMIPTL(I)=PROM+AMSIAC + ENDIF +52 CONTINUE + ENDIF + DO 44 I=1,NPTL + IF ( ICLPTL(I).EQ.0 .AND. PPTL(5,I).GT.AMIPTL(I) ) THEN + IACPTL(I)=.TRUE. + ELSE + IACPTL(I)=.FALSE. + ENDIF + IF ( IORPTL(I).EQ.-1 ) IACPTL(I)=.TRUE. + CALL UTTAIN(I,X,Y,Z,T,N,0) + IF ( N.EQ.2 ) THEN + IF ( NCLEAN .GT. 0 ) THEN + IF ( MOD(NT,NCLEAN).EQ.0 ) THEN + ISTPTL(I)=2 + ENDIF + ENDIF + IACPTL(I)=.TRUE. + GOTO 54 + ENDIF + IF ( N.EQ.9 ) THEN + IACPTL(I)=.TRUE. + GOTO 54 + ENDIF + IF ( N.EQ.1 ) THEN + IACPTL(I)=.TRUE. + GOTO 54 + ENDIF + IF ( IAAPTL(I) .EQ. 0 ) THEN + IACPTL(I)=.TRUE. + GOTO 54 + ENDIF + IF ( ISTPTL(I) .EQ. 2 ) IACPTL(I)=.TRUE. + IF ( ABS(IDPTL(I)) .LT. 100 + * .AND. ABS(IDPTL(I)) .NE. 20 ) IACPTL(I)=.TRUE. + IF ( IDPTL(I) .EQ. 441 .AND. JPSIFI .EQ. 0 ) IACPTL(I)=.TRUE. + 54 XPTL(I)=X + YPTL(I)=Y + ZPTL(I)=Z + TPTL(I)=T + CALL UTTAUS(Z,SZ) + OPTL(I)=SZ+DESPTL(I) + UPTL(I)=SZ-DESPTL(I) + IF ( OVERLP.GE.0. .AND. MAPROJ.NE.0 .AND. MATARG.NE.0 ) THEN + IF ( (X-BX*.5)**2+(Y-BY*.5)**2+(Z-VELP*TAUS)**2 .LT. RNUP**2 + * .AND. (X+BX*.5)**2+(Y+BY*.5)**2+(Z-VELT*TAUS)**2 + * .LT. RNUT**2 ) IACPTL(I)=.TRUE. + ENDIF +44 CONTINUE + NPTL0=NPTL + I=0 + +C I LOOP --> 24 +C ------------- +9999 I=I+1 + IF ( IACPTL(I) ) GOTO 24 + J0=NPTLPT+1 + IF ( I .GT. NPTLPT ) J0=I+1 + IF ( I .GT. NPTL0 ) J0=1 + UPTLI = UPTL(I) + OPTLI = OPTL(I) + +C J LOOP --> 250 +C ------------- + J = J0-1 +25 J = J+1 + IF ( J .GT. NPTL ) GOTO 24 + IF ( IACPTL(J) ) THEN + IF ( IACPTL(J+1) ) THEN + IF ( IACPTL(J+2) ) THEN + IF ( IACPTL(J+3) ) THEN + IF ( IACPTL(J+4) ) THEN + IF ( IACPTL(J+5) ) THEN + IF ( IACPTL(J+6) ) THEN + IF ( IACPTL(J+7) ) THEN + IF ( IACPTL(J+8) ) THEN + IF ( IACPTL(J+9) ) THEN + IF ( IACPTL(J+10) ) THEN + J=J+10 + GOTO 25 + ELSE + J=J+10 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+9 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+8 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+7 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+6 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+5 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+4 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+3 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+2 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ELSE + J=J+1 + IF ( J .GT. NPTL ) GOTO 24 + GOTO 26 + ENDIF + ENDIF + 26 IF ( OPTLI .LT. UPTL(J) ) GOTO 25 + IF ( UPTLI .GE. OPTL(J) ) GOTO 25 + RADSQR=(RADPTL(I)+RADPTL(J))**2 + IF ( (YPTL(I)-YPTL(J))**2 .GT. RADSQR ) GOTO 25 + IF ( (XPTL(I)-XPTL(J))**2 .GT. RADSQR ) GOTO 25 + IF ( I .EQ. J ) GOTO 25 + IF ( IORPTL(I).GT.0 .AND. IORPTL(J).EQ.IORPTL(I) ) GOTO 25 + IF ( IORPTL(I) .EQ. J ) GOTO 25 + IF ( IORPTL(J) .EQ. I ) GOTO 25 + IF ( (XPTL(I)-XPTL(J))**2+(YPTL(I)-YPTL(J))**2 .GT. RADSQR ) + * GOTO 25 + CALL JINTCC(I,J,IRET) + IF ( IRET .EQ. 1 ) GOTO 25 + + IACTN=0 + NPTL00=NPTL + NSTR00=NSTR + XAVER(1)=(XPTL(I)+XPTL(J))*0.5 + XAVER(2)=(YPTL(I)+YPTL(J))*0.5 + XAVER(3)=(ZPTL(I)+ZPTL(J))*0.5 + XAVER(4)=(TPTL(I)+TPTL(J))*0.5 + + CALL JINTFS(I,J,NQIFUS,JC,AMIM,IRET) + IF ( IRET .EQ. 1 ) GOTO 25 + + CALL JINTCE(I,J,AMIM,IACTN,IRET) + IF ( IRET .EQ. 25 ) GOTO 25 + + TIVPTL(2,I)=TPTL(I) + TIVPTL(2,J)=TPTL(J) + ISTPTL(I)=1 + ISTPTL(J)=1 + IACPTL(I)=.TRUE. + IACPTL(J)=.TRUE. + + CALL JINTCH(I,J,KMAX) + DO 30 K=1,KMAX + N=IFRIJ(K) + ISTPTL(N)=2 + IACPTL(N)=.TRUE. +30 CONTINUE + CALL JINTPA(I,J,KMAX) + DO 31 K=1,KMAX + N=IFRIJ(K) + IACPTL(N)=.TRUE. +31 CONTINUE + + IF ( IACTN .EQ. 1 ) THEN + DO 32 N=NPTL00+1,NPTL + IAAPTL(N)=1 + CALL IDQUAC(N,NQI,NDUMMY,NDUMMY,JCDU) + IF ( NQI .EQ. 0 ) THEN + RADPTL(N)=RADIAS + DESPTL(N)=RADIAS + DEZPTL(N)=0. + AMIPTL(N)=PIOM+AMSIAC + ELSE + RADPTL(N)=RADIAC + DESPTL(N)=RADIAC + DEZPTL(N)=0. + AMIPTL(N)=PROM+AMSIAC + ENDIF + IACPTL(N)=.FALSE. + IF ( PPTL(5,N) .GT. AMIPTL(N) ) IACPTL(N)=.TRUE. + CALL UTTAIN(N,X,Y,Z,T,K,0) + IF ( K.EQ.1 .OR. K.EQ.2 .OR. K.EQ.9 ) IACPTL(N)=.TRUE. + IF ( ABS(IDPTL(N)).LT.100 .AND. ABS(IDPTL(N)).NE.20 ) + * IACPTL(N)=.TRUE. + XPTL(N)=X + YPTL(N)=Y + ZPTL(N)=Z + TPTL(N)=T + CALL UTTAUS(Z,SZ) + OPTL(N)=SZ+DESPTL(N) + UPTL(N)=SZ-DESPTL(N) + IF ( OVERLP.GE.0. .AND. MAPROJ.NE.0 .AND. MATARG.NE.0 ) THEN + IF ( (X-BX*.5)**2+(Y-BY*.5)**2+(Z-VELP*TAUS)**2.LT.RNUP**2 + * .AND. (X+BX*.5)**2+(Y+BY*.5)**2+(Z-VELT*TAUS)**2 + * .LT.RNUT**2 ) IACPTL(N)=.TRUE. + ENDIF +32 CONTINUE + GOTO 24 + ENDIF + + CALL JINTEL(I,J,AMIM,IACTN) + IF ( IACTN .EQ. 2 ) THEN + DO 33 N=NPTL00+1,NPTL + IF ( N .EQ. NPTL00+1 ) THEN + IJ=I + ELSEIF ( N .EQ. NPTL00+2 ) THEN + IJ=J + ENDIF + RADPTL(N)=RADPTL(IJ) + DESPTL(N)=DESPTL(IJ) + DEZPTL(N)=DEZPTL(IJ) + AMIPTL(N)=AMIPTL(IJ) + XPTL(N)=XAVER(1) + YPTL(N)=XAVER(2) + ZPTL(N)=XAVER(3) + TPTL(N)=XAVER(4) + Z=ZPTL(N) + CALL UTTAUS(Z,SZ) + OPTL(N)=SZ+DESPTL(N) + UPTL(N)=SZ-DESPTL(N) + IACPTL(N)=.FALSE. + IAAPTL(N)=1 +33 CONTINUE + GOTO 24 + ENDIF + + CALL JINTFU(I,J,JC,IACTN) + DO 34 N=NPTL00+1,NPTL + IF ( NQIFUS .EQ. 0 ) THEN + RADPTL(N)=RADIAS + DESPTL(N)=RADIAS + DEZPTL(N)=0. + AMIPTL(N)=PIOM+AMSIAC + ELSE + RADPTL(N)=RADIAC + DESPTL(N)=RADIAC + DEZPTL(N)=0. + AMIPTL(N)=PROM+AMSIAC + ENDIF + XPTL(N)=XAVER(1) + YPTL(N)=XAVER(2) + ZPTL(N)=XAVER(3) + TPTL(N)=XAVER(4) + Z=ZPTL(N) + CALL UTTAUS(Z,SZ) + OPTL(N)=SZ+DESPTL(N) + UPTL(N)=SZ-DESPTL(N) + IACPTL(N)=.FALSE. + IAAPTL(N)=1 +34 CONTINUE + IF ( ISH .EQ. 23 .AND. PPTL(5,NPTL) .GE. AMPRIF ) THEN + N=NPTL + CALL JINTFP(I,J,N, + * XPTL(I),YPTL(I),RADPTL(I),OPTL(I),UPTL(I), + * XPTL(J),YPTL(J),RADPTL(J),OPTL(J),UPTL(J), + * XPTL(N),YPTL(N),RADPTL(N),OPTL(N),UPTL(N)) + ENDIF +* GOTO 24 + +*250 GOTO 25 + +24 CONTINUE + IF ( I .LT. NPTL-1 ) GOTO 9999 + + IF ( ISH .EQ. 24 ) THEN + IF ( TAUS.EQ.1. .OR. TAUS.EQ.2. .OR. + * TAUS.EQ.4. .OR. TAUS.EQ.8. ) THEN + DO 45 I=1,NPTL + IF ( IACPTL(I) .AND. I .NE. NPTL ) GOTO 45 + CALL JINTCL(I,XPTL(I),YPTL(I),RADPTL(I) + * ,OPTL(I),UPTL(I),IACPTL(I)) +45 CONTINUE + ENDIF + ENDIF + + ISHNPT=ISH + IF ( ISHSUB/100 .EQ. 19 ) ISH=MOD(ISHSUB,100) + IF ( ISH .EQ. 22 ) THEN + WRITE(IFMT,131)NT,NBEF,NAFT,NPTL +131 FORMAT(1X,'NT=',I5,4X,'NBEF=',I8,4X,'NAFT=',I8,4X,'NPTL=',I8) + ENDIF + ISH=ISHNPT +CDH IF ( ISH .EQ. 13 ) CALL UTTIMA('INTERACTIONS ') + RETURN + END +C======================================================================= + + SUBROUTINE JINTCC(I,J,IRET) + +C--------------------------------------------------------------------- +C IRET=1 IF I = CHILD OF J +C IRET=1 IF J = CHILD OF I +C IRET=0 ELSE +C--------------------------------------------------------------------- + PARAMETER (MXPTL=70000) + PARAMETER (MXIFR=MXPTL) + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /C2PTL/ AMIPTL(MXPTL),RADPTL(MXPTL),IAAPTL(MXPTL) + + INTEGER IFR(MXIFR) + SAVE +C--------------------------------------------------------------------- + IRET=0 + DO 57 KK=1,2 + IF ( KK .EQ. 1 ) THEN + N=I + M=J + ELSE + N=J + M=I + ENDIF + K1=0 + K2=0 + LOOP=0 +55 LOOP=LOOP+1 + IF ( IFRPTL(1,N) .GT. 0 ) THEN + DO 56 K=IFRPTL(1,N),IFRPTL(2,N) + IF ( K .EQ. M ) GOTO 1001 + K2=K2+1 + IF ( K2 .GT. MXIFR ) THEN + CALL UTSTOP('JINTCC: K2 > MXIFR ') + ENDIF + IFR(K2)=K +56 CONTINUE + ENDIF + K1=K1+1 + IF ( K1 .LE. K2 ) THEN + N=IFR(K1) + GOTO 55 + ENDIF +57 CONTINUE + GOTO 1000 + +1001 IRET=1 + +1000 RETURN + END +C======================================================================= + + SUBROUTINE JINTCE(I,J,AMIM,IACTN,IRET) + +C---------------------------------------------------------------------- +C COLOUR EXCHANGE INTERACTION OF PTLS I,J +C INPUT: +C I,J: PTL NUMBERS; AMF: MASS, AMIM: MIN MASS, OF FUSED OBJ +C IACTN=1: CE DONE +C IRET=0: CE DONE OR CRITERIA FOR CE NOT FULFILLED +C IRET=25: SKIP +C---------------------------------------------------------------------- + PARAMETER (KOLLMX=2500) + PARAMETER (MAMX=56) + PARAMETER (MXDKY=2000) + PARAMETER (MXINDX=1000) + PARAMETER (MXLOOK=10000) + PARAMETER (MXMA=11) + PARAMETER (MXMX=6) + PARAMETER (MXPTL=70000) + PARAMETER (MXRE=100) + PARAMETER (MXSTR=3000) + PARAMETER (NDEP=129) + PARAMETER (NDET=129) + PARAMETER (NPRBMS=20) + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + PARAMETER (NHA=NSIX+2) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CEVT/ BIMEVT,COLEVT,EGYEVT,PHIEVT,PMXEVT + * ,KOLEVT,NEVT,NPJEVT,NTGEVT + COMMON /CJINT/ BX,BY,RNUP,RNUT,VELP,VELT,XAVER(4),NPTL0 + COMMON /CKOL/ KOL + COMMON /CNCE/ NCES,NCOLEX + COMMON /CNFR/ NRFRA + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /COL/ BIMP,BMAX,COORD(4,KOLLMX),DISTCE(KOLLMX) + * ,QDEP(NDEP),QDET14(NDET),QDET16(NDET),QDET40(NDET) + * ,QDET99(NDET),RMPROJ,RMTARG(4),XDEP(NDEP) + * ,XDET14(NDET),XDET16(NDET),XDET40(NDET) + * ,XDET99(NDET) + * ,KOLL,LTARG,NORD(KOLLMX),NPROJ,NRPROJ(KOLLMX) + * ,NRTARG(KOLLMX),NTARG + COMMON /CPRBMS/ PRBMS(NPRBMS) + COMMON /CPROJA/ IPROJ,ITARG,KPROJA(NHA,MAMX),KTARGA(NHA,MAMX) + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /CREMA/ REMA(MXRE,MXMA),REWI(MXRE,MXMA) + * ,ICRE1(MXRE,MXMA),ICRE2(MXRE,MXMA) + * ,IDMX(MXMA,MXMX),INDX(MXINDX) + COMMON /CSTR/ PSTR(5,MXSTR),ROTSTR(3,MXSTR),XORSTR(4,MXSTR) + * ,ICSTR(4,MXSTR),IORSTR(MXSTR),IRLSTR(MXSTR),NSTR + COMMON /CTIMEL/ NTC + DOUBLE PRECISION DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /CTTAUS/ DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /C2PTL/ AMIPTL(MXPTL),RADPTL(MXPTL),IAAPTL(MXPTL) + COMMON /DIDIB/ NDIDIB + COMMON /DKYTAB/ CBR(MXDKY),LOOK(MXLOOK),MODE(5,MXDKY) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /PARTNR/ PEX,PEY,PEZET,PE0,PX4,PY4,SUMMAS + * ,IC4,IPTNR,JS4,NPS + + DOUBLE PRECISION ARM(5),ARP(5),ARQ,BOO(5),ROT(3) + REAL PROJ(NSI,NHA),PSUM(5),TARG(NSI,NHA) + INTEGER IC(2),IC4(2) + SAVE +C---------------------------------------------------------------------- +C INITIALIZATION +C -------------- + IRET=0 + DELRAP=1.5 + DELAMF=1.0 + ISH00=ISH + PNLLX0=PNLLX + TAUS=TTAUS + AMF=PPTL(5,NPTL+1) + +C CHECK WHETHER CE CRITERIA FULFILLED +C ----------------------------------- + VEI=PPTL(3,I)/PPTL(4,I) + VEJ=PPTL(3,J)/PPTL(4,J) + IF ( ABS(VEI) .LT. 1. .AND. ABS(VEJ) .LT. 1. ) THEN + RAI=0.5*LOG((1.+VEI)/(1.-VEI)) + RAJ=0.5*LOG((1.+VEJ)/(1.-VEJ)) + ELSE + RAI=0. + RAJ=0. + ENDIF + IF ( .NOT. (AMF.GT.AMIM+DELAMF .AND. ABS(RAI-RAJ).GT.DELRAP + * .AND. ABS(IDPTL(I)).LT.10000 + * .AND. ABS(IDPTL(J)).LT.10000) ) GOTO 1000 + IACTN=1 + +C PRINT +C ----- + IF ( ISH .GE. 91 ) THEN + IF ( ISH .GE. 92 ) WRITE(IFCH,*)' ' + WRITE(IFCH,101)NTC,TAUS +101 FORMAT(1X,'CO.EX. INTERACTION --- NT=',I3,' --- TAUS=',F6.2) + IF ( ISH .GE. 92 ) WRITE(IFCH,*)' ' + WRITE(IFCH,115)I,IDPTL(I) + * ,(PPTL(K,I),K=3,5),(XORPTL(K,I),K=3,4) +115 FORMAT(1X,'/CPTL/',I8,I10 + * ,1X,2(E10.2),E10.2,1X,2(E10.2),2X,I4) + WRITE(IFCH,115)J,IDPTL(J) + * ,(PPTL(K,J),K=3,5),(XORPTL(K,J),K=3,4) + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'AMF,AMIM: ',AMF,AMIM + WRITE(IFCH,*)'RAI,RAJ: ',RAI,RAJ + WRITE(IFCH,*)' ' + ENDIF + ENDIF + +C INITIALIZATION +C -------------- + NPTL00=NPTL + NSTR00=NSTR + + IPROJ=1 + ITARG=1 + DO 11 L=1,NHA + KPROJA(L,1)=1 + KTARGA(L,1)=1 +11 CONTINUE + KOL=1 + COORD(1,1)=XAVER(1) + COORD(2,1)=XAVER(2) + COORD(3,1)=XAVER(3) + COORD(4,1)=XAVER(4) + + IDP=IDPTL(I) + IDM=IDPTL(J) + DO 12 L=1,5 + ARP(L)=PPTL(L,I) + ARM(L)=PPTL(L,J) + BOO(L)=PPTL(L,NPTL+1) +12 CONTINUE + SROOT = ABS(PPTL(5,NPTL+1)) + S=PPTL(5,NPTL+1)**2 + +C BOOSTS INTO I-J CM +C ------------------ + CALL UTLOB2(1,BOO(1),BOO(2),BOO(3),BOO(4),BOO(5) + * ,ARP(1),ARP(2),ARP(3),ARP(4)) + CALL UTLOB2(1,BOO(1),BOO(2),BOO(3),BOO(4),BOO(5) + * ,ARM(1),ARM(2),ARM(3),ARM(4)) + IF ( ARP(3) .LT. 0.D0 ) THEN + IDQ=IDM + IDM=IDP + IDP=IDQ + DO 14 L=1,5 + ARQ=ARM(L) + ARM(L)=ARP(L) + ARP(L)=ARQ +14 CONTINUE + ENDIF + PNLLX=ARP(3) + ROT(1)=(ARP(1)-ARM(1))*0.5D0 + ROT(2)=(ARP(2)-ARM(2))*0.5D0 + ROT(3)=(ARP(3)-ARM(3))*0.5D0 + CALL UTROT2(1,ROT(1),ROT(2),ROT(3) + * ,ARP(1),ARP(2),ARP(3)) + CALL UTROT2(1,ROT(1),ROT(2),ROT(3) + * ,ARM(1),ARM(2),ARM(3)) + +C CHECKS +C ------ + IF ( ARP(3) .LT. 0.D0 ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JINTCE') + WRITE(IFCH,*)'***** Z-COMP OF +JET < 0.' + WRITE(IFCH,*)(SNGL(ARP(L)),L=1,4) + WRITE(IFCH,*)(SNGL(ARM(L)),L=1,4) + CALL UTMSGF + ENDIF + GOTO 10025 + ENDIF + IF ( ABS(SNGL(ARP(4)+ARM(4))-SROOT) .GT. + * 2.E-2*SROOT ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JINTCE') + WRITE(IFCH,*)'***** ARP(4)+ARM(4)-SQRT(S) NONZERO' + WRITE(IFCH,*)'VALUE: ',SNGL(ARP(4)+ARM(4))-SROOT + WRITE(IFCH,*)'SQRT(S): ',SROOT + WRITE(IFCH,*)(SNGL(ARP(I)),I=1,4) + WRITE(IFCH,*)(SNGL(ARM(I)),I=1,4) + CALL UTMSGF + ENDIF + ENDIF + +C FILL PROJ, TARG +C --------------- + CALL IDTR4(IDP,IC) + DO 25 M=1,NHA + DO 24 N=1,NSI + PROJ(N,M)=0. +24 CONTINUE +25 CONTINUE + PROJ(5,1)=IC(1) + PROJ(6,1)=IC(2) + PROJ(5,2)=IC(1) + PROJ(6,2)=IC(2) + PROJ(1,2)=ARP(1) + PROJ(2,2)=ARP(2) + PROJ(3,2)=ARP(3) + PROJ(4,2)=ARP(4) + CALL IDTR4(IDM,IC) + DO 28 M=1,NHA + DO 27 N=1,NSI + TARG(N,M)=0. +27 CONTINUE +28 CONTINUE + TARG(5,1)=IC(1) + TARG(6,1)=IC(2) + TARG(5,2)=IC(1) + TARG(6,2)=IC(2) + TARG(1,2)=ARM(1) + TARG(2,2)=ARM(2) + TARG(3,2)=ARM(3) + TARG(4,2)=ARM(4) + +C REDO +C ---- + CALL UTREMB(PROJ,TARG,1) + LOO=1 + GOTO 58 +57 CONTINUE + LOO=LOO+1 + IF ( LOO .GT. 20 ) GOTO 10025 + IF ( ISH .GE. 91 ) WRITE(IFCH,*)'REDO HH COLLISION' + CALL UTREST(PROJ,TARG,1) +58 CONTINUE + +C NUMBER OF CE'S +C -------------- + NCOLEX=1 +C-C LO=0 +C-C16 LO=LO+1 +C-C IF ( LO .EQ. 3 ) THEN +C-C IF ( ISH .GE. 90 ) THEN +C-C CALL UTMSG('JINTCE') +C-C WRITE(IFCH,*)'***** LO=3' +C-C CALL UTMSGF +C-C ENDIF +C-C ENDIF +C-C R=RANGEN() +C-C NCOLEX=0 +C-C15 NCOLEX=NCOLEX+1 +C-C IF ( NCOLEX .GT. NPRBMS ) GOTO 16 +C-C IF ( R .GT. PRBMS(NCOLEX) ) GOTO 15 + +C DO NCOLEX CE'S +C -------------- + ISKIP=0 + DO 30 NCE=1,NCOLEX + IF ( ISH .GE. 92 .AND. NCE .GT. 1 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)NCE,'. COLOUR EXCHANGE' + WRITE(IFCH,*)' ' + ENDIF + NCES=NCE + ISH=ISH-2 + CALL HAHABS(PROJ,TARG,NCE/NCOLEX,NCE/NCOLEX,ISKIP,IRETHH) + ISH=ISH+2 + IF ( ISKIP .NE. 0 ) GOTO 10025 + IF ( IRETHH .EQ. 1 ) GOTO 57 +30 CONTINUE + +C FRAGMENTATION +C ------------- + IF ( NSTR .LE. NSTR00 ) GOTO 10050 + + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,123) +123 FORMAT(/1X,'STRINGS BEFORE RESCALING'/) + DO 31 L=NSTR00+1,NSTR + WRITE(IFCH,109)L,(ICSTR(K,L)/100,K=1,4) + * ,SQRT(PSTR(1,L)**2+PSTR(2,L)**2),PSTR(3,L),PSTR(5,L) + * ,IRLSTR(L) +109 FORMAT(' /CSTR/',I5,3X,4I5,3(E11.3),I5) +31 CONTINUE + ENDIF + + IF ( IRESCL .EQ. 1 ) THEN + PSUM(1)=0. + PSUM(2)=0. + PSUM(3)=0. + PSUM(4)=SROOT + PSUM(5)=SROOT + ISH=ISH-2 + CALL HRESCL(NSTR00+1,NSTR,PSUM,IFAIL) + ISH=ISH+2 + IF ( IFAIL .NE. 0 ) GOTO 57 + ENDIF + + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,124) +124 FORMAT(/1X,'STRINGS AFTER RESCALING'/) + DO 32 L=NSTR00+1,NSTR + WRITE(IFCH,109)L,(ICSTR(K,L)/100,K=1,4) + * ,SQRT(PSTR(1,L)**2+PSTR(2,L)**2),PSTR(3,L),PSTR(5,L) + * ,IRLSTR(L) +32 CONTINUE + ENDIF + + DO 33 L=NSTR00+1,NSTR + IF ( ISH .GE. 92 ) WRITE(IFCH,122)L + * ,(ICSTR(K,L),K=1,4) + * ,SQRT(PSTR(1,L)**2+PSTR(2,L)**2),PSTR(3,L),PSTR(5,L) +122 FORMAT(/' STR:',I7,4I7,3(E10.2)/) + ISH=ISH-2 + CALL JAMFRA(L,NEWEVT) + ISH=ISH+2 + IF ( NEWEVT .EQ. 1 ) GOTO 10025 +33 CONTINUE + +C BOOST PARTICLES FROM STRING FRAGMENTATION +C ----------------------------------------- + IF ( NPTL .LE. NPTL00 ) GOTO 10051 + + IORPTL(NPTL00+1)=I + JORPTL(NPTL00+1)=J + DO 34 L=1,5 + PSUM(L)=0. +34 CONTINUE + + DO 38 N=NPTL00+1,NPTL + + DO 35 L=1,5 + ARP(L)=PPTL(L,N) +35 CONTINUE + CALL UTROT2(-1,ROT(1),ROT(2),ROT(3) + * ,ARP(1),ARP(2),ARP(3)) + CALL UTLOB2(-1,BOO(1),BOO(2),BOO(3),BOO(4),BOO(5) + * ,ARP(1),ARP(2),ARP(3),ARP(4)) + DO 36 L=1,5 + PPTL(L,N)=ARP(L) +36 CONTINUE + NQJPTL(N)=0 + + IF ( ISTPTL(N) .EQ. 0 ) THEN + PSUM(1)=PSUM(1)+PPTL(1,N) + PSUM(2)=PSUM(2)+PPTL(2,N) + PSUM(3)=PSUM(3)+PPTL(3,N) + PSUM(4)=PSUM(4)+PPTL(4,N) + ENDIF + + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,115)N,IDPTL(N) + * ,(PPTL(K,N),K=3,5),(XORPTL(K,N),K=3,4),ISTPTL(N) + ENDIF + +38 CONTINUE + + IF ( ISH .GE. 90 ) THEN + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)'P_FIN:',(PSUM(K),K=1,4) + WRITE(IFCH,*)'P_INI:',(BOO(K),K=1,4) + ENDIF + + IF ( (ABS(BOO(1)-PSUM(1)) .GT. 5.E-3*ABS(BOO(1)) + * .OR. ABS(BOO(2)-PSUM(2)) .GT. 5.E-3*ABS(BOO(2)) + * .OR. ABS(BOO(3)-PSUM(3)) .GT. 5.E-3*ABS(BOO(3)) + * .OR. ABS(BOO(4)-PSUM(4)) .GT. 1.E-1*ABS(BOO(4))) + * .AND. + * (ABS(BOO(1)-PSUM(1)) .GT. 5.E-3 + * .OR. ABS(BOO(2)-PSUM(2)) .GT. 5.E-3 + * .OR. ABS(BOO(3)-PSUM(3)) .GT. 5.E-3 + * .OR. ABS(BOO(4)-PSUM(4)) .GT. 1.E-1) ) THEN + CALL UTMSG('JINTCE') + WRITE(IFCH,*)'***** P_INI /= P_FIN' + WRITE(IFCH,*)'FINAL PARTICLES:' + DO 39 N=NPTL00+1,NPTL + WRITE(IFCH,125)N,IDPTL(N),(PPTL(K,N),K=1,5),ISTPTL(N) +125 FORMAT(1X,'/CPTL/',I6,I10,5(E11.3),I2) +39 CONTINUE + WRITE(IFCH,*)'P_FIN:',(PSUM(K),K=1,4) + WRITE(IFCH,*)'P_INI:',(SNGL(BOO(K)),K=1,4) + CALL UTMSGF + ENDIF + ENDIF + GOTO 1000 + +C FINISH +C ------ + +10025 CONTINUE + IRET=25 + IF ( ISH .GE. 91 ) WRITE(IFCH,*)'SKIP' + NPTL=NPTL00 + NSTR=NSTR00 + GOTO 1000 + +10050 CONTINUE + CALL UTMSG('JINTCE') + WRITE(IFCH,*)'INCIDENT PARTICLES:' + WRITE(IFCH,115)I,IDPTL(I),(PPTL(K,I),K=3,5) + WRITE(IFCH,115)J,IDPTL(J),(PPTL(K,J),K=3,5) + WRITE(IFCH,*)'NSTR=',NSTR,' NSTR00=',NSTR00 + CALL UTMSGF + CALL UTSTOP('JINTCE: NSTR .LE. NSTR00 ') + +10051 CONTINUE + CALL UTMSG('JINTCE') + WRITE(IFCH,*)'INCIDENT PARTICLES:' + WRITE(IFCH,115)I,IDPTL(I),(PPTL(K,I),K=3,5) + WRITE(IFCH,115)J,IDPTL(J),(PPTL(K,J),K=3,5) + WRITE(IFCH,*)'NSTR=',NSTR,' NSTR00=',NSTR00 + WRITE(IFCH,*)'NPTL=',NPTL,' NPTL00=',NPTL00 + CALL UTMSGF + CALL UTSTOP('JINTCE: NPTL .LE. NPTL00 ') + +1000 CONTINUE + PNLLX=PNLLX0 + ISH=ISH00 + RETURN + END +C======================================================================= + + SUBROUTINE JINTCH(I,J,KMAX) + +C---------------------------------------------------------------------- +C WRITES CHILDREN OF I,J TO IFRIJ(1-KMAX) +C---------------------------------------------------------------------- + PARAMETER (MXPTL=70000) + PARAMETER (MXIFR=MXPTL) + COMMON /CIFRIJ/ IFRIJ(MXIFR) + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + SAVE +C---------------------------------------------------------------------- + KCUR=0 + KMAX=0 + LOOP=0 +31 LOOP=LOOP+1 + IF ( LOOP .EQ. 1 ) THEN + N=I + ELSEIF ( LOOP .EQ. 2 ) THEN + N=J + ENDIF + IF ( IFRPTL(1,N) .GT. 0 ) THEN + IF ( ISH.GE.92 ) WRITE(IFCH,*)N,' ---> ',IFRPTL(1,N),IFRPTL(2,N) + DO 30 K=IFRPTL(1,N),IFRPTL(2,N) + KMAX=KMAX+1 + IF ( KMAX .GT. MXIFR ) THEN + CALL UTSTOP('JINTCH: KMAX > MXIFR ') + ENDIF + IFRIJ(KMAX)=K +30 CONTINUE + ENDIF + IF ( LOOP .EQ. 1 ) GOTO 31 + KCUR=KCUR+1 + IF ( KCUR .LE. KMAX ) THEN + N=IFRIJ(KCUR) + GOTO 31 + ENDIF + + RETURN + END +C======================================================================= + + SUBROUTINE JINTCL(I,X,Y,RAD,O,U,IAC) + +C--------------------------------------------------------------------- +C FILLS HISTOGRAM CONCERNING CLUSTER CHARACTERISTICS +C--------------------------------------------------------------------- + PARAMETER (MXEPS=10) + PARAMETER (MXPTL=70000) + PARAMETER (MXTAU=4) + PARAMETER (MXVOL=10) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CJINTC/ CLUST(MXTAU,MXVOL,MXEPS) + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + DOUBLE PRECISION DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /CTTAUS/ DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /CVSN/ IVERSN + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /NEVNT/ NEVNT + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /PARO5/ DELEPS,DELVOL + + CHARACTER AX*2 + LOGICAL IAC + SAVE +C--------------------------------------------------------------------- + TAU=SNGL(TTAUS) +CDH ITAU=1+LOG(TAU)/LOG(2.) + ITAU=1+LOG(TAU)*1.442695 + + IF ( IAC ) GOTO 1 + + VOL=(O-U)*RAD**2*PI + IVOL=1+VOL/DELVOL + EPS=PPTL(5,I)/VOL + IEPS=1+EPS/DELEPS + IF ( ITAU.GE.1 .AND. ITAU.LE.MXTAU .AND. + * IVOL.GE.1 .AND. IVOL.LE.MXVOL .AND. + * IEPS.GE.1 .AND. IEPS.LE.MXEPS ) + * CLUST(ITAU,IVOL,IEPS)=CLUST(ITAU,IVOL,IEPS)+1 + + 1 CONTINUE + IF ( I .LT. NPTL .OR. NREVT+1 .LT. NEVNT ) GOTO 1000 + + IF ( ITAU .EQ. 1 ) WRITE(IFCH,105)MAPROJ,MATARG,ENGY,IVERSN/100. +105 FORMAT(/1X,'PROJ=',I3,3X,'TARG=',I3,3X,'ENGY=',F7.2 + * ,3X,'VENUS ',F4.2,' (TURBOVENUS)') + WRITE(IFCH,100)TAU,ITAU,NEVNT,DELVOL,DELEPS +100 FORMAT(/1X,'TAU=',F5.2,3X,'ITAU=',I1 + * ,3X,'NEVNT=',I4,3X,'DELVOL=',F5.1,3X,'DELEPS=',F5.1/) + WRITE(IFCH,101) +101 FORMAT(9X,'IVOL=1 IVOL=2 IVOL=3 IVOL=4 IVOL=5 ' + * ,'IVOL=6 IVOL=7 IVOL=8 IVOL=9 IVOL=10 ') + DO 106 IE=1,MXEPS + IF ( IE .LE. 9 ) THEN + WRITE(AX,102)IE +102 FORMAT('0',I1) + ELSE + WRITE(AX,103)IE +103 FORMAT(I2) + ENDIF + WRITE(IFCH,104)AX,(NINT(CLUST(ITAU,IV,IE)),IV=1,MXVOL) +104 FORMAT(' IEPS=',A2,10I7) +106 CONTINUE + +1000 CONTINUE + RETURN + END +C======================================================================= + + SUBROUTINE JINTEL(I,J,AMIM,IACTN) + +C---------------------------------------------------------------------- +C ELASTIC SCATTERING OF PTLS I,J +C EL SCATT REQUIR NOT FULF: RETURN WITHOUT ACTION, IACTN UNCHANGED +C ELSE: ELASTIC SCATTERING DONE, IACTN=2 +C---------------------------------------------------------------------- + PARAMETER (MXPTL=70000) + PARAMETER (NPTQ=129) + COMMON /CJINT/ BX,BY,RNUP,RNUT,VELP,VELT,XAVER(4),NPTL0 + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /CPTQ/ QPTH(NPTQ),QPTQ(NPTQ),XPTQ(NPTQ),QPTQMX,QPTHMX + COMMON /CTIMEL/ NTC + DOUBLE PRECISION DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /CTTAUS/ DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + REAL P(5),PEI(5),PEJ(5),U(5) + SAVE +C---------------------------------------------------------------------- +C CHECK +C ----- + AMF=PPTL(5,NPTL+1) + IF ( AMF .GE. AMIM ) GOTO 1000 + +C PRINT +C ----- + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,101)NTC,SNGL(TTAUS) +101 FORMAT(1X,'ELASTIC SCATTERING --- NT=',I3,' --- TAUS=',F6.2) + WRITE(IFCH,115)I,IDPTL(I) + * ,(PPTL(K,I),K=3,5),(XORPTL(K,I),K=3,4) + WRITE(IFCH,115)J,IDPTL(J) + * ,(PPTL(K,J),K=3,5),(XORPTL(K,I),K=3,4) +115 FORMAT(1X,'/CPTL/',I6,I10 + * ,1X,2(E10.2),E11.2,1X,2(E10.2),2X,I4) + ENDIF + +C INITIALIZATION +C -------------- + IACTN=2 + DO 125 K=1,5 + P(K)=PPTL(K,NPTL+1) +125 CONTINUE + +C DETERMINE MOMENTA OF OUTGOING PARTICLES (PEI,PEJ) +C ------------------------------------------------- + IF ( P(5) .LE. (PPTL(5,I)+PPTL(5,J))*.99 ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JINTEL') + WRITE(IFCH,132)P(5),PPTL(5,I)+PPTL(5,J) +132 FORMAT(1X,'***** M_FUS < M_I+M_J ---> QCM SET ZERO ( ' + * ,2F10.3,' )') + WRITE(IFCH,133)'P_I: ',(PPTL(K,I),K=1,5) + WRITE(IFCH,133)'P_J: ',(PPTL(K,J),K=1,5) + WRITE(IFCH,133)'P_FUS:',(P(K),K=1,5) +133 FORMAT(1X,A6,3X,5F10.3) + CALL UTMSGF + ENDIF + QCM=0. + ELSEIF ( P(5) .LE. PPTL(5,I)+PPTL(5,J) ) THEN + QCM=0. + ELSE + QCM=UTPCM(P(5),PPTL(5,I),PPTL(5,J)) + ENDIF + +C ISOTROPIC + U(3)=2.*RANGEN()-1. + PHI=2.*PI*RANGEN() + AUXIL=SQRT(1.-U(3)**2) + U(1)=AUXIL*COS(PHI) + U(2)=AUXIL*SIN(PHI) + PEI(1)= QCM*U(1) + PEJ(1)=-QCM*U(1) + PEI(2)= QCM*U(2) + PEJ(2)=-QCM*U(2) + PEI(3)= QCM*U(3) + PEJ(3)=-QCM*U(3) + +C NONISOTROPIC +C-C R=RANGEN() +C-C IF ( IOPTQ .EQ. 2 ) THEN +C-C PT = SQRT( -4.*PTQ**2/PI * LOG(1.-QPTQMX*R) ) +C-C ELSEIF ( IOPTQ .EQ. 3 ) THEN +C-C PT = PTQ*SQRT( QPTQMX*R/(1.-QPTQMX*R) ) +C-C ELSE +C-C PT=UTINVT(NPTQ,XPTQ,QPTQ,R*QPTQ(NPTQ)) +C-C ENDIF +C-C IF ( PT .GE. QCM ) PT=RANGEN()*QCM +C-C QPL=SQRT(QCM**2-PT**2) +C-C U(3)=QPL +C-C PHI=2.*PI*RANGEN() +C-C U(1)=PT*COS(PHI) +C-C U(2)=PT*SIN(PHI) +C-C CALL UTAXIS(I,J,A1,A2,A3) +C-C IVT=1 +C-C IF ( A3 .LT. 0. ) THEN +C-C A1=-A1 +C-C A2=-A2 +C-C A3=-A3 +C-C IVT=-1 +C-C ENDIF +C-C CALL UTROTA(-1,A1,A2,A3,U(1),U(2),U(3)) +C-C DO 47 K=1,3 +C-C PEI(K)= U(K)*IVT +C-C PEJ(K)=-U(K)*IVT +C-C47 CONTINUE + PEI(4)=SQRT(QCM**2+PPTL(5,I)**2) + PEJ(4)=SQRT(QCM**2+PPTL(5,J)**2) + PEI(5)=PPTL(5,I) + PEJ(5)=PPTL(5,J) + CALL UTLOBO(-1,P(1),P(2),P(3),P(4),P(5) + * ,PEI(1),PEI(2),PEI(3),PEI(4)) + CALL UTLOBO(-1,P(1),P(2),P(3),P(4),P(5) + * ,PEJ(1),PEJ(2),PEJ(3),PEJ(4)) + +C FILL /CPTL/ +C ----------- + DO 49 LO=1,2 + NPTL=NPTL+1 + IF ( LO .EQ. 1 ) THEN + IJ=I + PPTL(1,NPTL)=PEI(1) + PPTL(2,NPTL)=PEI(2) + PPTL(3,NPTL)=PEI(3) + PPTL(4,NPTL)=PEI(4) + PPTL(5,NPTL)=PEI(5) + ELSE + IJ=J + PPTL(1,NPTL)=PEJ(1) + PPTL(2,NPTL)=PEJ(2) + PPTL(3,NPTL)=PEJ(3) + PPTL(4,NPTL)=PEJ(4) + PPTL(5,NPTL)=PEJ(5) + ENDIF + ISTPTL(NPTL) =0 + IDPTL(NPTL) =IDPTL(IJ) + IBPTL(1,NPTL)=IBPTL(1,IJ) + IBPTL(2,NPTL)=IBPTL(2,IJ) + IBPTL(3,NPTL)=IBPTL(3,IJ) + IBPTL(4,NPTL)=IBPTL(4,IJ) + XORPTL(1,NPTL)=XAVER(1) + XORPTL(2,NPTL)=XAVER(2) + XORPTL(3,NPTL)=XAVER(3) + XORPTL(4,NPTL)=XAVER(4) + IORPTL(NPTL)=I + JORPTL(NPTL)=J + TIVPTL(1,NPTL)=XAVER(4) + CALL IDTAU(IDPTL(NPTL),PPTL(4,NPTL),PPTL(5,NPTL),TAUGM) + TIVPTL(2,NPTL)=TIVPTL(1,NPTL)+TAUGM + IFRPTL(1,NPTL)=0 + IFRPTL(2,NPTL)=0 + ICLPTL(NPTL)=ICLPTL(IJ) + NQJPTL(NPTL)=NQJPTL(IJ) + IF ( ISH .GE. 91 ) WRITE(IFCH,115)NPTL,IDPTL(NPTL) + * ,(PPTL(K,NPTL),K=3,5),(XORPTL(K,NPTL),K=3,4) +49 CONTINUE + +1000 RETURN + END +C======================================================================= + + SUBROUTINE JINTFP(I,J,N, XPL1,YPL1,RADPL1,OPL1,UPL1, + * XPL2,YPL2,RADPL2,OPL2,UPL2,XPL3,YPL3,RADPL3,OPL3,UPL3) + +C---------------------------------------------------------------------- +C PRINTOUT +C---------------------------------------------------------------------- + PARAMETER (MXPTL=70000) + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + DOUBLE PRECISION DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /CTTAUS/ DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + + REAL OPL(3),RADPL(3),UPL(3),XPL(3),YPL(3) + CHARACTER AX*10,LIN*59,MARK*1,TXT*8 + SAVE +C---------------------------------------------------------------------- + XPL(1) =XPL1 + YPL(1) =YPL1 + RADPL(1)=RADPL1 + OPL(1) =OPL1 + UPL(1) =UPL1 + XPL(2) =XPL2 + YPL(2) =YPL2 + RADPL(2)=RADPL2 + OPL(2) =OPL2 + UPL(2) =UPL2 + XPL(3) =XPL3 + YPL(3) =YPL3 + RADPL(3)=RADPL3 + OPL(3) =OPL3 + UPL(3) =UPL3 + + V1=(OPL1-UPL1)*RADPL1**2*PI + V2=(OPL2-UPL2)*RADPL2**2*PI + V3=(OPL3-UPL3)*RADPL3**2*PI + + WRITE(IFCH,103)SNGL(TTAUS) +103 FORMAT(' MONITORING FUSION INTERACTION AT TTAUS=',F5.2) + TX=TTAUS + TX=MAX(TX,1.) + WRITE(TXT(3:7),104)TX +104 FORMAT(F5.2) + WRITE(IFCH,105)'INCOMING:',I,IDPTL(I),PPTL(5,I),V1,PPTL(5,I)/V1 + WRITE(IFCH,105)'INCOMING:',J,IDPTL(J),PPTL(5,J),V2,PPTL(5,J)/V2 + WRITE(IFCH,105)'FUSED: ',N,IDPTL(N),PPTL(5,N),V3,PPTL(5,N)/V3 +105 FORMAT(1X,A9,2X,'NR=',I6,2X,'ID=',I9,2X,'MASS=',F5.1,2X + * ,'VOL=',F5.1,2X,'EPS=',F4.1) + + DO 110 MM=1,3 + IF ( MM .EQ. 1 ) THEN + TXT(1:2)='S/' + TXT(8:8)=':' + ELSEIF ( MM .EQ. 2 ) THEN + TXT='X: ' + ELSEIF ( MM .EQ. 3 ) THEN + TXT='Y: ' + ENDIF + AX='---------!' + WRITE(IFCH,100)TXT,(AX,L=1,6) +100 FORMAT(2X,A8,3X,'-3',8X,'-2',8X,'-1',9X,'0',9X,'1',9X,'2',9X,'3' + * /13X,' !',6A10) + DO 109 K=1,3 + DO 108 L=1,59 + WO=-3.+L*0.1 + 0.05 + WU=-3.+L*0.1 - 0.05 + IF ( MM .EQ. 1 ) THEN + O=OPL(K)/TX + U=UPL(K)/TX + ELSEIF ( MM .EQ. 2 ) THEN + O=XPL(K)+RADPL(K) + U=XPL(K)-RADPL(K) + ELSEIF ( MM .EQ. 3 ) THEN + O=YPL(K)+RADPL(K) + U=YPL(K)-RADPL(K) + ENDIF + IF ( K .EQ. 3 ) THEN + MARK='X' + ELSE + MARK='O' + ENDIF + IF ( WU .LE. O .AND. WO .GE. U ) THEN + LIN(L:L)=MARK + ELSE + LIN(L:L)=' ' + ENDIF +108 CONTINUE + WRITE(IFCH,101)U,O,LIN +101 FORMAT(1X,2F6.2,' !',A59,'!') +109 CONTINUE + WRITE(IFCH,102)('-',L=1,59) +102 FORMAT(13X,' !',59A1,'!') +110 CONTINUE + + RETURN + END +C======================================================================= + + SUBROUTINE JINTFS(I,J,NQI,JC,AMIM,IRET) + +C---------------------------------------------------------------------- +C INPUT: PTL NUMBERS I,J +C OUTPUT: PPFUS(5): MOMENTUM , NQI: NET QUARK NUMBER, +C JC: JC-CODE, AMIM: MINIMUM MASS, OF FUSED PTL +C IRET=0 IF OK, 1 ELSE +C PPFUS() WRITTEN TO PPTL(,NPTL+1) +C---------------------------------------------------------------------- + PARAMETER (MXPTL=70000) + PARAMETER (NFLAV=6) + COMMON /CJINT/ BX,BY,RNUP,RNUT,VELP,VELT,XAVER(4),NPTL0 + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + DOUBLE PRECISION PPFUS(5),PP52 + REAL P(5) + INTEGER JC(NFLAV,2),JCI(NFLAV,2),JCJ(NFLAV,2) + SAVE +C---------------------------------------------------------------------- + IRET=0 + + P(1)=PPTL(1,I)+PPTL(1,J) + PPFUS(1)=P(1) + P(2)=PPTL(2,I)+PPTL(2,J) + PPFUS(2)=P(2) + P(3)=PPTL(3,I)+PPTL(3,J) + PPFUS(3)=P(3) + P(4)=PPTL(4,I)+PPTL(4,J) + PPFUS(4)=P(4) + PP52=PPFUS(4)**2-PPFUS(3)**2-PPFUS(2)**2-PPFUS(1)**2 + IF ( PP52 .LE. 0.D0 ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JINTFS') + WRITE(IFCH,*)'***** MFUS**2 < 0 (',PP52,' )' + WRITE(IFCH,*)(PPFUS(M),M=1,4) + CALL UTMSGF + ENDIF + GOTO 1001 + ENDIF + PPFUS(5)=SQRT(PP52) + IF ( NPTL+1 .GT. MXPTL ) THEN + CALL UTSTOP('JINTFS: NPTL>MXPTL ') + ENDIF + DO 36 K=1,5 + PPTL(K,NPTL+1)=PPFUS(K) +36 CONTINUE + AMF=PPFUS(5) + + ISTPTL(NPTL+1)=0 + + CALL IDQUAC(I,NDUMMY,NDUMMY,NDUMMY,JCI) + CALL IDQUAC(J,NDUMMY,NDUMMY,NDUMMY,JCJ) + NQI=0 + DO 29 N=1,NFLAV + JC(N,1)=JCI(N,1)+JCJ(N,1) + JC(N,2)=JCI(N,2)+JCJ(N,2) + NQI=NQI+JC(N,1)-JC(N,2) +29 CONTINUE + + CALL IDCOMJ(JC) + AMIM=UTAMNZ(JC,5)+.200 + IF ( AMF.LT.AMIM .AND. I.GT.NPTL0 .AND. J.GT.NPTL0 ) GOTO 1001 + GOTO 1000 + +1001 IRET=1 + +1000 RETURN + END +C======================================================================= + + SUBROUTINE JINTFU(I,J,JC,IACTN) + +C---------------------------------------------------------------------- +C FUSION OF PTLS I,J: DETERMINE CLUSTER +C---------------------------------------------------------------------- + PARAMETER (MXDKY=2000) + PARAMETER (MXLOOK=10000) + PARAMETER (MXPTL=70000) + PARAMETER (NFLAV=6) + COMMON /CJINT/ BX,BY,RNUP,RNUT,VELP,VELT,XAVER(4),NPTL0 + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /CTIMEL/ NTC + DOUBLE PRECISION DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /CTTAUS/ DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /DKYTAB/ CBR(MXDKY),LOOK(MXLOOK),MODE(5,MXDKY) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + INTEGER IB(4),IC(2),JC(NFLAV,2) + SAVE +C---------------------------------------------------------------------- +C PRINT +C ----- + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,101)NTC,SNGL(TTAUS) +101 FORMAT(1X,'FUSION INTERACTION --- NT=',I3,' --- TAUS=',F6.2) + WRITE(IFCH,115)I,IDPTL(I) + * ,(PPTL(K,I),K=3,5),(XORPTL(K,I),K=3,4) + WRITE(IFCH,115)J,IDPTL(J) + * ,(PPTL(K,J),K=3,5),(XORPTL(K,I),K=3,4) +115 FORMAT(1X,'/CPTL/',I6,I10 + * ,1X,2(E10.2),E11.3,1X,2(E10.2),2X,I4) + ENDIF + +C INITIALIZATION +C -------------- + IACTN=3 + AMF=PPTL(5,NPTL+1) + NPTL=NPTL+1 + +C DETERMINE IDR, IB(1-4) +C ---------------------- + IDR=0 + DO 40 NF=1,NFLAV + IF ( JC(NF,1) .GE. 10 ) IDR=700000000 + IF ( JC(NF,2) .GE. 10 ) IDR=700000000 +40 CONTINUE + IF ( IDR/100000000 .NE. 7 ) THEN + CALL IDENCO(JC,IC,IRETEN) + IF ( IRETEN .EQ. 1 ) THEN + CALL UTSTOP('JINTFU: IDENCO RET CODE = 1 ') + ENDIF + ID=IDTRA(IC,0,0,3) +43 AMC=AMF + CALL IDRES(ID,AMC,IDR,IADJ) + IF ( IDR .NE. 0 ) THEN + LID=LOOK(IABS(IDR)) + IF ( LID.LE.0 .OR. LID.GT.0 .AND. MODE(2,LID).EQ.0 ) THEN + IF ( PPTL(5,NPTL) .GT. AMC+1.E-3 ) THEN + AMF=AMF+0.010 + GOTO 43 + ENDIF + IF ( ABS(AMC-PPTL(5,NPTL)) .GT. 1.E-3 ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JINTFU') + WRITE(IFCH,*)'***** NOT ON MASS SHELL AFTER FUSION: ' + * ,PPTL(5,NPTL),AMC + CALL UTMSGF + ENDIF + ENDIF + ENDIF + ENDIF + IF ( IDR .EQ. 0 ) THEN + IF ( MOD(IC(1),100).NE.0 .OR. MOD(IC(2),100).NE.0 ) THEN + IDR=900000000 + ELSE + IDR=800000000+IC(1)*100+IC(2)/100 + ENDIF + ENDIF + ELSE + CALL IDTRBI(JC,IB(1),IB(2),IB(3),IB(4)) + IDR=IDR + * +MOD(JC(1,1)+JC(2,1)+JC(3,1)+JC(4,1),10000)*10000 + * +MOD(JC(1,2)+JC(2,2)+JC(3,2)+JC(4,2),10000) + IF ( ISH .GE. 93 ) WRITE(IFCH,*) 'IB:',(IB(KK),KK=1,4) + IBPTL(1,NPTL)=IB(1) + IBPTL(2,NPTL)=IB(2) + IBPTL(3,NPTL)=IB(3) + IBPTL(4,NPTL)=IB(4) + ENDIF + +C FILL /CPTL/ +C ----------- + IDPTL(NPTL)=IDR + XORPTL(1,NPTL)=XAVER(1) + XORPTL(2,NPTL)=XAVER(2) + XORPTL(3,NPTL)=XAVER(3) + XORPTL(4,NPTL)=XAVER(4) + IORPTL(NPTL)=I + JORPTL(NPTL)=J + TIVPTL(1,NPTL)=XAVER(4) + CALL IDTAU(IDPTL(NPTL),PPTL(4,NPTL),PPTL(5,NPTL),TAUGM) + TIVPTL(2,NPTL)=TIVPTL(1,NPTL)+TAUGM + IFRPTL(1,NPTL)=0 + IFRPTL(2,NPTL)=0 + ICLPTL(NPTL)=1 + NQJPTL(NPTL)=0 + +C PRINT + RETURN +C -------------- + IF ( ISH .GE. 91 ) THEN + N=NPTL + WRITE(IFCH,115)N,IDPTL(N) + * ,(PPTL(K,N),K=3,5),(XORPTL(K,N),K=3,4) + ENDIF + RETURN + END +C======================================================================= + + SUBROUTINE JINTPA(I,J,KMAX) + +C---------------------------------------------------------------------- +C WRITES PARENTS OF I,J TO IFRIJ(1-KMAX) +C SETS IAAPTL()=0 FOR PARENTS +C---------------------------------------------------------------------- + PARAMETER (MXPTL=70000) + PARAMETER (MXIFR=MXPTL) + COMMON /CIFRIJ/ IFRIJ(MXIFR) + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /C2PTL/ AMIPTL(MXPTL),RADPTL(MXPTL),IAAPTL(MXPTL) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + SAVE +C---------------------------------------------------------------------- + KCUR=0 + KMAX=0 + LOOP=0 +12 LOOP=LOOP+1 + IF ( LOOP .EQ. 1 ) THEN + N=I + ELSEIF ( LOOP .EQ. 2 ) THEN + N=J + ENDIF + IF ( IORPTL(N) .GT. 0 ) THEN + IF ( ISH .GE. 92 ) WRITE(IFCH,*)N,' <--- ',IORPTL(N),JORPTL(N) + IF ( KMAX+2 .GT. MXIFR ) THEN + CALL UTSTOP('JINTPA: KMAX+2 > MXIFR ') + ENDIF + IF ( IAAPTL(IORPTL(N)) .NE. 0 ) THEN + KMAX=KMAX+1 + IFRIJ(KMAX)=IORPTL(N) + IAAPTL(IORPTL(N))=0 + ENDIF + IF ( JORPTL(N) .GT. 0 ) THEN + IF ( IAAPTL(JORPTL(N)) .NE. 0 ) THEN + KMAX=KMAX+1 + IFRIJ(KMAX)=JORPTL(N) + IAAPTL(JORPTL(N))=0 + ENDIF + ENDIF + ENDIF + IF ( LOOP .EQ. 1 ) GOTO 12 +8 KCUR=KCUR+1 + IF ( KCUR .LE. KMAX ) THEN + N=IFRIJ(KCUR) + IF ( IAAPTL(N) .NE. 0 ) THEN + CALL UTSTOP('JINTPA: SHOULD NOT HAPPEN ') + ENDIF + GOTO 12 + ENDIF + + RETURN + END +C======================================================================= + + SUBROUTINE JRESCL(J1,J2,PSUM,IFAIL) + +C----------------------------------------------------------------------- +C RESCALES PTL MOMENTA OF PTLS J1-J2 TO HAVE TOTAL MOM PSUM. +C----------------------------------------------------------------------- + PARAMETER (MXPTL=70000) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /CSCAL/ SCAL + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + DOUBLE PRECISION ENE,PADD(5),PP(5),PPSUM(5) + REAL PSUM(5) + DATA ERRLIM/.001/ + SAVE +C----------------------------------------------------------------------- + IFAIL=1 + + IF ( J1 .GE. J2 ) THEN + CALL UTSTOP('JRESCL: J1 .GE. J2 ') + ENDIF + + DO 100 K=1,5 + PPSUM(K)=PSUM(K) + PADD(K)=0.D0 +100 CONTINUE + DO 110 J=J1,J2 + DO 110 K=1,5 + PADD(K)=PADD(K)+PPTL(K,J) +110 CONTINUE + IF ( PADD (5) .GE. PPSUM(5) ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JRESCL') + WRITE(IFCH,*)'***** SUM OF PTL MASSES .GE. PPSUM(5)' + DO 1 J=J1,J2 + WRITE(IFCH,109)J,IDPTL(J),(PPTL(L,J),L=3,5) +109 FORMAT(' /CPTL/',I6,I10,3(E11.3)) + 1 CONTINUE + WRITE(IFCH,*)'PPSUM(345):',(SNGL(PPSUM(K)),K=3,5) + CALL UTMSGF + ENDIF + RETURN + ENDIF + PADD(5)=PADD(4)**2-PADD(1)**2-PADD(2)**2-PADD(3)**2 + IF ( PADD(5) .LE. 0.D0 ) THEN + ENE = 0.D0 + DO 111 J=J1,J2 + ENE = ENE + DSQRT( PPTL(1,J)**2 + PPTL(2,J)**2 + * + DBLE(PPTL(3,J))**2 + PPTL(5,J)**2 ) +111 CONTINUE + PADD(5) = ENE**2 - PADD(1)**2 - PADD(2)**2 - PADD(3)**2 + IF ( PADD(5) .LE. 0.D0 ) THEN + DO 2 J=J1,J2 + WRITE(IFCH,108)J,(PPTL(L,J),L=1,5) +108 FORMAT(' /CPTL/',I4,5(E11.3)) + 2 CONTINUE + CALL UTSTOP('JRESCL: MASS**2 OF STRING-SUM NEGATIVE ') + ENDIF + ENDIF + PADD(5)=SQRT(PADD(5)) + +C BOOST PTLS TO REST +C ------------------ + DO 200 J=J1,J2 + PP(1)=PPTL(1,J) + PP(2)=PPTL(2,J) + PP(3)=PPTL(3,J) + PP(4)=PPTL(4,J) + CALL UTLOB2(1,PADD(1),PADD(2),PADD(3),PADD(4),PADD(5) + * ,PP(1),PP(2),PP(3),PP(4)) + PPTL(1,J)=PP(1) + PPTL(2,J)=PP(2) + PPTL(3,J)=PP(3) + PPTL(4,J)=PP(4) +200 CONTINUE + +C RESCALE MOMENTA IN REST FRAME +C ----------------------------- + SCAL=1. + DO 301 IPASS=1,200 + SUM=0. + DO 310 J=J1,J2 + PPTL(1,J)=SCAL*PPTL(1,J) + PPTL(2,J)=SCAL*PPTL(2,J) + PPTL(3,J)=SCAL*PPTL(3,J) + PPTL(4,J)=SQRT(PPTL(1,J)**2+PPTL(2,J)**2+PPTL(3,J)**2 + * +PPTL(5,J)**2) + SUM=SUM+PPTL(4,J) +310 CONTINUE + SCAL=PSUM(5)/SUM + IF ( ABS(SCAL-1.) .LE. ERRLIM ) GOTO 300 +301 CONTINUE + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JRESCL') + WRITE(IFCH,*)'***** SCAL=',SCAL + CALL UTMSGF + ENDIF +300 CONTINUE + +C BOOST BACK WITH PPSUM +C --------------------- + DO 330 J=J1,J2 + PP(1)=PPTL(1,J) + PP(2)=PPTL(2,J) + PP(3)=PPTL(3,J) + PP(4)=PPTL(4,J) + CALL UTLOB2(-1,PPSUM(1),PPSUM(2),PPSUM(3),PPSUM(4),PPSUM(5) + * ,PP(1),PP(2),PP(3),PP(4)) + PPTL(1,J)=PP(1) + PPTL(2,J)=PP(2) + PPTL(3,J)=PP(3) + PPTL(4,J)=PP(4) +330 CONTINUE + + IFAIL=0 + RETURN + END +C======================================================================= + + SUBROUTINE JSPLIT(STRO,STR,KOLSP,IER,KMAXOR) + +C----------------------------------------------------------------------- +C SPLITS STRING STRO INTO Q-QBAR STRING STR AND REMAINDER (->STRO) +C DIMENSIONS: STRO(NSI,NSIX+1),STR(NSI,2) +C IER=0: OK ; IER=1: ERROR ; IER=2: ABSORPTION ; +C IER=3: AGAIN WITH NEW APART, EPART +C----------------------------------------------------------------------- + PARAMETER (MAMX=56) + PARAMETER (NFLAV=6) + PARAMETER (NPTF=129) + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + PARAMETER (NHA=NSIX+2) + PARAMETER (NSPLIT=129) + COMMON /CJSPLI/ ALEAD,APART,ELEAD,EPART,SGNSIL,JPART,NSCC,NSCCX + COMMON /CNFUSN/ NFUSN(NSIX+1) + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CPROJA/ IPROJ,ITARG,KPROJA(NHA,MAMX),KTARGA(NHA,MAMX) + COMMON /CPTF/ FPTFS,FPTFSS,FPTFU,FPTFUS,FPTFUU + * ,QPTFS(NPTF),QPTFSS(NPTF),QPTFU(NPTF),QPTFUS(NPTF) + * ,QPTFUU(NPTF),XPTF(NPTF) + COMMON /CPZSTR/ ESTRL,PZSTRL,ISEA,ISTRL + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /QUARKM/ SMAS,SSMAS,USMAS,UUMAS + + DOUBLE PRECISION A,D,DAUXIL,PAM,PAP,PEM,PEP,PIM,PIP,PNL3,PNL4 + * ,PM,PO(5),POM,POP,POT,POX,POY,PO123,PP + * ,PUM,PUP,PUT,PUX,PUY,PYM,PYP,SSTR(NSI,2) + REAL STR(NSI,2),STRO(NSI,NSIX+1),STRO0(NSI,NSIX+1) + INTEGER IC(2),ICX(2),JC(NFLAV,2),JCX(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + PUDX=PUD*.945 + ISH0=ISH + IF ( ISHSUB/100 .EQ. 15 ) ISH=MOD(ISHSUB,100) + + CALL UTKSTR(STRO,KMAX) + IF ( KMAX .EQ. KMAXOR ) THEN + NSCC=0 + IF ( JPART .EQ. 0 ) THEN + DO 5 I=1,KMAXOR + NFUSN(I)=0 + 5 CONTINUE + ENDIF + ENDIF + KMAX0=KMAX + DO 10 K=1,KMAX + DO 10 I=1,NSI + STRO0(I,K)=STRO(I,K) +10 CONTINUE +C-C PDIQ=PDIQUA*0.5 +C-C IF ( KMAXOR .GT. KUTDIQ ) PDIQ=0. +C-C PDIQ=PDIQUA*0.5*NSCCX/(KMAXOR-1.) + PDIQ=0. + LOOP=0 + NCORN=0 + XUNTER=0. + XOBER=1. + MESSCO=0 + IF ( SGNSIL .LT. 0. ) THEN + KOLSP=KTARGA(KMAX+1,ITARG) + ELSE + KOLSP=KPROJA(KMAX+1,IPROJ) + ENDIF + PAP=2.D0*EPART + PAM=0.D0 + PUX=STRO(1,KMAX) + PUY=STRO(2,KMAX) + PUT=SQRT(PUX**2+PUY**2) + PUP=STRO(4,KMAX)-ABS(STRO(3,KMAX)) + PUM=STRO(4,KMAX)+ABS(STRO(3,KMAX)) + +C PRINT +C ----- + IF ( ISH .GE. 92 ) THEN + IF ( ISH .GE. 93 ) WRITE(IFCH,*)('-',L=1,79) + WRITE(IFCH,*)'MULTI-STRING DETECTED. SPLIT OFF Q-QBAR STRING:' + IF ( ISH .GE. 93 ) WRITE(IFCH,*)('-',L=1,79) + WRITE(IFCH,*)' ' + IF ( ISH .GE. 93 ) THEN + WRITE(IFCH,*)'INPUT STRING STRO:' + WRITE(IFCH,*)' ' + WRITE(IFCH,105)(STRO(I,1),I=1,4),(NINT(STRO(I,1)),I=5,6) + DO 8 K=2,KMAX + WRITE(IFCH,104)(STRO(I,K),I=1,4),(NINT(STRO(I,K)),I=5,6) + 8 CONTINUE + WRITE(IFCH,*)' ' + ENDIF + ENDIF + +C ABSORPTION +C ---------- + IF ( ISTRL .EQ. 1 ) GOTO 1002 + +C RESET +C ----- +5001 LOOP=0 +5000 LOOP=LOOP+1 + IF ( LOOP .GE. 5 ) GOTO 1002 + KMAX=KMAX0 + DO 11 I=1,NSI + DO 11 K=1,KMAX + STRO(I,K)=STRO0(I,K) +11 CONTINUE + +C SPLIT OFF HADRON + DETERMINE REMAINDER STRING (MOMENTA) +C ------------------------------------------------------- + IF ( RANGEN() .LT. PDIQ ) THEN + NQU=2 + ELSE + NQU=1 + ENDIF + IFLTT=0 + IFLTO=0 + DO 24 I=1,NQU + IFL=INT(RANGEN()/PUDX)+1 + IFLTO=IFLTO*10+IFL + IFLTT=IFLTT*10+(IFL+1)/2 +24 CONTINUE + R=RANGEN() + IF ( IFLTT .EQ. 1 ) THEN + IF ( IOPTF .EQ. 1 ) THEN + PT=UTINVT(NPTF,XPTF,QPTFU ,R*QPTFU(NPTF)) +C## WRITE(IFCH,*)'JSPLIT:PT(OLD)=',PT + ELSE + RPT = R*FPTFU + AUXIL=-4.*PTF**2/PI + PT=SQRT(AUXIL*LOG(1.+RPT*2./AUXIL)) + ENDIF + ELSEIF ( IFLTT .EQ. 2 ) THEN + IF ( IOPTF .EQ. 1 ) THEN + PT=UTINVT(NPTF,XPTF,QPTFS ,R*QPTFS(NPTF)) + ELSE + RPT = R*FPTFS + AUXIL=-4.*PTF**2/PI + PT=SQRT(AUXIL*LOG(EXP( SMAS**2/AUXIL)+RPT*2./AUXIL)- SMAS**2) + ENDIF + ELSEIF ( IFLTT .EQ. 11 ) THEN + IF ( IOPTF .EQ. 1 ) THEN + PT=UTINVT(NPTF,XPTF,QPTFUU,R*QPTFUU(NPTF)) + ELSE + RPT = R*FPTFUU + AUXIL=-4.*PTF**2/PI + PT=SQRT(AUXIL*LOG(EXP(UUMAS**2/AUXIL)+RPT*2./AUXIL)-UUMAS**2) + ENDIF + ELSEIF ( IFLTT .EQ. 12 .OR. IFLTT .EQ. 21 ) THEN + IF ( IOPTF .EQ. 1 ) THEN + PT=UTINVT(NPTF,XPTF,QPTFUS,R*QPTFUS(NPTF)) + ELSE + RPT = R*FPTFUS + AUXIL=-4.*PTF**2/PI + PT=SQRT(AUXIL*LOG(EXP(USMAS**2/AUXIL)+RPT*2./AUXIL)-USMAS**2) + ENDIF + ELSEIF ( IFLTT .EQ. 22 ) THEN + IF ( IOPTF .EQ. 1 ) THEN + PT=UTINVT(NPTF,XPTF,QPTFSS,R*QPTFSS(NPTF)) + ELSE + RPT = R*FPTFSS + AUXIL=-4.*PTF**2/PI + PT=SQRT(AUXIL*LOG(EXP(SSMAS**2/AUXIL)+RPT*2./AUXIL)-SSMAS**2) + ENDIF + ENDIF + AT=SQRT(APART**2+PT**2) + R=RANGEN() + AUXIL=2.*R-1. + IF ( AUXIL .LT. 0. ) THEN + X = SQRT( 0.5-COS( (ACOS(-AUXIL)+PI)*.33333333 ) ) + ELSE + X = SQRT( 0.5+COS( (ACOS(AUXIL)+PI)*.33333333 ) ) + ENDIF + IF ( ESTRL .LE. ABS(PZSTRL) ) THEN + XUNTER=1. + ELSE + YSTRL=.5*LOG((ESTRL+PZSTRL)/(ESTRL-PZSTRL)) + XUNTER=ABS(0.94*SINH(YSTRL))/EPART + IF ( XUNTER .GT. 1. ) XUNTER=1. + ENDIF + XUNTER=XUNTER-(XOBER-XUNTER) + X=XUNTER+X*(XOBER-XUNTER) +C-C EN=APART+X*(EPART-APART) + PZ=X*EPART + IF ( PZ .LT. 0. ) THEN + SGNPO=-1. + ELSE + SGNPO=1. + ENDIF + EN=SQRT(PZ**2+AT**2) +C-C IF ( AT .GT. EN ) AT=APART+RANGEN()*(EN-APART) +C-C PT=SQRT((AT-APART)*(AT+APART)) + PHI=2.*PI*RANGEN() + PO(1)=PT*COS(PHI) + PO(2)=PT*SIN(PHI) +C-C PO(3)=SGNSIL*SQRT(EN**2-AT**2) + PO(3)=SGNSIL*PZ + PO(4)=EN + PO123=SQRT(PO(3)**2+PO(2)**2+PO(1)**2) + IF ( PO(4)-PO123 .GT. 0.D0 ) THEN + PO(5)=SQRT((PO(4)-PO123)*(PO(4)+PO123)) + ELSE + PO(5)=0.D0 + IF ( PO(4)-PO123 .LT. -1.D-4*PO(4) ) THEN + IF(ISH.GE.90)THEN + CALL UTMSG('JSPLIT') + WRITE(IFCH,*)'***** !PO123! > PO4' + WRITE(IFCH,*)'PO123,PO4:',PO123,PO(4) + WRITE(IFCH,*)'PO1:',PO(1) + WRITE(IFCH,*)'PO2:',PO(2) + WRITE(IFCH,*)'PO3:',PO(3) + WRITE(IFCH,*)'PO5:',PO(5) + CALL UTMSGF + ENDIF + ENDIF + ENDIF + POX=PO(1) + POY=PO(2) + POT=SQRT(POX**2+POY**2) + POP=PO(4)+ABS(PO(3))*SGNPO + POM=PO(4)-ABS(PO(3))*SGNPO + STRO(1,1)=STRO(1,1)+PO(1) + STRO(2,1)=STRO(2,1)+PO(2) + STRO(3,1)=STRO(3,1)-EPART*SGNSIL +PO(3) + STRO(4,1)=STRO(4,1)-EPART +PO(4) + STRO(1,KMAX)=0. + STRO(2,KMAX)=0. + STRO(3,KMAX)=0. + STRO(4,KMAX)=0. + IF ( PO(4)-ABS(PO(3)) .GT. 0.D0 ) THEN + YLD=0.5*LOG((PO(4)+ABS(PO(3)))/(PO(4)-ABS(PO(3)))) + ELSE + YLD=100. + ENDIF + +C DETERMINE SPLIT STRING (MOMENTA) +C -------------------------------- + PP=PAP+PUP + PM=PAM+PUM + PEP=PP-POP + PEM=PM-POM + IF ( PEP .LE. 0.D0 ) GOTO 5000 + IF ( PEM .LE. 0.D0 ) GOTO 5000 + A=(PEM*PEP-PUT**2-POT**2)*0.5D0 + D=PUT*POT + DAUXIL = A**2-D**2 + IF ( DAUXIL .LT. 0.D0 ) GOTO 5000 + DAUXIL=SQRT(DAUXIL) + PYP=A+PUT**2-DAUXIL + IF ( PYP .LT. 0.D0 .AND. PYP .GT. -1.D-6 ) PYP=0.D0 + PYP=PYP/PEM + PYM=A+POT**2-DAUXIL + IF ( PYM .LT. 0.D0 .AND. PYM .GT. -1.D-6 ) PYM=0.D0 + PYM=PYM/PEP + IF ( PYP .LT. 0.D0 ) GOTO 5000 + IF ( PYM .LT. 0.D0 ) GOTO 5000 + PIP=PEP-PYP + IF ( PIP .LT. 0.D0 ) GOTO 5000 + PIM=PYM + PAP=PYP + PAM=PEM-PYM + IF ( PAM .LT. 0.D0 ) GOTO 5000 + SSTR(1,1)=-POX + SSTR(2,1)=-POY + SSTR(3,1)=SGNSIL*(PIP-PIM)*0.5D0 + SSTR(4,1)=(PIP+PIM)*0.5D0 + SSTR(1,2)=PUX + SSTR(2,2)=PUY + SSTR(3,2)=SGNSIL*(PAP-PAM)*0.5D0 + SSTR(4,2)=(PAP+PAM)*0.5D0 + PNL3=SSTR(3,1)+SSTR(3,2) + PNL4=SSTR(4,1)+SSTR(4,2) + IF ( PNL4-ABS(PNL3) .NE. 0. ) THEN + YNL=0.5*LOG((PNL4+ABS(PNL3))/(PNL4-ABS(PNL3))) + ELSE + YNL=100. + ENDIF + STR(1,1)=SSTR(1,1) + STR(2,1)=SSTR(2,1) + STR(3,1)=SSTR(3,1) + STR(4,1)=SSTR(4,1) + STR(1,2)=SSTR(1,2) + STR(2,2)=SSTR(2,2) + STR(3,2)=SSTR(3,2) + STR(4,2)=SSTR(4,2) + +C CHECKS +C ------ + IF ( ISH .GE. 90 ) THEN + IF ( ABS(PIP*PIM-POT**2) .GT. 1.D-4 ) THEN + CALL UTMSG('JSPLIT') + WRITE(IFCH,*)'***** PIP*PIM /= POT**2' + WRITE(IFCH,*)'PIP*PIM=',PIP*PIM + WRITE(IFCH,*)'POT**2=',POT**2 + WRITE(IFCH,*)'PIP=',PIP + WRITE(IFCH,*)'PIM=',PIM + WRITE(IFCH,*)'POT=',POT + CALL UTMSGF + ENDIF + IF ( ABS(PAP*PAM-PUT**2) .GT. 1.D-4 ) THEN + CALL UTMSG('JSPLIT') + WRITE(IFCH,*)'***** PAP*PAM /= PUT**2' + WRITE(IFCH,*)'PAP*PAM=',PAP*PAM + WRITE(IFCH,*)'PUT**2=',PUT**2 + WRITE(IFCH,*)'PAP=',PAP + WRITE(IFCH,*)'PAM=',PAM + WRITE(IFCH,*)'PUT=',PUT + CALL UTMSGF + ENDIF + IF ( ABS(SSTR(4,1)**2 + * -SSTR(1,1)**2-SSTR(2,1)**2-SSTR(3,1)**2) .GT. 1.D-4 ) THEN + CALL UTMSG('JSPLIT') + WRITE(IFCH,*)'***** MASS**2 OF STRING END 1 NONZERO' + WRITE(IFCH,*)'MASS**2=',SSTR(4,1)**2 + * -SSTR(1,1)**2-SSTR(2,1)**2-SSTR(3,1)**2 + CALL UTMSGF + ENDIF + IF ( ABS(SSTR(4,2)**2 + * -SSTR(1,2)**2-SSTR(2,2)**2-SSTR(3,2)**2) .GT. 1.D-4 ) THEN + CALL UTMSG('JSPLIT') + WRITE(IFCH,*)'***** MASS**2 OF STRING END 2 NONZERO' + WRITE(IFCH,*)'MASS**2=',SSTR(4,2)**2 + * -SSTR(1,2)**2-SSTR(2,2)**2-SSTR(3,2)**2 + CALL UTMSGF + ENDIF + DO 14 N=1,4 + + IF ( ABS(STR(N,1)+STRO(N,1)-STRO0(N,1) + * +STR(N,2)+STRO(N,KMAX)-STRO0(N,KMAX)) .GT. 1.E-4 + * .AND. ABS(STR(N,1)+STRO(N,1)-STRO0(N,1) + * +STR(N,2)+STRO(N,KMAX)-STRO0(N,KMAX)) + * .GT. 1.E-4*ABS(STRO0(N,1)+STRO0(N,KMAX)) ) GOTO 15 +14 CONTINUE + GOTO 16 +15 CONTINUE + CALL UTMSG('JSPLIT') + WRITE(IFCH,*)'***** P_STR + P_STRO /= P_STRO0' + WRITE(IFCH,*)'P_STR + P_STRO:' + WRITE(IFCH,104)((STR(N,1)+STR(N,2)+STRO(N,1) + * +STRO(N,KMAX)),N=1,4) + WRITE(IFCH,*)'P_STRO0:' + WRITE(IFCH,104)((STRO0(N,1)+STRO0(N,KMAX)),N=1,4) + WRITE(IFCH,*)'STR:' + WRITE(IFCH,104)(STR(N,1),N=1,4) + WRITE(IFCH,104)(STR(N,2),N=1,4) + WRITE(IFCH,*)'STRO:' + WRITE(IFCH,104)(STRO(N,1),N=1,4) + WRITE(IFCH,104)(STRO(N,KMAX),N=1,4) + WRITE(IFCH,*)'STRO0:' + WRITE(IFCH,104)(STRO0(N,1),N=1,4) + WRITE(IFCH,104)(STRO0(N,KMAX),N=1,4) + CALL UTMSGF +16 CONTINUE + IF ( ISH .GE. 93 ) THEN + WRITE(IFCH,100)APART,EPART,EN,PT +100 FORMAT(3X,'APART,EPART,EN,PT:',4F13.5) + WRITE(IFCH,101)(SNGL(PO(K)),K=1,5) +101 FORMAT(3X,'PO:',5F11.5/) + IF ( NQU .EQ. 2 ) THEN + WRITE(IFCH,*)'DIQUARK-ANTIDIQUARK BREAK' + WRITE(IFCH,*)' ' + ENDIF + ENDIF + ENDIF + +C FLAVOUR +C ------- + IC(1)=NINT(ABS(STRO(4+1,KMAX))) + IC(2)=NINT(ABS(STRO(4+2,KMAX))) + STR(4+1,2)=IC(1) + STR(4+2,2)=IC(2) + DO 4 N=1,NFLAV + JCX(N,1)=0 + JCX(N,2)=0 +4 CONTINUE + M=0 + IF ( NQU .EQ. 1 ) THEN + IF ( IC(1) .GT. 0 ) M=2 + IF ( IC(2) .GT. 0 ) M=1 + NFL=MOD(IFLTO,10) + JCX(NFL,M)=JCX(NFL,M)+1 + ELSEIF ( NQU .EQ. 2 ) THEN + IF ( IC(1) .GT. 0 ) M=1 + IF ( IC(2) .GT. 0 ) M=2 + NFL=MOD(IFLTO,10) + JCX(NFL,M)=JCX(NFL,M)+1 + NFL=IFLTO/10 + JCX(NFL,M)=JCX(NFL,M)+1 + ENDIF + IF ( M .EQ. 0 ) THEN + CALL UTSTOP('JSPLIT: M = 0 ') + ENDIF + CALL IDENCO(JCX,ICX,IRETEN) + IF ( IRETEN .EQ. 1 ) THEN + CALL UTSTOP('JSPLIT: IDENCO RET CODE = 1 ') + ENDIF + STR(4+1,1)=ICX(1) + STR(4+2,1)=ICX(2) + CALL UTAMST(STR,AM,AMIN,IRET) + IF ( IRET .NE. 0 ) GOTO 1002 + IF ( NFUSN(KMAX) .EQ. 1 ) GOTO 1002 + IC(1)=NINT(STRO(4+1,1)) + IC(2)=NINT(STRO(4+2,1)) + CALL IDDECO(IC,JC) + DO 26 N=1,NQU + IF ( N .EQ. 1 ) THEN + NFL=MOD(IFLTO,10) + ELSE + NFL=IFLTO/10 + ENDIF + IF ( JC(NFL,M) .GT. 0 ) THEN + JC(NFL,M)=JC(NFL,M)-1 + ELSE + JC(NFL,3-M)=JC(NFL,3-M)+1 + ENDIF +26 CONTINUE + NN=0 + DO 27 N=1,NFLAV + NN=NN+JC(N,1)+JC(N,2) +27 CONTINUE + IF ( NN .EQ. 0 ) THEN + NFL=INT(RANGEN()/PUDX)+1 + JC(NFL,1)=1 + JC(NFL,2)=1 + ENDIF + CALL IDENCO(JC,IC,IRETEN) + IF ( IRETEN .EQ. 1 ) THEN + IF ( ISH .GE. 90 .AND. MESSCO .EQ. 0 ) THEN + CALL UTMSG('JSPLIT') + WRITE(IFCH,*)'***** IDENCO RET CODE = 1. REDO JSPLIT' + WRITE(IFCH,*)'JC:' + WRITE(IFCH,*)JC + CALL UTMSGF + MESSCO=1 + ENDIF + GOTO 5000 + ENDIF + STRO(4+1,1)=IC(1) + STRO(4+2,1)=IC(2) + STRO(4+1,KMAX)=0. + STRO(4+2,KMAX)=0. + +C OK +C -- +1000 IER=0 + NSCC=NSCC+1 + GOTO 10002 + +C ERROR +C ----- +1001 IER=1 + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JSPLIT') + WRITE(IFCH,*)'***** SPLIT NOT POSSIBLE' + CALL UTMSGF + ENDIF + GOTO 10001 + +C ABSORPTION +C ---------- +1002 IER=2 + NFUSN(KMAX)=1 + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)'ABSORPTION OF STRO(,KMAX)' + WRITE(IFCH,*)' ' + ENDIF + DO 18 I=1,NSI + STR(I,1)=0. + STR(I,2)=0. +18 CONTINUE + DO 17 K=1,KMAX + DO 17 I=1,NSI + STRO(I,K)=STRO0(I,K) +17 CONTINUE + STRO(1,1)=STRO(1,1)+STRO(1,KMAX) + STRO(2,1)=STRO(2,1)+STRO(2,KMAX) + STRO(3,1)=STRO(3,1)+STRO(3,KMAX) + STRO(4,1)=STRO(4,1)+STRO(4,KMAX) + STRO(1,KMAX)=0. + STRO(2,KMAX)=0. + STRO(3,KMAX)=0. + STRO(4,KMAX)=0. + IC(1)=NINT(STRO(4+1,1)) + IC(2)=NINT(STRO(4+2,1)) + CALL IDDECO(IC,JC) + ICX(1)=NINT(ABS(STRO(4+1,KMAX))) + ICX(2)=NINT(ABS(STRO(4+2,KMAX))) + CALL IDDECO(ICX,JCX) + DO 22 NF=1,NFLAV + JC(NF,1)=JC(NF,1)+JCX(NF,1) + JC(NF,2)=JC(NF,2)+JCX(NF,2) +22 CONTINUE + CALL IDENCO(JC,IC,IRETEN) + IF ( IRETEN .EQ. 1 ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('JSPLIT') + WRITE(IFCH,*)'***** IDENCO RET CODE = 1' + * ,' (AFTER ABSORPTION)' + WRITE(IFCH,*)'JC:' + WRITE(IFCH,*)JC + CALL UTMSGF + ENDIF + GOTO 1001 + ENDIF + STRO(5,1)=IC(1) + STRO(6,1)=IC(2) + STRO(5,KMAX)=0. + STRO(6,KMAX)=0. + GOTO 10002 + +C CHECK NSCC +C ---------- +10002 CONTINUE + IF ( KMAXOR.GT.2 .AND. KMAX.EQ.2 .AND. MAX(1,NSCC).NE.NSCCX ) THEN + IER=3 + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,*)'REDO STRING PROCESSING WITH NEW APART, EPART' + WRITE(IFCH,*)' ' + ENDIF + GOTO 10001 + ENDIF + +C PRINT +C ----- + IF ( ISH .GE. 92 ) THEN + IF ( ISH .GE. 93 ) THEN + WRITE(IFCH,*)'REMAINDER STRING:' + WRITE(IFCH,*)' ' + WRITE(IFCH,105)(STRO(I,1),I=1,4),(NINT(STRO(I,1)),I=5,6) + DO 9 K=2,KMAX + WRITE(IFCH,104)(STRO(I,K),I=1,4),(NINT(STRO(I,K)),I=5,6) + 9 CONTINUE + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'SPLIT STRING:' + WRITE(IFCH,*)' ' + ENDIF + WRITE(IFCH,105)(STR(I,1),I=1,4),(NINT(STR(I,1)),I=5,6) +105 FORMAT(' STR: ',4F13.5,2I8) + WRITE(IFCH,104)(STR(I,2),I=1,4),(NINT(STR(I,2)),I=5,6) +104 FORMAT(' ',4F13.5,2I8) + WRITE(IFCH,*)' ' + ENDIF +10001 CONTINUE + IF ( ISH .GE. 93 ) THEN + WRITE(IFCH,*)('-',L=1,25) + WRITE(IFCH,*)' RETURN FROM JSPLIT ' + WRITE(IFCH,*)('-',L=1,25) + WRITE(IFCH,*)' ' + ENDIF + ISH=ISH0 + RETURN + END +C======================================================================= + + SUBROUTINE LEPEXP(RXBJ,RQSQ) + +C----------------------------------------------------------------------- +C GENERATES X_BJORKEN AND Q**2 ACCORDING TO AN EXPERIMENTAL +C DISTRIBUTION ( GIVEN IN ARRAY XQ(NXBJ,NQSQ) ). +C----------------------------------------------------------------------- + PARAMETER (NQSQ=10) + PARAMETER (NXBJ=10) + REAL XQ(NXBJ,NQSQ),VXQ(NXBJ*NQSQ) + EQUIVALENCE (XQ(1,1),VXQ(1)) + + DATA VXQ/1304.02, 366.40, 19.84, 10.79, 6.42, + * 4.54, 4.15, 3.38, 2.03, 1.56, + * 241.63, 1637.26, 427.36, 164.51, 73.72, + * 43.07, 20.73, 12.78, 9.34, 5.83, + * 0.01, 724.66, 563.79, 275.08, 176.13, + * 106.44, 85.82, 54.52, 37.12, 28.65, + * 0.01, 202.40, 491.10, 245.13, 157.07, + * 104.43, 61.05, 49.42, 37.84, 26.79, + * 0.01, 3.77, 316.38, 226.92, 133.45, + * 90.30, 63.67, 48.42, 35.73, 28.04, + * 0.01, 0.01, 153.74, 213.09, 114.14, + * 76.26, 60.02, 43.15, 43.47, 25.60, + * 0.01, 0.01, 39.31, 185.74, 108.56, + * 88.40, 47.29, 39.35, 31.80, 22.91, + * 0.01, 0.01, 0.01, 104.61, 107.01, + * 66.24, 45.34, 37.45, 33.44, 23.78, + * 0.01, 0.01, 0.01, 56.58, 99.39, + * 67.78, 43.28, 35.98, 34.63, 18.31, + * 0.01, 0.01, 0.01, 13.56, 76.25, + * 64.30, 42.80, 28.56, 21.19, 20.75 / + DATA QSQMIN/4./,QSQWID/4./,XBJMIN/0./,XBJWID/.025/,INIT/0/ + SAVE +C----------------------------------------------------------------------- + INIT=INIT+1 + IF ( INIT .EQ. 1 ) THEN + N=NXBJ*NQSQ + SUM=VXQ(1) + DO 1 I=2,N + SUM=SUM+VXQ(I) + VXQ(I)=VXQ(I)+VXQ(I-1) + 1 CONTINUE + DO 3 I=1,N + VXQ(I)=VXQ(I)/SUM + 3 CONTINUE + ENDIF + + N=NXBJ*NQSQ + R=RANGEN() + CALL UTLOC(VXQ,N,R,ILOC) + IF ( ILOC .GE. N ) ILOC=ILOC-1 + I=MOD(ILOC,NXBJ)+1 + IF ( I .EQ. 0 ) I=NXBJ + J=ILOC/NXBJ + 1 + IF ( ILOC .GT. 0 ) THEN + DXINT=VXQ(ILOC+1)-VXQ(ILOC) + ELSE + DXINT=VXQ(1) + ENDIF + DXBJ=XBJWID*ABS(R-VXQ(ILOC+1))/DXINT + DY =QSQWID*RANGEN() + RXBJ=XBJMIN+XBJWID*FLOAT(I-1)+DXBJ + RQSQ=QSQMIN+QSQWID*FLOAT(J-1)+DY + RETURN + END +C======================================================================= + + SUBROUTINE LEPSTR(NUCLON,XBJ,QSQ,NSTRNG) + +C----------------------------------------------------------------------- +C RETURNS STRING CODE NSTRNG FOR GIVEN NUCLON, XBJ, QSQ. +C NUCLON : THE STRUCK NUCLEON (1120/1220 = PROTON/NEUTRON) +C XBJ,QSQ : X-BJORKEN AND Q**2 +C NSTRNG : STRING CODE: +C PROTON STRINGS: NEUTRON STRINGS: +C 1 : U --- UD 11 : U --- DD +C 2 : D --- UU 12 : D --- UD +C 3 : U --- UB(UUD) 13 : U --- UB(UDD) +C 4 : D --- DB(UUD) 14 : D --- DB(UDD) +C 5 : S --- SB(UUD) 15 : S --- SB(UDD) +C 6 : UB --- U(UUD) 16 : UB --- U(UDD) +C 7 : DB --- D(UUD) 17 : DB --- D(UDD) +C 8 : SB --- S(UUD) 18 : SB --- S(UDD) +C----------------------------------------------------------------------- + REAL QUARKS(9) + SAVE +C----------------------------------------------------------------------- + NSTRNG=0 + +C PROTON-STRING (VALENCE PART) + IF ( NUCLON .EQ. 1120 ) THEN + QUARKS(1) = 4.* STXU(XBJ,QSQ) + QUARKS(2) = STXD(XBJ,QSQ) + +C NEUTRON-STRING (VALENCE PART) + ELSEIF ( NUCLON .EQ. 1220 ) THEN + QUARKS(1) = 4.* STXD(XBJ,QSQ) + QUARKS(2) = STXU(XBJ,QSQ) + + ELSE + RETURN + ENDIF + +C THE SEA CONTRIBUTIONS (PROTON/NEUTRON) + UDSEA = STXUS(XBJ,QSQ) + SSEA = STXS(XBJ,QSQ) + QUARKS(3) = 4.* UDSEA + QUARKS(4) = UDSEA + QUARKS(5) = SSEA + QUARKS(6) = 4.* UDSEA + QUARKS(7) = UDSEA + QUARKS(8) = SSEA + + QUARKS(9) = 0. + DO 11 I=1,8 + QUARKS(9) = QUARKS(9)+QUARKS(I) +11 CONTINUE + + R = RANGEN() * QUARKS(9) + SUMQ = 0. + DO 12 I=1,8 + NSTRNG = I + SUMQ = SUMQ + QUARKS(I) + IF ( R .LE. SUMQ ) GO TO 13 +12 CONTINUE +13 CONTINUE + + IF ( NUCLON .EQ. 1220 ) NSTRNG=NSTRNG+10 + + RETURN + END +C======================================================================= + + SUBROUTINE LEPTAR(XBJ,QSQ,MATARG,LATARG,NUCLON) + +C----------------------------------------------------------------------- +C RETURNS NUCLON = ID OF HIT TARGET NUCLEON. +C XBJ : X BJORKEN +C QSQ : Q SQUARED +C MATARG : A OF TARGET +C LATARG : Z OF TARGET +C NUCLON: ID OF TARGET NUCLEON (1120/1220 FOR PROTON/NEUTRON) +C----------------------------------------------------------------------- + SAVE +C----------------------------------------------------------------------- +C PROTON PART OF THE STRUCTURE FUNCTION: + F2P = LATARG * STXZPR(XBJ,QSQ) +C NEUTRON PART OF THE STRUCTURE FUNCTION: + F2N = (MATARG-LATARG) * STXZNE(XBJ,QSQ) +C STRUCTURE FUNCTION OF NUCLEUS: + F2A = F2P + F2N +C SELECT THE TARGET-NUCLEON ( PROTON OR NEUTRON ): + RN = RANGEN() + F2RNDM = F2A * RN + IF ( F2RNDM .LT. F2N ) THEN + NUCLON = 1220 + ELSE + NUCLON = 1120 + ENDIF + RETURN + END +C======================================================================= + + SUBROUTINE NUCINI(OPT,ANUC,LA,MA,ISI) + +C----------------------------------------------------------------------- +C INITIALIZES NUCLEON-MOMENTA. +C WRITES NUCLEONS ON /CPTL/ (P,IFR,ICL). +C----------------------------------------------------------------------- + PARAMETER (MAMX=56) + PARAMETER (MAMX2=MAMX*2) + PARAMETER (MXPTL=70000) + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + PARAMETER (NHA=NSIX+2) + COMMON /CNNN/ NNNPTL(MAMX2) + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + REAL ANUC(NSI,NHA,MAMX) + CHARACTER OPT*3 + SAVE +C----------------------------------------------------------------------- + NHAX=3 + IF ( NHA .LT. NHAX ) THEN + CALL UTSTOP('NUCINI: NHA TOO SMALL ') + ENDIF + LAS=0 + MAS=0 + + DO 1 L=1,MA + DO 2 M=1,NHA + DO 3 N=1,NSI + ANUC(N,M,L)=0. + 3 CONTINUE + 2 CONTINUE + + IF ( OPT .EQ. 'NUC' ) THEN + IF ( ISI .GT. 0 .AND. LAPROJ .LT. 0 ) THEN + ID=IDPROJ + ELSEIF ( ISI .LT. 0 .AND. LATARG .LT. 0 ) THEN + ID=IDTARG + ELSE + IF ( RANGEN() .LE. (LA-LAS)/FLOAT(MA-MAS)) THEN + ID=1120 + LAS=LAS+1 + ELSE + ID=1220 + ENDIF + MAS=MAS+1 + ENDIF + CALL IDMASS(ID,AMS) + IC1=IDTRAI(1,ID,1) + IC2=IDTRAI(2,ID,1) + P1=0. + P2=0. + P3=ISI*PNLLX + P0=SQRT(PNLLX**2+AMS**2) + P0X=PNLLX + P5=AMS + + ELSEIF ( OPT .EQ. 'STR' ) THEN + IF ( RANGEN() .LE. (LA-LAS)/FLOAT(MA-MAS) ) THEN + ID=1120 + LAS=LAS+1 + ELSE + ID=1220 + ENDIF + MAS=MAS+1 + IC1=IDTRAI(1,ID,1) + IC2=IDTRAI(2,ID,1) + P1=0. + P2=0. + P3=0. + P0=PROM + P5=PROM + ENDIF + + ANUC(5,1,L)=IC1 + ANUC(6,1,L)=IC2 + ANUC(3,2,L)=P3 + ANUC(4,2,L)=P0X + ANUC(5,2,L)=IC1 + ANUC(6,2,L)=IC2 + NPTL=NPTL+1 + IF ( NPTL .NE. NNNPTL(NPTL) ) THEN + CALL UTSTOP('NUCINI: NPTL AND NNNPTL DONT MATCH ') + ENDIF + IDPTL(NPTL)=ID + PPTL(1,NPTL)=P1 + PPTL(2,NPTL)=P2 + PPTL(3,NPTL)=P3 + PPTL(4,NPTL)=P0 + PPTL(5,NPTL)=P5 + IFRPTL(1,NPTL)=0 + IFRPTL(2,NPTL)=0 + ICLPTL(NPTL)=1 + NQJPTL(NPTL)=0 + 1 CONTINUE + RETURN + END +C======================================================================= + + SUBROUTINE NUCLCO(MASSNR,N,X,Y,Z,YNUC) + +C----------------------------------------------------------------------- +C CALCULATES COORDINATES OF THE NUCLEONS IN A NUCLEUS. +C----------------------------------------------------------------------- + PARAMETER (KOLLMX=2500) + PARAMETER (MXPTL=70000) + PARAMETER (NDEP=129) + PARAMETER (NDET=129) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /COL/ BIMP,BMAX,COORD(4,KOLLMX),DISTCE(KOLLMX) + * ,QDEP(NDEP),QDET14(NDET),QDET16(NDET),QDET40(NDET) + * ,QDET99(NDET),RMPROJ,RMTARG(4),XDEP(NDEP) + * ,XDET14(NDET),XDET16(NDET),XDET40(NDET) + * ,XDET99(NDET) + * ,KOLL,LTARG,NORD(KOLLMX),NPROJ,NRPROJ(KOLLMX) + * ,NRTARG(KOLLMX),NTARG + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + REAL X(N),Y(N),Z(N) + SAVE +C----------------------------------------------------------------------- + IF ( MASSNR .EQ. 0 ) RETURN + IF ( MASSNR .GT. N ) THEN + CALL UTSTOP('NUCLCO: MASSNR.GT.N ') + ENDIF + IF ( MASSNR .EQ. 1 ) THEN + X(1)=0. + Y(1)=0. + Z(1)=0. + RETURN + ENDIF + DO 3 I=1,MASSNR +10 CONTINUE + IF ( MASSNR .EQ. MAPROJ ) + * R=UTINVT(NDEP,XDEP,QDEP,RANGEN()*QDEP(NDEP)) + IF ( MASSNR .EQ. MATARG ) THEN + IF ( LTARG .EQ. 1 ) THEN + R=UTINVT(NDET,XDET14,QDET14,RANGEN()*QDET14(NDET)) + ELSEIF ( LTARG .EQ. 2 ) THEN + R=UTINVT(NDET,XDET16,QDET16,RANGEN()*QDET16(NDET)) + ELSEIF ( LTARG .EQ. 3 ) THEN + R=UTINVT(NDET,XDET40,QDET40,RANGEN()*QDET40(NDET)) + ELSE + R=UTINVT(NDET,XDET99,QDET99,RANGEN()*QDET99(NDET)) + ENDIF + ENDIF + IF ( MASSNR.NE.MAPROJ .AND. MASSNR.NE.MATARG ) THEN + CALL UTSTOP('NUCLCO: NUCLEUS NEITHER PROJ NOR TARG ') + ENDIF + COSTHE=1.-2.*RANGEN() + SINTHE= SQRT(1. - COSTHE**2) + PHI=2.*PI*RANGEN() + X(I)=R*SINTHE*COS(PHI) + Y(I)=R*SINTHE*SIN(PHI) + Z(I)=R*COSTHE + IF ( I .EQ. 1 ) GOTO 3 + IF ( CORE .EQ. 0. ) GOTO 3 + DO 2 J=1,I-1 + IF ( (X(I)-X(J))**2+(Y(I)-Y(J))**2+(Z(I)-Z(J))**2 + * .LT. CORE**2 ) GOTO 10 +2 CONTINUE +3 CONTINUE + IF ( ISH .GE. 93 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'NUCLEON COORDINATES:' + ENDIF + AUXIL = 1./COSH(YNUC) + DO 4 I=1,MASSNR + Z(I)=Z(I)*AUXIL +4 CONTINUE + IF ( ISH .GE. 93 ) THEN + DO 5 I=1,MASSNR + WRITE(IFCH,*)'I X Y Z: ',I,X(I),Y(I),Z(I) +5 CONTINUE + ENDIF + RETURN + END +C======================================================================= + + SUBROUTINE NUCOGE + +C----------------------------------------------------------------------- +C WRITES NUCLEONS ON /CPTL/ (XOR,TIV,IST,IOR,JOR,NST). +C DETERMINES SEQUENCE OF COLLISIONS ACCORDING TO NUCLEAR GEOMETRY +C IF MAPROJ>0. +C----------------------------------------------------------------------- + PARAMETER (KOLLMX=2500) + PARAMETER (MAMX=56) + PARAMETER (MAMX2=MAMX*2) + PARAMETER (MXPTL=70000) + PARAMETER (NDEP=129) + PARAMETER (NDET=129) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CEVT/ BIMEVT,COLEVT,EGYEVT,PHIEVT,PMXEVT + * ,KOLEVT,NEVT,NPJEVT,NTGEVT + COMMON /CNCL/ XPROJ(MAMX),XTARG(MAMX),YPROJ(MAMX) + * ,YTARG(MAMX),ZPROJ(MAMX),ZTARG(MAMX) + COMMON /CNNN/ NNNPTL(MAMX2) + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /COL/ BIMP,BMAX,COORD(4,KOLLMX),DISTCE(KOLLMX) + * ,QDEP(NDEP),QDET14(NDET),QDET16(NDET),QDET40(NDET) + * ,QDET99(NDET),RMPROJ,RMTARG(4),XDEP(NDEP) + * ,XDET14(NDET),XDET16(NDET),XDET40(NDET) + * ,XDET99(NDET) + * ,KOLL,LTARG,NORD(KOLLMX),NPROJ,NRPROJ(KOLLMX) + * ,NRTARG(KOLLMX),NTARG + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + SAVE +C----------------------------------------------------------------------- + IF ( ISH .EQ. 17 .OR. ISH .GT. 92 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'NUCOGE (ENTRY)' + ENDIF + VELI=1./TANH(YPJTL-YHAHA)+TANH(YHAHA) + NPROJ=1 + NTARG=1 + DO 15 N=1,KOLLMX + NORD(N)=N + COORD(1,N)=0. + COORD(2,N)=0. + COORD(3,N)=0. + COORD(4,N)=0. +15 CONTINUE + + IF ( MATARG .LT. 0 ) THEN + KOLL=-MATARG + NTARG=KOLL + BIMP=0. + NPTL=NPTL+1 + XORPTL(1,NPTL)=0. + XORPTL(2,NPTL)=0. + XORPTL(3,NPTL)=0. + XORPTL(4,NPTL)=0. + TIVPTL(1,NPTL)=-AINFIN + TIVPTL(2,NPTL)=0. + ISTPTL(NPTL)=1 + IORPTL(NPTL)=-1 + JORPTL(NPTL)=0 + NNNPTL(NPTL)=NPTL + DO 1 K=1,KOLL + NRPROJ(K)=1 + NRTARG(K)=K + NPTL=NPTL+1 + XORPTL(1,NPTL)=0. + XORPTL(2,NPTL)=0. + XORPTL(3,NPTL)=0. + XORPTL(4,NPTL)=0. + TIVPTL(1,NPTL)=-AINFIN + TIVPTL(2,NPTL)=0. + ISTPTL(NPTL)=1 + IORPTL(NPTL)=-1 + JORPTL(NPTL)=0 + NNNPTL(NPTL)=NPTL +1 CONTINUE + GOTO 9999 + + ELSEIF ( MAPROJ .EQ. 1 .AND. MATARG .EQ. 1 ) THEN + KOLL=1 + BIMP=0. + NRPROJ(1)=1 + NRTARG(1)=1 + DO 5 II=1,2 + NPTL=NPTL+1 + XORPTL(1,NPTL)=0. + XORPTL(2,NPTL)=0. + XORPTL(3,NPTL)=0. + XORPTL(4,NPTL)=0. + TIVPTL(1,NPTL)=-AINFIN + TIVPTL(2,NPTL)= 0. + ISTPTL(NPTL) = 1 + IORPTL(NPTL) =-1 + JORPTL(NPTL) = 0 + NNNPTL(NPTL) = NPTL + 5 CONTINUE + GOTO 9999 + ENDIF + + CALL NUCLCO(MAPROJ,MAMX,XPROJ,YPROJ,ZPROJ,YPJTL-YHAHA) + CALL NUCLCO(MATARG,MAMX,XTARG,YTARG,ZTARG,YHAHA) + BX=0. + BY=0. + IF ( MAPROJ .GT. 0 ) THEN + IF ( BIMEVT .LT. 0. ) THEN + B1=BMINIM + B2=MIN(RMPROJ+RMTARG(LTARG),BMAXIM) + IF ( B1 .GT. B2 ) THEN + CALL UTSTOP('NUCOGE: BMIN > BMAX ') + ENDIF + BIMP=SQRT(B1**2+(B2**2-B1**2)*RANGEN()) + PHI=2.*PI*RANGEN() + ELSE + PHI=PHIEVT + BIMP=BIMEVT + ENDIF + BX=COS(PHI)*BIMP + BY=SIN(PHI)*BIMP + DO 6 I=1,MAPROJ + NPTL=NPTL+1 + XORPTL(1,NPTL)=XPROJ(I)+BX*0.5 + XORPTL(2,NPTL)=YPROJ(I)+BY*0.5 + XORPTL(3,NPTL)=ZPROJ(I) + XORPTL(4,NPTL)=0. + TIVPTL(1,NPTL)=-AINFIN + TIVPTL(2,NPTL)= AINFIN + ISTPTL(NPTL)=0 + IORPTL(NPTL)=0 + JORPTL(NPTL)=0 + NNNPTL(NPTL)=NPTL + 6 CONTINUE + ENDIF + DO 7 I=1,MATARG + NPTL=NPTL+1 + XORPTL(1,NPTL)=XTARG(I)-BX*0.5 + XORPTL(2,NPTL)=YTARG(I)-BY*0.5 + XORPTL(3,NPTL)=ZTARG(I) + XORPTL(4,NPTL)=0. + TIVPTL(1,NPTL)=-AINFIN + TIVPTL(2,NPTL)= AINFIN + ISTPTL(NPTL)=0 + IORPTL(NPTL)=0 + JORPTL(NPTL)=0 + NNNPTL(NPTL)=NPTL + 7 CONTINUE + IF ( MAPROJ .EQ. 0 ) GOTO 1000 + KOLL=0 + DO 12 I=1,MAPROJ + DO 12 J=1,MATARG + IF ( PI*( (XPROJ(I)+BX-XTARG(J))**2 + * +(YPROJ(I)+BY-YTARG(J))**2 ) .GT. SIGPPI ) GOTO 12 + IF ( KOLL .GT. 0 ) THEN + KP=0 + KT=0 + DO 30 KL=1,KOLL + IF ( NRPROJ(KL) .EQ. I ) KP=1 + IF ( NRTARG(KL) .EQ. J ) KT=1 +30 CONTINUE +CDH FTRSIG=1.0 + FTR=1.0 +CDH IF ( KP .EQ. 1 ) FTR=FTR*FTRSIG +CDH IF ( KT .EQ. 1 ) FTR=FTR*FTRSIG + IF ( KP.EQ.1 .OR. KT.EQ.1 ) THEN + IF ( PI*( (XPROJ(I)+BX-XTARG(J))**2 + * +(YPROJ(I)+BY-YTARG(J))**2 ) .GT. FTR*SIGPPI ) GOTO 12 + ENDIF + ENDIF + KOLL=KOLL+1 + IF ( KOLL .GT. KOLLMX ) THEN + CALL UTSTOP('NUCOGE: KOLLMX TOO SMALL ') + ENDIF + NRPROJ(KOLL)=I + NRTARG(KOLL)=J + DISTCE(KOLL)=ZTARG(J)-ZPROJ(I) + COORD(1,KOLL)=(XPROJ(I)+XTARG(J))*0.5 + COORD(2,KOLL)=(YPROJ(I)+YTARG(J))*0.5 + COORD(3,KOLL)=(ZPROJ(I)+ZTARG(J))*0.5 + COORD(4,KOLL)=DISTCE(KOLL)*VELI + ISTPTL(I)=1 + IORPTL(I)=-1 + TIVPTL(2,I)=COORD(4,KOLL) + ISTPTL(MAPROJ+J)=1 + IORPTL(MAPROJ+J)=-1 + TIVPTL(2,MAPROJ+J)=COORD(4,KOLL) +12 CONTINUE + IF ( KOLL .LE. 1 ) GOTO 9999 + + DO 21 N=2,KOLL + DO 22 M=1,N-1 + IF ( NRPROJ(M) .EQ. NRPROJ(N) ) GOTO 21 +22 CONTINUE + NPROJ=NPROJ+1 +21 CONTINUE + DO 23 N=2,KOLL + DO 24 M=1,N-1 + IF ( NRTARG(M) .EQ. NRTARG(N) ) GOTO 23 +24 CONTINUE + NTARG=NTARG+1 +23 CONTINUE + + DO 20 N=1,KOLL-1 + DO 20 M=N+1,KOLL + IF ( DISTCE(NORD(M)) .LT. DISTCE(NORD(N)) ) THEN + NORDM=NORD(M) + NORD(M)=NORD(N) + NORD(N)=NORDM + ENDIF +20 CONTINUE + +9999 CONTINUE + IF ( KOLL .LE. 0 ) GOTO 1000 + IF ( KOLL .LT. KO1KO2/10000 .OR. KOLL .GT. MOD(KO1KO2,10000) ) + * GOTO 1000 + NEVT=1 + BIMEVT=BIMP + PHIEVT=PHI + KOLEVT=KOLL + NPJEVT=NPROJ + NTGEVT=NTARG + PMXEVT=PNLL + EGYEVT=ENGY + +1000 CONTINUE + IF ( ISH .EQ. 17 .OR. ISH .GT. 92 ) THEN + WRITE(IFCH,*)'NUCOGE (EXIT)' + ENDIF + RETURN + END +C======================================================================= + + SUBROUTINE NUCOLL + +C----------------------------------------------------------------------- +C PERFORMS A NUCLEUS-NUCLEUS COLLISION (INCL. NUCLEON-NUCLEON) +C----------------------------------------------------------------------- + PARAMETER (KOLLMX=2500) + PARAMETER (MAMX=56) + PARAMETER (MXPTL=70000) + PARAMETER (MXSTR=3000) + PARAMETER (NDEP=129) + PARAMETER (NDET=129) + PARAMETER (NPRBMS=20) + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + PARAMETER (NHA=NSIX+2) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CEVT/ BIMEVT,COLEVT,EGYEVT,PHIEVT,PMXEVT + * ,KOLEVT,NEVT,NPJEVT,NTGEVT + COMMON /CIV/ IVP,IVP0,IVT,IVT0 + COMMON /CKOL/ KOL + COMMON /CNCE/ NCES,NCOLEX + COMMON /CNEW/ KOTRI,NEWCOL,NEWICO + COMMON /CNFR/ NRFRA + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CNTEVM/ NTEVM + COMMON /COL/ BIMP,BMAX,COORD(4,KOLLMX),DISTCE(KOLLMX) + * ,QDEP(NDEP),QDET14(NDET),QDET16(NDET),QDET40(NDET) + * ,QDET99(NDET),RMPROJ,RMTARG(4),XDEP(NDEP) + * ,XDET14(NDET),XDET16(NDET),XDET40(NDET) + * ,XDET99(NDET) + * ,KOLL,LTARG,NORD(KOLLMX),NPROJ,NRPROJ(KOLLMX) + * ,NRTARG(KOLLMX),NTARG + COMMON /CPRBMS/ PRBMS(NPRBMS) + COMMON /CPROJA/ IPROJ,ITARG,KPROJA(NHA,MAMX),KTARGA(NHA,MAMX) + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /CSTR/ PSTR(5,MXSTR),ROTSTR(3,MXSTR),XORSTR(4,MXSTR) + * ,ICSTR(4,MXSTR),IORSTR(MXSTR),IRLSTR(MXSTR),NSTR + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /PARTNR/ PEX,PEY,PEZET,PE0,PX4,PY4,SUMMAS + * ,IC4,IPTNR,JS4,NPS + + REAL PROJ(NSI,NHA),PROJA(NSI,NHA,MAMX) + * ,TARG(NSI,NHA),TARGA(NSI,NHA,MAMX) + INTEGER IC4(2) + CHARACTER DASH*1 + DATA DASH/'-'/ + SAVE +C----------------------------------------------------------------------- + ISH0=ISH + IF ( ISHSUB/100 .EQ. 6 ) ISH=MOD(ISHSUB,100) + IF ( ISH .EQ. 17 .OR. ISH .GT. 92 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'NUCOLL (ENTRY)' +CDH ELSEIF ( ISH .EQ. 14 ) THEN +CDH CALL UTTIMA('*** NUCOLL *** ') + ENDIF + + IF ( ISHSUB/100 .EQ. 7 ) ISH=MOD(ISHSUB,100) + NEVT=0 + NPTL=0 + CALL NUCOGE + IF ( ICHOIC .EQ. 3 .OR. KOLL .EQ. 0 ) GOTO 1000 + NAEVT=NAEVT+1 + IF ( KOLL .LT. KO1KO2/10000 .OR. + * KOLL .GT. MOD(KO1KO2,10000) ) GOTO 1000 + COLEVT=KOLL + AMSEV=SQRT((NPJEVT*SQRT(AMPROJ**2+PNLLX**2) + * +NTGEVT*SQRT(AMTARG**2+PNLLX**2))**2 + * -((NPJEVT-NTGEVT)*PNLLX)**2) + IF ( ISHSUB/100 .EQ. 7 ) ISH=ISH0 + + ITRY=0 +38 CONTINUE + ITRY=ITRY+1 + NSTR=0 + NPTL=0 + SUMPT2=0. + AMSAC=0. + CALL NUCINI('NUC',PROJA,LAPROJ,MAPROJ,1) + CALL NUCINI('NUC',TARGA,LATARG,IABS(MATARG),-1) + + KOLRAN=RANGEN()*KOLL+1 + KOLRAN=MIN(KOLRAN,KOLL) + KOLRAN=MAX(KOLRAN,1) + + DO 2 KOLS=1,KOLL + KOL=KOLS + ISKIP=0 + I=NRPROJ(NORD(KOL)) + J=NRTARG(NORD(KOL)) + IPROJ=I + ITARG=J + NRECOP=0 + NRECOT=0 + IF ( KOL .LT. KOLL ) THEN + DO 33 K=KOL+1,KOLL + IF ( NRPROJ(NORD(K)) .EQ. I ) NRECOP=NRECOP+1 + IF ( NRTARG(NORD(K)) .EQ. J ) NRECOT=NRECOT+1 +33 CONTINUE + ENDIF + NCOP=0 + NCOT=0 + IF ( KOL .GT. 1 ) THEN + DO 34 K=1,KOL-1 + IF ( NRPROJ(NORD(K)) .EQ. I ) NCOP=NCOP+1 + IF ( NRTARG(NORD(K)) .EQ. J ) NCOT=NCOT+1 +34 CONTINUE + ENDIF + IF ( NCOP.GE.NCOLMX .OR. NCOT.GE.NCOLMX ) ISKIP=1 + + DO 56 M=1,NHA + SM=0. + DO 57 N=1,NSI + PROJ(N,M)=PROJA(N,M,I) + SM=SM+PROJ(N,M)**2 +57 CONTINUE + IF ( M .GE. 3 .AND. SM .LT. 1.E-5 ) GOTO 58 +56 CONTINUE +58 CONTINUE + DO 53 M=1,NHA + SM=0. + DO 54 N=1,NSI + TARG(N,M)=TARGA(N,M,J) + SM=SM+TARG(N,M)**2 +54 CONTINUE + IF ( M .GE. 3 .AND. SM .LT. 1.E-5 ) GOTO 55 +53 CONTINUE +55 CONTINUE + + IF ( KOL .EQ. KOLRAN .AND. JPSI .EQ. 1 ) THEN + CALL PVJPSF(PROJ,TARG) + ISKIP=1 + ENDIF + +C NR OF COLOUR EXCHANGES +C ---------------------- + + AMSAC0=AMSAC + ISKIP0=ISKIP + SMPT2=SUMPT2 + CALL UTREMB(PROJ,TARG,1) + GOTO 4 + 3 CONTINUE + IF ( ISH .GE. 91 ) WRITE(IFCH,*)'REDO HH COLLISION' + CALL UTREST(PROJ,TARG,1) + SUMPT2=SMPT2 + ISKIP=ISKIP0 + AMSAC=AMSAC0 + 4 CONTINUE + + NCOLEX=1 + IF ( ISKIP .NE. 1 ) THEN + LO=0 +16 LO=LO+1 + IF ( LO .EQ. 3 ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('NUCOLL') + WRITE(IFCH,*)'***** LO=3' + CALL UTMSGF + ENDIF + ENDIF + R=RANGEN() + NCOLEX=0 +15 NCOLEX=NCOLEX+1 + IF ( NCOLEX .GT. NPRBMS ) GOTO 16 + IF ( R .GT. PRBMS(NCOLEX) ) GOTO 15 + ENDIF + +C HADRON-HADRON COLLISION +C ----------------------- + + DO 31 NCE=1,NCOLEX + NCES=NCE + CALL UTPAGE + IF ( ISH .GE. 91 ) THEN + WRITE(IFCH,101)(DASH,L=1,79),IPAGE,KOL,NCE + * ,NRPROJ(NORD(KOL)),NRTARG(NORD(KOL)),(DASH,L=1,79) +101 FORMAT(/1X,79A1/1X,I5,'.PAGE COL: ',I2 + * ,' CEX: ',I2,' PRJ: ',I3,' TRG: ',I3/1X,79A1/) + ENDIF + IF ( NRECOP .EQ. 0 ) THEN + ISTORP=1 + ELSE + ISTORP=0 + ENDIF + IF ( NRECOT .EQ. 0 ) THEN + ISTORT=1 + ELSE + ISTORT=0 + ENDIF + CALL HAHABS(PROJ,TARG + * ,ISTORP*(NCE/NCOLEX),ISTORT*(NCE/NCOLEX),ISKIP,IRETHH) + IF ( ISKIP .GE. 2 ) GOTO 9997 + IF ( IRETHH .EQ. 1 ) GOTO 3 + IF ( IRESCL .EQ. 1 .AND. AMSAC .GT. AMSEV ) GOTO 9998 + SUMPT2=SUMPT2+ + * PROJ(1,2)**2+PROJ(2,2)**2+TARG(1,2)**2+TARG(2,2)**2 + IF ( ISH .EQ. 11 ) WRITE(IFCH,*)'SUMPT2:',NREVT,KOL,NCE,SUMPT2 + ISKIP=0 +31 CONTINUE + + DO 40 M=1,NHA + SM=0. + DO 41 N=1,NSI + PROJA(N,M,I)=PROJ(N,M) + SM=SM+PROJ(N,M)**2 +41 CONTINUE + IF ( M .GE. 3 .AND. SM .LT. 1.E-5 ) GOTO 42 +40 CONTINUE +42 CONTINUE + DO 43 M=1,NHA + SM=0. + DO 44 N=1,NSI + TARGA(N,M,J)=TARG(N,M) + SM=SM+TARG(N,M)**2 +44 CONTINUE + IF ( M .GE. 3 .AND. SM .LT. 1.E-5 ) GOTO 45 +43 CONTINUE +45 CONTINUE + 2 CONTINUE + + IF ( SUMPT2 .LT. 1.E-5 ) GOTO 9999 + +1000 CONTINUE +CDH IF ( ISH .EQ. 14 ) CALL UTTIMA(' NUCOLL F ') + IF ( ISH .EQ. 17 .OR. ISH .GT. 92 ) THEN + WRITE(IFCH,*)'NUCOLL (EXIT)' + ENDIF + ISH=ISH0 + RETURN + +9999 INOIAC=INOIAC+1 + IF ( ISH .GE. 91 .OR. ISH .EQ. 11 ) THEN + CALL UTMSG('NUCOLL') + WRITE(IFCH,*)'***** NO INTERACTION. REDO NUCOLL' + CALL UTMSGF + ENDIF + GOTO 38 + +9998 ILAMAS=ILAMAS+1 + IF ( ISH .GE. 91 .OR. ISH .EQ. 12 ) THEN + CALL UTMSG('NUCOLL') + WRITE(IFCH,*)'***** AMSAC>AMSEV: ',AMSAC,AMSEV + * ,' . REDO NUCOLL' + DO 1 NS=1,NSTR + WRITE(IFCH,109)NS,(ICSTR(L,NS)/100,L=1,4) + * ,(PSTR(L,NS),L=3,5) +109 FORMAT(1X,I3,3X,4I5,3(E11.3)) +1 CONTINUE + CALL UTMSGF + ENDIF + GOTO 38 + +9997 CONTINUE + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('NUCOLL') + WRITE(IFCH,*)'***** ISKIP>=2. REDO NUCOLL' + CALL UTMSGF + ENDIF + GOTO 38 + + END +C======================================================================= + + SUBROUTINE NUCSTR(IER) + +C----------------------------------------------------------------------- +C PERFORMES X AND P TRAFOS FOR NUCLEONS FOR STRING DECAY IN NUCLEUS +C----------------------------------------------------------------------- + PARAMETER (MXPTL=70000) + COMMON /CLEP/ ICINPU,IDSCAT + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + SAVE +C----------------------------------------------------------------------- + IF ( MATARG .NE. NPTL ) THEN + CALL UTSTOP('NUCSTR: MATARG /= NPTL ') + ENDIF + NCNT=0 +3 NCNT=NCNT+1 + IF ( NCNT .GE. 10 ) GOTO 1001 + N0=MIN(1+INT(RANGEN()*NPTL),NPTL) + IF ( ICINPU .GT. 0 .AND. IDPTL(N0) .NE. IDSCAT ) GOTO 3 + ISTPTL(N0)=1 + IORPTL(N0)=-1 + TIVPTL(2,N0)=0. + DO 2 N=1,NPTL + XORPTL(1,N)=XORPTL(1,N)-XORPTL(1,N0) + XORPTL(2,N)=XORPTL(2,N)-XORPTL(2,N0) + XORPTL(3,N)=XORPTL(3,N)-XORPTL(3,N0) + PHI=2.*PI*RANGEN() + P1= -ELEPTO*SIN(ANGMUE)*SIN(PHI) + P2= -ELEPTO*SIN(ANGMUE)*COS(PHI) + P3=ELEPTI-ELEPTO*COS(ANGMUE) + CALL UTROTA(1,P1,P2,P3,XORPTL(1,N),XORPTL(2,N),XORPTL(3,N)) + P3=SQRT(P1**2+P2**2+P3**2) + P1=0. + P2=0. + P4=PROM+ELEPTI-ELEPTO + CALL UTLOBO(1,P1,P2,P3,P4,SQRT(P4**2-P3**2-P2**2-P1**2) + * ,XORPTL(1,N),XORPTL(2,N),XORPTL(3,N),XORPTL(4,N)) + CALL UTLOBO(1,P1,P2,P3,P4,SQRT(P4**2-P3**2-P2**2-P1**2) + * ,PPTL(1,N),PPTL(2,N),PPTL(3,N),PPTL(4,N)) +2 CONTINUE + IER=0 + RETURN + +1001 IER=1 + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('NUCSTR') + WRITE(IFCH,*)'***** IDSCAT NOT POSSIBLE ==> REDO EVENT.' + CALL UTMSGF + ENDIF + RETURN + END +C======================================================================= + + SUBROUTINE PVJPSF(PROJ,TARG) + +C----------------------------------------------------------------------- +C FORMS A JPSI +C----------------------------------------------------------------------- + PARAMETER (KOLLMX=2500) + PARAMETER (MAMX=56) + PARAMETER (MXPTL=70000) + PARAMETER (MXSTR=3000) + PARAMETER (NDEP=129) + PARAMETER (NDET=129) + PARAMETER (NGAU=129) + PARAMETER (NPTJ=129) + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + PARAMETER (NHA=NSIX+2) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CGAU/ QGAU(NGAU),XGAU(NGAU) + COMMON /CKOL/ KOL + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /COL/ BIMP,BMAX,COORD(4,KOLLMX),DISTCE(KOLLMX) + * ,QDEP(NDEP),QDET14(NDET),QDET16(NDET),QDET40(NDET) + * ,QDET99(NDET),RMPROJ,RMTARG(4),XDEP(NDEP) + * ,XDET14(NDET),XDET16(NDET),XDET40(NDET) + * ,XDET99(NDET) + * ,KOLL,LTARG,NORD(KOLLMX),NPROJ,NRPROJ(KOLLMX) + * ,NRTARG(KOLLMX),NTARG + COMMON /CPROJA/ IPROJ,ITARG,KPROJA(NHA,MAMX),KTARGA(NHA,MAMX) + COMMON /CPTJ/ QPTJ(NPTJ),XPTJ(NPTJ) + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /CSTR/ PSTR(5,MXSTR),ROTSTR(3,MXSTR),XORSTR(4,MXSTR) + * ,ICSTR(4,MXSTR),IORSTR(MXSTR),IRLSTR(MXSTR),NSTR + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + REAL PROJ(NSI,NHA),PR(4),TARG(NSI,NHA),TG(4) + SAVE +C----------------------------------------------------------------------- + PAX=0.19 + PROX=PROJ(3,2) + TARX=TARG(3,2) + LOOP=0 + PR(1)=PROJ(1,2) + PR(2)=PROJ(2,2) + PR(3)=PROJ(3,2) + PR(4)=PROJ(4,2) + TG(1)=TARG(1,2) + TG(2)=TARG(2,2) + TG(3)=TARG(3,2) + TG(4)=TARG(4,2) + + CALL UTPAGE + IF ( ISH .GE. 91 ) WRITE(IFCH,110)('-',L=1,79),IPAGE,('-',L=1,79) +110 FORMAT(1X,79A1/1X,I5,'.PAGE ' + * ,'JPSI FORMATION'/1X,79A1/) + +5000 LOOP=LOOP+1 + IF ( LOOP .GT. 100 ) THEN + IF(ISH.GE.90)THEN + CALL UTMSG('PVJPSF') + WRITE(IFCH,*)'***** JPSI FORMATION NOT POSSIBLE' + CALL UTMSGF + ENDIF + GOTO 1000 + ENDIF + PROJ(1,2)=PR(1) + PROJ(2,2)=PR(2) + PROJ(3,2)=PR(3) + PROJ(4,2)=PR(4) + TARG(1,2)=TG(1) + TARG(2,2)=TG(2) + TARG(3,2)=TG(3) + TARG(4,2)=TG(4) + +C JPSI MOMENTA +C ------------ + ID=441 + CALL IDMASS(ID,AM) + S=AM**2 + PT=UTINVT(NPTJ,XPTJ,QPTJ,RANGEN()*QPTJ(NPTJ)) + PHI=2.*PI*RANGEN() + PX=PT*COS(PHI) + PY=PT*SIN(PHI) + LO=0 + 1 LO=LO+1 + IF ( LO .GT. 10 ) THEN + CALL UTSTOP('PVJPSF: LO > 10 ') + ENDIF + Z=PAX*UTINVT(NGAU,XGAU,QGAU,RANGEN()*QGAU(NGAU)) + IF ( Z .GT. 1. ) GOTO 1 + IF ( RANGEN() .LE. 0.5 ) THEN + PZ=Z*PNLLX + ELSE + PZ=-Z*PNLLX + ENDIF + E=SQRT(S+PX**2+PY**2+PZ**2) + PP=E+PZ + PM=E-PZ + +C PROJ AND TARG MOMENTA +C --------------------- + R=RANGEN() + POX=PROJ(1,2)-R*PX + POY=PROJ(2,2)-R*PY + POT2=(POX**2+POY**2) + R=1.-R + PUX=TARG(1,2)-R*PX + PUY=TARG(2,2)-R*PY + PUT2=(PUX**2+PUY**2) + POP=PROJ(4,2)+PROJ(3,2) + POM=PROJ(4,2)-PROJ(3,2) + PUP=TARG(4,2)+TARG(3,2) + PUM=TARG(4,2)-TARG(3,2) + PEP=POP+PUP-PP + PEM=POM+PUM-PM + A=(PEM*PEP-PUT2-POT2)*0.5 + D2=PUT2*POT2 + AUXIL = A**2 - D2 + IF ( AUXIL .LT. 0. ) GOTO 5000 + AUXIL = SQRT(AUXIL) + PYP=(A+PUT2-AUXIL)/PEM + PYM=(A+POT2-AUXIL)/PEP + IF ( PYP .LT. 0. ) GOTO 5000 + IF ( PYM. LT. 0. ) GOTO 5000 + PIP=PEP-PYP + IF ( PIP .LT. 0. ) GOTO 5000 + PIM=PYM + PAP=PYP + PAM=PEM-PYM + IF ( PAM .LT. 0. ) GOTO 5000 + PROJ(1,2)=POX + PROJ(2,2)=POY + PROJ(3,2)=(PIP-PIM)*0.5 + PROJ(4,2)=(PIP+PIM)*0.5 + TARG(1,2)=PUX + TARG(2,2)=PUY + TARG(3,2)=(PAP-PAM)*0.5 + TARG(4,2)=(PAP+PAM)*0.5 + KPROJA(2,IPROJ)=KOL + KTARGA(2,ITARG)=KOL + IF ( PROJ(3,2)*PROX .LT. 0. ) GOTO 5000 + IF ( TARG(3,2)*TARX .LT. 0. ) GOTO 5000 + +C JPSI STRING +C ----------- + NSTR=NSTR+1 + IF ( NSTR .GT. MXSTR ) THEN + CALL UTSTOP('PVJPSF: NSTR>MXSTR ') + ENDIF + IORSTR(NSTR)=-KOL + ICSTR(1,NSTR)=000100 + ICSTR(2,NSTR)=0 + ICSTR(3,NSTR)=0 + ICSTR(4,NSTR)=000100 + PSTR(1,NSTR)=PX + PSTR(2,NSTR)=PY + PSTR(3,NSTR)=PZ + PSTR(4,NSTR)=E + PSTR(5,NSTR)=AM + ROTSTR(1,NSTR)=0. + ROTSTR(2,NSTR)=0. + ROTSTR(3,NSTR)=1. + XORSTR(1,NSTR)=COORD(1,KOL) + XORSTR(2,NSTR)=COORD(2,KOL) + XORSTR(3,NSTR)=COORD(3,KOL) + XORSTR(4,NSTR)=COORD(4,KOL) + IF ( ISH .GE. 90 ) THEN + IF ( ISH .GE. 91 ) THEN + J=NSTR + WRITE(IFCH,100)J,(ICSTR(K,J)/100,K=1,4) + * ,PSTR(3,J),PSTR(4,J),PSTR(5,J) +100 FORMAT(' /CSTR/',I4,3X,4I5,3(E11.3)) + ENDIF + +C CHECKS +C ------ + IF ( ABS(PIP*PIM-POT2) .GT. 1.E-4 ) THEN + CALL UTMSG('PVJPSF') + WRITE(IFCH,*)'***** PIP*PIM /= POT**2' + WRITE(IFCH,*)'PIP*PIM=',PIP*PIM,'POT**2=',POT2 + WRITE(IFCH,*)'PIP=',PIP,' PIM=',PIM + CALL UTMSGF + ENDIF + IF ( ABS(PAP*PAM-PUT2) .GT. 1.E-4 ) THEN + CALL UTMSG('PVJPSF') + WRITE(IFCH,*)'***** PAP*PAM /= PUT**2' + WRITE(IFCH,*)'PAP*PAM=',PAP*PAM,'PUT**2=',PUT2 + WRITE(IFCH,*)'PAP=',PAP,' PAM=',PAM + CALL UTMSGF + ENDIF + IF ( ABS(PROJ(4,2)**2 + * -PROJ(1,2)**2-PROJ(2,2)**2-PROJ(3,2)**2) .GT. 1.E-4 ) THEN + CALL UTMSG('PVJPSF') + WRITE(IFCH,*)'***** MASS**2 OF PROJ NONZERO' + WRITE(IFCH,*)'MASS**2=',PROJ(4,2)**2 + * -PROJ(1,2)**2-PROJ(2,2)**2-PROJ(3,2)**2 + CALL UTMSGF + ENDIF + IF ( ABS(TARG(4,2)**2 + * -TARG(1,2)**2-TARG(2,2)**2-TARG(3,2)**2) .GT. 1.E-4 ) THEN + CALL UTMSG('PVJPSF') + WRITE(IFCH,*)'***** MASS**2 OF TARG NONZERO' + WRITE(IFCH,*)'MASS**2=',TARG(4,2)**2 + * -TARG(1,2)**2-TARG(2,2)**2-TARG(3,2)**2 + CALL UTMSGF + ENDIF + DO 14 N=1,4 + IF ( ABS(PR(N)+TG(N) + * -PROJ(N,2)-TARG(N,2)-PSTR(N,NSTR)) .GT. 1.E-4 ) GOTO 15 +14 CONTINUE + GOTO 16 +15 CONTINUE + CALL UTMSG('PVJPSF') + WRITE(IFCH,*)'***** PROJ + TARG /= PROJ_NEW + TARG_NEW +JPSI' + WRITE(IFCH,*)'PROJ,TARG:' + WRITE(IFCH,*)PR + WRITE(IFCH,*)TG + WRITE(IFCH,*)'PROJ_NEW,TARG_NEW,JPSI:' + WRITE(IFCH,*)(PROJ(N,2),N=1,4) + WRITE(IFCH,*)(TARG(N,2),N=1,4) + WRITE(IFCH,*)(PSTR(N,NSTR),N=1,4) + CALL UTMSGF +16 CONTINUE + ENDIF + + AMSAC=AMSAC+AM + +1000 RETURN + END +C======================================================================= + + SUBROUTINE RACPRO(TYP,QMU,N,ACPROB) + +C----------------------------------------------------------------------- +C RETURNS THE ARRAY ACPROB CONTAINING ACCUMULATED PROB FOR: +C EXPONENTIAL OR POISSON DISTRIBUTION (FOR TYP = EXP OR POI) +C MULTI POMERON CUTS ACC TO GRIBOV (FOR TYP = GRI). +C----------------------------------------------------------------------- + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /PARO3/ ASUHAX(7),ASUHAY(7),OMEGA,SIGPPD,SIGPPE,UENTRO + * ,IWZZZZ + COMMON /PARO4/ GRICEL,GRIDEL,GRIGAM,GRIRSQ,GRISLO + + DOUBLE PRECISION DENOM,FZ,FZH,Q,QZ,QZH,Z + REAL ACPROB(N) + CHARACTER TYP*3 + SAVE +C----------------------------------------------------------------------- + ISH0=ISH + IF ( ISHSUB/100 .EQ. 17 ) ISH=MOD(ISHSUB,100) + +C GRIBOV-REGGE +C ------------ + IF ( TYP .EQ. 'GRI' ) THEN + XI=LOG(ENGY**2) + AUXIL = EXP(XI*GRIDEL)*GRIGAM + SIG=8.*PI*AUXIL + Z=2.D0*GRICEL/(GRIRSQ+GRISLO*XI)*AUXIL + +C 0-CUT-POMERON PROBABILITY +C ------------------------- + QZ=-1.D0/Z + QZH=-2.D0/Z + FZ=0.D0 + FZH=0.D0 + DO 10 I=1,20 + DENOM=1.D0/I + QZ=(-Z)*DENOM*QZ + QZH=(-Z)*DENOM*0.5*QZH + FZ=DENOM*QZ+FZ + FZH=DENOM*QZH+FZH +10 CONTINUE + RELER=ABS( QZ/(I*FZ) ) + RELERH=ABS( QZH/(I*FZH) ) + SIGPPZ=SIG*(FZH-FZ) + SIGPPE=SIGPPZ/GRICEL + SIGPPD=SIGPPE*(GRICEL-1) + +C N-CUT-POMERON PROBABILITIES, N>0 +C -------------------------------- + AUXIL = EXP(-Z) + Q=1. + R=1. + ACPROB(1)=SIG/Z*(1.-AUXIL) + DO 21 I=2,N + Q=Q*Z/(I-1) + R=R+Q + SI=SIG/(I*Z)*(1.-R*AUXIL) + ACPROB(I)=ACPROB(I-1)+SI +21 CONTINUE + IF ( SIGPPI .LT. 0. ) SIGPPI=ACPROB(N) + AUXIL2 = 1./ACPROB(N) + DO 22 I=1,N + ACPROB(I)=AUXIL2*ACPROB(I) +22 CONTINUE + +C WARNINGS +C -------- + IF ( ISH.GE.90 ) THEN + IF ( RELER .GT. 1.E-3 ) THEN + CALL UTMSG('RACPRO') + WRITE(IFCH,*)'***** RELER TOO LARGE' + WRITE(IFCH,*)'RELER,QZ/I,FZ:',RELER,QZ/I,FZ + CALL UTMSGF + ENDIF + IF ( RELERH .GT. 1.E-3 ) THEN + CALL UTMSG('RACPRO') + WRITE(IFCH,*)'***** RELERH TOO LARGE' + WRITE(IFCH,*)'RELERH,QZH/I,FZH:',RELERH,QZH/I,FZH + CALL UTMSGF + ENDIF + IF ( SIGPPZ .LT. 0. ) THEN + CALL UTMSG('RACPRO') + WRITE(IFCH,*)'***** NEGATIVE SIGPPZ' + WRITE(IFCH,*)'SIGPPZ,SIG,FZH,FZ:',SIGPPZ,SIG,FZH,FZ + CALL UTMSGF + ENDIF + DO 24 I=1,N + IF ( ACPROB(I) .LT. 0. ) THEN + CALL UTMSG('RACPRO') + WRITE(IFCH,*)'***** NEGATIVE ACPROB(I)' + WRITE(IFCH,*)'I,ACPROB(I):',I,ACPROB(I) + CALL UTMSGF + ENDIF +24 CONTINUE + RELERN=ACPROB(N)-ACPROB(N-1) + IF ( RELERN .GT. 1.E-3 ) THEN + CALL UTMSG('RACPRO') + WRITE(IFCH,*)'***** RELERN TOO LARGE' + WRITE(IFCH,*)'RELERN:',RELERN + CALL UTMSGF + ENDIF + ENDIF + +C PRINT +C ----- + IF ( ISH .GE. 92 ) THEN +100 FORMAT(1X,79A1) + WRITE(IFCH,*)' ' + WRITE(IFCH,100)('-',IC=1,79) + WRITE(IFCH,*)' CROSS SECTIONS AND', + * ' CUT-POMERON WEIGHTS ACC TO GRIBOV-REGGE-THEORY' + WRITE(IFCH,100)('-',IC=1,79) + WRITE(IFCH,*)' CMS-ENERGY (GEV):',ENGY + WRITE(IFCH,100)('-',IC=1,79) + WRITE(IFCH,*)' ' + WRITE(IFCH,*)' PARAMETERS: ' + WRITE(IFCH,*)' ' + WRITE(IFCH,*)' GAMMA: ',GRIGAM + WRITE(IFCH,*)' R**2: ',GRIRSQ + WRITE(IFCH,*)' DELTA: ',GRIDEL + WRITE(IFCH,*)' SLOPE: ',GRISLO + WRITE(IFCH,*)' C: ',GRICEL + WRITE(IFCH,*)' ' + WRITE(IFCH,*)' CROSS SECTIONS:' + WRITE(IFCH,*)' ' + WRITE(IFCH,*)' ELASTIC: ',SIGPPE + WRITE(IFCH,*)' DIFFRACTIVE: ',SIGPPD + WRITE(IFCH,*)' INELASTIC: ',SIGPPI + WRITE(IFCH,*)' ' + WRITE(IFCH,*)' WEIGHTS W(N) OF N CUT POMERONS:' + WRITE(IFCH,*)' ( N - W(N) - W(N)_EXP )' + WRITE(IFCH,*)' ' + A=QMU/(QMU+1.) + I=1 + WRITE(IFCH,*)I,ACPROB(I),(1-A)*A**(I-1) + DO 25 I=2,N + WRITE(IFCH,*)I,ACPROB(I)-ACPROB(I-1),(1-A)*A**(I-1) +25 CONTINUE + WRITE(IFCH,*)' ' + ENDIF + +C POISSON +C ------- + ELSEIF ( TYP .EQ. 'POI' ) THEN + Z=QMU + IF ( Z .GE. N-1. ) THEN + CALL UTSTOP('RACPRO: Z >= N-1. ') + ENDIF + K=MAX( 0.D0, Z-(N-1-Z) )+1. + IF ( K .GE. N ) THEN + CALL UTSTOP('RACPRO: K >= N. ') + ENDIF + IF ( K .EQ. 1 ) THEN + PRBAB=EXP(-Z) + ACPROB(1)=PRBAB + DO 1 I=2,N + PRBAB=PRBAB*Z/(I-1) + ACPROB(I)=ACPROB(I-1)+PRBAB +1 CONTINUE + ELSEIF ( K .GT. 1 ) THEN + X=Z*EXP(-Z/(K-1.)) + PRBAB=1. + DO 3 I=1,K-1 + PRBAB=PRBAB*X/I + ACPROB(I)=0. +3 CONTINUE + ACPROB(K)=PRBAB + DO 4 I=K+1,N + PRBAB=PRBAB*Z/(I-1) + ACPROB(I)=ACPROB(I-1)+PRBAB +4 CONTINUE + ELSE + CALL UTSTOP('RACPRO: K <= 0. ') + ENDIF + +C EXPONENTIAL +C ----------- + ELSEIF ( TYP .EQ. 'EXP' ) THEN + A=QMU/(QMU+1.) + PRBAB=1.-A + ACPROB(1)=PRBAB + DO 2 I=2,N + PRBAB=PRBAB*A + ACPROB(I)=ACPROB(I-1)+PRBAB +2 CONTINUE + ENDIF + + ISH=ISH0 + RETURN + END +C======================================================================= + + FUNCTION RANSTC(XFL,XMIN) + +C----------------------------------------------------------------------- +C RETURNS RANDOM NUMBER ACCORDING TO A QUARK STRUCTURE FCTN +C WITH X>=XMIN +C +C CHANGES : D. HECK IK3 KFK KARLSRUHE +C DATE : MAR 22, 1994 +C----------------------------------------------------------------------- + PARAMETER (NSTRU=2049) + COMMON /CIPIO/ IPIO + COMMON /CUTINV/ LUTINV + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /STRU/ QSEP(NSTRU),QSET(NSTRU),QVAP(NSTRU) + * ,QVAT(NSTRU),XCUTAR,XSTRU(NSTRU) + * ,IDTG + COMMON /STRU2/ DELTA0,DELTA1,QSEH(NSTRU),QSEPI(NSTRU) + * ,QVAH(NSTRU),QVAPI(NSTRU),XSE(NSTRU),XVA(NSTRU) + CHARACTER XFL*3 + SAVE +C----------------------------------------------------------------------- + NSTRUC = NSTRU + IF ( XFL .EQ. 'SEP' ) THEN + RANSTC=RANXQ(NSTRUC,XSE ,QSEP,XMIN) + ELSEIF ( XFL .EQ. 'SET' ) THEN + RANSTC=RANXQ(NSTRUC,XSE ,QSET,XMIN) + ELSEIF ( XFL .EQ. 'VAP' ) THEN + RANSTC=RANXQ(NSTRUC,XVA ,QVAP,XMIN) + ELSEIF ( XFL .EQ. 'VAT' ) THEN + RANSTC=RANXQ(NSTRUC,XVA ,QVAT,XMIN) + ENDIF +1 RETURN + END +C======================================================================= + + FUNCTION RANXQ(N,X,Q,XMIN) + +C----------------------------------------------------------------------- +C RETURNS RANDOM NUMBER ACCORDING TO X(I) Q(I) WITH X>=XMIN +C----------------------------------------------------------------------- + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + REAL X(N),Q(N) + REAL XMIN,QRAN + SAVE +C----------------------------------------------------------------------- + IMIN=1 + IF ( XMIN .EQ. 0. ) GOTO 3 + I1=1 + I2=N + 1 I=I1+(I2-I1)/2 + IF ( X(I) .LT. XMIN ) THEN + I1=I + ELSEIF ( X(I) .GT. XMIN ) THEN + I2=I + ELSE + IMIN=I + GOTO 3 + ENDIF + IF ( I2-I1 .GT. 1 ) GOTO 1 + IMIN=I2 + 3 CONTINUE + IF ( Q(IMIN) .GT. Q(N)*.9999 ) THEN + RANXQ=XMIN + GOTO 4 + ENDIF + QRAN=Q(IMIN)+RANGEN()*(Q(N)-Q(IMIN)) + RANXQ=UTINVT(N,X,Q,QRAN) + 4 CONTINUE + IF ( RANXQ .LT. XMIN ) THEN + IF(ISH.GE.90)THEN + CALL UTMSG('RANXQ ') + WRITE(IFCH,*)'***** RANXQ=',RANXQ,' < XMIN=',XMIN + WRITE(IFCH,*)'Q(IMIN) Q Q(N):',Q(IMIN),QRAN,Q(N) + WRITE(IFCH,*)'X(IMIN) X X(N):',X(IMIN),RANXQ,X(N) + CALL UTMSGF + ENDIF + RANXQ=XMIN + ENDIF + IF ( ISH .GT. 91 ) THEN + WRITE(IFCH,*)'RANXQ:' + WRITE(IFCH,*)' Q(IMIN) Q Q(N):',Q(IMIN),QRAN,Q(N) + WRITE(IFCH,*)' X(IMIN) X X(N):',X(IMIN),RANXQ,X(N) + ENDIF + + RETURN + END +C======================================================================= + + FUNCTION SBET(Z,W) + +C----------------------------------------------------------------------- + SAVE +C----------------------------------------------------------------------- + SBET=SGAM(Z)*SGAM(W)/SGAM(Z+W) + RETURN + END +C======================================================================= + + FUNCTION SDENSI(R) + +C----------------------------------------------------------------------- +C NUCLEAR DENSITY +C----------------------------------------------------------------------- + COMMON /CDEN/ MASSNR,RMX,R0 +C AI IS INVERSE OF A=0.54 + REAL AI + DATA AI/1.85185185/ + SAVE +C----------------------------------------------------------------------- + SDENSI=R**2 / ( 1. + EXP((R-R0)*AI) ) + RETURN + END +C======================================================================= + + FUNCTION SGAM(X) + +C----------------------------------------------------------------------- +C GAMMA FUNCTION +C----------------------------------------------------------------------- + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + DOUBLE PRECISION GC(13),GF,GP,GX,GY,GZ + DATA GC/ + * 0.000539698958808D0, 0.002619307282746D0, 0.020449630823590D0, + * 0.073094836414370D0, 0.279643691578538D0, 0.553387692385769D0, + * 0.999999999999998D0,-0.000832724708684D0, 0.004698658079622D0, + * 0.022523834747260D0,-0.170447932874746D0,-0.056810335086194D0, + * 1.130603357286556D0/ + DATA GP / 3.141592653589793D0 / + SAVE +C----------------------------------------------------------------------- + GF = 0.D0 + GX = DBLE(X) + GZ = GX + IF ( GX .GT. 0.D0 ) GOTO 1 + IF ( GX .EQ. DINT(GX) ) THEN + WRITE(IFCH,'('' ARGUMENT OF GAMMA FUNCTION ='',E20.5)') X + CALL UTSTOP('SGAM : NEGATIVE INTEGER ARGUMENT ') + GOTO 5 + ENDIF + GZ = 1.D0 - GZ + 1 CONTINUE + GY = 1.D0 / GZ + IF ( GZ .LE. 1.D0 ) GOTO 4 + GY = 1.D0 + 2 CONTINUE + IF ( GZ .LT. 2.D0 ) GOTO 3 + GZ = GZ - 1.D0 + GY = GY * GZ + GOTO 2 + 3 CONTINUE + GZ = GZ - 1.D0 + 4 CONTINUE + GF = GY * ((((((GC(1)*GZ+GC(2))*GZ+GC(3))*GZ+GC(4))*GZ+ + * GC(5))*GZ+GC(6))*GZ+GC(7))/((((((GC(8)*GZ+GC(9))*GZ+ + * GC(10))*GZ+GC(11))*GZ+GC(12))*GZ+GC(13))*GZ+1.D0) + IF ( GX .LE. 0.D0 ) GF = GP / ( SIN(GP*GX) * GF ) + 5 CONTINUE + SGAM = GF + RETURN + END +C======================================================================= + + FUNCTION SGAU(X) + +C----------------------------------------------------------------------- +C RETURNS GAUSSIAN DISTRIBUTION (NOT NORMALIZED) +C----------------------------------------------------------------------- + SAVE +C----------------------------------------------------------------------- + SGAU=EXP(-0.5*X**2) + RETURN + END +C======================================================================= + + SUBROUTINE SHOPAR + +C----------------------------------------------------------------------- + DOUBLE PRECISION SEEDC,SEEDI + COMMON /CSEED/ SEEDC,SEEDI + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /PARO3/ ASUHAX(7),ASUHAY(7),OMEGA,SIGPPD,SIGPPE,UENTRO + * ,IWZZZZ + COMMON /PARO4/ GRICEL,GRIDEL,GRIGAM,GRIRSQ,GRISLO + COMMON /PARO5/ DELEPS,DELVOL + COMMON /QUARKM/ SMAS,SSMAS,USMAS,UUMAS + SAVE +C----------------------------------------------------------------------- + IF ( ISUP .NE. 1 .AND. ISH .GE. 90 ) THEN + WRITE(IFMT,102)('*',I=1,69) + * ,TAUNLL,MAXRES,PTF,PTQ,IOPTQ,PTMX,NEQMN,IAQU,WTARG + * ,WPROJ,QMUST,SIGPPI,CORE,FCTRMX,NCOLMX,LABSYS,IRESCL,OVERLP + * ,NTRYMX,DELMSS,SEEDI,GAUMX,BMAXIM,PUD,PSPINL,PSPINH,PISPN + * ,NCLEAN,JPSI,CUTMSS,RSTRAS,ISTMAX,TENSN,NEQMX,IPAGI,NDECAY + * ,PDIQUA,PAREA,DELREM,TAUMX,NSTTAU,SIGJ,JPSIFI,BMINIM + * ,RADIAC,TAUMIN,TAUMAX,NUMTAU,THEMAS,AMSIAC,ELEPTI +102 FORMAT(' ',69A1 + */' * TAUNLL=',F7.3,' MAXRES=',I7,' PTF =',F7.3 + *,' PTQ =',F7.3,' *'/' * IOPTQ =',I7,' PTMX =',F7.3 + *,' NEQMN =',I7,' IAQU =',I7,' *'/' * WTARG =',F7.3 + *,' WPROJ =',F7.3,' QMUST =',F7.3,' SIGPPI=',F7.3,' *' + */' * CORE =',F7.3,' FCTRMX=',F7.3,' NCOLMX=',I7 + *,' LABSYS=', I7,' *'/' * IRESCL=',I7,' OVERLP=',F7.3 + *,' NTRYMX=',I7,' DELMSS=',F7.3,' *'/' * SEEDI=',D24.17 + *,' GAUMX =',F7.3,' BMAXIM=',F7.1,' *'/' * PUD =',F7.3 + *,' PSPINL=',F7.3,' PSPINH=',F7.3,' PISPN =',F7.3,' *' + */' * NCLEAN=',I7,' JPSI =',I7,' CUTMSS=',F7.3 + *,' RSTRAS=',F7.3,' *'/' * ISTMAX=',I7,' TENSN =',F7.3 + *,' NEQMX =',I7,' IPAGI =',I7,' *'/' * NDECAY=',I7 + *,' PDIQUA=',F7.3,' PAREA =',F7.3,' DELREM=',F7.3,' *' + */' * TAUMX =',F7.3,' NSTTAU=',I7,' SIGJ =',F7.3 + *,' JPSIFI=',I7,' *'/' * BMINIM=',F7.1,' RADIAC=',F7.3 + *,' TAUMIN=',F7.3,' TAUMAX=',F7.3,' *'/' * NUMTAU=',I7 + *,' THEMAS=',F7.3,' AMSIAC=',F7.3,' ELEPTI=',F7.3,' *') + WRITE(IFMT,108) + * ELEPTO,ANGMUE,SMAS,UUMAS,USMAS,SSMAS,IOPBRK,NDECAW + * ,IMIHIS,KENTRO,RADIAS,ISPHIS,RHOPHI,ICLHIS,ISHSUB,IOPENU + * ,IOPENT,CUTMSQ,KUTDIQ,IDPM,TAUREA,ISPALL,YMXIMI,PTH,PHARD + * ,IOPTF,PROSEA,NDECAX,WTMINI,WTSTEP,IWCENT,ISHEVT,PVALEN + * ,IFRADE,IENTRO,GRIGAM,GRIRSQ,GRIDEL,GRISLO,GRICEL,IJPHIS + * ,UENTRO,IWZZZZ,IOJINT,AMPRIF,DELVOL,DELEPS + * ,('*',I=1,69) +108 FORMAT( + * ' * ELEPTO=',F7.3,' ANGMUE=',F7.3,' SMAS =',F7.3 + *,' UUMAS =',F7.3,' *'/' * USMAS =',F7.3,' SSMAS =',F7.3 + *,' IOPBRK=',I7,' NDECAW=',I7 ,' *'/' * IMIHIS=',I7 + *,' KENTRO=',I7,' RADIAS=',F7.3,' ISPHIS=',I7 ,' *' + */' * RHOPHI=',F7.3,' ICLHIS=',I7 ,' ISHSUB=',I7 + *,' IOPENU=',I7 ,' *'/' * IOPENT=',I7,' CUTMSQ=',F7.3 + *,' KUTDIQ=',I7 ,' IDPM =',I7 ,' *'/' * TAUREA=',F7.3 + *,' ISPALL=',I7 ,' YMXIMI=',F7.3,' PTH =',F7.3,' *' + */' * PHARD =',F7.3,' IOPTF =',I7 ,' PROSEA=',F7.3 + *,' NDECAX=',I7 ,' *'/' * WTMINI=',F7.3,' WTSTEP=',F7.3 + *,' IWCENT=',I7 ,' ISHEVT=',I7 ,' *'/' * PVALEN=',F7.3 + *,' IFRADE=',I7 ,' IENTRO=',I7 ,' GRIGAM=',F7.3,' *' + */' * GRIRSQ=',F7.3,' GRIDEL=',F7.3,' GRISLO=',F7.3 + *,' GRICEL=',F7.3,' *'/' * IJPHIS=',I7 ,' UENTRO=',F7.3 + *,' IWZZZZ=',I7 ,' IOJINT=',I7 ,' *'/' * AMPRIF=',F7.3 + *,' DELVOL=',F7.3,' DELEPS=',F7.3,' ',7X ,' *' + */' ',69A1) + ENDIF + RETURN + END +C======================================================================= + + FUNCTION SJCENT(K,KU,U) + +C---------------------------------------------------------------------- +C RETURNS ENTROPY. +C INPUT: QUARK NUMBER K; ENERGY U (GEV). +C IOPENT=1: OSCILLATOR MODEL. +C INTERPOLATES AND EXTRAPOLATES ENTRO(1+K,1+N) +C FROM SR JCENTR (JCENTD). +C SR JCENTR (JCENTD) HAS TO BE CALLED BEFORE!! +C IOPENT=2,3: FERMI GAS MODEL; JOERG AICHELIN. +C IOPENT=2: CONST VOLUME, IOPENT=3: CONST DENSITY +C IOPENT=4: FERMI GAS (NEW) +C IOPENT=5: HAGEDORN +C---------------------------------------------------------------------- + PARAMETER (KPARX=15) + PARAMETER (NQUAX=12) + COMMON /CENTRO/ ENTRO(1+KPARX,1+NQUAX) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /PARO3/ ASUHAX(7),ASUHAY(7),OMEGA,SIGPPD,SIGPPE,UENTRO + * ,IWZZZZ + SAVE +C---------------------------------------------------------------------- + SJCENT=0. + IF ( IOPENT .EQ. 0 ) THEN + RETURN + + ELSEIF ( IOPENT .EQ. 1 ) THEN + IF ( K .LE. KENTRO ) RETURN + IF ( MOD(K,3) .NE. 0 ) THEN + CALL UTSTOP('SJCENT: K MUST BE MULTIPLE OF 3 ') + ENDIF + E=U/OMEGA + IF ( K .GT. KPARX ) GOTO 5001 + N=INT(E) + IF ( N .LT. 0 ) THEN + CALL UTSTOP('SJCENT: NEGATIVE ENERGY ') + ENDIF + IF ( N .GE. NQUAX ) N=NQUAX-1 + SJCENT=ENTRO(1+K,1+N)+(E-N)*(ENTRO(1+K,1+N+1)-ENTRO(1+K,1+N)) + IF ( K .LE. 3 ) RETURN +5002 E3=E*3./K + N3=INT(E3) + IF ( N3 .GE. NQUAX ) N3=NQUAX-1 + SENTR3=ENTRO(1+3,1+N3)+(E3-N3) + * *(ENTRO(1+3,1+N3+1)-ENTRO(1+3,1+N3)) + SJCENT=MIN(SJCENT,K/3.*SENTR3) + RETURN +5001 CONTINUE + L=KPARX + EL=(E*L)/K + NL=INT(EL) + IF ( NL .GE. NQUAX ) NL=NQUAX-1 + SENTRL=ENTRO(1+L,1+NL)+(EL-NL) + * *(ENTRO(1+L,1+NL+1)-ENTRO(1+L,1+NL)) + SJCENT=FLOAT(K)/L*SENTRL + GOTO 5002 + + ELSEIF ( IOPENT .EQ. 2 ) THEN +C CONSTANT VOLUME 5 FM**3 + IF ( K .LE. KENTRO ) RETURN + X1=12.96*K**(-.315) + IF ( K .LT. 19 ) THEN + X2=.785 + .005*K + ELSE + X2=.88 + ENDIF + SJCENT=K*X1*(U/K)**X2 + RETURN + + ELSEIF ( IOPENT .EQ. 3 ) THEN +C CONSTANT DENSITY + IF ( K .LE. KENTRO ) RETURN + X1=9.785 + X2=.7926 + SJCENT=K*X1*(U/K)**X2 + RETURN + + ELSEIF ( IOPENT .EQ. 4 ) THEN +C CONSTANT VOLUME 15 FM**3 + IF ( K .LE. KENTRO ) RETURN + SJCENT=SJCEN4(K,KU,U) + RETURN + + ELSEIF ( IOPENT .EQ. 5 ) THEN +C HAGEDORN + IF ( U .LE. UENTRO .AND. K .LE. KENTRO ) THEN + RETURN + ENDIF +CDH THAGED=.250 +CDH SJCENT = U/THAGED + SJCENT = U*4. + + ELSE + CALL UTSTOP('SJCENT: INVALID OPTION IOPENT ') + ENDIF + + RETURN + END +C======================================================================= + + FUNCTION SJCEN4(K,KU,U) + +C---------------------------------------------------------------------- +C RETURNS TOTAL ENTROPY. +C CONSTANT VOLUME 15 FM**3. +C INPUT: TOTAL QUARK NUMBER K; UP AND DOWN QUARKS KU; +C TOTAL EXCITATION ENERGY U(GEV). +C INITIAL CALL OF SJCEN0 REQUIRED!!! +C---------------------------------------------------------------------- + COMMON /CSJCEN/ ENT(16000) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + SAVE +C---------------------------------------------------------------------- + SJCEN4 = 0. + + IF ( K .LT. KU ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('SJCEN4') + WRITE(IFCH,*)'***** K < KU' + WRITE(IFCH,*)'***** K: ',K,' KU: ',KU + CALL UTMSGF + ENDIF + RETURN + ENDIF + + IF ( K .GT. 45 ) THEN + KO=K + K=45 + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('SJCEN4') + WRITE(IFCH,*)'***** K > 45' + WRITE(IFCH,*)'***** K: ',KO,' K_NEW: ',K + CALL UTMSGF + ENDIF + ENDIF + + IF ( MOD(K,3) .NE. 0 ) THEN + CALL UTSTOP('SJCEN4: NONINTEGER BARYON NUMBER ') + ENDIF + + IK=0 + DO 1 I=3,K-3,3 + IK=IK+I+1 + 1 CONTINUE + IF ( U .LT. 10. ) THEN + DU=MOD(U,.25) + IU=INT(U/.25)+1 + IENTRY=(IK+KU)*41+IU + SJCEN4=ENT(IENTRY)+(ENT(IENTRY+1)-ENT(IENTRY))*DU*4. + ELSE + IU=40 + IENTRY=(IK+KU)*41+IU + SJCEN4=ENT(IENTRY)+(ENT(IENTRY+1)-ENT(IENTRY))*4.*(U-9.75) + ENDIF + + RETURN + END +C======================================================================= + + FUNCTION SJCGAM(KEUX,KEDX,KESX,KECX,AMA,AMO,PO,MOX) + +C---------------------------------------------------------------------- +C RETURNS PARTIAL DECAY WIDTH DGAMMA = PHASE SPACE * DENSITY +C FOR DECAY OF CLUSTER INTO CLUSTER AND HADRON. +C KE*X: NET QUARK NUMBER +C AMA: CLUSTER MASS; AMO: HADRON MASS; PO: HADRON MOMENTUM +C---------------------------------------------------------------------- + COMMON /CENTEX/ ENTEXP + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CSJCGA/ AMEGAM,AMNULL,ASUHA(7),ENTRPY,NOPHA,NSUHA(7) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO3/ ASUHAX(7),ASUHAY(7),OMEGA,SIGPPD,SIGPPE,UENTRO + * ,IWZZZZ + SAVE +C---------------------------------------------------------------------- + ENTRPY=-99.9 + IF ( MOX .EQ. 1 ) THEN + ENTEXP=0. + AMNULL=UTAMNU(KEUX,KEDX,KESX,KECX,IOPENU) + ELSE + ENTRPY=ENTRPY-ENTEXP + ENDIF + EO=SQRT(AMO**2+PO**2) + IF ( EO .GT. AMA ) GOTO 999 + AME2=(AMA-EO)**2-PO**2 + IF ( AME2 .LT. 0. ) GOTO 999 + AMEGAM=SQRT(AME2) + E=AMEGAM-AMNULL + IF ( E .LT. 0. ) GOTO 998 + KE=ABS(KEUX+KEDX+KESX+KECX) + + IF ( IOPENT .EQ. 5 ) THEN + IF ( E .LE. UENTRO .AND. KE .LE. KENTRO ) THEN + ENTRPY=0. + ELSE +C ENTROPY AFTER HAGEDORN + ENTRPY = E*4. + ENDIF + ELSE + KU=ABS(KEUX+KEDX) + ENTRPY=SJCENT(KE,KU,E) + ENDIF + + IF ( MOX .EQ. 1 ) THEN + ENTEXP=ENTRPY + ENTRPY=0. + SJCGAM=.125* PO**2/( PI**2*AMA*EO ) + ELSE + ENTRPY=ENTRPY-ENTEXP + SJCGAM=.125*EXP(ENTRPY)* PO**2/( PI**2*AMA*EO ) + ENDIF + RETURN + 999 AMEGAM = 0. + 998 SJCGAM= 0. + RETURN + END +C======================================================================= + + FUNCTION SMASS(A,Y,Z) + +C----------------------------------------------------------------------- +C RETURNS CLUSTER MASS (IN GEV) (PER CLUSTER, NOT (!) PER NUCLEON) +C ACCORDING TO BERGER/JAFFE MASS FORMULA, PRC35(1987)213 EQ.2.31, +C SEE ALSO C. DOVER, BNL-46322, INTERSECTIONS-MEETING, TUCSON, 91. +C A: MASSNR, Y: HYPERCHARGE, Z: CHARGE, +C----------------------------------------------------------------------- + COMMON /CMASS/ AC,AS,CZ,DY,DZ,EPSI,RZERO,SIGMA,THET,YM,ZM + SAVE +C----------------------------------------------------------------------- + YMIN=YM*A + ZMIN=CZ/(DZ/A+ZM/A**.3333333) + SMASS=EPSI*A +AS*A**.6666667 + * +(AC/A**.3333333 +DZ/A*0.5)*(Z-ZMIN)**2 + * +DY/A*0.5*(Y-YMIN)**2 + RETURN + END +C======================================================================= + + SUBROUTINE SMASSI(THETA) + +C----------------------------------------------------------------------- +C INITIALIZATION FOR SMASS. +C CALCULATES PARAMETERS FOR BERGER/JAFFE MASS FORMULA +C (PRC35(1987)213 EQ.2.31, SEE ALSO C. DOVER, BNL-46322). +C THETA: PARAMETER THAT DETERMINES ALL PARAMETERS IN MASS FORMULA. +C----------------------------------------------------------------------- + COMMON /CMASS/ AC,AS,CZ,DY,DZ,EPSI,RZERO,SIGMA,THET,YM,ZM + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + DATA ALP /0.007297145/ + SAVE +C----------------------------------------------------------------------- + THET=THETA + + ASTR=.150 + + CO=COS(THETA) + SI=SIN(THETA) + BET=(1.+CO**3)*0.5 + RZERO=SI/ASTR/(0.6666667/PI*(1.+CO**3) )**0.3333333 + CS=ASTR/SI + CZ=CS*(1.-BET**0.3333333 ) + SIGMA=0.75/PI*(ASTR/SI)**3*0.3333333*(CO**2*0.5 -SI**2*(1-SI) + * -1./PI*(PI*0.5-THETA-SIN(2*THETA)+SI**3*LOG((1+CO)/SI) ) ) + + EPSI=ASTR*(BET**0.3333333+2.)/SI + AS=4.*PI*SIGMA*RZERO**2 + AC=0.6*ALP/RZERO + DZ=ASTR/SI*BET**0.3333333 *CO**2 * + * (CO**4*(1.+BET**0.3333333)+(1+BET)**2)/ + *( (2.*CO**2+BET**.3333333)*(CO**4*(1+BET**.6666667)+(1.+BET)**2)- + * (CO**4+BET**0.3333333*(1+BET)) + * *( (2.*BET**0.6666667-1.)*CO**2+1.+BET) ) + DY=ASTR/6.*(1.+CO**3)**3/SI* + * ( 1.+(1.+CO)/(4.*(1.+CO**3))**0.6666667 )/ + * ( CO**6 + CO + CO*(.5*(1+CO**3))**1.333333 ) + ZM=6.*ALP/(5.*RZERO) + YM=(1.-CO**3)/(1.+CO**3) + + RETURN + END +C======================================================================= + + SUBROUTINE SMASSP + +C----------------------------------------------------------------------- +C PRINTS SMASS. +C----------------------------------------------------------------------- + COMMON /CMASS/ AC,AS,CZ,DY,DZ,EPSI,RZERO,SIGMA,THET,YM,ZM + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + REAL ENG(14),YMI(14),ZMI(14) + SAVE +C----------------------------------------------------------------------- + WRITE(IFCH,*)'PARAMETERS OF MASS FORMULA:' + WRITE(IFCH,*)'---------------------------' + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'THETA=',THET,' EPSI=',EPSI + WRITE(IFCH,*)'AS=',AS,' AC=',AC + WRITE(IFCH,*)'DY=',DY,' DZ=',DZ + WRITE(IFCH,*)'YM=',YM + WRITE(IFCH,*)'CZ DZ ZM=',CZ,DZ,ZM + WRITE(IFCH,*)'SIGMA**1/3=',SIGMA**(1./3.),' RZERO=',RZERO + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'MASS:' + WRITE(IFCH,*)'-----' + WRITE(IFCH,5000)(J,J=1,14) +5000 FORMAT(/5X,'A:',14I5/) + DO 4 J=1,14 + A=J + YMI(J)=YM*A + ZMI(J)=CZ/(DZ/A+ZM/A**0.3333333) + 4 CONTINUE + WRITE(IFCH,5002)(YMI(J),J=1,14) +5002 FORMAT(1X,'YMIN: ',14F5.2/) + WRITE(IFCH,5003)(ZMI(J),J=1,14) +5003 FORMAT(1X,'ZMIN: ',14F5.2/) + DO 2 I=1,15 + NS=11-I + DO 3 J=1,14 + A=J + Y=A-NS + Z=0. + ENG(J)=SMASS(A,Y,Z)/A + 3 CONTINUE + WRITE(IFCH,5001)NS,(ENG(J),J=1,14) +5001 FORMAT(1X,'S=',I2,2X,14F5.2) + 2 CONTINUE + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'MASS-MASS(FREE):' + WRITE(IFCH,*)'----------------' + WRITE(IFCH,5000)(J,J=1,14) + DO 5 I=1,15 + NS=11-I + DO 6 J=1,14 + A=J + Y=A-NS + Z=0. + SG=SIGN(1.,A) + AX=SG*A + YX=SG*Y + ZX=SG*Z + KU=NINT(AX+ZX) + KD=NINT(AX-ZX+YX) + KS=NINT(AX-YX) + KC=0 + ENG(J)=(SMASS(A,Y,Z)-UTAMNU(KU,KD,KS,KC,3))/A + 6 CONTINUE + WRITE(IFCH,5001)NS,(ENG(J),J=1,14) +5 CONTINUE + + RETURN + END +C======================================================================= + + SUBROUTINE SMASST(KUX,KDX,KSX,KCX,A,Y,Z) + +C----------------------------------------------------------------------- +C INPUT: KUX,KDX,KSX,KCX = NET QUARK NUMBERS (FOR U,D,S,C QUARKS). +C OUTPUT: MASSNR A, HYPERCHARGE Y AND CHARGE Z. +C----------------------------------------------------------------------- + SAVE +C----------------------------------------------------------------------- + SG=1. + IF ( KUX+KDX+KSX+KCX .LT. 0 ) SG=-1. + KU=SG*KUX + KD=SG*KDX + KS=SG*KSX + KC=SG*KCX + K=KU+KD+KS+KC + IF ( MOD(K,3) .NE. 0 ) THEN + CALL UTSTOP('SMASST: NONINTEGER BARYON NUMBER ') + ENDIF + A=K/3 + Y=A-KS + NZ=2*KU-KD-KS+2*KC + IF ( MOD(NZ,3) .NE. 0 ) THEN + CALL UTSTOP('SMASST: NONINTEGER CHARGE ') + ENDIF + Z=NZ/3 + RETURN + END +C======================================================================= + + FUNCTION SPTF(X) + +C----------------------------------------------------------------------- +C RETURNS PT-DISTRIBUTION FOR FRAGMENTATION +C----------------------------------------------------------------------- + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CQUAMA/ QUAMA + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + SAVE +C----------------------------------------------------------------------- + IF ( IOPTF .EQ. 1 ) THEN + SPTF = X * EXP(-2./PTF*SQRT(X**2+QUAMA**2)) + ELSEIF ( IOPTF .EQ. 2 ) THEN + SPTF = X * EXP(-PI*0.25*(X**2+QUAMA**2)/PTF**2) + ENDIF + RETURN + END +C======================================================================= + + FUNCTION SPTH(X) + +C----------------------------------------------------------------------- +C RETURNS PT-DISTRIBUTION FOR HARD SCATTERING +C----------------------------------------------------------------------- + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + SAVE +C----------------------------------------------------------------------- + SPTH=PTH**2*2.*X/(X**2+PTH**2)**3 + RETURN + END +C======================================================================= + + FUNCTION SPTJ(X) + +C----------------------------------------------------------------------- +C JPSI PT-DISTRIBUTION IN 200 GEV PP +C----------------------------------------------------------------------- + DATA AI/1.052631579/, C/2.75482/, C1/1.75482/, CC/16.30716419/ +C AI IS THE INVERSE OF A + SAVE +C----------------------------------------------------------------------- +CDH A=0.95 +CDH C=1./0.363 +CDH Z=X/A + Z=X*AI +CDH SPTJ=1./A*C**C/SGAM(C)*Z**(C-1.)*EXP(-C*Z) + SPTJ = AI * CC * 0.619299158 * Z**C1 * EXP(-C*Z) + RETURN + END +C======================================================================= + + FUNCTION SPTQ(X) + +C----------------------------------------------------------------------- +C RETURNS PT-DISTRIBUTION OF QUARKS IN NUCLEONS +C----------------------------------------------------------------------- + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + SAVE +C----------------------------------------------------------------------- + IF ( IOPTQ .EQ. 2 ) THEN + AUXIL2 = PI/PTQ**2 + SPTQ=(0.5*X)* AUXIL2 * EXP(-(0.5*X)**2*AUXIL2) + ELSEIF ( IOPTQ .EQ. 1 ) THEN + AUXIL1 = 2./PTQ + SPTQ=AUXIL1**2 * X * EXP(-X*AUXIL1) + ELSEIF ( IOPTQ .EQ. 3 ) THEN + SPTQ=PTQ**2 * 2. * X / (X**2+PTQ**2)**2 + ENDIF + RETURN + END +C======================================================================= + + DOUBLE PRECISION FUNCTION SSE0(Z) + +C----------------------------------------------------------------------- +C SEA QUARK STRUCTURE FUNCTION FOR HADRONS +C----------------------------------------------------------------------- + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + DOUBLE PRECISION Z + SAVE +C----------------------------------------------------------------------- + SSE0 = (1.D0-Z)**8.05D0 * 1.265D0 / SQRT(Z**2+XCUT**2) + RETURN + END +C======================================================================= + + DOUBLE PRECISION FUNCTION SSE1(Z) + +C----------------------------------------------------------------------- +C SEA QUARK STRUCTURE FUNCTION FOR PIONS +C----------------------------------------------------------------------- + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + DOUBLE PRECISION Z + SAVE +C----------------------------------------------------------------------- + SSE1 = (1.D0-Z)**5.D0 * 0.9D0 / SQRT(Z**2+XCUT**2) + RETURN + END +C======================================================================= + + FUNCTION SSPLIT(X) + +C----------------------------------------------------------------------- +C RETURNS SPLITTING FUNCTION +C----------------------------------------------------------------------- + SAVE +C----------------------------------------------------------------------- +C-C SSPLIT= ( 0.3 + 10.0*X**7 - 10.3*X**15 ) /SQRT(X**2+.2**2) +C-C SSPLIT= 0.2 + 2.4*X**2 - 2.6*X**5 +C-C SSPLIT= 0.4 + 2.0*X - 2.4*X**3 +C-C SSPLIT= ( 0.8 + 2.0*X - 2.8*X**3 ) /SQRT(X**2+.2**2) + SSPLIT= X**3 - X**5 + RETURN + END +C======================================================================= + + FUNCTION SSPLIX(X) + +C----------------------------------------------------------------------- +C RETURNS SPLITTING FUNCTION +C----------------------------------------------------------------------- + SAVE +C----------------------------------------------------------------------- +C-C SSPLIX= (1-X) - (1-X)**7 +C-C SSPLIX= 1 +C-C Z=2*X-.5 +C-C SSPLIX= Z**3 - Z**5 +C-C IF ( Z .LT. 0. ) SSPLIX=0. +C-C IF ( Z .GT. 1. ) SSPLIX=0. + SSPLIX= X**3 - X**5 + RETURN + END +C======================================================================= + + SUBROUTINE STAA(X,Q2I,Z,S) + +C----------------------------------------------------------------------- +C STRUCTURE FUNCTIONS. +C----------------------------------------------------------------------- + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + SAVE +C----------------------------------------------------------------------- + Z=SQRT(X**2+XCUT**2) + Q2=MAX(4.00001,Q2I) +CDH S=LOG(LOG(Q2/.2**2)/LOG(4/.2**2)) + S=LOG(LOG(Q2*25. )*0.21714724) + RETURN + END +C======================================================================= + + FUNCTION STXD(X,Q2) + +C----------------------------------------------------------------------- +C VALENCE D-QUARK DISTRIBUTION. +C FROM GLUECK, HOFFMANN, REYA, Z. PHYS. C13 (1982) 119. +C----------------------------------------------------------------------- + SAVE +C----------------------------------------------------------------------- + CALL STAA(X,Q2,Z,S) + A=.364-.0368*S + C=2.-.5414*S**.8 + D=5.09+.3463*S + STXD=C*X**A*(1.-X**C)**D/SBET(D+1.,A/C) + RETURN + END +C======================================================================= + + FUNCTION STXS(X,Q2) + +C----------------------------------------------------------------------- +C S-SEA DISTRIBUTION. +C FROM GLUECK, HOFFMANN, REYA, Z. PHYS. C13 (1982) 119. +C----------------------------------------------------------------------- + SAVE +C----------------------------------------------------------------------- + CALL STAA(X,Q2,Z,S) + A=.0625+.1132*S**1.3 + B=12.64*S-51.70*S**1.8+38.02*S**2 + C=4.448*S + D=7.+1.562*S + E=.3081*S**2.5 + F=47.24+67.91*S + STXS=A*(1.+B*X+C*X**2)*(1.-X)**D + E*EXP(-F*X) + RETURN + END +C======================================================================= + + FUNCTION STXU(X,Q2) + +C----------------------------------------------------------------------- +C VALENCE U-QUARK DISTRIBUTION. +C FROM GLUECK, HOFFMANN, REYA, Z. PHYS. C13 (1982) 119. +C----------------------------------------------------------------------- + SAVE +C----------------------------------------------------------------------- + CALL STAA(X,Q2,Z,S) + A=.421-.0412*S + C=2.-.6223*S**.8 + D=3.37+.4319*S + STXU=2.*C*X**A*(1.-X**C)**D/SBET(D+1.,A/C) + RETURN + END +C======================================================================= + + FUNCTION STXUS(X,Q2) + +C----------------------------------------------------------------------- +C U-SEA DISTRIBUTION. +C FROM GLUECK, HOFFMANN, REYA, Z. PHYS. C13 (1982) 119. +C----------------------------------------------------------------------- + SAVE +C----------------------------------------------------------------------- + CALL STAA(X,Q2,Z,S) + A=.25+.088*S**1.3 + B=.8128*S-2.003*S**1.8+.0831*S**2 + C=3.97*S + D=7.+1.666*S + E=.2487*S**2.5 + F=27.8+59.68*S + STXUS=A*(1.+B*X+C*X**2)*(1.-X)**D + E*EXP(-F*X) + RETURN + END +C======================================================================= + + FUNCTION STXZNE(X,Q2) + +C----------------------------------------------------------------------- +C STRUCTURE FUNCTION OF NEUTRON +C----------------------------------------------------------------------- + SAVE +C----------------------------------------------------------------------- + STXZNE=(4.*STXD(X,Q2) + STXU(X,Q2) + + * 10.*STXUS(X,Q2) + 2.*STXS(X,Q2))/9. + RETURN + END +C======================================================================= + + FUNCTION STXZPR(X,Q2) + +C----------------------------------------------------------------------- +C STRUCTURE FUNCTION OF PROTON +C----------------------------------------------------------------------- + SAVE +C----------------------------------------------------------------------- + STXZPR=(4.*STXU(X,Q2) + STXD(X,Q2) + + * 10.*STXUS(X,Q2) + 2.*STXS(X,Q2))/9. + RETURN + END +C======================================================================= + + DOUBLE PRECISION FUNCTION SVA0(Z) + +C----------------------------------------------------------------------- +C VALENCE QUARK STRUCTURE FUNCTION FOR HADRONS +C----------------------------------------------------------------------- + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + DOUBLE PRECISION Z + SAVE +C----------------------------------------------------------------------- + IF ( Z .NE. 0.D0 ) THEN + SVA0=(1.D0-Z)**3.46 * Z**0.419 * (2.74793064D0*Z + 0.62452969D0) + * / SQRT(Z**2+XCUT**2) + ELSE + SVA0=0.D0 + ENDIF + RETURN + END +C======================================================================= + + DOUBLE PRECISION FUNCTION SVA1(Z) + +C----------------------------------------------------------------------- +C VALENCE QUARK STRUCTURE FUNCTION FOR PIONS +C----------------------------------------------------------------------- + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + DOUBLE PRECISION Z + SAVE +C----------------------------------------------------------------------- + IF ( Z .NE. 0.D0 ) THEN + SVA1 = (1.D0-Z)**0.7D0 * Z**0.4D0 * 0.1730725D0 + * / SQRT(Z**2+XCUT**2) + ELSE + SVA1=0.D0 + ENDIF + RETURN + END +C======================================================================= + + SUBROUTINE UINTEG(VAL,FUNC,A,B,AERR,RERR,LEVEL,ERROR,IFLAG) + +C----------------------------------------------------------------------- +C CACLULATION OF DEFINITE INTEGRAL OF FUNC(X) FROM A TO B +C----------------------------------------------------------------------- +C RELERR=1.D-12 +C ABSERR=0.D0 +C LEVEL=1 +C CALL UINTEG(VALUE,FUNCTN,A,B,ABSERR,RELERR,LEVEL,ERROR,IFLAG) +C IF (IFLAG.GT.3) WRITE(*,'('' IFLAG ='',I7)') IFLAG +C----------------------------------------------------------------------- + IMPLICIT DOUBLE PRECISION (A-H,O-Z) + DIMENSION T(10,10),R(10),AIT(10),DIF(10),RN(4) + DIMENSION TS(2049),IBEGS(30),BEGIN(30),FINIS(30),EST(30) + LOGICAL H2CONV,AITKEN,RIGHT,REGLAR,REGLSV(30) + DATA TOLSAV,AITLOW,H2TOL,AITTOL,VJUMP,MAXTS,MAXTBL,MXSTGE + * / 1.D-16, 1.1D0, .15D0, .1D0, .01D0, 2049, 10, 30 / + DATA RN /.71420053D0,.34662815D0,.843751D0,.12633046D0 / + DATA ALG402 /.3010299956639795D0 / + SAVE +C----------------------------------------------------------------------- + TOLMCH=TOLSAV + VAL=0.D0 + ERROR=0.D0 + IFLAG=1 + VLONG=DABS(B-A) + IF ( VLONG .EQ. 0.D0 ) RETURN + ERRR=DMIN1( .1D0, DMAX1(DABS(RERR),1.D1*TOLMCH) ) + ERRA=DABS(AERR) + STEPMN=DMAX1(VLONG/FLOAT(2**MXSTGE), + * DMAX1(VLONG,DABS(A),DABS(B))*TOLMCH) + STAGE=.5D0 + ISTAGE=1 + CUREST=0.D0 + FNSIZE=0.D0 + PREVER=0.D0 + REGLAR=.FALSE. + BEGI=A + FBEG=FUNC(A)/2.D0 + TS(1)=FBEG + IBEG=1 + ENDE=B + FEND=FUNC(B)/2.D0 + TS(2)=FEND + IEND=2 + 60 CONTINUE + RIGHT=.FALSE. + 61 CONTINUE + STEP=ENDE-BEGI + ASTEP=DABS(STEP) + IF ( ASTEP .LT. STEPMN ) GOTO 97 + IF ( LEVEL .GE. 3 ) WRITE(*,101) BEGI,STEP,ISTAGE +101 FORMAT(' BEGI,STEP',1P,2E16.7,I5) + T(1,1)=FBEG+FEND + TABS=DABS(FBEG)+DABS(FEND) + L=1 + N=1 + H2CONV=.FALSE. + AITKEN=.FALSE. + GOTO 63 + 62 IF ( LEVEL .GE. 4 ) WRITE(*,102) L,T(1,LM1) +102 FORMAT(1X,I5,7E16.8/1X,3E16.8) + 63 LM1=L + L=L+1 + N2=N*2 + FN=N2 + ISTEP=(IEND-IBEG)/N + IF ( ISTEP .LE. 1 ) THEN + II=IEND + IEND=IEND+N + IF ( IEND .GT. MAXTS ) GOTO 96 + HOVN=STEP/FN + III=IEND + DO 64 I=1,N2,2 + TS(III)=TS(II) + TS(III-1)=FUNC(ENDE-FLOAT(I)*HOVN) + III=III-2 + II=II-1 + 64 CONTINUE + ISTEP=2 + ENDIF + ISTEP2=IBEG+ISTEP/2 + SUM=0.D0 + SUMABS=0.D0 + DO 65 I=ISTEP2,IEND,ISTEP + SUM=SUM+TS(I) + SUMABS=SUMABS+DABS(TS(I)) + 65 CONTINUE + T(L,1)=T(L-1,1)/2.D0 + SUM/FN + TABS=TABS/2.D0+SUMABS/FN + ABSI=ASTEP*TABS + N=N2 + IT=1 + VINT=STEP*T(L,1) + TABTLM=TABS*TOLMCH + FNSIZE=DMAX1(FNSIZE,DABS(T(L,1))) + ERGOAL=DMAX1(ASTEP*TOLMCH*FNSIZE, + * STAGE*DMAX1(ERRA,ERRR*DABS((CUREST)+VINT))) + FEXTRP=1.D0 + DO 66 I=1,LM1 + FEXTRP=FEXTRP*4.D0 + T(I,L)=T(L,I)-T(L-1,I) + T(L,I+1)=T(L,I)+T(I,L)/(FEXTRP-1.D0) + 66 CONTINUE + ERRER=ASTEP*DABS(T(1,L)) + IF ( L .LE. 2 ) THEN + IF ( DABS(T(1,2)) .LE. TABTLM) GOTO 81 + GOTO 63 + ENDIF + DO 67 I=2,LM1 + DIFF=0.D0 + IF ( DABS(T(I-1,L)) .GT. TABTLM ) DIFF=T(I-1,LM1)/T(I-1,L) + T(I-1,LM1)=DIFF + 67 CONTINUE + IF ( DABS(4.D0-T(1,LM1)) .LE. H2TOL ) GOTO 69 + IF ( T(1,LM1) .EQ. 0.D0 ) GOTO 68 + IF ( DABS(2.D0-DABS(T(1,LM1))) .LT. VJUMP ) GOTO 80 + IF ( L .EQ. 3 ) GOTO 62 + H2CONV=.FALSE. + IF ( DABS((T(1,LM1)-T(1,L-2))/T(1,LM1)) .LE. AITTOL ) GOTO 72 + IF ( REGLAR ) GOTO 68 + IF ( L .EQ. 4 ) GOTO 62 + 68 IF ( ERRER .LE. ERGOAL ) GOTO 83 + IF ( LEVEL .GE. 4 ) WRITE(*,103) L,T(1,LM1) +103 FORMAT(1X,I5,7E16.8/1X,3E16.8) + GOTO 90 + 69 CONTINUE + IF ( LEVEL .GE. 4 ) WRITE(*,104) L,T(1,LM1) +104 FORMAT(1X,I5,E16.8,5X,'H2CONV') + IF ( H2CONV ) GOTO 70 + AITKEN=.FALSE. + H2CONV=.TRUE. + IF ( LEVEL .GE. 3 ) WRITE(*,105) L +105 FORMAT(' H2 CONVERGENCE AT ROW',I4) + 70 FEXTRP=4.D0 + 71 IT=IT+1 + VINT=STEP*T(L,IT) + ERRER=DABS(STEP/(FEXTRP-1.D0)*T(IT-1,L)) + IF ( ERRER .LE. ERGOAL ) GOTO 86 + IF ( IT .EQ. LM1 ) GOTO 79 + IF ( T(IT,LM1) .EQ. 0.D0 ) GOTO 71 + IF ( T(IT,LM1) .LE. FEXTRP ) GOTO 79 + IF ( DABS(T(IT,LM1)/4.D0-FEXTRP)/FEXTRP .LT. AITTOL ) + * FEXTRP=FEXTRP*4.D0 + GOTO 71 + 72 IF ( LEVEL .GE. 4 ) WRITE(*,106) L,T(1,LM1) +106 FORMAT(1X,I5,E16.8,5X,'AITKEN') + IF ( T(1,LM1) .LT. AITLOW ) GOTO 90 + IF ( AITKEN ) GOTO 73 + H2CONV=.FALSE. + AITKEN=.TRUE. + IF ( LEVEL .GE. 3 ) WRITE(*,107) L +107 FORMAT(' AITKEN AT ROW',I4) + 73 FEXTRP=T(L-2,LM1) + IF ( FEXTRP .GT. 4.5 ) GOTO 70 + IF ( FEXTRP .LT. AITLOW ) GOTO 90 + IF ( DABS(FEXTRP-T(L-3,LM1))/T(1,LM1) .GT. H2TOL ) GOTO 90 + IF ( LEVEL .GE. 3 ) WRITE(*,108) FEXTRP +108 FORMAT(' RATIO',F13.8) + SING=FEXTRP + FEXTM1=FEXTRP-1 + AIT(1)=0. + DO 74 I=2,L + AIT(I)=T(I,1)+(T(I,1)-T(I-1,1))/FEXTM1 + R(I)=T(1,I-1) + DIF(I)=AIT(I)-AIT(I-1) + 74 CONTINUE + IT=2 + 75 VINT=STEP*AIT(L) + IF ( LEVEL .GE. 5 ) THEN + WRITE(*,109) (R(I+1),I=IT,LM1) +109 FORMAT(1X,8E15.8) + WRITE(*,109) (AIT(I),I=IT,L) + WRITE(*,109) (DIF(I+1),I=IT,LM1) + ENDIF + ERRER=ERRER/FEXTM1 + IF ( ERRER .GT. ERGOAL ) GOTO 76 + ALPHA=DLOG10(SING)/ALG402-1.D0 + IF ( LEVEL .GE. 2 ) WRITE(*,110) ALPHA,BEGI,ENDE +110 FORMAT(11X,'INTEGRAND SHOWS SINGULAR ', + * 'BEHAVIOUR OF TYPE X**(',F5.2,') BETWEEN',1P,E15.7, + * ' AND',1P,E15.7) + IFLAG=MAX0(IFLAG,2) + GOTO 86 + 76 IT=IT+1 + IF ( IT .EQ. LM1 ) GOTO 79 + IF ( IT .LE. 3 ) THEN + H2NEXT=4.D0 + SINGNX=2.D0*SING + ENDIF + IF ( H2NEXT .GE. SINGNX) THEN + FEXTRP=SINGNX + SINGNX=2.D0*SINGNX + ELSE + FEXTRP=H2NEXT + H2NEXT=4.D0*H2NEXT + ENDIF + DO 77 I=IT,LM1 + R(I+1)=0.D0 + IF ( DABS(DIF(I+1)) .GT. TABTLM ) R(I+1)=DIF(I)/DIF(I+1) + 77 CONTINUE + IF ( LEVEL .GE. 4 ) WRITE(*,111) FEXTRP,R(L-1),R(L) +111 FORMAT(' FEXTRP + RATIOS',1P,3E15.7) + H2TFEX=-H2TOL*FEXTRP + IF ( R(L)-FEXTRP .LT. H2TFEX ) GOTO 79 + IF ( R(L-1)-FEXTRP .LT. H2TFEX ) GOTO 79 + ERRER=ASTEP*DABS(DIF(L)) + FEXTM1=FEXTRP-1.D0 + DO 78 I=IT,L + AIT(I)=AIT(I)+DIF(I)/FEXTM1 + DIF(I)=AIT(I)-AIT(I-1) + 78 CONTINUE + GOTO 75 + 79 FEXTRP=DMAX1(PREVER/ERRER,AITLOW) + PREVER=ERRER + IF ( L .LT. 5 ) GOTO 63 + IF ( LEVEL .GE. 3 ) WRITE(*,112) ERRER,ERGOAL,FEXTRP,IT +112 FORMAT(' ERRER,ERGOAL,FEXTRP,IT',1P,2E15.7,1P,E14.5,0P,I3) + IF ( L-IT .GT. 2 .AND. ISTAGE .LT. MXSTGE ) GOTO 89 + IF ( ERRER/FEXTRP**(MAXTBL-L) .LT. ERGOAL ) GOTO 63 + GOTO 89 + 80 IF ( LEVEL .GE. 4 ) WRITE(*,113) L,T(1,LM1) +113 FORMAT(1X,I5,E16.8,5X,'JUMP') + IF ( ERRER .GT. ERGOAL ) GOTO 89 + DIFF=DABS(T(1,L))*2.D0*FN + IF ( LEVEL .GE. 2 ) WRITE(*,114) DIFF,BEGI,ENDE +114 FORMAT(13X,'INTEGRAND SEEMS TO HAVE JUMP OF SIZE', + * 1P,E15.7,' BETWEEN',1P,E15.7,' AND',1P,E15.7) + GOTO 86 + 81 IF ( LEVEL .GE. 4 ) WRITE(*,115) L +115 FORMAT(1X,I5,21X,'STRAIGHT LINE') + SLOPE=(FEND-FBEG)*2.D0 + FBEG2=FBEG*2.D0 + DO 82 I=1,4 + DIFF=DABS(FUNC(BEGI+RN(I)*STEP)-FBEG2-RN(I)*SLOPE) + IF ( DIFF .GT. TABTLM) GOTO 85 + 82 CONTINUE + IF ( LEVEL .GE. 3 ) WRITE(*,116) BEGI,ENDE +116 FORMAT(27X,'INTEGRAND SEEMS TO BE STRAIGHT LINE BETWEEN', + * 1P,E15.7,' AND',1P,E15.7) + GOTO 86 + 83 IF ( LEVEL .GE. 4 ) WRITE(*,117) L,T(1,LM1) +117 FORMAT(1X,I5,1P,E15.7,5X,'NOISE') + SLOPE=(FEND-FBEG)*2.D0 + FBEG2=FBEG*2.D0 + I=1 + 84 DIFF=DABS(FUNC(BEGI+RN(I)*STEP)-FBEG2-RN(I)*SLOPE) + 85 ERRER=DMAX1(ERRER,ASTEP*DIFF) + IF ( ERRER .GT. ERGOAL ) GOTO 90 + I=I+1 + IF ( I .LE. 4 ) GOTO 84 + IF ( LEVEL .GE. 3 ) WRITE(*,118) BEGI,ENDE +118 FORMAT(' NOISE BETWEEN',1P,E15.7,' AND',1P,E15.7) + IFLAG=3 + 86 VAL=VAL+VINT + ERROR=ERROR+ERRER + IF ( LEVEL .GE. 3 ) THEN + IF ( LEVEL .GE. 5 ) THEN + DO 87 I=1,L + IF ( LEVEL .GE. 4 ) WRITE(*,119) I,(T(I,J),J=1,L) +119 FORMAT(1X,I5,7E16.8/1X,3E16.8) + 87 CONTINUE + ENDIF + WRITE(*,120) VINT,ERRER,L,IT +120 FORMAT(' INTEGRAL IS',1P,E16.8,', ERROR',1P,E16.8, + * ' FROM T(',I1,',',I1,'1H)') + ENDIF + IF ( RIGHT ) GOTO 88 + ISTAGE=ISTAGE-1 + IF ( ISTAGE .EQ. 0 ) RETURN + REGLAR=REGLSV(ISTAGE) + BEGI=BEGIN(ISTAGE) + ENDE=FINIS(ISTAGE) + CUREST=CUREST-EST(ISTAGE+1)+VINT + IEND=IBEG-1 + FEND=TS(IEND) + IBEG=IBEGS(ISTAGE) + GOTO 92 + 88 CUREST=CUREST+VINT + STAGE=STAGE*2.D0 + IEND=IBEG + IBEG=IBEGS(ISTAGE) + ENDE=BEGI + BEGI=BEGIN(ISTAGE) + FEND=FBEG + FBEG=TS(IBEG) + GOTO 60 + 89 REGLAR=.TRUE. + 90 IF ( ISTAGE .EQ. MXSTGE ) GOTO 97 + IF ( LEVEL .GE. 5 ) THEN + DO 91 I=1,L + IF ( LEVEL .GE. 4 ) WRITE(*,121) I,(T(I,J),J=1,L) +121 FORMAT(1X,I5,7E16.8/1X,3E16.8) + 91 CONTINUE + ENDIF + IF ( RIGHT ) GOTO 93 + REGLSV(ISTAGE+1)=REGLAR + BEGIN(ISTAGE)=BEGI + IBEGS(ISTAGE)=IBEG + STAGE=STAGE/2.D0 + 92 RIGHT=.TRUE. + BEGI=(BEGI+ENDE)/2.D0 + IBEG=(IBEG+IEND)/2 + TS(IBEG)=TS(IBEG)/2.D0 + FBEG=TS(IBEG) + GOTO 61 + 93 NNLEFT=IBEG-IBEGS(ISTAGE) + IF ( IEND+NNLEFT .GE. MAXTS ) GOTO 96 + III=IBEGS(ISTAGE) + II=IEND + DO 94 I=III,IBEG + II=II+1 + TS(II)=TS(I) + 94 CONTINUE + DO 95 I=IBEG,II + TS(III)=TS(I) + III=III+1 + 95 CONTINUE + IEND=IEND+1 + IBEG=IEND-NNLEFT + FEND=FBEG + FBEG=TS(IBEG) + FINIS(ISTAGE)=ENDE + ENDE=BEGI + BEGI=BEGIN(ISTAGE) + BEGIN(ISTAGE)=ENDE + REGLSV(ISTAGE)=REGLAR + ISTAGE=ISTAGE+1 + REGLAR=REGLSV(ISTAGE) + EST(ISTAGE)=VINT + CUREST=CUREST+EST(ISTAGE) + GOTO 60 + 96 CONTINUE + IF ( LEVEL .GE. 2 ) WRITE(*,122) BEGI,ENDE +122 FORMAT(' TOO MANY FUNCTION EVALUATIONS AROUND'/ + * 11X,1P,E15.7,' AND',1P,E15.7) + IFLAG=4 + GOTO 99 + 97 CONTINUE + IFLAG=5 + IF ( LEVEL .GE. 2 ) THEN + IF ( LEVEL .GE. 5 ) THEN + DO 98 I =1,L + IF ( LEVEL .GE. 4 ) WRITE(*,123) I,(T(I,J),J=1,L) +123 FORMAT(1X,I5,7E16.8/1X,3E16.8) + 98 CONTINUE + ENDIF + WRITE(*,124) BEGI,ENDE +124 FORMAT(11X,'INTEGRAND SHOWS SINGULAR BEHAVIOUR OF ', + * 'UNKNOWN TYPE BETWEEN',1P,E15.7,' AND',1P,E15.7) + ENDIF + 99 CONTINUE + VAL=CUREST+VINT + RETURN + END +C======================================================================= + + FUNCTION UTACOS(X) + +C----------------------------------------------------------------------- +C RETURNS ACOS(X) FOR -1 <= X <= 1 , ACOS(+-1) ELSE +C----------------------------------------------------------------------- + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + SAVE +C----------------------------------------------------------------------- + ARGUM=X + IF ( X .LT. -1. ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('UTACOS') + WRITE(IFCH,*)'***** ARGUM = ',ARGUM,' SET -1' + CALL UTMSGF + ENDIF + ARGUM=-1. + ELSEIF ( X .GT. 1. ) THEN + IF ( ISH .GE .90 ) THEN + CALL UTMSG('UTACOS') + WRITE(IFCH,*)'***** ARGUM = ',ARGUM,' SET 1' + CALL UTMSGF + ENDIF + ARGUM=1. + ENDIF + UTACOS=ACOS(ARGUM) + RETURN + END +C======================================================================= + + FUNCTION UTAMNU(KEUX,KEDX,KESX,KECX,MODUS) + +C---------------------------------------------------------------------- +C RETURNS MIN MASS OF CLUSTER WITH GIVEN U,D,S,C CONTENT +C KEUX: NET U QUARK NUMBER +C KEDX: NET D QUARK NUMBER +C KESX: NET S QUARK NUMBER +C KECX: NET C QUARK NUMBER +C MODUS:0,1,2,3,4,5,6 +C---------------------------------------------------------------------- + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CSJCGA/ AMEGAM,AMNULL,ASUHA(7),ENTRPY,NOPHA,NSUHA(7) + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO3/ ASUHAX(7),ASUHAY(7),OMEGA,SIGPPD,SIGPPE,UENTRO + * ,IWZZZZ + SAVE +C---------------------------------------------------------------------- + AMNULL=0. + + IF ( MODUS .EQ. 0 ) THEN + DO 21 I=1,7 + ASUHA(I)=ASUHAY(I) + NSUHA(I)=0 +21 CONTINUE + ELSEIF ( MODUS .EQ. 1 ) THEN + IF ( NOPHA .EQ. 0 ) THEN + DO 22 I=1,7 + ASUHA(I)=ASUHAX(I) + NSUHA(I)=0 +22 CONTINUE + ELSEIF ( NOPHA .GE. 1 ) THEN + DO 23 I=1,7 + ASUHA(I)=ASUHAY(I) + NSUHA(I)=0 +23 CONTINUE + ENDIF + ELSEIF ( MODUS .EQ. 2 ) THEN + DO 24 I=1,7 + ASUHA(I)=ASUHAY(I) + NSUHA(I)=0 +24 CONTINUE + ELSEIF ( MODUS .EQ. 3 ) THEN + DO 25 I=1,7 + ASUHA(I)=ASUHAY(I) + NSUHA(I)=0 +25 CONTINUE + ELSEIF ( MODUS .EQ. 4 ) THEN + DO 26 I=1,7 + ASUHA(I)=ASUHAX(I) + NSUHA(I)=0 +26 CONTINUE + ELSEIF ( MODUS .EQ. 5 ) THEN + DO 27 I=1,7 + ASUHA(I)=ASUHAY(I) + NSUHA(I)=0 +27 CONTINUE + ELSEIF ( MODUS .EQ. 6 ) THEN + DO 28 I=1,7 + ASUHA(I)=SQRT(ASUHAY(I)**2+DELMSS**2) + NSUHA(I)=0 +28 CONTINUE + ENDIF + IAUX=KEUX+KEDX+KESX+KECX + KE=ABS(IAUX) + + IF ( IAUX .GE. 0 ) THEN + KEU=KEUX + KED=KEDX + KES=KESX + KEC=KECX + ELSE + KEU=-KEUX + KED=-KEDX + KES=-KESX + KEC=-KECX + ENDIF + + IF ( KEC .NE. 0 ) THEN +10 CONTINUE + IF ( KEC .LT. 0 ) THEN + KEC=KEC+1 + IF ( KEU .GT. KED ) THEN + KEU=KEU-1 + ELSE + KED=KED-1 + ENDIF + AMNULL=AMNULL+1.87 + GOTO 10 + ENDIF +11 CONTINUE + IF ( KEC .GT. 0 ) THEN + KEC=KEC-1 + IF ( KEU .LT. KED ) THEN + KEU=KEU+1 + ELSE + KED=KED+1 + ENDIF + AMNULL=AMNULL+1.87 + GOTO 11 + ENDIF + ENDIF + + 5 CONTINUE + IF ( KES .LT. 0 ) THEN + AMNULL=AMNULL+ASUHA(6) + IF ( KEU .GE. KED ) THEN + KEU=KEU-1 + ELSE + KED=KED-1 + ENDIF + KES=KES+1 + GOTO 5 + ENDIF + + 6 CONTINUE + IF ( KED .LT. 0 ) THEN + IF ( KEU .GE. KES ) THEN + AMNULL=AMNULL+ASUHA(5) + KEU=KEU-1 + ELSE + AMNULL=AMNULL+ASUHA(6) + KES=KES-1 + ENDIF + KED=KED+1 + GOTO 6 + ENDIF + + 7 CONTINUE + IF ( KEU .LT. 0 ) THEN + IF ( KED .GE. KES ) THEN + AMNULL=AMNULL+ASUHA(5) + KED=KED-1 + ELSE + AMNULL=AMNULL+ASUHA(6) + KES=KES-1 + ENDIF + KEU=KEU+1 + GOTO 7 + ENDIF + + IF ( KEU+KED+KES+KEC .NE. KE ) THEN + CALL UTSTOP('UTAMNU: SUM_KEI /= KE ') + ENDIF + KEQ=KEU+KED + KEQX=KEQ + + IF ( MODUS .EQ. 2 .AND. KE .GT. 3 ) THEN + CALL SMASST(KEU,KED,KES,KEC,A,Y,Z) + AMNUZ=SMASS(A,Y,Z) + ENDIF + + AMNUX=0. + + I=4 + 2 I=I-1 + 3 CONTINUE + IF ( (4-I)*KES .GT. (I-1)*KEQ ) THEN + AMNUX=AMNUX+ASUHA(1+I) + KEQ=KEQ-3+I + KES=KES-I + IF ( KES .LT. 0 ) THEN + CALL UTSTOP('UTAMNU: NEGATIVE KES ') + ENDIF + IF ( KEQ .LT. 0 ) THEN + CALL UTSTOP('UTAMNU: NEGATIVE KEQ ') + ENDIF + GOTO 3 + ENDIF + IF ( I .GT. 1 ) GOTO 2 + + IF ( KEQX .GT. KEQ ) THEN + DO 8 K=1,KEQX-KEQ + IF ( KEU .GE. KED ) THEN + KEU=KEU-1 + ELSE + KED=KED-1 + ENDIF + 8 CONTINUE + ENDIF + IF ( KEU+KED .NE. KEQ ) THEN + CALL UTSTOP('UTAMNU: KEU+KED /= KEQ ') + ENDIF + + 9 CONTINUE + IF ( KEU .GT. 2*KED ) THEN + AMNUX=AMNUX+ASUHA(7) + KEU=KEU-3 + IF ( KEU .LT. 0 ) THEN + CALL UTSTOP('UTAMNU: NEGATIVE KEU ') + ENDIF + GOTO 9 + ENDIF + IF ( KED .GT. 2*KEU ) THEN + AMNUX=AMNUX+ASUHA(7) + KED=KED-3 + IF ( KED .LT. 0 ) THEN + CALL UTSTOP('UTAMNU: NEGATIVE KED ') + ENDIF + GOTO 9 + ENDIF + + KEQ=KEU+KED + IF ( MOD(KEQ,3) .NE. 0 ) THEN + CALL UTSTOP('UTAMNU: MOD(KEQ,3) /= 0 ') + ENDIF + AMNUX=AMNUX+ASUHA(1)*KEQ/3 + + AMNU=AMNUX + IF ( MODUS.EQ.2 .AND. KE.GT.3 ) AMNU=MIN(AMNUX,AMNUZ) + AMNULL=AMNULL+AMNU + + IF ( AMNULL.EQ.0. .AND. MODUS.GT.0 ) AMNULL=ASUHA(5) + +1000 UTAMNU=AMNULL + RETURN + END +C======================================================================= + + FUNCTION UTAMNX(JCP,JCM) + +C----------------------------------------------------------------------- +C RETURNS MINIMUM MASS FOR THE DECAY OF JCP---JCM (BY CALLING UTAMNU). +C----------------------------------------------------------------------- + PARAMETER (NFLAV=6) + INTEGER JCM(NFLAV,2),JCP(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + DO 3 I=1,NFLAV + IF ( JCP(I,1) .NE. 0 ) GOTO 1 + IF ( JCP(I,2) .NE. 0 ) GOTO 1 + 3 CONTINUE + KEU=JCM(1,1)-JCM(1,2) + KED=JCM(2,1)-JCM(2,2) + KES=JCM(3,1)-JCM(3,2) + KEC=JCM(4,1)-JCM(4,2) + UTAMNX=UTAMNU(KEU,KED,KES,KEC,5) + RETURN + 1 CONTINUE + + DO 4 I=1,NFLAV + IF ( JCM(I,1) .NE. 0 ) GOTO 2 + IF ( JCM(I,2) .NE. 0 ) GOTO 2 + 4 CONTINUE + KEU=JCP(1,1)-JCP(1,2) + KED=JCP(2,1)-JCP(2,2) + KES=JCP(3,1)-JCP(3,2) + KEC=JCP(4,1)-JCP(4,2) + UTAMNX=UTAMNU(KEU,KED,KES,KEC,5) + RETURN + 2 CONTINUE + + KEU=JCP(1,1)-JCP(1,2) + KED=JCP(2,1)-JCP(2,2) + KES=JCP(3,1)-JCP(3,2) + KEC=JCP(4,1)-JCP(4,2) + KE=KEU+KED+KES+KEC + IF ( MOD(KE+1,3) .EQ. 0 ) THEN + KEU=KEU+1 + ELSEIF ( MOD(KE-1,3) .EQ. 0 ) THEN + KEU=KEU-1 + ELSE + CALL UTSTOP('UTAMNX: NO SINGLET POSSIBLE (1) ') + ENDIF + AMMS=UTAMNU(KEU,KED,KES,KEC,5) + KEU=JCM(1,1)-JCM(1,2) + KED=JCM(2,1)-JCM(2,2) + KES=JCM(3,1)-JCM(3,2) + KEC=JCM(4,1)-JCM(4,2) + KE=KEU+KED+KES+KEC + IF ( MOD(KE+1,3) .EQ. 0 ) THEN + KEU=KEU+1 + ELSEIF ( MOD(KE-1,3) .EQ. 0 ) THEN + KEU=KEU-1 + ELSE + CALL UTSTOP('UTAMNX: NO SINGLET POSSIBLE (2) ') + ENDIF + UTAMNX=AMMS+UTAMNU(KEU,KED,KES,KEC,5) + RETURN + END +C======================================================================= + + FUNCTION UTAMNY(JCP,JCM) + +C----------------------------------------------------------------------- +C RETURNS MINIMUM MASS OF JCP+JCM (BY CALLING UTAMNU). +C----------------------------------------------------------------------- + PARAMETER (NFLAV=6) + INTEGER JC(NFLAV,2),JCM(NFLAV,2),JCP(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + DO 7 NF=1,NFLAV + JC(NF,1)=JCP(NF,1)+JCM(NF,1) + JC(NF,2)=JCP(NF,2)+JCM(NF,2) + 7 CONTINUE + KEU=JC(1,1)-JC(1,2) + KED=JC(2,1)-JC(2,2) + KES=JC(3,1)-JC(3,2) + KEC=JC(4,1)-JC(4,2) + UTAMNY=UTAMNU(KEU,KED,KES,KEC,5) + RETURN + END +C======================================================================= + + FUNCTION UTAMNZ(JC,MODUS) + +C----------------------------------------------------------------------- +C RETURNS MINIMUM MASS OF JC (BY CALLING UTAMNU). +C----------------------------------------------------------------------- + PARAMETER (NFLAV=6) + INTEGER JC(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + KEU=JC(1,1)-JC(1,2) + KED=JC(2,1)-JC(2,2) + KES=JC(3,1)-JC(3,2) + KEC=JC(4,1)-JC(4,2) + UTAMNZ=UTAMNU(KEU,KED,KES,KEC,MODUS) + RETURN + END +C======================================================================= + + SUBROUTINE UTAMST(STS,AM,AMIN,IRET) + +C----------------------------------------------------------------------- +C INPUT: STS = STRING (SINGLE) +C OUTPUT: AM = MASS +C AMIN = MINIMUM MASS +C IRET = RETURN CODE (=3 IF AM**2.LT.AMIN**2, 0 ELSE) +C----------------------------------------------------------------------- + PARAMETER (NFLAV=6) + PARAMETER (NSI=6) + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + + REAL STS(NSI,2) + INTEGER IC1(2),IC2(2),JC(NFLAV,2),JC1(NFLAV,2),JC2(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + IRET=0 + AM2= (STS(4,1)+STS(4,2))**2 - (STS(3,1)+STS(3,2))**2 - + * (STS(2,1)+STS(2,2))**2 - (STS(1,1)+STS(1,2))**2 + AM=-AM2 + IC1(1)=NINT(STS(4+1,1)) + IC1(2)=NINT(STS(4+2,1)) + IC2(1)=NINT(STS(4+1,2)) + IC2(2)=NINT(STS(4+2,2)) + CALL IDDECO(IC1,JC1) + CALL IDDECO(IC2,JC2) + DO 2 NF=1,NFLAV + JC(NF,1)=JC1(NF,1)+JC2(NF,1) + JC(NF,2)=JC1(NF,2)+JC2(NF,2) + IF ( NF.GT.4 .AND. (JC(NF,1).NE.0 .OR. JC(NF,2).NE.0) ) THEN + CALL UTSTOP('UTAMST: FLAVOUR > 4 ') + ENDIF + 2 CONTINUE + KEU=JC(1,1)-JC(1,2) + KED=JC(2,1)-JC(2,2) + KES=JC(3,1)-JC(3,2) + KEC=JC(4,1)-JC(4,2) + AMIN=UTAMNU(KEU,KED,KES,KEC,4) + IF ( AM2. LT. AMIN**2 ) THEN + IRET=3 + RETURN + ELSE + AM=SQRT(AM2) + ENDIF + RETURN + END +C======================================================================= + + SUBROUTINE UTAXIS(I,J,A1,A2,A3) + +C--------------------------------------------------------------------- +C CALCULATES THE AXIS DEFINED BY THE PTLS I,J IN THE I,J CM SYSTEM +C--------------------------------------------------------------------- + PARAMETER (MXPTL=70000) + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + SAVE +C--------------------------------------------------------------------- + A1=0. + A2=0. + A3=1. + PI1=PPTL(1,I) + PI2=PPTL(2,I) + PI3=PPTL(3,I) + PI4=PPTL(4,I) + PJ1=PPTL(1,J) + PJ2=PPTL(2,J) + PJ3=PPTL(3,J) + PJ4=PPTL(4,J) + P1=PI1+PJ1 + P2=PI2+PJ2 + P3=PI3+PJ3 + P4=PI4+PJ4 + P5=SQRT(P4**2-P3**2-P2**2-P1**2) + CALL UTLOBO(1,P1,P2,P3,P4,P5,PI1,PI2,PI3,PI4) + CALL UTLOBO(1,P1,P2,P3,P4,P5,PJ1,PJ2,PJ3,PJ4) + ERR=(PI1+PJ1)**2+(PI2+PJ2)**2+(PI3+PJ3)**2 + IF ( ISH.GE.90 .AND. ERR .GT. 1.E-3 ) THEN + CALL UTMSG('UTAXIS') + WRITE(IFCH,*)'***** ERR=',ERR + WRITE(IFCH,*)'PI:',PI1,PI2,PI3,PI4 + WRITE(IFCH,*)'PJ:',PJ1,PJ2,PJ3,PJ4 + CALL UTMSGF + ENDIF + A=SQRT( (PJ1-PI1)**2 + (PJ2-PI2)**2 + (PJ3-PI3)**2 ) + IF ( A .EQ. 0. ) RETURN + A1=(PI1-PJ1)/A + A2=(PI2-PJ2)/A + A3=(PI3-PJ3)/A + RETURN + END +C======================================================================= + + SUBROUTINE UTCHM(ARP,ARM,II) + +C----------------------------------------------------------------------- +C CHECKS WHETHER ARP**2=0. AND ARM**2=0. +C----------------------------------------------------------------------- + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + DOUBLE PRECISION ARM(4),ARP(4),DIFM,DIFP + SAVE +C----------------------------------------------------------------------- + IF(ISH.LT.90)RETURN + DIFP=ARP(4)**2-ARP(1)**2-ARP(2)**2-ARP(3)**2 + DIFM=ARM(4)**2-ARM(1)**2-ARM(2)**2-ARM(3)**2 + IF ( ABS(DIFP) .GT. 1.D-3*ARP(4)**2 .OR. + * ABS(DIFM) .GT. 1.D-3*ARM(4)**2 ) THEN + CALL UTMSG('UTCHM ') + WRITE(IFCH,*)'***** MASS NON ZERO - ',II + WRITE(IFCH,*)'JET-MASS**2`S: ',DIFP,DIFM + WRITE(IFCH,*)'ENERGY**2`S: ',ARP(4)**2,ARM(4)**2 + WRITE(IFCH,*)(SNGL(ARP(I)),I=1,4) + WRITE(IFCH,*)(SNGL(ARM(I)),I=1,4) + CALL UTMSGF + ENDIF + RETURN + END +C======================================================================= + + SUBROUTINE UTCLEA(NPTL0) + +C----------------------------------------------------------------------- +C OVERWRITES ISTPTL=2 PARTICLES IN /CPTL/, REDUCES SO NPTL. +C----------------------------------------------------------------------- + PARAMETER (MXPTL=70000) + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + INTEGER NEWPTL(MXPTL) + SAVE +C----------------------------------------------------------------------- + ISH0=ISH + IF ( ISHSUB/100 .EQ. 18 ) ISH=MOD(ISHSUB,100) + + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)('-',L=1,68) + WRITE(IFCH,*)'SR UTCLEA. INITIAL.' + WRITE(IFCH,*)('-',L=1,68) + DO 34 N=1,NPTL + WRITE(IFCH,116)IORPTL(N),JORPTL(N),N,IFRPTL(1,N),IFRPTL(2,N) + * ,IDPTL(N),SQRT(PPTL(1,N)**2+PPTL(2,N)**2),PPTL(3,N),PPTL(5,N) + * ,ISTPTL(N) +34 CONTINUE +116 FORMAT(1X,I6,I6,2X,I6,2X,I4,I4,I12,3(E10.2),I3,I3) + ENDIF + + I=0 + 1 I=I+1 + IF ( I .GT. NPTL ) GOTO 1000 + IF ( ISTPTL(I) .EQ. 2 ) GOTO 2 + NEWPTL(I)=I + GOTO 1 + + 2 I=I-1 + J=I + 3 I=I+1 + 4 J=J+1 + IF ( J .GT. NPTL ) GOTO 5 + NEWPTL(J)=0 + IF ( ISTPTL(J) .EQ. 2 ) GOTO 4 + NEWPTL(J)=I + CALL UTREPL(I,J) + GOTO 3 + + 5 NPTL=I-1 + IF ( NPTL .EQ. 0 ) THEN + NPTL0=0 + GOTO 1000 + ENDIF + +20 N0=NEWPTL(NPTL0) + IF ( N0 .GT. 0 ) THEN + NPTL0=N0 + ELSE + NPTL0=NPTL0-1 + IF ( NPTL0 .GT. 0 ) GOTO 20 + ENDIF + + DO 11 K=1,NPTL + IO=IORPTL(K) + IF ( IO .LE. 0 ) THEN + IORPTL(K)=IO + ELSE + IORPTL(K)=NEWPTL(IO) + ENDIF + + JO=JORPTL(K) + IF ( JO .LE. 0 ) THEN + JORPTL(K)=JO + ELSE + JORPTL(K)=NEWPTL(JO) + ENDIF + + IF1=IFRPTL(1,K) + IF ( IF1 .LE. 0 ) THEN + IFRPTL(1,K)=IF1 + ELSE + IFRPTL(1,K)=NEWPTL(IF1) + ENDIF + + IF2=IFRPTL(2,K) + IF ( IF2 .LE. 0 ) THEN + IFRPTL(2,K)=IF2 + ELSE + IFRPTL(2,K)=NEWPTL(IF2) + ENDIF +11 CONTINUE + + DO 19 K=1,NPTL + IF ( IFRPTL(1,K).EQ.0 .AND. IFRPTL(2,K).GT.0 ) + * IFRPTL(1,K)=IFRPTL(2,K) + IF ( IFRPTL(1,K).GT.0 .AND. IFRPTL(2,K).EQ.0 ) + * IFRPTL(2,K)=IFRPTL(1,K) +19 CONTINUE + +1000 CONTINUE + + IF ( ISH .GE. 92 ) THEN + WRITE(IFCH,*)('-',L=1,68) + WRITE(IFCH,*)'SR UTCLEA. FINAL.' + WRITE(IFCH,*)('-',L=1,68) + DO 35 N=1,NPTL + WRITE(IFCH,116)IORPTL(N),JORPTL(N),N,IFRPTL(1,N),IFRPTL(2,N) + * ,IDPTL(N),SQRT(PPTL(1,N)**2+PPTL(2,N)**2),PPTL(3,N),PPTL(5,N) + * ,ISTPTL(N) +35 CONTINUE + WRITE(IFCH,*)('-',L=1,79) + ENDIF + + ISH=ISH0 + RETURN + END +C======================================================================= + + SUBROUTINE UTHIST(X1,X2,Y1,Y2,N,X,Y,LITY,LILO,TEXT1,TEXT2,TEXT3) + +C---------------------------------------------------------------------- +C WRITES ARRAYS X,Y IN HISTO-FORMAT +C---------------------------------------------------------------------- + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + REAL X(N),Y(N) + CHARACTER LILO*6,LITY*3,TEXT1*50,TEXT2*50,TEXT3*50 + SAVE +C---------------------------------------------------------------------- + WRITE(IFCH,100)('-',I=1,69) + WRITE(IFCH,100)('-',I=1,69) +100 FORMAT(1X,1H',69A1,1H') + WRITE(IFCH,101)X1,X2,0.,Y1,Y2,0.,'_____',0 + *,'___',LITY,'___','_______',LILO,0.,3,N,0. +101 FORMAT(1X,6F8.2,2X,1H',A5,1H',I11 + */4X,1H',A3,1H',3X,1H',A3,A3,1H',3X,1H',A7,A6,1H',F8.2,2I6,F10.4) + WRITE(IFCH,100)('-',I=1,69) + WRITE(IFCH,102)0.,0.,TEXT1 + WRITE(IFCH,102)0.,0.,TEXT2 + WRITE(IFCH,102)0.,0.,TEXT3 +102 FORMAT(4X,F4.2,2X,F4.2,2X,1H',A50,1H') + WRITE(IFCH,100)('-',I=1,69) + DO 36 K=1,N + WRITE(IFCH,103)K,X(K),0.,Y(K),0.,0. +103 FORMAT(4X,I5,2X,5E12.4) +36 CONTINUE + RETURN + END +C======================================================================= + + SUBROUTINE UTHSEA + +C----------------------------------------------------------------------- +C CREATES HISTOGRAM OF SEA STRUCTURE FUNCTION +C----------------------------------------------------------------------- + PARAMETER (NSTRU=2049) + COMMON /STRU/ QSEP(NSTRU),QSET(NSTRU),QVAP(NSTRU) + * ,QVAT(NSTRU),XCUTAR,XSTRU(NSTRU) + * ,IDTG + REAL XAR(1000),YAR(1000) + SAVE +C----------------------------------------------------------------------- + DX=1. + X1=-1. + DO 3 K=1,2 + DX=DX*0.001 + X1=X1-3. + DO 2 N=1,1000 + YAR(N)=0. + XAR(N)=-DX*0.5+N*DX + 2 CONTINUE + DO 1 I=1,100000 + X=UTINVT(NSTRU,XSTRU,QSEP,RANGEN()*QSEP(NSTRU)) + N=1+X/DX + IF ( N .LE. 1000 ) YAR(N)=YAR(N)+1. + 1 CONTINUE + CALL UTHIST(X1,X1+4,0.,5.,1000,XAR,YAR,'POC','LOGLOG' + * ,'XAXIS X $ ' + * ,'YAXIS COUNTS $ ' + * ,'TITLE SEA QUARK STRUCTURE FUNCTION ') + 3 CONTINUE + RETURN + END +C======================================================================= + + FUNCTION UTINVT(N,X,Q,YY) + +C----------------------------------------------------------------------- +C RETURNS X WITH Y=Q(X) +C----------------------------------------------------------------------- + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CUTINV/ LUTINV + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + REAL Q(N),X(N) + SAVE +C----------------------------------------------------------------------- + IF ( Q(N) .EQ. 0. ) THEN + CALL UTSTOP('UTINVT: Q(N)=0. DIMENSIONS TOO BIG ') + ENDIF + Y = YY + IF ( Y .LT. 0. ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('UTINVT') + WRITE(IFCH,*)'***** Y=',Y,' < 0' + CALL UTMSGF + ENDIF + Y=0. + ELSEIF ( Y .GT. Q(N) ) THEN + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('UTINVT') + WRITE(IFCH,*)'***** Y=',Y,' > ',Q(N) + CALL UTMSGF + ENDIF + Y=Q(N) + ENDIF + LU=1 + LO=N + 1 LZ=(LO+LU)/2 + IF ( Q(LU).LE.Y .AND. Y.LE.Q(LZ) ) THEN + LO=LZ + ELSEIF ( Q(LZ).LT.Y .AND. Y.LE.Q(LO) ) THEN + LU=LZ + ELSE + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'Q(1),Y,Q(N):',Q(1),Y,Q(N) + WRITE(IFCH,*)'LU,LZ,LO:',LU,LZ,LO + WRITE(IFCH,*)'Q(LU),Q(LZ),Q(LO):',Q(LU),Q(LZ),Q(LO) + CALL UTSTOP('UTINVT: NO INTERVAL FOUND ') + ENDIF + IF ( LO-LU .GE. 2 ) GOTO 1 + IF ( LO .LE. LU ) THEN + CALL UTSTOP('UTINVT: LO.LE.LU ') + ENDIF + UTINVT=X(LU)+(Y-Q(LU))*(X(LO)-X(LU))/(Q(LO)-Q(LU)) + LUTINV=LU + RETURN + END +C======================================================================= + + SUBROUTINE UTKSIX(SIX,KMAX) + +C----------------------------------------------------------------------- +C RETURNS KMAX FOR SIX +C----------------------------------------------------------------------- + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + REAL SIX(NSI,NSIX) + SAVE +C----------------------------------------------------------------------- + DO 10 K=0,NSIX-1 + KMAX=K + SIXSQR=0. + DO 20 I=1,NSI + SIXSQR=SIXSQR+SIX(I,K+1)**2 +20 CONTINUE + IF ( SIXSQR .LE. 1.E-5 ) RETURN +10 CONTINUE + CALL UTSTOP('UTKSIX: DIMENSION NSIX TOO SMALL ') + RETURN + END +C======================================================================= + + SUBROUTINE UTKSTR(STR,KMAX) + +C----------------------------------------------------------------------- +C RETURNS KMAX FOR STR +C----------------------------------------------------------------------- + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + REAL STR(NSI,NSIX+1) + SAVE +C----------------------------------------------------------------------- + DO 10 K=0,NSIX + KMAX=K + STRSQR=0. + DO 20 I=1,NSI + STRSQR=STRSQR+STR(I,K+1)**2 +20 CONTINUE + IF ( STRSQR .LE. 1.E-5 ) RETURN +10 CONTINUE + CALL UTSTOP('UTKSTR: DIMENSION NSIX TOO SMALL ') + RETURN + END +C======================================================================= + + SUBROUTINE UTLOBO(ISIG,P1,P2,P3,P4,P5,X1,X2,X3,X4) + +C----------------------------------------------------------------------- +C PERFORMS A LORENTZ BOOST +C----------------------------------------------------------------------- + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + REAL BETA(4),Z(4) + SAVE +C----------------------------------------------------------------------- + IF ( P5 .LE. 0. ) THEN + CALL UTMSG('UTLOBO') + WRITE(IFCH,*)'***** MASS <= 0.' + WRITE(IFCH,*)'P(5): ',P1,P2,P3,P4,P5 + CALL UTMSGF + CALL UTSTOP('UTLOBO: MASS <= 0. ') + ENDIF + Z(1)=X1 + Z(2)=X2 + Z(3)=X3 + Z(4)=X4 + BETA(1)=-P1/P5 + BETA(2)=-P2/P5 + BETA(3)=-P3/P5 + BETA(4)= P4/P5 + BP=ISIG*(Z(1)*BETA(1)+Z(2)*BETA(2)+Z(3)*BETA(3)) + AUXIL= ISIG*Z(4)+ISIG*BP/(BETA(4)+1.) + Z(1)=Z(1)+BETA(1)*AUXIL + Z(2)=Z(2)+BETA(2)*AUXIL + Z(3)=Z(3)+BETA(3)*AUXIL + Z(4)=BETA(4)*Z(4)+BP + X1=Z(1) + X2=Z(2) + X3=Z(3) + X4=Z(4) + RETURN + END +C======================================================================= + + SUBROUTINE UTLOB2(ISIG,P1,P2,P3,P4,P5,X1,X2,X3,X4) + +C----------------------------------------------------------------------- +C PERFORMS A LORENTZ BOOST, DOUBLE PREC. +C----------------------------------------------------------------------- + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + DOUBLE PRECISION BETA(4),BP,DAUXIL,PP,P1,P2,P3,P4,P5,P5I + * ,XX0,X1,X10,X2,X20,X3,X30,X4,X4X,X40,Z(4) + SAVE +C----------------------------------------------------------------------- + IF ( ISH .GE. 90 ) THEN + IF ( ISH .GE. 93 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,101)SNGL(X1),SNGL(X2),SNGL(X3),SNGL(X4) + * ,SNGL(X4**2-X3**2-X2**2-X1**2) +101 FORMAT(' UTLOB2:',F9.5,4F13.5) + ENDIF + PP=P4**2-P3**2-P2**2-P1**2 + IF ( ABS(PP-P5**2) .GT. 1.D-3*P4**2 .AND. + * ABS(PP-P5**2) .GT. 1.D-3 ) THEN + CALL UTMSG('UTLOB2') + WRITE(IFCH,*)'***** P**2 .NE. P5**2' + WRITE(IFCH,*)'P**2,P5**2: ',PP,P5**2 + WRITE(IFCH,*)'P: ',P1,P2,P3,P4,P5 + CALL UTMSGF + ENDIF + X10=X1 + X20=X2 + X30=X3 + X40=X4 + ENDIF + XX0=X4**2-X3**2-X2**2-X1**2 + IF ( P5 .LE. 0.D0 ) THEN + CALL UTMSG('UTLOB2') + WRITE(IFCH,*)'***** P5 NEGATIVE.' + WRITE(IFCH,*)'P(5): ',P1,P2,P3,P4,P5 + CALL UTMSGF + CALL UTSTOP('UTLOB2: P5 NEGATIVE. ') + ENDIF + Z(1)=X1 + Z(2)=X2 + Z(3)=X3 + Z(4)=X4 + P5I=1.D0/P5 + BETA(4)= P5I*P4 + BETA(1)=-P5I*P1 + BETA(2)=-P5I*P2 + BETA(3)=-P5I*P3 + BP=ISIG*( BETA(1)*Z(1)+BETA(2)*Z(2)+BETA(3)*Z(3) ) + DAUXIL = ISIG*( Z(4) + BP/(BETA(4)+1.D0) ) + Z(1)=Z(1)+BETA(1)*DAUXIL + Z(2)=Z(2)+BETA(2)*DAUXIL + Z(3)=Z(3)+BETA(3)*DAUXIL + Z(4)=BETA(4)*Z(4)+BP + X1=Z(1) + X2=Z(2) + X3=Z(3) + X4=Z(4) + IF ( ISH .GE. 93 ) + * WRITE(IFCH,101)SNGL(X1),SNGL(X2),SNGL(X3),SNGL(X4) + * ,SNGL(X4**2-X3**2-X2**2-X1**2) + X4X=X4 + X4=SQRT(XX0+X1**2+X2**2+X3**2) + IF ( ISH .GE. 90 ) THEN + IF ( ISH .GE. 93 ) THEN + WRITE(IFCH,101)SNGL(X1),SNGL(X2),SNGL(X3),SNGL(X4) + * ,SNGL(X4**2-X3**2-X2**2-X1**2) + WRITE(IFCH,*)' ' + ENDIF + IF ( ABS(X4-X4X) .GT. 1.D-2*ABS(X4) .AND. + * ABS(X4-X4X) .GT. 1.D-2 ) THEN + CALL UTMSG('UTLOB2') + WRITE(IFCH,*)'***** X**2_INI .NE. X**2_FIN.' + WRITE(IFCH,*)'X1 X2 X3 X4 X**2 (INITIAL/FINAL/CORRECTED):' + WRITE(IFCH,101)SNGL(X10),SNGL(X20),SNGL(X30),SNGL(X40) + * ,SNGL(X40**2-X30**2-X20**2-X10**2) + WRITE(IFCH,101)SNGL(X1),SNGL(X2),SNGL(X3),SNGL(X4X) + * ,SNGL(X4X**2-X3**2-X2**2-X1**2) + WRITE(IFCH,101)SNGL(X1),SNGL(X2),SNGL(X3),SNGL(X4) + * ,SNGL(X4**2-X3**2-X2**2-X1**2) + CALL UTMSGF + ENDIF + ENDIF + RETURN + END +C======================================================================= + + SUBROUTINE UTLOC(AR,N,A,L) + +C----------------------------------------------------------------------- + REAL AR(N) + SAVE +C----------------------------------------------------------------------- + DO 1 I=1,N + IF ( A .LT. AR(I) ) THEN + L=I-1 + RETURN + ENDIF + 1 CONTINUE + L=N + RETURN + END +C======================================================================= + + SUBROUTINE UTLOW(CONE) + +C----------------------------------------------------------------------- +C CONVERTS LOWER CASE CHARACTERS TO UPPER CASE CHARACTERS +C----------------------------------------------------------------------- + CHARACTER*1 CONE + SAVE +C----------------------------------------------------------------------- + IF ( CONE .EQ. 'a' ) THEN + CONE='A' + ELSEIF ( CONE .EQ. 'b' ) THEN + CONE='B' + ELSEIF ( CONE .EQ. 'c' ) THEN + CONE='C' + ELSEIF ( CONE .EQ. 'd' ) THEN + CONE='D' + ELSEIF ( CONE .EQ. 'e' ) THEN + CONE='E' + ELSEIF ( CONE .EQ. 'f' ) THEN + CONE='F' + ELSEIF ( CONE .EQ. 'g' ) THEN + CONE='G' + ELSEIF ( CONE .EQ. 'h' ) THEN + CONE='H' + ELSEIF ( CONE .EQ. 'i' ) THEN + CONE='I' + ELSEIF ( CONE .EQ. 'j' ) THEN + CONE='J' + ELSEIF ( CONE .EQ. 'k' ) THEN + CONE='K' + ELSEIF ( CONE .EQ. 'l' ) THEN + CONE='L' + ELSEIF ( CONE .EQ. 'm' ) THEN + CONE='M' + ELSEIF ( CONE .EQ. 'n' ) THEN + CONE='N' + ELSEIF ( CONE .EQ. 'o' ) THEN + CONE='O' + ELSEIF ( CONE .EQ. 'p' ) THEN + CONE='P' + ELSEIF ( CONE .EQ. 'q' ) THEN + CONE='Q' + ELSEIF ( CONE .EQ. 'r' ) THEN + CONE='R' + ELSEIF ( CONE .EQ. 's' ) THEN + CONE='S' + ELSEIF ( CONE .EQ. 't' ) THEN + CONE='T' + ELSEIF ( CONE .EQ. 'u' ) THEN + CONE='U' + ELSEIF ( CONE .EQ. 'v' ) THEN + CONE='V' + ELSEIF ( CONE .EQ. 'w' ) THEN + CONE='W' + ELSEIF ( CONE .EQ. 'x' ) THEN + CONE='X' + ELSEIF ( CONE .EQ. 'y' ) THEN + CONE='Y' + ELSEIF ( CONE .EQ. 'z' ) THEN + CONE='Z' + ENDIF + RETURN + END +C======================================================================= + + SUBROUTINE UTLOW6(CSIX) + +C----------------------------------------------------------------------- + CHARACTER CSIX*6 + SAVE +C----------------------------------------------------------------------- + DO 1 I=1,6 + CALL UTLOW(CSIX(I:I)) + 1 CONTINUE + RETURN + END +C======================================================================= + + SUBROUTINE UTMSG(TXT) + +C----------------------------------------------------------------------- + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + DOUBLE PRECISION SEEDC,SEEDI + COMMON /CSEED/ SEEDC,SEEDI + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + CHARACTER*6 TXT + SAVE +C----------------------------------------------------------------------- + IMSG=IMSG+1 + IF ( ISH.NE.90 .OR. ISHSUB.NE.0 ) WRITE(IFCH,*)' ' + WRITE(IFCH,*)('-',J=1,77) + WRITE(IFCH,100)TXT,NREVT+1,IPAGE,SEEDC +100 FORMAT(1X,'***** MSG FROM ',A6,'. EPS:',I7,I5,2X,D23.17) + RETURN + END +C======================================================================= + + SUBROUTINE UTMSGF + +C----------------------------------------------------------------------- + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + SAVE +C----------------------------------------------------------------------- + IF ( ISH.EQ.90 .AND. ISHSUB.EQ.0 ) RETURN + WRITE(IFCH,*)('-',J=1,77) + WRITE(IFCH,*)' ' + RETURN + END +C======================================================================= + + SUBROUTINE UTOVEL + +C---------------------------------------------------------------------- +C FILLS ARRAY OVEL(1+I,1+J) CONTAINING THE LOGARITHM (LN) OF +C I_OVER_J: +C OVEL(1+I,1+J)=LOG(I!/J!/(J-I)!) I>=0 J>=0 +C---------------------------------------------------------------------- + PARAMETER (IOVMAX=100) + PARAMETER (JOVMAX=100) + COMMON /COVEL/ OVEL(1+IOVMAX,1+JOVMAX) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + SAVE +C---------------------------------------------------------------------- + DO 1 I=0,IOVMAX + OVEL(1+I,1)=0. + OVEL(1+I,1+I)=0. + 1 CONTINUE + DO 2 J=1,JOVMAX-1 + DO 3 I=J+1,IOVMAX + OVEL(1+I,1+J)=OVEL(1+I,J)+LOG((I-J+1.)/J) + 3 CONTINUE + 2 CONTINUE + + IF ( ISH .GE. 90 ) THEN + DO 5 J=1,49 + DO 5 I=J+1,50 + RELERR=ABS((EXP(OVEL(1+I,1+J)) + * -EXP(OVEL(I,J))-EXP(OVEL(I,1+J)))/EXP(OVEL(1+I,1+J))) + IF ( RELERR .GT. 1.E-4 ) THEN + CALL UTMSG('UTOVEL') + WRITE(IFCH,*)'***** OVEL(,) VIOLATES RECURRENCE RELATION' + WRITE(IFCH,*)EXP(OVEL(1+I,1+J)) + * ,EXP(OVEL(I,J))+EXP(OVEL(I,1+J)) + CALL UTMSGF + ENDIF + 5 CONTINUE + + IF ( ISH .GE. 95 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)' EXP( OVEL(1+I,1+J) )' + WRITE(IFCH,*)' ' + DO 6 I=0,15 + WRITE(IFCH,*)(EXP( OVEL(1+I,1+J) ),J=0,MIN(4,I)) + 6 CONTINUE + ENDIF + ENDIF + + RETURN + END +C======================================================================= + + SUBROUTINE UTPAGE + +C----------------------------------------------------------------------- +C INCREASES IPAGE BY 1, CHANGES ISH +C----------------------------------------------------------------------- + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CISHI/ ISHI + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + SAVE +C----------------------------------------------------------------------- + IPAGE=IPAGE+1 + IF ( IPAGI .LE. 0 ) RETURN + IF ( IPAGE .EQ. 1 ) ISHI=ISH + ISH=0 + IF ( IPAGE.GE.IPAGI/10000.AND.IPAGE.LE.MOD(IPAGI,10000) ) ISH=ISHI + RETURN + END +C======================================================================= + + SUBROUTINE UTPART + +C---------------------------------------------------------------------- +C FILLS ARRAY PARTX(K,N) CONTAINING THE NUMBER +C OF PARTITIONS OF N INTO AT MOST K INTEGERS (K>=1 N>=1) . +C FILLS ARRAY PART(K,N) CONTAINING THE NUMBER +C OF PARTITIONS OF N INTO K INTEGERS (K>=1 N>=1) . +C FILLS ARRAY IPART(N,J) CONTAINING THE PARTITIONS OF N. +C---------------------------------------------------------------------- + PARAMETER (NQUAX=12) + PARAMETER (JPAMAX=NQUAX*NQUAX*NQUAX) + PARAMETER (KPAMAX=NQUAX) + COMMON /CPART/ PART(KPAMAX,NQUAX) + COMMON /CPARTA/ PARTA(NQUAX),IPART(NQUAX,JPAMAX) + COMMON /CPARTX/ PARTX(KPAMAX,NQUAX) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + INTEGER ISWAP(JPAMAX) + SAVE +C---------------------------------------------------------------------- + WRITE(IFMT,*)'EXECUTE SR UTPART ...' + DO 10 N=1,NQUAX + PARTX(1,N)=1. + PART(1,N)=1. + DO 10 J=1,JPAMAX + IPART(N,J)=0 +10 CONTINUE + + DO 1 K=2,KPAMAX + DO 2 N=1,NQUAX + U=0. + DO 3 I=0,N/K + IF ( N-I*K .EQ. 0 ) THEN + U=U+1. + ELSE + U=U+PARTX(K-1,N-I*K) + ENDIF + 3 CONTINUE + PARTX(K,N)=U + 2 CONTINUE + 1 CONTINUE + DO 7 N=1,NQUAX + PARTA(N)=PART(1,N) + DO 7 K=2,KPAMAX + PART(K,N)=PARTX(K,N)-PARTX(K-1,N) + PARTA(N)=PARTA(N)+PART(K,N) + 7 CONTINUE + + IF ( ISH .GE. 93 ) THEN +121 FORMAT(1X,79A1) + WRITE(IFCH,*)' ' + WRITE(IFCH,121)('-',IC=1,79) + WRITE(IFCH,*)' PARTITIONS OF N INTO AT MOST K INTEGERS' + WRITE(IFCH,121)('-',IC=1,79) + WRITE(IFCH,101)((K),K=1,10),KPAMAX +101 FORMAT(9X,'K =',10I5,3X,I5) + WRITE(IFCH,121)('-',IC=1,79) + DO 8 N=1,NQUAX + WRITE(IFCH,100)N,(NINT(PARTX(K,N)),K=1,10),NINT(PARTA(N)) +100 FORMAT(3X,'N = ',I2,3X,10I5,3X,I5) + 8 CONTINUE + ENDIF + +C N=1 +C --- + IPART(1,1)=-1 + IPART(1,2)=-1 + IPART(1,3)=1 + +C N>1 +C --- + DO 11 N=2,NQUAX + WRITE(IFMT,*)'SR UTPART: N=',N + IF ( ISH .GE. 95 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'N=',N + ENDIF + IPART(N,1)=-1 + IPART(N,2)=-1 + IPART(N,3)=N + II=3 + +C N=N1+N2, MULTIPLY PARTITIONS OF N1 AND N2 +C ----------------------------------------- + DO 12 N1=1,N/2 + N2=N-N1 + IF ( ISH .GE. 95 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'N1,N2=',N1,N2 + ENDIF + K1MAX=-IPART(N1,1) + K2MAX=-IPART(N2,1) + IF ( K1MAX .LT. 0 .OR. K2MAX .LT. 0 ) THEN + CALL UTSTOP('UTPART: KIMAX NEGATIVE ') + ENDIF + J1=2 + DO 13 K1=1,K1MAX + L1=-IPART(N1,J1) + IF ( L1 .LT. 0 ) THEN + CALL UTSTOP('UTPART: L1 NEGATIVE (1) ') + ENDIF + J2=2 + DO 15 K2=1,K2MAX + L2=-IPART(N2,J2) + IF ( L2 .LT. 0 ) THEN + CALL UTSTOP('UTPART: L2 NEGATIVE (1) ') + ENDIF + + IPART(N,1)=IPART(N,1)-1 + II=II+1 + IF ( II .GT. JPAMAX ) GOTO 1000 + IPART(N,II)=-L1-L2 + II0=II+1 + DO 17 I1=1,L1 + II=II+1 + IF ( II .GT. JPAMAX ) GOTO 1000 + IPART(N,II)=IPART(N1,J1+I1) +17 CONTINUE + DO 18 I2=1,L2 + II=II+1 + IF ( II .GT. JPAMAX ) GOTO 1000 + IPART(N,II)=IPART(N2,J2+I2) +18 CONTINUE + + IF ( ISH .GE. 95 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'K1,K2=',K1,K2 + WRITE(IFCH,103)N,-IPART(N,1),NINT(PARTA(N)) +103 FORMAT(/3X,'N = ',I2,' P(N) = ',I4 + * ,' P0(N) = ',I4/) + JY=2 + DO 29 KY=1,-IPART(N,1) + LY=-IPART(N,JY) + WRITE(IFCH,102)KY,LY,(IPART(N,I) + * ,I=JY+1,JY+MIN(20,LY)) +102 FORMAT(3X,I2,3X,I2,3X,20I3) + JY=JY+LY+1 +29 CONTINUE + ENDIF + + IPRI=0 + DO 19 I=II0,II-1 + DO 19 J=I+1,II + IF ( IPART(N,I) .LT. IPART(N,J) ) THEN + IPRI=1 + ISTI=IPART(N,I) + IPART(N,I)=IPART(N,J) + IPART(N,J)=ISTI + ENDIF +19 CONTINUE + IF ( IPRI.EQ.1 .AND. ISH.GE.95 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'SEQUENCE CHANGED' + ENDIF + + JX=2 + DO 28 KX=1,-IPART(N,1)-1 + LX=-IPART(N,JX) + IF ( LX .LT. 0 ) THEN + CALL UTSTOP('UTPART: LX NEGATIVE ') + ENDIF + IF ( LX .EQ. L1+L2 ) THEN + DO 22 L=1,LX + IF ( IPART(N,JX+L) .NE. IPART(N,II0-1+L) ) GOTO 23 +22 CONTINUE + IF ( ISH .GE. 95 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'EXISTS ALREADY' + ENDIF + IPRI=1 + DO 33 I=II0-1,II + IPART(N,I)=0 +33 CONTINUE + II=II0-2 + IPART(N,1)=IPART(N,1)+1 + GOTO 30 +23 CONTINUE + ENDIF + JX=JX+LX+1 +28 CONTINUE +30 CONTINUE + + IF ( IPRI.EQ.1 .AND. ISH.GE.95 ) THEN + WRITE(IFCH,103)N,-IPART(N,1),NINT(PARTA(N)) + JY=2 + DO 32 KY=1,-IPART(N,1) + LY=-IPART(N,JY) + WRITE(IFCH,102)KY,LY,(IPART(N,I) + * ,I=JY+1,JY+MIN(20,LY)) + JY=JY+LY+1 +32 CONTINUE + ENDIF + + J2=J2+L2+1 +15 CONTINUE + J1=J1+L1+1 +13 CONTINUE +12 CONTINUE + +C ORDERING +C -------- + KM=-IPART(N,1) + IF ( KM .LT. 0 ) THEN + CALL UTSTOP('UTPART: KM NEGATIVE ') + ENDIF + J1=2 + DO 20 K1=1,KM-1 + L1=-IPART(N,J1) + IF ( L1 .LT. 0 ) THEN + CALL UTSTOP('UTPART: L1 NEGATIVE (2) ') + ENDIF + J2=2 + DO 21 K2=1,KM + L2=-IPART(N,J2) + IF ( L2 .LT. 0 ) THEN + CALL UTSTOP('UTPART: L2 NEGATIVE (2) ') + ENDIF + IF ( K2 .LE. K1 ) GOTO 21 + IF ( L1 .GT. L2 ) THEN + DO 24 L=1,L2+1 + ISWAP(L)=IPART(N,J2-1+L) +24 CONTINUE + DO 25 L=1,J2-J1 + I=J2-L + IPART(N,I+L2+1)=IPART(N,I) +25 CONTINUE + DO 26 L=1,L2+1 + IPART(N,J1-1+L)=ISWAP(L) +26 CONTINUE + L1=-IPART(N,J1) + IF ( L1 .LT. 0 ) THEN + CALL UTSTOP('UTPART: L1 NEGATIVE (2) ') + ENDIF + IF ( ISH .GE. 95 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'ORDER CHANGED. K1,K2=',K1,K2 + WRITE(IFCH,103)N,-IPART(N,1),NINT(PARTA(N)) + JY=2 + DO 31 KY=1,-IPART(N,1) + LY=-IPART(N,JY) + WRITE(IFCH,102)KY,LY,(IPART(N,I) + * ,I=JY+1,JY+MIN(20,LY)) + JY=JY+LY+1 +31 CONTINUE + ENDIF + ENDIF + J2=J2+L2+1 +21 CONTINUE + J1=J1+L1+1 +20 CONTINUE + + IF ( ISH.GE.93 .AND. N.LE.8 ) THEN + WRITE(IFCH,113)('-',IC=1,79),N,-IPART(N,1),('-',IC=1,79) +113 FORMAT(/1X,79A1/7X,'N = ',I2,' ---> ',I4, + * ' PARTITIONS'/1X,79A1) + JY=2 + DO 27 KY=1,-IPART(N,1) + LY=-IPART(N,JY) + WRITE(IFCH,112)KY,(IPART(N,I),I=JY+1,JY+MIN(20,LY)) +112 FORMAT(2X,I2,'. PARTITION:',3X,20I3) + JY=JY+LY+1 +27 CONTINUE + ENDIF + IF ( -IPART(N,1) .NE. NINT(PARTA(N)) ) THEN + CALL UTSTOP('UTPART: # OF PARTITIONS WRONG ') + ENDIF +11 CONTINUE + + RETURN + +1000 WRITE(IFCH,*)' ' + WRITE(IFCH,*)('*',J=1,79) + WRITE(IFCH,*)'***** N=',N + WRITE(IFCH,*)'***** JPAMAX=',JPAMAX + WRITE(IFCH,*)('*',J=1,79) + CALL UTSTOP('UTPART: DIMENSION JPAMAX TOO SMALL. ') + RETURN + END +C======================================================================= + + FUNCTION UTPCM(A,B,C) + +C----------------------------------------------------------------------- +C CALCULATES CM MOMENTUM FOR A-->B+C +C----------------------------------------------------------------------- + SAVE +C----------------------------------------------------------------------- + VAL=(A**2-B**2-C**2)**2-(2.*B*C)**2 + IF ( VAL.LT.0. .AND. VAL.GT.-1.E-4 ) THEN + UTPCM=0. + RETURN + ENDIF + UTPCM=SQRT(VAL)/(2.*A) + RETURN + END +C======================================================================= + + SUBROUTINE UTQUAF(FU,N,X,Q,X0,X1,X2,X3) + +C----------------------------------------------------------------------- +C RETURNS Q(I) = INTEGRAL (X(1)->X(I)) FU(X) DX +C ACCELERATED VERSION BY D. HECK, KFK SEPT 20, 1993 +C----------------------------------------------------------------------- + PARAMETER (M=10) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + REAL Q(N),X(N) + SAVE +C----------------------------------------------------------------------- + QUOT = 1./FLOAT(M-1) + IF ( ISH .GE. 90 ) THEN + IF ( X1.LT.X0 .OR. X2.LT.X1 .OR. X3.LT.X2 ) THEN + CALL UTMSG('UTQUAF') + WRITE(IFCH,*)' XI=',X0,X1,X2,X3 + CALL UTMSGF + ENDIF + ENDIF + I1 = N/3 + I2 = 2*N/3 + FAC1 = (X1-X0)/FLOAT(I1-1) + DO 11 I=1,I1-1 + X(I)=X0+(I-1.)*FAC1 + 11 CONTINUE + FAC2 = (X2-X1)/FLOAT(I2-I1) + DO 12 I=I1,I2-1 + X(I)=X1+FLOAT(I-I1)*FAC2 + 12 CONTINUE + FAC3 = (X3-X2)/FLOAT(N-I2) + DO 13 I=I2,N + X(I)=X2+FLOAT(I-I2)*FAC3 + 13 CONTINUE + Q(1) = 0. + Z = X(1) + AUXIL = FU(Z) + DO 2 I=2,N + FACT = (X(I) - Z) * QUOT + UTQUAD = AUXIL*0.5 + DO 3 K=2,M-1 + Z=Z+FACT + UTQUAD=FU(Z)+UTQUAD + 3 CONTINUE + Z = X(I) + AUXIL = FU(Z) + Q(I)=(AUXIL*0.5+UTQUAD)*FACT+Q(I-1) + 2 CONTINUE + RETURN + END +C======================================================================= + + SUBROUTINE UTQZ(N,X,Q1,Q2,X0,X1,X2,X3) + +C----------------------------------------------------------------------- +C RETURNS Q1(I) = INTEGRAL (X(1)->X(I)) FU1(X) DX (SEA QUARK STRUCT) +C RETURNS Q2(I) = INTEGRAL (X(1)->X(I)) FU2(X) DX (VAL QUARK STRUCT) +C ACCELERATED VERSION BY D. HECK, KFK OCT 20, 1993 +C----------------------------------------------------------------------- + PARAMETER (M=10) + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + COMMON /CIPIO/ IPIO + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + REAL Q1(N),Q2(N),X(N) + SAVE +C----------------------------------------------------------------------- + IF ( ISH .GE. 90 ) THEN + IF ( X1.LT.X0 .OR. X2.LT.X1 .OR. X3.LT.X2 ) THEN + CALL UTMSG('UTQZ ') + WRITE(IFCH,*)' XI=',X0,X1,X2,X3 + CALL UTMSGF + ENDIF + ENDIF + I1 = N/3 + I2 = 2*N/3 + FAC1 = (X1-X0)/FLOAT(I1-1) + DO 11 I=1,I1-1 + X(I)=(I-1.)*FAC1+X0 + 11 CONTINUE + FAC2 = (X2-X1)/FLOAT(I2-I1) + DO 12 I=I1,I2-1 + X(I)=FLOAT(I-I1)*FAC2 +X1 + 12 CONTINUE + FAC3 = (X3-X2)/FLOAT(N-I2) + DO 13 I=I2,N + X(I)=MIN( FLOAT(I-I2)*FAC3 +X2, 0.999999 ) + 13 CONTINUE + XCUT2 = XCUT**2 + QUOT= 1./FLOAT(M-1) + Q1(1)=0. + Q2(1)=0. + Z = X(1) + DENOMI= 1./SQRT(Z**2 + XCUT2) + IF ( IPIO .EQ. 0 ) THEN + AUXIL1 = (1.-Z)**8.05 *DENOMI + IF ( Z .NE. 0. ) THEN + AUXIL2 = (1.-Z)**3.46 * Z**.419 + * * (2.74793064*Z+0.62452969)* DENOMI + ELSE + AUXIL2 = 0. + ENDIF + DO 3 I=2,N + FACT = (X(I) - Z) * QUOT + UTQUA1 = 0.5*AUXIL1 + UTQUA2 = 0.5*AUXIL2 + DO 2 K=2,M-1 + Z=Z+FACT + DENOMI = 1./SQRT(Z**2 + XCUT2) + UTQUA1 = DENOMI * (1.-Z)**8.05 + UTQUA1 + IF ( Z .NE. 0. ) THEN + UTQUA2 = (1.-Z)**3.46 * Z**.419 + * * (2.74793064*Z+0.62452969) * DENOMI + UTQUA2 + ENDIF + 2 CONTINUE + Z=X(I) + DENOMI = 1./SQRT(Z**2 + XCUT2) + AUXIL1 = DENOMI * (1.-Z)**8.05 + Q1(I) = (AUXIL1*0.5+UTQUA1) * FACT*1.265 + Q1(I-1) + IF ( Z .NE. 0. ) THEN + AUXIL2=(1.-Z)**3.46 * Z**.419 * (2.74793064*Z+0.62452969) + * * DENOMI + Q2(I) = (AUXIL2*0.5+UTQUA2) * FACT + Q2(I-1) + ELSE + AUXIL2 = 0. + Q2(I) = FACT* UTQUA2 + Q2(I-1) + ENDIF + 3 CONTINUE + + ELSE + CUTLOG= LOG(XCUT) + A0 = -5. + 6.6666667*XCUT2 - 0.53333333*XCUT2**2 + BA0= A0*XCUT + A1 = 5. - 1.875*XCUT2 + QB = 1. - A1*XCUT2 + A2 = -3.3333333 +0.26666667*XCUT2 + A3 = 1.25 + A4 = -0.2 + AUXIL1 = (1.-Z)**5.0 * DENOMI + IF ( Z .NE. 0. ) THEN + AUXIL2 = (1.-Z)**0.7 * Z**0.4 * DENOMI + ELSE + AUXIL2 = 0. + ENDIF + DO 5 I=2,N + FACT = (X(I) - Z) * QUOT + UTQUA1 = 0.5*AUXIL1 + UTQUA2 = 0.5*AUXIL2 + DO 4 K=2,M-1 + Z=Z+FACT + DENOMI = 1./SQRT(Z**2 + XCUT2) + UTQUA1 = DENOMI * (1.-Z)**5.0 + UTQUA1 + IF ( Z .NE. 0. ) THEN + UTQUA2 = DENOMI * (1.-Z)**0.7 * Z**0.4 + UTQUA2 + ENDIF + 4 CONTINUE + Z = X(I) + ROOT = SQRT(Z**2 + XCUT2) + DENOMI= 1./ROOT +CC AUXIL1=DENOMI * (1.-Z)**5.0 +CC Q1(I) = (AUXIL1*0.5+UTQUA1) * FACT*0.9 + Q1(I-1) + Q1(I) = ( QB * ( LOG(Z+ROOT) - CUTLOG ) - BA0 + * + ROOT * (A0+Z*(A1+Z*(A2+Z*(A3+Z*A4)))) ) *0.9 + IF ( Z .NE. 0. ) THEN + AUXIL2 = DENOMI * (1.-Z)**0.7 * Z**0.4 + Q2(I) = (AUXIL2*0.5+UTQUA2) * FACT*0.1730725 + Q2(I-1) + ELSE + AUXIL2 = 0. + Q2(I) = FACT*0.1730725 * UTQUA2 + Q2(I-1) + ENDIF + 5 CONTINUE + ENDIF + RETURN + END +C======================================================================= + + SUBROUTINE UTREMB(PROJ,TARG,II) + +C----------------------------------------------------------------------- +C REMEMBERS NEVT,NSTR,NPTL,PROJ,TARG +C----------------------------------------------------------------------- + PARAMETER (MXPTL=70000) + PARAMETER (MXSTR=3000) + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + PARAMETER (NHA=NSIX+2) + COMMON /CEVT/ BIMEVT,COLEVT,EGYEVT,PHIEVT,PMXEVT + * ,KOLEVT,NEVT,NPJEVT,NTGEVT + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /CREMB/ PROJRE(2,NSI,NHA),TARGRE(2,NSI,NHA) + * ,NEVTRE(2),NPTLRE(2),NSTRRE(2) + COMMON /CSTR/ PSTR(5,MXSTR),ROTSTR(3,MXSTR),XORSTR(4,MXSTR) + * ,ICSTR(4,MXSTR),IORSTR(MXSTR),IRLSTR(MXSTR),NSTR + REAL PROJ(NSI,NHA),TARG(NSI,NHA) + SAVE +C----------------------------------------------------------------------- + NEVTRE(II)=NEVT + NSTRRE(II)=NSTR + NPTLRE(II)=NPTL + DO 56 M=1,NHA + SM=0. + DO 57 N=1,NSI + PROJRE(II,N,M)=PROJ(N,M) + SM=SM+PROJ(N,M)**2 +57 CONTINUE + IF ( M.GE.3 .AND. SM.LT.1.E-5 ) GOTO 58 +56 CONTINUE +58 CONTINUE + DO 53 M=1,NHA + SM=0. + DO 54 N=1,NSI + TARGRE(II,N,M)=TARG(N,M) + SM=SM+TARG(N,M)**2 +54 CONTINUE + IF ( M.GE.3 .AND. SM.LT.1.E-5 ) GOTO 55 +53 CONTINUE +55 CONTINUE + RETURN + END +C======================================================================= + + SUBROUTINE UTREPL(I,J) + +C----------------------------------------------------------------------- +C I IS REPLACED BY J IN /CPTL/ +C----------------------------------------------------------------------- + PARAMETER (MXPTL=70000) + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + COMMON /C2PTL/ AMIPTL(MXPTL),RADPTL(MXPTL),IAAPTL(MXPTL) + SAVE +C----------------------------------------------------------------------- + AMIPTL(I) =AMIPTL(J) + IAAPTL(I) =IAAPTL(J) + IBPTL(1,I) =IBPTL(1,J) + IBPTL(2,I) =IBPTL(2,J) + IBPTL(3,I) =IBPTL(3,J) + IBPTL(4,I) =IBPTL(4,J) + ICLPTL(I) =ICLPTL(J) + IDPTL(I) =IDPTL(J) + IFRPTL(1,I)=IFRPTL(1,J) + IFRPTL(2,I)=IFRPTL(2,J) + IORPTL(I) =IORPTL(J) + ISTPTL(I) =ISTPTL(J) + JORPTL(I) =JORPTL(J) + NQJPTL(I) =NQJPTL(J) + DO 1 K=1,5 + PPTL(K,I)=PPTL(K,J) + 1 CONTINUE + RADPTL(I) =RADPTL(J) + TIVPTL(1,I)=TIVPTL(1,J) + TIVPTL(2,I)=TIVPTL(2,J) + XORPTL(1,I)=XORPTL(1,J) + XORPTL(2,I)=XORPTL(2,J) + XORPTL(3,I)=XORPTL(3,J) + XORPTL(4,I)=XORPTL(4,J) + + RETURN + END +C======================================================================= + + SUBROUTINE UTRESM(ICP1,ICP2,ICM1,ICM2,AMP,IDPR,IADJ,IRETEN) + +C----------------------------------------------------------------------- + PARAMETER (NFLAV=6) + INTEGER ICM(2),ICP(2),JCM(NFLAV,2),JCP(NFLAV,2) + SAVE +C----------------------------------------------------------------------- + ICM(1)=ICM1 + ICM(2)=ICM2 + ICP(1)=ICP1 + ICP(2)=ICP2 + CALL IDDECO(ICM,JCM) + CALL IDDECO(ICP,JCP) + DO 37 NF=1,NFLAV + JCP(NF,1)=JCP(NF,1)+JCM(NF,1) + JCP(NF,2)=JCP(NF,2)+JCM(NF,2) +37 CONTINUE + CALL IDENCO(JCP,ICP,IRETEN) + IDP=IDTRA(ICP,0,0,3) + CALL IDRES(IDP,AMP,IDPR,IADJ) + RETURN + END +C======================================================================= + + SUBROUTINE UTREST(PROJ,TARG,II) + +C----------------------------------------------------------------------- + PARAMETER (NSI=6) + PARAMETER (NSIX=40) + PARAMETER (NHA=NSIX+2) + COMMON /CEVT/ BIMEVT,COLEVT,EGYEVT,PHIEVT,PMXEVT + * ,KOLEVT,NEVT,NPJEVT,NTGEVT + COMMON /CREMB/ PROJRE(2,NSI,NHA),TARGRE(2,NSI,NHA) + * ,NEVTRE(2),NPTLRE(2),NSTRRE(2) + REAL PROJ(NSI,NHA),TARG(NSI,NHA) + SAVE +C----------------------------------------------------------------------- + NEVT=NEVTRE(II) + NSTR=NSTRRE(II) + NPTL=NPTLRE(II) + DO 66 M=1,NHA + SM=0. + DO 67 N=1,NSI + PROJ(N,M)=PROJRE(II,N,M) + SM=SM+PROJRE(II,N,M)**2 +67 CONTINUE + IF ( M.GE.3 .AND. SM.LT.1.E-5 ) GOTO 68 +66 CONTINUE +68 CONTINUE + DO 63 M=1,NHA + SM=0. + DO 64 N=1,NSI + TARG(N,M)=TARGRE(II,N,M) + SM=SM+TARGRE(II,N,M)**2 +64 CONTINUE + IF ( M.GE.3 .AND. SM.LT.1.E-5 ) GOTO 65 +63 CONTINUE +65 CONTINUE + RETURN + END +C======================================================================= + + SUBROUTINE UTROTA(ISIG,AX,AY,AZ,X,Y,Z) + +C----------------------------------------------------------------------- +C PERFORMS A ROTATION +C----------------------------------------------------------------------- + SAVE +C----------------------------------------------------------------------- + IF ( AZ .GE. 0. ) THEN + RX=AX + RY=AY + RZ=AZ + ELSE + RX=-AX + RY=-AY + RZ=-AZ + ENDIF + ALP=SIGN( ABS(UTACOS(RZ/SQRT(RZ**2+RY**2))), RY ) + BET=SIGN( ABS(UTACOS(SQRT(RZ**2+RY**2)/SQRT(RZ**2+RY**2+RX**2))) + * , RX ) + COSA=COS(ALP) + SINA=SIN(ALP) + COSB=COS(BET) + SINB=SIN(BET) + IF ( ISIG .GT. 0 ) THEN + XS=X*COSB-Y*SINA*SINB-Z*COSA*SINB + YS= Y*COSA -Z*SINA + ZS=X*SINB+Y*SINA*COSB+Z*COSA*COSB + ELSEIF ( ISIG .LT. 0 ) THEN + XS= X*COSB +Z*SINB + YS=-X*SINB*SINA+Y*COSA+Z*COSB*SINA + ZS=-X*SINB*COSA-Y*SINA+Z*COSB*COSA + ENDIF + X=XS + Y=YS + Z=ZS + RETURN + END +C======================================================================= + + SUBROUTINE UTROT2(ISIG,AX,AY,AZ,X,Y,Z) + +C----------------------------------------------------------------------- +C PERFORMS A ROTATION, DOUBLE PREC. +C----------------------------------------------------------------------- + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO1/ AMPRIF,AMSIAC,BMAXIM,BMINIM,CORE,CUTMSQ,CUTMSS + * ,DELMSS,DELREM,FCTRMX,GAUMX,OVERLP,PAREA,PDIQUA + * ,PHARD,PSPINL,PSPINH,PISPN,PTF,PTH,PTMX,PTQ,PUD + * ,PVALEN,QSEPC,QSETC,QMUST,QVAPC,QVATC,RADIAC + * ,RADIAS,RSTRAS,SIGJ,SIGPPI,TAUMAX,TAUMIN + * ,TAUMX,TAUNLL,TENSN,THEMAS,WPROJ,WTARG,WTMINI + * ,WTSTEP,XCUT + * ,IAQU,IFRADE,IOJINT,IOPBRK,IOPENT,IOPENU + * ,IOPTF,IOPTQ,IRESCL,IWCENT,KENTRO,KO1KO2 + * ,LABSYS,MAXRES,NCLEAN,NCOLMX,NDECAW,NEQMN,NEQMX + * ,NSTTAU,NTRYMX,NUMTAU + + DOUBLE PRECISION ALP,AUXIL1,AUXIL2,AX,AY,AZ,BET,COSA,COSB + * ,RX,RY,RZ,SINA,SINB,X,XS,Y,YS,Z,ZS + SAVE +C----------------------------------------------------------------------- + IF ( AX**2.EQ.0.D0 .AND. AY**2.EQ.0.D0 .AND. AZ**2.EQ.0.D0 ) THEN + WRITE(IFCH,*)' ' + WRITE(IFCH,*)'AX**2,AY**2,AZ**2:',AX**2,AY**2,AZ**2 + WRITE(IFCH,*)'AX,AY,AZ:',AX,AY,AZ + CALL UTSTOP('UTROT2: ZERO VECTOR. ') + ENDIF + IF ( AZ .GE. 0.D0 ) THEN + RX=AX + RY=AY + RZ=AZ + ELSE + RX=-AX + RY=-AY + RZ=-AZ + ENDIF + AUXIL1 = RZ**2+RY**2 + IF ( AUXIL1 .NE. 0.D0 ) THEN + AUXIL2 = SQRT(AUXIL1) + ALP=SIGN( ABS(ACOS(RZ/AUXIL2)), RY ) + BET=SIGN( ABS(ACOS( AUXIL2/SQRT(AUXIL1+RX**2) )), RX ) + COSA=COS(ALP) + SINA=SIN(ALP) + COSB=COS(BET) + SINB=SIN(BET) + ELSE + COSA=0.D0 + COSB=0.D0 + SINA=1.D0 + SINB=1.D0 + ENDIF + IF ( ISIG .GT. 0 ) THEN + XS=X*COSB-Y*SINA*SINB-Z*COSA*SINB + YS= Y*COSA -Z*SINA + ZS=X*SINB+Y*SINA*COSB+Z*COSA*COSB + ELSEIF ( ISIG .LT. 0 ) THEN + XS= X*COSB +Z*SINB + YS=-X*SINB*SINA+Y*COSA+Z*COSB*SINA + ZS=-X*SINB*COSA-Y*SINA+Z*COSB*COSA + ENDIF + X=XS + Y=YS + Z=ZS + RETURN + END +C======================================================================= + + SUBROUTINE UTSTOP(TEXT) + +C----------------------------------------------------------------------- +C RETURNS ERROR MESSAGE AND STOPS EXECUTION +C----------------------------------------------------------------------- + COMMON /ACCUM/ AMSAC,ILAMAS,IMSG,INOIAC,IPAGE,JERR,NAEVT,NREVT + * ,NRPTL,NRSTR,NTEVT + DOUBLE PRECISION SEEDC,SEEDI + COMMON /CSEED/ SEEDC,SEEDI + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /NEVNT/ NEVNT + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + CHARACTER STAR*1,TEXT*40 + DATA STAR/'*'/ + SAVE +C----------------------------------------------------------------------- + DO 1 I=1,2 + IF ( I .EQ. 1 ) THEN + IFI=IFCH + ELSE + IFI=IFMT + ENDIF + WRITE(IFI,*)' ' + WRITE(IFI,*)(STAR,J=1,77) + WRITE(IFI,*)'***** STOP IN ',TEXT +CDH WRITE(IFI,*)'***** CURRENT EVENT NUMBER: ',NREVT+1 + WRITE(IFI,*)'***** CURRENT EVENT NUMBER: ',NEVNT + WRITE(IFI,*)'***** CURRENT PAGE NUMBER: ',IPAGE + WRITE(IFI,*)'***** INITIAL SEED FOR CURRENT EVENT:',SEEDI + WRITE(IFI,*)'***** RANDOM CALLS FOR CURRENT EVENT:',SEEDC + WRITE(IFI,*)(STAR,J=1,77) + WRITE(IFI,*)' ' + 1 CONTINUE + STOP + END +C======================================================================= + + SUBROUTINE UTTAIN(I,X,Y,Z,T,N,IOPT) + +C----------------------------------------------------------------------- +C RETURNS INTERSECTION OF PTL-I-TRAJECTORY WITH TAUS-LINE. +C N=0 IF OK, N=1 IF PTL LIVES LATER, N=2 IF EARLIER, +C N=9 IF TIV1>TIV2, N=3,4,5 ELSE. +C IOPT=0: FORMATION TIME CONSIDERED, IOPT=1 IF NOT +C----------------------------------------------------------------------- + PARAMETER (MXPTL=70000) + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + DOUBLE PRECISION DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /CTTAUS/ DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + DOUBLE PRECISION DD,DERR,TI1,TI2,TT,VV,VVP,VVT,XO3,XO4,ZZ,ZZA + DATA DERR/1.D-2/ + SAVE +C----------------------------------------------------------------------- + XO4=XORPTL(4,I) + IF ( IOPT .EQ. 0 ) THEN + TI1=TIVPTL(1,I) + ELSEIF ( IOPT .EQ. 1 ) THEN + TI1=XO4 + ENDIF + TI2=TIVPTL(2,I) + + IF ( TI1 .GT. TI2 ) GOTO 1009 + PPT4I = 1./PPTL(4,I) + VV=PPTL(3,I)*PPT4I + XO3=XORPTL(3,I) + + ZZ=XO3+(TI2-XO4)*VV + IF ( TTAUS .LE. 0.D0 ) THEN + TZ=TTAUS + ELSE + IF ( ZZ .LE. ZZT ) THEN + TZ=TTT+(ZZ-ZZT)*ZZT/TTT + ELSEIF ( ZZ .GE. ZZP ) THEN + TZ=TTP+(ZZ-ZZP)*ZZP/TTP + ELSE + IF ( TTAUS .GE. AINFIN ) THEN + TZ=TTAUS + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('UTTAIN') + WRITE(IFCH,*)'***** LARGE TTAUS; SET TZ=TTAUS' + WRITE(IFCH,*)'TTAUS=',TTAUS,'ZZ=',ZZ + CALL UTMSGF + ENDIF + ELSE +C*DH TZ=SQRT(TTAUS**2+ZZ**2) + IF ( TI2 .LT. 0.D0 ) GOTO 1002 + IF ( TTAUS**2+ZZ**2 .GE. TI2**2 ) GOTO 1002 + GOTO 1006 + ENDIF + ENDIF + ENDIF + IF ( TZ .GE. TI2 ) GOTO 1002 + + 1006 ZZ=XO3+(TI1-XO4)*VV + IF ( TTAUS .GT. 0.D0 ) THEN + IF ( ZZ .LE. ZZT ) THEN + TZ=TTT+(ZZ-ZZT)*ZZT/TTT + ELSEIF ( ZZ .GE. ZZP ) THEN + TZ=TTP+(ZZ-ZZP)*ZZP/TTP + ELSE + IF ( TTAUS .GE. AINFIN ) THEN + TZ=TTAUS + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('UTTAIN') + WRITE(IFCH,*)'***** LARGE TTAUS; SET TZ=TTAUS' + WRITE(IFCH,*)'TTAUS=',TTAUS,'ZZ=',ZZ + CALL UTMSGF + ENDIF + ELSE +C*DH TZ=SQRT(TTAUS**2+ZZ**2) + IF ( TI1 .LT. 0.D0 ) GOTO 1007 + IF ( TTAUS**2+ZZ**2 .LE. TI1**2 ) GOTO 1001 + GOTO 1007 + ENDIF + ENDIF + ENDIF + IF ( TZ .LE. TI1 ) GOTO 1001 + + 1007 IF ( TTAUS .LE. 0.D0 ) THEN + TT=TTAUS + ZZ=XO3+(TT-XO4)*VV + IF ( TT.LT.TI1 .OR. TT.GE.TI2 ) GOTO 1031 + ELSE + ZZA=XO3-XO4*VV + VVT=ZZT/TTT + TT=(TTT+(ZZA-ZZT)*VVT)/(1.D0-VV*VVT) + ZZ=XO3+(TT-XO4)*VV + IF ( ZZ .LE. ZZT ) THEN + IF ( TT.LT.TI1 .OR. TT.GE.TI2 ) GOTO 1032 + GOTO 1000 + ENDIF + VVP=ZZP/TTP + TT=(TTP+(ZZA-ZZP)*VVP)/(1.D0-VV*VVP) + ZZ=XO3+(TT-XO4)*VV + IF ( ZZ .GE. ZZP ) THEN + IF ( TT.LT.TI1 .OR. TT.GE.TI2 ) GOTO 1033 + GOTO 1000 + ENDIF + DD=1.D0-VV**2 + IF ( DD .EQ. 0.D0 ) THEN + TT=-VV*(TTAUS**2+ZZA**2)*0.5D0/ZZA + ELSE + TT=(ZZA*VV+SQRT(ZZA**2+TTAUS**2*DD))/DD + ENDIF + ZZ=XO3+(TT-XO4)*VV + IF ( TT.LT.TI1 .OR. TT.GE.TI2 ) GOTO 1034 + IF ( TT .LT. 0.D0 ) GOTO 1035 + IF ( ZZ.LE.ZZT .OR. ZZ.GE.ZZP ) GOTO 1004 + IF ( ABS(TTAUS**2-(TT+ZZ)*(TT-ZZ)) + * .GT. DERR*TTAUS**2 ) GOTO 1005 + ENDIF + + 1000 N=0 + 1011 T=TT + Z=ZZ + X=XORPTL(1,I)+(T-XO4)*PPTL(1,I)*PPT4I + Y=XORPTL(2,I)+(T-XO4)*PPTL(2,I)*PPT4I + RETURN + 1001 N=1 + RETURN + 1002 N=2 + RETURN + 1031 N=31 + GOTO 1003 + + 1032 N=32 + GOTO 1003 + 1033 N=33 + GOTO 1003 + 1034 N=34 + 1003 IF ( ABS(TT-TI1) .LE. DERR*ABS(TT) ) GOTO 1000 + IF ( ABS(TT-TI2) .LE. DERR*ABS(TT) ) GOTO 1000 + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('UTTAIN') + WRITE(IFCH,*)'***** TI1 < TT < TI2 NOT FULFILLED - ',N + WRITE(IFCH,*)SNGL(TI1),SNGL(TT),SNGL(TI2) + CALL UTMSGF + ENDIF + GOTO 1011 + 1035 CONTINUE + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('UTTAIN') + WRITE(IFCH,*)'***** TT < 0 ( ',TT,' )' + WRITE(IFCH,*)'VV,DD:',VV,DD + WRITE(IFCH,*)'ZZA,TTAUS:',ZZA,TTAUS + CALL UTMSGF + ENDIF + GOTO 1011 + 1004 N=4 + IF ( ABS(ZZ-ZZT) .LE. DERR*ABS(ZZ) ) GOTO 1000 + IF ( ABS(ZZ-ZZP) .LE. DERR*ABS(ZZ) ) GOTO 1000 + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('UTTAIN') + WRITE(IFCH,*)'***** ZZT < ZZ < ZZP NOT FULFILLED' + WRITE(IFCH,*)SNGL(ZZT),SNGL(ZZ),SNGL(ZZP) + CALL UTMSGF + ENDIF + GOTO 1011 + 1005 N=5 + IF ( ABS(TTAUS**2-(TT+ZZ)*(TT-ZZ)) .LE. DERR ) GOTO 1000 + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('UTTAIN') + WRITE(IFCH,*)'***** TTAUS**2 .NE. (TT+ZZ)*(TT-ZZ)' + WRITE(IFCH,*)SNGL(TTAUS**2),SNGL((TT+ZZ)*(TT-ZZ)) + CALL UTMSGF + ENDIF + GOTO 1011 + 1009 N=9 + RETURN + END +C======================================================================= + + SUBROUTINE UTTAIX(I,TAU,ZOR,TOR,Z,T) + +C----------------------------------------------------------------------- +C RETURNS INTERSECTION Z,T OF PTL-I-TRAJECTORY WITH HYPERBOLA H. +C H: (T-TOR)**2-(Z-ZOR)**2=TAU**2 . +C ZOR, TOR DOUBLE PRECISION. +C----------------------------------------------------------------------- + PARAMETER (MXPTL=70000) + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + COMMON /CPTL/ PPTL(5,MXPTL),TIVPTL(2,MXPTL),XORPTL(4,MXPTL) + * ,IBPTL(4,MXPTL),ICLPTL(MXPTL),IDPTL(MXPTL) + * ,IFRPTL(2,MXPTL),IORPTL(MXPTL),ISTPTL(MXPTL) + * ,JORPTL(MXPTL),NPTL,NQJPTL(MXPTL) + + DOUBLE PRECISION CC,DD,DERR,TOR,TORS,TT,TTAU,VV,ZOR,ZORS,ZZ + SAVE +C----------------------------------------------------------------------- + DERR=1.D-3 + TTAU=TAU + ZORS=XORPTL(3,I)-ZOR + TORS=XORPTL(4,I)-TOR + VV=PPTL(3,I)/PPTL(4,I) + IF ( ABS(VV) .GT. 1.D0 ) THEN + IF ( ISH.GE.90 .AND. ABS(VV).GT.1.001D0 ) THEN + CALL UTMSG('UTTAIX') + WRITE(IFCH,*)'***** !V! > 1' + WRITE(IFCH,*)'V: ',VV + WRITE(IFCH,*)'P,E: ',PPTL(3,I),PPTL(4,I) + CALL UTMSGF + ENDIF + VV=SIGN(1.D0,VV) + ENDIF + CC=ZORS-TORS*VV + DD=1.D0-VV**2 + IF ( DD.EQ.0.D0 .AND. CC.EQ.0.D0 ) THEN + IF ( TAU .EQ. 0. ) THEN + TT=0. + ELSE + TT=AINFIN + ENDIF + ZZ=TT + GOTO 1000 + ELSEIF ( DD .EQ. 0.D0 ) THEN + TT=-(TTAU**2+CC**2)*0.5D0/(CC*VV) + ELSEIF ( DD .LT. 1.D-8 ) THEN + TT=-(TTAU**2+CC**2)*0.5D0/(CC*VV) + IF(ISH.GE.90)THEN + CALL UTMSG('UTTAIX') + WRITE(IFCH,*)'***** DD = ',DD,' TREATED AS ZERO' + CALL UTMSGF + ENDIF + ELSE + TT=(CC*VV+SQRT(CC**2+TTAU**2*DD))/DD + ENDIF + ZZ=CC+TT*VV + IF ( ISH .GE. 90 ) THEN + IF ( ABS(TTAU**2-(TT+ZZ)*(TT-ZZ)) .GT. DERR*TTAU**2 .AND. + * ABS(TTAU**2-(TT+ZZ)*(TT-ZZ)) .GT. DERR .AND. + * TORS**2-ZORS**2 .LT. 1.D6 ) THEN + CALL UTMSG('UTTAIX') + WRITE(IFCH,*)'***** TTAU**2 .NE. (TT+ZZ)*(TT-ZZ)' + WRITE(IFCH,*)SNGL(TTAU**2),SNGL((TT+ZZ)*(TT-ZZ)) + WRITE(IFCH,*)'TAU,T,Z:' + WRITE(IFCH,*)TAU,TT,ZZ + WRITE(IFCH,*)'#,ID(PTL):',I,IDPTL(I) + WRITE(IFCH,*)'ZOR,TOR(STR):',ZOR,TOR + WRITE(IFCH,*)'ZORS,TORS,P,E(PTL):' + WRITE(IFCH,*)SNGL(ZORS),SNGL(TORS),PPTL(3,I),PPTL(4,I) + CALL UTMSGF + ENDIF + ENDIF +1000 Z=ZZ+ZOR + T=TT+TOR + RETURN + END +C======================================================================= + + SUBROUTINE UTTAUS(Z,SZ) + +C----------------------------------------------------------------------- +C RETURNS INV Z-COORD SZ CORRESPONDING TO TTAUS AND Z. +C----------------------------------------------------------------------- + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + DOUBLE PRECISION DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /CTTAUS/ DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + DOUBLE PRECISION ZZ + SAVE +C----------------------------------------------------------------------- + IF ( TTAUS .LE. 0.D0 ) THEN + SZ=Z + RETURN + ENDIF + ZZ=Z + IF ( ZZ .LE. ZZT ) THEN + SZ=TTAUS*DETAT+(ZZ-ZZT)/TTAR + ELSEIF ( ZZ .GE. ZZP ) THEN + SZ=TTAUS*DETAP+(ZZ-ZZP)/TPRO + ELSE + IF ( SNGL(TTAUS) .GE. AINFIN ) THEN + SZ=0. + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('UTTAUS') + WRITE(IFCH,*)'***** LARGE TTAUS; SET TZ=TTAUS, SZ=0' + WRITE(IFCH,*)'TTAUS=',TTAUS,'ZZ=',ZZ + CALL UTMSGF + ENDIF + ELSE + TZ=SQRT(TTAUS**2+ZZ**2) + SZ=TTAUS*0.5D0*LOG((TZ+ZZ)/(TZ-ZZ)) + ENDIF + ENDIF + RETURN + END +C======================================================================= + + SUBROUTINE UTTAUT(Z,TZ) + +C----------------------------------------------------------------------- +C RETURNS TZ = TIME CORRESPONDING TO TTAUS AND Z +C----------------------------------------------------------------------- + COMMON /CNSTA/ AINFIN,PI,PIOM,PROM + DOUBLE PRECISION DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /CTTAUS/ DETAP,DETAT,TPRO,TTAR,TTAUS,TTP,TTT + * ,ZPRO,ZTAR,ZZP,ZZT + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + DOUBLE PRECISION ZZ + SAVE +C----------------------------------------------------------------------- + ZZ=Z + IF ( ZZ .LE. ZZT ) THEN + TZ=TTT+(ZZ-ZZT)*ZZT/TTT + ELSEIF ( ZZ .GE. ZZP ) THEN + TZ=TTP+(ZZ-ZZP)*ZZP/TTP + ELSE + IF ( TTAUS .GE. AINFIN ) THEN + TZ=TTAUS + IF ( ISH .GE. 90 ) THEN + CALL UTMSG('UTTAUT') + WRITE(IFCH,*)'***** LARGE TTAUS; SET TZ=TTAUS' + WRITE(IFCH,*)'TTAUS=',TTAUS,'ZZ=',ZZ + CALL UTMSGF + ENDIF + ELSE + TZ=SQRT(TTAUS**2+ZZ**2) + ENDIF + ENDIF + RETURN + END +C======================================================================= +C +C SUBROUTINE UTTIMA(TEXT) +C +C----------------------------------------------------------------------- +C RETURNS TIME. +C----------------------------------------------------------------------- +C COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP +C COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY +C * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA +C * ,YHAHA,YMXIMI,YPJTL +C * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM +C * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH +C * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI +C * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG +C * ,MODSHO,NDECAX,NDECAY,NEVENT +C CHARACTER*15 TEXT +C----------------------------------------------------------------------- +C TIMAA=0. +C TIMA=0. +C-C CALL TIMAX(TIMAA) +C-C CALL TIMAD(TIMA) +C IF ( TEXT .EQ. ' ' ) RETURN +C IF ( ISH .GE. 91 ) WRITE(IFCH,*)' ' +C WRITE(IFCH,100)TEXT,TIMA/5.,TIMAA/5. +C IF ( ISH .GE. 91 ) WRITE(IFCH,*)' ' +C100 FORMAT(1X,A15,5X,F12.5,5X,F12.5) +C RETURN +C END +C=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= +C +C ENTRY UTTIMT +C +C----------------------------------------------------------------------- +C-C CALL TIMAST(1E10) +C RETURN +C=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= +C +C ENTRY UTTIMX(TIMAAX) +C +C----------------------------------------------------------------------- +C TIMAAX=0. +C-C CALL TIMAX(TIMAAX) +C RETURN +C END +C======================================================================= + + SUBROUTINE UTTUCL + +C---------------------------------------------------------------------- +C FILLS ARRAY TUCL(1+K,1+N) CONTAINING THE LOGARITHM (LN) OF +C THE NUMBER OF K-TUPELS N_I WITH SUM_I N_I = N: +C TUCL(1+K,1+N)=LOG((N+1)*(N+2)...*(N+K-1)/(K-1)!) K>=0 N>=0 . +C DOUBLE PRECISION TUCL. +C---------------------------------------------------------------------- + PARAMETER (KTUMAX=100) + PARAMETER (NTUMAX=100) + DOUBLE PRECISION TUCL + COMMON /CTUCL/ TUCL(1+KTUMAX,1+NTUMAX) + COMMON /FILES/ IFCH,IFDT,IFHI,IFMT,IFOP + COMMON /PARO2/ AMPROJ,AMTARG,ANGMUE,ELEPTI,ELEPTO,ENGY + * ,PNLL,PNLLX,PROB(99),PROSEA,RHOPHI,TAUREA + * ,YHAHA,YMXIMI,YPJTL + * ,ICBAC(99,2),ICFOR(99,2),ICHOIC,ICLHIS,IDPM + * ,IDPROJ,IDTARG,IENTRO,IJPHIS,IMIHIS,IPAGI,ISH + * ,ISHEVT,ISHSUB,ISPALL,ISPHIS,ISTMAX,ISUP,IVI + * ,JPSI,JPSIFI,KUTDIQ,LAPROJ,LATARG,MAPROJ,MATARG + * ,MODSHO,NDECAX,NDECAY,NEVENT + + DOUBLE PRECISION DD,RELERR + SAVE +C---------------------------------------------------------------------- + TUCL(1,1)=-100.D0 + TUCL(2,1)=0.D0 + DO 7 K=2,KTUMAX + TUCL(1+K,1)=0.D0 + 7 CONTINUE + DO 2 N=2,NTUMAX+1 + TUCL(1,N)=-100.D0 + TUCL(2,N)=0.D0 + DO 1 K=2,KTUMAX + DD=(N+K-2.D0)/(K-1.D0) + TUCL(1+K,N)=TUCL(K,N)+LOG(DD) + 1 CONTINUE + 2 CONTINUE + + IF ( ISH .GE. 93 ) THEN + DO 5 K=2,50 + DO 4 N=1,50 + RELERR=ABS((EXP(TUCL(1+K,1+N))-EXP(TUCL(1+K,N)) + * -EXP(TUCL(K,1+N)))/EXP(TUCL(1+K,1+N))) + IF ( RELERR .GT. 1.D-4 ) THEN + CALL UTMSG('UTTUCL') + WRITE(IFCH,*)'***** TUCL(,) VIOLATES RECURRENCE RELATION' + WRITE(IFCH,*)SNGL(EXP(TUCL(1+K,1+N))) + * ,SNGL(EXP(TUCL(1+K,N))+EXP(TUCL(K,1+N))) + CALL UTMSGF + ENDIF + 4 CONTINUE + 5 CONTINUE + WRITE(IFCH,*)' ' + WRITE(IFCH,121)('-',IC=1,79) +121 FORMAT(1X,79A1) + WRITE(IFCH,*)' DEGENERACY OF ENERGY LEVELS OF K-DIMENSIONAL' + * ,' OSCILLATOR' + WRITE(IFCH,121)('-',IC=1,79) + WRITE(IFCH,*)' ==' + * ,' NUMBER OF K-TUPELS OF LENGTH N (SUM_I N_I = N)' + WRITE(IFCH,121)('-',IC=1,79) + WRITE(IFCH,*)' K:',' 1',' 2',' 3',' 4' + WRITE(IFCH,121)('-',IC=1,79) + DO 8 N=0,50 + WRITE(IFCH,*)N,(SNGL(EXP( TUCL(1+K,1+N) )),K=1,4) + 8 CONTINUE + ENDIF + + RETURN + END Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/warning.c =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/warning.c (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/warning.c (revision 1444) @@ -0,0 +1,615 @@ +/* ================================================================ */ +/** + @file warning.c + @brief Pass warning messages to the screen or a usr function as set up. + + One of the most import parameter for setting up the bevaviour + is the warning level: + +@verbatim + ------------------------------------------------------------ + Warning level: The lowest level of messages to be displayed + ------------------------------------------------------------ + Warning mode: + bit 0: display on screen (stderr), + bit 1: write to file, + bit 2: write with user-defined logging function. + bit 3: display origin if supplied. + bit 4: open log file for appending. + bit 5: call auxilliary function for time/date etc. + bit 6: use the auxilliary function output as origin string + if no explicit origin was supplied. + bit 7: use syslog(). + ------------------------------------------------------------ +@endverbatim +*/ + +#include "initial.h" +#define __WARNING_MODULE 1 +#include "warning.h" +#include + +struct warn_specific_data +{ + /* Warning level: The lowest level of messages to be displayed */ + int warninglevel; +/* + * ----------------------------------------------------------- + * Warning mode: + * bit 0: display on screen (stderr), + * bit 1: write to file, + * bit 2: write with user-defined logging function. + * bit 3: display origin if supplied. + * bit 4: open log file for appending. + * bit 5: call auxilliary function for time/date etc. + * bit 6: use the auxilliary function output as origin string + * if no explicit origin was supplied. + * bit 7: use syslog(). + * ----------------------------------------------------------- + */ + int warningmode; + char output_buffer[2048]; + /** The name of the log file. Used only when opening the file. */ + const char *logfname; + char saved_logfname[256]; + int buffered; + FILE *logfile; + void (*log_function) ARGLIST((const char *, const char *, int, int)); + void (*output_function) ARGLIST((const char *)); + char *(*aux_function) ARGLIST((void)); + int recursive; +}; + +static struct warn_specific_data warn_defaults = +{ + 0, /* warninglevel */ + 1+8, /* warningmode */ + "", /* output_buffer */ + "warning.log", /* logfname */ + "", /* saved_logfname */ + 0, /* buffered */ + NULL, /* logfile */ + NULL, /* log_function */ + NULL, /* output_function */ + NULL, /* aux_function */ + 0 /* recursive */ +}; + +#ifdef _REENTRANT + +#include + +#ifndef PTHREAD_ONCE_INIT +#define PTHREAD_ONCE_INIT pthread_once_init +#define PTHREAD_MUTEX_INITIALIZER 0 +#endif + +/** Global key for thread-specific data. */ +static pthread_key_t warn_tsd_key; +static pthread_once_t warn_key_once = PTHREAD_ONCE_INIT; + +static int delete_warn_specific(void); +static void warn_destructor (void *whatever); +static void warn_func_once(void); +static int create_warn_specific(void); +static void *get_warn_specific(void); + +static int delete_warn_specific() +{ + void *specific; + + if ( (specific = pthread_getspecific(warn_tsd_key)) == NULL ) + return 0; + free(specific); + if ( pthread_setspecific(warn_tsd_key,NULL) < 0 ) + return -1; + return 0; +} + +static void warn_destructor (void *whatever) +{ + fprintf(stderr,"delete_warn_specific() called\n"); + delete_warn_specific(); +} + +static void warn_func_once() +{ + fprintf(stderr,"Doing one-time thread-specific warning data initialization.\n"); +#ifdef OS_LYNX + pthread_keycreate(&warn_tsd_key,warn_destructor); +#else + pthread_key_create(&warn_tsd_key,warn_destructor); +#endif +} + +static int create_warn_specific() +{ + void *specific; + /* Make sure that the key has been set up */ + if ( pthread_once(&warn_key_once,warn_func_once) != 0 ) + { + fprintf(stderr,"Thread specific one-time initialization failed.\n"); + return -1; + } + /* Any prior data ? This would be a memory leak. */ + if ( (specific = pthread_getspecific(warn_tsd_key)) != NULL ) + { + fprintf(stderr,"Prior thread-specific warning being deleted.\n"); + free(specific); + pthread_setspecific(warn_tsd_key,NULL); + } + + /* New data allocated and initialized with defaults */ + if ( (specific = calloc(1,sizeof(struct warn_specific_data))) == NULL ) + return -1; + memcpy(specific,&warn_defaults,sizeof(struct warn_specific_data)); + if ( pthread_setspecific(warn_tsd_key,specific) != 0 ) + return -1; + return 0; +} + +static void *get_warn_specific() +{ + void *specific; + + if ( (specific = pthread_getspecific(warn_tsd_key)) == NULL ) + { +#if 0 + fprintf(stderr,"Dynamically creating warning thread-specific data.\n"); + fprintf(stderr,"Failure to call warn_delete_specific() at thread termination may result in memory leaks.\n"); +#endif + create_warn_specific(); + specific = pthread_getspecific(warn_tsd_key); + } + + return specific; +} + +#else +#define get_warn_specific() (&warn_defaults) +#endif + +/* ------------------------- warn_f_warning ------------------------- */ +/** + * @short Issue a warning to screen or other configured target. + * + * Issue a warning to screen and/or file if the warning + * has a sufficiently large message 'level' (high enough severity). + * This function should best be called through the macros + * 'Information', 'Warning', and 'Error'. + * The name of this function has been changed from 'warning' + * to '_warning' to avoid trouble if you call 'warning' instead + * of 'Warning'. Now such a typo causes an error in the link step. + * + * @param msgtext Warning or error text. + * @param msgorigin Optional origin (e.g. function name) or NULL. + * @param msglevel Level of message importance: + * negative: debugging if needed, + * 0-9: informative, + * 10-19: warning, + * 20-29: error. + * @param msgno Number of message or 0. + * + * @return (none) + * + */ + +void warn_f_warning (const char *msgtext, const char *msgorigin, + int msglevel, int msgno) +{ + char enumtext[32]; + struct warn_specific_data *wt = get_warn_specific(); + + if ( wt == NULL ) + return; + + if ( msgtext == (char *) NULL || wt == NULL ) + return; + + /* Don't record or print message text if not severe enough. */ + if ( msglevel < wt->warninglevel ) + return; + + /* Make sure that warning() is not executed recursively, */ + /* for example due to errors in a user-defined log function. */ + if ( wt->recursive ) + { + fputs("E0003: Recursive call to warning function!\n",stderr); + fputs("Text of last call: ",stderr); + fputs(msgtext,stderr); + fputs("\n",stderr); + if ( (wt->warningmode & 0x02) && wt->logfile != (FILE *) NULL ) + { + fputs("E0003: Recursive call to warning function!\n",wt->logfile); + fputs("Text of last call: ",wt->logfile); + fputs(msgtext,wt->logfile); + fputs("\n",wt->logfile); + fflush(wt->logfile); + } + return; /* We could do more sophisticated things here */ + } + wt->recursive++; + + if ( msgorigin == (char *) NULL && (wt->warningmode & 0x40) && + wt->aux_function != NULL ) + msgorigin = wt->aux_function(); + + /* Sould the message be printed on the screen (stderr) ? */ + if ( wt->warningmode & 0x01 ) + { + if ( msgno > 0 ) + { + (void) sprintf(enumtext,"%s%d: ",((msglevel>=20)?"E":"W"),msgno); + fputs(enumtext,stderr); + } + if ( msgorigin != (char *) NULL && ( wt->warningmode & 0x08 ) ) + { + fputs(msgorigin,stderr); + fputs(": ",stderr); + } + if ( (wt->warningmode & 0x20) && wt->aux_function != NULL ) + fprintf(stderr,"%s: ",wt->aux_function()); + fputs(msgtext,stderr); + fputs("\n",stderr); + } + + /* Should the warning be written to a file ? */ + if ( wt->warningmode & 0x02 ) + { + if ( wt->logfile == (FILE *) NULL ) + { + if ( wt->logfname == (char *) NULL ) + { + fputs("E0004: No error log file name specified\n",stderr); + wt->warningmode &= ~((int)0x02); + { wt->recursive--; return; } + } + if ( (wt->logfile = fopen(wt->logfname,(wt->warningmode&0x10)?"a":"w")) == + (FILE *) NULL ) + { + fputs("E0001: Error opening log file '",stderr); + fputs(wt->logfname,stderr); + fputs("'.\n",stderr); + /* Disable writing to the logfile */ + wt->warningmode &= ~((int)0x02); + { wt->recursive--; return; } + } + } + + if ( msgno > 0 ) + (void) fprintf(wt->logfile,"%s%04d: ",((msglevel>=20)?"E":"W"),msgno); + if ( msgorigin != (char *) NULL && ( wt->warningmode & 8 ) ) + { + (void) fputs(msgorigin,wt->logfile); + (void) fputs(": ",wt->logfile); + } + if ( (wt->warningmode & 0x20) && wt->aux_function != NULL ) + fprintf(wt->logfile,"%s: ",wt->aux_function()); + (void) fputs(msgtext,wt->logfile); + (void) fputs("\n",wt->logfile); + fflush(wt->logfile); + + if ( ferror(wt->logfile) ) + { + clearerr(wt->logfile); + fputs("E0002: Error writing to log file '",stderr); + fputs(wt->logfname,stderr); + fputs("'.\n",stderr); + /* Disable writing to the logfile if the disk is full. */ + if ( errno == ENOSPC ) + { + fputs("E0005: File system is full. Disabling logging now.\n", + stderr); + wt->warningmode &= ~((int)0x02); + } + } + } + + if ( wt->log_function != NULL && (wt->warningmode & 0x04) ) + (*wt->log_function)(msgtext,msgorigin,msglevel,msgno); + + wt->recursive--; + return; +} + +/* ------------------------ set_warning ------------------------- */ +/** + * @short Set a specific warning level and mode. + * + * @param level Warnings with level below this are ignored. + * @param mode To screen, to file, with user function ... + * + * @return 0 if ok, -1 if level and/or mode could not be set. + * + */ + +int set_warning (int level, int mode) +{ + struct warn_specific_data *wt = get_warn_specific(); + + if ( wt == NULL ) + return -1; + + if ( level != -1 ) /* -1 means: keep the old value */ + wt->warninglevel = level; + if ( mode != -1 ) + wt->warningmode = mode; + return 0; /* So far, always ok */ +} + +int set_default_warning (int level, int mode) +{ + struct warn_specific_data *wt = &warn_defaults; + + if ( wt == NULL ) + return -1; + + if ( level != -1 ) /* -1 means: keep the old value */ + wt->warninglevel = level; + if ( mode != -1 ) + wt->warningmode = mode; + return 0; /* So far, always ok */ +} + +/* --------------------- warning_status ---------------------- */ +/** + * Inquire status of warning settings. + * + * @param plevel Pointer to variable for storing current level. + * @param pmode Pointer to store the current warning mode. + * + * @return (none) + * + */ + +void warning_status (int *plevel, int *pmode) +{ + struct warn_specific_data *wt = get_warn_specific(); + if ( wt == NULL ) + return; + if ( plevel ) + *plevel = wt->warninglevel; + if ( pmode ) + *pmode = wt->warningmode; +} + +/* --------------- set_logging_function ------------- */ +/** + * @short Set user-defined function for logging warnings and errors. + * + * Set a user-defined function as the function to be + * used for logging warnings and errors. + * To enable usage of this function, bit 2 of the + * warning mode must be set and other bits reset, if + * logging to screen and/or disk file is no longer wanted. + * + * @param userfunc Pointer to a function taking two strings + * (the message text and the origin text, + * which may be NULL) and two integers + * (message level and message number). + * + * @return (none) + * +*/ + +void set_logging_function ( void (*user_function) ARGLIST(( + const char *, const char *, int, int)) ) +{ + struct warn_specific_data *wt = get_warn_specific(); + if ( wt == NULL ) + { + Warning("Cannot set logging function"); + return; + } + wt->log_function = user_function; +} + +void set_default_logging_function ( void (*user_function) ARGLIST(( + const char *, const char *, int, int)) ) +{ + struct warn_specific_data *wt = &warn_defaults; + if ( wt == NULL ) + { + Warning("Cannot set logging function"); + return; + } + wt->log_function = user_function; +} + +/* --------------------- set_log_file -------------------- */ +/** + * @short Set a new log file name and save it in local storage. + * + * If there was a log file with a different name opened + * previously, close it. + * + * @param fname New name of log file for warnings + * + * @return 0 (o.k.), -1 (error) + * + */ + +int set_log_file (const char *fname) +{ + struct warn_specific_data *wt = get_warn_specific(); + if ( wt == NULL ) + return -1; + /* No log file? */ + if ( fname == (char *) NULL ) + { + if ( wt->logfile != (FILE *) NULL ) + { + wt->logfname = (char *) NULL; + fclose(wt->logfile); + wt->logfile = (FILE *) NULL; + } + return 0; + } + + /* Is length of name o.k.? */ + if ( strlen(fname) > sizeof(wt->saved_logfname)-1 ) + { + Warning("Log file name is too long."); + return -1; + } + + /* Is this the old log file name again? */ + if ( wt->logfname != (char *) NULL ) + if ( strcmp(fname,wt->logfname) == 0 ) + return 0; + + /* If there was a different log file before, close it. */ + if ( wt->logfile != (FILE *) NULL ) + { + fclose(wt->logfile); + wt->logfile = (FILE *) NULL; + } + + strcpy(wt->saved_logfname,fname); + wt->logfname = wt->saved_logfname; + + return 0; +} + +/* ---------------------- output_text -------------------- */ +/** + * Print a text string (without appending a newline etc.) + * on the screen or send it to a controlling process, depending + * on the setting of the output function. + * + * @param text A text string to be displayed. + * + * @return (none) + * + */ + +void warn_f_output_text (const char *text) +{ + int len; + struct warn_specific_data *wt = get_warn_specific(); + + if ( wt == NULL ) + return ; + + if ( *text == '\0' ) + return; + + if ( wt->output_function == NULL ) + fputs(text,stdout); + else + { + len = strlen(text); + if ( wt->buffered + len + 1 >= sizeof(wt->output_buffer) ) + { + if ( wt->buffered ) + (*wt->output_function)(wt->output_buffer); + wt->output_buffer[0] = '\0'; + wt->buffered = 0; + } + if ( len + 1 >= sizeof(wt->output_buffer) ) + { + (*wt->output_function)(text); + } + else if ( len > 0 ) + { + memcpy((wt->output_buffer+wt->buffered),text,(size_t)len); + wt->buffered += len; + wt->output_buffer[wt->buffered] = '\0'; + } + } +} + +/* ------------------ flush_output ----------------- */ +/** + * @short Flush buffered output. + * Output is flushed, no matter if it is standard output + * or a special output function; + * + * @return (none) + * + */ + +void flush_output () +{ + struct warn_specific_data *wt = get_warn_specific(); + + if ( wt == NULL ) + return ; + + if ( wt->output_function == NULL ) + fflush(stdout); + else if ( wt->buffered ) + (*wt->output_function)(wt->output_buffer); + wt->buffered = 0; +} + +/* --------------- set_output_function ------------- */ +/** + * Set a user-defined function as the function to be used + * for normal text output. Such a function may be used to + * send output back to a remote control process via network. + * + * @param userfunc Pointer to a function taking a string + * (the text to be displayed) as argument. + * + * @return (none) + * +*/ + +void set_output_function ( void (*user_function) ARGLIST((const char *)) ) +{ + struct warn_specific_data *wt = get_warn_specific(); + + if ( wt == NULL ) + return ; + + if ( wt->buffered ) + flush_output(); + wt->output_function = user_function; +} + +void set_default_output_function ( void (*user_function) ARGLIST((const char *)) ) +{ + struct warn_specific_data *wt = &warn_defaults; + + if ( wt == NULL ) + return ; + + if ( wt->buffered ) + flush_output(); + wt->output_function = user_function; +} + +/* --------------------- set_aux_warning_function --------------- */ +/** + * @short Set an auxilliary function for warnings. + * This function may be + * used to insert time and date or origin etc. at the beginning + * of the warning text. + * + * @param auxfunc -- Pointer to a function taking no argument + * and returning a character string. + * + * @return (none) + * + */ + +void set_aux_warning_function ( char *(*auxfunc) ARGLIST((void)) ) +{ + struct warn_specific_data *wt = get_warn_specific(); + + if ( wt == NULL ) + return ; + + wt->aux_function = auxfunc; +} + +void set_default_aux_warning_function ( char *(*auxfunc) ARGLIST((void)) ) +{ + struct warn_specific_data *wt = &warn_defaults; + + if ( wt == NULL ) + return ; + + wt->aux_function = auxfunc; +} Index: trunk/MagicSoft/Simulation/Corsika/Mmcs614/warning.h =================================================================== --- trunk/MagicSoft/Simulation/Corsika/Mmcs614/warning.h (revision 1444) +++ trunk/MagicSoft/Simulation/Corsika/Mmcs614/warning.h (revision 1444) @@ -0,0 +1,45 @@ +#ifndef WARNING_H__LOADED + +#define WARNING_H_LOADED 1 + +#ifdef __cplusplus +extern "C" { +#endif + +void warn_f_warning ARGLIST((const char *text, const char *origin, + int level, int msgno)); +int set_warning ARGLIST((int level, int mode)); +int set_default_warning ARGLIST((int level, int mode)); +void warning_status ARGLIST((int *plevel, int *pmode)); +void set_logging_function ARGLIST(( void (*user_function) ARGLIST(( + const char *, const char *, int, int)) )); +void set_default_logging_function ARGLIST(( void (*user_function) ARGLIST(( + const char *, const char *, int, int)) )); +int set_log_file ARGLIST((const char *fname)); +void warn_f_output_text ARGLIST((const char *text)); +void flush_output ARGLIST((void)); +void set_output_function ARGLIST(( void (*user_function) ARGLIST(( + const char *)) )); +void set_default_output_function ARGLIST(( void (*user_function) ARGLIST(( + const char *)) )); +void set_aux_warning_function ARGLIST(( char *(*auxfunc) ARGLIST(( + void)) )); +void set_default_aux_warning_function ARGLIST(( char *(*auxfunc) ARGLIST(( + void)) )); +char *warn_f_get_message_buffer ARGLIST((void)); + +#ifndef WARNING_ORIGIN +# define WARNING_ORIGIN (char *) NULL +#endif + +#define Information(string) warn_f_warning(string,WARNING_ORIGIN,0,0) +#define Warning(string) warn_f_warning(string,WARNING_ORIGIN,10,0) +#define Error(string) warn_f_warning(string,WARNING_ORIGIN,20,0) + +#define Output(string) warn_f_output_text(string) + +#ifdef __cplusplus +} +#endif + +#endif /* __WARNING_LOADED */