From: git archive service user Date: Sun, 29 Dec 2019 18:05:13 +0000 (+0100) Subject: Initial commit by marcello Galli X-Git-Url: http://legacy.helldragon.eu/gitweb/?a=commitdiff_plain;h=HEAD;p=egs4cyl.git Initial commit by marcello Galli --- 55e7922bcfa7c769c5b6879eae53d0cdf0cea07a diff --git a/LICENSE b/LICENSE new file mode 100644 index 0000000..d144986 --- /dev/null +++ b/LICENSE @@ -0,0 +1,20 @@ +This legacy and unmaintained code should be +considered in the public domain. + +No license was assigned to the software. + +It was developed in the context of a national program +on medical physics by a scientific collaboration +between ENEA and the Bologna University, +and neither can claim the ownership of the code. + +The program includes routines from the EGS4 package, developed at SLAC. +This software is copyrighted by Stanford University and the Canadian government; +it is free for non commercial usage, see: +(http://rcwww.kek.jp/research/egs/egs4_source.html). + + +Reference for the EGS4 package: + W.R. Nelson, H.Hirayama and D.W.O.Roger, + The EGS4 Code System + SLAC Report-265 - December 1985 diff --git a/README.md b/README.md new file mode 100644 index 0000000..d6027cc --- /dev/null +++ b/README.md @@ -0,0 +1,29 @@ +EGS4CYL +======= + +A Code for Montecarlo Simulation of a PET equipment +--------------------------------------------------- + +This is legacy FORTRAN program, written for +VAX VMS machines, it was developed around 1994, in the +framework of the Italian collaboration: *Hirespet*, +for the creation of an high spatial resolution +tomograph. This code was used as a research tool. + +It simulates a simple cylindrical equipment, with +a ring of detectors and was used to estimate +the efficiency of different detector geometries +and scintillation materials, as YAP:Ce. + +The program uses the Higz and Hbook CERN routines for +data visualization, and the EGS4 Montecarlo package. + +This code was more a research tool, than a stable, +"production" software; was only used by a little +group of scientists. + +After some usage for specific tasks, this program +was forgotten. It is saved here as an example of +FORTRAN 77 programming on VAX VMS computer; to be +included in the collection of the +[*Software Heritage*] project (https://www.softwareheritage.org/). diff --git a/code/README.md b/code/README.md new file mode 100644 index 0000000..affb45a --- /dev/null +++ b/code/README.md @@ -0,0 +1,95 @@ +Source code for EGS4CYL +======================= + +The source code for EGS4CYL and the related material +has been divided into different folders: + +- docs: usage instructions, and a scan of an ENEA + internal pubbilcation on the code. + +- exe: the executable code, compiled on a VMS Vax computer + +- input-output: the input to the code was given by some + files, with a rigid syntax. + Some input files are in this folder, along + with some output examples. + +- procedures: some simple interactive or batch procedures where used + to compile and run the program on the VMS machines. + These simple procedure where written in the DCL + language, an interactive shell of the VMS operating system. + +- source: FORTRAN77 files. About eight thousand lines of code, + but some routines have more than a version and about + three thousand lines are from the EGS4 package. + +The EGS4 routines are assembled in an unique file: "egs4funl.for". +User written routines have each its own file. +The "petgraf.for" and "petsub.for" files contain the routines +for graphics, (written by S.Ferriani) other routines +where mostly written by M.Galli. +The main program is in the file: "egs4_cyl_2.for" + +It is interesting to note, in this legacy FORTRAN 77, how some +parts have still the fixed width syntax that was used when the FORTRAN +statements where written using punched cards: a character +in the first column for comments, statements beginning in +column 8 , all uppercase character etc.. Other parts +use the character: "!" for comment (a Vax FORTRAN extension), +lowercase statements and indentation. + +Different coding styles are sometime mixed in the same file: +it is clear that the code was developed using different +tools and editors, in different times and was subject +to many changes. + +This program lives in the transition phase from old FORTRAN +style to new technologies. In the older parts (the EGS4 routines) +we also see an extensive use of the GOTO statement, while +more recent routines use some structured constructs and +indentation. + +Comments are scattered throughout the program without +a clear organization; are essentially personal notes +by the authors, written for themselves, to ease code maintenance. + +This program was born as a research tool, and never reached +the status of a "production" code, as is clearly shown by the +heterogeneous coding style. + +There is an extensive use of COMMONS statements: memory +areas shared by some routines but not by others. +Commons are used here, mainly in the routines by M.Galli, +to *isolate* sections of the program; a practice which became +common much later, with object programming and languages as +C++ and Java. + +The EGS4 package, as used by EGS4CYL, is obsoleted, +but a new version, has been developed: +[*EGSnrc*](https://nrc.canada.ca/en/research-development/products-services/software-applications/egsnrc-software-tool-model-radiation-transport), +with improved accuracy for the particle transport computation and much easier to use. +This new version is distributed under the terms +of the GNU Affero General Public Licence, and available from +[*github*](https://nrc-cnrc.github.io/EGSnrc/) + + +-------------------------------------------- + +Reference for the EGS4 package: + W.R. Nelson, H.Hirayama and D.W.O.Roger, + The EGS4 Code System + SLAC Report-265 - December 1985 + +------------------------------------------ + +Reference for the EGS4CYL program: +(pdf file included in the Docs folder) + +EGS4CYL: + S.Ferriani, M.Galli, D.Bollini + Un Codice per Simulazioni Montecarlo di un Apparato PET ad Alta Risoluzione Spaziale + ENEA Report: RT/INN/95/17 ; ISSN/1120-5571 + +------------------------------------------------- + + diff --git a/code/docs/INN_95_17.pdf b/code/docs/INN_95_17.pdf new file mode 100644 index 0000000..f031976 Binary files /dev/null and b/code/docs/INN_95_17.pdf differ diff --git a/code/docs/egs4cyl.man b/code/docs/egs4cyl.man new file mode 100644 index 0000000..a8cf01b --- /dev/null +++ b/code/docs/egs4cyl.man @@ -0,0 +1,121 @@ + uso di egs4_cyl : egs4 in geometria cilindrica + + Input files: + + 1 - input della geometria : file CYL.DAT , logical unit ltydat=7 + + scheda formato contenuto + + 1 * NCASES ICHAR INIREG EKIN + NCASES = numero storie + ICHAR = -1 per elettroni + = 1 per positroni + INIREG = regione della sorgente + EKIN = E cinetica iniziale ( Mev) + + 2 * ITCTS ISTSEED ISTARTSEED + ogni ITCTX storie stampa informazioni + ISTSEED = numero storia iniziale, + se ISTSEED.NE.0 parte col seed ISTARTSEED + ISTARTSEED = seed iniziale + + 3 * NMED + NMED= numero materiali + 4:NMED schede 24A1 MEDIA + nome del materiale + 5:NMED schede * MAT PCUT ECUT + MAT = numero del materiale + PCUT= E di inf. cutoff per fotoni + ECUT= E di inf. cutoff per elettroni + nel materiale ( Mev ) + 6 * NCYL ZMAX + NCYL= numero cilindri + ZMAX= meta altezza cilindro ( cm ) + 7:NCYL schede * RTHICK INDMAT + RTHICK= spessore del cilindro + INDMAT= numero del materiale del cilindro + + + 2 - input specifiche istogrammi : file HIST_CYL.DAT , unit ltyfil=9 + + scheda formato contenuto + 1 * ID NCHX XMIN XMAX VALMAX + (parametri da passare ad hbook) + ID = numero istogramma + NCHX = numero canali + XMIN = valore del canale minimo + XMAX = valore del canale massimo + VALMAX = 0 (num.bits. usati da hbook + per ogni canale ) + 2 A80 TITLE + titolo istogramma + + si mette una scheda tipo 1 ed una tipo 2 per ogni istogramma + monodimensionale, segue una scheda tipo 1 con ID=0, seguono le + specifiche degli istogrammi bidimensionali: + + 3 * ID NCHX XMIN XMAX NCHY YMIN YMAX VALMAX + sono parametri per hbook, analoghi al + caso unidimensionale, NCHX e' il numero + di canali in X, NCHY i canali in Y e cosi via. + + 4 A80 TITLE + titolo dell'istogramma + + una scheda tipo 3 con ID=0 conclude l'input + + + 3 - input materiali (da pegs4 ) : file MAT3MEV.DAT , unit 12 + + 4 - input da terminale unit ltyin=5 + + Output files: + + 1 - output text : file OUT.DAT , unit ltyhis=10 + + 2 - lista materiali usati : file HATCH.OUT , unit 8 + + 3 - istogrammi per hbook : file HBOOK.OUT , unit hislun=20 + + 4 - traiettorie particell : file PARTICLES.OUT , unit 50 + + 4 - output su terminale unit ltyout=6 + + + Fortran files: + + 1 - egs4_cyl.for main program + + 1-a comm_cyl.for commons included in main program + 1-b doublede.for included in main, now void + + 2 - init_cyl.for inizializza logical unit numbers + legge num. storie, seed etc. + legge i materiali da ltyout=7 + legge la geometria da ltyout=7 + + 3 - istin_cyl.for apre la unit hislun=20, output ad + accesso diretto per Hbook + legge specifiche istogrammi da produrre + da ltyhis=10 + + 4 - source_cyl.for sorgente, genera positroni nell'origine, + con distribuzione isotropa + + 5 - howfar_cyl.for routine geometrica: + calcolo zona in cui sono le particelle + + 6 - ausgabe_cyl.for prepara istogrammi per Hbook di PAW + ( va modificata se si decide di fare + istogrammi di diverso tipo ) + + 7 - statend_cyl.for statistiche finali del run + + + File da concatenare nel link: + + 1 - egs4funl.for egs4 subroutines + + 2 - cern$library: packlib librerie del CERN + genlib + kernlib diff --git a/code/docs/istruzioni_cyl_2.txt b/code/docs/istruzioni_cyl_2.txt new file mode 100644 index 0000000..4d547a7 --- /dev/null +++ b/code/docs/istruzioni_cyl_2.txt @@ -0,0 +1,257 @@ + istruzioni per portare questo egs4 cilindrico da una macchina + all'altra: + + necessarie: + 1) routines del CERN : paw,hbook,hplot , etc... + 2) GKS ( per l'interfaccia grafica interattiva ) + il programma links con quella dec , in + sys$common:[syslib]gksforbnd.olb + oppure quelle cern: cern:[pro.lib]grafgks.olb + + 3) le routines fortran che costituiscono il programma: + + comm_cyltot_2.for : i common inclusi nelle routine in compilazione + comm_cyl_2.for : solo alcuni dei commons + comm_yaps.for : commons con specifiche dei rivelatori + + egs4_cyl_2 : il main + init_cyl_2 : inizializza e legge l'input + yaps : input con specifiche dei rivelatori + histin_cyl_2: legge le specifiche degli istogrammi prodotti per paw + su file zebra ad accesso diretto + source_cyl_2 : sorgente + howfar_cyl_2a : howfar + howyaps : parte di howfar che riguarda i rivelatori + ausgabe_cyl_2 : ausgabe + statend_cyl_2 : statistiche finali + + pg_comm.for : common per la grafica interattiva + guarda_2.for : routine per la grafica interattiva + petsub.for : interfacce a routine grafiche da higz, + ( nella libreria petgra.olb su vax vms) + petgracom.for : common incluso in petsub.for + pglib.olb : moduli da higz + (se si linka colla cern:[pro.lib]graflib.olb non servono ) + + egs4funl.for : tutte le altre routines dell' EGS4 + +4) il file di input con le specifiche dei materiali, prodotto da + PEGS4 : mat3mev.dat + + un file di input generale : cyl_2.dat + un file di input con le specifiche degli istogrammi : hist_cyl_2.dat + un file di input con la descrizione dei rivelatori : yaps.dat + + In caso si modifichi il numero ed il tipo di istogrammi prodotti + occorre stare attenti al fatto che l'identificatore di alcuni + istogrammi e certi parametri delle n-tuple sono fissi nelle + routines ausgab e egs4_cyl_2, per cui occorre modificare le routines, + non solo il file di input + +5) La procedura : for_cyl_2.com fa la compilazione di tutte le routines + ( escluse egs4funl, petsub ; che sono compilate una volta per tutte ) + +6) La procedura : link_cyl_2.com fa il link. + la versione per alfa vms e' diversa da quella per vax vms, e chiama + la procedura definizioni.com + +7) La procedura : run_cyl_2.com definisce le unita di i/o e fa il run + +seguono le procedure stesse, in versione VAX VMS ( alla data del 7-sept-1994) + +--------------------------- + FOR_CYL_2 +--------------------------- +$wr="write sys$output" +$wr " Compilation of user written routines for egs4: cyl. geometry" +$wr " con anche i rivelatori. +$wr " Questa variante include routines grafiche interattive " +$wr " Ed anche le n-tuple su unit 21 " +$! +$ if P1.eqs."DEBUG" +$ then +$ FOR:=FOR/DEBUG/NOOPT +$ endif +$wr " compiling egs4_cyl_2 ..." +$ for/nolist egs4_cyl_2 +$wr " compiling init_cyl_2 ..." +$ for/nolist init_cyl_2 +$wr " compiling histin_cyl_2 ..." +$ for/nolist histin_cyl_2 +$wr " compiling source_cyl_2 ..." +$ for/nolist source_cyl_2 +$wr " compiling howfar_cyl_2a ..." +$ for/nolist howfar_cyl_2a +$wr " compiling ausgabe_cyl_2 ..." +$ for/nolist ausgabe_cyl_2 +$wr " compiling statend_cyl_2 ..." +$ for/nolist statend_cyl_2 +$wr " all including: comm_cyltot_2.for" +$wr " comm_yaps.for" +$wr " compiling guarda_2.for" +$wr " including: pg_comm.for" +$wr " comm_cyl_2.for" +$ for/nolist guarda_2 +$wr " compiling yaps.for ..." +$ for/nolist yaps +$wr " compilink howyaps.for .." +$ for/nolist howyaps +$wr " including: comm_yaps.for" +$wr "" +$wr " compilation ended :" +$dir *.obj +--------------------------------------------- + +--------------------------- +LINK_CYL_2 +--------------------------- +$IF P1 .eqs. "DEBUG" then LINK:=LINK/DEBUG +$wr:=write sys$output +$wr " linking egs4 routiines for cyl. geom." +$wr " including interactive plots" +$wr " ed n-tuple" +$! +$! define egs4f$disk sys$sysdevice:[galli.egs4] +$! define pgsub sys$sysdevice:[galli.pg]petsub.obj ! interface to higz +$! define pglib sys$sysdevice:[galli.pg]petgra.olb ! some higz routines +$! define lib$ cern$library:packlib/lib,- +$! cern$library:genlib/lib,- questa non e' usata +$! cern$library:kernlib/lib +$ define gksbnd sys$common:[syslib]gksforbnd.olb !DecGKS fortran interface +$! +$write sys$output " linking all ..." +$ cernlib +$ link/nomap egs4_cyl_2,init_cyl_2,yaps,- + histin_cyl_2,source_cyl_2,- + guarda_2,- + howfar_cyl_2a,howyaps,ausgabe_cyl_2,- + statend_cyl_2,- + egs4funl,- + pgsub,pglib/lib, - + gksbnd/lib, - + 'lib$' +$ write sys$output " done ..." +$ dir *.exe +------------------------------------ + +--------------------------- +RUN_CYL_2 +--------------------------- +$Wr:=write sys$output +$!wr " running egs4 cyl. geometry, IF P2.EQS. PATHS prints particles path" +$wr " IF P1.eqs. "" "" nodebug" +$WR " version egs4_cyl_2 including interactive plotting" +$wr " ed n-tuple e rivelatori " +$! +$ if P1 .eqs. "" +$then +$ P1="NODEBUG" +$else +$ P1="DEBUG" +$endif +$ write sys$output " now running egs4_cyl_2 ..." +$define materiali bofi04$dkb100:[galli.egs4]mat3mev.dat +$! for005 ! terminal input +$! for006 ! terminal output +$assign/user cyl_2.dat for007 ! geometry input +$assign/user yaps.dat for013 ! geometria rivelatori +$assign/user hatch.out for008 ! egs4 mateiral out list +$assign/user hist_cyl_2.dat for009 ! histogram input +$!assign/user hist_cyl_2dum.dat for009 ! histogram input +$assign/user cyl.out for010 ! output +$! for011 ! ps metafile for plots +$assign/user materiali for012 ! mat library +$assign/user hbook.out for020 ! hbook output +$assign/user ntuple.out for021 ! hbook output +$assign/user ntupley.out for022 ! hbook output +$! if P2 .eqs. "PATHS" +$! then +$ assign/user particles.out for050 ! particle's path (for test) +$! else +$! assign/user nl: for050 ! no particle's path +$! endif +$assign/user sys$command sys$input ! user input from terminal +$run/'P1' egs4_cyl_2 +$write sys$output " run ended ......" +$write sys$output " printed output in: CYL.OUT " +$write sys$output " hatch output in: HATCH.OUT " +$write sys$output " HBOOK output in: HBOOK.OUT " +$write sys$output " Ntuple output in: ntuple.OUT " +$if P2.eqs."PATHS" then write sys$output " particles paths in: PARTICLES.OUT " +$exit + +-------------------------------------------------------- +procedura per le definizioni specifiche per l'alpha boal01 + +------------------------- +DEFINIZIONI.COM +------------------------- +$! definizioni per l'alfa ( sono nella login in bofi04 ) +$ +$! per il link di egs4_cyl_2 : +$ define pgsub petsub.obj ! interfacce ad higz +$ define pglib cern:[pro.lib]graflib.olb ! routine grafiche cern +$! define gksbnd sys$common:[syslib]gksforbnd.olb ! dec gks fortran interfaces +$ define gksbnd cern:[pro.lib]GRAFGKS.OLB +$! per il run +$ define materiali mat3mev.dat ! materiali da pegs4 +$! +-------------------------------------------------------- + +procedura per il link sull'alfa doal01 + +------------------------- +LINK_CYL_2_ALPHA.COM +------------------------- +$IF P1 .eqs. "DEBUG" then LINK:=LINK/DEBUG +$wr:=write sys$output +$wr " linking egs4 routiines for cyl. geom." +$wr " including interactive plots" +$wr " ed n-tuple" +$! +$! define egs4f$disk sys$sysdevice:[galli.egs4] +$! define pgsub sys$sysdevice:[galli.pg]petsub.obj ! interface to higz +$! define pglib sys$sysdevice:[galli.pg]petgra.olb ! some higz routines +$! define lib$ cern$library:packlib/lib,- +$! cern$library:genlib/lib,- questa non e' usata +$! cern$library:kernlib/lib +$! define gksbnd sys$common:[syslib]gksforbnd.olb !DecGKS fortran interface +$! +$@definizioni ! definizioni specifiche per l'alfa eboal1 +$! +$write sys$output " linking all ..." +$ cernlib +$ link/nomap egs4_cyl_2,init_cyl_2,yaps,- + histin_cyl_2,source_cyl_2,- + guarda_2,- + howfar_cyl_2a,howyaps,ausgabe_cyl_2,- + statend_cyl_2,- + egs4funl,- + pgsub,- + 'lib$',- + cern:[pro.lib]packlib/lib,graflib/lib,grafx11/lib,grafx11/opt,- + packlib/lib,kernlib/lib + +$ write sys$output " done ..." +$ dir *.exe +$ exit +$! +$! --------------- sotto il link usato per bofi04 : DEC VMS : +$ link/nomap egs4_cyl_2,init_cyl_2,yaps,- + histin_cyl_2,source_cyl_2,- + guarda_2,- + howfar_cyl_2a,howyaps,ausgabe_cyl_2,- + statend_cyl_2,- + egs4funl,- + pgsub,pglib/lib, - + gksbnd/lib, - + 'lib$' + +$ write sys$output " done ..." +$ dir *.exe +-------------------------------------- + +ALTRE PROCEDURE di uso generale sono copy04.com e copyal2.com, che +copiano le routine da una macchina all'altra per tenere allineate le +versioni del programma sulle 2 macchine +-------------------------------- diff --git a/code/exe/egs4_cyl_2.exe b/code/exe/egs4_cyl_2.exe new file mode 100644 index 0000000..b860408 Binary files /dev/null and b/code/exe/egs4_cyl_2.exe differ diff --git a/code/input-output/cyl.out b/code/input-output/cyl.out new file mode 100644 index 0000000..2e2cb85 --- /dev/null +++ b/code/input-output/cyl.out @@ -0,0 +1,1667 @@ +1 + ............................................................................................................................. + . . + . HBOOK HBOOK CERN VERSION 4.21 HISTOGRAM AND PLOT INDEX 18/09/94 . + . . + ............................................................................................................................. + . . + . NO TITLE ID B/C ENTRIES DIM NCHA LOWER UPPER ADDRESS LENGTH . + . . + ............................................................................................................................. + . . + . . + . 1 Zona 1 : aria r=10cm : Distribuzione en 101 32 336 1 X 100 -0.100E+02 0.100E+02 989926 159 . + . ergia ceduta lungo l' asse z . + . . + . 2 Zona 2 : aria r=1cm : Distribuzione e 102 32 132 1 X 100 -0.100E+02 0.100E+02 989764 160 . + . nergia ceduta lungo l' asse z . + . . + . 3 Zona 3 : aria : Distribuzione ene 103 32 597 1 X 100 -0.100E+02 0.100E+02 989603 159 . + . rgia ceduta lungo l' asse z . + . . + . 4 Zona 4 : YAP 1 : Distribuzione prof 104 32 32859 1 X 100 -0.100E+02 0.100E+02 989443 158 . + . ondita energia ceduta . + . . + . 5 Zona 5 : YAP 2 : Distribuzione prof 105 32 49567 1 X 100 -0.100E+02 0.100E+02 989283 158 . + . ondita energia ceduta . + . . + . 6 Zona 6 : YAP 3 : Distribuzione prof 106 32 38015 1 X 100 -0.100E+02 0.100E+02 989123 158 . + . ondita energia ceduta . + . . + . 7 Zona 7 : YAP 4 : Distribuzione prof 107 32 35163 1 X 100 -0.100E+02 0.100E+02 988963 158 . + . ondita energia ceduta . + . . + . 8 Zona 8 : fughe : Distribuzione prof 108 32 210 1 X 100 -0.100E+02 0.100E+02 988803 158 . + . ondita energia ceduta . + . . + . 9 Zona 9 : assorbimenti da parte dei coll 109 32 0 1 X 100 -0.100E+02 0.100E+02 988647 154 . + . imatori . + . . + . 10 Zona 10 : uscite dai rivelatori 110 32 0 1 X 100 -0.100E+02 0.100E+02 988495 150 . + . . + . . + . 11 DISTRIBUZIONE ANGOLO DECADIMENTO POSITR 501 32 69 1 X 72 0.000E+00 0.628E+01 988340 125 . + . ONI . + . . + . 12 Zona 1 : Aria r=10cm : Distribuzione en 201 32 336 2 X 60 -0.300E+02 0.300E+02 988205 3903 . + . ergia ceduta nel piano x-y Y 60 -0.300E+02 0.300E+02 984340 3856 . + . . + . 13 Zona 2 : Aria r=1cm : Distribuzione ene 202 32 132 2 X 60 -0.300E+02 0.300E+02 984300 3903 . + . rgia ceduta nel piano x-y Y 60 -0.300E+02 0.300E+02 980435 3856 . + . . + . 14 Zona 3 : Aria Distribuzione energia ced 203 32 597 2 X 60 -0.300E+02 0.300E+02 980397 3901 . + . uta nel piano x-y Y 60 -0.300E+02 0.300E+02 976532 3856 . + . . + . 15 Zona 4 : YAP 1 Distribuzione energia ce 204 32 32859 2 X 60 -0.300E+02 0.300E+02 976493 3902 . + . duta nel piano del yap Y 60 -0.300E+02 0.300E+02 972628 3856 . + . . + . 16 Zona 5 : YAP 2 Distribuzione energia ce 205 32 49567 2 X 60 -0.300E+02 0.300E+02 972589 3902 . + . duta nel piano del yap Y 60 -0.300E+02 0.300E+02 968724 3856 . + . . + . 17 Zona 6 : YAP 3 Distribuzione energia ce 206 32 38015 2 X 60 -0.300E+02 0.300E+02 968685 3902 . + . duta nel piano del yap Y 60 -0.300E+02 0.300E+02 964820 3856 . + . . + . 18 Zona 7 : YAP 4 Distribuzione energia ce 207 32 35163 2 X 60 -0.300E+02 0.300E+02 964781 3902 . + . duta nel piano del yap Y 60 -0.300E+02 0.300E+02 960916 3856 . + . . + . 19 Zona 8 : fughe dal sistema : distribuzi 208 32 210 2 X 60 -0.300E+02 0.300E+02 960880 3899 . + . one in x-y Y 60 -0.300E+02 0.300E+02 957015 3856 . + . . + . 20 Zona 9 : assorbimento dei collimatori d 209 32 0 2 X 60 -0.300E+02 0.300E+02 956980 3898 . + . istr x-y Y 60 -0.300E+02 0.300E+02 953115 3856 . + . . + . 21 Zona 10 : uscite dai rivelatori 210 32 0 2 X 60 -0.300E+02 0.300E+02 953084 3894 . + . Y 60 -0.300E+02 0.300E+02 949219 3856 . + . . + . 22 DISTRIBUZIONE R-Z , PESATA SU ENERGIA - 700 32 156879 2 X 30 0.000E+00 0.300E+02 949185 757 . + . - Y 20 -0.100E+02 0.100E+02 948460 716 . + . . + . 23 DISTRIBUZIONE x-y , PESATA SU ENERGIA - 701 32 156879 2 X 60 -0.300E+02 0.300E+02 948426 3897 . + . - Y 60 -0.300E+02 0.300E+02 944561 3856 . + . . + . 24 DISTRIBUZIONE X-Y PUNTI DECADIMENTO POS 400 32 69 2 X 60 -0.300E+02 0.300E+02 944526 3898 . + . ITRONE Y 60 -0.300E+02 0.300E+02 940661 3856 . + . . + . 25 DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPO 401 32 69 2 X 30 0.000E+00 0.300E+02 940626 758 . + . SITRONE Y 20 -0.100E+02 0.100E+02 939901 716 . + . . + . 26 x,y,z punti decadimento del positrone 800 N 939842 47 . + . . + . . + . 27 energia persa nei rivelatori a ogni eve 801 N 939699 74 . + . nto . + . . + ............................................................................................................................. + + + + MEMORY UTILISATION + + MAXIMUM TOTAL SIZE OF COMMON /PAWC/ 1000000 +1 Zona 1 : aria r=10cm : Distribuzione energia ceduta lungo l' asse z + + HBOOK ID = 101 DATE 18/09/94 NO = 1 + + 2.25 - + 2.2 I + 2.15 I + 2.1 I + 2.05 I + 2 I + 1.95 I + 1.9 I + 1.85 I + 1.8 I + 1.75 I + 1.7 I + 1.65 I + 1.6 I + 1.55 I + 1.5 I + 1.45 I + 1.4 I + 1.35 I + 1.3 I + 1.25 I + 1.2 I + 1.15 I + 1.1 I + 1.05 I + 1 I + .95 I + .9 I + .85 I + .8 I + .75 I + .7 I + .65 -I + .6 II + .55 II + .5 II + .45 II + .4 II + .35 II + .3 II + .25 II + .2 II + .15 II + .1 - II + .05 - ----I ------II-- ----- - + + CHANNELS 100 0 1 + 10 0 1 2 3 4 5 6 7 8 9 0 + 1 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 + + CONTENTS 1. 2 + 0 0000000000000000000000000000000000000000000000000620000000000000000000000000000000000000000000000000 + 0 0000000000000000000000000200000000001111600313242310201101000000000000000000000000000000000000000000 + 0 0000000000000000000000000400000000000067300096871745207072308000000000000000000000000000000000000000 + 0 0000000000000000000000000300000000008094300760145633205431506000000000000000000000000000000000000000 + + LOW-EDGE --------------------------------------------------- + 10 1 + 1. 0999998888877777666665555544444333332222211111 111112222233333444445555566666777778888899999 + 0 0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468 + + * ENTRIES = 336 * ALL CHANNELS = 0.3265E+01 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.2000E+00 * MEAN VALUE =-0.8069E-01 * R . M . S = 0.6500E+00 +1 Zona 2 : aria r=1cm : Distribuzione energia ceduta lungo l' asse z + + HBOOK ID = 102 DATE 18/09/94 NO = 2 + + 4 - + 3.9 I + 3.8 I + 3.7 I + 3.6 I + 3.5 - I + 3.4 I I + 3.3 I I + 3.2 I I + 3.1 I I + 3 I I + 2.9 I I + 2.8 I I + 2.7 - -I I + 2.6 I II I + 2.5 I II I + 2.4 I II I + 2.3 I - II - I + 2.2 I I II I I + 2.1 I I II I I + 2 I I II I I + 1.9 I I II I I + 1.8 I I II I I + 1.7 I I II I I + 1.6 I I II I I + 1.5 I I II I I + 1.4 I I II I I + 1.3 I I II I I + 1.2 I I II - I I + 1.1 I I II I - I I + 1 I I II I I I I + .9 - I I - II I I -I I + .8 I I I I II I -I II I + .7 I I I- - I II-I II II I + .6 I - --I II -I I I I -II II-I + .5 I I I I II II -I I I I I I I + .4 I -I I I- II----- II- II I I I I -I I + .3 I II I I I I I I II I I I I I I - + .2 I--II--I I I I--- I I-II I I-I I I I-I- + .1 --I I I I I I I I I I- + + CHANNELS 100 0 1 + 10 0 1 2 3 4 5 6 7 8 9 0 + 1 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 + + CONTENTS 1. 2 2 23 1 1 2 3 + *10** 2 0 0000000000000000000000000008113511556302633333111056314806461157003825912100000000000000000000000000 + 0 0000000000000000000000000591775066204204633222656006268204263655603632076930000000000000000000000000 + 0 0000000000000000000000000307566867013806320623391001503406138436605651197690000000000000000000000000 + 0 0000000000000000000000000438258329324405991718899023280005071667600039090030000000000000000000000000 + + LOW-EDGE --------------------------------------------------- + 10 1 + 1. 0999998888877777666665555544444333332222211111 111112222233333444445555566666777778888899999 + 0 0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468 + + * ENTRIES = 132 * ALL CHANNELS = 0.3344E+00 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.2000E+00 * MEAN VALUE = 0.7802E+00 * R . M . S = 0.2700E+01 +1 Zona 3 : aria : Distribuzione energia ceduta lungo l' asse z + + HBOOK ID = 103 DATE 18/09/94 NO = 3 + + 6.8 - + 6.6 I + 6.4 I + 6.2 I - + 6 I I + 5.8 I I + 5.6 I I + 5.4 I I + 5.2 I I + 5 I I + 4.8 I I + 4.6 I I + 4.4 I I + 4.2 I I + 4 I I + 3.8 I I + 3.6 I I + 3.4 I I + 3.2 I I + 3 I I + 2.8 I I + 2.6 I I + 2.4 I I + 2.2 I I + 2 I I + 1.8 I I + 1.6 I I + 1.4 I I + 1.2 I I + 1 I I + .8 I I + .6 I I + .4 - - - I-- -- I + .2 -- -I I-- --I I I-----II-----------------------------------------I- -------------------- + + CHANNELS 100 0 1 + 10 0 1 2 3 4 5 6 7 8 9 0 + 1 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 + + CONTENTS 1. 6 6 + 0 1100200002000000000200006230110022000000100000000000000000000000000000010001000000001000100000100000 + 0 9401300001160000092500003143033166853238048355337468692526038454319284544378100401001264311010187070 + 0 1309000002380000068800008908161650799040424664753880859123305490619755814288000736627198650776708660 + 0 6801800007350000094000003631417092036486076744034817413122880624109059287628100517906400792279488000 + + LOW-EDGE --------------------------------------------------- + 10 1 + 1. 0999998888877777666665555544444333332222211111 111112222233333444445555566666777778888899999 + 0 0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468 + + * ENTRIES = 597 * ALL CHANNELS = 0.1869E+02 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.2000E+00 * MEAN VALUE =-0.4880E+00 * R . M . S = 0.5248E+01 +1 Zona 4 : YAP 1 : Distribuzione profondita energia ceduta + + HBOOK ID = 104 DATE 18/09/94 NO = 4 + + 19.5 - + 19 I + 18.5 I + 18 I + 17.5 I + 17 I + 16.5 I + 16 I + 15.5 I + 15 I + 14.5 I + 14 I + 13.5 I + 13 I + 12.5 I + 12 I + 11.5 I + 11 I + 10.5 I + 10 I + 9.5 I + 9 I + 8.5 I + 8 I + 7.5 I + 7 I + 6.5 I + 6 I + 5.5 I + 5 I + 4.5 I + 4 I + 3.5 I + 3 I- + 2.5 II + 2 II + 1.5 II- + 1 I I - + .5 -I I -I- + + CHANNELS 100 0 1 + 10 0 1 2 3 4 5 6 7 8 9 0 + 1 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 + + CONTENTS 10 1 + 1. 921 + 0 0000000000000000000000000153005400000000000000000000000000000000000000000000000000000000000000000000 + 0 0000000000000000000000000105071300000000000000000000000000000000000000000000000000000000000000000000 + 0 0000000000000000000000004744061500000000000000000000000000000000000000000000000000000000000000000000 + + LOW-EDGE --------------------------------------------------- + 10 1 + 1. 0999998888877777666665555544444333332222211111 111112222233333444445555566666777778888899999 + 0 0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468 + + * ENTRIES = 32859 * ALL CHANNELS = 0.2400E+02 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.2000E+00 * MEAN VALUE =-0.4811E+01 * R . M . S = 0.2339E+00 +1 Zona 5 : YAP 2 : Distribuzione profondita energia ceduta + + HBOOK ID = 105 DATE 18/09/94 NO = 5 + + 29 - + 28 I + 27 I + 26 I + 25 I + 24 I + 23 I + 22 I + 21 I + 20 I + 19 I + 18 I + 17 I + 16 I + 15 I + 14 I + 13 I + 12 I + 11 I + 10 I + 9 I + 8 I + 7 I + 6 I + 5 I + 4 I + 3 I-- + 2 I I- + 1 -I I- - + + CHANNELS 100 0 1 + 10 0 1 2 3 4 5 6 7 8 9 0 + 1 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 + + CONTENTS 10 2 + 1. 8221 + 0 0000000000000000000000000195360050000000000000000000000000000000000000000000000000000000000000000000 + 0 0000000000000000000000000073490010000000000000000000000000000000000000000000000000000000000000000000 + 0 0000000000000000000000002475770010000000000000000000000000000000000000000000000000000000000000000000 + + LOW-EDGE --------------------------------------------------- + 10 1 + 1. 0999998888877777666665555544444333332222211111 111112222233333444445555566666777778888899999 + 0 0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468 + + * ENTRIES = 49567 * ALL CHANNELS = 0.3617E+02 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.2000E+00 * MEAN VALUE =-0.4798E+01 * R . M . S = 0.2398E+00 +1 Zona 6 : YAP 3 : Distribuzione profondita energia ceduta + + HBOOK ID = 106 DATE 18/09/94 NO = 6 + + 25 - + 24 I + 23 I + 22 I + 21 I + 20 I + 19 I + 18 I + 17 I + 16 I + 15 I + 14 I + 13 I + 12 I + 11 I + 10 I + 9 I + 8 I + 7 I + 6 I + 5 I + 4 I + 3 I - + 2 I-I + 1 -I I - --- + + CHANNELS 100 0 1 + 10 0 1 2 3 4 5 6 7 8 9 0 + 1 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 + + CONTENTS 10 2 + 1. 412 + 0 0000000000000000000000000101090001110000000000000000000000000000000000000000000000000000000000000000 + 0 0000000000000000000000000226000004790000000000000000000000000000000000000000000000000000000000000000 + 0 0000000000000000000000003224020005070000000000000000000000000000000000000000000000000000000000000000 + + LOW-EDGE --------------------------------------------------- + 10 1 + 1. 0999998888877777666665555544444333332222211111 111112222233333444445555566666777778888899999 + 0 0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468 + + * ENTRIES = 38015 * ALL CHANNELS = 0.2872E+02 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.2000E+00 * MEAN VALUE =-0.4805E+01 * R . M . S = 0.2899E+00 +1 Zona 7 : YAP 4 : Distribuzione profondita energia ceduta + + HBOOK ID = 107 DATE 18/09/94 NO = 7 + + 22.5 - + 22 I + 21.5 I + 21 I + 20.5 I + 20 I + 19.5 I + 19 I + 18.5 I + 18 I + 17.5 I + 17 I + 16.5 I + 16 I + 15.5 I + 15 I + 14.5 I + 14 I + 13.5 I + 13 I + 12.5 I + 12 I + 11.5 I + 11 I + 10.5 I + 10 I + 9.5 I + 9 I + 8.5 I + 8 I + 7.5 I + 7 I + 6.5 I + 6 I + 5.5 I + 5 I + 4.5 I + 4 I + 3.5 I + 3 I + 2.5 I - + 2 I I + 1.5 I-I + 1 I I-- + .5 -I I + + CHANNELS 100 0 1 + 10 0 1 2 3 4 5 6 7 8 9 0 + 1 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 + + CONTENTS 10 2 + 1. 212 + 0 0000000000000000000000000231950000000000000000000000000000000000000000000000000000000000000000000000 + 0 0000000000000000000000000860710000000000000000000000000000000000000000000000000000000000000000000000 + 0 0000000000000000000000008553910000000000000000000000000000000000000000000000000000000000000000000000 + + LOW-EDGE --------------------------------------------------- + 10 1 + 1. 0999998888877777666665555544444333332222211111 111112222233333444445555566666777778888899999 + 0 0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468 + + * ENTRIES = 35163 * ALL CHANNELS = 0.2725E+02 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.2000E+00 * MEAN VALUE =-0.4823E+01 * R . M . S = 0.1825E+00 +1 Zona 8 : fughe : Distribuzione profondita energia ceduta + + HBOOK ID = 108 DATE 18/09/94 NO = 8 + + 1.52 - + 1.48 I + 1.44 I + 1.4 I + 1.36 I + 1.32 I + 1.28 I + 1.24 I + 1.2 I + 1.16 I + 1.12 I + 1.08 I + 1.04 I + 1 I + .96 I + .92 I + .88 I + .84 I + .8 I + .76 I + .72 I + .68 I + .64 I + .6 I + .56 I + .52 - I + .48 I I + .44 I I + .4 I I + .36 I I + .32 I I + .28 I I + .24 I I + .2 I I + .16 I I + .12 I I + .08 I I + .04 I I + + CHANNELS 100 0 1 + 10 0 1 2 3 4 5 6 7 8 9 0 + 1 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 + + CONTENTS 1. 1 + 0 0000000000000000000000000000000000000000005000000000004000000000000000000000000000000000000000000000 + 0 0000000000000000000000000000000000000000001000000000008000000000000000000000000000000000000000000000 + 0 0000000000000000000000000000000000000000001000000000006000000000000000000000000000000000000000000000 + 0 0000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000 + + LOW-EDGE --------------------------------------------------- + 10 1 + 1. 0999998888877777666665555544444333332222211111 111112222233333444445555566666777778888899999 + 0 0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468 + + * ENTRIES = 210 * ALL CHANNELS = 0.1997E+01 * UNDERFLOW = 0.1354E+03 * OVERFLOW = 0.1286E+03 + * BIN WID = 0.2000E+00 * MEAN VALUE = 0.2859E+00 * R . M . S = 0.1047E+01 + + ****** HBOOK NO ENTRIES FOR HISTOGRAM ID= 109 + + ****** HBOOK NO ENTRIES FOR HISTOGRAM ID= 110 +1 DISTRIBUZIONE ANGOLO DECADIMENTO POSITRONI + + HBOOK ID = 501 DATE 18/09/94 NO = 11 + + 70 + 68 - + 66 I + 64 I + 62 I + 60 I + 58 I + 56 I + 54 I + 52 I + 50 I + 48 I + 46 I + 44 I + 42 I + 40 I + 38 I + 36 I + 34 I + 32 I + 30 I + 28 I + 26 I + 24 I + 22 I + 20 I + 18 I + 16 I + 14 I + 12 I + 10 I + 8 I + 6 I + 4 I + 2 - I + + CHANNELS 10 0 1 2 3 4 5 6 7 + 1 123456789012345678901234567890123456789012345678901234567890123456789012 + + CONTENTS 10 6 + 1. 1 8 + + LOW-EDGE 1. 111111111112222222222223333333333344444444444455555555555666 + 0 001234566789012334567890012345677890123445678900123456778901234456789011 + 0 087643219875432098754310986542109765421087653219876432198754320986543109 + 0 074186307529631852074186307529631852074186307529631852074186307529631852 + 0 024791368024791368024791368024791368024791368024791368024791368024791368 + + * ENTRIES = 69 * ALL CHANNELS = 0.6900E+02 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.8722E-01 * MEAN VALUE = 0.3170E+01 * R . M . S = 0.1147E+00 +1 Zona 1 : Aria r=10cm : Distribuzione energia ceduta nel piano x-y + + HBOOK ID = 201 DATE 18/09/94 NO = 12 + + CHANNELS 10 U 0 1 2 3 4 5 6 O + 1 N 123456789012345678901234567890123456789012345678901234567890 V + ******************************************************************** + OVE * * OVE + 29 * * 60 + 28 * * 59 + 27 * * 58 + 26 * * 57 + 25 * * 56 + 24 * * 55 + 23 * * 54 + 22 * * 53 + 21 * * 52 + 20 * * 51 + 19 * * 50 + 18 * * 49 + 17 * * 48 + 16 * * 47 + 15 * * 46 + 14 * * 45 + 13 * * 44 + 12 * * 43 + 11 * * 42 + 10 * * 41 + 9 * .. . * 40 + 8 * . * 39 + 7 * * 38 + 6 * . * 37 + 5 * * 36 + 4 * * 35 + 3 * . * 34 + 2 * * 33 + 1 * * 32 + * .+ . * 31 + - 1 * . .... . * 30 + - 2 * . * 29 + - 3 * .. * 28 + - 4 * . * 27 + - 5 * * 26 + - 6 * * 25 + - 7 * * 24 + - 8 * . * 23 + - 9 * * 22 + - 10 * * 21 + - 11 * * 20 + - 12 * * 19 + - 13 * * 18 + - 14 * * 17 + - 15 * * 16 + - 16 * * 15 + - 17 * * 14 + - 18 * * 13 + - 19 * * 12 + - 20 * * 11 + - 21 * * 10 + - 22 * * 9 + - 23 * * 8 + - 24 * * 7 + - 25 * * 6 + - 26 * * 5 + - 27 * * 4 + - 28 * * 3 + - 29 * * 2 + - 30 * * 1 + UND * * UND + ******************************************************************** + LOW-EDGE ------------------------------ + 10 322222222221111111111 11111111112222222222 + 1. 098765432109876543210987654321 12345678901234567890123456789 + + * I I + * ENTRIES = 336 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 3.265I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 Zona 2 : Aria r=1cm : Distribuzione energia ceduta nel piano x-y + + HBOOK ID = 202 DATE 18/09/94 NO = 13 + + CHANNELS 10 U 0 1 2 3 4 5 6 O + 1 N 123456789012345678901234567890123456789012345678901234567890 V + ******************************************************************** + OVE * * OVE + 29 * * 60 + 28 * * 59 + 27 * * 58 + 26 * * 57 + 25 * * 56 + 24 * * 55 + 23 * * 54 + 22 * * 53 + 21 * * 52 + 20 * * 51 + 19 * * 50 + 18 * * 49 + 17 * * 48 + 16 * * 47 + 15 * * 46 + 14 * * 45 + 13 * * 44 + 12 * * 43 + 11 * * 42 + 10 * .. * 41 + 9 * . * 40 + 8 * * 39 + 7 * * 38 + 6 * * 37 + 5 * * 36 + 4 * * 35 + 3 * * 34 + 2 * * 33 + 1 * * 32 + * * 31 + - 1 * * 30 + - 2 * * 29 + - 3 * * 28 + - 4 * * 27 + - 5 * * 26 + - 6 * . * 25 + - 7 * * 24 + - 8 * * 23 + - 9 * * 22 + - 10 * . . * 21 + - 11 * . * 20 + - 12 * * 19 + - 13 * * 18 + - 14 * * 17 + - 15 * * 16 + - 16 * * 15 + - 17 * * 14 + - 18 * * 13 + - 19 * * 12 + - 20 * * 11 + - 21 * * 10 + - 22 * * 9 + - 23 * * 8 + - 24 * * 7 + - 25 * * 6 + - 26 * * 5 + - 27 * * 4 + - 28 * * 3 + - 29 * * 2 + - 30 * * 1 + UND * * UND + ******************************************************************** + LOW-EDGE ------------------------------ + 10 322222222221111111111 11111111112222222222 + 1. 098765432109876543210987654321 12345678901234567890123456789 + + * I I + * ENTRIES = 132 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I .334I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 Zona 3 : Aria Distribuzione energia ceduta nel piano x-y + + HBOOK ID = 203 DATE 18/09/94 NO = 14 + + CHANNELS 10 U 0 1 2 3 4 5 6 O + 1 N 123456789012345678901234567890123456789012345678901234567890 V + ******************************************************************** + OVE * * OVE + 29 * * 60 + 28 * * 59 + 27 * * 58 + 26 * * 57 + 25 * * 56 + 24 * * 55 + 23 * * 54 + 22 * * 53 + 21 * * 52 + 20 * * 51 + 19 * . . . . . . . * 50 + 18 * .. * 49 + 17 * . . * 48 + 16 * * 47 + 15 * . . .. * 46 + 14 * * 45 + 13 * . . . * 44 + 12 * * 43 + 11 * . . . . * 42 + 10 * . . .. ...... * 41 + 9 * . . . . * 40 + 8 * . . . * 39 + 7 * . . . . * 38 + 6 * . . .. * 37 + 5 * . . . * 36 + 4 * . . .. . .. * 35 + 3 * . . . . . . * 34 + 2 * . .. .. .. . . . . * 33 + 1 * . . . .. . ... . . . * 32 + * . . ... . .. . . * 31 + - 1 * . .. ... .. . . . * 30 + - 2 * .. . .. .. . * 29 + - 3 * . . . . .... . . * 28 + - 4 * . . . . . . . * 27 + - 5 * . . .. . . . * 26 + - 6 * . . . . . . . . * 25 + - 7 * . . . . . * 24 + - 8 * .. . .. * 23 + - 9 * . . .. * 22 + - 10 * .. . . . * 21 + - 11 * . ....... * 20 + - 12 * . * 19 + - 13 * .. * 18 + - 14 * . .. * 17 + - 15 * . * 16 + - 16 * . * 15 + - 17 * . . . . * 14 + - 18 * .. * 13 + - 19 * . * 12 + - 20 * . . . . . .. . * 11 + - 21 * * 10 + - 22 * * 9 + - 23 * * 8 + - 24 * * 7 + - 25 * * 6 + - 26 * * 5 + - 27 * * 4 + - 28 * * 3 + - 29 * * 2 + - 30 * * 1 + UND * * UND + ******************************************************************** + LOW-EDGE ------------------------------ + 10 322222222221111111111 11111111112222222222 + 1. 098765432109876543210987654321 12345678901234567890123456789 + + * I I + * ENTRIES = 597 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 18.693I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 Zona 4 : YAP 1 Distribuzione energia ceduta nel piano del yap + + HBOOK ID = 204 DATE 18/09/94 NO = 15 + + CHANNELS 10 U 0 1 2 3 4 5 6 O + 1 N 123456789012345678901234567890123456789012345678901234567890 V + ******************************************************************** + OVE * * OVE + 29 * * 60 + 28 * * 59 + 27 * * 58 + 26 * * 57 + 25 * * 56 + 24 * * 55 + 23 * * 54 + 22 * * 53 + 21 * * 52 + 20 * * 51 + 19 * * 50 + 18 * * 49 + 17 * * 48 + 16 * * 47 + 15 * * 46 + 14 * * 45 + 13 * * 44 + 12 * * 43 + 11 * * 42 + 10 * * 41 + 9 * + * 40 + 8 * . * 39 + 7 * . * 38 + 6 * +. . + * 37 + 5 * . * 36 + 4 * . . + * 35 + 3 * . * 34 + 2 * . * 33 + 1 * . * 32 + * * 31 + - 1 * + . * 30 + - 2 * . . +. * 29 + - 3 * . . . * 28 + - 4 * . * 27 + - 5 * . . * 26 + - 6 * * 25 + - 7 * + .. * 24 + - 8 * . . . * 23 + - 9 * . ... * 22 + - 10 * . * 21 + - 11 * * 20 + - 12 * * 19 + - 13 * * 18 + - 14 * * 17 + - 15 * * 16 + - 16 * * 15 + - 17 * * 14 + - 18 * * 13 + - 19 * * 12 + - 20 * * 11 + - 21 * * 10 + - 22 * * 9 + - 23 * * 8 + - 24 * * 7 + - 25 * * 6 + - 26 * * 5 + - 27 * * 4 + - 28 * * 3 + - 29 * * 2 + - 30 * * 1 + UND * * UND + ******************************************************************** + LOW-EDGE ------------------------------ + 10 322222222221111111111 11111111112222222222 + 1. 098765432109876543210987654321 12345678901234567890123456789 + + * I I + * ENTRIES = 32859 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 24.001I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 Zona 5 : YAP 2 Distribuzione energia ceduta nel piano del yap + + HBOOK ID = 205 DATE 18/09/94 NO = 16 + + CHANNELS 10 U 0 1 2 3 4 5 6 O + 1 N 123456789012345678901234567890123456789012345678901234567890 V + ******************************************************************** + OVE * * OVE + 29 * * 60 + 28 * * 59 + 27 * * 58 + 26 * * 57 + 25 * * 56 + 24 * * 55 + 23 * * 54 + 22 * * 53 + 21 * * 52 + 20 * * 51 + 19 * * 50 + 18 * * 49 + 17 * * 48 + 16 * * 47 + 15 * * 46 + 14 * * 45 + 13 * * 44 + 12 * * 43 + 11 * * 42 + 10 * * 41 + 9 * . . + * 40 + 8 * . . . * 39 + 7 * . .+. * 38 + 6 * . + . + * 37 + 5 * . * 36 + 4 * . . .. . * 35 + 3 * . . . * 34 + 2 * . . * 33 + 1 * . . * 32 + * . .. * 31 + - 1 * + . * 30 + - 2 * . * 29 + - 3 * + * 28 + - 4 * . .. * 27 + - 5 * . .. . . + . * 26 + - 6 * . . . . * 25 + - 7 * * 24 + - 8 * . ... . * 23 + - 9 * . . . * 22 + - 10 * * 21 + - 11 * * 20 + - 12 * * 19 + - 13 * * 18 + - 14 * * 17 + - 15 * * 16 + - 16 * * 15 + - 17 * * 14 + - 18 * * 13 + - 19 * * 12 + - 20 * * 11 + - 21 * * 10 + - 22 * * 9 + - 23 * * 8 + - 24 * * 7 + - 25 * * 6 + - 26 * * 5 + - 27 * * 4 + - 28 * * 3 + - 29 * * 2 + - 30 * * 1 + UND * * UND + ******************************************************************** + LOW-EDGE ------------------------------ + 10 322222222221111111111 11111111112222222222 + 1. 098765432109876543210987654321 12345678901234567890123456789 + + * I I + * ENTRIES = 49567 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 36.172I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 Zona 6 : YAP 3 Distribuzione energia ceduta nel piano del yap + + HBOOK ID = 206 DATE 18/09/94 NO = 17 + + CHANNELS 10 U 0 1 2 3 4 5 6 O + 1 N 123456789012345678901234567890123456789012345678901234567890 V + ******************************************************************** + OVE * * OVE + 29 * * 60 + 28 * * 59 + 27 * * 58 + 26 * * 57 + 25 * * 56 + 24 * * 55 + 23 * * 54 + 22 * * 53 + 21 * * 52 + 20 * * 51 + 19 * * 50 + 18 * * 49 + 17 * * 48 + 16 * * 47 + 15 * * 46 + 14 * * 45 + 13 * * 44 + 12 * * 43 + 11 * * 42 + 10 * * 41 + 9 * . * 40 + 8 * * 39 + 7 * . . * 38 + 6 * . . . * 37 + 5 * . * 36 + 4 * . * 35 + 3 * . + * 34 + 2 * + + .. * 33 + 1 * + .. * 32 + * . + + + * 31 + - 1 * . * 30 + - 2 * + * 29 + - 3 * * 28 + - 4 * . .. * 27 + - 5 * + .. * 26 + - 6 * + + . * 25 + - 7 * . * 24 + - 8 * . * 23 + - 9 * . + * 22 + - 10 * . * 21 + - 11 * * 20 + - 12 * * 19 + - 13 * * 18 + - 14 * * 17 + - 15 * * 16 + - 16 * * 15 + - 17 * * 14 + - 18 * * 13 + - 19 * * 12 + - 20 * * 11 + - 21 * * 10 + - 22 * * 9 + - 23 * * 8 + - 24 * * 7 + - 25 * * 6 + - 26 * * 5 + - 27 * * 4 + - 28 * * 3 + - 29 * * 2 + - 30 * * 1 + UND * * UND + ******************************************************************** + LOW-EDGE ------------------------------ + 10 322222222221111111111 11111111112222222222 + 1. 098765432109876543210987654321 12345678901234567890123456789 + + * I I + * ENTRIES = 38015 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 28.723I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 Zona 7 : YAP 4 Distribuzione energia ceduta nel piano del yap + + HBOOK ID = 207 DATE 18/09/94 NO = 18 + + CHANNELS 10 U 0 1 2 3 4 5 6 O + 1 N 123456789012345678901234567890123456789012345678901234567890 V + ******************************************************************** + OVE * * OVE + 29 * * 60 + 28 * * 59 + 27 * * 58 + 26 * * 57 + 25 * * 56 + 24 * * 55 + 23 * * 54 + 22 * * 53 + 21 * * 52 + 20 * * 51 + 19 * * 50 + 18 * * 49 + 17 * * 48 + 16 * * 47 + 15 * * 46 + 14 * * 45 + 13 * * 44 + 12 * * 43 + 11 * * 42 + 10 * * 41 + 9 * . .. .. ... * 40 + 8 * + + * 39 + 7 * + . . * 38 + 6 * + . + . * 37 + 5 * . .. . * 36 + 4 * .. * 35 + 3 * * 34 + 2 * * 33 + 1 * + * 32 + * * 31 + - 1 * . . * 30 + - 2 * . . . * 29 + - 3 * . * 28 + - 4 * +. + * 27 + - 5 * + +. * 26 + - 6 * * 25 + - 7 * * 24 + - 8 * . * 23 + - 9 * . * 22 + - 10 * * 21 + - 11 * * 20 + - 12 * * 19 + - 13 * * 18 + - 14 * * 17 + - 15 * * 16 + - 16 * * 15 + - 17 * * 14 + - 18 * * 13 + - 19 * * 12 + - 20 * * 11 + - 21 * * 10 + - 22 * * 9 + - 23 * * 8 + - 24 * * 7 + - 25 * * 6 + - 26 * * 5 + - 27 * * 4 + - 28 * * 3 + - 29 * * 2 + - 30 * * 1 + UND * * UND + ******************************************************************** + LOW-EDGE ------------------------------ + 10 322222222221111111111 11111111112222222222 + 1. 098765432109876543210987654321 12345678901234567890123456789 + + * I I + * ENTRIES = 35163 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 27.252I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 Zona 8 : fughe dal sistema : distribuzione in x-y + + HBOOK ID = 208 DATE 18/09/94 NO = 19 + + CHANNELS 10 U 0 1 2 3 4 5 6 O + 1 N 123456789012345678901234567890123456789012345678901234567890 V + ******************************************************************** + OVE * G + + + + . + + + F * OVE + 29 * + * 60 + 28 * * 59 + 27 * * 58 + 26 * * 57 + 25 * * 56 + 24 * + * 55 + 23 * + * 54 + 22 * + + * 53 + 21 * + + * 52 + 20 * + + * 51 + 19 * * 50 + 18 * . * 49 + 17 * * 48 + 16 * + * 47 + 15 * * 46 + 14 * + * 45 + 13 * + + * 44 + 12 * + + + + * 43 + 11 * + * 42 + 10 * + * 41 + 9 * + + + + + * 40 + 8 * + + + * 39 + 7 * + + + * 38 + 6 * * 37 + 5 * + * 36 + 4 * + + + * 35 + 3 * 3 + + + * 34 + 2 * * 33 + 1 * + + + + + * 32 + * + * 31 + - 1 * + 2 + * 30 + - 2 * + + * 29 + - 3 * + + + * 28 + - 4 * + + + + * 27 + - 5 * * 26 + - 6 * 3 + + * 25 + - 7 * + * 24 + - 8 * + + . * 23 + - 9 * + * 22 + - 10 * + + + + * 21 + - 11 * + + * 20 + - 12 * + * 19 + - 13 * + + * 18 + - 14 * + + * 17 + - 15 * * 16 + - 16 * + + * 15 + - 17 * + + * 14 + - 18 * * 13 + - 19 * * 12 + - 20 * * 11 + - 21 * + * 10 + - 22 * + * 9 + - 23 * + * 8 + - 24 * * 7 + - 25 * * 6 + - 26 * + + * 5 + - 27 * + * 4 + - 28 * * 3 + - 29 * + + + * 2 + - 30 * * 1 + UND * N ++ + + + + 3 + F * UND + ******************************************************************** + LOW-EDGE ------------------------------ + 10 322222222221111111111 11111111112222222222 + 1. 098765432109876543210987654321 12345678901234567890123456789 + + * 16.924I 13.273I 15.407 + * ENTRIES = 210 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY 27.647I 117.055I 20.282 + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 23.778I 16.53 I 15.065 + + ****** HBOOK NO ENTRIES FOR HISTOGRAM ID= 209 + + ****** HBOOK NO ENTRIES FOR HISTOGRAM ID= 210 +1 DISTRIBUZIONE R-Z , PESATA SU ENERGIA -- + + HBOOK ID = 700 DATE 18/09/94 NO = 22 + + CHANNELS 10 U 0 1 2 3 O + 1 N 123456789012345678901234567890 V + ************************************** + OVE * +3+++332+ 3+3++++++5334++ * * OVE + 9 * . .. 4+ +.. . * 20 + 8 * ..2 + . * 19 + 7 * . . . + ...2. * 18 + 6 * . . 4. ...+3. * 17 + 5 * ..+........ . . . .. * 16 + 4 * .. .. ++..+ .. * 15 + 3 * .. .+ .. .. * 14 + 2 * .. .. +++... . * 13 + 1 * ... .+ + +. * 12 + * 2.. . .. .. .+2. + .+ * 11 + - 1 * ... . . . .3+. . * 10 + - 2 * . .. .. .. ..4. . .. . * 9 + - 3 * .. .... . .++ + * 8 + - 4 * .. .6 ... * 7 + - 5 * ... .62+ .. * 6 + - 6 * ..+..+..... 3..... * 5 + - 7 * . ... .. .+ * 4 + - 8 * . 3.+ + * 3 + - 9 * . 2...+ .. * 2 + - 10 * . . . . * 1 + UND * 2 3 7 3 3.++5+ ++3 * * UND + ************************************** + LOW-EDGE 10 11111111112222222222 + 1. 12345678901234567890123456789 + + * I 62.638I 65.953 + * ENTRIES = 156879 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 139.927I .511 + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I 41.41 I 93.961 +1 DISTRIBUZIONE x-y , PESATA SU ENERGIA -- + + HBOOK ID = 701 DATE 18/09/94 NO = 23 + + CHANNELS 10 U 0 1 2 3 4 5 6 O + 1 N 123456789012345678901234567890123456789012345678901234567890 V + ******************************************************************** + OVE * G + + + + . + + + F * OVE + 29 * + * 60 + 28 * * 59 + 27 * * 58 + 26 * * 57 + 25 * * 56 + 24 * + * 55 + 23 * + * 54 + 22 * + + * 53 + 21 * + + . * 52 + 20 * +2+ +. 23.+ . .5...2 2+ 3+ . + + . * 51 + 19 * . . . . . . . * 50 + 18 * ... * 49 + 17 * 2 . . * 48 + 16 * + * 47 + 15 * .. . .. * 46 + 14 * + . * 45 + 13 * + . . + .3 * 44 + 12 * + + + + * 43 + 11 * + . . . .. * 42 + 10 * + . . .. ...... * 41 + 9 * + + . 2... . . + + . * 40 + 8 * . . . . .+ + + * 39 + 7 * + . + . . . .. + * 38 + 6 * . . . .. . * 37 + 5 * 2 . . + . . * 36 + 4 * + + . . .. . .. + 2 * 35 + 3 * 3 2 . . . . . 2 . + +. * 34 + 2 * + . .. .. .. . . . .. * 33 + 1 * + . . . +.. . +.. + . .. + * 32 + * 2. . ... ..+.. . . . + * 31 + - 1 * + + . . .. ...2.. .. . .+ + * 30 + - 2 * +. .. . .. ...+ . . * 29 + - 3 * + .. . . +. ...... . . + * 28 + - 4 * + . . . . . +. . + . + + * 27 + - 5 * . . . .. . . . .. * 26 + - 6 * 3 +..+ . . . . . . . . + * 25 + - 7 * .. . + . . . * 24 + - 8 * + .2. . ... * 23 + - 9 * + . . + .. * 22 + - 10 * + + + .. . . + + * 21 + - 11 * + . ....... + * 20 + - 12 * + . . * 19 + - 13 * . ..+ + .. * 18 + - 14 * ++ 2 .. + * 17 + - 15 * .. + * 16 + - 16 * +. + + * 15 + - 17 * + . . . .. + * 14 + - 18 * .. * 13 + - 19 * . . * 12 + - 20 * + . . . . . .. . 2 * 11 + - 21 * +. +++ . .+.+2.++..2. .. +. + 2.. * 10 + - 22 * + * 9 + - 23 * + * 8 + - 24 * * 7 + - 25 * * 6 + - 26 * + + * 5 + - 27 * + * 4 + - 28 * * 3 + - 29 * + + + * 2 + - 30 * * 1 + UND * N ++ + + + + 3 + F * UND + ******************************************************************** + LOW-EDGE ------------------------------ + 10 322222222221111111111 11111111112222222222 + 1. 098765432109876543210987654321 12345678901234567890123456789 + + * 16.924I 13.273I 15.407 + * ENTRIES = 156879 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY 27.647I 255.496I 20.282 + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 23.778I 16.53 I 15.065 +1 DISTRIBUZIONE X-Y PUNTI DECADIMENTO POSITRONE + + HBOOK ID = 400 DATE 18/09/94 NO = 24 + + CHANNELS 10 U 0 1 2 3 4 5 6 O + 1 N 123456789012345678901234567890123456789012345678901234567890 V + ******************************************************************** + OVE * * OVE + 29 * * 60 + 28 * * 59 + 27 * * 58 + 26 * * 57 + 25 * * 56 + 24 * * 55 + 23 * * 54 + 22 * * 53 + 21 * * 52 + 20 * +2 ++ 22 + 4 ++ 2+ 2+ + * 51 + 19 * * 50 + 18 * * 49 + 17 * + * 48 + 16 * * 47 + 15 * * 46 + 14 * + * 45 + 13 * 2 * 44 + 12 * * 43 + 11 * * 42 + 10 * * 41 + 9 * * 40 + 8 * * 39 + 7 * * 38 + 6 * * 37 + 5 * 2 * 36 + 4 * 2 * 35 + 3 * 2 * 34 + 2 * + * 33 + 1 * * 32 + * 2 * 31 + - 1 * + + * 30 + - 2 * + + * 29 + - 3 * * 28 + - 4 * + * 27 + - 5 * + + * 26 + - 6 * + * 25 + - 7 * * 24 + - 8 * * 23 + - 9 * + * 22 + - 10 * + * 21 + - 11 * * 20 + - 12 * * 19 + - 13 * + * 18 + - 14 * + 2 * 17 + - 15 * + * 16 + - 16 * * 15 + - 17 * * 14 + - 18 * * 13 + - 19 * * 12 + - 20 * + 2 * 11 + - 21 * + + + + +2 +++ + + + 2 * 10 + - 22 * * 9 + - 23 * * 8 + - 24 * * 7 + - 25 * * 6 + - 26 * * 5 + - 27 * * 4 + - 28 * * 3 + - 29 * * 2 + - 30 * * 1 + UND * * UND + ******************************************************************** + LOW-EDGE ------------------------------ + 10 322222222221111111111 11111111112222222222 + 1. 098765432109876543210987654321 12345678901234567890123456789 + + * I I + * ENTRIES = 69 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 69 I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPOSITRONE + + HBOOK ID = 401 DATE 18/09/94 NO = 25 + + CHANNELS 10 U 0 1 2 3 O + 1 N 123456789012345678901234567890 V + ************************************** + OVE * * OVE + 9 * 3 + * 20 + 8 * 2 + * 19 + 7 * + 2 * 18 + 6 * 3 + +2 * 17 + 5 * * 16 + 4 * ++ + + * 15 + 3 * + + + * 14 + 2 * +2+ * 13 + 1 * + + + * 12 + * ++ + * 11 + - 1 * 2 + * 10 + - 2 * 2+ * 9 + - 3 * + + * 8 + - 4 * 5 + * 7 + - 5 * 32 * 6 + - 6 * 3 + * 5 + - 7 * + ++ * 4 + - 8 * 2 + + * 3 + - 9 * 2+ + + * 2 + - 10 * * 1 + UND * * UND + ************************************** + LOW-EDGE 10 11111111112222222222 + 1. 12345678901234567890123456789 + + * I I + * ENTRIES = 69 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 69 I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I + + + ******************************************************** + * NTUPLE ID= 800 ENTRIES= 69 x,y,z punti decadimento del positrone + ******************************************************** + * Var numb * Name * Lower * Upper * + ******************************************************** + * 1 * x-decay * -.200220E+02 * 0.200165E+02 * + * 2 * y-decay * -.200132E+02 * 0.200193E+02 * + * 3 * z-decay * -.873869E+01 * 0.978190E+01 * + ******************************************************** + + + + ******************************************************** + * NTUPLE ID= 801 ENTRIES= 800 energia persa nei rivelatori a ogni evento + ******************************************************** + * Var numb * Name * Lower * Upper * + ******************************************************** + * 1 * shower * 0.100000E+01 * 0.200000E+03 * + * 2 * rivelat * 0.100000E+01 * 0.400000E+01 * + * 3 * xmedio * -.499991E+01 * 0.000000E+00 * + * 4 * ymedio * -.198235E+02 * 0.196352E+02 * + * 5 * zmedio * -.970737E+01 * 0.982341E+01 * + * 6 * sigmax * -.476837E-04 * 0.896375E+00 * + * 7 * sigmay * -.610352E-03 * 0.111468E+02 * + * 8 * sigmaz * -.335693E-03 * 0.310985E+01 * + * 9 * etot * 0.000000E+00 * 0.198803E+01 * + * 10 * etot-po * 0.000000E+00 * 0.923879E+00 * + * 11 * etot-el * 0.000000E+00 * 0.104180E+01 * + * 12 * etot-ga * 0.000000E+00 * 0.234354E+00 * + * 13 * num-par * 0.000000E+00 * 0.340000E+02 * + * 14 * num-pos * 0.000000E+00 * 0.100000E+01 * + * 15 * num-ele * 0.000000E+00 * 0.230000E+02 * + * 16 * num-gam * 0.000000E+00 * 0.100000E+02 * + ******************************************************** + + + + ===> Directory : //PAWC + 101 (1) Zona 1 : aria r=10cm : Distribuzione energia ceduta lungo l' asse z + 102 (1) Zona 2 : aria r=1cm : Distribuzione energia ceduta lungo l' asse z + 103 (1) Zona 3 : aria : Distribuzione energia ceduta lungo l' asse z + 104 (1) Zona 4 : YAP 1 : Distribuzione profondita energia ceduta + 105 (1) Zona 5 : YAP 2 : Distribuzione profondita energia ceduta + 106 (1) Zona 6 : YAP 3 : Distribuzione profondita energia ceduta + 107 (1) Zona 7 : YAP 4 : Distribuzione profondita energia ceduta + 108 (1) Zona 8 : fughe : Distribuzione profondita energia ceduta + 109 (1) Zona 9 : assorbimenti da parte dei collimatori + 110 (1) Zona 10 : uscite dai rivelatori + 501 (1) DISTRIBUZIONE ANGOLO DECADIMENTO POSITRONI + 201 (2) Zona 1 : Aria r=10cm : Distribuzione energia ceduta nel piano x-y + 202 (2) Zona 2 : Aria r=1cm : Distribuzione energia ceduta nel piano x-y + 203 (2) Zona 3 : Aria Distribuzione energia ceduta nel piano x-y + 204 (2) Zona 4 : YAP 1 Distribuzione energia ceduta nel piano del yap + 205 (2) Zona 5 : YAP 2 Distribuzione energia ceduta nel piano del yap + 206 (2) Zona 6 : YAP 3 Distribuzione energia ceduta nel piano del yap + 207 (2) Zona 7 : YAP 4 Distribuzione energia ceduta nel piano del yap + 208 (2) Zona 8 : fughe dal sistema : distribuzione in x-y + 209 (2) Zona 9 : assorbimento dei collimatori distr x-y + 210 (2) Zona 10 : uscite dai rivelatori + 700 (2) DISTRIBUZIONE R-Z , PESATA SU ENERGIA -- + 701 (2) DISTRIBUZIONE x-y , PESATA SU ENERGIA -- + 400 (2) DISTRIBUZIONE X-Y PUNTI DECADIMENTO POSITRONE + 401 (2) DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPOSITRONE + 800 (N) x,y,z punti decadimento del positrone + 801 (N) energia persa nei rivelatori a ogni evento + + + ===> Directory : //topw + 101 (1) Zona 1 : aria r=10cm : Distribuzione energia ceduta lungo l' asse z + 201 (2) Zona 1 : Aria r=10cm : Distribuzione energia ceduta nel piano x-y + 102 (1) Zona 2 : aria r=1cm : Distribuzione energia ceduta lungo l' asse z + 202 (2) Zona 2 : Aria r=1cm : Distribuzione energia ceduta nel piano x-y + 103 (1) Zona 3 : aria : Distribuzione energia ceduta lungo l' asse z + 203 (2) Zona 3 : Aria Distribuzione energia ceduta nel piano x-y + 104 (1) Zona 4 : YAP 1 : Distribuzione profondita energia ceduta + 204 (2) Zona 4 : YAP 1 Distribuzione energia ceduta nel piano del yap + 105 (1) Zona 5 : YAP 2 : Distribuzione profondita energia ceduta + 205 (2) Zona 5 : YAP 2 Distribuzione energia ceduta nel piano del yap + 106 (1) Zona 6 : YAP 3 : Distribuzione profondita energia ceduta + 206 (2) Zona 6 : YAP 3 Distribuzione energia ceduta nel piano del yap + 107 (1) Zona 7 : YAP 4 : Distribuzione profondita energia ceduta + 207 (2) Zona 7 : YAP 4 Distribuzione energia ceduta nel piano del yap + 108 (1) Zona 8 : fughe : Distribuzione profondita energia ceduta + 208 (2) Zona 8 : fughe dal sistema : distribuzione in x-y + 109 (1) Zona 9 : assorbimenti da parte dei collimatori + 209 (2) Zona 9 : assorbimento dei collimatori distr x-y + 110 (1) Zona 10 : uscite dai rivelatori + 210 (2) Zona 10 : uscite dai rivelatori + 501 (1) DISTRIBUZIONE ANGOLO DECADIMENTO POSITRONI + 700 (2) DISTRIBUZIONE R-Z , PESATA SU ENERGIA -- + 701 (2) DISTRIBUZIONE x-y , PESATA SU ENERGIA -- + 400 (2) DISTRIBUZIONE X-Y PUNTI DECADIMENTO POSITRONE + 401 (2) DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPOSITRONE + + + ===> Directory : //topw1 + 800 (N) x,y,z punti decadimento del positrone + + + ===> Directory : //topwy + 801 (N) energia persa nei rivelatori a ogni evento + + + ENERGIA TOTALE POSITRONI := 302.2008 MEV + ENERGIA CINETICA TOTALE := 200.0000 MEV + ENERGIA TOTALE DEPOSITATA := 404.4013 MEV + NUMERO POSITRONI := 200 + ENERGIA INIZIALE/DEPOSITATA := 1.338187 + + + + % FRACTION IN REGION 1= 0.8073228 MEV: 3.264824 + % FRACTION IN REGION 2= 0.8270055E-01 MEV: 0.3344421 + % FRACTION IN REGION 3= 4.622417 MEV: 18.69312 + % FRACTION IN REGION 4= 5.934879 MEV: 24.00073 + % FRACTION IN REGION 5= 8.944691 MEV: 36.17245 + % FRACTION IN REGION 6= 7.102716 MEV: 28.72348 + % FRACTION IN REGION 7= 6.738783 MEV: 27.25173 + % FRACTION IN REGION 8= 65.76649 MEV: 265.9606 + % FRACTION IN REGION 9= 0.0000000E+00 MEV: 0.0000000E+00 + % FRACTION IN REGION 10= 0.0000000E+00 MEV: 0.0000000E+00 + + + FRACTION OF ENERGY DEPOSITED IN EACH REGION + region total e+ e- gamma + 1 0.81E-02 0.71E-02 0.96E-03 0.00E+00 + 2 0.83E-03 0.66E-03 0.17E-03 0.00E+00 + 3 0.46E-01 0.44E-01 0.25E-02 0.00E+00 + 4 0.59E-01 0.26E-01 0.28E-01 0.56E-02 + 5 0.89E-01 0.39E-01 0.42E-01 0.89E-02 + 6 0.71E-01 0.33E-01 0.31E-01 0.69E-02 + 7 0.67E-01 0.33E-01 0.29E-01 0.57E-02 + 8 0.66E+00 0.59E+00 0.16E-02 0.62E-01 + 9 0.00E+00 0.00E+00 0.00E+00 0.00E+00 + 10 0.00E+00 0.00E+00 0.00E+00 0.00E+00 + + + Particelle assorbite in ogni regione + region total e+ e- gamma + 1 12 0 12 0 + 2 2 0 2 0 + 3 19 0 19 0 + 4 231 14 169 48 + 5 386 23 271 92 + 6 309 17 212 80 + 7 280 14 202 64 + 8 210 131 25 54 + 9 0 0 0 0 + 10 0 0 0 0 + + + Posizione media energia assorbita: + zona x medio y medio z medio + 1 -0.63188E-01 0.11193 -0.12875 + 2 0.71532E-01 -1.0525 0.75117 + 3 -0.73921 -0.55522 -0.48853 + 8 -48.297 -40.926 -89.189 + 9 0.00000E+00 0.00000E+00 0.00000E+00 + + + Posizione media assorbimenti nei rivelatori + zona riv. x medio +- y medio +- z medio +- + 4 1 -4.8817 0.25221 -1.0041 11.081 -0.61163 5.8049 + 5 2 -4.8604 0.25726 1.4468 10.171 0.63837 5.9657 + 6 3 -4.8618 0.31187 2.3348 9.3791 -1.2977 4.0930 + 7 4 -4.8810 0.21861 -0.13773E-01 10.392 3.0883 5.4679 diff --git a/code/input-output/cyl_2.dat b/code/input-output/cyl_2.dat new file mode 100644 index 0000000..2ef449a --- /dev/null +++ b/code/input-output/cyl_2.dat @@ -0,0 +1,20 @@ + 5000 1 1 1.00 ! N. storie , carica,regione,mev della sorgente + 100 1 -122545931 ! ogni 10 stampa, user seed:(SI se >0) e seed + 5 ! numero materiali +WATER-3MEV-10KEV-02KEV +ALUM-3MEV-10KEV-02KEV +AIR-3MEV-10KEV-02KEV ! nomi materiali +CD+TE-3MEV-10KEV-02KEV +LEAD-3MEV-10KEV-02KEV + 1 0.002 0.002 + 2 0.002 0.002 ! materiale, E inf. gamma e positroni + 3 0.002 0.002 + 4 0.002 0.002 + 5 0.002 0.002 + 2 5. ! num cylindri e meta altezza + 10. 3 ! spessore , materiale del cilindro + 1. 3 + 1 0 1 1 0 0 ! out.flags:interac.,paths,n-tuple decay,n-tuple yaps,cross.surf,unused + +12345678901234567890123456789012345678901234567890123456789012345678901234567890 + 1 2 3 4 5 6 7 8 diff --git a/code/input-output/cyl_2_y.dat b/code/input-output/cyl_2_y.dat new file mode 100644 index 0000000..9974f49 --- /dev/null +++ b/code/input-output/cyl_2_y.dat @@ -0,0 +1,20 @@ + 500 1 1 1.00 ! N. storie , carica,regione,mev della sorgente + 100 1 -122545931 ! ogni 10 stampa, user seed:(SI se >0) e seed + 5 ! numero materiali +WATER-3MEV-10KEV-02KEV +ALUM-3MEV-10KEV-02KEV +AIR-3MEV-10KEV-02KEV ! nomi materiali +CD+TE-3MEV-10KEV-02KEV +LEAD-3MEV-10KEV-02KEV + 1 0.002 0.002 + 2 0.002 0.002 ! materiale, E inf. gamma e positroni + 3 0.002 0.002 + 4 0.002 0.002 + 5 0.002 0.002 + 2 2.1 ! num cylindri e meta altezza + 2. 1 ! spessore , materiale del cilindro + 0.5 2 + 1 0 1 1 0 0 ! out.flags: interac., paths, n-tuple decay, n-tuple yaps, cross.surf + +12345678901234567890123456789012345678901234567890123456789012345678901234567890 + 1 2 3 4 5 6 7 8 diff --git a/code/input-output/cyl_y.out b/code/input-output/cyl_y.out new file mode 100644 index 0000000..147550e --- /dev/null +++ b/code/input-output/cyl_y.out @@ -0,0 +1,2404 @@ +1 + ............................................................................................................................. + . . + . HBOOK HBOOK CERN VERSION 4.21 HISTOGRAM AND PLOT INDEX 31/08/94 . + . . + ............................................................................................................................. + . . + . NO TITLE ID B/C ENTRIES DIM NCHA LOWER UPPER ADDRESS LENGTH . + . . + ............................................................................................................................. + . . + . . + . 1 Zona 1 : H2O r=2cm : Distribuzione ener 101 32 43606 1 X 60 -0.300E+01 0.300E+01 989926 119 . + . gia ceduta lungo l' asse z . + . . + . 2 Zona 2 : Al r=0.5cm : Distribuzione e 102 32 5242 1 X 60 -0.300E+01 0.300E+01 989804 120 . + . nergia ceduta lungo l' asse z . + . . + . 3 Zona 3 : aria : Distribuzione ene 103 32 715 1 X 60 -0.300E+01 0.300E+01 989683 119 . + . rgia ceduta lungo l' asse z . + . . + . 4 Zona 4 : YAP 1 : Distribuzione prof 104 32 14111 1 X 40 -0.200E+01 0.200E+01 989563 98 . + . ondita energia ceduta . + . . + . 5 Zona 5 : YAP 2 : Distribuzione prof 105 32 12111 1 X 40 -0.200E+01 0.200E+01 989463 98 . + . ondita energia ceduta . + . . + . 6 Zona 6 : YAP 3 : Distribuzione prof 106 32 19809 1 X 40 -0.200E+01 0.200E+01 989363 98 . + . ondita energia ceduta . + . . + . 7 Zona 7 : YAP 4 : Distribuzione prof 107 32 9664 1 X 40 -0.200E+01 0.200E+01 989263 98 . + . ondita energia ceduta . + . . + . 8 Zona 8 : YAP 5 : Distribuzione prof 108 32 14603 1 X 40 -0.200E+01 0.200E+01 989163 98 . + . ondita energia ceduta . + . . + . 9 Zona 9 : YAP 6 : Distribuzione prof 109 32 17304 1 X 40 -0.200E+01 0.200E+01 989063 98 . + . ondita energia ceduta . + . . + . 10 Zona 10 : fughe : Distribuzione lun 110 32 664 1 X 100 -0.500E+01 0.500E+01 988966 155 . + . go asse z . + . . + . 11 Zona 11 : assorbimenti da parte dei col 111 32 0 1 X 100 -0.500E+01 0.500E+01 988810 154 . + . limatori . + . . + . 12 Zona 12 : part. uscenti dai rivelatori 112 32 14 1 X 100 -0.500E+01 0.500E+01 988656 152 . + . . + . . + . 13 Distribuzione angolo decadimento positr 501 32 400 1 X 72 0.000E+00 0.628E+01 988501 125 . + . oni . + . . + . 14 Zona 1 : H2O r=0.5cm : Distribuzione en 201 32 43606 2 X 100 -0.100E+02 0.100E+02 988366 10463 . + . ergia ceduta nel piano x-y Y 100 -0.100E+02 0.100E+02 977941 10416 . + . . + . 15 Zona 2 : Al r=0.5cm : Distribuzione ene 202 32 5242 2 X 100 -0.100E+02 0.100E+02 977901 10463 . + . rgia ceduta nel piano x-y Y 100 -0.100E+02 0.100E+02 967476 10416 . + . . + . 16 Zona 3 : Aria Distribuzione energia ced 203 32 715 2 X 100 -0.100E+02 0.100E+02 967438 10461 . + . uta nel piano x-y Y 100 -0.100E+02 0.100E+02 957013 10416 . + . . + . 17 Zona 4 : YAP 1 Distribuzione energia ce 204 32 14111 2 X 70 -0.210E+01 0.210E+01 956974 5242 . + . duta nel piano del yap Y 70 -0.210E+01 0.210E+01 951769 5196 . + . . + . 18 Zona 5 : YAP 2 Distribuzione energia ce 205 32 12111 2 X 70 -0.210E+01 0.210E+01 951730 5242 . + . duta nel piano del yap Y 70 -0.210E+01 0.210E+01 946525 5196 . + . . + . 19 Zona 6 : YAP 3 Distribuzione energia ce 206 32 19809 2 X 70 -0.210E+01 0.210E+01 946486 5242 . + . duta nel piano del yap Y 70 -0.210E+01 0.210E+01 941281 5196 . + . . + . 20 Zona 7 : YAP 4 Distribuzione energia ce 207 32 9664 2 X 70 -0.210E+01 0.210E+01 941242 5242 . + . duta nel piano del yap Y 70 -0.210E+01 0.210E+01 936037 5196 . + . . + . 21 Zona 8 : YAP 5 Distribuzione energia ce 208 32 14603 2 X 70 -0.210E+01 0.210E+01 935998 5242 . + . duta nel piano del yap Y 70 -0.210E+01 0.210E+01 930793 5196 . + . . + . 22 Zona 9 : YAP 6 Distribuzione energia ce 209 32 17304 2 X 70 -0.210E+01 0.210E+01 930754 5242 . + . duta nel piano del yap Y 70 -0.210E+01 0.210E+01 925549 5196 . + . . + . 23 Zona 10 : fughe dal sistema : distribuz 210 32 664 2 X 70 -0.210E+01 0.210E+01 925513 5239 . + . ione in x-y Y 70 -0.210E+01 0.210E+01 920308 5196 . + . . + . 24 Zona 11 : assorbimento dei collimatori 211 32 0 2 X 100 -0.100E+02 0.100E+02 920270 10461 . + . distribuzione x-y Y 100 -0.100E+02 0.100E+02 909845 10416 . + . . + . 25 Zona 12 : uscite dai rivelatori distrib 212 32 14 2 X 100 -0.100E+02 0.100E+02 909809 10459 . + . uzione x-y Y 100 -0.100E+02 0.100E+02 899384 10416 . + . . + . 26 DISTRIBUZIONE R-Z , PESATA SU ENERGIA - 700 32 137843 2 X 100 -0.100E+02 0.100E+02 899350 3317 . + . - Y 30 -0.300E+01 0.300E+01 896065 3276 . + . . + . 27 DISTRIBUZIONE x-y , PESATA SU ENERGIA - 701 32 137843 2 X 100 -0.100E+02 0.100E+02 896031 10457 . + . - Y 100 -0.100E+02 0.100E+02 885606 10416 . + . . + . 28 DISTRIBUZIONE X-Y PUNTI DECADIMENTO POS 400 32 400 2 X 100 -0.100E+02 0.100E+02 885571 10458 . + . ITRONE Y 100 -0.100E+02 0.100E+02 875146 10416 . + . . + . 29 DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPO 401 32 400 2 X 100 -0.100E+02 0.100E+02 875111 3318 . + . SITRONE Y 30 -0.300E+01 0.300E+01 871826 3276 . + . . + . 30 x,y,z punti decadimento del positrone 800 N 871767 47 . + . . + . . + . 31 energia persa nei rivelatori a ogni eve 801 N 871624 74 . + . nto . + . . + ............................................................................................................................. + + + + MEMORY UTILISATION + + MAXIMUM TOTAL SIZE OF COMMON /PAWC/ 1000000 +1 Zona 1 : H2O r=2cm : Distribuzione energia ceduta lungo l' asse z + + HBOOK ID = 101 DATE 31/08/94 NO = 1 + + 160 - + 156 I + 152 I + 148 I + 144 I + 140 I + 136 I + 132 I + 128 I + 124 I + 120 I + 116 I + 112 I + 108 I + 104 I + 100 -I + 96 II + 92 II + 88 II + 84 II + 80 II + 76 II + 72 II + 68 II + 64 II + 60 II- + 56 I I + 52 -I I + 48 I I + 44 I I + 40 I I + 36 I I + 32 I I + 28 I I + 24 -I I + 20 I I + 16 I I- + 12 I I + 8 I I + 4 -----------------I I------------------ - + + CHANNELS 10 0 1 2 3 4 5 6 + 1 123456789012345678901234567890123456789012345678901234567890 + + CONTENTS 100 1 + 10 259551 + 1. 1 1 1117695 + 0 000000000000310805288185204201689628473205521132401000000000 + 0 000000000010769583684722126518752819719901229931422000000100 + + LOW-EDGE ------------------------------- + 1. 322222222221111111111 11111111112222222222 + 0 098765432109876543210987654321012345678901234567890123456789 + + * ENTRIES = 43606 * ALL CHANNELS = 0.4176E+03 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.1000E+00 * MEAN VALUE = 0.1594E-02 * R . M . S = 0.2361E+00 +1 Zona 2 : Al r=0.5cm : Distribuzione energia ceduta lungo l' asse z + + HBOOK ID = 102 DATE 31/08/94 NO = 2 + + 1.15 - + 1.125 I + 1.1 I + 1.075 - I + 1.05 I I + 1.025 I I + 1 I I + .975 I I + .95 I I - + .925 I I I + .9 I I I + .875 I I I + .85 I I I + .825 I -I I + .8 I II I - + .775 I II I -I + .75 I II I II + .725 I II I II + .7 I II I II + .675 I II I II + .65 I II I II + .625 I II I II + .6 I II I II - + .575 I - II I II I + .55 I - I -II I -II I + .525 I I I I I I I I I + .5 I I I I I I I I I + .475 I I I I I I I I I + .45 I I I- I I I I I I + .425 I I II I I I - I I I + .4 I I II I I I I I I I + .375 I I II I I- I I I I I + .35 - I I II-I I I I I I I - + .325 I I I I I- I I I I I I + .3 I - I -I I I I I I I I I + .275 I I I II -I I I I I I I I + .25 I I I II I I I I I I I I + .225 I I-I II- - I I I I I I I I + .2 I I I I I I I I I I I I I I + .175 I I I I I I I I I I I I I I + .15 I I I I I I I I I I- I I- I- I + .125 I I I I I -I I I I II I I II I + .1 - I I I I I II I I-I II I I II I + .075 I -I I I I I-II I I-II I I- II I + .05 I II I I I I I I I I II I + .025 I II I I I I I I-I I II I - + + CHANNELS 10 0 1 2 3 4 5 6 + 1 123456789012345678901234567890123456789012345678901234567890 + + CONTENTS 1. 1 1 + 0 000000000000302200252012025435813309041057710051030000000000 + 0 000000000906208150931521076442126083723026926073030000000000 + 0 000000000203702880675712011805875213126151385066090900000000 + 0 000000000304709080687040090079314185647226608040080300000000 + + LOW-EDGE ------------------------------- + 1. 322222222221111111111 11111111112222222222 + 0 098765432109876543210987654321012345678901234567890123456789 + + * ENTRIES = 5242 * ALL CHANNELS = 0.1323E+02 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.1000E+00 * MEAN VALUE = 0.7838E-01 * R . M . S = 0.1007E+01 +1 Zona 3 : aria : Distribuzione energia ceduta lungo l' asse z + + HBOOK ID = 103 DATE 31/08/94 NO = 3 + + + CHANNELS 10 0 1 2 3 4 5 6 + 1 123456789012345678901234567890123456789012345678901234567890 + + CONTENTS . + 0 000000000000000000000000000000000000000000000000000000000000 + 0 000000000000000000000000000000000000000000000000000000000000 + + LOW-EDGE ------------------------------- + 1. 322222222221111111111 11111111112222222222 + 0 098765432109876543210987654321012345678901234567890123456789 + + * ENTRIES = 715 * ALL CHANNELS = 0.0000E+00 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.1000E+00 * MEAN VALUE = 0.0000E+00 * R . M . S = 0.0000E+00 +1 Zona 4 : YAP 1 : Distribuzione profondita energia ceduta + + HBOOK ID = 104 DATE 31/08/94 NO = 4 + + 1.9 - + 1.85 I + 1.8 I + 1.75 I + 1.7 I + 1.65 I + 1.6 I + 1.55 I + 1.5 I + 1.45 - I + 1.4 I I + 1.35 I I + 1.3 I I + 1.25 I I + 1.2 I I + 1.15 - I I - + 1.1 I I I I- + 1.05 I I I II + 1 I I I II + .95 I I I II + .9 I I I II + .85 I I I II + .8 I I I II + .75 I -I I II + .7 I II I II - + .65 I-II I- II - I + .6 I I II -II I I + .55 I I II I I I I + .5 I I II I I I I + .45 I I II I I I I + .4 I I II I I- I I + .35 I I II I I I I + .3 I I II I I-I I + .25 I I-II I I I + .2 I I-I I- I + .15 I I I + .1 I I I + .05 I I- I + + CHANNELS 10 0 1 2 3 4 + 1 1234567890123456789012345678901234567890 + + CONTENTS 1. 1 1 1 11 + 0 0000000000167428615103261000600000000000 + 0 0000000000022139196096606400900000000000 + 0 0000000000550517958111637600900000000000 + 0 0000000000175387127586448100100000000000 + + LOW-EDGE -------------------- + 1. 21111111111 1111111111 + 0 0987654321098765432101234567890123456789 + + * ENTRIES = 14111 * ALL CHANNELS = 0.1172E+02 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.1000E+00 * MEAN VALUE =-0.2857E+00 * R . M . S = 0.4808E+00 +1 Zona 5 : YAP 2 : Distribuzione profondita energia ceduta + + HBOOK ID = 105 DATE 31/08/94 NO = 5 + + 2.5 - + 2.4 I + 2.3 I + 2.2 I + 2.1 I + 2 I + 1.9 I + 1.8 I + 1.7 I + 1.6 I + 1.5 I + 1.4 I + 1.3 I + 1.2 I + 1.1 I - + 1 I I + .9 I I + .8 I I - + .7 I - I I + .6 I -I I- -I + .5 I II -II II + .4 I-II I I --- - II - + .3 I I I I-I I I II- I + .2 I I I I-I-I I I + .1 I I-I I I + + CHANNELS 10 0 1 2 3 4 + 1 1234567890123456789012345678901234567890 + + CONTENTS 1. 2 1 + 0 0000000000435604052333131572030000000000 + 0 0000000000602868185436499731090000000000 + 0 0000000000079911689267780087080000000000 + 0 0000000000232483402311113313030000000000 + + LOW-EDGE -------------------- + 1. 21111111111 1111111111 + 0 0987654321098765432101234567890123456789 + + * ENTRIES = 12111 * ALL CHANNELS = 0.1010E+02 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.1000E+00 * MEAN VALUE =-0.2559E+00 * R . M . S = 0.6074E+00 +1 Zona 6 : YAP 3 : Distribuzione profondita energia ceduta + + HBOOK ID = 106 DATE 31/08/94 NO = 6 + + 2.8 - + 2.7 I + 2.6 I + 2.5 I + 2.4 I + 2.3 I + 2.2 I + 2.1 I + 2 I + 1.9 - I + 1.8 -I I + 1.7 II--I + 1.6 I I + 1.5 I I - + 1.4 I I I + 1.3 I I I - + 1.2 I I I I - + 1.1 I I I I I + 1 I I I I I + .9 I I I I I + .8 I I - I I I + .7 I I-I I I I - + .6 I I-I I- I I + .5 I I II I I + .4 I I -II I-I + .3 I I I I I I + .2 I I-I I-I I + .1 I I + + CHANNELS 10 0 1 2 3 4 + 1 1234567890123456789012345678901234567890 + + CONTENTS 1. 11112 1 1 1 + 0 0000000000786676754132511360000000000000 + 0 0000000000196131360814710590000000000000 + 0 0000000000834934530745367760000000000000 + 0 0000000000634979927224555310000000000000 + + LOW-EDGE -------------------- + 1. 21111111111 1111111111 + 0 0987654321098765432101234567890123456789 + + * ENTRIES = 19809 * ALL CHANNELS = 0.1754E+02 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.1000E+00 * MEAN VALUE =-0.3652E+00 * R . M . S = 0.4783E+00 +1 Zona 7 : YAP 4 : Distribuzione profondita energia ceduta + + HBOOK ID = 107 DATE 31/08/94 NO = 7 + + 1.32 - + 1.28 I + 1.24 I + 1.2 I + 1.16 I + 1.12 I- + 1.08 II + 1.04 II + 1 II + .96 II + .92 II - + .88 II I + .84 II I + .8 II I + .76 II I + .72 II - - I + .68 II I I I + .64 II I - I I + .6 II I I I I + .56 II I I I I + .52 II I -I - I I + .48 II I II I I I + .44 II I II I I I + .4 II-I- II I I I + .36 I I II I I -I + .32 I I-II-I I-II + .28 I I I I + .24 I I I I + .2 I I I I + .16 I I I I + .12 I I I I + .08 I I I I + .04 I I- -I I + + CHANNELS 10 0 1 2 3 4 + 1 1234567890123456789012345678901234567890 + + CONTENTS 1. 11 + 0 0000000000203733462500073380000000000000 + 0 0000000000987170808000200380000000000000 + 0 0000000000543787285350139620000000000000 + 0 0000000000880434313010712960000000000000 + + LOW-EDGE -------------------- + 1. 21111111111 1111111111 + 0 0987654321098765432101234567890123456789 + + * ENTRIES = 9664 * ALL CHANNELS = 0.8294E+01 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.1000E+00 * MEAN VALUE =-0.2995E+00 * R . M . S = 0.5629E+00 +1 Zona 8 : YAP 5 : Distribuzione profondita energia ceduta + + HBOOK ID = 108 DATE 31/08/94 NO = 8 + + 1.48 - + 1.44 I + 1.4 I + 1.36 I + 1.32 I + 1.28 -I + 1.24 II + 1.2 II + 1.16 II + 1.12 II - + 1.08 II I + 1.04 II I + 1 II I + .96 II I + .92 II I - + .88 II I I + .84 II I I - + .8 II I I I - + .76 II I I I- I + .72 II I I II I + .68 II-I I II I + .64 I I I -II I + .6 I I-I I I I + .56 I I I I I + .52 I I I I I + .48 I I I I - I + .44 I I I I -I I + .4 I I I I II I- - + .36 I I I I II II I + .32 I I I I II II I + .28 I I I I II -II I + .24 I I I I-II I I I + .2 I I I I I I I + .16 I I I I I I I + .12 I I-I I I I I + .08 I I I I I + .04 I I I I I + + CHANNELS 10 0 1 2 3 4 + 1 1234567890123456789012345678901234567890 + + CONTENTS 1. 11 1 + 0 0000000000246159168724400273030000000000 + 0 0000000000446091023202700578070000000000 + 0 0000000000211794138003200827000000000000 + 0 0000000000272275674118200095050000000000 + + LOW-EDGE -------------------- + 1. 21111111111 1111111111 + 0 0987654321098765432101234567890123456789 + + * ENTRIES = 14603 * ALL CHANNELS = 0.1114E+02 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.1000E+00 * MEAN VALUE =-0.2907E+00 * R . M . S = 0.5604E+00 +1 Zona 9 : YAP 6 : Distribuzione profondita energia ceduta + + HBOOK ID = 109 DATE 31/08/94 NO = 9 + + 2.1 - + 2.05 I + 2 I + 1.95 I + 1.9 I + 1.85 I + 1.8 - I + 1.75 I I + 1.7 I I + 1.65 I I + 1.6 I I + 1.55 I I + 1.5 I I + 1.45 I I - + 1.4 I I I + 1.35 I - I I + 1.3 I I I I + 1.25 I I I I + 1.2 I I I I + 1.15 I I I I + 1.1 I I I I + 1.05 I I I I + 1 I I- I I + .95 I II I I + .9 I II I I + .85 I II I I - + .8 I-II I- I - I + .75 I I II I I - -I + .7 I I II I -I I II + .65 I I II I II I II + .6 I I II I II I II- + .55 I I II I II I- I I + .5 I I II I II II I I + .45 I I-II I II II I I + .4 I I I-II II I I + .35 I I I I II I I + .3 I I I I II I I + .25 I I I I II I I + .2 I I I I II I I + .15 I I I I II I I + .1 I I-I I II I I + .05 I I II I I + + CHANNELS 10 0 1 2 3 4 + 1 1234567890123456789012345678901234567890 + + CONTENTS 1. 1 1 2 1 + 0 0000000000773940704367075078500000000000 + 0 0000000000594506880659003023800000000000 + 0 0000000000169335068108080074200000000000 + 0 0000000000557031603265009096600000000000 + + LOW-EDGE -------------------- + 1. 21111111111 1111111111 + 0 0987654321098765432101234567890123456789 + + * ENTRIES = 17304 * ALL CHANNELS = 0.1479E+02 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.1000E+00 * MEAN VALUE =-0.2309E+00 * R . M . S = 0.5586E+00 +1 Zona 10 : fughe : Distribuzione lungo asse z + + HBOOK ID = 110 DATE 31/08/94 NO = 10 + + 80 - + 78 I + 76 I + 74 - I + 72 I I + 70 I I + 68 I I + 66 I I + 64 I I + 62 I I + 60 I I + 58 I I + 56 I I + 54 I I + 52 I I + 50 I I + 48 I I + 46 I I + 44 I I + 42 I I + 40 I I + 38 I I + 36 I I + 34 I I + 32 I I + 30 I I + 28 I I + 26 I I + 24 I I + 22 I I + 20 I I + 18 I I + 16 I I + 14 I I + 12 I I + 10 I I + 8 I I + 6 I I + 4 I I + 2 - -I I -- - - + + CHANNELS 100 0 1 + 10 0 1 2 3 4 5 6 7 8 9 0 + 1 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 + + CONTENTS 10 7 7 + 1. 1 3 8 + 0 0000000000000000000000000005300000000000000000000000000000000000000000090150000000000000000000000500 + 0 0000000000000000000000000201800000000000000000000000000000000000000000050810060000000000000000000100 + 0 0000000000000000000000000201500000000000000000000000000000000000000000010510030000000000000000000100 + + LOW-EDGE --------------------------------------------------- + 1. 54444444444333333333322222222221111111111 1111111111222222222233333333334444444444 + 0 0987654321098765432109876543210987654321098765432101234567890123456789012345678901234567890123456789 + + * ENTRIES = 664 * ALL CHANNELS = 0.1551E+03 * UNDERFLOW = 0.7612E+02 * OVERFLOW = 0.7050E+02 + * BIN WID = 0.1000E+00 * MEAN VALUE = 0.8121E-01 * R . M . S = 0.2166E+01 + + ****** HBOOK NO ENTRIES FOR HISTOGRAM ID= 111 +1 Zona 12 : part. uscenti dai rivelatori + + HBOOK ID = 112 DATE 31/08/94 NO = 12 + + 3.8 - + 3.7 I + 3.6 I + 3.5 I + 3.4 I + 3.3 I + 3.2 I + 3.1 I + 3 I + 2.9 I + 2.8 I + 2.7 I + 2.6 I - + 2.5 I I + 2.4 I - I - + 2.3 I I I I + 2.2 I I I I - + 2.1 I I I I I - - + 2 I I I - I I I I + 1.9 I I - I I I I I - I + 1.8 - I I I I I I I I I I + 1.7 I I I I I I I I I I I + 1.6 I I I I I I I I I I I + 1.5 I I I I I I I I I I I + 1.4 I I I I I I I I I I I + 1.3 I I I I I I I I I I I + 1.2 I I I I I I I I I I I- + 1.1 I I I-I I I I I I I II + 1 I I I I I I I I I I II + .9 I I I I I I I I I I II + .8 I I I I I I I I I I II + .7 I I I I I I I I I I II + .6 I I I I I I I I I I II + .5 I I I I I I I I I I II + .4 I I I I I I I I I I II + .3 I I I I I I I I I I II + .2 I I I I I I I I I I II + .1 I I I I I I I I I I II + + CHANNELS 100 0 1 + 10 0 1 2 3 4 5 6 7 8 9 0 + 1 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 + + CONTENTS 1. 1 3 211 2 1 2 2 2 1 21 + *10** 1 0 0000000000000000000000000000070000000700308050090300100000000000080001000000000000000000000000000000 + 0 0000000000000000000000000000070000000700062080060000000400000000080057000000000000000000000000000000 + 0 0000000000000000000000000000050000000300253090010500500500000000040088000000000000000000000000000000 + 0 0000000000000000000000000000050000000900745030070800500500000000000081000000000000000000000000000000 + + LOW-EDGE --------------------------------------------------- + 1. 54444444444333333333322222222221111111111 1111111111222222222233333333334444444444 + 0 0987654321098765432109876543210987654321098765432101234567890123456789012345678901234567890123456789 + + * ENTRIES = 14 * ALL CHANNELS = 0.2687E+01 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.1000E+00 * MEAN VALUE =-0.1552E+00 * R . M . S = 0.1130E+01 +1 Distribuzione angolo decadimento positroni + + HBOOK ID = 501 DATE 31/08/94 NO = 13 + + 390 - + 380 I + 370 I + 360 I + 350 I + 340 I + 330 I + 320 I + 310 I + 300 I + 290 I + 280 I + 270 I + 260 I + 250 I + 240 I + 230 I + 220 I + 210 I + 200 I + 190 I + 180 I + 170 I + 160 I + 150 I + 140 I + 130 I + 120 I + 110 I + 100 I + 90 I + 80 I + 70 I + 60 I + 50 I + 40 I + 30 I + 20 I + 10 ---- ----- - - I + + CHANNELS 10 0 1 2 3 4 5 6 7 + 1 123456789012345678901234567890123456789012345678901234567890123456789012 + + CONTENTS 100 3 + 10 8 + 1. 1111 11211 1 1 8 + + LOW-EDGE 1. 111111111112222222222223333333333344444444444455555555555666 + 0 001234566789012334567890012345677890123445678900123456778901234456789011 + 0 087643219875432098754310986542109765421087653219876432198754320986543109 + 0 074186307529631852074186307529631852074186307529631852074186307529631852 + 0 024791368024791368024791368024791368024791368024791368024791368024791368 + + * ENTRIES = 400 * ALL CHANNELS = 0.4000E+03 * UNDERFLOW = 0.0000E+00 * OVERFLOW = 0.0000E+00 + * BIN WID = 0.8722E-01 * MEAN VALUE = 0.3153E+01 * R . M . S = 0.1866E+00 +1 Zona 1 : H2O r=0.5cm : Distribuzione energia ceduta nel piano x-y + + HBOOK ID = 201 DATE 31/08/94 NO = 14 + + CHANNELS 100 U 0 1 O + 10 N 0 1 2 3 4 5 6 7 8 9 0 V + 1 D 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 E + ************************************************************************************************************ + OVE * * OVE + 9.8 * * 100 + 9.6 * * 99 + 9.4 * * 98 + 9.2 * * 97 + 9 * * 96 + 8.8 * * 95 + 8.6 * * 94 + 8.4 * * 93 + 8.2 * * 92 + 8 * * 91 + 7.8 * * 90 + 7.6 * * 89 + 7.4 * * 88 + 7.2 * * 87 + 7 * * 86 + 6.8 * * 85 + 6.6 * * 84 + 6.4 * * 83 + 6.2 * * 82 + 6 * * 81 + 5.8 * * 80 + 5.6 * * 79 + 5.4 * * 78 + 5.2 * * 77 + 5 * * 76 + 4.8 * * 75 + 4.6 * * 74 + 4.4 * * 73 + 4.2 * * 72 + 4 * * 71 + 3.8 * * 70 + 3.6 * * 69 + 3.4 * * 68 + 3.2 * * 67 + 3 * * 66 + 2.8 * * 65 + 2.6 * * 64 + 2.4 * * 63 + 2.2 * * 62 + 2 * * 61 + 1.8 * . . * 60 + 1.6 * . . * 59 + 1.4 * . . . * 58 + 1.2 * . . * 57 + 1 * . . .. . . * 56 + .8 * . . . . . * 55 + .6 * . . .. .... . * 54 + .4 * ... ..... . * 53 + .2 * . . .+67+ . . . * 52 + * . ..7**7. . .. * 51 + - .2 * ...7**6.. * 50 + - .4 * ...87.. . * 49 + - .6 * ... ..... .. * 48 + - .8 * .. . ... . * 47 + - 1 * . .. .. . . * 46 + - 1.2 * . . ... * 45 + - 1.4 * . . .. . * 44 + - 1.6 * .. . . . . * 43 + - 1.8 * . . * 42 + - 2 * .. . * 41 + - 2.2 * * 40 + - 2.4 * * 39 + - 2.6 * * 38 + - 2.8 * * 37 + - 3 * * 36 + - 3.2 * * 35 + - 3.4 * * 34 + - 3.6 * * 33 + - 3.8 * * 32 + - 4 * * 31 + - 4.2 * * 30 + - 4.4 * * 29 + - 4.6 * * 28 + - 4.8 * * 27 + - 5 * * 26 + - 5.2 * * 25 + - 5.4 * * 24 + - 5.6 * * 23 + - 5.8 * * 22 + - 6 * * 21 + - 6.2 * * 20 + - 6.4 * * 19 + - 6.6 * * 18 + - 6.8 * * 17 + - 7 * * 16 + - 7.2 * * 15 + - 7.4 * * 14 + - 7.6 * * 13 + - 7.8 * * 12 + - 8 * * 11 + - 8.2 * * 10 + - 8.4 * * 9 + - 8.6 * * 8 + - 8.8 * * 7 + - 9 * * 6 + - 9.2 * * 5 + - 9.4 * * 4 + - 9.6 * * 3 + - 9.8 * * 2 + - 10 * * 1 + UND * * UND + ************************************************************************************************************ + LOW-EDGE --------------------------------------------------- + 10 1 + 1. 0999998888877777666665555544444333332222211111 111112222233333444445555566666777778888899999 + 0 0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468 + + * I I + * ENTRIES = 43606 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 417.553I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 Zona 2 : Al r=0.5cm : Distribuzione energia ceduta nel piano x-y + + HBOOK ID = 202 DATE 31/08/94 NO = 15 + + CHANNELS 100 U 0 1 O + 10 N 0 1 2 3 4 5 6 7 8 9 0 V + 1 D 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 E + ************************************************************************************************************ + OVE * * OVE + 9.8 * * 100 + 9.6 * * 99 + 9.4 * * 98 + 9.2 * * 97 + 9 * * 96 + 8.8 * * 95 + 8.6 * * 94 + 8.4 * * 93 + 8.2 * * 92 + 8 * * 91 + 7.8 * * 90 + 7.6 * * 89 + 7.4 * * 88 + 7.2 * * 87 + 7 * * 86 + 6.8 * * 85 + 6.6 * * 84 + 6.4 * * 83 + 6.2 * * 82 + 6 * * 81 + 5.8 * * 80 + 5.6 * * 79 + 5.4 * * 78 + 5.2 * * 77 + 5 * * 76 + 4.8 * * 75 + 4.6 * * 74 + 4.4 * * 73 + 4.2 * * 72 + 4 * * 71 + 3.8 * * 70 + 3.6 * * 69 + 3.4 * * 68 + 3.2 * * 67 + 3 * * 66 + 2.8 * * 65 + 2.6 * * 64 + 2.4 * .. * 63 + 2.2 * .... . . * 62 + 2 * . .. . * 61 + 1.8 * ... .. .. * 60 + 1.6 * . . * 59 + 1.4 * .. . * 58 + 1.2 * . . * 57 + 1 * . . * 56 + .8 * . . * 55 + .6 * . .. * 54 + .4 * . .. * 53 + .2 * . . * 52 + * . . * 51 + - .2 * . .. * 50 + - .4 * . * 49 + - .6 * . * 48 + - .8 * .. .. * 47 + - 1 * . . * 46 + - 1.2 * . * 45 + - 1.4 * . * 44 + - 1.6 * . . * 43 + - 1.8 * .. .. . * 42 + - 2 * .. . . * 41 + - 2.2 * .. . . . .. .. * 40 + - 2.4 * . . . * 39 + - 2.6 * * 38 + - 2.8 * * 37 + - 3 * * 36 + - 3.2 * * 35 + - 3.4 * * 34 + - 3.6 * * 33 + - 3.8 * * 32 + - 4 * * 31 + - 4.2 * * 30 + - 4.4 * * 29 + - 4.6 * * 28 + - 4.8 * * 27 + - 5 * * 26 + - 5.2 * * 25 + - 5.4 * * 24 + - 5.6 * * 23 + - 5.8 * * 22 + - 6 * * 21 + - 6.2 * * 20 + - 6.4 * * 19 + - 6.6 * * 18 + - 6.8 * * 17 + - 7 * * 16 + - 7.2 * * 15 + - 7.4 * * 14 + - 7.6 * * 13 + - 7.8 * * 12 + - 8 * * 11 + - 8.2 * * 10 + - 8.4 * * 9 + - 8.6 * * 8 + - 8.8 * * 7 + - 9 * * 6 + - 9.2 * * 5 + - 9.4 * * 4 + - 9.6 * * 3 + - 9.8 * * 2 + - 10 * * 1 + UND * * UND + ************************************************************************************************************ + LOW-EDGE --------------------------------------------------- + 10 1 + 1. 0999998888877777666665555544444333332222211111 111112222233333444445555566666777778888899999 + 0 0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468 + + * I I + * ENTRIES = 5242 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 13.227I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 Zona 3 : Aria Distribuzione energia ceduta nel piano x-y + + HBOOK ID = 203 DATE 31/08/94 NO = 16 + + CHANNELS 100 U 0 1 O + 10 N 0 1 2 3 4 5 6 7 8 9 0 V + 1 D 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 E + ************************************************************************************************************ + OVE * * OVE + 9.8 * * 100 + 9.6 * * 99 + 9.4 * * 98 + 9.2 * * 97 + 9 * * 96 + 8.8 * * 95 + 8.6 * * 94 + 8.4 * * 93 + 8.2 * * 92 + 8 * * 91 + 7.8 * * 90 + 7.6 * * 89 + 7.4 * * 88 + 7.2 * * 87 + 7 * * 86 + 6.8 * * 85 + 6.6 * * 84 + 6.4 * * 83 + 6.2 * * 82 + 6 * * 81 + 5.8 * * 80 + 5.6 * * 79 + 5.4 * * 78 + 5.2 * * 77 + 5 * * 76 + 4.8 * * 75 + 4.6 * * 74 + 4.4 * * 73 + 4.2 * * 72 + 4 * * 71 + 3.8 * * 70 + 3.6 * * 69 + 3.4 * * 68 + 3.2 * * 67 + 3 * * 66 + 2.8 * * 65 + 2.6 * * 64 + 2.4 * * 63 + 2.2 * * 62 + 2 * * 61 + 1.8 * * 60 + 1.6 * * 59 + 1.4 * * 58 + 1.2 * * 57 + 1 * * 56 + .8 * * 55 + .6 * * 54 + .4 * * 53 + .2 * * 52 + * * 51 + - .2 * * 50 + - .4 * * 49 + - .6 * * 48 + - .8 * * 47 + - 1 * * 46 + - 1.2 * * 45 + - 1.4 * * 44 + - 1.6 * * 43 + - 1.8 * * 42 + - 2 * * 41 + - 2.2 * * 40 + - 2.4 * * 39 + - 2.6 * * 38 + - 2.8 * * 37 + - 3 * * 36 + - 3.2 * * 35 + - 3.4 * * 34 + - 3.6 * * 33 + - 3.8 * * 32 + - 4 * * 31 + - 4.2 * * 30 + - 4.4 * * 29 + - 4.6 * * 28 + - 4.8 * * 27 + - 5 * * 26 + - 5.2 * * 25 + - 5.4 * * 24 + - 5.6 * * 23 + - 5.8 * * 22 + - 6 * * 21 + - 6.2 * * 20 + - 6.4 * * 19 + - 6.6 * * 18 + - 6.8 * * 17 + - 7 * * 16 + - 7.2 * * 15 + - 7.4 * * 14 + - 7.6 * * 13 + - 7.8 * * 12 + - 8 * * 11 + - 8.2 * * 10 + - 8.4 * * 9 + - 8.6 * * 8 + - 8.8 * * 7 + - 9 * * 6 + - 9.2 * * 5 + - 9.4 * * 4 + - 9.6 * * 3 + - 9.8 * * 2 + - 10 * * 1 + UND * * UND + ************************************************************************************************************ + LOW-EDGE --------------------------------------------------- + 10 1 + 1. 0999998888877777666665555544444333332222211111 111112222233333444445555566666777778888899999 + 0 0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468 + + * I I + * ENTRIES = 715 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 Zona 4 : YAP 1 Distribuzione energia ceduta nel piano del yap + + HBOOK ID = 204 DATE 31/08/94 NO = 17 + + CHANNELS 10 U 0 1 2 3 4 5 6 7 O + 1 N 1234567890123456789012345678901234567890123456789012345678901234567890 V + ****************************************************************************** + OVE * * OVE + 2.04 * . * 70 + 1.98 * . * 69 + 1.92 * . * 68 + 1.86 * . . * 67 + 1.8 * . . . * 66 + 1.74 * . . * 65 + 1.68 * . * 64 + 1.62 * * 63 + 1.56 * * 62 + 1.5 * . * 61 + 1.44 * . * 60 + 1.38 * * 59 + 1.32 * .. . . * 58 + 1.26 * . * 57 + 1.2 * . * 56 + 1.14 * . * 55 + 1.08 * * 54 + 1.02 * . * 53 + .96 * . .. * 52 + .9 * * 51 + .84 * . * 50 + .78 * . * 49 + .72 * * 48 + .66 * * 47 + .6 * . . * 46 + .54 * . * 45 + .48 * * 44 + .42 * * 43 + .36 * . * 42 + .3 * . . * 41 + .24 * . * 40 + .18 * * 39 + .12 * * 38 + .06 * * 37 + * . * 36 + - .06 * . * 35 + - .12 * . * 34 + - .18 * * 33 + - .24 * . * 32 + - .3 * . . * 31 + - .36 * . * 30 + - .42 * .. . . * 29 + - .48 * * 28 + - .54 * * 27 + - .6 * . * 26 + - .66 * * 25 + - .72 * . * 24 + - .78 * . * 23 + - .84 * .. . * 22 + - .9 * * 21 + - .96 * . * 20 + - 1.02 * . . * 19 + - 1.08 * . . * 18 + - 1.14 * . . * 17 + - 1.2 * . * 16 + - 1.26 * . . * 15 + - 1.32 * . * 14 + - 1.38 * * 13 + - 1.44 * . . * 12 + - 1.5 * * 11 + - 1.56 * * 10 + - 1.62 * . * 9 + - 1.68 * * 8 + - 1.74 * . * 7 + - 1.8 * . * 6 + - 1.86 * . * 5 + - 1.92 * * 4 + - 1.98 * * 3 + - 2.04 * * 2 + - 2.1 * * 1 + UND * * UND + ****************************************************************************** + LOW-EDGE ------------------------------------ + 1. 2211111111111111111 111111111111111112 + 0 1099887665543322100998776654433211000112334456677899001223345566788990 + 0 0482604826048260482604826048260482606284062840628406284062840628406284 + + * I I + * ENTRIES = 14111 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 11.717I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 Zona 5 : YAP 2 Distribuzione energia ceduta nel piano del yap + + HBOOK ID = 205 DATE 31/08/94 NO = 18 + + CHANNELS 10 U 0 1 2 3 4 5 6 7 O + 1 N 1234567890123456789012345678901234567890123456789012345678901234567890 V + ****************************************************************************** + OVE * * OVE + 2.04 * * 70 + 1.98 * * 69 + 1.92 * * 68 + 1.86 * * 67 + 1.8 * * 66 + 1.74 * . * 65 + 1.68 * * 64 + 1.62 * * 63 + 1.56 * * 62 + 1.5 * . * 61 + 1.44 * . * 60 + 1.38 * . . . * 59 + 1.32 * .. * 58 + 1.26 * . * 57 + 1.2 * * 56 + 1.14 * . * 55 + 1.08 * * 54 + 1.02 * * 53 + .96 * . * 52 + .9 * . * 51 + .84 * * 50 + .78 * * 49 + .72 * . * 48 + .66 * . * 47 + .6 * . . * 46 + .54 * . * 45 + .48 * . * 44 + .42 * . * 43 + .36 * * 42 + .3 * . * 41 + .24 * . * 40 + .18 * . * 39 + .12 * . * 38 + .06 * . * 37 + * * 36 + - .06 * * 35 + - .12 * .. * 34 + - .18 * . * 33 + - .24 * . * 32 + - .3 * * 31 + - .36 * . * 30 + - .42 * . * 29 + - .48 * * 28 + - .54 * * 27 + - .6 * . * 26 + - .66 * . * 25 + - .72 * . * 24 + - .78 * * 23 + - .84 * . . * 22 + - .9 * . . * 21 + - .96 * . * 20 + - 1.02 * * 19 + - 1.08 * . . * 18 + - 1.14 * * 17 + - 1.2 * . . * 16 + - 1.26 * * 15 + - 1.32 * . . * 14 + - 1.38 * . * 13 + - 1.44 * . * 12 + - 1.5 * .. .. * 11 + - 1.56 * . * 10 + - 1.62 * . * 9 + - 1.68 * . * 8 + - 1.74 * * 7 + - 1.8 * * 6 + - 1.86 * * 5 + - 1.92 * . . * 4 + - 1.98 * * 3 + - 2.04 * * 2 + - 2.1 * * 1 + UND * * UND + ****************************************************************************** + LOW-EDGE ------------------------------------ + 1. 2211111111111111111 111111111111111112 + 0 1099887665543322100998776654433211000112334456677899001223345566788990 + 0 0482604826048260482604826048260482606284062840628406284062840628406284 + + * I I + * ENTRIES = 12111 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 10.098I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 Zona 6 : YAP 3 Distribuzione energia ceduta nel piano del yap + + HBOOK ID = 206 DATE 31/08/94 NO = 19 + + CHANNELS 10 U 0 1 2 3 4 5 6 7 O + 1 N 1234567890123456789012345678901234567890123456789012345678901234567890 V + ****************************************************************************** + OVE * * OVE + 2.04 * . * 70 + 1.98 * . . * 69 + 1.92 * * 68 + 1.86 * * 67 + 1.8 * * 66 + 1.74 * . * 65 + 1.68 * . .. . * 64 + 1.62 * * 63 + 1.56 * . * 62 + 1.5 * . * 61 + 1.44 * . * 60 + 1.38 * * 59 + 1.32 * . . . * 58 + 1.26 * ... * 57 + 1.2 * * 56 + 1.14 * . . . * 55 + 1.08 * . . * 54 + 1.02 * * 53 + .96 * . * 52 + .9 * * 51 + .84 * * 50 + .78 * . * 49 + .72 * * 48 + .66 * . * 47 + .6 * . * 46 + .54 * * 45 + .48 * * 44 + .42 * * 43 + .36 * . * 42 + .3 * * 41 + .24 * * 40 + .18 * . .. .. * 39 + .12 * . . . * 38 + .06 * . * 37 + * . . * 36 + - .06 * * 35 + - .12 * . . . * 34 + - .18 * . . . * 33 + - .24 * . * 32 + - .3 * * 31 + - .36 * .. * 30 + - .42 * . * 29 + - .48 * * 28 + - .54 * . * 27 + - .6 * * 26 + - .66 * * 25 + - .72 * . . * 24 + - .78 * . . * 23 + - .84 * .. * 22 + - .9 * . .. * 21 + - .96 * . . * 20 + - 1.02 * * 19 + - 1.08 * * 18 + - 1.14 * * 17 + - 1.2 * . * 16 + - 1.26 * . * 15 + - 1.32 * . . * 14 + - 1.38 * . . . . * 13 + - 1.44 * . * 12 + - 1.5 * * 11 + - 1.56 * . . * 10 + - 1.62 * * 9 + - 1.68 * . * 8 + - 1.74 * . * 7 + - 1.8 * . . * 6 + - 1.86 * . * 5 + - 1.92 * * 4 + - 1.98 * * 3 + - 2.04 * . * 2 + - 2.1 * * 1 + UND * * UND + ****************************************************************************** + LOW-EDGE ------------------------------------ + 1. 2211111111111111111 111111111111111112 + 0 1099887665543322100998776654433211000112334456677899001223345566788990 + 0 0482604826048260482604826048260482606284062840628406284062840628406284 + + * I I + * ENTRIES = 19809 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 17.542I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 Zona 7 : YAP 4 Distribuzione energia ceduta nel piano del yap + + HBOOK ID = 207 DATE 31/08/94 NO = 20 + + CHANNELS 10 U 0 1 2 3 4 5 6 7 O + 1 N 1234567890123456789012345678901234567890123456789012345678901234567890 V + ****************************************************************************** + OVE * * OVE + 2.04 * . * 70 + 1.98 * . * 69 + 1.92 * * 68 + 1.86 * * 67 + 1.8 * .. * 66 + 1.74 * . * 65 + 1.68 * * 64 + 1.62 * . . * 63 + 1.56 * * 62 + 1.5 * . * 61 + 1.44 * * 60 + 1.38 * . * 59 + 1.32 * * 58 + 1.26 * * 57 + 1.2 * . * 56 + 1.14 * . * 55 + 1.08 * * 54 + 1.02 * * 53 + .96 * . . . * 52 + .9 * .. * 51 + .84 * . * 50 + .78 * * 49 + .72 * * 48 + .66 * * 47 + .6 * . * 46 + .54 * * 45 + .48 * . * 44 + .42 * . * 43 + .36 * * 42 + .3 * . . . * 41 + .24 * * 40 + .18 * . .. * 39 + .12 * * 38 + .06 * * 37 + * . * 36 + - .06 * . * 35 + - .12 * . * 34 + - .18 * * 33 + - .24 * * 32 + - .3 * * 31 + - .36 * * 30 + - .42 * . * 29 + - .48 * * 28 + - .54 * . * 27 + - .6 * * 26 + - .66 * * 25 + - .72 * * 24 + - .78 * . * 23 + - .84 * . . * 22 + - .9 * * 21 + - .96 * * 20 + - 1.02 * * 19 + - 1.08 * * 18 + - 1.14 * * 17 + - 1.2 * * 16 + - 1.26 * . . * 15 + - 1.32 * * 14 + - 1.38 * . * 13 + - 1.44 * * 12 + - 1.5 * * 11 + - 1.56 * * 10 + - 1.62 * * 9 + - 1.68 * * 8 + - 1.74 * * 7 + - 1.8 * * 6 + - 1.86 * * 5 + - 1.92 * . * 4 + - 1.98 * . * 3 + - 2.04 * . * 2 + - 2.1 * . * 1 + UND * * UND + ****************************************************************************** + LOW-EDGE ------------------------------------ + 1. 2211111111111111111 111111111111111112 + 0 1099887665543322100998776654433211000112334456677899001223345566788990 + 0 0482604826048260482604826048260482606284062840628406284062840628406284 + + * I I + * ENTRIES = 9664 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 8.294I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 Zona 8 : YAP 5 Distribuzione energia ceduta nel piano del yap + + HBOOK ID = 208 DATE 31/08/94 NO = 21 + + CHANNELS 10 U 0 1 2 3 4 5 6 7 O + 1 N 1234567890123456789012345678901234567890123456789012345678901234567890 V + ****************************************************************************** + OVE * * OVE + 2.04 * * 70 + 1.98 * * 69 + 1.92 * * 68 + 1.86 * . . * 67 + 1.8 * . * 66 + 1.74 * * 65 + 1.68 * . * 64 + 1.62 * . . . * 63 + 1.56 * . . * 62 + 1.5 * . * 61 + 1.44 * * 60 + 1.38 * . .. * 59 + 1.32 * . * 58 + 1.26 * . * 57 + 1.2 * . * 56 + 1.14 * * 55 + 1.08 * . * 54 + 1.02 * . * 53 + .96 * * 52 + .9 * . * 51 + .84 * * 50 + .78 * . * 49 + .72 * * 48 + .66 * * 47 + .6 * * 46 + .54 * . * 45 + .48 * . . . . . * 44 + .42 * . . * 43 + .36 * . . * 42 + .3 * . . * 41 + .24 * . . . * 40 + .18 * . . * 39 + .12 * . . . * 38 + .06 * . * 37 + * * 36 + - .06 * . * 35 + - .12 * . . * 34 + - .18 * . . * 33 + - .24 * .. . * 32 + - .3 * * 31 + - .36 * . * 30 + - .42 * . . * 29 + - .48 * * 28 + - .54 * * 27 + - .6 * . . * 26 + - .66 * * 25 + - .72 * . * 24 + - .78 * * 23 + - .84 * . * 22 + - .9 * * 21 + - .96 * * 20 + - 1.02 * * 19 + - 1.08 * * 18 + - 1.14 * * 17 + - 1.2 * .. * 16 + - 1.26 * * 15 + - 1.32 * .. * 14 + - 1.38 * * 13 + - 1.44 * * 12 + - 1.5 * * 11 + - 1.56 * * 10 + - 1.62 * * 9 + - 1.68 * * 8 + - 1.74 * . * 7 + - 1.8 * . . * 6 + - 1.86 * * 5 + - 1.92 * * 4 + - 1.98 * . .. * 3 + - 2.04 * * 2 + - 2.1 * * 1 + UND * * UND + ****************************************************************************** + LOW-EDGE ------------------------------------ + 1. 2211111111111111111 111111111111111112 + 0 1099887665543322100998776654433211000112334456677899001223345566788990 + 0 0482604826048260482604826048260482606284062840628406284062840628406284 + + * I I + * ENTRIES = 14603 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 11.135I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 Zona 9 : YAP 6 Distribuzione energia ceduta nel piano del yap + + HBOOK ID = 209 DATE 31/08/94 NO = 22 + + CHANNELS 10 U 0 1 2 3 4 5 6 7 O + 1 N 1234567890123456789012345678901234567890123456789012345678901234567890 V + ****************************************************************************** + OVE * * OVE + 2.04 * . * 70 + 1.98 * * 69 + 1.92 * * 68 + 1.86 * . . * 67 + 1.8 * . . . * 66 + 1.74 * * 65 + 1.68 * . * 64 + 1.62 * . * 63 + 1.56 * .. .. . * 62 + 1.5 * * 61 + 1.44 * * 60 + 1.38 * * 59 + 1.32 * * 58 + 1.26 * . * 57 + 1.2 * .. * 56 + 1.14 * . * 55 + 1.08 * * 54 + 1.02 * . * 53 + .96 * . . * 52 + .9 * . * 51 + .84 * . * 50 + .78 * * 49 + .72 * . * 48 + .66 * . . * 47 + .6 * * 46 + .54 * . * 45 + .48 * . . * 44 + .42 * * 43 + .36 * . * 42 + .3 * . .. * 41 + .24 * . . * 40 + .18 * . . . * 39 + .12 * . * 38 + .06 * * 37 + * . * 36 + - .06 * . . . * 35 + - .12 * * 34 + - .18 * * 33 + - .24 * . + * 32 + - .3 * * 31 + - .36 * .. . * 30 + - .42 * . * 29 + - .48 * . . * 28 + - .54 * * 27 + - .6 * * 26 + - .66 * * 25 + - .72 * . . * 24 + - .78 * . * 23 + - .84 * * 22 + - .9 * . * 21 + - .96 * . . . * 20 + - 1.02 * . * 19 + - 1.08 * . . . * 18 + - 1.14 * . * 17 + - 1.2 * . * 16 + - 1.26 * . * 15 + - 1.32 * * 14 + - 1.38 * . * 13 + - 1.44 * . * 12 + - 1.5 * * 11 + - 1.56 * . * 10 + - 1.62 * * 9 + - 1.68 * * 8 + - 1.74 * * 7 + - 1.8 * * 6 + - 1.86 * . * 5 + - 1.92 * * 4 + - 1.98 * * 3 + - 2.04 * . * 2 + - 2.1 * * 1 + UND * * UND + ****************************************************************************** + LOW-EDGE ------------------------------------ + 1. 2211111111111111111 111111111111111112 + 0 1099887665543322100998776654433211000112334456677899001223345566788990 + 0 0482604826048260482604826048260482606284062840628406284062840628406284 + + * I I + * ENTRIES = 17304 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 14.788I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 Zona 10 : fughe dal sistema : distribuzione in x-y + + HBOOK ID = 210 DATE 31/08/94 NO = 23 + + CHANNELS 10 U 0 1 2 3 4 5 6 7 O + 1 N 1234567890123456789012345678901234567890123456789012345678901234567890 V + ****************************************************************************** + OVE * * . .... . . .. . .. .. . * * OVE + 2.04 * * 70 + 1.98 * . * 69 + 1.92 * . . * 68 + 1.86 * . . * 67 + 1.8 * . . . * 66 + 1.74 * . . * 65 + 1.68 * . * 64 + 1.62 * . . . . * 63 + 1.56 * .. * 62 + 1.5 * . . . . * 61 + 1.44 * . . . . . . . * 60 + 1.38 * . . . . * 59 + 1.32 * . . * 58 + 1.26 * . . . . . . . * 57 + 1.2 * . * 56 + 1.14 * . . . . + . * 55 + 1.08 * . . . * 54 + 1.02 * . . . .. . . * 53 + .96 * . . . . * 52 + .9 * . . .. . . * 51 + .84 * . .. . . * 50 + .78 * . . . . . . . * 49 + .72 * . . * 48 + .66 * . * 47 + .6 * . . . . . . * 46 + .54 * . . . . * 45 + .48 * . . . * 44 + .42 * . . . * 43 + .36 * . . . . . . +. . * 42 + .3 * . . . * 41 + .24 * . . * 40 + .18 * . . . . . . + * 39 + .12 * . . . . * 38 + .06 * . .+.. . . . * 37 + * . . . . . . * 36 + - .06 * . . . . * 35 + - .12 * . .. . . . . . * 34 + - .18 * . . . . . . . . * 33 + - .24 * . .. .. . * 32 + - .3 * . . . . . . . . . * 31 + - .36 * . . . .. . * 30 + - .42 * + . . . . * 29 + - .48 * . . . . . + * 28 + - .54 * . . . . * 27 + - .6 * . . . . * 26 + - .66 * . . . . . * 25 + - .72 * . . * 24 + - .78 * . . . . . * 23 + - .84 * . . . . . * 22 + - .9 * . . . . . * 21 + - .96 * + . * 20 + - 1.02 * . . . . + * 19 + - 1.08 * .. . * 18 + - 1.14 * . . . . * 17 + - 1.2 * . . . * 16 + - 1.26 * . * 15 + - 1.32 * . . . . . * 14 + - 1.38 * . . * 13 + - 1.44 * . . . . * 12 + - 1.5 * . . . * 11 + - 1.56 * . + . * 10 + - 1.62 * . . . * 9 + - 1.68 * . . . * 8 + - 1.74 * . . * 7 + - 1.8 * * 6 + - 1.86 * . * 5 + - 1.92 * . * 4 + - 1.98 * . . * 3 + - 2.04 * . . * 2 + - 2.1 * . . * 1 + UND * * . . . .... . .. + . . + . * * UND + ****************************************************************************** + LOW-EDGE ------------------------------------ + 1. 2211111111111111111 111111111111111112 + 0 1099887665543322100998776654433211000112334456677899001223345566788990 + 0 0482604826048260482604826048260482606284062840628406284062840628406284 + + * 40.243I 6.919I 39.326 + * ENTRIES = 664 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY 6.184I 116.612I 5.935 + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 39.356I 8.385I 38.8 + + ****** HBOOK NO ENTRIES FOR HISTOGRAM ID= 211 +1 Zona 12 : uscite dai rivelatori distribuzione x-y + + HBOOK ID = 212 DATE 31/08/94 NO = 25 + + CHANNELS 100 U 0 1 O + 10 N 0 1 2 3 4 5 6 7 8 9 0 V + 1 D 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 E + ************************************************************************************************************ + OVE * * OVE + 9.8 * * 100 + 9.6 * * 99 + 9.4 * * 98 + 9.2 * * 97 + 9 * * 96 + 8.8 * * 95 + 8.6 * * 94 + 8.4 * * 93 + 8.2 * * 92 + 8 * * 91 + 7.8 * * 90 + 7.6 * * 89 + 7.4 * * 88 + 7.2 * * 87 + 7 * * 86 + 6.8 * * 85 + 6.6 * * 84 + 6.4 * * 83 + 6.2 * * 82 + 6 * * 81 + 5.8 * * 80 + 5.6 * * 79 + 5.4 * * 78 + 5.2 * * 77 + 5 * * 76 + 4.8 * * 75 + 4.6 * * 74 + 4.4 * * 73 + 4.2 * * 72 + 4 * * 71 + 3.8 * * 70 + 3.6 * * 69 + 3.4 * * 68 + 3.2 * . * 67 + 3 * * 66 + 2.8 * . * 65 + 2.6 * . * 64 + 2.4 * . * 63 + 2.2 * * 62 + 2 * * 61 + 1.8 * * 60 + 1.6 * * 59 + 1.4 * . * 58 + 1.2 * * 57 + 1 * . * 56 + .8 * * 55 + .6 * . . * 54 + .4 * * 53 + .2 * * 52 + * * 51 + - .2 * . * 50 + - .4 * * 49 + - .6 * * 48 + - .8 * * 47 + - 1 * . * 46 + - 1.2 * * 45 + - 1.4 * . * 44 + - 1.6 * * 43 + - 1.8 * * 42 + - 2 * * 41 + - 2.2 * * 40 + - 2.4 * * 39 + - 2.6 * * 38 + - 2.8 * * 37 + - 3 * . * 36 + - 3.2 * * 35 + - 3.4 * * 34 + - 3.6 * * 33 + - 3.8 * * 32 + - 4 * * 31 + - 4.2 * . * 30 + - 4.4 * . * 29 + - 4.6 * * 28 + - 4.8 * * 27 + - 5 * * 26 + - 5.2 * * 25 + - 5.4 * * 24 + - 5.6 * * 23 + - 5.8 * * 22 + - 6 * * 21 + - 6.2 * * 20 + - 6.4 * * 19 + - 6.6 * * 18 + - 6.8 * * 17 + - 7 * * 16 + - 7.2 * * 15 + - 7.4 * * 14 + - 7.6 * * 13 + - 7.8 * * 12 + - 8 * * 11 + - 8.2 * * 10 + - 8.4 * * 9 + - 8.6 * * 8 + - 8.8 * * 7 + - 9 * * 6 + - 9.2 * * 5 + - 9.4 * * 4 + - 9.6 * * 3 + - 9.8 * * 2 + - 10 * * 1 + UND * * UND + ************************************************************************************************************ + LOW-EDGE --------------------------------------------------- + 10 1 + 1. 0999998888877777666665555544444333332222211111 111112222233333444445555566666777778888899999 + 0 0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468 + + * I I + * ENTRIES = 14 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 2.687I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 DISTRIBUZIONE R-Z , PESATA SU ENERGIA -- + + HBOOK ID = 700 DATE 31/08/94 NO = 26 + + CHANNELS 100 U 0 1 O + 10 N 0 1 2 3 4 5 6 7 8 9 0 V + 1 D 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 E + ************************************************************************************************************ + OVE * . * * OVE + 2.8 * * 30 + 2.6 * . * 29 + 2.4 * . * 28 + 2.2 * . * 27 + 2 * +435853849433 ++3+2+.+.. * 26 + 1.8 * .. . .. . ... ... * 25 + 1.6 * . . . .. . ...+.. .. . * 24 + 1.4 * .... . . ...... .. . * 23 + 1.2 * ... .. ... ...+ . . * 22 + 1 * . . . ... ..+ .. .. . * 21 + .8 * ... .. +.... .. * 20 + .6 * .... . ... .... . . . * 19 + .4 * ... . .... +.... .... * 18 + .2 * A3+ ........ ..+.+ ...+ * 17 + * **.... ..... ...+.. ... . * 16 + - .2 * *Z.... . ... ...+..... * 15 + - .4 * I2...... . .. ...++.. . .. * 14 + - .6 * .......... + .... * 13 + - .8 * .... .... . ....... . * 12 + - 1 * ... .. .. ..+... .. . * 11 + - 1.2 * .. ... ... .+.. . * 10 + - 1.4 * . ........ .+... .. . * 9 + - 1.6 * . .... ..+. * 8 + - 1.8 * .. . . . . ... . . * 7 + - 2 * . . ..... .. * 6 + - 2.2 * +333684863432 .42.+2.++.. * 5 + - 2.4 * . * 4 + - 2.6 * + * 3 + - 2.8 * * 2 + - 3 * * 1 + UND * . . . * * UND + ************************************************************************************************************ + LOW-EDGE --------------------------------------------------- + 10 1 + 1. 0999998888877777666665555544444333332222211111 111112222233333444445555566666777778888899999 + 0 0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468 + + * I .214I 70.8 + * ENTRIES = 137843 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 661.67 I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I .607I 75.512 +1 DISTRIBUZIONE x-y , PESATA SU ENERGIA -- + + HBOOK ID = 701 DATE 31/08/94 NO = 27 + + CHANNELS 100 U 0 1 O + 10 N 0 1 2 3 4 5 6 7 8 9 0 V + 1 D 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 E + ************************************************************************************************************ + OVE * Y . * * OVE + 9.8 * * 100 + 9.6 * * 99 + 9.4 * * 98 + 9.2 * * 97 + 9 * * 96 + 8.8 * * 95 + 8.6 * * 94 + 8.4 * * 93 + 8.2 * * 92 + 8 * . * 91 + 7.8 * * 90 + 7.6 * * 89 + 7.4 * * 88 + 7.2 * * 87 + 7 * * 86 + 6.8 * * 85 + 6.6 * * 84 + 6.4 * * 83 + 6.2 * * 82 + 6 * * 81 + 5.8 * * 80 + 5.6 * * 79 + 5.4 * . * 78 + 5.2 * . * 77 + 5 * . + * 76 + 4.8 * . . . . * 75 + 4.6 * . . . . . . .. . * 74 + 4.4 * . . .. . . . . * 73 + 4.2 * . . . . . . * 72 + 4 * . . . . .. .. . . * 71 + 3.8 * ... .. .... .. . .. . * 70 + 3.6 * . . . .. .. . . . ... * 69 + 3.4 * . .. . . ..+ . . * 68 + 3.2 * . .. ... . * 67 + 3 * . . . .. .. * 66 + 2.8 * . . ... . . . * 65 + 2.6 * . .. . + .. * 64 + 2.4 * ..... ... .+ . * 63 + 2.2 * . ...... . . . * 62 + 2 * . ... . . * 61 + 1.8 * . .. ......+.. .. .. . . . * 60 + 1.6 * . . . .. . . .... . * 59 + 1.4 * .. .. ... .+ ++. ... .. . . * 58 + 1.2 * . . . . . .++ . ... . . * 57 + 1 * . . . ... ....+ .+ +.... . . ... * 56 + .8 * . . . . .. .+.+.. . .+... . * 55 + .6 * . . . . .....+... ... .. . ... . * 54 + .4 * . .. .........+. +.... . . * 53 + .2 * . . . . ......++77+.+.+ . . . . * 52 + * . . .. +2..8**8. + .... . ... * 51 + - .2 * . . . .. . +..+8**7...+. ... . . * 50 + - .4 * .. . . . . ...+88++ +. + . . .. * 49 + - .6 * . .... +..... +.. .. + .. . * 48 + - .8 * .... ... .. +..+ ... ... . .. . * 47 + - 1 * . . . .. +.. +.+..... . .+.. . . . * 46 + - 1.2 * .. . . . . .+. +... . . ...... * 45 + - 1.4 * . . . . .. ... .. . . . * 44 + - 1.6 * ... . . ....2.. . + . . . . * 43 + - 1.8 * .. .. ... . . . . . * 42 + - 2 * . .. .... . . . . * 41 + - 2.2 * . ..+ . . . .. .. . * 40 + - 2.4 * . . .... .. * 39 + - 2.6 * .. ... * 38 + - 2.8 * . .. . .. . * 37 + - 3 * .. . . . . . * 36 + - 3.2 * . . . * 35 + - 3.4 * . . .. . .. .. . .. * 34 + - 3.6 * . . ... .. + ... * 33 + - 3.8 * . . . . . ... .. . . * 32 + - 4 * . . . .... . . * 31 + - 4.2 * .. .. .. .... .. .. * 30 + - 4.4 * .. ... . .. * 29 + - 4.6 * . . . ... . * 28 + - 4.8 * .. . . . .. . * 27 + - 5 * . ... * 26 + - 5.2 * . * 25 + - 5.4 * . . * 24 + - 5.6 * .. . .. * 23 + - 5.8 * .. * 22 + - 6 * * 21 + - 6.2 * * 20 + - 6.4 * * 19 + - 6.6 * * 18 + - 6.8 * * 17 + - 7 * * 16 + - 7.2 * * 15 + - 7.4 * * 14 + - 7.6 * * 13 + - 7.8 * * 12 + - 8 * * 11 + - 8.2 * * 10 + - 8.4 * * 9 + - 8.6 * * 8 + - 8.8 * * 7 + - 9 * * 6 + - 9.2 * * 5 + - 9.4 * * 4 + - 9.6 * * 3 + - 9.8 * * 2 + - 10 * * 1 + UND * * * * UND + ************************************************************************************************************ + LOW-EDGE --------------------------------------------------- + 10 1 + 1. 0999998888877777666665555544444333332222211111 111112222233333444445555566666777778888899999 + 0 0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468 + + * 34.55 I .511I 36.903 + * ENTRIES = 137843 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY 1.022I 662.491I .502 + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 36.549I I 36.276 +1 DISTRIBUZIONE X-Y PUNTI DECADIMENTO POSITRONE + + HBOOK ID = 400 DATE 31/08/94 NO = 28 + + CHANNELS 100 U 0 1 O + 10 N 0 1 2 3 4 5 6 7 8 9 0 V + 1 D 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 E + ************************************************************************************************************ + OVE * * OVE + 9.8 * * 100 + 9.6 * * 99 + 9.4 * * 98 + 9.2 * * 97 + 9 * * 96 + 8.8 * * 95 + 8.6 * * 94 + 8.4 * * 93 + 8.2 * * 92 + 8 * * 91 + 7.8 * * 90 + 7.6 * * 89 + 7.4 * * 88 + 7.2 * * 87 + 7 * * 86 + 6.8 * * 85 + 6.6 * * 84 + 6.4 * * 83 + 6.2 * * 82 + 6 * * 81 + 5.8 * * 80 + 5.6 * * 79 + 5.4 * * 78 + 5.2 * * 77 + 5 * * 76 + 4.8 * * 75 + 4.6 * * 74 + 4.4 * * 73 + 4.2 * * 72 + 4 * * 71 + 3.8 * * 70 + 3.6 * * 69 + 3.4 * * 68 + 3.2 * * 67 + 3 * * 66 + 2.8 * * 65 + 2.6 * * 64 + 2.4 * * 63 + 2.2 * * 62 + 2 * * 61 + 1.8 * * 60 + 1.6 * * 59 + 1.4 * * 58 + 1.2 * * 57 + 1 * * 56 + .8 * * 55 + .6 * * 54 + .4 * * 53 + .2 * 2GI+ * 52 + * K**K * 51 + - .2 * L**F * 50 + - .4 * 2KH * 49 + - .6 * * 48 + - .8 * * 47 + - 1 * * 46 + - 1.2 * * 45 + - 1.4 * * 44 + - 1.6 * * 43 + - 1.8 * * 42 + - 2 * * 41 + - 2.2 * * 40 + - 2.4 * * 39 + - 2.6 * * 38 + - 2.8 * * 37 + - 3 * * 36 + - 3.2 * * 35 + - 3.4 * * 34 + - 3.6 * * 33 + - 3.8 * * 32 + - 4 * * 31 + - 4.2 * * 30 + - 4.4 * * 29 + - 4.6 * * 28 + - 4.8 * * 27 + - 5 * * 26 + - 5.2 * * 25 + - 5.4 * * 24 + - 5.6 * * 23 + - 5.8 * * 22 + - 6 * * 21 + - 6.2 * * 20 + - 6.4 * * 19 + - 6.6 * * 18 + - 6.8 * * 17 + - 7 * * 16 + - 7.2 * * 15 + - 7.4 * * 14 + - 7.6 * * 13 + - 7.8 * * 12 + - 8 * * 11 + - 8.2 * * 10 + - 8.4 * * 9 + - 8.6 * * 8 + - 8.8 * * 7 + - 9 * * 6 + - 9.2 * * 5 + - 9.4 * * 4 + - 9.6 * * 3 + - 9.8 * * 2 + - 10 * * 1 + UND * * UND + ************************************************************************************************************ + LOW-EDGE --------------------------------------------------- + 10 1 + 1. 0999998888877777666665555544444333332222211111 111112222233333444445555566666777778888899999 + 0 0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468 + + * I I + * ENTRIES = 400 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 400 I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I +1 DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPOSITRONE + + HBOOK ID = 401 DATE 31/08/94 NO = 29 + + CHANNELS 100 U 0 1 O + 10 N 0 1 2 3 4 5 6 7 8 9 0 V + 1 D 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 E + ************************************************************************************************************ + OVE * * OVE + 2.8 * * 30 + 2.6 * * 29 + 2.4 * * 28 + 2.2 * * 27 + 2 * * 26 + 1.8 * * 25 + 1.6 * * 24 + 1.4 * * 23 + 1.2 * * 22 + 1 * * 21 + .8 * * 20 + .6 * * 19 + .4 * * 18 + .2 * IA * 17 + * ** * 16 + - .2 * ** * 15 + - .4 * *C * 14 + - .6 * * 13 + - .8 * * 12 + - 1 * * 11 + - 1.2 * * 10 + - 1.4 * * 9 + - 1.6 * * 8 + - 1.8 * * 7 + - 2 * * 6 + - 2.2 * * 5 + - 2.4 * * 4 + - 2.6 * * 3 + - 2.8 * * 2 + - 3 * * 1 + UND * * UND + ************************************************************************************************************ + LOW-EDGE --------------------------------------------------- + 10 1 + 1. 0999998888877777666665555544444333332222211111 111112222233333444445555566666777778888899999 + 0 0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468 + + * I I + * ENTRIES = 400 PLOT ---------I---------I--------- + * SATURATION AT= INFINITY I 400 I + * SCALE .,+,2,3,.,., A,B, STATISTICS ---------I---------I--------- + * STEP = 1.00 * MINIMUM=0.000E+00 I I + + + ******************************************************** + * NTUPLE ID= 800 ENTRIES= 400 x,y,z punti decadimento del positrone + ******************************************************** + * Var numb * Name * Lower * Upper * + ******************************************************** + * 1 * x-decay * -.323644E+00 * 0.348436E+00 * + * 2 * y-decay * -.330288E+00 * 0.315043E+00 * + * 3 * z-decay * -.359211E+00 * 0.305658E+00 * + ******************************************************** + + + + ******************************************************** + * NTUPLE ID= 801 ENTRIES= 2400 energia persa nei rivelatori a ogni evento + ******************************************************** + * Var numb * Name * Lower * Upper * + ******************************************************** + * 1 * shower * 0.100000E+01 * 0.400000E+03 * + * 2 * rivelat * 0.100000E+01 * 0.600000E+01 * + * 3 * xmedio * -.995210E+00 * 0.989277E+00 * + * 4 * ymedio * -.209082E+01 * 0.208999E+01 * + * 5 * zmedio * -.208330E+01 * 0.205336E+01 * + * 6 * sigmax * -.953674E-06 * 0.860640E+00 * + * 7 * sigmay * -.452995E-05 * 0.115104E+01 * + * 8 * sigmaz * -.381470E-05 * 0.105580E+01 * + * 9 * etot * 0.000000E+00 * 0.101319E+01 * + * 10 * etot-po * 0.000000E+00 * 0.000000E+00 * + * 11 * etot-el * 0.000000E+00 * 0.983505E+00 * + * 12 * etot-ga * 0.000000E+00 * 0.788147E-01 * + * 13 * num-par * 0.000000E+00 * 0.120000E+02 * + * 14 * num-pos * 0.000000E+00 * 0.000000E+00 * + * 15 * num-ele * 0.000000E+00 * 0.100000E+02 * + * 16 * num-gam * 0.000000E+00 * 0.500000E+01 * + ******************************************************** + + + + ===> Directory : //PAWC + 101 (1) Zona 1 : H2O r=2cm : Distribuzione energia ceduta lungo l' asse z + 102 (1) Zona 2 : Al r=0.5cm : Distribuzione energia ceduta lungo l' asse z + 103 (1) Zona 3 : aria : Distribuzione energia ceduta lungo l' asse z + 104 (1) Zona 4 : YAP 1 : Distribuzione profondita energia ceduta + 105 (1) Zona 5 : YAP 2 : Distribuzione profondita energia ceduta + 106 (1) Zona 6 : YAP 3 : Distribuzione profondita energia ceduta + 107 (1) Zona 7 : YAP 4 : Distribuzione profondita energia ceduta + 108 (1) Zona 8 : YAP 5 : Distribuzione profondita energia ceduta + 109 (1) Zona 9 : YAP 6 : Distribuzione profondita energia ceduta + 110 (1) Zona 10 : fughe : Distribuzione lungo asse z + 111 (1) Zona 11 : assorbimenti da parte dei collimatori + 112 (1) Zona 12 : part. uscenti dai rivelatori + 501 (1) Distribuzione angolo decadimento positroni + 201 (2) Zona 1 : H2O r=0.5cm : Distribuzione energia ceduta nel piano x-y + 202 (2) Zona 2 : Al r=0.5cm : Distribuzione energia ceduta nel piano x-y + 203 (2) Zona 3 : Aria Distribuzione energia ceduta nel piano x-y + 204 (2) Zona 4 : YAP 1 Distribuzione energia ceduta nel piano del yap + 205 (2) Zona 5 : YAP 2 Distribuzione energia ceduta nel piano del yap + 206 (2) Zona 6 : YAP 3 Distribuzione energia ceduta nel piano del yap + 207 (2) Zona 7 : YAP 4 Distribuzione energia ceduta nel piano del yap + 208 (2) Zona 8 : YAP 5 Distribuzione energia ceduta nel piano del yap + 209 (2) Zona 9 : YAP 6 Distribuzione energia ceduta nel piano del yap + 210 (2) Zona 10 : fughe dal sistema : distribuzione in x-y + 211 (2) Zona 11 : assorbimento dei collimatori distribuzione x-y + 212 (2) Zona 12 : uscite dai rivelatori distribuzione x-y + 700 (2) DISTRIBUZIONE R-Z , PESATA SU ENERGIA -- + 701 (2) DISTRIBUZIONE x-y , PESATA SU ENERGIA -- + 400 (2) DISTRIBUZIONE X-Y PUNTI DECADIMENTO POSITRONE + 401 (2) DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPOSITRONE + 800 (N) x,y,z punti decadimento del positrone + 801 (N) energia persa nei rivelatori a ogni evento + + + ===> Directory : //topw + 101 (1) Zona 1 : H2O r=2cm : Distribuzione energia ceduta lungo l' asse z + 201 (2) Zona 1 : H2O r=0.5cm : Distribuzione energia ceduta nel piano x-y + 102 (1) Zona 2 : Al r=0.5cm : Distribuzione energia ceduta lungo l' asse z + 202 (2) Zona 2 : Al r=0.5cm : Distribuzione energia ceduta nel piano x-y + 103 (1) Zona 3 : aria : Distribuzione energia ceduta lungo l' asse z + 203 (2) Zona 3 : Aria Distribuzione energia ceduta nel piano x-y + 104 (1) Zona 4 : YAP 1 : Distribuzione profondita energia ceduta + 204 (2) Zona 4 : YAP 1 Distribuzione energia ceduta nel piano del yap + 105 (1) Zona 5 : YAP 2 : Distribuzione profondita energia ceduta + 205 (2) Zona 5 : YAP 2 Distribuzione energia ceduta nel piano del yap + 106 (1) Zona 6 : YAP 3 : Distribuzione profondita energia ceduta + 206 (2) Zona 6 : YAP 3 Distribuzione energia ceduta nel piano del yap + 107 (1) Zona 7 : YAP 4 : Distribuzione profondita energia ceduta + 207 (2) Zona 7 : YAP 4 Distribuzione energia ceduta nel piano del yap + 108 (1) Zona 8 : YAP 5 : Distribuzione profondita energia ceduta + 208 (2) Zona 8 : YAP 5 Distribuzione energia ceduta nel piano del yap + 109 (1) Zona 9 : YAP 6 : Distribuzione profondita energia ceduta + 209 (2) Zona 9 : YAP 6 Distribuzione energia ceduta nel piano del yap + 110 (1) Zona 10 : fughe : Distribuzione lungo asse z + 210 (2) Zona 10 : fughe dal sistema : distribuzione in x-y + 111 (1) Zona 11 : assorbimenti da parte dei collimatori + 211 (2) Zona 11 : assorbimento dei collimatori distribuzione x-y + 112 (1) Zona 12 : part. uscenti dai rivelatori + 212 (2) Zona 12 : uscite dai rivelatori distribuzione x-y + 501 (1) Distribuzione angolo decadimento positroni + 700 (2) DISTRIBUZIONE R-Z , PESATA SU ENERGIA -- + 701 (2) DISTRIBUZIONE x-y , PESATA SU ENERGIA -- + 400 (2) DISTRIBUZIONE X-Y PUNTI DECADIMENTO POSITRONE + 401 (2) DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPOSITRONE + + + ===> Directory : //topw1 + 800 (N) x,y,z punti decadimento del positrone + + + ===> Directory : //topwy + 801 (N) energia persa nei rivelatori a ogni evento + + + ENERGIA TOTALE POSITRONI := 604.4023 MEV + ENERGIA CINETICA TOTALE := 400.0000 MEV + ENERGIA TOTALE DEPOSITATA := 808.8027 MEV + NUMERO POSITRONI := 400 + ENERGIA INIZIALE/DEPOSITATA := 1.338186 + + + + % FRACTION IN REGION 1= 51.62600 MEV: 417.5525 + % FRACTION IN REGION 2= 1.635389 MEV: 13.22707 + % FRACTION IN REGION 3= 0.0000000E+00 MEV: 0.0000000E+00 + % FRACTION IN REGION 4= 1.448668 MEV: 11.71687 + % FRACTION IN REGION 5= 1.248491 MEV: 10.09783 + % FRACTION IN REGION 6= 2.168939 MEV: 17.54244 + % FRACTION IN REGION 7= 1.025467 MEV: 8.294001 + % FRACTION IN REGION 8= 1.376759 MEV: 11.13526 + % FRACTION IN REGION 9= 1.828434 MEV: 14.78842 + % FRACTION IN REGION 10= 37.30964 MEV: 301.7614 + % FRACTION IN REGION 11= 0.0000000E+00 MEV: 0.0000000E+00 + % FRACTION IN REGION 12= 0.3322132 MEV: 2.686949 + + + FRACTION OF ENERGY DEPOSITED IN EACH REGION + region total e+ e- gamma + 1 0.52E+00 0.40E+00 0.12E+00 0.22E-04 + 2 0.16E-01 0.00E+00 0.16E-01 0.77E-05 + 3 0.00E+00 0.00E+00 0.00E+00 0.00E+00 + 4 0.14E-01 0.00E+00 0.13E-01 0.11E-02 + 5 0.12E-01 0.00E+00 0.12E-01 0.86E-03 + 6 0.22E-01 0.00E+00 0.20E-01 0.14E-02 + 7 0.10E-01 0.00E+00 0.96E-02 0.67E-03 + 8 0.14E-01 0.00E+00 0.13E-01 0.74E-03 + 9 0.18E-01 0.00E+00 0.17E-01 0.12E-02 + 10 0.37E+00 0.00E+00 0.22E-02 0.37E+00 + 11 0.00E+00 0.00E+00 0.00E+00 0.00E+00 + 12 0.33E-02 0.00E+00 0.00E+00 0.33E-02 + + + Particelle assorbite in ogni regione + region total e+ e- gamma + 1 2675 388 2254 33 + 2 153 0 149 4 + 3 0 0 0 0 + 4 151 0 111 40 + 5 130 0 98 32 + 6 199 0 155 44 + 7 109 0 88 21 + 8 132 0 110 22 + 9 179 0 145 34 + 10 664 0 13 651 + 11 0 0 0 0 + 12 14 0 0 14 + + + Posizione media energia assorbita: + zona x medio y medio z medio + 1 -0.40736E-02 -0.31444E-02 -0.36204E-02 + 2 0.28076 0.16671 0.80730E-01 + 3 0.00000E+00 0.00000E+00 0.00000E+00 + 10 54.936 -324.88 -111.91 + 11 0.00000E+00 0.00000E+00 0.00000E+00 + + + Posizione media assorbimenti nei rivelatori + zona riv. x medio +- y medio +- z medio +- + 4 1 -0.27489 0.48161 -0.24298 1.1418 0.56094E-01 1.2023 + 5 2 -0.25943 0.60958 -0.56319E-01 0.99200 -0.87325E-01 1.1113 + 6 3 -0.36437 0.47881 -0.35843E-02 1.3305 0.32518E-02 1.1348 + 7 4 -0.30772 0.55651 -0.76755E-01 1.1114 0.12972 1.2142 + 8 5 -0.29308 0.55551 0.29030 1.0569 0.33783 1.0537 + 9 6 -0.23685 0.55988 0.15549 1.2813 0.18729 0.96777 diff --git a/code/input-output/dum.lis b/code/input-output/dum.lis new file mode 100644 index 0000000..924745c --- /dev/null +++ b/code/input-output/dum.lis @@ -0,0 +1,27 @@ + +Directory DISK$PEOPLE:[BOLLINI] + +000README.TXT;4 AUSGABE_CYL_2.FOR;10 AUSGABE_CYL_2.OBJ;6 +COMM_CYLTOT_2.FOR;12 COMM_CYL_2.FOR;4 COMM_YAPS.FOR;8 +COPY04.COM;1 CYL.OUT;357 CYL_2.DAT;28 CYL_2_Y.DAT;4 +CYL_Y.OUT;8 DEFINIZIONI.COM;8 DUM.LIS;1 EGS4CYL.MAN;2 +EGS4FUNL.FOR;1 EGS4FUNL.OBJ;1 EGS4_CYL_2.EXE;163 EGS4_CYL_2.FOR;21 +EGS4_CYL_2.OBJ;7 FOR000.DAT;7 FOR006.DAT;1 FOR010.DAT;1 +FOR020.DAT;1 FOR_CYL_2.COM;7 GUARDA_2.BAK;1 GUARDA_2.FOR;178 +GUARDA_2.OBJ;142 HATCH.OUT;222 HBOOK.OUT;220 HBOOK_Y.OUT;5 +HIGZ_WINDOWS.DAT;1 HISTIN_CYL_2.FOR;5 HISTIN_CYL_2.OBJ;6 HIST_CYL_2.DAT;4 +HIST_CYL_2_Y.DAT;4 HOWFAR_CYL_2.FOR;2 HOWFAR_CYL_2A.FOR;35 +HOWFAR_CYL_2A.OBJ;12 HOWYAPS.FOR;87 HOWYAPS.OBJ;6 +INIT_CYL_2.FOR;14 INIT_CYL_2.OBJ;6 ISTRUZIONI_CYL_2.TXT;4 +LAST.KUMAC;5 LINK_CYL_2.COM;3 LINK_CYL_2_ALPHA.COM;2 +MAT3MEV.DAT;1 NETSERVER.LOG;4 NTUPLE.OUT;218 NTUPLEY.OUT;218 +NTUPLEY_Y.OUT;5 NTUPLE_Y.OUT;5 PETGRACOM.FOR;1 PETGRAF.FOR;203 +PETGRAF.INC;9 PETGRAF.NEW;1 PETGRAF.OBJ;55 PETGRAF.OLD;1 +PETGRAF.ONC;1 PETGRAF_COM.INC;31 PETGRAF_COM.ONC;1 PETGRAF_DATA.INC;10 +PETGRAF_DATA.ONC;1 PETGRAF_HIGZ.INC;18 PETGRAF_HIGZ.ONC;1 PETSUB.FOR;122 +PG_COMM.FOR;2 RUN_CYL_2.COM;10 RUN_CYL_2_Y.COM;8 SETDISPLAY.COM;1 +SOURCE_CYL_2.FOR;3 SOURCE_CYL_2.OBJ;6 STATEND_CYL_2.FOR;19 +STATEND_CYL_2.OBJ;6 UCX$FTPSERVER.LOG;3 YAPS.DAT;13 YAPS.FOR;39 +YAPS.OBJ;6 YAPS_Y.DAT;3 + +Total of 79 files. diff --git a/code/input-output/for000.dat b/code/input-output/for000.dat new file mode 100644 index 0000000..8e29e6b --- /dev/null +++ b/code/input-output/for000.dat @@ -0,0 +1 @@ + ***** ERROR in IACWK : Workstation is not open diff --git a/code/input-output/for006.dat b/code/input-output/for006.dat new file mode 100644 index 0000000..e61aeba --- /dev/null +++ b/code/input-output/for006.dat @@ -0,0 +1,366 @@ +%NONAME-W-NOMSG, Message number 00000000 +%TRACE-W-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +TRACEQ TRACEQ 21 00000052 004E60A2 +ZPOSTM ZPOSTM 55 00000120 004C00A0 +ZABEND ZABEND 12 00000011 004B5E81 +ZFATAL ZFATAL 112 00000287 004A903F +MZLIFT MZLIFT 393 000009BC 004A266C +MZBOOK MZBOOK 74 00000146 004A08DE +HFN HFN 105 00000119 0049E899 +AUSGAB AUSGAB 447 00000B70 00498570 +EGS4CYL EGS4CYL 298 000002D8 004916D8 +%RSX-F-NOMSG, Message number 00068A94 +%TRACE-F-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +ABEND ABEND 10 00000018 004E5378 +ZABEND ZABEND 14 00000020 004B5E90 +ZFATAL ZFATAL 112 00000287 004A903F +MZLIFT MZLIFT 393 000009BC 004A266C +MZBOOK MZBOOK 74 00000146 004A08DE +HFN HFN 105 00000119 0049E899 +AUSGAB AUSGAB 447 00000B70 00498570 +EGS4CYL EGS4CYL 298 000002D8 004916D8 +%NONAME-W-NOMSG, Message number 00000000 +%TRACE-W-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +TRACEQ TRACEQ 21 00000052 004E60A2 +ZPOSTM ZPOSTM 55 00000120 004C00A0 +ZABEND ZABEND 12 00000011 004B5E81 +ZFATAL ZFATAL 112 00000287 004A903F +MZLIFT MZLIFT 393 000009BC 004A266C +MZBOOK MZBOOK 74 00000146 004A08DE +HFN HFN 105 00000119 0049E899 +AUSGAB AUSGAB 447 00000B70 00498570 +EGS4CYL EGS4CYL 298 000002D8 004916D8 +%RSX-F-NOMSG, Message number 00068A94 +%TRACE-F-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +ABEND ABEND 10 00000018 004E5378 +ZABEND ZABEND 14 00000020 004B5E90 +ZFATAL ZFATAL 112 00000287 004A903F +MZLIFT MZLIFT 393 000009BC 004A266C +MZBOOK MZBOOK 74 00000146 004A08DE +HFN HFN 105 00000119 0049E899 +AUSGAB AUSGAB 447 00000B70 00498570 +EGS4CYL EGS4CYL 298 000002D8 004916D8 +%NONAME-W-NOMSG, Message number 00000000 +%TRACE-W-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +TRACEQ TRACEQ 21 00000052 004E60A2 +ZPOSTM ZPOSTM 55 00000120 004C00A0 +ZABEND ZABEND 12 00000011 004B5E81 +ZFATAL ZFATAL 112 00000287 004A903F +MZLIFT MZLIFT 393 000009BC 004A266C +MZBOOK MZBOOK 74 00000146 004A08DE +HFN HFN 105 00000119 0049E899 +AUSGAB AUSGAB 447 00000B70 00498570 +EGS4CYL EGS4CYL 298 000002D8 004916D8 +%RSX-F-NOMSG, Message number 00068A94 +%TRACE-F-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +ABEND ABEND 10 00000018 004E5378 +ZABEND ZABEND 14 00000020 004B5E90 +ZFATAL ZFATAL 112 00000287 004A903F +MZLIFT MZLIFT 393 000009BC 004A266C +MZBOOK MZBOOK 74 00000146 004A08DE +HFN HFN 105 00000119 0049E899 +AUSGAB AUSGAB 447 00000B70 00498570 +EGS4CYL EGS4CYL 298 000002D8 004916D8 +%NONAME-W-NOMSG, Message number 00000000 +%TRACE-W-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +TRACEQ TRACEQ 21 00000052 004E62D2 +ZPOSTM ZPOSTM 55 00000120 004C02D0 +ZABEND ZABEND 12 00000011 004B60B1 +ZFATAL ZFATAL 112 00000287 004A926F +MZLIFT MZLIFT 393 000009BC 004A289C +MZBOOK MZBOOK 74 00000146 004A0B0E +HFN HFN 105 00000119 0049EAC9 +AUSGAB AUSGAB 447 00000B70 004987A0 +EGS4CYL EGS4CYL 298 000002D8 004918D8 +%RSX-F-NOMSG, Message number 00068B34 +%TRACE-F-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +ABEND ABEND 10 00000018 004E55A8 +ZABEND ZABEND 14 00000020 004B60C0 +ZFATAL ZFATAL 112 00000287 004A926F +MZLIFT MZLIFT 393 000009BC 004A289C +MZBOOK MZBOOK 74 00000146 004A0B0E +HFN HFN 105 00000119 0049EAC9 +AUSGAB AUSGAB 447 00000B70 004987A0 +EGS4CYL EGS4CYL 298 000002D8 004918D8 +%NONAME-W-NOMSG, Message number 00000000 +%TRACE-W-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +TRACEQ TRACEQ 21 00000052 004D0D8A +ZPOSTM ZPOSTM 55 00000120 004AAE28 +ZABEND ZABEND 12 00000011 004A09D1 +ZFATAL ZFATAL 112 00000287 00494087 +MZLIFT MZLIFT 393 000009BC 0048D6B4 +MZBOOK MZBOOK 74 00000146 0048B926 +HFN HFN 105 00000119 00489CF1 +AUSGAB AUSGAB 447 00000B70 00483A18 +EGS4CYL EGS4CYL 298 000002D8 0047D0D8 +%OPCOM-F-NOMSG, Message number 00054394 +%TRACE-F-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +ABEND ABEND 10 00000018 004D0060 +ZABEND ZABEND 14 00000020 004A09E0 +ZFATAL ZFATAL 112 00000287 00494087 +MZLIFT MZLIFT 393 000009BC 0048D6B4 +MZBOOK MZBOOK 74 00000146 0048B926 +HFN HFN 105 00000119 00489CF1 +AUSGAB AUSGAB 447 00000B70 00483A18 +EGS4CYL EGS4CYL 298 000002D8 0047D0D8 +%NONAME-W-NOMSG, Message number 00000000 +%TRACE-W-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +TRACEQ TRACEQ 21 00000052 004D0D8A +ZPOSTM ZPOSTM 55 00000120 004AAE28 +ZABEND ZABEND 12 00000011 004A09D1 +ZFATAL ZFATAL 112 00000287 00494087 +MZLIFT MZLIFT 393 000009BC 0048D6B4 +MZBOOK MZBOOK 74 00000146 0048B926 +HFN HFN 105 00000119 00489CF1 +AUSGAB AUSGAB 447 00000B70 00483A18 +EGS4CYL EGS4CYL 298 000002D8 0047D0D8 +%OPCOM-F-NOMSG, Message number 00054394 +%TRACE-F-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +ABEND ABEND 10 00000018 004D0060 +ZABEND ZABEND 14 00000020 004A09E0 +ZFATAL ZFATAL 112 00000287 00494087 +MZLIFT MZLIFT 393 000009BC 0048D6B4 +MZBOOK MZBOOK 74 00000146 0048B926 +HFN HFN 105 00000119 00489CF1 +AUSGAB AUSGAB 447 00000B70 00483A18 +EGS4CYL EGS4CYL 298 000002D8 0047D0D8 +%NONAME-W-NOMSG, Message number 00000000 +%TRACE-W-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +TRACEQ TRACEQ 21 00000052 004D0D8A +ZPOSTM ZPOSTM 55 00000120 004AAE28 +ZABEND ZABEND 12 00000011 004A09D1 +ZFATAL ZFATAL 112 00000287 00494087 +MZLIFT MZLIFT 393 000009BC 0048D6B4 +MZBOOK MZBOOK 74 00000146 0048B926 +HFN HFN 105 00000119 00489CF1 +AUSGAB AUSGAB 447 00000B70 00483A18 +EGS4CYL EGS4CYL 298 000002D8 0047D0D8 +%OPCOM-F-NOMSG, Message number 00054394 +%TRACE-F-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +ABEND ABEND 10 00000018 004D0060 +ZABEND ZABEND 14 00000020 004A09E0 +ZFATAL ZFATAL 112 00000287 00494087 +MZLIFT MZLIFT 393 000009BC 0048D6B4 +MZBOOK MZBOOK 74 00000146 0048B926 +HFN HFN 105 00000119 00489CF1 +AUSGAB AUSGAB 447 00000B70 00483A18 +EGS4CYL EGS4CYL 298 000002D8 0047D0D8 +%NONAME-W-NOMSG, Message number 00000000 +%TRACE-W-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +TRACEQ TRACEQ 21 00000052 004D0D92 +ZPOSTM ZPOSTM 55 00000120 004AAE30 +ZABEND ZABEND 12 00000011 004A09D9 +ZFATAL ZFATAL 112 00000287 0049408F +MZLIFT MZLIFT 393 000009BC 0048D6BC +MZBOOK MZBOOK 74 00000146 0048B92E +HFN HFN 105 00000119 00489CF9 +AUSGAB AUSGAB 447 00000B70 00483A20 +EGS4CYL EGS4CYL 298 000002D8 0047D0D8 +%OPCOM-F-NOMSG, Message number 00054394 +%TRACE-F-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +ABEND ABEND 10 00000018 004D0068 +ZABEND ZABEND 14 00000020 004A09E8 +ZFATAL ZFATAL 112 00000287 0049408F +MZLIFT MZLIFT 393 000009BC 0048D6BC +MZBOOK MZBOOK 74 00000146 0048B92E +HFN HFN 105 00000119 00489CF9 +AUSGAB AUSGAB 447 00000B70 00483A20 +EGS4CYL EGS4CYL 298 000002D8 0047D0D8 +%NONAME-W-NOMSG, Message number 00000000 +%TRACE-W-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +TRACEQ TRACEQ 21 00000052 004D0D92 +ZPOSTM ZPOSTM 55 00000120 004AAE30 +ZABEND ZABEND 12 00000011 004A09D9 +ZFATAL ZFATAL 112 00000287 0049408F +MZLIFT MZLIFT 393 000009BC 0048D6BC +MZBOOK MZBOOK 74 00000146 0048B92E +HFN HFN 105 00000119 00489CF9 +AUSGAB AUSGAB 447 00000B70 00483A20 +EGS4CYL EGS4CYL 298 000002D8 0047D0D8 +%OPCOM-F-NOMSG, Message number 00054394 +%TRACE-F-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +ABEND ABEND 10 00000018 004D0068 +ZABEND ZABEND 14 00000020 004A09E8 +ZFATAL ZFATAL 112 00000287 0049408F +MZLIFT MZLIFT 393 000009BC 0048D6BC +MZBOOK MZBOOK 74 00000146 0048B92E +HFN HFN 105 00000119 00489CF9 +AUSGAB AUSGAB 447 00000B70 00483A20 +EGS4CYL EGS4CYL 298 000002D8 0047D0D8 +%NONAME-W-NOMSG, Message number 00000000 +%TRACE-W-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +TRACEQ TRACEQ 21 00000052 004D0D92 +ZPOSTM ZPOSTM 55 00000120 004AAE30 +ZABEND ZABEND 12 00000011 004A09D9 +ZFATAL ZFATAL 112 00000287 0049408F +MZLIFT MZLIFT 393 000009BC 0048D6BC +MZBOOK MZBOOK 74 00000146 0048B92E +HFN HFN 105 00000119 00489CF9 +AUSGAB AUSGAB 447 00000B70 00483A20 +EGS4CYL EGS4CYL 298 000002D8 0047D0D8 +%OPCOM-F-NOMSG, Message number 00054394 +%TRACE-F-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +ABEND ABEND 10 00000018 004D0068 +ZABEND ZABEND 14 00000020 004A09E8 +ZFATAL ZFATAL 112 00000287 0049408F +MZLIFT MZLIFT 393 000009BC 0048D6BC +MZBOOK MZBOOK 74 00000146 0048B92E +HFN HFN 105 00000119 00489CF9 +AUSGAB AUSGAB 447 00000B70 00483A20 +EGS4CYL EGS4CYL 298 000002D8 0047D0D8 +%NONAME-W-NOMSG, Message number 00000000 +%TRACE-W-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +TRACEQ TRACEQ 21 00000052 004D0D82 +ZPOSTM ZPOSTM 55 00000120 004AAE20 +ZABEND ZABEND 12 00000011 004A09C9 +ZFATAL ZFATAL 112 00000287 0049407F +MZLINK MZLINK 180 0000042B 0048DADB +IZINIT IZINIT 87 00000065 004C10D5 +IGINIT IGINIT 109 0000002F 004B6317 +PG_INIT PG_INIT 33 00000019 00487F31 +GO GO 93 00000020 0047F2C0 +GUARDA GUARDA 65 00000050 0047F128 +EGS4CYL EGS4CYL 288 000002B8 0047D0B8 +%OPCOM-F-NOMSG, Message number 0005437C +%TRACE-F-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +ABEND ABEND 10 00000018 004D0058 +ZABEND ZABEND 14 00000020 004A09D8 +ZFATAL ZFATAL 112 00000287 0049407F +MZLINK MZLINK 180 0000042B 0048DADB +IZINIT IZINIT 87 00000065 004C10D5 +IGINIT IGINIT 109 0000002F 004B6317 +PG_INIT PG_INIT 33 00000019 00487F31 +GO GO 93 00000020 0047F2C0 +GUARDA GUARDA 65 00000050 0047F128 +EGS4CYL EGS4CYL 288 000002B8 0047D0B8 +%NONAME-W-NOMSG, Message number 00000000 +%TRACE-W-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +TRACEQ TRACEQ 21 00000052 004D0D82 +ZPOSTM ZPOSTM 55 00000120 004AAE20 +ZABEND ZABEND 12 00000011 004A09C9 +ZFATAL ZFATAL 112 00000287 0049407F +MZLINK MZLINK 180 0000042B 0048DADB +IZINIT IZINIT 87 00000065 004C10D5 +IGINIT IGINIT 109 0000002F 004B6317 +PG_INIT PG_INIT 33 00000019 00487F31 +GO GO 93 00000020 0047F2C0 +GUARDA GUARDA 65 00000050 0047F128 +EGS4CYL EGS4CYL 288 000002B8 0047D0B8 +%OPCOM-F-NOMSG, Message number 0005437C +%TRACE-F-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +ABEND ABEND 10 00000018 004D0058 +ZABEND ZABEND 14 00000020 004A09D8 +ZFATAL ZFATAL 112 00000287 0049407F +MZLINK MZLINK 180 0000042B 0048DADB +IZINIT IZINIT 87 00000065 004C10D5 +IGINIT IGINIT 109 0000002F 004B6317 +PG_INIT PG_INIT 33 00000019 00487F31 +GO GO 93 00000020 0047F2C0 +GUARDA GUARDA 65 00000050 0047F128 +EGS4CYL EGS4CYL 288 000002B8 0047D0B8 +%NONAME-W-NOMSG, Message number 00000000 +%TRACE-W-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +TRACEQ TRACEQ 21 00000052 004D0D82 +ZPOSTM ZPOSTM 55 00000120 004AAE20 +ZABEND ZABEND 12 00000011 004A09C9 +ZFATAL ZFATAL 112 00000287 0049407F +MZLINK MZLINK 180 0000042B 0048DADB +IZINIT IZINIT 87 00000065 004C10D5 +IGINIT IGINIT 109 0000002F 004B6317 +PG_INIT PG_INIT 33 00000019 00487F31 +GO GO 93 00000020 0047F2C0 +GUARDA GUARDA 65 00000050 0047F128 +EGS4CYL EGS4CYL 288 000002B8 0047D0B8 +%OPCOM-F-NOMSG, Message number 0005437C +%TRACE-F-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +ABEND ABEND 10 00000018 004D0058 +ZABEND ZABEND 14 00000020 004A09D8 +ZFATAL ZFATAL 112 00000287 0049407F +MZLINK MZLINK 180 0000042B 0048DADB +IZINIT IZINIT 87 00000065 004C10D5 +IGINIT IGINIT 109 0000002F 004B6317 +PG_INIT PG_INIT 33 00000019 00487F31 +GO GO 93 00000020 0047F2C0 +GUARDA GUARDA 65 00000050 0047F128 +EGS4CYL EGS4CYL 288 000002B8 0047D0B8 +%NONAME-W-NOMSG, Message number 00000000 +%TRACE-W-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +TRACEQ TRACEQ 21 00000052 004D0D82 +ZPOSTM ZPOSTM 55 00000120 004AAE20 +ZABEND ZABEND 12 00000011 004A09C9 +ZFATAL ZFATAL 112 00000287 0049407F +MZLINK MZLINK 180 0000042B 0048DADB +IZINIT IZINIT 87 00000065 004C10D5 +IGINIT IGINIT 109 0000002F 004B6317 +PG_INIT PG_INIT 33 00000019 00487F31 +GO GO 93 00000020 0047F2C0 +GUARDA GUARDA 65 00000050 0047F128 +EGS4CYL EGS4CYL 288 000002B8 0047D0B8 +%OPCOM-F-NOMSG, Message number 0005437C +%TRACE-F-TRACEBACK, symbolic stack dump follows +module name routine name line rel PC abs PC + +ABEND ABEND 10 00000018 004D0058 +ZABEND ZABEND 14 00000020 004A09D8 +ZFATAL ZFATAL 112 00000287 0049407F +MZLINK MZLINK 180 0000042B 0048DADB +IZINIT IZINIT 87 00000065 004C10D5 +IGINIT IGINIT 109 0000002F 004B6317 +PG_INIT PG_INIT 33 00000019 00487F31 +GO GO 93 00000020 0047F2C0 +GUARDA GUARDA 65 00000050 0047F128 +EGS4CYL EGS4CYL 288 000002B8 0047D0B8 diff --git a/code/input-output/for010.dat b/code/input-output/for010.dat new file mode 100644 index 0000000..3500c17 --- /dev/null +++ b/code/input-output/for010.dat @@ -0,0 +1,5 @@ + PACKAGE COMPILED FROM PAM FILE= + EGS4CR 2.00 850503 15.00 + + + OPEN ERROR! rivelatore ignorato, file: 0 diff --git a/code/input-output/for020.dat b/code/input-output/for020.dat new file mode 100644 index 0000000..f02bffe Binary files /dev/null and b/code/input-output/for020.dat differ diff --git a/code/input-output/hatch.out b/code/input-output/hatch.out new file mode 100644 index 0000000..b202975 --- /dev/null +++ b/code/input-output/hatch.out @@ -0,0 +1,3739 @@ + DATA FOR MEDIUM # 3, WHICH IS: MEDIUM=AIR-3MEV-10KEV-02KEV ,STERNCID=AIR-3MEV-10KEV-02KEV + MIXT,RHO= 1.2050E-03,NE= 3,COMPOSITION IS : + ASYM=N ,Z= 7.,A= 14.007,PZ= 5.56876E-02,RHOZ= 7.80000E-01 + ASYM=O ,Z= 8.,A= 15.999,PZ= 1.31255E-02,RHOZ= 2.10000E-01 + ASYM=AR,Z=18.,A= 39.948,PZ= 2.35306E-04,RHOZ= 9.40000E-03 + ECHO READ:$LGN(RLC,AE,AP,UE,UP(IM)) + 3.05538E+04 5.21000E-01 2.00000E-03 3.51100E+00 3.00200E+00 + ECHO READ:$LGN(MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE(IM)),IRAYL + 0 200 0 150 0 0 0 0 + ECHO READ:($LGN(DL(I,IM)/1,2,3,4,5,6/),I=1,6) + 9.99982E-01 -2.10278E-01 4.82540E-02 9.95882E-01 -2.25707E-01 + 9.52000E-01 1.00022E+00 -1.78093E-01 3.43331E-02 1.01412E+00 + -2.29840E-01 9.52000E-01 1.00034E+00 -1.61554E-01 2.47958E-02 + 1.02349E+00 -2.31963E-01 9.52000E-01 9.99982E-01 -2.10445E-01 + 4.82923E-02 9.95879E-01 -2.25886E-01 9.52000E-01 1.00022E+00 + -1.78237E-01 3.43609E-02 1.01413E+00 -2.30025E-01 9.52000E-01 + 1.00034E+00 -1.61686E-01 2.48160E-02 1.02351E+00 -2.32152E-01 + 9.52000E-01 + ECHO READ:DELCM(IM),($LGN(ALPHI,BPAR, DELPOS(I,IM)),I=1,2) + 3.57494E+01 9.41119E-01 8.53762E-01 2.27992E+00 9.41133E-01 + 8.53759E-01 2.27182E+00 + ECHO READ:$LGN(XR0,TEFF0,BLCC,XCC(IM)) + 8.97125E-02 7.46632E-05 2.67921E+05 4.89433E+00 + ECHO READ:$LGN(EKE(IM)/0,1/) + 1.21501E+02 2.59409E+01 + ECHO READ:($LGN(ESIG,PSIG,EDEDX,PDEDX,EBR1,PBR1,PBR2, TMXS(I,IM)/0,1/),I=1,NEKE) + 9.55616E+00 1.49603E+00 3.02292E+04 6.55946E+03 -1.81716E+03 + -5.52574E+02 -2.40183E+03 -6.95855E+02 1.00000E+00 0.00000E+00 + -1.78806E+01 -3.91646E+00 9.62855E+01 2.08703E+01 2.59730E-05 + 5.04073E-06 9.55616E+00 1.49603E+00 3.02292E+04 6.55946E+03 + -1.81716E+03 -5.52574E+02 -2.40183E+03 -6.95855E+02 1.00000E+00 + 0.00000E+00 -1.78806E+01 -3.91646E+00 9.62855E+01 2.08703E+01 + 2.59730E-05 5.04073E-06 9.51049E+00 1.48603E+00 2.68987E+04 + 5.83038E+03 -1.74551E+03 -5.36889E+02 -2.29413E+03 -6.72279E+02 + 1.00000E+00 0.00000E+00 -5.34961E-01 -1.19357E-01 3.86660E+00 + 6.39018E-01 2.75971E-05 5.39626E-06 9.46618E+00 1.47625E+00 + 2.38507E+04 5.15747E+03 -1.67568E+03 -5.21473E+02 -2.19004E+03 + -6.49297E+02 1.00000E+00 0.00000E+00 -1.77248E-01 -4.03846E-02 + 1.96137E+00 2.18400E-01 2.93327E-05 5.77943E-06 9.42118E+00 + 1.46623E+00 2.11031E+04 4.54566E+03 -1.60865E+03 -5.06547E+02 + -2.09084E+03 -6.27210E+02 1.00000E+00 0.00000E+00 -8.56424E-02 + -1.99871E-02 1.47399E+00 1.09875E-01 3.11838E-05 6.19163E-06 + 9.37622E+00 1.45613E+00 1.86158E+04 3.98704E+03 -1.54281E+03 + -4.91760E+02 -1.99449E+03 -6.05569E+02 1.00000E+00 0.00000E+00 + -4.87249E-02 -1.16956E-02 1.27805E+00 6.58653E-02 3.31413E-05 + 6.63126E-06 9.32915E+00 1.44547E+00 1.63771E+04 3.47984E+03 + -1.48025E+03 -4.77587E+02 -1.90345E+03 -5.84944E+02 1.00000E+00 + 0.00000E+00 -3.02257E-02 -7.50452E-03 1.18022E+00 4.37045E-02 + 3.52238E-05 7.10306E-06 9.28597E+00 1.43560E+00 1.43568E+04 + 3.01811E+03 -1.41950E+03 -4.63703E+02 -1.81580E+03 -5.64913E+02 + 1.00000E+00 0.00000E+00 -1.96146E-02 -5.07933E-03 1.12450E+00 + 3.09705E-02 3.74341E-05 7.60822E-06 9.23942E+00 1.42487E+00 + 1.25405E+04 2.59928E+03 -1.36049E+03 -4.50095E+02 -1.73145E+03 + -5.45463E+02 1.00000E+00 0.00000E+00 -1.29572E-02 -3.54425E-03 + 1.08983E+00 2.29733E-02 3.97767E-05 8.14839E-06 9.19320E+00 + 1.41411E+00 1.09079E+04 2.21945E+03 -1.30395E+03 -4.36941E+02 + -1.65118E+03 -5.26787E+02 1.00000E+00 0.00000E+00 -8.48491E-03 + -2.50376E-03 1.06686E+00 1.76283E-02 4.22698E-05 8.72843E-06 + 9.14997E+00 1.40396E+00 9.44240E+03 1.87543E+03 -1.24932E+03 + -4.24116E+02 -1.57421E+03 -5.08718E+02 1.00000E+00 0.00000E+00 + -5.31582E-03 -1.75980E-03 1.05084E+00 1.38693E-02 4.49121E-05 + 9.34871E-06 9.10357E+00 1.39297E+00 8.12692E+03 1.56379E+03 + -1.19657E+03 -4.11619E+02 -1.50046E+03 -4.91244E+02 1.00000E+00 + 0.00000E+00 -2.97212E-03 -1.20457E-03 1.03925E+00 1.11265E-02 + 4.77143E-05 1.00126E-05 9.05911E+00 1.38234E+00 6.95105E+03 + 1.28265E+03 -1.14563E+03 -3.99440E+02 -1.42978E+03 -4.74349E+02 + 1.00000E+00 0.00000E+00 -1.17591E-03 -7.75127E-04 1.03061E+00 + 9.05768E-03 5.06908E-05 1.07242E-05 9.01336E+00 1.37130E+00 + 5.89996E+03 1.02902E+03 -1.09670E+03 -3.87636E+02 -1.36238E+03 + -4.58082E+02 1.00000E+00 0.00000E+00 2.45192E-04 -4.32202E-04 + 1.02401E+00 7.46499E-03 5.38478E-05 1.14860E-05 8.96879E+00 + 1.36045E+00 4.96162E+03 8.00461E+02 -1.04924E+03 -3.76074E+02 + -1.29750E+03 -4.42279E+02 1.00000E+00 0.00000E+00 1.40318E-03 + -1.50145E-04 1.01881E+00 6.20029E-03 5.71926E-05 1.23007E-05 + 8.92353E+00 1.34931E+00 4.12684E+03 5.95209E+02 -1.00362E+03 + -3.64858E+02 -1.23556E+03 -4.27051E+02 1.00000E+00 0.00000E+00 + 2.36820E-03 8.71361E-05 1.01471E+00 5.19055E-03 6.07453E-05 + 1.31743E-05 8.88025E+00 1.33857E+00 3.38474E+03 4.10988E+02 + -9.59664E+02 -3.53945E+02 -1.17629E+03 -4.12337E+02 1.00000E+00 + 0.00000E+00 3.19350E-03 2.92004E-04 1.01136E+00 4.35876E-03 + 6.45035E-05 1.41072E-05 8.83440E+00 1.32708E+00 2.72644E+03 + 2.45995E+02 -9.17482E+02 -3.43372E+02 -1.11978E+03 -3.98174E+02 + 1.00000E+00 0.00000E+00 3.91169E-03 4.72007E-04 1.00861E+00 + 3.67067E-03 6.84928E-05 1.51070E-05 8.79408E+00 1.31688E+00 + 2.14543E+03 9.89566E+01 -8.76547E+02 -3.33013E+02 -1.06536E+03 + -3.84402E+02 1.00000E+00 0.00000E+00 4.55094E-03 6.33790E-04 + 1.00635E+00 3.09703E-03 7.27224E-05 1.61775E-05 1.36887E+04 + 3.49753E+03 1.63271E+03 -3.20809E+01 -9.76552E+02 -3.58571E+02 + -1.01338E+03 -3.71117E+02 -9.77949E+01 -2.52493E+01 5.12502E-03 + 7.80503E-04 1.00442E+00 2.60380E-03 7.72005E-05 1.73219E-05 + 1.14323E+04 2.91512E+03 1.18241E+03 -1.48308E+02 -9.20889E+02 + -3.44204E+02 -9.63866E+02 -3.58337E+02 -1.15373E+00 -3.04676E-01 + 5.65369E-03 9.16961E-04 1.00278E+00 2.18168E-03 8.19560E-05 + 1.85494E-05 9.61664E+03 2.44175E+03 7.88258E+02 -2.51071E+02 + -8.69789E+02 -3.30882E+02 -9.16205E+02 -3.45910E+02 -3.75785E-01 + -1.01859E-01 6.14331E-03 1.04461E-03 1.00139E+00 1.81987E-03 + 8.69757E-05 1.98581E-05 8.14594E+03 2.05444E+03 4.44098E+02 + -3.41706E+02 -8.22987E+02 -3.18556E+02 -8.70923E+02 -3.33985E+02 + -1.79734E-01 -5.02282E-02 6.60543E-03 1.16631E-03 1.00018E+00 + 1.50136E-03 9.23136E-05 2.12638E-05 6.93892E+03 1.73330E+03 + 1.45449E+02 -4.21166E+02 -7.79332E+02 -3.06941E+02 -8.27407E+02 + -3.22408E+02 -1.01422E-01 -2.93927E-02 7.04312E-03 1.28276E-03 + 9.99128E-01 1.22150E-03 9.79447E-05 2.27621E-05 5.94319E+03 + 1.46563E+03 -1.12073E+02 -4.90391E+02 -7.38660E+02 -2.96009E+02 + -7.85934E+02 -3.11259E+02 -6.24629E-02 -1.89200E-02 7.46354E-03 + 1.39578E-03 9.98194E-01 9.71012E-04 1.03917E-04 2.43675E-05 + 5.11210E+03 1.23989E+03 -3.32862E+02 -5.50364E+02 -7.00318E+02 + -2.85594E+02 -7.46117E+02 -3.00443E+02 -4.02887E-02 -1.28968E-02 + 7.86940E-03 1.50602E-03 9.97390E-01 7.51452E-04 1.10234E-04 + 2.60834E-05 4.41545E+03 1.04865E+03 -5.21570E+02 -6.02164E+02 + -6.64413E+02 -2.75738E+02 -7.08315E+02 -2.90067E+02 -2.64950E-02 + -9.11041E-03 8.26612E-03 1.61492E-03 9.96660E-01 5.51996E-04 + 1.16931E-04 2.79217E-05 3.82574E+03 8.85043E+02 -6.79656E+02 + -6.46024E+02 -6.30140E+02 -2.66229E+02 -6.71866E+02 -2.79954E+02 + -1.73172E-02 -6.56413E-03 8.65170E-03 1.72190E-03 9.96011E-01 + 3.72634E-04 1.23997E-04 2.98822E-05 3.32508E+03 7.44637E+02 + -8.12869E+02 -6.83383E+02 -5.97913E+02 -2.57191E+02 -6.37306E+02 + -2.70262E+02 -1.09022E-02 -4.76514E-03 9.03414E-03 1.82915E-03 + 9.95429E-01 2.08737E-04 1.31486E-04 3.19824E-05 2.89505E+03 + 6.22722E+02 -9.21497E+02 -7.14179E+02 -5.67090E+02 -2.48452E+02 + -6.04076E+02 -2.60841E+02 -6.21451E-03 -3.43615E-03 9.40963E-03 + 1.93560E-03 9.94916E-01 6.18479E-05 1.39396E-04 3.42248E-05 + 2.52595E+03 5.16926E+02 -1.01005E+03 -7.39559E+02 -5.37874E+02 + -2.40078E+02 -5.72457E+02 -2.51779E+02 -2.68545E-03 -2.42459E-03 + 9.78344E-03 2.04276E-03 9.94434E-01 -7.57637E-05 1.47765E-04 + 3.66236E-05 2.20540E+03 4.24017E+02 -1.08025E+03 -7.59905E+02 + -5.10057E+02 -2.32016E+02 -5.42274E+02 -2.43030E+02 6.44088E-05 + -1.62757E-03 1.01550E-02 2.15046E-03 9.94007E-01 -1.99459E-04 + 1.56607E-04 3.91866E-05 1.92768E+03 3.42612E+02 -1.13312E+03 + -7.75402E+02 -4.83360E+02 -2.24191E+02 -5.13281E+02 -2.34532E+02 + 2.25358E-03 -9.85894E-04 1.05255E-02 2.25905E-03 9.93611E-01 + -3.15424E-04 1.65943E-04 4.19228E-05 1.68500E+03 2.70666E+02 + -1.17257E+03 -7.87103E+02 -4.58024E+02 -2.16679E+02 -4.85731E+02 + -2.26364E+02 4.03785E-03 -4.56925E-04 1.08955E-02 2.36873E-03 + 9.93252E-01 -4.22112E-04 1.75819E-04 4.48508E-05 1.47265E+03 + 2.06982E+02 -1.19873E+03 -7.94943E+02 -4.33761E+02 -2.09403E+02 + -4.59379E+02 -2.18461E+02 5.52775E-03 -1.01107E-05 1.12674E-02 + 2.48026E-03 9.92912E-01 -5.22615E-04 1.86233E-04 4.79740E-05 + 1.28630E+03 1.50450E+02 -1.21401E+03 -7.99581E+02 -4.10585E+02 + -2.02372E+02 -4.34209E+02 -2.10825E+02 6.78089E-03 3.70087E-04 + 1.16348E-02 2.59173E-03 9.92621E-01 -6.12298E-04 1.97235E-04 + 5.13118E-05 1.12229E+03 1.00098E+02 -1.21937E+03 -8.01229E+02 + -3.88455E+02 -1.95578E+02 -4.10212E+02 -2.03458E+02 7.87222E-03 + 7.05102E-04 1.20088E-02 2.70653E-03 9.92337E-01 -7.00427E-04 + 2.08855E-04 5.48791E-05 9.77824E+02 5.52178E+01 -1.21623E+03 + -8.00250E+02 -3.67257E+02 -1.88993E+02 -3.87261E+02 -1.96328E+02 + 8.82468E-03 1.00101E-03 1.23818E-02 2.82242E-03 9.92083E-01 + -7.77737E-04 2.21094E-04 5.86812E-05 8.50318E+02 1.51253E+01 + -1.20593E+03 -7.97014E+02 -3.47027E+02 -1.82632E+02 -3.65392E+02 + -1.89452E+02 9.67045E-03 1.26694E-03 1.27562E-02 2.94014E-03 + 9.91836E-01 -8.56593E-04 2.34017E-04 6.27446E-05 7.38245E+02 + -2.05481E+01 -1.18889E+03 -7.91590E+02 -3.27648E+02 -1.76463E+02 + -3.44489E+02 -1.82799E+02 1.04317E-02 1.50923E-03 1.31330E-02 + 3.06008E-03 9.91613E-01 -9.26172E-04 2.47632E-04 6.70782E-05 + 6.39168E+02 -5.24739E+01 -1.16673E+03 -7.84449E+02 -3.09147E+02 + -1.70501E+02 -3.24576E+02 -1.76382E+02 1.11264E-02 1.73311E-03 + 1.35124E-02 3.18234E-03 9.91409E-01 -9.91112E-04 2.61994E-04 + 7.17064E-05 5.51725E+02 -8.10051E+01 -1.14017E+03 -7.75782E+02 + -2.91457E+02 -1.64729E+02 -3.05578E+02 -1.70183E+02 1.17568E-02 + 1.93881E-03 1.38878E-02 3.30483E-03 9.91224E-01 -1.05296E-03 + 2.77123E-04 7.66428E-05 4.75017E+02 -1.06352E+02 -1.10935E+03 + -7.65595E+02 -2.74550E+02 -1.59142E+02 -2.87462E+02 -1.64196E+02 + 1.23516E-02 2.13533E-03 1.42714E-02 3.43157E-03 9.91051E-01 + -1.11172E-03 2.93056E-04 8.19079E-05 4.07410E+02 -1.28982E+02 + -1.07550E+03 -7.54265E+02 -2.58361E+02 -1.53724E+02 -2.70155E+02 + -1.58403E+02 1.29035E-02 2.32011E-03 1.46524E-02 3.55913E-03 + 9.90884E-01 -1.16583E-03 3.09831E-04 8.75229E-05 3.48175E+02 + -1.49068E+02 -1.03910E+03 -7.41921E+02 -2.42904E+02 -1.48482E+02 + -2.53673E+02 -1.52814E+02 1.34257E-02 2.49716E-03 1.50363E-02 + 3.68930E-03 9.90741E-01 -1.21531E-03 3.27481E-04 9.35078E-05 + 2.96547E+02 -1.66808E+02 -1.00045E+03 -7.28644E+02 -2.28131E+02 + -1.43407E+02 -2.37949E+02 -1.47412E+02 1.39191E-02 2.66666E-03 + 1.54197E-02 3.82104E-03 9.90593E-01 -1.26479E-03 3.46062E-04 + 9.98918E-05 2.51500E+02 -1.82493E+02 -9.60319E+02 -7.14671E+02 + -2.14031E+02 -1.38497E+02 -2.22978E+02 -1.42200E+02 1.43918E-02 + 2.83129E-03 1.58052E-02 3.95527E-03 9.90469E-01 -1.30964E-03 + 3.65601E-04 1.06695E-04 2.12581E+02 -1.96227E+02 -9.19001E+02 + -7.00087E+02 -2.00552E+02 -1.33740E+02 -2.08701E+02 -1.37161E+02 + 1.48439E-02 2.99083E-03 1.61910E-02 4.09140E-03 9.90358E-01 + -1.34674E-03 3.86125E-04 1.13939E-04 1.79040E+02 -2.08228E+02 + -8.76759E+02 -6.84973E+02 -1.87685E+02 -1.29136E+02 -1.95104E+02 + -1.32295E+02 1.52782E-02 3.14622E-03 1.65754E-02 4.22896E-03 + 9.90247E-01 -1.38849E-03 4.07712E-04 1.21663E-04 1.50417E+02 + -2.18615E+02 -8.33934E+02 -6.69438E+02 -1.75391E+02 -1.24675E+02 + -1.82138E+02 -1.27592E+02 1.57010E-02 3.29961E-03 1.69620E-02 + 4.36920E-03 9.90154E-01 -1.42096E-03 4.30376E-04 1.29885E-04 + 1.26243E+02 -2.27508E+02 -7.90893E+02 -6.53600E+02 -1.63662E+02 + -1.20360E+02 -1.69797E+02 -1.23050E+02 1.61063E-02 3.44874E-03 + 1.73451E-02 4.51019E-03 9.90061E-01 -1.45497E-03 4.54173E-04 + 1.38641E-04 1.06006E+02 -2.35062E+02 -7.47840E+02 -6.37531E+02 + -1.52461E+02 -1.16179E+02 -1.58033E+02 -1.18660E+02 1.65023E-02 + 3.59654E-03 1.77288E-02 4.65338E-03 9.89987E-01 -1.48280E-03 + 4.79140E-04 1.47960E-04 8.93618E+01 -2.41366E+02 -7.04983E+02 + -6.21302E+02 -1.41791E+02 -1.12139E+02 -1.46851E+02 -1.14425E+02 + 1.68862E-02 3.74192E-03 1.81099E-02 4.79772E-03 9.89913E-01 + -1.50909E-03 5.05347E-04 1.57885E-04 7.57960E+01 -2.46579E+02 + -6.62576E+02 -6.05002E+02 -1.31610E+02 -1.08226E+02 -1.36201E+02 + -1.10332E+02 1.72626E-02 3.88657E-03 1.84902E-02 4.94387E-03 + 9.89863E-01 -1.53074E-03 5.32809E-04 1.68438E-04 6.52354E+01 + -2.50698E+02 -6.20631E+02 -5.88642E+02 -1.21889E+02 -1.04434E+02 + -1.26053E+02 -1.06373E+02 1.76286E-02 4.02935E-03 1.88677E-02 + 5.09112E-03 9.89807E-01 -1.55238E-03 5.61601E-04 1.79670E-04 + 5.72397E+01 -2.53864E+02 -5.79332E+02 -5.72284E+02 -1.12635E+02 + -1.00769E+02 -1.16409E+02 -1.02554E+02 1.79859E-02 4.17087E-03 + 1.92417E-02 5.23923E-03 9.89764E-01 -1.56939E-03 5.91753E-04 + 1.91611E-04 5.15081E+01 -2.56169E+02 -5.38888E+02 -5.56021E+02 + -1.03811E+02 -9.72205E+01 -1.07229E+02 -9.88620E+01 1.83358E-02 + 4.31161E-03 1.96129E-02 5.38851E-03 9.89733E-01 -1.58176E-03 + 6.23315E-04 2.04305E-04 4.78570E+01 -2.57661E+02 -4.99280E+02 + -5.39839E+02 -9.54021E+01 -9.37852E+01 -9.84959E+01 -9.52948E+01 + 1.86767E-02 4.45083E-03 1.99788E-02 5.53800E-03 9.89696E-01 + -1.59413E-03 6.56358E-04 2.17803E-04 4.59792E+01 -2.58441E+02 + -4.60701E+02 -5.23827E+02 -8.73993E+01 -9.04638E+01 -9.02001E+01 + -9.18515E+01 1.90132E-02 4.59051E-03 2.03430E-02 5.68916E-03 + 9.89684E-01 -1.60031E-03 6.90916E-04 2.32146E-04 4.57705E+01 + -2.58529E+02 -4.23056E+02 -5.07948E+02 -7.97690E+01 -8.72453E+01 + -8.23015E+01 -8.85200E+01 1.93371E-02 4.72714E-03 2.06974E-02 + 5.83866E-03 9.89678E-01 -1.60496E-03 7.27036E-04 2.47381E-04 + 4.69545E+01 -2.58022E+02 -3.86548E+02 -4.92296E+02 -7.25130E+01 + -8.41339E+01 -7.48017E+01 -8.53044E+01 1.96592E-02 4.86523E-03 + 2.10511E-02 5.99031E-03 9.89671E-01 -1.60650E-03 7.64771E-04 + 2.63561E-04 4.94086E+01 -2.56950E+02 -3.51146E+02 -4.76862E+02 + -6.56075E+01 -8.11235E+01 -6.76745E+01 -8.21969E+01 1.99694E-02 + 5.00047E-03 2.13948E-02 6.14013E-03 9.89684E-01 -1.60341E-03 + 8.04194E-04 2.80748E-04 5.29363E+01 -2.55387E+02 -3.16896E+02 + -4.61675E+02 -5.90367E+01 -7.82100E+01 -6.09050E+01 -7.91952E+01 + 2.02761E-02 5.13647E-03 2.17349E-02 6.29096E-03 9.89690E-01 + -1.59877E-03 8.45336E-04 2.98992E-04 5.74392E+01 -2.53356E+02 + -2.83776E+02 -4.46733E+02 -5.27847E+01 -7.53891E+01 -5.44681E+01 + -7.62914E+01 2.05724E-02 5.27014E-03 2.20651E-02 6.43990E-03 + 9.89708E-01 -1.58949E-03 8.88235E-04 3.18345E-04 6.27274E+01 + -2.50927E+02 -2.51863E+02 -4.32081E+02 -4.68465E+01 -7.26629E+01 + -4.83652E+01 -7.34893E+01 2.08583E-02 5.40145E-03 2.23848E-02 + 6.58670E-03 9.89739E-01 -1.57712E-03 9.32986E-04 3.38891E-04 + 6.87187E+01 -2.48128E+02 -2.21131E+02 -4.17717E+02 -4.11980E+01 + -7.00229E+01 -4.25672E+01 -7.07793E+01 2.11517E-02 5.53855E-03 + 2.27098E-02 6.73859E-03 9.89764E-01 -1.56475E-03 9.79593E-04 + 3.60675E-04 7.53147E+01 -2.44988E+02 -1.91561E+02 -4.03642E+02 + -3.58350E+01 -6.74702E+01 -3.70692E+01 -6.81625E+01 2.14191E-02 + 5.66582E-03 2.30096E-02 6.88130E-03 9.89814E-01 -1.54156E-03 + 1.02815E-03 3.83785E-04 8.23857E+01 -2.41560E+02 -1.63172E+02 + -3.89876E+02 -3.07375E+01 -6.49987E+01 -3.18482E+01 -6.56310E+01 + 2.16860E-02 5.79524E-03 2.33067E-02 7.02532E-03 9.89857E-01 + -1.51991E-03 1.07866E-03 4.08277E-04 8.98431E+01 -2.37874E+02 + -1.35958E+02 -3.76431E+02 -2.59005E+01 -6.26087E+01 -2.69008E+01 + -6.31866E+01 2.19503E-02 5.92585E-03 2.35990E-02 7.16981E-03 + 9.89910E-01 -1.49517E-03 1.13121E-03 4.34244E-04 9.76266E+01 + -2.33954E+02 -1.09869E+02 -3.63290E+02 -2.13089E+01 -6.02959E+01 + -2.22086E+01 -6.08229E+01 2.21989E-02 6.05104E-03 2.38743E-02 + 7.30842E-03 9.89971E-01 -1.46270E-03 1.18583E-03 4.61757E-04 + 1.05639E+02 -2.29837E+02 -8.49417E+01 -3.50484E+02 -1.69534E+01 + -5.80586E+01 -1.77620E+01 -5.85389E+01 2.24410E-02 6.17541E-03 + 2.41408E-02 7.44535E-03 9.90036E-01 -1.43024E-03 1.24259E-03 + 4.90911E-04 1.13841E+02 -2.25540E+02 -6.10966E+01 -3.37988E+02 + -1.28220E+01 -5.58937E+01 -1.35491E+01 -5.63313E+01 2.26742E-02 + 6.29759E-03 2.43958E-02 7.57898E-03 9.90107E-01 -1.39158E-03 + 1.30150E-03 5.21780E-04 1.22149E+02 -2.21096E+02 -3.83382E+01 + -3.25817E+02 -8.90412E+00 -5.37982E+01 -9.55763E+00 -5.41964E+01 + 2.28993E-02 6.41802E-03 2.46402E-02 7.70970E-03 9.90179E-01 + -1.35292E-03 1.36263E-03 5.54476E-04 1.30521E+02 -2.16523E+02 + -1.66437E+01 -3.13970E+02 -5.19522E+00 -5.17725E+01 -5.78144E+00 + -5.21343E+01 2.31174E-02 6.53710E-03 2.48747E-02 7.83775E-03 + 9.90265E-01 -1.30654E-03 1.42602E-03 5.89095E-04 1.38908E+02 + -2.11846E+02 4.00893E+00 -3.02448E+02 -1.67989E+00 -4.98116E+01 + -2.20673E+00 -5.01401E+01 2.33241E-02 6.65242E-03 2.50952E-02 + 7.96077E-03 9.90352E-01 -1.25706E-03 1.49170E-03 6.25734E-04 + 1.47273E+02 -2.07077E+02 2.36847E+01 -2.91230E+02 1.64901E+00 + -4.79138E+01 1.17679E+00 -4.82111E+01 2.35224E-02 6.76548E-03 + 2.53040E-02 8.07980E-03 9.90441E-01 -1.20603E-03 1.55971E-03 + 6.64508E-04 1.55560E+02 -2.02246E+02 4.23566E+01 -2.80346E+02 + 4.79742E+00 -4.60784E+01 4.37309E+00 -4.63479E+01 2.37108E-02 + 6.87531E-03 2.55003E-02 8.19424E-03 9.90537E-01 -1.15037E-03 + 1.63011E-03 7.05548E-04 1.63765E+02 -1.97354E+02 6.01086E+01 + -2.69760E+02 7.77641E+00 -4.43019E+01 7.39602E+00 -4.45451E+01 + 2.38917E-02 6.98321E-03 2.56857E-02 8.30477E-03 9.90642E-01 + -1.09007E-03 1.70289E-03 7.48949E-04 1.71830E+02 -1.92430E+02 + 7.69328E+01 -2.59491E+02 1.05927E+01 -4.25830E+01 1.02511E+01 + -4.28027E+01 2.40622E-02 7.08724E-03 2.58577E-02 8.40979E-03 + 9.90738E-01 -1.02977E-03 1.77813E-03 7.94871E-04 1.79743E+02 + -1.87484E+02 9.28799E+01 -2.49523E+02 1.32529E+01 -4.09201E+01 + 1.29465E+01 -4.11177E+01 2.42225E-02 7.18745E-03 2.60165E-02 + 8.50901E-03 9.90850E-01 -9.60189E-04 1.85582E-03 8.43436E-04 + 1.87490E+02 -1.82522E+02 1.07975E+02 -2.39854E+02 1.57662E+01 + -3.93105E+01 1.54909E+01 -3.94880E+01 2.43736E-02 7.28418E-03 + 2.61631E-02 8.60292E-03 9.90955E-01 -8.93702E-04 1.93600E-03 + 8.94789E-04 1.95031E+02 -1.77570E+02 1.22245E+02 -2.30483E+02 + 1.81381E+01 -3.77528E+01 1.78911E+01 -3.79117E+01 2.45142E-02 + 7.37654E-03 2.62961E-02 8.69029E-03 9.91069E-01 -8.17943E-04 + 2.01869E-03 9.49090E-04 2.02381E+02 -1.72618E+02 1.35734E+02 + -2.21395E+02 2.03748E+01 -3.62458E+01 2.01525E+01 -3.63881E+01 + 2.46475E-02 7.46642E-03 2.64193E-02 8.77329E-03 9.91180E-01 + -7.42175E-04 2.10390E-03 1.00650E-03 2.09492E+02 -1.67698E+02 + 1.48451E+02 -2.12598E+02 2.24837E+01 -3.47868E+01 2.22842E+01 + -3.49135E+01 2.47695E-02 7.55076E-03 2.65283E-02 8.84867E-03 + 9.91295E-01 -6.64865E-04 2.19164E-03 1.06719E-03 2.16384E+02 + -1.62801E+02 1.60451E+02 -2.04070E+02 2.44702E+01 -3.33751E+01 + 2.42907E+01 -3.34875E+01 2.48819E-02 7.63068E-03 2.66250E-02 + 8.91740E-03 9.91416E-01 -5.79824E-04 2.28192E-03 1.13135E-03 + 2.23024E+02 -1.57949E+02 1.71741E+02 -1.95819E+02 2.63395E+01 + -3.20091E+01 2.61780E+01 -3.21085E+01 2.49861E-02 7.70675E-03 + 2.67109E-02 8.98022E-03 9.91527E-01 -4.96329E-04 2.37474E-03 + 1.19918E-03 2.29426E+02 -1.53136E+02 1.82364E+02 -1.87833E+02 + 2.80985E+01 -3.06866E+01 2.79523E+01 -3.07743E+01 2.50789E-02 + 7.77660E-03 2.67837E-02 9.03487E-03 9.91647E-01 -4.08196E-04 + 2.47008E-03 1.27087E-03 2.35567E+02 -1.48381E+02 1.92342E+02 + -1.80107E+02 2.97519E+01 -2.94063E+01 2.96201E+01 -2.94829E+01 + 2.51647E-02 7.84301E-03 2.68469E-02 9.08381E-03 9.91765E-01 + -3.16970E-04 2.56795E-03 1.34665E-03 2.41457E+02 -1.43680E+02 + 2.01711E+02 -1.72629E+02 3.13039E+01 -2.81676E+01 3.11846E+01 + -2.82343E+01 2.52399E-02 7.90305E-03 2.68975E-02 9.12423E-03 + 9.91876E-01 -2.27291E-04 2.66830E-03 1.42674E-03 2.47084E+02 + -1.39045E+02 2.10485E+02 -1.65403E+02 3.27600E+01 -2.69685E+01 + 3.26515E+01 -2.70262E+01 2.53066E-02 7.95789E-03 2.69379E-02 + 9.15755E-03 9.91994E-01 -1.29881E-04 2.77111E-03 1.51140E-03 + 2.52456E+02 -1.34477E+02 2.18698E+02 -1.58418E+02 3.41248E+01 + -2.58079E+01 3.40258E+01 -2.58574E+01 2.53645E-02 8.00718E-03 + 2.69683E-02 9.18340E-03 9.92105E-01 -3.55625E-05 2.87636E-03 + 1.60092E-03 2.57570E+02 -1.29980E+02 2.26375E+02 -1.51667E+02 + 3.54023E+01 -2.46844E+01 3.53121E+01 -2.47263E+01 2.54148E-02 + 8.05134E-03 2.69897E-02 9.20220E-03 9.92216E-01 6.33945E-05 + 2.98398E-03 1.69556E-03 2.62424E+02 -1.25562E+02 2.33543E+02 + -1.45144E+02 3.65971E+01 -2.35968E+01 3.65146E+01 -2.36318E+01 + 2.54558E-02 8.08869E-03 2.70006E-02 9.21205E-03 9.92325E-01 + 1.62351E-04 3.09390E-03 1.79560E-03 2.67025E+02 -1.21223E+02 + 2.40221E+02 -1.38845E+02 3.77134E+01 -2.25441E+01 3.76374E+01 + -2.25728E+01 2.54896E-02 8.12063E-03 2.70036E-02 9.21485E-03 + 9.92433E-01 2.62854E-04 3.20606E-03 1.90140E-03 2.71378E+02 + -1.16961E+02 2.46433E+02 -1.32763E+02 3.87543E+01 -2.15251E+01 + 3.86839E+01 -2.15483E+01 2.55151E-02 8.14561E-03 2.69978E-02 + 9.20925E-03 9.92536E-01 3.64903E-04 3.32034E-03 2.01326E-03 + 2.75479E+02 -1.12790E+02 2.52206E+02 -1.26892E+02 3.97244E+01 + -2.05382E+01 3.96592E+01 -2.05563E+01 2.55345E-02 8.16532E-03 + 2.69852E-02 9.19640E-03 9.92634E-01 4.63859E-04 3.43669E-03 + 2.13162E-03 2.79340E+02 -1.08702E+02 2.57556E+02 -1.21227E+02 + 4.06258E+01 -1.95840E+01 4.05651E+01 -1.95972E+01 2.55471E-02 + 8.17866E-03 2.69658E-02 9.17591E-03 9.92733E-01 5.69001E-04 + 3.55492E-03 2.25680E-03 2.82964E+02 -1.04701E+02 2.62508E+02 + -1.15760E+02 4.14637E+01 -1.86590E+01 4.14066E+01 -1.86682E+01 + 2.55518E-02 8.18378E-03 2.69386E-02 9.14585E-03 9.92827E-01 + 6.72596E-04 3.67491E-03 2.38924E-03 2.86354E+02 -1.00792E+02 + 2.67082E+02 -1.10487E+02 4.22391E+01 -1.77651E+01 4.21854E+01 + -1.77703E+01 2.55513E-02 8.18330E-03 2.69063E-02 9.10860E-03 + 9.92914E-01 7.73099E-04 3.79650E-03 2.52942E-03 2.89517E+02 + -9.69767E+01 2.71292E+02 -1.05409E+02 4.29573E+01 -1.68986E+01 + 4.29065E+01 -1.69004E+01 2.55454E-02 8.17619E-03 2.68692E-02 + 9.06386E-03 9.92999E-01 8.75148E-04 3.91947E-03 2.67778E-03 + 2.92464E+02 -9.32480E+01 2.75166E+02 -1.00507E+02 4.36196E+01 + -1.60606E+01 4.35712E+01 -1.60594E+01 2.55344E-02 8.16218E-03 + 2.68274E-02 9.01104E-03 9.93078E-01 9.75651E-04 4.04363E-03 + 2.83489E-03 2.95195E+02 -8.96143E+01 2.78714E+02 -9.57861E+01 + 4.42293E+01 -1.52495E+01 4.41829E+01 -1.52455E+01 2.55185E-02 + 8.14112E-03 2.67818E-02 8.95026E-03 9.93157E-01 1.07925E-03 + 4.16868E-03 3.00124E-03 2.97720E+02 -8.60738E+01 2.81956E+02 + -9.12402E+01 4.47890E+01 -1.44648E+01 4.47445E+01 -1.44581E+01 + 2.54984E-02 8.11295E-03 2.67328E-02 8.88165E-03 9.93226E-01 + 1.17666E-03 4.29437E-03 3.17747E-03 3.00047E+02 -8.26256E+01 + 2.84912E+02 -8.68602E+01 4.53020E+01 -1.37043E+01 4.52590E+01 + -1.36956E+01 2.54738E-02 8.07642E-03 2.66803E-02 8.80385E-03 + 9.93291E-01 1.27252E-03 4.42033E-03 3.36418E-03 3.02182E+02 + -7.92690E+01 2.87594E+02 -8.26430E+01 4.57693E+01 -1.29697E+01 + 4.57278E+01 -1.29587E+01 2.54468E-02 8.03394E-03 2.66268E-02 + 8.71968E-03 9.93351E-01 1.36993E-03 4.54619E-03 3.56204E-03 + 3.04129E+02 -7.60101E+01 2.90016E+02 -7.85901E+01 4.61945E+01 + -1.22583E+01 4.61537E+01 -1.22458E+01 2.54175E-02 7.98500E-03 + 2.65725E-02 8.62874E-03 9.93407E-01 1.46115E-03 4.67158E-03 + 3.77186E-03 3.05901E+02 -7.28397E+01 2.92198E+02 -7.46866E+01 + 4.65792E+01 -1.15700E+01 4.65395E+01 -1.15557E+01 2.53850E-02 + 7.92682E-03 2.65163E-02 8.52820E-03 9.93460E-01 1.55703E-03 + 4.79595E-03 3.99436E-03 3.07501E+02 -6.97656E+01 2.94150E+02 + -7.09349E+01 4.69254E+01 -1.09048E+01 4.68864E+01 -1.08892E+01 + 2.53518E-02 7.86304E-03 2.64608E-02 8.42175E-03 9.93504E-01 + 1.64207E-03 4.91879E-03 4.23037E-03 3.08940E+02 -6.67811E+01 + 2.95888E+02 -6.73289E+01 4.72358E+01 -1.02607E+01 4.71972E+01 + -1.02441E+01 2.53168E-02 7.79037E-03 2.64054E-02 8.30656E-03 + 9.93546E-01 1.72864E-03 5.03949E-03 4.48085E-03 3.10222E+02 + -6.38892E+01 2.97423E+02 -6.38670E+01 4.75118E+01 -9.63804E+00 + 4.74739E+01 -9.62013E+00 2.52813E-02 7.71021E-03 2.63510E-02 + 8.18398E-03 9.93584E-01 1.81370E-03 5.15735E-03 4.74667E-03 + 3.11357E+02 -6.10844E+01 2.98772E+02 -6.05342E+01 4.77555E+01 + -9.03627E+00 4.77178E+01 -9.01766E+00 2.52463E-02 7.62382E-03 + 2.62988E-02 8.05516E-03 9.93616E-01 1.89253E-03 5.27162E-03 + 5.02896E-03 3.12350E+02 -5.83737E+01 2.99941E+02 -5.73437E+01 + 4.79686E+01 -8.45411E+00 4.79314E+01 -8.43452E+00 2.52115E-02 + 7.52887E-03 2.62487E-02 7.91837E-03 9.93645E-01 1.97141E-03 + 5.38142E-03 5.32876E-03 3.13209E+02 -5.57518E+01 3.00945E+02 + -5.42786E+01 4.81529E+01 -7.89174E+00 4.81159E+01 -7.87156E+00 + 2.51778E-02 7.42595E-03 2.62013E-02 7.77365E-03 9.93668E-01 + 2.04251E-03 5.48584E-03 5.64738E-03 3.13943E+02 -5.32152E+01 + 3.01794E+02 -5.13422E+01 4.83102E+01 -7.34797E+00 4.82733E+01 + -7.32719E+00 2.51460E-02 7.31597E-03 2.61577E-02 7.62285E-03 + 9.93689E-01 2.11366E-03 5.58374E-03 5.98597E-03 3.14556E+02 + -5.07660E+01 3.02501E+02 -4.85233E+01 4.84418E+01 -6.82272E+00 + 4.84050E+01 -6.80154E+00 2.51165E-02 7.19823E-03 2.61180E-02 + 7.46446E-03 9.93705E-01 2.17703E-03 5.67397E-03 6.34599E-03 + 3.15057E+02 -4.84051E+01 3.03072E+02 -4.58291E+01 4.85494E+01 + -6.31545E+00 4.85126E+01 -6.29388E+00 2.50895E-02 7.07114E-03 + 2.60826E-02 7.29766E-03 9.93718E-01 2.24200E-03 5.75515E-03 + 6.72881E-03 3.15453E+02 -4.61246E+01 3.03521E+02 -4.32454E+01 + 4.86344E+01 -5.82544E+00 4.85977E+01 -5.80357E+00 2.50665E-02 + 6.93813E-03 2.60528E-02 7.12570E-03 9.93729E-01 2.30073E-03 + 5.82583E-03 7.13615E-03 3.15749E+02 -4.39283E+01 3.03854E+02 + -4.07735E+01 4.86983E+01 -5.35240E+00 4.86616E+01 -5.33033E+00 + 2.50472E-02 6.79553E-03 2.60284E-02 6.94484E-03 9.93736E-01 + 2.35333E-03 5.88434E-03 7.56969E-03 3.15953E+02 -4.18170E+01 + 3.04082E+02 -3.84128E+01 4.87423E+01 -4.89551E+00 4.87057E+01 + -4.87335E+00 2.50328E-02 6.64565E-03 2.60104E-02 6.75765E-03 + 9.93740E-01 2.40126E-03 5.92883E-03 8.03114E-03 3.16071E+02 + -3.97827E+01 3.04212E+02 -3.61577E+01 4.87678E+01 -4.45520E+00 + 4.87312E+01 -4.43283E+00 2.50236E-02 6.48703E-03 2.59991E-02 + 6.56299E-03 9.93743E-01 2.44916E-03 5.95727E-03 8.52254E-03 + 3.16108E+02 -3.78270E+01 3.04254E+02 -3.40017E+01 4.87760E+01 + -4.02993E+00 4.87394E+01 -4.00777E+00 2.50203E-02 6.31954E-03 + 2.59952E-02 6.36013E-03 9.93744E-01 2.49094E-03 5.96738E-03 + 9.04602E-03 3.16077E+02 -3.61688E+01 3.04219E+02 -3.21631E+01 + 4.87681E+01 -3.62040E+00 4.87315E+01 -3.59794E+00 2.50367E-02 + 5.47036E-03 2.60126E-02 5.45137E-03 9.93743E-01 2.52338E-03 + 5.95665E-03 9.60375E-03 3.15974E+02 -3.43952E+01 3.04107E+02 + -3.02310E+01 4.87453E+01 -3.22492E+00 4.87086E+01 -3.20265E+00 + 2.50528E-02 5.19211E-03 2.60308E-02 5.13708E-03 9.93742E-01 + 2.55433E-03 5.92230E-03 1.01982E-02 3.15809E+02 -3.26832E+01 + 3.03929E+02 -2.83806E+01 4.87086E+01 -2.84380E+00 4.86720E+01 + -2.82183E+00 2.50761E-02 4.95012E-03 2.60573E-02 4.86218E-03 + 9.93738E-01 2.58677E-03 5.86125E-03 1.08320E-02 3.15588E+02 + -3.10449E+01 3.03691E+02 -2.66179E+01 4.86591E+01 -2.47720E+00 + 4.86225E+01 -2.45513E+00 2.51104E-02 4.69535E-03 2.60960E-02 + 4.57527E-03 9.93736E-01 2.60690E-03 5.77009E-03 1.15079E-02 + 3.15316E+02 -2.94746E+01 3.03401E+02 -2.49464E+01 4.85978E+01 + -2.12350E+00 4.85612E+01 -2.10173E+00 2.51563E-02 4.43084E-03 + 2.61471E-02 4.28062E-03 9.93731E-01 2.63161E-03 5.64505E-03 + 1.22289E-02 3.14999E+02 -2.79811E+01 3.03064E+02 -2.33579E+01 + 4.85257E+01 -1.78351E+00 4.84892E+01 -1.76193E+00 2.52153E-02 + 4.15258E-03 2.62124E-02 3.97259E-03 9.93728E-01 2.64711E-03 + 5.48196E-03 1.29982E-02 3.14641E+02 -2.65527E+01 3.02687E+02 + -2.18519E+01 4.84436E+01 -1.45574E+00 4.84071E+01 -1.43437E+00 + 2.52878E-02 3.86330E-03 2.62919E-02 3.65514E-03 9.93724E-01 + 2.66099E-03 5.27627E-03 1.38192E-02 3.14249E+02 -2.51945E+01 + 3.02276E+02 -2.04287E+01 4.83526E+01 -1.14088E+00 4.83162E+01 + -1.11980E+00 2.53751E-02 3.56111E-03 2.63870E-02 3.32608E-03 + 9.93722E-01 2.66721E-03 5.02291E-03 1.46957E-02 3.13824E+02 + -2.38970E+01 3.01835E+02 -1.90829E+01 4.82532E+01 -8.37673E-01 + 4.82170E+01 -8.16991E-01 2.54792E-02 3.24341E-03 2.64994E-02 + 2.98302E-03 9.93721E-01 2.67339E-03 4.71628E-03 1.56316E-02 + 3.13374E+02 -2.26688E+01 3.01368E+02 -1.78097E+01 4.81466E+01 + -5.46435E-01 4.81104E+01 -5.25852E-01 2.55989E-02 2.91650E-03 + 2.66281E-02 2.63156E-03 9.93721E-01 2.67490E-03 4.35026E-03 + 1.66312E-02 3.12802E+02 -2.12576E+01 3.00786E+02 -1.63699E+01 + 4.80334E+01 -2.66789E-01 4.79973E+01 -2.46601E-01 2.54222E-02 + 3.35305E-03 2.64504E-02 3.07062E-03 9.93719E-01 2.67648E-03 + 3.91806E-03 1.76991E-02 3.12148E+02 -1.97801E+01 3.00121E+02 + -1.48711E+01 4.79140E+01 2.77077E-03 4.78780E+01 2.26609E-02 + 2.50535E-02 4.18481E-03 2.60750E-02 3.91770E-03 9.93719E-01 + 2.67645E-03 3.41229E-03 1.88401E-02 3.11628E+02 -1.87021E+01 + 2.99596E+02 -1.37804E+01 4.77898E+01 2.60455E-01 4.77539E+01 + 2.80049E-01 2.51767E-02 3.92920E-03 2.62073E-02 3.64296E-03 + 9.93723E-01 2.66875E-03 2.82467E-03 2.00596E-02 3.11095E+02 + -1.76767E+01 2.99061E+02 -1.27519E+01 4.76606E+01 5.08634E-01 + 4.76252E+01 5.27534E-01 2.53149E-02 3.66364E-03 2.63548E-02 + 3.35943E-03 9.93729E-01 2.65790E-03 2.14636E-03 2.13632E-02 + 3.10551E+02 -1.67032E+01 2.98518E+02 -1.17815E+01 4.75280E+01 + 7.45940E-01 4.74925E+01 7.64939E-01 2.54632E-02 3.39827E-03 + 2.65125E-02 3.07739E-03 9.93738E-01 2.64247E-03 1.36738E-03 + 2.27569E-02 3.10002E+02 -1.57847E+01 2.97977E+02 -1.08757E+01 + 4.73916E+01 9.74222E-01 4.73565E+01 9.92529E-01 2.56320E-02 + 3.11571E-03 2.66906E-02 2.77937E-03 9.93747E-01 2.62697E-03 + 4.76854E-04 2.42473E-02 3.09452E+02 -1.49204E+01 2.97437E+02 + -1.00271E+01 4.72528E+01 1.19253E+00 4.72178E+01 1.21054E+00 + 2.58241E-02 2.81366E-03 2.68922E-02 2.46229E-03 9.93761E-01 + 2.60536E-03 -5.37017E-04 2.58415E-02 3.08902E+02 -1.41048E+01 + 2.96903E+02 -9.23537E+00 4.71115E+01 1.40201E+00 4.70767E+01 + 1.41972E+00 2.60296E-02 2.50908E-03 2.71068E-02 2.14422E-03 + 9.93775E-01 2.58523E-03 -1.68735E-03 2.75467E-02 3.08108E+02 + -1.29911E+01 2.96130E+02 -8.15091E+00 4.69685E+01 1.60251E+00 + 4.69340E+01 1.61983E+00 2.54571E-02 3.31188E-03 2.65209E-02 + 2.96577E-03 9.93789E-01 2.56516E-03 -2.98872E-03 2.93716E-02 + 3.07537E+02 -1.22311E+01 2.95584E+02 -7.42496E+00 4.68240E+01 + 1.79469E+00 4.67900E+01 1.81161E+00 2.56141E-02 3.10304E-03 + 2.66851E-02 2.74737E-03 9.93809E-01 2.53887E-03 -4.45639E-03 + 3.13242E-02 3.06989E+02 -1.15383E+01 2.95065E+02 -6.76780E+00 + 4.66788E+01 1.97843E+00 4.66451E+01 1.99485E+00 2.58287E-02 + 2.83141E-03 2.69080E-02 2.46530E-03 9.93832E-01 2.50792E-03 + -6.10788E-03 3.34141E-02 3.06445E+02 -1.08821E+01 2.94560E+02 + -6.15910E+00 4.65333E+01 2.15400E+00 4.64997E+01 2.17023E+00 + 2.60652E-02 2.54607E-03 2.71519E-02 2.17102E-03 9.93855E-01 + 2.48012E-03 -7.96205E-03 3.56514E-02 3.05913E+02 -1.02693E+01 + 2.94067E+02 -5.59062E+00 4.63873E+01 2.32230E+00 4.63543E+01 + 2.33803E+00 2.63188E-02 2.25362E-03 2.74129E-02 1.87002E-03 + 9.93886E-01 2.44607E-03 -1.00394E-02 3.80465E-02 3.05281E+02 + -9.57114E+00 2.93481E+02 -4.94311E+00 4.62419E+01 2.48284E+00 + 4.62092E+01 2.49818E+00 2.62166E-02 2.36647E-03 2.73082E-02 + 1.98562E-03 9.93911E-01 2.41672E-03 -1.23629E-02 4.06115E-02 + 3.04143E+02 -8.36614E+00 2.92393E+02 -3.79120E+00 4.60968E+01 + 2.63649E+00 4.60642E+01 2.65163E+00 2.44367E-02 4.25119E-03 + 2.54845E-02 3.91674E-03 9.93940E-01 2.38731E-03 -1.49567E-02 + 4.33580E-02 3.03611E+02 -7.82475E+00 2.91915E+02 -3.30517E+00 + 4.59525E+01 2.78337E+00 4.59204E+01 2.79792E+00 2.46075E-02 + 4.07740E-03 2.56607E-02 3.73742E-03 9.93973E-01 2.35333E-03 + -1.78488E-02 4.63002E-02 3.03093E+02 -7.31720E+00 2.91460E+02 + -2.85943E+00 4.58096E+01 2.92316E+00 4.57779E+01 2.93741E+00 + 2.47944E-02 3.89441E-03 2.58522E-02 3.55000E-03 9.94013E-01 + 2.31619E-03 -2.10683E-02 4.94519E-02 3.02595E+02 -6.84784E+00 + 2.91025E+02 -2.44860E+00 4.56679E+01 3.05679E+00 4.56368E+01 + 3.07054E+00 2.50122E-02 3.68906E-03 2.60749E-02 3.33986E-03 + 9.94053E-01 2.27602E-03 -2.46475E-02 5.28283E-02 3.02595E+02 + -6.84784E+00 2.91025E+02 -2.44860E+00 4.56679E+01 3.05679E+00 + 4.56368E+01 3.07054E+00 2.50122E-02 3.68906E-03 2.60749E-02 + 3.33986E-03 9.94053E-01 2.27602E-03 -2.46475E-02 5.28283E-02 + ECHO READ:EBINDA(IM),$LGN(GE(IM)/0,1/) + 4.62792E-04 1.69413E+02 2.69387E+01 + ECHO READ:($LGN(GMFP,GBR1,GBR2(I,IM)/0,1/),I=1,NGE) + 1.04689E-03 1.60029E-04 0.00000E+00 0.00000E+00 7.77847E-02 + 1.25164E-02 1.04689E-03 1.60029E-04 0.00000E+00 0.00000E+00 + 7.77847E-02 1.25164E-02 1.16187E-03 1.78641E-04 0.00000E+00 + 0.00000E+00 3.37782E-02 5.39275E-03 1.29055E-03 1.99599E-04 + 0.00000E+00 0.00000E+00 -2.07659E-02 -3.49014E-03 1.42728E-03 + 2.22001E-04 0.00000E+00 0.00000E+00 6.98676E-03 1.05706E-03 + 1.58362E-03 2.47773E-04 0.00000E+00 0.00000E+00 -2.61171E-02 + -4.40010E-03 1.74734E-03 2.74930E-04 0.00000E+00 0.00000E+00 + 4.11194E-02 6.75207E-03 1.93820E-03 3.06782E-04 0.00000E+00 + 0.00000E+00 8.49149E-03 1.30672E-03 2.14111E-03 3.40858E-04 + 0.00000E+00 0.00000E+00 4.97847E-02 8.24121E-03 2.38130E-03 + 3.81447E-04 0.00000E+00 0.00000E+00 -3.05470E-02 -5.33375E-03 + 2.62747E-03 4.23309E-04 0.00000E+00 0.00000E+00 3.34793E-02 + 5.55411E-03 2.91907E-03 4.73210E-04 0.00000E+00 0.00000E+00 + 1.28820E-02 2.02923E-03 3.31770E-03 5.41865E-04 0.00000E+00 + 0.00000E+00 4.07295E-02 6.82533E-03 1.01512E-03 1.42746E-04 + 0.00000E+00 0.00000E+00 -7.05894E-04 -3.56898E-04 3.71687E-03 + 6.14090E-04 0.00000E+00 0.00000E+00 7.24900E-02 1.24127E-02 + 4.14059E-03 6.88492E-04 0.00000E+00 0.00000E+00 -7.01388E-03 + -1.54779E-03 4.58517E-03 7.67072E-04 0.00000E+00 0.00000E+00 + 2.17853E-02 3.54239E-03 5.07408E-03 8.54056E-04 0.00000E+00 + 0.00000E+00 5.71198E-02 9.82892E-03 5.62318E-03 9.52398E-04 + 0.00000E+00 0.00000E+00 6.37516E-02 1.10167E-02 6.27745E-03 + 1.07036E-03 0.00000E+00 0.00000E+00 -6.01869E-03 -1.56266E-03 + 6.96921E-03 1.19592E-03 0.00000E+00 0.00000E+00 7.31686E-02 + 1.28107E-02 7.73765E-03 1.33635E-03 0.00000E+00 0.00000E+00 + 5.95470E-02 1.03215E-02 8.58085E-03 1.49149E-03 0.00000E+00 + 0.00000E+00 6.54485E-02 1.14073E-02 9.51451E-03 1.66446E-03 + 0.00000E+00 0.00000E+00 7.18684E-02 1.25966E-02 1.05304E-02 + 1.85396E-03 0.00000E+00 0.00000E+00 1.05686E-01 1.89048E-02 + 1.17684E-02 2.08650E-03 0.00000E+00 0.00000E+00 6.03974E-02 + 1.03979E-02 1.31966E-02 2.35666E-03 0.00000E+00 0.00000E+00 + 6.55599E-02 1.13745E-02 1.46263E-02 2.62902E-03 0.00000E+00 + 0.00000E+00 1.02968E-01 1.85006E-02 1.62157E-02 2.93394E-03 + 0.00000E+00 0.00000E+00 1.30419E-01 2.37671E-02 1.80107E-02 + 3.28078E-03 0.00000E+00 0.00000E+00 1.25123E-01 2.27438E-02 + 2.04245E-02 3.75058E-03 0.00000E+00 0.00000E+00 1.40077E-01 + 2.56541E-02 2.34330E-02 4.34036E-03 0.00000E+00 0.00000E+00 + 1.58692E-01 2.93035E-02 2.60611E-02 4.85937E-03 0.00000E+00 + 0.00000E+00 2.20782E-01 4.15649E-02 2.91286E-02 5.46960E-03 + 0.00000E+00 0.00000E+00 1.95776E-01 3.65904E-02 3.24125E-02 + 6.12774E-03 0.00000E+00 0.00000E+00 2.41452E-01 4.57445E-02 + 3.61659E-02 6.88563E-03 0.00000E+00 0.00000E+00 2.37779E-01 + 4.50028E-02 4.02000E-02 7.70635E-03 0.00000E+00 0.00000E+00 + 2.91041E-01 5.58388E-02 4.47308E-02 8.63511E-03 0.00000E+00 + 0.00000E+00 3.20391E-01 6.18553E-02 4.91277E-02 9.54336E-03 + 0.00000E+00 0.00000E+00 3.29857E-01 6.38105E-02 5.40110E-02 + 1.05599E-02 0.00000E+00 0.00000E+00 3.95411E-01 7.74562E-02 + 6.00171E-02 1.18198E-02 0.00000E+00 0.00000E+00 3.93708E-01 + 7.70990E-02 6.61044E-02 1.31068E-02 0.00000E+00 0.00000E+00 + 5.14440E-01 1.02625E-01 7.35745E-02 1.46987E-02 0.00000E+00 + 0.00000E+00 4.74189E-01 9.40476E-02 8.09887E-02 1.62913E-02 + 0.00000E+00 0.00000E+00 5.87990E-01 1.18492E-01 8.99752E-02 + 1.82371E-02 0.00000E+00 0.00000E+00 6.46394E-01 1.31138E-01 + 9.96601E-02 2.03511E-02 0.00000E+00 0.00000E+00 7.08018E-01 + 1.44589E-01 1.10191E-01 2.26687E-02 0.00000E+00 0.00000E+00 + 7.42929E-01 1.52272E-01 1.20912E-01 2.50472E-02 0.00000E+00 + 0.00000E+00 8.68345E-01 1.80099E-01 1.33514E-01 2.78665E-02 + 0.00000E+00 0.00000E+00 8.95920E-01 1.86267E-01 1.46179E-01 + 3.07237E-02 0.00000E+00 0.00000E+00 1.02165E+00 2.14631E-01 + 1.60566E-01 3.39968E-02 0.00000E+00 0.00000E+00 1.08846E+00 + 2.29830E-01 1.75306E-01 3.73786E-02 0.00000E+00 0.00000E+00 + 1.21326E+00 2.58463E-01 1.90860E-01 4.09779E-02 0.00000E+00 + 0.00000E+00 1.34817E+00 2.89683E-01 2.08749E-01 4.51535E-02 + 0.00000E+00 0.00000E+00 1.40975E+00 3.04056E-01 2.25763E-01 + 4.91592E-02 0.00000E+00 0.00000E+00 1.57688E+00 3.43407E-01 + 2.47738E-01 5.43790E-02 0.00000E+00 0.00000E+00 1.68220E+00 + 3.68423E-01 2.68666E-01 5.93941E-02 0.00000E+00 0.00000E+00 + 1.82613E+00 4.02914E-01 2.89370E-01 6.44002E-02 0.00000E+00 + 0.00000E+00 1.96802E+00 4.37223E-01 3.10527E-01 6.95622E-02 + 0.00000E+00 0.00000E+00 2.11242E+00 4.72452E-01 3.32422E-01 + 7.49528E-02 0.00000E+00 0.00000E+00 2.24484E+00 5.05056E-01 + 3.54546E-01 8.04503E-02 0.00000E+00 0.00000E+00 2.37518E+00 + 5.37443E-01 3.75363E-01 8.56710E-02 0.00000E+00 0.00000E+00 + 2.52813E+00 5.75803E-01 3.97620E-01 9.13053E-02 0.00000E+00 + 0.00000E+00 2.63650E+00 6.03235E-01 4.21198E-01 9.73307E-02 + 0.00000E+00 0.00000E+00 2.80469E+00 6.46218E-01 4.41664E-01 + 1.02611E-01 0.00000E+00 0.00000E+00 2.91217E+00 6.73946E-01 + 4.59805E-01 1.07337E-01 0.00000E+00 0.00000E+00 3.01985E+00 + 7.01997E-01 4.75569E-01 1.11483E-01 0.00000E+00 0.00000E+00 + 3.11979E+00 7.28287E-01 4.89079E-01 1.15072E-01 0.00000E+00 + 0.00000E+00 3.20323E+00 7.50450E-01 5.02255E-01 1.18607E-01 + 0.00000E+00 0.00000E+00 3.24936E+00 7.62826E-01 5.11033E-01 + 1.20985E-01 0.00000E+00 0.00000E+00 3.29564E+00 7.75366E-01 + 5.18759E-01 1.23100E-01 0.00000E+00 0.00000E+00 3.31003E+00 + 7.79305E-01 5.22285E-01 1.24075E-01 0.00000E+00 0.00000E+00 + 3.31665E+00 7.81136E-01 5.23077E-01 1.24297E-01 0.00000E+00 + 0.00000E+00 3.30343E+00 7.77443E-01 5.23512E-01 1.24419E-01 + 0.00000E+00 0.00000E+00 3.26222E+00 7.65806E-01 5.20433E-01 + 1.23541E-01 0.00000E+00 0.00000E+00 3.24327E+00 7.60400E-01 + 5.15618E-01 1.22152E-01 0.00000E+00 0.00000E+00 3.16990E+00 + 7.39242E-01 5.07342E-01 1.19740E-01 0.00000E+00 0.00000E+00 + 3.08996E+00 7.15940E-01 4.97481E-01 1.16834E-01 0.00000E+00 + 0.00000E+00 2.99843E+00 6.88965E-01 4.87034E-01 1.13721E-01 + 0.00000E+00 0.00000E+00 2.89607E+00 6.58470E-01 4.73780E-01 + 1.09728E-01 0.00000E+00 0.00000E+00 2.79215E+00 6.27159E-01 + 4.61888E-01 1.06105E-01 0.00000E+00 0.00000E+00 2.67891E+00 + 5.92655E-01 4.48455E-01 1.01965E-01 0.00000E+00 0.00000E+00 + 2.57226E+00 5.59787E-01 4.36419E-01 9.82126E-02 0.00000E+00 + 0.00000E+00 2.46825E+00 5.27364E-01 4.22937E-01 9.39607E-02 + 0.00000E+00 0.00000E+00 2.35455E+00 4.91504E-01 4.08548E-01 + 8.93689E-02 0.00000E+00 0.00000E+00 2.24546E+00 4.56689E-01 + 3.97586E-01 8.58287E-02 0.00000E+00 0.00000E+00 2.13665E+00 + 4.21552E-01 3.84670E-01 8.16067E-02 0.00000E+00 0.00000E+00 + 2.03620E+00 3.88716E-01 3.72353E-01 7.75311E-02 0.00000E+00 + 0.00000E+00 1.93665E+00 3.55775E-01 3.60661E-01 7.36141E-02 + 0.00000E+00 0.00000E+00 1.83842E+00 3.22872E-01 3.50949E-01 + 7.03200E-02 0.00000E+00 0.00000E+00 1.75713E+00 2.95296E-01 + 3.42574E-01 6.74427E-02 0.00000E+00 0.00000E+00 1.68152E+00 + 2.69318E-01 3.35184E-01 6.48712E-02 0.00000E+00 0.00000E+00 + 1.61185E+00 2.45074E-01 3.28706E-01 6.25871E-02 0.00000E+00 + 0.00000E+00 1.55392E+00 2.24650E-01 3.23785E-01 6.08297E-02 + 0.00000E+00 0.00000E+00 1.50290E+00 2.06427E-01 3.18517E-01 + 5.89222E-02 0.00000E+00 0.00000E+00 1.44757E+00 1.86393E-01 + 3.13697E-01 5.71535E-02 0.00000E+00 0.00000E+00 1.39773E+00 + 1.68106E-01 3.09297E-01 5.55166E-02 0.00000E+00 0.00000E+00 + 1.35296E+00 1.51452E-01 3.05999E-01 5.42725E-02 0.00000E+00 + 0.00000E+00 1.31264E+00 1.36243E-01 3.03304E-01 5.32417E-02 + 0.00000E+00 0.00000E+00 1.27657E+00 1.22442E-01 3.00900E-01 + 5.23088E-02 0.00000E+00 0.00000E+00 1.24440E+00 1.09961E-01 + 2.99431E-01 5.17304E-02 0.00000E+00 0.00000E+00 1.21657E+00 + 9.90010E-02 2.98703E-01 5.14393E-02 0.00000E+00 0.00000E+00 + 1.19125E+00 8.88836E-02 2.97669E-01 5.10199E-02 0.00000E+00 + 0.00000E+00 1.16840E+00 7.96152E-02 2.97272E-01 5.08561E-02 + 0.00000E+00 0.00000E+00 1.14811E+00 7.12581E-02 2.97393E-01 + 5.09070E-02 0.00000E+00 0.00000E+00 1.13016E+00 6.37468E-02 + 2.97876E-01 5.11118E-02 0.00000E+00 0.00000E+00 1.11428E+00 + 5.70046E-02 2.98302E-01 5.12960E-02 0.00000E+00 0.00000E+00 + 1.09974E+00 5.07264E-02 2.99413E-01 5.17833E-02 0.00000E+00 + 0.00000E+00 1.08719E+00 4.52222E-02 3.00437E-01 5.22402E-02 + 0.00000E+00 0.00000E+00 1.07649E+00 4.04549E-02 3.02000E-01 + 5.29487E-02 0.00000E+00 0.00000E+00 1.06705E+00 3.61742E-02 + 3.03577E-01 5.36760E-02 0.00000E+00 0.00000E+00 1.05876E+00 + 3.23495E-02 3.05391E-01 5.45267E-02 0.00000E+00 0.00000E+00 + 1.05146E+00 2.89226E-02 3.07367E-01 5.54704E-02 0.00000E+00 + 0.00000E+00 1.04504E+00 2.58561E-02 3.09410E-01 5.64635E-02 + 0.00000E+00 0.00000E+00 1.03941E+00 2.31201E-02 3.11525E-01 + 5.75108E-02 0.00000E+00 0.00000E+00 1.03445E+00 2.06682E-02 + 3.13905E-01 5.87110E-02 0.00000E+00 0.00000E+00 1.03011E+00 + 1.84765E-02 3.16214E-01 5.98980E-02 0.00000E+00 0.00000E+00 + 1.02630E+00 1.65192E-02 3.18550E-01 6.11223E-02 0.00000E+00 + 0.00000E+00 1.02223E+00 1.43868E-02 3.21012E-01 6.24382E-02 + 0.00000E+00 0.00000E+00 1.01916E+00 1.27474E-02 3.23642E-01 + 6.38712E-02 0.00000E+00 0.00000E+00 1.01678E+00 1.14468E-02 + 3.26265E-01 6.53304E-02 0.00000E+00 0.00000E+00 1.01469E+00 + 1.02859E-02 3.28993E-01 6.68811E-02 0.00000E+00 0.00000E+00 + 1.01284E+00 9.23422E-03 3.31693E-01 6.84478E-02 0.00000E+00 + 0.00000E+00 1.01123E+00 8.29812E-03 3.34395E-01 7.00510E-02 + 0.00000E+00 0.00000E+00 1.00981E+00 7.45665E-03 3.37178E-01 + 7.17386E-02 0.00000E+00 0.00000E+00 1.00856E+00 6.70047E-03 + 3.39809E-01 7.33716E-02 0.00000E+00 0.00000E+00 1.00692E+00 + 5.68087E-03 3.42600E-01 7.51439E-02 0.00000E+00 0.00000E+00 + 1.00604E+00 5.12049E-03 3.45424E-01 7.69808E-02 0.00000E+00 + 0.00000E+00 1.00529E+00 4.63397E-03 3.48205E-01 7.88353E-02 + 0.00000E+00 0.00000E+00 1.00462E+00 4.19081E-03 3.51018E-01 + 8.07577E-02 0.00000E+00 0.00000E+00 1.00405E+00 3.79581E-03 + 3.53788E-01 8.27002E-02 0.00000E+00 0.00000E+00 1.00353E+00 + 3.43293E-03 3.56579E-01 8.47093E-02 0.00000E+00 0.00000E+00 + 1.00309E+00 3.11340E-03 3.59345E-01 8.67557E-02 0.00000E+00 + 0.00000E+00 1.00268E+00 2.81314E-03 3.62093E-01 8.88455E-02 + 0.00000E+00 0.00000E+00 1.00233E+00 2.54981E-03 3.64831E-01 + 9.09895E-02 0.00000E+00 0.00000E+00 1.00203E+00 2.31053E-03 + 3.71097E-01 9.60409E-02 0.00000E+00 0.00000E+00 1.01564E+00 + 1.32869E-02 3.70068E-01 9.51859E-02 0.00000E+00 0.00000E+00 + 1.00069E+00 8.60640E-04 3.72767E-01 9.75013E-02 0.00000E+00 + 0.00000E+00 1.00060E+00 7.80357E-04 3.75438E-01 9.98672E-02 + 0.00000E+00 0.00000E+00 1.00051E+00 7.04890E-04 3.78068E-01 + 1.02275E-01 0.00000E+00 0.00000E+00 1.00044E+00 6.42269E-04 + 3.80684E-01 1.04756E-01 0.00000E+00 0.00000E+00 1.00038E+00 + 5.79648E-04 3.83260E-01 1.07287E-01 0.00000E+00 0.00000E+00 + 1.00032E+00 5.26661E-04 3.85795E-01 1.09872E-01 0.00000E+00 + 0.00000E+00 1.00027E+00 4.73673E-04 3.88921E-01 1.13186E-01 + 0.00000E+00 0.00000E+00 1.00239E+00 2.71840E-03 3.90738E-01 + 1.15190E-01 0.00000E+00 0.00000E+00 1.00007E+00 1.62173E-04 + 3.93172E-01 1.17991E-01 0.00000E+00 0.00000E+00 1.00006E+00 + 1.47722E-04 3.95555E-01 1.20856E-01 0.00000E+00 0.00000E+00 + 1.00005E+00 1.36480E-04 3.97895E-01 1.23800E-01 0.00000E+00 + 0.00000E+00 1.00004E+00 1.25242E-04 4.00179E-01 1.26814E-01 + 0.00000E+00 0.00000E+00 1.00004E+00 1.18820E-04 4.02420E-01 + 1.29923E-01 0.00000E+00 0.00000E+00 1.00003E+00 1.04369E-04 + 4.04591E-01 1.33100E-01 0.00000E+00 0.00000E+00 1.00002E+00 + 8.99177E-05 4.06711E-01 1.36379E-01 0.00000E+00 0.00000E+00 + 1.00001E+00 8.51006E-05 4.08761E-01 1.39744E-01 0.00000E+00 + 0.00000E+00 1.00001E+00 7.86780E-05 4.10747E-01 1.43214E-01 + 0.00000E+00 0.00000E+00 1.00001E+00 7.38609E-05 4.12653E-01 + 1.46776E-01 0.00000E+00 0.00000E+00 1.00000E+00 6.26212E-05 + 4.14481E-01 1.50449E-01 0.00000E+00 0.00000E+00 9.99998E-01 + 5.61985E-05 4.16224E-01 1.54230E-01 0.00000E+00 0.00000E+00 + 9.99996E-01 5.13815E-05 4.17875E-01 1.58128E-01 0.00000E+00 + 0.00000E+00 9.99994E-01 4.65645E-05 4.19425E-01 1.62138E-01 + 0.00000E+00 0.00000E+00 9.99994E-01 4.65639E-05 4.20873E-01 + 1.66280E-01 0.00000E+00 0.00000E+00 9.99992E-01 4.17475E-05 + 4.22204E-01 1.70542E-01 0.00000E+00 0.00000E+00 9.99990E-01 + 3.69305E-05 4.23416E-01 1.74946E-01 0.00000E+00 0.00000E+00 + 9.99990E-01 3.69305E-05 4.24496E-01 1.79482E-01 0.00000E+00 + 0.00000E+00 9.99989E-01 3.05078E-05 4.25436E-01 1.84163E-01 + 0.00000E+00 0.00000E+00 9.99988E-01 2.89021E-05 4.26228E-01 + 1.88996E-01 0.00000E+00 0.00000E+00 9.99988E-01 2.72964E-05 + 4.26860E-01 1.93981E-01 0.00000E+00 0.00000E+00 9.99988E-01 + 2.56908E-05 4.27321E-01 1.99126E-01 0.00000E+00 0.00000E+00 + 9.99987E-01 2.08737E-05 4.27599E-01 2.04437E-01 0.00000E+00 + 0.00000E+00 9.99988E-01 2.40851E-05 4.27684E-01 2.09919E-01 + 0.00000E+00 0.00000E+00 9.99988E-01 1.92681E-05 4.27600E-01 + 2.13755E-01 -9.04078E-05 4.15168E-03 9.99988E-01 1.60565E-05 + 4.27264E-01 2.19459E-01 -9.93594E-05 4.30366E-03 9.99988E-01 + 1.60567E-05 4.26699E-01 2.25348E-01 -1.14703E-04 4.46346E-03 + 9.99988E-01 1.28454E-05 4.25890E-01 2.31423E-01 -1.36837E-04 + 4.62970E-03 9.99987E-01 1.60567E-05 4.24824E-01 2.37685E-01 + -1.66282E-04 4.80264E-03 9.99988E-01 1.28454E-05 4.23483E-01 + 2.44151E-01 -2.03598E-04 4.98258E-03 9.99988E-01 1.12397E-05 + 4.21853E-01 2.50818E-01 -2.49377E-04 5.16981E-03 9.99988E-01 + 1.44511E-05 4.19915E-01 2.57697E-01 -3.04243E-04 5.36463E-03 + 9.99989E-01 9.63404E-06 4.17654E-01 2.64793E-01 -3.68858E-04 + 5.56735E-03 9.99989E-01 1.12397E-05 4.15050E-01 2.72108E-01 + -4.43929E-04 5.77830E-03 9.99988E-01 1.12397E-05 4.14154E-01 + 2.74389E-01 -4.41171E-03 1.58747E-02 9.99990E-01 9.63404E-06 + 4.12183E-01 2.78973E-01 -6.86501E-03 2.15786E-02 9.99990E-01 + 6.42269E-06 4.08744E-01 2.86331E-01 -7.25248E-03 2.24079E-02 + 9.99990E-01 8.02826E-06 4.04933E-01 2.93888E-01 -7.68709E-03 + 2.32696E-02 9.99989E-01 8.02836E-06 4.00733E-01 3.01645E-01 + -8.17183E-03 2.41648E-02 9.99992E-01 4.81702E-06 3.96119E-01 + 3.09617E-01 -8.70995E-03 2.50948E-02 9.99990E-01 6.42269E-06 + 3.91078E-01 3.17806E-01 -9.30480E-03 2.60609E-02 9.99990E-01 + 6.42269E-06 3.85593E-01 3.26207E-01 -9.95975E-03 2.70642E-02 + 9.99990E-01 6.42269E-06 3.86935E-01 3.24262E-01 -2.23548E-02 + 4.50290E-02 9.99900E-01 1.36482E-04 3.81948E-01 3.31122E-01 + -2.47753E-02 4.83581E-02 1.00000E+00 0.00000E+00 3.75783E-01 + 3.39189E-01 -2.61765E-02 5.01917E-02 1.00000E+00 0.00000E+00 + 3.69192E-01 3.47415E-01 -2.76971E-02 5.20893E-02 1.00000E+00 + -1.60567E-06 3.62164E-01 3.55796E-01 -2.93436E-02 5.40530E-02 + 9.99998E-01 1.60567E-06 3.54680E-01 3.64343E-01 -3.11224E-02 + 5.60846E-02 1.00000E+00 0.00000E+00 3.46740E-01 3.73043E-01 + -3.30395E-02 5.81852E-02 1.00000E+00 0.00000E+00 3.38333E-01 + 3.81895E-01 -3.51016E-02 6.03561E-02 1.00000E+00 0.00000E+00 + 3.29444E-01 3.90903E-01 -3.73157E-02 6.25997E-02 1.00000E+00 + 0.00000E+00 3.20073E-01 4.00052E-01 -3.96880E-02 6.49161E-02 + 1.00000E+00 0.00000E+00 3.10210E-01 4.09347E-01 -4.22256E-02 + 6.73074E-02 1.00000E+00 -1.60567E-06 3.17416E-01 4.02786E-01 + -6.68124E-02 8.96939E-02 9.99997E-01 1.60567E-06 3.17416E-01 + 4.02786E-01 -6.68124E-02 8.96939E-02 9.99997E-01 1.60567E-06 + DATA FOR MEDIUM # 2, WHICH IS: MEDIUM=ALUM-3MEV-10KEV-02KEV ,STERNCID=ALUM-3MEV-10KEV-02KEV + ELEM,RHO= 2.702 ,NE= 1,COMPOSITION IS : + ASYM=AL,Z=13.,A= 26.982,PZ= 1.00000E+00,RHOZ= 2.69815E+01 + ECHO READ:$LGN(RLC,AE,AP,UE,UP(IM)) + 8.88722E+00 5.21000E-01 2.00000E-03 3.51100E+00 3.00200E+00 + ECHO READ:$LGN(MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE(IM)),IRAYL + 0 200 0 150 0 0 0 0 + ECHO READ:($LGN(DL(I,IM)/1,2,3,4,5,6/),I=1,6) + 9.99981E-01 -2.19279E-01 5.03195E-02 9.95706E-01 -2.35368E-01 + 9.52000E-01 1.00023E+00 -1.85862E-01 3.58308E-02 1.01473E+00 + -2.39866E-01 9.52000E-01 1.00036E+00 -1.68669E-01 2.58879E-02 + 1.02452E+00 -2.42180E-01 9.52000E-01 9.99981E-01 -2.19810E-01 + 5.04414E-02 9.95695E-01 -2.35938E-01 9.52000E-01 1.00023E+00 + -1.86320E-01 3.59193E-02 1.01477E+00 -2.40458E-01 9.52000E-01 + 1.00036E+00 -1.69090E-01 2.59524E-02 1.02458E+00 -2.42783E-01 + 9.52000E-01 + ECHO READ:DELCM(IM),($LGN(ALPHI,BPAR, DELPOS(I,IM)),I=1,2) + 2.95564E+01 9.41857E-01 8.53614E-01 2.29371E+00 9.41901E-01 + 8.53605E-01 2.26997E+00 + ECHO READ:$LGN(XR0,TEFF0,BLCC,XCC(IM)) + 1.09552E-01 1.04935E-04 1.90631E+05 5.04144E+00 + ECHO READ:$LGN(EKE(IM)/0,1/) + 1.21501E+02 2.59409E+01 + ECHO READ:($LGN(ESIG,PSIG,EDEDX,PDEDX,EBR1,PBR1,PBR2, TMXS(I,IM)/0,1/),I=1,NEKE) + 9.91931E+00 1.55599E+00 1.90277E+04 4.12859E+03 -9.33733E+02 + -2.88749E+02 -1.30169E+03 -3.78920E+02 1.00000E+00 0.00000E+00 + -2.64604E+01 -5.79607E+00 8.69583E+01 1.88284E+01 2.64582E-05 + 5.12867E-06 9.91931E+00 1.55599E+00 1.90277E+04 4.12859E+03 + -9.33733E+02 -2.88749E+02 -1.30169E+03 -3.78920E+02 1.00000E+00 + 0.00000E+00 -2.64604E+01 -5.79607E+00 8.69583E+01 1.88284E+01 + 2.64582E-05 5.12867E-06 9.87962E+00 1.54730E+00 1.69317E+04 + 3.66976E+03 -8.98752E+02 -2.81091E+02 -1.24401E+03 -3.66295E+02 + 1.00000E+00 0.00000E+00 -8.68785E-01 -1.93853E-01 3.83817E+00 + 6.32722E-01 2.80970E-05 5.48741E-06 9.83222E+00 1.53683E+00 + 1.50135E+04 3.24629E+03 -8.64541E+02 -2.73538E+02 -1.18823E+03 + -3.53980E+02 1.00000E+00 0.00000E+00 -2.88968E-01 -6.58457E-02 + 1.95562E+00 2.17108E-01 2.98474E-05 5.87386E-06 9.78680E+00 + 1.52672E+00 1.32844E+04 2.86126E+03 -8.31588E+02 -2.66201E+02 + -1.13504E+03 -3.42136E+02 1.00000E+00 0.00000E+00 -1.39812E-01 + -3.26336E-02 1.47187E+00 1.09393E-01 3.17135E-05 6.28937E-06 + 9.74776E+00 1.51795E+00 1.17191E+04 2.50971E+03 -7.99074E+02 + -2.58899E+02 -1.08332E+03 -3.30521E+02 1.00000E+00 0.00000E+00 + -7.95795E-02 -1.91057E-02 1.27703E+00 6.56318E-02 3.36861E-05 + 6.73240E-06 9.69160E+00 1.50523E+00 1.03102E+04 2.19051E+03 + -7.68104E+02 -2.51883E+02 -1.03443E+03 -3.19443E+02 1.00000E+00 + 0.00000E+00 -4.93843E-02 -1.22647E-02 1.17965E+00 4.35700E-02 + 3.57835E-05 7.20758E-06 9.65120E+00 1.49600E+00 9.03881E+03 + 1.89994E+03 -7.37923E+02 -2.44985E+02 -9.87327E+02 -3.08678E+02 + 1.00000E+00 0.00000E+00 -3.20389E-02 -8.30041E-03 1.12414E+00 + 3.08839E-02 3.80087E-05 7.71617E-06 9.60618E+00 1.48561E+00 + 7.89570E+03 1.63636E+03 -7.08503E+02 -2.38200E+02 -9.41954E+02 + -2.98216E+02 1.00000E+00 0.00000E+00 -2.11512E-02 -5.78991E-03 + 1.08960E+00 2.29191E-02 4.03662E-05 8.25976E-06 9.55759E+00 + 1.47431E+00 6.86828E+03 1.39733E+03 -6.80237E+02 -2.31624E+02 + -8.98753E+02 -2.88165E+02 1.00000E+00 0.00000E+00 -1.38377E-02 + -4.08841E-03 1.06670E+00 1.75896E-02 4.28742E-05 8.84323E-06 + 9.51630E+00 1.46462E+00 5.94601E+03 1.18082E+03 -6.52834E+02 + -2.25191E+02 -8.57292E+02 -2.78432E+02 1.00000E+00 0.00000E+00 + -8.64913E-03 -2.87035E-03 1.05073E+00 1.38415E-02 4.55310E-05 + 9.46695E-06 9.46912E+00 1.45344E+00 5.11813E+03 9.84691E+02 + -6.26300E+02 -2.18905E+02 -8.17545E+02 -2.69016E+02 1.00000E+00 + 0.00000E+00 -4.81274E-03 -1.96150E-03 1.03916E+00 1.11033E-02 + 4.83475E-05 1.01342E-05 9.42335E+00 1.44249E+00 4.37815E+03 + 8.07770E+02 -6.00596E+02 -2.12760E+02 -7.79422E+02 -2.59901E+02 + 1.00000E+00 0.00000E+00 -1.87212E-03 -1.25845E-03 1.03055E+00 + 9.04376E-03 5.13380E-05 1.08492E-05 9.37888E+00 1.43176E+00 + 3.71664E+03 6.48148E+02 -5.75848E+02 -2.06789E+02 -7.43038E+02 + -2.51121E+02 1.00000E+00 0.00000E+00 4.57744E-04 -6.96231E-04 + 1.02396E+00 7.45108E-03 5.45085E-05 1.16142E-05 9.33162E+00 + 1.42025E+00 3.12609E+03 5.04302E+02 -5.51763E+02 -2.00922E+02 + -7.07992E+02 -2.42585E+02 1.00000E+00 0.00000E+00 2.35350E-03 + -2.34480E-04 1.01880E+00 6.19720E-03 5.78661E-05 1.24320E-05 + 9.28816E+00 1.40957E+00 2.60079E+03 3.75140E+02 -5.28561E+02 + -1.95216E+02 -6.74522E+02 -2.34356E+02 1.00000E+00 0.00000E+00 + 3.93773E-03 1.55060E-04 1.01467E+00 5.17973E-03 6.14316E-05 + 1.33087E-05 9.24115E+00 1.39789E+00 2.13371E+03 2.59195E+02 + -5.06135E+02 -1.89650E+02 -6.42462E+02 -2.26397E+02 1.00000E+00 + 0.00000E+00 5.28839E-03 4.90341E-04 1.01136E+00 4.35566E-03 + 6.52011E-05 1.42445E-05 9.19693E+00 1.38682E+00 1.71942E+03 + 1.55360E+02 -4.84569E+02 -1.84245E+02 -6.11880E+02 -2.18732E+02 + 1.00000E+00 0.00000E+00 6.46878E-03 7.86187E-04 1.00860E+00 + 3.66758E-03 6.92011E-05 1.52470E-05 9.15225E+00 1.37551E+00 + 1.35375E+03 6.28192E+01 -4.63582E+02 -1.78933E+02 -5.82413E+02 + -2.11274E+02 1.00000E+00 0.00000E+00 7.51449E-03 1.05084E-03 + 1.00635E+00 3.09549E-03 7.34408E-05 1.63200E-05 8.61814E+03 + 2.20160E+03 1.03107E+03 -1.96488E+01 -5.31061E+02 -1.96179E+02 + -5.54236E+02 -2.04074E+02 -9.61236E+01 -2.48221E+01 8.45968E-03 + 1.29240E-03 1.00442E+00 2.60225E-03 7.79274E-05 1.74667E-05 + 7.19813E+03 1.83507E+03 7.47713E+02 -9.27912E+01 -5.00342E+02 + -1.88250E+02 -5.27388E+02 -1.97143E+02 -1.84775E+00 -4.88066E-01 + 9.32635E-03 1.51610E-03 1.00280E+00 2.18478E-03 8.26901E-05 + 1.86960E-05 6.05547E+03 1.53717E+03 4.99628E+02 -1.57469E+02 + -4.72313E+02 -1.80943E+02 -5.01523E+02 -1.90400E+02 -6.07800E-01 + -1.64798E-01 1.01308E-02 1.72584E-03 1.00140E+00 1.82142E-03 + 8.77156E-05 2.00062E-05 5.12993E+03 1.29342E+03 2.83032E+02 + -2.14509E+02 -4.46773E+02 -1.74216E+02 -4.76938E+02 -1.83926E+02 + -2.91725E-01 -8.15575E-02 1.08935E-02 1.92670E-03 1.00019E+00 + 1.50136E-03 9.30578E-05 2.14131E-05 4.37031E+03 1.09132E+03 + 9.50554E+01 -2.64523E+02 -4.23036E+02 -1.67901E+02 -4.53293E+02 + -1.77635E+02 -1.64923E-01 -4.78208E-02 1.16037E-02 2.11563E-03 + 9.99147E-01 1.22459E-03 9.86918E-05 2.29120E-05 3.74366E+03 + 9.22866E+02 -6.70182E+01 -3.08092E+02 -4.00996E+02 -1.61977E+02 + -4.30745E+02 -1.71573E+02 -1.01640E-01 -3.08095E-02 1.22990E-02 + 2.30254E-03 9.98219E-01 9.75651E-04 1.04664E-04 2.45174E-05 + 3.22063E+03 7.80795E+02 -2.05982E+02 -3.45838E+02 -3.80261E+02 + -1.56344E+02 -4.09084E+02 -1.65690E+02 -6.55736E-02 -2.10127E-02 + 1.29649E-02 2.48343E-03 9.97415E-01 7.56090E-04 1.10979E-04 + 2.62329E-05 2.78220E+03 6.60445E+02 -3.24713E+02 -3.78431E+02 + -3.60882E+02 -1.51024E+02 -3.88508E+02 -1.60041E+02 -4.31093E-02 + -1.48462E-02 1.36166E-02 2.66231E-03 9.96673E-01 5.53542E-04 + 1.17672E-04 2.80699E-05 2.41107E+03 5.57479E+02 -4.24263E+02 + -4.06050E+02 -3.42396E+02 -1.45896E+02 -3.68654E+02 -1.54533E+02 + -2.81495E-02 -1.06957E-02 1.42500E-02 2.83806E-03 9.96048E-01 + 3.78818E-04 1.24731E-04 3.00284E-05 2.09597E+03 4.69112E+02 + -5.08115E+02 -4.29565E+02 -3.25027E+02 -1.41025E+02 -3.49817E+02 + -1.49250E+02 -1.76934E-02 -7.76346E-03 1.48748E-02 3.01326E-03 + 9.95467E-01 2.16468E-04 1.32209E-04 3.21257E-05 1.82534E+03 + 3.92388E+02 -5.76469E+02 -4.48943E+02 -3.08420E+02 -1.36316E+02 + -3.31695E+02 -1.44113E+02 -1.00294E-02 -5.59069E-03 1.54972E-02 + 3.18973E-03 9.94947E-01 6.80327E-05 1.40105E-04 3.43643E-05 + 1.59305E+03 3.25803E+02 -6.32208E+02 -4.64919E+02 -2.92677E+02 + -1.31804E+02 -3.14445E+02 -1.39168E+02 -4.27388E-03 -3.94094E-03 + 1.61080E-02 3.36482E-03 9.94458E-01 -6.95789E-05 1.48457E-04 + 3.67581E-05 1.39130E+03 2.67330E+02 -6.76414E+02 -4.77734E+02 + -2.77688E+02 -1.27460E+02 -2.97962E+02 -1.34391E+02 2.18497E-04 + -2.63885E-03 1.67185E-02 3.54176E-03 9.94050E-01 -1.90182E-04 + 1.57278E-04 3.93149E-05 1.21650E+03 2.16095E+02 -7.09695E+02 + -4.87489E+02 -2.63294E+02 -1.23241E+02 -2.82121E+02 -1.29748E+02 + 3.79128E-03 -1.59164E-03 1.73245E-02 3.71937E-03 9.93648E-01 + -3.07693E-04 1.66587E-04 4.20435E-05 1.06377E+03 1.70815E+02 + -7.34553E+02 -4.94858E+02 -2.49623E+02 -1.19188E+02 -2.67063E+02 + -1.25284E+02 6.70866E-03 -7.26737E-04 1.79322E-02 3.89953E-03 + 9.93290E-01 -4.12835E-04 1.76433E-04 4.49625E-05 9.30116E+02 + 1.30733E+02 -7.51013E+02 -4.99793E+02 -2.36529E+02 -1.15261E+02 + -2.52647E+02 -1.20961E+02 9.13812E-03 1.83611E-06 1.85389E-02 + 4.08148E-03 9.92956E-01 -5.13337E-04 1.86812E-04 4.80749E-05 + 8.12843E+02 9.51525E+01 -7.60650E+02 -5.02717E+02 -2.24008E+02 + -1.11462E+02 -2.38873E+02 -1.16781E+02 1.11971E-02 6.26504E-04 + 1.91473E-02 4.26606E-03 9.92659E-01 -6.03021E-04 1.97771E-04 + 5.13999E-05 7.09606E+02 6.34597E+01 -7.64047E+02 -5.03760E+02 + -2.12040E+02 -1.07788E+02 -2.25732E+02 -1.12747E+02 1.29643E-02 + 1.16905E-03 1.97505E-02 4.45124E-03 9.92387E-01 -6.88058E-04 + 2.09344E-04 5.49527E-05 6.18683E+02 3.52135E+01 -7.62064E+02 + -5.03145E+02 -2.00569E+02 -1.04224E+02 -2.13157E+02 -1.08840E+02 + 1.45402E-02 1.65863E-03 2.03728E-02 4.64458E-03 9.92127E-01 + -7.68460E-04 2.21528E-04 5.87378E-05 5.38422E+02 9.97720E+00 + -7.55604E+02 -5.01113E+02 -1.89610E+02 -1.00779E+02 -2.01168E+02 + -1.05071E+02 1.59141E-02 2.09063E-03 2.09810E-02 4.83580E-03 + 9.91892E-01 -8.42678E-04 2.34390E-04 6.27819E-05 4.67880E+02 + -1.24765E+01 -7.44907E+02 -4.97709E+02 -1.79104E+02 -9.74343E+01 + -1.89704E+02 -1.01422E+02 1.71550E-02 2.48558E-03 2.15959E-02 + 5.03154E-03 9.91675E-01 -9.10710E-04 2.47935E-04 6.70933E-05 + 4.05516E+02 -3.25726E+01 -7.30955E+02 -4.93212E+02 -1.69064E+02 + -9.41990E+01 -1.78773E+02 -9.78998E+01 1.82859E-02 2.84998E-03 + 2.22138E-02 5.23063E-03 9.91465E-01 -9.80289E-04 2.62220E-04 + 7.16964E-05 3.50477E+02 -5.05312E+01 -7.14267E+02 -4.87767E+02 + -1.59452E+02 -9.10629E+01 -1.68339E+02 -9.44949E+01 1.93281E-02 + 3.19007E-03 2.28359E-02 5.43364E-03 9.91286E-01 -1.03750E-03 + 2.77261E-04 7.66042E-05 3.02193E+02 -6.64870E+01 -6.94875E+02 + -4.81358E+02 -1.50261E+02 -8.80259E+01 -1.58387E+02 -9.12063E+01 + 2.02914E-02 3.50839E-03 2.34576E-02 5.63909E-03 9.91106E-01 + -1.09625E-03 2.93097E-04 8.18373E-05 2.59631E+02 -8.07336E+01 + -6.73589E+02 -4.74235E+02 -1.41449E+02 -8.50764E+01 -1.48871E+02 + -8.80213E+01 2.11846E-02 3.80737E-03 2.40750E-02 5.84571E-03 + 9.90939E-01 -1.15037E-03 3.09765E-04 8.74163E-05 2.22350E+02 + -9.33755E+01 -6.50675E+02 -4.66466E+02 -1.33030E+02 -8.22211E+01 + -1.39805E+02 -8.49469E+01 2.20416E-02 4.09795E-03 2.47049E-02 + 6.05933E-03 9.90803E-01 -1.19830E-03 3.27297E-04 9.33614E-05 + 1.89842E+02 -1.04544E+02 -6.26378E+02 -4.58117E+02 -1.24975E+02 + -7.94537E+01 -1.31153E+02 -8.19743E+01 2.28438E-02 4.37356E-03 + 2.53290E-02 6.27374E-03 9.90661E-01 -1.24623E-03 3.45746E-04 + 9.97001E-05 1.61482E+02 -1.14418E+02 -6.01131E+02 -4.49326E+02 + -1.17276E+02 -7.67732E+01 -1.22908E+02 -7.91034E+01 2.36163E-02 + 4.64258E-03 2.59590E-02 6.49309E-03 9.90537E-01 -1.28954E-03 + 3.65142E-04 1.06454E-04 1.36981E+02 -1.23066E+02 -5.75139E+02 + -4.40153E+02 -1.09914E+02 -7.41745E+01 -1.15042E+02 -7.63274E+01 + 2.43460E-02 4.90009E-03 2.65824E-02 6.71313E-03 9.90426E-01 + -1.32973E-03 3.85508E-04 1.13642E-04 1.15873E+02 -1.30619E+02 + -5.48565E+02 -4.30643E+02 -1.02878E+02 -7.16573E+01 -1.07547E+02 + -7.36455E+01 2.50561E-02 5.15415E-03 2.72108E-02 6.93798E-03 + 9.90321E-01 -1.36684E-03 4.06924E-04 1.21304E-04 9.78293E+01 + -1.37164E+02 -5.21630E+02 -4.20871E+02 -9.61506E+01 -6.92164E+01 + -1.00397E+02 -7.10513E+01 2.57370E-02 5.40121E-03 2.78343E-02 + 7.16416E-03 9.90228E-01 -1.39931E-03 4.29400E-04 1.29459E-04 + 8.26264E+01 -1.42759E+02 -4.94546E+02 -4.10906E+02 -8.97260E+01 + -6.68525E+01 -9.35864E+01 -6.85455E+01 2.64007E-02 5.64541E-03 + 2.84609E-02 7.39474E-03 9.90141E-01 -1.43332E-03 4.52993E-04 + 1.38139E-04 6.98745E+01 -1.47517E+02 -4.67465E+02 -4.00798E+02 + -8.35843E+01 -6.45601E+01 -8.70909E+01 -6.61210E+01 2.70396E-02 + 5.88388E-03 2.90807E-02 7.62609E-03 9.90061E-01 -1.46116E-03 + 4.77738E-04 1.47376E-04 5.93961E+01 -1.51487E+02 -4.40501E+02 + -3.90587E+02 -7.77304E+01 -6.23435E+01 -8.09145E+01 -6.37821E+01 + 2.76617E-02 6.11946E-03 2.96984E-02 7.86000E-03 9.90005E-01 + -1.48435E-03 5.03704E-04 1.57209E-04 5.08495E+01 -1.54771E+02 + -4.13816E+02 -3.80332E+02 -7.21382E+01 -6.01943E+01 -7.50281E+01 + -6.15200E+01 2.82697E-02 6.35311E-03 3.03131E-02 8.09623E-03 + 9.89956E-01 -1.50445E-03 5.30902E-04 1.67661E-04 4.41932E+01 + -1.57367E+02 -3.87435E+02 -3.70041E+02 -6.67965E+01 -5.81105E+01 + -6.94157E+01 -5.93306E+01 2.88600E-02 6.58337E-03 3.09222E-02 + 8.33381E-03 9.89894E-01 -1.52610E-03 5.59415E-04 1.78783E-04 + 3.91583E+01 -1.59361E+02 -3.61443E+02 -3.59748E+02 -6.17058E+01 + -5.60946E+01 -6.40811E+01 -5.72179E+01 2.94383E-02 6.81240E-03 + 3.15271E-02 8.57337E-03 9.89857E-01 -1.54156E-03 5.89261E-04 + 1.90604E-04 3.55452E+01 -1.60815E+02 -3.36000E+02 -3.49515E+02 + -5.68478E+01 -5.41408E+01 -5.89987E+01 -5.51741E+01 2.99964E-02 + 7.03689E-03 3.21206E-02 8.81209E-03 9.89826E-01 -1.55393E-03 + 6.20495E-04 2.03165E-04 3.32463E+01 -1.61754E+02 -3.11078E+02 + -3.39334E+02 -5.22166E+01 -5.22487E+01 -5.41633E+01 -5.31987E+01 + 3.05542E-02 7.26476E-03 3.27175E-02 9.05591E-03 9.89801E-01 + -1.56321E-03 6.53185E-04 2.16519E-04 3.20540E+01 -1.62248E+02 + -2.86810E+02 -3.29261E+02 -4.78032E+01 -5.04170E+01 -4.95658E+01 + -5.12904E+01 3.10861E-02 7.48550E-03 3.32952E-02 9.29571E-03 + 9.89789E-01 -1.56939E-03 6.87362E-04 2.30705E-04 3.19212E+01 + -1.62305E+02 -2.63122E+02 -3.19269E+02 -4.35934E+01 -4.86412E+01 + -4.51870E+01 -4.94434E+01 3.16121E-02 7.70736E-03 3.38693E-02 + 9.53785E-03 9.89783E-01 -1.57249E-03 7.23074E-04 2.45768E-04 + 3.26589E+01 -1.61988E+02 -2.40146E+02 -3.09418E+02 -3.95866E+01 + -4.69233E+01 -4.10274E+01 -4.76599E+01 3.21220E-02 7.92595E-03 + 3.44303E-02 9.77839E-03 9.89783E-01 -1.57403E-03 7.60373E-04 + 2.61760E-04 3.42042E+01 -1.61314E+02 -2.17876E+02 -2.99709E+02 + -3.57708E+01 -4.52598E+01 -3.70719E+01 -4.59355E+01 3.26241E-02 + 8.14488E-03 3.49854E-02 1.00204E-02 9.89783E-01 -1.57094E-03 + 7.99327E-04 2.78743E-04 3.64160E+01 -1.60334E+02 -1.96330E+02 + -2.90155E+02 -3.21376E+01 -4.36488E+01 -3.33132E+01 -4.42686E+01 + 3.31089E-02 8.35988E-03 3.55240E-02 1.02592E-02 9.89807E-01 + -1.56321E-03 8.39967E-04 2.96764E-04 3.92486E+01 -1.59056E+02 + -1.75481E+02 -2.80749E+02 -2.86772E+01 -4.20876E+01 -2.97369E+01 + -4.26555E+01 3.35862E-02 8.57519E-03 3.60542E-02 1.04984E-02 + 9.89820E-01 -1.55393E-03 8.82333E-04 3.15877E-04 4.25767E+01 + -1.57528E+02 -1.55401E+02 -2.71531E+02 -2.53899E+01 -4.05782E+01 + -2.63450E+01 -4.10982E+01 3.40440E-02 8.78540E-03 3.65654E-02 + 1.07331E-02 9.89851E-01 -1.54156E-03 9.26510E-04 3.36160E-04 + 4.63386E+01 -1.55770E+02 -1.36071E+02 -2.62496E+02 -2.22597E+01 + -3.91153E+01 -2.31218E+01 -3.95915E+01 3.44931E-02 8.99529E-03 + 3.70658E-02 1.09670E-02 9.89894E-01 -1.52300E-03 9.72514E-04 + 3.57662E-04 5.04932E+01 -1.53792E+02 -1.17454E+02 -2.53635E+02 + -1.92863E+01 -3.76999E+01 -2.00627E+01 -3.81355E+01 3.49287E-02 + 9.20263E-03 3.75509E-02 1.11979E-02 9.89931E-01 -1.50290E-03 + 1.02042E-03 3.80462E-04 5.49407E+01 -1.51636E+02 -9.95915E+01 + -2.44974E+02 -1.64573E+01 -3.63283E+01 -1.71559E+01 -3.67262E+01 + 3.53513E-02 9.40750E-03 3.80205E-02 1.14256E-02 9.89981E-01 + -1.47971E-03 1.07024E-03 4.04620E-04 5.96336E+01 -1.49318E+02 + -8.24712E+01 -2.36515E+02 -1.37716E+01 -3.50013E+01 -1.44012E+01 + -3.53649E+01 3.57600E-02 9.60947E-03 3.84736E-02 1.16495E-02 + 9.90033E-01 -1.45188E-03 1.12207E-03 4.30229E-04 6.45308E+01 + -1.46850E+02 -6.60492E+01 -2.28242E+02 -1.12205E+01 -3.37163E+01 + -1.17863E+01 -3.40479E+01 3.61528E-02 9.80734E-03 3.89067E-02 + 1.18676E-02 9.90095E-01 -1.42250E-03 1.17591E-03 4.57349E-04 + 6.95741E+01 -1.44260E+02 -5.03637E+01 -2.20185E+02 -8.79868E+00 + -3.24723E+01 -9.30812E+00 -3.27748E+01 3.65345E-02 1.00034E-02 + 3.93257E-02 1.20828E-02 9.90163E-01 -1.38695E-03 1.23185E-03 + 4.86082E-04 7.47352E+01 -1.41555E+02 -3.53521E+01 -2.12320E+02 + -6.50066E+00 -3.12680E+01 -6.95784E+00 -3.15433E+01 3.68992E-02 + 1.01946E-02 3.97233E-02 1.22912E-02 9.90237E-01 -1.34828E-03 + 1.28989E-03 5.16496E-04 7.99633E+01 -1.38759E+02 -2.10342E+01 + -2.04661E+02 -4.31965E+00 -3.01015E+01 -4.73072E+00 -3.03521E+01 + 3.72478E-02 1.03809E-02 4.01002E-02 1.24928E-02 9.90312E-01 + -1.30808E-03 1.35009E-03 5.48699E-04 8.52357E+01 -1.35880E+02 + -7.38137E+00 -1.97206E+02 -2.25324E+00 -2.89730E+01 -2.62275E+00 + -2.92008E+01 3.75910E-02 1.05684E-02 4.04671E-02 1.26931E-02 + 9.90404E-01 -1.25860E-03 1.41252E-03 5.82790E-04 9.05129E+01 + -1.32936E+02 5.61757E+00 -1.89953E+02 -2.94495E-01 -2.78803E+01 + -6.26000E-01 -2.80870E+01 3.79075E-02 1.07450E-02 4.08032E-02 + 1.28806E-02 9.90485E-01 -1.21376E-03 1.47718E-03 6.18858E-04 + 9.57805E+01 -1.29932E+02 1.80038E+01 -1.82892E+02 1.56233E+00 + -2.68217E+01 1.26486E+00 -2.70089E+01 3.82176E-02 1.09218E-02 + 4.11271E-02 1.30653E-02 9.90581E-01 -1.15810E-03 1.54411E-03 + 6.57017E-04 1.00990E+02 -1.26896E+02 2.97472E+01 -1.76046E+02 + 3.31960E+00 -2.57974E+01 3.05261E+00 -2.59669E+01 3.84957E-02 + 1.10839E-02 4.14151E-02 1.32332E-02 9.90676E-01 -1.10398E-03 + 1.61337E-03 6.97395E-04 1.06156E+02 -1.23815E+02 4.09253E+01 + -1.69380E+02 4.98326E+00 -2.48053E+01 4.74378E+00 -2.49583E+01 + 3.87706E-02 1.12478E-02 4.16940E-02 1.33995E-02 9.90779E-01 + -1.04214E-03 1.68496E-03 7.40085E-04 1.11240E+02 -1.20712E+02 + 5.15176E+01 -1.62915E+02 6.55647E+00 -2.38451E+01 6.34134E+00 + -2.39833E+01 3.90478E-02 1.14169E-02 4.19698E-02 1.35678E-02 + 9.90877E-01 -9.80289E-04 1.75895E-03 7.85241E-04 1.16219E+02 + -1.17600E+02 6.15550E+01 -1.56641E+02 8.04418E+00 -2.29152E+01 + 7.85122E+00 -2.30395E+01 3.92819E-02 1.15633E-02 4.21981E-02 + 1.37106E-02 9.90986E-01 -9.13803E-04 1.83532E-03 8.32982E-04 + 1.21098E+02 -1.14475E+02 7.10588E+01 -1.50554E+02 9.44976E+00 + -2.20148E+01 9.27679E+00 -2.21264E+01 3.95145E-02 1.17123E-02 + 4.24202E-02 1.38528E-02 9.91097E-01 -8.42678E-04 1.91412E-03 + 8.83451E-04 1.25844E+02 -1.11359E+02 8.00358E+01 -1.44659E+02 + 1.07777E+01 -2.11427E+01 1.06222E+01 -2.12430E+01 3.97118E-02 + 1.18418E-02 4.26022E-02 1.39723E-02 9.91208E-01 -7.70011E-04 + 1.99537E-03 9.36808E-04 1.30470E+02 -1.08241E+02 8.85282E+01 + -1.38937E+02 1.20302E+01 -2.02989E+01 1.18905E+01 -2.03883E+01 + 3.99114E-02 1.19764E-02 4.27818E-02 1.40933E-02 9.91320E-01 + -6.92696E-04 2.07906E-03 9.93198E-04 1.34952E+02 -1.05141E+02 + 9.65342E+01 -1.33399E+02 1.32126E+01 -1.94810E+01 1.30872E+01 + -1.95606E+01 4.00941E-02 1.21027E-02 4.29401E-02 1.42029E-02 + 9.91434E-01 -6.15387E-04 2.16522E-03 1.05280E-03 1.39288E+02 + -1.02059E+02 1.04090E+02 -1.28029E+02 1.43265E+01 -1.86893E+01 + 1.42133E+01 -1.87602E+01 4.02560E-02 1.22178E-02 4.30730E-02 + 1.42973E-02 9.91552E-01 -5.33438E-04 2.25385E-03 1.11579E-03 + 1.43469E+02 -9.90041E+01 1.11196E+02 -1.22837E+02 1.53753E+01 + -1.79230E+01 1.52735E+01 -1.79856E+01 4.04048E-02 1.23265E-02 + 4.31894E-02 1.43823E-02 9.91669E-01 -4.46851E-04 2.34496E-03 + 1.18236E-03 1.47501E+02 -9.59729E+01 1.17885E+02 -1.17807E+02 + 1.63630E+01 -1.71804E+01 1.62710E+01 -1.72355E+01 4.05363E-02 + 1.24254E-02 4.32848E-02 1.44541E-02 9.91780E-01 -3.61810E-04 + 2.43851E-03 1.25270E-03 1.51368E+02 -9.29781E+01 1.24165E+02 + -1.12944E+02 1.72918E+01 -1.64611E+01 1.72087E+01 -1.65094E+01 + 4.06560E-02 1.25181E-02 4.33651E-02 1.45162E-02 9.91895E-01 + -2.72131E-04 2.53452E-03 1.32704E-03 1.55075E+02 -9.00197E+01 + 1.30061E+02 -1.08238E+02 1.81639E+01 -1.57651E+01 1.80887E+01 + -1.58070E+01 4.07560E-02 1.25979E-02 4.34224E-02 1.45620E-02 + 9.92012E-01 -1.79359E-04 2.63293E-03 1.40559E-03 1.58621E+02 + -8.70993E+01 1.35589E+02 -1.03687E+02 1.89831E+01 -1.50904E+01 + 1.89149E+01 -1.51267E+01 4.08495E-02 1.26748E-02 4.34706E-02 + 1.46017E-02 9.92124E-01 -8.65870E-05 2.73374E-03 1.48860E-03 + 1.62003E+02 -8.42232E+01 1.40758E+02 -9.92899E+01 1.97510E+01 + -1.44373E+01 1.96889E+01 -1.44684E+01 4.09216E-02 1.27362E-02 + 4.34954E-02 1.46228E-02 9.92244E-01 1.23696E-05 2.83691E-03 + 1.57635E-03 1.65222E+02 -8.13919E+01 1.45591E+02 -9.50401E+01 + 2.04706E+01 -1.38046E+01 2.04137E+01 -1.38311E+01 4.09827E-02 + 1.27900E-02 4.35072E-02 1.46332E-02 9.92349E-01 1.05142E-04 + 2.94238E-03 1.66909E-03 1.68278E+02 -7.86107E+01 1.50103E+02 + -9.09332E+01 2.11439E+01 -1.31918E+01 2.10918E+01 -1.32139E+01 + 4.10307E-02 1.28336E-02 4.35039E-02 1.46301E-02 9.92455E-01 + 2.04098E-04 3.05006E-03 1.76710E-03 1.71176E+02 -7.58772E+01 + 1.54308E+02 -8.69674E+01 2.17730E+01 -1.25984E+01 2.17252E+01 + -1.26164E+01 4.10673E-02 1.28682E-02 4.34884E-02 1.46155E-02 + 9.92563E-01 3.04601E-04 3.15993E-03 1.87074E-03 1.73916E+02 + -7.31951E+01 1.58218E+02 -8.31402E+01 2.23603E+01 -1.20234E+01 + 2.23161E+01 -1.20380E+01 4.10898E-02 1.28902E-02 4.34581E-02 + 1.45859E-02 9.92663E-01 4.03557E-04 3.27185E-03 1.98029E-03 + 1.76497E+02 -7.05691E+01 1.61852E+02 -7.94432E+01 2.29080E+01 + -1.14664E+01 2.28669E+01 -1.14778E+01 4.11029E-02 1.29035E-02 + 4.34175E-02 1.45445E-02 9.92762E-01 5.04060E-04 3.38576E-03 + 2.09617E-03 1.78929E+02 -6.79951E+01 1.65220E+02 -7.58780E+01 + 2.34169E+01 -1.09275E+01 2.33787E+01 -1.09358E+01 4.11027E-02 + 1.29033E-02 4.33638E-02 1.44877E-02 9.92860E-01 6.07656E-04 + 3.50148E-03 2.21869E-03 1.81210E+02 -6.54772E+01 1.68337E+02 + -7.24362E+01 2.38906E+01 -1.04046E+01 2.38547E+01 -1.04104E+01 + 4.10961E-02 1.28960E-02 4.33038E-02 1.44215E-02 9.92948E-01 + 7.03520E-04 3.61892E-03 2.34831E-03 1.83344E+02 -6.30168E+01 + 1.71216E+02 -6.91176E+01 2.43290E+01 -9.89923E+00 2.42953E+01 + -9.90249E+00 4.10771E-02 1.28740E-02 4.32319E-02 1.43386E-02 + 9.93037E-01 8.07115E-04 3.73786E-03 2.48545E-03 1.85335E+02 + -6.06149E+01 1.73865E+02 -6.59213E+01 2.44848E+01 -9.71121E+00 + 2.44529E+01 -9.71230E+00 4.10512E-02 1.28429E-02 4.31543E-02 + 1.42450E-02 9.93119E-01 9.06072E-04 3.85816E-03 2.63058E-03 + 1.87188E+02 -5.82696E+01 1.76303E+02 -6.28375E+01 2.45123E+01 + -9.67642E+00 2.44819E+01 -9.67568E+00 4.10162E-02 1.27986E-02 + 4.30684E-02 1.41363E-02 9.93198E-01 1.00503E-03 3.97958E-03 + 2.78422E-03 1.88908E+02 -5.59825E+01 1.78536E+02 -5.98664E+01 + 2.48546E+01 -9.22112E+00 2.48255E+01 -9.21850E+00 4.09750E-02 + 1.27437E-02 4.29779E-02 1.40159E-02 9.93272E-01 1.10398E-03 + 4.10183E-03 2.94685E-03 1.90496E+02 -5.37556E+01 1.80575E+02 + -5.70073E+01 2.51687E+01 -8.78072E+00 2.51407E+01 -8.77657E+00 + 4.09267E-02 1.26761E-02 4.28823E-02 1.38818E-02 9.93342E-01 + 1.20140E-03 4.22471E-03 3.11914E-03 1.91958E+02 -5.15877E+01 + 1.82434E+02 -5.42524E+01 2.54560E+01 -8.35491E+00 2.54289E+01 + -8.34942E+00 4.08738E-02 1.25975E-02 4.27835E-02 1.37354E-02 + 9.93405E-01 1.29571E-03 4.34781E-03 3.30160E-03 1.93301E+02 + -4.94763E+01 1.84121E+02 -5.15999E+01 2.57173E+01 -7.94399E+00 + 2.56912E+01 -7.93711E+00 4.08160E-02 1.25067E-02 4.26823E-02 + 1.35764E-02 9.93464E-01 1.38849E-03 4.47080E-03 3.49494E-03 + 1.94525E+02 -4.74288E+01 1.85644E+02 -4.90517E+01 2.59546E+01 + -7.54698E+00 2.59290E+01 -7.53911E+00 4.07549E-02 1.24045E-02 + 4.25800E-02 1.34052E-02 9.93518E-01 1.48125E-03 4.59328E-03 + 3.69992E-03 1.95639E+02 -4.54352E+01 1.87015E+02 -4.65982E+01 + 2.61690E+01 -7.16342E+00 2.61440E+01 -7.15446E+00 4.06900E-02 + 1.22883E-02 4.24766E-02 1.32201E-02 9.93569E-01 1.56940E-03 + 4.71477E-03 3.91724E-03 1.96644E+02 -4.35044E+01 1.88242E+02 + -4.42402E+01 2.63616E+01 -6.79346E+00 2.63370E+01 -6.78367E+00 + 4.06238E-02 1.21613E-02 4.23743E-02 1.30235E-02 9.93613E-01 + 1.65599E-03 4.83472E-03 4.14771E-03 1.97547E+02 -4.16308E+01 + 1.89334E+02 -4.19756E+01 2.65338E+01 -6.43610E+00 2.65096E+01 + -6.42556E+00 4.05566E-02 1.20218E-02 4.22738E-02 1.28150E-02 + 9.93654E-01 1.73946E-03 4.95255E-03 4.39224E-03 1.98353E+02 + -3.98141E+01 1.90298E+02 -3.98006E+01 2.66866E+01 -6.09136E+00 + 2.66627E+01 -6.08018E+00 4.04887E-02 1.18686E-02 4.21754E-02 + 1.25930E-02 9.93690E-01 1.82143E-03 5.06760E-03 4.65173E-03 + 1.99064E+02 -3.80561E+01 1.91144E+02 -3.77098E+01 2.68211E+01 + -5.75899E+00 2.67975E+01 -5.74722E+00 4.04218E-02 1.17033E-02 + 4.20806E-02 1.23589E-02 9.93720E-01 1.89717E-03 5.17913E-03 + 4.92725E-03 1.99687E+02 -3.63565E+01 1.91878E+02 -3.57073E+01 + 2.69386E+01 -5.43834E+00 2.69152E+01 -5.42597E+00 4.03575E-02 + 1.15278E-02 4.19915E-02 1.21157E-02 9.93748E-01 1.97141E-03 + 5.28628E-03 5.21979E-03 2.00226E+02 -3.47126E+01 1.92507E+02 + -3.37860E+01 2.70399E+01 -5.12924E+00 2.70165E+01 -5.11662E+00 + 4.02947E-02 1.13361E-02 4.19067E-02 1.18567E-02 9.93771E-01 + 2.04251E-03 5.38814E-03 5.53063E-03 2.00685E+02 -3.31245E+01 + 1.93040E+02 -3.19450E+01 2.71260E+01 -4.83159E+00 2.71027E+01 + -4.81848E+00 4.02364E-02 1.11345E-02 4.18294E-02 1.15894E-02 + 9.93791E-01 2.11057E-03 5.48364E-03 5.86087E-03 2.01069E+02 + -3.15907E+01 1.93482E+02 -3.01804E+01 2.71978E+01 -4.54485E+00 + 2.71746E+01 -4.53154E+00 4.01821E-02 1.09177E-02 4.17587E-02 + 1.13076E-02 9.93806E-01 2.17239E-03 5.57163E-03 6.21199E-03 + 2.01382E+02 -3.01151E+01 1.93840E+02 -2.84937E+01 2.72564E+01 + -4.26877E+00 2.72332E+01 -4.25521E+00 4.01335E-02 1.06886E-02 + 4.16966E-02 1.10146E-02 9.93820E-01 2.23427E-03 5.65079E-03 + 6.58527E-03 2.01629E+02 -2.86901E+01 1.94120E+02 -2.68780E+01 + 2.73024E+01 -4.00327E+00 2.72794E+01 -3.98951E+00 4.00914E-02 + 1.04460E-02 4.16437E-02 1.07097E-02 9.93829E-01 2.28836E-03 + 5.71969E-03 6.98237E-03 2.01814E+02 -2.73197E+01 1.94328E+02 + -2.53346E+01 2.73369E+01 -3.74771E+00 2.73139E+01 -3.73380E+00 + 4.00568E-02 1.01900E-02 4.16009E-02 1.03926E-02 9.93836E-01 + 2.34250E-03 5.77672E-03 7.40495E-03 2.01941E+02 -2.60036E+01 + 1.94470E+02 -2.38614E+01 2.73606E+01 -3.50205E+00 2.73376E+01 + -3.48804E+00 4.00305E-02 9.91718E-03 4.15688E-02 1.00600E-02 + 9.93840E-01 2.38580E-03 5.82008E-03 7.85463E-03 2.02015E+02 + -2.47350E+01 1.94552E+02 -2.24543E+01 2.73743E+01 -3.26624E+00 + 2.73512E+01 -3.25224E+00 4.00147E-02 9.64386E-03 4.15497E-02 + 9.72977E-03 9.93843E-01 2.43215E-03 5.84779E-03 8.33349E-03 + 2.02038E+02 -2.35202E+01 1.94578E+02 -2.11119E+01 2.73786E+01 + -3.03942E+00 2.73556E+01 -3.02542E+00 4.00090E-02 9.34721E-03 + 4.15429E-02 9.37688E-03 9.93844E-01 2.47084E-03 5.85764E-03 + 8.84343E-03 2.02018E+02 -2.24796E+01 1.94556E+02 -1.99590E+01 + 2.73745E+01 -2.82218E+00 2.73514E+01 -2.80803E+00 4.00265E-02 + 8.43639E-03 4.15619E-02 8.39010E-03 9.93843E-01 2.50173E-03 + 5.84719E-03 9.38675E-03 2.01954E+02 -2.13779E+01 1.94486E+02 + -1.87571E+01 2.73624E+01 -2.61346E+00 2.73394E+01 -2.59951E+00 + 4.00496E-02 8.03699E-03 4.15881E-02 7.93610E-03 9.93841E-01 + 2.53114E-03 5.81374E-03 9.96567E-03 2.01852E+02 -2.03204E+01 + 1.94376E+02 -1.76130E+01 2.73431E+01 -2.41349E+00 2.73201E+01 + -2.39958E+00 4.00873E-02 7.64503E-03 4.16308E-02 7.49283E-03 + 9.93839E-01 2.56049E-03 5.75428E-03 1.05829E-02 2.01715E+02 + -1.93038E+01 1.94228E+02 -1.65183E+01 2.73173E+01 -2.22194E+00 + 2.72943E+01 -2.20813E+00 4.01392E-02 7.26079E-03 4.16893E-02 + 7.05950E-03 9.93836E-01 2.58217E-03 5.66553E-03 1.12409E-02 + 2.01548E+02 -1.83365E+01 1.94049E+02 -1.54858E+01 2.72855E+01 + -2.03864E+00 2.72625E+01 -2.02489E+00 4.02115E-02 6.84343E-03 + 4.17698E-02 6.59507E-03 9.93833E-01 2.60069E-03 5.54382E-03 + 1.19427E-02 2.01353E+02 -1.74204E+01 1.93843E+02 -1.45111E+01 + 2.72483E+01 -1.86322E+00 2.72253E+01 -1.84966E+00 4.03061E-02 + 6.39714E-03 4.18742E-02 6.10288E-03 9.93829E-01 2.61618E-03 + 5.38509E-03 1.26915E-02 2.01134E+02 -1.65435E+01 1.93611E+02 + -1.35847E+01 2.72063E+01 -1.69536E+00 2.71833E+01 -1.68191E+00 + 4.04196E-02 5.94413E-03 4.19985E-02 5.60638E-03 9.93826E-01 + 2.62697E-03 5.18494E-03 1.34904E-02 2.00894E+02 -1.57128E+01 + 1.93359E+02 -1.27148E+01 2.71600E+01 -1.53537E+00 2.71371E+01 + -1.52211E+00 4.05560E-02 5.47222E-03 4.21468E-02 5.09359E-03 + 9.93824E-01 2.63164E-03 4.93842E-03 1.43432E-02 2.00635E+02 + -1.49235E+01 1.93090E+02 -1.18931E+01 2.71099E+01 -1.38228E+00 + 2.70870E+01 -1.36922E+00 4.07186E-02 4.97618E-03 4.23221E-02 + 4.55822E-03 9.93823E-01 2.63783E-03 4.64011E-03 1.52537E-02 + 2.00362E+02 -1.41784E+01 1.92807E+02 -1.11211E+01 2.70565E+01 + -1.23660E+00 2.70337E+01 -1.22369E+00 4.09067E-02 4.46249E-03 + 4.25239E-02 4.00724E-03 9.93824E-01 2.63625E-03 4.28411E-03 + 1.62259E-02 2.00005E+02 -1.32971E+01 1.92443E+02 -1.02211E+01 + 2.70003E+01 -1.09773E+00 2.69776E+01 -1.08502E+00 4.07729E-02 + 4.79285E-03 4.23935E-02 4.32967E-03 9.93822E-01 2.63938E-03 + 3.86379E-03 1.72644E-02 1.99592E+02 -1.23655E+01 1.92024E+02 + -9.27614E+00 2.69415E+01 -9.65118E-01 2.69190E+01 -9.52650E-01 + 4.04372E-02 5.55043E-03 4.20547E-02 5.09382E-03 9.93823E-01 + 2.63780E-03 3.37202E-03 1.83739E-02 1.99280E+02 -1.17173E+01 + 1.91708E+02 -8.62076E+00 2.68811E+01 -8.39652E-01 2.68586E+01 + -8.27381E-01 4.06537E-02 5.10103E-03 4.22855E-02 4.61475E-03 + 9.93828E-01 2.63010E-03 2.80070E-03 1.95596E-02 1.98961E+02 + -1.11037E+01 1.91387E+02 -8.00277E+00 2.68188E+01 -7.19954E-01 + 2.67964E+01 -7.07832E-01 4.08962E-02 4.63499E-03 4.25428E-02 + 4.12030E-03 9.93835E-01 2.61460E-03 2.14134E-03 2.08267E-02 + 1.98639E+02 -1.05271E+01 1.91067E+02 -7.43090E+00 2.67554E+01 + -6.06509E-01 2.67331E+01 -5.94733E-01 4.11705E-02 4.14432E-03 + 4.28313E-02 3.60411E-03 9.93843E-01 2.60227E-03 1.38427E-03 + 2.21812E-02 1.98314E+02 -9.98347E+00 1.90746E+02 -6.89407E+00 + 2.66911E+01 -4.98936E-01 2.66690E+01 -4.87358E-01 4.14650E-02 + 3.65123E-03 4.31404E-02 3.08687E-03 9.93854E-01 2.58213E-03 + 5.18818E-04 2.36297E-02 1.97992E+02 -9.47733E+00 1.90431E+02 + -6.39857E+00 2.66263E+01 -3.97016E-01 2.66043E+01 -3.85636E-01 + 4.18025E-02 3.12063E-03 4.34923E-02 2.53346E-03 9.93865E-01 + 2.56361E-03 -4.66278E-04 2.51786E-02 1.97673E+02 -9.00500E+00 + 1.90122E+02 -5.94013E+00 2.65613E+01 -3.00628E-01 2.65395E+01 + -2.89545E-01 4.21710E-02 2.57440E-03 4.38750E-02 1.96617E-03 + 9.93883E-01 2.53884E-03 -1.58383E-03 2.68352E-02 1.96940E+02 + -7.97595E+00 1.89401E+02 -4.92926E+00 2.64962E+01 -2.09394E-01 + 2.64745E+01 -1.98459E-01 4.04776E-02 4.94902E-03 4.21390E-02 + 4.40060E-03 9.93891E-01 2.52650E-03 -2.84792E-03 2.86079E-02 + 1.96591E+02 -7.51244E+00 1.89069E+02 -4.48791E+00 2.64314E+01 + -1.23202E-01 2.64100E+01 -1.12613E-01 4.07129E-02 4.63601E-03 + 4.23845E-02 4.07387E-03 9.93911E-01 2.50022E-03 -4.27328E-03 + 3.05041E-02 1.96262E+02 -7.09594E+00 1.88759E+02 -4.09480E+00 + 2.63674E+01 -4.21553E-02 2.63460E+01 -3.17154E-02 4.10318E-02 + 4.23250E-03 4.27150E-02 3.65567E-03 9.93933E-01 2.47235E-03 + -5.87701E-03 3.25336E-02 1.95941E+02 -6.70851E+00 1.88461E+02 + -3.73544E+00 2.63042E+01 3.40413E-02 2.62832E+01 4.41844E-02 + 4.13946E-02 3.79468E-03 4.30889E-02 3.20461E-03 9.93960E-01 + 2.43991E-03 -7.67726E-03 3.47059E-02 1.95631E+02 -6.35179E+00 + 1.88177E+02 -3.40765E+00 2.62421E+01 1.05685E-01 2.62212E+01 + 1.15581E-01 4.17931E-02 3.33532E-03 4.34983E-02 2.73250E-03 + 9.93985E-01 2.40896E-03 -9.69392E-03 3.70311E-02 1.95215E+02 + -5.89152E+00 1.87787E+02 -2.97822E+00 2.61810E+01 1.73175E-01 + 2.61603E+01 1.82823E-01 4.16337E-02 3.51115E-03 4.33351E-02 + 2.91276E-03 9.94018E-01 2.37497E-03 -1.19492E-02 3.95207E-02 + 1.94283E+02 -4.90466E+00 1.86888E+02 -2.02622E+00 2.61211E+01 + 2.36505E-01 2.61007E+01 2.45955E-01 3.88567E-02 6.45166E-03 + 4.04916E-02 5.92364E-03 9.94033E-01 2.35794E-03 -1.44667E-02 + 4.21863E-02 1.93963E+02 -4.58014E+00 1.86603E+02 -1.73611E+00 + 2.60632E+01 2.95437E-01 2.60431E+01 3.04640E-01 3.91287E-02 + 6.17497E-03 4.07715E-02 5.63882E-03 9.94075E-01 2.31622E-03 + -1.72730E-02 4.50413E-02 1.93655E+02 -4.27846E+00 1.86333E+02 + -1.47207E+00 2.60069E+01 3.50601E-01 2.59870E+01 3.59507E-01 + 3.94254E-02 5.88450E-03 4.10752E-02 5.34160E-03 9.94106E-01 + 2.28372E-03 -2.03967E-02 4.80992E-02 1.93356E+02 -3.99589E+00 + 1.86075E+02 -1.22826E+00 2.59524E+01 4.02014E-01 2.59327E+01 + 4.10771E-01 3.97384E-02 5.58925E-03 4.13944E-02 5.04044E-03 + 9.94149E-01 2.24200E-03 -2.38688E-02 5.13746E-02 1.93356E+02 + -3.99589E+00 1.86075E+02 -1.22826E+00 2.59524E+01 4.02014E-01 + 2.59327E+01 4.10771E-01 3.97384E-02 5.58925E-03 4.13944E-02 + 5.04044E-03 9.94149E-01 2.24200E-03 -2.38688E-02 5.13746E-02 + ECHO READ:EBINDA(IM),$LGN(GE(IM)/0,1/) + 1.56000E-03 1.69413E+02 2.69387E+01 + ECHO READ:($LGN(GMFP,GBR1,GBR2(I,IM)/0,1/),I=1,NGE) + 3.29480E-04 5.00737E-05 0.00000E+00 0.00000E+00 1.69154E-02 + 2.72188E-03 3.29480E-04 5.00737E-05 0.00000E+00 0.00000E+00 + 1.69154E-02 2.72188E-03 3.61130E-04 5.51972E-05 0.00000E+00 + 0.00000E+00 7.08556E-03 1.13064E-03 3.95886E-04 6.08575E-05 + 0.00000E+00 0.00000E+00 -4.67774E-03 -7.85092E-04 4.33526E-04 + 6.70248E-05 0.00000E+00 0.00000E+00 1.26673E-03 1.88893E-04 + 4.75087E-04 7.38760E-05 0.00000E+00 0.00000E+00 -5.65203E-03 + -9.51664E-04 5.19959E-04 8.13187E-05 0.00000E+00 0.00000E+00 + 8.31534E-03 1.36503E-03 5.69755E-04 8.96293E-05 0.00000E+00 + 0.00000E+00 1.49024E-03 2.25975E-04 6.23725E-04 9.86927E-05 + 0.00000E+00 0.00000E+00 9.78023E-03 1.61814E-03 6.83806E-04 + 1.08846E-04 0.00000E+00 0.00000E+00 -6.44430E-03 -1.12359E-03 + 7.48332E-04 1.19818E-04 0.00000E+00 0.00000E+00 6.31950E-03 + 1.04694E-03 8.23362E-04 1.32659E-04 0.00000E+00 0.00000E+00 + 2.17269E-03 3.37279E-04 9.49059E-04 1.54307E-04 0.00000E+00 + 0.00000E+00 7.58980E-03 1.27026E-03 1.04537E-03 1.71002E-04 + 0.00000E+00 0.00000E+00 3.00537E-03 4.75610E-04 1.15027E-03 + 1.89303E-04 0.00000E+00 0.00000E+00 1.46893E-02 2.51397E-03 + 1.26782E-03 2.09943E-04 0.00000E+00 0.00000E+00 -1.86800E-03 + -3.93418E-04 1.39547E-03 2.32504E-04 0.00000E+00 0.00000E+00 + 4.03999E-03 6.50803E-04 1.53579E-03 2.57470E-04 0.00000E+00 + 0.00000E+00 1.11451E-02 1.91491E-03 1.69063E-03 2.85201E-04 + 0.00000E+00 0.00000E+00 1.23253E-02 2.12628E-03 1.88376E-03 + 3.20021E-04 0.00000E+00 0.00000E+00 -1.72373E-03 -4.06710E-04 + 2.12151E-03 3.63176E-04 0.00000E+00 0.00000E+00 1.41998E-02 + 2.48358E-03 2.34396E-03 4.03827E-04 0.00000E+00 0.00000E+00 + 1.13785E-02 1.96801E-03 2.58905E-03 4.48921E-04 0.00000E+00 + 0.00000E+00 1.24490E-02 2.16498E-03 2.85962E-03 4.99046E-04 + 0.00000E+00 0.00000E+00 1.36095E-02 2.37997E-03 3.15723E-03 + 5.54561E-04 0.00000E+00 0.00000E+00 2.01274E-02 3.59581E-03 + 3.49161E-03 6.17372E-04 0.00000E+00 0.00000E+00 1.10540E-02 + 1.89146E-03 3.86281E-03 6.87587E-04 0.00000E+00 0.00000E+00 + 1.17947E-02 2.03158E-03 4.26518E-03 7.64237E-04 0.00000E+00 + 0.00000E+00 1.88902E-02 3.38324E-03 4.70961E-03 8.49502E-04 + 0.00000E+00 0.00000E+00 2.39661E-02 4.35707E-03 5.20220E-03 + 9.44685E-04 0.00000E+00 0.00000E+00 2.27079E-02 4.11394E-03 + 5.78717E-03 1.05853E-03 0.00000E+00 0.00000E+00 2.49132E-02 + 4.54315E-03 6.46440E-03 1.19130E-03 0.00000E+00 0.00000E+00 + 2.74394E-02 5.03839E-03 7.14719E-03 1.32614E-03 0.00000E+00 + 0.00000E+00 3.85607E-02 7.23461E-03 7.91001E-03 1.47789E-03 + 0.00000E+00 0.00000E+00 3.32626E-02 6.18062E-03 8.74616E-03 + 1.64547E-03 0.00000E+00 0.00000E+00 4.11053E-02 7.75243E-03 + 9.67593E-03 1.83320E-03 0.00000E+00 0.00000E+00 3.97559E-02 + 7.47996E-03 1.06963E-02 2.04080E-03 0.00000E+00 0.00000E+00 + 4.87788E-02 9.31562E-03 1.18265E-02 2.27248E-03 0.00000E+00 + 0.00000E+00 5.33135E-02 1.02452E-02 1.28751E-02 2.48908E-03 + 0.00000E+00 0.00000E+00 5.41636E-02 1.04208E-02 1.40849E-02 + 2.74092E-03 0.00000E+00 0.00000E+00 6.50151E-02 1.26796E-02 + 1.55350E-02 3.04511E-03 0.00000E+00 0.00000E+00 6.37777E-02 + 1.24201E-02 1.71064E-02 3.37734E-03 0.00000E+00 0.00000E+00 + 8.42178E-02 1.67417E-02 1.88725E-02 3.75370E-03 0.00000E+00 + 0.00000E+00 7.60577E-02 1.50027E-02 2.07788E-02 4.16318E-03 + 0.00000E+00 0.00000E+00 9.50687E-02 1.90863E-02 2.41194E-02 + 4.88650E-03 0.00000E+00 0.00000E+00 1.09055E-01 2.21146E-02 + 2.74712E-02 5.61815E-03 0.00000E+00 0.00000E+00 1.22818E-01 + 2.51190E-02 3.05282E-02 6.29087E-03 0.00000E+00 0.00000E+00 + 1.29677E-01 2.66282E-02 3.38809E-02 7.03475E-03 0.00000E+00 + 0.00000E+00 1.53050E-01 3.18142E-02 3.76384E-02 7.87538E-03 + 0.00000E+00 0.00000E+00 1.59209E-01 3.31920E-02 4.17513E-02 + 8.80321E-03 0.00000E+00 0.00000E+00 1.83680E-01 3.87125E-02 + 4.63353E-02 9.84606E-03 0.00000E+00 0.00000E+00 1.97983E-01 + 4.19664E-02 5.13666E-02 1.10004E-02 0.00000E+00 0.00000E+00 + 2.23853E-01 4.79018E-02 5.69134E-02 1.22840E-02 0.00000E+00 + 0.00000E+00 2.52840E-01 5.46095E-02 6.30998E-02 1.37279E-02 + 0.00000E+00 0.00000E+00 2.68812E-01 5.83377E-02 6.98216E-02 + 1.53106E-02 0.00000E+00 0.00000E+00 3.06867E-01 6.72977E-02 + 7.65787E-02 1.69156E-02 0.00000E+00 0.00000E+00 3.27849E-01 + 7.22816E-02 8.42871E-02 1.87628E-02 0.00000E+00 0.00000E+00 + 3.61157E-01 8.02635E-02 9.30116E-02 2.08723E-02 0.00000E+00 + 0.00000E+00 3.98788E-01 8.93623E-02 1.02557E-01 2.32011E-02 + 0.00000E+00 0.00000E+00 4.39835E-01 9.93768E-02 1.13015E-01 + 2.57760E-02 0.00000E+00 0.00000E+00 4.81568E-01 1.09652E-01 + 1.24432E-01 2.86129E-02 0.00000E+00 0.00000E+00 5.26560E-01 + 1.20832E-01 1.36794E-01 3.17134E-02 0.00000E+00 0.00000E+00 + 5.81579E-01 1.34630E-01 1.50347E-01 3.51444E-02 0.00000E+00 + 0.00000E+00 6.30885E-01 1.47112E-01 1.70238E-01 4.02275E-02 + 0.00000E+00 0.00000E+00 7.17202E-01 1.69170E-01 1.87371E-01 + 4.46477E-02 0.00000E+00 0.00000E+00 7.83279E-01 1.86219E-01 + 2.05684E-01 4.94182E-02 0.00000E+00 0.00000E+00 8.57210E-01 + 2.05477E-01 2.25360E-01 5.45939E-02 0.00000E+00 0.00000E+00 + 9.38370E-01 2.26825E-01 2.46451E-01 6.01963E-02 0.00000E+00 + 0.00000E+00 1.02493E+00 2.49820E-01 2.69152E-01 6.62865E-02 + 0.00000E+00 0.00000E+00 1.10958E+00 2.72528E-01 2.93123E-01 + 7.27820E-02 0.00000E+00 0.00000E+00 1.20565E+00 2.98562E-01 + 3.18635E-01 7.97655E-02 0.00000E+00 0.00000E+00 1.30117E+00 + 3.24707E-01 3.45317E-01 8.71442E-02 0.00000E+00 0.00000E+00 + 1.40558E+00 3.53580E-01 3.73184E-01 9.49302E-02 0.00000E+00 + 0.00000E+00 1.51352E+00 3.83741E-01 4.02419E-01 1.03184E-01 + 0.00000E+00 0.00000E+00 1.61857E+00 4.13399E-01 4.32920E-01 + 1.11887E-01 0.00000E+00 0.00000E+00 1.74063E+00 4.48227E-01 + 4.63728E-01 1.20772E-01 0.00000E+00 0.00000E+00 1.84966E+00 + 4.79670E-01 4.94683E-01 1.29795E-01 0.00000E+00 0.00000E+00 + 1.96231E+00 5.12506E-01 5.25683E-01 1.38931E-01 0.00000E+00 + 0.00000E+00 2.07282E+00 5.45073E-01 5.56528E-01 1.48121E-01 + 0.00000E+00 0.00000E+00 2.17804E+00 5.76424E-01 5.86277E-01 + 1.57084E-01 0.00000E+00 0.00000E+00 2.28274E+00 6.07969E-01 + 6.15396E-01 1.65956E-01 0.00000E+00 0.00000E+00 2.37571E+00 + 6.36296E-01 6.43533E-01 1.74627E-01 0.00000E+00 0.00000E+00 + 2.46897E+00 6.65034E-01 6.71437E-01 1.83326E-01 0.00000E+00 + 0.00000E+00 2.55646E+00 6.92309E-01 6.94799E-01 1.90694E-01 + 0.00000E+00 0.00000E+00 2.62314E+00 7.13340E-01 7.14984E-01 + 1.97136E-01 0.00000E+00 0.00000E+00 2.67995E+00 7.31471E-01 + 7.33321E-01 2.03058E-01 0.00000E+00 0.00000E+00 2.71667E+00 + 7.43328E-01 7.47431E-01 2.07670E-01 0.00000E+00 0.00000E+00 + 2.74494E+00 7.52570E-01 7.59609E-01 2.11700E-01 0.00000E+00 + 0.00000E+00 2.76249E+00 7.58377E-01 7.70470E-01 2.15338E-01 + 0.00000E+00 0.00000E+00 2.77165E+00 7.61446E-01 7.74535E-01 + 2.16717E-01 0.00000E+00 0.00000E+00 2.75556E+00 7.55988E-01 + 7.75558E-01 2.17068E-01 0.00000E+00 0.00000E+00 2.72505E+00 + 7.45506E-01 7.73596E-01 2.16385E-01 0.00000E+00 0.00000E+00 + 2.68200E+00 7.30527E-01 7.68903E-01 2.14731E-01 0.00000E+00 + 0.00000E+00 2.63200E+00 7.12898E-01 7.62381E-01 2.12401E-01 + 0.00000E+00 0.00000E+00 2.57310E+00 6.91857E-01 7.52935E-01 + 2.08982E-01 0.00000E+00 0.00000E+00 2.50139E+00 6.65896E-01 + 7.41490E-01 2.04782E-01 0.00000E+00 0.00000E+00 2.42419E+00 + 6.37568E-01 7.28396E-01 1.99911E-01 0.00000E+00 0.00000E+00 + 2.34304E+00 6.07382E-01 7.14717E-01 1.94751E-01 0.00000E+00 + 0.00000E+00 2.25865E+00 5.75548E-01 7.00436E-01 1.89287E-01 + 0.00000E+00 0.00000E+00 2.17315E+00 5.42835E-01 6.85588E-01 + 1.83525E-01 0.00000E+00 0.00000E+00 2.08810E+00 5.09830E-01 + 6.75832E-01 1.79684E-01 0.00000E+00 0.00000E+00 2.02130E+00 + 4.83527E-01 6.64048E-01 1.74975E-01 0.00000E+00 0.00000E+00 + 1.94636E+00 4.53578E-01 6.49079E-01 1.68903E-01 0.00000E+00 + 0.00000E+00 1.86448E+00 4.20364E-01 6.35096E-01 1.63144E-01 + 0.00000E+00 0.00000E+00 1.78630E+00 3.88170E-01 6.22179E-01 + 1.57742E-01 0.00000E+00 0.00000E+00 1.71240E+00 3.57269E-01 + 6.10274E-01 1.52685E-01 0.00000E+00 0.00000E+00 1.64321E+00 + 3.27870E-01 5.98510E-01 1.47607E-01 0.00000E+00 0.00000E+00 + 1.57699E+00 2.99288E-01 5.88627E-01 1.43272E-01 0.00000E+00 + 0.00000E+00 1.51669E+00 2.72839E-01 5.79688E-01 1.39286E-01 + 0.00000E+00 0.00000E+00 1.46272E+00 2.48775E-01 5.72260E-01 + 1.35918E-01 0.00000E+00 0.00000E+00 1.41322E+00 2.26332E-01 + 5.65619E-01 1.32855E-01 0.00000E+00 0.00000E+00 1.36825E+00 + 2.05590E-01 5.60069E-01 1.30251E-01 0.00000E+00 0.00000E+00 + 1.32745E+00 1.86447E-01 5.55479E-01 1.28060E-01 0.00000E+00 + 0.00000E+00 1.29059E+00 1.68849E-01 5.51680E-01 1.26213E-01 + 0.00000E+00 0.00000E+00 1.25744E+00 1.52732E-01 5.48644E-01 + 1.24709E-01 0.00000E+00 0.00000E+00 1.22770E+00 1.38008E-01 + 5.46609E-01 1.23683E-01 0.00000E+00 0.00000E+00 1.20104E+00 + 1.24562E-01 5.45044E-01 1.22879E-01 0.00000E+00 0.00000E+00 + 1.17728E+00 1.12347E-01 5.41979E-01 1.21272E-01 0.00000E+00 + 0.00000E+00 1.14907E+00 9.75687E-02 5.41173E-01 1.20843E-01 + 0.00000E+00 0.00000E+00 1.12880E+00 8.67368E-02 5.41972E-01 + 1.21278E-01 0.00000E+00 0.00000E+00 1.11372E+00 7.85158E-02 + 5.43096E-01 1.21903E-01 0.00000E+00 0.00000E+00 1.10029E+00 + 7.10430E-02 5.44699E-01 1.22814E-01 0.00000E+00 0.00000E+00 + 1.08834E+00 6.42558E-02 5.46536E-01 1.23880E-01 0.00000E+00 + 0.00000E+00 1.07774E+00 5.81013E-02 5.48637E-01 1.25127E-01 + 0.00000E+00 0.00000E+00 1.06834E+00 5.25241E-02 5.51088E-01 + 1.26614E-01 0.00000E+00 0.00000E+00 1.06000E+00 4.74669E-02 + 5.53443E-01 1.28074E-01 0.00000E+00 0.00000E+00 1.05187E+00 + 4.24219E-02 5.56311E-01 1.29896E-01 0.00000E+00 0.00000E+00 + 1.04545E+00 3.83435E-02 5.59410E-01 1.31912E-01 0.00000E+00 + 0.00000E+00 1.03981E+00 3.46777E-02 5.62592E-01 1.34033E-01 + 0.00000E+00 0.00000E+00 1.03484E+00 3.13620E-02 5.65956E-01 + 1.36333E-01 0.00000E+00 0.00000E+00 1.03045E+00 2.83610E-02 + 5.69376E-01 1.38731E-01 0.00000E+00 0.00000E+00 1.02657E+00 + 2.56426E-02 5.72938E-01 1.41295E-01 0.00000E+00 0.00000E+00 + 1.02316E+00 2.31891E-02 5.76557E-01 1.43973E-01 0.00000E+00 + 0.00000E+00 1.02016E+00 2.09669E-02 5.80235E-01 1.46771E-01 + 0.00000E+00 0.00000E+00 1.01752E+00 1.89582E-02 5.83976E-01 + 1.49699E-01 0.00000E+00 0.00000E+00 1.01520E+00 1.71435E-02 + 5.87744E-01 1.52737E-01 0.00000E+00 0.00000E+00 1.01315E+00 + 1.54915E-02 5.91311E-01 1.55702E-01 0.00000E+00 0.00000E+00 + 1.01082E+00 1.35519E-02 5.95179E-01 1.59018E-01 0.00000E+00 + 0.00000E+00 1.00935E+00 1.22962E-02 5.99048E-01 1.62446E-01 + 0.00000E+00 0.00000E+00 1.00807E+00 1.11594E-02 6.02892E-01 + 1.65966E-01 0.00000E+00 0.00000E+00 1.00695E+00 1.01302E-02 + 6.06755E-01 1.69628E-01 0.00000E+00 0.00000E+00 1.00596E+00 + 9.19087E-03 6.10589E-01 1.73396E-01 0.00000E+00 0.00000E+00 + 1.00510E+00 8.34629E-03 6.14388E-01 1.77270E-01 0.00000E+00 + 0.00000E+00 1.00434E+00 7.57556E-03 6.18102E-01 1.81207E-01 + 0.00000E+00 0.00000E+00 1.00354E+00 6.72295E-03 6.21686E-01 + 1.85162E-01 0.00000E+00 0.00000E+00 1.00264E+00 5.73707E-03 + 6.25419E-01 1.89457E-01 0.00000E+00 0.00000E+00 1.00222E+00 + 5.24894E-03 6.29084E-01 1.93862E-01 0.00000E+00 0.00000E+00 + 1.00185E+00 4.80572E-03 6.32702E-01 1.98415E-01 0.00000E+00 + 0.00000E+00 1.00153E+00 4.40275E-03 6.36235E-01 2.03077E-01 + 0.00000E+00 0.00000E+00 1.00125E+00 4.03024E-03 6.39694E-01 + 2.07877E-01 0.00000E+00 0.00000E+00 1.00096E+00 3.63203E-03 + 6.43020E-01 2.12743E-01 0.00000E+00 0.00000E+00 1.00064E+00 + 3.16317E-03 6.46335E-01 2.17869E-01 0.00000E+00 0.00000E+00 + 1.00048E+00 2.91430E-03 6.49545E-01 2.23139E-01 0.00000E+00 + 0.00000E+00 1.00034E+00 2.68629E-03 6.52660E-01 2.28584E-01 + 0.00000E+00 0.00000E+00 1.00022E+00 2.47595E-03 6.55623E-01 + 2.34120E-01 0.00000E+00 0.00000E+00 1.00006E+00 2.17569E-03 + 6.58452E-01 2.39802E-01 0.00000E+00 0.00000E+00 9.99885E-01 + 1.82565E-03 6.61202E-01 2.45769E-01 0.00000E+00 0.00000E+00 + 9.99828E-01 1.70362E-03 6.63810E-01 2.51927E-01 0.00000E+00 + 0.00000E+00 9.99780E-01 1.58962E-03 6.66257E-01 2.58256E-01 + 0.00000E+00 0.00000E+00 9.99738E-01 1.47881E-03 6.68547E-01 + 2.64809E-01 0.00000E+00 0.00000E+00 9.99703E-01 1.37927E-03 + 6.70653E-01 2.71551E-01 0.00000E+00 0.00000E+00 9.99674E-01 + 1.28614E-03 6.72569E-01 2.78515E-01 0.00000E+00 0.00000E+00 + 9.99650E-01 1.19944E-03 6.74272E-01 2.85668E-01 0.00000E+00 + 0.00000E+00 9.99619E-01 1.06938E-03 6.75758E-01 2.93061E-01 + 0.00000E+00 0.00000E+00 9.99599E-01 9.69826E-04 6.77012E-01 + 3.00720E-01 0.00000E+00 0.00000E+00 9.99589E-01 9.08811E-04 + 6.78014E-01 3.08623E-01 0.00000E+00 0.00000E+00 9.99582E-01 + 8.51006E-04 6.78744E-01 3.16778E-01 0.00000E+00 0.00000E+00 + 9.99577E-01 7.98019E-04 6.79186E-01 3.25200E-01 0.00000E+00 + 0.00000E+00 9.99575E-01 7.51455E-04 6.79436E-01 3.41499E-01 + 0.00000E+00 0.00000E+00 9.99744E-01 1.17696E-02 6.79528E-01 + 3.37307E-01 -1.63458E-04 7.50626E-03 1.00000E+00 1.60565E-06 + 6.79004E-01 3.46199E-01 -1.79526E-04 7.77907E-03 1.00000E+00 + -1.60567E-06 6.78123E-01 3.55371E-01 -2.07055E-04 8.06578E-03 + 1.00000E+00 0.00000E+00 6.76864E-01 3.64825E-01 -2.46749E-04 + 8.36391E-03 1.00000E+00 1.60567E-06 6.75207E-01 3.74560E-01 + -2.99521E-04 8.67386E-03 1.00000E+00 -1.60567E-06 6.73122E-01 + 3.84612E-01 -3.66372E-04 8.99622E-03 1.00000E+00 1.60567E-06 + 6.70592E-01 3.94960E-01 -4.48328E-04 9.33140E-03 1.00000E+00 + -1.60567E-06 6.67587E-01 4.05631E-01 -5.46496E-04 9.67999E-03 + 9.99999E-01 1.60567E-06 6.64082E-01 4.16627E-01 -6.62040E-04 + 1.00425E-02 1.00000E+00 0.00000E+00 6.60051E-01 4.27955E-01 + -7.96188E-04 1.04194E-02 1.00000E+00 0.00000E+00 6.61303E-01 + 4.24768E-01 -7.84299E-03 2.83507E-02 1.00000E+00 0.00000E+00 + 6.59993E-01 4.27814E-01 -1.21846E-02 3.84450E-02 1.00000E+00 + 0.00000E+00 6.55071E-01 4.38348E-01 -1.28508E-02 3.98708E-02 + 1.00000E+00 0.00000E+00 6.49630E-01 4.49137E-01 -1.35962E-02 + 4.13486E-02 1.00000E+00 0.00000E+00 6.43664E-01 4.60155E-01 + -1.44252E-02 4.28797E-02 1.00000E+00 0.00000E+00 6.37137E-01 + 4.71433E-01 -1.53430E-02 4.44658E-02 1.00000E+00 0.00000E+00 + 6.30043E-01 4.82956E-01 -1.63544E-02 4.61085E-02 1.00000E+00 + 0.00000E+00 6.22360E-01 4.94725E-01 -1.74646E-02 4.78092E-02 + 1.00000E+00 0.00000E+00 6.34022E-01 4.77821E-01 -3.86361E-02 + 7.84942E-02 1.00000E+00 0.00000E+00 6.28769E-01 4.85046E-01 + -4.26560E-02 8.40230E-02 1.00000E+00 0.00000E+00 6.21172E-01 + 4.94989E-01 -4.49040E-02 8.69647E-02 1.00000E+00 0.00000E+00 + 6.13144E-01 5.05006E-01 -4.73289E-02 8.99908E-02 1.00000E+00 + -1.60567E-06 6.04680E-01 5.15103E-01 -4.99383E-02 9.31029E-02 + 9.99998E-01 1.60567E-06 5.95795E-01 5.25250E-01 -5.27387E-02 + 9.63014E-02 1.00000E+00 0.00000E+00 5.86482E-01 5.35456E-01 + -5.57369E-02 9.95863E-02 1.00000E+00 -1.60567E-06 5.76754E-01 + 5.45697E-01 -5.89392E-02 1.02958E-01 9.99998E-01 1.60567E-06 + 5.66626E-01 5.55961E-01 -6.23519E-02 1.06416E-01 1.00000E+00 + 0.00000E+00 5.56109E-01 5.66228E-01 -6.59808E-02 1.09959E-01 + 1.00000E+00 0.00000E+00 5.45219E-01 5.76491E-01 -6.98321E-02 + 1.13589E-01 1.00000E+00 -1.60567E-06 5.77095E-01 5.47467E-01 + -1.07703E-01 1.48070E-01 9.99997E-01 1.60567E-06 5.77095E-01 + 5.47467E-01 -1.07703E-01 1.48070E-01 9.99997E-01 1.60567E-06 + DATA FOR MEDIUM # 4, WHICH IS: MEDIUM=CD+TE-3MEV-10KEV-02KEV ,STERNCID=CD+TE-3MEV-10KEV-02KEV + COMP,RHO= 6.060 ,NE= 2,COMPOSITION IS : + ASYM=CD,Z=48.,A= 112.400,PZ= 1.00000E+00,RHOZ= 1.12400E+02 + ASYM=TE,Z=52.,A= 127.600,PZ= 1.00000E+00,RHOZ= 1.27600E+02 + ECHO READ:$LGN(RLC,AE,AP,UE,UP(IM)) + 1.46952E+00 5.21000E-01 2.00000E-03 3.51100E+00 3.00200E+00 + ECHO READ:$LGN(MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE(IM)),IRAYL + 0 200 0 150 0 0 0 0 + ECHO READ:($LGN(DL(I,IM)/1,2,3,4,5,6/),I=1,6) + 9.99979E-01 -2.43973E-01 5.59862E-02 9.95222E-01 -2.61874E-01 + 9.52000E-01 1.00026E+00 -2.07238E-01 3.99519E-02 1.01643E+00 + -2.67454E-01 9.52000E-01 1.00040E+00 -1.88277E-01 2.88974E-02 + 1.02737E+00 -2.70334E-01 9.52000E-01 9.99978E-01 -2.53143E-01 + 5.80904E-02 9.95043E-01 -2.71716E-01 9.52000E-01 1.00027E+00 + -2.15200E-01 4.14867E-02 1.01706E+00 -2.77728E-01 9.52000E-01 + 1.00041E+00 -1.95591E-01 3.00200E-02 1.02844E+00 -2.80835E-01 + 9.52000E-01 + ECHO READ:DELCM(IM),($LGN(ALPHI,BPAR, DELPOS(I,IM)),I=1,2) + 1.88496E+01 9.43889E-01 8.53205E-01 2.32189E+00 9.44645E-01 + 8.53053E-01 2.01541E+00 + ECHO READ:$LGN(XR0,TEFF0,BLCC,XCC(IM)) + 2.03649E-01 3.09893E-04 6.45506E+04 5.45344E+00 + ECHO READ:$LGN(EKE(IM)/0,1/) + 1.21501E+02 2.59409E+01 + ECHO READ:($LGN(ESIG,PSIG,EDEDX,PDEDX,EBR1,PBR1,PBR2, TMXS(I,IM)/0,1/),I=1,NEKE) + 1.19349E+01 1.87802E+00 6.11107E+03 1.32545E+03 -1.79651E+02 + -5.89218E+01 -2.97656E+02 -8.78403E+01 1.00000E+00 0.00000E+00 + -5.73267E+01 -1.25624E+01 5.11443E+01 1.09879E+01 3.01050E-05 + 5.80003E-06 1.19349E+01 1.87802E+00 6.11107E+03 1.32545E+03 + -1.79651E+02 -5.89218E+01 -2.97656E+02 -8.78403E+01 1.00000E+00 + 0.00000E+00 -5.73267E+01 -1.25624E+01 5.11443E+01 1.09879E+01 + 3.01050E-05 5.80003E-06 1.18886E+01 1.86789E+00 5.43884E+03 + 1.17829E+03 -1.74201E+02 -5.77288E+01 -2.84928E+02 -8.50539E+01 + 1.00000E+00 0.00000E+00 -3.01394E+00 -6.72835E-01 3.65195E+00 + 5.91457E-01 3.18932E-05 6.19149E-06 1.18400E+01 1.85717E+00 + 4.82364E+03 1.04247E+03 -1.68783E+02 -5.65325E+01 -2.72592E+02 + -8.23306E+01 1.00000E+00 0.00000E+00 -1.02904E+00 -2.34625E-01 + 1.91696E+00 2.08422E-01 3.37996E-05 6.61237E-06 1.17940E+01 + 1.84692E+00 4.26905E+03 9.18986E+02 -1.63485E+02 -5.53528E+01 + -2.60805E+02 -7.97059E+01 1.00000E+00 0.00000E+00 -5.02757E-01 + -1.17440E-01 1.45751E+00 1.06115E-01 3.58288E-05 7.06419E-06 + 1.17448E+01 1.83587E+00 3.76702E+03 8.06232E+02 -1.58153E+02 + -5.41551E+01 -2.49314E+02 -7.71251E+01 1.00000E+00 0.00000E+00 + -2.87581E-01 -6.91124E-02 1.27009E+00 6.40222E-02 3.79692E-05 + 7.54492E-06 1.16981E+01 1.82529E+00 3.31515E+03 7.03858E+02 + -1.53022E+02 -5.29929E+01 -2.38433E+02 -7.46599E+01 1.00000E+00 + 0.00000E+00 -1.78846E-01 -4.44777E-02 1.17578E+00 4.26578E-02 + 4.02416E-05 8.05977E-06 1.16499E+01 1.81427E+00 2.90737E+03 + 6.10660E+02 -1.47936E+02 -5.18304E+01 -2.27922E+02 -7.22576E+01 + 1.00000E+00 0.00000E+00 -1.16155E-01 -3.01495E-02 1.12177E+00 + 3.03118E-02 4.26481E-05 8.60976E-06 1.16023E+01 1.80329E+00 + 2.54073E+03 5.26118E+02 -1.42902E+02 -5.06696E+01 -2.17772E+02 + -6.99172E+01 1.00000E+00 0.00000E+00 -7.66504E-02 -2.10405E-02 + 1.08806E+00 2.25388E-02 4.51933E-05 9.19664E-06 1.15573E+01 + 1.79282E+00 2.21121E+03 4.49454E+02 -1.38015E+02 -4.95326E+01 + -2.08095E+02 -6.76658E+01 1.00000E+00 0.00000E+00 -5.00224E-02 + -1.48454E-02 1.06563E+00 1.73206E-02 4.78964E-05 9.82551E-06 + 1.15237E+01 1.78494E+00 1.91540E+03 3.80012E+02 -1.33214E+02 + -4.84055E+01 -1.98786E+02 -6.54804E+01 1.00000E+00 0.00000E+00 + -3.10777E-02 -1.03980E-02 1.05000E+00 1.36497E-02 5.07550E-05 + 1.04966E-05 1.14808E+01 1.77478E+00 1.64987E+03 3.17106E+02 + -1.28503E+02 -4.72897E+01 -1.89836E+02 -6.33601E+01 1.00000E+00 + 0.00000E+00 -1.70472E-02 -7.07423E-03 1.03866E+00 1.09642E-02 + 5.37805E-05 1.12133E-05 1.14279E+01 1.76213E+00 1.41251E+03 + 2.60358E+02 -1.23890E+02 -4.61867E+01 -1.81241E+02 -6.13054E+01 + 1.00000E+00 0.00000E+00 -6.30688E-03 -4.50637E-03 1.03018E+00 + 8.93708E-03 5.69875E-05 1.19801E-05 1.13773E+01 1.74991E+00 + 1.20033E+03 2.09157E+02 -1.19404E+02 -4.51043E+01 -1.73023E+02 + -5.93223E+01 1.00000E+00 0.00000E+00 2.21578E-03 -2.44977E-03 + 1.02369E+00 7.37222E-03 6.03823E-05 1.27993E-05 1.13252E+01 + 1.73722E+00 1.01090E+03 1.63017E+02 -1.14980E+02 -4.40269E+01 + -1.65085E+02 -5.73887E+01 1.00000E+00 0.00000E+00 9.16340E-03 + -7.57521E-04 1.01862E+00 6.13380E-03 6.39712E-05 1.36734E-05 + 1.12740E+01 1.72464E+00 8.42377E+02 1.21581E+02 -1.10682E+02 + -4.29698E+01 -1.57491E+02 -5.55216E+01 1.00000E+00 0.00000E+00 + 1.49661E-02 6.69258E-04 1.01457E+00 5.14107E-03 6.77765E-05 + 1.46091E-05 1.12213E+01 1.71155E+00 6.92558E+02 8.43899E+01 + -1.06482E+02 -4.19272E+01 -1.50203E+02 -5.37124E+01 1.00000E+00 + 0.00000E+00 1.99236E-02 1.89988E-03 1.01127E+00 4.32319E-03 + 7.17930E-05 1.56062E-05 1.11706E+01 1.69885E+00 5.59658E+02 + 5.10798E+01 -1.02411E+02 -4.09069E+01 -1.43241E+02 -5.19673E+01 + 1.00000E+00 0.00000E+00 2.42560E-02 2.98573E-03 1.00859E+00 + 3.64903E-03 7.60490E-05 1.66728E-05 1.11163E+01 1.68512E+00 + 4.42341E+02 2.13897E+01 -9.84041E+01 -3.98929E+01 -1.36513E+02 + -5.02647E+01 1.00000E+00 0.00000E+00 2.80879E-02 3.95554E-03 + 1.00635E+00 3.08312E-03 8.05523E-05 1.78125E-05 2.77205E+03 + 7.07304E+02 3.38827E+02 -5.06500E+00 -1.22638E+02 -4.60864E+01 + -1.30071E+02 -4.86183E+01 -8.58539E+01 -2.21975E+01 3.15637E-02 + 4.84383E-03 1.00445E+00 2.59761E-03 8.53112E-05 1.90288E-05 + 2.31660E+03 5.89746E+02 2.47901E+02 -2.85343E+01 -1.15247E+02 + -4.41787E+01 -1.23922E+02 -4.70311E+01 -5.78503E+00 -1.53045E+00 + 3.47390E-02 5.66343E-03 1.00286E+00 2.18787E-03 9.03553E-05 + 2.03307E-05 1.95011E+03 4.94198E+02 1.68302E+02 -4.92867E+01 + -1.08618E+02 -4.24503E+01 -1.17984E+02 -4.54831E+01 -2.02680E+00 + -5.50648E-01 3.76960E-02 6.43435E-03 1.00148E+00 1.82915E-03 + 9.56694E-05 2.17161E-05 1.65324E+03 4.16015E+02 9.88046E+01 + -6.75898E+01 -1.02659E+02 -4.08811E+01 -1.12334E+02 -4.39951E+01 + -9.96384E-01 -2.79280E-01 4.04746E-02 7.16612E-03 1.00030E+00 + 1.51837E-03 1.01311E-04 2.32018E-05 1.40959E+03 3.51189E+02 + 3.84838E+01 -8.36381E+01 -9.71817E+01 -3.94238E+01 -1.06885E+02 + -4.25454E+01 -5.69993E-01 -1.65836E-01 4.31068E-02 7.86642E-03 + 9.99270E-01 1.24160E-03 1.07250E-04 2.47820E-05 1.20858E+03 + 2.97156E+02 -1.35341E+01 -9.76219E+01 -9.21421E+01 -3.80691E+01 + -1.01683E+02 -4.11469E+01 -3.53586E-01 -1.07662E-01 4.56379E-02 + 8.54682E-03 9.98367E-01 1.00039E-03 1.13538E-04 2.64723E-05 + 1.04080E+03 2.51583E+02 -5.81453E+01 -1.09740E+02 -8.74317E+01 + -3.67896E+01 -9.66759E+01 -3.97868E+01 -2.28810E-01 -7.37697E-02 + 4.80774E-02 9.20944E-03 9.97576E-01 7.83922E-04 1.20177E-04 + 2.82756E-05 9.00154E+02 2.12974E+02 -9.62593E+01 -1.20201E+02 + -8.30497E+01 -3.55867E+01 -9.19095E+01 -3.84785E+01 -1.50500E-01 + -5.22731E-02 5.04506E-02 9.86091E-03 9.96864E-01 5.89105E-04 + 1.27202E-04 3.02042E-05 7.81099E+02 1.79944E+02 -1.28216E+02 + -1.29067E+02 -7.88827E+01 -3.44306E+01 -8.73035E+01 -3.72007E+01 + -9.80185E-02 -3.77128E-02 5.27662E-02 1.05033E-02 9.96227E-01 + 4.12835E-04 1.34603E-04 3.22574E-05 6.80004E+02 1.51592E+02 + -1.55145E+02 -1.36620E+02 -7.49759E+01 -3.33350E+01 -8.29260E+01 + -3.59730E+01 -6.11726E-02 -2.73798E-02 5.50459E-02 1.11427E-02 + 9.95671E-01 2.56669E-04 1.42431E-04 3.44528E-05 5.93172E+02 + 1.26975E+02 -1.77105E+02 -1.42846E+02 -7.12420E+01 -3.22765E+01 + -7.87073E+01 -3.47770E+01 -3.41319E-02 -1.97136E-02 5.72842E-02 + 1.17772E-02 9.95170E-01 1.14419E-04 1.50686E-04 3.67929E-05 + 5.18642E+02 1.05612E+02 -1.95013E+02 -1.47979E+02 -6.77041E+01 + -3.12624E+01 -7.46842E+01 -3.36238E+01 -1.36769E-02 -1.38504E-02 + 5.95265E-02 1.24199E-02 9.94700E-01 -2.01006E-05 1.59404E-04 + 3.92920E-05 4.53902E+02 8.68483E+01 -2.09228E+02 -1.52099E+02 + -6.43325E+01 -3.02852E+01 -7.08351E+01 -3.25082E+01 2.24276E-03 + -9.23631E-03 6.17187E-02 1.30553E-02 9.94298E-01 -1.37612E-04 + 1.68601E-04 4.19575E-05 3.97809E+02 7.04064E+01 -2.19940E+02 + -1.55238E+02 -6.10887E+01 -2.93343E+01 -6.71270E+01 -3.14213E+01 + 1.49629E-02 -5.50784E-03 6.39137E-02 1.36987E-02 9.93908E-01 + -2.50484E-04 1.78292E-04 4.47982E-05 3.48790E+02 5.58745E+01 + -2.27945E+02 -1.57612E+02 -5.80062E+01 -2.84204E+01 -6.35992E+01 + -3.03754E+01 2.53551E-02 -2.42695E-03 6.61078E-02 1.43492E-02 + 9.93574E-01 -3.49441E-04 1.88529E-04 4.78331E-05 3.05892E+02 + 4.30093E+01 -2.33262E+02 -1.59206E+02 -5.50460E+01 -2.75327E+01 + -6.02157E+01 -2.93607E+01 3.39904E-02 1.62737E-04 6.82794E-02 + 1.50004E-02 9.93246E-01 -4.48397E-04 1.99305E-04 5.10648E-05 + 2.68249E+02 3.15887E+01 -2.36381E+02 -1.60152E+02 -5.22077E+01 + -2.66715E+01 -5.69754E+01 -2.83777E+01 4.13390E-02 2.39227E-03 + 7.04693E-02 1.56649E-02 9.92974E-01 -5.31895E-04 2.10669E-04 + 5.45126E-05 2.35107E+02 2.14142E+01 -2.37507E+02 -1.60498E+02 + -4.94904E+01 -2.58374E+01 -5.38813E+01 -2.74278E+01 4.76524E-02 + 4.33042E-03 7.26398E-02 1.63312E-02 9.92696E-01 -6.15387E-04 + 2.22655E-04 5.81920E-05 2.05911E+02 1.23442E+01 -2.36904E+02 + -1.60311E+02 -4.68777E+01 -2.50257E+01 -5.09148E+01 -2.65062E+01 + 5.31913E-02 6.05114E-03 7.48197E-02 1.70084E-02 9.92461E-01 + -6.89604E-04 2.35255E-04 6.21063E-05 1.80141E+02 4.24128E+00 + -2.34868E+02 -1.59670E+02 -4.43765E+01 -2.42392E+01 -4.80826E+01 + -2.56157E+01 5.81013E-02 7.59502E-03 7.69999E-02 1.76939E-02 + 9.92244E-01 -7.57637E-04 2.48540E-04 6.62836E-05 1.57484E+02 + -2.96989E+00 -2.31464E+02 -1.58587E+02 -4.19701E+01 -2.34733E+01 + -4.53698E+01 -2.47522E+01 6.24994E-02 8.99491E-03 7.91777E-02 + 1.83870E-02 9.92028E-01 -8.24123E-04 2.62513E-04 7.07311E-05 + 1.37453E+02 -9.42502E+00 -2.27027E+02 -1.57157E+02 -3.96656E+01 + -2.27307E+01 -4.27795E+01 -2.39175E+01 6.64996E-02 1.02840E-02 + 8.13601E-02 1.90903E-02 9.91848E-01 -8.82879E-04 2.77229E-04 + 7.54735E-05 1.19771E+02 -1.51946E+01 -2.21698E+02 -1.55419E+02 + -3.74529E+01 -2.20087E+01 -4.03031E+01 -2.31094E+01 7.01635E-02 + 1.14795E-02 8.35401E-02 1.98016E-02 9.91675E-01 -9.40088E-04 + 2.92706E-04 8.05233E-05 1.04255E+02 -2.03217E+01 -2.15510E+02 + -1.53374E+02 -3.53307E+01 -2.13074E+01 -3.79362E+01 -2.23274E+01 + 7.35513E-02 1.25989E-02 8.57189E-02 2.05216E-02 9.91521E-01 + -9.92659E-04 3.08980E-04 8.59012E-05 9.05794E+01 -2.48991E+01 + -2.08711E+02 -1.51098E+02 -3.32916E+01 -2.06249E+01 -3.56719E+01 + -2.15694E+01 7.67314E-02 1.36634E-02 8.79077E-02 2.12543E-02 + 9.91372E-01 -1.04059E-03 3.26088E-04 9.16275E-05 7.85890E+01 + -2.89650E+01 -2.01398E+02 -1.48618E+02 -3.13368E+01 -1.99620E+01 + -3.35095E+01 -2.08362E+01 7.96607E-02 1.46567E-02 9.00548E-02 + 2.19823E-02 9.91242E-01 -1.08543E-03 3.44059E-04 9.77215E-05 + 6.81392E+01 -3.25555E+01 -1.93630E+02 -1.45949E+02 -2.94626E+01 + -1.93181E+01 -3.14441E+01 -2.01265E+01 8.24802E-02 1.56254E-02 + 9.22355E-02 2.27316E-02 9.91119E-01 -1.12718E-03 3.62948E-04 + 1.04211E-04 5.90165E+01 -3.57319E+01 -1.85560E+02 -1.43139E+02 + -2.76661E+01 -1.86926E+01 -2.94722E+01 -1.94400E+01 8.51376E-02 + 1.65507E-02 9.43932E-02 2.34829E-02 9.91020E-01 -1.16275E-03 + 3.82783E-04 1.11118E-04 5.11337E+01 -3.85139E+01 -1.77248E+02 + -1.40206E+02 -2.59437E+01 -1.80847E+01 -2.75883E+01 -1.87751E+01 + 8.76700E-02 1.74445E-02 9.65444E-02 2.42422E-02 9.90915E-01 + -1.19830E-03 4.03585E-04 1.18459E-04 4.43373E+01 -4.09459E+01 + -1.68755E+02 -1.37167E+02 -2.42933E+01 -1.74942E+01 -2.57905E+01 + -1.81318E+01 9.00975E-02 1.83131E-02 9.86828E-02 2.50073E-02 + 9.90834E-01 -1.22923E-03 4.25430E-04 1.26276E-04 3.85266E+01 + -4.30541E+01 -1.60139E+02 -1.34041E+02 -2.27111E+01 -1.69202E+01 + -2.40732E+01 -1.75087E+01 9.24199E-02 1.91556E-02 1.00798E-01 + 2.57747E-02 9.90754E-01 -1.25860E-03 4.48332E-04 1.34584E-04 + 3.36278E+01 -4.48566E+01 -1.51480E+02 -1.30855E+02 -2.11972E+01 + -1.63631E+01 -2.24352E+01 -1.69060E+01 9.46609E-02 1.99802E-02 + 1.02905E-01 2.65501E-02 9.90692E-01 -1.28025E-03 4.72340E-04 + 1.43418E-04 2.95168E+01 -4.63909E+01 -1.42811E+02 -1.27619E+02 + -1.97460E+01 -1.58215E+01 -2.08706E+01 -1.63221E+01 9.68401E-02 + 2.07936E-02 1.05002E-01 2.73328E-02 9.90630E-01 -1.30344E-03 + 4.97492E-04 1.52806E-04 2.61333E+01 -4.76722E+01 -1.34188E+02 + -1.24354E+02 -1.83596E+01 -1.52965E+01 -1.93805E+01 -1.57578E+01 + 9.89201E-02 2.15812E-02 1.07059E-01 2.81116E-02 9.90574E-01 + -1.32354E-03 5.23856E-04 1.62790E-04 2.33712E+01 -4.87338E+01 + -1.25651E+02 -1.21073E+02 -1.70323E+01 -1.47864E+01 -1.79591E+01 + -1.52116E+01 1.00941E-01 2.23578E-02 1.09091E-01 2.88925E-02 + 9.90543E-01 -1.33746E-03 5.51437E-04 1.73389E-04 2.12171E+01 + -4.95741E+01 -1.17210E+02 -1.17780E+02 -1.57615E+01 -1.42907E+01 + -1.66018E+01 -1.46820E+01 1.02901E-01 2.31224E-02 1.11101E-01 + 2.96765E-02 9.90513E-01 -1.34828E-03 5.80316E-04 1.84655E-04 + 1.95831E+01 -5.02213E+01 -1.08894E+02 -1.14487E+02 -1.45475E+01 + -1.38098E+01 -1.53090E+01 -1.41701E+01 1.04795E-01 2.38724E-02 + 1.13071E-01 3.04569E-02 9.90482E-01 -1.35911E-03 6.10512E-04 + 1.96613E-04 1.84051E+01 -5.06947E+01 -1.00751E+02 -1.11212E+02 + -1.33867E+01 -1.33430E+01 -1.40766E+01 -1.36744E+01 1.06638E-01 + 2.46138E-02 1.15014E-01 3.12382E-02 9.90469E-01 -1.36684E-03 + 6.42075E-04 2.09307E-04 1.76483E+01 -5.10038E+01 -9.27802E+01 + -1.07956E+02 -1.22778E+01 -1.28900E+01 -1.29022E+01 -1.31947E+01 + 1.08408E-01 2.53366E-02 1.16903E-01 3.20101E-02 9.90463E-01 + -1.36838E-03 6.75070E-04 2.22786E-04 1.72533E+01 -5.11681E+01 + -8.50093E+01 -1.04731E+02 -1.12185E+01 -1.24504E+01 -1.17838E+01 + -1.27305E+01 1.10148E-01 2.60588E-02 1.18772E-01 3.27857E-02 + 9.90463E-01 -1.36838E-03 7.09529E-04 2.37088E-04 1.71924E+01 + -5.11934E+01 -7.74265E+01 -1.01532E+02 -1.02066E+01 -1.20236E+01 + -1.07177E+01 -1.22808E+01 1.11818E-01 2.67635E-02 1.20581E-01 + 3.35487E-02 9.90463E-01 -1.36530E-03 7.45492E-04 2.52257E-04 + 1.74164E+01 -5.10976E+01 -7.00763E+01 -9.83807E+01 -9.24097E+00 + -1.16095E+01 -9.70290E+00 -1.18457E+01 1.13433E-01 2.74560E-02 + 1.22344E-01 3.43043E-02 9.90488E-01 -1.35756E-03 7.83012E-04 + 2.68345E-04 1.78969E+01 -5.08882E+01 -6.29467E+01 -9.52723E+01 + -8.31988E+00 -1.12079E+01 -8.73708E+00 -1.14246E+01 1.15004E-01 + 2.81408E-02 1.24062E-01 3.50535E-02 9.90506E-01 -1.34828E-03 + 8.22153E-04 2.85409E-04 1.85928E+01 -5.05795E+01 -5.60482E+01 + -9.22133E+01 -7.44114E+00 -1.08183E+01 -7.81807E+00 -1.10171E+01 + 1.16505E-01 2.88063E-02 1.25712E-01 3.57851E-02 9.90531E-01 + -1.33591E-03 8.62943E-04 3.03497E-04 1.94905E+01 -5.01746E+01 + -4.93762E+01 -8.92031E+01 -6.60249E+00 -1.04399E+01 -6.94240E+00 + -1.06221E+01 1.17972E-01 2.94682E-02 1.27322E-01 3.65114E-02 + 9.90574E-01 -1.31891E-03 9.05416E-04 3.22658E-04 2.05474E+01 + -4.96895E+01 -4.29464E+01 -8.62510E+01 -5.80430E+00 -1.00735E+01 + -6.11087E+00 -1.02403E+01 1.19373E-01 3.01115E-02 1.28862E-01 + 3.72185E-02 9.90618E-01 -1.29881E-03 9.49655E-04 3.42969E-04 + 2.17420E+01 -4.91310E+01 -3.67596E+01 -8.33595E+01 -5.04313E+00 + -9.71766E+00 -5.31941E+00 -9.87035E+00 1.20711E-01 3.07367E-02 + 1.30332E-01 3.79058E-02 9.90661E-01 -1.27871E-03 9.95674E-04 + 3.64478E-04 2.30616E+01 -4.85026E+01 -3.08001E+01 -8.05230E+01 + -4.31852E+00 -9.37280E+00 -4.56754E+00 -9.51250E+00 1.21990E-01 + 3.13456E-02 1.31733E-01 3.85727E-02 9.90717E-01 -1.25087E-03 + 1.04354E-03 3.87262E-04 2.44827E+01 -4.78139E+01 -2.50764E+01 + -7.77478E+01 -3.62770E+00 -9.03786E+00 -3.85184E+00 -9.16549E+00 + 1.23250E-01 3.19566E-02 1.33101E-01 3.92360E-02 9.90779E-01 + -1.22150E-03 1.09327E-03 4.11374E-04 2.59828E+01 -4.70725E+01 + -1.95895E+01 -7.50368E+01 -2.97102E+00 -8.71338E+00 -3.17285E+00 + -8.83000E+00 1.24464E-01 3.25563E-02 1.34411E-01 3.98828E-02 + 9.90843E-01 -1.18903E-03 1.14495E-03 4.36906E-04 2.75440E+01 + -4.62862E+01 -1.43341E+01 -7.23895E+01 -2.34626E+00 -8.39870E+00 + -2.52775E+00 -8.50505E+00 1.25566E-01 3.31112E-02 1.35596E-01 + 4.04801E-02 9.90915E-01 -1.15346E-03 1.19857E-03 4.63919E-04 + 2.91516E+01 -4.54606E+01 -9.31267E+00 -6.98102E+01 -1.75194E+00 + -8.09342E+00 -1.91517E+00 -8.19039E+00 1.26609E-01 3.36474E-02 + 1.36710E-01 4.10524E-02 9.90995E-01 -1.11327E-03 1.25423E-03 + 4.92505E-04 3.08024E+01 -4.45954E+01 -4.50371E+00 -6.72901E+01 + -1.18694E+00 -7.79734E+00 -1.33369E+00 -7.88566E+00 1.27635E-01 + 3.41846E-02 1.37786E-01 4.16161E-02 9.91072E-01 -1.07151E-03 + 1.31191E-03 5.22733E-04 3.24752E+01 -4.37006E+01 8.35194E-02 + -6.48366E+01 -6.50046E-01 -7.51016E+00 -7.81856E-01 -7.59052E+00 + 1.28585E-01 3.46928E-02 1.38772E-01 4.21432E-02 9.91162E-01 + -1.02513E-03 1.37168E-03 5.54703E-04 3.41578E+01 -4.27817E+01 + 4.45542E+00 -6.24490E+01 -1.40469E-01 -7.23187E+00 -2.58920E-01 + -7.30493E+00 1.29469E-01 3.51756E-02 1.39674E-01 4.26360E-02 + 9.91252E-01 -9.75651E-04 1.43359E-03 5.88511E-04 3.58480E+01 + -4.18389E+01 8.62189E+00 -6.01247E+01 3.43429E-01 -6.96192E+00 + 2.37199E-01 -7.02817E+00 1.30313E-01 3.56464E-02 1.40518E-01 + 4.31070E-02 9.91341E-01 -9.24626E-04 1.49764E-03 6.24243E-04 + 3.75319E+01 -4.08790E+01 1.25885E+01 -5.78633E+01 8.02835E-01 + -6.70001E+00 7.07490E-01 -6.76005E+00 1.31081E-01 3.60846E-02 + 1.41269E-01 4.35351E-02 9.91443E-01 -8.67417E-04 1.56388E-03 + 6.62007E-04 3.92015E+01 -3.99056E+01 1.63532E+01 -5.56688E+01 + 1.23829E+00 -6.44616E+00 1.15265E+00 -6.50054E+00 1.31797E-01 + 3.65019E-02 1.41952E-01 4.39331E-02 9.91539E-01 -8.10207E-04 + 1.63236E-03 7.01925E-04 4.08544E+01 -3.89200E+01 1.99350E+01 + -5.35330E+01 1.65124E+00 -6.19990E+00 1.57445E+00 -6.24901E+00 + 1.32453E-01 3.68932E-02 1.42555E-01 4.42926E-02 9.91641E-01 + -7.49906E-04 1.70306E-03 7.44086E-04 4.24809E+01 -3.79273E+01 + 2.33272E+01 -5.14624E+01 2.04227E+00 -5.96127E+00 1.97334E+00 + -6.00555E+00 1.33055E-01 3.72605E-02 1.43089E-01 4.46184E-02 + 9.91746E-01 -6.84965E-04 1.77605E-03 7.88637E-04 4.40741E+01 + -3.69314E+01 2.65433E+01 -4.94522E+01 2.41286E+00 -5.72961E+00 + 2.35096E+00 -5.76952E+00 1.33585E-01 3.75915E-02 1.43532E-01 + 4.48954E-02 9.91855E-01 -6.18479E-04 1.85133E-03 8.35691E-04 + 4.56368E+01 -3.59306E+01 2.95876E+01 -4.75021E+01 2.76331E+00 + -5.50516E+00 2.70780E+00 -5.54095E+00 1.34071E-01 3.79031E-02 + 1.43918E-01 4.51430E-02 9.91963E-01 -5.48900E-04 1.92891E-03 + 8.85382E-04 4.71563E+01 -3.49325E+01 3.24663E+01 -4.56118E+01 + 3.09494E+00 -5.28736E+00 3.04511E+00 -5.31947E+00 1.34493E-01 + 3.81799E-02 1.44222E-01 4.53425E-02 9.92077E-01 -4.74686E-04 + 2.00883E-03 9.37865E-04 4.86388E+01 -3.39338E+01 3.51878E+01 + -4.37780E+01 3.40839E+00 -5.07618E+00 3.36356E+00 -5.10488E+00 + 1.34865E-01 3.84309E-02 1.44465E-01 4.55059E-02 9.92186E-01 + -4.02011E-04 2.09106E-03 9.93273E-04 5.00724E+01 -3.29421E+01 + 3.77516E+01 -4.20045E+01 3.70452E+00 -4.87134E+00 3.66424E+00 + -4.89689E+00 1.35172E-01 3.86431E-02 1.44628E-01 4.56190E-02 + 9.92294E-01 -3.26248E-04 2.17565E-03 1.05178E-03 5.14614E+01 + -3.19549E+01 4.01728E+01 -4.02837E+01 3.98399E+00 -4.67271E+00 + 3.94778E+00 -4.69539E+00 1.35433E-01 3.88287E-02 1.44733E-01 + 4.56932E-02 9.92405E-01 -2.47392E-04 2.26257E-03 1.11356E-03 + 5.27997E+01 -3.09770E+01 4.24492E+01 -3.86206E+01 4.24769E+00 + -4.48004E+00 4.21501E+00 -4.50013E+00 1.35639E-01 3.89791E-02 + 1.44772E-01 4.57216E-02 9.92519E-01 -1.63897E-04 2.35183E-03 + 1.17878E-03 5.40891E+01 -3.00074E+01 4.45914E+01 -3.70098E+01 + 4.49617E+00 -4.29321E+00 4.46670E+00 -4.31087E+00 1.35790E-01 + 3.90925E-02 1.44746E-01 4.57023E-02 9.92628E-01 -8.34947E-05 + 2.44340E-03 1.24763E-03 5.53272E+01 -2.90487E+01 4.66032E+01 + -3.54520E+01 4.73020E+00 -4.11197E+00 4.70358E+00 -4.12746E+00 + 1.35894E-01 3.91727E-02 1.44664E-01 4.56393E-02 9.92733E-01 + 0.00000E+00 2.53728E-03 1.32033E-03 5.65135E+01 -2.81019E+01 + 4.84919E+01 -3.39445E+01 4.95048E+00 -3.93617E+00 4.92638E+00 + -3.94963E+00 1.35952E-01 3.92197E-02 1.44530E-01 4.55318E-02 + 9.92844E-01 8.81332E-05 2.63343E-03 1.39707E-03 5.76464E+01 + -2.71689E+01 5.02593E+01 -3.24890E+01 5.15759E+00 -3.76562E+00 + 5.13568E+00 -3.77727E+00 1.35959E-01 3.92251E-02 1.44338E-01 + 4.53739E-02 9.92949E-01 1.73174E-04 2.73183E-03 1.47810E-03 + 5.87274E+01 -2.62496E+01 5.19146E+01 -3.10813E+01 5.35204E+00 + -3.60024E+00 5.33206E+00 -3.61023E+00 1.35923E-01 3.91949E-02 + 1.44099E-01 4.51708E-02 9.93048E-01 2.59761E-04 2.83245E-03 + 1.56368E-03 5.97561E+01 -2.53449E+01 5.34605E+01 -2.97220E+01 + 5.53443E+00 -3.43985E+00 5.51620E+00 -3.44834E+00 1.35848E-01 + 3.91287E-02 1.43818E-01 4.49235E-02 9.93153E-01 3.49443E-04 + 2.93519E-03 1.65402E-03 6.07317E+01 -2.44571E+01 5.49025E+01 + -2.84095E+01 5.70547E+00 -3.28420E+00 5.68879E+00 -3.29125E+00 + 1.35729E-01 3.90206E-02 1.43490E-01 4.46254E-02 9.93249E-01 + 4.39120E-04 3.04003E-03 1.74944E-03 6.16557E+01 -2.35855E+01 + 5.62462E+01 -2.71420E+01 5.86548E+00 -3.13324E+00 5.85014E+00 + -3.13903E+00 1.35576E-01 3.88758E-02 1.43127E-01 4.42825E-02 + 9.93342E-01 5.25707E-04 3.14689E-03 1.85024E-03 6.25297E+01 + -2.27301E+01 5.74952E+01 -2.59195E+01 6.01508E+00 -2.98681E+00 + 6.00088E+00 -2.99148E+00 1.35386E-01 3.86901E-02 1.42730E-01 + 4.38936E-02 9.93435E-01 6.16933E-04 3.25564E-03 1.95669E-03 + 6.33508E+01 -2.18947E+01 5.86540E+01 -2.47405E+01 6.15471E+00 + -2.84478E+00 6.14152E+00 -2.84842E+00 1.35161E-01 3.84617E-02 + 1.42297E-01 4.34536E-02 9.93523E-01 7.06612E-04 3.36623E-03 + 2.06919E-03 6.41245E+01 -2.10756E+01 5.97278E+01 -2.36037E+01 + 6.28486E+00 -2.70698E+00 6.27261E+00 -2.70966E+00 1.34914E-01 + 3.82002E-02 1.41847E-01 4.29771E-02 9.93606E-01 7.94745E-04 + 3.47850E-03 2.18805E-03 6.48488E+01 -2.02760E+01 6.07204E+01 + -2.25081E+01 6.40599E+00 -2.57327E+00 6.39447E+00 -2.57512E+00 + 1.34632E-01 3.78884E-02 1.41364E-01 4.24443E-02 9.93687E-01 + 8.82879E-04 3.59232E-03 2.31369E-03 6.55259E+01 -1.94954E+01 + 6.16363E+01 -2.14520E+01 6.51836E+00 -2.44371E+00 6.50756E+00 + -2.44475E+00 1.34333E-01 3.75438E-02 1.40870E-01 4.18743E-02 + 9.93761E-01 9.71012E-04 3.70752E-03 2.44650E-03 6.61565E+01 + -1.87349E+01 6.24780E+01 -2.04365E+01 6.62266E+00 -2.31789E+00 + 6.61238E+00 -2.31828E+00 1.34010E-01 3.71540E-02 1.40358E-01 + 4.12562E-02 9.93832E-01 1.05605E-03 3.82394E-03 2.58695E-03 + 6.67419E+01 -1.79939E+01 6.32506E+01 -1.94590E+01 6.71904E+00 + -2.19592E+00 6.70930E+00 -2.19565E+00 1.33665E-01 3.67168E-02 + 1.39830E-01 4.05883E-02 9.93902E-01 1.14264E-03 3.94133E-03 + 2.73550E-03 6.72841E+01 -1.72727E+01 6.39579E+01 -1.85181E+01 + 6.80796E+00 -2.07764E+00 6.79862E+00 -2.07683E+00 1.33308E-01 + 3.62429E-02 1.39298E-01 3.98807E-02 9.93964E-01 1.22613E-03 + 4.05947E-03 2.89264E-03 6.77838E+01 -1.65720E+01 6.46024E+01 + -1.76146E+01 6.88975E+00 -1.96297E+00 6.88078E+00 -1.96163E+00 + 1.32939E-01 3.57251E-02 1.38762E-01 3.91295E-02 9.94021E-01 + 1.30654E-03 4.17808E-03 3.05896E-03 6.82433E+01 -1.58910E+01 + 6.51885E+01 -1.67458E+01 6.96488E+00 -1.85160E+00 6.95619E+00 + -1.84985E+00 1.32561E-01 3.51646E-02 1.38226E-01 3.83341E-02 + 9.94076E-01 1.38694E-03 4.29684E-03 3.23500E-03 6.86632E+01 + -1.52308E+01 6.57189E+01 -1.59120E+01 7.03349E+00 -1.74374E+00 + 7.02510E+00 -1.74151E+00 1.32176E-01 3.45598E-02 1.37692E-01 + 3.74951E-02 9.94128E-01 1.46734E-03 4.41539E-03 3.42135E-03 + 6.90447E+01 -1.45924E+01 6.61965E+01 -1.51128E+01 7.09600E+00 + -1.63913E+00 7.08780E+00 -1.63661E+00 1.31788E-01 3.39104E-02 + 1.37163E-01 3.66110E-02 9.94169E-01 1.54000E-03 4.53338E-03 + 3.61882E-03 6.93912E+01 -1.39726E+01 6.66252E+01 -1.43456E+01 + 7.15273E+00 -1.53765E+00 7.14471E+00 -1.53478E+00 1.31401E-01 + 3.32172E-02 1.36647E-01 3.56866E-02 9.94211E-01 1.61269E-03 + 4.65032E-03 3.82800E-03 6.97021E+01 -1.33753E+01 6.70075E+01 + -1.36112E+01 7.20386E+00 -1.43941E+00 7.19598E+00 -1.43627E+00 + 1.31020E-01 3.24866E-02 1.36146E-01 3.47251E-02 9.94249E-01 + 1.68537E-03 4.76569E-03 4.04968E-03 6.99805E+01 -1.27974E+01 + 6.73465E+01 -1.29078E+01 7.24983E+00 -1.34401E+00 7.24208E+00 + -1.34063E+00 1.30646E-01 3.17088E-02 1.35662E-01 3.37198E-02 + 9.94281E-01 1.75183E-03 4.87897E-03 4.28473E-03 7.02272E+01 + -1.22410E+01 6.76440E+01 -1.22369E+01 7.29077E+00 -1.25167E+00 + 7.28310E+00 -1.24809E+00 1.30276E-01 3.08758E-02 1.35194E-01 + 3.26638E-02 9.94309E-01 1.81679E-03 4.98947E-03 4.53399E-03 + 7.04442E+01 -1.17051E+01 6.79042E+01 -1.15941E+01 7.32699E+00 + -1.16218E+00 7.31941E+00 -1.15839E+00 1.29925E-01 3.00073E-02 + 1.34752E-01 3.15733E-02 9.94333E-01 1.87707E-03 5.09654E-03 + 4.79847E-03 7.06328E+01 -1.11901E+01 6.81283E+01 -1.09821E+01 + 7.35876E+00 -1.07544E+00 7.35124E+00 -1.07148E+00 1.29588E-01 + 2.90894E-02 1.34337E-01 3.04390E-02 9.94356E-01 1.93585E-03 + 5.19931E-03 5.07907E-03 7.07949E+01 -1.06956E+01 6.83196E+01 + -1.03983E+01 7.38631E+00 -9.91416E-01 7.37881E+00 -9.87371E-01 + 1.29273E-01 2.81281E-02 1.33952E-01 2.92653E-02 9.94373E-01 + 1.98994E-03 5.29696E-03 5.37705E-03 7.09317E+01 -1.02223E+01 + 6.84799E+01 -9.84387E+00 7.40983E+00 -9.10060E-01 7.40238E+00 + -9.05855E-01 1.28979E-01 2.71112E-02 1.33598E-01 2.80420E-02 + 9.94389E-01 2.04409E-03 5.38845E-03 5.69344E-03 7.10458E+01 + -9.76716E+00 6.86125E+01 -9.31493E+00 7.42957E+00 -8.31292E-01 + 7.42213E+00 -8.27025E-01 1.28717E-01 2.60635E-02 1.33285E-01 + 2.67931E-02 9.94400E-01 2.08735E-03 5.47269E-03 6.02959E-03 + 7.11373E+01 -9.33563E+00 6.87184E+01 -8.81570E+00 7.44575E+00 + -7.54994E-01 7.43833E+00 -7.50640E-01 1.28480E-01 2.49459E-02 + 1.33007E-01 2.54792E-02 9.94410E-01 2.13531E-03 5.54843E-03 + 6.38675E-03 7.12090E+01 -8.92207E+00 6.88008E+01 -8.34061E+00 + 7.45856E+00 -6.81176E-01 7.45115E+00 -6.76760E-01 1.28280E-01 + 2.37966E-02 1.32774E-01 2.41395E-02 9.94416E-01 2.17239E-03 + 5.61432E-03 6.76646E-03 7.12619E+01 -8.52992E+00 6.88611E+01 + -7.89362E+00 7.46819E+00 -6.09787E-01 7.46079E+00 -6.05346E-01 + 1.28116E-01 2.25796E-02 1.32585E-01 2.27397E-02 9.94422E-01 + 2.21417E-03 5.66882E-03 7.17028E-03 7.12979E+01 -8.15744E+00 + 6.89019E+01 -7.47048E+00 7.47486E+00 -5.40628E-01 7.46746E+00 + -5.36138E-01 1.27996E-01 2.13288E-02 1.32448E-01 2.13098E-02 + 9.94425E-01 2.24509E-03 5.71022E-03 7.59975E-03 7.13182E+01 + -7.80565E+00 6.89249E+01 -7.07397E+00 7.47867E+00 -4.74828E-01 + 7.47127E+00 -4.70326E-01 1.27919E-01 2.00069E-02 1.32361E-01 + 1.98175E-02 9.94426E-01 2.27290E-03 5.73667E-03 8.05677E-03 + 7.13246E+01 -7.47305E+00 6.89321E+01 -6.70059E+00 7.47976E+00 + -4.18243E-01 7.47236E+00 -4.13753E-01 1.27893E-01 1.86422E-02 + 1.32332E-01 1.82874E-02 9.94427E-01 2.30076E-03 5.74607E-03 + 8.54323E-03 7.13162E+01 -7.03538E+00 6.89230E+01 -6.22691E+00 + 7.47874E+00 -3.64999E-01 7.47134E+00 -3.60472E-01 1.27891E-01 + 1.87510E-02 1.32332E-01 1.82833E-02 9.94426E-01 2.32856E-03 + 5.73611E-03 9.06115E-03 7.12984E+01 -6.72692E+00 6.89033E+01 + -5.88677E+00 7.47578E+00 -3.13917E-01 7.46839E+00 -3.09427E-01 + 1.27965E-01 1.74690E-02 1.32414E-01 1.68552E-02 9.94425E-01 + 2.35333E-03 5.70423E-03 9.61280E-03 7.12712E+01 -6.44520E+00 + 6.88735E+01 -5.57677E+00 7.47105E+00 -2.64757E-01 7.46366E+00 + -2.60304E-01 1.28102E-01 1.60409E-02 1.32565E-01 1.52848E-02 + 9.94424E-01 2.36567E-03 5.64762E-03 1.02005E-02 7.12360E+01 + -6.18364E+00 6.88348E+01 -5.29025E+00 7.46470E+00 -2.17706E-01 + 7.45732E+00 -2.13278E-01 1.28305E-01 1.45409E-02 1.32786E-01 + 1.36476E-02 9.94422E-01 2.37652E-03 5.56316E-03 1.08267E-02 + 7.11937E+01 -5.93993E+00 6.87889E+01 -5.02578E+00 7.45688E+00 + -1.72629E-01 7.44950E+00 -1.68213E-01 1.28574E-01 1.29868E-02 + 1.33078E-01 1.19659E-02 9.94421E-01 2.38577E-03 5.44739E-03 + 1.14942E-02 7.11461E+01 -5.71557E+00 6.87374E+01 -4.78241E+00 + 7.44772E+00 -1.29411E-01 7.44035E+00 -1.25070E-01 1.28915E-01 + 1.13797E-02 1.33445E-01 1.02355E-02 9.94420E-01 2.39044E-03 + 5.29649E-03 1.22060E-02 7.10948E+01 -5.51066E+00 6.86822E+01 + -4.56207E+00 7.43737E+00 -8.81080E-02 7.43002E+00 -8.38034E-02 + 1.29340E-01 9.68107E-03 1.33900E-01 8.42015E-03 9.94419E-01 + 2.39195E-03 5.10633E-03 1.29651E-02 7.10403E+01 -5.32212E+00 + 6.86239E+01 -4.36045E+00 7.42595E+00 -4.86004E-02 7.41861E+00 + -4.43452E-02 1.29838E-01 7.95949E-03 1.34429E-01 6.58955E-03 + 9.94421E-01 2.38889E-03 4.87222E-03 1.37749E-02 7.09853E+01 + -5.15429E+00 6.85655E+01 -4.18233E+00 7.41361E+00 -1.09348E-02 + 7.40629E+00 -6.75383E-03 1.30439E-01 6.12568E-03 1.35063E-01 + 4.65215E-03 9.94423E-01 2.38116E-03 4.58914E-03 1.46390E-02 + 7.09302E+01 -5.00361E+00 6.85072E+01 -4.02316E+00 7.40047E+00 + 2.49617E-02 7.39316E+00 2.91178E-02 1.31128E-01 4.24351E-03 + 1.35788E-01 2.67259E-03 9.94424E-01 2.37804E-03 4.25144E-03 + 1.55612E-02 7.07619E+01 -4.58786E+00 6.83366E+01 -3.60145E+00 + 7.38661E+00 5.92135E-02 7.37933E+00 6.32955E-02 1.30475E-01 + 5.85703E-03 1.35136E-01 4.28531E-03 9.94421E-01 2.38425E-03 + 3.85298E-03 1.65457E-02 7.05220E+01 -4.04671E+00 6.80947E+01 + -3.05576E+00 7.37211E+00 9.19178E-02 7.36487E+00 9.59131E-02 + 1.28985E-01 9.21760E-03 1.33627E-01 7.68996E-03 9.94415E-01 + 2.39814E-03 3.38696E-03 1.75970E-02 7.04571E+01 -3.91198E+00 + 6.80285E+01 -2.91864E+00 7.35725E+00 1.22769E-01 7.35003E+00 + 1.26702E-01 1.29752E-01 7.62744E-03 1.34428E-01 6.02557E-03 + 9.94424E-01 2.38270E-03 2.84597E-03 1.87198E-02 7.03948E+01 + -3.79219E+00 6.79659E+01 -2.79808E+00 7.34202E+00 1.52021E-01 + 7.33484E+00 1.55905E-01 1.30610E-01 5.97795E-03 1.35323E-01 + 4.30652E-03 9.94431E-01 2.36567E-03 2.22182E-03 1.99193E-02 + 7.03370E+01 -3.68893E+00 6.79087E+01 -2.69579E+00 7.32652E+00 + 1.79743E-01 7.31940E+00 1.83516E-01 1.31570E-01 4.25980E-03 + 1.36319E-01 2.52457E-03 9.94443E-01 2.34405E-03 1.50562E-03 + 2.12006E-02 7.02839E+01 -3.60002E+00 6.78570E+01 -2.60927E+00 + 7.31088E+00 2.05940E-01 7.30377E+00 2.09675E-01 1.32625E-01 + 2.49477E-03 1.37408E-01 7.01583E-04 9.94457E-01 2.32237E-03 + 6.87305E-04 2.25703E-02 7.02392E+01 -3.52961E+00 6.78143E+01 + -2.54221E+00 7.29514E+00 2.30682E-01 7.28811E+00 2.34306E-01 + 1.33816E-01 6.21962E-04 1.38634E-01 -1.22614E-03 9.94474E-01 + 2.29612E-03 -2.43624E-04 2.40340E-02 7.02026E+01 -3.47534E+00 + 6.77807E+01 -2.49231E+00 7.27946E+00 2.53921E-01 7.27246E+00 + 2.57496E-01 1.35129E-01 -1.32470E-03 1.39982E-01 -3.22380E-03 + 9.94491E-01 2.26980E-03 -1.29923E-03 2.55989E-02 6.93000E+01 + -2.20991E+00 6.68826E+01 -1.23301E+00 7.26355E+00 2.76239E-01 + 7.25662E+00 2.79727E-01 1.25380E-01 1.23457E-02 1.30025E-01 + 1.07388E-02 9.94460E-01 2.31313E-03 -2.49265E-03 2.72724E-02 + 6.91817E+01 -2.05237E+00 6.67693E+01 -1.08220E+00 7.24810E+00 + 2.96797E-01 7.24121E+00 3.00212E-01 1.25646E-01 1.19928E-02 + 1.30304E-01 1.03665E-02 9.94482E-01 2.28529E-03 -3.83759E-03 + 2.90616E-02 6.91167E+01 -1.97021E+00 6.67105E+01 -1.00777E+00 + 7.23291E+00 3.16016E-01 7.22607E+00 3.19368E-01 1.26585E-01 + 1.08040E-02 1.31270E-01 9.14531E-03 9.94503E-01 2.25743E-03 + -5.35010E-03 3.09757E-02 6.90571E+01 -1.89820E+00 6.66584E+01 + -9.44844E-01 7.21800E+00 3.33993E-01 7.21127E+00 3.37234E-01 + 1.27594E-01 9.58687E-03 1.32301E-01 7.90034E-03 9.94531E-01 + 2.22345E-03 -7.04722E-03 3.30235E-02 6.90040E+01 -1.83702E+00 + 6.66132E+01 -8.92781E-01 7.20352E+00 3.50700E-01 7.19684E+00 + 3.53879E-01 1.28675E-01 8.34091E-03 1.33404E-01 6.62967E-03 + 9.94561E-01 2.18940E-03 -8.94726E-03 3.52141E-02 6.88952E+01 + -1.71691E+00 6.65135E+01 -7.82752E-01 7.18940E+00 3.66278E-01 + 7.18280E+00 3.69370E-01 1.29021E-01 7.95794E-03 1.33754E-01 + 6.24242E-03 9.94588E-01 2.15850E-03 -1.10710E-02 3.75586E-02 + 6.85063E+01 -1.30503E+00 6.61349E+01 -3.81772E-01 7.17568E+00 + 3.80807E-01 7.16915E+00 3.83826E-01 1.25757E-01 1.14147E-02 + 1.30423E-01 9.76997E-03 9.94605E-01 2.14147E-03 -1.34407E-02 + 4.00677E-02 6.84570E+01 -1.25478E+00 6.60963E+01 -3.42590E-01 + 7.16269E+00 3.94035E-01 7.15619E+00 3.97004E-01 1.26812E-01 + 1.03410E-02 1.31493E-01 8.68118E-03 9.94641E-01 2.10439E-03 + -1.60807E-02 4.27536E-02 6.84158E+01 -1.21459E+00 6.60678E+01 + -3.14680E-01 7.15023E+00 4.06227E-01 7.14385E+00 4.09084E-01 + 1.27960E-01 9.21760E-03 1.32652E-01 7.54694E-03 9.94681E-01 + 2.06571E-03 -1.90179E-02 4.56289E-02 6.83814E+01 -1.18214E+00 + 6.60464E+01 -2.94497E-01 7.13831E+00 4.17476E-01 7.13200E+00 + 4.20284E-01 1.29160E-01 8.08512E-03 1.33862E-01 6.40516E-03 + 9.94718E-01 2.03017E-03 -2.22812E-02 4.87074E-02 6.83814E+01 + -1.18214E+00 6.60464E+01 -2.94497E-01 7.13831E+00 4.17476E-01 + 7.13200E+00 4.20284E-01 1.29160E-01 8.08512E-03 1.33862E-01 + 6.40516E-03 9.94718E-01 2.03017E-03 -2.22812E-02 4.87074E-02 + ECHO READ:EBINDA(IM),$LGN(GE(IM)/0,1/) + 2.96878E-02 1.69413E+02 2.69387E+01 + ECHO READ:($LGN(GMFP,GBR1,GBR2(I,IM)/0,1/),I=1,NGE) + 1.16570E-03 1.76462E-04 0.00000E+00 0.00000E+00 2.03558E-02 + 3.27548E-03 1.16570E-03 1.76462E-04 0.00000E+00 0.00000E+00 + 2.03558E-02 3.27548E-03 1.27011E-03 1.93363E-04 0.00000E+00 + 0.00000E+00 8.35115E-03 1.33219E-03 1.38410E-03 2.11928E-04 + 0.00000E+00 0.00000E+00 -5.73241E-03 -9.61418E-04 1.50630E-03 + 2.31951E-04 0.00000E+00 0.00000E+00 1.36109E-03 2.00833E-04 + 1.64082E-03 2.54126E-04 0.00000E+00 0.00000E+00 -6.77843E-03 + -1.14096E-03 1.78447E-03 2.77952E-04 0.00000E+00 0.00000E+00 + 9.60456E-03 1.57640E-03 1.94362E-03 3.04514E-04 0.00000E+00 + 0.00000E+00 1.57229E-03 2.35872E-04 2.11444E-03 3.33200E-04 + 0.00000E+00 0.00000E+00 1.11100E-02 1.83756E-03 2.30454E-03 + 3.65324E-04 0.00000E+00 0.00000E+00 -7.61174E-03 -1.32615E-03 + 2.50621E-03 3.99619E-04 0.00000E+00 0.00000E+00 7.01569E-03 + 1.16129E-03 2.73679E-03 4.39078E-04 0.00000E+00 0.00000E+00 + 2.23251E-03 3.42727E-04 3.08275E-03 4.98663E-04 0.00000E+00 + 0.00000E+00 8.20923E-03 1.37208E-03 3.36811E-03 5.48125E-04 + 0.00000E+00 0.00000E+00 2.97454E-03 4.64724E-04 3.67540E-03 + 6.01734E-04 0.00000E+00 0.00000E+00 1.58261E-02 2.70679E-03 + 4.01874E-03 6.62024E-04 0.00000E+00 0.00000E+00 -2.55770E-03 + -5.21327E-04 -1.78006E-02 -3.19449E-03 0.00000E+00 0.00000E+00 + -2.67677E-02 -4.80039E-03 -2.85728E-03 -5.35852E-04 0.00000E+00 + 0.00000E+00 -1.95894E-03 -3.86537E-04 2.15743E-03 3.62270E-04 + 0.00000E+00 0.00000E+00 5.16836E-03 8.89946E-04 -2.46828E-04 + -7.12089E-05 0.00000E+00 0.00000E+00 -4.61632E-03 -8.74198E-04 + 2.26038E-03 3.83877E-04 0.00000E+00 0.00000E+00 5.05742E-03 + 8.81695E-04 -5.61891E-03 -1.05600E-03 0.00000E+00 0.00000E+00 + -7.99268E-03 -1.50311E-03 1.86703E-03 3.21339E-04 0.00000E+00 + 0.00000E+00 2.89420E-03 4.99970E-04 -1.04536E-03 -2.18197E-04 + 0.00000E+00 0.00000E+00 -1.44306E-03 -3.03532E-04 1.91013E-03 + 3.33115E-04 0.00000E+00 0.00000E+00 4.01614E-03 7.14821E-04 + 4.50968E-04 5.90269E-05 0.00000E+00 0.00000E+00 -4.23734E-04 + -1.19163E-04 2.13396E-03 3.77380E-04 0.00000E+00 0.00000E+00 + 1.98979E-03 3.37375E-04 2.33348E-03 4.15387E-04 0.00000E+00 + 0.00000E+00 3.31230E-03 5.89308E-04 2.55162E-03 4.57238E-04 + 0.00000E+00 0.00000E+00 4.21179E-03 7.61878E-04 2.79025E-03 + 5.03348E-04 0.00000E+00 0.00000E+00 3.89297E-03 7.00272E-04 + 3.07343E-03 5.58462E-04 0.00000E+00 0.00000E+00 4.22491E-03 + 7.64876E-04 3.39903E-03 6.22292E-04 0.00000E+00 0.00000E+00 + 4.60309E-03 8.39015E-04 3.72240E-03 6.86151E-04 0.00000E+00 + 0.00000E+00 6.54230E-03 1.22197E-03 4.07718E-03 7.56729E-04 + 0.00000E+00 0.00000E+00 5.45614E-03 1.00589E-03 4.46483E-03 + 8.34422E-04 0.00000E+00 0.00000E+00 6.75269E-03 1.26574E-03 + 4.88961E-03 9.20193E-04 0.00000E+00 0.00000E+00 6.38154E-03 + 1.19080E-03 5.35385E-03 1.01464E-03 0.00000E+00 0.00000E+00 + 7.84035E-03 1.48758E-03 5.86215E-03 1.11884E-03 0.00000E+00 + 0.00000E+00 8.47619E-03 1.61793E-03 6.50489E-03 1.25160E-03 + 0.00000E+00 0.00000E+00 8.73814E-03 1.67204E-03 7.18023E-03 + 1.39218E-03 0.00000E+00 0.00000E+00 1.06449E-02 2.06896E-03 + 7.87727E-03 1.53841E-03 0.00000E+00 0.00000E+00 1.03267E-02 + 2.00219E-03 8.63906E-03 1.69947E-03 0.00000E+00 0.00000E+00 + 1.37004E-02 2.71549E-03 9.47741E-03 1.87812E-03 0.00000E+00 + 0.00000E+00 1.21843E-02 2.39240E-03 1.03927E-02 2.07473E-03 + 0.00000E+00 0.00000E+00 1.52687E-02 3.05493E-03 1.15128E-02 + 2.31727E-03 0.00000E+00 0.00000E+00 1.67134E-02 3.36774E-03 + 1.27079E-02 2.57812E-03 0.00000E+00 0.00000E+00 1.82224E-02 + 3.69713E-03 1.39574E-02 2.85308E-03 0.00000E+00 0.00000E+00 + 1.89111E-02 3.84869E-03 1.53254E-02 3.15661E-03 0.00000E+00 + 0.00000E+00 2.22403E-02 4.58736E-03 1.68297E-02 3.49317E-03 + 0.00000E+00 0.00000E+00 2.27084E-02 4.69209E-03 1.84768E-02 + 3.86473E-03 0.00000E+00 0.00000E+00 2.60534E-02 5.44669E-03 + 2.02855E-02 4.27620E-03 0.00000E+00 0.00000E+00 2.77003E-02 + 5.82135E-03 2.22665E-02 4.73071E-03 0.00000E+00 0.00000E+00 + 3.10868E-02 6.59833E-03 2.44381E-02 5.23323E-03 0.00000E+00 + 0.00000E+00 3.48503E-02 7.46922E-03 2.68233E-02 5.78996E-03 + 0.00000E+00 0.00000E+00 3.65287E-02 7.86099E-03 2.94308E-02 + 6.40390E-03 0.00000E+00 0.00000E+00 4.14890E-02 9.02888E-03 + 3.26570E-02 7.17022E-03 0.00000E+00 0.00000E+00 4.47583E-02 + 9.80545E-03 3.60219E-02 7.97657E-03 0.00000E+00 0.00000E+00 + 4.94359E-02 1.09264E-02 3.95751E-02 8.83572E-03 0.00000E+00 + 0.00000E+00 5.43587E-02 1.21167E-02 4.34719E-02 9.78645E-03 + 0.00000E+00 0.00000E+00 5.97387E-02 1.34293E-02 4.77463E-02 + 1.08388E-02 0.00000E+00 0.00000E+00 6.51774E-02 1.47683E-02 + 5.24329E-02 1.20034E-02 0.00000E+00 0.00000E+00 7.10700E-02 + 1.62325E-02 5.75637E-02 1.32901E-02 0.00000E+00 0.00000E+00 + 7.84238E-02 1.80768E-02 6.31919E-02 1.47149E-02 0.00000E+00 + 0.00000E+00 8.49377E-02 1.97258E-02 6.94152E-02 1.63053E-02 + 0.00000E+00 0.00000E+00 9.36538E-02 2.19533E-02 7.61764E-02 + 1.80497E-02 0.00000E+00 0.00000E+00 1.01958E-01 2.40958E-02 + 8.35699E-02 1.99757E-02 0.00000E+00 0.00000E+00 1.11531E-01 + 2.65895E-02 9.16540E-02 2.21021E-02 0.00000E+00 0.00000E+00 + 1.22246E-01 2.94080E-02 1.00492E-01 2.44498E-02 0.00000E+00 + 0.00000E+00 1.33905E-01 3.25049E-02 1.10159E-01 2.70432E-02 + 0.00000E+00 0.00000E+00 1.45503E-01 3.56164E-02 1.20707E-01 + 2.99014E-02 0.00000E+00 0.00000E+00 1.59119E-01 3.93061E-02 + -7.27922E-01 -2.02394E-01 0.00000E+00 0.00000E+00 -9.87100E-01 + -2.74448E-01 4.38266E-02 1.10256E-02 0.00000E+00 0.00000E+00 + 5.71561E-02 1.43301E-02 4.78813E-02 1.21585E-02 0.00000E+00 + 0.00000E+00 6.22455E-02 1.57521E-02 5.22962E-02 1.34050E-02 + 0.00000E+00 0.00000E+00 6.74503E-02 1.72216E-02 5.69786E-02 + 1.47410E-02 0.00000E+00 0.00000E+00 7.34944E-02 1.89461E-02 + -2.23110E-01 -6.60314E-02 0.00000E+00 0.00000E+00 -2.98342E-01 + -8.82846E-02 3.59525E-02 9.48591E-03 0.00000E+00 0.00000E+00 + 4.58239E-02 1.20405E-02 3.92588E-02 1.04602E-02 0.00000E+00 + 0.00000E+00 4.97845E-02 1.32076E-02 4.28617E-02 1.15337E-02 + 0.00000E+00 0.00000E+00 5.40093E-02 1.44664E-02 4.67859E-02 + 1.27160E-02 0.00000E+00 0.00000E+00 5.87169E-02 1.58847E-02 + 5.10599E-02 1.40183E-02 0.00000E+00 0.00000E+00 6.36365E-02 + 1.73837E-02 5.60409E-02 1.55533E-02 0.00000E+00 0.00000E+00 + 6.95267E-02 1.91989E-02 6.20131E-02 1.74151E-02 0.00000E+00 + 0.00000E+00 7.65246E-02 2.13804E-02 6.77671E-02 1.92298E-02 + 0.00000E+00 0.00000E+00 8.31036E-02 2.34554E-02 7.40350E-02 + 2.12301E-02 0.00000E+00 0.00000E+00 9.03287E-02 2.57611E-02 + 8.08625E-02 2.34351E-02 0.00000E+00 0.00000E+00 9.78428E-02 + 2.81879E-02 8.82918E-02 2.58635E-02 0.00000E+00 0.00000E+00 + 1.06209E-01 3.09226E-02 9.69113E-02 2.87156E-02 0.00000E+00 + 0.00000E+00 1.15854E-01 3.41140E-02 1.07262E-01 3.21832E-02 + 0.00000E+00 0.00000E+00 1.27402E-01 3.79825E-02 1.17234E-01 + 3.55659E-02 0.00000E+00 0.00000E+00 1.38301E-01 4.16798E-02 + 1.28083E-01 3.92931E-02 0.00000E+00 0.00000E+00 1.49983E-01 + 4.56930E-02 1.39879E-01 4.33978E-02 0.00000E+00 0.00000E+00 + 1.62533E-01 5.00603E-02 1.53253E-01 4.81125E-02 0.00000E+00 + 0.00000E+00 1.76833E-01 5.51017E-02 1.68292E-01 5.34848E-02 + 0.00000E+00 0.00000E+00 1.92750E-01 6.07875E-02 1.83709E-01 + 5.90659E-02 0.00000E+00 0.00000E+00 2.08664E-01 6.65483E-02 + 2.00428E-01 6.52010E-02 0.00000E+00 0.00000E+00 2.25786E-01 + 7.28313E-02 2.18535E-01 7.19369E-02 0.00000E+00 0.00000E+00 + 2.44182E-01 7.96748E-02 2.38127E-01 7.93274E-02 0.00000E+00 + 0.00000E+00 2.63768E-01 8.70631E-02 2.59295E-01 8.74261E-02 + 0.00000E+00 0.00000E+00 2.84676E-01 9.50618E-02 2.82135E-01 + 9.62900E-02 0.00000E+00 0.00000E+00 3.07026E-01 1.03736E-01 + 3.10298E-01 1.07380E-01 0.00000E+00 0.00000E+00 3.34824E-01 + 1.14682E-01 3.39767E-01 1.19155E-01 0.00000E+00 0.00000E+00 + 3.63234E-01 1.26034E-01 3.69409E-01 1.31179E-01 0.00000E+00 + 0.00000E+00 3.91226E-01 1.37389E-01 4.01232E-01 1.44284E-01 + 0.00000E+00 0.00000E+00 4.20787E-01 1.49562E-01 4.35322E-01 + 1.58541E-01 0.00000E+00 0.00000E+00 4.51929E-01 1.62587E-01 + 4.71753E-01 1.74018E-01 0.00000E+00 0.00000E+00 4.84683E-01 + 1.76501E-01 5.12777E-01 1.91724E-01 0.00000E+00 0.00000E+00 + 5.21545E-01 1.92411E-01 5.55962E-01 2.10667E-01 0.00000E+00 + 0.00000E+00 5.59431E-01 2.09029E-01 6.00455E-01 2.30507E-01 + 0.00000E+00 0.00000E+00 5.97687E-01 2.26088E-01 6.47516E-01 + 2.51845E-01 0.00000E+00 0.00000E+00 6.37243E-01 2.44023E-01 + 6.97107E-01 2.74715E-01 0.00000E+00 0.00000E+00 6.78223E-01 + 2.62922E-01 7.49181E-01 2.99148E-01 0.00000E+00 0.00000E+00 + 7.20345E-01 2.82686E-01 8.03644E-01 3.25156E-01 0.00000E+00 + 0.00000E+00 7.63447E-01 3.03268E-01 8.60368E-01 3.52731E-01 + 0.00000E+00 0.00000E+00 8.07363E-01 3.24618E-01 9.19166E-01 + 3.81841E-01 0.00000E+00 0.00000E+00 8.51825E-01 3.46629E-01 + 9.79855E-01 4.12449E-01 0.00000E+00 0.00000E+00 8.96400E-01 + 3.69110E-01 1.04213E+00 4.44455E-01 0.00000E+00 0.00000E+00 + 9.40990E-01 3.92029E-01 1.10470E+00 4.77240E-01 0.00000E+00 + 0.00000E+00 9.84067E-01 4.14599E-01 1.16861E+00 5.11389E-01 + 0.00000E+00 0.00000E+00 1.02679E+00 4.37431E-01 1.23347E+00 + 5.46750E-01 0.00000E+00 0.00000E+00 1.06868E+00 4.60267E-01 + 1.29842E+00 5.82891E-01 0.00000E+00 0.00000E+00 1.10900E+00 + 4.82701E-01 1.36304E+00 6.19607E-01 0.00000E+00 0.00000E+00 + 1.14723E+00 5.04423E-01 1.42680E+00 6.56612E-01 0.00000E+00 + 0.00000E+00 1.18311E+00 5.25246E-01 1.48921E+00 6.93633E-01 + 0.00000E+00 0.00000E+00 1.21621E+00 5.44883E-01 1.54982E+00 + 7.30396E-01 0.00000E+00 0.00000E+00 1.24612E+00 5.63024E-01 + 1.59324E+00 7.57340E-01 0.00000E+00 0.00000E+00 1.25928E+00 + 5.71192E-01 1.64677E+00 7.91339E-01 0.00000E+00 0.00000E+00 + 1.28063E+00 5.84748E-01 1.69814E+00 8.24755E-01 0.00000E+00 + 0.00000E+00 1.29898E+00 5.96687E-01 1.74613E+00 8.56743E-01 + 0.00000E+00 0.00000E+00 1.31354E+00 6.06392E-01 1.79052E+00 + 8.87081E-01 0.00000E+00 0.00000E+00 1.32418E+00 6.13661E-01 + 1.83101E+00 9.15481E-01 0.00000E+00 0.00000E+00 1.33097E+00 + 6.18423E-01 1.86755E+00 9.41786E-01 0.00000E+00 0.00000E+00 + 1.33396E+00 6.20576E-01 1.90001E+00 9.65799E-01 0.00000E+00 + 0.00000E+00 1.33332E+00 6.20102E-01 1.92841E+00 9.87404E-01 + 0.00000E+00 0.00000E+00 1.32928E+00 6.17029E-01 1.95284E+00 + 1.00653E+00 0.00000E+00 0.00000E+00 1.32209E+00 6.11403E-01 + 1.97207E+00 1.02203E+00 0.00000E+00 0.00000E+00 1.31099E+00 + 6.02452E-01 1.92400E+00 9.82079E-01 0.00000E+00 0.00000E+00 + 1.24787E+00 5.49997E-01 1.93853E+00 9.94542E-01 0.00000E+00 + 0.00000E+00 1.23534E+00 5.39246E-01 1.95059E+00 1.00522E+00 + 0.00000E+00 0.00000E+00 1.22143E+00 5.26934E-01 1.96040E+00 + 1.01421E+00 0.00000E+00 0.00000E+00 1.20650E+00 5.13253E-01 + 1.96827E+00 1.02167E+00 0.00000E+00 0.00000E+00 1.19075E+00 + 4.98325E-01 1.97440E+00 1.02770E+00 0.00000E+00 0.00000E+00 + 1.17451E+00 4.82365E-01 1.97907E+00 1.03245E+00 0.00000E+00 + 0.00000E+00 1.15802E+00 4.65549E-01 1.97686E+00 1.03012E+00 + 0.00000E+00 0.00000E+00 1.13750E+00 4.43795E-01 1.96529E+00 + 1.01734E+00 0.00000E+00 0.00000E+00 1.11153E+00 4.15137E-01 + 1.96807E+00 1.02055E+00 0.00000E+00 0.00000E+00 1.09664E+00 + 3.98011E-01 1.97031E+00 1.02323E+00 0.00000E+00 0.00000E+00 + 1.08226E+00 3.80721E-01 1.97220E+00 1.02562E+00 0.00000E+00 + 0.00000E+00 1.06847E+00 3.63378E-01 1.97384E+00 1.02778E+00 + 0.00000E+00 0.00000E+00 1.05538E+00 3.46104E-01 1.97158E+00 + 1.02464E+00 0.00000E+00 0.00000E+00 1.04059E+00 3.25571E-01 + 1.96332E+00 1.01256E+00 0.00000E+00 0.00000E+00 1.02295E+00 + 2.99771E-01 1.96584E+00 1.01646E+00 0.00000E+00 0.00000E+00 + 1.01310E+00 2.84535E-01 1.96841E+00 1.02068E+00 0.00000E+00 + 0.00000E+00 1.00404E+00 2.69663E-01 1.97110E+00 1.02538E+00 + 0.00000E+00 0.00000E+00 9.95762E-01 2.55193E-01 1.96723E+00 + 1.01815E+00 0.00000E+00 0.00000E+00 9.84311E-01 2.33792E-01 + 1.95941E+00 1.00244E+00 0.00000E+00 0.00000E+00 9.71414E-01 + 2.07891E-01 1.96361E+00 1.01156E+00 0.00000E+00 0.00000E+00 + 9.66397E-01 1.97000E-01 1.96778E+00 1.02139E+00 0.00000E+00 + 0.00000E+00 9.61951E-01 1.86508E-01 1.97185E+00 1.03192E+00 + 0.00000E+00 0.00000E+00 9.58051E-01 1.76419E-01 1.97582E+00 + 1.04329E+00 0.00000E+00 0.00000E+00 9.54669E-01 1.66743E-01 + 1.97962E+00 1.05546E+00 0.00000E+00 0.00000E+00 9.51776E-01 + 1.57481E-01 1.98322E+00 1.06854E+00 0.00000E+00 0.00000E+00 + 9.49340E-01 1.48626E-01 1.98288E+00 1.06712E+00 0.00000E+00 + 0.00000E+00 9.45424E-01 1.32176E-01 1.98410E+00 1.07318E+00 + 0.00000E+00 0.00000E+00 9.42952E-01 1.19876E-01 1.98701E+00 + 1.09092E+00 0.00000E+00 0.00000E+00 9.41916E-01 1.13555E-01 + 1.98937E+00 1.10960E+00 0.00000E+00 0.00000E+00 9.41152E-01 + 1.07521E-01 1.99113E+00 1.12923E+00 0.00000E+00 0.00000E+00 + 9.40637E-01 1.01772E-01 1.99222E+00 1.14988E+00 0.00000E+00 + 0.00000E+00 9.40349E-01 9.62890E-02 1.99234E+00 1.15779E+00 + 0.00000E+00 0.00000E+00 9.40170E-01 8.46495E-02 1.99369E+00 + 1.09565E+00 -8.06911E-04 3.70547E-02 9.40314E-01 7.80604E-02 + 1.99258E+00 1.11448E+00 -8.93760E-04 3.85293E-02 9.40539E-01 + 7.42367E-02 1.99071E+00 1.13397E+00 -1.04049E-03 4.00574E-02 + 9.40889E-01 7.05886E-02 1.98803E+00 1.15413E+00 -1.24939E-03 + 4.16264E-02 9.41352E-01 6.71171E-02 1.98449E+00 1.17492E+00 + -1.52376E-03 4.32379E-02 9.41917E-01 6.37950E-02 1.98003E+00 + 1.19643E+00 -1.86717E-03 4.48938E-02 9.42574E-01 6.06318E-02 + 1.97461E+00 1.21858E+00 -2.28335E-03 4.65959E-02 9.43310E-01 + 5.76180E-02 1.96818E+00 1.24141E+00 -2.77623E-03 4.83461E-02 + 9.44116E-01 5.47534E-02 1.96069E+00 1.26492E+00 -3.34995E-03 + 5.01460E-02 9.44989E-01 5.20158E-02 1.95209E+00 1.28907E+00 + -4.00880E-03 5.19974E-02 9.45915E-01 4.94178E-02 2.01175E+00 + 1.13726E+00 -3.01144E-02 1.18426E-01 9.47794E-01 4.46345E-02 + 2.04524E+00 1.05938E+00 -4.59458E-02 1.55233E-01 9.49157E-01 + 4.14649E-02 2.04123E+00 1.06798E+00 -4.81144E-02 1.59875E-01 + 9.50017E-01 3.96243E-02 2.03703E+00 1.07631E+00 -5.04813E-02 + 1.64568E-01 9.50904E-01 3.78666E-02 2.03272E+00 1.08426E+00 + -5.30479E-02 1.69308E-01 9.51817E-01 3.61790E-02 2.02834E+00 + 1.09184E+00 -5.58159E-02 1.74092E-01 9.52750E-01 3.45669E-02 + 2.02391E+00 1.09903E+00 -5.87864E-02 1.78916E-01 9.53699E-01 + 3.30271E-02 2.01953E+00 1.10575E+00 -6.19588E-02 1.83775E-01 + 9.54665E-01 3.15466E-02 2.19371E+00 8.53287E-01 -1.21757E-01 + 2.70445E-01 9.56454E-01 2.89535E-02 2.21653E+00 8.21912E-01 + -1.31274E-01 2.83534E-01 9.57398E-01 2.76545E-02 2.22303E+00 + 8.13408E-01 -1.35347E-01 2.88864E-01 9.58269E-01 2.65161E-02 + 2.23052E+00 8.04057E-01 -1.39522E-01 2.94073E-01 9.59148E-01 + 2.54194E-02 2.23912E+00 7.93793E-01 -1.43779E-01 2.99151E-01 + 9.60032E-01 2.43661E-02 2.24886E+00 7.82678E-01 -1.48101E-01 + 3.04087E-01 9.60917E-01 2.33526E-02 2.25982E+00 7.70665E-01 + -1.52463E-01 3.08866E-01 9.61806E-01 2.23799E-02 2.27210E+00 + 7.57730E-01 -1.56841E-01 3.13475E-01 9.62695E-01 2.14438E-02 + 2.28575E+00 7.43902E-01 -1.61213E-01 3.17905E-01 9.63588E-01 + 2.05382E-02 2.30085E+00 7.29162E-01 -1.65549E-01 3.22140E-01 + 9.64476E-01 1.96711E-02 2.31744E+00 7.13522E-01 -1.69825E-01 + 3.26169E-01 9.65362E-01 1.88377E-02 2.60222E+00 4.54232E-01 + -2.40197E-01 3.90243E-01 9.67071E-01 1.72802E-02 2.60222E+00 + 4.54232E-01 -2.40197E-01 3.90243E-01 9.67071E-01 1.72802E-02 + DATA FOR MEDIUM # 5, WHICH IS: MEDIUM=LEAD-3MEV-10KEV-02KEV ,STERNCID=LEAD-3MEV-10KEV-02KEV + ELEM,RHO= 11.34 ,NE= 1,COMPOSITION IS : + ASYM=PB,Z=82.,A= 207.190,PZ= 1.00000E+00,RHOZ= 2.07190E+02 + ECHO READ:$LGN(RLC,AE,AP,UE,UP(IM)) + 5.61722E-01 5.21000E-01 2.00000E-03 3.51100E+00 3.00200E+00 + ECHO READ:$LGN(MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE(IM)),IRAYL + 0 200 0 150 0 0 0 0 + ECHO READ:($LGN(DL(I,IM)/1,2,3,4,5,6/),I=1,6) + 9.99978E-01 -2.54427E-01 5.83850E-02 9.95017E-01 -2.73094E-01 + 9.52000E-01 1.00027E+00 -2.16315E-01 4.17018E-02 1.01715E+00 + -2.79168E-01 9.52000E-01 1.00042E+00 -1.96617E-01 3.01774E-02 + 1.02859E+00 -2.82308E-01 9.52000E-01 9.99976E-01 -2.78543E-01 + 6.39190E-02 9.94545E-01 -2.98980E-01 9.52000E-01 1.00029E+00 + -2.37319E-01 4.57509E-02 1.01881E+00 -3.06275E-01 9.52000E-01 + 1.00046E+00 -2.15944E-01 3.31437E-02 1.03140E+00 -3.10058E-01 + 9.52000E-01 + ECHO READ:DELCM(IM),($LGN(ALPHI,BPAR, DELPOS(I,IM)),I=1,2) + 1.59966E+01 9.44751E-01 8.53032E-01 2.33006E+00 9.46747E-01 + 8.52630E-01 1.68084E+00 + ECHO READ:$LGN(XR0,TEFF0,BLCC,XCC(IM)) + 2.95540E-01 5.91168E-04 3.38378E+04 5.73000E+00 + ECHO READ:$LGN(EKE(IM)/0,1/) + 1.21501E+02 2.59409E+01 + ECHO READ:($LGN(ESIG,PSIG,EDEDX,PDEDX,EBR1,PBR1,PBR2, TMXS(I,IM)/0,1/),I=1,NEKE) + 1.38378E+01 2.18057E+00 4.15774E+03 9.01448E+02 -9.28571E+01 + -3.18232E+01 -1.73032E+02 -5.14711E+01 1.00000E+00 0.00000E+00 + -6.80463E+01 -1.49172E+01 3.60754E+01 7.68879E+00 3.38669E-05 + 6.47600E-06 1.38378E+01 2.18057E+00 4.15774E+03 9.01448E+02 + -9.28571E+01 -3.18232E+01 -1.73032E+02 -5.14711E+01 1.00000E+00 + 0.00000E+00 -6.80463E+01 -1.49172E+01 3.60754E+01 7.68879E+00 + 3.38669E-05 6.47600E-06 1.37859E+01 2.16920E+00 3.70100E+03 + 8.01462E+02 -9.05610E+01 -3.13206E+01 -1.65792E+02 -4.98861E+01 + 1.00000E+00 0.00000E+00 -4.80270E+00 -1.07266E+00 3.49096E+00 + 5.55774E-01 3.58038E-05 6.89999E-06 1.37311E+01 2.15710E+00 + 3.28299E+03 7.09179E+02 -8.82330E+01 -3.08067E+01 -1.58765E+02 + -4.83347E+01 1.00000E+00 0.00000E+00 -1.67899E+00 -3.83037E-01 + 1.88220E+00 2.00610E-01 3.78648E-05 7.35502E-06 1.36789E+01 + 2.14548E+00 2.90617E+03 6.25273E+02 -8.59188E+01 -3.02913E+01 + -1.52040E+02 -4.68374E+01 1.00000E+00 0.00000E+00 -8.27818E-01 + -1.93510E-01 1.44437E+00 1.03118E-01 4.00554E-05 7.84278E-06 + 1.36228E+01 2.13287E+00 2.56505E+03 5.48660E+02 -8.35381E+01 + -2.97566E+01 -1.45475E+02 -4.53629E+01 1.00000E+00 0.00000E+00 + -4.75735E-01 -1.14434E-01 1.26371E+00 6.25425E-02 4.23621E-05 + 8.36087E-06 1.35690E+01 2.12069E+00 2.25801E+03 4.79099E+02 + -8.12207E+01 -2.92316E+01 -1.39251E+02 -4.39528E+01 1.00000E+00 + 0.00000E+00 -2.96636E-01 -7.38577E-02 1.17221E+00 4.18120E-02 + 4.48076E-05 8.91492E-06 1.35139E+01 2.10810E+00 1.98094E+03 + 4.15773E+02 -7.88855E+01 -2.86980E+01 -1.33230E+02 -4.25766E+01 + 1.00000E+00 0.00000E+00 -1.92925E-01 -5.01544E-02 1.11957E+00 + 2.97815E-02 4.73932E-05 9.50586E-06 1.34572E+01 2.09502E+00 + 1.73181E+03 3.58329E+02 -7.65393E+01 -2.81569E+01 -1.27408E+02 + -4.12342E+01 1.00000E+00 0.00000E+00 -1.27385E-01 -3.50418E-02 + 1.08661E+00 2.21832E-02 5.01236E-05 1.01354E-05 1.34029E+01 + 2.08239E+00 1.50790E+03 3.06235E+02 -7.42349E+01 -2.76208E+01 + -1.21849E+02 -3.99410E+01 1.00000E+00 0.00000E+00 -8.31078E-02 + -2.47408E-02 1.06464E+00 1.70717E-02 5.30194E-05 1.08091E-05 + 1.33482E+01 2.06955E+00 1.30689E+03 2.59046E+02 -7.19446E+01 + -2.70832E+01 -1.16497E+02 -3.86844E+01 1.00000E+00 0.00000E+00 + -5.16170E-02 -1.73480E-02 1.04930E+00 1.34688E-02 5.60775E-05 + 1.15270E-05 1.32921E+01 2.05626E+00 1.12645E+03 2.16301E+02 + -6.96718E+01 -2.65448E+01 -1.11343E+02 -3.74634E+01 1.00000E+00 + 0.00000E+00 -2.82332E-02 -1.18084E-02 1.03815E+00 1.08296E-02 + 5.93090E-05 1.22926E-05 1.32377E+01 2.04324E+00 9.65164E+02 + 1.77739E+02 -6.74227E+01 -2.60070E+01 -1.06389E+02 -3.62789E+01 + 1.00000E+00 0.00000E+00 -1.02614E-02 -7.51167E-03 1.02984E+00 + 8.84121E-03 6.27297E-05 1.31105E-05 1.31836E+01 2.03019E+00 + 8.20988E+02 1.42948E+02 -6.52144E+01 -2.54741E+01 -1.01644E+02 + -3.51341E+01 1.00000E+00 0.00000E+00 4.00231E-03 -4.06971E-03 + 1.02344E+00 7.29801E-03 6.63457E-05 1.39830E-05 1.31385E+01 + 2.01920E+00 6.92275E+02 1.11597E+02 -6.30148E+01 -2.49383E+01 + -9.70569E+01 -3.40168E+01 1.00000E+00 0.00000E+00 1.56814E-02 + -1.22493E-03 1.01843E+00 6.07814E-03 7.01635E-05 1.49129E-05 + 1.30985E+01 2.00936E+00 5.77772E+02 8.34425E+01 -6.08591E+01 + -2.44083E+01 -9.26632E+01 -3.29364E+01 1.00000E+00 0.00000E+00 + 2.54630E-02 1.18018E-03 1.01446E+00 5.09933E-03 7.42059E-05 + 1.59069E-05 1.30381E+01 1.99438E+00 4.75954E+02 5.81679E+01 + -5.87355E+01 -2.38811E+01 -8.84405E+01 -3.18882E+01 1.00000E+00 + 0.00000E+00 3.37550E-02 3.23853E-03 1.01122E+00 4.29536E-03 + 7.84667E-05 1.69646E-05 1.29761E+01 1.97885E+00 3.85628E+02 + 3.55290E+01 -5.66634E+01 -2.33618E+01 -8.44037E+01 -3.08763E+01 + 1.00000E+00 0.00000E+00 4.09856E-02 5.05075E-03 1.00855E+00 + 3.62892E-03 8.29758E-05 1.80947E-05 1.29222E+01 1.96520E+00 + 3.05912E+02 1.53545E+01 -5.46043E+01 -2.28407E+01 -8.04961E+01 + -2.98876E+01 1.00000E+00 0.00000E+00 4.74257E-02 6.68064E-03 + 1.00635E+00 3.07075E-03 8.77409E-05 1.93007E-05 1.88874E+03 + 4.81374E+02 2.35547E+02 -2.62908E+00 -7.17020E+01 -2.72104E+01 + -7.67519E+01 -2.89307E+01 -7.78539E+01 -2.01529E+01 5.32157E-02 + 8.16039E-03 1.00450E+00 2.59761E-03 9.27696E-05 2.05858E-05 + 1.57928E+03 4.01496E+02 1.73752E+02 -1.85793E+01 -6.72794E+01 + -2.60688E+01 -7.31733E+01 -2.80069E+01 -8.42468E+00 -2.23213E+00 + 5.85313E-02 9.53240E-03 1.00292E+00 2.18942E-03 9.80937E-05 + 2.19601E-05 1.33024E+03 3.36571E+02 1.19641E+02 -3.26866E+01 + -6.33508E+01 -2.50446E+01 -6.97147E+01 -2.71052E+01 -3.10946E+00 + -8.46404E-01 6.34546E-02 1.08160E-02 1.00156E+00 1.83688E-03 + 1.03695E-04 2.34203E-05 1.12852E+03 2.83445E+02 7.23967E+01 + -4.51286E+01 -5.98460E+01 -2.41216E+01 -6.64195E+01 -2.62374E+01 + -1.56079E+00 -4.38552E-01 6.80874E-02 1.20360E-02 1.00040E+00 + 1.52919E-03 1.09634E-04 2.49845E-05 9.62953E+02 2.39395E+02 + 3.13938E+01 -5.60376E+01 -5.66457E+01 -2.32702E+01 -6.32386E+01 + -2.53911E+01 -9.02506E-01 -2.63410E-01 7.24842E-02 1.32058E-02 + 9.99394E-01 1.26170E-03 1.15879E-04 2.66460E-05 8.26362E+02 + 2.02677E+02 -3.97568E+00 -6.55453E+01 -5.37158E+01 -2.24825E+01 + -6.01979E+01 -2.45737E+01 -5.63228E-01 -1.72207E-01 7.66993E-02 + 1.43389E-02 9.98491E-01 1.02049E-03 1.22483E-04 2.84213E-05 + 7.12343E+02 1.71706E+02 -3.43071E+01 -7.37844E+01 -5.09878E+01 + -2.17416E+01 -5.72682E+01 -2.37779E+01 -3.65667E-01 -1.18543E-01 + 8.07349E-02 1.54352E-02 9.97718E-01 8.10207E-04 1.29448E-04 + 3.03130E-05 6.16761E+02 1.45469E+02 -6.02293E+01 -8.09003E+01 + -4.84576E+01 -2.10470E+01 -5.44777E+01 -2.30119E+01 -2.40716E-01 + -8.42439E-02 8.46892E-02 1.65206E-02 9.97025E-01 6.20029E-04 + 1.36809E-04 3.23337E-05 5.35843E+02 1.23019E+02 -8.19678E+01 + -8.69310E+01 -4.60556E+01 -2.03806E+01 -5.17767E+01 -2.22626E+01 + -1.56598E-01 -6.09063E-02 8.85101E-02 1.75807E-02 9.96407E-01 + 4.48397E-04 1.44553E-04 3.44823E-05 4.67143E+02 1.03752E+02 + -1.00280E+02 -9.20669E+01 -4.38071E+01 -1.97500E+01 -4.92086E+01 + -2.15424E+01 -9.72094E-02 -4.42513E-02 9.23130E-02 1.86471E-02 + 9.95869E-01 2.95324E-04 1.52737E-04 3.67775E-05 4.08111E+02 + 8.70169E+01 -1.15235E+02 -9.63062E+01 -4.16582E+01 -1.91408E+01 + -4.67303E+01 -2.08397E+01 -5.36229E-02 -3.18944E-02 9.59694E-02 + 1.96837E-02 9.95355E-01 1.51527E-04 1.61356E-04 3.92208E-05 + 3.57452E+02 7.24960E+01 -1.27424E+02 -9.98005E+01 -3.96226E+01 + -1.85573E+01 -4.43652E+01 -2.01618E+01 -2.05192E-02 -2.24057E-02 + 9.96586E-02 2.07412E-02 9.94922E-01 2.78316E-05 1.70449E-04 + 4.18274E-05 3.13444E+02 5.97407E+01 -1.37103E+02 -1.02606E+02 + -3.76817E+01 -1.79948E+01 -4.20995E+01 -1.95051E+01 5.34559E-03 + -1.49090E-02 1.03288E-01 2.17930E-02 9.94520E-01 -8.96794E-05 + 1.80030E-04 4.46042E-05 2.75311E+02 4.85634E+01 -1.44404E+02 + -1.04746E+02 -3.58130E+01 -1.74470E+01 -3.99153E+01 -1.88649E+01 + 2.59780E-02 -8.86145E-03 1.06879E-01 2.28456E-02 9.94155E-01 + -1.97913E-04 1.90115E-04 4.75604E-05 2.41981E+02 3.86823E+01 + -1.49869E+02 -1.06366E+02 -3.40351E+01 -1.69200E+01 -3.78353E+01 + -1.82483E+01 4.28560E-02 -3.85767E-03 1.10466E-01 2.39090E-02 + 9.93828E-01 -2.93777E-04 2.00756E-04 5.07151E-05 2.12814E+02 + 2.99352E+01 -1.53498E+02 -1.07454E+02 -3.23258E+01 -1.64074E+01 + -3.58381E+01 -1.76494E+01 5.69175E-02 3.59201E-04 1.14026E-01 + 2.49769E-02 9.93518E-01 -3.86549E-04 2.11947E-04 5.40709E-05 + 1.87210E+02 2.21674E+01 -1.55648E+02 -1.08106E+02 -3.06847E+01 + -1.59095E+01 -3.39243E+01 -1.70687E+01 6.88306E-02 3.97365E-03 + 1.17577E-01 2.60541E-02 9.93246E-01 -4.68501E-04 2.23734E-04 + 5.76472E-05 1.64674E+02 1.52490E+01 -1.56432E+02 -1.08347E+02 + -2.91117E+01 -1.54265E+01 -3.20950E+01 -1.65071E+01 7.91150E-02 + 7.13087E-03 1.21122E-01 2.71424E-02 9.92999E-01 -5.44261E-04 + 2.36153E-04 6.14596E-05 1.44814E+02 9.07887E+00 -1.56046E+02 + -1.08227E+02 -2.75964E+01 -1.49558E+01 -3.03391E+01 -1.59616E+01 + 8.80845E-02 9.91741E-03 1.24642E-01 2.82361E-02 9.92764E-01 + -6.18479E-04 2.49195E-04 6.55113E-05 1.27284E+02 3.56699E+00 + -1.54683E+02 -1.07799E+02 -2.61435E+01 -1.44990E+01 -2.86623E+01 + -1.54344E+01 9.60575E-02 1.24244E-02 1.28175E-01 2.93469E-02 + 9.92560E-01 -6.81873E-04 2.62932E-04 6.98309E-05 1.11867E+02 + -1.34007E+00 -1.52393E+02 -1.07070E+02 -2.47437E+01 -1.40534E+01 + -2.70534E+01 -1.49223E+01 1.03169E-01 1.46880E-02 1.31682E-01 + 3.04629E-02 9.92368E-01 -7.43721E-04 2.77364E-04 7.44244E-05 + 9.82362E+01 -5.73236E+00 -1.49399E+02 -1.06105E+02 -2.34011E+01 + -1.36208E+01 -2.55171E+01 -1.44272E+01 1.09631E-01 1.67702E-02 + 1.35189E-01 3.15932E-02 9.92195E-01 -7.99384E-04 2.92551E-04 + 7.93181E-05 8.62015E+01 -9.65935E+00 -1.45802E+02 -1.04932E+02 + -2.21098E+01 -1.31994E+01 -2.40460E+01 -1.39472E+01 1.15533E-01 + 1.86959E-02 1.38680E-01 3.27324E-02 9.92040E-01 -8.50409E-04 + 3.08504E-04 8.45237E-05 7.56377E+01 -1.31500E+01 -1.41620E+02 + -1.03549E+02 -2.08690E+01 -1.27894E+01 -2.26398E+01 -1.34825E+01 + 1.20983E-01 2.04972E-02 1.42164E-01 3.38835E-02 9.91892E-01 + -8.98341E-04 3.25264E-04 9.00619E-05 6.63255E+01 -1.62671E+01 + -1.37020E+02 -1.02010E+02 -1.96752E+01 -1.23899E+01 -2.12924E+01 + -1.30315E+01 1.26046E-01 2.21915E-02 1.45622E-01 3.50411E-02 + 9.91756E-01 -9.43180E-04 3.42863E-04 9.59526E-05 5.81612E+01 + -1.90357E+01 -1.32069E+02 -1.00331E+02 -1.85292E+01 -1.20012E+01 + -2.00054E+01 -1.25951E+01 1.30794E-01 2.38015E-02 1.49074E-01 + 3.62115E-02 9.91644E-01 -9.81835E-04 3.61332E-04 1.02215E-04 + 5.10379E+01 -2.14829E+01 -1.26813E+02 -9.85252E+01 -1.74280E+01 + -1.16229E+01 -1.87743E+01 -1.21722E+01 1.35234E-01 2.53270E-02 + 1.52484E-01 3.73833E-02 9.91533E-01 -1.01894E-03 3.80727E-04 + 1.08879E-04 4.48229E+01 -2.36470E+01 -1.21350E+02 -9.66226E+01 + -1.63718E+01 -1.12551E+01 -1.75989E+01 -1.17628E+01 1.39472E-01 + 2.68030E-02 1.55897E-01 3.85716E-02 9.91446E-01 -1.04987E-03 + 4.01071E-04 1.15963E-04 3.94489E+01 -2.55439E+01 -1.15721E+02 + -9.46362E+01 -1.53572E+01 -1.08970E+01 -1.64748E+01 -1.13661E+01 + 1.43469E-01 2.82133E-02 1.59264E-01 3.97599E-02 9.91354E-01 + -1.08234E-03 4.22386E-04 1.23486E-04 3.48114E+01 -2.72028E+01 + -1.09967E+02 -9.25775E+01 -1.43836E+01 -1.05487E+01 -1.54010E+01 + -1.09819E+01 1.47295E-01 2.95824E-02 1.62605E-01 4.09553E-02 + 9.91286E-01 -1.10553E-03 4.44752E-04 1.31488E-04 3.08452E+01 + -2.86420E+01 -1.04132E+02 -9.04602E+01 -1.34492E+01 -1.02097E+01 + -1.43744E+01 -1.06095E+01 1.50934E-01 3.09025E-02 1.65889E-01 + 4.21468E-02 9.91218E-01 -1.13182E-03 4.68173E-04 1.39985E-04 + 2.75028E+01 -2.98716E+01 -9.82631E+01 -8.83010E+01 -1.25534E+01 + -9.88005E+00 -1.33947E+01 -1.02490E+01 1.54468E-01 3.22028E-02 + 1.69178E-01 4.33570E-02 9.91174E-01 -1.14728E-03 4.92707E-04 + 1.49013E-04 2.46885E+01 -3.09222E+01 -9.23954E+01 -8.61109E+01 + -1.16940E+01 -9.55928E+00 -1.24581E+01 -9.89942E+00 1.57799E-01 + 3.34464E-02 1.72365E-01 4.45463E-02 9.91125E-01 -1.16583E-03 + 5.18381E-04 1.58595E-04 2.23745E+01 -3.17985E+01 -8.65514E+01 + -8.38978E+01 -1.08718E+01 -9.24792E+00 -1.15654E+01 -9.56134E+00 + 1.61032E-01 3.46706E-02 1.75525E-01 4.57433E-02 9.91088E-01 + -1.17975E-03 5.45270E-04 1.68778E-04 2.04809E+01 -3.25263E+01 + -8.07676E+01 -8.16752E+01 -1.00834E+01 -8.94494E+00 -1.07131E+01 + -9.23379E+00 1.64136E-01 3.58635E-02 1.78617E-01 4.69315E-02 + 9.91063E-01 -1.18903E-03 5.73373E-04 1.79578E-04 1.90028E+01 + -3.31030E+01 -7.50479E+01 -7.94440E+01 -9.32785E+00 -8.65022E+00 + -9.89863E+00 -8.91612E+00 1.67142E-01 3.70361E-02 1.81666E-01 + 4.81208E-02 9.91051E-01 -1.19521E-03 6.02772E-04 1.91046E-04 + 1.78783E+01 -3.35483E+01 -6.94121E+01 -7.72117E+01 -8.60502E+00 + -8.36394E+00 -9.12247E+00 -8.60871E+00 1.70030E-01 3.81799E-02 + 1.84637E-01 4.92973E-02 9.91032E-01 -1.20140E-03 6.33484E-04 + 2.03209E-04 1.70629E+01 -3.38760E+01 -6.38959E+01 -7.49933E+01 + -7.91336E+00 -8.08577E+00 -8.38207E+00 -8.31092E+00 1.72808E-01 + 3.92972E-02 1.87534E-01 5.04626E-02 9.91032E-01 -1.20140E-03 + 6.65556E-04 2.16108E-04 1.65368E+01 -3.40910E+01 -5.84897E+01 + -7.27850E+01 -7.25144E+00 -7.81537E+00 -7.67572E+00 -8.02239E+00 + 1.75491E-01 4.03932E-02 1.90359E-01 5.16163E-02 9.91032E-01 + -1.19985E-03 6.99053E-04 2.29792E-04 1.62526E+01 -3.42089E+01 + -5.32268E+01 -7.06006E+01 -6.61876E+00 -7.55279E+00 -7.00276E+00 + -7.74308E+00 1.78078E-01 4.14669E-02 1.93104E-01 5.27559E-02 + 9.91057E-01 -1.19212E-03 7.34007E-04 2.44299E-04 1.61997E+01 + -3.42313E+01 -4.80885E+01 -6.84331E+01 -6.01348E+00 -7.29748E+00 + -6.36067E+00 -7.47224E+00 1.80552E-01 4.25104E-02 1.95748E-01 + 5.38710E-02 9.91069E-01 -1.18594E-03 7.70453E-04 2.59672E-04 + 1.63389E+01 -3.41715E+01 -4.31051E+01 -6.62964E+01 -5.43529E+00 + -7.04957E+00 -5.74923E+00 -7.21008E+00 1.82948E-01 4.35376E-02 + 1.98317E-01 5.49725E-02 9.91100E-01 -1.17511E-03 8.08443E-04 + 2.75961E-04 1.66528E+01 -3.40347E+01 -3.82748E+01 -6.41906E+01 + -4.88331E+00 -6.80891E+00 -5.16677E+00 -6.95616E+00 1.85222E-01 + 4.45289E-02 2.00772E-01 5.60427E-02 9.91131E-01 -1.15965E-03 + 8.48038E-04 2.93223E-04 1.71171E+01 -3.38289E+01 -3.35962E+01 + -6.21161E+01 -4.35602E+00 -6.57510E+00 -4.61202E+00 -6.71015E+00 + 1.87440E-01 4.55125E-02 2.03156E-01 5.71001E-02 9.91168E-01 + -1.14109E-03 8.89267E-04 3.11506E-04 1.77148E+01 -3.35592E+01 + -2.90746E+01 -6.00762E+01 -3.85233E+00 -6.34787E+00 -4.08335E+00 + -6.47164E+00 1.89531E-01 4.64561E-02 2.05412E-01 5.81177E-02 + 9.91218E-01 -1.12099E-03 9.32160E-04 3.30856E-04 1.84226E+01 + -3.32342E+01 -2.47162E+01 -5.80751E+01 -3.37244E+00 -6.12754E+00 + -3.58070E+00 -6.24087E+00 1.91544E-01 4.73799E-02 2.07573E-01 + 5.91100E-02 9.91273E-01 -1.09625E-03 9.76800E-04 3.51351E-04 + 1.92249E+01 -3.28593E+01 -2.05224E+01 -5.61149E+01 -2.91437E+00 + -5.91345E+00 -3.10214E+00 -6.01718E+00 1.93434E-01 4.82634E-02 + 2.09600E-01 6.00576E-02 9.91323E-01 -1.07151E-03 1.02319E-03 + 3.73034E-04 2.01131E+01 -3.24364E+01 -1.64826E+01 -5.41920E+01 + -2.47787E+00 -5.70569E+00 -2.64709E+00 -5.80061E+00 1.95245E-01 + 4.91256E-02 2.11528E-01 6.09751E-02 9.91385E-01 -1.04059E-03 + 1.07141E-03 3.95985E-04 2.10675E+01 -3.19737E+01 -1.26035E+01 + -5.23112E+01 -2.06137E+00 -5.50375E+00 -2.21371E+00 -5.59046E+00 + 1.96962E-01 4.99582E-02 2.13340E-01 6.18537E-02 9.91459E-01 + -1.00657E-03 1.12146E-03 4.20251E-04 2.20760E+01 -3.14753E+01 + -8.88749E+00 -5.04752E+01 -1.66509E+00 -5.30793E+00 -1.80225E+00 + -5.38717E+00 1.98585E-01 5.07601E-02 2.15038E-01 6.26925E-02 + 9.91533E-01 -9.69466E-04 1.17342E-03 4.45928E-04 2.31309E+01 + -3.09441E+01 -5.32268E+00 -4.86795E+01 -1.28772E+00 -5.11786E+00 + -1.41102E+00 -5.19010E+00 2.00108E-01 5.15268E-02 2.16608E-01 + 6.34832E-02 9.91607E-01 -9.33903E-04 1.22730E-03 4.73067E-04 + 2.42164E+01 -3.03864E+01 -1.91660E+00 -4.69301E+01 -9.28367E-01 + -4.93327E+00 -1.03925E+00 -4.99915E+00 2.01520E-01 5.22525E-02 + 2.18046E-01 6.42221E-02 9.91691E-01 -8.90615E-04 1.28317E-03 + 5.01767E-04 2.53297E+01 -2.98030E+01 1.34185E+00 -4.52224E+01 + -5.86417E-01 -4.75407E+00 -6.86116E-01 -4.81409E+00 2.02853E-01 + 5.29511E-02 2.19375E-01 6.49186E-02 9.91777E-01 -8.44224E-04 + 1.34103E-03 5.32087E-04 2.64598E+01 -2.91987E+01 4.45186E+00 + -4.35591E+01 -2.61270E-01 -4.58016E+00 -3.50851E-01 -4.63476E+00 + 2.04078E-01 5.36061E-02 2.20570E-01 6.55580E-02 9.91867E-01 + -7.96292E-04 1.40095E-03 5.64131E-04 2.75970E+01 -2.85777E+01 + 7.41581E+00 -4.19402E+01 4.75981E-02 -4.41147E+00 -3.28536E-02 + -4.46110E+00 2.05213E-01 5.42261E-02 2.21649E-01 6.61465E-02 + 9.91960E-01 -7.46813E-04 1.46294E-03 5.97989E-04 2.87362E+01 + -2.79420E+01 1.02388E+01 -4.03656E+01 3.41252E-01 -4.24766E+00 + 2.69038E-01 -4.29269E+00 2.06239E-01 5.47984E-02 2.22590E-01 + 6.66718E-02 9.92056E-01 -6.92696E-04 1.52704E-03 6.33745E-04 + 2.98683E+01 -2.72966E+01 1.29210E+01 -3.88363E+01 6.20136E-01 + -4.08868E+00 5.55345E-01 -4.12946E+00 2.07091E-01 5.52841E-02 + 2.23332E-01 6.70947E-02 9.92151E-01 -6.38579E-04 1.59327E-03 + 6.71503E-04 3.10114E+01 -2.66304E+01 1.54879E+01 -3.73401E+01 + 8.84870E-01 -3.93435E+00 8.26659E-01 -3.97130E+00 2.08108E-01 + 5.58771E-02 2.24206E-01 6.76044E-02 9.92254E-01 -5.78278E-04 + 1.66169E-03 7.11386E-04 3.21261E+01 -2.59656E+01 1.79123E+01 + -3.58943E+01 1.13600E+00 -3.78460E+00 1.08380E+00 -3.81796E+00 + 2.08822E-01 5.63026E-02 2.24756E-01 6.79320E-02 9.92356E-01 + -5.17976E-04 1.73227E-03 7.53478E-04 3.32152E+01 -2.53008E+01 + 2.02022E+01 -3.44967E+01 1.37404E+00 -3.63932E+00 1.32718E+00 + -3.66942E+00 2.09366E-01 5.66349E-02 2.25114E-01 6.81508E-02 + 9.92458E-01 -4.56128E-04 1.80508E-03 7.97916E-04 3.42974E+01 + -2.46244E+01 2.23864E+01 -3.31315E+01 1.59976E+00 -3.49822E+00 + 1.55773E+00 -3.52532E+00 2.09975E-01 5.70154E-02 2.25507E-01 + 6.83964E-02 9.92563E-01 -3.89642E-04 1.88011E-03 8.44814E-04 + 3.53532E+01 -2.39481E+01 2.44498E+01 -3.18098E+01 1.81345E+00 + -3.36135E+00 1.77573E+00 -3.38568E+00 2.10449E-01 5.73191E-02 + 2.25746E-01 6.85495E-02 9.92665E-01 -3.24701E-04 1.95739E-03 + 8.94312E-04 3.63804E+01 -2.32736E+01 2.63996E+01 -3.05293E+01 + 2.01583E+00 -3.22844E+00 1.98194E+00 -3.25025E+00 2.10832E-01 + 5.75705E-02 2.25871E-01 6.86319E-02 9.92776E-01 -2.52032E-04 + 2.03692E-03 9.46541E-04 3.73817E+01 -2.25989E+01 2.82428E+01 + -2.92874E+01 2.20720E+00 -3.09951E+00 2.17675E+00 -3.11901E+00 + 2.11124E-01 5.77675E-02 2.25889E-01 6.86438E-02 9.92881E-01 + -1.80905E-04 2.11871E-03 1.00165E-03 3.83495E+01 -2.19296E+01 + 2.99787E+01 -2.80867E+01 2.38822E+00 -2.97429E+00 2.36086E+00 + -2.99166E+00 2.11320E-01 5.79028E-02 2.25792E-01 6.85769E-02 + 9.92983E-01 -1.09780E-04 2.20276E-03 1.05979E-03 3.92895E+01 + -2.12614E+01 3.16196E+01 -2.69206E+01 2.55912E+00 -2.85283E+00 + 2.53450E+00 -2.86823E+00 2.11476E-01 5.80137E-02 2.25640E-01 + 6.84683E-02 9.93092E-01 -3.24701E-05 2.28909E-03 1.12114E-03 + 4.01922E+01 -2.06018E+01 3.31598E+01 -2.57950E+01 2.72049E+00 + -2.73490E+00 2.69830E+00 -2.74854E+00 2.11515E-01 5.80419E-02 + 2.25357E-01 6.82619E-02 9.93194E-01 4.17473E-05 2.37766E-03 + 1.18586E-03 4.10622E+01 -1.99477E+01 3.46093E+01 -2.47051E+01 + 2.87276E+00 -2.62043E+00 2.85272E+00 -2.63244E+00 2.11482E-01 + 5.80176E-02 2.24991E-01 6.79871E-02 9.93296E-01 1.17511E-04 + 2.46846E-03 1.25414E-03 4.18974E+01 -1.93009E+01 3.59699E+01 + -2.36516E+01 3.01619E+00 -2.50935E+00 2.99810E+00 -2.51987E+00 + 2.11388E-01 5.79441E-02 2.24556E-01 6.76500E-02 9.93398E-01 + 1.97913E-04 2.56149E-03 1.32617E-03 4.26970E+01 -1.86628E+01 + 3.72469E+01 -2.26324E+01 3.15134E+00 -2.40149E+00 3.13496E+00 + -2.41063E+00 2.11211E-01 5.78034E-02 2.24029E-01 6.72294E-02 + 9.93494E-01 2.73677E-04 2.65671E-03 1.40217E-03 4.34606E+01 + -1.80341E+01 3.84417E+01 -2.16485E+01 3.27849E+00 -2.29677E+00 + 3.26360E+00 -2.30470E+00 2.10984E-01 5.76160E-02 2.23449E-01 + 6.67513E-02 9.93596E-01 3.57172E-04 2.75408E-03 1.48235E-03 + 4.41883E+01 -1.74151E+01 3.95591E+01 -2.06981E+01 3.39795E+00 + -2.19518E+00 3.38442E+00 -2.20196E+00 2.10680E-01 5.73577E-02 + 2.22788E-01 6.61900E-02 9.93685E-01 4.34481E-04 2.85357E-03 + 1.56697E-03 4.48799E+01 -1.68068E+01 4.06026E+01 -1.97806E+01 + 3.51011E+00 -2.09656E+00 3.49772E+00 -2.10232E+00 2.10326E-01 + 5.70465E-02 2.22078E-01 6.55650E-02 9.93775E-01 5.13341E-04 + 2.95511E-03 1.65626E-03 4.55353E+01 -1.62105E+01 4.15746E+01 + -1.88958E+01 3.61536E+00 -2.00077E+00 3.60403E+00 -2.00557E+00 + 2.09912E-01 5.66693E-02 2.21307E-01 6.48630E-02 9.93865E-01 + 5.95286E-04 3.05864E-03 1.75049E-03 4.61559E+01 -1.56249E+01 + 4.24805E+01 -1.80415E+01 3.71390E+00 -1.90781E+00 3.70348E+00 + -1.91176E+00 2.09458E-01 5.62418E-02 2.20500E-01 6.41026E-02 + 9.93951E-01 6.74142E-04 3.16411E-03 1.84997E-03 4.67416E+01 + -1.50517E+01 4.33212E+01 -1.72185E+01 3.80611E+00 -1.81755E+00 + 3.79647E+00 -1.82073E+00 2.08950E-01 5.57443E-02 2.19646E-01 + 6.32658E-02 9.94030E-01 7.54544E-04 3.27137E-03 1.95496E-03 + 4.72910E+01 -1.44927E+01 4.40998E+01 -1.64264E+01 3.89219E+00 + -1.72998E+00 3.88324E+00 -1.73245E+00 2.08394E-01 5.51788E-02 + 2.18747E-01 6.23520E-02 9.94109E-01 8.33400E-04 3.38038E-03 + 2.06586E-03 4.78077E+01 -1.39457E+01 4.48207E+01 -1.56632E+01 + 3.97249E+00 -1.64497E+00 3.96418E+00 -1.64677E+00 2.07810E-01 + 5.45599E-02 2.17831E-01 6.13813E-02 9.94182E-01 9.10710E-04 + 3.49097E-03 2.18294E-03 4.82914E+01 -1.34118E+01 4.54865E+01 + -1.49283E+01 4.04735E+00 -1.56234E+00 4.03952E+00 -1.56360E+00 + 2.07194E-01 5.38800E-02 2.16891E-01 6.03446E-02 9.94251E-01 + 9.88020E-04 3.60302E-03 2.30662E-03 4.87421E+01 -1.28923E+01 + 4.60994E+01 -1.42216E+01 4.11681E+00 -1.48226E+00 4.10947E+00 + -1.48296E+00 2.06548E-01 5.31351E-02 2.15933E-01 5.92395E-02 + 9.94316E-01 1.06378E-03 3.71638E-03 2.43731E-03 4.91601E+01 + -1.23879E+01 4.66610E+01 -1.35441E+01 4.18130E+00 -1.40444E+00 + 4.17434E+00 -1.40470E+00 2.05871E-01 5.23187E-02 2.14956E-01 + 5.80609E-02 9.94381E-01 1.13955E-03 3.83084E-03 2.57541E-03 + 4.95484E+01 -1.18967E+01 4.71762E+01 -1.28922E+01 4.24096E+00 + -1.32896E+00 4.23433E+00 -1.32879E+00 2.05181E-01 5.14451E-02 + 2.13979E-01 5.68247E-02 9.94437E-01 1.21222E-03 3.94622E-03 + 2.72141E-03 4.99063E+01 -1.14204E+01 4.76465E+01 -1.22666E+01 + 4.29603E+00 -1.25570E+00 4.28970E+00 -1.25513E+00 2.04478E-01 + 5.05104E-02 2.13003E-01 5.55267E-02 9.94491E-01 1.28334E-03 + 4.06224E-03 2.87574E-03 5.02360E+01 -1.09580E+01 4.80744E+01 + -1.16666E+01 4.34676E+00 -1.18458E+00 4.34067E+00 -1.18366E+00 + 2.03772E-01 4.95215E-02 2.12040E-01 5.41772E-02 9.94542E-01 + 1.35448E-03 4.17869E-03 3.03902E-03 5.05367E+01 -1.05125E+01 + 4.84613E+01 -1.10931E+01 4.39335E+00 -1.11551E+00 4.38745E+00 + -1.11433E+00 2.03048E-01 4.84474E-02 2.11073E-01 5.27423E-02 + 9.94585E-01 1.41941E-03 4.29521E-03 3.21172E-03 5.08110E+01 + -1.00813E+01 4.88106E+01 -1.05440E+01 4.43596E+00 -1.04853E+00 + 4.43025E+00 -1.04704E+00 2.02323E-01 4.73082E-02 2.10121E-01 + 5.12468E-02 9.94628E-01 1.48590E-03 4.41145E-03 3.39447E-03 + 5.10595E+01 -9.66543E+00 4.91242E+01 -1.00190E+01 4.47479E+00 + -9.83549E-01 4.46922E+00 -9.81829E-01 2.01616E-01 4.61247E-02 + 2.09203E-01 4.97107E-02 9.94666E-01 1.54773E-03 4.52710E-03 + 3.58801E-03 5.12837E+01 -9.26418E+00 4.94046E+01 -9.51751E+00 + 4.51007E+00 -9.20438E-01 4.50462E+00 -9.18496E-01 2.00913E-01 + 4.48671E-02 2.08306E-01 4.81060E-02 9.94698E-01 1.60806E-03 + 4.64163E-03 3.79290E-03 5.14838E+01 -8.87983E+00 4.96530E+01 + -9.04024E+00 4.54186E+00 -8.59345E-01 4.53652E+00 -8.57205E-01 + 2.00223E-01 4.35420E-02 2.07438E-01 4.64380E-02 9.94730E-01 + 1.66836E-03 4.75460E-03 4.00995E-03 5.16612E+01 -8.51170E+00 + 4.98716E+01 -8.58681E+00 4.57049E+00 -7.99936E-01 4.56522E+00 + -7.97647E-01 1.99544E-01 4.21321E-02 2.06597E-01 4.46926E-02 + 9.94755E-01 1.71936E-03 4.86545E-03 4.23997E-03 5.18182E+01 + -8.15754E+00 5.00632E+01 -8.15447E+00 4.59601E+00 -7.42390E-01 + 4.59080E+00 -7.39940E-01 1.98901E-01 4.06819E-02 2.05809E-01 + 4.29146E-02 9.94778E-01 1.77350E-03 4.97354E-03 4.48377E-03 + 5.19548E+01 -7.82020E+00 5.02290E+01 -7.74489E+00 4.61860E+00 + -6.86594E-01 4.61343E+00 -6.84033E-01 1.98279E-01 3.91468E-02 + 2.05057E-01 4.10579E-02 9.94797E-01 1.82141E-03 5.07820E-03 + 4.74232E-03 5.20726E+01 -7.49858E+00 5.03710E+01 -7.35727E+00 + 4.63842E+00 -6.32473E-01 4.63330E+00 -6.29789E-01 1.97696E-01 + 3.75539E-02 2.04359E-01 3.91523E-02 9.94814E-01 1.86627E-03 + 5.17864E-03 5.01654E-03 5.21726E+01 -7.19341E+00 5.04908E+01 + -6.99164E+00 4.65561E+00 -5.80006E-01 4.65052E+00 -5.77248E-01 + 1.97148E-01 3.58804E-02 2.03711E-01 3.71746E-02 9.94829E-01 + 1.91263E-03 5.27401E-03 5.30757E-03 5.22563E+01 -6.90375E+00 + 5.05906E+01 -6.64646E+00 4.67031E+00 -5.29174E-01 4.66525E+00 + -5.26316E-01 1.96645E-01 3.41433E-02 2.03123E-01 3.51410E-02 + 9.94839E-01 1.94667E-03 5.36334E-03 5.61648E-03 5.23247E+01 + -6.63075E+00 5.06715E+01 -6.32349E+00 4.68266E+00 -4.79900E-01 + 4.67761E+00 -4.76993E-01 1.96188E-01 3.23192E-02 2.02595E-01 + 3.30328E-02 9.94849E-01 1.98685E-03 5.44553E-03 5.94445E-03 + 5.23789E+01 -6.37562E+00 5.07354E+01 -6.02224E+00 4.69278E+00 + -4.32146E-01 4.68775E+00 -4.29190E-01 1.95782E-01 3.04042E-02 + 2.02130E-01 3.08410E-02 9.94856E-01 2.01780E-03 5.51941E-03 + 6.29286E-03 5.24212E+01 -6.13151E+00 5.07850E+01 -5.73658E+00 + 4.70080E+00 -3.85941E-01 4.69577E+00 -3.82947E-01 1.95449E-01 + 2.84831E-02 2.01751E-01 2.86551E-02 9.94861E-01 2.04715E-03 + 5.58365E-03 6.66307E-03 5.24516E+01 -5.90656E+00 5.08204E+01 + -5.47412E+00 4.70685E+00 -3.41167E-01 4.70182E+00 -3.38137E-01 + 1.95172E-01 2.64351E-02 2.01440E-01 2.63516E-02 9.94865E-01 + 2.07501E-03 5.63676E-03 7.05660E-03 5.24714E+01 -5.70053E+00 + 5.08436E+01 -5.23365E+00 4.71102E+00 -2.97812E-01 4.70600E+00 + -2.94781E-01 1.94965E-01 2.42789E-02 2.01208E-01 2.39484E-02 + 9.94867E-01 2.09511E-03 5.67710E-03 7.47497E-03 5.24826E+01 + -5.50789E+00 5.08565E+01 -5.01093E+00 4.71345E+00 -2.55913E-01 + 4.70843E+00 -2.52845E-01 1.94837E-01 2.20714E-02 2.01067E-01 + 2.15079E-02 9.94868E-01 2.11364E-03 5.70285E-03 7.91998E-03 + 5.24860E+01 -5.33201E+00 5.08604E+01 -4.80734E+00 4.71423E+00 + -2.15319E-01 4.70921E+00 -2.12263E-01 1.94792E-01 1.97748E-02 + 2.01018E-01 1.89863E-02 9.94868E-01 2.13222E-03 5.71200E-03 + 8.39345E-03 5.24803E+01 -5.03478E+00 5.08542E+01 -4.48558E+00 + 4.71348E+00 -1.76006E-01 4.70845E+00 -1.72938E-01 1.94798E-01 + 1.95110E-02 2.01026E-01 1.85573E-02 9.94868E-01 2.15848E-03 + 5.70230E-03 8.89736E-03 5.24710E+01 -4.87444E+00 5.08437E+01 + -4.30345E+00 4.71129E+00 -1.38082E-01 4.70626E+00 -1.35027E-01 + 1.94925E-01 1.73113E-02 2.01165E-01 1.61598E-02 9.94867E-01 + 2.16778E-03 5.67130E-03 9.43384E-03 5.24580E+01 -4.73920E+00 + 5.08289E+01 -4.14913E+00 4.70775E+00 -1.01343E-01 4.70273E+00 + -9.83252E-02 1.95159E-01 1.48809E-02 2.01417E-01 1.35380E-02 + 9.94866E-01 2.17394E-03 5.61627E-03 1.00052E-02 5.24421E+01 + -4.62120E+00 5.08107E+01 -4.01430E+00 4.70297E+00 -6.59303E-02 + 4.69795E+00 -6.29121E-02 1.95502E-01 1.23380E-02 2.01785E-01 + 1.08126E-02 9.94866E-01 2.18015E-03 5.53420E-03 1.06136E-02 + 5.24243E+01 -4.51902E+00 5.07904E+01 -3.89778E+00 4.69703E+00 + -3.16783E-02 4.69201E+00 -2.86849E-02 1.95961E-01 9.69266E-03 + 2.02274E-01 7.99650E-03 9.94866E-01 2.17703E-03 5.42173E-03 + 1.12621E-02 5.24065E+01 -4.43467E+00 5.07699E+01 -3.80085E+00 + 4.69023E+00 3.95829E-04 4.68522E+00 3.33981E-03 1.96545E-01 + 6.93628E-03 2.02892E-01 5.07658E-03 9.94866E-01 2.17706E-03 + 5.27523E-03 1.19532E-02 5.23887E+01 -4.36366E+00 5.07494E+01 + -3.71887E+00 4.68380E+00 2.60873E-02 4.67879E+00 2.90189E-02 + 1.97255E-01 4.10088E-03 2.03641E-01 2.08735E-03 9.94868E-01 + 2.17085E-03 5.09065E-03 1.26900E-02 5.23731E+01 -4.30979E+00 + 5.07314E+01 -3.65657E+00 4.67687E+00 5.00476E-02 4.67188E+00 + 5.29421E-02 1.98110E-01 1.14342E-03 2.04537E-01 -1.01199E-03 + 9.94870E-01 2.16160E-03 4.86352E-03 1.34757E-02 5.23624E+01 + -4.27733E+00 5.07185E+01 -3.61718E+00 4.66939E+00 7.28820E-02 + 4.66441E+00 7.57270E-02 1.99147E-01 -2.02012E-03 2.05618E-01 + -4.31121E-03 9.94874E-01 2.15077E-03 4.58895E-03 1.43138E-02 + 5.23563E+01 -4.26055E+00 5.07100E+01 -3.59418E+00 4.66143E+00 + 9.46267E-02 4.65646E+00 9.74469E-02 2.00345E-01 -5.29260E-03 + 2.06864E-01 -7.71393E-03 9.94879E-01 2.13683E-03 4.26155E-03 + 1.52079E-02 5.21422E+01 -3.73148E+00 5.04944E+01 -3.06124E+00 + 4.65296E+00 1.15545E-01 4.64802E+00 1.18303E-01 1.98327E-01 + -3.05762E-04 2.04824E-01 -2.67262E-03 9.94867E-01 2.16469E-03 + 3.87540E-03 1.61620E-02 5.18023E+01 -2.96472E+00 5.01532E+01 + -2.29172E+00 4.64412E+00 1.35496E-01 4.63919E+00 1.38229E-01 + 1.94356E-01 8.65131E-03 2.00793E-01 6.42054E-03 9.94847E-01 + 2.21105E-03 3.42390E-03 1.71805E-02 5.17826E+01 -2.92389E+00 + 5.01326E+01 -2.24890E+00 4.63510E+00 1.54212E-01 4.63020E+00 + 1.56872E-01 1.95511E-01 6.25441E-03 2.01994E-01 3.92930E-03 + 9.94856E-01 2.19098E-03 2.90001E-03 1.82679E-02 5.17706E+01 + -2.90070E+00 5.01202E+01 -2.22512E+00 4.62590E+00 1.71887E-01 + 4.62101E+00 1.74534E-01 1.96843E-01 3.69423E-03 2.03370E-01 + 1.28334E-03 9.94870E-01 2.16776E-03 2.29580E-03 1.94290E-02 + 5.17620E+01 -2.88540E+00 5.01121E+01 -2.21070E+00 4.61652E+00 + 1.88662E-01 4.61169E+00 1.91222E-01 1.98279E-01 1.12487E-03 + 2.04849E-01 -1.36221E-03 9.94880E-01 2.14768E-03 1.60273E-03 + 2.06690E-02 5.17621E+01 -2.88556E+00 5.01132E+01 -2.21246E+00 + 4.60708E+00 2.04468E-01 4.60225E+00 2.07004E-01 1.99888E-01 + -1.56822E-03 2.06501E-01 -4.12600E-03 9.94896E-01 2.12137E-03 + 8.11096E-04 2.19939E-02 5.17713E+01 -2.89994E+00 5.01237E+01 + -2.22891E+00 4.59762E+00 2.19339E-01 4.59284E+00 2.21800E-01 + 2.01678E-01 -4.38156E-03 2.08332E-01 -7.00586E-03 9.94915E-01 + 2.09202E-03 -8.91243E-05 2.34093E-02 5.17908E+01 -2.92900E+00 + 5.01456E+01 -2.26134E+00 4.58818E+00 2.33338E-01 4.58343E+00 + 2.35763E-01 2.03658E-01 -7.31656E-03 2.10351E-01 -9.99881E-03 + 9.94933E-01 2.06571E-03 -1.10966E-03 2.49222E-02 5.08811E+01 + -1.65328E+00 4.92385E+01 -9.89473E-01 4.57849E+00 2.46923E-01 + 4.57377E+00 2.49298E-01 1.90651E-01 1.09224E-02 1.97115E-01 + 8.56135E-03 9.94885E-01 2.13067E-03 -2.26275E-03 2.65392E-02 + 5.08188E+01 -1.57045E+00 4.91798E+01 -9.11297E-01 4.56923E+00 + 2.59243E-01 4.56456E+00 2.61556E-01 1.91294E-01 1.00670E-02 + 1.97776E-01 7.68233E-03 9.94907E-01 2.10439E-03 -3.56203E-03 + 2.82677E-02 5.08132E+01 -1.56321E+00 4.91782E+01 -9.09208E-01 + 4.56016E+00 2.70719E-01 4.55551E+00 2.73007E-01 1.92843E-01 + 8.10628E-03 1.99354E-01 5.68495E-03 9.94930E-01 2.07344E-03 + -5.02257E-03 3.01160E-02 5.08103E+01 -1.55976E+00 4.91805E+01 + -9.11990E-01 4.55132E+00 2.81397E-01 4.54673E+00 2.83599E-01 + 1.94446E-01 6.17246E-03 2.00981E-01 3.72172E-03 9.94959E-01 + 2.03945E-03 -6.66077E-03 3.20926E-02 5.08241E+01 -1.57578E+00 + 4.91997E+01 -9.34244E-01 4.54271E+00 2.91314E-01 4.53816E+00 + 2.93479E-01 1.96300E-01 4.03478E-03 2.02859E-01 1.55624E-03 + 9.94987E-01 2.00541E-03 -8.49432E-03 3.42067E-02 5.07017E+01 + -1.44062E+00 4.90836E+01 -8.06007E-01 4.53434E+00 3.00546E-01 + 4.52985E+00 3.02648E-01 1.95940E-01 4.43220E-03 2.02484E-01 + 1.97141E-03 9.95009E-01 1.98224E-03 -1.05430E-02 3.64683E-02 + 4.99704E+01 -6.66271E-01 4.83593E+01 -3.90876E-02 4.52612E+00 + 3.09250E-01 4.52170E+00 3.11291E-01 1.85687E-01 1.52883E-02 + 1.92059E-01 1.30092E-02 9.94998E-01 1.99458E-03 -1.28280E-02 + 3.88878E-02 4.99614E+01 -6.57175E-01 4.83575E+01 -3.73069E-02 + 4.51855E+00 3.16960E-01 4.51414E+00 3.18964E-01 1.87103E-01 + 1.38478E-02 1.93490E-01 1.15540E-02 9.95032E-01 1.95904E-03 + -1.53731E-02 4.14770E-02 4.99680E+01 -6.63599E-01 4.83729E+01 + -5.22488E-02 4.51132E+00 3.24031E-01 4.50698E+00 3.25986E-01 + 1.88762E-01 1.22238E-02 1.95157E-01 9.92150E-03 9.95071E-01 + 1.92191E-03 -1.82035E-02 4.42478E-02 4.99701E+01 -6.65586E-01 + 4.83837E+01 -6.24420E-02 4.50450E+00 3.30480E-01 4.50018E+00 + 3.32397E-01 1.90315E-01 1.07589E-02 1.96715E-01 8.45157E-03 + 9.95108E-01 1.88483E-03 -2.13472E-02 4.72135E-02 4.99701E+01 + -6.65586E-01 4.83837E+01 -6.24420E-02 4.50450E+00 3.30480E-01 + 4.50018E+00 3.32397E-01 1.90315E-01 1.07589E-02 1.96715E-01 + 8.45157E-03 9.95108E-01 1.88483E-03 -2.13472E-02 4.72135E-02 + ECHO READ:EBINDA(IM),$LGN(GE(IM)/0,1/) + 8.80040E-02 1.69413E+02 2.69387E+01 + ECHO READ:($LGN(GMFP,GBR1,GBR2(I,IM)/0,1/),I=1,NGE) + 1.89531E-03 2.84905E-04 0.00000E+00 0.00000E+00 2.47502E-02 + 3.98259E-03 1.89531E-03 2.84905E-04 0.00000E+00 0.00000E+00 + 2.47502E-02 3.98259E-03 2.04671E-03 3.09414E-04 0.00000E+00 + 0.00000E+00 9.83641E-03 1.56837E-03 2.21071E-03 3.36124E-04 + 0.00000E+00 0.00000E+00 -7.15298E-03 -1.19847E-03 2.38359E-03 + 3.64450E-04 0.00000E+00 0.00000E+00 1.36779E-03 1.97635E-04 + 2.57321E-03 3.95707E-04 0.00000E+00 0.00000E+00 -8.19494E-03 + -1.37878E-03 -1.79019E-02 -3.00039E-03 0.00000E+00 0.00000E+00 + -7.78431E-03 -1.31067E-03 -2.97044E-03 -5.08446E-04 0.00000E+00 + 0.00000E+00 -3.00131E-03 -5.12424E-04 8.90692E-04 1.39965E-04 + 0.00000E+00 0.00000E+00 3.27247E-03 5.41151E-04 9.66234E-04 + 1.52731E-04 0.00000E+00 0.00000E+00 -2.29681E-03 -3.99982E-04 + 1.04751E-03 1.66552E-04 0.00000E+00 0.00000E+00 2.03658E-03 + 3.36924E-04 1.15634E-03 1.85176E-04 0.00000E+00 0.00000E+00 + 6.30504E-04 9.62982E-05 -5.14798E-04 -1.02640E-04 0.00000E+00 + 0.00000E+00 6.24062E-04 9.51888E-05 1.21757E-03 1.97642E-04 + 0.00000E+00 0.00000E+00 7.14700E-04 1.10900E-04 1.32472E-03 + 2.16335E-04 0.00000E+00 0.00000E+00 3.96740E-03 6.78360E-04 + 1.44204E-03 2.36936E-04 0.00000E+00 0.00000E+00 -7.03520E-04 + -1.41832E-04 5.87458E-04 8.58907E-05 0.00000E+00 0.00000E+00 + 5.82213E-06 -1.64578E-05 1.58852E-03 2.63995E-04 0.00000E+00 + 0.00000E+00 2.64171E-03 4.52505E-04 9.21383E-04 1.44512E-04 + 0.00000E+00 0.00000E+00 2.01255E-03 3.39825E-04 1.81792E-03 + 3.06154E-04 0.00000E+00 0.00000E+00 -6.54385E-04 -1.41014E-04 + 1.99138E-03 3.37639E-04 0.00000E+00 0.00000E+00 3.05241E-03 + 5.31811E-04 2.16796E-03 3.69908E-04 0.00000E+00 0.00000E+00 + 2.31416E-03 3.96901E-04 2.35999E-03 4.05239E-04 0.00000E+00 + 0.00000E+00 2.48964E-03 4.29188E-04 2.56885E-03 4.43932E-04 + 0.00000E+00 0.00000E+00 2.67660E-03 4.63824E-04 2.79593E-03 + 4.86291E-04 0.00000E+00 0.00000E+00 4.03499E-03 7.17215E-04 + 3.05051E-03 5.34111E-04 0.00000E+00 0.00000E+00 1.95202E-03 + 3.25951E-04 3.33689E-03 5.88283E-04 0.00000E+00 0.00000E+00 + 2.06376E-03 3.47089E-04 3.63377E-03 6.44837E-04 0.00000E+00 + 0.00000E+00 3.50340E-03 6.21334E-04 3.95691E-03 7.06832E-04 + 0.00000E+00 0.00000E+00 4.46145E-03 8.05138E-04 4.30904E-03 + 7.74874E-04 0.00000E+00 0.00000E+00 4.07814E-03 7.31072E-04 + 4.74438E-03 8.59602E-04 0.00000E+00 0.00000E+00 4.42279E-03 + 7.98149E-04 5.25496E-03 9.59696E-04 0.00000E+00 0.00000E+00 + 4.82563E-03 8.77123E-04 5.73555E-03 1.05460E-03 0.00000E+00 + 0.00000E+00 6.88905E-03 1.28460E-03 6.26127E-03 1.15919E-03 + 0.00000E+00 0.00000E+00 5.67621E-03 1.04332E-03 6.83355E-03 + 1.27388E-03 0.00000E+00 0.00000E+00 7.03101E-03 1.31485E-03 + 7.45881E-03 1.40013E-03 0.00000E+00 0.00000E+00 6.58992E-03 + 1.22579E-03 8.13953E-03 1.53862E-03 0.00000E+00 0.00000E+00 + 8.10258E-03 1.53353E-03 8.88263E-03 1.69095E-03 0.00000E+00 + 0.00000E+00 8.72663E-03 1.66145E-03 9.76937E-03 1.87412E-03 + 0.00000E+00 0.00000E+00 8.89203E-03 1.69562E-03 1.07108E-02 + 2.07009E-03 0.00000E+00 0.00000E+00 1.08026E-02 2.09331E-03 + 1.17009E-02 2.27779E-03 0.00000E+00 0.00000E+00 1.03822E-02 + 2.00513E-03 1.27783E-02 2.50558E-03 0.00000E+00 0.00000E+00 + 1.38225E-02 2.73251E-03 1.39593E-02 2.75725E-03 0.00000E+00 + 0.00000E+00 1.21354E-02 2.37297E-03 1.52427E-02 3.03292E-03 + 0.00000E+00 0.00000E+00 1.52325E-02 3.03824E-03 1.65839E-02 + 3.32333E-03 0.00000E+00 0.00000E+00 1.63696E-02 3.28445E-03 + 1.80652E-02 3.64668E-03 0.00000E+00 0.00000E+00 1.76011E-02 + 3.55326E-03 1.97152E-02 4.00979E-03 0.00000E+00 0.00000E+00 + 1.80878E-02 3.66035E-03 2.15102E-02 4.40803E-03 0.00000E+00 + 0.00000E+00 2.12315E-02 4.35789E-03 2.34715E-02 4.84683E-03 + 0.00000E+00 0.00000E+00 2.14442E-02 4.40546E-03 2.56049E-02 + 5.32810E-03 0.00000E+00 0.00000E+00 2.45208E-02 5.09952E-03 + 2.79329E-02 5.85771E-03 0.00000E+00 0.00000E+00 2.58564E-02 + 5.40336E-03 -1.57516E-01 -3.66906E-02 0.00000E+00 0.00000E+00 + -1.51352E-01 -3.52543E-02 1.43979E-02 3.09114E-03 0.00000E+00 + 0.00000E+00 1.39461E-02 2.99650E-03 1.58583E-02 3.43201E-03 + 0.00000E+00 0.00000E+00 1.46888E-02 3.16985E-03 1.74638E-02 + 3.81003E-03 0.00000E+00 0.00000E+00 1.67260E-02 3.64951E-03 + -3.37306E-02 -8.35001E-03 0.00000E+00 0.00000E+00 -3.25943E-02 + -8.06536E-03 -5.38610E-03 -1.55755E-03 0.00000E+00 0.00000E+00 + -5.40403E-03 -1.54950E-03 1.30079E-02 2.88994E-03 0.00000E+00 + 0.00000E+00 1.21268E-02 2.68928E-03 1.42100E-02 3.18325E-03 + 0.00000E+00 0.00000E+00 1.32555E-02 2.96466E-03 1.55224E-02 + 3.50636E-03 0.00000E+00 0.00000E+00 1.43800E-02 3.24153E-03 + 1.69541E-02 3.86211E-03 0.00000E+00 0.00000E+00 1.55917E-02 + 3.54261E-03 1.85161E-02 4.25385E-03 0.00000E+00 0.00000E+00 + 1.71226E-02 3.92657E-03 2.02201E-02 4.68522E-03 0.00000E+00 + 0.00000E+00 1.84369E-02 4.25928E-03 2.22785E-02 5.21126E-03 + 0.00000E+00 0.00000E+00 2.04016E-02 4.76136E-03 2.43523E-02 + 5.74630E-03 0.00000E+00 0.00000E+00 2.21185E-02 5.20431E-03 + 2.66094E-02 6.33427E-03 0.00000E+00 0.00000E+00 2.40993E-02 + 5.72032E-03 2.90727E-02 6.98219E-03 0.00000E+00 0.00000E+00 + 2.63175E-02 6.30379E-03 3.17596E-02 7.69594E-03 0.00000E+00 + 0.00000E+00 2.87247E-02 6.94322E-03 3.46919E-02 8.48259E-03 + 0.00000E+00 0.00000E+00 3.10956E-02 7.57928E-03 3.78884E-02 + 9.34877E-03 0.00000E+00 0.00000E+00 3.38963E-02 8.33819E-03 + 4.13752E-02 1.03032E-02 0.00000E+00 0.00000E+00 3.67535E-02 + 9.12029E-03 4.51754E-02 1.13541E-02 0.00000E+00 0.00000E+00 + 4.00167E-02 1.00227E-02 4.93168E-02 1.25112E-02 0.00000E+00 + 0.00000E+00 4.35466E-02 1.10090E-02 5.38729E-02 1.37976E-02 + 0.00000E+00 0.00000E+00 4.71956E-02 1.20392E-02 5.96713E-02 + 1.54521E-02 0.00000E+00 0.00000E+00 5.23084E-02 1.34981E-02 + 6.52144E-02 1.70506E-02 0.00000E+00 0.00000E+00 5.67529E-02 + 1.47798E-02 7.12564E-02 1.88119E-02 0.00000E+00 0.00000E+00 + 6.17186E-02 1.62273E-02 7.78440E-02 2.07532E-02 0.00000E+00 + 0.00000E+00 6.70828E-02 1.78080E-02 8.50219E-02 2.28918E-02 + 0.00000E+00 0.00000E+00 7.28050E-02 1.95130E-02 9.28403E-02 + 2.52474E-02 0.00000E+00 0.00000E+00 7.91793E-02 2.14335E-02 + 1.01356E-01 2.78421E-02 0.00000E+00 0.00000E+00 8.58434E-02 + 2.34639E-02 1.11292E-01 3.09042E-02 0.00000E+00 0.00000E+00 + 9.38297E-02 2.59251E-02 1.23223E-01 3.46234E-02 0.00000E+00 + 0.00000E+00 1.03333E-01 2.88877E-02 1.34692E-01 3.82405E-02 + 0.00000E+00 0.00000E+00 1.12246E-01 3.16989E-02 1.47179E-01 + 4.22257E-02 0.00000E+00 0.00000E+00 1.22028E-01 3.48204E-02 + 1.60779E-01 4.66176E-02 0.00000E+00 0.00000E+00 1.32201E-01 + 3.81059E-02 1.75563E-01 5.14504E-02 0.00000E+00 0.00000E+00 + 1.43514E-01 4.18039E-02 1.91204E-01 5.66258E-02 0.00000E+00 + 0.00000E+00 1.55269E-01 4.56933E-02 2.07414E-01 6.20560E-02 + 0.00000E+00 0.00000E+00 1.67182E-01 4.96844E-02 2.26031E-01 + 6.83711E-02 0.00000E+00 0.00000E+00 1.80944E-01 5.43525E-02 + 2.46207E-01 7.53029E-02 0.00000E+00 0.00000E+00 1.95627E-01 + 5.93969E-02 2.68055E-01 8.29054E-02 0.00000E+00 0.00000E+00 + 2.11330E-01 6.48613E-02 2.93060E-01 9.17208E-02 0.00000E+00 + 0.00000E+00 2.29438E-01 7.12452E-02 3.21345E-01 1.01825E-01 + 0.00000E+00 0.00000E+00 2.49732E-01 7.84944E-02 3.49705E-01 + 1.12091E-01 0.00000E+00 0.00000E+00 2.69497E-01 8.56498E-02 + 3.80307E-01 1.23321E-01 0.00000E+00 0.00000E+00 2.90654E-01 + 9.34129E-02 4.13290E-01 1.35591E-01 0.00000E+00 0.00000E+00 + 3.13270E-01 1.01826E-01 4.48800E-01 1.48986E-01 0.00000E+00 + 0.00000E+00 3.37207E-01 1.10856E-01 4.86959E-01 1.63585E-01 + 0.00000E+00 0.00000E+00 3.62608E-01 1.20574E-01 5.27889E-01 + 1.79469E-01 0.00000E+00 0.00000E+00 3.89590E-01 1.31045E-01 + 5.64982E-01 1.94075E-01 0.00000E+00 0.00000E+00 4.12743E-01 + 1.40162E-01 6.06287E-01 2.10581E-01 0.00000E+00 0.00000E+00 + 4.38324E-01 1.50385E-01 -4.26952E+00 -1.76715E+00 0.00000E+00 + 0.00000E+00 -3.31990E+00 -1.37403E+00 1.56681E-01 5.56575E-02 + 0.00000E+00 0.00000E+00 1.10976E-01 3.88798E-02 1.69244E-01 + 6.09114E-02 0.00000E+00 0.00000E+00 1.18682E-01 4.21028E-02 + 1.82742E-01 6.66457E-02 0.00000E+00 0.00000E+00 1.26847E-01 + 4.55711E-02 2.01262E-01 7.46390E-02 0.00000E+00 0.00000E+00 + 1.38519E-01 5.06088E-02 2.20276E-01 8.29796E-02 0.00000E+00 + 0.00000E+00 1.50155E-01 5.57129E-02 2.38287E-01 9.10108E-02 + 0.00000E+00 0.00000E+00 1.60742E-01 6.04341E-02 2.57636E-01 + 9.97837E-02 0.00000E+00 0.00000E+00 1.71904E-01 6.54948E-02 + 2.78404E-01 1.09362E-01 0.00000E+00 0.00000E+00 1.83735E-01 + 7.09512E-02 3.00665E-01 1.19807E-01 0.00000E+00 0.00000E+00 + 1.96212E-01 7.68054E-02 3.24510E-01 1.31193E-01 0.00000E+00 + 0.00000E+00 2.09369E-01 8.30878E-02 3.50012E-01 1.43590E-01 + 0.00000E+00 0.00000E+00 2.23229E-01 8.98260E-02 3.77255E-01 + 1.57078E-01 0.00000E+00 0.00000E+00 2.37809E-01 9.70439E-02 + 4.06323E-01 1.71738E-01 0.00000E+00 0.00000E+00 2.53070E-01 + 1.04741E-01 4.37289E-01 1.87654E-01 0.00000E+00 0.00000E+00 + 2.69092E-01 1.12976E-01 4.76213E-01 2.08048E-01 0.00000E+00 + 0.00000E+00 2.89816E-01 1.23834E-01 5.15099E-01 2.28827E-01 + 0.00000E+00 0.00000E+00 3.09774E-01 1.34499E-01 5.53851E-01 + 2.49954E-01 0.00000E+00 0.00000E+00 3.28887E-01 1.44919E-01 + 5.94905E-01 2.72798E-01 0.00000E+00 0.00000E+00 3.48773E-01 + 1.55984E-01 6.38317E-01 2.97463E-01 0.00000E+00 0.00000E+00 + 3.69372E-01 1.67687E-01 6.84117E-01 3.24045E-01 0.00000E+00 + 0.00000E+00 3.90695E-01 1.80064E-01 7.32314E-01 3.52635E-01 + 0.00000E+00 0.00000E+00 4.12684E-01 1.93108E-01 7.82918E-01 + 3.83329E-01 0.00000E+00 0.00000E+00 4.35257E-01 2.06799E-01 + 8.26601E-01 4.10435E-01 0.00000E+00 0.00000E+00 4.52717E-01 + 2.17633E-01 8.79827E-01 4.44241E-01 0.00000E+00 0.00000E+00 + 4.75189E-01 2.31906E-01 9.35713E-01 4.80594E-01 0.00000E+00 + 0.00000E+00 4.98308E-01 2.46944E-01 9.93655E-01 5.19217E-01 + 0.00000E+00 0.00000E+00 5.21702E-01 2.62539E-01 1.05352E+00 + 5.60133E-01 0.00000E+00 0.00000E+00 5.45223E-01 2.78615E-01 + 1.11516E+00 6.03360E-01 0.00000E+00 0.00000E+00 5.68797E-01 + 2.95147E-01 1.17839E+00 6.48887E-01 0.00000E+00 0.00000E+00 + 5.92265E-01 3.12045E-01 1.24297E+00 6.96664E-01 0.00000E+00 + 0.00000E+00 6.15503E-01 3.29236E-01 1.30868E+00 7.46651E-01 + 0.00000E+00 0.00000E+00 6.38386E-01 3.46643E-01 1.37523E+00 + 7.98748E-01 0.00000E+00 0.00000E+00 6.60751E-01 3.64151E-01 + 1.44165E+00 8.52292E-01 0.00000E+00 0.00000E+00 6.82097E-01 + 3.81359E-01 1.47546E+00 8.80391E-01 0.00000E+00 0.00000E+00 + 6.85292E-01 3.84016E-01 1.53883E+00 9.34734E-01 0.00000E+00 + 0.00000E+00 7.03738E-01 3.99834E-01 1.60177E+00 9.90490E-01 + 0.00000E+00 0.00000E+00 7.21195E-01 4.15297E-01 1.66394E+00 + 1.04742E+00 0.00000E+00 0.00000E+00 7.37548E-01 4.30274E-01 + 1.72503E+00 1.10535E+00 0.00000E+00 0.00000E+00 7.52679E-01 + 4.44620E-01 1.78471E+00 1.16399E+00 0.00000E+00 0.00000E+00 + 7.66521E-01 4.58221E-01 1.84264E+00 1.22308E+00 0.00000E+00 + 0.00000E+00 7.78990E-01 4.70939E-01 1.88412E+00 1.26705E+00 + 0.00000E+00 0.00000E+00 7.83118E-01 4.75314E-01 1.89789E+00 + 1.28224E+00 0.00000E+00 0.00000E+00 7.74098E-01 4.65361E-01 + 1.94550E+00 1.33702E+00 0.00000E+00 0.00000E+00 7.81311E-01 + 4.73661E-01 1.99075E+00 1.39140E+00 0.00000E+00 0.00000E+00 + 7.87281E-01 4.80835E-01 2.03349E+00 1.44517E+00 0.00000E+00 + 0.00000E+00 7.92023E-01 4.86801E-01 2.07361E+00 1.49811E+00 + 0.00000E+00 0.00000E+00 7.95596E-01 4.91516E-01 2.10090E+00 + 1.53598E+00 0.00000E+00 0.00000E+00 7.93611E-01 4.88762E-01 + 2.10714E+00 1.54511E+00 0.00000E+00 0.00000E+00 7.82920E-01 + 4.73122E-01 2.13776E+00 1.59248E+00 0.00000E+00 0.00000E+00 + 7.83319E-01 4.73738E-01 2.16592E+00 1.63869E+00 0.00000E+00 + 0.00000E+00 7.82981E-01 4.73182E-01 2.19166E+00 1.68369E+00 + 0.00000E+00 0.00000E+00 7.81989E-01 4.71450E-01 2.20187E+00 + 1.70277E+00 0.00000E+00 0.00000E+00 7.75142E-01 4.58654E-01 + 2.19957E+00 1.69814E+00 0.00000E+00 0.00000E+00 7.64030E-01 + 4.36335E-01 2.21800E+00 1.73816E+00 0.00000E+00 0.00000E+00 + 7.61957E-01 4.31838E-01 2.23455E+00 1.77721E+00 0.00000E+00 + 0.00000E+00 7.59691E-01 4.26489E-01 2.24928E+00 1.81532E+00 + 0.00000E+00 0.00000E+00 7.57317E-01 4.20347E-01 2.26230E+00 + 1.85259E+00 0.00000E+00 0.00000E+00 7.54907E-01 4.13449E-01 + 2.27367E+00 1.88897E+00 0.00000E+00 0.00000E+00 7.52537E-01 + 4.05863E-01 2.28348E+00 1.92461E+00 0.00000E+00 0.00000E+00 + 7.50274E-01 3.97640E-01 2.27982E+00 1.90926E+00 0.00000E+00 + 0.00000E+00 7.43955E-01 3.71093E-01 2.28004E+00 1.91037E+00 + 0.00000E+00 0.00000E+00 7.39892E-01 3.50878E-01 2.28577E+00 + 1.94533E+00 0.00000E+00 0.00000E+00 7.38521E-01 3.42512E-01 + 2.29020E+00 1.98025E+00 0.00000E+00 0.00000E+00 7.37424E-01 + 3.33850E-01 2.29333E+00 2.01525E+00 0.00000E+00 0.00000E+00 + 7.36626E-01 3.24946E-01 2.29518E+00 2.05042E+00 0.00000E+00 + 0.00000E+00 7.36148E-01 3.15837E-01 2.29490E+00 2.03249E+00 + 0.00000E+00 0.00000E+00 7.35746E-01 2.89634E-01 2.29837E+00 + 1.87315E+00 -1.43318E-03 6.58142E-02 7.35828E-01 2.85885E-01 + 2.29727E+00 1.89180E+00 -1.65762E-03 6.96249E-02 7.36312E-01 + 2.77663E-01 2.29553E+00 1.90991E+00 -2.03126E-03 7.35161E-02 + 7.37106E-01 2.69390E-01 2.29318E+00 1.92756E+00 -2.55645E-03 + 7.74607E-02 7.38211E-01 2.61092E-01 2.29025E+00 1.94478E+00 + -3.23680E-03 8.14566E-02 7.39624E-01 2.52792E-01 2.28676E+00 + 1.96161E+00 -4.07582E-03 8.55024E-02 7.41341E-01 2.44515E-01 + 2.28273E+00 1.97809E+00 -5.07702E-03 8.95972E-02 7.43351E-01 + 2.36292E-01 2.27819E+00 1.99422E+00 -6.24347E-03 9.37391E-02 + 7.45648E-01 2.28136E-01 2.27315E+00 2.01005E+00 -7.57845E-03 + 9.79272E-02 7.48218E-01 2.20072E-01 2.26763E+00 2.02554E+00 + -9.08484E-03 1.02160E-01 7.51049E-01 2.12117E-01 2.39736E+00 + 1.69543E+00 -4.65120E-02 1.97397E-01 7.53268E-01 2.06473E-01 + 2.47845E+00 1.50690E+00 -6.94747E-02 2.50785E-01 7.56000E-01 + 2.00121E-01 2.48811E+00 1.48624E+00 -7.31190E-02 2.58585E-01 + 7.59414E-01 1.92815E-01 2.49918E+00 1.46428E+00 -7.69550E-02 + 2.66190E-01 7.63040E-01 1.85624E-01 2.51175E+00 1.44107E+00 + -8.09609E-02 2.73589E-01 7.66868E-01 1.78554E-01 2.52588E+00 + 1.41663E+00 -8.51136E-02 2.80766E-01 7.70880E-01 1.71621E-01 + 2.54168E+00 1.39099E+00 -8.93898E-02 2.87711E-01 7.75061E-01 + 1.64829E-01 2.55918E+00 1.36418E+00 -9.37634E-02 2.94410E-01 + 7.79401E-01 1.58183E-01 2.84822E+00 9.45253E-01 -1.54397E-01 + 3.82290E-01 7.86468E-01 1.47940E-01 2.90447E+00 8.67885E-01 + -1.63839E-01 3.95276E-01 7.90988E-01 1.41723E-01 2.93644E+00 + 8.26061E-01 -1.67518E-01 4.00090E-01 7.95355E-01 1.36008E-01 + 2.97039E+00 7.83690E-01 -1.70970E-01 4.04399E-01 7.99829E-01 + 1.30426E-01 3.00629E+00 7.40864E-01 -1.74159E-01 4.08202E-01 + 8.04389E-01 1.24987E-01 3.04412E+00 6.97669E-01 -1.77047E-01 + 4.11500E-01 8.09032E-01 1.19684E-01 3.08381E+00 6.54183E-01 + -1.79591E-01 4.14288E-01 8.13740E-01 1.14526E-01 3.12530E+00 + 6.10496E-01 -1.81757E-01 4.16568E-01 8.18498E-01 1.09515E-01 + 3.16853E+00 5.66693E-01 -1.83509E-01 4.18343E-01 8.23301E-01 + 1.04651E-01 3.21344E+00 5.22839E-01 -1.84811E-01 4.19614E-01 + 8.28130E-01 9.99338E-02 3.25991E+00 4.79049E-01 -1.85637E-01 + 4.20393E-01 8.32973E-01 9.53689E-02 3.60592E+00 1.64010E-01 + -2.29716E-01 4.60526E-01 8.44963E-01 8.44520E-02 3.60592E+00 + 1.64010E-01 -2.29716E-01 4.60526E-01 8.44963E-01 8.44520E-02 + DATA FOR MEDIUM # 1, WHICH IS: MEDIUM=WATER-3MEV-10KEV-02KEV ,STERNCID=WATER-3MEV-10KEV-02KEV + COMP,RHO= 1.000 ,NE= 2,COMPOSITION IS : + ASYM=H ,Z= 1.,A= 1.008,PZ= 1.00000E+00,RHOZ= 1.00797E+00 + ASYM=O ,Z= 8.,A= 15.999,PZ= 2.00000E+00,RHOZ= 3.19988E+01 + ECHO READ:$LGN(RLC,AE,AP,UE,UP(IM)) + 3.47257E+01 5.21000E-01 2.00000E-03 3.51100E+00 3.00200E+00 + ECHO READ:$LGN(MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE(IM)),IRAYL + 0 200 0 150 0 0 0 0 + ECHO READ:($LGN(DL(I,IM)/1,2,3,4,5,6/),I=1,6) + 9.99982E-01 -2.11119E-01 4.84469E-02 9.95866E-01 -2.26609E-01 + 9.52000E-01 1.00022E+00 -1.78818E-01 3.44729E-02 1.01418E+00 + -2.30775E-01 9.52000E-01 1.00034E+00 -1.62218E-01 2.48977E-02 + 1.02358E+00 -2.32916E-01 9.52000E-01 9.99982E-01 -2.11303E-01 + 4.84892E-02 9.95862E-01 -2.26807E-01 9.52000E-01 1.00022E+00 + -1.78977E-01 3.45035E-02 1.01419E+00 -2.30980E-01 9.52000E-01 + 1.00034E+00 -1.62363E-01 2.49200E-02 1.02361E+00 -2.33125E-01 + 9.52000E-01 + ECHO READ:DELCM(IM),($LGN(ALPHI,BPAR, DELPOS(I,IM)),I=1,2) + 3.50958E+01 9.41188E-01 8.53748E-01 2.28129E+00 9.41203E-01 + 8.53745E-01 2.27242E+00 + ECHO READ:$LGN(XR0,TEFF0,BLCC,XCC(IM)) + 9.14548E-02 7.71165E-05 2.59397E+05 4.90938E+00 + ECHO READ:$LGN(EKE(IM)/0,1/) + 1.21501E+02 2.59409E+01 + ECHO READ:($LGN(ESIG,PSIG,EDEDX,PDEDX,EBR1,PBR1,PBR2, TMXS(I,IM)/0,1/),I=1,NEKE) + 9.58348E+00 1.50056E+00 2.94082E+04 6.38129E+03 -1.71251E+03 + -5.22019E+02 -2.28131E+03 -6.61411E+02 1.00000E+00 0.00000E+00 + -1.83302E+01 -4.01496E+00 9.58001E+01 2.07640E+01 2.60014E-05 + 5.04571E-06 9.58348E+00 1.50056E+00 2.94082E+04 6.38129E+03 + -1.71251E+03 -5.22019E+02 -2.28131E+03 -6.61411E+02 1.00000E+00 + 0.00000E+00 -1.83302E+01 -4.01496E+00 9.58001E+01 2.07640E+01 + 2.60014E-05 5.04571E-06 9.53936E+00 1.49091E+00 2.61682E+04 + 5.67202E+03 -1.64546E+03 -5.07342E+02 -2.17918E+03 -6.39053E+02 + 1.00000E+00 0.00000E+00 -5.50955E-01 -1.22926E-01 3.86523E+00 + 6.38718E-01 2.76260E-05 5.40134E-06 9.49420E+00 1.48094E+00 + 2.32030E+04 5.01740E+03 -1.58010E+03 -4.92913E+02 -2.08048E+03 + -6.17264E+02 1.00000E+00 0.00000E+00 -1.82581E-01 -4.16000E-02 + 1.96110E+00 2.18337E-01 2.93619E-05 5.78457E-06 9.45084E+00 + 1.47128E+00 2.05300E+04 4.42221E+03 -1.51732E+03 -4.78933E+02 + -1.98641E+03 -5.96317E+02 1.00000E+00 0.00000E+00 -8.82227E-02 + -2.05895E-02 1.47390E+00 1.09855E-01 3.12133E-05 6.19683E-06 + 9.40401E+00 1.46076E+00 1.81103E+04 3.87876E+03 -1.45563E+03 + -4.65077E+02 -1.89503E+03 -5.75793E+02 1.00000E+00 0.00000E+00 + -5.01954E-02 -1.20487E-02 1.27798E+00 6.58529E-02 3.31711E-05 + 6.63654E-06 9.35659E+00 1.45002E+00 1.59324E+04 3.38534E+03 + -1.39697E+03 -4.51789E+02 -1.80868E+03 -5.56229E+02 1.00000E+00 + 0.00000E+00 -3.11381E-02 -7.73120E-03 1.18020E+00 4.36984E-02 + 3.52536E-05 7.10834E-06 9.31430E+00 1.44035E+00 1.39671E+04 + 2.93615E+03 -1.34000E+03 -4.38767E+02 -1.72554E+03 -5.37229E+02 + 1.00000E+00 0.00000E+00 -2.02055E-02 -5.23253E-03 1.12449E+00 + 3.09659E-02 3.74640E-05 7.61354E-06 9.26795E+00 1.42966E+00 + 1.22000E+04 2.52871E+03 -1.28462E+03 -4.25997E+02 -1.64550E+03 + -5.18772E+02 1.00000E+00 0.00000E+00 -1.33467E-02 -3.65100E-03 + 1.08983E+00 2.29717E-02 3.98065E-05 8.15369E-06 9.22210E+00 + 1.41900E+00 1.06118E+04 2.15920E+03 -1.23154E+03 -4.13649E+02 + -1.56934E+03 -5.01055E+02 1.00000E+00 0.00000E+00 -8.73870E-03 + -2.57895E-03 1.06683E+00 1.76252E-02 4.22996E-05 8.73371E-06 + 9.17693E+00 1.40840E+00 9.18609E+03 1.82451E+03 -1.18023E+03 + -4.01605E+02 -1.49630E+03 -4.83908E+02 1.00000E+00 0.00000E+00 + -5.47486E-03 -1.81274E-03 1.05083E+00 1.38678E-02 4.49417E-05 + 9.35396E-06 9.13276E+00 1.39793E+00 7.90638E+03 1.52134E+03 + -1.13067E+03 -3.89863E+02 -1.42631E+03 -4.67325E+02 1.00000E+00 + 0.00000E+00 -3.05859E-03 -1.24032E-03 1.03925E+00 1.11250E-02 + 4.77436E-05 1.00177E-05 9.08791E+00 1.38721E+00 6.76249E+03 + 1.24786E+03 -1.08279E+03 -3.78414E+02 -1.35923E+03 -4.51288E+02 + 1.00000E+00 0.00000E+00 -1.20822E-03 -7.97921E-04 1.03060E+00 + 9.05768E-03 5.07196E-05 1.07292E-05 9.04129E+00 1.37596E+00 + 5.73990E+03 1.00110E+03 -1.03680E+03 -3.67316E+02 -1.29524E+03 + -4.35847E+02 1.00000E+00 0.00000E+00 2.55628E-04 -4.44686E-04 + 1.02400E+00 7.46499E-03 5.38762E-05 1.14909E-05 8.99630E+00 + 1.36500E+00 4.82710E+03 7.78760E+02 -9.92134E+02 -3.56438E+02 + -1.23364E+03 -4.20844E+02 1.00000E+00 0.00000E+00 1.44853E-03 + -1.54125E-04 1.01881E+00 6.20029E-03 5.72200E-05 1.23054E-05 + 8.95282E+00 1.35431E+00 4.01497E+03 5.79075E+02 -9.49215E+02 + -3.45885E+02 -1.17486E+03 -4.06389E+02 1.00000E+00 0.00000E+00 + 2.44411E-03 9.06694E-05 1.01469E+00 5.18746E-03 6.07720E-05 + 1.31788E-05 8.90890E+00 1.34341E+00 3.29304E+03 3.99863E+02 + -9.07823E+02 -3.35610E+02 -1.11856E+03 -3.92415E+02 1.00000E+00 + 0.00000E+00 3.29417E-03 3.01686E-04 1.01136E+00 4.36030E-03 + 6.45288E-05 1.41114E-05 8.86335E+00 1.33199E+00 2.65263E+03 + 2.39355E+02 -8.68098E+02 -3.25654E+02 -1.06490E+03 -3.78966E+02 + 1.00000E+00 0.00000E+00 4.03442E-03 4.87221E-04 1.00862E+00 + 3.67222E-03 6.85169E-05 1.51109E-05 8.81951E+00 1.32090E+00 + 2.08741E+03 9.63062E+01 -8.29529E+02 -3.15893E+02 -1.01322E+03 + -3.65887E+02 1.00000E+00 0.00000E+00 4.69124E-03 6.53444E-04 + 1.00633E+00 3.09394E-03 7.27452E-05 1.61810E-05 1.33171E+04 + 3.40255E+03 1.58861E+03 -3.11690E+01 -9.28023E+02 -3.41065E+02 + -9.63850E+02 -3.53268E+02 -9.77141E+01 -2.52286E+01 5.28553E-03 + 8.05333E-04 1.00442E+00 2.60534E-03 7.72213E-05 1.73250E-05 + 1.11220E+04 2.83596E+03 1.15057E+03 -1.44236E+02 -8.75008E+02 + -3.27380E+02 -9.16823E+02 -3.41130E+02 -1.18758E+00 -3.13621E-01 + 5.82916E-03 9.45651E-04 1.00278E+00 2.18168E-03 8.19748E-05 + 1.85519E-05 9.35563E+03 2.37545E+03 7.67093E+02 -2.44212E+02 + -8.26381E+02 -3.14703E+02 -8.71534E+02 -3.29323E+02 -3.86996E-01 + -1.04900E-01 6.33359E-03 1.07716E-03 1.00140E+00 1.82142E-03 + 8.69918E-05 1.98599E-05 7.92489E+03 1.99866E+03 4.32306E+02 + -3.32380E+02 -7.81884E+02 -3.02985E+02 -8.28519E+02 -3.17994E+02 + -1.85121E-01 -5.17348E-02 6.81136E-03 1.20298E-03 1.00018E+00 + 1.49981E-03 9.23272E-05 2.12650E-05 6.75065E+03 1.68624E+03 + 1.41763E+02 -4.09684E+02 -7.40398E+02 -2.91947E+02 -7.87169E+02 + -3.06993E+02 -1.04477E-01 -3.02788E-02 7.26012E-03 1.32237E-03 + 9.99122E-01 1.21995E-03 9.79552E-05 2.27624E-05 5.78198E+03 + 1.42585E+03 -1.08792E+02 -4.77034E+02 -7.01772E+02 -2.81563E+02 + -7.47757E+02 -2.96399E+02 -6.43436E-02 -1.94905E-02 7.69443E-03 + 1.43912E-03 9.98213E-01 9.74104E-04 1.03924E-04 2.43669E-05 + 4.97347E+03 1.20624E+03 -3.23577E+02 -5.35376E+02 -6.65362E+02 + -2.71674E+02 -7.09916E+02 -2.86120E+02 -4.14998E-02 -1.32854E-02 + 8.11333E-03 1.55291E-03 9.97390E-01 7.51452E-04 1.10237E-04 + 2.60817E-05 4.29573E+03 1.02020E+03 -5.07117E+02 -5.85760E+02 + -6.31281E+02 -2.62317E+02 -6.73986E+02 -2.76257E+02 -2.72909E-02 + -9.38504E-03 8.52180E-03 1.66504E-03 9.96660E-01 5.51996E-04 + 1.16930E-04 2.79188E-05 3.72206E+03 8.61035E+02 -6.60935E+02 + -6.28433E+02 -5.98749E+02 -2.53293E+02 -6.39342E+02 -2.66645E+02 + -1.78360E-02 -6.76186E-03 8.91919E-03 1.77529E-03 9.96011E-01 + 3.71087E-04 1.23991E-04 2.98781E-05 3.23500E+03 7.24445E+02 + -7.90564E+02 -6.64786E+02 -5.68169E+02 -2.44717E+02 -6.06489E+02 + -2.57431E+02 -1.12267E-02 -4.90837E-03 9.31359E-03 1.88590E-03 + 9.95442E-01 2.11829E-04 1.31475E-04 3.19767E-05 2.81664E+03 + 6.05839E+02 -8.96189E+02 -6.94733E+02 -5.38913E+02 -2.36422E+02 + -5.74898E+02 -2.48475E+02 -6.39686E-03 -3.53908E-03 9.70055E-03 + 1.99560E-03 9.94910E-01 6.03017E-05 1.39379E-04 3.42175E-05 + 2.45758E+03 5.02918E+02 -9.82334E+02 -7.19426E+02 -5.11193E+02 + -2.28477E+02 -5.44838E+02 -2.39859E+02 -2.76170E-03 -2.49711E-03 + 1.00855E-02 2.10595E-03 9.94434E-01 -7.57637E-05 1.47741E-04 + 3.66146E-05 2.14574E+03 4.12534E+02 -1.05064E+03 -7.39223E+02 + -4.84791E+02 -2.20824E+02 -5.16134E+02 -2.31540E+02 7.34444E-05 + -1.67538E-03 1.04694E-02 2.21722E-03 9.94013E-01 -1.97913E-04 + 1.56577E-04 3.91754E-05 1.87555E+03 3.33337E+02 -1.10207E+03 + -7.54297E+02 -4.59455E+02 -2.13398E+02 -4.88562E+02 -2.23458E+02 + 2.32630E-03 -1.01503E-03 1.08498E-02 2.32872E-03 9.93611E-01 + -3.15424E-04 1.65904E-04 4.19093E-05 1.63946E+03 2.63348E+02 + -1.14050E+03 -7.65690E+02 -4.35403E+02 -2.06268E+02 -4.62362E+02 + -2.15691E+02 4.16719E-03 -4.69271E-04 1.12325E-02 2.44218E-03 + 9.93259E-01 -4.20566E-04 1.75772E-04 4.48348E-05 1.43288E+03 + 2.01393E+02 -1.16591E+03 -7.73309E+02 -4.12377E+02 -1.99362E+02 + -4.37295E+02 -2.08173E+02 5.69735E-03 -1.03885E-05 1.16131E-02 + 2.55629E-03 9.92918E-01 -5.21068E-04 1.86177E-04 4.79551E-05 + 1.25162E+03 1.46400E+02 -1.18076E+03 -7.77820E+02 -3.90373E+02 + -1.92686E+02 -4.13353E+02 -2.00910E+02 6.99601E-03 3.83616E-04 + 1.19959E-02 2.67244E-03 9.92615E-01 -6.13844E-04 1.97168E-04 + 5.12899E-05 1.09205E+03 9.74129E+01 -1.18601E+03 -7.79427E+02 + -3.69362E+02 -1.86236E+02 -3.90526E+02 -1.93902E+02 8.11831E-03 + 7.28162E-04 1.23801E-02 2.79039E-03 9.92337E-01 -6.98881E-04 + 2.08778E-04 5.48539E-05 9.51497E+02 5.37501E+01 -1.18292E+03 + -7.78470E+02 -3.49231E+02 -1.79982E+02 -3.68690E+02 -1.87118E+02 + 9.09729E-03 1.03228E-03 1.27631E-02 2.90938E-03 9.92071E-01 + -7.80830E-04 2.21003E-04 5.86520E-05 8.27461E+02 1.47501E+01 + -1.17293E+03 -7.75326E+02 -3.30018E+02 -1.73941E+02 -3.47884E+02 + -1.80576E+02 9.97031E-03 1.30679E-03 1.31499E-02 3.03100E-03 + 9.91842E-01 -8.53501E-04 2.33914E-04 6.27115E-05 7.18422E+02 + -1.99560E+01 -1.15635E+03 -7.70050E+02 -3.11609E+02 -1.68081E+02 + -3.27995E+02 -1.74245E+02 1.07536E-02 1.55609E-03 1.35376E-02 + 3.15439E-03 9.91620E-01 -9.24626E-04 2.47515E-04 6.70404E-05 + 6.22037E+02 -5.10157E+01 -1.13480E+03 -7.63103E+02 -2.94033E+02 + -1.62418E+02 -3.09044E+02 -1.68139E+02 1.14668E-02 1.78594E-03 + 1.39269E-02 3.27984E-03 9.91422E-01 -9.89566E-04 2.61862E-04 + 7.16638E-05 5.36981E+02 -7.87711E+01 -1.10895E+03 -7.54670E+02 + -2.77226E+02 -1.56933E+02 -2.90961E+02 -1.62238E+02 1.21218E-02 + 1.99966E-03 1.43172E-02 3.40721E-03 9.91218E-01 -1.05451E-03 + 2.76973E-04 7.65944E-05 4.62357E+02 -1.03429E+02 -1.07897E+03 + -7.44762E+02 -2.61158E+02 -1.51624E+02 -2.73720E+02 -1.56541E+02 + 1.27360E-02 2.20261E-03 1.47134E-02 3.53815E-03 9.91051E-01 + -1.11017E-03 2.92888E-04 8.18535E-05 3.96580E+02 -1.25447E+02 + -1.04605E+03 -7.33745E+02 -2.45772E+02 -1.46474E+02 -2.57244E+02 + -1.51026E+02 1.32988E-02 2.39099E-03 1.51022E-02 3.66827E-03 + 9.90890E-01 -1.16429E-03 3.09644E-04 8.74621E-05 3.38954E+02 + -1.44985E+02 -1.01060E+03 -7.21725E+02 -2.31082E+02 -1.41493E+02 + -2.41554E+02 -1.45706E+02 1.38389E-02 2.57414E-03 1.54991E-02 + 3.80286E-03 9.90735E-01 -1.21686E-03 3.27274E-04 9.34402E-05 + 2.88732E+02 -1.62243E+02 -9.73037E+02 -7.08818E+02 -2.17036E+02 + -1.36667E+02 -2.26587E+02 -1.40563E+02 1.43474E-02 2.74885E-03 + 1.58945E-02 3.93870E-03 9.90599E-01 -1.26170E-03 3.45829E-04 + 9.98155E-05 2.44901E+02 -1.77504E+02 -9.33985E+02 -6.95221E+02 + -2.03626E+02 -1.31998E+02 -2.12334E+02 -1.35600E+02 1.48342E-02 + 2.91833E-03 1.62914E-02 4.07689E-03 9.90469E-01 -1.30964E-03 + 3.65345E-04 1.06611E-04 2.07046E+02 -1.90864E+02 -8.93795E+02 + -6.81035E+02 -1.90811E+02 -1.27474E+02 -1.98738E+02 -1.30802E+02 + 1.52991E-02 3.08244E-03 1.66882E-02 4.21695E-03 9.90358E-01 + -1.34674E-03 3.85843E-04 1.13845E-04 1.74420E+02 -2.02538E+02 + -8.52705E+02 -6.66331E+02 -1.78572E+02 -1.23096E+02 -1.85789E+02 + -1.26169E+02 1.57491E-02 3.24345E-03 1.70863E-02 4.35938E-03 + 9.90247E-01 -1.38694E-03 4.07401E-04 1.21559E-04 1.46554E+02 + -2.12647E+02 -8.11045E+02 -6.51219E+02 -1.66877E+02 -1.18853E+02 + -1.73442E+02 -1.21689E+02 1.61806E-02 3.39997E-03 1.74813E-02 + 4.50271E-03 9.90154E-01 -1.42096E-03 4.30035E-04 1.29770E-04 + 1.23051E+02 -2.21296E+02 -7.69176E+02 -6.35815E+02 -1.55720E+02 + -1.14747E+02 -1.61688E+02 -1.17365E+02 1.66011E-02 3.55473E-03 + 1.78785E-02 4.64885E-03 9.90061E-01 -1.45343E-03 4.53799E-04 + 1.38515E-04 1.03365E+02 -2.28644E+02 -7.27288E+02 -6.20178E+02 + -1.45063E+02 -1.10769E+02 -1.50482E+02 -1.13182E+02 1.70081E-02 + 3.70662E-03 1.82729E-02 4.79606E-03 9.89993E-01 -1.48126E-03 + 4.78732E-04 1.47820E-04 8.71642E+01 -2.34779E+02 -6.85597E+02 + -6.04391E+02 -1.34910E+02 -1.06925E+02 -1.39831E+02 -1.09149E+02 + 1.74033E-02 3.85629E-03 1.86654E-02 4.94467E-03 9.89919E-01 + -1.50754E-03 5.04901E-04 1.57731E-04 7.39657E+01 -2.39850E+02 + -6.44336E+02 -5.88534E+02 -1.25219E+02 -1.03201E+02 -1.29686E+02 + -1.05250E+02 1.77904E-02 4.00505E-03 1.90567E-02 5.09505E-03 + 9.89857E-01 -1.53074E-03 5.32321E-04 1.68268E-04 6.36901E+01 + -2.43859E+02 -6.03544E+02 -5.72622E+02 -1.15967E+02 -9.95915E+01 + -1.20017E+02 -1.01478E+02 1.81682E-02 4.15241E-03 1.94460E-02 + 5.24695E-03 9.89814E-01 -1.54929E-03 5.61073E-04 1.79483E-04 + 5.59192E+01 -2.46936E+02 -5.63353E+02 -5.56705E+02 -1.07157E+02 + -9.61027E+01 -1.10827E+02 -9.78388E+01 1.85349E-02 4.29766E-03 + 1.98302E-02 5.39908E-03 9.89764E-01 -1.56784E-03 5.91179E-04 + 1.91407E-04 5.03396E+01 -2.49181E+02 -5.24020E+02 -5.40886E+02 + -9.87555E+01 -9.27235E+01 -1.02082E+02 -9.43215E+01 1.88965E-02 + 4.44305E-03 2.02134E-02 5.55318E-03 9.89733E-01 -1.58176E-03 + 6.22691E-04 2.04080E-04 4.67835E+01 -2.50633E+02 -4.85483E+02 + -5.25143E+02 -9.07511E+01 -8.94534E+01 -9.37602E+01 -9.09217E+01 + 1.92457E-02 4.58573E-03 2.05888E-02 5.70657E-03 9.89715E-01 + -1.59104E-03 6.55684E-04 2.17558E-04 4.49627E+01 -2.51389E+02 + -4.47955E+02 -5.09568E+02 -8.31275E+01 -8.62894E+01 -8.58524E+01 + -8.76395E+01 1.95923E-02 4.72958E-03 2.09639E-02 5.86224E-03 + 9.89696E-01 -1.59877E-03 6.90187E-04 2.31879E-04 4.47572E+01 + -2.51475E+02 -4.11323E+02 -4.94116E+02 -7.58622E+01 -8.32250E+01 + -7.83251E+01 -8.44650E+01 1.99280E-02 4.87118E-03 2.13306E-02 + 6.01691E-03 9.89678E-01 -1.60496E-03 7.26247E-04 2.47088E-04 + 4.59064E+01 -2.50982E+02 -3.75817E+02 -4.78891E+02 -6.89498E+01 + -8.02613E+01 -7.11759E+01 -8.13997E+01 2.02566E-02 5.01209E-03 + 2.16922E-02 6.17196E-03 9.89678E-01 -1.60495E-03 7.63920E-04 + 2.63242E-04 4.82972E+01 -2.49941E+02 -3.41380E+02 -4.63879E+02 + -6.23712E+01 -7.73932E+01 -6.43828E+01 -7.84378E+01 2.05781E-02 + 5.15227E-03 2.20480E-02 6.32705E-03 9.89690E-01 -1.60031E-03 + 8.03276E-04 2.80400E-04 5.17203E+01 -2.48422E+02 -3.08058E+02 + -4.49102E+02 -5.61128E+01 -7.46179E+01 -5.79296E+01 -7.55761E+01 + 2.08915E-02 5.29121E-03 2.23959E-02 6.48133E-03 9.89684E-01 + -1.60031E-03 8.44349E-04 2.98613E-04 5.61092E+01 -2.46443E+02 + -2.75840E+02 -4.34567E+02 -5.01532E+01 -7.19294E+01 -5.17919E+01 + -7.28073E+01 2.11983E-02 5.42959E-03 2.27372E-02 6.63534E-03 + 9.89715E-01 -1.58794E-03 8.87174E-04 3.17932E-04 6.12581E+01 + -2.44079E+02 -2.44789E+02 -4.20311E+02 -4.44964E+01 -6.93322E+01 + -4.59737E+01 -7.01361E+01 2.14965E-02 5.56655E-03 2.30700E-02 + 6.78810E-03 9.89746E-01 -1.57403E-03 9.31844E-04 3.38441E-04 + 6.70783E+01 -2.41359E+02 -2.14905E+02 -4.06344E+02 -3.91132E+01 + -6.68161E+01 -4.04452E+01 -6.75521E+01 2.17879E-02 5.70269E-03 + 2.33949E-02 6.93996E-03 9.89777E-01 -1.56011E-03 9.78371E-04 + 3.60188E-04 7.34907E+01 -2.38307E+02 -1.86133E+02 -3.92649E+02 + -3.40019E+01 -6.43832E+01 -3.52020E+01 -6.50565E+01 2.20655E-02 + 5.83487E-03 2.37055E-02 7.08779E-03 9.89814E-01 -1.54156E-03 + 1.02684E-03 3.83256E-04 8.03749E+01 -2.34967E+02 -1.58508E+02 + -3.79254E+02 -2.91419E+01 -6.20270E+01 -3.02229E+01 -6.26423E+01 + 2.23381E-02 5.96704E-03 2.40093E-02 7.23512E-03 9.89863E-01 + -1.51837E-03 1.07725E-03 4.07700E-04 8.76328E+01 -2.31383E+02 + -1.32035E+02 -3.66174E+02 -2.45306E+01 -5.97484E+01 -2.55035E+01 + -6.03105E+01 2.26209E-02 6.10678E-03 2.43200E-02 7.38862E-03 + 9.89913E-01 -1.49208E-03 1.12971E-03 4.33622E-04 9.52010E+01 + -2.27570E+02 -1.06655E+02 -3.53391E+02 -2.01535E+01 -5.75435E+01 + -2.10279E+01 -5.80561E+01 2.28714E-02 6.23291E-03 2.45981E-02 + 7.52870E-03 9.89974E-01 -1.46270E-03 1.18423E-03 4.61082E-04 + 1.02998E+02 -2.23564E+02 -8.24084E+01 -3.40935E+02 -1.60010E+01 + -5.54105E+01 -1.67879E+01 -5.58780E+01 2.31149E-02 6.35803E-03 + 2.48674E-02 7.66701E-03 9.90046E-01 -1.42560E-03 1.24087E-03 + 4.90179E-04 1.10972E+02 -2.19386E+02 -5.92061E+01 -3.28777E+02 + -1.20604E+01 -5.33455E+01 -1.27678E+01 -5.37712E+01 2.33592E-02 + 6.48606E-03 2.51337E-02 7.80656E-03 9.90111E-01 -1.39158E-03 + 1.29967E-03 5.20989E-04 1.19061E+02 -2.15059E+02 -3.70731E+01 + -3.16938E+02 -8.32423E+00 -5.13474E+01 -8.96032E+00 -5.17349E+01 + 2.35891E-02 6.60903E-03 2.53835E-02 7.94018E-03 9.90194E-01 + -1.34828E-03 1.36068E-03 5.53619E-04 1.27203E+02 -2.10614E+02 + -1.59661E+01 -3.05412E+02 -4.78673E+00 -4.94154E+01 -5.35712E+00 + -4.97673E+01 2.38134E-02 6.73149E-03 2.56244E-02 8.07175E-03 + 9.90274E-01 -1.30344E-03 1.42394E-03 5.88170E-04 1.35360E+02 + -2.06063E+02 4.12768E+00 -2.94202E+02 -1.43368E+00 -4.75449E+01 + -1.94588E+00 -4.78643E+01 2.40248E-02 6.84944E-03 2.58501E-02 + 8.19762E-03 9.90358E-01 -1.25706E-03 1.48949E-03 6.24735E-04 + 1.43500E+02 -2.01423E+02 2.32683E+01 -2.83290E+02 1.74124E+00 + -4.57346E+01 1.28169E+00 -4.60241E+01 2.42284E-02 6.96547E-03 + 2.60642E-02 8.31973E-03 9.90448E-01 -1.20449E-03 1.55735E-03 + 6.63427E-04 1.51560E+02 -1.96723E+02 4.14304E+01 -2.72703E+02 + 4.74596E+00 -4.39833E+01 4.33311E+00 -4.42453E+01 2.44230E-02 + 7.07893E-03 2.62668E-02 8.43784E-03 9.90543E-01 -1.14882E-03 + 1.62762E-03 7.04383E-04 1.59543E+02 -1.91963E+02 5.87058E+01 + -2.62401E+02 7.58879E+00 -4.22881E+01 7.21908E+00 -4.25246E+01 + 2.46071E-02 7.18873E-03 2.64555E-02 8.55033E-03 9.90649E-01 + -1.08698E-03 1.70025E-03 7.47695E-04 1.67387E+02 -1.87175E+02 + 7.50709E+01 -2.52413E+02 1.02755E+01 -4.06482E+01 9.94296E+00 + -4.08620E+01 2.47815E-02 7.29518E-03 2.66313E-02 8.65767E-03 + 9.90748E-01 -1.02667E-03 1.77532E-03 7.93517E-04 1.75090E+02 + -1.82361E+02 9.05825E+01 -2.42716E+02 1.28143E+01 -3.90611E+01 + 1.25164E+01 -3.92533E+01 2.49466E-02 7.39836E-03 2.67948E-02 + 8.75984E-03 9.90856E-01 -9.60189E-04 1.85285E-03 8.41977E-04 + 1.82625E+02 -1.77535E+02 1.05269E+02 -2.33310E+02 1.52134E+01 + -3.75246E+01 1.49460E+01 -3.76971E+01 2.51010E-02 7.49727E-03 + 2.69445E-02 8.85570E-03 9.90967E-01 -8.87517E-04 1.93285E-03 + 8.93220E-04 1.89960E+02 -1.72718E+02 1.19152E+02 -2.24193E+02 + 1.74766E+01 -3.60382E+01 1.72364E+01 -3.61930E+01 2.52461E-02 + 7.59258E-03 2.70816E-02 8.94580E-03 9.91075E-01 -8.17943E-04 + 2.01536E-03 9.47403E-04 1.97111E+02 -1.67899E+02 1.32277E+02 + -2.15350E+02 1.96124E+01 -3.45994E+01 1.93963E+01 -3.47377E+01 + 2.53816E-02 7.68383E-03 2.72064E-02 9.02986E-03 9.91187E-01 + -7.40629E-04 2.10037E-03 1.00468E-03 2.04030E+02 -1.63114E+02 + 1.44643E+02 -2.06795E+02 2.16260E+01 -3.32065E+01 2.14316E+01 + -3.33298E+01 2.55062E-02 7.77000E-03 2.73176E-02 9.10674E-03 + 9.91304E-01 -6.60226E-04 2.18792E-03 1.06524E-03 2.10732E+02 + -1.58350E+02 1.56321E+02 -1.98496E+02 2.35224E+01 -3.18587E+01 + 2.33480E+01 -3.19679E+01 2.56213E-02 7.85178E-03 2.74162E-02 + 9.17683E-03 9.91419E-01 -5.79824E-04 2.27799E-03 1.12926E-03 + 2.17195E+02 -1.53628E+02 1.67302E+02 -1.90472E+02 2.53074E+01 + -3.05544E+01 2.51498E+01 -3.06512E+01 2.57284E-02 7.93008E-03 + 2.75047E-02 9.24152E-03 9.91533E-01 -4.93237E-04 2.37060E-03 + 1.19692E-03 2.23420E+02 -1.48947E+02 1.77637E+02 -1.82701E+02 + 2.69875E+01 -2.92912E+01 2.68454E+01 -2.93765E+01 2.58218E-02 + 8.00031E-03 2.75770E-02 9.29591E-03 9.91654E-01 -4.05104E-04 + 2.46572E-03 1.26844E-03 2.29394E+02 -1.44321E+02 1.87345E+02 + -1.75185E+02 2.85660E+01 -2.80688E+01 2.84378E+01 -2.81434E+01 + 2.59092E-02 8.06803E-03 2.76412E-02 9.34558E-03 9.91768E-01 + -3.16970E-04 2.56335E-03 1.34405E-03 2.35126E+02 -1.39747E+02 + 1.96459E+02 -1.67910E+02 3.00482E+01 -2.68858E+01 2.99320E+01 + -2.69506E+01 2.59859E-02 8.12918E-03 2.76923E-02 9.38643E-03 + 9.91886E-01 -2.22652E-04 2.66346E-03 1.42395E-03 2.40600E+02 + -1.35239E+02 2.04995E+02 -1.60881E+02 3.14399E+01 -2.57399E+01 + 3.13340E+01 -2.57961E+01 2.60539E-02 8.18518E-03 2.77333E-02 + 9.42016E-03 9.92000E-01 -1.29881E-04 2.76603E-03 1.50841E-03 + 2.45827E+02 -1.30793E+02 2.12987E+02 -1.54083E+02 3.27430E+01 + -2.46315E+01 3.26468E+01 -2.46797E+01 2.61132E-02 8.23563E-03 + 2.77641E-02 9.44635E-03 9.92114E-01 -3.09239E-05 2.87103E-03 + 1.59772E-03 2.50801E+02 -1.26420E+02 2.20454E+02 -1.47518E+02 + 3.39639E+01 -2.35580E+01 3.38760E+01 -2.35988E+01 2.61630E-02 + 8.27941E-03 2.77840E-02 9.46380E-03 9.92220E-01 6.33945E-05 + 2.97839E-03 1.69211E-03 2.55523E+02 -1.22121E+02 2.27428E+02 + -1.41171E+02 3.51055E+01 -2.25189E+01 3.50249E+01 -2.25530E+01 + 2.62046E-02 8.31729E-03 2.77945E-02 9.47345E-03 9.92334E-01 + 1.65443E-04 3.08803E-03 1.79191E-03 2.60000E+02 -1.17899E+02 + 2.33924E+02 -1.35043E+02 3.61719E+01 -2.15130E+01 3.60982E+01 + -2.15408E+01 2.62388E-02 8.34951E-03 2.77969E-02 9.47563E-03 + 9.92439E-01 2.64400E-04 3.19992E-03 1.89745E-03 2.64233E+02 + -1.13755E+02 2.39966E+02 -1.29128E+02 3.71668E+01 -2.05391E+01 + 3.70983E+01 -2.05617E+01 2.62643E-02 8.37449E-03 2.77900E-02 + 9.46891E-03 9.92544E-01 3.67995E-04 3.31392E-03 2.00904E-03 + 2.68224E+02 -1.09695E+02 2.45585E+02 -1.23413E+02 3.80939E+01 + -1.95960E+01 3.80303E+01 -1.96136E+01 2.62831E-02 8.39368E-03 + 2.77758E-02 9.45442E-03 9.92640E-01 4.65405E-04 3.42996E-03 + 2.12709E-03 2.71980E+02 -1.05718E+02 2.50787E+02 -1.17904E+02 + 3.89554E+01 -1.86839E+01 3.88965E+01 -1.86966E+01 2.62943E-02 + 8.40556E-03 2.77542E-02 9.43156E-03 9.92741E-01 5.72093E-04 + 3.54789E-03 2.25195E-03 2.75505E+02 -1.01828E+02 2.55606E+02 + -1.12586E+02 3.97564E+01 -1.77996E+01 3.97009E+01 -1.78086E+01 + 2.62995E-02 8.41122E-03 2.77262E-02 9.40064E-03 9.92832E-01 + 6.72596E-04 3.66758E-03 2.38406E-03 2.78804E+02 -9.80248E+01 + 2.60056E+02 -1.07456E+02 4.04979E+01 -1.69449E+01 4.04457E+01 + -1.69500E+01 2.62976E-02 8.40909E-03 2.76916E-02 9.36073E-03 + 9.92920E-01 7.74645E-04 3.78884E-03 2.52385E-03 2.81882E+02 + -9.43112E+01 2.64152E+02 -1.02514E+02 4.11845E+01 -1.61166E+01 + 4.11351E+01 -1.61184E+01 2.62908E-02 8.40083E-03 2.76525E-02 + 9.31362E-03 9.93007E-01 8.78240E-04 3.91150E-03 2.67185E-03 + 2.84746E+02 -9.06854E+01 2.67918E+02 -9.77478E+01 4.18175E+01 + -1.53154E+01 4.17705E+01 -1.53141E+01 2.62784E-02 8.38517E-03 + 2.76085E-02 9.25800E-03 9.93085E-01 9.78743E-04 4.03534E-03 + 2.82854E-03 2.87404E+02 -8.71507E+01 2.71372E+02 -9.31538E+01 + 4.24009E+01 -1.45395E+01 4.23558E+01 -1.45356E+01 2.62614E-02 + 8.36256E-03 2.75606E-02 9.19427E-03 9.93160E-01 1.07615E-03 + 4.16004E-03 2.99443E-03 2.89861E+02 -8.37059E+01 2.74526E+02 + -8.87314E+01 4.29361E+01 -1.37891E+01 4.28929E+01 -1.37827E+01 + 2.62395E-02 8.33188E-03 2.75090E-02 9.12190E-03 9.93231E-01 + 1.17821E-03 4.28541E-03 3.17020E-03 2.92124E+02 -8.03512E+01 + 2.77400E+02 -8.44702E+01 4.34267E+01 -1.30619E+01 4.33850E+01 + -1.30533E+01 2.62142E-02 8.29438E-03 2.74551E-02 9.04192E-03 + 9.93297E-01 1.27407E-03 4.41103E-03 3.35641E-03 2.94201E+02 + -7.70864E+01 2.80009E+02 -8.03702E+01 4.38739E+01 -1.23589E+01 + 4.38333E+01 -1.23483E+01 2.61855E-02 8.24916E-03 2.73990E-02 + 8.95379E-03 9.93359E-01 1.37148E-03 4.53655E-03 3.55373E-03 + 2.96095E+02 -7.39170E+01 2.82366E+02 -7.64257E+01 4.42804E+01 + -1.16785E+01 4.42409E+01 -1.16663E+01 2.61542E-02 8.19682E-03 + 2.73418E-02 8.85801E-03 9.93413E-01 1.46269E-03 4.66159E-03 + 3.76299E-03 2.97820E+02 -7.08304E+01 2.84489E+02 -7.26283E+01 + 4.46485E+01 -1.10200E+01 4.46099E+01 -1.10061E+01 2.61204E-02 + 8.13638E-03 2.72836E-02 8.75395E-03 9.93464E-01 1.55548E-03 + 4.78562E-03 3.98486E-03 2.99375E+02 -6.78427E+01 2.86387E+02 + -6.89795E+01 4.49799E+01 -1.03833E+01 4.49419E+01 -1.03682E+01 + 2.60853E-02 8.06898E-03 2.72256E-02 8.64257E-03 9.93512E-01 + 1.64516E-03 4.90811E-03 4.22022E-03 3.00775E+02 -6.49381E+01 + 2.88078E+02 -6.54717E+01 4.52768E+01 -9.76726E+00 4.52394E+01 + -9.75083E+00 2.60488E-02 7.99321E-03 2.71680E-02 8.52297E-03 + 9.93551E-01 1.72864E-03 5.02847E-03 4.46999E-03 3.02022E+02 + -6.21246E+01 2.89571E+02 -6.21040E+01 4.55411E+01 -9.17106E+00 + 4.55042E+01 -9.15384E+00 2.60117E-02 7.90957E-03 2.71116E-02 + 8.39581E-03 9.93589E-01 1.81370E-03 5.14600E-03 4.73508E-03 + 3.03126E+02 -5.93989E+01 2.90883E+02 -5.88630E+01 4.57725E+01 + -8.59938E+00 4.57359E+01 -8.58117E+00 2.59750E-02 7.81878E-03 + 2.70571E-02 8.26109E-03 9.93620E-01 1.89253E-03 5.25996E-03 + 5.01658E-03 3.04092E+02 -5.67603E+01 2.92020E+02 -5.57588E+01 + 4.59573E+01 -8.09490E+00 4.59211E+01 -8.07580E+00 2.59388E-02 + 7.71992E-03 2.70051E-02 8.11918E-03 9.93650E-01 1.97141E-03 + 5.36945E-03 5.31552E-03 3.04928E+02 -5.42113E+01 2.92997E+02 + -5.27784E+01 4.61127E+01 -7.62080E+00 4.60765E+01 -7.60131E+00 + 2.59037E-02 7.61295E-03 2.69560E-02 7.96920E-03 9.93674E-01 + 2.04406E-03 5.47356E-03 5.63323E-03 3.05641E+02 -5.17443E+01 + 2.93823E+02 -4.99212E+01 4.62447E+01 -7.16401E+00 4.62089E+01 + -7.14372E+00 2.58707E-02 7.49886E-03 2.69108E-02 7.81293E-03 + 9.93693E-01 2.11057E-03 5.57119E-03 5.97084E-03 3.06238E+02 + -4.93632E+01 2.94510E+02 -4.71814E+01 4.63550E+01 -6.72416E+00 + 4.63192E+01 -6.70358E+00 2.58393E-02 7.37348E-03 2.68689E-02 + 7.64575E-03 9.93711E-01 2.18012E-03 5.66115E-03 6.32979E-03 + 3.06725E+02 -4.70649E+01 2.95065E+02 -4.45593E+01 4.64448E+01 + -6.30071E+00 4.64090E+01 -6.27973E+00 2.58119E-02 7.24417E-03 + 2.68328E-02 7.47567E-03 9.93723E-01 2.24045E-03 5.74210E-03 + 6.71154E-03 3.07110E+02 -4.48484E+01 2.95502E+02 -4.20460E+01 + 4.65155E+01 -5.89342E+00 4.64798E+01 -5.87215E+00 2.57875E-02 + 7.10377E-03 2.68014E-02 7.29487E-03 9.93733E-01 2.29763E-03 + 5.81257E-03 7.11768E-03 3.07398E+02 -4.27131E+01 2.95826E+02 + -3.96446E+01 4.65683E+01 -5.50192E+00 4.65326E+01 -5.48045E+00 + 2.57676E-02 6.95638E-03 2.67763E-02 7.10840E-03 9.93740E-01 + 2.35178E-03 5.87091E-03 7.54993E-03 3.07596E+02 -4.06588E+01 + 2.96047E+02 -3.73473E+01 4.66046E+01 -5.12569E+00 4.65689E+01 + -5.10412E+00 2.57526E-02 6.80036E-03 2.67575E-02 6.91386E-03 + 9.93745E-01 2.40281E-03 5.91527E-03 8.00999E-03 3.07710E+02 + -3.86807E+01 2.96174E+02 -3.51555E+01 4.66255E+01 -4.76483E+00 + 4.65898E+01 -4.74316E+00 2.57431E-02 6.63643E-03 2.67459E-02 + 6.71292E-03 9.93748E-01 2.44916E-03 5.94362E-03 8.49996E-03 + 3.07747E+02 -3.67812E+01 2.96215E+02 -3.30581E+01 4.66321E+01 + -4.41854E+00 4.65965E+01 -4.39677E+00 2.57397E-02 6.46097E-03 + 2.67418E-02 6.50088E-03 9.93749E-01 2.49094E-03 5.95370E-03 + 9.02184E-03 3.07716E+02 -3.51658E+01 2.96180E+02 -3.12685E+01 + 4.66258E+01 -4.08698E+00 4.65901E+01 -4.06531E+00 2.57560E-02 + 5.61435E-03 2.67592E-02 5.59416E-03 9.93748E-01 2.52183E-03 + 5.94300E-03 9.57793E-03 3.07616E+02 -3.34404E+01 2.96072E+02 + -2.93911E+01 4.66074E+01 -3.76898E+00 4.65717E+01 -3.74731E+00 + 2.57723E-02 5.33234E-03 2.67776E-02 5.27546E-03 9.93746E-01 + 2.55433E-03 5.90876E-03 1.01706E-02 3.07456E+02 -3.17768E+01 + 2.95898E+02 -2.75913E+01 4.65781E+01 -3.46524E+00 4.65425E+01 + -3.44377E+00 2.57964E-02 5.08188E-03 2.68050E-02 4.99095E-03 + 9.93743E-01 2.58368E-03 5.84789E-03 1.08025E-02 3.07241E+02 + -3.01843E+01 2.95667E+02 -2.58777E+01 4.65390E+01 -3.17494E+00 + 4.65034E+01 -3.15357E+00 2.58316E-02 4.82131E-03 2.68446E-02 + 4.69747E-03 9.93740E-01 2.60690E-03 5.75701E-03 1.14763E-02 + 3.06977E+02 -2.86585E+01 2.95385E+02 -2.42521E+01 4.64908E+01 + -2.89743E+00 4.64553E+01 -2.87626E+00 2.58788E-02 4.54874E-03 + 2.68973E-02 4.39378E-03 9.93736E-01 2.63007E-03 5.63235E-03 + 1.21950E-02 3.06669E+02 -2.72069E+01 2.95058E+02 -2.27095E+01 + 4.64348E+01 -2.63315E+00 4.63993E+01 -2.61217E+00 2.59393E-02 + 4.26333E-03 2.69643E-02 4.07793E-03 9.93733E-01 2.64401E-03 + 5.46977E-03 1.29620E-02 3.06321E+02 -2.58188E+01 2.94691E+02 + -2.12439E+01 4.63717E+01 -2.38108E+00 4.63362E+01 -2.36020E+00 + 2.60139E-02 3.96554E-03 2.70462E-02 3.75100E-03 9.93731E-01 + 2.65635E-03 5.26472E-03 1.37805E-02 3.05940E+02 -2.44986E+01 + 2.94292E+02 -1.98643E+01 4.63023E+01 -2.14124E+00 4.62670E+01 + -2.12085E+00 2.61036E-02 3.65518E-03 2.71437E-02 3.41344E-03 + 9.93726E-01 2.66875E-03 5.01214E-03 1.46542E-02 3.05527E+02 + -2.32399E+01 2.93864E+02 -1.85565E+01 4.62276E+01 -1.91314E+00 + 4.61923E+01 -1.89285E+00 2.62103E-02 3.32971E-03 2.72589E-02 + 3.06183E-03 9.93726E-01 2.67030E-03 4.70646E-03 1.55873E-02 + 3.05089E+02 -2.20442E+01 2.93410E+02 -1.73173E+01 4.61484E+01 + -1.69690E+00 4.61132E+01 -1.67691E+00 2.63318E-02 2.99791E-03 + 2.73897E-02 2.70486E-03 9.93725E-01 2.67336E-03 4.34160E-03 + 1.65837E-02 3.04536E+02 -2.06757E+01 2.92845E+02 -1.59210E+01 + 4.60653E+01 -1.49168E+00 4.60303E+01 -1.47199E+00 2.61618E-02 + 3.41784E-03 2.72190E-02 3.12653E-03 9.93724E-01 2.67494E-03 + 3.91076E-03 1.76482E-02 3.03900E+02 -1.92434E+01 2.92201E+02 + -1.44674E+01 4.59791E+01 -1.29702E+00 4.59442E+01 -1.27782E+00 + 2.58020E-02 4.22960E-03 2.68528E-02 3.95264E-03 9.93723E-01 + 2.67645E-03 3.40659E-03 1.87856E-02 3.03394E+02 -1.81923E+01 + 2.91688E+02 -1.34044E+01 4.58906E+01 -1.11347E+00 4.58559E+01 + -1.09457E+00 2.59220E-02 3.98052E-03 2.69821E-02 3.68432E-03 + 9.93728E-01 2.66721E-03 2.82087E-03 2.00012E-02 3.02876E+02 + -1.71962E+01 2.91168E+02 -1.24035E+01 4.58004E+01 -9.40082E-01 + 4.57658E+01 -9.21379E-01 2.60637E-02 3.70814E-03 2.71334E-02 + 3.39345E-03 9.93733E-01 2.65635E-03 2.14468E-03 2.13006E-02 + 3.02350E+02 -1.62559E+01 2.90645E+02 -1.14687E+01 4.57091E+01 + -7.76715E-01 4.56747E+01 -7.58408E-01 2.62277E-02 3.41475E-03 + 2.73071E-02 3.08270E-03 9.93743E-01 2.64092E-03 1.36827E-03 + 2.26897E-02 3.01818E+02 -1.53651E+01 2.90120E+02 -1.05907E+01 + 4.56171E+01 -6.22730E-01 4.55830E+01 -6.04819E-01 2.64018E-02 + 3.12340E-03 2.74906E-02 2.77555E-03 9.93753E-01 2.62388E-03 + 4.80550E-04 2.41755E-02 3.01284E+02 -1.45253E+01 2.89595E+02 + -9.76431E+00 4.55253E+01 -4.78458E-01 4.54914E+01 -4.60943E-01 + 2.65979E-02 2.81506E-03 2.76966E-02 2.45175E-03 9.93766E-01 + 2.60227E-03 -5.29987E-04 2.57644E-02 3.00751E+02 -1.37351E+01 + 2.89079E+02 -8.99866E+00 4.54341E+01 -3.43080E-01 4.54003E+01 + -3.25862E-01 2.68129E-02 2.49642E-03 2.79208E-02 2.11934E-03 + 9.93778E-01 2.58368E-03 -1.67667E-03 2.74643E-02 2.99959E+02 + -1.26246E+01 2.88306E+02 -7.91579E+00 4.53438E+01 -2.16518E-01 + 4.53103E+01 -1.99696E-01 2.61776E-02 3.38716E-03 2.72706E-02 + 3.03115E-03 9.93795E-01 2.56206E-03 -2.97362E-03 2.92830E-02 + 2.99404E+02 -1.18867E+01 2.87775E+02 -7.20963E+00 4.52546E+01 + -9.79677E-02 4.52215E+01 -8.15408E-02 2.63357E-02 3.17692E-03 + 2.74360E-02 2.81110E-03 9.93814E-01 2.53578E-03 -4.43655E-03 + 3.12292E-02 2.98873E+02 -1.12145E+01 2.87274E+02 -6.57543E+00 + 4.51678E+01 1.18747E-02 4.51349E+01 2.80046E-02 2.65618E-02 + 2.89074E-03 2.76705E-02 2.51439E-03 9.93837E-01 2.50792E-03 + -6.08261E-03 3.33122E-02 2.98344E+02 -1.05758E+01 2.86781E+02 + -5.98018E+00 4.50831E+01 1.13999E-01 4.50506E+01 1.29733E-01 + 2.67956E-02 2.60869E-03 2.79117E-02 2.22320E-03 9.93863E-01 + 2.47702E-03 -7.93059E-03 3.55421E-02 2.97829E+02 -9.98268E+00 + 2.86305E+02 -5.43150E+00 4.50008E+01 2.08896E-01 4.49687E+01 + 2.24234E-01 2.70573E-02 2.30691E-03 2.81811E-02 1.91268E-03 + 9.93889E-01 2.44452E-03 -1.00012E-02 3.79294E-02 2.97212E+02 + -9.30198E+00 2.85732E+02 -4.79824E+00 4.49217E+01 2.96278E-01 + 4.48901E+01 3.11023E-01 2.69540E-02 2.42097E-03 2.80753E-02 + 2.02944E-03 9.93917E-01 2.41363E-03 -1.23168E-02 4.04857E-02 + 2.96084E+02 -8.10727E+00 2.84655E+02 -3.65900E+00 4.48458E+01 + 3.76726E-01 4.48139E+01 3.91569E-01 2.51117E-02 4.37170E-03 + 2.61874E-02 4.02845E-03 9.93942E-01 2.38731E-03 -1.49020E-02 + 4.32230E-02 2.95575E+02 -7.58962E+00 2.84196E+02 -3.19196E+00 + 4.47732E+01 4.50651E-01 4.47420E+01 4.64703E-01 2.53067E-02 + 4.17331E-03 2.63887E-02 3.82367E-03 9.93974E-01 2.35333E-03 + -1.77844E-02 4.61554E-02 2.95071E+02 -7.09554E+00 2.83751E+02 + -2.75652E+00 4.47041E+01 5.18233E-01 4.46732E+01 5.32185E-01 + 2.54921E-02 3.99182E-03 2.65789E-02 3.63755E-03 9.94019E-01 + 2.31155E-03 -2.09930E-02 4.92965E-02 2.94582E+02 -6.63488E+00 + 2.83328E+02 -2.35677E+00 4.46394E+01 5.79296E-01 4.46090E+01 + 5.92655E-01 2.57008E-02 3.79497E-03 2.67919E-02 3.43664E-03 + 9.94056E-01 2.27756E-03 -2.45599E-02 5.26612E-02 2.94582E+02 + -6.63488E+00 2.83328E+02 -2.35677E+00 4.46394E+01 5.79296E-01 + 4.46090E+01 5.92655E-01 2.57008E-02 3.79497E-03 2.67919E-02 + 3.43664E-03 9.94056E-01 2.27756E-03 -2.45599E-02 5.26612E-02 + ECHO READ:EBINDA(IM),$LGN(GE(IM)/0,1/) + 5.32984E-04 1.69413E+02 2.69387E+01 + ECHO READ:($LGN(GMFP,GBR1,GBR2(I,IM)/0,1/),I=1,NGE) + 8.51133E-04 1.30019E-04 0.00000E+00 0.00000E+00 6.22213E-02 + 1.00121E-02 8.51133E-04 1.30019E-04 0.00000E+00 0.00000E+00 + 6.22213E-02 1.00121E-02 9.42922E-04 1.44877E-04 0.00000E+00 + 0.00000E+00 2.68960E-02 4.29371E-03 1.04530E-03 1.61550E-04 + 0.00000E+00 0.00000E+00 -1.66913E-02 -2.80478E-03 1.15470E-03 + 1.79475E-04 0.00000E+00 0.00000E+00 5.46514E-03 8.25496E-04 + 1.27892E-03 1.99952E-04 0.00000E+00 0.00000E+00 -2.08805E-02 + -3.51759E-03 1.41017E-03 2.21722E-04 0.00000E+00 0.00000E+00 + 3.25850E-02 5.35047E-03 1.56148E-03 2.46975E-04 0.00000E+00 + 0.00000E+00 6.61464E-03 1.01621E-03 1.72333E-03 2.74155E-04 + 0.00000E+00 0.00000E+00 3.93070E-02 6.50634E-03 1.91232E-03 + 3.06091E-04 0.00000E+00 0.00000E+00 -2.43453E-02 -4.25003E-03 + 2.10851E-03 3.39454E-04 0.00000E+00 0.00000E+00 2.62992E-02 + 4.36222E-03 2.33824E-03 3.78768E-04 0.00000E+00 0.00000E+00 + 9.97717E-03 1.56897E-03 2.64799E-03 4.32117E-04 0.00000E+00 + 0.00000E+00 3.18350E-02 5.33349E-03 2.93885E-03 4.82533E-04 + 0.00000E+00 0.00000E+00 1.34617E-02 2.14874E-03 3.24902E-03 + 5.36644E-04 0.00000E+00 0.00000E+00 6.18206E-02 1.05854E-02 + 3.61565E-03 6.01024E-04 0.00000E+00 0.00000E+00 -6.12684E-03 + -1.34590E-03 4.00312E-03 6.69507E-04 0.00000E+00 0.00000E+00 + 1.84619E-02 3.00009E-03 4.42962E-03 7.45389E-04 0.00000E+00 + 0.00000E+00 4.85873E-02 8.35986E-03 4.90768E-03 8.31008E-04 + 0.00000E+00 0.00000E+00 5.42018E-02 9.36538E-03 5.50002E-03 + 9.37803E-04 0.00000E+00 0.00000E+00 -5.12840E-03 -1.33162E-03 + 6.17161E-03 1.05970E-03 0.00000E+00 0.00000E+00 6.28243E-02 + 1.10026E-02 6.86057E-03 1.18561E-03 0.00000E+00 0.00000E+00 + 5.13323E-02 8.90247E-03 7.61917E-03 1.32518E-03 0.00000E+00 + 0.00000E+00 5.65088E-02 9.85490E-03 8.46056E-03 1.48106E-03 + 0.00000E+00 0.00000E+00 6.21511E-02 1.09002E-02 9.38035E-03 + 1.65263E-03 0.00000E+00 0.00000E+00 9.13296E-02 1.63431E-02 + 1.04613E-02 1.85567E-03 0.00000E+00 0.00000E+00 5.24186E-02 + 9.03408E-03 1.16651E-02 2.08339E-03 0.00000E+00 0.00000E+00 + 5.64207E-02 9.79110E-03 1.29379E-02 2.32584E-03 0.00000E+00 + 0.00000E+00 8.86081E-02 1.59227E-02 1.43528E-02 2.59730E-03 + 0.00000E+00 0.00000E+00 1.12268E-01 2.04620E-02 1.59481E-02 + 2.90555E-03 0.00000E+00 0.00000E+00 1.07793E-01 1.95972E-02 + 1.79923E-02 3.30340E-03 0.00000E+00 0.00000E+00 1.20030E-01 + 2.19789E-02 2.04786E-02 3.79084E-03 0.00000E+00 0.00000E+00 + 1.34852E-01 2.48844E-02 2.27673E-02 4.24280E-03 0.00000E+00 + 0.00000E+00 1.87896E-01 3.53596E-02 2.54219E-02 4.77089E-03 + 0.00000E+00 0.00000E+00 1.66112E-01 3.10260E-02 2.82778E-02 + 5.34327E-03 0.00000E+00 0.00000E+00 2.04984E-01 3.88165E-02 + 3.15305E-02 6.00005E-03 0.00000E+00 0.00000E+00 2.01524E-01 + 3.81179E-02 3.50429E-02 6.71463E-03 0.00000E+00 0.00000E+00 + 2.46834E-01 4.73359E-02 3.89831E-02 7.52233E-03 0.00000E+00 + 0.00000E+00 2.71639E-01 5.24207E-02 4.37840E-02 8.51402E-03 + 0.00000E+00 0.00000E+00 2.86258E-01 5.54406E-02 4.88506E-02 + 9.56869E-03 0.00000E+00 0.00000E+00 3.47653E-01 6.82205E-02 + 5.44656E-02 1.07466E-02 0.00000E+00 0.00000E+00 3.48351E-01 + 6.83669E-02 6.02752E-02 1.19749E-02 0.00000E+00 0.00000E+00 + 4.55207E-01 9.09591E-02 6.72886E-02 1.34695E-02 0.00000E+00 + 0.00000E+00 4.23097E-01 8.41166E-02 7.44207E-02 1.50014E-02 + 0.00000E+00 0.00000E+00 5.25241E-01 1.06057E-01 8.18971E-02 + 1.66203E-02 0.00000E+00 0.00000E+00 5.72250E-01 1.16236E-01 + 9.02757E-02 1.84492E-02 0.00000E+00 0.00000E+00 6.23919E-01 + 1.27514E-01 9.99855E-02 2.05859E-02 0.00000E+00 0.00000E+00 + 6.56166E-01 1.34610E-01 1.10012E-01 2.28105E-02 0.00000E+00 + 0.00000E+00 7.68448E-01 1.59523E-01 1.21699E-01 2.54251E-02 + 0.00000E+00 0.00000E+00 7.94963E-01 1.65455E-01 1.33634E-01 + 2.81177E-02 0.00000E+00 0.00000E+00 9.08676E-01 1.91108E-01 + 1.47145E-01 3.11914E-02 0.00000E+00 0.00000E+00 9.70876E-01 + 2.05258E-01 1.61167E-01 3.44084E-02 0.00000E+00 0.00000E+00 + 1.08529E+00 2.31507E-01 1.76080E-01 3.78593E-02 0.00000E+00 + 0.00000E+00 1.20977E+00 2.60314E-01 1.93121E-01 4.18368E-02 + 0.00000E+00 0.00000E+00 1.26957E+00 2.74271E-01 2.09735E-01 + 4.57487E-02 0.00000E+00 0.00000E+00 1.42509E+00 3.10888E-01 + 2.30543E-01 5.06912E-02 0.00000E+00 0.00000E+00 1.52368E+00 + 3.34306E-01 2.50827E-01 5.55519E-02 0.00000E+00 0.00000E+00 + 1.65931E+00 3.66810E-01 2.71313E-01 6.05053E-02 0.00000E+00 + 0.00000E+00 1.79585E+00 3.99824E-01 2.92481E-01 6.56699E-02 + 0.00000E+00 0.00000E+00 1.93640E+00 4.34114E-01 3.14570E-01 + 7.11085E-02 0.00000E+00 0.00000E+00 2.06779E+00 4.66464E-01 + 3.37158E-01 7.67211E-02 0.00000E+00 0.00000E+00 2.19906E+00 + 4.99083E-01 3.58949E-01 8.21861E-02 0.00000E+00 0.00000E+00 + 2.35335E+00 5.37778E-01 3.82210E-01 8.80747E-02 0.00000E+00 + 0.00000E+00 2.46816E+00 5.66842E-01 4.07476E-01 9.45317E-02 + 0.00000E+00 0.00000E+00 2.64207E+00 6.11284E-01 4.29785E-01 + 1.00287E-01 0.00000E+00 0.00000E+00 2.76035E+00 6.41800E-01 + 4.50239E-01 1.05616E-01 0.00000E+00 0.00000E+00 2.88068E+00 + 6.73146E-01 4.68720E-01 1.10477E-01 0.00000E+00 0.00000E+00 + 2.99552E+00 7.03353E-01 4.85238E-01 1.14864E-01 0.00000E+00 + 0.00000E+00 3.09617E+00 7.30090E-01 5.01396E-01 1.19199E-01 + 0.00000E+00 0.00000E+00 3.16188E+00 7.47718E-01 5.13540E-01 + 1.22490E-01 0.00000E+00 0.00000E+00 3.22850E+00 7.65770E-01 + 5.24526E-01 1.25497E-01 0.00000E+00 0.00000E+00 3.26420E+00 + 7.75543E-01 5.31460E-01 1.27415E-01 0.00000E+00 0.00000E+00 + 3.29219E+00 7.83283E-01 5.35548E-01 1.28557E-01 0.00000E+00 + 0.00000E+00 3.30003E+00 7.85473E-01 5.39005E-01 1.29533E-01 + 0.00000E+00 0.00000E+00 3.27938E+00 7.79642E-01 5.40661E-01 + 1.30005E-01 0.00000E+00 0.00000E+00 3.28985E+00 7.82631E-01 + 5.38211E-01 1.29299E-01 0.00000E+00 0.00000E+00 3.23302E+00 + 7.66241E-01 5.32011E-01 1.27492E-01 0.00000E+00 0.00000E+00 + 3.16733E+00 7.47094E-01 5.23792E-01 1.25070E-01 0.00000E+00 + 0.00000E+00 3.08744E+00 7.23550E-01 5.14518E-01 1.22306E-01 + 0.00000E+00 0.00000E+00 2.99398E+00 6.95704E-01 5.02099E-01 + 1.18565E-01 0.00000E+00 0.00000E+00 2.89656E+00 6.66355E-01 + 4.90559E-01 1.15049E-01 0.00000E+00 0.00000E+00 2.78711E+00 + 6.33004E-01 4.76812E-01 1.10812E-01 0.00000E+00 0.00000E+00 + 2.67974E+00 5.99916E-01 4.63725E-01 1.06732E-01 0.00000E+00 + 0.00000E+00 2.57041E+00 5.65834E-01 4.49851E-01 1.02356E-01 + 0.00000E+00 0.00000E+00 2.45575E+00 5.29671E-01 4.34867E-01 + 9.75747E-02 0.00000E+00 0.00000E+00 2.34440E+00 4.94136E-01 + 4.23096E-01 9.37731E-02 0.00000E+00 0.00000E+00 2.23189E+00 + 4.57800E-01 4.09274E-01 8.92553E-02 0.00000E+00 0.00000E+00 + 2.12709E+00 4.23543E-01 3.96111E-01 8.48999E-02 0.00000E+00 + 0.00000E+00 2.02355E+00 3.89284E-01 3.83676E-01 8.07340E-02 + 0.00000E+00 0.00000E+00 1.92197E+00 3.55253E-01 3.72791E-01 + 7.70414E-02 0.00000E+00 0.00000E+00 1.83435E+00 3.25529E-01 + 3.63250E-01 7.37638E-02 0.00000E+00 0.00000E+00 1.75237E+00 + 2.97367E-01 3.54737E-01 7.08013E-02 0.00000E+00 0.00000E+00 + 1.67648E+00 2.70959E-01 3.47024E-01 6.80821E-02 0.00000E+00 + 0.00000E+00 1.61159E+00 2.48083E-01 3.40889E-01 6.58908E-02 + 0.00000E+00 0.00000E+00 1.55359E+00 2.27365E-01 3.34737E-01 + 6.36637E-02 0.00000E+00 0.00000E+00 1.49338E+00 2.05568E-01 + 3.29090E-01 6.15916E-02 0.00000E+00 0.00000E+00 1.43899E+00 + 1.85608E-01 3.23925E-01 5.96704E-02 0.00000E+00 0.00000E+00 + 1.38999E+00 1.67382E-01 3.19932E-01 5.81635E-02 0.00000E+00 + 0.00000E+00 1.34575E+00 1.50694E-01 3.16607E-01 5.68918E-02 + 0.00000E+00 0.00000E+00 1.30609E+00 1.35519E-01 3.13630E-01 + 5.57361E-02 0.00000E+00 0.00000E+00 1.27068E+00 1.21776E-01 + 3.11679E-01 5.49682E-02 0.00000E+00 0.00000E+00 1.24002E+00 + 1.09701E-01 3.10515E-01 5.45029E-02 0.00000E+00 0.00000E+00 + 1.21206E+00 9.85321E-02 3.09070E-01 5.39169E-02 0.00000E+00 + 0.00000E+00 1.18680E+00 8.82825E-02 3.08311E-01 5.36042E-02 + 0.00000E+00 0.00000E+00 1.16432E+00 7.90280E-02 3.08126E-01 + 5.35271E-02 0.00000E+00 0.00000E+00 1.14442E+00 7.07058E-02 + 3.08341E-01 5.36182E-02 0.00000E+00 0.00000E+00 1.12682E+00 + 6.32298E-02 3.08497E-01 5.36857E-02 0.00000E+00 0.00000E+00 + 1.11057E+00 5.62146E-02 3.09403E-01 5.40831E-02 0.00000E+00 + 0.00000E+00 1.09659E+00 5.00841E-02 3.10266E-01 5.44676E-02 + 0.00000E+00 0.00000E+00 1.08475E+00 4.48047E-02 3.11705E-01 + 5.51203E-02 0.00000E+00 0.00000E+00 1.07429E+00 4.00631E-02 + 3.13175E-01 5.57983E-02 0.00000E+00 0.00000E+00 1.06510E+00 + 3.58209E-02 3.14907E-01 5.66109E-02 0.00000E+00 0.00000E+00 + 1.05700E+00 3.20215E-02 3.16818E-01 5.75236E-02 0.00000E+00 + 0.00000E+00 1.04988E+00 2.86227E-02 3.18814E-01 5.84938E-02 + 0.00000E+00 0.00000E+00 1.04364E+00 2.55848E-02 3.20896E-01 + 5.95247E-02 0.00000E+00 0.00000E+00 1.03815E+00 2.28712E-02 + 3.23262E-01 6.07177E-02 0.00000E+00 0.00000E+00 1.03333E+00 + 2.04402E-02 3.25566E-01 6.19019E-02 0.00000E+00 0.00000E+00 + 1.02911E+00 1.82709E-02 3.27899E-01 6.31246E-02 0.00000E+00 + 0.00000E+00 1.02466E+00 1.59395E-02 3.30375E-01 6.44477E-02 + 0.00000E+00 0.00000E+00 1.02128E+00 1.41315E-02 3.33029E-01 + 6.58948E-02 0.00000E+00 0.00000E+00 1.01862E+00 1.26832E-02 + 3.35681E-01 6.73700E-02 0.00000E+00 0.00000E+00 1.01628E+00 + 1.13842E-02 3.38449E-01 6.89432E-02 0.00000E+00 0.00000E+00 + 1.01423E+00 1.02185E-02 3.41190E-01 7.05336E-02 0.00000E+00 + 0.00000E+00 1.01243E+00 9.17321E-03 3.43940E-01 7.21648E-02 + 0.00000E+00 0.00000E+00 1.01086E+00 8.24021E-03 3.46774E-01 + 7.38834E-02 0.00000E+00 0.00000E+00 1.00947E+00 7.39573E-03 + 3.49428E-01 7.55308E-02 0.00000E+00 0.00000E+00 1.00759E+00 + 6.22680E-03 3.52279E-01 7.73412E-02 0.00000E+00 0.00000E+00 + 1.00661E+00 5.60701E-03 3.55170E-01 7.92219E-02 0.00000E+00 + 0.00000E+00 1.00579E+00 5.07232E-03 3.58018E-01 8.11206E-02 + 0.00000E+00 0.00000E+00 1.00507E+00 4.59383E-03 3.60897E-01 + 8.30883E-02 0.00000E+00 0.00000E+00 1.00443E+00 4.15709E-03 + 3.63736E-01 8.50794E-02 0.00000E+00 0.00000E+00 1.00387E+00 + 3.76048E-03 3.66598E-01 8.71390E-02 0.00000E+00 0.00000E+00 + 1.00338E+00 3.40884E-03 3.69432E-01 8.92361E-02 0.00000E+00 + 0.00000E+00 1.00294E+00 3.08289E-03 3.72253E-01 9.13820E-02 + 0.00000E+00 0.00000E+00 1.00256E+00 2.79708E-03 3.75060E-01 + 9.35798E-02 0.00000E+00 0.00000E+00 1.00222E+00 2.53051E-03 + 3.77847E-01 9.58265E-02 0.00000E+00 0.00000E+00 1.00193E+00 + 2.29290E-03 3.80617E-01 9.81291E-02 0.00000E+00 0.00000E+00 + 1.00171E+00 2.11146E-03 3.83363E-01 1.00484E-01 0.00000E+00 + 0.00000E+00 1.00147E+00 1.90433E-03 3.86086E-01 1.02896E-01 + 0.00000E+00 0.00000E+00 1.00127E+00 1.72770E-03 3.88765E-01 + 1.05349E-01 0.00000E+00 0.00000E+00 1.00109E+00 1.56393E-03 + 3.91436E-01 1.07882E-01 0.00000E+00 0.00000E+00 1.00093E+00 + 1.41620E-03 3.94067E-01 1.10466E-01 0.00000E+00 0.00000E+00 + 1.00079E+00 1.28133E-03 3.96657E-01 1.13109E-01 0.00000E+00 + 0.00000E+00 1.00067E+00 1.15930E-03 4.02064E-01 1.18841E-01 + 0.00000E+00 0.00000E+00 1.01022E+00 1.12815E-02 4.01636E-01 + 1.18367E-01 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 + 4.04142E-01 1.21251E-01 0.00000E+00 0.00000E+00 1.00000E+00 + 0.00000E+00 4.06592E-01 1.24196E-01 0.00000E+00 0.00000E+00 + 1.00000E+00 0.00000E+00 4.09001E-01 1.27226E-01 0.00000E+00 + 0.00000E+00 9.99998E-01 -1.60567E-06 4.11349E-01 1.30324E-01 + 0.00000E+00 0.00000E+00 1.00000E+00 1.60567E-06 4.13655E-01 + 1.33525E-01 0.00000E+00 0.00000E+00 9.99998E-01 -1.60567E-06 + 4.15889E-01 1.36794E-01 0.00000E+00 0.00000E+00 1.00000E+00 + 0.00000E+00 4.18069E-01 1.40165E-01 0.00000E+00 0.00000E+00 + 1.00000E+00 1.60567E-06 4.20177E-01 1.43626E-01 0.00000E+00 + 0.00000E+00 1.00000E+00 0.00000E+00 4.22219E-01 1.47194E-01 + 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 4.24179E-01 + 1.50858E-01 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 + 4.26061E-01 1.54637E-01 0.00000E+00 0.00000E+00 1.00000E+00 + 0.00000E+00 4.27852E-01 1.58523E-01 0.00000E+00 0.00000E+00 + 1.00000E+00 0.00000E+00 4.29550E-01 1.62530E-01 0.00000E+00 + 0.00000E+00 1.00000E+00 0.00000E+00 4.31143E-01 1.66652E-01 + 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 4.32632E-01 + 1.70914E-01 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 + 4.34000E-01 1.75295E-01 0.00000E+00 0.00000E+00 1.00000E+00 + 0.00000E+00 4.35245E-01 1.79819E-01 0.00000E+00 0.00000E+00 + 9.99999E-01 -1.60567E-06 4.36357E-01 1.84487E-01 0.00000E+00 + 0.00000E+00 1.00000E+00 1.60567E-06 4.37323E-01 1.89298E-01 + 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 4.38137E-01 + 1.94265E-01 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 + 4.38787E-01 1.99393E-01 0.00000E+00 0.00000E+00 1.00000E+00 + 0.00000E+00 4.39260E-01 2.04678E-01 0.00000E+00 0.00000E+00 + 1.00000E+00 0.00000E+00 4.39547E-01 2.10140E-01 0.00000E+00 + 0.00000E+00 1.00000E+00 0.00000E+00 4.39633E-01 2.15778E-01 + 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 4.39549E-01 + 2.19647E-01 -9.38290E-05 4.30879E-03 1.00000E+00 0.00000E+00 + 4.39204E-01 2.25508E-01 -1.03116E-04 4.46646E-03 1.00000E+00 + 0.00000E+00 4.38623E-01 2.31556E-01 -1.19034E-04 4.63224E-03 + 1.00000E+00 0.00000E+00 4.37793E-01 2.37794E-01 -1.41996E-04 + 4.80471E-03 1.00000E+00 0.00000E+00 4.36698E-01 2.44223E-01 + -1.72541E-04 4.98411E-03 1.00000E+00 0.00000E+00 4.35320E-01 + 2.50866E-01 -2.11255E-04 5.17079E-03 1.00000E+00 0.00000E+00 + 4.33647E-01 2.57712E-01 -2.58741E-04 5.36500E-03 1.00000E+00 + 0.00000E+00 4.31659E-01 2.64771E-01 -3.15650E-04 5.56708E-03 + 1.00000E+00 0.00000E+00 4.29335E-01 2.72060E-01 -3.82680E-04 + 5.77737E-03 1.00000E+00 0.00000E+00 4.26663E-01 2.79570E-01 + -4.60547E-04 5.99618E-03 1.00000E+00 0.00000E+00 4.25834E-01 + 2.81677E-01 -4.59346E-03 1.65128E-02 1.00000E+00 0.00000E+00 + 4.23869E-01 2.86248E-01 -7.14820E-03 2.24525E-02 1.00000E+00 + 0.00000E+00 4.20356E-01 2.93765E-01 -7.55061E-03 2.33138E-02 + 1.00000E+00 -1.60565E-06 4.16457E-01 3.01497E-01 -8.00200E-03 + 2.42087E-02 9.99998E-01 1.60567E-06 4.12162E-01 3.09428E-01 + -8.50534E-03 2.51383E-02 1.00000E+00 -1.60567E-06 4.07449E-01 + 3.17573E-01 -9.06405E-03 2.61039E-02 9.99998E-01 1.60567E-06 + 4.02300E-01 3.25937E-01 -9.68149E-03 2.71068E-02 1.00000E+00 + 0.00000E+00 3.96696E-01 3.34521E-01 -1.03613E-02 2.81481E-02 + 1.00000E+00 0.00000E+00 3.98420E-01 3.32021E-01 -2.31638E-02 + 4.67034E-02 1.00000E+00 0.00000E+00 3.93320E-01 3.39036E-01 + -2.56651E-02 5.01437E-02 1.00000E+00 0.00000E+00 3.87057E-01 + 3.47232E-01 -2.71124E-02 5.20375E-02 1.00000E+00 0.00000E+00 + 3.80365E-01 3.55584E-01 -2.86827E-02 5.39971E-02 1.00000E+00 + 0.00000E+00 3.73231E-01 3.64091E-01 -3.03822E-02 5.60241E-02 + 1.00000E+00 -1.60567E-06 3.65639E-01 3.72762E-01 -3.22179E-02 + 5.81207E-02 9.99998E-01 1.60565E-06 3.57593E-01 3.81578E-01 + -3.41956E-02 6.02876E-02 1.00000E+00 0.00000E+00 3.49073E-01 + 3.90548E-01 -3.63223E-02 6.25267E-02 1.00000E+00 0.00000E+00 + 3.40070E-01 3.99670E-01 -3.86047E-02 6.48393E-02 1.00000E+00 + 0.00000E+00 3.30592E-01 4.08926E-01 -4.10493E-02 6.72265E-02 + 1.00000E+00 0.00000E+00 3.20619E-01 4.18324E-01 -4.36634E-02 + 6.96898E-02 1.00000E+00 0.00000E+00 3.28567E-01 4.11087E-01 + -6.87622E-02 9.25423E-02 1.00000E+00 -1.60567E-06 3.28567E-01 + 4.11087E-01 -6.87622E-02 9.25423E-02 1.00000E+00 -1.60567E-06 diff --git a/code/input-output/hbook.out b/code/input-output/hbook.out new file mode 100644 index 0000000..6d7905e Binary files /dev/null and b/code/input-output/hbook.out differ diff --git a/code/input-output/hbook_y.out b/code/input-output/hbook_y.out new file mode 100644 index 0000000..23262fb Binary files /dev/null and b/code/input-output/hbook_y.out differ diff --git a/code/input-output/higz_windows.dat b/code/input-output/higz_windows.dat new file mode 100644 index 0000000..9035446 --- /dev/null +++ b/code/input-output/higz_windows.dat @@ -0,0 +1 @@ + 0 0 0 0 - diff --git a/code/input-output/hist_cyl_2.dat b/code/input-output/hist_cyl_2.dat new file mode 100644 index 0000000..c62dd5a --- /dev/null +++ b/code/input-output/hist_cyl_2.dat @@ -0,0 +1,82 @@ + 101 100 -10. 10. 0. + Zona 1 : aria r=10cm : Distribuzione energia ceduta lungo l' asse z + 102 100 -10. 10. 0. + Zona 2 : aria r=1cm : Distribuzione energia ceduta lungo l' asse z + 103 100 -10. 10. 0. + Zona 3 : aria : Distribuzione energia ceduta lungo l' asse z + 104 100 -10. 10. 0. + Zona 4 : YAP 1 : Distribuzione profondita energia ceduta + 105 100 -10. 10. 0. + Zona 5 : YAP 2 : Distribuzione profondita energia ceduta + 106 100 -10. 10. 0. + Zona 6 : YAP 3 : Distribuzione profondita energia ceduta + 107 100 -10. 10. 0. + Zona 7 : YAP 4 : Distribuzione profondita energia ceduta + 108 100 -10. 10. 0. + Zona 8 : fughe : Distribuzione profondita energia ceduta + 109 100 -10. 10. 0. + Zona 9 : assorbimenti da parte dei collimatori + 110 100 -10. 10. 0. + Zona 10 : uscite dai rivelatori + 501 72 0. 6.28 0. + DISTRIBUZIONE ANGOLO DECADIMENTO POSITRONI + 0 0 0. 0. 0. + 201 60 -30. 30. 60 -30. 30. 0. + Zona 1 : Aria r=10cm : Distribuzione energia ceduta nel piano x-y + 202 60 -30. 30. 60 -30. 30. 0. + Zona 2 : Aria r=1cm : Distribuzione energia ceduta nel piano x-y + 203 60 -30. 30. 60 -30. 30. 0. + Zona 3 : Aria Distribuzione energia ceduta nel piano x-y + 204 60 -30. 30. 60 -30. 30. 0. + Zona 4 : YAP 1 Distribuzione energia ceduta nel piano del yap + 205 60 -30. 30. 60 -30. 30. 0. + Zona 5 : YAP 2 Distribuzione energia ceduta nel piano del yap + 206 60 -30. 30. 60 -30. 30. 0. + Zona 6 : YAP 3 Distribuzione energia ceduta nel piano del yap + 207 60 -30. 30. 60 -30. 30. 0. + Zona 7 : YAP 4 Distribuzione energia ceduta nel piano del yap + 208 60 -30. 30. 60 -30. 30. 0. + Zona 8 : fughe dal sistema : distribuzione in x-y + 209 60 -30. 30. 60 -30. 30. 0. + Zona 9 : assorbimento dei collimatori distr x-y + 210 60 -30. 30. 60 -30. 30. 0. + Zona 10 : uscite dai rivelatori + 700 30 0. 30. 20 -10. 10. 0. + DISTRIBUZIONE R-Z , PESATA SU ENERGIA -- + 701 60 -30. 30. 60 -30. 30. 0. + DISTRIBUZIONE x-y , PESATA SU ENERGIA -- + 400 60 -30. 30. 60 -30. 30. 0. + DISTRIBUZIONE X-Y PUNTI DECADIMENTO POSITRONE + 401 30 0. 30. 20 -10. 10. 0. + DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPOSITRONE + 0 0 0. 0. 0 0. 0. 0. + 800 3 10 + x,y,z punti decadimento del positrone + x-decay + y-decay + z-decay + 801 16 10 + energia persa nei rivelatori a ogni evento + shower + rivelatore + xmedio + ymedio + zmedio + sigmax + sigmay + sigmaz + etot + etot-positroni + etot-elettroni + etot-gamma + num-part + num-positroni + num-elettroni + num-gamma + 0 0 0 0 0 +FINE DEGLI HISTOGRAMMI BIDIMENSIONALI + + +C----- TEMPLATE PER FORMATTED READ +12345678901234567890123456789012345678901234567890123456789012345678901234567890 + 1 2 3 4 5 6 7 8 diff --git a/code/input-output/hist_cyl_2_y.dat b/code/input-output/hist_cyl_2_y.dat new file mode 100644 index 0000000..a71e9aa --- /dev/null +++ b/code/input-output/hist_cyl_2_y.dat @@ -0,0 +1,90 @@ + 101 60 -3. 3. 0. + Zona 1 : H2O r=2cm : Distribuzione energia ceduta lungo l' asse z + 102 60 -3. 3. 0. + Zona 2 : Al r=0.5cm : Distribuzione energia ceduta lungo l' asse z + 103 60 -3. 3. 0. + Zona 3 : aria : Distribuzione energia ceduta lungo l' asse z + 104 40 -2. 2. 0. + Zona 4 : YAP 1 : Distribuzione profondita energia ceduta + 105 40 -2. 2. 0. + Zona 5 : YAP 2 : Distribuzione profondita energia ceduta + 106 40 -2. 2. 0. + Zona 6 : YAP 3 : Distribuzione profondita energia ceduta + 107 40 -2. 2. 0. + Zona 7 : YAP 4 : Distribuzione profondita energia ceduta + 108 40 -2. 2. 0. + Zona 8 : YAP 5 : Distribuzione profondita energia ceduta + 109 40 -2. 2. 0. + Zona 9 : YAP 6 : Distribuzione profondita energia ceduta + 110 100 -5. 5. 0. + Zona 10 : fughe : Distribuzione lungo asse z + 111 100 -5. 5. 0. + Zona 11 : assorbimenti da parte dei collimatori + 112 100 -5. 5. 0. + Zona 12 : part. uscenti dai rivelatori + 501 72 0. 6.28 0. + Distribuzione angolo decadimento positroni + 0 0 0. 0. 0. + 201 100 -10. 10. 100 -10. 10. 0. + Zona 1 : H2O r=0.5cm : Distribuzione energia ceduta nel piano x-y + 202 100 -10. 10. 100 -10. 10. 0. + Zona 2 : Al r=0.5cm : Distribuzione energia ceduta nel piano x-y + 203 100 -10. 10. 100 -10. 10. 0. + Zona 3 : Aria Distribuzione energia ceduta nel piano x-y + 204 70 -2.1 2.1 70 -2.1 2.1 0. + Zona 4 : YAP 1 Distribuzione energia ceduta nel piano del yap + 205 70 -2.1 2.1 70 -2.1 2.1 0. + Zona 5 : YAP 2 Distribuzione energia ceduta nel piano del yap + 206 70 -2.1 2.1 70 -2.1 2.1 0. + Zona 6 : YAP 3 Distribuzione energia ceduta nel piano del yap + 207 70 -2.1 2.1 70 -2.1 2.1 0. + Zona 7 : YAP 4 Distribuzione energia ceduta nel piano del yap + 208 70 -2.1 2.1 70 -2.1 2.1 0. + Zona 8 : YAP 5 Distribuzione energia ceduta nel piano del yap + 209 70 -2.1 2.1 70 -2.1 2.1 0. + Zona 9 : YAP 6 Distribuzione energia ceduta nel piano del yap + 210 70 -2.1 2.1 70 -2.1 2.1 0. + Zona 10 : fughe dal sistema : distribuzione in x-y + 211 100 -10. 10. 100 -10. 10. 0. + Zona 11 : assorbimento dei collimatori distribuzione x-y + 212 100 -10. 10. 100 -10. 10. 0. + Zona 12 : uscite dai rivelatori distribuzione x-y + 700 100 -10. 10. 30 -3. 3. 0. + DISTRIBUZIONE R-Z , PESATA SU ENERGIA -- + 701 100 -10. 10. 100 -10. 10. 0. + DISTRIBUZIONE x-y , PESATA SU ENERGIA -- + 400 100 -10. 10. 100 -10. 10. 0. + DISTRIBUZIONE X-Y PUNTI DECADIMENTO POSITRONE + 401 100 -10. 10. 30 -3. 3. 0. + DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPOSITRONE + 0 0 0. 0. 0 0. 0. 0. + 800 3 10 + x,y,z punti decadimento del positrone + x-decay + y-decay + z-decay + 801 16 10 + energia persa nei rivelatori a ogni evento + shower + rivelatore + xmedio + ymedio + zmedio + sigmax + sigmay + sigmaz + etot + etot-positroni + etot-elettroni + etot-gamma + num-part + num-positroni + num-elettroni + num-gamma + 0 0 0 0 0 +FINE DEGLI HISTOGRAMMI BIDIMENSIONALI + + +C----- TEMPLATE PER FORMATTED READ +12345678901234567890123456789012345678901234567890123456789012345678901234567890 + 1 2 3 4 5 6 7 8 diff --git a/code/input-output/last.kumac b/code/input-output/last.kumac new file mode 100644 index 0000000..c130403 --- /dev/null +++ b/code/input-output/last.kumac @@ -0,0 +1,9 @@ +*** Begin of history file: Sun Aug 7 10:41:41 1994 +histo/file 50 cyl_2_y.dat +histo/file 50 yaps_y.dat +histo/file 50 hist_cyl_2.dat +histo/file 50 hbook_y.out +histo/list +nt/list +exit +*** End of history file: Sun Aug 7 10:45:45 1994 diff --git a/code/input-output/mat3mev.dat b/code/input-output/mat3mev.dat new file mode 100644 index 0000000..f877a58 --- /dev/null +++ b/code/input-output/mat3mev.dat @@ -0,0 +1,5168 @@ + MEDIUM=AIR-3MEV-10KEV-02KEV ,STERNCID=AIR-3MEV-10KEV-02KEV + MIXT,RHO= 1.2050E-03,NE= 3, GASP= 1.0000E+00 + ASYM=N ,Z= 7.,A= 14.007,PZ= 5.56876E-02,RHOZ= 7.80000E-01 + ASYM=O ,Z= 8.,A= 15.999,PZ= 1.31255E-02,RHOZ= 2.10000E-01 + ASYM=AR,Z=18.,A= 39.948,PZ= 2.35306E-04,RHOZ= 9.40000E-03 + 3.05538E+04 5.21000E-01 2.00000E-03 3.51100E+00 3.00200E+00 + 0 200 0 150 0 0 0 0 + 9.99982E-01 -2.10278E-01 4.82540E-02 9.95882E-01 -2.25707E-01 + 9.52000E-01 1.00022E+00 -1.78093E-01 3.43331E-02 1.01412E+00 + -2.29840E-01 9.52000E-01 1.00034E+00 -1.61554E-01 2.47958E-02 + 1.02349E+00 -2.31963E-01 9.52000E-01 9.99982E-01 -2.10445E-01 + 4.82923E-02 9.95879E-01 -2.25886E-01 9.52000E-01 1.00022E+00 + -1.78237E-01 3.43609E-02 1.01413E+00 -2.30025E-01 9.52000E-01 + 1.00034E+00 -1.61686E-01 2.48160E-02 1.02351E+00 -2.32152E-01 + 9.52000E-01 + 3.57494E+01 9.41119E-01 8.53762E-01 2.27992E+00 9.41133E-01 + 8.53759E-01 2.27182E+00 + 8.97125E-02 7.46632E-05 2.67921E+05 4.89433E+00 + 1.21501E+02 2.59409E+01 + 9.55616E+00 1.49603E+00 3.02292E+04 6.55946E+03 -1.81716E+03 + -5.52574E+02 -2.40183E+03 -6.95855E+02 1.00000E+00 0.00000E+00 + -1.78806E+01 -3.91646E+00 9.62855E+01 2.08703E+01 2.59730E-05 + 5.04073E-06 9.55616E+00 1.49603E+00 3.02292E+04 6.55946E+03 + -1.81716E+03 -5.52574E+02 -2.40183E+03 -6.95855E+02 1.00000E+00 + 0.00000E+00 -1.78806E+01 -3.91646E+00 9.62855E+01 2.08703E+01 + 2.59730E-05 5.04073E-06 9.51049E+00 1.48603E+00 2.68987E+04 + 5.83038E+03 -1.74551E+03 -5.36889E+02 -2.29413E+03 -6.72279E+02 + 1.00000E+00 0.00000E+00 -5.34961E-01 -1.19357E-01 3.86660E+00 + 6.39018E-01 2.75971E-05 5.39626E-06 9.46618E+00 1.47625E+00 + 2.38507E+04 5.15747E+03 -1.67568E+03 -5.21473E+02 -2.19004E+03 + -6.49297E+02 1.00000E+00 0.00000E+00 -1.77248E-01 -4.03846E-02 + 1.96137E+00 2.18400E-01 2.93327E-05 5.77943E-06 9.42118E+00 + 1.46623E+00 2.11031E+04 4.54566E+03 -1.60865E+03 -5.06547E+02 + -2.09084E+03 -6.27210E+02 1.00000E+00 0.00000E+00 -8.56424E-02 + -1.99871E-02 1.47399E+00 1.09875E-01 3.11838E-05 6.19163E-06 + 9.37622E+00 1.45613E+00 1.86158E+04 3.98704E+03 -1.54281E+03 + -4.91760E+02 -1.99449E+03 -6.05569E+02 1.00000E+00 0.00000E+00 + -4.87249E-02 -1.16956E-02 1.27805E+00 6.58653E-02 3.31413E-05 + 6.63126E-06 9.32915E+00 1.44547E+00 1.63771E+04 3.47984E+03 + -1.48025E+03 -4.77587E+02 -1.90345E+03 -5.84944E+02 1.00000E+00 + 0.00000E+00 -3.02257E-02 -7.50452E-03 1.18022E+00 4.37045E-02 + 3.52238E-05 7.10306E-06 9.28597E+00 1.43560E+00 1.43568E+04 + 3.01811E+03 -1.41950E+03 -4.63703E+02 -1.81580E+03 -5.64913E+02 + 1.00000E+00 0.00000E+00 -1.96146E-02 -5.07933E-03 1.12450E+00 + 3.09705E-02 3.74341E-05 7.60822E-06 9.23942E+00 1.42487E+00 + 1.25405E+04 2.59928E+03 -1.36049E+03 -4.50095E+02 -1.73145E+03 + -5.45463E+02 1.00000E+00 0.00000E+00 -1.29572E-02 -3.54425E-03 + 1.08983E+00 2.29733E-02 3.97767E-05 8.14839E-06 9.19320E+00 + 1.41411E+00 1.09079E+04 2.21945E+03 -1.30395E+03 -4.36941E+02 + -1.65118E+03 -5.26787E+02 1.00000E+00 0.00000E+00 -8.48491E-03 + -2.50376E-03 1.06686E+00 1.76283E-02 4.22698E-05 8.72843E-06 + 9.14997E+00 1.40396E+00 9.44240E+03 1.87543E+03 -1.24932E+03 + -4.24116E+02 -1.57421E+03 -5.08718E+02 1.00000E+00 0.00000E+00 + -5.31582E-03 -1.75980E-03 1.05084E+00 1.38693E-02 4.49121E-05 + 9.34871E-06 9.10357E+00 1.39297E+00 8.12692E+03 1.56379E+03 + -1.19657E+03 -4.11619E+02 -1.50046E+03 -4.91244E+02 1.00000E+00 + 0.00000E+00 -2.97212E-03 -1.20457E-03 1.03925E+00 1.11265E-02 + 4.77143E-05 1.00126E-05 9.05911E+00 1.38234E+00 6.95105E+03 + 1.28265E+03 -1.14563E+03 -3.99440E+02 -1.42978E+03 -4.74349E+02 + 1.00000E+00 0.00000E+00 -1.17591E-03 -7.75127E-04 1.03061E+00 + 9.05768E-03 5.06908E-05 1.07242E-05 9.01336E+00 1.37130E+00 + 5.89996E+03 1.02902E+03 -1.09670E+03 -3.87636E+02 -1.36238E+03 + -4.58082E+02 1.00000E+00 0.00000E+00 2.45192E-04 -4.32202E-04 + 1.02401E+00 7.46499E-03 5.38478E-05 1.14860E-05 8.96879E+00 + 1.36045E+00 4.96162E+03 8.00461E+02 -1.04924E+03 -3.76074E+02 + -1.29750E+03 -4.42279E+02 1.00000E+00 0.00000E+00 1.40318E-03 + -1.50145E-04 1.01881E+00 6.20029E-03 5.71926E-05 1.23007E-05 + 8.92353E+00 1.34931E+00 4.12684E+03 5.95209E+02 -1.00362E+03 + -3.64858E+02 -1.23556E+03 -4.27051E+02 1.00000E+00 0.00000E+00 + 2.36820E-03 8.71361E-05 1.01471E+00 5.19055E-03 6.07453E-05 + 1.31743E-05 8.88025E+00 1.33857E+00 3.38474E+03 4.10988E+02 + -9.59664E+02 -3.53945E+02 -1.17629E+03 -4.12337E+02 1.00000E+00 + 0.00000E+00 3.19350E-03 2.92004E-04 1.01136E+00 4.35876E-03 + 6.45035E-05 1.41072E-05 8.83440E+00 1.32708E+00 2.72644E+03 + 2.45995E+02 -9.17482E+02 -3.43372E+02 -1.11978E+03 -3.98174E+02 + 1.00000E+00 0.00000E+00 3.91169E-03 4.72007E-04 1.00861E+00 + 3.67067E-03 6.84928E-05 1.51070E-05 8.79408E+00 1.31688E+00 + 2.14543E+03 9.89566E+01 -8.76547E+02 -3.33013E+02 -1.06536E+03 + -3.84402E+02 1.00000E+00 0.00000E+00 4.55094E-03 6.33790E-04 + 1.00635E+00 3.09703E-03 7.27224E-05 1.61775E-05 1.36887E+04 + 3.49753E+03 1.63271E+03 -3.20809E+01 -9.76552E+02 -3.58571E+02 + -1.01338E+03 -3.71117E+02 -9.77949E+01 -2.52493E+01 5.12502E-03 + 7.80503E-04 1.00442E+00 2.60380E-03 7.72005E-05 1.73219E-05 + 1.14323E+04 2.91512E+03 1.18241E+03 -1.48308E+02 -9.20889E+02 + -3.44204E+02 -9.63866E+02 -3.58337E+02 -1.15373E+00 -3.04676E-01 + 5.65369E-03 9.16961E-04 1.00278E+00 2.18168E-03 8.19560E-05 + 1.85494E-05 9.61664E+03 2.44175E+03 7.88258E+02 -2.51071E+02 + -8.69789E+02 -3.30882E+02 -9.16205E+02 -3.45910E+02 -3.75785E-01 + -1.01859E-01 6.14331E-03 1.04461E-03 1.00139E+00 1.81987E-03 + 8.69757E-05 1.98581E-05 8.14594E+03 2.05444E+03 4.44098E+02 + -3.41706E+02 -8.22987E+02 -3.18556E+02 -8.70923E+02 -3.33985E+02 + -1.79734E-01 -5.02282E-02 6.60543E-03 1.16631E-03 1.00018E+00 + 1.50136E-03 9.23136E-05 2.12638E-05 6.93892E+03 1.73330E+03 + 1.45449E+02 -4.21166E+02 -7.79332E+02 -3.06941E+02 -8.27407E+02 + -3.22408E+02 -1.01422E-01 -2.93927E-02 7.04312E-03 1.28276E-03 + 9.99128E-01 1.22150E-03 9.79447E-05 2.27621E-05 5.94319E+03 + 1.46563E+03 -1.12073E+02 -4.90391E+02 -7.38660E+02 -2.96009E+02 + -7.85934E+02 -3.11259E+02 -6.24629E-02 -1.89200E-02 7.46354E-03 + 1.39578E-03 9.98194E-01 9.71012E-04 1.03917E-04 2.43675E-05 + 5.11210E+03 1.23989E+03 -3.32862E+02 -5.50364E+02 -7.00318E+02 + -2.85594E+02 -7.46117E+02 -3.00443E+02 -4.02887E-02 -1.28968E-02 + 7.86940E-03 1.50602E-03 9.97390E-01 7.51452E-04 1.10234E-04 + 2.60834E-05 4.41545E+03 1.04865E+03 -5.21570E+02 -6.02164E+02 + -6.64413E+02 -2.75738E+02 -7.08315E+02 -2.90067E+02 -2.64950E-02 + -9.11041E-03 8.26612E-03 1.61492E-03 9.96660E-01 5.51996E-04 + 1.16931E-04 2.79217E-05 3.82574E+03 8.85043E+02 -6.79656E+02 + -6.46024E+02 -6.30140E+02 -2.66229E+02 -6.71866E+02 -2.79954E+02 + -1.73172E-02 -6.56413E-03 8.65170E-03 1.72190E-03 9.96011E-01 + 3.72634E-04 1.23997E-04 2.98822E-05 3.32508E+03 7.44637E+02 + -8.12869E+02 -6.83383E+02 -5.97913E+02 -2.57191E+02 -6.37306E+02 + -2.70262E+02 -1.09022E-02 -4.76514E-03 9.03414E-03 1.82915E-03 + 9.95429E-01 2.08737E-04 1.31486E-04 3.19824E-05 2.89505E+03 + 6.22722E+02 -9.21497E+02 -7.14179E+02 -5.67090E+02 -2.48452E+02 + -6.04076E+02 -2.60841E+02 -6.21451E-03 -3.43615E-03 9.40963E-03 + 1.93560E-03 9.94916E-01 6.18479E-05 1.39396E-04 3.42248E-05 + 2.52595E+03 5.16926E+02 -1.01005E+03 -7.39559E+02 -5.37874E+02 + -2.40078E+02 -5.72457E+02 -2.51779E+02 -2.68545E-03 -2.42459E-03 + 9.78344E-03 2.04276E-03 9.94434E-01 -7.57637E-05 1.47765E-04 + 3.66236E-05 2.20540E+03 4.24017E+02 -1.08025E+03 -7.59905E+02 + -5.10057E+02 -2.32016E+02 -5.42274E+02 -2.43030E+02 6.44088E-05 + -1.62757E-03 1.01550E-02 2.15046E-03 9.94007E-01 -1.99459E-04 + 1.56607E-04 3.91866E-05 1.92768E+03 3.42612E+02 -1.13312E+03 + -7.75402E+02 -4.83360E+02 -2.24191E+02 -5.13281E+02 -2.34532E+02 + 2.25358E-03 -9.85894E-04 1.05255E-02 2.25905E-03 9.93611E-01 + -3.15424E-04 1.65943E-04 4.19228E-05 1.68500E+03 2.70666E+02 + -1.17257E+03 -7.87103E+02 -4.58024E+02 -2.16679E+02 -4.85731E+02 + -2.26364E+02 4.03785E-03 -4.56925E-04 1.08955E-02 2.36873E-03 + 9.93252E-01 -4.22112E-04 1.75819E-04 4.48508E-05 1.47265E+03 + 2.06982E+02 -1.19873E+03 -7.94943E+02 -4.33761E+02 -2.09403E+02 + -4.59379E+02 -2.18461E+02 5.52775E-03 -1.01107E-05 1.12674E-02 + 2.48026E-03 9.92912E-01 -5.22615E-04 1.86233E-04 4.79740E-05 + 1.28630E+03 1.50450E+02 -1.21401E+03 -7.99581E+02 -4.10585E+02 + -2.02372E+02 -4.34209E+02 -2.10825E+02 6.78089E-03 3.70087E-04 + 1.16348E-02 2.59173E-03 9.92621E-01 -6.12298E-04 1.97235E-04 + 5.13118E-05 1.12229E+03 1.00098E+02 -1.21937E+03 -8.01229E+02 + -3.88455E+02 -1.95578E+02 -4.10212E+02 -2.03458E+02 7.87222E-03 + 7.05102E-04 1.20088E-02 2.70653E-03 9.92337E-01 -7.00427E-04 + 2.08855E-04 5.48791E-05 9.77824E+02 5.52178E+01 -1.21623E+03 + -8.00250E+02 -3.67257E+02 -1.88993E+02 -3.87261E+02 -1.96328E+02 + 8.82468E-03 1.00101E-03 1.23818E-02 2.82242E-03 9.92083E-01 + -7.77737E-04 2.21094E-04 5.86812E-05 8.50318E+02 1.51253E+01 + -1.20593E+03 -7.97014E+02 -3.47027E+02 -1.82632E+02 -3.65392E+02 + -1.89452E+02 9.67045E-03 1.26694E-03 1.27562E-02 2.94014E-03 + 9.91836E-01 -8.56593E-04 2.34017E-04 6.27446E-05 7.38245E+02 + -2.05481E+01 -1.18889E+03 -7.91590E+02 -3.27648E+02 -1.76463E+02 + -3.44489E+02 -1.82799E+02 1.04317E-02 1.50923E-03 1.31330E-02 + 3.06008E-03 9.91613E-01 -9.26172E-04 2.47632E-04 6.70782E-05 + 6.39168E+02 -5.24739E+01 -1.16673E+03 -7.84449E+02 -3.09147E+02 + -1.70501E+02 -3.24576E+02 -1.76382E+02 1.11264E-02 1.73311E-03 + 1.35124E-02 3.18234E-03 9.91409E-01 -9.91112E-04 2.61994E-04 + 7.17064E-05 5.51725E+02 -8.10051E+01 -1.14017E+03 -7.75782E+02 + -2.91457E+02 -1.64729E+02 -3.05578E+02 -1.70183E+02 1.17568E-02 + 1.93881E-03 1.38878E-02 3.30483E-03 9.91224E-01 -1.05296E-03 + 2.77123E-04 7.66428E-05 4.75017E+02 -1.06352E+02 -1.10935E+03 + -7.65595E+02 -2.74550E+02 -1.59142E+02 -2.87462E+02 -1.64196E+02 + 1.23516E-02 2.13533E-03 1.42714E-02 3.43157E-03 9.91051E-01 + -1.11172E-03 2.93056E-04 8.19079E-05 4.07410E+02 -1.28982E+02 + -1.07550E+03 -7.54265E+02 -2.58361E+02 -1.53724E+02 -2.70155E+02 + -1.58403E+02 1.29035E-02 2.32011E-03 1.46524E-02 3.55913E-03 + 9.90884E-01 -1.16583E-03 3.09831E-04 8.75229E-05 3.48175E+02 + -1.49068E+02 -1.03910E+03 -7.41921E+02 -2.42904E+02 -1.48482E+02 + -2.53673E+02 -1.52814E+02 1.34257E-02 2.49716E-03 1.50363E-02 + 3.68930E-03 9.90741E-01 -1.21531E-03 3.27481E-04 9.35078E-05 + 2.96547E+02 -1.66808E+02 -1.00045E+03 -7.28644E+02 -2.28131E+02 + -1.43407E+02 -2.37949E+02 -1.47412E+02 1.39191E-02 2.66666E-03 + 1.54197E-02 3.82104E-03 9.90593E-01 -1.26479E-03 3.46062E-04 + 9.98918E-05 2.51500E+02 -1.82493E+02 -9.60319E+02 -7.14671E+02 + -2.14031E+02 -1.38497E+02 -2.22978E+02 -1.42200E+02 1.43918E-02 + 2.83129E-03 1.58052E-02 3.95527E-03 9.90469E-01 -1.30964E-03 + 3.65601E-04 1.06695E-04 2.12581E+02 -1.96227E+02 -9.19001E+02 + -7.00087E+02 -2.00552E+02 -1.33740E+02 -2.08701E+02 -1.37161E+02 + 1.48439E-02 2.99083E-03 1.61910E-02 4.09140E-03 9.90358E-01 + -1.34674E-03 3.86125E-04 1.13939E-04 1.79040E+02 -2.08228E+02 + -8.76759E+02 -6.84973E+02 -1.87685E+02 -1.29136E+02 -1.95104E+02 + -1.32295E+02 1.52782E-02 3.14622E-03 1.65754E-02 4.22896E-03 + 9.90247E-01 -1.38849E-03 4.07712E-04 1.21663E-04 1.50417E+02 + -2.18615E+02 -8.33934E+02 -6.69438E+02 -1.75391E+02 -1.24675E+02 + -1.82138E+02 -1.27592E+02 1.57010E-02 3.29961E-03 1.69620E-02 + 4.36920E-03 9.90154E-01 -1.42096E-03 4.30376E-04 1.29885E-04 + 1.26243E+02 -2.27508E+02 -7.90893E+02 -6.53600E+02 -1.63662E+02 + -1.20360E+02 -1.69797E+02 -1.23050E+02 1.61063E-02 3.44874E-03 + 1.73451E-02 4.51019E-03 9.90061E-01 -1.45497E-03 4.54173E-04 + 1.38641E-04 1.06006E+02 -2.35062E+02 -7.47840E+02 -6.37531E+02 + -1.52461E+02 -1.16179E+02 -1.58033E+02 -1.18660E+02 1.65023E-02 + 3.59654E-03 1.77288E-02 4.65338E-03 9.89987E-01 -1.48280E-03 + 4.79140E-04 1.47960E-04 8.93618E+01 -2.41366E+02 -7.04983E+02 + -6.21302E+02 -1.41791E+02 -1.12139E+02 -1.46851E+02 -1.14425E+02 + 1.68862E-02 3.74192E-03 1.81099E-02 4.79772E-03 9.89913E-01 + -1.50909E-03 5.05347E-04 1.57885E-04 7.57960E+01 -2.46579E+02 + -6.62576E+02 -6.05002E+02 -1.31610E+02 -1.08226E+02 -1.36201E+02 + -1.10332E+02 1.72626E-02 3.88657E-03 1.84902E-02 4.94387E-03 + 9.89863E-01 -1.53074E-03 5.32809E-04 1.68438E-04 6.52354E+01 + -2.50698E+02 -6.20631E+02 -5.88642E+02 -1.21889E+02 -1.04434E+02 + -1.26053E+02 -1.06373E+02 1.76286E-02 4.02935E-03 1.88677E-02 + 5.09112E-03 9.89807E-01 -1.55238E-03 5.61601E-04 1.79670E-04 + 5.72397E+01 -2.53864E+02 -5.79332E+02 -5.72284E+02 -1.12635E+02 + -1.00769E+02 -1.16409E+02 -1.02554E+02 1.79859E-02 4.17087E-03 + 1.92417E-02 5.23923E-03 9.89764E-01 -1.56939E-03 5.91753E-04 + 1.91611E-04 5.15081E+01 -2.56169E+02 -5.38888E+02 -5.56021E+02 + -1.03811E+02 -9.72205E+01 -1.07229E+02 -9.88620E+01 1.83358E-02 + 4.31161E-03 1.96129E-02 5.38851E-03 9.89733E-01 -1.58176E-03 + 6.23315E-04 2.04305E-04 4.78570E+01 -2.57661E+02 -4.99280E+02 + -5.39839E+02 -9.54021E+01 -9.37852E+01 -9.84959E+01 -9.52948E+01 + 1.86767E-02 4.45083E-03 1.99788E-02 5.53800E-03 9.89696E-01 + -1.59413E-03 6.56358E-04 2.17803E-04 4.59792E+01 -2.58441E+02 + -4.60701E+02 -5.23827E+02 -8.73993E+01 -9.04638E+01 -9.02001E+01 + -9.18515E+01 1.90132E-02 4.59051E-03 2.03430E-02 5.68916E-03 + 9.89684E-01 -1.60031E-03 6.90916E-04 2.32146E-04 4.57705E+01 + -2.58529E+02 -4.23056E+02 -5.07948E+02 -7.97690E+01 -8.72453E+01 + -8.23015E+01 -8.85200E+01 1.93371E-02 4.72714E-03 2.06974E-02 + 5.83866E-03 9.89678E-01 -1.60496E-03 7.27036E-04 2.47381E-04 + 4.69545E+01 -2.58022E+02 -3.86548E+02 -4.92296E+02 -7.25130E+01 + -8.41339E+01 -7.48017E+01 -8.53044E+01 1.96592E-02 4.86523E-03 + 2.10511E-02 5.99031E-03 9.89671E-01 -1.60650E-03 7.64771E-04 + 2.63561E-04 4.94086E+01 -2.56950E+02 -3.51146E+02 -4.76862E+02 + -6.56075E+01 -8.11235E+01 -6.76745E+01 -8.21969E+01 1.99694E-02 + 5.00047E-03 2.13948E-02 6.14013E-03 9.89684E-01 -1.60341E-03 + 8.04194E-04 2.80748E-04 5.29363E+01 -2.55387E+02 -3.16896E+02 + -4.61675E+02 -5.90367E+01 -7.82100E+01 -6.09050E+01 -7.91952E+01 + 2.02761E-02 5.13647E-03 2.17349E-02 6.29096E-03 9.89690E-01 + -1.59877E-03 8.45336E-04 2.98992E-04 5.74392E+01 -2.53356E+02 + -2.83776E+02 -4.46733E+02 -5.27847E+01 -7.53891E+01 -5.44681E+01 + -7.62914E+01 2.05724E-02 5.27014E-03 2.20651E-02 6.43990E-03 + 9.89708E-01 -1.58949E-03 8.88235E-04 3.18345E-04 6.27274E+01 + -2.50927E+02 -2.51863E+02 -4.32081E+02 -4.68465E+01 -7.26629E+01 + -4.83652E+01 -7.34893E+01 2.08583E-02 5.40145E-03 2.23848E-02 + 6.58670E-03 9.89739E-01 -1.57712E-03 9.32986E-04 3.38891E-04 + 6.87187E+01 -2.48128E+02 -2.21131E+02 -4.17717E+02 -4.11980E+01 + -7.00229E+01 -4.25672E+01 -7.07793E+01 2.11517E-02 5.53855E-03 + 2.27098E-02 6.73859E-03 9.89764E-01 -1.56475E-03 9.79593E-04 + 3.60675E-04 7.53147E+01 -2.44988E+02 -1.91561E+02 -4.03642E+02 + -3.58350E+01 -6.74702E+01 -3.70692E+01 -6.81625E+01 2.14191E-02 + 5.66582E-03 2.30096E-02 6.88130E-03 9.89814E-01 -1.54156E-03 + 1.02815E-03 3.83785E-04 8.23857E+01 -2.41560E+02 -1.63172E+02 + -3.89876E+02 -3.07375E+01 -6.49987E+01 -3.18482E+01 -6.56310E+01 + 2.16860E-02 5.79524E-03 2.33067E-02 7.02532E-03 9.89857E-01 + -1.51991E-03 1.07866E-03 4.08277E-04 8.98431E+01 -2.37874E+02 + -1.35958E+02 -3.76431E+02 -2.59005E+01 -6.26087E+01 -2.69008E+01 + -6.31866E+01 2.19503E-02 5.92585E-03 2.35990E-02 7.16981E-03 + 9.89910E-01 -1.49517E-03 1.13121E-03 4.34244E-04 9.76266E+01 + -2.33954E+02 -1.09869E+02 -3.63290E+02 -2.13089E+01 -6.02959E+01 + -2.22086E+01 -6.08229E+01 2.21989E-02 6.05104E-03 2.38743E-02 + 7.30842E-03 9.89971E-01 -1.46270E-03 1.18583E-03 4.61757E-04 + 1.05639E+02 -2.29837E+02 -8.49417E+01 -3.50484E+02 -1.69534E+01 + -5.80586E+01 -1.77620E+01 -5.85389E+01 2.24410E-02 6.17541E-03 + 2.41408E-02 7.44535E-03 9.90036E-01 -1.43024E-03 1.24259E-03 + 4.90911E-04 1.13841E+02 -2.25540E+02 -6.10966E+01 -3.37988E+02 + -1.28220E+01 -5.58937E+01 -1.35491E+01 -5.63313E+01 2.26742E-02 + 6.29759E-03 2.43958E-02 7.57898E-03 9.90107E-01 -1.39158E-03 + 1.30150E-03 5.21780E-04 1.22149E+02 -2.21096E+02 -3.83382E+01 + -3.25817E+02 -8.90412E+00 -5.37982E+01 -9.55763E+00 -5.41964E+01 + 2.28993E-02 6.41802E-03 2.46402E-02 7.70970E-03 9.90179E-01 + -1.35292E-03 1.36263E-03 5.54476E-04 1.30521E+02 -2.16523E+02 + -1.66437E+01 -3.13970E+02 -5.19522E+00 -5.17725E+01 -5.78144E+00 + -5.21343E+01 2.31174E-02 6.53710E-03 2.48747E-02 7.83775E-03 + 9.90265E-01 -1.30654E-03 1.42602E-03 5.89095E-04 1.38908E+02 + -2.11846E+02 4.00893E+00 -3.02448E+02 -1.67989E+00 -4.98116E+01 + -2.20673E+00 -5.01401E+01 2.33241E-02 6.65242E-03 2.50952E-02 + 7.96077E-03 9.90352E-01 -1.25706E-03 1.49170E-03 6.25734E-04 + 1.47273E+02 -2.07077E+02 2.36847E+01 -2.91230E+02 1.64901E+00 + -4.79138E+01 1.17679E+00 -4.82111E+01 2.35224E-02 6.76548E-03 + 2.53040E-02 8.07980E-03 9.90441E-01 -1.20603E-03 1.55971E-03 + 6.64508E-04 1.55560E+02 -2.02246E+02 4.23566E+01 -2.80346E+02 + 4.79742E+00 -4.60784E+01 4.37309E+00 -4.63479E+01 2.37108E-02 + 6.87531E-03 2.55003E-02 8.19424E-03 9.90537E-01 -1.15037E-03 + 1.63011E-03 7.05548E-04 1.63765E+02 -1.97354E+02 6.01086E+01 + -2.69760E+02 7.77641E+00 -4.43019E+01 7.39602E+00 -4.45451E+01 + 2.38917E-02 6.98321E-03 2.56857E-02 8.30477E-03 9.90642E-01 + -1.09007E-03 1.70289E-03 7.48949E-04 1.71830E+02 -1.92430E+02 + 7.69328E+01 -2.59491E+02 1.05927E+01 -4.25830E+01 1.02511E+01 + -4.28027E+01 2.40622E-02 7.08724E-03 2.58577E-02 8.40979E-03 + 9.90738E-01 -1.02977E-03 1.77813E-03 7.94871E-04 1.79743E+02 + -1.87484E+02 9.28799E+01 -2.49523E+02 1.32529E+01 -4.09201E+01 + 1.29465E+01 -4.11177E+01 2.42225E-02 7.18745E-03 2.60165E-02 + 8.50901E-03 9.90850E-01 -9.60189E-04 1.85582E-03 8.43436E-04 + 1.87490E+02 -1.82522E+02 1.07975E+02 -2.39854E+02 1.57662E+01 + -3.93105E+01 1.54909E+01 -3.94880E+01 2.43736E-02 7.28418E-03 + 2.61631E-02 8.60292E-03 9.90955E-01 -8.93702E-04 1.93600E-03 + 8.94789E-04 1.95031E+02 -1.77570E+02 1.22245E+02 -2.30483E+02 + 1.81381E+01 -3.77528E+01 1.78911E+01 -3.79117E+01 2.45142E-02 + 7.37654E-03 2.62961E-02 8.69029E-03 9.91069E-01 -8.17943E-04 + 2.01869E-03 9.49090E-04 2.02381E+02 -1.72618E+02 1.35734E+02 + -2.21395E+02 2.03748E+01 -3.62458E+01 2.01525E+01 -3.63881E+01 + 2.46475E-02 7.46642E-03 2.64193E-02 8.77329E-03 9.91180E-01 + -7.42175E-04 2.10390E-03 1.00650E-03 2.09492E+02 -1.67698E+02 + 1.48451E+02 -2.12598E+02 2.24837E+01 -3.47868E+01 2.22842E+01 + -3.49135E+01 2.47695E-02 7.55076E-03 2.65283E-02 8.84867E-03 + 9.91295E-01 -6.64865E-04 2.19164E-03 1.06719E-03 2.16384E+02 + -1.62801E+02 1.60451E+02 -2.04070E+02 2.44702E+01 -3.33751E+01 + 2.42907E+01 -3.34875E+01 2.48819E-02 7.63068E-03 2.66250E-02 + 8.91740E-03 9.91416E-01 -5.79824E-04 2.28192E-03 1.13135E-03 + 2.23024E+02 -1.57949E+02 1.71741E+02 -1.95819E+02 2.63395E+01 + -3.20091E+01 2.61780E+01 -3.21085E+01 2.49861E-02 7.70675E-03 + 2.67109E-02 8.98022E-03 9.91527E-01 -4.96329E-04 2.37474E-03 + 1.19918E-03 2.29426E+02 -1.53136E+02 1.82364E+02 -1.87833E+02 + 2.80985E+01 -3.06866E+01 2.79523E+01 -3.07743E+01 2.50789E-02 + 7.77660E-03 2.67837E-02 9.03487E-03 9.91647E-01 -4.08196E-04 + 2.47008E-03 1.27087E-03 2.35567E+02 -1.48381E+02 1.92342E+02 + -1.80107E+02 2.97519E+01 -2.94063E+01 2.96201E+01 -2.94829E+01 + 2.51647E-02 7.84301E-03 2.68469E-02 9.08381E-03 9.91765E-01 + -3.16970E-04 2.56795E-03 1.34665E-03 2.41457E+02 -1.43680E+02 + 2.01711E+02 -1.72629E+02 3.13039E+01 -2.81676E+01 3.11846E+01 + -2.82343E+01 2.52399E-02 7.90305E-03 2.68975E-02 9.12423E-03 + 9.91876E-01 -2.27291E-04 2.66830E-03 1.42674E-03 2.47084E+02 + -1.39045E+02 2.10485E+02 -1.65403E+02 3.27600E+01 -2.69685E+01 + 3.26515E+01 -2.70262E+01 2.53066E-02 7.95789E-03 2.69379E-02 + 9.15755E-03 9.91994E-01 -1.29881E-04 2.77111E-03 1.51140E-03 + 2.52456E+02 -1.34477E+02 2.18698E+02 -1.58418E+02 3.41248E+01 + -2.58079E+01 3.40258E+01 -2.58574E+01 2.53645E-02 8.00718E-03 + 2.69683E-02 9.18340E-03 9.92105E-01 -3.55625E-05 2.87636E-03 + 1.60092E-03 2.57570E+02 -1.29980E+02 2.26375E+02 -1.51667E+02 + 3.54023E+01 -2.46844E+01 3.53121E+01 -2.47263E+01 2.54148E-02 + 8.05134E-03 2.69897E-02 9.20220E-03 9.92216E-01 6.33945E-05 + 2.98398E-03 1.69556E-03 2.62424E+02 -1.25562E+02 2.33543E+02 + -1.45144E+02 3.65971E+01 -2.35968E+01 3.65146E+01 -2.36318E+01 + 2.54558E-02 8.08869E-03 2.70006E-02 9.21205E-03 9.92325E-01 + 1.62351E-04 3.09390E-03 1.79560E-03 2.67025E+02 -1.21223E+02 + 2.40221E+02 -1.38845E+02 3.77134E+01 -2.25441E+01 3.76374E+01 + -2.25728E+01 2.54896E-02 8.12063E-03 2.70036E-02 9.21485E-03 + 9.92433E-01 2.62854E-04 3.20606E-03 1.90140E-03 2.71378E+02 + -1.16961E+02 2.46433E+02 -1.32763E+02 3.87543E+01 -2.15251E+01 + 3.86839E+01 -2.15483E+01 2.55151E-02 8.14561E-03 2.69978E-02 + 9.20925E-03 9.92536E-01 3.64903E-04 3.32034E-03 2.01326E-03 + 2.75479E+02 -1.12790E+02 2.52206E+02 -1.26892E+02 3.97244E+01 + -2.05382E+01 3.96592E+01 -2.05563E+01 2.55345E-02 8.16532E-03 + 2.69852E-02 9.19640E-03 9.92634E-01 4.63859E-04 3.43669E-03 + 2.13162E-03 2.79340E+02 -1.08702E+02 2.57556E+02 -1.21227E+02 + 4.06258E+01 -1.95840E+01 4.05651E+01 -1.95972E+01 2.55471E-02 + 8.17866E-03 2.69658E-02 9.17591E-03 9.92733E-01 5.69001E-04 + 3.55492E-03 2.25680E-03 2.82964E+02 -1.04701E+02 2.62508E+02 + -1.15760E+02 4.14637E+01 -1.86590E+01 4.14066E+01 -1.86682E+01 + 2.55518E-02 8.18378E-03 2.69386E-02 9.14585E-03 9.92827E-01 + 6.72596E-04 3.67491E-03 2.38924E-03 2.86354E+02 -1.00792E+02 + 2.67082E+02 -1.10487E+02 4.22391E+01 -1.77651E+01 4.21854E+01 + -1.77703E+01 2.55513E-02 8.18330E-03 2.69063E-02 9.10860E-03 + 9.92914E-01 7.73099E-04 3.79650E-03 2.52942E-03 2.89517E+02 + -9.69767E+01 2.71292E+02 -1.05409E+02 4.29573E+01 -1.68986E+01 + 4.29065E+01 -1.69004E+01 2.55454E-02 8.17619E-03 2.68692E-02 + 9.06386E-03 9.92999E-01 8.75148E-04 3.91947E-03 2.67778E-03 + 2.92464E+02 -9.32480E+01 2.75166E+02 -1.00507E+02 4.36196E+01 + -1.60606E+01 4.35712E+01 -1.60594E+01 2.55344E-02 8.16218E-03 + 2.68274E-02 9.01104E-03 9.93078E-01 9.75651E-04 4.04363E-03 + 2.83489E-03 2.95195E+02 -8.96143E+01 2.78714E+02 -9.57861E+01 + 4.42293E+01 -1.52495E+01 4.41829E+01 -1.52455E+01 2.55185E-02 + 8.14112E-03 2.67818E-02 8.95026E-03 9.93157E-01 1.07925E-03 + 4.16868E-03 3.00124E-03 2.97720E+02 -8.60738E+01 2.81956E+02 + -9.12402E+01 4.47890E+01 -1.44648E+01 4.47445E+01 -1.44581E+01 + 2.54984E-02 8.11295E-03 2.67328E-02 8.88165E-03 9.93226E-01 + 1.17666E-03 4.29437E-03 3.17747E-03 3.00047E+02 -8.26256E+01 + 2.84912E+02 -8.68602E+01 4.53020E+01 -1.37043E+01 4.52590E+01 + -1.36956E+01 2.54738E-02 8.07642E-03 2.66803E-02 8.80385E-03 + 9.93291E-01 1.27252E-03 4.42033E-03 3.36418E-03 3.02182E+02 + -7.92690E+01 2.87594E+02 -8.26430E+01 4.57693E+01 -1.29697E+01 + 4.57278E+01 -1.29587E+01 2.54468E-02 8.03394E-03 2.66268E-02 + 8.71968E-03 9.93351E-01 1.36993E-03 4.54619E-03 3.56204E-03 + 3.04129E+02 -7.60101E+01 2.90016E+02 -7.85901E+01 4.61945E+01 + -1.22583E+01 4.61537E+01 -1.22458E+01 2.54175E-02 7.98500E-03 + 2.65725E-02 8.62874E-03 9.93407E-01 1.46115E-03 4.67158E-03 + 3.77186E-03 3.05901E+02 -7.28397E+01 2.92198E+02 -7.46866E+01 + 4.65792E+01 -1.15700E+01 4.65395E+01 -1.15557E+01 2.53850E-02 + 7.92682E-03 2.65163E-02 8.52820E-03 9.93460E-01 1.55703E-03 + 4.79595E-03 3.99436E-03 3.07501E+02 -6.97656E+01 2.94150E+02 + -7.09349E+01 4.69254E+01 -1.09048E+01 4.68864E+01 -1.08892E+01 + 2.53518E-02 7.86304E-03 2.64608E-02 8.42175E-03 9.93504E-01 + 1.64207E-03 4.91879E-03 4.23037E-03 3.08940E+02 -6.67811E+01 + 2.95888E+02 -6.73289E+01 4.72358E+01 -1.02607E+01 4.71972E+01 + -1.02441E+01 2.53168E-02 7.79037E-03 2.64054E-02 8.30656E-03 + 9.93546E-01 1.72864E-03 5.03949E-03 4.48085E-03 3.10222E+02 + -6.38892E+01 2.97423E+02 -6.38670E+01 4.75118E+01 -9.63804E+00 + 4.74739E+01 -9.62013E+00 2.52813E-02 7.71021E-03 2.63510E-02 + 8.18398E-03 9.93584E-01 1.81370E-03 5.15735E-03 4.74667E-03 + 3.11357E+02 -6.10844E+01 2.98772E+02 -6.05342E+01 4.77555E+01 + -9.03627E+00 4.77178E+01 -9.01766E+00 2.52463E-02 7.62382E-03 + 2.62988E-02 8.05516E-03 9.93616E-01 1.89253E-03 5.27162E-03 + 5.02896E-03 3.12350E+02 -5.83737E+01 2.99941E+02 -5.73437E+01 + 4.79686E+01 -8.45411E+00 4.79314E+01 -8.43452E+00 2.52115E-02 + 7.52887E-03 2.62487E-02 7.91837E-03 9.93645E-01 1.97141E-03 + 5.38142E-03 5.32876E-03 3.13209E+02 -5.57518E+01 3.00945E+02 + -5.42786E+01 4.81529E+01 -7.89174E+00 4.81159E+01 -7.87156E+00 + 2.51778E-02 7.42595E-03 2.62013E-02 7.77365E-03 9.93668E-01 + 2.04251E-03 5.48584E-03 5.64738E-03 3.13943E+02 -5.32152E+01 + 3.01794E+02 -5.13422E+01 4.83102E+01 -7.34797E+00 4.82733E+01 + -7.32719E+00 2.51460E-02 7.31597E-03 2.61577E-02 7.62285E-03 + 9.93689E-01 2.11366E-03 5.58374E-03 5.98597E-03 3.14556E+02 + -5.07660E+01 3.02501E+02 -4.85233E+01 4.84418E+01 -6.82272E+00 + 4.84050E+01 -6.80154E+00 2.51165E-02 7.19823E-03 2.61180E-02 + 7.46446E-03 9.93705E-01 2.17703E-03 5.67397E-03 6.34599E-03 + 3.15057E+02 -4.84051E+01 3.03072E+02 -4.58291E+01 4.85494E+01 + -6.31545E+00 4.85126E+01 -6.29388E+00 2.50895E-02 7.07114E-03 + 2.60826E-02 7.29766E-03 9.93718E-01 2.24200E-03 5.75515E-03 + 6.72881E-03 3.15453E+02 -4.61246E+01 3.03521E+02 -4.32454E+01 + 4.86344E+01 -5.82544E+00 4.85977E+01 -5.80357E+00 2.50665E-02 + 6.93813E-03 2.60528E-02 7.12570E-03 9.93729E-01 2.30073E-03 + 5.82583E-03 7.13615E-03 3.15749E+02 -4.39283E+01 3.03854E+02 + -4.07735E+01 4.86983E+01 -5.35240E+00 4.86616E+01 -5.33033E+00 + 2.50472E-02 6.79553E-03 2.60284E-02 6.94484E-03 9.93736E-01 + 2.35333E-03 5.88434E-03 7.56969E-03 3.15953E+02 -4.18170E+01 + 3.04082E+02 -3.84128E+01 4.87423E+01 -4.89551E+00 4.87057E+01 + -4.87335E+00 2.50328E-02 6.64565E-03 2.60104E-02 6.75765E-03 + 9.93740E-01 2.40126E-03 5.92883E-03 8.03114E-03 3.16071E+02 + -3.97827E+01 3.04212E+02 -3.61577E+01 4.87678E+01 -4.45520E+00 + 4.87312E+01 -4.43283E+00 2.50236E-02 6.48703E-03 2.59991E-02 + 6.56299E-03 9.93743E-01 2.44916E-03 5.95727E-03 8.52254E-03 + 3.16108E+02 -3.78270E+01 3.04254E+02 -3.40017E+01 4.87760E+01 + -4.02993E+00 4.87394E+01 -4.00777E+00 2.50203E-02 6.31954E-03 + 2.59952E-02 6.36013E-03 9.93744E-01 2.49094E-03 5.96738E-03 + 9.04602E-03 3.16077E+02 -3.61688E+01 3.04219E+02 -3.21631E+01 + 4.87681E+01 -3.62040E+00 4.87315E+01 -3.59794E+00 2.50367E-02 + 5.47036E-03 2.60126E-02 5.45137E-03 9.93743E-01 2.52338E-03 + 5.95665E-03 9.60375E-03 3.15974E+02 -3.43952E+01 3.04107E+02 + -3.02310E+01 4.87453E+01 -3.22492E+00 4.87086E+01 -3.20265E+00 + 2.50528E-02 5.19211E-03 2.60308E-02 5.13708E-03 9.93742E-01 + 2.55433E-03 5.92230E-03 1.01982E-02 3.15809E+02 -3.26832E+01 + 3.03929E+02 -2.83806E+01 4.87086E+01 -2.84380E+00 4.86720E+01 + -2.82183E+00 2.50761E-02 4.95012E-03 2.60573E-02 4.86218E-03 + 9.93738E-01 2.58677E-03 5.86125E-03 1.08320E-02 3.15588E+02 + -3.10449E+01 3.03691E+02 -2.66179E+01 4.86591E+01 -2.47720E+00 + 4.86225E+01 -2.45513E+00 2.51104E-02 4.69535E-03 2.60960E-02 + 4.57527E-03 9.93736E-01 2.60690E-03 5.77009E-03 1.15079E-02 + 3.15316E+02 -2.94746E+01 3.03401E+02 -2.49464E+01 4.85978E+01 + -2.12350E+00 4.85612E+01 -2.10173E+00 2.51563E-02 4.43084E-03 + 2.61471E-02 4.28062E-03 9.93731E-01 2.63161E-03 5.64505E-03 + 1.22289E-02 3.14999E+02 -2.79811E+01 3.03064E+02 -2.33579E+01 + 4.85257E+01 -1.78351E+00 4.84892E+01 -1.76193E+00 2.52153E-02 + 4.15258E-03 2.62124E-02 3.97259E-03 9.93728E-01 2.64711E-03 + 5.48196E-03 1.29982E-02 3.14641E+02 -2.65527E+01 3.02687E+02 + -2.18519E+01 4.84436E+01 -1.45574E+00 4.84071E+01 -1.43437E+00 + 2.52878E-02 3.86330E-03 2.62919E-02 3.65514E-03 9.93724E-01 + 2.66099E-03 5.27627E-03 1.38192E-02 3.14249E+02 -2.51945E+01 + 3.02276E+02 -2.04287E+01 4.83526E+01 -1.14088E+00 4.83162E+01 + -1.11980E+00 2.53751E-02 3.56111E-03 2.63870E-02 3.32608E-03 + 9.93722E-01 2.66721E-03 5.02291E-03 1.46957E-02 3.13824E+02 + -2.38970E+01 3.01835E+02 -1.90829E+01 4.82532E+01 -8.37673E-01 + 4.82170E+01 -8.16991E-01 2.54792E-02 3.24341E-03 2.64994E-02 + 2.98302E-03 9.93721E-01 2.67339E-03 4.71628E-03 1.56316E-02 + 3.13374E+02 -2.26688E+01 3.01368E+02 -1.78097E+01 4.81466E+01 + -5.46435E-01 4.81104E+01 -5.25852E-01 2.55989E-02 2.91650E-03 + 2.66281E-02 2.63156E-03 9.93721E-01 2.67490E-03 4.35026E-03 + 1.66312E-02 3.12802E+02 -2.12576E+01 3.00786E+02 -1.63699E+01 + 4.80334E+01 -2.66789E-01 4.79973E+01 -2.46601E-01 2.54222E-02 + 3.35305E-03 2.64504E-02 3.07062E-03 9.93719E-01 2.67648E-03 + 3.91806E-03 1.76991E-02 3.12148E+02 -1.97801E+01 3.00121E+02 + -1.48711E+01 4.79140E+01 2.77077E-03 4.78780E+01 2.26609E-02 + 2.50535E-02 4.18481E-03 2.60750E-02 3.91770E-03 9.93719E-01 + 2.67645E-03 3.41229E-03 1.88401E-02 3.11628E+02 -1.87021E+01 + 2.99596E+02 -1.37804E+01 4.77898E+01 2.60455E-01 4.77539E+01 + 2.80049E-01 2.51767E-02 3.92920E-03 2.62073E-02 3.64296E-03 + 9.93723E-01 2.66875E-03 2.82467E-03 2.00596E-02 3.11095E+02 + -1.76767E+01 2.99061E+02 -1.27519E+01 4.76606E+01 5.08634E-01 + 4.76252E+01 5.27534E-01 2.53149E-02 3.66364E-03 2.63548E-02 + 3.35943E-03 9.93729E-01 2.65790E-03 2.14636E-03 2.13632E-02 + 3.10551E+02 -1.67032E+01 2.98518E+02 -1.17815E+01 4.75280E+01 + 7.45940E-01 4.74925E+01 7.64939E-01 2.54632E-02 3.39827E-03 + 2.65125E-02 3.07739E-03 9.93738E-01 2.64247E-03 1.36738E-03 + 2.27569E-02 3.10002E+02 -1.57847E+01 2.97977E+02 -1.08757E+01 + 4.73916E+01 9.74222E-01 4.73565E+01 9.92529E-01 2.56320E-02 + 3.11571E-03 2.66906E-02 2.77937E-03 9.93747E-01 2.62697E-03 + 4.76854E-04 2.42473E-02 3.09452E+02 -1.49204E+01 2.97437E+02 + -1.00271E+01 4.72528E+01 1.19253E+00 4.72178E+01 1.21054E+00 + 2.58241E-02 2.81366E-03 2.68922E-02 2.46229E-03 9.93761E-01 + 2.60536E-03 -5.37017E-04 2.58415E-02 3.08902E+02 -1.41048E+01 + 2.96903E+02 -9.23537E+00 4.71115E+01 1.40201E+00 4.70767E+01 + 1.41972E+00 2.60296E-02 2.50908E-03 2.71068E-02 2.14422E-03 + 9.93775E-01 2.58523E-03 -1.68735E-03 2.75467E-02 3.08108E+02 + -1.29911E+01 2.96130E+02 -8.15091E+00 4.69685E+01 1.60251E+00 + 4.69340E+01 1.61983E+00 2.54571E-02 3.31188E-03 2.65209E-02 + 2.96577E-03 9.93789E-01 2.56516E-03 -2.98872E-03 2.93716E-02 + 3.07537E+02 -1.22311E+01 2.95584E+02 -7.42496E+00 4.68240E+01 + 1.79469E+00 4.67900E+01 1.81161E+00 2.56141E-02 3.10304E-03 + 2.66851E-02 2.74737E-03 9.93809E-01 2.53887E-03 -4.45639E-03 + 3.13242E-02 3.06989E+02 -1.15383E+01 2.95065E+02 -6.76780E+00 + 4.66788E+01 1.97843E+00 4.66451E+01 1.99485E+00 2.58287E-02 + 2.83141E-03 2.69080E-02 2.46530E-03 9.93832E-01 2.50792E-03 + -6.10788E-03 3.34141E-02 3.06445E+02 -1.08821E+01 2.94560E+02 + -6.15910E+00 4.65333E+01 2.15400E+00 4.64997E+01 2.17023E+00 + 2.60652E-02 2.54607E-03 2.71519E-02 2.17102E-03 9.93855E-01 + 2.48012E-03 -7.96205E-03 3.56514E-02 3.05913E+02 -1.02693E+01 + 2.94067E+02 -5.59062E+00 4.63873E+01 2.32230E+00 4.63543E+01 + 2.33803E+00 2.63188E-02 2.25362E-03 2.74129E-02 1.87002E-03 + 9.93886E-01 2.44607E-03 -1.00394E-02 3.80465E-02 3.05281E+02 + -9.57114E+00 2.93481E+02 -4.94311E+00 4.62419E+01 2.48284E+00 + 4.62092E+01 2.49818E+00 2.62166E-02 2.36647E-03 2.73082E-02 + 1.98562E-03 9.93911E-01 2.41672E-03 -1.23629E-02 4.06115E-02 + 3.04143E+02 -8.36614E+00 2.92393E+02 -3.79120E+00 4.60968E+01 + 2.63649E+00 4.60642E+01 2.65163E+00 2.44367E-02 4.25119E-03 + 2.54845E-02 3.91674E-03 9.93940E-01 2.38731E-03 -1.49567E-02 + 4.33580E-02 3.03611E+02 -7.82475E+00 2.91915E+02 -3.30517E+00 + 4.59525E+01 2.78337E+00 4.59204E+01 2.79792E+00 2.46075E-02 + 4.07740E-03 2.56607E-02 3.73742E-03 9.93973E-01 2.35333E-03 + -1.78488E-02 4.63002E-02 3.03093E+02 -7.31720E+00 2.91460E+02 + -2.85943E+00 4.58096E+01 2.92316E+00 4.57779E+01 2.93741E+00 + 2.47944E-02 3.89441E-03 2.58522E-02 3.55000E-03 9.94013E-01 + 2.31619E-03 -2.10683E-02 4.94519E-02 3.02595E+02 -6.84784E+00 + 2.91025E+02 -2.44860E+00 4.56679E+01 3.05679E+00 4.56368E+01 + 3.07054E+00 2.50122E-02 3.68906E-03 2.60749E-02 3.33986E-03 + 9.94053E-01 2.27602E-03 -2.46475E-02 5.28283E-02 3.02595E+02 + -6.84784E+00 2.91025E+02 -2.44860E+00 4.56679E+01 3.05679E+00 + 4.56368E+01 3.07054E+00 2.50122E-02 3.68906E-03 2.60749E-02 + 3.33986E-03 9.94053E-01 2.27602E-03 -2.46475E-02 5.28283E-02 + 4.62792E-04 1.69413E+02 2.69387E+01 + 1.04689E-03 1.60029E-04 0.00000E+00 0.00000E+00 7.77847E-02 + 1.25164E-02 1.04689E-03 1.60029E-04 0.00000E+00 0.00000E+00 + 7.77847E-02 1.25164E-02 1.16187E-03 1.78641E-04 0.00000E+00 + 0.00000E+00 3.37782E-02 5.39275E-03 1.29055E-03 1.99599E-04 + 0.00000E+00 0.00000E+00 -2.07659E-02 -3.49014E-03 1.42728E-03 + 2.22001E-04 0.00000E+00 0.00000E+00 6.98676E-03 1.05706E-03 + 1.58362E-03 2.47773E-04 0.00000E+00 0.00000E+00 -2.61171E-02 + -4.40010E-03 1.74734E-03 2.74930E-04 0.00000E+00 0.00000E+00 + 4.11194E-02 6.75207E-03 1.93820E-03 3.06782E-04 0.00000E+00 + 0.00000E+00 8.49149E-03 1.30672E-03 2.14111E-03 3.40858E-04 + 0.00000E+00 0.00000E+00 4.97847E-02 8.24121E-03 2.38130E-03 + 3.81447E-04 0.00000E+00 0.00000E+00 -3.05470E-02 -5.33375E-03 + 2.62747E-03 4.23309E-04 0.00000E+00 0.00000E+00 3.34793E-02 + 5.55411E-03 2.91907E-03 4.73210E-04 0.00000E+00 0.00000E+00 + 1.28820E-02 2.02923E-03 3.31770E-03 5.41865E-04 0.00000E+00 + 0.00000E+00 4.07295E-02 6.82533E-03 1.01512E-03 1.42746E-04 + 0.00000E+00 0.00000E+00 -7.05894E-04 -3.56898E-04 3.71687E-03 + 6.14090E-04 0.00000E+00 0.00000E+00 7.24900E-02 1.24127E-02 + 4.14059E-03 6.88492E-04 0.00000E+00 0.00000E+00 -7.01388E-03 + -1.54779E-03 4.58517E-03 7.67072E-04 0.00000E+00 0.00000E+00 + 2.17853E-02 3.54239E-03 5.07408E-03 8.54056E-04 0.00000E+00 + 0.00000E+00 5.71198E-02 9.82892E-03 5.62318E-03 9.52398E-04 + 0.00000E+00 0.00000E+00 6.37516E-02 1.10167E-02 6.27745E-03 + 1.07036E-03 0.00000E+00 0.00000E+00 -6.01869E-03 -1.56266E-03 + 6.96921E-03 1.19592E-03 0.00000E+00 0.00000E+00 7.31686E-02 + 1.28107E-02 7.73765E-03 1.33635E-03 0.00000E+00 0.00000E+00 + 5.95470E-02 1.03215E-02 8.58085E-03 1.49149E-03 0.00000E+00 + 0.00000E+00 6.54485E-02 1.14073E-02 9.51451E-03 1.66446E-03 + 0.00000E+00 0.00000E+00 7.18684E-02 1.25966E-02 1.05304E-02 + 1.85396E-03 0.00000E+00 0.00000E+00 1.05686E-01 1.89048E-02 + 1.17684E-02 2.08650E-03 0.00000E+00 0.00000E+00 6.03974E-02 + 1.03979E-02 1.31966E-02 2.35666E-03 0.00000E+00 0.00000E+00 + 6.55599E-02 1.13745E-02 1.46263E-02 2.62902E-03 0.00000E+00 + 0.00000E+00 1.02968E-01 1.85006E-02 1.62157E-02 2.93394E-03 + 0.00000E+00 0.00000E+00 1.30419E-01 2.37671E-02 1.80107E-02 + 3.28078E-03 0.00000E+00 0.00000E+00 1.25123E-01 2.27438E-02 + 2.04245E-02 3.75058E-03 0.00000E+00 0.00000E+00 1.40077E-01 + 2.56541E-02 2.34330E-02 4.34036E-03 0.00000E+00 0.00000E+00 + 1.58692E-01 2.93035E-02 2.60611E-02 4.85937E-03 0.00000E+00 + 0.00000E+00 2.20782E-01 4.15649E-02 2.91286E-02 5.46960E-03 + 0.00000E+00 0.00000E+00 1.95776E-01 3.65904E-02 3.24125E-02 + 6.12774E-03 0.00000E+00 0.00000E+00 2.41452E-01 4.57445E-02 + 3.61659E-02 6.88563E-03 0.00000E+00 0.00000E+00 2.37779E-01 + 4.50028E-02 4.02000E-02 7.70635E-03 0.00000E+00 0.00000E+00 + 2.91041E-01 5.58388E-02 4.47308E-02 8.63511E-03 0.00000E+00 + 0.00000E+00 3.20391E-01 6.18553E-02 4.91277E-02 9.54336E-03 + 0.00000E+00 0.00000E+00 3.29857E-01 6.38105E-02 5.40110E-02 + 1.05599E-02 0.00000E+00 0.00000E+00 3.95411E-01 7.74562E-02 + 6.00171E-02 1.18198E-02 0.00000E+00 0.00000E+00 3.93708E-01 + 7.70990E-02 6.61044E-02 1.31068E-02 0.00000E+00 0.00000E+00 + 5.14440E-01 1.02625E-01 7.35745E-02 1.46987E-02 0.00000E+00 + 0.00000E+00 4.74189E-01 9.40476E-02 8.09887E-02 1.62913E-02 + 0.00000E+00 0.00000E+00 5.87990E-01 1.18492E-01 8.99752E-02 + 1.82371E-02 0.00000E+00 0.00000E+00 6.46394E-01 1.31138E-01 + 9.96601E-02 2.03511E-02 0.00000E+00 0.00000E+00 7.08018E-01 + 1.44589E-01 1.10191E-01 2.26687E-02 0.00000E+00 0.00000E+00 + 7.42929E-01 1.52272E-01 1.20912E-01 2.50472E-02 0.00000E+00 + 0.00000E+00 8.68345E-01 1.80099E-01 1.33514E-01 2.78665E-02 + 0.00000E+00 0.00000E+00 8.95920E-01 1.86267E-01 1.46179E-01 + 3.07237E-02 0.00000E+00 0.00000E+00 1.02165E+00 2.14631E-01 + 1.60566E-01 3.39968E-02 0.00000E+00 0.00000E+00 1.08846E+00 + 2.29830E-01 1.75306E-01 3.73786E-02 0.00000E+00 0.00000E+00 + 1.21326E+00 2.58463E-01 1.90860E-01 4.09779E-02 0.00000E+00 + 0.00000E+00 1.34817E+00 2.89683E-01 2.08749E-01 4.51535E-02 + 0.00000E+00 0.00000E+00 1.40975E+00 3.04056E-01 2.25763E-01 + 4.91592E-02 0.00000E+00 0.00000E+00 1.57688E+00 3.43407E-01 + 2.47738E-01 5.43790E-02 0.00000E+00 0.00000E+00 1.68220E+00 + 3.68423E-01 2.68666E-01 5.93941E-02 0.00000E+00 0.00000E+00 + 1.82613E+00 4.02914E-01 2.89370E-01 6.44002E-02 0.00000E+00 + 0.00000E+00 1.96802E+00 4.37223E-01 3.10527E-01 6.95622E-02 + 0.00000E+00 0.00000E+00 2.11242E+00 4.72452E-01 3.32422E-01 + 7.49528E-02 0.00000E+00 0.00000E+00 2.24484E+00 5.05056E-01 + 3.54546E-01 8.04503E-02 0.00000E+00 0.00000E+00 2.37518E+00 + 5.37443E-01 3.75363E-01 8.56710E-02 0.00000E+00 0.00000E+00 + 2.52813E+00 5.75803E-01 3.97620E-01 9.13053E-02 0.00000E+00 + 0.00000E+00 2.63650E+00 6.03235E-01 4.21198E-01 9.73307E-02 + 0.00000E+00 0.00000E+00 2.80469E+00 6.46218E-01 4.41664E-01 + 1.02611E-01 0.00000E+00 0.00000E+00 2.91217E+00 6.73946E-01 + 4.59805E-01 1.07337E-01 0.00000E+00 0.00000E+00 3.01985E+00 + 7.01997E-01 4.75569E-01 1.11483E-01 0.00000E+00 0.00000E+00 + 3.11979E+00 7.28287E-01 4.89079E-01 1.15072E-01 0.00000E+00 + 0.00000E+00 3.20323E+00 7.50450E-01 5.02255E-01 1.18607E-01 + 0.00000E+00 0.00000E+00 3.24936E+00 7.62826E-01 5.11033E-01 + 1.20985E-01 0.00000E+00 0.00000E+00 3.29564E+00 7.75366E-01 + 5.18759E-01 1.23100E-01 0.00000E+00 0.00000E+00 3.31003E+00 + 7.79305E-01 5.22285E-01 1.24075E-01 0.00000E+00 0.00000E+00 + 3.31665E+00 7.81136E-01 5.23077E-01 1.24297E-01 0.00000E+00 + 0.00000E+00 3.30343E+00 7.77443E-01 5.23512E-01 1.24419E-01 + 0.00000E+00 0.00000E+00 3.26222E+00 7.65806E-01 5.20433E-01 + 1.23541E-01 0.00000E+00 0.00000E+00 3.24327E+00 7.60400E-01 + 5.15618E-01 1.22152E-01 0.00000E+00 0.00000E+00 3.16990E+00 + 7.39242E-01 5.07342E-01 1.19740E-01 0.00000E+00 0.00000E+00 + 3.08996E+00 7.15940E-01 4.97481E-01 1.16834E-01 0.00000E+00 + 0.00000E+00 2.99843E+00 6.88965E-01 4.87034E-01 1.13721E-01 + 0.00000E+00 0.00000E+00 2.89607E+00 6.58470E-01 4.73780E-01 + 1.09728E-01 0.00000E+00 0.00000E+00 2.79215E+00 6.27159E-01 + 4.61888E-01 1.06105E-01 0.00000E+00 0.00000E+00 2.67891E+00 + 5.92655E-01 4.48455E-01 1.01965E-01 0.00000E+00 0.00000E+00 + 2.57226E+00 5.59787E-01 4.36419E-01 9.82126E-02 0.00000E+00 + 0.00000E+00 2.46825E+00 5.27364E-01 4.22937E-01 9.39607E-02 + 0.00000E+00 0.00000E+00 2.35455E+00 4.91504E-01 4.08548E-01 + 8.93689E-02 0.00000E+00 0.00000E+00 2.24546E+00 4.56689E-01 + 3.97586E-01 8.58287E-02 0.00000E+00 0.00000E+00 2.13665E+00 + 4.21552E-01 3.84670E-01 8.16067E-02 0.00000E+00 0.00000E+00 + 2.03620E+00 3.88716E-01 3.72353E-01 7.75311E-02 0.00000E+00 + 0.00000E+00 1.93665E+00 3.55775E-01 3.60661E-01 7.36141E-02 + 0.00000E+00 0.00000E+00 1.83842E+00 3.22872E-01 3.50949E-01 + 7.03200E-02 0.00000E+00 0.00000E+00 1.75713E+00 2.95296E-01 + 3.42574E-01 6.74427E-02 0.00000E+00 0.00000E+00 1.68152E+00 + 2.69318E-01 3.35184E-01 6.48712E-02 0.00000E+00 0.00000E+00 + 1.61185E+00 2.45074E-01 3.28706E-01 6.25871E-02 0.00000E+00 + 0.00000E+00 1.55392E+00 2.24650E-01 3.23785E-01 6.08297E-02 + 0.00000E+00 0.00000E+00 1.50290E+00 2.06427E-01 3.18517E-01 + 5.89222E-02 0.00000E+00 0.00000E+00 1.44757E+00 1.86393E-01 + 3.13697E-01 5.71535E-02 0.00000E+00 0.00000E+00 1.39773E+00 + 1.68106E-01 3.09297E-01 5.55166E-02 0.00000E+00 0.00000E+00 + 1.35296E+00 1.51452E-01 3.05999E-01 5.42725E-02 0.00000E+00 + 0.00000E+00 1.31264E+00 1.36243E-01 3.03304E-01 5.32417E-02 + 0.00000E+00 0.00000E+00 1.27657E+00 1.22442E-01 3.00900E-01 + 5.23088E-02 0.00000E+00 0.00000E+00 1.24440E+00 1.09961E-01 + 2.99431E-01 5.17304E-02 0.00000E+00 0.00000E+00 1.21657E+00 + 9.90010E-02 2.98703E-01 5.14393E-02 0.00000E+00 0.00000E+00 + 1.19125E+00 8.88836E-02 2.97669E-01 5.10199E-02 0.00000E+00 + 0.00000E+00 1.16840E+00 7.96152E-02 2.97272E-01 5.08561E-02 + 0.00000E+00 0.00000E+00 1.14811E+00 7.12581E-02 2.97393E-01 + 5.09070E-02 0.00000E+00 0.00000E+00 1.13016E+00 6.37468E-02 + 2.97876E-01 5.11118E-02 0.00000E+00 0.00000E+00 1.11428E+00 + 5.70046E-02 2.98302E-01 5.12960E-02 0.00000E+00 0.00000E+00 + 1.09974E+00 5.07264E-02 2.99413E-01 5.17833E-02 0.00000E+00 + 0.00000E+00 1.08719E+00 4.52222E-02 3.00437E-01 5.22402E-02 + 0.00000E+00 0.00000E+00 1.07649E+00 4.04549E-02 3.02000E-01 + 5.29487E-02 0.00000E+00 0.00000E+00 1.06705E+00 3.61742E-02 + 3.03577E-01 5.36760E-02 0.00000E+00 0.00000E+00 1.05876E+00 + 3.23495E-02 3.05391E-01 5.45267E-02 0.00000E+00 0.00000E+00 + 1.05146E+00 2.89226E-02 3.07367E-01 5.54704E-02 0.00000E+00 + 0.00000E+00 1.04504E+00 2.58561E-02 3.09410E-01 5.64635E-02 + 0.00000E+00 0.00000E+00 1.03941E+00 2.31201E-02 3.11525E-01 + 5.75108E-02 0.00000E+00 0.00000E+00 1.03445E+00 2.06682E-02 + 3.13905E-01 5.87110E-02 0.00000E+00 0.00000E+00 1.03011E+00 + 1.84765E-02 3.16214E-01 5.98980E-02 0.00000E+00 0.00000E+00 + 1.02630E+00 1.65192E-02 3.18550E-01 6.11223E-02 0.00000E+00 + 0.00000E+00 1.02223E+00 1.43868E-02 3.21012E-01 6.24382E-02 + 0.00000E+00 0.00000E+00 1.01916E+00 1.27474E-02 3.23642E-01 + 6.38712E-02 0.00000E+00 0.00000E+00 1.01678E+00 1.14468E-02 + 3.26265E-01 6.53304E-02 0.00000E+00 0.00000E+00 1.01469E+00 + 1.02859E-02 3.28993E-01 6.68811E-02 0.00000E+00 0.00000E+00 + 1.01284E+00 9.23422E-03 3.31693E-01 6.84478E-02 0.00000E+00 + 0.00000E+00 1.01123E+00 8.29812E-03 3.34395E-01 7.00510E-02 + 0.00000E+00 0.00000E+00 1.00981E+00 7.45665E-03 3.37178E-01 + 7.17386E-02 0.00000E+00 0.00000E+00 1.00856E+00 6.70047E-03 + 3.39809E-01 7.33716E-02 0.00000E+00 0.00000E+00 1.00692E+00 + 5.68087E-03 3.42600E-01 7.51439E-02 0.00000E+00 0.00000E+00 + 1.00604E+00 5.12049E-03 3.45424E-01 7.69808E-02 0.00000E+00 + 0.00000E+00 1.00529E+00 4.63397E-03 3.48205E-01 7.88353E-02 + 0.00000E+00 0.00000E+00 1.00462E+00 4.19081E-03 3.51018E-01 + 8.07577E-02 0.00000E+00 0.00000E+00 1.00405E+00 3.79581E-03 + 3.53788E-01 8.27002E-02 0.00000E+00 0.00000E+00 1.00353E+00 + 3.43293E-03 3.56579E-01 8.47093E-02 0.00000E+00 0.00000E+00 + 1.00309E+00 3.11340E-03 3.59345E-01 8.67557E-02 0.00000E+00 + 0.00000E+00 1.00268E+00 2.81314E-03 3.62093E-01 8.88455E-02 + 0.00000E+00 0.00000E+00 1.00233E+00 2.54981E-03 3.64831E-01 + 9.09895E-02 0.00000E+00 0.00000E+00 1.00203E+00 2.31053E-03 + 3.71097E-01 9.60409E-02 0.00000E+00 0.00000E+00 1.01564E+00 + 1.32869E-02 3.70068E-01 9.51859E-02 0.00000E+00 0.00000E+00 + 1.00069E+00 8.60640E-04 3.72767E-01 9.75013E-02 0.00000E+00 + 0.00000E+00 1.00060E+00 7.80357E-04 3.75438E-01 9.98672E-02 + 0.00000E+00 0.00000E+00 1.00051E+00 7.04890E-04 3.78068E-01 + 1.02275E-01 0.00000E+00 0.00000E+00 1.00044E+00 6.42269E-04 + 3.80684E-01 1.04756E-01 0.00000E+00 0.00000E+00 1.00038E+00 + 5.79648E-04 3.83260E-01 1.07287E-01 0.00000E+00 0.00000E+00 + 1.00032E+00 5.26661E-04 3.85795E-01 1.09872E-01 0.00000E+00 + 0.00000E+00 1.00027E+00 4.73673E-04 3.88921E-01 1.13186E-01 + 0.00000E+00 0.00000E+00 1.00239E+00 2.71840E-03 3.90738E-01 + 1.15190E-01 0.00000E+00 0.00000E+00 1.00007E+00 1.62173E-04 + 3.93172E-01 1.17991E-01 0.00000E+00 0.00000E+00 1.00006E+00 + 1.47722E-04 3.95555E-01 1.20856E-01 0.00000E+00 0.00000E+00 + 1.00005E+00 1.36480E-04 3.97895E-01 1.23800E-01 0.00000E+00 + 0.00000E+00 1.00004E+00 1.25242E-04 4.00179E-01 1.26814E-01 + 0.00000E+00 0.00000E+00 1.00004E+00 1.18820E-04 4.02420E-01 + 1.29923E-01 0.00000E+00 0.00000E+00 1.00003E+00 1.04369E-04 + 4.04591E-01 1.33100E-01 0.00000E+00 0.00000E+00 1.00002E+00 + 8.99177E-05 4.06711E-01 1.36379E-01 0.00000E+00 0.00000E+00 + 1.00001E+00 8.51006E-05 4.08761E-01 1.39744E-01 0.00000E+00 + 0.00000E+00 1.00001E+00 7.86780E-05 4.10747E-01 1.43214E-01 + 0.00000E+00 0.00000E+00 1.00001E+00 7.38609E-05 4.12653E-01 + 1.46776E-01 0.00000E+00 0.00000E+00 1.00000E+00 6.26212E-05 + 4.14481E-01 1.50449E-01 0.00000E+00 0.00000E+00 9.99998E-01 + 5.61985E-05 4.16224E-01 1.54230E-01 0.00000E+00 0.00000E+00 + 9.99996E-01 5.13815E-05 4.17875E-01 1.58128E-01 0.00000E+00 + 0.00000E+00 9.99994E-01 4.65645E-05 4.19425E-01 1.62138E-01 + 0.00000E+00 0.00000E+00 9.99994E-01 4.65639E-05 4.20873E-01 + 1.66280E-01 0.00000E+00 0.00000E+00 9.99992E-01 4.17475E-05 + 4.22204E-01 1.70542E-01 0.00000E+00 0.00000E+00 9.99990E-01 + 3.69305E-05 4.23416E-01 1.74946E-01 0.00000E+00 0.00000E+00 + 9.99990E-01 3.69305E-05 4.24496E-01 1.79482E-01 0.00000E+00 + 0.00000E+00 9.99989E-01 3.05078E-05 4.25436E-01 1.84163E-01 + 0.00000E+00 0.00000E+00 9.99988E-01 2.89021E-05 4.26228E-01 + 1.88996E-01 0.00000E+00 0.00000E+00 9.99988E-01 2.72964E-05 + 4.26860E-01 1.93981E-01 0.00000E+00 0.00000E+00 9.99988E-01 + 2.56908E-05 4.27321E-01 1.99126E-01 0.00000E+00 0.00000E+00 + 9.99987E-01 2.08737E-05 4.27599E-01 2.04437E-01 0.00000E+00 + 0.00000E+00 9.99988E-01 2.40851E-05 4.27684E-01 2.09919E-01 + 0.00000E+00 0.00000E+00 9.99988E-01 1.92681E-05 4.27600E-01 + 2.13755E-01 -9.04078E-05 4.15168E-03 9.99988E-01 1.60565E-05 + 4.27264E-01 2.19459E-01 -9.93594E-05 4.30366E-03 9.99988E-01 + 1.60567E-05 4.26699E-01 2.25348E-01 -1.14703E-04 4.46346E-03 + 9.99988E-01 1.28454E-05 4.25890E-01 2.31423E-01 -1.36837E-04 + 4.62970E-03 9.99987E-01 1.60567E-05 4.24824E-01 2.37685E-01 + -1.66282E-04 4.80264E-03 9.99988E-01 1.28454E-05 4.23483E-01 + 2.44151E-01 -2.03598E-04 4.98258E-03 9.99988E-01 1.12397E-05 + 4.21853E-01 2.50818E-01 -2.49377E-04 5.16981E-03 9.99988E-01 + 1.44511E-05 4.19915E-01 2.57697E-01 -3.04243E-04 5.36463E-03 + 9.99989E-01 9.63404E-06 4.17654E-01 2.64793E-01 -3.68858E-04 + 5.56735E-03 9.99989E-01 1.12397E-05 4.15050E-01 2.72108E-01 + -4.43929E-04 5.77830E-03 9.99988E-01 1.12397E-05 4.14154E-01 + 2.74389E-01 -4.41171E-03 1.58747E-02 9.99990E-01 9.63404E-06 + 4.12183E-01 2.78973E-01 -6.86501E-03 2.15786E-02 9.99990E-01 + 6.42269E-06 4.08744E-01 2.86331E-01 -7.25248E-03 2.24079E-02 + 9.99990E-01 8.02826E-06 4.04933E-01 2.93888E-01 -7.68709E-03 + 2.32696E-02 9.99989E-01 8.02836E-06 4.00733E-01 3.01645E-01 + -8.17183E-03 2.41648E-02 9.99992E-01 4.81702E-06 3.96119E-01 + 3.09617E-01 -8.70995E-03 2.50948E-02 9.99990E-01 6.42269E-06 + 3.91078E-01 3.17806E-01 -9.30480E-03 2.60609E-02 9.99990E-01 + 6.42269E-06 3.85593E-01 3.26207E-01 -9.95975E-03 2.70642E-02 + 9.99990E-01 6.42269E-06 3.86935E-01 3.24262E-01 -2.23548E-02 + 4.50290E-02 9.99900E-01 1.36482E-04 3.81948E-01 3.31122E-01 + -2.47753E-02 4.83581E-02 1.00000E+00 0.00000E+00 3.75783E-01 + 3.39189E-01 -2.61765E-02 5.01917E-02 1.00000E+00 0.00000E+00 + 3.69192E-01 3.47415E-01 -2.76971E-02 5.20893E-02 1.00000E+00 + -1.60567E-06 3.62164E-01 3.55796E-01 -2.93436E-02 5.40530E-02 + 9.99998E-01 1.60567E-06 3.54680E-01 3.64343E-01 -3.11224E-02 + 5.60846E-02 1.00000E+00 0.00000E+00 3.46740E-01 3.73043E-01 + -3.30395E-02 5.81852E-02 1.00000E+00 0.00000E+00 3.38333E-01 + 3.81895E-01 -3.51016E-02 6.03561E-02 1.00000E+00 0.00000E+00 + 3.29444E-01 3.90903E-01 -3.73157E-02 6.25997E-02 1.00000E+00 + 0.00000E+00 3.20073E-01 4.00052E-01 -3.96880E-02 6.49161E-02 + 1.00000E+00 0.00000E+00 3.10210E-01 4.09347E-01 -4.22256E-02 + 6.73074E-02 1.00000E+00 -1.60567E-06 3.17416E-01 4.02786E-01 + -6.68124E-02 8.96939E-02 9.99997E-01 1.60567E-06 3.17416E-01 + 4.02786E-01 -6.68124E-02 8.96939E-02 9.99997E-01 1.60567E-06 + MEDIUM=ALUM-3MEV-10KEV-02KEV ,STERNCID=ALUM-3MEV-10KEV-02KEV + ELEM,RHO= 2.7020E+00,NE= 1 + ASYM=AL,Z=13.,A= 26.982,PZ= 1.00000E+00,RHOZ= 2.69815E+01 + 8.88722E+00 5.21000E-01 2.00000E-03 3.51100E+00 3.00200E+00 + 0 200 0 150 0 0 0 0 + 9.99981E-01 -2.19279E-01 5.03195E-02 9.95706E-01 -2.35368E-01 + 9.52000E-01 1.00023E+00 -1.85862E-01 3.58308E-02 1.01473E+00 + -2.39866E-01 9.52000E-01 1.00036E+00 -1.68669E-01 2.58879E-02 + 1.02452E+00 -2.42180E-01 9.52000E-01 9.99981E-01 -2.19810E-01 + 5.04414E-02 9.95695E-01 -2.35938E-01 9.52000E-01 1.00023E+00 + -1.86320E-01 3.59193E-02 1.01477E+00 -2.40458E-01 9.52000E-01 + 1.00036E+00 -1.69090E-01 2.59524E-02 1.02458E+00 -2.42783E-01 + 9.52000E-01 + 2.95564E+01 9.41857E-01 8.53614E-01 2.29371E+00 9.41901E-01 + 8.53605E-01 2.26997E+00 + 1.09552E-01 1.04935E-04 1.90631E+05 5.04144E+00 + 1.21501E+02 2.59409E+01 + 9.91931E+00 1.55599E+00 1.90277E+04 4.12859E+03 -9.33733E+02 + -2.88749E+02 -1.30169E+03 -3.78920E+02 1.00000E+00 0.00000E+00 + -2.64604E+01 -5.79607E+00 8.69583E+01 1.88284E+01 2.64582E-05 + 5.12867E-06 9.91931E+00 1.55599E+00 1.90277E+04 4.12859E+03 + -9.33733E+02 -2.88749E+02 -1.30169E+03 -3.78920E+02 1.00000E+00 + 0.00000E+00 -2.64604E+01 -5.79607E+00 8.69583E+01 1.88284E+01 + 2.64582E-05 5.12867E-06 9.87962E+00 1.54730E+00 1.69317E+04 + 3.66976E+03 -8.98752E+02 -2.81091E+02 -1.24401E+03 -3.66295E+02 + 1.00000E+00 0.00000E+00 -8.68785E-01 -1.93853E-01 3.83817E+00 + 6.32722E-01 2.80970E-05 5.48741E-06 9.83222E+00 1.53683E+00 + 1.50135E+04 3.24629E+03 -8.64541E+02 -2.73538E+02 -1.18823E+03 + -3.53980E+02 1.00000E+00 0.00000E+00 -2.88968E-01 -6.58457E-02 + 1.95562E+00 2.17108E-01 2.98474E-05 5.87386E-06 9.78680E+00 + 1.52672E+00 1.32844E+04 2.86126E+03 -8.31588E+02 -2.66201E+02 + -1.13504E+03 -3.42136E+02 1.00000E+00 0.00000E+00 -1.39812E-01 + -3.26336E-02 1.47187E+00 1.09393E-01 3.17135E-05 6.28937E-06 + 9.74776E+00 1.51795E+00 1.17191E+04 2.50971E+03 -7.99074E+02 + -2.58899E+02 -1.08332E+03 -3.30521E+02 1.00000E+00 0.00000E+00 + -7.95795E-02 -1.91057E-02 1.27703E+00 6.56318E-02 3.36861E-05 + 6.73240E-06 9.69160E+00 1.50523E+00 1.03102E+04 2.19051E+03 + -7.68104E+02 -2.51883E+02 -1.03443E+03 -3.19443E+02 1.00000E+00 + 0.00000E+00 -4.93843E-02 -1.22647E-02 1.17965E+00 4.35700E-02 + 3.57835E-05 7.20758E-06 9.65120E+00 1.49600E+00 9.03881E+03 + 1.89994E+03 -7.37923E+02 -2.44985E+02 -9.87327E+02 -3.08678E+02 + 1.00000E+00 0.00000E+00 -3.20389E-02 -8.30041E-03 1.12414E+00 + 3.08839E-02 3.80087E-05 7.71617E-06 9.60618E+00 1.48561E+00 + 7.89570E+03 1.63636E+03 -7.08503E+02 -2.38200E+02 -9.41954E+02 + -2.98216E+02 1.00000E+00 0.00000E+00 -2.11512E-02 -5.78991E-03 + 1.08960E+00 2.29191E-02 4.03662E-05 8.25976E-06 9.55759E+00 + 1.47431E+00 6.86828E+03 1.39733E+03 -6.80237E+02 -2.31624E+02 + -8.98753E+02 -2.88165E+02 1.00000E+00 0.00000E+00 -1.38377E-02 + -4.08841E-03 1.06670E+00 1.75896E-02 4.28742E-05 8.84323E-06 + 9.51630E+00 1.46462E+00 5.94601E+03 1.18082E+03 -6.52834E+02 + -2.25191E+02 -8.57292E+02 -2.78432E+02 1.00000E+00 0.00000E+00 + -8.64913E-03 -2.87035E-03 1.05073E+00 1.38415E-02 4.55310E-05 + 9.46695E-06 9.46912E+00 1.45344E+00 5.11813E+03 9.84691E+02 + -6.26300E+02 -2.18905E+02 -8.17545E+02 -2.69016E+02 1.00000E+00 + 0.00000E+00 -4.81274E-03 -1.96150E-03 1.03916E+00 1.11033E-02 + 4.83475E-05 1.01342E-05 9.42335E+00 1.44249E+00 4.37815E+03 + 8.07770E+02 -6.00596E+02 -2.12760E+02 -7.79422E+02 -2.59901E+02 + 1.00000E+00 0.00000E+00 -1.87212E-03 -1.25845E-03 1.03055E+00 + 9.04376E-03 5.13380E-05 1.08492E-05 9.37888E+00 1.43176E+00 + 3.71664E+03 6.48148E+02 -5.75848E+02 -2.06789E+02 -7.43038E+02 + -2.51121E+02 1.00000E+00 0.00000E+00 4.57744E-04 -6.96231E-04 + 1.02396E+00 7.45108E-03 5.45085E-05 1.16142E-05 9.33162E+00 + 1.42025E+00 3.12609E+03 5.04302E+02 -5.51763E+02 -2.00922E+02 + -7.07992E+02 -2.42585E+02 1.00000E+00 0.00000E+00 2.35350E-03 + -2.34480E-04 1.01880E+00 6.19720E-03 5.78661E-05 1.24320E-05 + 9.28816E+00 1.40957E+00 2.60079E+03 3.75140E+02 -5.28561E+02 + -1.95216E+02 -6.74522E+02 -2.34356E+02 1.00000E+00 0.00000E+00 + 3.93773E-03 1.55060E-04 1.01467E+00 5.17973E-03 6.14316E-05 + 1.33087E-05 9.24115E+00 1.39789E+00 2.13371E+03 2.59195E+02 + -5.06135E+02 -1.89650E+02 -6.42462E+02 -2.26397E+02 1.00000E+00 + 0.00000E+00 5.28839E-03 4.90341E-04 1.01136E+00 4.35566E-03 + 6.52011E-05 1.42445E-05 9.19693E+00 1.38682E+00 1.71942E+03 + 1.55360E+02 -4.84569E+02 -1.84245E+02 -6.11880E+02 -2.18732E+02 + 1.00000E+00 0.00000E+00 6.46878E-03 7.86187E-04 1.00860E+00 + 3.66758E-03 6.92011E-05 1.52470E-05 9.15225E+00 1.37551E+00 + 1.35375E+03 6.28192E+01 -4.63582E+02 -1.78933E+02 -5.82413E+02 + -2.11274E+02 1.00000E+00 0.00000E+00 7.51449E-03 1.05084E-03 + 1.00635E+00 3.09549E-03 7.34408E-05 1.63200E-05 8.61814E+03 + 2.20160E+03 1.03107E+03 -1.96488E+01 -5.31061E+02 -1.96179E+02 + -5.54236E+02 -2.04074E+02 -9.61236E+01 -2.48221E+01 8.45968E-03 + 1.29240E-03 1.00442E+00 2.60225E-03 7.79274E-05 1.74667E-05 + 7.19813E+03 1.83507E+03 7.47713E+02 -9.27912E+01 -5.00342E+02 + -1.88250E+02 -5.27388E+02 -1.97143E+02 -1.84775E+00 -4.88066E-01 + 9.32635E-03 1.51610E-03 1.00280E+00 2.18478E-03 8.26901E-05 + 1.86960E-05 6.05547E+03 1.53717E+03 4.99628E+02 -1.57469E+02 + -4.72313E+02 -1.80943E+02 -5.01523E+02 -1.90400E+02 -6.07800E-01 + -1.64798E-01 1.01308E-02 1.72584E-03 1.00140E+00 1.82142E-03 + 8.77156E-05 2.00062E-05 5.12993E+03 1.29342E+03 2.83032E+02 + -2.14509E+02 -4.46773E+02 -1.74216E+02 -4.76938E+02 -1.83926E+02 + -2.91725E-01 -8.15575E-02 1.08935E-02 1.92670E-03 1.00019E+00 + 1.50136E-03 9.30578E-05 2.14131E-05 4.37031E+03 1.09132E+03 + 9.50554E+01 -2.64523E+02 -4.23036E+02 -1.67901E+02 -4.53293E+02 + -1.77635E+02 -1.64923E-01 -4.78208E-02 1.16037E-02 2.11563E-03 + 9.99147E-01 1.22459E-03 9.86918E-05 2.29120E-05 3.74366E+03 + 9.22866E+02 -6.70182E+01 -3.08092E+02 -4.00996E+02 -1.61977E+02 + -4.30745E+02 -1.71573E+02 -1.01640E-01 -3.08095E-02 1.22990E-02 + 2.30254E-03 9.98219E-01 9.75651E-04 1.04664E-04 2.45174E-05 + 3.22063E+03 7.80795E+02 -2.05982E+02 -3.45838E+02 -3.80261E+02 + -1.56344E+02 -4.09084E+02 -1.65690E+02 -6.55736E-02 -2.10127E-02 + 1.29649E-02 2.48343E-03 9.97415E-01 7.56090E-04 1.10979E-04 + 2.62329E-05 2.78220E+03 6.60445E+02 -3.24713E+02 -3.78431E+02 + -3.60882E+02 -1.51024E+02 -3.88508E+02 -1.60041E+02 -4.31093E-02 + -1.48462E-02 1.36166E-02 2.66231E-03 9.96673E-01 5.53542E-04 + 1.17672E-04 2.80699E-05 2.41107E+03 5.57479E+02 -4.24263E+02 + -4.06050E+02 -3.42396E+02 -1.45896E+02 -3.68654E+02 -1.54533E+02 + -2.81495E-02 -1.06957E-02 1.42500E-02 2.83806E-03 9.96048E-01 + 3.78818E-04 1.24731E-04 3.00284E-05 2.09597E+03 4.69112E+02 + -5.08115E+02 -4.29565E+02 -3.25027E+02 -1.41025E+02 -3.49817E+02 + -1.49250E+02 -1.76934E-02 -7.76346E-03 1.48748E-02 3.01326E-03 + 9.95467E-01 2.16468E-04 1.32209E-04 3.21257E-05 1.82534E+03 + 3.92388E+02 -5.76469E+02 -4.48943E+02 -3.08420E+02 -1.36316E+02 + -3.31695E+02 -1.44113E+02 -1.00294E-02 -5.59069E-03 1.54972E-02 + 3.18973E-03 9.94947E-01 6.80327E-05 1.40105E-04 3.43643E-05 + 1.59305E+03 3.25803E+02 -6.32208E+02 -4.64919E+02 -2.92677E+02 + -1.31804E+02 -3.14445E+02 -1.39168E+02 -4.27388E-03 -3.94094E-03 + 1.61080E-02 3.36482E-03 9.94458E-01 -6.95789E-05 1.48457E-04 + 3.67581E-05 1.39130E+03 2.67330E+02 -6.76414E+02 -4.77734E+02 + -2.77688E+02 -1.27460E+02 -2.97962E+02 -1.34391E+02 2.18497E-04 + -2.63885E-03 1.67185E-02 3.54176E-03 9.94050E-01 -1.90182E-04 + 1.57278E-04 3.93149E-05 1.21650E+03 2.16095E+02 -7.09695E+02 + -4.87489E+02 -2.63294E+02 -1.23241E+02 -2.82121E+02 -1.29748E+02 + 3.79128E-03 -1.59164E-03 1.73245E-02 3.71937E-03 9.93648E-01 + -3.07693E-04 1.66587E-04 4.20435E-05 1.06377E+03 1.70815E+02 + -7.34553E+02 -4.94858E+02 -2.49623E+02 -1.19188E+02 -2.67063E+02 + -1.25284E+02 6.70866E-03 -7.26737E-04 1.79322E-02 3.89953E-03 + 9.93290E-01 -4.12835E-04 1.76433E-04 4.49625E-05 9.30116E+02 + 1.30733E+02 -7.51013E+02 -4.99793E+02 -2.36529E+02 -1.15261E+02 + -2.52647E+02 -1.20961E+02 9.13812E-03 1.83611E-06 1.85389E-02 + 4.08148E-03 9.92956E-01 -5.13337E-04 1.86812E-04 4.80749E-05 + 8.12843E+02 9.51525E+01 -7.60650E+02 -5.02717E+02 -2.24008E+02 + -1.11462E+02 -2.38873E+02 -1.16781E+02 1.11971E-02 6.26504E-04 + 1.91473E-02 4.26606E-03 9.92659E-01 -6.03021E-04 1.97771E-04 + 5.13999E-05 7.09606E+02 6.34597E+01 -7.64047E+02 -5.03760E+02 + -2.12040E+02 -1.07788E+02 -2.25732E+02 -1.12747E+02 1.29643E-02 + 1.16905E-03 1.97505E-02 4.45124E-03 9.92387E-01 -6.88058E-04 + 2.09344E-04 5.49527E-05 6.18683E+02 3.52135E+01 -7.62064E+02 + -5.03145E+02 -2.00569E+02 -1.04224E+02 -2.13157E+02 -1.08840E+02 + 1.45402E-02 1.65863E-03 2.03728E-02 4.64458E-03 9.92127E-01 + -7.68460E-04 2.21528E-04 5.87378E-05 5.38422E+02 9.97720E+00 + -7.55604E+02 -5.01113E+02 -1.89610E+02 -1.00779E+02 -2.01168E+02 + -1.05071E+02 1.59141E-02 2.09063E-03 2.09810E-02 4.83580E-03 + 9.91892E-01 -8.42678E-04 2.34390E-04 6.27819E-05 4.67880E+02 + -1.24765E+01 -7.44907E+02 -4.97709E+02 -1.79104E+02 -9.74343E+01 + -1.89704E+02 -1.01422E+02 1.71550E-02 2.48558E-03 2.15959E-02 + 5.03154E-03 9.91675E-01 -9.10710E-04 2.47935E-04 6.70933E-05 + 4.05516E+02 -3.25726E+01 -7.30955E+02 -4.93212E+02 -1.69064E+02 + -9.41990E+01 -1.78773E+02 -9.78998E+01 1.82859E-02 2.84998E-03 + 2.22138E-02 5.23063E-03 9.91465E-01 -9.80289E-04 2.62220E-04 + 7.16964E-05 3.50477E+02 -5.05312E+01 -7.14267E+02 -4.87767E+02 + -1.59452E+02 -9.10629E+01 -1.68339E+02 -9.44949E+01 1.93281E-02 + 3.19007E-03 2.28359E-02 5.43364E-03 9.91286E-01 -1.03750E-03 + 2.77261E-04 7.66042E-05 3.02193E+02 -6.64870E+01 -6.94875E+02 + -4.81358E+02 -1.50261E+02 -8.80259E+01 -1.58387E+02 -9.12063E+01 + 2.02914E-02 3.50839E-03 2.34576E-02 5.63909E-03 9.91106E-01 + -1.09625E-03 2.93097E-04 8.18373E-05 2.59631E+02 -8.07336E+01 + -6.73589E+02 -4.74235E+02 -1.41449E+02 -8.50764E+01 -1.48871E+02 + -8.80213E+01 2.11846E-02 3.80737E-03 2.40750E-02 5.84571E-03 + 9.90939E-01 -1.15037E-03 3.09765E-04 8.74163E-05 2.22350E+02 + -9.33755E+01 -6.50675E+02 -4.66466E+02 -1.33030E+02 -8.22211E+01 + -1.39805E+02 -8.49469E+01 2.20416E-02 4.09795E-03 2.47049E-02 + 6.05933E-03 9.90803E-01 -1.19830E-03 3.27297E-04 9.33614E-05 + 1.89842E+02 -1.04544E+02 -6.26378E+02 -4.58117E+02 -1.24975E+02 + -7.94537E+01 -1.31153E+02 -8.19743E+01 2.28438E-02 4.37356E-03 + 2.53290E-02 6.27374E-03 9.90661E-01 -1.24623E-03 3.45746E-04 + 9.97001E-05 1.61482E+02 -1.14418E+02 -6.01131E+02 -4.49326E+02 + -1.17276E+02 -7.67732E+01 -1.22908E+02 -7.91034E+01 2.36163E-02 + 4.64258E-03 2.59590E-02 6.49309E-03 9.90537E-01 -1.28954E-03 + 3.65142E-04 1.06454E-04 1.36981E+02 -1.23066E+02 -5.75139E+02 + -4.40153E+02 -1.09914E+02 -7.41745E+01 -1.15042E+02 -7.63274E+01 + 2.43460E-02 4.90009E-03 2.65824E-02 6.71313E-03 9.90426E-01 + -1.32973E-03 3.85508E-04 1.13642E-04 1.15873E+02 -1.30619E+02 + -5.48565E+02 -4.30643E+02 -1.02878E+02 -7.16573E+01 -1.07547E+02 + -7.36455E+01 2.50561E-02 5.15415E-03 2.72108E-02 6.93798E-03 + 9.90321E-01 -1.36684E-03 4.06924E-04 1.21304E-04 9.78293E+01 + -1.37164E+02 -5.21630E+02 -4.20871E+02 -9.61506E+01 -6.92164E+01 + -1.00397E+02 -7.10513E+01 2.57370E-02 5.40121E-03 2.78343E-02 + 7.16416E-03 9.90228E-01 -1.39931E-03 4.29400E-04 1.29459E-04 + 8.26264E+01 -1.42759E+02 -4.94546E+02 -4.10906E+02 -8.97260E+01 + -6.68525E+01 -9.35864E+01 -6.85455E+01 2.64007E-02 5.64541E-03 + 2.84609E-02 7.39474E-03 9.90141E-01 -1.43332E-03 4.52993E-04 + 1.38139E-04 6.98745E+01 -1.47517E+02 -4.67465E+02 -4.00798E+02 + -8.35843E+01 -6.45601E+01 -8.70909E+01 -6.61210E+01 2.70396E-02 + 5.88388E-03 2.90807E-02 7.62609E-03 9.90061E-01 -1.46116E-03 + 4.77738E-04 1.47376E-04 5.93961E+01 -1.51487E+02 -4.40501E+02 + -3.90587E+02 -7.77304E+01 -6.23435E+01 -8.09145E+01 -6.37821E+01 + 2.76617E-02 6.11946E-03 2.96984E-02 7.86000E-03 9.90005E-01 + -1.48435E-03 5.03704E-04 1.57209E-04 5.08495E+01 -1.54771E+02 + -4.13816E+02 -3.80332E+02 -7.21382E+01 -6.01943E+01 -7.50281E+01 + -6.15200E+01 2.82697E-02 6.35311E-03 3.03131E-02 8.09623E-03 + 9.89956E-01 -1.50445E-03 5.30902E-04 1.67661E-04 4.41932E+01 + -1.57367E+02 -3.87435E+02 -3.70041E+02 -6.67965E+01 -5.81105E+01 + -6.94157E+01 -5.93306E+01 2.88600E-02 6.58337E-03 3.09222E-02 + 8.33381E-03 9.89894E-01 -1.52610E-03 5.59415E-04 1.78783E-04 + 3.91583E+01 -1.59361E+02 -3.61443E+02 -3.59748E+02 -6.17058E+01 + -5.60946E+01 -6.40811E+01 -5.72179E+01 2.94383E-02 6.81240E-03 + 3.15271E-02 8.57337E-03 9.89857E-01 -1.54156E-03 5.89261E-04 + 1.90604E-04 3.55452E+01 -1.60815E+02 -3.36000E+02 -3.49515E+02 + -5.68478E+01 -5.41408E+01 -5.89987E+01 -5.51741E+01 2.99964E-02 + 7.03689E-03 3.21206E-02 8.81209E-03 9.89826E-01 -1.55393E-03 + 6.20495E-04 2.03165E-04 3.32463E+01 -1.61754E+02 -3.11078E+02 + -3.39334E+02 -5.22166E+01 -5.22487E+01 -5.41633E+01 -5.31987E+01 + 3.05542E-02 7.26476E-03 3.27175E-02 9.05591E-03 9.89801E-01 + -1.56321E-03 6.53185E-04 2.16519E-04 3.20540E+01 -1.62248E+02 + -2.86810E+02 -3.29261E+02 -4.78032E+01 -5.04170E+01 -4.95658E+01 + -5.12904E+01 3.10861E-02 7.48550E-03 3.32952E-02 9.29571E-03 + 9.89789E-01 -1.56939E-03 6.87362E-04 2.30705E-04 3.19212E+01 + -1.62305E+02 -2.63122E+02 -3.19269E+02 -4.35934E+01 -4.86412E+01 + -4.51870E+01 -4.94434E+01 3.16121E-02 7.70736E-03 3.38693E-02 + 9.53785E-03 9.89783E-01 -1.57249E-03 7.23074E-04 2.45768E-04 + 3.26589E+01 -1.61988E+02 -2.40146E+02 -3.09418E+02 -3.95866E+01 + -4.69233E+01 -4.10274E+01 -4.76599E+01 3.21220E-02 7.92595E-03 + 3.44303E-02 9.77839E-03 9.89783E-01 -1.57403E-03 7.60373E-04 + 2.61760E-04 3.42042E+01 -1.61314E+02 -2.17876E+02 -2.99709E+02 + -3.57708E+01 -4.52598E+01 -3.70719E+01 -4.59355E+01 3.26241E-02 + 8.14488E-03 3.49854E-02 1.00204E-02 9.89783E-01 -1.57094E-03 + 7.99327E-04 2.78743E-04 3.64160E+01 -1.60334E+02 -1.96330E+02 + -2.90155E+02 -3.21376E+01 -4.36488E+01 -3.33132E+01 -4.42686E+01 + 3.31089E-02 8.35988E-03 3.55240E-02 1.02592E-02 9.89807E-01 + -1.56321E-03 8.39967E-04 2.96764E-04 3.92486E+01 -1.59056E+02 + -1.75481E+02 -2.80749E+02 -2.86772E+01 -4.20876E+01 -2.97369E+01 + -4.26555E+01 3.35862E-02 8.57519E-03 3.60542E-02 1.04984E-02 + 9.89820E-01 -1.55393E-03 8.82333E-04 3.15877E-04 4.25767E+01 + -1.57528E+02 -1.55401E+02 -2.71531E+02 -2.53899E+01 -4.05782E+01 + -2.63450E+01 -4.10982E+01 3.40440E-02 8.78540E-03 3.65654E-02 + 1.07331E-02 9.89851E-01 -1.54156E-03 9.26510E-04 3.36160E-04 + 4.63386E+01 -1.55770E+02 -1.36071E+02 -2.62496E+02 -2.22597E+01 + -3.91153E+01 -2.31218E+01 -3.95915E+01 3.44931E-02 8.99529E-03 + 3.70658E-02 1.09670E-02 9.89894E-01 -1.52300E-03 9.72514E-04 + 3.57662E-04 5.04932E+01 -1.53792E+02 -1.17454E+02 -2.53635E+02 + -1.92863E+01 -3.76999E+01 -2.00627E+01 -3.81355E+01 3.49287E-02 + 9.20263E-03 3.75509E-02 1.11979E-02 9.89931E-01 -1.50290E-03 + 1.02042E-03 3.80462E-04 5.49407E+01 -1.51636E+02 -9.95915E+01 + -2.44974E+02 -1.64573E+01 -3.63283E+01 -1.71559E+01 -3.67262E+01 + 3.53513E-02 9.40750E-03 3.80205E-02 1.14256E-02 9.89981E-01 + -1.47971E-03 1.07024E-03 4.04620E-04 5.96336E+01 -1.49318E+02 + -8.24712E+01 -2.36515E+02 -1.37716E+01 -3.50013E+01 -1.44012E+01 + -3.53649E+01 3.57600E-02 9.60947E-03 3.84736E-02 1.16495E-02 + 9.90033E-01 -1.45188E-03 1.12207E-03 4.30229E-04 6.45308E+01 + -1.46850E+02 -6.60492E+01 -2.28242E+02 -1.12205E+01 -3.37163E+01 + -1.17863E+01 -3.40479E+01 3.61528E-02 9.80734E-03 3.89067E-02 + 1.18676E-02 9.90095E-01 -1.42250E-03 1.17591E-03 4.57349E-04 + 6.95741E+01 -1.44260E+02 -5.03637E+01 -2.20185E+02 -8.79868E+00 + -3.24723E+01 -9.30812E+00 -3.27748E+01 3.65345E-02 1.00034E-02 + 3.93257E-02 1.20828E-02 9.90163E-01 -1.38695E-03 1.23185E-03 + 4.86082E-04 7.47352E+01 -1.41555E+02 -3.53521E+01 -2.12320E+02 + -6.50066E+00 -3.12680E+01 -6.95784E+00 -3.15433E+01 3.68992E-02 + 1.01946E-02 3.97233E-02 1.22912E-02 9.90237E-01 -1.34828E-03 + 1.28989E-03 5.16496E-04 7.99633E+01 -1.38759E+02 -2.10342E+01 + -2.04661E+02 -4.31965E+00 -3.01015E+01 -4.73072E+00 -3.03521E+01 + 3.72478E-02 1.03809E-02 4.01002E-02 1.24928E-02 9.90312E-01 + -1.30808E-03 1.35009E-03 5.48699E-04 8.52357E+01 -1.35880E+02 + -7.38137E+00 -1.97206E+02 -2.25324E+00 -2.89730E+01 -2.62275E+00 + -2.92008E+01 3.75910E-02 1.05684E-02 4.04671E-02 1.26931E-02 + 9.90404E-01 -1.25860E-03 1.41252E-03 5.82790E-04 9.05129E+01 + -1.32936E+02 5.61757E+00 -1.89953E+02 -2.94495E-01 -2.78803E+01 + -6.26000E-01 -2.80870E+01 3.79075E-02 1.07450E-02 4.08032E-02 + 1.28806E-02 9.90485E-01 -1.21376E-03 1.47718E-03 6.18858E-04 + 9.57805E+01 -1.29932E+02 1.80038E+01 -1.82892E+02 1.56233E+00 + -2.68217E+01 1.26486E+00 -2.70089E+01 3.82176E-02 1.09218E-02 + 4.11271E-02 1.30653E-02 9.90581E-01 -1.15810E-03 1.54411E-03 + 6.57017E-04 1.00990E+02 -1.26896E+02 2.97472E+01 -1.76046E+02 + 3.31960E+00 -2.57974E+01 3.05261E+00 -2.59669E+01 3.84957E-02 + 1.10839E-02 4.14151E-02 1.32332E-02 9.90676E-01 -1.10398E-03 + 1.61337E-03 6.97395E-04 1.06156E+02 -1.23815E+02 4.09253E+01 + -1.69380E+02 4.98326E+00 -2.48053E+01 4.74378E+00 -2.49583E+01 + 3.87706E-02 1.12478E-02 4.16940E-02 1.33995E-02 9.90779E-01 + -1.04214E-03 1.68496E-03 7.40085E-04 1.11240E+02 -1.20712E+02 + 5.15176E+01 -1.62915E+02 6.55647E+00 -2.38451E+01 6.34134E+00 + -2.39833E+01 3.90478E-02 1.14169E-02 4.19698E-02 1.35678E-02 + 9.90877E-01 -9.80289E-04 1.75895E-03 7.85241E-04 1.16219E+02 + -1.17600E+02 6.15550E+01 -1.56641E+02 8.04418E+00 -2.29152E+01 + 7.85122E+00 -2.30395E+01 3.92819E-02 1.15633E-02 4.21981E-02 + 1.37106E-02 9.90986E-01 -9.13803E-04 1.83532E-03 8.32982E-04 + 1.21098E+02 -1.14475E+02 7.10588E+01 -1.50554E+02 9.44976E+00 + -2.20148E+01 9.27679E+00 -2.21264E+01 3.95145E-02 1.17123E-02 + 4.24202E-02 1.38528E-02 9.91097E-01 -8.42678E-04 1.91412E-03 + 8.83451E-04 1.25844E+02 -1.11359E+02 8.00358E+01 -1.44659E+02 + 1.07777E+01 -2.11427E+01 1.06222E+01 -2.12430E+01 3.97118E-02 + 1.18418E-02 4.26022E-02 1.39723E-02 9.91208E-01 -7.70011E-04 + 1.99537E-03 9.36808E-04 1.30470E+02 -1.08241E+02 8.85282E+01 + -1.38937E+02 1.20302E+01 -2.02989E+01 1.18905E+01 -2.03883E+01 + 3.99114E-02 1.19764E-02 4.27818E-02 1.40933E-02 9.91320E-01 + -6.92696E-04 2.07906E-03 9.93198E-04 1.34952E+02 -1.05141E+02 + 9.65342E+01 -1.33399E+02 1.32126E+01 -1.94810E+01 1.30872E+01 + -1.95606E+01 4.00941E-02 1.21027E-02 4.29401E-02 1.42029E-02 + 9.91434E-01 -6.15387E-04 2.16522E-03 1.05280E-03 1.39288E+02 + -1.02059E+02 1.04090E+02 -1.28029E+02 1.43265E+01 -1.86893E+01 + 1.42133E+01 -1.87602E+01 4.02560E-02 1.22178E-02 4.30730E-02 + 1.42973E-02 9.91552E-01 -5.33438E-04 2.25385E-03 1.11579E-03 + 1.43469E+02 -9.90041E+01 1.11196E+02 -1.22837E+02 1.53753E+01 + -1.79230E+01 1.52735E+01 -1.79856E+01 4.04048E-02 1.23265E-02 + 4.31894E-02 1.43823E-02 9.91669E-01 -4.46851E-04 2.34496E-03 + 1.18236E-03 1.47501E+02 -9.59729E+01 1.17885E+02 -1.17807E+02 + 1.63630E+01 -1.71804E+01 1.62710E+01 -1.72355E+01 4.05363E-02 + 1.24254E-02 4.32848E-02 1.44541E-02 9.91780E-01 -3.61810E-04 + 2.43851E-03 1.25270E-03 1.51368E+02 -9.29781E+01 1.24165E+02 + -1.12944E+02 1.72918E+01 -1.64611E+01 1.72087E+01 -1.65094E+01 + 4.06560E-02 1.25181E-02 4.33651E-02 1.45162E-02 9.91895E-01 + -2.72131E-04 2.53452E-03 1.32704E-03 1.55075E+02 -9.00197E+01 + 1.30061E+02 -1.08238E+02 1.81639E+01 -1.57651E+01 1.80887E+01 + -1.58070E+01 4.07560E-02 1.25979E-02 4.34224E-02 1.45620E-02 + 9.92012E-01 -1.79359E-04 2.63293E-03 1.40559E-03 1.58621E+02 + -8.70993E+01 1.35589E+02 -1.03687E+02 1.89831E+01 -1.50904E+01 + 1.89149E+01 -1.51267E+01 4.08495E-02 1.26748E-02 4.34706E-02 + 1.46017E-02 9.92124E-01 -8.65870E-05 2.73374E-03 1.48860E-03 + 1.62003E+02 -8.42232E+01 1.40758E+02 -9.92899E+01 1.97510E+01 + -1.44373E+01 1.96889E+01 -1.44684E+01 4.09216E-02 1.27362E-02 + 4.34954E-02 1.46228E-02 9.92244E-01 1.23696E-05 2.83691E-03 + 1.57635E-03 1.65222E+02 -8.13919E+01 1.45591E+02 -9.50401E+01 + 2.04706E+01 -1.38046E+01 2.04137E+01 -1.38311E+01 4.09827E-02 + 1.27900E-02 4.35072E-02 1.46332E-02 9.92349E-01 1.05142E-04 + 2.94238E-03 1.66909E-03 1.68278E+02 -7.86107E+01 1.50103E+02 + -9.09332E+01 2.11439E+01 -1.31918E+01 2.10918E+01 -1.32139E+01 + 4.10307E-02 1.28336E-02 4.35039E-02 1.46301E-02 9.92455E-01 + 2.04098E-04 3.05006E-03 1.76710E-03 1.71176E+02 -7.58772E+01 + 1.54308E+02 -8.69674E+01 2.17730E+01 -1.25984E+01 2.17252E+01 + -1.26164E+01 4.10673E-02 1.28682E-02 4.34884E-02 1.46155E-02 + 9.92563E-01 3.04601E-04 3.15993E-03 1.87074E-03 1.73916E+02 + -7.31951E+01 1.58218E+02 -8.31402E+01 2.23603E+01 -1.20234E+01 + 2.23161E+01 -1.20380E+01 4.10898E-02 1.28902E-02 4.34581E-02 + 1.45859E-02 9.92663E-01 4.03557E-04 3.27185E-03 1.98029E-03 + 1.76497E+02 -7.05691E+01 1.61852E+02 -7.94432E+01 2.29080E+01 + -1.14664E+01 2.28669E+01 -1.14778E+01 4.11029E-02 1.29035E-02 + 4.34175E-02 1.45445E-02 9.92762E-01 5.04060E-04 3.38576E-03 + 2.09617E-03 1.78929E+02 -6.79951E+01 1.65220E+02 -7.58780E+01 + 2.34169E+01 -1.09275E+01 2.33787E+01 -1.09358E+01 4.11027E-02 + 1.29033E-02 4.33638E-02 1.44877E-02 9.92860E-01 6.07656E-04 + 3.50148E-03 2.21869E-03 1.81210E+02 -6.54772E+01 1.68337E+02 + -7.24362E+01 2.38906E+01 -1.04046E+01 2.38547E+01 -1.04104E+01 + 4.10961E-02 1.28960E-02 4.33038E-02 1.44215E-02 9.92948E-01 + 7.03520E-04 3.61892E-03 2.34831E-03 1.83344E+02 -6.30168E+01 + 1.71216E+02 -6.91176E+01 2.43290E+01 -9.89923E+00 2.42953E+01 + -9.90249E+00 4.10771E-02 1.28740E-02 4.32319E-02 1.43386E-02 + 9.93037E-01 8.07115E-04 3.73786E-03 2.48545E-03 1.85335E+02 + -6.06149E+01 1.73865E+02 -6.59213E+01 2.44848E+01 -9.71121E+00 + 2.44529E+01 -9.71230E+00 4.10512E-02 1.28429E-02 4.31543E-02 + 1.42450E-02 9.93119E-01 9.06072E-04 3.85816E-03 2.63058E-03 + 1.87188E+02 -5.82696E+01 1.76303E+02 -6.28375E+01 2.45123E+01 + -9.67642E+00 2.44819E+01 -9.67568E+00 4.10162E-02 1.27986E-02 + 4.30684E-02 1.41363E-02 9.93198E-01 1.00503E-03 3.97958E-03 + 2.78422E-03 1.88908E+02 -5.59825E+01 1.78536E+02 -5.98664E+01 + 2.48546E+01 -9.22112E+00 2.48255E+01 -9.21850E+00 4.09750E-02 + 1.27437E-02 4.29779E-02 1.40159E-02 9.93272E-01 1.10398E-03 + 4.10183E-03 2.94685E-03 1.90496E+02 -5.37556E+01 1.80575E+02 + -5.70073E+01 2.51687E+01 -8.78072E+00 2.51407E+01 -8.77657E+00 + 4.09267E-02 1.26761E-02 4.28823E-02 1.38818E-02 9.93342E-01 + 1.20140E-03 4.22471E-03 3.11914E-03 1.91958E+02 -5.15877E+01 + 1.82434E+02 -5.42524E+01 2.54560E+01 -8.35491E+00 2.54289E+01 + -8.34942E+00 4.08738E-02 1.25975E-02 4.27835E-02 1.37354E-02 + 9.93405E-01 1.29571E-03 4.34781E-03 3.30160E-03 1.93301E+02 + -4.94763E+01 1.84121E+02 -5.15999E+01 2.57173E+01 -7.94399E+00 + 2.56912E+01 -7.93711E+00 4.08160E-02 1.25067E-02 4.26823E-02 + 1.35764E-02 9.93464E-01 1.38849E-03 4.47080E-03 3.49494E-03 + 1.94525E+02 -4.74288E+01 1.85644E+02 -4.90517E+01 2.59546E+01 + -7.54698E+00 2.59290E+01 -7.53911E+00 4.07549E-02 1.24045E-02 + 4.25800E-02 1.34052E-02 9.93518E-01 1.48125E-03 4.59328E-03 + 3.69992E-03 1.95639E+02 -4.54352E+01 1.87015E+02 -4.65982E+01 + 2.61690E+01 -7.16342E+00 2.61440E+01 -7.15446E+00 4.06900E-02 + 1.22883E-02 4.24766E-02 1.32201E-02 9.93569E-01 1.56940E-03 + 4.71477E-03 3.91724E-03 1.96644E+02 -4.35044E+01 1.88242E+02 + -4.42402E+01 2.63616E+01 -6.79346E+00 2.63370E+01 -6.78367E+00 + 4.06238E-02 1.21613E-02 4.23743E-02 1.30235E-02 9.93613E-01 + 1.65599E-03 4.83472E-03 4.14771E-03 1.97547E+02 -4.16308E+01 + 1.89334E+02 -4.19756E+01 2.65338E+01 -6.43610E+00 2.65096E+01 + -6.42556E+00 4.05566E-02 1.20218E-02 4.22738E-02 1.28150E-02 + 9.93654E-01 1.73946E-03 4.95255E-03 4.39224E-03 1.98353E+02 + -3.98141E+01 1.90298E+02 -3.98006E+01 2.66866E+01 -6.09136E+00 + 2.66627E+01 -6.08018E+00 4.04887E-02 1.18686E-02 4.21754E-02 + 1.25930E-02 9.93690E-01 1.82143E-03 5.06760E-03 4.65173E-03 + 1.99064E+02 -3.80561E+01 1.91144E+02 -3.77098E+01 2.68211E+01 + -5.75899E+00 2.67975E+01 -5.74722E+00 4.04218E-02 1.17033E-02 + 4.20806E-02 1.23589E-02 9.93720E-01 1.89717E-03 5.17913E-03 + 4.92725E-03 1.99687E+02 -3.63565E+01 1.91878E+02 -3.57073E+01 + 2.69386E+01 -5.43834E+00 2.69152E+01 -5.42597E+00 4.03575E-02 + 1.15278E-02 4.19915E-02 1.21157E-02 9.93748E-01 1.97141E-03 + 5.28628E-03 5.21979E-03 2.00226E+02 -3.47126E+01 1.92507E+02 + -3.37860E+01 2.70399E+01 -5.12924E+00 2.70165E+01 -5.11662E+00 + 4.02947E-02 1.13361E-02 4.19067E-02 1.18567E-02 9.93771E-01 + 2.04251E-03 5.38814E-03 5.53063E-03 2.00685E+02 -3.31245E+01 + 1.93040E+02 -3.19450E+01 2.71260E+01 -4.83159E+00 2.71027E+01 + -4.81848E+00 4.02364E-02 1.11345E-02 4.18294E-02 1.15894E-02 + 9.93791E-01 2.11057E-03 5.48364E-03 5.86087E-03 2.01069E+02 + -3.15907E+01 1.93482E+02 -3.01804E+01 2.71978E+01 -4.54485E+00 + 2.71746E+01 -4.53154E+00 4.01821E-02 1.09177E-02 4.17587E-02 + 1.13076E-02 9.93806E-01 2.17239E-03 5.57163E-03 6.21199E-03 + 2.01382E+02 -3.01151E+01 1.93840E+02 -2.84937E+01 2.72564E+01 + -4.26877E+00 2.72332E+01 -4.25521E+00 4.01335E-02 1.06886E-02 + 4.16966E-02 1.10146E-02 9.93820E-01 2.23427E-03 5.65079E-03 + 6.58527E-03 2.01629E+02 -2.86901E+01 1.94120E+02 -2.68780E+01 + 2.73024E+01 -4.00327E+00 2.72794E+01 -3.98951E+00 4.00914E-02 + 1.04460E-02 4.16437E-02 1.07097E-02 9.93829E-01 2.28836E-03 + 5.71969E-03 6.98237E-03 2.01814E+02 -2.73197E+01 1.94328E+02 + -2.53346E+01 2.73369E+01 -3.74771E+00 2.73139E+01 -3.73380E+00 + 4.00568E-02 1.01900E-02 4.16009E-02 1.03926E-02 9.93836E-01 + 2.34250E-03 5.77672E-03 7.40495E-03 2.01941E+02 -2.60036E+01 + 1.94470E+02 -2.38614E+01 2.73606E+01 -3.50205E+00 2.73376E+01 + -3.48804E+00 4.00305E-02 9.91718E-03 4.15688E-02 1.00600E-02 + 9.93840E-01 2.38580E-03 5.82008E-03 7.85463E-03 2.02015E+02 + -2.47350E+01 1.94552E+02 -2.24543E+01 2.73743E+01 -3.26624E+00 + 2.73512E+01 -3.25224E+00 4.00147E-02 9.64386E-03 4.15497E-02 + 9.72977E-03 9.93843E-01 2.43215E-03 5.84779E-03 8.33349E-03 + 2.02038E+02 -2.35202E+01 1.94578E+02 -2.11119E+01 2.73786E+01 + -3.03942E+00 2.73556E+01 -3.02542E+00 4.00090E-02 9.34721E-03 + 4.15429E-02 9.37688E-03 9.93844E-01 2.47084E-03 5.85764E-03 + 8.84343E-03 2.02018E+02 -2.24796E+01 1.94556E+02 -1.99590E+01 + 2.73745E+01 -2.82218E+00 2.73514E+01 -2.80803E+00 4.00265E-02 + 8.43639E-03 4.15619E-02 8.39010E-03 9.93843E-01 2.50173E-03 + 5.84719E-03 9.38675E-03 2.01954E+02 -2.13779E+01 1.94486E+02 + -1.87571E+01 2.73624E+01 -2.61346E+00 2.73394E+01 -2.59951E+00 + 4.00496E-02 8.03699E-03 4.15881E-02 7.93610E-03 9.93841E-01 + 2.53114E-03 5.81374E-03 9.96567E-03 2.01852E+02 -2.03204E+01 + 1.94376E+02 -1.76130E+01 2.73431E+01 -2.41349E+00 2.73201E+01 + -2.39958E+00 4.00873E-02 7.64503E-03 4.16308E-02 7.49283E-03 + 9.93839E-01 2.56049E-03 5.75428E-03 1.05829E-02 2.01715E+02 + -1.93038E+01 1.94228E+02 -1.65183E+01 2.73173E+01 -2.22194E+00 + 2.72943E+01 -2.20813E+00 4.01392E-02 7.26079E-03 4.16893E-02 + 7.05950E-03 9.93836E-01 2.58217E-03 5.66553E-03 1.12409E-02 + 2.01548E+02 -1.83365E+01 1.94049E+02 -1.54858E+01 2.72855E+01 + -2.03864E+00 2.72625E+01 -2.02489E+00 4.02115E-02 6.84343E-03 + 4.17698E-02 6.59507E-03 9.93833E-01 2.60069E-03 5.54382E-03 + 1.19427E-02 2.01353E+02 -1.74204E+01 1.93843E+02 -1.45111E+01 + 2.72483E+01 -1.86322E+00 2.72253E+01 -1.84966E+00 4.03061E-02 + 6.39714E-03 4.18742E-02 6.10288E-03 9.93829E-01 2.61618E-03 + 5.38509E-03 1.26915E-02 2.01134E+02 -1.65435E+01 1.93611E+02 + -1.35847E+01 2.72063E+01 -1.69536E+00 2.71833E+01 -1.68191E+00 + 4.04196E-02 5.94413E-03 4.19985E-02 5.60638E-03 9.93826E-01 + 2.62697E-03 5.18494E-03 1.34904E-02 2.00894E+02 -1.57128E+01 + 1.93359E+02 -1.27148E+01 2.71600E+01 -1.53537E+00 2.71371E+01 + -1.52211E+00 4.05560E-02 5.47222E-03 4.21468E-02 5.09359E-03 + 9.93824E-01 2.63164E-03 4.93842E-03 1.43432E-02 2.00635E+02 + -1.49235E+01 1.93090E+02 -1.18931E+01 2.71099E+01 -1.38228E+00 + 2.70870E+01 -1.36922E+00 4.07186E-02 4.97618E-03 4.23221E-02 + 4.55822E-03 9.93823E-01 2.63783E-03 4.64011E-03 1.52537E-02 + 2.00362E+02 -1.41784E+01 1.92807E+02 -1.11211E+01 2.70565E+01 + -1.23660E+00 2.70337E+01 -1.22369E+00 4.09067E-02 4.46249E-03 + 4.25239E-02 4.00724E-03 9.93824E-01 2.63625E-03 4.28411E-03 + 1.62259E-02 2.00005E+02 -1.32971E+01 1.92443E+02 -1.02211E+01 + 2.70003E+01 -1.09773E+00 2.69776E+01 -1.08502E+00 4.07729E-02 + 4.79285E-03 4.23935E-02 4.32967E-03 9.93822E-01 2.63938E-03 + 3.86379E-03 1.72644E-02 1.99592E+02 -1.23655E+01 1.92024E+02 + -9.27614E+00 2.69415E+01 -9.65118E-01 2.69190E+01 -9.52650E-01 + 4.04372E-02 5.55043E-03 4.20547E-02 5.09382E-03 9.93823E-01 + 2.63780E-03 3.37202E-03 1.83739E-02 1.99280E+02 -1.17173E+01 + 1.91708E+02 -8.62076E+00 2.68811E+01 -8.39652E-01 2.68586E+01 + -8.27381E-01 4.06537E-02 5.10103E-03 4.22855E-02 4.61475E-03 + 9.93828E-01 2.63010E-03 2.80070E-03 1.95596E-02 1.98961E+02 + -1.11037E+01 1.91387E+02 -8.00277E+00 2.68188E+01 -7.19954E-01 + 2.67964E+01 -7.07832E-01 4.08962E-02 4.63499E-03 4.25428E-02 + 4.12030E-03 9.93835E-01 2.61460E-03 2.14134E-03 2.08267E-02 + 1.98639E+02 -1.05271E+01 1.91067E+02 -7.43090E+00 2.67554E+01 + -6.06509E-01 2.67331E+01 -5.94733E-01 4.11705E-02 4.14432E-03 + 4.28313E-02 3.60411E-03 9.93843E-01 2.60227E-03 1.38427E-03 + 2.21812E-02 1.98314E+02 -9.98347E+00 1.90746E+02 -6.89407E+00 + 2.66911E+01 -4.98936E-01 2.66690E+01 -4.87358E-01 4.14650E-02 + 3.65123E-03 4.31404E-02 3.08687E-03 9.93854E-01 2.58213E-03 + 5.18818E-04 2.36297E-02 1.97992E+02 -9.47733E+00 1.90431E+02 + -6.39857E+00 2.66263E+01 -3.97016E-01 2.66043E+01 -3.85636E-01 + 4.18025E-02 3.12063E-03 4.34923E-02 2.53346E-03 9.93865E-01 + 2.56361E-03 -4.66278E-04 2.51786E-02 1.97673E+02 -9.00500E+00 + 1.90122E+02 -5.94013E+00 2.65613E+01 -3.00628E-01 2.65395E+01 + -2.89545E-01 4.21710E-02 2.57440E-03 4.38750E-02 1.96617E-03 + 9.93883E-01 2.53884E-03 -1.58383E-03 2.68352E-02 1.96940E+02 + -7.97595E+00 1.89401E+02 -4.92926E+00 2.64962E+01 -2.09394E-01 + 2.64745E+01 -1.98459E-01 4.04776E-02 4.94902E-03 4.21390E-02 + 4.40060E-03 9.93891E-01 2.52650E-03 -2.84792E-03 2.86079E-02 + 1.96591E+02 -7.51244E+00 1.89069E+02 -4.48791E+00 2.64314E+01 + -1.23202E-01 2.64100E+01 -1.12613E-01 4.07129E-02 4.63601E-03 + 4.23845E-02 4.07387E-03 9.93911E-01 2.50022E-03 -4.27328E-03 + 3.05041E-02 1.96262E+02 -7.09594E+00 1.88759E+02 -4.09480E+00 + 2.63674E+01 -4.21553E-02 2.63460E+01 -3.17154E-02 4.10318E-02 + 4.23250E-03 4.27150E-02 3.65567E-03 9.93933E-01 2.47235E-03 + -5.87701E-03 3.25336E-02 1.95941E+02 -6.70851E+00 1.88461E+02 + -3.73544E+00 2.63042E+01 3.40413E-02 2.62832E+01 4.41844E-02 + 4.13946E-02 3.79468E-03 4.30889E-02 3.20461E-03 9.93960E-01 + 2.43991E-03 -7.67726E-03 3.47059E-02 1.95631E+02 -6.35179E+00 + 1.88177E+02 -3.40765E+00 2.62421E+01 1.05685E-01 2.62212E+01 + 1.15581E-01 4.17931E-02 3.33532E-03 4.34983E-02 2.73250E-03 + 9.93985E-01 2.40896E-03 -9.69392E-03 3.70311E-02 1.95215E+02 + -5.89152E+00 1.87787E+02 -2.97822E+00 2.61810E+01 1.73175E-01 + 2.61603E+01 1.82823E-01 4.16337E-02 3.51115E-03 4.33351E-02 + 2.91276E-03 9.94018E-01 2.37497E-03 -1.19492E-02 3.95207E-02 + 1.94283E+02 -4.90466E+00 1.86888E+02 -2.02622E+00 2.61211E+01 + 2.36505E-01 2.61007E+01 2.45955E-01 3.88567E-02 6.45166E-03 + 4.04916E-02 5.92364E-03 9.94033E-01 2.35794E-03 -1.44667E-02 + 4.21863E-02 1.93963E+02 -4.58014E+00 1.86603E+02 -1.73611E+00 + 2.60632E+01 2.95437E-01 2.60431E+01 3.04640E-01 3.91287E-02 + 6.17497E-03 4.07715E-02 5.63882E-03 9.94075E-01 2.31622E-03 + -1.72730E-02 4.50413E-02 1.93655E+02 -4.27846E+00 1.86333E+02 + -1.47207E+00 2.60069E+01 3.50601E-01 2.59870E+01 3.59507E-01 + 3.94254E-02 5.88450E-03 4.10752E-02 5.34160E-03 9.94106E-01 + 2.28372E-03 -2.03967E-02 4.80992E-02 1.93356E+02 -3.99589E+00 + 1.86075E+02 -1.22826E+00 2.59524E+01 4.02014E-01 2.59327E+01 + 4.10771E-01 3.97384E-02 5.58925E-03 4.13944E-02 5.04044E-03 + 9.94149E-01 2.24200E-03 -2.38688E-02 5.13746E-02 1.93356E+02 + -3.99589E+00 1.86075E+02 -1.22826E+00 2.59524E+01 4.02014E-01 + 2.59327E+01 4.10771E-01 3.97384E-02 5.58925E-03 4.13944E-02 + 5.04044E-03 9.94149E-01 2.24200E-03 -2.38688E-02 5.13746E-02 + 1.56000E-03 1.69413E+02 2.69387E+01 + 3.29480E-04 5.00737E-05 0.00000E+00 0.00000E+00 1.69154E-02 + 2.72188E-03 3.29480E-04 5.00737E-05 0.00000E+00 0.00000E+00 + 1.69154E-02 2.72188E-03 3.61130E-04 5.51972E-05 0.00000E+00 + 0.00000E+00 7.08556E-03 1.13064E-03 3.95886E-04 6.08575E-05 + 0.00000E+00 0.00000E+00 -4.67774E-03 -7.85092E-04 4.33526E-04 + 6.70248E-05 0.00000E+00 0.00000E+00 1.26673E-03 1.88893E-04 + 4.75087E-04 7.38760E-05 0.00000E+00 0.00000E+00 -5.65203E-03 + -9.51664E-04 5.19959E-04 8.13187E-05 0.00000E+00 0.00000E+00 + 8.31534E-03 1.36503E-03 5.69755E-04 8.96293E-05 0.00000E+00 + 0.00000E+00 1.49024E-03 2.25975E-04 6.23725E-04 9.86927E-05 + 0.00000E+00 0.00000E+00 9.78023E-03 1.61814E-03 6.83806E-04 + 1.08846E-04 0.00000E+00 0.00000E+00 -6.44430E-03 -1.12359E-03 + 7.48332E-04 1.19818E-04 0.00000E+00 0.00000E+00 6.31950E-03 + 1.04694E-03 8.23362E-04 1.32659E-04 0.00000E+00 0.00000E+00 + 2.17269E-03 3.37279E-04 9.49059E-04 1.54307E-04 0.00000E+00 + 0.00000E+00 7.58980E-03 1.27026E-03 1.04537E-03 1.71002E-04 + 0.00000E+00 0.00000E+00 3.00537E-03 4.75610E-04 1.15027E-03 + 1.89303E-04 0.00000E+00 0.00000E+00 1.46893E-02 2.51397E-03 + 1.26782E-03 2.09943E-04 0.00000E+00 0.00000E+00 -1.86800E-03 + -3.93418E-04 1.39547E-03 2.32504E-04 0.00000E+00 0.00000E+00 + 4.03999E-03 6.50803E-04 1.53579E-03 2.57470E-04 0.00000E+00 + 0.00000E+00 1.11451E-02 1.91491E-03 1.69063E-03 2.85201E-04 + 0.00000E+00 0.00000E+00 1.23253E-02 2.12628E-03 1.88376E-03 + 3.20021E-04 0.00000E+00 0.00000E+00 -1.72373E-03 -4.06710E-04 + 2.12151E-03 3.63176E-04 0.00000E+00 0.00000E+00 1.41998E-02 + 2.48358E-03 2.34396E-03 4.03827E-04 0.00000E+00 0.00000E+00 + 1.13785E-02 1.96801E-03 2.58905E-03 4.48921E-04 0.00000E+00 + 0.00000E+00 1.24490E-02 2.16498E-03 2.85962E-03 4.99046E-04 + 0.00000E+00 0.00000E+00 1.36095E-02 2.37997E-03 3.15723E-03 + 5.54561E-04 0.00000E+00 0.00000E+00 2.01274E-02 3.59581E-03 + 3.49161E-03 6.17372E-04 0.00000E+00 0.00000E+00 1.10540E-02 + 1.89146E-03 3.86281E-03 6.87587E-04 0.00000E+00 0.00000E+00 + 1.17947E-02 2.03158E-03 4.26518E-03 7.64237E-04 0.00000E+00 + 0.00000E+00 1.88902E-02 3.38324E-03 4.70961E-03 8.49502E-04 + 0.00000E+00 0.00000E+00 2.39661E-02 4.35707E-03 5.20220E-03 + 9.44685E-04 0.00000E+00 0.00000E+00 2.27079E-02 4.11394E-03 + 5.78717E-03 1.05853E-03 0.00000E+00 0.00000E+00 2.49132E-02 + 4.54315E-03 6.46440E-03 1.19130E-03 0.00000E+00 0.00000E+00 + 2.74394E-02 5.03839E-03 7.14719E-03 1.32614E-03 0.00000E+00 + 0.00000E+00 3.85607E-02 7.23461E-03 7.91001E-03 1.47789E-03 + 0.00000E+00 0.00000E+00 3.32626E-02 6.18062E-03 8.74616E-03 + 1.64547E-03 0.00000E+00 0.00000E+00 4.11053E-02 7.75243E-03 + 9.67593E-03 1.83320E-03 0.00000E+00 0.00000E+00 3.97559E-02 + 7.47996E-03 1.06963E-02 2.04080E-03 0.00000E+00 0.00000E+00 + 4.87788E-02 9.31562E-03 1.18265E-02 2.27248E-03 0.00000E+00 + 0.00000E+00 5.33135E-02 1.02452E-02 1.28751E-02 2.48908E-03 + 0.00000E+00 0.00000E+00 5.41636E-02 1.04208E-02 1.40849E-02 + 2.74092E-03 0.00000E+00 0.00000E+00 6.50151E-02 1.26796E-02 + 1.55350E-02 3.04511E-03 0.00000E+00 0.00000E+00 6.37777E-02 + 1.24201E-02 1.71064E-02 3.37734E-03 0.00000E+00 0.00000E+00 + 8.42178E-02 1.67417E-02 1.88725E-02 3.75370E-03 0.00000E+00 + 0.00000E+00 7.60577E-02 1.50027E-02 2.07788E-02 4.16318E-03 + 0.00000E+00 0.00000E+00 9.50687E-02 1.90863E-02 2.41194E-02 + 4.88650E-03 0.00000E+00 0.00000E+00 1.09055E-01 2.21146E-02 + 2.74712E-02 5.61815E-03 0.00000E+00 0.00000E+00 1.22818E-01 + 2.51190E-02 3.05282E-02 6.29087E-03 0.00000E+00 0.00000E+00 + 1.29677E-01 2.66282E-02 3.38809E-02 7.03475E-03 0.00000E+00 + 0.00000E+00 1.53050E-01 3.18142E-02 3.76384E-02 7.87538E-03 + 0.00000E+00 0.00000E+00 1.59209E-01 3.31920E-02 4.17513E-02 + 8.80321E-03 0.00000E+00 0.00000E+00 1.83680E-01 3.87125E-02 + 4.63353E-02 9.84606E-03 0.00000E+00 0.00000E+00 1.97983E-01 + 4.19664E-02 5.13666E-02 1.10004E-02 0.00000E+00 0.00000E+00 + 2.23853E-01 4.79018E-02 5.69134E-02 1.22840E-02 0.00000E+00 + 0.00000E+00 2.52840E-01 5.46095E-02 6.30998E-02 1.37279E-02 + 0.00000E+00 0.00000E+00 2.68812E-01 5.83377E-02 6.98216E-02 + 1.53106E-02 0.00000E+00 0.00000E+00 3.06867E-01 6.72977E-02 + 7.65787E-02 1.69156E-02 0.00000E+00 0.00000E+00 3.27849E-01 + 7.22816E-02 8.42871E-02 1.87628E-02 0.00000E+00 0.00000E+00 + 3.61157E-01 8.02635E-02 9.30116E-02 2.08723E-02 0.00000E+00 + 0.00000E+00 3.98788E-01 8.93623E-02 1.02557E-01 2.32011E-02 + 0.00000E+00 0.00000E+00 4.39835E-01 9.93768E-02 1.13015E-01 + 2.57760E-02 0.00000E+00 0.00000E+00 4.81568E-01 1.09652E-01 + 1.24432E-01 2.86129E-02 0.00000E+00 0.00000E+00 5.26560E-01 + 1.20832E-01 1.36794E-01 3.17134E-02 0.00000E+00 0.00000E+00 + 5.81579E-01 1.34630E-01 1.50347E-01 3.51444E-02 0.00000E+00 + 0.00000E+00 6.30885E-01 1.47112E-01 1.70238E-01 4.02275E-02 + 0.00000E+00 0.00000E+00 7.17202E-01 1.69170E-01 1.87371E-01 + 4.46477E-02 0.00000E+00 0.00000E+00 7.83279E-01 1.86219E-01 + 2.05684E-01 4.94182E-02 0.00000E+00 0.00000E+00 8.57210E-01 + 2.05477E-01 2.25360E-01 5.45939E-02 0.00000E+00 0.00000E+00 + 9.38370E-01 2.26825E-01 2.46451E-01 6.01963E-02 0.00000E+00 + 0.00000E+00 1.02493E+00 2.49820E-01 2.69152E-01 6.62865E-02 + 0.00000E+00 0.00000E+00 1.10958E+00 2.72528E-01 2.93123E-01 + 7.27820E-02 0.00000E+00 0.00000E+00 1.20565E+00 2.98562E-01 + 3.18635E-01 7.97655E-02 0.00000E+00 0.00000E+00 1.30117E+00 + 3.24707E-01 3.45317E-01 8.71442E-02 0.00000E+00 0.00000E+00 + 1.40558E+00 3.53580E-01 3.73184E-01 9.49302E-02 0.00000E+00 + 0.00000E+00 1.51352E+00 3.83741E-01 4.02419E-01 1.03184E-01 + 0.00000E+00 0.00000E+00 1.61857E+00 4.13399E-01 4.32920E-01 + 1.11887E-01 0.00000E+00 0.00000E+00 1.74063E+00 4.48227E-01 + 4.63728E-01 1.20772E-01 0.00000E+00 0.00000E+00 1.84966E+00 + 4.79670E-01 4.94683E-01 1.29795E-01 0.00000E+00 0.00000E+00 + 1.96231E+00 5.12506E-01 5.25683E-01 1.38931E-01 0.00000E+00 + 0.00000E+00 2.07282E+00 5.45073E-01 5.56528E-01 1.48121E-01 + 0.00000E+00 0.00000E+00 2.17804E+00 5.76424E-01 5.86277E-01 + 1.57084E-01 0.00000E+00 0.00000E+00 2.28274E+00 6.07969E-01 + 6.15396E-01 1.65956E-01 0.00000E+00 0.00000E+00 2.37571E+00 + 6.36296E-01 6.43533E-01 1.74627E-01 0.00000E+00 0.00000E+00 + 2.46897E+00 6.65034E-01 6.71437E-01 1.83326E-01 0.00000E+00 + 0.00000E+00 2.55646E+00 6.92309E-01 6.94799E-01 1.90694E-01 + 0.00000E+00 0.00000E+00 2.62314E+00 7.13340E-01 7.14984E-01 + 1.97136E-01 0.00000E+00 0.00000E+00 2.67995E+00 7.31471E-01 + 7.33321E-01 2.03058E-01 0.00000E+00 0.00000E+00 2.71667E+00 + 7.43328E-01 7.47431E-01 2.07670E-01 0.00000E+00 0.00000E+00 + 2.74494E+00 7.52570E-01 7.59609E-01 2.11700E-01 0.00000E+00 + 0.00000E+00 2.76249E+00 7.58377E-01 7.70470E-01 2.15338E-01 + 0.00000E+00 0.00000E+00 2.77165E+00 7.61446E-01 7.74535E-01 + 2.16717E-01 0.00000E+00 0.00000E+00 2.75556E+00 7.55988E-01 + 7.75558E-01 2.17068E-01 0.00000E+00 0.00000E+00 2.72505E+00 + 7.45506E-01 7.73596E-01 2.16385E-01 0.00000E+00 0.00000E+00 + 2.68200E+00 7.30527E-01 7.68903E-01 2.14731E-01 0.00000E+00 + 0.00000E+00 2.63200E+00 7.12898E-01 7.62381E-01 2.12401E-01 + 0.00000E+00 0.00000E+00 2.57310E+00 6.91857E-01 7.52935E-01 + 2.08982E-01 0.00000E+00 0.00000E+00 2.50139E+00 6.65896E-01 + 7.41490E-01 2.04782E-01 0.00000E+00 0.00000E+00 2.42419E+00 + 6.37568E-01 7.28396E-01 1.99911E-01 0.00000E+00 0.00000E+00 + 2.34304E+00 6.07382E-01 7.14717E-01 1.94751E-01 0.00000E+00 + 0.00000E+00 2.25865E+00 5.75548E-01 7.00436E-01 1.89287E-01 + 0.00000E+00 0.00000E+00 2.17315E+00 5.42835E-01 6.85588E-01 + 1.83525E-01 0.00000E+00 0.00000E+00 2.08810E+00 5.09830E-01 + 6.75832E-01 1.79684E-01 0.00000E+00 0.00000E+00 2.02130E+00 + 4.83527E-01 6.64048E-01 1.74975E-01 0.00000E+00 0.00000E+00 + 1.94636E+00 4.53578E-01 6.49079E-01 1.68903E-01 0.00000E+00 + 0.00000E+00 1.86448E+00 4.20364E-01 6.35096E-01 1.63144E-01 + 0.00000E+00 0.00000E+00 1.78630E+00 3.88170E-01 6.22179E-01 + 1.57742E-01 0.00000E+00 0.00000E+00 1.71240E+00 3.57269E-01 + 6.10274E-01 1.52685E-01 0.00000E+00 0.00000E+00 1.64321E+00 + 3.27870E-01 5.98510E-01 1.47607E-01 0.00000E+00 0.00000E+00 + 1.57699E+00 2.99288E-01 5.88627E-01 1.43272E-01 0.00000E+00 + 0.00000E+00 1.51669E+00 2.72839E-01 5.79688E-01 1.39286E-01 + 0.00000E+00 0.00000E+00 1.46272E+00 2.48775E-01 5.72260E-01 + 1.35918E-01 0.00000E+00 0.00000E+00 1.41322E+00 2.26332E-01 + 5.65619E-01 1.32855E-01 0.00000E+00 0.00000E+00 1.36825E+00 + 2.05590E-01 5.60069E-01 1.30251E-01 0.00000E+00 0.00000E+00 + 1.32745E+00 1.86447E-01 5.55479E-01 1.28060E-01 0.00000E+00 + 0.00000E+00 1.29059E+00 1.68849E-01 5.51680E-01 1.26213E-01 + 0.00000E+00 0.00000E+00 1.25744E+00 1.52732E-01 5.48644E-01 + 1.24709E-01 0.00000E+00 0.00000E+00 1.22770E+00 1.38008E-01 + 5.46609E-01 1.23683E-01 0.00000E+00 0.00000E+00 1.20104E+00 + 1.24562E-01 5.45044E-01 1.22879E-01 0.00000E+00 0.00000E+00 + 1.17728E+00 1.12347E-01 5.41979E-01 1.21272E-01 0.00000E+00 + 0.00000E+00 1.14907E+00 9.75687E-02 5.41173E-01 1.20843E-01 + 0.00000E+00 0.00000E+00 1.12880E+00 8.67368E-02 5.41972E-01 + 1.21278E-01 0.00000E+00 0.00000E+00 1.11372E+00 7.85158E-02 + 5.43096E-01 1.21903E-01 0.00000E+00 0.00000E+00 1.10029E+00 + 7.10430E-02 5.44699E-01 1.22814E-01 0.00000E+00 0.00000E+00 + 1.08834E+00 6.42558E-02 5.46536E-01 1.23880E-01 0.00000E+00 + 0.00000E+00 1.07774E+00 5.81013E-02 5.48637E-01 1.25127E-01 + 0.00000E+00 0.00000E+00 1.06834E+00 5.25241E-02 5.51088E-01 + 1.26614E-01 0.00000E+00 0.00000E+00 1.06000E+00 4.74669E-02 + 5.53443E-01 1.28074E-01 0.00000E+00 0.00000E+00 1.05187E+00 + 4.24219E-02 5.56311E-01 1.29896E-01 0.00000E+00 0.00000E+00 + 1.04545E+00 3.83435E-02 5.59410E-01 1.31912E-01 0.00000E+00 + 0.00000E+00 1.03981E+00 3.46777E-02 5.62592E-01 1.34033E-01 + 0.00000E+00 0.00000E+00 1.03484E+00 3.13620E-02 5.65956E-01 + 1.36333E-01 0.00000E+00 0.00000E+00 1.03045E+00 2.83610E-02 + 5.69376E-01 1.38731E-01 0.00000E+00 0.00000E+00 1.02657E+00 + 2.56426E-02 5.72938E-01 1.41295E-01 0.00000E+00 0.00000E+00 + 1.02316E+00 2.31891E-02 5.76557E-01 1.43973E-01 0.00000E+00 + 0.00000E+00 1.02016E+00 2.09669E-02 5.80235E-01 1.46771E-01 + 0.00000E+00 0.00000E+00 1.01752E+00 1.89582E-02 5.83976E-01 + 1.49699E-01 0.00000E+00 0.00000E+00 1.01520E+00 1.71435E-02 + 5.87744E-01 1.52737E-01 0.00000E+00 0.00000E+00 1.01315E+00 + 1.54915E-02 5.91311E-01 1.55702E-01 0.00000E+00 0.00000E+00 + 1.01082E+00 1.35519E-02 5.95179E-01 1.59018E-01 0.00000E+00 + 0.00000E+00 1.00935E+00 1.22962E-02 5.99048E-01 1.62446E-01 + 0.00000E+00 0.00000E+00 1.00807E+00 1.11594E-02 6.02892E-01 + 1.65966E-01 0.00000E+00 0.00000E+00 1.00695E+00 1.01302E-02 + 6.06755E-01 1.69628E-01 0.00000E+00 0.00000E+00 1.00596E+00 + 9.19087E-03 6.10589E-01 1.73396E-01 0.00000E+00 0.00000E+00 + 1.00510E+00 8.34629E-03 6.14388E-01 1.77270E-01 0.00000E+00 + 0.00000E+00 1.00434E+00 7.57556E-03 6.18102E-01 1.81207E-01 + 0.00000E+00 0.00000E+00 1.00354E+00 6.72295E-03 6.21686E-01 + 1.85162E-01 0.00000E+00 0.00000E+00 1.00264E+00 5.73707E-03 + 6.25419E-01 1.89457E-01 0.00000E+00 0.00000E+00 1.00222E+00 + 5.24894E-03 6.29084E-01 1.93862E-01 0.00000E+00 0.00000E+00 + 1.00185E+00 4.80572E-03 6.32702E-01 1.98415E-01 0.00000E+00 + 0.00000E+00 1.00153E+00 4.40275E-03 6.36235E-01 2.03077E-01 + 0.00000E+00 0.00000E+00 1.00125E+00 4.03024E-03 6.39694E-01 + 2.07877E-01 0.00000E+00 0.00000E+00 1.00096E+00 3.63203E-03 + 6.43020E-01 2.12743E-01 0.00000E+00 0.00000E+00 1.00064E+00 + 3.16317E-03 6.46335E-01 2.17869E-01 0.00000E+00 0.00000E+00 + 1.00048E+00 2.91430E-03 6.49545E-01 2.23139E-01 0.00000E+00 + 0.00000E+00 1.00034E+00 2.68629E-03 6.52660E-01 2.28584E-01 + 0.00000E+00 0.00000E+00 1.00022E+00 2.47595E-03 6.55623E-01 + 2.34120E-01 0.00000E+00 0.00000E+00 1.00006E+00 2.17569E-03 + 6.58452E-01 2.39802E-01 0.00000E+00 0.00000E+00 9.99885E-01 + 1.82565E-03 6.61202E-01 2.45769E-01 0.00000E+00 0.00000E+00 + 9.99828E-01 1.70362E-03 6.63810E-01 2.51927E-01 0.00000E+00 + 0.00000E+00 9.99780E-01 1.58962E-03 6.66257E-01 2.58256E-01 + 0.00000E+00 0.00000E+00 9.99738E-01 1.47881E-03 6.68547E-01 + 2.64809E-01 0.00000E+00 0.00000E+00 9.99703E-01 1.37927E-03 + 6.70653E-01 2.71551E-01 0.00000E+00 0.00000E+00 9.99674E-01 + 1.28614E-03 6.72569E-01 2.78515E-01 0.00000E+00 0.00000E+00 + 9.99650E-01 1.19944E-03 6.74272E-01 2.85668E-01 0.00000E+00 + 0.00000E+00 9.99619E-01 1.06938E-03 6.75758E-01 2.93061E-01 + 0.00000E+00 0.00000E+00 9.99599E-01 9.69826E-04 6.77012E-01 + 3.00720E-01 0.00000E+00 0.00000E+00 9.99589E-01 9.08811E-04 + 6.78014E-01 3.08623E-01 0.00000E+00 0.00000E+00 9.99582E-01 + 8.51006E-04 6.78744E-01 3.16778E-01 0.00000E+00 0.00000E+00 + 9.99577E-01 7.98019E-04 6.79186E-01 3.25200E-01 0.00000E+00 + 0.00000E+00 9.99575E-01 7.51455E-04 6.79436E-01 3.41499E-01 + 0.00000E+00 0.00000E+00 9.99744E-01 1.17696E-02 6.79528E-01 + 3.37307E-01 -1.63458E-04 7.50626E-03 1.00000E+00 1.60565E-06 + 6.79004E-01 3.46199E-01 -1.79526E-04 7.77907E-03 1.00000E+00 + -1.60567E-06 6.78123E-01 3.55371E-01 -2.07055E-04 8.06578E-03 + 1.00000E+00 0.00000E+00 6.76864E-01 3.64825E-01 -2.46749E-04 + 8.36391E-03 1.00000E+00 1.60567E-06 6.75207E-01 3.74560E-01 + -2.99521E-04 8.67386E-03 1.00000E+00 -1.60567E-06 6.73122E-01 + 3.84612E-01 -3.66372E-04 8.99622E-03 1.00000E+00 1.60567E-06 + 6.70592E-01 3.94960E-01 -4.48328E-04 9.33140E-03 1.00000E+00 + -1.60567E-06 6.67587E-01 4.05631E-01 -5.46496E-04 9.67999E-03 + 9.99999E-01 1.60567E-06 6.64082E-01 4.16627E-01 -6.62040E-04 + 1.00425E-02 1.00000E+00 0.00000E+00 6.60051E-01 4.27955E-01 + -7.96188E-04 1.04194E-02 1.00000E+00 0.00000E+00 6.61303E-01 + 4.24768E-01 -7.84299E-03 2.83507E-02 1.00000E+00 0.00000E+00 + 6.59993E-01 4.27814E-01 -1.21846E-02 3.84450E-02 1.00000E+00 + 0.00000E+00 6.55071E-01 4.38348E-01 -1.28508E-02 3.98708E-02 + 1.00000E+00 0.00000E+00 6.49630E-01 4.49137E-01 -1.35962E-02 + 4.13486E-02 1.00000E+00 0.00000E+00 6.43664E-01 4.60155E-01 + -1.44252E-02 4.28797E-02 1.00000E+00 0.00000E+00 6.37137E-01 + 4.71433E-01 -1.53430E-02 4.44658E-02 1.00000E+00 0.00000E+00 + 6.30043E-01 4.82956E-01 -1.63544E-02 4.61085E-02 1.00000E+00 + 0.00000E+00 6.22360E-01 4.94725E-01 -1.74646E-02 4.78092E-02 + 1.00000E+00 0.00000E+00 6.34022E-01 4.77821E-01 -3.86361E-02 + 7.84942E-02 1.00000E+00 0.00000E+00 6.28769E-01 4.85046E-01 + -4.26560E-02 8.40230E-02 1.00000E+00 0.00000E+00 6.21172E-01 + 4.94989E-01 -4.49040E-02 8.69647E-02 1.00000E+00 0.00000E+00 + 6.13144E-01 5.05006E-01 -4.73289E-02 8.99908E-02 1.00000E+00 + -1.60567E-06 6.04680E-01 5.15103E-01 -4.99383E-02 9.31029E-02 + 9.99998E-01 1.60567E-06 5.95795E-01 5.25250E-01 -5.27387E-02 + 9.63014E-02 1.00000E+00 0.00000E+00 5.86482E-01 5.35456E-01 + -5.57369E-02 9.95863E-02 1.00000E+00 -1.60567E-06 5.76754E-01 + 5.45697E-01 -5.89392E-02 1.02958E-01 9.99998E-01 1.60567E-06 + 5.66626E-01 5.55961E-01 -6.23519E-02 1.06416E-01 1.00000E+00 + 0.00000E+00 5.56109E-01 5.66228E-01 -6.59808E-02 1.09959E-01 + 1.00000E+00 0.00000E+00 5.45219E-01 5.76491E-01 -6.98321E-02 + 1.13589E-01 1.00000E+00 -1.60567E-06 5.77095E-01 5.47467E-01 + -1.07703E-01 1.48070E-01 9.99997E-01 1.60567E-06 5.77095E-01 + 5.47467E-01 -1.07703E-01 1.48070E-01 9.99997E-01 1.60567E-06 + MEDIUM=CD+TE-3MEV-10KEV-02KEV ,STERNCID=CD+TE-3MEV-10KEV-02KEV + COMP,RHO= 6.0600E+00,NE= 2 + ASYM=CD,Z=48.,A= 112.400,PZ= 1.00000E+00,RHOZ= 1.12400E+02 + ASYM=TE,Z=52.,A= 127.600,PZ= 1.00000E+00,RHOZ= 1.27600E+02 + 1.46952E+00 5.21000E-01 2.00000E-03 3.51100E+00 3.00200E+00 + 0 200 0 150 0 0 0 0 + 9.99979E-01 -2.43973E-01 5.59862E-02 9.95222E-01 -2.61874E-01 + 9.52000E-01 1.00026E+00 -2.07238E-01 3.99519E-02 1.01643E+00 + -2.67454E-01 9.52000E-01 1.00040E+00 -1.88277E-01 2.88974E-02 + 1.02737E+00 -2.70334E-01 9.52000E-01 9.99978E-01 -2.53143E-01 + 5.80904E-02 9.95043E-01 -2.71716E-01 9.52000E-01 1.00027E+00 + -2.15200E-01 4.14867E-02 1.01706E+00 -2.77728E-01 9.52000E-01 + 1.00041E+00 -1.95591E-01 3.00200E-02 1.02844E+00 -2.80835E-01 + 9.52000E-01 + 1.88496E+01 9.43889E-01 8.53205E-01 2.32189E+00 9.44645E-01 + 8.53053E-01 2.01541E+00 + 2.03649E-01 3.09893E-04 6.45506E+04 5.45344E+00 + 1.21501E+02 2.59409E+01 + 1.19349E+01 1.87802E+00 6.11107E+03 1.32545E+03 -1.79651E+02 + -5.89218E+01 -2.97656E+02 -8.78403E+01 1.00000E+00 0.00000E+00 + -5.73267E+01 -1.25624E+01 5.11443E+01 1.09879E+01 3.01050E-05 + 5.80003E-06 1.19349E+01 1.87802E+00 6.11107E+03 1.32545E+03 + -1.79651E+02 -5.89218E+01 -2.97656E+02 -8.78403E+01 1.00000E+00 + 0.00000E+00 -5.73267E+01 -1.25624E+01 5.11443E+01 1.09879E+01 + 3.01050E-05 5.80003E-06 1.18886E+01 1.86789E+00 5.43884E+03 + 1.17829E+03 -1.74201E+02 -5.77288E+01 -2.84928E+02 -8.50539E+01 + 1.00000E+00 0.00000E+00 -3.01394E+00 -6.72835E-01 3.65195E+00 + 5.91457E-01 3.18932E-05 6.19149E-06 1.18400E+01 1.85717E+00 + 4.82364E+03 1.04247E+03 -1.68783E+02 -5.65325E+01 -2.72592E+02 + -8.23306E+01 1.00000E+00 0.00000E+00 -1.02904E+00 -2.34625E-01 + 1.91696E+00 2.08422E-01 3.37996E-05 6.61237E-06 1.17940E+01 + 1.84692E+00 4.26905E+03 9.18986E+02 -1.63485E+02 -5.53528E+01 + -2.60805E+02 -7.97059E+01 1.00000E+00 0.00000E+00 -5.02757E-01 + -1.17440E-01 1.45751E+00 1.06115E-01 3.58288E-05 7.06419E-06 + 1.17448E+01 1.83587E+00 3.76702E+03 8.06232E+02 -1.58153E+02 + -5.41551E+01 -2.49314E+02 -7.71251E+01 1.00000E+00 0.00000E+00 + -2.87581E-01 -6.91124E-02 1.27009E+00 6.40222E-02 3.79692E-05 + 7.54492E-06 1.16981E+01 1.82529E+00 3.31515E+03 7.03858E+02 + -1.53022E+02 -5.29929E+01 -2.38433E+02 -7.46599E+01 1.00000E+00 + 0.00000E+00 -1.78846E-01 -4.44777E-02 1.17578E+00 4.26578E-02 + 4.02416E-05 8.05977E-06 1.16499E+01 1.81427E+00 2.90737E+03 + 6.10660E+02 -1.47936E+02 -5.18304E+01 -2.27922E+02 -7.22576E+01 + 1.00000E+00 0.00000E+00 -1.16155E-01 -3.01495E-02 1.12177E+00 + 3.03118E-02 4.26481E-05 8.60976E-06 1.16023E+01 1.80329E+00 + 2.54073E+03 5.26118E+02 -1.42902E+02 -5.06696E+01 -2.17772E+02 + -6.99172E+01 1.00000E+00 0.00000E+00 -7.66504E-02 -2.10405E-02 + 1.08806E+00 2.25388E-02 4.51933E-05 9.19664E-06 1.15573E+01 + 1.79282E+00 2.21121E+03 4.49454E+02 -1.38015E+02 -4.95326E+01 + -2.08095E+02 -6.76658E+01 1.00000E+00 0.00000E+00 -5.00224E-02 + -1.48454E-02 1.06563E+00 1.73206E-02 4.78964E-05 9.82551E-06 + 1.15237E+01 1.78494E+00 1.91540E+03 3.80012E+02 -1.33214E+02 + -4.84055E+01 -1.98786E+02 -6.54804E+01 1.00000E+00 0.00000E+00 + -3.10777E-02 -1.03980E-02 1.05000E+00 1.36497E-02 5.07550E-05 + 1.04966E-05 1.14808E+01 1.77478E+00 1.64987E+03 3.17106E+02 + -1.28503E+02 -4.72897E+01 -1.89836E+02 -6.33601E+01 1.00000E+00 + 0.00000E+00 -1.70472E-02 -7.07423E-03 1.03866E+00 1.09642E-02 + 5.37805E-05 1.12133E-05 1.14279E+01 1.76213E+00 1.41251E+03 + 2.60358E+02 -1.23890E+02 -4.61867E+01 -1.81241E+02 -6.13054E+01 + 1.00000E+00 0.00000E+00 -6.30688E-03 -4.50637E-03 1.03018E+00 + 8.93708E-03 5.69875E-05 1.19801E-05 1.13773E+01 1.74991E+00 + 1.20033E+03 2.09157E+02 -1.19404E+02 -4.51043E+01 -1.73023E+02 + -5.93223E+01 1.00000E+00 0.00000E+00 2.21578E-03 -2.44977E-03 + 1.02369E+00 7.37222E-03 6.03823E-05 1.27993E-05 1.13252E+01 + 1.73722E+00 1.01090E+03 1.63017E+02 -1.14980E+02 -4.40269E+01 + -1.65085E+02 -5.73887E+01 1.00000E+00 0.00000E+00 9.16340E-03 + -7.57521E-04 1.01862E+00 6.13380E-03 6.39712E-05 1.36734E-05 + 1.12740E+01 1.72464E+00 8.42377E+02 1.21581E+02 -1.10682E+02 + -4.29698E+01 -1.57491E+02 -5.55216E+01 1.00000E+00 0.00000E+00 + 1.49661E-02 6.69258E-04 1.01457E+00 5.14107E-03 6.77765E-05 + 1.46091E-05 1.12213E+01 1.71155E+00 6.92558E+02 8.43899E+01 + -1.06482E+02 -4.19272E+01 -1.50203E+02 -5.37124E+01 1.00000E+00 + 0.00000E+00 1.99236E-02 1.89988E-03 1.01127E+00 4.32319E-03 + 7.17930E-05 1.56062E-05 1.11706E+01 1.69885E+00 5.59658E+02 + 5.10798E+01 -1.02411E+02 -4.09069E+01 -1.43241E+02 -5.19673E+01 + 1.00000E+00 0.00000E+00 2.42560E-02 2.98573E-03 1.00859E+00 + 3.64903E-03 7.60490E-05 1.66728E-05 1.11163E+01 1.68512E+00 + 4.42341E+02 2.13897E+01 -9.84041E+01 -3.98929E+01 -1.36513E+02 + -5.02647E+01 1.00000E+00 0.00000E+00 2.80879E-02 3.95554E-03 + 1.00635E+00 3.08312E-03 8.05523E-05 1.78125E-05 2.77205E+03 + 7.07304E+02 3.38827E+02 -5.06500E+00 -1.22638E+02 -4.60864E+01 + -1.30071E+02 -4.86183E+01 -8.58539E+01 -2.21975E+01 3.15637E-02 + 4.84383E-03 1.00445E+00 2.59761E-03 8.53112E-05 1.90288E-05 + 2.31660E+03 5.89746E+02 2.47901E+02 -2.85343E+01 -1.15247E+02 + -4.41787E+01 -1.23922E+02 -4.70311E+01 -5.78503E+00 -1.53045E+00 + 3.47390E-02 5.66343E-03 1.00286E+00 2.18787E-03 9.03553E-05 + 2.03307E-05 1.95011E+03 4.94198E+02 1.68302E+02 -4.92867E+01 + -1.08618E+02 -4.24503E+01 -1.17984E+02 -4.54831E+01 -2.02680E+00 + -5.50648E-01 3.76960E-02 6.43435E-03 1.00148E+00 1.82915E-03 + 9.56694E-05 2.17161E-05 1.65324E+03 4.16015E+02 9.88046E+01 + -6.75898E+01 -1.02659E+02 -4.08811E+01 -1.12334E+02 -4.39951E+01 + -9.96384E-01 -2.79280E-01 4.04746E-02 7.16612E-03 1.00030E+00 + 1.51837E-03 1.01311E-04 2.32018E-05 1.40959E+03 3.51189E+02 + 3.84838E+01 -8.36381E+01 -9.71817E+01 -3.94238E+01 -1.06885E+02 + -4.25454E+01 -5.69993E-01 -1.65836E-01 4.31068E-02 7.86642E-03 + 9.99270E-01 1.24160E-03 1.07250E-04 2.47820E-05 1.20858E+03 + 2.97156E+02 -1.35341E+01 -9.76219E+01 -9.21421E+01 -3.80691E+01 + -1.01683E+02 -4.11469E+01 -3.53586E-01 -1.07662E-01 4.56379E-02 + 8.54682E-03 9.98367E-01 1.00039E-03 1.13538E-04 2.64723E-05 + 1.04080E+03 2.51583E+02 -5.81453E+01 -1.09740E+02 -8.74317E+01 + -3.67896E+01 -9.66759E+01 -3.97868E+01 -2.28810E-01 -7.37697E-02 + 4.80774E-02 9.20944E-03 9.97576E-01 7.83922E-04 1.20177E-04 + 2.82756E-05 9.00154E+02 2.12974E+02 -9.62593E+01 -1.20201E+02 + -8.30497E+01 -3.55867E+01 -9.19095E+01 -3.84785E+01 -1.50500E-01 + -5.22731E-02 5.04506E-02 9.86091E-03 9.96864E-01 5.89105E-04 + 1.27202E-04 3.02042E-05 7.81099E+02 1.79944E+02 -1.28216E+02 + -1.29067E+02 -7.88827E+01 -3.44306E+01 -8.73035E+01 -3.72007E+01 + -9.80185E-02 -3.77128E-02 5.27662E-02 1.05033E-02 9.96227E-01 + 4.12835E-04 1.34603E-04 3.22574E-05 6.80004E+02 1.51592E+02 + -1.55145E+02 -1.36620E+02 -7.49759E+01 -3.33350E+01 -8.29260E+01 + -3.59730E+01 -6.11726E-02 -2.73798E-02 5.50459E-02 1.11427E-02 + 9.95671E-01 2.56669E-04 1.42431E-04 3.44528E-05 5.93172E+02 + 1.26975E+02 -1.77105E+02 -1.42846E+02 -7.12420E+01 -3.22765E+01 + -7.87073E+01 -3.47770E+01 -3.41319E-02 -1.97136E-02 5.72842E-02 + 1.17772E-02 9.95170E-01 1.14419E-04 1.50686E-04 3.67929E-05 + 5.18642E+02 1.05612E+02 -1.95013E+02 -1.47979E+02 -6.77041E+01 + -3.12624E+01 -7.46842E+01 -3.36238E+01 -1.36769E-02 -1.38504E-02 + 5.95265E-02 1.24199E-02 9.94700E-01 -2.01006E-05 1.59404E-04 + 3.92920E-05 4.53902E+02 8.68483E+01 -2.09228E+02 -1.52099E+02 + -6.43325E+01 -3.02852E+01 -7.08351E+01 -3.25082E+01 2.24276E-03 + -9.23631E-03 6.17187E-02 1.30553E-02 9.94298E-01 -1.37612E-04 + 1.68601E-04 4.19575E-05 3.97809E+02 7.04064E+01 -2.19940E+02 + -1.55238E+02 -6.10887E+01 -2.93343E+01 -6.71270E+01 -3.14213E+01 + 1.49629E-02 -5.50784E-03 6.39137E-02 1.36987E-02 9.93908E-01 + -2.50484E-04 1.78292E-04 4.47982E-05 3.48790E+02 5.58745E+01 + -2.27945E+02 -1.57612E+02 -5.80062E+01 -2.84204E+01 -6.35992E+01 + -3.03754E+01 2.53551E-02 -2.42695E-03 6.61078E-02 1.43492E-02 + 9.93574E-01 -3.49441E-04 1.88529E-04 4.78331E-05 3.05892E+02 + 4.30093E+01 -2.33262E+02 -1.59206E+02 -5.50460E+01 -2.75327E+01 + -6.02157E+01 -2.93607E+01 3.39904E-02 1.62737E-04 6.82794E-02 + 1.50004E-02 9.93246E-01 -4.48397E-04 1.99305E-04 5.10648E-05 + 2.68249E+02 3.15887E+01 -2.36381E+02 -1.60152E+02 -5.22077E+01 + -2.66715E+01 -5.69754E+01 -2.83777E+01 4.13390E-02 2.39227E-03 + 7.04693E-02 1.56649E-02 9.92974E-01 -5.31895E-04 2.10669E-04 + 5.45126E-05 2.35107E+02 2.14142E+01 -2.37507E+02 -1.60498E+02 + -4.94904E+01 -2.58374E+01 -5.38813E+01 -2.74278E+01 4.76524E-02 + 4.33042E-03 7.26398E-02 1.63312E-02 9.92696E-01 -6.15387E-04 + 2.22655E-04 5.81920E-05 2.05911E+02 1.23442E+01 -2.36904E+02 + -1.60311E+02 -4.68777E+01 -2.50257E+01 -5.09148E+01 -2.65062E+01 + 5.31913E-02 6.05114E-03 7.48197E-02 1.70084E-02 9.92461E-01 + -6.89604E-04 2.35255E-04 6.21063E-05 1.80141E+02 4.24128E+00 + -2.34868E+02 -1.59670E+02 -4.43765E+01 -2.42392E+01 -4.80826E+01 + -2.56157E+01 5.81013E-02 7.59502E-03 7.69999E-02 1.76939E-02 + 9.92244E-01 -7.57637E-04 2.48540E-04 6.62836E-05 1.57484E+02 + -2.96989E+00 -2.31464E+02 -1.58587E+02 -4.19701E+01 -2.34733E+01 + -4.53698E+01 -2.47522E+01 6.24994E-02 8.99491E-03 7.91777E-02 + 1.83870E-02 9.92028E-01 -8.24123E-04 2.62513E-04 7.07311E-05 + 1.37453E+02 -9.42502E+00 -2.27027E+02 -1.57157E+02 -3.96656E+01 + -2.27307E+01 -4.27795E+01 -2.39175E+01 6.64996E-02 1.02840E-02 + 8.13601E-02 1.90903E-02 9.91848E-01 -8.82879E-04 2.77229E-04 + 7.54735E-05 1.19771E+02 -1.51946E+01 -2.21698E+02 -1.55419E+02 + -3.74529E+01 -2.20087E+01 -4.03031E+01 -2.31094E+01 7.01635E-02 + 1.14795E-02 8.35401E-02 1.98016E-02 9.91675E-01 -9.40088E-04 + 2.92706E-04 8.05233E-05 1.04255E+02 -2.03217E+01 -2.15510E+02 + -1.53374E+02 -3.53307E+01 -2.13074E+01 -3.79362E+01 -2.23274E+01 + 7.35513E-02 1.25989E-02 8.57189E-02 2.05216E-02 9.91521E-01 + -9.92659E-04 3.08980E-04 8.59012E-05 9.05794E+01 -2.48991E+01 + -2.08711E+02 -1.51098E+02 -3.32916E+01 -2.06249E+01 -3.56719E+01 + -2.15694E+01 7.67314E-02 1.36634E-02 8.79077E-02 2.12543E-02 + 9.91372E-01 -1.04059E-03 3.26088E-04 9.16275E-05 7.85890E+01 + -2.89650E+01 -2.01398E+02 -1.48618E+02 -3.13368E+01 -1.99620E+01 + -3.35095E+01 -2.08362E+01 7.96607E-02 1.46567E-02 9.00548E-02 + 2.19823E-02 9.91242E-01 -1.08543E-03 3.44059E-04 9.77215E-05 + 6.81392E+01 -3.25555E+01 -1.93630E+02 -1.45949E+02 -2.94626E+01 + -1.93181E+01 -3.14441E+01 -2.01265E+01 8.24802E-02 1.56254E-02 + 9.22355E-02 2.27316E-02 9.91119E-01 -1.12718E-03 3.62948E-04 + 1.04211E-04 5.90165E+01 -3.57319E+01 -1.85560E+02 -1.43139E+02 + -2.76661E+01 -1.86926E+01 -2.94722E+01 -1.94400E+01 8.51376E-02 + 1.65507E-02 9.43932E-02 2.34829E-02 9.91020E-01 -1.16275E-03 + 3.82783E-04 1.11118E-04 5.11337E+01 -3.85139E+01 -1.77248E+02 + -1.40206E+02 -2.59437E+01 -1.80847E+01 -2.75883E+01 -1.87751E+01 + 8.76700E-02 1.74445E-02 9.65444E-02 2.42422E-02 9.90915E-01 + -1.19830E-03 4.03585E-04 1.18459E-04 4.43373E+01 -4.09459E+01 + -1.68755E+02 -1.37167E+02 -2.42933E+01 -1.74942E+01 -2.57905E+01 + -1.81318E+01 9.00975E-02 1.83131E-02 9.86828E-02 2.50073E-02 + 9.90834E-01 -1.22923E-03 4.25430E-04 1.26276E-04 3.85266E+01 + -4.30541E+01 -1.60139E+02 -1.34041E+02 -2.27111E+01 -1.69202E+01 + -2.40732E+01 -1.75087E+01 9.24199E-02 1.91556E-02 1.00798E-01 + 2.57747E-02 9.90754E-01 -1.25860E-03 4.48332E-04 1.34584E-04 + 3.36278E+01 -4.48566E+01 -1.51480E+02 -1.30855E+02 -2.11972E+01 + -1.63631E+01 -2.24352E+01 -1.69060E+01 9.46609E-02 1.99802E-02 + 1.02905E-01 2.65501E-02 9.90692E-01 -1.28025E-03 4.72340E-04 + 1.43418E-04 2.95168E+01 -4.63909E+01 -1.42811E+02 -1.27619E+02 + -1.97460E+01 -1.58215E+01 -2.08706E+01 -1.63221E+01 9.68401E-02 + 2.07936E-02 1.05002E-01 2.73328E-02 9.90630E-01 -1.30344E-03 + 4.97492E-04 1.52806E-04 2.61333E+01 -4.76722E+01 -1.34188E+02 + -1.24354E+02 -1.83596E+01 -1.52965E+01 -1.93805E+01 -1.57578E+01 + 9.89201E-02 2.15812E-02 1.07059E-01 2.81116E-02 9.90574E-01 + -1.32354E-03 5.23856E-04 1.62790E-04 2.33712E+01 -4.87338E+01 + -1.25651E+02 -1.21073E+02 -1.70323E+01 -1.47864E+01 -1.79591E+01 + -1.52116E+01 1.00941E-01 2.23578E-02 1.09091E-01 2.88925E-02 + 9.90543E-01 -1.33746E-03 5.51437E-04 1.73389E-04 2.12171E+01 + -4.95741E+01 -1.17210E+02 -1.17780E+02 -1.57615E+01 -1.42907E+01 + -1.66018E+01 -1.46820E+01 1.02901E-01 2.31224E-02 1.11101E-01 + 2.96765E-02 9.90513E-01 -1.34828E-03 5.80316E-04 1.84655E-04 + 1.95831E+01 -5.02213E+01 -1.08894E+02 -1.14487E+02 -1.45475E+01 + -1.38098E+01 -1.53090E+01 -1.41701E+01 1.04795E-01 2.38724E-02 + 1.13071E-01 3.04569E-02 9.90482E-01 -1.35911E-03 6.10512E-04 + 1.96613E-04 1.84051E+01 -5.06947E+01 -1.00751E+02 -1.11212E+02 + -1.33867E+01 -1.33430E+01 -1.40766E+01 -1.36744E+01 1.06638E-01 + 2.46138E-02 1.15014E-01 3.12382E-02 9.90469E-01 -1.36684E-03 + 6.42075E-04 2.09307E-04 1.76483E+01 -5.10038E+01 -9.27802E+01 + -1.07956E+02 -1.22778E+01 -1.28900E+01 -1.29022E+01 -1.31947E+01 + 1.08408E-01 2.53366E-02 1.16903E-01 3.20101E-02 9.90463E-01 + -1.36838E-03 6.75070E-04 2.22786E-04 1.72533E+01 -5.11681E+01 + -8.50093E+01 -1.04731E+02 -1.12185E+01 -1.24504E+01 -1.17838E+01 + -1.27305E+01 1.10148E-01 2.60588E-02 1.18772E-01 3.27857E-02 + 9.90463E-01 -1.36838E-03 7.09529E-04 2.37088E-04 1.71924E+01 + -5.11934E+01 -7.74265E+01 -1.01532E+02 -1.02066E+01 -1.20236E+01 + -1.07177E+01 -1.22808E+01 1.11818E-01 2.67635E-02 1.20581E-01 + 3.35487E-02 9.90463E-01 -1.36530E-03 7.45492E-04 2.52257E-04 + 1.74164E+01 -5.10976E+01 -7.00763E+01 -9.83807E+01 -9.24097E+00 + -1.16095E+01 -9.70290E+00 -1.18457E+01 1.13433E-01 2.74560E-02 + 1.22344E-01 3.43043E-02 9.90488E-01 -1.35756E-03 7.83012E-04 + 2.68345E-04 1.78969E+01 -5.08882E+01 -6.29467E+01 -9.52723E+01 + -8.31988E+00 -1.12079E+01 -8.73708E+00 -1.14246E+01 1.15004E-01 + 2.81408E-02 1.24062E-01 3.50535E-02 9.90506E-01 -1.34828E-03 + 8.22153E-04 2.85409E-04 1.85928E+01 -5.05795E+01 -5.60482E+01 + -9.22133E+01 -7.44114E+00 -1.08183E+01 -7.81807E+00 -1.10171E+01 + 1.16505E-01 2.88063E-02 1.25712E-01 3.57851E-02 9.90531E-01 + -1.33591E-03 8.62943E-04 3.03497E-04 1.94905E+01 -5.01746E+01 + -4.93762E+01 -8.92031E+01 -6.60249E+00 -1.04399E+01 -6.94240E+00 + -1.06221E+01 1.17972E-01 2.94682E-02 1.27322E-01 3.65114E-02 + 9.90574E-01 -1.31891E-03 9.05416E-04 3.22658E-04 2.05474E+01 + -4.96895E+01 -4.29464E+01 -8.62510E+01 -5.80430E+00 -1.00735E+01 + -6.11087E+00 -1.02403E+01 1.19373E-01 3.01115E-02 1.28862E-01 + 3.72185E-02 9.90618E-01 -1.29881E-03 9.49655E-04 3.42969E-04 + 2.17420E+01 -4.91310E+01 -3.67596E+01 -8.33595E+01 -5.04313E+00 + -9.71766E+00 -5.31941E+00 -9.87035E+00 1.20711E-01 3.07367E-02 + 1.30332E-01 3.79058E-02 9.90661E-01 -1.27871E-03 9.95674E-04 + 3.64478E-04 2.30616E+01 -4.85026E+01 -3.08001E+01 -8.05230E+01 + -4.31852E+00 -9.37280E+00 -4.56754E+00 -9.51250E+00 1.21990E-01 + 3.13456E-02 1.31733E-01 3.85727E-02 9.90717E-01 -1.25087E-03 + 1.04354E-03 3.87262E-04 2.44827E+01 -4.78139E+01 -2.50764E+01 + -7.77478E+01 -3.62770E+00 -9.03786E+00 -3.85184E+00 -9.16549E+00 + 1.23250E-01 3.19566E-02 1.33101E-01 3.92360E-02 9.90779E-01 + -1.22150E-03 1.09327E-03 4.11374E-04 2.59828E+01 -4.70725E+01 + -1.95895E+01 -7.50368E+01 -2.97102E+00 -8.71338E+00 -3.17285E+00 + -8.83000E+00 1.24464E-01 3.25563E-02 1.34411E-01 3.98828E-02 + 9.90843E-01 -1.18903E-03 1.14495E-03 4.36906E-04 2.75440E+01 + -4.62862E+01 -1.43341E+01 -7.23895E+01 -2.34626E+00 -8.39870E+00 + -2.52775E+00 -8.50505E+00 1.25566E-01 3.31112E-02 1.35596E-01 + 4.04801E-02 9.90915E-01 -1.15346E-03 1.19857E-03 4.63919E-04 + 2.91516E+01 -4.54606E+01 -9.31267E+00 -6.98102E+01 -1.75194E+00 + -8.09342E+00 -1.91517E+00 -8.19039E+00 1.26609E-01 3.36474E-02 + 1.36710E-01 4.10524E-02 9.90995E-01 -1.11327E-03 1.25423E-03 + 4.92505E-04 3.08024E+01 -4.45954E+01 -4.50371E+00 -6.72901E+01 + -1.18694E+00 -7.79734E+00 -1.33369E+00 -7.88566E+00 1.27635E-01 + 3.41846E-02 1.37786E-01 4.16161E-02 9.91072E-01 -1.07151E-03 + 1.31191E-03 5.22733E-04 3.24752E+01 -4.37006E+01 8.35194E-02 + -6.48366E+01 -6.50046E-01 -7.51016E+00 -7.81856E-01 -7.59052E+00 + 1.28585E-01 3.46928E-02 1.38772E-01 4.21432E-02 9.91162E-01 + -1.02513E-03 1.37168E-03 5.54703E-04 3.41578E+01 -4.27817E+01 + 4.45542E+00 -6.24490E+01 -1.40469E-01 -7.23187E+00 -2.58920E-01 + -7.30493E+00 1.29469E-01 3.51756E-02 1.39674E-01 4.26360E-02 + 9.91252E-01 -9.75651E-04 1.43359E-03 5.88511E-04 3.58480E+01 + -4.18389E+01 8.62189E+00 -6.01247E+01 3.43429E-01 -6.96192E+00 + 2.37199E-01 -7.02817E+00 1.30313E-01 3.56464E-02 1.40518E-01 + 4.31070E-02 9.91341E-01 -9.24626E-04 1.49764E-03 6.24243E-04 + 3.75319E+01 -4.08790E+01 1.25885E+01 -5.78633E+01 8.02835E-01 + -6.70001E+00 7.07490E-01 -6.76005E+00 1.31081E-01 3.60846E-02 + 1.41269E-01 4.35351E-02 9.91443E-01 -8.67417E-04 1.56388E-03 + 6.62007E-04 3.92015E+01 -3.99056E+01 1.63532E+01 -5.56688E+01 + 1.23829E+00 -6.44616E+00 1.15265E+00 -6.50054E+00 1.31797E-01 + 3.65019E-02 1.41952E-01 4.39331E-02 9.91539E-01 -8.10207E-04 + 1.63236E-03 7.01925E-04 4.08544E+01 -3.89200E+01 1.99350E+01 + -5.35330E+01 1.65124E+00 -6.19990E+00 1.57445E+00 -6.24901E+00 + 1.32453E-01 3.68932E-02 1.42555E-01 4.42926E-02 9.91641E-01 + -7.49906E-04 1.70306E-03 7.44086E-04 4.24809E+01 -3.79273E+01 + 2.33272E+01 -5.14624E+01 2.04227E+00 -5.96127E+00 1.97334E+00 + -6.00555E+00 1.33055E-01 3.72605E-02 1.43089E-01 4.46184E-02 + 9.91746E-01 -6.84965E-04 1.77605E-03 7.88637E-04 4.40741E+01 + -3.69314E+01 2.65433E+01 -4.94522E+01 2.41286E+00 -5.72961E+00 + 2.35096E+00 -5.76952E+00 1.33585E-01 3.75915E-02 1.43532E-01 + 4.48954E-02 9.91855E-01 -6.18479E-04 1.85133E-03 8.35691E-04 + 4.56368E+01 -3.59306E+01 2.95876E+01 -4.75021E+01 2.76331E+00 + -5.50516E+00 2.70780E+00 -5.54095E+00 1.34071E-01 3.79031E-02 + 1.43918E-01 4.51430E-02 9.91963E-01 -5.48900E-04 1.92891E-03 + 8.85382E-04 4.71563E+01 -3.49325E+01 3.24663E+01 -4.56118E+01 + 3.09494E+00 -5.28736E+00 3.04511E+00 -5.31947E+00 1.34493E-01 + 3.81799E-02 1.44222E-01 4.53425E-02 9.92077E-01 -4.74686E-04 + 2.00883E-03 9.37865E-04 4.86388E+01 -3.39338E+01 3.51878E+01 + -4.37780E+01 3.40839E+00 -5.07618E+00 3.36356E+00 -5.10488E+00 + 1.34865E-01 3.84309E-02 1.44465E-01 4.55059E-02 9.92186E-01 + -4.02011E-04 2.09106E-03 9.93273E-04 5.00724E+01 -3.29421E+01 + 3.77516E+01 -4.20045E+01 3.70452E+00 -4.87134E+00 3.66424E+00 + -4.89689E+00 1.35172E-01 3.86431E-02 1.44628E-01 4.56190E-02 + 9.92294E-01 -3.26248E-04 2.17565E-03 1.05178E-03 5.14614E+01 + -3.19549E+01 4.01728E+01 -4.02837E+01 3.98399E+00 -4.67271E+00 + 3.94778E+00 -4.69539E+00 1.35433E-01 3.88287E-02 1.44733E-01 + 4.56932E-02 9.92405E-01 -2.47392E-04 2.26257E-03 1.11356E-03 + 5.27997E+01 -3.09770E+01 4.24492E+01 -3.86206E+01 4.24769E+00 + -4.48004E+00 4.21501E+00 -4.50013E+00 1.35639E-01 3.89791E-02 + 1.44772E-01 4.57216E-02 9.92519E-01 -1.63897E-04 2.35183E-03 + 1.17878E-03 5.40891E+01 -3.00074E+01 4.45914E+01 -3.70098E+01 + 4.49617E+00 -4.29321E+00 4.46670E+00 -4.31087E+00 1.35790E-01 + 3.90925E-02 1.44746E-01 4.57023E-02 9.92628E-01 -8.34947E-05 + 2.44340E-03 1.24763E-03 5.53272E+01 -2.90487E+01 4.66032E+01 + -3.54520E+01 4.73020E+00 -4.11197E+00 4.70358E+00 -4.12746E+00 + 1.35894E-01 3.91727E-02 1.44664E-01 4.56393E-02 9.92733E-01 + 0.00000E+00 2.53728E-03 1.32033E-03 5.65135E+01 -2.81019E+01 + 4.84919E+01 -3.39445E+01 4.95048E+00 -3.93617E+00 4.92638E+00 + -3.94963E+00 1.35952E-01 3.92197E-02 1.44530E-01 4.55318E-02 + 9.92844E-01 8.81332E-05 2.63343E-03 1.39707E-03 5.76464E+01 + -2.71689E+01 5.02593E+01 -3.24890E+01 5.15759E+00 -3.76562E+00 + 5.13568E+00 -3.77727E+00 1.35959E-01 3.92251E-02 1.44338E-01 + 4.53739E-02 9.92949E-01 1.73174E-04 2.73183E-03 1.47810E-03 + 5.87274E+01 -2.62496E+01 5.19146E+01 -3.10813E+01 5.35204E+00 + -3.60024E+00 5.33206E+00 -3.61023E+00 1.35923E-01 3.91949E-02 + 1.44099E-01 4.51708E-02 9.93048E-01 2.59761E-04 2.83245E-03 + 1.56368E-03 5.97561E+01 -2.53449E+01 5.34605E+01 -2.97220E+01 + 5.53443E+00 -3.43985E+00 5.51620E+00 -3.44834E+00 1.35848E-01 + 3.91287E-02 1.43818E-01 4.49235E-02 9.93153E-01 3.49443E-04 + 2.93519E-03 1.65402E-03 6.07317E+01 -2.44571E+01 5.49025E+01 + -2.84095E+01 5.70547E+00 -3.28420E+00 5.68879E+00 -3.29125E+00 + 1.35729E-01 3.90206E-02 1.43490E-01 4.46254E-02 9.93249E-01 + 4.39120E-04 3.04003E-03 1.74944E-03 6.16557E+01 -2.35855E+01 + 5.62462E+01 -2.71420E+01 5.86548E+00 -3.13324E+00 5.85014E+00 + -3.13903E+00 1.35576E-01 3.88758E-02 1.43127E-01 4.42825E-02 + 9.93342E-01 5.25707E-04 3.14689E-03 1.85024E-03 6.25297E+01 + -2.27301E+01 5.74952E+01 -2.59195E+01 6.01508E+00 -2.98681E+00 + 6.00088E+00 -2.99148E+00 1.35386E-01 3.86901E-02 1.42730E-01 + 4.38936E-02 9.93435E-01 6.16933E-04 3.25564E-03 1.95669E-03 + 6.33508E+01 -2.18947E+01 5.86540E+01 -2.47405E+01 6.15471E+00 + -2.84478E+00 6.14152E+00 -2.84842E+00 1.35161E-01 3.84617E-02 + 1.42297E-01 4.34536E-02 9.93523E-01 7.06612E-04 3.36623E-03 + 2.06919E-03 6.41245E+01 -2.10756E+01 5.97278E+01 -2.36037E+01 + 6.28486E+00 -2.70698E+00 6.27261E+00 -2.70966E+00 1.34914E-01 + 3.82002E-02 1.41847E-01 4.29771E-02 9.93606E-01 7.94745E-04 + 3.47850E-03 2.18805E-03 6.48488E+01 -2.02760E+01 6.07204E+01 + -2.25081E+01 6.40599E+00 -2.57327E+00 6.39447E+00 -2.57512E+00 + 1.34632E-01 3.78884E-02 1.41364E-01 4.24443E-02 9.93687E-01 + 8.82879E-04 3.59232E-03 2.31369E-03 6.55259E+01 -1.94954E+01 + 6.16363E+01 -2.14520E+01 6.51836E+00 -2.44371E+00 6.50756E+00 + -2.44475E+00 1.34333E-01 3.75438E-02 1.40870E-01 4.18743E-02 + 9.93761E-01 9.71012E-04 3.70752E-03 2.44650E-03 6.61565E+01 + -1.87349E+01 6.24780E+01 -2.04365E+01 6.62266E+00 -2.31789E+00 + 6.61238E+00 -2.31828E+00 1.34010E-01 3.71540E-02 1.40358E-01 + 4.12562E-02 9.93832E-01 1.05605E-03 3.82394E-03 2.58695E-03 + 6.67419E+01 -1.79939E+01 6.32506E+01 -1.94590E+01 6.71904E+00 + -2.19592E+00 6.70930E+00 -2.19565E+00 1.33665E-01 3.67168E-02 + 1.39830E-01 4.05883E-02 9.93902E-01 1.14264E-03 3.94133E-03 + 2.73550E-03 6.72841E+01 -1.72727E+01 6.39579E+01 -1.85181E+01 + 6.80796E+00 -2.07764E+00 6.79862E+00 -2.07683E+00 1.33308E-01 + 3.62429E-02 1.39298E-01 3.98807E-02 9.93964E-01 1.22613E-03 + 4.05947E-03 2.89264E-03 6.77838E+01 -1.65720E+01 6.46024E+01 + -1.76146E+01 6.88975E+00 -1.96297E+00 6.88078E+00 -1.96163E+00 + 1.32939E-01 3.57251E-02 1.38762E-01 3.91295E-02 9.94021E-01 + 1.30654E-03 4.17808E-03 3.05896E-03 6.82433E+01 -1.58910E+01 + 6.51885E+01 -1.67458E+01 6.96488E+00 -1.85160E+00 6.95619E+00 + -1.84985E+00 1.32561E-01 3.51646E-02 1.38226E-01 3.83341E-02 + 9.94076E-01 1.38694E-03 4.29684E-03 3.23500E-03 6.86632E+01 + -1.52308E+01 6.57189E+01 -1.59120E+01 7.03349E+00 -1.74374E+00 + 7.02510E+00 -1.74151E+00 1.32176E-01 3.45598E-02 1.37692E-01 + 3.74951E-02 9.94128E-01 1.46734E-03 4.41539E-03 3.42135E-03 + 6.90447E+01 -1.45924E+01 6.61965E+01 -1.51128E+01 7.09600E+00 + -1.63913E+00 7.08780E+00 -1.63661E+00 1.31788E-01 3.39104E-02 + 1.37163E-01 3.66110E-02 9.94169E-01 1.54000E-03 4.53338E-03 + 3.61882E-03 6.93912E+01 -1.39726E+01 6.66252E+01 -1.43456E+01 + 7.15273E+00 -1.53765E+00 7.14471E+00 -1.53478E+00 1.31401E-01 + 3.32172E-02 1.36647E-01 3.56866E-02 9.94211E-01 1.61269E-03 + 4.65032E-03 3.82800E-03 6.97021E+01 -1.33753E+01 6.70075E+01 + -1.36112E+01 7.20386E+00 -1.43941E+00 7.19598E+00 -1.43627E+00 + 1.31020E-01 3.24866E-02 1.36146E-01 3.47251E-02 9.94249E-01 + 1.68537E-03 4.76569E-03 4.04968E-03 6.99805E+01 -1.27974E+01 + 6.73465E+01 -1.29078E+01 7.24983E+00 -1.34401E+00 7.24208E+00 + -1.34063E+00 1.30646E-01 3.17088E-02 1.35662E-01 3.37198E-02 + 9.94281E-01 1.75183E-03 4.87897E-03 4.28473E-03 7.02272E+01 + -1.22410E+01 6.76440E+01 -1.22369E+01 7.29077E+00 -1.25167E+00 + 7.28310E+00 -1.24809E+00 1.30276E-01 3.08758E-02 1.35194E-01 + 3.26638E-02 9.94309E-01 1.81679E-03 4.98947E-03 4.53399E-03 + 7.04442E+01 -1.17051E+01 6.79042E+01 -1.15941E+01 7.32699E+00 + -1.16218E+00 7.31941E+00 -1.15839E+00 1.29925E-01 3.00073E-02 + 1.34752E-01 3.15733E-02 9.94333E-01 1.87707E-03 5.09654E-03 + 4.79847E-03 7.06328E+01 -1.11901E+01 6.81283E+01 -1.09821E+01 + 7.35876E+00 -1.07544E+00 7.35124E+00 -1.07148E+00 1.29588E-01 + 2.90894E-02 1.34337E-01 3.04390E-02 9.94356E-01 1.93585E-03 + 5.19931E-03 5.07907E-03 7.07949E+01 -1.06956E+01 6.83196E+01 + -1.03983E+01 7.38631E+00 -9.91416E-01 7.37881E+00 -9.87371E-01 + 1.29273E-01 2.81281E-02 1.33952E-01 2.92653E-02 9.94373E-01 + 1.98994E-03 5.29696E-03 5.37705E-03 7.09317E+01 -1.02223E+01 + 6.84799E+01 -9.84387E+00 7.40983E+00 -9.10060E-01 7.40238E+00 + -9.05855E-01 1.28979E-01 2.71112E-02 1.33598E-01 2.80420E-02 + 9.94389E-01 2.04409E-03 5.38845E-03 5.69344E-03 7.10458E+01 + -9.76716E+00 6.86125E+01 -9.31493E+00 7.42957E+00 -8.31292E-01 + 7.42213E+00 -8.27025E-01 1.28717E-01 2.60635E-02 1.33285E-01 + 2.67931E-02 9.94400E-01 2.08735E-03 5.47269E-03 6.02959E-03 + 7.11373E+01 -9.33563E+00 6.87184E+01 -8.81570E+00 7.44575E+00 + -7.54994E-01 7.43833E+00 -7.50640E-01 1.28480E-01 2.49459E-02 + 1.33007E-01 2.54792E-02 9.94410E-01 2.13531E-03 5.54843E-03 + 6.38675E-03 7.12090E+01 -8.92207E+00 6.88008E+01 -8.34061E+00 + 7.45856E+00 -6.81176E-01 7.45115E+00 -6.76760E-01 1.28280E-01 + 2.37966E-02 1.32774E-01 2.41395E-02 9.94416E-01 2.17239E-03 + 5.61432E-03 6.76646E-03 7.12619E+01 -8.52992E+00 6.88611E+01 + -7.89362E+00 7.46819E+00 -6.09787E-01 7.46079E+00 -6.05346E-01 + 1.28116E-01 2.25796E-02 1.32585E-01 2.27397E-02 9.94422E-01 + 2.21417E-03 5.66882E-03 7.17028E-03 7.12979E+01 -8.15744E+00 + 6.89019E+01 -7.47048E+00 7.47486E+00 -5.40628E-01 7.46746E+00 + -5.36138E-01 1.27996E-01 2.13288E-02 1.32448E-01 2.13098E-02 + 9.94425E-01 2.24509E-03 5.71022E-03 7.59975E-03 7.13182E+01 + -7.80565E+00 6.89249E+01 -7.07397E+00 7.47867E+00 -4.74828E-01 + 7.47127E+00 -4.70326E-01 1.27919E-01 2.00069E-02 1.32361E-01 + 1.98175E-02 9.94426E-01 2.27290E-03 5.73667E-03 8.05677E-03 + 7.13246E+01 -7.47305E+00 6.89321E+01 -6.70059E+00 7.47976E+00 + -4.18243E-01 7.47236E+00 -4.13753E-01 1.27893E-01 1.86422E-02 + 1.32332E-01 1.82874E-02 9.94427E-01 2.30076E-03 5.74607E-03 + 8.54323E-03 7.13162E+01 -7.03538E+00 6.89230E+01 -6.22691E+00 + 7.47874E+00 -3.64999E-01 7.47134E+00 -3.60472E-01 1.27891E-01 + 1.87510E-02 1.32332E-01 1.82833E-02 9.94426E-01 2.32856E-03 + 5.73611E-03 9.06115E-03 7.12984E+01 -6.72692E+00 6.89033E+01 + -5.88677E+00 7.47578E+00 -3.13917E-01 7.46839E+00 -3.09427E-01 + 1.27965E-01 1.74690E-02 1.32414E-01 1.68552E-02 9.94425E-01 + 2.35333E-03 5.70423E-03 9.61280E-03 7.12712E+01 -6.44520E+00 + 6.88735E+01 -5.57677E+00 7.47105E+00 -2.64757E-01 7.46366E+00 + -2.60304E-01 1.28102E-01 1.60409E-02 1.32565E-01 1.52848E-02 + 9.94424E-01 2.36567E-03 5.64762E-03 1.02005E-02 7.12360E+01 + -6.18364E+00 6.88348E+01 -5.29025E+00 7.46470E+00 -2.17706E-01 + 7.45732E+00 -2.13278E-01 1.28305E-01 1.45409E-02 1.32786E-01 + 1.36476E-02 9.94422E-01 2.37652E-03 5.56316E-03 1.08267E-02 + 7.11937E+01 -5.93993E+00 6.87889E+01 -5.02578E+00 7.45688E+00 + -1.72629E-01 7.44950E+00 -1.68213E-01 1.28574E-01 1.29868E-02 + 1.33078E-01 1.19659E-02 9.94421E-01 2.38577E-03 5.44739E-03 + 1.14942E-02 7.11461E+01 -5.71557E+00 6.87374E+01 -4.78241E+00 + 7.44772E+00 -1.29411E-01 7.44035E+00 -1.25070E-01 1.28915E-01 + 1.13797E-02 1.33445E-01 1.02355E-02 9.94420E-01 2.39044E-03 + 5.29649E-03 1.22060E-02 7.10948E+01 -5.51066E+00 6.86822E+01 + -4.56207E+00 7.43737E+00 -8.81080E-02 7.43002E+00 -8.38034E-02 + 1.29340E-01 9.68107E-03 1.33900E-01 8.42015E-03 9.94419E-01 + 2.39195E-03 5.10633E-03 1.29651E-02 7.10403E+01 -5.32212E+00 + 6.86239E+01 -4.36045E+00 7.42595E+00 -4.86004E-02 7.41861E+00 + -4.43452E-02 1.29838E-01 7.95949E-03 1.34429E-01 6.58955E-03 + 9.94421E-01 2.38889E-03 4.87222E-03 1.37749E-02 7.09853E+01 + -5.15429E+00 6.85655E+01 -4.18233E+00 7.41361E+00 -1.09348E-02 + 7.40629E+00 -6.75383E-03 1.30439E-01 6.12568E-03 1.35063E-01 + 4.65215E-03 9.94423E-01 2.38116E-03 4.58914E-03 1.46390E-02 + 7.09302E+01 -5.00361E+00 6.85072E+01 -4.02316E+00 7.40047E+00 + 2.49617E-02 7.39316E+00 2.91178E-02 1.31128E-01 4.24351E-03 + 1.35788E-01 2.67259E-03 9.94424E-01 2.37804E-03 4.25144E-03 + 1.55612E-02 7.07619E+01 -4.58786E+00 6.83366E+01 -3.60145E+00 + 7.38661E+00 5.92135E-02 7.37933E+00 6.32955E-02 1.30475E-01 + 5.85703E-03 1.35136E-01 4.28531E-03 9.94421E-01 2.38425E-03 + 3.85298E-03 1.65457E-02 7.05220E+01 -4.04671E+00 6.80947E+01 + -3.05576E+00 7.37211E+00 9.19178E-02 7.36487E+00 9.59131E-02 + 1.28985E-01 9.21760E-03 1.33627E-01 7.68996E-03 9.94415E-01 + 2.39814E-03 3.38696E-03 1.75970E-02 7.04571E+01 -3.91198E+00 + 6.80285E+01 -2.91864E+00 7.35725E+00 1.22769E-01 7.35003E+00 + 1.26702E-01 1.29752E-01 7.62744E-03 1.34428E-01 6.02557E-03 + 9.94424E-01 2.38270E-03 2.84597E-03 1.87198E-02 7.03948E+01 + -3.79219E+00 6.79659E+01 -2.79808E+00 7.34202E+00 1.52021E-01 + 7.33484E+00 1.55905E-01 1.30610E-01 5.97795E-03 1.35323E-01 + 4.30652E-03 9.94431E-01 2.36567E-03 2.22182E-03 1.99193E-02 + 7.03370E+01 -3.68893E+00 6.79087E+01 -2.69579E+00 7.32652E+00 + 1.79743E-01 7.31940E+00 1.83516E-01 1.31570E-01 4.25980E-03 + 1.36319E-01 2.52457E-03 9.94443E-01 2.34405E-03 1.50562E-03 + 2.12006E-02 7.02839E+01 -3.60002E+00 6.78570E+01 -2.60927E+00 + 7.31088E+00 2.05940E-01 7.30377E+00 2.09675E-01 1.32625E-01 + 2.49477E-03 1.37408E-01 7.01583E-04 9.94457E-01 2.32237E-03 + 6.87305E-04 2.25703E-02 7.02392E+01 -3.52961E+00 6.78143E+01 + -2.54221E+00 7.29514E+00 2.30682E-01 7.28811E+00 2.34306E-01 + 1.33816E-01 6.21962E-04 1.38634E-01 -1.22614E-03 9.94474E-01 + 2.29612E-03 -2.43624E-04 2.40340E-02 7.02026E+01 -3.47534E+00 + 6.77807E+01 -2.49231E+00 7.27946E+00 2.53921E-01 7.27246E+00 + 2.57496E-01 1.35129E-01 -1.32470E-03 1.39982E-01 -3.22380E-03 + 9.94491E-01 2.26980E-03 -1.29923E-03 2.55989E-02 6.93000E+01 + -2.20991E+00 6.68826E+01 -1.23301E+00 7.26355E+00 2.76239E-01 + 7.25662E+00 2.79727E-01 1.25380E-01 1.23457E-02 1.30025E-01 + 1.07388E-02 9.94460E-01 2.31313E-03 -2.49265E-03 2.72724E-02 + 6.91817E+01 -2.05237E+00 6.67693E+01 -1.08220E+00 7.24810E+00 + 2.96797E-01 7.24121E+00 3.00212E-01 1.25646E-01 1.19928E-02 + 1.30304E-01 1.03665E-02 9.94482E-01 2.28529E-03 -3.83759E-03 + 2.90616E-02 6.91167E+01 -1.97021E+00 6.67105E+01 -1.00777E+00 + 7.23291E+00 3.16016E-01 7.22607E+00 3.19368E-01 1.26585E-01 + 1.08040E-02 1.31270E-01 9.14531E-03 9.94503E-01 2.25743E-03 + -5.35010E-03 3.09757E-02 6.90571E+01 -1.89820E+00 6.66584E+01 + -9.44844E-01 7.21800E+00 3.33993E-01 7.21127E+00 3.37234E-01 + 1.27594E-01 9.58687E-03 1.32301E-01 7.90034E-03 9.94531E-01 + 2.22345E-03 -7.04722E-03 3.30235E-02 6.90040E+01 -1.83702E+00 + 6.66132E+01 -8.92781E-01 7.20352E+00 3.50700E-01 7.19684E+00 + 3.53879E-01 1.28675E-01 8.34091E-03 1.33404E-01 6.62967E-03 + 9.94561E-01 2.18940E-03 -8.94726E-03 3.52141E-02 6.88952E+01 + -1.71691E+00 6.65135E+01 -7.82752E-01 7.18940E+00 3.66278E-01 + 7.18280E+00 3.69370E-01 1.29021E-01 7.95794E-03 1.33754E-01 + 6.24242E-03 9.94588E-01 2.15850E-03 -1.10710E-02 3.75586E-02 + 6.85063E+01 -1.30503E+00 6.61349E+01 -3.81772E-01 7.17568E+00 + 3.80807E-01 7.16915E+00 3.83826E-01 1.25757E-01 1.14147E-02 + 1.30423E-01 9.76997E-03 9.94605E-01 2.14147E-03 -1.34407E-02 + 4.00677E-02 6.84570E+01 -1.25478E+00 6.60963E+01 -3.42590E-01 + 7.16269E+00 3.94035E-01 7.15619E+00 3.97004E-01 1.26812E-01 + 1.03410E-02 1.31493E-01 8.68118E-03 9.94641E-01 2.10439E-03 + -1.60807E-02 4.27536E-02 6.84158E+01 -1.21459E+00 6.60678E+01 + -3.14680E-01 7.15023E+00 4.06227E-01 7.14385E+00 4.09084E-01 + 1.27960E-01 9.21760E-03 1.32652E-01 7.54694E-03 9.94681E-01 + 2.06571E-03 -1.90179E-02 4.56289E-02 6.83814E+01 -1.18214E+00 + 6.60464E+01 -2.94497E-01 7.13831E+00 4.17476E-01 7.13200E+00 + 4.20284E-01 1.29160E-01 8.08512E-03 1.33862E-01 6.40516E-03 + 9.94718E-01 2.03017E-03 -2.22812E-02 4.87074E-02 6.83814E+01 + -1.18214E+00 6.60464E+01 -2.94497E-01 7.13831E+00 4.17476E-01 + 7.13200E+00 4.20284E-01 1.29160E-01 8.08512E-03 1.33862E-01 + 6.40516E-03 9.94718E-01 2.03017E-03 -2.22812E-02 4.87074E-02 + 2.96878E-02 1.69413E+02 2.69387E+01 + 1.16570E-03 1.76462E-04 0.00000E+00 0.00000E+00 2.03558E-02 + 3.27548E-03 1.16570E-03 1.76462E-04 0.00000E+00 0.00000E+00 + 2.03558E-02 3.27548E-03 1.27011E-03 1.93363E-04 0.00000E+00 + 0.00000E+00 8.35115E-03 1.33219E-03 1.38410E-03 2.11928E-04 + 0.00000E+00 0.00000E+00 -5.73241E-03 -9.61418E-04 1.50630E-03 + 2.31951E-04 0.00000E+00 0.00000E+00 1.36109E-03 2.00833E-04 + 1.64082E-03 2.54126E-04 0.00000E+00 0.00000E+00 -6.77843E-03 + -1.14096E-03 1.78447E-03 2.77952E-04 0.00000E+00 0.00000E+00 + 9.60456E-03 1.57640E-03 1.94362E-03 3.04514E-04 0.00000E+00 + 0.00000E+00 1.57229E-03 2.35872E-04 2.11444E-03 3.33200E-04 + 0.00000E+00 0.00000E+00 1.11100E-02 1.83756E-03 2.30454E-03 + 3.65324E-04 0.00000E+00 0.00000E+00 -7.61174E-03 -1.32615E-03 + 2.50621E-03 3.99619E-04 0.00000E+00 0.00000E+00 7.01569E-03 + 1.16129E-03 2.73679E-03 4.39078E-04 0.00000E+00 0.00000E+00 + 2.23251E-03 3.42727E-04 3.08275E-03 4.98663E-04 0.00000E+00 + 0.00000E+00 8.20923E-03 1.37208E-03 3.36811E-03 5.48125E-04 + 0.00000E+00 0.00000E+00 2.97454E-03 4.64724E-04 3.67540E-03 + 6.01734E-04 0.00000E+00 0.00000E+00 1.58261E-02 2.70679E-03 + 4.01874E-03 6.62024E-04 0.00000E+00 0.00000E+00 -2.55770E-03 + -5.21327E-04 -1.78006E-02 -3.19449E-03 0.00000E+00 0.00000E+00 + -2.67677E-02 -4.80039E-03 -2.85728E-03 -5.35852E-04 0.00000E+00 + 0.00000E+00 -1.95894E-03 -3.86537E-04 2.15743E-03 3.62270E-04 + 0.00000E+00 0.00000E+00 5.16836E-03 8.89946E-04 -2.46828E-04 + -7.12089E-05 0.00000E+00 0.00000E+00 -4.61632E-03 -8.74198E-04 + 2.26038E-03 3.83877E-04 0.00000E+00 0.00000E+00 5.05742E-03 + 8.81695E-04 -5.61891E-03 -1.05600E-03 0.00000E+00 0.00000E+00 + -7.99268E-03 -1.50311E-03 1.86703E-03 3.21339E-04 0.00000E+00 + 0.00000E+00 2.89420E-03 4.99970E-04 -1.04536E-03 -2.18197E-04 + 0.00000E+00 0.00000E+00 -1.44306E-03 -3.03532E-04 1.91013E-03 + 3.33115E-04 0.00000E+00 0.00000E+00 4.01614E-03 7.14821E-04 + 4.50968E-04 5.90269E-05 0.00000E+00 0.00000E+00 -4.23734E-04 + -1.19163E-04 2.13396E-03 3.77380E-04 0.00000E+00 0.00000E+00 + 1.98979E-03 3.37375E-04 2.33348E-03 4.15387E-04 0.00000E+00 + 0.00000E+00 3.31230E-03 5.89308E-04 2.55162E-03 4.57238E-04 + 0.00000E+00 0.00000E+00 4.21179E-03 7.61878E-04 2.79025E-03 + 5.03348E-04 0.00000E+00 0.00000E+00 3.89297E-03 7.00272E-04 + 3.07343E-03 5.58462E-04 0.00000E+00 0.00000E+00 4.22491E-03 + 7.64876E-04 3.39903E-03 6.22292E-04 0.00000E+00 0.00000E+00 + 4.60309E-03 8.39015E-04 3.72240E-03 6.86151E-04 0.00000E+00 + 0.00000E+00 6.54230E-03 1.22197E-03 4.07718E-03 7.56729E-04 + 0.00000E+00 0.00000E+00 5.45614E-03 1.00589E-03 4.46483E-03 + 8.34422E-04 0.00000E+00 0.00000E+00 6.75269E-03 1.26574E-03 + 4.88961E-03 9.20193E-04 0.00000E+00 0.00000E+00 6.38154E-03 + 1.19080E-03 5.35385E-03 1.01464E-03 0.00000E+00 0.00000E+00 + 7.84035E-03 1.48758E-03 5.86215E-03 1.11884E-03 0.00000E+00 + 0.00000E+00 8.47619E-03 1.61793E-03 6.50489E-03 1.25160E-03 + 0.00000E+00 0.00000E+00 8.73814E-03 1.67204E-03 7.18023E-03 + 1.39218E-03 0.00000E+00 0.00000E+00 1.06449E-02 2.06896E-03 + 7.87727E-03 1.53841E-03 0.00000E+00 0.00000E+00 1.03267E-02 + 2.00219E-03 8.63906E-03 1.69947E-03 0.00000E+00 0.00000E+00 + 1.37004E-02 2.71549E-03 9.47741E-03 1.87812E-03 0.00000E+00 + 0.00000E+00 1.21843E-02 2.39240E-03 1.03927E-02 2.07473E-03 + 0.00000E+00 0.00000E+00 1.52687E-02 3.05493E-03 1.15128E-02 + 2.31727E-03 0.00000E+00 0.00000E+00 1.67134E-02 3.36774E-03 + 1.27079E-02 2.57812E-03 0.00000E+00 0.00000E+00 1.82224E-02 + 3.69713E-03 1.39574E-02 2.85308E-03 0.00000E+00 0.00000E+00 + 1.89111E-02 3.84869E-03 1.53254E-02 3.15661E-03 0.00000E+00 + 0.00000E+00 2.22403E-02 4.58736E-03 1.68297E-02 3.49317E-03 + 0.00000E+00 0.00000E+00 2.27084E-02 4.69209E-03 1.84768E-02 + 3.86473E-03 0.00000E+00 0.00000E+00 2.60534E-02 5.44669E-03 + 2.02855E-02 4.27620E-03 0.00000E+00 0.00000E+00 2.77003E-02 + 5.82135E-03 2.22665E-02 4.73071E-03 0.00000E+00 0.00000E+00 + 3.10868E-02 6.59833E-03 2.44381E-02 5.23323E-03 0.00000E+00 + 0.00000E+00 3.48503E-02 7.46922E-03 2.68233E-02 5.78996E-03 + 0.00000E+00 0.00000E+00 3.65287E-02 7.86099E-03 2.94308E-02 + 6.40390E-03 0.00000E+00 0.00000E+00 4.14890E-02 9.02888E-03 + 3.26570E-02 7.17022E-03 0.00000E+00 0.00000E+00 4.47583E-02 + 9.80545E-03 3.60219E-02 7.97657E-03 0.00000E+00 0.00000E+00 + 4.94359E-02 1.09264E-02 3.95751E-02 8.83572E-03 0.00000E+00 + 0.00000E+00 5.43587E-02 1.21167E-02 4.34719E-02 9.78645E-03 + 0.00000E+00 0.00000E+00 5.97387E-02 1.34293E-02 4.77463E-02 + 1.08388E-02 0.00000E+00 0.00000E+00 6.51774E-02 1.47683E-02 + 5.24329E-02 1.20034E-02 0.00000E+00 0.00000E+00 7.10700E-02 + 1.62325E-02 5.75637E-02 1.32901E-02 0.00000E+00 0.00000E+00 + 7.84238E-02 1.80768E-02 6.31919E-02 1.47149E-02 0.00000E+00 + 0.00000E+00 8.49377E-02 1.97258E-02 6.94152E-02 1.63053E-02 + 0.00000E+00 0.00000E+00 9.36538E-02 2.19533E-02 7.61764E-02 + 1.80497E-02 0.00000E+00 0.00000E+00 1.01958E-01 2.40958E-02 + 8.35699E-02 1.99757E-02 0.00000E+00 0.00000E+00 1.11531E-01 + 2.65895E-02 9.16540E-02 2.21021E-02 0.00000E+00 0.00000E+00 + 1.22246E-01 2.94080E-02 1.00492E-01 2.44498E-02 0.00000E+00 + 0.00000E+00 1.33905E-01 3.25049E-02 1.10159E-01 2.70432E-02 + 0.00000E+00 0.00000E+00 1.45503E-01 3.56164E-02 1.20707E-01 + 2.99014E-02 0.00000E+00 0.00000E+00 1.59119E-01 3.93061E-02 + -7.27922E-01 -2.02394E-01 0.00000E+00 0.00000E+00 -9.87100E-01 + -2.74448E-01 4.38266E-02 1.10256E-02 0.00000E+00 0.00000E+00 + 5.71561E-02 1.43301E-02 4.78813E-02 1.21585E-02 0.00000E+00 + 0.00000E+00 6.22455E-02 1.57521E-02 5.22962E-02 1.34050E-02 + 0.00000E+00 0.00000E+00 6.74503E-02 1.72216E-02 5.69786E-02 + 1.47410E-02 0.00000E+00 0.00000E+00 7.34944E-02 1.89461E-02 + -2.23110E-01 -6.60314E-02 0.00000E+00 0.00000E+00 -2.98342E-01 + -8.82846E-02 3.59525E-02 9.48591E-03 0.00000E+00 0.00000E+00 + 4.58239E-02 1.20405E-02 3.92588E-02 1.04602E-02 0.00000E+00 + 0.00000E+00 4.97845E-02 1.32076E-02 4.28617E-02 1.15337E-02 + 0.00000E+00 0.00000E+00 5.40093E-02 1.44664E-02 4.67859E-02 + 1.27160E-02 0.00000E+00 0.00000E+00 5.87169E-02 1.58847E-02 + 5.10599E-02 1.40183E-02 0.00000E+00 0.00000E+00 6.36365E-02 + 1.73837E-02 5.60409E-02 1.55533E-02 0.00000E+00 0.00000E+00 + 6.95267E-02 1.91989E-02 6.20131E-02 1.74151E-02 0.00000E+00 + 0.00000E+00 7.65246E-02 2.13804E-02 6.77671E-02 1.92298E-02 + 0.00000E+00 0.00000E+00 8.31036E-02 2.34554E-02 7.40350E-02 + 2.12301E-02 0.00000E+00 0.00000E+00 9.03287E-02 2.57611E-02 + 8.08625E-02 2.34351E-02 0.00000E+00 0.00000E+00 9.78428E-02 + 2.81879E-02 8.82918E-02 2.58635E-02 0.00000E+00 0.00000E+00 + 1.06209E-01 3.09226E-02 9.69113E-02 2.87156E-02 0.00000E+00 + 0.00000E+00 1.15854E-01 3.41140E-02 1.07262E-01 3.21832E-02 + 0.00000E+00 0.00000E+00 1.27402E-01 3.79825E-02 1.17234E-01 + 3.55659E-02 0.00000E+00 0.00000E+00 1.38301E-01 4.16798E-02 + 1.28083E-01 3.92931E-02 0.00000E+00 0.00000E+00 1.49983E-01 + 4.56930E-02 1.39879E-01 4.33978E-02 0.00000E+00 0.00000E+00 + 1.62533E-01 5.00603E-02 1.53253E-01 4.81125E-02 0.00000E+00 + 0.00000E+00 1.76833E-01 5.51017E-02 1.68292E-01 5.34848E-02 + 0.00000E+00 0.00000E+00 1.92750E-01 6.07875E-02 1.83709E-01 + 5.90659E-02 0.00000E+00 0.00000E+00 2.08664E-01 6.65483E-02 + 2.00428E-01 6.52010E-02 0.00000E+00 0.00000E+00 2.25786E-01 + 7.28313E-02 2.18535E-01 7.19369E-02 0.00000E+00 0.00000E+00 + 2.44182E-01 7.96748E-02 2.38127E-01 7.93274E-02 0.00000E+00 + 0.00000E+00 2.63768E-01 8.70631E-02 2.59295E-01 8.74261E-02 + 0.00000E+00 0.00000E+00 2.84676E-01 9.50618E-02 2.82135E-01 + 9.62900E-02 0.00000E+00 0.00000E+00 3.07026E-01 1.03736E-01 + 3.10298E-01 1.07380E-01 0.00000E+00 0.00000E+00 3.34824E-01 + 1.14682E-01 3.39767E-01 1.19155E-01 0.00000E+00 0.00000E+00 + 3.63234E-01 1.26034E-01 3.69409E-01 1.31179E-01 0.00000E+00 + 0.00000E+00 3.91226E-01 1.37389E-01 4.01232E-01 1.44284E-01 + 0.00000E+00 0.00000E+00 4.20787E-01 1.49562E-01 4.35322E-01 + 1.58541E-01 0.00000E+00 0.00000E+00 4.51929E-01 1.62587E-01 + 4.71753E-01 1.74018E-01 0.00000E+00 0.00000E+00 4.84683E-01 + 1.76501E-01 5.12777E-01 1.91724E-01 0.00000E+00 0.00000E+00 + 5.21545E-01 1.92411E-01 5.55962E-01 2.10667E-01 0.00000E+00 + 0.00000E+00 5.59431E-01 2.09029E-01 6.00455E-01 2.30507E-01 + 0.00000E+00 0.00000E+00 5.97687E-01 2.26088E-01 6.47516E-01 + 2.51845E-01 0.00000E+00 0.00000E+00 6.37243E-01 2.44023E-01 + 6.97107E-01 2.74715E-01 0.00000E+00 0.00000E+00 6.78223E-01 + 2.62922E-01 7.49181E-01 2.99148E-01 0.00000E+00 0.00000E+00 + 7.20345E-01 2.82686E-01 8.03644E-01 3.25156E-01 0.00000E+00 + 0.00000E+00 7.63447E-01 3.03268E-01 8.60368E-01 3.52731E-01 + 0.00000E+00 0.00000E+00 8.07363E-01 3.24618E-01 9.19166E-01 + 3.81841E-01 0.00000E+00 0.00000E+00 8.51825E-01 3.46629E-01 + 9.79855E-01 4.12449E-01 0.00000E+00 0.00000E+00 8.96400E-01 + 3.69110E-01 1.04213E+00 4.44455E-01 0.00000E+00 0.00000E+00 + 9.40990E-01 3.92029E-01 1.10470E+00 4.77240E-01 0.00000E+00 + 0.00000E+00 9.84067E-01 4.14599E-01 1.16861E+00 5.11389E-01 + 0.00000E+00 0.00000E+00 1.02679E+00 4.37431E-01 1.23347E+00 + 5.46750E-01 0.00000E+00 0.00000E+00 1.06868E+00 4.60267E-01 + 1.29842E+00 5.82891E-01 0.00000E+00 0.00000E+00 1.10900E+00 + 4.82701E-01 1.36304E+00 6.19607E-01 0.00000E+00 0.00000E+00 + 1.14723E+00 5.04423E-01 1.42680E+00 6.56612E-01 0.00000E+00 + 0.00000E+00 1.18311E+00 5.25246E-01 1.48921E+00 6.93633E-01 + 0.00000E+00 0.00000E+00 1.21621E+00 5.44883E-01 1.54982E+00 + 7.30396E-01 0.00000E+00 0.00000E+00 1.24612E+00 5.63024E-01 + 1.59324E+00 7.57340E-01 0.00000E+00 0.00000E+00 1.25928E+00 + 5.71192E-01 1.64677E+00 7.91339E-01 0.00000E+00 0.00000E+00 + 1.28063E+00 5.84748E-01 1.69814E+00 8.24755E-01 0.00000E+00 + 0.00000E+00 1.29898E+00 5.96687E-01 1.74613E+00 8.56743E-01 + 0.00000E+00 0.00000E+00 1.31354E+00 6.06392E-01 1.79052E+00 + 8.87081E-01 0.00000E+00 0.00000E+00 1.32418E+00 6.13661E-01 + 1.83101E+00 9.15481E-01 0.00000E+00 0.00000E+00 1.33097E+00 + 6.18423E-01 1.86755E+00 9.41786E-01 0.00000E+00 0.00000E+00 + 1.33396E+00 6.20576E-01 1.90001E+00 9.65799E-01 0.00000E+00 + 0.00000E+00 1.33332E+00 6.20102E-01 1.92841E+00 9.87404E-01 + 0.00000E+00 0.00000E+00 1.32928E+00 6.17029E-01 1.95284E+00 + 1.00653E+00 0.00000E+00 0.00000E+00 1.32209E+00 6.11403E-01 + 1.97207E+00 1.02203E+00 0.00000E+00 0.00000E+00 1.31099E+00 + 6.02452E-01 1.92400E+00 9.82079E-01 0.00000E+00 0.00000E+00 + 1.24787E+00 5.49997E-01 1.93853E+00 9.94542E-01 0.00000E+00 + 0.00000E+00 1.23534E+00 5.39246E-01 1.95059E+00 1.00522E+00 + 0.00000E+00 0.00000E+00 1.22143E+00 5.26934E-01 1.96040E+00 + 1.01421E+00 0.00000E+00 0.00000E+00 1.20650E+00 5.13253E-01 + 1.96827E+00 1.02167E+00 0.00000E+00 0.00000E+00 1.19075E+00 + 4.98325E-01 1.97440E+00 1.02770E+00 0.00000E+00 0.00000E+00 + 1.17451E+00 4.82365E-01 1.97907E+00 1.03245E+00 0.00000E+00 + 0.00000E+00 1.15802E+00 4.65549E-01 1.97686E+00 1.03012E+00 + 0.00000E+00 0.00000E+00 1.13750E+00 4.43795E-01 1.96529E+00 + 1.01734E+00 0.00000E+00 0.00000E+00 1.11153E+00 4.15137E-01 + 1.96807E+00 1.02055E+00 0.00000E+00 0.00000E+00 1.09664E+00 + 3.98011E-01 1.97031E+00 1.02323E+00 0.00000E+00 0.00000E+00 + 1.08226E+00 3.80721E-01 1.97220E+00 1.02562E+00 0.00000E+00 + 0.00000E+00 1.06847E+00 3.63378E-01 1.97384E+00 1.02778E+00 + 0.00000E+00 0.00000E+00 1.05538E+00 3.46104E-01 1.97158E+00 + 1.02464E+00 0.00000E+00 0.00000E+00 1.04059E+00 3.25571E-01 + 1.96332E+00 1.01256E+00 0.00000E+00 0.00000E+00 1.02295E+00 + 2.99771E-01 1.96584E+00 1.01646E+00 0.00000E+00 0.00000E+00 + 1.01310E+00 2.84535E-01 1.96841E+00 1.02068E+00 0.00000E+00 + 0.00000E+00 1.00404E+00 2.69663E-01 1.97110E+00 1.02538E+00 + 0.00000E+00 0.00000E+00 9.95762E-01 2.55193E-01 1.96723E+00 + 1.01815E+00 0.00000E+00 0.00000E+00 9.84311E-01 2.33792E-01 + 1.95941E+00 1.00244E+00 0.00000E+00 0.00000E+00 9.71414E-01 + 2.07891E-01 1.96361E+00 1.01156E+00 0.00000E+00 0.00000E+00 + 9.66397E-01 1.97000E-01 1.96778E+00 1.02139E+00 0.00000E+00 + 0.00000E+00 9.61951E-01 1.86508E-01 1.97185E+00 1.03192E+00 + 0.00000E+00 0.00000E+00 9.58051E-01 1.76419E-01 1.97582E+00 + 1.04329E+00 0.00000E+00 0.00000E+00 9.54669E-01 1.66743E-01 + 1.97962E+00 1.05546E+00 0.00000E+00 0.00000E+00 9.51776E-01 + 1.57481E-01 1.98322E+00 1.06854E+00 0.00000E+00 0.00000E+00 + 9.49340E-01 1.48626E-01 1.98288E+00 1.06712E+00 0.00000E+00 + 0.00000E+00 9.45424E-01 1.32176E-01 1.98410E+00 1.07318E+00 + 0.00000E+00 0.00000E+00 9.42952E-01 1.19876E-01 1.98701E+00 + 1.09092E+00 0.00000E+00 0.00000E+00 9.41916E-01 1.13555E-01 + 1.98937E+00 1.10960E+00 0.00000E+00 0.00000E+00 9.41152E-01 + 1.07521E-01 1.99113E+00 1.12923E+00 0.00000E+00 0.00000E+00 + 9.40637E-01 1.01772E-01 1.99222E+00 1.14988E+00 0.00000E+00 + 0.00000E+00 9.40349E-01 9.62890E-02 1.99234E+00 1.15779E+00 + 0.00000E+00 0.00000E+00 9.40170E-01 8.46495E-02 1.99369E+00 + 1.09565E+00 -8.06911E-04 3.70547E-02 9.40314E-01 7.80604E-02 + 1.99258E+00 1.11448E+00 -8.93760E-04 3.85293E-02 9.40539E-01 + 7.42367E-02 1.99071E+00 1.13397E+00 -1.04049E-03 4.00574E-02 + 9.40889E-01 7.05886E-02 1.98803E+00 1.15413E+00 -1.24939E-03 + 4.16264E-02 9.41352E-01 6.71171E-02 1.98449E+00 1.17492E+00 + -1.52376E-03 4.32379E-02 9.41917E-01 6.37950E-02 1.98003E+00 + 1.19643E+00 -1.86717E-03 4.48938E-02 9.42574E-01 6.06318E-02 + 1.97461E+00 1.21858E+00 -2.28335E-03 4.65959E-02 9.43310E-01 + 5.76180E-02 1.96818E+00 1.24141E+00 -2.77623E-03 4.83461E-02 + 9.44116E-01 5.47534E-02 1.96069E+00 1.26492E+00 -3.34995E-03 + 5.01460E-02 9.44989E-01 5.20158E-02 1.95209E+00 1.28907E+00 + -4.00880E-03 5.19974E-02 9.45915E-01 4.94178E-02 2.01175E+00 + 1.13726E+00 -3.01144E-02 1.18426E-01 9.47794E-01 4.46345E-02 + 2.04524E+00 1.05938E+00 -4.59458E-02 1.55233E-01 9.49157E-01 + 4.14649E-02 2.04123E+00 1.06798E+00 -4.81144E-02 1.59875E-01 + 9.50017E-01 3.96243E-02 2.03703E+00 1.07631E+00 -5.04813E-02 + 1.64568E-01 9.50904E-01 3.78666E-02 2.03272E+00 1.08426E+00 + -5.30479E-02 1.69308E-01 9.51817E-01 3.61790E-02 2.02834E+00 + 1.09184E+00 -5.58159E-02 1.74092E-01 9.52750E-01 3.45669E-02 + 2.02391E+00 1.09903E+00 -5.87864E-02 1.78916E-01 9.53699E-01 + 3.30271E-02 2.01953E+00 1.10575E+00 -6.19588E-02 1.83775E-01 + 9.54665E-01 3.15466E-02 2.19371E+00 8.53287E-01 -1.21757E-01 + 2.70445E-01 9.56454E-01 2.89535E-02 2.21653E+00 8.21912E-01 + -1.31274E-01 2.83534E-01 9.57398E-01 2.76545E-02 2.22303E+00 + 8.13408E-01 -1.35347E-01 2.88864E-01 9.58269E-01 2.65161E-02 + 2.23052E+00 8.04057E-01 -1.39522E-01 2.94073E-01 9.59148E-01 + 2.54194E-02 2.23912E+00 7.93793E-01 -1.43779E-01 2.99151E-01 + 9.60032E-01 2.43661E-02 2.24886E+00 7.82678E-01 -1.48101E-01 + 3.04087E-01 9.60917E-01 2.33526E-02 2.25982E+00 7.70665E-01 + -1.52463E-01 3.08866E-01 9.61806E-01 2.23799E-02 2.27210E+00 + 7.57730E-01 -1.56841E-01 3.13475E-01 9.62695E-01 2.14438E-02 + 2.28575E+00 7.43902E-01 -1.61213E-01 3.17905E-01 9.63588E-01 + 2.05382E-02 2.30085E+00 7.29162E-01 -1.65549E-01 3.22140E-01 + 9.64476E-01 1.96711E-02 2.31744E+00 7.13522E-01 -1.69825E-01 + 3.26169E-01 9.65362E-01 1.88377E-02 2.60222E+00 4.54232E-01 + -2.40197E-01 3.90243E-01 9.67071E-01 1.72802E-02 2.60222E+00 + 4.54232E-01 -2.40197E-01 3.90243E-01 9.67071E-01 1.72802E-02 + MEDIUM=LEAD-3MEV-10KEV-02KEV ,STERNCID=LEAD-3MEV-10KEV-02KEV + ELEM,RHO= 1.1340E+01,NE= 1 + ASYM=PB,Z=82.,A= 207.190,PZ= 1.00000E+00,RHOZ= 2.07190E+02 + 5.61722E-01 5.21000E-01 2.00000E-03 3.51100E+00 3.00200E+00 + 0 200 0 150 0 0 0 0 + 9.99978E-01 -2.54427E-01 5.83850E-02 9.95017E-01 -2.73094E-01 + 9.52000E-01 1.00027E+00 -2.16315E-01 4.17018E-02 1.01715E+00 + -2.79168E-01 9.52000E-01 1.00042E+00 -1.96617E-01 3.01774E-02 + 1.02859E+00 -2.82308E-01 9.52000E-01 9.99976E-01 -2.78543E-01 + 6.39190E-02 9.94545E-01 -2.98980E-01 9.52000E-01 1.00029E+00 + -2.37319E-01 4.57509E-02 1.01881E+00 -3.06275E-01 9.52000E-01 + 1.00046E+00 -2.15944E-01 3.31437E-02 1.03140E+00 -3.10058E-01 + 9.52000E-01 + 1.59966E+01 9.44751E-01 8.53032E-01 2.33006E+00 9.46747E-01 + 8.52630E-01 1.68084E+00 + 2.95540E-01 5.91168E-04 3.38378E+04 5.73000E+00 + 1.21501E+02 2.59409E+01 + 1.38378E+01 2.18057E+00 4.15774E+03 9.01448E+02 -9.28571E+01 + -3.18232E+01 -1.73032E+02 -5.14711E+01 1.00000E+00 0.00000E+00 + -6.80463E+01 -1.49172E+01 3.60754E+01 7.68879E+00 3.38669E-05 + 6.47600E-06 1.38378E+01 2.18057E+00 4.15774E+03 9.01448E+02 + -9.28571E+01 -3.18232E+01 -1.73032E+02 -5.14711E+01 1.00000E+00 + 0.00000E+00 -6.80463E+01 -1.49172E+01 3.60754E+01 7.68879E+00 + 3.38669E-05 6.47600E-06 1.37859E+01 2.16920E+00 3.70100E+03 + 8.01462E+02 -9.05610E+01 -3.13206E+01 -1.65792E+02 -4.98861E+01 + 1.00000E+00 0.00000E+00 -4.80270E+00 -1.07266E+00 3.49096E+00 + 5.55774E-01 3.58038E-05 6.89999E-06 1.37311E+01 2.15710E+00 + 3.28299E+03 7.09179E+02 -8.82330E+01 -3.08067E+01 -1.58765E+02 + -4.83347E+01 1.00000E+00 0.00000E+00 -1.67899E+00 -3.83037E-01 + 1.88220E+00 2.00610E-01 3.78648E-05 7.35502E-06 1.36789E+01 + 2.14548E+00 2.90617E+03 6.25273E+02 -8.59188E+01 -3.02913E+01 + -1.52040E+02 -4.68374E+01 1.00000E+00 0.00000E+00 -8.27818E-01 + -1.93510E-01 1.44437E+00 1.03118E-01 4.00554E-05 7.84278E-06 + 1.36228E+01 2.13287E+00 2.56505E+03 5.48660E+02 -8.35381E+01 + -2.97566E+01 -1.45475E+02 -4.53629E+01 1.00000E+00 0.00000E+00 + -4.75735E-01 -1.14434E-01 1.26371E+00 6.25425E-02 4.23621E-05 + 8.36087E-06 1.35690E+01 2.12069E+00 2.25801E+03 4.79099E+02 + -8.12207E+01 -2.92316E+01 -1.39251E+02 -4.39528E+01 1.00000E+00 + 0.00000E+00 -2.96636E-01 -7.38577E-02 1.17221E+00 4.18120E-02 + 4.48076E-05 8.91492E-06 1.35139E+01 2.10810E+00 1.98094E+03 + 4.15773E+02 -7.88855E+01 -2.86980E+01 -1.33230E+02 -4.25766E+01 + 1.00000E+00 0.00000E+00 -1.92925E-01 -5.01544E-02 1.11957E+00 + 2.97815E-02 4.73932E-05 9.50586E-06 1.34572E+01 2.09502E+00 + 1.73181E+03 3.58329E+02 -7.65393E+01 -2.81569E+01 -1.27408E+02 + -4.12342E+01 1.00000E+00 0.00000E+00 -1.27385E-01 -3.50418E-02 + 1.08661E+00 2.21832E-02 5.01236E-05 1.01354E-05 1.34029E+01 + 2.08239E+00 1.50790E+03 3.06235E+02 -7.42349E+01 -2.76208E+01 + -1.21849E+02 -3.99410E+01 1.00000E+00 0.00000E+00 -8.31078E-02 + -2.47408E-02 1.06464E+00 1.70717E-02 5.30194E-05 1.08091E-05 + 1.33482E+01 2.06955E+00 1.30689E+03 2.59046E+02 -7.19446E+01 + -2.70832E+01 -1.16497E+02 -3.86844E+01 1.00000E+00 0.00000E+00 + -5.16170E-02 -1.73480E-02 1.04930E+00 1.34688E-02 5.60775E-05 + 1.15270E-05 1.32921E+01 2.05626E+00 1.12645E+03 2.16301E+02 + -6.96718E+01 -2.65448E+01 -1.11343E+02 -3.74634E+01 1.00000E+00 + 0.00000E+00 -2.82332E-02 -1.18084E-02 1.03815E+00 1.08296E-02 + 5.93090E-05 1.22926E-05 1.32377E+01 2.04324E+00 9.65164E+02 + 1.77739E+02 -6.74227E+01 -2.60070E+01 -1.06389E+02 -3.62789E+01 + 1.00000E+00 0.00000E+00 -1.02614E-02 -7.51167E-03 1.02984E+00 + 8.84121E-03 6.27297E-05 1.31105E-05 1.31836E+01 2.03019E+00 + 8.20988E+02 1.42948E+02 -6.52144E+01 -2.54741E+01 -1.01644E+02 + -3.51341E+01 1.00000E+00 0.00000E+00 4.00231E-03 -4.06971E-03 + 1.02344E+00 7.29801E-03 6.63457E-05 1.39830E-05 1.31385E+01 + 2.01920E+00 6.92275E+02 1.11597E+02 -6.30148E+01 -2.49383E+01 + -9.70569E+01 -3.40168E+01 1.00000E+00 0.00000E+00 1.56814E-02 + -1.22493E-03 1.01843E+00 6.07814E-03 7.01635E-05 1.49129E-05 + 1.30985E+01 2.00936E+00 5.77772E+02 8.34425E+01 -6.08591E+01 + -2.44083E+01 -9.26632E+01 -3.29364E+01 1.00000E+00 0.00000E+00 + 2.54630E-02 1.18018E-03 1.01446E+00 5.09933E-03 7.42059E-05 + 1.59069E-05 1.30381E+01 1.99438E+00 4.75954E+02 5.81679E+01 + -5.87355E+01 -2.38811E+01 -8.84405E+01 -3.18882E+01 1.00000E+00 + 0.00000E+00 3.37550E-02 3.23853E-03 1.01122E+00 4.29536E-03 + 7.84667E-05 1.69646E-05 1.29761E+01 1.97885E+00 3.85628E+02 + 3.55290E+01 -5.66634E+01 -2.33618E+01 -8.44037E+01 -3.08763E+01 + 1.00000E+00 0.00000E+00 4.09856E-02 5.05075E-03 1.00855E+00 + 3.62892E-03 8.29758E-05 1.80947E-05 1.29222E+01 1.96520E+00 + 3.05912E+02 1.53545E+01 -5.46043E+01 -2.28407E+01 -8.04961E+01 + -2.98876E+01 1.00000E+00 0.00000E+00 4.74257E-02 6.68064E-03 + 1.00635E+00 3.07075E-03 8.77409E-05 1.93007E-05 1.88874E+03 + 4.81374E+02 2.35547E+02 -2.62908E+00 -7.17020E+01 -2.72104E+01 + -7.67519E+01 -2.89307E+01 -7.78539E+01 -2.01529E+01 5.32157E-02 + 8.16039E-03 1.00450E+00 2.59761E-03 9.27696E-05 2.05858E-05 + 1.57928E+03 4.01496E+02 1.73752E+02 -1.85793E+01 -6.72794E+01 + -2.60688E+01 -7.31733E+01 -2.80069E+01 -8.42468E+00 -2.23213E+00 + 5.85313E-02 9.53240E-03 1.00292E+00 2.18942E-03 9.80937E-05 + 2.19601E-05 1.33024E+03 3.36571E+02 1.19641E+02 -3.26866E+01 + -6.33508E+01 -2.50446E+01 -6.97147E+01 -2.71052E+01 -3.10946E+00 + -8.46404E-01 6.34546E-02 1.08160E-02 1.00156E+00 1.83688E-03 + 1.03695E-04 2.34203E-05 1.12852E+03 2.83445E+02 7.23967E+01 + -4.51286E+01 -5.98460E+01 -2.41216E+01 -6.64195E+01 -2.62374E+01 + -1.56079E+00 -4.38552E-01 6.80874E-02 1.20360E-02 1.00040E+00 + 1.52919E-03 1.09634E-04 2.49845E-05 9.62953E+02 2.39395E+02 + 3.13938E+01 -5.60376E+01 -5.66457E+01 -2.32702E+01 -6.32386E+01 + -2.53911E+01 -9.02506E-01 -2.63410E-01 7.24842E-02 1.32058E-02 + 9.99394E-01 1.26170E-03 1.15879E-04 2.66460E-05 8.26362E+02 + 2.02677E+02 -3.97568E+00 -6.55453E+01 -5.37158E+01 -2.24825E+01 + -6.01979E+01 -2.45737E+01 -5.63228E-01 -1.72207E-01 7.66993E-02 + 1.43389E-02 9.98491E-01 1.02049E-03 1.22483E-04 2.84213E-05 + 7.12343E+02 1.71706E+02 -3.43071E+01 -7.37844E+01 -5.09878E+01 + -2.17416E+01 -5.72682E+01 -2.37779E+01 -3.65667E-01 -1.18543E-01 + 8.07349E-02 1.54352E-02 9.97718E-01 8.10207E-04 1.29448E-04 + 3.03130E-05 6.16761E+02 1.45469E+02 -6.02293E+01 -8.09003E+01 + -4.84576E+01 -2.10470E+01 -5.44777E+01 -2.30119E+01 -2.40716E-01 + -8.42439E-02 8.46892E-02 1.65206E-02 9.97025E-01 6.20029E-04 + 1.36809E-04 3.23337E-05 5.35843E+02 1.23019E+02 -8.19678E+01 + -8.69310E+01 -4.60556E+01 -2.03806E+01 -5.17767E+01 -2.22626E+01 + -1.56598E-01 -6.09063E-02 8.85101E-02 1.75807E-02 9.96407E-01 + 4.48397E-04 1.44553E-04 3.44823E-05 4.67143E+02 1.03752E+02 + -1.00280E+02 -9.20669E+01 -4.38071E+01 -1.97500E+01 -4.92086E+01 + -2.15424E+01 -9.72094E-02 -4.42513E-02 9.23130E-02 1.86471E-02 + 9.95869E-01 2.95324E-04 1.52737E-04 3.67775E-05 4.08111E+02 + 8.70169E+01 -1.15235E+02 -9.63062E+01 -4.16582E+01 -1.91408E+01 + -4.67303E+01 -2.08397E+01 -5.36229E-02 -3.18944E-02 9.59694E-02 + 1.96837E-02 9.95355E-01 1.51527E-04 1.61356E-04 3.92208E-05 + 3.57452E+02 7.24960E+01 -1.27424E+02 -9.98005E+01 -3.96226E+01 + -1.85573E+01 -4.43652E+01 -2.01618E+01 -2.05192E-02 -2.24057E-02 + 9.96586E-02 2.07412E-02 9.94922E-01 2.78316E-05 1.70449E-04 + 4.18274E-05 3.13444E+02 5.97407E+01 -1.37103E+02 -1.02606E+02 + -3.76817E+01 -1.79948E+01 -4.20995E+01 -1.95051E+01 5.34559E-03 + -1.49090E-02 1.03288E-01 2.17930E-02 9.94520E-01 -8.96794E-05 + 1.80030E-04 4.46042E-05 2.75311E+02 4.85634E+01 -1.44404E+02 + -1.04746E+02 -3.58130E+01 -1.74470E+01 -3.99153E+01 -1.88649E+01 + 2.59780E-02 -8.86145E-03 1.06879E-01 2.28456E-02 9.94155E-01 + -1.97913E-04 1.90115E-04 4.75604E-05 2.41981E+02 3.86823E+01 + -1.49869E+02 -1.06366E+02 -3.40351E+01 -1.69200E+01 -3.78353E+01 + -1.82483E+01 4.28560E-02 -3.85767E-03 1.10466E-01 2.39090E-02 + 9.93828E-01 -2.93777E-04 2.00756E-04 5.07151E-05 2.12814E+02 + 2.99352E+01 -1.53498E+02 -1.07454E+02 -3.23258E+01 -1.64074E+01 + -3.58381E+01 -1.76494E+01 5.69175E-02 3.59201E-04 1.14026E-01 + 2.49769E-02 9.93518E-01 -3.86549E-04 2.11947E-04 5.40709E-05 + 1.87210E+02 2.21674E+01 -1.55648E+02 -1.08106E+02 -3.06847E+01 + -1.59095E+01 -3.39243E+01 -1.70687E+01 6.88306E-02 3.97365E-03 + 1.17577E-01 2.60541E-02 9.93246E-01 -4.68501E-04 2.23734E-04 + 5.76472E-05 1.64674E+02 1.52490E+01 -1.56432E+02 -1.08347E+02 + -2.91117E+01 -1.54265E+01 -3.20950E+01 -1.65071E+01 7.91150E-02 + 7.13087E-03 1.21122E-01 2.71424E-02 9.92999E-01 -5.44261E-04 + 2.36153E-04 6.14596E-05 1.44814E+02 9.07887E+00 -1.56046E+02 + -1.08227E+02 -2.75964E+01 -1.49558E+01 -3.03391E+01 -1.59616E+01 + 8.80845E-02 9.91741E-03 1.24642E-01 2.82361E-02 9.92764E-01 + -6.18479E-04 2.49195E-04 6.55113E-05 1.27284E+02 3.56699E+00 + -1.54683E+02 -1.07799E+02 -2.61435E+01 -1.44990E+01 -2.86623E+01 + -1.54344E+01 9.60575E-02 1.24244E-02 1.28175E-01 2.93469E-02 + 9.92560E-01 -6.81873E-04 2.62932E-04 6.98309E-05 1.11867E+02 + -1.34007E+00 -1.52393E+02 -1.07070E+02 -2.47437E+01 -1.40534E+01 + -2.70534E+01 -1.49223E+01 1.03169E-01 1.46880E-02 1.31682E-01 + 3.04629E-02 9.92368E-01 -7.43721E-04 2.77364E-04 7.44244E-05 + 9.82362E+01 -5.73236E+00 -1.49399E+02 -1.06105E+02 -2.34011E+01 + -1.36208E+01 -2.55171E+01 -1.44272E+01 1.09631E-01 1.67702E-02 + 1.35189E-01 3.15932E-02 9.92195E-01 -7.99384E-04 2.92551E-04 + 7.93181E-05 8.62015E+01 -9.65935E+00 -1.45802E+02 -1.04932E+02 + -2.21098E+01 -1.31994E+01 -2.40460E+01 -1.39472E+01 1.15533E-01 + 1.86959E-02 1.38680E-01 3.27324E-02 9.92040E-01 -8.50409E-04 + 3.08504E-04 8.45237E-05 7.56377E+01 -1.31500E+01 -1.41620E+02 + -1.03549E+02 -2.08690E+01 -1.27894E+01 -2.26398E+01 -1.34825E+01 + 1.20983E-01 2.04972E-02 1.42164E-01 3.38835E-02 9.91892E-01 + -8.98341E-04 3.25264E-04 9.00619E-05 6.63255E+01 -1.62671E+01 + -1.37020E+02 -1.02010E+02 -1.96752E+01 -1.23899E+01 -2.12924E+01 + -1.30315E+01 1.26046E-01 2.21915E-02 1.45622E-01 3.50411E-02 + 9.91756E-01 -9.43180E-04 3.42863E-04 9.59526E-05 5.81612E+01 + -1.90357E+01 -1.32069E+02 -1.00331E+02 -1.85292E+01 -1.20012E+01 + -2.00054E+01 -1.25951E+01 1.30794E-01 2.38015E-02 1.49074E-01 + 3.62115E-02 9.91644E-01 -9.81835E-04 3.61332E-04 1.02215E-04 + 5.10379E+01 -2.14829E+01 -1.26813E+02 -9.85252E+01 -1.74280E+01 + -1.16229E+01 -1.87743E+01 -1.21722E+01 1.35234E-01 2.53270E-02 + 1.52484E-01 3.73833E-02 9.91533E-01 -1.01894E-03 3.80727E-04 + 1.08879E-04 4.48229E+01 -2.36470E+01 -1.21350E+02 -9.66226E+01 + -1.63718E+01 -1.12551E+01 -1.75989E+01 -1.17628E+01 1.39472E-01 + 2.68030E-02 1.55897E-01 3.85716E-02 9.91446E-01 -1.04987E-03 + 4.01071E-04 1.15963E-04 3.94489E+01 -2.55439E+01 -1.15721E+02 + -9.46362E+01 -1.53572E+01 -1.08970E+01 -1.64748E+01 -1.13661E+01 + 1.43469E-01 2.82133E-02 1.59264E-01 3.97599E-02 9.91354E-01 + -1.08234E-03 4.22386E-04 1.23486E-04 3.48114E+01 -2.72028E+01 + -1.09967E+02 -9.25775E+01 -1.43836E+01 -1.05487E+01 -1.54010E+01 + -1.09819E+01 1.47295E-01 2.95824E-02 1.62605E-01 4.09553E-02 + 9.91286E-01 -1.10553E-03 4.44752E-04 1.31488E-04 3.08452E+01 + -2.86420E+01 -1.04132E+02 -9.04602E+01 -1.34492E+01 -1.02097E+01 + -1.43744E+01 -1.06095E+01 1.50934E-01 3.09025E-02 1.65889E-01 + 4.21468E-02 9.91218E-01 -1.13182E-03 4.68173E-04 1.39985E-04 + 2.75028E+01 -2.98716E+01 -9.82631E+01 -8.83010E+01 -1.25534E+01 + -9.88005E+00 -1.33947E+01 -1.02490E+01 1.54468E-01 3.22028E-02 + 1.69178E-01 4.33570E-02 9.91174E-01 -1.14728E-03 4.92707E-04 + 1.49013E-04 2.46885E+01 -3.09222E+01 -9.23954E+01 -8.61109E+01 + -1.16940E+01 -9.55928E+00 -1.24581E+01 -9.89942E+00 1.57799E-01 + 3.34464E-02 1.72365E-01 4.45463E-02 9.91125E-01 -1.16583E-03 + 5.18381E-04 1.58595E-04 2.23745E+01 -3.17985E+01 -8.65514E+01 + -8.38978E+01 -1.08718E+01 -9.24792E+00 -1.15654E+01 -9.56134E+00 + 1.61032E-01 3.46706E-02 1.75525E-01 4.57433E-02 9.91088E-01 + -1.17975E-03 5.45270E-04 1.68778E-04 2.04809E+01 -3.25263E+01 + -8.07676E+01 -8.16752E+01 -1.00834E+01 -8.94494E+00 -1.07131E+01 + -9.23379E+00 1.64136E-01 3.58635E-02 1.78617E-01 4.69315E-02 + 9.91063E-01 -1.18903E-03 5.73373E-04 1.79578E-04 1.90028E+01 + -3.31030E+01 -7.50479E+01 -7.94440E+01 -9.32785E+00 -8.65022E+00 + -9.89863E+00 -8.91612E+00 1.67142E-01 3.70361E-02 1.81666E-01 + 4.81208E-02 9.91051E-01 -1.19521E-03 6.02772E-04 1.91046E-04 + 1.78783E+01 -3.35483E+01 -6.94121E+01 -7.72117E+01 -8.60502E+00 + -8.36394E+00 -9.12247E+00 -8.60871E+00 1.70030E-01 3.81799E-02 + 1.84637E-01 4.92973E-02 9.91032E-01 -1.20140E-03 6.33484E-04 + 2.03209E-04 1.70629E+01 -3.38760E+01 -6.38959E+01 -7.49933E+01 + -7.91336E+00 -8.08577E+00 -8.38207E+00 -8.31092E+00 1.72808E-01 + 3.92972E-02 1.87534E-01 5.04626E-02 9.91032E-01 -1.20140E-03 + 6.65556E-04 2.16108E-04 1.65368E+01 -3.40910E+01 -5.84897E+01 + -7.27850E+01 -7.25144E+00 -7.81537E+00 -7.67572E+00 -8.02239E+00 + 1.75491E-01 4.03932E-02 1.90359E-01 5.16163E-02 9.91032E-01 + -1.19985E-03 6.99053E-04 2.29792E-04 1.62526E+01 -3.42089E+01 + -5.32268E+01 -7.06006E+01 -6.61876E+00 -7.55279E+00 -7.00276E+00 + -7.74308E+00 1.78078E-01 4.14669E-02 1.93104E-01 5.27559E-02 + 9.91057E-01 -1.19212E-03 7.34007E-04 2.44299E-04 1.61997E+01 + -3.42313E+01 -4.80885E+01 -6.84331E+01 -6.01348E+00 -7.29748E+00 + -6.36067E+00 -7.47224E+00 1.80552E-01 4.25104E-02 1.95748E-01 + 5.38710E-02 9.91069E-01 -1.18594E-03 7.70453E-04 2.59672E-04 + 1.63389E+01 -3.41715E+01 -4.31051E+01 -6.62964E+01 -5.43529E+00 + -7.04957E+00 -5.74923E+00 -7.21008E+00 1.82948E-01 4.35376E-02 + 1.98317E-01 5.49725E-02 9.91100E-01 -1.17511E-03 8.08443E-04 + 2.75961E-04 1.66528E+01 -3.40347E+01 -3.82748E+01 -6.41906E+01 + -4.88331E+00 -6.80891E+00 -5.16677E+00 -6.95616E+00 1.85222E-01 + 4.45289E-02 2.00772E-01 5.60427E-02 9.91131E-01 -1.15965E-03 + 8.48038E-04 2.93223E-04 1.71171E+01 -3.38289E+01 -3.35962E+01 + -6.21161E+01 -4.35602E+00 -6.57510E+00 -4.61202E+00 -6.71015E+00 + 1.87440E-01 4.55125E-02 2.03156E-01 5.71001E-02 9.91168E-01 + -1.14109E-03 8.89267E-04 3.11506E-04 1.77148E+01 -3.35592E+01 + -2.90746E+01 -6.00762E+01 -3.85233E+00 -6.34787E+00 -4.08335E+00 + -6.47164E+00 1.89531E-01 4.64561E-02 2.05412E-01 5.81177E-02 + 9.91218E-01 -1.12099E-03 9.32160E-04 3.30856E-04 1.84226E+01 + -3.32342E+01 -2.47162E+01 -5.80751E+01 -3.37244E+00 -6.12754E+00 + -3.58070E+00 -6.24087E+00 1.91544E-01 4.73799E-02 2.07573E-01 + 5.91100E-02 9.91273E-01 -1.09625E-03 9.76800E-04 3.51351E-04 + 1.92249E+01 -3.28593E+01 -2.05224E+01 -5.61149E+01 -2.91437E+00 + -5.91345E+00 -3.10214E+00 -6.01718E+00 1.93434E-01 4.82634E-02 + 2.09600E-01 6.00576E-02 9.91323E-01 -1.07151E-03 1.02319E-03 + 3.73034E-04 2.01131E+01 -3.24364E+01 -1.64826E+01 -5.41920E+01 + -2.47787E+00 -5.70569E+00 -2.64709E+00 -5.80061E+00 1.95245E-01 + 4.91256E-02 2.11528E-01 6.09751E-02 9.91385E-01 -1.04059E-03 + 1.07141E-03 3.95985E-04 2.10675E+01 -3.19737E+01 -1.26035E+01 + -5.23112E+01 -2.06137E+00 -5.50375E+00 -2.21371E+00 -5.59046E+00 + 1.96962E-01 4.99582E-02 2.13340E-01 6.18537E-02 9.91459E-01 + -1.00657E-03 1.12146E-03 4.20251E-04 2.20760E+01 -3.14753E+01 + -8.88749E+00 -5.04752E+01 -1.66509E+00 -5.30793E+00 -1.80225E+00 + -5.38717E+00 1.98585E-01 5.07601E-02 2.15038E-01 6.26925E-02 + 9.91533E-01 -9.69466E-04 1.17342E-03 4.45928E-04 2.31309E+01 + -3.09441E+01 -5.32268E+00 -4.86795E+01 -1.28772E+00 -5.11786E+00 + -1.41102E+00 -5.19010E+00 2.00108E-01 5.15268E-02 2.16608E-01 + 6.34832E-02 9.91607E-01 -9.33903E-04 1.22730E-03 4.73067E-04 + 2.42164E+01 -3.03864E+01 -1.91660E+00 -4.69301E+01 -9.28367E-01 + -4.93327E+00 -1.03925E+00 -4.99915E+00 2.01520E-01 5.22525E-02 + 2.18046E-01 6.42221E-02 9.91691E-01 -8.90615E-04 1.28317E-03 + 5.01767E-04 2.53297E+01 -2.98030E+01 1.34185E+00 -4.52224E+01 + -5.86417E-01 -4.75407E+00 -6.86116E-01 -4.81409E+00 2.02853E-01 + 5.29511E-02 2.19375E-01 6.49186E-02 9.91777E-01 -8.44224E-04 + 1.34103E-03 5.32087E-04 2.64598E+01 -2.91987E+01 4.45186E+00 + -4.35591E+01 -2.61270E-01 -4.58016E+00 -3.50851E-01 -4.63476E+00 + 2.04078E-01 5.36061E-02 2.20570E-01 6.55580E-02 9.91867E-01 + -7.96292E-04 1.40095E-03 5.64131E-04 2.75970E+01 -2.85777E+01 + 7.41581E+00 -4.19402E+01 4.75981E-02 -4.41147E+00 -3.28536E-02 + -4.46110E+00 2.05213E-01 5.42261E-02 2.21649E-01 6.61465E-02 + 9.91960E-01 -7.46813E-04 1.46294E-03 5.97989E-04 2.87362E+01 + -2.79420E+01 1.02388E+01 -4.03656E+01 3.41252E-01 -4.24766E+00 + 2.69038E-01 -4.29269E+00 2.06239E-01 5.47984E-02 2.22590E-01 + 6.66718E-02 9.92056E-01 -6.92696E-04 1.52704E-03 6.33745E-04 + 2.98683E+01 -2.72966E+01 1.29210E+01 -3.88363E+01 6.20136E-01 + -4.08868E+00 5.55345E-01 -4.12946E+00 2.07091E-01 5.52841E-02 + 2.23332E-01 6.70947E-02 9.92151E-01 -6.38579E-04 1.59327E-03 + 6.71503E-04 3.10114E+01 -2.66304E+01 1.54879E+01 -3.73401E+01 + 8.84870E-01 -3.93435E+00 8.26659E-01 -3.97130E+00 2.08108E-01 + 5.58771E-02 2.24206E-01 6.76044E-02 9.92254E-01 -5.78278E-04 + 1.66169E-03 7.11386E-04 3.21261E+01 -2.59656E+01 1.79123E+01 + -3.58943E+01 1.13600E+00 -3.78460E+00 1.08380E+00 -3.81796E+00 + 2.08822E-01 5.63026E-02 2.24756E-01 6.79320E-02 9.92356E-01 + -5.17976E-04 1.73227E-03 7.53478E-04 3.32152E+01 -2.53008E+01 + 2.02022E+01 -3.44967E+01 1.37404E+00 -3.63932E+00 1.32718E+00 + -3.66942E+00 2.09366E-01 5.66349E-02 2.25114E-01 6.81508E-02 + 9.92458E-01 -4.56128E-04 1.80508E-03 7.97916E-04 3.42974E+01 + -2.46244E+01 2.23864E+01 -3.31315E+01 1.59976E+00 -3.49822E+00 + 1.55773E+00 -3.52532E+00 2.09975E-01 5.70154E-02 2.25507E-01 + 6.83964E-02 9.92563E-01 -3.89642E-04 1.88011E-03 8.44814E-04 + 3.53532E+01 -2.39481E+01 2.44498E+01 -3.18098E+01 1.81345E+00 + -3.36135E+00 1.77573E+00 -3.38568E+00 2.10449E-01 5.73191E-02 + 2.25746E-01 6.85495E-02 9.92665E-01 -3.24701E-04 1.95739E-03 + 8.94312E-04 3.63804E+01 -2.32736E+01 2.63996E+01 -3.05293E+01 + 2.01583E+00 -3.22844E+00 1.98194E+00 -3.25025E+00 2.10832E-01 + 5.75705E-02 2.25871E-01 6.86319E-02 9.92776E-01 -2.52032E-04 + 2.03692E-03 9.46541E-04 3.73817E+01 -2.25989E+01 2.82428E+01 + -2.92874E+01 2.20720E+00 -3.09951E+00 2.17675E+00 -3.11901E+00 + 2.11124E-01 5.77675E-02 2.25889E-01 6.86438E-02 9.92881E-01 + -1.80905E-04 2.11871E-03 1.00165E-03 3.83495E+01 -2.19296E+01 + 2.99787E+01 -2.80867E+01 2.38822E+00 -2.97429E+00 2.36086E+00 + -2.99166E+00 2.11320E-01 5.79028E-02 2.25792E-01 6.85769E-02 + 9.92983E-01 -1.09780E-04 2.20276E-03 1.05979E-03 3.92895E+01 + -2.12614E+01 3.16196E+01 -2.69206E+01 2.55912E+00 -2.85283E+00 + 2.53450E+00 -2.86823E+00 2.11476E-01 5.80137E-02 2.25640E-01 + 6.84683E-02 9.93092E-01 -3.24701E-05 2.28909E-03 1.12114E-03 + 4.01922E+01 -2.06018E+01 3.31598E+01 -2.57950E+01 2.72049E+00 + -2.73490E+00 2.69830E+00 -2.74854E+00 2.11515E-01 5.80419E-02 + 2.25357E-01 6.82619E-02 9.93194E-01 4.17473E-05 2.37766E-03 + 1.18586E-03 4.10622E+01 -1.99477E+01 3.46093E+01 -2.47051E+01 + 2.87276E+00 -2.62043E+00 2.85272E+00 -2.63244E+00 2.11482E-01 + 5.80176E-02 2.24991E-01 6.79871E-02 9.93296E-01 1.17511E-04 + 2.46846E-03 1.25414E-03 4.18974E+01 -1.93009E+01 3.59699E+01 + -2.36516E+01 3.01619E+00 -2.50935E+00 2.99810E+00 -2.51987E+00 + 2.11388E-01 5.79441E-02 2.24556E-01 6.76500E-02 9.93398E-01 + 1.97913E-04 2.56149E-03 1.32617E-03 4.26970E+01 -1.86628E+01 + 3.72469E+01 -2.26324E+01 3.15134E+00 -2.40149E+00 3.13496E+00 + -2.41063E+00 2.11211E-01 5.78034E-02 2.24029E-01 6.72294E-02 + 9.93494E-01 2.73677E-04 2.65671E-03 1.40217E-03 4.34606E+01 + -1.80341E+01 3.84417E+01 -2.16485E+01 3.27849E+00 -2.29677E+00 + 3.26360E+00 -2.30470E+00 2.10984E-01 5.76160E-02 2.23449E-01 + 6.67513E-02 9.93596E-01 3.57172E-04 2.75408E-03 1.48235E-03 + 4.41883E+01 -1.74151E+01 3.95591E+01 -2.06981E+01 3.39795E+00 + -2.19518E+00 3.38442E+00 -2.20196E+00 2.10680E-01 5.73577E-02 + 2.22788E-01 6.61900E-02 9.93685E-01 4.34481E-04 2.85357E-03 + 1.56697E-03 4.48799E+01 -1.68068E+01 4.06026E+01 -1.97806E+01 + 3.51011E+00 -2.09656E+00 3.49772E+00 -2.10232E+00 2.10326E-01 + 5.70465E-02 2.22078E-01 6.55650E-02 9.93775E-01 5.13341E-04 + 2.95511E-03 1.65626E-03 4.55353E+01 -1.62105E+01 4.15746E+01 + -1.88958E+01 3.61536E+00 -2.00077E+00 3.60403E+00 -2.00557E+00 + 2.09912E-01 5.66693E-02 2.21307E-01 6.48630E-02 9.93865E-01 + 5.95286E-04 3.05864E-03 1.75049E-03 4.61559E+01 -1.56249E+01 + 4.24805E+01 -1.80415E+01 3.71390E+00 -1.90781E+00 3.70348E+00 + -1.91176E+00 2.09458E-01 5.62418E-02 2.20500E-01 6.41026E-02 + 9.93951E-01 6.74142E-04 3.16411E-03 1.84997E-03 4.67416E+01 + -1.50517E+01 4.33212E+01 -1.72185E+01 3.80611E+00 -1.81755E+00 + 3.79647E+00 -1.82073E+00 2.08950E-01 5.57443E-02 2.19646E-01 + 6.32658E-02 9.94030E-01 7.54544E-04 3.27137E-03 1.95496E-03 + 4.72910E+01 -1.44927E+01 4.40998E+01 -1.64264E+01 3.89219E+00 + -1.72998E+00 3.88324E+00 -1.73245E+00 2.08394E-01 5.51788E-02 + 2.18747E-01 6.23520E-02 9.94109E-01 8.33400E-04 3.38038E-03 + 2.06586E-03 4.78077E+01 -1.39457E+01 4.48207E+01 -1.56632E+01 + 3.97249E+00 -1.64497E+00 3.96418E+00 -1.64677E+00 2.07810E-01 + 5.45599E-02 2.17831E-01 6.13813E-02 9.94182E-01 9.10710E-04 + 3.49097E-03 2.18294E-03 4.82914E+01 -1.34118E+01 4.54865E+01 + -1.49283E+01 4.04735E+00 -1.56234E+00 4.03952E+00 -1.56360E+00 + 2.07194E-01 5.38800E-02 2.16891E-01 6.03446E-02 9.94251E-01 + 9.88020E-04 3.60302E-03 2.30662E-03 4.87421E+01 -1.28923E+01 + 4.60994E+01 -1.42216E+01 4.11681E+00 -1.48226E+00 4.10947E+00 + -1.48296E+00 2.06548E-01 5.31351E-02 2.15933E-01 5.92395E-02 + 9.94316E-01 1.06378E-03 3.71638E-03 2.43731E-03 4.91601E+01 + -1.23879E+01 4.66610E+01 -1.35441E+01 4.18130E+00 -1.40444E+00 + 4.17434E+00 -1.40470E+00 2.05871E-01 5.23187E-02 2.14956E-01 + 5.80609E-02 9.94381E-01 1.13955E-03 3.83084E-03 2.57541E-03 + 4.95484E+01 -1.18967E+01 4.71762E+01 -1.28922E+01 4.24096E+00 + -1.32896E+00 4.23433E+00 -1.32879E+00 2.05181E-01 5.14451E-02 + 2.13979E-01 5.68247E-02 9.94437E-01 1.21222E-03 3.94622E-03 + 2.72141E-03 4.99063E+01 -1.14204E+01 4.76465E+01 -1.22666E+01 + 4.29603E+00 -1.25570E+00 4.28970E+00 -1.25513E+00 2.04478E-01 + 5.05104E-02 2.13003E-01 5.55267E-02 9.94491E-01 1.28334E-03 + 4.06224E-03 2.87574E-03 5.02360E+01 -1.09580E+01 4.80744E+01 + -1.16666E+01 4.34676E+00 -1.18458E+00 4.34067E+00 -1.18366E+00 + 2.03772E-01 4.95215E-02 2.12040E-01 5.41772E-02 9.94542E-01 + 1.35448E-03 4.17869E-03 3.03902E-03 5.05367E+01 -1.05125E+01 + 4.84613E+01 -1.10931E+01 4.39335E+00 -1.11551E+00 4.38745E+00 + -1.11433E+00 2.03048E-01 4.84474E-02 2.11073E-01 5.27423E-02 + 9.94585E-01 1.41941E-03 4.29521E-03 3.21172E-03 5.08110E+01 + -1.00813E+01 4.88106E+01 -1.05440E+01 4.43596E+00 -1.04853E+00 + 4.43025E+00 -1.04704E+00 2.02323E-01 4.73082E-02 2.10121E-01 + 5.12468E-02 9.94628E-01 1.48590E-03 4.41145E-03 3.39447E-03 + 5.10595E+01 -9.66543E+00 4.91242E+01 -1.00190E+01 4.47479E+00 + -9.83549E-01 4.46922E+00 -9.81829E-01 2.01616E-01 4.61247E-02 + 2.09203E-01 4.97107E-02 9.94666E-01 1.54773E-03 4.52710E-03 + 3.58801E-03 5.12837E+01 -9.26418E+00 4.94046E+01 -9.51751E+00 + 4.51007E+00 -9.20438E-01 4.50462E+00 -9.18496E-01 2.00913E-01 + 4.48671E-02 2.08306E-01 4.81060E-02 9.94698E-01 1.60806E-03 + 4.64163E-03 3.79290E-03 5.14838E+01 -8.87983E+00 4.96530E+01 + -9.04024E+00 4.54186E+00 -8.59345E-01 4.53652E+00 -8.57205E-01 + 2.00223E-01 4.35420E-02 2.07438E-01 4.64380E-02 9.94730E-01 + 1.66836E-03 4.75460E-03 4.00995E-03 5.16612E+01 -8.51170E+00 + 4.98716E+01 -8.58681E+00 4.57049E+00 -7.99936E-01 4.56522E+00 + -7.97647E-01 1.99544E-01 4.21321E-02 2.06597E-01 4.46926E-02 + 9.94755E-01 1.71936E-03 4.86545E-03 4.23997E-03 5.18182E+01 + -8.15754E+00 5.00632E+01 -8.15447E+00 4.59601E+00 -7.42390E-01 + 4.59080E+00 -7.39940E-01 1.98901E-01 4.06819E-02 2.05809E-01 + 4.29146E-02 9.94778E-01 1.77350E-03 4.97354E-03 4.48377E-03 + 5.19548E+01 -7.82020E+00 5.02290E+01 -7.74489E+00 4.61860E+00 + -6.86594E-01 4.61343E+00 -6.84033E-01 1.98279E-01 3.91468E-02 + 2.05057E-01 4.10579E-02 9.94797E-01 1.82141E-03 5.07820E-03 + 4.74232E-03 5.20726E+01 -7.49858E+00 5.03710E+01 -7.35727E+00 + 4.63842E+00 -6.32473E-01 4.63330E+00 -6.29789E-01 1.97696E-01 + 3.75539E-02 2.04359E-01 3.91523E-02 9.94814E-01 1.86627E-03 + 5.17864E-03 5.01654E-03 5.21726E+01 -7.19341E+00 5.04908E+01 + -6.99164E+00 4.65561E+00 -5.80006E-01 4.65052E+00 -5.77248E-01 + 1.97148E-01 3.58804E-02 2.03711E-01 3.71746E-02 9.94829E-01 + 1.91263E-03 5.27401E-03 5.30757E-03 5.22563E+01 -6.90375E+00 + 5.05906E+01 -6.64646E+00 4.67031E+00 -5.29174E-01 4.66525E+00 + -5.26316E-01 1.96645E-01 3.41433E-02 2.03123E-01 3.51410E-02 + 9.94839E-01 1.94667E-03 5.36334E-03 5.61648E-03 5.23247E+01 + -6.63075E+00 5.06715E+01 -6.32349E+00 4.68266E+00 -4.79900E-01 + 4.67761E+00 -4.76993E-01 1.96188E-01 3.23192E-02 2.02595E-01 + 3.30328E-02 9.94849E-01 1.98685E-03 5.44553E-03 5.94445E-03 + 5.23789E+01 -6.37562E+00 5.07354E+01 -6.02224E+00 4.69278E+00 + -4.32146E-01 4.68775E+00 -4.29190E-01 1.95782E-01 3.04042E-02 + 2.02130E-01 3.08410E-02 9.94856E-01 2.01780E-03 5.51941E-03 + 6.29286E-03 5.24212E+01 -6.13151E+00 5.07850E+01 -5.73658E+00 + 4.70080E+00 -3.85941E-01 4.69577E+00 -3.82947E-01 1.95449E-01 + 2.84831E-02 2.01751E-01 2.86551E-02 9.94861E-01 2.04715E-03 + 5.58365E-03 6.66307E-03 5.24516E+01 -5.90656E+00 5.08204E+01 + -5.47412E+00 4.70685E+00 -3.41167E-01 4.70182E+00 -3.38137E-01 + 1.95172E-01 2.64351E-02 2.01440E-01 2.63516E-02 9.94865E-01 + 2.07501E-03 5.63676E-03 7.05660E-03 5.24714E+01 -5.70053E+00 + 5.08436E+01 -5.23365E+00 4.71102E+00 -2.97812E-01 4.70600E+00 + -2.94781E-01 1.94965E-01 2.42789E-02 2.01208E-01 2.39484E-02 + 9.94867E-01 2.09511E-03 5.67710E-03 7.47497E-03 5.24826E+01 + -5.50789E+00 5.08565E+01 -5.01093E+00 4.71345E+00 -2.55913E-01 + 4.70843E+00 -2.52845E-01 1.94837E-01 2.20714E-02 2.01067E-01 + 2.15079E-02 9.94868E-01 2.11364E-03 5.70285E-03 7.91998E-03 + 5.24860E+01 -5.33201E+00 5.08604E+01 -4.80734E+00 4.71423E+00 + -2.15319E-01 4.70921E+00 -2.12263E-01 1.94792E-01 1.97748E-02 + 2.01018E-01 1.89863E-02 9.94868E-01 2.13222E-03 5.71200E-03 + 8.39345E-03 5.24803E+01 -5.03478E+00 5.08542E+01 -4.48558E+00 + 4.71348E+00 -1.76006E-01 4.70845E+00 -1.72938E-01 1.94798E-01 + 1.95110E-02 2.01026E-01 1.85573E-02 9.94868E-01 2.15848E-03 + 5.70230E-03 8.89736E-03 5.24710E+01 -4.87444E+00 5.08437E+01 + -4.30345E+00 4.71129E+00 -1.38082E-01 4.70626E+00 -1.35027E-01 + 1.94925E-01 1.73113E-02 2.01165E-01 1.61598E-02 9.94867E-01 + 2.16778E-03 5.67130E-03 9.43384E-03 5.24580E+01 -4.73920E+00 + 5.08289E+01 -4.14913E+00 4.70775E+00 -1.01343E-01 4.70273E+00 + -9.83252E-02 1.95159E-01 1.48809E-02 2.01417E-01 1.35380E-02 + 9.94866E-01 2.17394E-03 5.61627E-03 1.00052E-02 5.24421E+01 + -4.62120E+00 5.08107E+01 -4.01430E+00 4.70297E+00 -6.59303E-02 + 4.69795E+00 -6.29121E-02 1.95502E-01 1.23380E-02 2.01785E-01 + 1.08126E-02 9.94866E-01 2.18015E-03 5.53420E-03 1.06136E-02 + 5.24243E+01 -4.51902E+00 5.07904E+01 -3.89778E+00 4.69703E+00 + -3.16783E-02 4.69201E+00 -2.86849E-02 1.95961E-01 9.69266E-03 + 2.02274E-01 7.99650E-03 9.94866E-01 2.17703E-03 5.42173E-03 + 1.12621E-02 5.24065E+01 -4.43467E+00 5.07699E+01 -3.80085E+00 + 4.69023E+00 3.95829E-04 4.68522E+00 3.33981E-03 1.96545E-01 + 6.93628E-03 2.02892E-01 5.07658E-03 9.94866E-01 2.17706E-03 + 5.27523E-03 1.19532E-02 5.23887E+01 -4.36366E+00 5.07494E+01 + -3.71887E+00 4.68380E+00 2.60873E-02 4.67879E+00 2.90189E-02 + 1.97255E-01 4.10088E-03 2.03641E-01 2.08735E-03 9.94868E-01 + 2.17085E-03 5.09065E-03 1.26900E-02 5.23731E+01 -4.30979E+00 + 5.07314E+01 -3.65657E+00 4.67687E+00 5.00476E-02 4.67188E+00 + 5.29421E-02 1.98110E-01 1.14342E-03 2.04537E-01 -1.01199E-03 + 9.94870E-01 2.16160E-03 4.86352E-03 1.34757E-02 5.23624E+01 + -4.27733E+00 5.07185E+01 -3.61718E+00 4.66939E+00 7.28820E-02 + 4.66441E+00 7.57270E-02 1.99147E-01 -2.02012E-03 2.05618E-01 + -4.31121E-03 9.94874E-01 2.15077E-03 4.58895E-03 1.43138E-02 + 5.23563E+01 -4.26055E+00 5.07100E+01 -3.59418E+00 4.66143E+00 + 9.46267E-02 4.65646E+00 9.74469E-02 2.00345E-01 -5.29260E-03 + 2.06864E-01 -7.71393E-03 9.94879E-01 2.13683E-03 4.26155E-03 + 1.52079E-02 5.21422E+01 -3.73148E+00 5.04944E+01 -3.06124E+00 + 4.65296E+00 1.15545E-01 4.64802E+00 1.18303E-01 1.98327E-01 + -3.05762E-04 2.04824E-01 -2.67262E-03 9.94867E-01 2.16469E-03 + 3.87540E-03 1.61620E-02 5.18023E+01 -2.96472E+00 5.01532E+01 + -2.29172E+00 4.64412E+00 1.35496E-01 4.63919E+00 1.38229E-01 + 1.94356E-01 8.65131E-03 2.00793E-01 6.42054E-03 9.94847E-01 + 2.21105E-03 3.42390E-03 1.71805E-02 5.17826E+01 -2.92389E+00 + 5.01326E+01 -2.24890E+00 4.63510E+00 1.54212E-01 4.63020E+00 + 1.56872E-01 1.95511E-01 6.25441E-03 2.01994E-01 3.92930E-03 + 9.94856E-01 2.19098E-03 2.90001E-03 1.82679E-02 5.17706E+01 + -2.90070E+00 5.01202E+01 -2.22512E+00 4.62590E+00 1.71887E-01 + 4.62101E+00 1.74534E-01 1.96843E-01 3.69423E-03 2.03370E-01 + 1.28334E-03 9.94870E-01 2.16776E-03 2.29580E-03 1.94290E-02 + 5.17620E+01 -2.88540E+00 5.01121E+01 -2.21070E+00 4.61652E+00 + 1.88662E-01 4.61169E+00 1.91222E-01 1.98279E-01 1.12487E-03 + 2.04849E-01 -1.36221E-03 9.94880E-01 2.14768E-03 1.60273E-03 + 2.06690E-02 5.17621E+01 -2.88556E+00 5.01132E+01 -2.21246E+00 + 4.60708E+00 2.04468E-01 4.60225E+00 2.07004E-01 1.99888E-01 + -1.56822E-03 2.06501E-01 -4.12600E-03 9.94896E-01 2.12137E-03 + 8.11096E-04 2.19939E-02 5.17713E+01 -2.89994E+00 5.01237E+01 + -2.22891E+00 4.59762E+00 2.19339E-01 4.59284E+00 2.21800E-01 + 2.01678E-01 -4.38156E-03 2.08332E-01 -7.00586E-03 9.94915E-01 + 2.09202E-03 -8.91243E-05 2.34093E-02 5.17908E+01 -2.92900E+00 + 5.01456E+01 -2.26134E+00 4.58818E+00 2.33338E-01 4.58343E+00 + 2.35763E-01 2.03658E-01 -7.31656E-03 2.10351E-01 -9.99881E-03 + 9.94933E-01 2.06571E-03 -1.10966E-03 2.49222E-02 5.08811E+01 + -1.65328E+00 4.92385E+01 -9.89473E-01 4.57849E+00 2.46923E-01 + 4.57377E+00 2.49298E-01 1.90651E-01 1.09224E-02 1.97115E-01 + 8.56135E-03 9.94885E-01 2.13067E-03 -2.26275E-03 2.65392E-02 + 5.08188E+01 -1.57045E+00 4.91798E+01 -9.11297E-01 4.56923E+00 + 2.59243E-01 4.56456E+00 2.61556E-01 1.91294E-01 1.00670E-02 + 1.97776E-01 7.68233E-03 9.94907E-01 2.10439E-03 -3.56203E-03 + 2.82677E-02 5.08132E+01 -1.56321E+00 4.91782E+01 -9.09208E-01 + 4.56016E+00 2.70719E-01 4.55551E+00 2.73007E-01 1.92843E-01 + 8.10628E-03 1.99354E-01 5.68495E-03 9.94930E-01 2.07344E-03 + -5.02257E-03 3.01160E-02 5.08103E+01 -1.55976E+00 4.91805E+01 + -9.11990E-01 4.55132E+00 2.81397E-01 4.54673E+00 2.83599E-01 + 1.94446E-01 6.17246E-03 2.00981E-01 3.72172E-03 9.94959E-01 + 2.03945E-03 -6.66077E-03 3.20926E-02 5.08241E+01 -1.57578E+00 + 4.91997E+01 -9.34244E-01 4.54271E+00 2.91314E-01 4.53816E+00 + 2.93479E-01 1.96300E-01 4.03478E-03 2.02859E-01 1.55624E-03 + 9.94987E-01 2.00541E-03 -8.49432E-03 3.42067E-02 5.07017E+01 + -1.44062E+00 4.90836E+01 -8.06007E-01 4.53434E+00 3.00546E-01 + 4.52985E+00 3.02648E-01 1.95940E-01 4.43220E-03 2.02484E-01 + 1.97141E-03 9.95009E-01 1.98224E-03 -1.05430E-02 3.64683E-02 + 4.99704E+01 -6.66271E-01 4.83593E+01 -3.90876E-02 4.52612E+00 + 3.09250E-01 4.52170E+00 3.11291E-01 1.85687E-01 1.52883E-02 + 1.92059E-01 1.30092E-02 9.94998E-01 1.99458E-03 -1.28280E-02 + 3.88878E-02 4.99614E+01 -6.57175E-01 4.83575E+01 -3.73069E-02 + 4.51855E+00 3.16960E-01 4.51414E+00 3.18964E-01 1.87103E-01 + 1.38478E-02 1.93490E-01 1.15540E-02 9.95032E-01 1.95904E-03 + -1.53731E-02 4.14770E-02 4.99680E+01 -6.63599E-01 4.83729E+01 + -5.22488E-02 4.51132E+00 3.24031E-01 4.50698E+00 3.25986E-01 + 1.88762E-01 1.22238E-02 1.95157E-01 9.92150E-03 9.95071E-01 + 1.92191E-03 -1.82035E-02 4.42478E-02 4.99701E+01 -6.65586E-01 + 4.83837E+01 -6.24420E-02 4.50450E+00 3.30480E-01 4.50018E+00 + 3.32397E-01 1.90315E-01 1.07589E-02 1.96715E-01 8.45157E-03 + 9.95108E-01 1.88483E-03 -2.13472E-02 4.72135E-02 4.99701E+01 + -6.65586E-01 4.83837E+01 -6.24420E-02 4.50450E+00 3.30480E-01 + 4.50018E+00 3.32397E-01 1.90315E-01 1.07589E-02 1.96715E-01 + 8.45157E-03 9.95108E-01 1.88483E-03 -2.13472E-02 4.72135E-02 + 8.80040E-02 1.69413E+02 2.69387E+01 + 1.89531E-03 2.84905E-04 0.00000E+00 0.00000E+00 2.47502E-02 + 3.98259E-03 1.89531E-03 2.84905E-04 0.00000E+00 0.00000E+00 + 2.47502E-02 3.98259E-03 2.04671E-03 3.09414E-04 0.00000E+00 + 0.00000E+00 9.83641E-03 1.56837E-03 2.21071E-03 3.36124E-04 + 0.00000E+00 0.00000E+00 -7.15298E-03 -1.19847E-03 2.38359E-03 + 3.64450E-04 0.00000E+00 0.00000E+00 1.36779E-03 1.97635E-04 + 2.57321E-03 3.95707E-04 0.00000E+00 0.00000E+00 -8.19494E-03 + -1.37878E-03 -1.79019E-02 -3.00039E-03 0.00000E+00 0.00000E+00 + -7.78431E-03 -1.31067E-03 -2.97044E-03 -5.08446E-04 0.00000E+00 + 0.00000E+00 -3.00131E-03 -5.12424E-04 8.90692E-04 1.39965E-04 + 0.00000E+00 0.00000E+00 3.27247E-03 5.41151E-04 9.66234E-04 + 1.52731E-04 0.00000E+00 0.00000E+00 -2.29681E-03 -3.99982E-04 + 1.04751E-03 1.66552E-04 0.00000E+00 0.00000E+00 2.03658E-03 + 3.36924E-04 1.15634E-03 1.85176E-04 0.00000E+00 0.00000E+00 + 6.30504E-04 9.62982E-05 -5.14798E-04 -1.02640E-04 0.00000E+00 + 0.00000E+00 6.24062E-04 9.51888E-05 1.21757E-03 1.97642E-04 + 0.00000E+00 0.00000E+00 7.14700E-04 1.10900E-04 1.32472E-03 + 2.16335E-04 0.00000E+00 0.00000E+00 3.96740E-03 6.78360E-04 + 1.44204E-03 2.36936E-04 0.00000E+00 0.00000E+00 -7.03520E-04 + -1.41832E-04 5.87458E-04 8.58907E-05 0.00000E+00 0.00000E+00 + 5.82213E-06 -1.64578E-05 1.58852E-03 2.63995E-04 0.00000E+00 + 0.00000E+00 2.64171E-03 4.52505E-04 9.21383E-04 1.44512E-04 + 0.00000E+00 0.00000E+00 2.01255E-03 3.39825E-04 1.81792E-03 + 3.06154E-04 0.00000E+00 0.00000E+00 -6.54385E-04 -1.41014E-04 + 1.99138E-03 3.37639E-04 0.00000E+00 0.00000E+00 3.05241E-03 + 5.31811E-04 2.16796E-03 3.69908E-04 0.00000E+00 0.00000E+00 + 2.31416E-03 3.96901E-04 2.35999E-03 4.05239E-04 0.00000E+00 + 0.00000E+00 2.48964E-03 4.29188E-04 2.56885E-03 4.43932E-04 + 0.00000E+00 0.00000E+00 2.67660E-03 4.63824E-04 2.79593E-03 + 4.86291E-04 0.00000E+00 0.00000E+00 4.03499E-03 7.17215E-04 + 3.05051E-03 5.34111E-04 0.00000E+00 0.00000E+00 1.95202E-03 + 3.25951E-04 3.33689E-03 5.88283E-04 0.00000E+00 0.00000E+00 + 2.06376E-03 3.47089E-04 3.63377E-03 6.44837E-04 0.00000E+00 + 0.00000E+00 3.50340E-03 6.21334E-04 3.95691E-03 7.06832E-04 + 0.00000E+00 0.00000E+00 4.46145E-03 8.05138E-04 4.30904E-03 + 7.74874E-04 0.00000E+00 0.00000E+00 4.07814E-03 7.31072E-04 + 4.74438E-03 8.59602E-04 0.00000E+00 0.00000E+00 4.42279E-03 + 7.98149E-04 5.25496E-03 9.59696E-04 0.00000E+00 0.00000E+00 + 4.82563E-03 8.77123E-04 5.73555E-03 1.05460E-03 0.00000E+00 + 0.00000E+00 6.88905E-03 1.28460E-03 6.26127E-03 1.15919E-03 + 0.00000E+00 0.00000E+00 5.67621E-03 1.04332E-03 6.83355E-03 + 1.27388E-03 0.00000E+00 0.00000E+00 7.03101E-03 1.31485E-03 + 7.45881E-03 1.40013E-03 0.00000E+00 0.00000E+00 6.58992E-03 + 1.22579E-03 8.13953E-03 1.53862E-03 0.00000E+00 0.00000E+00 + 8.10258E-03 1.53353E-03 8.88263E-03 1.69095E-03 0.00000E+00 + 0.00000E+00 8.72663E-03 1.66145E-03 9.76937E-03 1.87412E-03 + 0.00000E+00 0.00000E+00 8.89203E-03 1.69562E-03 1.07108E-02 + 2.07009E-03 0.00000E+00 0.00000E+00 1.08026E-02 2.09331E-03 + 1.17009E-02 2.27779E-03 0.00000E+00 0.00000E+00 1.03822E-02 + 2.00513E-03 1.27783E-02 2.50558E-03 0.00000E+00 0.00000E+00 + 1.38225E-02 2.73251E-03 1.39593E-02 2.75725E-03 0.00000E+00 + 0.00000E+00 1.21354E-02 2.37297E-03 1.52427E-02 3.03292E-03 + 0.00000E+00 0.00000E+00 1.52325E-02 3.03824E-03 1.65839E-02 + 3.32333E-03 0.00000E+00 0.00000E+00 1.63696E-02 3.28445E-03 + 1.80652E-02 3.64668E-03 0.00000E+00 0.00000E+00 1.76011E-02 + 3.55326E-03 1.97152E-02 4.00979E-03 0.00000E+00 0.00000E+00 + 1.80878E-02 3.66035E-03 2.15102E-02 4.40803E-03 0.00000E+00 + 0.00000E+00 2.12315E-02 4.35789E-03 2.34715E-02 4.84683E-03 + 0.00000E+00 0.00000E+00 2.14442E-02 4.40546E-03 2.56049E-02 + 5.32810E-03 0.00000E+00 0.00000E+00 2.45208E-02 5.09952E-03 + 2.79329E-02 5.85771E-03 0.00000E+00 0.00000E+00 2.58564E-02 + 5.40336E-03 -1.57516E-01 -3.66906E-02 0.00000E+00 0.00000E+00 + -1.51352E-01 -3.52543E-02 1.43979E-02 3.09114E-03 0.00000E+00 + 0.00000E+00 1.39461E-02 2.99650E-03 1.58583E-02 3.43201E-03 + 0.00000E+00 0.00000E+00 1.46888E-02 3.16985E-03 1.74638E-02 + 3.81003E-03 0.00000E+00 0.00000E+00 1.67260E-02 3.64951E-03 + -3.37306E-02 -8.35001E-03 0.00000E+00 0.00000E+00 -3.25943E-02 + -8.06536E-03 -5.38610E-03 -1.55755E-03 0.00000E+00 0.00000E+00 + -5.40403E-03 -1.54950E-03 1.30079E-02 2.88994E-03 0.00000E+00 + 0.00000E+00 1.21268E-02 2.68928E-03 1.42100E-02 3.18325E-03 + 0.00000E+00 0.00000E+00 1.32555E-02 2.96466E-03 1.55224E-02 + 3.50636E-03 0.00000E+00 0.00000E+00 1.43800E-02 3.24153E-03 + 1.69541E-02 3.86211E-03 0.00000E+00 0.00000E+00 1.55917E-02 + 3.54261E-03 1.85161E-02 4.25385E-03 0.00000E+00 0.00000E+00 + 1.71226E-02 3.92657E-03 2.02201E-02 4.68522E-03 0.00000E+00 + 0.00000E+00 1.84369E-02 4.25928E-03 2.22785E-02 5.21126E-03 + 0.00000E+00 0.00000E+00 2.04016E-02 4.76136E-03 2.43523E-02 + 5.74630E-03 0.00000E+00 0.00000E+00 2.21185E-02 5.20431E-03 + 2.66094E-02 6.33427E-03 0.00000E+00 0.00000E+00 2.40993E-02 + 5.72032E-03 2.90727E-02 6.98219E-03 0.00000E+00 0.00000E+00 + 2.63175E-02 6.30379E-03 3.17596E-02 7.69594E-03 0.00000E+00 + 0.00000E+00 2.87247E-02 6.94322E-03 3.46919E-02 8.48259E-03 + 0.00000E+00 0.00000E+00 3.10956E-02 7.57928E-03 3.78884E-02 + 9.34877E-03 0.00000E+00 0.00000E+00 3.38963E-02 8.33819E-03 + 4.13752E-02 1.03032E-02 0.00000E+00 0.00000E+00 3.67535E-02 + 9.12029E-03 4.51754E-02 1.13541E-02 0.00000E+00 0.00000E+00 + 4.00167E-02 1.00227E-02 4.93168E-02 1.25112E-02 0.00000E+00 + 0.00000E+00 4.35466E-02 1.10090E-02 5.38729E-02 1.37976E-02 + 0.00000E+00 0.00000E+00 4.71956E-02 1.20392E-02 5.96713E-02 + 1.54521E-02 0.00000E+00 0.00000E+00 5.23084E-02 1.34981E-02 + 6.52144E-02 1.70506E-02 0.00000E+00 0.00000E+00 5.67529E-02 + 1.47798E-02 7.12564E-02 1.88119E-02 0.00000E+00 0.00000E+00 + 6.17186E-02 1.62273E-02 7.78440E-02 2.07532E-02 0.00000E+00 + 0.00000E+00 6.70828E-02 1.78080E-02 8.50219E-02 2.28918E-02 + 0.00000E+00 0.00000E+00 7.28050E-02 1.95130E-02 9.28403E-02 + 2.52474E-02 0.00000E+00 0.00000E+00 7.91793E-02 2.14335E-02 + 1.01356E-01 2.78421E-02 0.00000E+00 0.00000E+00 8.58434E-02 + 2.34639E-02 1.11292E-01 3.09042E-02 0.00000E+00 0.00000E+00 + 9.38297E-02 2.59251E-02 1.23223E-01 3.46234E-02 0.00000E+00 + 0.00000E+00 1.03333E-01 2.88877E-02 1.34692E-01 3.82405E-02 + 0.00000E+00 0.00000E+00 1.12246E-01 3.16989E-02 1.47179E-01 + 4.22257E-02 0.00000E+00 0.00000E+00 1.22028E-01 3.48204E-02 + 1.60779E-01 4.66176E-02 0.00000E+00 0.00000E+00 1.32201E-01 + 3.81059E-02 1.75563E-01 5.14504E-02 0.00000E+00 0.00000E+00 + 1.43514E-01 4.18039E-02 1.91204E-01 5.66258E-02 0.00000E+00 + 0.00000E+00 1.55269E-01 4.56933E-02 2.07414E-01 6.20560E-02 + 0.00000E+00 0.00000E+00 1.67182E-01 4.96844E-02 2.26031E-01 + 6.83711E-02 0.00000E+00 0.00000E+00 1.80944E-01 5.43525E-02 + 2.46207E-01 7.53029E-02 0.00000E+00 0.00000E+00 1.95627E-01 + 5.93969E-02 2.68055E-01 8.29054E-02 0.00000E+00 0.00000E+00 + 2.11330E-01 6.48613E-02 2.93060E-01 9.17208E-02 0.00000E+00 + 0.00000E+00 2.29438E-01 7.12452E-02 3.21345E-01 1.01825E-01 + 0.00000E+00 0.00000E+00 2.49732E-01 7.84944E-02 3.49705E-01 + 1.12091E-01 0.00000E+00 0.00000E+00 2.69497E-01 8.56498E-02 + 3.80307E-01 1.23321E-01 0.00000E+00 0.00000E+00 2.90654E-01 + 9.34129E-02 4.13290E-01 1.35591E-01 0.00000E+00 0.00000E+00 + 3.13270E-01 1.01826E-01 4.48800E-01 1.48986E-01 0.00000E+00 + 0.00000E+00 3.37207E-01 1.10856E-01 4.86959E-01 1.63585E-01 + 0.00000E+00 0.00000E+00 3.62608E-01 1.20574E-01 5.27889E-01 + 1.79469E-01 0.00000E+00 0.00000E+00 3.89590E-01 1.31045E-01 + 5.64982E-01 1.94075E-01 0.00000E+00 0.00000E+00 4.12743E-01 + 1.40162E-01 6.06287E-01 2.10581E-01 0.00000E+00 0.00000E+00 + 4.38324E-01 1.50385E-01 -4.26952E+00 -1.76715E+00 0.00000E+00 + 0.00000E+00 -3.31990E+00 -1.37403E+00 1.56681E-01 5.56575E-02 + 0.00000E+00 0.00000E+00 1.10976E-01 3.88798E-02 1.69244E-01 + 6.09114E-02 0.00000E+00 0.00000E+00 1.18682E-01 4.21028E-02 + 1.82742E-01 6.66457E-02 0.00000E+00 0.00000E+00 1.26847E-01 + 4.55711E-02 2.01262E-01 7.46390E-02 0.00000E+00 0.00000E+00 + 1.38519E-01 5.06088E-02 2.20276E-01 8.29796E-02 0.00000E+00 + 0.00000E+00 1.50155E-01 5.57129E-02 2.38287E-01 9.10108E-02 + 0.00000E+00 0.00000E+00 1.60742E-01 6.04341E-02 2.57636E-01 + 9.97837E-02 0.00000E+00 0.00000E+00 1.71904E-01 6.54948E-02 + 2.78404E-01 1.09362E-01 0.00000E+00 0.00000E+00 1.83735E-01 + 7.09512E-02 3.00665E-01 1.19807E-01 0.00000E+00 0.00000E+00 + 1.96212E-01 7.68054E-02 3.24510E-01 1.31193E-01 0.00000E+00 + 0.00000E+00 2.09369E-01 8.30878E-02 3.50012E-01 1.43590E-01 + 0.00000E+00 0.00000E+00 2.23229E-01 8.98260E-02 3.77255E-01 + 1.57078E-01 0.00000E+00 0.00000E+00 2.37809E-01 9.70439E-02 + 4.06323E-01 1.71738E-01 0.00000E+00 0.00000E+00 2.53070E-01 + 1.04741E-01 4.37289E-01 1.87654E-01 0.00000E+00 0.00000E+00 + 2.69092E-01 1.12976E-01 4.76213E-01 2.08048E-01 0.00000E+00 + 0.00000E+00 2.89816E-01 1.23834E-01 5.15099E-01 2.28827E-01 + 0.00000E+00 0.00000E+00 3.09774E-01 1.34499E-01 5.53851E-01 + 2.49954E-01 0.00000E+00 0.00000E+00 3.28887E-01 1.44919E-01 + 5.94905E-01 2.72798E-01 0.00000E+00 0.00000E+00 3.48773E-01 + 1.55984E-01 6.38317E-01 2.97463E-01 0.00000E+00 0.00000E+00 + 3.69372E-01 1.67687E-01 6.84117E-01 3.24045E-01 0.00000E+00 + 0.00000E+00 3.90695E-01 1.80064E-01 7.32314E-01 3.52635E-01 + 0.00000E+00 0.00000E+00 4.12684E-01 1.93108E-01 7.82918E-01 + 3.83329E-01 0.00000E+00 0.00000E+00 4.35257E-01 2.06799E-01 + 8.26601E-01 4.10435E-01 0.00000E+00 0.00000E+00 4.52717E-01 + 2.17633E-01 8.79827E-01 4.44241E-01 0.00000E+00 0.00000E+00 + 4.75189E-01 2.31906E-01 9.35713E-01 4.80594E-01 0.00000E+00 + 0.00000E+00 4.98308E-01 2.46944E-01 9.93655E-01 5.19217E-01 + 0.00000E+00 0.00000E+00 5.21702E-01 2.62539E-01 1.05352E+00 + 5.60133E-01 0.00000E+00 0.00000E+00 5.45223E-01 2.78615E-01 + 1.11516E+00 6.03360E-01 0.00000E+00 0.00000E+00 5.68797E-01 + 2.95147E-01 1.17839E+00 6.48887E-01 0.00000E+00 0.00000E+00 + 5.92265E-01 3.12045E-01 1.24297E+00 6.96664E-01 0.00000E+00 + 0.00000E+00 6.15503E-01 3.29236E-01 1.30868E+00 7.46651E-01 + 0.00000E+00 0.00000E+00 6.38386E-01 3.46643E-01 1.37523E+00 + 7.98748E-01 0.00000E+00 0.00000E+00 6.60751E-01 3.64151E-01 + 1.44165E+00 8.52292E-01 0.00000E+00 0.00000E+00 6.82097E-01 + 3.81359E-01 1.47546E+00 8.80391E-01 0.00000E+00 0.00000E+00 + 6.85292E-01 3.84016E-01 1.53883E+00 9.34734E-01 0.00000E+00 + 0.00000E+00 7.03738E-01 3.99834E-01 1.60177E+00 9.90490E-01 + 0.00000E+00 0.00000E+00 7.21195E-01 4.15297E-01 1.66394E+00 + 1.04742E+00 0.00000E+00 0.00000E+00 7.37548E-01 4.30274E-01 + 1.72503E+00 1.10535E+00 0.00000E+00 0.00000E+00 7.52679E-01 + 4.44620E-01 1.78471E+00 1.16399E+00 0.00000E+00 0.00000E+00 + 7.66521E-01 4.58221E-01 1.84264E+00 1.22308E+00 0.00000E+00 + 0.00000E+00 7.78990E-01 4.70939E-01 1.88412E+00 1.26705E+00 + 0.00000E+00 0.00000E+00 7.83118E-01 4.75314E-01 1.89789E+00 + 1.28224E+00 0.00000E+00 0.00000E+00 7.74098E-01 4.65361E-01 + 1.94550E+00 1.33702E+00 0.00000E+00 0.00000E+00 7.81311E-01 + 4.73661E-01 1.99075E+00 1.39140E+00 0.00000E+00 0.00000E+00 + 7.87281E-01 4.80835E-01 2.03349E+00 1.44517E+00 0.00000E+00 + 0.00000E+00 7.92023E-01 4.86801E-01 2.07361E+00 1.49811E+00 + 0.00000E+00 0.00000E+00 7.95596E-01 4.91516E-01 2.10090E+00 + 1.53598E+00 0.00000E+00 0.00000E+00 7.93611E-01 4.88762E-01 + 2.10714E+00 1.54511E+00 0.00000E+00 0.00000E+00 7.82920E-01 + 4.73122E-01 2.13776E+00 1.59248E+00 0.00000E+00 0.00000E+00 + 7.83319E-01 4.73738E-01 2.16592E+00 1.63869E+00 0.00000E+00 + 0.00000E+00 7.82981E-01 4.73182E-01 2.19166E+00 1.68369E+00 + 0.00000E+00 0.00000E+00 7.81989E-01 4.71450E-01 2.20187E+00 + 1.70277E+00 0.00000E+00 0.00000E+00 7.75142E-01 4.58654E-01 + 2.19957E+00 1.69814E+00 0.00000E+00 0.00000E+00 7.64030E-01 + 4.36335E-01 2.21800E+00 1.73816E+00 0.00000E+00 0.00000E+00 + 7.61957E-01 4.31838E-01 2.23455E+00 1.77721E+00 0.00000E+00 + 0.00000E+00 7.59691E-01 4.26489E-01 2.24928E+00 1.81532E+00 + 0.00000E+00 0.00000E+00 7.57317E-01 4.20347E-01 2.26230E+00 + 1.85259E+00 0.00000E+00 0.00000E+00 7.54907E-01 4.13449E-01 + 2.27367E+00 1.88897E+00 0.00000E+00 0.00000E+00 7.52537E-01 + 4.05863E-01 2.28348E+00 1.92461E+00 0.00000E+00 0.00000E+00 + 7.50274E-01 3.97640E-01 2.27982E+00 1.90926E+00 0.00000E+00 + 0.00000E+00 7.43955E-01 3.71093E-01 2.28004E+00 1.91037E+00 + 0.00000E+00 0.00000E+00 7.39892E-01 3.50878E-01 2.28577E+00 + 1.94533E+00 0.00000E+00 0.00000E+00 7.38521E-01 3.42512E-01 + 2.29020E+00 1.98025E+00 0.00000E+00 0.00000E+00 7.37424E-01 + 3.33850E-01 2.29333E+00 2.01525E+00 0.00000E+00 0.00000E+00 + 7.36626E-01 3.24946E-01 2.29518E+00 2.05042E+00 0.00000E+00 + 0.00000E+00 7.36148E-01 3.15837E-01 2.29490E+00 2.03249E+00 + 0.00000E+00 0.00000E+00 7.35746E-01 2.89634E-01 2.29837E+00 + 1.87315E+00 -1.43318E-03 6.58142E-02 7.35828E-01 2.85885E-01 + 2.29727E+00 1.89180E+00 -1.65762E-03 6.96249E-02 7.36312E-01 + 2.77663E-01 2.29553E+00 1.90991E+00 -2.03126E-03 7.35161E-02 + 7.37106E-01 2.69390E-01 2.29318E+00 1.92756E+00 -2.55645E-03 + 7.74607E-02 7.38211E-01 2.61092E-01 2.29025E+00 1.94478E+00 + -3.23680E-03 8.14566E-02 7.39624E-01 2.52792E-01 2.28676E+00 + 1.96161E+00 -4.07582E-03 8.55024E-02 7.41341E-01 2.44515E-01 + 2.28273E+00 1.97809E+00 -5.07702E-03 8.95972E-02 7.43351E-01 + 2.36292E-01 2.27819E+00 1.99422E+00 -6.24347E-03 9.37391E-02 + 7.45648E-01 2.28136E-01 2.27315E+00 2.01005E+00 -7.57845E-03 + 9.79272E-02 7.48218E-01 2.20072E-01 2.26763E+00 2.02554E+00 + -9.08484E-03 1.02160E-01 7.51049E-01 2.12117E-01 2.39736E+00 + 1.69543E+00 -4.65120E-02 1.97397E-01 7.53268E-01 2.06473E-01 + 2.47845E+00 1.50690E+00 -6.94747E-02 2.50785E-01 7.56000E-01 + 2.00121E-01 2.48811E+00 1.48624E+00 -7.31190E-02 2.58585E-01 + 7.59414E-01 1.92815E-01 2.49918E+00 1.46428E+00 -7.69550E-02 + 2.66190E-01 7.63040E-01 1.85624E-01 2.51175E+00 1.44107E+00 + -8.09609E-02 2.73589E-01 7.66868E-01 1.78554E-01 2.52588E+00 + 1.41663E+00 -8.51136E-02 2.80766E-01 7.70880E-01 1.71621E-01 + 2.54168E+00 1.39099E+00 -8.93898E-02 2.87711E-01 7.75061E-01 + 1.64829E-01 2.55918E+00 1.36418E+00 -9.37634E-02 2.94410E-01 + 7.79401E-01 1.58183E-01 2.84822E+00 9.45253E-01 -1.54397E-01 + 3.82290E-01 7.86468E-01 1.47940E-01 2.90447E+00 8.67885E-01 + -1.63839E-01 3.95276E-01 7.90988E-01 1.41723E-01 2.93644E+00 + 8.26061E-01 -1.67518E-01 4.00090E-01 7.95355E-01 1.36008E-01 + 2.97039E+00 7.83690E-01 -1.70970E-01 4.04399E-01 7.99829E-01 + 1.30426E-01 3.00629E+00 7.40864E-01 -1.74159E-01 4.08202E-01 + 8.04389E-01 1.24987E-01 3.04412E+00 6.97669E-01 -1.77047E-01 + 4.11500E-01 8.09032E-01 1.19684E-01 3.08381E+00 6.54183E-01 + -1.79591E-01 4.14288E-01 8.13740E-01 1.14526E-01 3.12530E+00 + 6.10496E-01 -1.81757E-01 4.16568E-01 8.18498E-01 1.09515E-01 + 3.16853E+00 5.66693E-01 -1.83509E-01 4.18343E-01 8.23301E-01 + 1.04651E-01 3.21344E+00 5.22839E-01 -1.84811E-01 4.19614E-01 + 8.28130E-01 9.99338E-02 3.25991E+00 4.79049E-01 -1.85637E-01 + 4.20393E-01 8.32973E-01 9.53689E-02 3.60592E+00 1.64010E-01 + -2.29716E-01 4.60526E-01 8.44963E-01 8.44520E-02 3.60592E+00 + 1.64010E-01 -2.29716E-01 4.60526E-01 8.44963E-01 8.44520E-02 + MEDIUM=POLY-3MEV-10KEV-02KEV ,STERNCID=POLY-3MEV-10KEV-02KEV + COMP,RHO= 1.0320E+00,NE= 2 + ASYM=C ,Z= 6.,A= 12.011,PZ= 1.00000E+00,RHOZ= 1.20112E+01 + ASYM=H ,Z= 1.,A= 1.008,PZ= 1.10000E+00,RHOZ= 1.10877E+00 + 4.25384E+01 5.21000E-01 2.00000E-03 2.65110E+01 2.60000E+01 + 0 200 0 149 0 0 0 0 + 9.99982E-01 -2.05911E-01 4.72518E-02 9.95968E-01 -2.21019E-01 + 9.52000E-01 1.00021E+00 -1.74328E-01 3.36073E-02 1.01382E+00 + -2.24981E-01 9.52000E-01 1.00033E+00 -1.58108E-01 2.42669E-02 + 1.02299E+00 -2.27015E-01 9.52000E-01 9.99982E-01 -2.06006E-01 + 4.72737E-02 9.95966E-01 -2.21121E-01 9.52000E-01 1.00022E+00 + -1.74410E-01 3.36231E-02 1.01383E+00 -2.25087E-01 9.52000E-01 + 1.00033E+00 -1.58183E-01 2.42784E-02 1.02300E+00 -2.27123E-01 + 9.52000E-01 + 3.94415E+01 9.40761E-01 8.53834E-01 2.27246E+00 9.40769E-01 + 8.53832E-01 2.26767E+00 + 8.12209E-02 6.31712E-05 3.16660E+05 4.81728E+00 + 8.81170E+01 1.86867E+01 + 9.38397E+00 1.46695E+00 3.82964E+04 8.31005E+03 -2.51186E+03 + -7.61200E+02 -3.25918E+03 -9.44569E+02 1.00000E+00 0.00000E+00 + -1.06651E+01 -2.34276E+00 7.55058E+01 1.63659E+01 2.61243E-05 + 5.07911E-06 9.38397E+00 1.46695E+00 3.82964E+04 8.31005E+03 + -2.51186E+03 -7.61200E+02 -3.25918E+03 -9.44569E+02 1.00000E+00 + 0.00000E+00 -1.06651E+01 -2.34276E+00 7.55058E+01 1.63659E+01 + 2.61243E-05 5.07911E-06 9.32387E+00 1.45375E+00 3.26076E+04 + 7.06111E+03 -2.37516E+03 -7.31189E+02 -3.06014E+03 -9.00871E+02 + 1.00000E+00 0.00000E+00 -2.23560E-01 -5.04150E-02 2.57807E+00 + 3.55270E-01 2.83937E-05 5.57735E-06 9.25986E+00 1.43953E+00 + 2.75303E+04 5.93319E+03 -2.24180E+03 -7.01564E+02 -2.86796E+03 + -8.58178E+02 1.00000E+00 0.00000E+00 -7.01266E-02 -1.63296E-02 + 1.50738E+00 1.17416E-01 3.09162E-05 6.13774E-06 9.19702E+00 + 1.42541E+00 2.31251E+04 4.94279E+03 -2.11441E+03 -6.72923E+02 + -2.68637E+03 -8.17353E+02 1.00000E+00 0.00000E+00 -3.22109E-02 + -7.80524E-03 1.24359E+00 5.81066E-02 3.36575E-05 6.75402E-06 + 9.14213E+00 1.41292E+00 1.93092E+04 4.07443E+03 -1.99366E+03 + -6.45446E+02 -2.51594E+03 -7.78571E+02 1.00000E+00 0.00000E+00 + -1.71319E-02 -4.37382E-03 1.13938E+00 3.43946E-02 3.66360E-05 + 7.43182E-06 9.06359E+00 1.39482E+00 1.60133E+04 3.31518E+03 + -1.87882E+03 -6.18991E+02 -2.35548E+03 -7.41605E+02 1.00000E+00 + 0.00000E+00 -9.60843E-03 -2.64067E-03 1.08788E+00 2.25325E-02 + 3.98792E-05 8.17896E-06 9.00858E+00 1.38199E+00 1.31687E+04 + 2.65170E+03 -1.76950E+03 -5.93491E+02 -2.20422E+03 -7.06325E+02 + 1.00000E+00 0.00000E+00 -5.26546E-03 -1.62770E-03 1.05876E+00 + 1.57404E-02 4.33961E-05 8.99925E-06 8.94576E+00 1.36715E+00 + 1.07228E+04 2.07398E+03 -1.66549E+03 -5.68926E+02 -2.06175E+03 + -6.72677E+02 1.00000E+00 0.00000E+00 -2.50962E-03 -9.76800E-04 + 1.04075E+00 1.14845E-02 4.72183E-05 9.90203E-06 8.88426E+00 + 1.35244E+00 8.62510E+03 1.57219E+03 -1.56695E+03 -5.45353E+02 + -1.92799E+03 -6.40676E+02 1.00000E+00 0.00000E+00 -6.20742E-04 + -5.24952E-04 1.02885E+00 8.63986E-03 5.13709E-05 1.08954E-05 + 8.82191E+00 1.33733E+00 6.83039E+03 1.13730E+03 -1.47313E+03 + -5.22620E+02 -1.80183E+03 -6.10109E+02 1.00000E+00 0.00000E+00 + 7.56001E-04 -1.91345E-04 1.02059E+00 6.63610E-03 5.58742E-05 + 1.19866E-05 8.75816E+00 1.32169E+00 5.30295E+03 7.62313E+02 + -1.38425E+03 -5.00799E+02 -1.68340E+03 -5.81031E+02 1.00000E+00 + 0.00000E+00 1.81058E-03 6.75533E-05 1.01462E+00 5.17144E-03 + 6.07667E-05 1.31877E-05 8.70017E+00 1.30726E+00 4.00598E+03 + 4.39671E+02 -1.29977E+03 -4.79782E+02 -1.57182E+03 -5.53274E+02 + 1.00000E+00 0.00000E+00 2.65960E-03 2.78762E-04 1.01017E+00 + 4.06431E-03 6.60748E-05 1.45082E-05 8.63862E+00 1.29174E+00 + 2.91053E+03 1.63481E+02 -1.21969E+03 -4.59595E+02 -1.46700E+03 + -5.26848E+02 1.00000E+00 0.00000E+00 3.36639E-03 4.56962E-04 + 1.00675E+00 3.20222E-03 7.18246E-05 1.59578E-05 1.70899E+04 + 4.36679E+03 1.99015E+03 -7.17449E+01 -1.31904E+03 -4.84984E+02 + -1.36834E+03 -5.01632E+02 -7.09914E+01 -1.83990E+01 3.97721E-03 + 6.13070E-04 1.00408E+00 2.52056E-03 7.80634E-05 1.75523E-05 + 1.33589E+04 3.40004E+03 1.22206E+03 -2.70770E+02 -1.21737E+03 + -4.58640E+02 -1.27574E+03 -4.77639E+02 -4.54847E-01 -1.21847E-01 + 4.51955E-03 7.53602E-04 1.00195E+00 1.96700E-03 8.48286E-05 + 1.93053E-05 1.05844E+04 2.67100E+03 5.84999E+02 -4.38161E+02 + -1.12684E+03 -4.34854E+02 -1.18869E+03 -4.54765E+02 -1.43154E-01 + -3.99468E-02 5.01443E-03 8.83633E-04 1.00021E+00 1.51033E-03 + 9.21521E-05 2.12296E-05 8.48211E+03 2.11073E+03 6.16442E+01 + -5.77641E+02 -1.04502E+03 -4.13046E+02 -1.10684E+03 -4.32951E+02 + -6.54483E-02 -1.92377E-02 5.47496E-03 1.00637E-03 9.98779E-01 + 1.12941E-03 1.00083E-04 2.33432E-05 6.86200E+03 1.67271E+03 + -3.63624E+02 -6.92617E+02 -9.70285E+02 -3.92842E+02 -1.02999E+03 + -4.12173E+02 -3.45884E-02 -1.08943E-02 5.91101E-03 1.12426E-03 + 9.97576E-01 8.03060E-04 1.08670E-04 2.56649E-05 5.59649E+03 + 1.32554E+03 -7.04839E+02 -7.86224E+02 -9.01480E+02 -3.73966E+02 + -9.57826E+02 -3.92377E+02 -1.92679E-02 -6.69142E-03 6.33011E-03 + 1.23924E-03 9.96565E-01 5.26834E-04 1.17962E-04 2.82140E-05 + 4.59258E+03 1.04603E+03 -9.74081E+02 -8.61185E+02 -8.37747E+02 + -3.56221E+02 -8.90091E+02 -3.73518E+02 -1.05387E-02 -4.26105E-03 + 6.73834E-03 1.35289E-03 9.95692E-01 2.82909E-04 1.28010E-04 + 3.10116E-05 3.78702E+03 8.18355E+02 -1.18137E+03 -9.19770E+02 + -7.78386E+02 -3.39444E+02 -8.26453E+02 -3.55532E+02 -5.08035E-03 + -2.71835E-03 7.13690E-03 1.46554E-03 9.94939E-01 7.12841E-05 + 1.38875E-04 3.40824E-05 3.13244E+03 6.30507E+02 -1.33644E+03 + -9.64270E+02 -7.23005E+02 -3.23552E+02 -7.66766E+02 -3.38403E+02 + -1.40741E-03 -1.66432E-03 7.53214E-03 1.57896E-03 9.94293E-01 + -1.15837E-04 1.50607E-04 3.74491E-05 2.59646E+03 4.74297E+02 + -1.44716E+03 -9.96542E+02 -6.71227E+02 -3.08461E+02 -7.10806E+02 + -3.22094E+02 1.20236E-03 -9.03703E-04 7.92506E-03 1.69348E-03 + 9.93714E-01 -2.82909E-04 1.63292E-04 4.11462E-05 2.15336E+03 + 3.43112E+02 -1.52014E+03 -1.01815E+03 -6.22642E+02 -2.94076E+02 + -6.58240E+02 -3.06531E+02 3.14755E-03 -3.27808E-04 8.31604E-03 + 1.80923E-03 9.93210E-01 -4.33272E-04 1.76965E-04 4.51940E-05 + 1.78555E+03 2.32463E+02 -1.56191E+03 -1.03071E+03 -5.77102E+02 + -2.80377E+02 -6.08992E+02 -2.91716E+02 4.65564E-03 1.25870E-04 + 8.70831E-03 1.92724E-03 9.92760E-01 -5.68045E-04 1.91727E-04 + 4.96350E-05 1.47772E+03 1.38344E+02 -1.57743E+03 -1.03546E+03 + -5.34352E+02 -2.67306E+02 -5.62814E+02 -2.77597E+02 5.86990E-03 + 4.97144E-04 9.10171E-03 2.04753E-03 9.92359E-01 -6.91678E-04 + 2.07642E-04 5.45012E-05 1.22015E+03 5.82796E+01 -1.57139E+03 + -1.03358E+03 -4.94223E+02 -2.54832E+02 -5.19549E+02 -2.64149E+02 + 6.87409E-03 8.09282E-04 9.49688E-03 2.17035E-03 9.92003E-01 + -8.01946E-04 2.24787E-04 5.98305E-05 1.00358E+03 -1.01737E+01 + -1.54746E+03 -1.02601E+03 -4.56502E+02 -2.42909E+02 -4.78982E+02 + -2.51325E+02 7.73163E-03 1.08035E-03 9.89472E-03 2.29611E-03 + 9.91678E-01 -9.05531E-04 2.43253E-04 6.56676E-05 8.21608E+02 + -6.86859E+01 -1.50934E+03 -1.01376E+03 -4.21084E+02 -2.31520E+02 + -4.40995E+02 -2.39111E+02 8.47851E-03 1.32050E-03 1.02945E-02 + 2.42465E-03 9.91388E-01 -9.96863E-04 2.63120E-04 7.20554E-05 + 6.69108E+02 -1.18580E+02 -1.45992E+03 -9.97592E+02 -3.87856E+02 + -2.20649E+02 -4.05457E+02 -2.27484E+02 9.14300E-03 1.53789E-03 + 1.06971E-02 2.55639E-03 9.91125E-01 -1.08263E-03 2.84496E-04 + 7.90490E-05 5.41298E+02 -1.61140E+02 -1.40129E+03 -9.78068E+02 + -3.56598E+02 -2.10241E+02 -3.72130E+02 -2.16387E+02 9.74587E-03 + 1.73865E-03 1.11016E-02 2.69107E-03 9.90893E-01 -1.16059E-03 + 3.07453E-04 8.66934E-05 4.34963E+02 -1.97191E+02 -1.33604E+03 + -9.55946E+02 -3.27298E+02 -2.00306E+02 -3.40979E+02 -2.05825E+02 + 1.02992E-02 1.92625E-03 1.15082E-02 2.82891E-03 9.90684E-01 + -1.23188E-03 3.32123E-04 9.50576E-05 3.46703E+02 -2.27669E+02 + -1.26582E+03 -9.31698E+02 -2.99792E+02 -1.90809E+02 -3.11830E+02 + -1.95760E+02 1.08140E-02 2.10402E-03 1.19153E-02 2.96950E-03 + 9.90501E-01 -1.29537E-03 3.58586E-04 1.04195E-04 2.74461E+02 + -2.53081E+02 -1.19192E+03 -9.05700E+02 -2.73981E+02 -1.81728E+02 + -2.84555E+02 -1.86164E+02 1.12997E-02 2.27489E-03 1.23248E-02 + 3.11357E-03 9.90332E-01 -1.35440E-03 3.86963E-04 1.14178E-04 + 2.15572E+02 -2.74196E+02 -1.11613E+03 -8.78526E+02 -2.49803E+02 + -1.73059E+02 -2.59081E+02 -1.77031E+02 1.17597E-02 2.43983E-03 + 1.27340E-02 3.26026E-03 9.90181E-01 -1.40897E-03 4.17378E-04 + 1.25084E-04 1.68668E+02 -2.91344E+02 -1.03903E+03 -8.50341E+02 + -2.27121E+02 -1.64768E+02 -2.35252E+02 -1.68320E+02 1.21996E-02 + 2.60062E-03 1.31433E-02 3.40991E-03 9.90060E-01 -1.45353E-03 + 4.49929E-04 1.36983E-04 1.31792E+02 -3.05094E+02 -9.61863E+02 + -8.21569E+02 -2.05876E+02 -1.56846E+02 -2.12992E+02 -1.60020E+02 + 1.26202E-02 2.75745E-03 1.35501E-02 3.56159E-03 9.89949E-01 + -1.49474E-03 4.84751E-04 1.49967E-04 1.03808E+02 -3.15740E+02 + -8.85118E+02 -7.92371E+02 -1.85990E+02 -1.49280E+02 -1.92212E+02 + -1.52114E+02 1.30261E-02 2.91188E-03 1.39553E-02 3.71574E-03 + 9.89851E-01 -1.53038E-03 5.21967E-04 1.64126E-04 8.32416E+01 + -3.23728E+02 -8.09687E+02 -7.63075E+02 -1.67380E+02 -1.42053E+02 + -1.72813E+02 -1.44580E+02 1.34184E-02 3.06424E-03 1.43574E-02 + 3.87190E-03 9.89784E-01 -1.55823E-03 5.61711E-04 1.79561E-04 + 6.92311E+01 -3.29283E+02 -7.35812E+02 -7.33777E+02 -1.49969E+02 + -1.35148E+02 -1.54710E+02 -1.37400E+02 1.38007E-02 3.21587E-03 + 1.47574E-02 4.03053E-03 9.89717E-01 -1.58273E-03 6.04108E-04 + 1.96376E-04 6.08093E+01 -3.32697E+02 -6.63930E+02 -7.04650E+02 + -1.33685E+02 -1.28549E+02 -1.37816E+02 -1.30555E+02 1.41672E-02 + 3.36435E-03 1.51487E-02 4.18911E-03 9.89673E-01 -1.60055E-03 + 6.49287E-04 2.14683E-04 5.70729E+01 -3.34245E+02 -5.94443E+02 + -6.75870E+02 -1.18475E+02 -1.22250E+02 -1.22071E+02 -1.24033E+02 + 1.45259E-02 3.51292E-03 1.55366E-02 4.34977E-03 9.89646E-01 + -1.61280E-03 6.97400E-04 2.34610E-04 5.73329E+01 -3.34134E+02 + -5.27461E+02 -6.47497E+02 -1.04265E+02 -1.16231E+02 -1.07391E+02 + -1.17816E+02 1.48720E-02 3.65954E-03 1.59154E-02 4.51022E-03 + 9.89633E-01 -1.61837E-03 7.48581E-04 2.56289E-04 6.09371E+01 + -3.32572E+02 -4.63280E+02 -6.19681E+02 -9.10110E+01 -1.10486E+02 + -9.37266E+01 -1.11894E+02 1.52066E-02 3.80452E-03 1.62853E-02 + 4.67052E-03 9.89637E-01 -1.61726E-03 8.02963E-04 2.79858E-04 + 6.73469E+01 -3.29727E+02 -4.01871E+02 -5.92436E+02 -7.86412E+01 + -1.04998E+02 -8.09976E+01 -1.06246E+02 1.55384E-02 3.95174E-03 + 1.66522E-02 4.83332E-03 9.89650E-01 -1.61058E-03 8.60696E-04 + 3.05473E-04 7.60151E+01 -3.25789E+02 -3.43398E+02 -5.65861E+02 + -6.71103E+01 -9.97578E+01 -6.91536E+01 -1.00863E+02 1.58508E-02 + 4.09374E-03 1.70010E-02 4.99183E-03 9.89682E-01 -1.59721E-03 + 9.21912E-04 3.33294E-04 8.65651E+01 -3.20874E+02 -2.87833E+02 + -5.39979E+02 -5.63635E+01 -9.47517E+01 -5.81325E+01 -9.57294E+01 + 1.61551E-02 4.23545E-03 1.73405E-02 5.14998E-03 9.89726E-01 + -1.57605E-03 9.86749E-04 3.63496E-04 9.85267E+01 -3.15160E+02 + -2.35259E+02 -5.14863E+02 -4.63641E+01 -8.99750E+01 -4.78941E+01 + -9.08383E+01 1.64485E-02 4.37562E-03 1.76676E-02 5.30625E-03 + 9.89784E-01 -1.54819E-03 1.05536E-03 3.96274E-04 1.11646E+02 + -3.08729E+02 -1.85544E+02 -4.90492E+02 -3.70546E+01 -8.54109E+01 + -3.83771E+01 -8.61728E+01 1.67307E-02 4.51396E-03 1.79813E-02 + 5.46000E-03 9.89853E-01 -1.51590E-03 1.12787E-03 4.31819E-04 + 1.25567E+02 -3.01719E+02 -1.38745E+02 -4.66929E+02 -2.84002E+01 + -8.10537E+01 -2.95416E+01 -8.17244E+01 1.70007E-02 4.64994E-03 + 1.82802E-02 5.61048E-03 9.89933E-01 -1.47358E-03 1.20441E-03 + 4.70356E-04 1.40084E+02 -2.94208E+02 -9.47086E+01 -4.44146E+02 + -2.03596E+01 -7.68937E+01 -2.13447E+01 -7.74834E+01 1.72588E-02 + 4.78348E-03 1.85637E-02 5.75720E-03 9.90027E-01 -1.42568E-03 + 1.28512E-03 5.12114E-04 1.54950E+02 -2.86297E+02 -5.34049E+01 + -4.22167E+02 -1.28916E+01 -7.29198E+01 -1.37407E+01 -7.34372E+01 + 1.75040E-02 4.91392E-03 1.88307E-02 5.89925E-03 9.90132E-01 + -1.36999E-03 1.37010E-03 5.57336E-04 1.69957E+02 -2.78079E+02 + -1.47701E+01 -4.01006E+02 -5.96705E+00 -6.91270E+01 -6.69814E+00 + -6.95797E+01 1.77376E-02 5.04187E-03 1.90821E-02 6.03694E-03 + 9.90243E-01 -1.30873E-03 1.45952E-03 6.06311E-04 1.84985E+02 + -2.69598E+02 2.13419E+01 -3.80627E+02 4.55648E-01 -6.55030E+01 + -1.73933E-01 -6.58983E+01 1.79566E-02 5.16549E-03 1.93148E-02 + 6.16828E-03 9.90370E-01 -1.23745E-03 1.55343E-03 6.59298E-04 + 1.99869E+02 -2.60939E+02 5.50176E+01 -3.61035E+02 6.40160E+00 + -6.20434E+01 5.85984E+00 -6.23877E+01 1.81630E-02 5.28553E-03 + 1.95301E-02 6.29354E-03 9.90497E-01 -1.16282E-03 1.65196E-03 + 7.16628E-04 2.14502E+02 -2.52151E+02 8.63233E+01 -3.42236E+02 + 1.19044E+01 -5.87388E+01 1.14382E+01 -5.90378E+01 1.83557E-02 + 5.40125E-03 1.97278E-02 6.41223E-03 9.90640E-01 -1.07706E-03 + 1.75521E-03 7.78635E-04 2.28777E+02 -2.43293E+02 1.15404E+02 + -3.24191E+02 1.69893E+01 -5.55838E+01 1.65887E+01 -5.58421E+01 + 1.85337E-02 5.51174E-03 1.99060E-02 6.52281E-03 9.90782E-01 + -9.89067E-04 1.86326E-03 8.45674E-04 2.42637E+02 -2.34399E+02 + 1.42361E+02 -3.06891E+02 2.16875E+01 -5.25685E+01 2.13425E+01 + -5.27911E+01 1.86995E-02 5.61813E-03 2.00676E-02 6.62651E-03 + 9.90938E-01 -8.89937E-04 1.97616E-03 9.18135E-04 2.56006E+02 + -2.25514E+02 1.67295E+02 -2.90319E+02 2.60193E+01 -4.96896E+01 + 2.57216E+01 -4.98806E+01 1.88494E-02 5.71773E-03 2.02089E-02 + 6.72044E-03 9.91092E-01 -7.87466E-04 2.09398E-03 9.96435E-04 + 2.68822E+02 -2.16682E+02 1.90305E+02 -2.74463E+02 3.00112E+01 + -4.69387E+01 2.97548E+01 -4.71012E+01 1.89861E-02 5.81199E-03 + 2.03331E-02 6.80603E-03 9.91250E-01 -6.77199E-04 2.21676E-03 + 1.08104E-03 2.81067E+02 -2.07921E+02 2.11505E+02 -2.59294E+02 + 3.36826E+01 -4.43119E+01 3.34608E+01 -4.44498E+01 1.91087E-02 + 5.89968E-03 2.04392E-02 6.88194E-03 9.91415E-01 -5.61362E-04 + 2.34450E-03 1.17245E-03 2.92697E+02 -1.99268E+02 2.30988E+02 + -2.44799E+02 3.70569E+01 -4.18014E+01 3.68646E+01 -4.19173E+01 + 1.92168E-02 5.98007E-03 2.05272E-02 6.94747E-03 9.91573E-01 + -4.42184E-04 2.47723E-03 1.27119E-03 3.03709E+02 -1.90736E+02 + 2.48869E+02 -2.30945E+02 4.01523E+01 -3.94030E+01 3.99854E+01 + -3.94992E+01 1.93126E-02 6.05431E-03 2.05999E-02 7.00375E-03 + 9.91738E-01 -3.15209E-04 2.61487E-03 1.37784E-03 3.14077E+02 + -1.82355E+02 2.65221E+02 -2.17726E+02 4.29863E+01 -3.71121E+01 + 4.28407E+01 -3.71912E+01 1.93940E-02 6.12009E-03 2.06554E-02 + 7.04860E-03 9.91894E-01 -1.88235E-04 2.75741E-03 1.49307E-03 + 3.23797E+02 -1.74142E+02 2.80157E+02 -2.05107E+02 4.55778E+01 + -3.49225E+01 4.54500E+01 -3.49865E+01 1.94627E-02 6.17813E-03 + 2.06955E-02 7.08252E-03 9.92056E-01 -5.23493E-05 2.90473E-03 + 1.61754E-03 3.32881E+02 -1.66104E+02 2.93751E+02 -1.93078E+02 + 4.79423E+01 -3.28302E+01 4.78296E+01 -3.28808E+01 1.95192E-02 + 6.22819E-03 2.07218E-02 7.10582E-03 9.92210E-01 8.46499E-05 + 3.05670E-03 1.75202E-03 3.41321E+02 -1.58263E+02 3.06095E+02 + -1.81610E+02 5.00940E+01 -3.08314E+01 4.99937E+01 -3.08706E+01 + 1.95626E-02 6.26851E-03 2.07333E-02 7.11645E-03 9.92359E-01 + 2.23877E-04 3.21316E-03 1.89735E-03 3.49144E+02 -1.50617E+02 + 3.17270E+02 -1.70687E+02 5.20481E+01 -2.89212E+01 5.19584E+01 + -2.89500E+01 1.95968E-02 6.30191E-03 2.07347E-02 7.11786E-03 + 9.92504E-01 3.64217E-04 3.37387E-03 2.05444E-03 3.56345E+02 + -1.43189E+02 3.27352E+02 -1.60288E+02 5.38179E+01 -2.70958E+01 + 5.37369E+01 -2.71156E+01 1.96184E-02 6.32422E-03 2.07229E-02 + 7.10561E-03 9.92642E-01 5.06785E-04 3.53852E-03 2.22427E-03 + 3.62953E+02 -1.35975E+02 3.36418E+02 -1.50391E+02 5.54158E+01 + -2.53515E+01 5.53417E+01 -2.53636E+01 1.96308E-02 6.33774E-03 + 2.07017E-02 7.08246E-03 9.92774E-01 6.50467E-04 3.70679E-03 + 2.40797E-03 3.68981E+02 -1.28987E+02 3.44533E+02 -1.40982E+02 + 5.68528E+01 -2.36853E+01 5.67846E+01 -2.36907E+01 1.96340E-02 + 6.34141E-03 2.06716E-02 7.04757E-03 9.92898E-01 7.95263E-04 + 3.87820E-03 2.60671E-03 3.74452E+02 -1.22223E+02 3.51772E+02 + -1.32034E+02 5.72358E+01 -2.32118E+01 5.71725E+01 -2.32112E+01 + 1.96290E-02 6.33529E-03 2.06339E-02 7.00102E-03 9.93011E-01 + 9.34490E-04 4.05222E-03 2.82183E-03 3.79389E+02 -1.15688E+02 + 3.58191E+02 -1.23537E+02 5.82948E+01 -2.18099E+01 5.82354E+01 + -2.18042E+01 1.96166E-02 6.31884E-03 2.05900E-02 6.94291E-03 + 9.93118E-01 1.07706E-03 4.22821E-03 3.05478E-03 3.83812E+02 + -1.09386E+02 3.63855E+02 -1.15468E+02 5.92747E+01 -2.04139E+01 + 5.92182E+01 -2.04041E+01 1.95977E-02 6.29185E-03 2.05408E-02 + 6.87282E-03 9.93215E-01 1.21406E-03 4.40536E-03 3.30716E-03 + 3.87750E+02 -1.03315E+02 3.68818E+02 -1.07813E+02 6.01369E+01 + -1.90843E+01 6.00829E+01 -1.90706E+01 1.95733E-02 6.25422E-03 + 2.04880E-02 6.79134E-03 9.93302E-01 1.34883E-03 4.58277E-03 + 3.58076E-03 3.91224E+02 -9.74739E+01 3.73137E+02 -1.00554E+02 + 6.08907E+01 -1.78173E+01 6.08385E+01 -1.78005E+01 1.95455E-02 + 6.20753E-03 2.04337E-02 6.70008E-03 9.93379E-01 1.47914E-03 + 4.75928E-03 3.87747E-03 3.94261E+02 -9.18647E+01 3.76860E+02 + -9.36770E+01 6.15433E+01 -1.66119E+01 6.14926E+01 -1.65924E+01 + 1.95131E-02 6.14770E-03 2.03769E-02 6.59517E-03 9.93449E-01 + 1.60723E-03 4.93362E-03 4.19948E-03 3.96886E+02 -8.64853E+01 + 3.80037E+02 -8.71656E+01 6.21028E+01 -1.54651E+01 6.20531E+01 + -1.54434E+01 1.94792E-02 6.07833E-03 2.03210E-02 6.48062E-03 + 9.93508E-01 1.72864E-03 5.10420E-03 4.54912E-03 3.99124E+02 + -8.13323E+01 3.82712E+02 -8.10061E+01 6.25761E+01 -1.43754E+01 + 6.25273E+01 -1.43518E+01 1.94441E-02 5.99751E-03 2.02663E-02 + 6.35469E-03 9.93558E-01 1.84448E-03 5.26923E-03 4.92904E-03 + 4.01002E+02 -7.63994E+01 3.84931E+02 -7.51813E+01 6.29704E+01 + -1.33401E+01 6.29221E+01 -1.33152E+01 1.94090E-02 5.90513E-03 + 2.02140E-02 6.21752E-03 9.93599E-01 1.95363E-03 5.42654E-03 + 5.34207E-03 4.02543E+02 -7.16930E+01 3.86731E+02 -6.96822E+01 + 6.32919E+01 -1.23581E+01 6.32440E+01 -1.23317E+01 1.93754E-02 + 5.80255E-03 2.01660E-02 6.07060E-03 9.93633E-01 2.05721E-03 + 5.57362E-03 5.79138E-03 4.03774E+02 -6.71992E+01 3.88151E+02 + -6.44939E+01 6.35470E+01 -1.14264E+01 6.34994E+01 -1.13993E+01 + 1.93440E-02 5.68780E-03 2.01227E-02 5.91244E-03 9.93660E-01 + 2.15300E-03 5.70754E-03 6.28047E-03 4.04717E+02 -6.29199E+01 + 3.89230E+02 -5.96003E+01 6.37414E+01 -1.05439E+01 6.36939E+01 + -1.05161E+01 1.93161E-02 5.56124E-03 2.00854E-02 5.74314E-03 + 9.93679E-01 2.24099E-03 5.82492E-03 6.81324E-03 4.05395E+02 + -5.88527E+01 3.89997E+02 -5.49977E+01 6.38807E+01 -9.70889E+00 + 6.38333E+01 -9.68067E+00 1.92931E-02 5.42351E-03 2.00554E-02 + 5.56388E-03 9.93693E-01 2.32342E-03 5.92176E-03 7.39385E-03 + 4.05833E+02 -5.49846E+01 3.90488E+02 -5.06636E+01 6.39701E+01 + -8.91964E+00 6.39228E+01 -8.89084E+00 1.92760E-02 5.27276E-03 + 2.00338E-02 5.37286E-03 9.93701E-01 2.39581E-03 5.99350E-03 + 8.02705E-03 4.06052E+02 -5.13183E+01 3.90732E+02 -4.65958E+01 + 6.40147E+01 -8.17400E+00 6.39673E+01 -8.14521E+00 1.92664E-02 + 5.11192E-03 2.00219E-02 5.17318E-03 9.93705E-01 2.46042E-03 + 6.03480E-03 8.71797E-03 4.06073E+02 -4.79731E+01 3.90755E+02 + -4.29016E+01 6.40191E+01 -7.47107E+00 6.39717E+01 -7.44227E+00 + 1.92634E-02 4.63750E-03 2.00186E-02 4.64979E-03 9.93706E-01 + 2.51611E-03 6.03952E-03 9.47242E-03 4.05925E+02 -4.48400E+01 + 3.90593E+02 -3.94760E+01 6.39878E+01 -6.80899E+00 6.39404E+01 + -6.78019E+00 1.92898E-02 4.07907E-03 2.00473E-02 4.04200E-03 + 9.93703E-01 2.56177E-03 6.00057E-03 1.02966E-02 4.05615E+02 + -4.17634E+01 3.90258E+02 -3.61536E+01 6.39250E+01 -6.18625E+00 + 6.38777E+01 -6.15766E+00 1.93161E-02 3.81802E-03 2.00772E-02 + 3.74537E-03 9.93699E-01 2.60298E-03 5.90979E-03 1.11974E-02 + 4.05168E+02 -3.88681E+01 3.89779E+02 -3.30513E+01 6.38348E+01 + -5.60108E+00 6.37875E+01 -5.57299E+00 1.93593E-02 3.53806E-03 + 2.01256E-02 3.43145E-03 9.93694E-01 2.63528E-03 5.75779E-03 + 1.21826E-02 4.04602E+02 -3.61445E+01 3.89179E+02 -3.01640E+01 + 6.37208E+01 -5.05255E+00 6.36736E+01 -5.02460E+00 1.94208E-02 + 3.24217E-03 2.01937E-02 3.10371E-03 9.93689E-01 2.65979E-03 + 5.53378E-03 1.32606E-02 4.03936E+02 -3.35948E+01 3.88478E+02 + -2.74786E+01 6.35866E+01 -4.53887E+00 6.35395E+01 -4.51150E+00 + 1.95032E-02 2.92679E-03 2.02841E-02 2.75801E-03 9.93685E-01 + 2.67538E-03 5.22540E-03 1.44408E-02 4.03183E+02 -3.12030E+01 + 3.87694E+02 -2.49905E+01 6.34355E+01 -4.05906E+00 6.33886E+01 + -4.03218E+00 1.96086E-02 2.59219E-03 2.03982E-02 2.39540E-03 + 9.93681E-01 2.68763E-03 4.81849E-03 1.57333E-02 4.02362E+02 + -2.89744E+01 3.86846E+02 -2.26860E+01 6.32705E+01 -3.61111E+00 + 6.32238E+01 -3.58466E+00 1.97399E-02 2.23570E-03 2.05394E-02 + 2.01231E-03 9.93681E-01 2.68875E-03 4.29677E-03 1.71497E-02 + 4.01240E+02 -2.63135E+01 3.85704E+02 -1.99795E+01 6.30946E+01 + -3.19403E+00 6.30480E+01 -3.16815E+00 1.92811E-02 3.32331E-03 + 2.00707E-02 3.12317E-03 9.93680E-01 2.69097E-03 3.64180E-03 + 1.87023E-02 4.00266E+02 -2.42660E+01 3.84719E+02 -1.79070E+01 + 6.29103E+01 -2.80643E+00 6.28642E+01 -2.78141E+00 1.93296E-02 + 3.22112E-03 2.01267E-02 3.00536E-03 9.93683E-01 2.68315E-03 + 2.83235E-03 2.04051E-02 3.99290E+02 -2.24191E+01 3.83740E+02 + -1.60566E+01 6.27205E+01 -2.44754E+00 6.26745E+01 -2.42273E+00 + 1.94723E-02 2.95133E-03 2.02795E-02 2.71656E-03 9.93691E-01 + 2.66758E-03 1.84434E-03 2.22732E-02 3.98293E+02 -2.07077E+01 + 3.82751E+02 -1.43589E+01 6.25268E+01 -2.11500E+00 6.24814E+01 + -2.09119E+00 1.96438E-02 2.65697E-03 2.04613E-02 2.40441E-03 + 9.93705E-01 2.64419E-03 6.50259E-04 2.43235E-02 3.97281E+02 + -1.91173E+01 3.81760E+02 -1.28009E+01 6.23319E+01 -1.80841E+00 + 6.22868E+01 -1.78524E+00 1.98371E-02 2.35286E-03 2.06647E-02 + 2.08457E-03 9.93721E-01 2.61858E-03 -7.81271E-04 2.65746E-02 + 3.96168E+02 -1.75022E+01 3.80678E+02 -1.12310E+01 6.21374E+01 + -1.52641E+00 6.20928E+01 -1.50381E+00 1.97942E-02 2.41513E-03 + 2.06242E-02 2.14333E-03 9.93743E-01 2.58850E-03 -2.48586E-03 + 2.90471E-02 3.95051E+02 -1.59979E+01 3.79603E+02 -9.78417E+00 + 6.19447E+01 -1.26707E+00 6.19008E+01 -1.24526E+00 1.97551E-02 + 2.46772E-03 2.05871E-02 2.19313E-03 9.93768E-01 2.55286E-03 + -4.50390E-03 3.17634E-02 3.94041E+02 -1.47307E+01 3.78652E+02 + -8.59002E+00 6.17560E+01 -1.03013E+00 6.17125E+01 -1.00888E+00 + 1.99913E-02 2.17124E-03 2.08320E-02 1.88572E-03 9.93801E-01 + 2.51388E-03 -6.88160E-03 3.47488E-02 3.93057E+02 -1.35731E+01 + 3.77735E+02 -7.51106E+00 6.15725E+01 -8.14136E-01 6.15295E+01 + -7.93677E-01 2.02572E-02 1.85833E-03 2.11064E-02 1.56292E-03 + 9.93838E-01 2.46933E-03 -9.67121E-03 3.80308E-02 3.91848E+02 + -1.22341E+01 3.76607E+02 -6.26274E+00 6.13949E+01 -6.17605E-01 + 6.13524E+01 -5.97646E-01 1.99166E-02 2.23542E-03 2.07573E-02 + 1.94924E-03 9.93874E-01 2.42811E-03 -1.29318E-02 4.16397E-02 + 3.90400E+02 -1.07217E+01 3.75254E+02 -4.84903E+00 6.12243E+01 + -4.39324E-01 6.11827E+01 -4.20362E-01 1.89072E-02 3.29014E-03 + 1.97233E-02 3.02968E-03 9.93917E-01 2.38245E-03 -1.67308E-02 + 4.56094E-02 3.89448E+02 -9.77904E+00 3.74405E+02 -4.00902E+00 + 6.10625E+01 -2.79149E-01 6.10215E+01 -2.60828E-01 1.91048E-02 + 3.09463E-03 1.99267E-02 2.82846E-03 9.93970E-01 2.33233E-03 + -2.11442E-02 4.99769E-02 3.88529E+02 -8.91564E+00 3.73604E+02 + -3.25569E+00 6.09094E+01 -1.35368E-01 6.08692E+01 -1.17547E-01 + 1.93209E-02 2.89153E-03 2.01476E-02 2.62087E-03 9.94028E-01 + 2.27886E-03 -2.62587E-02 5.47836E-02 3.87654E+02 -8.13266E+00 + 3.72857E+02 -2.58790E+00 6.07657E+01 -6.84327E-03 6.07262E+01 + 1.02649E-02 1.95756E-02 2.66362E-03 2.04068E-02 2.38892E-03 + 9.94088E-01 2.22429E-03 -3.21715E-02 6.00746E-02 3.86815E+02 + -7.41697E+00 3.72161E+02 -1.99253E+00 6.06323E+01 1.07283E-01 + 6.05933E+01 1.23749E-01 1.98397E-02 2.43807E-03 2.06740E-02 + 2.16069E-03 9.94150E-01 2.16971E-03 -3.89933E-02 6.59000E-02 + 3.85977E+02 -6.73150E+00 3.71472E+02 -1.43081E+00 6.05092E+01 + 2.07722E-01 6.04713E+01 2.23476E-01 2.00157E-02 2.29435E-03 + 2.08501E-02 2.01694E-03 9.94222E-01 2.11179E-03 -4.68492E-02 + 7.23153E-02 3.84512E+02 -5.58525E+00 3.70166E+02 -4.08886E-01 + 6.03967E+01 2.95686E-01 6.03594E+01 3.11013E-01 1.84728E-02 + 3.50155E-03 1.92724E-02 3.25133E-03 9.94288E-01 2.05944E-03 + -5.58811E-02 7.93820E-02 3.83754E+02 -5.01612E+00 3.69580E+02 + 3.13650E-02 6.02948E+01 3.72246E-01 6.02584E+01 3.86788E-01 + 1.86690E-02 3.35418E-03 1.94695E-02 3.10336E-03 9.94366E-01 + 2.00264E-03 -6.62473E-02 8.71669E-02 3.83043E+02 -4.50287E+00 + 3.69047E+02 4.16299E-01 6.02045E+01 4.37328E-01 6.01689E+01 + 4.51513E-01 1.88821E-02 3.20037E-03 1.96826E-02 2.94948E-03 + 9.94447E-01 1.94361E-03 -7.81297E-02 9.57456E-02 3.82374E+02 + -4.03810E+00 3.68568E+02 7.49338E-01 6.01246E+01 4.93001E-01 + 6.00898E+01 5.06402E-01 1.91159E-02 3.03782E-03 1.99156E-02 + 2.78753E-03 9.94527E-01 1.88791E-03 -9.17308E-02 1.05200E-01 + 3.81751E+02 -3.62009E+00 3.68138E+02 1.03733E+00 6.00559E+01 + 5.38979E-01 6.00219E+01 5.51881E-01 1.93624E-02 2.87263E-03 + 2.01604E-02 2.62341E-03 9.94616E-01 1.82888E-03 -1.07282E-01 + 1.15622E-01 3.81174E+02 -3.24656E+00 3.67767E+02 1.27741E+00 + 5.99980E+01 5.76546E-01 5.99649E+01 5.88807E-01 1.96409E-02 + 2.69247E-03 2.04366E-02 2.44475E-03 9.94700E-01 1.77319E-03 + -1.25041E-01 1.27112E-01 3.80185E+02 -2.62896E+00 3.66984E+02 + 1.76671E+00 5.99504E+01 6.06271E-01 5.99183E+01 6.18033E-01 + 1.87423E-02 3.25439E-03 1.95165E-02 3.02018E-03 9.94787E-01 + 1.71861E-03 -1.45302E-01 1.39782E-01 3.78925E+02 -1.86593E+00 + 3.65943E+02 2.39686E+00 5.99127E+01 6.29011E-01 5.98811E+01 + 6.40488E-01 1.70588E-02 4.27304E-03 1.78003E-02 4.05856E-03 + 9.94874E-01 1.66515E-03 -1.68395E-01 1.53755E-01 3.78391E+02 + -1.55285E+00 3.65628E+02 2.58162E+00 5.98853E+01 6.45121E-01 + 5.98550E+01 6.55814E-01 1.71566E-02 4.21568E-03 1.78941E-02 + 4.00357E-03 9.94970E-01 1.61058E-03 -1.94692E-01 1.69167E-01 + 3.77892E+02 -1.26943E+00 3.65355E+02 2.73674E+00 5.98679E+01 + 6.54958E-01 5.98380E+01 6.65437E-01 1.72642E-02 4.15453E-03 + 1.79970E-02 3.94513E-03 9.95061E-01 1.55823E-03 -2.24609E-01 + 1.86168E-01 3.77427E+02 -1.01280E+00 3.65123E+02 2.86505E+00 + 5.98587E+01 6.60091E-01 5.98299E+01 6.69857E-01 1.73770E-02 + 4.09233E-03 1.81042E-02 3.88599E-03 9.95157E-01 1.50476E-03 + -2.58624E-01 2.04928E-01 3.77006E+02 -7.88117E-01 3.64936E+02 + 2.96485E+00 5.98592E+01 6.59806E-01 5.98310E+01 6.69358E-01 + 1.75113E-02 4.02038E-03 1.82328E-02 3.81711E-03 9.95255E-01 + 1.45353E-03 -2.97266E-01 2.25628E-01 3.76604E+02 -5.78257E-01 + 3.64772E+02 3.05039E+00 5.98678E+01 6.55315E-01 5.98404E+01 + 6.64368E-01 1.76221E-02 3.96267E-03 1.83368E-02 3.76295E-03 + 9.95349E-01 1.40341E-03 -3.41132E-01 2.48472E-01 3.76242E+02 + -3.95199E-01 3.64647E+02 3.11369E+00 5.98843E+01 6.46974E-01 + 5.98580E+01 6.55529E-01 1.77619E-02 3.89187E-03 1.84699E-02 + 3.69553E-03 9.95447E-01 1.35328E-03 -3.90900E-01 2.73687E-01 + 3.75917E+02 -2.34952E-01 3.64566E+02 3.15361E+00 5.99076E+01 + 6.35498E-01 5.98819E+01 6.43695E-01 1.79176E-02 3.81509E-03 + 1.86180E-02 3.62244E-03 9.95549E-01 1.30539E-03 -4.47328E-01 + 3.01521E-01 3.75615E+02 -8.89625E-02 3.64508E+02 3.18155E+00 + 5.99384E+01 6.20599E-01 5.99136E+01 6.28441E-01 1.80650E-02 + 3.74422E-03 1.87573E-02 3.55554E-03 9.95638E-01 1.26084E-03 + -5.11271E-01 3.32251E-01 3.75356E+02 3.19353E-02 3.64491E+02 + 3.18954E+00 5.99756E+01 6.03277E-01 5.99513E+01 6.10762E-01 + 1.82589E-02 3.65338E-03 1.89435E-02 3.46828E-03 9.95745E-01 + 1.21294E-03 -5.83681E-01 3.66178E-01 3.75107E+02 1.45420E-01 + 3.64492E+02 3.18897E+00 6.00195E+01 5.83246E-01 5.99958E+01 + 5.90446E-01 1.84269E-02 3.57660E-03 1.91022E-02 3.39574E-03 + 9.95834E-01 1.17062E-03 -6.65653E-01 4.03646E-01 3.74895E+02 + 2.40085E-01 3.64522E+02 3.17585E+00 6.00665E+01 5.62075E-01 + 6.00443E+01 5.68776E-01 1.86171E-02 3.49170E-03 1.92837E-02 + 3.31475E-03 9.95932E-01 1.12829E-03 -7.58390E-01 4.45022E-01 + 3.74295E+02 5.01270E-01 3.64166E+02 3.33039E+00 6.01204E+01 + 5.38765E-01 6.00982E+01 5.45323E-01 1.77472E-02 3.87078E-03 + 1.83946E-02 3.70218E-03 9.96021E-01 1.08708E-03 -8.63263E-01 + 4.90721E-01 3.73551E+02 8.18341E-01 3.63670E+02 3.54196E+00 + 6.01775E+01 5.14457E-01 6.01564E+01 5.20659E-01 1.64680E-02 + 4.41551E-03 1.70933E-02 4.25634E-03 9.96115E-01 1.04810E-03 + -9.81803E-01 5.41199E-01 3.73346E+02 9.03882E-01 3.63706E+02 + 3.52657E+00 6.02391E+01 4.88724E-01 6.02188E+01 4.94569E-01 + 1.65158E-02 4.39563E-03 1.71314E-02 4.24043E-03 9.96209E-01 + 1.00912E-03 -1.11574E+00 5.96962E-01 3.73147E+02 9.84861E-01 + 3.63751E+02 3.50889E+00 6.03041E+01 4.62277E-01 6.02844E+01 + 4.67909E-01 1.65467E-02 4.38300E-03 1.71526E-02 4.23183E-03 + 9.96302E-01 9.71246E-04 -1.26701E+00 6.58568E-01 3.72972E+02 + 1.05500E+00 3.63816E+02 3.48266E+00 6.03719E+01 4.35261E-01 + 6.03528E+01 4.40536E-01 1.66045E-02 4.35999E-03 1.72002E-02 + 4.21283E-03 9.96391E-01 9.35604E-04 -1.43778E+00 7.26636E-01 + 3.72816E+02 1.11545E+00 3.63897E+02 3.45129E+00 6.04415E+01 + 4.08030E-01 6.04232E+01 4.13163E-01 1.66524E-02 4.34130E-03 + 1.72384E-02 4.19796E-03 9.96485E-01 8.99962E-04 -1.63051E+00 + 8.01848E-01 3.72671E+02 1.17077E+00 3.63994E+02 3.41422E+00 + 6.05136E+01 3.80515E-01 6.04962E+01 3.85219E-01 1.66983E-02 + 4.32379E-03 1.72733E-02 4.18460E-03 9.96569E-01 8.66547E-04 + -1.84793E+00 8.84964E-01 3.72541E+02 1.21981E+00 3.64090E+02 + 3.37830E+00 6.05875E+01 3.52856E-01 6.05701E+01 3.57561E-01 + 1.67557E-02 4.30228E-03 1.73208E-02 4.16681E-03 9.96659E-01 + 8.33133E-04 -2.09313E+00 9.76819E-01 3.72413E+02 1.26601E+00 + 3.64199E+02 3.33838E+00 6.06616E+01 3.25697E-01 6.06451E+01 + 3.29974E-01 1.67855E-02 4.29132E-03 1.73396E-02 4.15989E-03 + 9.96743E-01 8.01946E-04 -2.36957E+00 1.07834E+00 3.72313E+02 + 1.30250E+00 3.64329E+02 3.29161E+00 6.07366E+01 2.98609E-01 + 6.07201E+01 3.02957E-01 1.68537E-02 4.26678E-03 1.73969E-02 + 4.13925E-03 9.96828E-01 7.71873E-04 -2.68114E+00 1.19056E+00 + 3.72217E+02 1.33615E+00 3.64452E+02 3.24770E+00 6.08113E+01 + 2.72163E-01 6.07962E+01 2.76083E-01 1.68981E-02 4.25105E-03 + 1.74310E-02 4.12717E-03 9.96908E-01 7.42914E-04 -3.03218E+00 + 1.31460E+00 3.72137E+02 1.36466E+00 3.64598E+02 3.19695E+00 + 6.08857E+01 2.46500E-01 6.08709E+01 2.50136E-01 1.69670E-02 + 4.22713E-03 1.74888E-02 4.10715E-03 9.96993E-01 7.13955E-04 + -3.42758E+00 1.45173E+00 3.72048E+02 1.39432E+00 3.64721E+02 + 3.15475E+00 6.09596E+01 2.21266E-01 6.09453E+01 2.24901E-01 + 1.69951E-02 4.21760E-03 1.75065E-02 4.10113E-03 9.97073E-01 + 6.86109E-04 -3.87285E+00 1.60333E+00 3.71982E+02 1.41599E+00 + 3.64874E+02 3.10342E+00 6.10326E+01 1.96815E-01 6.10192E+01 + 2.00166E-01 1.70440E-02 4.20120E-03 1.75442E-02 4.08853E-03 + 9.97153E-01 6.60492E-04 -4.37410E+00 1.77095E+00 3.71925E+02 + 1.43538E+00 3.65032E+02 3.05210E+00 6.11033E+01 1.73648E-01 + 6.10899E+01 1.76927E-01 1.71151E-02 4.17785E-03 1.76042E-02 + 4.06880E-03 9.97229E-01 6.34874E-04 -4.93828E+00 1.95628E+00 + 3.71868E+02 1.45420E+00 3.65164E+02 3.00933E+00 6.11717E+01 + 1.51479E-01 6.11589E+01 1.54615E-01 1.71493E-02 4.16688E-03 + 1.76286E-02 4.06093E-03 9.97309E-01 6.09256E-04 -5.57307E+00 + 2.16122E+00 3.71827E+02 1.46731E+00 3.65337E+02 2.95515E+00 + 6.12387E+01 1.30236E-01 6.12268E+01 1.33087E-01 1.72002E-02 + 4.15070E-03 1.76680E-02 4.04844E-03 9.97380E-01 5.86980E-04 + -6.28720E+00 2.38785E+00 3.71800E+02 1.47587E+00 3.65506E+02 + 2.90212E+00 6.13029E+01 1.10276E-01 6.12912E+01 1.13057E-01 + 1.72904E-02 4.12254E-03 1.77478E-02 4.02355E-03 9.97456E-01 + 5.63590E-04 -7.09037E+00 2.63848E+00 3.71800E+02 1.47587E+00 + 3.65506E+02 2.90212E+00 6.13029E+01 1.10276E-01 6.12912E+01 + 1.13057E-01 1.72904E-02 4.12254E-03 1.77478E-02 4.02355E-03 + 9.97456E-01 5.63590E-04 -7.09037E+00 2.63848E+00 + 2.83945E-04 1.31546E+02 2.08454E+01 + 1.72784E-03 2.64679E-04 0.00000E+00 0.00000E+00 1.26224E-01 + 2.03108E-02 1.72784E-03 2.64679E-04 0.00000E+00 0.00000E+00 + 1.26224E-01 2.03108E-02 1.99008E-03 3.07204E-04 0.00000E+00 + 0.00000E+00 1.34989E-02 2.03102E-03 2.27950E-03 3.54506E-04 + 0.00000E+00 0.00000E+00 1.47403E-02 2.23390E-03 2.61078E-03 + 4.09076E-04 0.00000E+00 0.00000E+00 1.60941E-02 2.45692E-03 + 3.00019E-03 4.73732E-04 0.00000E+00 0.00000E+00 -4.20665E-02 + -7.19996E-03 3.40139E-03 5.40882E-04 0.00000E+00 0.00000E+00 + 1.42873E-01 2.37536E-02 3.93339E-03 6.30643E-04 0.00000E+00 + 0.00000E+00 -4.30182E-02 -7.61107E-03 4.46912E-03 7.21772E-04 + 0.00000E+00 0.00000E+00 1.00202E-01 1.67510E-02 5.18116E-03 + 8.43890E-04 0.00000E+00 0.00000E+00 7.59747E-02 1.25960E-02 + 6.00788E-03 9.86850E-04 0.00000E+00 0.00000E+00 4.20572E-02 + 6.73084E-03 6.89614E-03 1.14174E-03 0.00000E+00 0.00000E+00 + 4.60189E-02 7.42165E-03 7.91486E-03 1.32087E-03 0.00000E+00 + 0.00000E+00 5.03480E-02 8.18290E-03 9.05025E-03 1.52222E-03 + 0.00000E+00 0.00000E+00 1.15340E-01 1.97084E-02 1.04126E-02 + 1.76589E-03 0.00000E+00 0.00000E+00 6.68649E-02 1.10382E-02 + 1.19873E-02 2.04998E-03 0.00000E+00 0.00000E+00 1.45896E-01 + 2.52961E-02 1.38981E-02 2.39772E-03 0.00000E+00 0.00000E+00 + 8.97105E-02 1.50712E-02 1.58844E-02 2.76237E-03 0.00000E+00 + 0.00000E+00 1.84312E-01 3.24387E-02 1.82665E-02 3.20357E-03 + 0.00000E+00 0.00000E+00 1.64186E-01 2.87111E-02 2.08868E-02 + 3.69324E-03 0.00000E+00 0.00000E+00 2.36145E-01 4.21586E-02 + 2.45737E-02 4.38847E-03 0.00000E+00 0.00000E+00 2.18840E-01 + 3.88954E-02 2.82185E-02 5.08203E-03 0.00000E+00 0.00000E+00 + 3.08565E-01 5.59691E-02 3.26043E-02 5.92430E-03 0.00000E+00 + 0.00000E+00 2.51208E-01 4.49541E-02 3.74853E-02 6.87037E-03 + 0.00000E+00 0.00000E+00 3.54441E-01 6.49635E-02 4.50214E-02 + 8.34479E-03 0.00000E+00 0.00000E+00 3.78036E-01 6.95799E-02 + 5.18479E-02 9.69302E-03 0.00000E+00 0.00000E+00 4.70634E-01 + 8.78679E-02 5.97564E-02 1.12699E-02 0.00000E+00 0.00000E+00 + 5.33591E-01 1.00421E-01 6.85370E-02 1.30376E-02 0.00000E+00 + 0.00000E+00 6.56852E-01 1.25235E-01 7.86672E-02 1.50968E-02 + 0.00000E+00 0.00000E+00 7.45120E-01 1.43178E-01 9.03157E-02 + 1.74880E-02 0.00000E+00 0.00000E+00 7.43628E-01 1.42872E-01 + 9.80858E-02 1.90989E-02 0.00000E+00 0.00000E+00 9.65400E-01 + 1.88850E-01 1.11347E-01 2.18759E-02 0.00000E+00 0.00000E+00 + 1.04452E+00 2.05419E-01 1.26230E-01 2.50242E-02 0.00000E+00 + 0.00000E+00 1.12370E+00 2.22167E-01 1.42420E-01 2.84839E-02 + 0.00000E+00 0.00000E+00 1.24426E+00 2.47931E-01 1.60174E-01 + 3.23172E-02 0.00000E+00 0.00000E+00 1.47311E+00 2.97341E-01 + 1.80918E-01 3.68430E-02 0.00000E+00 0.00000E+00 1.63789E+00 + 3.33292E-01 2.01987E-01 4.14881E-02 0.00000E+00 0.00000E+00 + 1.79753E+00 3.68490E-01 2.23407E-01 4.62612E-02 0.00000E+00 + 0.00000E+00 2.01480E+00 4.16904E-01 2.46126E-01 5.13787E-02 + 0.00000E+00 0.00000E+00 2.21469E+00 4.61930E-01 2.69452E-01 + 5.66901E-02 0.00000E+00 0.00000E+00 2.41714E+00 5.08028E-01 + 2.93996E-01 6.23405E-02 0.00000E+00 0.00000E+00 2.58829E+00 + 5.47430E-01 3.15248E-01 6.72878E-02 0.00000E+00 0.00000E+00 + 2.84086E+00 6.06225E-01 3.40128E-01 7.31451E-02 0.00000E+00 + 0.00000E+00 2.96361E+00 6.35124E-01 3.62422E-01 7.84535E-02 + 0.00000E+00 0.00000E+00 3.22435E+00 6.97207E-01 3.84140E-01 + 8.36843E-02 0.00000E+00 0.00000E+00 3.32237E+00 7.20817E-01 + 3.98206E-01 8.71119E-02 0.00000E+00 0.00000E+00 3.48349E+00 + 7.60078E-01 4.11707E-01 9.04406E-02 0.00000E+00 0.00000E+00 + 3.56648E+00 7.80538E-01 4.21891E-01 9.29817E-02 0.00000E+00 + 0.00000E+00 3.61343E+00 7.92254E-01 4.25496E-01 9.38920E-02 + 0.00000E+00 0.00000E+00 3.64939E+00 8.01334E-01 4.26480E-01 + 9.41436E-02 0.00000E+00 0.00000E+00 3.63334E+00 7.97232E-01 + 4.25513E-01 9.38932E-02 0.00000E+00 0.00000E+00 3.56859E+00 + 7.80476E-01 4.19688E-01 9.23668E-02 0.00000E+00 0.00000E+00 + 3.48364E+00 7.58214E-01 4.08960E-01 8.95198E-02 0.00000E+00 + 0.00000E+00 3.37999E+00 7.30704E-01 3.97843E-01 8.65313E-02 + 0.00000E+00 0.00000E+00 3.24309E+00 6.93904E-01 3.82930E-01 + 8.24700E-02 0.00000E+00 0.00000E+00 3.09744E+00 6.54239E-01 + 3.69180E-01 7.86762E-02 0.00000E+00 0.00000E+00 2.93278E+00 + 6.08804E-01 3.51605E-01 7.37616E-02 0.00000E+00 0.00000E+00 + 2.77224E+00 5.63913E-01 3.38299E-01 6.99902E-02 0.00000E+00 + 0.00000E+00 2.62028E+00 5.20842E-01 3.24202E-01 6.59395E-02 + 0.00000E+00 0.00000E+00 2.46599E+00 4.76508E-01 3.09441E-01 + 6.16388E-02 0.00000E+00 0.00000E+00 2.30460E+00 4.29487E-01 + 2.94161E-01 5.71238E-02 0.00000E+00 0.00000E+00 2.15509E+00 + 3.85308E-01 2.80330E-01 5.29784E-02 0.00000E+00 0.00000E+00 + 2.01590E+00 3.43589E-01 2.69221E-01 4.95999E-02 0.00000E+00 + 0.00000E+00 1.88718E+00 3.04443E-01 2.58221E-01 4.62051E-02 + 0.00000E+00 0.00000E+00 1.77405E+00 2.69531E-01 2.48718E-01 + 4.32283E-02 0.00000E+00 0.00000E+00 1.67168E+00 2.37462E-01 + 2.40073E-01 4.04790E-02 0.00000E+00 0.00000E+00 1.57956E+00 + 2.08167E-01 2.34483E-01 3.86737E-02 0.00000E+00 0.00000E+00 + 1.49749E+00 1.81662E-01 2.28454E-01 3.66961E-02 0.00000E+00 + 0.00000E+00 1.42650E+00 1.58377E-01 2.21942E-01 3.45255E-02 + 0.00000E+00 0.00000E+00 1.35639E+00 1.35008E-01 2.18806E-01 + 3.34633E-02 0.00000E+00 0.00000E+00 1.30392E+00 1.17237E-01 + 2.15886E-01 3.24583E-02 0.00000E+00 0.00000E+00 1.25964E+00 + 1.01993E-01 2.14213E-01 3.18725E-02 0.00000E+00 0.00000E+00 + 1.22203E+00 8.88264E-02 2.13704E-01 3.16912E-02 0.00000E+00 + 0.00000E+00 1.19410E+00 7.88828E-02 2.12705E-01 3.13294E-02 + 0.00000E+00 0.00000E+00 1.16441E+00 6.81269E-02 2.12230E-01 + 3.11543E-02 0.00000E+00 0.00000E+00 1.13909E+00 5.87918E-02 + 2.12663E-01 3.13168E-02 0.00000E+00 0.00000E+00 1.11748E+00 + 5.06834E-02 2.12931E-01 3.14190E-02 0.00000E+00 0.00000E+00 + 1.09920E+00 4.36969E-02 2.13737E-01 3.17330E-02 0.00000E+00 + 0.00000E+00 1.08381E+00 3.77044E-02 2.15339E-01 3.23685E-02 + 0.00000E+00 0.00000E+00 1.07155E+00 3.28413E-02 2.16539E-01 + 3.28537E-02 0.00000E+00 0.00000E+00 1.06015E+00 2.82329E-02 + 2.18406E-01 3.36235E-02 0.00000E+00 0.00000E+00 1.05050E+00 + 2.42533E-02 2.20156E-01 3.43599E-02 0.00000E+00 0.00000E+00 + 1.04239E+00 2.08402E-02 2.22185E-01 3.52312E-02 0.00000E+00 + 0.00000E+00 1.03522E+00 1.77613E-02 2.24381E-01 3.61941E-02 + 0.00000E+00 0.00000E+00 1.02922E+00 1.51285E-02 2.26738E-01 + 3.72498E-02 0.00000E+00 0.00000E+00 1.02455E+00 1.30374E-02 + 2.29237E-01 3.83933E-02 0.00000E+00 0.00000E+00 1.02061E+00 + 1.12345E-02 2.31744E-01 3.95666E-02 0.00000E+00 0.00000E+00 + 1.01730E+00 9.68391E-03 2.34404E-01 4.08398E-02 0.00000E+00 + 0.00000E+00 1.01451E+00 8.35197E-03 2.37104E-01 4.21624E-02 + 0.00000E+00 0.00000E+00 1.01216E+00 7.19770E-03 2.39876E-01 + 4.35537E-02 0.00000E+00 0.00000E+00 1.01018E+00 6.20869E-03 + 2.42661E-01 4.49853E-02 0.00000E+00 0.00000E+00 1.00852E+00 + 5.35386E-03 2.45413E-01 4.64362E-02 0.00000E+00 0.00000E+00 + 1.00672E+00 4.40460E-03 2.48290E-01 4.79921E-02 0.00000E+00 + 0.00000E+00 1.00565E+00 3.82561E-03 2.51177E-01 4.95946E-02 + 0.00000E+00 0.00000E+00 1.00476E+00 3.32985E-03 2.54093E-01 + 5.12583E-02 0.00000E+00 0.00000E+00 1.00399E+00 2.89374E-03 + 2.56987E-01 5.29552E-02 0.00000E+00 0.00000E+00 1.00335E+00 + 2.51851E-03 2.64154E-01 5.72797E-02 0.00000E+00 0.00000E+00 + 1.02756E+00 1.71276E-02 2.62458E-01 5.62261E-02 0.00000E+00 + 0.00000E+00 1.00000E+00 0.00000E+00 2.65406E-01 5.81140E-02 + 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 2.68327E-01 + 6.00439E-02 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 + 2.71221E-01 6.20192E-02 0.00000E+00 0.00000E+00 9.99997E-01 + -1.24248E-06 2.74100E-01 6.40503E-02 0.00000E+00 0.00000E+00 + 1.00000E+00 1.24248E-06 2.76958E-01 6.61371E-02 0.00000E+00 + 0.00000E+00 9.99997E-01 -1.24248E-06 2.79781E-01 6.82735E-02 + 0.00000E+00 0.00000E+00 1.00000E+00 1.24248E-06 2.82569E-01 + 7.04625E-02 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 + 2.85330E-01 7.27160E-02 0.00000E+00 0.00000E+00 1.00000E+00 + 0.00000E+00 2.88053E-01 7.50280E-02 0.00000E+00 0.00000E+00 + 1.00000E+00 0.00000E+00 2.90732E-01 7.73999E-02 0.00000E+00 + 0.00000E+00 1.00000E+00 0.00000E+00 2.93379E-01 7.98475E-02 + 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 2.95983E-01 + 8.23670E-02 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 + 2.98540E-01 8.49610E-02 0.00000E+00 0.00000E+00 1.00000E+00 + 0.00000E+00 3.01043E-01 8.76305E-02 0.00000E+00 0.00000E+00 + 1.00000E+00 0.00000E+00 3.03502E-01 9.03940E-02 0.00000E+00 + 0.00000E+00 1.00000E+00 0.00000E+00 3.05903E-01 9.32462E-02 + 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 3.08241E-01 + 9.61918E-02 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 + 3.10513E-01 9.92384E-02 0.00000E+00 0.00000E+00 1.00000E+00 + 0.00000E+00 3.12716E-01 1.02395E-01 0.00000E+00 0.00000E+00 + 1.00000E+00 0.00000E+00 3.14841E-01 1.05665E-01 0.00000E+00 + 0.00000E+00 9.99999E-01 -1.24248E-06 3.16878E-01 1.09050E-01 + 0.00000E+00 0.00000E+00 1.00000E+00 1.24248E-06 3.18827E-01 + 1.12570E-01 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 + 3.20675E-01 1.16222E-01 0.00000E+00 0.00000E+00 1.00000E+00 + 0.00000E+00 3.22410E-01 1.20010E-01 0.00000E+00 0.00000E+00 + 1.00000E+00 0.00000E+00 3.24025E-01 1.23951E-01 0.00000E+00 + 0.00000E+00 9.99999E-01 -1.24248E-06 3.25510E-01 1.28051E-01 + 0.00000E+00 0.00000E+00 1.00000E+00 1.24248E-06 3.26848E-01 + 1.32312E-01 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 + 3.28027E-01 1.36745E-01 0.00000E+00 0.00000E+00 1.00000E+00 + 0.00000E+00 3.29034E-01 1.41362E-01 0.00000E+00 0.00000E+00 + 1.00000E+00 0.00000E+00 3.29852E-01 1.46168E-01 0.00000E+00 + 0.00000E+00 1.00000E+00 -1.24248E-06 3.30463E-01 1.51176E-01 + 0.00000E+00 0.00000E+00 1.00000E+00 1.24248E-06 3.30850E-01 + 1.56390E-01 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 + 3.30992E-01 1.61823E-01 0.00000E+00 0.00000E+00 1.00000E+00 + 0.00000E+00 3.30891E-01 1.66470E-01 -6.46011E-05 2.96659E-03 + 1.00000E+00 -1.24248E-06 3.30487E-01 1.72270E-01 -7.45216E-05 + 3.10882E-03 1.00000E+00 0.00000E+00 3.29775E-01 1.78311E-01 + -9.22550E-05 3.25946E-03 1.00000E+00 1.24248E-06 3.28733E-01 + 1.84601E-01 -1.18532E-04 3.41805E-03 1.00000E+00 0.00000E+00 + 3.27333E-01 1.91152E-01 -1.54208E-04 3.58502E-03 1.00000E+00 + 0.00000E+00 3.25548E-01 1.97975E-01 -2.00204E-04 3.76083E-03 + 1.00000E+00 0.00000E+00 3.23349E-01 2.05078E-01 -2.57523E-04 + 3.94596E-03 1.00000E+00 0.00000E+00 3.20706E-01 2.12468E-01 + -3.34215E-04 4.16043E-03 1.00000E+00 -1.24248E-06 3.19416E-01 + 2.15651E-01 -4.79996E-03 1.51719E-02 9.99999E-01 1.24248E-06 + 3.15996E-01 2.23191E-01 -5.14780E-03 1.59389E-02 1.00000E+00 + 0.00000E+00 3.12071E-01 2.31018E-01 -5.55247E-03 1.67458E-02 + 1.00000E+00 0.00000E+00 3.07609E-01 2.39138E-01 -6.01892E-03 + 1.75947E-02 1.00000E+00 0.00000E+00 3.02581E-01 2.47555E-01 + -6.55235E-03 1.84876E-02 1.00000E+00 0.00000E+00 2.96966E-01 + 2.56254E-01 -7.20102E-03 1.94926E-02 1.00000E+00 0.00000E+00 + 2.95287E-01 2.58675E-01 -1.72392E-02 3.39696E-02 1.00000E+00 + 0.00000E+00 2.88872E-01 2.67328E-01 -1.85162E-02 3.56921E-02 + 1.00000E+00 0.00000E+00 2.81832E-01 2.76247E-01 -1.99424E-02 + 3.74990E-02 1.00000E+00 0.00000E+00 2.74135E-01 2.85441E-01 + -2.15284E-02 3.93931E-02 1.00000E+00 0.00000E+00 2.65757E-01 + 2.94903E-01 -2.32853E-02 4.13778E-02 1.00000E+00 0.00000E+00 + 2.56671E-01 3.04641E-01 -2.52253E-02 4.34565E-02 1.00000E+00 + 0.00000E+00 2.46847E-01 3.14653E-01 -2.73603E-02 4.56324E-02 + 1.00000E+00 -1.24248E-06 2.36259E-01 3.24939E-01 -2.97033E-02 + 4.79089E-02 9.99997E-01 1.24248E-06 2.30541E-01 3.30247E-01 + -4.14319E-02 5.87973E-02 1.00000E+00 0.00000E+00 2.24048E-01 + 3.36018E-01 -5.26195E-02 6.87407E-02 1.00000E+00 0.00000E+00 + 2.12340E-01 3.45999E-01 -5.65613E-02 7.21008E-02 1.00000E+00 + 0.00000E+00 1.99959E-01 3.56139E-01 -6.08305E-02 7.55970E-02 + 1.00000E+00 0.00000E+00 1.86889E-01 3.66437E-01 -6.54438E-02 + 7.92322E-02 1.00000E+00 0.00000E+00 1.73135E-01 3.76880E-01 + -7.04167E-02 8.30081E-02 1.00000E+00 0.00000E+00 1.64656E-01 + 3.83092E-01 -8.37810E-02 9.27989E-02 1.00000E+00 0.00000E+00 + 1.55412E-01 3.89634E-01 -9.66500E-02 1.01907E-01 1.00000E+00 + 0.00000E+00 1.41002E-01 3.99498E-01 -1.03472E-01 1.06576E-01 + 1.00000E+00 0.00000E+00 1.26124E-01 4.09357E-01 -1.10741E-01 + 1.11394E-01 1.00000E+00 0.00000E+00 1.10822E-01 4.19186E-01 + -1.18469E-01 1.16358E-01 1.00000E+00 -1.24248E-06 1.05504E-01 + 4.22500E-01 -1.38616E-01 1.28911E-01 9.99997E-01 1.24248E-06 + 9.17996E-02 4.30791E-01 -1.49077E-01 1.35240E-01 1.00000E+00 + 0.00000E+00 7.68774E-02 4.39564E-01 -1.58752E-01 1.40929E-01 + 1.00000E+00 0.00000E+00 6.35953E-02 4.47161E-01 -1.70677E-01 + 1.47748E-01 1.00000E+00 0.00000E+00 6.45079E-02 4.46652E-01 + -1.97231E-01 1.62527E-01 1.00000E+00 0.00000E+00 5.14830E-02 + 4.53713E-01 -2.08931E-01 1.68869E-01 1.00000E+00 0.00000E+00 + 3.88628E-02 4.60381E-01 -2.21087E-01 1.75292E-01 1.00000E+00 + 0.00000E+00 2.67330E-02 4.66631E-01 -2.33681E-01 1.81781E-01 + 1.00000E+00 0.00000E+00 1.52454E-02 4.72408E-01 -2.46683E-01 + 1.88319E-01 1.00000E+00 0.00000E+00 6.22726E-03 4.76838E-01 + -2.61522E-01 1.95606E-01 1.00001E+00 -1.24247E-06 1.17938E-02 + 4.74166E-01 -2.87856E-01 2.08238E-01 9.99995E-01 1.24250E-06 + 4.61702E-03 4.77531E-01 -3.02174E-01 2.14952E-01 1.00000E+00 + 0.00000E+00 -1.26735E-03 4.80229E-01 -3.16715E-01 2.21621E-01 + 1.00000E+00 0.00000E+00 -5.69052E-03 4.82215E-01 -3.31419E-01 + 2.28219E-01 1.00000E+00 0.00000E+00 1.14310E-03 4.79213E-01 + -3.53163E-01 2.37770E-01 1.00000E+00 0.00000E+00 1.31702E-02 + 4.74040E-01 -3.76591E-01 2.47850E-01 1.00001E+00 -1.24247E-06 + 1.58741E-02 4.72899E-01 -3.91528E-01 2.54146E-01 9.99995E-01 + 1.24250E-06 2.07493E-02 4.70884E-01 -4.06292E-01 2.60246E-01 + 1.00001E+00 -1.24247E-06 2.78866E-02 4.67993E-01 -4.20796E-01 + 2.66122E-01 9.99995E-01 1.24250E-06 3.74182E-02 4.64204E-01 + -4.34952E-01 2.71747E-01 1.00000E+00 0.00000E+00 4.94861E-02 + 4.59500E-01 -4.48660E-01 2.77093E-01 1.00000E+00 0.00000E+00 + 6.41711E-02 4.53877E-01 -4.61829E-01 2.82134E-01 1.00001E+00 + -1.24247E-06 8.16518E-02 4.47306E-01 -4.74391E-01 2.86856E-01 + 1.00000E+00 0.00000E+00 1.22910E-01 4.32072E-01 -4.97126E-01 + 2.95251E-01 9.99995E-01 1.24247E-06 1.47335E-01 4.23211E-01 + -5.07952E-01 2.99179E-01 1.00000E+00 0.00000E+00 1.74686E-01 + 4.13457E-01 -5.17805E-01 3.02693E-01 1.00000E+00 0.00000E+00 + 2.04942E-01 4.02849E-01 -5.26592E-01 3.05773E-01 1.00000E+00 + 0.00000E+00 2.38137E-01 3.91403E-01 -5.34213E-01 3.08401E-01 + 1.00000E+00 0.00000E+00 2.74413E-01 3.79098E-01 -5.40669E-01 + 3.10591E-01 1.00000E+00 0.00000E+00 3.39847E-01 3.57257E-01 + -5.56767E-01 3.15964E-01 1.00000E+00 0.00000E+00 3.82860E-01 + 3.43126E-01 -5.60118E-01 3.17065E-01 1.00000E+00 0.00000E+00 + 4.28542E-01 3.28352E-01 -5.61983E-01 3.17668E-01 1.00000E+00 + 0.00000E+00 4.76791E-01 3.12986E-01 -5.62285E-01 3.17764E-01 + 1.00001E+00 -1.24247E-06 5.27404E-01 2.97108E-01 -5.61009E-01 + 3.17364E-01 9.99995E-01 1.24250E-06 5.80323E-01 2.80754E-01 + -5.58098E-01 3.16465E-01 1.00000E+00 0.00000E+00 5.80323E-01 + 2.80754E-01 -5.58098E-01 3.16465E-01 1.00000E+00 0.00000E+00 + MEDIUM=SILIX-3MEV-10KEV-02KEV ,STERNCID=SILIX-3MEV-10KEV-02KEV + ELEM,RHO= 2.4000E+00,NE= 1 + ASYM=SI,Z=14.,A= 28.088,PZ= 1.00000E+00,RHOZ= 2.80880E+01 + 9.09454E+00 5.21000E-01 2.00000E-03 3.51100E+00 3.00200E+00 + 0 200 0 150 0 0 0 0 + 9.99981E-01 -2.20505E-01 5.06008E-02 9.95682E-01 -2.36684E-01 + 9.52000E-01 1.00023E+00 -1.86921E-01 3.60350E-02 1.01482E+00 + -2.41233E-01 9.52000E-01 1.00036E+00 -1.69640E-01 2.60368E-02 + 1.02466E+00 -2.43573E-01 9.52000E-01 9.99981E-01 -2.21127E-01 + 5.07435E-02 9.95670E-01 -2.37352E-01 9.52000E-01 1.00023E+00 + -1.87458E-01 3.61386E-02 1.01486E+00 -2.41926E-01 9.52000E-01 + 1.00036E+00 -1.70132E-01 2.61124E-02 1.02474E+00 -2.44280E-01 + 9.52000E-01 + 2.88352E+01 9.41958E-01 8.53593E-01 2.29544E+00 9.42009E-01 + 8.53583E-01 2.26792E+00 + 1.12553E-01 1.09942E-04 1.81949E+05 5.06024E+00 + 1.21501E+02 2.59409E+01 + 9.97889E+00 1.56584E+00 1.78925E+04 3.88225E+03 -8.65690E+02 + -2.68053E+02 -1.21167E+03 -3.52840E+02 1.00000E+00 0.00000E+00 + -2.78001E+01 -6.08959E+00 8.54876E+01 1.85065E+01 2.65519E-05 + 5.14588E-06 9.97889E+00 1.56584E+00 1.78925E+04 3.88225E+03 + -8.65690E+02 -2.68053E+02 -1.21167E+03 -3.52840E+02 1.00000E+00 + 0.00000E+00 -2.78001E+01 -6.08959E+00 8.54876E+01 1.85065E+01 + 2.65519E-05 5.14588E-06 9.93548E+00 1.55633E+00 1.59217E+04 + 3.45081E+03 -8.33384E+02 -2.60981E+02 -1.15804E+03 -3.41099E+02 + 1.00000E+00 0.00000E+00 -9.27036E-01 -2.06853E-01 3.83321E+00 + 6.31621E-01 2.81941E-05 5.50539E-06 9.88986E+00 1.54626E+00 + 1.41180E+04 3.05262E+03 -8.01778E+02 -2.54003E+02 -1.10615E+03 + -3.29644E+02 1.00000E+00 0.00000E+00 -3.08549E-01 -7.03085E-02 + 1.95460E+00 2.16880E-01 2.99481E-05 5.89262E-06 9.84640E+00 + 1.53658E+00 1.24921E+04 2.69057E+03 -7.71344E+02 -2.47227E+02 + -1.05668E+03 -3.18628E+02 1.00000E+00 0.00000E+00 -1.49318E-01 + -3.48533E-02 1.47150E+00 1.09308E-01 3.18180E-05 6.30898E-06 + 9.80038E+00 1.52625E+00 1.10202E+04 2.36001E+03 -7.41296E+02 + -2.40477E+02 -1.00858E+03 -3.07824E+02 1.00000E+00 0.00000E+00 + -8.50108E-02 -2.04101E-02 1.27683E+00 6.55870E-02 3.37943E-05 + 6.75283E-06 9.75560E+00 1.51611E+00 9.69540E+03 2.05986E+03 + -7.12664E+02 -2.33991E+02 -9.63094E+02 -2.97520E+02 1.00000E+00 + 0.00000E+00 -5.27413E-02 -1.30993E-02 1.17957E+00 4.35484E-02 + 3.58957E-05 7.22893E-06 9.70907E+00 1.50547E+00 8.49992E+03 + 1.78663E+03 -6.84759E+02 -2.27614E+02 -9.19276E+02 -2.87506E+02 + 1.00000E+00 0.00000E+00 -3.42230E-02 -8.86686E-03 1.12409E+00 + 3.08716E-02 3.81249E-05 7.73841E-06 9.66362E+00 1.49499E+00 + 7.42504E+03 1.53878E+03 -6.57546E+02 -2.21338E+02 -8.77067E+02 + -2.77772E+02 1.00000E+00 0.00000E+00 -2.25922E-02 -6.18500E-03 + 1.08956E+00 2.29083E-02 4.04866E-05 8.28299E-06 9.61810E+00 + 1.48440E+00 6.45895E+03 1.31402E+03 -6.31395E+02 -2.15254E+02 + -8.36868E+02 -2.68420E+02 1.00000E+00 0.00000E+00 -1.47749E-02 + -4.36628E-03 1.06666E+00 1.75819E-02 4.29986E-05 8.86740E-06 + 9.57288E+00 1.47379E+00 5.59171E+03 1.11043E+03 -6.06038E+02 + -2.09301E+02 -7.98298E+02 -2.59365E+02 1.00000E+00 0.00000E+00 + -9.23567E-03 -3.06592E-03 1.05070E+00 1.38353E-02 4.56599E-05 + 9.49215E-06 9.52520E+00 1.46249E+00 4.81324E+03 9.26009E+02 + -5.81479E+02 -2.03484E+02 -7.61303E+02 -2.50602E+02 1.00000E+00 + 0.00000E+00 -5.13679E-03 -2.09489E-03 1.03917E+00 1.11018E-02 + 4.84810E-05 1.01605E-05 9.48282E+00 1.45236E+00 4.11743E+03 + 7.59651E+02 -5.57682E+02 -1.97794E+02 -7.25833E+02 -2.42121E+02 + 1.00000E+00 0.00000E+00 -1.99091E-03 -1.34275E-03 1.03054E+00 + 9.04067E-03 5.14756E-05 1.08765E-05 9.43615E+00 1.44109E+00 + 3.49541E+03 6.09553E+02 -5.34768E+02 -1.92265E+02 -6.91976E+02 + -2.33952E+02 1.00000E+00 0.00000E+00 4.96664E-04 -7.42484E-04 + 1.02396E+00 7.45108E-03 5.46508E-05 1.16426E-05 9.38941E+00 + 1.42971E+00 2.94012E+03 4.74298E+02 -5.12458E+02 -1.86831E+02 + -6.59366E+02 -2.26008E+02 1.00000E+00 0.00000E+00 2.52317E-03 + -2.48879E-04 1.01879E+00 6.19256E-03 5.80132E-05 1.24616E-05 + 9.34429E+00 1.41861E+00 2.44612E+03 3.52834E+02 -4.90963E+02 + -1.81546E+02 -6.28212E+02 -2.18348E+02 1.00000E+00 0.00000E+00 + 4.21488E-03 1.67079E-04 1.01468E+00 5.18127E-03 6.15833E-05 + 1.33395E-05 9.29938E+00 1.40747E+00 2.00697E+03 2.43818E+02 + -4.70186E+02 -1.76388E+02 -5.98375E+02 -2.10941E+02 1.00000E+00 + 0.00000E+00 5.66057E-03 5.25952E-04 1.01134E+00 4.35257E-03 + 6.53576E-05 1.42764E-05 9.25437E+00 1.39619E+00 1.61739E+03 + 1.46177E+02 -4.50197E+02 -1.71378E+02 -5.69906E+02 -2.03806E+02 + 1.00000E+00 0.00000E+00 6.92148E-03 8.41983E-04 1.00862E+00 + 3.67067E-03 6.93627E-05 1.52802E-05 9.20992E+00 1.38494E+00 + 1.27359E+03 5.91681E+01 -4.30745E+02 -1.66455E+02 -5.42480E+02 + -1.96865E+02 1.00000E+00 0.00000E+00 8.03945E-03 1.12492E-03 + 1.00633E+00 3.09085E-03 7.36073E-05 1.63544E-05 8.10432E+03 + 2.07027E+03 9.70142E+02 -1.83853E+01 -4.94462E+02 -1.82739E+02 + -5.16254E+02 -1.90163E+02 -9.58339E+01 -2.47481E+01 9.04873E-03 + 1.38286E-03 1.00442E+00 2.60380E-03 7.80985E-05 1.75023E-05 + 6.76907E+03 1.72563E+03 7.03672E+02 -8.71642E+01 -4.65828E+02 + -1.75348E+02 -4.91262E+02 -1.83712E+02 -1.96658E+00 -5.19474E-01 + 9.97570E-03 1.62213E-03 1.00280E+00 2.18478E-03 8.28666E-05 + 1.87330E-05 5.69462E+03 1.44550E+03 4.70407E+02 -1.47979E+02 + -4.39716E+02 -1.68541E+02 -4.67181E+02 -1.77434E+02 -6.48000E-01 + -1.75707E-01 1.08360E-02 1.84642E-03 1.00140E+00 1.81987E-03 + 8.78970E-05 2.00444E-05 4.82431E+03 1.21630E+03 2.66717E+02 + -2.01621E+02 -4.15930E+02 -1.62277E+02 -4.44296E+02 -1.71406E+02 + -3.11240E-01 -8.70187E-02 1.16451E-02 2.05950E-03 1.00020E+00 + 1.50290E-03 9.32444E-05 2.14527E-05 4.11003E+03 1.02626E+03 + 8.99951E+01 -2.48641E+02 -3.93828E+02 -1.56396E+02 -4.22280E+02 + -1.65549E+02 -1.75968E-01 -5.10285E-02 1.24171E-02 2.26488E-03 + 9.99153E-01 1.22459E-03 9.88830E-05 2.29529E-05 3.52078E+03 + 8.67866E+02 -6.24393E+01 -2.89617E+02 -3.73315E+02 -1.50882E+02 + -4.01286E+02 -1.59906E+02 -1.08490E-01 -3.28895E-02 1.31504E-02 + 2.46201E-03 9.98231E-01 9.77197E-04 1.04860E-04 2.45597E-05 + 3.02897E+03 7.34276E+02 -1.93100E+02 -3.25108E+02 -3.54016E+02 + -1.45640E+02 -3.81119E+02 -1.54427E+02 -6.99892E-02 -2.24316E-02 + 1.38653E-02 2.65620E-03 9.97409E-01 7.54544E-04 1.11181E-04 + 2.62765E-05 2.61671E+03 6.21109E+02 -3.04769E+02 -3.55762E+02 + -3.35980E+02 -1.40689E+02 -3.61959E+02 -1.49168E+02 -4.60009E-02 + -1.58467E-02 1.45658E-02 2.84848E-03 9.96691E-01 5.58181E-04 + 1.17878E-04 2.81148E-05 2.26773E+03 5.24286E+02 -3.98360E+02 + -3.81727E+02 -3.18778E+02 -1.35917E+02 -3.43468E+02 -1.44038E+02 + -3.00518E-02 -1.14218E-02 1.52342E-02 3.03394E-03 9.96048E-01 + 3.78818E-04 1.24942E-04 3.00748E-05 1.97144E+03 4.41197E+02 + -4.77208E+02 -4.03840E+02 -3.02619E+02 -1.31385E+02 -3.25930E+02 + -1.39120E+02 -1.88679E-02 -8.28544E-03 1.59102E-02 3.22352E-03 + 9.95473E-01 2.16468E-04 1.32425E-04 3.21733E-05 1.71695E+03 + 3.69048E+02 -5.41484E+02 -4.22062E+02 -2.87166E+02 -1.27004E+02 + -3.09053E+02 -1.34335E+02 -1.07018E-02 -5.97033E-03 1.65676E-02 + 3.40987E-03 9.94953E-01 6.95789E-05 1.40326E-04 3.44132E-05 + 1.49853E+03 3.06439E+02 -5.93898E+02 -4.37086E+02 -2.72519E+02 + -1.22806E+02 -2.92984E+02 -1.29729E+02 -4.54621E-03 -4.20590E-03 + 1.72247E-02 3.59824E-03 9.94471E-01 -6.80327E-05 1.48682E-04 + 3.68083E-05 1.30882E+03 2.51455E+02 -6.35469E+02 -4.49135E+02 + -2.58571E+02 -1.18763E+02 -2.77636E+02 -1.25281E+02 2.50581E-04 + -2.81560E-03 1.78766E-02 3.78719E-03 9.94050E-01 -1.90182E-04 + 1.57508E-04 3.93664E-05 1.14446E+03 2.03277E+02 -6.66774E+02 + -4.58310E+02 -2.45177E+02 -1.14837E+02 -2.62882E+02 -1.20956E+02 + 4.06563E-03 -1.69734E-03 1.85239E-02 3.97692E-03 9.93654E-01 + -3.06147E-04 1.66820E-04 4.20961E-05 1.00083E+03 1.60698E+02 + -6.90144E+02 -4.65239E+02 -2.32457E+02 -1.11066E+02 -2.48855E+02 + -1.16798E+02 7.18547E-03 -7.72446E-04 1.91753E-02 4.17003E-03 + 9.93296E-01 -4.11288E-04 1.76670E-04 4.50161E-05 8.75160E+02 + 1.23010E+02 -7.05629E+02 -4.69882E+02 -2.20271E+02 -1.07411E+02 + -2.35428E+02 -1.12771E+02 9.77554E-03 4.30036E-06 1.98213E-02 + 4.36377E-03 9.92968E-01 -5.10245E-04 1.87052E-04 4.81295E-05 + 7.64881E+02 8.95508E+01 -7.14690E+02 -4.72632E+02 -2.08618E+02 + -1.03876E+02 -2.22598E+02 -1.08878E+02 1.19760E-02 6.71899E-04 + 2.04719E-02 4.56115E-03 9.92671E-01 -5.99928E-04 1.98015E-04 + 5.14557E-05 6.67810E+02 5.97516E+01 -7.17877E+02 -4.73610E+02 + -1.97482E+02 -1.00457E+02 -2.10357E+02 -1.05120E+02 1.38757E-02 + 1.25510E-03 2.11236E-02 4.76120E-03 9.92393E-01 -6.86512E-04 + 2.09590E-04 5.50092E-05 5.82296E+02 3.31853E+01 -7.16034E+02 + -4.73038E+02 -1.86803E+02 -9.71396E+01 -1.98640E+02 -1.01480E+02 + 1.55226E-02 1.76675E-03 2.17670E-02 4.96108E-03 9.92127E-01 + -7.68460E-04 2.21776E-04 5.87948E-05 5.06848E+02 9.46184E+00 + -7.09954E+02 -4.71125E+02 -1.76604E+02 -9.39326E+01 -1.87471E+02 + -9.79686E+01 1.70265E-02 2.23962E-03 2.24387E-02 5.17227E-03 + 9.91904E-01 -8.38039E-04 2.34640E-04 6.28398E-05 4.40498E+02 + -1.16563E+01 -6.99885E+02 -4.67921E+02 -1.66823E+02 -9.08192E+01 + -1.76790E+02 -9.45687E+01 1.83391E-02 2.65741E-03 2.30877E-02 + 5.37887E-03 9.91669E-01 -9.12256E-04 2.48186E-04 6.71514E-05 + 3.81852E+02 -3.05538E+01 -6.86787E+02 -4.63701E+02 -1.57476E+02 + -8.78074E+01 -1.66607E+02 -9.12873E+01 1.95464E-02 3.04644E-03 + 2.37474E-02 5.59147E-03 9.91477E-01 -9.74104E-04 2.62472E-04 + 7.17549E-05 3.30103E+02 -4.74398E+01 -6.71087E+02 -4.58576E+02 + -1.48529E+02 -8.48880E+01 -1.56885E+02 -8.81151E+01 2.06585E-02 + 3.40929E-03 2.44112E-02 5.80805E-03 9.91286E-01 -1.03750E-03 + 2.77512E-04 7.66625E-05 2.84694E+02 -6.24448E+01 -6.52854E+02 + -4.52552E+02 -1.39971E+02 -8.20600E+01 -1.47612E+02 -8.50506E+01 + 2.16859E-02 3.74883E-03 2.50743E-02 6.02719E-03 9.91119E-01 + -1.09316E-03 2.93349E-04 8.18956E-05 2.44678E+02 -7.58404E+01 + -6.32838E+02 -4.45853E+02 -1.31765E+02 -7.93135E+01 -1.38744E+02 + -8.20827E+01 2.26524E-02 4.07235E-03 2.57422E-02 6.25073E-03 + 9.90964E-01 -1.14573E-03 3.10015E-04 8.74741E-05 2.09614E+02 + -8.77302E+01 -6.11308E+02 -4.38552E+02 -1.23925E+02 -7.66548E+01 + -1.30297E+02 -7.92179E+01 2.35507E-02 4.37695E-03 2.64036E-02 + 6.47502E-03 9.90809E-01 -1.19676E-03 3.27544E-04 9.34181E-05 + 1.79047E+02 -9.82323E+01 -5.88448E+02 -4.30699E+02 -1.16423E+02 + -7.40773E+01 -1.22233E+02 -7.64476E+01 2.44146E-02 4.67377E-03 + 2.70748E-02 6.70563E-03 9.90673E-01 -1.24314E-03 3.45989E-04 + 9.97555E-05 1.52378E+02 -1.07517E+02 -5.64718E+02 -4.22435E+02 + -1.09255E+02 -7.15813E+01 -1.14550E+02 -7.37724E+01 2.52355E-02 + 4.95960E-03 2.77447E-02 6.93887E-03 9.90556E-01 -1.28490E-03 + 3.65382E-04 1.06508E-04 1.29343E+02 -1.15648E+02 -5.40275E+02 + -4.13808E+02 -1.02396E+02 -6.91610E+01 -1.07219E+02 -7.11852E+01 + 2.60189E-02 5.23608E-03 2.84135E-02 7.17491E-03 9.90432E-01 + -1.32818E-03 3.85743E-04 1.13694E-04 1.09476E+02 -1.22756E+02 + -5.15296E+02 -4.04870E+02 -9.58435E+01 -6.68161E+01 -1.00234E+02 + -6.86856E+01 2.67586E-02 5.50072E-03 2.90704E-02 7.40996E-03 + 9.90333E-01 -1.36375E-03 4.07151E-04 1.21354E-04 9.25347E+01 + -1.28902E+02 -4.89964E+02 -3.95679E+02 -8.95759E+01 -6.45423E+01 + -9.35690E+01 -6.62679E+01 2.75169E-02 5.77587E-03 2.97599E-02 + 7.66008E-03 9.90247E-01 -1.39622E-03 4.29619E-04 1.29505E-04 + 7.82216E+01 -1.34170E+02 -4.64501E+02 -3.86311E+02 -8.35914E+01 + -6.23403E+01 -8.72208E+01 -6.39319E+01 2.82045E-02 6.02886E-03 + 3.04126E-02 7.90029E-03 9.90160E-01 -1.42714E-03 4.53201E-04 + 1.38183E-04 6.62329E+01 -1.38644E+02 -4.39032E+02 -3.76805E+02 + -7.78690E+01 -6.02044E+01 -8.11666E+01 -6.16723E+01 2.88922E-02 + 6.28556E-03 3.10785E-02 8.14880E-03 9.90086E-01 -1.45497E-03 + 4.77935E-04 1.47414E-04 5.63784E+01 -1.42376E+02 -4.13680E+02 + -3.67203E+02 -7.24161E+01 -5.81394E+01 -7.54097E+01 -5.94921E+01 + 2.95529E-02 6.53570E-03 3.17351E-02 8.39747E-03 9.90012E-01 + -1.48280E-03 5.03889E-04 1.57243E-04 4.83352E+01 -1.45467E+02 + -3.88597E+02 -3.57564E+02 -6.72054E+01 -5.61369E+01 -6.99224E+01 + -5.73834E+01 3.02021E-02 6.78525E-03 3.23912E-02 8.64962E-03 + 9.89968E-01 -1.49981E-03 5.31074E-04 1.67690E-04 4.20811E+01 + -1.47906E+02 -3.63780E+02 -3.47884E+02 -6.22275E+01 -5.41952E+01 + -6.46907E+01 -5.53427E+01 3.08316E-02 7.03078E-03 3.30407E-02 + 8.90296E-03 9.89919E-01 -1.51991E-03 5.59569E-04 1.78805E-04 + 3.73439E+01 -1.49782E+02 -3.39350E+02 -3.38208E+02 -5.74839E+01 + -5.23166E+01 -5.97172E+01 -5.33728E+01 3.14461E-02 7.27416E-03 + 3.36840E-02 9.15774E-03 9.89869E-01 -1.53692E-03 5.89396E-04 + 1.90618E-04 3.39445E+01 -1.51150E+02 -3.15426E+02 -3.28587E+02 + -5.29576E+01 -5.04962E+01 -5.49803E+01 -5.14677E+01 3.20449E-02 + 7.51503E-03 3.43200E-02 9.41352E-03 9.89845E-01 -1.54929E-03 + 6.20611E-04 2.03172E-04 3.17801E+01 -1.52034E+02 -2.91990E+02 + -3.19014E+02 -4.86400E+01 -4.87324E+01 -5.04710E+01 -4.96258E+01 + 3.26296E-02 7.75382E-03 3.49476E-02 9.66989E-03 9.89826E-01 + -1.55702E-03 6.53275E-04 2.16516E-04 3.06623E+01 -1.52498E+02 + -2.69165E+02 -3.09541E+02 -4.45265E+01 -4.70252E+01 -4.61838E+01 + -4.78463E+01 3.32061E-02 7.99312E-03 3.55713E-02 9.92879E-03 + 9.89807E-01 -1.56475E-03 6.87427E-04 2.30690E-04 3.05342E+01 + -1.52552E+02 -2.46893E+02 -3.00146E+02 -4.06041E+01 -4.53705E+01 + -4.21020E+01 -4.61246E+01 3.37625E-02 8.22778E-03 3.61794E-02 + 1.01852E-02 9.89801E-01 -1.56785E-03 7.23111E-04 2.45742E-04 + 3.12275E+01 -1.52255E+02 -2.25298E+02 -2.90886E+02 -3.68681E+01 + -4.37688E+01 -3.82234E+01 -4.44616E+01 3.43065E-02 8.46106E-03 + 3.67779E-02 1.04419E-02 9.89801E-01 -1.56784E-03 7.60379E-04 + 2.61721E-04 3.26794E+01 -1.51621E+02 -2.04353E+02 -2.81755E+02 + -3.33120E+01 -4.22184E+01 -3.45351E+01 -4.28537E+01 3.48399E-02 + 8.69359E-03 3.73675E-02 1.06989E-02 9.89807E-01 -1.56475E-03 + 7.99297E-04 2.78688E-04 3.47583E+01 -1.50700E+02 -1.84091E+02 + -2.72770E+02 -2.99253E+01 -4.07165E+01 -3.10304E+01 -4.12994E+01 + 3.53534E-02 8.92134E-03 3.79384E-02 1.09521E-02 9.89826E-01 + -1.55702E-03 8.39901E-04 2.96693E-04 3.74199E+01 -1.49499E+02 + -1.64493E+02 -2.63929E+02 -2.66985E+01 -3.92609E+01 -2.76952E+01 + -3.97949E+01 3.58615E-02 9.15054E-03 3.85029E-02 1.12067E-02 + 9.89838E-01 -1.54929E-03 8.82224E-04 3.15787E-04 4.05516E+01 + -1.48060E+02 -1.45607E+02 -2.55258E+02 -2.36342E+01 -3.78540E+01 + -2.45329E+01 -3.83430E+01 3.63510E-02 9.37527E-03 3.90484E-02 + 1.14572E-02 9.89875E-01 -1.53383E-03 9.26359E-04 3.36050E-04 + 4.40887E+01 -1.46408E+02 -1.27434E+02 -2.46764E+02 -2.07162E+01 + -3.64901E+01 -2.15264E+01 -3.69377E+01 3.68292E-02 9.59879E-03 + 3.95813E-02 1.17063E-02 9.89906E-01 -1.51682E-03 9.72312E-04 + 3.57528E-04 4.79932E+01 -1.44549E+02 -1.09932E+02 -2.38434E+02 + -1.79426E+01 -3.51700E+01 -1.86729E+01 -3.55797E+01 3.72913E-02 + 9.81869E-03 4.00960E-02 1.19512E-02 9.89950E-01 -1.49517E-03 + 1.02016E-03 3.80303E-04 5.21747E+01 -1.42521E+02 -9.31285E+01 + -2.30286E+02 -1.53054E+01 -3.38914E+01 -1.59627E+01 -3.42655E+01 + 3.77387E-02 1.00356E-02 4.05931E-02 1.21923E-02 9.90005E-01 + -1.47353E-03 1.06993E-03 4.04436E-04 5.65858E+01 -1.40343E+02 + -7.70342E+01 -2.22334E+02 -1.28010E+01 -3.26539E+01 -1.33928E+01 + -3.29958E+01 3.81734E-02 1.02504E-02 4.10744E-02 1.24301E-02 + 9.90055E-01 -1.44569E-03 1.12170E-03 4.30012E-04 6.11916E+01 + -1.38022E+02 -6.15922E+01 -2.14556E+02 -1.04217E+01 -3.14554E+01 + -1.09541E+01 -3.17674E+01 3.85901E-02 1.04603E-02 4.15340E-02 + 1.26616E-02 9.90123E-01 -1.41322E-03 1.17548E-03 4.57101E-04 + 6.59356E+01 -1.35586E+02 -4.68440E+01 -2.06980E+02 -8.16397E+00 + -3.02957E+01 -8.64253E+00 -3.05800E+01 3.89949E-02 1.06682E-02 + 4.19782E-02 1.28897E-02 9.90182E-01 -1.38076E-03 1.23134E-03 + 4.85797E-04 7.07864E+01 -1.33044E+02 -3.27317E+01 -1.99584E+02 + -6.02032E+00 -2.91723E+01 -6.45019E+00 -2.94312E+01 3.93838E-02 + 1.08720E-02 4.24013E-02 1.31115E-02 9.90262E-01 -1.34055E-03 + 1.28931E-03 5.16173E-04 7.57074E+01 -1.30411E+02 -1.92625E+01 + -1.92381E+02 -3.98657E+00 -2.80845E+01 -4.37329E+00 -2.83202E+01 + 3.97530E-02 1.10695E-02 4.28007E-02 1.33251E-02 9.90339E-01 + -1.29726E-03 1.34944E-03 5.48334E-04 8.06584E+01 -1.27708E+02 + -6.42822E+00 -1.85372E+02 -2.05889E+00 -2.70319E+01 -2.40623E+00 + -2.72460E+01 4.01118E-02 1.12655E-02 4.31842E-02 1.35345E-02 + 9.90420E-01 -1.25397E-03 1.41177E-03 5.82376E-04 8.56220E+01 + -1.24939E+02 5.79648E+00 -1.78553E+02 -2.31756E-01 -2.60125E+01 + -5.43470E-01 -2.62068E+01 4.04509E-02 1.14546E-02 4.35434E-02 + 1.37349E-02 9.90509E-01 -1.20294E-03 1.47633E-03 6.18392E-04 + 9.05746E+01 -1.22115E+02 1.74417E+01 -1.71913E+02 1.49979E+00 + -2.50253E+01 1.22014E+00 -2.52014E+01 4.07740E-02 1.16389E-02 + 4.38808E-02 1.39273E-02 9.90602E-01 -1.15192E-03 1.54317E-03 + 6.56496E-04 9.54805E+01 -1.19255E+02 2.84932E+01 -1.65471E+02 + 3.13930E+00 -2.40696E+01 2.88835E+00 -2.42290E+01 4.10812E-02 + 1.18179E-02 4.41975E-02 1.41119E-02 9.90701E-01 -1.09471E-03 + 1.61233E-03 6.96815E-04 1.00336E+02 -1.16360E+02 3.89984E+01 + -1.59206E+02 4.69114E+00 -2.31443E+01 4.46591E+00 -2.32883E+01 + 4.13733E-02 1.19921E-02 4.44935E-02 1.42884E-02 9.90800E-01 + -1.03595E-03 1.68381E-03 7.39439E-04 1.05107E+02 -1.13448E+02 + 4.89519E+01 -1.53131E+02 6.15886E+00 -2.22484E+01 5.95659E+00 + -2.23783E+01 4.16364E-02 1.21527E-02 4.47552E-02 1.44482E-02 + 9.90905E-01 -9.71012E-04 1.75768E-03 7.84523E-04 1.09794E+02 + -1.10518E+02 5.83931E+01 -1.47229E+02 7.54643E+00 -2.13811E+01 + 7.36514E+00 -2.14979E+01 4.18929E-02 1.23130E-02 4.50048E-02 + 1.46042E-02 9.91010E-01 -9.04525E-04 1.83393E-03 8.32186E-04 + 1.14388E+02 -1.07576E+02 6.73333E+01 -1.41503E+02 8.85850E+00 + -2.05407E+01 8.69571E+00 -2.06457E+01 4.21508E-02 1.24782E-02 + 4.52507E-02 1.47616E-02 9.91122E-01 -8.34947E-04 1.91260E-03 + 8.82577E-04 1.18848E+02 -1.04647E+02 7.57767E+01 -1.35959E+02 + 1.00970E+01 -1.97273E+01 9.95074E+00 -1.98215E+01 4.23640E-02 + 1.26183E-02 4.54467E-02 1.48904E-02 9.91233E-01 -7.60734E-04 + 1.99371E-03 9.35840E-04 1.23201E+02 -1.01714E+02 8.37624E+01 + -1.30578E+02 1.12660E+01 -1.89397E+01 1.11345E+01 -1.90239E+01 + 4.25758E-02 1.27609E-02 4.56366E-02 1.50183E-02 9.91341E-01 + -6.86512E-04 2.07726E-03 9.92132E-04 1.27409E+02 -9.88030E+01 + 9.12863E+01 -1.25373E+02 1.23690E+01 -1.81767E+01 1.22509E+01 + -1.82517E+01 4.27490E-02 1.28807E-02 4.57835E-02 1.51199E-02 + 9.91462E-01 -6.04563E-04 2.16327E-03 1.05163E-03 1.31490E+02 + -9.59032E+01 9.83922E+01 -1.20323E+02 1.34082E+01 -1.74381E+01 + 1.33021E+01 -1.75045E+01 4.29205E-02 1.30026E-02 4.59236E-02 + 1.52195E-02 9.91573E-01 -5.25707E-04 2.25174E-03 1.11450E-03 + 1.35423E+02 -9.30295E+01 1.05076E+02 -1.15440E+02 1.43876E+01 + -1.67226E+01 1.42917E+01 -1.67816E+01 4.30855E-02 1.31231E-02 + 4.60532E-02 1.53142E-02 9.91691E-01 -4.40666E-04 2.34267E-03 + 1.18095E-03 1.39212E+02 -9.01796E+01 1.11364E+02 -1.10711E+02 + 1.53086E+01 -1.60300E+01 1.52226E+01 -1.60816E+01 4.32202E-02 + 1.32244E-02 4.61490E-02 1.53862E-02 9.91808E-01 -3.50987E-04 + 2.43605E-03 1.25116E-03 1.42851E+02 -8.73629E+01 1.17271E+02 + -1.06138E+02 1.61756E+01 -1.53587E+01 1.60974E+01 -1.54042E+01 + 4.33434E-02 1.33198E-02 4.62297E-02 1.54486E-02 9.91923E-01 + -2.62854E-04 2.53187E-03 1.32536E-03 1.46336E+02 -8.45810E+01 + 1.22818E+02 -1.01710E+02 1.69898E+01 -1.47089E+01 1.69191E+01 + -1.47483E+01 4.34485E-02 1.34038E-02 4.62885E-02 1.54957E-02 + 9.92034E-01 -1.73174E-04 2.63010E-03 1.40376E-03 1.49670E+02 + -8.18352E+01 1.28011E+02 -9.74335E+01 1.77544E+01 -1.40792E+01 + 1.76902E+01 -1.41134E+01 4.35412E-02 1.34800E-02 4.63328E-02 + 1.55321E-02 9.92151E-01 -7.57637E-05 2.73071E-03 1.48661E-03 + 1.52850E+02 -7.91305E+01 1.32874E+02 -9.32975E+01 1.84710E+01 + -1.34697E+01 1.84127E+01 -1.34989E+01 4.36183E-02 1.35458E-02 + 4.63588E-02 1.55543E-02 9.92263E-01 1.70082E-05 2.83367E-03 + 1.57417E-03 1.55879E+02 -7.64674E+01 1.37419E+02 -8.93010E+01 + 1.91427E+01 -1.28791E+01 1.90892E+01 -1.29039E+01 4.36795E-02 + 1.35995E-02 4.63670E-02 1.55615E-02 9.92371E-01 1.12873E-04 + 2.93891E-03 1.66672E-03 1.58751E+02 -7.38529E+01 1.41662E+02 + -8.54399E+01 1.97712E+01 -1.23070E+01 1.97223E+01 -1.23278E+01 + 4.37253E-02 1.36412E-02 4.63577E-02 1.55530E-02 9.92479E-01 + 2.11829E-04 3.04639E-03 1.76454E-03 1.61477E+02 -7.12816E+01 + 1.45616E+02 -8.17101E+01 2.03584E+01 -1.17532E+01 2.03133E+01 + -1.17702E+01 4.37656E-02 1.36792E-02 4.63420E-02 1.55383E-02 + 9.92584E-01 3.10786E-04 3.15602E-03 1.86795E-03 1.64054E+02 + -6.87594E+01 1.49292E+02 -7.81108E+01 2.09068E+01 -1.12164E+01 + 2.08652E+01 -1.12301E+01 4.37855E-02 1.36986E-02 4.63052E-02 + 1.55022E-02 9.92685E-01 4.11288E-04 3.26769E-03 1.97727E-03 + 1.66481E+02 -6.62906E+01 1.52710E+02 -7.46343E+01 2.14179E+01 + -1.06964E+01 2.13793E+01 -1.07071E+01 4.37955E-02 1.37088E-02 + 4.62574E-02 1.54536E-02 9.92784E-01 5.10245E-04 3.38136E-03 + 2.09289E-03 1.68767E+02 -6.38702E+01 1.55876E+02 -7.12824E+01 + 2.18932E+01 -1.01932E+01 2.18574E+01 -1.02009E+01 4.37945E-02 + 1.37078E-02 4.61995E-02 1.53922E-02 9.92878E-01 6.10748E-04 + 3.49682E-03 2.21514E-03 1.70912E+02 -6.15027E+01 1.58807E+02 + -6.80469E+01 2.23354E+01 -9.70517E+00 2.23016E+01 -9.71061E+00 + 4.37820E-02 1.36940E-02 4.61298E-02 1.53153E-02 9.92971E-01 + 7.12797E-04 3.61398E-03 2.34446E-03 1.72919E+02 -5.91883E+01 + 1.61515E+02 -6.49254E+01 2.27448E+01 -9.23315E+00 2.27131E+01 + -9.23622E+00 4.37603E-02 1.36690E-02 4.60514E-02 1.52249E-02 + 9.93056E-01 8.11754E-04 3.73267E-03 2.48129E-03 1.74790E+02 + -5.69305E+01 1.64006E+02 -6.19203E+01 2.29286E+01 -9.01139E+00 + 2.28985E+01 -9.01248E+00 4.37298E-02 1.36321E-02 4.59655E-02 + 1.51213E-02 9.93141E-01 9.12256E-04 3.85268E-03 2.62609E-03 + 1.76533E+02 -5.47254E+01 1.66297E+02 -5.90201E+01 2.30049E+01 + -8.91485E+00 2.29762E+01 -8.91411E+00 4.36920E-02 1.35842E-02 + 4.58732E-02 1.50045E-02 9.93217E-01 1.00967E-03 3.97381E-03 + 2.77936E-03 1.78150E+02 -5.25753E+01 1.68397E+02 -5.62276E+01 + 2.33222E+01 -8.49271E+00 2.32949E+01 -8.49023E+00 4.36423E-02 + 1.35182E-02 4.57709E-02 1.48684E-02 9.93293E-01 1.10862E-03 + 4.09579E-03 2.94161E-03 1.79643E+02 -5.04813E+01 1.70315E+02 + -5.35386E+01 2.36132E+01 -8.08471E+00 2.35869E+01 -8.08080E+00 + 4.35903E-02 1.34453E-02 4.56683E-02 1.47245E-02 9.93359E-01 + 1.20295E-03 4.21836E-03 3.11348E-03 1.81019E+02 -4.84424E+01 + 1.72062E+02 -5.09480E+01 2.38796E+01 -7.68987E+00 2.38541E+01 + -7.68472E+00 4.35316E-02 1.33583E-02 4.55606E-02 1.45650E-02 + 9.93424E-01 1.29881E-03 4.34116E-03 3.29550E-03 1.82280E+02 + -4.64586E+01 1.73648E+02 -4.84559E+01 2.41220E+01 -7.30889E+00 + 2.40973E+01 -7.30245E+00 4.34672E-02 1.32571E-02 4.54499E-02 + 1.43909E-02 9.93484E-01 1.39312E-03 4.46384E-03 3.48836E-03 + 1.83431E+02 -4.45334E+01 1.75080E+02 -4.60593E+01 2.43420E+01 + -6.94058E+00 2.43179E+01 -6.93316E+00 4.34002E-02 1.31449E-02 + 4.53389E-02 1.42051E-02 9.93538E-01 1.48434E-03 4.58603E-03 + 3.69284E-03 1.84478E+02 -4.26593E+01 1.76369E+02 -4.37530E+01 + 2.45410E+01 -6.58466E+00 2.45175E+01 -6.57625E+00 4.33297E-02 + 1.30188E-02 4.52272E-02 1.40053E-02 9.93588E-01 1.57249E-03 + 4.70719E-03 3.90959E-03 1.85423E+02 -4.08448E+01 1.77522E+02 + -4.15367E+01 2.47196E+01 -6.24143E+00 2.46965E+01 -6.23223E+00 + 4.32566E-02 1.28784E-02 4.51156E-02 1.37908E-02 9.93631E-01 + 1.65753E-03 4.82684E-03 4.13949E-03 1.86271E+02 -3.90837E+01 + 1.78549E+02 -3.94075E+01 2.48795E+01 -5.90965E+00 2.48567E+01 + -5.89976E+00 4.31824E-02 1.27244E-02 4.50058E-02 1.35629E-02 + 9.93671E-01 1.73946E-03 4.94439E-03 4.38339E-03 1.87028E+02 + -3.73769E+01 1.79455E+02 -3.73639E+01 2.50214E+01 -5.58955E+00 + 2.49989E+01 -5.57901E+00 4.31111E-02 1.25636E-02 4.49021E-02 + 1.33292E-02 9.93708E-01 1.82143E-03 5.05913E-03 4.64220E-03 + 1.87697E+02 -3.57243E+01 1.80250E+02 -3.53985E+01 2.51463E+01 + -5.28103E+00 2.51241E+01 -5.26995E+00 4.30369E-02 1.23801E-02 + 4.47981E-02 1.30721E-02 9.93739E-01 1.89872E-03 5.17036E-03 + 4.91698E-03 1.88283E+02 -3.41264E+01 1.80939E+02 -3.35176E+01 + 2.52554E+01 -4.98314E+00 2.52334E+01 -4.97151E+00 4.29667E-02 + 1.21886E-02 4.47016E-02 1.28089E-02 9.93766E-01 1.97296E-03 + 5.27723E-03 5.20875E-03 1.88788E+02 -3.25830E+01 1.81531E+02 + -3.17114E+01 2.53495E+01 -4.69596E+00 2.53275E+01 -4.68413E+00 + 4.28988E-02 1.19814E-02 4.46102E-02 1.25297E-02 9.93789E-01 + 2.04251E-03 5.37881E-03 5.51874E-03 1.89220E+02 -3.10908E+01 + 1.82031E+02 -2.99809E+01 2.54295E+01 -4.41938E+00 2.54077E+01 + -4.40701E+00 4.28357E-02 1.17631E-02 4.45267E-02 1.22411E-02 + 9.93809E-01 2.10903E-03 5.47405E-03 5.84811E-03 1.89581E+02 + -2.96512E+01 1.82446E+02 -2.83252E+01 2.54963E+01 -4.15289E+00 + 2.54745E+01 -4.14037E+00 4.27764E-02 1.15265E-02 4.44501E-02 + 1.19356E-02 9.93825E-01 2.17394E-03 5.56180E-03 6.19824E-03 + 1.89875E+02 -2.82642E+01 1.82782E+02 -2.67398E+01 2.55507E+01 + -3.89634E+00 2.55289E+01 -3.88363E+00 4.27240E-02 1.12797E-02 + 4.43834E-02 1.16208E-02 9.93836E-01 2.22963E-03 5.64075E-03 + 6.57052E-03 1.90106E+02 -2.69279E+01 1.83046E+02 -2.52235E+01 + 2.55935E+01 -3.64935E+00 2.55718E+01 -3.63634E+00 4.26779E-02 + 1.10138E-02 4.43257E-02 1.12882E-02 9.93846E-01 2.28681E-03 + 5.70945E-03 6.96651E-03 1.90280E+02 -2.56390E+01 1.83241E+02 + -2.37727E+01 2.56256E+01 -3.41180E+00 2.56039E+01 -3.39879E+00 + 4.26418E-02 1.07459E-02 4.42809E-02 1.09562E-02 9.93853E-01 + 2.33786E-03 5.76633E-03 7.38790E-03 1.90400E+02 -2.44033E+01 + 1.83375E+02 -2.23889E+01 2.56476E+01 -3.18340E+00 2.56259E+01 + -3.17024E+00 4.26138E-02 1.04561E-02 4.42468E-02 1.06028E-02 + 9.93858E-01 2.38580E-03 5.80956E-03 7.83631E-03 1.90468E+02 + -2.32175E+01 1.83451E+02 -2.10721E+01 2.56603E+01 -2.96388E+00 + 2.56386E+01 -2.95072E+00 4.25953E-02 1.01359E-02 4.42247E-02 + 1.02211E-02 9.93860E-01 2.42751E-03 5.83719E-03 8.31377E-03 + 1.90490E+02 -2.20762E+01 1.83475E+02 -1.98124E+01 2.56644E+01 + -2.75299E+00 2.56427E+01 -2.73978E+00 4.25892E-02 9.81996E-03 + 4.42175E-02 9.84576E-03 9.93861E-01 2.46775E-03 5.84701E-03 + 8.82228E-03 1.90471E+02 -2.11002E+01 1.83455E+02 -1.87296E+01 + 2.56605E+01 -2.55089E+00 2.56388E+01 -2.53763E+00 4.26070E-02 + 8.89493E-03 4.42368E-02 8.84178E-03 9.93860E-01 2.49709E-03 + 5.83659E-03 9.36399E-03 1.90412E+02 -2.00650E+01 1.83389E+02 + -1.76009E+01 2.56493E+01 -2.35662E+00 2.56276E+01 -2.34346E+00 + 4.26309E-02 8.48007E-03 4.42641E-02 8.36952E-03 9.93859E-01 + 2.52805E-03 5.80324E-03 9.94126E-03 1.90316E+02 -1.90720E+01 + 1.83286E+02 -1.65257E+01 2.56314E+01 -2.17050E+00 2.56097E+01 + -2.15744E+00 4.26703E-02 8.07149E-03 4.43087E-02 7.90662E-03 + 9.93856E-01 2.55430E-03 5.74396E-03 1.05566E-02 1.90188E+02 + -1.81230E+01 1.83148E+02 -1.55042E+01 2.56073E+01 -1.99231E+00 + 2.55857E+01 -1.97934E+00 4.27280E-02 7.64387E-03 4.43734E-02 + 7.42662E-03 9.93853E-01 2.57753E-03 5.65547E-03 1.12126E-02 + 1.90031E+02 -1.72195E+01 1.82981E+02 -1.45394E+01 2.55777E+01 + -1.82158E+00 2.55561E+01 -1.80862E+00 4.28081E-02 7.18195E-03 + 4.44622E-02 6.91445E-03 9.93850E-01 2.59605E-03 5.53413E-03 + 1.19123E-02 1.89849E+02 -1.63596E+01 1.82786E+02 -1.36236E+01 + 2.55431E+01 -1.65842E+00 2.55215E+01 -1.64571E+00 4.29053E-02 + 6.72358E-03 4.45696E-02 6.40777E-03 9.93847E-01 2.60845E-03 + 5.37588E-03 1.26589E-02 1.89644E+02 -1.55401E+01 1.82570E+02 + -1.27578E+01 2.55040E+01 -1.50215E+00 2.54824E+01 -1.48954E+00 + 4.30274E-02 6.23607E-03 4.47033E-02 5.87406E-03 9.93844E-01 + 2.62233E-03 5.17632E-03 1.34554E-02 1.89419E+02 -1.47632E+01 + 1.82334E+02 -1.19441E+01 2.54609E+01 -1.35319E+00 2.54394E+01 + -1.34072E+00 4.31728E-02 5.73285E-03 4.48613E-02 5.32775E-03 + 9.93842E-01 2.62546E-03 4.93056E-03 1.43056E-02 1.89178E+02 + -1.40258E+01 1.82083E+02 -1.11770E+01 2.54143E+01 -1.21074E+00 + 2.53928E+01 -1.19847E+00 4.33465E-02 5.20289E-03 4.50484E-02 + 4.75642E-03 9.93840E-01 2.63319E-03 4.63318E-03 1.52132E-02 + 1.88923E+02 -1.33310E+01 1.81819E+02 -1.04553E+01 2.53646E+01 + -1.07511E+00 2.53432E+01 -1.06294E+00 4.35471E-02 4.65489E-03 + 4.52638E-02 4.16833E-03 9.93842E-01 2.62852E-03 4.27827E-03 + 1.61825E-02 1.88585E+02 -1.24963E+01 1.81474E+02 -9.60400E+00 + 2.53123E+01 -9.45932E-01 2.52910E+01 -9.33958E-01 4.34073E-02 + 5.00034E-03 4.51272E-02 4.50584E-03 9.93841E-01 2.63319E-03 + 3.85928E-03 1.72177E-02 1.88193E+02 -1.16111E+01 1.81076E+02 + -8.70615E+00 2.52575E+01 -8.22423E-01 2.52363E+01 -8.10697E-01 + 4.30550E-02 5.79521E-03 4.47720E-02 5.30710E-03 9.93841E-01 + 2.63161E-03 3.36902E-03 1.83237E-02 1.87901E+02 -1.10048E+01 + 1.80781E+02 -8.09233E+00 2.52013E+01 -7.05664E-01 2.51801E+01 + -6.94136E-01 4.32840E-02 5.31992E-03 4.50162E-02 4.80039E-03 + 9.93846E-01 2.62082E-03 2.79956E-03 1.95056E-02 1.87604E+02 + -1.04335E+01 1.80482E+02 -7.51868E+00 2.51434E+01 -5.94330E-01 + 2.51223E+01 -5.82950E-01 4.35466E-02 4.81512E-03 4.52943E-02 + 4.26593E-03 9.93852E-01 2.60842E-03 2.14226E-03 2.07688E-02 + 1.87303E+02 -9.89493E+00 1.80183E+02 -6.98361E+00 2.50844E+01 + -4.88750E-01 2.50634E+01 -4.77667E-01 4.38326E-02 4.30358E-03 + 4.55951E-02 3.72761E-03 9.93858E-01 2.59608E-03 1.38767E-03 + 2.21188E-02 1.87002E+02 -9.39211E+00 1.79886E+02 -6.48676E+00 + 2.50246E+01 -3.88699E-01 2.50038E+01 -3.77765E-01 4.41566E-02 + 3.76120E-03 4.59348E-02 3.15915E-03 9.93872E-01 2.57440E-03 + 5.25003E-04 2.35627E-02 1.86702E+02 -8.92080E+00 1.79593E+02 + -6.02570E+00 2.49644E+01 -2.94002E-01 2.49437E+01 -2.83364E-01 + 4.45142E-02 3.19901E-03 4.63075E-02 2.57308E-03 9.93883E-01 + 2.55588E-03 -4.56904E-04 2.51065E-02 1.86404E+02 -8.47816E+00 + 1.79303E+02 -5.59616E+00 2.49039E+01 -2.04295E-01 2.48833E+01 + -1.93855E-01 4.48910E-02 2.64050E-03 4.66988E-02 1.99304E-03 + 9.93902E-01 2.53111E-03 -1.57083E-03 2.67578E-02 1.85689E+02 + -7.47642E+00 1.78601E+02 -4.61180E+00 2.48434E+01 -1.19491E-01 + 2.48230E+01 -1.09199E-01 4.30839E-02 5.17448E-03 4.48464E-02 + 4.59069E-03 9.93909E-01 2.51877E-03 -2.83065E-03 2.85245E-02 + 1.85353E+02 -7.02953E+00 1.78280E+02 -4.18510E+00 2.47832E+01 + -3.94839E-02 2.47631E+01 -2.94893E-02 4.32783E-02 4.91587E-03 + 4.50503E-02 4.31952E-03 9.93928E-01 2.49558E-03 -4.25134E-03 + 3.04145E-02 1.85049E+02 -6.64430E+00 1.77994E+02 -3.82247E+00 + 2.47238E+01 3.57726E-02 2.47037E+01 4.55692E-02 4.36309E-02 + 4.46964E-03 4.54154E-02 3.85735E-03 9.93953E-01 2.46308E-03 + -5.84971E-03 3.24372E-02 1.84752E+02 -6.28616E+00 1.77718E+02 + -3.49042E+00 2.46651E+01 1.06527E-01 2.46453E+01 1.16077E-01 + 4.40198E-02 4.00042E-03 4.58160E-02 3.37402E-03 9.93976E-01 + 2.43528E-03 -7.64401E-03 3.46023E-02 1.84464E+02 -5.95399E+00 + 1.77455E+02 -3.18599E+00 2.46073E+01 1.73173E-01 2.45877E+01 + 1.82425E-01 4.44393E-02 3.51671E-03 4.62469E-02 2.87726E-03 + 9.94004E-01 2.40278E-03 -9.65377E-03 3.69195E-02 1.84073E+02 + -5.52261E+00 1.77090E+02 -2.78347E+00 2.45507E+01 2.35617E-01 + 2.45313E+01 2.44721E-01 4.42914E-02 3.68007E-03 4.60952E-02 + 3.04458E-03 9.94035E-01 2.36879E-03 -1.19014E-02 3.94007E-02 + 1.83182E+02 -4.57850E+00 1.76229E+02 -1.87185E+00 2.44954E+01 + 2.94246E-01 2.44761E+01 3.03152E-01 4.14566E-02 6.68175E-03 + 4.31929E-02 6.11778E-03 9.94053E-01 2.35021E-03 -1.44104E-02 + 4.20573E-02 1.82887E+02 -4.27852E+00 1.75966E+02 -1.60390E+00 + 2.44417E+01 3.48874E-01 2.44227E+01 3.57533E-01 4.17528E-02 + 6.38033E-03 4.34977E-02 5.80775E-03 9.94092E-01 2.31158E-03 + -1.72070E-02 4.49024E-02 1.82600E+02 -3.99743E+00 1.75716E+02 + -1.35926E+00 2.43895E+01 3.99931E-01 2.43708E+01 4.08293E-01 + 4.20754E-02 6.06453E-03 4.38274E-02 5.48500E-03 9.94128E-01 + 2.27599E-03 -2.03199E-02 4.79497E-02 1.82326E+02 -3.73900E+00 + 1.75479E+02 -1.13563E+00 2.43392E+01 4.47386E-01 2.43207E+01 + 4.55649E-01 4.24298E-02 5.73024E-03 4.41889E-02 5.14404E-03 + 9.94171E-01 2.23582E-03 -2.37800E-02 5.12138E-02 1.82326E+02 + -3.73900E+00 1.75479E+02 -1.13563E+00 2.43392E+01 4.47386E-01 + 2.43207E+01 4.55649E-01 4.24298E-02 5.73024E-03 4.41889E-02 + 5.14404E-03 9.94171E-01 2.23582E-03 -2.37800E-02 5.12138E-02 + 1.83900E-03 1.69413E+02 2.69387E+01 + 2.91955E-04 4.43341E-05 0.00000E+00 0.00000E+00 1.42736E-02 + 2.29679E-03 2.91955E-04 4.43341E-05 0.00000E+00 0.00000E+00 + 1.42736E-02 2.29679E-03 3.19547E-04 4.88005E-05 0.00000E+00 + 0.00000E+00 5.95153E-03 9.49622E-04 3.49784E-04 5.37248E-05 + 0.00000E+00 0.00000E+00 -3.96366E-03 -6.65135E-04 3.82531E-04 + 5.90903E-05 0.00000E+00 0.00000E+00 1.04300E-03 1.55193E-04 + 4.18611E-04 6.50381E-05 0.00000E+00 0.00000E+00 -4.76589E-03 + -8.02403E-04 4.57580E-04 7.15017E-05 0.00000E+00 0.00000E+00 + 6.95288E-03 1.14133E-03 5.00678E-04 7.86946E-05 0.00000E+00 + 0.00000E+00 1.22205E-03 1.84897E-04 5.47401E-04 8.65408E-05 + 0.00000E+00 0.00000E+00 8.14760E-03 1.34793E-03 5.99223E-04 + 9.52981E-05 0.00000E+00 0.00000E+00 -5.41585E-03 -9.44113E-04 + 6.54950E-04 1.04775E-04 0.00000E+00 0.00000E+00 5.23783E-03 + 8.67579E-04 7.19378E-04 1.15800E-04 0.00000E+00 0.00000E+00 + 1.77128E-03 2.74337E-04 8.25025E-04 1.33996E-04 0.00000E+00 + 0.00000E+00 6.25420E-03 1.04642E-03 9.07033E-04 1.48211E-04 + 0.00000E+00 0.00000E+00 2.43010E-03 3.83565E-04 9.96340E-04 + 1.63791E-04 0.00000E+00 0.00000E+00 1.20932E-02 2.06937E-03 + 1.09596E-03 1.81283E-04 0.00000E+00 0.00000E+00 -1.63041E-03 + -3.40429E-04 1.20418E-03 2.00411E-04 0.00000E+00 0.00000E+00 + 3.24897E-03 5.21989E-04 1.32287E-03 2.21528E-04 0.00000E+00 + 0.00000E+00 9.08659E-03 1.56059E-03 1.45364E-03 2.44949E-04 + 0.00000E+00 0.00000E+00 1.00243E-02 1.72853E-03 1.61894E-03 + 2.74751E-04 0.00000E+00 0.00000E+00 -1.52514E-03 -3.53793E-04 + 1.82589E-03 3.12315E-04 0.00000E+00 0.00000E+00 1.15415E-02 + 2.01794E-03 2.01446E-03 3.46776E-04 0.00000E+00 0.00000E+00 + 9.20244E-03 1.59050E-03 2.22197E-03 3.84955E-04 0.00000E+00 + 0.00000E+00 1.00521E-02 1.74684E-03 2.45075E-03 4.27339E-04 + 0.00000E+00 0.00000E+00 1.09719E-02 1.91723E-03 2.70216E-03 + 4.74235E-04 0.00000E+00 0.00000E+00 1.62516E-02 2.90210E-03 + 2.98472E-03 5.27312E-04 0.00000E+00 0.00000E+00 8.83104E-03 + 1.50823E-03 3.29940E-03 5.86836E-04 0.00000E+00 0.00000E+00 + 9.41807E-03 1.61927E-03 3.63854E-03 6.51440E-04 0.00000E+00 + 0.00000E+00 1.51517E-02 2.71151E-03 4.01270E-03 7.23225E-04 + 0.00000E+00 0.00000E+00 1.92273E-02 3.49341E-03 4.42647E-03 + 8.03176E-04 0.00000E+00 0.00000E+00 1.81611E-02 3.28739E-03 + 4.92023E-03 8.99275E-04 0.00000E+00 0.00000E+00 1.99069E-02 + 3.62716E-03 5.49283E-03 1.01153E-03 0.00000E+00 0.00000E+00 + 2.19112E-02 4.02010E-03 6.06654E-03 1.12482E-03 0.00000E+00 + 0.00000E+00 3.08294E-02 5.78124E-03 6.70563E-03 1.25196E-03 + 0.00000E+00 0.00000E+00 2.64926E-02 4.91851E-03 7.40644E-03 + 1.39242E-03 0.00000E+00 0.00000E+00 3.27432E-02 6.17124E-03 + 8.18394E-03 1.54941E-03 0.00000E+00 0.00000E+00 3.15858E-02 + 5.93752E-03 9.03739E-03 1.72304E-03 0.00000E+00 0.00000E+00 + 3.87589E-02 7.39684E-03 9.98133E-03 1.91654E-03 0.00000E+00 + 0.00000E+00 4.23102E-02 8.12484E-03 1.11337E-02 2.15457E-03 + 0.00000E+00 0.00000E+00 4.40822E-02 8.49087E-03 1.23663E-02 + 2.41115E-03 0.00000E+00 0.00000E+00 5.36325E-02 1.04789E-02 + 1.36807E-02 2.68689E-03 0.00000E+00 0.00000E+00 5.29345E-02 + 1.03324E-02 1.51147E-02 2.99008E-03 0.00000E+00 0.00000E+00 + 6.98003E-02 1.38983E-02 1.67239E-02 3.33300E-03 0.00000E+00 + 0.00000E+00 6.35590E-02 1.25683E-02 1.84746E-02 3.70905E-03 + 0.00000E+00 0.00000E+00 7.94249E-02 1.59763E-02 2.07550E-02 + 4.20282E-03 0.00000E+00 0.00000E+00 8.82490E-02 1.78869E-02 + 2.31814E-02 4.73245E-03 0.00000E+00 0.00000E+00 9.74551E-02 + 1.98964E-02 2.56893E-02 5.28434E-03 0.00000E+00 0.00000E+00 + 1.02486E-01 2.10035E-02 2.84369E-02 5.89397E-03 0.00000E+00 + 0.00000E+00 1.20836E-01 2.50750E-02 3.15047E-02 6.58029E-03 + 0.00000E+00 0.00000E+00 1.25161E-01 2.60425E-02 3.48611E-02 + 7.33746E-03 0.00000E+00 0.00000E+00 1.44193E-01 3.03361E-02 + 3.85901E-02 8.18581E-03 0.00000E+00 0.00000E+00 1.54927E-01 + 3.27779E-02 4.26806E-02 9.12430E-03 0.00000E+00 0.00000E+00 + 1.74856E-01 3.73503E-02 4.71844E-02 1.01665E-02 0.00000E+00 + 0.00000E+00 1.97146E-01 4.25084E-02 5.21911E-02 1.13351E-02 + 0.00000E+00 0.00000E+00 2.08920E-01 4.52565E-02 5.76387E-02 + 1.26178E-02 0.00000E+00 0.00000E+00 2.38210E-01 5.21528E-02 + 6.44444E-02 1.42343E-02 0.00000E+00 0.00000E+00 2.59426E-01 + 5.71923E-02 7.15539E-02 1.59380E-02 0.00000E+00 0.00000E+00 + 2.88341E-01 6.41214E-02 7.90815E-02 1.77581E-02 0.00000E+00 + 0.00000E+00 3.18869E-01 7.15028E-02 8.73450E-02 1.97743E-02 + 0.00000E+00 0.00000E+00 3.52283E-01 7.96552E-02 9.64236E-02 + 2.20095E-02 0.00000E+00 0.00000E+00 3.86418E-01 8.80595E-02 + 1.06371E-01 2.44813E-02 0.00000E+00 0.00000E+00 4.23370E-01 + 9.72414E-02 1.17200E-01 2.71971E-02 0.00000E+00 0.00000E+00 + 4.68622E-01 1.08590E-01 1.29101E-01 3.02098E-02 0.00000E+00 + 0.00000E+00 5.09563E-01 1.18955E-01 1.44482E-01 3.41404E-02 + 0.00000E+00 0.00000E+00 5.72354E-01 1.35001E-01 1.59167E-01 + 3.79293E-02 0.00000E+00 0.00000E+00 6.25672E-01 1.48757E-01 + 1.75011E-01 4.20566E-02 0.00000E+00 0.00000E+00 6.85878E-01 + 1.64440E-01 1.92141E-01 4.65625E-02 0.00000E+00 0.00000E+00 + 7.52363E-01 1.81929E-01 2.10626E-01 5.14726E-02 0.00000E+00 + 0.00000E+00 8.23764E-01 2.00895E-01 2.30639E-01 5.68418E-02 + 0.00000E+00 0.00000E+00 8.94247E-01 2.19804E-01 2.51987E-01 + 6.26264E-02 0.00000E+00 0.00000E+00 9.74848E-01 2.41645E-01 + 2.74895E-01 6.88970E-02 0.00000E+00 0.00000E+00 1.05594E+00 + 2.63844E-01 2.99151E-01 7.56047E-02 0.00000E+00 0.00000E+00 + 1.14550E+00 2.88609E-01 3.24800E-01 8.27712E-02 0.00000E+00 + 0.00000E+00 1.23934E+00 3.14829E-01 3.52204E-01 9.05084E-02 + 0.00000E+00 0.00000E+00 1.33304E+00 3.41285E-01 3.84987E-01 + 9.98625E-02 0.00000E+00 0.00000E+00 1.45712E+00 3.76687E-01 + 4.15322E-01 1.08610E-01 0.00000E+00 0.00000E+00 1.55984E+00 + 4.06309E-01 4.46483E-01 1.17694E-01 0.00000E+00 0.00000E+00 + 1.66800E+00 4.37838E-01 4.78385E-01 1.27095E-01 0.00000E+00 + 0.00000E+00 1.77691E+00 4.69933E-01 5.10871E-01 1.36774E-01 + 0.00000E+00 0.00000E+00 1.88399E+00 5.01838E-01 5.43216E-01 + 1.46519E-01 0.00000E+00 0.00000E+00 1.99348E+00 5.34827E-01 + 5.75697E-01 1.56416E-01 0.00000E+00 0.00000E+00 2.09557E+00 + 5.65933E-01 6.07015E-01 1.66067E-01 0.00000E+00 0.00000E+00 + 2.19640E+00 5.97004E-01 6.37127E-01 1.75455E-01 0.00000E+00 + 0.00000E+00 2.28830E+00 6.25655E-01 6.66304E-01 1.84657E-01 + 0.00000E+00 0.00000E+00 2.37412E+00 6.52722E-01 6.93260E-01 + 1.93259E-01 0.00000E+00 0.00000E+00 2.45351E+00 6.78057E-01 + 7.18854E-01 2.01525E-01 0.00000E+00 0.00000E+00 2.51641E+00 + 6.98370E-01 7.41053E-01 2.08781E-01 0.00000E+00 0.00000E+00 + 2.57316E+00 7.16919E-01 7.61557E-01 2.15566E-01 0.00000E+00 + 0.00000E+00 2.62037E+00 7.32542E-01 7.80768E-01 2.22001E-01 + 0.00000E+00 0.00000E+00 2.65944E+00 7.45630E-01 7.93723E-01 + 2.26396E-01 0.00000E+00 0.00000E+00 2.67603E+00 7.51258E-01 + 8.03429E-01 2.29730E-01 0.00000E+00 0.00000E+00 2.67787E+00 + 7.51889E-01 8.09777E-01 2.31940E-01 0.00000E+00 0.00000E+00 + 2.66598E+00 7.47754E-01 8.14635E-01 2.33652E-01 0.00000E+00 + 0.00000E+00 2.65125E+00 7.42559E-01 8.17948E-01 2.34836E-01 + 0.00000E+00 0.00000E+00 2.62858E+00 7.34460E-01 8.14627E-01 + 2.33633E-01 0.00000E+00 0.00000E+00 2.58013E+00 7.16923E-01 + 8.08370E-01 2.31337E-01 0.00000E+00 0.00000E+00 2.52272E+00 + 6.95857E-01 7.99495E-01 2.28035E-01 0.00000E+00 0.00000E+00 + 2.45779E+00 6.71700E-01 7.88997E-01 2.24076E-01 0.00000E+00 + 0.00000E+00 2.38592E+00 6.44591E-01 7.76934E-01 2.19461E-01 + 0.00000E+00 0.00000E+00 2.30941E+00 6.15319E-01 7.63441E-01 + 2.14224E-01 0.00000E+00 0.00000E+00 2.23020E+00 5.84576E-01 + 7.56175E-01 2.11363E-01 0.00000E+00 0.00000E+00 2.17183E+00 + 5.61592E-01 7.45193E-01 2.06974E-01 0.00000E+00 0.00000E+00 + 2.09990E+00 5.32850E-01 7.29228E-01 2.00499E-01 0.00000E+00 + 0.00000E+00 2.01540E+00 4.98576E-01 7.13702E-01 1.94105E-01 + 0.00000E+00 0.00000E+00 1.93266E+00 4.64500E-01 6.98829E-01 + 1.87885E-01 0.00000E+00 0.00000E+00 1.85268E+00 4.31051E-01 + 6.84675E-01 1.81872E-01 0.00000E+00 0.00000E+00 1.77630E+00 + 3.98603E-01 6.70028E-01 1.75551E-01 0.00000E+00 0.00000E+00 + 1.70090E+00 3.66060E-01 6.57378E-01 1.70001E-01 0.00000E+00 + 0.00000E+00 1.63163E+00 3.35679E-01 6.45916E-01 1.64890E-01 + 0.00000E+00 0.00000E+00 1.56937E+00 3.07912E-01 6.35964E-01 + 1.60378E-01 0.00000E+00 0.00000E+00 1.51151E+00 2.81680E-01 + 6.26859E-01 1.56179E-01 0.00000E+00 0.00000E+00 1.45833E+00 + 2.57153E-01 6.18935E-01 1.52461E-01 0.00000E+00 0.00000E+00 + 1.40958E+00 2.34281E-01 6.12095E-01 1.49195E-01 0.00000E+00 + 0.00000E+00 1.36514E+00 2.13061E-01 6.06183E-01 1.46320E-01 + 0.00000E+00 0.00000E+00 1.32483E+00 1.93463E-01 6.01173E-01 + 1.43840E-01 0.00000E+00 0.00000E+00 1.28838E+00 1.75418E-01 + 5.97333E-01 1.41904E-01 0.00000E+00 0.00000E+00 1.25549E+00 + 1.58832E-01 5.94110E-01 1.40247E-01 0.00000E+00 0.00000E+00 + 1.22600E+00 1.43671E-01 5.88583E-01 1.37352E-01 0.00000E+00 + 0.00000E+00 1.19017E+00 1.24897E-01 5.86189E-01 1.36072E-01 + 0.00000E+00 0.00000E+00 1.16457E+00 1.11217E-01 5.85977E-01 + 1.35956E-01 0.00000E+00 0.00000E+00 1.14565E+00 1.00908E-01 + 5.86204E-01 1.36082E-01 0.00000E+00 0.00000E+00 1.12875E+00 + 9.15025E-02 5.87016E-01 1.36544E-01 0.00000E+00 0.00000E+00 + 1.11365E+00 8.29234E-02 5.88158E-01 1.37206E-01 0.00000E+00 + 0.00000E+00 1.10021E+00 7.51182E-02 5.89656E-01 1.38096E-01 + 0.00000E+00 0.00000E+00 1.08824E+00 6.80202E-02 5.91599E-01 + 1.39274E-01 0.00000E+00 0.00000E+00 1.07761E+00 6.15743E-02 + 5.93566E-01 1.40495E-01 0.00000E+00 0.00000E+00 1.06761E+00 + 5.53684E-02 5.96066E-01 1.42082E-01 0.00000E+00 0.00000E+00 + 1.05932E+00 5.01066E-02 5.98858E-01 1.43899E-01 0.00000E+00 + 0.00000E+00 1.05201E+00 4.53506E-02 6.01793E-01 1.45855E-01 + 0.00000E+00 0.00000E+00 1.04555E+00 4.10442E-02 6.04964E-01 + 1.48022E-01 0.00000E+00 0.00000E+00 1.03983E+00 3.71344E-02 + 6.08242E-01 1.50321E-01 0.00000E+00 0.00000E+00 1.03479E+00 + 3.35971E-02 6.11702E-01 1.52813E-01 0.00000E+00 0.00000E+00 + 1.03034E+00 3.03954E-02 6.15265E-01 1.55448E-01 0.00000E+00 + 0.00000E+00 1.02642E+00 2.74939E-02 6.18918E-01 1.58227E-01 + 0.00000E+00 0.00000E+00 1.02297E+00 2.48703E-02 6.22669E-01 + 1.61163E-01 0.00000E+00 0.00000E+00 1.01994E+00 2.24984E-02 + 6.26463E-01 1.64223E-01 0.00000E+00 0.00000E+00 1.01725E+00 + 2.03278E-02 6.29849E-01 1.67037E-01 0.00000E+00 0.00000E+00 + 1.01384E+00 1.74922E-02 6.33834E-01 1.70453E-01 0.00000E+00 + 0.00000E+00 1.01198E+00 1.59026E-02 6.37841E-01 1.74003E-01 + 0.00000E+00 0.00000E+00 1.01036E+00 1.44623E-02 6.41823E-01 + 1.77650E-01 0.00000E+00 0.00000E+00 1.00892E+00 1.31440E-02 + 6.45846E-01 1.81463E-01 0.00000E+00 0.00000E+00 1.00767E+00 + 1.19558E-02 6.49841E-01 1.85390E-01 0.00000E+00 0.00000E+00 + 1.00656E+00 1.08720E-02 6.53810E-01 1.89437E-01 0.00000E+00 + 0.00000E+00 1.00560E+00 9.88773E-03 6.57704E-01 1.93565E-01 + 0.00000E+00 0.00000E+00 1.00461E+00 8.84726E-03 6.61464E-01 + 1.97714E-01 0.00000E+00 0.00000E+00 1.00358E+00 7.70241E-03 + 6.65386E-01 2.02227E-01 0.00000E+00 0.00000E+00 1.00301E+00 + 7.05051E-03 6.69239E-01 2.06858E-01 0.00000E+00 0.00000E+00 + 1.00251E+00 6.44990E-03 6.73042E-01 2.11642E-01 0.00000E+00 + 0.00000E+00 1.00207E+00 5.89764E-03 6.76766E-01 2.16557E-01 + 0.00000E+00 0.00000E+00 1.00170E+00 5.40148E-03 6.80389E-01 + 2.21584E-01 0.00000E+00 0.00000E+00 1.00128E+00 4.82344E-03 + 6.83850E-01 2.26647E-01 0.00000E+00 0.00000E+00 1.00079E+00 + 4.11213E-03 6.87359E-01 2.32076E-01 0.00000E+00 0.00000E+00 + 1.00059E+00 3.79420E-03 6.90761E-01 2.37659E-01 0.00000E+00 + 0.00000E+00 1.00041E+00 3.50518E-03 6.94060E-01 2.43425E-01 + 0.00000E+00 0.00000E+00 1.00026E+00 3.23222E-03 6.97198E-01 + 2.49290E-01 0.00000E+00 0.00000E+00 1.00006E+00 2.87415E-03 + 7.00197E-01 2.55313E-01 0.00000E+00 0.00000E+00 9.99863E-01 + 2.46952E-03 7.03112E-01 2.61640E-01 0.00000E+00 0.00000E+00 + 9.99784E-01 2.29772E-03 7.05880E-01 2.68171E-01 0.00000E+00 + 0.00000E+00 9.99717E-01 2.14197E-03 7.08478E-01 2.74892E-01 + 0.00000E+00 0.00000E+00 9.99661E-01 1.99583E-03 7.10907E-01 + 2.81844E-01 0.00000E+00 0.00000E+00 9.99612E-01 1.85455E-03 + 7.13143E-01 2.89003E-01 0.00000E+00 0.00000E+00 9.99574E-01 + 1.73252E-03 7.15177E-01 2.96394E-01 0.00000E+00 0.00000E+00 + 9.99540E-01 1.61049E-03 7.16981E-01 3.03973E-01 0.00000E+00 + 0.00000E+00 9.99497E-01 1.42905E-03 7.18558E-01 3.11820E-01 + 0.00000E+00 0.00000E+00 9.99469E-01 1.28935E-03 7.19890E-01 + 3.19953E-01 0.00000E+00 0.00000E+00 9.99455E-01 1.20425E-03 + 7.20955E-01 3.28354E-01 0.00000E+00 0.00000E+00 9.99446E-01 + 1.13521E-03 7.21731E-01 3.37018E-01 0.00000E+00 0.00000E+00 + 9.99440E-01 1.05974E-03 7.22201E-01 3.45966E-01 0.00000E+00 + 0.00000E+00 9.99436E-01 9.97123E-04 7.22507E-01 3.65926E-01 + 0.00000E+00 0.00000E+00 9.99660E-01 1.55991E-02 7.22674E-01 + 3.58266E-01 -1.76680E-04 8.11345E-03 1.00000E+00 0.00000E+00 + 7.22118E-01 3.67691E-01 -1.94025E-04 8.40794E-03 1.00000E+00 + 0.00000E+00 7.21185E-01 3.77409E-01 -2.23740E-04 8.71741E-03 + 1.00000E+00 0.00000E+00 7.19852E-01 3.87425E-01 -2.66580E-04 + 9.03917E-03 1.00000E+00 0.00000E+00 7.18096E-01 3.97740E-01 + -3.23535E-04 9.37369E-03 1.00000E+00 0.00000E+00 7.15889E-01 + 4.08380E-01 -3.95668E-04 9.72151E-03 1.00000E+00 0.00000E+00 + 7.13209E-01 4.19342E-01 -4.84101E-04 1.00832E-02 1.00000E+00 + 0.00000E+00 7.10026E-01 4.30641E-01 -5.90006E-04 1.04592E-02 + 1.00000E+00 0.00000E+00 7.06316E-01 4.42281E-01 -7.14643E-04 + 1.08503E-02 1.00000E+00 0.00000E+00 7.02048E-01 4.54274E-01 + -8.59345E-04 1.12569E-02 1.00000E+00 0.00000E+00 7.03879E-01 + 4.49616E-01 -8.44415E-03 3.05572E-02 1.00000E+00 0.00000E+00 + 7.02827E-01 4.52061E-01 -1.31144E-02 4.14154E-02 1.00000E+00 + -1.60567E-06 6.97686E-01 4.63064E-01 -1.38275E-02 4.29417E-02 + 9.99998E-01 1.60565E-06 6.92015E-01 4.74309E-01 -1.46249E-02 + 4.45227E-02 1.00000E+00 0.00000E+00 6.85797E-01 4.85791E-01 + -1.55115E-02 4.61601E-02 1.00000E+00 0.00000E+00 6.79007E-01 + 4.97527E-01 -1.64924E-02 4.78553E-02 1.00000E+00 0.00000E+00 + 6.71630E-01 5.09509E-01 -1.75728E-02 4.96101E-02 1.00000E+00 + -1.60567E-06 6.63642E-01 5.21744E-01 -1.87583E-02 5.14259E-02 + 9.99998E-01 1.60567E-06 6.77830E-01 5.01182E-01 -4.14893E-02 + 8.43714E-02 1.00000E+00 0.00000E+00 6.72746E-01 5.08173E-01 + -4.57781E-02 9.02700E-02 1.00000E+00 0.00000E+00 6.65057E-01 + 5.18234E-01 -4.81580E-02 9.33843E-02 1.00000E+00 0.00000E+00 + 6.56951E-01 5.28350E-01 -5.07224E-02 9.65845E-02 1.00000E+00 + 0.00000E+00 6.48435E-01 5.38507E-01 -5.34785E-02 9.98716E-02 + 1.00000E+00 0.00000E+00 6.39505E-01 5.48706E-01 -5.64333E-02 + 1.03246E-01 1.00000E+00 0.00000E+00 6.30175E-01 5.58928E-01 + -5.95926E-02 1.06708E-01 1.00000E+00 -1.60567E-06 6.20464E-01 + 5.69153E-01 -6.29628E-02 1.10256E-01 9.99998E-01 1.60567E-06 + 6.10384E-01 5.79368E-01 -6.65495E-02 1.13890E-01 1.00000E+00 + 0.00000E+00 5.99950E-01 5.89555E-01 -7.03584E-02 1.17610E-01 + 1.00000E+00 -1.60567E-06 5.89182E-01 5.99703E-01 -7.43948E-02 + 1.21413E-01 9.99997E-01 1.60567E-06 6.24716E-01 5.67348E-01 + -1.13000E-01 1.56564E-01 1.00000E+00 -1.60567E-06 6.24716E-01 + 5.67348E-01 -1.13000E-01 1.56564E-01 1.00000E+00 -1.60567E-06 + MEDIUM=WATER-3MEV-10KEV-02KEV ,STERNCID=WATER-3MEV-10KEV-02KEV + COMP,RHO= 1.0000E+00,NE= 2 + ASYM=H ,Z= 1.,A= 1.008,PZ= 1.00000E+00,RHOZ= 1.00797E+00 + ASYM=O ,Z= 8.,A= 15.999,PZ= 2.00000E+00,RHOZ= 3.19988E+01 + 3.47257E+01 5.21000E-01 2.00000E-03 3.51100E+00 3.00200E+00 + 0 200 0 150 0 0 0 0 + 9.99982E-01 -2.11119E-01 4.84469E-02 9.95866E-01 -2.26609E-01 + 9.52000E-01 1.00022E+00 -1.78818E-01 3.44729E-02 1.01418E+00 + -2.30775E-01 9.52000E-01 1.00034E+00 -1.62218E-01 2.48977E-02 + 1.02358E+00 -2.32916E-01 9.52000E-01 9.99982E-01 -2.11303E-01 + 4.84892E-02 9.95862E-01 -2.26807E-01 9.52000E-01 1.00022E+00 + -1.78977E-01 3.45035E-02 1.01419E+00 -2.30980E-01 9.52000E-01 + 1.00034E+00 -1.62363E-01 2.49200E-02 1.02361E+00 -2.33125E-01 + 9.52000E-01 + 3.50958E+01 9.41188E-01 8.53748E-01 2.28129E+00 9.41203E-01 + 8.53745E-01 2.27242E+00 + 9.14548E-02 7.71165E-05 2.59397E+05 4.90938E+00 + 1.21501E+02 2.59409E+01 + 9.58348E+00 1.50056E+00 2.94082E+04 6.38129E+03 -1.71251E+03 + -5.22019E+02 -2.28131E+03 -6.61411E+02 1.00000E+00 0.00000E+00 + -1.83302E+01 -4.01496E+00 9.58001E+01 2.07640E+01 2.60014E-05 + 5.04571E-06 9.58348E+00 1.50056E+00 2.94082E+04 6.38129E+03 + -1.71251E+03 -5.22019E+02 -2.28131E+03 -6.61411E+02 1.00000E+00 + 0.00000E+00 -1.83302E+01 -4.01496E+00 9.58001E+01 2.07640E+01 + 2.60014E-05 5.04571E-06 9.53936E+00 1.49091E+00 2.61682E+04 + 5.67202E+03 -1.64546E+03 -5.07342E+02 -2.17918E+03 -6.39053E+02 + 1.00000E+00 0.00000E+00 -5.50955E-01 -1.22926E-01 3.86523E+00 + 6.38718E-01 2.76260E-05 5.40134E-06 9.49420E+00 1.48094E+00 + 2.32030E+04 5.01740E+03 -1.58010E+03 -4.92913E+02 -2.08048E+03 + -6.17264E+02 1.00000E+00 0.00000E+00 -1.82581E-01 -4.16000E-02 + 1.96110E+00 2.18337E-01 2.93619E-05 5.78457E-06 9.45084E+00 + 1.47128E+00 2.05300E+04 4.42221E+03 -1.51732E+03 -4.78933E+02 + -1.98641E+03 -5.96317E+02 1.00000E+00 0.00000E+00 -8.82227E-02 + -2.05895E-02 1.47390E+00 1.09855E-01 3.12133E-05 6.19683E-06 + 9.40401E+00 1.46076E+00 1.81103E+04 3.87876E+03 -1.45563E+03 + -4.65077E+02 -1.89503E+03 -5.75793E+02 1.00000E+00 0.00000E+00 + -5.01954E-02 -1.20487E-02 1.27798E+00 6.58529E-02 3.31711E-05 + 6.63654E-06 9.35659E+00 1.45002E+00 1.59324E+04 3.38534E+03 + -1.39697E+03 -4.51789E+02 -1.80868E+03 -5.56229E+02 1.00000E+00 + 0.00000E+00 -3.11381E-02 -7.73120E-03 1.18020E+00 4.36984E-02 + 3.52536E-05 7.10834E-06 9.31430E+00 1.44035E+00 1.39671E+04 + 2.93615E+03 -1.34000E+03 -4.38767E+02 -1.72554E+03 -5.37229E+02 + 1.00000E+00 0.00000E+00 -2.02055E-02 -5.23253E-03 1.12449E+00 + 3.09659E-02 3.74640E-05 7.61354E-06 9.26795E+00 1.42966E+00 + 1.22000E+04 2.52871E+03 -1.28462E+03 -4.25997E+02 -1.64550E+03 + -5.18772E+02 1.00000E+00 0.00000E+00 -1.33467E-02 -3.65100E-03 + 1.08983E+00 2.29717E-02 3.98065E-05 8.15369E-06 9.22210E+00 + 1.41900E+00 1.06118E+04 2.15920E+03 -1.23154E+03 -4.13649E+02 + -1.56934E+03 -5.01055E+02 1.00000E+00 0.00000E+00 -8.73870E-03 + -2.57895E-03 1.06683E+00 1.76252E-02 4.22996E-05 8.73371E-06 + 9.17693E+00 1.40840E+00 9.18609E+03 1.82451E+03 -1.18023E+03 + -4.01605E+02 -1.49630E+03 -4.83908E+02 1.00000E+00 0.00000E+00 + -5.47486E-03 -1.81274E-03 1.05083E+00 1.38678E-02 4.49417E-05 + 9.35396E-06 9.13276E+00 1.39793E+00 7.90638E+03 1.52134E+03 + -1.13067E+03 -3.89863E+02 -1.42631E+03 -4.67325E+02 1.00000E+00 + 0.00000E+00 -3.05859E-03 -1.24032E-03 1.03925E+00 1.11250E-02 + 4.77436E-05 1.00177E-05 9.08791E+00 1.38721E+00 6.76249E+03 + 1.24786E+03 -1.08279E+03 -3.78414E+02 -1.35923E+03 -4.51288E+02 + 1.00000E+00 0.00000E+00 -1.20822E-03 -7.97921E-04 1.03060E+00 + 9.05768E-03 5.07196E-05 1.07292E-05 9.04129E+00 1.37596E+00 + 5.73990E+03 1.00110E+03 -1.03680E+03 -3.67316E+02 -1.29524E+03 + -4.35847E+02 1.00000E+00 0.00000E+00 2.55628E-04 -4.44686E-04 + 1.02400E+00 7.46499E-03 5.38762E-05 1.14909E-05 8.99630E+00 + 1.36500E+00 4.82710E+03 7.78760E+02 -9.92134E+02 -3.56438E+02 + -1.23364E+03 -4.20844E+02 1.00000E+00 0.00000E+00 1.44853E-03 + -1.54125E-04 1.01881E+00 6.20029E-03 5.72200E-05 1.23054E-05 + 8.95282E+00 1.35431E+00 4.01497E+03 5.79075E+02 -9.49215E+02 + -3.45885E+02 -1.17486E+03 -4.06389E+02 1.00000E+00 0.00000E+00 + 2.44411E-03 9.06694E-05 1.01469E+00 5.18746E-03 6.07720E-05 + 1.31788E-05 8.90890E+00 1.34341E+00 3.29304E+03 3.99863E+02 + -9.07823E+02 -3.35610E+02 -1.11856E+03 -3.92415E+02 1.00000E+00 + 0.00000E+00 3.29417E-03 3.01686E-04 1.01136E+00 4.36030E-03 + 6.45288E-05 1.41114E-05 8.86335E+00 1.33199E+00 2.65263E+03 + 2.39355E+02 -8.68098E+02 -3.25654E+02 -1.06490E+03 -3.78966E+02 + 1.00000E+00 0.00000E+00 4.03442E-03 4.87221E-04 1.00862E+00 + 3.67222E-03 6.85169E-05 1.51109E-05 8.81951E+00 1.32090E+00 + 2.08741E+03 9.63062E+01 -8.29529E+02 -3.15893E+02 -1.01322E+03 + -3.65887E+02 1.00000E+00 0.00000E+00 4.69124E-03 6.53444E-04 + 1.00633E+00 3.09394E-03 7.27452E-05 1.61810E-05 1.33171E+04 + 3.40255E+03 1.58861E+03 -3.11690E+01 -9.28023E+02 -3.41065E+02 + -9.63850E+02 -3.53268E+02 -9.77141E+01 -2.52286E+01 5.28553E-03 + 8.05333E-04 1.00442E+00 2.60534E-03 7.72213E-05 1.73250E-05 + 1.11220E+04 2.83596E+03 1.15057E+03 -1.44236E+02 -8.75008E+02 + -3.27380E+02 -9.16823E+02 -3.41130E+02 -1.18758E+00 -3.13621E-01 + 5.82916E-03 9.45651E-04 1.00278E+00 2.18168E-03 8.19748E-05 + 1.85519E-05 9.35563E+03 2.37545E+03 7.67093E+02 -2.44212E+02 + -8.26381E+02 -3.14703E+02 -8.71534E+02 -3.29323E+02 -3.86996E-01 + -1.04900E-01 6.33359E-03 1.07716E-03 1.00140E+00 1.82142E-03 + 8.69918E-05 1.98599E-05 7.92489E+03 1.99866E+03 4.32306E+02 + -3.32380E+02 -7.81884E+02 -3.02985E+02 -8.28519E+02 -3.17994E+02 + -1.85121E-01 -5.17348E-02 6.81136E-03 1.20298E-03 1.00018E+00 + 1.49981E-03 9.23272E-05 2.12650E-05 6.75065E+03 1.68624E+03 + 1.41763E+02 -4.09684E+02 -7.40398E+02 -2.91947E+02 -7.87169E+02 + -3.06993E+02 -1.04477E-01 -3.02788E-02 7.26012E-03 1.32237E-03 + 9.99122E-01 1.21995E-03 9.79552E-05 2.27624E-05 5.78198E+03 + 1.42585E+03 -1.08792E+02 -4.77034E+02 -7.01772E+02 -2.81563E+02 + -7.47757E+02 -2.96399E+02 -6.43436E-02 -1.94905E-02 7.69443E-03 + 1.43912E-03 9.98213E-01 9.74104E-04 1.03924E-04 2.43669E-05 + 4.97347E+03 1.20624E+03 -3.23577E+02 -5.35376E+02 -6.65362E+02 + -2.71674E+02 -7.09916E+02 -2.86120E+02 -4.14998E-02 -1.32854E-02 + 8.11333E-03 1.55291E-03 9.97390E-01 7.51452E-04 1.10237E-04 + 2.60817E-05 4.29573E+03 1.02020E+03 -5.07117E+02 -5.85760E+02 + -6.31281E+02 -2.62317E+02 -6.73986E+02 -2.76257E+02 -2.72909E-02 + -9.38504E-03 8.52180E-03 1.66504E-03 9.96660E-01 5.51996E-04 + 1.16930E-04 2.79188E-05 3.72206E+03 8.61035E+02 -6.60935E+02 + -6.28433E+02 -5.98749E+02 -2.53293E+02 -6.39342E+02 -2.66645E+02 + -1.78360E-02 -6.76186E-03 8.91919E-03 1.77529E-03 9.96011E-01 + 3.71087E-04 1.23991E-04 2.98781E-05 3.23500E+03 7.24445E+02 + -7.90564E+02 -6.64786E+02 -5.68169E+02 -2.44717E+02 -6.06489E+02 + -2.57431E+02 -1.12267E-02 -4.90837E-03 9.31359E-03 1.88590E-03 + 9.95442E-01 2.11829E-04 1.31475E-04 3.19767E-05 2.81664E+03 + 6.05839E+02 -8.96189E+02 -6.94733E+02 -5.38913E+02 -2.36422E+02 + -5.74898E+02 -2.48475E+02 -6.39686E-03 -3.53908E-03 9.70055E-03 + 1.99560E-03 9.94910E-01 6.03017E-05 1.39379E-04 3.42175E-05 + 2.45758E+03 5.02918E+02 -9.82334E+02 -7.19426E+02 -5.11193E+02 + -2.28477E+02 -5.44838E+02 -2.39859E+02 -2.76170E-03 -2.49711E-03 + 1.00855E-02 2.10595E-03 9.94434E-01 -7.57637E-05 1.47741E-04 + 3.66146E-05 2.14574E+03 4.12534E+02 -1.05064E+03 -7.39223E+02 + -4.84791E+02 -2.20824E+02 -5.16134E+02 -2.31540E+02 7.34444E-05 + -1.67538E-03 1.04694E-02 2.21722E-03 9.94013E-01 -1.97913E-04 + 1.56577E-04 3.91754E-05 1.87555E+03 3.33337E+02 -1.10207E+03 + -7.54297E+02 -4.59455E+02 -2.13398E+02 -4.88562E+02 -2.23458E+02 + 2.32630E-03 -1.01503E-03 1.08498E-02 2.32872E-03 9.93611E-01 + -3.15424E-04 1.65904E-04 4.19093E-05 1.63946E+03 2.63348E+02 + -1.14050E+03 -7.65690E+02 -4.35403E+02 -2.06268E+02 -4.62362E+02 + -2.15691E+02 4.16719E-03 -4.69271E-04 1.12325E-02 2.44218E-03 + 9.93259E-01 -4.20566E-04 1.75772E-04 4.48348E-05 1.43288E+03 + 2.01393E+02 -1.16591E+03 -7.73309E+02 -4.12377E+02 -1.99362E+02 + -4.37295E+02 -2.08173E+02 5.69735E-03 -1.03885E-05 1.16131E-02 + 2.55629E-03 9.92918E-01 -5.21068E-04 1.86177E-04 4.79551E-05 + 1.25162E+03 1.46400E+02 -1.18076E+03 -7.77820E+02 -3.90373E+02 + -1.92686E+02 -4.13353E+02 -2.00910E+02 6.99601E-03 3.83616E-04 + 1.19959E-02 2.67244E-03 9.92615E-01 -6.13844E-04 1.97168E-04 + 5.12899E-05 1.09205E+03 9.74129E+01 -1.18601E+03 -7.79427E+02 + -3.69362E+02 -1.86236E+02 -3.90526E+02 -1.93902E+02 8.11831E-03 + 7.28162E-04 1.23801E-02 2.79039E-03 9.92337E-01 -6.98881E-04 + 2.08778E-04 5.48539E-05 9.51497E+02 5.37501E+01 -1.18292E+03 + -7.78470E+02 -3.49231E+02 -1.79982E+02 -3.68690E+02 -1.87118E+02 + 9.09729E-03 1.03228E-03 1.27631E-02 2.90938E-03 9.92071E-01 + -7.80830E-04 2.21003E-04 5.86520E-05 8.27461E+02 1.47501E+01 + -1.17293E+03 -7.75326E+02 -3.30018E+02 -1.73941E+02 -3.47884E+02 + -1.80576E+02 9.97031E-03 1.30679E-03 1.31499E-02 3.03100E-03 + 9.91842E-01 -8.53501E-04 2.33914E-04 6.27115E-05 7.18422E+02 + -1.99560E+01 -1.15635E+03 -7.70050E+02 -3.11609E+02 -1.68081E+02 + -3.27995E+02 -1.74245E+02 1.07536E-02 1.55609E-03 1.35376E-02 + 3.15439E-03 9.91620E-01 -9.24626E-04 2.47515E-04 6.70404E-05 + 6.22037E+02 -5.10157E+01 -1.13480E+03 -7.63103E+02 -2.94033E+02 + -1.62418E+02 -3.09044E+02 -1.68139E+02 1.14668E-02 1.78594E-03 + 1.39269E-02 3.27984E-03 9.91422E-01 -9.89566E-04 2.61862E-04 + 7.16638E-05 5.36981E+02 -7.87711E+01 -1.10895E+03 -7.54670E+02 + -2.77226E+02 -1.56933E+02 -2.90961E+02 -1.62238E+02 1.21218E-02 + 1.99966E-03 1.43172E-02 3.40721E-03 9.91218E-01 -1.05451E-03 + 2.76973E-04 7.65944E-05 4.62357E+02 -1.03429E+02 -1.07897E+03 + -7.44762E+02 -2.61158E+02 -1.51624E+02 -2.73720E+02 -1.56541E+02 + 1.27360E-02 2.20261E-03 1.47134E-02 3.53815E-03 9.91051E-01 + -1.11017E-03 2.92888E-04 8.18535E-05 3.96580E+02 -1.25447E+02 + -1.04605E+03 -7.33745E+02 -2.45772E+02 -1.46474E+02 -2.57244E+02 + -1.51026E+02 1.32988E-02 2.39099E-03 1.51022E-02 3.66827E-03 + 9.90890E-01 -1.16429E-03 3.09644E-04 8.74621E-05 3.38954E+02 + -1.44985E+02 -1.01060E+03 -7.21725E+02 -2.31082E+02 -1.41493E+02 + -2.41554E+02 -1.45706E+02 1.38389E-02 2.57414E-03 1.54991E-02 + 3.80286E-03 9.90735E-01 -1.21686E-03 3.27274E-04 9.34402E-05 + 2.88732E+02 -1.62243E+02 -9.73037E+02 -7.08818E+02 -2.17036E+02 + -1.36667E+02 -2.26587E+02 -1.40563E+02 1.43474E-02 2.74885E-03 + 1.58945E-02 3.93870E-03 9.90599E-01 -1.26170E-03 3.45829E-04 + 9.98155E-05 2.44901E+02 -1.77504E+02 -9.33985E+02 -6.95221E+02 + -2.03626E+02 -1.31998E+02 -2.12334E+02 -1.35600E+02 1.48342E-02 + 2.91833E-03 1.62914E-02 4.07689E-03 9.90469E-01 -1.30964E-03 + 3.65345E-04 1.06611E-04 2.07046E+02 -1.90864E+02 -8.93795E+02 + -6.81035E+02 -1.90811E+02 -1.27474E+02 -1.98738E+02 -1.30802E+02 + 1.52991E-02 3.08244E-03 1.66882E-02 4.21695E-03 9.90358E-01 + -1.34674E-03 3.85843E-04 1.13845E-04 1.74420E+02 -2.02538E+02 + -8.52705E+02 -6.66331E+02 -1.78572E+02 -1.23096E+02 -1.85789E+02 + -1.26169E+02 1.57491E-02 3.24345E-03 1.70863E-02 4.35938E-03 + 9.90247E-01 -1.38694E-03 4.07401E-04 1.21559E-04 1.46554E+02 + -2.12647E+02 -8.11045E+02 -6.51219E+02 -1.66877E+02 -1.18853E+02 + -1.73442E+02 -1.21689E+02 1.61806E-02 3.39997E-03 1.74813E-02 + 4.50271E-03 9.90154E-01 -1.42096E-03 4.30035E-04 1.29770E-04 + 1.23051E+02 -2.21296E+02 -7.69176E+02 -6.35815E+02 -1.55720E+02 + -1.14747E+02 -1.61688E+02 -1.17365E+02 1.66011E-02 3.55473E-03 + 1.78785E-02 4.64885E-03 9.90061E-01 -1.45343E-03 4.53799E-04 + 1.38515E-04 1.03365E+02 -2.28644E+02 -7.27288E+02 -6.20178E+02 + -1.45063E+02 -1.10769E+02 -1.50482E+02 -1.13182E+02 1.70081E-02 + 3.70662E-03 1.82729E-02 4.79606E-03 9.89993E-01 -1.48126E-03 + 4.78732E-04 1.47820E-04 8.71642E+01 -2.34779E+02 -6.85597E+02 + -6.04391E+02 -1.34910E+02 -1.06925E+02 -1.39831E+02 -1.09149E+02 + 1.74033E-02 3.85629E-03 1.86654E-02 4.94467E-03 9.89919E-01 + -1.50754E-03 5.04901E-04 1.57731E-04 7.39657E+01 -2.39850E+02 + -6.44336E+02 -5.88534E+02 -1.25219E+02 -1.03201E+02 -1.29686E+02 + -1.05250E+02 1.77904E-02 4.00505E-03 1.90567E-02 5.09505E-03 + 9.89857E-01 -1.53074E-03 5.32321E-04 1.68268E-04 6.36901E+01 + -2.43859E+02 -6.03544E+02 -5.72622E+02 -1.15967E+02 -9.95915E+01 + -1.20017E+02 -1.01478E+02 1.81682E-02 4.15241E-03 1.94460E-02 + 5.24695E-03 9.89814E-01 -1.54929E-03 5.61073E-04 1.79483E-04 + 5.59192E+01 -2.46936E+02 -5.63353E+02 -5.56705E+02 -1.07157E+02 + -9.61027E+01 -1.10827E+02 -9.78388E+01 1.85349E-02 4.29766E-03 + 1.98302E-02 5.39908E-03 9.89764E-01 -1.56784E-03 5.91179E-04 + 1.91407E-04 5.03396E+01 -2.49181E+02 -5.24020E+02 -5.40886E+02 + -9.87555E+01 -9.27235E+01 -1.02082E+02 -9.43215E+01 1.88965E-02 + 4.44305E-03 2.02134E-02 5.55318E-03 9.89733E-01 -1.58176E-03 + 6.22691E-04 2.04080E-04 4.67835E+01 -2.50633E+02 -4.85483E+02 + -5.25143E+02 -9.07511E+01 -8.94534E+01 -9.37602E+01 -9.09217E+01 + 1.92457E-02 4.58573E-03 2.05888E-02 5.70657E-03 9.89715E-01 + -1.59104E-03 6.55684E-04 2.17558E-04 4.49627E+01 -2.51389E+02 + -4.47955E+02 -5.09568E+02 -8.31275E+01 -8.62894E+01 -8.58524E+01 + -8.76395E+01 1.95923E-02 4.72958E-03 2.09639E-02 5.86224E-03 + 9.89696E-01 -1.59877E-03 6.90187E-04 2.31879E-04 4.47572E+01 + -2.51475E+02 -4.11323E+02 -4.94116E+02 -7.58622E+01 -8.32250E+01 + -7.83251E+01 -8.44650E+01 1.99280E-02 4.87118E-03 2.13306E-02 + 6.01691E-03 9.89678E-01 -1.60496E-03 7.26247E-04 2.47088E-04 + 4.59064E+01 -2.50982E+02 -3.75817E+02 -4.78891E+02 -6.89498E+01 + -8.02613E+01 -7.11759E+01 -8.13997E+01 2.02566E-02 5.01209E-03 + 2.16922E-02 6.17196E-03 9.89678E-01 -1.60495E-03 7.63920E-04 + 2.63242E-04 4.82972E+01 -2.49941E+02 -3.41380E+02 -4.63879E+02 + -6.23712E+01 -7.73932E+01 -6.43828E+01 -7.84378E+01 2.05781E-02 + 5.15227E-03 2.20480E-02 6.32705E-03 9.89690E-01 -1.60031E-03 + 8.03276E-04 2.80400E-04 5.17203E+01 -2.48422E+02 -3.08058E+02 + -4.49102E+02 -5.61128E+01 -7.46179E+01 -5.79296E+01 -7.55761E+01 + 2.08915E-02 5.29121E-03 2.23959E-02 6.48133E-03 9.89684E-01 + -1.60031E-03 8.44349E-04 2.98613E-04 5.61092E+01 -2.46443E+02 + -2.75840E+02 -4.34567E+02 -5.01532E+01 -7.19294E+01 -5.17919E+01 + -7.28073E+01 2.11983E-02 5.42959E-03 2.27372E-02 6.63534E-03 + 9.89715E-01 -1.58794E-03 8.87174E-04 3.17932E-04 6.12581E+01 + -2.44079E+02 -2.44789E+02 -4.20311E+02 -4.44964E+01 -6.93322E+01 + -4.59737E+01 -7.01361E+01 2.14965E-02 5.56655E-03 2.30700E-02 + 6.78810E-03 9.89746E-01 -1.57403E-03 9.31844E-04 3.38441E-04 + 6.70783E+01 -2.41359E+02 -2.14905E+02 -4.06344E+02 -3.91132E+01 + -6.68161E+01 -4.04452E+01 -6.75521E+01 2.17879E-02 5.70269E-03 + 2.33949E-02 6.93996E-03 9.89777E-01 -1.56011E-03 9.78371E-04 + 3.60188E-04 7.34907E+01 -2.38307E+02 -1.86133E+02 -3.92649E+02 + -3.40019E+01 -6.43832E+01 -3.52020E+01 -6.50565E+01 2.20655E-02 + 5.83487E-03 2.37055E-02 7.08779E-03 9.89814E-01 -1.54156E-03 + 1.02684E-03 3.83256E-04 8.03749E+01 -2.34967E+02 -1.58508E+02 + -3.79254E+02 -2.91419E+01 -6.20270E+01 -3.02229E+01 -6.26423E+01 + 2.23381E-02 5.96704E-03 2.40093E-02 7.23512E-03 9.89863E-01 + -1.51837E-03 1.07725E-03 4.07700E-04 8.76328E+01 -2.31383E+02 + -1.32035E+02 -3.66174E+02 -2.45306E+01 -5.97484E+01 -2.55035E+01 + -6.03105E+01 2.26209E-02 6.10678E-03 2.43200E-02 7.38862E-03 + 9.89913E-01 -1.49208E-03 1.12971E-03 4.33622E-04 9.52010E+01 + -2.27570E+02 -1.06655E+02 -3.53391E+02 -2.01535E+01 -5.75435E+01 + -2.10279E+01 -5.80561E+01 2.28714E-02 6.23291E-03 2.45981E-02 + 7.52870E-03 9.89974E-01 -1.46270E-03 1.18423E-03 4.61082E-04 + 1.02998E+02 -2.23564E+02 -8.24084E+01 -3.40935E+02 -1.60010E+01 + -5.54105E+01 -1.67879E+01 -5.58780E+01 2.31149E-02 6.35803E-03 + 2.48674E-02 7.66701E-03 9.90046E-01 -1.42560E-03 1.24087E-03 + 4.90179E-04 1.10972E+02 -2.19386E+02 -5.92061E+01 -3.28777E+02 + -1.20604E+01 -5.33455E+01 -1.27678E+01 -5.37712E+01 2.33592E-02 + 6.48606E-03 2.51337E-02 7.80656E-03 9.90111E-01 -1.39158E-03 + 1.29967E-03 5.20989E-04 1.19061E+02 -2.15059E+02 -3.70731E+01 + -3.16938E+02 -8.32423E+00 -5.13474E+01 -8.96032E+00 -5.17349E+01 + 2.35891E-02 6.60903E-03 2.53835E-02 7.94018E-03 9.90194E-01 + -1.34828E-03 1.36068E-03 5.53619E-04 1.27203E+02 -2.10614E+02 + -1.59661E+01 -3.05412E+02 -4.78673E+00 -4.94154E+01 -5.35712E+00 + -4.97673E+01 2.38134E-02 6.73149E-03 2.56244E-02 8.07175E-03 + 9.90274E-01 -1.30344E-03 1.42394E-03 5.88170E-04 1.35360E+02 + -2.06063E+02 4.12768E+00 -2.94202E+02 -1.43368E+00 -4.75449E+01 + -1.94588E+00 -4.78643E+01 2.40248E-02 6.84944E-03 2.58501E-02 + 8.19762E-03 9.90358E-01 -1.25706E-03 1.48949E-03 6.24735E-04 + 1.43500E+02 -2.01423E+02 2.32683E+01 -2.83290E+02 1.74124E+00 + -4.57346E+01 1.28169E+00 -4.60241E+01 2.42284E-02 6.96547E-03 + 2.60642E-02 8.31973E-03 9.90448E-01 -1.20449E-03 1.55735E-03 + 6.63427E-04 1.51560E+02 -1.96723E+02 4.14304E+01 -2.72703E+02 + 4.74596E+00 -4.39833E+01 4.33311E+00 -4.42453E+01 2.44230E-02 + 7.07893E-03 2.62668E-02 8.43784E-03 9.90543E-01 -1.14882E-03 + 1.62762E-03 7.04383E-04 1.59543E+02 -1.91963E+02 5.87058E+01 + -2.62401E+02 7.58879E+00 -4.22881E+01 7.21908E+00 -4.25246E+01 + 2.46071E-02 7.18873E-03 2.64555E-02 8.55033E-03 9.90649E-01 + -1.08698E-03 1.70025E-03 7.47695E-04 1.67387E+02 -1.87175E+02 + 7.50709E+01 -2.52413E+02 1.02755E+01 -4.06482E+01 9.94296E+00 + -4.08620E+01 2.47815E-02 7.29518E-03 2.66313E-02 8.65767E-03 + 9.90748E-01 -1.02667E-03 1.77532E-03 7.93517E-04 1.75090E+02 + -1.82361E+02 9.05825E+01 -2.42716E+02 1.28143E+01 -3.90611E+01 + 1.25164E+01 -3.92533E+01 2.49466E-02 7.39836E-03 2.67948E-02 + 8.75984E-03 9.90856E-01 -9.60189E-04 1.85285E-03 8.41977E-04 + 1.82625E+02 -1.77535E+02 1.05269E+02 -2.33310E+02 1.52134E+01 + -3.75246E+01 1.49460E+01 -3.76971E+01 2.51010E-02 7.49727E-03 + 2.69445E-02 8.85570E-03 9.90967E-01 -8.87517E-04 1.93285E-03 + 8.93220E-04 1.89960E+02 -1.72718E+02 1.19152E+02 -2.24193E+02 + 1.74766E+01 -3.60382E+01 1.72364E+01 -3.61930E+01 2.52461E-02 + 7.59258E-03 2.70816E-02 8.94580E-03 9.91075E-01 -8.17943E-04 + 2.01536E-03 9.47403E-04 1.97111E+02 -1.67899E+02 1.32277E+02 + -2.15350E+02 1.96124E+01 -3.45994E+01 1.93963E+01 -3.47377E+01 + 2.53816E-02 7.68383E-03 2.72064E-02 9.02986E-03 9.91187E-01 + -7.40629E-04 2.10037E-03 1.00468E-03 2.04030E+02 -1.63114E+02 + 1.44643E+02 -2.06795E+02 2.16260E+01 -3.32065E+01 2.14316E+01 + -3.33298E+01 2.55062E-02 7.77000E-03 2.73176E-02 9.10674E-03 + 9.91304E-01 -6.60226E-04 2.18792E-03 1.06524E-03 2.10732E+02 + -1.58350E+02 1.56321E+02 -1.98496E+02 2.35224E+01 -3.18587E+01 + 2.33480E+01 -3.19679E+01 2.56213E-02 7.85178E-03 2.74162E-02 + 9.17683E-03 9.91419E-01 -5.79824E-04 2.27799E-03 1.12926E-03 + 2.17195E+02 -1.53628E+02 1.67302E+02 -1.90472E+02 2.53074E+01 + -3.05544E+01 2.51498E+01 -3.06512E+01 2.57284E-02 7.93008E-03 + 2.75047E-02 9.24152E-03 9.91533E-01 -4.93237E-04 2.37060E-03 + 1.19692E-03 2.23420E+02 -1.48947E+02 1.77637E+02 -1.82701E+02 + 2.69875E+01 -2.92912E+01 2.68454E+01 -2.93765E+01 2.58218E-02 + 8.00031E-03 2.75770E-02 9.29591E-03 9.91654E-01 -4.05104E-04 + 2.46572E-03 1.26844E-03 2.29394E+02 -1.44321E+02 1.87345E+02 + -1.75185E+02 2.85660E+01 -2.80688E+01 2.84378E+01 -2.81434E+01 + 2.59092E-02 8.06803E-03 2.76412E-02 9.34558E-03 9.91768E-01 + -3.16970E-04 2.56335E-03 1.34405E-03 2.35126E+02 -1.39747E+02 + 1.96459E+02 -1.67910E+02 3.00482E+01 -2.68858E+01 2.99320E+01 + -2.69506E+01 2.59859E-02 8.12918E-03 2.76923E-02 9.38643E-03 + 9.91886E-01 -2.22652E-04 2.66346E-03 1.42395E-03 2.40600E+02 + -1.35239E+02 2.04995E+02 -1.60881E+02 3.14399E+01 -2.57399E+01 + 3.13340E+01 -2.57961E+01 2.60539E-02 8.18518E-03 2.77333E-02 + 9.42016E-03 9.92000E-01 -1.29881E-04 2.76603E-03 1.50841E-03 + 2.45827E+02 -1.30793E+02 2.12987E+02 -1.54083E+02 3.27430E+01 + -2.46315E+01 3.26468E+01 -2.46797E+01 2.61132E-02 8.23563E-03 + 2.77641E-02 9.44635E-03 9.92114E-01 -3.09239E-05 2.87103E-03 + 1.59772E-03 2.50801E+02 -1.26420E+02 2.20454E+02 -1.47518E+02 + 3.39639E+01 -2.35580E+01 3.38760E+01 -2.35988E+01 2.61630E-02 + 8.27941E-03 2.77840E-02 9.46380E-03 9.92220E-01 6.33945E-05 + 2.97839E-03 1.69211E-03 2.55523E+02 -1.22121E+02 2.27428E+02 + -1.41171E+02 3.51055E+01 -2.25189E+01 3.50249E+01 -2.25530E+01 + 2.62046E-02 8.31729E-03 2.77945E-02 9.47345E-03 9.92334E-01 + 1.65443E-04 3.08803E-03 1.79191E-03 2.60000E+02 -1.17899E+02 + 2.33924E+02 -1.35043E+02 3.61719E+01 -2.15130E+01 3.60982E+01 + -2.15408E+01 2.62388E-02 8.34951E-03 2.77969E-02 9.47563E-03 + 9.92439E-01 2.64400E-04 3.19992E-03 1.89745E-03 2.64233E+02 + -1.13755E+02 2.39966E+02 -1.29128E+02 3.71668E+01 -2.05391E+01 + 3.70983E+01 -2.05617E+01 2.62643E-02 8.37449E-03 2.77900E-02 + 9.46891E-03 9.92544E-01 3.67995E-04 3.31392E-03 2.00904E-03 + 2.68224E+02 -1.09695E+02 2.45585E+02 -1.23413E+02 3.80939E+01 + -1.95960E+01 3.80303E+01 -1.96136E+01 2.62831E-02 8.39368E-03 + 2.77758E-02 9.45442E-03 9.92640E-01 4.65405E-04 3.42996E-03 + 2.12709E-03 2.71980E+02 -1.05718E+02 2.50787E+02 -1.17904E+02 + 3.89554E+01 -1.86839E+01 3.88965E+01 -1.86966E+01 2.62943E-02 + 8.40556E-03 2.77542E-02 9.43156E-03 9.92741E-01 5.72093E-04 + 3.54789E-03 2.25195E-03 2.75505E+02 -1.01828E+02 2.55606E+02 + -1.12586E+02 3.97564E+01 -1.77996E+01 3.97009E+01 -1.78086E+01 + 2.62995E-02 8.41122E-03 2.77262E-02 9.40064E-03 9.92832E-01 + 6.72596E-04 3.66758E-03 2.38406E-03 2.78804E+02 -9.80248E+01 + 2.60056E+02 -1.07456E+02 4.04979E+01 -1.69449E+01 4.04457E+01 + -1.69500E+01 2.62976E-02 8.40909E-03 2.76916E-02 9.36073E-03 + 9.92920E-01 7.74645E-04 3.78884E-03 2.52385E-03 2.81882E+02 + -9.43112E+01 2.64152E+02 -1.02514E+02 4.11845E+01 -1.61166E+01 + 4.11351E+01 -1.61184E+01 2.62908E-02 8.40083E-03 2.76525E-02 + 9.31362E-03 9.93007E-01 8.78240E-04 3.91150E-03 2.67185E-03 + 2.84746E+02 -9.06854E+01 2.67918E+02 -9.77478E+01 4.18175E+01 + -1.53154E+01 4.17705E+01 -1.53141E+01 2.62784E-02 8.38517E-03 + 2.76085E-02 9.25800E-03 9.93085E-01 9.78743E-04 4.03534E-03 + 2.82854E-03 2.87404E+02 -8.71507E+01 2.71372E+02 -9.31538E+01 + 4.24009E+01 -1.45395E+01 4.23558E+01 -1.45356E+01 2.62614E-02 + 8.36256E-03 2.75606E-02 9.19427E-03 9.93160E-01 1.07615E-03 + 4.16004E-03 2.99443E-03 2.89861E+02 -8.37059E+01 2.74526E+02 + -8.87314E+01 4.29361E+01 -1.37891E+01 4.28929E+01 -1.37827E+01 + 2.62395E-02 8.33188E-03 2.75090E-02 9.12190E-03 9.93231E-01 + 1.17821E-03 4.28541E-03 3.17020E-03 2.92124E+02 -8.03512E+01 + 2.77400E+02 -8.44702E+01 4.34267E+01 -1.30619E+01 4.33850E+01 + -1.30533E+01 2.62142E-02 8.29438E-03 2.74551E-02 9.04192E-03 + 9.93297E-01 1.27407E-03 4.41103E-03 3.35641E-03 2.94201E+02 + -7.70864E+01 2.80009E+02 -8.03702E+01 4.38739E+01 -1.23589E+01 + 4.38333E+01 -1.23483E+01 2.61855E-02 8.24916E-03 2.73990E-02 + 8.95379E-03 9.93359E-01 1.37148E-03 4.53655E-03 3.55373E-03 + 2.96095E+02 -7.39170E+01 2.82366E+02 -7.64257E+01 4.42804E+01 + -1.16785E+01 4.42409E+01 -1.16663E+01 2.61542E-02 8.19682E-03 + 2.73418E-02 8.85801E-03 9.93413E-01 1.46269E-03 4.66159E-03 + 3.76299E-03 2.97820E+02 -7.08304E+01 2.84489E+02 -7.26283E+01 + 4.46485E+01 -1.10200E+01 4.46099E+01 -1.10061E+01 2.61204E-02 + 8.13638E-03 2.72836E-02 8.75395E-03 9.93464E-01 1.55548E-03 + 4.78562E-03 3.98486E-03 2.99375E+02 -6.78427E+01 2.86387E+02 + -6.89795E+01 4.49799E+01 -1.03833E+01 4.49419E+01 -1.03682E+01 + 2.60853E-02 8.06898E-03 2.72256E-02 8.64257E-03 9.93512E-01 + 1.64516E-03 4.90811E-03 4.22022E-03 3.00775E+02 -6.49381E+01 + 2.88078E+02 -6.54717E+01 4.52768E+01 -9.76726E+00 4.52394E+01 + -9.75083E+00 2.60488E-02 7.99321E-03 2.71680E-02 8.52297E-03 + 9.93551E-01 1.72864E-03 5.02847E-03 4.46999E-03 3.02022E+02 + -6.21246E+01 2.89571E+02 -6.21040E+01 4.55411E+01 -9.17106E+00 + 4.55042E+01 -9.15384E+00 2.60117E-02 7.90957E-03 2.71116E-02 + 8.39581E-03 9.93589E-01 1.81370E-03 5.14600E-03 4.73508E-03 + 3.03126E+02 -5.93989E+01 2.90883E+02 -5.88630E+01 4.57725E+01 + -8.59938E+00 4.57359E+01 -8.58117E+00 2.59750E-02 7.81878E-03 + 2.70571E-02 8.26109E-03 9.93620E-01 1.89253E-03 5.25996E-03 + 5.01658E-03 3.04092E+02 -5.67603E+01 2.92020E+02 -5.57588E+01 + 4.59573E+01 -8.09490E+00 4.59211E+01 -8.07580E+00 2.59388E-02 + 7.71992E-03 2.70051E-02 8.11918E-03 9.93650E-01 1.97141E-03 + 5.36945E-03 5.31552E-03 3.04928E+02 -5.42113E+01 2.92997E+02 + -5.27784E+01 4.61127E+01 -7.62080E+00 4.60765E+01 -7.60131E+00 + 2.59037E-02 7.61295E-03 2.69560E-02 7.96920E-03 9.93674E-01 + 2.04406E-03 5.47356E-03 5.63323E-03 3.05641E+02 -5.17443E+01 + 2.93823E+02 -4.99212E+01 4.62447E+01 -7.16401E+00 4.62089E+01 + -7.14372E+00 2.58707E-02 7.49886E-03 2.69108E-02 7.81293E-03 + 9.93693E-01 2.11057E-03 5.57119E-03 5.97084E-03 3.06238E+02 + -4.93632E+01 2.94510E+02 -4.71814E+01 4.63550E+01 -6.72416E+00 + 4.63192E+01 -6.70358E+00 2.58393E-02 7.37348E-03 2.68689E-02 + 7.64575E-03 9.93711E-01 2.18012E-03 5.66115E-03 6.32979E-03 + 3.06725E+02 -4.70649E+01 2.95065E+02 -4.45593E+01 4.64448E+01 + -6.30071E+00 4.64090E+01 -6.27973E+00 2.58119E-02 7.24417E-03 + 2.68328E-02 7.47567E-03 9.93723E-01 2.24045E-03 5.74210E-03 + 6.71154E-03 3.07110E+02 -4.48484E+01 2.95502E+02 -4.20460E+01 + 4.65155E+01 -5.89342E+00 4.64798E+01 -5.87215E+00 2.57875E-02 + 7.10377E-03 2.68014E-02 7.29487E-03 9.93733E-01 2.29763E-03 + 5.81257E-03 7.11768E-03 3.07398E+02 -4.27131E+01 2.95826E+02 + -3.96446E+01 4.65683E+01 -5.50192E+00 4.65326E+01 -5.48045E+00 + 2.57676E-02 6.95638E-03 2.67763E-02 7.10840E-03 9.93740E-01 + 2.35178E-03 5.87091E-03 7.54993E-03 3.07596E+02 -4.06588E+01 + 2.96047E+02 -3.73473E+01 4.66046E+01 -5.12569E+00 4.65689E+01 + -5.10412E+00 2.57526E-02 6.80036E-03 2.67575E-02 6.91386E-03 + 9.93745E-01 2.40281E-03 5.91527E-03 8.00999E-03 3.07710E+02 + -3.86807E+01 2.96174E+02 -3.51555E+01 4.66255E+01 -4.76483E+00 + 4.65898E+01 -4.74316E+00 2.57431E-02 6.63643E-03 2.67459E-02 + 6.71292E-03 9.93748E-01 2.44916E-03 5.94362E-03 8.49996E-03 + 3.07747E+02 -3.67812E+01 2.96215E+02 -3.30581E+01 4.66321E+01 + -4.41854E+00 4.65965E+01 -4.39677E+00 2.57397E-02 6.46097E-03 + 2.67418E-02 6.50088E-03 9.93749E-01 2.49094E-03 5.95370E-03 + 9.02184E-03 3.07716E+02 -3.51658E+01 2.96180E+02 -3.12685E+01 + 4.66258E+01 -4.08698E+00 4.65901E+01 -4.06531E+00 2.57560E-02 + 5.61435E-03 2.67592E-02 5.59416E-03 9.93748E-01 2.52183E-03 + 5.94300E-03 9.57793E-03 3.07616E+02 -3.34404E+01 2.96072E+02 + -2.93911E+01 4.66074E+01 -3.76898E+00 4.65717E+01 -3.74731E+00 + 2.57723E-02 5.33234E-03 2.67776E-02 5.27546E-03 9.93746E-01 + 2.55433E-03 5.90876E-03 1.01706E-02 3.07456E+02 -3.17768E+01 + 2.95898E+02 -2.75913E+01 4.65781E+01 -3.46524E+00 4.65425E+01 + -3.44377E+00 2.57964E-02 5.08188E-03 2.68050E-02 4.99095E-03 + 9.93743E-01 2.58368E-03 5.84789E-03 1.08025E-02 3.07241E+02 + -3.01843E+01 2.95667E+02 -2.58777E+01 4.65390E+01 -3.17494E+00 + 4.65034E+01 -3.15357E+00 2.58316E-02 4.82131E-03 2.68446E-02 + 4.69747E-03 9.93740E-01 2.60690E-03 5.75701E-03 1.14763E-02 + 3.06977E+02 -2.86585E+01 2.95385E+02 -2.42521E+01 4.64908E+01 + -2.89743E+00 4.64553E+01 -2.87626E+00 2.58788E-02 4.54874E-03 + 2.68973E-02 4.39378E-03 9.93736E-01 2.63007E-03 5.63235E-03 + 1.21950E-02 3.06669E+02 -2.72069E+01 2.95058E+02 -2.27095E+01 + 4.64348E+01 -2.63315E+00 4.63993E+01 -2.61217E+00 2.59393E-02 + 4.26333E-03 2.69643E-02 4.07793E-03 9.93733E-01 2.64401E-03 + 5.46977E-03 1.29620E-02 3.06321E+02 -2.58188E+01 2.94691E+02 + -2.12439E+01 4.63717E+01 -2.38108E+00 4.63362E+01 -2.36020E+00 + 2.60139E-02 3.96554E-03 2.70462E-02 3.75100E-03 9.93731E-01 + 2.65635E-03 5.26472E-03 1.37805E-02 3.05940E+02 -2.44986E+01 + 2.94292E+02 -1.98643E+01 4.63023E+01 -2.14124E+00 4.62670E+01 + -2.12085E+00 2.61036E-02 3.65518E-03 2.71437E-02 3.41344E-03 + 9.93726E-01 2.66875E-03 5.01214E-03 1.46542E-02 3.05527E+02 + -2.32399E+01 2.93864E+02 -1.85565E+01 4.62276E+01 -1.91314E+00 + 4.61923E+01 -1.89285E+00 2.62103E-02 3.32971E-03 2.72589E-02 + 3.06183E-03 9.93726E-01 2.67030E-03 4.70646E-03 1.55873E-02 + 3.05089E+02 -2.20442E+01 2.93410E+02 -1.73173E+01 4.61484E+01 + -1.69690E+00 4.61132E+01 -1.67691E+00 2.63318E-02 2.99791E-03 + 2.73897E-02 2.70486E-03 9.93725E-01 2.67336E-03 4.34160E-03 + 1.65837E-02 3.04536E+02 -2.06757E+01 2.92845E+02 -1.59210E+01 + 4.60653E+01 -1.49168E+00 4.60303E+01 -1.47199E+00 2.61618E-02 + 3.41784E-03 2.72190E-02 3.12653E-03 9.93724E-01 2.67494E-03 + 3.91076E-03 1.76482E-02 3.03900E+02 -1.92434E+01 2.92201E+02 + -1.44674E+01 4.59791E+01 -1.29702E+00 4.59442E+01 -1.27782E+00 + 2.58020E-02 4.22960E-03 2.68528E-02 3.95264E-03 9.93723E-01 + 2.67645E-03 3.40659E-03 1.87856E-02 3.03394E+02 -1.81923E+01 + 2.91688E+02 -1.34044E+01 4.58906E+01 -1.11347E+00 4.58559E+01 + -1.09457E+00 2.59220E-02 3.98052E-03 2.69821E-02 3.68432E-03 + 9.93728E-01 2.66721E-03 2.82087E-03 2.00012E-02 3.02876E+02 + -1.71962E+01 2.91168E+02 -1.24035E+01 4.58004E+01 -9.40082E-01 + 4.57658E+01 -9.21379E-01 2.60637E-02 3.70814E-03 2.71334E-02 + 3.39345E-03 9.93733E-01 2.65635E-03 2.14468E-03 2.13006E-02 + 3.02350E+02 -1.62559E+01 2.90645E+02 -1.14687E+01 4.57091E+01 + -7.76715E-01 4.56747E+01 -7.58408E-01 2.62277E-02 3.41475E-03 + 2.73071E-02 3.08270E-03 9.93743E-01 2.64092E-03 1.36827E-03 + 2.26897E-02 3.01818E+02 -1.53651E+01 2.90120E+02 -1.05907E+01 + 4.56171E+01 -6.22730E-01 4.55830E+01 -6.04819E-01 2.64018E-02 + 3.12340E-03 2.74906E-02 2.77555E-03 9.93753E-01 2.62388E-03 + 4.80550E-04 2.41755E-02 3.01284E+02 -1.45253E+01 2.89595E+02 + -9.76431E+00 4.55253E+01 -4.78458E-01 4.54914E+01 -4.60943E-01 + 2.65979E-02 2.81506E-03 2.76966E-02 2.45175E-03 9.93766E-01 + 2.60227E-03 -5.29987E-04 2.57644E-02 3.00751E+02 -1.37351E+01 + 2.89079E+02 -8.99866E+00 4.54341E+01 -3.43080E-01 4.54003E+01 + -3.25862E-01 2.68129E-02 2.49642E-03 2.79208E-02 2.11934E-03 + 9.93778E-01 2.58368E-03 -1.67667E-03 2.74643E-02 2.99959E+02 + -1.26246E+01 2.88306E+02 -7.91579E+00 4.53438E+01 -2.16518E-01 + 4.53103E+01 -1.99696E-01 2.61776E-02 3.38716E-03 2.72706E-02 + 3.03115E-03 9.93795E-01 2.56206E-03 -2.97362E-03 2.92830E-02 + 2.99404E+02 -1.18867E+01 2.87775E+02 -7.20963E+00 4.52546E+01 + -9.79677E-02 4.52215E+01 -8.15408E-02 2.63357E-02 3.17692E-03 + 2.74360E-02 2.81110E-03 9.93814E-01 2.53578E-03 -4.43655E-03 + 3.12292E-02 2.98873E+02 -1.12145E+01 2.87274E+02 -6.57543E+00 + 4.51678E+01 1.18747E-02 4.51349E+01 2.80046E-02 2.65618E-02 + 2.89074E-03 2.76705E-02 2.51439E-03 9.93837E-01 2.50792E-03 + -6.08261E-03 3.33122E-02 2.98344E+02 -1.05758E+01 2.86781E+02 + -5.98018E+00 4.50831E+01 1.13999E-01 4.50506E+01 1.29733E-01 + 2.67956E-02 2.60869E-03 2.79117E-02 2.22320E-03 9.93863E-01 + 2.47702E-03 -7.93059E-03 3.55421E-02 2.97829E+02 -9.98268E+00 + 2.86305E+02 -5.43150E+00 4.50008E+01 2.08896E-01 4.49687E+01 + 2.24234E-01 2.70573E-02 2.30691E-03 2.81811E-02 1.91268E-03 + 9.93889E-01 2.44452E-03 -1.00012E-02 3.79294E-02 2.97212E+02 + -9.30198E+00 2.85732E+02 -4.79824E+00 4.49217E+01 2.96278E-01 + 4.48901E+01 3.11023E-01 2.69540E-02 2.42097E-03 2.80753E-02 + 2.02944E-03 9.93917E-01 2.41363E-03 -1.23168E-02 4.04857E-02 + 2.96084E+02 -8.10727E+00 2.84655E+02 -3.65900E+00 4.48458E+01 + 3.76726E-01 4.48139E+01 3.91569E-01 2.51117E-02 4.37170E-03 + 2.61874E-02 4.02845E-03 9.93942E-01 2.38731E-03 -1.49020E-02 + 4.32230E-02 2.95575E+02 -7.58962E+00 2.84196E+02 -3.19196E+00 + 4.47732E+01 4.50651E-01 4.47420E+01 4.64703E-01 2.53067E-02 + 4.17331E-03 2.63887E-02 3.82367E-03 9.93974E-01 2.35333E-03 + -1.77844E-02 4.61554E-02 2.95071E+02 -7.09554E+00 2.83751E+02 + -2.75652E+00 4.47041E+01 5.18233E-01 4.46732E+01 5.32185E-01 + 2.54921E-02 3.99182E-03 2.65789E-02 3.63755E-03 9.94019E-01 + 2.31155E-03 -2.09930E-02 4.92965E-02 2.94582E+02 -6.63488E+00 + 2.83328E+02 -2.35677E+00 4.46394E+01 5.79296E-01 4.46090E+01 + 5.92655E-01 2.57008E-02 3.79497E-03 2.67919E-02 3.43664E-03 + 9.94056E-01 2.27756E-03 -2.45599E-02 5.26612E-02 2.94582E+02 + -6.63488E+00 2.83328E+02 -2.35677E+00 4.46394E+01 5.79296E-01 + 4.46090E+01 5.92655E-01 2.57008E-02 3.79497E-03 2.67919E-02 + 3.43664E-03 9.94056E-01 2.27756E-03 -2.45599E-02 5.26612E-02 + 5.32984E-04 1.69413E+02 2.69387E+01 + 8.51133E-04 1.30019E-04 0.00000E+00 0.00000E+00 6.22213E-02 + 1.00121E-02 8.51133E-04 1.30019E-04 0.00000E+00 0.00000E+00 + 6.22213E-02 1.00121E-02 9.42922E-04 1.44877E-04 0.00000E+00 + 0.00000E+00 2.68960E-02 4.29371E-03 1.04530E-03 1.61550E-04 + 0.00000E+00 0.00000E+00 -1.66913E-02 -2.80478E-03 1.15470E-03 + 1.79475E-04 0.00000E+00 0.00000E+00 5.46514E-03 8.25496E-04 + 1.27892E-03 1.99952E-04 0.00000E+00 0.00000E+00 -2.08805E-02 + -3.51759E-03 1.41017E-03 2.21722E-04 0.00000E+00 0.00000E+00 + 3.25850E-02 5.35047E-03 1.56148E-03 2.46975E-04 0.00000E+00 + 0.00000E+00 6.61464E-03 1.01621E-03 1.72333E-03 2.74155E-04 + 0.00000E+00 0.00000E+00 3.93070E-02 6.50634E-03 1.91232E-03 + 3.06091E-04 0.00000E+00 0.00000E+00 -2.43453E-02 -4.25003E-03 + 2.10851E-03 3.39454E-04 0.00000E+00 0.00000E+00 2.62992E-02 + 4.36222E-03 2.33824E-03 3.78768E-04 0.00000E+00 0.00000E+00 + 9.97717E-03 1.56897E-03 2.64799E-03 4.32117E-04 0.00000E+00 + 0.00000E+00 3.18350E-02 5.33349E-03 2.93885E-03 4.82533E-04 + 0.00000E+00 0.00000E+00 1.34617E-02 2.14874E-03 3.24902E-03 + 5.36644E-04 0.00000E+00 0.00000E+00 6.18206E-02 1.05854E-02 + 3.61565E-03 6.01024E-04 0.00000E+00 0.00000E+00 -6.12684E-03 + -1.34590E-03 4.00312E-03 6.69507E-04 0.00000E+00 0.00000E+00 + 1.84619E-02 3.00009E-03 4.42962E-03 7.45389E-04 0.00000E+00 + 0.00000E+00 4.85873E-02 8.35986E-03 4.90768E-03 8.31008E-04 + 0.00000E+00 0.00000E+00 5.42018E-02 9.36538E-03 5.50002E-03 + 9.37803E-04 0.00000E+00 0.00000E+00 -5.12840E-03 -1.33162E-03 + 6.17161E-03 1.05970E-03 0.00000E+00 0.00000E+00 6.28243E-02 + 1.10026E-02 6.86057E-03 1.18561E-03 0.00000E+00 0.00000E+00 + 5.13323E-02 8.90247E-03 7.61917E-03 1.32518E-03 0.00000E+00 + 0.00000E+00 5.65088E-02 9.85490E-03 8.46056E-03 1.48106E-03 + 0.00000E+00 0.00000E+00 6.21511E-02 1.09002E-02 9.38035E-03 + 1.65263E-03 0.00000E+00 0.00000E+00 9.13296E-02 1.63431E-02 + 1.04613E-02 1.85567E-03 0.00000E+00 0.00000E+00 5.24186E-02 + 9.03408E-03 1.16651E-02 2.08339E-03 0.00000E+00 0.00000E+00 + 5.64207E-02 9.79110E-03 1.29379E-02 2.32584E-03 0.00000E+00 + 0.00000E+00 8.86081E-02 1.59227E-02 1.43528E-02 2.59730E-03 + 0.00000E+00 0.00000E+00 1.12268E-01 2.04620E-02 1.59481E-02 + 2.90555E-03 0.00000E+00 0.00000E+00 1.07793E-01 1.95972E-02 + 1.79923E-02 3.30340E-03 0.00000E+00 0.00000E+00 1.20030E-01 + 2.19789E-02 2.04786E-02 3.79084E-03 0.00000E+00 0.00000E+00 + 1.34852E-01 2.48844E-02 2.27673E-02 4.24280E-03 0.00000E+00 + 0.00000E+00 1.87896E-01 3.53596E-02 2.54219E-02 4.77089E-03 + 0.00000E+00 0.00000E+00 1.66112E-01 3.10260E-02 2.82778E-02 + 5.34327E-03 0.00000E+00 0.00000E+00 2.04984E-01 3.88165E-02 + 3.15305E-02 6.00005E-03 0.00000E+00 0.00000E+00 2.01524E-01 + 3.81179E-02 3.50429E-02 6.71463E-03 0.00000E+00 0.00000E+00 + 2.46834E-01 4.73359E-02 3.89831E-02 7.52233E-03 0.00000E+00 + 0.00000E+00 2.71639E-01 5.24207E-02 4.37840E-02 8.51402E-03 + 0.00000E+00 0.00000E+00 2.86258E-01 5.54406E-02 4.88506E-02 + 9.56869E-03 0.00000E+00 0.00000E+00 3.47653E-01 6.82205E-02 + 5.44656E-02 1.07466E-02 0.00000E+00 0.00000E+00 3.48351E-01 + 6.83669E-02 6.02752E-02 1.19749E-02 0.00000E+00 0.00000E+00 + 4.55207E-01 9.09591E-02 6.72886E-02 1.34695E-02 0.00000E+00 + 0.00000E+00 4.23097E-01 8.41166E-02 7.44207E-02 1.50014E-02 + 0.00000E+00 0.00000E+00 5.25241E-01 1.06057E-01 8.18971E-02 + 1.66203E-02 0.00000E+00 0.00000E+00 5.72250E-01 1.16236E-01 + 9.02757E-02 1.84492E-02 0.00000E+00 0.00000E+00 6.23919E-01 + 1.27514E-01 9.99855E-02 2.05859E-02 0.00000E+00 0.00000E+00 + 6.56166E-01 1.34610E-01 1.10012E-01 2.28105E-02 0.00000E+00 + 0.00000E+00 7.68448E-01 1.59523E-01 1.21699E-01 2.54251E-02 + 0.00000E+00 0.00000E+00 7.94963E-01 1.65455E-01 1.33634E-01 + 2.81177E-02 0.00000E+00 0.00000E+00 9.08676E-01 1.91108E-01 + 1.47145E-01 3.11914E-02 0.00000E+00 0.00000E+00 9.70876E-01 + 2.05258E-01 1.61167E-01 3.44084E-02 0.00000E+00 0.00000E+00 + 1.08529E+00 2.31507E-01 1.76080E-01 3.78593E-02 0.00000E+00 + 0.00000E+00 1.20977E+00 2.60314E-01 1.93121E-01 4.18368E-02 + 0.00000E+00 0.00000E+00 1.26957E+00 2.74271E-01 2.09735E-01 + 4.57487E-02 0.00000E+00 0.00000E+00 1.42509E+00 3.10888E-01 + 2.30543E-01 5.06912E-02 0.00000E+00 0.00000E+00 1.52368E+00 + 3.34306E-01 2.50827E-01 5.55519E-02 0.00000E+00 0.00000E+00 + 1.65931E+00 3.66810E-01 2.71313E-01 6.05053E-02 0.00000E+00 + 0.00000E+00 1.79585E+00 3.99824E-01 2.92481E-01 6.56699E-02 + 0.00000E+00 0.00000E+00 1.93640E+00 4.34114E-01 3.14570E-01 + 7.11085E-02 0.00000E+00 0.00000E+00 2.06779E+00 4.66464E-01 + 3.37158E-01 7.67211E-02 0.00000E+00 0.00000E+00 2.19906E+00 + 4.99083E-01 3.58949E-01 8.21861E-02 0.00000E+00 0.00000E+00 + 2.35335E+00 5.37778E-01 3.82210E-01 8.80747E-02 0.00000E+00 + 0.00000E+00 2.46816E+00 5.66842E-01 4.07476E-01 9.45317E-02 + 0.00000E+00 0.00000E+00 2.64207E+00 6.11284E-01 4.29785E-01 + 1.00287E-01 0.00000E+00 0.00000E+00 2.76035E+00 6.41800E-01 + 4.50239E-01 1.05616E-01 0.00000E+00 0.00000E+00 2.88068E+00 + 6.73146E-01 4.68720E-01 1.10477E-01 0.00000E+00 0.00000E+00 + 2.99552E+00 7.03353E-01 4.85238E-01 1.14864E-01 0.00000E+00 + 0.00000E+00 3.09617E+00 7.30090E-01 5.01396E-01 1.19199E-01 + 0.00000E+00 0.00000E+00 3.16188E+00 7.47718E-01 5.13540E-01 + 1.22490E-01 0.00000E+00 0.00000E+00 3.22850E+00 7.65770E-01 + 5.24526E-01 1.25497E-01 0.00000E+00 0.00000E+00 3.26420E+00 + 7.75543E-01 5.31460E-01 1.27415E-01 0.00000E+00 0.00000E+00 + 3.29219E+00 7.83283E-01 5.35548E-01 1.28557E-01 0.00000E+00 + 0.00000E+00 3.30003E+00 7.85473E-01 5.39005E-01 1.29533E-01 + 0.00000E+00 0.00000E+00 3.27938E+00 7.79642E-01 5.40661E-01 + 1.30005E-01 0.00000E+00 0.00000E+00 3.28985E+00 7.82631E-01 + 5.38211E-01 1.29299E-01 0.00000E+00 0.00000E+00 3.23302E+00 + 7.66241E-01 5.32011E-01 1.27492E-01 0.00000E+00 0.00000E+00 + 3.16733E+00 7.47094E-01 5.23792E-01 1.25070E-01 0.00000E+00 + 0.00000E+00 3.08744E+00 7.23550E-01 5.14518E-01 1.22306E-01 + 0.00000E+00 0.00000E+00 2.99398E+00 6.95704E-01 5.02099E-01 + 1.18565E-01 0.00000E+00 0.00000E+00 2.89656E+00 6.66355E-01 + 4.90559E-01 1.15049E-01 0.00000E+00 0.00000E+00 2.78711E+00 + 6.33004E-01 4.76812E-01 1.10812E-01 0.00000E+00 0.00000E+00 + 2.67974E+00 5.99916E-01 4.63725E-01 1.06732E-01 0.00000E+00 + 0.00000E+00 2.57041E+00 5.65834E-01 4.49851E-01 1.02356E-01 + 0.00000E+00 0.00000E+00 2.45575E+00 5.29671E-01 4.34867E-01 + 9.75747E-02 0.00000E+00 0.00000E+00 2.34440E+00 4.94136E-01 + 4.23096E-01 9.37731E-02 0.00000E+00 0.00000E+00 2.23189E+00 + 4.57800E-01 4.09274E-01 8.92553E-02 0.00000E+00 0.00000E+00 + 2.12709E+00 4.23543E-01 3.96111E-01 8.48999E-02 0.00000E+00 + 0.00000E+00 2.02355E+00 3.89284E-01 3.83676E-01 8.07340E-02 + 0.00000E+00 0.00000E+00 1.92197E+00 3.55253E-01 3.72791E-01 + 7.70414E-02 0.00000E+00 0.00000E+00 1.83435E+00 3.25529E-01 + 3.63250E-01 7.37638E-02 0.00000E+00 0.00000E+00 1.75237E+00 + 2.97367E-01 3.54737E-01 7.08013E-02 0.00000E+00 0.00000E+00 + 1.67648E+00 2.70959E-01 3.47024E-01 6.80821E-02 0.00000E+00 + 0.00000E+00 1.61159E+00 2.48083E-01 3.40889E-01 6.58908E-02 + 0.00000E+00 0.00000E+00 1.55359E+00 2.27365E-01 3.34737E-01 + 6.36637E-02 0.00000E+00 0.00000E+00 1.49338E+00 2.05568E-01 + 3.29090E-01 6.15916E-02 0.00000E+00 0.00000E+00 1.43899E+00 + 1.85608E-01 3.23925E-01 5.96704E-02 0.00000E+00 0.00000E+00 + 1.38999E+00 1.67382E-01 3.19932E-01 5.81635E-02 0.00000E+00 + 0.00000E+00 1.34575E+00 1.50694E-01 3.16607E-01 5.68918E-02 + 0.00000E+00 0.00000E+00 1.30609E+00 1.35519E-01 3.13630E-01 + 5.57361E-02 0.00000E+00 0.00000E+00 1.27068E+00 1.21776E-01 + 3.11679E-01 5.49682E-02 0.00000E+00 0.00000E+00 1.24002E+00 + 1.09701E-01 3.10515E-01 5.45029E-02 0.00000E+00 0.00000E+00 + 1.21206E+00 9.85321E-02 3.09070E-01 5.39169E-02 0.00000E+00 + 0.00000E+00 1.18680E+00 8.82825E-02 3.08311E-01 5.36042E-02 + 0.00000E+00 0.00000E+00 1.16432E+00 7.90280E-02 3.08126E-01 + 5.35271E-02 0.00000E+00 0.00000E+00 1.14442E+00 7.07058E-02 + 3.08341E-01 5.36182E-02 0.00000E+00 0.00000E+00 1.12682E+00 + 6.32298E-02 3.08497E-01 5.36857E-02 0.00000E+00 0.00000E+00 + 1.11057E+00 5.62146E-02 3.09403E-01 5.40831E-02 0.00000E+00 + 0.00000E+00 1.09659E+00 5.00841E-02 3.10266E-01 5.44676E-02 + 0.00000E+00 0.00000E+00 1.08475E+00 4.48047E-02 3.11705E-01 + 5.51203E-02 0.00000E+00 0.00000E+00 1.07429E+00 4.00631E-02 + 3.13175E-01 5.57983E-02 0.00000E+00 0.00000E+00 1.06510E+00 + 3.58209E-02 3.14907E-01 5.66109E-02 0.00000E+00 0.00000E+00 + 1.05700E+00 3.20215E-02 3.16818E-01 5.75236E-02 0.00000E+00 + 0.00000E+00 1.04988E+00 2.86227E-02 3.18814E-01 5.84938E-02 + 0.00000E+00 0.00000E+00 1.04364E+00 2.55848E-02 3.20896E-01 + 5.95247E-02 0.00000E+00 0.00000E+00 1.03815E+00 2.28712E-02 + 3.23262E-01 6.07177E-02 0.00000E+00 0.00000E+00 1.03333E+00 + 2.04402E-02 3.25566E-01 6.19019E-02 0.00000E+00 0.00000E+00 + 1.02911E+00 1.82709E-02 3.27899E-01 6.31246E-02 0.00000E+00 + 0.00000E+00 1.02466E+00 1.59395E-02 3.30375E-01 6.44477E-02 + 0.00000E+00 0.00000E+00 1.02128E+00 1.41315E-02 3.33029E-01 + 6.58948E-02 0.00000E+00 0.00000E+00 1.01862E+00 1.26832E-02 + 3.35681E-01 6.73700E-02 0.00000E+00 0.00000E+00 1.01628E+00 + 1.13842E-02 3.38449E-01 6.89432E-02 0.00000E+00 0.00000E+00 + 1.01423E+00 1.02185E-02 3.41190E-01 7.05336E-02 0.00000E+00 + 0.00000E+00 1.01243E+00 9.17321E-03 3.43940E-01 7.21648E-02 + 0.00000E+00 0.00000E+00 1.01086E+00 8.24021E-03 3.46774E-01 + 7.38834E-02 0.00000E+00 0.00000E+00 1.00947E+00 7.39573E-03 + 3.49428E-01 7.55308E-02 0.00000E+00 0.00000E+00 1.00759E+00 + 6.22680E-03 3.52279E-01 7.73412E-02 0.00000E+00 0.00000E+00 + 1.00661E+00 5.60701E-03 3.55170E-01 7.92219E-02 0.00000E+00 + 0.00000E+00 1.00579E+00 5.07232E-03 3.58018E-01 8.11206E-02 + 0.00000E+00 0.00000E+00 1.00507E+00 4.59383E-03 3.60897E-01 + 8.30883E-02 0.00000E+00 0.00000E+00 1.00443E+00 4.15709E-03 + 3.63736E-01 8.50794E-02 0.00000E+00 0.00000E+00 1.00387E+00 + 3.76048E-03 3.66598E-01 8.71390E-02 0.00000E+00 0.00000E+00 + 1.00338E+00 3.40884E-03 3.69432E-01 8.92361E-02 0.00000E+00 + 0.00000E+00 1.00294E+00 3.08289E-03 3.72253E-01 9.13820E-02 + 0.00000E+00 0.00000E+00 1.00256E+00 2.79708E-03 3.75060E-01 + 9.35798E-02 0.00000E+00 0.00000E+00 1.00222E+00 2.53051E-03 + 3.77847E-01 9.58265E-02 0.00000E+00 0.00000E+00 1.00193E+00 + 2.29290E-03 3.80617E-01 9.81291E-02 0.00000E+00 0.00000E+00 + 1.00171E+00 2.11146E-03 3.83363E-01 1.00484E-01 0.00000E+00 + 0.00000E+00 1.00147E+00 1.90433E-03 3.86086E-01 1.02896E-01 + 0.00000E+00 0.00000E+00 1.00127E+00 1.72770E-03 3.88765E-01 + 1.05349E-01 0.00000E+00 0.00000E+00 1.00109E+00 1.56393E-03 + 3.91436E-01 1.07882E-01 0.00000E+00 0.00000E+00 1.00093E+00 + 1.41620E-03 3.94067E-01 1.10466E-01 0.00000E+00 0.00000E+00 + 1.00079E+00 1.28133E-03 3.96657E-01 1.13109E-01 0.00000E+00 + 0.00000E+00 1.00067E+00 1.15930E-03 4.02064E-01 1.18841E-01 + 0.00000E+00 0.00000E+00 1.01022E+00 1.12815E-02 4.01636E-01 + 1.18367E-01 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 + 4.04142E-01 1.21251E-01 0.00000E+00 0.00000E+00 1.00000E+00 + 0.00000E+00 4.06592E-01 1.24196E-01 0.00000E+00 0.00000E+00 + 1.00000E+00 0.00000E+00 4.09001E-01 1.27226E-01 0.00000E+00 + 0.00000E+00 9.99998E-01 -1.60567E-06 4.11349E-01 1.30324E-01 + 0.00000E+00 0.00000E+00 1.00000E+00 1.60567E-06 4.13655E-01 + 1.33525E-01 0.00000E+00 0.00000E+00 9.99998E-01 -1.60567E-06 + 4.15889E-01 1.36794E-01 0.00000E+00 0.00000E+00 1.00000E+00 + 0.00000E+00 4.18069E-01 1.40165E-01 0.00000E+00 0.00000E+00 + 1.00000E+00 1.60567E-06 4.20177E-01 1.43626E-01 0.00000E+00 + 0.00000E+00 1.00000E+00 0.00000E+00 4.22219E-01 1.47194E-01 + 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 4.24179E-01 + 1.50858E-01 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 + 4.26061E-01 1.54637E-01 0.00000E+00 0.00000E+00 1.00000E+00 + 0.00000E+00 4.27852E-01 1.58523E-01 0.00000E+00 0.00000E+00 + 1.00000E+00 0.00000E+00 4.29550E-01 1.62530E-01 0.00000E+00 + 0.00000E+00 1.00000E+00 0.00000E+00 4.31143E-01 1.66652E-01 + 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 4.32632E-01 + 1.70914E-01 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 + 4.34000E-01 1.75295E-01 0.00000E+00 0.00000E+00 1.00000E+00 + 0.00000E+00 4.35245E-01 1.79819E-01 0.00000E+00 0.00000E+00 + 9.99999E-01 -1.60567E-06 4.36357E-01 1.84487E-01 0.00000E+00 + 0.00000E+00 1.00000E+00 1.60567E-06 4.37323E-01 1.89298E-01 + 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 4.38137E-01 + 1.94265E-01 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 + 4.38787E-01 1.99393E-01 0.00000E+00 0.00000E+00 1.00000E+00 + 0.00000E+00 4.39260E-01 2.04678E-01 0.00000E+00 0.00000E+00 + 1.00000E+00 0.00000E+00 4.39547E-01 2.10140E-01 0.00000E+00 + 0.00000E+00 1.00000E+00 0.00000E+00 4.39633E-01 2.15778E-01 + 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 4.39549E-01 + 2.19647E-01 -9.38290E-05 4.30879E-03 1.00000E+00 0.00000E+00 + 4.39204E-01 2.25508E-01 -1.03116E-04 4.46646E-03 1.00000E+00 + 0.00000E+00 4.38623E-01 2.31556E-01 -1.19034E-04 4.63224E-03 + 1.00000E+00 0.00000E+00 4.37793E-01 2.37794E-01 -1.41996E-04 + 4.80471E-03 1.00000E+00 0.00000E+00 4.36698E-01 2.44223E-01 + -1.72541E-04 4.98411E-03 1.00000E+00 0.00000E+00 4.35320E-01 + 2.50866E-01 -2.11255E-04 5.17079E-03 1.00000E+00 0.00000E+00 + 4.33647E-01 2.57712E-01 -2.58741E-04 5.36500E-03 1.00000E+00 + 0.00000E+00 4.31659E-01 2.64771E-01 -3.15650E-04 5.56708E-03 + 1.00000E+00 0.00000E+00 4.29335E-01 2.72060E-01 -3.82680E-04 + 5.77737E-03 1.00000E+00 0.00000E+00 4.26663E-01 2.79570E-01 + -4.60547E-04 5.99618E-03 1.00000E+00 0.00000E+00 4.25834E-01 + 2.81677E-01 -4.59346E-03 1.65128E-02 1.00000E+00 0.00000E+00 + 4.23869E-01 2.86248E-01 -7.14820E-03 2.24525E-02 1.00000E+00 + 0.00000E+00 4.20356E-01 2.93765E-01 -7.55061E-03 2.33138E-02 + 1.00000E+00 -1.60565E-06 4.16457E-01 3.01497E-01 -8.00200E-03 + 2.42087E-02 9.99998E-01 1.60567E-06 4.12162E-01 3.09428E-01 + -8.50534E-03 2.51383E-02 1.00000E+00 -1.60567E-06 4.07449E-01 + 3.17573E-01 -9.06405E-03 2.61039E-02 9.99998E-01 1.60567E-06 + 4.02300E-01 3.25937E-01 -9.68149E-03 2.71068E-02 1.00000E+00 + 0.00000E+00 3.96696E-01 3.34521E-01 -1.03613E-02 2.81481E-02 + 1.00000E+00 0.00000E+00 3.98420E-01 3.32021E-01 -2.31638E-02 + 4.67034E-02 1.00000E+00 0.00000E+00 3.93320E-01 3.39036E-01 + -2.56651E-02 5.01437E-02 1.00000E+00 0.00000E+00 3.87057E-01 + 3.47232E-01 -2.71124E-02 5.20375E-02 1.00000E+00 0.00000E+00 + 3.80365E-01 3.55584E-01 -2.86827E-02 5.39971E-02 1.00000E+00 + 0.00000E+00 3.73231E-01 3.64091E-01 -3.03822E-02 5.60241E-02 + 1.00000E+00 -1.60567E-06 3.65639E-01 3.72762E-01 -3.22179E-02 + 5.81207E-02 9.99998E-01 1.60565E-06 3.57593E-01 3.81578E-01 + -3.41956E-02 6.02876E-02 1.00000E+00 0.00000E+00 3.49073E-01 + 3.90548E-01 -3.63223E-02 6.25267E-02 1.00000E+00 0.00000E+00 + 3.40070E-01 3.99670E-01 -3.86047E-02 6.48393E-02 1.00000E+00 + 0.00000E+00 3.30592E-01 4.08926E-01 -4.10493E-02 6.72265E-02 + 1.00000E+00 0.00000E+00 3.20619E-01 4.18324E-01 -4.36634E-02 + 6.96898E-02 1.00000E+00 0.00000E+00 3.28567E-01 4.11087E-01 + -6.87622E-02 9.25423E-02 1.00000E+00 -1.60567E-06 3.28567E-01 + 4.11087E-01 -6.87622E-02 9.25423E-02 1.00000E+00 -1.60567E-06 diff --git a/code/input-output/netserver.log b/code/input-output/netserver.log new file mode 100644 index 0000000..87277f5 --- /dev/null +++ b/code/input-output/netserver.log @@ -0,0 +1,95 @@ +$ on control_y then goto fine +$ on error then goto finb +$ NODE = F$GETSYI("NODENAME") +$! PER MOTIVI DI SICUREZZA NON SI PUO'INTERROMPERE QUESTA PROCEDURA +$! ----------------------------------------- +$! SYlogin.com +$! last update : 11-jul-1994 +$! ----------------------------------------- +$! +$! This command procedure is always run when anybody on the entire system +$! logs in. It is equivalent to LOGIN.COM except that the instructions +$! contained herein are executed everytime anyone on the VMS system +$! logs in to their account. +$! +$! For interactive processes, turn on Control T, and set the terminal type +$! +$ IF (F$MODE() .EQS. "INTERACTIVE") THEN SET CONTROL=T +$ IF (F$MODE() .EQS. "INTERACTIVE") THEN SET TERMINAL/INQUIRE +$! +$! For MicroVAX systems only, use the command MOUNT/NOASSIST. +$! +$ IF (.NOT. F$TRNLNM("SYS$MICROVAX")) THEN GOTO SKIP_MICROVAX_COMMANDS +$SKIP_MICROVAX_COMMANDS: +$! +$! ---------------------------------------------- +$! Place your site-specific LOGIN commands below +$! ---------------------------------------------- +$! +$set prot=(s:rwed,o:rwed,g:rwe,w:re)/default +$! +$! code e comandi di stampa +$! +$! Code e comandi di stampa +$! +$ LASER :== PRINT/QUEUE=LASER /FORM=0 +$ LASERP :== PRINT/QUEUE=LASER /FORM=10 +$ LASERL :== PRINT/QUEUE=LASER/NOFEED /FORM=11 +$ LASRESET :== PRINT/QUEUE=LASER /FORM=12 +$! +$ PORT :=/PARAMS=(DATA_TYPE=ANSI,PAGE_ORIENTATION=PORTRAIT) +$ LAND :=/PARAMS=(DATA_TYPE=ANSI,PAGE_ORIENTATION=LANDSCAPE) +$ POSTP == "PRINT/NOFLAG/NOBURST/NOTRAILER/QUEUE=cps_ansi"+PORT +$ POSTL == "PRINT/NOFLAG/NOBURST/NOTRAILER/QUEUE=cps_ansi"+LAND +$! +$ POSTSCRIPT:==print/noflag/noburst/notrailer/noheader - + /queue=cps_ps +$ CPS :==print/noflag/noburst/notrailer/noheader - + /queue=cps_ps +$ ANSI :==print/noflag/noburst/notrailer/noheader - + /queue=cps_ansi +$! +$ PSTOP :== STOP/ABORT SYS$PRINT +$ LSTOP :== STOP/ABORT LASER +$ CPSSTOP :== STOP/ABORT cps +$! +$ LJSTOP :== STOP/ABORT LJ250 +$ LJ250 :== PRINT/QUEUE=LJ250 +$! +$ STAMPA_TIB :== PRINT/QUEUE=STAMPA_TIB +$ STAMPA_STOP :== STOP/ABORT STAMPA_TIB +$! ------------------------------------------------ +$! comandi vari : +$! +$ CLEAR :==@SYS$MANAGER:MARC_CLEAR.COM +$! +$texup:==@soft$disk:[vax.tex]texmio.com +$! +$@CERN:[000000]CERN_SETUP.COM ! 24-MAY-1994 PER CERNLIB +$ SET NOVERIFY +CERN_SETUP: "PRO" library selected. +LIB$ = CERN:[PRO.LIB]PACKLIB/LIB,KERNLIB/LIB,SYS$LIBRARY:VAXCRTL/LIB + Tools definition in progress ...... + + see tool$disk:[tools]000readme.txt for a list of tools.... + see soft$disk:[vax]000readme.txt for a software list ... + +SETting UP XV (v 3.00)... +X11R5 directory is $4$DKA300:[TOOLS.X11R5.] +%DCL-I-SUPERSEDE, previous value of E$ has been superseded + + -------------------------------------------------------- + + Connect request received at 3-JAN-1995 18:41:34.08 + from remote process BOFI04::"0=GALLI" + for object "SYS$COMMON:[SYSEXE]FAL.EXE" + + -------------------------------------------------------- + + BOLLINI job terminated at 3-JAN-1995 18:48:17.25 + + Accounting information: + Buffered I/O count: 897 Peak working set size: 1109 + Direct I/O count: 213 Peak page file size: 3972 + Page faults: 26494 Mounted volumes: 0 + Charged CPU time: 0 00:00:08.02 Elapsed time: 0 00:06:53.87 diff --git a/code/input-output/ntuple.out b/code/input-output/ntuple.out new file mode 100644 index 0000000..2fcda8a Binary files /dev/null and b/code/input-output/ntuple.out differ diff --git a/code/input-output/ntuple_y.out b/code/input-output/ntuple_y.out new file mode 100644 index 0000000..9d35c25 Binary files /dev/null and b/code/input-output/ntuple_y.out differ diff --git a/code/input-output/ntupley.out b/code/input-output/ntupley.out new file mode 100644 index 0000000..6a53db9 Binary files /dev/null and b/code/input-output/ntupley.out differ diff --git a/code/input-output/ntupley_y.out b/code/input-output/ntupley_y.out new file mode 100644 index 0000000..a5552d2 Binary files /dev/null and b/code/input-output/ntupley_y.out differ diff --git a/code/input-output/ucx$ftpserver.log b/code/input-output/ucx$ftpserver.log new file mode 100644 index 0000000..4a505af --- /dev/null +++ b/code/input-output/ucx$ftpserver.log @@ -0,0 +1,86 @@ +$ on control_y then goto fine +$ on error then goto finb +$ NODE = F$GETSYI("NODENAME") +$! PER MOTIVI DI SICUREZZA NON SI PUO'INTERROMPERE QUESTA PROCEDURA +$! ----------------------------------------- +$! SYlogin.com +$! last update : 11-jul-1994 +$! ----------------------------------------- +$! +$! This command procedure is always run when anybody on the entire system +$! logs in. It is equivalent to LOGIN.COM except that the instructions +$! contained herein are executed everytime anyone on the VMS system +$! logs in to their account. +$! +$! For interactive processes, turn on Control T, and set the terminal type +$! +$ IF (F$MODE() .EQS. "INTERACTIVE") THEN SET CONTROL=T +$ IF (F$MODE() .EQS. "INTERACTIVE") THEN SET TERMINAL/INQUIRE +$! +$! For MicroVAX systems only, use the command MOUNT/NOASSIST. +$! +$ IF (.NOT. F$TRNLNM("SYS$MICROVAX")) THEN GOTO SKIP_MICROVAX_COMMANDS +$ SKIP_MICROVAX_COMMANDS: +$! +$! ---------------------------------------------- +$! Place your site-specific LOGIN commands below +$! ---------------------------------------------- +$! +$ set prot=(s:rwed,o:rwed,g:rwe,w:re)/default +$! +$! code e comandi di stampa +$! +$! Code e comandi di stampa +$! +$ LASER :== PRINT/QUEUE=LASER /FORM=0 +$ LASERP :== PRINT/QUEUE=LASER /FORM=10 +$ LASERL :== PRINT/QUEUE=LASER/NOFEED /FORM=11 +$ LASRESET :== PRINT/QUEUE=LASER /FORM=12 +$! +$ PORT :=/PARAMS=(DATA_TYPE=ANSI,PAGE_ORIENTATION=PORTRAIT) +$ LAND :=/PARAMS=(DATA_TYPE=ANSI,PAGE_ORIENTATION=LANDSCAPE) +$ POSTP == "PRINT/NOFLAG/NOBURST/NOTRAILER/QUEUE=cps_ansi"+PORT +$ POSTL == "PRINT/NOFLAG/NOBURST/NOTRAILER/QUEUE=cps_ansi"+LAND +$! +$ POSTSCRIPT:==print/noflag/noburst/notrailer/noheader - + /queue=cps_ps +$ CPS :==print/noflag/noburst/notrailer/noheader - + /queue=cps_ps +$ ANSI :==print/noflag/noburst/notrailer/noheader - + /queue=cps_ansi +$! +$ PSTOP :== STOP/ABORT SYS$PRINT +$ LSTOP :== STOP/ABORT LASER +$ CPSSTOP :== STOP/ABORT cps +$! +$ LJSTOP :== STOP/ABORT LJ250 +$ LJ250 :== PRINT/QUEUE=LJ250 +$! +$ STAMPA_TIB :== PRINT/QUEUE=STAMPA_TIB +$ STAMPA_STOP :== STOP/ABORT STAMPA_TIB +$! ------------------------------------------------ +$! comandi vari : +$! +$ CLEAR :==@SYS$MANAGER:MARC_CLEAR.COM +$! +$ TEXUP :==@soft$disk:[vax.tex]texmio.com +$! +$ @CERN:[000000]CERN_SETUP.COM ! 24-MAY-1994 PER CERNLIB +$ SET NOVERIFY +CERN_SETUP: "PRO" library selected. +LIB$ = CERN:[PRO.LIB]PACKLIB/LIB,KERNLIB/LIB,SYS$LIBRARY:VAXCRTL/LIB + Tools definition in progress ...... + + see tool$disk:[tools]000readme.txt for a list of tools.... + see soft$disk:[vax]000readme.txt for a software list ... + +SETting UP XV (v 3.00)... +X11R5 directory is $4$DKA300:[TOOLS.X11R5.] +%DCL-I-SUPERSEDE, previous value of E$ has been superseded + BOLLINI job terminated at 9-AUG-1994 11:23:51.77 + + Accounting information: + Buffered I/O count: 1056 Peak working set size: 1111 + Direct I/O count: 396 Peak page file size: 4513 + Page faults: 29255 Mounted volumes: 0 + Charged CPU time: 0 00:00:09.69 Elapsed time: 0 00:15:50.74 diff --git a/code/input-output/yaps.dat b/code/input-output/yaps.dat new file mode 100644 index 0000000..7790e99 --- /dev/null +++ b/code/input-output/yaps.dat @@ -0,0 +1,6 @@ + -4 0. 0.0 10. 40. 20. 3 5 ! num cyl,r,z,dx,dy,dz,med,medyap + 0.0 -1.0 ! ang. coll. , flag uscite yap + 20 0. 0. 10. 40 20 5 ! r , z dx ,dy ,dz ,medyap + 20 0. 90. 10. 40 20 5 + 20 0. 180. 10. 40 20 5 + 20 0. 270. 10. 40 20 5 diff --git a/code/input-output/yaps_y.dat b/code/input-output/yaps_y.dat new file mode 100644 index 0000000..b8ad8bd --- /dev/null +++ b/code/input-output/yaps_y.dat @@ -0,0 +1,4 @@ + 6 0. 0.0 2. 4.2 4.2 3 4 ! num riv.,r,z,dx,dy,dz,med,medyap + 0.0 0.0 ! ang. coll. , flag uscite yap + + diff --git a/code/procedures/copy04.com b/code/procedures/copy04.com new file mode 100644 index 0000000..73a6276 --- /dev/null +++ b/code/procedures/copy04.com @@ -0,0 +1,21 @@ +$! copia/conf da bofi04 un file di egs4 cilindro +$! il primo parametro e' il nome del file, +$! il secondo la password su bofi04 +$! +$ASKP: +$ if P2.eqs."" +$ then +$ inquire P2 " give password for bofi04" +$ goto ASKP +$ endif +$! +$ASKF: +$ if P1.eqs."" +$ then +$ inquire P1 " give file to be copied from bofi04" +$ goto ASKF +$endif +$! +$copy/log/conf bofi04"galli ''P2'"::bofi04$dkb100:[galli.egs4.cyl]'P1' * +$write sys$output " " +$write sys$output " done ..." diff --git a/code/procedures/definizioni.com b/code/procedures/definizioni.com new file mode 100644 index 0000000..0422d5e --- /dev/null +++ b/code/procedures/definizioni.com @@ -0,0 +1,10 @@ +$! definizioni per l'alfa ( sono nella login in bofi04 ) +$ +$! per il link di egs4_cyl_2 : +$ define pgsub petsub.obj ! interfacce ad higz +$ define pglib cern:[pro.lib]graflib.olb ! routine grafiche cern +$! define gksbnd sys$common:[syslib]gksforbnd.olb ! dec gks fortran interfaces +$ define gksbnd cern:[pro.lib]GRAFGKS.OLB +$! per il run +$ define materiali mat3mev.dat ! materiali da pegs4 +$! diff --git a/code/procedures/for_cyl_2.com b/code/procedures/for_cyl_2.com new file mode 100644 index 0000000..d4d1c11 --- /dev/null +++ b/code/procedures/for_cyl_2.com @@ -0,0 +1,48 @@ +$wr="write sys$output" +$wr " Compilation of user written routines for egs4: cyl. geometry" +$wr " con anche i rivelatori. +$wr " Questa variante include routines grafiche interattive " +$wr " Ed anche le n-tuple su unit 21 " +$! +$ if P1.eqs."DEBUG" +$ then +$ FOR:=FOR/DEBUG/NOOPT +$ endif +$wr " compiling egs4_cyl_2 ..." +$ for/nolist egs4_cyl_2 +$wr " compiling init_cyl_2 ..." +$ for/nolist init_cyl_2 +$wr " compiling histin_cyl_2 ..." +$ for/nolist histin_cyl_2 +$wr " compiling source_cyl_2 ..." +$ for/nolist source_cyl_2 +$wr " compiling howfar_cyl_2a ..." +$ for/nolist howfar_cyl_2a +$wr " compiling ausgabe_cyl_2 ..." +$ for/nolist ausgabe_cyl_2 +$wr " compiling statend_cyl_2 ..." +$ for/nolist statend_cyl_2 +$wr " all including: comm_cyltot_2.for" +$wr " comm_yaps.for" +$wr " compiling guarda_2.for" +$!wr " including: pg_comm.for" +$!wr " comm_cyl_2.for" +$wr " now including: comm_cyl_2.for" +$wr " comm_yaps.for" +$wr " petgraf.inc" +$ for/nolist guarda_2 +$wr " compiling yaps.for ..." +$ for/nolist yaps +$wr " compilink howyaps.for .." +$ for/nolist howyaps +$wr " including: comm_yaps.for" +$wr "" +$wr " compilation ended :" +$wr " files not re-compiled: interfaces to highz :" +$wr " petgraf.for , including: petgraf.inc,petgraf_com.inc" +$wr " petgraf_data.inc" +$wr " petgraf_higz.inc" +$wr " egs4funl.for : egs4 routines" +$wr " " +$dir *.obj + diff --git a/code/procedures/link_cyl_2.com b/code/procedures/link_cyl_2.com new file mode 100644 index 0000000..f6e94be --- /dev/null +++ b/code/procedures/link_cyl_2.com @@ -0,0 +1,47 @@ +$! version 26-oct-1994 +$IF P1 .eqs. "DEBUG" then LINK:=LINK/DEBUG +$wr:=write sys$output +$wr " linking egs4 routiines for cyl. geom." +$wr " including interactive plots" +$wr " ed n-tuple" +$! +$! define egs4f$disk sys$sysdevice:[galli.egs4] +$! define pgsub sys$sysdevice:[galli.pg]petsub.obj ! interface to higz +$! define pglib sys$sysdevice:[galli.pg]petgra.olb ! some higz routines +$! define lib$ cern$library:packlib/lib,- +$! cern$library:genlib/lib,- questa non e' usata +$! cern$library:kernlib/lib +$! define gksbnd sys$common:[syslib]gksforbnd.olb !DecGKS fortran interface +$! +$!@definizioni ! definizioni specifiche per l'alfa eboal1 +$! +$write sys$output " linking all ..." +$ cernlib mathlib,packlib,graflib/x11,packlib,mathlib +$ link/nomap egs4_cyl_2,init_cyl_2,yaps,- + histin_cyl_2,source_cyl_2,- + guarda_2,- + howfar_cyl_2a,howyaps,ausgabe_cyl_2,- + statend_cyl_2,- + egs4funl,- + petgraf.obj, - + cern$mgr:gethostname, - + 'lib$' +$! pgsub,- old graph. interfaces to highz +$! +$ write sys$output " done ..." +$ dir *.exe +$ exit +$! +$! --------------- sotto il link usato per bofi04 : DEC VMS : +$ link/nomap egs4_cyl_2,init_cyl_2,yaps,- + histin_cyl_2,source_cyl_2,- + guarda_2,- + howfar_cyl_2a,howyaps,ausgabe_cyl_2,- + statend_cyl_2,- + egs4funl,- + pgsub,pglib/lib, - + gksbnd/lib, - + 'lib$' + +$ write sys$output " done ..." +$ dir *.exe diff --git a/code/procedures/link_cyl_2_alpha.com b/code/procedures/link_cyl_2_alpha.com new file mode 100644 index 0000000..caa13a4 --- /dev/null +++ b/code/procedures/link_cyl_2_alpha.com @@ -0,0 +1,49 @@ +$! version 26-oct-1994 +$IF P1 .eqs. "DEBUG" then LINK:=LINK/DEBUG +$wr:=write sys$output +$wr " linking egs4 routiines for cyl. geom." +$wr " including interactive plots" +$wr " ed n-tuple" +$! +$! define egs4f$disk sys$sysdevice:[galli.egs4] +$! define pgsub sys$sysdevice:[galli.pg]petsub.obj ! interface to higz +$! define pglib sys$sysdevice:[galli.pg]petgra.olb ! some higz routines +$! define lib$ cern$library:packlib/lib,- +$! cern$library:genlib/lib,- questa non e' usata +$! cern$library:kernlib/lib +$! define gksbnd sys$common:[syslib]gksforbnd.olb !DecGKS fortran interface +$! +$@definizioni ! definizioni specifiche per l'alfa eboal1 +$! +$write sys$output " linking all ..." +$ cernlib +$ link/nomap egs4_cyl_2,init_cyl_2,yaps,- + histin_cyl_2,source_cyl_2,- + guarda_2,- + howfar_cyl_2a,howyaps,ausgabe_cyl_2,- + statend_cyl_2,- + egs4funl,- + petgraf.obj, - + 'lib$',- + cern:[pro.lib]packlib/lib,graflib/lib,grafx11/lib,grafx11/opt,- + packlib/lib,kernlib/lib +$! +$! pgsub,- old graph. interfaces to highz +$! +$ write sys$output " done ..." +$ dir *.exe +$ exit +$! +$! --------------- sotto il link usato per bofi04 : DEC VMS : +$ link/nomap egs4_cyl_2,init_cyl_2,yaps,- + histin_cyl_2,source_cyl_2,- + guarda_2,- + howfar_cyl_2a,howyaps,ausgabe_cyl_2,- + statend_cyl_2,- + egs4funl,- + pgsub,pglib/lib, - + gksbnd/lib, - + 'lib$' + +$ write sys$output " done ..." +$ dir *.exe diff --git a/code/procedures/run_cyl_2.com b/code/procedures/run_cyl_2.com new file mode 100644 index 0000000..27fff25 --- /dev/null +++ b/code/procedures/run_cyl_2.com @@ -0,0 +1,48 @@ +$Wr:=write sys$output +$!wr " running egs4 cyl. geometry, IF P2.EQS. PATHS prints particles path" +$wr " IF P1.eqs. "" "" nodebug" +$WR " version egs4_cyl_2 including interactive plotting" +$wr " ed n-tuple e rivelatori " +$! +$ if P1 .eqs. "" +$then +$ P1="NODEBUG" +$else +$ P1="DEBUG" +$endif +$ write sys$output " now running egs4_cyl_2 ..." +$!define materiali bofi04$dkb100:[galli.egs4]mat3mev.dat ! definito a parte +$! per l'alfa +$! in definizioni.com +$! for005 ! terminal input +$! for006 ! terminal output +$assign/user cyl_2.dat for007 ! geometry input +$assign/user yaps.dat for013 ! geometria rivelatori +$assign/user hatch.out for008 ! egs4 mateiral out list +$assign/user hist_cyl_2.dat for009 ! histogram input +$!assign/user hist_cyl_2dum.dat for009 ! histogram input +$assign/user cyl.out for010 ! output +$! for011 ! ps metafile for plots +$assign/user materiali for012 ! mat library +$assign/user hbook.out for020 ! hbook output +$assign/user ntuple.out for021 ! hbook output +$assign/user ntupley.out for022 ! hbook output +$! +$! +$ define materiali mat3mev.dat ! materiali da pegs +$! +$! if P2 .eqs. "PATHS" +$! then +$ assign/user particles.out for050 ! particle's path (for test) +$! else +$! assign/user nl: for050 ! no particle's path +$! endif +$assign/user sys$command sys$input ! user input from terminal +$run/'P1' egs4_cyl_2 +$write sys$output " run ended ......" +$write sys$output " printed output in: CYL.OUT " +$write sys$output " hatch output in: HATCH.OUT " +$write sys$output " HBOOK output in: HBOOK.OUT " +$write sys$output " Ntuple output in: ntuple.OUT " +$if P2.eqs."PATHS" then write sys$output " particles paths in: PARTICLES.OUT " +$exit diff --git a/code/procedures/run_cyl_2_y.com b/code/procedures/run_cyl_2_y.com new file mode 100644 index 0000000..a1dacbc --- /dev/null +++ b/code/procedures/run_cyl_2_y.com @@ -0,0 +1,44 @@ +$! caso con 6 yaps di 4.2*4.2*2cm attorno a cilindretto di r=2cm +$! ed Al di 0.5cm +$! +$Wr:=write sys$output +$!wr " running egs4 cyl. geometry, IF P2.EQS. PATHS prints particles path" +$wr " IF P1.eqs. "" "" nodebug" +$WR " version egs4_cyl_2 including interactive plotting" +$wr " ed n-tuple e rivelatori " +$! +$ if P1 .eqs. "" +$then +$ P1="NODEBUG" +$else +$ P1="DEBUG" +$endif +$ write sys$output " now running egs4_cyl_2 ..." +$define materiali mat3mev.dat +$! for005 ! terminal input +$! for006 ! terminal output +$assign/user cyl_2_y.dat for007 ! geometry input +$assign/user yaps_y.dat for013 ! geometria rivelatori +$assign/user hatch.out for008 ! egs4 mateiral out list +$assign/user hist_cyl_2_y.dat for009 ! histogram input +$assign/user cyl_y.out for010 ! output +$! for011 ! ps metafile for plots +$assign/user materiali for012 ! mat library +$assign/user hbook_y.out for020 ! hbook output +$assign/user ntuple_y.out for021 ! hbook output +$assign/user ntupley_y.out for022 ! hbook output +$! if P2 .eqs. "PATHS" +$! then +$ assign/user particles.out for050 ! particle's path (for test) +$! else +$! assign/user nl: for050 ! no particle's path +$! endif +$assign/user sys$command sys$input ! user input from terminal +$run/'P1' egs4_cyl_2 +$write sys$output " run ended ......" +$write sys$output " printed output in: CYL.OUT " +$write sys$output " hatch output in: HATCH.OUT " +$write sys$output " HBOOK output in: HBOOK.OUT " +$write sys$output " Ntuple output in: ntuple.OUT " +$if P2.eqs."PATHS" then write sys$output " particles paths in: PARTICLES.OUT " +$exit diff --git a/code/procedures/setdisplay.com b/code/procedures/setdisplay.com new file mode 100644 index 0000000..a2c46e9 --- /dev/null +++ b/code/procedures/setdisplay.com @@ -0,0 +1 @@ +$set display/create/node='p1'/transport=tcpip/server=0 diff --git a/code/source/000readme.txt b/code/source/000readme.txt new file mode 100644 index 0000000..87e813b --- /dev/null +++ b/code/source/000readme.txt @@ -0,0 +1,12 @@ + Grafica associata al egs4 cilindrico per PET - version 24-1-1994 + + main.for: test grafico + petgradef.for file included in main.for + + link.com istruzioni per il link + + petsub.for librerie grafiche di Ferriani + petsub.obj + + petgracom.for file included in petsub.for + diff --git a/code/source/ausgabe_cyl_2.for b/code/source/ausgabe_cyl_2.for new file mode 100644 index 0000000..39771e0 --- /dev/null +++ b/code/source/ausgabe_cyl_2.for @@ -0,0 +1,279 @@ +c +C FILE AUSGABE_CYL_2.FOR del 6-sept-1994 + SUBROUTINE AUSGAB(IARG) +C-----------------------------------------------------------C +C POSITRONS , CYL GEOMETRY +C version 9-may-1994 : added tuple delle posizioni di decay del +C positrone +C-----------------------------------------------------------C + INCLUDE 'COMM_CYLtot_2.FOR' + include 'comm_yaps.for' +C-----------------------------------------------------------C + DIMENSION TUPLA(3) + dimension tuplay(16) +c +c per le sommatorie delle energie perse nei yaps +c da mettere nelle n-tuple dei yaps +c parameter mypmax max num yaps, fissato da comm_yaps.for + dimension xmedio(mypmax),ymedio(mypmax),zmedio(mypmax) + dimension x2medio(mypmax),y2medio(mypmax),z2medio(mypmax) + dimension energiag(mypmax),energiae(mypmax),energiap(mypmax) + dimension energia(mypmax),numero(mypmax) + dimension numeroe(mypmax),numerop(mypmax),numerog(mypmax) +c +C ----------------------------------------------------- +C +C Calls for Positron annih, iarg=13,14 ( iausfl(14,15)=1 ) +C Chiamata da electr dopo decaduto il positrone +C per vedere dove decade, ( posizione dei gamma ) +C l'angolo fra i gamma ed altro +C + IF(IARG.EQ.13.OR.IARG.EQ.14) THEN +C +C Posizione in cui avviene il decadimento +C .......... --------------------------------------- .... + RADPAR=SQRT(X(NP)*X(NP) + Y(NP)*Y(NP)) +C ......... X-Y DISTRIBUTION ov decay points + CALL HFILL(400,X(NP),Y(NP),1.) +C ...........Z-R DISTRIBUTION OF DECAY POINTS + CALL HFILL(401,RADPAR,Z(NP),1.) +C ........... tuple x,y,z di decay del positrone + IF(N51DECAY.GT.0) THEN + TUPLA(1)=X(NP) + TUPLA(2)=Y(NP) + TUPLA(3)=Z(NP) + if(noutflag3.gt.0) CALL HFN(800,TUPLA) + ENDIF +C +C ........... Angolo fra i due gamma ............... +C ---------------------- +C + NP1=NP-1 + NP2=NP +C +C ............ Normalizzo i coseni direttori dei 2 gamma + ANORM=1./SQRT(U(NP1)*U(NP1)+V(NP1)*V(NP1)+W(NP1)*W(NP1)) + UN1=U(NP1)*ANORM + VN1=V(NP1)*ANORM + WN1=W(NP1)*ANORM + ANORM=1./SQRT(U(NP2)*U(NP2)+V(NP2)*V(NP2)+W(NP2)*W(NP2)) + UN2=U(NP2)*ANORM + VN2=V(NP2)*ANORM + WN2=W(NP2)*ANORM +C ............ angolo fra i 2 gamma + ANGLE=UN1*UN2+VN1*VN2+WN1*WN2 +C Correction for precision problems .. argument to acos >1 +C IF(ABS(ANGLE).GT.1.) TYPE*,' ACOS ARG=',ANGLE + IF(ABS(ANGLE).GT.1.) ANGLE=SIGN(1.,ANGLE) + ANGLE=ACOS(ANGLE) +C + CALL HFILL(501,ANGLE,0.,1.) +C + RETURN + ENDIF +C +C-----------------------------------------------------------C +C Other calls to ausgabe: +C KEEP A RUNNING SUM OF THE ENERGY DEPOSITED IN EACH REGION +C PRINT OUT THE FIRST NLINES OF STACK INFORMATION, ETC. +C-----------------------------------------------------------C +C +C--------------STATISTICS OF REGIONS ( common /epersa/ ) +c energia persa nelle regioni +C + i=ir(np) ! numero della regione + iyap=ir(np)-ncyl-1 ! numero del rivelatore + if(nyp.gt.0.and.iyap.gt.0.and.iyap.le.nyp) then ! se e' un yap + call inyapsys(iyap,x(np),y(np),z(np),xnelyap,ynelyap,znelyap) +c mi calcolo le coordinate della particella nel sistema del yap + endif +c + ESUM(I)=ESUM(I) + EDEP ! total lost energy +c energia persa divisa per particelle + if(iq(np).eq.0) then + esumgam(IR(NP)) = esumgam(IR(NP)) + EDEP ! gamma + else IF (IQ(NP).EQ.-1) then + esumele(IR(NP)) = esumele(IR(NP)) + EDEP ! elettroni + else IF (IQ(NP).EQ. 1) then + esumpos(IR(NP)) = esumpos(IR(NP)) + EDEP ! positroni + endif +c + dexm(i)=dexm(i)+edep*x(np) ! posizione media + deym(i)=deym(i)+edep*y(np) + dezm(i)=dezm(i)+edep*z(np) +c + if(iarg.gt.0.and.iarg.le.4) then ! assorbimenti + numerotot(i)=numerotot(i)+1 + if(iq(np).eq.0) then + numerogam(i)=numerogam(i)+1 + else if(iq(np).eq.1) then + numeropos(i)=numeropos(i)+1 + else if(iq(np).eq.-1) then + numeroele(i)=numeroele(i)+1 + endif + endif +c + if(nyp.gt.0.and.iyap.gt.0.and.iyap.le.nyp) then ! se e' un yap + dexmypi(iyap)=dexmypi(iyap)+edep*xnelyap ! posizione media + deymypi(iyap)=deymypi(iyap)+edep*ynelyap ! nel sistema di coord + dezmypi(iyap)=dezmypi(iyap)+edep*znelyap ! del rivelatore + desxmypi(iyap)=desxmypi(iyap)+edep*xnelyap**2 ! media di x**2 + desymypi(iyap)=desymypi(iyap)+edep*ynelyap**2 ! nel rivelatore + deszmypi(iyap)=deszmypi(iyap)+edep*znelyap**2 + if(iq(np).eq.0) then + dexmypig(iyap)=dexmypig(iyap)+edep*xnelyap ! gamma + deymypig(iyap)=deymypig(iyap)+edep*ynelyap + dezmypig(iyap)=dezmypig(iyap)+edep*znelyap + desxmypig(iyap)=desxmypig(iyap)+edep*xnelyap**2 + desymypig(iyap)=desymypig(iyap)+edep*ynelyap**2 + deszmypig(iyap)=deszmypig(iyap)+edep*znelyap**2 + else if(iq(np).eq.1) then + dexmypip(iyap)=dexmypip(iyap)+edep*xnelyap ! positrons + deymypip(iyap)=deymypip(iyap)+edep*ynelyap + dezmypip(iyap)=dezmypip(iyap)+edep*znelyap + desxmypip(iyap)=desxmypip(iyap)+edep*xnelyap**2 + desymypip(iyap)=desymypip(iyap)+edep*ynelyap**2 + deszmypip(iyap)=deszmypip(iyap)+edep*znelyap**2 + else if(iq(np).eq.-1) then + dexmypie(iyap)=dexmypie(iyap)+edep*xnelyap ! electrons + deymypie(iyap)=deymypie(iyap)+edep*ynelyap + dezmypie(iyap)=dezmypie(iyap)+edep*znelyap + desxmypie(iyap)=desxmypie(iyap)+edep*xnelyap**2 + desymypie(iyap)=desymypie(iyap)+edep*ynelyap**2 + deszmypie(iyap)=deszmypie(iyap)+edep*znelyap**2 + endif + endif +C +c +C-----------------------------------------------------------C +C +C FILL HISTOGRAMS --------------C +C + RADPAR = SQRT(Y(NP)*Y(NP)+X(NP)*X(NP)) +C + CALL HFILL(700,RADPAR,Z(NP),EDEP) ! distr. r-z + CALL HFILL(701,X(NP),Y(NP),EDEP) ! x-y distr. +C + if(nyp.gt.0.and.iyap.gt.0.and.iyap.le.nyp) then ! distr dei yaps + CALL HFILL(100+IR(NP),xnelyap,0.,EDEP) ! profondita' nel yap + call hfill(200+ir(np),ynelyap,znelyap,edep) ! hist. nelle yap coord.y-z + else + CALL HFILL(100+IR(NP),Z(NP),0.,EDEP) ! z distr. per regione + CALL HFILL(200+IR(NP),X(NP),Y(NP),EDEP) ! xy distr. per reg. + endif +C-----------------------------------------------------------C + if(noutflag4.gt.0.and.nyp.gt.0.and.iyap.gt.0.and. + 1 iyap.le.nyp) then ! se e' yap, ci sono i yap e voglio n-tuple +c + xmedio(iyap)=xmedio(iyap)+edep*xnelyap + ymedio(iyap)=ymedio(iyap)+edep*ynelyap + zmedio(iyap)=zmedio(iyap)+edep*znelyap + x2medio(iyap)=x2medio(iyap)+edep*xnelyap**2 + y2medio(iyap)=y2medio(iyap)+edep*ynelyap**2 + z2medio(iyap)=z2medio(iyap)+edep*znelyap**2 +c + energia(iyap)=energia(iyap)+edep + if(iq(np).eq.-1) then + energiae(iyap)=energiae(iyap)+edep + else if(iq(np).eq.1) then + energiap(iyap)=energiap(iyap)+edep + else if(iq(np).eq.0) then + energiag(iyap)=energiag(iyap)+edep + endif +c + if(iarg.gt.0.and.iarg.le.4) then + numero(iyap)=numero(iyap)+1 + if(iq(np).eq.-1) then + numeroe(iyap)=numeroe(iyap)+1 + else if(iq(np).eq.1) then + numerop(iyap)=numerop(iyap)+1 + else if(iq(np).eq.0) then + numerog(iyap)=numerog(iyap)+1 + endif + endif + endif ! se si fanno le n-tuple dei rivelatori +c +C + RETURN +c + entry ausgabzero +c ------------------------------ +c azzera i dati per le n-tuple +c ------------------------------ +c + do 60 i=1,nyp + xmedio(i)=0.0 + ymedio(i)=0.0 + zmedio(i)=0.0 + x2medio(i)=0.0 + y2medio(i)=0.0 + z2medio(i)=0.0 + energia(i)=0.0 + energiae(i)=0.0 + energiap(i)=0.0 + energiag(i)=0.0 + numero(i)=0 + numeroe(i)=0 + numerop(i)=0 + numerog(i)=0 + 60 continue +c + return +c + entry ausgabhfn +c ------------------------------ +c riempie il file delle n-tuple, poi +c azzera i dati per le n-tuple +c ------------------------------ +c + do 70 i=1,nyp + if(energia(i).ne.0.0) then + energiadii=energia(i) + else + energiadii=1. + endif + tuplay(1)=ishower + tuplay(2)=i +c + tuplay(3)=xmedio(i)/energiadii + tuplay(4)=ymedio(i)/energiadii + tuplay(5)=zmedio(i)/energiadii +c + tuplay(6)=x2medio(i)/energiadii-tuplay(3)**2 + tuplay(7)=y2medio(i)/energiadii-tuplay(4)**2 + tuplay(8)=z2medio(i)/energiadii-tuplay(5)**2 +c + if(tuplay(6).gt.0) tuplay(6)=sqrt(tuplay(6)) + if(tuplay(7).gt.0) tuplay(7)=sqrt(tuplay(7)) + if(tuplay(8).gt.0) tuplay(8)=sqrt(tuplay(8)) +c + tuplay(9)=energia(i) + tuplay(10)=energiap(i) + tuplay(11)=energiae(i) + tuplay(12)=energiag(i) +c + tuplay(13)=numero(i) + tuplay(14)=numerop(i) + tuplay(15)=numeroe(i) + tuplay(16)=numerog(i) +c + call hfn(801,tuplay) ! stores n-tuples +c + xmedio(i)=0.0 ! zero shower array + ymedio(i)=0.0 + zmedio(i)=0.0 + x2medio(i)=0.0 + y2medio(i)=0.0 + z2medio(i)=0.0 + energia(i)=0.0 + energiae(i)=0.0 + energiap(i)=0.0 + energiag(i)=0.0 + numero(i)=0 + numeroe(i)=0 + numerop(i)=0 + numerog(i)=0 + 70 continue + return +c + END diff --git a/code/source/comm_cyl_2.for b/code/source/comm_cyl_2.for new file mode 100644 index 0000000..7877f35 --- /dev/null +++ b/code/source/comm_cyl_2.for @@ -0,0 +1,18 @@ +C------------------------------------------------------------------C +C comm_cyl_2.for version 26-7-1994 : +C ADDED N11INTER, N50PATHS, N51DECAY +C COMMONS FOR EGS4, CYL VERSION, +C from comm_cyl.for : commons for egs4 cyl, +C only /cylgeom/ and /iounit/ to be included in petgra routines +C------------------------------------------------------------------C + PARAMETER MXCYL=99 + integer traccia + COMMON /CYLGEOM/ NCYL,RTHICK(MXCYL),RCYL(MXCYL), + 1 RCYLSQ(MXCYL),INDMAT(99),ZMAX + 2 ,traccia +C + integer hislun,HISLUN1,HISLUNY + COMMON /IOUNIT/ LTYIN,LTYOUT,LTYFIL,LTYHIS,LTYDAT + A, HISLUN,metalun,N11INTER,N50PATHS,N51DECAY + B, hislun1,HISLUNY,n13 +C diff --git a/code/source/comm_cyltot_2.for b/code/source/comm_cyltot_2.for new file mode 100644 index 0000000..350d4e7 --- /dev/null +++ b/code/source/comm_cyltot_2.for @@ -0,0 +1,121 @@ +C FILE COMM_CYLTOT_2.FOR - data: 5-aug-1994 +C------------------------------------------------------------------C +C COMMONS FOR EGS4, CYL VERSION, TUTTI I COMMON, +C ESISTE UN FILE COMM_CYL_2 CON SOLO /IOUNIT/ E CYL +C last version 11-may-1994 : pramettrizzato il paw space /pawc/ +C AGGIUNTO OUTFLAG1,outflag2, outflag3 +c 6-may-1994 : added output flags to /iounit/ +C------------------------------------------------------------------C +C + CHARACTER * 4 MEDIA +C +C ------- COMMONS NEEDED --------------------------------------C +C + COMMON /RANDOM / IXX + COMMON /BOUNDS / ECUT(200),PCUT(200),VACDST + COMMON /MEDIA / NMED,RLC(10),RLDU(10),RHO(10) + A ,MSGE(10),MGE(10),MSEKE(10),MEKE(10) + B ,MLEKE(10),MCMFP(10),MRANGE(10),IRAYLM(10) + COMMON /MISC / KMPI,KMPO,DUNIT,NOSCAT,MED(200) + A ,RHOR(200),IRAYLR(200) + COMMON /MEDIAC / MEDIA(24,10) + COMMON /TXDATA / ISHOWER,IQI,EI,XI,YI,ZI,UI,VI,WI,IRI,WTI, + A EVKIN,ICODE,ISQGAM +C--- + COMMON /USEFUL / PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE +C-- + PARAMETER MXCYL=99 ! numero max di cilindri + integer traccia + COMMON /CYLGEOM/ NCYL,RTHICK(MXCYL),RCYL(MXCYL), + 1 RCYLSQ(MXCYL),ZMAX,traccia +C------------------------------------------------------------------C +c profile contiene le energie perse nelle varie zone +c ora e' inutilizzato , questo e total sono rimpiazzati +c dal common epersa +c COMMON/PROFILE/DEODX(mxreg), +c A DEXRY(mxreg) ,DEDEL(mxreg) ,DEPRI(mxreg) +c A TOTODX(mxreg), +c A TOTXRY(mxreg),TOTDEL(mxreg),TOTPRI(mxreg), +c common/totals/ ESUM(mxreg), +C ----------------------------------------------------------- + parameter mxreg=99 ! numero max di regioni + common /epersa/ numerotot(mxreg), + 1 numeropos(mxreg),numeroele(mxreg),numerogam(mxreg), + 2 esum(mxreg), + 3 esumpos(mxreg),esumele(mxreg),esumgam(mxreg), + 4 dexm(mxreg),deym(mxreg),dezm(mxreg), + 4 dexme(mxreg),deyme(mxreg),dezme(mxreg), + 4 dexmp(mxreg),deymp(mxreg),dezmp(mxreg), + 4 dexmg(mxreg),deymg(mxreg),dezmg(mxreg), + 5 dexmypi(mxreg),deymypi(mxreg),dezmypi(mxreg), + 5 dexmypip(mxreg),deymypip(mxreg),dezmypip(mxreg), + 5 dexmypie(mxreg),deymypie(mxreg),dezmypie(mxreg), + 5 dexmypig(mxreg),deymypig(mxreg),dezmypig(mxreg), + 6 desxmypi(mxreg),desymypi(mxreg),deszmypi(mxreg), + 6 desxmypip(mxreg),desymypip(mxreg),deszmypip(mxreg), + 6 desxmypie(mxreg),desymypie(mxreg),deszmypie(mxreg), + 6 desxmypig(mxreg),desymypig(mxreg),deszmypig(mxreg) +c ------------------------------------------------- +c numerotot = numero totale di particelle prodotte +c numeropos,ele,gam = num. di positroni, elettroni,gamma +c esum= energia tot persa nelle zone +c esumele,pos,gam = energia persa da elettroni, positroni e gamma +c dexm,ym,zm= sum( x * de )= x medio di e persa +c dexme , p, g = stesso separato per elett. pos. e gamma. +c dexmypi = per ogni yap, nel suo sistema di riferimento. +c dexmypi e,p g = separapo per e+,e-,gamma +c desxmypi = media di x**2 pesata su e, per i yap , nel loro sistema +c desxmypi = separato per e+,e-, gamma +c ------------------------------------------------------ + + COMMON /RUNPAR / NCASES,ITCTX,TOTKE,TOTEI,EKIN,NREG,INIREG + A ,ICHAR +C-- +C + COMMON /IOUNIT/ LTYIN,LTYOUT,LTYFIL,LTYHIS,LTYDAT + A, HISLUN,metalun,n11inter,n50paths,n51decay + B, Hislun1,HISLUNY,n13 + INTEGER LTYIN,LTYOUT,LTYFIL,LTYHIS,LTYDAT,HISLUN,metalun + INTEGER HISLUN1,HISLUNY +C +C +C------------------------------------------------------------------C +C + COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40), + A DNEAR(40),WT(40),IQ(40),IR(40),NP +C------------------------------------------------------------------C + COMMON/EPCONT/EDEP,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP,IDISC,IROLD + *,IRNEW,RHOF,EOLD,ENEW,EKE,ELKE,BETA2,BETA,GLE,TSCAT,IAUSFL(25) +C------------------------------------------------------------------C + DOUBLE PRECISION E,EDEP,ESUM + DOUBLE PRECISION PZERO,PRM,PRMT2 +C-----BLANK COMMON FOR HBOOK4 + PAW -------------------------------C +C +C + COMMON HMEMOR (40000 ) + parameter mspazio_paw=1000000 + COMMON /PAWC/ PAWCSPACE(mspazio_paw) +C +C------------------------------------------------------------------C +C common con varie quantita' +C iciclo e' per ogni ist. numero restiruito da hrout +C direttorio il nome del direttorio degli istogrammi +C direttorio1 il nome del direttorio delle N-TUPLE +C iseed il seed iniziale del random number generator +C dello shower corrente. +C istseed in numero dello shower iniziale (se .ne.0 ) +C istartseed il seed dello shower iniziale (if .ne.0) + CHARACTER*8 DIRETTORIO,DIRETTORIO1,DIRETTORIOY + PARAMETER MISTOGRAMMI=1000 + COMMON/VARI/ICICLO(MISTOGRAMMI), + 1 ISEED,ISTSEED,ISTARTSEED, + 2 NOUTFLAG1,NOUTFLAG2,NOUTFLAG3, + 3 NOUTFLAG4,NOUTFLAG5,NOUTFLAG6, + 4 DIRETTORIO,DIRETTORIO1,DIRETTORIOY + +C ---------------------------------------------- +C------------------------------------------------------------------C +C common per vettore identificativi istogrammi da plottare +C + common /pethist/ idhist(4),nhisto +C diff --git a/code/source/comm_yaps.for b/code/source/comm_yaps.for new file mode 100644 index 0000000..5114974 --- /dev/null +++ b/code/source/comm_yaps.for @@ -0,0 +1,71 @@ +C version 5-aug-1994 file comm_yaps.for +C -------------------------------- common / YAPS / ---------------------- +C IL COMMON /YAPS/ descrive il rivelatore, composto di cristalli +C a forma di piastrelle, posti attorno all'asse del cilindro che +c rappresenta l'oggetto da misurare. +c Questi sono identificati da: distanza del centro del cristallo +c dal centro del sistema +c : dimensioni x,y,z del rivelatore con: +C z : direzione lungo asse cilindro +c y : direzione tangente al cilindro +c x : direzione radiale (spessore del rivelatore) +C Il common contiene anche tutte le grandezze relative alla geometria +c del rivelatore usate dal programma. +c +c +c ---------------------------------------------- +c nypmax= parameter mypmax =numero massimo di rivelatori +C nyp = numero di rivelatori +c ryp = raggio anello di rivelatori +c ( distanza centro-sistema - centro faccia interna del rivelatore ) +c zyp = posizione z anello di rivelatori +c dxyp, dyyp , dzyp = semidimensioni del rivelatore: +c +c rypi,zypi,dxpi,dyyp,dzyp: stesso per i singoli rivelatori, +c in input vengono letti ryp,zyp ... ma nel programma +c vengono sempre usati rypi,zypi ... in modo da contemplare +C il caso ( ancora non completamente implementato) che +c non siano disposti su un anello +c angypi : per ogni cristallo: angolo fra asse x e retta fra centro +c e centro del rivelatore , antiorario. +c x0ypi,y0ypi,z0ypi: posizione del centro del rivelatore, +c xorigypi,yorigypi,zorigypi: posizione del centro del cilindro +C nel sistema del rivelatore +c trasf(3,3,i): matrice di trasformazione alle coordinate del +c rivelatore i +c rultimo : limite r oltre cui le particelle sono perse +C zultimo : limite z oltre cui le particelle sono perse +c rultimosq=rultimo**2 (in common per non ricalcolarlo sempre) +c upperlimite = un limite sup per le dimensioni del sistema +c ( serve in howyaps , qui per non ricalcolarlo sempre) +c rultimo e zultimo li calcola read_yaps, upperlimite anche +c +c angcol = angolo di incidenza max ammesso (collimatore geometrico) +c Se <=0 il collimatore non c'e'. +c angcoldar = angcol in radianti +c escono =0 se c'e' il collimatore le particelle che escono dal +c rivelatore verso il collimatore ( faccia +x ) sono +c fatte assorbire dal collimatore, le altre sono perse +c Se il collimatore non c'e' restano nel sistema +c <0 le particelle che escono dal rivelatore restano nel sistema +c >0 le particelle che escono dal rivelatore vanno nella +c zona collimatore ( anche se non c'e' il collimatore) +c +c ---------------------------------------------- + + parameter mypmax=20 ! numero massimo di rivelatori + data nypmax/mypmax/ + common/yaps/nypmax,nyp,ryp,zyp,dxyp,dyyp,dzyp, + 1 rypi(mypmax),zypi(mypmax),angypi(mypmax), + 2 dxypi(mypmax),dyypi(mypmax),dzypi(mypmax), + 3 x0ypi(mypmax),y0ypi(mypmax),z0ypi(mypmax), + 4 xorigypi(mypmax),yorigypi(mypmax),zorigypi(mypmax), + 5 trasf(3,3,mypmax),rultimo,zultimo,rultimosq, + 6 upperlimite, + 7 angcol,angcolrad,escono +C --------------------------fine common / YAPS / ---------------------- +c common /yapscorr/ con alcuni dati sulla particella nel yap +c + common/yapscorr/xnelcyl,ynelcyl,znelcyl,xnelyap,ynelyap,znelyap, + 1 angcosvd,numeroyap,numfaccia +c ------------------------------------------------------------------ diff --git a/code/source/egs4_cyl_2.for b/code/source/egs4_cyl_2.for new file mode 100644 index 0000000..a75e55b --- /dev/null +++ b/code/source/egs4_cyl_2.for @@ -0,0 +1,238 @@ + PROGRAM EGS4CYL +C file EGS4_cyl_2.for del 5-sept-1994 +C...........................................................* +C update: 11-may 1995 : cliude file n-tuple +C EGS4 MAIN PROGRAM FOR CYLINDRICAL GEOMETRY * +C Modified BY M.GALLI SEPT. 1993 . +C last revision 9-nov-1993 +C MODIFIED FROM :EGS4PLAN.FOR BY D.BOLLINI - 010190 C +C-----------------------------------------------------------C +C + INCLUDE 'COMM_CYLtot_2.FOR' + include 'comm_yaps.for' +C + logical ifine/.false./ ! user given stop flag ( routine guarda) + logical aperta/.false./ ! workstation open flag (routine guarda) +C +C +C-----------------------------------------------------------C +C +C STEP 1. PRE-HATCH-CALL-INITIALIZATION +C + WRITE(LTYOUT,6075) + 6075 FORMAT(1H ,' ENTERING INIT_CYL SUBROUTINE ') +C + CALL INIT_CYL +C +C --------------------------------- + WRITE(LTYOUT,6076) + 6076 FORMAT(4x,'ENTERING READ_YAPS SUBROUTINE : detector geometry') +C + CALL READ_YAPS +C-----------------------------------------------------------C +C STEP 2. HISTOGRAM INIZIALIZATION +C + WRITE(LTYOUT,6077) + 6077 FORMAT(1H ,' ENTERING HISTIN_CYL SUBROUTINE ') +C + CALL HISTIN_CYL +C +C auxiliary call to ausgabe, before and after a call to annih +C IAUSFL(13)=1 ! not needed, e+ final position=gamma initial pos. + IAUSFL(14)=1 ! ausgabe call for positron annih. at rest + IAUSFL(15)=1 ! call per produzione di coppie +C +C-----------------------------------------------------------C +C STEP 3. HATCH-CALL +C + WRITE(LTYOUT,6080) + 6080 FORMAT(1H ,' ENTERING HATCH SUBROUTINE ') +C-- +C + CALL HATCH +C +C-----------------------------------------------------------C +C STEP 4. SHOWER-CALL +C +C ----------------------------- optional setting of +C random number generator seed, to start +C with an input-given shower +c il common/random/ixx contiene il seed corrente del +c random number generator, che e' la routine rndm (v104) del CERN +c questo generatore ha un periodo dipendente dal numero di bit della +c macchina, per macchine IBM e' circa 5.10**8 ( che puo' essere poco) +C questo common non viene mai usato, se non forse per ingannare il +c compilatore. + IF(ISTSEED.GT.0) THEN ! seed user-chosen + ixx=istartseed + else + call rdmout(ixx) ! seed chiesto al generatore stesso + endif + call rdmin(ixx) ! imposto il seed + CALL RDMOUT(ISEED) ! lo leggo per le stampe + WRITE(LTYOUT,7003) ISTSEED,ISTARTSEED,ISEED + WRITE(LTYHIS,7003) ISTSEED,ISTARTSEED,ISEED + if(noutflag5.ge.2.or.noutflag2.gt.0) + 1 WRITE(50,7003)ISTSEED,ISTARTSEED,ISEED + 7003 FORMAT(' STARTING SIMULATION FROM SHOWER:',I5, + 1 ' SEED :',I30,'=',I30) +C + STARTTIME=SECNDS(0.0) + TIME0=STARTTIME + TIMETOT=0.0 +c + if(nyp.gt.0.and.noutflag4.gt.0) call ausgabzero +c ! zero n-tuple arrays ( entry in ausgabe ) +c + DO 600 I=1,NCASES +C Ishower is in common /txdata/ to be passed to ausgab and ..? +c lo uso per numerare gli eventi quando non parto dal primo + ISHOWER=I+istseed-1 +C + CALL RDMOUT(ISEED) ! lo leggo per le stampe + if(noutflag5.ge.2.or.noutflag2.gt.0) write(50,*) + 1' ===========>> Beginning shower',Ishower,' seed:',ISEED + type*,' beginning shower',Ishower,' seed:',ISEED +C +C ----------------------- source particle + CALL SOURCE_CYL +C------------------------------------------------------------C +C + if(i.ne.1.and.itctx.ne.0.and.mod(i,itctx).eq.0. + 2 AND.N11INTER.GT.0) + 1 call guarda(ifine,aperta) ! plot interattivo +C +c --------------------------------- +C GENERATION OF AN E_M SHOWER -----------------C +C + CALL SHOWER(IQI,EI,XI,YI,ZI,UI,VI,WI,IRI,WTI) +C +C-----------------------------------------------------------C + if(nyp.gt.0.and.noutflag4.gt.0) call ausgabhfn +c ! out n-tuples of this run +C +C +C-----TIMING EVERY ITCXT EVENTS ---------------------- + IF ( ITCTX.NE.0.AND. MOD(I,ITCTX).EQ.0 ) THEN + TIME1=SECNDS(TIME0) + TIMEMED = TIME1/ITCTX + TIMETOT=TIMETOT+TIME1 + TIME0=STARTTIME+TIMETOT + WRITE(LTYOUT,6087) Ishower,TIMETOT,TIMEMED + if(noutflag5.ge.2.or.noutflag2.gt.0) + 1 WRITE(50,6087) Ishower,TIMETOT,TIMEMED + 6087 FORMAT(1X,'ENDED SHOWER =>:',I8,' time tot:',F12.3, + 1 ' shower average time:',F12.3) + ENDIF +C +C------------------------------------------------------------C + if(ifine) goto 700 ! stop flag set by user in guarda routine + 600 CONTINUE +C------------------------------------------------------------C +C END OF SHOWER-CALL LOOP +C-----------------------------------------------------------C +C +c 700 CONTINUE +c if(aperta.AND.N11INTER.GT.0) +c 1 call guarda(-1,ifine,aperta) +c +C +C PRINT HISTOGRAMS +C------ NEW HBOOK 4 FOR PAW ------------------------------C +C +700 WRITE(LTYOUT,6083) + 6083 FORMAT(1H ,' ENTERING HISTDO : print all histograms') + CALL HISTDO + call hldir(' ',' ') ! listo gli istogrammi in memoria +C +C ------------------------- output for paw on unit hislun=20 +C + write(ltyout,6084) hislun + 6084 format(' WRITING HISTOGRAMS ON UNIT HISLUN ,'I3,'.....') +C + CALL HCDIR(DIRETTORIO,' ') ! punto al file +C + DO 90 I=1,nreg ! nreg=nyp+ncyl+2 set by read_yaps + identif=100+i + write(ltyout,6086) identif + 6086 format(' writing histogram:',I10,' .....') + CALL HROUT(100+I,ICICLO(100+I),' ') ! riempio 1 dim r + identif=200+i + write(ltyout,6086) identif + CALL HROUT(200+I,ICICLO(100+I),' ') ! riempio 2 dim x-y + 90 CONTINUE + identif=501 + write(ltyout,6086) identif + CALL HROUT(501,ICICLO(501),' ') ! riempio 1 dim amgolo gamma dec. +C + identif=700 + write(ltyout,6086) identif + CALL HROUT(700,ICICLO(700),' ') ! 2 dim r-z + identif=701 + write(ltyout,6086) identif + CALL HROUT(701,ICICLO(701),' ') ! 2 dim x-y + identif=400 + write(ltyout,6086) identif + CALL HROUT(400,ICICLO(400),' ') ! riempio 2 dim x-y decay points + identif=401 + write(ltyout,6086) identif + CALL HROUT(401,ICICLO(401),' ') ! riempio 2 dim r-z decay points +C +c if(noutflag3.gt.0) then +c identif=800 +c write(ltyout,6086) identif +c CALL HROUT(800,ICICLO(800),' ') ! 3-tuple x,y,z di decadimento +c endif +C + CALL HLDIR(DIRETTORIO,' ') ! listo contenuto +C chiudo i files GZ per PAW + CALL HREND(DIRETTORIO) ! istogrammi + CLOSE(UNIT=HISLUN) + write(ltyout,6088) hislun + 6088 format(' chiso il file hislun=',I3) + +c +C ------------------------- output for paw on unit hislun1=51 + if(noutflag3.gt.0) then + write(ltyout,6090) HISLUN1 + 6090 format(' WRITING N-TUPLE ON FILE HISLUN1 ',I3,'...') +C + CALL HCDIR(DIRETTORIO1,' ') ! punto al file colle ntuple +C + identif=800 + write(ltyout,6092) IDENTIF + 6092 FORMAT(' writing n-tuple ',I5) + CALL HROUT(800,ICICLO(800),' ') ! 3-tuple x,y,z di decadimento + CALL HLDIR(DIRETTORIO1,' ') ! listo contenuto file n-tuple + CALL HREND(DIRETTORIO1) ! n-tuple + CLOSE(UNIT=HISLUN1) + write(ltyout,6094) hislun1 + 6094 format(' chiso il file hislun1=',I3) + ENDIF +C ------------------------- output for paw on unit hisluny=52 per yaps + if(noutflag4.gt.0.and.nyp.gt.0) then + write(ltyout,6096) HISLUNy + 6096 format(' WRITING N-TUPLE ON FILE HISLUNy ',I3,'...') +C + CALL HCDIR(DIRETTORIOy,' ') ! punto al file colle ntuple +C + identif=801 + write(ltyout,6092) IDENTIF + CALL HROUT(801,ICICLO(801),' ') ! yap interactions + CALL HLDIR(DIRETTORIOy,' ') ! listo contenuto file n-tuple + CALL HREND(DIRETTORIOy) ! n-tuple + CLOSE(UNIT=HISLUNY) + write(ltyout,6098) hisluny + 6098 format(' chiso il file hisluny=',I3) + ENDIF +C +C PRINT FINAL STATISTICS ---------------------------C +C + WRITE(LTYOUT,6085) + 6085 FORMAT(1H ,' ENTERING STATEND_CYL SUBROUTINE ') + CALL STATEND_CYL +C +C-----------------------------------------------------------C + STOP +C-----------------------------------------------------C + END diff --git a/code/source/egs4funl.for b/code/source/egs4funl.for new file mode 100644 index 0000000..4e72042 --- /dev/null +++ b/code/source/egs4funl.for @@ -0,0 +1,2680 @@ + SUBROUTINE EGS4T ( LUN) +C. +C. +C. ****************************************************************** +C. * * +C. * * +C. * PRINT PAM TITLE ON LUN * +C. * * +C. * * +C. ****************************************************************** +C. + WRITE (LUN,1000) + RETURN + 1000 FORMAT (2H ,' PACKAGE COMPILED FROM PAM FILE= ',/, + + 2H ,' EGS4CR 2.00 850503 15.00 ',//) + END + SUBROUTINE EGS4BD +C VERSION 4.XX -- 22 FEB 1985/0000 +C ****************************************************************** +C COPYRIGHT (C) BY THE BOARD OF TRUSTEES OF THE LELAND STANFORD +C JUNIOR UNIVERSITY, 1985. ALL RIGHTS RESERVED. +C ****************************************************************** +C +C AUTHORS: WALTER R. NELSON +C RADIATION PHYSICS GROUP +C STANFORD LINEAR ACCELERATOR CENTER +C STANFORD, CA 94305 +C U.S.A. +C +C HIDEO HIRAYAMA +C NATIONAL LABORATORY FOR HIGH ENERGY PHYSICS (KEK) +C OHO-MACHI, TSUKUBA-GUN, IBARAKI, +C JAPAN +C +C DAVID W. O. ROGERS +C DIVISION OF PHYSICS +C NATIONAL RESEARCH COUNCIL OF CANADA +C OTTAWA K1A 0R6 +C CANADA +C +C ****************************************************************** + COMMON/BOUNDS/ECUT(200),PCUT(200),VACDST + COMMON/BREMPR/DL1(6,10),DL2(6,10),DL3(6,10),DL4(6,10),DL5(6,10),DL + *6(6,10),DELCM(10), ALPHI(2,10),BPAR(2,10),DELPOS(2,10),PWR2I(50) + COMMON/ELECIN/EKELIM,ICOMP,EKE0(10),EKE1(10),CMFP0(10),CMFP1(10),R + *ANGE0(10),RANGE1(10), XR0(10),TEFF0(10),BLCC(10),XCC(10),PICMP0(1, + *10),PICMP1(1,10),EICMP0(1,10),EICMP1(1,10),MPEEM(1,10), ESIG0(150, + *10),ESIG1(150,10),PSIG0(150,10),PSIG1(150,10),EDEDX0(150,10),EDEDX + *1(150,10),PDEDX0(150,10),PDEDX1(150,10),EBR10(150,10),EBR11(150,10 + *),PBR10(150,10),PBR11(150,10),PBR20(150,10),PBR21(150,10),TMXS0(15 + *0,10),TMXS1(150,10),CMFPE0(1,10),CMFPE1(1,10),CMFPP0(1,10),CMFPP1( + *1,10),ERANG0(1,10),ERANG1(1,10),PRANG0(1,10),PRANG1(1,10),CXC2E0(1 + *,10),CXC2E1(1,10),CXC2P0(1,10),CXC2P1(1,10),CLXAE0(1,10),CLXAE1(1, + *10),CLXAP0(1,10),CLXAP1(1,10), THR0(1,1),THR1(1,1),THR2(1,1),THRI0 + *(1,1),THRI1(1,1),THRI2(1,1),FSTEP(16),FSQR(16),MSMAP(200), VERT1(1 + *000),VERT2(100,16),MSTEPS,JRMAX,MXV1, MXV2,NBLC,NRNTH,NRNTHI,BLC0, + *BLC1,RTHR0,RTHR1,RTHRI0,RTHRI1 + COMMON/EPCONT/EDEP,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, IDISC,IROLD,IR + *NEW,RHOF,EOLD,ENEW,EKE,ELKE,BETA2,BETA, GLE,TSCAT,IAUSFL(25) + DOUBLE PRECISION EDEP + COMMON/MEDIA/NMED,RLC(10),RLDU(10),RHO(10),MSGE(10),MGE(10),MSEKE( + *10),MEKE(10),MLEKE(10),MCMFP(10),MRANGE(10),IRAYLM(10) + COMMON/MEDIAC/MEDIA(24,10) + CHARACTER*4 MEDIA + COMMON/MISC/KMPI,KMPO,DUNIT,NOSCAT,MED(200),RHOR(200),IRAYLR(200) + COMMON/MULTS/NG21,B0G21,B1G21,G210(7),G211(7),G212(7), NG22,B0G22, + *B1G22,G220(8),G221(8),G222(8), NG31,B0G31,B1G31,G310(11),G311(11), + *G312(11), NG32,B0G32,B1G32,G320(25),G321(25),G322(25), NBGB,B0BGB, + *B1BGB,BGB0(8),BGB1(8),BGB2(8) + COMMON/PATHCM/NPTH,B0PTH,B1PTH,PTH0(6),PTH1(6),PTH2(6) + COMMON/PHOTIN/EBINDA(10),GE0(10),GE1(10), MPGEM(1,10),GMFP0(200,10 + *),GMFP1(200,10),GBR10(200,10),GBR11(200,10),GBR20(200,10),GBR21(20 + *0,10), NGR(10),RCO0(10),RCO1(10),RSCT0(100, 10),RSCT1(100, 10),COH + *E0(200,10),COHE1(200,10) + COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W + *T(40),IQ(40),IR(40),NP + DOUBLE PRECISION E + COMMON/THRESH/RMT2,RMSQ,ESCD2,AP(10),AE(10),UP(10),UE(10),TE(10),T + *HMOLL(10) + COMMON/UPHIIN/SINC0,SINC1,SIN0(1002),SIN1(1002) + COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2 + COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PZERO,PRM,PRMT2 +C DEFAULT REPLACEMENT PRODUCES THE FOLLOWING: +C COMIN/BOUNDS,BREMPR,ELECIN,EPCONT,MEDIA,MISC,MULTS,PATHCM,PHOTIN, +C STACK,THRESH,UPHIIN,UPHIOT,USEFUL/; +C MUST USE COMMON/RANDOM/ INSTEAD OF COMIN/RANDOM/ BECAUSE +C OF FORTRAN RESTRICTION ON 'BLOCK DATA VS. LOCAL DATA'. + COMMON/RANDOM/IXX + CHARACTER*4 MEDIA1(24) + EQUIVALENCE(MEDIA1(1),MEDIA(1,1)) +C DATA INITIALIZATION FOR THE ABOVE COMMON BLOCKS +C BOUNDS + DATA ECUT/200*0./,PCUT/200*0./,VACDST/1.E8/ +C ELECIN + DATA EKELIM/0./,ICOMP/1/ +C EPCONT + DATA IAUSFL/5*1,20*0/,RHOF/1.0/ +C MEDIA + DATA NMED/1/,MEDIA1/'N','A','I',' ',' ',' ',' ',' ',' ',' ',' ',' + *',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '/ + DATA IRAYLM/10*0/ +C MISC + DATA KMPI/12/,KMPO/8/,DUNIT/1./,NOSCAT/0/ + DATA MED/200*1/,RHOR/200*0./,IRAYLR/200*0/ +C MULTS + DATA NG21/ 7/,B0G21/ 2.0000E+00/,B1G21/ 5.0000E+00/ + DATA G210( 1),G211( 1),G212( 1)/-9.9140E-04, 2.7672E+00,-1.1544E+0 + *0/ + DATA G210( 2),G211( 2),G212( 2)/-9.9140E-04, 2.7672E+00,-1.1544E+0 + *0/ + DATA G210( 3),G211( 3),G212( 3)/-7.1017E-02, 3.4941E+00,-3.0773E+0 + *0/ + DATA G210( 4),G211( 4),G212( 4)/-7.3556E-02, 3.5487E+00,-3.1989E+0 + *0/ + DATA G210( 5),G211( 5),G212( 5)/ 3.6658E-01, 2.1162E+00,-2.0311E+0 + *0/ + DATA G210( 6),G211( 6),G212( 6)/ 1.4498E+00,-5.9717E-01,-3.2951E-0 + *1/ + DATA G210( 7),G211( 7),G212( 7)/ 1.4498E+00,-5.9717E-01,-3.2951E-0 + *1/ + DATA NG22/ 8/,B0G22/ 2.0000E+00/,B1G22/ 6.0000E+00/ + DATA G220( 1),G221( 1),G222( 1)/-5.2593E-04, 1.4285E+00,-1.2670E+0 + *0/ + DATA G220( 2),G221( 2),G222( 2)/-5.2593E-04, 1.4285E+00,-1.2670E+0 + *0/ + DATA G220( 3),G221( 3),G222( 3)/-6.4819E-02, 2.2033E+00,-3.6399E+0 + *0/ + DATA G220( 4),G221( 4),G222( 4)/ 3.7427E-02, 1.6630E+00,-2.9362E+0 + *0/ + DATA G220( 5),G221( 5),G222( 5)/ 6.1955E-01,-6.2713E-01,-6.7859E-0 + *1/ + DATA G220( 6),G221( 6),G222( 6)/ 1.7584E+00,-4.0390E+00, 1.8810E+0 + *0/ + DATA G220( 7),G221( 7),G222( 7)/ 2.5694E+00,-6.0484E+00, 3.1256E+0 + *0/ + DATA G220( 8),G221( 8),G222( 8)/ 2.5694E+00,-6.0484E+00, 3.1256E+0 + *0/ + DATA NG31/ 11/,B0G31/ 2.0000E+00/,B1G31/ 9.0000E+00/ + DATA G310( 1),G311( 1),G312( 1)/ 4.9437E-01, 1.9124E-02, 1.8375E+0 + *0/ + DATA G310( 2),G311( 2),G312( 2)/ 4.9437E-01, 1.9124E-02, 1.8375E+0 + *0/ + DATA G310( 3),G311( 3),G312( 3)/ 5.3251E-01,-6.1555E-01, 4.5595E+0 + *0/ + DATA G310( 4),G311( 4),G312( 4)/ 6.6810E-01,-2.2056E+00, 8.9293E+0 + *0/ + DATA G310( 5),G311( 5),G312( 5)/-3.8262E+00, 2.5528E+01,-3.3862E+0 + *1/ + DATA G310( 6),G311( 6),G312( 6)/ 4.2335E+00,-1.0604E+01, 6.6702E+0 + *0/ + DATA G310( 7),G311( 7),G312( 7)/ 5.0694E+00,-1.4208E+01, 1.0456E+0 + *1/ + DATA G310( 8),G311( 8),G312( 8)/ 1.4563E+00,-3.3275E+00, 2.2601E+0 + *0/ + DATA G310( 9),G311( 9),G312( 9)/-3.2852E-01, 1.2938E+00,-7.3254E-0 + *1/ + DATA G310(10),G311(10),G312(10)/-2.2489E-01, 1.0713E+00,-6.1358E-0 + *1/ + DATA G310(11),G311(11),G312(11)/-2.2489E-01, 1.0713E+00,-6.1358E-0 + *1/ + DATA NG32/ 25/,B0G32/ 2.0000E+00/,B1G32/ 2.3000E+01/ + DATA G320( 1),G321( 1),G322( 1)/ 2.9907E-05, 4.7318E-01, 6.5921E-0 + *1/ + DATA G320( 2),G321( 2),G322( 2)/ 2.9907E-05, 4.7318E-01, 6.5921E-0 + *1/ + DATA G320( 3),G321( 3),G322( 3)/ 2.5820E-03, 3.5853E-01, 1.9776E+0 + *0/ + DATA G320( 4),G321( 4),G322( 4)/-5.3270E-03, 4.9418E-01, 1.4528E+0 + *0/ + DATA G320( 5),G321( 5),G322( 5)/-6.6341E-02, 1.4422E+00,-2.2407E+0 + *0/ + DATA G320( 6),G321( 6),G322( 6)/-3.6027E-01, 4.7190E+00,-1.1380E+0 + *1/ + DATA G320( 7),G321( 7),G322( 7)/-2.7953E+00, 2.6694E+01,-6.0986E+0 + *1/ + DATA G320( 8),G321( 8),G322( 8)/-3.6091E+00, 3.4125E+01,-7.7512E+0 + *1/ + DATA G320( 9),G321( 9),G322( 9)/ 1.2491E+01,-7.1103E+01, 9.4496E+0 + *1/ + DATA G320(10),G321(10),G322(10)/ 1.9637E+01,-1.1371E+02, 1.5794E+0 + *2/ + DATA G320(11),G321(11),G322(11)/ 2.1692E+00,-2.5019E+01, 4.5340E+0 + *1/ + DATA G320(12),G321(12),G322(12)/-1.6682E+01, 6.2067E+01,-5.5257E+0 + *1/ + DATA G320(13),G321(13),G322(13)/-2.1539E+01, 8.2651E+01,-7.7065E+0 + *1/ + DATA G320(14),G321(14),G322(14)/-1.4344E+01, 5.5193E+01,-5.0867E+0 + *1/ + DATA G320(15),G321(15),G322(15)/-5.4990E+00, 2.3874E+01,-2.3140E+0 + *1/ + DATA G320(16),G321(16),G322(16)/ 3.1029E+00,-4.4708E+00, 2.1318E-0 + *1/ + DATA G320(17),G321(17),G322(17)/ 6.0961E+00,-1.3670E+01, 7.2823E+0 + *0/ + DATA G320(18),G321(18),G322(18)/ 8.6179E+00,-2.0950E+01, 1.2536E+0 + *1/ + DATA G320(19),G321(19),G322(19)/ 7.5064E+00,-1.7956E+01, 1.0520E+0 + *1/ + DATA G320(20),G321(20),G322(20)/ 5.9838E+00,-1.4065E+01, 8.0342E+0 + *0/ + DATA G320(21),G321(21),G322(21)/ 4.4959E+00,-1.0456E+01, 5.8462E+0 + *0/ + DATA G320(22),G321(22),G322(22)/ 3.2847E+00,-7.6709E+00, 4.2445E+0 + *0/ + DATA G320(23),G321(23),G322(23)/ 1.9514E+00,-4.7505E+00, 2.6452E+0 + *0/ + DATA G320(24),G321(24),G322(24)/ 4.8808E-01,-1.6910E+00, 1.0459E+0 + *0/ + DATA G320(25),G321(25),G322(25)/ 4.8808E-01,-1.6910E+00, 1.0459E+0 + *0/ + DATA NBGB/ 8/,B0BGB/ 1.5714E+00/,B1BGB/ 2.1429E-01/ + DATA BGB0( 1),BGB1( 1),BGB2( 1)/-1.0724E+00, 2.8203E+00,-3.5669E-0 + *1/ + DATA BGB0( 2),BGB1( 2),BGB2( 2)/ 3.7136E-01, 1.4560E+00,-2.8072E-0 + *2/ + DATA BGB0( 3),BGB1( 3),BGB2( 3)/ 1.1396E+00, 1.1910E+00,-5.2070E-0 + *3/ + DATA BGB0( 4),BGB1( 4),BGB2( 4)/ 1.4908E+00, 1.1267E+00,-2.2565E-0 + *3/ + DATA BGB0( 5),BGB1( 5),BGB2( 5)/ 1.7342E+00, 1.0958E+00,-1.2705E-0 + *3/ + DATA BGB0( 6),BGB1( 6),BGB2( 6)/ 1.9233E+00, 1.0773E+00,-8.1806E-0 + *4/ + DATA BGB0( 7),BGB1( 7),BGB2( 7)/ 2.0791E+00, 1.0649E+00,-5.7197E-0 + *4/ + DATA BGB0( 8),BGB1( 8),BGB2( 8)/ 2.0791E+00, 1.0649E+00,-5.7197E-0 + *4/ + DATA NPTH/ 6/,B0PTH/ 2.0000E+00/,B1PTH/ 1.8182E+01/ + DATA PTH0( 1),PTH1( 1),PTH2( 1)/ 1.0000E+00, 9.8875E-01, 2.5026E+0 + *0/ + DATA PTH0( 2),PTH1( 2),PTH2( 2)/ 1.0000E+00, 9.8875E-01, 2.5026E+0 + *0/ + DATA PTH0( 3),PTH1( 3),PTH2( 3)/ 1.0060E+00, 7.8657E-01, 4.2387E+0 + *0/ + DATA PTH0( 4),PTH1( 4),PTH2( 4)/ 1.0657E+00,-2.5051E-01, 8.7681E+0 + *0/ + DATA PTH0( 5),PTH1( 5),PTH2( 5)/ 1.6971E+00,-7.5600E+00, 2.9946E+0 + *1/ + DATA PTH0( 6),PTH1( 6),PTH2( 6)/ 1.6971E+00,-7.5600E+00, 2.9946E+0 + *1/ +C RANDOM + DATA IXX/123456789/ +C THRESH + DATA RMT2/1.022007/,RMSQ/.2611245/ +C UPHIOT + DATA PI/3.141593/,TWOPI/6.283185/,PI5D2/7.853982/ +C USEFUL + DATA RM/.5110034/ +C-------------------------------------------------- +C + CONTINUE + RETURN +C ****************************************************************** +C ********************* END OF EGS4 BLOCK DATA ********************* +C ****************************************************************** + END + SUBROUTINE ANNIH +C VERSION 4.XX -- 7 MAR 1985/2345 +C ****************************************************************** +C GAMMA SPECTRUM FOR TWO GAMMA IN-FLIGHT POSITRON ANNIHILATION. +C USING SCHEME BASED ON HEITLER'S P269-27O 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 ****************************************************************** + DOUBLE PRECISION PAVIP,PESG1,PESG2 + COMMON/QDEBUG/QDEBUG + LOGICAL QDEBUG + COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W + *T(40),IQ(40),IR(40),NP + DOUBLE PRECISION E + COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2 + COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PZERO,PRM,PRMT2 + COMMON/RANDOM/IXX +C DEFAULT REPLACEMENT PRODUCES THE FOLLOWING: +C COMIN/DEBUG,STACK,UPHIOT,USEFUL,RANDOM/; + PAVIP=E(NP)+PRM +C PRECISE AVAILABLE ENERGY OF INCIDENT POSITRON + AVIP=PAVIP +C AVAILABLE ENERGY OF INCIDENT POSITRON + A=AVIP/RM + AI=1.0/A + G=A-1.0 + T=G-1.0 + P=SQRT(A*T) + POT=P/T +C SAMPLE 1/EP FROM EP=EP0 TO 1.0-EP0 + EP0=1.0/(A+P) +131 CONTINUE + RNNO01=RNDM(IXX) + EP=EP0*EXP(RNNO01*ALOG((1.0-EP0)/EP0)) +C NOW DECIDE WHETHER TO ACCEPT + RNNO02=RNDM(IXX) + REJF=1.0-EP+AI*AI*(2.0*G-1.0/EP) + IF((RNNO02.LE.REJF))GO TO132 + GO TO 131 +132 CONTINUE +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). + EP=AMAX1(EP,1.0-EP) +C SET UP ENERGIES + ESG1=AVIP*EP +C ENERGY OF SECONDARY GAMMA 1 + PESG1=ESG1 +C PRECISE ENERGY OF SECONDARY GAMMA 1 + E(NP)=PESG1 + PESG2=PAVIP-PESG1 + E(NP+1)=PESG2 + ESG2=PESG2 + IQ(NP)=0 +C SET UP COORD FOR HIGHER ENERGY GAMMA + COSTHE=(ESG1-RM)*POT/ESG1 + SINTHE=SQRT(1.0-COSTHE*COSTHE) + CALL UPHI(2,1) +C SET UP LOWER ENERGY GAMMA + NP=NP+1 + IQ(NP)=0 + COSTHE=(ESG2-RM)*POT/ESG2 + SINTHE=-SQRT(1.0-COSTHE*COSTHE) + CALL UPHI(3,2) + RETURN +C END OF SUBROUTINE ANNIH + END + SUBROUTINE BHABHA +C VERSION 4.XX -- 7 MAR 1985/2345 +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 ****************************************************************** + DOUBLE PRECISION PEIP,PEKSE2,PESE1,PESE2 + DOUBLE PRECISION PEKIN,H1,DCOSTH + COMMON/QDEBUG/QDEBUG + LOGICAL QDEBUG + COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W + *T(40),IQ(40),IR(40),NP + DOUBLE PRECISION E + COMMON/THRESH/RMT2,RMSQ,ESCD2,AP(10),AE(10),UP(10),UE(10),TE(10),T + *HMOLL(10) + COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2 + COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PZERO,PRM,PRMT2 + COMMON/RANDOM/IXX +C DEFAULT REPLACEMENT PRODUCES THE FOLLOWING: +C COMIN/DEBUG,STACK,THRESH,UPHIOT,USEFUL,RANDOM/; + PEIP=E(NP) +C PRECISE ENERGY OF INCIDENT POSITRON + EIP=PEIP +C ENERGY OF INCIDENT POSITRON + PEKIN=PEIP-PRM +C PRECISE K.E. OF INCIDENT POSITRON + EKIN=PEKIN + T0=EKIN/RM + E0=T0+1. + YY=1./(T0+2.) + E02=E0*E0 + BETAI2=E02/(E02-1.) + EP0=TE(MEDIUM)/EKIN + EP0C=1.-EP0 + Y2=YY*YY + YP=1.-2.*YY + YP2=YP*YP + B4=YP2*YP + B3=B4+YP2 + B2=YP*(3.+Y2) +C SAMPLE BR FROM MINIMUM(EP0) TO 1. + B1=2.-Y2 +141 CONTINUE + RNNO03=RNDM(IXX) + BR=EP0/(1.-EP0C*RNNO03) +C APPLY REJECTION FUNCTION + RNNO04=RNDM(IXX) + REJF2=EP0C*(BETAI2-BR*(B1-BR*(B2-BR*(B3-BR*B4)))) + IF((RNNO04.LE.REJF2))GO TO142 + GO TO 141 +142 CONTINUE +C IF E- GOT MORE THAN E+, MOVE THE E+ POINTER AND REFLECT B + IF ((BR.LT.0.5)) THEN + IQ(NP+1)=-1 + ELSE + IQ(NP)=-1 + IQ(NP+1)=1 + BR=1.-BR + END IF +C THE ABOVE PUTS E+ ON TOP OF STACK IF IT HAS LESS ENERGY +C DIVIDE UP THE ENERGY + BR=AMAX1(BR,0.0) +C AVOIDS POSSIBLE NEGATIVE NUMBER DUE TO ROUND-OFF + PEKSE2=BR*EKIN +C PRECISE KINETIC ENERGY OF SECONDARY 'ELECTRON' 2 + PESE1=PEIP-PEKSE2 +C PRECISE ENERGY OF SECONDARY 'ELECTRON' 1 + PESE2=PEKSE2+PRM +C PRECISE ENERGY OF SECONDARY 'ELECTRON' 2 + ESE1=PESE1 + ESE2=PESE2 + E(NP)=PESE1 + E(NP+1)=PESE2 +C BHABHA ANGLES ARE UNIQUELY DETERMINED BY KINEMATICS + H1=(PEIP+PRM)/PEKIN +C DIRECTION COSINE CHANGE FOR 'OLD' ELECTRON + DCOSTH=H1*(PESE1-PRM)/(PESE1+PRM) + SINTHE=DSQRT(1.D0-DCOSTH) + COSTHE=DSQRT(DCOSTH) + CALL UPHI(2,1) + NP=NP+1 + DCOSTH=H1*(PESE2-PRM)/(PESE2+PRM) + SINTHE=-DSQRT(1.D0-DCOSTH) + COSTHE=DSQRT(DCOSTH) + CALL UPHI(3,2) + RETURN +C END OF SUBROUTINE BHABHA + END + SUBROUTINE BREMS +C VERSION 4.XX -- 7 MAR 1985/2345 +C ****************************************************************** +C FOR ELECTRON ENERGY GREATER THAN 5.0 MEV, THE BETHE-HEITLER +C CROSS SECTION IS EMPLOYED. +C ****************************************************************** + DOUBLE PRECISION PEIE,PESG,PESE + COMMON/QDEBUG/QDEBUG + LOGICAL QDEBUG + COMMON/BREMPR/DL1(6,10),DL2(6,10),DL3(6,10),DL4(6,10),DL5(6,10),DL + *6(6,10),DELCM(10), ALPHI(2,10),BPAR(2,10),DELPOS(2,10),PWR2I(50) + COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W + *T(40),IQ(40),IR(40),NP + DOUBLE PRECISION E + COMMON/THRESH/RMT2,RMSQ,ESCD2,AP(10),AE(10),UP(10),UE(10),TE(10),T + *HMOLL(10) + COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2 + COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PZERO,PRM,PRMT2 + COMMON/RANDOM/IXX +C DEFAULT REPLACEMENT PRODUCES THE FOLLOWING: +C COMIN/DEBUG,BREMPR,STACK,THRESH,UPHIOT,USEFUL,RANDOM/; + DATA AI2LN2/0.7213475/ +C 1./(2.*ALOG(2.)) + PEIE=E(NP) +C PRECISE ENERGY OF INCIDENT 'ELECTRON' + EIE=PEIE +C ENERGY OF INCIDENT 'ELECTRON' +C DECIDE WHICH DISTRIBUTION TO USE (B-H COULOMB CORRECTED IS +C USED FROM 50 TO 20000 MEV, B-H IS USED 1.5 TO 50 MEV) + NP=NP+1 + IF ((EIE.LT.50.0)) THEN + LVX=1 + LVL0=0 + ELSE + LVX=2 + LVL0=3 + END IF +C THE METHOD OF BUTCHER AND MESSEL FOR SAMPLING A CLASS OF +C FACTORIZABLE FREQUENCY DISTRIBUTIONS IS USED. +C OUR 'BR' VARIABLE IS THE SAME AS THEIR 'EPSILON' VARIABLE. +C SEE BUTCHER AND MESSEL,NUCL.PHYS.,VOL.20,PP23,24. +C 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. +C ILOG2(X) IS THAT INTEGER FUNCTION OF X SUCH THAT . . . +C 2**(ILOG2(X)-1) .LE. X .LT. 2**(ILOG2(X)) +C VARIOUS REJECTIONS CAN CAUSE RESAMPLE + ABREMS=FLOAT(IFIX(1.44269*ALOG(EIE/AP(MEDIUM)))) +151 CONTINUE +C DECIDE WHETHER TO SAMPLE FROM THE (1-BR)/BR OR THE 2*BR PART +C OF THE DISTRIBUTION. + RNNO06=RNDM(IXX) + IF ((0.5.LT.((ABREMS*ALPHI(LVX,MEDIUM)+0.5)*RNNO06))) THEN +C USE THE (1-BR)/BR PART. WHICH SUBDISTRIBUTION? + RNNO07=RNDM(IXX) + IDISTR=ABREMS*RNNO07 +C THIS CHOOSES IDISTR AT RANDOM FROM THE SET +C (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. + RNNO08=RNDM(IXX) + IF ((RNNO08.GE.AI2LN2)) THEN +161 CONTINUE + RNNO09=RNDM(IXX) +C IF REJECTED FOR SUBDISTRIBUTION + RNNO10=RNDM(IXX) + RNNO11=RNDM(IXX) + H=AMAX1(RNNO10,RNNO11) + BR=1.0-0.5*H + IF((RNNO09.LE.0.5/BR))GO TO162 +C REJECTION CONDITION + GO TO 161 +162 CONTINUE +C END BR.GE.0.5 PART +C SAMPLE BR.LT.0.5 PART + ELSE + RNNO12=RNDM(IXX) + BR=RNNO12*0.5 + END IF +C END OF BR.LT.0.5 PART +C PRODUCT ENERGY FRACTION CHOSEN + BR=BR*P +C END (1-BR)/BR PART + ELSE +C USE THE 2*BR PART + RNNO13=RNDM(IXX) + RNNO14=RNDM(IXX) + BR=AMAX1(RNNO13,RNNO14) + LVL=LVL0+2 +C USE B(DELTA) FOR SCREENING FUNCTION + END IF +C END OF 2*BR PART OF DISTRIBUTION +C ENERGY OF NEW PHOTON +C ENERGY OF SECONDARY GAMMA +C AP=0.256 MEV --- RM=0.511 MEV +C AP IS SELECTED IN THE ROUTINE PEGS. +C MINIMUM HARDNESS REQUIREMENT, CORRESPONDING TO LOWER BOUND +C CHOICE FOR TOTAL CROSS SECTION INTEGRAL +C TRY + ESG=EIE*BR + IF((ESG.LT.AP(MEDIUM)))GO TO151 + PESG=ESG +C PRECISE ENERGY OF SECONDARY GAMMA + PESE=PEIE-PESG +C PRECISE ENERGY OF SECONDARY 'ELECTRON' +C ENERGY OF SECONDARY 'ELECTRON' +C THE ELECTRON MUST HAVE A MINIMUM ENERGY EQUAL TO 0.511 MEV +C TRY + ESE=PESE + IF((ESE.LT.RM))GO TO151 +C 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). +C A(DELTA) AND B(DELTA) MUST ALWAYS BE POSITIVE +C TRY + DEL = BR/ESE + IF((DEL.GE.DELPOS(LVX,MEDIUM)))GO TO151 + DELTA = DELCM(MEDIUM)*DEL + IF ((DELTA.LT.1.0)) THEN + REJF=DL1(LVL,MEDIUM)+DELTA*(DL2(LVL,MEDIUM)+DELTA*DL3(LVL,MEDIUM)) + ELSE + REJF=DL4(LVL,MEDIUM)+DL5(LVL,MEDIUM)*ALOG(DELTA+DL6(LVL,MEDIUM)) + END IF + RNSCRN=RNDM(IXX) +C GET RANDOM NUMBER FOR SCREENING REJECTION + IF((RNSCRN.LE.REJF))GO TO152 + GO TO 151 +152 CONTINUE +C LOOP UNTIL VALUE ACCEPTED +C SET UP THE NEW PHOTON + THETA=RM/EIE +C DEFAULT IS: THETA=RM/EIE; +C NOW GET LOWEST ENERGY PARTICLE ON TOP OF STACK AND SET CHARGES + CALL UPHI(1,3) + IF ((ESG.LE.ESE)) THEN + IQ(NP)=0 +C SET PHOTON CHARGE + E(NP)=PESG + E(NP-1)=PESE +C PHOTON TOP,ELECTRON BOTTOM +C MUST PUT ELECTRON ON TOP + ELSE + IQ(NP)=IQ(NP-1) +C TRANSFER CHARGE FROM INCOMING 'ELECTRON' + IQ(NP-1)=0 + E(NP)=PESE + E(NP-1)=PESG +C ELECTRON TOP,PHOTON BOTTOM + T=U(NP) + U(NP)=U(NP-1) + U(NP-1)=T +C SWAP U + T=V(NP) + V(NP)=V(NP-1) + V(NP-1)=T +C SWAP V + T=W(NP) + W(NP)=W(NP-1) + W(NP-1)=T +C SWAP W + END IF +C END OF SWAPPING + RETURN +C END OF SUBROUTINE BREMS + END + SUBROUTINE COMPT +C VERSION 4.XX -- 7 MAR 1985/2345 +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)/RM)) +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 ****************************************************************** + DOUBLE PRECISION PEIG,PESG,PESE + COMMON/QDEBUG/QDEBUG + LOGICAL QDEBUG + COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W + *T(40),IQ(40),IR(40),NP + DOUBLE PRECISION E + COMMON/THRESH/RMT2,RMSQ,ESCD2,AP(10),AE(10),UP(10),UE(10),TE(10),T + *HMOLL(10) + COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2 + COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PZERO,PRM,PRMT2 + COMMON/RANDOM/IXX +C DEFAULT REPLACEMENT PRODUCES THE FOLLOWING: +C COMIN/DEBUG,STACK,THRESH,UPHIOT,USEFUL,RANDOM/; + PEIG=E(NP) +C PRECISE ENERGY OF INCIDENT GAMMA + EIG=PEIG +C ENERGY OF INCIDENT GAMMA + EGP=EIG/RM +C BR0I IS THE INVERSE OF BR0 + BR0I=1.+2.*EGP + ALPH1=ALOG(BR0I) + ALPH2=EGP*(BR0I+1.)/(BR0I*BR0I) +C DUE TO REJECTION, SOME EXPRESSIONS WHICH ONLY APPEAR ONCE IN +C THE CODE BELOW, MAY ACTUALLY BE NEEDED MORE THAN ONCE. +C RETRY IF REJECTED + SUMALP = ALPH1+ALPH2 +171 CONTINUE +C WHICH PART OF 1./BR + BR TO SAMPLE FROM ? + RNNO15=RNDM(IXX) + IF ((ALPH1.GE.SUMALP*RNNO15)) THEN +C USE 1/BR PART OF DISTRIBUTION + RNNO16=RNDM(IXX) + BR=EXP(ALPH1*RNNO16)/BR0I +C END OF 1/BR PART + ELSE +C USE LINEAR ( BR ) PART OF DISTRIBUTION + BRP=RNDM(IXX) + RNNO18=RNDM(IXX) + IF ((EGP.GE.(EGP+1.)*RNNO18)) THEN + RNNO19=RNDM(IXX) + BRP=AMAX1(BRP,RNNO19) + END IF + BR=((BR0I-1.)*BRP+1.)/BR0I + END IF +C END SAMPLING OF LINEAR PART +C BR=FINAL PHOTON ENERGY FRACTION + ESG=BR*EIG +C ENERGY OF SECONDARY GAMMA +C THE COMPTON ANGLES FOR PHOTON AND RECOIL ELECTRON ARE UNIQUELY +C DETERMINED BY THE CONSERVATION LAWS + A1MIBR = 1.-BR + TEMP=RM*A1MIBR/ESG +C THE AMAX1 IN THE FF. IS TO PREVENT SINTHE.LT.0 FROM TRUNC ERROR + SINTHE=AMAX1(0.0,TEMP*(2.0-TEMP)) +C COMPARE REJECTION FUNCTION WITH RANDOM NUMBER. + RNNO20=RNDM(IXX) + REJF3=1.0-BR*SINTHE/(1.0+BR*BR) + IF((RNNO20.LE.REJF3))GO TO172 + GO TO 171 +172 CONTINUE +C LOOP UNTIL ACCEPTED + SINTHE=SQRT(SINTHE) + COSTHE=1.0-TEMP +C THE RECOIL ELECTRON IS ADDED TO THE SHOWER MEMORY. THE EXTRA +C REST MASS ENERGY WILL BE DISCARDED WHEN THE +C ELECTRON IS THROWN AWAY. + PESG=ESG +C PRECISE ENERGY OF SECONDARY GAMMA + PESE=PEIG-PESG+PRM +C PRECISE ENERGY OF SECONDARY ELECTRON + ESE=PESE +C ENERGY OF SECONDARY ELECTRON +C DIRECTION COSINE CHANGE FOR OLD PHOTON + CALL UPHI(2,1) +C RELATED CHANGE AND (X,Y,Z) SETUP FOR NEW ELECTRON + NP=NP+1 +C WE NOW POINT AT ELECTRON +C PSQ HERE IS THE MOMENTUM SQUARED. + PSQ=ESE**2-RMSQ + IF ((PSQ.LE.0.0)) THEN +C THE ABOVE IS TO AVOID DIVISION BY ZERO IN CASE TRUNCATION +C ERRORS MAKE BR=1 AND HENCE E(NP)=RM, AND PSQ=0 + COSTHE=0. + SINTHE=-1. +C END PSQ.LE.0 CASE +C OK TO DIVIDE, PSQ IS POSITIVE + ELSE + COSTHE=(ESE+ESG)*A1MIBR/SQRT(PSQ) + SINTHE=-SQRT(AMAX1(0.0,1.0-COSTHE*COSTHE)) + END IF +C END OF PSQ.GT.0 CASE +C NOW GET LOWEST ENERGY PARTICLE ON TOP OF STACK AND SET CHARGES + CALL UPHI(3,2) + IF ((ESE.LE.ESG)) THEN + IQ(NP)=-1 +C ELECTRON IS ON TOP + E(NP)=PESE + E(NP-1)=PESG +C SET ENERGIES +C MUST PUT GAMMA ON TOP + ELSE + IQ(NP)=0 + IQ(NP-1)=-1 + E(NP)=PESG + E(NP-1)=PESE +C SET ENERGIES + T=U(NP) + U(NP)=U(NP-1) + U(NP-1)=T +C SWAP U + T=V(NP) + V(NP)=V(NP-1) + V(NP-1)=T +C SWAP V + T=W(NP) + W(NP)=W(NP-1) + W(NP-1)=T +C SWAP W + END IF +C END OF SWAPPING + RETURN +C END OF SUBROUTINE COMPT + END + SUBROUTINE ELECTR(IRCODE) +C VERSION 4.XX -- 7 MAR 1985/2345 +C ****************************************************************** + DOUBLE PRECISION PEIE + COMMON/QDEBUG/QDEBUG + LOGICAL QDEBUG + COMMON/BOUNDS/ECUT(200),PCUT(200),VACDST + COMMON/ELECIN/EKELIM,ICOMP,EKE0(10),EKE1(10),CMFP0(10),CMFP1(10),R + *ANGE0(10),RANGE1(10), XR0(10),TEFF0(10),BLCC(10),XCC(10),PICMP0(1, + *10),PICMP1(1,10),EICMP0(1,10),EICMP1(1,10),MPEEM(1,10), ESIG0(150, + *10),ESIG1(150,10),PSIG0(150,10),PSIG1(150,10),EDEDX0(150,10),EDEDX + *1(150,10),PDEDX0(150,10),PDEDX1(150,10),EBR10(150,10),EBR11(150,10 + *),PBR10(150,10),PBR11(150,10),PBR20(150,10),PBR21(150,10),TMXS0(15 + *0,10),TMXS1(150,10),CMFPE0(1,10),CMFPE1(1,10),CMFPP0(1,10),CMFPP1( + *1,10),ERANG0(1,10),ERANG1(1,10),PRANG0(1,10),PRANG1(1,10),CXC2E0(1 + *,10),CXC2E1(1,10),CXC2P0(1,10),CXC2P1(1,10),CLXAE0(1,10),CLXAE1(1, + *10),CLXAP0(1,10),CLXAP1(1,10), THR0(1,1),THR1(1,1),THR2(1,1),THRI0 + *(1,1),THRI1(1,1),THRI2(1,1),FSTEP(16),FSQR(16),MSMAP(200), VERT1(1 + *000),VERT2(100,16),MSTEPS,JRMAX,MXV1, MXV2,NBLC,NRNTH,NRNTHI,BLC0, + *BLC1,RTHR0,RTHR1,RTHRI0,RTHRI1 + COMMON/EPCONT/EDEP,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, IDISC,IROLD,IR + *NEW,RHOF,EOLD,ENEW,EKE,ELKE,BETA2,BETA, GLE,TSCAT,IAUSFL(25) + DOUBLE PRECISION EDEP + COMMON/MEDIA/NMED,RLC(10),RLDU(10),RHO(10),MSGE(10),MGE(10),MSEKE( + *10),MEKE(10),MLEKE(10),MCMFP(10),MRANGE(10),IRAYLM(10) + COMMON/MEDIAC/MEDIA(24,10) + CHARACTER*4 MEDIA + COMMON/MISC/KMPI,KMPO,DUNIT,NOSCAT,MED(200),RHOR(200),IRAYLR(200) + COMMON/PATHCM/NPTH,B0PTH,B1PTH,PTH0(6),PTH1(6),PTH2(6) + COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W + *T(40),IQ(40),IR(40),NP + DOUBLE PRECISION E + COMMON/THRESH/RMT2,RMSQ,ESCD2,AP(10),AE(10),UP(10),UE(10),TE(10),T + *HMOLL(10) + COMMON/UPHIIN/SINC0,SINC1,SIN0(1002),SIN1(1002) + COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2 + COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PZERO,PRM,PRMT2 + COMMON/RANDOM/IXX +C DEFAULT REPLACEMENT PRODUCES THE FOLLOWING: +C COMIN/DEBUG,BOUNDS,ELECIN,EPCONT,MEDIA,MISC,PATHCM, +C STACK,THRESH,UPHIIN,UPHIOT,USEFUL,USER,RANDOM/; + IRCODE=1 +C SET UP NORMAL RETURN-WHICH MEANS THERE IS A PHOTON +C WITH LESS AVAILABLE ENERGY THAN THE LOWEST ENERGY ELECTRON, +C SO RETURN TO SHOWER SO IT CAN CALL PHOTON TO FOLLOW IT. + IROLD=IR(NP) +C INITIALIZE PREVIOUS REGION + IRL=IR(NP) +C REGION NUMBER IN LOCAL VARIABLE. +C GET MEDIUM OF CURRENT PARTICLE +C GO ONCE THROUGH THIS LOOP FOR EACH + MEDIUM=MED(IRL) +180 CONTINUE +181 CONTINUE +C 'NEW' ELECTRON WHOSE CHARGE AND ENERGY HAS NOT BEEN CHECKED + LELEC=IQ(NP) +C SAVE CHARGE IN LOCAL VARIABLE + PEIE=E(NP) +C PRECISE ENERGY OF INCIDENT ELECTRON +C ENERGY INCIDENT ELECTRON + EIE=PEIE + IF ((EIE.LE.ECUT(IRL))) THEN + GO TO 190 + END IF +C GO THROUGH THIS LOOP EACH TIME WE RECOMPUTE + MEDIUM=MED(IRL) +200 CONTINUE +C DISTANCE TO AN INTERACTION. +C NOT VACUUM. MUST SAMPLE TO SEE HOW FAR +201 CONTINUE + IF ((MEDIUM.NE.0)) THEN +C TO NEXT INTERACTION + RNNE1=RNDM(IXX) + IF ((RNNE1.EQ.0.0)) THEN + RNNE1=1.E-30 + END IF + DEMFP=-ALOG(RNNE1) +C THE DEFAULT (MACRO) FOR THE ABOVE IS: $RANDOMSET RNNE1; +C DEMFP=-ALOG(RNNE1); + EKE=EIE-RM + ELKE=ALOG(EKE) +C PREPARE TO APPROXIMATE CROSS SECTION + LELKE=EKE1(MEDIUM)*ELKE+EKE0(MEDIUM) + IF ((LELEC.LT.0)) THEN + SIG0=ESIG1(LELKE,MEDIUM)*ELKE+ESIG0(LELKE,MEDIUM) +C E+ + ELSE + SIG0=PSIG1(LELKE,MEDIUM)*ELKE+PSIG0(LELKE,MEDIUM) + END IF + END IF +C END NON-VACUUM TEST +C HERE FOR EACH CHECK WITH USER GEOMETRY +210 CONTINUE +C COMPUTE SIZE OF MAXIMUM ACCEPTABLE STEP, WHICH IS LIMITED +C BY MULTIPLE SCATTERING OR OTHER APPROXIMATIONS. +C VACUUM +211 CONTINUE + IF ((MEDIUM.EQ.0)) THEN + TSTEP=VACDST + USTEP=TSTEP + TUSTEP=USTEP +C NON-VACUUM + ELSE + RHOF=RHOR(IRL)/RHO(MEDIUM) +C DENSITY RATIO SCALING TEMPLATE +C THIS CAN HAPPEN IF THE THRESHOLD FOR BREMS, + SIG=SIG0*RHOF + IF ((SIG.LE.0.0)) THEN +C (AP+RM), IS GREATER THAN AE. MOLLER THRESHOLD IS 2*AE-RM. +C IF SIG IS ZERO, WE ARE BELOW THE THRESHOLDS FOR BOTH +C BREMSSTRAHLUNG AND MOLLER. IN THIS CASE WE WILL JUST LOSE +C 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 + END IF +C END SIG IF-ELSE + TMXS=TMXS1(LELKE,MEDIUM)*ELKE+TMXS0(LELKE,MEDIUM) + TP=200.*TEFF0(MEDIUM) + TMXS=AMIN1(TMXS,TP) + TMXS=TMXS/RHOF +C COMPUTE THE RANGE TO ECUT(IRL)-$ENEPS. DO NOT GO MORE +C THAN RANGE. +C ELECTRON + TUSTEP=AMIN1(TSTEP,TMXS) + IF ((LELEC.LT.0)) THEN + DEDX0=EDEDX1(LELKE,MEDIUM)*ELKE+EDEDX0(LELKE,MEDIUM) +C POSITRON + ELSE + DEDX0=PDEDX1(LELKE,MEDIUM)*ELKE+PDEDX0(LELKE,MEDIUM) + END IF + DEDX=RHOF*DEDX0 + RANGE=(EIE-ECUT(IRL)+0.001)/DEDX + BETA2=AMAX1(1.E-8,1.-RMSQ/EIE**2) + TSCAT=RLDU(MEDIUM)*(EIE*BETA2*0.094315)**2 +C 0.094315=2/ESUBS + TSCAT=TSCAT/RHOF + TUSTEP=AMIN1(TUSTEP,0.3*TSCAT,RANGE) +C TUSTEP RESTRICTION MACRO TEMPLATE + USTEP=TUSTEP*(1.-TUSTEP/TSCAT) +C PATH LENGTH CORRECTION MACRO TEMPLATE + END IF +C END NON-VACUUM TEST +C ADDITIONAL TUSTEP RESTRICTION IN EM FIELD +C ADDITIONAL USTEP RESTRICTION IN EM FIELD + IRNEW=IR(NP) +C DEFAULT NEW REGION IS OLD REGION + IDISC=0 +C DEFAULT IS NO DISCARD + USTEP0=USTEP + IF ((USTEP.GT.DNEAR(NP))) THEN + CALL HOWFAR + END IF +C DEFAULT IS NULL +C NOW SEE IF USER REQUESTED DISCARD +C USER REQUESTED IMMEDIATE DISCARD + IF ((IDISC.GT.0)) THEN + GO TO 220 + END IF +C NEGATIVE USTEP---PROBABLE TRUNCATION PROBLEM AT + IF ((USTEP.LE.0.0)) THEN +C A BOUNDARY, WHICH MEANS WE ARE NOT IN THE REGION WE THINK WE +C ARE IN. THE DEFAULT MACRO ASSUMES THAT USER HAS SET IRNEW TO +C THE REGION WE ARE REALLY MOST LIKELY TO BE IN. A MESSAGE IS +C WRITTEN OUT WHENEVER USTEP IS LESS THAN -1.E-4 + IF ((USTEP.LT.-1.E-4)) THEN + WRITE(6,230)USTEP +230 FORMAT(' NEGATIVE USTEP=',G20.10) + END IF + USTEP=0.0 + END IF +C DO FAST STEP +C STEP IN VACUUM + IF ((USTEP.EQ.0.0.OR.MEDIUM.EQ.0)) THEN + IF ((USTEP.NE.0.0)) THEN + VSTEP=USTEP + TVSTEP=VSTEP + EDEP=PZERO +C NO ENERGY LOSS IN VACUUM +C ADDITIONAL VACUUM TRANSPORT IN EM FIELD + IARG=0 + IF ((IAUSFL(IARG+1).NE.0)) THEN + CALL AUSGAB(IARG) + END IF + X(NP)=X(NP)+U(NP)*VSTEP + Y(NP)=Y(NP)+V(NP)*VSTEP + Z(NP)=Z(NP)+W(NP)*VSTEP + DNEAR(NP)=DNEAR(NP)-VSTEP + IROLD=IR(NP) +C SAVE PREVIOUS REGION +C END OF VACUUM STEP + END IF + IR(NP)=IRNEW +C GET NEW REGION IF ANY. + IRL=IRNEW +C GET NEW MEDIUM, IF ANY. + MEDIUM=MED(IRL) + IF ((EIE.LE.ECUT(IRL))) THEN + GO TO 190 + END IF + IF ((USTEP.NE.0.0)) THEN + IARG=5 + IF ((IAUSFL(IARG+1).NE.0)) THEN + CALL AUSGAB(IARG) + END IF + END IF + GO TO 201 + END IF +C GO TRY ANOTHER BIG STEP IN (POSSIBLY) NEW MEDIUM + VSTEP=USTEP + IF ((USTEP.EQ.USTEP0)) THEN + TVSTEP=TUSTEP + ELSE + VSTP=VSTEP/TSCAT + IPTH=B0PTH+B1PTH*VSTP + IF ((IPTH.GT.NPTH)) THEN + WRITE(6,240)VSTP,IPTH,NPTH +240 FORMAT(' OUT OF BOUNDS IPTH: VSTP,IPTH,NPTH=',1PG15.6,2I10) + STOP + END IF + PTH=PTH0(IPTH)+VSTP*(PTH1(IPTH)+VSTP*PTH2(IPTH)) + TVSTEP=PTH*VSTEP + END IF +C PATH LENGTH CORRECTION MACRO TEMPLATE +C ADDITIONAL PATH LENGTH CORRECTION IN EM FIELD +C NOW TAKE IONIZATION LOSSES INTO ACCOUNT +C DEFAULT IS NULL + DE=DEDX*TVSTEP +C THE FOLLOWING MACRO TEMPLATE ALLOWSS THE USER TO CHANGE THE +C IONIZATION LOSS (E.G., TO INCLUDE 'LANDAU SAMPLING'). +C DEFAULT IS NULL. + EDEP=DE +C ENERGY DEPOSITION VARIABLE FOR USER +C E-LOSS OR -GAIN IN EM FIELD + EKEF=EKE-DE + EOLD=EIE +C SAVE OLD VALUE + ENEW=EOLD-DE +C ENERGY AT END OF TRANSPORT +C NOW MULTIPLE SCATTERING + CALL MSCAT +C SAMPLE THE MULTIPLE SCATTERING ANGLE +C WE NOW KNOW DISTANCE AND AMOUNT OF ENERGY LOSS FOR THIS STEP, +C AND THE ANGLE BY WHICH THE ELECTRON WILL BE SCATTERED. HENCE, +C IT IS TIME TO CALL THE USER AND INFORM HIM OF THIS TRANSPORT, +C AFTER WHICH WE WILL DO IT. +C NOW TRANSPORT,DEDUCT ENERGY LOSS, AND DO MULTIPLE SCATTER. + IARG=0 + IF ((IAUSFL(IARG+1).NE.0)) THEN + CALL AUSGAB(IARG) + END IF + X(NP)=X(NP)+U(NP)*VSTEP + Y(NP)=Y(NP)+V(NP)*VSTEP + Z(NP)=Z(NP)+W(NP)*VSTEP + DNEAR(NP)=DNEAR(NP)-VSTEP + IROLD=IR(NP) +C SAVE PREVIOUS REGION + CALL UPHI(2,1) +C NOW DONE WITH MULTIPLE SCATTERING_ +C NOW UPDATE ENERGY AND SEE IF BELOW CUT + PEIE=PEIE-EDEP + EIE=PEIE + E(NP)=PEIE + IF ((EIE.LE.ECUT(IRL))) THEN + GO TO 190 + END IF + MEDOLD=MEDIUM + IF ((MEDIUM.NE.0)) THEN + EKEOLD=EKE + EKE=EIE-RM +C UPDATE KINETIC ENERGY + ELKE=ALOG(EKE) + LELKE=EKE1(MEDIUM)*ELKE+EKE0(MEDIUM) +C GET UPDATED INTERVAL + END IF +C REGION CHANGE + IF ((IRNEW.NE.IROLD)) THEN + IR(NP)=IRNEW + IRL=IRNEW + MEDIUM=MED(IRL) + END IF + IF ((EIE.LE.ECUT(IRL))) THEN + GO TO 190 + END IF +C AFTER TRANSPORT CALL TO USER + IARG=5 + IF ((IAUSFL(IARG+1).NE.0)) THEN + CALL AUSGAB(IARG) + END IF +C NOW CHECK FOR DEFERRED DISCARD REQUEST. MAY HAVE BEEN SET +C BY EITHER HOWFAR, OR ONE OF THE TRANSPORT AUSGAB CALLS + IF((IDISC.LT.0))GO TO 220 + IF((MEDIUM.NE.MEDOLD))GO TO 201 + DEMFP=AMAX1(0.,DEMFP-TVSTEP*SIG) + IF(((DEMFP.LE.1.E-6)))GO TO212 + GO TO 211 +212 CONTINUE +C END USTEP LOOP +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. +C ELECTRON + IF ((LELEC.LT.0)) THEN + SIGF=ESIG1(LELKE,MEDIUM)*ELKE+ESIG0(LELKE,MEDIUM) +C POSITRON + ELSE + SIGF=PSIG1(LELKE,MEDIUM)*ELKE+PSIG0(LELKE,MEDIUM) + END IF + RFICT=RNDM(IXX) + IF(((RFICT.LE.SIGF/SIG0)))GO TO202 + GO TO 201 +202 CONTINUE +C END TSTEP LOOP +C NOW SAMPLE ELECTRON INTERACTION +C E-,CHECK BRANCHING RATIO. + IF ((LELEC.LT.0)) THEN +C =BREMS/TOTAL + EBR1=EBR11(LELKE,MEDIUM)*ELKE+EBR10(LELKE,MEDIUM) +C IT WAS BREMSSTRAHLUNG + RNNO24=RNDM(IXX) + IF ((RNNO24.LE.EBR1)) THEN + GO TO 250 +C IT WAS MOLLER, BUT FIRST CHECK THE KINEMATICS. +C NOT ENOUGH ENERGY FOR MOLLER, SO + ELSE +C FORCE IT TO BE A BREMSSTRAHLUNG---PROVIDED OK KINEMATICALLY. + IF ((E(NP).LE.THMOLL(MEDIUM))) THEN + IF ((EBR1.LE.0.0)) THEN + GO TO 180 + END IF +C BREMS. NOT ALLOWED EITHER + GO TO 250 + END IF + IARG=8 + IF ((IAUSFL(IARG+1).NE.0)) THEN + CALL AUSGAB(IARG) + END IF + CALL MOLLER +C THE FOLLOWING MACRO TEMPLATE ALLOWS THE USER TO CHANGE THE +C PARTICLE SELECTION SCHEME (E.G., ADDING IMPORTANCE SAMPLING +C SUCH AS SPLITTING, LEADING PARTICLE SELECTION, ETC.). +C (DEFAULT MACRO IS TEMPLATE $PARTICLE-SELECTION-ELECTR' +C WHICH IN TURN HAS THE 'NULL' REPLACEMENT ';') + IARG=9 + IF ((IAUSFL(IARG+1).NE.0)) THEN + CALL AUSGAB(IARG) + END IF + END IF + GO TO 180 + END IF +C ELECTRON IS LOWEST ENERGY-FOLLOW IT +C ELSE E+ INTERACTION. PBR1=BREMS/(BREMS+BHABHA+ANNIH) + PBR1=PBR11(LELKE,MEDIUM)*ELKE+PBR10(LELKE,MEDIUM) + RNNO25=RNDM(IXX) + IF ((RNNO25.LT.PBR1)) THEN + GO TO 250 + END IF +C IT WAS BREMSSTRAHLUNG +C ELSE DECIDE BETWEEN BHABHA AND ANNIHILATION +C PBR2 IS (BREMS+BHABHA)/(BREMS+BHABHA+ANNIH) +C IT IS BHABHA + PBR2=PBR21(LELKE,MEDIUM)*ELKE+PBR20(LELKE,MEDIUM) + IF ((RNNO25.LT.PBR2)) THEN + IARG=10 + IF ((IAUSFL(IARG+1).NE.0)) THEN + CALL AUSGAB(IARG) + END IF + CALL BHABHA +C THE FOLLOWING MACRO TEMPLATE ALLOWS THE USER TO CHANGE THE +C PARTICLE SELECTION SCHEME (E.G., ADDING IMPORTANCE SAMPLING +C SUCH AS SPLITTING, LEADING PARTICLE SELECTION, ETC.). +C (DEFAULT MACRO IS TEMPLATE $PARTICLE-SELECTION-ELECTR' +C WHICH IN TURN HAS THE 'NULL' REPLACEMENT ';') + IARG=11 + IF ((IAUSFL(IARG+1).NE.0)) THEN + CALL AUSGAB(IARG) + END IF +C IT IS IN-FLIGHT ANNIHILATION + ELSE + IARG=12 + IF ((IAUSFL(IARG+1).NE.0)) THEN + CALL AUSGAB(IARG) + END IF + CALL ANNIH +C THE FOLLOWING MACRO TEMPLATE ALLOWS THE USER TO CHANGE THE +C PARTICLE SELECTION SCHEME (E.G., ADDING IMPORTANCE SAMPLING +C SUCH AS SPLITTING, LEADING PARTICLE SELECTION, ETC.). +C (DEFAULT MACRO IS TEMPLATE $PARTICLE-SELECTION-ELECTR' +C WHICH IN TURN HAS THE 'NULL' REPLACEMENT ';') + IARG=13 + IF ((IAUSFL(IARG+1).NE.0)) THEN + CALL AUSGAB(IARG) + END IF + GO TO 182 +C I.E., IN ORDER TO RETURN TO SHOWER +C AFTER ANNIHILATION THE GAMMAS ARE BOUND TO BE THE LOWEST ENERGY +C PARTICLES, SO RETURN AND FOLLOW THEM. + END IF +C END PBR2 ELSE + GO TO 181 +182 CONTINUE +C :NEWELECTRON: +C I.E., RETURN TO SHOWER +C --------------------------------------------- +C BREMSSTRAHLUNG-CALL SECTION +C --------------------------------------------- + RETURN +250 IARG=6 + IF ((IAUSFL(IARG+1).NE.0)) THEN + CALL AUSGAB(IARG) + END IF + CALL BREMS +C THE FOLLOWING MACRO TEMPLATE ALLOWS THE USER TO CHANGE THE +C PARTICLE SELECTION SCHEME (E.G., ADDING IMPORTANCE SAMPLING +C SUCH AS SPLITTING, LEADING PARTICLE SELECTION, ETC.). +C (DEFAULT MACRO IS TEMPLATE $PARTICLE-SELECTION-ELECTR' +C WHICH IN TURN HAS THE 'NULL' REPLACEMENT ';') + IARG=7 + IF ((IAUSFL(IARG+1).NE.0)) THEN + CALL AUSGAB(IARG) + END IF +C PHOTON WAS SELECTED. + IF ((IQ(NP).EQ.0)) THEN + RETURN +C I.E., RETURN TO SHOWER +C ELECTRON WAS SELECTED + ELSE + GO TO 180 + END IF +C --------------------------------------------- +C ELECTRON CUTOFF ENERGY DISCARD SECTION +C --------------------------------------------- +190 IF ((EIE.GT.AE(MEDIUM))) THEN + IDR=1 + IF ((LELEC.LT.0)) THEN + EDEP=PEIE-PRM + ELSE + EDEP=PEIE-PRM + END IF + ELSE + IDR=2 + EDEP=PEIE-PRM + END IF + IARG=IDR + IF ((IAUSFL(IARG+1).NE.0)) THEN + CALL AUSGAB(IARG) + END IF +C IT'S A POSITRON. PRODUCE ANNIH. GAMMAS IF EDEP LT PEIE +C FIRST PICK RANDOM DIRECTION FOR GAMMA + IF ((LELEC.GT.0)) THEN + IF ((EDEP.LT.PEIE)) THEN + COSTHE=RNDM(IXX) + FLIP=RNDM(IXX) + IF ((FLIP.LE.0.5)) THEN + COSTHE=-COSTHE + END IF + SINTHE=SQRT(1.0-COSTHE**2) + E(NP)=PRM + IQ(NP)=0 + U(NP)=0. + V(NP)=0. + W(NP)=1. +C MAKE GO ALONG Z-AXIS + CALL UPHI(2,1) +C UPHI WILL PICK RANDOM AZIMUTHAL ANGLE +C THE FOLLOWING MACRO TEMPLATE ALLOWS THE USER TO CHANGE THE +C PARTICLE SELECTION SCHEME (E.G., ADDING IMPORTANCE SAMPLING +C SUCH AS SPLITTING, LEADING PARTICLE SELECTION, ETC.). +C (DEFAULT MACRO IS TEMPLATE $PARTICLE-SELECTION-ELECTR' +C WHICH IN TURN HAS THE 'NULL' REPLACEMENT ';') +C NOW SET UP SECOND GAMMA IN OPPOSITE DIRECTION. + NP=NP+1 + E(NP)=PRM + IQ(NP)=0 + X(NP)=X(NP-1) + Y(NP)=Y(NP-1) + Z(NP)=Z(NP-1) + IR(NP)=IR(NP-1) + WT(NP)=WT(NP-1) + DNEAR(NP)=DNEAR(NP-1) + U(NP)=-U(NP-1) + V(NP)=-V(NP-1) + W(NP)=-W(NP-1) + IARG=14 + IF ((IAUSFL(IARG+1).NE.0)) THEN + CALL AUSGAB(IARG) + END IF +C NOW DISCARD THE POSITRON AND TAKE NORMAL RETURN TO FOLLOW +C THE ANNIHILATION GAMMAS. + RETURN +C I.E., RETURN TO SHOWER + END IF + END IF +C END OF POSITRON BLOCK + NP=NP-1 + IRCODE=2 +C TELL SHOWER A NEGATRON OR UN-ANNIHILATED +C POSITRON HAS BEEN DISCARDED +C I.E., RETURN TO SHOWER +C --------------------------------------------- +C USER REQUESTED ELECTRON DISCARD SECTION +C --------------------------------------------- + RETURN +220 IF ((LELEC.LT.0)) THEN + EDEP=PEIE-PRM + ELSE + EDEP=PEIE+PRM + END IF + IARG=3 + IF ((IAUSFL(IARG+1).NE.0)) THEN + CALL AUSGAB(IARG) + END IF + IRCODE=2 + NP=NP-1 + RETURN +C I.E., RETURN TO SHOWER +C END OF SUBROUTINE ELECTR + END + SUBROUTINE HATCH +C VERSION 4.XX -- 7 MAR 1985/2345 +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 ****************************************************************** + CHARACTER*4 MBUF(72),MDLABL(8) + DIMENSION ZEROS(3),LOK(10) +C NOTE: ABOVE IS ZEROS OF SINE, 0,PI,TWOPI + COMMON/QDEBUG/QDEBUG + LOGICAL QDEBUG + COMMON/BOUNDS/ECUT(200),PCUT(200),VACDST + COMMON/BREMPR/DL1(6,10),DL2(6,10),DL3(6,10),DL4(6,10),DL5(6,10),DL + *6(6,10),DELCM(10), ALPHI(2,10),BPAR(2,10),DELPOS(2,10),PWR2I(50) + COMMON/ELECIN/EKELIM,ICOMP,EKE0(10),EKE1(10),CMFP0(10),CMFP1(10),R + *ANGE0(10),RANGE1(10), XR0(10),TEFF0(10),BLCC(10),XCC(10),PICMP0(1, + *10),PICMP1(1,10),EICMP0(1,10),EICMP1(1,10),MPEEM(1,10), ESIG0(150, + *10),ESIG1(150,10),PSIG0(150,10),PSIG1(150,10),EDEDX0(150,10),EDEDX + *1(150,10),PDEDX0(150,10),PDEDX1(150,10),EBR10(150,10),EBR11(150,10 + *),PBR10(150,10),PBR11(150,10),PBR20(150,10),PBR21(150,10),TMXS0(15 + *0,10),TMXS1(150,10),CMFPE0(1,10),CMFPE1(1,10),CMFPP0(1,10),CMFPP1( + *1,10),ERANG0(1,10),ERANG1(1,10),PRANG0(1,10),PRANG1(1,10),CXC2E0(1 + *,10),CXC2E1(1,10),CXC2P0(1,10),CXC2P1(1,10),CLXAE0(1,10),CLXAE1(1, + *10),CLXAP0(1,10),CLXAP1(1,10), THR0(1,1),THR1(1,1),THR2(1,1),THRI0 + *(1,1),THRI1(1,1),THRI2(1,1),FSTEP(16),FSQR(16),MSMAP(200), VERT1(1 + *000),VERT2(100,16),MSTEPS,JRMAX,MXV1, MXV2,NBLC,NRNTH,NRNTHI,BLC0, + *BLC1,RTHR0,RTHR1,RTHRI0,RTHRI1 + COMMON/MEDIA/NMED,RLC(10),RLDU(10),RHO(10),MSGE(10),MGE(10),MSEKE( + *10),MEKE(10),MLEKE(10),MCMFP(10),MRANGE(10),IRAYLM(10) + COMMON/MEDIAC/MEDIA(24,10) + CHARACTER*4 MEDIA + COMMON/MISC/KMPI,KMPO,DUNIT,NOSCAT,MED(200),RHOR(200),IRAYLR(200) + COMMON/PHOTIN/EBINDA(10),GE0(10),GE1(10), MPGEM(1,10),GMFP0(200,10 + *),GMFP1(200,10),GBR10(200,10),GBR11(200,10),GBR20(200,10),GBR21(20 + *0,10), NGR(10),RCO0(10),RCO1(10),RSCT0(100, 10),RSCT1(100, 10),COH + *E0(200,10),COHE1(200,10) + COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W + *T(40),IQ(40),IR(40),NP + DOUBLE PRECISION E + COMMON/THRESH/RMT2,RMSQ,ESCD2,AP(10),AE(10),UP(10),UE(10),TE(10),T + *HMOLL(10) + COMMON/UPHIIN/SINC0,SINC1,SIN0(1002),SIN1(1002) + COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2 + COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PZERO,PRM,PRMT2 + COMMON/RANDOM/IXX +C DEFAULT REPLACEMENT PRODUCES THE FOLLOWING: +C COMIN/DEBUG,BOUNDS,BREMPR,ELECIN,MEDIA,MISC,PHOTIN,STACK, +C THRESH,UPHIIN,UPHIOT,USEFUL,USER,RANDOM/; + DATA MDLABL/' ','M','E','D','I','U','M','='/,LMDL/8/,LMDN/24/,DUNI + *TO/1./ +C FORMAT STATEMENTS USED MULTIPLE TIMES IN SETUP + DATA I1ST/1/,NSINSS/37/,MXSINC/1002/,ISTEST/0/,NRNA/1000/ +260 FORMAT(1X,14I5) +270 FORMAT(1X,1P5E14.5) +280 FORMAT(72A1) + IF ((I1ST.NE.0)) THEN + I1ST=0 +C RESET FIRST TIME FLAG +C DO FIRST TIME INITIALIZATION +C DEFAULT IS NULL +C SET UP ENERGY PRECISION VARIABLES + PRM=RM +C PRECISE REST MASS + PRMT2=2.D0*PRM +C TWICE THE PRECISION REST MASS + PZERO=0.0D0 +C PRECISE ZERO +C NOW CONSTRUCT PIECEWISE LINEAR FIT TO SINE FUNCTION OVER THE +C INTERVAL (0,5*PI/2). DIVIDE THIS INTERVAL INTO MXSINC SUB- +C INTERVALS. EACH OF THESE SUBINTERVALS IS THEN SUBDIVIDED INTO +C NSINSS SUB-SUB-INTERVALS. THE ANGLES AT THE BOUNDARIES OF +C THESE SUB-SUB-INTERVALS AND THEIR SINES ARE USED TO COMPUTE +C LEAST SQUARES COEFFICIENTS FOR THE SUBINTERVAL. AN EXTRA +C SUBINTERVAL ON EACH SIDE OF THE INTERVAL (0,5*PI/2) IS INCLUDED +C FOR GOOD MEASURE. + NISUB=MXSINC-2 + FNSSS=NSINSS + WID=PI5D2/FLOAT(NISUB) + WSS=WID/(FNSSS-1.0) + ZEROS(1)=0. + ZEROS(2)=PI +C LOOP OVER SUBINTERVALS + ZEROS(3)=TWOPI + DO 291 ISUB=1,MXSINC + SX=0. + SY=0. + SXX=0. + SXY=0. +C ZERO SUMS + XS0=WID*FLOAT(ISUB-2) + XS1=XS0+WID +C LOWER & UPPER LIMITS +C NOW CHECK TO SEE IF ANY ZEROS ARE IN THE INTERVAL + IZ=0 + DO 301 IZZ=1,3 + IF (((XS0.LE.ZEROS(IZZ)).AND.(ZEROS(IZZ).LE.XS1))) THEN + IZ=IZZ + GO TO302 + END IF +301 CONTINUE +302 CONTINUE +C END OF LOOP OVER ZEROS + IF ((IZ.EQ.0)) THEN + XSI=XS0 + ELSE + XSI=ZEROS(IZ) + END IF +C LOOP OVER SUB-SUBINTERVALS + DO 311 ISS=1,NSINSS + XS=WID*FLOAT(ISUB-2)+WSS*FLOAT(ISS-1)-XSI +C ANGLE VALUE + YS=SIN(XS+XSI) +C SINE OF ANGLE + SX=SX+XS +C ACCUMULATE SUMS + SY=SY+YS + SXX=SXX+XS*XS + SXY=SXY+XS*YS +311 CONTINUE +312 CONTINUE +C END SUB-SUBINTERVAL LOOP +C NOW COMPUTE LEAST SQUARES COEFFICIENTS +C FORCE FIT THROUGH SINES' ZEROS, + IF ((IZ.NE.0)) THEN +C FOR SMALL REL.ERR.&GOOD +C VALUES OF SINTHE/THETA NEAR ZERO + SIN1(ISUB)=SXY/SXX + SIN0(ISUB)=-SIN1(ISUB)*XSI +C DO FULL LEAST SQUARES + ELSE + DEL=FNSSS*SXX-SX*SX + SIN1(ISUB)=(FNSSS*SXY-SY*SX)/DEL + SIN0(ISUB)=(SY*SXX-SX*SXY)/DEL - SIN1(ISUB)*XSI + END IF +291 CONTINUE +292 CONTINUE +C END SUB-INTERVAL LOOP + SINC0=2.0 +C SET COEFFICIENTS WHICH DETERMINE INTERVAL +C NOW TEST FIT, IF REQUESTED + SINC1=1.0/WID + IF ((ISTEST.NE.0)) THEN +C FIRST TEST AT POINTS PREVIOUSLY COMPUTED, EXCLUDING +C END SUBINTERVALS + ADEV=0. + RDEV=0. + S2C2MN=10. + S2C2MX=0. + DO 321 ISUB=1,NISUB + DO 331 ISS=1,NSINSS + THETA=WID*FLOAT(ISUB-1)+WSS*FLOAT(ISS-1) + CTHET=PI5D2-THETA + SINTHE=SIN(THETA) + COSTHE=SIN(CTHET) + SINT=SIN(THETA) + COST=COS(THETA) + ASD=ABS(SINTHE-SINT) + ACD=ABS(COSTHE-COST) + ADEV=AMAX1(ADEV,ASD,ACD) + IF((SINT.NE.0.0))RDEV=AMAX1(RDEV,ASD/ABS(SINT)) + IF((COST.NE.0.0))RDEV=AMAX1(RDEV,ACD/ABS(COST)) + S2C2=SINTHE**2+COSTHE**2 + S2C2MN=AMIN1(S2C2MN,S2C2) + S2C2MX=AMAX1(S2C2MX,S2C2) + IF ((ISUB.LT.11)) THEN + WRITE(6,340)THETA,SINTHE,SINT,COSTHE,COST +340 FORMAT(1P5E20.7) + END IF +331 CONTINUE +332 CONTINUE +321 CONTINUE +322 CONTINUE +C END OF FIXED INTERVAL TEST-OUTPUT RESULTS + WRITE(6,350)MXSINC,NSINSS +350 FORMAT(' SINE TESTS,MXSINC,NSINSS=',2I5) + WRITE(6,360)ADEV,RDEV,S2C2MN,S2C2MX +360 FORMAT(' ADEV,RDEV,S2C2(MN,MX) =',1P4E16.8) +C NOW DO RANDOM TEST + ADEV=0. + RDEV=0. + S2C2MN=10. + S2C2MX=0. + DO 371 IRN=1,NRNA + THETA=RNDM(IXX) + THETA=THETA*PI5D2 + CTHET=PI5D2-THETA + SINTHE=SIN(THETA) + COSTHE=SIN(CTHET) + SINT=SIN(THETA) + COST=COS(THETA) + ASD=ABS(SINTHE-SINT) + ACD=ABS(COSTHE-COST) + ADEV=AMAX1(ADEV,ASD,ACD) + IF((SINT.NE.0.0))RDEV=AMAX1(RDEV,ASD/ABS(SINT)) + IF((COST.NE.0.0))RDEV=AMAX1(RDEV,ACD/ABS(COST)) + S2C2=SINTHE**2+COSTHE**2 + S2C2MN=AMIN1(S2C2MN,S2C2) + S2C2MX=AMAX1(S2C2MX,S2C2) +371 CONTINUE +372 CONTINUE +C END RANDOM ANGLE LOOP + WRITE(6,380)NRNA +380 FORMAT(' TEST AT ',I7,' RANDOM ANGLES IN (0,5*PI/2)') + WRITE(6,390)ADEV,RDEV,S2C2MN,S2C2MX +390 FORMAT(' ADEV,RDEV,S2C2(MN,MX) =',1P4E16.8) + END IF +C END OF SINE TABLE TEST +C NOW FILL IN POWER OF TWO TABLE. PWR2I(I)=1/2**(I-1) + P=1. + DO 401 I=1,50 + PWR2I(I)=P + P=P/2. +401 CONTINUE +402 CONTINUE + END IF +C END OF FIRST TIME INITIALIZATION +C FILL IRAYLM ARRAY BASED ON IRAYLR INPUTS + DO 411 J=1,NMED +420 CONTINUE + DO 421 I=1,200 + IF ((IRAYLR(I).EQ.1.AND.MED(I).EQ.J)) THEN +C REGION I = MEDIUM J AND WE WANT RAYLEIGH SCATTERING, SO +C SET FLAG TO PICK UP DATA FOR MEDIUM J AND TRY NEXT MEDIUM. + IRAYLM(J)=1 + GO TO 422 + END IF +C END OF REGION-LOOP +421 CONTINUE +422 CONTINUE +C END OF MEDIA-LOOP +411 CONTINUE +412 CONTINUE +C NOW SEARCH FILE FOR DATA FOR REQUESTED MATERIALS + OPEN ( UNIT=KMPI, STATUS='OLD', READONLY, SHARED ) + REWIND KMPI +C NUMBER OF MEDIA FOUND + NM=0 + DO 431 IM=1,NMED +C SET FLAG TELLING WHICH MEDIA ARE OK +C NOW TELL USER IF RAYLEIGH OPTION HAS BEEN REQUESTED + LOK(IM)=0 + IF ((IRAYLM(IM).EQ.1)) THEN + WRITE(6,440)IM +440 FORMAT(' RAYLEIGH OPTION REQUESTED FOR MEDIUM NUMBER',I3,/) + END IF +431 CONTINUE +432 CONTINUE +C MEDIUM SEARCH LOOP +450 CONTINUE +C MEDIUM HEADER SEARCH LOOP +451 CONTINUE +460 CONTINUE +461 CONTINUE +C FIRST LOOK FOR MEDIUM HEADER + READ(KMPI,280,END=470)MBUF + DO 481 IB=1,LMDL + IF((MBUF(IB).NE.MDLABL(IB)))GO TO 461 +481 CONTINUE +482 CONTINUE +C HEADER MATCHES. NOW SEE IF IT IS ONE OF REQUESTED MEDIA +490 CONTINUE + DO 491 IM=1,NMED + DO 501 IB=1,LMDN + IL=LMDL+IB + IF((MBUF(IL).NE.MEDIA(IB,IM)))GO TO 491 + IF((IB.EQ.LMDN))GO TO 462 +501 CONTINUE +502 CONTINUE +491 CONTINUE +492 CONTINUE +C END :MDNAME: DO +C NOT IN NAME TABLE, SO IGNORE IT + GO TO 461 +462 CONTINUE +C MDLOOK +C 'IM' IS THE INDEX OF THE MEDIUM READY TO BE READ + IF((LOK(IM).NE.0))GO TO 460 +C WE ALREADY HAVE THIS ONE + LOK(IM)=1 +C SET FOUND FLAG AND STEP MEDIUM COUNTER +C NOW READY TO READ IN DATA FOR THIS MEDIUM + NM=NM+1 + WRITE(KMPO,510)IM,MBUF +C NOW PUT OUT LINES SHOWING COMPOSITION OF MEDIUM +510 FORMAT(' DATA FOR MEDIUM #',I3,', WHICH IS:',72A1) + READ(KMPI,520)(MBUF(I),I=1,5),RHO(IM),NE +520 FORMAT(5A1,5X,F11.0,4X,I2) + WRITE(KMPO,530)(MBUF(I),I=1,5),RHO(IM),NE +530 FORMAT(5A1,',RHO=',1PG11.4, ',NE=',I2,',COMPOSITION IS :') + DO 541 IE=1,NE + READ(KMPI,280)MBUF + WRITE(KMPO,280)MBUF +541 CONTINUE +542 CONTINUE +C MEDIA AND THRESH + WRITE(KMPO,550) +550 FORMAT(' ECHO READ:$LGN(RLC,AE,AP,UE,UP(IM))') + READ(KMPI,270)RLC(IM),AE(IM),AP(IM),UE(IM),UP(IM) + WRITE(KMPO,270)RLC(IM),AE(IM),AP(IM),UE(IM),UP(IM) + TE(IM)=AE(IM)-RM +C ACTUAL ARRAY SIZES FROM PEGS + THMOLL(IM)=TE(IM)*2. + RM + WRITE(KMPO,560) +560 FORMAT(' ECHO READ:$LGN(MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE(IM) + *),IRAYL') + READ(KMPI,260)MSGE(IM),MGE(IM),MSEKE(IM),MEKE(IM),MLEKE(IM),MCMFP( + *IM),MRANGE(IM),IRAYL + WRITE(KMPO,260)MSGE(IM),MGE(IM),MSEKE(IM),MEKE(IM),MLEKE(IM),MCMFP + *(IM),MRANGE(IM),IRAYL + NSGE=MSGE(IM) + NGE=MGE(IM) + NSEKE=MSEKE(IM) + NEKE=MEKE(IM) + NLEKE=MLEKE(IM) + NCMFP=MCMFP(IM) +C BREMPR + NRANGE=MRANGE(IM) + WRITE(KMPO,570) +570 FORMAT(' ECHO READ:($LGN(DL(I,IM)/1,2,3,4,5,6/),I=1,6)') + READ(KMPI,270)(DL1(I,IM),DL2(I,IM),DL3(I,IM),DL4(I,IM),DL5(I,IM),D + *L6(I,IM),I=1,6) + WRITE(KMPO,270)(DL1(I,IM),DL2(I,IM),DL3(I,IM),DL4(I,IM),DL5(I,IM), + *DL6(I,IM),I=1,6) + WRITE(KMPO,580) +580 FORMAT(' ECHO READ:DELCM(IM),($LGN(ALPHI,BPAR, DELPOS(I,IM)),I=1,2 + *)') + READ(KMPI,270)DELCM(IM),(ALPHI(I,IM),BPAR(I,IM),DELPOS(I,IM),I=1,2 + *) +C ELECIN + WRITE(KMPO,270)DELCM(IM),(ALPHI(I,IM),BPAR(I,IM),DELPOS(I,IM),I=1, + *2) + WRITE(KMPO,590) +590 FORMAT(' ECHO READ:$LGN(XR0,TEFF0,BLCC,XCC(IM))') + READ(KMPI,270)XR0(IM),TEFF0(IM),BLCC(IM),XCC(IM) + WRITE(KMPO,270)XR0(IM),TEFF0(IM),BLCC(IM),XCC(IM) + WRITE(KMPO,600) +600 FORMAT(' ECHO READ:$LGN(EKE(IM)/0,1/)') + READ(KMPI,270)EKE0(IM),EKE1(IM) + WRITE(KMPO,270)EKE0(IM),EKE1(IM) + WRITE(KMPO,610) +610 FORMAT(' ECHO READ:($LGN(ESIG,PSIG,EDEDX,PDEDX,EBR1,PBR1,PBR2, TMX + *S(I,IM)/0,1/),I=1,NEKE)') + READ(KMPI,270)(ESIG0(I,IM),ESIG1(I,IM),PSIG0(I,IM),PSIG1(I,IM),EDE + *DX0(I,IM),EDEDX1(I,IM),PDEDX0(I,IM),PDEDX1(I,IM),EBR10(I,IM),EBR11 + *(I,IM),PBR10(I,IM),PBR11(I,IM),PBR20(I,IM),PBR21(I,IM),TMXS0(I,IM) + *,TMXS1(I,IM),I=1,NEKE) +C PHOTIN + WRITE(KMPO,270)(ESIG0(I,IM),ESIG1(I,IM),PSIG0(I,IM),PSIG1(I,IM),ED + *EDX0(I,IM),EDEDX1(I,IM),PDEDX0(I,IM),PDEDX1(I,IM),EBR10(I,IM),EBR1 + *1(I,IM),PBR10(I,IM),PBR11(I,IM),PBR20(I,IM),PBR21(I,IM),TMXS0(I,IM + *),TMXS1(I,IM),I=1,NEKE) + WRITE(KMPO,620) +620 FORMAT(' ECHO READ:EBINDA(IM),$LGN(GE(IM)/0,1/)') + READ(KMPI,270)EBINDA(IM),GE0(IM),GE1(IM) + WRITE(KMPO,270)EBINDA(IM),GE0(IM),GE1(IM) + WRITE(KMPO,630) +630 FORMAT(' ECHO READ:($LGN(GMFP,GBR1,GBR2(I,IM)/0,1/),I=1,NGE)') + READ(KMPI,270)(GMFP0(I,IM),GMFP1(I,IM),GBR10(I,IM),GBR11(I,IM),GBR + *20(I,IM),GBR21(I,IM),I=1,NGE) +C PHOTIN (CONTINUED)---OPTIONAL RAYLEIGH SCATTERING INPUT + WRITE(KMPO,270)(GMFP0(I,IM),GMFP1(I,IM),GBR10(I,IM),GBR11(I,IM),GB + *R20(I,IM),GBR21(I,IM),I=1,NGE) + IF ((IRAYLM(IM).EQ.1.AND.IRAYL.NE.1)) THEN + WRITE(6,640)IM +640 FORMAT(' STOPPED IN HATCH: REQUESTED RAYLEIGH OPTION FOR MEDIUM',I + *3, /,' BUT RAYLEIGH DATA NOT INCLUDED IN DATA CREATED BY PEGS.') + STOP + END IF + IF ((IRAYL.EQ.1)) THEN + WRITE(KMPO,650) +650 FORMAT(' ECHO READ:NGR(IM)') + READ(KMPI,260)NGR(IM) + WRITE(KMPO,260)NGR(IM) + NGRIM=NGR(IM) + WRITE(KMPO,660) +660 FORMAT(' ECHO READ:$LGN(RCO(IM)/0,1/)') + READ(KMPI,270)RCO0(IM),RCO1(IM) + WRITE(KMPO,270)RCO0(IM),RCO1(IM) + WRITE(KMPO,670) +670 FORMAT(' ECHO READ:($LGN(RSCT(I,IM)/0,1/),I=1,NGRIM)') + READ(KMPI,270)(RSCT0(I,IM),RSCT1(I,IM),I=1,NGRIM) + WRITE(KMPO,270)(RSCT0(I,IM),RSCT1(I,IM),I=1,NGRIM) + WRITE(KMPO,680) +680 FORMAT(' ECHO READ:($LGN(COHE(I,IM)/0,1/),I=1,NGE)') + READ(KMPI,270)(COHE0(I,IM),COHE1(I,IM),I=1,NGE) + WRITE(KMPO,270)(COHE0(I,IM),COHE1(I,IM),I=1,NGE) + IF ((IRAYLM(IM).NE.1)) THEN + WRITE(6,690)IM +690 FORMAT(' RAYLEIGH DATA AVAILABLE FOR MEDIUM',I3, ' BUT OPTION NOT + *REQUESTED.',/) + END IF + END IF +C THAT'S ALL FOR THIS MEDIUM + IF((NM.GE.NMED))GO TO452 + GO TO 451 +452 CONTINUE +C LOOP UNTIL WE HAVE ENOUGH. END :MEDIUM: LOOP +C WE NOW HAVE DATA FOR ALL MEDIA REQUESTED. NOW DO DISTANCE UNIT +C CHANGE. DATA FROM PEGS IS IN UNITS OF RADIATION LENGTHS. +C EGS IS RUN IN UNITS OF 'DUNIT' CENTIMETERS, IF DUNIT.GT.0 +C OR IN UNITS OF RLC(-DUNIT) CENTIMETERS IF DUNIT.LT.0. +C THAT IS, A NEGATIVE DUNIT MEANS UNIT IS TO BE THE RADIATION +C LENGTH OF THE MEDIUM WHOSE INDEX IS -DUNIT +C SAVE REQUESTED + DUNITR=DUNIT + IF ((DUNIT.LT.0.0)) THEN + ID=MAX0(1,MIN0(10,IFIX(-DUNIT))) + DUNIT=RLC(ID) + END IF + IF ((DUNIT.NE.1.0)) THEN + WRITE(6,700)DUNITR,DUNIT +700 FORMAT(' DUNIT REQUESTED&USED ARE:',1P2E14.5,'(CM.)') + END IF + DO 711 IM=1,NMED + DFACT=RLC(IM)/DUNIT +C CONVERTS RL TO DUNITS +C CONVERT RL**-1 TO DUNITS**-1 + DFACTI=1.0/DFACT + I=1 + GO TO 723 +721 I=I+1 +723 IF(I-(MEKE(IM)).GT.0)GO TO 722 + ESIG0(I,IM)=ESIG0(I,IM)*DFACTI + ESIG1(I,IM)=ESIG1(I,IM)*DFACTI + PSIG0(I,IM)=PSIG0(I,IM)*DFACTI + PSIG1(I,IM)=PSIG1(I,IM)*DFACTI + EDEDX0(I,IM)=EDEDX0(I,IM)*DFACTI + EDEDX1(I,IM)=EDEDX1(I,IM)*DFACTI + PDEDX0(I,IM)=PDEDX0(I,IM)*DFACTI + PDEDX1(I,IM)=PDEDX1(I,IM)*DFACTI + TMXS0(I,IM)=TMXS0(I,IM)*DFACT + TMXS1(I,IM)=TMXS1(I,IM)*DFACT + GO TO 721 +722 CONTINUE + I=1 + GO TO 733 +731 I=I+1 +733 IF(I-(MLEKE(IM)).GT.0)GO TO 732 + ERANG0(I,IM)=ERANG0(I,IM)*DFACT + ERANG1(I,IM)=ERANG1(I,IM)*DFACT + PRANG0(I,IM)=PRANG0(I,IM)*DFACT + PRANG1(I,IM)=PRANG1(I,IM)*DFACT + GO TO 731 +732 CONTINUE + TEFF0(IM)=TEFF0(IM)*DFACT + BLCC(IM)=BLCC(IM)*DFACTI + XCC(IM)=XCC(IM)*SQRT(DFACTI) + RLDU(IM)=RLC(IM)/DUNIT + I=1 + GO TO 743 +741 I=I+1 +743 IF(I-(MGE(IM)).GT.0)GO TO 742 + GMFP0(I,IM)=GMFP0(I,IM)*DFACT + GMFP1(I,IM)=GMFP1(I,IM)*DFACT + GO TO 741 +742 CONTINUE +711 CONTINUE +712 CONTINUE +C END IM DO +C SCALE VACDST. UNDO PREVIOUS SCALE, THEN DO NEW. + VACDST=VACDST*DUNITO/DUNIT +C SAVE OLD DUNIT +C NOW MAKE SURE ECUT AND PCUT ARE NOT LOWER THAN ANY AE OR AP +C ALSO SET DEFAULT DENSITIES + DUNITO=DUNIT + DO 751 JR=1,200 +C IT IS LEGAL NON-VACUUM MEDIUM. + MD=MED(JR) + IF (((MD.GE.1).AND.(MD.LE.NMED))) THEN + ECUT(JR)=AMAX1(ECUT(JR),AE(MD)) +C USE STANDARD DENSITY FOR REGIONS NOT SPECIALLY SET UP + PCUT(JR)=AMAX1(PCUT(JR),AP(MD)) + IF ((RHOR(JR).EQ.0.0)) THEN + RHOR(JR)=RHO(MD) + END IF + END IF +751 CONTINUE +752 CONTINUE +C SETUP IS NOW COMPLETE + IF ((NMED.EQ.1)) THEN + WRITE(6,760) +760 FORMAT(' EGS4 SUCCESSFULLY ''HATCHED'' FOR ONE MEDIUM.') + ELSE + WRITE(6,770)NMED +770 FORMAT(' EGS4 SUCCESSFULLY ''HATCHED'' FOR ',I5,' MEDIA.') + END IF + RETURN +470 WRITE(6,780)KMPI +780 FORMAT(' END OF FILE ON UNIT ',I2,//, ' PROGRAM STOPPED IN HATCH B + *ECAUSE THE',/, ' FOLLOWING NAMES WERE NOT RECOGNIZED:',/) + DO 791 IM=1,NMED + IF ((LOK(IM).NE.1)) THEN + WRITE(6,800)(MEDIA(I,IM),I=1,LMDN) +800 FORMAT(40X,'''',24A1,'''') + END IF +791 CONTINUE +792 CONTINUE + STOP +C END OF SUBROUTINE HATCH + END + SUBROUTINE MOLLER +C VERSION 4.XX -- 7 MAR 1985/2345 +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-RM. 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+RM. THE REST OF THE COLLISION CONTRIBUTION IS +C SUBTRACTED CONTINUOUSLY FROM THE ELECTRON AS IONIZATION +C LOSS DURING TRANSPORT. +C ****************************************************************** + DOUBLE PRECISION PEIE,PEKSE2,PESE1,PESE2 + DOUBLE PRECISION PEKIN,H1,DCOSTH + COMMON/QDEBUG/QDEBUG + LOGICAL QDEBUG + COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W + *T(40),IQ(40),IR(40),NP + DOUBLE PRECISION E + COMMON/THRESH/RMT2,RMSQ,ESCD2,AP(10),AE(10),UP(10),UE(10),TE(10),T + *HMOLL(10) + COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2 + COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PZERO,PRM,PRMT2 + COMMON/RANDOM/IXX +C DEFAULT REPLACEMENT PRODUCES THE FOLLOWING: +C COMIN/DEBUG,STACK,THRESH,UPHIOT,USEFUL,RANDOM/; + IRCODE=1 +C SET FOR NORMAL RETURN + PEIE=E(NP) +C PRECISE ENERGY OF INCIDENT ELECTRON + EIE=PEIE +C ENERGY OF INCIDENT ELECTRON + PEKIN=PEIE-PRM +C PRECISE K.E. OF INCIDENT ELECTRON + EKIN=PEKIN + T0=EKIN/RM + E0=T0+1.0 + EXTRAE = EIE - THMOLL(MEDIUM) + E02=E0*E0 + BETAI2=E02/(E02-1.0) + EP0=TE(MEDIUM)/EKIN + G1=(1.-2.*EP0)*BETAI2 + G2=T0*T0/E02 +C H.H.NAGEL HAS CONSTRUCTED A FACTORIZATION OF THE FREQUENCY +C DISTRIBUTION FUNCTION FOR THE MOLLER DIFFERENTIAL CROSS +C SECTION USED AS SUGGESTED BY BUTCHER AND MESSEL. +C (H.H.NAGEL, OP.CIT., P. 53-55) +C HOWEVER, A MUCH SIMPLER SAMPLING METHOD WHICH DOES NOT BECOME +C VERY INEFFICIENT NEAR THMOLL IS THE FOLLOWING. . . +C LET BR=EKS/EKIN, WHERE EKS IS KINETIC ENERGY TRANSFERED TO THE +C SECONDARY ELECTRON AND EKIN IS THE INCIDENT KINETIC ENERGY. +C MODIFIED (7 FEB 1974) TO USE THE TRUE MOLLER CROSS SECTION. +C THAT IS, INSTEAD OF THE E+ E- AVERAGE GIVEN IN THE ROSSI +C FORMULA USED BY NAGEL. THE SAMPLING SCHEME IS THAT +C USED BY MESSEL AND CRAWFORD (EPSDF 1970 P.13) +C FIRST SAMPLE (1/BR**2) OVER (TE/EKIN,1/2) . . . +C TO RETRY IF REJECTED + G3=(2.*T0+1.)/E02 +811 CONTINUE + RNNO27=RNDM(IXX) + BR = TE(MEDIUM)/(EKIN-EXTRAE*RNNO27) +C USE MESSEL AND CRAWFORDS REJECTION FUNCTION. + R=BR/(1.-BR) + RNNO28=RNDM(IXX) + REJF4=G1*(1.+G2*BR*BR+R*(R-G3)) + IF((RNNO28.LE.REJF4))GO TO812 + GO TO 811 +812 CONTINUE +C TRY UNTIL ACCEPTED. END REJECTION LOOP + PEKSE2=BR*EKIN +C PRECISE KINETIC ENERGY OF SECONDARY ELECTRON #2 + PESE1=PEIE-PEKSE2 +C PRECISE ENERGY OF SECONDARY ELECTRON #1 + PESE2=PEKSE2+PRM +C PRECISE ENERGY OF SECONDARY ELECTRON #2 + ESE1=PESE1 +C ENERGY OF SECONDARY ELECTRON 1 + ESE2=PESE2 +C ENERGY OF SECONDARY ELECTRON 2 + E(NP)=PESE1 + E(NP+1)=PESE2 +C SINCE BR.LE.0.5, E(NP+1) MUST BE .LE. E(NP). +C MOLLER ANGLES ARE UNIQUELY DETERMINED BY KINEMATICS + H1=(PEIE+PRM)/PEKIN +C DIRECTION COSINE CHANGE FOR 'OLD' ELECTRON + DCOSTH=H1*(PESE1-PRM)/(PESE1+PRM) + SINTHE=DSQRT(1.D0-DCOSTH) + COSTHE=DSQRT(DCOSTH) + CALL UPHI(2,1) +C RELATED CHANGE AND (X,Y,Z) SETUP FOR 'NEW' ELECTRON + NP=NP+1 + IQ(NP)=-1 + DCOSTH=H1*(PESE2-PRM)/(PESE2+PRM) + SINTHE=-DSQRT(1.D0-DCOSTH) + COSTHE=DSQRT(DCOSTH) + CALL UPHI(3,2) + RETURN +C END OF SUBROUTINE MOLLER + END + SUBROUTINE MSCAT +C VERSION 4.XX -- 7 MAR 1985/2345 +C ****************************************************************** + COMMON/QDEBUG/QDEBUG + LOGICAL QDEBUG + COMMON/ELECIN/EKELIM,ICOMP,EKE0(10),EKE1(10),CMFP0(10),CMFP1(10),R + *ANGE0(10),RANGE1(10), XR0(10),TEFF0(10),BLCC(10),XCC(10),PICMP0(1, + *10),PICMP1(1,10),EICMP0(1,10),EICMP1(1,10),MPEEM(1,10), ESIG0(150, + *10),ESIG1(150,10),PSIG0(150,10),PSIG1(150,10),EDEDX0(150,10),EDEDX + *1(150,10),PDEDX0(150,10),PDEDX1(150,10),EBR10(150,10),EBR11(150,10 + *),PBR10(150,10),PBR11(150,10),PBR20(150,10),PBR21(150,10),TMXS0(15 + *0,10),TMXS1(150,10),CMFPE0(1,10),CMFPE1(1,10),CMFPP0(1,10),CMFPP1( + *1,10),ERANG0(1,10),ERANG1(1,10),PRANG0(1,10),PRANG1(1,10),CXC2E0(1 + *,10),CXC2E1(1,10),CXC2P0(1,10),CXC2P1(1,10),CLXAE0(1,10),CLXAE1(1, + *10),CLXAP0(1,10),CLXAP1(1,10), THR0(1,1),THR1(1,1),THR2(1,1),THRI0 + *(1,1),THRI1(1,1),THRI2(1,1),FSTEP(16),FSQR(16),MSMAP(200), VERT1(1 + *000),VERT2(100,16),MSTEPS,JRMAX,MXV1, MXV2,NBLC,NRNTH,NRNTHI,BLC0, + *BLC1,RTHR0,RTHR1,RTHRI0,RTHRI1 + COMMON/EPCONT/EDEP,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, IDISC,IROLD,IR + *NEW,RHOF,EOLD,ENEW,EKE,ELKE,BETA2,BETA, GLE,TSCAT,IAUSFL(25) + DOUBLE PRECISION EDEP + COMMON/MISC/KMPI,KMPO,DUNIT,NOSCAT,MED(200),RHOR(200),IRAYLR(200) + COMMON/MULTS/NG21,B0G21,B1G21,G210(7),G211(7),G212(7), NG22,B0G22, + *B1G22,G220(8),G221(8),G222(8), NG31,B0G31,B1G31,G310(11),G311(11), + *G312(11), NG32,B0G32,B1G32,G320(25),G321(25),G322(25), NBGB,B0BGB, + *B1BGB,BGB0(8),BGB1(8),BGB2(8) + COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W + *T(40),IQ(40),IR(40),NP + DOUBLE PRECISION E + COMMON/THRESH/RMT2,RMSQ,ESCD2,AP(10),AE(10),UP(10),UE(10),TE(10),T + *HMOLL(10) + COMMON/UPHIIN/SINC0,SINC1,SIN0(1002),SIN1(1002) + COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2 + COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE + DOUBLE PRECISION PZERO,PRM,PRMT2 + COMMON/RANDOM/IXX +C DEFAULT REPLACEMENT PRODUCES THE FOLLOWING: +C COMIN/DEBUG,ELECIN,EPCONT,MISC,MULTS,STACK,THRESH,UPHIIN, +C UPHIOT,USEFUL,RANDOM/; + VSTEFF=TVSTEP*RHOF +C ACCOUNT FOR ALTERED DENSITY +C GET MOLIERE'S LOWER CASE B PARAMETER, BLC + OMEGA0=BLCC(MEDIUM)*VSTEFF/BETA2 + IF ((OMEGA0.LE.1.0)) THEN + SINTHE=0.0 + COSTHE=1.0 + THETA=0.0 + NOSCAT=NOSCAT+1 + RETURN + END IF +C DEFAULT IS A CHECK ON OMEGA0.LE.1.0 IF TRUE, +C THEN [SINTHE=0.0; COSTHE=1.0; THETA=0.0; RETURN;] +C OTHERWISE, CONTINUE ON. +C NOW CONVERT TO MOLIERE'S BIG B +C 1.30685=2-LN 2, 1.530394=2/(2-LN 2) + BLC=ALOG(OMEGA0) + IF ((BLC.LE.1.30685)) THEN + B=1.530394*BLC +C BELOW TRANSCENDENTAL LIMIT + ELSE + IB=B0BGB+BLC*B1BGB + IF ((IB.GT.NBGB)) THEN + WRITE(6,820)IB +820 FORMAT(' NBGB ') +20 format ('+ ',i3,' - ',70a) +21 format ('+ ',i3,' - ') + return + end +c +c +C************************************************************************ + subroutine make_hist (id,n,xx,yy,title) + +C************************************************************************ +C + include 'comm_cyltot_2.for' +C + character*80 title + integer id,n + real*4 xx(2),yy(500) + call hgive(id,title,n,xx(1),xx(2),xp,ymi,yma,nwt,loc) + call hunpak(id,yy,'HIST',1) +c + return + end +c +C************************************************************************ + SUBROUTINE UPCASE(C) +C************************************************************************ +C ----------------------------------------------------- +C Change string C to upcase letters +C --------------------------------------------------------- + CHARACTER*(*) C +C +C Transform lowercase to upcase ASCII characters by adding +C the constant value 32 to the ASCII value. 32 il the +C distance between upcase and lowercase in the ASCII +C collating sequence + DO 10 I=1,LEN(C) + IF(C(I:I).GE.'a'.AND.C(I:I).LE.'z') THEN + IC=ICHAR(C(I:I)) + IC=IC-32 + C(I:I)=CHAR(IC) + ENDIF + 10 CONTINUE + RETURN + END + diff --git a/code/source/histin_cyl_2.for b/code/source/histin_cyl_2.for new file mode 100644 index 0000000..6097559 --- /dev/null +++ b/code/source/histin_cyl_2.for @@ -0,0 +1,143 @@ +C file histin_cyl_2.for del 5-sept-1994 +C + SUBROUTINE HISTIN_CYL +C -------------------- +C +C-------------------------------------------------------C +C POSITRONS, CYL. GEOM. HISTOGRAM INITIALIZATION +C-------------------------------------------------------C + INCLUDE 'COMM_CYLtot_2.FOR' +C-------------------------------------------------------C + CHARACTER*80 TITLE + CHARACTER*8 TAGS(10) + CHARACTER*80 TITLEy + CHARACTER*8 TAGSy(20) +C-------------------------------------------------------C +C-------------------------------------------------------C +C WRITE(LTYOUT,6080) +C 6080 FORMAT(1X,' ENTERING HISTIN_CYL ') +C-------------------------------------------------------C +C SET PARAMETER FOR HBOOK PACKAGE --------------C +C +C CALL HLIMIT( 100000 ) ! memory allocation for hbook + CALL HLIMIT( mspazio_paw ) ! parameter def. in comm_cyl + CALL HOUTPU( LTYHIS ) ! hbook output unit (10) + CALL HERMES( LTYHIS ) ! hbook error output unit (10) +C------------------------------------------------------- +C ALLOCATION FOR OUTPUT TO PAW ( UNIT 20 )---- +C + OPEN(UNIT=HISLUN,FORM='UNFORMATTED',RECL=1024, ! opening file + 1 ACCESS='DIRECT',STATUS='NEW') +C CALL HROPEN(HISLUN,'topw','HBOOK.OUT','N',1024,ISTAT) + CALL HRFILE(HISLUN,'topw','N') ! assegna il file ad hbook +C definendo il nome hbook del file( top directory) topw + CALL HCDIR(DIRETTORIO,'R') ! metto in direttorio il nome dir +C corrente del file (il main dir: //PAWC ) + CALL HCDIR('//PAWC',' ') ! Ripunto al dir del comm /pawc/ +C +C------------------------------------------------------- +C LOOP PER LETTURA SPECIFICHE ISTOGRAMMI 1 -DIM +C + 100 READ(LTYFIL,*,ERR=990,END=992) + A ID,NCHX,XMIN,XMAX,VALMAX +C TYPE *,ID,NCHX,XMIN,XMAX,VALMAX + IF(ID) 120,120,110 + 110 READ(LTYFIL,9000,ERR=990,END=992) TITLE +C-------------------------------------------------------C +C-------- BOOK MONODIMENSIONAL HISTOGRAMS IN //PAWC ----C +C-------------------------------------------------------C + CALL HBOOK1(ID,TITLE,NCHX,XMIN,XMAX,VALMAX) + GOTO 100 +C ---------------------------------------------- +C LOOP PER LETTURA SPECIFICHE ISTOGRAMMI 2 -DIM +C + 120 READ(LTYFIL,*,ERR=990,END=992) + A ID,NCHX,XMIN,XMAX,NCHY,YMIN,YMAX,VALMAX +C TYPE *,ID,NCHX,XMIN,XMAX,NCHY,YMIN,YMAX,VALMAX + IF(ID) 140,140,130 + 130 READ(LTYFIL,9000,ERR=990,END=992) TITLE +C-------------------------------------------------------C +C------- BOOK ISTOGRAMMI 2-D IN //PAWC ----------------C +C-------------------------------------------------------C + CALL HBOOK2(ID,TITLE,NCHX,XMIN,XMAX, + A NCHY,YMIN,YMAX,VALMAX) +C-------------------------------------------------------C + GOTO 120 + 140 CONTINUE +C ------------------------------------------ +C ------ LOOP PER LETTURA SPECIFICHE N-TUPLE +C ------------------------------------------ + if(noutflag3.le.0) goto 160 +C + OPEN(UNIT=HISLUN1,FORM='UNFORMATTED',RECL=1024, + 1 ACCESS='DIRECT',STATUS='NEW') + CALL HRFILE(HISLUN1,'topw1','N') ! assegna il file ad hbook + CALL HCDIR(DIRETTORIO1,'R') ! metto in direttorio il dir + CALL HCDIR('//PAWC',' ') ! Ripunto al dir del comm /pawc/ +C + READ(LTYFIL,*,ERR=990,END=992) ID,NVAR,NPRIME + READ(LTYFIL,9000,ERR=990,END=992) TITLE + READ(LTYFIL,9990,ERR=990,END=992) (TAGS(J),J=1,NVAR) + + IF(NVAR.GT.10) THEN + WRITE(LTYOUT,*) ' ERROR, N-TUPLE MAX:',I2 + NVAR=10 + ENDIF +c ............................. booking con overflow su topw1 + CALL HBOOKN(ID,TITLE,NVAR,direttorio1,NPRIME,TAGS) + 160 CONTINUE +c ----------------------------------------- yaps events + if(noutflag4.le.0) goto 170 + OPEN(UNIT=HISLUNy,FORM='UNFORMATTED',RECL=1024, + 1 ACCESS='DIRECT',STATUS='NEW') + CALL HRFILE(HISLUNy,'topwy','N') ! assegna il file ad hbook + CALL HCDIR(DIRETTORIOy,'R') ! metto in direttorio il dir + CALL HCDIR('//PAWC',' ') ! Ripunto al dir del comm /pawc/ +C + 165 READ(LTYFIL,*,ERR=990,END=992) ID,NVAR,NPRIME +C + READ(LTYFIL,9000,ERR=990,END=992) TITLEy + READ(LTYFIL,9990,ERR=990,END=992) (TAGSy(J),J=1,NVAR) + if(id.eq.800) then + type *,' Warning ! Flag for positron decay n-tuple if OFF' + type *,' but I found paw ID=800 in histogram input file' + type *,' Skipping some lines ....... ' + goto 165 + endif + IF(NVAR.GT.20) THEN + WRITE(LTYOUT,*) ' ERROR, N-TUPLE MAX:',I2 + NVAR=10 + ENDIF +c ................................. booking con overflow su topwy + CALL HBOOKN(ID,TITLEy,NVAR,direttorioy,NPRIME,TAGSy) + 170 CONTINUE +C +C --------------------------- lista dati del file GZ DI HBOOK + CALL HLDIR('//PAWC',' ') +C CALL HLDIR(DIRETTORIO,' ') ! sono ancora vuoti +C CALL HLDIR(DIRETTORIO1,' ') +C CALL HLDIR(DIRETTORIOy,' ') + CALL HCDIR('//PAWC',' ') ! Ripunto al dir del comm /pawc/ +C +C WRITE(LTYOUT,6081) +C 6081 FORMAT(1X,' END OF HISTIN_CYL ') +C-------------------------------------------------------C + RETURN +C-------------------------------------------------------C +C------ ERROR SECTION --------------------------------C + 990 WRITE(LTYOUT,9900) + 9900 FORMAT(1H ,' ERROR IN READING FILE LTYFIL ',//) + TYPE *,ID,NCHX,XMIN,XMAX,NCHY,YMIN,YMAX,VALMAX + TYPE *,TITLE + RETURN +C + 992 WRITE(LTYOUT,9920)LTYFIL + 9920 FORMAT(1H ,' EOF IN READING FILE LTYFIL: ',I3,// ) + RETURN +C-------------------------------------------------------C +C 9001 FORMAT(I10,I10,2F10.0,F10.0) +C 9004 FORMAT(I10,I10,2F10.0,I10,2F10.0,F10.0) + 9000 FORMAT(A80) + 9990 format(A8) +C-------------------------------------------------------C + END diff --git a/code/source/howfar_cyl_2.for b/code/source/howfar_cyl_2.for new file mode 100644 index 0000000..6535acf --- /dev/null +++ b/code/source/howfar_cyl_2.for @@ -0,0 +1,678 @@ + SUBROUTINE HOWFAR +C----------------------------------------------------------C +C versione 6 june 1994 +C howfar_cyl_2 : modificato per includere i rivelatori +C howfar_cyl_1 : modified to draw particle's tracks +C CASE FOR CYL GEOMETRY - SEPT 93 BY M.GALLI +C----------------------------------------------------------C + INCLUDE 'DOUBLEDE.FOR' + INCLUDE 'COMM_CYL.FOR' +C INCLUDE 'EGS4COMM.FOR' + dimension traccia1(3),traccia2(3) +C + DATA ALITTLE/0.0000/ ! 1mm/1000 +C ....ALITTLE is a little quantity, used to put a particle +C crossing a boundary into the new region, instead of +C on the boundary. Altrimenti si dovrebbe lavorare in +C doppia precisione nel calcolo delle intersezioni coi +C cilindri, per evitare che si ritrovi la particella +C per sbaglio nella vecchia regione, anche dopo il boundary +C crossing.(se sbaglia regione va anche in loop) +C THIS CAN BE A BAD APPROX. we must have : +C alittle << mean free path in the new region. + DATA USTEPMIN/1.E-6/ +C se ustep << x,y , = precisione macchina, +C lo step e' in ogni modo nullo. Allora metto uno step +C minimo= dimensioni apparato/precisione + LOGICAL NONESCE /.FALSE./ +C Questo flag, se true, attiva un meccanismo che ritarda +C l'uscita delle particelle dal sistema, una particella +C che sta uscendo e' mantenuta nel sistema, dandogli un +C ustep=distanza dal confine * escestep, +C la seconda volta che cerca di uscire la si lascia andare. +C Ci sono delle ambiguita' in questo meccanismo, non ho +C modo di riconoscere veramente la particella al successivo +C ingresso in howfar, ad esempio se ho vietato l'uscita ad +C un positrone e lui annichila, permettero' a uno dei fotoni +C prodotti di uscire subito, scambiandolo per il positrone, +C poiche' ha nello stack la sua posizione. + DATA ESCESTEP /0.5 / +C fattore di cui e' ridotto ustep + DATA NPESCE /0/ +C contatore del vettore delle tentate uscite (USCI) + PARAMETER MSTACK=40 + LOGICAL USCI(MSTACK) + DATA USCI /MSTACK*.FALSE./ +C vettore associato allo stack, per ogni particella si +C ricorda se ha tentato una uscita +C +C -------------------------------------------- + LOGICAL TOOUTR,TOOUTZ,TONEXTR,TOPREVR,TOSAMER +C + TOOUTR=.FALSE. + TOOUTZ=.FALSE. + TONEXTR=.FALSE. + TOPREVR=.FALSE. + TOSAMER=.FALSE. +C +C reset del vettore delle tentate uscite, elimina particelle +C non piu' esistenti perche' assorbite dal mezzo + IF(NONESCE.AND.NP.GT.NPESCE) THEN + DO 1 I=NP+1,NPESCE + 1 USCI(I)=.FALSE. + ENDIF +C ..................................... + ERRESQ=X(NP)*X(NP)+Y(NP)*Y(NP) + ERRE=SQRT(ERRESQ) +C +C ##################################### ******** for testing + if(noutflag2.gt.0) then + write(50,8000)np,e(np),iq(np),ir(np),erre + 8000 format(' HOWFAR : part.:===>',I2,' E=',G13.7,' q=',I2, + 1 ' region:',I2,17X,' r:',G13.7) + write(50,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep + 8010 format(' x,y,z,u,v,w,step=',10X,G14.8,1x,g14.8,1x,5G14.8) + endif +C +C I due casi estremi di particella gia' fuori sono considerati subito +C----------------------TEST MIN.Z AND MAX.Z ---------------C + IF(ABS(Z(NP)).GE.ZMAX) THEN +c IDISC=1 +c IRNEW=NCYL+2 + call howyaps + goto 500 ! RETURN + ENDIF +C----------------------TEST MAX-R -------------------------C +C IF(ERRE.GE.RCYL(NCYL)) THEN + IF(ERREsq.GE.RCYLsq(NCYL)) THEN +c IDISC=1 +c IRNEW=NCYL+1 + call howyaps + goto 500 ! RETURN + ENDIF +C +C----------------------LOOKS FOR ACTUAL REGION-------------C +C Dovrebbe essere nella regione IR(NP) +C the external boundary of each region belongs to the region + DO 10 I=1,NCYL +C IF(ERRE.LE.RCYL(I)) THEN + IF(ERREsq.LE.RCYLsq(I)) THEN + NR=I + GOTO 100 + ENDIF + 10 CONTINUE +C Allora e' fuori cilindro +c IDISC=1 +c IRNEW=NCYL+1 + call howyaps + goto 500 ! RETURN + 100 CONTINUE +C case of wrong region, happens on cyl. boundary, where the +C particles position is ambiguous. The particles is returned to +C Howfar in the real region, whitout mouving. + IF(NR.NE.IR(NP)) THEN + IF(IR(NP).GT.1) THEN + IF(ERREsq.EQ.RCYLsq(IR(NP)-1)) THEN +C .......... exactly on boundary, and assigned to the next region, +C this may be right, if the particles is set here by howfar, +C due to boundary crossing. + NR=IR(NP) + type*,' Warning, particle on int. boundary but in region',NR + if(noutflag2.gt.0) then + write(50,*)' Warning, particle on int.bound. but in region',NR + endif + ELSE +C ................. WRONG REGION ! + TYPE *,' WARNING ! region:',NR,' instead of',IR(NP) + if(noutflag2.gt.0) then + write(50,*)' WARNING ! region:',NR,' instead of',IR(NP) + endif + IRNEW=NR + USTEP=0. + goto 500 ! RETURN + ENDIF + ELSE + TYPE *,' WARNING ! region:',NR,' instead of',IR(NP) + if(noutflag2.gt.0) then + write(50,*)' WARNING ! region:',NR,' instead of',IR(NP) + endif + IRNEW=NR + USTEP=0. + goto 500 ! RETURN + ENDIF + ENDIF +C +C ...................... COMPUTE POSITION AT NEXT STEP +C ...................... U,V,W are the projections of ustep +C .....normalizing U,V,W ( obtained by tables) serve ???? + ANORM=1./SQRT(U(NP)*U(NP)+V(NP)*V(NP)+W(NP)*W(NP)) + UN=U(NP)*ANORM + VN=V(NP)*ANORM + WN=W(NP)*ANORM +C --------------------- test +C if(anorm.ne.1.) then +C type 5559,ANORM,U(NP),V(NP),W(NP),UN,vn,wn +C 5559 format(' anorm,'G20.12/' u,v,w, new u,v,w:',3(1x,G20.12)) +C endif + U(NP)=UN ! in questo modo quando ricalcola il nuovo step + V(NP)=VN ! egs4 e' coerente con howfar + W(NP)=WN +C +C UN=U(NP) +C VN=V(NP) +C WN=W(NP) +C + XNEW=X(NP)+USTEP*UN + YNEW=Y(NP)+USTEP*VN + ZNEW=Z(NP)+USTEP*WN +C + RNEWSQ=XNEW*XNEW+YNEW*YNEW + RNEW=SQRT(RNEWSQ) +C +C ##################################### ******** for testing + if(noutflag2.gt.0) then + write(50,8030)xnew,ynew,znew,rnew + 8030 format(' going to:xnew,ynew,znew,r=',4G15.8) + endif + 9999 continue ! per l'uso del debugger +C +C -------------------------------- FIND DESTINATION REGION +C +C ..................... test z destination + IF(ABS(ZNEW).GE.ZMAX) THEN + TOOUTZ=.TRUE. +C ........ distance, along the fly-line, to ZMAX:z cyl. limits + ZMAX1=SIGN(ZMAX,ZNEW) + IF(WN.NE.0.0) THEN + RZINT=(ZMAX1-Z(NP))/WN + ELSE + TYPE *,' error! can''t go out with W=0' + RZINT=ZMAX1*RCYL(NCYL) + TOOUTZ=.FALSE. + ENDIF + ENDIF +C +C ..................... test radial destination +C intersect with near cyl. surfaces + 9100 continue ! ===========> LOOK AT RZINT +C ##################################### ******** for testing + if(tooutz.and.noutflag2.gt.0) + 1 write(50,*)' totoutz,rzint=',tooutz,rzint +C +C ......................... if going out of the region looks +C for intersection with cyl. boundary +C GE: don't look for intersec if going on boundary( belong to prev.reg. + IF(RNEW.GT.RCYL(NR)) + 1 TONEXTR=INTERSEC(X(NP),Y(NP),Z(NP),XNEW,YNEW,ZNEW, + 2 RCYLSQ(NR),XX1,YY1,ZZ1,DISTAN1) + 9200 continue ! ===========> LOOK AT INTRSEC. +C +C ##################################### ******** for testing + if(tonextr.and.noutflag2.gt.0) + 1 write(50,8050)tonextr,xx1,yy1,zz1,distan1 + 8050 format(' tonextr,xx1,yy1,zz1,distan1',L,2x,4G14.8) +C + IF(NR.NE.1) THEN + IF(RNEW.LE.RCYL(NR-1)) + 1 TOPREVR=INTERSEC(X(NP),Y(NP),Z(NP),XNEW,YNEW,ZNEW, + 2 RCYLSQ(NR-1),XX2,YY2,ZZ2,DISTAN2) + ENDIF +C + 9300 continue ! ===========> LOOK AT INTRSEC. +C +C ##################################### ******** for testing + if(toprevr.and.noutflag2.gt.0) + 1 write(50,8060)toprevr,xx2,yy2,zz2,distan2 + 8060 format(' toprevr,xx2,yy2,zz2,distan2',L,1x,4G13.7) +C +C IF INTERSECTING 2 CYL CHOSES THE NEARER + IF(TONEXTR.AND.TOPREVR) THEN + IF(DISTAN1.LT.DISTAN2) THEN + TOPREVR=.FALSE. + STEPNEW=DISTAN1 + ELSE + TONEXTR=.FALSE. + STEPNEW=DISTAN2 + ENDIF + ENDIF +C ....................... assign new step.. + IF(TONEXTR) THEN + XX=XX1 + YY=YY1 + ZZ=ZZ1 + STEPNEW=DISTAN1 + ELSE IF(TOPREVR) THEN + XX=XX2 + YY=YY2 + ZZ=ZZ2 + STEPNEW=DISTAN2 + ELSE +C ....................... else same r region + TOSAMER=.TRUE. + IF(TOOUTZ) STEPNEW=SQRT( + 1 (XX-X(NP))**2 + (YY-Y(NP))**2 +(ZZ-Z(NP))**2 ) + ENDIF +C -------------------- The case of going out of Z and also +C in a new R region is considered below +C (the case of going out of r , and also going out of z in +C the same point is considered as an r exit.) +C + IF(TOOUTZ) THEN + IF(ABS(RZINT).LE.STEPNEW) THEN + TOOUTZ=.TRUE. + TOPREVR=.FALSE. + TONEXTR=.FALSE. + TOSAMER=.FALSE. + ELSE + TOOUTZ=.FALSE. + ENDIF + ENDIF +C +C +C ------------------------------------- EXIT DELAY +C meccanismo che ritarda l'uscita di particelle dal sistema, +C quando una particella ( riconosciuta dalla sua posizione +C nello stack) cerca di uscire dal sistema e' tenuta dentro +C per forza, dandogli uno step pari alla distanza dal bordo +C del sistema * escestep, la seconda volta che cerca di uscire +C la si lascia andare. USCI e' un vettore logico che e' true +C se ad una particella e' gia' stato vietato di uscire una volta. + IF(NONESCE) THEN + IF(USCI(NP).OR.TOSAMER.OR.TONEXTR.OR.TOPREVR) THEN +C casi in cui il meccanismo non si usa, reset del flag + USCI(NP)=.FALSE. + ELSE + IF(TOOUTZ) THEN + TOTOUTZ=.FALSE. + USTEP=RZINT*ESCESTEP + ELSE ! if(tooutr) then + TOTOUTR=.FALSE. + USTEP=STEPNEW*ESCESTEP + ENDIF + TOSAMER=.TRUE. + USCI(NP)=.TRUE. + NPESCE=NP +C redefine, using new step,all data needed for tosamer=.true + XNEW=X(NP)+USTEP*UN + YNEW=Y(NP)+USTEP*VN + ZNEW=Z(NP)+USTEP*WN + RNEWSQ=XNEW*XNEW+YNEW*YNEW + RNEW=SQRT(RNEWSQ) + ENDIF + ENDIF +C +C ------------------------------------- FINAL SETTINGS +C when crossing a boundary the particle is put INSIDE the +C new region, by adding ALITTLE, ( a little quantity), +C if the step is very little maybe alittle>>stepnew, in this +C this case we must add a quantity < stepnew to avoid +C breakdow of some approximation in subr. electr +C + IF(TOOUTZ) THEN + IDISC=-1 + IRNEW=NCYL+1 +C USTEP=RZINT + RZINT*ALITTLE + USTEP=MAX(RZINT,USTEPMIN) + goto 500 ! RETURN + ELSE IF(TOOUTR) THEN + IDISC=-1 + IRNEW=NCYL+1 +C must go a bit into new region, the boundary belongs +C to the previous one +C USTEP=STEPNEW + STEPNEW*ALITTLE + USTEP=MAX(STEPNEW,USTEPMIN) + goto 500 ! RETURN + ELSE IF(TOPREVR) THEN + IRNEW=NR-1 +C USTEP=STEPNEW + STEPNEW*ALITTLE + USTEP=MAX(STEPNEW,USTEPMIN) +C DNEAR(NP)= USTEPMIN + ELSE IF(TONEXTR) THEN + IRNEW=NR+1 +C USTEP=STEPNEW + STEPNEW*ALITTLE + USTEP=MAX(STEPNEW,USTEPMIN) +C DNEAR(NP)= USTEPMIN + ELSE IF(TOSAMER) THEN + RNEW=SQRT(RNEWSQ) + DNEAR(NP)=MIN(ZMAX-ZNEW,ZNEW+ZMAX,RCYL(NR)-RNEW) + IF(NR.NE.1) DNEAR(NP)=MIN(DNEAR(NP),RNEW-RCYL(NR-1)) + ELSE + TYPE*,' che succede ? non si verifica nulla ?' + ENDIF +C +C------------------------------- STEP TESTING AT BOUNDARY CROSSING +C ............................................................... +C correct ustep to avoid errors due to approx. +C this may be used instead of ustep=stepnew + alittle +C Siccome i casi di errore non sono statisticamente +C significativi una approx. qui non disturba, come puo' +C accadere aggiungendo alitte tutte le volte che si attraversa +C un cilindro. +C Procedo guardando che r avra' il prossimo ingresso in howfar, +C se sbaglia regione aggiungo qualcosa. + IF(TONEXTR.OR.TOPREVR) THEN + IGIRO=0 + 20 CONTINUE + XNEW=X(NP)+USTEP*UN + YNEW=Y(NP)+USTEP*VN +C ZNEW=Z(NP)+USTEP*WN + RNEWSQ=XNEW*XNEW+YNEW*YNEW + RNEW=SQRT(RNEWSQ) +C errore nel next entry in howfar nel cercare la regione + IF(TONEXTR) THEN +C regione che sta attraversando= irnew-1 + ERROR=RCYL(IRNEW-1)-RNEW + ELSE + ERROR=RNEW-RCYL(IRNEW) + ENDIF +C + if(noutflag2.gt.0) then + WRITE(50,8070) XNEW,YNEW,RNEWSQ,RNEW,USTEP,ERROR + 8070 FORMAT(' test: next x,y,r2,r,ustep,error:',6G14.8) + endif + IF(ERROR.GT.0.0) THEN +C IF(ERROR.GE.0.0) THEN +C IF(ERROR.EQ.0.) USTEP=USTEP+USTEPMIN + USTEP_ORIGINALE=USTEP + correzione=2.*ERROR/SQRT(1.-WN*WN) +C se applico una correzione dell'ordine dello step +C alcune approx in egs4 saltano e il programma si ferma + if( abs(correzione).gt.abs(ustep*0.1) ) then + type *,' WARNING :too big correction not applied!' + go to 500 + endif +C USTEPNUOVO=USTEP+2.*ERROR/SQRT(1.-WN*WN) + USTEPNUOVO=USTEP+correzione + TYPE 8075,ustep,ustepnuovo,correzione,igiro + if(noutflag2.gt.0) then + WRITE(50,8075) USTEP,USTEPNUOVO,USTEP-USTEPNUOVO,IGIRO + 8075 FORMAT(' WARN! old ustep:',G14.8,' new:',G14.8, + 1 ' corr:',G14.8,' iter.:',I3) + endif + USTEP=USTEPNUOVO + IGIRO=IGIRO+1 + IF(IGIRO.EQ.1) THEN + ERROR1=ERROR + GOTO 20 + ELSE IF(ERROR.GT.ERROR1) THEN + if(noutflag2.gt.0) then + WRITE(50,*) ' ERROR, WRONG INTERSECTION FOUND' + WRITE(50,*) ' CORRECTION IMPOSSIBLE !' + endif + TYPE*,' ERROR, WRONG INTERSECTION FOUND' + TYPE*, ' CORRECTION IMPOSSIBLE !' + USTEP=USTEP_ORIGINALE + GOTO 499 + ELSE IF(IGIRO.LT.10) THEN + GOTO 20 + ENDIF + ENDIF + ENDIF + 499 CONTINUE +C ............................................................... +C---------------------------------------------------------C +C ##################################### ******** for testing + if(noutflag2.gt.0) then + write(50,8080)tooutz,tooutr,toprevr,tonextr,tosamer + 8080 format(' outz:',L,' outr:',L,' prevr:',L, + 1 ' nextr:',L,' samer:',L) + write(50,8090)stepnew,rzint,irnew,ustep,idisc,dnear(np) + 8090 format(' stepnew:',G13.7,' rzint:',G13.7, + 2 ' irnew,ustep,idisc,dnear:',I3,1X,G13.7,I3,1X,G13.7) + endif +C +c got to 500 ! RETURN +C---------------------------------------------------------C + 500 continue + if(traccia) then ! if requested draws particle path + traccia1(1)=x(np) + traccia1(2)=y(np) + traccia1(3)=z(np) + traccia2(1)=x(np)+ustep*u(np) + traccia2(2)=y(np)+ustep*v(np) + traccia2(3)=z(np)+ustep*w(np) + + call pg_trackxyzr(traccia1,traccia2,3) + endif + RETURN + END +C + FUNCTION INTERSEC(X,Y,Z,XNEW,YNEW,ZNEW,RTOGOSQ, + 1 XX,YY,ZZ,DISTANCE) +C FUNCTION INTERSEC(Xqq,Yqq,Zqq,XNEWqq,YNEWqq,ZNEWqq,RTOGOSQqq, +C 1 XXqq,YYqq,ZZqq,DISTANCEqq) +C ================== double precision for testing +C implicit real*8 (a-h,o-z) +C real*4 xqq,yqq,zqq,xnewqq,ynewqq,znewqq,rtogosqqq +C real*4 xxqq,yyqq,zzqq,distanceqq +C ======================================================== +C ------------------------------------------------------ +C FINDS PARTICLE-PATH AND CYL SURF. INTERSECTION +C Looks for the intersection on the same side of xnew +C if 2 intersections are found on the same side +C chose the nearer to x. +C If the intersection is found xx,yy,zz is the intersection +C point, distance its distance from x, and intersec is +C TRUE, otherwise intersec is FALSE. +C -------------------------------------------------------- + LOGICAL INTERSEC,SOL1,SOL2 + DATA PRECISION /1.E-6/ +C +C ==================================== testing double precision +C x=xqq +C y=yqq +C z=zqq +C xnew=xnewqq +C ynew=ynewqq +C znew=znewqq +C rtogosq=rtogosqqq +C =========================================================== +C ------------------- Case of X .ne .XNEW, particle running in a plane +C with x = constant + XXTEST=XNEW-X ! possibile testare semplicemente V + IF(XXTEST.NE.0.0) THEN + AA=(YNEW-Y) / XXTEST + A=1.+(AA*AA) + B=(Y-AA*X) * AA + C=(Y-AA*X)**2 - RTOGOSQ + DISCR=B*B-A*C + 9999 continue +C ............................... case of two solution + IF(DISCR.GT.0.0) THEN + DISCR=SQRT(DISCR) + X1= (DISCR-B)/A + X2=-(DISCR+B)/A +C ................. looks for the good solution: +C the one in the particle direction (between x and xnew) +C (note that if x1=xnew and xnew-x <0, +C we have a wrong answer if x1=xnew is not tested ) +C x1=x in a particle on boundary, intersection = false + IF(SIGN(1.,X1-X).EQ.SIGN(1.,XNEW-X1). + 1 OR.X1.EQ.XNEW) THEN +C 1 OR.X1.EQ.X.OR.X1.EQ.XNEW) THEN + SOL1=.TRUE. +C Caso indistinguibile da x1=x + IF(ABS(X1-X).LT.PRECISION) SOL1=.FALSE. + ELSE + SOL1=.FALSE. + ENDIF + IF(SIGN(1.0,X2-X).EQ.SIGN(1.0,XNEW-X2). + 1 OR.X2.EQ.XNEW) THEN +C 1 OR.X2.EQ.X.OR.X2.EQ.XNEW) THEN + SOL2=.TRUE. +C Caso indistinguibile da x1=x + IF(ABS(X2-X).LT.PRECISION) SOL2=.FALSE. + ELSE + SOL2=.FALSE. + ENDIF +C +C .................... if both solution on the same side +C looks for the one nearer to x + IF(SOL1.AND.SOL2) THEN + Y1=Y+AA*(X1-X) + Y2=Y+AA*(X2-X) + Z1=Z+(ZNEW-Z)/XXTEST *(X1-X) + Z2=Z+(ZNEW-Z)/XXTEST *(X2-X) + DIST1=(Y1-Y)**2 + (X1-X)**2 +(Z1-Z)**2 + DIST2=(Y2-Y)**2 + (X2-X)**2 +(Z2-Z)**2 + IF(DIST1.LT.DIST2) THEN + XX=X1 + YY=Y1 + ZZ=Z1 + DISTANCE=SQRT(DIST1) + INTERSEC=.TRUE. + ELSE IF(DIST1.GT.DIST2) THEN + XX=X2 + YY=Y2 + ZZ=Z2 + DISTANCE=SQRT(DIST2) + INTERSEC=.TRUE. + ELSE + TYPE*,' something wrong,2 solution' + type*,' on same side and at same distance' + INTERSEC=.FALSE. + RETURN + ENDIF +C .............................. if only x1 on the good side + ELSE IF(SOL1) THEN + XX=X1 + YY=Y+AA*(XX-X) + ZZ=Z+(ZNEW-Z)/XXTEST *(XX-X) + DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + + 1 (ZZ-Z)**2 ) + INTERSEC=.TRUE. +C .............................. if only x2 on the good side + ELSE IF(SOL2) THEN + XX=X2 + YY=Y+AA*(XX-X) + ZZ=Z+(ZNEW-Z)/XXTEST *(XX-X) + DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + + 1 (ZZ-Z)**2 ) + INTERSEC=.TRUE. + ELSE +C .............. no good solutions, both intersections +C on the wrong side + INTERSEC=.FALSE. + RETURN + ENDIF +C ............................ only one intersection, traject. tangent +C to cyl. surf ( we are in the case of a particle +C not running along the y axis, i.e. with constant x) + ELSE IF(DISCR.EQ.0.0) THEN + 9998 continue +C + TYPE *,' Particle tangent to cyl. boundary' + XX=-B/A + IF(SIGN(1.0,XX-X).EQ.SIGN(1.0,XNEW-XX). + 1 OR.XX.EQ.X.OR.XX.EQ.XNEW) THEN + YY=Y+AA*(XX-X) + ZZ=Z+(ZNEW-Z)/XXTEST *(XX-X) + DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + + 1 (ZZ-Z)**2 ) + INTERSEC=.TRUE. + ELSE + INTERSEC=.FALSE. + RETURN + ENDIF + ELSE + 9997 continue +C ............ discr <0 ===> no intersection + INTERSEC=.FALSE. + RETURN + ENDIF + ELSE +C ------------------- Case of X=XNEW, particle running in a plane +C with constant X + XX=XNEW + YYTEST=YNEW-Y ! possibile testare semplicemente V + IF(YYTEST.EQ.0.0) THEN +C else running with x,y constant, along z + IF(RTOGOSQ.EQ.XX*XX+YY*YY) THEN +C .......... if running along cyl. surface + YY=Y + ZZ=Z + DISTANCE=0. + INTERSEC=.TRUE. + GOTO 999 + ELSE +C ............. no intersection + INTERSEC=.FALSE. + RETURN + ENDIF + ENDIF + YY1=RTOGOSQ-XX*XX + IF(YY1.LT.0.0) THEN +C ..................... no solution = no intersection + INTERSEC=.FALSE. + RETURN + ENDIF + YY1=SQRT(YY1) + YY2=-YY1 +C ................. looks for the solutions on the good side of y + IF(SIGN(1.0,YY1-Y).EQ.SIGN(1.0,YNEW-YY1). + 1 OR.YY1.EQ.YNEW) THEN +C 1 OR.YY1.EQ.Y.OR.YY1.EQ.YNEW) THEN + SOL1=.TRUE. +C indistinguibile da yy1=y + IF(ABS(YY1-Y).LT.PRECISION) SOL1=.FALSE. + ELSE + SOL1=.FALSE. + ENDIF + IF(SIGN(1.0,YY2-Y).EQ.SIGN(1.0,YNEW-YY2). + 1 OR.YY2.EQ.YNEW) THEN +C 1 OR.YY2.EQ.Y.OR.YNEW.EQ.YY2) THEN + SOL2=.TRUE. +C indistinguibile da yy1=y + IF(ABS(YY2-Y).LT.PRECISION) SOL2=.FALSE. + ELSE + SOL2=.FALSE. + ENDIF +C ................. two good solutions, find the nearer one + 9996 continue + IF(SOL1.AND.SOL2) THEN + ZZ1=Z+(ZNEW-Z)/YYTEST *(YY1-Y) + ZZ2=Z+(ZNEW-Z)/YYTEST *(YY2-Y) + DIST1=(ZZ1-Z)**2 + (YY1-Y)**2 + DIST2=(ZZ2-Z)**2 + (YY2-Y)**2 + IF(DIST1.LT.DIST2) THEN + YY=YY1 + ZZ=ZZ1 + DISTANCE=SQRT(DIST1) + INTERSEC=.TRUE. + ELSE IF(DIST2.LT.DIST1) THEN + YY=YY2 + ZZ=ZZ2 + DISTANCE=SQRT(DIST2) + INTERSEC=.TRUE. + ELSE + TYPE*,' something wrong 2 good sol. same side' + TYPE*,' same distance ?' + INTERSEC=.FALSE. + RETURN + ENDIF + ELSE IF(SOL1) THEN + YY=YY1 + ZZ=Z+(ZNEW-Z)/YYTEST *(YY-Y) + DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + (ZZ-Z)**2 ) + INTERSEC=.TRUE. + ELSE IF(SOL2) THEN + YY=YY2 + ZZ=Z+(ZNEW-Z)/YYTEST *(YY-Y) + DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + (ZZ-Z)**2 ) + INTERSEC=.TRUE. + ELSE + INTERSEC=.FALSE. + RETURN + ENDIF +C ---------------------------- + ENDIF +C + 999 CONTINUE +C ================================= testing double prec +C xxqq=xx +C yyqq=yy +C zzqq=zz +C distanceqq=distance +C ===================================== + RETURN + END diff --git a/code/source/howfar_cyl_2a.for b/code/source/howfar_cyl_2a.for new file mode 100644 index 0000000..c6f5ffd --- /dev/null +++ b/code/source/howfar_cyl_2a.for @@ -0,0 +1,905 @@ +c file howfar_cyl_2a del 25-oct-1994 + SUBROUTINE HOWFAR +C----------------------------------------------------------C +C 27-7-1994 +C versione howfar_cyl_2a : inserite le call per i rivelatori +C Versione howfar_cyl_1a : intersec modificata per evitare +C divisioni per numeri piccoli +C - resta solo meccanismo che evita +C di porre particelle vicino al bordo +C +C howfar_cyl_1 : modified to draw particle's tracks +C CASE FOR CYL GEOMETRY - SEPT 93 BY M.GALLI +C----------------------------------------------------------C + INCLUDE 'COMM_CYLtot_2.FOR' + include 'comm_yaps.for' + dimension traccia1(3),traccia2(3) +c +c --------------------------------------------------------- +C test della posizione ove si trova la particella: +c le regioni 1 .. ncyl sono i cilindri concentrici. +c la regione ncyl+1 e' la regione esterna ai cilindri, +c delimitata da rcyl(ncyl) e zmax +c le regioni da nctyl+1 a ncyl+1+nyp sono i rivelatori +c la regione ncyl+1+nyp+1 e' fuori del sistema, +c delimitata da rultimo e zultimo +c ----------------------------------------------------------- +c se la particella e' nei cilindri viene chiamate howcyls +c se la particella e' fuori cilindri viene chiamata howyaps +c se la particella e' fuori del sistema viene eliminata +c ---------------------------- +c Il bordo esterno del cilindro ne fa parte, l'interno no +c Il limite z del cilindro ne fa parte +c Le facce dei rivelatori non ne fanno parte +c Nonostante tutto ci sono ambiguita' geometriche ai bordi, +c sono quindi introdotti meccanismi correttivi che impediscono ad una +c particella di stare troppo vicino al bordo nei cilindri. +c Nei rivelatori le particelle entranti sono poste un po' dentro il +c rivelatore, le uscenti sul bordo. +c +C ##################################### ******** for testing + if(noutflag2.gt.0) then + write(6,8000)np,e(np),iq(np),ir(np),erre + write(50,8000)np,e(np),iq(np),ir(np),erre + 8000 format(' HOWFAR : part.:===>',I2,' E=',G13.7,' q=',I2, + 1 ' region:',I2,17X,' r:',G13.7) + write(6,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep + write(50,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep + 8010 format(' x,y,z,u,v,w,step=',10X,G14.8,1x,g14.8,1x,5G14.8) + endif +C --------------------------------------- + ERRESQ=X(NP)*X(NP)+Y(NP)*Y(NP) + ERRE=SQRT(ERRESQ) +C +c ................... guardo se e' fuori sistema, nei +c cilindri oppure nella zona dei rivelatori +c + if(ABS(Z(NP)).Gt.Zultimo.or.erresq.gt.rultimosq) THEN + idisc=1 ! si trova fuori + irnew=ncyl+nyp+2 + ir(np)=irnew ! idisc=1=discard immediato, assegnerebbe alla +c regione vecchia nelle somme in ausgabe + else IF(ABS(Z(NP)).Gt.ZMAX.or.erresq.gt.rcylsq(ncyl)) THEN + call howyaps(erre,erresq) ! si trova nella zona dei yaps + else if(abs(Z(NP)).lt.ZMAX.and.erresq.lt.rcylsq(ncyl)) THEN + call howcyls(erre,erresq) ! si trova nei cilindri + else if(abs(Z(NP)).eq.ZMAX.or.erresq.eq.rcylsq(ncyl)) THEN +c sul bordo decido in base ad ir(np), cioe' ove la ho messa al giro prime + if(ir(np).eq.ncyl+1) then + call howyaps(erre,erresq) ! si trova nella zona dei yaps + else if(ir(np).le.ncyl) then + call howcyls(erre,erresq) ! si trova nei cilindri + else + type *,' WARNING :HOWFAR:confine cyl.ma ir=',ir(np) + if(noutflag5.gt.2) + 1 write(50,*)' WARNING :HOWFAR:confine cyl ma ir=',ir(np) + idisc=1 ! LA SCARTO + irnew=ncyl+nyp+2 + ir(np)=irnew ! per idisc=1 egs4 non sposta la part. + call parla(-12) + call parla(-20) + endif + else + type *,' WARNING :HOWFAR:ne fuori ne dentro cyl?',IR(NP) + if(noutflag5.gt.2) + 1 write(50,*)' WARNING :HOWFAR:ne fuori ne dentro cyl?',IR(NP) + idisc=1 ! LA SCARTO + irnew=ncyl+nyp+2 + ir(np)=irnew ! per idisc=1 egs4 non sposta la part. + call parla(12) + call parla(-20) + ENDIF + if(traccia .gt. 0) then ! if requested draws particle path + traccia1(1)=x(np) + traccia1(2)=y(np) + traccia1(3)=z(np) + traccia2(1)=x(np)+ustep*u(np) + traccia2(2)=y(np)+ustep*v(np) + traccia2(3)=z(np)+ustep*w(np) + + call pg_trackxyzr(10,traccia1,traccia2,3) + call iuwk(10,2) ! scarica su video il buffer + endif +c + return + end + SUBROUTINE HOWCYLS(erre,erresq) +c ----------------------------------------------- +c tratta la geometria per la zona a cilindri concentrici +c ------------------------------------------------------- +c + INCLUDE 'COMM_CYLtot_2.FOR' + include 'comm_yaps.for' +c ---------------------- +C +c data nsave/0/ ! per tests +c DATA ALITTLE/0.00001/ ! 1mm/1000 ! ALITTLE UNUSED NOW ! +C ....ALITTLE is a little quantity, used to put a particle +C crossing a boundary into the new region, instead of +C on the boundary. Altrimenti si dovrebbe lavorare in +C doppia precisione nel calcolo delle intersezioni coi +C cilindri, per evitare che si ritrovi la particella +C per sbaglio nella vecchia regione, anche dopo il boundary +C crossing.(se sbaglia regione va anche in loop) +C THIS CAN BE A BAD APPROX. we must have : +C alittle << mean free path in the new region. + data aminimo/1.e-3/ ! min distanza da boundary surf. + DATA USTEPMIN/1.E-6/ +C se ustep << x,y , = precisione macchina, +C lo step e' in ogni modo nullo. Allora metto uno step +C minimo= dimensioni apparato/precisione +c LOGICAL NONESCE /.FALSE./ ! UNUSED NOW +C Questo flag, se true, attiva un meccanismo che ritarda +C l'uscita delle particelle dal sistema, una particella +C che sta uscendo e' mantenuta nel sistema, dandogli un +C ustep=distanza dal confine * escestep, +C la seconda volta che cerca di uscire la si lascia andare. +C Ci sono delle ambiguita' in questo meccanismo, non ho +C modo di riconoscere veramente la particella al successivo +C ingresso in howfar, ad esempio se ho vietato l'uscita ad +C un positrone e lui annichila, permettero' a uno dei fotoni +C prodotti di uscire subito, scambiandolo per il positrone, +C poiche' ha nello stack la sua posizione. +c DATA ESCESTEP /0.5 / +C fattore di cui e' ridotto ustep +c DATA NPESCE /0/ +C contatore del vettore delle tentate uscite (USCI) +c PARAMETER MSTACK=40 +c LOGICAL USCI(MSTACK) +c DATA USCI /MSTACK*.FALSE./ +C vettore associato allo stack, per ogni particella si +C ricorda se ha tentato una uscita +C +C -------------------------------------------- + LOGICAL TOOUTR,TOOUTZ,TONEXTR,TOPREVR,TOSAMER +C +c nsave=nsave+1 ! PER TEST +c if(nsave.gt.1754) noutflag2=1 +C +C----------------------LOOKS FOR ACTUAL REGION-------------C +C Dovrebbe essere nella regione IR(NP) +C the external boundary of each region belongs to the region + DO 10 I=1,NCYL +c IF(ERRE-RCYL(I) .LE.0.0 ) THEN +c IF(ERRE.Lt.RCYL(I)) THEN + IF(ERREsq.LE.RCYLsq(I)) THEN + NR=I + GOTO 100 + ENDIF + 10 CONTINUE +C Allora e' fuori cilindro doveva accorgersene howfar + TYPE *,' WARNING ! doveva essere nei rivelatori!!!' + if(noutflag5.gt.2) + 1 write(50,*)' WARNING ! doveva essere nei rivelatori!!!' + call parla(12) + if(noutflag2.gt.0) then + write(50,*)' WARNING ! region:',NR,' instead of',IR(NP) + write(6,8000)np,e(np),iq(np),ir(np),erre + write(50,8000)np,e(np),iq(np),ir(np),erre + write(6,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep + write(50,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep + 8000 format(' HOWFAR : part.:===>',I2,' E=',G13.7,' q=',I2, + 1 ' region:',I2,17X,' r:',G13.7) + 8010 format(' x,y,z,u,v,w,step=',10X,G14.8,1x,g14.8,1x,5G14.8) + endif +c IDISC=1 +c IRNEW=NCYL+1 + if(ir(np).gt.ncyl) then + call howyaps(erre,erresq) ! for yaps + goto 500 ! RETURN + else + irnew=ncyl+1 + ustep=0 + goto 500 + endif + 100 CONTINUE +c======================= +C case of wrong region, happens on cyl. boundary, where the +C particles position is ambiguous. The particles is returned to +C Howfar in the real region, whitout mouving. +c======================= + + TOOUTR=.FALSE. + TOOUTZ=.FALSE. + TONEXTR=.FALSE. + TOPREVR=.FALSE. + TOSAMER=.FALSE. +C +c-------------------------------------------------------- ORA INATTIVO +C reset del vettore delle tentate uscite, elimina particelle +C non piu' esistenti perche' assorbite dal mezzo +c IF(NONESCE.AND.NP.GT.NPESCE) THEN +c DO 1 I=NP+1,NPESCE +c 1 USCI(I)=.FALSE. +c ENDIF +c-------------------------------------------------------- +C ..................................... +C LOOP PER CORREZIONE DA ERRATA POSIZIONE DI INPUT +c numgiri=0 +c 2 CONTINUE +C =========================== + IF(NR.NE.IR(NP)) THEN +c if(noutflag2.le.0) THEN +c noutflag2=noutflag2+1 +c TYPE *, 'ERRORE A NSAVE=',NSAVE +c write(50,*) 'ERRORE A NSAVE=',NSAVE +c TYPE *, ' WARNING NR.NE.IR(NP) attivo stampe' +c write(50,*) ' WARNING NR.NE.IR(NP) attivo stampe' +c endif + IF(IR(NP).GT.1) THEN + IF(ERREsq.EQ.RCYLsq(IR(NP)-1)) THEN +C .......... exactly on boundary, and assigned to the next region,(questa) +C this may be right, if the particles is set here by howfar, +C due to boundary crossing. + NR=IR(NP) + type*,' Warning, particle on int. boundary but in region',NR + if(noutflag2.gt.0.or.noutflag5.gt.2) then + write(50,*)' Warning, particle on int.bound. but in region',NR + endif +c + ELSE +C ................. WRONG REGION ! +c + TYPE *,' WARNING ! region:',NR,' instead of',IR(NP) + call parla(-14) + if(noutflag2.gt.0.or.noutflag5.gt.2) + 1 write(50,*)' WARNING ! region:',NR,' instead of',IR(NP) +c ----> begin if su noutflag + if(noutflag2.gt.0) then + write(6,8000)np,e(np),iq(np),ir(np),erre + write(50,8000)np,e(np),iq(np),ir(np),erre + write(6,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep + write(50,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep + XNEW=X(NP)+USTEP*U(np) + YNEW=Y(NP)+USTEP*V(np) + ZNEW=Z(NP)+USTEP*W(np) + RNEWSQ=XNEW*XNEW+YNEW*YNEW + RNEW=SQRT(RNEWSQ) + write(6,8030)xnew,ynew,znew,rnew + write(50,8030)xnew,ynew,znew,rnew +C type *,' ----------------' +C write(6,*) ' PARTICELLA PRECEDENTE:' +C write(50,*)' PARTICELLA PRECEDENTE:' +C write(6,8010) xsav,ysav,zsav,usav,vsav,wsav,ustepsav +C write(50,8010)xsav,ysav,zsav,usav,vsav,wsav,ustepsav +C write(6,8030)xnewsav,ynewsav,znewsav,rnewsav +C write(50,8030)xnewsav,ynewsav,znewsav,rnewsav +C write(6,*) ' prec errore:',errorsav,' =========' +C write(50,*) ' prec errore:',errorsav,' =========' +c ---------------------------------------------------- + endif ! SU NOUTFLAG2 +c ----> ending if su noutflag +c +c ---------------> scarto la particella fuori posto + idisc=1 + irnew=ncyl+nyp+2 + ir(np)=irnew ! per idisc=1 egs4 non sposta la part. + call parla(-20) +c +c IRNEW=NR +c USTEP=ustepmin +c USTEP=0. ! interagisce di nuovo ove era e rientra qui + goto 500 ! RETURN + ENDIF + ELSE ! crede di essere nella regione 1 + TYPE *,' WARNING ! region:',NR,' instead of',IR(NP) + call parla(-14) + if(noutflag2.gt.0.or.noutflag5.gt.2) + 1 write(50,*)' WARNING ! region:',NR,' instead of',IR(NP) +c +c ----> begin if su noutflag + if(noutflag2.gt.0) then + write(6,8000)np,e(np),iq(np),ir(np),erre + write(50,8000)np,e(np),iq(np),ir(np),erre + write(6,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep + write(50,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep + XNEW=X(NP)+USTEP*U(np) + YNEW=Y(NP)+USTEP*V(np) + ZNEW=Z(NP)+USTEP*W(np) + RNEWSQ=XNEW*XNEW+YNEW*YNEW + RNEW=SQRT(RNEWSQ) + write(6,8030)xnew,ynew,znew,rnew + write(50,8030)xnew,ynew,znew,rnew + type *,' ----------------' + endif ! di noutflag2 +c ----> ending if su noutflag +c ---------------> scarto la particella fuori posto + idisc=1 + irnew=ncyl+nyp+2 + ir(np)=irnew ! per idisc=1 egs4 non sposta la part. + call parla(-20) +c +c IRNEW=NR +c ustep=0. ! interagisce di nuovo ove era e rientra qui +c USTEP=ustepmin + goto 500 ! RETURN + ENDIF ! if su nr=1 oppure ne 1 + ENDIF ! end di if su wrong region +C +C ...................... COMPUTE POSITION AT NEXT STEP +C ...................... U,V,W are the projections of ustep +C .....normalizing U,V,W ( obtained by tables) serve ???? +c ANORM=1./SQRT(U(NP)*U(NP)+V(NP)*V(NP)+W(NP)*W(NP)) +c UN=U(NP)*ANORM +c VN=V(NP)*ANORM +c WN=W(NP)*ANORM +C --------------------- test +C if(anorm.ne.1.) then +C type 5559,ANORM,U(NP),V(NP),W(NP),UN,vn,wn +C 5559 format(' anorm,'G20.12/' u,v,w, new u,v,w:',3(1x,G20.12)) +C endif +c U(NP)=UN ! in questo modo quando ricalcola il nuovo step +c V(NP)=VN ! egs4 e' coerente con howfar +c W(NP)=WN +C ------------------------------------------------------ + UN=U(NP) + VN=V(NP) + WN=W(NP) +C + XNEW=X(NP)+USTEP*UN + YNEW=Y(NP)+USTEP*VN + ZNEW=Z(NP)+USTEP*WN +C + RNEWSQ=XNEW*XNEW+YNEW*YNEW + RNEW=SQRT(RNEWSQ) +C +C ##################################### ******** for testing + if(noutflag2.gt.0) then + write(6,8030)xnew,ynew,znew,rnew + write(50,8030)xnew,ynew,znew,rnew + 8030 format(' going to:xnew,ynew,znew,r=',4G15.8) + endif + 9999 continue ! per l'uso del debugger +C +C -------------------------------- FIND DESTINATION REGION +C +C ..................... test z destination + IF(ABS(ZNEW).GE.ZMAX) THEN + TOOUTZ=.TRUE. +C ........ distance, along the fly-line, to ZMAX:z cyl. limits + ZMAX1=SIGN(ZMAX,ZNEW) + IF(WN.NE.0.0) THEN + RZINT=(ZMAX1-Z(NP))/WN + ELSE + TYPE *,' error! can''t go out with W=0' + RZINT=ZMAX1*RCYL(NCYL) + TOOUTZ=.FALSE. + ENDIF + ENDIF +C +C ..................... test radial destination +C intersect with near cyl. surfaces + 9100 continue ! ===========> LOOK AT RZINT +C ##################################### ******** for testing + if(tooutz.and.noutflag2.gt.0) then + write(6,*)' totoutz,rzint=',tooutz,rzint + write(50,*)' totoutz,rzint=',tooutz,rzint + endif +C +C ......................... if going out of the region looks +C for intersection with cyl. boundary +C GE: don't look for intersec if going on boundary( belong to prev.reg. + IF(RNEW.GT.RCYL(NR)) + 1 TONEXTR=INTERSEC(X(NP),Y(NP),Z(NP),XNEW,YNEW,ZNEW, + 2 RCYLSQ(NR),XX1,YY1,ZZ1,DISTAN1) + 9200 continue ! ===========> LOOK AT INTRSEC. +C +C ##################################### ******** for testing + if(tonextr.and.noutflag2.gt.0) then + write(6,8050)tonextr,xx1,yy1,zz1,distan1 + write(50,8050)tonextr,xx1,yy1,zz1,distan1 + endif + 8050 format(' tonextr,xx1,yy1,zz1,distan1',L,2x,4G14.8) +C + IF(NR.NE.1) THEN + IF(RNEW.LE.RCYL(NR-1)) + 1 TOPREVR=INTERSEC(X(NP),Y(NP),Z(NP),XNEW,YNEW,ZNEW, + 2 RCYLSQ(NR-1),XX2,YY2,ZZ2,DISTAN2) + ENDIF +C + 9300 continue ! ===========> LOOK AT INTRSEC. +C +C ##################################### ******** for testing + if(toprevr.and.noutflag2.gt.0) then + write(6,8060)toprevr,xx2,yy2,zz2,distan2 + write(50,8060)toprevr,xx2,yy2,zz2,distan2 + endif + 8060 format(' toprevr,xx2,yy2,zz2,distan2',L,1x,4G13.7) +C +C IF INTERSECTING 2 CYL CHOSES THE NEARER + IF(TONEXTR.AND.TOPREVR) THEN + IF(DISTAN1.LT.DISTAN2) THEN + TOPREVR=.FALSE. + STEPNEW=DISTAN1 + ELSE + TONEXTR=.FALSE. + STEPNEW=DISTAN2 + ENDIF + ENDIF +C ....................... assign new step.. + IF(TONEXTR) THEN + XX=XX1 + YY=YY1 + ZZ=ZZ1 + STEPNEW=DISTAN1 + ELSE IF(TOPREVR) THEN + XX=XX2 + YY=YY2 + ZZ=ZZ2 + STEPNEW=DISTAN2 + ELSE +C ....................... else same r region + TOSAMER=.TRUE. + IF(TOOUTZ) STEPNEW=SQRT( + 1 (XX-X(NP))**2 + (YY-Y(NP))**2 +(ZZ-Z(NP))**2 ) + ENDIF +C -------------------- The case of going out of Z and also +C in a new R region is considered below +C (the case of going out of r , and also going out of z in +C the same point is considered as an r exit.) +C + IF(TOOUTZ) THEN + IF(ABS(RZINT).LE.STEPNEW) THEN + TOOUTZ=.TRUE. + TOPREVR=.FALSE. + TONEXTR=.FALSE. + TOSAMER=.FALSE. + ELSE + TOOUTZ=.FALSE. + ENDIF + ENDIF +C +C +C ------------------------------------- EXIT DELAY +C meccanismo che ritarda l'uscita di particelle dal sistema, +C quando una particella ( riconosciuta dalla sua posizione +C nello stack) cerca di uscire dal sistema e' tenuta dentro +C per forza, dandogli uno step pari alla distanza dal bordo +C del sistema * escestep, la seconda volta che cerca di uscire +C la si lascia andare. USCI e' un vettore logico che e' true +C se ad una particella e' gia' stato vietato di uscire una volta. +c IF(NONESCE) THEN +c IF(USCI(NP).OR.TOSAMER.OR.TONEXTR.OR.TOPREVR) THEN +cC casi in cui il meccanismo non si usa, reset del flag +c USCI(NP)=.FALSE. +c ELSE +c IF(TOOUTZ) THEN +c TOTOUTZ=.FALSE. +c USTEP=RZINT*ESCESTEP +c ELSE ! if(tooutr) then +c TOTOUTR=.FALSE. +c USTEP=STEPNEW*ESCESTEP +c ENDIF +c TOSAMER=.TRUE. +c USCI(NP)=.TRUE. +c NPESCE=NP +cC redefine, using new step,all data needed for tosamer=.true +c XNEW=X(NP)+USTEP*UN +c YNEW=Y(NP)+USTEP*VN +c ZNEW=Z(NP)+USTEP*WN +c RNEWSQ=XNEW*XNEW+YNEW*YNEW +c RNEW=SQRT(RNEWSQ) +c ENDIF +c ENDIF +C +C ------------------------------------- FINAL SETTINGS +c THE FOLLOWING OLD CORRECTION HAS BEEN SUPERSEEDED BY NEW ONE ! +C when crossing a boundary the particle is put INSIDE the +C new region, by adding ALITTLE, ( a little quantity), +C if the step is very little maybe alittle>>stepnew, in this +C this case we must add a quantity < stepnew to avoid +C breakdow of some approximation in subr. electr +C + IF(TOOUTZ) THEN +c va nella zona fuori cilindri + IRNEW=NCYL+1 +c USTEP=RZINT + RZINT*ALITTLE + USTEP=MAX(RZINT,USTEPMIN) + call parla(15) +c goto 500 ! RETURN + ELSE IF(TOOUTR) THEN +c va nella zona fuori cilindri + IRNEW=NCYL+1 +C must go a bit into new region, the boundary belongs +C to the previous one +c USTEP=STEPNEW + STEPNEW*ALITTLE + USTEP=MAX(STEPNEW,USTEPMIN) + call parla(16) +c goto 500 ! RETURN + ELSE IF(TOPREVR) THEN + IRNEW=NR-1 +c USTEP=STEPNEW + STEPNEW*ALITTLE + USTEP=MAX(STEPNEW,USTEPMIN) +C DNEAR(NP)= USTEPMIN + call parla(17) + ELSE IF(TONEXTR) THEN + IRNEW=NR+1 +c USTEP=STEPNEW + STEPNEW*ALITTLE + USTEP=MAX(STEPNEW,USTEPMIN) +C DNEAR(NP)= USTEPMIN + call parla(18) + ELSE IF(TOSAMER) THEN + RNEW=SQRT(RNEWSQ) +c DNEAR(NP)=MIN(ZMAX-ZNEW,ZNEW+ZMAX,RCYL(NR)-RNEW) +c IF(NR.NE.1) DNEAR(NP)=MIN(DNEAR(NP),RNEW-RCYL(NR-1)) + DNEAR(NP)=MIN(abs(ZMAX-ZNEW),abs(ZNEW+ZMAX), + 1 abs(RCYL(NR)-RNEW)) + IF(NR.NE.1) DNEAR(NP)=MIN(DNEAR(NP), + 1 abs(RNEW-RCYL(NR-1)) ) + 1 + ELSE + TYPE*,' che succede ? non si verifica nulla ?' + ENDIF +C +C ............................................................... +C ------------------------------------ altra correzione (z) +C vieto ad una particelle che esce da sopra o sotto i cilindri +c di essere appiccicata al bordo zmax + if(tooutz) then + z(np)=z(np)+sign(aminimo,w(np)) ! se uso z(np) ho ambiguita' per z=0 + goto 498 ! non fa le correzioni sotto + else ! se non sta uscendo lo tengo dentro z + zmaxsegno=sign(zmax,z(np)) + errore=abs(z(np)-zmaxsegno) + if(errore.lt.aminimo) z(np)=z(np)-sign(aminimo,z(np)) + endif +C ------------------------------------ altra correzione (radiale) +C per particelle entro la zona dei cilindri o uscenti di lato: +c vieto ad una particella di essere piu' vicina di +C tanto al limite di un cilindro + XNEW=X(NP)+USTEP*UN + YNEW=Y(NP)+USTEP*VN + ZNEW=Z(NP)+USTEP*WN + RNEWSQ=XNEW*XNEW+YNEW*YNEW + RNEW=SQRT(RNEWSQ) + if(noutflag2.gt.0) then + write(6,8030)xnew,ynew,znew,rnew + write(50,8030)xnew,ynew,znew,rnew + endif +c + if(tosamer) then ! prossimo r + irpross=nr + else + irpross=irnew + endif +c + angolo=atan2(ynew,xnew) ! aggiungo o tolgo vettore radiale +c + if(.not.tooutr) then ! se esce non c'e' rcyl(ncyl+1) + errore=abs(rcyl(irpross)-rnew) ! dist da superficie esterna + if(errore.lt.aminimo) then + x(np)=x(np)-aminimo*cos(angolo) + y(np)=y(np)-aminimo*sin(angolo) + endif + endif + if(irpross.ne.1) then + errore=abs(rnew-rcyl(irpross-1)) ! dist da sup. interna + if(errore.lt.aminimo) then ! se troppo vicino allontano + x(np)=x(np)+aminimo*cos(angolo) + y(np)=y(np)+aminimo*sin(angolo) + endif + endif + 498 continue +c + if(noutflag2.gt.0) then + XNEW=X(NP)+USTEP*UN + YNEW=Y(NP)+USTEP*VN + ZNEW=Z(NP)+USTEP*WN + RNEWSQ=XNEW*XNEW+YNEW*YNEW + RNEW=SQRT(RNEWSQ) + write(6,8030)xnew,ynew,znew,rnew + write(50,8030)xnew,ynew,znew,rnew + endif +C---------------------------------------------------------C +C ##################################### ******** for testing + if(noutflag2.gt.0) then + write(6,8080)tooutz,tooutr,toprevr,tonextr,tosamer + write(50,8080)tooutz,tooutr,toprevr,tonextr,tosamer + 8080 format(' outz:',L,' outr:',L,' prevr:',L, + 1 ' nextr:',L,' samer:',L) + write(6,8090)stepnew,rzint,irnew,ustep,idisc,dnear(np) + write(50,8090)stepnew,rzint,irnew,ustep,idisc,dnear(np) + 8090 format(' stepnew:',G13.7,' rzint:',G13.7, + 2 ' irnew,ustep,idisc,dnear:',I3,1X,G13.7,I3,1X,G13.7) + endif +C +c got to 500 ! RETURN +C---------------------------------------------------------C + 500 continue +C --------------------------> saves input values for testing purposes +c xsav=x(np) +c ysav=y(np) +c zsav=z(np) +c erresav=erre +c usav=u(np) +c vsav=v(np) +c wsav=w(np) +c ustepsav=ustep +c xnewsav=xnew +c ynewsav=ynew +c znewsav=znew +c rnewsav=rnew +c errorsav=errore +c ------------------------------------------------------------ + if(noutflag2.gt.5) noutflag2=0 + if(noutflag2.gt.0) noutflag2=noutflag2+1 + RETURN + END +C + FUNCTION INTERSEC(X,Y,Z,XNEW,YNEW,ZNEW,RTOGOSQ, + 1 XX,YY,ZZ,DISTANCE) +C ======================================================== +C riscritta jun-1994 +C ------------------------------------------------------ +C FUNCTION INTERSEC(Xqq,Yqq,Zqq,XNEWqq,YNEWqq,ZNEWqq,RTOGOSQqq, +C 1 XXqq,YYqq,ZZqq,DISTANCEqq) +C ================== double precision for testing +C implicit real*8 (a-h,o-z) +C real*4 xqq,yqq,zqq,xnewqq,ynewqq,znewqq,rtogosqqq +C real*4 xxqq,yyqq,zzqq,distanceqq +C ======================================================== +C ------------------------------------------------------ +C FINDS PARTICLE-PATH AND CYL SURF. INTERSECTION +C Looks for the intersection on the same side of xnew +C if 2 intersections are found on the same side +C chose the nearer to x. +C If the intersection is found xx,yy,zz is the intersection +C point, distance its distance from x, and intersec is +C TRUE, otherwise intersec is FALSE. +C -------------------------------------------------------- + LOGICAL INTERSEC,SOL1,SOL2 + DATA PRECISION /1.E-6/ ! WARNING distances < precision are zero ! +C +C ==================================== testing double precision +C x=xqq +C y=yqq +C z=zqq +C xnew=xnewqq +C ynew=ynewqq +C znew=znewqq +C rtogosq=rtogosqqq +C =========================================================== + YYTEST=YNEW-Y + XXTEST=XNEW-X + ABSXT=ABS(XXTEST) + ABSYT=ABS(YYTEST) + IF(ABSXT.GT.ABSYT.AND.ABSXT.gt.precision) THEN +C IF(abs(XXTEST).gt.precision) THEN +c IF(XXTEST.NE.0.0) THEN ! cosi' il test su precision sotto non fa +c trovare alcuna intersezione se xxtext<1.e-6 + AA=(YYTEST) / XXTEST + A=1.+(AA*AA) + B=(Y-AA*X) * AA + C=(Y-AA*X)**2 - RTOGOSQ + DISCR=B*B-A*C + 9999 continue +C ............................... case of two solution + IF(DISCR.GT.0.0) THEN + DISCR=SQRT(DISCR) + X1= (DISCR-B)/A + X2=-(DISCR+B)/A +C ................. looks for the good solution: +C the one in the particle direction (between x and xnew) +C (note that if x1=xnew and xnew-x <0, +C we have a wrong answer if x1=xnew is not tested ) +C x1=x in a particle on boundary, intersection = false + IF(SIGN(1.,X1-X).EQ.SIGN(1.,XNEW-X1). + 1 OR.X1.EQ.XNEW) THEN +C 1 OR.X1.EQ.X.OR.X1.EQ.XNEW) THEN + SOL1=.TRUE. +C Caso indistinguibile da x1=x + IF(ABS(X1-X).LT.PRECISION) SOL1=.FALSE. + ELSE + SOL1=.FALSE. + ENDIF + IF(SIGN(1.0,X2-X).EQ.SIGN(1.0,XNEW-X2). + 1 OR.X2.EQ.XNEW) THEN +C 1 OR.X2.EQ.X.OR.X2.EQ.XNEW) THEN + SOL2=.TRUE. +C Caso indistinguibile da x1=x + IF(ABS(X2-X).LT.PRECISION) SOL2=.FALSE. + ELSE + SOL2=.FALSE. + ENDIF +C +C .................... if both solution on the same side +C looks for the one nearer to x + IF(SOL1.AND.SOL2) THEN + Y1=Y+AA*(X1-X) + Y2=Y+AA*(X2-X) + Z1=Z+(ZNEW-Z)/XXTEST *(X1-X) + Z2=Z+(ZNEW-Z)/XXTEST *(X2-X) + DIST1=(Y1-Y)**2 + (X1-X)**2 +(Z1-Z)**2 + DIST2=(Y2-Y)**2 + (X2-X)**2 +(Z2-Z)**2 + IF(DIST1.LT.DIST2) THEN + XX=X1 + YY=Y1 + ZZ=Z1 + DISTANCE=SQRT(DIST1) + INTERSEC=.TRUE. + ELSE IF(DIST1.GT.DIST2) THEN + XX=X2 + YY=Y2 + ZZ=Z2 + DISTANCE=SQRT(DIST2) + INTERSEC=.TRUE. + ELSE + TYPE*,' something wrong,2 solution' + type*,' on same side and at same distance' + INTERSEC=.FALSE. + RETURN + ENDIF +C .............................. if only x1 on the good side + ELSE IF(SOL1) THEN + XX=X1 + YY=Y+AA*(XX-X) + ZZ=Z+(ZNEW-Z)/XXTEST *(XX-X) + DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + + 1 (ZZ-Z)**2 ) + INTERSEC=.TRUE. +C .............................. if only x2 on the good side + ELSE IF(SOL2) THEN + XX=X2 + YY=Y+AA*(XX-X) + ZZ=Z+(ZNEW-Z)/XXTEST *(XX-X) + DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + + 1 (ZZ-Z)**2 ) + INTERSEC=.TRUE. + ELSE +C .............. no good solutions, both intersections +C on the wrong side + INTERSEC=.FALSE. + RETURN + ENDIF +C ............................ only one intersection, traject. tangent +C to cyl. surf ( we are in the case of a particle +C not running along the y axis, i.e. with constant x) + ELSE IF(DISCR.EQ.0.0) THEN + 9998 continue +C + TYPE *,' Particle tangent to cyl. boundary' + XX=-B/A + IF(SIGN(1.0,XX-X).EQ.SIGN(1.0,XNEW-XX). + 1 OR.XX.EQ.X.OR.XX.EQ.XNEW) THEN + YY=Y+AA*(XX-X) + ZZ=Z+(ZNEW-Z)/XXTEST *(XX-X) + DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + + 1 (ZZ-Z)**2 ) + INTERSEC=.TRUE. + ELSE + INTERSEC=.FALSE. + RETURN + ENDIF + ELSE + 9997 continue +C ............ discr <0 ===> no intersection + INTERSEC=.FALSE. + RETURN + ENDIF + ELSE IF(ABSYT.GT.PRECISION) THEN !solves in Y + AA=XXTEST/YYTEST + A=1.+(AA*AA) + B=(X-AA*Y) * AA + C=(X-AA*Y)**2 - RTOGOSQ + DISCR=B*B-A*C +C ............................... case of two solution + IF(DISCR.GT.0.0) THEN + DISCR=SQRT(DISCR) + Y1= (DISCR-B)/A + Y2=-(DISCR+B)/A +C ................. looks for the good solution: +C ................. looks for the solutions on the good side of y + IF(SIGN(1.0,Y1-Y).EQ.SIGN(1.0,YNEW-Y1). + 1 OR.Y1.EQ.YNEW) THEN +C 1 OR.Y1.EQ.Y.OR.Y1.EQ.YNEW) THEN + SOL1=.TRUE. +C indistinguibile da y1=y + IF(ABS(Y1-Y).LT.PRECISION) SOL1=.FALSE. + ELSE + SOL1=.FALSE. + ENDIF + IF(SIGN(1.0,Y2-Y).EQ.SIGN(1.0,YNEW-Y2). + 1 OR.Y2.EQ.YNEW) THEN +C 1 OR.Y2.EQ.Y.OR.YNEW.EQ.Y2) THEN + SOL2=.TRUE. +C indistinguibile da y1=y + IF(ABS(Y2-Y).LT.PRECISION) SOL2=.FALSE. + ELSE + SOL2=.FALSE. + ENDIF +C ................. two good solutions, find the nearer one + 9996 continue + IF(SOL1.AND.SOL2) THEN + X1=X+AA*(y1-y) + X2=X+AA*(y2-y) + Z1=Z+(ZNEW-Z)/YYTEST *(Y1-Y) + Z2=Z+(ZNEW-Z)/YYTEST *(Y2-Y) + DIST1=(X1-X)**2 + (Z1-Z)**2 + (Y1-Y)**2 + DIST2=(X2-X)**2 + (Z2-Z)**2 + (Y2-Y)**2 + IF(DIST1.LT.DIST2) THEN + YY=Y1 + XX=X1 + ZZ=Z1 + DISTANCE=SQRT(DIST1) + INTERSEC=.TRUE. + ELSE IF(DIST1.GT.DIST2) THEN + YY=Y2 + XX=X2 + ZZ=Z2 + DISTANCE=SQRT(DIST2) + INTERSEC=.TRUE. + ELSE + TYPE*,' something wrong 2 good sol. same side' + TYPE*,' same distance ?' + INTERSEC=.FALSE. + RETURN + ENDIF + ELSE IF(SOL1) THEN + YY=Y1 + XX=X+AA*(Y1-Y) + ZZ=Z+(ZNEW-Z)/YYTEST *(Y1-Y) + DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + (ZZ-Z)**2 ) + INTERSEC=.TRUE. + ELSE IF(SOL2) THEN + YY=Y2 + XX=X+AA*(Y2-Y) + ZZ=Z+(ZNEW-Z)/YYTEST *(Y2-Y) + DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + (ZZ-Z)**2 ) + INTERSEC=.TRUE. + ELSE + INTERSEC=.FALSE. + RETURN + ENDIF + ELSE IF(DISCR.EQ.0.0) THEN +C + TYPE *,' Particle tangent to cyl. boundary' + YY=-B/A + IF(SIGN(1.0,YY-Y).EQ.SIGN(1.0,YNEW-YY). + 1 OR.YY.EQ.Y.OR.YY.EQ.YNEW) THEN + XX=X+AA*(YY-Y) + ZZ=Z+(ZNEW-Z)/YYTEST *(YY-Y) + DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + + 1 (ZZ-Z)**2 ) + INTERSEC=.TRUE. + ELSE + INTERSEC=.FALSE. + RETURN + ENDIF + ELSE +C ............ discr <0 ===> no intersection + INTERSEC=.FALSE. + RETURN + ENDIF +C ---------------------------- + ELSE ! XXTEST AND YYTEST < PRECISION +c lo step e' inosservabile ..... +C faccio un semplice test per decidere se interseca, +C se la trovo metto l'intersezione nel nel nuovo punto +c Questo semplice test non considera il caso in cui la +C traiettoria incontra piu volte la superficie. + RSQ=XX*XX+YY*YY + RSQNEW=XNEW*XNEW+YNEW*YNEW + IF(( RSQ.LE.RTOGOSQ. AND. + 1 RTOGOSQ.LE.RSQNEW) .OR. + 2 (RSQ.GT.RTOGOSQ .AND. + 3 RTOGOSQ.GT.RSQNEW) ) THEN + XX=XNEW + YY=YNEW + ZZ=ZNEW + DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + + 1 (ZZ-Z)**2 ) + INTERSEC=.TRUE. + ELSE + INTERSEC=.FALSE. + ENDIF + ENDIF +C + 999 CONTINUE +C ================================= testing double prec +C xxqq=xx +C yyqq=yy +C zzqq=zz +C distanceqq=distance +C ===================================== + RETURN + END diff --git a/code/source/howyaps.for b/code/source/howyaps.for new file mode 100644 index 0000000..0099f31 --- /dev/null +++ b/code/source/howyaps.for @@ -0,0 +1,831 @@ +c file howyaps.for del 14-sept-1994 + subroutine howyaps(erre,erresq) +C----------------------------------------------------------C +C parte di howfar che descrive la geometria fuori del +C cilindro, nella zona dei rivelatori +c +c Il bordo dei rivelatori non ne fa parte, +c per evitare ambiguita' al bordo : +c - una particella entrante la metto dentro il yap +c della grandezza PRECISION ( precisione macchina ) +c ( tolgo ad x(np),y(np),z(np) un vettorino +c che nel sistema del rivelatore punta a 45 gradi +c dagli assi, nel quadrante ove c'e' l'intersezione +c della traiettoria colla superficie del rivelatore +c - una particella uscente la metto sul bordo. +c non posso metterla fuori del rivelatore perche' potrebbe +c finire in un rivelatore vicino se i rivelatori +c si toccano o quasi. +C----------------------------------------------------------C + INCLUDE 'COMM_CYLtot_2.FOR' + include 'comm_yaps.for' +c + data precision/1.e-4/ ! definisce una min distanza dal bordo +c per particelle che escono od +c entrano nei rivelatori + data aminimo /1.e-4/ ! min dist da bordo cyl per part. rientranti +c nel cyl ( vedi howcyls routine ) +c + logical rientra ! vero se rientra nei cilindri dal lato + logical cyldatop ! vero se rientra nei cilindri da sopra + logical cyldabot ! vero se rientra nei cilindri da sotto + logical attravz ! routine che definisce cyldator e cyldabot +c + LOGICAL INYAP(mypmax) ! yaps trovati in traiettoria +c mypmax: parametro del common + dimension distyap(mypmax) ! distanze dal bordo del yap + dimension xdist(mypmax),ydist(mypmax),zdist(mypmax) ! ove incontra il bordo + dimension xdistp(mypmax),ydistp(mypmax),zdistp(mypmax) ! questo nel rif.yap + dimension x1p(mypmax),y1p(mypmax),z1p(mypmax) ! point x in yap coord + dimension x2p(mypmax),y2p(mypmax),z2p(mypmax) ! point xnew in yap coord + dimension intersyap(mypmax) ! faccia yap attraversata +C +c ..................... flag per correggere una sola volta errori di +c regione ed evitare eventuali loop +c data hocorretto/0/ +c +c real*8 distyap,xdist,ydist,zdist +c real*8 xdistp,ydistp,zdistp +c real*8 erre,erresq +c REAL*8 RNEW,RNEWSQ +C +c ERRESQ=X(NP)*X(NP)+Y(NP)*Y(NP) +c ERRE=SQRT(ERRESQ) +c ---------------------------- CASO DI PARTICELLA FUORI +C LO FA GIA LA HOWFAR ? +c IF(ERRESQ.GE.RULTIMOSQ) THEN +c IDISC=1 +c IRNEW=NCYL+NYP+2 +c ir(np)=irnew ! egs4 non lo fa per discard immediato +c GOTO 500 +c ENDIF +c +C -------------------------- CALCOLO DOVE VA LA PARTICELLA + UN=U(NP) + VN=V(NP) + WN=W(NP) +C + XNEW=X(NP)+USTEP*UN + YNEW=Y(NP)+USTEP*VN + ZNEW=Z(NP)+USTEP*WN +C + RNEWSQ=XNEW*XNEW+YNEW*YNEW + RNEW=SQRT(RNEWSQ) +C +c ----------------------------------------- calcolo le coord x ed xnew +C nel sistema del yap + do 5 ip=1,nyp + call inyapsys(ip,x(np),y(np),z(np),x1p(ip),y1p(ip),z1p(ip)) + call inyapsys(ip,xnew,ynew,znew,x2p(ip),y2p(ip),z2p(ip)) + 5 continue +C --------------------------------- guardo se parte da dentro un yap + idove=0 + do 10 ip=1,nyp + if(abs(x1p(ip)).lt.dxypi(ip).and. + 1 abs(y1p(ip)).lt.dyypi(ip).and. + 1 abs(z1p(ip)).lt.dzypi(ip) ) then + if(idove.gt.0) then + write(ltyout,*) ' warning! part. in 2 yaps:',ip,idove + if(noutflag5.ge.2) + 1 write(ltyout,*) ' warning! part. in 2 yaps:',ip,idove + endif + idove=ip + endif + 10 continue + nr=ncyl+1 + idove ! il yap in cui e' oppure ncyl+1 +c controllo la posizione +c +c ---------> begin if on nr +c + if(nr.ne.ir(np)) then + irnp=ir(np) +c se e' sul bordo di un yap per uscirne allora idove .ne. 0 +c ma ir(np)=ncyl+1 , non ncyl+1+idove, tuttavia non e' un errore. +c Controllo se siamo in questo caso. +c ---------> begin if on idove .......................... + if(idove.gt.0.and. + 1 (abs(x1p(idove)).eq.dxypi(idove).or. + 1 abs(y1p(idove)).eq.dyypi(idove).or. + 1 abs(z1p(idove)).eq.dzypi(idove) ) )then +c ORA CHE IL BORDO FA PARTE DELLA ZONA FUORI +C QUESTO CASO NON SI DEVE PIU' VERIFICARE + type *,' Particella al bordo yap ENTRANTE ?' + type *,' WARNING ! questo non dovrebbe succedere!' +c + if(noutflag5.gt.2) then + write(50,*)' Particella al bordo yap ENTRANTE ?' + write(50,*)' WARNING ! questo non dovrebbe succedere!' + endif + nr=ir(np) + idove=0 +c ............... else su posizione part. idove +c se e' in un yap e' ammesso che capiti sul +c bordo senza accorgersene +c + else if( idove.eq.0.and. ! lo trova fuori + 1 (irnp.gt.ncyl+1.and.irnp.le.ncyl+1+nyp).and. ! e' nei yaps + 1 (abs(x1p(irnp-ncyl-1)).eq.dxypi(irnp-ncyl-1).or. ! e' sul bordo + 1 abs(y1p(irnp-ncyl-1)).eq.dyypi(irnp-ncyl-1).or. + 1 abs(z1p(irnp-ncyl-1)).eq.dzypi(irnp-ncyl-1)) )then +c + type *,' Warning! : particella al bordo yap: pos.ambigua ' + if(noutflag5.gt.2) then + write(50,*)' Warning! : particella al bordo yap: pos.ambigua ' + endif + call parla(23) + irnew= ncyl+1 ! provo a correggere + ustep=0.0 + goto 500 +c ------ > else on idove + else ! qui si e' un errore + write(ltyout,*)' warning, wrong region',nr,' instead of:',ir(np) + call parla(-21) + if(noutflag5.gt.2) + 1write(50,*)' warning, wrong region',nr,' instead of:',ir(np) +c +c hocorretto=hocorretto+1 +c if(hocorretto.lt.3) then +c irnew=nr ! cerco di correggere, dicendogli di cambiare zona +c ustep=0 +c else + hocorretto=0 + idisc=1 ! se ho gia corretto la scarto + irnew=ncyl+nyp+2 + ir(np)=irnew ! egs4 non lo fa per discard immediato + call parla(-20) +c endif + goto 500 +c +c -----------> ending if on idove + endif +c -----------> ending if on nr +c else +c hocorretto=0 ! if nr is OK resets this flag + endif +c --------------------------------------- guardo se attraversa un yap + do 15 ip=1,nyp + 15 inyap(ip)=.false. +c + if(idove.gt.0) then !se e' dentro un yap puo attraversare solo quello + i1=idove + i2=idove + else ! altrimenti li provo tutti + i1=1 + i2=nyp + endif +c + ustep2=ustep*ustep + do 20 ip=i1,i2 + call guardaatt(x1p(ip),y1p(ip),z1p(ip),x2p(ip),y2p(ip),z2p(ip), + 1 ustep,ustep2,distyap(ip), + 1 xdistp(ip),ydistp(ip),zdistp(ip),inyap(ip),ip, + 1 intersyap(ip)) +c + 20 continue +c +c ------------------------------------ cerco il primo yap che attraversa + attrav=upperlimite ! un limite max per le dimensioni del sistema + iattrav=0 + do 30 ip=i1,i2 + if(inyap(ip)) then + if(attrav.gt.distyap(ip) ) then +c + if(distyap(ip).eq.0.0.and.nr.eq.ncyl+1) goto 30 +c caso di particella posta sul bordo del yap per uscirne, +c (nr=numero cyl+1) allora il bordo non conta come +c intersezione. +c + iattrav=ip + attrav=distyap(ip) + endif + endif + 30 continue +c +c ---------------------------controllo che non stia rientrando nella +c zona dei cilindri +c (se non e' partito da dentro un yap) +c questo caso e' in genere raro, e forse non fisico, +c vista la presenza del collimatore, ma lo devo includere +c per evitare problemi geometrici, con particelle +c trovate fuori posto etc etc . + if(idove.ne.0) then ! se e' dentro un yap deve uscirne prima +c rientra=.false. +c cyldatop=.false. +c cyldabot=.false. + goto 300 ! non controllo se rientra nei cyl + endif +c + rientra=intersec(x(np),y(np),z(np),xnew,ynew,znew,rcylsq(ncyl), + 1 xx,yy,zz,dd) + if(rientra) then + if(dd.gt.ustep.or.abs(zz).gt.zmax) rientra=.false. +c intersec non contempla questi casi , attravz invece si. + endif +c + cyldatop=attravz(x(np),y(np),z(np),xnew,ynew,znew, + 1 ustep,ustep2,dcyltp,xcyltp,ycyltp,zcyltp, + 2 zmax,rcylsq(ncyl)) + cyldabot=attravz(x(np),y(np),z(np),xnew,ynew,znew, + 1 ustep,ustep2,dcylbt,xcylbt,ycylbt,zcylbt, + 2 -zmax,rcylsq(ncyl)) +c + if(.not.(rientra.or.cyldatop.or.cyldabot)) goto 300 ! niente intesez. + call parla(1) +c inutile continuare +c ................... cerca l'intersezione piu' vicina alla partenza +c + ddmin=upperlimite ! una dimensiona max del sistema +c + if(rientra) ddmin=dd +c + if(cyldatop.and.dcyltp.lt.ddmin) then ! attravz testa ustep ed rcyl + ddmin=dcyltp + rientra=.false. + else + cyldatop=.false. + endif +c + if(cyldabot.and.dcylbt.lt.ddmin) then + ddmin=dcylbt + rientra=.false. + cyldatop=.false. + else + cyldabot=.false. + endif +c ....................... e qui 1 e 1 solo e' vero ( il primo cross) +c se interseca anche un rivelatore controllo se lo trova prima + if(iattrav.gt.0.and.distyap(iattrav).lt.ddmin) then +c rientra=.false. +c cyldabot=.false. +c cyldatop=.false. +c ddmin=attrav + goto 300 + endif +c + if (rientra) then + irnew=ncyl + ustep=dd +c ................... meccanismo correttivo per non stare sul bordo del cyl. +C stesso meccanismo di howcyls , ma qui e' tutto piu' semplice + XNEW=X(NP)+USTEP*UN + YNEW=Y(NP)+USTEP*VN + ZNEW=Z(NP)+USTEP*WN +c + angolo=atan2(ynew,xnew) ! tolgo vettore radiale + x(np)=x(np)-aminimo*cos(angolo) + y(np)=y(np)-aminimo*sin(angolo) +C ........................ + call parla(2) + goto 500 + else if(cyldatop) then + ddcp=xcyltp*xcyltp+ycyltp+ycyltp + call parla(3) + else if (cyldabot) then + ddcp=xcylbt*xcylbt+ycylbt+ycylbt + call parla(4) + endif +c .............. arriva qui solo se (cyldatop o cyldabot) +c if(cyldatop.or.cyldabot) then +c + do 35 i=1,ncyl ! cerca in che cilindro finisce + if(ddcp.le.rcylsq(i)) then + irnuovo=i + goto 350 + endif + 35 continue + type *,' WARNING : HOWYAPS:' + type*,' Entra nel cyl ma non trovo quale!' + type*,' Lo metto nell''ultimo, poi protesta' + if(noutflag5.gt.2) then + write(50,*)' WARNING : HOWYAPS:' + write(50,*)' Entra nel cyl ma non trovo quale!' + write(50,*)' Lo metto nell''ultimo, poi protesta' + endif + irnew=ncyl + ustep=ddmin + goto 500 + 350 continue + irnew=irnuovo + ustep=ddmin +c ................... meccanismo correttivo per non stare sul bordo del cyl. +C stesso meccanismo di howcyls , ma qui e' tutto piu' semplice + XNEW=X(NP)+USTEP*UN + YNEW=Y(NP)+USTEP*VN + ZNEW=Z(NP)+USTEP*WN +c + angolo=atan2(ynew,xnew) ! tolgo vettore radiale + x(np)=x(np)-aminimo*cos(angolo) + y(np)=y(np)-aminimo*sin(angolo) +C ........................ +c ....................... e in piu' non lo faccio stare esattamente +c sul bordo z + if(cyldatop) then + z(np)=z(np)-aminimo + else ! if(cyldabot) + z(np)=z(np)+aminimo + endif +c .............................................. + goto 500 +c endif +c + 300 continue +c -------------------------------- assegno il nuovo materiale + if(iattrav.le.0) then ! non attraversa rivelatori +c ! guardo se sta uscendo dal sistema + if(rnewsq.ge.rultimosq.or.znew.ge.zultimo) then + irnew=ncyl+2+nyp ! numero zona dei lost + idisc=-1 ! scarto la particella + call parla(5) + else if(idove.ne.0) then ! e' e resta in un yap, calcolo dnear. +c come min fra le dist. dalle 6 facce del rivelatore + distsurf1=abs(dxypi(idove)-x1p(idove)) + distsurf2=abs(-dxypi(idove)-x1p(idove)) + distsurf3=abs(dyypi(idove)-y1p(idove)) + distsurf4=abs(-dyypi(idove)-y1p(idove)) + distsurf5=abs(dzypi(idove)-z1p(idove)) + distsurf6=abs(-dzypi(idove)-z1p(idove)) + dnear(np)=min(distsurf1,distsurf2,distsurf3, + 1 distsurf4,distsurf5,distsurf6) +c else ! e' nella zona esterna ai yaps, non fo nulla +c irnew=ir(np) ! che non esce lo ho testato sopra... +c ustep va bene come e' + endif + else ! attraversa un yap +c ho vari casi: 1 : che stia uscendo dal yap +c 2 : che stia entrando nel yap +c uso il numero di regione di partenza per distinguere + numeroyap=iattrav + numfaccia=intersyap(iattrav) ! li passo via common per output +c + if(iattrav+ncyl+1.eq.ir(np)) then ! era gia' nel yap, ne sta uscendo +c -------------------------------- +c +c ................ test sul flag escono ,se puo' uscire o no. + if(escono.lt.0.) then ! chi esce torna nel sistema + irnew=ncyl+1 + ustep=distyap(iattrav) ! bordo +c +C qui c'e' il problema di particelle che diffondono sulla +c superficie del rivelatore ed escono restando praticamente +c sul bordo. La loro posizione non viene riconosciuta bene +c da questa routine. Una azione correttiva non e' semplice, +c non posso allontanarle dal centro del rivelatore perche' +c l'insieme dei rivelatori non e' una forma compatta, +c potrei finire in un altro rivelatore. +c Procedo cosi': per la faccia 2 avvicino al centro del +c sistema, per le faccie 1,3,4 allontano dal centro, +c per le facce 5,6 allontano dal centro in z. + if(numfaccia.eq.6) then + z(np)=z(np)-precision + else if(numfaccia.eq.5) then + z(np)=z(np)+precision + else if(numfaccia.eq.1.or.numfaccia.eq.3.or. + 1 numfaccia.eq.4) then + XNEW=X(NP)+USTEP*UN + YNEW=Y(NP)+USTEP*VN + angolo=atan2(ynew,xnew) ! aggiungo vettore radiale + x(np)=x(np)+precision*cos(angolo) + y(np)=y(np)+precision*sin(angolo) + else if(numfaccia.eq.2) then + XNEW=X(NP)+USTEP*UN + YNEW=Y(NP)+USTEP*VN + angolo=atan2(ynew,xnew) ! tolgo vettore radiale + x(np)=x(np)-precision*cos(angolo) + y(np)=y(np)-precision*sin(angolo) + endif +c + else if(escono.gt.0) then ! chi esce va nel collimatore, per cui +c e' eliminato e messo in zona nyp+ncyl+4, +c sempre, anche se il coll. non c'e' +c a limitare gli ingressi ( uscite +c inibite ) + idisc=1 ! discard immediato +c irnew=ncyl+nyp+3 + irnew=ncyl+nyp+4 ! pseudo-zona per uscite dai yaps + ir(np)=irnew ! egs4 non lo fa per discard immediato + call parla(22) + goto 500 ! salto le correzioni per non stare sulle facce +c + else ! if (escono.eq.0) then +c if(angcol.gt.0.and.numfaccia.eq.2) then ! assorbito nel coll. + if(numfaccia.eq.2) then ! assorbito nel coll. +c irnew=ncyl+nyp+3 + irnew=ncyl+nyp+4 ! questa e' la zona apposita + ir(np)=irnew ! egs4 non lo fa per discard immediato + idisc=1 + call parla(22) + goto 500 ! salto le correzioni per non stare sulle facce +c + else ! torna nel sistema + irnew=ncyl+1 + ustep=distyap(iattrav) ! bordo +c e anche qui faccio tutte le correzioni per non stare +c attaccato alle facce dei rivelatori + if(numfaccia.eq.6) then + z(np)=z(np)-precision + else if(numfaccia.eq.5) then + z(np)=z(np)+precision + else if(numfaccia.eq.1.or.numfaccia.eq.3.or. + 1 numfaccia.eq.4) then + XNEW=X(NP)+USTEP*UN + YNEW=Y(NP)+USTEP*VN + angolo=atan2(ynew,xnew) ! aggiungo vettore radiale + x(np)=x(np)+precision*cos(angolo) + y(np)=y(np)+precision*sin(angolo) + endif ! sulle facce per le correzioni + endif ! su esistenza coll. e faccia + endif ! su flag escono +c + call parla(6) +c + else ! sta entrando nel yap, lo metto sul bordo +c ------------------------------------------- + if(angcol.le.0.0) then ! il collimatore non c'e' + ustep=distyap(iattrav) + irnew=iattrav+1+ncyl + else ! collimatore geometrico, +c controllo l'angolo ammesso + if(numfaccia.eq.2) then ! il coll. e' sulla faccia 2 + cosvd=(abs(x1p(iattrav)-xdistp(iattrav)))/ + 1 distyap(iattrav) + angcosvd=acos(cosvd) !e' meglio testare il cos, risparmia acos! + if(angcosvd.gt.angcolrad) then ! assorbita dal coll. + irnew=ncyl+nyp+3 + idisc=1 + ir(np)=irnew ! egs4 non lo fa per discard immediato + call parla(19) + goto 500 ! al return + else ! entra da altri angoli + ustep=distyap(iattrav) + irnew=iattrav+1+ncyl + endif + else ! entra da altre facce + ustep=distyap(iattrav) + irnew=iattrav+1+ncyl + endif ! sulle facce del collimatore + endif ! sull'esistenza collimatore +c + call parla(7) +c .................. meccanismo correttivo per evitare +c ambiguita'. Correggo x,y,z per +c far finire la particella un po' dentro +c il rivelatore. +c Sottraggo un vettore che punta dal centro del yap +c verso il quadrante della zona di intersezione. +c + xcorrin=sign(precision,xdistp(iattrav)) + ycorrin=sign(precision,ydistp(iattrav)) + zcorrin=sign(precision,zdistp(iattrav)) +c porto il vettore nel sistema del cilindro + call incylsys0(iattrav,xcorrin,ycorrin,zcorrin, + 1 xcorr,ycorr,zcorr) +c ora correggo....... + x(np)=x(np)-xcorr + y(np)=y(np)-ycorr + z(np)=z(np)-zcorr +c ...................................... + endif ! ( se entra o esce da un rivelatore ) + ENDIF ! (se attraversa un rivelatore o no ) +c + 500 continue + return + end +c + SUBROUTINE guardaatt(x1,y1,z1,x2,y2,z2, + 1 ustep,ustep2,distyap,xdistp,ydistp,zdistp,inyap,ip,intersec) +C ------------------------------------------------------------ +c calcola l'intersezione fra il segmento per x,y,z - xnew,ynew,znew +c e il parallelepipedo ip +c Il punto di partenza e di arrivo del segmento possono essere +c punti di intersezione ( caso di una particella messa sul bordo +c nel giro precedente che torna indietro, uscendo di nuovo dal yap) ? +c +c dist e' la distanza di x,y,z dall'intersezione, +c inyap e' vero se l'intersezione esiste +c xdist,ydistzdist e' il punto di intersezione (coord del yap) +c intersec e' la faccia intersecata +c QUESTA ROUTINE NON E' OTTIMIZZATA, CI SI PUO RISPARMIARE IL LOOP 50 +C FACENDO I TEST SUBITO. +c -------------------------------------------------------------- + include 'comm_yaps.for' +c +c real*8 distyap,xdist,ydist,zdist + logical inyap,logcross + logical x2gtx1,z2gtz1,y2gty1 +c + dimension xcross(6),ycross(6),zcross(6),logcross(6),dcrosssq(6) +c real*8 xcross(6),ycross(6),zcross(6),dcrosssq(6) +c real*8 x2x1,y2y1,z2z1,t +c + d2(x,y,z,x1,y1,z1)=(x-x1)**2+(y-y1)**2+(z-z1)**2 + cp(t,x2x1,x1)=t*x2x1+x1 +c +c ---------------------------------------- +c + x2x1=x2-x1 + y2y1=y2-y1 + z2z1=z2-z1 +c + if(x2.gt.x1) then ! servono sotto per vedere + x2gtx1=.true. ! se l'intersezione e' fra x1 ed x2 + else + x2gtx1=.false. + endif + if(y2.gt.y1) then + y2gty1=.true. + else + y2gty1=.false. + endif + if(z2.gt.z1) then + z2gtz1=.true. + else + z2gtz1=.false. + endif + +c +c -- CALCOLA LE INTERSEZIONI DEL SEGMENTO FRA X,Y,X ED XNEW,YNEW,ZNEW +C CON I SEI PIANI CHE DELIMITANO IL RIVELATORE ------- +C +c ------------------- cerca intersez col piano x=-dxypi e col x=dxypi +c + if(x2x1.eq.0.0) then ! no intersection corre parallelo al piano + logcross(1)=.false. + logcross(2)=.false. + else ! calcolo intersez. piano x=dxypi + xcross(1)=dxypi(ip) + if(x2gtx1)then + if(xcross(1).lt.x1.or.xcross(1).gt.x2) goto 101 ! int.fuori segmento + else + if(xcross(1).gt.x1.or.xcross(1).lt.x2) goto 101 ! int.fuori segmento + endif + t=(dxypi(ip)-x1)/x2x1 + ycross(1)=cp(t,y2y1,y1) + if(abs(ycross(1)).gt.dyypi(ip)) goto 101 ! intersezione in y e' out + zcross(1)=cp(t,z2z1,z1) + if(abs(zcross(1)).gt.dzypi(ip)) goto 101 ! intersezione in z e' out + dcrosssq(1)=d2(xcross(1),ycross(1),zcross(1),x1,y1,z1) + if(dcrosssq(1).gt.ustep2) goto 101 ! inters. oltre ustep + logcross(1)=.true. + goto 100 + 101 logcross(1)=.false. + 100 continue + xcross(2)=-dxypi(ip) ! intersez. piano x=-dxypi + if(x2gtx1) then + if(xcross(2).lt.x1.or.xcross(2).gt.x2) goto 102 ! int.fuori segmento + else + if(xcross(2).gt.x1.or.xcross(2).lt.x2) goto 102 ! int.fuori segmento + endif + t=(-dxypi(ip)-x1)/x2x1 + ycross(2)=cp(t,y2y1,y1) + if(abs(ycross(2)).gt.dyypi(ip)) goto 102 ! intersezione in y e' out + zcross(2)=cp(t,z2z1,z1) + if(abs(zcross(2)).gt.dzypi(ip)) goto 102 ! intersezione in z e' out + dcrosssq(2)=d2(xcross(2),ycross(2),zcross(2),x1,y1,z1) + if(dcrosssq(2).gt.ustep2) goto 102 ! inters. oltre ustep + logcross(2)=.true. + goto 200 + 102 logcross(2)=.false. + 200 continue + endif +c +c ------------------- cerca intersez col piano y=-dyypi e col y=dyypi +c + if(y2y1.eq.0.0) then ! no intersection corre parallelo al piano + logcross(3)=.false. + logcross(4)=.false. + else ! intersez. piano y=dyypi + ycross(3)=dyypi(ip) + if(y2gty1) then + if(ycross(3).lt.y1.or.ycross(3).gt.y2) goto103 ! fuori segmento + else + if(ycross(3).gt.y1.or.ycross(3).lt.y2) goto103 ! fuori segmento + endif + t=(dyypi(ip)-y1)/y2y1 + xcross(3)=cp(t,x2x1,x1) + if(abs(xcross(3)).gt.dxypi(ip)) goto 103 ! x intersection fuori yap + zcross(3)=cp(t,z2z1,z1) + if( abs(zcross(3)).gt.dzypi(ip)) goto 103 ! z intersec. fuori + dcrosssq(3)=d2(xcross(3),ycross(3),zcross(3),x1,y1,z1) + if(dcrosssq(3).gt.ustep2) goto 103 !intersec.oltre ustep + logcross(3)=.true. + goto 300 + 103 logcross(3)=.false. + 300 continue + ycross(4)=-dyypi(ip) ! intersez. piano y=-dyypi + if(y2gty1) then + if(ycross(4).lt.y1.or.ycross(4).gt.y2)goto 104 + else + if(ycross(4).gt.y1.or.ycross(4).lt.y2)goto 104 + endif + t=(-dyypi(ip)-y1)/y2y1 + xcross(4)=cp(t,x2x1,x1) + if(abs(xcross(4)).gt.dxypi(ip)) goto 104 + zcross(4)=cp(t,z2z1,z1) + if(abs(zcross(4)).gt.dzypi(ip)) goto 104 ! intersez nel yap + dcrosssq(4)=d2(xcross(4),ycross(4),zcross(4),x1,y1,z1) + if(dcrosssq(4).gt.ustep2) goto 104 ! inters.oltre ustep + logcross(4)=.true. + goto 400 + 104 logcross(4)=.false. + 400 continue + endif +c +c ------------------- cerca intersez col piano z=-dzypi e col z=dzypi +c + if(z2z1.eq.0.0) then ! no intersection corre parallelo al piano + logcross(5)=.false. + logcross(6)=.false. + else ! intersez. piano x=dzypi + zcross(5)=dzypi(ip) + if(z2gtz1)then + if(zcross(5).lt.z1.or.zcross(5).gt.z2)goto 105 + else + if(zcross(5).gt.z1.or.zcross(5).lt.z2)goto 105 + endif + t=(dzypi(ip)-z1)/z2z1 + xcross(5)=cp(t,x2x1,x1) + if(abs(xcross(5)).gt.dxypi(ip)) goto 105 + ycross(5)=cp(t,y2y1,y1) + if(abs(ycross(5)).gt.dyypi(ip)) goto 105 ! intersez nel yap + dcrosssq(5)=d2(xcross(5),ycross(5),zcross(5),x1,y1,z1) + if(dcrosssq(5).gt.ustep2) goto 105 ! inters.oltre ustep + logcross(5)=.true. + goto 500 + 105 logcross(5)=.false. + 500 continue + zcross(6)=-dzypi(ip) ! intersez. piano z=-dzypi + if(z2gtz1) then + if(zcross(6).lt.z1.or.zcross(6).gt.z2) goto 106 + else + if(zcross(6).gt.z1.or.zcross(6).lt.z2) goto 106 + endif + t=(-dzypi(ip)-z1)/z2z1 + xcross(6)=cp(t,x2x1,x1) + if(abs(xcross(6)).gt.dxypi(ip)) goto 106 ! intersez nel yap + ycross(6)=cp(t,y2y1,y1) + if(abs(ycross(6)).gt.dyypi(ip)) goto 106 + dcrosssq(6)=d2(xcross(6),ycross(6),zcross(6),x1,y1,z1) + if(dcrosssq(6).gt.ustep2) goto 106 ! inters.oltre ustep + logcross(6)=.true. + goto 600 + 106 logcross(6)=.false. + 600 continue + endif +c +C ---------------------- ed ora fra tutte le intersezioni trovate +c -----------------------sceglie quella piu' vicina al punto di partenza + distminsq=upperlimite ! limite max del sistema + intersec=0 + do 50 j=1,6 + if(logcross(j).and.dcrosssq(j).lt.distminsq) then + intersec=j + distminsq=dcrosssq(j) + endif + 50 continue +c + if(intersec.gt.0) then ! passa alla subr. calling le + distyap=sqrt(distminsq) ! posizioni in cui c'e' l'intersez. + xdistp=xcross(intersec) + ydistp=ycross(intersec) + zdistp=zcross(intersec) + inyap=.true. + else + inyap=.false. + endif +c + return + end +c + function attravz(x1,y1,z1,x2,y2,z2,ustep,ustep2, + 1 ddp,xxp,yyp,zzp,zpiano,erresq) +c -------------------------------------------------------- +c Serve per guardarese una particella rientra nei cilindri da +c sopra o da sotto. Cerca l'intersezione della retta +c individuata da x1,y1,z1 ed x2,y2,z2, col piano z=zpiano. +c Se trova l'intersezione, e' piu' vicina all'origine di erresq, +c e prima di ustep, allora attravz e' vero, xxp,yyp,zzp e' +c il punto di intersezione e ddp la distanza di questo da x1,y1,z1 +c Altimenti attravz e' falso. +c --------------------------------------------------------------- +c + logical attravz +c + d2(x,y,z,x1,y1,z1)=(x-x1)**2+(y-y1)**2+(z-z1)**2 + cp(t,x2x1,x1)=t*x2x1+x1 +c ............................. +c + zzp=zpiano + if(z2.gt.z1) then + if(zzp.lt.z1.or.zzp.gt.z2) goto 100 ! fuori segmento + else ! questo test dipende da come + if(zzp.gt.z1.or.zzp.lt.z2) goto 100 ! e' orientato il segmento + endif +c + z2z1=z2-z1 + if(z2z1.eq.0.0) goto 100 ! se corre sul piano lo penso fuori, +c cosi' semplifico. Howyaps trovera' +c una intersezione col lato del cilindro + x2x1=x2-x1 + y2y1=y2-y1 + t=(zpiano-z1)/z2z1 + xxp=cp(t,x2x1,x1) + yyp=cp(t,y2y1,y1) + rp=xxp*xxp+yyp*yyp + if(rp.gt.erresq) goto 100 ! fuori raggio del cilindro + ddp=d2(x1,y1,z1,xxp,yyp,zzp) + if(ddp.gt.ustep2) goto 100 ! potrei usare solo questo test e +c non fare quello sopra su z1 e z2.In questo caso ho alcuni casi in cui +c mi risparmio conti, ma negli altri faccio in piu' il test su z1,z2 +c + attravz=.true. + ddp=sqrt(ddp) + return + 100 continue + attravz=.false. + return + end +c + subroutine parla(kparla) +c ------------------------------------ +c dice dove e' una particella e cosa sta facendo +c ( se noutflag5>0 ) +c se noutflag5=1 o >2 stampa su 6 +c se noutflag5=2 o >2 stampa su 50 +c se kparla<0 fa stampa in ogni caso ... +c --------------------------------------------- + include 'comm_cyltot_2.for' + include 'comm_yaps.for' +c + logical dico +c + parameter maxavvisi=23 + character *40,avviso(maxavvisi) + data avviso(1)/' particella che forse rientra nei cyl'/ + data avviso(2)/' particella che rientra di lato'/ + data avviso(3)/' particella che rientra da sopra'/ + data avviso(4)/' particella che rientra da sotto'/ + data avviso(5)/' particella che esce dal sistema'/ + data avviso(6)/' particella che esce da un rivelatore'/ + data avviso(7)/' particella che entra in un rivelatore'/ + data avviso(8)/' particella che va nel cyl precedente'/ + data avviso(9)/' particella che va nel cyl successivo'/ + data avviso(10)/' particella che esce di lato dai cyl'/ + data avviso(11)/' particella che esce da z dai cyl'/ + data avviso(12)/' Howyaps non sa se e'' nei cyl o fuori'/ + data avviso(13)/' howcyls trova part nei rivelatori'/ + data avviso(14)/' howcyls trova part. nel cyl sbagliato'/ + data avviso(15)/' particella esce dai cyl da z'/ + data avviso(16)/' particella esce dai cyl da r'/ + data avviso(17)/' particella va nel prec. cyl '/ + data avviso(18)/' particella va nel succ. cyl '/ + data avviso(19)/' particella nel collimatore'/ + data avviso(20)/' particella scartata .....'/ + data avviso(21)/' howyaps trova part. in reg. errata'/ + data avviso(22)/' part. che esce dai rivelatori'/ + data avviso(23)/' part. a bordo rivel., messa fuori'/ +c + if(kparla.lt.0) then + k=-kparla + dico=.true. + else + k=kparla + dico=.false. + endif +c + if(noutflag5.le.0.and.(.not.dico)) return +c + erre=x(np)**2+y(np)**2 + erre=sqrt(erre) + XNEW=X(NP)+USTEP*U(np) + YNEW=Y(NP)+USTEP*V(np) + ZNEW=Z(NP)+USTEP*W(np) + RNEWSQ=XNEW*XNEW+YNEW*YNEW + RNEW=SQRT(RNEWSQ) +c + 900 format(5x,'---->',A40) + 1000 format(5x,'part.:',I3,' ir=',I3,' irnew=',i3, + 1 ' carica:',I2,' E=',G12.5,' r=',g12.5) + 1100 format(5x,'da x=',G12.5,' y=',G12.5,' z=',g12.5, + 1 ' step=',g12.5,' u,v,w=',3g12.5) + 1200 format(5x,'a: x=',g12.5,' y=',g12.5,' z=',g12.5, + 1 'rnew=',g12.5,' angcoll=',g12.5, + 2 ' yap=',i2,' faccia yap=',i2) +c + if(noutflag5.eq.1.or.noutflag5.ge.3.or.dico) then + write(6,900) avviso(k) + write(6,1000) np,ir(np),irnew,iq(np),e(np),erre + write(6,1100) x(np),y(np),z(np),ustep,u(np),v(np),w(np) + write(6,1200) xnew,ynew,znew,rnew,angcosvd*57.29578, + 1 numeroyap,numfaccia + endif +c + if(noutflag5.eq.2.or.noutflag5.ge.3) then + write(50,900) avviso(k) + write(50,1000) np,ir(np),irnew,iq(np),e(np),erre + write(50,1100) x(np),y(np),z(np),ustep,u(np),v(np),w(np) + write(50,1200) xnew,ynew,znew,rnew,angcosvd*57.29578, + 1 numeroyap,numfaccia + endif +c + return + end diff --git a/code/source/init_cyl_2.for b/code/source/init_cyl_2.for new file mode 100644 index 0000000..3cb9e92 --- /dev/null +++ b/code/source/init_cyl_2.for @@ -0,0 +1,254 @@ +C file init_cyl_2.for del 12-sept-1994 + SUBROUTINE INIT_CYL +C-----------------------------------------------------------------C +C CYLINDER +C 26-jul-1994 : aggiunto hisluny=22 ( l.u. per n-tuple yaps) +C 11-may-1994 : aggiunto hislun1=21 ( l.u. per n-tuple ) +C VERSION INIT_CYL_1 : 9-MAY-1994 : OUTPUT OPTIONS ADDED +C-----------------------------------------------------------------C + INCLUDE 'COMM_CYLtot_2.FOR' + +c ----------------------------- +c parameter mxreg ! max num. of regions fissato in comm_cyltot_2 + dimension ecutletto(mxreg),pcutletto(mxreg) + dimension indmat(mxreg) +c +C-----------------------------------------------------------------C +C----------- I.O UNIT DEFINITION----------------------------------C +c non tutte sono definite qui, alcune sono definite nelle routine che le usano +C + DATA LTYIN,LTYOUT,LTYFIL,LTYHIS,LTYDAT,HISLUN + A /5,6,9,10,7,20/ +c ! 5 - terminal input +c ! 6 - terminal output +c ! 7 - input geometria cilindro +c ! 9 - input istogrammi +c ! 8 - output list di hatch +c ! 10 - output file +c ! 11 - ps metafile per plots +c ! 12 - input materiali da pegs4 + data n13 /13/ ! 13 - file di input geometria rivelatori +c ! 20 - output per paw-hbook + DATA HISLUN1 /21/ ! 21 - file n-tuple + DATA HISLUNy /22/ ! 22 - file n-tuple rivelatori +c ! 50 - paths particelle ( per tests ) +c +C-----------------------------------------------------------------C +C---------- PRINT EXECUTING VERSION --------------------------C + CALL EGS4T(LTYHIS) + CALL EGS4T(LTYOUT) +C. +C WRITE(LTYOUT,6080) +C 6080 FORMAT(1X,' ENTERING EGS4INIT ' ) +C +c -------------------------------------------------- +c zero some arrays ( for each region ) + do 1 i=1,mxreg + pcut(i)=0.0 + ecut(i)=0.0 + med(i)=0 +c ed azzero tutto il common /epersa/ con i final results + numerotot(i)=0 + numeropos(i)=0 + numeroele(i)=0 + numerogam(i)=0 + 1 continue +c il resto lo annullo in modo veloce: + numerofloat=(4+3*12)*mxreg ! numero di real da annullare in /epersa/ + call zero(numerofloat,esum(1)) +c +C zero tot energy + TOTKE = 0. ! solo cinetica + TOTEI = 0. ! compresa la massa +C +C-----READ RUNNING DATA ------------------------------------------C +C + READ(LTYDAT,*,ERR=700,END=700) NCASES, ICHAR, INIREG, EKIN +c WRITE(TLYOUT,7001) NCASES, ICHAR, INIREG, EKIN +c7001 FORMAT(' Numero di casi:',I3,' carica:',I2, +C 1 ' inizial.reg:',I2,' Ekin:',G15.5) + READ(LTYDAT,*,ERR=700,END=700) ITCTX, ISTSEED, ISTARTSEED +C + WRITE(LTYOUT,7002) ITCTX + WRITE(LTYHIS,7002) ITCTX + 7002 FORMAT(' print time each step ITCTX',I6) +C7000 FORMAT(3I10,E20.5) +C-- + WRITE(LTYOUT,6051) EKIN,NCASES,INIREG,ICHAR + WRITE(LTYHIS,6050) EKIN,NCASES,INIREG,ICHAR + 6050 FORMAT(1H ,' EKIN =',E20.3,3X,' NCASES = ',I8,3X,' INIREG=',I3, + A ' CHARGE = ',I3//) + 6051 FORMAT(' EKIN =',E20.3,3X,' NCASES = ',I8,3X,' INIREG=',I3, + A ' CHARGE = ',I3) +C-- +C-----------------------------------------------------------------C +C MEDIA TO BE PROCESSED IN HATCH ------------------------------C +C + READ(LTYDAT,*,ERR=700,END=700) NMED + WRITE(LTYHIS,5000) NMED + WRITE(LTYOUT,5000) NMED + 5000 FORMAT(/' Number of media:',I3) +C7002 FORMAT(I10) +C + DO 400 J=1,NMED + READ(LTYDAT,7004,ERR=700,END=700) (MEDIA(I,J),I=1,24) + 7004 FORMAT(24A1) + 400 CONTINUE + DO 402 J=1,NMED + READ(LTYDAT,*,ERR=700,END=700) + 1 MAT,PCUTletto(MAT),ECUTletto(MAT) +C7006 FORMAT(I10,2F10.3) + 402 CONTINUE +C----------------------- ADD TO THE E CUT THE MASS ENERGY -------C + WRITE(LTYOUT,5010) + WRITE(LTYHIS,5010) + 5010 FORMAT(2X,' Media',9X,' Material ',18X,' Pcut',10X,' Ecut') +C + DO 406 J=1,NMED + ECUTletto(J) = ECUTletto(J) + RM + WRITE(LTYHIS,6020) J, + 1(MEDIA(I,J),I=1,24),PCUTletto(J),ECUTletto(J) + WRITE(LTYOUT,6020) J, + 1 (MEDIA(I,J),I=1,24),PCUTletto(J),ECUTletto(J) + 6020 FORMAT(1X,I5,5X,24A1,2(3X,G12.4)) + 406 CONTINUE +c---------------------------------------------------------------C +C READ CYL GEOMETRY ----------------------------------------C +C NCYL = NUMBER OF CYL, SHELLS, ZMAX=HALF CYL. HEIGTH +C + READ(LTYDAT,*,ERR=700,END=700 ) NCYL,ZMAX +C + WRITE(LTYHIS,6010) NCYL,ZMAX + WRITE(LTYOUT,6010) NCYL,ZMAX + 6010 FORMAT(/' Number of cyls:',I5,5X,' Half cyl. height:',G12.4) +C + DO 500 K=1,NCYL + READ(LTYDAT,*,ERR=700,END=700) RTHICK(K),INDMAT(K) + 500 CONTINUE +C7020 FORMAT(2F10.0,I10) +C +C ........................ external radius for each zone +C zone 1 + RCYL(1)=RTHICK(1) + RCYLSQ(1)=RCYL(1)*RCYL(1) +C + WRITE(LTYOUT,5100) + WRITE(LTYHIS,5100) + 5100 FORMAT(' region deltaR',9X,'R',9X,'R**2',10X, + 1 ' material',22X,'pcut',9X,'ecut') + K=1 + WRITE(LTYHIS,6100) K,RTHICK(K),RCYL(K),RCYLSQ(K), + 1 INDMAT(K),(MEDIA(J,INDMAT(K)), J=1,24), + 2 PCUTletto(INDMAT(K)),ECUTletto(INDMAT(K)) + WRITE(LTYOUT,6100) K,RTHICK(K),RCYL(K),RCYLSQ(K), + 1 INDMAT(K),(MEDIA(J,INDMAT(K)), J=1,24), + 2 PCUTletto(INDMAT(K)),ECUTletto(INDMAT(K)) +C +C .............. zones 1... NCYL + DO 510 K=2,NCYL + RCYL(K)=RCYL(K-1)+RTHICK(K) + RCYLSQ(K)=RCYL(K)*RCYL(K) + WRITE(LTYHIS,6100) K,RTHICK(K),RCYL(K),RCYLSQ(K), + 1 INDMAT(K),(MEDIA(J,INDMAT(K)), J=1,24), + 2 PCUTletto(INDMAT(K)),ECUTletto(INDMAT(K)) + WRITE(LTYOUT,6100) K,RTHICK(K),RCYL(K),RCYLSQ(K), + 1 INDMAT(K),(MEDIA(J,INDMAT(K)), J=1,24), + 2 PCUTletto(INDMAT(K)),ECUTletto(INDMAT(K)) + 6100 FORMAT(1X,I4,3G12.4,3X,I3,1X,24A1,2G12.4) +C + 510 CONTINUE +C +C SELECT MAXIMUN RADIAL DIMENSION + RGRAPH = RTHICK(NCYL) ! mi serve ?????? +C +C---------------------------------------------------------------C +C fisso le grandezze per gli shower , via comm /misc/ e bounds +c pcutletto,ecutletto,indmat sono variabili locali +C + DO 600 K=1,NCYL + MED(K)=INDMAT(K) + pcut(k)=pcutletto(med(k)) + ecut(k)=ecutletto(med(k)) + 600 CONTINUE +C ....... REGION NCYL+1 TO MARK zone out of cyls, +c nyp regions for yaps, region ncyl+nyp+2 per le uscite +c ncyl+nyp+3 the collimator +c ncyl+nyl+4 uscite dai rivelatori +C all these are set in read_yaps +c NREG=NCYL+2+nyp +c MED(NCYL+2+nyp)=0 +C +C --------------------------------------- +C ....................... READS THE OUTPUT OPTIONS + READ(LTYDAT,*,ERR=700,END=700) NOUTFLAG1,NOUTFLAG2,NOUTFLAG3, + 1 NOUTFLAG4,NOUTFLAG5,NOUTFLAG6 + write(LTYout,7350) NOUTFLAG1,NOUTFLAG2,NOUTFLAG3, + 1 NOUTFLAG4,NOUTFLAG5,NOUTFLAG6 + 7350 format(' flag grafica interattiva =',I2/ + 1 ' flag stampa percorsi particelle =',i2/ + 2 ' flag produzione n-tuple =',I2/ + 2 ' flag produzione n-tuple rivelatori =',I2/ + 2 ' flag stampa attraversamento zone =',I2/ + 3 ' altri flags ( non usati ora ) =',I2) + IF(NOUTFLAG1.GT.0) THEN + N11INTER=11 + ELSE + N11INTER=0 + ENDIF + IF(NOUTFLAG2.GT.0.or.noutflag5.gt.0) THEN ! sets the logical unit number + N50PATHS=50 ! for paths printings + ELSE + N50PATHS=0 + ENDIF + IF(NOUTFLAG3.GT.0) THEN ! sets the logical unit number for + N51DECAY=51 ! e+ decay n-tuple + ELSE + N51DECAY=0 + ENDIF +C-----------------------------------------------------------------C +C DISTANCES WILL BE IN CM -----------------------------------C + DUNIT= 1.00 +C-----------------------------------------------------------------C +C--------------------------------------------------------------C +C +C DETERMINATION-OF-INCIDENT-PARTICLE-PROPERTIES +C INCIDENT PARTICLE IS A ELECTRON +C + IQI=ICHAR +C +C INCIDENT PARTICLE IS GENERATED IN REGION INIREG +C + IRI=INIREG +C +C WEIGHT FACTOR--------NOT USED IN CALCULATION, BUT +C IS A PARAMETER IN SUBROUTINE SHOWER; HENCE DEFINE +C AS UNITY +C + WTI=1.0 +C-----------------------------------------------------------C +C +C AN OUTPUTING PARAMETER, INVENTED TO MARK THE +C INCIDENT PARTICLES +C + ICODE=-1 +C +C-----------------------------------------------------------C +C + WRITE(LTYOUT,6081) + 6081 FORMAT(1X,' END OF EGS4INIT ' ) + RETURN +C--------------------------------------------------------------C + 700 WRITE(LTYOUT,6077) + 6077 FORMAT(1X,' ERROR DURING UNIT # 7 READ '//) + RETURN + END +c + subroutine zero(n,a) +c --------------------------- +c azzera un vettore +c -------------------------- + dimension a(n) + do 10 i=1,n + 10 a(i)=0.0 + return + end diff --git a/code/source/petgracom.for b/code/source/petgracom.for new file mode 100644 index 0000000..56c9aa2 --- /dev/null +++ b/code/source/petgracom.for @@ -0,0 +1,22 @@ +C + INTEGER*4 WKID ! workstation identifier + INTEGER*4 WTYPE ! workstation type + INTEGER*4 CONID ! connection identifier + INTEGER*4 ERR_FILE! unit number of the error file + INTEGER*4 TNFULL ! transformation number full screen viewport + INTEGER*4 TNVPTL ! transformation number Top Left viewport + INTEGER*4 TNVPTR ! transformation number Top Right viewport + INTEGER*4 TNVPBL ! transformation number Bottom Left viewport + INTEGER*4 TNVPBR ! transformation number Bottom Right viewport + + REAL*4 SCALE_X ! x y factor for workstation window and + REAL*4 SCALE_Y ! viewport for using the whole display + REAL*4 VPTL(4) ! points for the Top Left viewport + REAL*4 VPTR(4) ! points for the Top Right viewport + REAL*4 VPBL(4) ! points for the Bottom Left viewport + REAL*4 VPBR(4) ! points for the Bottom Right viewport +C + COMMON/PETGRA/ WKID,WTYPE,CONID,ERR_FILE, + * SCALE_X,SCALE_Y, + * TNFULL,TNVPTL,TNVPTR,TNVPBL,TNVPBR, + * VPTL,VPTR,VPBL,VPBR diff --git a/code/source/petgraf.for b/code/source/petgraf.for new file mode 100644 index 0000000..ebdfa83 --- /dev/null +++ b/code/source/petgraf.for @@ -0,0 +1,478 @@ +c + subroutine pg_init(chopt) +C +C pg_init ....... +C +C------------------------------------------------------------------------ +C + include 'petgraf_com.inc' +C +C------- +c + integer*4 iw,ih + character*2 chopt +C +c CALL MZPAW (NWPAW,'M') + + call Iginit (0) + call iopks (err_file) + call Igzset (chopt) + +C The following for the display size + + i=ixopnds(0,dummy) + if (i.eq.-1) write (6,*) '*** ERROR *** Cannot open Dispay' + call ixgetge (-1,ii,kk,iw,ih) + dspsize = jmin0 (iw,ih) + +C + return + end +C +C------------------------------------------------------------------------ +c + subroutine pg_open(kwkid,kwtype) +C +C pg_open ....... +C +C------------------------------------------------------------------------ +C + include 'petgraf_com.inc' +c +C------- +c + integer*4 conid + + call iopwk (kwkid,conid,kwtype) + return + end +C +C------------------------------------------------------------------------ +c + subroutine pg_open_name(kwkid,x0,y0,xw,yw,title) +C +C pg_open ....... +C +C------------------------------------------------------------------------ +C + include 'petgraf_com.inc' +c +C------- +c + integer*4 conid + character*20 filen + character*20 title + character*21 ttitle + integer*4 x0,y0 ! window's origin coordinates + integer*4 xw,yw ! window's dimensions + filen='higz_windows.dat' +C + lt=index(title,' ') + lt=lt+1 + ttitle='- '//title + open(unit=10,file=filen,form='formatted',status='new') + write (10,100)x0,y0,xw,yw,ttitle(1:lt) +100 format (4(1x,i4),1x,a) + close(10) + call iopwk (kwkid,conid,1) + open(unit=10,file=filen,form='formatted',status='old',dispose='delete') + close(10) + + return + end +C +C------------------------------------------------------------------------ +c + subroutine pg_close(kwkid) +C +C pg_close ....... +C +C------------------------------------------------------------------------ +C + include 'petgraf_com.inc' +c +C------- +C + real*4 status +C + call igqwk (kwkid,'OPEN',status) + if (status .eq. 0 .or. kwkid .eq. 0) return + call idawk (kwkid) + call iclwk (kwkid) + return + end +c +C------------------------------------------------------------------------ +c + subroutine pg_end() +C +C pg_close ....... +C +C------------------------------------------------------------------------ +C + include 'petgraf_com.inc' +c +C------- +C +c call Igend + + real*4 rval(11) + call igqwk (0,'NBWK',rval) + + do i=2,rval(1)+1 + j=rval(i) + call iclwk(j) + end do + call iclks + return + end +c +C +C------------------------------------------------------------------------ + subroutine pg_axis(tn,mdim) +C +C pg_axis ....... +C +C------------------------------------------------------------------------ +C + include 'petgraf_com.inc' +C +C------- +C + integer*4 tn + real*4 dim,mdim +C + + + tmsi=mdim/100. + dim=mdim/2. + call Igset ('TMSI',tmsi) + call iselnt (tn) + call Igaxis (-dim,dim,0.,0.,-dim,dim,5,'S+-') + call Igaxis (0.,0.,-dim,dim,-dim,dim,5,'S+-') + return + end +C +C------------------------------------------------------------------------ +c + subroutine pg_create_view(kwkid,title,dspfct,mdim) +C +C pg_create_view.... +C +C------------------------------------------------------------------------ +C + include 'petgraf_com.inc' +c +C------- +c + integer*4 kwkid,wsize + real*4 dspfct + character*(*) title + real*4 mdim ! dimensione in WC del lato quadranti + + real*4 vptl(4) ! points for the Top Left viewport + real*4 vptr(4) ! points for the Top Right viewport + real*4 vpbl(4) ! points for the Bottom Left viewport + real*4 vpbr(4) ! points for the Bottom Right viewport + + data vptl /0.05,0.45,0.55,0.95/ + data vptr /0.55,0.95,0.55,0.95/ + data vpbl /0.05,0.45,0.05,0.45/ + data vpbr /0.55,0.95,0.05,0.45/ + + + wsize = dspsize * dspfct + + call pg_open_name (kwkid,0,0,wsize,wsize,title) + call iscr (kwkid,1,0.,0.,0.) + call iscr (kwkid,2,1.,0.,0.) + call iacwk (kwkid) +c call iswkwn (kwkid,0.0,1.,0.0,1.) +c call iswkvp (kwkid,0.,wsize,0.,wsize) + call iselnt (0) + call Igbox (0.0,1.0,0.0,1.0) + call Igline (0.0,1.0,0.5,0.5) + call Igline (0.5,0.5,0.0,1.0) + + dim=mdim/2. + + call iacwk (kwkid) + + call iswn (tl,-dim,dim,-dim,dim) + call isvp (tl,vptl(1),vptl(2),vptl(3),vptl(4)) + call iswn (tr,-dim,dim,-dim,dim) + call isvp (tr,vptr(1),vptr(2),vptr(3),vptr(4)) + call iswn (bl,-dim,dim,-dim,dim) + call isvp (bl,vpbl(1),vpbl(2),vpbl(3),vpbl(4)) + call iswn (br,-dim,dim,-dim,dim) + call isvp (br,vpbr(1),vpbr(2),vpbr(3),vpbr(4)) + + call pg_axis (tl,mdim) + call pg_axis (tr,mdim) + call pg_axis (bl,mdim) +c call pg_axis (br,mdim) + + call iselnt (0) + + call igset ('PASS',10) + call igset ('CSHI',10) + call igtext (.25,.96,'Y',.02,0,'C') + call igtext (.48,.74,'X',.02,0,'C') + + call igtext (.75,.96,'Z',.02,0,'C') + call igtext (.98,.74,'Y',.02,0,'C') + + call igtext (.25,.46,'Z',.02,0,'C') + call igtext (.48,.24,'X',.02,0,'C') + + call iuwk (kwkid,1) + call idawk (kwkid) + return + end +C------------------------------------------------------------------------ +c + subroutine pg_refresh_view(kwkid,mdim) +C +C pg_create_view.... +C +C------------------------------------------------------------------------ +C + include 'petgraf_com.inc' +c +C------- +c + real*4 mdim ! dimensione in WC del lato quadranti + integer*4 kwkid + + call iacwk (kwkid) + call Igbox (0.0,1.0,0.0,1.0) + call Igline (0.0,1.0,0.5,0.5) + call Igline (0.5,0.5,0.0,1.0) + + dim=mdim/2. + + call pg_axis (tl,mdim) + call pg_axis (tr,mdim) + call pg_axis (bl,mdim) + + call iselnt (0) + + call igset ('PASS',10) + call igset ('CSHI',10) + call igtext (.25,.96,'Y',.02,0,'C') + call igtext (.48,.74,'X',.02,0,'C') + + call igtext (.75,.96,'Z',.02,0,'C') + call igtext (.98,.74,'Y',.02,0,'C') + + call igtext (.25,.46,'Z',.02,0,'C') + call igtext (.48,.24,'X',.02,0,'C') + + call iuwk (kwkid,1) + call idawk (kwkid) + return + end +C------------------------------------------------------------------------ + subroutine pg_trackxyzr(kwkid,p1,p2,party) +C +C pg_trackxyzr +C +C------------------------------------------------------------------------ +C + include 'petgraf_com.inc' +C------- + integer*4 kwkid,party,two + real*4 p1(3),p2(3),a(2),b(2) + integer*4 x,y,z + + data x /1/ + data y /2/ + data z /3/ + data two /2/ +C + call isclip(1) + call iacwk (kwkid) + call isln(party) + call isplci (2) + call iselnt(tl) + a(1)=p1(x) + a(2)=p2(x) + b(1)=p1(y) + b(2)=p2(y) + call ipl(two,a,b) + + call iselnt(tr) + a(1)=p1(y) + a(2)=p2(y) + b(1)=p1(z) + b(2)=p2(z) + call ipl(two,a,b) + + call iselnt(bl) + a(1)=p1(x) + a(2)=p2(x) + b(1)=p1(z) + b(2)=p2(z) + call ipl(two,a,b) + + + call isln (1) + call isplci (1) + call idawk (kwkid) + return + end +C +C------------------------------------------------------------------------ + subroutine pg_circle(kwkid,tn,xc,yc,r) +C +C pg_circlex ..... +C +C------------------------------------------------------------------------ +C + include 'petgraf_com.inc' +C------- + integer*4 tn + real*4 xc,yc,r +C + call iacwk (kwkid) + call iselnt(tn) + call Igarc(xc,yc,r,r,0,0) + call iuwk(kwkid,1) + call idawk (kwkid) + return + end +C------------------------------------------------------------------------ + subroutine pg_box(kwkid,tn,x1,x2,y1,y2) +C +C pg_circlex ..... +C +C------------------------------------------------------------------------ +C + include 'petgraf_com.inc' +C------- + integer*4 kwkid,tn + real*4 x1,x2 + real*4 y1,y2 +C + call iacwk (kwkid) + call iselnt(tn) + call Igbox(x1,x2,y1,y2) + call iuwk(kwkid,1) + call idawk (kwkid) + return + end + +C------------------------------------------------------------------------ + subroutine pg_graph(kwkid,title,n,x,y,dspfct) +C +C pg_graph ....... +C +C------------------------------------------------------------------------ +C + include 'petgraf_com.inc' +C------- + integer*4 n + real*4 x(500),y(500) +C + + integer*4 kwkid,nt,wsize,hsize + real*4 dspfct + character*(*) title + real*4 status + + + nt=kwkid + + wsize = dspsize * dspfct +c hsize = .75 * wsize + hsize = wsize + xmin=1.e23 + ymin=1.e23 + xmax=-1.e23 + ymax=-1.e23 + do i=1,n + xmin= min (xmin,x(i)) + xmax= max (xmax,x(i)) + ymin= min (ymin,y(i)) + ymax= max (ymax,y(i)) + end do + + call igqwk (kwkid,'OPEN',status) + if (status .eq. 0) then + call pg_open_name (kwkid,0,0,wsize,hsize,title) + else + call iclrwk (kwkid,1) + end if + call iacwk (kwkid) +c call iswkwn (kwkid,0.0,1.,0.0,1.) +c call iswkvp (kwkid,0.,wsize,0.,hsize) + call iswn (nt,xmin,xmax,ymin,ymax) + call isvp (nt,.1,.9,.1,.9) + + call iselnt (nt) + call Igraph (n,x,y,'CA') + call iuwk (kwkid,1) + call idawk (kwkid) + return + end + +C------------------------------------------------------------------------ + subroutine pg_hist(kwkid,caption,title,n,x,y,dspfct) +C +C pg_graph ....... +C +C------------------------------------------------------------------------ +C + include 'petgraf_com.inc' +C------- + integer*4 n + real*4 x(2),y(500) +C + + integer*4 kwkid,nt,nt1,wsize,hsize + real*4 dspfct + character*(*) title + character*(*) caption + real*4 status + + nt=kwkid + nt1=nt+100 + wsize = dspsize * dspfct +c hsize = .75 * wsize + hsize = wsize + ymin=1.e23 + ymax=-1.e23 + do i=1,n + ymin= min (ymin,y(i)) + ymax= max (ymax,y(i)) + end do + + + call igqwk (kwkid,'OPEN',status) + + if (status .eq. 0) then + call pg_open_name (kwkid,0,0,wsize,hsize,caption) + else + call iclrwk (kwkid,1) + end if + + call iacwk (kwkid) + call iswn (nt,x(1),x(2),ymin,ymax) + call isvp (nt,.1,.9,.1,.85) + call iselnt (nt) + call Ighist (n,x,y,'ABF') + + call iswn (nt1,0.,1.,0.,.15) + call isvp (nt1,.1,.9,.85,1.) + call iselnt (nt1) +c call istxci (2) + call igtext (.5,.07,title,.025,0,'C') +c call istxci (1) + + call iuwk (kwkid,1) + call idawk (kwkid) + return + end + + + diff --git a/code/source/petgraf.inc b/code/source/petgraf.inc new file mode 100644 index 0000000..3cdb524 --- /dev/null +++ b/code/source/petgraf.inc @@ -0,0 +1,18 @@ +C------ ENEA - INN-FIS ------------------------------------------------ +C +C INCLUDE FILE FOR PET GRAPHICS +C THIS FILE HAS TO BE INCLUDED AT THE BEGIN OF THE MAIN PROGRAM +C +C IT INCLUDES THREE FILE: +C +C PETGRAF_HIGZ.INC -> common for HIGZ package +C PETGRAF_COM.INC -> common for PETGRAF library +C PETGRAF_DATA.INC -> variables initialisation (DATA) +C +C------- ferriani stefano ---------------- CR 'Clementel' 1/8/1994 ---------- +C + + include 'PETGRAF_HIGZ.INC' + include 'PETGRAF_COM.INC' + include 'PETGRAF_DATA.INC' +C diff --git a/code/source/petgraf_com.inc b/code/source/petgraf_com.inc new file mode 100644 index 0000000..646d02a --- /dev/null +++ b/code/source/petgraf_com.inc @@ -0,0 +1,19 @@ +C------ ENEA - INN-FIS ------------------------------------------------ +C +C INCLUDE FILE FOR PET GRAPHICS +C +C IT CONTAINS the common for PETGRAF library +C +C------- ferriani stefano ---------------- CR 'Clementel' 1/8/1994 ---------- +C +C + INTEGER*4 ERR_FILE ! + INTEGER*4 DSPSIZE ! display size + INTEGER*4 TL ! transformation number Top Left viewport + INTEGER*4 TR ! transformation number Top Right viewport + INTEGER*4 BL ! transformation number Bottom Left viewport + INTEGER*4 BR ! transformation number Bottom Right viewport +c + COMMON /PETGRAFC/ ERR_FILE,DSPSIZE,TL,TR,BL,BR + +C diff --git a/code/source/petgraf_data.inc b/code/source/petgraf_data.inc new file mode 100644 index 0000000..8d22768 --- /dev/null +++ b/code/source/petgraf_data.inc @@ -0,0 +1,14 @@ +C------ ENEA - INN-FIS ------------------------------------------------ +C +C INCLUDE FILE FOR PET GRAPHICS +C +C IT CONTAINS the DATA for PETGRAF library variables +C +C------- ferriani stefano ---------------- CR 'Clementel' 1/8/1994 ---------- +C + DATA ERR_FILE /6/ + DATA TL /200/ + DATA TR /300/ + DATA BL /400/ + DATA BR /500/ +C diff --git a/code/source/petgraf_higz.inc b/code/source/petgraf_higz.inc new file mode 100644 index 0000000..5b1039c --- /dev/null +++ b/code/source/petgraf_higz.inc @@ -0,0 +1,11 @@ +C------ ENEA - INN-FIS ------------------------------------------------ +C +C INCLUDE FILE FOR PET GRAPHICS +C +C IT CONTAINS the common for HIGZ package +C +C------- ferriani stefano ---------------- CR 'Clementel' 1/8/1994 ---------- +C + PARAMETER (NWPAW=20000) + COMMON/PAWC/RPAW(NWPAW) +C diff --git a/code/source/petsub.for b/code/source/petsub.for new file mode 100644 index 0000000..ac42289 --- /dev/null +++ b/code/source/petsub.for @@ -0,0 +1,541 @@ +*C------------------------------------------------------------------------ + subroutine pg_init2() ! same as pginit, but no paw initializ. +C and no higz initializ. +C pg_init2 ....... +C +C------------------------------------------------------------------------ +C + include 'petgracom.for' +C +C------- + +C call Iginit (0) + call Igzset ('G') +C + return + end +*C------------------------------------------------------------------------ + subroutine pg_init1() ! same as pginit, but no paw initializ. +C +C pg_init1 ....... +C +C------------------------------------------------------------------------ +C + include 'petgracom.for' +C +C------- + + call Iginit (0) + call Igzset ('G') +C + return + end +C +*C------------------------------------------------------------------------ + subroutine pg_init(chopt) +C +C pg_init ....... +C +C------------------------------------------------------------------------ +C + include 'petgracom.for' +C +C------- + character*2 chopt + + call mzpaw (nh,'M') + call Iginit (0) + call Igzset (chopt) +C + return + end +C +C------------------------------------------------------------------------ + subroutine pg_open() +C +C pg_open ....... +C +C------------------------------------------------------------------------ +C + include 'petgracom.for' +C------- +c + call iopks (err_file) + call iopwk (wkid,conid,wtype) + call iacwk (wkid) +C + !mettere qui le inizializzazioni ! + return + end +C +C------------------------------------------------------------------------ + subroutine pg_close() +C +C pg_close ....... +C +C------------------------------------------------------------------------ +C + include 'petgracom.for' +C------- +C + call idawk(wkid) + call iclwk(wkid) + call iclks + call Izend(-1) + call Iginit(-1) + return + end +C------------------------------------------------------------------------ + subroutine pg_fullscreen() +C +C pg_fullscreen ....... +C +C------------------------------------------------------------------------ +C + include 'petgracom.for' +C------- + real*4 display_x,display_y + real*4 max_coord +C + call gqdsp(wtype,idummy,idummy,display_x,display_y,idummy,idummy) + max_coord = amax1 (display_x,display_y) + if ((display_x/max_coord) .eq. 1) then + scale_x=1.0 + scale_y=display_y/max_coord + else + scale_x=display_x/max_coord + scale_y=1.0 + endif +c call gswkwn(wkid,0.0,scale_x,0.0,scale_y) + call iswkwn(wkid,0.0,scale_x,0.0,scale_y) + call iswkvp(wkid,0.0,display_x,0.0,display_y) + return + end +C------------------------------------------------------------------------ + subroutine pg_setscreen(x0,y0,fact) +C +C pg_setscreen ....... +C +C------------------------------------------------------------------------ +C + include 'petgracom.for' +C------- + real*4 display_x,display_y + real*4 max_coord + real*4 x0,y0 ! screen coordinates of the origin + real*4 x,y ! screen coordinates of the origin + real*4 fact ! reduction factor of the screen +C + if (fact.lt.0) return + call gqdsp(wtype,idummy,idummy,display_x,display_y,idummy,idummy) + max_coord = amax1 (display_x,display_y) + if ((display_x/max_coord) .eq. 1) then + scale_x=1.0 + scale_y=display_y/max_coord + else + scale_x=display_x/max_coord + scale_y=1.0 + endif + scale_x=scale_x*fact + scale_y=scale_y*fact + x=x0*display_x + y=y0*display_y + if (x+fact*display_x.gt.display_x) x=0 + if (y+fact*display_y.gt.display_y) y=0 +c call gswkwn(wkid,0.0,scale_x,0.0,scale_y) + call iswkwn(wkid,0.0,scale_x,0.0,scale_y) + call iswkvp(wkid,x,x+fact*display_x,y,y+fact*display_y) + return + end +C------------------------------------------------------------------------ + subroutine pg_frames() +C +C pg_frames ....... +C +C------------------------------------------------------------------------ +C + include 'petgracom.for' +C------- +c + + call iswn(tnfull,0.,1.,0.,1.) + call isvp(tnfull,0.,1.*scale_x,0.,1.*scale_y) + call iselnt(tnfull) + call Igbox (0.0,1.0,0.0,1.0) + call Igline(0.0,1.0,0.5,0.5) + call Igline(0.5,0.5,0.0,1.0) + call guwk (wkid,GSUPPD) + return + end +C------------------------------------------------------------------------ + subroutine pg_initframe1(tn,xmax,ymax,cent,iso) +C +C pg_initframe ....... +C +C------------------------------------------------------------------------ +C + include 'petgracom.for' +C +C------- + integer*4 tn,cent,iso + real*4 xmax,ymax +c + ratio_vp=scale_x/scale_y + ratio_ob=xmax/ymax + + + if (iso.eq.1) then + if (ratio_vp.ge.1) then + if ( ratio_ob.le.1) then + y=ymax + x=y*ratio_vp + else if (ratio_vp.gt.ratio_ob) then + y=ymax + x=y*ratio_vp + else + x=xmax + y=x/ratio_vp + endif + end if + + if (ratio_vp.lt.1) then + if ( ratio_ob.gt.1) then + x=xmax + y=x/ratio_vp + else if (ratio_vp.gt.ratio_ob) then + y=ymax + x=y*ratio_vp + else + x=xmax + y=x/ratio_vp + endif + end if + else + x=xmax + y=ymax + endif + + if (tn.eq.tnvptl) then + vpx1=scale_x*vptl(1) + vpx2=scale_x*vptl(2) + vpy1=scale_y*vptl(3) + vpy2=scale_y*vptl(4) + + else if (tn.eq.tnvptr) then + vpx1=scale_x*vptr(1) + vpx2=scale_x*vptr(2) + vpy1=scale_y*vptr(3) + vpy2=scale_y*vptr(4) + else if (tn.eq.tnvpbl) then + vpx1=scale_x*vpbl(1) + vpx2=scale_x*vpbl(2) + vpy1=scale_y*vpbl(3) + vpy2=scale_y*vpbl(4) + else + vpx1=scale_x*vpbr(1) + vpx2=scale_x*vpbr(2) + vpy1=scale_y*vpbr(3) + vpy2=scale_y*vpbr(4) + endif + + if (cent.eq.1) then + x=x/2. + y=y/2. + call gswn(tn,-x,x,-y,y) + call iswn(tn,-x,x,-y,y) + else + call gswn(tn,0.,x,0.,y) + call iswn(tn,0.,x,0.,y) + endif + + call gsvp(tn,vpx1,vpx2,vpy1,vpy2)! the window and viewport data + call isvp(tn,vpx1,vpx2,vpy1,vpy2)! and I won't be able to retrieve + return ! them by the GQNT + end +C------------------------------------------------------------------------ + subroutine pg_axis(tn) +C +C pg_axis ....... +C +C------------------------------------------------------------------------ +C + include 'petgracom.for' +C +C------- +C + integer*4 tn + integer*4 ierr + real*4 dummy(4) + real*4 frame(4) +C + call gqnt(tn,ierr,frame,dummy) + call iselnt(tn) + tmsi=(frame(2)-frame(1))/100. + call Igset('TMSI',tmsi) + call Igaxis (frame(1),frame(2),0.,0.,frame(1),frame(2),5,'S+-') + tmsi=(frame(4)-frame(3))/100. + call Igset('TMSI',tmsi) + call Igaxis (0.,0.,frame(3),frame(4),frame(3),frame(4),5,'S+-') + call guwk (wkid,GSUPPD) + return + end + +C------------------------------------------------------------------------ + subroutine pg_graph(tn,n,x,y) +C +C pg_graph ....... +C +C------------------------------------------------------------------------ +C + include 'petgracom.for' +C------- + integer*4 tn,n + real*4 x,y +C + call iselnt(tn) + call Igraph(n,x,y,'LA') + call guwk (wkid,GSUPPD) + return + end + +C------------------------------------------------------------------------ + subroutine pg_hist(tn,n,x,y) +C +C pg_hist ....... +C +C------------------------------------------------------------------------ +C + include 'petgracom.for' +C------- + integer*4 tn,n + real*4 x,y +C + call iselnt(tn) + call Ighist(n,x,y,'AB') + call guwk (wkid,GSUPPD) + return + end + +C------------------------------------------------------------------------ + subroutine pg_circle(tn,xc,yc,r) +C +C pg_circlex ..... +C +C------------------------------------------------------------------------ +C + include 'petgracom.for' +C------- + integer*4 tn + real*4 xc,yc,r +C + call iselnt(tn) + call Igarc(xc,yc,r,r,0,0) + call guwk (wkid,GSUPPD) + return + end +C------------------------------------------------------------------------ + subroutine pg_box(tn,x1,x2,y1,y2) +C +C pg_circlex ..... +C +C------------------------------------------------------------------------ +C + include 'petgracom.for' +C------- + integer*4 tn + real*4 x1,x2 + real*4 y1,y2 +C + call iselnt(tn) + call Igbox(x1,x2,y1,y2) + call guwk (wkid,GSUPPD) + return + end + +C------------------------------------------------------------------------ + subroutine pg_trackxyzr(p1,p2,party) +C +C pg_trackxyzr +C +C------------------------------------------------------------------------ +C + include 'petgracom.for' +C------- + integer*4 party + real*4 p1(3),p2(3),a(2),b(2) + real*4 r + integer*4 x,y,z + + data x/1/ + data y/2/ + data z/3/ +C + call isln(party) + call iselnt(tnvptl) + a(1)=p1(x) + a(2)=p2(x) + b(1)=p1(y) + b(2)=p2(y) + call ipl(party,a,b) + + call iselnt(tnvptr) + r1=sqrt( p1(x)*p1(x) + p1(y)*p1(y)) + r2=sqrt( p2(x)*p2(x) + p2(y)*p2(y)) + if (p1(x).gt.0) then + a(1) = r1 + else + a(1)=-r1 + endif + if (p2(x).gt.0) then + a(2) = r2 + else + a(2)=-r2 + endif + b(1)=p1(z) + b(2)=p2(z) + + call ipl(party,a,b) + call isln(1) + call guwk (wkid,GSUPPD) + return + end +C------------------------------------------------------------------------ + subroutine pg_crimage(name) +C +C pg_crimage +C +C------------------------------------------------------------------------ +C + + include 'petgracom.for' +C------- + character* (*) name + + call Izpict(name,'M') + return + end +C------------------------------------------------------------------------ + subroutine pg_rdimage(name) +C +C pg_rdimage +C +C------------------------------------------------------------------------ +C + + include 'petgracom.for' +C------- + character* (*) name + + call Izpict(name,'D') + return + end +C------------------------------------------------------------------------ + subroutine pg_deimage(name) +C +C pg_deimage +C +C------------------------------------------------------------------------ +C + + include 'petgracom.for' +C------- + character* (*) name + + call Izpict(name,'S') + return + end + +C------------------------------------------------------------------------ + subroutine pg_initframe(tn,xmini,xmaxi,ymini,ymaxi,iso,cent) +C +C pg_initframe ....... +C +C------------------------------------------------------------------------ +C + include 'petgracom.for' +C +C------- + integer*4 tn,cent,iso + real*4 xmax,ymax + real*4 xmi,ymi + real*4 xma,yma +c + xmax=xmaxi-xmini + ymax=ymaxi-ymini + if (xmax.eq.0) xmax=1 + if (ymax.eq.0) ymax=1 + ratio_vp=scale_x/scale_y + ratio_ob=xmax/ymax + + + if (iso.eq.1) then + if (ratio_vp.ge.1) then + if ( ratio_ob.le.1) then + y=ymax + x=y*ratio_vp + else if (ratio_vp.gt.ratio_ob) then + y=ymax + x=y*ratio_vp + else + x=xmax + y=x/ratio_vp + endif + end if + + if (ratio_vp.lt.1) then + if ( ratio_ob.gt.1) then + x=xmax + y=x/ratio_vp + else if (ratio_vp.gt.ratio_ob) then + y=ymax + x=y*ratio_vp + else + x=xmax + y=x/ratio_vp + endif + end if + else + x=xmax + y=ymax + endif + + if (tn.eq.tnvptl) then + vpx1=scale_x*vptl(1) + vpx2=scale_x*vptl(2) + vpy1=scale_y*vptl(3) + vpy2=scale_y*vptl(4) + + else if (tn.eq.tnvptr) then + vpx1=scale_x*vptr(1) + vpx2=scale_x*vptr(2) + vpy1=scale_y*vptr(3) + vpy2=scale_y*vptr(4) + else if (tn.eq.tnvpbl) then + vpx1=scale_x*vpbl(1) + vpx2=scale_x*vpbl(2) + vpy1=scale_y*vpbl(3) + vpy2=scale_y*vpbl(4) + else + vpx1=scale_x*vpbr(1) + vpx2=scale_x*vpbr(2) + vpy1=scale_y*vpbr(3) + vpy2=scale_y*vpbr(4) + endif + + + + if (cent.eq.1) then + x=x/2. + y=y/2. + call gswn(tn,-x,x,-y,y) + call iswn(tn,-x,x,-y,y) + else + x=x-abs(xmini) + y=y-abs(ymini) + call gswn(tn,xmini, x, ymini, y) + call iswn(tn,xmini, x, ymini, y) + endif + call gsvp(tn,vpx1,vpx2,vpy1,vpy2)! the window and viewport data + call isvp(tn,vpx1,vpx2,vpy1,vpy2)! and I won't be able to retrieve + return ! them by the GQNT + end diff --git a/code/source/pg_comm.for b/code/source/pg_comm.for new file mode 100644 index 0000000..6f0a598 --- /dev/null +++ b/code/source/pg_comm.for @@ -0,0 +1,71 @@ +C------ ENEA - INN-FIS ------------------------------------------------ +C petgradef.for modified to be included in egs4_cyl : +C /pawc/ not included here +C /petgra / with :tnvpbl,tnvptl,tnvpbr,tnvptr +C in array tnvp(4) +C INCLUDE DECLARATION AND DEFINITIONS FOR MODULES OF PETGRA +C THIS SECTION SOULD BE INCLUDED AT THE BEGIN OF THE MAIN PROGRAM +C +C CONTENT: +C +C PAW COMMON --> COMMON/PAWC/ +C GRAPHIC ROUTINES COMMON --> COMMON/PETGRA/ +C +C------------------------------------ CRE Clementel 1/12/1993---------- +C +C PARAMETER (NG=100000,NH=10000) +C COMMON/PAWC/H(NH) +C + INTEGER*4 WKID ! workstation identifier + INTEGER*4 WTYPE ! workstation type + INTEGER*4 CONID ! connection identifier + INTEGER*4 ERR_FILE! unit number of the error file + INTEGER*4 TNFULL ! transformation number full screen viewport + + integer*4 tnvp ! contains the four numbers below: +c INTEGER*4 TNVPTL ! transformation number Top Left viewport +c INTEGER*4 TNVPTR ! transformation number Top Right viewport +c INTEGER*4 TNVPBL ! transformation number Bottom Left viewport +c INTEGER*4 TNVPBR ! transformation number Bottom Right viewport + + REAL*4 SCALE_X ! x y factor for workstation window and + REAL*4 SCALE_Y ! viewport for using the whole display + REAL*4 VPTL(4) ! points for the Top Left viewport + REAL*4 VPTR(4) ! points for the Top Right viewport + REAL*4 VPBL(4) ! points for the Bottom Left viewport + REAL*4 VPBR(4) ! points for the Bottom Right viewport + +C INTEGER*4 GAM, ELE, POS +C +C COMMON/PETGRA/ WKID,WTYPE,CONID,ERR_FILE, +C * SCALE_X,SCALE_Y, +C * TNFULL,TNVPTL,TNVPTR,TNVPBL,TNVPBR, +C * VPTL,VPTR,VPBL,VPBR + COMMON/PETGRA/ WKID,WTYPE,CONID,ERR_FILE, + * SCALE_X,SCALE_Y, + * TNFULL,TNVP(4), + * VPTL,VPTR,VPBL,VPBR + +c DATA WKID /1/ ! initialization mouved to calling program +c DATA CONID /0/ +c DATA WTYPE /0/ +c DATA ERR_FILE /6/ +c DATA SCALE_X /1./ +c DATA SCALE_Y /1./ +c DATA TNFULL /1/ +C DATA TNVPTL /10/ +C DATA TNVPTR /20/ +C DATA TNVPBL /30/ +C DATA TNVPBR /40/ +c DATA TNVP(1) /10/ +c DATA TNVP(2) /20/ +c DATA TNVP(3) /30/ +c DATA TNVP(4) /40/ +c DATA VPTL /0.05,0.45,0.55,0.95/ +c DATA VPTR /0.55,0.95,0.55,0.95/ +c DATA VPBL /0.05,0.45,0.05,0.45/ +c DATA VPBR /0.55,0.95,0.05,0.45/ +c DATA GAM /15/ +c DATA ELE /13/ +c DATA POS /12/ +C diff --git a/code/source/source_cyl_2.for b/code/source/source_cyl_2.for new file mode 100644 index 0000000..f7868ab --- /dev/null +++ b/code/source/source_cyl_2.for @@ -0,0 +1,41 @@ +c file source_CYL_2.FOR DEL 27-JUL-1994 + SUBROUTINE SOURCE_CYL +C-----------------------------------------------------------C +C GENERATES POINT LIKE , MONOENERGETIC , ISOTROPIC E+ BEAM +C +C C + INCLUDE 'COMM_CYLTOT_2.FOR' +C + PARAMETER PI = 3.1415292654 + PARAMETER PI2 = 2.*PI +C-----------------------------------------------------------C +C POINT SOURCE +C + ZI= 0.0 + XI= 0.0 + YI= 0.0 +C +C +C-----------------------------------------------------------C +C UNIFORM DISTRIBUTION IN POLAR COS THETA +C ( from -1 to 1 : up and down) +C +C COS THETA + WI = 2.* RNDM(IXX) - 1. +C +C SIN THETA + STH = SQRT(1.-WI*WI) +C +C UNIFORM DISTRIBUTION IN AZHYMUT ( FROM 0 TO 2*PI) +C + PHI = PI2*RNDM(IXX) + UI = STH*COS(PHI) + VI = STH*SIN(PHI) +C-----------------------------------------------------------C + EVKIN = EKIN ! input initial kinetic energy + TOTKE = TOTKE + EVKIN + EI = EVKIN + RM ! in shower call kinetic+rest mass given + TOTEI = TOTEI + EI ! totei is kinetic+rest mass + RETURN +C-----------------------------------------------------------C + END diff --git a/code/source/statend_cyl_2.for b/code/source/statend_cyl_2.for new file mode 100644 index 0000000..732879f --- /dev/null +++ b/code/source/statend_cyl_2.for @@ -0,0 +1,161 @@ +C file statend_cyl_2.for del 8-sept-94 + SUBROUTINE STATEND_CYL +C---------------------------------------------------------------C +C Stampa delle statistiche finali del run +C---------------------------------------------------------------C + INCLUDE 'COMM_CYLtot_2.FOR' + include 'comm_yaps.for' +C---------------------------------------------------------------C +C +C CALCULATE AND PRINT OUT THE FRACTION OF ENERGY +C DEPOSITED IN EACH REGION +C + ETOT=0.D0 + DO 91 I=1,Nreg + 91 ETOT=ETOT+ESUM(I) +c + WRITE(LTYHIS,8000) TOTEI,totke,ETOT,ishower-istseed+1 + WRITE(LTYOUT,8000) TOTEI,totke,ETOT,ishower-istseed+1 + 8000 FORMAT(//, + * ' ENERGIA TOTALE POSITRONI :=',G16.7,'MEV',/, + * ' ENERGIA CINETICA TOTALE :=',G16.7,'MEV',/ + * ' ENERGIA TOTALE DEPOSITATA :=',G16.7,'MEV',/ + * ' NUMERO POSITRONI :=', I12) + WRITE(LTYOUT,6110) ETOT/TOTEI + WRITE(LTYHIS,6110) ETOT/TOTEI + 6110 FORMAT(' ENERGIA INIZIALE/DEPOSITATA :=',G16.7///) +C ................... + DO 92 I=1,NREG + WRITE(LTYOUT,6100)I,ESUM(I)/ETOT*100.,ESUM(I) + WRITE(LTYHIS,6100)I,ESUM(I)/ETOT*100.,ESUM(I) + 6100 FORMAT(' % FRACTION IN REGION ',I3,'=',G16.7,' MEV:',G16.7) + 92 CONTINUE +C +C-----------------------------------------------------C + WRITE(LTYHIS,6111) + WRITE(LTYOUT,6111) + 6111 FORMAT(//' FRACTION OF ENERGY DEPOSITED IN EACH REGION'/ + 1 ' region',5X,' total ',10X,'e+',10X,'e-',10X,'gamma') + DO 94 I=1,Nreg + WRITE(LTYHIS,6102) I,ESUM(I)/ETOT, + 1 ESUMPOS(I)/ETOT, + 2 ESUMELE(I)/ETOT, + 3 ESUMGAM(I)/ETOT + WRITE(LTYOUT,6102) I,ESUM(I)/ETOT, + 1 ESUMPOS(I)/ETOT, + 2 ESUMELE(I)/ETOT, + 3 ESUMGAM(I)/ETOT +C + 6102 FORMAT(2X,I3,2X,4(1X,E12.2)) + 94 CONTINUE +C +C numero di particelle assorbite + WRITE(LTYHIS,6116) + WRITE(LTYOUT,6116) + 6116 FORMAT(//' Particelle assorbite in ogni regione'/ + 1 ' region',7X,' total ',10X,'e+',11X,'e-',10X,'gamma') + DO 96 I=1,Nreg + WRITE(LTYHIS,6106) I,numerotot(i),numeropos(i), + 1 numeroele(i),numerogam(i) + WRITE(LTYOUT,6106) I,numerotot(i),numeropos(i), + 1 numeroele(i),numerogam(i) +C + 6106 FORMAT(2X,I3,2X,4(1X,I12)) + 96 CONTINUE +C +c +c posizioni medie assorbimenti + write(ltyout,3001) + write(ltyhis,3001) + 3001 format(//' Posizione media energia assorbita:'/ + 1 1x,' zona ',3x,' x medio',11x,'y medio',11x,'z medio') + 3000 format(2x,I3,2x,3(2x,G15.5)) +c + do 10 i=1,ncyl+1 +c + if(esum(i).ne.0.0) then + esdii=esum(i) + else + esdii=1. + endif +c + write(ltyout,3000)i,dexm(i)/esdii,deym(i)/esdii,dezm(i)/esdii + write(ltyhis,3000)i,dexm(i)/esdii,deym(i)/esdii,dezm(i)/esdii + 10 continue + i=ncyl+1+nyp+1 ! zona che rappresenta le fughe dal sistema + if(esum(i).ne.0.0) then + esdii=esum(i) + else + esdii=1. + endif + write(ltyout,3000)i,dexm(i)/esdii,deym(i)/esdii,dezm(i)/esdii + write(ltyhis,3000)i,dexm(i)/esdii,deym(i)/esdii,dezm(i)/esdii + i=ncyl+1+nyp+1+1 ! collimatori + if(esum(i).ne.0.0) then + esdii=esum(i) + else + esdii=1. + endif + write(ltyout,3000)i,dexm(i)/esdii,deym(i)/esdii,dezm(i)/esdii + write(ltyhis,3000)i,dexm(i)/esdii,deym(i)/esdii,dezm(i)/esdii +c + if(nyp.gt.0) then + write(ltyout,2001) + write(ltyHis,2001) + 2001 format(//' Posizione media assorbimenti nei rivelatori'/ + 1 ' zona riv.',2x,' x medio',8x,' +- ', + 2 7x,' y medio',8x,' +- ', + 3 7x,' z medio',8x,' +- ') + do 20 i=1,nyp + +c divido le somme per l'energia, per far le medie + if(esum(i+ncyl+1).ne.0.0) then + esumii=esum(i+ncyl+1) + else + esumii=1. + endif +c + dexmypi(i)=dexmypi(i)/esumii + deymypi(i)=deymypi(i)/esumii + dezmypi(i)=dezmypi(i)/esumii + desxmypi(i)=desxmypi(i)/esumii + desymypi(i)=desymypi(i)/esumii + deszmypi(i)=deszmypi(i)/esumii +c xsigma=sqrt(desxmypi(i)-dexmypi(i)**2) +c ysigma=sqrt(desymypi(i)-deymypi(i)**2) +c zsigma=sqrt(deszmypi(i)-dezmypi(i)**2) + xsigma=(desxmypi(i)-dexmypi(i)**2) ! ho valori negativi + if(xsigma.ge.0.0) then ! in caso di differenze fra + xsigma=sqrt(xsigma) ! valori piccoli + else + xsigma=-sqrt(-xsigma) + endif + ysigma=(desymypi(i)-deymypi(i)**2) + if(ysigma.ge.0.0) then + ysigma=sqrt(ysigma) + else + ysigma=-sqrt(-ysigma) + endif + zsigma=(deszmypi(i)-dezmypi(i)**2) + if(zsigma.ge.0.0) then + zsigma=sqrt(zsigma) + else + zsigma=-sqrt(-zsigma) + endif + write(ltyout,2000) i+ncyl+1,i,dexmypi(i),xsigma, + 1 deymypi(i),ysigma, + 1 dezmypi(i),zsigma + write(ltyhis,2000) i+ncyl+1,i,dexmypi(i),xsigma, + 1 deymypi(i),ysigma, + 1 dezmypi(i),zsigma + 2000 format(1x,2I4,6(1x,G15.5)) + 20 continue + endif +c +C----------------------------------------------------- + RETURN +C-----------------------------------------------------C + END + + + diff --git a/code/source/yaps.for b/code/source/yaps.for new file mode 100644 index 0000000..4eefdeb --- /dev/null +++ b/code/source/yaps.for @@ -0,0 +1,320 @@ +C file Yaps.for - Vers.: 12-sept-1994 + SUBROUTINE READ_YAPS +C -------------------------------------------------------------- +C legge dal file 13 : YAPS.DAT : la geometria dei rivelatori +C -------------------------------------------------------------- +C + include 'comm_yaps.for' +c + INCLUDE 'COMM_CYLtot_2.FOR' + +C --------------------------------------- +C +c n13=13 ! file da cui si legge la geometria del rivelatore +c character*20 infile /'YAPS.DAT'/ ! nome del file +c + parameter pi=3.14159265358979 + rad(a)=a*0.0174532925 + grad(a)=a* 57.29578 +c +C +C ....................... lettura input della geometria dei rivelatori +C non viene testato che i rivelatori non si +C intersechino. +c open(unit=n13,file=infile,form='formatted',status='old',err=501) +c il nome del file si fissa con assign/user nella procedura che fa il run + open(unit=n13,form='formatted',status='old',err=501) +C NOTA: in input le dimensioni, entro il programma dimensioni/2 + read(n13,*,err=502) nyp,ryp,zyp,dxyp,dyyp,dzyp,mezzo,mezzoyap + read(n13,*,err=502) angcol,escono +c + angcolrad=rad(angcol) ! angolo limite per il coll. in radianti +c + if(nyp.eq.0) then ! niente rivelatori + med(ncyl+1)=0 ! vuoto zona fuori cilindri + nreg=ncyl+1 + return + else + med(ncyl+1)=mezzo ! mezzo zona fuori cilindri + endif +c + dxyp=dxyp*0.5 + dyyp=dyyp*0.5 + dzyp=dzyp*0.5 +c + if(nyp.gt.0) then ! il programma si arrangia a sistemarli +C i rivelatori sono tutti eguali +C + if(ryp.le.0.) then ! cerca di calcolarselo + ryp=dyyp/tan(pi/real(nyp)) + write(ltyout,*)' raggio anello dei rivelatori',ryp + endif + if(abs(zyp).gt.zmax) then + write(ltyout,*) ' WARNING: zyp > zmax:',zmax +c zyp=0.0 + endif + if(dxyp.le.0.0) then + write(ltyout,*)' WARNING: wrong yap x half-dim.:',dxyp + dxyp=0.1 + endif + if(dyyp.le.0.0) then + write(ltyout,*)' WARNING: wrong yap y half-dim.:',dyyp + dyyp=0.1 + endif + if(dzyp.le.0.0) then + write(ltyout,*)' WARNING: wrong yap z half-dim.:',dzyp + dzyp=0.1 + endif +c dispone i rivelatori attorno al cilindro, ad angoli eguali + deltaang=2*pi/nyp +C ................ definisce le posizioni dei singoli rivelatori + do 20 i=1,nyp + rypi(i)=ryp + zypi(i)=zyp + angypi(i)=(i-1)*deltaang + dxypi(i)=dxyp + dyypi(i)=dyyp + dzypi(i)=dzyp + med(i+ncyl+1)=mezzoyap + 20 continue +C + else ! ( NYP <0 ) in questo caso si danno i rivelatori uno per uno +C + do 10 i=1,nypmax + read(n13,*,err=502,end=100)a1,a2,a3,a4,a5,a6,mezzoypi + rypi(i)=a1 + zypi(i)=a2 + angypi(i)=rad(a3) ! l'angolo e' dato in input in gradi + dxypi(i)=a4 *0.5 + dyypi(i)=a5 *0.5 + dzypi(i)=a6 *0.5 + nyp=i ! QUI CALCOLA IL NUMERO DI YAPS +C ! NYP DIVENTA POSITIVO + if(mezzoypi.gt.0.and.mezzoypi.le.nmed) then ! se lo dice qui lo + med(i+ncyl+1)=mezzoypi ! prende per buono + else ! altrimenti usa quello + med(i+ncyl+1)=mezzoyap ! sopra per i yaps + endif +c + 10 continue +c + write(ltyout,*) ' WARNING: max number of yaps reached:',nypmax + + 100 continue +c + close(unit=n13) +C + endif ! ( su nyp < > 0 ( quando e' qui e' sempre >0 ) +C ................ Calcolo del centro dei singoli rivelatori +C e' r+dx/2 , cerco il centro, non il centro della +C faccia interna. + do 30 i=1,nyp + x0ypi(i)=(dxypi(i)+rypi(i))*cos(angypi(i)) + y0ypi(i)=(dxypi(i)+rypi(i))*sin(angypi(i)) + z0ypi(i)=zypi(i) +C ........ trasformazione: +c coordinate sistema yap=trasf * (coord sistema cilindro-(x0,y0,z0ypi)) +C + trasf(1,1,i)=cos(angypi(i)) ! versore xyap * versore x + trasf(1,2,i)=sin(angypi(i)) ! xyap * y + trasf(1,3,i)=0.0 ! xyap * z (no tilt assumed) + trasf(2,1,i)=-sin(angypi(i)) ! versore yyap * versore x + trasf(2,2,i)=cos(angypi(i)) ! yyap * y + trasf(2,3,i)=0.0 ! yyap * z + trasf(3,1,i)=0.0 ! versore zyap * versore x + trasf(3,2,i)=0.0 ! zyap * y + trasf(3,3,i)=1.0 ! zyap * z +c +c posizione del centro del cilindro: (0,0,0) nel sistema dei rivelatori: +c call inyapsys(i,0.0,0.0,0.0,xorigypi(i),yorigypi(i),zorigypi(i)) +C in realta' e' tutto piu' semplice, la geometria e' semplificata: + xorigypi(i)=-(rypi(i)+dxypi(i)) + yorigypi(i)=0. + zorigypi(i)=z0ypi(i) +C + 30 continue +c +C ....................... cerca il valore massimo di R entro cui +C sono inclusi tutti i rivelatori +c ed il valor massimo di z +c anche qui si sfrutta il fatto che la geometria e' semplificata + zultimo=zypi(1)+dzypi(1) + rultimo=(rypi(1)+2.*dxypi(1))**2 + + 1 dyypi(1)**2 ! e' lo spigolo estremo del yap nel piano x-y +c rultimo=(rypi(1)+2.*dxypi(1))**2 + dyypi(1)**2 + do 40 i=2,nyp + rcorrente=(rypi(i)+2.*dxypi(i))**2 +c rcorrente=(rypi(i)+2.*dxypi(i))**2 + dyypi(i)**2 + zcorrente=zypi(i)+dzypi(i) + if(zcorrente.gt.zultimo) zultimo=zcorrente + if(rcorrente.gt.rultimo) rultimo=rcorrente + 40 continue + zultimo=max(zmax,zultimo) ! e' il limite max di tutto il sistema + rultimosq=rultimo + rultimo=sqrt(rultimo) + upperlimite=rultimosq+zultimo**2 ! un limite upper per il sistema +C ................................ + 500 continue +c + med(ncyl+2+nyp)=0 ! vuoto fuori di tutto + nreg=ncyl+3+nyp ! collimatore= pseudo-zona vuota + med(nreg)=0 ! + nreg=ncyl+4+nyp ! numero regioni totali + med(nreg)=0 ! uscite dai rivelatori : pseudo-zona vuota. +c la regione nreg=ncyl+2+ nyp sono le fughe +c la regione nreg=ncyl+3+nyp e' il collimatore +c la regione nreg=ncyl+4+nyp sono le part. che +c escono dai rivelatori +c + WRITE(LTYHIS,4998) ncyl+1,mezzo,(media(j,mezzo),j=1,24) + WRITE(LTYOUT,4998) ncyl+1,mezzo,(media(j,mezzo),j=1,24) + 4998 format(/' Zona numero:',I3,' coi rivelatori: mezzo:',I3,1x,24A1) + WRITE(LTYHIS,5000) + WRITE(LTYOUT,5000) + 5000 FORMAT(/' RIVELATORI :'/ + 1 1x,' N.,zona, r , z , ang ,', + 2 ' dx , dy , dz , materiale ') + 5002 format(1x,I2,1x,I3,1x,6(1x,F7.3),I3,1x,24a1) + DO 50 I=1,NYP + WRITE(LTYHIS,5002) I,NCYL+1+I,rypi(i),zypi(i), + 1 grad(angypi(i)),2.*dxypi(i),2.*dyypi(i),2.*dzypi(i), + 2 med(i+1+ncyl),(media(j,med(i+1+ncyl)),j=1,24) + WRITE(LTYOUT,5002) I,NCYL+1+I,rypi(i),zypi(i), + 1 grad(angypi(i)),2.*dxypi(i),2.*dyypi(i),2.*dzypi(i), + 2 med(i+1+ncyl),(media(j,med(i+1+ncyl)),j=1,24) + 50 continue + WRITE(LTYHIS,5004) ncyl+nyp+2,zultimo,rultimo + WRITE(LTYOUT,5004) ncyl+nyp+2,zultimo,rultimo + 5004 format(/' Zona numero:',I3,' rappresenta le fughe: vuota'/ + 1 ' limite z del sistema:',F7.3/ + 1 ' limite r del sistema:',F7.3) +c + if(angcol.gt.0.0) then + WRITE(LTYOUT,5006) ncyl+nyp+3, angcol,angcolrad + WRITE(LTYHIS,5006) ncyl+nyp+3, angcol,angcolrad + 5006 format(/' Zona numero:',I3,' rappresenta assorbimenti del' + 1 ' collimatore : vuota'/ + 2 ' angolo limite del collimatore:',F7.3,' in rad.:',F7.3) + else + WRITE(LTYHIS,5008) angcol,nreg + WRITE(LTYOUT,5008) angcol,nreg + 5008 format(/' Non c''e'' collimatore: angolo=',F7.3, + 1 ' regioni:',i3) + endif +c + WRITE(LTYOUT,5009) ncyl+nyp+4, escono + WRITE(LTYHIS,5009) ncyl+nyp+4, escono + 5009 FORMAT(/' La zona:',I5,' rappresenta le uscite', + 1 ' dai rivelatori. Flag uscite:',F7.3) + WRITE(LTYOUT,5010) nreg + WRITE(LTYHIS,5010) nreg + 5010 format(/' Numero totale di regioni :',I5) +c ---------------------------------------------- +c + return +c + 501 continue + write(ltyhis,*) ' OPEN ERROR! rivelatore ignorato, file:',infile + write(ltyout,*) ' OPEN ERROR! rivelatore ignorato, file:',infile + nyp=0 + med(ncyl+1)=0 ! vuoto zona fuori cilindri + nreg=ncyl+1 ! numero regioni + return + 502 continue + write(ltyout,*) ' READ ERROR! rivelatore ignorato, file:',infile + write(ltyhis,*) ' READ ERROR! rivelatore ignorato, file:',infile + nyp=0 + med(ncyl+1)=0 ! vuoto zona fuori cilindri + nreg=ncyl+1 ! numero regioni + return + end +c + subroutine inyapsys(k,xin,yin,zin,xout,yout,zout) +C ---------------------------------------------------------------- +C trasforma un vettore xin,yin,zin del sistema di riferimento del +C cilindro in un vettore xout,yout,zout nel sistema di riferimento +C del rivelatore kesimo +C Anche qui si sfrutta il fatto che la geometria e' semplice.... +C ----------------------------------------------------------------- + include 'COMM_YAPS.FOR' +C + xout= trasf(1,1,k) * xin + + 1 trasf(1,2,k) * yin + + 2 trasf(1,3,k) * zin + yout= trasf(2,1,k) * xin + + 1 trasf(2,2,k) * yin + + 2 trasf(2,3,k) * zin +c zout= trasf(3,1,k) * xin + +c 1 trasf(3,2,k) * yin + +c 2 trasf(3,3,k) * zin + zout=zin ! visto come e' messo il yap ..... +c +c sicome lo yap e' tangente il cilindro lo shift e' +c facile da calcolare, basta togliere ad x rypi+dxypi, +c cioe' aggiungere xorigypi(k); +c qui sono appena piu' generale .... + xout=xout+xorigypi(k) +c yout=yout+yorigypi(k) +c zout=zout+zorigypi(k) +c + return + end + subroutine incylsys(k,xin,yin,zin,xout,yout,zout) +C ---------------------------------------------------------------- +C trasforma un vettore xin,yin,zin del sistema di riferimento del +C YAP K esimo in un vettore xout,yout,zout nel sistema di riferimento +C del cilindro ( usa la trasposta della trasformazione inyapsys ) +C ----------------------------------------------------------------- + include 'COMM_YAPS.FOR' +C + xout= trasf(1,1,k) * xin + + 1 trasf(2,1,k) * yin + + 2 trasf(3,1,k) * zin + yout= trasf(1,2,k) * xin + + 1 trasf(2,2,k) * yin + + 2 trasf(3,2,k) * zin +c zout= trasf(1,3,k) * xin + +c 1 trasf(2,3,k) * yin + +c 2 trasf(3,3,k) * zin + zout=zin ! visto come e' messo il yap ..... +c +c sicome lo yap e' tangente il cilindro lo shift e' +c facile da calcolare, basta aggiungere ad x rypi+dxypi, +c cioe' togliere xorigypi; +c qui sono appena piu' generale .... + xout=xout-xorigypi(k) +c yout=yout-yorigypi(k) +c zout=zout-zorigypi(k) +c + return + end + subroutine incylsys0(k,xin,yin,zin,xout,yout,zout) +C ---------------------------------------------------------------- +C Come incylsys, ma ruota solo, non trasla. +c Ruota un vettore xin,yin,zin, del sistema del +C il YAP K esimo ruota nel vettore xout,yout,zout nel sistema +c di riferimento del cilindro +C ----------------------------------------------------------------- + include 'COMM_YAPS.FOR' +C + xout= trasf(1,1,k) * xin + + 1 trasf(2,1,k) * yin + + 2 trasf(3,1,k) * zin + yout= trasf(1,2,k) * xin + + 1 trasf(2,2,k) * yin + + 2 trasf(3,2,k) * zin +c zout= trasf(1,3,k) * xin + +c 1 trasf(2,3,k) * yin + +c 2 trasf(3,3,k) * zin + zout=zin ! visto come e' messo il yap ..... +c +c sicome lo yap e' tangente il cilindro lo shift e' +c facile da calcolare, basta aggiungere ad x rypi+dxypi, +c cioe' togliere xorigypi; +c qui sono appena piu' generale .... +c xout=xout-xorigypi(k) +c yout=yout-yorigypi(k) +c zout=zout-zorigypi(k) +c + return + end diff --git a/codemeta.json b/codemeta.json new file mode 100644 index 0000000..d65f066 --- /dev/null +++ b/codemeta.json @@ -0,0 +1,43 @@ +{ + "@context": "https://doi.org/10.5063/schema/codemeta-2.0", + "@type": "SoftwareSourceCode", + "name": "EGS4CYL", + "description": "A Montecarlo software for PET equipment simulation, based on EGS4." + "codeRepository": "http://legacy.helldragon.eu/gitweb/egs4cyl.git", + "downloadUrl": "git://legacy.helldragon.eu/egs4cyl.git", + "programmingLanguage": "FORTRAN 77", + "operatingSystem": "VAX-VMS" + "license": "Public domain", + "dateCreated":"1994-12-01", + "datePublished":"1995-11-01", + "developmentStatus": "Unsupported", + "creativeWorkStatus": "Legacy software" + "keywords": [ + "egs4", + "software", + "montecarlo", + "PET" + ], + "author": [ + { + "@type": "Person", + "givenName": "Stefano", + "familyName": "Ferriani", + "email": "stefano.ferriani@enea.it", + }, + { + "@type": "Person", + "givenName": "Marcello", + "familyName": "Galli", + "email": "marcello.galli@enea.it", + "@id": "https://orcid.org/0000-0002-9135-3228" + }, + { + "@type": "Person", + "givenName": "Dante", + "familyName": "Bollini", + "email": "marcello.galli@enea.it", + "@id": "https://orcid.org/0000-0002-9135-3228" + } + ] +}