--- /dev/null
+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
--- /dev/null
+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/).
--- /dev/null
+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
+
+-------------------------------------------------
+
+
--- /dev/null
+ 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
--- /dev/null
+ 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
+--------------------------------
--- /dev/null
+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
--- /dev/null
+ 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
--- /dev/null
+ 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
--- /dev/null
+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
--- /dev/null
+
+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.
--- /dev/null
+ ***** ERROR in IACWK : Workstation is not open
--- /dev/null
+%NONAME-W-NOMSG, Message number 00000000
+%TRACE-W-TRACEBACK, symbolic stack dump follows
+module name routine name line rel PC abs PC\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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\r
+
+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
--- /dev/null
+ PACKAGE COMPILED FROM PAM FILE=
+ EGS4CR 2.00 850503 15.00
+
+
+ OPEN ERROR! rivelatore ignorato, file: 0
--- /dev/null
+ 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
--- /dev/null
+ 0 0 0 0 -
--- /dev/null
+ 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
--- /dev/null
+ 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
--- /dev/null
+*** 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
--- /dev/null
+ 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
--- /dev/null
+$ 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
+\r
+ 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
--- /dev/null
+$ 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
+\r
+ 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
--- /dev/null
+ -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
--- /dev/null
+ 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
+
+
--- /dev/null
+$! 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 ..."
--- /dev/null
+$! 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
+$!
--- /dev/null
+$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
+
--- /dev/null
+$! 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
--- /dev/null
+$! 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
--- /dev/null
+$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
--- /dev/null
+$! 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
--- /dev/null
+$set display/create/node='p1'/transport=tcpip/server=0
--- /dev/null
+ 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
+
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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 ------------------------------------------------------------------
--- /dev/null
+ 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
--- /dev/null
+ 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<IB=',I5)
+ END IF
+ B=BGB0(IB)+BLC*(BGB1(IB)+BLC*BGB2(IB))
+ END IF
+C NOW GET REDUCING ANGLE=[CHI-SUB-C]*SQRT(B);
+C BUT [CHI-SUB-C]=XCC(MEDIUM)*SQRT(VSTEFF)/($EMS*BETA2);
+C NOW SET B-INVERSE,BI THAT WILL BE USED IN SAMPLING
+C BI MUST NOT BE LARGER THAN 1./LAMBDA=1/2
+ XR=XCC(MEDIUM)*SQRT(VSTEFF*B)/(EOLD*BETA2)
+ IF ((B.GT.2.0)) THEN
+ BI=1./B
+ ELSE
+ BI=0.5
+ END IF
+C THE ALPHA'S FOR THE FACTORIZATION ARE
+C MU=1
+C LAMBDA=2
+C G2NORM=1.8
+C G3NORM=4.05
+C C1=MU*G2NORM=1.8
+C C2=G3NORM/(2*MU**2)=2.025
+C ALP1=1-LAMBDA/B=1-2/B
+C ALP2=C1/B=1.8/B
+C ALP3=C2/B=2.025/B
+C ALP1+ALP2+ALP3=1+(2.025+1.8-2.)/B
+C =1+1.825/B
+C ALP1+ALP3=1+0.025/B
+ BMD=1.0+1.75*BI
+ BM1=(1.0-2.0/B)/BMD
+ BM2=(1.0+0.025*BI)/BMD
+831 CONTINUE
+C THIS LOOP IS FOR BETHE CORRECTION FACTOR REJECTION
+C OR OTHER REJECTION
+C GAUSSIAN, F0
+ RMS1=RNDM(IXX)
+ IF ((RMS1.LE.BM1)) THEN
+ RMS2=RNDM(IXX)
+ IF ((RMS2.EQ.0.0)) THEN
+ RMS2=1.E-30
+ END IF
+ THR=SQRT(AMAX1(0.,-ALOG(RMS2)))
+C TAIL,F3
+ ELSE IF((RMS1.LE.BM2)) THEN
+ RMS3=RNDM(IXX)
+ RMS4=RNDM(IXX)
+ ETA=AMAX1(RMS3,RMS4)
+C NOW EVALUATE REJECTION FUNCTION, G3(ETA)
+ I31=B0G31+ETA*B1G31
+ G31=G310(I31)+ETA*(G311(I31)+ETA*G312(I31))
+ I32=B0G32+ETA*B1G32
+ G32=G320(I32)+ETA*(G321(I32)+ETA*G322(I32))
+ G3=G31+G32*BI
+ RMS5=RNDM(IXX)
+ IF((RMS5.GT.G3))GO TO831
+ THR=1.0/ETA
+C CENTRAL CORRECTION, F2
+ ELSE
+ RMS6=RNDM(IXX)
+ THR=RMS6
+C COMPUTE REJECTION FUNCTION, G2
+ I21=B0G21+THR*B1G21
+ G21=G210(I21)+THR*(G211(I21)+THR*G212(I21))
+ I22=B0G22+THR*B1G22
+ G22=G220(I22)+THR*(G221(I22)+THR*G222(I22))
+ G2=G21+G22*BI
+ RMS7=RNDM(IXX)
+ IF((RMS7.GT.G2))GO TO831
+ END IF
+C THR IS NOW THE REDUCED ANGLE. NOW GET THE REAL ANGLE
+ THETA=THR*XR
+ IF((THETA.GE.PI))GO TO831
+C TRY AGAIN IF ] 180 DEGREES
+ SINTHE=SIN(THETA)
+C THE ABOVE LINE SETS SINTHE=SIN(THETA)
+ RMS8=RNDM(IXX)
+ IF(((RMS8**2*THETA.LE.SINTHE)))GO TO832
+ GO TO 831
+832 CONTINUE
+C BETHE CORRECTION FACTOR
+ CTHET=PI5D2-THETA
+ COSTHE=SIN(CTHET)
+C COSTHE=COS(THETA)
+ RETURN
+C END OF SUBROUTINE MSCAT
+ END
+ SUBROUTINE PAIR
+C VERSION 4.XX -- 7 MAR 1985/2345
+C ******************************************************************
+C FOR A PHOTON ENERGY LESS THAN 2.1 MEV, THE APPROXIMATION IS
+C MADE THAT ONE PAIR ELECTRON (OR POSITRON) HAS ONLY ITS REST
+C MASS ENERGY. FOR PHOTON ENERGY BETWEEN 2.1 MEV AND 50 MEV THE
+C BETHE-HEITLER CROSS SECTION IS EMPLOYED. ABOVE 50 MEV THE
+C COULOMB CORRECTED BETHE-HEITLER CROSS SECTION IS USED.
+C (BUTCHER AND MESSEL, OP. CIT., P. 17-19, 22).
+C ******************************************************************
+ DOUBLE PRECISION PEIG,PESE1,PESE2
+ 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/;
+ PEIG=E(NP)
+C PRECISE ENERGY OF INCIDENT GAMMA
+C ENERGY OF INCIDENT GAMMA
+ EIG=PEIG
+ IF ((EIG.LE.2.1)) THEN
+C BELOW 2.1,USE APPROXIMATION
+ ESE2=PRM
+C ENERGY OF SECONDARY 'ELECTRON' #2
+C ABOVE 2.1, MUST SAMPLE
+C DECIDE WHETHER TO USE BETHE-HEITLER(LVX=1,LVL=1,3) OR
+C COULOMB CORRECTED(LVX=2,LVL=4,6) CROSS SECTIONS.
+C SEE RELATED COMMENTS IN BREMS.
+ ELSE
+ IF (EIG.LT.50.) THEN
+ LVX=1
+ LVL0=0
+ ELSE
+ LVX=2
+ LVL0=3
+ END IF
+C RETRY IF REJECTED BECAUSE DEL OUT OF RANGE, OR BY SCREENING
+841 CONTINUE
+ RNNO30=RNDM(IXX)
+C WE'LL NEED AT LEAST ONE RANDOM NUMBER
+C NOW DECIDE WHICH OF THE TWO SUBDISTRIBUTIONS TO USE.
+C USE THE SUBDISTRIBUTION THAT IS
+ RNNO31=RNDM(IXX)
+ IF ((RNNO31.GE.BPAR(LVX,MEDIUM))) THEN
+C PROPORTIONAL TO 12*(BR-0.5)**2. IT USES A(DELTA) FOR
+C SCREENING FUNCTION.
+ LVL=LVL0+1
+C FROM SYMMETRY, ONLY NEED TO SAMPLE BR IN INTERVAL (0,.5)
+ RNNO32=RNDM(IXX)
+ RNNO33=RNDM(IXX)
+ BR=0.5*(1.0-AMAX1(RNNO32,RNNO33,RNNO30))
+C USE THE SUBDISTRIBUTION THAT IS PROPORTIONAL TO 1,
+ ELSE
+C I.E., UNIFORM. IT USES C(DELTA) FOR A SCREENING
+C REJECTION FUNCTION.
+ LVL=LVL0+3
+ BR=RNNO30*0.5
+ END IF
+C THE SCREENING FUNCTIONS ARE FUNCTIONS OF DELTA=DELCM*DEL,
+C WHERE DELCM= 136.0*EXP(ZG)*RM (SAME AS FOR BREMS)
+C AND WHERE DEL=1./(EG0*BR*(1.0-BR))
+C WITH EG0 = INCIDENT PHOTON ENERGY AND BR=ENERGY FRACTION.
+ IF((BR.EQ.0.0))GO TO841
+C TO AVOID DIVISION BY ZERO
+C TRY
+ DEL=1.0/(EIG*BR*(1.0-BR))
+ IF((DEL.GE.DELPOS(LVX,MEDIUM)))GO TO841
+C THE PRECEDING CONDITION ENSURES THAT A(DELTA) AND C(DELTA)
+C WILL BE POSITIVE. IF IT IS NOT SATISFIED,
+C LOOP BACK AND TRY ANOTHER SAMPLE.
+ 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 RANDOM NUMBER FOR SCREENING REJECTION
+ IF((RNSCRN.LE.REJF))GO TO842
+ GO TO 841
+842 CONTINUE
+C RETRY UNTIL ACCEPTED
+C BR=PRODUCT ENERGY FRACTION
+ ESE2=BR*EIG
+C ENERGY OF SECONDARY 'ELECTRON' #2
+ END IF
+C END OF EIG.GT.2.1 ELSE
+C ENERGY GOING TO LOWER SECONDARY HAS NOW BEEN DETERMINED
+ PESE2=ESE2
+C PRECISE ENERGY OF SECONDARY 'ELECTRON' 2
+ PESE1=PEIG-PESE2
+C PRECISE ENERGY OF SECONDARY 'ELECTRON' 1
+ E(NP)=PESE1
+ E(NP+1)=PESE2
+C THIS AVERAGE ANGLE OF EMISSION FOR BOTH PAIR PRODUCTION AND
+C BREMSSTRAHLUNG IS MUCH SMALLER THAN THE AVERAGE ANGLE OF
+C MULTIPLE SCATTERING FOR DELTA T TRANSPORT=0.01 R.L.
+C THE INITIAL AND FINAL MOMENTA ARE COPLANAR
+C SET UP A NEW 'ELECTRON'
+ THETA=RM/EIG
+C DEFAULT IS: THETA=RM/EIG;
+ CALL UPHI(1,1)
+C SET UP A NEW 'ELECTRON'
+ NP=NP+1
+ SINTHE=-SINTHE
+ CALL UPHI(3,2)
+C NOW RANDOMLY DECIDED WHICH IS POSITRON, AND SET
+C CHARGES ACCORDINGLY
+ RNNO34=RNDM(IXX)
+ IF ((RNNO34.LE.0.5)) THEN
+ IQ(NP)=1
+ IQ(NP-1)=-1
+C POSITRON ON TOP
+ ELSE
+ IQ(NP)=-1
+ IQ(NP-1)=1
+C ELECTRON ON TOP
+ END IF
+ RETURN
+C END OF SUBROUTINE PAIR
+ END
+ SUBROUTINE PHOTO
+C VERSION 4.XX -- 7 MAR 1985/2345
+C ******************************************************************
+ DOUBLE PRECISION PEIG
+ COMMON/QDEBUG/QDEBUG
+ LOGICAL QDEBUG
+ 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/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/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE
+ DOUBLE PRECISION PZERO,PRM,PRMT2
+C DEFAULT REPLACEMENT PRODUCES THE FOLLOWING:
+C COMIN/DEBUG,EPCONT,PHOTIN,STACK,USEFUL/;
+ PEIG=E(NP)
+ IF ((E(NP).LE.EBINDA(MEDIUM))) THEN
+ EDEP=PEIG
+ IBLOBE=1
+C ASSUME ELECTRON WENT IN DIRECTION OF THE PHOTON WITH ITS
+ ELSE
+C ENERGY, LESS THE BINDING ENERGY.
+ EDEP=EBINDA(MEDIUM)
+C BINDING ENERGY WILL BE DEPOSITED LOCALLY
+ E(NP)=EDEP
+C SET UP PHOTON TO BE DISCARDED
+ IBLOBE=0
+C FLAG INDICATING WHETHER ENERGY BELOW BINDING ENERGY
+ END IF
+ IARG=4
+ IF ((IAUSFL(IARG+1).NE.0)) THEN
+ CALL AUSGAB(IARG)
+ END IF
+ IF ((IBLOBE.EQ.1)) THEN
+ E(NP)=PZERO
+ RETURN
+ END IF
+ IQ(NP)=-1
+C SET ELECTRON CHARGE
+ E(NP)=PEIG-EDEP+PRM
+C SET ELECTRON ENERGY
+ RETURN
+C END OF SUBROUTINE PHOTO
+ END
+ SUBROUTINE PHOTON(IRCODE)
+C VERSION 4.XX -- 7 MAR 1985/2345
+C ******************************************************************
+ DOUBLE PRECISION PEIG
+ COMMON/QDEBUG/QDEBUG
+ LOGICAL QDEBUG
+ COMMON/BOUNDS/ECUT(200),PCUT(200),VACDST
+ 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/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/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/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,MEDIA,MISC,EPCONT,PHOTIN,STACK,THRESH,
+C UPHIOT,USEFUL,USER,RANDOM/;
+ IRCODE=1
+C SET UP NORMAL RETURN
+ PEIG=E(NP)
+ EIG=PEIG
+C ENERGY OF INCIDENT GAMMA
+ IRL=IR(NP)
+ MEDIUM=MED(IRL)
+ IF ((EIG.LE.PCUT(IRL))) THEN
+ GO TO 850
+ END IF
+C ENTER THIS LOOP FOR EACH PHOTON WITH NEW ENERGY
+860 CONTINUE
+861 CONTINUE
+ GLE=ALOG(EIG)
+C GLE IS GAMMA LOG ENERGY
+C HERE TO SAMPLE NO. MFP TO TRANSPORT BEFORE INTERACTING
+ RNNO35=RNDM(IXX)
+ IF ((RNNO35.EQ.0.0)) THEN
+ RNNO35=1.E-30
+ END IF
+ DPMFP=-ALOG(RNNO35)
+C THE DEFAULT (MACRO) FOR THE ABOVE IS: $RANDOMSET RNNO35;
+C DPMFP=-ALOG(RNNO35);
+C NOTE: THIS TEMPLATE CAN ALSO BE OVER-RIDDEN BY OTHER SCHEMES,
+C SUCH AS THE 'EXPONENTIAL TRANSFORM' TECHNIQUE.
+C INITIALIZE PREVIOUS REGION
+C HERE EACH TIME WE CHANGE MEDIUM DURING PHOTON TRANSPORT
+ IROLD=IR(NP)
+870 CONTINUE
+871 CONTINUE
+ IF ((MEDIUM.NE.0)) THEN
+ LGLE=GE1(MEDIUM)*GLE+GE0(MEDIUM)
+C SET PWLF INTERVAL
+ GMFPR0=GMFP1(LGLE,MEDIUM)*GLE+GMFP0(LGLE,MEDIUM)
+ END IF
+C PHOTON TRANSPORT LOOP
+880 CONTINUE
+881 CONTINUE
+ IF ((MEDIUM.EQ.0)) THEN
+ TSTEP=VACDST
+ ELSE
+ RHOF=RHOR(IRL)/RHO(MEDIUM)
+C DENSITY RATIO SCALING TEMPLATE
+ GMFP=GMFPR0/RHOF
+ IF ((IRAYLR(IRL).EQ.1)) THEN
+ COHFAC=COHE1(LGLE,MEDIUM)*GLE+COHE0(LGLE,MEDIUM)
+ GMFP=GMFP*COHFAC
+ END IF
+C A RAYLEIGH SCATTERING TEMPLATE
+ TSTEP=GMFP*DPMFP
+ END IF
+C SET DEFAULT VALUES FOR FLAGS SENT BACK FROM USER
+ IRNEW=IR(NP)
+C SET DEFAULT NEW REGION NUMBER
+ IDISC=0
+C ASSUME PHOTON NOT DISCARDED
+ USTEP=TSTEP
+C TRANSFER TRANSPORT DISTANCE TO USER VARIABLE
+ TUSTEP=USTEP
+ IF ((USTEP.GT.DNEAR(NP))) THEN
+ CALL HOWFAR
+ END IF
+C NOW CHECK FOR USER DISCARD REQUEST
+C USER REQUESTED IMMEDIATE DISCARD
+ IF ((IDISC.GT.0)) THEN
+ GO TO 890
+ END IF
+ VSTEP=USTEP
+C SET VARIABLE FOR OUTPUT CODE
+ TVSTEP=VSTEP
+ EDEP=PZERO
+C NO ENERGY DEPOSITION ON PHOTON TRANSPORT
+ IARG=0
+ IF ((IAUSFL(IARG+1).NE.0)) THEN
+ CALL AUSGAB(IARG)
+ END IF
+C TRANSPORT THE PHOTON
+ X(NP)=X(NP)+U(NP)*USTEP
+ Y(NP)=Y(NP)+V(NP)*USTEP
+ Z(NP)=Z(NP)+W(NP)*USTEP
+C DEDUCT FROM DISTANCE TO NEAREST BOUNDARY
+ DNEAR(NP)=DNEAR(NP)-USTEP
+ IF ((MEDIUM.NE.0)) THEN
+ DPMFP=AMAX1(0.,DPMFP-USTEP/GMFP)
+ END IF
+C DEDUCT MFP'S
+ IROLD=IR(NP)
+C SAVE PREVIOUS REGION
+C REGION CHANGE
+ MEDOLD=MEDIUM
+ IF ((IRNEW.NE.IROLD)) THEN
+ IR(NP)=IRNEW
+ IRL=IRNEW
+ MEDIUM=MED(IRL)
+ IF ((EIG.LE.PCUT(IRL))) THEN
+ GO TO 850
+ END IF
+ 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 890
+C TIME FOR AN INTERACTION
+ IF((MEDIUM.NE.MEDOLD))GO TO 882
+ IF ((MEDIUM.NE.0.AND.DPMFP.LE.1.E-6)) THEN
+ GO TO 872
+ END IF
+ GO TO 881
+882 CONTINUE
+C :PTRANS: LOOP
+ GO TO 871
+872 CONTINUE
+C :PNEWMEDIUM: LOOP
+C IT IS FINALLY TIME TO INTERACT.
+ RNNO36=RNDM(IXX)
+C THIS RANDOM NUMBER DETERMINES WHICH INTERACTION
+C THE FOLLOWING MACRO ALLOWS ONE TO INTRODUCE RAYLEIGH SCATTERING
+ IF ((IRAYLR(IRL).EQ.1)) THEN
+ IF ((RNNO36.LE.(1.0-COHFAC))) THEN
+ IARG=23
+ IF ((IAUSFL(IARG+1).NE.0)) THEN
+ CALL AUSGAB(IARG)
+ END IF
+900 CONTINUE
+901 CONTINUE
+ XXX=RNDM(IXX)
+ LXXX=RCO1(MEDIUM)*XXX+RCO0(MEDIUM)
+ X2=RSCT1(LXXX,MEDIUM)*XXX+RSCT0(LXXX,MEDIUM)
+ Q2=X2*RMSQ/(20.60744*20.60744)
+ COSTHE=1.-Q2/(2.*E(NP)*E(NP))
+ IF((ABS(COSTHE).GT.1.0))GO TO 900
+ CSQTHE=COSTHE*COSTHE
+ REJF=(1.0+CSQTHE)/2.0
+ RNNORJ=RNDM(IXX)
+ IF((RNNORJ.LE.REJF))GO TO902
+ GO TO 901
+902 CONTINUE
+ SINTHE=SQRT(1.0-CSQTHE)
+ CALL UPHI(2,1)
+ IARG=24
+ IF ((IAUSFL(IARG+1).NE.0)) THEN
+ CALL AUSGAB(IARG)
+ END IF
+ GOTO 860
+ END IF
+ END IF
+C GBR1=PAIR/(PAIR+COMPTON+PHOTO)=PAIR/GTOTAL
+C IT WAS A PAIR PRODUCTION
+ GBR1=GBR11(LGLE,MEDIUM)*GLE+GBR10(LGLE,MEDIUM)
+ IF (((RNNO36.LE.GBR1).AND.(E(NP).GT.RMT2) )) THEN
+ IARG=15
+ IF ((IAUSFL(IARG+1).NE.0)) THEN
+ CALL AUSGAB(IARG)
+ END IF
+ CALL PAIR
+C THE FOLLOWING MACRO ALLOWS THE USER TO CHANGE THE PARTICLE
+C SELECTION SCHEME (E.G., ADDING IMPORTANCE SAMPLING (SPLITTING,
+C LEADING PARTICLE SELECTION, ETC.)).
+C (DEFAULT MACRO IS TEMPLATE $PARTICLE-SELECTION-PHOTON'
+C WHICH IN TURN HAS THE 'NULL' REPLACEMENT ';')
+ IARG=16
+ IF ((IAUSFL(IARG+1).NE.0)) THEN
+ CALL AUSGAB(IARG)
+ END IF
+ GO TO 862
+ END IF
+C GBR2=(PAIR+COMPTON)/GTOTAL
+C IT WAS A COMPTON
+ GBR2=GBR21(LGLE,MEDIUM)*GLE+GBR20(LGLE,MEDIUM)
+ IF ((RNNO36.LT.GBR2)) THEN
+ IARG=17
+ IF ((IAUSFL(IARG+1).NE.0)) THEN
+ CALL AUSGAB(IARG)
+ END IF
+ CALL COMPT
+C THE FOLLOWING MACRO ALLOWS THE USER TO CHANGE THE PARTICLE
+C SELECTION SCHEME (E.G., ADDING IMPORTANCE SAMPLING (SPLITTING,
+C LEADING PARTICLE SELECTION, ETC.)).
+C (DEFAULT MACRO IS TEMPLATE $PARTICLE-SELECTION-PHOTON'
+C WHICH IN TURN HAS THE 'NULL' REPLACEMENT ';')
+ IARG=18
+ IF ((IAUSFL(IARG+1).NE.0)) THEN
+ CALL AUSGAB(IARG)
+ END IF
+C NOT PHOTON
+ IF((IQ(NP).NE.0))GO TO 862
+C IT WAS PHOTOELECTRIC EFFECT
+ ELSE
+ IARG=19
+ IF ((IAUSFL(IARG+1).NE.0)) THEN
+ CALL AUSGAB(IARG)
+ END IF
+ CALL PHOTO
+C THE FOLLOWING MACRO ALLOWS THE USER TO CHANGE THE PARTICLE
+C SELECTION SCHEME (E.G., ADDING IMPORTANCE SAMPLING (SPLITTING,
+C LEADING PARTICLE SELECTION, ETC.)).
+C (DEFAULT MACRO IS TEMPLATE $PARTICLE-SELECTION-PHOTON'
+C WHICH IN TURN HAS THE 'NULL' REPLACEMENT ';')
+ IF ((NP.EQ.0)) THEN
+ IRCODE=2
+ RETURN
+ END IF
+C FOR SPECIAL PHOTO SUBPROGRAM
+C WHERE STACK BECOMES EMPTY (I.E.,
+C FOR FOLLOWING FLUORESCENT PHOTONS)
+ IARG=20
+ IF ((IAUSFL(IARG+1).NE.0)) THEN
+ CALL AUSGAB(IARG)
+ END IF
+ IF((IQ(NP).EQ.-1))GO TO 862
+ END IF
+C END OF PHOTO ELECTRIC BLOCK
+C IF HERE, THEN GAMMA IS LOWEST ENERGY PARTICLE.
+ PEIG=E(NP)
+ EIG=PEIG
+ IF((EIG.LT.PCUT(IRL)))GO TO 850
+ GO TO 861
+862 CONTINUE
+C :PNEWENERGY: LOOP
+C IF HERE, MEANS ELECTRON TO BE TRANSPORTED NEXT
+C ---------------------------------------------
+C PHOTON CUTOFF ENERGY DISCARD SECTION
+C ---------------------------------------------
+ RETURN
+850 IF ((EIG.GT.AP(MEDIUM))) THEN
+ IDR=1
+ ELSE
+ IDR=2
+ END IF
+ EDEP=PEIG
+C GET ENERGY DEPOSITION FOR USER
+ IARG=IDR
+ IF ((IAUSFL(IARG+1).NE.0)) THEN
+ CALL AUSGAB(IARG)
+ END IF
+ IRCODE=2
+ NP=NP-1
+C ---------------------------------------------
+C USER REQUESTED PHOTON DISCARD SECTION
+C ---------------------------------------------
+ RETURN
+890 EDEP=PEIG
+ IARG=3
+ IF ((IAUSFL(IARG+1).NE.0)) THEN
+ CALL AUSGAB(IARG)
+ END IF
+ IRCODE=2
+ NP=NP-1
+ RETURN
+C END OF SUBROUTINE PHOTON
+ END
+ SUBROUTINE SHOWER(IQI,EI,XI,YI,ZI,UI,VI,WI,IRI,WTI)
+C VERSION 4.XX -- 7 MAR 1985/2345
+C ******************************************************************
+ DOUBLE PRECISION DEG,DPGL,DEI,DPI,DCSTH,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/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2
+ COMMON/RANDOM/IXX
+C DEFAULT REPLACEMENT PRODUCES THE FOLLOWING:
+C COMIN/DEBUG,STACK,UPHIOT,RANDOM/;
+ NP=1
+ DNEARI=0.0
+ IQ(1)=IQI
+ E(1)=EI
+ U(1)=UI
+ V(1)=VI
+ W(1)=WI
+ X(1)=XI
+ Y(1)=YI
+ Z(1)=ZI
+ IR(1)=IRI
+ WT(1)=WTI
+C PI-ZERO OPTION
+ DNEAR(1)=DNEARI
+ IF ((IQI.EQ.2)) THEN
+ CSTH=RNDM(IXX)
+ DCSTH=CSTH
+ DEI=EI
+ DPI=DSQRT(DEI*DEI-1.8215416D4)
+ DEG=DEI+DPI*DCSTH
+ DPGL=DPI+DEI*DCSTH
+ DCOSTH=DPGL/DEG
+ COSTHE=DCOSTH
+ SINTHE=DSQRT(1.D0-DCOSTH*DCOSTH)
+ IQ(1)=0
+ E(1)=DEG/2.
+ CALL UPHI(2,1)
+ NP=2
+ DEG=DEI-DPI*DCSTH
+ DPGL=DPI-DEI*DCSTH
+ DCOSTH=DPGL/DEG
+ COSTHE=DCOSTH
+ SINTHE=-DSQRT(1.D0-DCOSTH*DCOSTH)
+ IQ(2)=0
+ E(2)=DEG/2.
+ CALL UPHI(3,2)
+C END OF PI-ZERO OPTION
+ END IF
+C DECIDE WHAT IS ON TOP OF STACK
+910 CONTINUE
+911 CONTINUE
+C BACK AND FORTH FROM ELECTRON TO PHOTON AND BACK, ETC.
+ IF((IQ(NP).EQ.0))GO TO 920
+931 CONTINUE
+940 CALL ELECTR(IRCODE)
+C ELECTRON DISCARDED
+ IF((IRCODE.EQ.2))GO TO932
+920 CALL PHOTON(IRCODE)
+ IF((IRCODE.EQ.2))GO TO932
+C PHOTON DISCARDED
+ GO TO 931
+932 CONTINUE
+C LOOP BACK UP TO :ELECTRON:
+C CHECK TO SEE IF ANYTHING LEFT ON STACK
+ IF((NP.LE.0))GO TO912
+C NOTHING ON STACK, SO JUMP OUT OF LOOP
+ GO TO 911
+912 CONTINUE
+C :TOPSTACK: LOOP
+ RETURN
+C END OF SUBROUTINE SHOWER
+ END
+ SUBROUTINE UPHI(IENTRY,LVL)
+C VERSION 4.XX -- 7 MAR 1985/2345
+C ******************************************************************
+C UPHI STANDS FOR 'UNIFORM PHI DISTRIBUTION'.
+C SET COORDINATES FOR NEW PARTICLE OR RESET DIRECTION COSINES OF
+C OLD ONE. GENERATE RANDOM AZIMUTH SELECTION AND REPLACE THE
+C DIRECTION COSINES WITH THEIR NEW VALUES.
+C ******************************************************************
+ COMMON/QDEBUG/QDEBUG
+ LOGICAL QDEBUG
+ 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/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/UPHIIN/SINC0,SINC1,SIN0(1002),SIN1(1002)
+ COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2
+ COMMON/RANDOM/IXX
+C DEFAULT REPLACEMENT PRODUCES THE FOLLOWING:
+C COMIN/DEBUG,EPCONT,STACK,UPHIIN,UPHIOT,RANDOM/;
+ IARG=21
+ IF ((IAUSFL(IARG+1).NE.0)) THEN
+ CALL AUSGAB(IARG)
+ END IF
+ GO TO (950,960,970),IENTRY
+C IENTRY OUT-OF-BOUNDS IF HERE
+ GO TO 980
+950 SINTHE=SIN(THETA)
+ CTHET=PI5D2-THETA
+C USE THE FOLLOWING ENTRY IF SINTHE AND COSTHE ARE ALREADY KNOWN.
+C SELECT PHI UNIFORMLY OVER THE INTERVAL (0,TWO PI). THEN USE
+C PWLF OF SIN FUNCTION TO GET SIN(PHI) AND COS(PHI). THE COSINE
+C IS GOTTEN BY COS(PHI)=SIN(9*PI/4 - PHI).
+ COSTHE=SIN(CTHET)
+960 RNNO38=RNDM(IXX)
+ PHI=RNNO38*TWOPI
+ SINPHI=SIN(PHI)
+ CPHI=PI5D2-PHI
+C USE THE FOLLOWING ENTRY FOR THE SECOND OF TWO PARTICLES WHEN WE
+C KNOW TWO PARTICLES HAVE A RELATIONSHIP IN THEIR CORRECTIONS.
+C NOTE: SINTHE AND COSTHE CAN BE CHANGED OUTSIDE THROUGH COMMON.
+C LVL IS A PARAMETER TELLING WHICH PARTICLES TO WORK WITH.
+C THETA (SINTHE AND COSTHE) ARE ALWAYS RELATIVE TO THE DIRECTION
+C OF THE INCIDENT PARTICLE BEFORE ITS DIRECTION WAS ADJUSTED.
+C THUS WHEN TWO PARTICLES NEED TO HAVE THEIR DIRECTIONS COMPUTED,
+C THE ORIGINAL INCIDENT DIRECTION IS SAVED IN THE VARIABLE A,B,C
+C SO THAT IT CAN BE USED ON BOTH CALLS.
+C LVL=1 -- OLD PARTICLE, SAVE ITS DIRECTION AND ADJUST IT
+C LVL=2 -- NEW PARTICLE. ADJUST DIRECTION USING SAVED A,B,C
+C LVL=3 -- BREMSSTRAHLUNG GAMMA. SAVE ELECTRON DIRECTION (NEXT
+C TO TOP OF STACK), AND THEN ADJUST GAMMA DIRECTION.
+ COSPHI=SIN(CPHI)
+970 GO TO (990,1000,1010),LVL
+C LVL OUT-OF-BOUNDS IF HERE
+ GO TO 980
+990 A=U(NP)
+ B=V(NP)
+ C=W(NP)
+ GO TO 1020
+1010 A=U(NP-1)
+ B=V(NP-1)
+ C=W(NP-1)
+1000 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)
+C SEE H.H. NAGEL DISSERTATION FOR COORDINATE SYSTEM DESCRIPTION.
+C A ROTATION IS PERFORMED TO TRANSFORM DIRECTION COSINES OF THE
+C PARTICLE BACK TO THE PHYSICAL FRAME (FROM THE TRANSPORT FRAME)
+ DNEAR(NP)=DNEAR(NP-1)
+C IF SINPS2 IS SMALL, NO ROTATION IS NEEDED
+C SMALL POLAR ANGLE CASE
+1020 SINPS2=A*A+B*B
+ IF ((SINPS2.LT.1.0E-10)) THEN
+ U(NP)=SINTHE*COSPHI
+ V(NP)=SINTHE*SINPHI
+ W(NP)=C*COSTHE
+C END SMALL POLAR ANGLE CASE
+C LARGE POLAR ANGLE CASE
+ ELSE
+ SINPSI=SQRT(SINPS2)
+ US=SINTHE*COSPHI
+ VS=SINTHE*SINPHI
+ SINDEL=B/SINPSI
+ COSDEL=A/SINPSI
+ U(NP)=C*COSDEL*US-SINDEL*VS+A*COSTHE
+ V(NP)=C*SINDEL*US+COSDEL*VS+B*COSTHE
+ W(NP)=-SINPSI*US+C*COSTHE
+C END LARGE POLAR ANGLE CASE
+ END IF
+ IARG=22
+ IF ((IAUSFL(IARG+1).NE.0)) THEN
+ CALL AUSGAB(IARG)
+ END IF
+ RETURN
+C REACH THIS POINT IF EITHER IENTRY OR LVL NE 1,2, OR 3
+980 WRITE(6,1030)IENTRY,LVL
+1030 FORMAT(' STOPPED IN UPHI WITH IENTRY,LVL=',2I6)
+ STOP
+C END OF SUBROUTINE UPHI
+ END
--- /dev/null
+ SUBROUTINE GUARDA(fine,opened)
+C ------------------------------------------------------
+C version: 31-oct-1994
+C routine guarda per plot semi-interattivi in egs4_cyl
+C jan-1993 M.Galli S.Ferriani
+C chiamata da egs4_cyl_1 ( main )
+C questa routine utilizza GKS , Higz ed una serie di
+C routines di interfacci all'Higz e GKS di S.Ferriani ( petsub.for)
+C
+C se l'utente dice fine calcolo :F pone ifine=.true. abd returns
+C ----------------------------------------------------------------
+C
+ parameter nitem1=4
+
+ include 'comm_cyltot_2.for'
+
+ logical opened
+ logical fine
+ logical histo
+ integer tracking
+
+
+ character*50 menu1 (nitem1)
+ character risp
+
+ data menu1 / 'G : va avanti nel calcolo',
+ 2 'S : mostra il setup grafico corrente',
+ 3 'C : cambia il setup grafico',
+ 4 'F : fine calcolo' /
+
+
+ tracking = traccia
+ risp = 'z'
+
+ do while ( risp .ne. menu1(1)(1:1) .and. risp .ne. menu1(4)(1:1) )
+
+ call pmenu ( menu1, nitem1)
+ call answer( menu1, nitem1, risp)
+
+
+ if ( risp .eq. menu1(1)(1:1) ) then
+ call go(opened, tracking, histo)
+
+ else if ( risp .eq. menu1(2)(1:1) ) then
+ call show_setup(tracking, histo)
+
+ else if ( risp .eq. menu1(3)(1:1) ) then
+ call change_setup(tracking, histo)
+ traccia = tracking
+
+ else if ( risp .eq. menu1(4)(1:1) ) then
+ call pg_end
+ fine = .TRUE.
+ end if
+ end do
+
+ return
+ end
+C
+C****************************************************************************
+ subroutine pmenu (menu, item)
+C****************************************************************************
+
+ include 'comm_cyl_2.for'
+
+ character*(*) menu(10)
+ integer item
+
+ do i=1,2
+ write(ltyout,*)
+ end do
+
+ do i=1,item
+ write(ltyout,100) menu(i)
+ end do
+100 format(1x,a)
+ return
+ end
+
+C
+C****************************************************************************
+ subroutine answer (menu, item, risp)
+C****************************************************************************
+
+ include 'comm_cyl_2.for'
+
+ character*(*) menu(10)
+ integer item
+ character*1 risp
+ logical match
+
+ match = .FALSE.
+ do while (match .eq. .FALSE.)
+100 read (ltyin,'(a)',err=100) risp
+ call upcase (risp)
+ do i=1,item
+ if (menu(i)(1:1) .eq. risp) match = .TRUE.
+ end do
+ end do
+
+ do i=1,2
+ write(ltyout,*)
+ end do
+
+ return
+ end
+
+C
+C****************************************************************************
+ subroutine go(opened,tracking,histo)
+C****************************************************************************
+
+ include 'comm_cyltot_2.for'
+ include 'comm_yaps.for'
+ include 'petgraf.inc'
+
+ character*80 title
+ logical opened, histo
+ integer tracking
+ real*4 status,limits
+ real ics(2),yup(500)
+
+
+ if (opened) then
+ call ICLRWK (0,1)
+
+ else if ( tracking .gt. 0 .or. histo ) then
+ call pg_init('G')
+ opened = .TRUE.
+ end if
+
+
+ if ( tracking .gt. 0) then
+ call IGQWK (10,'OPEN',status)
+ if (status .eq. 0) then
+ limits=max(rcyl(ncyl),zmax)
+ limits=5*limits
+ call pg_create_view(10,'Tracking ',.5,limits)
+ call geometry(10)
+ end if
+ if (tracking .eq. 1) then
+ call ICLRWK (10,1)
+ limits=max(rcyl(ncyl),zmax)
+ limits=5*limits
+ call pg_refresh_view(10,limits)
+ call geometry(10)
+ end if
+ end if
+
+ if ( histo ) then
+
+ do i=1,4
+ if ( idhist(i) .ne. 0 ) then
+ call make_hist(idhist(i),n,ics,yup,title)
+ call pg_hist(i,'Histogram ',title,n,ics,yup,.5)
+ end if
+ end do
+ end if
+
+ return
+ end
+C
+C****************************************************************************
+ subroutine show_setup (tracking, histo)
+C****************************************************************************
+
+ include 'comm_cyltot_2.for'
+
+ integer tracking
+ logical histo
+
+ if (tracking .eq. 0) then
+ write(ltyout,*) 'TRACKING: OFF'
+ else if (tracking .eq. 1) then
+ write(ltyout,*) 'TRACKING: ON'
+ else if (tracking .eq. 2) then
+ write(ltyout,*) 'TRACKING: ON CUMULATIVE'
+ end if
+
+ if (histo) then
+ write(ltyout,*) 'HISTOGRAM : ON',idhist
+ else
+ write(ltyout,*) 'HISTOGRAM : OFF'
+ end if
+
+ return
+ end
+C
+C****************************************************************************
+ subroutine change_setup (tracking, histo)
+C****************************************************************************
+
+ parameter nitem2 = 2
+ parameter nitem3 = 3
+ parameter nitem4 = 3
+
+ include 'comm_cyl_2.for'
+
+ logical histo
+ integer tracking
+ character*50 menu2 (nitem2)
+ character*50 menu3 (nitem3)
+ character*50 menu4 (nitem4)
+
+ character risp
+
+ data menu2 / 'T : tracking',
+ 2 'H : istogrammi' /
+
+ data menu3 / 'O : on',
+ 2 'F : off',
+ 3 'S : setting histogram identifiers' /
+
+ data menu4 / 'O : on',
+ 2 'F : off',
+ 3 'C : on cumulative' /
+
+ call show_setup(tracking, histo)
+ call pmenu ( menu2, nitem2)
+ call answer( menu2, nitem2, risp)
+
+ if ( risp .eq. menu2(1)(1:1) ) then
+ call pmenu ( menu4, nitem4)
+ call answer( menu4, nitem4, risp)
+
+ if ( risp .eq. menu4(1)(1:1) ) then
+ tracking = 1
+
+ else if ( risp .eq. menu4(2)(1:1) ) then
+ tracking = 0
+
+ else if ( risp .eq. menu4(3)(1:1) ) then
+ tracking = 2
+ endif
+
+ else if ( risp .eq. menu2(2)(1:1) ) then
+ call pmenu ( menu3, nitem3)
+ call answer( menu3, nitem3, risp)
+ if ( risp .eq. menu3(1)(1:1) ) then
+ histo = .TRUE.
+ else if ( risp .eq. menu3(2)(1:1) ) then
+ histo = .FALSE.
+ else if ( risp .eq. menu3(3)(1:1) ) then
+ call set_histo
+ endif
+ endif
+ call show_setup(tracking, histo)
+ return
+ end
+C
+
+C
+C************************************************************************
+ subroutine geometry(k)
+C************************************************************************
+C -----------------------------
+C disegna la geometria in proiezione r-z
+C nel frame k
+C ---------------------------------------
+ include 'petgraf_com.inc'
+ include 'comm_cyltot_2.for' ! cylgeom common
+ include 'comm_yaps.for' !
+ real*4 mx(2)
+ real*4 my(2)
+ real*4 mz(2)
+C
+ do i=1,ncyl
+ call pg_circle(k,tl,0,0,rcyl(i))
+ call pg_box(k,tr,-rcyl(i),rcyl(i),-zmax,zmax)
+ call pg_box(k,bl,-rcyl(i),rcyl(i),-zmax,zmax)
+ end do
+C
+ call isplci(1)
+ CALL ISFASI(144)
+ do i=1,nyp
+ call incylsys (i,-dxyp,-dyyp,dzyp,mx(1),my(1),mz(1))
+ call incylsys (i,dxyp,dyyp,-dzyp,mx(2),my(2),mz(2))
+ my(1)=my(1)+yorigypi(i)+y0ypi(i)
+ my(2)=my(2)+yorigypi(i)+y0ypi(i)
+ mz(1)=mz(1)+zorigypi(i)+z0ypi(i)
+ mz(2)=mz(2)+zorigypi(i)+z0ypi(i)
+ call pg_box(k,tr,my(1),my(2),mz(1),mz(2))
+
+ end do
+
+ do i=1,nyp
+ call incylsys (i,-dxyp, dyyp,dzyp,mx(1),my(1),mz(1))
+ call incylsys (i,dxyp,-dyyp,dzyp,mx(2),my(2),mz(2))
+ mx(1)=mx(1)+xorigypi(i)+x0ypi(i)
+ mx(2)=mx(2)+xorigypi(i)+x0ypi(i)
+ my(1)=my(1)+yorigypi(i)+y0ypi(i)
+ my(2)=my(2)+yorigypi(i)+y0ypi(i)
+ call pg_box(k,tl,mx(1),mx(2),my(1),my(2))
+ end do
+
+
+ do i=1,nyp
+ call incylsys (i,-dxyp,-dyyp,dzyp,mx(1),my(1),mz(1))
+ call incylsys (i,dxyp,dyyp,-dzyp,mx(2),my(2),mz(2))
+ mx(1)=mx(1)+xorigypi(i)+x0ypi(i)
+ mx(2)=mx(2)+xorigypi(i)+x0ypi(i)
+ mz(1)=mz(1)+zorigypi(i)+z0ypi(i)
+ mz(2)=mz(2)+zorigypi(i)+z0ypi(i)
+ call pg_box(k,bl,mx(1),mx(2),mz(1),mz(2))
+ end do
+ call isplci(1)
+
+ return
+ end
+c
+C************************************************************************
+ subroutine set_histo
+C************************************************************************
+C
+ parameter maxnisto = 100
+ include 'comm_cyltot_2.for'
+C
+ character*80 title
+ integer idvect(maxnisto)
+ integer ide
+ logical logvar
+ logical hexist
+c
+ call hid1 (idvect,nhisto)
+c
+
+ write(ltyout,*)
+ write(ltyout,*)'*** Histogram identifiers list ***'
+ write(ltyout,*)
+ do i=1,nhisto
+ call hgive(idvect(i),title,n,xmi,xma,xp,ymi,yma,nwt,loc)
+ lung=len(title)
+ write(ltyout,20)idvect(i),title(1:lung)
+ end do
+
+ write(ltyout,*)
+ write(ltyout,*)'*** Histogram identifiers selected ***'
+ write(ltyout,*)
+ do i=1,4
+ call hgive(idhist(i),title,n,xmi,xma,xp,ymi,yma,nwt,loc)
+
+ if (idhist(i) .ne. 0 ) then
+ write(ltyout,20)idhist(i),title
+ else
+ write(ltyout,21)idhist(i)
+ end if
+ end do
+C
+ write(ltyout,*)
+ do j=1,4
+ logvar=.FALSE.
+ do while (.not. logvar)
+100 write(ltyout,10)j
+ read (ltyin,'(i)',err=100) ide
+ if (ide .eq. 0) then
+ logvar = .TRUE.
+ else
+ logvar = hexist (ide)
+ end if
+ end do
+ call pg_close (j)
+ idhist(j)=ide
+ end do
+
+10 format ('$ - identificativo istogramma ',i,' --> ')
+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
+
--- /dev/null
+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
--- /dev/null
+ 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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
+
+
+
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+*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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
+
+
+
--- /dev/null
+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
--- /dev/null
+{
+ "@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"
+ }
+ ]
+}
projects / egs4cyl.git / commitdiff